|
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: 23552 (0x5c00)
Types: M200
Notes: @(#)EXPMON,2.1,90/12/04,17:18:19, M200_PROGRAM
Names: »EXPMON.M200«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »EXPMON.M200«
└─ ⟦this⟧ »EXPMON.M200«
@ 2055c
<LVAR 0x008 4(r)>
<POP 2055c-205f6 Body>
<POP 2055c-20572 Prologue> Σ0 ↓
<POP 20572-2057c RegCacheLoad> Σ0 ↓
<POP 2057c-205ee Naked> Σ0 ↓
<Blob 0x2057c [32] @> Δ-32 {[«32""»]}
<MI 2058e MOVEA.L 0x258ce,A0> {[«32""»]}
<Blob 0x20590 [30] (A0+0xfc)> Δ-30 {[«32""»]|[«30»]}
<POP 205a0-205a2 StackAdj> Δ-8 {[«32""»]|[«30»]|[-8-]}
<Lit 0x205a2 31> {[«32""»]|[«30»]|[-4-]|[$$Recoverable experiment error :_]}
<POP 205b2-205b4 StackAdj> Δ-4 {[«32""»]|[«30»]|[-4-]|[$$Recoverable experiment error :_]|[-4-]}
<Lit 0x205b4> {[«32""»]|[«30»]|[-4-]|[$$Recoverable experiment error :_]|[$$…]}
<Pointer.sp 0x205b4 12> Δ-4
<Const 0x205b8 0x1.2> Δ-2
<Const 0x205ba 0x1e.2> Δ-2
<Call 0x205bc 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 205c2-205c4 StackAdj> Δ+8
<Call 0x205c4 0x102d0> {[«32""»]|[«30»]|[-4-]|[$$Recoverable experiment error :_]|[$$…]}
StringCat2(a, b : String) : String
<POP 205ca-205cc StackAdj> Δ+8 {[«32""»]|[«30»]|[-4-]}
<MI 205cc MOVEA.L (A7)+,A4> Δ+4 {[«32""»]|[«30»]}
<POP 205ce-205d2 StackAdj> Δ+62 {}
<Const 0x205d2 0x258ce.4> Δ-4 {[##153806]}
<Call 0x205d4 0x10496> {[##153806]}
ExpClose(exp : Pointer)
<MI 205da MOVE.L (A6+0x8),(A7)> {[4, '(A6+0x8)']}
<Call 0x205de 0x103e0> {[4, '(A6+0x8)']}
WriteConsoleStringCrLf(str : String)
<MI 205e4 MOVE.L A4,(A7)> {[4, 'A4']}
<Call 0x205e6 0x21e42> {[4, 'A4']}
<POP 205ec-205ee StackAdj> Δ+4 {}
<POP 205ee-205f6 Epilogue> Σ0
@ 205f6
PROG_FAIL
<LVAR 0x008 1(r)>
<POP 205f6-2065a Body>
<POP 205f6-2060c Prologue> Σ0 ↓
<POP 2060c-20652 Naked> Σ0 ↓
<Blob 0x2060c [4] @> Δ-4 {[«4""»]}
<Blob 0x20610 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x20614 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<POP 20618-2061a StackAdj> Δ-8 {[«4""»]|[«4""»]|[«4""»]|[-8-]}
<Lit 0x2061a 12> {[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Words error_]}
<POP 2062c-2062e StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Words error_]|[-4-]}
<MI 2062e MOVE.B (A6+0x8),D0> {[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Words error_]|[-4-]}
<MI 20632 EXTB.W D0> {[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Words error_]|[-4-]}
<MI 20634 EXTW.L D0> {[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Words error_]|[-4-]}
<MI 20636 MOVE.L D0,-(A7)> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Words error_]|[-4-]|[4, 'D0']}
<Call 0x20638 0x102e4> {[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Words error_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 2063e-20640 StackAdj> Δ+4 {[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Words error_]|[-4-]}
<Call 0x20640 0x102d0> {[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Words error_]|[-4-]}
StringCat2(a, b : String) : String
<POP 20646-20648 StackAdj> Δ+8 {[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Call 0x20648 0x21e42> {[«4""»]|[«4""»]|[«4""»]|[-4-]}
<POP 2064e-20652 StackAdj> Δ+16 {}
<POP 20652-2065a Epilogue> Σ0
@ 2065a
<LVAR 0x00c @ 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x00a @ 4(rw)>
<POP 2065a-2071c Body>
<POP 2065a-20670 Prologue> Σ0 ↓
<POP 20670-2067a RegCacheLoad> Σ0 ↓
<POP 2067a-2067c Naked> Σ0 ↓
<MI 2067a MOVEQ.L #0x00,D7> {}
<POP 2067c-206c6 Naked> Σ0 ↓ →0x206ce ←0x206ce
<MI 2067c MOVE.B D7,D0> {}
<MI 2067e EXTB.W D0> {}
<MI 20680 ASL.W #0x2,D0> {}
<MI 20682 LEA.L 0x258c6,A0> {}
<MI 20688 MOVE.L (A0+D0.W+#0x4c),-(A7)> Δ-4 {[4, '(A0+D0.W+#0x4c)']}
<POP 2068c-2068e StackAdj> Δ-4 {[4, '(A0+D0.W+#0x4c)']|[-4-]}
<Lit 0x2068e> {[4, '(A0+D0.W+#0x4c)']|[$$…]}
<Pointer.sp 0x2068e 4> Δ-4
<Const 0x20692 0x1.2> Δ-2
<Const 0x20694 0x4.2> Δ-2
<Call 0x20698 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 2069e-206a0 StackAdj> Δ+8
<MI 206a0 MOVE.L (A7)+,(A6-0xa)> Δ+4 {[4, '(A0+D0.W+#0x4c)']}
<POP 206a2-206a4 StackAdj> Δ+2 {[-2-]}
<MI 206a4 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-2-]|[4, '(A6+0xc)']}
<MI 206a6 MOVE.L (A6-0xa),-(A7)> Δ-4 {[-2-]|[4, '(A6+0xc)']|[4, '(A6-0xa)']}
<Call 0x206a8 0x102c8> {[-2-]|[4, '(A6+0xc)']|[4, '(A6-0xa)']}
StringEqual(a, b : String) : Byte
<POP 206ae-206b0 StackAdj> Δ+8 {[-2-]}
<MI 206b0 MOVE.B (A7)+,D0> Δ+2 {}
<MI 206b2 EXTB.W D0> {}
<POP 0x206b4 LimitCheck 0x0 ≤ D0 ≤ 0x1> {}
<MI 206b6 MOVE.B D0,D6> {}
<Pointer.fp 0x206b8 <LVAR -0x00a @ 4(rw)>> Δ-4 {[@@-10]}
<Call 0x206ba 0x102bc> {[@@-10]}
FreeString(VAR a : String)
<POP 206c0-206c2 StackAdj> Δ+4 {}
<MI 206c2 TST.B D6> {}
<MI 206c4 BEQ 0x206ce> {}
<POP 206c6-206ce Naked> Σ0 →0x2070a
<MI 206c6 MOVEA.L (A6+0x8),A0> {}
<MI 206ca MOVE.B D7,(A0)> {}
<MI 206cc BRA 0x2070a> {}
<POP 206ce-206d6 Naked> Σ0 ↓ →0x2067c ←0x2067c
<MI 206ce ADDQ.B #0x1,D7> {}
<MI 206d0 CMPI.B #0x0f,D7> {}
<MI 206d4 BLE 0x2067c> {}
<POP 206d6-2070a Naked> Σ0 ↓
<Blob 0x206d6 [20] @> Δ-20 {[«20""»]}
<POP 206e2-206e4 StackAdj> Δ-8 {[«20""»]|[-8-]}
<Lit 0x206e4 20> {[«20""»]|[-4-]|[$$Unknown board name:_]}
<POP 206f4-206f6 StackAdj> Δ-4 {[«20""»]|[-4-]|[$$Unknown board name:_]|[-4-]}
<MI 206f6 MOVE.L (A6+0xc),(A7)> {[«20""»]|[-4-]|[$$Unknown board name:_]|[4, '(A6+0xc)']}
<Call 0x206f8 0x102d0> {[«20""»]|[-4-]|[$$Unknown board name:_]|[4, '(A6+0xc)']}
StringCat2(a, b : String) : String
<POP 206fe-20700 StackAdj> Δ+8 {[«20""»]|[-4-]}
<Call 0x20700 0x21e42> {[«20""»]|[-4-]}
<POP 20706-2070a StackAdj> Δ+24 {}
<POP 2070a-20714 Naked> Σ0 ↓ ←0x206c6
<Pointer.fp 0x2070a <LVAR 0x00c @ 4(r)>> Δ-4 {[@@12]}
<Call 0x2070c 0x102bc> {[@@12]}
FreeString(VAR a : String)
<POP 20712-20714 StackAdj> Δ+4 {}
<POP 20714-2071c Epilogue> Σ0
@ 2071c
<LVAR 0x00c 1(rw)>
<LVAR 0x008 4(r)>
<LVAR -0x006 @ 4(rw)>
<POP 2071c-207f0 Body>
<POP 2071c-20732 Prologue> Σ0 ↓
<POP 20732-2073c RegCacheLoad> Σ0 ↓
<POP 2073c-2073e Naked> Σ0 ↓
<MI 2073c MOVEQ.L #0x00,D7> {}
<POP 2073e-2079c Naked> Σ0 ↓ →0x207ae ←0x207ae
<POP 0x2073e LimitCheck 0x0 ≤ D7 ≤ 0x7> {}
<MI 20744 MOVE.L D7,D4> {}
<MI 20746 MOVEQ.L #0x0a,D3> {}
<Call 0x20748 0x1028c> {}
?muls_d3_d4
<MI 2074e LEA.L 0x2050c,A0> {}
<Blob 0x20752 [10] (A0+D4.L)> Δ-10 {[«10»]}
<POP 20762-20764 StackAdj> Δ-4 {[«10»]|[-4-]}
<Lit 0x20764> {[«10»]|[$$…]}
<Pointer.sp 0x20764 4> Δ-4
<Const 0x20768 0x1.2> Δ-2
<Const 0x2076a 0xa.2> Δ-2
<Call 0x2076c 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 20772-20774 StackAdj> Δ+8
<MI 20774 MOVE.L (A7)+,(A6-0x6)> Δ+4 {[«10»]}
<POP 20776-20778 StackAdj> Δ+4 {[-6-]}
<MI 20778 MOVE.L (A6+0x8),(A7)> {[-2-]|[4, '(A6+0x8)']}
<MI 2077c MOVE.L (A6-0x6),-(A7)> Δ-4 {[-2-]|[4, '(A6+0x8)']|[4, '(A6-0x6)']}
<Call 0x2077e 0x102c8> {[-2-]|[4, '(A6+0x8)']|[4, '(A6-0x6)']}
StringEqual(a, b : String) : Byte
<POP 20784-20786 StackAdj> Δ+8 {[-2-]}
<MI 20786 MOVE.B (A7)+,D0> Δ+2 {}
<MI 20788 EXTB.W D0> {}
<POP 0x2078a LimitCheck 0x0 ≤ D0 ≤ 0x1> {}
<MI 2078c MOVE.B D0,D6> {}
<Pointer.fp 0x2078e <LVAR -0x006 @ 4(rw)>> Δ-4 {[@@-6]}
<Call 0x20790 0x102bc> {[@@-6]}
FreeString(VAR a : String)
<POP 20796-20798 StackAdj> Δ+4 {}
<MI 20798 TST.B D6> {}
<MI 2079a BEQ 0x207ae> {}
<POP 2079c-207a8 Naked> Σ0 ↓ →0x207ac
<MI 2079c CLR.B (A6+0xc)> {}
<MI 207a0 CMPI.L #0x00000004,D7> {}
<MI 207a6 BGE 0x207ac> {}
<POP 207a8-207ac Naked> Σ0 ↓
<MI 207a8 ADDQ.B #0x1,(A6+0xc)> {}
<POP 207ac-207ae Naked> Σ0 →0x207e8 ←0x2079c
<MI 207ac BRA 0x207e8> {}
<POP 207ae-207b4 Naked> Σ0 ↓ →0x2073e ←0x2073e
<MI 207ae ADDQ.L #0x1,D7> {}
<MI 207b0 CMP.L #0x07,D7> {}
<MI 207b2 BLE 0x2073e> {}
<POP 207b4-207e8 Naked> Σ0 ↓
<Blob 0x207b4 [18] @> Δ-18 {[«18""»]}
<POP 207c0-207c2 StackAdj> Δ-8 {[«18""»]|[-8-]}
<Lit 0x207c2 18> {[«18""»]|[-4-]|[$$Illegal boolean :_]}
<POP 207d2-207d4 StackAdj> Δ-4 {[«18""»]|[-4-]|[$$Illegal boolean :_]|[-4-]}
<MI 207d4 MOVE.L (A6+0x8),(A7)> {[«18""»]|[-4-]|[$$Illegal boolean :_]|[4, '(A6+0x8)']}
<Call 0x207d8 0x102d0> {[«18""»]|[-4-]|[$$Illegal boolean :_]|[4, '(A6+0x8)']}
StringCat2(a, b : String) : String
<POP 207de-207e0 StackAdj> Δ+8 {[«18""»]|[-4-]}
<Call 0x207e0 0x2055c> {[«18""»]|[-4-]}
<POP 207e4-207e8 StackAdj> Δ+22 {}
<POP 207e8-207f0 Epilogue> Σ0 ←0x207ac
@ 207f0
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 207f0-20a14 Body>
<POP 207f0-20806 Prologue> Σ0 ↓
<POP 20806-20812 RegCacheLoad> Σ0 ↓
<POP 20812-20816 Naked> Σ0 Δ-4 ↓
<MI 20812 MOVEA.L (A6+0xc),A0> {}
<MI 20814 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<POP 20816-2081e Naked> Σ-4 ↓ →0x2087c ←0x20858
<MI 20816 MOVEA.L (A7),A0> {[-4-]}
<MI 20818 MOVE.W (A0),D0> {[-4-]}
<MI 2081a CMP.W #0x01,D0> {[-4-]}
<MI 2081c BLE 0x2087c> {[-4-]}
<POP 2081e-20828 Naked> Σ-4 ↓ →0x2087c
<MI 2081e MOVE.B (A0+0x2),D1> {[-4-]}
<MI 20822 CMPI.B #0x30,D1> {[-4-]}
<MI 20826 BNE 0x2087c> {[-4-]}
<POP 20828-20830 Naked> Σ-4 Δ-4 ↓
<MI 20828 MOVE.W D0,D1> {[-4-]}
<MI 2082a EXTW.L D1> {[-4-]}
<MI 2082c MOVE.L D1,-(A7)> Δ-4 {[-4-]|[4, 'D1']}
<MI 2082e MOVEQ.L #0x02,D7> {[-4-]|[4, 'D1']}
<POP 20830-20834 Naked> Σ-8 ↓ →0x20858 ←0x20834
<MI 20830 CMP.L (A7),D7> {[-8-]}
<MI 20832 BGT 0x20858> {[-8-]}
<POP 20834-20858 Naked> Σ-8 ↓ →0x20830
<MI 20834 MOVE.L D7,D0> {[-8-]}
<MI 20836 SUBQ.L #0x1,D0> {[-8-]}
<MI 20838 SUBQ.L #0x1,D0> {[-8-]}
<POP 0x2083a LimitCheck 0x0 ≤ D0 ≤ 0x7d> {[-8-]}
<MI 20840 MOVEA.L (A7+0x4),A0> {[-8-]}
<MI 20844 MOVE.L D7,D1> {[-8-]}
<MI 20846 SUBQ.L #0x1,D1> {[-8-]}
<POP 0x20848 LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-8-]}
<MI 2084e MOVE.B (A0+D1.L+#0x2),(A0+D0.L+#0x2)> {[-8-]}
<MI 20854 ADDQ.L #0x1,D7> {[-8-]}
<MI 20856 BVC 0x20830> {[-8-]}
<POP 20858-2087c Naked> Σ-8 Δ+4 →0x20816 ←0x20830
<POP 20858-2085a StackAdj> Δ+4 {[-4-]}
<MI 2085a MOVEA.L (A7),A0> {[-4-]}
<MI 2085c MOVE.W (A0),D0> {[-4-]}
<MI 2085e EXTW.L D0> {[-4-]}
<MI 20860 SUBQ.L #0x1,D0> {[-4-]}
<POP 0x20862 LimitCheck -0x8000 ≤ D0 ≤ 0x7fff> {[-4-]}
<MI 20878 MOVE.W D0,(A0)> {[-4-]}
<MI 2087a BRA 0x20816> {[-4-]}
<POP 2087c-20886 Naked> Σ-4 ↓ →0x208be ←0x20816 ←0x2081e
<MI 2087c MOVE.L (A6+0x8),D1> {[-4-]}
<MI 2087e ASL.L #0x1,D1> {[-4-]}
<MI 20880 EXTW.L D0> {[-4-]}
<MI 20882 CMP.L D1,D0> {[-4-]}
<MI 20884 BLE 0x208be> {[-4-]}
<POP 20886-208be Naked> Σ-4 ↓
<Blob 0x20886 [22] @> Δ-22 {[-4-]|[«22""»]}
<POP 20898-2089a StackAdj> Δ-8 {[-4-]|[«22""»]|[-8-]}
<Lit 0x2089a 21> {[-4-]|[«22""»]|[-4-]|[$$Parameter too long :_]}
<POP 208aa-208ac StackAdj> Δ-4 {[-4-]|[«22""»]|[-4-]|[$$Parameter too long :_]|[-4-]}
<MI 208ac MOVE.L (A6+0xc),(A7)> {[-4-]|[«22""»]|[-4-]|[$$Parameter too long :_]|[4, '(A6+0xc)']}
<Call 0x208ae 0x102d0> {[-4-]|[«22""»]|[-4-]|[$$Parameter too long :_]|[4, '(A6+0xc)']}
StringCat2(a, b : String) : String
<POP 208b4-208b6 StackAdj> Δ+8 {[-4-]|[«22""»]|[-4-]}
<Call 0x208b6 0x2055c> {[-4-]|[«22""»]|[-4-]}
<POP 208ba-208be StackAdj> Δ+26 {[-4-]}
<POP 208be-208c8 Naked> Σ-4 Δ-4 ↓ ←0x2087c
<MI 208be MOVEA.L (A7),A0> {[-4-]}
<MI 208c0 MOVE.W (A0),D0> {[-4-]}
<MI 208c2 EXTW.L D0> {[-4-]}
<MI 208c4 MOVE.L D0,-(A7)> Δ-4 {[-4-]|[4, 'D0']}
<MI 208c6 MOVEQ.L #0x01,D7> {[-4-]|[4, 'D0']}
<POP 208c8-208cc Naked> Σ-8 ↓ →0x20932 ←0x2092e
<MI 208c8 CMP.L (A7),D7> {[-8-]}
<MI 208ca BGT 0x20932> {[-8-]}
<POP 208cc-208e4 Naked> Σ-8 ↓ →0x208ea
<MI 208cc MOVE.L D7,D0> {[-8-]}
<MI 208ce SUBQ.L #0x1,D0> {[-8-]}
<POP 0x208d0 LimitCheck 0x0 ≤ D0 ≤ 0x7d> {[-8-]}
<MI 208d6 MOVEA.L (A7+0x4),A0> {[-8-]}
<MI 208da MOVE.B (A0+D0.L+#0x2),D1> {[-8-]}
<MI 208de CMPI.B #0x30,D1> {[-8-]}
<MI 208e2 BCS 0x208ea> {[-8-]}
<POP 208e4-208ea Naked> Σ-8 ↓ →0x2092e
<MI 208e4 CMPI.B #0x39,D1> {[-8-]}
<MI 208e8 BLS 0x2092e> {[-8-]}
<POP 208ea-208f0 Naked> Σ-8 ↓ →0x208f6 ←0x208cc
<MI 208ea CMPI.B #0x41,D1> {[-8-]}
<MI 208ee BCS 0x208f6> {[-8-]}
<POP 208f0-208f6 Naked> Σ-8 ↓ →0x2092e
<MI 208f0 CMPI.B #0x46,D1> {[-8-]}
<MI 208f4 BLS 0x2092e> {[-8-]}
<POP 208f6-2092e Naked> Σ-8 ↓ ←0x208ea
<Blob 0x208f6 [28] @> Δ-28 {[-8-]|[«28""»]}
<POP 20908-2090a StackAdj> Δ-8 {[-8-]|[«28""»]|[-8-]}
<Lit 0x2090a 27> {[-8-]|[«28""»]|[-4-]|[$$Illegal STRING parameter :_]}
<POP 2091a-2091c StackAdj> Δ-4 {[-8-]|[«28""»]|[-4-]|[$$Illegal STRING parameter :_]|[-4-]}
<MI 2091c MOVE.L (A6+0xc),(A7)> {[-8-]|[«28""»]|[-4-]|[$$Illegal STRING parameter :_]|[4, '(A6+0xc)']}
<Call 0x2091e 0x102d0> {[-8-]|[«28""»]|[-4-]|[$$Illegal STRING parameter :_]|[4, '(A6+0xc)']}
StringCat2(a, b : String) : String
<POP 20924-20926 StackAdj> Δ+8 {[-8-]|[«28""»]|[-4-]}
<Call 0x20926 0x2055c> {[-8-]|[«28""»]|[-4-]}
<POP 2092a-2092e StackAdj> Δ+32 {[-8-]}
<POP 2092e-20932 Naked> Σ-8 ↓ →0x208c8 ←0x208e4 ←0x208f0
<MI 2092e ADDQ.L #0x1,D7> {[-8-]}
<MI 20930 BVC 0x208c8> {[-8-]}
<POP 20932-2093e Naked> Σ-8 ↓ ←0x208c8
<POP 20932-20934 StackAdj> Δ+4 {[-4-]}
<MI 20934 MOVEA.L (A7),A0> {[-4-]}
<MI 20936 MOVE.W (A0),D0> {[-4-]}
<MI 20938 EXTW.L D0> {[-4-]}
<MI 2093a MOVE.L D0,-(A7)> Δ-4 {[-4-]|[4, 'D0']}
<MI 2093c MOVEQ.L #0x01,D7> {[-4-]|[4, 'D0']}
<POP 2093e-20942 Naked> Σ-8 ↓ →0x20984 ←0x20968
<MI 2093e CMP.L (A7),D7> {[-8-]}
<MI 20940 BGT 0x20984> {[-8-]}
<POP 20942-20966 Naked> Σ-8 ↓ →0x20968
<MI 20942 MOVE.L D7,D0> {[-8-]}
<MI 20944 SUBQ.L #0x1,D0> {[-8-]}
<POP 0x20946 LimitCheck 0x0 ≤ D0 ≤ 0x7d> {[-8-]}
<MI 2094c MOVEA.L (A7+0x4),A0> {[-8-]}
<MI 20950 CLR.L D1> {[-8-]}
<MI 20952 MOVE.B (A0+D0.L+#0x2),D1> {[-8-]}
<MI 20956 SUBI.W #0x0030,D1> {[-8-]}
<MI 2095a EXTW.L D1> {[-8-]}
<MI 2095c MOVE.L D1,D6> {[-8-]}
<MI 2095e CMPI.L #0x00000009,D6> {[-8-]}
<MI 20964 BLE 0x20968> {[-8-]}
<POP 20966-20968 Naked> Σ-8 ↓
<MI 20966 SUBQ.L #0x7,D6> {[-8-]}
<POP 20968-20984 Naked> Σ-8 ↓ →0x2093e ←0x20942
<MI 20968 MOVE.L D7,D0> {[-8-]}
<MI 2096a SUBQ.L #0x1,D0> {[-8-]}
<POP 0x2096c LimitCheck 0x0 ≤ D0 ≤ 0x7d> {[-8-]}
<POP 0x20972 LimitCheck 0x0 ≤ D6 ≤ 0xff> {[-8-]}
<MI 2097c MOVE.B D6,(A0+D0.L+#0x2)> {[-8-]}
<MI 20980 ADDQ.L #0x1,D7> {[-8-]}
<MI 20982 BVC 0x2093e> {[-8-]}
<POP 20984-20994 Naked> Σ-8 Δ+4 ↓ →0x20a0a ←0x2093e
<POP 20984-20986 StackAdj> Δ+4 {[-4-]}
<MI 20986 MOVEA.L (A7),A0> {[-4-]}
<MI 20988 MOVE.L (A6+0x8),D0> {[-4-]}
<MI 2098a ASL.L #0x1,D0> {[-4-]}
<MI 2098c MOVE.W (A0),D1> {[-4-]}
<MI 2098e EXTW.L D1> {[-4-]}
<MI 20990 CMP.L D0,D1> {[-4-]}
<MI 20992 BEQ 0x20a0a> {[-4-]}
<POP 20994-209a4 Naked> Σ-4 ↓
<MI 20994 MOVEQ.L #0x02,D4> {[-4-]}
<MI 20996 MOVE.L (A6+0x8),D3> {[-4-]}
<Call 0x20998 0x1028c> {[-4-]}
?muls_d3_d4
<MI 2099e MOVE.L D4,D6> {[-4-]}
<MI 209a0 SUB.L D1,D6> {[-4-]}
<MI 209a2 MOVE.L D1,D7> {[-4-]}
<POP 209a4-209a8 Naked> Σ-4 ↓ →0x209ca ←0x209a8
<MI 209a4 CMP.L #0x01,D7> {[-4-]}
<MI 209a6 BLT 0x209ca> {[-4-]}
<POP 209a8-209ca Naked> Σ-4 ↓ →0x209a4
<MI 209a8 MOVE.L D7,D0> {[-4-]}
<MI 209aa ADD.L D6,D0> {[-4-]}
<MI 209ac SUBQ.L #0x1,D0> {[-4-]}
<POP 0x209ae LimitCheck 0x0 ≤ D0 ≤ 0x7d> {[-4-]}
<MI 209b4 MOVEA.L (A7),A0> {[-4-]}
<MI 209b6 MOVE.L D7,D1> {[-4-]}
<MI 209b8 SUBQ.L #0x1,D1> {[-4-]}
<POP 0x209ba LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-4-]}
<MI 209c0 MOVE.B (A0+D1.L+#0x2),(A0+D0.L+#0x2)> {[-4-]}
<MI 209c6 SUBQ.L #0x1,D7> {[-4-]}
<MI 209c8 BVC 0x209a4> {[-4-]}
<POP 209ca-209ce Naked> Σ-4 Δ-4 ↓ ←0x209a4
<MI 209ca MOVE.L D6,-(A7)> Δ-4 {[-4-]|[4, 'D6']}
<MI 209cc MOVEQ.L #0x01,D7> {[-4-]|[4, 'D6']}
<POP 209ce-209d2 Naked> Σ-8 ↓ →0x209e8 ←0x209d2
<MI 209ce CMP.L (A7),D7> {[-8-]}
<MI 209d0 BGT 0x209e8> {[-8-]}
<POP 209d2-209e8 Naked> Σ-8 ↓ →0x209ce
<MI 209d2 MOVE.L D7,D0> {[-8-]}
<MI 209d4 SUBQ.L #0x1,D0> {[-8-]}
<POP 0x209d6 LimitCheck 0x0 ≤ D0 ≤ 0x7d> {[-8-]}
<MI 209dc MOVEA.L (A7+0x4),A0> {[-8-]}
<MI 209e0 CLR.B (A0+D0.L+#0x2)> {[-8-]}
<MI 209e4 ADDQ.L #0x1,D7> {[-8-]}
<MI 209e6 BVC 0x209ce> {[-8-]}
<POP 209e8-20a0a Naked> Σ-8 Δ+4 ↓ ←0x209ce
<POP 209e8-209ea StackAdj> Δ+4 {[-4-]}
<MI 209ea MOVEA.L (A7),A0> {[-4-]}
<MI 209ec MOVE.W (A0),D0> {[-4-]}
<MI 209ee EXTW.L D0> {[-4-]}
<MI 209f0 ADD.L D6,D0> {[-4-]}
<POP 0x209f2 LimitCheck -0x8000 ≤ D0 ≤ 0x7fff> {[-4-]}
<MI 20a08 MOVE.W D0,(A0)> {[-4-]}
<POP 20a0a-20a0c Naked> Σ-4 Δ+4 ↓ ←0x20984
<POP 20a0a-20a0c StackAdj> Δ+4 {}
<POP 20a0c-20a14 Epilogue> Σ0
@ 20a14
<LVAR 0x008 4(r)>
<LVAR -0x00e @ 4(rw)>
<LVAR -0x010 1(rw)>
<POP 20a14-20b50 Body> Δ-4
<POP 20a14-20a2a Prologue> Σ0 ↓
<POP 20a2a-20a3c RegCacheLoad> Σ0 ↓
<POP 20a3c-20a44 Naked> Σ0 Δ-4 ↓
<MI 20a3c CLR.B (A6-0x10)> {}
<MI 20a3e MOVEQ.L #0x03,D5> {}
<MI 20a40 MOVEA.L 0x258ce,A0> {}
<MI 20a42 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<POP 20a44-20a52 Naked> Σ-4 Δ-4 ↓ →0x20b46 ←0x20b3e
<MI 20a44 MOVEA.L (A7),A0> {[-4-]}
<MI 20a46 MOVEA.L (A0+0xf4),A1> {[-4-]}
<MI 20a4a MOVE.L A1,-(A7)> Δ-4 {[-4-]|[4, 'A1']}
<MI 20a4c CMPA.W #0x01,A1> {[-4-]|[4, 'A1']}
<MI 20a4e BEQ 0x20b46> {[-4-]|[4, 'A1']}
<POP 20a52-20a58 Naked> Σ-8 ↓ →0x20b46
<MI 20a52 TST.B (A6-0x10)> {[-8-]}
<MI 20a54 BNE 0x20b46> {[-8-]}
<POP 20a58-20a5e Naked> Σ-8 ↓ →0x20a64
<MI 20a58 MOVE.B (A1),D0> {[-8-]}
<MI 20a5a LSR.B #0x7,D0> {[-8-]}
<MI 20a5c BNE 0x20a64> {[-8-]}
<POP 20a5e-20a64 Naked> Σ-8 →0x20b3e
<MI 20a5e MOVE.B #0x01,(A6-0x10)> {[-8-]}
<MI 20a60 BRA 0x20b3e> {[-8-]}
<POP 20a64-20a7e Naked> Σ-8 ↓ →0x20a9e ←0x20a58
<POP 20a64-20a66 StackAdj> Δ-4 {[-12-]}
<MI 20a66 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']}
<MI 20a6a MOVE.L D5,-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']|[4, 'D5']}
<Call 0x20a6c 0x22b6a> {[-12-]|[4, '(A6+0x8)']|[4, 'D5']}
<POP 20a72-20a74 StackAdj> Δ+8 {[-12-]}
<MI 20a74 MOVE.L (A7)+,(A6-0xe)> Δ+4 {[-8-]}
<MI 20a76 MOVE.B (A1),D0> {[-8-]}
<MI 20a78 LSL.B #0x1,D0> {[-8-]}
<MI 20a7a LSR.B #0x7,D0> {[-8-]}
<MI 20a7c BEQ 0x20a9e> {[-8-]}
<POP 20a7e-20a9e Naked> Σ-8 →0x20b34
<Blob 0x20a7e [4] 0x258ce> Δ-4 {[-8-]|[«4»]}
<POP 20a80-20a82 StackAdj> Δ-2 {[-8-]|[«4»]|[-2-]}
<MI 20a82 MOVE.L (A6-0xe),-(A7)> Δ-4 {[-8-]|[«4»]|[-2-]|[4, '(A6-0xe)']}
<Call 0x20a84 0x2071c> {[-8-]|[«4»]|[-2-]|[4, '(A6-0xe)']}
<POP 20a88-20a8a StackAdj> Δ+4 {[-8-]|[«4»]|[-2-]}
<MI 20a8a MOVE.B (A7),D0> {[-8-]|[«4»]|[-2-]}
<MI 20a8c EXTB.W D0> {[-8-]|[«4»]|[-2-]}
<POP 0x20a8e LimitCheck 0x0 ≤ D0 ≤ 0x1> {[-8-]|[«4»]|[-2-]}
<MI 20a90 MOVE.B D0,(A7)> {[-8-]|[«4»]|[-2-]}
<Call 0x20a92 0x1046c> {[-8-]|[«4»]|[-2-]}
ExpInputFlag(exp : Pointer; val : Word)
<POP 20a98-20a9a StackAdj> Δ+6 {[-8-]}
<MI 20a9a BRA 0x20b34> {[-8-]}
<POP 20a9e-20ac0 Naked> Σ-8 Δ-4 ↓ ←0x20a64
<MI 20a9e MOVE.L (A6-0xe),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xe)']}
<MI 20aa0 CLR.L D0> {[-8-]|[4, '(A6-0xe)']}
<MI 20aa2 MOVE.B (A1),D0> {[-8-]|[4, '(A6-0xe)']}
<MI 20aa4 LSL.B #0x2,D0> {[-8-]|[4, '(A6-0xe)']}
<MI 20aa6 LSR.B #0x2,D0> {[-8-]|[4, '(A6-0xe)']}
<MI 20aa8 MOVE.L D0,-(A7)> Δ-4 {[-8-]|[4, '(A6-0xe)']|[4, 'D0']}
<Call 0x20aaa 0x207f0> {[-8-]|[4, '(A6-0xe)']|[4, 'D0']}
<POP 20aae-20ab0 StackAdj> Δ+8 {[-8-]}
<MI 20ab0 CLR.L D0> {[-8-]}
<MI 20ab2 MOVE.B (A1),D0> {[-8-]}
<MI 20ab4 LSL.B #0x2,D0> {[-8-]}
<MI 20ab6 LSR.B #0x2,D0> {[-8-]}
<MI 20ab8 SUBQ.W #0x1,D0> {[-8-]}
<MI 20aba EXTW.L D0> {[-8-]}
<MI 20abc MOVE.L D0,-(A7)> Δ-4 {[-8-]|[4, 'D0']}
<MI 20abe MOVEQ.L #0x00,D7> {[-8-]|[4, 'D0']}
<POP 20ac0-20ac4 Naked> Σ-12 ↓ →0x20b26 ←0x20ac4
<MI 20ac0 CMP.L (A7),D7> {[-12-]}
<MI 20ac2 BGT 0x20b26> {[-12-]}
<POP 20ac4-20b26 Naked> Σ-12 ↓ →0x20ac0
<MI 20ac4 MOVEA.L (A6-0xe),A0> {[-12-]}
<MI 20ac6 MOVE.L D7,D0> {[-12-]}
<MI 20ac8 ADD.L D7,D0> {[-12-]}
<MI 20aca MOVE.L D0,D1> {[-12-]}
<MI 20acc ADDQ.L #0x1,D1> {[-12-]}
<MI 20ace SUBQ.L #0x1,D1> {[-12-]}
<POP 0x20ad0 LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-12-]}
<MI 20ad6 CLR.L D2> {[-12-]}
<MI 20ad8 MOVE.B (A0+D1.L+#0x2),D2> {[-12-]}
<MI 20adc ASL.W #0x4,D2> {[-12-]}
<MI 20ade ADDQ.L #0x2,D0> {[-12-]}
<MI 20ae0 SUBQ.L #0x1,D0> {[-12-]}
<POP 0x20ae2 LimitCheck 0x0 ≤ D0 ≤ 0x7d> {[-12-]}
<MI 20ae8 CLR.L D1> {[-12-]}
<MI 20aea MOVE.B (A0+D0.L+#0x2),D1> {[-12-]}
<MI 20aee ADD.W D2,D1> {[-12-]}
<MI 20af0 EXTW.L D1> {[-12-]}
<MI 20af2 MOVE.L D1,D6> {[-12-]}
<MI 20af4 MOVEA.L (A7+0x4),A0> {[-12-]}
<MI 20af8 CLR.L D0> {[-12-]}
<MI 20afa MOVE.B (A0+0x1),D0> {[-12-]}
<MI 20afe ADD.L D7,D0> {[-12-]}
<MI 20b00 SUBI.L #0x00000010,D0> {[-12-]}
<POP 0x20b06 LimitCheck 0x0 ≤ D0 ≤ 0xef> {[-12-]}
<MI 20b10 MOVEA.L (A7+0x8),A0> {[-12-]}
<POP 0x20b14 LimitCheck 0x0 ≤ D6 ≤ 0xff> {[-12-]}
<MI 20b1e MOVE.B D6,(A0+D0.L+#0x4)> {[-12-]}
<MI 20b22 ADDQ.L #0x1,D7> {[-12-]}
<MI 20b24 BVC 0x20ac0> {[-12-]}
<POP 20b26-20b34 Naked> Σ-12 Δ+4 ↓ ←0x20ac0
<POP 20b26-20b28 StackAdj> Δ+4 {[-8-]}
<MI 20b28 MOVEA.L (A7+0x4),A0> {[-8-]}
<MI 20b2c MOVEA.L (A7),A1> {[-8-]}
<MI 20b2e MOVE.L (A1+0x2),(A0+0xf4)> {[-8-]}
<POP 20b34-20b3e Naked> Σ-8 ↓ ←0x20a7e
<Pointer.fp 0x20b34 <LVAR -0x00e @ 4(rw)>> Δ-4 {[-8-]|[@@-14]}
<Call 0x20b36 0x102bc> {[-8-]|[@@-14]}
FreeString(VAR a : String)
<POP 20b3c-20b3e StackAdj> Δ+4 {[-8-]}
<POP 20b3e-20b46 Naked> Σ-8 Δ+4 →0x20a44 ←0x20a5e
<MI 20b3e ADDQ.L #0x1,D5> {[-8-]}
<POP 20b40-20b42 StackAdj> Δ+4 {[-4-]}
<MI 20b42 BRA 0x20a44> {[-4-]}
<POP 20b46-20b48 Naked> Σ-8 Δ+8 ↓ ←0x20a44 ←0x20a52
<POP 20b46-20b48 StackAdj> Δ+8 {}
<POP 20b48-20b50 Epilogue> Σ0
@ 20b50
<LVAR -0x00e 4(r)>
<LVAR -0x012 @ 4(r)>
<LVAR -0x01b @>
<LVAR -0x022 @>
<LVAR -0x024 2(r)>
<LVAR -0x026 2(r)>
<LVAR -0x028 @ 2(r)>
<LVAR -0x02d @>
<LVAR -0x02e 1(r)>
<LVAR -0x02f 1(r)>
<LVAR -0x030 1(r)>
<LVAR -0x031 @ 1(r)>
<LVAR -0x032 1(r)>
<LVAR -0x033 1(r)>
<LVAR -0x034 @ 1(r)>
<LVAR -0x036 @ 2(r)>
<LVAR -0x037 @ 1(r)>
<LVAR -0x038 @ 1(r)>
<LVAR -0x03c @ 4(rw)>
<LVAR -0x040 @ 4(w)>
<POP 20b50-20e64 Body> Δ+68
<POP 20b50-20b66 Prologue> Σ0 ↓
<POP 20b66-20b78 RegCacheLoad> Σ0 ↓
<POP 20b78-20b88 Naked> Σ0 Δ-4 ↓
<POP 20b78-20b7a StackAdj> Δ-4 {[-4-]}
<Call 0x20b7a 0x21e82> {[-4-]}
<MI 20b80 MOVE.L (A7)+,(A6-0x40)> Δ+4 {}
<MI 20b84 MOVEA.L 0x258ce,A0> {}
<MI 20b86 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<POP 20b88-20b94 Naked> Σ-4 ↓ →0x20e5a ←0x20e3a
<MI 20b88 MOVEA.L (A7),A0> {[-4-]}
<MI 20b8a MOVEA.L (A0+0xf4),A1> {[-4-]}
<MI 20b8e CMPA.W #0x01,A1> {[-4-]}
<MI 20b90 BEQ 0x20e5a> {[-4-]}
<POP 20b94-20b9c Naked> Σ-4 ↓ →0x20bfe
<MI 20b94 MOVE.B (A1),D0> {[-4-]}
<MI 20b96 LSL.B #0x1,D0> {[-4-]}
<MI 20b98 LSR.B #0x7,D0> {[-4-]}
<MI 20b9a BEQ 0x20bfe> {[-4-]}
<POP 20b9c-20bb0 Naked> Σ-4 ↓ →0x20bd0
<Blob 0x20b9c [4] 0x258ce> Δ-4 {[-4-]|[«4»]}
<Pointer.fp 0x20b9e <LVAR -0x038 @ 1(r)>> Δ-4 {[-4-]|[«4»]|[@@-56]}
<Call 0x20ba2 0x10478> {[-4-]|[«4»]|[@@-56]}
ExpOutputFlag(exp : Pointer; VAR status : Bool)
<POP 20ba8-20baa StackAdj> Δ+8 {[-4-]}
<MI 20baa TST.B (A6-0x38)> {[-4-]}
<MI 20bae BEQ 0x20bd0> {[-4-]}
<POP 20bb0-20bd0 Naked> Σ-4 →0x20bfa
<Blob 0x20bb0 [4] @> Δ-4 {[-4-]|[«4""»]}
<POP 20bb4-20bb6 StackAdj> Δ-4 {[-4-]|[«4""»]|[-4-]}
<Lit 0x20bb6 4> {[-4-]|[«4""»]|[$$TRUE]}
<MI 20bc8 MOVE.L (A7)+,(A6-0x3c)> Δ+4 {[-4-]|[«4""»]}
<POP 20bcc-20bce StackAdj> Δ+4 {[-4-]}
<MI 20bce BRA 0x20bfa> {[-4-]}
<POP 20bd0-20bfa Naked> Σ-4 ↓ ←0x20b9c
<Blob 0x20bd0 [6] @> Δ-6 {[-4-]|[«6""»]}
<POP 20be0-20be2 StackAdj> Δ-4 {[-4-]|[«6""»]|[-4-]}
<Lit 0x20be2 5> {[-4-]|[«6""»]|[$$FALSE]}
<MI 20bf4 MOVE.L (A7)+,(A6-0x3c)> Δ+4 {[-4-]|[«6""»]}
<POP 20bf8-20bfa StackAdj> Δ+6 {[-4-]}
<POP 20bfa-20bfe Naked> Σ-4 →0x20e20 ←0x20bb0
<MI 20bfa BRA 0x20e20> {[-4-]}
<POP 20bfe-20c1c Naked> Σ-4 →0x20c2c →0x20c5a →0x20c7c →0x20cba →0x20cee →0x20d2c →0x20d56 →0x20d82 ←0x20b94
<MI 20bfe CLR.L D0> {[-4-]}
<MI 20c00 MOVE.B (A1),D0> {[-4-]}
<MI 20c02 LSL.B #0x2,D0> {[-4-]}
<MI 20c04 LSR.B #0x2,D0> {[-4-]}
<MI 20c06 MOVE.W D0,D1> {[-4-]}
<MI 20c08 SUBQ.W #0x1,D1> {[-4-]}
<POP 0x20c0a LimitCheck 0x0 ≤ D1 ≤ 0x7> {[-4-]}
<MI 20c12 ADD.W D1,D1> {[-4-]}
<MI 20c14 SWITCH D1.W> {[-4-]}
<POP 20c2c-20c48 Naked> Σ-4 Δ-14 ↓ ←0x20bfe
<Blob 0x20c2c [4] 0x258ce> Δ-4 {[-4-]|[«4»]}
<Pointer.fp 0x20c2e <LVAR -0x037 @ 1(r)>> Δ-4 {[-4-]|[«4»]|[@@-55]}
<Const 0x20c32 0x0.4> Δ-4 {[-4-]|[«4»]|[@@-55]|[##0]}
<Const 0x20c34 0x0.4> Δ-4 {[-4-]|[«4»]|[@@-55]|[##0]|[##0]}
<Call 0x20c36 0x10472> {[-4-]|[«4»]|[@@-55]|[##0]|[##0]}
ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
<POP 20c3c-20c3e StackAdj> Δ+14 {[-4-]|[-2-]}
<MI 20c3e MOVE.B (A6-0x37),(A7)> {[-6-]}
<MI 20c42 PEA.L (A7)> Δ-4 {[-6-]|[4, '^(A7)']}
<Const 0x20c44 0x0.4> Δ-4 {[-6-]|[4, '^(A7)']|[##0]}
<Const 0x20c46 0x0.4> Δ-4 {[-6-]|[4, '^(A7)']|[##0]|[##0]}
<POP 20c48-20c5a Naked> Σ-18 Δ+14 →0x20dba ←0x20c5a
<Pointer.fp 0x20c48 <LVAR -0x012 @ 4(r)>> Δ-4 {[-18-]|[@@-18]}
<Call 0x20c4c 0x104b4> {[-18-]|[@@-18]}
?FS104b4(VAR a: Long; b: L; MOD c: L; VAR d : Q)
<POP 20c52-20c56 StackAdj> Δ+18 {[-4-]}
<MI 20c56 BRA 0x20dba> {[-4-]}
<POP 20c5a-20c7c Naked> Σ-4 Δ-14 →0x20c48 ←0x20bfe
<Blob 0x20c5a [4] 0x258ce> Δ-4 {[-4-]|[«4»]}
<Pointer.fp 0x20c5c <LVAR -0x036 @ 2(r)>> Δ-4 {[-4-]|[«4»]|[@@-54]}
<Const 0x20c60 0x0.4> Δ-4 {[-4-]|[«4»]|[@@-54]|[##0]}
<Const 0x20c62 0x1.4> Δ-4 {[-4-]|[«4»]|[@@-54]|[##0]|[##1]}
<Call 0x20c66 0x10472> {[-4-]|[«4»]|[@@-54]|[##0]|[##1]}
ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
<POP 20c6c-20c6e StackAdj> Δ+14 {[-4-]|[-2-]}
<MI 20c6e MOVE.W (A6-0x36),(A7)> {[-4-]|[2, '(A6-0x36)']}
<MI 20c72 PEA.L (A7)> Δ-4 {[-4-]|[2, '(A6-0x36)']|[4, '^(A7)']}
<Const 0x20c74 0x0.4> Δ-4 {[-4-]|[2, '(A6-0x36)']|[4, '^(A7)']|[##0]}
<Const 0x20c76 0x1.4> Δ-4 {[-4-]|[2, '(A6-0x36)']|[4, '^(A7)']|[##0]|[##1]}
<MI 20c7a BRA 0x20c48> {[-4-]|[2, '(A6-0x36)']|[4, '^(A7)']|[##0]|[##1]}
<POP 20c7c-20ca8 Naked> Σ-4 Δ-16 ↓ ←0x20bfe
<Blob 0x20c7c [4] 0x258ce> Δ-4 {[-4-]|[«4»]}
<Pointer.fp 0x20c7e <LVAR -0x034 @ 1(r)>> Δ-4 {[-4-]|[«4»]|[@@-52]}
<Const 0x20c82 0x0.4> Δ-4 {[-4-]|[«4»]|[@@-52]|[##0]}
<Const 0x20c84 0x2.4> Δ-4 {[-4-]|[«4»]|[@@-52]|[##0]|[##2]}
<Call 0x20c88 0x10472> {[-4-]|[«4»]|[@@-52]|[##0]|[##2]}
ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
<POP 20c8e-20c90 StackAdj> Δ+12 {[-4-]|[«4»]}
<MI 20c90 MOVE.B (A6-0x34),(A7)> {[-4-]|[-4-]}
<MI 20c94 MOVE.B (A6-0x33),(A7+0x1)> {[-4-]|[-4-]}
<MI 20c9a MOVE.B (A6-0x32),(A7+0x2)> {[-4-]|[-4-]}
<MI 20ca0 PEA.L (A7)> Δ-4 {[-4-]|[-4-]|[4, '^(A7)']}
<Const 0x20ca2 0x0.4> Δ-4 {[-4-]|[-4-]|[4, '^(A7)']|[##0]}
<Const 0x20ca4 0x2.4> Δ-4 {[-4-]|[-4-]|[4, '^(A7)']|[##0]|[##2]}
<POP 20ca8-20cba Naked> Σ-20 Δ+16 →0x20dba ←0x20cba
<Pointer.fp 0x20ca8 <LVAR -0x012 @ 4(r)>> Δ-4 {[-20-]|[@@-18]}
<Call 0x20cac 0x104b4> {[-20-]|[@@-18]}
?FS104b4(VAR a: Long; b: L; MOD c: L; VAR d : Q)
<POP 20cb2-20cb6 StackAdj> Δ+20 {[-4-]}
<MI 20cb6 BRA 0x20dba> {[-4-]}
<POP 20cba-20cee Naked> Σ-4 Δ-16 →0x20ca8 ←0x20bfe
<Blob 0x20cba [4] 0x258ce> Δ-4 {[-4-]|[«4»]}
<Pointer.fp 0x20cbc <LVAR -0x031 @ 1(r)>> Δ-4 {[-4-]|[«4»]|[@@-49]}
<Const 0x20cc0 0x0.4> Δ-4 {[-4-]|[«4»]|[@@-49]|[##0]}
<Const 0x20cc2 0x3.4> Δ-4 {[-4-]|[«4»]|[@@-49]|[##0]|[##3]}
<Call 0x20cc6 0x10472> {[-4-]|[«4»]|[@@-49]|[##0]|[##3]}
ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
<POP 20ccc-20cce StackAdj> Δ+12 {[-4-]|[«4»]}
<MI 20cce MOVE.B (A6-0x31),(A7)> {[-4-]|[-4-]}
<MI 20cd2 MOVE.B (A6-0x30),(A7+0x1)> {[-4-]|[-4-]}
<MI 20cd8 MOVE.B (A6-0x2f),(A7+0x2)> {[-4-]|[-4-]}
<MI 20cde MOVE.B (A6-0x2e),(A7+0x3)> {[-4-]|[-4-]}
<MI 20ce4 PEA.L (A7)> Δ-4 {[-4-]|[-4-]|[4, '^(A7)']}
<Const 0x20ce6 0x0.4> Δ-4 {[-4-]|[-4-]|[4, '^(A7)']|[##0]}
<Const 0x20ce8 0x3.4> Δ-4 {[-4-]|[-4-]|[4, '^(A7)']|[##0]|[##3]}
<MI 20cec BRA 0x20ca8> {[-4-]|[-4-]|[4, '^(A7)']|[##0]|[##3]}
<POP 20cee-20d1a Naked> Σ-4 Δ-18 ↓ ←0x20bfe
<Blob 0x20cee [4] 0x258ce> Δ-4 {[-4-]|[«4»]}
<Pointer.fp 0x20cf0 <LVAR -0x02d @>> Δ-4 {[-4-]|[«4»]|[@@-45]}
<Const 0x20cf4 0x0.4> Δ-4 {[-4-]|[«4»]|[@@-45]|[##0]}
<Const 0x20cf6 0x4.4> Δ-4 {[-4-]|[«4»]|[@@-45]|[##0]|[##4]}
<Call 0x20cfa 0x10472> {[-4-]|[«4»]|[@@-45]|[##0]|[##4]}
ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
<POP 20d00-20d01 StackAdj> Δ+16 ↓ {[-4-]}
<Blob 0x20d01 [6] (A6-0x2d)> Δ-6 {[-4-]|[«6»]}
<MI 20d12 PEA.L (A7)> Δ-4 {[-4-]|[«6»]|[4, '^(A7)']}
<Const 0x20d14 0x0.4> Δ-4 {[-4-]|[«6»]|[4, '^(A7)']|[##0]}
<Const 0x20d16 0x4.4> Δ-4 {[-4-]|[«6»]|[4, '^(A7)']|[##0]|[##4]}
<POP 20d1a-20d2c Naked> Σ-22 Δ+18 →0x20dba ←0x20d2c
<Pointer.fp 0x20d1a <LVAR -0x012 @ 4(r)>> Δ-4 {[-22-]|[@@-18]}
<Call 0x20d1e 0x104b4> {[-22-]|[@@-18]}
?FS104b4(VAR a: Long; b: L; MOD c: L; VAR d : Q)
<POP 20d24-20d28 StackAdj> Δ+22 {[-4-]}
<MI 20d28 BRA 0x20dba> {[-4-]}
<POP 20d2c-20d56 Naked> Σ-4 Δ-18 →0x20d1a ←0x20bfe
<Blob 0x20d2c [4] 0x258ce> Δ-4 {[-4-]|[«4»]}
<Pointer.fp 0x20d2e <LVAR -0x028 @ 2(r)>> Δ-4 {[-4-]|[«4»]|[@@-40]}
<Const 0x20d32 0x0.4> Δ-4 {[-4-]|[«4»]|[@@-40]|[##0]}
<Const 0x20d34 0x5.4> Δ-4 {[-4-]|[«4»]|[@@-40]|[##0]|[##5]}
<Call 0x20d38 0x10472> {[-4-]|[«4»]|[@@-40]|[##0]|[##5]}
ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
<POP 20d3e-20d40 StackAdj> Δ+14 {[-4-]|[-2-]}
<MI 20d40 MOVE.W (A6-0x24),(A7)> {[-4-]|[2, '(A6-0x24)']}
<MI 20d44 MOVE.W (A6-0x26),-(A7)> Δ-2 {[-4-]|[2, '(A6-0x24)']|[2, '(A6-0x26)']}
<MI 20d48 MOVE.W (A6-0x28),-(A7)> Δ-2 {[-4-]|[2, '(A6-0x24)']|[2, '(A6-0x26)']|[2, '(A6-0x28)']}
<MI 20d4c PEA.L (A7)> Δ-4 {[-4-]|[2, '(A6-0x24)']|[2, '(A6-0x26)']|[2, '(A6-0x28)']|[4, '^(A7)']}
<Const 0x20d4e 0x0.4> Δ-4 {[-4-]|[2, '(A6-0x24)']|[2, '(A6-0x26)']|[2, '(A6-0x28)']|[4, '^(A7)']|[##0]}
<Const 0x20d50 0x5.4> Δ-4 {[-4-]|[2, '(A6-0x24)']|[2, '(A6-0x26)']|[2, '(A6-0x28)']|[4, '^(A7)']|[##0]|[##5]}
<MI 20d54 BRA 0x20d1a> {[-4-]|[2, '(A6-0x24)']|[2, '(A6-0x26)']|[2, '(A6-0x28)']|[4, '^(A7)']|[##0]|[##5]}
<POP 20d56-20d82 Naked> Σ-4 Δ-20 →0x20dac ←0x20bfe
<Blob 0x20d56 [4] 0x258ce> Δ-4 {[-4-]|[«4»]}
<Pointer.fp 0x20d58 <LVAR -0x022 @>> Δ-4 {[-4-]|[«4»]|[@@-34]}
<Const 0x20d5c 0x0.4> Δ-4 {[-4-]|[«4»]|[@@-34]|[##0]}
<Const 0x20d5e 0x6.4> Δ-4 {[-4-]|[«4»]|[@@-34]|[##0]|[##6]}
<Call 0x20d62 0x10472> {[-4-]|[«4»]|[@@-34]|[##0]|[##6]}
ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
<POP 20d68-20d69 StackAdj> Δ+16 ↓ {[-4-]}
<Blob 0x20d69 [8] (A6-0x22)> Δ-8 {[-4-]|[«8»]}
<MI 20d78 PEA.L (A7)> Δ-4 {[-4-]|[«8»]|[4, '^(A7)']}
<Const 0x20d7a 0x0.4> Δ-4 {[-4-]|[«8»]|[4, '^(A7)']|[##0]}
<Const 0x20d7c 0x6.4> Δ-4 {[-4-]|[«8»]|[4, '^(A7)']|[##0]|[##6]}
<MI 20d80 BRA 0x20dac> {[-4-]|[«8»]|[4, '^(A7)']|[##0]|[##6]}
<POP 20d82-20dac Naked> Σ-4 Δ-20 ↓ ←0x20bfe
<Blob 0x20d82 [4] 0x258ce> Δ-4 {[-4-]|[«4»]}
<Pointer.fp 0x20d84 <LVAR -0x01b @>> Δ-4 {[-4-]|[«4»]|[@@-27]}
<Const 0x20d88 0x0.4> Δ-4 {[-4-]|[«4»]|[@@-27]|[##0]}
<Const 0x20d8a 0x7.4> Δ-4 {[-4-]|[«4»]|[@@-27]|[##0]|[##7]}
<Call 0x20d8e 0x10472> {[-4-]|[«4»]|[@@-27]|[##0]|[##7]}
ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
<POP 20d94-20d95 StackAdj> Δ+16 ↓ {[-4-]}
<Blob 0x20d95 [8] (A6-0x1b)> Δ-8 {[-4-]|[«8»]}
<MI 20da4 PEA.L (A7)> Δ-4 {[-4-]|[«8»]|[4, '^(A7)']}
<Const 0x20da6 0x0.4> Δ-4 {[-4-]|[«8»]|[4, '^(A7)']|[##0]}
<Const 0x20da8 0x7.4> Δ-4 {[-4-]|[«8»]|[4, '^(A7)']|[##0]|[##7]}
<POP 20dac-20dba Naked> Σ-24 Δ+20 ↓ ←0x20d56
<Pointer.fp 0x20dac <LVAR -0x012 @ 4(r)>> Δ-4 {[-24-]|[@@-18]}
<Call 0x20db0 0x104b4> {[-24-]|[@@-18]}
?FS104b4(VAR a: Long; b: L; MOD c: L; VAR d : Q)
<POP 20db6-20dba StackAdj> Δ+24 {[-4-]}
<POP 20dba-20dd0 Naked> Σ-4 ↓ ←0x20c48 ←0x20ca8 ←0x20d1a
<Pointer.fp 0x20dba <LVAR -0x03c @ 4(rw)>> Δ-4 {[-4-]|[@@-60]}
<Call 0x20dbe 0x102b8> {[-4-]|[@@-60]}
NewString(VAR a : String)
<POP 20dc4-20dc6 StackAdj> Δ+4 {[-4-]}
<MI 20dc6 NEG.W D0> {[-4-]}
<MI 20dc8 ADDQ.W #0x8,D0> {[-4-]}
<MI 20dca ASL.W #0x1,D0> {[-4-]}
<MI 20dcc EXTW.L D0> {[-4-]}
<MI 20dce MOVE.L D0,D7> {[-4-]}
<POP 20dd0-20dd4 Naked> Σ-4 ↓ →0x20e20 ←0x20dd4
<MI 20dd0 CMP.L #0x0f,D7> {[-4-]}
<MI 20dd2 BGT 0x20e20> {[-4-]}
<POP 20dd4-20e20 Naked> Σ-4 ↓ →0x20dd0
<POP 20dd4-20dd6 StackAdj> Δ-12 {[-16-]}
<MI 20dd6 MOVE.L (A6-0xe),-(A7)> Δ-4 {[-16-]|[4, '(A6-0xe)']}
<MI 20dda MOVE.L (A6-0x12),-(A7)> Δ-4 {[-16-]|[4, '(A6-0xe)']|[4, '(A6-0x12)']}
<MI 20dde MOVE.L D7,D0> {[-16-]|[4, '(A6-0xe)']|[4, '(A6-0x12)']}
<MI 20de0 ASL.L #0x2,D0> {[-16-]|[4, '(A6-0xe)']|[4, '(A6-0x12)']}
<MI 20de2 MOVE.L D0,-(A7)> Δ-4 {[-16-]|[4, '(A6-0xe)']|[4, '(A6-0x12)']|[4, 'D0']}
<Const 0x20de4 0x4.4> Δ-4 {[-16-]|[4, '(A6-0xe)']|[4, '(A6-0x12)']|[4, 'D0']|[##4]}
<Call 0x20de8 0x1034c> {[-16-]|[4, '(A6-0xe)']|[4, '(A6-0x12)']|[4, 'D0']|[##4]}
FSCALL_1034c
<POP 20dee-20df2 StackAdj> Δ+16 {[-16-]}
<Call 0x20df2 0x10350> {[-16-]}
Quad2Long(a : Quad) : Long
<POP 20df8-20dfa StackAdj> Δ+8 {[-8-]}
<MI 20dfa MOVE.L (A7)+,D6> Δ+4 {[-4-]}
<MI 20dfc MOVE.L (A6-0x3c),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x3c)']}
<MI 20e00 MOVE.L D6,D0> {[-4-]|[4, '(A6-0x3c)']}
<MI 20e02 ADDQ.L #0x1,D0> {[-4-]|[4, '(A6-0x3c)']}
<MI 20e04 SUBQ.L #0x1,D0> {[-4-]|[4, '(A6-0x3c)']}
<POP 0x20e06 LimitCheck 0x0 ≤ D0 ≤ 0xf> {[-4-]|[4, '(A6-0x3c)']}
<MI 20e0c LEA.L 0x20278,A0> {[-4-]|[4, '(A6-0x3c)']}
<MI 20e10 MOVE.B (A0+D0.L),-(A7)> Δ-2 {[-4-]|[4, '(A6-0x3c)']|[2, '(A0+D0.L)']}
<Call 0x20e14 0x102c0> {[-4-]|[4, '(A6-0x3c)']|[2, '(A0+D0.L)']}
AppendChar(MOD b : String; a : char)
<POP 20e1a-20e1c StackAdj> Δ+6 {[-4-]}
<MI 20e1c ADDQ.L #0x1,D7> {[-4-]}
<MI 20e1e BVC 0x20dd0> {[-4-]}
<POP 20e20-20e2a Naked> Σ-4 ↓ →0x20e3a ←0x20bfa ←0x20dd0
<MI 20e20 MOVEA.L (A7),A0> {[-4-]}
<MI 20e22 MOVEA.L (A0+0xf4),A0> {[-4-]}
<MI 20e26 CMPA.W #0x01,A0> {[-4-]}
<MI 20e28 BEQ 0x20e3a> {[-4-]}
<POP 20e2a-20e3a Naked> Σ-4 ↓
<MI 20e2a MOVE.L (A6-0x3c),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x3c)']}
<Const 0x20e2e 0x2c.2> Δ-2 {[-4-]|[4, '(A6-0x3c)']|[#44]}
<Call 0x20e32 0x102c0> {[-4-]|[4, '(A6-0x3c)']|[#44]}
AppendChar(MOD b : String; a : char)
<POP 20e38-20e3a StackAdj> Δ+6 {[-4-]}
<POP 20e3a-20e5a Naked> Σ-4 →0x20b88 ←0x20e20
<Pointer.fp 0x20e3a <LVAR -0x040 @ 4(w)>> Δ-4 {[-4-]|[@@-64]}
<MI 20e3e MOVE.L (A6-0x3c),-(A7)> Δ-4 {[-4-]|[@@-64]|[4, '(A6-0x3c)']}
<Call 0x20e42 0x22420> {[-4-]|[@@-64]|[4, '(A6-0x3c)']}
<POP 20e48-20e4a StackAdj> Δ+8 {[-4-]}
<Pointer.fp 0x20e4a <LVAR -0x03c @ 4(rw)>> Δ-4 {[-4-]|[@@-60]}
<Call 0x20e4e 0x102bc> {[-4-]|[@@-60]}
FreeString(VAR a : String)
<POP 20e54-20e56 StackAdj> Δ+4 {[-4-]}
<MI 20e56 BRA 0x20b88> {[-4-]}
<POP 20e5a-20e5c Naked> Σ-4 Δ+4 ↓ ←0x20b88
<POP 20e5a-20e5c StackAdj> Δ+4 {}
<POP 20e5c-20e64 Epilogue> Σ0
@ 20e64
<LVAR 0x008 1(r)>
<LVAR -0x003 @ 1(r)>
<LVAR -0x004 @>
<LVAR -0x008 @ 4(rw)>
<LVAR -0x00a @ 1(r)>
<POP 20e64-21098 Body> Δ+48
<POP 20e64-20e7a Prologue> Σ0 ↓
<POP 20e7a-20e90 RegCacheLoad> Σ0 ↓
<POP 20e90-20ea0 Naked> Σ0 ↓ →0x20ec2
<MI 20e90 MOVEQ.L #0x00,D7> {}
<MI 20e92 MOVE.B (A6+0x8),D0> {}
<MI 20e94 EXTB.W D0> {}
<MI 20e96 LEA.L 0x2047c,A0> {}
<MI 20e9a TST.B (A0+D0.W)> {}
<MI 20e9e BNE 0x20ec2> {}
<POP 20ea0-20ec2 Naked> Σ0 ↓
<Blob 0x20ea0 [38] @> Δ-38 {[«38""»]}
<POP 20eac-20eae StackAdj> Δ-4 {[«38""»]|[-4-]}
<Lit 0x20eae 38> {[«38""»]|[$$Can't execute multi-board experiments!]}
<Call 0x20ebc 0x2055c> {[«38""»]|[$$Can't execute multi-board experiments!]}
<POP 20ebe-20ec2 StackAdj> Δ+42 {}
<POP 20ec2-20eee Naked> Σ0 ↓ →0x20f12 ←0x20e90
<MI 20ec2 MOVE.B D0,-(A7)> Δ-2 {[2, 'D0']}
<Blob 0x20ec4 [4] 0x258ce> Δ-4 {[2, 'D0']|[«4»]}
<Call 0x20eca 0x1047e> {[2, 'D0']|[«4»]}
ExpXmit(adr : Byte; b : Pointer)
<POP 20ed0-20ed2 StackAdj> Δ+4 {[2, 'D0']}
<MI 20ed2 MOVE.B D0,(A7)> {[-2-]}
<Pointer.fp 0x20ed4 <LVAR -0x00a @ 1(r)>> Δ-4 {[-2-]|[@@-10]}
<Pointer.fp 0x20ed8 <LVAR -0x004 @>> Δ-4 {[-2-]|[@@-10]|[@@-4]}
<Pointer.fp 0x20edc <LVAR -0x003 @ 1(r)>> Δ-4 {[-2-]|[@@-10]|[@@-4]|[@@-3]}
<Call 0x20ee0 0x10484> {[-2-]|[@@-10]|[@@-4]|[@@-3]}
DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool)
<POP 20ee6-20ee8 StackAdj> Δ+14 {}
<MI 20ee8 TST.B (A6-0x3)> {}
<MI 20eec BNE 0x20f12> {}
<POP 20eee-20f12 Naked> Σ0 ↓
<Blob 0x20eee [16] @> Δ-16 {[«16""»]}
<POP 20efe-20f00 StackAdj> Δ-4 {[«16""»]|[-4-]}
<Lit 0x20f00 15> {[«16""»]|[$$8751 I/O error!]}
<Call 0x20f0e 0x2055c> {[«16""»]|[$$8751 I/O error!]}
<POP 20f10-20f12 StackAdj> Δ+20 {}
<POP 20f12-20f24 Naked> Σ0 ↓ →0x2103c ←0x20ec2 ←0x2108a
<MI 20f12 MOVE.B (A6-0xa),D0> {}
<MI 20f16 EXTB.W D0> {}
<MI 20f18 MOVE.W D0,D1> {}
<MI 20f1a SUBQ.W #0x1,D1> {}
<MI 20f1c CMPI.W #0x0008,D1> {}
<MI 20f20 BHI 0x2103c> {}
<POP 20f24-20f2e Naked> Σ0 →0x20f40 →0x20f96 →0x20f96 →0x20f46 →0x20f6a →0x20f86 →0x2103c →0x2103c →0x20f78
<MI 20f24 ADD.W D1,D1> {}
<MI 20f26 SWITCH D1.W> {}
<POP 20f40-20f46 Naked> Σ0 →0x21070 ←0x20f24
<MI 20f40 MOVEQ.L #0x01,D7> {}
<MI 20f42 BRA 0x21070> {}
<POP 20f46-20f52 Naked> Σ0 Δ-20 ↓ ←0x20f24
<Blob 0x20f46 [20] @> Δ-20 {[«20""»]}
<POP 20f52-20f6a Naked> Σ-20 Δ+20 →0x21070 ←0x20f6a ←0x20f78
<POP 20f52-20f54 StackAdj> Δ-4 {[-24-]}
<Lit 0x20f54> {[-20-]|[$$…]}
<Pointer.sp 0x20f54 4> Δ-4
<Const 0x20f58 0x1.2> Δ-2
<Const 0x20f5a 0x14.2> Δ-2
<Call 0x20f5c 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 20f5e-20f60 StackAdj> Δ+8
<Call 0x20f60 0x2055c> {[-20-]|[$$…]}
<POP 20f62-20f66 StackAdj> Δ+24 {}
<MI 20f66 BRA 0x21070> {}
<POP 20f6a-20f78 Naked> Σ0 Δ-20 →0x20f52 ←0x20f24
<Blob 0x20f6a [20] @> Δ-20 {[«20""»]}
<MI 20f76 BRA 0x20f52> {[«20""»]}
<POP 20f78-20f86 Naked> Σ0 Δ-20 →0x20f52 ←0x20f24
<Blob 0x20f78 [20] @> Δ-20 {[«20""»]}
<MI 20f84 BRA 0x20f52> {[«20""»]}
<POP 20f86-20f90 Naked> Σ0 Δ-4 ↓ ←0x20f24
<Const 0x20f86 0x28b.4> Δ-4 {[##651]}
<Call 0x20f8a 0x10224> {[##651]}
KC12_Sleep(dur: Long)
<POP 20f90-20f96 Naked> Σ-4 Δ+4 →0x21070 ←0x2102e
<POP 20f90-20f92 StackAdj> Δ+4 {}
<MI 20f92 BRA 0x21070> {}
<POP 20f96-2100c Naked> Σ0 ↓ →0x21010 ←0x20f24 ←0x20f24
<Blob 0x20f96 [10] @> Δ-10 {[«10""»]}
<Blob 0x20fa8 [60] @> Δ-60 {[«10""»]|[«60""»]}
<POP 20fb4-20fb6 StackAdj> Δ-16 {[«10""»]|[«60""»]|[-16-]}
<Lit 0x20fb6 9> {[«10""»]|[«60""»]|[-12-]|[$$Board is_]}
<POP 20fc2-20fc4 StackAdj> Δ-6 {[«10""»]|[«60""»]|[-12-]|[$$Board is_]|[-6-]}
<MI 20fc4 MOVE.B D0,(A7)> {[«10""»]|[«60""»]|[-12-]|[$$Board is_]|[-6-]}
<Call 0x20fc6 0x104a2> {[«10""»]|[«60""»]|[-12-]|[$$Board is_]|[-6-]}
ExpStatus2Text(status.B, &String)
<POP 20fcc-20fce StackAdj> Δ-2 {[«10""»]|[«60""»]|[-12-]|[$$Board is_]|[-8-]}
<Lit 0x20fce 60> {[«10""»]|[«60""»]|[-12-]|[$$Board is_]|[-4-]|[$$, type "C" to continue the experiment or "E" to end it :_ ]}
<Call 0x20fdc 0x102d4> {[«10""»]|[«60""»]|[-12-]|[$$Board is_]|[-4-]|[$$, type "C" to continue the experiment or "E" to end it :_ ]}
StringCat3(a, b, c : String) : String
<POP 20fe2-20fe6 StackAdj> Δ+12 {[«10""»]|[«60""»]|[-12-]}
<Call 0x20fe6 0x103e4> {[«10""»]|[«60""»]|[-12-]}
AskConsoleString(prompt : String) : String
<POP 20fec-20fee StackAdj> Δ+4 {[«10""»]|[«60""»]|[-8-]}
<Call 0x20fee 0x102f0> {[«10""»]|[«60""»]|[-8-]}
ToUpper(a : String) : String
<POP 20ff4-20ff6 StackAdj> Δ+4 {[«10""»]|[«60""»]|[-4-]}
<MI 20ff6 MOVE.L (A7)+,(A6-0x8)> Δ+4 {[«10""»]|[«60""»]}
<POP 20ffa-20ffe StackAdj> Δ+70 {}
<MI 20ffe MOVEA.L (A6-0x8),A0> {}
<MI 21002 MOVE.B (A0+0x2),D1> {}
<MI 21006 CMPI.B #0x45,D1> {}
<MI 2100a BNE 0x21010> {}
<POP 2100c-21010 Naked> Σ0 →0x2102e
<MI 2100c MOVEQ.L #0x01,D7> {}
<MI 2100e BRA 0x2102e> {}
<POP 21010-21016 Naked> Σ0 ↓ →0x2102e ←0x20f96
<MI 21010 CMPI.B #0x43,D1> {}
<MI 21014 BNE 0x2102e> {}
<POP 21016-2101c Naked> Σ0 ↓ →0x21022
<MI 21016 CMPI.B #0x03,D0> {}
<MI 2101a BNE 0x21022> {}
<POP 2101c-21022 Naked> Σ0 Δ-4 →0x21026
<MI 2101c MOVE.B (A6+0x8),-(A7)> Δ-2 {[2, '(A6+0x8)']}
<MI 2101e CLR.B -(A7)> Δ-2 {[2, '(A6+0x8)']|[#0]}
<MI 21020 BRA 0x21026> {[2, '(A6+0x8)']|[#0]}
<POP 21022-21026 Naked> Σ0 Δ-4 ↓ ←0x21016
<MI 21022 MOVE.B (A6+0x8),-(A7)> Δ-2 {[2, '(A6+0x8)']}
<Const 0x21024 0x1.2> Δ-2 {[2, '(A6+0x8)']|[#1]}
<POP 21026-2102e Naked> Σ-4 Δ+4 ↓ ←0x2101c
<Call 0x21026 0x1048a> {[-4-]}
DiProcCmd(board : Byte; cmd : Byte)
<POP 2102c-2102e StackAdj> Δ+4 {}
<POP 2102e-2103c Naked> Σ0 Δ-4 →0x20f90 ←0x2100c ←0x21010
<Pointer.fp 0x2102e <LVAR -0x008 @ 4(rw)>> Δ-4 {[@@-8]}
<Call 0x21032 0x102bc> {[@@-8]}
FreeString(VAR a : String)
<MI 21038 BRA 0x20f90> {[@@-8]}
<POP 2103c-21070 Naked> Σ0 ↓ ←0x20f12 ←0x20f24 ←0x20f24
<Blob 0x2103c [28] @> Δ-28 {[«28""»]}
<POP 21048-2104a StackAdj> Δ-8 {[«28""»]|[-8-]}
<Lit 0x2104a 28> {[«28""»]|[-4-]|[$$Can't handle board status =_]}
<POP 21056-21058 StackAdj> Δ-6 {[«28""»]|[-4-]|[$$Can't handle board status =_]|[-6-]}
<MI 21058 MOVE.B D0,(A7)> {[«28""»]|[-4-]|[$$Can't handle board status =_]|[-6-]}
<Call 0x2105a 0x104a2> {[«28""»]|[-4-]|[$$Can't handle board status =_]|[-6-]}
ExpStatus2Text(status.B, &String)
<POP 21060-21062 StackAdj> Δ+2 {[«28""»]|[-4-]|[$$Can't handle board status =_]|[-4-]}
<Call 0x21062 0x102d0> {[«28""»]|[-4-]|[$$Can't handle board status =_]|[-4-]}
StringCat2(a, b : String) : String
<POP 21068-2106a StackAdj> Δ+8 {[«28""»]|[-4-]}
<Call 0x2106a 0x2055c> {[«28""»]|[-4-]}
<POP 2106c-21070 StackAdj> Δ+32 {}
<POP 21070-21074 Naked> Σ0 ↓ →0x2108a ←0x20f40 ←0x20f52 ←0x20f90
<MI 21070 TST.B D7> {}
<MI 21072 BNE 0x2108a> {}
<POP 21074-2108a Naked> Σ0 ↓
<MI 21074 MOVE.B (A6+0x8),-(A7)> Δ-2 {[2, '(A6+0x8)']}
<Pointer.fp 0x21076 <LVAR -0x00a @ 1(r)>> Δ-4 {[2, '(A6+0x8)']|[@@-10]}
<Pointer.fp 0x2107a <LVAR -0x004 @>> Δ-4 {[2, '(A6+0x8)']|[@@-10]|[@@-4]}
<Pointer.fp 0x2107e <LVAR -0x003 @ 1(r)>> Δ-4 {[2, '(A6+0x8)']|[@@-10]|[@@-4]|[@@-3]}
<Call 0x21082 0x10484> {[2, '(A6+0x8)']|[@@-10]|[@@-4]|[@@-3]}
DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool)
<POP 21088-2108a StackAdj> Δ+14 {}
<POP 2108a-21090 Naked> Σ0 ↓ →0x20f12 ←0x21070
<MI 2108a TST.B D7> {}
<MI 2108c BEQ 0x20f12> {}
<POP 21090-21098 Epilogue> Σ0
@ 21098
<LVAR 0x008 4(r)>
<LVAR -0x004 4(rw)>
<LVAR -0x00e @ 1(r)>
<LVAR -0x014 @ 1(r)>
<POP 21098-21228 Body>
<POP 21098-210ae Prologue> Σ0 ↓
<POP 210ae-210c0 RegCacheLoad> Σ0 ↓
<POP 210c0-210d6 Naked> Σ0 ↓ →0x21100
<POP 210c0-210c2 StackAdj> Δ-4 {[-4-]}
<MI 210c2 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x210c4 0x2224e> {[-4-]|[4, '(A6+0x8)']}
<POP 210ca-210cc StackAdj> Δ+4 {[-4-]}
<MI 210cc MOVE.L (A7)+,D6> Δ+4 {}
<MI 210ce CMPI.L #0x00000002,D6> {}
<MI 210d4 BGE 0x21100> {}
<POP 210d6-21100 Naked> Σ0 ↓
<Blob 0x210d6 [30] @> Δ-30 {[«30""»]}
<POP 210e6-210e8 StackAdj> Δ-4 {[«30""»]|[-4-]}
<Lit 0x210e8 29> {[«30""»]|[$$Insufficient arguments to XEQ]}
<Call 0x210f8 0x21e42> {[«30""»]|[$$Insufficient arguments to XEQ]}
<POP 210fe-21100 StackAdj> Δ+34 {}
<POP 21100-2116e Naked> Σ0 ↓ ←0x210c0
<POP 21100-21102 StackAdj> Δ-4 {[-4-]}
<MI 21102 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x21104 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x21108 0x22b6a> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 2110e-21110 StackAdj> Δ+8 {[-4-]}
<Pointer.fp 0x21110 <LVAR -0x014 @ 1(r)>> Δ-4 {[-4-]|[@@-20]}
<Call 0x21114 0x2065a> {[-4-]|[@@-20]}
<POP 21118-2111a StackAdj> Δ+8 {}
<MI 2111a MOVE.B (A6-0x14),D0> {}
<MI 2111e EXTB.W D0> {}
<MI 21120 ASL.W #0x2,D0> {}
<MI 21122 LEA.L 0x258c6,A0> {}
<MI 21128 MOVE.L (A0+D0.W+#0xc),-(A7)> Δ-4 {[4, '(A0+D0.W+#0xc)']}
<POP 2112c-2112e StackAdj> Δ-8 {[4, '(A0+D0.W+#0xc)']|[-8-]}
<MI 2112e MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A0+D0.W+#0xc)']|[-8-]|[4, '(A6+0x8)']}
<Const 0x21130 0x2.4> Δ-4 {[4, '(A0+D0.W+#0xc)']|[-8-]|[4, '(A6+0x8)']|[##2]}
<Call 0x21134 0x22b6a> {[4, '(A0+D0.W+#0xc)']|[-8-]|[4, '(A6+0x8)']|[##2]}
<POP 2113a-2113c StackAdj> Δ+4 {[4, '(A0+D0.W+#0xc)']|[-8-]|[4, '(A6+0x8)']}
<Lit 0x2113c> {[4, '(A0+D0.W+#0xc)']|[-8-]|[$$…]}
<Pointer.sp 0x2113c 12> Δ-4
<Const 0x21140 0x1.2> Δ-2
<Const 0x21142 0x4.2> Δ-2
<Call 0x21146 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 2114c-2114e StackAdj> Δ+8
<Call 0x2114e 0x102d0> {[4, '(A0+D0.W+#0xc)']|[-8-]|[$$…]}
StringCat2(a, b : String) : String
<POP 21154-21156 StackAdj> Δ+8 {[4, '(A0+D0.W+#0xc)']|[-4-]}
<MI 21156 MOVEA.L (A7)+,A4> Δ+4 {[4, '(A0+D0.W+#0xc)']}
<MI 21158 MOVE.L A4,(A7)> {[4, 'A4']}
<Const 0x2115a 0x258ce.4> Δ-4 {[4, 'A4']|[##153806]}
<Call 0x2115c 0x10460> {[4, 'A4']|[##153806]}
ExpLoad(a : String; b: Pointer)
<POP 21162-21164 StackAdj> Δ+8 {}
<MI 21164 MOVEA.L 0x258ce,A0> {}
<MI 21166 MOVE.L (A0+0xf8),(A6-0x4)> {}
<MI 2116c MOVEQ.L #0x02,D7> {}
<POP 2116e-21176 Naked> Σ0 ↓ →0x21186 ←0x2117e
<MI 2116e MOVEA.L (A6-0x4),A0> {}
<MI 21172 CMPA.W #0x01,A0> {}
<MI 21174 BEQ 0x21186> {}
<POP 21176-2117c Naked> Σ0 ↓ →0x2117e
<MI 21176 MOVE.B (A0),D0> {}
<MI 21178 LSR.B #0x7,D0> {}
<MI 2117a BEQ 0x2117e> {}
<POP 2117c-2117e Naked> Σ0 ↓
<MI 2117c ADDQ.L #0x1,D7> {}
<POP 2117e-21186 Naked> Σ0 →0x2116e ←0x21176
<MI 2117e MOVE.L (A0+0x2),(A6-0x4)> {}
<MI 21184 BRA 0x2116e> {}
<POP 21186-2118a Naked> Σ0 ↓ →0x211b2 ←0x2116e
<MI 21186 CMP.L D6,D7> {}
<MI 21188 BEQ 0x211b2> {}
<POP 2118a-211b2 Naked> Σ0 ↓
<Blob 0x2118a [30] @> Δ-30 {[«30""»]}
<POP 2119a-2119c StackAdj> Δ-4 {[«30""»]|[-4-]}
<Lit 0x2119c 29> {[«30""»]|[$$Insufficient arguments to XEQ]}
<Call 0x211ac 0x2055c> {[«30""»]|[$$Insufficient arguments to XEQ]}
<POP 211b0-211b2 StackAdj> Δ+34 {}
<POP 211b2-211ce Naked> Σ0 ↓ →0x21216 ←0x21186
<MI 211b2 MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<Call 0x211b4 0x20a14> {[4, '(A6+0x8)']}
<POP 211b8-211ba StackAdj> Δ+2 {[-2-]}
<MI 211ba MOVE.B (A6-0x14),(A7)> {[-2-]}
<Call 0x211be 0x20e64> {[-2-]}
<POP 211c2-211c4 StackAdj> Δ+2 {}
<MI 211c4 MOVEA.L 0x258ce,A0> {}
<MI 211c6 MOVE.B (A0+0x11c),D0> {}
<MI 211ca LSR.B #0x7,D0> {}
<MI 211cc BEQ 0x21216> {}
<POP 211ce-211ea Naked> Σ0 ↓ →0x21212
<MI 211ce MOVE.B (A6-0x14),-(A7)> Δ-2 {[2, '(A6-0x14)']}
<Blob 0x211d2 [4] 0x258ce> Δ-4 {[2, '(A6-0x14)']|[«4»]}
<Pointer.fp 0x211d4 <LVAR -0x00e @ 1(r)>> Δ-4 {[2, '(A6-0x14)']|[«4»]|[@@-14]}
<Call 0x211d8 0x10490> {[2, '(A6-0x14)']|[«4»]|[@@-14]}
ExpUpload(adr: Byte; ptr: Pointer; VAR status : Byte)
<POP 211de-211e2 StackAdj> Δ+10 {}
<MI 211e2 MOVE.B (A6-0xe),D0> {}
<MI 211e6 CMP.B #0x01,D0> {}
<MI 211e8 BEQ 0x21212> {}
<POP 211ea-21212 Naked> Σ0 ↓
<Blob 0x211ea [24] @> Δ-24 {[«24""»]}
<POP 211f6-211f8 StackAdj> Δ-4 {[«24""»]|[-4-]}
<Lit 0x211f8 24> {[«24""»]|[$$I/O error during upload!]}
<Call 0x2120a 0x2055c> {[«24""»]|[$$I/O error during upload!]}
<POP 2120e-21212 StackAdj> Δ+28 {}
<POP 21212-21216 Naked> Σ0 ↓ ←0x211ce
<Call 0x21212 0x20b50> {}
<POP 21216-21220 Naked> Σ0 ↓ ←0x211b2
<Const 0x21216 0x258ce.4> Δ-4 {[##153806]}
<Call 0x21218 0x10496> {[##153806]}
ExpClose(exp : Pointer)
<POP 2121e-21220 StackAdj> Δ+4 {}
<POP 21220-21228 Epilogue> Σ0
@ 21228
<LVAR 0x008 4(r)>
<LVAR -0x001 @>
<LVAR -0x002 @ 1(r)>
<LVAR -0x007 @ 1(r)>
<LVAR -0x008 @ 1(r)>
<POP 21228-21346 Body> Δ+26
<POP 21228-2123e Prologue> Σ0 ↓
<POP 2123e-21242 RegCacheLoad> Σ0 ↓
<POP 21242-21288 Naked> Σ0 ↓ →0x212b2
<Blob 0x21242 [10] @> Δ-10 {[«10""»]}
<MI 2124e MOVE.L (A6+0x8),-(A7)> Δ-4 {[«10""»]|[4, '(A6+0x8)']}
<Const 0x21252 0x1.4> Δ-4 {[«10""»]|[4, '(A6+0x8)']|[##1]}
<Call 0x21256 0x22284> {[«10""»]|[4, '(A6+0x8)']|[##1]}
<POP 2125c-2125e StackAdj> Δ+10 {[-8-]}
<MI 2125e MOVE.L (A6+0x8),(A7)> {[-4-]|[4, '(A6+0x8)']}
<Const 0x21262 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x21266 0x22b6a> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 2126c-2126e StackAdj> Δ+8 {[-4-]}
<Pointer.fp 0x2126e <LVAR -0x008 @ 1(r)>> Δ-4 {[-4-]|[@@-8]}
<Call 0x21272 0x2065a> {[-4-]|[@@-8]}
<POP 21276-21278 StackAdj> Δ+8 {}
<MI 21278 MOVE.B (A6-0x8),D0> {}
<MI 2127c EXTB.W D0> {}
<MI 2127e LEA.L 0x2047c,A0> {}
<MI 21282 TST.B (A0+D0.W)> {}
<MI 21286 BNE 0x212b2> {}
<POP 21288-212b2 Naked> Σ0 ↓
<Blob 0x21288 [30] @> Δ-30 {[«30""»]}
<POP 21294-21296 StackAdj> Δ-4 {[«30""»]|[-4-]}
<Lit 0x21296 30> {[«30""»]|[$$Can't poll non-unique board id]}
<Call 0x212a8 0x21e42> {[«30""»]|[$$Can't poll non-unique board id]}
<POP 212ae-212b2 StackAdj> Δ+34 {}
<POP 212b2-212e2 Naked> Σ0 ↓ →0x21304 ←0x21242
<MI 212b2 MOVE.B D0,-(A7)> Δ-2 {[2, 'D0']}
<Pointer.fp 0x212b4 <LVAR -0x007 @ 1(r)>> Δ-4 {[2, 'D0']|[@@-7]}
<Pointer.fp 0x212b8 <LVAR -0x002 @ 1(r)>> Δ-4 {[2, 'D0']|[@@-7]|[@@-2]}
<Pointer.fp 0x212bc <LVAR -0x001 @>> Δ-4 {[2, 'D0']|[@@-7]|[@@-2]|[@@-1]}
<Call 0x212c0 0x10484> {[2, 'D0']|[@@-7]|[@@-2]|[@@-1]}
DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool)
<POP 212c6-212c8 StackAdj> Δ+10 {[2, 'D0']|[-2-]}
<MI 212c8 MOVE.B (A6-0x7),D0> {[2, 'D0']|[-2-]}
<MI 212cc EXTB.W D0> {[2, 'D0']|[-2-]}
<MI 212ce EXTW.L D0> {[2, 'D0']|[-2-]}
<MI 212d0 MOVE.L D0,-(A7)> Δ-4 {[2, 'D0']|[-2-]|[4, 'D0']}
<Call 0x212d2 0x102e4> {[2, 'D0']|[-2-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 212d8-212da StackAdj> Δ+4 {[2, 'D0']|[-2-]}
<MI 212da MOVEA.L (A7)+,A4> Δ+4 {}
<MI 212dc TST.B (A6-0x2)> {}
<MI 212e0 BEQ 0x21304> {}
<POP 212e2-21304 Naked> Σ0 Δ-26 →0x21320
<Blob 0x212e2 [6] @> Δ-6 {[«6""»]}
<POP 212f2-212f4 StackAdj> Δ-4 {[«6""»]|[-4-]}
<MI 212f4 MOVE.L A4,-(A7)> Δ-4 {[«6""»]|[-4-]|[4, 'A4']}
<POP 212f6-212f8 StackAdj> Δ-4 {[«6""»]|[-4-]|[4, 'A4']|[-4-]}
<Pointer.sp 0x212f8 12> Δ-4 {[«6""»]|[-4-]|[4, 'A4']|[-4-]|[^^12]}
<Const 0x212fc 0x1.2> Δ-2 {[«6""»]|[-4-]|[4, 'A4']|[-4-]|[^^12]|[#1]}
<Const 0x212fe 0x5.2> Δ-2 {[«6""»]|[-4-]|[4, 'A4']|[-4-]|[^^12]|[#1]|[#5]}
<MI 21302 BRA 0x21320> {[«6""»]|[-4-]|[4, 'A4']|[-4-]|[^^12]|[#1]|[#5]}
<POP 21304-21320 Naked> Σ0 Δ-26 ↓ ←0x212b2
<Blob 0x21304 [2] @> Δ-2 {[«2""»]}
<Blob 0x21308 [2] @> Δ-2 {[«2""»]|[«2""»]}
<Blob 0x2130c [2] @> Δ-2 {[«2""»]|[«2""»]|[«2""»]}
<POP 21310-21312 StackAdj> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[-4-]}
<MI 21312 MOVE.L A4,-(A7)> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[-4-]|[4, 'A4']}
<POP 21314-21316 StackAdj> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[-4-]|[4, 'A4']|[-4-]}
<Pointer.sp 0x21316 12> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[-4-]|[4, 'A4']|[-4-]|[^^12]}
<Const 0x2131a 0x1.2> Δ-2 {[«2""»]|[«2""»]|[«2""»]|[-4-]|[4, 'A4']|[-4-]|[^^12]|[#1]}
<Const 0x2131c 0x6.2> Δ-2 {[«2""»]|[«2""»]|[«2""»]|[-4-]|[4, 'A4']|[-4-]|[^^12]|[#1]|[#6]}
<POP 21320-2133e Naked> Σ-26 Δ+26 ↓ ←0x212e2
<Call 0x21320 0x102c4> {[-26-]}
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 21326-21328 StackAdj> Δ+8 {[-18-]}
<Call 0x21328 0x102d0> {[-18-]}
StringCat2(a, b : String) : String
<POP 2132e-21330 StackAdj> Δ+8 {[-10-]}
<MI 21330 MOVEA.L (A7)+,A4> Δ+4 {[-6-]}
<POP 21332-21334 StackAdj> Δ+6 {}
<MI 21334 MOVE.L A4,-(A7)> Δ-4 {[4, 'A4']}
<Call 0x21336 0x22c0c> {[4, 'A4']}
<POP 2133c-2133e StackAdj> Δ+4 {}
<POP 2133e-21346 Epilogue> Σ0
@ 21346
<LVAR 0x008 4(r)>
<LVAR -0x001 @>
<LVAR -0x002 @>
<LVAR -0x003 @ 1(r)>
<LVAR -0x004 @ 1(r)>
<POP 21346-2140c Body> Δ+4
<POP 21346-2135c Prologue> Σ0 ↓
<POP 2135c-21362 RegCacheLoad> Σ0 ↓
<POP 21362-213ba Naked> Σ0 ↓ →0x213c8
<Blob 0x21362 [10] @> Δ-10 {[«10""»]}
<MI 2136e MOVE.L (A6+0x8),-(A7)> Δ-4 {[«10""»]|[4, '(A6+0x8)']}
<Const 0x21372 0x1.4> Δ-4 {[«10""»]|[4, '(A6+0x8)']|[##1]}
<Call 0x21376 0x22284> {[«10""»]|[4, '(A6+0x8)']|[##1]}
<POP 2137c-21380 StackAdj> Δ+10 {[-8-]}
<MI 21380 MOVE.L (A6+0x8),(A7)> {[-4-]|[4, '(A6+0x8)']}
<Const 0x21384 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x21388 0x22b6a> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 2138e-21390 StackAdj> Δ+8 {[-4-]}
<Pointer.fp 0x21390 <LVAR -0x004 @ 1(r)>> Δ-4 {[-4-]|[@@-4]}
<Call 0x21392 0x2065a> {[-4-]|[@@-4]}
<POP 21396-21398 StackAdj> Δ+6 {[-2-]}
<MI 21398 MOVE.B (A6-0x4),(A7)> {[-2-]}
<Pointer.fp 0x2139a <LVAR -0x003 @ 1(r)>> Δ-4 {[-2-]|[@@-3]}
<Pointer.fp 0x2139e <LVAR -0x002 @>> Δ-4 {[-2-]|[@@-3]|[@@-2]}
<Pointer.fp 0x213a2 <LVAR -0x001 @>> Δ-4 {[-2-]|[@@-3]|[@@-2]|[@@-1]}
<Call 0x213a6 0x10484> {[-2-]|[@@-3]|[@@-2]|[@@-1]}
DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool)
<POP 213ac-213b0 StackAdj> Δ+14 {}
<MI 213b0 MOVE.B (A6-0x3),D0> {}
<MI 213b4 CMPI.B #0x03,D0> {}
<MI 213b8 BNE 0x213c8> {}
<POP 213ba-213be Naked> Σ0 Δ-4 ↓
<MI 213ba MOVE.B (A6-0x4),-(A7)> Δ-2 {[2, '(A6-0x4)']}
<MI 213bc CLR.B -(A7)> Δ-2 {[2, '(A6-0x4)']|[#0]}
<POP 213be-213c8 Naked> Σ-4 Δ+4 →0x21404 ←0x213ce
<Call 0x213be 0x1048a> {[-4-]}
DiProcCmd(board : Byte; cmd : Byte)
<POP 213c4-213c6 StackAdj> Δ+4 {}
<MI 213c6 BRA 0x21404> {}
<POP 213c8-213ce Naked> Σ0 ↓ →0x213d4 ←0x21362
<MI 213c8 CMPI.B #0x02,D0> {}
<MI 213cc BNE 0x213d4> {}
<POP 213ce-213d4 Naked> Σ0 Δ-4 →0x213be
<MI 213ce MOVE.B (A6-0x4),-(A7)> Δ-2 {[2, '(A6-0x4)']}
<Const 0x213d0 0x1.2> Δ-2 {[2, '(A6-0x4)']|[#1]}
<MI 213d2 BRA 0x213be> {[2, '(A6-0x4)']|[#1]}
<POP 213d4-21404 Naked> Σ0 ↓ ←0x213c8
<Blob 0x213d4 [32] @> Δ-32 {[«32""»]}
<POP 213e6-213e8 StackAdj> Δ-4 {[«32""»]|[-4-]}
<Lit 0x213e8 31> {[«32""»]|[$$Board is not paused or looping!]}
<Call 0x213fa 0x21e42> {[«32""»]|[$$Board is not paused or looping!]}
<POP 21400-21404 StackAdj> Δ+36 {}
<POP 21404-2140c Epilogue> Σ0 ←0x213be
@ 2140c
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 1(r)>
<POP 2140c-21472 Body>
<POP 2140c-21422 Prologue> Σ0 ↓
<POP 21422-2146a Naked> Σ0 ↓
<Blob 0x21422 [10] @> Δ-10 {[«10""»]}
<MI 2142e MOVE.L (A6+0x8),-(A7)> Δ-4 {[«10""»]|[4, '(A6+0x8)']}
<Const 0x21432 0x1.4> Δ-4 {[«10""»]|[4, '(A6+0x8)']|[##1]}
<Call 0x21436 0x22284> {[«10""»]|[4, '(A6+0x8)']|[##1]}
<POP 2143c-21440 StackAdj> Δ+10 {[-8-]}
<MI 21440 MOVE.L (A6+0x8),(A7)> {[-4-]|[4, '(A6+0x8)']}
<Const 0x21444 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x21448 0x22b6a> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 2144e-21450 StackAdj> Δ+8 {[-4-]}
<Pointer.fp 0x21450 <LVAR -0x004 @ 1(r)>> Δ-4 {[-4-]|[@@-4]}
<Call 0x21454 0x2065a> {[-4-]|[@@-4]}
<POP 21458-2145a StackAdj> Δ+6 {[-2-]}
<MI 2145a MOVE.B (A6-0x4),(A7)> {[-2-]}
<Const 0x2145e 0x2.2> Δ-2 {[-2-]|[#2]}
<Call 0x21462 0x1048a> {[-2-]|[#2]}
DiProcCmd(board : Byte; cmd : Byte)
<POP 21468-2146a StackAdj> Δ+4 {}
<POP 2146a-21472 Epilogue> Σ0
@ 21472
<LVAR 0x00c 1(w)>
<LVAR 0x008 4(r)>
<LVAR -0x006 @ 4(rw)>
<POP 21472-21500 Body>
<POP 21472-21488 Prologue> Σ0 ↓
<POP 21488-21492 RegCacheLoad> Σ0 ↓
<POP 21492-21498 Naked> Σ0 ↓
<MI 21492 MOVE.B #0x09,(A6+0xc)> {}
<MI 21496 MOVEQ.L #0x00,D7> {}
<POP 21498-214ec Naked> Σ0 ↓ →0x214f2 ←0x214f2
<MI 21498 MOVE.B D7,D0> {}
<MI 2149a EXTB.W D0> {}
<MI 2149c MULS.W #0x0c,D0> {}
<MI 2149e LEA.L 0x2048c,A0> {}
<Blob 0x214a2 [12] (A0+D0.W)> Δ-12 {[«12»]}
<POP 214b2-214b4 StackAdj> Δ-4 {[«12»]|[-4-]}
<Lit 0x214b4> {[«12»]|[$$…]}
<Pointer.sp 0x214b4 4> Δ-4
<Const 0x214b8 0x1.2> Δ-2
<Const 0x214ba 0xc.2> Δ-2
<Call 0x214bc 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 214c2-214c4 StackAdj> Δ+8
<MI 214c4 MOVE.L (A7)+,(A6-0x6)> Δ+4 {[«12»]}
<POP 214c6-214c8 StackAdj> Δ+6 {[-6-]}
<MI 214c8 MOVE.L (A6-0x6),(A7)> {[-2-]|[4, '(A6-0x6)']}
<MI 214ca MOVE.L (A6+0x8),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x6)']|[4, '(A6+0x8)']}
<Call 0x214ce 0x102c8> {[-2-]|[4, '(A6-0x6)']|[4, '(A6+0x8)']}
StringEqual(a, b : String) : Byte
<POP 214d4-214d6 StackAdj> Δ+8 {[-2-]}
<MI 214d6 MOVE.B (A7)+,D0> Δ+2 {}
<MI 214d8 EXTB.W D0> {}
<POP 0x214da LimitCheck 0x0 ≤ D0 ≤ 0x1> {}
<MI 214dc MOVE.B D0,D6> {}
<Pointer.fp 0x214de <LVAR -0x006 @ 4(rw)>> Δ-4 {[@@-6]}
<Call 0x214e0 0x102bc> {[@@-6]}
FreeString(VAR a : String)
<POP 214e6-214e8 StackAdj> Δ+4 {}
<MI 214e8 TST.B D6> {}
<MI 214ea BEQ 0x214f2> {}
<POP 214ec-214f2 Naked> Σ0 →0x214f8
<MI 214ec MOVE.B D7,(A6+0xc)> {}
<MI 214f0 BRA 0x214f8> {}
<POP 214f2-214f8 Naked> Σ0 ↓ →0x21498 ←0x21498
<MI 214f2 ADDQ.B #0x1,D7> {}
<MI 214f4 CMP.B #0x09,D7> {}
<MI 214f6 BLE 0x21498> {}
<POP 214f8-21500 Epilogue> Σ0 ←0x214ec
@ 21500
<LVAR 0x008 1(r)>
<POP 21500-2158a Body>
<POP 21500-21516 Prologue> Σ0 ↓
<POP 21516-21518 RegCacheLoad> Σ0 ↓
<POP 21518-2152e Naked> Σ0 →0x21554 →0x21532
<MI 21518 MOVE.B (A6+0x8),D0> {}
<MI 2151c EXTB.W D0> {}
<POP 0x2151e LimitCheck 0x0 ≤ D0 ≤ 0x1> {}
<MI 21524 ADD.W D0,D0> {}
<MI 21526 SWITCH D0.W> {}
<POP 21532-21554 Naked> Σ0 →0x21582 ←0x21518
<Blob 0x21532 [4] @> Δ-4 {[«4""»]}
<POP 21536-21538 StackAdj> Δ-4 {[«4""»]|[-4-]}
<Lit 0x21538 4> {[«4""»]|[$$TRUE]}
<Call 0x2154a 0x22c0c> {[«4""»]|[$$TRUE]}
<POP 21550-21552 StackAdj> Δ+8 {}
<MI 21552 BRA 0x21582> {}
<POP 21554-21582 Naked> Σ0 ↓ ←0x21518
<Blob 0x21554 [6] @> Δ-6 {[«6""»]}
<POP 21564-21566 StackAdj> Δ-4 {[«6""»]|[-4-]}
<Lit 0x21566 5> {[«6""»]|[$$FALSE]}
<Call 0x21578 0x22c0c> {[«6""»]|[$$FALSE]}
<POP 2157e-21582 StackAdj> Δ+10 {}
<POP 21582-2158a Epilogue> Σ0 ←0x21532
@ 2158a
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 2158a-21674 Body> Δ+20
<POP 2158a-215a0 Prologue> Σ0 ↓
<POP 215a0-215ac RegCacheLoad> Σ0 ↓
<POP 215ac-215d4 Naked> Σ0 →0x215e8 →0x215f2 →0x215fa →0x21602 →0x2160a →0x21624 →0x21636 →0x21648 →0x2165a →0x2166a
<MI 215ac MOVEA.L (A6+0x8),A0> {}
<MI 215b0 MOVE.B #0x01,(A0)> {}
<POP 215b2-215b4 StackAdj> Δ-2 {[-2-]}
<MI 215b4 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-2-]|[4, '(A6+0x10)']}
<Call 0x215b8 0x21472> {[-2-]|[4, '(A6+0x10)']}
<POP 215bc-215be StackAdj> Δ+4 {[-2-]}
<MI 215be MOVE.B (A7)+,D0> Δ+2 {}
<MI 215c0 EXTB.W D0> {}
<POP 0x215c2 LimitCheck 0x0 ≤ D0 ≤ 0x9> {}
<MI 215ca ADD.W D0,D0> {}
<MI 215cc SWITCH D0.W> {}
<POP 215e8-215ee Naked> Σ0 Δ-4 ↓ ←0x215ac
<MI 215e8 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<Call 0x215ea 0x21098> {[4, '(A6+0xc)']}
<POP 215ee-215f2 Naked> Σ-4 Δ+4 →0x2166c ←0x215f2 ←0x215fa ←0x21602
<POP 215ee-215f0 StackAdj> Δ+4 {}
<MI 215f0 BRA 0x2166c> {}
<POP 215f2-215fa Naked> Σ0 Δ-4 →0x215ee ←0x215ac
<MI 215f2 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<Call 0x215f4 0x21228> {[4, '(A6+0xc)']}
<MI 215f8 BRA 0x215ee> {[4, '(A6+0xc)']}
<POP 215fa-21602 Naked> Σ0 Δ-4 →0x215ee ←0x215ac
<MI 215fa MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<Call 0x215fc 0x2140c> {[4, '(A6+0xc)']}
<MI 21600 BRA 0x215ee> {[4, '(A6+0xc)']}
<POP 21602-2160a Naked> Σ0 Δ-4 →0x215ee ←0x215ac
<MI 21602 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<Call 0x21604 0x21346> {[4, '(A6+0xc)']}
<MI 21608 BRA 0x215ee> {[4, '(A6+0xc)']}
<POP 2160a-2161a Naked> Σ0 Δ-2 ↓ ←0x215ac
<POP 2160a-2160c StackAdj> Δ-2 {[-2-]}
<Const 0x2160c 0xc.2> Δ-2 {[-2-]|[#12]}
<Call 0x21610 0x104c0> {[-2-]|[#12]}
HasBoard(diproc_addr: Byte) : Byte
<POP 21612-21614 StackAdj> Δ+2 {[-2-]}
<MI 21614 MOVE.B (A7),D0> {[-2-]}
<MI 21616 EXTB.W D0> {[-2-]}
<POP 0x21618 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[-2-]}
<POP 2161a-21624 Naked> Σ-2 Δ+2 →0x2166c ←0x21624 ←0x21636 ←0x21648 ←0x2165a
<MI 2161a MOVE.B D0,(A7)> {[-2-]}
<Call 0x2161c 0x21500> {[-2-]}
<POP 21620-21622 StackAdj> Δ+2 {}
<MI 21622 BRA 0x2166c> {}
<POP 21624-21636 Naked> Σ0 Δ-2 →0x2161a ←0x215ac
<POP 21624-21626 StackAdj> Δ-2 {[-2-]}
<Const 0x21626 0xd.2> Δ-2 {[-2-]|[#13]}
<Call 0x2162a 0x104c0> {[-2-]|[#13]}
HasBoard(diproc_addr: Byte) : Byte
<POP 2162c-2162e StackAdj> Δ+2 {[-2-]}
<MI 2162e MOVE.B (A7),D0> {[-2-]}
<MI 21630 EXTB.W D0> {[-2-]}
<POP 0x21632 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[-2-]}
<MI 21634 BRA 0x2161a> {[-2-]}
<POP 21636-21648 Naked> Σ0 Δ-2 →0x2161a ←0x215ac
<POP 21636-21638 StackAdj> Δ-2 {[-2-]}
<Const 0x21638 0xe.2> Δ-2 {[-2-]|[#14]}
<Call 0x2163c 0x104c0> {[-2-]|[#14]}
HasBoard(diproc_addr: Byte) : Byte
<POP 2163e-21640 StackAdj> Δ+2 {[-2-]}
<MI 21640 MOVE.B (A7),D0> {[-2-]}
<MI 21642 EXTB.W D0> {[-2-]}
<POP 0x21644 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[-2-]}
<MI 21646 BRA 0x2161a> {[-2-]}
<POP 21648-2165a Naked> Σ0 Δ-2 →0x2161a ←0x215ac
<POP 21648-2164a StackAdj> Δ-2 {[-2-]}
<Const 0x2164a 0xf.2> Δ-2 {[-2-]|[#15]}
<Call 0x2164e 0x104c0> {[-2-]|[#15]}
HasBoard(diproc_addr: Byte) : Byte
<POP 21650-21652 StackAdj> Δ+2 {[-2-]}
<MI 21652 MOVE.B (A7),D0> {[-2-]}
<MI 21654 EXTB.W D0> {[-2-]}
<POP 0x21656 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[-2-]}
<MI 21658 BRA 0x2161a> {[-2-]}
<POP 2165a-2166a Naked> Σ0 Δ-2 →0x2161a ←0x215ac
<POP 2165a-2165c StackAdj> Δ-2 {[-2-]}
<Call 0x2165c 0x104cc> {[-2-]}
MemOnly2MB() : Bool
<MI 21662 MOVE.B (A7),D0> {[-2-]}
<MI 21664 EXTB.W D0> {[-2-]}
<POP 0x21666 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[-2-]}
<MI 21668 BRA 0x2161a> {[-2-]}
<POP 2166a-2166c Naked> Σ0 ↓ ←0x215ac
<MI 2166a CLR.B (A0)> {}
<POP 2166c-21674 Epilogue> Σ0 ←0x215ee ←0x2161a
@ 21674
<LVAR 0x008 4(r)>
<POP 21674-21784 Body>
<POP 21674-2168a Prologue> Σ0 ↓
<POP 2168a-2169c RegCacheLoad> Σ0 ↓
<POP 2169c-216f2 Naked> Σ0 ↓ →0x21708
<Call 0x2169c 0x10398> {}
FSCALL_10398
<MI 216a2 MOVEA.L (A6+0x8),A0> {}
<MI 216a6 LEA.L 0x2040e,A1> {}
<BlockMove 10,A1,A0> {}
<Const 0x216b2 0x0.4> Δ-4 {[##0]}
<Call 0x216b6 0x104d8> {[##0]}
ExpInit(a : Long)
<POP 216bc-216be StackAdj> Δ+4 {}
<MI 216be MOVE.L 0x20418,0x258d2> {}
<MI 216c6 MOVE.L 0x2041c,0x258da> {}
<MI 216ce MOVE.L 0x20420,0x258de> {}
<MI 216d6 MOVE.L 0x20424,0x258ea> {}
<MI 216de MOVE.L 0x20428,0x258ee> {}
<POP 216e6-216e8 StackAdj> Δ-2 {[-2-]}
<Call 0x216e8 0x104cc> {[-2-]}
MemOnly2MB() : Bool
<MI 216ee TST.B (A7)+> Δ+2 {}
<MI 216f0 BEQ 0x21708> {}
<POP 216f2-21708 Naked> Σ0 →0x2171c
<MI 216f2 MOVE.L 0x2042c,0x25902> {}
<MI 216f6 MOVE.L 0x20430,0x25906> {}
<MI 216fa MOVE.L 0x20434,0x2590a> {}
<MI 216fe MOVE.L 0x20438,0x2590e> {}
<MI 21706 BRA 0x2171c> {}
<POP 21708-2171c Naked> Σ0 ↓ ←0x2169c
<MI 21708 MOVE.L 0x2043c,0x25902> {}
<MI 2170c MOVE.L 0x20440,0x25906> {}
<MI 21710 MOVE.L 0x20444,0x2590a> {}
<MI 21714 MOVE.L 0x20448,0x2590e> {}
<POP 2171c-2177c Naked> Σ0 ↓ ←0x216f2
<MI 2171c MOVE.L 0x2044c,0x258e2> {}
<MI 21724 MOVE.L 0x20450,0x25912> {}
<MI 2172c MOVE.L 0x20454,0x2591a> {}
<MI 21734 MOVE.L 0x20458,0x2591e> {}
<MI 2173c MOVE.L 0x2045c,0x2592a> {}
<MI 21744 MOVE.L 0x20460,0x2592e> {}
<MI 2174c MOVE.L 0x20464,0x25942> {}
<MI 21754 MOVE.L 0x20468,0x25946> {}
<MI 2175c MOVE.L 0x2046c,0x2594a> {}
<MI 21764 MOVE.L 0x20470,0x2594e> {}
<MI 2176c MOVE.L 0x20474,0x25926> {}
<MI 21774 MOVE.L 0x20478,0x25922> {}
<POP 2177c-21784 Epilogue> Σ0
@ 21e00
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 4(w)>
<POP 21e00-21e42 Body>
<POP 21e00-21e16 Prologue> Σ0 ↓
<POP 21e16-21e1a Naked> Σ0 ↓
<MI 21e16 MOVEA.L (A6+0x8),A4> {}
<POP 21e1a-21e20 Naked> Σ0 ↓ →0x21e3a ←0x21e20
<MI 21e1a CMPA.W #0x1,A4> {}
<MI 21e1e BEQ 0x21e3a> {}
<POP 21e20-21e3a Naked> Σ0 →0x21e1a
<MI 21e20 MOVE.L A4,(A6-0x4)> {}
<MI 21e24 MOVEA.L (A4+0x8),A4> {}
<Pointer.fp 0x21e28 <LVAR -0x004 @ 4(w)>> Δ-4 {[@@-4]}
<Const 0x21e2c 0xc.4> Δ-4 {[@@-4]|[##12]}
<Call 0x21e30 0x102a8> {[@@-4]|[##12]}
Free2(a : Pointer; b : Long)
<POP 21e36-21e38 StackAdj> Δ+8 {}
<MI 21e38 BRA 0x21e1a> {}
<POP 21e3a-21e42 Epilogue> Σ0 ←0x21e1a
@ 21e42
<LVAR 0x008 4(r)>
<POP 21e42--0001 Body>
<POP 21e42-21e58 Prologue> Σ0 ↓
<POP 21e58-21e62 Naked> Σ0 ↓ →0x21e6c
<MI 21e58 MOVEA.L (A6+0x8),A0> {}
<MI 21e5c CMPA.W #0x1,A0> {}
<MI 21e60 BEQ 0x21e6c> {}
<POP 21e62-21e6c Naked> Σ0 ↓
<MI 21e62 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Call 0x21e64 0x103e0> {[4, 'A0']}
WriteConsoleStringCrLf(str : String)
<POP 21e6a-21e6c StackAdj> Δ+4 {}
<POP 21e6c-21e7a Naked> Σ0 ←0x21e58
<POP 21e6c-21e7a Bailout> {}
<MI 21e6c MOVEA.L (A5+0x8),A7>
<MI 21e70 MOVEA.W #0x0,A6>
<MI 21e74 JMP 0x2571e>
@ 21e82
<LVAR 0x008 4(w)>
<POP 21e82-21ea0 Body>
<POP 21e82-21e94 Prologue> Σ0 ↓
<POP 21e94-21e9c Naked> Σ0 ↓
<MI 21e94 MOVE.L 0x2795a,(A6+0x8)> {}
<POP 21e9c-21ea0 Epilogue> Σ0
@ 21ea0
<LVAR 0x008 1(rw)>
<POP 21ea0-21ede Body>
<POP 21ea0-21eb6 Prologue> Σ0 ↓
<POP 21eb6-21ec4 Naked> Σ0 ↓ →0x21eca
<MI 21eb6 MOVE.L 0x2795a,D0> {}
<MI 21ebc CMP.L 0x2795e,D0> {}
<MI 21ec2 BLE 0x21eca> {}
<POP 21ec4-21eca Naked> Σ0 →0x21ed6
<MI 21ec4 CLR.B (A6+0x8)> {}
<MI 21ec8 BRA 0x21ed6> {}
<POP 21eca-21ed6 Naked> Σ0 ↓ ←0x21eb6
<MI 21eca LEA.L 0x25952,A0> {}
<MI 21ed0 MOVE.B (A0+D0.L+#0x7),(A6+0x8)> {}
<POP 21ed6-21ede Epilogue> Σ0 ←0x21ec4
@ 21ede
<LVAR 0x008 1(rw)>
<POP 21ede-21f22 Body>
<POP 21ede-21ef4 Prologue> Σ0 ↓
<POP 21ef4-21efa RegCacheLoad> Σ0 ↓
<POP 21efa-21f04 Naked> Σ0 ↓ →0x21f0a
<MI 21efa MOVE.L 0x2795a,D0> {}
<MI 21efc CMP.L 0x2795e,D0> {}
<MI 21f02 BLE 0x21f0a> {}
<POP 21f04-21f0a Naked> Σ0 →0x21f16
<MI 21f04 CLR.B (A6+0x8)> {}
<MI 21f08 BRA 0x21f16> {}
<POP 21f0a-21f16 Naked> Σ0 ↓ ←0x21efa
<MI 21f0a LEA.L 0x25952,A0> {}
<MI 21f10 MOVE.B (A0+D0.L+#0x7),(A6+0x8)> {}
<POP 21f16-21f1a Naked> Σ0 ↓ ←0x21f04
<MI 21f16 ADDQ.L #0x1,D0> {}
<MI 21f18 MOVE.L D0,0x2795a> {}
<POP 21f1a-21f22 Epilogue> Σ0
@ 21f22
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 21f22-21ffc Body>
<POP 21f22-21f38 Prologue> Σ0 ↓
<POP 21f38-21f4a RegCacheLoad> Σ0 ↓
<POP 21f4a-21f56 Naked> Σ0 ↓ →0x21f60 ←0x21ff0
<POP 21f4a-21f4c StackAdj> Δ-2 {[-2-]}
<Call 0x21f4c 0x21ea0> {[-2-]}
<MI 21f50 MOVE.B (A7)+,D0> Δ+2 {}
<MI 21f52 CMP.B #0x5b,D0> {}
<MI 21f54 BNE 0x21f60> {}
<POP 21f56-21f60 Naked> Σ0 →0x21ff0
<Call 0x21f56 0x25228> {}
<MI 21f5c BRA 0x21ff0> {}
<POP 21f60-21f6c Naked> Σ0 ↓ →0x21f84 ←0x21f4a
<MI 21f60 MOVE.L 0x2795a,D6> {}
<POP 21f62-21f64 StackAdj> Δ-2 {[-2-]}
<Call 0x21f64 0x21ede> {[-2-]}
<MI 21f68 MOVE.B (A7)+,D5> Δ+2 {}
<MI 21f6a BNE 0x21f84> {}
<POP 21f6c-21f82 Naked> Σ0 →0x21ff4
<MI 21f6c MOVEA.L (A6+0xc),A0> {}
<MI 21f70 LEA.L 0x21d5a,A1> {}
<BlockMove 8,A1,A0> {}
<MI 21f7c MOVEA.L (A6+0x8),A0> {}
<MI 21f7e MOVE.B #0x02,(A0)> {}
<MI 21f80 BRA 0x21ff4> {}
<POP 21f84-21f88 Naked> Σ0 ↓ →0x21f90 ←0x21f60
<MI 21f84 CMP.B #0x2c,D5> {}
<MI 21f86 BNE 0x21f90> {}
<POP 21f88-21f90 Naked> Σ0 →0x21fe0
<MI 21f88 MOVEA.L (A6+0x8),A0> {}
<MI 21f8a MOVE.B #0x03,(A0)> {}
<MI 21f8e BRA 0x21fe0> {}
<POP 21f90-21f94 Naked> Σ0 ↓ →0x21f9c ←0x21f84
<MI 21f90 CMP.B #0x3b,D5> {}
<MI 21f92 BNE 0x21f9c> {}
<POP 21f94-21f9c Naked> Σ0 →0x21fe0
<MI 21f94 MOVEA.L (A6+0x8),A0> {}
<MI 21f96 MOVE.B #0x01,(A0)> {}
<MI 21f9a BRA 0x21fe0> {}
<POP 21f9c-21fa2 Naked> Σ0 ↓ →0x21fa8 ←0x21f90
<MI 21f9c CMPI.B #0x5d,D5> {}
<MI 21fa0 BNE 0x21fa8> {}
<POP 21fa2-21fa8 Naked> Σ0 →0x21fe0
<MI 21fa2 MOVEA.L (A6+0x8),A0> {}
<MI 21fa4 MOVE.B #0x02,(A0)> {}
<MI 21fa6 BRA 0x21fe0> {}
<POP 21fa8-21fac Naked> Σ0 ↓ ←0x21f9c
<MI 21fa8 MOVEA.L (A6+0x8),A0> {}
<MI 21faa CLR.B (A0)> {}
<POP 21fac-21fb8 Naked> Σ0 ↓ →0x21fc0 ←0x21fde
<POP 21fac-21fae StackAdj> Δ-2 {[-2-]}
<Call 0x21fae 0x21ea0> {[-2-]}
<MI 21fb2 MOVE.B (A7)+,D7> Δ+2 {}
<MI 21fb4 CMP.B #0x5b,D7> {}
<MI 21fb6 BNE 0x21fc0> {}
<POP 21fb8-21fc0 Naked> Σ0 →0x21fde
<Call 0x21fb8 0x25228> {}
<MI 21fbe BRA 0x21fde> {}
<POP 21fc0-21fc4 Naked> Σ0 ↓ →0x21fd2 ←0x21fac
<MI 21fc0 CMP.B #0x3b,D7> {}
<MI 21fc2 BEQ 0x21fd2> {}
<POP 21fc4-21fc8 Naked> Σ0 ↓ →0x21fd2
<MI 21fc4 CMP.B #0x2c,D7> {}
<MI 21fc6 BEQ 0x21fd2> {}
<POP 21fc8-21fce Naked> Σ0 ↓ →0x21fd2
<MI 21fc8 CMPI.B #0x5d,D7> {}
<MI 21fcc BEQ 0x21fd2> {}
<POP 21fce-21fd2 Naked> Σ0 ↓ →0x21fd6
<MI 21fce TST.B D7> {}
<MI 21fd0 BNE 0x21fd6> {}
<POP 21fd2-21fd4 Naked> Σ0 →0x21fe0 ←0x21fc0 ←0x21fc4 ←0x21fc8
<MI 21fd2 BRA 0x21fe0> {}
<POP 21fd6-21fde Naked> Σ0 ↓ ←0x21fce
<POP 21fd6-21fd8 StackAdj> Δ-2 {[-2-]}
<Call 0x21fd8 0x21ede> {[-2-]}
<MI 21fdc MOVE.B (A7)+,D7> Δ+2 {}
<POP 21fde-21fe0 Naked> Σ0 →0x21fac ←0x21fb8
<MI 21fde BRA 0x21fac> {}
<POP 21fe0-21ff0 Naked> Σ0 →0x21ff4 ←0x21f88 ←0x21f94 ←0x21fa2 ←0x21fd2
<MI 21fe0 MOVEA.L (A6+0xc),A0> {}
<MI 21fe4 MOVE.L D6,(A0)> {}
<MI 21fe6 MOVE.L 0x2795a,(A0+0x4)> {}
<MI 21fea SUBQ.L #0x1,(A0+0x4)> {}
<MI 21fee BRA 0x21ff4> {}
<POP 21ff0-21ff4 Naked> Σ0 →0x21f4a ←0x21f56
<MI 21ff0 BRA 0x21f4a> {}
<POP 21ff4-21ffc Epilogue> Σ0 ←0x21f6c ←0x21fe0
@ 21ffc
<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 21ffc-2209a Body>
<POP 21ffc-22012 Prologue> Σ0 ↓
<POP 22012-2201c RegCacheLoad> Σ0 ↓
<POP 2201c-22028 Naked> Σ0 ↓ →0x2202e
<MI 2201c MOVEA.L (A6+0x8),A0> {}
<MI 22020 MOVE.B (A0),D0> {}
<MI 22022 CMPI.B #0x01,D0> {}
<MI 22026 BEQ 0x2202e> {}
<POP 22028-2202e Naked> Σ0 ↓ →0x2203c
<MI 22028 CMPI.B #0x02,D0> {}
<MI 2202c BNE 0x2203c> {}
<POP 2202e-2203c Naked> Σ0 →0x22078 ←0x2201c
<MI 2202e MOVE.L 0x21d5a,(A6-0xc)> {}
<MI 22032 MOVE.L 0x21d5e,(A6-0x8)> {}
<MI 22038 MOVE.B D0,(A6-0x4)> {}
<MI 2203a BRA 0x22078> {}
<POP 2203c-2204e Naked> Σ0 ↓ →0x2206a ←0x22028 ←0x22072
<Pointer.fp 0x2203c <LVAR -0x00c @ 4(w)>> Δ-4 {[@@-12]}
<Pointer.fp 0x2203e <LVAR -0x004 @ 1(rw)>> Δ-4 {[@@-12]|[@@-4]}
<Call 0x22040 0x21f22> {[@@-12]|[@@-4]}
<POP 22044-22046 StackAdj> Δ+8 {}
<MI 22046 MOVEA.L (A6+0x8),A0> {}
<MI 2204a TST.B (A6-0x4)> {}
<MI 2204c BEQ 0x2206a> {}
<POP 2204e-22054 Naked> Σ0 ↓ →0x2206a
<MI 2204e MOVE.B (A0),D0> {}
<MI 22050 CMP.B #0x03,D0> {}
<MI 22052 BNE 0x2206a> {}
<POP 22054-2206a Naked> Σ0 →0x22072
<MI 22054 MOVE.B (A6-0x4),D0> {}
<MI 22056 EXTB.W D0> {}
<POP 0x22058 LimitCheck 0x0 ≤ D0 ≤ 0x3> {}
<MI 2205a MOVE.B D0,(A0)> {}
<MI 2205c MOVE.L 0x21d5a,(A6-0xc)> {}
<MI 22060 MOVE.L 0x21d5e,(A6-0x8)> {}
<MI 22066 CLR.B (A6-0x4)> {}
<MI 22068 BRA 0x22072> {}
<POP 2206a-22072 Naked> Σ0 ↓ ←0x2203c ←0x2204e
<MI 2206a MOVE.B (A6-0x4),D0> {}
<MI 2206c EXTB.W D0> {}
<POP 0x2206e LimitCheck 0x0 ≤ D0 ≤ 0x3> {}
<MI 22070 MOVE.B D0,(A0)> {}
<POP 22072-22078 Naked> Σ0 ↓ →0x2203c ←0x22054
<MI 22072 MOVE.B (A6-0x4),D0> {}
<MI 22074 CMP.B #0x03,D0> {}
<MI 22076 BEQ 0x2203c> {}
<POP 22078-22092 Naked> Σ0 ↓ ←0x2202e
<MI 22078 MOVEA.L (A6+0x10),A0> {}
<MI 2207c LEA.L (A6-0xc),A1> {}
<BlockMove 8,A1,A0> {}
<MI 22086 MOVEA.L (A6+0xc),A0> {}
<MI 2208a MOVE.B (A6-0x4),D0> {}
<MI 2208c EXTB.W D0> {}
<POP 0x2208e LimitCheck 0x0 ≤ D0 ≤ 0x3> {}
<MI 22090 MOVE.B D0,(A0)> {}
<POP 22092-2209a Epilogue> Σ0
@ 2209a
<LVAR 0x008 4(rw)>
<LVAR -0x004 1(rw)>
<LVAR -0x010 2(rw)>
<POP 2209a-221a2 Body>
<POP 2209a-220b0 Prologue> Σ0 ↓
<POP 220b0-220be RegCacheLoad> Σ0 ↓
<POP 220be-220d6 Naked> Σ0 Δ-4 ↓
<MI 220be MOVEQ.L #0x01,D6> {}
<MI 220c0 CLR.W (A6-0x10)> {}
<MI 220c2 MOVEQ.L #0x01,D5> {}
<POP 220c4-220c6 StackAdj> Δ-4 {[-4-]}
<MI 220c6 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x220c8 0x102f0> {[-4-]|[4, '(A6+0x8)']}
ToUpper(a : String) : String
<POP 220ce-220d0 StackAdj> Δ+4 {[-4-]}
<MI 220d0 MOVE.L (A7)+,(A6+0x8)> Δ+4 {}
<MI 220d2 MOVEA.L (A6+0x8),A0> {}
<MI 220d4 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<POP 220d6-220e2 Naked> Σ-4 ↓ →0x22190 ←0x22176
<MI 220d6 MOVEA.L (A7),A0> {[-4-]}
<MI 220d8 MOVE.W (A0),D0> {[-4-]}
<MI 220da EXTW.L D0> {[-4-]}
<MI 220dc CMP.L D0,D6> {[-4-]}
<MI 220de BGT 0x22190> {[-4-]}
<POP 220e2-220f4 Naked> Σ-4 ↓ →0x220f6
<MI 220e2 CLR.L D0> {[-4-]}
<MI 220e4 MOVE.B (A0+D6.L+#0x1),D0> {[-4-]}
<MI 220e8 ANDI.W #0x007f,D0> {[-4-]}
<MI 220ec MOVE.B D0,(A6-0x4)> {[-4-]}
<MI 220ee CMPI.B #0x09,D0> {[-4-]}
<MI 220f2 BNE 0x220f6> {[-4-]}
<POP 220f4-220f6 Naked> Σ-4 ↓
<MI 220f4 MOVE.B #0x20,(A6-0x4)> {[-4-]}
<POP 220f6-22102 Naked> Σ-4 ↓ →0x22132 ←0x220e2
<MI 220f6 CLR.L D0> {[-4-]}
<MI 220f8 MOVE.B (A6-0x4),D0> {[-4-]}
<MI 220fa SUB.W #0x20,D0> {[-4-]}
<MI 220fc CMPI.W #0x000c,D0> {[-4-]}
<MI 22100 BHI 0x22132> {[-4-]}
<POP 22102-2210c Naked> Σ-4 →0x2212a →0x22126 →0x22132 →0x22132 →0x22132 →0x22132 →0x22132 →0x22132 →0x22132 →0x22132 →0x22132 →0x22132 →0x2212e
<MI 22102 ADD.W D0,D0> {[-4-]}
<MI 22104 SWITCH D0.W> {[-4-]}
<POP 22126-22128 Naked> Σ-4 →0x22190 ←0x22102
<MI 22126 BRA 0x22190> {[-4-]}
<POP 2212a-2212e Naked> Σ-4 →0x22134 ←0x22102
<MI 2212a MOVEQ.L #0x00,D7> {[-4-]}
<MI 2212c BRA 0x22134> {[-4-]}
<POP 2212e-22132 Naked> Σ-4 →0x22134 ←0x22102
<MI 2212e MOVEQ.L #0x01,D7> {[-4-]}
<MI 22130 BRA 0x22134> {[-4-]}
<POP 22132-22134 Naked> Σ-4 ↓ ←0x220f6 ←0x22102 ←0x22102 ←0x22102 ←0x22102 ←0x22102 ←0x22102 ←0x22102 ←0x22102 ←0x22102 ←0x22102
<MI 22132 MOVEQ.L #0x02,D7> {[-4-]}
<POP 22134-22158 Naked> Σ-4 →0x2215e →0x22160 →0x2216a ←0x2212a ←0x2212e
<MI 22134 MOVEQ.L #0x03,D0> {[-4-]}
<MI 22136 MULS.W (A6-0x10),D0> {[-4-]}
<MI 22138 LEA.L 0x21d62,A0> {[-4-]}
<MI 2213c LEA.L (A0+D0.W),A0> {[-4-]}
<MI 22140 CLR.L D0> {[-4-]}
<MI 22142 MOVE.B (A0+D7.W),D0> {[-4-]}
<POP 0x22146 LimitCheck 0x0 ≤ D0 ≤ 0x2> {[-4-]}
<MI 2214e ADD.W D0,D0> {[-4-]}
<MI 22150 SWITCH D0.W> {[-4-]}
<POP 2215e-22160 Naked> Σ-4 →0x22176 ←0x22134
<MI 2215e BRA 0x22176> {[-4-]}
<POP 22160-2216a Naked> Σ-4 →0x22176 ←0x22134
<MI 22160 MOVEA.L (A7),A0> {[-4-]}
<MI 22162 MOVE.B (A6-0x4),(A0+D5.L+#0x1)> {[-4-]}
<MI 22166 ADDQ.L #0x1,D5> {[-4-]}
<MI 22168 BRA 0x22176> {[-4-]}
<POP 2216a-22176 Naked> Σ-4 ↓ ←0x22134
<MI 2216a MOVEA.L (A7),A0> {[-4-]}
<MI 2216c MOVE.B #0x2c,(A0+D5.L+#0x1)> {[-4-]}
<MI 22172 ADDQ.L #0x1,D5> {[-4-]}
<MI 22174 SUBQ.L #0x1,D6> {[-4-]}
<POP 22176-22190 Naked> Σ-4 →0x220d6 ←0x2215e ←0x22160
<MI 22176 MOVEQ.L #0x03,D0> {[-4-]}
<MI 22178 MULS.W (A6-0x10),D0> {[-4-]}
<MI 2217a LEA.L 0x21d6b,A0> {[-4-]}
<MI 2217e LEA.L (A0+D0.W),A0> {[-4-]}
<MI 22182 CLR.L D0> {[-4-]}
<MI 22184 MOVE.B (A0+D7.W),D0> {[-4-]}
<MI 22188 MOVE.W D0,(A6-0x10)> {[-4-]}
<MI 2218a ADDQ.L #0x1,D6> {[-4-]}
<MI 2218c BRA 0x220d6> {[-4-]}
<POP 22190-2219a Naked> Σ-4 Δ+4 ↓ ←0x220d6 ←0x22126
<MI 22190 MOVEA.L (A7),A0> {[-4-]}
<MI 22192 MOVE.L D5,D0> {[-4-]}
<MI 22194 SUBQ.L #0x1,D0> {[-4-]}
<MI 22196 MOVE.W D0,(A0)> {[-4-]}
<POP 22198-2219a StackAdj> Δ+4 {}
<POP 2219a-221a2 Epilogue> Σ0
@ 221a2
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x002 @ 1(r)>
<LVAR -0x00a @>
<LVAR -0x00e @ 4(r)>
<LVAR -0x014 @ 1(r)>
<POP 221a2-2224e Body>
<POP 221a2-221b8 Prologue> Σ0 ↓
<POP 221b8-221be RegCacheLoad> Σ0 ↓
<POP 221be-221cc Naked> Σ0 ↓ →0x221d4
<POP 221be-221c0 StackAdj> Δ-2 {[-2-]}
<Call 0x221c0 0x21ea0> {[-2-]}
<MI 221c4 MOVE.B (A7)+,D0> Δ+2 {}
<MI 221c6 CMPI.B #0x5b,D0> {}
<MI 221ca BNE 0x221d4> {}
<POP 221cc-221d4 Naked> Σ0 ↓
<POP 221cc-221ce StackAdj> Δ-2 {[-2-]}
<Call 0x221ce 0x21ede> {[-2-]}
<MI 221d2 MOVE.B (A7)+,D7> Δ+2 {}
<POP 221d4-221de Naked> Σ0 ↓ ←0x221be
<MI 221d4 MOVEA.L (A6+0xc),A0> {}
<MI 221d8 MOVE.L #0x01,(A0)> {}
<MI 221da CLR.B (A6-0x14)> {}
<POP 221de-221f8 Naked> Σ0 ↓ →0x2222e ←0x2222e
<Pointer.fp 0x221de <LVAR -0x00a @>> Δ-4 {[@@-10]}
<Pointer.fp 0x221e2 <LVAR -0x002 @ 1(r)>> Δ-4 {[@@-10]|[@@-2]}
<Pointer.fp 0x221e6 <LVAR -0x014 @ 1(r)>> Δ-4 {[@@-10]|[@@-2]|[@@-20]}
<Call 0x221ea 0x21ffc> {[@@-10]|[@@-2]|[@@-20]}
<POP 221ee-221f2 StackAdj> Δ+12 {}
<MI 221f2 TST.B (A6-0x2)> {}
<MI 221f6 BNE 0x2222e> {}
<POP 221f8-22224 Naked> Σ0 ↓ →0x22228
<Pointer.fp 0x221f8 <LVAR -0x00e @ 4(r)>> Δ-4 {[@@-14]}
<Const 0x221fa 0xc.4> Δ-4 {[@@-14]|[##12]}
<Call 0x221fe 0x1029c> {[@@-14]|[##12]}
Malloc1(length : Long) : Pointer
<POP 22204-22206 StackAdj> Δ+8 {}
<MI 22206 MOVEA.L (A6-0xe),A0> {}
<MI 22208 MOVEA.L A0,A1> {}
<MI 2220a LEA.L (A6-0xa),A2> {}
<BlockMove 8,A2,A1> {}
<MI 22216 MOVE.L #0x01,(A0+0x8)> {}
<MI 2221a MOVEA.L (A6+0xc),A0> {}
<MI 2221e MOVEA.L (A0),A1> {}
<MI 22220 CMPA.W #0x01,A1> {}
<MI 22222 BNE 0x22228> {}
<POP 22224-22228 Naked> Σ0 →0x2222c
<MI 22224 MOVE.L (A6-0xe),(A0)> {}
<MI 22226 BRA 0x2222c> {}
<POP 22228-2222c Naked> Σ0 ↓ ←0x221f8
<MI 22228 MOVE.L (A6-0xe),(A4+0x8)> {}
<POP 2222c-2222e Naked> Σ0 ↓ ←0x22224
<MI 2222c MOVEA.L (A6-0xe),A4> {}
<POP 2222e-22234 Naked> Σ0 ↓ →0x221de ←0x221de
<MI 2222e TST.B (A6-0x2)> {}
<MI 22232 BEQ 0x221de> {}
<POP 22234-22244 Naked> Σ0 ↓ →0x22246
<MI 22234 MOVEA.L (A6+0x8),A0> {}
<MI 22238 CLR.B (A0)> {}
<MI 2223a MOVE.B (A6-0x2),D0> {}
<MI 2223e CMPI.B #0x02,D0> {}
<MI 22242 BNE 0x22246> {}
<POP 22244-22246 Naked> Σ0 ↓
<MI 22244 ADDQ.B #0x1,(A0)> {}
<POP 22246-2224e Epilogue> Σ0 ←0x22234
@ 2224e
<LVAR 0x00c 4(w)>
<LVAR 0x008 4(r)>
<POP 2224e-22284 Body>
<POP 2224e-22264 Prologue> Σ0 ↓
<POP 22264-2226a Naked> Σ0 ↓
<MI 22264 MOVEQ.L #-0x01,D7> {}
<MI 22266 MOVEA.L (A6+0x8),A4> {}
<POP 2226a-22270 Naked> Σ0 ↓ →0x22278 ←0x22270
<MI 2226a CMPA.W #0x1,A4> {}
<MI 2226e BEQ 0x22278> {}
<POP 22270-22278 Naked> Σ0 →0x2226a
<MI 22270 ADDQ.L #0x1,D7> {}
<MI 22272 MOVEA.L (A4+0x8),A4> {}
<MI 22276 BRA 0x2226a> {}
<POP 22278-2227c Naked> Σ0 ↓ ←0x2226a
<MI 22278 MOVE.L D7,(A6+0xc)> {}
<POP 2227c-22284 Epilogue> Σ0
@ 22284
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 22284-22310 Body>
<POP 22284-2229a Prologue> Σ0 ↓
<POP 2229a-2229c RegCacheLoad> Σ0 ↓
<POP 2229c-222b0 Naked> Σ0 ↓ →0x22308
<POP 2229c-2229e StackAdj> Δ-4 {[-4-]}
<MI 2229e MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']}
<Call 0x222a2 0x2224e> {[-4-]|[4, '(A6+0xc)']}
<POP 222a6-222a8 StackAdj> Δ+4 {[-4-]}
<MI 222a8 MOVE.L (A7)+,D0> Δ+4 {}
<MI 222aa CMP.L (A6+0x8),D0> {}
<MI 222ae BEQ 0x22308> {}
<POP 222b0-22308 Naked> Σ0 ↓
<MI 222b0 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<Call 0x222b4 0x21e00> {[4, '(A6+0xc)']}
<POP 222b8-222ba StackAdj> Δ+4 {}
<Blob 0x222ba [32] @> Δ-32 {[«32""»]}
<Blob 0x222c6 [10] (A6+0x1a)> Δ-10 {[«32""»]|[«10»]}
<POP 222d2-222d4 StackAdj> Δ-8 {[«32""»]|[«10»]|[-8-]}
<Lit 0x222d4 32> {[«32""»]|[«10»]|[-4-]|[$$Wrong number of arguments for :_]}
<POP 222e4-222e6 StackAdj> Δ-4 {[«32""»]|[«10»]|[-4-]|[$$Wrong number of arguments for :_]|[-4-]}
<Lit 0x222e6> {[«32""»]|[«10»]|[-4-]|[$$Wrong number of arguments for :_]|[$$…]}
<Pointer.sp 0x222e6 12> Δ-4
<Const 0x222ea 0x1.2> Δ-2
<Const 0x222ec 0xa.2> Δ-2
<Call 0x222f0 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 222f6-222f8 StackAdj> Δ+8
<Call 0x222f8 0x102d0> {[«32""»]|[«10»]|[-4-]|[$$Wrong number of arguments for :_]|[$$…]}
StringCat2(a, b : String) : String
<POP 222fe-22300 StackAdj> Δ+8 {[«32""»]|[«10»]|[-4-]}
<Call 0x22300 0x21e42> {[«32""»]|[«10»]|[-4-]}
<POP 22304-22308 StackAdj> Δ+46 {}
<POP 22308-22310 Epilogue> Σ0 ←0x2229c
@ 22310
<LVAR 0x014 1(rw)>
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 22310-22396 Body> Δ-4
<POP 22310-22326 Prologue> Σ0 ↓
<POP 22326-2233a Naked> Σ0 ↓ →0x22388
<MI 22326 CLR.B (A6+0x14)> {}
<MI 2232a MOVE.L (A6+0x10),D0> {}
<MI 2232e ADD.L (A6+0x8),D0> {}
<MI 22332 CMP.L 0x2795e,D0> {}
<MI 22338 BGT 0x22388> {}
<POP 2233a-22340 Naked> Σ0 Δ-4 ↓
<MI 2233a MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<MI 2233e MOVEQ.L #0x01,D7> {[4, '(A6+0x8)']}
<POP 22340-22344 Naked> Σ-4 ↓ →0x22386 ←0x22382
<MI 22340 CMP.L (A7),D7> {[-4-]}
<MI 22342 BGT 0x22386> {[-4-]}
<POP 22344-2237e Naked> Σ-4 ↓ →0x22382
<MI 22344 MOVE.L (A6+0x10),D0> {[-4-]}
<MI 22348 ADD.L D7,D0> {[-4-]}
<MI 2234a SUBQ.L #0x1,D0> {[-4-]}
<POP 0x2234c LimitCheck 0x0 ≤ D0 ≤ 0x1fff> {[-4-]}
<MI 22356 LEA.L 0x25952,A0> {[-4-]}
<MI 2235c MOVE.L (A6+0xc),D1> {[-4-]}
<MI 22360 ADD.L D7,D1> {[-4-]}
<MI 22362 SUBQ.L #0x1,D1> {[-4-]}
<MI 22364 SUBQ.L #0x1,D1> {[-4-]}
<POP 0x22366 LimitCheck 0x0 ≤ D1 ≤ 0x3e> {[-4-]}
<MI 22370 LEA.L 0x2195c,A1> {[-4-]}
<MI 22374 MOVE.B (A0+D0.L+#0x8),D0> {[-4-]}
<MI 22378 CMP.B (A1+D1.L),D0> {[-4-]}
<MI 2237c BEQ 0x22382> {[-4-]}
<POP 2237e-22382 Naked> Σ-4 Δ+4 →0x2238e
<POP 2237e-22380 StackAdj> Δ+4 {}
<MI 22380 BRA 0x2238e> {}
<POP 22382-22386 Naked> Σ-4 ↓ →0x22340 ←0x22344
<MI 22382 ADDQ.L #0x1,D7> {[-4-]}
<MI 22384 BVC 0x22340> {[-4-]}
<POP 22386-22388 Naked> Σ-4 Δ+4 ↓ ←0x22340
<POP 22386-22388 StackAdj> Δ+4 {}
<POP 22388-2238e Naked> Σ0 ↓ ←0x22326
<MI 22388 MOVE.B #0x01,(A6+0x14)> {}
<POP 2238e-22396 Epilogue> Σ0 ←0x2237e
@ 22396
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 22396-22420 Body>
<POP 22396-223ac Prologue> Σ0 ↓
<POP 223ac-223b6 RegCacheLoad> Σ0 ↓
<POP 223b6-223ba Naked> Σ0 ↓ →0x223f8
<MI 223b6 TST.L (A6+0x8)> {}
<MI 223b8 BGE 0x223f8> {}
<POP 223ba-223c8 Naked> Σ0 ↓ →0x223f8
<MI 223ba MOVE.L (A6+0x8),D0> {}
<MI 223bc NEG.L D0> {}
<MI 223be ADD.L 0x2795e,D0> {}
<MI 223c0 CMPI.L #0x00002000,D0> {}
<MI 223c6 BLE 0x223f8> {}
<POP 223c8-223f8 Naked> Σ0 ↓
<Blob 0x223c8 [28] @> Δ-28 {[«28""»]}
<POP 223da-223dc StackAdj> Δ-4 {[«28""»]|[-4-]}
<Lit 0x223dc 27> {[«28""»]|[$$Evaluation buffer overflow.]}
<Call 0x223f0 0x21e42> {[«28""»]|[$$Evaluation buffer overflow.]}
<POP 223f4-223f8 StackAdj> Δ+32 {}
<POP 223f8-22418 Naked> Σ0 ↓ ←0x223b6 ←0x223ba
<MI 223f8 LEA.L 0x2595a,A0> {}
<MI 223fe MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Blob 0x22400 [4] 0x2795e> Δ-4 {[4, 'A0']|[«4»]}
<MI 22402 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, 'A0']|[«4»]|[4, '(A6+0xc)']}
<MI 22406 MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, 'A0']|[«4»]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x22408 0x10364> {[4, 'A0']|[«4»]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
MovStringTail(Base, Len, Ptr, Delta)
<POP 2240e-22412 StackAdj> Δ+16 {}
<MI 22412 MOVE.L 0x2795e,D0> {}
<MI 22414 SUB.L (A6+0x8),D0> {}
<MI 22416 MOVE.L D0,0x2795e> {}
<POP 22418-22420 Epilogue> Σ0
@ 22420
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 22420-224aa Body>
<POP 22420-22436 Prologue> Σ0 ↓
<POP 22436-2243a RegCacheLoad> Σ0 ↓
<POP 2243a-2245a Naked> Σ0 Δ-8 ↓
<MI 2243a MOVEA.L (A6+0x8),A0> {}
<MI 2243e MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 22440 MOVEA.L (A6+0xc),A1> {[4, 'A0']}
<MI 22442 MOVE.L (A1),-(A7)> Δ-4 {[4, 'A0']|[4, '(A1)']}
<MI 22444 MOVE.W (A0),D0> {[4, 'A0']|[4, '(A1)']}
<MI 22446 EXTW.L D0> {[4, 'A0']|[4, '(A1)']}
<MI 22448 NEG.L D0> {[4, 'A0']|[4, '(A1)']}
<MI 2244a MOVE.L D0,-(A7)> Δ-4 {[4, 'A0']|[4, '(A1)']|[4, 'D0']}
<Call 0x2244c 0x22396> {[4, 'A0']|[4, '(A1)']|[4, 'D0']}
<POP 22450-22452 StackAdj> Δ+8 {[4, 'A0']}
<MI 22452 MOVE.W (A0),D0> {[4, 'A0']}
<MI 22454 EXTW.L D0> {[4, 'A0']}
<MI 22456 MOVE.L D0,-(A7)> Δ-4 {[4, 'A0']|[4, 'D0']}
<MI 22458 MOVEQ.L #0x01,D7> {[4, 'A0']|[4, 'D0']}
<POP 2245a-2245e Naked> Σ-8 ↓ →0x22494 ←0x2245e
<MI 2245a CMP.L (A7),D7> {[-8-]}
<MI 2245c BGT 0x22494> {[-8-]}
<POP 2245e-22494 Naked> Σ-8 ↓ →0x2245a
<MI 2245e MOVEA.L (A6+0xc),A0> {[-8-]}
<MI 22460 MOVE.L D7,D0> {[-8-]}
<MI 22462 ADD.L (A0),D0> {[-8-]}
<MI 22464 SUBQ.L #0x1,D0> {[-8-]}
<MI 22466 SUBQ.L #0x1,D0> {[-8-]}
<POP 0x22468 LimitCheck 0x0 ≤ D0 ≤ 0x1fff> {[-8-]}
<MI 22472 LEA.L 0x25952,A0> {[-8-]}
<MI 22478 MOVE.L D7,D1> {[-8-]}
<MI 2247a SUBQ.L #0x1,D1> {[-8-]}
<POP 0x2247c LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-8-]}
<MI 22486 MOVEA.L (A7+0x4),A1> {[-8-]}
<MI 2248a MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x8)> {[-8-]}
<MI 22490 ADDQ.L #0x1,D7> {[-8-]}
<MI 22492 BVC 0x2245a> {[-8-]}
<POP 22494-224a2 Naked> Σ-8 Δ+8 ↓ ←0x2245a
<POP 22494-22496 StackAdj> Δ+4 {[-4-]}
<MI 22496 MOVEA.L (A6+0xc),A0> {[-4-]}
<MI 22498 MOVEA.L (A7),A1> {[-4-]}
<MI 2249a MOVE.W (A1),D0> {[-4-]}
<MI 2249c EXTW.L D0> {[-4-]}
<MI 2249e ADD.L D0,(A0)> {[-4-]}
<POP 224a0-224a2 StackAdj> Δ+4 {}
<POP 224a2-224aa Epilogue> Σ0
@ 224aa
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 224aa-2262a Body>
<POP 224aa-224c0 Prologue> Σ0 ↓
<POP 224c0-224ce RegCacheLoad> Σ0 ↓
<POP 224ce-224e0 Naked> Σ0 ↓
<MI 224ce MOVEQ.L #0x00,D7> {}
<MI 224d0 MOVEA.L (A6+0xc),A0> {}
<MI 224d4 CLR.L (A0)> {}
<MI 224d6 MOVEA.L (A6+0x8),A0> {}
<MI 224d8 CLR.L (A0)> {}
<MI 224da MOVE.L 0x2795a,D6> {}
<POP 224e0-22500 Naked> Σ0 ↓ →0x225d2 ←0x225dc ←0x225e2
<MI 224e0 MOVE.L D6,D0> {}
<MI 224e2 SUBQ.L #0x1,D0> {}
<POP 0x224e4 LimitCheck 0x0 ≤ D0 ≤ 0x1fff> {}
<MI 224ee LEA.L 0x25952,A0> {}
<MI 224f4 MOVE.B (A0+D0.L+#0x8),D0> {}
<MI 224f8 CMPI.B #0x5b,D0> {}
<MI 224fc BNE 0x225d2> {}
<POP 22500-22514 Naked> Σ0 ↓ →0x22592
<POP 22500-22502 StackAdj> Δ-2 {[-2-]}
<MI 22502 MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x22504 0x1.4> Δ-4 {[-2-]|[4, 'D6']|[##1]}
<Const 0x22508 0x3.4> Δ-4 {[-2-]|[4, 'D6']|[##1]|[##3]}
<Call 0x2250c 0x22310> {[-2-]|[4, 'D6']|[##1]|[##3]}
<POP 2250e-22510 StackAdj> Δ+12 {[-2-]}
<MI 22510 TST.B (A7)+> Δ+2 {}
<MI 22512 BNE 0x22592> {}
<POP 22514-22526 Naked> Σ0 ↓ →0x22592
<POP 22514-22516 StackAdj> Δ-2 {[-2-]}
<MI 22516 MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x22518 0x4.4> Δ-4 {[-2-]|[4, 'D6']|[##4]}
<Const 0x2251a 0x3.4> Δ-4 {[-2-]|[4, 'D6']|[##4]|[##3]}
<Call 0x2251e 0x22310> {[-2-]|[4, 'D6']|[##4]|[##3]}
<POP 22520-22522 StackAdj> Δ+12 {[-2-]}
<MI 22522 TST.B (A7)+> Δ+2 {}
<MI 22524 BNE 0x22592> {}
<POP 22526-22538 Naked> Σ0 ↓ →0x22592
<POP 22526-22528 StackAdj> Δ-2 {[-2-]}
<MI 22528 MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x2252a 0x7.4> Δ-4 {[-2-]|[4, 'D6']|[##7]}
<Const 0x2252e 0x4.4> Δ-4 {[-2-]|[4, 'D6']|[##7]|[##4]}
<Call 0x22530 0x22310> {[-2-]|[4, 'D6']|[##7]|[##4]}
<POP 22532-22534 StackAdj> Δ+12 {[-2-]}
<MI 22534 TST.B (A7)+> Δ+2 {}
<MI 22536 BNE 0x22592> {}
<POP 22538-2254a Naked> Σ0 ↓ →0x22592
<POP 22538-2253a StackAdj> Δ-2 {[-2-]}
<MI 2253a MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x2253c 0xb.4> Δ-4 {[-2-]|[4, 'D6']|[##11]}
<Const 0x22540 0x4.4> Δ-4 {[-2-]|[4, 'D6']|[##11]|[##4]}
<Call 0x22542 0x22310> {[-2-]|[4, 'D6']|[##11]|[##4]}
<POP 22544-22546 StackAdj> Δ+12 {[-2-]}
<MI 22546 TST.B (A7)+> Δ+2 {}
<MI 22548 BNE 0x22592> {}
<POP 2254a-2255c Naked> Σ0 ↓ →0x22592
<POP 2254a-2254c StackAdj> Δ-2 {[-2-]}
<MI 2254c MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x2254e 0xf.4> Δ-4 {[-2-]|[4, 'D6']|[##15]}
<Const 0x22552 0x4.4> Δ-4 {[-2-]|[4, 'D6']|[##15]|[##4]}
<Call 0x22554 0x22310> {[-2-]|[4, 'D6']|[##15]|[##4]}
<POP 22556-22558 StackAdj> Δ+12 {[-2-]}
<MI 22558 TST.B (A7)+> Δ+2 {}
<MI 2255a BNE 0x22592> {}
<POP 2255c-2256e Naked> Σ0 ↓ →0x22592
<POP 2255c-2255e StackAdj> Δ-2 {[-2-]}
<MI 2255e MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x22560 0x13.4> Δ-4 {[-2-]|[4, 'D6']|[##19]}
<Const 0x22564 0x4.4> Δ-4 {[-2-]|[4, 'D6']|[##19]|[##4]}
<Call 0x22566 0x22310> {[-2-]|[4, 'D6']|[##19]|[##4]}
<POP 22568-2256a StackAdj> Δ+12 {[-2-]}
<MI 2256a TST.B (A7)+> Δ+2 {}
<MI 2256c BNE 0x22592> {}
<POP 2256e-22580 Naked> Σ0 ↓ →0x22592
<POP 2256e-22570 StackAdj> Δ-2 {[-2-]}
<MI 22570 MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x22572 0x17.4> Δ-4 {[-2-]|[4, 'D6']|[##23]}
<Const 0x22576 0x4.4> Δ-4 {[-2-]|[4, 'D6']|[##23]|[##4]}
<Call 0x22578 0x22310> {[-2-]|[4, 'D6']|[##23]|[##4]}
<POP 2257a-2257c StackAdj> Δ+12 {[-2-]}
<MI 2257c TST.B (A7)+> Δ+2 {}
<MI 2257e BNE 0x22592> {}
<POP 22580-22592 Naked> Σ0 ↓ →0x22596
<POP 22580-22582 StackAdj> Δ-2 {[-2-]}
<MI 22582 MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x22584 0x1b.4> Δ-4 {[-2-]|[4, 'D6']|[##27]}
<Const 0x22588 0x4.4> Δ-4 {[-2-]|[4, 'D6']|[##27]|[##4]}
<Call 0x2258a 0x22310> {[-2-]|[4, 'D6']|[##27]|[##4]}
<POP 2258c-2258e StackAdj> Δ+12 {[-2-]}
<MI 2258e TST.B (A7)+> Δ+2 {}
<MI 22590 BEQ 0x22596> {}
<POP 22592-22596 Naked> Σ0 →0x225d2 ←0x22500 ←0x22514 ←0x22526 ←0x22538 ←0x2254a ←0x2255c ←0x2256e
<MI 22592 ADDQ.L #0x1,D7> {}
<MI 22594 BRA 0x225d2> {}
<POP 22596-2259a Naked> Σ0 ↓ →0x225b6 ←0x22580
<MI 22596 TST.L D7> {}
<MI 22598 BNE 0x225b6> {}
<POP 2259a-225ae Naked> Σ0 ↓ →0x225b6
<POP 2259a-2259c StackAdj> Δ-2 {[-2-]}
<MI 2259c MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x2259e 0x1f.4> Δ-4 {[-2-]|[4, 'D6']|[##31]}
<Const 0x225a2 0x5.4> Δ-4 {[-2-]|[4, 'D6']|[##31]|[##5]}
<Call 0x225a6 0x22310> {[-2-]|[4, 'D6']|[##31]|[##5]}
<POP 225a8-225aa StackAdj> Δ+12 {[-2-]}
<MI 225aa TST.B (A7)+> Δ+2 {}
<MI 225ac BEQ 0x225b6> {}
<POP 225ae-225b2 Naked> Σ0 ↓
<MI 225ae MOVEA.L (A6+0xc),A0> {}
<POP 225b2-225b6 Naked> Σ0 →0x225d2 ←0x225cc
<MI 225b2 MOVE.L D6,(A0)> {}
<MI 225b4 BRA 0x225d2> {}
<POP 225b6-225c8 Naked> Σ0 ↓ →0x225d2 ←0x22596 ←0x2259a
<POP 225b6-225b8 StackAdj> Δ-2 {[-2-]}
<MI 225b8 MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x225ba 0x24.4> Δ-4 {[-2-]|[4, 'D6']|[##36]}
<Const 0x225be 0x4.4> Δ-4 {[-2-]|[4, 'D6']|[##36]|[##4]}
<Call 0x225c0 0x22310> {[-2-]|[4, 'D6']|[##36]|[##4]}
<POP 225c2-225c4 StackAdj> Δ+12 {[-2-]}
<MI 225c4 TST.B (A7)+> Δ+2 {}
<MI 225c6 BEQ 0x225d2> {}
<POP 225c8-225cc Naked> Σ0 ↓ →0x225d0
<MI 225c8 TST.L D7> {}
<MI 225ca BNE 0x225d0> {}
<POP 225cc-225d0 Naked> Σ0 →0x225b2
<MI 225cc MOVEA.L (A6+0x8),A0> {}
<MI 225ce BRA 0x225b2> {}
<POP 225d0-225d2 Naked> Σ0 ↓ ←0x225c8
<MI 225d0 SUBQ.L #0x1,D7> {}
<POP 225d2-225dc Naked> Σ0 ↓ →0x225ea ←0x224e0 ←0x22592 ←0x225b2 ←0x225b6
<MI 225d2 ADDQ.L #0x1,D6> {}
<MI 225d4 CMP.L 0x2795e,D6> {}
<MI 225da BGT 0x225ea> {}
<POP 225dc-225e2 Naked> Σ0 ↓ →0x224e0
<MI 225dc TST.L D7> {}
<MI 225de BNE 0x224e0> {}
<POP 225e2-225ea Naked> Σ0 ↓ →0x224e0
<MI 225e2 MOVEA.L (A6+0x8),A0> {}
<MI 225e4 TST.L (A0)> {}
<MI 225e6 BEQ 0x224e0> {}
<POP 225ea-225f2 Naked> Σ0 ↓ →0x22622 ←0x225d2
<MI 225ea CMP.L 0x2795e,D6> {}
<MI 225f0 BLE 0x22622> {}
<POP 225f2-22622 Naked> Σ0 ↓
<Blob 0x225f2 [28] @> Δ-28 {[«28""»]}
<POP 22604-22606 StackAdj> Δ-4 {[«28""»]|[-4-]}
<Lit 0x22606 27> {[«28""»]|[$$Unbalanced [ELSE] or [END]!]}
<Call 0x2261a 0x21e42> {[«28""»]|[$$Unbalanced [ELSE] or [END]!]}
<POP 2261e-22622 StackAdj> Δ+32 {}
<POP 22622-2262a Epilogue> Σ0 ←0x225ea
@ 2262a
<LVAR -0x004 @ 4(r)>
<LVAR -0x008 @ 4(rw)>
<POP 2262a-22670 Body>
<POP 2262a-22640 Prologue> Σ0 ↓
<POP 22640-22648 RegCacheLoad> Σ0 ↓
<POP 22648-22656 Naked> Σ0 ↓ →0x22658
<Pointer.fp 0x22648 <LVAR -0x008 @ 4(rw)>> Δ-4 {[@@-8]}
<Pointer.fp 0x2264a <LVAR -0x004 @ 4(r)>> Δ-4 {[@@-8]|[@@-4]}
<Call 0x2264c 0x224aa> {[@@-8]|[@@-4]}
<POP 22650-22652 StackAdj> Δ+8 {}
<MI 22652 TST.L (A6-0x8)> {}
<MI 22654 BNE 0x22658> {}
<POP 22656-22658 Naked> Σ0 ↓
<MI 22656 MOVE.L (A6-0x4),(A6-0x8)> {}
<POP 22658-22668 Naked> Σ0 ↓ ←0x22648
<MI 22658 MOVE.L (A6-0x4),D0> {}
<MI 2265a ADDQ.L #0x5,D0> {}
<MI 2265c MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 2265e SUB.L (A6-0x8),D0> {[4, 'D0']}
<MI 22660 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']|[4, 'D0']}
<Call 0x22662 0x22396> {[4, 'D0']|[4, 'D0']}
<POP 22666-22668 StackAdj> Δ+8 {}
<POP 22668-22670 Epilogue> Σ0
@ 22670
<LVAR -0x004 @ 4(r)>
<LVAR -0x008 @ 4(r)>
<POP 22670-226cc Body>
<POP 22670-22686 Prologue> Σ0 ↓
<POP 22686-2268e RegCacheLoad> Σ0 ↓
<POP 2268e-2269c Naked> Σ0 ↓ →0x226a2
<Pointer.fp 0x2268e <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-8]}
<Pointer.fp 0x22690 <LVAR -0x004 @ 4(r)>> Δ-4 {[@@-8]|[@@-4]}
<Call 0x22692 0x224aa> {[@@-8]|[@@-4]}
<POP 22696-22698 StackAdj> Δ+8 {}
<MI 22698 TST.L (A6-0x8)> {}
<MI 2269a BNE 0x226a2> {}
<POP 2269c-226a2 Naked> Σ0 →0x226b4
<MI 2269c MOVE.L (A6-0x4),D0> {}
<MI 2269e ADDQ.L #0x5,D0> {}
<MI 226a0 BRA 0x226b4> {}
<POP 226a2-226b4 Naked> Σ0 ↓ ←0x2268e
<MI 226a2 MOVE.L (A6-0x4),-(A7)> Δ-4 {[4, '(A6-0x4)']}
<MI 226a4 ADDQ.L #0x5,(A7)> {[-4-]}
<Const 0x226a6 0x5.4> Δ-4 {[-4-]|[##5]}
<Call 0x226aa 0x22396> {[-4-]|[##5]}
<POP 226ae-226b0 StackAdj> Δ+8 {}
<MI 226b0 MOVE.L (A6-0x8),D0> {}
<MI 226b2 ADDQ.L #0x6,D0> {}
<POP 226b4-226c4 Naked> Σ0 ↓ ←0x2269c
<MI 226b4 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 226b6 SUB.L 0x2795a,D0> {[4, 'D0']}
<MI 226bc MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']|[4, 'D0']}
<Call 0x226be 0x22396> {[4, 'D0']|[4, 'D0']}
<POP 226c2-226c4 StackAdj> Δ+8 {}
<POP 226c4-226cc Epilogue> Σ0
@ 226cc
<LVAR 0x008 4(r)>
<LVAR -0x004 @>
<LVAR -0x008 @ 4(r)>
<LVAR -0x00c @ 4(rw)>
<LVAR -0x010 4(rw)>
<LVAR -0x014 4(rw)>
<POP 226cc-227e0 Body>
<POP 226cc-226e2 Prologue> Σ0 ↓
<POP 226e2-226fa RegCacheLoad> Σ0 ↓
<POP 226fa-226fe Naked> Σ0 ↓ →0x22708
<MI 226fa TST.B 0x2796c> {}
<MI 226fc BEQ 0x22708> {}
<POP 226fe-22702 Naked> Σ0 ↓ →0x22708
<MI 226fe TST.L 0x27972> {}
<MI 22700 BNE 0x22708> {}
<POP 22702-22708 Naked> Σ0 ↓
<MI 22702 MOVE.L (A6+0x8),0x27972> {}
<MI 22706 SUBQ.L #0x1,0x27972> {}
<POP 22708-2270e Naked> Σ0 ↓ →0x227d8 ←0x226fa ←0x226fe
<MI 22708 TST.B 0x2796c> {}
<MI 2270a BNE 0x227d8> {}
<POP 2270e-22742 Naked> Σ0 ↓ →0x2275c
<MI 2270e MOVE.L (A6+0x8),0x2795a> {}
<MI 22712 ADDQ.L #0x6,0x2795a> {}
<Pointer.fp 0x22714 <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-8]}
<Pointer.fp 0x22716 <LVAR -0x004 @>> Δ-4 {[@@-8]|[@@-4]}
<Call 0x2271a 0x221a2> {[@@-8]|[@@-4]}
<POP 2271e-22720 StackAdj> Δ+8 {}
<Blob 0x22720 [10] @> Δ-10 {[«10""»]}
<MI 2272c MOVE.L (A6-0x8),-(A7)> Δ-4 {[«10""»]|[4, '(A6-0x8)']}
<Const 0x2272e 0x0.4> Δ-4 {[«10""»]|[4, '(A6-0x8)']|[##0]}
<Call 0x22732 0x22284> {[«10""»]|[4, '(A6-0x8)']|[##0]}
<POP 22736-2273a StackAdj> Δ+18 {}
<MI 2273a TST.B 0x27976> {}
<MI 22740 BEQ 0x2275c> {}
<POP 22742-2275c Naked> Σ0 →0x22770
<POP 22742-22744 StackAdj> Δ-8 {[-8-]}
<MI 22744 MOVE.L (A6-0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x8)']}
<Const 0x22746 0x0.4> Δ-4 {[-8-]|[4, '(A6-0x8)']|[##0]}
<Call 0x2274a 0x22b9c> {[-8-]|[4, '(A6-0x8)']|[##0]}
<POP 22750-22752 StackAdj> Δ+8 {[-8-]}
<MI 22752 MOVE.L (A7)+,(A6-0x14)> Δ+4 {[-4-]}
<MI 22756 MOVE.L (A7)+,(A6-0x10)> Δ+4 {}
<MI 2275a BRA 0x22770> {}
<POP 2275c-22770 Naked> Σ0 ↓ ←0x2270e
<POP 2275c-2275e StackAdj> Δ-4 {[-4-]}
<MI 2275e MOVE.L (A6-0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x8)']}
<Const 0x22760 0x0.4> Δ-4 {[-4-]|[4, '(A6-0x8)']|[##0]}
<Call 0x22764 0x22b6a> {[-4-]|[4, '(A6-0x8)']|[##0]}
<POP 2276a-2276c StackAdj> Δ+8 {[-4-]}
<MI 2276c MOVE.L (A7)+,(A6-0xc)> Δ+4 {}
<POP 22770-22786 Naked> Σ0 ↓ →0x227b0 ←0x22742
<MI 22770 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<Call 0x22772 0x21e00> {[4, '(A6-0x8)']}
<POP 22776-22778 StackAdj> Δ+4 {}
<MI 22778 MOVE.L 0x2795a,0x2796e> {}
<MI 2277e TST.B 0x27976> {}
<MI 22784 BEQ 0x227b0> {}
<POP 22786-227b0 Naked> Σ0 →0x227d8
<POP 22786-22788 StackAdj> Δ-2 {[-2-]}
<MI 22788 MOVE.L (A6-0x10),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x10)']}
<MI 2278c MOVE.L (A6-0x14),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<Blob 0x22790 [4] 0x27980> Δ-4 {[-2-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']|[«4»]}
<Blob 0x22796 [4] 0x2797c> Δ-4 {[-2-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']|[«4»]|[«4»]}
<Call 0x2279c 0x1032c> {[-2-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']|[«4»]|[«4»]}
IsEqual(a, b : Quad) : Bool
<POP 227a2-227a6 StackAdj> Δ+16 {[-2-]}
<MI 227a6 MOVE.B (A7)+,D0> Δ+2 {}
<MI 227a8 EXTB.W D0> {}
<POP 0x227aa LimitCheck 0x0 ≤ D0 ≤ 0x1> {}
<MI 227ac MOVE.B D0,0x2796c> {}
<MI 227ae BRA 0x227d8> {}
<POP 227b0-227d8 Naked> Σ0 ↓ ←0x22770
<POP 227b0-227b2 StackAdj> Δ-2 {[-2-]}
<MI 227b2 MOVE.L (A6-0xc),-(A7)> Δ-4 {[-2-]|[4, '(A6-0xc)']}
<Blob 0x227b6 [4] 0x27978> Δ-4 {[-2-]|[4, '(A6-0xc)']|[«4»]}
<Call 0x227bc 0x102c8> {[-2-]|[4, '(A6-0xc)']|[«4»]}
StringEqual(a, b : String) : Byte
<POP 227c2-227c4 StackAdj> Δ+8 {[-2-]}
<MI 227c4 MOVE.B (A7)+,D0> Δ+2 {}
<MI 227c6 EXTB.W D0> {}
<POP 0x227c8 LimitCheck 0x0 ≤ D0 ≤ 0x1> {}
<MI 227ca MOVE.B D0,0x2796c> {}
<Pointer.fp 0x227cc <LVAR -0x00c @ 4(rw)>> Δ-4 {[@@-12]}
<Call 0x227d0 0x102bc> {[@@-12]}
FreeString(VAR a : String)
<POP 227d6-227d8 StackAdj> Δ+4 {}
<POP 227d8-227e0 Epilogue> Σ0 ←0x22708 ←0x22786
@ 227e0
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 227e0-22962 Body>
<POP 227e0-227f6 Prologue> Σ0 ↓
<POP 227f6-2280a RegCacheLoad> Σ0 ↓
<POP 2280a-2281e Naked> Σ0 ↓
<MI 2280a CLR.B 0x2796c> {}
<MI 2280c CLR.L 0x2796e> {}
<MI 22812 CLR.L 0x27972> {}
<MI 22814 MOVEQ.L #0x00,D7> {}
<MI 22816 MOVEQ.L #0x00,D6> {}
<MI 22818 MOVE.L 0x2795a,D5> {}
<POP 2281e-22824 Naked> Σ0 ↓ →0x228c2 ←0x228be
<MI 2281e TST.L D6> {}
<MI 22820 BNE 0x228c2> {}
<POP 22824-2282e Naked> Σ0 ↓ →0x228c2
<MI 22824 CMP.L 0x2795e,D5> {}
<MI 2282a BGT 0x228c2> {}
<POP 2282e-2284c Naked> Σ0 ↓ →0x228b8
<MI 2282e MOVE.L D5,D0> {}
<MI 22830 SUBQ.L #0x1,D0> {}
<POP 0x22832 LimitCheck 0x0 ≤ D0 ≤ 0x1fff> {}
<MI 2283c LEA.L 0x25952,A0> {}
<MI 22842 MOVE.B (A0+D0.L+#0x8),D0> {}
<MI 22846 CMPI.B #0x5b,D0> {}
<MI 2284a BNE 0x228b8> {}
<POP 2284c-22860 Naked> Σ0 ↓ →0x22874
<POP 2284c-2284e StackAdj> Δ-2 {[-2-]}
<MI 2284e MOVE.L D5,-(A7)> Δ-4 {[-2-]|[4, 'D5']}
<Const 0x22850 0x28.4> Δ-4 {[-2-]|[4, 'D5']|[##40]}
<Const 0x22854 0x5.4> Δ-4 {[-2-]|[4, 'D5']|[##40]|[##5]}
<Call 0x22858 0x22310> {[-2-]|[4, 'D5']|[##40]|[##5]}
<POP 2285a-2285c StackAdj> Δ+12 {[-2-]}
<MI 2285c TST.B (A7)+> Δ+2 {}
<MI 2285e BNE 0x22874> {}
<POP 22860-22874 Naked> Σ0 ↓ →0x22878
<POP 22860-22862 StackAdj> Δ-2 {[-2-]}
<MI 22862 MOVE.L D5,-(A7)> Δ-4 {[-2-]|[4, 'D5']}
<Const 0x22864 0x2d.4> Δ-4 {[-2-]|[4, 'D5']|[##45]}
<Const 0x22868 0x6.4> Δ-4 {[-2-]|[4, 'D5']|[##45]|[##6]}
<Call 0x2286c 0x22310> {[-2-]|[4, 'D5']|[##45]|[##6]}
<POP 2286e-22870 StackAdj> Δ+12 {[-2-]}
<MI 22870 TST.B (A7)+> Δ+2 {}
<MI 22872 BEQ 0x22878> {}
<POP 22874-22878 Naked> Σ0 →0x228b8 ←0x2284c
<MI 22874 ADDQ.L #0x1,D7> {}
<MI 22876 BRA 0x228b8> {}
<POP 22878-2287c Naked> Σ0 ↓ →0x2289a ←0x22860
<MI 22878 TST.L D7> {}
<MI 2287a BNE 0x2289a> {}
<POP 2287c-22890 Naked> Σ0 ↓ →0x2289a
<POP 2287c-2287e StackAdj> Δ-2 {[-2-]}
<MI 2287e MOVE.L D5,-(A7)> Δ-4 {[-2-]|[4, 'D5']}
<Const 0x22880 0x33.4> Δ-4 {[-2-]|[4, 'D5']|[##51]}
<Const 0x22884 0x5.4> Δ-4 {[-2-]|[4, 'D5']|[##51]|[##5]}
<Call 0x22888 0x22310> {[-2-]|[4, 'D5']|[##51]|[##5]}
<POP 2288a-2288c StackAdj> Δ+12 {[-2-]}
<MI 2288c TST.B (A7)+> Δ+2 {}
<MI 2288e BEQ 0x2289a> {}
<POP 22890-2289a Naked> Σ0 →0x228b8
<MI 22890 MOVE.L D5,-(A7)> Δ-4 {[4, 'D5']}
<Call 0x22892 0x226cc> {[4, 'D5']}
<POP 22896-22898 StackAdj> Δ+4 {}
<MI 22898 BRA 0x228b8> {}
<POP 2289a-228ae Naked> Σ0 ↓ →0x228b8 ←0x22878 ←0x2287c
<POP 2289a-2289c StackAdj> Δ-2 {[-2-]}
<MI 2289c MOVE.L D5,-(A7)> Δ-4 {[-2-]|[4, 'D5']}
<Const 0x2289e 0x38.4> Δ-4 {[-2-]|[4, 'D5']|[##56]}
<Const 0x228a2 0x8.4> Δ-4 {[-2-]|[4, 'D5']|[##56]|[##8]}
<Call 0x228a6 0x22310> {[-2-]|[4, 'D5']|[##56]|[##8]}
<POP 228a8-228aa StackAdj> Δ+12 {[-2-]}
<MI 228aa TST.B (A7)+> Δ+2 {}
<MI 228ac BEQ 0x228b8> {}
<POP 228ae-228b2 Naked> Σ0 ↓ →0x228b6
<MI 228ae TST.L D7> {}
<MI 228b0 BNE 0x228b6> {}
<POP 228b2-228b6 Naked> Σ0 →0x228b8
<MI 228b2 MOVE.L D5,D6> {}
<MI 228b4 BRA 0x228b8> {}
<POP 228b6-228b8 Naked> Σ0 ↓ ←0x228ae
<MI 228b6 SUBQ.L #0x1,D7> {}
<POP 228b8-228bc Naked> Σ0 ↓ →0x228be ←0x2282e ←0x22874 ←0x22890 ←0x2289a ←0x228b2
<MI 228b8 TST.L D6> {}
<MI 228ba BNE 0x228be> {}
<POP 228bc-228be Naked> Σ0 ↓
<MI 228bc ADDQ.L #0x1,D5> {}
<POP 228be-228c2 Naked> Σ0 →0x2281e ←0x228b8
<MI 228be BRA 0x2281e> {}
<POP 228c2-228ca Naked> Σ0 ↓ →0x228d8 ←0x2281e ←0x22824
<MI 228c2 TST.B 0x27976> {}
<MI 228c8 BNE 0x228d8> {}
<POP 228ca-228d8 Naked> Σ0 ↓
<Const 0x228ca 0x27978.4> Δ-4 {[##162168]}
<Call 0x228d0 0x102bc> {[##162168]}
FreeString(VAR a : String)
<POP 228d6-228d8 StackAdj> Δ+4 {}
<POP 228d8-228dc Naked> Σ0 ↓ →0x22904 ←0x228c2
<MI 228d8 TST.B 0x2796c> {}
<MI 228da BNE 0x22904> {}
<POP 228dc-22904 Naked> Σ0 ↓
<Blob 0x228dc [26] @> Δ-26 {[«26""»]}
<POP 228e8-228ea StackAdj> Δ-4 {[«26""»]|[-4-]}
<Lit 0x228ea 26> {[«26""»]|[$$No case alternative found!]}
<Call 0x228fc 0x21e42> {[«26""»]|[$$No case alternative found!]}
<POP 22900-22904 StackAdj> Δ+30 {}
<POP 22904-22908 Naked> Σ0 ↓ →0x22936 ←0x228d8
<MI 22904 TST.L D6> {}
<MI 22906 BNE 0x22936> {}
<POP 22908-22936 Naked> Σ0 ↓
<Blob 0x22908 [20] @> Δ-20 {[«20""»]}
<POP 2291a-2291c StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x2291c 19> {[«20""»]|[$$No [ENDCASE] found!]}
<Call 0x2292e 0x21e42> {[«20""»]|[$$No [ENDCASE] found!]}
<POP 22932-22936 StackAdj> Δ+24 {}
<POP 22936-2294a Naked> Σ0 ↓ →0x22954 ←0x22904
<MI 22936 MOVEA.L (A6+0x8),A0> {}
<MI 2293a MOVE.L D6,(A0)> {}
<MI 2293c MOVEA.L (A6+0x10),A0> {}
<MI 22940 MOVE.L 0x2796e,(A0)> {}
<MI 22946 TST.L 0x27972> {}
<MI 22948 BNE 0x22954> {}
<POP 2294a-22954 Naked> Σ0 →0x2295a
<MI 2294a MOVEA.L (A6+0xc),A0> {}
<MI 2294e MOVE.L D6,(A0)> {}
<MI 22950 SUBQ.L #0x1,(A0)> {}
<MI 22952 BRA 0x2295a> {}
<POP 22954-2295a Naked> Σ0 ↓ ←0x22936
<MI 22954 MOVEA.L (A6+0xc),A0> {}
<MI 22958 MOVE.L 0x27972,(A0)> {}
<POP 2295a-22962 Epilogue> Σ0 ←0x2294a
@ 22962
<LVAR 0x008 4(r)>
<LVAR -0x008 @ 4(r)>
<LVAR -0x00c @ 4(r)>
<LVAR -0x010 @ 4(r)>
<POP 22962-229d6 Body>
<POP 22962-22978 Prologue> Σ0 ↓
<POP 22978-22982 RegCacheLoad> Σ0 ↓
<POP 22982-229ce Naked> Σ0 ↓
<MI 22982 MOVE.L 0x2795a,D6> {}
<MI 22984 CLR.B 0x27976> {}
<MI 2298a MOVE.L (A6+0x8),0x27978> {}
<MI 22992 MOVE.L 0x2795a,D7> {}
<Pointer.fp 0x22994 <LVAR -0x010 @ 4(r)>> Δ-4 {[@@-16]}
<Pointer.fp 0x22996 <LVAR -0x00c @ 4(r)>> Δ-4 {[@@-16]|[@@-12]}
<Pointer.fp 0x2299a <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-16]|[@@-12]|[@@-8]}
<Call 0x2299e 0x227e0> {[@@-16]|[@@-12]|[@@-8]}
<POP 229a2-229a6 StackAdj> Δ+12 {}
<MI 229a6 MOVE.L D6,0x2795a> {}
<MI 229a8 MOVE.L (A6-0x8),D0> {}
<MI 229ac ADDI.L #0x00000009,D0> {}
<MI 229b2 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 229b4 SUB.L (A6-0xc),D0> {[4, 'D0']}
<MI 229b8 SUBQ.L #0x1,D0> {[4, 'D0']}
<MI 229ba MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']|[4, 'D0']}
<Call 0x229bc 0x22396> {[4, 'D0']|[4, 'D0']}
<POP 229c0-229c2 StackAdj> Δ+4 {[4, 'D0']}
<MI 229c2 MOVE.L (A6-0x10),(A7)> {[4, '(A6-0x10)']}
<MI 229c4 MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0x10)']|[4, '(A6-0x10)']}
<MI 229c6 SUB.L D7,(A7)> {[4, '(A6-0x10)']|[-4-]}
<Call 0x229c8 0x22396> {[4, '(A6-0x10)']|[-4-]}
<POP 229cc-229ce StackAdj> Δ+8 {}
<POP 229ce-229d6 Epilogue> Σ0
@ 229d6
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x008 @ 4(r)>
<LVAR -0x00c @ 4(r)>
<LVAR -0x010 @ 4(r)>
<POP 229d6-22a54 Body>
<POP 229d6-229ec Prologue> Σ0 ↓
<POP 229ec-229f6 RegCacheLoad> Σ0 ↓
<POP 229f6-22a4c Naked> Σ0 ↓
<MI 229f6 MOVE.L 0x2795a,D6> {}
<MI 229f8 MOVE.B #0x01,0x27976> {}
<MI 22a00 MOVE.L (A6+0x8),0x2797c> {}
<MI 22a08 MOVE.L (A6+0xc),0x27980> {}
<MI 22a10 MOVE.L 0x2795a,D7> {}
<Pointer.fp 0x22a12 <LVAR -0x010 @ 4(r)>> Δ-4 {[@@-16]}
<Pointer.fp 0x22a14 <LVAR -0x00c @ 4(r)>> Δ-4 {[@@-16]|[@@-12]}
<Pointer.fp 0x22a18 <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-16]|[@@-12]|[@@-8]}
<Call 0x22a1c 0x227e0> {[@@-16]|[@@-12]|[@@-8]}
<POP 22a20-22a24 StackAdj> Δ+12 {}
<MI 22a24 MOVE.L D6,0x2795a> {}
<MI 22a26 MOVE.L (A6-0x8),D0> {}
<MI 22a2a ADDI.L #0x00000009,D0> {}
<MI 22a30 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 22a32 SUB.L (A6-0xc),D0> {[4, 'D0']}
<MI 22a36 SUBQ.L #0x1,D0> {[4, 'D0']}
<MI 22a38 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']|[4, 'D0']}
<Call 0x22a3a 0x22396> {[4, 'D0']|[4, 'D0']}
<POP 22a3e-22a40 StackAdj> Δ+4 {[4, 'D0']}
<MI 22a40 MOVE.L (A6-0x10),(A7)> {[4, '(A6-0x10)']}
<MI 22a42 MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0x10)']|[4, '(A6-0x10)']}
<MI 22a44 SUB.L D7,(A7)> {[4, '(A6-0x10)']|[-4-]}
<Call 0x22a46 0x22396> {[4, '(A6-0x10)']|[-4-]}
<POP 22a4a-22a4c StackAdj> Δ+8 {}
<POP 22a4c-22a54 Epilogue> Σ0
@ 22a54
<LVAR 0x010 4(rw)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 22a54-22a8c Body>
<POP 22a54-22a6a Prologue> Σ0 ↓
<POP 22a6a-22a70 Naked> Σ0 ↓ →0x22a76
<MI 22a6a TST.L (A6+0x8)> {}
<MI 22a6e BNE 0x22a76> {}
<POP 22a70-22a76 Naked> Σ0 →0x22a84
<MI 22a70 CLR.L (A6+0x10)> {}
<MI 22a74 BRA 0x22a84> {}
<POP 22a76-22a84 Naked> Σ0 ↓ ←0x22a6a
<MI 22a76 MOVE.L (A6+0xc),D0> {}
<MI 22a7a SUB.L (A6+0x8),D0> {}
<MI 22a7e ADDQ.L #0x1,D0> {}
<MI 22a80 MOVE.L D0,(A6+0x10)> {}
<POP 22a84-22a8c Epilogue> Σ0 ←0x22a70
@ 22a8c
<LVAR 0x014 4(w)>
<LVAR 0x010 @ 4(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 22a8c-22aee Body> Δ-4
<POP 22a8c-22aa2 Prologue> Σ0 ↓
<POP 22aa2-22ab8 Naked> Σ0 Δ-4 ↓
<MI 22aa2 MOVEA.L (A6+0xc),A4> {}
<MI 22aa6 MOVE.L 0x21d5a,(A6+0x10)> {}
<MI 22aac MOVE.L 0x21d5e,(A6+0x14)> {}
<MI 22ab2 MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<MI 22ab6 MOVEQ.L #0x00,D7> {[4, '(A6+0x8)']}
<POP 22ab8-22abc Naked> Σ-4 ↓ →0x22ae4 ←0x22ae0
<MI 22ab8 CMP.L (A7),D7> {[-4-]}
<MI 22aba BGT 0x22ae4> {[-4-]}
<POP 22abc-22ac2 Naked> Σ-4 ↓ →0x22ac6
<MI 22abc CMPA.W #0x1,A4> {[-4-]}
<MI 22ac0 BNE 0x22ac6> {[-4-]}
<POP 22ac2-22ac6 Naked> Σ-4 Δ+4 →0x22ae6
<POP 22ac2-22ac4 StackAdj> Δ+4 {}
<MI 22ac4 BRA 0x22ae6> {}
<POP 22ac6-22acc Naked> Σ-4 ↓ →0x22adc ←0x22abc
<MI 22ac6 CMP.L (A6+0x8),D7> {[-4-]}
<MI 22aca BNE 0x22adc> {[-4-]}
<POP 22acc-22adc Naked> Σ-4 →0x22ae0
<MI 22acc LEA.L (A6+0x10),A0> {[-4-]}
<MI 22ad0 MOVEA.L A4,A1> {[-4-]}
<BlockMove 8,A1,A0> {[-4-]}
<MI 22ada BRA 0x22ae0> {[-4-]}
<POP 22adc-22ae0 Naked> Σ-4 ↓ ←0x22ac6
<MI 22adc MOVEA.L (A4+0x8),A4> {[-4-]}
<POP 22ae0-22ae4 Naked> Σ-4 ↓ →0x22ab8 ←0x22acc
<MI 22ae0 ADDQ.L #0x1,D7> {[-4-]}
<MI 22ae2 BVC 0x22ab8> {[-4-]}
<POP 22ae4-22ae6 Naked> Σ-4 Δ+4 ↓ ←0x22ab8
<POP 22ae4-22ae6 StackAdj> Δ+4 {}
<POP 22ae6-22aee Epilogue> Σ0 ←0x22ac2
@ 22aee
<LVAR 0x010 4(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x008 @ 4(r)>
<POP 22aee-22b6a Body> Δ-4
<POP 22aee-22b04 Prologue> Σ0 ↓
<POP 22b04-22b08 RegCacheLoad> Σ0 ↓
<POP 22b08-22b20 Naked> Σ0 Δ-4 ↓
<Pointer.fp 0x22b08 <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-8]}
<Call 0x22b0a 0x102b8> {[@@-8]}
NewString(VAR a : String)
<MI 22b10 MOVE.L (A6+0xc),-(A7)> Δ-4 {[@@-8]|[4, '(A6+0xc)']}
<MI 22b14 MOVE.L (A6+0x8),-(A7)> Δ-4 {[@@-8]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x22b18 0x22a54> {[@@-8]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 22b1c-22b1e StackAdj> Δ+8 {[@@-8]}
<MI 22b1e MOVEQ.L #0x01,D7> {[@@-8]}
<POP 22b20-22b24 Naked> Σ-4 ↓ →0x22b5c ←0x22b4c
<MI 22b20 CMP.L (A7),D7> {[-4-]}
<MI 22b22 BGT 0x22b5c> {[-4-]}
<POP 22b24-22b48 Naked> Σ-4 ↓ →0x22b4c
<MI 22b24 MOVE.L D7,D0> {[-4-]}
<MI 22b26 ADD.L (A6+0x8),D0> {[-4-]}
<MI 22b2a SUBQ.L #0x1,D0> {[-4-]}
<MI 22b2c SUBQ.L #0x1,D0> {[-4-]}
<POP 0x22b2e LimitCheck 0x0 ≤ D0 ≤ 0x1fff> {[-4-]}
<MI 22b38 LEA.L 0x25952,A0> {[-4-]}
<MI 22b3e MOVE.B (A0+D0.L+#0x8),D6> {[-4-]}
<MI 22b42 CMPI.B #0x2f,D6> {[-4-]}
<MI 22b46 BNE 0x22b4c> {[-4-]}
<POP 22b48-22b4c Naked> Σ-4 Δ+4 →0x22b5e
<POP 22b48-22b4a StackAdj> Δ+4 {}
<MI 22b4a BRA 0x22b5e> {}
<POP 22b4c-22b5c Naked> Σ-4 ↓ →0x22b20 ←0x22b24
<MI 22b4c MOVE.L (A6-0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x8)']}
<MI 22b4e MOVE.B D6,-(A7)> Δ-2 {[-4-]|[4, '(A6-0x8)']|[2, 'D6']}
<Call 0x22b50 0x102c0> {[-4-]|[4, '(A6-0x8)']|[2, 'D6']}
AppendChar(MOD b : String; a : char)
<POP 22b56-22b58 StackAdj> Δ+6 {[-4-]}
<MI 22b58 ADDQ.L #0x1,D7> {[-4-]}
<MI 22b5a BVC 0x22b20> {[-4-]}
<POP 22b5c-22b5e Naked> Σ-4 Δ+4 ↓ ←0x22b20
<POP 22b5c-22b5e StackAdj> Δ+4 {}
<POP 22b5e-22b62 Naked> Σ0 ↓ ←0x22b48
<MI 22b5e MOVE.L (A6-0x8),(A6+0x10)> {}
<POP 22b62-22b6a Epilogue> Σ0
@ 22b6a
<LVAR 0x010 4(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 22b6a-22b9c Body>
<POP 22b6a-22b7c Prologue> Σ0 ↓
<POP 22b7c-22b98 Naked> Σ0 ↓
<POP 22b7c-22b80 StackAdj> Δ-12 {[-12-]}
<MI 22b80 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-12-]|[4, '(A6+0xc)']}
<MI 22b84 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x22b88 0x22a8c> {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 22b8c-22b8e StackAdj> Δ+8 {[-12-]}
<Call 0x22b8e 0x22aee> {[-12-]}
<POP 22b92-22b94 StackAdj> Δ+8 {[-4-]}
<MI 22b94 MOVE.L (A7)+,(A6+0x10)> Δ+4 {}
<POP 22b98-22b9c Epilogue> Σ0
@ 22b9c
<LVAR 0x014 4(w)>
<LVAR 0x010 4(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 22b9c-22bd8 Body>
<POP 22b9c-22bae Prologue> Σ0 ↓
<POP 22bae-22bd4 Naked> Σ0 ↓
<POP 22bae-22bb2 StackAdj> Δ-12 {[-12-]}
<MI 22bb2 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-12-]|[4, '(A6+0xc)']}
<MI 22bb6 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x22bba 0x22b6a> {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 22bbe-22bc0 StackAdj> Δ+8 {[-12-]}
<Const 0x22bc0 0x10.4> Δ-4 {[-12-]|[##16]}
<Call 0x22bc4 0x10360> {[-12-]|[##16]}
?StringToInt64()
<POP 22bca-22bcc StackAdj> Δ+8 {[-8-]}
<MI 22bcc MOVE.L (A7)+,(A6+0x10)> Δ+4 {[-4-]}
<MI 22bd0 MOVE.L (A7)+,(A6+0x14)> Δ+4 {}
<POP 22bd4-22bd8 Epilogue> Σ0
@ 22bd8
<LVAR 0x010 4(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 22bd8-22c0c Body>
<POP 22bd8-22bea Prologue> Σ0 ↓
<POP 22bea-22c08 Naked> Σ0 ↓
<POP 22bea-22bee StackAdj> Δ-12 {[-12-]}
<MI 22bee MOVE.L (A6+0xc),-(A7)> Δ-4 {[-12-]|[4, '(A6+0xc)']}
<MI 22bf2 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x22bf6 0x22b9c> {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 22bfa-22bfc StackAdj> Δ+8 {[-12-]}
<Call 0x22bfc 0x10350> {[-12-]}
Quad2Long(a : Quad) : Long
<POP 22c02-22c04 StackAdj> Δ+8 {[-4-]}
<MI 22c04 MOVE.L (A7)+,(A6+0x10)> Δ+4 {}
<POP 22c08-22c0c Epilogue> Σ0
@ 22c0c
<LVAR 0x008 @ 4(r)>
<POP 22c0c-22c94 Body>
<POP 22c0c-22c22 Prologue> Σ0 ↓
<POP 22c22-22c28 RegCacheLoad> Σ0 ↓
<POP 22c28-22c46 Naked> Σ0 Δ-8 ↓
<MI 22c28 MOVEA.L (A6+0x8),A0> {}
<MI 22c2c MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Blob 0x22c2e [4] 0x2795a> Δ-4 {[4, 'A0']|[«4»]}
<MI 22c30 MOVE.W (A0),D0> {[4, 'A0']|[«4»]}
<MI 22c32 EXTW.L D0> {[4, 'A0']|[«4»]}
<MI 22c34 NEG.L D0> {[4, 'A0']|[«4»]}
<MI 22c36 MOVE.L D0,-(A7)> Δ-4 {[4, 'A0']|[«4»]|[4, 'D0']}
<Call 0x22c38 0x22396> {[4, 'A0']|[«4»]|[4, 'D0']}
<POP 22c3c-22c3e StackAdj> Δ+8 {[4, 'A0']}
<MI 22c3e MOVE.W (A0),D0> {[4, 'A0']}
<MI 22c40 EXTW.L D0> {[4, 'A0']}
<MI 22c42 MOVE.L D0,-(A7)> Δ-4 {[4, 'A0']|[4, 'D0']}
<MI 22c44 MOVEQ.L #0x01,D7> {[4, 'A0']|[4, 'D0']}
<POP 22c46-22c4a Naked> Σ-8 ↓ →0x22c7e ←0x22c4a
<MI 22c46 CMP.L (A7),D7> {[-8-]}
<MI 22c48 BGT 0x22c7e> {[-8-]}
<POP 22c4a-22c7e Naked> Σ-8 ↓ →0x22c46
<MI 22c4a MOVE.L D7,D0> {[-8-]}
<MI 22c4c ADD.L 0x2795a,D0> {[-8-]}
<MI 22c4e SUBQ.L #0x1,D0> {[-8-]}
<MI 22c50 SUBQ.L #0x1,D0> {[-8-]}
<POP 0x22c52 LimitCheck 0x0 ≤ D0 ≤ 0x1fff> {[-8-]}
<MI 22c5c LEA.L 0x25952,A0> {[-8-]}
<MI 22c62 MOVE.L D7,D1> {[-8-]}
<MI 22c64 SUBQ.L #0x1,D1> {[-8-]}
<POP 0x22c66 LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-8-]}
<MI 22c70 MOVEA.L (A7+0x4),A1> {[-8-]}
<MI 22c74 MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x8)> {[-8-]}
<MI 22c7a ADDQ.L #0x1,D7> {[-8-]}
<MI 22c7c BVC 0x22c46> {[-8-]}
<POP 22c7e-22c8c Naked> Σ-8 Δ+8 ↓ ←0x22c46
<POP 22c7e-22c80 StackAdj> Δ+8 {}
<Pointer.fp 0x22c80 <LVAR 0x008 @ 4(r)>> Δ-4 {[@@8]}
<Call 0x22c84 0x102bc> {[@@8]}
FreeString(VAR a : String)
<POP 22c8a-22c8c StackAdj> Δ+4 {}
<POP 22c8c-22c94 Epilogue> Σ0
@ 22c94
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 22c94-22cc8 Body>
<POP 22c94-22ca6 Prologue> Σ0 ↓
<POP 22ca6-22cc4 Naked> Σ0 ↓
<POP 22ca6-22ca8 StackAdj> Δ-4 {[-4-]}
<MI 22ca8 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']}
<MI 22cac MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Const 0x22cb0 0x10.4> Δ-4 {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[##16]}
<Call 0x22cb4 0x1035c> {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[##16]}
Quad2String(a : Quad; radix : Long ) : String
<POP 22cba-22cbe StackAdj> Δ+12 {[-4-]}
<Call 0x22cbe 0x22c0c> {[-4-]}
<POP 22cc2-22cc4 StackAdj> Δ+4 {}
<POP 22cc4-22cc8 Epilogue> Σ0
@ 22cc8
<LVAR 0x008 4(r)>
<POP 22cc8-22cf2 Body>
<POP 22cc8-22cda Prologue> Σ0 ↓
<POP 22cda-22cee Naked> Σ0 ↓
<POP 22cda-22cdc StackAdj> Δ-4 {[-4-]}
<MI 22cdc MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x22ce0 0x102e4> {[-4-]|[4, '(A6+0x8)']}
Long2String(a : Long) : String
<POP 22ce6-22ce8 StackAdj> Δ+4 {[-4-]}
<Call 0x22ce8 0x22c0c> {[-4-]}
<POP 22cec-22cee StackAdj> Δ+4 {}
<POP 22cee-22cf2 Epilogue> Σ0
@ 22cf2
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 4(r)>
<LVAR -0x008 4(rw)>
<POP 22cf2-22dc2 Body>
<POP 22cf2-22d08 Prologue> Σ0 ↓
<POP 22d08-22d10 RegCacheLoad> Σ0 ↓
<POP 22d10-22d22 Naked> Σ0 ↓
<MI 22d10 MOVEA.L (A6+0x8),A0> {}
<MI 22d14 MOVE.L (A0+0x8),(A6-0x8)> {}
<Pointer.fp 0x22d18 <LVAR -0x004 @ 4(r)>> Δ-4 {[@@-4]}
<Call 0x22d1a 0x102b8> {[@@-4]}
NewString(VAR a : String)
<POP 22d20-22d22 StackAdj> Δ+4 {}
<POP 22d22-22d2c Naked> Σ0 ↓ →0x22db0 ←0x22d98
<MI 22d22 MOVEA.L (A6-0x8),A0> {}
<MI 22d24 CMPA.W #0x1,A0> {}
<MI 22d28 BEQ 0x22db0> {}
<POP 22d2c-22d30 Naked> Σ0 ↓ →0x22d98
<MI 22d2c TST.L (A0)> {}
<MI 22d2e BEQ 0x22d98> {}
<POP 22d30-22d3a Naked> Σ0 Δ-4 ↓ →0x22d4e
<MI 22d30 MOVE.L (A0+0x4),-(A7)> Δ-4 {[4, '(A0+0x4)']}
<MI 22d34 MOVE.L (A0),D7> {[4, '(A0+0x4)']}
<MI 22d36 CMP.L (A7),D7> {[4, '(A0+0x4)']}
<MI 22d38 BGT 0x22d4e> {[4, '(A0+0x4)']}
<POP 22d3a-22d4e Naked> Σ-4 ↓
<MI 22d3a MOVE.L (A7),D0> {[-4-]}
<POP 0x22d3c LimitCheck -0x7fffffff ≤ D7> {[-4-]}
<MI 22d3c CMPI.L #0x80000001,D7>
<MI 22d42 BLT 0x22d4c>
<POP 0x22d44 LimitCheck D0 ≤ 0x7fffffff> {[-4-]}
<MI 22d44 CMPI.L #0x7fffffff,D0>
<MI 22d4a BLE 0x22d4e>
<MI 22d4c TRAP #15>
<POP 22d4e-22d52 Naked> Σ-4 ↓ →0x22d96 ←0x22d30 ←0x22d92
<MI 22d4e CMP.L (A7),D7> {[-4-]}
<MI 22d50 BGT 0x22d96> {[-4-]}
<POP 22d52-22d7e Naked> Σ-4 ↓ →0x22d92
<MI 22d52 MOVE.L (A6-0x4),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x4)']}
<MI 22d54 MOVE.L D7,D0> {[-4-]|[4, '(A6-0x4)']}
<MI 22d56 SUBQ.L #0x1,D0> {[-4-]|[4, '(A6-0x4)']}
<POP 0x22d58 LimitCheck 0x0 ≤ D0 ≤ 0x1fff> {[-4-]|[4, '(A6-0x4)']}
<MI 22d62 LEA.L 0x25952,A0> {[-4-]|[4, '(A6-0x4)']}
<MI 22d68 MOVE.B (A0+D0.L+#0x8),-(A7)> Δ-2 {[-4-]|[4, '(A6-0x4)']|[2, '(A0+D0.L+#0x8)']}
<Call 0x22d6c 0x102c0> {[-4-]|[4, '(A6-0x4)']|[2, '(A0+D0.L+#0x8)']}
AppendChar(MOD b : String; a : char)
<POP 22d72-22d74 StackAdj> Δ+6 {[-4-]}
<MI 22d74 MOVEA.L (A6-0x4),A0> {[-4-]}
<MI 22d76 MOVE.W (A0),D0> {[-4-]}
<MI 22d78 CMPI.W #0x007a,D0> {[-4-]}
<MI 22d7c BLT 0x22d92> {[-4-]}
<POP 22d7e-22d92 Naked> Σ-4 ↓
<MI 22d7e MOVE.L (A6-0x4),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x4)']}
<Call 0x22d80 0x103d8> {[-4-]|[4, '(A6-0x4)']}
WriteConsoleString(str : String)
<POP 22d86-22d88 StackAdj> Δ+4 {[-4-]}
<Pointer.fp 0x22d88 <LVAR -0x004 @ 4(r)>> Δ-4 {[-4-]|[@@-4]}
<Call 0x22d8a 0x102b8> {[-4-]|[@@-4]}
NewString(VAR a : String)
<POP 22d90-22d92 StackAdj> Δ+4 {[-4-]}
<POP 22d92-22d96 Naked> Σ-4 ↓ →0x22d4e ←0x22d52
<MI 22d92 ADDQ.L #0x1,D7> {[-4-]}
<MI 22d94 BVC 0x22d4e> {[-4-]}
<POP 22d96-22d98 Naked> Σ-4 Δ+4 ↓ ←0x22d4e
<POP 22d96-22d98 StackAdj> Δ+4 {}
<POP 22d98-22db0 Naked> Σ0 →0x22d22 ←0x22d2c
<MI 22d98 MOVE.L (A6-0x4),-(A7)> Δ-4 {[4, '(A6-0x4)']}
<Const 0x22d9a 0x20.2> Δ-2 {[4, '(A6-0x4)']|[#32]}
<Call 0x22d9e 0x102c0> {[4, '(A6-0x4)']|[#32]}
AppendChar(MOD b : String; a : char)
<POP 22da4-22da6 StackAdj> Δ+6 {}
<MI 22da6 MOVEA.L (A6-0x8),A0> {}
<MI 22da8 MOVE.L (A0+0x8),(A6-0x8)> {}
<MI 22dac BRA 0x22d22> {}
<POP 22db0-22dba Naked> Σ0 ↓ ←0x22d22
<MI 22db0 MOVE.L (A6-0x4),-(A7)> Δ-4 {[4, '(A6-0x4)']}
<Call 0x22db2 0x103e0> {[4, '(A6-0x4)']}
WriteConsoleStringCrLf(str : String)
<POP 22db8-22dba StackAdj> Δ+4 {}
<POP 22dba-22dc2 Epilogue> Σ0
@ 22dc2
<LVAR 0x008 @ 4(r)>
<LVAR -0x003 @ 1(r)>
<LVAR -0x004 @ 1(r)>
<LVAR -0x008 @ 4(r)>
<LVAR -0x00c @ 4(rw)>
<POP 22dc2-22ecc Body>
<POP 22dc2-22dd8 Prologue> Σ0 ↓
<POP 22dd8-22dea RegCacheLoad> Σ0 ↓
<POP 22dea-22e30 Naked> Σ0 ↓ →0x22e66
<Blob 0x22dea [4] @> Δ-4 {[«4""»]}
<POP 22dee-22df0 StackAdj> Δ-8 {[«4""»]|[-8-]}
<MI 22df0 MOVE.L (A6+0x8),-(A7)> Δ-4 {[«4""»]|[-8-]|[4, '(A6+0x8)']}
<Call 0x22df2 0x102cc> {[«4""»]|[-8-]|[4, '(A6+0x8)']}
StringDup(a : String) : String
<Lit 0x22df8 4> {[«4""»]|[-8-]|[$$.HLP]}
<Call 0x22e0a 0x102d0> {[«4""»]|[-8-]|[$$.HLP]}
StringCat2(a, b : String) : String
<POP 22e10-22e12 StackAdj> Δ+8 {[«4""»]|[-4-]}
<MI 22e12 MOVE.L (A7)+,(A6-0xc)> Δ+4 {[«4""»]}
<MI 22e14 MOVE.L (A6-0xc),(A7)> {[4, '(A6-0xc)']}
<MI 22e16 CLR.B -(A7)> Δ-2 {[4, '(A6-0xc)']|[#0]}
<MI 22e18 CLR.B -(A7)> Δ-2 {[4, '(A6-0xc)']|[#0]|[#0]}
<Const 0x22e1a 0x0.4> Δ-4 {[4, '(A6-0xc)']|[#0]|[#0]|[##0]}
<Pointer.fp 0x22e1e <LVAR -0x004 @ 1(r)>> Δ-4 {[4, '(A6-0xc)']|[#0]|[#0]|[##0]|[@@-4]}
<Pointer.fp 0x22e20 <LVAR -0x008 @ 4(r)>> Δ-4 {[4, '(A6-0xc)']|[#0]|[#0]|[##0]|[@@-4]|[@@-8]}
<Call 0x22e22 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 22e28-22e2c StackAdj> Δ+20 {}
<MI 22e2c TST.B (A6-0x4)> {}
<MI 22e2e BEQ 0x22e66> {}
<POP 22e30-22e66 Naked> Σ0 →0x22eba
<Blob 0x22e30 [22] @> Δ-22 {[«22""»]}
<POP 22e3c-22e3e StackAdj> Δ-8 {[«22""»]|[-8-]}
<Lit 0x22e3e 22> {[«22""»]|[-4-]|[$$No help available for_]}
<POP 22e4e-22e50 StackAdj> Δ-4 {[«22""»]|[-4-]|[$$No help available for_]|[-4-]}
<MI 22e50 MOVE.L (A6+0x8),(A7)> {[«22""»]|[-4-]|[$$No help available for_]|[4, '(A6+0x8)']}
<Call 0x22e52 0x102d0> {[«22""»]|[-4-]|[$$No help available for_]|[4, '(A6+0x8)']}
StringCat2(a, b : String) : String
<POP 22e58-22e5a StackAdj> Δ+8 {[«22""»]|[-4-]}
<Call 0x22e5a 0x103e0> {[«22""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 22e60-22e64 StackAdj> Δ+26 {}
<MI 22e64 BRA 0x22eba> {}
<POP 22e66-22e7e Naked> Σ0 ↓ →0x22e92 ←0x22dea ←0x22e92
<MI 22e66 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<Pointer.fp 0x22e68 <LVAR 0x008 @ 4(r)>> Δ-4 {[4, '(A6-0x8)']|[@@8]}
<Pointer.fp 0x22e6a <LVAR -0x003 @ 1(r)>> Δ-4 {[4, '(A6-0x8)']|[@@8]|[@@-3]}
<Call 0x22e6e 0x1043c> {[4, '(A6-0x8)']|[@@8]|[@@-3]}
FileReadLine(file : File; VAR a : String; VAR b : Byte)
<POP 22e74-22e78 StackAdj> Δ+12 {}
<MI 22e78 TST.B (A6-0x3)> {}
<MI 22e7c BNE 0x22e92> {}
<POP 22e7e-22e92 Naked> Σ0 ↓
<POP 22e7e-22e80 StackAdj> Δ-4 {[-4-]}
<MI 22e80 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x22e82 0x102cc> {[-4-]|[4, '(A6+0x8)']}
StringDup(a : String) : String
<POP 22e88-22e8a StackAdj> Δ+4 {[-4-]}
<Call 0x22e8a 0x103e0> {[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 22e90-22e92 StackAdj> Δ+4 {}
<POP 22e92-22e98 Naked> Σ0 ↓ →0x22e66 ←0x22e66
<MI 22e92 TST.B (A6-0x3)> {}
<MI 22e96 BEQ 0x22e66> {}
<POP 22e98-22eba Naked> Σ0 ↓
<MI 22e98 CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x22e9a 0x2.2> Δ-2 {[#0]|[#2]}
<Const 0x22e9e 0x1.4> Δ-4 {[#0]|[#2]|[##1]}
<Pointer.fp 0x22ea2 <LVAR -0x004 @ 1(r)>> Δ-4 {[#0]|[#2]|[##1]|[@@-4]}
<Pointer.fp 0x22ea4 <LVAR -0x008 @ 4(r)>> Δ-4 {[#0]|[#2]|[##1]|[@@-4]|[@@-8]}
<Call 0x22ea6 0x1038c> {[#0]|[#2]|[##1]|[@@-4]|[@@-8]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 22eac-22eb0 StackAdj> Δ+16 {}
<Pointer.fp 0x22eb0 <LVAR 0x008 @ 4(r)>> Δ-4 {[@@8]}
<Call 0x22eb2 0x102bc> {[@@8]}
FreeString(VAR a : String)
<POP 22eb8-22eba StackAdj> Δ+4 {}
<POP 22eba-22ec4 Naked> Σ0 ↓ ←0x22e30
<Pointer.fp 0x22eba <LVAR -0x00c @ 4(rw)>> Δ-4 {[@@-12]}
<Call 0x22ebc 0x102bc> {[@@-12]}
FreeString(VAR a : String)
<POP 22ec2-22ec4 StackAdj> Δ+4 {}
<POP 22ec4-22ecc Epilogue> Σ0
@ 22ecc
<LVAR 0x008 4(r)>
<POP 22ecc-22f4e Body>
<POP 22ecc-22ee2 Prologue> Σ0 ↓
<POP 22ee2-22ef2 Naked> Σ0 ↓ →0x22f20
<POP 22ee2-22ee4 StackAdj> Δ-4 {[-4-]}
<MI 22ee4 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x22ee8 0x2224e> {[-4-]|[4, '(A6+0x8)']}
<POP 22eec-22eee StackAdj> Δ+4 {[-4-]}
<MI 22eee MOVE.L (A7)+,D6> Δ+4 {}
<MI 22ef0 BNE 0x22f20> {}
<POP 22ef2-22f20 Naked> Σ0 →0x22f46
<Blob 0x22ef2 [10] 0x2796c> Δ-10 {[«10»]}
<POP 22f00-22f02 StackAdj> Δ-4 {[«10»]|[-4-]}
<Lit 0x22f02> {[«10»]|[$$…]}
<Pointer.sp 0x22f02 4> Δ-4
<Const 0x22f06 0x1.2> Δ-2
<Const 0x22f0a 0xa.2> Δ-2
<Call 0x22f0e 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 22f14-22f16 StackAdj> Δ+8
<Call 0x22f16 0x22dc2> {[«10»]|[$$…]}
<POP 22f1a-22f1e StackAdj> Δ+14 {}
<MI 22f1e BRA 0x22f46> {}
<POP 22f20-22f24 Naked> Σ0 Δ-4 ↓ ←0x22ee2
<MI 22f20 MOVE.L D6,-(A7)> Δ-4 {[4, 'D6']}
<MI 22f22 MOVEQ.L #0x01,D7> {[4, 'D6']}
<POP 22f24-22f28 Naked> Σ-4 ↓ →0x22f44 ←0x22f28
<MI 22f24 CMP.L (A7),D7> {[-4-]}
<MI 22f26 BGT 0x22f44> {[-4-]}
<POP 22f28-22f44 Naked> Σ-4 ↓ →0x22f24
<POP 22f28-22f2a StackAdj> Δ-4 {[-8-]}
<MI 22f2a MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<MI 22f2e MOVE.L D7,-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']|[4, 'D7']}
<Call 0x22f30 0x22b6a> {[-8-]|[4, '(A6+0x8)']|[4, 'D7']}
<POP 22f34-22f36 StackAdj> Δ+8 {[-8-]}
<MI 22f36 MOVEA.L (A7)+,A4> Δ+4 {[-4-]}
<MI 22f38 MOVE.L A4,-(A7)> Δ-4 {[-4-]|[4, 'A4']}
<Call 0x22f3a 0x22dc2> {[-4-]|[4, 'A4']}
<POP 22f3e-22f40 StackAdj> Δ+4 {[-4-]}
<MI 22f40 ADDQ.L #0x1,D7> {[-4-]}
<MI 22f42 BVC 0x22f24> {[-4-]}
<POP 22f44-22f46 Naked> Σ-4 Δ+4 ↓ ←0x22f24
<POP 22f44-22f46 StackAdj> Δ+4 {}
<POP 22f46-22f4e Epilogue> Σ0 ←0x22ef2
@ 22f4e
<LVAR 0x00c @>
<LVAR 0x008 @ 4(r)>
<LVAR -0x020 @>
<POP 22f4e-22fd0 Body>
<POP 22f4e-22f64 Prologue> Σ0 ↓
<POP 22f64-22f66 RegCacheLoad> Σ0 ↓
<POP 22f66-22f68 Naked> Σ0 ↓
<MI 22f66 MOVEQ.L #0x01,D7> {}
<POP 22f68-22f74 Naked> Σ0 ↓ →0x22f84 ←0x22fa2
<MI 22f68 MOVEA.L (A6+0x8),A0> {}
<MI 22f6c MOVE.W (A0),D0> {}
<MI 22f6e EXTW.L D0> {}
<MI 22f70 CMP.L D0,D7> {}
<MI 22f72 BLE 0x22f84> {}
<POP 22f74-22f84 Naked> Σ0 →0x22fa2
<MI 22f74 MOVE.L D7,D0> {}
<MI 22f76 SUBQ.L #0x1,D0> {}
<POP 0x22f78 LimitCheck 0x0 ≤ D0 ≤ 0x1d> {}
<MI 22f7e CLR.B (A6+D0.L-#0x20)> {}
<MI 22f82 BRA 0x22fa2> {}
<POP 22f84-22fa2 Naked> Σ0 ↓ ←0x22f68
<MI 22f84 MOVE.L D7,D0> {}
<MI 22f86 SUBQ.L #0x1,D0> {}
<POP 0x22f88 LimitCheck 0x0 ≤ D0 ≤ 0x1d> {}
<MI 22f8e MOVE.L D7,D1> {}
<MI 22f90 SUBQ.L #0x1,D1> {}
<POP 0x22f92 LimitCheck 0x0 ≤ D1 ≤ 0x7d> {}
<MI 22f9c MOVE.B (A0+D1.L+#0x2),(A6+D0.L-#0x20)> {}
<POP 22fa2-22fac Naked> Σ0 ↓ →0x22f68 ←0x22f74
<MI 22fa2 ADDQ.L #0x1,D7> {}
<MI 22fa4 CMPI.L #0x0000001e,D7> {}
<MI 22faa BLE 0x22f68> {}
<POP 22fac-22fc8 Naked> Σ0 ↓
<Pointer.fp 0x22fac <LVAR 0x008 @ 4(r)>> Δ-4 {[@@8]}
<Call 0x22fb0 0x102bc> {[@@8]}
FreeString(VAR a : String)
<POP 22fb6-22fb8 StackAdj> Δ+4 {}
<MI 22fb8 LEA.L (A6+0xc),A0> {}
<MI 22fbc LEA.L (A6-0x20),A1> {}
<BlockMove 30,A1,A0> {}
<POP 22fc8-22fd0 Epilogue> Σ0
@ 22fd0
<LVAR 0x026 4(w)>
<LVAR 0x008 @>
<LVAR -0x006 4(rw)>
<POP 22fd0-23024 Body>
<POP 22fd0-22fe6 Prologue> Σ0 ↓
<POP 22fe6-22fea RegCacheLoad> Σ0 ↓
<POP 22fea-22ff2 Naked> Σ0 ↓
<MI 22fea MOVEQ.L #0x00,D7> {}
<MI 22fec MOVE.L 0x27984,(A6-0x6)> {}
<POP 22ff2-22ffa Naked> Σ0 ↓ →0x23018 ←0x23016
<MI 22ff2 MOVEA.L (A6-0x6),A0> {}
<MI 22ff4 CMPA.W #0x1,A0> {}
<MI 22ff8 BEQ 0x23018> {}
<POP 22ffa-22ffe Naked> Σ0 ↓ →0x23018
<MI 22ffa TST.B D7> {}
<MI 22ffc BNE 0x23018> {}
<POP 22ffe-23006 Naked> Σ0 ↓
<MI 22ffe MOVEA.L A0,A1> {}
<MI 23000 LEA.L (A6+0x8),A2> {}
<MI 23004 MOVEQ.L #0x1d,D0> {}
<POP 23006-2300c Naked> Σ0 ↓ →0x23006 ←0x23006
<MI 23006 CMPM.B (A1)+,(A2)+> {}
<MI 23008 DBNE D0,0x23006> {}
<POP 2300c-2300e Naked> Σ0 ↓ →0x23012
<MI 2300c BNE 0x23012> {}
<POP 2300e-23012 Naked> Σ0 →0x23016
<MI 2300e MOVEQ.L #0x01,D7> {}
<MI 23010 BRA 0x23016> {}
<POP 23012-23016 Naked> Σ0 ↓ ←0x2300c
<MI 23012 MOVE.L (A0+0x26),(A6-0x6)> {}
<POP 23016-23018 Naked> Σ0 →0x22ff2 ←0x2300e
<MI 23016 BRA 0x22ff2> {}
<POP 23018-2301c Naked> Σ0 ↓ ←0x22ff2 ←0x22ffa
<MI 23018 MOVE.L A0,(A6+0x26)> {}
<POP 2301c-23024 Epilogue> Σ0
@ 23024
<LVAR 0x008 @ 4(r)>
<POP 23024-230aa Body>
<POP 23024-2303a Prologue> Σ0 ↓
<POP 2303a-23046 RegCacheLoad> Σ0 ↓
<POP 23046-2304c Naked> Σ0 ↓ →0x230a2
<MI 23046 MOVEA.L (A6+0x8),A0> {}
<MI 23048 CMPA.W #0x01,A0> {}
<MI 2304a BEQ 0x230a2> {}
<POP 2304c-23052 Naked> Σ0 ↓ →0x23062
<MI 2304c TST.L (A0+0x1e)> {}
<MI 23050 BEQ 0x23062> {}
<POP 23052-23062 Naked> Σ0 ↓
<MI 23052 MOVE.L (A0+0x22),-(A7)> Δ-4 {[4, '(A0+0x22)']}
<MI 23056 MOVE.L (A0+0x1e),-(A7)> Δ-4 {[4, '(A0+0x22)']|[4, '(A0+0x1e)']}
<Call 0x2305a 0x102a4> {[4, '(A0+0x22)']|[4, '(A0+0x1e)']}
Free1(a : Pointer; b : Long)
<POP 23060-23062 StackAdj> Δ+8 {}
<POP 23062-23068 Naked> Σ0 ↓ ←0x2304c
<MI 23062 MOVEQ.L #0x00,D7> {}
<MI 23064 MOVEA.W #0x01,A4> {}
<MI 23066 MOVEA.L 0x27984,A3> {}
<POP 23068-2306c Naked> Σ0 ↓ →0x23080 ←0x2307e
<MI 23068 CMPA.W #0x01,A3> {}
<MI 2306a BEQ 0x23080> {}
<POP 2306c-23070 Naked> Σ0 ↓ →0x23080
<MI 2306c TST.B D7> {}
<MI 2306e BNE 0x23080> {}
<POP 23070-23074 Naked> Σ0 ↓ →0x23078
<MI 23070 CMPA.L (A6+0x8),A3> {}
<MI 23072 BNE 0x23078> {}
<POP 23074-23078 Naked> Σ0 →0x2307e
<MI 23074 MOVEQ.L #0x01,D7> {}
<MI 23076 BRA 0x2307e> {}
<POP 23078-2307e Naked> Σ0 ↓ ←0x23070
<MI 23078 MOVEA.L A3,A4> {}
<MI 2307a MOVEA.L (A3+0x26),A3> {}
<POP 2307e-23080 Naked> Σ0 →0x23068 ←0x23074
<MI 2307e BRA 0x23068> {}
<POP 23080-23084 Naked> Σ0 ↓ →0x230a2 ←0x23068 ←0x2306c
<MI 23080 TST.B D7> {}
<MI 23082 BEQ 0x230a2> {}
<POP 23084-23088 Naked> Σ0 ↓ →0x2308e
<MI 23084 CMPA.W #0x01,A4> {}
<MI 23086 BNE 0x2308e> {}
<POP 23088-2308e Naked> Σ0 →0x23094
<MI 23088 MOVE.L (A3+0x26),0x27984> {}
<MI 2308c BRA 0x23094> {}
<POP 2308e-23094 Naked> Σ0 ↓ ←0x23084
<MI 2308e MOVE.L (A3+0x26),(A4+0x26)> {}
<POP 23094-230a2 Naked> Σ0 ↓ ←0x23088
<Pointer.fp 0x23094 <LVAR 0x008 @ 4(r)>> Δ-4 {[@@8]}
<Const 0x23096 0x2a.4> Δ-4 {[@@8]|[##42]}
<Call 0x2309a 0x102a8> {[@@8]|[##42]}
Free2(a : Pointer; b : Long)
<POP 230a0-230a2 StackAdj> Δ+8 {}
<POP 230a2-230aa Epilogue> Σ0 ←0x23046 ←0x23080
@ 230aa
<LVAR 0x010 4(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x006 @ 4(rw)>
<LVAR -0x024 @>
<POP 230aa-23168 Body>
<POP 230aa-230c0 Prologue> Σ0 ↓
<POP 230c0-230ca RegCacheLoad> Σ0 ↓
<POP 230ca-230e8 Naked> Σ0 ↓ →0x230ea
<POP 230ca-230cc StackAdj> Δ-30 {[-30-]}
<MI 230cc MOVEA.L (A6+0xc),A0> {[-30-]}
<MI 230d0 MOVE.L (A0),-(A7)> Δ-4 {[-30-]|[4, '(A0)']}
<Call 0x230d2 0x22f4e> {[-30-]|[4, '(A0)']}
<POP 230d6-230d8 StackAdj> Δ+4 {[-30-]}
<MI 230d8 LEA.L (A6-0x24),A0> {[-30-]}
<POP 230dc-230e4 StackPop> Δ+30 {[-30-]}
<BlockMove 30,A7,A0> Δ+30
<MI 230e4 TST.L (A6+0x8)> {[-30-]}
<MI 230e6 BGE 0x230ea> {[-30-]}
<POP 230e8-230ea Naked> Σ0 ↓
<MI 230e8 CLR.L (A6+0x8)> {}
<POP 230ea-23106 Naked> Σ0 ↓ →0x23118 ←0x230ca
<POP 230ea-230ec StackAdj> Δ-4 {[-4-]}
<Blob 0x230ec [30] (A6-0x6)> Δ-30 {[-4-]|[«30»]}
<Call 0x230f6 0x22fd0> {[-4-]|[«30»]}
<POP 230fa-230fc StackAdj> Δ+30 {[-4-]}
<MI 230fc MOVE.L (A7)+,(A6-0x6)> Δ+4 {}
<MI 230fe MOVEA.L (A6-0x6),A0> {}
<MI 23100 CMPA.W #0x1,A0> {}
<MI 23104 BEQ 0x23118> {}
<POP 23106-2310e Naked> Σ0 ↓ →0x23110
<MI 23106 MOVE.L (A0+0x1e),D0> {}
<MI 2310a CMP.L (A6+0x8),D0> {}
<MI 2310c BNE 0x23110> {}
<POP 2310e-23110 Naked> Σ0 →0x2315c
<MI 2310e BRA 0x2315c> {}
<POP 23110-23118 Naked> Σ0 ↓ ←0x23106
<MI 23110 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x23112 0x23024> {[4, '(A6-0x6)']}
<POP 23116-23118 StackAdj> Δ+4 {}
<POP 23118-2314c Naked> Σ0 ↓ →0x2315c ←0x230ea
<Pointer.fp 0x23118 <LVAR -0x006 @ 4(rw)>> Δ-4 {[@@-6]}
<Const 0x2311a 0x2a.4> Δ-4 {[@@-6]|[##42]}
<Call 0x2311e 0x1029c> {[@@-6]|[##42]}
Malloc1(length : Long) : Pointer
<POP 23124-23126 StackAdj> Δ+8 {}
<MI 23126 MOVEA.L (A6-0x6),A0> {}
<MI 23128 MOVE.L 0x27984,(A0+0x26)> {}
<MI 23130 MOVE.L (A6-0x6),0x27984> {}
<MI 23136 MOVEA.L A0,A1> {}
<MI 23138 LEA.L (A6-0x24),A2> {}
<BlockMove 30,A2,A1> {}
<MI 23144 MOVE.L (A6+0x8),(A0+0x1e)> {}
<MI 23148 TST.L (A6+0x8)> {}
<MI 2314a BEQ 0x2315c> {}
<POP 2314c-2315c Naked> Σ0 ↓
<POP 2314c-2314e StackAdj> Δ-4 {[-4-]}
<MI 2314e MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x23150 0x102a0> {[-4-]|[4, '(A6+0x8)']}
Malloc2(VAR dst : Pointer; length : Word)
<POP 23156-23158 StackAdj> Δ+4 {[-4-]}
<MI 23158 MOVE.L (A7)+,(A0+0x22)> Δ+4 {}
<POP 2315c-23160 Naked> Σ0 ↓ ←0x2310e ←0x23118
<MI 2315c MOVE.L (A6-0x6),(A6+0x10)> {}
<POP 23160-23168 Epilogue> Σ0
@ 23168
<LVAR 0x00c @>
<LVAR 0x008 @ 4(r)>
<LVAR -0x008 4(rw)>
<POP 23168-231f2 Body>
<POP 23168-2317e Prologue> Σ0 ↓
<POP 2317e-23182 RegCacheLoad> Σ0 ↓
<POP 23182-231a0 Naked> Σ0 ↓ →0x231e0
<MI 23182 MOVEA.L (A6+0x8),A0> {}
<MI 23184 MOVE.W (A0),D0> {}
<MI 23186 EXTW.L D0> {}
<MI 23188 MOVE.L D0,D6> {}
<POP 2318a-2318c StackAdj> Δ-4 {[-4-]}
<Pointer.fp 0x2318c <LVAR 0x00c @>> Δ-4 {[-4-]|[@@12]}
<MI 23190 MOVE.L D6,-(A7)> Δ-4 {[-4-]|[@@12]|[4, 'D6']}
<Call 0x23192 0x230aa> {[-4-]|[@@12]|[4, 'D6']}
<POP 23196-23198 StackAdj> Δ+8 {[-4-]}
<MI 23198 MOVE.L (A7)+,(A6-0x8)> Δ+4 {}
<MI 2319c TST.L D6> {}
<MI 2319e BEQ 0x231e0> {}
<POP 231a0-231ae Naked> Σ0 Δ-8 ↓
<MI 231a0 MOVEA.L (A6-0x8),A0> {}
<MI 231a4 MOVEA.L (A0+0x22),A0> {}
<MI 231a8 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 231aa MOVE.L D6,-(A7)> Δ-4 {[4, 'A0']|[4, 'D6']}
<MI 231ac MOVEQ.L #0x01,D7> {[4, 'A0']|[4, 'D6']}
<POP 231ae-231b2 Naked> Σ-8 ↓ →0x231de ←0x231b2
<MI 231ae CMP.L (A7),D7> {[-8-]}
<MI 231b0 BGT 0x231de> {[-8-]}
<POP 231b2-231de Naked> Σ-8 ↓ →0x231ae
<MI 231b2 MOVE.L D7,D0> {[-8-]}
<MI 231b4 SUBQ.L #0x1,D0> {[-8-]}
<POP 0x231b6 LimitCheck 0x0 ≤ D0 ≤ 0x3ff> {[-8-]}
<MI 231c0 MOVEA.L (A7+0x4),A0> {[-8-]}
<MI 231c4 MOVEA.L (A6+0x8),A1> {[-8-]}
<MI 231c6 MOVE.L D7,D1> {[-8-]}
<MI 231c8 SUBQ.L #0x1,D1> {[-8-]}
<POP 0x231ca LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-8-]}
<MI 231d4 MOVE.B (A1+D1.L+#0x2),(A0+D0.L)> {[-8-]}
<MI 231da ADDQ.L #0x1,D7> {[-8-]}
<MI 231dc BVC 0x231ae> {[-8-]}
<POP 231de-231e0 Naked> Σ-8 Δ+8 ↓ ←0x231ae
<POP 231de-231e0 StackAdj> Δ+8 {}
<POP 231e0-231ea Naked> Σ0 ↓ ←0x23182
<Pointer.fp 0x231e0 <LVAR 0x008 @ 4(r)>> Δ-4 {[@@8]}
<Call 0x231e2 0x102bc> {[@@8]}
FreeString(VAR a : String)
<POP 231e8-231ea StackAdj> Δ+4 {}
<POP 231ea-231f2 Epilogue> Σ0
@ 231f2
<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 231f2-2335e Body>
<POP 231f2-23208 Prologue> Σ0 ↓
<POP 23208-23216 RegCacheLoad> Σ0 ↓
<POP 23216-23228 Naked> Σ0 ↓ →0x23256
<POP 23216-23218 StackAdj> Δ-4 {[-4-]}
<MI 23218 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x2321a 0x2224e> {[-4-]|[4, '(A6+0x8)']}
<POP 2321e-23220 StackAdj> Δ+4 {[-4-]}
<MI 23220 MOVE.L (A7)+,(A6-0x10)> Δ+4 {}
<MI 23222 MOVE.L (A6-0x10),D0> {}
<MI 23224 CMP.L #0x01,D0> {}
<MI 23226 BGE 0x23256> {}
<POP 23228-23256 Naked> Σ0 ↓
<Blob 0x23228 [26] @> Δ-26 {[«26""»]}
<POP 2323a-2323c StackAdj> Δ-4 {[«26""»]|[-4-]}
<Lit 0x2323c 25> {[«26""»]|[$$Too few arguments for SET]}
<Call 0x2324e 0x21e42> {[«26""»]|[$$Too few arguments for SET]}
<POP 23252-23256 StackAdj> Δ+30 {}
<POP 23256-2325c Naked> Σ0 Δ-4 ↓ ←0x23216
<MI 23256 CLR.L (A6-0xc)> {}
<MI 23258 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 2325a MOVEQ.L #0x02,D6> {[4, 'D0']}
<POP 2325c-23260 Naked> Σ-4 ↓ →0x2327e ←0x23260
<MI 2325c CMP.L (A7),D6> {[-4-]}
<MI 2325e BGT 0x2327e> {[-4-]}
<POP 23260-2327e Naked> Σ-4 ↓ →0x2325c
<POP 23260-23264 StackAdj> Δ-12 {[-16-]}
<MI 23264 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<MI 23266 MOVE.L D6,-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[4, 'D6']}
<Call 0x23268 0x22a8c> {[-16-]|[4, '(A6+0x8)']|[4, 'D6']}
<POP 2326c-2326e StackAdj> Δ+8 {[-16-]}
<Call 0x2326e 0x22a54> {[-16-]}
<POP 23272-23274 StackAdj> Δ+8 {[-8-]}
<MI 23274 MOVE.L (A6-0xc),D0> {[-8-]}
<MI 23276 ADD.L (A7)+,D0> Δ+4 {[-4-]}
<MI 23278 MOVE.L D0,(A6-0xc)> {[-4-]}
<MI 2327a ADDQ.L #0x1,D6> {[-4-]}
<MI 2327c BVC 0x2325c> {[-4-]}
<POP 2327e-232ae Naked> Σ-4 Δ+4 ↓ →0x23356 ←0x2325c
<POP 2327e-23280 StackAdj> Δ+4 {}
<MI 23280 MOVE.L (A6-0x10),D0> {}
<MI 23282 SUBQ.L #0x2,D0> {}
<MI 23284 ADD.L D0,(A6-0xc)> {}
<POP 23286-23288 StackAdj> Δ-4 {[-4-]}
<MI 23288 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x2328a 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x2328e 0x22b6a> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 23292-23294 StackAdj> Δ+8 {[-4-]}
<MI 23294 MOVE.L (A7),(A6-0x4)> {[-4-]}
<Pointer.fp 0x23298 <LVAR -0x004 @ 4(w)>> Δ-4 {[-4-]|[@@-4]}
<MI 2329c MOVE.L (A6-0xc),-(A7)> Δ-4 {[-4-]|[@@-4]|[4, '(A6-0xc)']}
<Call 0x2329e 0x230aa> {[-4-]|[@@-4]|[4, '(A6-0xc)']}
<POP 232a2-232a4 StackAdj> Δ+8 {[-4-]}
<MI 232a4 MOVE.L (A7)+,(A6-0x8)> Δ+4 {}
<MI 232a8 TST.L (A6-0xc)> {}
<MI 232aa BLE 0x23356> {}
<POP 232ae-232be Naked> Σ0 Δ-8 ↓
<MI 232ae MOVEA.L (A6-0x8),A0> {}
<MI 232b2 MOVEA.L (A0+0x22),A0> {}
<MI 232b6 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 232b8 MOVEQ.L #0x01,D7> {[4, 'A0']}
<MI 232ba MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, 'A0']|[4, '(A6-0x10)']}
<MI 232bc MOVEQ.L #0x02,D6> {[4, 'A0']|[4, '(A6-0x10)']}
<POP 232be-232c4 Naked> Σ-8 ↓ →0x23354 ←0x2334e
<MI 232be CMP.L (A7),D6> {[-8-]}
<MI 232c0 BGT 0x23354> {[-8-]}
<POP 232c4-232e4 Naked> Σ-8 Δ-4 ↓ →0x232f8
<POP 232c4-232c6 StackAdj> Δ-8 {[-16-]}
<MI 232c6 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<MI 232c8 MOVE.L D6,-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[4, 'D6']}
<Call 0x232ca 0x22a8c> {[-16-]|[4, '(A6+0x8)']|[4, 'D6']}
<POP 232ce-232d0 StackAdj> Δ+8 {[-16-]}
<MI 232d0 MOVE.L (A7)+,(A6-0x20)> Δ+4 {[-12-]}
<MI 232d4 MOVE.L (A7)+,(A6-0x1c)> Δ+4 {[-8-]}
<MI 232d8 MOVE.L (A6-0x1c),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x1c)']}
<MI 232dc MOVE.L (A6-0x20),D5> {[-8-]|[4, '(A6-0x1c)']}
<MI 232e0 CMP.L (A7),D5> {[-8-]|[4, '(A6-0x1c)']}
<MI 232e2 BGT 0x232f8> {[-8-]|[4, '(A6-0x1c)']}
<POP 232e4-232f8 Naked> Σ-12 ↓
<MI 232e4 MOVE.L (A7),D0> {[-12-]}
<POP 0x232e6 LimitCheck -0x7fffffff ≤ D5> {[-12-]}
<MI 232e6 CMPI.L #0x80000001,D5>
<MI 232ec BLT 0x232f6>
<POP 0x232ee LimitCheck D0 ≤ 0x7fffffff> {[-12-]}
<MI 232ee CMPI.L #0x7fffffff,D0>
<MI 232f4 BLE 0x232f8>
<MI 232f6 TRAP #15>
<POP 232f8-232fc Naked> Σ-12 ↓ →0x2332e ←0x232c4 ←0x232fc
<MI 232f8 CMP.L (A7),D5> {[-12-]}
<MI 232fa BGT 0x2332e> {[-12-]}
<POP 232fc-2332e Naked> Σ-12 ↓ →0x232f8
<MI 232fc MOVE.L D7,D0> {[-12-]}
<MI 232fe SUBQ.L #0x1,D0> {[-12-]}
<POP 0x23300 LimitCheck 0x0 ≤ D0 ≤ 0x3ff> {[-12-]}
<MI 2330a MOVEA.L (A7+0x8),A0> {[-12-]}
<MI 2330e MOVE.L D5,D1> {[-12-]}
<MI 23310 SUBQ.L #0x1,D1> {[-12-]}
<POP 0x23312 LimitCheck 0x0 ≤ D1 ≤ 0x1fff> {[-12-]}
<MI 2331c LEA.L 0x25952,A1> {[-12-]}
<MI 23322 MOVE.B (A1+D1.L+#0x8),(A0+D0.L)> {[-12-]}
<MI 23328 ADDQ.L #0x1,D7> {[-12-]}
<MI 2332a ADDQ.L #0x1,D5> {[-12-]}
<MI 2332c BVC 0x232f8> {[-12-]}
<POP 2332e-23334 Naked> Σ-12 Δ+4 ↓ →0x2334e ←0x232f8
<POP 2332e-23330 StackAdj> Δ+4 {[-8-]}
<MI 23330 CMP.L (A6-0x10),D6> {[-8-]}
<MI 23332 BEQ 0x2334e> {[-8-]}
<POP 23334-2334e Naked> Σ-8 ↓
<MI 23334 MOVE.L D7,D0> {[-8-]}
<MI 23336 SUBQ.L #0x1,D0> {[-8-]}
<POP 0x23338 LimitCheck 0x0 ≤ D0 ≤ 0x3ff> {[-8-]}
<MI 23342 MOVEA.L (A7+0x4),A0> {[-8-]}
<MI 23346 MOVE.B #0x2c,(A0+D0.L)> {[-8-]}
<MI 2334c ADDQ.L #0x1,D7> {[-8-]}
<POP 2334e-23354 Naked> Σ-8 ↓ →0x232be ←0x2332e
<MI 2334e ADDQ.L #0x1,D6> {[-8-]}
<MI 23350 BVC 0x232be> {[-8-]}
<POP 23354-23356 Naked> Σ-8 Δ+8 ↓ ←0x232be
<POP 23354-23356 StackAdj> Δ+8 {}
<POP 23356-2335e Epilogue> Σ0 ←0x2327e
@ 2335e
<LVAR 0x008 4(r)>
<LVAR -0x00c 4(rw)>
<POP 2335e-2344c Body>
<POP 2335e-23374 Prologue> Σ0 ↓
<POP 23374-2337c RegCacheLoad> Σ0 ↓
<POP 2337c-233ae Naked> Σ0 ↓ →0x233f0
<POP 2337c-2337e StackAdj> Δ-4 {[-4-]}
<MI 2337e MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x23382 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23386 0x22b6a> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 2338a-2338c StackAdj> Δ+8 {[-4-]}
<MI 2338c MOVEA.L (A7)+,A4> Δ+4 {}
<POP 2338e-23392 StackAdj> Δ-34 {[-34-]}
<MI 23392 MOVE.L A4,-(A7)> Δ-4 {[-34-]|[4, 'A4']}
<Call 0x23394 0x22f4e> {[-34-]|[4, 'A4']}
<POP 23398-2339a StackAdj> Δ+4 {[-34-]}
<Call 0x2339a 0x22fd0> {[-34-]}
<POP 2339e-233a2 StackAdj> Δ+30 {[-4-]}
<MI 233a2 MOVE.L (A7)+,(A6-0xc)> Δ+4 {}
<MI 233a6 MOVEA.L (A6-0xc),A0> {}
<MI 233aa CMPA.W #0x01,A0> {}
<MI 233ac BNE 0x233f0> {}
<POP 233ae-233f0 Naked> Σ0 ↓
<Blob 0x233ae [20] @> Δ-20 {[«20""»]}
<POP 233c0-233c2 StackAdj> Δ-8 {[«20""»]|[-8-]}
<Lit 0x233c2 19> {[«20""»]|[-4-]|[$$Unknown variable :_]}
<MI 233d2 MOVE.L (A6+0x8),(A7)> {[«20""»]|[-4-]|[4, '(A6+0x8)']}
<POP 233cc-233d2 StackAdj> Δ-8 {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-8-]}
<Const 0x233d6 0x1.4> Δ-4 {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-8-]|[##1]}
<Call 0x233da 0x22b6a> {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-8-]|[##1]}
<POP 233de-233e0 StackAdj> Δ+8 {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-4-]}
<Call 0x233e0 0x102d0> {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-4-]}
StringCat2(a, b : String) : String
<POP 233e6-233e8 StackAdj> Δ+8 {[«20""»]|[-4-]}
<Call 0x233e8 0x21e42> {[«20""»]|[-4-]}
<POP 233ec-233f0 StackAdj> Δ+24 {}
<POP 233f0-23406 Naked> Σ0 Δ-8 ↓ ←0x2337c
<MI 233f0 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Blob 0x233f2 [4] 0x2795a> Δ-4 {[4, 'A0']|[«4»]}
<MI 233f4 MOVE.L (A0+0x1e),-(A7)> Δ-4 {[4, 'A0']|[«4»]|[4, '(A0+0x1e)']}
<MI 233f8 NEG.L (A7)> {[4, 'A0']|[«4»]|[4, '(A0+0x1e)']}
<Call 0x233fa 0x22396> {[4, 'A0']|[«4»]|[4, '(A0+0x1e)']}
<POP 233fe-23400 StackAdj> Δ+4 {[4, 'A0']|[«4»]}
<MI 23400 MOVE.L (A0+0x1e),(A7)> {[4, 'A0']|[4, '(A0+0x1e)']}
<MI 23404 MOVEQ.L #0x01,D7> {[4, 'A0']|[4, '(A0+0x1e)']}
<POP 23406-2340a Naked> Σ-8 ↓ →0x23442 ←0x2340a
<MI 23406 CMP.L (A7),D7> {[-8-]}
<MI 23408 BGT 0x23442> {[-8-]}
<POP 2340a-23442 Naked> Σ-8 ↓ →0x23406
<MI 2340a MOVE.L D7,D0> {[-8-]}
<MI 2340c ADD.L 0x2795a,D0> {[-8-]}
<MI 2340e SUBQ.L #0x1,D0> {[-8-]}
<MI 23410 SUBQ.L #0x1,D0> {[-8-]}
<POP 0x23412 LimitCheck 0x0 ≤ D0 ≤ 0x1fff> {[-8-]}
<MI 2341c LEA.L 0x25952,A0> {[-8-]}
<MI 23422 MOVEA.L (A7+0x4),A1> {[-8-]}
<MI 23426 MOVEA.L (A1+0x22),A1> {[-8-]}
<MI 2342a MOVE.L D7,D1> {[-8-]}
<MI 2342c SUBQ.L #0x1,D1> {[-8-]}
<POP 0x2342e LimitCheck 0x0 ≤ D1 ≤ 0x3ff> {[-8-]}
<MI 23438 MOVE.B (A1+D1.L),(A0+D0.L+#0x8)> {[-8-]}
<MI 2343e ADDQ.L #0x1,D7> {[-8-]}
<MI 23440 BVC 0x23406> {[-8-]}
<POP 23442-23444 Naked> Σ-8 Δ+8 ↓ ←0x23406
<POP 23442-23444 StackAdj> Δ+8 {}
<POP 23444-2344c Epilogue> Σ0
@ 2344c
<LVAR -0x004 4(rw)>
<POP 2344c-234ae Body>
<POP 2344c-23462 Prologue> Σ0 ↓
<POP 23462-2346a RegCacheLoad> Σ0 ↓
<POP 2346a-23470 Naked> Σ0 ↓
<MI 2346a MOVE.L 0x27984,(A6-0x4)> {}
<POP 23470-23476 Naked> Σ0 ↓ →0x234a6 ←0x23476
<MI 23470 MOVEA.L (A6-0x4),A0> {}
<MI 23472 CMPA.W #0x01,A0> {}
<MI 23474 BEQ 0x234a6> {}
<POP 23476-234a6 Naked> Σ0 →0x23470
<POP 23476-23478 StackAdj> Δ-30 {[-30-]}
<MI 23478 MOVEA.L A7,A1> {[-30-]}
<MI 2347a MOVEA.L A0,A2> {[-30-]}
<BlockMove 30,A2,A1> {[-30-]}
<POP 23484-23486 StackAdj> Δ-4 {[-34-]}
<Lit 0x23486> {[-30-]|[$$…]}
<Pointer.sp 0x23486 4> Δ-4
<Const 0x2348a 0x1.2> Δ-2
<Const 0x2348c 0x1e.2> Δ-2
<Call 0x2348e 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 23494-23496 StackAdj> Δ+8
<Call 0x23496 0x103e0> {[-30-]|[$$…]}
WriteConsoleStringCrLf(str : String)
<POP 2349c-234a0 StackAdj> Δ+34 {}
<MI 234a0 MOVE.L (A0+0x26),(A6-0x4)> {}
<MI 234a4 BRA 0x23470> {}
<POP 234a6-234ae Epilogue> Σ0 ←0x23470
@ 234ae
<LVAR 0x008 4(r)>
<POP 234ae-234ea Body>
<POP 234ae-234c0 Prologue> Σ0 ↓
<POP 234c0-234e6 Naked> Σ0 ↓
<POP 234c0-234c4 StackAdj> Δ-38 {[-38-]}
<MI 234c4 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-38-]|[4, '(A6+0x8)']}
<Const 0x234c8 0x1.4> Δ-4 {[-38-]|[4, '(A6+0x8)']|[##1]}
<Call 0x234cc 0x22b6a> {[-38-]|[4, '(A6+0x8)']|[##1]}
<POP 234d0-234d2 StackAdj> Δ+8 {[-38-]}
<Call 0x234d2 0x22f4e> {[-38-]}
<POP 234d6-234d8 StackAdj> Δ+4 {[-34-]}
<Call 0x234d8 0x22fd0> {[-34-]}
<POP 234dc-234e0 StackAdj> Δ+30 {[-4-]}
<Call 0x234e0 0x23024> {[-4-]}
<POP 234e4-234e6 StackAdj> Δ+4 {}
<POP 234e6-234ea Epilogue> Σ0
@ 234ea
<POP 234ea-23518 Body>
<POP 234ea-234fc Prologue> Σ0 ↓
<POP 234fc-23514 Naked> Σ0 ↓
<POP 234fc-234fe StackAdj> Δ-8 {[-8-]}
<Call 0x234fe 0x103cc> {[-8-]}
GetPushLevel() : Long
<Call 0x23504 0x102e4> {[-8-]}
Long2String(a : Long) : String
<POP 2350a-2350c StackAdj> Δ+4 {[-4-]}
<Call 0x2350c 0x103e0> {[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 23512-23514 StackAdj> Δ+4 {}
<POP 23514-23518 Epilogue> Σ0
@ 23518
<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 23518-23840 Body>
<POP 23518-2352e Prologue> Σ0 ↓
<POP 2352e-23546 RegCacheLoad> Σ0 ↓
<POP 23546-23556 Naked> Σ0 ↓ →0x2357e
<POP 23546-23548 StackAdj> Δ-4 {[-4-]}
<MI 23548 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x2354a 0x2224e> {[-4-]|[4, '(A6+0x8)']}
<POP 2354e-23550 StackAdj> Δ+4 {[-4-]}
<MI 23550 MOVE.L (A7)+,(A6-0x2c)> Δ+4 {}
<MI 23554 BNE 0x2357e> {}
<POP 23556-2357e Naked> Σ0 →0x2358e
<POP 23556-23558 StackAdj> Δ-4 {[-4-]}
<POP 23558-23559 StackAdj> Δ+2 {[-2-]}
<Blob 0x23559 [2] @> Δ-2 {[-2-]|[«2""»]}
<MI 2355c MOVE.B 0x21a67,(A7+0x1)> {[-2-]|[«2""»]}
<MI 23562 MOVE.B 0x21a68,(A7+0x2)> {[-2-]|[«2""»]}
<POP 23568-2356a StackAdj> Δ-4 {[-2-]|[«2""»]|[-4-]}
<Lit 0x2356a> {[-2-]|[«2""»]|[$$…]}
<Pointer.sp 0x2356a 4> Δ-4
<Const 0x2356e 0x1.2> Δ-2
<Const 0x23570 0x3.2> Δ-2
<Call 0x23574 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 23576-23578 StackAdj> Δ+8
<MI 23578 MOVE.L (A7)+,(A6-0x3c)> Δ+4 {[-2-]|[«2""»]}
<POP 2357a-2357c StackAdj> Δ+4 {}
<MI 2357c BRA 0x2358e> {}
<POP 2357e-2358e Naked> Σ0 ↓ ←0x23546
<POP 2357e-23580 StackAdj> Δ-4 {[-4-]}
<MI 23580 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x23582 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23586 0x22b6a> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 2358a-2358c StackAdj> Δ+8 {[-4-]}
<MI 2358c MOVE.L (A7)+,(A6-0x3c)> Δ+4 {}
<POP 2358e-235de Naked> Σ0 ↓ →0x235ec ←0x23556
<Blob 0x2358e [6] @> Δ-6 {[«6""»]}
<POP 2359e-235a0 StackAdj> Δ-4 {[«6""»]|[-4-]}
<MI 235a0 MOVE.L (A6-0x3c),-(A7)> Δ-4 {[«6""»]|[-4-]|[4, '(A6-0x3c)']}
<POP 235a2-235a4 StackAdj> Δ-4 {[«6""»]|[-4-]|[4, '(A6-0x3c)']|[-4-]}
<Lit 0x235a4 5> {[«6""»]|[-4-]|[4, '(A6-0x3c)']|[$$.M200]}
<Call 0x235b2 0x102d0> {[«6""»]|[-4-]|[4, '(A6-0x3c)']|[$$.M200]}
StringCat2(a, b : String) : String
<POP 235b8-235ba StackAdj> Δ+8 {[«6""»]|[-4-]}
<MI 235ba MOVE.L (A7)+,(A6-0x3c)> Δ+4 {[«6""»]}
<POP 235bc-235be StackAdj> Δ+2 {[-4-]}
<MI 235be MOVE.L (A6-0x3c),(A7)> {[4, '(A6-0x3c)']}
<MI 235c0 CLR.B -(A7)> Δ-2 {[4, '(A6-0x3c)']|[#0]}
<Const 0x235c2 0x1.2> Δ-2 {[4, '(A6-0x3c)']|[#0]|[#1]}
<Const 0x235c4 0x0.4> Δ-4 {[4, '(A6-0x3c)']|[#0]|[#1]|[##0]}
<Pointer.fp 0x235c8 <LVAR -0x038 @ 1(r)>> Δ-4 {[4, '(A6-0x3c)']|[#0]|[#1]|[##0]|[@@-56]}
<Pointer.fp 0x235cc <LVAR -0x036 @ 4(r)>> Δ-4 {[4, '(A6-0x3c)']|[#0]|[#1]|[##0]|[@@-56]|[@@-54]}
<Call 0x235d0 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 235d6-235d8 StackAdj> Δ+20 {}
<MI 235d8 TST.B (A6-0x38)> {}
<MI 235dc BEQ 0x235ec> {}
<POP 235de-235ec Naked> Σ0 →0x23838
<Pointer.fp 0x235de <LVAR -0x03c @ 4(rw)>> Δ-4 {[@@-60]}
<Call 0x235e0 0x102bc> {[@@-60]}
FreeString(VAR a : String)
<POP 235e6-235e8 StackAdj> Δ+4 {}
<MI 235e8 BRA 0x23838> {}
<POP 235ec-23632 Naked> Σ0 ↓ →0x23668 ←0x2358e
<MI 235ec MOVEA.L (A6-0x36),A0> {}
<MI 235f0 MOVE.B (A0+0x3f),D0> {}
<MI 235f4 LSL.B #0x6,D0> {}
<MI 235f6 LSR.B #0x7,D0> {}
<MI 235f8 MOVE.B D0,(A6-0x32)> {}
<MI 235fc CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x235fe 0x1.2> Δ-2 {[#0]|[#1]}
<Const 0x23600 0x1.4> Δ-4 {[#0]|[#1]|[##1]}
<Pointer.fp 0x23604 <LVAR -0x038 @ 1(r)>> Δ-4 {[#0]|[#1]|[##1]|[@@-56]}
<Pointer.fp 0x23608 <LVAR -0x036 @ 4(r)>> Δ-4 {[#0]|[#1]|[##1]|[@@-56]|[@@-54]}
<Call 0x2360c 0x1038c> {[#0]|[#1]|[##1]|[@@-56]|[@@-54]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 23612-23616 StackAdj> Δ+16 {}
<MI 23616 MOVEA.L (A6-0x3c),A0> {}
<MI 23618 MOVE.W (A0),D1> {}
<MI 2361a EXTW.L D1> {}
<MI 2361c SUBQ.L #0x5,D1> {}
<POP 0x2361e LimitCheck -0x8000 ≤ D1 ≤ 0x7fff> {}
<MI 2362c MOVE.W D1,(A0)> {}
<MI 2362e TST.B D0> {}
<MI 23630 BNE 0x23668> {}
<POP 23632-23668 Naked> Σ0 →0x23838
<Blob 0x23632 [18] @> Δ-18 {[«18""»]}
<POP 2363e-23640 StackAdj> Δ-4 {[«18""»]|[-4-]}
<MI 23640 MOVE.L (A6-0x3c),-(A7)> Δ-4 {[«18""»]|[-4-]|[4, '(A6-0x3c)']}
<POP 23642-23644 StackAdj> Δ-4 {[«18""»]|[-4-]|[4, '(A6-0x3c)']|[-4-]}
<Lit 0x23644 18> {[«18""»]|[-4-]|[4, '(A6-0x3c)']|[$$ is not a program.]}
<Call 0x23652 0x102d0> {[«18""»]|[-4-]|[4, '(A6-0x3c)']|[$$ is not a program.]}
StringCat2(a, b : String) : String
<POP 23658-2365a StackAdj> Δ+8 {[«18""»]|[-4-]}
<Call 0x2365a 0x103e0> {[«18""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 23660-23664 StackAdj> Δ+22 {}
<MI 23664 BRA 0x23838> {}
<POP 23668-23682 Naked> Σ0 Δ-8 ↓ ←0x235ec
<Pointer.fp 0x23668 <LVAR -0x030 @ 4(r)>> Δ-4 {[@@-48]}
<Call 0x2366c 0x102b8> {[@@-48]}
NewString(VAR a : String)
<POP 23672-23674 StackAdj> Δ+4 {}
<MI 23674 MOVEA.L (A6-0x30),A0> {}
<MI 23678 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 2367a MOVEQ.L #0x01,D7> {[4, 'A0']}
<MI 2367c MOVE.L (A6-0x2c),-(A7)> Δ-4 {[4, 'A0']|[4, '(A6-0x2c)']}
<MI 23680 MOVEQ.L #0x02,D5> {[4, 'A0']|[4, '(A6-0x2c)']}
<POP 23682-23688 Naked> Σ-8 ↓ →0x2371a ←0x23714
<MI 23682 CMP.L (A7),D5> {[-8-]}
<MI 23684 BGT 0x2371a> {[-8-]}
<POP 23688-236a8 Naked> Σ-8 Δ-4 ↓ →0x236bc
<POP 23688-2368a StackAdj> Δ-8 {[-16-]}
<MI 2368a MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<MI 2368c MOVE.L D5,-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[4, 'D5']}
<Call 0x2368e 0x22a8c> {[-16-]|[4, '(A6+0x8)']|[4, 'D5']}
<POP 23692-23694 StackAdj> Δ+8 {[-16-]}
<MI 23694 MOVE.L (A7)+,(A6-0x28)> Δ+4 {[-12-]}
<MI 23698 MOVE.L (A7)+,(A6-0x24)> Δ+4 {[-8-]}
<MI 2369c MOVE.L (A6-0x24),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x24)']}
<MI 236a0 MOVE.L (A6-0x28),D6> {[-8-]|[4, '(A6-0x24)']}
<MI 236a4 CMP.L (A7),D6> {[-8-]|[4, '(A6-0x24)']}
<MI 236a6 BGT 0x236bc> {[-8-]|[4, '(A6-0x24)']}
<POP 236a8-236bc Naked> Σ-12 ↓
<MI 236a8 MOVE.L (A7),D0> {[-12-]}
<POP 0x236aa LimitCheck -0x7fffffff ≤ D6> {[-12-]}
<MI 236aa CMPI.L #0x80000001,D6>
<MI 236b0 BLT 0x236ba>
<POP 0x236b2 LimitCheck D0 ≤ 0x7fffffff> {[-12-]}
<MI 236b2 CMPI.L #0x7fffffff,D0>
<MI 236b8 BLE 0x236bc>
<MI 236ba TRAP #15>
<POP 236bc-236c0 Naked> Σ-12 ↓ →0x236f2 ←0x23688 ←0x236c0
<MI 236bc CMP.L (A7),D6> {[-12-]}
<MI 236be BGT 0x236f2> {[-12-]}
<POP 236c0-236f2 Naked> Σ-12 ↓ →0x236bc
<MI 236c0 MOVE.L D7,D0> {[-12-]}
<MI 236c2 SUBQ.L #0x1,D0> {[-12-]}
<POP 0x236c4 LimitCheck 0x0 ≤ D0 ≤ 0x7d> {[-12-]}
<MI 236ce MOVEA.L (A7+0x8),A0> {[-12-]}
<MI 236d2 MOVE.L D6,D1> {[-12-]}
<MI 236d4 SUBQ.L #0x1,D1> {[-12-]}
<POP 0x236d6 LimitCheck 0x0 ≤ D1 ≤ 0x1fff> {[-12-]}
<MI 236e0 LEA.L 0x25952,A1> {[-12-]}
<MI 236e6 MOVE.B (A1+D1.L+#0x8),(A0+D0.L+#0x2)> {[-12-]}
<MI 236ec ADDQ.L #0x1,D7> {[-12-]}
<MI 236ee ADDQ.L #0x1,D6> {[-12-]}
<MI 236f0 BVC 0x236bc> {[-12-]}
<POP 236f2-236fa Naked> Σ-12 Δ+4 ↓ →0x23714 ←0x236bc
<POP 236f2-236f4 StackAdj> Δ+4 {[-8-]}
<MI 236f4 CMP.L (A6-0x2c),D5> {[-8-]}
<MI 236f8 BEQ 0x23714> {[-8-]}
<POP 236fa-23714 Naked> Σ-8 ↓
<MI 236fa MOVE.L D7,D0> {[-8-]}
<MI 236fc SUBQ.L #0x1,D0> {[-8-]}
<POP 0x236fe LimitCheck 0x0 ≤ D0 ≤ 0x7d> {[-8-]}
<MI 23708 MOVEA.L (A7+0x4),A0> {[-8-]}
<MI 2370c MOVE.B #0x2c,(A0+D0.L+#0x2)> {[-8-]}
<MI 23712 ADDQ.L #0x1,D7> {[-8-]}
<POP 23714-2371a Naked> Σ-8 ↓ →0x23682 ←0x236f2
<MI 23714 ADDQ.L #0x1,D5> {[-8-]}
<MI 23716 BVC 0x23682> {[-8-]}
<POP 2371a-237ca Naked> Σ-8 Δ+8 ↓ →0x237d0 ←0x23682
<POP 2371a-2371c StackAdj> Δ+4 {[-4-]}
<MI 2371c MOVEA.L (A7),A0> {[-4-]}
<MI 2371e MOVE.L D7,D0> {[-4-]}
<MI 23720 SUBQ.L #0x1,D0> {[-4-]}
<POP 0x23722 LimitCheck -0x8000 ≤ D0 ≤ 0x7fff> {[-4-]}
<MI 23730 MOVE.W D0,(A0)> {[-4-]}
<POP 23732-23734 StackAdj> Δ+2 {[-2-]}
<POP 23734-23735 StackAdj> Δ+2 {}
<Blob 0x23735 [2] @> Δ-2 {[«2""»]}
<Blob 0x23738 [2] @> Δ-2 {[«2""»]|[«2""»]}
<Blob 0x2373c [2] @> Δ-2 {[«2""»]|[«2""»]|[«2""»]}
<POP 23740-23742 StackAdj> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[-4-]}
<Lit 0x23742 6> {[«2""»]|[«2""»]|[«2""»]|[$$STATUS]}
<MI 23750 MOVE.L (A7)+,(A6-0x8)> Δ+4 {[«2""»]|[«2""»]|[«2""»]}
<POP 23754-23756 StackAdj> Δ+2 {[«2""»]|[«2""»]}
<MI 23756 MOVE.L (A6+0x8),(A7)> {[4, '(A6+0x8)']}
<Const 0x23758 0x0.4> Δ-4 {[4, '(A6+0x8)']|[##0]}
<MI 2375c MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']}
<Pointer.fp 0x23760 <LVAR -0x010 @ 4(r)>> Δ-4 {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']|[@@-16]}
<Pointer.fp 0x23764 <LVAR -0x013 @ 1(r)>> Δ-4 {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']|[@@-16]|[@@-19]}
<Call 0x23768 0x250a2> {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']|[@@-16]|[@@-19]}
<POP 2376e-23770 StackAdj> Δ+20 {}
<Pointer.fp 0x23770 <LVAR -0x008 @ 4(rw)>> Δ-4 {[@@-8]}
<Call 0x23774 0x102bc> {[@@-8]}
FreeString(VAR a : String)
<POP 2377a-2377c StackAdj> Δ+2 {[-2-]}
<POP 2377c-2377d StackAdj> Δ+2 {}
<Blob 0x2377d [2] @> Δ-2 {[«2""»]}
<Blob 0x23780 [2] @> Δ-2 {[«2""»]|[«2""»]}
<Blob 0x23784 [2] @> Δ-2 {[«2""»]|[«2""»]|[«2""»]}
<POP 23788-2378a StackAdj> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[-4-]}
<Lit 0x2378a 6> {[«2""»]|[«2""»]|[«2""»]|[$$RESULT]}
<MI 23798 MOVE.L (A7)+,(A6-0x8)> Δ+4 {[«2""»]|[«2""»]|[«2""»]}
<POP 2379c-2379e StackAdj> Δ+2 {[«2""»]|[«2""»]}
<MI 2379e MOVE.L (A6+0x8),(A7)> {[4, '(A6+0x8)']}
<Const 0x237a0 0x0.4> Δ-4 {[4, '(A6+0x8)']|[##0]}
<MI 237a4 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']}
<Pointer.fp 0x237a8 <LVAR -0x00c @ 4(r)>> Δ-4 {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']|[@@-12]}
<Pointer.fp 0x237ac <LVAR -0x012 @ 1(r)>> Δ-4 {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']|[@@-12]|[@@-18]}
<Call 0x237b0 0x250a2> {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']|[@@-12]|[@@-18]}
<POP 237b6-237b8 StackAdj> Δ+20 {}
<Pointer.fp 0x237b8 <LVAR -0x008 @ 4(rw)>> Δ-4 {[@@-8]}
<Call 0x237bc 0x102bc> {[@@-8]}
FreeString(VAR a : String)
<POP 237c2-237c4 StackAdj> Δ+4 {}
<MI 237c4 TST.B (A6-0x13)> {}
<MI 237c8 BNE 0x237d0> {}
<POP 237ca-237d0 Naked> Σ0 ↓ →0x237d6
<MI 237ca TST.B (A6-0x12)> {}
<MI 237ce BEQ 0x237d6> {}
<POP 237d0-237d6 Naked> Σ0 →0x237da ←0x2371a
<MI 237d0 CLR.B (A6-0x4)> {}
<MI 237d4 BRA 0x237da> {}
<POP 237d6-237da Naked> Σ0 ↓ ←0x237ca
<MI 237d6 MOVE.B #0x01,(A6-0x4)> {}
<POP 237da-23800 Naked> Σ0 ↓ →0x23820 ←0x237d0
<MI 237da MOVE.L (A6-0x3c),-(A7)> Δ-4 {[4, '(A6-0x3c)']}
<MI 237dc MOVE.L (A6-0x30),-(A7)> Δ-4 {[4, '(A6-0x3c)']|[4, '(A6-0x30)']}
<MI 237e0 MOVE.B (A6-0x4),D0> {[4, '(A6-0x3c)']|[4, '(A6-0x30)']}
<MI 237e4 EXTB.W D0> {[4, '(A6-0x3c)']|[4, '(A6-0x30)']}
<POP 0x237e6 LimitCheck 0x0 ≤ D0 ≤ 0x2> {[4, '(A6-0x3c)']|[4, '(A6-0x30)']}
<MI 237ea MOVE.B D0,-(A7)> Δ-2 {[4, '(A6-0x3c)']|[4, '(A6-0x30)']|[2, 'D0']}
<Pointer.fp 0x237ec <LVAR -0x014 @ 1(r)>> Δ-4 {[4, '(A6-0x3c)']|[4, '(A6-0x30)']|[2, 'D0']|[@@-20]}
<Call 0x237f0 0x103b0> {[4, '(A6-0x3c)']|[4, '(A6-0x30)']|[2, 'D0']|[@@-20]}
PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
<POP 237f6-237fa StackAdj> Δ+14 {}
<MI 237fa TST.B (A6-0x13)> {}
<MI 237fe BEQ 0x23820> {}
<POP 23800-23820 Naked> Σ0 ↓
<MI 23800 MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0x10)']}
<POP 23804-23806 StackAdj> Δ-4 {[4, '(A6-0x10)']|[-4-]}
<MI 23806 MOVE.B (A6-0x14),D0> {[4, '(A6-0x10)']|[-4-]}
<MI 2380a EXTB.W D0> {[4, '(A6-0x10)']|[-4-]}
<POP 0x2380c LimitCheck 0x0 ≤ D0 ≤ 0xe> {[4, '(A6-0x10)']|[-4-]}
<MI 23810 MOVE.B D0,-(A7)> Δ-2 {[4, '(A6-0x10)']|[-4-]|[2, 'D0']}
<Call 0x23812 0x103c0> {[4, '(A6-0x10)']|[-4-]|[2, 'D0']}
ExpErrMsg(a: Byte) : String
<POP 23818-2381a StackAdj> Δ+2 {[4, '(A6-0x10)']|[-4-]}
<Call 0x2381a 0x23168> {[4, '(A6-0x10)']|[-4-]}
<POP 2381e-23820 StackAdj> Δ+8 {}
<POP 23820-23826 Naked> Σ0 ↓ →0x23838 ←0x237da
<MI 23820 TST.B (A6-0x12)> {}
<MI 23824 BEQ 0x23838> {}
<POP 23826-23838 Naked> Σ0 ↓
<MI 23826 MOVE.L (A6-0xc),-(A7)> Δ-4 {[4, '(A6-0xc)']}
<POP 2382a-2382c StackAdj> Δ-4 {[4, '(A6-0xc)']|[-4-]}
<Call 0x2382c 0x103c8> {[4, '(A6-0xc)']|[-4-]}
FSCALL_103c8
<Call 0x23832 0x23168> {[4, '(A6-0xc)']|[-4-]}
<POP 23836-23838 StackAdj> Δ+8 {}
<POP 23838-23840 Epilogue> Σ0 ←0x235de ←0x23632 ←0x23820
@ 23840
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 4(rw)>
<LVAR -0x008 @ 4(rw)>
<POP 23840-238b8 Body>
<POP 23840-23856 Prologue> Σ0 ↓
<POP 23856-2385e RegCacheLoad> Σ0 ↓
<POP 2385e-23892 Naked> Σ0 ↓ →0x23898
<POP 2385e-23860 StackAdj> Δ-4 {[-4-]}
<MI 23860 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x23864 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23868 0x22b6a> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 2386c-2386e StackAdj> Δ+8 {[-4-]}
<MI 2386e MOVE.L (A7),(A6-0x8)> {[-4-]}
<MI 23870 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x23874 0x2.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##2]}
<Call 0x23878 0x22b6a> {[-4-]|[4, '(A6+0x8)']|[##2]}
<POP 2387c-2387e StackAdj> Δ+8 {[-4-]}
<MI 2387e MOVE.L (A7),(A6-0x4)> {[-4-]}
<POP 23880-23882 StackAdj> Δ+2 {[-2-]}
<MI 23882 MOVE.L (A6-0x8),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x8)']}
<MI 23884 MOVE.L (A6-0x4),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x8)']|[4, '(A6-0x4)']}
<Call 0x23886 0x102c8> {[-2-]|[4, '(A6-0x8)']|[4, '(A6-0x4)']}
StringEqual(a, b : String) : Byte
<POP 2388c-2388e StackAdj> Δ+8 {[-2-]}
<MI 2388e TST.B (A7)+> Δ+2 {}
<MI 23890 BEQ 0x23898> {}
<POP 23892-23898 Naked> Σ0 →0x2389c
<Call 0x23892 0x2262a> {}
<MI 23896 BRA 0x2389c> {}
<POP 23898-2389c Naked> Σ0 ↓ ←0x2385e
<Call 0x23898 0x22670> {}
<POP 2389c-238b0 Naked> Σ0 ↓ ←0x23892
<Pointer.fp 0x2389c <LVAR -0x004 @ 4(rw)>> Δ-4 {[@@-4]}
<Call 0x2389e 0x102bc> {[@@-4]}
FreeString(VAR a : String)
<POP 238a4-238a6 StackAdj> Δ+4 {}
<Pointer.fp 0x238a6 <LVAR -0x008 @ 4(rw)>> Δ-4 {[@@-8]}
<Call 0x238a8 0x102bc> {[@@-8]}
FreeString(VAR a : String)
<POP 238ae-238b0 StackAdj> Δ+4 {}
<POP 238b0-238b8 Epilogue> Σ0
@ 238b8
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 4(rw)>
<LVAR -0x008 @ 4(rw)>
<POP 238b8-23930 Body>
<POP 238b8-238ce Prologue> Σ0 ↓
<POP 238ce-238d6 RegCacheLoad> Σ0 ↓
<POP 238d6-2390a Naked> Σ0 ↓ →0x23910
<POP 238d6-238d8 StackAdj> Δ-4 {[-4-]}
<MI 238d8 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x238dc 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x238e0 0x22b6a> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 238e4-238e6 StackAdj> Δ+8 {[-4-]}
<MI 238e6 MOVE.L (A7),(A6-0x8)> {[-4-]}
<MI 238e8 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x238ec 0x2.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##2]}
<Call 0x238f0 0x22b6a> {[-4-]|[4, '(A6+0x8)']|[##2]}
<POP 238f4-238f6 StackAdj> Δ+8 {[-4-]}
<MI 238f6 MOVE.L (A7),(A6-0x4)> {[-4-]}
<POP 238f8-238fa StackAdj> Δ+2 {[-2-]}
<MI 238fa MOVE.L (A6-0x8),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x8)']}
<MI 238fc MOVE.L (A6-0x4),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x8)']|[4, '(A6-0x4)']}
<Call 0x238fe 0x102c8> {[-2-]|[4, '(A6-0x8)']|[4, '(A6-0x4)']}
StringEqual(a, b : String) : Byte
<POP 23904-23906 StackAdj> Δ+8 {[-2-]}
<MI 23906 TST.B (A7)+> Δ+2 {}
<MI 23908 BNE 0x23910> {}
<POP 2390a-23910 Naked> Σ0 →0x23914
<Call 0x2390a 0x2262a> {}
<MI 2390e BRA 0x23914> {}
<POP 23910-23914 Naked> Σ0 ↓ ←0x238d6
<Call 0x23910 0x22670> {}
<POP 23914-23928 Naked> Σ0 ↓ ←0x2390a
<Pointer.fp 0x23914 <LVAR -0x004 @ 4(rw)>> Δ-4 {[@@-4]}
<Call 0x23916 0x102bc> {[@@-4]}
FreeString(VAR a : String)
<POP 2391c-2391e StackAdj> Δ+4 {}
<Pointer.fp 0x2391e <LVAR -0x008 @ 4(rw)>> Δ-4 {[@@-8]}
<Call 0x23920 0x102bc> {[@@-8]}
FreeString(VAR a : String)
<POP 23926-23928 StackAdj> Δ+4 {}
<POP 23928-23930 Epilogue> Σ0
@ 23930
<LVAR 0x008 4(r)>
<POP 23930-2395c Body>
<POP 23930-23942 Prologue> Σ0 ↓
<POP 23942-23958 Naked> Σ0 ↓
<POP 23942-23944 StackAdj> Δ-4 {[-4-]}
<MI 23944 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x23948 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x2394c 0x22b6a> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 23950-23952 StackAdj> Δ+8 {[-4-]}
<Call 0x23952 0x22962> {[-4-]}
<POP 23956-23958 StackAdj> Δ+4 {}
<POP 23958-2395c Epilogue> Σ0
@ 2395c
<LVAR 0x008 4(r)>
<LVAR -0x014 @ 4(rw)>
<POP 2395c-23a5c Body>
<POP 2395c-23972 Prologue> Σ0 ↓
<POP 23972-2397c RegCacheLoad> Σ0 ↓
<POP 2397c-239da Naked> Σ0 ↓ →0x23a0a
<POP 2397c-2397e StackAdj> Δ-4 {[-4-]}
<MI 2397e MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x23980 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23984 0x22b6a> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 23988-2398a StackAdj> Δ+8 {[-4-]}
<MI 2398a MOVE.L (A7),(A6-0x14)> {[-4-]}
<MI 2398c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x2398e 0x2.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##2]}
<Call 0x23992 0x22b6a> {[-4-]|[4, '(A6+0x8)']|[##2]}
<POP 23996-23998 StackAdj> Δ+8 {[-4-]}
<MI 23998 MOVEA.L (A7)+,A4> Δ+4 {}
<POP 2399a-2399e StackAdj> Δ-12 {[-12-]}
<MI 2399e MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']}
<Const 0x239a0 0x3.4> Δ-4 {[-12-]|[4, '(A6+0x8)']|[##3]}
<Call 0x239a4 0x22b9c> {[-12-]|[4, '(A6+0x8)']|[##3]}
<POP 239a8-239aa StackAdj> Δ+8 {[-12-]}
<Call 0x239aa 0x10350> {[-12-]}
Quad2Long(a : Quad) : Long
<POP 239b0-239b2 StackAdj> Δ+8 {[-4-]}
<MI 239b2 MOVE.L (A7),D6> {[-4-]}
<POP 239b4-239b6 StackAdj> Δ-8 {[-12-]}
<MI 239b6 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']}
<Const 0x239b8 0x4.4> Δ-4 {[-12-]|[4, '(A6+0x8)']|[##4]}
<Call 0x239bc 0x22b9c> {[-12-]|[4, '(A6+0x8)']|[##4]}
<POP 239c0-239c2 StackAdj> Δ+8 {[-12-]}
<Call 0x239c2 0x10350> {[-12-]}
Quad2Long(a : Quad) : Long
<POP 239c8-239ca StackAdj> Δ+8 {[-4-]}
<MI 239ca MOVE.L (A7)+,D5> Δ+4 {}
<MI 239cc MOVE.L D6,D0> {}
<MI 239ce ADD.L D5,D0> {}
<MI 239d0 SUBQ.L #0x1,D0> {}
<MI 239d2 MOVE.W (A4),D1> {}
<MI 239d4 EXTW.L D1> {}
<MI 239d6 CMP.L D1,D0> {}
<MI 239d8 BLE 0x23a0a> {}
<POP 239da-23a0a Naked> Σ0 ↓
<Blob 0x239da [32] @> Δ-32 {[«32""»]}
<POP 239ec-239ee StackAdj> Δ-4 {[«32""»]|[-4-]}
<Lit 0x239ee 31> {[«32""»]|[$$Offset/Length error in [INSERT]]}
<Call 0x23a02 0x21e42> {[«32""»]|[$$Offset/Length error in [INSERT]]}
<POP 23a06-23a0a StackAdj> Δ+36 {}
<POP 23a0a-23a16 Naked> Σ0 Δ-8 ↓ ←0x2397c
<MI 23a0a MOVEA.L (A6-0x14),A0> {}
<MI 23a0c MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 23a0e MOVE.W (A0),D0> {[4, 'A0']}
<MI 23a10 EXTW.L D0> {[4, 'A0']}
<MI 23a12 MOVE.L D0,-(A7)> Δ-4 {[4, 'A0']|[4, 'D0']}
<MI 23a14 MOVEQ.L #0x01,D7> {[4, 'A0']|[4, 'D0']}
<POP 23a16-23a1a Naked> Σ-8 ↓ →0x23a40 ←0x23a1a
<MI 23a16 CMP.L (A7),D7> {[-8-]}
<MI 23a18 BGT 0x23a40> {[-8-]}
<POP 23a1a-23a40 Naked> Σ-8 ↓ →0x23a16
<MI 23a1a MOVE.L D6,D0> {[-8-]}
<MI 23a1c ADD.L D7,D0> {[-8-]}
<MI 23a1e SUBQ.L #0x1,D0> {[-8-]}
<MI 23a20 SUBQ.L #0x1,D0> {[-8-]}
<POP 0x23a22 LimitCheck 0x0 ≤ D0 ≤ 0x7d> {[-8-]}
<MI 23a28 MOVE.L D7,D1> {[-8-]}
<MI 23a2a SUBQ.L #0x1,D1> {[-8-]}
<POP 0x23a2c LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-8-]}
<MI 23a32 MOVEA.L (A7+0x4),A0> {[-8-]}
<MI 23a36 MOVE.B (A0+D1.L+#0x2),(A4+D0.L+#0x2)> {[-8-]}
<MI 23a3c ADDQ.L #0x1,D7> {[-8-]}
<MI 23a3e BVC 0x23a16> {[-8-]}
<POP 23a40-23a54 Naked> Σ-8 Δ+8 ↓ ←0x23a16
<POP 23a40-23a42 StackAdj> Δ+4 {[-4-]}
<MI 23a42 MOVE.L A4,(A7)> {[4, 'A4']}
<Call 0x23a44 0x22c0c> {[4, 'A4']}
<POP 23a48-23a4a StackAdj> Δ+4 {}
<Pointer.fp 0x23a4a <LVAR -0x014 @ 4(rw)>> Δ-4 {[@@-20]}
<Call 0x23a4c 0x102bc> {[@@-20]}
FreeString(VAR a : String)
<POP 23a52-23a54 StackAdj> Δ+4 {}
<POP 23a54-23a5c Epilogue> Σ0
@ 23a5c
<LVAR 0x008 4(r)>
<LVAR -0x010 @ 4(r)>
<LVAR -0x014 @ 4(rw)>
<POP 23a5c-23b42 Body>
<POP 23a5c-23a72 Prologue> Σ0 ↓
<POP 23a72-23a80 RegCacheLoad> Σ0 ↓
<POP 23a80-23ad8 Naked> Σ0 ↓ →0x23ade
<POP 23a80-23a82 StackAdj> Δ-4 {[-4-]}
<MI 23a82 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x23a84 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23a88 0x22b6a> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 23a8c-23a8e StackAdj> Δ+8 {[-4-]}
<MI 23a8e MOVE.L (A7)+,(A6-0x14)> Δ+4 {}
<Pointer.fp 0x23a90 <LVAR -0x010 @ 4(r)>> Δ-4 {[@@-16]}
<Call 0x23a92 0x102b8> {[@@-16]}
NewString(VAR a : String)
<POP 23a98-23a9a StackAdj> Δ-8 {[@@-16]|[-8-]}
<MI 23a9a MOVE.L (A6+0x8),-(A7)> Δ-4 {[@@-16]|[-8-]|[4, '(A6+0x8)']}
<Const 0x23a9c 0x2.4> Δ-4 {[@@-16]|[-8-]|[4, '(A6+0x8)']|[##2]}
<Call 0x23aa0 0x22b9c> {[@@-16]|[-8-]|[4, '(A6+0x8)']|[##2]}
<POP 23aa4-23aa6 StackAdj> Δ+8 {[@@-16]|[-8-]}
<Call 0x23aa6 0x10350> {[@@-16]|[-8-]}
Quad2Long(a : Quad) : Long
<POP 23aac-23aae StackAdj> Δ+8 {[@@-16]}
<MI 23aae MOVE.L (A7),D5> {[@@-16]}
<POP 23ab0-23ab2 StackAdj> Δ-8 {[@@-16]|[-8-]}
<MI 23ab2 MOVE.L (A6+0x8),-(A7)> Δ-4 {[@@-16]|[-8-]|[4, '(A6+0x8)']}
<Const 0x23ab4 0x3.4> Δ-4 {[@@-16]|[-8-]|[4, '(A6+0x8)']|[##3]}
<Call 0x23ab8 0x22b9c> {[@@-16]|[-8-]|[4, '(A6+0x8)']|[##3]}
<POP 23abc-23abe StackAdj> Δ+8 {[@@-16]|[-8-]}
<Call 0x23abe 0x10350> {[@@-16]|[-8-]}
Quad2Long(a : Quad) : Long
<POP 23ac4-23ac6 StackAdj> Δ+8 {[@@-16]}
<MI 23ac6 MOVE.L (A7)+,D6> Δ+4 {}
<MI 23ac8 MOVEA.L (A6-0x14),A0> {}
<MI 23aca MOVE.L D5,D0> {}
<MI 23acc ADD.L D6,D0> {}
<MI 23ace SUBQ.L #0x1,D0> {}
<MI 23ad0 MOVE.W (A0),D1> {}
<MI 23ad2 EXTW.L D1> {}
<MI 23ad4 CMP.L D1,D0> {}
<MI 23ad6 BLE 0x23ade> {}
<POP 23ad8-23ade Naked> Σ0 ↓
<MI 23ad8 ADDQ.L #0x1,D1> {}
<MI 23ada SUB.L D5,D1> {}
<MI 23adc MOVE.L D1,D6> {}
<POP 23ade-23ae2 Naked> Σ0 Δ-4 ↓ ←0x23a80
<MI 23ade MOVE.L D6,-(A7)> Δ-4 {[4, 'D6']}
<MI 23ae0 MOVEQ.L #0x01,D7> {[4, 'D6']}
<POP 23ae2-23ae6 Naked> Σ-4 ↓ →0x23b0c ←0x23ae6
<MI 23ae2 CMP.L (A7),D7> {[-4-]}
<MI 23ae4 BGT 0x23b0c> {[-4-]}
<POP 23ae6-23b0c Naked> Σ-4 ↓ →0x23ae2
<MI 23ae6 MOVEA.L (A6-0x10),A0> {[-4-]}
<MI 23ae8 MOVE.L D7,D0> {[-4-]}
<MI 23aea SUBQ.L #0x1,D0> {[-4-]}
<POP 0x23aec LimitCheck 0x0 ≤ D0 ≤ 0x7d> {[-4-]}
<MI 23af2 MOVEA.L (A6-0x14),A1> {[-4-]}
<MI 23af4 MOVE.L D7,D1> {[-4-]}
<MI 23af6 ADD.L D5,D1> {[-4-]}
<MI 23af8 SUBQ.L #0x1,D1> {[-4-]}
<MI 23afa SUBQ.L #0x1,D1> {[-4-]}
<POP 0x23afc LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-4-]}
<MI 23b02 MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x2)> {[-4-]}
<MI 23b08 ADDQ.L #0x1,D7> {[-4-]}
<MI 23b0a BVC 0x23ae2> {[-4-]}
<POP 23b0c-23b3a Naked> Σ-4 Δ+4 ↓ ←0x23ae2
<POP 23b0c-23b0e StackAdj> Δ+4 {}
<MI 23b0e MOVEA.L (A6-0x10),A0> {}
<POP 0x23b10 LimitCheck -0x8000 ≤ D6 ≤ 0x7fff> {}
<MI 23b26 MOVE.W D6,(A0)> {}
<MI 23b28 MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0x10)']}
<Call 0x23b2a 0x22c0c> {[4, '(A6-0x10)']}
<POP 23b2e-23b30 StackAdj> Δ+4 {}
<Pointer.fp 0x23b30 <LVAR -0x014 @ 4(rw)>> Δ-4 {[@@-20]}
<Call 0x23b32 0x102bc> {[@@-20]}
FreeString(VAR a : String)
<POP 23b38-23b3a StackAdj> Δ+4 {}
<POP 23b3a-23b42 Epilogue> Σ0
@ 23b42
<LVAR 0x008 4(r)>
<POP 23b42-23b6e Body>
<POP 23b42-23b54 Prologue> Σ0 ↓
<POP 23b54-23b6a Naked> Σ0 ↓
<POP 23b54-23b56 StackAdj> Δ-8 {[-8-]}
<MI 23b56 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<Const 0x23b5a 0x1.4> Δ-4 {[-8-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23b5e 0x22b9c> {[-8-]|[4, '(A6+0x8)']|[##1]}
<POP 23b62-23b64 StackAdj> Δ+8 {[-8-]}
<Call 0x23b64 0x229d6> {[-8-]}
<POP 23b68-23b6a StackAdj> Δ+8 {}
<POP 23b6a-23b6e Epilogue> Σ0
@ 23b6e
<LVAR 0x008 4(r)>
<POP 23b6e-23bba Body>
<POP 23b6e-23b80 Prologue> Σ0 ↓
<POP 23b80-23bac Naked> Σ0 ↓ →0x23bb2
<POP 23b80-23b84 StackAdj> Δ-10 {[-10-]}
<MI 23b84 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']}
<Const 0x23b88 0x1.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23b8c 0x22b9c> {[-10-]|[4, '(A6+0x8)']|[##1]}
<MI 23b90 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x23b94 0x2.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x23b98 0x22b9c> {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 23b9c-23b9e StackAdj> Δ+8 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23b9e 0x1032c> {[-10-]|[4, '(A6+0x8)']|[##1]}
IsEqual(a, b : Quad) : Bool
<POP 23ba4-23ba8 StackAdj> Δ+16 {[-2-]}
<MI 23ba8 TST.B (A7)+> Δ+2 {}
<MI 23baa BEQ 0x23bb2> {}
<POP 23bac-23bb2 Naked> Σ0 →0x23bb6
<Call 0x23bac 0x2262a> {}
<MI 23bb0 BRA 0x23bb6> {}
<POP 23bb2-23bb6 Naked> Σ0 ↓ ←0x23b80
<Call 0x23bb2 0x22670> {}
<POP 23bb6-23bba Epilogue> Σ0 ←0x23bac
@ 23bba
<LVAR 0x008 4(r)>
<POP 23bba-23c06 Body>
<POP 23bba-23bcc Prologue> Σ0 ↓
<POP 23bcc-23bf8 Naked> Σ0 ↓ →0x23bfe
<POP 23bcc-23bd0 StackAdj> Δ-10 {[-10-]}
<MI 23bd0 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']}
<Const 0x23bd4 0x1.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23bd8 0x22b9c> {[-10-]|[4, '(A6+0x8)']|[##1]}
<MI 23bdc MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x23be0 0x2.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x23be4 0x22b9c> {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 23be8-23bea StackAdj> Δ+8 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23bea 0x1032c> {[-10-]|[4, '(A6+0x8)']|[##1]}
IsEqual(a, b : Quad) : Bool
<POP 23bf0-23bf4 StackAdj> Δ+16 {[-2-]}
<MI 23bf4 TST.B (A7)+> Δ+2 {}
<MI 23bf6 BNE 0x23bfe> {}
<POP 23bf8-23bfe Naked> Σ0 →0x23c02
<Call 0x23bf8 0x2262a> {}
<MI 23bfc BRA 0x23c02> {}
<POP 23bfe-23c02 Naked> Σ0 ↓ ←0x23bcc
<Call 0x23bfe 0x22670> {}
<POP 23c02-23c06 Epilogue> Σ0 ←0x23bf8
@ 23c06
<LVAR 0x008 4(r)>
<POP 23c06-23c52 Body>
<POP 23c06-23c18 Prologue> Σ0 ↓
<POP 23c18-23c44 Naked> Σ0 ↓ →0x23c4a
<POP 23c18-23c1c StackAdj> Δ-10 {[-10-]}
<MI 23c1c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']}
<Const 0x23c20 0x1.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23c24 0x22b9c> {[-10-]|[4, '(A6+0x8)']|[##1]}
<MI 23c28 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x23c2c 0x2.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x23c30 0x22b9c> {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 23c34-23c36 StackAdj> Δ+8 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23c36 0x10328> {[-10-]|[4, '(A6+0x8)']|[##1]}
IsSmaller(a, b : Quad) : Bool
<POP 23c3c-23c40 StackAdj> Δ+16 {[-2-]}
<MI 23c40 TST.B (A7)+> Δ+2 {}
<MI 23c42 BEQ 0x23c4a> {}
<POP 23c44-23c4a Naked> Σ0 →0x23c4e
<Call 0x23c44 0x2262a> {}
<MI 23c48 BRA 0x23c4e> {}
<POP 23c4a-23c4e Naked> Σ0 ↓ ←0x23c18
<Call 0x23c4a 0x22670> {}
<POP 23c4e-23c52 Epilogue> Σ0 ←0x23c44
@ 23c52
<LVAR 0x008 4(r)>
<POP 23c52-23c9e Body>
<POP 23c52-23c64 Prologue> Σ0 ↓
<POP 23c64-23c90 Naked> Σ0 ↓ →0x23c96
<POP 23c64-23c68 StackAdj> Δ-10 {[-10-]}
<MI 23c68 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']}
<Const 0x23c6c 0x1.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23c70 0x22b9c> {[-10-]|[4, '(A6+0x8)']|[##1]}
<MI 23c74 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x23c78 0x2.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x23c7c 0x22b9c> {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 23c80-23c82 StackAdj> Δ+8 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23c82 0x10324> {[-10-]|[4, '(A6+0x8)']|[##1]}
IsGreater(a, b : Quad) : Bool
<POP 23c88-23c8c StackAdj> Δ+16 {[-2-]}
<MI 23c8c TST.B (A7)+> Δ+2 {}
<MI 23c8e BEQ 0x23c96> {}
<POP 23c90-23c96 Naked> Σ0 →0x23c9a
<Call 0x23c90 0x2262a> {}
<MI 23c94 BRA 0x23c9a> {}
<POP 23c96-23c9a Naked> Σ0 ↓ ←0x23c64
<Call 0x23c96 0x22670> {}
<POP 23c9a-23c9e Epilogue> Σ0 ←0x23c90
@ 23c9e
<LVAR 0x008 4(r)>
<POP 23c9e-23cea Body>
<POP 23c9e-23cb0 Prologue> Σ0 ↓
<POP 23cb0-23cdc Naked> Σ0 ↓ →0x23ce2
<POP 23cb0-23cb4 StackAdj> Δ-10 {[-10-]}
<MI 23cb4 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']}
<Const 0x23cb8 0x1.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23cbc 0x22b9c> {[-10-]|[4, '(A6+0x8)']|[##1]}
<MI 23cc0 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x23cc4 0x2.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x23cc8 0x22b9c> {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 23ccc-23cce StackAdj> Δ+8 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23cce 0x10324> {[-10-]|[4, '(A6+0x8)']|[##1]}
IsGreater(a, b : Quad) : Bool
<POP 23cd4-23cd8 StackAdj> Δ+16 {[-2-]}
<MI 23cd8 TST.B (A7)+> Δ+2 {}
<MI 23cda BNE 0x23ce2> {}
<POP 23cdc-23ce2 Naked> Σ0 →0x23ce6
<Call 0x23cdc 0x2262a> {}
<MI 23ce0 BRA 0x23ce6> {}
<POP 23ce2-23ce6 Naked> Σ0 ↓ ←0x23cb0
<Call 0x23ce2 0x22670> {}
<POP 23ce6-23cea Epilogue> Σ0 ←0x23cdc
@ 23cea
<LVAR 0x008 4(r)>
<POP 23cea-23d36 Body>
<POP 23cea-23cfc Prologue> Σ0 ↓
<POP 23cfc-23d28 Naked> Σ0 ↓ →0x23d2e
<POP 23cfc-23d00 StackAdj> Δ-10 {[-10-]}
<MI 23d00 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']}
<Const 0x23d04 0x1.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23d08 0x22b9c> {[-10-]|[4, '(A6+0x8)']|[##1]}
<MI 23d0c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x23d10 0x2.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x23d14 0x22b9c> {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 23d18-23d1a StackAdj> Δ+8 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23d1a 0x10328> {[-10-]|[4, '(A6+0x8)']|[##1]}
IsSmaller(a, b : Quad) : Bool
<POP 23d20-23d24 StackAdj> Δ+16 {[-2-]}
<MI 23d24 TST.B (A7)+> Δ+2 {}
<MI 23d26 BNE 0x23d2e> {}
<POP 23d28-23d2e Naked> Σ0 →0x23d32
<Call 0x23d28 0x2262a> {}
<MI 23d2c BRA 0x23d32> {}
<POP 23d2e-23d32 Naked> Σ0 ↓ ←0x23cfc
<Call 0x23d2e 0x22670> {}
<POP 23d32-23d36 Epilogue> Σ0 ←0x23d28
@ 23d36
<LVAR 0x008 4(r)>
<POP 23d36-23d80 Body>
<POP 23d36-23d4c Prologue> Σ0 ↓
<POP 23d4c-23d4e RegCacheLoad> Σ0 ↓
<POP 23d4e-23d78 Naked> Σ0 ↓
<POP 23d4e-23d50 StackAdj> Δ-16 {[-16-]}
<MI 23d50 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x23d54 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23d58 0x22b9c> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 23d5c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x23d60 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x23d64 0x22b9c> {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 23d68-23d6a StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23d6a 0x10314> {[-16-]|[4, '(A6+0x8)']|[##1]}
Add(a, b : Quad) : Quad
<POP 23d70-23d72 StackAdj> Δ+16 {[-8-]}
<Call 0x23d72 0x22c94> {[-8-]}
<POP 23d76-23d78 StackAdj> Δ+8 {}
<POP 23d78-23d80 Epilogue> Σ0
@ 23d80
<LVAR 0x008 4(r)>
<POP 23d80-23dca Body>
<POP 23d80-23d96 Prologue> Σ0 ↓
<POP 23d96-23d98 RegCacheLoad> Σ0 ↓
<POP 23d98-23dc2 Naked> Σ0 ↓
<POP 23d98-23d9a StackAdj> Δ-16 {[-16-]}
<MI 23d9a MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x23d9e 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23da2 0x22b9c> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 23da6 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x23daa 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x23dae 0x22b9c> {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 23db2-23db4 StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23db4 0x10318> {[-16-]|[4, '(A6+0x8)']|[##1]}
Subtract(a, b : Quad) : Quad
<POP 23dba-23dbc StackAdj> Δ+16 {[-8-]}
<Call 0x23dbc 0x22c94> {[-8-]}
<POP 23dc0-23dc2 StackAdj> Δ+8 {}
<POP 23dc2-23dca Epilogue> Σ0
@ 23dca
<LVAR 0x008 4(r)>
<POP 23dca-23e14 Body>
<POP 23dca-23de0 Prologue> Σ0 ↓
<POP 23de0-23de2 RegCacheLoad> Σ0 ↓
<POP 23de2-23e0c Naked> Σ0 ↓
<POP 23de2-23de4 StackAdj> Δ-16 {[-16-]}
<MI 23de4 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x23de8 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23dec 0x22b9c> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 23df0 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x23df4 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x23df8 0x22b9c> {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 23dfc-23dfe StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23dfe 0x1031c> {[-16-]|[4, '(A6+0x8)']|[##1]}
Multiply(a, b : Quad) : Quad
<POP 23e04-23e06 StackAdj> Δ+16 {[-8-]}
<Call 0x23e06 0x22c94> {[-8-]}
<POP 23e0a-23e0c StackAdj> Δ+8 {}
<POP 23e0c-23e14 Epilogue> Σ0
@ 23e14
<LVAR 0x008 4(r)>
<POP 23e14-23e5e Body>
<POP 23e14-23e2a Prologue> Σ0 ↓
<POP 23e2a-23e2c RegCacheLoad> Σ0 ↓
<POP 23e2c-23e56 Naked> Σ0 ↓
<POP 23e2c-23e2e StackAdj> Δ-16 {[-16-]}
<MI 23e2e MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x23e32 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23e36 0x22b9c> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 23e3a MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x23e3e 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x23e42 0x22b9c> {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 23e46-23e48 StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23e48 0x10320> {[-16-]|[4, '(A6+0x8)']|[##1]}
Divide(a, b : Quad) : Quad
<POP 23e4e-23e50 StackAdj> Δ+16 {[-8-]}
<Call 0x23e50 0x22c94> {[-8-]}
<POP 23e54-23e56 StackAdj> Δ+8 {}
<POP 23e56-23e5e Epilogue> Σ0
@ 23e5e
<LVAR 0x008 4(r)>
<POP 23e5e-23ea8 Body>
<POP 23e5e-23e74 Prologue> Σ0 ↓
<POP 23e74-23e76 RegCacheLoad> Σ0 ↓
<POP 23e76-23ea0 Naked> Σ0 ↓
<POP 23e76-23e78 StackAdj> Δ-16 {[-16-]}
<MI 23e78 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x23e7c 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23e80 0x22b9c> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 23e84 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x23e88 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x23e8c 0x22b9c> {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 23e90-23e92 StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23e92 0x10358> {[-16-]|[4, '(A6+0x8)']|[##1]}
Modulus(a, b : Quad) : Quad
<POP 23e98-23e9a StackAdj> Δ+16 {[-8-]}
<Call 0x23e9a 0x22c94> {[-8-]}
<POP 23e9e-23ea0 StackAdj> Δ+8 {}
<POP 23ea0-23ea8 Epilogue> Σ0
@ 23ea8
<LVAR 0x008 4(r)>
<POP 23ea8-23ef2 Body>
<POP 23ea8-23ebe Prologue> Σ0 ↓
<POP 23ebe-23ec0 RegCacheLoad> Σ0 ↓
<POP 23ec0-23eea Naked> Σ0 ↓
<POP 23ec0-23ec2 StackAdj> Δ-16 {[-16-]}
<MI 23ec2 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x23ec6 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23eca 0x22b9c> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 23ece MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x23ed2 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x23ed6 0x22b9c> {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 23eda-23edc StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23edc 0x10334> {[-16-]|[4, '(A6+0x8)']|[##1]}
BitOr(a, b : Quad) : Quad
<POP 23ee2-23ee4 StackAdj> Δ+16 {[-8-]}
<Call 0x23ee4 0x22c94> {[-8-]}
<POP 23ee8-23eea StackAdj> Δ+8 {}
<POP 23eea-23ef2 Epilogue> Σ0
@ 23ef2
<LVAR 0x008 4(r)>
<POP 23ef2-23f3c Body>
<POP 23ef2-23f08 Prologue> Σ0 ↓
<POP 23f08-23f0a RegCacheLoad> Σ0 ↓
<POP 23f0a-23f34 Naked> Σ0 ↓
<POP 23f0a-23f0c StackAdj> Δ-16 {[-16-]}
<MI 23f0c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x23f10 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23f14 0x22b9c> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 23f18 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x23f1c 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x23f20 0x22b9c> {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 23f24-23f26 StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23f26 0x10330> {[-16-]|[4, '(A6+0x8)']|[##1]}
BitAnd(a, b : Quad) : Quad
<POP 23f2c-23f2e StackAdj> Δ+16 {[-8-]}
<Call 0x23f2e 0x22c94> {[-8-]}
<POP 23f32-23f34 StackAdj> Δ+8 {}
<POP 23f34-23f3c Epilogue> Σ0
@ 23f3c
<LVAR 0x008 4(r)>
<POP 23f3c-23f86 Body>
<POP 23f3c-23f52 Prologue> Σ0 ↓
<POP 23f52-23f54 RegCacheLoad> Σ0 ↓
<POP 23f54-23f7e Naked> Σ0 ↓
<POP 23f54-23f56 StackAdj> Δ-16 {[-16-]}
<MI 23f56 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x23f5a 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23f5e 0x22b9c> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 23f62 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x23f66 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x23f6a 0x22b9c> {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 23f6e-23f70 StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23f70 0x10340> {[-16-]|[4, '(A6+0x8)']|[##1]}
BitXor(a, b : Quad) : Quad
<POP 23f76-23f78 StackAdj> Δ+16 {[-8-]}
<Call 0x23f78 0x22c94> {[-8-]}
<POP 23f7c-23f7e StackAdj> Δ+8 {}
<POP 23f7e-23f86 Epilogue> Σ0
@ 23f86
<LVAR 0x008 4(r)>
<POP 23f86-23fca Body>
<POP 23f86-23f98 Prologue> Σ0 ↓
<POP 23f98-23fc6 Naked> Σ0 ↓
<POP 23f98-23f9c StackAdj> Δ-16 {[-16-]}
<MI 23f9c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x23fa0 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23fa4 0x22b9c> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 23fa8 MOVE.L (A6+0x8),(A7)> {[-16-]|[4, '(A6+0x8)']|[4, '(A6+0x8)']}
<Const 0x23fac 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[4, '(A6+0x8)']|[##2]}
<Call 0x23fb0 0x22bd8> {[-16-]|[4, '(A6+0x8)']|[4, '(A6+0x8)']|[##2]}
<POP 23fb4-23fb6 StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']}
<Call 0x23fb6 0x10344> {[-16-]|[4, '(A6+0x8)']}
BitShift(a : Quad ; howmuch : integer) : Quad
<POP 23fbc-23fc0 StackAdj> Δ+12 {[-8-]}
<Call 0x23fc0 0x22c94> {[-8-]}
<POP 23fc4-23fc6 StackAdj> Δ+8 {}
<POP 23fc6-23fca Epilogue> Σ0
@ 23fca
<LVAR 0x008 4(r)>
<POP 23fca-24010 Body>
<POP 23fca-23fdc Prologue> Σ0 ↓
<POP 23fdc-2400c Naked> Σ0 ↓
<POP 23fdc-23fe0 StackAdj> Δ-16 {[-16-]}
<MI 23fe0 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x23fe4 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23fe8 0x22b9c> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 23fec MOVE.L (A6+0x8),(A7)> {[-16-]|[4, '(A6+0x8)']|[4, '(A6+0x8)']}
<Const 0x23ff0 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[4, '(A6+0x8)']|[##2]}
<Call 0x23ff4 0x22bd8> {[-16-]|[4, '(A6+0x8)']|[4, '(A6+0x8)']|[##2]}
<POP 23ff8-23ffa StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']}
<MI 23ffa NEG.L (A7)> {[-16-]|[4, '(A6+0x8)']}
<Call 0x23ffc 0x10344> {[-16-]|[4, '(A6+0x8)']}
BitShift(a : Quad ; howmuch : integer) : Quad
<POP 24002-24006 StackAdj> Δ+12 {[-8-]}
<Call 0x24006 0x22c94> {[-8-]}
<POP 2400a-2400c StackAdj> Δ+8 {}
<POP 2400c-24010 Epilogue> Σ0
@ 24010
<LVAR 0x008 4(r)>
<POP 24010-24046 Body>
<POP 24010-24022 Prologue> Σ0 ↓
<POP 24022-24042 Naked> Σ0 ↓
<POP 24022-24026 StackAdj> Δ-16 {[-16-]}
<MI 24026 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x2402a 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x2402e 0x22b9c> {[-16-]|[4, '(A6+0x8)']|[##1]}
<POP 24032-24034 StackAdj> Δ+8 {[-16-]}
<Call 0x24034 0x10338> {[-16-]}
BitNot(a : Quad) : Quad
<POP 2403a-2403c StackAdj> Δ+8 {[-8-]}
<Call 0x2403c 0x22c94> {[-8-]}
<POP 24040-24042 StackAdj> Δ+8 {}
<POP 24042-24046 Epilogue> Σ0
@ 24046
<LVAR 0x008 4(r)>
<LVAR -0x00c 4(rw)>
<LVAR -0x010 4(rw)>
<LVAR -0x014 4(rw)>
<LVAR -0x018 4(rw)>
<POP 24046-240d6 Body>
<POP 24046-2405c Prologue> Σ0 ↓
<POP 2405c-24060 RegCacheLoad> Σ0 ↓
<POP 24060-240ce Naked> Σ0 ↓
<POP 24060-24062 StackAdj> Δ-8 {[-8-]}
<MI 24062 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<Const 0x24064 0x1.4> Δ-4 {[-8-]|[4, '(A6+0x8)']|[##1]}
<Call 0x24068 0x22b9c> {[-8-]|[4, '(A6+0x8)']|[##1]}
<POP 2406c-2406e StackAdj> Δ+8 {[-8-]}
<MI 2406e MOVE.L (A7)+,(A6-0x18)> Δ+4 {[-4-]}
<MI 24072 MOVE.L (A7),(A6-0x14)> {[-4-]}
<POP 24076-24078 StackAdj> Δ-4 {[-8-]}
<MI 24078 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<Const 0x2407a 0x2.4> Δ-4 {[-8-]|[4, '(A6+0x8)']|[##2]}
<Call 0x2407e 0x22b9c> {[-8-]|[4, '(A6+0x8)']|[##2]}
<POP 24082-24084 StackAdj> Δ+8 {[-8-]}
<MI 24084 MOVE.L (A7)+,(A6-0x10)> Δ+4 {[-4-]}
<MI 24088 MOVE.L (A7),(A6-0xc)> {[-4-]}
<MI 2408c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x2408e 0x3.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##3]}
<Call 0x24092 0x22bd8> {[-4-]|[4, '(A6+0x8)']|[##3]}
<POP 24096-24098 StackAdj> Δ+8 {[-4-]}
<MI 24098 MOVE.L (A7),D7> {[-4-]}
<MI 2409a MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x2409c 0x4.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##4]}
<Call 0x240a0 0x22bd8> {[-4-]|[4, '(A6+0x8)']|[##4]}
<POP 240a4-240a6 StackAdj> Δ+8 {[-4-]}
<MI 240a6 MOVE.L (A7),D6> {[-4-]}
<POP 240a8-240aa StackAdj> Δ-4 {[-8-]}
<MI 240aa MOVE.L (A6-0x14),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x14)']}
<MI 240ae MOVE.L (A6-0x18),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']}
<MI 240b2 MOVE.L (A6-0xc),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']|[4, '(A6-0xc)']}
<MI 240b6 MOVE.L (A6-0x10),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<MI 240ba MOVE.L D7,-(A7)> Δ-4 {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D7']}
<MI 240bc MOVE.L D6,-(A7)> Δ-4 {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D7']|[4, 'D6']}
<Call 0x240be 0x10348> {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D7']|[4, 'D6']}
?BitField_something_()
<POP 240c4-240c8 StackAdj> Δ+24 {[-8-]}
<Call 0x240c8 0x22c94> {[-8-]}
<POP 240cc-240ce StackAdj> Δ+8 {}
<POP 240ce-240d6 Epilogue> Σ0
@ 240d6
<LVAR 0x008 4(r)>
<LVAR -0x00c 4(rw)>
<LVAR -0x010 4(rw)>
<POP 240d6-24148 Body>
<POP 240d6-240ec Prologue> Σ0 ↓
<POP 240ec-240f0 RegCacheLoad> Σ0 ↓
<POP 240f0-24140 Naked> Σ0 ↓
<POP 240f0-240f2 StackAdj> Δ-8 {[-8-]}
<MI 240f2 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<Const 0x240f4 0x1.4> Δ-4 {[-8-]|[4, '(A6+0x8)']|[##1]}
<Call 0x240f8 0x22b9c> {[-8-]|[4, '(A6+0x8)']|[##1]}
<POP 240fc-240fe StackAdj> Δ+8 {[-8-]}
<MI 240fe MOVE.L (A7)+,(A6-0x10)> Δ+4 {[-4-]}
<MI 24102 MOVE.L (A7),(A6-0xc)> {[-4-]}
<MI 24106 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x24108 0x2.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##2]}
<Call 0x2410c 0x22bd8> {[-4-]|[4, '(A6+0x8)']|[##2]}
<POP 24110-24112 StackAdj> Δ+8 {[-4-]}
<MI 24112 MOVE.L (A7),D7> {[-4-]}
<MI 24114 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x24116 0x3.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##3]}
<Call 0x2411a 0x22bd8> {[-4-]|[4, '(A6+0x8)']|[##3]}
<POP 2411e-24120 StackAdj> Δ+8 {[-4-]}
<MI 24120 MOVE.L (A7),D6> {[-4-]}
<POP 24122-24124 StackAdj> Δ-4 {[-8-]}
<MI 24124 MOVE.L (A6-0xc),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']}
<MI 24128 MOVE.L (A6-0x10),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<MI 2412c MOVE.L D7,-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D7']}
<MI 2412e MOVE.L D6,-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D7']|[4, 'D6']}
<Call 0x24130 0x1034c> {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D7']|[4, 'D6']}
FSCALL_1034c
<POP 24136-2413a StackAdj> Δ+16 {[-8-]}
<Call 0x2413a 0x22c94> {[-8-]}
<POP 2413e-24140 StackAdj> Δ+8 {}
<POP 24140-24148 Epilogue> Σ0
@ 24148
<LVAR 0x008 4(r)>
<POP 24148-241ba Body>
<POP 24148-2415e Prologue> Σ0 ↓
<POP 2415e-2416c Naked> Σ0 Δ-4 ↓
<POP 2415e-24160 StackAdj> Δ-4 {[-4-]}
<MI 24160 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x24164 0x2224e> {[-4-]|[4, '(A6+0x8)']}
<POP 24168-2416a StackAdj> Δ+4 {[-4-]}
<MI 2416a MOVEQ.L #0x01,D7> {[-4-]}
<POP 2416c-24170 Naked> Σ-4 ↓ →0x24196 ←0x24170
<MI 2416c CMP.L (A7),D7> {[-4-]}
<MI 2416e BGT 0x24196> {[-4-]}
<POP 24170-24196 Naked> Σ-4 ↓ →0x2416c
<POP 24170-24172 StackAdj> Δ-4 {[-8-]}
<MI 24172 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<MI 24176 MOVE.L D7,-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']|[4, 'D7']}
<Call 0x24178 0x22b6a> {[-8-]|[4, '(A6+0x8)']|[4, 'D7']}
<POP 2417c-2417e StackAdj> Δ+8 {[-8-]}
<Call 0x2417e 0x103d8> {[-8-]}
WriteConsoleString(str : String)
<POP 24184-24186 StackAdj> Δ+2 {[-6-]}
<POP 24186-24187 StackAdj> Δ+2 {[-4-]}
<Const 0x24187 0x20.2> Δ-2 {[-4-]|[#32]}
<Call 0x2418a 0x103d0> {[-4-]|[#32]}
WriteConsoleChar(chr : char)
<POP 24190-24192 StackAdj> Δ+2 {[-4-]}
<MI 24192 ADDQ.L #0x1,D7> {[-4-]}
<MI 24194 BVC 0x2416c> {[-4-]}
<POP 24196-241b2 Naked> Σ-4 Δ+4 ↓ ←0x2416c
<Const 0x24196 0x1.4> Δ-4 {[-4-]|[##1]}
<Call 0x2419a 0x103e4> {[-4-]|[##1]}
AskConsoleString(prompt : String) : String
<POP 241a0-241a2 StackAdj> Δ+4 {[-4-]}
<MI 241a2 MOVEA.L (A7)+,A4> Δ+4 {}
<MI 241a4 MOVE.L A4,-(A7)> Δ-4 {[4, 'A4']}
<Call 0x241a6 0x2209a> {[4, 'A4']}
<MI 241aa MOVE.L A4,(A7)> {[4, 'A4']}
<Call 0x241ac 0x22c0c> {[4, 'A4']}
<POP 241b0-241b2 StackAdj> Δ+4 {}
<POP 241b2-241ba Epilogue> Σ0
@ 241ba
<LVAR 0x008 4(r)>
<POP 241ba-2423c Body>
<POP 241ba-241d0 Prologue> Σ0 ↓
<POP 241d0-241d6 RegCacheLoad> Σ0 ↓
<POP 241d6-24234 Naked> Σ0 ↓
<POP 241d6-241d8 StackAdj> Δ-4 {[-4-]}
<MI 241d8 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x241da 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x241de 0x22b6a> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 241e2-241e4 StackAdj> Δ+8 {[-4-]}
<MI 241e4 MOVEA.L (A7)+,A4> Δ+4 {}
<POP 241e6-241e8 StackAdj> Δ-12 {[-12-]}
<MI 241e8 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']}
<Const 0x241ea 0x2.4> Δ-4 {[-12-]|[4, '(A6+0x8)']|[##2]}
<Call 0x241ee 0x22b9c> {[-12-]|[4, '(A6+0x8)']|[##2]}
<POP 241f2-241f4 StackAdj> Δ+8 {[-12-]}
<Call 0x241f4 0x10350> {[-12-]}
Quad2Long(a : Quad) : Long
<POP 241fa-241fc StackAdj> Δ+8 {[-4-]}
<MI 241fc MOVE.L (A7),D7> {[-4-]}
<POP 241fe-24200 StackAdj> Δ-8 {[-12-]}
<MI 24200 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']}
<Const 0x24202 0x3.4> Δ-4 {[-12-]|[4, '(A6+0x8)']|[##3]}
<Call 0x24206 0x22b9c> {[-12-]|[4, '(A6+0x8)']|[##3]}
<POP 2420a-2420c StackAdj> Δ+8 {[-12-]}
<Call 0x2420c 0x10350> {[-12-]}
Quad2Long(a : Quad) : Long
<POP 24212-24214 StackAdj> Δ+8 {[-4-]}
<MI 24214 MOVE.L (A7),D6> {[-4-]}
<POP 24216-24218 StackAdj> Δ-8 {[-12-]}
<MI 24218 MOVE.L A4,-(A7)> Δ-4 {[-12-]|[4, 'A4']}
<MI 2421a MOVE.L D7,-(A7)> Δ-4 {[-12-]|[4, 'A4']|[4, 'D7']}
<Call 0x2421c 0x10360> {[-12-]|[4, 'A4']|[4, 'D7']}
?StringToInt64()
<POP 24222-24224 StackAdj> Δ+4 {[-12-]|[4, 'A4']}
<MI 24224 MOVE.L D6,(A7)> {[-12-]|[4, 'D6']}
<Call 0x24226 0x1035c> {[-12-]|[4, 'D6']}
Quad2String(a : Quad; radix : Long ) : String
<POP 2422c-2422e StackAdj> Δ+12 {[-4-]}
<Call 0x2422e 0x22c0c> {[-4-]}
<POP 24232-24234 StackAdj> Δ+4 {}
<POP 24234-2423c Epilogue> Σ0
@ 2423c
<LVAR 0x008 4(r)>
<LVAR -0x00a 2(r)>
<LVAR -0x00c 4(rw)>
<LVAR -0x010 4(rw)>
<POP 2423c-242bc Body>
<POP 2423c-24252 Prologue> Σ0 ↓
<POP 24252-2425a RegCacheLoad> Σ0 ↓
<POP 2425a-24272 Naked> Σ0 ↓
<POP 2425a-2425c StackAdj> Δ-8 {[-8-]}
<MI 2425c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<Const 0x24260 0x1.4> Δ-4 {[-8-]|[4, '(A6+0x8)']|[##1]}
<Call 0x24264 0x22b9c> {[-8-]|[4, '(A6+0x8)']|[##1]}
<POP 24268-2426a StackAdj> Δ+8 {[-8-]}
<MI 2426a MOVE.L (A7)+,(A6-0x10)> Δ+4 {[-4-]}
<MI 2426c MOVE.L (A7)+,(A6-0xc)> Δ+4 {}
<MI 2426e MOVEQ.L #0x00,D7> {}
<MI 24270 MOVEQ.L #0x00,D6> {}
<POP 24272-242a2 Naked> Σ0 ↓ →0x24272 ←0x24272
<MI 24272 MOVE.W (A6-0xa),D0> {}
<MI 24276 ANDI.W #0x0001,D0> {}
<MI 2427a CLR.L D1> {}
<MI 2427c MOVE.W D0,D1> {}
<MI 2427e ADD.L D1,D7> {}
<POP 24280-24282 StackAdj> Δ-8 {[-8-]}
<MI 24282 MOVE.L (A6-0xc),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']}
<MI 24284 MOVE.L (A6-0x10),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<Const 0x24286 0xffffffff.4> Δ-4 {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[##4294967295]}
<Call 0x2428a 0x10344> {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[##4294967295]}
BitShift(a : Quad ; howmuch : integer) : Quad
<POP 24290-24294 StackAdj> Δ+12 {[-8-]}
<MI 24294 MOVE.L (A7)+,(A6-0x10)> Δ+4 {[-4-]}
<MI 24296 MOVE.L (A7)+,(A6-0xc)> Δ+4 {}
<MI 24298 ADDQ.L #0x1,D6> {}
<MI 2429a CMPI.L #0x0000003f,D6> {}
<MI 242a0 BLE 0x24272> {}
<POP 242a2-242b4 Naked> Σ0 ↓
<POP 242a2-242a4 StackAdj> Δ-8 {[-8-]}
<MI 242a4 MOVE.L D7,-(A7)> Δ-4 {[-8-]|[4, 'D7']}
<Call 0x242a6 0x10354> {[-8-]|[4, 'D7']}
Long2Quad(a : Long) : Quad
<POP 242ac-242ae StackAdj> Δ+4 {[-8-]}
<Call 0x242ae 0x22c94> {[-8-]}
<POP 242b2-242b4 StackAdj> Δ+8 {}
<POP 242b4-242bc Epilogue> Σ0
@ 242bc
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 1(r)>
<POP 242bc-24380 Body>
<POP 242bc-242d2 Prologue> Σ0 ↓
<POP 242d2-242dc RegCacheLoad> Σ0 ↓
<POP 242dc-242e0 Naked> Σ0 ↓ →0x24312
<MI 242dc TST.B 0x2798c> {}
<MI 242de BNE 0x24312> {}
<POP 242e0-24312 Naked> Σ0 ↓
<Blob 0x242e0 [28] @> Δ-28 {[«28""»]}
<POP 242f2-242f4 StackAdj> Δ-4 {[«28""»]|[-4-]}
<Lit 0x242f4 27> {[«28""»]|[$$REPEATing, type ^G to exit.]}
<Call 0x24306 0x103e0> {[«28""»]|[$$REPEATing, type ^G to exit.]}
WriteConsoleStringCrLf(str : String)
<POP 2430c-24310 StackAdj> Δ+32 {}
<MI 24310 MOVE.B #0x01,0x2798c> {}
<POP 24312-2433c Naked> Σ0 ↓ →0x24352 ←0x242dc
<POP 24312-24314 StackAdj> Δ-6 {[-6-]}
<Call 0x24314 0x103f8> {[-6-]}
GetConsoleConfig() : Long
<MI 2431a MOVE.L (A7)+,D0> Δ+4 {[-2-]}
<POP 0x2431c LimitCheck 0x0 ≤ D0 ≤ 0xffff> {[-2-]}
<MI 24326 MOVE.W D0,(A7)> {[2, 'D0']}
<Pointer.fp 0x24328 <LVAR -0x004 @ 1(r)>> Δ-4 {[2, 'D0']|[@@-4]}
<Call 0x2432c 0x10212> {[2, 'D0']|[@@-4]}
KC09_PortStatus(Port : Word; VAR b: Byte)
<POP 24332-24334 StackAdj> Δ+6 {}
<MI 24334 MOVE.B (A6-0x4),D0> {}
<MI 24338 CMP.B #0x01,D0> {}
<MI 2433a BEQ 0x24352> {}
<POP 2433c-24352 Naked> Σ0
<MI 2433c MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<Call 0x24340 0x21e00> {[4, '(A6+0x8)']}
<POP 24344-24346 StackAdj> Δ+4 {}
<POP 24346-24352 Bailout> {}
<MI 24346 MOVEA.L (A5+0x8),A7>
<MI 2434a MOVEA.W #0x00,A6>
<MI 2434c JMP 0x256e4>
<POP 24352-24362 Naked> Σ0 ↓ →0x24378 ←0x24312
<POP 24352-24354 StackAdj> Δ-2 {[-2-]}
<Call 0x24354 0x103d4> {[-2-]}
ReadChar() : Byte
<MI 2435a MOVE.B (A7)+,D0> Δ+2 {}
<MI 2435c CMPI.B #0x07,D0> {}
<MI 24360 BEQ 0x24378> {}
<POP 24362-24378 Naked> Σ0
<MI 24362 MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<Call 0x24366 0x21e00> {[4, '(A6+0x8)']}
<POP 2436a-2436c StackAdj> Δ+4 {}
<POP 2436c-24378 Bailout> {}
<MI 2436c MOVEA.L (A5+0x8),A7>
<MI 24370 MOVEA.W #0x00,A6>
<MI 24372 JMP 0x256e4>
<POP 24378-24380 Epilogue> Σ0 ←0x24352
@ 24380
<POP 24380-243a0 Body>
<POP 24380-24392 Prologue> Σ0 ↓
<POP 24392-2439c Naked> Σ0 ↓
<Const 0x24392 0xc8.4> Δ-4 {[##200]}
<Call 0x24396 0x22cc8> {[##200]}
<POP 2439a-2439c StackAdj> Δ+4 {}
<POP 2439c-243a0 Epilogue> Σ0
@ 243a0
<LVAR 0x008 4(r)>
<LVAR -0x00c @ 4(r)>
<POP 243a0-2444c Body>
<POP 243a0-243b6 Prologue> Σ0 ↓
<POP 243b6-243ba RegCacheLoad> Σ0 ↓
<POP 243ba-243ce Naked> Σ0 Δ-4 ↓
<Pointer.fp 0x243ba <LVAR -0x00c @ 4(r)>> Δ-4 {[@@-12]}
<Call 0x243bc 0x102b8> {[@@-12]}
NewString(VAR a : String)
<MI 243c2 MOVE.L (A6+0x8),-(A7)> Δ-4 {[@@-12]|[4, '(A6+0x8)']}
<Call 0x243c6 0x2224e> {[@@-12]|[4, '(A6+0x8)']}
<POP 243ca-243cc StackAdj> Δ+4 {[@@-12]}
<MI 243cc MOVEQ.L #0x01,D7> {[@@-12]}
<POP 243ce-243d2 Naked> Σ-4 ↓ →0x2443c ←0x24438
<MI 243ce CMP.L (A7),D7> {[-4-]}
<MI 243d0 BGT 0x2443c> {[-4-]}
<POP 243d2-243e4 Naked> Σ-4 ↓ →0x24404
<POP 243d2-243d4 StackAdj> Δ-4 {[-8-]}
<MI 243d4 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<MI 243d8 MOVE.L D7,-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']|[4, 'D7']}
<Call 0x243da 0x22bd8> {[-8-]|[4, '(A6+0x8)']|[4, 'D7']}
<POP 243de-243e0 StackAdj> Δ+8 {[-8-]}
<MI 243e0 MOVE.L (A7)+,D6> Δ+4 {[-4-]}
<MI 243e2 BLT 0x24404> {[-4-]}
<POP 243e4-243ec Naked> Σ-4 ↓ →0x24404
<MI 243e4 CMPI.L #0x000000ff,D6> {[-4-]}
<MI 243ea BGT 0x24404> {[-4-]}
<POP 243ec-24404 Naked> Σ-4 →0x24438
<MI 243ec MOVE.L (A6-0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6-0xc)']}
<POP 0x243ee LimitCheck 0x0 ≤ D6 ≤ 0xff> {[-4-]|[4, '(A6-0xc)']}
<MI 243f8 MOVE.B D6,-(A7)> Δ-2 {[-4-]|[4, '(A6-0xc)']|[2, 'D6']}
<Call 0x243fa 0x102c0> {[-4-]|[4, '(A6-0xc)']|[2, 'D6']}
AppendChar(MOD b : String; a : char)
<POP 24400-24402 StackAdj> Δ+6 {[-4-]}
<MI 24402 BRA 0x24438> {[-4-]}
<POP 24404-24438 Naked> Σ-4 ↓ ←0x243d2 ←0x243e4
<Pointer.fp 0x24404 <LVAR -0x00c @ 4(r)>> Δ-4 {[-4-]|[@@-12]}
<Call 0x24406 0x102bc> {[-4-]|[@@-12]}
FreeString(VAR a : String)
<POP 2440c-2440e StackAdj> Δ+4 {[-4-]}
<Blob 0x2440e [28] @> Δ-28 {[-4-]|[«28""»]}
<POP 2441a-2441c StackAdj> Δ-4 {[-4-]|[«28""»]|[-4-]}
<Lit 0x2441c 28> {[-4-]|[«28""»]|[$$ASCII argument out of range.]}
<Call 0x24430 0x21e42> {[-4-]|[«28""»]|[$$ASCII argument out of range.]}
<POP 24434-24438 StackAdj> Δ+32 {[-4-]}
<POP 24438-2443c Naked> Σ-4 ↓ →0x243ce ←0x243ec
<MI 24438 ADDQ.L #0x1,D7> {[-4-]}
<MI 2443a BVC 0x243ce> {[-4-]}
<POP 2443c-24444 Naked> Σ-4 Δ+4 ↓ ←0x243ce
<MI 2443c MOVE.L (A6-0xc),(A7)> {[4, '(A6-0xc)']}
<Call 0x2443e 0x22c0c> {[4, '(A6-0xc)']}
<POP 24442-24444 StackAdj> Δ+4 {}
<POP 24444-2444c Epilogue> Σ0
@ 2444c
<LVAR 0x00c 1(rw)>
<LVAR 0x008 4(r)>
<POP 2444c-24504 Body> Δ-8
<POP 2444c-24462 Prologue> Σ0 ↓
<POP 24462-24472 Naked> Σ0 Δ-4 ↓
<MI 24462 CLR.B (A6+0xc)> {}
<MI 24466 MOVEA.L (A6+0x8),A0> {}
<MI 2446a MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 2446c MOVEQ.L #0x00,D0> {[4, 'A0']}
<MI 2446e ADDQ.W #0x1,D0> {[4, 'A0']}
<MI 24470 MOVE.B D0,D6> {[4, 'A0']}
<POP 24472-2447a Naked> Σ-4 ↓ →0x244fa ←0x244f4
<MI 24472 CMPI.B #0x2b,D6> {[-4-]}
<MI 24476 BGT 0x244fa> {[-4-]}
<POP 2447a-244a0 Naked> Σ-4 ↓ →0x244f4
<MI 2447a LEA.L 0x21d2e,A0> {[-4-]}
<MI 2447e MOVE.B D6,D0> {[-4-]}
<MI 24480 EXTB.W D0> {[-4-]}
<MI 24482 EXTW.L D0> {[-4-]}
<MI 24484 ROR.L #0x1,D0> {[-4-]}
<MI 24486 ADDA.W D0,A0> {[-4-]}
<MI 24488 SWAP.W D0> {[-4-]}
<MI 2448a ROL.W #0x3,D0> {[-4-]}
<MI 2448c CLR.L D1> {[-4-]}
<MI 2448e MOVE.B (A0),D1> {[-4-]}
<MI 24490 LSL.B D0,D1> {[-4-]}
<MI 24492 LSR.B #0x4,D1> {[-4-]}
<MI 24494 MOVE.L D1,D5> {[-4-]}
<MI 24496 MOVEA.L (A7),A0> {[-4-]}
<MI 24498 MOVE.W (A0),D0> {[-4-]}
<MI 2449a EXTW.L D0> {[-4-]}
<MI 2449c CMP.L D0,D5> {[-4-]}
<MI 2449e BNE 0x244f4> {[-4-]}
<POP 244a0-244a4 Naked> Σ-4 Δ-4 ↓
<MI 244a0 MOVE.L D5,-(A7)> Δ-4 {[-4-]|[4, 'D5']}
<MI 244a2 MOVEQ.L #0x01,D7> {[-4-]|[4, 'D5']}
<POP 244a4-244a8 Naked> Σ-8 ↓ →0x244ea ←0x244e6
<MI 244a4 CMP.L (A7),D7> {[-8-]}
<MI 244a6 BGT 0x244ea> {[-8-]}
<POP 244a8-244e2 Naked> Σ-8 ↓ →0x244e6
<MI 244a8 MOVE.B D6,D0> {[-8-]}
<MI 244aa EXTB.W D0> {[-8-]}
<MI 244ac MULS.W #0xa,D0> {[-8-]}
<MI 244b0 MOVE.L D7,D1> {[-8-]}
<MI 244b2 SUBQ.L #0x1,D1> {[-8-]}
<POP 0x244b4 LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-8-]}
<MI 244be MOVEA.L (A7+0x4),A0> {[-8-]}
<MI 244c2 LEA.L 0x21b76,A1> {[-8-]}
<MI 244c6 MOVE.L D7,D2> {[-8-]}
<MI 244c8 SUBQ.L #0x1,D2> {[-8-]}
<POP 0x244ca LimitCheck 0x0 ≤ D2 ≤ 0x9> {[-8-]}
<MI 244d4 LEA.L (A1+D0.W),A1> {[-8-]}
<MI 244d8 MOVE.B (A0+D1.L+#0x2),D0> {[-8-]}
<MI 244dc CMP.B (A1+D2.L),D0> {[-8-]}
<MI 244e0 BEQ 0x244e6> {[-8-]}
<POP 244e2-244e6 Naked> Σ-8 Δ+4 →0x244f4
<POP 244e2-244e4 StackAdj> Δ+4 {[-4-]}
<MI 244e4 BRA 0x244f4> {[-4-]}
<POP 244e6-244ea Naked> Σ-8 ↓ →0x244a4 ←0x244a8
<MI 244e6 ADDQ.L #0x1,D7> {[-8-]}
<MI 244e8 BVC 0x244a4> {[-8-]}
<POP 244ea-244f4 Naked> Σ-8 Δ+8 →0x244fc ←0x244a4
<POP 244ea-244ec StackAdj> Δ+4 {[-4-]}
<MI 244ec MOVE.B D6,(A6+0xc)> {[-4-]}
<POP 244f0-244f2 StackAdj> Δ+4 {}
<MI 244f2 BRA 0x244fc> {}
<POP 244f4-244fa Naked> Σ-4 ↓ →0x24472 ←0x2447a ←0x244e2
<MI 244f4 ADDQ.B #0x1,D6> {[-4-]}
<MI 244f6 BVC 0x24472> {[-4-]}
<POP 244fa-244fc Naked> Σ-4 Δ+4 ↓ ←0x24472
<POP 244fa-244fc StackAdj> Δ+4 {}
<POP 244fc-24504 Epilogue> Σ0 ←0x244ea
@ 24504
<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 24504-24640 Body>
<POP 24504-2451a Prologue> Σ0 ↓
<POP 2451a-24528 RegCacheLoad> Σ0 ↓
<POP 24528-24594 Naked> Σ0 ↓ →0x245de
<POP 24528-2452a StackAdj> Δ-4 {[-4-]}
<MI 2452a MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']}
<Call 0x2452e 0x102cc> {[-4-]|[4, '(A6+0xc)']}
StringDup(a : String) : String
<POP 24534-24536 StackAdj> Δ+4 {[-4-]}
<MI 24536 MOVE.L (A7)+,(A6-0x10)> Δ+4 {}
<MI 24538 MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0x10)']}
<Const 0x2453a 0x2e.2> Δ-2 {[4, '(A6-0x10)']|[#46]}
<Call 0x2453e 0x102c0> {[4, '(A6-0x10)']|[#46]}
AppendChar(MOD b : String; a : char)
<POP 24544-24546 StackAdj> Δ+6 {}
<Blob 0x24546 [10] 0x2796c> Δ-10 {[«10»]}
<POP 24554-24556 StackAdj> Δ-4 {[«10»]|[-4-]}
<MI 24556 MOVE.L (A6-0x10),-(A7)> Δ-4 {[«10»]|[-4-]|[4, '(A6-0x10)']}
<POP 24558-2455a StackAdj> Δ-4 {[«10»]|[-4-]|[4, '(A6-0x10)']|[-4-]}
<Lit 0x2455a> {[«10»]|[-4-]|[4, '(A6-0x10)']|[$$…]}
<Pointer.sp 0x2455a 12> Δ-4
<Const 0x2455e 0x1.2> Δ-2
<Const 0x24560 0xa.2> Δ-2
<Call 0x24564 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 2456a-2456c StackAdj> Δ+8
<Call 0x2456c 0x102d0> {[«10»]|[-4-]|[4, '(A6-0x10)']|[$$…]}
StringCat2(a, b : String) : String
<POP 24572-24574 StackAdj> Δ+8 {[«10»]|[-4-]}
<MI 24574 MOVE.L (A7)+,(A6-0x10)> Δ+4 {[«10»]}
<POP 24576-24578 StackAdj> Δ+6 {[-4-]}
<MI 24578 MOVE.L (A6-0x10),(A7)> {[4, '(A6-0x10)']}
<MI 2457a CLR.B -(A7)> Δ-2 {[4, '(A6-0x10)']|[#0]}
<Const 0x2457c 0x1.2> Δ-2 {[4, '(A6-0x10)']|[#0]|[#1]}
<Const 0x2457e 0x0.4> Δ-4 {[4, '(A6-0x10)']|[#0]|[#1]|[##0]}
<Pointer.fp 0x24582 <LVAR -0x002 @ 1(r)>> Δ-4 {[4, '(A6-0x10)']|[#0]|[#1]|[##0]|[@@-2]}
<Pointer.fp 0x24584 <LVAR -0x00c @ 4(r)>> Δ-4 {[4, '(A6-0x10)']|[#0]|[#1]|[##0]|[@@-2]|[@@-12]}
<Call 0x24586 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 2458c-24590 StackAdj> Δ+20 {}
<MI 24590 TST.B (A6-0x2)> {}
<MI 24592 BEQ 0x245de> {}
<POP 24594-245de Naked> Σ0 ↓
<Pointer.fp 0x24594 <LVAR -0x010 @ 4(rw)>> Δ-4 {[@@-16]}
<Call 0x24596 0x102bc> {[@@-16]}
FreeString(VAR a : String)
<MI 2459c MOVE.L (A6+0x8),(A7)> {[4, '(A6+0x8)']}
<Call 0x245a0 0x21e00> {[4, '(A6+0x8)']}
<POP 245a4-245a5 StackAdj> Δ+4 ↓ {}
<Blob 0x245a5 [26] @> Δ-26 {[«26""»]}
<POP 245b6-245b8 StackAdj> Δ-8 {[«26""»]|[-8-]}
<Lit 0x245b8 25> {[«26""»]|[-4-]|[$$Not a command or macro :_]}
<POP 245c8-245ca StackAdj> Δ-4 {[«26""»]|[-4-]|[$$Not a command or macro :_]|[-4-]}
<MI 245ca MOVE.L (A6+0xc),(A7)> {[«26""»]|[-4-]|[$$Not a command or macro :_]|[4, '(A6+0xc)']}
<Call 0x245ce 0x102d0> {[«26""»]|[-4-]|[$$Not a command or macro :_]|[4, '(A6+0xc)']}
StringCat2(a, b : String) : String
<POP 245d4-245d6 StackAdj> Δ+8 {[«26""»]|[-4-]}
<Call 0x245d6 0x21e42> {[«26""»]|[-4-]}
<POP 245da-245de StackAdj> Δ+30 {}
<POP 245de-245e6 Naked> Σ0 ↓ ←0x24528
<MI 245de MOVE.L 0x2795a,(A6-0x6)> {}
<POP 245e6-245fe Naked> Σ0 ↓ →0x24612 ←0x24612
<MI 245e6 MOVE.L (A6-0xc),-(A7)> Δ-4 {[4, '(A6-0xc)']}
<Pointer.fp 0x245e8 <LVAR -0x010 @ 4(rw)>> Δ-4 {[4, '(A6-0xc)']|[@@-16]}
<Pointer.fp 0x245ea <LVAR -0x008 @ 1(r)>> Δ-4 {[4, '(A6-0xc)']|[@@-16]|[@@-8]}
<Call 0x245ee 0x1043c> {[4, '(A6-0xc)']|[@@-16]|[@@-8]}
FileReadLine(file : File; VAR a : String; VAR b : Byte)
<POP 245f4-245f8 StackAdj> Δ+12 {}
<MI 245f8 MOVEA.L (A6-0x10),A0> {}
<MI 245fa TST.W (A0)> {}
<MI 245fc BEQ 0x24612> {}
<POP 245fe-24612 Naked> Σ0 ↓
<MI 245fe MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0x10)']}
<Call 0x24600 0x2209a> {[4, '(A6-0x10)']}
<POP 24604-24606 StackAdj> Δ+4 {}
<Pointer.fp 0x24606 <LVAR -0x006 @ 4(w)>> Δ-4 {[@@-6]}
<MI 2460a MOVE.L (A6-0x10),-(A7)> Δ-4 {[@@-6]|[4, '(A6-0x10)']}
<Call 0x2460c 0x22420> {[@@-6]|[4, '(A6-0x10)']}
<POP 24610-24612 StackAdj> Δ+8 {}
<POP 24612-24618 Naked> Σ0 ↓ →0x245e6 ←0x245e6
<MI 24612 TST.B (A6-0x8)> {}
<MI 24616 BEQ 0x245e6> {}
<POP 24618-24638 Naked> Σ0 ↓
<MI 24618 CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x2461a 0x1.2> Δ-2 {[#0]|[#1]}
<Const 0x2461c 0x1.4> Δ-4 {[#0]|[#1]|[##1]}
<Pointer.fp 0x24620 <LVAR -0x002 @ 1(r)>> Δ-4 {[#0]|[#1]|[##1]|[@@-2]}
<Pointer.fp 0x24622 <LVAR -0x00c @ 4(r)>> Δ-4 {[#0]|[#1]|[##1]|[@@-2]|[@@-12]}
<Call 0x24624 0x1038c> {[#0]|[#1]|[##1]|[@@-2]|[@@-12]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 2462a-2462e StackAdj> Δ+16 {}
<Pointer.fp 0x2462e <LVAR -0x010 @ 4(rw)>> Δ-4 {[@@-16]}
<Call 0x24630 0x102bc> {[@@-16]}
FreeString(VAR a : String)
<POP 24636-24638 StackAdj> Δ+4 {}
<POP 24638-24640 Epilogue> Σ0
@ 24640
<LVAR 0x014 1(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 24640-24680 Body>
<POP 24640-24656 Prologue> Σ0 ↓
<POP 24656-24678 Naked> Σ0 ↓
<MI 24656 MOVE.L (A6+0xc),D0> {}
<MI 2465a ADD.L (A6+0x8),D0> {}
<MI 2465e SUBQ.L #0x1,D0> {}
<MI 24660 SUBQ.L #0x1,D0> {}
<POP 0x24662 LimitCheck 0x0 ≤ D0 ≤ 0x1fff> {}
<MI 2466c LEA.L 0x25952,A0> {}
<MI 24672 MOVE.B (A0+D0.L+#0x8),(A6+0x14)> {}
<POP 24678-24680 Epilogue> Σ0
@ 24680
<LVAR 0x010 4(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 1(r)>
<LVAR -0x008 @ 4(r)>
<POP 24680-246fc Body>
<POP 24680-24696 Prologue> Σ0 ↓
<POP 24696-246be Naked> Σ0 ↓ →0x246ee
<POP 24696-24698 StackAdj> Δ-4 {[-4-]}
<MI 24698 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']}
<MI 2469c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x246a0 0x22aee> {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 246a4-246a6 StackAdj> Δ+8 {[-4-]}
<Pointer.fp 0x246a6 <LVAR -0x004 @ 1(r)>> Δ-4 {[-4-]|[@@-4]}
<Pointer.fp 0x246aa <LVAR -0x008 @ 4(r)>> Δ-4 {[-4-]|[@@-4]|[@@-8]}
<Call 0x246ae 0x102ec> {[-4-]|[@@-4]|[@@-8]}
String2Long(src : String; VAR status : Bool; VAR retval : Long)
<POP 246b4-246b8 StackAdj> Δ+12 {}
<MI 246b8 TST.B (A6-0x4)> {}
<MI 246bc BNE 0x246ee> {}
<POP 246be-246ee Naked> Σ0 ↓
<Blob 0x246be [24] @> Δ-24 {[«24""»]}
<POP 246d0-246d2 StackAdj> Δ-4 {[«24""»]|[-4-]}
<Lit 0x246d2 23> {[«24""»]|[$$Illegal marker argument]}
<Call 0x246e6 0x21e42> {[«24""»]|[$$Illegal marker argument]}
<POP 246ea-246ee StackAdj> Δ+28 {}
<POP 246ee-246f4 Naked> Σ0 ↓ ←0x24696
<MI 246ee MOVE.L (A6-0x8),(A6+0x10)> {}
<POP 246f4-246fc Epilogue> Σ0
@ 246fc
<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 246fc-24824 Body>
<POP 246fc-24712 Prologue> Σ0 ↓
<POP 24712-24722 RegCacheLoad> Σ0 ↓
<POP 24722-2473c Naked> Σ0 Δ-4 ↓
<MI 24722 MOVEQ.L #0x00,D7> {}
<MI 24724 MOVE.L (A6+0x14),(A6-0x20)> {}
<MI 24728 MOVE.L 0x2795a,D0> {}
<MI 2472e SUB.L (A6+0x14),D0> {}
<MI 24732 MOVE.L D0,(A6-0x14)> {}
<MI 24734 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<MI 24738 MOVE.L (A6+0x10),D5> {[4, '(A6+0xc)']}
<POP 2473c-24740 Naked> Σ-4 ↓ →0x2476c ←0x24768
<MI 2473c CMP.L (A7),D5> {[-4-]}
<MI 2473e BGT 0x2476c> {[-4-]}
<POP 24740-24766 Naked> Σ-4 ↓ →0x24768
<POP 24740-24742 StackAdj> Δ-8 {[-12-]}
<MI 24742 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']}
<MI 24746 MOVE.L D5,-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']|[4, 'D5']}
<Call 0x24748 0x22a8c> {[-12-]|[4, '(A6+0x8)']|[4, 'D5']}
<POP 2474c-2474e StackAdj> Δ+8 {[-12-]}
<MI 2474e MOVE.L (A7)+,(A6-0x10)> Δ+4 {[-8-]}
<MI 24750 MOVE.L (A7),(A6-0xc)> {[-8-]}
<MI 24752 MOVE.L (A6-0xc),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']}
<MI 24754 MOVE.L (A6-0x10),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<Call 0x24756 0x22a54> {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<POP 2475a-2475c StackAdj> Δ+8 {[-8-]}
<MI 2475c MOVE.L (A7)+,D6> Δ+4 {[-4-]}
<MI 2475e ADD.L D6,D7> {[-4-]}
<MI 24760 CMP.L (A6+0xc),D5> {[-4-]}
<MI 24764 BGE 0x24768> {[-4-]}
<POP 24766-24768 Naked> Σ-4 ↓
<MI 24766 ADDQ.L #0x1,D7> {[-4-]}
<POP 24768-2476c Naked> Σ-4 ↓ →0x2473c ←0x24740
<MI 24768 ADDQ.L #0x1,D5> {[-4-]}
<MI 2476a BVC 0x2473c> {[-4-]}
<POP 2476c-2477a Naked> Σ-4 Δ+4 ↓ →0x24786 ←0x2473c
<POP 2476c-2476e StackAdj> Δ+4 {}
<MI 2476e MOVE.L (A6-0x20),D0> {}
<MI 24770 ADD.L (A6-0x14),D0> {}
<MI 24772 MOVE.L D0,(A6-0x18)> {}
<MI 24776 CMP.L (A6-0x14),D7> {}
<MI 24778 BEQ 0x24786> {}
<POP 2477a-24786 Naked> Σ0 ↓
<MI 2477a MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 2477c MOVE.L (A6-0x14),-(A7)> Δ-4 {[4, 'D0']|[4, '(A6-0x14)']}
<MI 2477e SUB.L D7,(A7)> {[4, 'D0']|[-4-]}
<Call 0x24780 0x22396> {[4, 'D0']|[-4-]}
<POP 24784-24786 StackAdj> Δ+8 {}
<POP 24786-2478e Naked> Σ0 Δ-4 ↓ ←0x2476c
<MI 24786 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<MI 2478a MOVE.L (A6+0x10),D5> {[4, '(A6+0xc)']}
<POP 2478e-24794 Naked> Σ-4 ↓ →0x2481a ←0x24814
<MI 2478e CMP.L (A7),D5> {[-4-]}
<MI 24790 BGT 0x2481a> {[-4-]}
<POP 24794-247b6 Naked> Σ-4 Δ-4 ↓
<POP 24794-24796 StackAdj> Δ-8 {[-12-]}
<MI 24796 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']}
<MI 2479a MOVE.L D5,-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']|[4, 'D5']}
<Call 0x2479c 0x22a8c> {[-12-]|[4, '(A6+0x8)']|[4, 'D5']}
<POP 247a0-247a2 StackAdj> Δ+8 {[-12-]}
<MI 247a2 MOVE.L (A7)+,(A6-0x10)> Δ+4 {[-8-]}
<MI 247a4 MOVE.L (A7),(A6-0xc)> {[-8-]}
<MI 247a6 MOVE.L (A6-0xc),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']}
<MI 247a8 MOVE.L (A6-0x10),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<Call 0x247aa 0x22a54> {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<POP 247ae-247b0 StackAdj> Δ+8 {[-8-]}
<MI 247b0 MOVE.L (A7)+,D6> Δ+4 {[-4-]}
<MI 247b2 MOVE.L D6,-(A7)> Δ-4 {[-4-]|[4, 'D6']}
<MI 247b4 MOVEQ.L #0x01,D0> {[-4-]|[4, 'D6']}
<POP 247b6-247ba Naked> Σ-8 ↓ →0x247ea ←0x247ba
<MI 247b6 CMP.L (A7),D0> {[-8-]}
<MI 247b8 BGT 0x247ea> {[-8-]}
<POP 247ba-247ea Naked> Σ-8 ↓ →0x247b6
<MI 247ba MOVE.L (A6-0x20),D1> {[-8-]}
<MI 247bc ADD.L D0,D1> {[-8-]}
<MI 247be SUBQ.L #0x1,D1> {[-8-]}
<MI 247c0 SUBQ.L #0x1,D1> {[-8-]}
<POP 0x247c2 LimitCheck 0x0 ≤ D1 ≤ 0x1fff> {[-8-]}
<MI 247cc LEA.L 0x25952,A0> {[-8-]}
<POP 247d2-247d4 StackAdj> Δ-2 {[-10-]}
<MI 247d4 MOVE.L (A6-0xc),-(A7)> Δ-4 {[-10-]|[4, '(A6-0xc)']}
<MI 247d6 MOVE.L (A6-0x10),-(A7)> Δ-4 {[-10-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<MI 247d8 MOVE.L D0,-(A7)> Δ-4 {[-10-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D0']}
<Call 0x247da 0x24640> {[-10-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D0']}
<POP 247de-247e2 StackAdj> Δ+12 {[-10-]}
<MI 247e2 MOVE.B (A7)+,(A0+D1.L+#0x8)> Δ+2 {[-8-]}
<MI 247e6 ADDQ.L #0x1,D0> {[-8-]}
<MI 247e8 BVC 0x247b6> {[-8-]}
<POP 247ea-247f2 Naked> Σ-8 Δ+4 ↓ →0x24814 ←0x247b6
<POP 247ea-247ec StackAdj> Δ+4 {[-4-]}
<MI 247ec CMP.L (A6+0xc),D5> {[-4-]}
<MI 247f0 BGE 0x24814> {[-4-]}
<POP 247f2-24814 Naked> Σ-4 ↓
<MI 247f2 MOVE.L (A6-0x20),D0> {[-4-]}
<MI 247f4 ADD.L D6,D0> {[-4-]}
<MI 247f6 MOVE.L D0,D1> {[-4-]}
<MI 247f8 SUBQ.L #0x1,D1> {[-4-]}
<POP 0x247fa LimitCheck 0x0 ≤ D1 ≤ 0x1fff> {[-4-]}
<MI 24804 LEA.L 0x25952,A0> {[-4-]}
<MI 2480a MOVE.B #0x2c,(A0+D1.L+#0x8)> {[-4-]}
<MI 24810 ADDQ.L #0x1,D0> {[-4-]}
<MI 24812 MOVE.L D0,(A6-0x20)> {[-4-]}
<POP 24814-2481a Naked> Σ-4 ↓ →0x2478e ←0x247ea
<MI 24814 ADDQ.L #0x1,D5> {[-4-]}
<MI 24816 BVC 0x2478e> {[-4-]}
<POP 2481a-2481c Naked> Σ-4 Δ+4 ↓ ←0x2478e
<POP 2481a-2481c StackAdj> Δ+4 {}
<POP 2481c-24824 Epilogue> Σ0
@ 24824
<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 24824-2491a Body> Δ-12
<POP 24824-2483a Prologue> Σ0 ↓
<POP 2483a-24850 RegCacheLoad> Σ0 ↓
<POP 24850-2487a Naked> Σ0 Δ-4 ↓
<POP 24850-24852 StackAdj> Δ-4 {[-4-]}
<MI 24852 MOVE.L (A6+0x14),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']}
<MI 24854 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<Call 0x24856 0x22a54> {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<POP 2485a-2485c StackAdj> Δ+8 {[-4-]}
<MI 2485c MOVE.L (A7),(A6-0xc)> {[-4-]}
<MI 2485e MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']}
<MI 24862 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x24866 0x22a54> {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 2486a-2486c StackAdj> Δ+8 {[-4-]}
<MI 2486c MOVE.L (A7)+,(A6-0x8)> Δ+4 {}
<MI 2486e ADDQ.L #0x1,(A6-0x8)> {}
<MI 24870 MOVE.L (A6-0xc),D0> {}
<MI 24872 SUB.L (A6-0x8),D0> {}
<MI 24874 ADDQ.L #0x1,D0> {}
<MI 24876 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 24878 MOVEQ.L #0x01,D0> {[4, 'D0']}
<POP 2487a-24880 Naked> Σ-4 ↓ →0x2490c ←0x24904
<MI 2487a CMP.L (A7),D0> {[-4-]}
<MI 2487c BGT 0x2490c> {[-4-]}
<POP 24880-2488c Naked> Σ-4 Δ-8 ↓
<MI 24880 MOVE.L D0,(A6-0x18)> {[-4-]}
<MI 24884 MOVE.L D0,-(A7)> Δ-4 {[-4-]|[4, 'D0']}
<MI 24886 MOVEQ.L #0x00,D6> {[-4-]|[4, 'D0']}
<MI 24888 MOVE.L (A6-0x8),-(A7)> Δ-4 {[-4-]|[4, 'D0']|[4, '(A6-0x8)']}
<MI 2488a MOVEQ.L #0x01,D5> {[-4-]|[4, 'D0']|[4, '(A6-0x8)']}
<POP 2488c-24890 Naked> Σ-12 ↓ →0x248d2 ←0x248cc
<MI 2488c CMP.L (A7),D5> {[-12-]}
<MI 2488e BGT 0x248d2> {[-12-]}
<POP 24890-24898 Naked> Σ-12 ↓ →0x2489c
<MI 24890 CMPI.L #0x00000001,D5> {[-12-]}
<MI 24896 BNE 0x2489c> {[-12-]}
<POP 24898-2489c Naked> Σ-12 →0x248b0
<MI 24898 MOVEQ.L #0x2f,D7> {[-12-]}
<MI 2489a BRA 0x248b0> {[-12-]}
<POP 2489c-248b0 Naked> Σ-12 ↓ ←0x24890
<POP 2489c-2489e StackAdj> Δ-2 {[-14-]}
<MI 2489e MOVE.L (A6+0xc),-(A7)> Δ-4 {[-14-]|[4, '(A6+0xc)']}
<MI 248a2 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-14-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<MI 248a6 MOVE.L D5,-(A7)> Δ-4 {[-14-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D5']}
<MI 248a8 SUBQ.L #0x1,(A7)> {[-14-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[-4-]}
<Call 0x248aa 0x24640> {[-14-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[-4-]}
<POP 248ac-248ae StackAdj> Δ+12 {[-14-]}
<MI 248ae MOVE.B (A7)+,D7> Δ+2 {[-12-]}
<POP 248b0-248c8 Naked> Σ-12 ↓ →0x248cc ←0x24898
<POP 248b0-248b2 StackAdj> Δ-2 {[-14-]}
<MI 248b2 MOVE.L (A6+0x14),-(A7)> Δ-4 {[-14-]|[4, '(A6+0x14)']}
<MI 248b4 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-14-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 248b6 MOVE.L (A7+0xe),D0> {[-14-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 248ba ADD.L D5,D0> {[-14-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 248bc SUBQ.L #0x1,D0> {[-14-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 248be MOVE.L D0,-(A7)> Δ-4 {[-14-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D0']}
<Call 0x248c0 0x24640> {[-14-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D0']}
<POP 248c2-248c4 StackAdj> Δ+12 {[-14-]}
<MI 248c4 CMP.B (A7)+,D7> Δ+2 {[-12-]}
<MI 248c6 BEQ 0x248cc> {[-12-]}
<POP 248c8-248cc Naked> Σ-12 Δ+4 →0x248d4
<POP 248c8-248ca StackAdj> Δ+4 {[-8-]}
<MI 248ca BRA 0x248d4> {[-8-]}
<POP 248cc-248d2 Naked> Σ-12 ↓ →0x2488c ←0x248b0
<MI 248cc MOVE.L D5,D6> {[-12-]}
<MI 248ce ADDQ.L #0x1,D5> {[-12-]}
<MI 248d0 BVC 0x2488c> {[-12-]}
<POP 248d2-248d4 Naked> Σ-12 Δ+4 ↓ ←0x2488c
<POP 248d2-248d4 StackAdj> Δ+4 {[-8-]}
<POP 248d4-248d8 Naked> Σ-8 ↓ →0x24904 ←0x248c8
<MI 248d4 CMP.L (A6-0x8),D6> {[-8-]}
<MI 248d6 BNE 0x24904> {[-8-]}
<POP 248d8-248e4 Naked> Σ-8 ↓ →0x248e6
<MI 248d8 MOVE.L (A7),D0> {[-8-]}
<MI 248da MOVE.L D0,(A6+0x18)> {[-8-]}
<MI 248de ADD.L (A6-0x8),D0> {[-8-]}
<MI 248e0 CMP.L (A6-0xc),D0> {[-8-]}
<MI 248e2 BLT 0x248e6> {[-8-]}
<POP 248e4-248e6 Naked> Σ-8 →0x24900
<MI 248e4 BRA 0x24900> {[-8-]}
<POP 248e6-248fa Naked> Σ-8 ↓ →0x24900 ←0x248d8
<POP 248e6-248e8 StackAdj> Δ-2 {[-10-]}
<MI 248e8 MOVE.L (A6+0x14),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x14)']}
<MI 248ea MOVE.L (A6+0x10),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 248ec MOVE.L D0,-(A7)> Δ-4 {[-10-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D0']}
<Call 0x248ee 0x24640> {[-10-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D0']}
<POP 248f0-248f2 StackAdj> Δ+12 {[-10-]}
<MI 248f2 MOVE.B (A7)+,D7> Δ+2 {[-8-]}
<MI 248f4 CMPI.B #0x2f,D7> {[-8-]}
<MI 248f8 BEQ 0x24900> {[-8-]}
<POP 248fa-24900 Naked> Σ-8 ↓ →0x24904
<MI 248fa CMPI.B #0x3d,D7> {[-8-]}
<MI 248fe BNE 0x24904> {[-8-]}
<POP 24900-24904 Naked> Σ-8 Δ+8 →0x24912 ←0x248e4 ←0x248e6
<POP 24900-24902 StackAdj> Δ+8 {}
<MI 24902 BRA 0x24912> {}
<POP 24904-2490c Naked> Σ-8 Δ+4 ↓ →0x2487a ←0x248d4 ←0x248fa
<MI 24904 MOVE.L (A7)+,D0> Δ+4 {[-4-]}
<MI 24906 ADDQ.L #0x1,D0> {[-4-]}
<MI 24908 BVC 0x2487a> {[-4-]}
<POP 2490c-24912 Naked> Σ-4 Δ+4 ↓ ←0x2487a
<POP 2490c-2490e StackAdj> Δ+4 {}
<MI 2490e CLR.L (A6+0x18)> {}
<POP 24912-2491a Epilogue> Σ0 ←0x24900
@ 2491a
<LVAR 0x018 4(r)>
<LVAR 0x014 4(r)>
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 2491a-249ae Body> Δ-4
<POP 2491a-24930 Prologue> Σ0 ↓
<POP 24930-2493a RegCacheLoad> Σ0 ↓
<POP 2493a-24954 Naked> Σ0 ↓ →0x249a6
<POP 2493a-2493c StackAdj> Δ-4 {[-4-]}
<MI 2493c MOVE.L (A6+0x14),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']}
<MI 2493e MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 24940 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<MI 24944 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x24948 0x24824> {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 2494c-24950 StackAdj> Δ+16 {[-4-]}
<MI 24950 MOVE.L (A7)+,D5> Δ+4 {}
<MI 24952 BLE 0x249a6> {}
<POP 24954-24974 Naked> Σ0 Δ-4 ↓
<MI 24954 MOVE.L (A6+0x18),-(A7)> Δ-4 {[4, '(A6+0x18)']}
<Const 0x24958 0x2f.2> Δ-2 {[4, '(A6+0x18)']|[#47]}
<Call 0x2495a 0x102c0> {[4, '(A6+0x18)']|[#47]}
AppendChar(MOD b : String; a : char)
<POP 24960-24962 StackAdj> Δ+6 {}
<MI 24962 MOVE.L D5,D0> {}
<MI 24964 ADDQ.L #0x1,D0> {}
<POP 24966-24968 StackAdj> Δ-4 {[-4-]}
<MI 24968 MOVE.L (A6+0x14),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']}
<MI 2496a MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<Call 0x2496c 0x22a54> {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<POP 24970-24972 StackAdj> Δ+8 {[-4-]}
<MI 24972 MOVE.L D0,D6> {[-4-]}
<POP 24974-24978 Naked> Σ-4 ↓ →0x249a4 ←0x24992
<MI 24974 CMP.L (A7),D6> {[-4-]}
<MI 24976 BGT 0x249a4> {[-4-]}
<POP 24978-2498e Naked> Σ-4 ↓ →0x24992
<POP 24978-2497a StackAdj> Δ-2 {[-6-]}
<MI 2497a MOVE.L (A6+0x14),-(A7)> Δ-4 {[-6-]|[4, '(A6+0x14)']}
<MI 2497c MOVE.L (A6+0x10),-(A7)> Δ-4 {[-6-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 2497e MOVE.L D6,-(A7)> Δ-4 {[-6-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D6']}
<Call 0x24980 0x24640> {[-6-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D6']}
<POP 24984-24988 StackAdj> Δ+12 {[-6-]}
<MI 24988 MOVE.B (A7)+,D7> Δ+2 {[-4-]}
<MI 2498a CMP.B #0x2f,D7> {[-4-]}
<MI 2498c BNE 0x24992> {[-4-]}
<POP 2498e-24992 Naked> Σ-4 Δ+4 →0x249a6
<POP 2498e-24990 StackAdj> Δ+4 {}
<MI 24990 BRA 0x249a6> {}
<POP 24992-249a4 Naked> Σ-4 ↓ →0x24974 ←0x24978
<MI 24992 MOVE.L (A6+0x18),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x18)']}
<MI 24996 MOVE.B D7,-(A7)> Δ-2 {[-4-]|[4, '(A6+0x18)']|[2, 'D7']}
<Call 0x24998 0x102c0> {[-4-]|[4, '(A6+0x18)']|[2, 'D7']}
AppendChar(MOD b : String; a : char)
<POP 2499e-249a0 StackAdj> Δ+6 {[-4-]}
<MI 249a0 ADDQ.L #0x1,D6> {[-4-]}
<MI 249a2 BVC 0x24974> {[-4-]}
<POP 249a4-249a6 Naked> Σ-4 Δ+4 ↓ ←0x24974
<POP 249a4-249a6 StackAdj> Δ+4 {}
<POP 249a6-249ae Epilogue> Σ0 ←0x2493a ←0x2498e
@ 249ae
<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 249ae-24a64 Body> Δ-8
<POP 249ae-249c4 Prologue> Σ0 ↓
<POP 249c4-249d2 RegCacheLoad> Σ0 ↓
<POP 249d2-249ee Naked> Σ0 ↓ →0x24a5c
<POP 249d2-249d4 StackAdj> Δ-4 {[-4-]}
<MI 249d4 MOVE.L (A6+0x14),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']}
<MI 249d6 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 249d8 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<MI 249dc MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x249e0 0x24824> {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 249e4-249e8 StackAdj> Δ+16 {[-4-]}
<MI 249e8 MOVE.L (A7)+,(A6-0x14)> Δ+4 {}
<MI 249ec BLE 0x24a5c> {}
<POP 249ee-24a02 Naked> Σ0 Δ-4 ↓
<POP 249ee-249f0 StackAdj> Δ-4 {[-4-]}
<MI 249f0 MOVE.L (A6+0x14),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']}
<MI 249f2 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<Call 0x249f4 0x22a54> {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<POP 249f8-249fa StackAdj> Δ+8 {[-4-]}
<MI 249fa MOVE.L (A7)+,(A6-0x6)> Δ+4 {}
<MI 249fc MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<MI 249fe MOVE.L (A6-0x14),D5> {[4, '(A6-0x6)']}
<POP 24a02-24a06 Naked> Σ-4 ↓ →0x24a5a ←0x24a56
<MI 24a02 CMP.L (A7),D5> {[-4-]}
<MI 24a04 BGT 0x24a5a> {[-4-]}
<POP 24a06-24a1c Naked> Σ-4 ↓ →0x24a56
<POP 24a06-24a08 StackAdj> Δ-2 {[-6-]}
<MI 24a08 MOVE.L (A6+0x14),-(A7)> Δ-4 {[-6-]|[4, '(A6+0x14)']}
<MI 24a0a MOVE.L (A6+0x10),-(A7)> Δ-4 {[-6-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 24a0c MOVE.L D5,-(A7)> Δ-4 {[-6-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D5']}
<Call 0x24a0e 0x24640> {[-6-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D5']}
<POP 24a12-24a14 StackAdj> Δ+12 {[-6-]}
<MI 24a14 MOVE.B (A7)+,D0> Δ+2 {[-4-]}
<MI 24a16 CMPI.B #0x3d,D0> {[-4-]}
<MI 24a1a BNE 0x24a56> {[-4-]}
<POP 24a1c-24a24 Naked> Σ-4 Δ-4 ↓
<MI 24a1c MOVE.L D5,D0> {[-4-]}
<MI 24a1e ADDQ.L #0x1,D0> {[-4-]}
<MI 24a20 MOVE.L (A6-0x6),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x6)']}
<MI 24a22 MOVE.L D0,D6> {[-4-]|[4, '(A6-0x6)']}
<POP 24a24-24a28 Naked> Σ-8 ↓ →0x24a54 ←0x24a42
<MI 24a24 CMP.L (A7),D6> {[-8-]}
<MI 24a26 BGT 0x24a54> {[-8-]}
<POP 24a28-24a3e Naked> Σ-8 ↓ →0x24a42
<POP 24a28-24a2a StackAdj> Δ-2 {[-10-]}
<MI 24a2a MOVE.L (A6+0x14),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x14)']}
<MI 24a2c MOVE.L (A6+0x10),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 24a2e MOVE.L D6,-(A7)> Δ-4 {[-10-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D6']}
<Call 0x24a30 0x24640> {[-10-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D6']}
<POP 24a34-24a36 StackAdj> Δ+12 {[-10-]}
<MI 24a36 MOVE.B (A7)+,D7> Δ+2 {[-8-]}
<MI 24a38 CMPI.B #0x2f,D7> {[-8-]}
<MI 24a3c BNE 0x24a42> {[-8-]}
<POP 24a3e-24a42 Naked> Σ-8 Δ+8 →0x24a5c
<POP 24a3e-24a40 StackAdj> Δ+8 {}
<MI 24a40 BRA 0x24a5c> {}
<POP 24a42-24a54 Naked> Σ-8 ↓ →0x24a24 ←0x24a28
<MI 24a42 MOVE.L (A6+0x18),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x18)']}
<MI 24a46 MOVE.B D7,-(A7)> Δ-2 {[-8-]|[4, '(A6+0x18)']|[2, 'D7']}
<Call 0x24a48 0x102c0> {[-8-]|[4, '(A6+0x18)']|[2, 'D7']}
AppendChar(MOD b : String; a : char)
<POP 24a4e-24a50 StackAdj> Δ+6 {[-8-]}
<MI 24a50 ADDQ.L #0x1,D6> {[-8-]}
<MI 24a52 BVC 0x24a24> {[-8-]}
<POP 24a54-24a56 Naked> Σ-8 Δ+4 ↓ ←0x24a24
<POP 24a54-24a56 StackAdj> Δ+4 {[-4-]}
<POP 24a56-24a5a Naked> Σ-4 ↓ →0x24a02 ←0x24a06
<MI 24a56 ADDQ.L #0x1,D5> {[-4-]}
<MI 24a58 BVC 0x24a02> {[-4-]}
<POP 24a5a-24a5c Naked> Σ-4 Δ+4 ↓ ←0x24a02
<POP 24a5a-24a5c StackAdj> Δ+4 {}
<POP 24a5c-24a64 Epilogue> Σ0 ←0x249d2 ←0x24a3e
@ 24a64
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 24a64-24aea Body> Δ-4
<POP 24a64-24a7a Prologue> Σ0 ↓
<POP 24a7a-24a84 RegCacheLoad> Σ0 ↓
<POP 24a84-24a96 Naked> Σ0 Δ-4 ↓
<POP 24a84-24a86 StackAdj> Δ-4 {[-4-]}
<MI 24a86 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']}
<MI 24a88 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x24a8a 0x22a54> {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 24a8e-24a90 StackAdj> Δ+8 {[-4-]}
<MI 24a90 MOVE.L (A7)+,D5> Δ+4 {}
<MI 24a92 MOVE.L D5,-(A7)> Δ-4 {[4, 'D5']}
<MI 24a94 MOVEQ.L #0x01,D6> {[4, 'D5']}
<POP 24a96-24a9a Naked> Σ-4 ↓ →0x24ae0 ←0x24adc
<MI 24a96 CMP.L (A7),D6> {[-4-]}
<MI 24a98 BGT 0x24ae0> {[-4-]}
<POP 24a9a-24ab0 Naked> Σ-4 ↓ →0x24adc
<POP 24a9a-24a9c StackAdj> Δ-2 {[-6-]}
<MI 24a9c MOVE.L (A6+0xc),-(A7)> Δ-4 {[-6-]|[4, '(A6+0xc)']}
<MI 24a9e MOVE.L (A6+0x8),-(A7)> Δ-4 {[-6-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<MI 24aa0 MOVE.L D6,-(A7)> Δ-4 {[-6-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D6']}
<Call 0x24aa2 0x24640> {[-6-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D6']}
<POP 24aa6-24aa8 StackAdj> Δ+12 {[-6-]}
<MI 24aa8 MOVE.B (A7)+,D0> Δ+2 {[-4-]}
<MI 24aaa CMPI.B #0x2f,D0> {[-4-]}
<MI 24aae BNE 0x24adc> {[-4-]}
<POP 24ab0-24ab4 Naked> Σ-4 Δ-4 ↓
<MI 24ab0 MOVE.L D5,-(A7)> Δ-4 {[-4-]|[4, 'D5']}
<MI 24ab2 MOVE.L D6,D7> {[-4-]|[4, 'D5']}
<POP 24ab4-24ab8 Naked> Σ-8 ↓ →0x24ad6 ←0x24ab8
<MI 24ab4 CMP.L (A7),D7> {[-8-]}
<MI 24ab6 BGT 0x24ad6> {[-8-]}
<POP 24ab8-24ad6 Naked> Σ-8 ↓ →0x24ab4
<MI 24ab8 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x10)']}
<POP 24abc-24abe StackAdj> Δ-2 {[-8-]|[4, '(A6+0x10)']|[-2-]}
<MI 24abe MOVE.L (A6+0xc),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x10)']|[-2-]|[4, '(A6+0xc)']}
<MI 24ac0 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x10)']|[-2-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<MI 24ac2 MOVE.L D7,-(A7)> Δ-4 {[-8-]|[4, '(A6+0x10)']|[-2-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D7']}
<Call 0x24ac4 0x24640> {[-8-]|[4, '(A6+0x10)']|[-2-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D7']}
<POP 24ac8-24aca StackAdj> Δ+12 {[-8-]|[4, '(A6+0x10)']|[-2-]}
<Call 0x24aca 0x102c0> {[-8-]|[4, '(A6+0x10)']|[-2-]}
AppendChar(MOD b : String; a : char)
<POP 24ad0-24ad2 StackAdj> Δ+6 {[-8-]}
<MI 24ad2 ADDQ.L #0x1,D7> {[-8-]}
<MI 24ad4 BVC 0x24ab4> {[-8-]}
<POP 24ad6-24adc Naked> Σ-8 Δ+8 →0x24ae2 ←0x24ab4
<POP 24ad6-24ad8 StackAdj> Δ+4 {[-4-]}
<POP 24ad8-24ada StackAdj> Δ+4 {}
<MI 24ada BRA 0x24ae2> {}
<POP 24adc-24ae0 Naked> Σ-4 ↓ →0x24a96 ←0x24a9a
<MI 24adc ADDQ.L #0x1,D6> {[-4-]}
<MI 24ade BVC 0x24a96> {[-4-]}
<POP 24ae0-24ae2 Naked> Σ-4 Δ+4 ↓ ←0x24a96
<POP 24ae0-24ae2 StackAdj> Δ+4 {}
<POP 24ae2-24aea Epilogue> Σ0 ←0x24ad6
@ 24aea
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 24aea-24b5a Body> Δ-4
<POP 24aea-24b00 Prologue> Σ0 ↓
<POP 24b00-24b18 Naked> Σ0 Δ-4 ↓
<MI 24b00 MOVEA.L (A6+0x10),A0> {}
<MI 24b04 CLR.W (A0)> {}
<POP 24b06-24b08 StackAdj> Δ-4 {[-4-]}
<MI 24b08 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']}
<MI 24b0c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x24b10 0x22a54> {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 24b14-24b16 StackAdj> Δ+8 {[-4-]}
<MI 24b16 MOVEQ.L #0x01,D7> {[-4-]}
<POP 24b18-24b1c Naked> Σ-4 ↓ →0x24b50 ←0x24b4c
<MI 24b18 CMP.L (A7),D7> {[-4-]}
<MI 24b1a BGT 0x24b50> {[-4-]}
<POP 24b1c-24b38 Naked> Σ-4 ↓ →0x24b48
<POP 24b1c-24b1e StackAdj> Δ-2 {[-6-]}
<MI 24b1e MOVE.L (A6+0xc),-(A7)> Δ-4 {[-6-]|[4, '(A6+0xc)']}
<MI 24b22 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-6-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<MI 24b26 MOVE.L D7,-(A7)> Δ-4 {[-6-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D7']}
<Call 0x24b28 0x24640> {[-6-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D7']}
<POP 24b2c-24b30 StackAdj> Δ+12 {[-6-]}
<MI 24b30 MOVE.B (A7)+,D6> Δ+2 {[-4-]}
<MI 24b32 CMPI.B #0x2f,D6> {[-4-]}
<MI 24b36 BEQ 0x24b48> {[-4-]}
<POP 24b38-24b48 Naked> Σ-4 →0x24b4c
<MI 24b38 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x10)']}
<MI 24b3c MOVE.B D6,-(A7)> Δ-2 {[-4-]|[4, '(A6+0x10)']|[2, 'D6']}
<Call 0x24b3e 0x102c0> {[-4-]|[4, '(A6+0x10)']|[2, 'D6']}
AppendChar(MOD b : String; a : char)
<POP 24b44-24b46 StackAdj> Δ+6 {[-4-]}
<MI 24b46 BRA 0x24b4c> {[-4-]}
<POP 24b48-24b4c Naked> Σ-4 Δ+4 →0x24b52 ←0x24b1c
<POP 24b48-24b4a StackAdj> Δ+4 {}
<MI 24b4a BRA 0x24b52> {}
<POP 24b4c-24b50 Naked> Σ-4 ↓ →0x24b18 ←0x24b38
<MI 24b4c ADDQ.L #0x1,D7> {[-4-]}
<MI 24b4e BVC 0x24b18> {[-4-]}
<POP 24b50-24b52 Naked> Σ-4 Δ+4 ↓ ←0x24b18
<POP 24b50-24b52 StackAdj> Δ+4 {}
<POP 24b52-24b5a Epilogue> Σ0 ←0x24b48
@ 24b5a
<POP 24b5a-24ba2 Body>
<POP 24b5a-24b70 Prologue> Σ0 ↓
<POP 24b70-24b9a Naked> Σ0 ↓
<Blob 0x24b70 [34] @> Δ-34 {[«34""»]}
<POP 24b7c-24b7e StackAdj> Δ-4 {[«34""»]|[-4-]}
<Lit 0x24b7e 34> {[«34""»]|[$$Switch exclusion is unimplemented.]}
<Call 0x24b92 0x21e42> {[«34""»]|[$$Switch exclusion is unimplemented.]}
<POP 24b96-24b9a StackAdj> Δ+38 {}
<POP 24b9a-24ba2 Epilogue> Σ0
@ 24ba2
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x006 4(rw)>
<POP 24ba2-24cdc Body>
<POP 24ba2-24bb8 Prologue> Σ0 ↓
<POP 24bb8-24bce RegCacheLoad> Σ0 ↓
<POP 24bce-24bdc Naked> Σ0 ↓ →0x24be4
<MI 24bce MOVE.L 0x2795a,(A6-0x6)> {}
<POP 24bd2-24bd4 StackAdj> Δ-2 {[-2-]}
<Call 0x24bd4 0x21ede> {[-2-]}
<MI 24bd6 MOVE.B (A7)+,D7> Δ+2 {}
<MI 24bd8 CMP.B #0x25,D7> {}
<MI 24bda BNE 0x24be4> {}
<POP 24bdc-24be4 Naked> Σ0 →0x24cc4
<MI 24bdc MOVEA.L (A6+0xc),A0> {}
<MI 24bde CLR.L (A0)> {}
<MI 24be0 BRA 0x24cc4> {}
<POP 24be4-24be8 Naked> Σ0 ↓ →0x24bf4 ←0x24bce
<MI 24be4 CMP.B #0x2d,D7> {}
<MI 24be6 BNE 0x24bf4> {}
<POP 24be8-24bf4 Naked> Σ0 →0x24cc4
<MI 24be8 MOVEA.L (A6+0xc),A0> {}
<MI 24bea MOVE.L #0x1,(A0)> {}
<MI 24bf0 BRA 0x24cc4> {}
<POP 24bf4-24bfa Naked> Σ0 ↓ →0x24c06 ←0x24be4
<MI 24bf4 CMPI.B #0x2f,D7> {}
<MI 24bf8 BNE 0x24c06> {}
<POP 24bfa-24c06 Naked> Σ0 →0x24cc4
<MI 24bfa MOVEA.L (A6+0xc),A0> {}
<MI 24bfc MOVE.L #0x4,(A0)> {}
<MI 24c02 BRA 0x24cc4> {}
<POP 24c06-24c0c Naked> Σ0 ↓ →0x24c18 ←0x24bf4
<MI 24c06 CMPI.B #0x3d,D7> {}
<MI 24c0a BNE 0x24c18> {}
<POP 24c0c-24c18 Naked> Σ0 →0x24cc4
<MI 24c0c MOVEA.L (A6+0xc),A0> {}
<MI 24c0e MOVE.L #0x5,(A0)> {}
<MI 24c14 BRA 0x24cc4> {}
<POP 24c18-24c1e Naked> Σ0 ↓ →0x24c2a ←0x24c06
<MI 24c18 CMPI.B #0x5c,D7> {}
<MI 24c1c BNE 0x24c2a> {}
<POP 24c1e-24c2a Naked> Σ0 →0x24cc4
<MI 24c1e MOVEA.L (A6+0xc),A0> {}
<MI 24c20 MOVE.L #0x6,(A0)> {}
<MI 24c26 BRA 0x24cc4> {}
<POP 24c2a-24c2e Naked> Σ0 ↓ →0x24c5a ←0x24c18
<MI 24c2a TST.B D7> {}
<MI 24c2c BNE 0x24c5a> {}
<POP 24c2e-24c5a Naked> Σ0 →0x24cc4
<Blob 0x24c2e [24] @> Δ-24 {[«24""»]}
<POP 24c3a-24c3c StackAdj> Δ-4 {[«24""»]|[-4-]}
<Lit 0x24c3c 24> {[«24""»]|[$$Illegal argument marker.]}
<Call 0x24c50 0x21e42> {[«24""»]|[$$Illegal argument marker.]}
<POP 24c54-24c58 StackAdj> Δ+28 {}
<MI 24c58 BRA 0x24cc4> {}
<POP 24c5a-24c5e Naked> Σ0 ↓ →0x24c8a ←0x24c2a
<MI 24c5a CMP.B #0x30,D7> {}
<MI 24c5c BCS 0x24c8a> {}
<POP 24c5e-24c62 Naked> Σ0 ↓ →0x24c8a
<MI 24c5e CMP.B #0x39,D7> {}
<MI 24c60 BHI 0x24c8a> {}
<POP 24c62-24c6a Naked> Σ0 ↓
<MI 24c62 MOVEA.L (A6+0xc),A0> {}
<MI 24c64 MOVE.L #0x2,(A0)> {}
<POP 24c6a-24c76 Naked> Σ0 ↓ →0x24c80 ←0x24c84
<POP 24c6a-24c6c StackAdj> Δ-2 {[-2-]}
<Call 0x24c6c 0x21ea0> {[-2-]}
<MI 24c70 MOVE.B (A7)+,D7> Δ+2 {}
<MI 24c72 CMP.B #0x30,D7> {}
<MI 24c74 BCS 0x24c80> {}
<POP 24c76-24c7a Naked> Σ0 ↓ →0x24c80
<MI 24c76 CMP.B #0x39,D7> {}
<MI 24c78 BHI 0x24c80> {}
<POP 24c7a-24c80 Naked> Σ0 ↓
<POP 24c7a-24c7c StackAdj> Δ-2 {[-2-]}
<Call 0x24c7c 0x21ede> {[-2-]}
<MI 24c7e MOVE.B (A7)+,D6> Δ+2 {}
<POP 24c80-24c84 Naked> Σ0 ↓ →0x24c88 ←0x24c6a ←0x24c76
<MI 24c80 CMP.B #0x30,D7> {}
<MI 24c82 BCS 0x24c88> {}
<POP 24c84-24c88 Naked> Σ0 ↓ →0x24c6a
<MI 24c84 CMP.B #0x39,D7> {}
<MI 24c86 BLS 0x24c6a> {}
<POP 24c88-24c8a Naked> Σ0 →0x24cc4 ←0x24c80
<MI 24c88 BRA 0x24cc4> {}
<POP 24c8a-24c94 Naked> Σ0 ↓ ←0x24c5a ←0x24c5e
<MI 24c8a MOVEA.L (A6+0xc),A0> {}
<MI 24c8c MOVE.L #0x3,(A0)> {}
<MI 24c92 MOVEQ.L #0x00,D5> {}
<POP 24c94-24ca0 Naked> Σ0 ↓ →0x24cb6 ←0x24cc0
<POP 24c94-24c96 StackAdj> Δ-2 {[-2-]}
<Call 0x24c96 0x21ea0> {[-2-]}
<MI 24c9a MOVE.B (A7)+,D7> Δ+2 {}
<MI 24c9c CMP.B #0x25,D7> {}
<MI 24c9e BEQ 0x24cb6> {}
<POP 24ca0-24ca4 Naked> Σ0 ↓ →0x24cb6
<MI 24ca0 CMP.B #0x2d,D7> {}
<MI 24ca2 BEQ 0x24cb6> {}
<POP 24ca4-24caa Naked> Σ0 ↓ →0x24cb6
<MI 24ca4 CMPI.B #0x2f,D7> {}
<MI 24ca8 BEQ 0x24cb6> {}
<POP 24caa-24cb0 Naked> Σ0 ↓ →0x24cb6
<MI 24caa CMPI.B #0x3d,D7> {}
<MI 24cae BEQ 0x24cb6> {}
<POP 24cb0-24cb6 Naked> Σ0 ↓ →0x24cba
<MI 24cb0 CMPI.B #0x5c,D7> {}
<MI 24cb4 BNE 0x24cba> {}
<POP 24cb6-24cba Naked> Σ0 →0x24cc0 ←0x24c94 ←0x24ca0 ←0x24ca4 ←0x24caa
<MI 24cb6 MOVEQ.L #0x01,D5> {}
<MI 24cb8 BRA 0x24cc0> {}
<POP 24cba-24cc0 Naked> Σ0 ↓ ←0x24cb0
<POP 24cba-24cbc StackAdj> Δ-2 {[-2-]}
<Call 0x24cbc 0x21ede> {[-2-]}
<MI 24cbe MOVE.B (A7)+,D6> Δ+2 {}
<POP 24cc0-24cc4 Naked> Σ0 ↓ →0x24c94 ←0x24cb6
<MI 24cc0 TST.B D5> {}
<MI 24cc2 BEQ 0x24c94> {}
<POP 24cc4-24cd4 Naked> Σ0 ↓ ←0x24bdc ←0x24be8 ←0x24bfa ←0x24c0c ←0x24c1e ←0x24c2e ←0x24c88
<MI 24cc4 MOVEA.L (A6+0x8),A0> {}
<MI 24cc8 MOVE.L (A6-0x6),(A0)> {}
<MI 24ccc MOVE.L 0x2795a,(A0+0x4)> {}
<MI 24cd0 SUBQ.L #0x1,(A0+0x4)> {}
<POP 24cd4-24cdc Epilogue> Σ0
@ 24cdc
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 24cdc-24d62 Body>
<POP 24cdc-24cf2 Prologue> Σ0 ↓
<POP 24cf2-24cf6 RegCacheLoad> Σ0 ↓
<POP 24cf6-24d10 Naked> Σ0 Δ-4 ↓ →0x24d1c
<MI 24cf6 MOVEA.L (A6+0x8),A0> {}
<MI 24cfa MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 24cfc MOVE.L 0x2795a,D6> {[4, 'A0']}
<MI 24d02 SUB.L (A6+0xc),D6> {[4, 'A0']}
<MI 24d04 MOVE.L (A6+0xc),D5> {[4, 'A0']}
<MI 24d06 ADD.L D6,D5> {[4, 'A0']}
<MI 24d08 MOVE.W (A0),D0> {[4, 'A0']}
<MI 24d0a EXTW.L D0> {[4, 'A0']}
<MI 24d0c CMP.L D6,D0> {[4, 'A0']}
<MI 24d0e BEQ 0x24d1c> {[4, 'A0']}
<POP 24d10-24d1c Naked> Σ-4 ↓
<MI 24d10 MOVE.L D5,-(A7)> Δ-4 {[-4-]|[4, 'D5']}
<MI 24d12 MOVE.L D6,-(A7)> Δ-4 {[-4-]|[4, 'D5']|[4, 'D6']}
<MI 24d14 SUB.L D0,(A7)> {[-4-]|[4, 'D5']|[-4-]}
<Call 0x24d16 0x22396> {[-4-]|[4, 'D5']|[-4-]}
<POP 24d1a-24d1c StackAdj> Δ+8 {[-4-]}
<POP 24d1c-24d20 Naked> Σ-4 Δ-4 ↓ ←0x24cf6
<MI 24d1c MOVE.L D0,-(A7)> Δ-4 {[-4-]|[4, 'D0']}
<MI 24d1e MOVEQ.L #0x01,D7> {[-4-]|[4, 'D0']}
<POP 24d20-24d24 Naked> Σ-8 ↓ →0x24d58 ←0x24d24
<MI 24d20 CMP.L (A7),D7> {[-8-]}
<MI 24d22 BGT 0x24d58> {[-8-]}
<POP 24d24-24d58 Naked> Σ-8 ↓ →0x24d20
<MI 24d24 MOVE.L (A6+0xc),D0> {[-8-]}
<MI 24d26 ADD.L D7,D0> {[-8-]}
<MI 24d28 SUBQ.L #0x1,D0> {[-8-]}
<MI 24d2a SUBQ.L #0x1,D0> {[-8-]}
<POP 0x24d2c LimitCheck 0x0 ≤ D0 ≤ 0x1fff> {[-8-]}
<MI 24d36 LEA.L 0x25952,A0> {[-8-]}
<MI 24d3c MOVE.L D7,D1> {[-8-]}
<MI 24d3e SUBQ.L #0x1,D1> {[-8-]}
<POP 0x24d40 LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-8-]}
<MI 24d4a MOVEA.L (A7+0x4),A1> {[-8-]}
<MI 24d4e MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x8)> {[-8-]}
<MI 24d54 ADDQ.L #0x1,D7> {[-8-]}
<MI 24d56 BVC 0x24d20> {[-8-]}
<POP 24d58-24d5a Naked> Σ-8 Δ+8 ↓ ←0x24d20
<POP 24d58-24d5a StackAdj> Δ+8 {}
<POP 24d5a-24d62 Epilogue> Σ0
@ 24d62
<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 24d62-24faa Body> Δ+56
<POP 24d62-24d78 Prologue> Σ0 ↓
<POP 24d78-24d8a RegCacheLoad> Σ0 ↓
<POP 24d8a-24dae Naked> Σ0 ↓
<MI 24d8a MOVE.L 0x2795a,(A6-0x28)> {}
<Pointer.fp 0x24d92 <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-8]}
<Call 0x24d94 0x102b8> {[@@-8]}
NewString(VAR a : String)
<POP 24d9a-24d9c StackAdj> Δ+4 {}
<Pointer.fp 0x24d9c <LVAR -0x00c @ 4(r)>> Δ-4 {[@@-12]}
<Pointer.fp 0x24da0 <LVAR -0x014 @ 4(r)>> Δ-4 {[@@-12]|[@@-20]}
<Call 0x24da2 0x24ba2> {[@@-12]|[@@-20]}
<POP 24da6-24da8 StackAdj> Δ+8 {}
<MI 24da8 CLR.L (A6-0x34)> {}
<MI 24dac MOVEQ.L #0x00,D7> {}
<POP 24dae-24dc2 Naked> Σ0 →0x24dec →0x24df6 →0x24e0a →0x24e26 →0x24e2a →0x24e38 →0x24e4c →0x24e52 →0x24e54 →0x24e6a →0x24e78 →0x24e90 →0x24ea4 →0x24eb8 →0x24ece →0x24ed0 →0x24eea →0x24f00 →0x24f0e →0x24f10 →0x24f12 ←0x24f86
<MI 24dae MOVE.L (A6-0x34),D0> {}
<POP 0x24db2 LimitCheck 0x0 ≤ D0 ≤ 0x14> {}
<MI 24db8 ADD.W D0,D0> {}
<MI 24dba SWITCH D0.W> {}
<POP 24dec-24df6 Naked> Σ0 →0x24f3c ←0x24dae
<MI 24dec MOVEQ.L #0x00,D6> {}
<MI 24dee MOVE.L (A6+0x8),D5> {}
<MI 24df2 BRA 0x24f3c> {}
<POP 24df6-24e0a Naked> Σ0 →0x24f3c ←0x24dae
<POP 24df6-24df8 StackAdj> Δ-4 {[-4-]}
<MI 24df8 MOVE.L (A6-0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x10)']}
<MI 24dfc MOVE.L (A6-0x14),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<Call 0x24dfe 0x24680> {[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<POP 24e02-24e04 StackAdj> Δ+8 {[-4-]}
<MI 24e04 MOVE.L (A7)+,D6> Δ+4 {}
<MI 24e06 BRA 0x24f3c> {}
<POP 24e0a-24e12 Naked> Σ0 Δ-12 ↓ ←0x24dae
<MI 24e0a MOVE.L (A6-0x28),-(A7)> Δ-4 {[4, '(A6-0x28)']}
<MI 24e0e MOVE.L D6,-(A7)> Δ-4 {[4, '(A6-0x28)']|[4, 'D6']}
<MI 24e10 MOVE.L D6,-(A7)> Δ-4 {[4, '(A6-0x28)']|[4, 'D6']|[4, 'D6']}
<POP 24e12-24e22 Naked> Σ-12 Δ+12 →0x24f98 ←0x24e2a
<MI 24e12 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-12-]|[4, '(A6+0xc)']}
<Call 0x24e16 0x246fc> {[-12-]|[4, '(A6+0xc)']}
<POP 24e1a-24e1e StackAdj> Δ+16 {}
<MI 24e1e BRA 0x24f98> {}
<POP 24e26-24e2a Naked> Σ0 →0x24f3c ←0x24dae
<MI 24e26 BRA 0x24f3c> {}
<POP 24e2a-24e34 Naked> Σ0 Δ-12 →0x24e12 ←0x24dae
<MI 24e2a MOVE.L (A6-0x28),-(A7)> Δ-4 {[4, '(A6-0x28)']}
<MI 24e2e MOVE.L D6,-(A7)> Δ-4 {[4, '(A6-0x28)']|[4, 'D6']}
<MI 24e30 MOVE.L D5,-(A7)> Δ-4 {[4, '(A6-0x28)']|[4, 'D6']|[4, 'D5']}
<MI 24e32 BRA 0x24e12> {[4, '(A6-0x28)']|[4, 'D6']|[4, 'D5']}
<POP 24e38-24e4c Naked> Σ0 →0x24f3c ←0x24dae ←0x24e52
<POP 24e38-24e3a StackAdj> Δ-4 {[-4-]}
<MI 24e3a MOVE.L (A6-0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x10)']}
<MI 24e3e MOVE.L (A6-0x14),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<Call 0x24e40 0x24680> {[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<POP 24e44-24e46 StackAdj> Δ+8 {[-4-]}
<MI 24e46 MOVE.L (A7)+,D5> Δ+4 {}
<MI 24e48 BRA 0x24f3c> {}
<POP 24e4c-24e52 Naked> Σ0 →0x24f3c ←0x24dae
<MI 24e4c MOVEQ.L #0x01,D6> {}
<MI 24e4e BRA 0x24f3c> {}
<POP 24e52-24e54 Naked> Σ0 →0x24e38 ←0x24dae
<MI 24e52 BRA 0x24e38> {}
<POP 24e54-24e6a Naked> Σ0 →0x24f3c ←0x24dae
<POP 24e54-24e56 StackAdj> Δ-8 {[-8-]}
<MI 24e56 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-8-]|[4, '(A6+0xc)']}
<MI 24e5a MOVE.L D6,-(A7)> Δ-4 {[-8-]|[4, '(A6+0xc)']|[4, 'D6']}
<Call 0x24e5c 0x22a8c> {[-8-]|[4, '(A6+0xc)']|[4, 'D6']}
<POP 24e60-24e62 StackAdj> Δ+8 {[-8-]}
<MI 24e62 MOVE.L (A7)+,(A6-0x24)> Δ+4 {[-4-]}
<MI 24e64 MOVE.L (A7)+,(A6-0x20)> Δ+4 {}
<MI 24e66 BRA 0x24f3c> {}
<POP 24e6a-24e78 Naked> Σ0 →0x24f3c ←0x24dae
<MI 24e6a MOVE.L (A6-0x14),(A6-0x1c)> {}
<MI 24e6e MOVE.L (A6-0x10),(A6-0x18)> {}
<MI 24e74 BRA 0x24f3c> {}
<POP 24e78-24e8a Naked> Σ0 Δ-20 ↓ ←0x24dae
<MI 24e78 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<MI 24e7a MOVE.L (A6-0x20),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']}
<MI 24e7c MOVE.L (A6-0x24),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']}
<MI 24e7e MOVE.L (A6-0x18),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']}
<MI 24e82 MOVE.L (A6-0x1c),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<Call 0x24e86 0x249ae> {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<POP 24e8a-24e90 Naked> Σ-20 Δ+20 →0x24f3c ←0x24e90
<POP 24e8a-24e8c StackAdj> Δ+20 {}
<MI 24e8c BRA 0x24f3c> {}
<POP 24e90-24ea4 Naked> Σ0 Δ-20 →0x24e8a ←0x24dae
<MI 24e90 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<MI 24e92 MOVE.L (A6-0x20),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']}
<MI 24e94 MOVE.L (A6-0x24),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']}
<MI 24e96 MOVE.L (A6-0x18),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']}
<MI 24e9a MOVE.L (A6-0x1c),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<Call 0x24e9e 0x2491a> {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<MI 24ea2 BRA 0x24e8a> {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<POP 24ea4-24eae Naked> Σ0 Δ-12 ↓ ←0x24dae
<MI 24ea4 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<MI 24ea6 MOVE.L (A6-0x20),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']}
<MI 24ea8 MOVE.L (A6-0x24),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']}
<Call 0x24eaa 0x24a64> {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']}
<POP 24eae-24eb2 Naked> Σ-12 Δ+12 ↓ ←0x24eea
<POP 24eae-24eb2 StackAdj> Δ+12 {}
<POP 24eb2-24eb8 Naked> Σ0 →0x24f3c ←0x24eb8 ←0x24ece ←0x24f10
<MI 24eb2 MOVEQ.L #0x01,D7> {}
<MI 24eb4 BRA 0x24f3c> {}
<POP 24eb8-24ece Naked> Σ0 →0x24eb2 ←0x24dae
<MI 24eb8 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<MI 24eba MOVE.L (A6-0x20),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']}
<MI 24ebc MOVE.L (A6-0x24),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']}
<MI 24ebe MOVE.L (A6-0x18),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']}
<MI 24ec2 MOVE.L (A6-0x1c),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<Call 0x24ec6 0x2491a> {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<POP 24eca-24ecc StackAdj> Δ+20 {}
<MI 24ecc BRA 0x24eb2> {}
<POP 24ece-24ed0 Naked> Σ0 →0x24eb2 ←0x24dae
<MI 24ece BRA 0x24eb2> {}
<POP 24ed0-24ee4 Naked> Σ0 Δ-12 ↓ ←0x24dae
<MI 24ed0 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<POP 24ed2-24ed4 StackAdj> Δ-8 {[4, '(A6-0x8)']|[-8-]}
<MI 24ed4 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6-0x8)']|[-8-]|[4, '(A6+0xc)']}
<MI 24ed8 MOVE.L D6,-(A7)> Δ-4 {[4, '(A6-0x8)']|[-8-]|[4, '(A6+0xc)']|[4, 'D6']}
<Call 0x24eda 0x22a8c> {[4, '(A6-0x8)']|[-8-]|[4, '(A6+0xc)']|[4, 'D6']}
<POP 24ede-24ee0 StackAdj> Δ+8 {[4, '(A6-0x8)']|[-8-]}
<Call 0x24ee0 0x24a64> {[4, '(A6-0x8)']|[-8-]}
<POP 24ee4-24eea Naked> Σ-12 Δ+12 →0x24f3c ←0x24f00
<POP 24ee4-24ee8 StackAdj> Δ+12 {}
<MI 24ee8 BRA 0x24f3c> {}
<POP 24eea-24f00 Naked> Σ0 Δ-12 →0x24eae ←0x24dae
<MI 24eea MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<POP 24eec-24eee StackAdj> Δ-8 {[4, '(A6-0x8)']|[-8-]}
<MI 24eee MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6-0x8)']|[-8-]|[4, '(A6+0xc)']}
<MI 24ef2 MOVE.L D6,-(A7)> Δ-4 {[4, '(A6-0x8)']|[-8-]|[4, '(A6+0xc)']|[4, 'D6']}
<Call 0x24ef4 0x22a8c> {[4, '(A6-0x8)']|[-8-]|[4, '(A6+0xc)']|[4, 'D6']}
<POP 24ef8-24efa StackAdj> Δ+8 {[4, '(A6-0x8)']|[-8-]}
<Call 0x24efa 0x24aea> {[4, '(A6-0x8)']|[-8-]}
<MI 24efe BRA 0x24eae> {[4, '(A6-0x8)']|[-8-]}
<POP 24f00-24f0e Naked> Σ0 Δ-12 →0x24ee4 ←0x24dae
<MI 24f00 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<MI 24f02 MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x10)']}
<MI 24f06 MOVE.L (A6-0x14),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<Call 0x24f08 0x24b5a> {[4, '(A6-0x8)']|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<MI 24f0c BRA 0x24ee4> {[4, '(A6-0x8)']|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<POP 24f0e-24f10 Naked> Σ0 →0x24f3c ←0x24dae
<MI 24f0e BRA 0x24f3c> {}
<POP 24f10-24f12 Naked> Σ0 →0x24eb2 ←0x24dae
<MI 24f10 BRA 0x24eb2> {}
<POP 24f12-24f3c Naked> Σ0 ↓ ←0x24dae
<Blob 0x24f12 [24] @> Δ-24 {[«24""»]}
<POP 24f1e-24f20 StackAdj> Δ-4 {[«24""»]|[-4-]}
<Lit 0x24f20 24> {[«24""»]|[$$Illegal argument marker.]}
<Call 0x24f34 0x21e42> {[«24""»]|[$$Illegal argument marker.]}
<POP 24f38-24f3c StackAdj> Δ+28 {}
<POP 24f3c-24f40 Naked> Σ0 ↓ →0x24f86 ←0x24dec ←0x24df6 ←0x24e26 ←0x24e38 ←0x24e4c ←0x24e54 ←0x24e6a ←0x24e8a ←0x24eb2 ←0x24ee4 ←0x24f0e
<MI 24f3c TST.B D7> {}
<MI 24f3e BNE 0x24f86> {}
<POP 24f40-24f86 Naked> Σ0 ↓
<Pointer.fp 0x24f40 <LVAR -0x00c @ 4(r)>> Δ-4 {[@@-12]}
<Pointer.fp 0x24f44 <LVAR -0x014 @ 4(r)>> Δ-4 {[@@-12]|[@@-20]}
<Call 0x24f46 0x24ba2> {[@@-12]|[@@-20]}
<POP 24f4a-24f4c StackAdj> Δ+8 {}
<MI 24f4c MOVE.L (A6-0x34),D0> {}
<POP 0x24f50 LimitCheck 0x0 ≤ D0 ≤ 0x13> {}
<MI 24f5a MOVE.L D0,D4> {}
<MI 24f5c MOVEQ.L #0x07,D3> {}
<Call 0x24f5e 0x1028c> {}
?muls_d3_d4
<MI 24f64 LEA.L 0x21d74,A0> {}
<MI 24f68 MOVE.L (A6-0xc),D0> {}
<POP 0x24f6c LimitCheck 0x0 ≤ D0 ≤ 0x6> {}
<MI 24f76 LEA.L (A0+D4.L),A0> {}
<MI 24f7a MOVE.B (A0+D0.L),D1> {}
<MI 24f7e EXTB.W D1> {}
<MI 24f80 EXTW.L D1> {}
<MI 24f82 MOVE.L D1,(A6-0x34)> {}
<POP 24f86-24f8c Naked> Σ0 ↓ →0x24dae ←0x24f3c
<MI 24f86 TST.B D7> {}
<MI 24f88 BEQ 0x24dae> {}
<POP 24f8c-24f98 Naked> Σ0 ↓
<MI 24f8c MOVE.L (A6-0x28),-(A7)> Δ-4 {[4, '(A6-0x28)']}
<MI 24f90 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x28)']|[4, '(A6-0x8)']}
<Call 0x24f92 0x24cdc> {[4, '(A6-0x28)']|[4, '(A6-0x8)']}
<POP 24f96-24f98 StackAdj> Δ+8 {}
<POP 24f98-24fa2 Naked> Σ0 ↓ ←0x24e12
<Pointer.fp 0x24f98 <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-8]}
<Call 0x24f9a 0x102bc> {[@@-8]}
FreeString(VAR a : String)
<POP 24fa0-24fa2 StackAdj> Δ+4 {}
<POP 24fa2-24faa Epilogue> Σ0
@ 24faa
<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 24faa-250a2 Body> Δ-12
<POP 24faa-24fc0 Prologue> Σ0 ↓
<POP 24fc0-24fd2 RegCacheLoad> Σ0 ↓
<POP 24fd2-24ffa Naked> Σ0 Δ-4 ↓
<MI 24fd2 CLR.L (A6+0x14)> {}
<POP 24fd6-24fd8 StackAdj> Δ-4 {[-4-]}
<MI 24fd8 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x10)']}
<MI 24fda MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<Call 0x24fdc 0x22a54> {[-4-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<POP 24fe0-24fe2 StackAdj> Δ+8 {[-4-]}
<MI 24fe2 MOVE.L (A7)+,(A6-0xc)> Δ+4 {}
<MI 24fe4 MOVEA.L (A6+0x8),A0> {}
<MI 24fe8 MOVE.W (A0),D0> {}
<MI 24fea EXTW.L D0> {}
<MI 24fec ADDQ.L #0x1,D0> {}
<MI 24fee MOVE.L D0,(A6-0x8)> {}
<MI 24ff0 NEG.L D0> {}
<MI 24ff2 ADD.L (A6-0xc),D0> {}
<MI 24ff4 ADDQ.L #0x1,D0> {}
<MI 24ff6 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 24ff8 MOVEQ.L #0x01,D0> {[4, 'D0']}
<POP 24ffa-25000 Naked> Σ-4 ↓ →0x25098 ←0x25090
<MI 24ffa CMP.L (A7),D0> {[-4-]}
<MI 24ffc BGT 0x25098> {[-4-]}
<POP 25000-2500c Naked> Σ-4 Δ-8 ↓
<MI 25000 MOVE.L D0,(A6-0x18)> {[-4-]}
<MI 25004 MOVE.L D0,-(A7)> Δ-4 {[-4-]|[4, 'D0']}
<MI 25006 MOVEQ.L #0x00,D6> {[-4-]|[4, 'D0']}
<MI 25008 MOVE.L (A6-0x8),-(A7)> Δ-4 {[-4-]|[4, 'D0']|[4, '(A6-0x8)']}
<MI 2500a MOVEQ.L #0x01,D5> {[-4-]|[4, 'D0']|[4, '(A6-0x8)']}
<POP 2500c-25010 Naked> Σ-12 ↓ →0x25058 ←0x25052
<MI 2500c CMP.L (A7),D5> {[-12-]}
<MI 2500e BGT 0x25058> {[-12-]}
<POP 25010-25018 Naked> Σ-12 ↓ →0x2501c
<MI 25010 CMPI.L #0x00000001,D5> {[-12-]}
<MI 25016 BNE 0x2501c> {[-12-]}
<POP 25018-2501c Naked> Σ-12 →0x25034
<MI 25018 MOVEQ.L #0x2f,D7> {[-12-]}
<MI 2501a BRA 0x25034> {[-12-]}
<POP 2501c-25034 Naked> Σ-12 ↓ ←0x25010
<MI 2501c MOVEA.L (A6+0x8),A0> {[-12-]}
<MI 25020 MOVE.L D5,D0> {[-12-]}
<MI 25022 SUBQ.L #0x1,D0> {[-12-]}
<MI 25024 SUBQ.L #0x1,D0> {[-12-]}
<POP 0x25026 LimitCheck 0x0 ≤ D0 ≤ 0x7d> {[-12-]}
<MI 25030 MOVE.B (A0+D0.L+#0x2),D7> {[-12-]}
<POP 25034-2504e Naked> Σ-12 ↓ →0x25052 ←0x25018
<POP 25034-25036 StackAdj> Δ-2 {[-14-]}
<MI 25036 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-14-]|[4, '(A6+0x10)']}
<MI 25038 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-14-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<MI 2503a MOVE.L (A7+0xe),D0> {[-14-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<MI 2503e ADD.L D5,D0> {[-14-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<MI 25040 SUBQ.L #0x1,D0> {[-14-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<MI 25042 MOVE.L D0,-(A7)> Δ-4 {[-14-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, 'D0']}
<Call 0x25044 0x24640> {[-14-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, 'D0']}
<POP 25048-2504a StackAdj> Δ+12 {[-14-]}
<MI 2504a CMP.B (A7)+,D7> Δ+2 {[-12-]}
<MI 2504c BEQ 0x25052> {[-12-]}
<POP 2504e-25052 Naked> Σ-12 Δ+4 →0x2505a
<POP 2504e-25050 StackAdj> Δ+4 {[-8-]}
<MI 25050 BRA 0x2505a> {[-8-]}
<POP 25052-25058 Naked> Σ-12 ↓ →0x2500c ←0x25034
<MI 25052 MOVE.L D5,D6> {[-12-]}
<MI 25054 ADDQ.L #0x1,D5> {[-12-]}
<MI 25056 BVC 0x2500c> {[-12-]}
<POP 25058-2505a Naked> Σ-12 Δ+4 ↓ ←0x2500c
<POP 25058-2505a StackAdj> Δ+4 {[-8-]}
<POP 2505a-2505e Naked> Σ-8 ↓ →0x25090 ←0x2504e
<MI 2505a CMP.L (A6-0x8),D6> {[-8-]}
<MI 2505c BNE 0x25090> {[-8-]}
<POP 2505e-25068 Naked> Σ-8 ↓ →0x2508e
<MI 2505e MOVE.L (A7),D0> {[-8-]}
<MI 25060 MOVE.L D0,D1> {[-8-]}
<MI 25062 ADD.L (A6-0x8),D1> {[-8-]}
<MI 25064 CMP.L (A6-0xc),D1> {[-8-]}
<MI 25066 BGE 0x2508e> {[-8-]}
<POP 25068-2507e Naked> Σ-8 ↓ →0x25084
<POP 25068-2506a StackAdj> Δ-2 {[-10-]}
<MI 2506a MOVE.L (A6+0x10),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x10)']}
<MI 2506c MOVE.L (A6+0xc),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<MI 2506e MOVE.L D1,-(A7)> Δ-4 {[-10-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, 'D1']}
<Call 0x25070 0x24640> {[-10-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, 'D1']}
<POP 25074-25076 StackAdj> Δ+12 {[-10-]}
<MI 25076 MOVE.B (A7)+,D7> Δ+2 {[-8-]}
<MI 25078 CMPI.B #0x2f,D7> {[-8-]}
<MI 2507c BEQ 0x25084> {[-8-]}
<POP 2507e-25084 Naked> Σ-8 ↓ →0x2508c
<MI 2507e CMPI.B #0x3d,D7> {[-8-]}
<MI 25082 BNE 0x2508c> {[-8-]}
<POP 25084-2508c Naked> Σ-8 Δ+8 →0x2509a ←0x25068 ←0x2508e
<MI 25084 MOVE.L D0,(A6+0x14)> {[-8-]}
<POP 25088-2508a StackAdj> Δ+8 {}
<MI 2508a BRA 0x2509a> {}
<POP 2508c-2508e Naked> Σ-8 →0x25090 ←0x2507e
<MI 2508c BRA 0x25090> {[-8-]}
<POP 2508e-25090 Naked> Σ-8 →0x25084 ←0x2505e
<MI 2508e BRA 0x25084> {[-8-]}
<POP 25090-25098 Naked> Σ-8 Δ+4 ↓ →0x24ffa ←0x2505a ←0x2508c
<MI 25090 MOVE.L (A7)+,D0> Δ+4 {[-4-]}
<MI 25092 ADDQ.L #0x1,D0> {[-4-]}
<MI 25094 BVC 0x24ffa> {[-4-]}
<POP 25098-2509a Naked> Σ-4 Δ+4 ↓ ←0x24ffa
<POP 25098-2509a StackAdj> Δ+4 {}
<POP 2509a-250a2 Epilogue> Σ0 ←0x25084
@ 250a2
<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 250a2-2518a Body> Δ-12
<POP 250a2-250b8 Prologue> Σ0 ↓
<POP 250b8-250c8 RegCacheLoad> Σ0 ↓
<POP 250c8-250ee Naked> Σ0 ↓ →0x25182
<MI 250c8 MOVEA.L (A6+0x8),A0> {}
<MI 250cc CLR.B (A0)> {}
<MI 250ce MOVEA.L (A6+0xc),A1> {}
<MI 250d2 MOVE.L #0x01,(A1)> {}
<POP 250d4-250d6 StackAdj> Δ-8 {[-8-]}
<MI 250d6 MOVE.L (A6+0x18),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x18)']}
<MI 250da MOVE.L (A6+0x14),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x18)']|[4, '(A6+0x14)']}
<Call 0x250de 0x22a8c> {[-8-]|[4, '(A6+0x18)']|[4, '(A6+0x14)']}
<POP 250e2-250e4 StackAdj> Δ+8 {[-8-]}
<MI 250e4 MOVE.L (A7)+,(A6-0x1c)> Δ+4 {[-4-]}
<MI 250e6 MOVE.L (A7)+,(A6-0x18)> Δ+4 {}
<MI 250e8 TST.L (A6-0x1c)> {}
<MI 250ea BEQ 0x25182> {}
<POP 250ee-25104 Naked> Σ0 ↓ →0x25182
<POP 250ee-250f0 StackAdj> Δ-4 {[-4-]}
<MI 250f0 MOVE.L (A6-0x18),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x18)']}
<MI 250f2 MOVE.L (A6-0x1c),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<MI 250f4 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, '(A6+0x10)']}
<Call 0x250f8 0x24faa> {[-4-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, '(A6+0x10)']}
<POP 250fc-250fe StackAdj> Δ+12 {[-4-]}
<MI 250fe MOVE.L (A7)+,(A6-0x14)> Δ+4 {}
<MI 25102 BEQ 0x25182> {}
<POP 25104-25124 Naked> Σ0 Δ-4 ↓
<MI 25104 MOVE.B #0x01,(A0)> {}
<MI 25106 PEA.L (A1)> Δ-4 {[4, '^(A1)']}
<Call 0x25108 0x102b8> {[4, '^(A1)']}
NewString(VAR a : String)
<MI 2510e MOVE.L (A6-0x18),-(A7)> Δ-4 {[4, '^(A1)']|[4, '(A6-0x18)']}
<MI 25110 MOVE.L (A6-0x1c),-(A7)> Δ-4 {[4, '^(A1)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<Call 0x25112 0x22a54> {[4, '^(A1)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<POP 25116-25118 StackAdj> Δ+8 {[4, '^(A1)']}
<MI 25118 MOVE.L (A7)+,(A6-0x8)> Δ+4 {}
<MI 2511a MOVE.L (A6-0x14),D0> {}
<MI 2511e ADDQ.L #0x1,D0> {}
<MI 25120 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<MI 25122 MOVE.L D0,D5> {[4, '(A6-0x8)']}
<POP 25124-25128 Naked> Σ-4 ↓ →0x25180 ←0x2517c
<MI 25124 CMP.L (A7),D5> {[-4-]}
<MI 25126 BGT 0x25180> {[-4-]}
<POP 25128-2513e Naked> Σ-4 ↓ →0x2517c
<POP 25128-2512a StackAdj> Δ-2 {[-6-]}
<MI 2512a MOVE.L (A6-0x18),-(A7)> Δ-4 {[-6-]|[4, '(A6-0x18)']}
<MI 2512c MOVE.L (A6-0x1c),-(A7)> Δ-4 {[-6-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<MI 2512e MOVE.L D5,-(A7)> Δ-4 {[-6-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, 'D5']}
<Call 0x25130 0x24640> {[-6-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, 'D5']}
<POP 25134-25136 StackAdj> Δ+12 {[-6-]}
<MI 25136 MOVE.B (A7)+,D0> Δ+2 {[-4-]}
<MI 25138 CMPI.B #0x3d,D0> {[-4-]}
<MI 2513c BNE 0x2517c> {[-4-]}
<POP 2513e-25146 Naked> Σ-4 Δ-4 ↓
<MI 2513e MOVE.L D5,D0> {[-4-]}
<MI 25140 ADDQ.L #0x1,D0> {[-4-]}
<MI 25142 MOVE.L (A6-0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x8)']}
<MI 25144 MOVE.L D0,D7> {[-4-]|[4, '(A6-0x8)']}
<POP 25146-2514a Naked> Σ-8 ↓ →0x25178 ←0x25164
<MI 25146 CMP.L (A7),D7> {[-8-]}
<MI 25148 BGT 0x25178> {[-8-]}
<POP 2514a-25160 Naked> Σ-8 ↓ →0x25164
<POP 2514a-2514c StackAdj> Δ-2 {[-10-]}
<MI 2514c MOVE.L (A6-0x18),-(A7)> Δ-4 {[-10-]|[4, '(A6-0x18)']}
<MI 2514e MOVE.L (A6-0x1c),-(A7)> Δ-4 {[-10-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<MI 25150 MOVE.L D7,-(A7)> Δ-4 {[-10-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, 'D7']}
<Call 0x25152 0x24640> {[-10-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, 'D7']}
<POP 25156-25158 StackAdj> Δ+12 {[-10-]}
<MI 25158 MOVE.B (A7)+,D6> Δ+2 {[-8-]}
<MI 2515a CMPI.B #0x2f,D6> {[-8-]}
<MI 2515e BNE 0x25164> {[-8-]}
<POP 25160-25164 Naked> Σ-8 Δ+8 →0x25182
<POP 25160-25162 StackAdj> Δ+8 {}
<MI 25162 BRA 0x25182> {}
<POP 25164-25178 Naked> Σ-8 ↓ →0x25146 ←0x2514a
<MI 25164 MOVEA.L (A6+0xc),A0> {[-8-]}
<MI 25168 MOVE.L (A0),-(A7)> Δ-4 {[-8-]|[4, '(A0)']}
<MI 2516a MOVE.B D6,-(A7)> Δ-2 {[-8-]|[4, '(A0)']|[2, 'D6']}
<Call 0x2516c 0x102c0> {[-8-]|[4, '(A0)']|[2, 'D6']}
AppendChar(MOD b : String; a : char)
<POP 25172-25174 StackAdj> Δ+6 {[-8-]}
<MI 25174 ADDQ.L #0x1,D7> {[-8-]}
<MI 25176 BVC 0x25146> {[-8-]}
<POP 25178-2517c Naked> Σ-8 Δ+8 →0x25182 ←0x25146
<POP 25178-2517a StackAdj> Δ+8 {}
<MI 2517a BRA 0x25182> {}
<POP 2517c-25180 Naked> Σ-4 ↓ →0x25124 ←0x25128
<MI 2517c ADDQ.L #0x1,D5> {[-4-]}
<MI 2517e BVC 0x25124> {[-4-]}
<POP 25180-25182 Naked> Σ-4 Δ+4 ↓ ←0x25124
<POP 25180-25182 StackAdj> Δ+4 {}
<POP 25182-2518a Epilogue> Σ0 ←0x250c8 ←0x250ee ←0x25160 ←0x25178
@ 2518a
<LVAR 0x00c @ 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x010 @ 1(r)>
<POP 2518a-25228 Body>
<POP 2518a-251a0 Prologue> Σ0 ↓
<POP 251a0-251ae RegCacheLoad> Σ0 ↓
<POP 251ae-251c6 Naked> Σ0 ↓ →0x25216
<MI 251ae MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<MI 251b0 MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Pointer.fp 0x251b2 <LVAR -0x010 @ 1(r)>> Δ-4 {[4, '(A6+0xc)']|[4, '(A6+0x8)']|[@@-16]}
<Call 0x251b6 0x2158a> {[4, '(A6+0xc)']|[4, '(A6+0x8)']|[@@-16]}
<POP 251bc-251c0 StackAdj> Δ+12 {}
<MI 251c0 TST.B (A6-0x10)> {}
<MI 251c4 BNE 0x25216> {}
<POP 251c6-251e0 Naked> Σ0 ↓
<MI 251c6 MOVE.L 0x2795a,D7> {}
<POP 251c8-251ca StackAdj> Δ-4 {[-4-]}
<MI 251ca MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x251cc 0x2224e> {[-4-]|[4, '(A6+0x8)']}
<POP 251d0-251d2 StackAdj> Δ+4 {[-4-]}
<MI 251d2 MOVE.L (A7)+,D6> Δ+4 {}
<MI 251d4 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<MI 251d6 MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x251d8 0x24504> {[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 251dc-251de StackAdj> Δ+8 {}
<MI 251de MOVE.L 0x2795a,D5> {}
<POP 251e0-251fe Naked> Σ0 ↓ →0x2520a ←0x2520a
<MI 251e0 MOVE.L D7,D0> {}
<MI 251e2 SUBQ.L #0x1,D0> {}
<POP 0x251e4 LimitCheck 0x0 ≤ D0 ≤ 0x1fff> {}
<MI 251ee LEA.L 0x25952,A0> {}
<MI 251f4 MOVE.B (A0+D0.L+#0x8),D0> {}
<MI 251f8 CMPI.B #0x25,D0> {}
<MI 251fc BNE 0x2520a> {}
<POP 251fe-2520a Naked> Σ0 ↓
<MI 251fe MOVE.L D7,0x2795a> {}
<MI 25200 MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<MI 25202 MOVE.L D6,-(A7)> Δ-4 {[4, '(A6+0x8)']|[4, 'D6']}
<Call 0x25204 0x24d62> {[4, '(A6+0x8)']|[4, 'D6']}
<POP 25208-2520a StackAdj> Δ+8 {}
<POP 2520a-25214 Naked> Σ0 ↓ →0x251e0 ←0x251e0
<MI 2520a ADDQ.L #0x1,D7> {}
<MI 2520c CMP.L 0x2795e,D7> {}
<MI 25212 BLE 0x251e0> {}
<POP 25214-25216 Naked> Σ0 ↓
<MI 25214 MOVE.L D5,0x2795a> {}
<POP 25216-25220 Naked> Σ0 ↓ ←0x251ae
<Pointer.fp 0x25216 <LVAR 0x00c @ 4(r)>> Δ-4 {[@@12]}
<Call 0x25218 0x102bc> {[@@12]}
FreeString(VAR a : String)
<POP 2521e-25220 StackAdj> Δ+4 {}
<POP 25220-25228 Epilogue> Σ0
@ 25228
<LVAR -0x006 @ 4(r)>
<LVAR -0x00a @ 4(rw)>
<LVAR -0x00b 1(w)>
<LVAR -0x00c @ 1(r)>
<POP 25228-2553a Body> Δ+148
<POP 25228-2523e Prologue> Σ0 ↓
<POP 2523e-2524c RegCacheLoad> Σ0 ↓
<POP 2524c-25272 Naked> Σ0 ↓ →0x2551c ←0x2551c
<MI 2524c MOVE.L 0x2795a,D7> {}
<Pointer.fp 0x2524e <LVAR -0x006 @ 4(r)>> Δ-4 {[@@-6]}
<Pointer.fp 0x25250 <LVAR -0x00c @ 1(r)>> Δ-4 {[@@-6]|[@@-12]}
<Call 0x25254 0x221a2> {[@@-6]|[@@-12]}
<POP 25258-2525a StackAdj> Δ+8 {}
<MI 2525a MOVE.L 0x2795a,D6> {}
<POP 2525c-2525e StackAdj> Δ-4 {[-4-]}
<MI 2525e MOVE.L (A6-0x6),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x6)']}
<Call 0x25260 0x2224e> {[-4-]|[4, '(A6-0x6)']}
<POP 25264-25266 StackAdj> Δ+4 {[-4-]}
<MI 25266 MOVE.L (A7)+,D0> Δ+4 {}
<MI 25268 CMPI.L #0xffffffff,D0> {}
<MI 2526e BEQ 0x2551c> {}
<POP 25272-2529c Naked> Σ0 ↓ →0x252aa
<POP 25272-25274 StackAdj> Δ-4 {[-4-]}
<MI 25274 MOVE.L (A6-0x6),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x6)']}
<Const 0x25276 0x0.4> Δ-4 {[-4-]|[4, '(A6-0x6)']|[##0]}
<Call 0x2527a 0x22b6a> {[-4-]|[4, '(A6-0x6)']|[##0]}
<POP 2527e-25280 StackAdj> Δ+8 {[-4-]}
<MI 25280 MOVE.L (A7),(A6-0xa)> {[-4-]}
<POP 25282-25284 StackAdj> Δ+2 {[-2-]}
<MI 25284 MOVE.L (A6-0xa),-(A7)> Δ-4 {[-2-]|[4, '(A6-0xa)']}
<Call 0x25286 0x2444c> {[-2-]|[4, '(A6-0xa)']}
<POP 2528a-2528c StackAdj> Δ+4 {[-2-]}
<MI 2528c MOVE.B (A7)+,D0> Δ+2 {}
<MI 2528e EXTB.W D0> {}
<POP 0x25290 LimitCheck 0x0 ≤ D0 ≤ 0x2b> {}
<MI 25294 MOVE.B D0,(A6-0xb)> {}
<MI 25298 TST.B D0> {}
<MI 2529a BNE 0x252aa> {}
<POP 2529c-252aa Naked> Σ0 →0x25514
<MI 2529c MOVE.L (A6-0xa),-(A7)> Δ-4 {[4, '(A6-0xa)']}
<MI 2529e MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0xa)']|[4, '(A6-0x6)']}
<Call 0x252a0 0x2518a> {[4, '(A6-0xa)']|[4, '(A6-0x6)']}
<POP 252a4-252a6 StackAdj> Δ+8 {}
<MI 252a6 BRA 0x25514> {}
<POP 252aa-252e0 Naked> Σ0 ↓ →0x2530c ←0x25272
<Pointer.fp 0x252aa <LVAR -0x00a @ 4(rw)>> Δ-4 {[@@-10]}
<Call 0x252ac 0x102bc> {[@@-10]}
FreeString(VAR a : String)
<POP 252b2-252b4 StackAdj> Δ+4 {}
<MI 252b4 MOVE.B D0,D1> {}
<MI 252b6 EXTB.W D1> {}
<POP 0x252b8 LimitCheck 0x0 ≤ D1 ≤ 0x2b> {}
<MI 252bc LEA.L 0x21d44,A0> {}
<MI 252c0 MOVE.W D1,D0> {}
<MI 252c2 EXTW.L D0> {}
<MI 252c4 MOVE.L D0,D2> {}
<MI 252c6 ROR.L #0x1,D2> {}
<MI 252c8 ADDA.W D2,A0> {}
<MI 252ca SWAP.W D2> {}
<MI 252cc ROL.W #0x3,D2> {}
<MI 252ce CLR.L D3> {}
<MI 252d0 MOVE.B (A0),D3> {}
<MI 252d2 LSL.B D2,D3> {}
<MI 252d4 LSR.B #0x4,D3> {}
<MI 252d6 MOVE.L D3,D5> {}
<MI 252d8 CMPI.L #0x0000000f,D5> {}
<MI 252de BEQ 0x2530c> {}
<POP 252e0-2530c Naked> Σ0 ↓
<MI 252e0 MOVE.L D0,D4> {}
<MI 252e2 MOVEQ.L #0x0a,D3> {}
<Call 0x252e4 0x1028c> {}
?muls_d3_d4
<MI 252ea LEA.L 0x21b76,A0> {}
<Blob 0x252ee [10] (A0+D4.W)> Δ-10 {[«10»]}
<MI 25300 MOVE.L (A6-0x6),-(A7)> Δ-4 {[«10»]|[4, '(A6-0x6)']}
<MI 25302 MOVE.L D5,-(A7)> Δ-4 {[«10»]|[4, '(A6-0x6)']|[4, 'D5']}
<Call 0x25304 0x22284> {[«10»]|[4, '(A6-0x6)']|[4, 'D5']}
<POP 25308-2530c StackAdj> Δ+18 {}
<POP 2530c-25320 Naked> Σ0 →0x25376 →0x25382 →0x25394 →0x253a2 →0x25506 →0x253aa →0x253ae →0x253b6 →0x253be →0x253c6 →0x253ce →0x253d6 →0x253de →0x253e6 →0x253ee →0x253f6 →0x25400 →0x2540a →0x25414 →0x2541e →0x25428 →0x25432 →0x2543c →0x25446 →0x25450 →0x2545a →0x25464 →0x2546e →0x25478 →0x25482 →0x2548c →0x25496 →0x254a0 →0x254aa →0x254b4 →0x254be →0x254c8 →0x254d2 →0x254d8 →0x254e2 →0x254ec →0x254f6 →0x254fc ←0x252aa
<MI 2530c SUBQ.W #0x1,D1> {}
<POP 0x2530e LimitCheck 0x0 ≤ D1 ≤ 0x2a> {}
<MI 25316 ADD.W D1,D1> {}
<MI 25318 SWITCH D1.W> {}
<POP 25376-2537c Naked> Σ0 Δ-4 ↓ ←0x2530c
<MI 25376 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x25378 0x22cf2> {[4, '(A6-0x6)']}
<POP 2537c-25382 Naked> Σ-4 Δ+4 →0x25514 ←0x25394 ←0x253a2 ←0x253ae ←0x253b6 ←0x253be ←0x253c6 ←0x253ce ←0x253d6 ←0x253de ←0x253e6 ←0x253ee ←0x253f6 ←0x25400 ←0x2540a ←0x25414 ←0x2541e ←0x25428 ←0x25432 ←0x2543c ←0x25446 ←0x25450 ←0x2545a ←0x25464 ←0x2546e ←0x25478 ←0x25482 ←0x2548c ←0x25496 ←0x254a0 ←0x254aa ←0x254b4 ←0x254be ←0x254c8 ←0x254d8 ←0x254e2 ←0x254ec ←0x254fc
<POP 2537c-2537e StackAdj> Δ+4 {}
<MI 2537e BRA 0x25514> {}
<POP 25382-25394 Naked> Σ0 →0x25514 ←0x2530c
<MI 25382 CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x25384 0x1.4> Δ-4 {[#0]|[##1]}
<Call 0x25388 0x103b8> {[#0]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 2538e-25390 StackAdj> Δ+6 {}
<MI 25390 BRA 0x25514> {}
<POP 25394-253a2 Naked> Σ0 Δ-4 →0x2537c ←0x2530c
<POP 25394-25396 StackAdj> Δ-4 {[-4-]}
<Call 0x25396 0x102ac> {[-4-]}
FSCALL_102ac
<Call 0x2539c 0x22cc8> {[-4-]}
<MI 253a0 BRA 0x2537c> {[-4-]}
<POP 253a2-253aa Naked> Σ0 Δ-4 →0x2537c ←0x2530c
<MI 253a2 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x253a4 0x22ecc> {[4, '(A6-0x6)']}
<MI 253a8 BRA 0x2537c> {[4, '(A6-0x6)']}
<POP 253aa-253ae Naked> Σ0 →0x25514 ←0x2530c
<MI 253aa BRA 0x25514> {}
<POP 253ae-253b6 Naked> Σ0 Δ-4 →0x2537c ←0x2530c
<MI 253ae MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x253b0 0x231f2> {[4, '(A6-0x6)']}
<MI 253b4 BRA 0x2537c> {[4, '(A6-0x6)']}
<POP 253b6-253be Naked> Σ0 Δ-4 →0x2537c ←0x2530c
<MI 253b6 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x253b8 0x2335e> {[4, '(A6-0x6)']}
<MI 253bc BRA 0x2537c> {[4, '(A6-0x6)']}
<POP 253be-253c6 Naked> Σ0 Δ-4 →0x2537c ←0x2530c
<MI 253be MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x253c0 0x2344c> {[4, '(A6-0x6)']}
<MI 253c4 BRA 0x2537c> {[4, '(A6-0x6)']}
<POP 253c6-253ce Naked> Σ0 Δ-4 →0x2537c ←0x2530c
<MI 253c6 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x253c8 0x23840> {[4, '(A6-0x6)']}
<MI 253cc BRA 0x2537c> {[4, '(A6-0x6)']}
<POP 253ce-253d6 Naked> Σ0 Δ-4 →0x2537c ←0x2530c
<MI 253ce MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x253d0 0x238b8> {[4, '(A6-0x6)']}
<MI 253d4 BRA 0x2537c> {[4, '(A6-0x6)']}
<POP 253d6-253de Naked> Σ0 Δ-4 →0x2537c ←0x2530c
<MI 253d6 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x253d8 0x23930> {[4, '(A6-0x6)']}
<MI 253dc BRA 0x2537c> {[4, '(A6-0x6)']}
<POP 253de-253e6 Naked> Σ0 Δ-4 →0x2537c ←0x2530c
<MI 253de MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x253e0 0x2395c> {[4, '(A6-0x6)']}
<MI 253e4 BRA 0x2537c> {[4, '(A6-0x6)']}
<POP 253e6-253ee Naked> Σ0 Δ-4 →0x2537c ←0x2530c
<MI 253e6 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x253e8 0x23a5c> {[4, '(A6-0x6)']}
<MI 253ec BRA 0x2537c> {[4, '(A6-0x6)']}
<POP 253ee-253f6 Naked> Σ0 Δ-4 →0x2537c ←0x2530c
<MI 253ee MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x253f0 0x23b42> {[4, '(A6-0x6)']}
<MI 253f4 BRA 0x2537c> {[4, '(A6-0x6)']}
<POP 253f6-25400 Naked> Σ0 Δ-4 →0x2537c ←0x2530c
<MI 253f6 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x253f8 0x23b6e> {[4, '(A6-0x6)']}
<MI 253fc BRA 0x2537c> {[4, '(A6-0x6)']}
<POP 25400-2540a Naked> Σ0 Δ-4 →0x2537c ←0x2530c
<MI 25400 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x25402 0x23bba> {[4, '(A6-0x6)']}
<MI 25406 BRA 0x2537c> {[4, '(A6-0x6)']}
<POP 2540a-25414 Naked> Σ0 Δ-4 →0x2537c ←0x2530c
<MI 2540a MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x2540c 0x23c06> {[4, '(A6-0x6)']}
<MI 25410 BRA 0x2537c> {[4, '(A6-0x6)']}
<POP 25414-2541e Naked> Σ0 Δ-4 →0x2537c ←0x2530c
<MI 25414 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x25416 0x23c52> {[4, '(A6-0x6)']}
<MI 2541a BRA 0x2537c> {[4, '(A6-0x6)']}
<POP 2541e-25428 Naked> Σ0 Δ-4 →0x2537c ←0x2530c
<MI 2541e MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x25420 0x23c9e> {[4, '(A6-0x6)']}
<MI 25424 BRA 0x2537c> {[4, '(A6-0x6)']}
<POP 25428-25432 Naked> Σ0 Δ-4 →0x2537c ←0x2530c
<MI 25428 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x2542a 0x23cea> {[4, '(A6-0x6)']}
<MI 2542e BRA 0x2537c> {[4, '(A6-0x6)']}
<POP 25432-2543c Naked> Σ0 Δ-4 →0x2537c ←0x2530c
<MI 25432 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x25434 0x23d36> {[4, '(A6-0x6)']}
<MI 25438 BRA 0x2537c> {[4, '(A6-0x6)']}
<POP 2543c-25446 Naked> Σ0 Δ-4 →0x2537c ←0x2530c
<MI 2543c MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x2543e 0x23d80> {[4, '(A6-0x6)']}
<MI 25442 BRA 0x2537c> {[4, '(A6-0x6)']}
<POP 25446-25450 Naked> Σ0 Δ-4 →0x2537c ←0x2530c
<MI 25446 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x25448 0x23dca> {[4, '(A6-0x6)']}
<MI 2544c BRA 0x2537c> {[4, '(A6-0x6)']}
<POP 25450-2545a Naked> Σ0 Δ-4 →0x2537c ←0x2530c
<MI 25450 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x25452 0x23e14> {[4, '(A6-0x6)']}
<MI 25456 BRA 0x2537c> {[4, '(A6-0x6)']}
<POP 2545a-25464 Naked> Σ0 Δ-4 →0x2537c ←0x2530c
<MI 2545a MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x2545c 0x23e5e> {[4, '(A6-0x6)']}
<MI 25460 BRA 0x2537c> {[4, '(A6-0x6)']}
<POP 25464-2546e Naked> Σ0 Δ-4 →0x2537c ←0x2530c
<MI 25464 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x25466 0x23ea8> {[4, '(A6-0x6)']}
<MI 2546a BRA 0x2537c> {[4, '(A6-0x6)']}
<POP 2546e-25478 Naked> Σ0 Δ-4 →0x2537c ←0x2530c
<MI 2546e MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x25470 0x23ef2> {[4, '(A6-0x6)']}
<MI 25474 BRA 0x2537c> {[4, '(A6-0x6)']}
<POP 25478-25482 Naked> Σ0 Δ-4 →0x2537c ←0x2530c
<MI 25478 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x2547a 0x23f3c> {[4, '(A6-0x6)']}
<MI 2547e BRA 0x2537c> {[4, '(A6-0x6)']}
<POP 25482-2548c Naked> Σ0 Δ-4 →0x2537c ←0x2530c
<MI 25482 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x25484 0x23f86> {[4, '(A6-0x6)']}
<MI 25488 BRA 0x2537c> {[4, '(A6-0x6)']}
<POP 2548c-25496 Naked> Σ0 Δ-4 →0x2537c ←0x2530c
<MI 2548c MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x2548e 0x23fca> {[4, '(A6-0x6)']}
<MI 25492 BRA 0x2537c> {[4, '(A6-0x6)']}
<POP 25496-254a0 Naked> Σ0 Δ-4 →0x2537c ←0x2530c
<MI 25496 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x25498 0x24010> {[4, '(A6-0x6)']}
<MI 2549c BRA 0x2537c> {[4, '(A6-0x6)']}
<POP 254a0-254aa Naked> Σ0 Δ-4 →0x2537c ←0x2530c
<MI 254a0 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x254a2 0x24046> {[4, '(A6-0x6)']}
<MI 254a6 BRA 0x2537c> {[4, '(A6-0x6)']}
<POP 254aa-254b4 Naked> Σ0 Δ-4 →0x2537c ←0x2530c
<MI 254aa MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x254ac 0x240d6> {[4, '(A6-0x6)']}
<MI 254b0 BRA 0x2537c> {[4, '(A6-0x6)']}
<POP 254b4-254be Naked> Σ0 Δ-4 →0x2537c ←0x2530c
<MI 254b4 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x254b6 0x24148> {[4, '(A6-0x6)']}
<MI 254ba BRA 0x2537c> {[4, '(A6-0x6)']}
<POP 254be-254c8 Naked> Σ0 Δ-4 →0x2537c ←0x2530c
<MI 254be MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x254c0 0x234ae> {[4, '(A6-0x6)']}
<MI 254c4 BRA 0x2537c> {[4, '(A6-0x6)']}
<POP 254c8-254d2 Naked> Σ0 Δ-4 →0x2537c ←0x2530c
<MI 254c8 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x254ca 0x23518> {[4, '(A6-0x6)']}
<MI 254ce BRA 0x2537c> {[4, '(A6-0x6)']}
<POP 254d2-254d8 Naked> Σ0 →0x25514 ←0x2530c
<Call 0x254d2 0x234ea> {}
<MI 254d6 BRA 0x25514> {}
<POP 254d8-254e2 Naked> Σ0 Δ-4 →0x2537c ←0x2530c
<MI 254d8 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x254da 0x241ba> {[4, '(A6-0x6)']}
<MI 254de BRA 0x2537c> {[4, '(A6-0x6)']}
<POP 254e2-254ec Naked> Σ0 Δ-4 →0x2537c ←0x2530c
<MI 254e2 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x254e4 0x2423c> {[4, '(A6-0x6)']}
<MI 254e8 BRA 0x2537c> {[4, '(A6-0x6)']}
<POP 254ec-254f6 Naked> Σ0 Δ-4 →0x2537c ←0x2530c
<MI 254ec MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x254ee 0x242bc> {[4, '(A6-0x6)']}
<MI 254f2 BRA 0x2537c> {[4, '(A6-0x6)']}
<POP 254f6-254fc Naked> Σ0 →0x25514 ←0x2530c
<Call 0x254f6 0x24380> {}
<MI 254fa BRA 0x25514> {}
<POP 254fc-25506 Naked> Σ0 Δ-4 →0x2537c ←0x2530c
<MI 254fc MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x254fe 0x243a0> {[4, '(A6-0x6)']}
<MI 25502 BRA 0x2537c> {[4, '(A6-0x6)']}
<POP 25506-25514 Naked> Σ0 ←0x2530c
<POP 25506-25514 Bailout> {}
<MI 25506 MOVEA.L (A5+0x8),A7>
<MI 2550a MOVEA.W #0x0,A6>
<MI 2550e JMP 0x2571e>
<POP 25514-2551c Naked> Σ0 ↓ ←0x2529c ←0x2537c ←0x25382 ←0x253aa ←0x254d2 ←0x254f6
<MI 25514 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x25516 0x21e00> {[4, '(A6-0x6)']}
<POP 2551a-2551c StackAdj> Δ+4 {}
<POP 2551c-25532 Naked> Σ0 ↓ →0x2524c ←0x2524c
<MI 2551c MOVE.L D6,-(A7)> Δ-4 {[4, 'D6']}
<MI 2551e MOVE.L D6,-(A7)> Δ-4 {[4, 'D6']|[4, 'D6']}
<MI 25520 SUB.L D7,(A7)> {[4, 'D6']|[-4-]}
<Call 0x25522 0x22396> {[4, 'D6']|[-4-]}
<POP 25526-25528 StackAdj> Δ+8 {}
<MI 25528 MOVE.L D7,0x2795a> {}
<MI 2552a TST.B (A6-0xc)> {}
<MI 2552e BEQ 0x2524c> {}
<POP 25532-2553a Epilogue> Σ0
@ 2553a
START
<POP 2553a--0001 Body>
<POP 2553a-25544 Prologue> Σ0
<POP 25544-25574 Naked> Σ0 ↓ →0x255dc
<MI 25544 MOVE.L #0x1,0x27984> {}
<POP 2554e-25550 StackAdj> Δ-4 {[-4-]}
<Call 0x25550 0x103c4> {[-4-]}
GetArgv() : String
<MI 25556 MOVE.L (A7)+,0x27988> Δ+4 {}
<Const 0x2555c 0x27962.4> Δ-4 {[##162146]}
<Call 0x25562 0x21674> {[##162146]}
<POP 25568-2556a StackAdj> Δ+4 {}
<MI 2556a MOVEA.L 0x27988,A0> {}
<MI 25570 TST.W (A0)> {}
<MI 25572 BLE 0x255dc> {}
<POP 25574-255dc Naked> Σ0 →0x25616
<Blob 0x25574 [8] @> Δ-8 {[«8""»]}
<Blob 0x25584 [8] @> Δ-8 {[«8""»]|[«8""»]}
<POP 25594-25596 StackAdj> Δ-8 {[«8""»]|[«8""»]|[-8-]}
<Lit 0x25596 7> {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]}
<POP 255a8-255aa StackAdj> Δ-4 {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]|[-4-]}
<POP 255aa-255ab StackAdj> Δ+4 {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]}
<Blob 0x255ab [4] 0x27988> Δ-4 {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]|[«4»]}
<POP 255b0-255b2 StackAdj> Δ-4 {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]|[«4»]|[-4-]}
<Lit 0x255b2 7> {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]|[«4»]|[$$][BYE];]}
<Call 0x255c6 0x102d4> {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]|[«4»]|[$$][BYE];]}
StringCat3(a, b, c : String) : String
<POP 255cc-255d0 StackAdj> Δ+12 {[«8""»]|[«8""»]|[-4-]}
<MI 255d0 MOVE.L (A7)+,0x27988> Δ+4 {[«8""»]|[«8""»]}
<POP 255d6-255da StackAdj> Δ+16 {}
<MI 255da BRA 0x25616> {}
<POP 255dc-25616 Naked> Σ0 ↓ ←0x25544
<Const 0x255dc 0x27988.4> Δ-4 {[##162184]}
<Call 0x255e2 0x102bc> {[##162184]}
FreeString(VAR a : String)
<POP 255e8-255e9 StackAdj> Δ+4 ↓ {}
<Blob 0x255e9 [8] @> Δ-8 {[«8""»]}
<POP 255f8-255fa StackAdj> Δ-4 {[«8""»]|[-4-]}
<Lit 0x255fa 7> {[«8""»]|[$$[INIT];]}
<MI 2560e MOVE.L (A7)+,0x27988> Δ+4 {[«8""»]}
<POP 25614-25616 StackAdj> Δ+8 {}
<POP 25616-2561e Naked> Σ0 ↓ ←0x25574
<MI 25616 MOVE.B #0x01,0x27992> {}
<POP 2561e-25626 Naked> Σ0 ↓ →0x25630 ←0x2572c
<MI 2561e TST.B 0x27992> {}
<MI 25624 BEQ 0x25630> {}
<POP 25626-25630 Naked> Σ0 →0x256de
<MI 25626 CLR.B 0x27992> {}
<MI 2562c BRA 0x256de> {}
<POP 25630-256de Naked> Σ0 ↓ ←0x2561e
<Blob 0x25630 [10] 0x2796c> Δ-10 {[«10»]}
<Blob 0x2563e [2] @> Δ-2 {[«10»]|[«2""»]}
<POP 25642-25646 StackAdj> Δ-12 {[«10»]|[«2""»]|[-12-]}
<Lit 0x25646> {[«10»]|[«2""»]|[-8-]|[$$…]}
<Pointer.sp 0x25646 14> Δ-4
<Const 0x2564a 0x1.2> Δ-2
<Const 0x2564e 0xa.2> Δ-2
<Call 0x25652 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 25658-2565a StackAdj> Δ+8
<POP 25658-2565a StackAdj> Δ-4 {[«10»]|[«2""»]|[-8-]|[$$…]|[-4-]}
<Lit 0x2565a 2> {[«10»]|[«2""»]|[-8-]|[$$…]|[$$>_]}
<Call 0x2566e 0x102d0> {[«10»]|[«2""»]|[-8-]|[$$…]|[$$>_]}
StringCat2(a, b : String) : String
<POP 25674-25676 StackAdj> Δ+8 {[«10»]|[«2""»]|[-8-]}
<Call 0x25676 0x103e4> {[«10»]|[«2""»]|[-8-]}
AskConsoleString(prompt : String) : String
<POP 2567c-2567e StackAdj> Δ+4 {[«10»]|[«2""»]|[-4-]}
<MI 2567e MOVE.L (A7)+,0x2798e> Δ+4 {[«10»]|[«2""»]}
<POP 25684-25686 StackAdj> Δ+8 {[-4-]}
<POP 25686-25687 StackAdj> Δ+4 {}
<Blob 0x25687 [4] 0x2798e> Δ-4 {[«4»]}
<Call 0x2568c 0x2209a> {[«4»]}
<POP 25690-25692 StackAdj> Δ+2 {[-2-]}
<POP 25692-25693 StackAdj> Δ+2 {}
<Blob 0x25693 [2] @> Δ-2 {[«2""»]}
<Blob 0x25696 [2] @> Δ-2 {[«2""»]|[«2""»]}
<POP 2569a-2569c StackAdj> Δ-8 {[«2""»]|[«2""»]|[-8-]}
<Lit 0x2569c 2> {[«2""»]|[«2""»]|[-4-]|[$$[ ]}
<POP 256ae-256b0 StackAdj> Δ-4 {[«2""»]|[«2""»]|[-4-]|[$$[ ]|[-4-]}
<POP 256b0-256b1 StackAdj> Δ+4 {[«2""»]|[«2""»]|[-4-]|[$$[ ]}
<Blob 0x256b1 [4] 0x2798e> Δ-4 {[«2""»]|[«2""»]|[-4-]|[$$[ ]|[«4»]}
<POP 256b6-256b8 StackAdj> Δ-4 {[«2""»]|[«2""»]|[-4-]|[$$[ ]|[«4»]|[-4-]}
<Lit 0x256b8 2> {[«2""»]|[«2""»]|[-4-]|[$$[ ]|[«4»]|[$$];]}
<Call 0x256cc 0x102d4> {[«2""»]|[«2""»]|[-4-]|[$$[ ]|[«4»]|[$$];]}
StringCat3(a, b, c : String) : String
<POP 256d2-256d6 StackAdj> Δ+12 {[«2""»]|[«2""»]|[-4-]}
<MI 256d6 MOVE.L (A7)+,0x27988> Δ+4 {[«2""»]|[«2""»]}
<POP 256dc-256de StackAdj> Δ+4 {}
<POP 256de-2570a Naked> Σ0 ↓ ←0x25626
<MI 256de CLR.B 0x2798c> {}
<MI 256e4 MOVE.L #0x1,0x2795a> {}
<MI 256ee CLR.L 0x2795e> {}
<POP 256f4-256f6 StackAdj> Δ-4 {[-4-]}
<Blob 0x256f6 [4] 0x27988> Δ-4 {[-4-]|[«4»]}
<Call 0x256fc 0x102cc> {[-4-]|[«4»]}
StringDup(a : String) : String
<POP 25702-25704 StackAdj> Δ+4 {[-4-]}
<Call 0x25704 0x22c0c> {[-4-]}
<POP 25708-2570a StackAdj> Δ+4 {}
<POP 2570a-25718 Naked> Σ0 ↓ →0x2571e ←0x25718
<MI 2570a MOVE.L 0x2795a,D0> {}
<MI 25710 CMP.L 0x2795e,D0> {}
<MI 25716 BGT 0x2571e> {}
<POP 25718-2571e Naked> Σ0 →0x2570a
<Call 0x25718 0x25228> {}
<MI 2571c BRA 0x2570a> {}
<POP 2571e-2572c Naked> Σ0 ↓ ←0x2570a
<Const 0x2571e 0x27988.4> Δ-4 {[##162184]}
<Call 0x25724 0x102bc> {[##162184]}
FreeString(VAR a : String)
<POP 2572a-2572c StackAdj> Δ+4 {}
<POP 2572c-25730 Naked> Σ0 →0x2561e
<MI 2572c BRA 0x2561e> {}
@ 2578a
EXP_FAIL
<LVAR 0x00e 1(r)>
<LVAR 0x00a 4(r)>
<LVAR 0x008 1(r)>
<POP 2578a-258c6 Body>
<POP 2578a-257a0 Prologue> Σ0 ↓
<POP 257a0-257b6 RegCacheLoad> Σ0 ↓
<POP 257b6-25816 Naked> Σ0 ↓ →0x2585e
<Call 0x257b6 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x257bc [18] @> Δ-18 {[«18""»]}
<POP 257c8-257ca StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x257ca 18> {[«18""»]|[$$Experiment error :]}
<Call 0x257d6 0x103e0> {[«18""»]|[$$Experiment error :]}
WriteConsoleStringCrLf(str : String)
<POP 257d8-257d9 StackAdj> Δ+22 ↓ {}
<Blob 0x257d9 [14] @> Δ-14 {[«14""»]}
<POP 257e8-257ea StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x257ea 13> {[«14""»]|[-4-]|[$$Board :_]}
<POP 257f4-257f6 StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<MI 257f6 MOVE.B (A6+0xe),(A7)> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<Call 0x257fa 0x1049c> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
BoardName(address : B) : String
<POP 25800-25802 StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
<Call 0x25802 0x102d0> {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 25808-2580a StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x2580a 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 2580c-2580e StackAdj> Δ+18 {}
<MI 2580e MOVEA.L (A6+0xa),A0> {}
<MI 25812 CMPA.W #0x01,A0> {}
<MI 25814 BEQ 0x2585e> {}
<POP 25816-2585e Naked> Σ0 ↓
<Blob 0x25816 [14] @> Δ-14 {[«14""»]}
<Blob 0x25826 [30] (A0+0xfc)> Δ-30 {[«14""»]|[«30»]}
<POP 25836-25838 StackAdj> Δ-8 {[«14""»]|[«30»]|[-8-]}
<Lit 0x25838 13> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
<POP 25842-25844 StackAdj> Δ-4 {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
<Lit 0x25844> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
<Pointer.sp 0x25844 12> Δ-4
<Const 0x25848 0x1.2> Δ-2
<Const 0x2584a 0x1e.2> Δ-2
<Call 0x2584c 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 2584e-25850 StackAdj> Δ+8
<Call 0x25850 0x102d0> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
StringCat2(a, b : String) : String
<POP 25856-25858 StackAdj> Δ+8 {[«14""»]|[«30»]|[-4-]}
<Call 0x25858 0x103e0> {[«14""»]|[«30»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 2585a-2585e StackAdj> Δ+48 {}
<POP 2585e-258be Naked> Σ0 ↓ ←0x257b6
<Blob 0x2585e [14] @> Δ-14 {[«14""»]}
<POP 2586e-25870 StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x25870 13> {[«14""»]|[-4-]|[$$Status :_]}
<POP 2587a-2587c StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<MI 2587c MOVE.B (A6+0x8),(A7)> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<Call 0x25880 0x104a2> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
ExpStatus2Text(status.B, &String)
<POP 25886-25888 StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
<Call 0x25888 0x102d0> {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 2588e-25890 StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x25890 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 25892-25893 StackAdj> Δ+18 ↓ {}
<Blob 0x25893 [24] @> Δ-24 {[«24""»]}
<Const 0x258a2 0x2.2> Δ-2 {[«24""»]|[#2]}
<POP 258a6-258a8 StackAdj> Δ-4 {[«24""»]|[#2]|[-4-]}
<Lit 0x258a8 23> {[«24""»]|[#2]|[$$Fatal experiment error.]}
<Call 0x258b6 0x103b8> {[«24""»]|[#2]|[$$Fatal experiment error.]}
PopProgram(status : Byte; msg : String)
<POP 258bc-258be StackAdj> Δ+30 {}
<POP 258be-258c6 Epilogue> Σ0
00020000 ; -------------------------------------------------------------------------------------- 00020000 ; R1000.Disassembly modules: 00020000 ; import all 00020000 ; import kind.program 00020000 ; no ident.b15aaa998cbd71be 00020000 ; -------------------------------------------------------------------------------------- 00020000 stack.top: 00020000 00 04 00 00 | | .CODE 0x40000 ; STACK.END 00020004 00 02 55 3a | U: | .CODE START 00020008 00 01 02 88 | | .CODE FSCALL_10288 0002000c heap.top: 0002000c 00 02 79 9e | y | .PTR 0x2799e 00020010 code.end: 00020010 00 02 58 c6 | X | .PTR 0x258c6 00020014 00 00 00 00 | | .CONST 0x00000000 00020018 programfailurehandler: 00020018 00 02 05 f6 | | .CODE PROG_FAIL 0002001c experimentfailurehandler: 0002001c 00 02 57 8a | W | .CODE EXP_FAIL 00020020 00 00 00 00 | | .CONST 0x00000000 00020024 exp_init_done: 00020024 00 | | .CONST 0x00 00020025 00 | | .CONST 0x00 00020026 00 00 | | .CONST 0x0000 00020028 00 00 | | .CONST 0x0000 0002002a 00 00 | | .XXX[0x2] 0002002c 00 00 | | .CONST 0x0000 0002002e 00 00 | | .CONST 0x0000 00020030 00 00 | | .CONST 0x0000 00020032 00 00 00 00 00 00 | | .XXX[0x6] 00020038 00 00 00 00 00 00 00 00 | | .BLANK 00[0xb0] 000200e8 00 00 00 00 | | .XXX[0x4] 000200ec 00 00 00 00 | | .PTR 0x0 000200f0 is_open_ERROR_LOG: 000200f0 00 | | .CONST 0x0 000200f1 write_error_ERROR_LOG: 000200f1 00 | | .CONST 0x0 000200f2 00 00 00 00 | | .CONST 0x00000000 000200f6 00 00 00 00 | | .CONST 0x00000000 000200fa 00 | | .CONST 0x00 000200fb 00 | | .CONST 0x00 000200fc file_ERROR_LOG: 000200fc 00 00 00 00 | | .CONST 0x00000000 00020100 00 00 00 00 | | .CONST 0x00000000 00020104 00 00 | | .CONST 0x0000 00020106 00 00 | | .CONST 0x0000 00020108 somekindoffsflag: 00020108 00 | | .CONST 0x00 00020109 00 | | .CONST 0x00 0002010a 40 28 23 29 45 58 |@(#)EX | .XXX[0x6] 00020110 50 4d 4f 4e 2c 32 2e 31 |PMON,2.1| .XXX[0x90] 00020118 2c 39 30 2f 31 32 2f 30 |,90/12/0| 00020120 34 2c 31 37 3a 31 38 3a |4,17:18:| 00020128 31 39 5c 20 58 45 51 20 |19\ XEQ | 00020130 20 20 20 20 20 20 20 20 | | 00020138 50 4f 4c 4c 20 20 20 20 |POLL | 00020140 20 20 20 20 52 45 53 45 | RESE| 00020148 54 20 20 20 20 20 20 20 |T | 00020150 43 4f 4e 54 49 4e 55 45 |CONTINUE| 00020158 20 20 20 20 4d 45 4d 30 | MEM0| 00020160 5f 45 58 49 53 54 53 20 |_EXISTS | 00020168 4d 45 4d 31 5f 45 58 49 |MEM1_EXI| 00020170 53 54 53 20 4d 45 4d 32 |STS MEM2| 00020178 5f 45 58 49 53 54 53 20 |_EXISTS | 00020180 4d 45 4d 33 5f 45 58 49 |MEM3_EXI| 00020188 53 54 53 20 51 55 41 44 |STS QUAD| 00020190 5f 44 45 4e 53 49 54 59 |_DENSITY| 00020198 21 40 23 24 25 5e 26 2a |!@#$%^&*| 000201a0 28 29 20 20 |() | .XXX[0x4] 000201a4 52 65 63 6f 76 65 72 61 |Recovera| .TXT 'Recoverable experiment error :_ ' 000201c4 57 6f 72 64 |Word | .TXT 'Word' 000201c8 73 20 65 72 |s er | .TXT 's er' 000201cc 72 6f 72 5f |ror_ | .TXT 'ror_' 000201d0 55 6e 6b 6e 6f 77 6e 20 |Unknown | .TXT 'Unknown board name:_' 000201e4 59 45 53 20 |YES | .XXX[0x4] 000201e8 20 20 20 20 20 20 59 20 | Y | .XXX[0x48] 000201f0 20 20 20 20 20 20 20 20 | | 000201f8 54 52 55 45 20 20 20 20 |TRUE | 00020200 20 20 54 20 20 20 20 20 | T | 00020208 20 20 20 20 4e 4f 20 20 | NO | 00020210 20 20 20 20 20 20 4e 20 | N | 00020218 20 20 20 20 20 20 20 20 | | 00020220 46 41 4c 53 45 20 20 20 |FALSE | 00020228 20 20 46 20 20 20 20 20 | F | 00020230 20 20 20 20 | | .XXX[0x4] 00020234 49 6c 6c 65 67 61 6c 20 |Illegal | .TXT 'Illegal boolean :_' 00020246 50 61 72 61 6d 65 74 65 |Paramete| .TXT 'Parameter too long :_ ' 0002025c 49 6c 6c 65 67 61 6c 20 |Illegal | .TXT 'Illegal STRING parameter :_ ' 00020278 30 31 32 33 34 35 36 37 |01234567| .XXX[0x10] 00020280 38 39 41 42 43 44 45 46 |89ABCDEF| 00020288 54 52 55 45 |TRUE | .TXT 'TRUE' 0002028c 46 41 4c 53 45 20 |FALSE | .TXT 'FALSE ' 00020292 2c 20 74 79 70 65 20 22 |, type "| .TXT ', type "C" to continue the experiment or "E" to end it :_ ' 000202ce 43 61 6e 27 74 20 65 78 |Can't ex| .TXT 'Can't execute multi-board experiments!' 000202f4 38 37 35 31 20 49 2f 4f |8751 I/O| .TXT '8751 I/O error! ' 00020304 38 37 35 31 20 69 6e 74 |8751 int| .TXT '8751 internal error!' 00020318 42 6f 61 72 64 20 77 61 |Board wa| .TXT 'Board was reset! ' 0002032c 42 6f 61 72 64 20 74 69 |Board ti| .TXT 'Board timed out! ' 00020340 42 6f 61 72 64 20 69 73 |Board is| .TXT 'Board is_ ' 0002034a 43 61 6e 27 74 20 68 61 |Can't ha| .TXT 'Can't handle board status =_' 00020366 49 6e 73 75 66 66 69 63 |Insuffic| .TXT 'Insufficient arguments to XEQ ' 00020384 49 2f 4f 20 65 72 72 6f |I/O erro| .TXT 'I/O error during upload!' 0002039c 50 6f 6c 6c 20 20 20 20 |Poll | .TXT 'Poll ' 000203a6 43 61 6e 27 74 20 70 6f |Can't po| .TXT 'Can't poll non-unique board id' 000203c4 2c 54 52 55 45 20 |,TRUE | .TXT ',TRUE ' 000203ca 2c 46 |,F | .TXT ',F' 000203cc 41 4c |AL | .TXT 'AL' 000203ce 53 45 |SE | .TXT 'SE' 000203d0 43 6f 6e 74 69 6e 75 65 |Continue| .TXT 'Continue ' 000203da 42 6f 61 72 64 20 69 73 |Board is| .TXT 'Board is not paused or looping! ' 000203fa 52 65 73 65 74 20 20 20 |Reset | .TXT 'Reset ' 00020404 54 52 55 45 |TRUE | .TXT 'TRUE' 00020408 46 41 4c 53 45 20 |FALSE | .TXT 'FALSE ' 0002040e 45 4d |EM | .XXX[0x2] 00020410 20 20 20 20 20 20 20 20 | | .XXX[0x148] 00020418 2e 49 4f 41 2e 53 45 51 |.IOA.SEQ| 00020420 2e 46 49 55 2e 54 59 50 |.FIU.TYP| 00020428 2e 56 41 4c 2e 4d 45 4d |.VAL.MEM| 00020430 2e 4d 45 4d 2e 4d 45 4d |.MEM.MEM| 00020438 2e 4d 45 4d 2e 4d 33 32 |.MEM.M32| 00020440 2e 4d 33 32 2e 4d 33 32 |.M32.M32| 00020448 2e 4d 33 32 2e 49 4f 43 |.M32.IOC| 00020450 49 4f 41 20 53 45 51 20 |IOA SEQ | 00020458 46 49 55 20 54 59 50 20 |FIU TYP | 00020460 56 41 4c 20 4d 45 4d 30 |VAL MEM0| 00020468 4d 45 4d 31 4d 45 4d 32 |MEM1MEM2| 00020470 4d 45 4d 33 41 4c 4c 20 |MEM3ALL | 00020478 49 4f 43 20 01 01 01 01 |IOC | 00020480 01 00 01 01 00 00 00 00 | | 00020488 01 01 01 01 58 45 51 20 | XEQ | 00020490 20 20 20 20 20 20 20 20 | | 00020498 50 4f 4c 4c 20 20 20 20 |POLL | 000204a0 20 20 20 20 52 45 53 45 | RESE| 000204a8 54 20 20 20 20 20 20 20 |T | 000204b0 43 4f 4e 54 49 4e 55 45 |CONTINUE| 000204b8 20 20 20 20 4d 45 4d 30 | MEM0| 000204c0 5f 45 58 49 53 54 53 20 |_EXISTS | 000204c8 4d 45 4d 31 5f 45 58 49 |MEM1_EXI| 000204d0 53 54 53 20 4d 45 4d 32 |STS MEM2| 000204d8 5f 45 58 49 53 54 53 20 |_EXISTS | 000204e0 4d 45 4d 33 5f 45 58 49 |MEM3_EXI| 000204e8 53 54 53 20 51 55 41 44 |STS QUAD| 000204f0 5f 44 45 4e 53 49 54 59 |_DENSITY| 000204f8 21 40 23 24 25 5e 26 2a |!@#$%^&*| 00020500 28 29 20 20 00 00 00 00 |() | 00020508 00 00 00 00 59 45 53 20 | YES | 00020510 20 20 20 20 20 20 59 20 | Y | 00020518 20 20 20 20 20 20 20 20 | | 00020520 54 52 55 45 20 20 20 20 |TRUE | 00020528 20 20 54 20 20 20 20 20 | T | 00020530 20 20 20 20 4e 4f 20 20 | NO | 00020538 20 20 20 20 20 20 4e 20 | N | 00020540 20 20 20 20 20 20 20 20 | | 00020548 46 41 4c 53 45 20 20 20 |FALSE | 00020550 20 20 46 20 20 20 20 20 | F | 00020558 20 20 20 20 | | .XXX[0x4] 0002055c ; -------------------------------------------------------------------------------------- 0002055c ; OMSI PASCAL Function 0002055c ; <LVAR 0x008 4(r)> 0002055c ; -------------------------------------------------------------------------------------- 0002055c 4e 56 ff 8a |NV | LINK.W A6,#0xff8a 00020560 bf d5 | | CMPA.L (A5),A7 00020562 62 06 |b | BHI 0x2056a 00020564 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020568 4e 76 |Nv | TRAPV 0002056a de fc 00 72 | r | ADDA.W #0x72,A7 0002056e 48 e7 e0 e8 |H | MOVEM.L A4+A2+A1+A0+D2+D1+D0,-(A7) 00020572 45 f9 00 02 58 ce |E X | LEA.L 0x258ce,A2 00020578 72 1e |r | MOVEQ.L #0x1e,D1 0002057a 74 01 |t | MOVEQ.L #0x01,D2 0002057c 9e fc 00 20 | | SUBA.W #0x20,A7 00020580 20 4f | O | MOVEA.L A7,A0 00020582 43 fa fc 20 |C | LEA.L 0x201a4,A1 00020586 70 1e |p | MOVEQ.L #0x1e,D0 00020588 10 d9 | | MOVE.B (A1)+,(A0)+ 0002058a 51 c8 ff fc |Q | DBF D0,0x20588 0002058e 20 52 | R | MOVEA.L (A2),A0 00020590 9e c1 | | SUBA.W D1,A7 00020592 22 4f |"O | MOVEA.L A7,A1 00020594 41 e8 00 fc |A | LEA.L (A0+0xfc),A0 00020598 70 1d |p | MOVEQ.L #0x1d,D0 0002059a 12 d8 | | MOVE.B (A0)+,(A1)+ 0002059c 51 c8 ff fc |Q | DBF D0,0x2059a 000205a0 51 4f |QO | SUBQ.L #0x8,A7 000205a2 48 6f 00 26 |Ho & | PEA.L (A7+0x26) 000205a6 3f 02 |? | MOVE.W D2,-(A7) 000205a8 3f 3c 00 1f |?< | MOVE.W #0x1f,-(A7) 000205ac 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000205b2 58 4f |XO | ADDQ.L #0x4,A7 000205b4 48 6f 00 0c |Ho | PEA.L (A7+0xc) 000205b8 3f 02 |? | MOVE.W D2,-(A7) 000205ba 3f 01 |? | MOVE.W D1,-(A7) 000205bc 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000205c2 50 4f |PO | ADDQ.L #0x8,A7 000205c4 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000205ca 50 4f |PO | ADDQ.L #0x8,A7 000205cc 28 5f |(_ | MOVEA.L (A7)+,A4 000205ce de fc 00 3e | > | ADDA.W #0x3e,A7 000205d2 48 52 |HR | PEA.L (A2) 000205d4 4e b9 00 01 04 96 |N | JSR ExpClose(exp : Pointer) 000205da 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7) 000205de 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000205e4 2e 8c |. | MOVE.L A4,(A7) 000205e6 4e b9 00 02 1e 42 |N B | JSR 0x21e42 000205ec 58 4f |XO | ADDQ.L #0x4,A7 000205ee 4c df 17 07 |L | MOVEM.L (A7)+,D0+D1+D2+A0+A1+A2+A4 000205f2 4e 5e |N^ | UNLK A6 000205f4 4e 75 |Nu | RTS 000205f6 ; -------------------------------------------------------------------------------------- 000205f6 ; OMSI PASCAL Function 000205f6 ; <LVAR 0x008 1(r)> 000205f6 ; -------------------------------------------------------------------------------------- 000205f6 PROG_FAIL: 000205f6 4e 56 ff da |NV | LINK.W A6,#0xffda 000205fa bf d5 | | CMPA.L (A5),A7 000205fc 62 06 |b | BHI 0x20604 000205fe 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020602 4e 76 |Nv | TRAPV 00020604 de fc 00 24 | $ | ADDA.W #0x24,A7 00020608 48 e7 80 00 |H | MOVEM.L D0,-(A7) 0002060c 2f 3a fb be |/: | MOVE.L 0x201cc,-(A7) 00020610 2f 3a fb b6 |/: | MOVE.L 0x201c8,-(A7) 00020614 2f 3a fb ae |/: | MOVE.L 0x201c4,-(A7) 00020618 51 4f |QO | SUBQ.L #0x8,A7 0002061a 48 6f 00 08 |Ho | PEA.L (A7+0x8) 0002061e 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00020622 3f 3c 00 0c |?< | MOVE.W #0xc,-(A7) 00020626 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002062c 58 4f |XO | ADDQ.L #0x4,A7 0002062e 10 2e 00 08 | . | MOVE.B (A6+0x8),D0 00020632 48 80 |H | EXTB.W D0 00020634 48 c0 |H | EXTW.L D0 00020636 2f 00 |/ | MOVE.L D0,-(A7) 00020638 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 0002063e 58 4f |XO | ADDQ.L #0x4,A7 00020640 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020646 50 4f |PO | ADDQ.L #0x8,A7 00020648 4e b9 00 02 1e 42 |N B | JSR 0x21e42 0002064e de fc 00 10 | | ADDA.W #0x10,A7 00020652 4c df 00 01 |L | MOVEM.L (A7)+,D0 00020656 4e 5e |N^ | UNLK A6 00020658 4e 75 |Nu | RTS 0002065a ; -------------------------------------------------------------------------------------- 0002065a ; OMSI PASCAL Function 0002065a ; <LVAR 0x00c @ 4(r)> 0002065a ; <LVAR 0x008 4(r)> 0002065a ; <LVAR -0x00a @ 4(rw)> 0002065a ; -------------------------------------------------------------------------------------- 0002065a 4e 56 ff b0 |NV | LINK.W A6,#0xffb0 0002065e bf d5 | | CMPA.L (A5),A7 00020660 62 06 |b | BHI 0x20668 00020662 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020666 4e 76 |Nv | TRAPV 00020668 de fc 00 44 | D | ADDA.W #0x44,A7 0002066c 48 e7 c3 e0 |H | MOVEM.L A2+A1+A0+D7+D6+D1+D0,-(A7) 00020670 43 ee ff f6 |C | LEA.L (A6-0xa),A1 00020674 45 ee 00 0c |E | LEA.L (A6+0xc),A2 00020678 72 01 |r | MOVEQ.L #0x01,D1 0002067a 7e 00 |~ | MOVEQ.L #0x00,D7 0002067c 10 07 | | MOVE.B D7,D0 0002067e 48 80 |H | EXTB.W D0 00020680 e5 40 | @ | ASL.W #0x2,D0 00020682 41 f9 00 02 58 c6 |A X | LEA.L 0x258c6,A0 00020688 2f 30 00 4c |/0 L | MOVE.L (A0+D0.W+#0x4c),-(A7) 0002068c 59 4f |YO | SUBQ.L #0x4,A7 0002068e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020692 3f 01 |? | MOVE.W D1,-(A7) 00020694 3f 3c 00 04 |?< | MOVE.W #0x4,-(A7) 00020698 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002069e 50 4f |PO | ADDQ.L #0x8,A7 000206a0 22 9f |" | MOVE.L (A7)+,(A1) 000206a2 54 4f |TO | ADDQ.L #0x2,A7 000206a4 2f 12 |/ | MOVE.L (A2),-(A7) 000206a6 2f 11 |/ | MOVE.L (A1),-(A7) 000206a8 4e b9 00 01 02 c8 |N | JSR StringEqual(a, b : String) : Byte 000206ae 50 4f |PO | ADDQ.L #0x8,A7 000206b0 10 1f | | MOVE.B (A7)+,D0 000206b2 48 80 |H | EXTB.W D0 000206b4 41 81 |A | CHK.W D1,D0 000206b6 1c 00 | | MOVE.B D0,D6 000206b8 48 51 |HQ | PEA.L (A1) 000206ba 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000206c0 58 4f |XO | ADDQ.L #0x4,A7 000206c2 4a 06 |J | TST.B D6 000206c4 67 08 |g | BEQ 0x206ce 000206c6 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 000206ca 10 87 | | MOVE.B D7,(A0) 000206cc 60 3c |`< | BRA 0x2070a 000206ce 52 07 |R | ADDQ.B #0x1,D7 000206d0 0c 07 00 0f | | CMPI.B #0x0f,D7 000206d4 6f a6 |o | BLE 0x2067c 000206d6 41 fa fb 0c |A | LEA.L 0x201e4,A0 000206da 70 04 |p | MOVEQ.L #0x04,D0 000206dc 2f 20 |/ | MOVE.L -(A0),-(A7) 000206de 51 c8 ff fc |Q | DBF D0,0x206dc 000206e2 51 4f |QO | SUBQ.L #0x8,A7 000206e4 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000206e8 3f 01 |? | MOVE.W D1,-(A7) 000206ea 3f 3c 00 14 |?< | MOVE.W #0x14,-(A7) 000206ee 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000206f4 58 4f |XO | ADDQ.L #0x4,A7 000206f6 2e 92 |. | MOVE.L (A2),(A7) 000206f8 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000206fe 50 4f |PO | ADDQ.L #0x8,A7 00020700 4e b9 00 02 1e 42 |N B | JSR 0x21e42 00020706 de fc 00 18 | | ADDA.W #0x18,A7 0002070a 48 52 |HR | PEA.L (A2) 0002070c 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00020712 58 4f |XO | ADDQ.L #0x4,A7 00020714 4c df 07 c3 |L | MOVEM.L (A7)+,D0+D1+D6+D7+A0+A1+A2 00020718 4e 5e |N^ | UNLK A6 0002071a 4e 75 |Nu | RTS 0002071c ; -------------------------------------------------------------------------------------- 0002071c ; OMSI PASCAL Function 0002071c ; <LVAR 0x00c 1(rw)> 0002071c ; <LVAR 0x008 4(r)> 0002071c ; <LVAR -0x006 @ 4(rw)> 0002071c ; -------------------------------------------------------------------------------------- 0002071c 4e 56 ff a2 |NV | LINK.W A6,#0xffa2 00020720 bf d5 | | CMPA.L (A5),A7 00020722 62 06 |b | BHI 0x2072a 00020724 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020728 4e 76 |Nv | TRAPV 0002072a de fc 00 52 | R | ADDA.W #0x52,A7 0002072e 48 e7 ff e0 |H | MOVEM.L A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00020732 45 ee ff fa |E | LEA.L (A6-0x6),A2 00020736 72 01 |r | MOVEQ.L #0x01,D1 00020738 74 07 |t | MOVEQ.L #0x07,D2 0002073a 7a 0a |z | MOVEQ.L #0x0a,D5 0002073c 7e 00 |~ | MOVEQ.L #0x00,D7 0002073e be 82 | | CMP.L D2,D7 00020740 63 02 |c | BLS 0x20744 00020742 4e 4f |NO | TRAP #15 00020744 28 07 |( | MOVE.L D7,D4 00020746 76 0a |v | MOVEQ.L #0x0a,D3 00020748 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4 0002074e 41 fa fd bc |A | LEA.L 0x2050c,A0 00020752 9e c5 | | SUBA.W D5,A7 00020754 22 4f |"O | MOVEA.L A7,A1 00020756 41 f0 48 00 |A H | LEA.L (A0+D4.L),A0 0002075a 70 09 |p | MOVEQ.L #0x09,D0 0002075c 12 d8 | | MOVE.B (A0)+,(A1)+ 0002075e 51 c8 ff fc |Q | DBF D0,0x2075c 00020762 59 4f |YO | SUBQ.L #0x4,A7 00020764 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020768 3f 01 |? | MOVE.W D1,-(A7) 0002076a 3f 05 |? | MOVE.W D5,-(A7) 0002076c 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020772 50 4f |PO | ADDQ.L #0x8,A7 00020774 24 9f |$ | MOVE.L (A7)+,(A2) 00020776 58 4f |XO | ADDQ.L #0x4,A7 00020778 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7) 0002077c 2f 12 |/ | MOVE.L (A2),-(A7) 0002077e 4e b9 00 01 02 c8 |N | JSR StringEqual(a, b : String) : Byte 00020784 50 4f |PO | ADDQ.L #0x8,A7 00020786 10 1f | | MOVE.B (A7)+,D0 00020788 48 80 |H | EXTB.W D0 0002078a 41 81 |A | CHK.W D1,D0 0002078c 1c 00 | | MOVE.B D0,D6 0002078e 48 52 |HR | PEA.L (A2) 00020790 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00020796 58 4f |XO | ADDQ.L #0x4,A7 00020798 4a 06 |J | TST.B D6 0002079a 67 12 |g | BEQ 0x207ae 0002079c 42 2e 00 0c |B. | CLR.B (A6+0xc) 000207a0 0c 87 00 00 00 04 | | CMPI.L #0x00000004,D7 000207a6 6c 04 |l | BGE 0x207ac 000207a8 52 2e 00 0c |R. | ADDQ.B #0x1,(A6+0xc) 000207ac 60 3a |`: | BRA 0x207e8 000207ae 52 87 |R | ADDQ.L #0x1,D7 000207b0 be 82 | | CMP.L D2,D7 000207b2 6f 8a |o | BLE 0x2073e 000207b4 41 fa fa 90 |A | LEA.L 0x20246,A0 000207b8 70 08 |p | MOVEQ.L #0x08,D0 000207ba 3f 20 |? | MOVE.W -(A0),-(A7) 000207bc 51 c8 ff fc |Q | DBF D0,0x207ba 000207c0 51 4f |QO | SUBQ.L #0x8,A7 000207c2 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000207c6 3f 01 |? | MOVE.W D1,-(A7) 000207c8 3f 3c 00 12 |?< | MOVE.W #0x12,-(A7) 000207cc 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000207d2 58 4f |XO | ADDQ.L #0x4,A7 000207d4 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7) 000207d8 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000207de 50 4f |PO | ADDQ.L #0x8,A7 000207e0 4e ba fd 7a |N z | JSR 0x2055c 000207e4 de fc 00 16 | | ADDA.W #0x16,A7 000207e8 4c df 07 ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2 000207ec 4e 5e |N^ | UNLK A6 000207ee 4e 75 |Nu | RTS 000207f0 ; -------------------------------------------------------------------------------------- 000207f0 ; OMSI PASCAL Function 000207f0 ; <LVAR 0x00c 4(r)> 000207f0 ; <LVAR 0x008 4(r)> 000207f0 ; -------------------------------------------------------------------------------------- 000207f0 4e 56 ff 82 |NV | LINK.W A6,#0xff82 000207f4 bf d5 | | CMPA.L (A5),A7 000207f6 62 06 |b | BHI 0x207fe 000207f8 44 fc 00 02 |D | MOVE.W #0x2,CCR 000207fc 4e 76 |Nv | TRAPV 000207fe de fc 00 76 | v | ADDA.W #0x76,A7 00020802 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00020806 47 ee 00 0c |G | LEA.L (A6+0xc),A3 0002080a 49 ee 00 08 |I | LEA.L (A6+0x8),A4 0002080e 74 7d |t} | MOVEQ.L #0x7d,D2 00020810 7a 01 |z | MOVEQ.L #0x01,D5 00020812 20 53 | S | MOVEA.L (A3),A0 00020814 2f 08 |/ | MOVE.L A0,-(A7) 00020816 20 57 | W | MOVEA.L (A7),A0 00020818 30 10 |0 | MOVE.W (A0),D0 0002081a b0 45 | E | CMP.W D5,D0 0002081c 6f 5e |o^ | BLE 0x2087c 0002081e 12 28 00 02 | ( | MOVE.B (A0+0x2),D1 00020822 0c 01 00 30 | 0 | CMPI.B #0x30,D1 00020826 66 54 |fT | BNE 0x2087c 00020828 32 00 |2 | MOVE.W D0,D1 0002082a 48 c1 |H | EXTW.L D1 0002082c 2f 01 |/ | MOVE.L D1,-(A7) 0002082e 7e 02 |~ | MOVEQ.L #0x02,D7 00020830 be 97 | | CMP.L (A7),D7 00020832 6e 24 |n$ | BGT 0x20858 00020834 20 07 | | MOVE.L D7,D0 00020836 53 80 |S | SUBQ.L #0x1,D0 00020838 53 80 |S | SUBQ.L #0x1,D0 0002083a b0 82 | | CMP.L D2,D0 0002083c 63 02 |c | BLS 0x20840 0002083e 4e 4f |NO | TRAP #15 00020840 20 6f 00 04 | o | MOVEA.L (A7+0x4),A0 00020844 22 07 |" | MOVE.L D7,D1 00020846 53 81 |S | SUBQ.L #0x1,D1 00020848 b2 82 | | CMP.L D2,D1 0002084a 63 02 |c | BLS 0x2084e 0002084c 4e 4f |NO | TRAP #15 0002084e 11 b0 18 02 08 02 | | MOVE.B (A0+D1.L+#0x2),(A0+D0.L+#0x2) 00020854 52 87 |R | ADDQ.L #0x1,D7 00020856 68 d8 |h | BVC 0x20830 00020858 58 4f |XO | ADDQ.L #0x4,A7 0002085a 20 57 | W | MOVEA.L (A7),A0 0002085c 30 10 |0 | MOVE.W (A0),D0 0002085e 48 c0 |H | EXTW.L D0 00020860 53 80 |S | SUBQ.L #0x1,D0 00020862 04 80 ff ff 80 00 | | SUBI.L #0xffff8000,D0 00020868 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 0002086e 63 02 |c | BLS 0x20872 00020870 4e 4f |NO | TRAP #15 00020872 06 80 ff ff 80 00 | | ADDI.L #0xffff8000,D0 00020878 30 80 |0 | MOVE.W D0,(A0) 0002087a 60 9a |` | BRA 0x20816 0002087c 22 14 |" | MOVE.L (A4),D1 0002087e e3 81 | | ASL.L #0x1,D1 00020880 48 c0 |H | EXTW.L D0 00020882 b0 81 | | CMP.L D1,D0 00020884 6f 38 |o8 | BLE 0x208be 00020886 9e fc 00 16 | | SUBA.W #0x16,A7 0002088a 22 4f |"O | MOVEA.L A7,A1 0002088c 45 fa f9 b8 |E | LEA.L 0x20246,A2 00020890 70 14 |p | MOVEQ.L #0x14,D0 00020892 12 da | | MOVE.B (A2)+,(A1)+ 00020894 51 c8 ff fc |Q | DBF D0,0x20892 00020898 51 4f |QO | SUBQ.L #0x8,A7 0002089a 48 6f 00 08 |Ho | PEA.L (A7+0x8) 0002089e 3f 05 |? | MOVE.W D5,-(A7) 000208a0 3f 3c 00 15 |?< | MOVE.W #0x15,-(A7) 000208a4 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000208aa 58 4f |XO | ADDQ.L #0x4,A7 000208ac 2e 93 |. | MOVE.L (A3),(A7) 000208ae 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000208b4 50 4f |PO | ADDQ.L #0x8,A7 000208b6 4e ba fc a4 |N | JSR 0x2055c 000208ba de fc 00 1a | | ADDA.W #0x1a,A7 000208be 20 57 | W | MOVEA.L (A7),A0 000208c0 30 10 |0 | MOVE.W (A0),D0 000208c2 48 c0 |H | EXTW.L D0 000208c4 2f 00 |/ | MOVE.L D0,-(A7) 000208c6 7e 01 |~ | MOVEQ.L #0x01,D7 000208c8 be 97 | | CMP.L (A7),D7 000208ca 6e 66 |nf | BGT 0x20932 000208cc 20 07 | | MOVE.L D7,D0 000208ce 53 80 |S | SUBQ.L #0x1,D0 000208d0 b0 82 | | CMP.L D2,D0 000208d2 63 02 |c | BLS 0x208d6 000208d4 4e 4f |NO | TRAP #15 000208d6 20 6f 00 04 | o | MOVEA.L (A7+0x4),A0 000208da 12 30 08 02 | 0 | MOVE.B (A0+D0.L+#0x2),D1 000208de 0c 01 00 30 | 0 | CMPI.B #0x30,D1 000208e2 65 06 |e | BCS 0x208ea 000208e4 0c 01 00 39 | 9 | CMPI.B #0x39,D1 000208e8 63 44 |cD | BLS 0x2092e 000208ea 0c 01 00 41 | A | CMPI.B #0x41,D1 000208ee 65 06 |e | BCS 0x208f6 000208f0 0c 01 00 46 | F | CMPI.B #0x46,D1 000208f4 63 38 |c8 | BLS 0x2092e 000208f6 9e fc 00 1c | | SUBA.W #0x1c,A7 000208fa 20 4f | O | MOVEA.L A7,A0 000208fc 43 fa f9 5e |C ^ | LEA.L 0x2025c,A1 00020900 70 1a |p | MOVEQ.L #0x1a,D0 00020902 10 d9 | | MOVE.B (A1)+,(A0)+ 00020904 51 c8 ff fc |Q | DBF D0,0x20902 00020908 51 4f |QO | SUBQ.L #0x8,A7 0002090a 48 6f 00 08 |Ho | PEA.L (A7+0x8) 0002090e 3f 05 |? | MOVE.W D5,-(A7) 00020910 3f 3c 00 1b |?< | MOVE.W #0x1b,-(A7) 00020914 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002091a 58 4f |XO | ADDQ.L #0x4,A7 0002091c 2e 93 |. | MOVE.L (A3),(A7) 0002091e 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020924 50 4f |PO | ADDQ.L #0x8,A7 00020926 4e ba fc 34 |N 4 | JSR 0x2055c 0002092a de fc 00 20 | | ADDA.W #0x20,A7 0002092e 52 87 |R | ADDQ.L #0x1,D7 00020930 68 96 |h | BVC 0x208c8 00020932 58 4f |XO | ADDQ.L #0x4,A7 00020934 20 57 | W | MOVEA.L (A7),A0 00020936 30 10 |0 | MOVE.W (A0),D0 00020938 48 c0 |H | EXTW.L D0 0002093a 2f 00 |/ | MOVE.L D0,-(A7) 0002093c 7e 01 |~ | MOVEQ.L #0x01,D7 0002093e be 97 | | CMP.L (A7),D7 00020940 6e 42 |nB | BGT 0x20984 00020942 20 07 | | MOVE.L D7,D0 00020944 53 80 |S | SUBQ.L #0x1,D0 00020946 b0 82 | | CMP.L D2,D0 00020948 63 02 |c | BLS 0x2094c 0002094a 4e 4f |NO | TRAP #15 0002094c 20 6f 00 04 | o | MOVEA.L (A7+0x4),A0 00020950 42 81 |B | CLR.L D1 00020952 12 30 08 02 | 0 | MOVE.B (A0+D0.L+#0x2),D1 00020956 04 41 00 30 | A 0 | SUBI.W #0x0030,D1 0002095a 48 c1 |H | EXTW.L D1 0002095c 2c 01 |, | MOVE.L D1,D6 0002095e 0c 86 00 00 00 09 | | CMPI.L #0x00000009,D6 00020964 6f 02 |o | BLE 0x20968 00020966 5f 86 |_ | SUBQ.L #0x7,D6 00020968 20 07 | | MOVE.L D7,D0 0002096a 53 80 |S | SUBQ.L #0x1,D0 0002096c b0 82 | | CMP.L D2,D0 0002096e 63 02 |c | BLS 0x20972 00020970 4e 4f |NO | TRAP #15 00020972 0c 86 00 00 00 ff | | CMPI.L #0x000000ff,D6 00020978 63 02 |c | BLS 0x2097c 0002097a 4e 4f |NO | TRAP #15 0002097c 11 86 08 02 | | MOVE.B D6,(A0+D0.L+#0x2) 00020980 52 87 |R | ADDQ.L #0x1,D7 00020982 68 ba |h | BVC 0x2093e 00020984 58 4f |XO | ADDQ.L #0x4,A7 00020986 20 57 | W | MOVEA.L (A7),A0 00020988 20 14 | | MOVE.L (A4),D0 0002098a e3 80 | | ASL.L #0x1,D0 0002098c 32 10 |2 | MOVE.W (A0),D1 0002098e 48 c1 |H | EXTW.L D1 00020990 b2 80 | | CMP.L D0,D1 00020992 67 76 |gv | BEQ 0x20a0a 00020994 78 02 |x | MOVEQ.L #0x02,D4 00020996 26 14 |& | MOVE.L (A4),D3 00020998 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4 0002099e 2c 04 |, | MOVE.L D4,D6 000209a0 9c 81 | | SUB.L D1,D6 000209a2 2e 01 |. | MOVE.L D1,D7 000209a4 be 85 | | CMP.L D5,D7 000209a6 6d 22 |m" | BLT 0x209ca 000209a8 20 07 | | MOVE.L D7,D0 000209aa d0 86 | | ADD.L D6,D0 000209ac 53 80 |S | SUBQ.L #0x1,D0 000209ae b0 82 | | CMP.L D2,D0 000209b0 63 02 |c | BLS 0x209b4 000209b2 4e 4f |NO | TRAP #15 000209b4 20 57 | W | MOVEA.L (A7),A0 000209b6 22 07 |" | MOVE.L D7,D1 000209b8 53 81 |S | SUBQ.L #0x1,D1 000209ba b2 82 | | CMP.L D2,D1 000209bc 63 02 |c | BLS 0x209c0 000209be 4e 4f |NO | TRAP #15 000209c0 11 b0 18 02 08 02 | | MOVE.B (A0+D1.L+#0x2),(A0+D0.L+#0x2) 000209c6 53 87 |S | SUBQ.L #0x1,D7 000209c8 68 da |h | BVC 0x209a4 000209ca 2f 06 |/ | MOVE.L D6,-(A7) 000209cc 7e 01 |~ | MOVEQ.L #0x01,D7 000209ce be 97 | | CMP.L (A7),D7 000209d0 6e 16 |n | BGT 0x209e8 000209d2 20 07 | | MOVE.L D7,D0 000209d4 53 80 |S | SUBQ.L #0x1,D0 000209d6 b0 82 | | CMP.L D2,D0 000209d8 63 02 |c | BLS 0x209dc 000209da 4e 4f |NO | TRAP #15 000209dc 20 6f 00 04 | o | MOVEA.L (A7+0x4),A0 000209e0 42 30 08 02 |B0 | CLR.B (A0+D0.L+#0x2) 000209e4 52 87 |R | ADDQ.L #0x1,D7 000209e6 68 e6 |h | BVC 0x209ce 000209e8 58 4f |XO | ADDQ.L #0x4,A7 000209ea 20 57 | W | MOVEA.L (A7),A0 000209ec 30 10 |0 | MOVE.W (A0),D0 000209ee 48 c0 |H | EXTW.L D0 000209f0 d0 86 | | ADD.L D6,D0 000209f2 04 80 ff ff 80 00 | | SUBI.L #0xffff8000,D0 000209f8 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 000209fe 63 02 |c | BLS 0x20a02 00020a00 4e 4f |NO | TRAP #15 00020a02 06 80 ff ff 80 00 | | ADDI.L #0xffff8000,D0 00020a08 30 80 |0 | MOVE.W D0,(A0) 00020a0a 58 4f |XO | ADDQ.L #0x4,A7 00020a0c 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00020a10 4e 5e |N^ | UNLK A6 00020a12 4e 75 |Nu | RTS 00020a14 ; -------------------------------------------------------------------------------------- 00020a14 ; OMSI PASCAL Function 00020a14 ; <LVAR 0x008 4(r)> 00020a14 ; <LVAR -0x00e @ 4(rw)> 00020a14 ; <LVAR -0x010 1(rw)> 00020a14 ; -------------------------------------------------------------------------------------- 00020a14 4e 56 ff 9c |NV | LINK.W A6,#0xff9c 00020a18 bf d5 | | CMPA.L (A5),A7 00020a1a 62 06 |b | BHI 0x20a22 00020a1c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020a20 4e 76 |Nv | TRAPV 00020a22 de fc 00 50 | P | ADDA.W #0x50,A7 00020a26 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00020a2a 45 ee ff f2 |E | LEA.L (A6-0xe),A2 00020a2e 47 ee ff f0 |G | LEA.L (A6-0x10),A3 00020a32 49 f9 00 02 58 ce |I X | LEA.L 0x258ce,A4 00020a38 76 01 |v | MOVEQ.L #0x01,D3 00020a3a 78 7d |x} | MOVEQ.L #0x7d,D4 00020a3c 42 13 |B | CLR.B (A3) 00020a3e 7a 03 |z | MOVEQ.L #0x03,D5 00020a40 20 54 | T | MOVEA.L (A4),A0 00020a42 2f 08 |/ | MOVE.L A0,-(A7) 00020a44 20 57 | W | MOVEA.L (A7),A0 00020a46 22 68 00 f4 |"h | MOVEA.L (A0+0xf4),A1 00020a4a 2f 09 |/ | MOVE.L A1,-(A7) 00020a4c b2 c3 | | CMPA.W D3,A1 00020a4e 67 00 00 f6 |g | BEQ 0x20b46 00020a52 4a 13 |J | TST.B (A3) 00020a54 66 00 00 f0 |f | BNE 0x20b46 00020a58 10 11 | | MOVE.B (A1),D0 00020a5a ee 08 | | LSR.B #0x7,D0 00020a5c 66 06 |f | BNE 0x20a64 00020a5e 16 83 | | MOVE.B D3,(A3) 00020a60 60 00 00 dc |` | BRA 0x20b3e 00020a64 59 4f |YO | SUBQ.L #0x4,A7 00020a66 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00020a6a 2f 05 |/ | MOVE.L D5,-(A7) 00020a6c 4e b9 00 02 2b 6a |N +j | JSR 0x22b6a 00020a72 50 4f |PO | ADDQ.L #0x8,A7 00020a74 24 9f |$ | MOVE.L (A7)+,(A2) 00020a76 10 11 | | MOVE.B (A1),D0 00020a78 e3 08 | | LSL.B #0x1,D0 00020a7a ee 08 | | LSR.B #0x7,D0 00020a7c 67 20 |g | BEQ 0x20a9e 00020a7e 2f 14 |/ | MOVE.L (A4),-(A7) 00020a80 55 4f |UO | SUBQ.L #0x2,A7 00020a82 2f 12 |/ | MOVE.L (A2),-(A7) 00020a84 4e ba fc 96 |N | JSR 0x2071c 00020a88 58 4f |XO | ADDQ.L #0x4,A7 00020a8a 10 17 | | MOVE.B (A7),D0 00020a8c 48 80 |H | EXTB.W D0 00020a8e 41 83 |A | CHK.W D3,D0 00020a90 1e 80 | | MOVE.B D0,(A7) 00020a92 4e b9 00 01 04 6c |N l | JSR ExpInputFlag(exp : Pointer; val : Word) 00020a98 5c 4f |\O | ADDQ.L #0x6,A7 00020a9a 60 00 00 98 |` | BRA 0x20b34 00020a9e 2f 12 |/ | MOVE.L (A2),-(A7) 00020aa0 42 80 |B | CLR.L D0 00020aa2 10 11 | | MOVE.B (A1),D0 00020aa4 e5 08 | | LSL.B #0x2,D0 00020aa6 e4 08 | | LSR.B #0x2,D0 00020aa8 2f 00 |/ | MOVE.L D0,-(A7) 00020aaa 4e ba fd 44 |N D | JSR 0x207f0 00020aae 50 4f |PO | ADDQ.L #0x8,A7 00020ab0 42 80 |B | CLR.L D0 00020ab2 10 11 | | MOVE.B (A1),D0 00020ab4 e5 08 | | LSL.B #0x2,D0 00020ab6 e4 08 | | LSR.B #0x2,D0 00020ab8 53 40 |S@ | SUBQ.W #0x1,D0 00020aba 48 c0 |H | EXTW.L D0 00020abc 2f 00 |/ | MOVE.L D0,-(A7) 00020abe 7e 00 |~ | MOVEQ.L #0x00,D7 00020ac0 be 97 | | CMP.L (A7),D7 00020ac2 6e 62 |nb | BGT 0x20b26 00020ac4 20 52 | R | MOVEA.L (A2),A0 00020ac6 20 07 | | MOVE.L D7,D0 00020ac8 d0 87 | | ADD.L D7,D0 00020aca 22 00 |" | MOVE.L D0,D1 00020acc 52 81 |R | ADDQ.L #0x1,D1 00020ace 53 81 |S | SUBQ.L #0x1,D1 00020ad0 b2 84 | | CMP.L D4,D1 00020ad2 63 02 |c | BLS 0x20ad6 00020ad4 4e 4f |NO | TRAP #15 00020ad6 42 82 |B | CLR.L D2 00020ad8 14 30 18 02 | 0 | MOVE.B (A0+D1.L+#0x2),D2 00020adc e9 42 | B | ASL.W #0x4,D2 00020ade 54 80 |T | ADDQ.L #0x2,D0 00020ae0 53 80 |S | SUBQ.L #0x1,D0 00020ae2 b0 84 | | CMP.L D4,D0 00020ae4 63 02 |c | BLS 0x20ae8 00020ae6 4e 4f |NO | TRAP #15 00020ae8 42 81 |B | CLR.L D1 00020aea 12 30 08 02 | 0 | MOVE.B (A0+D0.L+#0x2),D1 00020aee d2 42 | B | ADD.W D2,D1 00020af0 48 c1 |H | EXTW.L D1 00020af2 2c 01 |, | MOVE.L D1,D6 00020af4 20 6f 00 04 | o | MOVEA.L (A7+0x4),A0 00020af8 42 80 |B | CLR.L D0 00020afa 10 28 00 01 | ( | MOVE.B (A0+0x1),D0 00020afe d0 87 | | ADD.L D7,D0 00020b00 04 80 00 00 00 10 | | SUBI.L #0x00000010,D0 00020b06 0c 80 00 00 00 ef | | CMPI.L #0x000000ef,D0 00020b0c 63 02 |c | BLS 0x20b10 00020b0e 4e 4f |NO | TRAP #15 00020b10 20 6f 00 08 | o | MOVEA.L (A7+0x8),A0 00020b14 0c 86 00 00 00 ff | | CMPI.L #0x000000ff,D6 00020b1a 63 02 |c | BLS 0x20b1e 00020b1c 4e 4f |NO | TRAP #15 00020b1e 11 86 08 04 | | MOVE.B D6,(A0+D0.L+#0x4) 00020b22 52 87 |R | ADDQ.L #0x1,D7 00020b24 68 9a |h | BVC 0x20ac0 00020b26 58 4f |XO | ADDQ.L #0x4,A7 00020b28 20 6f 00 04 | o | MOVEA.L (A7+0x4),A0 00020b2c 22 57 |"W | MOVEA.L (A7),A1 00020b2e 21 69 00 02 00 f4 |!i | MOVE.L (A1+0x2),(A0+0xf4) 00020b34 48 52 |HR | PEA.L (A2) 00020b36 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00020b3c 58 4f |XO | ADDQ.L #0x4,A7 00020b3e 52 85 |R | ADDQ.L #0x1,D5 00020b40 58 4f |XO | ADDQ.L #0x4,A7 00020b42 60 00 ff 00 |` | BRA 0x20a44 00020b46 50 4f |PO | ADDQ.L #0x8,A7 00020b48 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00020b4c 4e 5e |N^ | UNLK A6 00020b4e 4e 75 |Nu | RTS 00020b50 ; -------------------------------------------------------------------------------------- 00020b50 ; OMSI PASCAL Function 00020b50 ; <LVAR -0x00e 4(r)> 00020b50 ; <LVAR -0x012 @ 4(r)> 00020b50 ; <LVAR -0x01b @> 00020b50 ; <LVAR -0x022 @> 00020b50 ; <LVAR -0x024 2(r)> 00020b50 ; <LVAR -0x026 2(r)> 00020b50 ; <LVAR -0x028 @ 2(r)> 00020b50 ; <LVAR -0x02d @> 00020b50 ; <LVAR -0x02e 1(r)> 00020b50 ; <LVAR -0x02f 1(r)> 00020b50 ; <LVAR -0x030 1(r)> 00020b50 ; <LVAR -0x031 @ 1(r)> 00020b50 ; <LVAR -0x032 1(r)> 00020b50 ; <LVAR -0x033 1(r)> 00020b50 ; <LVAR -0x034 @ 1(r)> 00020b50 ; <LVAR -0x036 @ 2(r)> 00020b50 ; <LVAR -0x037 @ 1(r)> 00020b50 ; <LVAR -0x038 @ 1(r)> 00020b50 ; <LVAR -0x03c @ 4(rw)> 00020b50 ; <LVAR -0x040 @ 4(w)> 00020b50 ; -------------------------------------------------------------------------------------- 00020b50 4e 56 ff 5c |NV \ | LINK.W A6,#0xff5c 00020b54 bf d5 | | CMPA.L (A5),A7 00020b56 62 06 |b | BHI 0x20b5e 00020b58 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020b5c 4e 76 |Nv | TRAPV 00020b5e de fc 00 60 | ` | ADDA.W #0x60,A7 00020b62 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00020b66 47 f9 00 02 58 ce |G X | LEA.L 0x258ce,A3 00020b6c 49 f8 00 00 |I | LEA.L 0x0,A4 00020b70 74 01 |t | MOVEQ.L #0x01,D2 00020b72 76 0e |v | MOVEQ.L #0x0e,D3 00020b74 78 0c |x | MOVEQ.L #0x0c,D4 00020b76 7a 0f |z | MOVEQ.L #0x0f,D5 00020b78 59 4f |YO | SUBQ.L #0x4,A7 00020b7a 4e b9 00 02 1e 82 |N | JSR 0x21e82 00020b80 2d 5f ff c0 |-_ | MOVE.L (A7)+,(A6-0x40) 00020b84 20 53 | S | MOVEA.L (A3),A0 00020b86 2f 08 |/ | MOVE.L A0,-(A7) 00020b88 20 57 | W | MOVEA.L (A7),A0 00020b8a 22 68 00 f4 |"h | MOVEA.L (A0+0xf4),A1 00020b8e b2 c2 | | CMPA.W D2,A1 00020b90 67 00 02 c8 |g | BEQ 0x20e5a 00020b94 10 11 | | MOVE.B (A1),D0 00020b96 e3 08 | | LSL.B #0x1,D0 00020b98 ee 08 | | LSR.B #0x7,D0 00020b9a 67 62 |gb | BEQ 0x20bfe 00020b9c 2f 13 |/ | MOVE.L (A3),-(A7) 00020b9e 48 6e ff c8 |Hn | PEA.L (A6-0x38) 00020ba2 4e b9 00 01 04 78 |N x | JSR ExpOutputFlag(exp : Pointer; VAR status : Bool) 00020ba8 50 4f |PO | ADDQ.L #0x8,A7 00020baa 4a 2e ff c8 |J. | TST.B (A6-0x38) 00020bae 67 20 |g | BEQ 0x20bd0 00020bb0 2f 3a f6 d6 |/: | MOVE.L 0x20288,-(A7) 00020bb4 59 4f |YO | SUBQ.L #0x4,A7 00020bb6 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020bba 3f 02 |? | MOVE.W D2,-(A7) 00020bbc 3f 3c 00 04 |?< | MOVE.W #0x4,-(A7) 00020bc0 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020bc6 50 4f |PO | ADDQ.L #0x8,A7 00020bc8 2d 5f ff c4 |-_ | MOVE.L (A7)+,(A6-0x3c) 00020bcc 58 4f |XO | ADDQ.L #0x4,A7 00020bce 60 2a |`* | BRA 0x20bfa 00020bd0 5d 4f |]O | SUBQ.L #0x6,A7 00020bd2 22 4f |"O | MOVEA.L A7,A1 00020bd4 45 fa f6 b6 |E | LEA.L 0x2028c,A2 00020bd8 70 04 |p | MOVEQ.L #0x04,D0 00020bda 12 da | | MOVE.B (A2)+,(A1)+ 00020bdc 51 c8 ff fc |Q | DBF D0,0x20bda 00020be0 59 4f |YO | SUBQ.L #0x4,A7 00020be2 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020be6 3f 02 |? | MOVE.W D2,-(A7) 00020be8 3f 3c 00 05 |?< | MOVE.W #0x5,-(A7) 00020bec 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020bf2 50 4f |PO | ADDQ.L #0x8,A7 00020bf4 2d 5f ff c4 |-_ | MOVE.L (A7)+,(A6-0x3c) 00020bf8 5c 4f |\O | ADDQ.L #0x6,A7 00020bfa 60 00 02 24 |` $ | BRA 0x20e20 00020bfe 42 80 |B | CLR.L D0 00020c00 10 11 | | MOVE.B (A1),D0 00020c02 e5 08 | | LSL.B #0x2,D0 00020c04 e4 08 | | LSR.B #0x2,D0 00020c06 32 00 |2 | MOVE.W D0,D1 00020c08 53 41 |SA | SUBQ.W #0x1,D1 00020c0a 0c 41 00 07 | A | CMPI.W #0x0007,D1 00020c0e 63 02 |c | BLS 0x20c12 00020c10 4e 4e |NN | TRAP #14 00020c12 d2 41 | A | ADD.W D1,D1 00020c14 32 3b 10 06 4e fb 10 02 |2; N | SWITCH D1.W 00020c1c 00 10 | | .CONST 0x10 ; [0x0] -> 0x20c2c 00020c1e 00 3e | > | .CONST 0x3e ; [0x1] -> 0x20c5a 00020c20 00 60 | ` | .CONST 0x60 ; [0x2] -> 0x20c7c 00020c22 00 9e | | .CONST 0x9e ; [0x3] -> 0x20cba 00020c24 00 d2 | | .CONST 0xd2 ; [0x4] -> 0x20cee 00020c26 01 10 | | .CONST 0x110 ; [0x5] -> 0x20d2c 00020c28 01 3a | : | .CONST 0x13a ; [0x6] -> 0x20d56 00020c2a 01 66 | f | .CONST 0x166 ; [0x7] -> 0x20d82 00020c2c switch@0x20c14[0x0]: 00020c2c 2f 13 |/ | MOVE.L (A3),-(A7) 00020c2e 48 6e ff c9 |Hn | PEA.L (A6-0x37) 00020c32 48 54 |HT | PEA.L (A4) 00020c34 48 54 |HT | PEA.L (A4) 00020c36 4e b9 00 01 04 72 |N r | JSR ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L) 00020c3c de c3 | | ADDA.W D3,A7 00020c3e 1e ae ff c9 | | MOVE.B (A6-0x37),(A7) 00020c42 48 57 |HW | PEA.L (A7) 00020c44 48 54 |HT | PEA.L (A4) 00020c46 48 54 |HT | PEA.L (A4) 00020c48 48 6e ff ee |Hn | PEA.L (A6-0x12) 00020c4c 4e b9 00 01 04 b4 |N | JSR ?FS104b4(VAR a: Long; b: L; MOD c: L; VAR d : Q) 00020c52 de fc 00 12 | | ADDA.W #0x12,A7 00020c56 60 00 01 62 |` b | BRA 0x20dba 00020c5a switch@0x20c14[0x1]: 00020c5a 2f 13 |/ | MOVE.L (A3),-(A7) 00020c5c 48 6e ff ca |Hn | PEA.L (A6-0x36) 00020c60 48 54 |HT | PEA.L (A4) 00020c62 48 78 00 01 |Hx | PEA.L 0x1 00020c66 4e b9 00 01 04 72 |N r | JSR ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L) 00020c6c de c3 | | ADDA.W D3,A7 00020c6e 3e ae ff ca |> | MOVE.W (A6-0x36),(A7) 00020c72 48 57 |HW | PEA.L (A7) 00020c74 48 54 |HT | PEA.L (A4) 00020c76 48 78 00 01 |Hx | PEA.L 0x1 00020c7a 60 cc |` | BRA 0x20c48 00020c7c switch@0x20c14[0x2]: 00020c7c 2f 13 |/ | MOVE.L (A3),-(A7) 00020c7e 48 6e ff cc |Hn | PEA.L (A6-0x34) 00020c82 48 54 |HT | PEA.L (A4) 00020c84 48 78 00 02 |Hx | PEA.L 0x2 00020c88 4e b9 00 01 04 72 |N r | JSR ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L) 00020c8e de c4 | | ADDA.W D4,A7 00020c90 1e ae ff cc | | MOVE.B (A6-0x34),(A7) 00020c94 1f 6e ff cd 00 01 | n | MOVE.B (A6-0x33),(A7+0x1) 00020c9a 1f 6e ff ce 00 02 | n | MOVE.B (A6-0x32),(A7+0x2) 00020ca0 48 57 |HW | PEA.L (A7) 00020ca2 48 54 |HT | PEA.L (A4) 00020ca4 48 78 00 02 |Hx | PEA.L 0x2 00020ca8 48 6e ff ee |Hn | PEA.L (A6-0x12) 00020cac 4e b9 00 01 04 b4 |N | JSR ?FS104b4(VAR a: Long; b: L; MOD c: L; VAR d : Q) 00020cb2 de fc 00 14 | | ADDA.W #0x14,A7 00020cb6 60 00 01 02 |` | BRA 0x20dba 00020cba switch@0x20c14[0x3]: 00020cba 2f 13 |/ | MOVE.L (A3),-(A7) 00020cbc 48 6e ff cf |Hn | PEA.L (A6-0x31) 00020cc0 48 54 |HT | PEA.L (A4) 00020cc2 48 78 00 03 |Hx | PEA.L 0x3 00020cc6 4e b9 00 01 04 72 |N r | JSR ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L) 00020ccc de c4 | | ADDA.W D4,A7 00020cce 1e ae ff cf | | MOVE.B (A6-0x31),(A7) 00020cd2 1f 6e ff d0 00 01 | n | MOVE.B (A6-0x30),(A7+0x1) 00020cd8 1f 6e ff d1 00 02 | n | MOVE.B (A6-0x2f),(A7+0x2) 00020cde 1f 6e ff d2 00 03 | n | MOVE.B (A6-0x2e),(A7+0x3) 00020ce4 48 57 |HW | PEA.L (A7) 00020ce6 48 54 |HT | PEA.L (A4) 00020ce8 48 78 00 03 |Hx | PEA.L 0x3 00020cec 60 ba |` | BRA 0x20ca8 00020cee switch@0x20c14[0x4]: 00020cee 2f 13 |/ | MOVE.L (A3),-(A7) 00020cf0 48 6e ff d3 |Hn | PEA.L (A6-0x2d) 00020cf4 48 54 |HT | PEA.L (A4) 00020cf6 48 78 00 04 |Hx | PEA.L 0x4 00020cfa 4e b9 00 01 04 72 |N r | JSR ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L) 00020d00 de fc 00 0a | | ADDA.W #0xa,A7 00020d04 22 4f |"O | MOVEA.L A7,A1 00020d06 45 ee ff d3 |E | LEA.L (A6-0x2d),A2 00020d0a 72 04 |r | MOVEQ.L #0x04,D1 00020d0c 12 da | | MOVE.B (A2)+,(A1)+ 00020d0e 51 c9 ff fc |Q | DBF D1,0x20d0c 00020d12 48 57 |HW | PEA.L (A7) 00020d14 48 54 |HT | PEA.L (A4) 00020d16 48 78 00 04 |Hx | PEA.L 0x4 00020d1a 48 6e ff ee |Hn | PEA.L (A6-0x12) 00020d1e 4e b9 00 01 04 b4 |N | JSR ?FS104b4(VAR a: Long; b: L; MOD c: L; VAR d : Q) 00020d24 de fc 00 16 | | ADDA.W #0x16,A7 00020d28 60 00 00 90 |` | BRA 0x20dba 00020d2c switch@0x20c14[0x5]: 00020d2c 2f 13 |/ | MOVE.L (A3),-(A7) 00020d2e 48 6e ff d8 |Hn | PEA.L (A6-0x28) 00020d32 48 54 |HT | PEA.L (A4) 00020d34 48 78 00 05 |Hx | PEA.L 0x5 00020d38 4e b9 00 01 04 72 |N r | JSR ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L) 00020d3e de c3 | | ADDA.W D3,A7 00020d40 3e ae ff dc |> | MOVE.W (A6-0x24),(A7) 00020d44 3f 2e ff da |?. | MOVE.W (A6-0x26),-(A7) 00020d48 3f 2e ff d8 |?. | MOVE.W (A6-0x28),-(A7) 00020d4c 48 57 |HW | PEA.L (A7) 00020d4e 48 54 |HT | PEA.L (A4) 00020d50 48 78 00 05 |Hx | PEA.L 0x5 00020d54 60 c4 |` | BRA 0x20d1a 00020d56 switch@0x20c14[0x6]: 00020d56 2f 13 |/ | MOVE.L (A3),-(A7) 00020d58 48 6e ff de |Hn | PEA.L (A6-0x22) 00020d5c 48 54 |HT | PEA.L (A4) 00020d5e 48 78 00 06 |Hx | PEA.L 0x6 00020d62 4e b9 00 01 04 72 |N r | JSR ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L) 00020d68 50 4f |PO | ADDQ.L #0x8,A7 00020d6a 22 4f |"O | MOVEA.L A7,A1 00020d6c 45 ee ff de |E | LEA.L (A6-0x22),A2 00020d70 72 06 |r | MOVEQ.L #0x06,D1 00020d72 12 da | | MOVE.B (A2)+,(A1)+ 00020d74 51 c9 ff fc |Q | DBF D1,0x20d72 00020d78 48 57 |HW | PEA.L (A7) 00020d7a 48 54 |HT | PEA.L (A4) 00020d7c 48 78 00 06 |Hx | PEA.L 0x6 00020d80 60 2a |`* | BRA 0x20dac 00020d82 switch@0x20c14[0x7]: 00020d82 2f 13 |/ | MOVE.L (A3),-(A7) 00020d84 48 6e ff e5 |Hn | PEA.L (A6-0x1b) 00020d88 48 54 |HT | PEA.L (A4) 00020d8a 48 78 00 07 |Hx | PEA.L 0x7 00020d8e 4e b9 00 01 04 72 |N r | JSR ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L) 00020d94 50 4f |PO | ADDQ.L #0x8,A7 00020d96 22 4f |"O | MOVEA.L A7,A1 00020d98 45 ee ff e5 |E | LEA.L (A6-0x1b),A2 00020d9c 72 07 |r | MOVEQ.L #0x07,D1 00020d9e 12 da | | MOVE.B (A2)+,(A1)+ 00020da0 51 c9 ff fc |Q | DBF D1,0x20d9e 00020da4 48 57 |HW | PEA.L (A7) 00020da6 48 54 |HT | PEA.L (A4) 00020da8 48 78 00 07 |Hx | PEA.L 0x7 00020dac 48 6e ff ee |Hn | PEA.L (A6-0x12) 00020db0 4e b9 00 01 04 b4 |N | JSR ?FS104b4(VAR a: Long; b: L; MOD c: L; VAR d : Q) 00020db6 de fc 00 18 | | ADDA.W #0x18,A7 00020dba 48 6e ff c4 |Hn | PEA.L (A6-0x3c) 00020dbe 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00020dc4 58 4f |XO | ADDQ.L #0x4,A7 00020dc6 44 40 |D@ | NEG.W D0 00020dc8 50 40 |P@ | ADDQ.W #0x8,D0 00020dca e3 40 | @ | ASL.W #0x1,D0 00020dcc 48 c0 |H | EXTW.L D0 00020dce 2e 00 |. | MOVE.L D0,D7 00020dd0 be 85 | | CMP.L D5,D7 00020dd2 6e 4c |nL | BGT 0x20e20 00020dd4 9e c4 | | SUBA.W D4,A7 00020dd6 2f 2e ff f2 |/. | MOVE.L (A6-0xe),-(A7) 00020dda 2f 2e ff ee |/. | MOVE.L (A6-0x12),-(A7) 00020dde 20 07 | | MOVE.L D7,D0 00020de0 e5 80 | | ASL.L #0x2,D0 00020de2 2f 00 |/ | MOVE.L D0,-(A7) 00020de4 48 78 00 04 |Hx | PEA.L 0x4 00020de8 4e b9 00 01 03 4c |N L | JSR FSCALL_1034c 00020dee de fc 00 10 | | ADDA.W #0x10,A7 00020df2 4e b9 00 01 03 50 |N P | JSR Quad2Long(a : Quad) : Long 00020df8 50 4f |PO | ADDQ.L #0x8,A7 00020dfa 2c 1f |, | MOVE.L (A7)+,D6 00020dfc 2f 2e ff c4 |/. | MOVE.L (A6-0x3c),-(A7) 00020e00 20 06 | | MOVE.L D6,D0 00020e02 52 80 |R | ADDQ.L #0x1,D0 00020e04 53 80 |S | SUBQ.L #0x1,D0 00020e06 b0 85 | | CMP.L D5,D0 00020e08 63 02 |c | BLS 0x20e0c 00020e0a 4e 4f |NO | TRAP #15 00020e0c 41 fa f4 6a |A j | LEA.L 0x20278,A0 00020e10 1f 30 08 00 | 0 | MOVE.B (A0+D0.L),-(A7) 00020e14 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00020e1a 5c 4f |\O | ADDQ.L #0x6,A7 00020e1c 52 87 |R | ADDQ.L #0x1,D7 00020e1e 68 b0 |h | BVC 0x20dd0 00020e20 20 57 | W | MOVEA.L (A7),A0 00020e22 20 68 00 f4 | h | MOVEA.L (A0+0xf4),A0 00020e26 b0 c2 | | CMPA.W D2,A0 00020e28 67 10 |g | BEQ 0x20e3a 00020e2a 2f 2e ff c4 |/. | MOVE.L (A6-0x3c),-(A7) 00020e2e 1f 3c 00 2c | < , | MOVE.B #0x2c,-(A7) 00020e32 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00020e38 5c 4f |\O | ADDQ.L #0x6,A7 00020e3a 48 6e ff c0 |Hn | PEA.L (A6-0x40) 00020e3e 2f 2e ff c4 |/. | MOVE.L (A6-0x3c),-(A7) 00020e42 4e b9 00 02 24 20 |N $ | JSR 0x22420 00020e48 50 4f |PO | ADDQ.L #0x8,A7 00020e4a 48 6e ff c4 |Hn | PEA.L (A6-0x3c) 00020e4e 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00020e54 58 4f |XO | ADDQ.L #0x4,A7 00020e56 60 00 fd 30 |` 0 | BRA 0x20b88 00020e5a 58 4f |XO | ADDQ.L #0x4,A7 00020e5c 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00020e60 4e 5e |N^ | UNLK A6 00020e62 4e 75 |Nu | RTS 00020e64 ; -------------------------------------------------------------------------------------- 00020e64 ; OMSI PASCAL Function 00020e64 ; <LVAR 0x008 1(r)> 00020e64 ; <LVAR -0x003 @ 1(r)> 00020e64 ; <LVAR -0x004 @> 00020e64 ; <LVAR -0x008 @ 4(rw)> 00020e64 ; <LVAR -0x00a @ 1(r)> 00020e64 ; -------------------------------------------------------------------------------------- 00020e64 4e 56 ff 5a |NV Z | LINK.W A6,#0xff5a 00020e68 bf d5 | | CMPA.L (A5),A7 00020e6a 62 06 |b | BHI 0x20e72 00020e6c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020e70 4e 76 |Nv | TRAPV 00020e72 de fc 00 9c | | ADDA.W #0x9c,A7 00020e76 48 e7 fd f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D5+D4+D3+D2+D1+D0,-(A7) 00020e7a 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 00020e80 47 ee 00 08 |G | LEA.L (A6+0x8),A3 00020e84 49 fa f6 d6 |I | LEA.L 0x2055c,A4 00020e88 74 01 |t | MOVEQ.L #0x01,D2 00020e8a 76 0e |v | MOVEQ.L #0x0e,D3 00020e8c 78 10 |x | MOVEQ.L #0x10,D4 00020e8e 7a 14 |z | MOVEQ.L #0x14,D5 00020e90 7e 00 |~ | MOVEQ.L #0x00,D7 00020e92 10 13 | | MOVE.B (A3),D0 00020e94 48 80 |H | EXTB.W D0 00020e96 41 fa f5 e4 |A | LEA.L 0x2047c,A0 00020e9a 4a 30 00 00 |J0 | TST.B (A0+D0.W) 00020e9e 66 22 |f" | BNE 0x20ec2 00020ea0 41 fa f4 52 |A R | LEA.L 0x202f4,A0 00020ea4 72 12 |r | MOVEQ.L #0x12,D1 00020ea6 3f 20 |? | MOVE.W -(A0),-(A7) 00020ea8 51 c9 ff fc |Q | DBF D1,0x20ea6 00020eac 59 4f |YO | SUBQ.L #0x4,A7 00020eae 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020eb2 3f 02 |? | MOVE.W D2,-(A7) 00020eb4 3f 3c 00 26 |?< & | MOVE.W #0x26,-(A7) 00020eb8 4e 92 |N | JSR (A2) 00020eba 50 4f |PO | ADDQ.L #0x8,A7 00020ebc 4e 94 |N | JSR (A4) 00020ebe de fc 00 2a | * | ADDA.W #0x2a,A7 00020ec2 1f 00 | | MOVE.B D0,-(A7) 00020ec4 2f 39 00 02 58 ce |/9 X | MOVE.L 0x258ce,-(A7) 00020eca 4e b9 00 01 04 7e |N ~ | JSR ExpXmit(adr : Byte; b : Pointer) 00020ed0 58 4f |XO | ADDQ.L #0x4,A7 00020ed2 1e 80 | | MOVE.B D0,(A7) 00020ed4 48 6e ff f6 |Hn | PEA.L (A6-0xa) 00020ed8 48 6e ff fc |Hn | PEA.L (A6-0x4) 00020edc 48 6e ff fd |Hn | PEA.L (A6-0x3) 00020ee0 4e b9 00 01 04 84 |N | JSR DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool) 00020ee6 de c3 | | ADDA.W D3,A7 00020ee8 4a 2e ff fd |J. | TST.B (A6-0x3) 00020eec 66 24 |f$ | BNE 0x20f12 00020eee 9e c4 | | SUBA.W D4,A7 00020ef0 20 4f | O | MOVEA.L A7,A0 00020ef2 43 fa f4 00 |C | LEA.L 0x202f4,A1 00020ef6 70 0e |p | MOVEQ.L #0x0e,D0 00020ef8 10 d9 | | MOVE.B (A1)+,(A0)+ 00020efa 51 c8 ff fc |Q | DBF D0,0x20ef8 00020efe 59 4f |YO | SUBQ.L #0x4,A7 00020f00 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020f04 3f 02 |? | MOVE.W D2,-(A7) 00020f06 3f 3c 00 0f |?< | MOVE.W #0xf,-(A7) 00020f0a 4e 92 |N | JSR (A2) 00020f0c 50 4f |PO | ADDQ.L #0x8,A7 00020f0e 4e 94 |N | JSR (A4) 00020f10 de c5 | | ADDA.W D5,A7 00020f12 10 2e ff f6 | . | MOVE.B (A6-0xa),D0 00020f16 48 80 |H | EXTB.W D0 00020f18 32 00 |2 | MOVE.W D0,D1 00020f1a 53 41 |SA | SUBQ.W #0x1,D1 00020f1c 0c 41 00 08 | A | CMPI.W #0x0008,D1 00020f20 62 00 01 1a |b | BHI switch@0x20f26[0x6] 00020f24 d2 41 | A | ADD.W D1,D1 00020f26 32 3b 10 06 4e fb 10 02 |2; N | SWITCH D1.W 00020f2e 00 12 | | .CONST 0x12 ; [0x0] -> 0x20f40 00020f30 00 68 | h | .CONST 0x68 ; [0x1] -> 0x20f96 00020f32 00 68 | h | .CONST 0x68 ; [0x2] -> 0x20f96 00020f34 00 18 | | .CONST 0x18 ; [0x3] -> 0x20f46 00020f36 00 3c | < | .CONST 0x3c ; [0x4] -> 0x20f6a 00020f38 00 58 | X | .CONST 0x58 ; [0x5] -> 0x20f86 00020f3a 01 0e | | .CONST 0x10e ; [0x6] -> 0x2103c 00020f3c 01 0e | | .CONST 0x10e ; [0x7] -> 0x2103c 00020f3e 00 4a | J | .CONST 0x4a ; [0x8] -> 0x20f78 00020f40 switch@0x20f26[0x0]: 00020f40 7e 01 |~ | MOVEQ.L #0x01,D7 00020f42 60 00 01 2c |` , | BRA 0x21070 00020f46 switch@0x20f26[0x3]: 00020f46 41 fa f3 d0 |A | LEA.L 0x20318,A0 00020f4a 70 04 |p | MOVEQ.L #0x04,D0 00020f4c 2f 20 |/ | MOVE.L -(A0),-(A7) 00020f4e 51 c8 ff fc |Q | DBF D0,0x20f4c 00020f52 59 4f |YO | SUBQ.L #0x4,A7 00020f54 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020f58 3f 02 |? | MOVE.W D2,-(A7) 00020f5a 3f 05 |? | MOVE.W D5,-(A7) 00020f5c 4e 92 |N | JSR (A2) 00020f5e 50 4f |PO | ADDQ.L #0x8,A7 00020f60 4e 94 |N | JSR (A4) 00020f62 de fc 00 18 | | ADDA.W #0x18,A7 00020f66 60 00 01 08 |` | BRA 0x21070 00020f6a switch@0x20f26[0x4]: 00020f6a 41 fa f3 c0 |A | LEA.L 0x2032c,A0 00020f6e 70 04 |p | MOVEQ.L #0x04,D0 00020f70 2f 20 |/ | MOVE.L -(A0),-(A7) 00020f72 51 c8 ff fc |Q | DBF D0,0x20f70 00020f76 60 da |` | BRA 0x20f52 00020f78 switch@0x20f26[0x8]: 00020f78 41 fa f3 c6 |A | LEA.L 0x20340,A0 00020f7c 70 04 |p | MOVEQ.L #0x04,D0 00020f7e 2f 20 |/ | MOVE.L -(A0),-(A7) 00020f80 51 c8 ff fc |Q | DBF D0,0x20f7e 00020f84 60 cc |` | BRA 0x20f52 00020f86 switch@0x20f26[0x5]: 00020f86 48 78 02 8b |Hx | PEA.L 0x28b 00020f8a 4e b9 00 01 02 24 |N $ | JSR KC12_Sleep(dur: Long) 00020f90 58 4f |XO | ADDQ.L #0x4,A7 00020f92 60 00 00 dc |` | BRA 0x21070 00020f96 switch@0x20f26[0x1]: 00020f96 switch@0x20f26[0x2]: 00020f96 9e fc 00 0a | | SUBA.W #0xa,A7 00020f9a 20 4f | O | MOVEA.L A7,A0 00020f9c 43 fa f3 a2 |C | LEA.L 0x20340,A1 00020fa0 72 08 |r | MOVEQ.L #0x08,D1 00020fa2 10 d9 | | MOVE.B (A1)+,(A0)+ 00020fa4 51 c9 ff fc |Q | DBF D1,0x20fa2 00020fa8 41 fa f3 24 |A $ | LEA.L 0x202ce,A0 00020fac 72 0e |r | MOVEQ.L #0x0e,D1 00020fae 2f 20 |/ | MOVE.L -(A0),-(A7) 00020fb0 51 c9 ff fc |Q | DBF D1,0x20fae 00020fb4 9e c4 | | SUBA.W D4,A7 00020fb6 48 6f 00 4c |Ho L | PEA.L (A7+0x4c) 00020fba 3f 02 |? | MOVE.W D2,-(A7) 00020fbc 3f 3c 00 09 |?< | MOVE.W #0x9,-(A7) 00020fc0 4e 92 |N | JSR (A2) 00020fc2 54 4f |TO | ADDQ.L #0x2,A7 00020fc4 1e 80 | | MOVE.B D0,(A7) 00020fc6 4e b9 00 01 04 a2 |N | JSR ExpStatus2Text(status.B, &String) 00020fcc 55 4f |UO | SUBQ.L #0x2,A7 00020fce 48 6f 00 18 |Ho | PEA.L (A7+0x18) 00020fd2 3f 02 |? | MOVE.W D2,-(A7) 00020fd4 3f 3c 00 3c |?< < | MOVE.W #0x3c,-(A7) 00020fd8 4e 92 |N | JSR (A2) 00020fda 50 4f |PO | ADDQ.L #0x8,A7 00020fdc 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 00020fe2 de fc 00 0c | | ADDA.W #0xc,A7 00020fe6 4e b9 00 01 03 e4 |N | JSR AskConsoleString(prompt : String) : String 00020fec 58 4f |XO | ADDQ.L #0x4,A7 00020fee 4e b9 00 01 02 f0 |N | JSR ToUpper(a : String) : String 00020ff4 58 4f |XO | ADDQ.L #0x4,A7 00020ff6 2d 5f ff f8 |-_ | MOVE.L (A7)+,(A6-0x8) 00020ffa de fc 00 46 | F | ADDA.W #0x46,A7 00020ffe 20 6e ff f8 | n | MOVEA.L (A6-0x8),A0 00021002 12 28 00 02 | ( | MOVE.B (A0+0x2),D1 00021006 0c 01 00 45 | E | CMPI.B #0x45,D1 0002100a 66 04 |f | BNE 0x21010 0002100c 7e 01 |~ | MOVEQ.L #0x01,D7 0002100e 60 1e |` | BRA 0x2102e 00021010 0c 01 00 43 | C | CMPI.B #0x43,D1 00021014 66 18 |f | BNE 0x2102e 00021016 0c 00 00 03 | | CMPI.B #0x03,D0 0002101a 66 06 |f | BNE 0x21022 0002101c 1f 13 | | MOVE.B (A3),-(A7) 0002101e 42 27 |B' | CLR.B -(A7) 00021020 60 04 |` | BRA 0x21026 00021022 1f 13 | | MOVE.B (A3),-(A7) 00021024 1f 02 | | MOVE.B D2,-(A7) 00021026 4e b9 00 01 04 8a |N | JSR DiProcCmd(board : Byte; cmd : Byte) 0002102c 58 4f |XO | ADDQ.L #0x4,A7 0002102e 48 6e ff f8 |Hn | PEA.L (A6-0x8) 00021032 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00021038 60 00 ff 56 |` V | BRA 0x20f90 0002103c switch@0x20f26[0x6]: 0002103c switch@0x20f26[0x7]: 0002103c 41 fa f3 28 |A ( | LEA.L 0x20366,A0 00021040 72 06 |r | MOVEQ.L #0x06,D1 00021042 2f 20 |/ | MOVE.L -(A0),-(A7) 00021044 51 c9 ff fc |Q | DBF D1,0x21042 00021048 51 4f |QO | SUBQ.L #0x8,A7 0002104a 48 6f 00 08 |Ho | PEA.L (A7+0x8) 0002104e 3f 02 |? | MOVE.W D2,-(A7) 00021050 3f 3c 00 1c |?< | MOVE.W #0x1c,-(A7) 00021054 4e 92 |N | JSR (A2) 00021056 54 4f |TO | ADDQ.L #0x2,A7 00021058 1e 80 | | MOVE.B D0,(A7) 0002105a 4e b9 00 01 04 a2 |N | JSR ExpStatus2Text(status.B, &String) 00021060 54 4f |TO | ADDQ.L #0x2,A7 00021062 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00021068 50 4f |PO | ADDQ.L #0x8,A7 0002106a 4e 94 |N | JSR (A4) 0002106c de fc 00 20 | | ADDA.W #0x20,A7 00021070 4a 07 |J | TST.B D7 00021072 66 16 |f | BNE 0x2108a 00021074 1f 13 | | MOVE.B (A3),-(A7) 00021076 48 6e ff f6 |Hn | PEA.L (A6-0xa) 0002107a 48 6e ff fc |Hn | PEA.L (A6-0x4) 0002107e 48 6e ff fd |Hn | PEA.L (A6-0x3) 00021082 4e b9 00 01 04 84 |N | JSR DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool) 00021088 de c3 | | ADDA.W D3,A7 0002108a 4a 07 |J | TST.B D7 0002108c 67 00 fe 84 |g | BEQ 0x20f12 00021090 4c df 1f bf |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D7+A0+A1+A2+A3+A4 00021094 4e 5e |N^ | UNLK A6 00021096 4e 75 |Nu | RTS 00021098 ; -------------------------------------------------------------------------------------- 00021098 ; OMSI PASCAL Function 00021098 ; <LVAR 0x008 4(r)> 00021098 ; <LVAR -0x004 4(rw)> 00021098 ; <LVAR -0x00e @ 1(r)> 00021098 ; <LVAR -0x014 @ 1(r)> 00021098 ; -------------------------------------------------------------------------------------- 00021098 4e 56 ff 8e |NV | LINK.W A6,#0xff8e 0002109c bf d5 | | CMPA.L (A5),A7 0002109e 62 06 |b | BHI 0x210a6 000210a0 44 fc 00 02 |D | MOVE.W #0x2,CCR 000210a4 4e 76 |Nv | TRAPV 000210a6 de fc 00 5e | ^ | ADDA.W #0x5e,A7 000210aa 48 e7 fb f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D4+D3+D2+D1+D0,-(A7) 000210ae 45 f9 00 02 58 ce |E X | LEA.L 0x258ce,A2 000210b4 47 ee 00 08 |G | LEA.L (A6+0x8),A3 000210b8 72 01 |r | MOVEQ.L #0x01,D1 000210ba 74 1e |t | MOVEQ.L #0x1e,D2 000210bc 76 1d |v | MOVEQ.L #0x1d,D3 000210be 78 22 |x" | MOVEQ.L #0x22,D4 000210c0 59 4f |YO | SUBQ.L #0x4,A7 000210c2 2f 13 |/ | MOVE.L (A3),-(A7) 000210c4 4e b9 00 02 22 4e |N "N | JSR 0x2224e 000210ca 58 4f |XO | ADDQ.L #0x4,A7 000210cc 2c 1f |, | MOVE.L (A7)+,D6 000210ce 0c 86 00 00 00 02 | | CMPI.L #0x00000002,D6 000210d4 6c 2a |l* | BGE 0x21100 000210d6 9e c2 | | SUBA.W D2,A7 000210d8 20 4f | O | MOVEA.L A7,A0 000210da 43 fa f2 8a |C | LEA.L 0x20366,A1 000210de 70 1c |p | MOVEQ.L #0x1c,D0 000210e0 10 d9 | | MOVE.B (A1)+,(A0)+ 000210e2 51 c8 ff fc |Q | DBF D0,0x210e0 000210e6 59 4f |YO | SUBQ.L #0x4,A7 000210e8 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000210ec 3f 01 |? | MOVE.W D1,-(A7) 000210ee 3f 03 |? | MOVE.W D3,-(A7) 000210f0 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000210f6 50 4f |PO | ADDQ.L #0x8,A7 000210f8 4e b9 00 02 1e 42 |N B | JSR 0x21e42 000210fe de c4 | | ADDA.W D4,A7 00021100 59 4f |YO | SUBQ.L #0x4,A7 00021102 2f 13 |/ | MOVE.L (A3),-(A7) 00021104 48 78 00 01 |Hx | PEA.L 0x1 00021108 4e b9 00 02 2b 6a |N +j | JSR 0x22b6a 0002110e 50 4f |PO | ADDQ.L #0x8,A7 00021110 48 6e ff ec |Hn | PEA.L (A6-0x14) 00021114 4e ba f5 44 |N D | JSR 0x2065a 00021118 50 4f |PO | ADDQ.L #0x8,A7 0002111a 10 2e ff ec | . | MOVE.B (A6-0x14),D0 0002111e 48 80 |H | EXTB.W D0 00021120 e5 40 | @ | ASL.W #0x2,D0 00021122 41 f9 00 02 58 c6 |A X | LEA.L 0x258c6,A0 00021128 2f 30 00 0c |/0 | MOVE.L (A0+D0.W+#0xc),-(A7) 0002112c 51 4f |QO | SUBQ.L #0x8,A7 0002112e 2f 13 |/ | MOVE.L (A3),-(A7) 00021130 48 78 00 02 |Hx | PEA.L 0x2 00021134 4e b9 00 02 2b 6a |N +j | JSR 0x22b6a 0002113a 58 4f |XO | ADDQ.L #0x4,A7 0002113c 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00021140 3f 01 |? | MOVE.W D1,-(A7) 00021142 3f 3c 00 04 |?< | MOVE.W #0x4,-(A7) 00021146 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002114c 50 4f |PO | ADDQ.L #0x8,A7 0002114e 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00021154 50 4f |PO | ADDQ.L #0x8,A7 00021156 28 5f |(_ | MOVEA.L (A7)+,A4 00021158 2e 8c |. | MOVE.L A4,(A7) 0002115a 48 52 |HR | PEA.L (A2) 0002115c 4e b9 00 01 04 60 |N ` | JSR ExpLoad(a : String; b: Pointer) 00021162 50 4f |PO | ADDQ.L #0x8,A7 00021164 20 52 | R | MOVEA.L (A2),A0 00021166 2d 68 00 f8 ff fc |-h | MOVE.L (A0+0xf8),(A6-0x4) 0002116c 7e 02 |~ | MOVEQ.L #0x02,D7 0002116e 20 6e ff fc | n | MOVEA.L (A6-0x4),A0 00021172 b0 c1 | | CMPA.W D1,A0 00021174 67 10 |g | BEQ 0x21186 00021176 10 10 | | MOVE.B (A0),D0 00021178 ee 08 | | LSR.B #0x7,D0 0002117a 67 02 |g | BEQ 0x2117e 0002117c 52 87 |R | ADDQ.L #0x1,D7 0002117e 2d 68 00 02 ff fc |-h | MOVE.L (A0+0x2),(A6-0x4) 00021184 60 e8 |` | BRA 0x2116e 00021186 be 86 | | CMP.L D6,D7 00021188 67 28 |g( | BEQ 0x211b2 0002118a 9e c2 | | SUBA.W D2,A7 0002118c 20 4f | O | MOVEA.L A7,A0 0002118e 43 fa f1 d6 |C | LEA.L 0x20366,A1 00021192 70 1c |p | MOVEQ.L #0x1c,D0 00021194 10 d9 | | MOVE.B (A1)+,(A0)+ 00021196 51 c8 ff fc |Q | DBF D0,0x21194 0002119a 59 4f |YO | SUBQ.L #0x4,A7 0002119c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000211a0 3f 01 |? | MOVE.W D1,-(A7) 000211a2 3f 03 |? | MOVE.W D3,-(A7) 000211a4 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000211aa 50 4f |PO | ADDQ.L #0x8,A7 000211ac 4e ba f3 ae |N | JSR 0x2055c 000211b0 de c4 | | ADDA.W D4,A7 000211b2 2f 13 |/ | MOVE.L (A3),-(A7) 000211b4 4e ba f8 5e |N ^ | JSR 0x20a14 000211b8 54 4f |TO | ADDQ.L #0x2,A7 000211ba 1e ae ff ec | | MOVE.B (A6-0x14),(A7) 000211be 4e ba fc a4 |N | JSR 0x20e64 000211c2 54 4f |TO | ADDQ.L #0x2,A7 000211c4 20 52 | R | MOVEA.L (A2),A0 000211c6 10 28 01 1c | ( | MOVE.B (A0+0x11c),D0 000211ca ee 08 | | LSR.B #0x7,D0 000211cc 67 48 |gH | BEQ 0x21216 000211ce 1f 2e ff ec | . | MOVE.B (A6-0x14),-(A7) 000211d2 2f 12 |/ | MOVE.L (A2),-(A7) 000211d4 48 6e ff f2 |Hn | PEA.L (A6-0xe) 000211d8 4e b9 00 01 04 90 |N | JSR ExpUpload(adr: Byte; ptr: Pointer; VAR status : Byte) 000211de de fc 00 0a | | ADDA.W #0xa,A7 000211e2 10 2e ff f2 | . | MOVE.B (A6-0xe),D0 000211e6 b0 01 | | CMP.B D1,D0 000211e8 67 28 |g( | BEQ 0x21212 000211ea 41 fa f1 b0 |A | LEA.L 0x2039c,A0 000211ee 70 05 |p | MOVEQ.L #0x05,D0 000211f0 2f 20 |/ | MOVE.L -(A0),-(A7) 000211f2 51 c8 ff fc |Q | DBF D0,0x211f0 000211f6 59 4f |YO | SUBQ.L #0x4,A7 000211f8 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000211fc 3f 01 |? | MOVE.W D1,-(A7) 000211fe 3f 3c 00 18 |?< | MOVE.W #0x18,-(A7) 00021202 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00021208 50 4f |PO | ADDQ.L #0x8,A7 0002120a 4e ba f3 50 |N P | JSR 0x2055c 0002120e de fc 00 1c | | ADDA.W #0x1c,A7 00021212 4e ba f9 3c |N < | JSR 0x20b50 00021216 48 52 |HR | PEA.L (A2) 00021218 4e b9 00 01 04 96 |N | JSR ExpClose(exp : Pointer) 0002121e 58 4f |XO | ADDQ.L #0x4,A7 00021220 4c df 1f df |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D6+D7+A0+A1+A2+A3+A4 00021224 4e 5e |N^ | UNLK A6 00021226 4e 75 |Nu | RTS 00021228 ; -------------------------------------------------------------------------------------- 00021228 ; OMSI PASCAL Function 00021228 ; <LVAR 0x008 4(r)> 00021228 ; <LVAR -0x001 @> 00021228 ; <LVAR -0x002 @ 1(r)> 00021228 ; <LVAR -0x007 @ 1(r)> 00021228 ; <LVAR -0x008 @ 1(r)> 00021228 ; -------------------------------------------------------------------------------------- 00021228 4e 56 ff ac |NV | LINK.W A6,#0xffac 0002122c bf d5 | | CMPA.L (A5),A7 0002122e 62 06 |b | BHI 0x21236 00021230 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021234 4e 76 |Nv | TRAPV 00021236 de fc 00 4c | L | ADDA.W #0x4c,A7 0002123a 48 e7 f0 c8 |H | MOVEM.L A4+A1+A0+D3+D2+D1+D0,-(A7) 0002123e 74 01 |t | MOVEQ.L #0x01,D2 00021240 76 0a |v | MOVEQ.L #0x0a,D3 00021242 41 fa f1 62 |A b | LEA.L 0x203a6,A0 00021246 70 04 |p | MOVEQ.L #0x04,D0 00021248 3f 20 |? | MOVE.W -(A0),-(A7) 0002124a 51 c8 ff fc |Q | DBF D0,0x21248 0002124e 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00021252 48 78 00 01 |Hx | PEA.L 0x1 00021256 4e b9 00 02 22 84 |N " | JSR 0x22284 0002125c de c3 | | ADDA.W D3,A7 0002125e 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7) 00021262 48 78 00 01 |Hx | PEA.L 0x1 00021266 4e b9 00 02 2b 6a |N +j | JSR 0x22b6a 0002126c 50 4f |PO | ADDQ.L #0x8,A7 0002126e 48 6e ff f8 |Hn | PEA.L (A6-0x8) 00021272 4e ba f3 e6 |N | JSR 0x2065a 00021276 50 4f |PO | ADDQ.L #0x8,A7 00021278 10 2e ff f8 | . | MOVE.B (A6-0x8),D0 0002127c 48 80 |H | EXTB.W D0 0002127e 41 fa f1 fc |A | LEA.L 0x2047c,A0 00021282 4a 30 00 00 |J0 | TST.B (A0+D0.W) 00021286 66 2a |f* | BNE 0x212b2 00021288 41 fa f1 3a |A : | LEA.L 0x203c4,A0 0002128c 72 0e |r | MOVEQ.L #0x0e,D1 0002128e 3f 20 |? | MOVE.W -(A0),-(A7) 00021290 51 c9 ff fc |Q | DBF D1,0x2128e 00021294 59 4f |YO | SUBQ.L #0x4,A7 00021296 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002129a 3f 02 |? | MOVE.W D2,-(A7) 0002129c 3f 3c 00 1e |?< | MOVE.W #0x1e,-(A7) 000212a0 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000212a6 50 4f |PO | ADDQ.L #0x8,A7 000212a8 4e b9 00 02 1e 42 |N B | JSR 0x21e42 000212ae de fc 00 22 | " | ADDA.W #0x22,A7 000212b2 1f 00 | | MOVE.B D0,-(A7) 000212b4 48 6e ff f9 |Hn | PEA.L (A6-0x7) 000212b8 48 6e ff fe |Hn | PEA.L (A6-0x2) 000212bc 48 6e ff ff |Hn | PEA.L (A6-0x1) 000212c0 4e b9 00 01 04 84 |N | JSR DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool) 000212c6 de c3 | | ADDA.W D3,A7 000212c8 10 2e ff f9 | . | MOVE.B (A6-0x7),D0 000212cc 48 80 |H | EXTB.W D0 000212ce 48 c0 |H | EXTW.L D0 000212d0 2f 00 |/ | MOVE.L D0,-(A7) 000212d2 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 000212d8 58 4f |XO | ADDQ.L #0x4,A7 000212da 28 5f |(_ | MOVEA.L (A7)+,A4 000212dc 4a 2e ff fe |J. | TST.B (A6-0x2) 000212e0 67 22 |g" | BEQ 0x21304 000212e2 5d 4f |]O | SUBQ.L #0x6,A7 000212e4 20 4f | O | MOVEA.L A7,A0 000212e6 43 fa f0 dc |C | LEA.L 0x203c4,A1 000212ea 70 04 |p | MOVEQ.L #0x04,D0 000212ec 10 d9 | | MOVE.B (A1)+,(A0)+ 000212ee 51 c8 ff fc |Q | DBF D0,0x212ec 000212f2 59 4f |YO | SUBQ.L #0x4,A7 000212f4 2f 0c |/ | MOVE.L A4,-(A7) 000212f6 59 4f |YO | SUBQ.L #0x4,A7 000212f8 48 6f 00 0c |Ho | PEA.L (A7+0xc) 000212fc 3f 02 |? | MOVE.W D2,-(A7) 000212fe 3f 3c 00 05 |?< | MOVE.W #0x5,-(A7) 00021302 60 1c |` | BRA 0x21320 00021304 3f 3a f0 c8 |?: | MOVE.W 0x203ce,-(A7) 00021308 3f 3a f0 c2 |?: | MOVE.W 0x203cc,-(A7) 0002130c 3f 3a f0 bc |?: | MOVE.W 0x203ca,-(A7) 00021310 59 4f |YO | SUBQ.L #0x4,A7 00021312 2f 0c |/ | MOVE.L A4,-(A7) 00021314 59 4f |YO | SUBQ.L #0x4,A7 00021316 48 6f 00 0c |Ho | PEA.L (A7+0xc) 0002131a 3f 02 |? | MOVE.W D2,-(A7) 0002131c 3f 3c 00 06 |?< | MOVE.W #0x6,-(A7) 00021320 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00021326 50 4f |PO | ADDQ.L #0x8,A7 00021328 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 0002132e 50 4f |PO | ADDQ.L #0x8,A7 00021330 28 5f |(_ | MOVEA.L (A7)+,A4 00021332 5c 4f |\O | ADDQ.L #0x6,A7 00021334 2f 0c |/ | MOVE.L A4,-(A7) 00021336 4e b9 00 02 2c 0c |N , | JSR 0x22c0c 0002133c 58 4f |XO | ADDQ.L #0x4,A7 0002133e 4c df 13 0f |L | MOVEM.L (A7)+,D0+D1+D2+D3+A0+A1+A4 00021342 4e 5e |N^ | UNLK A6 00021344 4e 75 |Nu | RTS 00021346 ; -------------------------------------------------------------------------------------- 00021346 ; OMSI PASCAL Function 00021346 ; <LVAR 0x008 4(r)> 00021346 ; <LVAR -0x001 @> 00021346 ; <LVAR -0x002 @> 00021346 ; <LVAR -0x003 @ 1(r)> 00021346 ; <LVAR -0x004 @ 1(r)> 00021346 ; -------------------------------------------------------------------------------------- 00021346 4e 56 ff b6 |NV | LINK.W A6,#0xffb6 0002134a bf d5 | | CMPA.L (A5),A7 0002134c 62 06 |b | BHI 0x21354 0002134e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021352 4e 76 |Nv | TRAPV 00021354 de fc 00 46 | F | ADDA.W #0x46,A7 00021358 48 e7 c0 e0 |H | MOVEM.L A2+A1+A0+D1+D0,-(A7) 0002135c 45 ee ff fc |E | LEA.L (A6-0x4),A2 00021360 72 01 |r | MOVEQ.L #0x01,D1 00021362 41 fa f0 76 |A v | LEA.L 0x203da,A0 00021366 70 04 |p | MOVEQ.L #0x04,D0 00021368 3f 20 |? | MOVE.W -(A0),-(A7) 0002136a 51 c8 ff fc |Q | DBF D0,0x21368 0002136e 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00021372 48 78 00 01 |Hx | PEA.L 0x1 00021376 4e b9 00 02 22 84 |N " | JSR 0x22284 0002137c de fc 00 0a | | ADDA.W #0xa,A7 00021380 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7) 00021384 48 78 00 01 |Hx | PEA.L 0x1 00021388 4e b9 00 02 2b 6a |N +j | JSR 0x22b6a 0002138e 50 4f |PO | ADDQ.L #0x8,A7 00021390 48 52 |HR | PEA.L (A2) 00021392 4e ba f2 c6 |N | JSR 0x2065a 00021396 5c 4f |\O | ADDQ.L #0x6,A7 00021398 1e 92 | | MOVE.B (A2),(A7) 0002139a 48 6e ff fd |Hn | PEA.L (A6-0x3) 0002139e 48 6e ff fe |Hn | PEA.L (A6-0x2) 000213a2 48 6e ff ff |Hn | PEA.L (A6-0x1) 000213a6 4e b9 00 01 04 84 |N | JSR DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool) 000213ac de fc 00 0e | | ADDA.W #0xe,A7 000213b0 10 2e ff fd | . | MOVE.B (A6-0x3),D0 000213b4 0c 00 00 03 | | CMPI.B #0x03,D0 000213b8 66 0e |f | BNE 0x213c8 000213ba 1f 12 | | MOVE.B (A2),-(A7) 000213bc 42 27 |B' | CLR.B -(A7) 000213be 4e b9 00 01 04 8a |N | JSR DiProcCmd(board : Byte; cmd : Byte) 000213c4 58 4f |XO | ADDQ.L #0x4,A7 000213c6 60 3c |`< | BRA 0x21404 000213c8 0c 00 00 02 | | CMPI.B #0x02,D0 000213cc 66 06 |f | BNE 0x213d4 000213ce 1f 12 | | MOVE.B (A2),-(A7) 000213d0 1f 01 | | MOVE.B D1,-(A7) 000213d2 60 ea |` | BRA 0x213be 000213d4 9e fc 00 20 | | SUBA.W #0x20,A7 000213d8 20 4f | O | MOVEA.L A7,A0 000213da 43 fa ef fe |C | LEA.L 0x203da,A1 000213de 70 1e |p | MOVEQ.L #0x1e,D0 000213e0 10 d9 | | MOVE.B (A1)+,(A0)+ 000213e2 51 c8 ff fc |Q | DBF D0,0x213e0 000213e6 59 4f |YO | SUBQ.L #0x4,A7 000213e8 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000213ec 3f 01 |? | MOVE.W D1,-(A7) 000213ee 3f 3c 00 1f |?< | MOVE.W #0x1f,-(A7) 000213f2 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000213f8 50 4f |PO | ADDQ.L #0x8,A7 000213fa 4e b9 00 02 1e 42 |N B | JSR 0x21e42 00021400 de fc 00 24 | $ | ADDA.W #0x24,A7 00021404 4c df 07 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2 00021408 4e 5e |N^ | UNLK A6 0002140a 4e 75 |Nu | RTS 0002140c ; -------------------------------------------------------------------------------------- 0002140c ; OMSI PASCAL Function 0002140c ; <LVAR 0x008 4(r)> 0002140c ; <LVAR -0x004 @ 1(r)> 0002140c ; -------------------------------------------------------------------------------------- 0002140c 4e 56 ff de |NV | LINK.W A6,#0xffde 00021410 bf d5 | | CMPA.L (A5),A7 00021412 62 06 |b | BHI 0x2141a 00021414 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021418 4e 76 |Nv | TRAPV 0002141a de fc 00 1e | | ADDA.W #0x1e,A7 0002141e 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 00021422 41 fa ef e0 |A | LEA.L 0x20404,A0 00021426 70 04 |p | MOVEQ.L #0x04,D0 00021428 3f 20 |? | MOVE.W -(A0),-(A7) 0002142a 51 c8 ff fc |Q | DBF D0,0x21428 0002142e 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00021432 48 78 00 01 |Hx | PEA.L 0x1 00021436 4e b9 00 02 22 84 |N " | JSR 0x22284 0002143c de fc 00 0a | | ADDA.W #0xa,A7 00021440 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7) 00021444 48 78 00 01 |Hx | PEA.L 0x1 00021448 4e b9 00 02 2b 6a |N +j | JSR 0x22b6a 0002144e 50 4f |PO | ADDQ.L #0x8,A7 00021450 48 6e ff fc |Hn | PEA.L (A6-0x4) 00021454 4e ba f2 04 |N | JSR 0x2065a 00021458 5c 4f |\O | ADDQ.L #0x6,A7 0002145a 1e ae ff fc | | MOVE.B (A6-0x4),(A7) 0002145e 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 00021462 4e b9 00 01 04 8a |N | JSR DiProcCmd(board : Byte; cmd : Byte) 00021468 58 4f |XO | ADDQ.L #0x4,A7 0002146a 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 0002146e 4e 5e |N^ | UNLK A6 00021470 4e 75 |Nu | RTS 00021472 ; -------------------------------------------------------------------------------------- 00021472 ; OMSI PASCAL Function 00021472 ; <LVAR 0x00c 1(w)> 00021472 ; <LVAR 0x008 4(r)> 00021472 ; <LVAR -0x006 @ 4(rw)> 00021472 ; -------------------------------------------------------------------------------------- 00021472 4e 56 ff b4 |NV | LINK.W A6,#0xffb4 00021476 bf d5 | | CMPA.L (A5),A7 00021478 62 06 |b | BHI 0x21480 0002147a 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002147e 4e 76 |Nv | TRAPV 00021480 de fc 00 44 | D | ADDA.W #0x44,A7 00021484 48 e7 f3 e0 |H | MOVEM.L A2+A1+A0+D7+D6+D3+D2+D1+D0,-(A7) 00021488 45 ee ff fa |E | LEA.L (A6-0x6),A2 0002148c 72 0c |r | MOVEQ.L #0x0c,D1 0002148e 74 09 |t | MOVEQ.L #0x09,D2 00021490 76 01 |v | MOVEQ.L #0x01,D3 00021492 1d 42 00 0c | B | MOVE.B D2,(A6+0xc) 00021496 7e 00 |~ | MOVEQ.L #0x00,D7 00021498 10 07 | | MOVE.B D7,D0 0002149a 48 80 |H | EXTB.W D0 0002149c c1 c1 | | MULS.W D1,D0 0002149e 41 fa ef ec |A | LEA.L 0x2048c,A0 000214a2 9e c1 | | SUBA.W D1,A7 000214a4 22 4f |"O | MOVEA.L A7,A1 000214a6 41 f0 00 00 |A | LEA.L (A0+D0.W),A0 000214aa 70 0b |p | MOVEQ.L #0x0b,D0 000214ac 12 d8 | | MOVE.B (A0)+,(A1)+ 000214ae 51 c8 ff fc |Q | DBF D0,0x214ac 000214b2 59 4f |YO | SUBQ.L #0x4,A7 000214b4 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000214b8 3f 03 |? | MOVE.W D3,-(A7) 000214ba 3f 01 |? | MOVE.W D1,-(A7) 000214bc 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000214c2 50 4f |PO | ADDQ.L #0x8,A7 000214c4 24 9f |$ | MOVE.L (A7)+,(A2) 000214c6 5c 4f |\O | ADDQ.L #0x6,A7 000214c8 2e 92 |. | MOVE.L (A2),(A7) 000214ca 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000214ce 4e b9 00 01 02 c8 |N | JSR StringEqual(a, b : String) : Byte 000214d4 50 4f |PO | ADDQ.L #0x8,A7 000214d6 10 1f | | MOVE.B (A7)+,D0 000214d8 48 80 |H | EXTB.W D0 000214da 41 83 |A | CHK.W D3,D0 000214dc 1c 00 | | MOVE.B D0,D6 000214de 48 52 |HR | PEA.L (A2) 000214e0 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000214e6 58 4f |XO | ADDQ.L #0x4,A7 000214e8 4a 06 |J | TST.B D6 000214ea 67 06 |g | BEQ 0x214f2 000214ec 1d 47 00 0c | G | MOVE.B D7,(A6+0xc) 000214f0 60 06 |` | BRA 0x214f8 000214f2 52 07 |R | ADDQ.B #0x1,D7 000214f4 be 02 | | CMP.B D2,D7 000214f6 6f a0 |o | BLE 0x21498 000214f8 4c df 07 cf |L | MOVEM.L (A7)+,D0+D1+D2+D3+D6+D7+A0+A1+A2 000214fc 4e 5e |N^ | UNLK A6 000214fe 4e 75 |Nu | RTS 00021500 ; -------------------------------------------------------------------------------------- 00021500 ; OMSI PASCAL Function 00021500 ; <LVAR 0x008 1(r)> 00021500 ; -------------------------------------------------------------------------------------- 00021500 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 00021504 bf d5 | | CMPA.L (A5),A7 00021506 62 06 |b | BHI 0x2150e 00021508 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002150c 4e 76 |Nv | TRAPV 0002150e de fc 00 26 | & | ADDA.W #0x26,A7 00021512 48 e7 c0 c0 |H | MOVEM.L A1+A0+D1+D0,-(A7) 00021516 72 01 |r | MOVEQ.L #0x01,D1 00021518 10 2e 00 08 | . | MOVE.B (A6+0x8),D0 0002151c 48 80 |H | EXTB.W D0 0002151e b0 41 | A | CMP.W D1,D0 00021520 63 02 |c | BLS 0x21524 00021522 4e 4e |NN | TRAP #14 00021524 d0 40 | @ | ADD.W D0,D0 00021526 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 0002152e 00 26 | & | .CONST 0x26 ; [0x0] -> 0x21554 00021530 00 04 | | .CONST 0x4 ; [0x1] -> 0x21532 00021532 switch@0x21526[0x1]: 00021532 2f 3a ee d0 |/: | MOVE.L 0x20404,-(A7) 00021536 59 4f |YO | SUBQ.L #0x4,A7 00021538 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002153c 3f 01 |? | MOVE.W D1,-(A7) 0002153e 3f 3c 00 04 |?< | MOVE.W #0x4,-(A7) 00021542 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00021548 50 4f |PO | ADDQ.L #0x8,A7 0002154a 4e b9 00 02 2c 0c |N , | JSR 0x22c0c 00021550 50 4f |PO | ADDQ.L #0x8,A7 00021552 60 2e |`. | BRA 0x21582 00021554 switch@0x21526[0x0]: 00021554 5d 4f |]O | SUBQ.L #0x6,A7 00021556 20 4f | O | MOVEA.L A7,A0 00021558 43 fa ee ae |C | LEA.L 0x20408,A1 0002155c 70 04 |p | MOVEQ.L #0x04,D0 0002155e 10 d9 | | MOVE.B (A1)+,(A0)+ 00021560 51 c8 ff fc |Q | DBF D0,0x2155e 00021564 59 4f |YO | SUBQ.L #0x4,A7 00021566 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002156a 3f 01 |? | MOVE.W D1,-(A7) 0002156c 3f 3c 00 05 |?< | MOVE.W #0x5,-(A7) 00021570 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00021576 50 4f |PO | ADDQ.L #0x8,A7 00021578 4e b9 00 02 2c 0c |N , | JSR 0x22c0c 0002157e de fc 00 0a | | ADDA.W #0xa,A7 00021582 4c df 03 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1 00021586 4e 5e |N^ | UNLK A6 00021588 4e 75 |Nu | RTS 0002158a ; -------------------------------------------------------------------------------------- 0002158a ; OMSI PASCAL Function 0002158a ; <LVAR 0x010 4(r)> 0002158a ; <LVAR 0x00c 4(r)> 0002158a ; <LVAR 0x008 4(r)> 0002158a ; -------------------------------------------------------------------------------------- 0002158a 4e 56 ff de |NV | LINK.W A6,#0xffde 0002158e bf d5 | | CMPA.L (A5),A7 00021590 62 06 |b | BHI 0x21598 00021592 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021596 4e 76 |Nv | TRAPV 00021598 de fc 00 22 | " | ADDA.W #0x22,A7 0002159c 48 e7 c0 e0 |H | MOVEM.L A2+A1+A0+D1+D0,-(A7) 000215a0 43 ee 00 0c |C | LEA.L (A6+0xc),A1 000215a4 45 f9 00 01 04 c0 |E | LEA.L HasBoard(diproc_addr: Byte) : Byte,A2 000215aa 72 01 |r | MOVEQ.L #0x01,D1 000215ac 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 000215b0 10 81 | | MOVE.B D1,(A0) 000215b2 55 4f |UO | SUBQ.L #0x2,A7 000215b4 2f 2e 00 10 |/. | MOVE.L (A6+0x10),-(A7) 000215b8 4e ba fe b8 |N | JSR 0x21472 000215bc 58 4f |XO | ADDQ.L #0x4,A7 000215be 10 1f | | MOVE.B (A7)+,D0 000215c0 48 80 |H | EXTB.W D0 000215c2 0c 40 00 09 | @ | CMPI.W #0x0009,D0 000215c6 63 02 |c | BLS 0x215ca 000215c8 4e 4e |NN | TRAP #14 000215ca d0 40 | @ | ADD.W D0,D0 000215cc 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 000215d4 00 14 | | .CONST 0x14 ; [0x0] -> 0x215e8 000215d6 00 1e | | .CONST 0x1e ; [0x1] -> 0x215f2 000215d8 00 26 | & | .CONST 0x26 ; [0x2] -> 0x215fa 000215da 00 2e | . | .CONST 0x2e ; [0x3] -> 0x21602 000215dc 00 36 | 6 | .CONST 0x36 ; [0x4] -> 0x2160a 000215de 00 50 | P | .CONST 0x50 ; [0x5] -> 0x21624 000215e0 00 62 | b | .CONST 0x62 ; [0x6] -> 0x21636 000215e2 00 74 | t | .CONST 0x74 ; [0x7] -> 0x21648 000215e4 00 86 | | .CONST 0x86 ; [0x8] -> 0x2165a 000215e6 00 96 | | .CONST 0x96 ; [0x9] -> 0x2166a 000215e8 switch@0x215cc[0x0]: 000215e8 2f 11 |/ | MOVE.L (A1),-(A7) 000215ea 4e ba fa ac |N | JSR 0x21098 000215ee 58 4f |XO | ADDQ.L #0x4,A7 000215f0 60 7a |`z | BRA 0x2166c 000215f2 switch@0x215cc[0x1]: 000215f2 2f 11 |/ | MOVE.L (A1),-(A7) 000215f4 4e ba fc 32 |N 2 | JSR 0x21228 000215f8 60 f4 |` | BRA 0x215ee 000215fa switch@0x215cc[0x2]: 000215fa 2f 11 |/ | MOVE.L (A1),-(A7) 000215fc 4e ba fe 0e |N | JSR 0x2140c 00021600 60 ec |` | BRA 0x215ee 00021602 switch@0x215cc[0x3]: 00021602 2f 11 |/ | MOVE.L (A1),-(A7) 00021604 4e ba fd 40 |N @ | JSR 0x21346 00021608 60 e4 |` | BRA 0x215ee 0002160a switch@0x215cc[0x4]: 0002160a 55 4f |UO | SUBQ.L #0x2,A7 0002160c 1f 3c 00 0c | < | MOVE.B #0x0c,-(A7) 00021610 4e 92 |N | JSR (A2) 00021612 54 4f |TO | ADDQ.L #0x2,A7 00021614 10 17 | | MOVE.B (A7),D0 00021616 48 80 |H | EXTB.W D0 00021618 41 81 |A | CHK.W D1,D0 0002161a 1e 80 | | MOVE.B D0,(A7) 0002161c 4e ba fe e2 |N | JSR 0x21500 00021620 54 4f |TO | ADDQ.L #0x2,A7 00021622 60 48 |`H | BRA 0x2166c 00021624 switch@0x215cc[0x5]: 00021624 55 4f |UO | SUBQ.L #0x2,A7 00021626 1f 3c 00 0d | < | MOVE.B #0x0d,-(A7) 0002162a 4e 92 |N | JSR (A2) 0002162c 54 4f |TO | ADDQ.L #0x2,A7 0002162e 10 17 | | MOVE.B (A7),D0 00021630 48 80 |H | EXTB.W D0 00021632 41 81 |A | CHK.W D1,D0 00021634 60 e4 |` | BRA 0x2161a 00021636 switch@0x215cc[0x6]: 00021636 55 4f |UO | SUBQ.L #0x2,A7 00021638 1f 3c 00 0e | < | MOVE.B #0x0e,-(A7) 0002163c 4e 92 |N | JSR (A2) 0002163e 54 4f |TO | ADDQ.L #0x2,A7 00021640 10 17 | | MOVE.B (A7),D0 00021642 48 80 |H | EXTB.W D0 00021644 41 81 |A | CHK.W D1,D0 00021646 60 d2 |` | BRA 0x2161a 00021648 switch@0x215cc[0x7]: 00021648 55 4f |UO | SUBQ.L #0x2,A7 0002164a 1f 3c 00 0f | < | MOVE.B #0x0f,-(A7) 0002164e 4e 92 |N | JSR (A2) 00021650 54 4f |TO | ADDQ.L #0x2,A7 00021652 10 17 | | MOVE.B (A7),D0 00021654 48 80 |H | EXTB.W D0 00021656 41 81 |A | CHK.W D1,D0 00021658 60 c0 |` | BRA 0x2161a 0002165a switch@0x215cc[0x8]: 0002165a 55 4f |UO | SUBQ.L #0x2,A7 0002165c 4e b9 00 01 04 cc |N | JSR MemOnly2MB() : Bool 00021662 10 17 | | MOVE.B (A7),D0 00021664 48 80 |H | EXTB.W D0 00021666 41 81 |A | CHK.W D1,D0 00021668 60 b0 |` | BRA 0x2161a 0002166a switch@0x215cc[0x9]: 0002166a 42 10 |B | CLR.B (A0) 0002166c 4c df 07 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2 00021670 4e 5e |N^ | UNLK A6 00021672 4e 75 |Nu | RTS 00021674 ; -------------------------------------------------------------------------------------- 00021674 ; OMSI PASCAL Function 00021674 ; <LVAR 0x008 4(r)> 00021674 ; -------------------------------------------------------------------------------------- 00021674 4e 56 ff e0 |NV | LINK.W A6,#0xffe0 00021678 bf d5 | | CMPA.L (A5),A7 0002167a 62 06 |b | BHI 0x21682 0002167c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021680 4e 76 |Nv | TRAPV 00021682 de fc 00 20 | | ADDA.W #0x20,A7 00021686 48 e7 80 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D0,-(A7) 0002168a 45 f9 00 02 59 02 |E Y | LEA.L 0x25902,A2 00021690 47 f9 00 02 59 06 |G Y | LEA.L 0x25906,A3 00021696 49 f9 00 02 59 0a |I Y | LEA.L 0x2590a,A4 0002169c 4e b9 00 01 03 98 |N | JSR FSCALL_10398 000216a2 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 000216a6 43 fa ed 66 |C f | LEA.L 0x2040e,A1 000216aa 70 09 |p | MOVEQ.L #0x09,D0 000216ac 10 d9 | | MOVE.B (A1)+,(A0)+ 000216ae 51 c8 ff fc |Q | DBF D0,0x216ac 000216b2 48 78 00 00 |Hx | PEA.L 0x0 000216b6 4e b9 00 01 04 d8 |N | JSR ExpInit(a : Long) 000216bc 58 4f |XO | ADDQ.L #0x4,A7 000216be 23 fa ed 58 00 02 58 d2 |# X X | MOVE.L 0x20418,0x258d2 000216c6 23 fa ed 54 00 02 58 da |# T X | MOVE.L 0x2041c,0x258da 000216ce 23 fa ed 50 00 02 58 de |# P X | MOVE.L 0x20420,0x258de 000216d6 23 fa ed 4c 00 02 58 ea |# L X | MOVE.L 0x20424,0x258ea 000216de 23 fa ed 48 00 02 58 ee |# H X | MOVE.L 0x20428,0x258ee 000216e6 55 4f |UO | SUBQ.L #0x2,A7 000216e8 4e b9 00 01 04 cc |N | JSR MemOnly2MB() : Bool 000216ee 4a 1f |J | TST.B (A7)+ 000216f0 67 16 |g | BEQ 0x21708 000216f2 24 ba ed 38 |$ 8 | MOVE.L 0x2042c,(A2) 000216f6 26 ba ed 38 |& 8 | MOVE.L 0x20430,(A3) 000216fa 28 ba ed 38 |( 8 | MOVE.L 0x20434,(A4) 000216fe 23 fa ed 38 00 02 59 0e |# 8 Y | MOVE.L 0x20438,0x2590e 00021706 60 14 |` | BRA 0x2171c 00021708 24 ba ed 32 |$ 2 | MOVE.L 0x2043c,(A2) 0002170c 26 ba ed 32 |& 2 | MOVE.L 0x20440,(A3) 00021710 28 ba ed 32 |( 2 | MOVE.L 0x20444,(A4) 00021714 23 fa ed 32 00 02 59 0e |# 2 Y | MOVE.L 0x20448,0x2590e 0002171c 23 fa ed 2e 00 02 58 e2 |# . X | MOVE.L 0x2044c,0x258e2 00021724 23 fa ed 2a 00 02 59 12 |# * Y | MOVE.L 0x20450,0x25912 0002172c 23 fa ed 26 00 02 59 1a |# & Y | MOVE.L 0x20454,0x2591a 00021734 23 fa ed 22 00 02 59 1e |# " Y | MOVE.L 0x20458,0x2591e 0002173c 23 fa ed 1e 00 02 59 2a |# Y*| MOVE.L 0x2045c,0x2592a 00021744 23 fa ed 1a 00 02 59 2e |# Y.| MOVE.L 0x20460,0x2592e 0002174c 23 fa ed 16 00 02 59 42 |# YB| MOVE.L 0x20464,0x25942 00021754 23 fa ed 12 00 02 59 46 |# YF| MOVE.L 0x20468,0x25946 0002175c 23 fa ed 0e 00 02 59 4a |# YJ| MOVE.L 0x2046c,0x2594a 00021764 23 fa ed 0a 00 02 59 4e |# YN| MOVE.L 0x20470,0x2594e 0002176c 23 fa ed 06 00 02 59 26 |# Y&| MOVE.L 0x20474,0x25926 00021774 23 fa ed 02 00 02 59 22 |# Y"| MOVE.L 0x20478,0x25922 0002177c 4c df 1f 01 |L | MOVEM.L (A7)+,D0+A0+A1+A2+A3+A4 00021780 4e 5e |N^ | UNLK A6 00021782 4e 75 |Nu | RTS 00021784 ; -------------------------------------------------------------------------------------- 00021784 ; COMMAND TABLE 00021784 ; -------------------------------------------------------------------------------------- 00021784 COMMAND_TABLE_21784: 00021784 21 40 23 24 25 5e 26 2a |!@#$%^&*| .TXT '!@#$%^&*()' 0002178e 57 52 49 54 45 20 20 20 |WRITE | .TXT 'WRITE ' 00021798 42 59 45 20 20 20 20 20 |BYE | .TXT 'BYE ' 000217a2 48 45 41 50 20 20 20 20 |HEAP | .TXT 'HEAP ' 000217ac 48 45 4c 50 20 20 20 20 |HELP | .TXT 'HELP ' 000217b6 41 42 4f 52 54 20 20 20 |ABORT | .TXT 'ABORT ' 000217c0 43 4f 4d 4d 45 4e 54 20 |COMMENT | .TXT 'COMMENT ' 000217ca 53 45 54 20 20 20 20 20 |SET | .TXT 'SET ' 000217d4 56 41 52 20 20 20 20 20 |VAR | .TXT 'VAR ' 000217de 56 41 52 53 20 20 20 20 |VARS | .TXT 'VARS ' 000217e8 45 51 20 20 20 20 20 20 |EQ | .TXT 'EQ ' 000217f2 4e 45 20 20 20 20 20 20 |NE | .TXT 'NE ' 000217fc 43 41 53 45 20 20 20 20 |CASE | .TXT 'CASE ' 00021806 49 4e 53 45 52 54 20 20 |INSERT | .TXT 'INSERT ' 00021810 45 58 54 52 41 43 54 20 |EXTRACT | .TXT 'EXTRACT ' 0002181a 23 43 41 53 45 20 20 20 |#CASE | .TXT '#CASE ' 00021824 23 45 51 20 20 20 20 20 |#EQ | .TXT '#EQ ' 0002182e 23 4e 45 20 20 20 20 20 |#NE | .TXT '#NE ' 00021838 23 4c 54 20 20 20 20 20 |#LT | .TXT '#LT ' 00021842 23 47 54 20 20 20 20 20 |#GT | .TXT '#GT ' 0002184c 23 4c 45 20 20 20 20 20 |#LE | .TXT '#LE ' 00021856 23 47 45 20 20 20 20 20 |#GE | .TXT '#GE ' 00021860 41 44 44 20 20 20 20 20 |ADD | .TXT 'ADD ' 0002186a 53 55 42 20 20 20 20 20 |SUB | .TXT 'SUB ' 00021874 4d 55 4c 20 20 20 20 20 |MUL | .TXT 'MUL ' 0002187e 44 49 56 20 20 20 20 20 |DIV | .TXT 'DIV ' 00021888 4d 4f 44 20 20 20 20 20 |MOD | .TXT 'MOD ' 00021892 4f 52 20 20 20 20 20 20 |OR | .TXT 'OR ' 0002189c 41 4e 44 20 20 20 20 20 |AND | .TXT 'AND ' 000218a6 58 4f 52 20 20 20 20 20 |XOR | .TXT 'XOR ' 000218b0 4c 53 48 49 46 54 20 20 |LSHIFT | .TXT 'LSHIFT ' 000218ba 52 53 48 49 46 54 20 20 |RSHIFT | .TXT 'RSHIFT ' 000218c4 4e 4f 54 20 20 20 20 20 |NOT | .TXT 'NOT ' 000218ce 23 49 4e 53 45 52 54 20 |#INSERT | .TXT '#INSERT ' 000218d8 23 45 58 54 52 41 43 54 |#EXTRACT| .TXT '#EXTRACT ' 000218e2 52 45 41 44 20 20 20 20 |READ | .TXT 'READ ' 000218ec 4b 49 4c 4c 20 20 20 20 |KILL | .TXT 'KILL ' 000218f6 50 55 53 48 20 20 20 20 |PUSH | .TXT 'PUSH ' 00021900 4c 45 56 45 4c 20 20 20 |LEVEL | .TXT 'LEVEL ' 0002190a 43 4f 4e 56 45 52 54 20 |CONVERT | .TXT 'CONVERT ' 00021914 43 4f 55 4e 54 5f 4f 4e |COUNT_ON| .TXT 'COUNT_ONES' 0002191e 52 45 50 45 41 54 20 20 |REPEAT | .TXT 'REPEAT ' 00021928 4d 4f 44 45 4c 20 20 20 |MODEL | .TXT 'MODEL ' 00021932 41 53 43 49 49 20 20 20 |ASCII | .TXT 'ASCII ' 0002193c 57 72 6f 6e 67 20 6e 75 |Wrong nu| .TXT 'Wrong number of arguments for :_' 0002195c 45 51 2c 4e |EQ,N | .XXX[0x4] 00021960 45 2c 23 45 51 2c 23 4e |E,#EQ,#N| .XXX[0x38] 00021968 45 2c 23 4c 54 2c 23 47 |E,#LT,#G| 00021970 54 2c 23 4c 45 2c 23 47 |T,#LE,#G| 00021978 45 2c 45 4c 53 45 5d 45 |E,ELSE]E| 00021980 4e 44 5d 43 41 53 45 2c |ND]CASE,| 00021988 23 43 41 53 45 2c 57 48 |#CASE,WH| 00021990 45 4e 2c 45 4e 44 43 41 |EN,ENDCA| 00021998 53 45 5d 20 |SE] | .XXX[0x4] 0002199c 45 76 61 6c 75 61 74 69 |Evaluati| .TXT 'Evaluation buffer overflow. ' 000219b8 55 6e 62 61 6c 61 6e 63 |Unbalanc| .TXT 'Unbalanced [ELSE] or [END]! ' 000219d4 5b 57 48 45 4e 20 5d 20 |[WHEN ] | .TXT '[WHEN ] ' 000219de 4e 6f 20 63 61 73 65 20 |No case | .TXT 'No case alternative found!' 000219f8 4e 6f 20 5b 45 4e 44 43 |No [ENDC| .TXT 'No [ENDCASE] found! ' 00021a0c 4e 6f 20 68 65 6c 70 20 |No help | .TXT 'No help available for_' 00021a22 2e 48 4c 50 |.HLP | .TXT '.HLP' 00021a26 54 6f 6f 20 66 65 77 20 |Too few | .TXT 'Too few arguments for SET ' 00021a40 55 6e 6b 6e 6f 77 6e 20 |Unknown | .TXT 'Unknown variable :_ ' 00021a54 20 69 73 20 6e 6f 74 20 | is not | .TXT ' is not a program.' 00021a66 43 4c |CL | .TXT 'CL' 00021a68 49 20 |I | .XXX[0x2] 00021a6a 2e 4d 32 30 30 20 |.M200 | .TXT '.M200 ' 00021a70 53 54 |ST | .TXT 'ST' 00021a72 41 54 |AT | .TXT 'AT' 00021a74 55 53 |US | .TXT 'US' 00021a76 52 45 |RE | .TXT 'RE' 00021a78 53 55 |SU | .TXT 'SU' 00021a7a 4c 54 |LT | .TXT 'LT' 00021a7c 4f 66 66 73 65 74 2f 4c |Offset/L| .TXT 'Offset/Length error in [INSERT] ' 00021a9c 52 45 50 45 41 54 69 6e |REPEATin| .TXT 'REPEATing, type ^G to exit. ' 00021ab8 41 53 43 49 49 20 61 72 |ASCII ar| .TXT 'ASCII argument out of range.' 00021ad4 4e 6f 74 20 61 20 63 6f |Not a co| .TXT 'Not a command or macro :_ ' 00021aee 49 6c 6c 65 67 61 6c 20 |Illegal | .TXT 'Illegal marker argument ' 00021b06 53 77 69 74 63 68 20 65 |Switch e| .TXT 'Switch exclusion is unimplemented.' 00021b28 49 6c 6c 65 67 61 6c 20 |Illegal | .TXT 'Illegal argument marker.' 00021b40 49 6c 6c 65 67 61 6c 20 |Illegal | .TXT 'Illegal argument marker.' 00021b58 5b 49 4e 49 54 5d 5b 20 |[INIT][ | .TXT '[INIT][ ' 00021b60 5d 5b 42 59 45 5d 3b 20 |][BYE]; | .TXT '][BYE]; ' 00021b68 5b 49 4e 49 54 5d 3b 20 |[INIT]; | .TXT '[INIT]; ' 00021b70 3e 5f |>_ | .TXT '>_' 00021b72 5b 20 |[ | .TXT '[ ' 00021b74 5d 3b |]; | .TXT '];' 00021b76 ; -------------------------------------------------------------------------------------- 00021b76 ; COMMAND TABLE 00021b76 ; -------------------------------------------------------------------------------------- 00021b76 COMMAND_TABLE_21b76: 00021b76 21 40 23 24 25 5e 26 2a |!@#$%^&*| .TXT '!@#$%^&*()' 00021b80 57 52 49 54 45 20 20 20 |WRITE | .TXT 'WRITE ' 00021b8a 42 59 45 20 20 20 20 20 |BYE | .TXT 'BYE ' 00021b94 48 45 41 50 20 20 20 20 |HEAP | .TXT 'HEAP ' 00021b9e 48 45 4c 50 20 20 20 20 |HELP | .TXT 'HELP ' 00021ba8 41 42 4f 52 54 20 20 20 |ABORT | .TXT 'ABORT ' 00021bb2 43 4f 4d 4d 45 4e 54 20 |COMMENT | .TXT 'COMMENT ' 00021bbc 53 45 54 20 20 20 20 20 |SET | .TXT 'SET ' 00021bc6 56 41 52 20 20 20 20 20 |VAR | .TXT 'VAR ' 00021bd0 56 41 52 53 20 20 20 20 |VARS | .TXT 'VARS ' 00021bda 45 51 20 20 20 20 20 20 |EQ | .TXT 'EQ ' 00021be4 4e 45 20 20 20 20 20 20 |NE | .TXT 'NE ' 00021bee 43 41 53 45 20 20 20 20 |CASE | .TXT 'CASE ' 00021bf8 49 4e 53 45 52 54 20 20 |INSERT | .TXT 'INSERT ' 00021c02 45 58 54 52 41 43 54 20 |EXTRACT | .TXT 'EXTRACT ' 00021c0c 23 43 41 53 45 20 20 20 |#CASE | .TXT '#CASE ' 00021c16 23 45 51 20 20 20 20 20 |#EQ | .TXT '#EQ ' 00021c20 23 4e 45 20 20 20 20 20 |#NE | .TXT '#NE ' 00021c2a 23 4c 54 20 20 20 20 20 |#LT | .TXT '#LT ' 00021c34 23 47 54 20 20 20 20 20 |#GT | .TXT '#GT ' 00021c3e 23 4c 45 20 20 20 20 20 |#LE | .TXT '#LE ' 00021c48 23 47 45 20 20 20 20 20 |#GE | .TXT '#GE ' 00021c52 41 44 44 20 20 20 20 20 |ADD | .TXT 'ADD ' 00021c5c 53 55 42 20 20 20 20 20 |SUB | .TXT 'SUB ' 00021c66 4d 55 4c 20 20 20 20 20 |MUL | .TXT 'MUL ' 00021c70 44 49 56 20 20 20 20 20 |DIV | .TXT 'DIV ' 00021c7a 4d 4f 44 20 20 20 20 20 |MOD | .TXT 'MOD ' 00021c84 4f 52 20 20 20 20 20 20 |OR | .TXT 'OR ' 00021c8e 41 4e 44 20 20 20 20 20 |AND | .TXT 'AND ' 00021c98 58 4f 52 20 20 20 20 20 |XOR | .TXT 'XOR ' 00021ca2 4c 53 48 49 46 54 20 20 |LSHIFT | .TXT 'LSHIFT ' 00021cac 52 53 48 49 46 54 20 20 |RSHIFT | .TXT 'RSHIFT ' 00021cb6 4e 4f 54 20 20 20 20 20 |NOT | .TXT 'NOT ' 00021cc0 23 49 4e 53 45 52 54 20 |#INSERT | .TXT '#INSERT ' 00021cca 23 45 58 54 52 41 43 54 |#EXTRACT| .TXT '#EXTRACT ' 00021cd4 52 45 41 44 20 20 20 20 |READ | .TXT 'READ ' 00021cde 4b 49 4c 4c 20 20 20 20 |KILL | .TXT 'KILL ' 00021ce8 50 55 53 48 20 20 20 20 |PUSH | .TXT 'PUSH ' 00021cf2 4c 45 56 45 4c 20 20 20 |LEVEL | .TXT 'LEVEL ' 00021cfc 43 4f 4e 56 45 52 54 20 |CONVERT | .TXT 'CONVERT ' 00021d06 43 4f 55 4e 54 5f 4f 4e |COUNT_ON| .TXT 'COUNT_ONES' 00021d10 52 45 50 45 41 54 20 20 |REPEAT | .TXT 'REPEAT ' 00021d1a 4d 4f 44 45 4c 20 20 20 |MODEL | .TXT 'MODEL ' 00021d24 41 53 43 49 49 20 20 20 |ASCII | .TXT 'ASCII ' 00021d2e a5 34 | 4 | .XXX[0x2] 00021d30 45 73 34 22 46 75 33 33 |Es4"Fu33| .XXX[0x98] 00021d38 33 33 33 32 33 66 37 84 |33323f7 | 00021d40 44 57 a6 55 0f 00 f0 ff |DW U | 00021d48 10 22 14 31 22 22 22 22 | " 1""""| 00021d50 22 22 22 22 14 3f 1f 03 |"""" ? | 00021d58 10 0f 00 00 00 00 ff ff | | 00021d60 ff ff 00 01 01 00 01 01 | | 00021d68 00 01 02 00 00 01 02 00 | | 00021d70 01 02 00 01 14 06 01 14 | | 00021d78 08 14 0f 02 03 14 14 08 | | 00021d80 14 0f 14 14 14 14 14 14 | | 00021d88 14 04 14 05 14 14 14 14 | | 00021d90 14 14 14 14 14 14 14 04 | | 00021d98 14 14 14 14 14 14 04 14 | | 00021da0 07 14 14 14 14 04 14 14 | | 00021da8 14 14 14 14 0c 14 14 09 | | 00021db0 14 14 14 0d 14 14 14 0b | | 00021db8 0a 14 0e 14 14 14 08 14 | | 00021dc0 14 0c 14 14 09 14 14 14 | | 00021dc8 14 14 14 14 14 14 14 14 | | .BLANK 14[0x10] 00021dd8 14 14 14 14 14 10 14 14 | | .XXX[0x28] 00021de0 11 14 14 14 14 14 14 14 | | 00021de8 14 14 14 13 14 14 14 14 | | 00021df0 14 12 14 14 14 11 14 14 | | 00021df8 14 14 14 14 14 14 14 14 | | 00021e00 ; -------------------------------------------------------------------------------------- 00021e00 ; OMSI PASCAL Function 00021e00 ; <LVAR 0x008 4(r)> 00021e00 ; <LVAR -0x004 @ 4(w)> 00021e00 ; -------------------------------------------------------------------------------------- 00021e00 4e 56 ff e8 |NV | LINK.W A6,#0xffe8 00021e04 bf d5 | | CMPA.L (A5),A7 00021e06 62 06 |b | BHI 0x21e0e 00021e08 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021e0c 4e 76 |Nv | TRAPV 00021e0e de fc 00 10 | | ADDA.W #0x10,A7 00021e12 48 e7 00 08 |H | MOVEM.L A4,-(A7) 00021e16 28 6e 00 08 |(n | MOVEA.L (A6+0x8),A4 00021e1a b8 fc 00 01 | | CMPA.W #0x1,A4 00021e1e 67 1a |g | BEQ 0x21e3a 00021e20 2d 4c ff fc |-L | MOVE.L A4,(A6-0x4) 00021e24 28 6c 00 08 |(l | MOVEA.L (A4+0x8),A4 00021e28 48 6e ff fc |Hn | PEA.L (A6-0x4) 00021e2c 48 78 00 0c |Hx | PEA.L 0xc 00021e30 4e b9 00 01 02 a8 |N | JSR Free2(a : Pointer; b : Long) 00021e36 50 4f |PO | ADDQ.L #0x8,A7 00021e38 60 e0 |` | BRA 0x21e1a 00021e3a 4c df 10 00 |L | MOVEM.L (A7)+,A4 00021e3e 4e 5e |N^ | UNLK A6 00021e40 4e 75 |Nu | RTS 00021e42 ; -------------------------------------------------------------------------------------- 00021e42 ; OMSI PASCAL Function 00021e42 ; <LVAR 0x008 4(r)> 00021e42 ; -------------------------------------------------------------------------------------- 00021e42 4e 56 ff f0 |NV | LINK.W A6,#0xfff0 00021e46 bf d5 | | CMPA.L (A5),A7 00021e48 62 06 |b | BHI 0x21e50 00021e4a 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021e4e 4e 76 |Nv | TRAPV 00021e50 de fc 00 10 | | ADDA.W #0x10,A7 00021e54 48 e7 00 80 |H | MOVEM.L A0,-(A7) 00021e58 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00021e5c b0 fc 00 01 | | CMPA.W #0x1,A0 00021e60 67 0a |g | BEQ 0x21e6c 00021e62 2f 08 |/ | MOVE.L A0,-(A7) 00021e64 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00021e6a 58 4f |XO | ADDQ.L #0x4,A7 00021e6c 2e 6d 00 08 |.m | MOVEA.L (A5+0x8),A7 00021e70 3c 7c 00 00 |<| | MOVEA.W #0x0,A6 00021e74 4e f9 00 02 57 1e |N W | JMP 0x2571e 00021e7a 4c df 01 00 4e 5e |L N^ | .XXX[0x6] 00021e80 4e 75 |Nu | .XXX[0x2] 00021e82 ; -------------------------------------------------------------------------------------- 00021e82 ; OMSI PASCAL Function 00021e82 ; <LVAR 0x008 4(w)> 00021e82 ; -------------------------------------------------------------------------------------- 00021e82 4e 56 ff fc |NV | LINK.W A6,#0xfffc 00021e86 bf d5 | | CMPA.L (A5),A7 00021e88 62 06 |b | BHI 0x21e90 00021e8a 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021e8e 4e 76 |Nv | TRAPV 00021e90 de fc 00 04 | | ADDA.W #0x4,A7 00021e94 2d 79 00 02 79 5a 00 08 |-y yZ | MOVE.L 0x2795a,(A6+0x8) 00021e9c 4e 5e |N^ | UNLK A6 00021e9e 4e 75 |Nu | RTS 00021ea0 ; -------------------------------------------------------------------------------------- 00021ea0 ; OMSI PASCAL Function 00021ea0 ; <LVAR 0x008 1(rw)> 00021ea0 ; -------------------------------------------------------------------------------------- 00021ea0 4e 56 ff f0 |NV | LINK.W A6,#0xfff0 00021ea4 bf d5 | | CMPA.L (A5),A7 00021ea6 62 06 |b | BHI 0x21eae 00021ea8 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021eac 4e 76 |Nv | TRAPV 00021eae de fc 00 10 | | ADDA.W #0x10,A7 00021eb2 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 00021eb6 20 39 00 02 79 5a | 9 yZ | MOVE.L 0x2795a,D0 00021ebc b0 b9 00 02 79 5e | y^ | CMP.L 0x2795e,D0 00021ec2 6f 06 |o | BLE 0x21eca 00021ec4 42 2e 00 08 |B. | CLR.B (A6+0x8) 00021ec8 60 0c |` | BRA 0x21ed6 00021eca 41 f9 00 02 59 52 |A YR | LEA.L 0x25952,A0 00021ed0 1d 70 08 07 00 08 | p | MOVE.B (A0+D0.L+#0x7),(A6+0x8) 00021ed6 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 00021eda 4e 5e |N^ | UNLK A6 00021edc 4e 75 |Nu | RTS 00021ede ; -------------------------------------------------------------------------------------- 00021ede ; OMSI PASCAL Function 00021ede ; <LVAR 0x008 1(rw)> 00021ede ; -------------------------------------------------------------------------------------- 00021ede 4e 56 ff ec |NV | LINK.W A6,#0xffec 00021ee2 bf d5 | | CMPA.L (A5),A7 00021ee4 62 06 |b | BHI 0x21eec 00021ee6 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021eea 4e 76 |Nv | TRAPV 00021eec de fc 00 14 | | ADDA.W #0x14,A7 00021ef0 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7) 00021ef4 43 f9 00 02 79 5a |C yZ | LEA.L 0x2795a,A1 00021efa 20 11 | | MOVE.L (A1),D0 00021efc b0 b9 00 02 79 5e | y^ | CMP.L 0x2795e,D0 00021f02 6f 06 |o | BLE 0x21f0a 00021f04 42 2e 00 08 |B. | CLR.B (A6+0x8) 00021f08 60 0c |` | BRA 0x21f16 00021f0a 41 f9 00 02 59 52 |A YR | LEA.L 0x25952,A0 00021f10 1d 70 08 07 00 08 | p | MOVE.B (A0+D0.L+#0x7),(A6+0x8) 00021f16 52 80 |R | ADDQ.L #0x1,D0 00021f18 22 80 |" | MOVE.L D0,(A1) 00021f1a 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1 00021f1e 4e 5e |N^ | UNLK A6 00021f20 4e 75 |Nu | RTS 00021f22 ; -------------------------------------------------------------------------------------- 00021f22 ; OMSI PASCAL Function 00021f22 ; <LVAR 0x00c 4(r)> 00021f22 ; <LVAR 0x008 4(r)> 00021f22 ; -------------------------------------------------------------------------------------- 00021f22 4e 56 ff c0 |NV | LINK.W A6,#0xffc0 00021f26 bf d5 | | CMPA.L (A5),A7 00021f28 62 06 |b | BHI 0x21f30 00021f2a 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021f2e 4e 76 |Nv | TRAPV 00021f30 de fc 00 38 | 8 | ADDA.W #0x38,A7 00021f34 48 e7 ff f0 |H | MOVEM.L A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00021f38 45 ee 00 08 |E | LEA.L (A6+0x8),A2 00021f3c 47 f9 00 02 79 5a |G yZ | LEA.L 0x2795a,A3 00021f42 72 5b |r[ | MOVEQ.L #0x5b,D1 00021f44 74 02 |t | MOVEQ.L #0x02,D2 00021f46 76 2c |v, | MOVEQ.L #0x2c,D3 00021f48 78 3b |x; | MOVEQ.L #0x3b,D4 00021f4a 55 4f |UO | SUBQ.L #0x2,A7 00021f4c 4e ba ff 52 |N R | JSR 0x21ea0 00021f50 10 1f | | MOVE.B (A7)+,D0 00021f52 b0 01 | | CMP.B D1,D0 00021f54 66 0a |f | BNE 0x21f60 00021f56 4e b9 00 02 52 28 |N R( | JSR 0x25228 00021f5c 60 00 00 92 |` | BRA 0x21ff0 00021f60 2c 13 |, | MOVE.L (A3),D6 00021f62 55 4f |UO | SUBQ.L #0x2,A7 00021f64 4e ba ff 78 |N x | JSR 0x21ede 00021f68 1a 1f | | MOVE.B (A7)+,D5 00021f6a 66 18 |f | BNE 0x21f84 00021f6c 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 00021f70 43 fa fd e8 |C | LEA.L 0x21d5a,A1 00021f74 70 07 |p | MOVEQ.L #0x07,D0 00021f76 10 d9 | | MOVE.B (A1)+,(A0)+ 00021f78 51 c8 ff fc |Q | DBF D0,0x21f76 00021f7c 20 52 | R | MOVEA.L (A2),A0 00021f7e 10 82 | | MOVE.B D2,(A0) 00021f80 60 72 |`r | BRA 0x21ff4 00021f82 60 5c |`\ | .XXX[0x2] 00021f84 ba 03 | | CMP.B D3,D5 00021f86 66 08 |f | BNE 0x21f90 00021f88 20 52 | R | MOVEA.L (A2),A0 00021f8a 10 bc 00 03 | | MOVE.B #0x03,(A0) 00021f8e 60 50 |`P | BRA 0x21fe0 00021f90 ba 04 | | CMP.B D4,D5 00021f92 66 08 |f | BNE 0x21f9c 00021f94 20 52 | R | MOVEA.L (A2),A0 00021f96 10 bc 00 01 | | MOVE.B #0x01,(A0) 00021f9a 60 44 |`D | BRA 0x21fe0 00021f9c 0c 05 00 5d | ] | CMPI.B #0x5d,D5 00021fa0 66 06 |f | BNE 0x21fa8 00021fa2 20 52 | R | MOVEA.L (A2),A0 00021fa4 10 82 | | MOVE.B D2,(A0) 00021fa6 60 38 |`8 | BRA 0x21fe0 00021fa8 20 52 | R | MOVEA.L (A2),A0 00021faa 42 10 |B | CLR.B (A0) 00021fac 55 4f |UO | SUBQ.L #0x2,A7 00021fae 4e ba fe f0 |N | JSR 0x21ea0 00021fb2 1e 1f | | MOVE.B (A7)+,D7 00021fb4 be 01 | | CMP.B D1,D7 00021fb6 66 08 |f | BNE 0x21fc0 00021fb8 4e b9 00 02 52 28 |N R( | JSR 0x25228 00021fbe 60 1e |` | BRA 0x21fde 00021fc0 be 04 | | CMP.B D4,D7 00021fc2 67 0e |g | BEQ 0x21fd2 00021fc4 be 03 | | CMP.B D3,D7 00021fc6 67 0a |g | BEQ 0x21fd2 00021fc8 0c 07 00 5d | ] | CMPI.B #0x5d,D7 00021fcc 67 04 |g | BEQ 0x21fd2 00021fce 4a 07 |J | TST.B D7 00021fd0 66 04 |f | BNE 0x21fd6 00021fd2 60 0c |` | BRA 0x21fe0 00021fd4 60 08 |` | .XXX[0x2] 00021fd6 55 4f |UO | SUBQ.L #0x2,A7 00021fd8 4e ba ff 04 |N | JSR 0x21ede 00021fdc 1e 1f | | MOVE.B (A7)+,D7 00021fde 60 cc |` | BRA 0x21fac 00021fe0 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 00021fe4 20 86 | | MOVE.L D6,(A0) 00021fe6 21 53 00 04 |!S | MOVE.L (A3),(A0+0x4) 00021fea 53 a8 00 04 |S | SUBQ.L #0x1,(A0+0x4) 00021fee 60 04 |` | BRA 0x21ff4 00021ff0 60 00 ff 58 |` X | BRA 0x21f4a 00021ff4 4c df 0f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3 00021ff8 4e 5e |N^ | UNLK A6 00021ffa 4e 75 |Nu | RTS 00021ffc ; -------------------------------------------------------------------------------------- 00021ffc ; OMSI PASCAL Function 00021ffc ; <LVAR 0x010 4(r)> 00021ffc ; <LVAR 0x00c 4(r)> 00021ffc ; <LVAR 0x008 4(r)> 00021ffc ; <LVAR -0x004 @ 1(rw)> 00021ffc ; <LVAR -0x008 4(w)> 00021ffc ; <LVAR -0x00c @ 4(w)> 00021ffc ; -------------------------------------------------------------------------------------- 00021ffc 4e 56 ff ca |NV | LINK.W A6,#0xffca 00022000 bf d5 | | CMPA.L (A5),A7 00022002 62 06 |b | BHI 0x2200a 00022004 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022008 4e 76 |Nv | TRAPV 0002200a de fc 00 2a | * | ADDA.W #0x2a,A7 0002200e 48 e7 c0 f0 |H | MOVEM.L A3+A2+A1+A0+D1+D0,-(A7) 00022012 45 ee ff fc |E | LEA.L (A6-0x4),A2 00022016 47 ee ff f4 |G | LEA.L (A6-0xc),A3 0002201a 72 03 |r | MOVEQ.L #0x03,D1 0002201c 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00022020 10 10 | | MOVE.B (A0),D0 00022022 0c 00 00 01 | | CMPI.B #0x01,D0 00022026 67 06 |g | BEQ 0x2202e 00022028 0c 00 00 02 | | CMPI.B #0x02,D0 0002202c 66 0e |f | BNE 0x2203c 0002202e 26 ba fd 2a |& * | MOVE.L 0x21d5a,(A3) 00022032 2d 7a fd 2a ff f8 |-z * | MOVE.L 0x21d5e,(A6-0x8) 00022038 14 80 | | MOVE.B D0,(A2) 0002203a 60 3c |`< | BRA 0x22078 0002203c 48 53 |HS | PEA.L (A3) 0002203e 48 52 |HR | PEA.L (A2) 00022040 4e ba fe e0 |N | JSR 0x21f22 00022044 50 4f |PO | ADDQ.L #0x8,A7 00022046 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 0002204a 4a 12 |J | TST.B (A2) 0002204c 67 1c |g | BEQ 0x2206a 0002204e 10 10 | | MOVE.B (A0),D0 00022050 b0 01 | | CMP.B D1,D0 00022052 66 16 |f | BNE 0x2206a 00022054 10 12 | | MOVE.B (A2),D0 00022056 48 80 |H | EXTB.W D0 00022058 41 81 |A | CHK.W D1,D0 0002205a 10 80 | | MOVE.B D0,(A0) 0002205c 26 ba fc fc |& | MOVE.L 0x21d5a,(A3) 00022060 2d 7a fc fc ff f8 |-z | MOVE.L 0x21d5e,(A6-0x8) 00022066 42 12 |B | CLR.B (A2) 00022068 60 08 |` | BRA 0x22072 0002206a 10 12 | | MOVE.B (A2),D0 0002206c 48 80 |H | EXTB.W D0 0002206e 41 81 |A | CHK.W D1,D0 00022070 10 80 | | MOVE.B D0,(A0) 00022072 10 12 | | MOVE.B (A2),D0 00022074 b0 01 | | CMP.B D1,D0 00022076 67 c4 |g | BEQ 0x2203c 00022078 20 6e 00 10 | n | MOVEA.L (A6+0x10),A0 0002207c 22 4b |"K | MOVEA.L A3,A1 0002207e 70 07 |p | MOVEQ.L #0x07,D0 00022080 10 d9 | | MOVE.B (A1)+,(A0)+ 00022082 51 c8 ff fc |Q | DBF D0,0x22080 00022086 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 0002208a 10 12 | | MOVE.B (A2),D0 0002208c 48 80 |H | EXTB.W D0 0002208e 41 81 |A | CHK.W D1,D0 00022090 10 80 | | MOVE.B D0,(A0) 00022092 4c df 0f 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2+A3 00022096 4e 5e |N^ | UNLK A6 00022098 4e 75 |Nu | RTS 0002209a ; -------------------------------------------------------------------------------------- 0002209a ; OMSI PASCAL Function 0002209a ; <LVAR 0x008 4(rw)> 0002209a ; <LVAR -0x004 1(rw)> 0002209a ; <LVAR -0x010 2(rw)> 0002209a ; -------------------------------------------------------------------------------------- 0002209a 4e 56 ff c0 |NV | LINK.W A6,#0xffc0 0002209e bf d5 | | CMPA.L (A5),A7 000220a0 62 06 |b | BHI 0x220a8 000220a2 44 fc 00 02 |D | MOVE.W #0x2,CCR 000220a6 4e 76 |Nv | TRAPV 000220a8 de fc 00 30 | 0 | ADDA.W #0x30,A7 000220ac 48 e7 c7 f0 |H | MOVEM.L A3+A2+A1+A0+D7+D6+D5+D1+D0,-(A7) 000220b0 43 ee ff f0 |C | LEA.L (A6-0x10),A1 000220b4 45 ee ff fc |E | LEA.L (A6-0x4),A2 000220b8 47 ee 00 08 |G | LEA.L (A6+0x8),A3 000220bc 72 20 |r | MOVEQ.L #0x20,D1 000220be 7c 01 || | MOVEQ.L #0x01,D6 000220c0 42 51 |BQ | CLR.W (A1) 000220c2 7a 01 |z | MOVEQ.L #0x01,D5 000220c4 59 4f |YO | SUBQ.L #0x4,A7 000220c6 2f 13 |/ | MOVE.L (A3),-(A7) 000220c8 4e b9 00 01 02 f0 |N | JSR ToUpper(a : String) : String 000220ce 58 4f |XO | ADDQ.L #0x4,A7 000220d0 26 9f |& | MOVE.L (A7)+,(A3) 000220d2 20 53 | S | MOVEA.L (A3),A0 000220d4 2f 08 |/ | MOVE.L A0,-(A7) 000220d6 20 57 | W | MOVEA.L (A7),A0 000220d8 30 10 |0 | MOVE.W (A0),D0 000220da 48 c0 |H | EXTW.L D0 000220dc bc 80 | | CMP.L D0,D6 000220de 6e 00 00 b0 |n | BGT 0x22190 000220e2 42 80 |B | CLR.L D0 000220e4 10 30 68 01 | 0h | MOVE.B (A0+D6.L+#0x1),D0 000220e8 02 40 00 7f | @ | ANDI.W #0x007f,D0 000220ec 14 80 | | MOVE.B D0,(A2) 000220ee 0c 00 00 09 | | CMPI.B #0x09,D0 000220f2 66 02 |f | BNE 0x220f6 000220f4 14 81 | | MOVE.B D1,(A2) 000220f6 42 80 |B | CLR.L D0 000220f8 10 12 | | MOVE.B (A2),D0 000220fa 90 41 | A | SUB.W D1,D0 000220fc 0c 40 00 0c | @ | CMPI.W #0x000c,D0 00022100 62 30 |b0 | BHI switch@0x22104[0x2] 00022102 d0 40 | @ | ADD.W D0,D0 00022104 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 0002210c 00 1e | | .CONST 0x1e ; [0x0] -> 0x2212a 0002210e 00 1a | | .CONST 0x1a ; [0x1] -> 0x22126 00022110 00 26 | & | .CONST 0x26 ; [0x2] -> 0x22132 00022112 00 26 | & | .CONST 0x26 ; [0x3] -> 0x22132 00022114 00 26 | & | .CONST 0x26 ; [0x4] -> 0x22132 00022116 00 26 | & | .CONST 0x26 ; [0x5] -> 0x22132 00022118 00 26 | & | .CONST 0x26 ; [0x6] -> 0x22132 0002211a 00 26 | & | .CONST 0x26 ; [0x7] -> 0x22132 0002211c 00 26 | & | .CONST 0x26 ; [0x8] -> 0x22132 0002211e 00 26 | & | .CONST 0x26 ; [0x9] -> 0x22132 00022120 00 26 | & | .CONST 0x26 ; [0xa] -> 0x22132 00022122 00 26 | & | .CONST 0x26 ; [0xb] -> 0x22132 00022124 00 22 | " | .CONST 0x22 ; [0xc] -> 0x2212e 00022126 switch@0x22104[0x1]: 00022126 60 68 |`h | BRA 0x22190 00022128 60 0a |` | .XXX[0x2] 0002212a switch@0x22104[0x0]: 0002212a 7e 00 |~ | MOVEQ.L #0x00,D7 0002212c 60 06 |` | BRA 0x22134 0002212e switch@0x22104[0xc]: 0002212e 7e 01 |~ | MOVEQ.L #0x01,D7 00022130 60 02 |` | BRA 0x22134 00022132 switch@0x22104[0x2]: 00022132 switch@0x22104[0x3]: 00022132 switch@0x22104[0x4]: 00022132 switch@0x22104[0x5]: 00022132 switch@0x22104[0x6]: 00022132 switch@0x22104[0x7]: 00022132 switch@0x22104[0x8]: 00022132 switch@0x22104[0x9]: 00022132 switch@0x22104[0xa]: 00022132 switch@0x22104[0xb]: 00022132 7e 02 |~ | MOVEQ.L #0x02,D7 00022134 70 03 |p | MOVEQ.L #0x03,D0 00022136 c1 d1 | | MULS.W (A1),D0 00022138 41 fa fc 28 |A ( | LEA.L 0x21d62,A0 0002213c 41 f0 00 00 |A | LEA.L (A0+D0.W),A0 00022140 42 80 |B | CLR.L D0 00022142 10 30 70 00 | 0p | MOVE.B (A0+D7.W),D0 00022146 0c 40 00 02 | @ | CMPI.W #0x0002,D0 0002214a 63 02 |c | BLS 0x2214e 0002214c 4e 4e |NN | TRAP #14 0002214e d0 40 | @ | ADD.W D0,D0 00022150 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 00022158 00 06 | | .CONST 0x6 ; [0x0] -> 0x2215e 0002215a 00 08 | | .CONST 0x8 ; [0x1] -> 0x22160 0002215c 00 12 | | .CONST 0x12 ; [0x2] -> 0x2216a 0002215e switch@0x22150[0x0]: 0002215e 60 16 |` | BRA 0x22176 00022160 switch@0x22150[0x1]: 00022160 20 57 | W | MOVEA.L (A7),A0 00022162 11 92 58 01 | X | MOVE.B (A2),(A0+D5.L+#0x1) 00022166 52 85 |R | ADDQ.L #0x1,D5 00022168 60 0c |` | BRA 0x22176 0002216a switch@0x22150[0x2]: 0002216a 20 57 | W | MOVEA.L (A7),A0 0002216c 11 bc 00 2c 58 01 | ,X | MOVE.B #0x2c,(A0+D5.L+#0x1) 00022172 52 85 |R | ADDQ.L #0x1,D5 00022174 53 86 |S | SUBQ.L #0x1,D6 00022176 70 03 |p | MOVEQ.L #0x03,D0 00022178 c1 d1 | | MULS.W (A1),D0 0002217a 41 fa fb ef |A | LEA.L 0x21d6b,A0 0002217e 41 f0 00 00 |A | LEA.L (A0+D0.W),A0 00022182 42 80 |B | CLR.L D0 00022184 10 30 70 00 | 0p | MOVE.B (A0+D7.W),D0 00022188 32 80 |2 | MOVE.W D0,(A1) 0002218a 52 86 |R | ADDQ.L #0x1,D6 0002218c 60 00 ff 48 |` H | BRA 0x220d6 00022190 20 57 | W | MOVEA.L (A7),A0 00022192 20 05 | | MOVE.L D5,D0 00022194 53 80 |S | SUBQ.L #0x1,D0 00022196 30 80 |0 | MOVE.W D0,(A0) 00022198 58 4f |XO | ADDQ.L #0x4,A7 0002219a 4c df 0f e3 |L | MOVEM.L (A7)+,D0+D1+D5+D6+D7+A0+A1+A2+A3 0002219e 4e 5e |N^ | UNLK A6 000221a0 4e 75 |Nu | RTS 000221a2 ; -------------------------------------------------------------------------------------- 000221a2 ; OMSI PASCAL Function 000221a2 ; <LVAR 0x00c 4(r)> 000221a2 ; <LVAR 0x008 4(r)> 000221a2 ; <LVAR -0x002 @ 1(r)> 000221a2 ; <LVAR -0x00a @> 000221a2 ; <LVAR -0x00e @ 4(r)> 000221a2 ; <LVAR -0x014 @ 1(r)> 000221a2 ; -------------------------------------------------------------------------------------- 000221a2 4e 56 ff bc |NV | LINK.W A6,#0xffbc 000221a6 bf d5 | | CMPA.L (A5),A7 000221a8 62 06 |b | BHI 0x221b0 000221aa 44 fc 00 02 |D | MOVE.W #0x2,CCR 000221ae 4e 76 |Nv | TRAPV 000221b0 de fc 00 30 | 0 | ADDA.W #0x30,A7 000221b4 48 e7 c1 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D1+D0,-(A7) 000221b8 47 ee ff f2 |G | LEA.L (A6-0xe),A3 000221bc 72 01 |r | MOVEQ.L #0x01,D1 000221be 55 4f |UO | SUBQ.L #0x2,A7 000221c0 4e ba fc de |N | JSR 0x21ea0 000221c4 10 1f | | MOVE.B (A7)+,D0 000221c6 0c 00 00 5b | [ | CMPI.B #0x5b,D0 000221ca 66 08 |f | BNE 0x221d4 000221cc 55 4f |UO | SUBQ.L #0x2,A7 000221ce 4e ba fd 0e |N | JSR 0x21ede 000221d2 1e 1f | | MOVE.B (A7)+,D7 000221d4 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 000221d8 20 81 | | MOVE.L D1,(A0) 000221da 42 2e ff ec |B. | CLR.B (A6-0x14) 000221de 48 6e ff f6 |Hn | PEA.L (A6-0xa) 000221e2 48 6e ff fe |Hn | PEA.L (A6-0x2) 000221e6 48 6e ff ec |Hn | PEA.L (A6-0x14) 000221ea 4e ba fe 10 |N | JSR 0x21ffc 000221ee de fc 00 0c | | ADDA.W #0xc,A7 000221f2 4a 2e ff fe |J. | TST.B (A6-0x2) 000221f6 66 36 |f6 | BNE 0x2222e 000221f8 48 53 |HS | PEA.L (A3) 000221fa 48 78 00 0c |Hx | PEA.L 0xc 000221fe 4e b9 00 01 02 9c |N | JSR Malloc1(length : Long) : Pointer 00022204 50 4f |PO | ADDQ.L #0x8,A7 00022206 20 53 | S | MOVEA.L (A3),A0 00022208 22 48 |"H | MOVEA.L A0,A1 0002220a 45 ee ff f6 |E | LEA.L (A6-0xa),A2 0002220e 70 07 |p | MOVEQ.L #0x07,D0 00022210 12 da | | MOVE.B (A2)+,(A1)+ 00022212 51 c8 ff fc |Q | DBF D0,0x22210 00022216 21 41 00 08 |!A | MOVE.L D1,(A0+0x8) 0002221a 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 0002221e 22 50 |"P | MOVEA.L (A0),A1 00022220 b2 c1 | | CMPA.W D1,A1 00022222 66 04 |f | BNE 0x22228 00022224 20 93 | | MOVE.L (A3),(A0) 00022226 60 04 |` | BRA 0x2222c 00022228 29 53 00 08 |)S | MOVE.L (A3),(A4+0x8) 0002222c 28 53 |(S | MOVEA.L (A3),A4 0002222e 4a 2e ff fe |J. | TST.B (A6-0x2) 00022232 67 aa |g | BEQ 0x221de 00022234 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00022238 42 10 |B | CLR.B (A0) 0002223a 10 2e ff fe | . | MOVE.B (A6-0x2),D0 0002223e 0c 00 00 02 | | CMPI.B #0x02,D0 00022242 66 02 |f | BNE 0x22246 00022244 52 10 |R | ADDQ.B #0x1,(A0) 00022246 4c df 1f 83 |L | MOVEM.L (A7)+,D0+D1+D7+A0+A1+A2+A3+A4 0002224a 4e 5e |N^ | UNLK A6 0002224c 4e 75 |Nu | RTS 0002224e ; -------------------------------------------------------------------------------------- 0002224e ; OMSI PASCAL Function 0002224e ; <LVAR 0x00c 4(w)> 0002224e ; <LVAR 0x008 4(r)> 0002224e ; -------------------------------------------------------------------------------------- 0002224e 4e 56 ff ec |NV | LINK.W A6,#0xffec 00022252 bf d5 | | CMPA.L (A5),A7 00022254 62 06 |b | BHI 0x2225c 00022256 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002225a 4e 76 |Nv | TRAPV 0002225c de fc 00 0c | | ADDA.W #0xc,A7 00022260 48 e7 01 08 |H | MOVEM.L A4+D7,-(A7) 00022264 7e ff |~ | MOVEQ.L #-0x01,D7 00022266 28 6e 00 08 |(n | MOVEA.L (A6+0x8),A4 0002226a b8 fc 00 01 | | CMPA.W #0x1,A4 0002226e 67 08 |g | BEQ 0x22278 00022270 52 87 |R | ADDQ.L #0x1,D7 00022272 28 6c 00 08 |(l | MOVEA.L (A4+0x8),A4 00022276 60 f2 |` | BRA 0x2226a 00022278 2d 47 00 0c |-G | MOVE.L D7,(A6+0xc) 0002227c 4c df 10 80 |L | MOVEM.L (A7)+,D7+A4 00022280 4e 5e |N^ | UNLK A6 00022282 4e 75 |Nu | RTS 00022284 ; -------------------------------------------------------------------------------------- 00022284 ; OMSI PASCAL Function 00022284 ; <LVAR 0x00c 4(r)> 00022284 ; <LVAR 0x008 4(r)> 00022284 ; -------------------------------------------------------------------------------------- 00022284 4e 56 ff b0 |NV | LINK.W A6,#0xffb0 00022288 bf d5 | | CMPA.L (A5),A7 0002228a 62 06 |b | BHI 0x22292 0002228c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022290 4e 76 |Nv | TRAPV 00022292 de fc 00 4e | N | ADDA.W #0x4e,A7 00022296 48 e7 c0 80 |H | MOVEM.L A0+D1+D0,-(A7) 0002229a 72 01 |r | MOVEQ.L #0x01,D1 0002229c 59 4f |YO | SUBQ.L #0x4,A7 0002229e 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 000222a2 4e ba ff aa |N | JSR 0x2224e 000222a6 58 4f |XO | ADDQ.L #0x4,A7 000222a8 20 1f | | MOVE.L (A7)+,D0 000222aa b0 ae 00 08 | | CMP.L (A6+0x8),D0 000222ae 67 58 |gX | BEQ 0x22308 000222b0 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 000222b4 4e ba fb 4a |N J | JSR 0x21e00 000222b8 58 4f |XO | ADDQ.L #0x4,A7 000222ba 41 fa f6 a0 |A | LEA.L 0x2195c,A0 000222be 70 07 |p | MOVEQ.L #0x07,D0 000222c0 2f 20 |/ | MOVE.L -(A0),-(A7) 000222c2 51 c8 ff fc |Q | DBF D0,0x222c0 000222c6 41 ee 00 1a |A | LEA.L (A6+0x1a),A0 000222ca 70 04 |p | MOVEQ.L #0x04,D0 000222cc 3f 20 |? | MOVE.W -(A0),-(A7) 000222ce 51 c8 ff fc |Q | DBF D0,0x222cc 000222d2 51 4f |QO | SUBQ.L #0x8,A7 000222d4 48 6f 00 12 |Ho | PEA.L (A7+0x12) 000222d8 3f 01 |? | MOVE.W D1,-(A7) 000222da 3f 3c 00 20 |?< | MOVE.W #0x20,-(A7) 000222de 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000222e4 58 4f |XO | ADDQ.L #0x4,A7 000222e6 48 6f 00 0c |Ho | PEA.L (A7+0xc) 000222ea 3f 01 |? | MOVE.W D1,-(A7) 000222ec 3f 3c 00 0a |?< | MOVE.W #0xa,-(A7) 000222f0 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000222f6 50 4f |PO | ADDQ.L #0x8,A7 000222f8 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000222fe 50 4f |PO | ADDQ.L #0x8,A7 00022300 4e ba fb 40 |N @ | JSR 0x21e42 00022304 de fc 00 2e | . | ADDA.W #0x2e,A7 00022308 4c df 01 03 |L | MOVEM.L (A7)+,D0+D1+A0 0002230c 4e 5e |N^ | UNLK A6 0002230e 4e 75 |Nu | RTS 00022310 ; -------------------------------------------------------------------------------------- 00022310 ; OMSI PASCAL Function 00022310 ; <LVAR 0x014 1(rw)> 00022310 ; <LVAR 0x010 4(r)> 00022310 ; <LVAR 0x00c 4(r)> 00022310 ; <LVAR 0x008 4(r)> 00022310 ; -------------------------------------------------------------------------------------- 00022310 4e 56 ff dc |NV | LINK.W A6,#0xffdc ; Spelunked 00022314 bf d5 | | CMPA.L (A5),A7 00022316 62 06 |b | BHI 0x2231e 00022318 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002231c 4e 76 |Nv | TRAPV 0002231e de fc 00 20 | | ADDA.W #0x20,A7 00022322 48 e7 c1 c0 |H | MOVEM.L A1+A0+D7+D1+D0,-(A7) 00022326 42 2e 00 14 |B. | CLR.B (A6+0x14) 0002232a 20 2e 00 10 | . | MOVE.L (A6+0x10),D0 0002232e d0 ae 00 08 | | ADD.L (A6+0x8),D0 00022332 b0 b9 00 02 79 5e | y^ | CMP.L 0x2795e,D0 00022338 6e 4e |nN | BGT 0x22388 0002233a 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 0002233e 7e 01 |~ | MOVEQ.L #0x01,D7 00022340 be 97 | | CMP.L (A7),D7 00022342 6e 42 |nB | BGT 0x22386 00022344 20 2e 00 10 | . | MOVE.L (A6+0x10),D0 00022348 d0 87 | | ADD.L D7,D0 0002234a 53 80 |S | SUBQ.L #0x1,D0 0002234c 0c 80 00 00 1f ff | | CMPI.L #0x00001fff,D0 00022352 63 02 |c | BLS 0x22356 00022354 4e 4f |NO | TRAP #15 00022356 41 f9 00 02 59 52 |A YR | LEA.L 0x25952,A0 0002235c 22 2e 00 0c |". | MOVE.L (A6+0xc),D1 00022360 d2 87 | | ADD.L D7,D1 00022362 53 81 |S | SUBQ.L #0x1,D1 00022364 53 81 |S | SUBQ.L #0x1,D1 00022366 0c 81 00 00 00 3e | > | CMPI.L #0x0000003e,D1 0002236c 63 02 |c | BLS 0x22370 0002236e 4e 4f |NO | TRAP #15 00022370 43 fa f5 ea |C | LEA.L 0x2195c,A1 00022374 10 30 08 08 | 0 | MOVE.B (A0+D0.L+#0x8),D0 00022378 b0 31 18 00 | 1 | CMP.B (A1+D1.L),D0 0002237c 67 04 |g | BEQ 0x22382 0002237e 58 4f |XO | ADDQ.L #0x4,A7 00022380 60 0c |` | BRA 0x2238e 00022382 52 87 |R | ADDQ.L #0x1,D7 00022384 68 ba |h | BVC 0x22340 00022386 58 4f |XO | ADDQ.L #0x4,A7 00022388 1d 7c 00 01 00 14 | | | MOVE.B #0x01,(A6+0x14) 0002238e 4c df 03 83 |L | MOVEM.L (A7)+,D0+D1+D7+A0+A1 00022392 4e 5e |N^ | UNLK A6 00022394 4e 75 |Nu | RTS 00022396 ; -------------------------------------------------------------------------------------- 00022396 ; OMSI PASCAL Function 00022396 ; <LVAR 0x00c 4(r)> 00022396 ; <LVAR 0x008 4(r)> 00022396 ; -------------------------------------------------------------------------------------- 00022396 4e 56 ff bc |NV | LINK.W A6,#0xffbc 0002239a bf d5 | | CMPA.L (A5),A7 0002239c 62 06 |b | BHI 0x223a4 0002239e 44 fc 00 02 |D | MOVE.W #0x2,CCR 000223a2 4e 76 |Nv | TRAPV 000223a4 de fc 00 40 | @ | ADDA.W #0x40,A7 000223a8 48 e7 80 f0 |H | MOVEM.L A3+A2+A1+A0+D0,-(A7) 000223ac 45 f9 00 02 79 5e |E y^ | LEA.L 0x2795e,A2 000223b2 47 ee 00 08 |G | LEA.L (A6+0x8),A3 000223b6 4a 93 |J | TST.L (A3) 000223b8 6c 3e |l> | BGE 0x223f8 000223ba 20 13 | | MOVE.L (A3),D0 000223bc 44 80 |D | NEG.L D0 000223be d0 92 | | ADD.L (A2),D0 000223c0 0c 80 00 00 20 00 | | CMPI.L #0x00002000,D0 000223c6 6f 30 |o0 | BLE 0x223f8 000223c8 9e fc 00 1c | | SUBA.W #0x1c,A7 000223cc 20 4f | O | MOVEA.L A7,A0 000223ce 43 fa f5 cc |C | LEA.L 0x2199c,A1 000223d2 70 1a |p | MOVEQ.L #0x1a,D0 000223d4 10 d9 | | MOVE.B (A1)+,(A0)+ 000223d6 51 c8 ff fc |Q | DBF D0,0x223d4 000223da 59 4f |YO | SUBQ.L #0x4,A7 000223dc 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000223e0 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000223e4 3f 3c 00 1b |?< | MOVE.W #0x1b,-(A7) 000223e8 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000223ee 50 4f |PO | ADDQ.L #0x8,A7 000223f0 4e ba fa 50 |N P | JSR 0x21e42 000223f4 de fc 00 20 | | ADDA.W #0x20,A7 000223f8 41 f9 00 02 59 5a |A YZ | LEA.L 0x2595a,A0 000223fe 2f 08 |/ | MOVE.L A0,-(A7) 00022400 2f 12 |/ | MOVE.L (A2),-(A7) 00022402 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00022406 2f 13 |/ | MOVE.L (A3),-(A7) 00022408 4e b9 00 01 03 64 |N d | JSR MovStringTail(Base, Len, Ptr, Delta) 0002240e de fc 00 10 | | ADDA.W #0x10,A7 00022412 20 12 | | MOVE.L (A2),D0 00022414 90 93 | | SUB.L (A3),D0 00022416 24 80 |$ | MOVE.L D0,(A2) 00022418 4c df 0f 01 |L | MOVEM.L (A7)+,D0+A0+A1+A2+A3 0002241c 4e 5e |N^ | UNLK A6 0002241e 4e 75 |Nu | RTS 00022420 ; -------------------------------------------------------------------------------------- 00022420 ; OMSI PASCAL Function 00022420 ; <LVAR 0x00c 4(r)> 00022420 ; <LVAR 0x008 4(r)> 00022420 ; -------------------------------------------------------------------------------------- 00022420 4e 56 ff d4 |NV | LINK.W A6,#0xffd4 00022424 bf d5 | | CMPA.L (A5),A7 00022426 62 06 |b | BHI 0x2242e 00022428 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002242c 4e 76 |Nv | TRAPV 0002242e de fc 00 28 | ( | ADDA.W #0x28,A7 00022432 48 e7 c1 e0 |H | MOVEM.L A2+A1+A0+D7+D1+D0,-(A7) 00022436 45 ee 00 0c |E | LEA.L (A6+0xc),A2 0002243a 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 0002243e 2f 08 |/ | MOVE.L A0,-(A7) 00022440 22 52 |"R | MOVEA.L (A2),A1 00022442 2f 11 |/ | MOVE.L (A1),-(A7) 00022444 30 10 |0 | MOVE.W (A0),D0 00022446 48 c0 |H | EXTW.L D0 00022448 44 80 |D | NEG.L D0 0002244a 2f 00 |/ | MOVE.L D0,-(A7) 0002244c 4e ba ff 48 |N H | JSR 0x22396 00022450 50 4f |PO | ADDQ.L #0x8,A7 00022452 30 10 |0 | MOVE.W (A0),D0 00022454 48 c0 |H | EXTW.L D0 00022456 2f 00 |/ | MOVE.L D0,-(A7) 00022458 7e 01 |~ | MOVEQ.L #0x01,D7 0002245a be 97 | | CMP.L (A7),D7 0002245c 6e 36 |n6 | BGT 0x22494 0002245e 20 52 | R | MOVEA.L (A2),A0 00022460 20 07 | | MOVE.L D7,D0 00022462 d0 90 | | ADD.L (A0),D0 00022464 53 80 |S | SUBQ.L #0x1,D0 00022466 53 80 |S | SUBQ.L #0x1,D0 00022468 0c 80 00 00 1f ff | | CMPI.L #0x00001fff,D0 0002246e 63 02 |c | BLS 0x22472 00022470 4e 4f |NO | TRAP #15 00022472 41 f9 00 02 59 52 |A YR | LEA.L 0x25952,A0 00022478 22 07 |" | MOVE.L D7,D1 0002247a 53 81 |S | SUBQ.L #0x1,D1 0002247c 0c 81 00 00 00 7d | } | CMPI.L #0x0000007d,D1 00022482 63 02 |c | BLS 0x22486 00022484 4e 4f |NO | TRAP #15 00022486 22 6f 00 04 |"o | MOVEA.L (A7+0x4),A1 0002248a 11 b1 18 02 08 08 | | MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x8) 00022490 52 87 |R | ADDQ.L #0x1,D7 00022492 68 c6 |h | BVC 0x2245a 00022494 58 4f |XO | ADDQ.L #0x4,A7 00022496 20 52 | R | MOVEA.L (A2),A0 00022498 22 57 |"W | MOVEA.L (A7),A1 0002249a 30 11 |0 | MOVE.W (A1),D0 0002249c 48 c0 |H | EXTW.L D0 0002249e d1 90 | | ADD.L D0,(A0) 000224a0 58 4f |XO | ADDQ.L #0x4,A7 000224a2 4c df 07 83 |L | MOVEM.L (A7)+,D0+D1+D7+A0+A1+A2 000224a6 4e 5e |N^ | UNLK A6 000224a8 4e 75 |Nu | RTS 000224aa ; -------------------------------------------------------------------------------------- 000224aa ; OMSI PASCAL Function 000224aa ; <LVAR 0x00c 4(r)> 000224aa ; <LVAR 0x008 4(r)> 000224aa ; -------------------------------------------------------------------------------------- 000224aa 4e 56 ff a8 |NV | LINK.W A6,#0xffa8 000224ae bf d5 | | CMPA.L (A5),A7 000224b0 62 06 |b | BHI 0x224b8 000224b2 44 fc 00 02 |D | MOVE.W #0x2,CCR 000224b6 4e 76 |Nv | TRAPV 000224b8 de fc 00 50 | P | ADDA.W #0x50,A7 000224bc 48 e7 c3 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D1+D0,-(A7) 000224c0 45 fa fe 4e |E N | LEA.L 0x22310,A2 000224c4 47 f8 00 04 |G | LEA.L 0x4,A3 000224c8 49 ee 00 08 |I | LEA.L (A6+0x8),A4 000224cc 72 0c |r | MOVEQ.L #0x0c,D1 000224ce 7e 00 |~ | MOVEQ.L #0x00,D7 000224d0 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 000224d4 42 90 |B | CLR.L (A0) 000224d6 20 54 | T | MOVEA.L (A4),A0 000224d8 42 90 |B | CLR.L (A0) 000224da 2c 39 00 02 79 5a |,9 yZ | MOVE.L 0x2795a,D6 000224e0 20 06 | | MOVE.L D6,D0 000224e2 53 80 |S | SUBQ.L #0x1,D0 000224e4 0c 80 00 00 1f ff | | CMPI.L #0x00001fff,D0 000224ea 63 02 |c | BLS 0x224ee 000224ec 4e 4f |NO | TRAP #15 000224ee 41 f9 00 02 59 52 |A YR | LEA.L 0x25952,A0 000224f4 10 30 08 08 | 0 | MOVE.B (A0+D0.L+#0x8),D0 000224f8 0c 00 00 5b | [ | CMPI.B #0x5b,D0 000224fc 66 00 00 d4 |f | BNE 0x225d2 00022500 55 4f |UO | SUBQ.L #0x2,A7 00022502 2f 06 |/ | MOVE.L D6,-(A7) 00022504 48 78 00 01 |Hx | PEA.L 0x1 00022508 48 78 00 03 |Hx | PEA.L 0x3 0002250c 4e 92 |N | JSR (A2) 0002250e de c1 | | ADDA.W D1,A7 00022510 4a 1f |J | TST.B (A7)+ 00022512 66 7e |f~ | BNE 0x22592 00022514 55 4f |UO | SUBQ.L #0x2,A7 00022516 2f 06 |/ | MOVE.L D6,-(A7) 00022518 48 53 |HS | PEA.L (A3) 0002251a 48 78 00 03 |Hx | PEA.L 0x3 0002251e 4e 92 |N | JSR (A2) 00022520 de c1 | | ADDA.W D1,A7 00022522 4a 1f |J | TST.B (A7)+ 00022524 66 6c |fl | BNE 0x22592 00022526 55 4f |UO | SUBQ.L #0x2,A7 00022528 2f 06 |/ | MOVE.L D6,-(A7) 0002252a 48 78 00 07 |Hx | PEA.L 0x7 0002252e 48 53 |HS | PEA.L (A3) 00022530 4e 92 |N | JSR (A2) 00022532 de c1 | | ADDA.W D1,A7 00022534 4a 1f |J | TST.B (A7)+ 00022536 66 5a |fZ | BNE 0x22592 00022538 55 4f |UO | SUBQ.L #0x2,A7 0002253a 2f 06 |/ | MOVE.L D6,-(A7) 0002253c 48 78 00 0b |Hx | PEA.L 0xb 00022540 48 53 |HS | PEA.L (A3) 00022542 4e 92 |N | JSR (A2) 00022544 de c1 | | ADDA.W D1,A7 00022546 4a 1f |J | TST.B (A7)+ 00022548 66 48 |fH | BNE 0x22592 0002254a 55 4f |UO | SUBQ.L #0x2,A7 0002254c 2f 06 |/ | MOVE.L D6,-(A7) 0002254e 48 78 00 0f |Hx | PEA.L 0xf 00022552 48 53 |HS | PEA.L (A3) 00022554 4e 92 |N | JSR (A2) 00022556 de c1 | | ADDA.W D1,A7 00022558 4a 1f |J | TST.B (A7)+ 0002255a 66 36 |f6 | BNE 0x22592 0002255c 55 4f |UO | SUBQ.L #0x2,A7 0002255e 2f 06 |/ | MOVE.L D6,-(A7) 00022560 48 78 00 13 |Hx | PEA.L 0x13 00022564 48 53 |HS | PEA.L (A3) 00022566 4e 92 |N | JSR (A2) 00022568 de c1 | | ADDA.W D1,A7 0002256a 4a 1f |J | TST.B (A7)+ 0002256c 66 24 |f$ | BNE 0x22592 0002256e 55 4f |UO | SUBQ.L #0x2,A7 00022570 2f 06 |/ | MOVE.L D6,-(A7) 00022572 48 78 00 17 |Hx | PEA.L 0x17 00022576 48 53 |HS | PEA.L (A3) 00022578 4e 92 |N | JSR (A2) 0002257a de c1 | | ADDA.W D1,A7 0002257c 4a 1f |J | TST.B (A7)+ 0002257e 66 12 |f | BNE 0x22592 00022580 55 4f |UO | SUBQ.L #0x2,A7 00022582 2f 06 |/ | MOVE.L D6,-(A7) 00022584 48 78 00 1b |Hx | PEA.L 0x1b 00022588 48 53 |HS | PEA.L (A3) 0002258a 4e 92 |N | JSR (A2) 0002258c de c1 | | ADDA.W D1,A7 0002258e 4a 1f |J | TST.B (A7)+ 00022590 67 04 |g | BEQ 0x22596 00022592 52 87 |R | ADDQ.L #0x1,D7 00022594 60 3c |`< | BRA 0x225d2 00022596 4a 87 |J | TST.L D7 00022598 66 1c |f | BNE 0x225b6 0002259a 55 4f |UO | SUBQ.L #0x2,A7 0002259c 2f 06 |/ | MOVE.L D6,-(A7) 0002259e 48 78 00 1f |Hx | PEA.L 0x1f 000225a2 48 78 00 05 |Hx | PEA.L 0x5 000225a6 4e 92 |N | JSR (A2) 000225a8 de c1 | | ADDA.W D1,A7 000225aa 4a 1f |J | TST.B (A7)+ 000225ac 67 08 |g | BEQ 0x225b6 000225ae 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 000225b2 20 86 | | MOVE.L D6,(A0) 000225b4 60 1c |` | BRA 0x225d2 000225b6 55 4f |UO | SUBQ.L #0x2,A7 000225b8 2f 06 |/ | MOVE.L D6,-(A7) 000225ba 48 78 00 24 |Hx $ | PEA.L 0x24 000225be 48 53 |HS | PEA.L (A3) 000225c0 4e 92 |N | JSR (A2) 000225c2 de c1 | | ADDA.W D1,A7 000225c4 4a 1f |J | TST.B (A7)+ 000225c6 67 0a |g | BEQ 0x225d2 000225c8 4a 87 |J | TST.L D7 000225ca 66 04 |f | BNE 0x225d0 000225cc 20 54 | T | MOVEA.L (A4),A0 000225ce 60 e2 |` | BRA 0x225b2 000225d0 53 87 |S | SUBQ.L #0x1,D7 000225d2 52 86 |R | ADDQ.L #0x1,D6 000225d4 bc b9 00 02 79 5e | y^ | CMP.L 0x2795e,D6 000225da 6e 0e |n | BGT 0x225ea 000225dc 4a 87 |J | TST.L D7 000225de 66 00 ff 00 |f | BNE 0x224e0 000225e2 20 54 | T | MOVEA.L (A4),A0 000225e4 4a 90 |J | TST.L (A0) 000225e6 67 00 fe f8 |g | BEQ 0x224e0 000225ea bc b9 00 02 79 5e | y^ | CMP.L 0x2795e,D6 000225f0 6f 30 |o0 | BLE 0x22622 000225f2 9e fc 00 1c | | SUBA.W #0x1c,A7 000225f6 20 4f | O | MOVEA.L A7,A0 000225f8 43 fa f3 be |C | LEA.L 0x219b8,A1 000225fc 70 1a |p | MOVEQ.L #0x1a,D0 000225fe 10 d9 | | MOVE.B (A1)+,(A0)+ 00022600 51 c8 ff fc |Q | DBF D0,0x225fe 00022604 59 4f |YO | SUBQ.L #0x4,A7 00022606 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002260a 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 0002260e 3f 3c 00 1b |?< | MOVE.W #0x1b,-(A7) 00022612 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00022618 50 4f |PO | ADDQ.L #0x8,A7 0002261a 4e ba f8 26 |N & | JSR 0x21e42 0002261e de fc 00 20 | | ADDA.W #0x20,A7 00022622 4c df 1f c3 |L | MOVEM.L (A7)+,D0+D1+D6+D7+A0+A1+A2+A3+A4 00022626 4e 5e |N^ | UNLK A6 00022628 4e 75 |Nu | RTS 0002262a ; -------------------------------------------------------------------------------------- 0002262a ; OMSI PASCAL Function 0002262a ; <LVAR -0x004 @ 4(r)> 0002262a ; <LVAR -0x008 @ 4(rw)> 0002262a ; -------------------------------------------------------------------------------------- 0002262a 4e 56 ff dc |NV | LINK.W A6,#0xffdc 0002262e bf d5 | | CMPA.L (A5),A7 00022630 62 06 |b | BHI 0x22638 00022632 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022636 4e 76 |Nv | TRAPV 00022638 de fc 00 1c | | ADDA.W #0x1c,A7 0002263c 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7) 00022640 41 ee ff f8 |A | LEA.L (A6-0x8),A0 00022644 43 ee ff fc |C | LEA.L (A6-0x4),A1 00022648 48 50 |HP | PEA.L (A0) 0002264a 48 51 |HQ | PEA.L (A1) 0002264c 4e ba fe 5c |N \ | JSR 0x224aa 00022650 50 4f |PO | ADDQ.L #0x8,A7 00022652 4a 90 |J | TST.L (A0) 00022654 66 02 |f | BNE 0x22658 00022656 20 91 | | MOVE.L (A1),(A0) 00022658 20 11 | | MOVE.L (A1),D0 0002265a 5a 80 |Z | ADDQ.L #0x5,D0 0002265c 2f 00 |/ | MOVE.L D0,-(A7) 0002265e 90 90 | | SUB.L (A0),D0 00022660 2f 00 |/ | MOVE.L D0,-(A7) 00022662 4e ba fd 32 |N 2 | JSR 0x22396 00022666 50 4f |PO | ADDQ.L #0x8,A7 00022668 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1 0002266c 4e 5e |N^ | UNLK A6 0002266e 4e 75 |Nu | RTS 00022670 ; -------------------------------------------------------------------------------------- 00022670 ; OMSI PASCAL Function 00022670 ; <LVAR -0x004 @ 4(r)> 00022670 ; <LVAR -0x008 @ 4(r)> 00022670 ; -------------------------------------------------------------------------------------- 00022670 4e 56 ff dc |NV | LINK.W A6,#0xffdc 00022674 bf d5 | | CMPA.L (A5),A7 00022676 62 06 |b | BHI 0x2267e 00022678 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002267c 4e 76 |Nv | TRAPV 0002267e de fc 00 1c | | ADDA.W #0x1c,A7 00022682 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7) 00022686 41 ee ff f8 |A | LEA.L (A6-0x8),A0 0002268a 43 ee ff fc |C | LEA.L (A6-0x4),A1 0002268e 48 50 |HP | PEA.L (A0) 00022690 48 51 |HQ | PEA.L (A1) 00022692 4e ba fe 16 |N | JSR 0x224aa 00022696 50 4f |PO | ADDQ.L #0x8,A7 00022698 4a 90 |J | TST.L (A0) 0002269a 66 06 |f | BNE 0x226a2 0002269c 20 11 | | MOVE.L (A1),D0 0002269e 5a 80 |Z | ADDQ.L #0x5,D0 000226a0 60 12 |` | BRA 0x226b4 000226a2 2f 11 |/ | MOVE.L (A1),-(A7) 000226a4 5a 97 |Z | ADDQ.L #0x5,(A7) 000226a6 48 78 00 05 |Hx | PEA.L 0x5 000226aa 4e ba fc ea |N | JSR 0x22396 000226ae 50 4f |PO | ADDQ.L #0x8,A7 000226b0 20 10 | | MOVE.L (A0),D0 000226b2 5c 80 |\ | ADDQ.L #0x6,D0 000226b4 2f 00 |/ | MOVE.L D0,-(A7) 000226b6 90 b9 00 02 79 5a | yZ | SUB.L 0x2795a,D0 000226bc 2f 00 |/ | MOVE.L D0,-(A7) 000226be 4e ba fc d6 |N | JSR 0x22396 000226c2 50 4f |PO | ADDQ.L #0x8,A7 000226c4 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1 000226c8 4e 5e |N^ | UNLK A6 000226ca 4e 75 |Nu | RTS 000226cc ; -------------------------------------------------------------------------------------- 000226cc ; OMSI PASCAL Function 000226cc ; <LVAR 0x008 4(r)> 000226cc ; <LVAR -0x004 @> 000226cc ; <LVAR -0x008 @ 4(r)> 000226cc ; <LVAR -0x00c @ 4(rw)> 000226cc ; <LVAR -0x010 4(rw)> 000226cc ; <LVAR -0x014 4(rw)> 000226cc ; -------------------------------------------------------------------------------------- 000226cc 4e 56 ff ba |NV | LINK.W A6,#0xffba 000226d0 bf d5 | | CMPA.L (A5),A7 000226d2 62 06 |b | BHI 0x226da 000226d4 44 fc 00 02 |D | MOVE.W #0x2,CCR 000226d8 4e 76 |Nv | TRAPV 000226da de fc 00 32 | 2 | ADDA.W #0x32,A7 000226de 48 e7 c0 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D1+D0,-(A7) 000226e2 43 f9 00 02 79 6c |C yl | LEA.L 0x2796c,A1 000226e8 45 f9 00 02 79 72 |E yr | LEA.L 0x27972,A2 000226ee 47 f9 00 02 79 5a |G yZ | LEA.L 0x2795a,A3 000226f4 49 ee ff f8 |I | LEA.L (A6-0x8),A4 000226f8 72 01 |r | MOVEQ.L #0x01,D1 000226fa 4a 11 |J | TST.B (A1) 000226fc 67 0a |g | BEQ 0x22708 000226fe 4a 92 |J | TST.L (A2) 00022700 66 06 |f | BNE 0x22708 00022702 24 ae 00 08 |$ | MOVE.L (A6+0x8),(A2) 00022706 53 92 |S | SUBQ.L #0x1,(A2) 00022708 4a 11 |J | TST.B (A1) 0002270a 66 00 00 cc |f | BNE 0x227d8 0002270e 26 ae 00 08 |& | MOVE.L (A6+0x8),(A3) 00022712 5c 93 |\ | ADDQ.L #0x6,(A3) 00022714 48 54 |HT | PEA.L (A4) 00022716 48 6e ff fc |Hn | PEA.L (A6-0x4) 0002271a 4e ba fa 86 |N | JSR 0x221a2 0002271e 50 4f |PO | ADDQ.L #0x8,A7 00022720 41 fa f2 bc |A | LEA.L 0x219de,A0 00022724 70 04 |p | MOVEQ.L #0x04,D0 00022726 3f 20 |? | MOVE.W -(A0),-(A7) 00022728 51 c8 ff fc |Q | DBF D0,0x22726 0002272c 2f 14 |/ | MOVE.L (A4),-(A7) 0002272e 48 78 00 00 |Hx | PEA.L 0x0 00022732 4e ba fb 50 |N P | JSR 0x22284 00022736 de fc 00 12 | | ADDA.W #0x12,A7 0002273a 4a 39 00 02 79 76 |J9 yv | TST.B 0x27976 00022740 67 1a |g | BEQ 0x2275c 00022742 51 4f |QO | SUBQ.L #0x8,A7 00022744 2f 14 |/ | MOVE.L (A4),-(A7) 00022746 48 78 00 00 |Hx | PEA.L 0x0 0002274a 4e b9 00 02 2b 9c |N + | JSR 0x22b9c 00022750 50 4f |PO | ADDQ.L #0x8,A7 00022752 2d 5f ff ec |-_ | MOVE.L (A7)+,(A6-0x14) 00022756 2d 5f ff f0 |-_ | MOVE.L (A7)+,(A6-0x10) 0002275a 60 14 |` | BRA 0x22770 0002275c 59 4f |YO | SUBQ.L #0x4,A7 0002275e 2f 14 |/ | MOVE.L (A4),-(A7) 00022760 48 78 00 00 |Hx | PEA.L 0x0 00022764 4e b9 00 02 2b 6a |N +j | JSR 0x22b6a 0002276a 50 4f |PO | ADDQ.L #0x8,A7 0002276c 2d 5f ff f4 |-_ | MOVE.L (A7)+,(A6-0xc) 00022770 2f 14 |/ | MOVE.L (A4),-(A7) 00022772 4e ba f6 8c |N | JSR 0x21e00 00022776 58 4f |XO | ADDQ.L #0x4,A7 00022778 23 d3 00 02 79 6e |# yn | MOVE.L (A3),0x2796e 0002277e 4a 39 00 02 79 76 |J9 yv | TST.B 0x27976 00022784 67 2a |g* | BEQ 0x227b0 00022786 55 4f |UO | SUBQ.L #0x2,A7 00022788 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7) 0002278c 2f 2e ff ec |/. | MOVE.L (A6-0x14),-(A7) 00022790 2f 39 00 02 79 80 |/9 y | MOVE.L 0x27980,-(A7) 00022796 2f 39 00 02 79 7c |/9 y| | MOVE.L 0x2797c,-(A7) 0002279c 4e b9 00 01 03 2c |N , | JSR IsEqual(a, b : Quad) : Bool 000227a2 de fc 00 10 | | ADDA.W #0x10,A7 000227a6 10 1f | | MOVE.B (A7)+,D0 000227a8 48 80 |H | EXTB.W D0 000227aa 41 81 |A | CHK.W D1,D0 000227ac 12 80 | | MOVE.B D0,(A1) 000227ae 60 28 |`( | BRA 0x227d8 000227b0 55 4f |UO | SUBQ.L #0x2,A7 000227b2 2f 2e ff f4 |/. | MOVE.L (A6-0xc),-(A7) 000227b6 2f 39 00 02 79 78 |/9 yx | MOVE.L 0x27978,-(A7) 000227bc 4e b9 00 01 02 c8 |N | JSR StringEqual(a, b : String) : Byte 000227c2 50 4f |PO | ADDQ.L #0x8,A7 000227c4 10 1f | | MOVE.B (A7)+,D0 000227c6 48 80 |H | EXTB.W D0 000227c8 41 81 |A | CHK.W D1,D0 000227ca 12 80 | | MOVE.B D0,(A1) 000227cc 48 6e ff f4 |Hn | PEA.L (A6-0xc) 000227d0 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000227d6 58 4f |XO | ADDQ.L #0x4,A7 000227d8 4c df 1f 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2+A3+A4 000227dc 4e 5e |N^ | UNLK A6 000227de 4e 75 |Nu | RTS 000227e0 ; -------------------------------------------------------------------------------------- 000227e0 ; OMSI PASCAL Function 000227e0 ; <LVAR 0x010 4(r)> 000227e0 ; <LVAR 0x00c 4(r)> 000227e0 ; <LVAR 0x008 4(r)> 000227e0 ; -------------------------------------------------------------------------------------- 000227e0 4e 56 ff 9e |NV | LINK.W A6,#0xff9e 000227e4 bf d5 | | CMPA.L (A5),A7 000227e6 62 06 |b | BHI 0x227ee 000227e8 44 fc 00 02 |D | MOVE.W #0x2,CCR 000227ec 4e 76 |Nv | TRAPV 000227ee de fc 00 56 | V | ADDA.W #0x56,A7 000227f2 48 e7 e7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7) 000227f6 45 f9 00 02 79 72 |E yr | LEA.L 0x27972,A2 000227fc 47 fa fb 12 |G | LEA.L 0x22310,A3 00022800 49 f9 00 02 79 6c |I yl | LEA.L 0x2796c,A4 00022806 72 0c |r | MOVEQ.L #0x0c,D1 00022808 74 01 |t | MOVEQ.L #0x01,D2 0002280a 42 14 |B | CLR.B (A4) 0002280c 42 b9 00 02 79 6e |B yn | CLR.L 0x2796e 00022812 42 92 |B | CLR.L (A2) 00022814 7e 00 |~ | MOVEQ.L #0x00,D7 00022816 7c 00 || | MOVEQ.L #0x00,D6 00022818 2a 39 00 02 79 5a |*9 yZ | MOVE.L 0x2795a,D5 0002281e 4a 86 |J | TST.L D6 00022820 66 00 00 a0 |f | BNE 0x228c2 00022824 ba b9 00 02 79 5e | y^ | CMP.L 0x2795e,D5 0002282a 6e 00 00 96 |n | BGT 0x228c2 0002282e 20 05 | | MOVE.L D5,D0 00022830 53 80 |S | SUBQ.L #0x1,D0 00022832 0c 80 00 00 1f ff | | CMPI.L #0x00001fff,D0 00022838 63 02 |c | BLS 0x2283c 0002283a 4e 4f |NO | TRAP #15 0002283c 41 f9 00 02 59 52 |A YR | LEA.L 0x25952,A0 00022842 10 30 08 08 | 0 | MOVE.B (A0+D0.L+#0x8),D0 00022846 0c 00 00 5b | [ | CMPI.B #0x5b,D0 0002284a 66 6c |fl | BNE 0x228b8 0002284c 55 4f |UO | SUBQ.L #0x2,A7 0002284e 2f 05 |/ | MOVE.L D5,-(A7) 00022850 48 78 00 28 |Hx ( | PEA.L 0x28 00022854 48 78 00 05 |Hx | PEA.L 0x5 00022858 4e 93 |N | JSR (A3) 0002285a de c1 | | ADDA.W D1,A7 0002285c 4a 1f |J | TST.B (A7)+ 0002285e 66 14 |f | BNE 0x22874 00022860 55 4f |UO | SUBQ.L #0x2,A7 00022862 2f 05 |/ | MOVE.L D5,-(A7) 00022864 48 78 00 2d |Hx - | PEA.L 0x2d 00022868 48 78 00 06 |Hx | PEA.L 0x6 0002286c 4e 93 |N | JSR (A3) 0002286e de c1 | | ADDA.W D1,A7 00022870 4a 1f |J | TST.B (A7)+ 00022872 67 04 |g | BEQ 0x22878 00022874 52 87 |R | ADDQ.L #0x1,D7 00022876 60 40 |`@ | BRA 0x228b8 00022878 4a 87 |J | TST.L D7 0002287a 66 1e |f | BNE 0x2289a 0002287c 55 4f |UO | SUBQ.L #0x2,A7 0002287e 2f 05 |/ | MOVE.L D5,-(A7) 00022880 48 78 00 33 |Hx 3 | PEA.L 0x33 00022884 48 78 00 05 |Hx | PEA.L 0x5 00022888 4e 93 |N | JSR (A3) 0002288a de c1 | | ADDA.W D1,A7 0002288c 4a 1f |J | TST.B (A7)+ 0002288e 67 0a |g | BEQ 0x2289a 00022890 2f 05 |/ | MOVE.L D5,-(A7) 00022892 4e ba fe 38 |N 8 | JSR 0x226cc 00022896 58 4f |XO | ADDQ.L #0x4,A7 00022898 60 1e |` | BRA 0x228b8 0002289a 55 4f |UO | SUBQ.L #0x2,A7 0002289c 2f 05 |/ | MOVE.L D5,-(A7) 0002289e 48 78 00 38 |Hx 8 | PEA.L 0x38 000228a2 48 78 00 08 |Hx | PEA.L 0x8 000228a6 4e 93 |N | JSR (A3) 000228a8 de c1 | | ADDA.W D1,A7 000228aa 4a 1f |J | TST.B (A7)+ 000228ac 67 0a |g | BEQ 0x228b8 000228ae 4a 87 |J | TST.L D7 000228b0 66 04 |f | BNE 0x228b6 000228b2 2c 05 |, | MOVE.L D5,D6 000228b4 60 02 |` | BRA 0x228b8 000228b6 53 87 |S | SUBQ.L #0x1,D7 000228b8 4a 86 |J | TST.L D6 000228ba 66 02 |f | BNE 0x228be 000228bc 52 85 |R | ADDQ.L #0x1,D5 000228be 60 00 ff 5e |` ^ | BRA 0x2281e 000228c2 4a 39 00 02 79 76 |J9 yv | TST.B 0x27976 000228c8 66 0e |f | BNE 0x228d8 000228ca 48 79 00 02 79 78 |Hy yx | PEA.L 0x27978 000228d0 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000228d6 58 4f |XO | ADDQ.L #0x4,A7 000228d8 4a 14 |J | TST.B (A4) 000228da 66 28 |f( | BNE 0x22904 000228dc 41 fa f1 1a |A | LEA.L 0x219f8,A0 000228e0 70 0c |p | MOVEQ.L #0x0c,D0 000228e2 3f 20 |? | MOVE.W -(A0),-(A7) 000228e4 51 c8 ff fc |Q | DBF D0,0x228e2 000228e8 59 4f |YO | SUBQ.L #0x4,A7 000228ea 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000228ee 3f 02 |? | MOVE.W D2,-(A7) 000228f0 3f 3c 00 1a |?< | MOVE.W #0x1a,-(A7) 000228f4 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000228fa 50 4f |PO | ADDQ.L #0x8,A7 000228fc 4e ba f5 44 |N D | JSR 0x21e42 00022900 de fc 00 1e | | ADDA.W #0x1e,A7 00022904 4a 86 |J | TST.L D6 00022906 66 2e |f. | BNE 0x22936 00022908 9e fc 00 14 | | SUBA.W #0x14,A7 0002290c 20 4f | O | MOVEA.L A7,A0 0002290e 43 fa f0 e8 |C | LEA.L 0x219f8,A1 00022912 70 12 |p | MOVEQ.L #0x12,D0 00022914 10 d9 | | MOVE.B (A1)+,(A0)+ 00022916 51 c8 ff fc |Q | DBF D0,0x22914 0002291a 59 4f |YO | SUBQ.L #0x4,A7 0002291c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022920 3f 02 |? | MOVE.W D2,-(A7) 00022922 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7) 00022926 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002292c 50 4f |PO | ADDQ.L #0x8,A7 0002292e 4e ba f5 12 |N | JSR 0x21e42 00022932 de fc 00 18 | | ADDA.W #0x18,A7 00022936 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 0002293a 20 86 | | MOVE.L D6,(A0) 0002293c 20 6e 00 10 | n | MOVEA.L (A6+0x10),A0 00022940 20 b9 00 02 79 6e | yn | MOVE.L 0x2796e,(A0) 00022946 4a 92 |J | TST.L (A2) 00022948 66 0a |f | BNE 0x22954 0002294a 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 0002294e 20 86 | | MOVE.L D6,(A0) 00022950 53 90 |S | SUBQ.L #0x1,(A0) 00022952 60 06 |` | BRA 0x2295a 00022954 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 00022958 20 92 | | MOVE.L (A2),(A0) 0002295a 4c df 1f e7 |L | MOVEM.L (A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3+A4 0002295e 4e 5e |N^ | UNLK A6 00022960 4e 75 |Nu | RTS 00022962 ; -------------------------------------------------------------------------------------- 00022962 ; OMSI PASCAL Function 00022962 ; <LVAR 0x008 4(r)> 00022962 ; <LVAR -0x008 @ 4(r)> 00022962 ; <LVAR -0x00c @ 4(r)> 00022962 ; <LVAR -0x010 @ 4(r)> 00022962 ; -------------------------------------------------------------------------------------- 00022962 4e 56 ff c8 |NV | LINK.W A6,#0xffc8 00022966 bf d5 | | CMPA.L (A5),A7 00022968 62 06 |b | BHI 0x22970 0002296a 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002296e 4e 76 |Nv | TRAPV 00022970 de fc 00 24 | $ | ADDA.W #0x24,A7 00022974 48 e7 83 c0 |H | MOVEM.L A1+A0+D7+D6+D0,-(A7) 00022978 41 f9 00 02 79 5a |A yZ | LEA.L 0x2795a,A0 0002297e 43 ee ff f0 |C | LEA.L (A6-0x10),A1 00022982 2c 10 |, | MOVE.L (A0),D6 00022984 42 39 00 02 79 76 |B9 yv | CLR.B 0x27976 0002298a 23 ee 00 08 00 02 79 78 |# yx| MOVE.L (A6+0x8),0x27978 00022992 2e 10 |. | MOVE.L (A0),D7 00022994 48 51 |HQ | PEA.L (A1) 00022996 48 6e ff f4 |Hn | PEA.L (A6-0xc) 0002299a 48 6e ff f8 |Hn | PEA.L (A6-0x8) 0002299e 4e ba fe 40 |N @ | JSR 0x227e0 000229a2 de fc 00 0c | | ADDA.W #0xc,A7 000229a6 20 86 | | MOVE.L D6,(A0) 000229a8 20 2e ff f8 | . | MOVE.L (A6-0x8),D0 000229ac 06 80 00 00 00 09 | | ADDI.L #0x00000009,D0 000229b2 2f 00 |/ | MOVE.L D0,-(A7) 000229b4 90 ae ff f4 | | SUB.L (A6-0xc),D0 000229b8 53 80 |S | SUBQ.L #0x1,D0 000229ba 2f 00 |/ | MOVE.L D0,-(A7) 000229bc 4e ba f9 d8 |N | JSR 0x22396 000229c0 58 4f |XO | ADDQ.L #0x4,A7 000229c2 2e 91 |. | MOVE.L (A1),(A7) 000229c4 2f 11 |/ | MOVE.L (A1),-(A7) 000229c6 9f 97 | | SUB.L D7,(A7) 000229c8 4e ba f9 cc |N | JSR 0x22396 000229cc 50 4f |PO | ADDQ.L #0x8,A7 000229ce 4c df 03 c1 |L | MOVEM.L (A7)+,D0+D6+D7+A0+A1 000229d2 4e 5e |N^ | UNLK A6 000229d4 4e 75 |Nu | RTS 000229d6 ; -------------------------------------------------------------------------------------- 000229d6 ; OMSI PASCAL Function 000229d6 ; <LVAR 0x00c 4(r)> 000229d6 ; <LVAR 0x008 4(r)> 000229d6 ; <LVAR -0x008 @ 4(r)> 000229d6 ; <LVAR -0x00c @ 4(r)> 000229d6 ; <LVAR -0x010 @ 4(r)> 000229d6 ; -------------------------------------------------------------------------------------- 000229d6 4e 56 ff c8 |NV | LINK.W A6,#0xffc8 000229da bf d5 | | CMPA.L (A5),A7 000229dc 62 06 |b | BHI 0x229e4 000229de 44 fc 00 02 |D | MOVE.W #0x2,CCR 000229e2 4e 76 |Nv | TRAPV 000229e4 de fc 00 24 | $ | ADDA.W #0x24,A7 000229e8 48 e7 83 c0 |H | MOVEM.L A1+A0+D7+D6+D0,-(A7) 000229ec 41 f9 00 02 79 5a |A yZ | LEA.L 0x2795a,A0 000229f2 43 ee ff f0 |C | LEA.L (A6-0x10),A1 000229f6 2c 10 |, | MOVE.L (A0),D6 000229f8 13 fc 00 01 00 02 79 76 | yv| MOVE.B #0x01,0x27976 00022a00 23 ee 00 08 00 02 79 7c |# y|| MOVE.L (A6+0x8),0x2797c 00022a08 23 ee 00 0c 00 02 79 80 |# y | MOVE.L (A6+0xc),0x27980 00022a10 2e 10 |. | MOVE.L (A0),D7 00022a12 48 51 |HQ | PEA.L (A1) 00022a14 48 6e ff f4 |Hn | PEA.L (A6-0xc) 00022a18 48 6e ff f8 |Hn | PEA.L (A6-0x8) 00022a1c 4e ba fd c2 |N | JSR 0x227e0 00022a20 de fc 00 0c | | ADDA.W #0xc,A7 00022a24 20 86 | | MOVE.L D6,(A0) 00022a26 20 2e ff f8 | . | MOVE.L (A6-0x8),D0 00022a2a 06 80 00 00 00 09 | | ADDI.L #0x00000009,D0 00022a30 2f 00 |/ | MOVE.L D0,-(A7) 00022a32 90 ae ff f4 | | SUB.L (A6-0xc),D0 00022a36 53 80 |S | SUBQ.L #0x1,D0 00022a38 2f 00 |/ | MOVE.L D0,-(A7) 00022a3a 4e ba f9 5a |N Z | JSR 0x22396 00022a3e 58 4f |XO | ADDQ.L #0x4,A7 00022a40 2e 91 |. | MOVE.L (A1),(A7) 00022a42 2f 11 |/ | MOVE.L (A1),-(A7) 00022a44 9f 97 | | SUB.L D7,(A7) 00022a46 4e ba f9 4e |N N | JSR 0x22396 00022a4a 50 4f |PO | ADDQ.L #0x8,A7 00022a4c 4c df 03 c1 |L | MOVEM.L (A7)+,D0+D6+D7+A0+A1 00022a50 4e 5e |N^ | UNLK A6 00022a52 4e 75 |Nu | RTS 00022a54 ; -------------------------------------------------------------------------------------- 00022a54 ; OMSI PASCAL Function 00022a54 ; <LVAR 0x010 4(rw)> 00022a54 ; <LVAR 0x00c 4(r)> 00022a54 ; <LVAR 0x008 4(r)> 00022a54 ; -------------------------------------------------------------------------------------- 00022a54 4e 56 ff f8 |NV | LINK.W A6,#0xfff8 00022a58 bf d5 | | CMPA.L (A5),A7 00022a5a 62 06 |b | BHI 0x22a62 00022a5c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022a60 4e 76 |Nv | TRAPV 00022a62 de fc 00 08 | | ADDA.W #0x8,A7 00022a66 48 e7 80 00 |H | MOVEM.L D0,-(A7) 00022a6a 4a ae 00 08 |J | TST.L (A6+0x8) 00022a6e 66 06 |f | BNE 0x22a76 00022a70 42 ae 00 10 |B | CLR.L (A6+0x10) 00022a74 60 0e |` | BRA 0x22a84 00022a76 20 2e 00 0c | . | MOVE.L (A6+0xc),D0 00022a7a 90 ae 00 08 | | SUB.L (A6+0x8),D0 00022a7e 52 80 |R | ADDQ.L #0x1,D0 00022a80 2d 40 00 10 |-@ | MOVE.L D0,(A6+0x10) 00022a84 4c df 00 01 |L | MOVEM.L (A7)+,D0 00022a88 4e 5e |N^ | UNLK A6 00022a8a 4e 75 |Nu | RTS 00022a8c ; -------------------------------------------------------------------------------------- 00022a8c ; OMSI PASCAL Function 00022a8c ; <LVAR 0x014 4(w)> 00022a8c ; <LVAR 0x010 @ 4(w)> 00022a8c ; <LVAR 0x00c 4(r)> 00022a8c ; <LVAR 0x008 4(r)> 00022a8c ; -------------------------------------------------------------------------------------- 00022a8c 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 00022a90 bf d5 | | CMPA.L (A5),A7 00022a92 62 06 |b | BHI 0x22a9a 00022a94 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022a98 4e 76 |Nv | TRAPV 00022a9a de fc 00 20 | | ADDA.W #0x20,A7 00022a9e 48 e7 81 c8 |H | MOVEM.L A4+A1+A0+D7+D0,-(A7) 00022aa2 28 6e 00 0c |(n | MOVEA.L (A6+0xc),A4 00022aa6 2d 7a f2 b2 00 10 |-z | MOVE.L 0x21d5a,(A6+0x10) 00022aac 2d 7a f2 b0 00 14 |-z | MOVE.L 0x21d5e,(A6+0x14) 00022ab2 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022ab6 7e 00 |~ | MOVEQ.L #0x00,D7 00022ab8 be 97 | | CMP.L (A7),D7 00022aba 6e 28 |n( | BGT 0x22ae4 00022abc b8 fc 00 01 | | CMPA.W #0x1,A4 00022ac0 66 04 |f | BNE 0x22ac6 00022ac2 58 4f |XO | ADDQ.L #0x4,A7 00022ac4 60 20 |` | BRA 0x22ae6 00022ac6 be ae 00 08 | | CMP.L (A6+0x8),D7 00022aca 66 10 |f | BNE 0x22adc 00022acc 41 ee 00 10 |A | LEA.L (A6+0x10),A0 00022ad0 22 4c |"L | MOVEA.L A4,A1 00022ad2 70 07 |p | MOVEQ.L #0x07,D0 00022ad4 10 d9 | | MOVE.B (A1)+,(A0)+ 00022ad6 51 c8 ff fc |Q | DBF D0,0x22ad4 00022ada 60 04 |` | BRA 0x22ae0 00022adc 28 6c 00 08 |(l | MOVEA.L (A4+0x8),A4 00022ae0 52 87 |R | ADDQ.L #0x1,D7 00022ae2 68 d4 |h | BVC 0x22ab8 00022ae4 58 4f |XO | ADDQ.L #0x4,A7 00022ae6 4c df 13 81 |L | MOVEM.L (A7)+,D0+D7+A0+A1+A4 00022aea 4e 5e |N^ | UNLK A6 00022aec 4e 75 |Nu | RTS 00022aee ; -------------------------------------------------------------------------------------- 00022aee ; OMSI PASCAL Function 00022aee ; <LVAR 0x010 4(w)> 00022aee ; <LVAR 0x00c 4(r)> 00022aee ; <LVAR 0x008 4(r)> 00022aee ; <LVAR -0x008 @ 4(r)> 00022aee ; -------------------------------------------------------------------------------------- 00022aee 4e 56 ff ce |NV | LINK.W A6,#0xffce 00022af2 bf d5 | | CMPA.L (A5),A7 00022af4 62 06 |b | BHI 0x22afc 00022af6 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022afa 4e 76 |Nv | TRAPV 00022afc de fc 00 26 | & | ADDA.W #0x26,A7 00022b00 48 e7 83 c0 |H | MOVEM.L A1+A0+D7+D6+D0,-(A7) 00022b04 43 ee ff f8 |C | LEA.L (A6-0x8),A1 00022b08 48 51 |HQ | PEA.L (A1) 00022b0a 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00022b10 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00022b14 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022b18 4e ba ff 3a |N : | JSR 0x22a54 00022b1c 50 4f |PO | ADDQ.L #0x8,A7 00022b1e 7e 01 |~ | MOVEQ.L #0x01,D7 00022b20 be 97 | | CMP.L (A7),D7 00022b22 6e 38 |n8 | BGT 0x22b5c 00022b24 20 07 | | MOVE.L D7,D0 00022b26 d0 ae 00 08 | | ADD.L (A6+0x8),D0 00022b2a 53 80 |S | SUBQ.L #0x1,D0 00022b2c 53 80 |S | SUBQ.L #0x1,D0 00022b2e 0c 80 00 00 1f ff | | CMPI.L #0x00001fff,D0 00022b34 63 02 |c | BLS 0x22b38 00022b36 4e 4f |NO | TRAP #15 00022b38 41 f9 00 02 59 52 |A YR | LEA.L 0x25952,A0 00022b3e 1c 30 08 08 | 0 | MOVE.B (A0+D0.L+#0x8),D6 00022b42 0c 06 00 2f | / | CMPI.B #0x2f,D6 00022b46 66 04 |f | BNE 0x22b4c 00022b48 58 4f |XO | ADDQ.L #0x4,A7 00022b4a 60 12 |` | BRA 0x22b5e 00022b4c 2f 11 |/ | MOVE.L (A1),-(A7) 00022b4e 1f 06 | | MOVE.B D6,-(A7) 00022b50 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00022b56 5c 4f |\O | ADDQ.L #0x6,A7 00022b58 52 87 |R | ADDQ.L #0x1,D7 00022b5a 68 c4 |h | BVC 0x22b20 00022b5c 58 4f |XO | ADDQ.L #0x4,A7 00022b5e 2d 51 00 10 |-Q | MOVE.L (A1),(A6+0x10) 00022b62 4c df 03 c1 |L | MOVEM.L (A7)+,D0+D6+D7+A0+A1 00022b66 4e 5e |N^ | UNLK A6 00022b68 4e 75 |Nu | RTS 00022b6a ; -------------------------------------------------------------------------------------- 00022b6a ; OMSI PASCAL Function 00022b6a ; <LVAR 0x010 4(w)> 00022b6a ; <LVAR 0x00c 4(r)> 00022b6a ; <LVAR 0x008 4(r)> 00022b6a ; -------------------------------------------------------------------------------------- 00022b6a 4e 56 ff e8 |NV | LINK.W A6,#0xffe8 00022b6e bf d5 | | CMPA.L (A5),A7 00022b70 62 06 |b | BHI 0x22b78 00022b72 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022b76 4e 76 |Nv | TRAPV 00022b78 de fc 00 18 | | ADDA.W #0x18,A7 00022b7c 9e fc 00 0c | | SUBA.W #0xc,A7 00022b80 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00022b84 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022b88 4e ba ff 02 |N | JSR 0x22a8c 00022b8c 50 4f |PO | ADDQ.L #0x8,A7 00022b8e 4e ba ff 5e |N ^ | JSR 0x22aee 00022b92 50 4f |PO | ADDQ.L #0x8,A7 00022b94 2d 5f 00 10 |-_ | MOVE.L (A7)+,(A6+0x10) 00022b98 4e 5e |N^ | UNLK A6 00022b9a 4e 75 |Nu | RTS 00022b9c ; -------------------------------------------------------------------------------------- 00022b9c ; OMSI PASCAL Function 00022b9c ; <LVAR 0x014 4(w)> 00022b9c ; <LVAR 0x010 4(w)> 00022b9c ; <LVAR 0x00c 4(r)> 00022b9c ; <LVAR 0x008 4(r)> 00022b9c ; -------------------------------------------------------------------------------------- 00022b9c 4e 56 ff e8 |NV | LINK.W A6,#0xffe8 00022ba0 bf d5 | | CMPA.L (A5),A7 00022ba2 62 06 |b | BHI 0x22baa 00022ba4 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022ba8 4e 76 |Nv | TRAPV 00022baa de fc 00 18 | | ADDA.W #0x18,A7 00022bae 9e fc 00 0c | | SUBA.W #0xc,A7 00022bb2 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00022bb6 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022bba 4e ba ff ae |N | JSR 0x22b6a 00022bbe 50 4f |PO | ADDQ.L #0x8,A7 00022bc0 48 78 00 10 |Hx | PEA.L 0x10 00022bc4 4e b9 00 01 03 60 |N ` | JSR ?StringToInt64() 00022bca 50 4f |PO | ADDQ.L #0x8,A7 00022bcc 2d 5f 00 10 |-_ | MOVE.L (A7)+,(A6+0x10) 00022bd0 2d 5f 00 14 |-_ | MOVE.L (A7)+,(A6+0x14) 00022bd4 4e 5e |N^ | UNLK A6 00022bd6 4e 75 |Nu | RTS 00022bd8 ; -------------------------------------------------------------------------------------- 00022bd8 ; OMSI PASCAL Function 00022bd8 ; <LVAR 0x010 4(w)> 00022bd8 ; <LVAR 0x00c 4(r)> 00022bd8 ; <LVAR 0x008 4(r)> 00022bd8 ; -------------------------------------------------------------------------------------- 00022bd8 4e 56 ff e8 |NV | LINK.W A6,#0xffe8 00022bdc bf d5 | | CMPA.L (A5),A7 00022bde 62 06 |b | BHI 0x22be6 00022be0 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022be4 4e 76 |Nv | TRAPV 00022be6 de fc 00 18 | | ADDA.W #0x18,A7 00022bea 9e fc 00 0c | | SUBA.W #0xc,A7 00022bee 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00022bf2 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022bf6 4e ba ff a4 |N | JSR 0x22b9c 00022bfa 50 4f |PO | ADDQ.L #0x8,A7 00022bfc 4e b9 00 01 03 50 |N P | JSR Quad2Long(a : Quad) : Long 00022c02 50 4f |PO | ADDQ.L #0x8,A7 00022c04 2d 5f 00 10 |-_ | MOVE.L (A7)+,(A6+0x10) 00022c08 4e 5e |N^ | UNLK A6 00022c0a 4e 75 |Nu | RTS 00022c0c ; -------------------------------------------------------------------------------------- 00022c0c ; OMSI PASCAL Function 00022c0c ; <LVAR 0x008 @ 4(r)> 00022c0c ; -------------------------------------------------------------------------------------- 00022c0c 4e 56 ff d4 |NV | LINK.W A6,#0xffd4 00022c10 bf d5 | | CMPA.L (A5),A7 00022c12 62 06 |b | BHI 0x22c1a 00022c14 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022c18 4e 76 |Nv | TRAPV 00022c1a de fc 00 28 | ( | ADDA.W #0x28,A7 00022c1e 48 e7 c1 e0 |H | MOVEM.L A2+A1+A0+D7+D1+D0,-(A7) 00022c22 45 f9 00 02 79 5a |E yZ | LEA.L 0x2795a,A2 00022c28 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00022c2c 2f 08 |/ | MOVE.L A0,-(A7) 00022c2e 2f 12 |/ | MOVE.L (A2),-(A7) 00022c30 30 10 |0 | MOVE.W (A0),D0 00022c32 48 c0 |H | EXTW.L D0 00022c34 44 80 |D | NEG.L D0 00022c36 2f 00 |/ | MOVE.L D0,-(A7) 00022c38 4e ba f7 5c |N \ | JSR 0x22396 00022c3c 50 4f |PO | ADDQ.L #0x8,A7 00022c3e 30 10 |0 | MOVE.W (A0),D0 00022c40 48 c0 |H | EXTW.L D0 00022c42 2f 00 |/ | MOVE.L D0,-(A7) 00022c44 7e 01 |~ | MOVEQ.L #0x01,D7 00022c46 be 97 | | CMP.L (A7),D7 00022c48 6e 34 |n4 | BGT 0x22c7e 00022c4a 20 07 | | MOVE.L D7,D0 00022c4c d0 92 | | ADD.L (A2),D0 00022c4e 53 80 |S | SUBQ.L #0x1,D0 00022c50 53 80 |S | SUBQ.L #0x1,D0 00022c52 0c 80 00 00 1f ff | | CMPI.L #0x00001fff,D0 00022c58 63 02 |c | BLS 0x22c5c 00022c5a 4e 4f |NO | TRAP #15 00022c5c 41 f9 00 02 59 52 |A YR | LEA.L 0x25952,A0 00022c62 22 07 |" | MOVE.L D7,D1 00022c64 53 81 |S | SUBQ.L #0x1,D1 00022c66 0c 81 00 00 00 7d | } | CMPI.L #0x0000007d,D1 00022c6c 63 02 |c | BLS 0x22c70 00022c6e 4e 4f |NO | TRAP #15 00022c70 22 6f 00 04 |"o | MOVEA.L (A7+0x4),A1 00022c74 11 b1 18 02 08 08 | | MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x8) 00022c7a 52 87 |R | ADDQ.L #0x1,D7 00022c7c 68 c8 |h | BVC 0x22c46 00022c7e 50 4f |PO | ADDQ.L #0x8,A7 00022c80 48 6e 00 08 |Hn | PEA.L (A6+0x8) 00022c84 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00022c8a 58 4f |XO | ADDQ.L #0x4,A7 00022c8c 4c df 07 83 |L | MOVEM.L (A7)+,D0+D1+D7+A0+A1+A2 00022c90 4e 5e |N^ | UNLK A6 00022c92 4e 75 |Nu | RTS 00022c94 ; -------------------------------------------------------------------------------------- 00022c94 ; OMSI PASCAL Function 00022c94 ; <LVAR 0x00c 4(r)> 00022c94 ; <LVAR 0x008 4(r)> 00022c94 ; -------------------------------------------------------------------------------------- 00022c94 4e 56 ff ec |NV | LINK.W A6,#0xffec 00022c98 bf d5 | | CMPA.L (A5),A7 00022c9a 62 06 |b | BHI 0x22ca2 00022c9c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022ca0 4e 76 |Nv | TRAPV 00022ca2 de fc 00 14 | | ADDA.W #0x14,A7 00022ca6 59 4f |YO | SUBQ.L #0x4,A7 00022ca8 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00022cac 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022cb0 48 78 00 10 |Hx | PEA.L 0x10 00022cb4 4e b9 00 01 03 5c |N \ | JSR Quad2String(a : Quad; radix : Long ) : String 00022cba de fc 00 0c | | ADDA.W #0xc,A7 00022cbe 4e ba ff 4c |N L | JSR 0x22c0c 00022cc2 58 4f |XO | ADDQ.L #0x4,A7 00022cc4 4e 5e |N^ | UNLK A6 00022cc6 4e 75 |Nu | RTS 00022cc8 ; -------------------------------------------------------------------------------------- 00022cc8 ; OMSI PASCAL Function 00022cc8 ; <LVAR 0x008 4(r)> 00022cc8 ; -------------------------------------------------------------------------------------- 00022cc8 4e 56 ff f4 |NV | LINK.W A6,#0xfff4 00022ccc bf d5 | | CMPA.L (A5),A7 00022cce 62 06 |b | BHI 0x22cd6 00022cd0 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022cd4 4e 76 |Nv | TRAPV 00022cd6 de fc 00 0c | | ADDA.W #0xc,A7 00022cda 59 4f |YO | SUBQ.L #0x4,A7 00022cdc 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022ce0 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00022ce6 58 4f |XO | ADDQ.L #0x4,A7 00022ce8 4e ba ff 22 |N " | JSR 0x22c0c 00022cec 58 4f |XO | ADDQ.L #0x4,A7 00022cee 4e 5e |N^ | UNLK A6 00022cf0 4e 75 |Nu | RTS 00022cf2 ; -------------------------------------------------------------------------------------- 00022cf2 ; OMSI PASCAL Function 00022cf2 ; <LVAR 0x008 4(r)> 00022cf2 ; <LVAR -0x004 @ 4(r)> 00022cf2 ; <LVAR -0x008 4(rw)> 00022cf2 ; -------------------------------------------------------------------------------------- 00022cf2 4e 56 ff ca |NV | LINK.W A6,#0xffca 00022cf6 bf d5 | | CMPA.L (A5),A7 00022cf8 62 06 |b | BHI 0x22d00 00022cfa 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022cfe 4e 76 |Nv | TRAPV 00022d00 de fc 00 2a | * | ADDA.W #0x2a,A7 00022d04 48 e7 81 e0 |H | MOVEM.L A2+A1+A0+D7+D0,-(A7) 00022d08 43 ee ff fc |C | LEA.L (A6-0x4),A1 00022d0c 45 ee ff f8 |E | LEA.L (A6-0x8),A2 00022d10 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00022d14 24 a8 00 08 |$ | MOVE.L (A0+0x8),(A2) 00022d18 48 51 |HQ | PEA.L (A1) 00022d1a 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00022d20 58 4f |XO | ADDQ.L #0x4,A7 00022d22 20 52 | R | MOVEA.L (A2),A0 00022d24 b0 fc 00 01 | | CMPA.W #0x1,A0 00022d28 67 00 00 86 |g | BEQ 0x22db0 00022d2c 4a 90 |J | TST.L (A0) 00022d2e 67 68 |gh | BEQ 0x22d98 00022d30 2f 28 00 04 |/( | MOVE.L (A0+0x4),-(A7) 00022d34 2e 10 |. | MOVE.L (A0),D7 00022d36 be 97 | | CMP.L (A7),D7 00022d38 6e 14 |n | BGT 0x22d4e 00022d3a 20 17 | | MOVE.L (A7),D0 00022d3c 0c 87 80 00 00 01 | | CMPI.L #0x80000001,D7 00022d42 6d 08 |m | BLT 0x22d4c 00022d44 0c 80 7f ff ff ff | | CMPI.L #0x7fffffff,D0 00022d4a 6f 02 |o | BLE 0x22d4e 00022d4c 4e 4f |NO | TRAP #15 00022d4e be 97 | | CMP.L (A7),D7 00022d50 6e 44 |nD | BGT 0x22d96 00022d52 2f 11 |/ | MOVE.L (A1),-(A7) 00022d54 20 07 | | MOVE.L D7,D0 00022d56 53 80 |S | SUBQ.L #0x1,D0 00022d58 0c 80 00 00 1f ff | | CMPI.L #0x00001fff,D0 00022d5e 63 02 |c | BLS 0x22d62 00022d60 4e 4f |NO | TRAP #15 00022d62 41 f9 00 02 59 52 |A YR | LEA.L 0x25952,A0 00022d68 1f 30 08 08 | 0 | MOVE.B (A0+D0.L+#0x8),-(A7) 00022d6c 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00022d72 5c 4f |\O | ADDQ.L #0x6,A7 00022d74 20 51 | Q | MOVEA.L (A1),A0 00022d76 30 10 |0 | MOVE.W (A0),D0 00022d78 0c 40 00 7a | @ z | CMPI.W #0x007a,D0 00022d7c 6d 14 |m | BLT 0x22d92 00022d7e 2f 11 |/ | MOVE.L (A1),-(A7) 00022d80 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String) 00022d86 58 4f |XO | ADDQ.L #0x4,A7 00022d88 48 51 |HQ | PEA.L (A1) 00022d8a 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00022d90 58 4f |XO | ADDQ.L #0x4,A7 00022d92 52 87 |R | ADDQ.L #0x1,D7 00022d94 68 b8 |h | BVC 0x22d4e 00022d96 58 4f |XO | ADDQ.L #0x4,A7 00022d98 2f 11 |/ | MOVE.L (A1),-(A7) 00022d9a 1f 3c 00 20 | < | MOVE.B #0x20,-(A7) 00022d9e 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00022da4 5c 4f |\O | ADDQ.L #0x6,A7 00022da6 20 52 | R | MOVEA.L (A2),A0 00022da8 24 a8 00 08 |$ | MOVE.L (A0+0x8),(A2) 00022dac 60 00 ff 74 |` t | BRA 0x22d22 00022db0 2f 11 |/ | MOVE.L (A1),-(A7) 00022db2 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00022db8 58 4f |XO | ADDQ.L #0x4,A7 00022dba 4c df 07 81 |L | MOVEM.L (A7)+,D0+D7+A0+A1+A2 00022dbe 4e 5e |N^ | UNLK A6 00022dc0 4e 75 |Nu | RTS 00022dc2 ; -------------------------------------------------------------------------------------- 00022dc2 ; OMSI PASCAL Function 00022dc2 ; <LVAR 0x008 @ 4(r)> 00022dc2 ; <LVAR -0x003 @ 1(r)> 00022dc2 ; <LVAR -0x004 @ 1(r)> 00022dc2 ; <LVAR -0x008 @ 4(r)> 00022dc2 ; <LVAR -0x00c @ 4(rw)> 00022dc2 ; -------------------------------------------------------------------------------------- 00022dc2 4e 56 ff ae |NV | LINK.W A6,#0xffae 00022dc6 bf d5 | | CMPA.L (A5),A7 00022dc8 62 06 |b | BHI 0x22dd0 00022dca 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022dce 4e 76 |Nv | TRAPV 00022dd0 de fc 00 46 | F | ADDA.W #0x46,A7 00022dd4 48 e7 c0 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D1+D0,-(A7) 00022dd8 43 ee 00 08 |C | LEA.L (A6+0x8),A1 00022ddc 45 ee ff f4 |E | LEA.L (A6-0xc),A2 00022de0 47 ee ff fc |G | LEA.L (A6-0x4),A3 00022de4 49 ee ff f8 |I | LEA.L (A6-0x8),A4 00022de8 72 01 |r | MOVEQ.L #0x01,D1 00022dea 2f 3a ec 36 |/: 6 | MOVE.L 0x21a22,-(A7) 00022dee 51 4f |QO | SUBQ.L #0x8,A7 00022df0 2f 11 |/ | MOVE.L (A1),-(A7) 00022df2 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 00022df8 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00022dfc 3f 01 |? | MOVE.W D1,-(A7) 00022dfe 3f 3c 00 04 |?< | MOVE.W #0x4,-(A7) 00022e02 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00022e08 50 4f |PO | ADDQ.L #0x8,A7 00022e0a 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00022e10 50 4f |PO | ADDQ.L #0x8,A7 00022e12 24 9f |$ | MOVE.L (A7)+,(A2) 00022e14 2e 92 |. | MOVE.L (A2),(A7) 00022e16 42 27 |B' | CLR.B -(A7) 00022e18 42 27 |B' | CLR.B -(A7) 00022e1a 48 78 00 00 |Hx | PEA.L 0x0 00022e1e 48 53 |HS | PEA.L (A3) 00022e20 48 54 |HT | PEA.L (A4) 00022e22 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File) 00022e28 de fc 00 14 | | ADDA.W #0x14,A7 00022e2c 4a 13 |J | TST.B (A3) 00022e2e 67 36 |g6 | BEQ 0x22e66 00022e30 41 fa eb f0 |A | LEA.L 0x21a22,A0 00022e34 70 0a |p | MOVEQ.L #0x0a,D0 00022e36 3f 20 |? | MOVE.W -(A0),-(A7) 00022e38 51 c8 ff fc |Q | DBF D0,0x22e36 00022e3c 51 4f |QO | SUBQ.L #0x8,A7 00022e3e 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00022e42 3f 01 |? | MOVE.W D1,-(A7) 00022e44 3f 3c 00 16 |?< | MOVE.W #0x16,-(A7) 00022e48 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00022e4e 58 4f |XO | ADDQ.L #0x4,A7 00022e50 2e 91 |. | MOVE.L (A1),(A7) 00022e52 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00022e58 50 4f |PO | ADDQ.L #0x8,A7 00022e5a 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00022e60 de fc 00 1a | | ADDA.W #0x1a,A7 00022e64 60 54 |`T | BRA 0x22eba 00022e66 2f 14 |/ | MOVE.L (A4),-(A7) 00022e68 48 51 |HQ | PEA.L (A1) 00022e6a 48 6e ff fd |Hn | PEA.L (A6-0x3) 00022e6e 4e b9 00 01 04 3c |N < | JSR FileReadLine(file : File; VAR a : String; VAR b : Byte) 00022e74 de fc 00 0c | | ADDA.W #0xc,A7 00022e78 4a 2e ff fd |J. | TST.B (A6-0x3) 00022e7c 66 14 |f | BNE 0x22e92 00022e7e 59 4f |YO | SUBQ.L #0x4,A7 00022e80 2f 11 |/ | MOVE.L (A1),-(A7) 00022e82 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 00022e88 58 4f |XO | ADDQ.L #0x4,A7 00022e8a 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00022e90 58 4f |XO | ADDQ.L #0x4,A7 00022e92 4a 2e ff fd |J. | TST.B (A6-0x3) 00022e96 67 ce |g | BEQ 0x22e66 00022e98 42 27 |B' | CLR.B -(A7) 00022e9a 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 00022e9e 48 78 00 01 |Hx | PEA.L 0x1 00022ea2 48 53 |HS | PEA.L (A3) 00022ea4 48 54 |HT | PEA.L (A4) 00022ea6 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File) 00022eac de fc 00 10 | | ADDA.W #0x10,A7 00022eb0 48 51 |HQ | PEA.L (A1) 00022eb2 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00022eb8 58 4f |XO | ADDQ.L #0x4,A7 00022eba 48 52 |HR | PEA.L (A2) 00022ebc 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00022ec2 58 4f |XO | ADDQ.L #0x4,A7 00022ec4 4c df 1f 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2+A3+A4 00022ec8 4e 5e |N^ | UNLK A6 00022eca 4e 75 |Nu | RTS 00022ecc ; -------------------------------------------------------------------------------------- 00022ecc ; OMSI PASCAL Function 00022ecc ; <LVAR 0x008 4(r)> 00022ecc ; -------------------------------------------------------------------------------------- 00022ecc 4e 56 ff c6 |NV | LINK.W A6,#0xffc6 00022ed0 bf d5 | | CMPA.L (A5),A7 00022ed2 62 06 |b | BHI 0x22eda 00022ed4 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022ed8 4e 76 |Nv | TRAPV 00022eda de fc 00 2e | . | ADDA.W #0x2e,A7 00022ede 48 e7 83 88 |H | MOVEM.L A4+A0+D7+D6+D0,-(A7) 00022ee2 59 4f |YO | SUBQ.L #0x4,A7 00022ee4 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022ee8 4e ba f3 64 |N d | JSR 0x2224e 00022eec 58 4f |XO | ADDQ.L #0x4,A7 00022eee 2c 1f |, | MOVE.L (A7)+,D6 00022ef0 66 2e |f. | BNE 0x22f20 00022ef2 41 f9 00 02 79 6c |A yl | LEA.L 0x2796c,A0 00022ef8 70 04 |p | MOVEQ.L #0x04,D0 00022efa 3f 20 |? | MOVE.W -(A0),-(A7) 00022efc 51 c8 ff fc |Q | DBF D0,0x22efa 00022f00 59 4f |YO | SUBQ.L #0x4,A7 00022f02 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022f06 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00022f0a 3f 3c 00 0a |?< | MOVE.W #0xa,-(A7) 00022f0e 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00022f14 50 4f |PO | ADDQ.L #0x8,A7 00022f16 4e ba fe aa |N | JSR 0x22dc2 00022f1a de fc 00 0e | | ADDA.W #0xe,A7 00022f1e 60 26 |`& | BRA 0x22f46 00022f20 2f 06 |/ | MOVE.L D6,-(A7) 00022f22 7e 01 |~ | MOVEQ.L #0x01,D7 00022f24 be 97 | | CMP.L (A7),D7 00022f26 6e 1c |n | BGT 0x22f44 00022f28 59 4f |YO | SUBQ.L #0x4,A7 00022f2a 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022f2e 2f 07 |/ | MOVE.L D7,-(A7) 00022f30 4e ba fc 38 |N 8 | JSR 0x22b6a 00022f34 50 4f |PO | ADDQ.L #0x8,A7 00022f36 28 5f |(_ | MOVEA.L (A7)+,A4 00022f38 2f 0c |/ | MOVE.L A4,-(A7) 00022f3a 4e ba fe 86 |N | JSR 0x22dc2 00022f3e 58 4f |XO | ADDQ.L #0x4,A7 00022f40 52 87 |R | ADDQ.L #0x1,D7 00022f42 68 e0 |h | BVC 0x22f24 00022f44 58 4f |XO | ADDQ.L #0x4,A7 00022f46 4c df 11 c1 |L | MOVEM.L (A7)+,D0+D6+D7+A0+A4 00022f4a 4e 5e |N^ | UNLK A6 00022f4c 4e 75 |Nu | RTS 00022f4e ; -------------------------------------------------------------------------------------- 00022f4e ; OMSI PASCAL Function 00022f4e ; <LVAR 0x00c @> 00022f4e ; <LVAR 0x008 @ 4(r)> 00022f4e ; <LVAR -0x020 @> 00022f4e ; -------------------------------------------------------------------------------------- 00022f4e 4e 56 ff b8 |NV | LINK.W A6,#0xffb8 00022f52 bf d5 | | CMPA.L (A5),A7 00022f54 62 06 |b | BHI 0x22f5c 00022f56 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022f5a 4e 76 |Nv | TRAPV 00022f5c de fc 00 24 | $ | ADDA.W #0x24,A7 00022f60 48 e7 e1 c0 |H | MOVEM.L A1+A0+D7+D2+D1+D0,-(A7) 00022f64 74 1d |t | MOVEQ.L #0x1d,D2 00022f66 7e 01 |~ | MOVEQ.L #0x01,D7 00022f68 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00022f6c 30 10 |0 | MOVE.W (A0),D0 00022f6e 48 c0 |H | EXTW.L D0 00022f70 be 80 | | CMP.L D0,D7 00022f72 6f 10 |o | BLE 0x22f84 00022f74 20 07 | | MOVE.L D7,D0 00022f76 53 80 |S | SUBQ.L #0x1,D0 00022f78 b0 82 | | CMP.L D2,D0 00022f7a 63 02 |c | BLS 0x22f7e 00022f7c 4e 4f |NO | TRAP #15 00022f7e 42 36 08 e0 |B6 | CLR.B (A6+D0.L-#0x20) 00022f82 60 1e |` | BRA 0x22fa2 00022f84 20 07 | | MOVE.L D7,D0 00022f86 53 80 |S | SUBQ.L #0x1,D0 00022f88 b0 82 | | CMP.L D2,D0 00022f8a 63 02 |c | BLS 0x22f8e 00022f8c 4e 4f |NO | TRAP #15 00022f8e 22 07 |" | MOVE.L D7,D1 00022f90 53 81 |S | SUBQ.L #0x1,D1 00022f92 0c 81 00 00 00 7d | } | CMPI.L #0x0000007d,D1 00022f98 63 02 |c | BLS 0x22f9c 00022f9a 4e 4f |NO | TRAP #15 00022f9c 1d b0 18 02 08 e0 | | MOVE.B (A0+D1.L+#0x2),(A6+D0.L-#0x20) 00022fa2 52 87 |R | ADDQ.L #0x1,D7 00022fa4 0c 87 00 00 00 1e | | CMPI.L #0x0000001e,D7 00022faa 6f bc |o | BLE 0x22f68 00022fac 48 6e 00 08 |Hn | PEA.L (A6+0x8) 00022fb0 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00022fb6 58 4f |XO | ADDQ.L #0x4,A7 00022fb8 41 ee 00 0c |A | LEA.L (A6+0xc),A0 00022fbc 43 ee ff e0 |C | LEA.L (A6-0x20),A1 00022fc0 70 0e |p | MOVEQ.L #0x0e,D0 00022fc2 30 d9 |0 | MOVE.W (A1)+,(A0)+ 00022fc4 51 c8 ff fc |Q | DBF D0,0x22fc2 00022fc8 4c df 03 87 |L | MOVEM.L (A7)+,D0+D1+D2+D7+A0+A1 00022fcc 4e 5e |N^ | UNLK A6 00022fce 4e 75 |Nu | RTS 00022fd0 ; -------------------------------------------------------------------------------------- 00022fd0 ; OMSI PASCAL Function 00022fd0 ; <LVAR 0x026 4(w)> 00022fd0 ; <LVAR 0x008 @> 00022fd0 ; <LVAR -0x006 4(rw)> 00022fd0 ; -------------------------------------------------------------------------------------- 00022fd0 4e 56 ff d6 |NV | LINK.W A6,#0xffd6 00022fd4 bf d5 | | CMPA.L (A5),A7 00022fd6 62 06 |b | BHI 0x22fde 00022fd8 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022fdc 4e 76 |Nv | TRAPV 00022fde de fc 00 24 | $ | ADDA.W #0x24,A7 00022fe2 48 e7 c1 f0 |H | MOVEM.L A3+A2+A1+A0+D7+D1+D0,-(A7) 00022fe6 47 ee ff fa |G | LEA.L (A6-0x6),A3 00022fea 7e 00 |~ | MOVEQ.L #0x00,D7 00022fec 26 b9 00 02 79 84 |& y | MOVE.L 0x27984,(A3) 00022ff2 20 53 | S | MOVEA.L (A3),A0 00022ff4 b0 fc 00 01 | | CMPA.W #0x1,A0 00022ff8 67 1e |g | BEQ 0x23018 00022ffa 4a 07 |J | TST.B D7 00022ffc 66 1a |f | BNE 0x23018 00022ffe 22 48 |"H | MOVEA.L A0,A1 00023000 45 ee 00 08 |E | LEA.L (A6+0x8),A2 00023004 70 1d |p | MOVEQ.L #0x1d,D0 00023006 b5 09 | | CMPM.B (A1)+,(A2)+ 00023008 56 c8 ff fc |V | DBNE D0,0x23006 0002300c 66 04 |f | BNE 0x23012 0002300e 7e 01 |~ | MOVEQ.L #0x01,D7 00023010 60 04 |` | BRA 0x23016 00023012 26 a8 00 26 |& & | MOVE.L (A0+0x26),(A3) 00023016 60 da |` | BRA 0x22ff2 00023018 2d 48 00 26 |-H & | MOVE.L A0,(A6+0x26) 0002301c 4c df 0f 83 |L | MOVEM.L (A7)+,D0+D1+D7+A0+A1+A2+A3 00023020 4e 5e |N^ | UNLK A6 00023022 4e 75 |Nu | RTS 00023024 ; -------------------------------------------------------------------------------------- 00023024 ; OMSI PASCAL Function 00023024 ; <LVAR 0x008 @ 4(r)> 00023024 ; -------------------------------------------------------------------------------------- 00023024 4e 56 ff c8 |NV | LINK.W A6,#0xffc8 00023028 bf d5 | | CMPA.L (A5),A7 0002302a 62 06 |b | BHI 0x23032 0002302c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023030 4e 76 |Nv | TRAPV 00023032 de fc 00 2c | , | ADDA.W #0x2c,A7 00023036 48 e7 81 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D0,-(A7) 0002303a 43 ee 00 08 |C | LEA.L (A6+0x8),A1 0002303e 45 f9 00 02 79 84 |E y | LEA.L 0x27984,A2 00023044 70 01 |p | MOVEQ.L #0x01,D0 00023046 20 51 | Q | MOVEA.L (A1),A0 00023048 b0 c0 | | CMPA.W D0,A0 0002304a 67 56 |gV | BEQ 0x230a2 0002304c 4a a8 00 1e |J | TST.L (A0+0x1e) 00023050 67 10 |g | BEQ 0x23062 00023052 2f 28 00 22 |/( " | MOVE.L (A0+0x22),-(A7) 00023056 2f 28 00 1e |/( | MOVE.L (A0+0x1e),-(A7) 0002305a 4e b9 00 01 02 a4 |N | JSR Free1(a : Pointer; b : Long) 00023060 50 4f |PO | ADDQ.L #0x8,A7 00023062 7e 00 |~ | MOVEQ.L #0x00,D7 00023064 38 40 |8@ | MOVEA.W D0,A4 00023066 26 52 |&R | MOVEA.L (A2),A3 00023068 b6 c0 | | CMPA.W D0,A3 0002306a 67 14 |g | BEQ 0x23080 0002306c 4a 07 |J | TST.B D7 0002306e 66 10 |f | BNE 0x23080 00023070 b7 d1 | | CMPA.L (A1),A3 00023072 66 04 |f | BNE 0x23078 00023074 7e 01 |~ | MOVEQ.L #0x01,D7 00023076 60 06 |` | BRA 0x2307e 00023078 28 4b |(K | MOVEA.L A3,A4 0002307a 26 6b 00 26 |&k & | MOVEA.L (A3+0x26),A3 0002307e 60 e8 |` | BRA 0x23068 00023080 4a 07 |J | TST.B D7 00023082 67 1e |g | BEQ 0x230a2 00023084 b8 c0 | | CMPA.W D0,A4 00023086 66 06 |f | BNE 0x2308e 00023088 24 ab 00 26 |$ & | MOVE.L (A3+0x26),(A2) 0002308c 60 06 |` | BRA 0x23094 0002308e 29 6b 00 26 00 26 |)k & & | MOVE.L (A3+0x26),(A4+0x26) 00023094 48 51 |HQ | PEA.L (A1) 00023096 48 78 00 2a |Hx * | PEA.L 0x2a 0002309a 4e b9 00 01 02 a8 |N | JSR Free2(a : Pointer; b : Long) 000230a0 50 4f |PO | ADDQ.L #0x8,A7 000230a2 4c df 1f 81 |L | MOVEM.L (A7)+,D0+D7+A0+A1+A2+A3+A4 000230a6 4e 5e |N^ | UNLK A6 000230a8 4e 75 |Nu | RTS 000230aa ; -------------------------------------------------------------------------------------- 000230aa ; OMSI PASCAL Function 000230aa ; <LVAR 0x010 4(w)> 000230aa ; <LVAR 0x00c 4(r)> 000230aa ; <LVAR 0x008 4(r)> 000230aa ; <LVAR -0x006 @ 4(rw)> 000230aa ; <LVAR -0x024 @> 000230aa ; -------------------------------------------------------------------------------------- 000230aa 4e 56 ff 9a |NV | LINK.W A6,#0xff9a 000230ae bf d5 | | CMPA.L (A5),A7 000230b0 62 06 |b | BHI 0x230b8 000230b2 44 fc 00 02 |D | MOVE.W #0x2,CCR 000230b6 4e 76 |Nv | TRAPV 000230b8 de fc 00 42 | B | ADDA.W #0x42,A7 000230bc 48 e7 c0 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D1+D0,-(A7) 000230c0 47 ee ff fa |G | LEA.L (A6-0x6),A3 000230c4 49 ee 00 08 |I | LEA.L (A6+0x8),A4 000230c8 72 1e |r | MOVEQ.L #0x1e,D1 000230ca 9e c1 | | SUBA.W D1,A7 000230cc 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 000230d0 2f 10 |/ | MOVE.L (A0),-(A7) 000230d2 4e ba fe 7a |N z | JSR 0x22f4e 000230d6 58 4f |XO | ADDQ.L #0x4,A7 000230d8 41 ee ff dc |A | LEA.L (A6-0x24),A0 000230dc 70 0e |p | MOVEQ.L #0x0e,D0 000230de 30 df |0 | MOVE.W (A7)+,(A0)+ 000230e0 51 c8 ff fc |Q | DBF D0,0x230de 000230e4 4a 94 |J | TST.L (A4) 000230e6 6c 02 |l | BGE 0x230ea 000230e8 42 94 |B | CLR.L (A4) 000230ea 59 4f |YO | SUBQ.L #0x4,A7 000230ec 20 4b | K | MOVEA.L A3,A0 000230ee 70 0e |p | MOVEQ.L #0x0e,D0 000230f0 3f 20 |? | MOVE.W -(A0),-(A7) 000230f2 51 c8 ff fc |Q | DBF D0,0x230f0 000230f6 4e ba fe d8 |N | JSR 0x22fd0 000230fa de c1 | | ADDA.W D1,A7 000230fc 26 9f |& | MOVE.L (A7)+,(A3) 000230fe 20 53 | S | MOVEA.L (A3),A0 00023100 b0 fc 00 01 | | CMPA.W #0x1,A0 00023104 67 12 |g | BEQ 0x23118 00023106 20 28 00 1e | ( | MOVE.L (A0+0x1e),D0 0002310a b0 94 | | CMP.L (A4),D0 0002310c 66 02 |f | BNE 0x23110 0002310e 60 4c |`L | BRA 0x2315c 00023110 2f 13 |/ | MOVE.L (A3),-(A7) 00023112 4e ba ff 10 |N | JSR 0x23024 00023116 58 4f |XO | ADDQ.L #0x4,A7 00023118 48 53 |HS | PEA.L (A3) 0002311a 48 78 00 2a |Hx * | PEA.L 0x2a 0002311e 4e b9 00 01 02 9c |N | JSR Malloc1(length : Long) : Pointer 00023124 50 4f |PO | ADDQ.L #0x8,A7 00023126 20 53 | S | MOVEA.L (A3),A0 00023128 21 79 00 02 79 84 00 26 |!y y &| MOVE.L 0x27984,(A0+0x26) 00023130 23 d3 00 02 79 84 |# y | MOVE.L (A3),0x27984 00023136 22 48 |"H | MOVEA.L A0,A1 00023138 45 ee ff dc |E | LEA.L (A6-0x24),A2 0002313c 70 1d |p | MOVEQ.L #0x1d,D0 0002313e 12 da | | MOVE.B (A2)+,(A1)+ 00023140 51 c8 ff fc |Q | DBF D0,0x2313e 00023144 21 54 00 1e |!T | MOVE.L (A4),(A0+0x1e) 00023148 4a 94 |J | TST.L (A4) 0002314a 67 10 |g | BEQ 0x2315c 0002314c 59 4f |YO | SUBQ.L #0x4,A7 0002314e 2f 14 |/ | MOVE.L (A4),-(A7) 00023150 4e b9 00 01 02 a0 |N | JSR Malloc2(VAR dst : Pointer; length : Word) 00023156 58 4f |XO | ADDQ.L #0x4,A7 00023158 21 5f 00 22 |!_ " | MOVE.L (A7)+,(A0+0x22) 0002315c 2d 53 00 10 |-S | MOVE.L (A3),(A6+0x10) 00023160 4c df 1f 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2+A3+A4 00023164 4e 5e |N^ | UNLK A6 00023166 4e 75 |Nu | RTS 00023168 ; -------------------------------------------------------------------------------------- 00023168 ; OMSI PASCAL Function 00023168 ; <LVAR 0x00c @> 00023168 ; <LVAR 0x008 @ 4(r)> 00023168 ; <LVAR -0x008 4(rw)> 00023168 ; -------------------------------------------------------------------------------------- 00023168 4e 56 ff c8 |NV | LINK.W A6,#0xffc8 0002316c bf d5 | | CMPA.L (A5),A7 0002316e 62 06 |b | BHI 0x23176 00023170 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023174 4e 76 |Nv | TRAPV 00023176 de fc 00 2c | , | ADDA.W #0x2c,A7 0002317a 48 e7 c3 e0 |H | MOVEM.L A2+A1+A0+D7+D6+D1+D0,-(A7) 0002317e 45 ee 00 08 |E | LEA.L (A6+0x8),A2 00023182 20 52 | R | MOVEA.L (A2),A0 00023184 30 10 |0 | MOVE.W (A0),D0 00023186 48 c0 |H | EXTW.L D0 00023188 2c 00 |, | MOVE.L D0,D6 0002318a 59 4f |YO | SUBQ.L #0x4,A7 0002318c 48 6e 00 0c |Hn | PEA.L (A6+0xc) 00023190 2f 06 |/ | MOVE.L D6,-(A7) 00023192 4e ba ff 16 |N | JSR 0x230aa 00023196 50 4f |PO | ADDQ.L #0x8,A7 00023198 2d 5f ff f8 |-_ | MOVE.L (A7)+,(A6-0x8) 0002319c 4a 86 |J | TST.L D6 0002319e 67 40 |g@ | BEQ 0x231e0 000231a0 20 6e ff f8 | n | MOVEA.L (A6-0x8),A0 000231a4 20 68 00 22 | h " | MOVEA.L (A0+0x22),A0 000231a8 2f 08 |/ | MOVE.L A0,-(A7) 000231aa 2f 06 |/ | MOVE.L D6,-(A7) 000231ac 7e 01 |~ | MOVEQ.L #0x01,D7 000231ae be 97 | | CMP.L (A7),D7 000231b0 6e 2c |n, | BGT 0x231de 000231b2 20 07 | | MOVE.L D7,D0 000231b4 53 80 |S | SUBQ.L #0x1,D0 000231b6 0c 80 00 00 03 ff | | CMPI.L #0x000003ff,D0 000231bc 63 02 |c | BLS 0x231c0 000231be 4e 4f |NO | TRAP #15 000231c0 20 6f 00 04 | o | MOVEA.L (A7+0x4),A0 000231c4 22 52 |"R | MOVEA.L (A2),A1 000231c6 22 07 |" | MOVE.L D7,D1 000231c8 53 81 |S | SUBQ.L #0x1,D1 000231ca 0c 81 00 00 00 7d | } | CMPI.L #0x0000007d,D1 000231d0 63 02 |c | BLS 0x231d4 000231d2 4e 4f |NO | TRAP #15 000231d4 11 b1 18 02 08 00 | | MOVE.B (A1+D1.L+#0x2),(A0+D0.L) 000231da 52 87 |R | ADDQ.L #0x1,D7 000231dc 68 d0 |h | BVC 0x231ae 000231de 50 4f |PO | ADDQ.L #0x8,A7 000231e0 48 52 |HR | PEA.L (A2) 000231e2 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000231e8 58 4f |XO | ADDQ.L #0x4,A7 000231ea 4c df 07 c3 |L | MOVEM.L (A7)+,D0+D1+D6+D7+A0+A1+A2 000231ee 4e 5e |N^ | UNLK A6 000231f0 4e 75 |Nu | RTS 000231f2 ; -------------------------------------------------------------------------------------- 000231f2 ; OMSI PASCAL Function 000231f2 ; <LVAR 0x008 4(r)> 000231f2 ; <LVAR -0x004 @ 4(w)> 000231f2 ; <LVAR -0x008 4(rw)> 000231f2 ; <LVAR -0x00c 4(rw)> 000231f2 ; <LVAR -0x010 4(rw)> 000231f2 ; <LVAR -0x01c 4(rw)> 000231f2 ; <LVAR -0x020 4(rw)> 000231f2 ; -------------------------------------------------------------------------------------- 000231f2 4e 56 ff 82 |NV | LINK.W A6,#0xff82 000231f6 bf d5 | | CMPA.L (A5),A7 000231f8 62 06 |b | BHI 0x23200 000231fa 44 fc 00 02 |D | MOVE.W #0x2,CCR 000231fe 4e 76 |Nv | TRAPV 00023200 de fc 00 5a | Z | ADDA.W #0x5a,A7 00023204 48 e7 e7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7) 00023208 45 ee ff f4 |E | LEA.L (A6-0xc),A2 0002320c 47 ee ff f0 |G | LEA.L (A6-0x10),A3 00023210 49 ee 00 08 |I | LEA.L (A6+0x8),A4 00023214 74 01 |t | MOVEQ.L #0x01,D2 00023216 59 4f |YO | SUBQ.L #0x4,A7 00023218 2f 14 |/ | MOVE.L (A4),-(A7) 0002321a 4e ba f0 32 |N 2 | JSR 0x2224e 0002321e 58 4f |XO | ADDQ.L #0x4,A7 00023220 26 9f |& | MOVE.L (A7)+,(A3) 00023222 20 13 | | MOVE.L (A3),D0 00023224 b0 82 | | CMP.L D2,D0 00023226 6c 2e |l. | BGE 0x23256 00023228 9e fc 00 1a | | SUBA.W #0x1a,A7 0002322c 20 4f | O | MOVEA.L A7,A0 0002322e 43 fa e7 f6 |C | LEA.L 0x21a26,A1 00023232 72 18 |r | MOVEQ.L #0x18,D1 00023234 10 d9 | | MOVE.B (A1)+,(A0)+ 00023236 51 c9 ff fc |Q | DBF D1,0x23234 0002323a 59 4f |YO | SUBQ.L #0x4,A7 0002323c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023240 3f 02 |? | MOVE.W D2,-(A7) 00023242 3f 3c 00 19 |?< | MOVE.W #0x19,-(A7) 00023246 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002324c 50 4f |PO | ADDQ.L #0x8,A7 0002324e 4e ba eb f2 |N | JSR 0x21e42 00023252 de fc 00 1e | | ADDA.W #0x1e,A7 00023256 42 92 |B | CLR.L (A2) 00023258 2f 00 |/ | MOVE.L D0,-(A7) 0002325a 7c 02 || | MOVEQ.L #0x02,D6 0002325c bc 97 | | CMP.L (A7),D6 0002325e 6e 1e |n | BGT 0x2327e 00023260 9e fc 00 0c | | SUBA.W #0xc,A7 00023264 2f 14 |/ | MOVE.L (A4),-(A7) 00023266 2f 06 |/ | MOVE.L D6,-(A7) 00023268 4e ba f8 22 |N " | JSR 0x22a8c 0002326c 50 4f |PO | ADDQ.L #0x8,A7 0002326e 4e ba f7 e4 |N | JSR 0x22a54 00023272 50 4f |PO | ADDQ.L #0x8,A7 00023274 20 12 | | MOVE.L (A2),D0 00023276 d0 9f | | ADD.L (A7)+,D0 00023278 24 80 |$ | MOVE.L D0,(A2) 0002327a 52 86 |R | ADDQ.L #0x1,D6 0002327c 68 de |h | BVC 0x2325c 0002327e 58 4f |XO | ADDQ.L #0x4,A7 00023280 20 13 | | MOVE.L (A3),D0 00023282 55 80 |U | SUBQ.L #0x2,D0 00023284 d1 92 | | ADD.L D0,(A2) 00023286 59 4f |YO | SUBQ.L #0x4,A7 00023288 2f 14 |/ | MOVE.L (A4),-(A7) 0002328a 48 78 00 01 |Hx | PEA.L 0x1 0002328e 4e ba f8 da |N | JSR 0x22b6a 00023292 50 4f |PO | ADDQ.L #0x8,A7 00023294 2d 57 ff fc |-W | MOVE.L (A7),(A6-0x4) 00023298 48 6e ff fc |Hn | PEA.L (A6-0x4) 0002329c 2f 12 |/ | MOVE.L (A2),-(A7) 0002329e 4e ba fe 0a |N | JSR 0x230aa 000232a2 50 4f |PO | ADDQ.L #0x8,A7 000232a4 2d 5f ff f8 |-_ | MOVE.L (A7)+,(A6-0x8) 000232a8 4a 92 |J | TST.L (A2) 000232aa 6f 00 00 aa |o | BLE 0x23356 000232ae 20 6e ff f8 | n | MOVEA.L (A6-0x8),A0 000232b2 20 68 00 22 | h " | MOVEA.L (A0+0x22),A0 000232b6 2f 08 |/ | MOVE.L A0,-(A7) 000232b8 7e 01 |~ | MOVEQ.L #0x01,D7 000232ba 2f 13 |/ | MOVE.L (A3),-(A7) 000232bc 7c 02 || | MOVEQ.L #0x02,D6 000232be bc 97 | | CMP.L (A7),D6 000232c0 6e 00 00 92 |n | BGT 0x23354 000232c4 51 4f |QO | SUBQ.L #0x8,A7 000232c6 2f 14 |/ | MOVE.L (A4),-(A7) 000232c8 2f 06 |/ | MOVE.L D6,-(A7) 000232ca 4e ba f7 c0 |N | JSR 0x22a8c 000232ce 50 4f |PO | ADDQ.L #0x8,A7 000232d0 2d 5f ff e0 |-_ | MOVE.L (A7)+,(A6-0x20) 000232d4 2d 5f ff e4 |-_ | MOVE.L (A7)+,(A6-0x1c) 000232d8 2f 2e ff e4 |/. | MOVE.L (A6-0x1c),-(A7) 000232dc 2a 2e ff e0 |*. | MOVE.L (A6-0x20),D5 000232e0 ba 97 | | CMP.L (A7),D5 000232e2 6e 14 |n | BGT 0x232f8 000232e4 20 17 | | MOVE.L (A7),D0 000232e6 0c 85 80 00 00 01 | | CMPI.L #0x80000001,D5 000232ec 6d 08 |m | BLT 0x232f6 000232ee 0c 80 7f ff ff ff | | CMPI.L #0x7fffffff,D0 000232f4 6f 02 |o | BLE 0x232f8 000232f6 4e 4f |NO | TRAP #15 000232f8 ba 97 | | CMP.L (A7),D5 000232fa 6e 32 |n2 | BGT 0x2332e 000232fc 20 07 | | MOVE.L D7,D0 000232fe 53 80 |S | SUBQ.L #0x1,D0 00023300 0c 80 00 00 03 ff | | CMPI.L #0x000003ff,D0 00023306 63 02 |c | BLS 0x2330a 00023308 4e 4f |NO | TRAP #15 0002330a 20 6f 00 08 | o | MOVEA.L (A7+0x8),A0 0002330e 22 05 |" | MOVE.L D5,D1 00023310 53 81 |S | SUBQ.L #0x1,D1 00023312 0c 81 00 00 1f ff | | CMPI.L #0x00001fff,D1 00023318 63 02 |c | BLS 0x2331c 0002331a 4e 4f |NO | TRAP #15 0002331c 43 f9 00 02 59 52 |C YR | LEA.L 0x25952,A1 00023322 11 b1 18 08 08 00 | | MOVE.B (A1+D1.L+#0x8),(A0+D0.L) 00023328 52 87 |R | ADDQ.L #0x1,D7 0002332a 52 85 |R | ADDQ.L #0x1,D5 0002332c 68 ca |h | BVC 0x232f8 0002332e 58 4f |XO | ADDQ.L #0x4,A7 00023330 bc 93 | | CMP.L (A3),D6 00023332 67 1a |g | BEQ 0x2334e 00023334 20 07 | | MOVE.L D7,D0 00023336 53 80 |S | SUBQ.L #0x1,D0 00023338 0c 80 00 00 03 ff | | CMPI.L #0x000003ff,D0 0002333e 63 02 |c | BLS 0x23342 00023340 4e 4f |NO | TRAP #15 00023342 20 6f 00 04 | o | MOVEA.L (A7+0x4),A0 00023346 11 bc 00 2c 08 00 | , | MOVE.B #0x2c,(A0+D0.L) 0002334c 52 87 |R | ADDQ.L #0x1,D7 0002334e 52 86 |R | ADDQ.L #0x1,D6 00023350 68 00 ff 6c |h l | BVC 0x232be 00023354 50 4f |PO | ADDQ.L #0x8,A7 00023356 4c df 1f e7 |L | MOVEM.L (A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3+A4 0002335a 4e 5e |N^ | UNLK A6 0002335c 4e 75 |Nu | RTS 0002335e ; -------------------------------------------------------------------------------------- 0002335e ; OMSI PASCAL Function 0002335e ; <LVAR 0x008 4(r)> 0002335e ; <LVAR -0x00c 4(rw)> 0002335e ; -------------------------------------------------------------------------------------- 0002335e 4e 56 ff a0 |NV | LINK.W A6,#0xffa0 00023362 bf d5 | | CMPA.L (A5),A7 00023364 62 06 |b | BHI 0x2336c 00023366 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002336a 4e 76 |Nv | TRAPV 0002336c de fc 00 54 | T | ADDA.W #0x54,A7 00023370 48 e7 e1 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D2+D1+D0,-(A7) 00023374 47 f9 00 02 79 5a |G yZ | LEA.L 0x2795a,A3 0002337a 74 01 |t | MOVEQ.L #0x01,D2 0002337c 59 4f |YO | SUBQ.L #0x4,A7 0002337e 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023382 48 78 00 01 |Hx | PEA.L 0x1 00023386 4e ba f7 e2 |N | JSR 0x22b6a 0002338a 50 4f |PO | ADDQ.L #0x8,A7 0002338c 28 5f |(_ | MOVEA.L (A7)+,A4 0002338e 9e fc 00 22 | " | SUBA.W #0x22,A7 00023392 2f 0c |/ | MOVE.L A4,-(A7) 00023394 4e ba fb b8 |N | JSR 0x22f4e 00023398 58 4f |XO | ADDQ.L #0x4,A7 0002339a 4e ba fc 34 |N 4 | JSR 0x22fd0 0002339e de fc 00 1e | | ADDA.W #0x1e,A7 000233a2 2d 5f ff f4 |-_ | MOVE.L (A7)+,(A6-0xc) 000233a6 20 6e ff f4 | n | MOVEA.L (A6-0xc),A0 000233aa b0 c2 | | CMPA.W D2,A0 000233ac 66 42 |fB | BNE 0x233f0 000233ae 9e fc 00 14 | | SUBA.W #0x14,A7 000233b2 22 4f |"O | MOVEA.L A7,A1 000233b4 45 fa e6 8a |E | LEA.L 0x21a40,A2 000233b8 70 12 |p | MOVEQ.L #0x12,D0 000233ba 12 da | | MOVE.B (A2)+,(A1)+ 000233bc 51 c8 ff fc |Q | DBF D0,0x233ba 000233c0 51 4f |QO | SUBQ.L #0x8,A7 000233c2 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000233c6 3f 02 |? | MOVE.W D2,-(A7) 000233c8 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7) 000233cc 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000233d2 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7) 000233d6 48 78 00 01 |Hx | PEA.L 0x1 000233da 4e ba f7 8e |N | JSR 0x22b6a 000233de 50 4f |PO | ADDQ.L #0x8,A7 000233e0 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000233e6 50 4f |PO | ADDQ.L #0x8,A7 000233e8 4e ba ea 58 |N X | JSR 0x21e42 000233ec de fc 00 18 | | ADDA.W #0x18,A7 000233f0 2f 08 |/ | MOVE.L A0,-(A7) 000233f2 2f 13 |/ | MOVE.L (A3),-(A7) 000233f4 2f 28 00 1e |/( | MOVE.L (A0+0x1e),-(A7) 000233f8 44 97 |D | NEG.L (A7) 000233fa 4e ba ef 9a |N | JSR 0x22396 000233fe 58 4f |XO | ADDQ.L #0x4,A7 00023400 2e a8 00 1e |. | MOVE.L (A0+0x1e),(A7) 00023404 7e 01 |~ | MOVEQ.L #0x01,D7 00023406 be 97 | | CMP.L (A7),D7 00023408 6e 38 |n8 | BGT 0x23442 0002340a 20 07 | | MOVE.L D7,D0 0002340c d0 93 | | ADD.L (A3),D0 0002340e 53 80 |S | SUBQ.L #0x1,D0 00023410 53 80 |S | SUBQ.L #0x1,D0 00023412 0c 80 00 00 1f ff | | CMPI.L #0x00001fff,D0 00023418 63 02 |c | BLS 0x2341c 0002341a 4e 4f |NO | TRAP #15 0002341c 41 f9 00 02 59 52 |A YR | LEA.L 0x25952,A0 00023422 22 6f 00 04 |"o | MOVEA.L (A7+0x4),A1 00023426 22 69 00 22 |"i " | MOVEA.L (A1+0x22),A1 0002342a 22 07 |" | MOVE.L D7,D1 0002342c 53 81 |S | SUBQ.L #0x1,D1 0002342e 0c 81 00 00 03 ff | | CMPI.L #0x000003ff,D1 00023434 63 02 |c | BLS 0x23438 00023436 4e 4f |NO | TRAP #15 00023438 11 b1 18 00 08 08 | | MOVE.B (A1+D1.L),(A0+D0.L+#0x8) 0002343e 52 87 |R | ADDQ.L #0x1,D7 00023440 68 c4 |h | BVC 0x23406 00023442 50 4f |PO | ADDQ.L #0x8,A7 00023444 4c df 1f 87 |L | MOVEM.L (A7)+,D0+D1+D2+D7+A0+A1+A2+A3+A4 00023448 4e 5e |N^ | UNLK A6 0002344a 4e 75 |Nu | RTS 0002344c ; -------------------------------------------------------------------------------------- 0002344c ; OMSI PASCAL Function 0002344c ; <LVAR -0x004 4(rw)> 0002344c ; -------------------------------------------------------------------------------------- 0002344c 4e 56 ff ae |NV | LINK.W A6,#0xffae 00023450 bf d5 | | CMPA.L (A5),A7 00023452 62 06 |b | BHI 0x2345a 00023454 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023458 4e 76 |Nv | TRAPV 0002345a de fc 00 4e | N | ADDA.W #0x4e,A7 0002345e 48 e7 e0 f0 |H | MOVEM.L A3+A2+A1+A0+D2+D1+D0,-(A7) 00023462 47 ee ff fc |G | LEA.L (A6-0x4),A3 00023466 72 01 |r | MOVEQ.L #0x01,D1 00023468 74 1e |t | MOVEQ.L #0x1e,D2 0002346a 26 b9 00 02 79 84 |& y | MOVE.L 0x27984,(A3) 00023470 20 53 | S | MOVEA.L (A3),A0 00023472 b0 c1 | | CMPA.W D1,A0 00023474 67 30 |g0 | BEQ 0x234a6 00023476 9e c2 | | SUBA.W D2,A7 00023478 22 4f |"O | MOVEA.L A7,A1 0002347a 24 48 |$H | MOVEA.L A0,A2 0002347c 70 1d |p | MOVEQ.L #0x1d,D0 0002347e 12 da | | MOVE.B (A2)+,(A1)+ 00023480 51 c8 ff fc |Q | DBF D0,0x2347e 00023484 59 4f |YO | SUBQ.L #0x4,A7 00023486 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002348a 3f 01 |? | MOVE.W D1,-(A7) 0002348c 3f 02 |? | MOVE.W D2,-(A7) 0002348e 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00023494 50 4f |PO | ADDQ.L #0x8,A7 00023496 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002349c de fc 00 22 | " | ADDA.W #0x22,A7 000234a0 26 a8 00 26 |& & | MOVE.L (A0+0x26),(A3) 000234a4 60 ca |` | BRA 0x23470 000234a6 4c df 0f 07 |L | MOVEM.L (A7)+,D0+D1+D2+A0+A1+A2+A3 000234aa 4e 5e |N^ | UNLK A6 000234ac 4e 75 |Nu | RTS 000234ae ; -------------------------------------------------------------------------------------- 000234ae ; OMSI PASCAL Function 000234ae ; <LVAR 0x008 4(r)> 000234ae ; -------------------------------------------------------------------------------------- 000234ae 4e 56 ff ce |NV | LINK.W A6,#0xffce 000234b2 bf d5 | | CMPA.L (A5),A7 000234b4 62 06 |b | BHI 0x234bc 000234b6 44 fc 00 02 |D | MOVE.W #0x2,CCR 000234ba 4e 76 |Nv | TRAPV 000234bc de fc 00 32 | 2 | ADDA.W #0x32,A7 000234c0 9e fc 00 26 | & | SUBA.W #0x26,A7 000234c4 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000234c8 48 78 00 01 |Hx | PEA.L 0x1 000234cc 4e ba f6 9c |N | JSR 0x22b6a 000234d0 50 4f |PO | ADDQ.L #0x8,A7 000234d2 4e ba fa 7a |N z | JSR 0x22f4e 000234d6 58 4f |XO | ADDQ.L #0x4,A7 000234d8 4e ba fa f6 |N | JSR 0x22fd0 000234dc de fc 00 1e | | ADDA.W #0x1e,A7 000234e0 4e ba fb 42 |N B | JSR 0x23024 000234e4 58 4f |XO | ADDQ.L #0x4,A7 000234e6 4e 5e |N^ | UNLK A6 000234e8 4e 75 |Nu | RTS 000234ea ; -------------------------------------------------------------------------------------- 000234ea ; OMSI PASCAL Function 000234ea ; -------------------------------------------------------------------------------------- 000234ea 4e 56 ff f4 |NV | LINK.W A6,#0xfff4 000234ee bf d5 | | CMPA.L (A5),A7 000234f0 62 06 |b | BHI 0x234f8 000234f2 44 fc 00 02 |D | MOVE.W #0x2,CCR 000234f6 4e 76 |Nv | TRAPV 000234f8 de fc 00 0c | | ADDA.W #0xc,A7 000234fc 51 4f |QO | SUBQ.L #0x8,A7 000234fe 4e b9 00 01 03 cc |N | JSR GetPushLevel() : Long 00023504 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 0002350a 58 4f |XO | ADDQ.L #0x4,A7 0002350c 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00023512 58 4f |XO | ADDQ.L #0x4,A7 00023514 4e 5e |N^ | UNLK A6 00023516 4e 75 |Nu | RTS 00023518 ; -------------------------------------------------------------------------------------- 00023518 ; OMSI PASCAL Function 00023518 ; <LVAR 0x008 4(r)> 00023518 ; <LVAR -0x004 1(rw)> 00023518 ; <LVAR -0x008 @ 4(rw)> 00023518 ; <LVAR -0x00c @ 4(r)> 00023518 ; <LVAR -0x010 @ 4(r)> 00023518 ; <LVAR -0x012 @ 1(r)> 00023518 ; <LVAR -0x013 @ 1(r)> 00023518 ; <LVAR -0x014 @ 1(r)> 00023518 ; <LVAR -0x024 4(rw)> 00023518 ; <LVAR -0x028 4(rw)> 00023518 ; <LVAR -0x02c 4(rw)> 00023518 ; <LVAR -0x030 @ 4(r)> 00023518 ; <LVAR -0x032 1(w)> 00023518 ; <LVAR -0x036 @ 4(r)> 00023518 ; <LVAR -0x038 @ 1(r)> 00023518 ; <LVAR -0x03c @ 4(rw)> 00023518 ; -------------------------------------------------------------------------------------- 00023518 4e 56 ff 64 |NV d | LINK.W A6,#0xff64 0002351c bf d5 | | CMPA.L (A5),A7 0002351e 62 06 |b | BHI 0x23526 00023520 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023524 4e 76 |Nv | TRAPV 00023526 de fc 00 60 | ` | ADDA.W #0x60,A7 0002352a 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 0002352e 45 ee ff c4 |E | LEA.L (A6-0x3c),A2 00023532 47 ee 00 08 |G | LEA.L (A6+0x8),A3 00023536 49 f9 00 01 02 c4 |I | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A4 0002353c 74 01 |t | MOVEQ.L #0x01,D2 0002353e 76 14 |v | MOVEQ.L #0x14,D3 00023540 28 3c ff ff 80 00 |(< | MOVE.L #0xffff8000,D4 00023546 59 4f |YO | SUBQ.L #0x4,A7 00023548 2f 13 |/ | MOVE.L (A3),-(A7) 0002354a 4e ba ed 02 |N | JSR 0x2224e 0002354e 58 4f |XO | ADDQ.L #0x4,A7 00023550 2d 5f ff d4 |-_ | MOVE.L (A7)+,(A6-0x2c) 00023554 66 28 |f( | BNE 0x2357e 00023556 59 4f |YO | SUBQ.L #0x4,A7 00023558 1e ba e5 0c | | MOVE.B 0x21a66,(A7) 0002355c 1f 7a e5 09 00 01 | z | MOVE.B 0x21a67,(A7+0x1) 00023562 1f 7a e5 04 00 02 | z | MOVE.B 0x21a68,(A7+0x2) 00023568 59 4f |YO | SUBQ.L #0x4,A7 0002356a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002356e 3f 02 |? | MOVE.W D2,-(A7) 00023570 3f 3c 00 03 |?< | MOVE.W #0x3,-(A7) 00023574 4e 94 |N | JSR (A4) 00023576 50 4f |PO | ADDQ.L #0x8,A7 00023578 24 9f |$ | MOVE.L (A7)+,(A2) 0002357a 58 4f |XO | ADDQ.L #0x4,A7 0002357c 60 10 |` | BRA 0x2358e 0002357e 59 4f |YO | SUBQ.L #0x4,A7 00023580 2f 13 |/ | MOVE.L (A3),-(A7) 00023582 48 78 00 01 |Hx | PEA.L 0x1 00023586 4e ba f5 e2 |N | JSR 0x22b6a 0002358a 50 4f |PO | ADDQ.L #0x8,A7 0002358c 24 9f |$ | MOVE.L (A7)+,(A2) 0002358e 5d 4f |]O | SUBQ.L #0x6,A7 00023590 20 4f | O | MOVEA.L A7,A0 00023592 43 fa e4 d6 |C | LEA.L 0x21a6a,A1 00023596 70 04 |p | MOVEQ.L #0x04,D0 00023598 10 d9 | | MOVE.B (A1)+,(A0)+ 0002359a 51 c8 ff fc |Q | DBF D0,0x23598 0002359e 59 4f |YO | SUBQ.L #0x4,A7 000235a0 2f 12 |/ | MOVE.L (A2),-(A7) 000235a2 59 4f |YO | SUBQ.L #0x4,A7 000235a4 48 6f 00 0c |Ho | PEA.L (A7+0xc) 000235a8 3f 02 |? | MOVE.W D2,-(A7) 000235aa 3f 3c 00 05 |?< | MOVE.W #0x5,-(A7) 000235ae 4e 94 |N | JSR (A4) 000235b0 50 4f |PO | ADDQ.L #0x8,A7 000235b2 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000235b8 50 4f |PO | ADDQ.L #0x8,A7 000235ba 24 9f |$ | MOVE.L (A7)+,(A2) 000235bc 54 4f |TO | ADDQ.L #0x2,A7 000235be 2e 92 |. | MOVE.L (A2),(A7) 000235c0 42 27 |B' | CLR.B -(A7) 000235c2 1f 02 | | MOVE.B D2,-(A7) 000235c4 48 78 00 00 |Hx | PEA.L 0x0 000235c8 48 6e ff c8 |Hn | PEA.L (A6-0x38) 000235cc 48 6e ff ca |Hn | PEA.L (A6-0x36) 000235d0 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File) 000235d6 de c3 | | ADDA.W D3,A7 000235d8 4a 2e ff c8 |J. | TST.B (A6-0x38) 000235dc 67 0e |g | BEQ 0x235ec 000235de 48 52 |HR | PEA.L (A2) 000235e0 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000235e6 58 4f |XO | ADDQ.L #0x4,A7 000235e8 60 00 02 4e |` N | BRA 0x23838 000235ec 20 6e ff ca | n | MOVEA.L (A6-0x36),A0 000235f0 10 28 00 3f | ( ? | MOVE.B (A0+0x3f),D0 000235f4 ed 08 | | LSL.B #0x6,D0 000235f6 ee 08 | | LSR.B #0x7,D0 000235f8 1d 40 ff ce | @ | MOVE.B D0,(A6-0x32) 000235fc 42 27 |B' | CLR.B -(A7) 000235fe 1f 02 | | MOVE.B D2,-(A7) 00023600 48 78 00 01 |Hx | PEA.L 0x1 00023604 48 6e ff c8 |Hn | PEA.L (A6-0x38) 00023608 48 6e ff ca |Hn | PEA.L (A6-0x36) 0002360c 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File) 00023612 de fc 00 10 | | ADDA.W #0x10,A7 00023616 20 52 | R | MOVEA.L (A2),A0 00023618 32 10 |2 | MOVE.W (A0),D1 0002361a 48 c1 |H | EXTW.L D1 0002361c 5b 81 |[ | SUBQ.L #0x5,D1 0002361e 92 84 | | SUB.L D4,D1 00023620 0c 81 00 00 ff ff | | CMPI.L #0x0000ffff,D1 00023626 63 02 |c | BLS 0x2362a 00023628 4e 4f |NO | TRAP #15 0002362a d2 84 | | ADD.L D4,D1 0002362c 30 81 |0 | MOVE.W D1,(A0) 0002362e 4a 00 |J | TST.B D0 00023630 66 36 |f6 | BNE 0x23668 00023632 41 fa e4 32 |A 2 | LEA.L 0x21a66,A0 00023636 70 08 |p | MOVEQ.L #0x08,D0 00023638 3f 20 |? | MOVE.W -(A0),-(A7) 0002363a 51 c8 ff fc |Q | DBF D0,0x23638 0002363e 59 4f |YO | SUBQ.L #0x4,A7 00023640 2f 12 |/ | MOVE.L (A2),-(A7) 00023642 59 4f |YO | SUBQ.L #0x4,A7 00023644 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00023648 3f 02 |? | MOVE.W D2,-(A7) 0002364a 3f 3c 00 12 |?< | MOVE.W #0x12,-(A7) 0002364e 4e 94 |N | JSR (A4) 00023650 50 4f |PO | ADDQ.L #0x8,A7 00023652 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00023658 50 4f |PO | ADDQ.L #0x8,A7 0002365a 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00023660 de fc 00 16 | | ADDA.W #0x16,A7 00023664 60 00 01 d2 |` | BRA 0x23838 00023668 48 6e ff d0 |Hn | PEA.L (A6-0x30) 0002366c 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00023672 58 4f |XO | ADDQ.L #0x4,A7 00023674 20 6e ff d0 | n | MOVEA.L (A6-0x30),A0 00023678 2f 08 |/ | MOVE.L A0,-(A7) 0002367a 7e 01 |~ | MOVEQ.L #0x01,D7 0002367c 2f 2e ff d4 |/. | MOVE.L (A6-0x2c),-(A7) 00023680 7a 02 |z | MOVEQ.L #0x02,D5 00023682 ba 97 | | CMP.L (A7),D5 00023684 6e 00 00 94 |n | BGT 0x2371a 00023688 51 4f |QO | SUBQ.L #0x8,A7 0002368a 2f 13 |/ | MOVE.L (A3),-(A7) 0002368c 2f 05 |/ | MOVE.L D5,-(A7) 0002368e 4e ba f3 fc |N | JSR 0x22a8c 00023692 50 4f |PO | ADDQ.L #0x8,A7 00023694 2d 5f ff d8 |-_ | MOVE.L (A7)+,(A6-0x28) 00023698 2d 5f ff dc |-_ | MOVE.L (A7)+,(A6-0x24) 0002369c 2f 2e ff dc |/. | MOVE.L (A6-0x24),-(A7) 000236a0 2c 2e ff d8 |,. | MOVE.L (A6-0x28),D6 000236a4 bc 97 | | CMP.L (A7),D6 000236a6 6e 14 |n | BGT 0x236bc 000236a8 20 17 | | MOVE.L (A7),D0 000236aa 0c 86 80 00 00 01 | | CMPI.L #0x80000001,D6 000236b0 6d 08 |m | BLT 0x236ba 000236b2 0c 80 7f ff ff ff | | CMPI.L #0x7fffffff,D0 000236b8 6f 02 |o | BLE 0x236bc 000236ba 4e 4f |NO | TRAP #15 000236bc bc 97 | | CMP.L (A7),D6 000236be 6e 32 |n2 | BGT 0x236f2 000236c0 20 07 | | MOVE.L D7,D0 000236c2 53 80 |S | SUBQ.L #0x1,D0 000236c4 0c 80 00 00 00 7d | } | CMPI.L #0x0000007d,D0 000236ca 63 02 |c | BLS 0x236ce 000236cc 4e 4f |NO | TRAP #15 000236ce 20 6f 00 08 | o | MOVEA.L (A7+0x8),A0 000236d2 22 06 |" | MOVE.L D6,D1 000236d4 53 81 |S | SUBQ.L #0x1,D1 000236d6 0c 81 00 00 1f ff | | CMPI.L #0x00001fff,D1 000236dc 63 02 |c | BLS 0x236e0 000236de 4e 4f |NO | TRAP #15 000236e0 43 f9 00 02 59 52 |C YR | LEA.L 0x25952,A1 000236e6 11 b1 18 08 08 02 | | MOVE.B (A1+D1.L+#0x8),(A0+D0.L+#0x2) 000236ec 52 87 |R | ADDQ.L #0x1,D7 000236ee 52 86 |R | ADDQ.L #0x1,D6 000236f0 68 ca |h | BVC 0x236bc 000236f2 58 4f |XO | ADDQ.L #0x4,A7 000236f4 ba ae ff d4 | | CMP.L (A6-0x2c),D5 000236f8 67 1a |g | BEQ 0x23714 000236fa 20 07 | | MOVE.L D7,D0 000236fc 53 80 |S | SUBQ.L #0x1,D0 000236fe 0c 80 00 00 00 7d | } | CMPI.L #0x0000007d,D0 00023704 63 02 |c | BLS 0x23708 00023706 4e 4f |NO | TRAP #15 00023708 20 6f 00 04 | o | MOVEA.L (A7+0x4),A0 0002370c 11 bc 00 2c 08 02 | , | MOVE.B #0x2c,(A0+D0.L+#0x2) 00023712 52 87 |R | ADDQ.L #0x1,D7 00023714 52 85 |R | ADDQ.L #0x1,D5 00023716 68 00 ff 6a |h j | BVC 0x23682 0002371a 58 4f |XO | ADDQ.L #0x4,A7 0002371c 20 57 | W | MOVEA.L (A7),A0 0002371e 20 07 | | MOVE.L D7,D0 00023720 53 80 |S | SUBQ.L #0x1,D0 00023722 90 84 | | SUB.L D4,D0 00023724 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 0002372a 63 02 |c | BLS 0x2372e 0002372c 4e 4f |NO | TRAP #15 0002372e d0 84 | | ADD.L D4,D0 00023730 30 80 |0 | MOVE.W D0,(A0) 00023732 54 4f |TO | ADDQ.L #0x2,A7 00023734 3e ba e3 3e |> > | MOVE.W 0x21a74,(A7) 00023738 3f 3a e3 38 |?: 8 | MOVE.W 0x21a72,-(A7) 0002373c 3f 3a e3 32 |?: 2 | MOVE.W 0x21a70,-(A7) 00023740 59 4f |YO | SUBQ.L #0x4,A7 00023742 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023746 3f 02 |? | MOVE.W D2,-(A7) 00023748 3f 3c 00 06 |?< | MOVE.W #0x6,-(A7) 0002374c 4e 94 |N | JSR (A4) 0002374e 50 4f |PO | ADDQ.L #0x8,A7 00023750 2d 5f ff f8 |-_ | MOVE.L (A7)+,(A6-0x8) 00023754 54 4f |TO | ADDQ.L #0x2,A7 00023756 2e 93 |. | MOVE.L (A3),(A7) 00023758 48 78 00 00 |Hx | PEA.L 0x0 0002375c 2f 2e ff f8 |/. | MOVE.L (A6-0x8),-(A7) 00023760 48 6e ff f0 |Hn | PEA.L (A6-0x10) 00023764 48 6e ff ed |Hn | PEA.L (A6-0x13) 00023768 4e b9 00 02 50 a2 |N P | JSR 0x250a2 0002376e de c3 | | ADDA.W D3,A7 00023770 48 6e ff f8 |Hn | PEA.L (A6-0x8) 00023774 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 0002377a 54 4f |TO | ADDQ.L #0x2,A7 0002377c 3e ba e2 fc |> | MOVE.W 0x21a7a,(A7) 00023780 3f 3a e2 f6 |?: | MOVE.W 0x21a78,-(A7) 00023784 3f 3a e2 f0 |?: | MOVE.W 0x21a76,-(A7) 00023788 59 4f |YO | SUBQ.L #0x4,A7 0002378a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002378e 3f 02 |? | MOVE.W D2,-(A7) 00023790 3f 3c 00 06 |?< | MOVE.W #0x6,-(A7) 00023794 4e 94 |N | JSR (A4) 00023796 50 4f |PO | ADDQ.L #0x8,A7 00023798 2d 5f ff f8 |-_ | MOVE.L (A7)+,(A6-0x8) 0002379c 54 4f |TO | ADDQ.L #0x2,A7 0002379e 2e 93 |. | MOVE.L (A3),(A7) 000237a0 48 78 00 00 |Hx | PEA.L 0x0 000237a4 2f 2e ff f8 |/. | MOVE.L (A6-0x8),-(A7) 000237a8 48 6e ff f4 |Hn | PEA.L (A6-0xc) 000237ac 48 6e ff ee |Hn | PEA.L (A6-0x12) 000237b0 4e b9 00 02 50 a2 |N P | JSR 0x250a2 000237b6 de c3 | | ADDA.W D3,A7 000237b8 48 6e ff f8 |Hn | PEA.L (A6-0x8) 000237bc 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000237c2 58 4f |XO | ADDQ.L #0x4,A7 000237c4 4a 2e ff ed |J. | TST.B (A6-0x13) 000237c8 66 06 |f | BNE 0x237d0 000237ca 4a 2e ff ee |J. | TST.B (A6-0x12) 000237ce 67 06 |g | BEQ 0x237d6 000237d0 42 2e ff fc |B. | CLR.B (A6-0x4) 000237d4 60 04 |` | BRA 0x237da 000237d6 1d 42 ff fc | B | MOVE.B D2,(A6-0x4) 000237da 2f 12 |/ | MOVE.L (A2),-(A7) 000237dc 2f 2e ff d0 |/. | MOVE.L (A6-0x30),-(A7) 000237e0 10 2e ff fc | . | MOVE.B (A6-0x4),D0 000237e4 48 80 |H | EXTB.W D0 000237e6 41 bc 00 02 |A | CHK.W #0x2,D0 000237ea 1f 00 | | MOVE.B D0,-(A7) 000237ec 48 6e ff ec |Hn | PEA.L (A6-0x14) 000237f0 4e b9 00 01 03 b0 |N | JSR PushProgram(a : String; b : String; MOD c : B; VAR d : Bool) 000237f6 de fc 00 0e | | ADDA.W #0xe,A7 000237fa 4a 2e ff ed |J. | TST.B (A6-0x13) 000237fe 67 20 |g | BEQ 0x23820 00023800 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7) 00023804 59 4f |YO | SUBQ.L #0x4,A7 00023806 10 2e ff ec | . | MOVE.B (A6-0x14),D0 0002380a 48 80 |H | EXTB.W D0 0002380c 41 bc 00 0e |A | CHK.W #0xe,D0 00023810 1f 00 | | MOVE.B D0,-(A7) 00023812 4e b9 00 01 03 c0 |N | JSR ExpErrMsg(a: Byte) : String 00023818 54 4f |TO | ADDQ.L #0x2,A7 0002381a 4e ba f9 4c |N L | JSR 0x23168 0002381e 50 4f |PO | ADDQ.L #0x8,A7 00023820 4a 2e ff ee |J. | TST.B (A6-0x12) 00023824 67 12 |g | BEQ 0x23838 00023826 2f 2e ff f4 |/. | MOVE.L (A6-0xc),-(A7) 0002382a 59 4f |YO | SUBQ.L #0x4,A7 0002382c 4e b9 00 01 03 c8 |N | JSR FSCALL_103c8 00023832 4e ba f9 34 |N 4 | JSR 0x23168 00023836 50 4f |PO | ADDQ.L #0x8,A7 00023838 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 0002383c 4e 5e |N^ | UNLK A6 0002383e 4e 75 |Nu | RTS 00023840 ; -------------------------------------------------------------------------------------- 00023840 ; OMSI PASCAL Function 00023840 ; <LVAR 0x008 4(r)> 00023840 ; <LVAR -0x004 @ 4(rw)> 00023840 ; <LVAR -0x008 @ 4(rw)> 00023840 ; -------------------------------------------------------------------------------------- 00023840 4e 56 ff e0 |NV | LINK.W A6,#0xffe0 00023844 bf d5 | | CMPA.L (A5),A7 00023846 62 06 |b | BHI 0x2384e 00023848 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002384c 4e 76 |Nv | TRAPV 0002384e de fc 00 18 | | ADDA.W #0x18,A7 00023852 48 e7 00 c0 |H | MOVEM.L A1+A0,-(A7) 00023856 41 ee ff f8 |A | LEA.L (A6-0x8),A0 0002385a 43 ee ff fc |C | LEA.L (A6-0x4),A1 0002385e 59 4f |YO | SUBQ.L #0x4,A7 00023860 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023864 48 78 00 01 |Hx | PEA.L 0x1 00023868 4e ba f3 00 |N | JSR 0x22b6a 0002386c 50 4f |PO | ADDQ.L #0x8,A7 0002386e 20 97 | | MOVE.L (A7),(A0) 00023870 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023874 48 78 00 02 |Hx | PEA.L 0x2 00023878 4e ba f2 f0 |N | JSR 0x22b6a 0002387c 50 4f |PO | ADDQ.L #0x8,A7 0002387e 22 97 |" | MOVE.L (A7),(A1) 00023880 54 4f |TO | ADDQ.L #0x2,A7 00023882 2f 10 |/ | MOVE.L (A0),-(A7) 00023884 2f 11 |/ | MOVE.L (A1),-(A7) 00023886 4e b9 00 01 02 c8 |N | JSR StringEqual(a, b : String) : Byte 0002388c 50 4f |PO | ADDQ.L #0x8,A7 0002388e 4a 1f |J | TST.B (A7)+ 00023890 67 06 |g | BEQ 0x23898 00023892 4e ba ed 96 |N | JSR 0x2262a 00023896 60 04 |` | BRA 0x2389c 00023898 4e ba ed d6 |N | JSR 0x22670 0002389c 48 51 |HQ | PEA.L (A1) 0002389e 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000238a4 58 4f |XO | ADDQ.L #0x4,A7 000238a6 48 50 |HP | PEA.L (A0) 000238a8 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000238ae 58 4f |XO | ADDQ.L #0x4,A7 000238b0 4c df 03 00 |L | MOVEM.L (A7)+,A0+A1 000238b4 4e 5e |N^ | UNLK A6 000238b6 4e 75 |Nu | RTS 000238b8 ; -------------------------------------------------------------------------------------- 000238b8 ; OMSI PASCAL Function 000238b8 ; <LVAR 0x008 4(r)> 000238b8 ; <LVAR -0x004 @ 4(rw)> 000238b8 ; <LVAR -0x008 @ 4(rw)> 000238b8 ; -------------------------------------------------------------------------------------- 000238b8 4e 56 ff e0 |NV | LINK.W A6,#0xffe0 000238bc bf d5 | | CMPA.L (A5),A7 000238be 62 06 |b | BHI 0x238c6 000238c0 44 fc 00 02 |D | MOVE.W #0x2,CCR 000238c4 4e 76 |Nv | TRAPV 000238c6 de fc 00 18 | | ADDA.W #0x18,A7 000238ca 48 e7 00 c0 |H | MOVEM.L A1+A0,-(A7) 000238ce 41 ee ff f8 |A | LEA.L (A6-0x8),A0 000238d2 43 ee ff fc |C | LEA.L (A6-0x4),A1 000238d6 59 4f |YO | SUBQ.L #0x4,A7 000238d8 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000238dc 48 78 00 01 |Hx | PEA.L 0x1 000238e0 4e ba f2 88 |N | JSR 0x22b6a 000238e4 50 4f |PO | ADDQ.L #0x8,A7 000238e6 20 97 | | MOVE.L (A7),(A0) 000238e8 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000238ec 48 78 00 02 |Hx | PEA.L 0x2 000238f0 4e ba f2 78 |N x | JSR 0x22b6a 000238f4 50 4f |PO | ADDQ.L #0x8,A7 000238f6 22 97 |" | MOVE.L (A7),(A1) 000238f8 54 4f |TO | ADDQ.L #0x2,A7 000238fa 2f 10 |/ | MOVE.L (A0),-(A7) 000238fc 2f 11 |/ | MOVE.L (A1),-(A7) 000238fe 4e b9 00 01 02 c8 |N | JSR StringEqual(a, b : String) : Byte 00023904 50 4f |PO | ADDQ.L #0x8,A7 00023906 4a 1f |J | TST.B (A7)+ 00023908 66 06 |f | BNE 0x23910 0002390a 4e ba ed 1e |N | JSR 0x2262a 0002390e 60 04 |` | BRA 0x23914 00023910 4e ba ed 5e |N ^ | JSR 0x22670 00023914 48 51 |HQ | PEA.L (A1) 00023916 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 0002391c 58 4f |XO | ADDQ.L #0x4,A7 0002391e 48 50 |HP | PEA.L (A0) 00023920 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00023926 58 4f |XO | ADDQ.L #0x4,A7 00023928 4c df 03 00 |L | MOVEM.L (A7)+,A0+A1 0002392c 4e 5e |N^ | UNLK A6 0002392e 4e 75 |Nu | RTS 00023930 ; -------------------------------------------------------------------------------------- 00023930 ; OMSI PASCAL Function 00023930 ; <LVAR 0x008 4(r)> 00023930 ; -------------------------------------------------------------------------------------- 00023930 4e 56 ff f0 |NV | LINK.W A6,#0xfff0 00023934 bf d5 | | CMPA.L (A5),A7 00023936 62 06 |b | BHI 0x2393e 00023938 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002393c 4e 76 |Nv | TRAPV 0002393e de fc 00 10 | | ADDA.W #0x10,A7 00023942 59 4f |YO | SUBQ.L #0x4,A7 00023944 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023948 48 78 00 01 |Hx | PEA.L 0x1 0002394c 4e ba f2 1c |N | JSR 0x22b6a 00023950 50 4f |PO | ADDQ.L #0x8,A7 00023952 4e ba f0 0e |N | JSR 0x22962 00023956 58 4f |XO | ADDQ.L #0x4,A7 00023958 4e 5e |N^ | UNLK A6 0002395a 4e 75 |Nu | RTS 0002395c ; -------------------------------------------------------------------------------------- 0002395c ; OMSI PASCAL Function 0002395c ; <LVAR 0x008 4(r)> 0002395c ; <LVAR -0x014 @ 4(rw)> 0002395c ; -------------------------------------------------------------------------------------- 0002395c 4e 56 ff 90 |NV | LINK.W A6,#0xff90 00023960 bf d5 | | CMPA.L (A5),A7 00023962 62 06 |b | BHI 0x2396a 00023964 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023968 4e 76 |Nv | TRAPV 0002396a de fc 00 5c | \ | ADDA.W #0x5c,A7 0002396e 48 e7 e7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7) 00023972 45 ee 00 08 |E | LEA.L (A6+0x8),A2 00023976 47 ee ff ec |G | LEA.L (A6-0x14),A3 0002397a 74 7d |t} | MOVEQ.L #0x7d,D2 0002397c 59 4f |YO | SUBQ.L #0x4,A7 0002397e 2f 12 |/ | MOVE.L (A2),-(A7) 00023980 48 78 00 01 |Hx | PEA.L 0x1 00023984 4e ba f1 e4 |N | JSR 0x22b6a 00023988 50 4f |PO | ADDQ.L #0x8,A7 0002398a 26 97 |& | MOVE.L (A7),(A3) 0002398c 2f 12 |/ | MOVE.L (A2),-(A7) 0002398e 48 78 00 02 |Hx | PEA.L 0x2 00023992 4e ba f1 d6 |N | JSR 0x22b6a 00023996 50 4f |PO | ADDQ.L #0x8,A7 00023998 28 5f |(_ | MOVEA.L (A7)+,A4 0002399a 9e fc 00 0c | | SUBA.W #0xc,A7 0002399e 2f 12 |/ | MOVE.L (A2),-(A7) 000239a0 48 78 00 03 |Hx | PEA.L 0x3 000239a4 4e ba f1 f6 |N | JSR 0x22b9c 000239a8 50 4f |PO | ADDQ.L #0x8,A7 000239aa 4e b9 00 01 03 50 |N P | JSR Quad2Long(a : Quad) : Long 000239b0 50 4f |PO | ADDQ.L #0x8,A7 000239b2 2c 17 |, | MOVE.L (A7),D6 000239b4 51 4f |QO | SUBQ.L #0x8,A7 000239b6 2f 12 |/ | MOVE.L (A2),-(A7) 000239b8 48 78 00 04 |Hx | PEA.L 0x4 000239bc 4e ba f1 de |N | JSR 0x22b9c 000239c0 50 4f |PO | ADDQ.L #0x8,A7 000239c2 4e b9 00 01 03 50 |N P | JSR Quad2Long(a : Quad) : Long 000239c8 50 4f |PO | ADDQ.L #0x8,A7 000239ca 2a 1f |* | MOVE.L (A7)+,D5 000239cc 20 06 | | MOVE.L D6,D0 000239ce d0 85 | | ADD.L D5,D0 000239d0 53 80 |S | SUBQ.L #0x1,D0 000239d2 32 14 |2 | MOVE.W (A4),D1 000239d4 48 c1 |H | EXTW.L D1 000239d6 b0 81 | | CMP.L D1,D0 000239d8 6f 30 |o0 | BLE 0x23a0a 000239da 9e fc 00 20 | | SUBA.W #0x20,A7 000239de 20 4f | O | MOVEA.L A7,A0 000239e0 43 fa e0 9a |C | LEA.L 0x21a7c,A1 000239e4 70 1e |p | MOVEQ.L #0x1e,D0 000239e6 10 d9 | | MOVE.B (A1)+,(A0)+ 000239e8 51 c8 ff fc |Q | DBF D0,0x239e6 000239ec 59 4f |YO | SUBQ.L #0x4,A7 000239ee 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000239f2 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000239f6 3f 3c 00 1f |?< | MOVE.W #0x1f,-(A7) 000239fa 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00023a00 50 4f |PO | ADDQ.L #0x8,A7 00023a02 4e ba e4 3e |N > | JSR 0x21e42 00023a06 de fc 00 24 | $ | ADDA.W #0x24,A7 00023a0a 20 53 | S | MOVEA.L (A3),A0 00023a0c 2f 08 |/ | MOVE.L A0,-(A7) 00023a0e 30 10 |0 | MOVE.W (A0),D0 00023a10 48 c0 |H | EXTW.L D0 00023a12 2f 00 |/ | MOVE.L D0,-(A7) 00023a14 7e 01 |~ | MOVEQ.L #0x01,D7 00023a16 be 97 | | CMP.L (A7),D7 00023a18 6e 26 |n& | BGT 0x23a40 00023a1a 20 06 | | MOVE.L D6,D0 00023a1c d0 87 | | ADD.L D7,D0 00023a1e 53 80 |S | SUBQ.L #0x1,D0 00023a20 53 80 |S | SUBQ.L #0x1,D0 00023a22 b0 82 | | CMP.L D2,D0 00023a24 63 02 |c | BLS 0x23a28 00023a26 4e 4f |NO | TRAP #15 00023a28 22 07 |" | MOVE.L D7,D1 00023a2a 53 81 |S | SUBQ.L #0x1,D1 00023a2c b2 82 | | CMP.L D2,D1 00023a2e 63 02 |c | BLS 0x23a32 00023a30 4e 4f |NO | TRAP #15 00023a32 20 6f 00 04 | o | MOVEA.L (A7+0x4),A0 00023a36 19 b0 18 02 08 02 | | MOVE.B (A0+D1.L+#0x2),(A4+D0.L+#0x2) 00023a3c 52 87 |R | ADDQ.L #0x1,D7 00023a3e 68 d6 |h | BVC 0x23a16 00023a40 58 4f |XO | ADDQ.L #0x4,A7 00023a42 2e 8c |. | MOVE.L A4,(A7) 00023a44 4e ba f1 c6 |N | JSR 0x22c0c 00023a48 58 4f |XO | ADDQ.L #0x4,A7 00023a4a 48 53 |HS | PEA.L (A3) 00023a4c 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00023a52 58 4f |XO | ADDQ.L #0x4,A7 00023a54 4c df 1f e7 |L | MOVEM.L (A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3+A4 00023a58 4e 5e |N^ | UNLK A6 00023a5a 4e 75 |Nu | RTS 00023a5c ; -------------------------------------------------------------------------------------- 00023a5c ; OMSI PASCAL Function 00023a5c ; <LVAR 0x008 4(r)> 00023a5c ; <LVAR -0x010 @ 4(r)> 00023a5c ; <LVAR -0x014 @ 4(rw)> 00023a5c ; -------------------------------------------------------------------------------------- 00023a5c 4e 56 ff a8 |NV | LINK.W A6,#0xffa8 00023a60 bf d5 | | CMPA.L (A5),A7 00023a62 62 06 |b | BHI 0x23a6a 00023a64 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023a68 4e 76 |Nv | TRAPV 00023a6a de fc 00 44 | D | ADDA.W #0x44,A7 00023a6e 48 e7 e7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7) 00023a72 45 ee ff ec |E | LEA.L (A6-0x14),A2 00023a76 47 ee ff f0 |G | LEA.L (A6-0x10),A3 00023a7a 49 ee 00 08 |I | LEA.L (A6+0x8),A4 00023a7e 74 7d |t} | MOVEQ.L #0x7d,D2 00023a80 59 4f |YO | SUBQ.L #0x4,A7 00023a82 2f 14 |/ | MOVE.L (A4),-(A7) 00023a84 48 78 00 01 |Hx | PEA.L 0x1 00023a88 4e ba f0 e0 |N | JSR 0x22b6a 00023a8c 50 4f |PO | ADDQ.L #0x8,A7 00023a8e 24 9f |$ | MOVE.L (A7)+,(A2) 00023a90 48 53 |HS | PEA.L (A3) 00023a92 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00023a98 51 4f |QO | SUBQ.L #0x8,A7 00023a9a 2f 14 |/ | MOVE.L (A4),-(A7) 00023a9c 48 78 00 02 |Hx | PEA.L 0x2 00023aa0 4e ba f0 fa |N | JSR 0x22b9c 00023aa4 50 4f |PO | ADDQ.L #0x8,A7 00023aa6 4e b9 00 01 03 50 |N P | JSR Quad2Long(a : Quad) : Long 00023aac 50 4f |PO | ADDQ.L #0x8,A7 00023aae 2a 17 |* | MOVE.L (A7),D5 00023ab0 51 4f |QO | SUBQ.L #0x8,A7 00023ab2 2f 14 |/ | MOVE.L (A4),-(A7) 00023ab4 48 78 00 03 |Hx | PEA.L 0x3 00023ab8 4e ba f0 e2 |N | JSR 0x22b9c 00023abc 50 4f |PO | ADDQ.L #0x8,A7 00023abe 4e b9 00 01 03 50 |N P | JSR Quad2Long(a : Quad) : Long 00023ac4 50 4f |PO | ADDQ.L #0x8,A7 00023ac6 2c 1f |, | MOVE.L (A7)+,D6 00023ac8 20 52 | R | MOVEA.L (A2),A0 00023aca 20 05 | | MOVE.L D5,D0 00023acc d0 86 | | ADD.L D6,D0 00023ace 53 80 |S | SUBQ.L #0x1,D0 00023ad0 32 10 |2 | MOVE.W (A0),D1 00023ad2 48 c1 |H | EXTW.L D1 00023ad4 b0 81 | | CMP.L D1,D0 00023ad6 6f 06 |o | BLE 0x23ade 00023ad8 52 81 |R | ADDQ.L #0x1,D1 00023ada 92 85 | | SUB.L D5,D1 00023adc 2c 01 |, | MOVE.L D1,D6 00023ade 2f 06 |/ | MOVE.L D6,-(A7) 00023ae0 7e 01 |~ | MOVEQ.L #0x01,D7 00023ae2 be 97 | | CMP.L (A7),D7 00023ae4 6e 26 |n& | BGT 0x23b0c 00023ae6 20 53 | S | MOVEA.L (A3),A0 00023ae8 20 07 | | MOVE.L D7,D0 00023aea 53 80 |S | SUBQ.L #0x1,D0 00023aec b0 82 | | CMP.L D2,D0 00023aee 63 02 |c | BLS 0x23af2 00023af0 4e 4f |NO | TRAP #15 00023af2 22 52 |"R | MOVEA.L (A2),A1 00023af4 22 07 |" | MOVE.L D7,D1 00023af6 d2 85 | | ADD.L D5,D1 00023af8 53 81 |S | SUBQ.L #0x1,D1 00023afa 53 81 |S | SUBQ.L #0x1,D1 00023afc b2 82 | | CMP.L D2,D1 00023afe 63 02 |c | BLS 0x23b02 00023b00 4e 4f |NO | TRAP #15 00023b02 11 b1 18 02 08 02 | | MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x2) 00023b08 52 87 |R | ADDQ.L #0x1,D7 00023b0a 68 d6 |h | BVC 0x23ae2 00023b0c 58 4f |XO | ADDQ.L #0x4,A7 00023b0e 20 53 | S | MOVEA.L (A3),A0 00023b10 04 86 ff ff 80 00 | | SUBI.L #0xffff8000,D6 00023b16 0c 86 00 00 ff ff | | CMPI.L #0x0000ffff,D6 00023b1c 63 02 |c | BLS 0x23b20 00023b1e 4e 4f |NO | TRAP #15 00023b20 06 86 ff ff 80 00 | | ADDI.L #0xffff8000,D6 00023b26 30 86 |0 | MOVE.W D6,(A0) 00023b28 2f 13 |/ | MOVE.L (A3),-(A7) 00023b2a 4e ba f0 e0 |N | JSR 0x22c0c 00023b2e 58 4f |XO | ADDQ.L #0x4,A7 00023b30 48 52 |HR | PEA.L (A2) 00023b32 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00023b38 58 4f |XO | ADDQ.L #0x4,A7 00023b3a 4c df 1f e7 |L | MOVEM.L (A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3+A4 00023b3e 4e 5e |N^ | UNLK A6 00023b40 4e 75 |Nu | RTS 00023b42 ; -------------------------------------------------------------------------------------- 00023b42 ; OMSI PASCAL Function 00023b42 ; <LVAR 0x008 4(r)> 00023b42 ; -------------------------------------------------------------------------------------- 00023b42 4e 56 ff ec |NV | LINK.W A6,#0xffec 00023b46 bf d5 | | CMPA.L (A5),A7 00023b48 62 06 |b | BHI 0x23b50 00023b4a 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023b4e 4e 76 |Nv | TRAPV 00023b50 de fc 00 14 | | ADDA.W #0x14,A7 00023b54 51 4f |QO | SUBQ.L #0x8,A7 00023b56 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023b5a 48 78 00 01 |Hx | PEA.L 0x1 00023b5e 4e ba f0 3c |N < | JSR 0x22b9c 00023b62 50 4f |PO | ADDQ.L #0x8,A7 00023b64 4e ba ee 70 |N p | JSR 0x229d6 00023b68 50 4f |PO | ADDQ.L #0x8,A7 00023b6a 4e 5e |N^ | UNLK A6 00023b6c 4e 75 |Nu | RTS 00023b6e ; -------------------------------------------------------------------------------------- 00023b6e ; OMSI PASCAL Function 00023b6e ; <LVAR 0x008 4(r)> 00023b6e ; -------------------------------------------------------------------------------------- 00023b6e 4e 56 ff e2 |NV | LINK.W A6,#0xffe2 00023b72 bf d5 | | CMPA.L (A5),A7 00023b74 62 06 |b | BHI 0x23b7c 00023b76 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023b7a 4e 76 |Nv | TRAPV 00023b7c de fc 00 1e | | ADDA.W #0x1e,A7 00023b80 9e fc 00 0a | | SUBA.W #0xa,A7 00023b84 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023b88 48 78 00 01 |Hx | PEA.L 0x1 00023b8c 4e ba f0 0e |N | JSR 0x22b9c 00023b90 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023b94 48 78 00 02 |Hx | PEA.L 0x2 00023b98 4e ba f0 02 |N | JSR 0x22b9c 00023b9c 50 4f |PO | ADDQ.L #0x8,A7 00023b9e 4e b9 00 01 03 2c |N , | JSR IsEqual(a, b : Quad) : Bool 00023ba4 de fc 00 10 | | ADDA.W #0x10,A7 00023ba8 4a 1f |J | TST.B (A7)+ 00023baa 67 06 |g | BEQ 0x23bb2 00023bac 4e ba ea 7c |N | | JSR 0x2262a 00023bb0 60 04 |` | BRA 0x23bb6 00023bb2 4e ba ea bc |N | JSR 0x22670 00023bb6 4e 5e |N^ | UNLK A6 00023bb8 4e 75 |Nu | RTS 00023bba ; -------------------------------------------------------------------------------------- 00023bba ; OMSI PASCAL Function 00023bba ; <LVAR 0x008 4(r)> 00023bba ; -------------------------------------------------------------------------------------- 00023bba 4e 56 ff e2 |NV | LINK.W A6,#0xffe2 00023bbe bf d5 | | CMPA.L (A5),A7 00023bc0 62 06 |b | BHI 0x23bc8 00023bc2 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023bc6 4e 76 |Nv | TRAPV 00023bc8 de fc 00 1e | | ADDA.W #0x1e,A7 00023bcc 9e fc 00 0a | | SUBA.W #0xa,A7 00023bd0 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023bd4 48 78 00 01 |Hx | PEA.L 0x1 00023bd8 4e ba ef c2 |N | JSR 0x22b9c 00023bdc 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023be0 48 78 00 02 |Hx | PEA.L 0x2 00023be4 4e ba ef b6 |N | JSR 0x22b9c 00023be8 50 4f |PO | ADDQ.L #0x8,A7 00023bea 4e b9 00 01 03 2c |N , | JSR IsEqual(a, b : Quad) : Bool 00023bf0 de fc 00 10 | | ADDA.W #0x10,A7 00023bf4 4a 1f |J | TST.B (A7)+ 00023bf6 66 06 |f | BNE 0x23bfe 00023bf8 4e ba ea 30 |N 0 | JSR 0x2262a 00023bfc 60 04 |` | BRA 0x23c02 00023bfe 4e ba ea 70 |N p | JSR 0x22670 00023c02 4e 5e |N^ | UNLK A6 00023c04 4e 75 |Nu | RTS 00023c06 ; -------------------------------------------------------------------------------------- 00023c06 ; OMSI PASCAL Function 00023c06 ; <LVAR 0x008 4(r)> 00023c06 ; -------------------------------------------------------------------------------------- 00023c06 4e 56 ff e2 |NV | LINK.W A6,#0xffe2 00023c0a bf d5 | | CMPA.L (A5),A7 00023c0c 62 06 |b | BHI 0x23c14 00023c0e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023c12 4e 76 |Nv | TRAPV 00023c14 de fc 00 1e | | ADDA.W #0x1e,A7 00023c18 9e fc 00 0a | | SUBA.W #0xa,A7 00023c1c 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023c20 48 78 00 01 |Hx | PEA.L 0x1 00023c24 4e ba ef 76 |N v | JSR 0x22b9c 00023c28 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023c2c 48 78 00 02 |Hx | PEA.L 0x2 00023c30 4e ba ef 6a |N j | JSR 0x22b9c 00023c34 50 4f |PO | ADDQ.L #0x8,A7 00023c36 4e b9 00 01 03 28 |N ( | JSR IsSmaller(a, b : Quad) : Bool 00023c3c de fc 00 10 | | ADDA.W #0x10,A7 00023c40 4a 1f |J | TST.B (A7)+ 00023c42 67 06 |g | BEQ 0x23c4a 00023c44 4e ba e9 e4 |N | JSR 0x2262a 00023c48 60 04 |` | BRA 0x23c4e 00023c4a 4e ba ea 24 |N $ | JSR 0x22670 00023c4e 4e 5e |N^ | UNLK A6 00023c50 4e 75 |Nu | RTS 00023c52 ; -------------------------------------------------------------------------------------- 00023c52 ; OMSI PASCAL Function 00023c52 ; <LVAR 0x008 4(r)> 00023c52 ; -------------------------------------------------------------------------------------- 00023c52 4e 56 ff e2 |NV | LINK.W A6,#0xffe2 00023c56 bf d5 | | CMPA.L (A5),A7 00023c58 62 06 |b | BHI 0x23c60 00023c5a 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023c5e 4e 76 |Nv | TRAPV 00023c60 de fc 00 1e | | ADDA.W #0x1e,A7 00023c64 9e fc 00 0a | | SUBA.W #0xa,A7 00023c68 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023c6c 48 78 00 01 |Hx | PEA.L 0x1 00023c70 4e ba ef 2a |N * | JSR 0x22b9c 00023c74 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023c78 48 78 00 02 |Hx | PEA.L 0x2 00023c7c 4e ba ef 1e |N | JSR 0x22b9c 00023c80 50 4f |PO | ADDQ.L #0x8,A7 00023c82 4e b9 00 01 03 24 |N $ | JSR IsGreater(a, b : Quad) : Bool 00023c88 de fc 00 10 | | ADDA.W #0x10,A7 00023c8c 4a 1f |J | TST.B (A7)+ 00023c8e 67 06 |g | BEQ 0x23c96 00023c90 4e ba e9 98 |N | JSR 0x2262a 00023c94 60 04 |` | BRA 0x23c9a 00023c96 4e ba e9 d8 |N | JSR 0x22670 00023c9a 4e 5e |N^ | UNLK A6 00023c9c 4e 75 |Nu | RTS 00023c9e ; -------------------------------------------------------------------------------------- 00023c9e ; OMSI PASCAL Function 00023c9e ; <LVAR 0x008 4(r)> 00023c9e ; -------------------------------------------------------------------------------------- 00023c9e 4e 56 ff e2 |NV | LINK.W A6,#0xffe2 00023ca2 bf d5 | | CMPA.L (A5),A7 00023ca4 62 06 |b | BHI 0x23cac 00023ca6 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023caa 4e 76 |Nv | TRAPV 00023cac de fc 00 1e | | ADDA.W #0x1e,A7 00023cb0 9e fc 00 0a | | SUBA.W #0xa,A7 00023cb4 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023cb8 48 78 00 01 |Hx | PEA.L 0x1 00023cbc 4e ba ee de |N | JSR 0x22b9c 00023cc0 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023cc4 48 78 00 02 |Hx | PEA.L 0x2 00023cc8 4e ba ee d2 |N | JSR 0x22b9c 00023ccc 50 4f |PO | ADDQ.L #0x8,A7 00023cce 4e b9 00 01 03 24 |N $ | JSR IsGreater(a, b : Quad) : Bool 00023cd4 de fc 00 10 | | ADDA.W #0x10,A7 00023cd8 4a 1f |J | TST.B (A7)+ 00023cda 66 06 |f | BNE 0x23ce2 00023cdc 4e ba e9 4c |N L | JSR 0x2262a 00023ce0 60 04 |` | BRA 0x23ce6 00023ce2 4e ba e9 8c |N | JSR 0x22670 00023ce6 4e 5e |N^ | UNLK A6 00023ce8 4e 75 |Nu | RTS 00023cea ; -------------------------------------------------------------------------------------- 00023cea ; OMSI PASCAL Function 00023cea ; <LVAR 0x008 4(r)> 00023cea ; -------------------------------------------------------------------------------------- 00023cea 4e 56 ff e2 |NV | LINK.W A6,#0xffe2 00023cee bf d5 | | CMPA.L (A5),A7 00023cf0 62 06 |b | BHI 0x23cf8 00023cf2 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023cf6 4e 76 |Nv | TRAPV 00023cf8 de fc 00 1e | | ADDA.W #0x1e,A7 00023cfc 9e fc 00 0a | | SUBA.W #0xa,A7 00023d00 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023d04 48 78 00 01 |Hx | PEA.L 0x1 00023d08 4e ba ee 92 |N | JSR 0x22b9c 00023d0c 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023d10 48 78 00 02 |Hx | PEA.L 0x2 00023d14 4e ba ee 86 |N | JSR 0x22b9c 00023d18 50 4f |PO | ADDQ.L #0x8,A7 00023d1a 4e b9 00 01 03 28 |N ( | JSR IsSmaller(a, b : Quad) : Bool 00023d20 de fc 00 10 | | ADDA.W #0x10,A7 00023d24 4a 1f |J | TST.B (A7)+ 00023d26 66 06 |f | BNE 0x23d2e 00023d28 4e ba e9 00 |N | JSR 0x2262a 00023d2c 60 04 |` | BRA 0x23d32 00023d2e 4e ba e9 40 |N @ | JSR 0x22670 00023d32 4e 5e |N^ | UNLK A6 00023d34 4e 75 |Nu | RTS 00023d36 ; -------------------------------------------------------------------------------------- 00023d36 ; OMSI PASCAL Function 00023d36 ; <LVAR 0x008 4(r)> 00023d36 ; -------------------------------------------------------------------------------------- 00023d36 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 00023d3a bf d5 | | CMPA.L (A5),A7 00023d3c 62 06 |b | BHI 0x23d44 00023d3e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023d42 4e 76 |Nv | TRAPV 00023d44 de fc 00 28 | ( | ADDA.W #0x28,A7 00023d48 48 e7 80 00 |H | MOVEM.L D0,-(A7) 00023d4c 70 10 |p | MOVEQ.L #0x10,D0 00023d4e 9e c0 | | SUBA.W D0,A7 00023d50 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023d54 48 78 00 01 |Hx | PEA.L 0x1 00023d58 4e ba ee 42 |N B | JSR 0x22b9c 00023d5c 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023d60 48 78 00 02 |Hx | PEA.L 0x2 00023d64 4e ba ee 36 |N 6 | JSR 0x22b9c 00023d68 50 4f |PO | ADDQ.L #0x8,A7 00023d6a 4e b9 00 01 03 14 |N | JSR Add(a, b : Quad) : Quad 00023d70 de c0 | | ADDA.W D0,A7 00023d72 4e ba ef 20 |N | JSR 0x22c94 00023d76 50 4f |PO | ADDQ.L #0x8,A7 00023d78 4c df 00 01 |L | MOVEM.L (A7)+,D0 00023d7c 4e 5e |N^ | UNLK A6 00023d7e 4e 75 |Nu | RTS 00023d80 ; -------------------------------------------------------------------------------------- 00023d80 ; OMSI PASCAL Function 00023d80 ; <LVAR 0x008 4(r)> 00023d80 ; -------------------------------------------------------------------------------------- 00023d80 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 00023d84 bf d5 | | CMPA.L (A5),A7 00023d86 62 06 |b | BHI 0x23d8e 00023d88 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023d8c 4e 76 |Nv | TRAPV 00023d8e de fc 00 28 | ( | ADDA.W #0x28,A7 00023d92 48 e7 80 00 |H | MOVEM.L D0,-(A7) 00023d96 70 10 |p | MOVEQ.L #0x10,D0 00023d98 9e c0 | | SUBA.W D0,A7 00023d9a 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023d9e 48 78 00 01 |Hx | PEA.L 0x1 00023da2 4e ba ed f8 |N | JSR 0x22b9c 00023da6 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023daa 48 78 00 02 |Hx | PEA.L 0x2 00023dae 4e ba ed ec |N | JSR 0x22b9c 00023db2 50 4f |PO | ADDQ.L #0x8,A7 00023db4 4e b9 00 01 03 18 |N | JSR Subtract(a, b : Quad) : Quad 00023dba de c0 | | ADDA.W D0,A7 00023dbc 4e ba ee d6 |N | JSR 0x22c94 00023dc0 50 4f |PO | ADDQ.L #0x8,A7 00023dc2 4c df 00 01 |L | MOVEM.L (A7)+,D0 00023dc6 4e 5e |N^ | UNLK A6 00023dc8 4e 75 |Nu | RTS 00023dca ; -------------------------------------------------------------------------------------- 00023dca ; OMSI PASCAL Function 00023dca ; <LVAR 0x008 4(r)> 00023dca ; -------------------------------------------------------------------------------------- 00023dca 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 00023dce bf d5 | | CMPA.L (A5),A7 00023dd0 62 06 |b | BHI 0x23dd8 00023dd2 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023dd6 4e 76 |Nv | TRAPV 00023dd8 de fc 00 28 | ( | ADDA.W #0x28,A7 00023ddc 48 e7 80 00 |H | MOVEM.L D0,-(A7) 00023de0 70 10 |p | MOVEQ.L #0x10,D0 00023de2 9e c0 | | SUBA.W D0,A7 00023de4 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023de8 48 78 00 01 |Hx | PEA.L 0x1 00023dec 4e ba ed ae |N | JSR 0x22b9c 00023df0 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023df4 48 78 00 02 |Hx | PEA.L 0x2 00023df8 4e ba ed a2 |N | JSR 0x22b9c 00023dfc 50 4f |PO | ADDQ.L #0x8,A7 00023dfe 4e b9 00 01 03 1c |N | JSR Multiply(a, b : Quad) : Quad 00023e04 de c0 | | ADDA.W D0,A7 00023e06 4e ba ee 8c |N | JSR 0x22c94 00023e0a 50 4f |PO | ADDQ.L #0x8,A7 00023e0c 4c df 00 01 |L | MOVEM.L (A7)+,D0 00023e10 4e 5e |N^ | UNLK A6 00023e12 4e 75 |Nu | RTS 00023e14 ; -------------------------------------------------------------------------------------- 00023e14 ; OMSI PASCAL Function 00023e14 ; <LVAR 0x008 4(r)> 00023e14 ; -------------------------------------------------------------------------------------- 00023e14 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 00023e18 bf d5 | | CMPA.L (A5),A7 00023e1a 62 06 |b | BHI 0x23e22 00023e1c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023e20 4e 76 |Nv | TRAPV 00023e22 de fc 00 28 | ( | ADDA.W #0x28,A7 00023e26 48 e7 80 00 |H | MOVEM.L D0,-(A7) 00023e2a 70 10 |p | MOVEQ.L #0x10,D0 00023e2c 9e c0 | | SUBA.W D0,A7 00023e2e 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023e32 48 78 00 01 |Hx | PEA.L 0x1 00023e36 4e ba ed 64 |N d | JSR 0x22b9c 00023e3a 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023e3e 48 78 00 02 |Hx | PEA.L 0x2 00023e42 4e ba ed 58 |N X | JSR 0x22b9c 00023e46 50 4f |PO | ADDQ.L #0x8,A7 00023e48 4e b9 00 01 03 20 |N | JSR Divide(a, b : Quad) : Quad 00023e4e de c0 | | ADDA.W D0,A7 00023e50 4e ba ee 42 |N B | JSR 0x22c94 00023e54 50 4f |PO | ADDQ.L #0x8,A7 00023e56 4c df 00 01 |L | MOVEM.L (A7)+,D0 00023e5a 4e 5e |N^ | UNLK A6 00023e5c 4e 75 |Nu | RTS 00023e5e ; -------------------------------------------------------------------------------------- 00023e5e ; OMSI PASCAL Function 00023e5e ; <LVAR 0x008 4(r)> 00023e5e ; -------------------------------------------------------------------------------------- 00023e5e 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 00023e62 bf d5 | | CMPA.L (A5),A7 00023e64 62 06 |b | BHI 0x23e6c 00023e66 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023e6a 4e 76 |Nv | TRAPV 00023e6c de fc 00 28 | ( | ADDA.W #0x28,A7 00023e70 48 e7 80 00 |H | MOVEM.L D0,-(A7) 00023e74 70 10 |p | MOVEQ.L #0x10,D0 00023e76 9e c0 | | SUBA.W D0,A7 00023e78 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023e7c 48 78 00 01 |Hx | PEA.L 0x1 00023e80 4e ba ed 1a |N | JSR 0x22b9c 00023e84 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023e88 48 78 00 02 |Hx | PEA.L 0x2 00023e8c 4e ba ed 0e |N | JSR 0x22b9c 00023e90 50 4f |PO | ADDQ.L #0x8,A7 00023e92 4e b9 00 01 03 58 |N X | JSR Modulus(a, b : Quad) : Quad 00023e98 de c0 | | ADDA.W D0,A7 00023e9a 4e ba ed f8 |N | JSR 0x22c94 00023e9e 50 4f |PO | ADDQ.L #0x8,A7 00023ea0 4c df 00 01 |L | MOVEM.L (A7)+,D0 00023ea4 4e 5e |N^ | UNLK A6 00023ea6 4e 75 |Nu | RTS 00023ea8 ; -------------------------------------------------------------------------------------- 00023ea8 ; OMSI PASCAL Function 00023ea8 ; <LVAR 0x008 4(r)> 00023ea8 ; -------------------------------------------------------------------------------------- 00023ea8 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 00023eac bf d5 | | CMPA.L (A5),A7 00023eae 62 06 |b | BHI 0x23eb6 00023eb0 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023eb4 4e 76 |Nv | TRAPV 00023eb6 de fc 00 28 | ( | ADDA.W #0x28,A7 00023eba 48 e7 80 00 |H | MOVEM.L D0,-(A7) 00023ebe 70 10 |p | MOVEQ.L #0x10,D0 00023ec0 9e c0 | | SUBA.W D0,A7 00023ec2 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023ec6 48 78 00 01 |Hx | PEA.L 0x1 00023eca 4e ba ec d0 |N | JSR 0x22b9c 00023ece 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023ed2 48 78 00 02 |Hx | PEA.L 0x2 00023ed6 4e ba ec c4 |N | JSR 0x22b9c 00023eda 50 4f |PO | ADDQ.L #0x8,A7 00023edc 4e b9 00 01 03 34 |N 4 | JSR BitOr(a, b : Quad) : Quad 00023ee2 de c0 | | ADDA.W D0,A7 00023ee4 4e ba ed ae |N | JSR 0x22c94 00023ee8 50 4f |PO | ADDQ.L #0x8,A7 00023eea 4c df 00 01 |L | MOVEM.L (A7)+,D0 00023eee 4e 5e |N^ | UNLK A6 00023ef0 4e 75 |Nu | RTS 00023ef2 ; -------------------------------------------------------------------------------------- 00023ef2 ; OMSI PASCAL Function 00023ef2 ; <LVAR 0x008 4(r)> 00023ef2 ; -------------------------------------------------------------------------------------- 00023ef2 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 00023ef6 bf d5 | | CMPA.L (A5),A7 00023ef8 62 06 |b | BHI 0x23f00 00023efa 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023efe 4e 76 |Nv | TRAPV 00023f00 de fc 00 28 | ( | ADDA.W #0x28,A7 00023f04 48 e7 80 00 |H | MOVEM.L D0,-(A7) 00023f08 70 10 |p | MOVEQ.L #0x10,D0 00023f0a 9e c0 | | SUBA.W D0,A7 00023f0c 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023f10 48 78 00 01 |Hx | PEA.L 0x1 00023f14 4e ba ec 86 |N | JSR 0x22b9c 00023f18 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023f1c 48 78 00 02 |Hx | PEA.L 0x2 00023f20 4e ba ec 7a |N z | JSR 0x22b9c 00023f24 50 4f |PO | ADDQ.L #0x8,A7 00023f26 4e b9 00 01 03 30 |N 0 | JSR BitAnd(a, b : Quad) : Quad 00023f2c de c0 | | ADDA.W D0,A7 00023f2e 4e ba ed 64 |N d | JSR 0x22c94 00023f32 50 4f |PO | ADDQ.L #0x8,A7 00023f34 4c df 00 01 |L | MOVEM.L (A7)+,D0 00023f38 4e 5e |N^ | UNLK A6 00023f3a 4e 75 |Nu | RTS 00023f3c ; -------------------------------------------------------------------------------------- 00023f3c ; OMSI PASCAL Function 00023f3c ; <LVAR 0x008 4(r)> 00023f3c ; -------------------------------------------------------------------------------------- 00023f3c 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 00023f40 bf d5 | | CMPA.L (A5),A7 00023f42 62 06 |b | BHI 0x23f4a 00023f44 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023f48 4e 76 |Nv | TRAPV 00023f4a de fc 00 28 | ( | ADDA.W #0x28,A7 00023f4e 48 e7 80 00 |H | MOVEM.L D0,-(A7) 00023f52 70 10 |p | MOVEQ.L #0x10,D0 00023f54 9e c0 | | SUBA.W D0,A7 00023f56 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023f5a 48 78 00 01 |Hx | PEA.L 0x1 00023f5e 4e ba ec 3c |N < | JSR 0x22b9c 00023f62 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023f66 48 78 00 02 |Hx | PEA.L 0x2 00023f6a 4e ba ec 30 |N 0 | JSR 0x22b9c 00023f6e 50 4f |PO | ADDQ.L #0x8,A7 00023f70 4e b9 00 01 03 40 |N @ | JSR BitXor(a, b : Quad) : Quad 00023f76 de c0 | | ADDA.W D0,A7 00023f78 4e ba ed 1a |N | JSR 0x22c94 00023f7c 50 4f |PO | ADDQ.L #0x8,A7 00023f7e 4c df 00 01 |L | MOVEM.L (A7)+,D0 00023f82 4e 5e |N^ | UNLK A6 00023f84 4e 75 |Nu | RTS 00023f86 ; -------------------------------------------------------------------------------------- 00023f86 ; OMSI PASCAL Function 00023f86 ; <LVAR 0x008 4(r)> 00023f86 ; -------------------------------------------------------------------------------------- 00023f86 4e 56 ff e0 |NV | LINK.W A6,#0xffe0 00023f8a bf d5 | | CMPA.L (A5),A7 00023f8c 62 06 |b | BHI 0x23f94 00023f8e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023f92 4e 76 |Nv | TRAPV 00023f94 de fc 00 20 | | ADDA.W #0x20,A7 00023f98 9e fc 00 10 | | SUBA.W #0x10,A7 00023f9c 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023fa0 48 78 00 01 |Hx | PEA.L 0x1 00023fa4 4e ba eb f6 |N | JSR 0x22b9c 00023fa8 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7) 00023fac 48 78 00 02 |Hx | PEA.L 0x2 00023fb0 4e ba ec 26 |N & | JSR 0x22bd8 00023fb4 50 4f |PO | ADDQ.L #0x8,A7 00023fb6 4e b9 00 01 03 44 |N D | JSR BitShift(a : Quad ; howmuch : integer) : Quad 00023fbc de fc 00 0c | | ADDA.W #0xc,A7 00023fc0 4e ba ec d2 |N | JSR 0x22c94 00023fc4 50 4f |PO | ADDQ.L #0x8,A7 00023fc6 4e 5e |N^ | UNLK A6 00023fc8 4e 75 |Nu | RTS 00023fca ; -------------------------------------------------------------------------------------- 00023fca ; OMSI PASCAL Function 00023fca ; <LVAR 0x008 4(r)> 00023fca ; -------------------------------------------------------------------------------------- 00023fca 4e 56 ff e0 |NV | LINK.W A6,#0xffe0 00023fce bf d5 | | CMPA.L (A5),A7 00023fd0 62 06 |b | BHI 0x23fd8 00023fd2 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023fd6 4e 76 |Nv | TRAPV 00023fd8 de fc 00 20 | | ADDA.W #0x20,A7 00023fdc 9e fc 00 10 | | SUBA.W #0x10,A7 00023fe0 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023fe4 48 78 00 01 |Hx | PEA.L 0x1 00023fe8 4e ba eb b2 |N | JSR 0x22b9c 00023fec 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7) 00023ff0 48 78 00 02 |Hx | PEA.L 0x2 00023ff4 4e ba eb e2 |N | JSR 0x22bd8 00023ff8 50 4f |PO | ADDQ.L #0x8,A7 00023ffa 44 97 |D | NEG.L (A7) 00023ffc 4e b9 00 01 03 44 |N D | JSR BitShift(a : Quad ; howmuch : integer) : Quad 00024002 de fc 00 0c | | ADDA.W #0xc,A7 00024006 4e ba ec 8c |N | JSR 0x22c94 0002400a 50 4f |PO | ADDQ.L #0x8,A7 0002400c 4e 5e |N^ | UNLK A6 0002400e 4e 75 |Nu | RTS 00024010 ; -------------------------------------------------------------------------------------- 00024010 ; OMSI PASCAL Function 00024010 ; <LVAR 0x008 4(r)> 00024010 ; -------------------------------------------------------------------------------------- 00024010 4e 56 ff e4 |NV | LINK.W A6,#0xffe4 00024014 bf d5 | | CMPA.L (A5),A7 00024016 62 06 |b | BHI 0x2401e 00024018 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002401c 4e 76 |Nv | TRAPV 0002401e de fc 00 1c | | ADDA.W #0x1c,A7 00024022 9e fc 00 10 | | SUBA.W #0x10,A7 00024026 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 0002402a 48 78 00 01 |Hx | PEA.L 0x1 0002402e 4e ba eb 6c |N l | JSR 0x22b9c 00024032 50 4f |PO | ADDQ.L #0x8,A7 00024034 4e b9 00 01 03 38 |N 8 | JSR BitNot(a : Quad) : Quad 0002403a 50 4f |PO | ADDQ.L #0x8,A7 0002403c 4e ba ec 56 |N V | JSR 0x22c94 00024040 50 4f |PO | ADDQ.L #0x8,A7 00024042 4e 5e |N^ | UNLK A6 00024044 4e 75 |Nu | RTS 00024046 ; -------------------------------------------------------------------------------------- 00024046 ; OMSI PASCAL Function 00024046 ; <LVAR 0x008 4(r)> 00024046 ; <LVAR -0x00c 4(rw)> 00024046 ; <LVAR -0x010 4(rw)> 00024046 ; <LVAR -0x014 4(rw)> 00024046 ; <LVAR -0x018 4(rw)> 00024046 ; -------------------------------------------------------------------------------------- 00024046 4e 56 ff b8 |NV | LINK.W A6,#0xffb8 0002404a bf d5 | | CMPA.L (A5),A7 0002404c 62 06 |b | BHI 0x24054 0002404e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024052 4e 76 |Nv | TRAPV 00024054 de fc 00 30 | 0 | ADDA.W #0x30,A7 00024058 48 e7 03 80 |H | MOVEM.L A0+D7+D6,-(A7) 0002405c 41 ee 00 08 |A | LEA.L (A6+0x8),A0 00024060 51 4f |QO | SUBQ.L #0x8,A7 00024062 2f 10 |/ | MOVE.L (A0),-(A7) 00024064 48 78 00 01 |Hx | PEA.L 0x1 00024068 4e ba eb 32 |N 2 | JSR 0x22b9c 0002406c 50 4f |PO | ADDQ.L #0x8,A7 0002406e 2d 5f ff e8 |-_ | MOVE.L (A7)+,(A6-0x18) 00024072 2d 57 ff ec |-W | MOVE.L (A7),(A6-0x14) 00024076 59 4f |YO | SUBQ.L #0x4,A7 00024078 2f 10 |/ | MOVE.L (A0),-(A7) 0002407a 48 78 00 02 |Hx | PEA.L 0x2 0002407e 4e ba eb 1c |N | JSR 0x22b9c 00024082 50 4f |PO | ADDQ.L #0x8,A7 00024084 2d 5f ff f0 |-_ | MOVE.L (A7)+,(A6-0x10) 00024088 2d 57 ff f4 |-W | MOVE.L (A7),(A6-0xc) 0002408c 2f 10 |/ | MOVE.L (A0),-(A7) 0002408e 48 78 00 03 |Hx | PEA.L 0x3 00024092 4e ba eb 44 |N D | JSR 0x22bd8 00024096 50 4f |PO | ADDQ.L #0x8,A7 00024098 2e 17 |. | MOVE.L (A7),D7 0002409a 2f 10 |/ | MOVE.L (A0),-(A7) 0002409c 48 78 00 04 |Hx | PEA.L 0x4 000240a0 4e ba eb 36 |N 6 | JSR 0x22bd8 000240a4 50 4f |PO | ADDQ.L #0x8,A7 000240a6 2c 17 |, | MOVE.L (A7),D6 000240a8 59 4f |YO | SUBQ.L #0x4,A7 000240aa 2f 2e ff ec |/. | MOVE.L (A6-0x14),-(A7) 000240ae 2f 2e ff e8 |/. | MOVE.L (A6-0x18),-(A7) 000240b2 2f 2e ff f4 |/. | MOVE.L (A6-0xc),-(A7) 000240b6 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7) 000240ba 2f 07 |/ | MOVE.L D7,-(A7) 000240bc 2f 06 |/ | MOVE.L D6,-(A7) 000240be 4e b9 00 01 03 48 |N H | JSR ?BitField_something_() 000240c4 de fc 00 18 | | ADDA.W #0x18,A7 000240c8 4e ba eb ca |N | JSR 0x22c94 000240cc 50 4f |PO | ADDQ.L #0x8,A7 000240ce 4c df 01 c0 |L | MOVEM.L (A7)+,D6+D7+A0 000240d2 4e 5e |N^ | UNLK A6 000240d4 4e 75 |Nu | RTS 000240d6 ; -------------------------------------------------------------------------------------- 000240d6 ; OMSI PASCAL Function 000240d6 ; <LVAR 0x008 4(r)> 000240d6 ; <LVAR -0x00c 4(rw)> 000240d6 ; <LVAR -0x010 4(rw)> 000240d6 ; -------------------------------------------------------------------------------------- 000240d6 4e 56 ff c8 |NV | LINK.W A6,#0xffc8 000240da bf d5 | | CMPA.L (A5),A7 000240dc 62 06 |b | BHI 0x240e4 000240de 44 fc 00 02 |D | MOVE.W #0x2,CCR 000240e2 4e 76 |Nv | TRAPV 000240e4 de fc 00 28 | ( | ADDA.W #0x28,A7 000240e8 48 e7 03 80 |H | MOVEM.L A0+D7+D6,-(A7) 000240ec 41 ee 00 08 |A | LEA.L (A6+0x8),A0 000240f0 51 4f |QO | SUBQ.L #0x8,A7 000240f2 2f 10 |/ | MOVE.L (A0),-(A7) 000240f4 48 78 00 01 |Hx | PEA.L 0x1 000240f8 4e ba ea a2 |N | JSR 0x22b9c 000240fc 50 4f |PO | ADDQ.L #0x8,A7 000240fe 2d 5f ff f0 |-_ | MOVE.L (A7)+,(A6-0x10) 00024102 2d 57 ff f4 |-W | MOVE.L (A7),(A6-0xc) 00024106 2f 10 |/ | MOVE.L (A0),-(A7) 00024108 48 78 00 02 |Hx | PEA.L 0x2 0002410c 4e ba ea ca |N | JSR 0x22bd8 00024110 50 4f |PO | ADDQ.L #0x8,A7 00024112 2e 17 |. | MOVE.L (A7),D7 00024114 2f 10 |/ | MOVE.L (A0),-(A7) 00024116 48 78 00 03 |Hx | PEA.L 0x3 0002411a 4e ba ea bc |N | JSR 0x22bd8 0002411e 50 4f |PO | ADDQ.L #0x8,A7 00024120 2c 17 |, | MOVE.L (A7),D6 00024122 59 4f |YO | SUBQ.L #0x4,A7 00024124 2f 2e ff f4 |/. | MOVE.L (A6-0xc),-(A7) 00024128 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7) 0002412c 2f 07 |/ | MOVE.L D7,-(A7) 0002412e 2f 06 |/ | MOVE.L D6,-(A7) 00024130 4e b9 00 01 03 4c |N L | JSR FSCALL_1034c 00024136 de fc 00 10 | | ADDA.W #0x10,A7 0002413a 4e ba eb 58 |N X | JSR 0x22c94 0002413e 50 4f |PO | ADDQ.L #0x8,A7 00024140 4c df 01 c0 |L | MOVEM.L (A7)+,D6+D7+A0 00024144 4e 5e |N^ | UNLK A6 00024146 4e 75 |Nu | RTS 00024148 ; -------------------------------------------------------------------------------------- 00024148 ; OMSI PASCAL Function 00024148 ; <LVAR 0x008 4(r)> 00024148 ; -------------------------------------------------------------------------------------- 00024148 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 0002414c bf d5 | | CMPA.L (A5),A7 0002414e 62 06 |b | BHI 0x24156 00024150 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024154 4e 76 |Nv | TRAPV 00024156 de fc 00 20 | | ADDA.W #0x20,A7 0002415a 48 e7 01 08 |H | MOVEM.L A4+D7,-(A7) 0002415e 59 4f |YO | SUBQ.L #0x4,A7 00024160 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00024164 4e ba e0 e8 |N | JSR 0x2224e 00024168 58 4f |XO | ADDQ.L #0x4,A7 0002416a 7e 01 |~ | MOVEQ.L #0x01,D7 0002416c be 97 | | CMP.L (A7),D7 0002416e 6e 26 |n& | BGT 0x24196 00024170 59 4f |YO | SUBQ.L #0x4,A7 00024172 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00024176 2f 07 |/ | MOVE.L D7,-(A7) 00024178 4e ba e9 f0 |N | JSR 0x22b6a 0002417c 50 4f |PO | ADDQ.L #0x8,A7 0002417e 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String) 00024184 54 4f |TO | ADDQ.L #0x2,A7 00024186 1e bc 00 20 | | MOVE.B #0x20,(A7) 0002418a 4e b9 00 01 03 d0 |N | JSR WriteConsoleChar(chr : char) 00024190 54 4f |TO | ADDQ.L #0x2,A7 00024192 52 87 |R | ADDQ.L #0x1,D7 00024194 68 d6 |h | BVC 0x2416c 00024196 48 78 00 01 |Hx | PEA.L 0x1 0002419a 4e b9 00 01 03 e4 |N | JSR AskConsoleString(prompt : String) : String 000241a0 58 4f |XO | ADDQ.L #0x4,A7 000241a2 28 5f |(_ | MOVEA.L (A7)+,A4 000241a4 2f 0c |/ | MOVE.L A4,-(A7) 000241a6 4e ba de f2 |N | JSR 0x2209a 000241aa 2e 8c |. | MOVE.L A4,(A7) 000241ac 4e ba ea 5e |N ^ | JSR 0x22c0c 000241b0 58 4f |XO | ADDQ.L #0x4,A7 000241b2 4c df 10 80 |L | MOVEM.L (A7)+,D7+A4 000241b6 4e 5e |N^ | UNLK A6 000241b8 4e 75 |Nu | RTS 000241ba ; -------------------------------------------------------------------------------------- 000241ba ; OMSI PASCAL Function 000241ba ; <LVAR 0x008 4(r)> 000241ba ; -------------------------------------------------------------------------------------- 000241ba 4e 56 ff c8 |NV | LINK.W A6,#0xffc8 000241be bf d5 | | CMPA.L (A5),A7 000241c0 62 06 |b | BHI 0x241c8 000241c2 44 fc 00 02 |D | MOVE.W #0x2,CCR 000241c6 4e 76 |Nv | TRAPV 000241c8 de fc 00 2c | , | ADDA.W #0x2c,A7 000241cc 48 e7 83 88 |H | MOVEM.L A4+A0+D7+D6+D0,-(A7) 000241d0 41 ee 00 08 |A | LEA.L (A6+0x8),A0 000241d4 70 0c |p | MOVEQ.L #0x0c,D0 000241d6 59 4f |YO | SUBQ.L #0x4,A7 000241d8 2f 10 |/ | MOVE.L (A0),-(A7) 000241da 48 78 00 01 |Hx | PEA.L 0x1 000241de 4e ba e9 8a |N | JSR 0x22b6a 000241e2 50 4f |PO | ADDQ.L #0x8,A7 000241e4 28 5f |(_ | MOVEA.L (A7)+,A4 000241e6 9e c0 | | SUBA.W D0,A7 000241e8 2f 10 |/ | MOVE.L (A0),-(A7) 000241ea 48 78 00 02 |Hx | PEA.L 0x2 000241ee 4e ba e9 ac |N | JSR 0x22b9c 000241f2 50 4f |PO | ADDQ.L #0x8,A7 000241f4 4e b9 00 01 03 50 |N P | JSR Quad2Long(a : Quad) : Long 000241fa 50 4f |PO | ADDQ.L #0x8,A7 000241fc 2e 17 |. | MOVE.L (A7),D7 000241fe 51 4f |QO | SUBQ.L #0x8,A7 00024200 2f 10 |/ | MOVE.L (A0),-(A7) 00024202 48 78 00 03 |Hx | PEA.L 0x3 00024206 4e ba e9 94 |N | JSR 0x22b9c 0002420a 50 4f |PO | ADDQ.L #0x8,A7 0002420c 4e b9 00 01 03 50 |N P | JSR Quad2Long(a : Quad) : Long 00024212 50 4f |PO | ADDQ.L #0x8,A7 00024214 2c 17 |, | MOVE.L (A7),D6 00024216 51 4f |QO | SUBQ.L #0x8,A7 00024218 2f 0c |/ | MOVE.L A4,-(A7) 0002421a 2f 07 |/ | MOVE.L D7,-(A7) 0002421c 4e b9 00 01 03 60 |N ` | JSR ?StringToInt64() 00024222 58 4f |XO | ADDQ.L #0x4,A7 00024224 2e 86 |. | MOVE.L D6,(A7) 00024226 4e b9 00 01 03 5c |N \ | JSR Quad2String(a : Quad; radix : Long ) : String 0002422c de c0 | | ADDA.W D0,A7 0002422e 4e ba e9 dc |N | JSR 0x22c0c 00024232 58 4f |XO | ADDQ.L #0x4,A7 00024234 4c df 11 c1 |L | MOVEM.L (A7)+,D0+D6+D7+A0+A4 00024238 4e 5e |N^ | UNLK A6 0002423a 4e 75 |Nu | RTS 0002423c ; -------------------------------------------------------------------------------------- 0002423c ; OMSI PASCAL Function 0002423c ; <LVAR 0x008 4(r)> 0002423c ; <LVAR -0x00a 2(r)> 0002423c ; <LVAR -0x00c 4(rw)> 0002423c ; <LVAR -0x010 4(rw)> 0002423c ; -------------------------------------------------------------------------------------- 0002423c 4e 56 ff bc |NV | LINK.W A6,#0xffbc 00024240 bf d5 | | CMPA.L (A5),A7 00024242 62 06 |b | BHI 0x2424a 00024244 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024248 4e 76 |Nv | TRAPV 0002424a de fc 00 34 | 4 | ADDA.W #0x34,A7 0002424e 48 e7 c3 c0 |H | MOVEM.L A1+A0+D7+D6+D1+D0,-(A7) 00024252 41 ee ff f0 |A | LEA.L (A6-0x10),A0 00024256 43 ee ff f4 |C | LEA.L (A6-0xc),A1 0002425a 51 4f |QO | SUBQ.L #0x8,A7 0002425c 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00024260 48 78 00 01 |Hx | PEA.L 0x1 00024264 4e ba e9 36 |N 6 | JSR 0x22b9c 00024268 50 4f |PO | ADDQ.L #0x8,A7 0002426a 20 9f | | MOVE.L (A7)+,(A0) 0002426c 22 9f |" | MOVE.L (A7)+,(A1) 0002426e 7e 00 |~ | MOVEQ.L #0x00,D7 00024270 7c 00 || | MOVEQ.L #0x00,D6 00024272 30 2e ff f6 |0. | MOVE.W (A6-0xa),D0 00024276 02 40 00 01 | @ | ANDI.W #0x0001,D0 0002427a 42 81 |B | CLR.L D1 0002427c 32 00 |2 | MOVE.W D0,D1 0002427e de 81 | | ADD.L D1,D7 00024280 51 4f |QO | SUBQ.L #0x8,A7 00024282 2f 11 |/ | MOVE.L (A1),-(A7) 00024284 2f 10 |/ | MOVE.L (A0),-(A7) 00024286 48 78 ff ff |Hx | PEA.L 0xffffffff 0002428a 4e b9 00 01 03 44 |N D | JSR BitShift(a : Quad ; howmuch : integer) : Quad 00024290 de fc 00 0c | | ADDA.W #0xc,A7 00024294 20 9f | | MOVE.L (A7)+,(A0) 00024296 22 9f |" | MOVE.L (A7)+,(A1) 00024298 52 86 |R | ADDQ.L #0x1,D6 0002429a 0c 86 00 00 00 3f | ? | CMPI.L #0x0000003f,D6 000242a0 6f d0 |o | BLE 0x24272 000242a2 51 4f |QO | SUBQ.L #0x8,A7 000242a4 2f 07 |/ | MOVE.L D7,-(A7) 000242a6 4e b9 00 01 03 54 |N T | JSR Long2Quad(a : Long) : Quad 000242ac 58 4f |XO | ADDQ.L #0x4,A7 000242ae 4e ba e9 e4 |N | JSR 0x22c94 000242b2 50 4f |PO | ADDQ.L #0x8,A7 000242b4 4c df 03 c3 |L | MOVEM.L (A7)+,D0+D1+D6+D7+A0+A1 000242b8 4e 5e |N^ | UNLK A6 000242ba 4e 75 |Nu | RTS 000242bc ; -------------------------------------------------------------------------------------- 000242bc ; OMSI PASCAL Function 000242bc ; <LVAR 0x008 4(r)> 000242bc ; <LVAR -0x004 @ 1(r)> 000242bc ; -------------------------------------------------------------------------------------- 000242bc 4e 56 ff b8 |NV | LINK.W A6,#0xffb8 000242c0 bf d5 | | CMPA.L (A5),A7 000242c2 62 06 |b | BHI 0x242ca 000242c4 44 fc 00 02 |D | MOVE.W #0x2,CCR 000242c8 4e 76 |Nv | TRAPV 000242ca de fc 00 44 | D | ADDA.W #0x44,A7 000242ce 48 e7 e0 e0 |H | MOVEM.L A2+A1+A0+D2+D1+D0,-(A7) 000242d2 45 f9 00 02 79 8c |E y | LEA.L 0x2798c,A2 000242d8 72 01 |r | MOVEQ.L #0x01,D1 000242da 74 00 |t | MOVEQ.L #0x00,D2 000242dc 4a 12 |J | TST.B (A2) 000242de 66 32 |f2 | BNE 0x24312 000242e0 9e fc 00 1c | | SUBA.W #0x1c,A7 000242e4 20 4f | O | MOVEA.L A7,A0 000242e6 43 fa d7 b4 |C | LEA.L 0x21a9c,A1 000242ea 70 1a |p | MOVEQ.L #0x1a,D0 000242ec 10 d9 | | MOVE.B (A1)+,(A0)+ 000242ee 51 c8 ff fc |Q | DBF D0,0x242ec 000242f2 59 4f |YO | SUBQ.L #0x4,A7 000242f4 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000242f8 3f 01 |? | MOVE.W D1,-(A7) 000242fa 3f 3c 00 1b |?< | MOVE.W #0x1b,-(A7) 000242fe 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00024304 50 4f |PO | ADDQ.L #0x8,A7 00024306 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002430c de fc 00 20 | | ADDA.W #0x20,A7 00024310 14 81 | | MOVE.B D1,(A2) 00024312 5d 4f |]O | SUBQ.L #0x6,A7 00024314 4e b9 00 01 03 f8 |N | JSR GetConsoleConfig() : Long 0002431a 20 1f | | MOVE.L (A7)+,D0 0002431c 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 00024322 63 02 |c | BLS 0x24326 00024324 4e 4f |NO | TRAP #15 00024326 3e 80 |> | MOVE.W D0,(A7) 00024328 48 6e ff fc |Hn | PEA.L (A6-0x4) 0002432c 4e b9 00 01 02 12 |N | JSR KC09_PortStatus(Port : Word; VAR b: Byte) 00024332 5c 4f |\O | ADDQ.L #0x6,A7 00024334 10 2e ff fc | . | MOVE.B (A6-0x4),D0 00024338 b0 01 | | CMP.B D1,D0 0002433a 67 16 |g | BEQ 0x24352 0002433c 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00024340 4e ba da be |N | JSR 0x21e00 00024344 58 4f |XO | ADDQ.L #0x4,A7 00024346 2e 6d 00 08 |.m | MOVEA.L (A5+0x8),A7 0002434a 3c 42 |<B | MOVEA.W D2,A6 0002434c 4e f9 00 02 56 e4 |N V | JMP 0x256e4 00024352 55 4f |UO | SUBQ.L #0x2,A7 00024354 4e b9 00 01 03 d4 |N | JSR ReadChar() : Byte 0002435a 10 1f | | MOVE.B (A7)+,D0 0002435c 0c 00 00 07 | | CMPI.B #0x07,D0 00024360 67 16 |g | BEQ 0x24378 00024362 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00024366 4e ba da 98 |N | JSR 0x21e00 0002436a 58 4f |XO | ADDQ.L #0x4,A7 0002436c 2e 6d 00 08 |.m | MOVEA.L (A5+0x8),A7 00024370 3c 42 |<B | MOVEA.W D2,A6 00024372 4e f9 00 02 56 e4 |N V | JMP 0x256e4 00024378 4c df 07 07 |L | MOVEM.L (A7)+,D0+D1+D2+A0+A1+A2 0002437c 4e 5e |N^ | UNLK A6 0002437e 4e 75 |Nu | RTS 00024380 ; -------------------------------------------------------------------------------------- 00024380 ; OMSI PASCAL Function 00024380 ; -------------------------------------------------------------------------------------- 00024380 4e 56 ff f8 |NV | LINK.W A6,#0xfff8 00024384 bf d5 | | CMPA.L (A5),A7 00024386 62 06 |b | BHI 0x2438e 00024388 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002438c 4e 76 |Nv | TRAPV 0002438e de fc 00 08 | | ADDA.W #0x8,A7 00024392 48 78 00 c8 |Hx | PEA.L 0xc8 00024396 4e ba e9 30 |N 0 | JSR 0x22cc8 0002439a 58 4f |XO | ADDQ.L #0x4,A7 0002439c 4e 5e |N^ | UNLK A6 0002439e 4e 75 |Nu | RTS 000243a0 ; -------------------------------------------------------------------------------------- 000243a0 ; OMSI PASCAL Function 000243a0 ; <LVAR 0x008 4(r)> 000243a0 ; <LVAR -0x00c @ 4(r)> 000243a0 ; -------------------------------------------------------------------------------------- 000243a0 4e 56 ff ac |NV | LINK.W A6,#0xffac 000243a4 bf d5 | | CMPA.L (A5),A7 000243a6 62 06 |b | BHI 0x243ae 000243a8 44 fc 00 02 |D | MOVE.W #0x2,CCR 000243ac 4e 76 |Nv | TRAPV 000243ae de fc 00 48 | H | ADDA.W #0x48,A7 000243b2 48 e7 83 c0 |H | MOVEM.L A1+A0+D7+D6+D0,-(A7) 000243b6 43 ee ff f4 |C | LEA.L (A6-0xc),A1 000243ba 48 51 |HQ | PEA.L (A1) 000243bc 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 000243c2 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000243c6 4e ba de 86 |N | JSR 0x2224e 000243ca 58 4f |XO | ADDQ.L #0x4,A7 000243cc 7e 01 |~ | MOVEQ.L #0x01,D7 000243ce be 97 | | CMP.L (A7),D7 000243d0 6e 6a |nj | BGT 0x2443c 000243d2 59 4f |YO | SUBQ.L #0x4,A7 000243d4 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000243d8 2f 07 |/ | MOVE.L D7,-(A7) 000243da 4e ba e7 fc |N | JSR 0x22bd8 000243de 50 4f |PO | ADDQ.L #0x8,A7 000243e0 2c 1f |, | MOVE.L (A7)+,D6 000243e2 6d 20 |m | BLT 0x24404 000243e4 0c 86 00 00 00 ff | | CMPI.L #0x000000ff,D6 000243ea 6e 18 |n | BGT 0x24404 000243ec 2f 11 |/ | MOVE.L (A1),-(A7) 000243ee 0c 86 00 00 00 ff | | CMPI.L #0x000000ff,D6 000243f4 63 02 |c | BLS 0x243f8 000243f6 4e 4f |NO | TRAP #15 000243f8 1f 06 | | MOVE.B D6,-(A7) 000243fa 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00024400 5c 4f |\O | ADDQ.L #0x6,A7 00024402 60 34 |`4 | BRA 0x24438 00024404 48 51 |HQ | PEA.L (A1) 00024406 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 0002440c 58 4f |XO | ADDQ.L #0x4,A7 0002440e 41 fa d6 c4 |A | LEA.L 0x21ad4,A0 00024412 70 06 |p | MOVEQ.L #0x06,D0 00024414 2f 20 |/ | MOVE.L -(A0),-(A7) 00024416 51 c8 ff fc |Q | DBF D0,0x24414 0002441a 59 4f |YO | SUBQ.L #0x4,A7 0002441c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00024420 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00024424 3f 3c 00 1c |?< | MOVE.W #0x1c,-(A7) 00024428 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002442e 50 4f |PO | ADDQ.L #0x8,A7 00024430 4e ba da 10 |N | JSR 0x21e42 00024434 de fc 00 20 | | ADDA.W #0x20,A7 00024438 52 87 |R | ADDQ.L #0x1,D7 0002443a 68 92 |h | BVC 0x243ce 0002443c 2e 91 |. | MOVE.L (A1),(A7) 0002443e 4e ba e7 cc |N | JSR 0x22c0c 00024442 58 4f |XO | ADDQ.L #0x4,A7 00024444 4c df 03 c1 |L | MOVEM.L (A7)+,D0+D6+D7+A0+A1 00024448 4e 5e |N^ | UNLK A6 0002444a 4e 75 |Nu | RTS 0002444c ; -------------------------------------------------------------------------------------- 0002444c ; OMSI PASCAL Function 0002444c ; <LVAR 0x00c 1(rw)> 0002444c ; <LVAR 0x008 4(r)> 0002444c ; -------------------------------------------------------------------------------------- 0002444c 4e 56 ff c0 |NV | LINK.W A6,#0xffc0 00024450 bf d5 | | CMPA.L (A5),A7 00024452 62 06 |b | BHI 0x2445a 00024454 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024458 4e 76 |Nv | TRAPV 0002445a de fc 00 34 | 4 | ADDA.W #0x34,A7 0002445e 48 e7 e7 c0 |H | MOVEM.L A1+A0+D7+D6+D5+D2+D1+D0,-(A7) 00024462 42 2e 00 0c |B. | CLR.B (A6+0xc) 00024466 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 0002446a 2f 08 |/ | MOVE.L A0,-(A7) 0002446c 70 00 |p | MOVEQ.L #0x00,D0 0002446e 52 40 |R@ | ADDQ.W #0x1,D0 00024470 1c 00 | | MOVE.B D0,D6 00024472 0c 06 00 2b | + | CMPI.B #0x2b,D6 00024476 6e 00 00 82 |n | BGT 0x244fa 0002447a 41 fa d8 b2 |A | LEA.L 0x21d2e,A0 0002447e 10 06 | | MOVE.B D6,D0 00024480 48 80 |H | EXTB.W D0 00024482 48 c0 |H | EXTW.L D0 00024484 e2 98 | | ROR.L #0x1,D0 00024486 d0 c0 | | ADDA.W D0,A0 00024488 48 40 |H@ | SWAP.W D0 0002448a e7 58 | X | ROL.W #0x3,D0 0002448c 42 81 |B | CLR.L D1 0002448e 12 10 | | MOVE.B (A0),D1 00024490 e1 29 | ) | LSL.B D0,D1 00024492 e8 09 | | LSR.B #0x4,D1 00024494 2a 01 |* | MOVE.L D1,D5 00024496 20 57 | W | MOVEA.L (A7),A0 00024498 30 10 |0 | MOVE.W (A0),D0 0002449a 48 c0 |H | EXTW.L D0 0002449c ba 80 | | CMP.L D0,D5 0002449e 66 54 |fT | BNE 0x244f4 000244a0 2f 05 |/ | MOVE.L D5,-(A7) 000244a2 7e 01 |~ | MOVEQ.L #0x01,D7 000244a4 be 97 | | CMP.L (A7),D7 000244a6 6e 42 |nB | BGT 0x244ea 000244a8 10 06 | | MOVE.B D6,D0 000244aa 48 80 |H | EXTB.W D0 000244ac c1 fc 00 0a | | MULS.W #0xa,D0 000244b0 22 07 |" | MOVE.L D7,D1 000244b2 53 81 |S | SUBQ.L #0x1,D1 000244b4 0c 81 00 00 00 7d | } | CMPI.L #0x0000007d,D1 000244ba 63 02 |c | BLS 0x244be 000244bc 4e 4f |NO | TRAP #15 000244be 20 6f 00 04 | o | MOVEA.L (A7+0x4),A0 000244c2 43 fa d6 b2 |C | LEA.L COMMAND_TABLE_21b76,A1 000244c6 24 07 |$ | MOVE.L D7,D2 000244c8 53 82 |S | SUBQ.L #0x1,D2 000244ca 0c 82 00 00 00 09 | | CMPI.L #0x00000009,D2 000244d0 63 02 |c | BLS 0x244d4 000244d2 4e 4f |NO | TRAP #15 000244d4 43 f1 00 00 |C | LEA.L (A1+D0.W),A1 000244d8 10 30 18 02 | 0 | MOVE.B (A0+D1.L+#0x2),D0 000244dc b0 31 28 00 | 1( | CMP.B (A1+D2.L),D0 000244e0 67 04 |g | BEQ 0x244e6 000244e2 58 4f |XO | ADDQ.L #0x4,A7 000244e4 60 0e |` | BRA 0x244f4 000244e6 52 87 |R | ADDQ.L #0x1,D7 000244e8 68 ba |h | BVC 0x244a4 000244ea 58 4f |XO | ADDQ.L #0x4,A7 000244ec 1d 46 00 0c | F | MOVE.B D6,(A6+0xc) 000244f0 58 4f |XO | ADDQ.L #0x4,A7 000244f2 60 08 |` | BRA 0x244fc 000244f4 52 06 |R | ADDQ.B #0x1,D6 000244f6 68 00 ff 7a |h z | BVC 0x24472 000244fa 58 4f |XO | ADDQ.L #0x4,A7 000244fc 4c df 03 e7 |L | MOVEM.L (A7)+,D0+D1+D2+D5+D6+D7+A0+A1 00024500 4e 5e |N^ | UNLK A6 00024502 4e 75 |Nu | RTS 00024504 ; -------------------------------------------------------------------------------------- 00024504 ; OMSI PASCAL Function 00024504 ; <LVAR 0x00c 4(r)> 00024504 ; <LVAR 0x008 4(r)> 00024504 ; <LVAR -0x002 @ 1(r)> 00024504 ; <LVAR -0x006 @ 4(w)> 00024504 ; <LVAR -0x008 @ 1(r)> 00024504 ; <LVAR -0x00c @ 4(r)> 00024504 ; <LVAR -0x010 @ 4(rw)> 00024504 ; -------------------------------------------------------------------------------------- 00024504 4e 56 ff a6 |NV | LINK.W A6,#0xffa6 00024508 bf d5 | | CMPA.L (A5),A7 0002450a 62 06 |b | BHI 0x24512 0002450c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024510 4e 76 |Nv | TRAPV 00024512 de fc 00 4a | J | ADDA.W #0x4a,A7 00024516 48 e7 c0 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D1+D0,-(A7) 0002451a 45 ee ff f0 |E | LEA.L (A6-0x10),A2 0002451e 47 ee ff fe |G | LEA.L (A6-0x2),A3 00024522 49 ee ff f4 |I | LEA.L (A6-0xc),A4 00024526 72 01 |r | MOVEQ.L #0x01,D1 00024528 59 4f |YO | SUBQ.L #0x4,A7 0002452a 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 0002452e 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 00024534 58 4f |XO | ADDQ.L #0x4,A7 00024536 24 9f |$ | MOVE.L (A7)+,(A2) 00024538 2f 12 |/ | MOVE.L (A2),-(A7) 0002453a 1f 3c 00 2e | < . | MOVE.B #0x2e,-(A7) 0002453e 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00024544 5c 4f |\O | ADDQ.L #0x6,A7 00024546 41 f9 00 02 79 6c |A yl | LEA.L 0x2796c,A0 0002454c 70 04 |p | MOVEQ.L #0x04,D0 0002454e 3f 20 |? | MOVE.W -(A0),-(A7) 00024550 51 c8 ff fc |Q | DBF D0,0x2454e 00024554 59 4f |YO | SUBQ.L #0x4,A7 00024556 2f 12 |/ | MOVE.L (A2),-(A7) 00024558 59 4f |YO | SUBQ.L #0x4,A7 0002455a 48 6f 00 0c |Ho | PEA.L (A7+0xc) 0002455e 3f 01 |? | MOVE.W D1,-(A7) 00024560 3f 3c 00 0a |?< | MOVE.W #0xa,-(A7) 00024564 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002456a 50 4f |PO | ADDQ.L #0x8,A7 0002456c 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00024572 50 4f |PO | ADDQ.L #0x8,A7 00024574 24 9f |$ | MOVE.L (A7)+,(A2) 00024576 5c 4f |\O | ADDQ.L #0x6,A7 00024578 2e 92 |. | MOVE.L (A2),(A7) 0002457a 42 27 |B' | CLR.B -(A7) 0002457c 1f 01 | | MOVE.B D1,-(A7) 0002457e 48 78 00 00 |Hx | PEA.L 0x0 00024582 48 53 |HS | PEA.L (A3) 00024584 48 54 |HT | PEA.L (A4) 00024586 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File) 0002458c de fc 00 14 | | ADDA.W #0x14,A7 00024590 4a 13 |J | TST.B (A3) 00024592 67 4a |gJ | BEQ 0x245de 00024594 48 52 |HR | PEA.L (A2) 00024596 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 0002459c 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7) 000245a0 4e ba d8 5e |N ^ | JSR 0x21e00 000245a4 9e fc 00 16 | | SUBA.W #0x16,A7 000245a8 20 4f | O | MOVEA.L A7,A0 000245aa 43 fa d5 28 |C ( | LEA.L 0x21ad4,A1 000245ae 70 18 |p | MOVEQ.L #0x18,D0 000245b0 10 d9 | | MOVE.B (A1)+,(A0)+ 000245b2 51 c8 ff fc |Q | DBF D0,0x245b0 000245b6 51 4f |QO | SUBQ.L #0x8,A7 000245b8 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000245bc 3f 01 |? | MOVE.W D1,-(A7) 000245be 3f 3c 00 19 |?< | MOVE.W #0x19,-(A7) 000245c2 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000245c8 58 4f |XO | ADDQ.L #0x4,A7 000245ca 2e ae 00 0c |. | MOVE.L (A6+0xc),(A7) 000245ce 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000245d4 50 4f |PO | ADDQ.L #0x8,A7 000245d6 4e ba d8 6a |N j | JSR 0x21e42 000245da de fc 00 1e | | ADDA.W #0x1e,A7 000245de 2d 79 00 02 79 5a ff fa |-y yZ | MOVE.L 0x2795a,(A6-0x6) 000245e6 2f 14 |/ | MOVE.L (A4),-(A7) 000245e8 48 52 |HR | PEA.L (A2) 000245ea 48 6e ff f8 |Hn | PEA.L (A6-0x8) 000245ee 4e b9 00 01 04 3c |N < | JSR FileReadLine(file : File; VAR a : String; VAR b : Byte) 000245f4 de fc 00 0c | | ADDA.W #0xc,A7 000245f8 20 52 | R | MOVEA.L (A2),A0 000245fa 4a 50 |JP | TST.W (A0) 000245fc 67 14 |g | BEQ 0x24612 000245fe 2f 12 |/ | MOVE.L (A2),-(A7) 00024600 4e ba da 98 |N | JSR 0x2209a 00024604 58 4f |XO | ADDQ.L #0x4,A7 00024606 48 6e ff fa |Hn | PEA.L (A6-0x6) 0002460a 2f 12 |/ | MOVE.L (A2),-(A7) 0002460c 4e ba de 12 |N | JSR 0x22420 00024610 50 4f |PO | ADDQ.L #0x8,A7 00024612 4a 2e ff f8 |J. | TST.B (A6-0x8) 00024616 67 ce |g | BEQ 0x245e6 00024618 42 27 |B' | CLR.B -(A7) 0002461a 1f 01 | | MOVE.B D1,-(A7) 0002461c 48 78 00 01 |Hx | PEA.L 0x1 00024620 48 53 |HS | PEA.L (A3) 00024622 48 54 |HT | PEA.L (A4) 00024624 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File) 0002462a de fc 00 10 | | ADDA.W #0x10,A7 0002462e 48 52 |HR | PEA.L (A2) 00024630 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00024636 58 4f |XO | ADDQ.L #0x4,A7 00024638 4c df 1f 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2+A3+A4 0002463c 4e 5e |N^ | UNLK A6 0002463e 4e 75 |Nu | RTS 00024640 ; -------------------------------------------------------------------------------------- 00024640 ; OMSI PASCAL Function 00024640 ; <LVAR 0x014 1(w)> 00024640 ; <LVAR 0x00c 4(r)> 00024640 ; <LVAR 0x008 4(r)> 00024640 ; -------------------------------------------------------------------------------------- 00024640 4e 56 ff f4 |NV | LINK.W A6,#0xfff4 00024644 bf d5 | | CMPA.L (A5),A7 00024646 62 06 |b | BHI 0x2464e 00024648 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002464c 4e 76 |Nv | TRAPV 0002464e de fc 00 0c | | ADDA.W #0xc,A7 00024652 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 00024656 20 2e 00 0c | . | MOVE.L (A6+0xc),D0 0002465a d0 ae 00 08 | | ADD.L (A6+0x8),D0 0002465e 53 80 |S | SUBQ.L #0x1,D0 00024660 53 80 |S | SUBQ.L #0x1,D0 00024662 0c 80 00 00 1f ff | | CMPI.L #0x00001fff,D0 00024668 63 02 |c | BLS 0x2466c 0002466a 4e 4f |NO | TRAP #15 0002466c 41 f9 00 02 59 52 |A YR | LEA.L 0x25952,A0 00024672 1d 70 08 08 00 14 | p | MOVE.B (A0+D0.L+#0x8),(A6+0x14) 00024678 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 0002467c 4e 5e |N^ | UNLK A6 0002467e 4e 75 |Nu | RTS 00024680 ; -------------------------------------------------------------------------------------- 00024680 ; OMSI PASCAL Function 00024680 ; <LVAR 0x010 4(w)> 00024680 ; <LVAR 0x00c 4(r)> 00024680 ; <LVAR 0x008 4(r)> 00024680 ; <LVAR -0x004 @ 1(r)> 00024680 ; <LVAR -0x008 @ 4(r)> 00024680 ; -------------------------------------------------------------------------------------- 00024680 4e 56 ff c4 |NV | LINK.W A6,#0xffc4 00024684 bf d5 | | CMPA.L (A5),A7 00024686 62 06 |b | BHI 0x2468e 00024688 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002468c 4e 76 |Nv | TRAPV 0002468e de fc 00 34 | 4 | ADDA.W #0x34,A7 00024692 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7) 00024696 59 4f |YO | SUBQ.L #0x4,A7 00024698 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 0002469c 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000246a0 4e ba e4 4c |N L | JSR 0x22aee 000246a4 50 4f |PO | ADDQ.L #0x8,A7 000246a6 48 6e ff fc |Hn | PEA.L (A6-0x4) 000246aa 48 6e ff f8 |Hn | PEA.L (A6-0x8) 000246ae 4e b9 00 01 02 ec |N | JSR String2Long(src : String; VAR status : Bool; VAR retval : Long) 000246b4 de fc 00 0c | | ADDA.W #0xc,A7 000246b8 4a 2e ff fc |J. | TST.B (A6-0x4) 000246bc 66 30 |f0 | BNE 0x246ee 000246be 9e fc 00 18 | | SUBA.W #0x18,A7 000246c2 20 4f | O | MOVEA.L A7,A0 000246c4 43 fa d4 28 |C ( | LEA.L 0x21aee,A1 000246c8 70 16 |p | MOVEQ.L #0x16,D0 000246ca 10 d9 | | MOVE.B (A1)+,(A0)+ 000246cc 51 c8 ff fc |Q | DBF D0,0x246ca 000246d0 59 4f |YO | SUBQ.L #0x4,A7 000246d2 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000246d6 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000246da 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7) 000246de 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000246e4 50 4f |PO | ADDQ.L #0x8,A7 000246e6 4e ba d7 5a |N Z | JSR 0x21e42 000246ea de fc 00 1c | | ADDA.W #0x1c,A7 000246ee 2d 6e ff f8 00 10 |-n | MOVE.L (A6-0x8),(A6+0x10) 000246f4 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1 000246f8 4e 5e |N^ | UNLK A6 000246fa 4e 75 |Nu | RTS 000246fc ; -------------------------------------------------------------------------------------- 000246fc ; OMSI PASCAL Function 000246fc ; <LVAR 0x014 4(r)> 000246fc ; <LVAR 0x010 4(r)> 000246fc ; <LVAR 0x00c 4(r)> 000246fc ; <LVAR 0x008 4(r)> 000246fc ; <LVAR -0x00c 4(rw)> 000246fc ; <LVAR -0x010 4(rw)> 000246fc ; <LVAR -0x014 4(rw)> 000246fc ; <LVAR -0x018 4(w)> 000246fc ; <LVAR -0x020 4(rw)> 000246fc ; -------------------------------------------------------------------------------------- 000246fc 4e 56 ff 8e |NV | LINK.W A6,#0xff8e 00024700 bf d5 | | CMPA.L (A5),A7 00024702 62 06 |b | BHI 0x2470a 00024704 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024708 4e 76 |Nv | TRAPV 0002470a de fc 00 4e | N | ADDA.W #0x4e,A7 0002470e 48 e7 c7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D1+D0,-(A7) 00024712 43 ee ff e0 |C | LEA.L (A6-0x20),A1 00024716 45 ee ff f0 |E | LEA.L (A6-0x10),A2 0002471a 47 ee ff f4 |G | LEA.L (A6-0xc),A3 0002471e 49 ee ff ec |I | LEA.L (A6-0x14),A4 00024722 7e 00 |~ | MOVEQ.L #0x00,D7 00024724 22 ae 00 14 |" | MOVE.L (A6+0x14),(A1) 00024728 20 39 00 02 79 5a | 9 yZ | MOVE.L 0x2795a,D0 0002472e 90 ae 00 14 | | SUB.L (A6+0x14),D0 00024732 28 80 |( | MOVE.L D0,(A4) 00024734 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00024738 2a 2e 00 10 |*. | MOVE.L (A6+0x10),D5 0002473c ba 97 | | CMP.L (A7),D5 0002473e 6e 2c |n, | BGT 0x2476c 00024740 51 4f |QO | SUBQ.L #0x8,A7 00024742 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00024746 2f 05 |/ | MOVE.L D5,-(A7) 00024748 4e ba e3 42 |N B | JSR 0x22a8c 0002474c 50 4f |PO | ADDQ.L #0x8,A7 0002474e 24 9f |$ | MOVE.L (A7)+,(A2) 00024750 26 97 |& | MOVE.L (A7),(A3) 00024752 2f 13 |/ | MOVE.L (A3),-(A7) 00024754 2f 12 |/ | MOVE.L (A2),-(A7) 00024756 4e ba e2 fc |N | JSR 0x22a54 0002475a 50 4f |PO | ADDQ.L #0x8,A7 0002475c 2c 1f |, | MOVE.L (A7)+,D6 0002475e de 86 | | ADD.L D6,D7 00024760 ba ae 00 0c | | CMP.L (A6+0xc),D5 00024764 6c 02 |l | BGE 0x24768 00024766 52 87 |R | ADDQ.L #0x1,D7 00024768 52 85 |R | ADDQ.L #0x1,D5 0002476a 68 d0 |h | BVC 0x2473c 0002476c 58 4f |XO | ADDQ.L #0x4,A7 0002476e 20 11 | | MOVE.L (A1),D0 00024770 d0 94 | | ADD.L (A4),D0 00024772 2d 40 ff e8 |-@ | MOVE.L D0,(A6-0x18) 00024776 be 94 | | CMP.L (A4),D7 00024778 67 0c |g | BEQ 0x24786 0002477a 2f 00 |/ | MOVE.L D0,-(A7) 0002477c 2f 14 |/ | MOVE.L (A4),-(A7) 0002477e 9f 97 | | SUB.L D7,(A7) 00024780 4e ba dc 14 |N | JSR 0x22396 00024784 50 4f |PO | ADDQ.L #0x8,A7 00024786 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 0002478a 2a 2e 00 10 |*. | MOVE.L (A6+0x10),D5 0002478e ba 97 | | CMP.L (A7),D5 00024790 6e 00 00 88 |n | BGT 0x2481a 00024794 51 4f |QO | SUBQ.L #0x8,A7 00024796 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 0002479a 2f 05 |/ | MOVE.L D5,-(A7) 0002479c 4e ba e2 ee |N | JSR 0x22a8c 000247a0 50 4f |PO | ADDQ.L #0x8,A7 000247a2 24 9f |$ | MOVE.L (A7)+,(A2) 000247a4 26 97 |& | MOVE.L (A7),(A3) 000247a6 2f 13 |/ | MOVE.L (A3),-(A7) 000247a8 2f 12 |/ | MOVE.L (A2),-(A7) 000247aa 4e ba e2 a8 |N | JSR 0x22a54 000247ae 50 4f |PO | ADDQ.L #0x8,A7 000247b0 2c 1f |, | MOVE.L (A7)+,D6 000247b2 2f 06 |/ | MOVE.L D6,-(A7) 000247b4 70 01 |p | MOVEQ.L #0x01,D0 000247b6 b0 97 | | CMP.L (A7),D0 000247b8 6e 30 |n0 | BGT 0x247ea 000247ba 22 11 |" | MOVE.L (A1),D1 000247bc d2 80 | | ADD.L D0,D1 000247be 53 81 |S | SUBQ.L #0x1,D1 000247c0 53 81 |S | SUBQ.L #0x1,D1 000247c2 0c 81 00 00 1f ff | | CMPI.L #0x00001fff,D1 000247c8 63 02 |c | BLS 0x247cc 000247ca 4e 4f |NO | TRAP #15 000247cc 41 f9 00 02 59 52 |A YR | LEA.L 0x25952,A0 000247d2 55 4f |UO | SUBQ.L #0x2,A7 000247d4 2f 13 |/ | MOVE.L (A3),-(A7) 000247d6 2f 12 |/ | MOVE.L (A2),-(A7) 000247d8 2f 00 |/ | MOVE.L D0,-(A7) 000247da 4e ba fe 64 |N d | JSR 0x24640 000247de de fc 00 0c | | ADDA.W #0xc,A7 000247e2 11 9f 18 08 | | MOVE.B (A7)+,(A0+D1.L+#0x8) 000247e6 52 80 |R | ADDQ.L #0x1,D0 000247e8 68 cc |h | BVC 0x247b6 000247ea 58 4f |XO | ADDQ.L #0x4,A7 000247ec ba ae 00 0c | | CMP.L (A6+0xc),D5 000247f0 6c 22 |l" | BGE 0x24814 000247f2 20 11 | | MOVE.L (A1),D0 000247f4 d0 86 | | ADD.L D6,D0 000247f6 22 00 |" | MOVE.L D0,D1 000247f8 53 81 |S | SUBQ.L #0x1,D1 000247fa 0c 81 00 00 1f ff | | CMPI.L #0x00001fff,D1 00024800 63 02 |c | BLS 0x24804 00024802 4e 4f |NO | TRAP #15 00024804 41 f9 00 02 59 52 |A YR | LEA.L 0x25952,A0 0002480a 11 bc 00 2c 18 08 | , | MOVE.B #0x2c,(A0+D1.L+#0x8) 00024810 52 80 |R | ADDQ.L #0x1,D0 00024812 22 80 |" | MOVE.L D0,(A1) 00024814 52 85 |R | ADDQ.L #0x1,D5 00024816 68 00 ff 76 |h v | BVC 0x2478e 0002481a 58 4f |XO | ADDQ.L #0x4,A7 0002481c 4c df 1f e3 |L | MOVEM.L (A7)+,D0+D1+D5+D6+D7+A0+A1+A2+A3+A4 00024820 4e 5e |N^ | UNLK A6 00024822 4e 75 |Nu | RTS 00024824 ; -------------------------------------------------------------------------------------- 00024824 ; OMSI PASCAL Function 00024824 ; <LVAR 0x018 4(rw)> 00024824 ; <LVAR 0x014 4(r)> 00024824 ; <LVAR 0x010 4(r)> 00024824 ; <LVAR 0x00c 4(r)> 00024824 ; <LVAR 0x008 4(r)> 00024824 ; <LVAR -0x008 4(rw)> 00024824 ; <LVAR -0x00c 4(rw)> 00024824 ; <LVAR -0x018 4(w)> 00024824 ; -------------------------------------------------------------------------------------- 00024824 4e 56 ff 9e |NV | LINK.W A6,#0xff9e 00024828 bf d5 | | CMPA.L (A5),A7 0002482a 62 06 |b | BHI 0x24832 0002482c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024830 4e 76 |Nv | TRAPV 00024832 de fc 00 4a | J | ADDA.W #0x4a,A7 00024836 48 e7 c7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D1+D0,-(A7) 0002483a 41 ee ff f8 |A | LEA.L (A6-0x8),A0 0002483e 43 ee 00 14 |C | LEA.L (A6+0x14),A1 00024842 45 ee 00 10 |E | LEA.L (A6+0x10),A2 00024846 47 ee ff f4 |G | LEA.L (A6-0xc),A3 0002484a 49 fa fd f4 |I | LEA.L 0x24640,A4 0002484e 72 0c |r | MOVEQ.L #0x0c,D1 00024850 59 4f |YO | SUBQ.L #0x4,A7 00024852 2f 11 |/ | MOVE.L (A1),-(A7) 00024854 2f 12 |/ | MOVE.L (A2),-(A7) 00024856 4e ba e1 fc |N | JSR 0x22a54 0002485a 50 4f |PO | ADDQ.L #0x8,A7 0002485c 26 97 |& | MOVE.L (A7),(A3) 0002485e 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00024862 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00024866 4e ba e1 ec |N | JSR 0x22a54 0002486a 50 4f |PO | ADDQ.L #0x8,A7 0002486c 20 9f | | MOVE.L (A7)+,(A0) 0002486e 52 90 |R | ADDQ.L #0x1,(A0) 00024870 20 13 | | MOVE.L (A3),D0 00024872 90 90 | | SUB.L (A0),D0 00024874 52 80 |R | ADDQ.L #0x1,D0 00024876 2f 00 |/ | MOVE.L D0,-(A7) 00024878 70 01 |p | MOVEQ.L #0x01,D0 0002487a b0 97 | | CMP.L (A7),D0 0002487c 6e 00 00 8e |n | BGT 0x2490c 00024880 2d 40 ff e8 |-@ | MOVE.L D0,(A6-0x18) 00024884 2f 00 |/ | MOVE.L D0,-(A7) 00024886 7c 00 || | MOVEQ.L #0x00,D6 00024888 2f 10 |/ | MOVE.L (A0),-(A7) 0002488a 7a 01 |z | MOVEQ.L #0x01,D5 0002488c ba 97 | | CMP.L (A7),D5 0002488e 6e 42 |nB | BGT 0x248d2 00024890 0c 85 00 00 00 01 | | CMPI.L #0x00000001,D5 00024896 66 04 |f | BNE 0x2489c 00024898 7e 2f |~/ | MOVEQ.L #0x2f,D7 0002489a 60 14 |` | BRA 0x248b0 0002489c 55 4f |UO | SUBQ.L #0x2,A7 0002489e 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 000248a2 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000248a6 2f 05 |/ | MOVE.L D5,-(A7) 000248a8 53 97 |S | SUBQ.L #0x1,(A7) 000248aa 4e 94 |N | JSR (A4) 000248ac de c1 | | ADDA.W D1,A7 000248ae 1e 1f | | MOVE.B (A7)+,D7 000248b0 55 4f |UO | SUBQ.L #0x2,A7 000248b2 2f 11 |/ | MOVE.L (A1),-(A7) 000248b4 2f 12 |/ | MOVE.L (A2),-(A7) 000248b6 20 2f 00 0e | / | MOVE.L (A7+0xe),D0 000248ba d0 85 | | ADD.L D5,D0 000248bc 53 80 |S | SUBQ.L #0x1,D0 000248be 2f 00 |/ | MOVE.L D0,-(A7) 000248c0 4e 94 |N | JSR (A4) 000248c2 de c1 | | ADDA.W D1,A7 000248c4 be 1f | | CMP.B (A7)+,D7 000248c6 67 04 |g | BEQ 0x248cc 000248c8 58 4f |XO | ADDQ.L #0x4,A7 000248ca 60 08 |` | BRA 0x248d4 000248cc 2c 05 |, | MOVE.L D5,D6 000248ce 52 85 |R | ADDQ.L #0x1,D5 000248d0 68 ba |h | BVC 0x2488c 000248d2 58 4f |XO | ADDQ.L #0x4,A7 000248d4 bc 90 | | CMP.L (A0),D6 000248d6 66 2c |f, | BNE 0x24904 000248d8 20 17 | | MOVE.L (A7),D0 000248da 2d 40 00 18 |-@ | MOVE.L D0,(A6+0x18) 000248de d0 90 | | ADD.L (A0),D0 000248e0 b0 93 | | CMP.L (A3),D0 000248e2 6d 02 |m | BLT 0x248e6 000248e4 60 1a |` | BRA 0x24900 000248e6 55 4f |UO | SUBQ.L #0x2,A7 000248e8 2f 11 |/ | MOVE.L (A1),-(A7) 000248ea 2f 12 |/ | MOVE.L (A2),-(A7) 000248ec 2f 00 |/ | MOVE.L D0,-(A7) 000248ee 4e 94 |N | JSR (A4) 000248f0 de c1 | | ADDA.W D1,A7 000248f2 1e 1f | | MOVE.B (A7)+,D7 000248f4 0c 07 00 2f | / | CMPI.B #0x2f,D7 000248f8 67 06 |g | BEQ 0x24900 000248fa 0c 07 00 3d | = | CMPI.B #0x3d,D7 000248fe 66 04 |f | BNE 0x24904 00024900 50 4f |PO | ADDQ.L #0x8,A7 00024902 60 0e |` | BRA 0x24912 00024904 20 1f | | MOVE.L (A7)+,D0 00024906 52 80 |R | ADDQ.L #0x1,D0 00024908 68 00 ff 70 |h p | BVC 0x2487a 0002490c 58 4f |XO | ADDQ.L #0x4,A7 0002490e 42 ae 00 18 |B | CLR.L (A6+0x18) 00024912 4c df 1f e3 |L | MOVEM.L (A7)+,D0+D1+D5+D6+D7+A0+A1+A2+A3+A4 00024916 4e 5e |N^ | UNLK A6 00024918 4e 75 |Nu | RTS 0002491a ; -------------------------------------------------------------------------------------- 0002491a ; OMSI PASCAL Function 0002491a ; <LVAR 0x018 4(r)> 0002491a ; <LVAR 0x014 4(r)> 0002491a ; <LVAR 0x010 4(r)> 0002491a ; <LVAR 0x00c 4(r)> 0002491a ; <LVAR 0x008 4(r)> 0002491a ; -------------------------------------------------------------------------------------- 0002491a 4e 56 ff be |NV | LINK.W A6,#0xffbe 0002491e bf d5 | | CMPA.L (A5),A7 00024920 62 06 |b | BHI 0x24928 00024922 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024926 4e 76 |Nv | TRAPV 00024928 de fc 00 36 | 6 | ADDA.W #0x36,A7 0002492c 48 e7 c7 c0 |H | MOVEM.L A1+A0+D7+D6+D5+D1+D0,-(A7) 00024930 41 ee 00 14 |A | LEA.L (A6+0x14),A0 00024934 43 ee 00 10 |C | LEA.L (A6+0x10),A1 00024938 72 2f |r/ | MOVEQ.L #0x2f,D1 0002493a 59 4f |YO | SUBQ.L #0x4,A7 0002493c 2f 10 |/ | MOVE.L (A0),-(A7) 0002493e 2f 11 |/ | MOVE.L (A1),-(A7) 00024940 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00024944 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00024948 4e ba fe da |N | JSR 0x24824 0002494c de fc 00 10 | | ADDA.W #0x10,A7 00024950 2a 1f |* | MOVE.L (A7)+,D5 00024952 6f 52 |oR | BLE 0x249a6 00024954 2f 2e 00 18 |/. | MOVE.L (A6+0x18),-(A7) 00024958 1f 01 | | MOVE.B D1,-(A7) 0002495a 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00024960 5c 4f |\O | ADDQ.L #0x6,A7 00024962 20 05 | | MOVE.L D5,D0 00024964 52 80 |R | ADDQ.L #0x1,D0 00024966 59 4f |YO | SUBQ.L #0x4,A7 00024968 2f 10 |/ | MOVE.L (A0),-(A7) 0002496a 2f 11 |/ | MOVE.L (A1),-(A7) 0002496c 4e ba e0 e6 |N | JSR 0x22a54 00024970 50 4f |PO | ADDQ.L #0x8,A7 00024972 2c 00 |, | MOVE.L D0,D6 00024974 bc 97 | | CMP.L (A7),D6 00024976 6e 2c |n, | BGT 0x249a4 00024978 55 4f |UO | SUBQ.L #0x2,A7 0002497a 2f 10 |/ | MOVE.L (A0),-(A7) 0002497c 2f 11 |/ | MOVE.L (A1),-(A7) 0002497e 2f 06 |/ | MOVE.L D6,-(A7) 00024980 4e ba fc be |N | JSR 0x24640 00024984 de fc 00 0c | | ADDA.W #0xc,A7 00024988 1e 1f | | MOVE.B (A7)+,D7 0002498a be 01 | | CMP.B D1,D7 0002498c 66 04 |f | BNE 0x24992 0002498e 58 4f |XO | ADDQ.L #0x4,A7 00024990 60 14 |` | BRA 0x249a6 00024992 2f 2e 00 18 |/. | MOVE.L (A6+0x18),-(A7) 00024996 1f 07 | | MOVE.B D7,-(A7) 00024998 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 0002499e 5c 4f |\O | ADDQ.L #0x6,A7 000249a0 52 86 |R | ADDQ.L #0x1,D6 000249a2 68 d0 |h | BVC 0x24974 000249a4 58 4f |XO | ADDQ.L #0x4,A7 000249a6 4c df 03 e3 |L | MOVEM.L (A7)+,D0+D1+D5+D6+D7+A0+A1 000249aa 4e 5e |N^ | UNLK A6 000249ac 4e 75 |Nu | RTS 000249ae ; -------------------------------------------------------------------------------------- 000249ae ; OMSI PASCAL Function 000249ae ; <LVAR 0x018 4(r)> 000249ae ; <LVAR 0x014 4(r)> 000249ae ; <LVAR 0x010 4(r)> 000249ae ; <LVAR 0x00c 4(r)> 000249ae ; <LVAR 0x008 4(r)> 000249ae ; <LVAR -0x006 4(rw)> 000249ae ; <LVAR -0x014 4(rw)> 000249ae ; -------------------------------------------------------------------------------------- 000249ae 4e 56 ff aa |NV | LINK.W A6,#0xffaa 000249b2 bf d5 | | CMPA.L (A5),A7 000249b4 62 06 |b | BHI 0x249bc 000249b6 44 fc 00 02 |D | MOVE.W #0x2,CCR 000249ba 4e 76 |Nv | TRAPV 000249bc de fc 00 42 | B | ADDA.W #0x42,A7 000249c0 48 e7 c7 e0 |H | MOVEM.L A2+A1+A0+D7+D6+D5+D1+D0,-(A7) 000249c4 41 ee 00 14 |A | LEA.L (A6+0x14),A0 000249c8 43 ee 00 10 |C | LEA.L (A6+0x10),A1 000249cc 45 ee ff fa |E | LEA.L (A6-0x6),A2 000249d0 72 0c |r | MOVEQ.L #0x0c,D1 000249d2 59 4f |YO | SUBQ.L #0x4,A7 000249d4 2f 10 |/ | MOVE.L (A0),-(A7) 000249d6 2f 11 |/ | MOVE.L (A1),-(A7) 000249d8 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 000249dc 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000249e0 4e ba fe 42 |N B | JSR 0x24824 000249e4 de fc 00 10 | | ADDA.W #0x10,A7 000249e8 2d 5f ff ec |-_ | MOVE.L (A7)+,(A6-0x14) 000249ec 6f 6e |on | BLE 0x24a5c 000249ee 59 4f |YO | SUBQ.L #0x4,A7 000249f0 2f 10 |/ | MOVE.L (A0),-(A7) 000249f2 2f 11 |/ | MOVE.L (A1),-(A7) 000249f4 4e ba e0 5e |N ^ | JSR 0x22a54 000249f8 50 4f |PO | ADDQ.L #0x8,A7 000249fa 24 9f |$ | MOVE.L (A7)+,(A2) 000249fc 2f 12 |/ | MOVE.L (A2),-(A7) 000249fe 2a 2e ff ec |*. | MOVE.L (A6-0x14),D5 00024a02 ba 97 | | CMP.L (A7),D5 00024a04 6e 54 |nT | BGT 0x24a5a 00024a06 55 4f |UO | SUBQ.L #0x2,A7 00024a08 2f 10 |/ | MOVE.L (A0),-(A7) 00024a0a 2f 11 |/ | MOVE.L (A1),-(A7) 00024a0c 2f 05 |/ | MOVE.L D5,-(A7) 00024a0e 4e ba fc 30 |N 0 | JSR 0x24640 00024a12 de c1 | | ADDA.W D1,A7 00024a14 10 1f | | MOVE.B (A7)+,D0 00024a16 0c 00 00 3d | = | CMPI.B #0x3d,D0 00024a1a 66 3a |f: | BNE 0x24a56 00024a1c 20 05 | | MOVE.L D5,D0 00024a1e 52 80 |R | ADDQ.L #0x1,D0 00024a20 2f 12 |/ | MOVE.L (A2),-(A7) 00024a22 2c 00 |, | MOVE.L D0,D6 00024a24 bc 97 | | CMP.L (A7),D6 00024a26 6e 2c |n, | BGT 0x24a54 00024a28 55 4f |UO | SUBQ.L #0x2,A7 00024a2a 2f 10 |/ | MOVE.L (A0),-(A7) 00024a2c 2f 11 |/ | MOVE.L (A1),-(A7) 00024a2e 2f 06 |/ | MOVE.L D6,-(A7) 00024a30 4e ba fc 0e |N | JSR 0x24640 00024a34 de c1 | | ADDA.W D1,A7 00024a36 1e 1f | | MOVE.B (A7)+,D7 00024a38 0c 07 00 2f | / | CMPI.B #0x2f,D7 00024a3c 66 04 |f | BNE 0x24a42 00024a3e 50 4f |PO | ADDQ.L #0x8,A7 00024a40 60 1a |` | BRA 0x24a5c 00024a42 2f 2e 00 18 |/. | MOVE.L (A6+0x18),-(A7) 00024a46 1f 07 | | MOVE.B D7,-(A7) 00024a48 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00024a4e 5c 4f |\O | ADDQ.L #0x6,A7 00024a50 52 86 |R | ADDQ.L #0x1,D6 00024a52 68 d0 |h | BVC 0x24a24 00024a54 58 4f |XO | ADDQ.L #0x4,A7 00024a56 52 85 |R | ADDQ.L #0x1,D5 00024a58 68 a8 |h | BVC 0x24a02 00024a5a 58 4f |XO | ADDQ.L #0x4,A7 00024a5c 4c df 07 e3 |L | MOVEM.L (A7)+,D0+D1+D5+D6+D7+A0+A1+A2 00024a60 4e 5e |N^ | UNLK A6 00024a62 4e 75 |Nu | RTS 00024a64 ; -------------------------------------------------------------------------------------- 00024a64 ; OMSI PASCAL Function 00024a64 ; <LVAR 0x010 4(r)> 00024a64 ; <LVAR 0x00c 4(r)> 00024a64 ; <LVAR 0x008 4(r)> 00024a64 ; -------------------------------------------------------------------------------------- 00024a64 4e 56 ff b2 |NV | LINK.W A6,#0xffb2 00024a68 bf d5 | | CMPA.L (A5),A7 00024a6a 62 06 |b | BHI 0x24a72 00024a6c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024a70 4e 76 |Nv | TRAPV 00024a72 de fc 00 42 | B | ADDA.W #0x42,A7 00024a76 48 e7 c7 c0 |H | MOVEM.L A1+A0+D7+D6+D5+D1+D0,-(A7) 00024a7a 41 ee 00 0c |A | LEA.L (A6+0xc),A0 00024a7e 43 ee 00 08 |C | LEA.L (A6+0x8),A1 00024a82 72 0c |r | MOVEQ.L #0x0c,D1 00024a84 59 4f |YO | SUBQ.L #0x4,A7 00024a86 2f 10 |/ | MOVE.L (A0),-(A7) 00024a88 2f 11 |/ | MOVE.L (A1),-(A7) 00024a8a 4e ba df c8 |N | JSR 0x22a54 00024a8e 50 4f |PO | ADDQ.L #0x8,A7 00024a90 2a 1f |* | MOVE.L (A7)+,D5 00024a92 2f 05 |/ | MOVE.L D5,-(A7) 00024a94 7c 01 || | MOVEQ.L #0x01,D6 00024a96 bc 97 | | CMP.L (A7),D6 00024a98 6e 46 |nF | BGT 0x24ae0 00024a9a 55 4f |UO | SUBQ.L #0x2,A7 00024a9c 2f 10 |/ | MOVE.L (A0),-(A7) 00024a9e 2f 11 |/ | MOVE.L (A1),-(A7) 00024aa0 2f 06 |/ | MOVE.L D6,-(A7) 00024aa2 4e ba fb 9c |N | JSR 0x24640 00024aa6 de c1 | | ADDA.W D1,A7 00024aa8 10 1f | | MOVE.B (A7)+,D0 00024aaa 0c 00 00 2f | / | CMPI.B #0x2f,D0 00024aae 66 2c |f, | BNE 0x24adc 00024ab0 2f 05 |/ | MOVE.L D5,-(A7) 00024ab2 2e 06 |. | MOVE.L D6,D7 00024ab4 be 97 | | CMP.L (A7),D7 00024ab6 6e 1e |n | BGT 0x24ad6 00024ab8 2f 2e 00 10 |/. | MOVE.L (A6+0x10),-(A7) 00024abc 55 4f |UO | SUBQ.L #0x2,A7 00024abe 2f 10 |/ | MOVE.L (A0),-(A7) 00024ac0 2f 11 |/ | MOVE.L (A1),-(A7) 00024ac2 2f 07 |/ | MOVE.L D7,-(A7) 00024ac4 4e ba fb 7a |N z | JSR 0x24640 00024ac8 de c1 | | ADDA.W D1,A7 00024aca 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00024ad0 5c 4f |\O | ADDQ.L #0x6,A7 00024ad2 52 87 |R | ADDQ.L #0x1,D7 00024ad4 68 de |h | BVC 0x24ab4 00024ad6 58 4f |XO | ADDQ.L #0x4,A7 00024ad8 58 4f |XO | ADDQ.L #0x4,A7 00024ada 60 06 |` | BRA 0x24ae2 00024adc 52 86 |R | ADDQ.L #0x1,D6 00024ade 68 b6 |h | BVC 0x24a96 00024ae0 58 4f |XO | ADDQ.L #0x4,A7 00024ae2 4c df 03 e3 |L | MOVEM.L (A7)+,D0+D1+D5+D6+D7+A0+A1 00024ae6 4e 5e |N^ | UNLK A6 00024ae8 4e 75 |Nu | RTS 00024aea ; -------------------------------------------------------------------------------------- 00024aea ; OMSI PASCAL Function 00024aea ; <LVAR 0x010 4(r)> 00024aea ; <LVAR 0x00c 4(r)> 00024aea ; <LVAR 0x008 4(r)> 00024aea ; -------------------------------------------------------------------------------------- 00024aea 4e 56 ff ce |NV | LINK.W A6,#0xffce 00024aee bf d5 | | CMPA.L (A5),A7 00024af0 62 06 |b | BHI 0x24af8 00024af2 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024af6 4e 76 |Nv | TRAPV 00024af8 de fc 00 2a | * | ADDA.W #0x2a,A7 00024afc 48 e7 03 80 |H | MOVEM.L A0+D7+D6,-(A7) 00024b00 20 6e 00 10 | n | MOVEA.L (A6+0x10),A0 00024b04 42 50 |BP | CLR.W (A0) 00024b06 59 4f |YO | SUBQ.L #0x4,A7 00024b08 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00024b0c 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00024b10 4e ba df 42 |N B | JSR 0x22a54 00024b14 50 4f |PO | ADDQ.L #0x8,A7 00024b16 7e 01 |~ | MOVEQ.L #0x01,D7 00024b18 be 97 | | CMP.L (A7),D7 00024b1a 6e 34 |n4 | BGT 0x24b50 00024b1c 55 4f |UO | SUBQ.L #0x2,A7 00024b1e 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00024b22 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00024b26 2f 07 |/ | MOVE.L D7,-(A7) 00024b28 4e ba fb 16 |N | JSR 0x24640 00024b2c de fc 00 0c | | ADDA.W #0xc,A7 00024b30 1c 1f | | MOVE.B (A7)+,D6 00024b32 0c 06 00 2f | / | CMPI.B #0x2f,D6 00024b36 67 10 |g | BEQ 0x24b48 00024b38 2f 2e 00 10 |/. | MOVE.L (A6+0x10),-(A7) 00024b3c 1f 06 | | MOVE.B D6,-(A7) 00024b3e 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00024b44 5c 4f |\O | ADDQ.L #0x6,A7 00024b46 60 04 |` | BRA 0x24b4c 00024b48 58 4f |XO | ADDQ.L #0x4,A7 00024b4a 60 06 |` | BRA 0x24b52 00024b4c 52 87 |R | ADDQ.L #0x1,D7 00024b4e 68 c8 |h | BVC 0x24b18 00024b50 58 4f |XO | ADDQ.L #0x4,A7 00024b52 4c df 01 c0 |L | MOVEM.L (A7)+,D6+D7+A0 00024b56 4e 5e |N^ | UNLK A6 00024b58 4e 75 |Nu | RTS 00024b5a ; -------------------------------------------------------------------------------------- 00024b5a ; OMSI PASCAL Function 00024b5a ; -------------------------------------------------------------------------------------- 00024b5a 4e 56 ff c6 |NV | LINK.W A6,#0xffc6 00024b5e bf d5 | | CMPA.L (A5),A7 00024b60 62 06 |b | BHI 0x24b68 00024b62 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024b66 4e 76 |Nv | TRAPV 00024b68 de fc 00 3a | : | ADDA.W #0x3a,A7 00024b6c 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 00024b70 41 fa cf b6 |A | LEA.L 0x21b28,A0 00024b74 70 10 |p | MOVEQ.L #0x10,D0 00024b76 3f 20 |? | MOVE.W -(A0),-(A7) 00024b78 51 c8 ff fc |Q | DBF D0,0x24b76 00024b7c 59 4f |YO | SUBQ.L #0x4,A7 00024b7e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00024b82 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00024b86 3f 3c 00 22 |?< " | MOVE.W #0x22,-(A7) 00024b8a 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00024b90 50 4f |PO | ADDQ.L #0x8,A7 00024b92 4e ba d2 ae |N | JSR 0x21e42 00024b96 de fc 00 26 | & | ADDA.W #0x26,A7 00024b9a 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 00024b9e 4e 5e |N^ | UNLK A6 00024ba0 4e 75 |Nu | RTS 00024ba2 ; -------------------------------------------------------------------------------------- 00024ba2 ; OMSI PASCAL Function 00024ba2 ; <LVAR 0x00c 4(r)> 00024ba2 ; <LVAR 0x008 4(r)> 00024ba2 ; <LVAR -0x006 4(rw)> 00024ba2 ; -------------------------------------------------------------------------------------- 00024ba2 4e 56 ff a0 |NV | LINK.W A6,#0xffa0 00024ba6 bf d5 | | CMPA.L (A5),A7 00024ba8 62 06 |b | BHI 0x24bb0 00024baa 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024bae 4e 76 |Nv | TRAPV 00024bb0 de fc 00 58 | X | ADDA.W #0x58,A7 00024bb4 48 e7 ff f0 |H | MOVEM.L A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00024bb8 43 ee 00 0c |C | LEA.L (A6+0xc),A1 00024bbc 45 f9 00 02 79 5a |E yZ | LEA.L 0x2795a,A2 00024bc2 47 fa d3 1a |G | LEA.L 0x21ede,A3 00024bc6 72 30 |r0 | MOVEQ.L #0x30,D1 00024bc8 74 39 |t9 | MOVEQ.L #0x39,D2 00024bca 76 25 |v% | MOVEQ.L #0x25,D3 00024bcc 78 2d |x- | MOVEQ.L #0x2d,D4 00024bce 2d 52 ff fa |-R | MOVE.L (A2),(A6-0x6) 00024bd2 55 4f |UO | SUBQ.L #0x2,A7 00024bd4 4e 93 |N | JSR (A3) 00024bd6 1e 1f | | MOVE.B (A7)+,D7 00024bd8 be 03 | | CMP.B D3,D7 00024bda 66 08 |f | BNE 0x24be4 00024bdc 20 51 | Q | MOVEA.L (A1),A0 00024bde 42 90 |B | CLR.L (A0) 00024be0 60 00 00 e2 |` | BRA 0x24cc4 00024be4 be 04 | | CMP.B D4,D7 00024be6 66 0c |f | BNE 0x24bf4 00024be8 20 51 | Q | MOVEA.L (A1),A0 00024bea 20 bc 00 00 00 01 | | MOVE.L #0x1,(A0) 00024bf0 60 00 00 d2 |` | BRA 0x24cc4 00024bf4 0c 07 00 2f | / | CMPI.B #0x2f,D7 00024bf8 66 0c |f | BNE 0x24c06 00024bfa 20 51 | Q | MOVEA.L (A1),A0 00024bfc 20 bc 00 00 00 04 | | MOVE.L #0x4,(A0) 00024c02 60 00 00 c0 |` | BRA 0x24cc4 00024c06 0c 07 00 3d | = | CMPI.B #0x3d,D7 00024c0a 66 0c |f | BNE 0x24c18 00024c0c 20 51 | Q | MOVEA.L (A1),A0 00024c0e 20 bc 00 00 00 05 | | MOVE.L #0x5,(A0) 00024c14 60 00 00 ae |` | BRA 0x24cc4 00024c18 0c 07 00 5c | \ | CMPI.B #0x5c,D7 00024c1c 66 0c |f | BNE 0x24c2a 00024c1e 20 51 | Q | MOVEA.L (A1),A0 00024c20 20 bc 00 00 00 06 | | MOVE.L #0x6,(A0) 00024c26 60 00 00 9c |` | BRA 0x24cc4 00024c2a 4a 07 |J | TST.B D7 00024c2c 66 2c |f, | BNE 0x24c5a 00024c2e 41 fa cf 10 |A | LEA.L 0x21b40,A0 00024c32 70 05 |p | MOVEQ.L #0x05,D0 00024c34 2f 20 |/ | MOVE.L -(A0),-(A7) 00024c36 51 c8 ff fc |Q | DBF D0,0x24c34 00024c3a 59 4f |YO | SUBQ.L #0x4,A7 00024c3c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00024c40 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00024c44 3f 3c 00 18 |?< | MOVE.W #0x18,-(A7) 00024c48 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00024c4e 50 4f |PO | ADDQ.L #0x8,A7 00024c50 4e ba d1 f0 |N | JSR 0x21e42 00024c54 de fc 00 1c | | ADDA.W #0x1c,A7 00024c58 60 6a |`j | BRA 0x24cc4 00024c5a be 01 | | CMP.B D1,D7 00024c5c 65 2c |e, | BCS 0x24c8a 00024c5e be 02 | | CMP.B D2,D7 00024c60 62 28 |b( | BHI 0x24c8a 00024c62 20 51 | Q | MOVEA.L (A1),A0 00024c64 20 bc 00 00 00 02 | | MOVE.L #0x2,(A0) 00024c6a 55 4f |UO | SUBQ.L #0x2,A7 00024c6c 4e ba d2 32 |N 2 | JSR 0x21ea0 00024c70 1e 1f | | MOVE.B (A7)+,D7 00024c72 be 01 | | CMP.B D1,D7 00024c74 65 0a |e | BCS 0x24c80 00024c76 be 02 | | CMP.B D2,D7 00024c78 62 06 |b | BHI 0x24c80 00024c7a 55 4f |UO | SUBQ.L #0x2,A7 00024c7c 4e 93 |N | JSR (A3) 00024c7e 1c 1f | | MOVE.B (A7)+,D6 00024c80 be 01 | | CMP.B D1,D7 00024c82 65 04 |e | BCS 0x24c88 00024c84 be 02 | | CMP.B D2,D7 00024c86 63 e2 |c | BLS 0x24c6a 00024c88 60 3a |`: | BRA 0x24cc4 00024c8a 20 51 | Q | MOVEA.L (A1),A0 00024c8c 20 bc 00 00 00 03 | | MOVE.L #0x3,(A0) 00024c92 7a 00 |z | MOVEQ.L #0x00,D5 00024c94 55 4f |UO | SUBQ.L #0x2,A7 00024c96 4e ba d2 08 |N | JSR 0x21ea0 00024c9a 1e 1f | | MOVE.B (A7)+,D7 00024c9c be 03 | | CMP.B D3,D7 00024c9e 67 16 |g | BEQ 0x24cb6 00024ca0 be 04 | | CMP.B D4,D7 00024ca2 67 12 |g | BEQ 0x24cb6 00024ca4 0c 07 00 2f | / | CMPI.B #0x2f,D7 00024ca8 67 0c |g | BEQ 0x24cb6 00024caa 0c 07 00 3d | = | CMPI.B #0x3d,D7 00024cae 67 06 |g | BEQ 0x24cb6 00024cb0 0c 07 00 5c | \ | CMPI.B #0x5c,D7 00024cb4 66 04 |f | BNE 0x24cba 00024cb6 7a 01 |z | MOVEQ.L #0x01,D5 00024cb8 60 06 |` | BRA 0x24cc0 00024cba 55 4f |UO | SUBQ.L #0x2,A7 00024cbc 4e 93 |N | JSR (A3) 00024cbe 1c 1f | | MOVE.B (A7)+,D6 00024cc0 4a 05 |J | TST.B D5 00024cc2 67 d0 |g | BEQ 0x24c94 00024cc4 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00024cc8 20 ae ff fa | | MOVE.L (A6-0x6),(A0) 00024ccc 21 52 00 04 |!R | MOVE.L (A2),(A0+0x4) 00024cd0 53 a8 00 04 |S | SUBQ.L #0x1,(A0+0x4) 00024cd4 4c df 0f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3 00024cd8 4e 5e |N^ | UNLK A6 00024cda 4e 75 |Nu | RTS 00024cdc ; -------------------------------------------------------------------------------------- 00024cdc ; OMSI PASCAL Function 00024cdc ; <LVAR 0x00c 4(r)> 00024cdc ; <LVAR 0x008 4(r)> 00024cdc ; -------------------------------------------------------------------------------------- 00024cdc 4e 56 ff c0 |NV | LINK.W A6,#0xffc0 00024ce0 bf d5 | | CMPA.L (A5),A7 00024ce2 62 06 |b | BHI 0x24cea 00024ce4 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024ce8 4e 76 |Nv | TRAPV 00024cea de fc 00 34 | 4 | ADDA.W #0x34,A7 00024cee 48 e7 c7 e0 |H | MOVEM.L A2+A1+A0+D7+D6+D5+D1+D0,-(A7) 00024cf2 45 ee 00 0c |E | LEA.L (A6+0xc),A2 00024cf6 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00024cfa 2f 08 |/ | MOVE.L A0,-(A7) 00024cfc 2c 39 00 02 79 5a |,9 yZ | MOVE.L 0x2795a,D6 00024d02 9c 92 | | SUB.L (A2),D6 00024d04 2a 12 |* | MOVE.L (A2),D5 00024d06 da 86 | | ADD.L D6,D5 00024d08 30 10 |0 | MOVE.W (A0),D0 00024d0a 48 c0 |H | EXTW.L D0 00024d0c b0 86 | | CMP.L D6,D0 00024d0e 67 0c |g | BEQ 0x24d1c 00024d10 2f 05 |/ | MOVE.L D5,-(A7) 00024d12 2f 06 |/ | MOVE.L D6,-(A7) 00024d14 91 97 | | SUB.L D0,(A7) 00024d16 4e ba d6 7e |N ~ | JSR 0x22396 00024d1a 50 4f |PO | ADDQ.L #0x8,A7 00024d1c 2f 00 |/ | MOVE.L D0,-(A7) 00024d1e 7e 01 |~ | MOVEQ.L #0x01,D7 00024d20 be 97 | | CMP.L (A7),D7 00024d22 6e 34 |n4 | BGT 0x24d58 00024d24 20 12 | | MOVE.L (A2),D0 00024d26 d0 87 | | ADD.L D7,D0 00024d28 53 80 |S | SUBQ.L #0x1,D0 00024d2a 53 80 |S | SUBQ.L #0x1,D0 00024d2c 0c 80 00 00 1f ff | | CMPI.L #0x00001fff,D0 00024d32 63 02 |c | BLS 0x24d36 00024d34 4e 4f |NO | TRAP #15 00024d36 41 f9 00 02 59 52 |A YR | LEA.L 0x25952,A0 00024d3c 22 07 |" | MOVE.L D7,D1 00024d3e 53 81 |S | SUBQ.L #0x1,D1 00024d40 0c 81 00 00 00 7d | } | CMPI.L #0x0000007d,D1 00024d46 63 02 |c | BLS 0x24d4a 00024d48 4e 4f |NO | TRAP #15 00024d4a 22 6f 00 04 |"o | MOVEA.L (A7+0x4),A1 00024d4e 11 b1 18 02 08 08 | | MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x8) 00024d54 52 87 |R | ADDQ.L #0x1,D7 00024d56 68 c8 |h | BVC 0x24d20 00024d58 50 4f |PO | ADDQ.L #0x8,A7 00024d5a 4c df 07 e3 |L | MOVEM.L (A7)+,D0+D1+D5+D6+D7+A0+A1+A2 00024d5e 4e 5e |N^ | UNLK A6 00024d60 4e 75 |Nu | RTS 00024d62 ; -------------------------------------------------------------------------------------- 00024d62 ; OMSI PASCAL Function 00024d62 ; <LVAR 0x00c 4(r)> 00024d62 ; <LVAR 0x008 4(r)> 00024d62 ; <LVAR -0x008 @ 4(r)> 00024d62 ; <LVAR -0x00c @ 4(r)> 00024d62 ; <LVAR -0x010 4(r)> 00024d62 ; <LVAR -0x014 @ 4(r)> 00024d62 ; <LVAR -0x018 4(rw)> 00024d62 ; <LVAR -0x01c 4(rw)> 00024d62 ; <LVAR -0x020 4(rw)> 00024d62 ; <LVAR -0x024 4(rw)> 00024d62 ; <LVAR -0x028 4(rw)> 00024d62 ; <LVAR -0x034 4(rw)> 00024d62 ; -------------------------------------------------------------------------------------- 00024d62 4e 56 ff 70 |NV p | LINK.W A6,#0xff70 00024d66 bf d5 | | CMPA.L (A5),A7 00024d68 62 06 |b | BHI 0x24d70 00024d6a 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024d6e 4e 76 |Nv | TRAPV 00024d70 de fc 00 5c | \ | ADDA.W #0x5c,A7 00024d74 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00024d78 43 ee ff f8 |C | LEA.L (A6-0x8),A1 00024d7c 45 ee ff ec |E | LEA.L (A6-0x14),A2 00024d80 47 ee ff dc |G | LEA.L (A6-0x24),A3 00024d84 49 ee ff e0 |I | LEA.L (A6-0x20),A4 00024d88 74 14 |t | MOVEQ.L #0x14,D2 00024d8a 2d 79 00 02 79 5a ff d8 |-y yZ | MOVE.L 0x2795a,(A6-0x28) 00024d92 48 51 |HQ | PEA.L (A1) 00024d94 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00024d9a 58 4f |XO | ADDQ.L #0x4,A7 00024d9c 48 6e ff f4 |Hn | PEA.L (A6-0xc) 00024da0 48 52 |HR | PEA.L (A2) 00024da2 4e ba fd fe |N | JSR 0x24ba2 00024da6 50 4f |PO | ADDQ.L #0x8,A7 00024da8 42 ae ff cc |B | CLR.L (A6-0x34) 00024dac 7e 00 |~ | MOVEQ.L #0x00,D7 00024dae 20 2e ff cc | . | MOVE.L (A6-0x34),D0 00024db2 b0 82 | | CMP.L D2,D0 00024db4 63 02 |c | BLS 0x24db8 00024db6 4e 4e |NN | TRAP #14 00024db8 d0 40 | @ | ADD.W D0,D0 00024dba 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 00024dc2 00 2a | * | .CONST 0x2a ; [0x0] -> 0x24dec 00024dc4 00 34 | 4 | .CONST 0x34 ; [0x1] -> 0x24df6 00024dc6 00 48 | H | .CONST 0x48 ; [0x2] -> 0x24e0a 00024dc8 00 64 | d | .CONST 0x64 ; [0x3] -> 0x24e26 00024dca 00 68 | h | .CONST 0x68 ; [0x4] -> 0x24e2a 00024dcc 00 76 | v | .CONST 0x76 ; [0x5] -> 0x24e38 00024dce 00 8a | | .CONST 0x8a ; [0x6] -> 0x24e4c 00024dd0 00 90 | | .CONST 0x90 ; [0x7] -> 0x24e52 00024dd2 00 92 | | .CONST 0x92 ; [0x8] -> 0x24e54 00024dd4 00 a8 | | .CONST 0xa8 ; [0x9] -> 0x24e6a 00024dd6 00 b6 | | .CONST 0xb6 ; [0xa] -> 0x24e78 00024dd8 00 ce | | .CONST 0xce ; [0xb] -> 0x24e90 00024dda 00 e2 | | .CONST 0xe2 ; [0xc] -> 0x24ea4 00024ddc 00 f6 | | .CONST 0xf6 ; [0xd] -> 0x24eb8 00024dde 01 0c | | .CONST 0x10c ; [0xe] -> 0x24ece 00024de0 01 0e | | .CONST 0x10e ; [0xf] -> 0x24ed0 00024de2 01 28 | ( | .CONST 0x128 ; [0x10] -> 0x24eea 00024de4 01 3e | > | .CONST 0x13e ; [0x11] -> 0x24f00 00024de6 01 4c | L | .CONST 0x14c ; [0x12] -> 0x24f0e 00024de8 01 4e | N | .CONST 0x14e ; [0x13] -> 0x24f10 00024dea 01 50 | P | .CONST 0x150 ; [0x14] -> 0x24f12 00024dec switch@0x24dba[0x0]: 00024dec 7c 00 || | MOVEQ.L #0x00,D6 00024dee 2a 2e 00 08 |*. | MOVE.L (A6+0x8),D5 00024df2 60 00 01 48 |` H | BRA 0x24f3c 00024df6 switch@0x24dba[0x1]: 00024df6 59 4f |YO | SUBQ.L #0x4,A7 00024df8 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7) 00024dfc 2f 12 |/ | MOVE.L (A2),-(A7) 00024dfe 4e ba f8 80 |N | JSR 0x24680 00024e02 50 4f |PO | ADDQ.L #0x8,A7 00024e04 2c 1f |, | MOVE.L (A7)+,D6 00024e06 60 00 01 34 |` 4 | BRA 0x24f3c 00024e0a switch@0x24dba[0x2]: 00024e0a 2f 2e ff d8 |/. | MOVE.L (A6-0x28),-(A7) 00024e0e 2f 06 |/ | MOVE.L D6,-(A7) 00024e10 2f 06 |/ | MOVE.L D6,-(A7) 00024e12 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00024e16 4e ba f8 e4 |N | JSR 0x246fc 00024e1a de fc 00 10 | | ADDA.W #0x10,A7 00024e1e 60 00 01 78 |` x | BRA 0x24f98 00024e22 60 00 01 18 |` | .XXX[0x4] 00024e26 switch@0x24dba[0x3]: 00024e26 60 00 01 14 |` | BRA 0x24f3c 00024e2a switch@0x24dba[0x4]: 00024e2a 2f 2e ff d8 |/. | MOVE.L (A6-0x28),-(A7) 00024e2e 2f 06 |/ | MOVE.L D6,-(A7) 00024e30 2f 05 |/ | MOVE.L D5,-(A7) 00024e32 60 de |` | BRA 0x24e12 00024e34 60 00 01 06 |` | .XXX[0x4] 00024e38 switch@0x24dba[0x5]: 00024e38 59 4f |YO | SUBQ.L #0x4,A7 00024e3a 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7) 00024e3e 2f 12 |/ | MOVE.L (A2),-(A7) 00024e40 4e ba f8 3e |N > | JSR 0x24680 00024e44 50 4f |PO | ADDQ.L #0x8,A7 00024e46 2a 1f |* | MOVE.L (A7)+,D5 00024e48 60 00 00 f2 |` | BRA 0x24f3c 00024e4c switch@0x24dba[0x6]: 00024e4c 7c 01 || | MOVEQ.L #0x01,D6 00024e4e 60 00 00 ec |` | BRA 0x24f3c 00024e52 switch@0x24dba[0x7]: 00024e52 60 e4 |` | BRA switch@0x24dba[0x5] 00024e54 switch@0x24dba[0x8]: 00024e54 51 4f |QO | SUBQ.L #0x8,A7 00024e56 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00024e5a 2f 06 |/ | MOVE.L D6,-(A7) 00024e5c 4e ba dc 2e |N . | JSR 0x22a8c 00024e60 50 4f |PO | ADDQ.L #0x8,A7 00024e62 26 9f |& | MOVE.L (A7)+,(A3) 00024e64 28 9f |( | MOVE.L (A7)+,(A4) 00024e66 60 00 00 d4 |` | BRA 0x24f3c 00024e6a switch@0x24dba[0x9]: 00024e6a 2d 52 ff e4 |-R | MOVE.L (A2),(A6-0x1c) 00024e6e 2d 6e ff f0 ff e8 |-n | MOVE.L (A6-0x10),(A6-0x18) 00024e74 60 00 00 c6 |` | BRA 0x24f3c 00024e78 switch@0x24dba[0xa]: 00024e78 2f 11 |/ | MOVE.L (A1),-(A7) 00024e7a 2f 14 |/ | MOVE.L (A4),-(A7) 00024e7c 2f 13 |/ | MOVE.L (A3),-(A7) 00024e7e 2f 2e ff e8 |/. | MOVE.L (A6-0x18),-(A7) 00024e82 2f 2e ff e4 |/. | MOVE.L (A6-0x1c),-(A7) 00024e86 4e ba fb 26 |N & | JSR 0x249ae 00024e8a de c2 | | ADDA.W D2,A7 00024e8c 60 00 00 ae |` | BRA 0x24f3c 00024e90 switch@0x24dba[0xb]: 00024e90 2f 11 |/ | MOVE.L (A1),-(A7) 00024e92 2f 14 |/ | MOVE.L (A4),-(A7) 00024e94 2f 13 |/ | MOVE.L (A3),-(A7) 00024e96 2f 2e ff e8 |/. | MOVE.L (A6-0x18),-(A7) 00024e9a 2f 2e ff e4 |/. | MOVE.L (A6-0x1c),-(A7) 00024e9e 4e ba fa 7a |N z | JSR 0x2491a 00024ea2 60 e6 |` | BRA 0x24e8a 00024ea4 switch@0x24dba[0xc]: 00024ea4 2f 11 |/ | MOVE.L (A1),-(A7) 00024ea6 2f 14 |/ | MOVE.L (A4),-(A7) 00024ea8 2f 13 |/ | MOVE.L (A3),-(A7) 00024eaa 4e ba fb b8 |N | JSR 0x24a64 00024eae de fc 00 0c | | ADDA.W #0xc,A7 00024eb2 7e 01 |~ | MOVEQ.L #0x01,D7 00024eb4 60 00 00 86 |` | BRA 0x24f3c 00024eb8 switch@0x24dba[0xd]: 00024eb8 2f 11 |/ | MOVE.L (A1),-(A7) 00024eba 2f 14 |/ | MOVE.L (A4),-(A7) 00024ebc 2f 13 |/ | MOVE.L (A3),-(A7) 00024ebe 2f 2e ff e8 |/. | MOVE.L (A6-0x18),-(A7) 00024ec2 2f 2e ff e4 |/. | MOVE.L (A6-0x1c),-(A7) 00024ec6 4e ba fa 52 |N R | JSR 0x2491a 00024eca de c2 | | ADDA.W D2,A7 00024ecc 60 e4 |` | BRA 0x24eb2 00024ece switch@0x24dba[0xe]: 00024ece 60 e2 |` | BRA 0x24eb2 00024ed0 switch@0x24dba[0xf]: 00024ed0 2f 11 |/ | MOVE.L (A1),-(A7) 00024ed2 51 4f |QO | SUBQ.L #0x8,A7 00024ed4 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00024ed8 2f 06 |/ | MOVE.L D6,-(A7) 00024eda 4e ba db b0 |N | JSR 0x22a8c 00024ede 50 4f |PO | ADDQ.L #0x8,A7 00024ee0 4e ba fb 82 |N | JSR 0x24a64 00024ee4 de fc 00 0c | | ADDA.W #0xc,A7 00024ee8 60 52 |`R | BRA 0x24f3c 00024eea switch@0x24dba[0x10]: 00024eea 2f 11 |/ | MOVE.L (A1),-(A7) 00024eec 51 4f |QO | SUBQ.L #0x8,A7 00024eee 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00024ef2 2f 06 |/ | MOVE.L D6,-(A7) 00024ef4 4e ba db 96 |N | JSR 0x22a8c 00024ef8 50 4f |PO | ADDQ.L #0x8,A7 00024efa 4e ba fb ee |N | JSR 0x24aea 00024efe 60 ae |` | BRA 0x24eae 00024f00 switch@0x24dba[0x11]: 00024f00 2f 11 |/ | MOVE.L (A1),-(A7) 00024f02 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7) 00024f06 2f 12 |/ | MOVE.L (A2),-(A7) 00024f08 4e ba fc 50 |N P | JSR 0x24b5a 00024f0c 60 d6 |` | BRA 0x24ee4 00024f0e switch@0x24dba[0x12]: 00024f0e 60 2c |`, | BRA 0x24f3c 00024f10 switch@0x24dba[0x13]: 00024f10 60 a0 |` | BRA 0x24eb2 00024f12 switch@0x24dba[0x14]: 00024f12 41 fa cc 44 |A D | LEA.L 0x21b58,A0 00024f16 70 05 |p | MOVEQ.L #0x05,D0 00024f18 2f 20 |/ | MOVE.L -(A0),-(A7) 00024f1a 51 c8 ff fc |Q | DBF D0,0x24f18 00024f1e 59 4f |YO | SUBQ.L #0x4,A7 00024f20 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00024f24 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00024f28 3f 3c 00 18 |?< | MOVE.W #0x18,-(A7) 00024f2c 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00024f32 50 4f |PO | ADDQ.L #0x8,A7 00024f34 4e ba cf 0c |N | JSR 0x21e42 00024f38 de fc 00 1c | | ADDA.W #0x1c,A7 00024f3c 4a 07 |J | TST.B D7 00024f3e 66 46 |fF | BNE 0x24f86 00024f40 48 6e ff f4 |Hn | PEA.L (A6-0xc) 00024f44 48 52 |HR | PEA.L (A2) 00024f46 4e ba fc 5a |N Z | JSR 0x24ba2 00024f4a 50 4f |PO | ADDQ.L #0x8,A7 00024f4c 20 2e ff cc | . | MOVE.L (A6-0x34),D0 00024f50 0c 80 00 00 00 13 | | CMPI.L #0x00000013,D0 00024f56 63 02 |c | BLS 0x24f5a 00024f58 4e 4f |NO | TRAP #15 00024f5a 28 00 |( | MOVE.L D0,D4 00024f5c 76 07 |v | MOVEQ.L #0x07,D3 00024f5e 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4 00024f64 41 fa ce 0e |A | LEA.L 0x21d74,A0 00024f68 20 2e ff f4 | . | MOVE.L (A6-0xc),D0 00024f6c 0c 80 00 00 00 06 | | CMPI.L #0x00000006,D0 00024f72 63 02 |c | BLS 0x24f76 00024f74 4e 4f |NO | TRAP #15 00024f76 41 f0 48 00 |A H | LEA.L (A0+D4.L),A0 00024f7a 12 30 08 00 | 0 | MOVE.B (A0+D0.L),D1 00024f7e 48 81 |H | EXTB.W D1 00024f80 48 c1 |H | EXTW.L D1 00024f82 2d 41 ff cc |-A | MOVE.L D1,(A6-0x34) 00024f86 4a 07 |J | TST.B D7 00024f88 67 00 fe 24 |g $ | BEQ 0x24dae 00024f8c 2f 2e ff d8 |/. | MOVE.L (A6-0x28),-(A7) 00024f90 2f 11 |/ | MOVE.L (A1),-(A7) 00024f92 4e ba fd 48 |N H | JSR 0x24cdc 00024f96 50 4f |PO | ADDQ.L #0x8,A7 00024f98 48 51 |HQ | PEA.L (A1) 00024f9a 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00024fa0 58 4f |XO | ADDQ.L #0x4,A7 00024fa2 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00024fa6 4e 5e |N^ | UNLK A6 00024fa8 4e 75 |Nu | RTS 00024faa ; -------------------------------------------------------------------------------------- 00024faa ; OMSI PASCAL Function 00024faa ; <LVAR 0x014 4(rw)> 00024faa ; <LVAR 0x010 4(r)> 00024faa ; <LVAR 0x00c 4(r)> 00024faa ; <LVAR 0x008 4(r)> 00024faa ; <LVAR -0x008 4(rw)> 00024faa ; <LVAR -0x00c 4(rw)> 00024faa ; <LVAR -0x018 4(w)> 00024faa ; -------------------------------------------------------------------------------------- 00024faa 4e 56 ff 96 |NV | LINK.W A6,#0xff96 00024fae bf d5 | | CMPA.L (A5),A7 00024fb0 62 06 |b | BHI 0x24fb8 00024fb2 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024fb6 4e 76 |Nv | TRAPV 00024fb8 de fc 00 52 | R | ADDA.W #0x52,A7 00024fbc 48 e7 e7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7) 00024fc0 43 ee ff f8 |C | LEA.L (A6-0x8),A1 00024fc4 45 ee 00 10 |E | LEA.L (A6+0x10),A2 00024fc8 47 ee 00 0c |G | LEA.L (A6+0xc),A3 00024fcc 49 ee ff f4 |I | LEA.L (A6-0xc),A4 00024fd0 74 0c |t | MOVEQ.L #0x0c,D2 00024fd2 42 ae 00 14 |B | CLR.L (A6+0x14) 00024fd6 59 4f |YO | SUBQ.L #0x4,A7 00024fd8 2f 12 |/ | MOVE.L (A2),-(A7) 00024fda 2f 13 |/ | MOVE.L (A3),-(A7) 00024fdc 4e ba da 76 |N v | JSR 0x22a54 00024fe0 50 4f |PO | ADDQ.L #0x8,A7 00024fe2 28 9f |( | MOVE.L (A7)+,(A4) 00024fe4 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00024fe8 30 10 |0 | MOVE.W (A0),D0 00024fea 48 c0 |H | EXTW.L D0 00024fec 52 80 |R | ADDQ.L #0x1,D0 00024fee 22 80 |" | MOVE.L D0,(A1) 00024ff0 44 80 |D | NEG.L D0 00024ff2 d0 94 | | ADD.L (A4),D0 00024ff4 52 80 |R | ADDQ.L #0x1,D0 00024ff6 2f 00 |/ | MOVE.L D0,-(A7) 00024ff8 70 01 |p | MOVEQ.L #0x01,D0 00024ffa b0 97 | | CMP.L (A7),D0 00024ffc 6e 00 00 9a |n | BGT 0x25098 00025000 2d 40 ff e8 |-@ | MOVE.L D0,(A6-0x18) 00025004 2f 00 |/ | MOVE.L D0,-(A7) 00025006 7c 00 || | MOVEQ.L #0x00,D6 00025008 2f 11 |/ | MOVE.L (A1),-(A7) 0002500a 7a 01 |z | MOVEQ.L #0x01,D5 0002500c ba 97 | | CMP.L (A7),D5 0002500e 6e 48 |nH | BGT 0x25058 00025010 0c 85 00 00 00 01 | | CMPI.L #0x00000001,D5 00025016 66 04 |f | BNE 0x2501c 00025018 7e 2f |~/ | MOVEQ.L #0x2f,D7 0002501a 60 18 |` | BRA 0x25034 0002501c 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00025020 20 05 | | MOVE.L D5,D0 00025022 53 80 |S | SUBQ.L #0x1,D0 00025024 53 80 |S | SUBQ.L #0x1,D0 00025026 0c 80 00 00 00 7d | } | CMPI.L #0x0000007d,D0 0002502c 63 02 |c | BLS 0x25030 0002502e 4e 4f |NO | TRAP #15 00025030 1e 30 08 02 | 0 | MOVE.B (A0+D0.L+#0x2),D7 00025034 55 4f |UO | SUBQ.L #0x2,A7 00025036 2f 12 |/ | MOVE.L (A2),-(A7) 00025038 2f 13 |/ | MOVE.L (A3),-(A7) 0002503a 20 2f 00 0e | / | MOVE.L (A7+0xe),D0 0002503e d0 85 | | ADD.L D5,D0 00025040 53 80 |S | SUBQ.L #0x1,D0 00025042 2f 00 |/ | MOVE.L D0,-(A7) 00025044 4e ba f5 fa |N | JSR 0x24640 00025048 de c2 | | ADDA.W D2,A7 0002504a be 1f | | CMP.B (A7)+,D7 0002504c 67 04 |g | BEQ 0x25052 0002504e 58 4f |XO | ADDQ.L #0x4,A7 00025050 60 08 |` | BRA 0x2505a 00025052 2c 05 |, | MOVE.L D5,D6 00025054 52 85 |R | ADDQ.L #0x1,D5 00025056 68 b4 |h | BVC 0x2500c 00025058 58 4f |XO | ADDQ.L #0x4,A7 0002505a bc 91 | | CMP.L (A1),D6 0002505c 66 32 |f2 | BNE 0x25090 0002505e 20 17 | | MOVE.L (A7),D0 00025060 22 00 |" | MOVE.L D0,D1 00025062 d2 91 | | ADD.L (A1),D1 00025064 b2 94 | | CMP.L (A4),D1 00025066 6c 26 |l& | BGE 0x2508e 00025068 55 4f |UO | SUBQ.L #0x2,A7 0002506a 2f 12 |/ | MOVE.L (A2),-(A7) 0002506c 2f 13 |/ | MOVE.L (A3),-(A7) 0002506e 2f 01 |/ | MOVE.L D1,-(A7) 00025070 4e ba f5 ce |N | JSR 0x24640 00025074 de c2 | | ADDA.W D2,A7 00025076 1e 1f | | MOVE.B (A7)+,D7 00025078 0c 07 00 2f | / | CMPI.B #0x2f,D7 0002507c 67 06 |g | BEQ 0x25084 0002507e 0c 07 00 3d | = | CMPI.B #0x3d,D7 00025082 66 08 |f | BNE 0x2508c 00025084 2d 40 00 14 |-@ | MOVE.L D0,(A6+0x14) 00025088 50 4f |PO | ADDQ.L #0x8,A7 0002508a 60 0e |` | BRA 0x2509a 0002508c 60 02 |` | BRA 0x25090 0002508e 60 f4 |` | BRA 0x25084 00025090 20 1f | | MOVE.L (A7)+,D0 00025092 52 80 |R | ADDQ.L #0x1,D0 00025094 68 00 ff 64 |h d | BVC 0x24ffa 00025098 58 4f |XO | ADDQ.L #0x4,A7 0002509a 4c df 1f e7 |L | MOVEM.L (A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3+A4 0002509e 4e 5e |N^ | UNLK A6 000250a0 4e 75 |Nu | RTS 000250a2 ; -------------------------------------------------------------------------------------- 000250a2 ; OMSI PASCAL Function 000250a2 ; <LVAR 0x018 4(r)> 000250a2 ; <LVAR 0x014 4(r)> 000250a2 ; <LVAR 0x010 4(r)> 000250a2 ; <LVAR 0x00c 4(r)> 000250a2 ; <LVAR 0x008 4(r)> 000250a2 ; <LVAR -0x008 4(rw)> 000250a2 ; <LVAR -0x014 4(rw)> 000250a2 ; <LVAR -0x018 4(rw)> 000250a2 ; <LVAR -0x01c 4(rw)> 000250a2 ; -------------------------------------------------------------------------------------- 000250a2 4e 56 ff 8e |NV | LINK.W A6,#0xff8e 000250a6 bf d5 | | CMPA.L (A5),A7 000250a8 62 06 |b | BHI 0x250b0 000250aa 44 fc 00 02 |D | MOVE.W #0x2,CCR 000250ae 4e 76 |Nv | TRAPV 000250b0 de fc 00 56 | V | ADDA.W #0x56,A7 000250b4 48 e7 e7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7) 000250b8 45 ee ff e4 |E | LEA.L (A6-0x1c),A2 000250bc 47 ee ff e8 |G | LEA.L (A6-0x18),A3 000250c0 49 ee ff f8 |I | LEA.L (A6-0x8),A4 000250c4 72 0c |r | MOVEQ.L #0x0c,D1 000250c6 74 01 |t | MOVEQ.L #0x01,D2 000250c8 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 000250cc 42 10 |B | CLR.B (A0) 000250ce 22 6e 00 0c |"n | MOVEA.L (A6+0xc),A1 000250d2 22 82 |" | MOVE.L D2,(A1) 000250d4 51 4f |QO | SUBQ.L #0x8,A7 000250d6 2f 2e 00 18 |/. | MOVE.L (A6+0x18),-(A7) 000250da 2f 2e 00 14 |/. | MOVE.L (A6+0x14),-(A7) 000250de 4e ba d9 ac |N | JSR 0x22a8c 000250e2 50 4f |PO | ADDQ.L #0x8,A7 000250e4 24 9f |$ | MOVE.L (A7)+,(A2) 000250e6 26 9f |& | MOVE.L (A7)+,(A3) 000250e8 4a 92 |J | TST.L (A2) 000250ea 67 00 00 96 |g | BEQ 0x25182 000250ee 59 4f |YO | SUBQ.L #0x4,A7 000250f0 2f 13 |/ | MOVE.L (A3),-(A7) 000250f2 2f 12 |/ | MOVE.L (A2),-(A7) 000250f4 2f 2e 00 10 |/. | MOVE.L (A6+0x10),-(A7) 000250f8 4e ba fe b0 |N | JSR 0x24faa 000250fc de c1 | | ADDA.W D1,A7 000250fe 2d 5f ff ec |-_ | MOVE.L (A7)+,(A6-0x14) 00025102 67 7e |g~ | BEQ 0x25182 00025104 10 82 | | MOVE.B D2,(A0) 00025106 48 51 |HQ | PEA.L (A1) 00025108 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 0002510e 2f 13 |/ | MOVE.L (A3),-(A7) 00025110 2f 12 |/ | MOVE.L (A2),-(A7) 00025112 4e ba d9 40 |N @ | JSR 0x22a54 00025116 50 4f |PO | ADDQ.L #0x8,A7 00025118 28 9f |( | MOVE.L (A7)+,(A4) 0002511a 20 2e ff ec | . | MOVE.L (A6-0x14),D0 0002511e 52 80 |R | ADDQ.L #0x1,D0 00025120 2f 14 |/ | MOVE.L (A4),-(A7) 00025122 2a 00 |* | MOVE.L D0,D5 00025124 ba 97 | | CMP.L (A7),D5 00025126 6e 58 |nX | BGT 0x25180 00025128 55 4f |UO | SUBQ.L #0x2,A7 0002512a 2f 13 |/ | MOVE.L (A3),-(A7) 0002512c 2f 12 |/ | MOVE.L (A2),-(A7) 0002512e 2f 05 |/ | MOVE.L D5,-(A7) 00025130 4e ba f5 0e |N | JSR 0x24640 00025134 de c1 | | ADDA.W D1,A7 00025136 10 1f | | MOVE.B (A7)+,D0 00025138 0c 00 00 3d | = | CMPI.B #0x3d,D0 0002513c 66 3e |f> | BNE 0x2517c 0002513e 20 05 | | MOVE.L D5,D0 00025140 52 80 |R | ADDQ.L #0x1,D0 00025142 2f 14 |/ | MOVE.L (A4),-(A7) 00025144 2e 00 |. | MOVE.L D0,D7 00025146 be 97 | | CMP.L (A7),D7 00025148 6e 2e |n. | BGT 0x25178 0002514a 55 4f |UO | SUBQ.L #0x2,A7 0002514c 2f 13 |/ | MOVE.L (A3),-(A7) 0002514e 2f 12 |/ | MOVE.L (A2),-(A7) 00025150 2f 07 |/ | MOVE.L D7,-(A7) 00025152 4e ba f4 ec |N | JSR 0x24640 00025156 de c1 | | ADDA.W D1,A7 00025158 1c 1f | | MOVE.B (A7)+,D6 0002515a 0c 06 00 2f | / | CMPI.B #0x2f,D6 0002515e 66 04 |f | BNE 0x25164 00025160 50 4f |PO | ADDQ.L #0x8,A7 00025162 60 1e |` | BRA 0x25182 00025164 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 00025168 2f 10 |/ | MOVE.L (A0),-(A7) 0002516a 1f 06 | | MOVE.B D6,-(A7) 0002516c 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00025172 5c 4f |\O | ADDQ.L #0x6,A7 00025174 52 87 |R | ADDQ.L #0x1,D7 00025176 68 ce |h | BVC 0x25146 00025178 50 4f |PO | ADDQ.L #0x8,A7 0002517a 60 06 |` | BRA 0x25182 0002517c 52 85 |R | ADDQ.L #0x1,D5 0002517e 68 a4 |h | BVC 0x25124 00025180 58 4f |XO | ADDQ.L #0x4,A7 00025182 4c df 1f e7 |L | MOVEM.L (A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3+A4 00025186 4e 5e |N^ | UNLK A6 00025188 4e 75 |Nu | RTS 0002518a ; -------------------------------------------------------------------------------------- 0002518a ; OMSI PASCAL Function 0002518a ; <LVAR 0x00c @ 4(r)> 0002518a ; <LVAR 0x008 4(r)> 0002518a ; <LVAR -0x010 @ 1(r)> 0002518a ; -------------------------------------------------------------------------------------- 0002518a 4e 56 ff c0 |NV | LINK.W A6,#0xffc0 0002518e bf d5 | | CMPA.L (A5),A7 00025190 62 06 |b | BHI 0x25198 00025192 44 fc 00 02 |D | MOVE.W #0x2,CCR 00025196 4e 76 |Nv | TRAPV 00025198 de fc 00 30 | 0 | ADDA.W #0x30,A7 0002519c 48 e7 87 f0 |H | MOVEM.L A3+A2+A1+A0+D7+D6+D5+D0,-(A7) 000251a0 43 f9 00 02 79 5a |C yZ | LEA.L 0x2795a,A1 000251a6 45 ee 00 08 |E | LEA.L (A6+0x8),A2 000251aa 47 ee 00 0c |G | LEA.L (A6+0xc),A3 000251ae 2f 13 |/ | MOVE.L (A3),-(A7) 000251b0 2f 12 |/ | MOVE.L (A2),-(A7) 000251b2 48 6e ff f0 |Hn | PEA.L (A6-0x10) 000251b6 4e b9 00 02 15 8a |N | JSR 0x2158a 000251bc de fc 00 0c | | ADDA.W #0xc,A7 000251c0 4a 2e ff f0 |J. | TST.B (A6-0x10) 000251c4 66 50 |fP | BNE 0x25216 000251c6 2e 11 |. | MOVE.L (A1),D7 000251c8 59 4f |YO | SUBQ.L #0x4,A7 000251ca 2f 12 |/ | MOVE.L (A2),-(A7) 000251cc 4e ba d0 80 |N | JSR 0x2224e 000251d0 58 4f |XO | ADDQ.L #0x4,A7 000251d2 2c 1f |, | MOVE.L (A7)+,D6 000251d4 2f 13 |/ | MOVE.L (A3),-(A7) 000251d6 2f 12 |/ | MOVE.L (A2),-(A7) 000251d8 4e ba f3 2a |N * | JSR 0x24504 000251dc 50 4f |PO | ADDQ.L #0x8,A7 000251de 2a 11 |* | MOVE.L (A1),D5 000251e0 20 07 | | MOVE.L D7,D0 000251e2 53 80 |S | SUBQ.L #0x1,D0 000251e4 0c 80 00 00 1f ff | | CMPI.L #0x00001fff,D0 000251ea 63 02 |c | BLS 0x251ee 000251ec 4e 4f |NO | TRAP #15 000251ee 41 f9 00 02 59 52 |A YR | LEA.L 0x25952,A0 000251f4 10 30 08 08 | 0 | MOVE.B (A0+D0.L+#0x8),D0 000251f8 0c 00 00 25 | % | CMPI.B #0x25,D0 000251fc 66 0c |f | BNE 0x2520a 000251fe 22 87 |" | MOVE.L D7,(A1) 00025200 2f 12 |/ | MOVE.L (A2),-(A7) 00025202 2f 06 |/ | MOVE.L D6,-(A7) 00025204 4e ba fb 5c |N \ | JSR 0x24d62 00025208 50 4f |PO | ADDQ.L #0x8,A7 0002520a 52 87 |R | ADDQ.L #0x1,D7 0002520c be b9 00 02 79 5e | y^ | CMP.L 0x2795e,D7 00025212 6f cc |o | BLE 0x251e0 00025214 22 85 |" | MOVE.L D5,(A1) 00025216 48 53 |HS | PEA.L (A3) 00025218 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 0002521e 58 4f |XO | ADDQ.L #0x4,A7 00025220 4c df 0f e1 |L | MOVEM.L (A7)+,D0+D5+D6+D7+A0+A1+A2+A3 00025224 4e 5e |N^ | UNLK A6 00025226 4e 75 |Nu | RTS 00025228 ; -------------------------------------------------------------------------------------- 00025228 ; OMSI PASCAL Function 00025228 ; <LVAR -0x006 @ 4(r)> 00025228 ; <LVAR -0x00a @ 4(rw)> 00025228 ; <LVAR -0x00b 1(w)> 00025228 ; <LVAR -0x00c @ 1(r)> 00025228 ; -------------------------------------------------------------------------------------- 00025228 4e 56 ff 94 |NV | LINK.W A6,#0xff94 0002522c bf d5 | | CMPA.L (A5),A7 0002522e 62 06 |b | BHI 0x25236 00025230 44 fc 00 02 |D | MOVE.W #0x2,CCR 00025234 4e 76 |Nv | TRAPV 00025236 de fc 00 54 | T | ADDA.W #0x54,A7 0002523a 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 0002523e 45 ee ff fa |E | LEA.L (A6-0x6),A2 00025242 47 f9 00 02 79 5a |G yZ | LEA.L 0x2795a,A3 00025248 49 ee ff f6 |I | LEA.L (A6-0xa),A4 0002524c 2e 13 |. | MOVE.L (A3),D7 0002524e 48 52 |HR | PEA.L (A2) 00025250 48 6e ff f4 |Hn | PEA.L (A6-0xc) 00025254 4e ba cf 4c |N L | JSR 0x221a2 00025258 50 4f |PO | ADDQ.L #0x8,A7 0002525a 2c 13 |, | MOVE.L (A3),D6 0002525c 59 4f |YO | SUBQ.L #0x4,A7 0002525e 2f 12 |/ | MOVE.L (A2),-(A7) 00025260 4e ba cf ec |N | JSR 0x2224e 00025264 58 4f |XO | ADDQ.L #0x4,A7 00025266 20 1f | | MOVE.L (A7)+,D0 00025268 0c 80 ff ff ff ff | | CMPI.L #0xffffffff,D0 0002526e 67 00 02 ac |g | BEQ 0x2551c 00025272 59 4f |YO | SUBQ.L #0x4,A7 00025274 2f 12 |/ | MOVE.L (A2),-(A7) 00025276 48 78 00 00 |Hx | PEA.L 0x0 0002527a 4e ba d8 ee |N | JSR 0x22b6a 0002527e 50 4f |PO | ADDQ.L #0x8,A7 00025280 28 97 |( | MOVE.L (A7),(A4) 00025282 54 4f |TO | ADDQ.L #0x2,A7 00025284 2f 14 |/ | MOVE.L (A4),-(A7) 00025286 4e ba f1 c4 |N | JSR 0x2444c 0002528a 58 4f |XO | ADDQ.L #0x4,A7 0002528c 10 1f | | MOVE.B (A7)+,D0 0002528e 48 80 |H | EXTB.W D0 00025290 41 bc 00 2b |A + | CHK.W #0x2b,D0 00025294 1d 40 ff f5 | @ | MOVE.B D0,(A6-0xb) 00025298 4a 00 |J | TST.B D0 0002529a 66 0e |f | BNE 0x252aa 0002529c 2f 14 |/ | MOVE.L (A4),-(A7) 0002529e 2f 12 |/ | MOVE.L (A2),-(A7) 000252a0 4e ba fe e8 |N | JSR 0x2518a 000252a4 50 4f |PO | ADDQ.L #0x8,A7 000252a6 60 00 02 6c |` l | BRA 0x25514 000252aa 48 54 |HT | PEA.L (A4) 000252ac 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000252b2 58 4f |XO | ADDQ.L #0x4,A7 000252b4 12 00 | | MOVE.B D0,D1 000252b6 48 81 |H | EXTB.W D1 000252b8 43 bc 00 2b |C + | CHK.W #0x2b,D1 000252bc 41 fa ca 86 |A | LEA.L 0x21d44,A0 000252c0 30 01 |0 | MOVE.W D1,D0 000252c2 48 c0 |H | EXTW.L D0 000252c4 24 00 |$ | MOVE.L D0,D2 000252c6 e2 9a | | ROR.L #0x1,D2 000252c8 d0 c2 | | ADDA.W D2,A0 000252ca 48 42 |HB | SWAP.W D2 000252cc e7 5a | Z | ROL.W #0x3,D2 000252ce 42 83 |B | CLR.L D3 000252d0 16 10 | | MOVE.B (A0),D3 000252d2 e5 2b | + | LSL.B D2,D3 000252d4 e8 0b | | LSR.B #0x4,D3 000252d6 2a 03 |* | MOVE.L D3,D5 000252d8 0c 85 00 00 00 0f | | CMPI.L #0x0000000f,D5 000252de 67 2c |g, | BEQ 0x2530c 000252e0 28 00 |( | MOVE.L D0,D4 000252e2 76 0a |v | MOVEQ.L #0x0a,D3 000252e4 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4 000252ea 41 fa c8 8a |A | LEA.L COMMAND_TABLE_21b76,A0 000252ee 9e fc 00 0a | | SUBA.W #0xa,A7 000252f2 22 4f |"O | MOVEA.L A7,A1 000252f4 41 f0 40 00 |A @ | LEA.L (A0+D4.W),A0 000252f8 70 09 |p | MOVEQ.L #0x09,D0 000252fa 12 d8 | | MOVE.B (A0)+,(A1)+ 000252fc 51 c8 ff fc |Q | DBF D0,0x252fa 00025300 2f 12 |/ | MOVE.L (A2),-(A7) 00025302 2f 05 |/ | MOVE.L D5,-(A7) 00025304 4e ba cf 7e |N ~ | JSR 0x22284 00025308 de fc 00 12 | | ADDA.W #0x12,A7 0002530c 53 41 |SA | SUBQ.W #0x1,D1 0002530e 0c 41 00 2a | A * | CMPI.W #0x002a,D1 00025312 63 02 |c | BLS 0x25316 00025314 4e 4e |NN | TRAP #14 00025316 d2 41 | A | ADD.W D1,D1 00025318 32 3b 10 06 4e fb 10 02 |2; N | SWITCH D1.W 00025320 00 56 | V | .CONST 0x56 ; [0x0] -> 0x25376 00025322 00 62 | b | .CONST 0x62 ; [0x1] -> 0x25382 00025324 00 74 | t | .CONST 0x74 ; [0x2] -> 0x25394 00025326 00 82 | | .CONST 0x82 ; [0x3] -> 0x253a2 00025328 01 e6 | | .CONST 0x1e6 ; [0x4] -> 0x25506 0002532a 00 8a | | .CONST 0x8a ; [0x5] -> 0x253aa 0002532c 00 8e | | .CONST 0x8e ; [0x6] -> 0x253ae 0002532e 00 96 | | .CONST 0x96 ; [0x7] -> 0x253b6 00025330 00 9e | | .CONST 0x9e ; [0x8] -> 0x253be 00025332 00 a6 | | .CONST 0xa6 ; [0x9] -> 0x253c6 00025334 00 ae | | .CONST 0xae ; [0xa] -> 0x253ce 00025336 00 b6 | | .CONST 0xb6 ; [0xb] -> 0x253d6 00025338 00 be | | .CONST 0xbe ; [0xc] -> 0x253de 0002533a 00 c6 | | .CONST 0xc6 ; [0xd] -> 0x253e6 0002533c 00 ce | | .CONST 0xce ; [0xe] -> 0x253ee 0002533e 00 d6 | | .CONST 0xd6 ; [0xf] -> 0x253f6 00025340 00 e0 | | .CONST 0xe0 ; [0x10] -> 0x25400 00025342 00 ea | | .CONST 0xea ; [0x11] -> 0x2540a 00025344 00 f4 | | .CONST 0xf4 ; [0x12] -> 0x25414 00025346 00 fe | | .CONST 0xfe ; [0x13] -> 0x2541e 00025348 01 08 | | .CONST 0x108 ; [0x14] -> 0x25428 0002534a 01 12 | | .CONST 0x112 ; [0x15] -> 0x25432 0002534c 01 1c | | .CONST 0x11c ; [0x16] -> 0x2543c 0002534e 01 26 | & | .CONST 0x126 ; [0x17] -> 0x25446 00025350 01 30 | 0 | .CONST 0x130 ; [0x18] -> 0x25450 00025352 01 3a | : | .CONST 0x13a ; [0x19] -> 0x2545a 00025354 01 44 | D | .CONST 0x144 ; [0x1a] -> 0x25464 00025356 01 4e | N | .CONST 0x14e ; [0x1b] -> 0x2546e 00025358 01 58 | X | .CONST 0x158 ; [0x1c] -> 0x25478 0002535a 01 62 | b | .CONST 0x162 ; [0x1d] -> 0x25482 0002535c 01 6c | l | .CONST 0x16c ; [0x1e] -> 0x2548c 0002535e 01 76 | v | .CONST 0x176 ; [0x1f] -> 0x25496 00025360 01 80 | | .CONST 0x180 ; [0x20] -> 0x254a0 00025362 01 8a | | .CONST 0x18a ; [0x21] -> 0x254aa 00025364 01 94 | | .CONST 0x194 ; [0x22] -> 0x254b4 00025366 01 9e | | .CONST 0x19e ; [0x23] -> 0x254be 00025368 01 a8 | | .CONST 0x1a8 ; [0x24] -> 0x254c8 0002536a 01 b2 | | .CONST 0x1b2 ; [0x25] -> 0x254d2 0002536c 01 b8 | | .CONST 0x1b8 ; [0x26] -> 0x254d8 0002536e 01 c2 | | .CONST 0x1c2 ; [0x27] -> 0x254e2 00025370 01 cc | | .CONST 0x1cc ; [0x28] -> 0x254ec 00025372 01 d6 | | .CONST 0x1d6 ; [0x29] -> 0x254f6 00025374 01 dc | | .CONST 0x1dc ; [0x2a] -> 0x254fc 00025376 switch@0x25318[0x0]: 00025376 2f 12 |/ | MOVE.L (A2),-(A7) 00025378 4e ba d9 78 |N x | JSR 0x22cf2 0002537c 58 4f |XO | ADDQ.L #0x4,A7 0002537e 60 00 01 94 |` | BRA 0x25514 00025382 switch@0x25318[0x1]: 00025382 42 27 |B' | CLR.B -(A7) 00025384 48 78 00 01 |Hx | PEA.L 0x1 00025388 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 0002538e 5c 4f |\O | ADDQ.L #0x6,A7 00025390 60 00 01 82 |` | BRA 0x25514 00025394 switch@0x25318[0x2]: 00025394 59 4f |YO | SUBQ.L #0x4,A7 00025396 4e b9 00 01 02 ac |N | JSR FSCALL_102ac 0002539c 4e ba d9 2a |N * | JSR 0x22cc8 000253a0 60 da |` | BRA 0x2537c 000253a2 switch@0x25318[0x3]: 000253a2 2f 12 |/ | MOVE.L (A2),-(A7) 000253a4 4e ba db 26 |N & | JSR 0x22ecc 000253a8 60 d2 |` | BRA 0x2537c 000253aa switch@0x25318[0x5]: 000253aa 60 00 01 68 |` h | BRA 0x25514 000253ae switch@0x25318[0x6]: 000253ae 2f 12 |/ | MOVE.L (A2),-(A7) 000253b0 4e ba de 40 |N @ | JSR 0x231f2 000253b4 60 c6 |` | BRA 0x2537c 000253b6 switch@0x25318[0x7]: 000253b6 2f 12 |/ | MOVE.L (A2),-(A7) 000253b8 4e ba df a4 |N | JSR 0x2335e 000253bc 60 be |` | BRA 0x2537c 000253be switch@0x25318[0x8]: 000253be 2f 12 |/ | MOVE.L (A2),-(A7) 000253c0 4e ba e0 8a |N | JSR 0x2344c 000253c4 60 b6 |` | BRA 0x2537c 000253c6 switch@0x25318[0x9]: 000253c6 2f 12 |/ | MOVE.L (A2),-(A7) 000253c8 4e ba e4 76 |N v | JSR 0x23840 000253cc 60 ae |` | BRA 0x2537c 000253ce switch@0x25318[0xa]: 000253ce 2f 12 |/ | MOVE.L (A2),-(A7) 000253d0 4e ba e4 e6 |N | JSR 0x238b8 000253d4 60 a6 |` | BRA 0x2537c 000253d6 switch@0x25318[0xb]: 000253d6 2f 12 |/ | MOVE.L (A2),-(A7) 000253d8 4e ba e5 56 |N V | JSR 0x23930 000253dc 60 9e |` | BRA 0x2537c 000253de switch@0x25318[0xc]: 000253de 2f 12 |/ | MOVE.L (A2),-(A7) 000253e0 4e ba e5 7a |N z | JSR 0x2395c 000253e4 60 96 |` | BRA 0x2537c 000253e6 switch@0x25318[0xd]: 000253e6 2f 12 |/ | MOVE.L (A2),-(A7) 000253e8 4e ba e6 72 |N r | JSR 0x23a5c 000253ec 60 8e |` | BRA 0x2537c 000253ee switch@0x25318[0xe]: 000253ee 2f 12 |/ | MOVE.L (A2),-(A7) 000253f0 4e ba e7 50 |N P | JSR 0x23b42 000253f4 60 86 |` | BRA 0x2537c 000253f6 switch@0x25318[0xf]: 000253f6 2f 12 |/ | MOVE.L (A2),-(A7) 000253f8 4e ba e7 74 |N t | JSR 0x23b6e 000253fc 60 00 ff 7e |` ~ | BRA 0x2537c 00025400 switch@0x25318[0x10]: 00025400 2f 12 |/ | MOVE.L (A2),-(A7) 00025402 4e ba e7 b6 |N | JSR 0x23bba 00025406 60 00 ff 74 |` t | BRA 0x2537c 0002540a switch@0x25318[0x11]: 0002540a 2f 12 |/ | MOVE.L (A2),-(A7) 0002540c 4e ba e7 f8 |N | JSR 0x23c06 00025410 60 00 ff 6a |` j | BRA 0x2537c 00025414 switch@0x25318[0x12]: 00025414 2f 12 |/ | MOVE.L (A2),-(A7) 00025416 4e ba e8 3a |N : | JSR 0x23c52 0002541a 60 00 ff 60 |` ` | BRA 0x2537c 0002541e switch@0x25318[0x13]: 0002541e 2f 12 |/ | MOVE.L (A2),-(A7) 00025420 4e ba e8 7c |N | | JSR 0x23c9e 00025424 60 00 ff 56 |` V | BRA 0x2537c 00025428 switch@0x25318[0x14]: 00025428 2f 12 |/ | MOVE.L (A2),-(A7) 0002542a 4e ba e8 be |N | JSR 0x23cea 0002542e 60 00 ff 4c |` L | BRA 0x2537c 00025432 switch@0x25318[0x15]: 00025432 2f 12 |/ | MOVE.L (A2),-(A7) 00025434 4e ba e9 00 |N | JSR 0x23d36 00025438 60 00 ff 42 |` B | BRA 0x2537c 0002543c switch@0x25318[0x16]: 0002543c 2f 12 |/ | MOVE.L (A2),-(A7) 0002543e 4e ba e9 40 |N @ | JSR 0x23d80 00025442 60 00 ff 38 |` 8 | BRA 0x2537c 00025446 switch@0x25318[0x17]: 00025446 2f 12 |/ | MOVE.L (A2),-(A7) 00025448 4e ba e9 80 |N | JSR 0x23dca 0002544c 60 00 ff 2e |` . | BRA 0x2537c 00025450 switch@0x25318[0x18]: 00025450 2f 12 |/ | MOVE.L (A2),-(A7) 00025452 4e ba e9 c0 |N | JSR 0x23e14 00025456 60 00 ff 24 |` $ | BRA 0x2537c 0002545a switch@0x25318[0x19]: 0002545a 2f 12 |/ | MOVE.L (A2),-(A7) 0002545c 4e ba ea 00 |N | JSR 0x23e5e 00025460 60 00 ff 1a |` | BRA 0x2537c 00025464 switch@0x25318[0x1a]: 00025464 2f 12 |/ | MOVE.L (A2),-(A7) 00025466 4e ba ea 40 |N @ | JSR 0x23ea8 0002546a 60 00 ff 10 |` | BRA 0x2537c 0002546e switch@0x25318[0x1b]: 0002546e 2f 12 |/ | MOVE.L (A2),-(A7) 00025470 4e ba ea 80 |N | JSR 0x23ef2 00025474 60 00 ff 06 |` | BRA 0x2537c 00025478 switch@0x25318[0x1c]: 00025478 2f 12 |/ | MOVE.L (A2),-(A7) 0002547a 4e ba ea c0 |N | JSR 0x23f3c 0002547e 60 00 fe fc |` | BRA 0x2537c 00025482 switch@0x25318[0x1d]: 00025482 2f 12 |/ | MOVE.L (A2),-(A7) 00025484 4e ba eb 00 |N | JSR 0x23f86 00025488 60 00 fe f2 |` | BRA 0x2537c 0002548c switch@0x25318[0x1e]: 0002548c 2f 12 |/ | MOVE.L (A2),-(A7) 0002548e 4e ba eb 3a |N : | JSR 0x23fca 00025492 60 00 fe e8 |` | BRA 0x2537c 00025496 switch@0x25318[0x1f]: 00025496 2f 12 |/ | MOVE.L (A2),-(A7) 00025498 4e ba eb 76 |N v | JSR 0x24010 0002549c 60 00 fe de |` | BRA 0x2537c 000254a0 switch@0x25318[0x20]: 000254a0 2f 12 |/ | MOVE.L (A2),-(A7) 000254a2 4e ba eb a2 |N | JSR 0x24046 000254a6 60 00 fe d4 |` | BRA 0x2537c 000254aa switch@0x25318[0x21]: 000254aa 2f 12 |/ | MOVE.L (A2),-(A7) 000254ac 4e ba ec 28 |N ( | JSR 0x240d6 000254b0 60 00 fe ca |` | BRA 0x2537c 000254b4 switch@0x25318[0x22]: 000254b4 2f 12 |/ | MOVE.L (A2),-(A7) 000254b6 4e ba ec 90 |N | JSR 0x24148 000254ba 60 00 fe c0 |` | BRA 0x2537c 000254be switch@0x25318[0x23]: 000254be 2f 12 |/ | MOVE.L (A2),-(A7) 000254c0 4e ba df ec |N | JSR 0x234ae 000254c4 60 00 fe b6 |` | BRA 0x2537c 000254c8 switch@0x25318[0x24]: 000254c8 2f 12 |/ | MOVE.L (A2),-(A7) 000254ca 4e ba e0 4c |N L | JSR 0x23518 000254ce 60 00 fe ac |` | BRA 0x2537c 000254d2 switch@0x25318[0x25]: 000254d2 4e ba e0 16 |N | JSR 0x234ea 000254d6 60 3c |`< | BRA 0x25514 000254d8 switch@0x25318[0x26]: 000254d8 2f 12 |/ | MOVE.L (A2),-(A7) 000254da 4e ba ec de |N | JSR 0x241ba 000254de 60 00 fe 9c |` | BRA 0x2537c 000254e2 switch@0x25318[0x27]: 000254e2 2f 12 |/ | MOVE.L (A2),-(A7) 000254e4 4e ba ed 56 |N V | JSR 0x2423c 000254e8 60 00 fe 92 |` | BRA 0x2537c 000254ec switch@0x25318[0x28]: 000254ec 2f 12 |/ | MOVE.L (A2),-(A7) 000254ee 4e ba ed cc |N | JSR 0x242bc 000254f2 60 00 fe 88 |` | BRA 0x2537c 000254f6 switch@0x25318[0x29]: 000254f6 4e ba ee 88 |N | JSR 0x24380 000254fa 60 18 |` | BRA 0x25514 000254fc switch@0x25318[0x2a]: 000254fc 2f 12 |/ | MOVE.L (A2),-(A7) 000254fe 4e ba ee a0 |N | JSR 0x243a0 00025502 60 00 fe 78 |` x | BRA 0x2537c 00025506 switch@0x25318[0x4]: 00025506 2e 6d 00 08 |.m | MOVEA.L (A5+0x8),A7 0002550a 3c 7c 00 00 |<| | MOVEA.W #0x0,A6 0002550e 4e f9 00 02 57 1e |N W | JMP 0x2571e 00025514 2f 12 |/ | MOVE.L (A2),-(A7) 00025516 4e ba c8 e8 |N | JSR 0x21e00 0002551a 58 4f |XO | ADDQ.L #0x4,A7 0002551c 2f 06 |/ | MOVE.L D6,-(A7) 0002551e 2f 06 |/ | MOVE.L D6,-(A7) 00025520 9f 97 | | SUB.L D7,(A7) 00025522 4e ba ce 72 |N r | JSR 0x22396 00025526 50 4f |PO | ADDQ.L #0x8,A7 00025528 26 87 |& | MOVE.L D7,(A3) 0002552a 4a 2e ff f4 |J. | TST.B (A6-0xc) 0002552e 67 00 fd 1c |g | BEQ 0x2524c 00025532 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00025536 4e 5e |N^ | UNLK A6 00025538 4e 75 |Nu | RTS 0002553a ; -------------------------------------------------------------------------------------- 0002553a ; OMSI PASCAL Function 0002553a ; -------------------------------------------------------------------------------------- 0002553a START: 0002553a 4f fa 00 08 |O | LEA.L MAIN,A7 0002553e 4e f9 00 01 02 80 |N | JMP ?start_program 00025544 MAIN: 00025544 23 fc 00 00 00 01 00 02 |# | MOVE.L #0x1,0x27984 0002554c 79 84 |y | 0002554e 59 4f |YO | SUBQ.L #0x4,A7 00025550 4e b9 00 01 03 c4 |N | JSR GetArgv() : String 00025556 23 df 00 02 79 88 |# y | MOVE.L (A7)+,0x27988 0002555c 48 79 00 02 79 62 |Hy yb | PEA.L 0x27962 00025562 4e b9 00 02 16 74 |N t | JSR 0x21674 00025568 58 4f |XO | ADDQ.L #0x4,A7 0002556a 20 79 00 02 79 88 | y y | MOVEA.L 0x27988,A0 00025570 4a 50 |JP | TST.W (A0) 00025572 6f 68 |oh | BLE 0x255dc 00025574 51 4f |QO | SUBQ.L #0x8,A7 00025576 20 4f | O | MOVEA.L A7,A0 00025578 43 fa c5 de |C | LEA.L 0x21b58,A1 0002557c 70 06 |p | MOVEQ.L #0x06,D0 0002557e 10 d9 | | MOVE.B (A1)+,(A0)+ 00025580 51 c8 ff fc |Q | DBF D0,0x2557e 00025584 51 4f |QO | SUBQ.L #0x8,A7 00025586 20 4f | O | MOVEA.L A7,A0 00025588 43 fa c5 d6 |C | LEA.L 0x21b60,A1 0002558c 70 06 |p | MOVEQ.L #0x06,D0 0002558e 10 d9 | | MOVE.B (A1)+,(A0)+ 00025590 51 c8 ff fc |Q | DBF D0,0x2558e 00025594 51 4f |QO | SUBQ.L #0x8,A7 00025596 48 6f 00 10 |Ho | PEA.L (A7+0x10) 0002559a 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 0002559e 3f 3c 00 07 |?< | MOVE.W #0x7,-(A7) 000255a2 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000255a8 58 4f |XO | ADDQ.L #0x4,A7 000255aa 2e b9 00 02 79 88 |. y | MOVE.L 0x27988,(A7) 000255b0 59 4f |YO | SUBQ.L #0x4,A7 000255b2 48 6f 00 10 |Ho | PEA.L (A7+0x10) 000255b6 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000255ba 3f 3c 00 07 |?< | MOVE.W #0x7,-(A7) 000255be 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000255c4 50 4f |PO | ADDQ.L #0x8,A7 000255c6 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 000255cc de fc 00 0c | | ADDA.W #0xc,A7 000255d0 23 df 00 02 79 88 |# y | MOVE.L (A7)+,0x27988 000255d6 de fc 00 10 | | ADDA.W #0x10,A7 000255da 60 3a |`: | BRA 0x25616 000255dc 48 79 00 02 79 88 |Hy y | PEA.L 0x27988 000255e2 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000255e8 59 4f |YO | SUBQ.L #0x4,A7 000255ea 20 4f | O | MOVEA.L A7,A0 000255ec 43 fa c5 7a |C z | LEA.L 0x21b68,A1 000255f0 70 06 |p | MOVEQ.L #0x06,D0 000255f2 10 d9 | | MOVE.B (A1)+,(A0)+ 000255f4 51 c8 ff fc |Q | DBF D0,0x255f2 000255f8 59 4f |YO | SUBQ.L #0x4,A7 000255fa 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000255fe 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00025602 3f 3c 00 07 |?< | MOVE.W #0x7,-(A7) 00025606 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002560c 50 4f |PO | ADDQ.L #0x8,A7 0002560e 23 df 00 02 79 88 |# y | MOVE.L (A7)+,0x27988 00025614 50 4f |PO | ADDQ.L #0x8,A7 00025616 13 fc 00 01 00 02 79 92 | y | MOVE.B #0x01,0x27992 0002561e 4a 39 00 02 79 92 |J9 y | TST.B 0x27992 00025624 67 0a |g | BEQ 0x25630 00025626 42 39 00 02 79 92 |B9 y | CLR.B 0x27992 0002562c 60 00 00 b0 |` | BRA 0x256de 00025630 41 f9 00 02 79 6c |A yl | LEA.L 0x2796c,A0 00025636 70 04 |p | MOVEQ.L #0x04,D0 00025638 3f 20 |? | MOVE.W -(A0),-(A7) 0002563a 51 c8 ff fc |Q | DBF D0,0x25638 0002563e 3f 3a c5 30 |?: 0 | MOVE.W 0x21b70,-(A7) 00025642 9e fc 00 0c | | SUBA.W #0xc,A7 00025646 48 6f 00 0e |Ho | PEA.L (A7+0xe) 0002564a 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 0002564e 3f 3c 00 0a |?< | MOVE.W #0xa,-(A7) 00025652 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00025658 58 4f |XO | ADDQ.L #0x4,A7 0002565a 48 6f 00 10 |Ho | PEA.L (A7+0x10) 0002565e 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00025662 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7) 00025666 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002566c 50 4f |PO | ADDQ.L #0x8,A7 0002566e 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00025674 50 4f |PO | ADDQ.L #0x8,A7 00025676 4e b9 00 01 03 e4 |N | JSR AskConsoleString(prompt : String) : String 0002567c 58 4f |XO | ADDQ.L #0x4,A7 0002567e 23 df 00 02 79 8e |# y | MOVE.L (A7)+,0x2798e 00025684 50 4f |PO | ADDQ.L #0x8,A7 00025686 2e b9 00 02 79 8e |. y | MOVE.L 0x2798e,(A7) 0002568c 4e ba ca 0c |N | JSR 0x2209a 00025690 54 4f |TO | ADDQ.L #0x2,A7 00025692 3e ba c4 de |> | MOVE.W 0x21b72,(A7) 00025696 3f 3a c4 dc |?: | MOVE.W 0x21b74,-(A7) 0002569a 51 4f |QO | SUBQ.L #0x8,A7 0002569c 48 6f 00 0a |Ho | PEA.L (A7+0xa) 000256a0 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000256a4 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7) 000256a8 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000256ae 58 4f |XO | ADDQ.L #0x4,A7 000256b0 2e b9 00 02 79 8e |. y | MOVE.L 0x2798e,(A7) 000256b6 59 4f |YO | SUBQ.L #0x4,A7 000256b8 48 6f 00 10 |Ho | PEA.L (A7+0x10) 000256bc 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000256c0 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7) 000256c4 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000256ca 50 4f |PO | ADDQ.L #0x8,A7 000256cc 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 000256d2 de fc 00 0c | | ADDA.W #0xc,A7 000256d6 23 df 00 02 79 88 |# y | MOVE.L (A7)+,0x27988 000256dc 58 4f |XO | ADDQ.L #0x4,A7 000256de 42 39 00 02 79 8c |B9 y | CLR.B 0x2798c 000256e4 23 fc 00 00 00 01 00 02 |# | MOVE.L #0x1,0x2795a 000256ec 79 5a |yZ | 000256ee 42 b9 00 02 79 5e |B y^ | CLR.L 0x2795e 000256f4 59 4f |YO | SUBQ.L #0x4,A7 000256f6 2f 39 00 02 79 88 |/9 y | MOVE.L 0x27988,-(A7) 000256fc 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 00025702 58 4f |XO | ADDQ.L #0x4,A7 00025704 4e ba d5 06 |N | JSR 0x22c0c 00025708 58 4f |XO | ADDQ.L #0x4,A7 0002570a 20 39 00 02 79 5a | 9 yZ | MOVE.L 0x2795a,D0 00025710 b0 b9 00 02 79 5e | y^ | CMP.L 0x2795e,D0 00025716 6e 06 |n | BGT 0x2571e 00025718 4e ba fb 0e |N | JSR 0x25228 0002571c 60 ec |` | BRA 0x2570a 0002571e 48 79 00 02 79 88 |Hy y | PEA.L 0x27988 00025724 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 0002572a 58 4f |XO | ADDQ.L #0x4,A7 0002572c 60 00 fe f0 |` | BRA 0x2561e 00025730 4e b9 00 01 02 84 |N | .XXX[0x6] 00025736 42 6f 61 72 64 20 20 20 |Board | .TXT 'Board :_ ' 00025744 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment :_ ' 00025752 53 74 61 74 75 73 20 20 |Status | .TXT 'Status :_ ' 00025760 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment error :' 00025772 46 61 74 61 6c 20 65 78 |Fatal ex| .TXT 'Fatal experiment error. ' 0002578a ; -------------------------------------------------------------------------------------- 0002578a ; OMSI PASCAL Function 0002578a ; <LVAR 0x00e 1(r)> 0002578a ; <LVAR 0x00a 4(r)> 0002578a ; <LVAR 0x008 1(r)> 0002578a ; -------------------------------------------------------------------------------------- 0002578a EXP_FAIL: 0002578a 4e 56 ff 8c |NV | LINK.W A6,#0xff8c 0002578e bf d5 | | CMPA.L (A5),A7 00025790 62 06 |b | BHI 0x25798 00025792 44 fc 00 02 |D | MOVE.W #0x2,CCR 00025796 4e 76 |Nv | TRAPV 00025798 de fc 00 74 | t | ADDA.W #0x74,A7 0002579c 48 e7 fc f8 |H | MOVEM.L A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7) 000257a0 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 000257a6 49 f9 00 01 03 e0 |I | LEA.L WriteConsoleStringCrLf(str : String),A4 000257ac 72 01 |r | MOVEQ.L #0x01,D1 000257ae 74 0d |t | MOVEQ.L #0x0d,D2 000257b0 76 1e |v | MOVEQ.L #0x1e,D3 000257b2 78 12 |x | MOVEQ.L #0x12,D4 000257b4 7a 0e |z | MOVEQ.L #0x0e,D5 000257b6 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 000257bc 41 fa ff b4 |A | LEA.L 0x25772,A0 000257c0 70 08 |p | MOVEQ.L #0x08,D0 000257c2 3f 20 |? | MOVE.W -(A0),-(A7) 000257c4 51 c8 ff fc |Q | DBF D0,0x257c2 000257c8 59 4f |YO | SUBQ.L #0x4,A7 000257ca 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000257ce 3f 01 |? | MOVE.W D1,-(A7) 000257d0 3f 04 |? | MOVE.W D4,-(A7) 000257d2 4e 93 |N | JSR (A3) 000257d4 50 4f |PO | ADDQ.L #0x8,A7 000257d6 4e 94 |N | JSR (A4) 000257d8 50 4f |PO | ADDQ.L #0x8,A7 000257da 20 4f | O | MOVEA.L A7,A0 000257dc 43 fa ff 58 |C X | LEA.L 0x25736,A1 000257e0 70 0c |p | MOVEQ.L #0x0c,D0 000257e2 10 d9 | | MOVE.B (A1)+,(A0)+ 000257e4 51 c8 ff fc |Q | DBF D0,0x257e2 000257e8 51 4f |QO | SUBQ.L #0x8,A7 000257ea 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000257ee 3f 01 |? | MOVE.W D1,-(A7) 000257f0 3f 02 |? | MOVE.W D2,-(A7) 000257f2 4e 93 |N | JSR (A3) 000257f4 54 4f |TO | ADDQ.L #0x2,A7 000257f6 1e ae 00 0e | | MOVE.B (A6+0xe),(A7) 000257fa 4e b9 00 01 04 9c |N | JSR BoardName(address : B) : String 00025800 54 4f |TO | ADDQ.L #0x2,A7 00025802 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00025808 50 4f |PO | ADDQ.L #0x8,A7 0002580a 4e 94 |N | JSR (A4) 0002580c de c4 | | ADDA.W D4,A7 0002580e 20 6e 00 0a | n | MOVEA.L (A6+0xa),A0 00025812 b0 c1 | | CMPA.W D1,A0 00025814 67 48 |gH | BEQ 0x2585e 00025816 9e c5 | | SUBA.W D5,A7 00025818 22 4f |"O | MOVEA.L A7,A1 0002581a 45 fa ff 28 |E ( | LEA.L 0x25744,A2 0002581e 70 0c |p | MOVEQ.L #0x0c,D0 00025820 12 da | | MOVE.B (A2)+,(A1)+ 00025822 51 c8 ff fc |Q | DBF D0,0x25820 00025826 9e c3 | | SUBA.W D3,A7 00025828 22 4f |"O | MOVEA.L A7,A1 0002582a 41 e8 00 fc |A | LEA.L (A0+0xfc),A0 0002582e 70 1d |p | MOVEQ.L #0x1d,D0 00025830 12 d8 | | MOVE.B (A0)+,(A1)+ 00025832 51 c8 ff fc |Q | DBF D0,0x25830 00025836 51 4f |QO | SUBQ.L #0x8,A7 00025838 48 6f 00 26 |Ho & | PEA.L (A7+0x26) 0002583c 3f 01 |? | MOVE.W D1,-(A7) 0002583e 3f 02 |? | MOVE.W D2,-(A7) 00025840 4e 93 |N | JSR (A3) 00025842 58 4f |XO | ADDQ.L #0x4,A7 00025844 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00025848 3f 01 |? | MOVE.W D1,-(A7) 0002584a 3f 03 |? | MOVE.W D3,-(A7) 0002584c 4e 93 |N | JSR (A3) 0002584e 50 4f |PO | ADDQ.L #0x8,A7 00025850 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00025856 50 4f |PO | ADDQ.L #0x8,A7 00025858 4e 94 |N | JSR (A4) 0002585a de fc 00 30 | 0 | ADDA.W #0x30,A7 0002585e 9e c5 | | SUBA.W D5,A7 00025860 20 4f | O | MOVEA.L A7,A0 00025862 43 fa fe ee |C | LEA.L 0x25752,A1 00025866 70 0c |p | MOVEQ.L #0x0c,D0 00025868 10 d9 | | MOVE.B (A1)+,(A0)+ 0002586a 51 c8 ff fc |Q | DBF D0,0x25868 0002586e 51 4f |QO | SUBQ.L #0x8,A7 00025870 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00025874 3f 01 |? | MOVE.W D1,-(A7) 00025876 3f 02 |? | MOVE.W D2,-(A7) 00025878 4e 93 |N | JSR (A3) 0002587a 54 4f |TO | ADDQ.L #0x2,A7 0002587c 1e ae 00 08 | | MOVE.B (A6+0x8),(A7) 00025880 4e b9 00 01 04 a2 |N | JSR ExpStatus2Text(status.B, &String) 00025886 54 4f |TO | ADDQ.L #0x2,A7 00025888 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 0002588e 50 4f |PO | ADDQ.L #0x8,A7 00025890 4e 94 |N | JSR (A4) 00025892 5d 4f |]O | SUBQ.L #0x6,A7 00025894 20 4f | O | MOVEA.L A7,A0 00025896 43 fa fe da |C | LEA.L 0x25772,A1 0002589a 70 16 |p | MOVEQ.L #0x16,D0 0002589c 10 d9 | | MOVE.B (A1)+,(A0)+ 0002589e 51 c8 ff fc |Q | DBF D0,0x2589c 000258a2 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 000258a6 59 4f |YO | SUBQ.L #0x4,A7 000258a8 48 6f 00 06 |Ho | PEA.L (A7+0x6) 000258ac 3f 01 |? | MOVE.W D1,-(A7) 000258ae 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7) 000258b2 4e 93 |N | JSR (A3) 000258b4 50 4f |PO | ADDQ.L #0x8,A7 000258b6 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 000258bc de c3 | | ADDA.W D3,A7 000258be 4c df 1f 3f |L ? | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4 000258c2 4e 5e |N^ | UNLK A6 000258c4 4e 75 |Nu | RTS