|
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: 27648 (0x6c00)
Types: M200
Notes: @(#)MT,6.3,92/04/14,12:21:00, M200_PROGRAM
Names: »MT.M200«, »PROGRAM_2.M200«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »MT.M200«
└─ ⟦this⟧ »PROGRAM_2.M200«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »MT.M200«
└─ ⟦this⟧ »PROGRAM_2.M200«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »MT.M200«
└─ ⟦this⟧ »PROGRAM_2.M200«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »MT.M200«
└─ ⟦this⟧ »MT.M200«
└─ ⟦this⟧ »PROGRAM_2.M200«
└─ ⟦this⟧ »PROGRAM_2.M200«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »MT.M200«
└─ ⟦this⟧ »PROGRAM_2.M200«
@ 20630
<LVAR 0x00a 4(r)>
<LVAR 0x008 1(r)>
<POP 20630-20696 Body>
<POP 20630-20646 Prologue> Σ0 ↓
<POP 20646-20652 RegCacheLoad> Σ0 ↓
<POP 20652-20684 Naked> Σ0 ↓ →0x2068e
<MI 20652 MOVE.L (A6+0xa),D4> {}
<MI 20656 MOVEQ.L #0x0a,D3> {}
<Call 0x20658 0x10294> {}
?divs_d3_d4
<MI 2065e MOVE.L (A4+0xe),-(A7)> Δ-4 {[4, '(A4+0xe)']}
<MI 20660 MOVE.L D4,D0> {[4, '(A4+0xe)']}
<MI 20662 ADD.L #0x30,D0> {[4, '(A4+0xe)']}
<POP 0x20664 LimitCheck 0x0 ≤ D0 ≤ 0xff> {[4, '(A4+0xe)']}
<MI 2066e MOVE.B D0,-(A7)> Δ-2 {[4, '(A4+0xe)']|[2, 'D0']}
<Call 0x20670 0x102c0> {[4, '(A4+0xe)']|[2, 'D0']}
AppendChar(MOD b : String; a : char)
<POP 20672-20674 StackAdj> Δ+2 {[4, '(A4+0xe)']}
<MI 20674 MOVE.L (A4+0xe),(A7)> {[4, '(A4+0xe)']}
<MI 20676 ADD.W #0x30,D3> {[4, '(A4+0xe)']}
<MI 20678 MOVE.B D3,-(A7)> Δ-2 {[4, '(A4+0xe)']|[2, 'D3']}
<Call 0x2067a 0x102c0> {[4, '(A4+0xe)']|[2, 'D3']}
AppendChar(MOD b : String; a : char)
<POP 2067c-2067e StackAdj> Δ+6 {}
<MI 2067e TST.B (A6+0x8)> {}
<MI 20682 BEQ 0x2068e> {}
<POP 20684-2068e Naked> Σ0 ↓
<MI 20684 MOVE.L (A4+0xe),-(A7)> Δ-4 {[4, '(A4+0xe)']}
<MI 20686 MOVE.B (A6+0x8),-(A7)> Δ-2 {[4, '(A4+0xe)']|[2, '(A6+0x8)']}
<Call 0x2068a 0x102c0> {[4, '(A4+0xe)']|[2, '(A6+0x8)']}
AppendChar(MOD b : String; a : char)
<POP 2068c-2068e StackAdj> Δ+6 {}
<POP 2068e-20696 Epilogue> Σ0 ←0x20652
@ 20696
<LVAR 0x00c 2(r)>
<LVAR 0x008 2(r)>
<LVAR -0x006 4(rw)>
<LVAR -0x00a 4(rw)>
<LVAR -0x014 @>
<POP 20696-20762 Body>
<POP 20696-206ac Prologue> Σ0 ↓
<POP 206ac-206b6 RegCacheLoad> Σ0 ↓
<POP 206b6-2075a Naked> Σ0 ↓
<MI 206b6 CLR.L D0> {}
<MI 206b8 MOVE.W (A6+0x8),D0> {}
<MI 206bc CLR.L D1> {}
<MI 206be MOVE.W (A6+0xc),D1> {}
<MI 206c2 NEG.L D1> {}
<MI 206c4 ADD.L D0,D1> {}
<POP 0x206c6 LimitCheck 0x0 ≤ D1 ≤ 0xffff> {}
<MI 206d0 MOVE.W D1,D7> {}
<MI 206d2 CLR.L D0> {}
<MI 206d4 MOVE.W D7,D0> {}
<MI 206d6 DIVU.W #0x708,D0> {}
<MI 206da CLR.L D1> {}
<MI 206dc MOVE.W D0,D1> {}
<MI 206de MOVE.L D1,D6> {}
<MI 206e0 SWAP.W D0> {}
<MI 206e2 MOVE.W D0,D7> {}
<MI 206e4 CLR.L D0> {}
<MI 206e6 MOVE.W D7,D0> {}
<MI 206e8 DIVU.W #0x1e,D0> {}
<MI 206ec CLR.L D1> {}
<MI 206ee MOVE.W D0,D1> {}
<MI 206f0 MOVE.L D1,D5> {}
<MI 206f2 SWAP.W D0> {}
<MI 206f4 MOVE.W D0,D7> {}
<MI 206f6 CLR.L D0> {}
<MI 206f8 MOVE.W D7,D0> {}
<MI 206fa ASL.L #0x1,D0> {}
<MI 206fc MOVE.L D0,(A6-0xa)> {}
<Blob 0x20700 [4] @> Δ-4 {[«4""»]}
<Blob 0x20704 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x20708 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x2070c [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 20710-20712 StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x20712 16> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Elapsed time is_]}
<MI 20726 MOVE.L (A7)+,(A6-0x6)> Δ+4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 2072a-2072e StackAdj> Δ+12 {[«4""»]}
<MI 2072e MOVE.L D6,(A7)> {[4, 'D6']}
<Const 0x20730 0x3a.2> Δ-2 {[4, 'D6']|[#58]}
<MI 20732 LEA.L (A6-0x14),A4> {[4, 'D6']|[#58]}
<Call 0x20734 0x20630> {[4, 'D6']|[#58]}
<POP 20736-20738 StackAdj> Δ+2 {[4, 'D6']}
<MI 20738 MOVE.L D5,(A7)> {[4, 'D5']}
<Const 0x2073a 0x3a.2> Δ-2 {[4, 'D5']|[#58]}
<MI 2073c LEA.L (A6-0x14),A4> {[4, 'D5']|[#58]}
<Call 0x2073e 0x20630> {[4, 'D5']|[#58]}
<POP 20740-20742 StackAdj> Δ+2 {[4, 'D5']}
<MI 20742 MOVE.L (A6-0xa),(A7)> {[4, '(A6-0xa)']}
<MI 20746 CLR.B -(A7)> Δ-2 {[4, '(A6-0xa)']|[#0]}
<MI 20748 LEA.L (A6-0x14),A4> {[4, '(A6-0xa)']|[#0]}
<Call 0x2074a 0x20630> {[4, '(A6-0xa)']|[#0]}
<POP 2074c-2074e StackAdj> Δ+2 {[4, '(A6-0xa)']}
<MI 2074e MOVE.L (A6-0x6),(A7)> {[4, '(A6-0x6)']}
<Call 0x20752 0x103e0> {[4, '(A6-0x6)']}
WriteConsoleStringCrLf(str : String)
<POP 20758-2075a StackAdj> Δ+4 {}
<POP 2075a-20762 Epilogue> Σ0
@ 20762
<LVAR 0x01a 1(r)>
<LVAR 0x018 1(rw)>
<LVAR 0x016 1(r)>
<LVAR 0x014 1(r)>
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x004 1(rw)>
<LVAR -0x008 @ 4(rw)>
<LVAR -0x00a 1(rw)>
<LVAR -0x00e 4(rw)>
<LVAR -0x012 4(w)>
<LVAR -0x016 4(w)>
<LVAR -0x01e @ 4(r)>
<LVAR -0x022 @ 4(rw)>
<LVAR -0x03a 2(r)>
<LVAR -0x03b 1(r)>
<LVAR -0x03c 1(r)>
<LVAR -0x03d 1(r)>
<LVAR -0x03e 1(r) 4(r)>
<LVAR -0x03f 1(r)>
<LVAR -0x040 1(r)>
<LVAR -0x044 2(r)>
<LVAR -0x062 @>
<LVAR -0x064 @ 1(r)>
<LVAR -0x065 1(r)>
<LVAR -0x066 @ 1(r)>
<LVAR -0x06c 1(rw)>
<POP 20762-20db6 Body> Δ+48
<POP 20762-20778 Prologue> Σ0 ↓
<POP 20778-2078e RegCacheLoad> Σ0 ↓
<POP 2078e-207dc Naked> Σ0 Δ-4 ↓ →0x207f8
<MI 2078e LEA.L 0x26b38,A0> {}
<MI 20794 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 20796 MOVE.L (A7)+,(A6-0x16)> Δ+4 {}
<MI 2079a LEA.L 0x26f38,A0> {}
<MI 207a0 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 207a2 MOVE.L (A7)+,(A6-0x12)> Δ+4 {}
<MI 207a6 MOVEQ.L #0x00,D7> {}
<MI 207a8 MOVEQ.L #0x01,D6> {}
<MI 207aa MOVEA.L (A6+0x8),A0> {}
<MI 207ae MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 207b0 MOVE.B #0x01,(A0)> {[4, 'A0']}
<MI 207b2 CLR.B 0x2733d> {[4, 'A0']}
<MI 207b8 LEA.L (A6-0x62),A1> {[4, 'A0']}
<MI 207bc MOVE.L A1,-(A7)> Δ-4 {[4, 'A0']|[4, 'A1']}
<Const 0x207be 0x40.2> Δ-2 {[4, 'A0']|[4, 'A1']|[#64]}
<Call 0x207c2 0x10418> {[4, 'A0']|[4, 'A1']|[#64]}
FSCALL_10418
<POP 207c8-207ca StackAdj> Δ+6 {[4, 'A0']}
<Pointer.fp 0x207ca <LVAR -0x066 @ 1(r)>> Δ-4 {[4, 'A0']|[@@-102]}
<Call 0x207cc 0x10408> {[4, 'A0']|[@@-102]}
FSCALL_10408
<POP 207d2-207d4 StackAdj> Δ+4 {[4, 'A0']}
<MI 207d4 MOVE.B (A6-0x66),D0> {[4, 'A0']}
<MI 207d6 CMPI.B #0x06,D0> {[4, 'A0']}
<MI 207da BNE 0x207f8> {[4, 'A0']}
<POP 207dc-207f8 Naked> Σ-4 ↓
<MI 207dc LEA.L (A6-0x62),A0> {[-4-]}
<MI 207e0 MOVE.L A0,-(A7)> Δ-4 {[-4-]|[4, 'A0']}
<Const 0x207e2 0x40.2> Δ-2 {[-4-]|[4, 'A0']|[#64]}
<Call 0x207e6 0x10418> {[-4-]|[4, 'A0']|[#64]}
FSCALL_10418
<POP 207ec-207ee StackAdj> Δ+6 {[-4-]}
<Pointer.fp 0x207ee <LVAR -0x066 @ 1(r)>> Δ-4 {[-4-]|[@@-102]}
<Call 0x207f0 0x10408> {[-4-]|[@@-102]}
FSCALL_10408
<POP 207f6-207f8 StackAdj> Δ+4 {[-4-]}
<POP 207f8-20800 Naked> Σ-4 ↓ →0x20826 ←0x2078e
<MI 207f8 MOVE.B (A6-0x66),D0> {[-4-]}
<MI 207fa CMPI.B #0x06,D0> {[-4-]}
<MI 207fe BNE 0x20826> {[-4-]}
<POP 20800-20812 Naked> Σ-4 ↓ →0x2081e
<Const 0x20800 0x5.2> Δ-2 {[-4-]|[#5]}
<Pointer.fp 0x20804 <LVAR -0x066 @ 1(r)>> Δ-4 {[-4-]|[#5]|[@@-102]}
<Call 0x20806 0x10414> {[-4-]|[#5]|[@@-102]}
FSCALL_10414
<POP 2080c-2080e StackAdj> Δ+6 {[-4-]}
<MI 2080e TST.B (A6-0x66)> {[-4-]}
<MI 20810 BEQ 0x2081e> {[-4-]}
<POP 20812-2081e Naked> Σ-4 ↓
<Const 0x20812 0x2.2> Δ-2 {[-4-]|[#2]}
<Pointer.fp 0x20814 <LVAR -0x066 @ 1(r)>> Δ-4 {[-4-]|[#2]|[@@-102]}
<Call 0x20816 0x10428> {[-4-]|[#2]|[@@-102]}
FSCALL_10428
<POP 2081c-2081e StackAdj> Δ+6 {[-4-]}
<POP 2081e-20824 Naked> Σ-4 Δ+4 →0x20dae ←0x20800 ←0x2082c
<POP 2081e-20820 StackAdj> Δ+4 {}
<MI 20820 BRA 0x20dae> {}
<POP 20826-2082c Naked> Σ-4 ↓ →0x2082e ←0x207f8
<MI 20826 TST.B (A6-0x65)> {[-4-]}
<MI 2082a BEQ 0x2082e> {[-4-]}
<POP 2082c-2082e Naked> Σ-4 →0x2081e
<MI 2082c BRA 0x2081e> {[-4-]}
<POP 2082e-20832 Naked> Σ-4 ↓ →0x20840 ←0x20826
<MI 2082e TST.B D0> {[-4-]}
<MI 20830 BEQ 0x20840> {[-4-]}
<POP 20832-20840 Naked> Σ-4 →0x2087a
<Const 0x20832 0x2.2> Δ-2 {[-4-]|[#2]}
<Pointer.fp 0x20834 <LVAR -0x066 @ 1(r)>> Δ-4 {[-4-]|[#2]|[@@-102]}
<Call 0x20836 0x10428> {[-4-]|[#2]|[@@-102]}
FSCALL_10428
<POP 2083c-2083e StackAdj> Δ+6 {[-4-]}
<MI 2083e BRA 0x2087a> {[-4-]}
<POP 20840-2084c Naked> Σ-4 ↓ →0x2087a ←0x2082e
<MI 20840 MOVEA.L (A7),A0> {[-4-]}
<MI 20842 CLR.B (A0)> {[-4-]}
<MI 20844 MOVE.W (A6-0x3a),D0> {[-4-]}
<MI 20848 CMP.W #0x01,D0> {[-4-]}
<MI 2084a BEQ 0x2087a> {[-4-]}
<POP 2084c-2087a Naked> Σ-4 ↓
<Blob 0x2084c [30] @> Δ-30 {[-4-]|[«30""»]}
<Const 0x2085c 0x4.2> Δ-2 {[-4-]|[«30""»]|[#4]}
<POP 20860-20862 StackAdj> Δ-4 {[-4-]|[«30""»]|[#4]|[-4-]}
<Lit 0x20862 29> {[-4-]|[«30""»]|[#4]|[$$Obsolete tape header version.]}
<Call 0x20870 0x103b8> {[-4-]|[«30""»]|[#4]|[$$Obsolete tape header version.]}
PopProgram(status : Byte; msg : String)
<POP 20876-2087a StackAdj> Δ+36 {[-4-]}
<POP 2087a-208ce Naked> Σ-4 Δ+4 ↓ →0x208d6 ←0x20832 ←0x20840
<POP 2087a-2087c StackAdj> Δ+4 {}
<Blob 0x2087c [30] (A6-0x44)> Δ-30 {[«30»]}
<POP 20886-20888 StackAdj> Δ-4 {[«30»]|[-4-]}
<Lit 0x20888> {[«30»]|[$$…]}
<Pointer.sp 0x20888 4> Δ-4
<Const 0x2088c 0x1.2> Δ-2
<Const 0x2088e 0x1e.2> Δ-2
<Call 0x20890 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 20892-20894 StackAdj> Δ+8
<MI 20894 MOVE.L (A7)+,(A6-0x8)> Δ+4 {[«30»]}
<POP 20898-2089c StackAdj> Δ+24 {[-6-]}
<MI 2089c MOVE.L (A6-0x8),(A7)> {[-2-]|[4, '(A6-0x8)']}
<MI 208a0 MOVEA.L (A6+0xc),A0> {[-2-]|[4, '(A6-0x8)']}
<MI 208a4 MOVE.L (A0),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x8)']|[4, '(A0)']}
<Call 0x208a6 0x10454> {[-2-]|[4, '(A6-0x8)']|[4, '(A0)']}
Glob(input : String; pattern : String): Bool
<POP 208ac-208ae StackAdj> Δ+8 {[-2-]}
<MI 208ae MOVE.B (A7)+,D0> Δ+2 {}
<MI 208b0 EXTB.W D0> {}
<POP 0x208b2 LimitCheck 0x0 ≤ D0 ≤ 0x1> {}
<MI 208b4 MOVE.B D0,(A6-0x4)> {}
<Pointer.fp 0x208b8 <LVAR -0x008 @ 4(rw)>> Δ-4 {[@@-8]}
<Call 0x208bc 0x102bc> {[@@-8]}
FreeString(VAR a : String)
<POP 208c2-208c4 StackAdj> Δ+4 {}
<MI 208c4 AND.B D0,(A6+0x18)> {}
<MI 208c8 TST.B (A6+0x1a)> {}
<MI 208cc BNE 0x208d6> {}
<POP 208ce-208d6 Naked> Σ0 ↓ →0x209c0
<MI 208ce TST.B (A6+0x16)> {}
<MI 208d2 BEQ 0x209c0> {}
<POP 208d6-208dc Naked> Σ0 ↓ →0x208f4 ←0x2087a
<MI 208d6 TST.B (A6+0x18)> {}
<MI 208da BEQ 0x208f4> {}
<POP 208dc-208f4 Naked> Σ0 Δ-42 →0x2090a
<Blob 0x208dc [4] @> Δ-4 {[«4""»]}
<Blob 0x208e0 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x208e4 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x208e8 [30] (A6-0x44)> Δ-30 {[«4""»]|[«4""»]|[«4""»]|[«30»]}
<MI 208f2 BRA 0x2090a> {[«4""»]|[«4""»]|[«4""»]|[«30»]}
<POP 208f4-2090a Naked> Σ0 Δ-42 ↓ ←0x208d6
<Blob 0x208f4 [4] @> Δ-4 {[«4""»]}
<Blob 0x208f8 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x208fc [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x20900 [30] (A6-0x44)> Δ-30 {[«4""»]|[«4""»]|[«4""»]|[«30»]}
<POP 2090a-20942 Naked> Σ-42 Δ+42 ↓ ←0x208dc
<POP 2090a-2090c StackAdj> Δ-8 {[-50-]}
<Lit 0x2090c> {[-46-]|[$$…]}
<Pointer.sp 0x2090c 38> Δ-4
<Const 0x20910 0x1.2> Δ-2
<Const 0x20912 0xc.2> Δ-2
<Call 0x20916 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 20918-2091a StackAdj> Δ+8
<POP 20918-2091a StackAdj> Δ-4 {[-46-]|[$$…]|[-4-]}
<Lit 0x2091a> {[-46-]|[$$…]|[$$…]}
<Pointer.sp 0x2091a 12> Δ-4
<Const 0x2091e 0x1.2> Δ-2
<Const 0x20920 0x1e.2> Δ-2
<Call 0x20922 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 20924-20926 StackAdj> Δ+8
<Call 0x20926 0x102d0> {[-46-]|[$$…]|[$$…]}
StringCat2(a, b : String) : String
<POP 2092c-2092e StackAdj> Δ+8 {[-46-]}
<MI 2092e MOVE.L (A7)+,(A6-0x8)> Δ+4 {[-42-]}
<POP 20932-20936 StackAdj> Δ+42 {}
<MI 20936 MOVEA.L (A6-0x8),A0> {}
<MI 2093a MOVE.W (A0),D0> {}
<MI 2093c EXTW.L D0> {}
<MI 2093e ADDQ.L #0x1,D0> {}
<MI 20940 MOVE.L D0,D5> {}
<POP 20942-2094a Naked> Σ0 ↓ →0x2095e ←0x2094a
<MI 20942 CMPI.L #0x00000035,D5> {}
<MI 20948 BGT 0x2095e> {}
<POP 2094a-2095e Naked> Σ0 ↓ →0x20942
<MI 2094a MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<Const 0x2094e 0x20.2> Δ-2 {[4, '(A6-0x8)']|[#32]}
<Call 0x20952 0x102c0> {[4, '(A6-0x8)']|[#32]}
AppendChar(MOD b : String; a : char)
<POP 20958-2095a StackAdj> Δ+6 {}
<MI 2095a ADDQ.L #0x1,D5> {}
<MI 2095c BVC 0x20942> {}
<POP 2095e-2099c Naked> Σ0 ↓ →0x209a8 ←0x20942
<Blob 0x2095e [4] @> Δ-4 {[«4""»]}
<Blob 0x20962 [4] @> Δ-4 {[«4""»]|[«4""»]}
<POP 20966-20968 StackAdj> Δ-4 {[«4""»]|[«4""»]|[-4-]}
<MI 20968 MOVE.L (A6-0x8),-(A7)> Δ-4 {[«4""»]|[«4""»]|[-4-]|[4, '(A6-0x8)']}
<POP 2096c-2096e StackAdj> Δ-4 {[«4""»]|[«4""»]|[-4-]|[4, '(A6-0x8)']|[-4-]}
<Lit 0x2096e 8> {[«4""»]|[«4""»]|[-4-]|[4, '(A6-0x8)']|[$$created_]}
<MI 2097a MOVE.L (A6-0x3e),(A7)> {[«4""»]|[«4""»]|[-4-]|[4, '(A6-0x8)']|[4, '(A6-0x3e)']}
<POP 20978-2097a StackAdj> Δ-8 {[«4""»]|[«4""»]|[-4-]|[4, '(A6-0x8)']|[4, '(A6-0x3e)']|[-8-]}
<Call 0x2097e 0x10308> {[«4""»]|[«4""»]|[-4-]|[4, '(A6-0x8)']|[4, '(A6-0x3e)']|[-8-]}
TimeToText()
<POP 20984-20986 StackAdj> Δ+4 {[«4""»]|[«4""»]|[-4-]|[4, '(A6-0x8)']|[4, '(A6-0x3e)']|[-4-]}
<Call 0x20986 0x102d4> {[«4""»]|[«4""»]|[-4-]|[4, '(A6-0x8)']|[4, '(A6-0x3e)']|[-4-]}
StringCat3(a, b, c : String) : String
<POP 2098c-20990 StackAdj> Δ+12 {[«4""»]|[«4""»]|[-4-]}
<MI 20990 MOVE.L (A7)+,(A6-0x8)> Δ+4 {[«4""»]|[«4""»]}
<POP 20994-20996 StackAdj> Δ+8 {}
<MI 20996 TST.B (A6+0x1a)> {}
<MI 2099a BNE 0x209a8> {}
<POP 2099c-209a2 Naked> Σ0 ↓ →0x209b4
<MI 2099c TST.B (A6+0x16)> {}
<MI 209a0 BEQ 0x209b4> {}
<POP 209a2-209a8 Naked> Σ0 ↓ →0x209b4
<MI 209a2 TST.B (A6-0x4)> {}
<MI 209a6 BEQ 0x209b4> {}
<POP 209a8-209b4 Naked> Σ0 Δ-4 →0x209be ←0x2095e
<MI 209a8 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<Call 0x209ac 0x103e0> {[4, '(A6-0x8)']}
WriteConsoleStringCrLf(str : String)
<MI 209b2 BRA 0x209be> {[4, '(A6-0x8)']}
<POP 209b4-209be Naked> Σ0 Δ-4 ↓ ←0x2099c ←0x209a2
<Pointer.fp 0x209b4 <LVAR -0x008 @ 4(rw)>> Δ-4 {[@@-8]}
<Call 0x209b8 0x102bc> {[@@-8]}
FreeString(VAR a : String)
<POP 209be-209c0 Naked> Σ-4 Δ+4 ↓ ←0x209a8
<POP 209be-209c0 StackAdj> Δ+4 {}
<POP 209c0-209c8 Naked> Σ0 ↓ →0x20aa4 ←0x208ce
<MI 209c0 TST.B (A6+0x18)> {}
<MI 209c4 BEQ 0x20aa4> {}
<POP 209c8-209d0 Naked> Σ0 ↓ →0x20aa4
<MI 209c8 TST.B (A6+0x14)> {}
<MI 209cc BEQ 0x20aa4> {}
<POP 209d0-20a20 Naked> Σ0 ↓ →0x20a8c
<Blob 0x209d0 [30] (A6-0x44)> Δ-30 {[«30»]}
<POP 209da-209dc StackAdj> Δ-4 {[«30»]|[-4-]}
<Lit 0x209dc> {[«30»]|[$$…]}
<Pointer.sp 0x209dc 4> Δ-4
<Const 0x209e0 0x1.2> Δ-2
<Const 0x209e2 0x1e.2> Δ-2
<Call 0x209e4 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 209e6-209e8 StackAdj> Δ+8
<MI 209e8 MOVE.L (A7)+,(A6-0x22)> Δ+4 {[«30»]}
<POP 209ec-209f0 StackAdj> Δ+26 {[-4-]}
<MI 209f0 MOVE.L (A6-0x22),(A7)> {[4, '(A6-0x22)']}
<MI 209f4 CLR.B -(A7)> Δ-2 {[4, '(A6-0x22)']|[#0]}
<MI 209f6 CLR.B -(A7)> Δ-2 {[4, '(A6-0x22)']|[#0]|[#0]}
<Const 0x209f8 0x1.4> Δ-4 {[4, '(A6-0x22)']|[#0]|[#0]|[##1]}
<Pointer.fp 0x209fc <LVAR -0x064 @ 1(r)>> Δ-4 {[4, '(A6-0x22)']|[#0]|[#0]|[##1]|[@@-100]}
<Pointer.fp 0x20a00 <LVAR -0x01e @ 4(r)>> Δ-4 {[4, '(A6-0x22)']|[#0]|[#0]|[##1]|[@@-100]|[@@-30]}
<Call 0x20a04 0x10380> {[4, '(A6-0x22)']|[#0]|[#0]|[##1]|[@@-100]|[@@-30]}
OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
<POP 20a0a-20a0e StackAdj> Δ+20 {}
<Pointer.fp 0x20a0e <LVAR -0x022 @ 4(rw)>> Δ-4 {[@@-34]}
<Call 0x20a12 0x102bc> {[@@-34]}
FreeString(VAR a : String)
<POP 20a18-20a1a StackAdj> Δ+4 {}
<MI 20a1a TST.B (A6-0x64)> {}
<MI 20a1e BNE 0x20a8c> {}
<POP 20a20-20a50 Naked> Σ0 Δ-36 ↓ →0x20a6a
<Blob 0x20a20 [36] @> Δ-36 {[«36""»]}
<POP 20a32-20a34 StackAdj> Δ-6 {[«36""»]|[-6-]}
<Lit 0x20a34 35> {[«36""»]|[-2-]|[$$ Overwrite existing file]}
<POP 20a40-20a42 StackAdj> Δ-2 {[«36""»]|[-2-]|[$$ Overwrite existing file]|[-2-]}
<POP 20a42-20a43 StackAdj> Δ+2 {[«36""»]|[-2-]|[$$ Overwrite existing file]}
<Const 0x20a43 0x1.2> Δ-2 {[«36""»]|[-2-]|[$$ Overwrite existing file]|[#1]}
<Call 0x20a44 0x103f0> {[«36""»]|[-2-]|[$$ Overwrite existing file]|[#1]}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 20a4a-20a4c StackAdj> Δ+6 {[«36""»]|[-2-]}
<MI 20a4c TST.B (A7)+> Δ+2 {[«36""»]}
<MI 20a4e BEQ 0x20a6a> {[«36""»]}
<POP 20a50-20a6a Naked> Σ-36 →0x20a86
<Const 0x20a50 0x2.2> Δ-2 {[-36-]|[#2]}
<Const 0x20a52 0x1.2> Δ-2 {[-36-]|[#2]|[#1]}
<Const 0x20a54 0x1.4> Δ-4 {[-36-]|[#2]|[#1]|[##1]}
<Pointer.fp 0x20a58 <LVAR -0x064 @ 1(r)>> Δ-4 {[-36-]|[#2]|[#1]|[##1]|[@@-100]}
<Pointer.fp 0x20a5c <LVAR -0x01e @ 4(r)>> Δ-4 {[-36-]|[#2]|[#1]|[##1]|[@@-100]|[@@-30]}
<Call 0x20a60 0x1038c> {[-36-]|[#2]|[#1]|[##1]|[@@-100]|[@@-30]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 20a66-20a68 StackAdj> Δ+16 {[-36-]}
<MI 20a68 BRA 0x20a86> {[-36-]}
<POP 20a6a-20a86 Naked> Σ-36 ↓ ←0x20a20
<MI 20a6a CLR.B -(A7)> Δ-2 {[-36-]|[#0]}
<Const 0x20a6c 0x1.2> Δ-2 {[-36-]|[#0]|[#1]}
<Const 0x20a6e 0x1.4> Δ-4 {[-36-]|[#0]|[#1]|[##1]}
<Pointer.fp 0x20a72 <LVAR -0x064 @ 1(r)>> Δ-4 {[-36-]|[#0]|[#1]|[##1]|[@@-100]}
<Pointer.fp 0x20a76 <LVAR -0x01e @ 4(r)>> Δ-4 {[-36-]|[#0]|[#1]|[##1]|[@@-100]|[@@-30]}
<Call 0x20a7a 0x1038c> {[-36-]|[#0]|[#1]|[##1]|[@@-100]|[@@-30]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 20a80-20a82 StackAdj> Δ+16 {[-36-]}
<MI 20a82 CLR.B (A6+0x18)> {[-36-]}
<POP 20a86-20a8c Naked> Σ-36 Δ+36 →0x20aa4 ←0x20a50
<POP 20a86-20a8a StackAdj> Δ+36 {}
<MI 20a8a BRA 0x20aa4> {}
<POP 20a8c-20aa4 Naked> Σ0 ↓ ←0x209d0
<MI 20a8c CLR.B -(A7)> Δ-2 {[#0]}
<MI 20a8e CLR.B -(A7)> Δ-2 {[#0]|[#0]}
<Const 0x20a90 0x1.4> Δ-4 {[#0]|[#0]|[##1]}
<Pointer.fp 0x20a94 <LVAR -0x064 @ 1(r)>> Δ-4 {[#0]|[#0]|[##1]|[@@-100]}
<Pointer.fp 0x20a98 <LVAR -0x01e @ 4(r)>> Δ-4 {[#0]|[#0]|[##1]|[@@-100]|[@@-30]}
<Call 0x20a9c 0x1038c> {[#0]|[#0]|[##1]|[@@-100]|[@@-30]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 20aa2-20aa4 StackAdj> Δ+16 {}
<POP 20aa4-20aaa Naked> Σ0 ↓ →0x20abc ←0x209c0 ←0x209c8 ←0x20a86
<MI 20aa4 TST.B (A6+0x18)> {}
<MI 20aa8 BEQ 0x20abc> {}
<POP 20aaa-20ab4 Naked> Σ0 ↓ →0x20abc
<MI 20aaa MOVE.W (A6-0x44),D0> {}
<MI 20aac EXTW.L D0> {}
<MI 20aae CMP.L (A6+0x10),D0> {}
<MI 20ab2 BGE 0x20abc> {}
<POP 20ab4-20abc Naked> Σ0 →0x20ac2
<MI 20ab4 MOVE.B #0x07,(A6-0xa)> {}
<MI 20aba BRA 0x20ac2> {}
<POP 20abc-20ac2 Naked> Σ0 ↓ ←0x20aa4 ←0x20aaa
<MI 20abc MOVE.B #0x06,(A6-0xa)> {}
<POP 20ac2-20adc Naked> Σ0 ↓ →0x20ae8 ←0x20ab4
<MI 20ac2 MOVE.B (A6-0xa),D0> {}
<MI 20ac6 EXTB.W D0> {}
<POP 0x20ac8 LimitCheck 0x0 ≤ D0 ≤ 0xb> {}
<MI 20acc MOVE.B D0,-(A7)> Δ-2 {[2, 'D0']}
<Pointer.fp 0x20ace <LVAR -0x066 @ 1(r)>> Δ-4 {[2, 'D0']|[@@-102]}
<Call 0x20ad0 0x10414> {[2, 'D0']|[@@-102]}
FSCALL_10414
<POP 20ad6-20ad8 StackAdj> Δ+6 {}
<MI 20ad8 TST.B (A6-0x66)> {}
<MI 20ada BEQ 0x20ae8> {}
<POP 20adc-20ae8 Naked> Σ0 ↓
<Const 0x20adc 0x2.2> Δ-2 {[#2]}
<Pointer.fp 0x20ade <LVAR -0x066 @ 1(r)>> Δ-4 {[#2]|[@@-102]}
<Call 0x20ae0 0x10428> {[#2]|[@@-102]}
FSCALL_10428
<POP 20ae6-20ae8 StackAdj> Δ+6 {}
<POP 20ae8-20af0 Naked> Σ0 ↓ →0x20bda ←0x20ac2
<MI 20ae8 TST.B (A6+0x18)> {}
<MI 20aec BEQ 0x20bda> {}
<POP 20af0-20b32 Naked> Σ0 ↓ →0x20b38
<MI 20af0 ADDQ.L #0x1,0x27338> {}
<POP 0x20af6 LimitCheck 0x0 ≤ D7 ≤ 0x1> {}
<MI 20af8 CLR.L D0> {}
<MI 20afa MOVE.W D7,D0> {}
<MI 20afc ASL.L #0x2,D0> {}
<MI 20afe MOVE.L (A6+D0.L-#0x16),-(A7)> Δ-4 {[4, '(A6+D0.L-#0x16)']}
<Const 0x20b02 0x400.2> Δ-2 {[4, '(A6+D0.L-#0x16)']|[#1024]}
<Call 0x20b06 0x10418> {[4, '(A6+D0.L-#0x16)']|[#1024]}
FSCALL_10418
<POP 20b0c-20b0e StackAdj> Δ+6 {}
<Blob 0x20b0e [30] (A6-0x44)> Δ-30 {[«30»]}
<POP 20b18-20b1a StackAdj> Δ-4 {[«30»]|[-4-]}
<Lit 0x20b1a> {[«30»]|[$$…]}
<Pointer.sp 0x20b1a 4> Δ-4
<Const 0x20b1e 0x1.2> Δ-2
<Const 0x20b20 0x1e.2> Δ-2
<Call 0x20b22 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 20b24-20b26 StackAdj> Δ+8
<MI 20b26 MOVE.L (A7)+,(A6-0x22)> Δ+4 {[«30»]}
<POP 20b2a-20b2c StackAdj> Δ+30 {}
<MI 20b2c TST.B (A6-0x3f)> {}
<MI 20b30 BEQ 0x20b38> {}
<POP 20b32-20b38 Naked> Σ0 →0x20b3a
<MI 20b32 MOVE.W (A6-0x44),D0> {}
<MI 20b34 NEG.W D0> {}
<MI 20b36 BRA 0x20b3a> {}
<POP 20b38-20b3a Naked> Σ0 ↓ ←0x20af0
<MI 20b38 MOVE.W (A6-0x44),D0> {}
<POP 20b3a-20b64 Naked> Σ0 ↓ →0x20b98 ←0x20b32
<MI 20b3a EXTW.L D0> {}
<MI 20b3c MOVE.L D0,(A6-0xe)> {}
<MI 20b40 MOVE.L (A6-0x22),-(A7)> Δ-4 {[4, '(A6-0x22)']}
<Const 0x20b44 0x1.2> Δ-2 {[4, '(A6-0x22)']|[#1]}
<Const 0x20b46 0x1.2> Δ-2 {[4, '(A6-0x22)']|[#1]|[#1]}
<MI 20b48 MOVE.L (A6-0xe),-(A7)> Δ-4 {[4, '(A6-0x22)']|[#1]|[#1]|[4, '(A6-0xe)']}
<Pointer.fp 0x20b4c <LVAR -0x064 @ 1(r)>> Δ-4 {[4, '(A6-0x22)']|[#1]|[#1]|[4, '(A6-0xe)']|[@@-100]}
<Pointer.fp 0x20b50 <LVAR -0x01e @ 4(r)>> Δ-4 {[4, '(A6-0x22)']|[#1]|[#1]|[4, '(A6-0xe)']|[@@-100]|[@@-30]}
<Call 0x20b54 0x10380> {[4, '(A6-0x22)']|[#1]|[#1]|[4, '(A6-0xe)']|[@@-100]|[@@-30]}
OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
<POP 20b5a-20b5e StackAdj> Δ+20 {}
<MI 20b5e TST.B (A6-0x64)> {}
<MI 20b62 BEQ 0x20b98> {}
<POP 20b64-20b98 Naked> Σ0 ↓
<Pointer.fp 0x20b64 <LVAR -0x066 @ 1(r)>> Δ-4 {[@@-102]}
<Call 0x20b66 0x10408> {[@@-102]}
FSCALL_10408
<POP 20b6c-20b6d StackAdj> Δ+4 {}
<Blob 0x20b6d [4] @> Δ-4 {[«4""»]}
<Blob 0x20b70 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x20b74 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x20b78 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<Const 0x20b7c 0xe.2> Δ-2 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[#14]}
<POP 20b80-20b82 StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[#14]|[-4-]}
<Lit 0x20b82 16> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[#14]|[$$File open error.]}
<Call 0x20b8e 0x103b8> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[#14]|[$$File open error.]}
PopProgram(status : Byte; msg : String)
<POP 20b94-20b98 StackAdj> Δ+22 {}
<POP 20b98-20bda Naked> Σ0 →0x20be6 ←0x20b3a
<MI 20b98 MOVEA.L (A6-0x1e),A0> {}
<MI 20b9c MOVE.B (A6-0x3f),D0> {}
<MI 20ba0 ANDI.B #0xfd,(A0+0x3f)> {}
<MI 20ba6 LSL.B #0x1,D0> {}
<MI 20ba8 OR.B D0,(A0+0x3f)> {}
<MI 20bac MOVE.B (A6-0x40),D0> {}
<MI 20bb0 ANDI.B #0xfb,(A0+0x3f)> {}
<MI 20bb6 LSL.B #0x2,D0> {}
<MI 20bb8 OR.B D0,(A0+0x3f)> {}
<MI 20bbc MOVE.B (A6-0x3e),(A0+0x3a)> {}
<MI 20bc2 MOVE.B (A6-0x3d),(A0+0x3b)> {}
<MI 20bc8 MOVE.B (A6-0x3c),(A0+0x3c)> {}
<MI 20bce MOVE.B (A6-0x3b),(A0+0x3d)> {}
<MI 20bd4 MOVE.B #0x01,(A0+0x4c)> {}
<MI 20bd8 BRA 0x20be6> {}
<POP 20bda-20be6 Naked> Σ0 ↓ ←0x20ae8
<Const 0x20bda 0x2.2> Δ-2 {[#2]}
<Pointer.fp 0x20bdc <LVAR -0x066 @ 1(r)>> Δ-4 {[#2]|[@@-102]}
<Call 0x20bde 0x10414> {[#2]|[@@-102]}
FSCALL_10414
<POP 20be4-20be6 StackAdj> Δ+6 {}
<POP 20be6-20bf0 Naked> Σ0 Δ-4 ↓ ←0x20b98
<MI 20be6 MOVE.W (A6-0x44),D0> {}
<MI 20be8 SUBQ.W #0x1,D0> {}
<MI 20bea EXTW.L D0> {}
<MI 20bec MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 20bee MOVEQ.L #0x00,D5> {[4, 'D0']}
<POP 20bf0-20bf6 Naked> Σ-4 ↓ →0x20d28 ←0x20d22
<MI 20bf0 CMP.L (A7),D5> {[-4-]}
<MI 20bf2 BGT 0x20d28> {[-4-]}
<POP 20bf6-20c04 Naked> Σ-4 ↓ →0x20c08 ←0x20c56
<MI 20bf6 CLR.B (A6-0x6c)> {[-4-]}
<MI 20bfa MOVE.W (A6-0x44),D0> {[-4-]}
<MI 20bfc SUBQ.W #0x1,D0> {[-4-]}
<MI 20bfe EXTW.L D0> {[-4-]}
<MI 20c00 CMP.L D0,D5> {[-4-]}
<MI 20c02 BNE 0x20c08> {[-4-]}
<POP 20c04-20c08 Naked> Σ-4 ↓
<MI 20c04 ADDQ.B #0x1,(A6-0x6c)> {[-4-]}
<POP 20c08-20c0e Naked> Σ-4 ↓ →0x20c18 ←0x20bf6
<MI 20c08 TST.B (A6+0x18)> {[-4-]}
<MI 20c0c BEQ 0x20c18> {[-4-]}
<POP 20c0e-20c18 Naked> Σ-4 ↓
<Pointer.fp 0x20c0e <LVAR -0x066 @ 1(r)>> Δ-4 {[-4-]|[@@-102]}
<Call 0x20c10 0x10408> {[-4-]|[@@-102]}
FSCALL_10408
<POP 20c16-20c18 StackAdj> Δ+4 {[-4-]}
<POP 20c18-20c20 Naked> Σ-4 ↓ →0x20c5a ←0x20c08
<MI 20c18 MOVE.B (A6-0x66),D0> {[-4-]}
<MI 20c1a CMPI.B #0x06,D0> {[-4-]}
<MI 20c1e BNE 0x20c5a> {[-4-]}
<POP 20c20-20c2c Naked> Σ-4 ↓ →0x20c38
<Call 0x20c20 0x1042c> {[-4-]}
FSCALL_1042c
<MI 20c26 TST.B (A6+0x18)> {[-4-]}
<MI 20c2a BNE 0x20c38> {[-4-]}
<POP 20c2c-20c38 Naked> Σ-4 Δ-6 →0x20c54
<Const 0x20c2c 0x2.2> Δ-2 {[-4-]|[#2]}
<Pointer.fp 0x20c2e <LVAR -0x066 @ 1(r)>> Δ-4 {[-4-]|[#2]|[@@-102]}
<Call 0x20c30 0x10414> {[-4-]|[#2]|[@@-102]}
FSCALL_10414
<MI 20c36 BRA 0x20c54> {[-4-]|[#2]|[@@-102]}
<POP 20c38-20c3e Naked> Σ-4 ↓ →0x20c56 ←0x20c20
<MI 20c38 TST.B (A6-0x6c)> {[-4-]}
<MI 20c3c BNE 0x20c56> {[-4-]}
<POP 20c3e-20c54 Naked> Σ-4 Δ-6 ↓
<POP 0x20c3e LimitCheck 0x0 ≤ D7 ≤ 0x1> {[-4-]}
<MI 20c40 CLR.L D0> {[-4-]}
<MI 20c42 MOVE.W D7,D0> {[-4-]}
<MI 20c44 ASL.L #0x2,D0> {[-4-]}
<MI 20c46 MOVE.L (A6+D0.L-#0x16),-(A7)> Δ-4 {[-4-]|[4, '(A6+D0.L-#0x16)']}
<Const 0x20c4a 0x400.2> Δ-2 {[-4-]|[4, '(A6+D0.L-#0x16)']|[#1024]}
<Call 0x20c4e 0x10418> {[-4-]|[4, '(A6+D0.L-#0x16)']|[#1024]}
FSCALL_10418
<POP 20c54-20c56 Naked> Σ-10 Δ+6 ↓ ←0x20c2c
<POP 20c54-20c56 StackAdj> Δ+6 {[-4-]}
<POP 20c56-20c58 Naked> Σ-4 →0x20bf6 ←0x20c38
<MI 20c56 BRA 0x20bf6> {[-4-]}
<POP 20c5a-20c5e Naked> Σ-4 ↓ →0x20c6a ←0x20c18
<MI 20c5a TST.B D0> {[-4-]}
<MI 20c5c BEQ 0x20c6a> {[-4-]}
<POP 20c5e-20c6a Naked> Σ-4 ↓
<Const 0x20c5e 0x2.2> Δ-2 {[-4-]|[#2]}
<Pointer.fp 0x20c60 <LVAR -0x066 @ 1(r)>> Δ-4 {[-4-]|[#2]|[@@-102]}
<Call 0x20c62 0x10428> {[-4-]|[#2]|[@@-102]}
FSCALL_10428
<POP 20c68-20c6a StackAdj> Δ+6 {[-4-]}
<POP 20c6a-20c6e Naked> Σ-4 ↓ →0x20c74 ←0x20c5a
<MI 20c6a TST.W D7> {[-4-]}
<MI 20c6c BNE 0x20c74> {[-4-]}
<POP 20c6e-20c74 Naked> Σ-4 →0x20c78
<MI 20c6e MOVEQ.L #0x01,D7> {[-4-]}
<MI 20c70 MOVEQ.L #0x00,D6> {[-4-]}
<MI 20c72 BRA 0x20c78> {[-4-]}
<POP 20c74-20c78 Naked> Σ-4 ↓ ←0x20c6a
<MI 20c74 MOVEQ.L #0x00,D7> {[-4-]}
<MI 20c76 MOVEQ.L #0x01,D6> {[-4-]}
<POP 20c78-20c80 Naked> Σ-4 ↓ →0x20d10 ←0x20c6e
<MI 20c78 TST.B (A6+0x18)> {[-4-]}
<MI 20c7c BEQ 0x20d10> {[-4-]}
<POP 20c80-20c86 Naked> Σ-4 ↓ →0x20c9e
<MI 20c80 TST.B (A6-0x6c)> {[-4-]}
<MI 20c84 BNE 0x20c9e> {[-4-]}
<POP 20c86-20c9e Naked> Σ-4 ↓
<POP 0x20c86 LimitCheck 0x0 ≤ D7 ≤ 0x1> {[-4-]}
<MI 20c88 CLR.L D0> {[-4-]}
<MI 20c8a MOVE.W D7,D0> {[-4-]}
<MI 20c8c ASL.L #0x2,D0> {[-4-]}
<MI 20c8e MOVE.L (A6+D0.L-#0x16),-(A7)> Δ-4 {[-4-]|[4, '(A6+D0.L-#0x16)']}
<Const 0x20c92 0x400.2> Δ-2 {[-4-]|[4, '(A6+D0.L-#0x16)']|[#1024]}
<Call 0x20c96 0x10418> {[-4-]|[4, '(A6+D0.L-#0x16)']|[#1024]}
FSCALL_10418
<POP 20c9c-20c9e StackAdj> Δ+6 {[-4-]}
<POP 20c9e-20cd6 Naked> Σ-4 ↓ →0x20d0e ←0x20c80
<MI 20c9e MOVE.L (A6-0x1e),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x1e)']}
<POP 0x20ca2 LimitCheck 0x0 ≤ D5 ≤ 0x4000> {[-4-]|[4, '(A6-0x1e)']}
<MI 20cac MOVE.W D5,-(A7)> Δ-2 {[-4-]|[4, '(A6-0x1e)']|[2, 'D5']}
<MI 20cae CLR.W -(A7)> Δ-2 {[-4-]|[4, '(A6-0x1e)']|[2, 'D5']|[#0]}
<Const 0x20cb0 0x200.2> Δ-2 {[-4-]|[4, '(A6-0x1e)']|[2, 'D5']|[#0]|[#512]}
<Const 0x20cb4 0x1.2> Δ-2 {[-4-]|[4, '(A6-0x1e)']|[2, 'D5']|[#0]|[#512]|[#1]}
<POP 0x20cb6 LimitCheck 0x0 ≤ D6 ≤ 0x1> {[-4-]|[4, '(A6-0x1e)']|[2, 'D5']|[#0]|[#512]|[#1]}
<MI 20cb8 CLR.L D0> {[-4-]|[4, '(A6-0x1e)']|[2, 'D5']|[#0]|[#512]|[#1]}
<MI 20cba MOVE.W D6,D0> {[-4-]|[4, '(A6-0x1e)']|[2, 'D5']|[#0]|[#512]|[#1]}
<MI 20cbc ASL.L #0x2,D0> {[-4-]|[4, '(A6-0x1e)']|[2, 'D5']|[#0]|[#512]|[#1]}
<MI 20cbe MOVE.L (A6+D0.L-#0x16),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x1e)']|[2, 'D5']|[#0]|[#512]|[#1]|[4, '(A6+D0.L-#0x16)']}
<Pointer.fp 0x20cc2 <LVAR -0x064 @ 1(r)>> Δ-4 {[-4-]|[4, '(A6-0x1e)']|[2, 'D5']|[#0]|[#512]|[#1]|[4, '(A6+D0.L-#0x16)']|[@@-100]}
<Call 0x20cc6 0x10388> {[-4-]|[4, '(A6-0x1e)']|[2, 'D5']|[#0]|[#512]|[#1]|[4, '(A6+D0.L-#0x16)']|[@@-100]}
WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L)
<POP 20ccc-20cd0 StackAdj> Δ+20 {[-4-]}
<MI 20cd0 TST.B (A6-0x64)> {[-4-]}
<MI 20cd4 BEQ 0x20d0e> {[-4-]}
<POP 20cd6-20d0e Naked> Σ-4 ↓
<Pointer.fp 0x20cd6 <LVAR -0x066 @ 1(r)>> Δ-4 {[-4-]|[@@-102]}
<Call 0x20cd8 0x10408> {[-4-]|[@@-102]}
FSCALL_10408
<POP 20cde-20cdf StackAdj> Δ+4 ↓ {[-4-]}
<Blob 0x20cdf [26] @> Δ-26 {[-4-]|[«26""»]}
<Const 0x20cf0 0xe.2> Δ-2 {[-4-]|[«26""»]|[#14]}
<POP 20cf4-20cf6 StackAdj> Δ-4 {[-4-]|[«26""»]|[#14]|[-4-]}
<Lit 0x20cf6 25> {[-4-]|[«26""»]|[#14]|[$$Unrecoverable file error.]}
<Call 0x20d04 0x103b8> {[-4-]|[«26""»]|[#14]|[$$Unrecoverable file error.]}
PopProgram(status : Byte; msg : String)
<POP 20d0a-20d0e StackAdj> Δ+32 {[-4-]}
<POP 20d0e-20d10 Naked> Σ-4 →0x20d22 ←0x20c9e
<MI 20d0e BRA 0x20d22> {[-4-]}
<POP 20d10-20d16 Naked> Σ-4 ↓ →0x20d22 ←0x20c78
<MI 20d10 TST.B (A6-0x6c)> {[-4-]}
<MI 20d14 BNE 0x20d22> {[-4-]}
<POP 20d16-20d22 Naked> Σ-4 ↓
<Const 0x20d16 0x2.2> Δ-2 {[-4-]|[#2]}
<Pointer.fp 0x20d18 <LVAR -0x066 @ 1(r)>> Δ-4 {[-4-]|[#2]|[@@-102]}
<Call 0x20d1a 0x10414> {[-4-]|[#2]|[@@-102]}
FSCALL_10414
<POP 20d20-20d22 StackAdj> Δ+6 {[-4-]}
<POP 20d22-20d28 Naked> Σ-4 ↓ →0x20bf0 ←0x20d0e ←0x20d10
<MI 20d22 ADDQ.L #0x1,D5> {[-4-]}
<MI 20d24 BVC 0x20bf0> {[-4-]}
<POP 20d28-20d30 Naked> Σ-4 Δ+4 ↓ →0x20d90 ←0x20bf0
<POP 20d28-20d2a StackAdj> Δ+4 {}
<MI 20d2a TST.B (A6+0x18)> {}
<MI 20d2e BEQ 0x20d90> {}
<POP 20d30-20d5a Naked> Σ0 ↓ →0x20d8a
<Pointer.fp 0x20d30 <LVAR -0x022 @ 4(rw)>> Δ-4 {[@@-34]}
<Call 0x20d34 0x102bc> {[@@-34]}
FreeString(VAR a : String)
<POP 20d3a-20d3c StackAdj> Δ+2 {[-2-]}
<MI 20d3c CLR.B (A7)> {[-2-]}
<Const 0x20d3e 0x1.2> Δ-2 {[-2-]|[#1]}
<Const 0x20d40 0x1.4> Δ-4 {[-2-]|[#1]|[##1]}
<Pointer.fp 0x20d44 <LVAR -0x064 @ 1(r)>> Δ-4 {[-2-]|[#1]|[##1]|[@@-100]}
<Pointer.fp 0x20d48 <LVAR -0x01e @ 4(r)>> Δ-4 {[-2-]|[#1]|[##1]|[@@-100]|[@@-30]}
<Call 0x20d4c 0x1038c> {[-2-]|[#1]|[##1]|[@@-100]|[@@-30]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 20d52-20d54 StackAdj> Δ+16 {}
<MI 20d54 TST.B (A6-0x64)> {}
<MI 20d58 BEQ 0x20d8a> {}
<POP 20d5a-20d8a Naked> Σ0 ↓
<Blob 0x20d5a [18] @> Δ-18 {[«18""»]}
<Const 0x20d6c 0xe.2> Δ-2 {[«18""»]|[#14]}
<POP 20d70-20d72 StackAdj> Δ-4 {[«18""»]|[#14]|[-4-]}
<Lit 0x20d72 17> {[«18""»]|[#14]|[$$File close error.]}
<Call 0x20d80 0x103b8> {[«18""»]|[#14]|[$$File close error.]}
PopProgram(status : Byte; msg : String)
<POP 20d86-20d8a StackAdj> Δ+24 {}
<POP 20d8a-20d90 Naked> Σ0 ↓ ←0x20d30
<MI 20d8a MOVE.B #0x01,0x2733d> {}
<POP 20d90-20da2 Naked> Σ0 ↓ →0x20dae ←0x20d28
<Const 0x20d90 0x7.2> Δ-2 {[#7]}
<Pointer.fp 0x20d94 <LVAR -0x066 @ 1(r)>> Δ-4 {[#7]|[@@-102]}
<Call 0x20d96 0x10414> {[#7]|[@@-102]}
FSCALL_10414
<POP 20d9c-20d9e StackAdj> Δ+6 {}
<MI 20d9e TST.B (A6-0x66)> {}
<MI 20da0 BEQ 0x20dae> {}
<POP 20da2-20dae Naked> Σ0 ↓
<Const 0x20da2 0x2.2> Δ-2 {[#2]}
<Pointer.fp 0x20da4 <LVAR -0x066 @ 1(r)>> Δ-4 {[#2]|[@@-102]}
<Call 0x20da6 0x10428> {[#2]|[@@-102]}
FSCALL_10428
<POP 20dac-20dae StackAdj> Δ+6 {}
<POP 20dae-20db6 Epilogue> Σ0 ←0x2081e ←0x20d90
@ 20db6
<LVAR 0x020 1(r)>
<LVAR 0x01e 1(r)>
<LVAR 0x01a 4(r)>
<LVAR 0x018 1(r)>
<LVAR 0x014 4(r)>
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x006 4(rw)>
<LVAR -0x007 1(r)>
<LVAR -0x008 @ 1(r)>
<LVAR -0x00b 1(rw)>
<LVAR -0x00c 1(rw)>
<LVAR -0x02c 2(r)>
<LVAR -0x02d 1(r)>
<LVAR -0x02e 1(r)>
<LVAR -0x02f 1(r)>
<LVAR -0x030 1(r) 4(r)>
<LVAR -0x036 2(r)>
<LVAR -0x054 @>
<LVAR -0x058 @ 4(rw)>
<LVAR -0x05c 4(rw)>
<LVAR -0x45c @>
<LVAR -0x45e @ 1(r)>
<LVAR -0x466 @ 4(r)>
<LVAR -0x46a 4(w)>
<LVAR -0x46e 4(w)>
<LVAR -0x472 @ 4(rw)>
<POP 20db6-21532 Body> Δ+46
<POP 20db6-20dcc Prologue> Σ0 ↓
<POP 20dcc-20dde RegCacheLoad> Σ0 ↓
<POP 20dde-20e28 Naked> Σ0 Δ-4 ↓ →0x20e44
<MI 20dde LEA.L 0x26b38,A0> {}
<MI 20de4 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 20de6 MOVE.L (A7)+,(A6-0x46e)> Δ+4 {}
<MI 20dea LEA.L 0x26f38,A0> {}
<MI 20df0 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 20df2 MOVE.L (A7)+,(A6-0x46a)> Δ+4 {}
<MI 20df6 MOVEQ.L #0x00,D5> {}
<MI 20df8 MOVEQ.L #0x01,D6> {}
<MI 20dfa MOVEA.L (A6+0x10),A0> {}
<MI 20dfe MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 20e00 MOVE.B #0x01,(A0)> {[4, 'A0']}
<MI 20e02 MOVEQ.L #0x00,D7> {[4, 'A0']}
<MI 20e04 LEA.L (A6-0x54),A1> {[4, 'A0']}
<MI 20e08 MOVE.L A1,-(A7)> Δ-4 {[4, 'A0']|[4, 'A1']}
<Const 0x20e0a 0x40.2> Δ-2 {[4, 'A0']|[4, 'A1']|[#64]}
<Call 0x20e0e 0x10418> {[4, 'A0']|[4, 'A1']|[#64]}
FSCALL_10418
<POP 20e14-20e16 StackAdj> Δ+6 {[4, 'A0']}
<Pointer.fp 0x20e16 <LVAR -0x008 @ 1(r)>> Δ-4 {[4, 'A0']|[@@-8]}
<Call 0x20e18 0x10408> {[4, 'A0']|[@@-8]}
FSCALL_10408
<POP 20e1e-20e20 StackAdj> Δ+4 {[4, 'A0']}
<MI 20e20 MOVE.B (A6-0x8),D0> {[4, 'A0']}
<MI 20e22 CMPI.B #0x06,D0> {[4, 'A0']}
<MI 20e26 BNE 0x20e44> {[4, 'A0']}
<POP 20e28-20e44 Naked> Σ-4 ↓
<MI 20e28 LEA.L (A6-0x54),A0> {[-4-]}
<MI 20e2c MOVE.L A0,-(A7)> Δ-4 {[-4-]|[4, 'A0']}
<Const 0x20e2e 0x40.2> Δ-2 {[-4-]|[4, 'A0']|[#64]}
<Call 0x20e32 0x10418> {[-4-]|[4, 'A0']|[#64]}
FSCALL_10418
<POP 20e38-20e3a StackAdj> Δ+6 {[-4-]}
<Pointer.fp 0x20e3a <LVAR -0x008 @ 1(r)>> Δ-4 {[-4-]|[@@-8]}
<Call 0x20e3c 0x10408> {[-4-]|[@@-8]}
FSCALL_10408
<POP 20e42-20e44 StackAdj> Δ+4 {[-4-]}
<POP 20e44-20e4c Naked> Σ-4 ↓ →0x20e5a ←0x20dde
<MI 20e44 MOVE.B (A6-0x8),D0> {[-4-]}
<MI 20e46 CMPI.B #0x06,D0> {[-4-]}
<MI 20e4a BEQ 0x20e5a> {[-4-]}
<POP 20e4c-20e52 Naked> Σ-4 ↓ →0x20e62
<MI 20e4c TST.B (A6-0x7)> {[-4-]}
<MI 20e50 BEQ 0x20e62> {[-4-]}
<POP 20e52-20e5a Naked> Σ-4 ↓ →0x20e62
<MI 20e52 TST.B 0x2733c> {[-4-]}
<MI 20e58 BEQ 0x20e62> {[-4-]}
<POP 20e5a-20e60 Naked> Σ-4 Δ+4 →0x2152a ←0x20e44
<POP 20e5a-20e5c StackAdj> Δ+4 {}
<MI 20e5c BRA 0x2152a> {}
<POP 20e62-20e66 Naked> Σ-4 ↓ →0x20e76 ←0x20e4c ←0x20e52
<MI 20e62 TST.B D0> {[-4-]}
<MI 20e64 BEQ 0x20e76> {[-4-]}
<POP 20e66-20e76 Naked> Σ-4 →0x20eb2
<Const 0x20e66 0x2.2> Δ-2 {[-4-]|[#2]}
<Pointer.fp 0x20e6a <LVAR -0x008 @ 1(r)>> Δ-4 {[-4-]|[#2]|[@@-8]}
<Call 0x20e6c 0x10428> {[-4-]|[#2]|[@@-8]}
FSCALL_10428
<POP 20e72-20e74 StackAdj> Δ+6 {[-4-]}
<MI 20e74 BRA 0x20eb2> {[-4-]}
<POP 20e76-20e82 Naked> Σ-4 ↓ →0x20eb2 ←0x20e62
<MI 20e76 MOVEA.L (A7),A0> {[-4-]}
<MI 20e78 CLR.B (A0)> {[-4-]}
<MI 20e7a MOVE.W (A6-0x2c),D0> {[-4-]}
<MI 20e7e CMP.W #0x01,D0> {[-4-]}
<MI 20e80 BEQ 0x20eb2> {[-4-]}
<POP 20e82-20eb2 Naked> Σ-4 ↓
<Blob 0x20e82 [30] @> Δ-30 {[-4-]|[«30""»]}
<Const 0x20e94 0x4.2> Δ-2 {[-4-]|[«30""»]|[#4]}
<POP 20e98-20e9a StackAdj> Δ-4 {[-4-]|[«30""»]|[#4]|[-4-]}
<Lit 0x20e9a 29> {[-4-]|[«30""»]|[#4]|[$$Obsolete tape header version.]}
<Call 0x20ea8 0x103b8> {[-4-]|[«30""»]|[#4]|[$$Obsolete tape header version.]}
PopProgram(status : Byte; msg : String)
<POP 20eae-20eb2 StackAdj> Δ+36 {[-4-]}
<POP 20eb2-20f04 Naked> Σ-4 Δ+4 ↓ →0x20f12 ←0x20e66 ←0x20e76
<POP 20eb2-20eb4 StackAdj> Δ+4 {}
<Blob 0x20eb4 [30] (A6-0x36)> Δ-30 {[«30»]}
<POP 20ec0-20ec2 StackAdj> Δ-4 {[«30»]|[-4-]}
<Lit 0x20ec2> {[«30»]|[$$…]}
<Pointer.sp 0x20ec2 4> Δ-4
<Const 0x20ec6 0x1.2> Δ-2
<Const 0x20ec8 0x1e.2> Δ-2
<Call 0x20ecc 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 20ece-20ed0 StackAdj> Δ+8
<MI 20ed0 MOVE.L (A7)+,(A6-0x472)> Δ+4 {[«30»]}
<POP 20ed2-20ed6 StackAdj> Δ+30 {}
<MI 20ed6 MOVEA.L (A6+0xc),A0> {}
<POP 20eda-20edc StackAdj> Δ-2 {[-2-]}
<MI 20edc MOVE.L (A6-0x472),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x472)']}
<MI 20ede MOVEA.L (A6+0x14),A1> {[-2-]|[4, '(A6-0x472)']}
<MI 20ee2 MOVE.L (A1),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x472)']|[4, '(A1)']}
<Call 0x20ee4 0x10454> {[-2-]|[4, '(A6-0x472)']|[4, '(A1)']}
Glob(input : String; pattern : String): Bool
<POP 20eea-20eec StackAdj> Δ+8 {[-2-]}
<MI 20eec MOVE.B (A7)+,D0> Δ+2 {}
<MI 20eee EXTB.W D0> {}
<POP 0x20ef0 LimitCheck 0x0 ≤ D0 ≤ 0x1> {}
<MI 20ef2 MOVE.B D0,(A0)> {}
<Pointer.fp 0x20ef4 <LVAR -0x472 @ 4(rw)>> Δ-4 {[@@-1138]}
<Call 0x20ef6 0x102bc> {[@@-1138]}
FreeString(VAR a : String)
<POP 20efc-20efe StackAdj> Δ+4 {}
<MI 20efe TST.B (A6+0x20)> {}
<MI 20f02 BNE 0x20f12> {}
<POP 20f04-20f0c Naked> Σ0 ↓ →0x20fdc
<MI 20f04 TST.B (A6+0x1e)> {}
<MI 20f08 BEQ 0x20fdc> {}
<POP 20f0c-20f12 Naked> Σ0 ↓ →0x20fdc
<MI 20f0c TST.B D0> {}
<MI 20f0e BEQ 0x20fdc> {}
<POP 20f12-20f16 Naked> Σ0 ↓ →0x20f34 ←0x20eb2
<MI 20f12 TST.B D0> {}
<MI 20f14 BEQ 0x20f34> {}
<POP 20f16-20f34 Naked> Σ0 Δ-44 →0x20f50
<Blob 0x20f16 [14] @> Δ-14 {[«14""»]}
<Blob 0x20f26 [30] (A6-0x36)> Δ-30 {[«14""»]|[«30»]}
<MI 20f32 BRA 0x20f50> {[«14""»]|[«30»]}
<POP 20f34-20f50 Naked> Σ0 Δ-44 ↓ ←0x20f12
<Blob 0x20f34 [14] @> Δ-14 {[«14""»]}
<Blob 0x20f44 [30] (A6-0x36)> Δ-30 {[«14""»]|[«30»]}
<POP 20f50-20f84 Naked> Σ-44 Δ+44 ↓ ←0x20f16
<POP 20f50-20f52 StackAdj> Δ-8 {[-52-]}
<Lit 0x20f52> {[-48-]|[$$…]}
<Pointer.sp 0x20f52 38> Δ-4
<Const 0x20f56 0x1.2> Δ-2
<Const 0x20f58 0xd.2> Δ-2
<Call 0x20f5c 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 20f5e-20f60 StackAdj> Δ+8
<POP 20f5e-20f60 StackAdj> Δ-4 {[-48-]|[$$…]|[-4-]}
<Lit 0x20f60> {[-48-]|[$$…]|[$$…]}
<Pointer.sp 0x20f60 12> Δ-4
<Const 0x20f64 0x1.2> Δ-2
<Const 0x20f66 0x1e.2> Δ-2
<Call 0x20f6a 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 20f6c-20f6e StackAdj> Δ+8
<Call 0x20f6e 0x102d0> {[-48-]|[$$…]|[$$…]}
StringCat2(a, b : String) : String
<POP 20f74-20f76 StackAdj> Δ+8 {[-48-]}
<MI 20f76 MOVE.L (A7)+,(A6-0x472)> Δ+4 {[-44-]}
<POP 20f78-20f7c StackAdj> Δ+44 {}
<MI 20f7c MOVEA.L (A6-0x472),A0> {}
<MI 20f7e MOVE.W (A0),D0> {}
<MI 20f80 EXTW.L D0> {}
<MI 20f82 ADDQ.L #0x1,D0> {}
<POP 20f84-20f8c Naked> Σ0 ↓ →0x20f9e ←0x20f8c
<MI 20f84 CMPI.L #0x00000035,D0> {}
<MI 20f8a BGT 0x20f9e> {}
<POP 20f8c-20f9e Naked> Σ0 ↓ →0x20f84
<MI 20f8c MOVE.L (A6-0x472),-(A7)> Δ-4 {[4, '(A6-0x472)']}
<Const 0x20f8e 0x20.2> Δ-2 {[4, '(A6-0x472)']|[#32]}
<Call 0x20f92 0x102c0> {[4, '(A6-0x472)']|[#32]}
AppendChar(MOD b : String; a : char)
<POP 20f98-20f9a StackAdj> Δ+6 {}
<MI 20f9a ADDQ.L #0x1,D0> {}
<MI 20f9c BVC 0x20f84> {}
<POP 20f9e-20fdc Naked> Σ0 ↓ ←0x20f84
<Blob 0x20f9e [4] @> Δ-4 {[«4""»]}
<Blob 0x20fa2 [4] @> Δ-4 {[«4""»]|[«4""»]}
<POP 20fa6-20fa8 StackAdj> Δ-4 {[«4""»]|[«4""»]|[-4-]}
<MI 20fa8 MOVE.L (A6-0x472),-(A7)> Δ-4 {[«4""»]|[«4""»]|[-4-]|[4, '(A6-0x472)']}
<POP 20faa-20fac StackAdj> Δ-4 {[«4""»]|[«4""»]|[-4-]|[4, '(A6-0x472)']|[-4-]}
<Lit 0x20fac 8> {[«4""»]|[«4""»]|[-4-]|[4, '(A6-0x472)']|[$$created_]}
<MI 20fb8 MOVE.L (A6-0x30),(A7)> {[«4""»]|[«4""»]|[-4-]|[4, '(A6-0x472)']|[4, '(A6-0x30)']}
<POP 20fb6-20fb8 StackAdj> Δ-8 {[«4""»]|[«4""»]|[-4-]|[4, '(A6-0x472)']|[4, '(A6-0x30)']|[-8-]}
<Call 0x20fbc 0x10308> {[«4""»]|[«4""»]|[-4-]|[4, '(A6-0x472)']|[4, '(A6-0x30)']|[-8-]}
TimeToText()
<POP 20fc2-20fc4 StackAdj> Δ+4 {[«4""»]|[«4""»]|[-4-]|[4, '(A6-0x472)']|[4, '(A6-0x30)']|[-4-]}
<Call 0x20fc4 0x102d4> {[«4""»]|[«4""»]|[-4-]|[4, '(A6-0x472)']|[4, '(A6-0x30)']|[-4-]}
StringCat3(a, b, c : String) : String
<POP 20fca-20fce StackAdj> Δ+12 {[«4""»]|[«4""»]|[-4-]}
<MI 20fce MOVE.L (A7)+,(A6-0x472)> Δ+4 {[«4""»]|[«4""»]}
<POP 20fd0-20fd2 StackAdj> Δ+4 {[«4""»]}
<MI 20fd2 MOVE.L (A6-0x472),(A7)> {[4, '(A6-0x472)']}
<Call 0x20fd4 0x103e0> {[4, '(A6-0x472)']}
WriteConsoleStringCrLf(str : String)
<POP 20fda-20fdc StackAdj> Δ+4 {}
<POP 20fdc-20fe4 Naked> Σ0 ↓ →0x20ff8 ←0x20f04 ←0x20f0c
<MI 20fdc MOVEA.L (A6+0xc),A0> {}
<MI 20fe0 TST.B (A0)> {}
<MI 20fe2 BEQ 0x20ff8> {}
<POP 20fe4-20ff0 Naked> Σ0 ↓ →0x20ff8
<MI 20fe4 MOVE.W (A6-0x36),D0> {}
<MI 20fe8 EXTW.L D0> {}
<MI 20fea CMP.L (A6+0x1a),D0> {}
<MI 20fee BGE 0x20ff8> {}
<POP 20ff0-20ff8 Naked> Σ0 →0x20ffe
<MI 20ff0 MOVE.B #0x07,(A6-0xb)> {}
<MI 20ff6 BRA 0x20ffe> {}
<POP 20ff8-20ffe Naked> Σ0 ↓ ←0x20fdc ←0x20fe4
<MI 20ff8 MOVE.B #0x06,(A6-0xb)> {}
<POP 20ffe-21018 Naked> Σ0 ↓ →0x21026 ←0x20ff0
<MI 20ffe MOVE.B (A6-0xb),D0> {}
<MI 21002 EXTB.W D0> {}
<POP 0x21004 LimitCheck 0x0 ≤ D0 ≤ 0xb> {}
<MI 21008 MOVE.B D0,-(A7)> Δ-2 {[2, 'D0']}
<Pointer.fp 0x2100a <LVAR -0x008 @ 1(r)>> Δ-4 {[2, 'D0']|[@@-8]}
<Call 0x2100c 0x10414> {[2, 'D0']|[@@-8]}
FSCALL_10414
<POP 21012-21014 StackAdj> Δ+6 {}
<MI 21014 TST.B (A6-0x8)> {}
<MI 21016 BEQ 0x21026> {}
<POP 21018-21026 Naked> Σ0 ↓
<Const 0x21018 0x2.2> Δ-2 {[#2]}
<Pointer.fp 0x2101c <LVAR -0x008 @ 1(r)>> Δ-4 {[#2]|[@@-8]}
<Call 0x2101e 0x10428> {[#2]|[@@-8]}
FSCALL_10428
<POP 21024-21026 StackAdj> Δ+6 {}
<POP 21026-21030 Naked> Σ0 ↓ →0x211a4 ←0x20ffe
<MI 21026 MOVEA.L (A6+0xc),A0> {}
<MI 2102a TST.B (A0)> {}
<MI 2102c BEQ 0x211a4> {}
<POP 21030-210a4 Naked> Σ0 ↓ →0x21138
<MI 21030 ADDQ.L #0x1,0x27338> {}
<POP 0x21036 LimitCheck 0x0 ≤ D5 ≤ 0x1> {}
<MI 21038 CLR.L D0> {}
<MI 2103a MOVE.W D5,D0> {}
<MI 2103c ASL.L #0x2,D0> {}
<MI 2103e LEA.L (A6-0x472),A1> {}
<MI 21040 MOVE.L (A1+D0.L+#0x4),-(A7)> Δ-4 {[4, '(A1+D0.L+#0x4)']}
<Const 0x21044 0x400.2> Δ-2 {[4, '(A1+D0.L+#0x4)']|[#1024]}
<Call 0x21048 0x10418> {[4, '(A1+D0.L+#0x4)']|[#1024]}
FSCALL_10418
<POP 2104e-21050 StackAdj> Δ+6 {}
<Blob 0x21050 [30] (A6-0x36)> Δ-30 {[«30»]}
<POP 2105c-2105e StackAdj> Δ-4 {[«30»]|[-4-]}
<Lit 0x2105e> {[«30»]|[$$…]}
<Pointer.sp 0x2105e 4> Δ-4
<Const 0x21062 0x1.2> Δ-2
<Const 0x21064 0x1e.2> Δ-2
<Call 0x21068 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 2106a-2106c StackAdj> Δ+8
<MI 2106c MOVE.L (A7)+,(A6-0x58)> Δ+4 {[«30»]}
<POP 21070-21074 StackAdj> Δ+30 {}
<MI 21074 MOVE.W (A6-0x36),D0> {}
<MI 21078 EXTW.L D0> {}
<MI 2107a MOVE.L D0,(A6-0x6)> {}
<MI 2107e MOVE.L (A6-0x58),-(A7)> Δ-4 {[4, '(A6-0x58)']}
<MI 21082 CLR.B -(A7)> Δ-2 {[4, '(A6-0x58)']|[#0]}
<Const 0x21084 0x1.2> Δ-2 {[4, '(A6-0x58)']|[#0]|[#1]}
<Const 0x21086 0x0.4> Δ-4 {[4, '(A6-0x58)']|[#0]|[#1]|[##0]}
<Pointer.fp 0x2108a <LVAR -0x45e @ 1(r)>> Δ-4 {[4, '(A6-0x58)']|[#0]|[#1]|[##0]|[@@-1118]}
<Pointer.fp 0x2108e <LVAR -0x466 @ 4(r)>> Δ-4 {[4, '(A6-0x58)']|[#0]|[#1]|[##0]|[@@-1118]|[@@-1126]}
<Call 0x21092 0x10380> {[4, '(A6-0x58)']|[#0]|[#1]|[##0]|[@@-1118]|[@@-1126]}
OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
<POP 21098-2109c StackAdj> Δ+20 {}
<MI 2109c TST.B (A6-0x45e)> {}
<MI 210a0 BEQ 0x21138> {}
<POP 210a4-210ae Naked> Σ0 ↓ →0x21100
<MI 210a4 MOVE.B (A6-0x45e),D0> {}
<MI 210a8 CMPI.B #0x02,D0> {}
<MI 210ac BNE 0x21100> {}
<POP 210ae-21100 Naked> Σ0 →0x21136
<MI 210ae CLR.B (A0)> {}
<Blob 0x210b0 [4] @> Δ-4 {[«4""»]}
<Blob 0x210b4 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x210b8 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<POP 210bc-210be StackAdj> Δ-8 {[«4""»]|[«4""»]|[«4""»]|[-8-]}
<MI 210be MOVE.L (A6-0x58),-(A7)> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[-8-]|[4, '(A6-0x58)']}
<Call 0x210c2 0x102cc> {[«4""»]|[«4""»]|[«4""»]|[-8-]|[4, '(A6-0x58)']}
StringDup(a : String) : String
<Lit 0x210c8 12> {[«4""»]|[«4""»]|[«4""»]|[-8-]|[$$ not on disk]}
<Call 0x210d6 0x102d0> {[«4""»]|[«4""»]|[«4""»]|[-8-]|[$$ not on disk]}
StringCat2(a, b : String) : String
<POP 210dc-210de StackAdj> Δ+8 {[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Call 0x210de 0x103e0> {[«4""»]|[«4""»]|[«4""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 210e4-210e8 StackAdj> Δ+16 {}
<Pointer.fp 0x210e8 <LVAR -0x058 @ 4(rw)>> Δ-4 {[@@-88]}
<Call 0x210ec 0x102bc> {[@@-88]}
FreeString(VAR a : String)
<POP 210f2-210f4 StackAdj> Δ+4 {}
<Pointer.fp 0x210f4 <LVAR -0x008 @ 1(r)>> Δ-4 {[@@-8]}
<Call 0x210f6 0x10408> {[@@-8]}
FSCALL_10408
<POP 210fc-210fe StackAdj> Δ+4 {}
<MI 210fe BRA 0x21136> {}
<POP 21100-21136 Naked> Σ0 ↓ ←0x210a4
<Pointer.fp 0x21100 <LVAR -0x008 @ 1(r)>> Δ-4 {[@@-8]}
<Call 0x21102 0x10408> {[@@-8]}
FSCALL_10408
<POP 21108-21109 StackAdj> Δ+4 ↓ {}
<Blob 0x21109 [22] @> Δ-22 {[«22""»]}
<Const 0x2111a 0xe.2> Δ-2 {[«22""»]|[#14]}
<POP 2111c-2111e StackAdj> Δ-4 {[«22""»]|[#14]|[-4-]}
<Lit 0x2111e 21> {[«22""»]|[#14]|[$$Disk file open error.]}
<Call 0x2112c 0x103b8> {[«22""»]|[#14]|[$$Disk file open error.]}
PopProgram(status : Byte; msg : String)
<POP 21132-21136 StackAdj> Δ+28 {}
<POP 21136-21138 Naked> Σ0 →0x211a2 ←0x210ae
<MI 21136 BRA 0x211a2> {}
<POP 21138-21166 Naked> Σ0 ↓ →0x211a2 ←0x21030
<MI 21138 MOVEA.L (A6-0x466),A0> {}
<MI 2113c MOVE.B (A6-0x30),(A0+0x3a)> {}
<MI 21142 MOVE.B (A6-0x2f),(A0+0x3b)> {}
<MI 21148 MOVE.B (A6-0x2e),(A0+0x3c)> {}
<MI 2114e MOVE.B (A6-0x2d),(A0+0x3d)> {}
<MI 21154 MOVE.B #0x01,(A0+0x4c)> {}
<MI 21158 MOVE.W (A0+0x20),D1> {}
<MI 2115c EXTW.L D1> {}
<MI 2115e MOVE.L D1,(A6-0x5c)> {}
<MI 21162 CMP.L D0,D1> {}
<MI 21164 BEQ 0x211a2> {}
<POP 21166-2116c Naked> Σ0 ↓ →0x211a0
<MI 21166 TST.B (A6+0x18)> {}
<MI 2116a BEQ 0x211a0> {}
<POP 2116c-211a0 Naked> Σ0 →0x211a2
<Pointer.fp 0x2116c <LVAR -0x008 @ 1(r)>> Δ-4 {[@@-8]}
<Call 0x2116e 0x10408> {[@@-8]}
FSCALL_10408
<POP 21174-21176 StackAdj> Δ+4 {}
<Blob 0x21176 [48] @> Δ-48 {[«48""»]}
<Const 0x21182 0xe.2> Δ-2 {[«48""»]|[#14]}
<POP 21184-21186 StackAdj> Δ-4 {[«48""»]|[#14]|[-4-]}
<Lit 0x21186 48> {[«48""»]|[#14]|[$$Compare error, disk file size <> tape file size.]}
<Call 0x21194 0x103b8> {[«48""»]|[#14]|[$$Compare error, disk file size <> tape file size.]}
PopProgram(status : Byte; msg : String)
<POP 2119a-2119e StackAdj> Δ+54 {}
<MI 2119e BRA 0x211a2> {}
<POP 211a0-211a2 Naked> Σ0 ↓ ←0x21166
<MI 211a0 MOVEQ.L #0x01,D7> {}
<POP 211a2-211a4 Naked> Σ0 →0x211b2 ←0x21136 ←0x21138 ←0x2116c
<MI 211a2 BRA 0x211b2> {}
<POP 211a4-211b2 Naked> Σ0 ↓ ←0x21026
<Const 0x211a4 0x2.2> Δ-2 {[#2]}
<Pointer.fp 0x211a8 <LVAR -0x008 @ 1(r)>> Δ-4 {[#2]|[@@-8]}
<Call 0x211aa 0x10414> {[#2]|[@@-8]}
FSCALL_10414
<POP 211b0-211b2 StackAdj> Δ+6 {}
<POP 211b2-211be Naked> Σ0 Δ-4 ↓ ←0x211a2
<MI 211b2 MOVE.W (A6-0x36),D0> {}
<MI 211b6 SUBQ.W #0x1,D0> {}
<MI 211b8 EXTW.L D0> {}
<MI 211ba MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 211bc MOVEQ.L #0x00,D0> {[4, 'D0']}
<POP 211be-211c2 Naked> Σ-4 ↓ →0x211c8 ←0x21392
<MI 211be CMP.L (A7),D0> {[-4-]}
<MI 211c0 BLE 0x211c8> {[-4-]}
<POP 211c2-211c8 Naked> Σ-4 Δ-4 →0x21398
<POP 211c2-211c4 StackAdj> Δ-4 {[-8-]}
<MI 211c4 BRA 0x21398> {[-8-]}
<POP 211c8-211ca Naked> Σ-4 Δ-4 ↓ ←0x211be
<MI 211c8 MOVE.L D0,-(A7)> Δ-4 {[-4-]|[4, 'D0']}
<POP 211ca-211dc Naked> Σ-8 ↓ →0x211e0 ←0x21236
<MI 211ca CLR.B (A6-0xc)> {[-8-]}
<MI 211ce MOVE.W (A6-0x36),D0> {[-8-]}
<MI 211d2 SUBQ.W #0x1,D0> {[-8-]}
<MI 211d4 MOVE.L (A7),D1> {[-8-]}
<MI 211d6 EXTW.L D0> {[-8-]}
<MI 211d8 CMP.L D0,D1> {[-8-]}
<MI 211da BNE 0x211e0> {[-8-]}
<POP 211dc-211e0 Naked> Σ-8 ↓
<MI 211dc ADDQ.B #0x1,(A6-0xc)> {[-8-]}
<POP 211e0-211e8 Naked> Σ-8 ↓ →0x211f2 ←0x211ca
<MI 211e0 MOVEA.L (A6+0xc),A0> {[-8-]}
<MI 211e4 TST.B (A0)> {[-8-]}
<MI 211e6 BEQ 0x211f2> {[-8-]}
<POP 211e8-211f2 Naked> Σ-8 ↓
<Pointer.fp 0x211e8 <LVAR -0x008 @ 1(r)>> Δ-4 {[-8-]|[@@-8]}
<Call 0x211ea 0x10408> {[-8-]|[@@-8]}
FSCALL_10408
<POP 211f0-211f2 StackAdj> Δ+4 {[-8-]}
<POP 211f2-211fa Naked> Σ-8 ↓ →0x2123a ←0x211e0
<MI 211f2 MOVE.B (A6-0x8),D0> {[-8-]}
<MI 211f4 CMPI.B #0x06,D0> {[-8-]}
<MI 211f8 BNE 0x2123a> {[-8-]}
<POP 211fa-21208 Naked> Σ-8 ↓ →0x21216
<Call 0x211fa 0x1042c> {[-8-]}
FSCALL_1042c
<MI 21200 MOVEA.L (A6+0xc),A0> {[-8-]}
<MI 21204 TST.B (A0)> {[-8-]}
<MI 21206 BNE 0x21216> {[-8-]}
<POP 21208-21216 Naked> Σ-8 Δ-6 →0x21234
<Const 0x21208 0x2.2> Δ-2 {[-8-]|[#2]}
<Pointer.fp 0x2120c <LVAR -0x008 @ 1(r)>> Δ-4 {[-8-]|[#2]|[@@-8]}
<Call 0x2120e 0x10414> {[-8-]|[#2]|[@@-8]}
FSCALL_10414
<MI 21214 BRA 0x21234> {[-8-]|[#2]|[@@-8]}
<POP 21216-2121c Naked> Σ-8 ↓ →0x21236 ←0x211fa
<MI 21216 TST.B (A6-0xc)> {[-8-]}
<MI 2121a BNE 0x21236> {[-8-]}
<POP 2121c-21234 Naked> Σ-8 Δ-6 ↓
<POP 0x2121c LimitCheck 0x0 ≤ D5 ≤ 0x1> {[-8-]}
<MI 2121e CLR.L D0> {[-8-]}
<MI 21220 MOVE.W D5,D0> {[-8-]}
<MI 21222 ASL.L #0x2,D0> {[-8-]}
<MI 21224 LEA.L (A6-0x472),A0> {[-8-]}
<MI 21226 MOVE.L (A0+D0.L+#0x4),-(A7)> Δ-4 {[-8-]|[4, '(A0+D0.L+#0x4)']}
<Const 0x2122a 0x400.2> Δ-2 {[-8-]|[4, '(A0+D0.L+#0x4)']|[#1024]}
<Call 0x2122e 0x10418> {[-8-]|[4, '(A0+D0.L+#0x4)']|[#1024]}
FSCALL_10418
<POP 21234-21236 Naked> Σ-14 Δ+6 ↓ ←0x21208
<POP 21234-21236 StackAdj> Δ+6 {[-8-]}
<POP 21236-21238 Naked> Σ-8 →0x211ca ←0x21216
<MI 21236 BRA 0x211ca> {[-8-]}
<POP 2123a-2123e Naked> Σ-8 ↓ →0x2124c ←0x211f2
<MI 2123a TST.B D0> {[-8-]}
<MI 2123c BEQ 0x2124c> {[-8-]}
<POP 2123e-2124c Naked> Σ-8 ↓
<Const 0x2123e 0x2.2> Δ-2 {[-8-]|[#2]}
<Pointer.fp 0x21242 <LVAR -0x008 @ 1(r)>> Δ-4 {[-8-]|[#2]|[@@-8]}
<Call 0x21244 0x10428> {[-8-]|[#2]|[@@-8]}
FSCALL_10428
<POP 2124a-2124c StackAdj> Δ+6 {[-8-]}
<POP 2124c-21250 Naked> Σ-8 ↓ →0x21256 ←0x2123a
<MI 2124c TST.W D5> {[-8-]}
<MI 2124e BNE 0x21256> {[-8-]}
<POP 21250-21256 Naked> Σ-8 →0x2125a
<MI 21250 MOVEQ.L #0x01,D5> {[-8-]}
<MI 21252 MOVEQ.L #0x00,D6> {[-8-]}
<MI 21254 BRA 0x2125a> {[-8-]}
<POP 21256-2125a Naked> Σ-8 ↓ ←0x2124c
<MI 21256 MOVEQ.L #0x00,D5> {[-8-]}
<MI 21258 MOVEQ.L #0x01,D6> {[-8-]}
<POP 2125a-21264 Naked> Σ-8 ↓ →0x21378 ←0x21250
<MI 2125a MOVEA.L (A6+0xc),A0> {[-8-]}
<MI 2125e TST.B (A0)> {[-8-]}
<MI 21260 BEQ 0x21378> {[-8-]}
<POP 21264-2126a Naked> Σ-8 ↓ →0x21284
<MI 21264 TST.B (A6-0xc)> {[-8-]}
<MI 21268 BNE 0x21284> {[-8-]}
<POP 2126a-21284 Naked> Σ-8 ↓
<POP 0x2126a LimitCheck 0x0 ≤ D5 ≤ 0x1> {[-8-]}
<MI 2126c CLR.L D0> {[-8-]}
<MI 2126e MOVE.W D5,D0> {[-8-]}
<MI 21270 ASL.L #0x2,D0> {[-8-]}
<MI 21272 LEA.L (A6-0x472),A0> {[-8-]}
<MI 21274 MOVE.L (A0+D0.L+#0x4),-(A7)> Δ-4 {[-8-]|[4, '(A0+D0.L+#0x4)']}
<Const 0x21278 0x400.2> Δ-2 {[-8-]|[4, '(A0+D0.L+#0x4)']|[#1024]}
<Call 0x2127c 0x10418> {[-8-]|[4, '(A0+D0.L+#0x4)']|[#1024]}
FSCALL_10418
<POP 21282-21284 StackAdj> Δ+6 {[-8-]}
<POP 21284-2128e Naked> Σ-8 ↓ →0x212fa ←0x21264
<MI 21284 MOVE.L (A6-0x6),D0> {[-8-]}
<MI 21288 CMP.L (A6-0x5c),D0> {[-8-]}
<MI 2128c BNE 0x212fa> {[-8-]}
<POP 2128e-212c4 Naked> Σ-8 ↓ →0x212fa
<MI 2128e MOVE.L (A6-0x466),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x466)']}
<MI 21292 MOVE.L (A7+0x4),D0> {[-8-]|[4, '(A6-0x466)']}
<POP 0x21296 LimitCheck 0x0 ≤ D0 ≤ 0x4000> {[-8-]|[4, '(A6-0x466)']}
<MI 212a0 MOVE.W D0,-(A7)> Δ-2 {[-8-]|[4, '(A6-0x466)']|[2, 'D0']}
<MI 212a2 CLR.W -(A7)> Δ-2 {[-8-]|[4, '(A6-0x466)']|[2, 'D0']|[#0]}
<Const 0x212a4 0x200.2> Δ-2 {[-8-]|[4, '(A6-0x466)']|[2, 'D0']|[#0]|[#512]}
<Const 0x212a8 0x1.2> Δ-2 {[-8-]|[4, '(A6-0x466)']|[2, 'D0']|[#0]|[#512]|[#1]}
<MI 212aa LEA.L (A6-0x45c),A0> {[-8-]|[4, '(A6-0x466)']|[2, 'D0']|[#0]|[#512]|[#1]}
<MI 212ae MOVE.L A0,-(A7)> Δ-4 {[-8-]|[4, '(A6-0x466)']|[2, 'D0']|[#0]|[#512]|[#1]|[4, 'A0']}
<Pointer.fp 0x212b0 <LVAR -0x45e @ 1(r)>> Δ-4 {[-8-]|[4, '(A6-0x466)']|[2, 'D0']|[#0]|[#512]|[#1]|[4, 'A0']|[@@-1118]}
<Call 0x212b4 0x10384> {[-8-]|[4, '(A6-0x466)']|[2, 'D0']|[#0]|[#512]|[#1]|[4, 'A0']|[@@-1118]}
ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
<POP 212ba-212be StackAdj> Δ+20 {[-8-]}
<MI 212be TST.B (A6-0x45e)> {[-8-]}
<MI 212c2 BEQ 0x212fa> {[-8-]}
<POP 212c4-212fa Naked> Σ-8 ↓
<Pointer.fp 0x212c4 <LVAR -0x008 @ 1(r)>> Δ-4 {[-8-]|[@@-8]}
<Call 0x212c6 0x10408> {[-8-]|[@@-8]}
FSCALL_10408
<POP 212cc-212cd StackAdj> Δ+4 ↓ {[-8-]}
<Blob 0x212cd [26] @> Δ-26 {[-8-]|[«26""»]}
<Const 0x212de 0xe.2> Δ-2 {[-8-]|[«26""»]|[#14]}
<POP 212e0-212e2 StackAdj> Δ-4 {[-8-]|[«26""»]|[#14]|[-4-]}
<Lit 0x212e2 25> {[-8-]|[«26""»]|[#14]|[$$Unrecoverable disk error.]}
<Call 0x212f0 0x103b8> {[-8-]|[«26""»]|[#14]|[$$Unrecoverable disk error.]}
PopProgram(status : Byte; msg : String)
<POP 212f6-212fa StackAdj> Δ+32 {[-8-]}
<POP 212fa-212fc Naked> Σ-8 ↓ ←0x21284 ←0x2128e
<MI 212fa MOVEQ.L #0x00,D0> {[-8-]}
<POP 212fc-2132a Naked> Σ-8 ↓ →0x2136c ←0x2136c
<POP 0x212fc LimitCheck 0x0 ≤ D0 ≤ 0x1ff> {[-8-]}
<MI 21306 MOVE.L D0,D1> {[-8-]}
<MI 21308 ASL.L #0x1,D1> {[-8-]}
<MI 2130a LEA.L (A6-0x472),A0> {[-8-]}
<POP 0x2130c LimitCheck 0x0 ≤ D6 ≤ 0x1> {[-8-]}
<MI 2130e CLR.L D2> {[-8-]}
<MI 21310 MOVE.W D6,D2> {[-8-]}
<MI 21312 ASL.L #0x8,D2> {[-8-]}
<MI 21314 ASL.L #0x2,D2> {[-8-]}
<MI 21316 LEA.L 0x26b30,A1> {[-8-]}
<MI 2131c LEA.L (A1+D2.L),A1> {[-8-]}
<MI 21320 MOVE.W (A0+D1.L+#0x16),D2> {[-8-]}
<MI 21324 CMP.W (A1+D1.L+#0x8),D2> {[-8-]}
<MI 21328 BEQ 0x2136c> {[-8-]}
<POP 2132a-21330 Naked> Σ-8 ↓ →0x2136a
<MI 2132a TST.B (A6+0x18)> {[-8-]}
<MI 2132e BEQ 0x2136a> {[-8-]}
<POP 21330-21336 Naked> Σ-8 ↓ →0x21340
<MI 21330 TST.B (A6-0xc)> {[-8-]}
<MI 21334 BNE 0x21340> {[-8-]}
<POP 21336-21340 Naked> Σ-8 ↓
<Pointer.fp 0x21336 <LVAR -0x008 @ 1(r)>> Δ-4 {[-8-]|[@@-8]}
<Call 0x21338 0x10408> {[-8-]|[@@-8]}
FSCALL_10408
<POP 2133e-21340 StackAdj> Δ+4 {[-8-]}
<POP 21340-2136a Naked> Σ-8 →0x2136c ←0x21330
<Blob 0x21340 [38] @> Δ-38 {[-8-]|[«38""»]}
<Const 0x2134c 0xe.2> Δ-2 {[-8-]|[«38""»]|[#14]}
<POP 2134e-21350 StackAdj> Δ-4 {[-8-]|[«38""»]|[#14]|[-4-]}
<Lit 0x21350 38> {[-8-]|[«38""»]|[#14]|[$$Compare error, disk data <> tape data.]}
<Call 0x2135e 0x103b8> {[-8-]|[«38""»]|[#14]|[$$Compare error, disk data <> tape data.]}
PopProgram(status : Byte; msg : String)
<POP 21364-21368 StackAdj> Δ+44 {[-8-]}
<MI 21368 BRA 0x2136c> {[-8-]}
<POP 2136a-2136c Naked> Σ-8 ↓ ←0x2132a
<MI 2136a MOVEQ.L #0x01,D7> {[-8-]}
<POP 2136c-21376 Naked> Σ-8 ↓ →0x212fc ←0x212fc ←0x21340
<MI 2136c ADDQ.L #0x1,D0> {[-8-]}
<MI 2136e CMPI.L #0x000001ff,D0> {[-8-]}
<MI 21374 BLE 0x212fc> {[-8-]}
<POP 21376-21378 Naked> Σ-8 →0x2138c
<MI 21376 BRA 0x2138c> {[-8-]}
<POP 21378-2137e Naked> Σ-8 ↓ →0x2138c ←0x2125a
<MI 21378 TST.B (A6-0xc)> {[-8-]}
<MI 2137c BNE 0x2138c> {[-8-]}
<POP 2137e-2138c Naked> Σ-8 ↓
<Const 0x2137e 0x2.2> Δ-2 {[-8-]|[#2]}
<Pointer.fp 0x21382 <LVAR -0x008 @ 1(r)>> Δ-4 {[-8-]|[#2]|[@@-8]}
<Call 0x21384 0x10414> {[-8-]|[#2]|[@@-8]}
FSCALL_10414
<POP 2138a-2138c StackAdj> Δ+6 {[-8-]}
<POP 2138c-21392 Naked> Σ-8 ↓ →0x21398 ←0x21376 ←0x21378
<MI 2138c MOVE.L (A7),D0> {[-8-]}
<MI 2138e ADDQ.L #0x1,D0> {[-8-]}
<MI 21390 BVS 0x21398> {[-8-]}
<POP 21392-21398 Naked> Σ-8 Δ+4 →0x211be
<POP 21392-21394 StackAdj> Δ+4 {[-4-]}
<MI 21394 BRA 0x211be> {[-4-]}
<POP 21398-213a0 Naked> Σ-8 Δ+8 ↓ →0x214a4 ←0x211c2 ←0x2138c
<POP 21398-2139a StackAdj> Δ+8 {}
<MI 2139a TST.B D7> {}
<MI 2139c BEQ 0x214a4> {}
<POP 213a0-213ac Naked> Σ0 ↓ →0x213fe
<MI 213a0 MOVEA.L (A6+0x8),A0> {}
<MI 213a4 CLR.B (A0)> {}
<MI 213a6 TST.B (A6+0x20)> {}
<MI 213aa BNE 0x213fe> {}
<POP 213ac-213b2 Naked> Σ0 ↓ →0x213fe
<MI 213ac TST.B (A6+0x1e)> {}
<MI 213b0 BNE 0x213fe> {}
<POP 213b2-213fe Naked> Σ0 ↓
<Blob 0x213b2 [14] @> Δ-14 {[«14""»]}
<Blob 0x213c2 [30] (A6-0x36)> Δ-30 {[«14""»]|[«30»]}
<POP 213ce-213d0 StackAdj> Δ-8 {[«14""»]|[«30»]|[-8-]}
<Lit 0x213d0 13> {[«14""»]|[«30»]|[-4-]|[$$Comparing ->_]}
<POP 213dc-213de StackAdj> Δ-4 {[«14""»]|[«30»]|[-4-]|[$$Comparing ->_]|[-4-]}
<Lit 0x213de> {[«14""»]|[«30»]|[-4-]|[$$Comparing ->_]|[$$…]}
<Pointer.sp 0x213de 12> Δ-4
<Const 0x213e2 0x1.2> Δ-2
<Const 0x213e4 0x1e.2> Δ-2
<Call 0x213e8 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 213ea-213ec StackAdj> Δ+8
<Call 0x213ec 0x102d0> {[«14""»]|[«30»]|[-4-]|[$$Comparing ->_]|[$$…]}
StringCat2(a, b : String) : String
<POP 213f2-213f4 StackAdj> Δ+8 {[«14""»]|[«30»]|[-4-]}
<Call 0x213f4 0x103e0> {[«14""»]|[«30»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 213fa-213fe StackAdj> Δ+48 {}
<POP 213fe-21408 Naked> Σ0 ↓ →0x21456 ←0x213a0 ←0x213ac
<MI 213fe MOVE.L (A6-0x6),D0> {}
<MI 21402 CMP.L (A6-0x5c),D0> {}
<MI 21406 BEQ 0x21456> {}
<POP 21408-21456 Naked> Σ0 →0x214a2
<Blob 0x21408 [14] @> Δ-14 {[«14""»]}
<Blob 0x21418 [48] @> Δ-48 {[«14""»]|[«48""»]}
<POP 21424-21426 StackAdj> Δ-8 {[«14""»]|[«48""»]|[-8-]}
<Lit 0x21426 13> {[«14""»]|[«48""»]|[-4-]|[$$ _]}
<POP 21432-21434 StackAdj> Δ-4 {[«14""»]|[«48""»]|[-4-]|[$$ _]|[-4-]}
<Lit 0x21434 48> {[«14""»]|[«48""»]|[-4-]|[$$ _]|[$$Compare error, disk file size <> tape file size.]}
<Call 0x21442 0x102d0> {[«14""»]|[«48""»]|[-4-]|[$$ _]|[$$Compare error, disk file size <> tape file size.]}
StringCat2(a, b : String) : String
<POP 21448-2144a StackAdj> Δ+8 {[«14""»]|[«48""»]|[-4-]}
<Call 0x2144a 0x103e0> {[«14""»]|[«48""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 21450-21454 StackAdj> Δ+66 {}
<MI 21454 BRA 0x214a2> {}
<POP 21456-214a2 Naked> Σ0 ↓ ←0x213fe
<Blob 0x21456 [14] @> Δ-14 {[«14""»]}
<Blob 0x21466 [38] @> Δ-38 {[«14""»]|[«38""»]}
<POP 21472-21474 StackAdj> Δ-8 {[«14""»]|[«38""»]|[-8-]}
<Lit 0x21474 13> {[«14""»]|[«38""»]|[-4-]|[$$ _]}
<POP 21480-21482 StackAdj> Δ-4 {[«14""»]|[«38""»]|[-4-]|[$$ _]|[-4-]}
<Lit 0x21482 38> {[«14""»]|[«38""»]|[-4-]|[$$ _]|[$$Compare error, disk data <> tape data.]}
<Call 0x21490 0x102d0> {[«14""»]|[«38""»]|[-4-]|[$$ _]|[$$Compare error, disk data <> tape data.]}
StringCat2(a, b : String) : String
<POP 21496-21498 StackAdj> Δ+8 {[«14""»]|[«38""»]|[-4-]}
<Call 0x21498 0x103e0> {[«14""»]|[«38""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 2149e-214a2 StackAdj> Δ+56 {}
<POP 214a2-214a4 Naked> Σ0 →0x214ae ←0x21408
<MI 214a2 BRA 0x214ae> {}
<POP 214a4-214ae Naked> Σ0 ↓ ←0x21398
<MI 214a4 MOVEA.L (A6+0x8),A0> {}
<MI 214a8 MOVEA.L (A6+0xc),A1> {}
<MI 214ac MOVE.B (A1),(A0)> {}
<POP 214ae-214b6 Naked> Σ0 ↓ →0x2150a ←0x214a2
<MI 214ae MOVEA.L (A6+0xc),A0> {}
<MI 214b2 TST.B (A0)> {}
<MI 214b4 BEQ 0x2150a> {}
<POP 214b6-214e2 Naked> Σ0 ↓ →0x2150a
<Pointer.fp 0x214b6 <LVAR -0x058 @ 4(rw)>> Δ-4 {[@@-88]}
<Call 0x214ba 0x102bc> {[@@-88]}
FreeString(VAR a : String)
<POP 214c0-214c2 StackAdj> Δ+2 {[-2-]}
<MI 214c2 CLR.B (A7)> {[-2-]}
<Const 0x214c4 0x1.2> Δ-2 {[-2-]|[#1]}
<Const 0x214c6 0x1.4> Δ-4 {[-2-]|[#1]|[##1]}
<Pointer.fp 0x214ca <LVAR -0x45e @ 1(r)>> Δ-4 {[-2-]|[#1]|[##1]|[@@-1118]}
<Pointer.fp 0x214ce <LVAR -0x466 @ 4(r)>> Δ-4 {[-2-]|[#1]|[##1]|[@@-1118]|[@@-1126]}
<Call 0x214d2 0x1038c> {[-2-]|[#1]|[##1]|[@@-1118]|[@@-1126]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 214d8-214dc StackAdj> Δ+16 {}
<MI 214dc TST.B (A6-0x45e)> {}
<MI 214e0 BEQ 0x2150a> {}
<POP 214e2-2150a Naked> Σ0 ↓
<Blob 0x214e2 [22] @> Δ-22 {[«22""»]}
<Const 0x214ee 0xe.2> Δ-2 {[«22""»]|[#14]}
<POP 214f0-214f2 StackAdj> Δ-4 {[«22""»]|[#14]|[-4-]}
<Lit 0x214f2 22> {[«22""»]|[#14]|[$$Disk file close error.]}
<Call 0x21500 0x103b8> {[«22""»]|[#14]|[$$Disk file close error.]}
PopProgram(status : Byte; msg : String)
<POP 21506-2150a StackAdj> Δ+28 {}
<POP 2150a-2151c Naked> Σ0 ↓ →0x2152a ←0x214ae ←0x214b6
<Const 0x2150a 0x7.2> Δ-2 {[#7]}
<Pointer.fp 0x2150e <LVAR -0x008 @ 1(r)>> Δ-4 {[#7]|[@@-8]}
<Call 0x21510 0x10414> {[#7]|[@@-8]}
FSCALL_10414
<POP 21516-21518 StackAdj> Δ+6 {}
<MI 21518 TST.B (A6-0x8)> {}
<MI 2151a BEQ 0x2152a> {}
<POP 2151c-2152a Naked> Σ0 ↓
<Const 0x2151c 0x2.2> Δ-2 {[#2]}
<Pointer.fp 0x21520 <LVAR -0x008 @ 1(r)>> Δ-4 {[#2]|[@@-8]}
<Call 0x21522 0x10428> {[#2]|[@@-8]}
FSCALL_10428
<POP 21528-2152a StackAdj> Δ+6 {}
<POP 2152a-21532 Epilogue> Σ0 ←0x20e5a ←0x2150a
@ 21532
<LVAR 0x008 4(r)>
<LVAR -0x008 4(rw)>
<POP 21532-215b8 Body>
<POP 21532-21548 Prologue> Σ0 ↓
<POP 21548-215b0 Naked> Σ0 ↓
<MI 21548 LEA.L 0x26b38,A0> {}
<MI 2154e MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 21550 MOVE.L (A7)+,(A6-0x8)> Δ+4 {}
<MI 21554 MOVEA.L (A6-0x8),A0> {}
<MI 21558 MOVEA.L (A6+0x8),A1> {}
<MI 2155c MOVEA.L A0,A2> {}
<MI 2155e MOVEA.L A1,A3> {}
<BlockMove 30,A3,A2> {}
<MI 21568 MOVE.W (A1+0x20),D0> {}
<POP 0x2156c LimitCheck 0x0 ≤ D0 ≤ 0x4000> {}
<MI 21570 MOVE.W D0,(A0+0x1e)> {}
<MI 21574 MOVE.B (A1+0x3a),(A0+0x24)> {}
<MI 2157a MOVE.B (A1+0x3b),(A0+0x25)> {}
<MI 21580 MOVE.B (A1+0x3c),(A0+0x26)> {}
<MI 21586 MOVE.B (A1+0x3d),(A0+0x27)> {}
<MI 2158c MOVE.W #0x400,(A0+0x20)> {}
<MI 21592 MOVE.W #0x1,(A0+0x28)> {}
<MI 21598 MOVE.B (A1+0x3f),D0> {}
<MI 2159c LSL.B #0x6,D0> {}
<MI 2159e LSR.B #0x7,D0> {}
<MI 215a0 MOVE.B D0,(A0+0x23)> {}
<MI 215a4 MOVE.B (A1+0x3f),D0> {}
<MI 215a8 LSL.B #0x5,D0> {}
<MI 215aa LSR.B #0x7,D0> {}
<MI 215ac MOVE.B D0,(A0+0x22)> {}
<POP 215b0-215b8 Epilogue> Σ0
@ 215b8
<LVAR 0x010 1(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x004 1(rw)>
<LVAR -0x008 4(w)>
<LVAR -0x00c 4(w)>
<LVAR -0x012 @ 1(r)>
<LVAR -0x013 1(r)>
<LVAR -0x014 @ 1(r)>
<POP 215b8-2179a Body>
<POP 215b8-215ce Prologue> Σ0 ↓
<POP 215ce-215e2 RegCacheLoad> Σ0 ↓
<POP 215e2-2160e Naked> Σ0 ↓ →0x21664
<MI 215e2 LEA.L 0x26b38,A0> {}
<MI 215e8 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 215ea MOVE.L (A7)+,(A6-0xc)> Δ+4 {}
<MI 215ee LEA.L 0x26f38,A0> {}
<MI 215f4 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 215f6 MOVE.L (A7)+,(A6-0x8)> Δ+4 {}
<MI 215fa MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<Call 0x215fc 0x21532> {[4, '(A6+0x8)']}
<POP 21600-21602 StackAdj> Δ+4 {}
<MI 21602 MOVEQ.L #0x00,D7> {}
<MI 21604 MOVEQ.L #0x01,D6> {}
<MI 21606 MOVEQ.L #0x40,D5> {}
<MI 21608 TST.B (A6+0x10)> {}
<MI 2160c BEQ 0x21664> {}
<POP 2160e-21664 Naked> Σ0 ↓
<Blob 0x2160e [12] @> Δ-12 {[«12""»]}
<MI 21620 MOVEA.L (A6+0x8),A0> {[«12""»]}
<POP 21622-21624 StackAdj> Δ-30 {[«12""»]|[-30-]}
<MI 21624 MOVEA.L A7,A1> {[«12""»]|[-30-]}
<BlockMove 30,A0,A1> {[«12""»]|[-30-]}
<POP 2162e-21630 StackAdj> Δ-8 {[«12""»]|[-38-]}
<Lit 0x21630 11> {[«12""»]|[-34-]|[$$Writing ->_]}
<POP 21640-21642 StackAdj> Δ-4 {[«12""»]|[-34-]|[$$Writing ->_]|[-4-]}
<Lit 0x21642> {[«12""»]|[-34-]|[$$Writing ->_]|[$$…]}
<Pointer.sp 0x21642 12> Δ-4
<Const 0x21646 0x1.2> Δ-2
<Const 0x21648 0x1e.2> Δ-2
<Call 0x2164a 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 21650-21652 StackAdj> Δ+8
<Call 0x21652 0x102d0> {[«12""»]|[-34-]|[$$Writing ->_]|[$$…]}
StringCat2(a, b : String) : String
<POP 21658-2165a StackAdj> Δ+8 {[«12""»]|[-34-]}
<Call 0x2165a 0x103e0> {[«12""»]|[-34-]}
WriteConsoleStringCrLf(str : String)
<POP 21660-21664 StackAdj> Δ+46 {}
<POP 21664-21672 Naked> Σ0 ↓ →0x2167a ←0x215e2
<MI 21664 MOVEA.L (A6+0x8),A0> {}
<MI 21666 MOVE.W (A0+0x20),D0> {}
<MI 2166a EXTW.L D0> {}
<MI 2166c CMP.L (A6+0xc),D0> {}
<MI 21670 BLT 0x2167a> {}
<POP 21672-2167a Naked> Σ0 →0x21680
<MI 21672 MOVE.B #0x06,(A6-0x4)> {}
<MI 21678 BRA 0x21680> {}
<POP 2167a-21680 Naked> Σ0 ↓ ←0x21664
<MI 2167a MOVE.B #0x07,(A6-0x4)> {}
<POP 21680-2169a Naked> Σ0 ↓ →0x216a2 ←0x21672
<MI 21680 MOVE.B (A6-0x4),D0> {}
<MI 21684 EXTB.W D0> {}
<POP 0x21686 LimitCheck 0x0 ≤ D0 ≤ 0xb> {}
<MI 2168a MOVE.B D0,-(A7)> Δ-2 {[2, 'D0']}
<Pointer.fp 0x2168c <LVAR -0x014 @ 1(r)>> Δ-4 {[2, 'D0']|[@@-20]}
<Call 0x2168e 0x10414> {[2, 'D0']|[@@-20]}
FSCALL_10414
<POP 21694-21696 StackAdj> Δ+6 {}
<MI 21696 TST.B (A6-0x14)> {}
<MI 21698 BEQ 0x216a2> {}
<POP 2169a-216a2 Naked> Σ0 ↓
<Const 0x2169a 0x2.2> Δ-2 {[#2]}
<Pointer.fp 0x2169c <LVAR -0x014 @ 1(r)>> Δ-4 {[#2]|[@@-20]}
<Call 0x2169e 0x10428> {[#2]|[@@-20]}
FSCALL_10428
<POP 216a0-216a2 StackAdj> Δ+6 {}
<POP 216a2-216ae Naked> Σ0 Δ-4 ↓ ←0x21680
<MI 216a2 MOVE.W (A0+0x20),D0> {}
<MI 216a6 SUBQ.W #0x1,D0> {}
<MI 216a8 EXTW.L D0> {}
<MI 216aa MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 216ac MOVEQ.L #0x00,D0> {[4, 'D0']}
<POP 216ae-216b4 Naked> Σ-4 ↓ →0x21764 ←0x2175a
<MI 216ae CMP.L (A7),D0> {[-4-]}
<MI 216b0 BGT 0x21764> {[-4-]}
<POP 216b4-21708 Naked> Σ-4 ↓ →0x21710
<POP 0x216b4 LimitCheck 0x0 ≤ D7 ≤ 0x1> {[-4-]}
<MI 216b6 CLR.L D1> {[-4-]}
<MI 216b8 MOVE.W D7,D1> {[-4-]}
<MI 216ba ASL.L #0x2,D1> {[-4-]}
<MI 216bc MOVE.L (A6+D1.L-#0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+D1.L-#0xc)']}
<MI 216c0 MOVE.W D5,-(A7)> Δ-2 {[-4-]|[4, '(A6+D1.L-#0xc)']|[2, 'D5']}
<Call 0x216c2 0x1041c> {[-4-]|[4, '(A6+D1.L-#0xc)']|[2, 'D5']}
FSCALL_1041c
<POP 216c8-216ca StackAdj> Δ+2 {[-4-]|[4, '(A6+D1.L-#0xc)']}
<MI 216ca MOVE.L (A6+0x8),(A7)> {[-4-]|[4, '(A6+0x8)']}
<POP 0x216cc LimitCheck 0x0 ≤ D0 ≤ 0x4000> {[-4-]|[4, '(A6+0x8)']}
<MI 216d6 MOVE.W D0,-(A7)> Δ-2 {[-4-]|[4, '(A6+0x8)']|[2, 'D0']}
<MI 216d8 CLR.W -(A7)> Δ-2 {[-4-]|[4, '(A6+0x8)']|[2, 'D0']|[#0]}
<Const 0x216da 0x200.2> Δ-2 {[-4-]|[4, '(A6+0x8)']|[2, 'D0']|[#0]|[#512]}
<Const 0x216de 0x1.2> Δ-2 {[-4-]|[4, '(A6+0x8)']|[2, 'D0']|[#0]|[#512]|[#1]}
<POP 0x216e0 LimitCheck 0x0 ≤ D6 ≤ 0x1> {[-4-]|[4, '(A6+0x8)']|[2, 'D0']|[#0]|[#512]|[#1]}
<MI 216e2 CLR.L D1> {[-4-]|[4, '(A6+0x8)']|[2, 'D0']|[#0]|[#512]|[#1]}
<MI 216e4 MOVE.W D6,D1> {[-4-]|[4, '(A6+0x8)']|[2, 'D0']|[#0]|[#512]|[#1]}
<MI 216e6 ASL.L #0x2,D1> {[-4-]|[4, '(A6+0x8)']|[2, 'D0']|[#0]|[#512]|[#1]}
<MI 216e8 MOVE.L (A6+D1.L-#0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']|[2, 'D0']|[#0]|[#512]|[#1]|[4, '(A6+D1.L-#0xc)']}
<Pointer.fp 0x216ec <LVAR -0x012 @ 1(r)>> Δ-4 {[-4-]|[4, '(A6+0x8)']|[2, 'D0']|[#0]|[#512]|[#1]|[4, '(A6+D1.L-#0xc)']|[@@-18]}
<Call 0x216f0 0x10384> {[-4-]|[4, '(A6+0x8)']|[2, 'D0']|[#0]|[#512]|[#1]|[4, '(A6+D1.L-#0xc)']|[@@-18]}
ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
<POP 216f6-216fa StackAdj> Δ+20 {[-4-]}
<Pointer.fp 0x216fa <LVAR -0x014 @ 1(r)>> Δ-4 {[-4-]|[@@-20]}
<Call 0x216fc 0x10408> {[-4-]|[@@-20]}
FSCALL_10408
<POP 21702-21704 StackAdj> Δ+4 {[-4-]}
<MI 21704 TST.B (A6-0x14)> {[-4-]}
<MI 21706 BEQ 0x21710> {[-4-]}
<POP 21708-21710 Naked> Σ-4 ↓
<Const 0x21708 0x2.2> Δ-2 {[-4-]|[#2]}
<Pointer.fp 0x2170a <LVAR -0x014 @ 1(r)>> Δ-4 {[-4-]|[#2]|[@@-20]}
<Call 0x2170c 0x10428> {[-4-]|[#2]|[@@-20]}
FSCALL_10428
<POP 2170e-21710 StackAdj> Δ+6 {[-4-]}
<POP 21710-21716 Naked> Σ-4 ↓ →0x21724 ←0x216b4
<MI 21710 TST.B (A6-0x12)> {[-4-]}
<MI 21714 BEQ 0x21724> {[-4-]}
<POP 21716-21724 Naked> Σ-4 ↓
<Const 0x21716 0x1.2> Δ-2 {[-4-]|[#1]}
<Const 0x21718 0x1.4> Δ-4 {[-4-]|[#1]|[##1]}
<Call 0x2171c 0x103b8> {[-4-]|[#1]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 21722-21724 StackAdj> Δ+6 {[-4-]}
<POP 21724-2172a Naked> Σ-4 ↓ →0x2174c ←0x21710
<MI 21724 TST.B (A6-0x13)> {[-4-]}
<MI 21728 BEQ 0x2174c> {[-4-]}
<POP 2172a-2173e Naked> Σ-4 ↓ →0x21746
<Call 0x2172a 0x10420> {[-4-]}
FSCALL_10420
<Pointer.fp 0x21730 <LVAR -0x014 @ 1(r)>> Δ-4 {[-4-]|[@@-20]}
<Call 0x21732 0x10408> {[-4-]|[@@-20]}
FSCALL_10408
<POP 21738-2173a StackAdj> Δ+4 {[-4-]}
<MI 2173a TST.B (A6-0x14)> {[-4-]}
<MI 2173c BEQ 0x21746> {[-4-]}
<POP 2173e-21746 Naked> Σ-4 ↓
<Const 0x2173e 0x2.2> Δ-2 {[-4-]|[#2]}
<Pointer.fp 0x21740 <LVAR -0x014 @ 1(r)>> Δ-4 {[-4-]|[#2]|[@@-20]}
<Call 0x21742 0x10428> {[-4-]|[#2]|[@@-20]}
FSCALL_10428
<POP 21744-21746 StackAdj> Δ+6 {[-4-]}
<POP 21746-2174c Naked> Σ-4 ↓ ←0x2172a
<Call 0x21746 0x1042c> {[-4-]}
FSCALL_1042c
<POP 2174c-21750 Naked> Σ-4 ↓ →0x21756 ←0x21724
<MI 2174c TST.W D7> {[-4-]}
<MI 2174e BNE 0x21756> {[-4-]}
<POP 21750-21756 Naked> Σ-4 →0x2175a
<MI 21750 MOVEQ.L #0x01,D7> {[-4-]}
<MI 21752 MOVEQ.L #0x00,D6> {[-4-]}
<MI 21754 BRA 0x2175a> {[-4-]}
<POP 21756-2175a Naked> Σ-4 ↓ ←0x2174c
<MI 21756 MOVEQ.L #0x00,D7> {[-4-]}
<MI 21758 MOVEQ.L #0x01,D6> {[-4-]}
<POP 2175a-21764 Naked> Σ-4 ↓ →0x216ae ←0x21750
<MI 2175a MOVE.W #0x400,D5> {[-4-]}
<MI 2175e ADDQ.L #0x1,D0> {[-4-]}
<MI 21760 BVC 0x216ae> {[-4-]}
<POP 21764-2178a Naked> Σ-4 Δ+4 ↓ →0x21792 ←0x216ae
<POP 21764-21766 StackAdj> Δ+4 {}
<POP 0x21766 LimitCheck 0x0 ≤ D7 ≤ 0x1> {}
<MI 21768 CLR.L D0> {}
<MI 2176a MOVE.W D7,D0> {}
<MI 2176c ASL.L #0x2,D0> {}
<MI 2176e MOVE.L (A6+D0.L-#0xc),-(A7)> Δ-4 {[4, '(A6+D0.L-#0xc)']}
<MI 21772 MOVE.W D5,-(A7)> Δ-2 {[4, '(A6+D0.L-#0xc)']|[2, 'D5']}
<Call 0x21774 0x1041c> {[4, '(A6+D0.L-#0xc)']|[2, 'D5']}
FSCALL_1041c
<POP 2177a-2177c StackAdj> Δ+6 {}
<Pointer.fp 0x2177c <LVAR -0x014 @ 1(r)>> Δ-4 {[@@-20]}
<Call 0x2177e 0x10408> {[@@-20]}
FSCALL_10408
<POP 21784-21786 StackAdj> Δ+4 {}
<MI 21786 TST.B (A6-0x14)> {}
<MI 21788 BEQ 0x21792> {}
<POP 2178a-21792 Naked> Σ0 ↓
<Const 0x2178a 0x2.2> Δ-2 {[#2]}
<Pointer.fp 0x2178c <LVAR -0x014 @ 1(r)>> Δ-4 {[#2]|[@@-20]}
<Call 0x2178e 0x10428> {[#2]|[@@-20]}
FSCALL_10428
<POP 21790-21792 StackAdj> Δ+6 {}
<POP 21792-2179a Epilogue> Σ0 ←0x21764
@ 2179a
<LVAR 0x016 4(r)>
<LVAR 0x012 @ 4(r)>
<LVAR 0x010 1(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 2179a-217fa Body>
<POP 2179a-217b0 Prologue> Σ0 ↓
<POP 217b0-217e2 Naked> Σ0 ↓ →0x217f2
<MI 217b0 MOVEA.L (A6+0x8),A0> {}
<MI 217b4 MOVEA.L (A6+0xc),A1> {}
<MI 217b8 MOVE.L (A6+0x16),-(A7)> Δ-4 {[4, '(A6+0x16)']}
<Const 0x217bc 0x0.4> Δ-4 {[4, '(A6+0x16)']|[##0]}
<MI 217c0 MOVE.L (A6+0x12),-(A7)> Δ-4 {[4, '(A6+0x16)']|[##0]|[4, '(A6+0x12)']}
<MI 217c4 PEA.L (A0)> Δ-4 {[4, '(A6+0x16)']|[##0]|[4, '(A6+0x12)']|[4, '^(A0)']}
<MI 217c6 PEA.L (A1)> Δ-4 {[4, '(A6+0x16)']|[##0]|[4, '(A6+0x12)']|[4, '^(A0)']|[4, '^(A1)']}
<Call 0x217c8 0x26296> {[4, '(A6+0x16)']|[##0]|[4, '(A6+0x12)']|[4, '^(A0)']|[4, '^(A1)']}
<POP 217ce-217d2 StackAdj> Δ+20 {}
<Pointer.fp 0x217d2 <LVAR 0x012 @ 4(r)>> Δ-4 {[@@18]}
<Call 0x217d6 0x102bc> {[@@18]}
FreeString(VAR a : String)
<POP 217dc-217de StackAdj> Δ+4 {}
<MI 217de TST.B (A1)> {}
<MI 217e0 BEQ 0x217f2> {}
<POP 217e2-217e8 Naked> Σ0 ↓ →0x217f2
<MI 217e2 TST.B (A6+0x10)> {}
<MI 217e6 BNE 0x217f2> {}
<POP 217e8-217f2 Naked> Σ0 ↓
<MI 217e8 PEA.L (A0)> Δ-4 {[4, '^(A0)']}
<Call 0x217ea 0x102bc> {[4, '^(A0)']}
FreeString(VAR a : String)
<POP 217f0-217f2 StackAdj> Δ+4 {}
<POP 217f2-217fa Epilogue> Σ0 ←0x217b0 ←0x217e2
@ 217fa
<LVAR 0x008 2(r)>
<LVAR -0x002 @ 1(r)>
<LVAR -0x016 @ 2(r)>
<LVAR -0x01a 2(r)>
<LVAR -0x01c 2(w)>
<LVAR -0x022 2(w)>
<LVAR -0x026 @>
<POP 217fa-21892 Body>
<POP 217fa-21810 Prologue> Σ0 ↓
<POP 21810-2181a RegCacheLoad> Σ0 ↓
<POP 2181a-21854 Naked> Σ0 ↓ →0x2187e
<MI 2181a MOVE.W #0x03,(A6-0x22)> {}
<MI 2181e MOVE.W (A6+0x8),D0> {}
<MI 21822 ASL.W #0x8,D0> {}
<MI 21824 MOVE.W D0,(A6-0x1c)> {}
<MI 21828 CLR.W (A6-0x1a)> {}
<Pointer.fp 0x2182c <LVAR -0x026 @>> Δ-4 {[@@-38]}
<MI 21830 LEA.L (A6-0x16),A0> {[@@-38]}
<MI 21834 MOVE.L A0,-(A7)> Δ-4 {[@@-38]|[4, 'A0']}
<Const 0x21836 0x1.2> Δ-2 {[@@-38]|[4, 'A0']|[#1]}
<Call 0x21838 0x10204> {[@@-38]|[4, 'A0']|[#1]}
KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
<POP 2183e-21840 StackAdj> Δ+8 {[-2-]}
<POP 21840-21841 StackAdj> Δ+2 {}
<Const 0x21841 0x1.2> Δ-2 {[#1]}
<Pointer.fp 0x21842 <LVAR -0x002 @ 1(r)>> Δ-4 {[#1]|[@@-2]}
<Call 0x21846 0x10206> {[#1]|[@@-2]}
KC03_Wait_Disk_IO(a : W; VAR status : Byte)
<POP 2184c-2184e StackAdj> Δ+6 {}
<MI 2184e TST.B (A6-0x2)> {}
<MI 21852 BNE 0x2187e> {}
<POP 21854-2187e Naked> Σ0 ↓
<Blob 0x21854 [34] @> Δ-34 {[«34""»]}
<POP 21860-21862 StackAdj> Δ-4 {[«34""»]|[-4-]}
<Lit 0x21862 34> {[«34""»]|[$$Error trying to get configuration.]}
<Call 0x21874 0x23036> {[«34""»]|[$$Error trying to get configuration.]}
<POP 2187a-2187e StackAdj> Δ+38 {}
<POP 2187e-21888 Naked> Σ0 ↓ →0x2188a ←0x2181a
<MI 2187e CLR.B 0x2733c> {}
<MI 21880 MOVE.W (A6-0x16),D0> {}
<MI 21884 CMP.W #0x03,D0> {}
<MI 21886 BNE 0x2188a> {}
<POP 21888-2188a Naked> Σ0 ↓
<MI 21888 ADDQ.B #0x1,0x2733c> {}
<POP 2188a-21892 Epilogue> Σ0 ←0x2187e
@ 21892
<LVAR 0x00a 1(rw)>
<LVAR 0x008 2(r)>
<LVAR -0x002 @ 1(r)>
<LVAR -0x00a 2(r)>
<LVAR -0x016 @>
<LVAR -0x01a 2(r)>
<LVAR -0x01c 2(w)>
<LVAR -0x022 2(w)>
<LVAR -0x026 @>
<POP 21892-21930 Body>
<POP 21892-218a8 Prologue> Σ0 ↓
<POP 218a8-218aa RegCacheLoad> Σ0 ↓
<POP 218aa-218e6 Naked> Σ0 ↓ →0x21916
<MI 218aa MOVE.W #0x3,(A6-0x22)> {}
<MI 218b0 MOVE.W (A6+0x8),D0> {}
<MI 218b4 ASL.W #0x8,D0> {}
<MI 218b6 MOVE.W D0,(A6-0x1c)> {}
<MI 218ba CLR.W (A6-0x1a)> {}
<Pointer.fp 0x218be <LVAR -0x026 @>> Δ-4 {[@@-38]}
<MI 218c2 LEA.L (A6-0x16),A0> {[@@-38]}
<MI 218c6 MOVE.L A0,-(A7)> Δ-4 {[@@-38]|[4, 'A0']}
<Const 0x218c8 0x1.2> Δ-2 {[@@-38]|[4, 'A0']|[#1]}
<Call 0x218ca 0x10204> {[@@-38]|[4, 'A0']|[#1]}
KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
<POP 218d0-218d2 StackAdj> Δ+8 {[-2-]}
<POP 218d2-218d3 StackAdj> Δ+2 {}
<Const 0x218d3 0x1.2> Δ-2 {[#1]}
<Pointer.fp 0x218d4 <LVAR -0x002 @ 1(r)>> Δ-4 {[#1]|[@@-2]}
<Call 0x218d8 0x10206> {[#1]|[@@-2]}
KC03_Wait_Disk_IO(a : W; VAR status : Byte)
<POP 218de-218e0 StackAdj> Δ+6 {}
<MI 218e0 TST.B (A6-0x2)> {}
<MI 218e4 BNE 0x21916> {}
<POP 218e6-21916 Naked> Σ0 ↓
<Blob 0x218e6 [32] @> Δ-32 {[«32""»]}
<POP 218f8-218fa StackAdj> Δ-4 {[«32""»]|[-4-]}
<Lit 0x218fa 31> {[«32""»]|[$$Error when reading tape status.]}
<Call 0x2190c 0x23036> {[«32""»]|[$$Error when reading tape status.]}
<POP 21912-21916 StackAdj> Δ+36 {}
<POP 21916-21924 Naked> Σ0 ↓ →0x21928 ←0x218aa
<MI 21916 CLR.B (A6+0xa)> {}
<MI 2191a MOVE.W (A6-0xa),D0> {}
<MI 2191e ANDI.W #0x0002,D0> {}
<MI 21922 BEQ 0x21928> {}
<POP 21924-21928 Naked> Σ0 ↓
<MI 21924 ADDQ.B #0x1,(A6+0xa)> {}
<POP 21928-21930 Epilogue> Σ0 ←0x21916
@ 21930
<LVAR 0x00c 2(w)>
<LVAR 0x008 4(r)>
<LVAR -0x006 @ 4(r)>
<LVAR -0x008 @ 1(r)>
<LVAR -0x00c @ 4(r)>
<POP 21930-21a02 Body>
<POP 21930-21946 Prologue> Σ0 ↓
<POP 21946-21960 RegCacheLoad> Σ0 ↓
<POP 21960-2198a Naked> Σ0 ↓ →0x2198e
<Blob 0x21960 [4] @> Δ-4 {[«4""»]}
<MI 21962 MOVE.L (A6+0x8),-(A7)> Δ-4 {[«4""»]|[4, '(A6+0x8)']}
<POP 21966-21968 StackAdj> Δ-4 {[«4""»]|[4, '(A6+0x8)']|[-4-]}
<Lit 0x21968 4> {[«4""»]|[4, '(A6+0x8)']|[$$UNIT]}
<POP 21974-21976 StackAdj> Δ-2 {[«4""»]|[4, '(A6+0x8)']|[$$UNIT]|[-2-]}
<POP 21976-21977 StackAdj> Δ+2 {[«4""»]|[4, '(A6+0x8)']|[$$UNIT]}
<Const 0x21977 0x1.2> Δ-2 {[«4""»]|[4, '(A6+0x8)']|[$$UNIT]|[#1]}
<Pointer.fp 0x21978 <LVAR -0x008 @ 1(r)>> Δ-4 {[«4""»]|[4, '(A6+0x8)']|[$$UNIT]|[#1]|[@@-8]}
<Pointer.fp 0x2197a <LVAR -0x00c @ 4(r)>> Δ-4 {[«4""»]|[4, '(A6+0x8)']|[$$UNIT]|[#1]|[@@-8]|[@@-12]}
<Call 0x2197e 0x2179a> {[«4""»]|[4, '(A6+0x8)']|[$$UNIT]|[#1]|[@@-8]|[@@-12]}
<POP 21982-21986 StackAdj> Δ+22 {}
<MI 21986 TST.B (A6-0x8)> {}
<MI 21988 BNE 0x2198e> {}
<POP 2198a-2198e Naked> Σ0 →0x219ee
<MI 2198a CLR.L (A6-0x6)> {}
<MI 2198c BRA 0x219ee> {}
<POP 2198e-219a4 Naked> Σ0 ↓ →0x219c4 ←0x21960
<MI 2198e MOVE.L (A6-0xc),-(A7)> Δ-4 {[4, '(A6-0xc)']}
<Pointer.fp 0x21992 <LVAR -0x008 @ 1(r)>> Δ-4 {[4, '(A6-0xc)']|[@@-8]}
<Pointer.fp 0x21994 <LVAR -0x006 @ 4(r)>> Δ-4 {[4, '(A6-0xc)']|[@@-8]|[@@-6]}
<Call 0x21996 0x102ec> {[4, '(A6-0xc)']|[@@-8]|[@@-6]}
String2Long(src : String; VAR status : Bool; VAR retval : Long)
<POP 2199c-219a0 StackAdj> Δ+12 {}
<MI 219a0 TST.B (A6-0x8)> {}
<MI 219a2 BNE 0x219c4> {}
<POP 219a4-219c4 Naked> Σ0 ↓
<Blob 0x219a4 [26] @> Δ-26 {[«26""»]}
<POP 219ae-219b0 StackAdj> Δ-4 {[«26""»]|[-4-]}
<Lit 0x219b0 26> {[«26""»]|[$$Illegal argument on /UNIT=]}
<Call 0x219bc 0x23036> {[«26""»]|[$$Illegal argument on /UNIT=]}
<POP 219c2-219c4 StackAdj> Δ+30 {}
<POP 219c4-219c8 Naked> Σ0 ↓ →0x219ce ←0x2198e
<MI 219c4 TST.L (A6-0x6)> {}
<MI 219c6 BLT 0x219ce> {}
<POP 219c8-219ce Naked> Σ0 ↓ →0x219ee
<MI 219c8 MOVE.L (A6-0x6),D0> {}
<MI 219ca CMP.L #0x03,D0> {}
<MI 219cc BLE 0x219ee> {}
<POP 219ce-219ee Naked> Σ0 ↓ ←0x219c4
<Blob 0x219ce [26] @> Δ-26 {[«26""»]}
<POP 219d8-219da StackAdj> Δ-4 {[«26""»]|[-4-]}
<Lit 0x219da 26> {[«26""»]|[$$Illegal argument on /UNIT=]}
<Call 0x219e6 0x23036> {[«26""»]|[$$Illegal argument on /UNIT=]}
<POP 219ec-219ee StackAdj> Δ+30 {}
<POP 219ee-219fa Naked> Σ0 ↓ ←0x2198a ←0x219c8
<MI 219ee MOVE.L (A6-0x6),D0> {}
<POP 0x219f0 LimitCheck 0x0 ≤ D0 ≤ 0x3> {}
<MI 219f6 MOVE.W D0,(A6+0xc)> {}
<POP 219fa-21a02 Epilogue> Σ0
@ 21a02
<LVAR 0x016 4(r)>
<LVAR 0x014 1(r)>
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x008 @ 1(r)>
<LVAR -0x009 @ 1(r)>
<LVAR -0x00a @ 1(r)>
<LVAR -0x00e @ 4(r)>
<LVAR -0x010 @ 1(r)>
<LVAR -0x011 @ 1(r)>
<LVAR -0x012 @ 1(r)>
<POP 21a02-21d2c Body> Δ+4
<POP 21a02-21a18 Prologue> Σ0 ↓
<POP 21a18-21a30 RegCacheLoad> Σ0 ↓
<POP 21a30-21a64 Naked> Σ0 ↓ →0x21a70
<Blob 0x21a30 [10] @> Δ-10 {[«10""»]}
<MI 21a40 MOVE.L (A6+0x16),-(A7)> Δ-4 {[«10""»]|[4, '(A6+0x16)']}
<POP 21a42-21a44 StackAdj> Δ-4 {[«10""»]|[4, '(A6+0x16)']|[-4-]}
<Lit 0x21a44 9> {[«10""»]|[4, '(A6+0x16)']|[$$THRESHOLD]}
<POP 21a4e-21a50 StackAdj> Δ-2 {[«10""»]|[4, '(A6+0x16)']|[$$THRESHOLD]|[-2-]}
<POP 21a50-21a51 StackAdj> Δ+2 {[«10""»]|[4, '(A6+0x16)']|[$$THRESHOLD]}
<Const 0x21a51 0x1.2> Δ-2 {[«10""»]|[4, '(A6+0x16)']|[$$THRESHOLD]|[#1]}
<Pointer.fp 0x21a52 <LVAR -0x012 @ 1(r)>> Δ-4 {[«10""»]|[4, '(A6+0x16)']|[$$THRESHOLD]|[#1]|[@@-18]}
<Pointer.fp 0x21a56 <LVAR -0x00e @ 4(r)>> Δ-4 {[«10""»]|[4, '(A6+0x16)']|[$$THRESHOLD]|[#1]|[@@-18]|[@@-14]}
<Call 0x21a58 0x2179a> {[«10""»]|[4, '(A6+0x16)']|[$$THRESHOLD]|[#1]|[@@-18]|[@@-14]}
<POP 21a5c-21a5e StackAdj> Δ+28 {}
<MI 21a5e TST.B (A6-0x12)> {}
<MI 21a62 BNE 0x21a70> {}
<POP 21a64-21a70 Naked> Σ0 →0x21ab8
<MI 21a64 MOVEA.L (A6+0xc),A0> {}
<MI 21a68 MOVE.L #0x5,(A0)> {}
<MI 21a6e BRA 0x21ab8> {}
<POP 21a70-21a8c Naked> Σ0 ↓ →0x21ab8 ←0x21a30
<MI 21a70 MOVE.L (A6-0xe),-(A7)> Δ-4 {[4, '(A6-0xe)']}
<Pointer.fp 0x21a72 <LVAR -0x012 @ 1(r)>> Δ-4 {[4, '(A6-0xe)']|[@@-18]}
<MI 21a76 MOVEA.L (A6+0xc),A0> {[4, '(A6-0xe)']|[@@-18]}
<MI 21a7a PEA.L (A0)> Δ-4 {[4, '(A6-0xe)']|[@@-18]|[4, '^(A0)']}
<Call 0x21a7c 0x102ec> {[4, '(A6-0xe)']|[@@-18]|[4, '^(A0)']}
String2Long(src : String; VAR status : Bool; VAR retval : Long)
<POP 21a82-21a86 StackAdj> Δ+12 {}
<MI 21a86 TST.B (A6-0x12)> {}
<MI 21a8a BNE 0x21ab8> {}
<POP 21a8c-21ab8 Naked> Σ0 ↓
<Blob 0x21a8c [32] @> Δ-32 {[«32""»]}
<POP 21a9e-21aa0 StackAdj> Δ-4 {[«32""»]|[-4-]}
<Lit 0x21aa0 31> {[«32""»]|[$$Illegal argument on /THRESHOLD=]}
<Call 0x21aae 0x23036> {[«32""»]|[$$Illegal argument on /THRESHOLD=]}
<POP 21ab4-21ab8 StackAdj> Δ+36 {}
<POP 21ab8-21b6c Naked> Σ0 ↓ →0x21b9e ←0x21a64 ←0x21a70
<Blob 0x21ab8 [2] @> Δ-2 {[«2""»]}
<MI 21abc MOVE.L (A6+0x16),-(A7)> Δ-4 {[«2""»]|[4, '(A6+0x16)']}
<POP 21abe-21ac0 StackAdj> Δ-4 {[«2""»]|[4, '(A6+0x16)']|[-4-]}
<Lit 0x21ac0 2> {[«2""»]|[4, '(A6+0x16)']|[$$V ]}
<POP 21aca-21acc StackAdj> Δ-2 {[«2""»]|[4, '(A6+0x16)']|[$$V ]|[-2-]}
<MI 21acc CLR.B (A7)> {[«2""»]|[4, '(A6+0x16)']|[$$V ]|[-2-]}
<MI 21ace MOVEA.L (A6+0x10),A0> {[«2""»]|[4, '(A6+0x16)']|[$$V ]|[-2-]}
<MI 21ad2 PEA.L (A0)> Δ-4 {[«2""»]|[4, '(A6+0x16)']|[$$V ]|[-2-]|[4, '^(A0)']}
<Pointer.fp 0x21ad4 <LVAR -0x00e @ 4(r)>> Δ-4 {[«2""»]|[4, '(A6+0x16)']|[$$V ]|[-2-]|[4, '^(A0)']|[@@-14]}
<Call 0x21ad6 0x2179a> {[«2""»]|[4, '(A6+0x16)']|[$$V ]|[-2-]|[4, '^(A0)']|[@@-14]}
<POP 21ada-21adb StackAdj> Δ+20 ↓ {}
<Blob 0x21adb [8] @> Δ-8 {[«8""»]}
<MI 21aec MOVE.L (A6+0x16),-(A7)> Δ-4 {[«8""»]|[4, '(A6+0x16)']}
<POP 21aee-21af0 StackAdj> Δ-4 {[«8""»]|[4, '(A6+0x16)']|[-4-]}
<Lit 0x21af0 7> {[«8""»]|[4, '(A6+0x16)']|[$$UNLOAD ]}
<POP 21afc-21afe StackAdj> Δ-2 {[«8""»]|[4, '(A6+0x16)']|[$$UNLOAD ]|[-2-]}
<MI 21afe CLR.B (A7)> {[«8""»]|[4, '(A6+0x16)']|[$$UNLOAD ]|[-2-]}
<MI 21b00 MOVEA.L (A6+0x8),A0> {[«8""»]|[4, '(A6+0x16)']|[$$UNLOAD ]|[-2-]}
<MI 21b04 PEA.L (A0)> Δ-4 {[«8""»]|[4, '(A6+0x16)']|[$$UNLOAD ]|[-2-]|[4, '^(A0)']}
<Pointer.fp 0x21b06 <LVAR -0x00e @ 4(r)>> Δ-4 {[«8""»]|[4, '(A6+0x16)']|[$$UNLOAD ]|[-2-]|[4, '^(A0)']|[@@-14]}
<Call 0x21b08 0x2179a> {[«8""»]|[4, '(A6+0x16)']|[$$UNLOAD ]|[-2-]|[4, '^(A0)']|[@@-14]}
<POP 21b0c-21b10 StackAdj> Δ+22 {[-4-]}
<POP 21b10-21b11 StackAdj> Δ+2 {[-2-]}
<Blob 0x21b11 [2] @> Δ-2 {[-2-]|[«2""»]}
<MI 21b14 MOVE.B 0x20409,(A7+0x1)> {[-2-]|[«2""»]}
<MI 21b1a MOVE.B 0x2040a,(A7+0x2)> {[-2-]|[«2""»]}
<MI 21b20 MOVE.L (A6+0x16),-(A7)> Δ-4 {[-2-]|[«2""»]|[4, '(A6+0x16)']}
<POP 21b22-21b24 StackAdj> Δ-4 {[-2-]|[«2""»]|[4, '(A6+0x16)']|[-4-]}
<Lit 0x21b24> {[-2-]|[«2""»]|[4, '(A6+0x16)']|[$$…]}
<Pointer.sp 0x21b24 8> Δ-4
<Const 0x21b28 0x1.2> Δ-2
<Const 0x21b2a 0x3.2> Δ-2
<Call 0x21b2e 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 21b30-21b32 StackAdj> Δ+8
<POP 21b30-21b32 StackAdj> Δ-2 {[-2-]|[«2""»]|[4, '(A6+0x16)']|[$$…]|[-2-]}
<MI 21b32 CLR.B (A7)> {[-2-]|[«2""»]|[4, '(A6+0x16)']|[$$…]|[-2-]}
<Pointer.fp 0x21b34 <LVAR -0x011 @ 1(r)>> Δ-4 {[-2-]|[«2""»]|[4, '(A6+0x16)']|[$$…]|[-2-]|[@@-17]}
<Pointer.fp 0x21b38 <LVAR -0x00e @ 4(r)>> Δ-4 {[-2-]|[«2""»]|[4, '(A6+0x16)']|[$$…]|[-2-]|[@@-17]|[@@-14]}
<Call 0x21b3a 0x2179a> {[-2-]|[«2""»]|[4, '(A6+0x16)']|[$$…]|[-2-]|[@@-17]|[@@-14]}
<POP 21b3e-21b42 StackAdj> Δ+20 {[-2-]}
<POP 21b42-21b43 StackAdj> Δ+2 {}
<Blob 0x21b43 [2] @> Δ-2 {[«2""»]}
<MI 21b46 MOVE.L (A6+0x16),-(A7)> Δ-4 {[«2""»]|[4, '(A6+0x16)']}
<POP 21b48-21b4a StackAdj> Δ-4 {[«2""»]|[4, '(A6+0x16)']|[-4-]}
<Lit 0x21b4a 2> {[«2""»]|[4, '(A6+0x16)']|[$$PE]}
<POP 21b54-21b56 StackAdj> Δ-2 {[«2""»]|[4, '(A6+0x16)']|[$$PE]|[-2-]}
<MI 21b56 CLR.B (A7)> {[«2""»]|[4, '(A6+0x16)']|[$$PE]|[-2-]}
<Pointer.fp 0x21b58 <LVAR -0x010 @ 1(r)>> Δ-4 {[«2""»]|[4, '(A6+0x16)']|[$$PE]|[-2-]|[@@-16]}
<Pointer.fp 0x21b5c <LVAR -0x00e @ 4(r)>> Δ-4 {[«2""»]|[4, '(A6+0x16)']|[$$PE]|[-2-]|[@@-16]|[@@-14]}
<Call 0x21b5e 0x2179a> {[«2""»]|[4, '(A6+0x16)']|[$$PE]|[-2-]|[@@-16]|[@@-14]}
<POP 21b62-21b66 StackAdj> Δ+20 {}
<MI 21b66 TST.B (A6-0x10)> {}
<MI 21b6a BEQ 0x21b9e> {}
<POP 21b6c-21b72 Naked> Σ0 ↓ →0x21b9e
<MI 21b6c TST.B (A6-0x11)> {}
<MI 21b70 BEQ 0x21b9e> {}
<POP 21b72-21b9e Naked> Σ0 ↓
<Blob 0x21b72 [32] @> Δ-32 {[«32""»]}
<POP 21b84-21b86 StackAdj> Δ-4 {[«32""»]|[-4-]}
<Lit 0x21b86 31> {[«32""»]|[$$Command specifies /GCR and /PE!]}
<Call 0x21b94 0x23036> {[«32""»]|[$$Command specifies /GCR and /PE!]}
<POP 21b9a-21b9e StackAdj> Δ+36 {}
<POP 21b9e-21bfc Naked> Σ0 ↓ →0x21c2e ←0x21ab8 ←0x21b6c
<Blob 0x21b9e [10] @> Δ-10 {[«10""»]}
<MI 21baa MOVE.L (A6+0x16),-(A7)> Δ-4 {[«10""»]|[4, '(A6+0x16)']}
<POP 21bac-21bae StackAdj> Δ-4 {[«10""»]|[4, '(A6+0x16)']|[-4-]}
<Lit 0x21bae 10> {[«10""»]|[4, '(A6+0x16)']|[$$SHORT_GAPS]}
<POP 21bb8-21bba StackAdj> Δ-2 {[«10""»]|[4, '(A6+0x16)']|[$$SHORT_GAPS]|[-2-]}
<MI 21bba CLR.B (A7)> {[«10""»]|[4, '(A6+0x16)']|[$$SHORT_GAPS]|[-2-]}
<Pointer.fp 0x21bbc <LVAR -0x009 @ 1(r)>> Δ-4 {[«10""»]|[4, '(A6+0x16)']|[$$SHORT_GAPS]|[-2-]|[@@-9]}
<Pointer.fp 0x21bc0 <LVAR -0x00e @ 4(r)>> Δ-4 {[«10""»]|[4, '(A6+0x16)']|[$$SHORT_GAPS]|[-2-]|[@@-9]|[@@-14]}
<Call 0x21bc2 0x2179a> {[«10""»]|[4, '(A6+0x16)']|[$$SHORT_GAPS]|[-2-]|[@@-9]|[@@-14]}
<POP 21bc6-21bc7 StackAdj> Δ+28 ↓ {}
<Blob 0x21bc7 [10] @> Δ-10 {[«10""»]}
<MI 21bd8 MOVE.L (A6+0x16),-(A7)> Δ-4 {[«10""»]|[4, '(A6+0x16)']}
<POP 21bda-21bdc StackAdj> Δ-4 {[«10""»]|[4, '(A6+0x16)']|[-4-]}
<Lit 0x21bdc 9> {[«10""»]|[4, '(A6+0x16)']|[$$LONG_GAPS]}
<POP 21be6-21be8 StackAdj> Δ-2 {[«10""»]|[4, '(A6+0x16)']|[$$LONG_GAPS]|[-2-]}
<MI 21be8 CLR.B (A7)> {[«10""»]|[4, '(A6+0x16)']|[$$LONG_GAPS]|[-2-]}
<Pointer.fp 0x21bea <LVAR -0x00a @ 1(r)>> Δ-4 {[«10""»]|[4, '(A6+0x16)']|[$$LONG_GAPS]|[-2-]|[@@-10]}
<Pointer.fp 0x21bee <LVAR -0x00e @ 4(r)>> Δ-4 {[«10""»]|[4, '(A6+0x16)']|[$$LONG_GAPS]|[-2-]|[@@-10]|[@@-14]}
<Call 0x21bf0 0x2179a> {[«10""»]|[4, '(A6+0x16)']|[$$LONG_GAPS]|[-2-]|[@@-10]|[@@-14]}
<POP 21bf4-21bf6 StackAdj> Δ+28 {}
<MI 21bf6 TST.B (A6-0xa)> {}
<MI 21bfa BEQ 0x21c2e> {}
<POP 21bfc-21c02 Naked> Σ0 ↓ →0x21c2e
<MI 21bfc TST.B (A6-0x9)> {}
<MI 21c00 BEQ 0x21c2e> {}
<POP 21c02-21c2e Naked> Σ0 ↓
<Blob 0x21c02 [46] @> Δ-46 {[«46""»]}
<POP 21c14-21c16 StackAdj> Δ-4 {[«46""»]|[-4-]}
<Lit 0x21c16 45> {[«46""»]|[$$Command specifies /LONG_GAPS and /SHORT_GAPS.]}
<Call 0x21c24 0x23036> {[«46""»]|[$$Command specifies /LONG_GAPS and /SHORT_GAPS.]}
<POP 21c2a-21c2e StackAdj> Δ+50 {}
<POP 21c2e-21c52 Naked> Σ0 Δ-4 ↓ →0x21c54 ←0x21b9e ←0x21bfc
<POP 21c2e-21c30 StackAdj> Δ-2 {[-2-]}
<MI 21c30 MOVE.L (A6+0x16),-(A7)> Δ-4 {[-2-]|[4, '(A6+0x16)']}
<Call 0x21c32 0x21930> {[-2-]|[4, '(A6+0x16)']}
<POP 21c36-21c38 StackAdj> Δ+4 {[-2-]}
<MI 21c38 MOVE.W (A7)+,D0> Δ+2 {}
<POP 0x21c3a LimitCheck 0x0 ≤ D0 ≤ 0x3> {}
<MI 21c3e MOVE.W D0,D6> {}
<MI 21c40 MOVE.W D6,-(A7)> Δ-2 {[2, 'D6']}
<Call 0x21c42 0x217fa> {[2, 'D6']}
<MI 21c46 MOVE.W D6,(A7)> {[2, 'D6']}
<MI 21c48 CLR.B -(A7)> Δ-2 {[2, 'D6']|[#0]}
<MI 21c4a MOVE.B (A6+0x14),D0> {[2, 'D6']|[#0]}
<MI 21c4e CMP.B #0x01,D0> {[2, 'D6']|[#0]}
<MI 21c50 BNE 0x21c54> {[2, 'D6']|[#0]}
<POP 21c52-21c54 Naked> Σ-4 ↓
<MI 21c52 ADDQ.B #0x1,(A7)> {[-4-]}
<POP 21c54-21c68 Naked> Σ-4 Δ+4 ↓ →0x21c76 ←0x21c2e
<MI 21c54 CLR.B -(A7)> Δ-2 {[-4-]|[#0]}
<Pointer.fp 0x21c56 <LVAR -0x008 @ 1(r)>> Δ-4 {[-4-]|[#0]|[@@-8]}
<Call 0x21c5a 0x1040c> {[-4-]|[#0]|[@@-8]}
FSCALL_1040c
<POP 21c60-21c62 StackAdj> Δ+10 {}
<MI 21c62 TST.B (A6-0x8)> {}
<MI 21c66 BEQ 0x21c76> {}
<POP 21c68-21c76 Naked> Σ0 ↓
<Const 0x21c68 0x2.2> Δ-2 {[#2]}
<Pointer.fp 0x21c6a <LVAR -0x008 @ 1(r)>> Δ-4 {[#2]|[@@-8]}
<Call 0x21c6e 0x10428> {[#2]|[@@-8]}
FSCALL_10428
<POP 21c74-21c76 StackAdj> Δ+6 {}
<POP 21c76-21c8a Naked> Σ0 ↓ →0x21cc4 ←0x21c54
<POP 21c76-21c78 StackAdj> Δ-2 {[-2-]}
<MI 21c78 MOVE.W D6,-(A7)> Δ-2 {[-2-]|[2, 'D6']}
<Call 0x21c7a 0x21892> {[-2-]|[2, 'D6']}
<POP 21c7e-21c80 StackAdj> Δ+2 {[-2-]}
<MI 21c80 MOVE.B (A7)+,D0> Δ+2 {}
<MI 21c82 EXTB.W D0> {}
<POP 0x21c84 LimitCheck 0x0 ≤ D0 ≤ 0x1> {}
<MI 21c86 MOVE.B D0,D7> {}
<MI 21c88 BNE 0x21cc4> {}
<POP 21c8a-21c90 Naked> Σ0 ↓ →0x21c96
<MI 21c8a TST.B (A6-0x10)> {}
<MI 21c8e BNE 0x21c96> {}
<POP 21c90-21c96 Naked> Σ0 ↓ →0x21cc4
<MI 21c90 TST.B (A6-0x11)> {}
<MI 21c94 BEQ 0x21cc4> {}
<POP 21c96-21cc4 Naked> Σ0 →0x21cf6 ←0x21c8a
<Blob 0x21c96 [48] @> Δ-48 {[«48""»]}
<POP 21ca8-21caa StackAdj> Δ-4 {[«48""»]|[-4-]}
<Lit 0x21caa 47> {[«48""»]|[$$/GCR or /PE ignored because tape is not at BOT.]}
<Call 0x21cb8 0x103e0> {[«48""»]|[$$/GCR or /PE ignored because tape is not at BOT.]}
WriteConsoleStringCrLf(str : String)
<POP 21cbe-21cc2 StackAdj> Δ+52 {}
<MI 21cc2 BRA 0x21cf6> {}
<POP 21cc4-21cc8 Naked> Σ0 ↓ →0x21cf6 ←0x21c76 ←0x21c90
<MI 21cc4 TST.B D7> {}
<MI 21cc6 BEQ 0x21cf6> {}
<POP 21cc8-21cce Naked> Σ0 ↓ →0x21cd2
<MI 21cc8 TST.B (A6-0x11)> {}
<MI 21ccc BEQ 0x21cd2> {}
<POP 21cce-21cd2 Naked> Σ0 Δ-2 →0x21cd6
<Const 0x21cce 0x9.2> Δ-2 {[#9]}
<MI 21cd0 BRA 0x21cd6> {[#9]}
<POP 21cd2-21cd6 Naked> Σ0 Δ-2 ↓ ←0x21cc8
<Const 0x21cd2 0x8.2> Δ-2 {[#8]}
<POP 21cd6-21ce8 Naked> Σ-2 Δ+2 ↓ →0x21cf6 ←0x21cce
<Pointer.fp 0x21cd6 <LVAR -0x008 @ 1(r)>> Δ-4 {[-2-]|[@@-8]}
<Call 0x21cda 0x10414> {[-2-]|[@@-8]}
FSCALL_10414
<POP 21ce0-21ce2 StackAdj> Δ+6 {}
<MI 21ce2 TST.B (A6-0x8)> {}
<MI 21ce6 BEQ 0x21cf6> {}
<POP 21ce8-21cf6 Naked> Σ0 ↓
<Const 0x21ce8 0x2.2> Δ-2 {[#2]}
<Pointer.fp 0x21cea <LVAR -0x008 @ 1(r)>> Δ-4 {[#2]|[@@-8]}
<Call 0x21cee 0x10428> {[#2]|[@@-8]}
FSCALL_10428
<POP 21cf4-21cf6 StackAdj> Δ+6 {}
<POP 21cf6-21cfc Naked> Σ0 ↓ →0x21d02 ←0x21c96 ←0x21cc4 ←0x21cd6
<MI 21cf6 TST.B (A6-0x9)> {}
<MI 21cfa BEQ 0x21d02> {}
<POP 21cfc-21d02 Naked> Σ0 Δ-2 →0x21d04
<Const 0x21cfc 0xb.2> Δ-2 {[#11]}
<MI 21d00 BRA 0x21d04> {[#11]}
<POP 21d02-21d04 Naked> Σ0 Δ-2 ↓ ←0x21cf6
<Const 0x21d02 0xa.2> Δ-2 {[#10]}
<POP 21d04-21d16 Naked> Σ-2 Δ+2 ↓ →0x21d24 ←0x21cfc
<Pointer.fp 0x21d04 <LVAR -0x008 @ 1(r)>> Δ-4 {[-2-]|[@@-8]}
<Call 0x21d08 0x10414> {[-2-]|[@@-8]}
FSCALL_10414
<POP 21d0e-21d10 StackAdj> Δ+6 {}
<MI 21d10 TST.B (A6-0x8)> {}
<MI 21d14 BEQ 0x21d24> {}
<POP 21d16-21d24 Naked> Σ0 ↓
<Const 0x21d16 0x2.2> Δ-2 {[#2]}
<Pointer.fp 0x21d18 <LVAR -0x008 @ 1(r)>> Δ-4 {[#2]|[@@-8]}
<Call 0x21d1c 0x10428> {[#2]|[@@-8]}
FSCALL_10428
<POP 21d22-21d24 StackAdj> Δ+6 {}
<POP 21d24-21d2c Epilogue> Σ0 ←0x21d04
@ 21d2c
<LVAR -0x008 @ 4(rw)>
<LVAR -0x023 @>
<LVAR -0x024 @>
<LVAR -0x028 4(w)>
<LVAR -0x02a 2(rw)>
<LVAR -0x02c 4(w)>
<LVAR -0x030 4(w)>
<LVAR -0x034 @ 4(w)>
<POP 21d2c-21e26 Body>
<POP 21d2c-21d42 Prologue> Σ0 ↓
<POP 21d42-21d4c RegCacheLoad> Σ0 ↓
<POP 21d4c-21dd6 Naked> Σ0 ↓
<MI 21d4c MOVE.L 0x205de,(A6-0x34)> {}
<MI 21d52 MOVE.L 0x205e2,(A6-0x30)> {}
<MI 21d58 MOVE.L 0x205e6,(A6-0x2c)> {}
<MI 21d5e MOVE.L 0x205ea,(A6-0x28)> {}
<MI 21d64 MOVE.W #0x19,(A6-0x2a)> {}
<MI 21d66 CLR.L D0> {}
<MI 21d68 MOVE.W (A6-0x2a),D0> {}
<MI 21d6a ADDI.L #0x00000300,D0> {}
<POP 0x21d70 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 21d7a MOVE.W D0,(A6-0x2a)> {}
<Pointer.fp 0x21d7c <LVAR -0x034 @ 4(w)>> Δ-4 {[@@-52]}
<MI 21d80 LEA.L (A6-0x23),A0> {[@@-52]}
<MI 21d84 MOVE.L A0,-(A7)> Δ-4 {[@@-52]|[4, 'A0']}
<MI 21d86 CLR.W -(A7)> Δ-2 {[@@-52]|[4, 'A0']|[#0]}
<Call 0x21d88 0x10204> {[@@-52]|[4, 'A0']|[#0]}
KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
<POP 21d8e-21d90 StackAdj> Δ+8 {[-2-]}
<MI 21d90 CLR.W (A7)> {[-2-]}
<Pointer.fp 0x21d92 <LVAR -0x024 @>> Δ-4 {[-2-]|[@@-36]}
<Call 0x21d96 0x10206> {[-2-]|[@@-36]}
KC03_Wait_Disk_IO(a : W; VAR status : Byte)
<POP 21d9c-21d9e StackAdj> Δ+6 {}
<Blob 0x21d9e [24] @> Δ-24 {[«24""»]}
<POP 21daa-21dac StackAdj> Δ-4 {[«24""»]|[-4-]}
<Lit 0x21dac 24> {[«24""»]|[$$Buffered sense data is:_]}
<Call 0x21dc0 0x103e0> {[«24""»]|[$$Buffered sense data is:_]}
WriteConsoleStringCrLf(str : String)
<POP 21dc6-21dca StackAdj> Δ+28 {}
<Pointer.fp 0x21dca <LVAR -0x008 @ 4(rw)>> Δ-4 {[@@-8]}
<Call 0x21dcc 0x102b8> {[@@-8]}
NewString(VAR a : String)
<POP 21dd2-21dd4 StackAdj> Δ+4 {}
<MI 21dd4 MOVEQ.L #0x00,D7> {}
<POP 21dd6-21e14 Naked> Σ0 ↓ →0x21dd6 ←0x21dd6
<POP 21dd6-21dd8 StackAdj> Δ-4 {[-4-]}
<MI 21dd8 MOVE.L (A6-0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x8)']}
<POP 21dda-21ddc StackAdj> Δ-4 {[-4-]|[4, '(A6-0x8)']|[-4-]}
<POP 0x21ddc LimitCheck 0x0 ≤ D7 ≤ 0x19> {[-4-]|[4, '(A6-0x8)']|[-4-]}
<MI 21de2 CLR.L D0> {[-4-]|[4, '(A6-0x8)']|[-4-]}
<MI 21de4 MOVE.B (A6+D7.L-#0x23),D0> {[-4-]|[4, '(A6-0x8)']|[-4-]}
<MI 21de8 MOVE.L D0,-(A7)> Δ-4 {[-4-]|[4, '(A6-0x8)']|[-4-]|[4, 'D0']}
<Const 0x21dea 0x2.4> Δ-4 {[-4-]|[4, '(A6-0x8)']|[-4-]|[4, 'D0']|[##2]}
<Call 0x21dee 0x102e8> {[-4-]|[4, '(A6-0x8)']|[-4-]|[4, 'D0']|[##2]}
Long2HexString(val : Long; ndig : Long) : String
<POP 21df4-21df6 StackAdj> Δ+8 {[-4-]|[4, '(A6-0x8)']|[-4-]}
<Call 0x21df6 0x102d0> {[-4-]|[4, '(A6-0x8)']|[-4-]}
StringCat2(a, b : String) : String
<POP 21dfc-21dfe StackAdj> Δ+8 {[-4-]}
<MI 21dfe MOVE.L (A7)+,(A6-0x8)> Δ+4 {}
<MI 21e00 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<Const 0x21e02 0x20.2> Δ-2 {[4, '(A6-0x8)']|[#32]}
<Call 0x21e06 0x102c0> {[4, '(A6-0x8)']|[#32]}
AppendChar(MOD b : String; a : char)
<POP 21e0c-21e0e StackAdj> Δ+6 {}
<MI 21e0e ADDQ.L #0x1,D7> {}
<MI 21e10 CMP.L #0x19,D7> {}
<MI 21e12 BLE 0x21dd6> {}
<POP 21e14-21e1e Naked> Σ0 ↓
<MI 21e14 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<Call 0x21e16 0x103e0> {[4, '(A6-0x8)']}
WriteConsoleStringCrLf(str : String)
<POP 21e1c-21e1e StackAdj> Δ+4 {}
<POP 21e1e-21e26 Epilogue> Σ0
@ 21e26
<LVAR -0x008 @ 4(rw)>
<LVAR -0x023 @>
<LVAR -0x024 @>
<LVAR -0x028 4(w)>
<LVAR -0x02a 2(rw)>
<LVAR -0x02c 4(w)>
<LVAR -0x030 4(w)>
<LVAR -0x034 @ 4(w)>
<POP 21e26-21f72 Body>
<POP 21e26-21e3c Prologue> Σ0 ↓
<POP 21e3c-21e4c RegCacheLoad> Σ0 ↓
<POP 21e4c-21f22 Naked> Σ0 ↓
<MI 21e4c MOVE.L 0x205ee,(A6-0x34)> {}
<MI 21e50 MOVE.L 0x205f2,(A6-0x30)> {}
<MI 21e56 MOVE.L 0x205f6,(A6-0x2c)> {}
<MI 21e5c MOVE.L 0x205fa,(A6-0x28)> {}
<MI 21e62 MOVE.W #0x01,(A6-0x2a)> {}
<MI 21e64 CLR.L D0> {}
<MI 21e66 MOVE.W (A6-0x2a),D0> {}
<MI 21e68 ADDI.L #0x00000300,D0> {}
<POP 0x21e6e LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 21e78 MOVE.W D0,(A6-0x2a)> {}
<Pointer.fp 0x21e7a <LVAR -0x034 @ 4(w)>> Δ-4 {[@@-52]}
<MI 21e7c LEA.L (A6-0x23),A0> {[@@-52]}
<MI 21e80 MOVE.L A0,-(A7)> Δ-4 {[@@-52]|[4, 'A0']}
<MI 21e82 CLR.W -(A7)> Δ-2 {[@@-52]|[4, 'A0']|[#0]}
<Call 0x21e84 0x10204> {[@@-52]|[4, 'A0']|[#0]}
KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
<POP 21e8a-21e8c StackAdj> Δ+8 {[-2-]}
<MI 21e8c CLR.W (A7)> {[-2-]}
<Pointer.fp 0x21e8e <LVAR -0x024 @>> Δ-4 {[-2-]|[@@-36]}
<Call 0x21e92 0x10206> {[-2-]|[@@-36]}
KC03_Wait_Disk_IO(a : W; VAR status : Byte)
<POP 21e98-21e9a StackAdj> Δ+6 {}
<MI 21e9a MOVE.L 0x205ee,(A6-0x34)> {}
<MI 21e9e MOVE.L 0x205f2,(A6-0x30)> {}
<MI 21ea4 MOVE.L 0x205f6,(A6-0x2c)> {}
<MI 21eaa MOVE.L 0x205fa,(A6-0x28)> {}
<MI 21eb0 MOVE.W #0x19,(A6-0x2a)> {}
<MI 21eb2 CLR.L D0> {}
<MI 21eb4 MOVE.W (A6-0x2a),D0> {}
<MI 21eb6 ADDI.L #0x00000300,D0> {}
<POP 0x21ebc LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 21ec6 MOVE.W D0,(A6-0x2a)> {}
<Pointer.fp 0x21ec8 <LVAR -0x034 @ 4(w)>> Δ-4 {[@@-52]}
<MI 21eca LEA.L (A6-0x23),A0> {[@@-52]}
<MI 21ece MOVE.L A0,-(A7)> Δ-4 {[@@-52]|[4, 'A0']}
<MI 21ed0 CLR.W -(A7)> Δ-2 {[@@-52]|[4, 'A0']|[#0]}
<Call 0x21ed2 0x10204> {[@@-52]|[4, 'A0']|[#0]}
KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
<POP 21ed8-21eda StackAdj> Δ+8 {[-2-]}
<MI 21eda CLR.W (A7)> {[-2-]}
<Pointer.fp 0x21edc <LVAR -0x024 @>> Δ-4 {[-2-]|[@@-36]}
<Call 0x21ee0 0x10206> {[-2-]|[@@-36]}
KC03_Wait_Disk_IO(a : W; VAR status : Byte)
<POP 21ee6-21ee7 StackAdj> Δ+6 ↓ {}
<Blob 0x21ee7 [24] @> Δ-24 {[«24""»]}
<POP 21ef8-21efa StackAdj> Δ-4 {[«24""»]|[-4-]}
<Lit 0x21efa 23> {[«24""»]|[$$current sense data is:_]}
<Call 0x21f0c 0x103e0> {[«24""»]|[$$current sense data is:_]}
WriteConsoleStringCrLf(str : String)
<POP 21f12-21f16 StackAdj> Δ+28 {}
<Pointer.fp 0x21f16 <LVAR -0x008 @ 4(rw)>> Δ-4 {[@@-8]}
<Call 0x21f18 0x102b8> {[@@-8]}
NewString(VAR a : String)
<POP 21f1e-21f20 StackAdj> Δ+4 {}
<MI 21f20 MOVEQ.L #0x00,D7> {}
<POP 21f22-21f60 Naked> Σ0 ↓ →0x21f22 ←0x21f22
<POP 21f22-21f24 StackAdj> Δ-4 {[-4-]}
<MI 21f24 MOVE.L (A6-0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x8)']}
<POP 21f26-21f28 StackAdj> Δ-4 {[-4-]|[4, '(A6-0x8)']|[-4-]}
<POP 0x21f28 LimitCheck 0x0 ≤ D7 ≤ 0x19> {[-4-]|[4, '(A6-0x8)']|[-4-]}
<MI 21f2e CLR.L D0> {[-4-]|[4, '(A6-0x8)']|[-4-]}
<MI 21f30 MOVE.B (A6+D7.L-#0x23),D0> {[-4-]|[4, '(A6-0x8)']|[-4-]}
<MI 21f34 MOVE.L D0,-(A7)> Δ-4 {[-4-]|[4, '(A6-0x8)']|[-4-]|[4, 'D0']}
<Const 0x21f36 0x2.4> Δ-4 {[-4-]|[4, '(A6-0x8)']|[-4-]|[4, 'D0']|[##2]}
<Call 0x21f3a 0x102e8> {[-4-]|[4, '(A6-0x8)']|[-4-]|[4, 'D0']|[##2]}
Long2HexString(val : Long; ndig : Long) : String
<POP 21f40-21f42 StackAdj> Δ+8 {[-4-]|[4, '(A6-0x8)']|[-4-]}
<Call 0x21f42 0x102d0> {[-4-]|[4, '(A6-0x8)']|[-4-]}
StringCat2(a, b : String) : String
<POP 21f48-21f4a StackAdj> Δ+8 {[-4-]}
<MI 21f4a MOVE.L (A7)+,(A6-0x8)> Δ+4 {}
<MI 21f4c MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<Const 0x21f4e 0x20.2> Δ-2 {[4, '(A6-0x8)']|[#32]}
<Call 0x21f52 0x102c0> {[4, '(A6-0x8)']|[#32]}
AppendChar(MOD b : String; a : char)
<POP 21f58-21f5a StackAdj> Δ+6 {}
<MI 21f5a ADDQ.L #0x1,D7> {}
<MI 21f5c CMP.L #0x19,D7> {}
<MI 21f5e BLE 0x21f22> {}
<POP 21f60-21f6a Naked> Σ0 ↓
<MI 21f60 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<Call 0x21f62 0x103e0> {[4, '(A6-0x8)']}
WriteConsoleStringCrLf(str : String)
<POP 21f68-21f6a StackAdj> Δ+4 {}
<POP 21f6a-21f72 Epilogue> Σ0
@ 21f72
<LVAR 0x008 4(r)>
<LVAR -0x002 @ 1(r)>
<LVAR -0x006 @>
<LVAR -0x008 @ 1(r)>
<LVAR -0x00c @ 4(r)>
<LVAR -0x012 @ 1(r)>
<LVAR -0x016 @ 4(r)>
<LVAR -0x01e @ 4(r)>
<LVAR -0x020 @ 1(r)>
<LVAR -0x028 @ 4(r)>
<POP 21f72-221b2 Body>
<POP 21f72-21f88 Prologue> Σ0 ↓
<POP 21f88-21f9a RegCacheLoad> Σ0 ↓
<POP 21f9a-22006 Naked> Σ0 Δ-4 ↓
<MI 21f9a MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<Const 0x21f9e 0x1.2> Δ-2 {[4, '(A6+0x8)']|[#1]}
<Pointer.fp 0x21fa0 <LVAR -0x002 @ 1(r)>> Δ-4 {[4, '(A6+0x8)']|[#1]|[@@-2]}
<Pointer.fp 0x21fa4 <LVAR -0x00c @ 4(r)>> Δ-4 {[4, '(A6+0x8)']|[#1]|[@@-2]|[@@-12]}
<Pointer.fp 0x21fa8 <LVAR -0x008 @ 1(r)>> Δ-4 {[4, '(A6+0x8)']|[#1]|[@@-2]|[@@-12]|[@@-8]}
<Call 0x21fac 0x21a02> {[4, '(A6+0x8)']|[#1]|[@@-2]|[@@-12]|[@@-8]}
<POP 21fb0-21fb2 StackAdj> Δ+14 {[4, '(A6+0x8)']}
<POP 21fb2-21fb3 StackAdj> Δ+2 {[-2-]}
<Blob 0x21fb3 [2] @> Δ-2 {[-2-]|[«2""»]}
<MI 21fb6 MOVE.B 0x20493,(A7+0x1)> {[-2-]|[«2""»]}
<MI 21fbc MOVE.B 0x20494,(A7+0x2)> {[-2-]|[«2""»]}
<MI 21fc2 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-2-]|[«2""»]|[4, '(A6+0x8)']}
<POP 21fc6-21fc8 StackAdj> Δ-4 {[-2-]|[«2""»]|[4, '(A6+0x8)']|[-4-]}
<Lit 0x21fc8> {[-2-]|[«2""»]|[4, '(A6+0x8)']|[$$…]}
<Pointer.sp 0x21fc8 8> Δ-4
<Const 0x21fcc 0x1.2> Δ-2
<Const 0x21fce 0x3.2> Δ-2
<Call 0x21fd2 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 21fd8-21fda StackAdj> Δ+8
<POP 21fd8-21fda StackAdj> Δ-2 {[-2-]|[«2""»]|[4, '(A6+0x8)']|[$$…]|[-2-]}
<MI 21fda CLR.B (A7)> {[-2-]|[«2""»]|[4, '(A6+0x8)']|[$$…]|[-2-]}
<Pointer.fp 0x21fdc <LVAR -0x020 @ 1(r)>> Δ-4 {[-2-]|[«2""»]|[4, '(A6+0x8)']|[$$…]|[-2-]|[@@-32]}
<Pointer.fp 0x21fe0 <LVAR -0x006 @>> Δ-4 {[-2-]|[«2""»]|[4, '(A6+0x8)']|[$$…]|[-2-]|[@@-32]|[@@-6]}
<Call 0x21fe4 0x2179a> {[-2-]|[«2""»]|[4, '(A6+0x8)']|[$$…]|[-2-]|[@@-32]|[@@-6]}
<POP 21fe8-21fec StackAdj> Δ+22 {}
<MI 21fec MOVEQ.L #0x00,D7> {}
<Pointer.fp 0x21fee <LVAR -0x016 @ 4(r)>> Δ-4 {[@@-22]}
<Call 0x21ff2 0x10304> {[@@-22]}
GetRtc() : TimeStamp
<MI 21ff8 MOVE.L (A6+0x8),-(A7)> Δ-4 {[@@-22]|[4, '(A6+0x8)']}
<Call 0x21ffc 0x23442> {[@@-22]|[4, '(A6+0x8)']}
<POP 22002-22004 StackAdj> Δ+4 {[@@-22]}
<MI 22004 MOVEQ.L #0x01,D6> {[@@-22]}
<POP 22006-2200a Naked> Σ-4 ↓ →0x2206e ←0x2206a
<MI 22006 CMP.L (A7),D6> {[-4-]}
<MI 22008 BGT 0x2206e> {[-4-]}
<POP 2200a-2202c Naked> Σ-4 ↓
<POP 2200a-2200c StackAdj> Δ-4 {[-8-]}
<MI 2200c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<MI 22010 MOVE.L D6,-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']|[4, 'D6']}
<Call 0x22012 0x23d5e> {[-8-]|[4, '(A6+0x8)']|[4, 'D6']}
<POP 22018-2201a StackAdj> Δ+8 {[-8-]}
<MI 2201a MOVEA.L (A7)+,A4> Δ+4 {[-4-]}
<Const 0x2201c 0x1.2> Δ-2 {[-4-]|[#1]}
<MI 2201e MOVE.L A4,-(A7)> Δ-4 {[-4-]|[#1]|[4, 'A4']}
<Pointer.fp 0x22020 <LVAR -0x028 @ 4(r)>> Δ-4 {[-4-]|[#1]|[4, 'A4']|[@@-40]}
<Call 0x22024 0x10458> {[-4-]|[#1]|[4, 'A4']|[@@-40]}
DirFirst(MOD c : Bool; a : String; VAR b : File)
<POP 2202a-2202c StackAdj> Δ+10 {[-4-]}
<POP 2202c-22034 Naked> Σ-4 ↓ →0x2206a ←0x22058
<MI 2202c MOVEA.L (A6-0x28),A0> {[-4-]}
<MI 22030 CMPA.W #0x01,A0> {[-4-]}
<MI 22032 BEQ 0x2206a> {[-4-]}
<POP 22034-22048 Naked> Σ-4 ↓ →0x22058
<MI 22034 MOVE.B (A6-0x2),-(A7)> Δ-2 {[-4-]|[2, '(A6-0x2)']}
<MI 22038 MOVE.L (A6-0xc),-(A7)> Δ-4 {[-4-]|[2, '(A6-0x2)']|[4, '(A6-0xc)']}
<MI 2203c MOVE.L A0,-(A7)> Δ-4 {[-4-]|[2, '(A6-0x2)']|[4, '(A6-0xc)']|[4, 'A0']}
<Call 0x2203e 0x215b8> {[-4-]|[2, '(A6-0x2)']|[4, '(A6-0xc)']|[4, 'A0']}
<POP 22042-22044 StackAdj> Δ+10 {[-4-]}
<MI 22044 TST.B 0x2733c> {[-4-]}
<MI 22046 BNE 0x22058> {[-4-]}
<POP 22048-22058 Naked> Σ-4 ↓
<Call 0x22048 0x10420> {[-4-]}
FSCALL_10420
<Pointer.fp 0x2204e <LVAR -0x012 @ 1(r)>> Δ-4 {[-4-]|[@@-18]}
<Call 0x22050 0x10408> {[-4-]|[@@-18]}
FSCALL_10408
<POP 22056-22058 StackAdj> Δ+4 {[-4-]}
<POP 22058-2206a Naked> Σ-4 →0x2202c ←0x22034
<MI 22058 ADDQ.L #0x1,D7> {[-4-]}
<MI 2205a CLR.B -(A7)> Δ-2 {[-4-]|[#0]}
<Pointer.fp 0x2205c <LVAR -0x028 @ 4(r)>> Δ-4 {[-4-]|[#0]|[@@-40]}
<Call 0x22060 0x1045c> {[-4-]|[#0]|[@@-40]}
DirNext(MOD a : Bool; VAR b : File)
<POP 22066-22068 StackAdj> Δ+6 {[-4-]}
<MI 22068 BRA 0x2202c> {[-4-]}
<POP 2206a-2206e Naked> Σ-4 ↓ →0x22006 ←0x2202c
<MI 2206a ADDQ.L #0x1,D6> {[-4-]}
<MI 2206c BVC 0x22006> {[-4-]}
<POP 2206e-22074 Naked> Σ-4 Δ+4 ↓ →0x220be ←0x22006
<POP 2206e-22070 StackAdj> Δ+4 {}
<MI 22070 TST.B 0x2733c> {}
<MI 22072 BEQ 0x220be> {}
<POP 22074-220b2 Naked> Σ0 ↓ →0x220be
<Blob 0x22074 [64] @> Δ-64 {[«64""»]}
<POP 22080-22082 StackAdj> Δ-4 {[«64""»]|[-4-]}
<Lit 0x22082 64> {[«64""»]|[$$Writing tape marks and repostioning tape takes about 45 seconds.]}
<Call 0x22094 0x103e0> {[«64""»]|[$$Writing tape marks and repostioning tape takes about 45 seconds.]}
WriteConsoleStringCrLf(str : String)
<POP 2209a-2209e StackAdj> Δ+68 {}
<Call 0x2209e 0x10420> {}
FSCALL_10420
<Pointer.fp 0x220a4 <LVAR -0x012 @ 1(r)>> Δ-4 {[@@-18]}
<Call 0x220a6 0x10408> {[@@-18]}
FSCALL_10408
<POP 220ac-220ae StackAdj> Δ+4 {}
<MI 220ae TST.B (A6-0x12)> {}
<MI 220b0 BEQ 0x220be> {}
<POP 220b2-220be Naked> Σ0 ↓
<Const 0x220b2 0x2.2> Δ-2 {[#2]}
<Pointer.fp 0x220b4 <LVAR -0x012 @ 1(r)>> Δ-4 {[#2]|[@@-18]}
<Call 0x220b6 0x10428> {[#2]|[@@-18]}
FSCALL_10428
<POP 220bc-220be StackAdj> Δ+6 {}
<POP 220be-220d2 Naked> Σ0 ↓ →0x220de ←0x2206e ←0x22074
<Call 0x220be 0x10420> {}
FSCALL_10420
<Pointer.fp 0x220c4 <LVAR -0x012 @ 1(r)>> Δ-4 {[@@-18]}
<Call 0x220c6 0x10408> {[@@-18]}
FSCALL_10408
<POP 220cc-220ce StackAdj> Δ+4 {}
<MI 220ce TST.B (A6-0x12)> {}
<MI 220d0 BEQ 0x220de> {}
<POP 220d2-220de Naked> Σ0 ↓
<Const 0x220d2 0x2.2> Δ-2 {[#2]}
<Pointer.fp 0x220d4 <LVAR -0x012 @ 1(r)>> Δ-4 {[#2]|[@@-18]}
<Call 0x220d6 0x10428> {[#2]|[@@-18]}
FSCALL_10428
<POP 220dc-220de StackAdj> Δ+6 {}
<POP 220de-220e4 Naked> Σ0 ↓ →0x22102 ←0x220be
<MI 220de TST.B (A6-0x8)> {}
<MI 220e2 BEQ 0x22102> {}
<POP 220e4-220f4 Naked> Σ0 ↓ →0x22100
<Const 0x220e4 0x1.2> Δ-2 {[#1]}
<Pointer.fp 0x220e6 <LVAR -0x012 @ 1(r)>> Δ-4 {[#1]|[@@-18]}
<Call 0x220e8 0x10414> {[#1]|[@@-18]}
FSCALL_10414
<POP 220ee-220f0 StackAdj> Δ+6 {}
<MI 220f0 TST.B (A6-0x12)> {}
<MI 220f2 BEQ 0x22100> {}
<POP 220f4-22100 Naked> Σ0 ↓
<Const 0x220f4 0x2.2> Δ-2 {[#2]}
<Pointer.fp 0x220f6 <LVAR -0x012 @ 1(r)>> Δ-4 {[#2]|[@@-18]}
<Call 0x220f8 0x10428> {[#2]|[@@-18]}
FSCALL_10428
<POP 220fe-22100 StackAdj> Δ+6 {}
<POP 22100-22102 Naked> Σ0 →0x22120 ←0x220e4
<MI 22100 BRA 0x22120> {}
<POP 22102-22114 Naked> Σ0 ↓ →0x22120 ←0x220de
<Const 0x22102 0x5.2> Δ-2 {[#5]}
<Pointer.fp 0x22106 <LVAR -0x012 @ 1(r)>> Δ-4 {[#5]|[@@-18]}
<Call 0x22108 0x10414> {[#5]|[@@-18]}
FSCALL_10414
<POP 2210e-22110 StackAdj> Δ+6 {}
<MI 22110 TST.B (A6-0x12)> {}
<MI 22112 BEQ 0x22120> {}
<POP 22114-22120 Naked> Σ0 ↓
<Const 0x22114 0x2.2> Δ-2 {[#2]}
<Pointer.fp 0x22116 <LVAR -0x012 @ 1(r)>> Δ-4 {[#2]|[@@-18]}
<Call 0x22118 0x10428> {[#2]|[@@-18]}
FSCALL_10428
<POP 2211e-22120 StackAdj> Δ+6 {}
<POP 22120-2219c Naked> Σ0 ↓ →0x221aa ←0x22100 ←0x22102
<Pointer.fp 0x22120 <LVAR -0x01e @ 4(r)>> Δ-4 {[@@-30]}
<Call 0x22124 0x10304> {[@@-30]}
GetRtc() : TimeStamp
<MI 2212a MOVE.L (A6-0x16),(A7)> {[4, '(A6-0x16)']}
<MI 2212e MOVE.L (A6-0x1e),-(A7)> Δ-4 {[4, '(A6-0x16)']|[4, '(A6-0x1e)']}
<Call 0x22132 0x20696> {[4, '(A6-0x16)']|[4, '(A6-0x1e)']}
<POP 22136-22138 StackAdj> Δ+8 {}
<Call 0x22138 0x10410> {}
FSCALL_10410
<Blob 0x2213e [10] @> Δ-10 {[«10""»]}
<Blob 0x2214e [14] @> Δ-14 {[«10""»]|[«14""»]}
<POP 2215a-2215c StackAdj> Δ-8 {[«10""»]|[«14""»]|[-8-]}
<Lit 0x2215c 9> {[«10""»]|[«14""»]|[-4-]|[$$total of_]}
<MI 2216c MOVE.L D7,(A7)> {[«10""»]|[«14""»]|[-4-]|[4, 'D7']}
<POP 22166-2216c StackAdj> Δ-8 {[«10""»]|[«14""»]|[-4-]|[4, 'D7']|[-8-]}
<Call 0x2216e 0x102e4> {[«10""»]|[«14""»]|[-4-]|[4, 'D7']|[-8-]}
Long2String(a : Long) : String
<Lit 0x22174 14> {[«10""»]|[«14""»]|[-4-]|[4, 'D7']|[-4-]|[$$ files dumped.]}
<Call 0x22184 0x102d4> {[«10""»]|[«14""»]|[-4-]|[4, 'D7']|[-4-]|[$$ files dumped.]}
StringCat3(a, b, c : String) : String
<POP 2218a-2218e StackAdj> Δ+12 {[«10""»]|[«14""»]|[-4-]}
<Call 0x2218e 0x103e0> {[«10""»]|[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 22194-22198 StackAdj> Δ+28 {}
<MI 22198 TST.B 0x2733c> {}
<MI 2219a BEQ 0x221aa> {}
<POP 2219c-221a2 Naked> Σ0 ↓ →0x221aa
<MI 2219c TST.B (A6-0x20)> {}
<MI 221a0 BEQ 0x221aa> {}
<POP 221a2-221aa Naked> Σ0 ↓
<Call 0x221a2 0x21d2c> {}
<Call 0x221a6 0x21e26> {}
<POP 221aa-221b2 Epilogue> Σ0 ←0x22120 ←0x2219c
@ 221b2
<LVAR 0x008 4(r)>
<LVAR -0x003 @ 1(r)>
<LVAR -0x008 @ 4(r)>
<LVAR -0x00c @ 4(r)>
<LVAR -0x00d @ 1(r)>
<LVAR -0x00e @ 1(r)>
<LVAR -0x012 @ 4(rw)>
<LVAR -0x014 @>
<LVAR -0x019 @ 1(r)>
<LVAR -0x01a @ 1(r)>
<LVAR -0x01e @ 4(r)>
<LVAR -0x020 @ 1(r)>
<LVAR -0x022 @ 1(r)>
<LVAR -0x023 @ 1(r)>
<LVAR -0x024 @ 1(r)>
<LVAR -0x02c @>
<POP 221b2-224b6 Body>
<POP 221b2-221c8 Prologue> Σ0 ↓
<POP 221c8-221dc RegCacheLoad> Σ0 ↓
<POP 221dc-222de Naked> Σ0 ↓ →0x222f6
<MI 221dc MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<MI 221de CLR.B -(A7)> Δ-2 {[4, '(A6+0x8)']|[#0]}
<Pointer.fp 0x221e0 <LVAR -0x020 @ 1(r)>> Δ-4 {[4, '(A6+0x8)']|[#0]|[@@-32]}
<Pointer.fp 0x221e4 <LVAR -0x01e @ 4(r)>> Δ-4 {[4, '(A6+0x8)']|[#0]|[@@-32]|[@@-30]}
<Pointer.fp 0x221e8 <LVAR -0x019 @ 1(r)>> Δ-4 {[4, '(A6+0x8)']|[#0]|[@@-32]|[@@-30]|[@@-25]}
<Call 0x221ec 0x21a02> {[4, '(A6+0x8)']|[#0]|[@@-32]|[@@-30]|[@@-25]}
<POP 221f0-221f2 StackAdj> Δ+16 {[-2-]}
<POP 221f2-221f3 StackAdj> Δ+2 {}
<Blob 0x221f3 [2] @> Δ-2 {[«2""»]}
<MI 221f6 MOVE.L (A6+0x8),-(A7)> Δ-4 {[«2""»]|[4, '(A6+0x8)']}
<POP 221f8-221fa StackAdj> Δ-4 {[«2""»]|[4, '(A6+0x8)']|[-4-]}
<Lit 0x221fa 2> {[«2""»]|[4, '(A6+0x8)']|[$$N ]}
<POP 22204-22206 StackAdj> Δ-2 {[«2""»]|[4, '(A6+0x8)']|[$$N ]|[-2-]}
<MI 22206 CLR.B (A7)> {[«2""»]|[4, '(A6+0x8)']|[$$N ]|[-2-]}
<Pointer.fp 0x22208 <LVAR -0x01a @ 1(r)>> Δ-4 {[«2""»]|[4, '(A6+0x8)']|[$$N ]|[-2-]|[@@-26]}
<Pointer.fp 0x2220c <LVAR -0x02c @>> Δ-4 {[«2""»]|[4, '(A6+0x8)']|[$$N ]|[-2-]|[@@-26]|[@@-44]}
<Call 0x22210 0x2179a> {[«2""»]|[4, '(A6+0x8)']|[$$N ]|[-2-]|[@@-26]|[@@-44]}
<POP 22212-22216 StackAdj> Δ+18 {[«2""»]}
<POP 22216-22217 StackAdj> Δ+2 {}
<Blob 0x22217 [2] @> Δ-2 {[«2""»]}
<MI 2221a MOVE.L (A6+0x8),-(A7)> Δ-4 {[«2""»]|[4, '(A6+0x8)']}
<POP 2221c-2221e StackAdj> Δ-4 {[«2""»]|[4, '(A6+0x8)']|[-4-]}
<Lit 0x2221e 2> {[«2""»]|[4, '(A6+0x8)']|[$$I ]}
<POP 22228-2222a StackAdj> Δ-2 {[«2""»]|[4, '(A6+0x8)']|[$$I ]|[-2-]}
<MI 2222a CLR.B (A7)> {[«2""»]|[4, '(A6+0x8)']|[$$I ]|[-2-]}
<Pointer.fp 0x2222c <LVAR -0x00e @ 1(r)>> Δ-4 {[«2""»]|[4, '(A6+0x8)']|[$$I ]|[-2-]|[@@-14]}
<Pointer.fp 0x22230 <LVAR -0x02c @>> Δ-4 {[«2""»]|[4, '(A6+0x8)']|[$$I ]|[-2-]|[@@-14]|[@@-44]}
<Call 0x22234 0x2179a> {[«2""»]|[4, '(A6+0x8)']|[$$I ]|[-2-]|[@@-14]|[@@-44]}
<POP 22236-2223a StackAdj> Δ+18 {[«2""»]}
<POP 2223a-2223b StackAdj> Δ+2 {}
<Blob 0x2223b [2] @> Δ-2 {[«2""»]}
<MI 2223e MOVE.L (A6+0x8),-(A7)> Δ-4 {[«2""»]|[4, '(A6+0x8)']}
<POP 22240-22242 StackAdj> Δ-4 {[«2""»]|[4, '(A6+0x8)']|[-4-]}
<Lit 0x22242 2> {[«2""»]|[4, '(A6+0x8)']|[$$Q ]}
<POP 2224c-2224e StackAdj> Δ-2 {[«2""»]|[4, '(A6+0x8)']|[$$Q ]|[-2-]}
<MI 2224e CLR.B (A7)> {[«2""»]|[4, '(A6+0x8)']|[$$Q ]|[-2-]}
<Pointer.fp 0x22250 <LVAR -0x00d @ 1(r)>> Δ-4 {[«2""»]|[4, '(A6+0x8)']|[$$Q ]|[-2-]|[@@-13]}
<Pointer.fp 0x22254 <LVAR -0x02c @>> Δ-4 {[«2""»]|[4, '(A6+0x8)']|[$$Q ]|[-2-]|[@@-13]|[@@-44]}
<Call 0x22258 0x2179a> {[«2""»]|[4, '(A6+0x8)']|[$$Q ]|[-2-]|[@@-13]|[@@-44]}
<POP 2225a-2225c StackAdj> Δ+16 {[«2""»]|[-2-]}
<POP 2225c-2225d StackAdj> Δ+4 {}
<Blob 0x2225d [4] @> Δ-4 {[«4""»]}
<MI 22260 MOVE.L (A6+0x8),-(A7)> Δ-4 {[«4""»]|[4, '(A6+0x8)']}
<POP 22262-22264 StackAdj> Δ-4 {[«4""»]|[4, '(A6+0x8)']|[-4-]}
<Lit 0x22264 4> {[«4""»]|[4, '(A6+0x8)']|[$$SAL ]}
<POP 22270-22272 StackAdj> Δ-2 {[«4""»]|[4, '(A6+0x8)']|[$$SAL ]|[-2-]}
<MI 22272 CLR.B (A7)> {[«4""»]|[4, '(A6+0x8)']|[$$SAL ]|[-2-]}
<Pointer.fp 0x22274 <LVAR -0x003 @ 1(r)>> Δ-4 {[«4""»]|[4, '(A6+0x8)']|[$$SAL ]|[-2-]|[@@-3]}
<Pointer.fp 0x22278 <LVAR -0x02c @>> Δ-4 {[«4""»]|[4, '(A6+0x8)']|[$$SAL ]|[-2-]|[@@-3]|[@@-44]}
<Call 0x2227c 0x2179a> {[«4""»]|[4, '(A6+0x8)']|[$$SAL ]|[-2-]|[@@-3]|[@@-44]}
<POP 2227e-22282 StackAdj> Δ+20 {[-2-]}
<POP 22282-22283 StackAdj> Δ+2 {}
<Blob 0x22283 [2] @> Δ-2 {[«2""»]}
<MI 22286 MOVE.L (A6+0x8),-(A7)> Δ-4 {[«2""»]|[4, '(A6+0x8)']}
<POP 22288-2228a StackAdj> Δ-4 {[«2""»]|[4, '(A6+0x8)']|[-4-]}
<Lit 0x2228a 2> {[«2""»]|[4, '(A6+0x8)']|[$$F ]}
<POP 22294-22296 StackAdj> Δ-2 {[«2""»]|[4, '(A6+0x8)']|[$$F ]|[-2-]}
<POP 22296-22297 StackAdj> Δ+2 {[«2""»]|[4, '(A6+0x8)']|[$$F ]}
<Const 0x22297 0x1.2> Δ-2 {[«2""»]|[4, '(A6+0x8)']|[$$F ]|[#1]}
<Pointer.fp 0x22298 <LVAR -0x014 @>> Δ-4 {[«2""»]|[4, '(A6+0x8)']|[$$F ]|[#1]|[@@-20]}
<Pointer.fp 0x2229c <LVAR -0x012 @ 4(rw)>> Δ-4 {[«2""»]|[4, '(A6+0x8)']|[$$F ]|[#1]|[@@-20]|[@@-18]}
<Call 0x222a0 0x2179a> {[«2""»]|[4, '(A6+0x8)']|[$$F ]|[#1]|[@@-20]|[@@-18]}
<POP 222a2-222a4 StackAdj> Δ+16 {[«2""»]|[-2-]}
<POP 222a4-222a5 StackAdj> Δ+2 {[«2""»]}
<Blob 0x222a5 [2] @> Δ-2 {[«2""»]|[«2""»]}
<MI 222a8 MOVE.B 0x204bb,(A7+0x1)> {[«2""»]|[«2""»]}
<MI 222ae MOVE.B 0x204bc,(A7+0x2)> {[«2""»]|[«2""»]}
<MI 222b4 MOVE.L (A6+0x8),-(A7)> Δ-4 {[«2""»]|[«2""»]|[4, '(A6+0x8)']}
<POP 222b6-222b8 StackAdj> Δ-4 {[«2""»]|[«2""»]|[4, '(A6+0x8)']|[-4-]}
<Lit 0x222b8 3> {[«2""»]|[«2""»]|[4, '(A6+0x8)']|[$$DFF]}
<POP 222c4-222c6 StackAdj> Δ-2 {[«2""»]|[«2""»]|[4, '(A6+0x8)']|[$$DFF]|[-2-]}
<MI 222c6 CLR.B (A7)> {[«2""»]|[«2""»]|[4, '(A6+0x8)']|[$$DFF]|[-2-]}
<Pointer.fp 0x222c8 <LVAR -0x024 @ 1(r)>> Δ-4 {[«2""»]|[«2""»]|[4, '(A6+0x8)']|[$$DFF]|[-2-]|[@@-36]}
<Pointer.fp 0x222cc <LVAR -0x02c @>> Δ-4 {[«2""»]|[«2""»]|[4, '(A6+0x8)']|[$$DFF]|[-2-]|[@@-36]|[@@-44]}
<Call 0x222d0 0x2179a> {[«2""»]|[«2""»]|[4, '(A6+0x8)']|[$$DFF]|[-2-]|[@@-36]|[@@-44]}
<POP 222d2-222d6 StackAdj> Δ+22 {}
<MI 222d6 MOVEA.L (A6-0x12),A0> {}
<MI 222da CMPA.W #0x01,A0> {}
<MI 222dc BNE 0x222f6> {}
<POP 222de-222f6 Naked> Σ0 ↓
<Blob 0x222de [2] @> Δ-2 {[«2""»]}
<POP 222e2-222e4 StackAdj> Δ-4 {[«2""»]|[-4-]}
<Lit 0x222e4 2> {[«2""»]|[$$**]}
<MI 222f0 MOVE.L (A7)+,(A6-0x12)> Δ+4 {[«2""»]}
<POP 222f4-222f6 StackAdj> Δ+2 {}
<POP 222f6-22318 Naked> Σ0 Δ-4 ↓ ←0x221dc
<MI 222f6 MOVEQ.L #-0x01,D7> {}
<MI 222f8 CLR.L 0x27338> {}
<Pointer.fp 0x222fe <LVAR -0x00c @ 4(r)>> Δ-4 {[@@-12]}
<Call 0x22302 0x10304> {[@@-12]}
GetRtc() : TimeStamp
<POP 22308-2230a StackAdj> Δ+4 {}
<MI 2230a MOVEQ.L #0x00,D6> {}
<MI 2230c MOVEA.L (A6-0x12),A0> {}
<MI 22310 MOVE.W (A0),D0> {}
<MI 22312 EXTW.L D0> {}
<MI 22314 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 22316 MOVEQ.L #0x01,D5> {[4, 'D0']}
<POP 22318-2231c Naked> Σ-4 ↓ →0x22346 ←0x22340
<MI 22318 CMP.L (A7),D5> {[-4-]}
<MI 2231a BGT 0x22346> {[-4-]}
<POP 2231c-22322 Naked> Σ-4 ↓ →0x2233e
<MI 2231c MOVEQ.L #0x00,D0> {[-4-]}
<MI 2231e TST.B D6> {[-4-]}
<MI 22320 BNE 0x2233e> {[-4-]}
<POP 22322-2233e Naked> Σ-4 ↓ →0x22340
<MI 22322 MOVEA.L (A6-0x12),A0> {[-4-]}
<MI 22326 MOVE.L D5,D1> {[-4-]}
<MI 22328 SUBQ.L #0x1,D1> {[-4-]}
<POP 0x2232a LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-4-]}
<MI 22334 MOVE.B (A0+D1.L+#0x2),D1> {[-4-]}
<MI 22338 CMPI.B #0x2a,D1> {[-4-]}
<MI 2233c BNE 0x22340> {[-4-]}
<POP 2233e-22340 Naked> Σ-4 ↓ ←0x2231c
<MI 2233e ADDQ.B #0x1,D0> {[-4-]}
<POP 22340-22346 Naked> Σ-4 ↓ →0x22318 ←0x22322
<MI 22340 MOVE.B D0,D6> {[-4-]}
<MI 22342 ADDQ.L #0x1,D5> {[-4-]}
<MI 22344 BVC 0x22318> {[-4-]}
<POP 22346-22348 Naked> Σ-4 Δ+4 ↓ ←0x22318
<POP 22346-22348 StackAdj> Δ+4 {}
<POP 22348-22378 Naked> Σ0 ↓ →0x22386 ←0x22378 ←0x22380
<MI 22348 MOVE.B (A6-0x20),-(A7)> Δ-2 {[2, '(A6-0x20)']}
<MI 2234c MOVE.B (A6-0x1a),-(A7)> Δ-2 {[2, '(A6-0x20)']|[2, '(A6-0x1a)']}
<MI 22350 NEG.B (A7)> {[2, '(A6-0x20)']|[2, '(A6-0x1a)']}
<MI 22352 ADDQ.B #0x1,(A7)> {[2, '(A6-0x20)']|[-2-]}
<MI 22354 MOVE.B (A6-0xe),-(A7)> Δ-2 {[2, '(A6-0x20)']|[-2-]|[2, '(A6-0xe)']}
<MI 22358 MOVE.B (A6-0xd),-(A7)> Δ-2 {[2, '(A6-0x20)']|[-2-]|[2, '(A6-0xe)']|[2, '(A6-0xd)']}
<MI 2235c MOVE.L (A6-0x1e),-(A7)> Δ-4 {[2, '(A6-0x20)']|[-2-]|[2, '(A6-0xe)']|[2, '(A6-0xd)']|[4, '(A6-0x1e)']}
<Pointer.fp 0x22360 <LVAR -0x012 @ 4(rw)>> Δ-4 {[2, '(A6-0x20)']|[-2-]|[2, '(A6-0xe)']|[2, '(A6-0xd)']|[4, '(A6-0x1e)']|[@@-18]}
<Pointer.fp 0x22364 <LVAR -0x023 @ 1(r)>> Δ-4 {[2, '(A6-0x20)']|[-2-]|[2, '(A6-0xe)']|[2, '(A6-0xd)']|[4, '(A6-0x1e)']|[@@-18]|[@@-35]}
<Call 0x22368 0x20762> {[2, '(A6-0x20)']|[-2-]|[2, '(A6-0xe)']|[2, '(A6-0xd)']|[4, '(A6-0x1e)']|[@@-18]|[@@-35]}
<POP 2236c-22370 StackAdj> Δ+20 {}
<MI 22370 ADDQ.L #0x1,D7> {}
<MI 22372 TST.B (A6-0x23)> {}
<MI 22376 BNE 0x22386> {}
<POP 22378-22380 Naked> Σ0 ↓ →0x22348
<MI 22378 TST.B 0x2733d> {}
<MI 2237e BEQ 0x22348> {}
<POP 22380-22386 Naked> Σ0 ↓ →0x22348
<MI 22380 TST.B (A6-0x3)> {}
<MI 22384 BEQ 0x22348> {}
<POP 22386-223a6 Naked> Σ0 ↓ →0x223b4 ←0x22348
<Pointer.fp 0x22386 <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-8]}
<Call 0x2238a 0x10304> {[@@-8]}
GetRtc() : TimeStamp
<MI 22390 MOVE.L (A6-0xc),(A7)> {[4, '(A6-0xc)']}
<MI 22394 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0xc)']|[4, '(A6-0x8)']}
<Call 0x22398 0x20696> {[4, '(A6-0xc)']|[4, '(A6-0x8)']}
<POP 2239c-2239e StackAdj> Δ+8 {}
<MI 2239e TST.B 0x2733c> {}
<MI 223a4 BEQ 0x223b4> {}
<POP 223a6-223ac Naked> Σ0 ↓ →0x223b4
<MI 223a6 TST.B (A6-0x24)> {}
<MI 223aa BEQ 0x223b4> {}
<POP 223ac-223b4 Naked> Σ0 ↓
<Call 0x223ac 0x21d2c> {}
<Call 0x223b0 0x21e26> {}
<POP 223b4-2246c Naked> Σ0 ↓ →0x22490 ←0x22386 ←0x223a6
<Blob 0x223b4 [10] @> Δ-10 {[«10""»]}
<Blob 0x223c6 [20] @> Δ-20 {[«10""»]|[«20""»]}
<POP 223d8-223da StackAdj> Δ-8 {[«10""»]|[«20""»]|[-8-]}
<Lit 0x223da 9> {[«10""»]|[«20""»]|[-4-]|[$$Total of_]}
<MI 223e6 MOVE.L D7,(A7)> {[«10""»]|[«20""»]|[-4-]|[4, 'D7']}
<POP 223e4-223e6 StackAdj> Δ-8 {[«10""»]|[«20""»]|[-4-]|[4, 'D7']|[-8-]}
<Call 0x223e8 0x102e4> {[«10""»]|[«20""»]|[-4-]|[4, 'D7']|[-8-]}
Long2String(a : Long) : String
<Lit 0x223ee 19> {[«10""»]|[«20""»]|[-4-]|[4, 'D7']|[-4-]|[$$ files on the tape.]}
<Call 0x223fc 0x102d4> {[«10""»]|[«20""»]|[-4-]|[4, 'D7']|[-4-]|[$$ files on the tape.]}
StringCat3(a, b, c : String) : String
<POP 22402-22406 StackAdj> Δ+12 {[«10""»]|[«20""»]|[-4-]}
<Call 0x22406 0x103e0> {[«10""»]|[«20""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 2240c-2240d StackAdj> Δ+34 ↓ {}
<Blob 0x2240d [10] @> Δ-10 {[«10""»]}
<Blob 0x2241e [24] @> Δ-24 {[«10""»]|[«24""»]}
<POP 2242a-2242c StackAdj> Δ-8 {[«10""»]|[«24""»]|[-8-]}
<Lit 0x2242c 9> {[«10""»]|[«24""»]|[-4-]|[$$Total of_]}
<POP 22438-22439 StackAdj> Δ-4 {[«10""»]|[«24""»]|[-4-]|[$$Total of_]|[-4-]}
<Blob 0x22439 [4] 0x27338> Δ-4 {[«10""»]|[«24""»]|[-4-]|[$$Total of_]|[-4-]|[«4»]}
<Call 0x2243e 0x102e4> {[«10""»]|[«24""»]|[-4-]|[$$Total of_]|[-4-]|[«4»]}
Long2String(a : Long) : String
<Lit 0x22444 24> {[«10""»]|[«24""»]|[-4-]|[$$Total of_]|[-4-]|[$$ files loaded onto disk.]}
<Call 0x22452 0x102d4> {[«10""»]|[«24""»]|[-4-]|[$$Total of_]|[-4-]|[$$ files loaded onto disk.]}
StringCat3(a, b, c : String) : String
<POP 22458-2245c StackAdj> Δ+12 {[«10""»]|[«24""»]|[-4-]}
<Call 0x2245c 0x103e0> {[«10""»]|[«24""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 22462-22466 StackAdj> Δ+38 {}
<MI 22466 TST.B (A6-0x19)> {}
<MI 2246a BEQ 0x22490> {}
<POP 2246c-22480 Naked> Σ0 ↓ →0x2248e
<Const 0x2246c 0x1.2> Δ-2 {[#1]}
<Pointer.fp 0x2246e <LVAR -0x022 @ 1(r)>> Δ-4 {[#1]|[@@-34]}
<Call 0x22472 0x10414> {[#1]|[@@-34]}
FSCALL_10414
<POP 22478-2247a StackAdj> Δ+6 {}
<MI 2247a TST.B (A6-0x22)> {}
<MI 2247e BEQ 0x2248e> {}
<POP 22480-2248e Naked> Σ0 ↓
<Const 0x22480 0x2.2> Δ-2 {[#2]}
<Pointer.fp 0x22482 <LVAR -0x022 @ 1(r)>> Δ-4 {[#2]|[@@-34]}
<Call 0x22486 0x10428> {[#2]|[@@-34]}
FSCALL_10428
<POP 2248c-2248e StackAdj> Δ+6 {}
<POP 2248e-22490 Naked> Σ0 →0x224a8 ←0x2246c
<MI 2248e BRA 0x224a8> {}
<POP 22490-22498 Naked> Σ0 ↓ →0x224a8 ←0x223b4
<MI 22490 TST.B 0x2733c> {}
<MI 22496 BNE 0x224a8> {}
<POP 22498-224a8 Naked> Σ0 ↓
<Const 0x22498 0x5.2> Δ-2 {[#5]}
<Pointer.fp 0x2249c <LVAR -0x022 @ 1(r)>> Δ-4 {[#5]|[@@-34]}
<Call 0x224a0 0x10414> {[#5]|[@@-34]}
FSCALL_10414
<POP 224a6-224a8 StackAdj> Δ+6 {}
<POP 224a8-224ae Naked> Σ0 ↓ ←0x2248e ←0x22490
<Call 0x224a8 0x10410> {}
FSCALL_10410
<POP 224ae-224b6 Epilogue> Σ0
@ 224b6
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 1(r)>
<LVAR -0x008 @>
<LVAR -0x00a @ 1(r)>
<LVAR -0x00e @ 4(r)>
<LVAR -0x010 @ 1(r)>
<LVAR -0x012 @ 1(r)>
<LVAR -0x016 @ 4(r)>
<LVAR -0x018 @>
<LVAR -0x01d @ 1(r)>
<LVAR -0x01e @ 1(r)>
<LVAR -0x024 @ 1(r)>
<LVAR -0x028 @ 4(r)>
<LVAR -0x02a @ 1(r)>
<LVAR -0x030 @ 1(r)>
<LVAR -0x034 @ 4(rw)>
<POP 224b6-22786 Body>
<POP 224b6-224cc Prologue> Σ0 ↓
<POP 224cc-224e4 RegCacheLoad> Σ0 ↓
<POP 224e4-225a4 Naked> Σ0 ↓ →0x225bc
<MI 224e4 MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<MI 224e6 CLR.B -(A7)> Δ-2 {[4, '(A6+0x8)']|[#0]}
<Pointer.fp 0x224e8 <LVAR -0x004 @ 1(r)>> Δ-4 {[4, '(A6+0x8)']|[#0]|[@@-4]}
<Pointer.fp 0x224ec <LVAR -0x00e @ 4(r)>> Δ-4 {[4, '(A6+0x8)']|[#0]|[@@-4]|[@@-14]}
<Pointer.fp 0x224f0 <LVAR -0x00a @ 1(r)>> Δ-4 {[4, '(A6+0x8)']|[#0]|[@@-4]|[@@-14]|[@@-10]}
<Call 0x224f4 0x21a02> {[4, '(A6+0x8)']|[#0]|[@@-4]|[@@-14]|[@@-10]}
<POP 224f8-224fc StackAdj> Δ+14 {[4, '(A6+0x8)']}
<POP 224fc-224fd StackAdj> Δ+2 {[-2-]}
<Blob 0x224fd [2] @> Δ-2 {[-2-]|[«2""»]}
<MI 22500 MOVE.B 0x20501,(A7+0x1)> {[-2-]|[«2""»]}
<MI 22506 MOVE.B 0x20502,(A7+0x2)> {[-2-]|[«2""»]}
<MI 2250c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-2-]|[«2""»]|[4, '(A6+0x8)']}
<POP 2250e-22510 StackAdj> Δ-4 {[-2-]|[«2""»]|[4, '(A6+0x8)']|[-4-]}
<Lit 0x22510> {[-2-]|[«2""»]|[4, '(A6+0x8)']|[$$…]}
<Pointer.sp 0x22510 8> Δ-4
<Const 0x22514 0x1.2> Δ-2
<Const 0x22516 0x3.2> Δ-2
<Call 0x2251a 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 2251c-2251e StackAdj> Δ+8
<POP 2251c-2251e StackAdj> Δ-2 {[-2-]|[«2""»]|[4, '(A6+0x8)']|[$$…]|[-2-]}
<MI 2251e CLR.B (A7)> {[-2-]|[«2""»]|[4, '(A6+0x8)']|[$$…]|[-2-]}
<Pointer.fp 0x22520 <LVAR -0x030 @ 1(r)>> Δ-4 {[-2-]|[«2""»]|[4, '(A6+0x8)']|[$$…]|[-2-]|[@@-48]}
<Pointer.fp 0x22524 <LVAR -0x008 @>> Δ-4 {[-2-]|[«2""»]|[4, '(A6+0x8)']|[$$…]|[-2-]|[@@-48]|[@@-8]}
<Call 0x22528 0x2179a> {[-2-]|[«2""»]|[4, '(A6+0x8)']|[$$…]|[-2-]|[@@-48]|[@@-8]}
<POP 2252a-2252e StackAdj> Δ+20 {[-2-]}
<POP 2252e-2252f StackAdj> Δ+2 {}
<Blob 0x2252f [2] @> Δ-2 {[«2""»]}
<MI 22532 MOVE.L (A6+0x8),-(A7)> Δ-4 {[«2""»]|[4, '(A6+0x8)']}
<POP 22534-22536 StackAdj> Δ-4 {[«2""»]|[4, '(A6+0x8)']|[-4-]}
<Lit 0x22536 2> {[«2""»]|[4, '(A6+0x8)']|[$$I ]}
<POP 22540-22542 StackAdj> Δ-2 {[«2""»]|[4, '(A6+0x8)']|[$$I ]|[-2-]}
<MI 22542 CLR.B (A7)> {[«2""»]|[4, '(A6+0x8)']|[$$I ]|[-2-]}
<Pointer.fp 0x22544 <LVAR -0x01e @ 1(r)>> Δ-4 {[«2""»]|[4, '(A6+0x8)']|[$$I ]|[-2-]|[@@-30]}
<Pointer.fp 0x22548 <LVAR -0x008 @>> Δ-4 {[«2""»]|[4, '(A6+0x8)']|[$$I ]|[-2-]|[@@-30]|[@@-8]}
<Call 0x2254c 0x2179a> {[«2""»]|[4, '(A6+0x8)']|[$$I ]|[-2-]|[@@-30]|[@@-8]}
<POP 2254e-22552 StackAdj> Δ+18 {[«2""»]}
<POP 22552-22553 StackAdj> Δ+2 {}
<Blob 0x22553 [2] @> Δ-2 {[«2""»]}
<MI 22556 MOVE.L (A6+0x8),-(A7)> Δ-4 {[«2""»]|[4, '(A6+0x8)']}
<POP 22558-2255a StackAdj> Δ-4 {[«2""»]|[4, '(A6+0x8)']|[-4-]}
<Lit 0x2255a 2> {[«2""»]|[4, '(A6+0x8)']|[$$F ]}
<POP 22564-22566 StackAdj> Δ-2 {[«2""»]|[4, '(A6+0x8)']|[$$F ]|[-2-]}
<POP 22566-22567 StackAdj> Δ+2 {[«2""»]|[4, '(A6+0x8)']|[$$F ]}
<Const 0x22567 0x1.2> Δ-2 {[«2""»]|[4, '(A6+0x8)']|[$$F ]|[#1]}
<Pointer.fp 0x22568 <LVAR -0x018 @>> Δ-4 {[«2""»]|[4, '(A6+0x8)']|[$$F ]|[#1]|[@@-24]}
<Pointer.fp 0x2256c <LVAR -0x034 @ 4(rw)>> Δ-4 {[«2""»]|[4, '(A6+0x8)']|[$$F ]|[#1]|[@@-24]|[@@-52]}
<Call 0x22570 0x2179a> {[«2""»]|[4, '(A6+0x8)']|[$$F ]|[#1]|[@@-24]|[@@-52]}
<POP 22572-22576 StackAdj> Δ+16 {[«2""»]|[-2-]}
<POP 22576-22577 StackAdj> Δ+4 {}
<Blob 0x22577 [4] @> Δ-4 {[«4""»]}
<MI 2257a MOVE.L (A6+0x8),-(A7)> Δ-4 {[«4""»]|[4, '(A6+0x8)']}
<POP 2257c-2257e StackAdj> Δ-4 {[«4""»]|[4, '(A6+0x8)']|[-4-]}
<Lit 0x2257e 4> {[«4""»]|[4, '(A6+0x8)']|[$$SOE ]}
<POP 2258a-2258c StackAdj> Δ-2 {[«4""»]|[4, '(A6+0x8)']|[$$SOE ]|[-2-]}
<MI 2258c CLR.B (A7)> {[«4""»]|[4, '(A6+0x8)']|[$$SOE ]|[-2-]}
<Pointer.fp 0x2258e <LVAR -0x010 @ 1(r)>> Δ-4 {[«4""»]|[4, '(A6+0x8)']|[$$SOE ]|[-2-]|[@@-16]}
<Pointer.fp 0x22592 <LVAR -0x008 @>> Δ-4 {[«4""»]|[4, '(A6+0x8)']|[$$SOE ]|[-2-]|[@@-16]|[@@-8]}
<Call 0x22596 0x2179a> {[«4""»]|[4, '(A6+0x8)']|[$$SOE ]|[-2-]|[@@-16]|[@@-8]}
<POP 22598-2259c StackAdj> Δ+22 {}
<MI 2259c MOVEA.L (A6-0x34),A0> {}
<MI 225a0 CMPA.W #0x01,A0> {}
<MI 225a2 BNE 0x225bc> {}
<POP 225a4-225bc Naked> Σ0 ↓
<Blob 0x225a4 [2] @> Δ-2 {[«2""»]}
<POP 225a8-225aa StackAdj> Δ-4 {[«2""»]|[-4-]}
<Lit 0x225aa 2> {[«2""»]|[$$**]}
<MI 225b6 MOVE.L (A7)+,(A6-0x34)> Δ+4 {[«2""»]}
<POP 225ba-225bc StackAdj> Δ+2 {}
<POP 225bc-225d2 Naked> Σ0 ↓ ←0x224e4
<MI 225bc MOVEQ.L #0x00,D7> {}
<MI 225be CLR.L 0x27338> {}
<MI 225c4 MOVEQ.L #0x00,D6> {}
<Pointer.fp 0x225c6 <LVAR -0x016 @ 4(r)>> Δ-4 {[@@-22]}
<Call 0x225ca 0x10304> {[@@-22]}
GetRtc() : TimeStamp
<POP 225d0-225d2 StackAdj> Δ+4 {}
<POP 225d2-225fe Naked> Σ0 ↓ →0x2260e ←0x2260e
<MI 225d2 MOVE.B (A6-0x4),-(A7)> Δ-2 {[2, '(A6-0x4)']}
<MI 225d6 MOVE.B (A6-0x1e),-(A7)> Δ-2 {[2, '(A6-0x4)']|[2, '(A6-0x1e)']}
<MI 225da MOVE.L (A6-0xe),-(A7)> Δ-4 {[2, '(A6-0x4)']|[2, '(A6-0x1e)']|[4, '(A6-0xe)']}
<MI 225de MOVE.B (A6-0x10),-(A7)> Δ-2 {[2, '(A6-0x4)']|[2, '(A6-0x1e)']|[4, '(A6-0xe)']|[2, '(A6-0x10)']}
<Pointer.fp 0x225e2 <LVAR -0x034 @ 4(rw)>> Δ-4 {[2, '(A6-0x4)']|[2, '(A6-0x1e)']|[4, '(A6-0xe)']|[2, '(A6-0x10)']|[@@-52]}
<Pointer.fp 0x225e6 <LVAR -0x02a @ 1(r)>> Δ-4 {[2, '(A6-0x4)']|[2, '(A6-0x1e)']|[4, '(A6-0xe)']|[2, '(A6-0x10)']|[@@-52]|[@@-42]}
<Pointer.fp 0x225ea <LVAR -0x024 @ 1(r)>> Δ-4 {[2, '(A6-0x4)']|[2, '(A6-0x1e)']|[4, '(A6-0xe)']|[2, '(A6-0x10)']|[@@-52]|[@@-42]|[@@-36]}
<Pointer.fp 0x225ee <LVAR -0x01d @ 1(r)>> Δ-4 {[2, '(A6-0x4)']|[2, '(A6-0x1e)']|[4, '(A6-0xe)']|[2, '(A6-0x10)']|[@@-52]|[@@-42]|[@@-36]|[@@-29]}
<Call 0x225f2 0x20db6> {[2, '(A6-0x4)']|[2, '(A6-0x1e)']|[4, '(A6-0xe)']|[2, '(A6-0x10)']|[@@-52]|[@@-42]|[@@-36]|[@@-29]}
<POP 225f6-225f8 StackAdj> Δ+26 {}
<MI 225f8 TST.B (A6-0x2a)> {}
<MI 225fc BNE 0x2260e> {}
<POP 225fe-22604 Naked> Σ0 ↓ →0x22606
<MI 225fe TST.B (A6-0x24)> {}
<MI 22602 BEQ 0x22606> {}
<POP 22604-22606 Naked> Σ0 ↓
<MI 22604 ADDQ.L #0x1,D7> {}
<POP 22606-2260c Naked> Σ0 ↓ →0x2260e ←0x225fe
<MI 22606 TST.B (A6-0x1d)> {}
<MI 2260a BEQ 0x2260e> {}
<POP 2260c-2260e Naked> Σ0 ↓
<MI 2260c ADDQ.L #0x1,D6> {}
<POP 2260e-22614 Naked> Σ0 ↓ →0x225d2 ←0x225d2 ←0x22606
<MI 2260e TST.B (A6-0x2a)> {}
<MI 22612 BEQ 0x225d2> {}
<POP 22614-22634 Naked> Σ0 ↓ →0x22642
<Pointer.fp 0x22614 <LVAR -0x028 @ 4(r)>> Δ-4 {[@@-40]}
<Call 0x22618 0x10304> {[@@-40]}
GetRtc() : TimeStamp
<MI 2261e MOVE.L (A6-0x16),(A7)> {[4, '(A6-0x16)']}
<MI 22622 MOVE.L (A6-0x28),-(A7)> Δ-4 {[4, '(A6-0x16)']|[4, '(A6-0x28)']}
<Call 0x22626 0x20696> {[4, '(A6-0x16)']|[4, '(A6-0x28)']}
<POP 2262a-2262c StackAdj> Δ+8 {}
<MI 2262c TST.B 0x2733c> {}
<MI 22632 BEQ 0x22642> {}
<POP 22634-2263a Naked> Σ0 ↓ →0x22642
<MI 22634 TST.B (A6-0x30)> {}
<MI 22638 BEQ 0x22642> {}
<POP 2263a-22642 Naked> Σ0 ↓
<Call 0x2263a 0x21d2c> {}
<Call 0x2263e 0x21e26> {}
<POP 22642-2273c Naked> Σ0 ↓ →0x22760 ←0x22614 ←0x22634
<Blob 0x22642 [12] @> Δ-12 {[«12""»]}
<Blob 0x22652 [26] @> Δ-26 {[«12""»]|[«26""»]}
<POP 22662-22664 StackAdj> Δ-8 {[«12""»]|[«26""»]|[-8-]}
<Lit 0x22664 11> {[«12""»]|[«26""»]|[-4-]|[$$A total of_]}
<POP 2266e-2266f StackAdj> Δ-4 {[«12""»]|[«26""»]|[-4-]|[$$A total of_]|[-4-]}
<Blob 0x2266f [4] 0x27338> Δ-4 {[«12""»]|[«26""»]|[-4-]|[$$A total of_]|[-4-]|[«4»]}
<Call 0x22674 0x102e4> {[«12""»]|[«26""»]|[-4-]|[$$A total of_]|[-4-]|[«4»]}
Long2String(a : Long) : String
<Lit 0x2267a 25> {[«12""»]|[«26""»]|[-4-]|[$$A total of_]|[-4-]|[$$ file(s) are on the tape.]}
<Call 0x22688 0x102d4> {[«12""»]|[«26""»]|[-4-]|[$$A total of_]|[-4-]|[$$ file(s) are on the tape.]}
StringCat3(a, b, c : String) : String
<POP 2268e-22690 StackAdj> Δ+12 {[«12""»]|[«26""»]|[-4-]}
<Call 0x22690 0x103e0> {[«12""»]|[«26""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 22696-22697 StackAdj> Δ+42 ↓ {}
<Blob 0x22697 [12] @> Δ-12 {[«12""»]}
<Blob 0x226a8 [46] @> Δ-46 {[«12""»]|[«46""»]}
<POP 226b4-226b6 StackAdj> Δ-8 {[«12""»]|[«46""»]|[-8-]}
<Lit 0x226b6 11> {[«12""»]|[«46""»]|[-4-]|[$$A total of_]}
<MI 226c0 MOVE.L D7,(A7)> {[«12""»]|[«46""»]|[-4-]|[4, 'D7']}
<POP 226be-226c0 StackAdj> Δ-8 {[«12""»]|[«46""»]|[-4-]|[4, 'D7']|[-8-]}
<Call 0x226c2 0x102e4> {[«12""»]|[«46""»]|[-4-]|[4, 'D7']|[-8-]}
Long2String(a : Long) : String
<Lit 0x226c8 46> {[«12""»]|[«46""»]|[-4-]|[4, 'D7']|[-4-]|[$$ cooresponding file(s) were found on the disk,]}
<Call 0x226d6 0x102d4> {[«12""»]|[«46""»]|[-4-]|[4, 'D7']|[-4-]|[$$ cooresponding file(s) were found on the disk,]}
StringCat3(a, b, c : String) : String
<POP 226dc-226de StackAdj> Δ+12 {[«12""»]|[«46""»]|[-4-]}
<Call 0x226de 0x103e0> {[«12""»]|[«46""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 226e4-226e5 StackAdj> Δ+62 ↓ {}
<Blob 0x226e5 [12] @> Δ-12 {[«12""»]}
<Blob 0x226f6 [40] @> Δ-40 {[«12""»]|[«40""»]}
<POP 22702-22704 StackAdj> Δ-8 {[«12""»]|[«40""»]|[-8-]}
<Lit 0x22704 11> {[«12""»]|[«40""»]|[-4-]|[$$ of which_]}
<MI 2270e MOVE.L D6,(A7)> {[«12""»]|[«40""»]|[-4-]|[4, 'D6']}
<POP 2270c-2270e StackAdj> Δ-8 {[«12""»]|[«40""»]|[-4-]|[4, 'D6']|[-8-]}
<Call 0x22710 0x102e4> {[«12""»]|[«40""»]|[-4-]|[4, 'D6']|[-8-]}
Long2String(a : Long) : String
<Lit 0x22716 40> {[«12""»]|[«40""»]|[-4-]|[4, 'D6']|[-4-]|[$$ files were identical to the tape files.]}
<Call 0x22724 0x102d4> {[«12""»]|[«40""»]|[-4-]|[4, 'D6']|[-4-]|[$$ files were identical to the tape files.]}
StringCat3(a, b, c : String) : String
<POP 2272a-2272c StackAdj> Δ+12 {[«12""»]|[«40""»]|[-4-]}
<Call 0x2272c 0x103e0> {[«12""»]|[«40""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 22732-22736 StackAdj> Δ+56 {}
<MI 22736 TST.B (A6-0xa)> {}
<MI 2273a BEQ 0x22760> {}
<POP 2273c-22750 Naked> Σ0 ↓ →0x2275e
<Const 0x2273c 0x1.2> Δ-2 {[#1]}
<Pointer.fp 0x2273e <LVAR -0x012 @ 1(r)>> Δ-4 {[#1]|[@@-18]}
<Call 0x22742 0x10414> {[#1]|[@@-18]}
FSCALL_10414
<POP 22748-2274a StackAdj> Δ+6 {}
<MI 2274a TST.B (A6-0x12)> {}
<MI 2274e BEQ 0x2275e> {}
<POP 22750-2275e Naked> Σ0 ↓
<Const 0x22750 0x2.2> Δ-2 {[#2]}
<Pointer.fp 0x22752 <LVAR -0x012 @ 1(r)>> Δ-4 {[#2]|[@@-18]}
<Call 0x22756 0x10428> {[#2]|[@@-18]}
FSCALL_10428
<POP 2275c-2275e StackAdj> Δ+6 {}
<POP 2275e-22760 Naked> Σ0 →0x22778 ←0x2273c
<MI 2275e BRA 0x22778> {}
<POP 22760-22768 Naked> Σ0 ↓ →0x22778 ←0x22642
<MI 22760 TST.B 0x2733c> {}
<MI 22766 BNE 0x22778> {}
<POP 22768-22778 Naked> Σ0 ↓
<Const 0x22768 0x5.2> Δ-2 {[#5]}
<Pointer.fp 0x2276c <LVAR -0x012 @ 1(r)>> Δ-4 {[#5]|[@@-18]}
<Call 0x22770 0x10414> {[#5]|[@@-18]}
FSCALL_10414
<POP 22776-22778 StackAdj> Δ+6 {}
<POP 22778-2277e Naked> Σ0 ↓ ←0x2275e ←0x22760
<Call 0x22778 0x10410> {}
FSCALL_10410
<POP 2277e-22786 Epilogue> Σ0
@ 22786
<LVAR 0x008 4(r)>
<LVAR -0x002 @ 1(r)>
<POP 22786-227e8 Body>
<POP 22786-2279c Prologue> Σ0 ↓
<POP 2279c-227a0 RegCacheLoad> Σ0 ↓
<POP 227a0-227cc Naked> Σ0 ↓ →0x227da
<POP 227a0-227a2 StackAdj> Δ-2 {[-2-]}
<MI 227a2 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-2-]|[4, '(A6+0x8)']}
<Call 0x227a6 0x21930> {[-2-]|[4, '(A6+0x8)']}
<POP 227aa-227ac StackAdj> Δ+4 {[-2-]}
<MI 227ac MOVE.W (A7)+,D0> Δ+2 {}
<POP 0x227ae LimitCheck 0x0 ≤ D0 ≤ 0x3> {}
<MI 227b2 MOVE.W D0,D7> {}
<MI 227b4 MOVE.W D7,-(A7)> Δ-2 {[2, 'D7']}
<MI 227b6 CLR.B -(A7)> Δ-2 {[2, 'D7']|[#0]}
<Const 0x227b8 0x1.2> Δ-2 {[2, 'D7']|[#0]|[#1]}
<Pointer.fp 0x227bc <LVAR -0x002 @ 1(r)>> Δ-4 {[2, 'D7']|[#0]|[#1]|[@@-2]}
<Call 0x227be 0x1040c> {[2, 'D7']|[#0]|[#1]|[@@-2]}
FSCALL_1040c
<POP 227c4-227c8 StackAdj> Δ+10 {}
<MI 227c8 TST.B (A6-0x2)> {}
<MI 227ca BEQ 0x227da> {}
<POP 227cc-227da Naked> Σ0 ↓
<Const 0x227cc 0x2.2> Δ-2 {[#2]}
<Pointer.fp 0x227d0 <LVAR -0x002 @ 1(r)>> Δ-4 {[#2]|[@@-2]}
<Call 0x227d2 0x10428> {[#2]|[@@-2]}
FSCALL_10428
<POP 227d8-227da StackAdj> Δ+6 {}
<POP 227da-227e0 Naked> Σ0 ↓ ←0x227a0
<Call 0x227da 0x10410> {}
FSCALL_10410
<POP 227e0-227e8 Epilogue> Σ0
@ 227e8
<LVAR 0x008 4(r)>
<LVAR -0x002 @ 1(r)>
<POP 227e8-22866 Body>
<POP 227e8-227fe Prologue> Σ0 ↓
<POP 227fe-22804 RegCacheLoad> Σ0 ↓
<POP 22804-2282e Naked> Σ0 ↓ →0x2283a
<POP 22804-22806 StackAdj> Δ-2 {[-2-]}
<MI 22806 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-2-]|[4, '(A6+0x8)']}
<Call 0x2280a 0x21930> {[-2-]|[4, '(A6+0x8)']}
<POP 2280e-22810 StackAdj> Δ+4 {[-2-]}
<MI 22810 MOVE.W (A7)+,D0> Δ+2 {}
<POP 0x22812 LimitCheck 0x0 ≤ D0 ≤ 0x3> {}
<MI 22816 MOVE.W D0,D7> {}
<MI 22818 MOVE.W D7,-(A7)> Δ-2 {[2, 'D7']}
<MI 2281a CLR.B -(A7)> Δ-2 {[2, 'D7']|[#0]}
<MI 2281c CLR.B -(A7)> Δ-2 {[2, 'D7']|[#0]|[#0]}
<Pointer.fp 0x2281e <LVAR -0x002 @ 1(r)>> Δ-4 {[2, 'D7']|[#0]|[#0]|[@@-2]}
<Call 0x22820 0x1040c> {[2, 'D7']|[#0]|[#0]|[@@-2]}
FSCALL_1040c
<POP 22826-2282a StackAdj> Δ+10 {}
<MI 2282a TST.B (A6-0x2)> {}
<MI 2282c BEQ 0x2283a> {}
<POP 2282e-2283a Naked> Σ0 ↓
<Const 0x2282e 0x2.2> Δ-2 {[#2]}
<Pointer.fp 0x22830 <LVAR -0x002 @ 1(r)>> Δ-4 {[#2]|[@@-2]}
<Call 0x22832 0x10428> {[#2]|[@@-2]}
FSCALL_10428
<POP 22838-2283a StackAdj> Δ+6 {}
<POP 2283a-2284c Naked> Σ0 ↓ →0x22858 ←0x22804
<Const 0x2283a 0x1.2> Δ-2 {[#1]}
<Pointer.fp 0x2283e <LVAR -0x002 @ 1(r)>> Δ-4 {[#1]|[@@-2]}
<Call 0x22840 0x10414> {[#1]|[@@-2]}
FSCALL_10414
<POP 22846-22848 StackAdj> Δ+6 {}
<MI 22848 TST.B (A6-0x2)> {}
<MI 2284a BEQ 0x22858> {}
<POP 2284c-22858 Naked> Σ0 ↓
<Const 0x2284c 0x2.2> Δ-2 {[#2]}
<Pointer.fp 0x2284e <LVAR -0x002 @ 1(r)>> Δ-4 {[#2]|[@@-2]}
<Call 0x22850 0x10428> {[#2]|[@@-2]}
FSCALL_10428
<POP 22856-22858 StackAdj> Δ+6 {}
<POP 22858-2285e Naked> Σ0 ↓ ←0x2283a
<Call 0x22858 0x10410> {}
FSCALL_10410
<POP 2285e-22866 Epilogue> Σ0
@ 22866
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x006 @ 4(rw)>
<POP 22866-22944 Body> Δ+16
<POP 22866-2287c Prologue> Σ0 ↓
<POP 2287c-2288a RegCacheLoad> Σ0 ↓
<POP 2288a-22892 Naked> Σ0 ↓
<MI 2288a MOVEA.L (A6+0x8),A0> {}
<MI 2288e CLR.B (A0)> {}
<MI 22890 MOVEQ.L #0x00,D7> {}
<POP 22892-228e6 Naked> Σ0 ↓ →0x22934 ←0x22934
<MI 22892 MOVE.B D7,D0> {}
<MI 22894 EXTB.W D0> {}
<MI 22896 MULS.W #0x0a,D0> {}
<MI 22898 LEA.L 0x205fe,A0> {}
<Blob 0x2289c [10] (A0+D0.W)> Δ-10 {[«10»]}
<POP 228ac-228ae StackAdj> Δ-4 {[«10»]|[-4-]}
<Lit 0x228ae> {[«10»]|[$$…]}
<Pointer.sp 0x228ae 4> Δ-4
<Const 0x228b2 0x1.2> Δ-2
<Const 0x228b4 0xa.2> Δ-2
<Call 0x228b6 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 228bc-228be StackAdj> Δ+8
<MI 228be MOVE.L (A7)+,(A6-0x6)> Δ+4 {[«10»]}
<POP 228c0-228c2 StackAdj> Δ+4 {[-6-]}
<MI 228c2 MOVE.L (A6-0x6),(A7)> {[-2-]|[4, '(A6-0x6)']}
<MI 228c4 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x6)']|[4, '(A6+0x10)']}
<Call 0x228c8 0x102c8> {[-2-]|[4, '(A6-0x6)']|[4, '(A6+0x10)']}
StringEqual(a, b : String) : Byte
<POP 228ce-228d0 StackAdj> Δ+8 {[-2-]}
<MI 228d0 MOVE.B (A7)+,D0> Δ+2 {}
<MI 228d2 EXTB.W D0> {}
<POP 0x228d4 LimitCheck 0x0 ≤ D0 ≤ 0x1> {}
<MI 228d6 MOVE.B D0,D6> {}
<Pointer.fp 0x228d8 <LVAR -0x006 @ 4(rw)>> Δ-4 {[@@-6]}
<Call 0x228da 0x102bc> {[@@-6]}
FreeString(VAR a : String)
<POP 228e0-228e2 StackAdj> Δ+4 {}
<MI 228e2 TST.B D6> {}
<MI 228e4 BEQ 0x22934> {}
<POP 228e6-228fa Naked> Σ0 →0x22904 →0x2290c →0x22914 →0x2291c →0x22924
<MI 228e6 MOVE.B D7,D0> {}
<MI 228e8 EXTB.W D0> {}
<POP 0x228ea LimitCheck 0x0 ≤ D0 ≤ 0x4> {}
<MI 228f0 ADD.W D0,D0> {}
<MI 228f2 SWITCH D0.W> {}
<POP 22904-2290c Naked> Σ0 Δ-4 →0x2292a ←0x228e6
<MI 22904 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<Call 0x22906 0x221b2> {[4, '(A6+0xc)']}
<MI 2290a BRA 0x2292a> {[4, '(A6+0xc)']}
<POP 2290c-22914 Naked> Σ0 Δ-4 →0x2292a ←0x228e6
<MI 2290c MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<Call 0x2290e 0x21f72> {[4, '(A6+0xc)']}
<MI 22912 BRA 0x2292a> {[4, '(A6+0xc)']}
<POP 22914-2291c Naked> Σ0 Δ-4 →0x2292a ←0x228e6
<MI 22914 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<Call 0x22916 0x22786> {[4, '(A6+0xc)']}
<MI 2291a BRA 0x2292a> {[4, '(A6+0xc)']}
<POP 2291c-22924 Naked> Σ0 Δ-4 →0x2292a ←0x228e6
<MI 2291c MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<Call 0x2291e 0x224b6> {[4, '(A6+0xc)']}
<MI 22922 BRA 0x2292a> {[4, '(A6+0xc)']}
<POP 22924-2292a Naked> Σ0 Δ-4 ↓ ←0x228e6
<MI 22924 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<Call 0x22926 0x227e8> {[4, '(A6+0xc)']}
<POP 2292a-22934 Naked> Σ-4 Δ+4 →0x2293c ←0x22904 ←0x2290c ←0x22914 ←0x2291c
<POP 2292a-2292c StackAdj> Δ+4 {}
<MI 2292c MOVEA.L (A6+0x8),A0> {}
<MI 22930 MOVE.B #0x01,(A0)> {}
<MI 22932 BRA 0x2293c> {}
<POP 22934-2293c Naked> Σ0 ↓ →0x22892 ←0x22892
<MI 22934 ADDQ.B #0x1,D7> {}
<MI 22936 CMP.B #0x04,D7> {}
<MI 22938 BLE 0x22892> {}
<POP 2293c-22944 Epilogue> Σ0 ←0x2292a
@ 22944
<LVAR 0x008 4(r)>
<POP 22944-22978 Body>
<POP 22944-2295a Prologue> Σ0 ↓
<POP 2295a-22970 Naked> Σ0 ↓
<Call 0x2295a 0x10398> {}
FSCALL_10398
<MI 22960 MOVEA.L (A6+0x8),A0> {}
<MI 22964 LEA.L 0x205d4,A1> {}
<BlockMove 10,A1,A0> {}
<POP 22970-22978 Epilogue> Σ0
@ 22ff4
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 4(w)>
<POP 22ff4-23036 Body>
<POP 22ff4-2300a Prologue> Σ0 ↓
<POP 2300a-2300e Naked> Σ0 ↓
<MI 2300a MOVEA.L (A6+0x8),A4> {}
<POP 2300e-23014 Naked> Σ0 ↓ →0x2302e ←0x23014
<MI 2300e CMPA.W #0x1,A4> {}
<MI 23012 BEQ 0x2302e> {}
<POP 23014-2302e Naked> Σ0 →0x2300e
<MI 23014 MOVE.L A4,(A6-0x4)> {}
<MI 23018 MOVEA.L (A4+0x8),A4> {}
<Pointer.fp 0x2301c <LVAR -0x004 @ 4(w)>> Δ-4 {[@@-4]}
<Const 0x23020 0xc.4> Δ-4 {[@@-4]|[##12]}
<Call 0x23024 0x102a8> {[@@-4]|[##12]}
Free2(a : Pointer; b : Long)
<POP 2302a-2302c StackAdj> Δ+8 {}
<MI 2302c BRA 0x2300e> {}
<POP 2302e-23036 Epilogue> Σ0 ←0x2300e
@ 23036
<LVAR 0x008 4(r)>
<POP 23036--0001 Body>
<POP 23036-2304c Prologue> Σ0 ↓
<POP 2304c-23056 Naked> Σ0 ↓ →0x23060
<MI 2304c MOVEA.L (A6+0x8),A0> {}
<MI 23050 CMPA.W #0x1,A0> {}
<MI 23054 BEQ 0x23060> {}
<POP 23056-23060 Naked> Σ0 ↓
<MI 23056 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Call 0x23058 0x103e0> {[4, 'A0']}
WriteConsoleStringCrLf(str : String)
<POP 2305e-23060 StackAdj> Δ+4 {}
<POP 23060-2306e Naked> Σ0 ←0x2304c
<POP 23060-2306e Bailout> {}
<MI 23060 MOVEA.L (A5+0x8),A7>
<MI 23064 MOVEA.W #0x0,A6>
<MI 23068 JMP 0x26912>
@ 23094
<LVAR 0x008 1(rw)>
<POP 23094-230d2 Body>
<POP 23094-230aa Prologue> Σ0 ↓
<POP 230aa-230b8 Naked> Σ0 ↓ →0x230be
<MI 230aa MOVE.L 0x29348,D0> {}
<MI 230b0 CMP.L 0x2934c,D0> {}
<MI 230b6 BLE 0x230be> {}
<POP 230b8-230be Naked> Σ0 →0x230ca
<MI 230b8 CLR.B (A6+0x8)> {}
<MI 230bc BRA 0x230ca> {}
<POP 230be-230ca Naked> Σ0 ↓ ←0x230aa
<MI 230be LEA.L 0x27340,A0> {}
<MI 230c4 MOVE.B (A0+D0.L+#0x7),(A6+0x8)> {}
<POP 230ca-230d2 Epilogue> Σ0 ←0x230b8
@ 230d2
<LVAR 0x008 1(rw)>
<POP 230d2-23116 Body>
<POP 230d2-230e8 Prologue> Σ0 ↓
<POP 230e8-230ee RegCacheLoad> Σ0 ↓
<POP 230ee-230f8 Naked> Σ0 ↓ →0x230fe
<MI 230ee MOVE.L 0x29348,D0> {}
<MI 230f0 CMP.L 0x2934c,D0> {}
<MI 230f6 BLE 0x230fe> {}
<POP 230f8-230fe Naked> Σ0 →0x2310a
<MI 230f8 CLR.B (A6+0x8)> {}
<MI 230fc BRA 0x2310a> {}
<POP 230fe-2310a Naked> Σ0 ↓ ←0x230ee
<MI 230fe LEA.L 0x27340,A0> {}
<MI 23104 MOVE.B (A0+D0.L+#0x7),(A6+0x8)> {}
<POP 2310a-2310e Naked> Σ0 ↓ ←0x230f8
<MI 2310a ADDQ.L #0x1,D0> {}
<MI 2310c MOVE.L D0,0x29348> {}
<POP 2310e-23116 Epilogue> Σ0
@ 23116
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 23116-231f0 Body>
<POP 23116-2312c Prologue> Σ0 ↓
<POP 2312c-2313e RegCacheLoad> Σ0 ↓
<POP 2313e-2314a Naked> Σ0 ↓ →0x23154 ←0x231e4
<POP 2313e-23140 StackAdj> Δ-2 {[-2-]}
<Call 0x23140 0x23094> {[-2-]}
<MI 23144 MOVE.B (A7)+,D0> Δ+2 {}
<MI 23146 CMP.B #0x5b,D0> {}
<MI 23148 BNE 0x23154> {}
<POP 2314a-23154 Naked> Σ0 →0x231e4
<Call 0x2314a 0x2641c> {}
<MI 23150 BRA 0x231e4> {}
<POP 23154-23160 Naked> Σ0 ↓ →0x23178 ←0x2313e
<MI 23154 MOVE.L 0x29348,D6> {}
<POP 23156-23158 StackAdj> Δ-2 {[-2-]}
<Call 0x23158 0x230d2> {[-2-]}
<MI 2315c MOVE.B (A7)+,D5> Δ+2 {}
<MI 2315e BNE 0x23178> {}
<POP 23160-23176 Naked> Σ0 →0x231e8
<MI 23160 MOVEA.L (A6+0xc),A0> {}
<MI 23164 LEA.L 0x22f4e,A1> {}
<BlockMove 8,A1,A0> {}
<MI 23170 MOVEA.L (A6+0x8),A0> {}
<MI 23172 MOVE.B #0x02,(A0)> {}
<MI 23174 BRA 0x231e8> {}
<POP 23178-2317c Naked> Σ0 ↓ →0x23184 ←0x23154
<MI 23178 CMP.B #0x2c,D5> {}
<MI 2317a BNE 0x23184> {}
<POP 2317c-23184 Naked> Σ0 →0x231d4
<MI 2317c MOVEA.L (A6+0x8),A0> {}
<MI 2317e MOVE.B #0x03,(A0)> {}
<MI 23182 BRA 0x231d4> {}
<POP 23184-23188 Naked> Σ0 ↓ →0x23190 ←0x23178
<MI 23184 CMP.B #0x3b,D5> {}
<MI 23186 BNE 0x23190> {}
<POP 23188-23190 Naked> Σ0 →0x231d4
<MI 23188 MOVEA.L (A6+0x8),A0> {}
<MI 2318a MOVE.B #0x01,(A0)> {}
<MI 2318e BRA 0x231d4> {}
<POP 23190-23196 Naked> Σ0 ↓ →0x2319c ←0x23184
<MI 23190 CMPI.B #0x5d,D5> {}
<MI 23194 BNE 0x2319c> {}
<POP 23196-2319c Naked> Σ0 →0x231d4
<MI 23196 MOVEA.L (A6+0x8),A0> {}
<MI 23198 MOVE.B #0x02,(A0)> {}
<MI 2319a BRA 0x231d4> {}
<POP 2319c-231a0 Naked> Σ0 ↓ ←0x23190
<MI 2319c MOVEA.L (A6+0x8),A0> {}
<MI 2319e CLR.B (A0)> {}
<POP 231a0-231ac Naked> Σ0 ↓ →0x231b4 ←0x231d2
<POP 231a0-231a2 StackAdj> Δ-2 {[-2-]}
<Call 0x231a2 0x23094> {[-2-]}
<MI 231a6 MOVE.B (A7)+,D7> Δ+2 {}
<MI 231a8 CMP.B #0x5b,D7> {}
<MI 231aa BNE 0x231b4> {}
<POP 231ac-231b4 Naked> Σ0 →0x231d2
<Call 0x231ac 0x2641c> {}
<MI 231b2 BRA 0x231d2> {}
<POP 231b4-231b8 Naked> Σ0 ↓ →0x231c6 ←0x231a0
<MI 231b4 CMP.B #0x3b,D7> {}
<MI 231b6 BEQ 0x231c6> {}
<POP 231b8-231bc Naked> Σ0 ↓ →0x231c6
<MI 231b8 CMP.B #0x2c,D7> {}
<MI 231ba BEQ 0x231c6> {}
<POP 231bc-231c2 Naked> Σ0 ↓ →0x231c6
<MI 231bc CMPI.B #0x5d,D7> {}
<MI 231c0 BEQ 0x231c6> {}
<POP 231c2-231c6 Naked> Σ0 ↓ →0x231ca
<MI 231c2 TST.B D7> {}
<MI 231c4 BNE 0x231ca> {}
<POP 231c6-231c8 Naked> Σ0 →0x231d4 ←0x231b4 ←0x231b8 ←0x231bc
<MI 231c6 BRA 0x231d4> {}
<POP 231ca-231d2 Naked> Σ0 ↓ ←0x231c2
<POP 231ca-231cc StackAdj> Δ-2 {[-2-]}
<Call 0x231cc 0x230d2> {[-2-]}
<MI 231d0 MOVE.B (A7)+,D7> Δ+2 {}
<POP 231d2-231d4 Naked> Σ0 →0x231a0 ←0x231ac
<MI 231d2 BRA 0x231a0> {}
<POP 231d4-231e4 Naked> Σ0 →0x231e8 ←0x2317c ←0x23188 ←0x23196 ←0x231c6
<MI 231d4 MOVEA.L (A6+0xc),A0> {}
<MI 231d8 MOVE.L D6,(A0)> {}
<MI 231da MOVE.L 0x29348,(A0+0x4)> {}
<MI 231de SUBQ.L #0x1,(A0+0x4)> {}
<MI 231e2 BRA 0x231e8> {}
<POP 231e4-231e8 Naked> Σ0 →0x2313e ←0x2314a
<MI 231e4 BRA 0x2313e> {}
<POP 231e8-231f0 Epilogue> Σ0 ←0x23160 ←0x231d4
@ 231f0
<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 231f0-2328e Body>
<POP 231f0-23206 Prologue> Σ0 ↓
<POP 23206-23210 RegCacheLoad> Σ0 ↓
<POP 23210-2321c Naked> Σ0 ↓ →0x23222
<MI 23210 MOVEA.L (A6+0x8),A0> {}
<MI 23214 MOVE.B (A0),D0> {}
<MI 23216 CMPI.B #0x01,D0> {}
<MI 2321a BEQ 0x23222> {}
<POP 2321c-23222 Naked> Σ0 ↓ →0x23230
<MI 2321c CMPI.B #0x02,D0> {}
<MI 23220 BNE 0x23230> {}
<POP 23222-23230 Naked> Σ0 →0x2326c ←0x23210
<MI 23222 MOVE.L 0x22f4e,(A6-0xc)> {}
<MI 23226 MOVE.L 0x22f52,(A6-0x8)> {}
<MI 2322c MOVE.B D0,(A6-0x4)> {}
<MI 2322e BRA 0x2326c> {}
<POP 23230-23242 Naked> Σ0 ↓ →0x2325e ←0x2321c ←0x23266
<Pointer.fp 0x23230 <LVAR -0x00c @ 4(w)>> Δ-4 {[@@-12]}
<Pointer.fp 0x23232 <LVAR -0x004 @ 1(rw)>> Δ-4 {[@@-12]|[@@-4]}
<Call 0x23234 0x23116> {[@@-12]|[@@-4]}
<POP 23238-2323a StackAdj> Δ+8 {}
<MI 2323a MOVEA.L (A6+0x8),A0> {}
<MI 2323e TST.B (A6-0x4)> {}
<MI 23240 BEQ 0x2325e> {}
<POP 23242-23248 Naked> Σ0 ↓ →0x2325e
<MI 23242 MOVE.B (A0),D0> {}
<MI 23244 CMP.B #0x03,D0> {}
<MI 23246 BNE 0x2325e> {}
<POP 23248-2325e Naked> Σ0 →0x23266
<MI 23248 MOVE.B (A6-0x4),D0> {}
<MI 2324a EXTB.W D0> {}
<POP 0x2324c LimitCheck 0x0 ≤ D0 ≤ 0x3> {}
<MI 2324e MOVE.B D0,(A0)> {}
<MI 23250 MOVE.L 0x22f4e,(A6-0xc)> {}
<MI 23254 MOVE.L 0x22f52,(A6-0x8)> {}
<MI 2325a CLR.B (A6-0x4)> {}
<MI 2325c BRA 0x23266> {}
<POP 2325e-23266 Naked> Σ0 ↓ ←0x23230 ←0x23242
<MI 2325e MOVE.B (A6-0x4),D0> {}
<MI 23260 EXTB.W D0> {}
<POP 0x23262 LimitCheck 0x0 ≤ D0 ≤ 0x3> {}
<MI 23264 MOVE.B D0,(A0)> {}
<POP 23266-2326c Naked> Σ0 ↓ →0x23230 ←0x23248
<MI 23266 MOVE.B (A6-0x4),D0> {}
<MI 23268 CMP.B #0x03,D0> {}
<MI 2326a BEQ 0x23230> {}
<POP 2326c-23286 Naked> Σ0 ↓ ←0x23222
<MI 2326c MOVEA.L (A6+0x10),A0> {}
<MI 23270 LEA.L (A6-0xc),A1> {}
<BlockMove 8,A1,A0> {}
<MI 2327a MOVEA.L (A6+0xc),A0> {}
<MI 2327e MOVE.B (A6-0x4),D0> {}
<MI 23280 EXTB.W D0> {}
<POP 0x23282 LimitCheck 0x0 ≤ D0 ≤ 0x3> {}
<MI 23284 MOVE.B D0,(A0)> {}
<POP 23286-2328e Epilogue> Σ0
@ 2328e
<LVAR 0x008 4(rw)>
<LVAR -0x004 1(rw)>
<LVAR -0x010 2(rw)>
<POP 2328e-23396 Body>
<POP 2328e-232a4 Prologue> Σ0 ↓
<POP 232a4-232b2 RegCacheLoad> Σ0 ↓
<POP 232b2-232ca Naked> Σ0 Δ-4 ↓
<MI 232b2 MOVEQ.L #0x01,D6> {}
<MI 232b4 CLR.W (A6-0x10)> {}
<MI 232b6 MOVEQ.L #0x01,D5> {}
<POP 232b8-232ba StackAdj> Δ-4 {[-4-]}
<MI 232ba MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x232bc 0x102f0> {[-4-]|[4, '(A6+0x8)']}
ToUpper(a : String) : String
<POP 232c2-232c4 StackAdj> Δ+4 {[-4-]}
<MI 232c4 MOVE.L (A7)+,(A6+0x8)> Δ+4 {}
<MI 232c6 MOVEA.L (A6+0x8),A0> {}
<MI 232c8 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<POP 232ca-232d6 Naked> Σ-4 ↓ →0x23384 ←0x2336a
<MI 232ca MOVEA.L (A7),A0> {[-4-]}
<MI 232cc MOVE.W (A0),D0> {[-4-]}
<MI 232ce EXTW.L D0> {[-4-]}
<MI 232d0 CMP.L D0,D6> {[-4-]}
<MI 232d2 BGT 0x23384> {[-4-]}
<POP 232d6-232e8 Naked> Σ-4 ↓ →0x232ea
<MI 232d6 CLR.L D0> {[-4-]}
<MI 232d8 MOVE.B (A0+D6.L+#0x1),D0> {[-4-]}
<MI 232dc ANDI.W #0x007f,D0> {[-4-]}
<MI 232e0 MOVE.B D0,(A6-0x4)> {[-4-]}
<MI 232e2 CMPI.B #0x09,D0> {[-4-]}
<MI 232e6 BNE 0x232ea> {[-4-]}
<POP 232e8-232ea Naked> Σ-4 ↓
<MI 232e8 MOVE.B #0x20,(A6-0x4)> {[-4-]}
<POP 232ea-232f6 Naked> Σ-4 ↓ →0x23326 ←0x232d6
<MI 232ea CLR.L D0> {[-4-]}
<MI 232ec MOVE.B (A6-0x4),D0> {[-4-]}
<MI 232ee SUB.W #0x20,D0> {[-4-]}
<MI 232f0 CMPI.W #0x000c,D0> {[-4-]}
<MI 232f4 BHI 0x23326> {[-4-]}
<POP 232f6-23300 Naked> Σ-4 →0x2331e →0x2331a →0x23326 →0x23326 →0x23326 →0x23326 →0x23326 →0x23326 →0x23326 →0x23326 →0x23326 →0x23326 →0x23322
<MI 232f6 ADD.W D0,D0> {[-4-]}
<MI 232f8 SWITCH D0.W> {[-4-]}
<POP 2331a-2331c Naked> Σ-4 →0x23384 ←0x232f6
<MI 2331a BRA 0x23384> {[-4-]}
<POP 2331e-23322 Naked> Σ-4 →0x23328 ←0x232f6
<MI 2331e MOVEQ.L #0x00,D7> {[-4-]}
<MI 23320 BRA 0x23328> {[-4-]}
<POP 23322-23326 Naked> Σ-4 →0x23328 ←0x232f6
<MI 23322 MOVEQ.L #0x01,D7> {[-4-]}
<MI 23324 BRA 0x23328> {[-4-]}
<POP 23326-23328 Naked> Σ-4 ↓ ←0x232ea ←0x232f6 ←0x232f6 ←0x232f6 ←0x232f6 ←0x232f6 ←0x232f6 ←0x232f6 ←0x232f6 ←0x232f6 ←0x232f6
<MI 23326 MOVEQ.L #0x02,D7> {[-4-]}
<POP 23328-2334c Naked> Σ-4 →0x23352 →0x23354 →0x2335e ←0x2331e ←0x23322
<MI 23328 MOVEQ.L #0x03,D0> {[-4-]}
<MI 2332a MULS.W (A6-0x10),D0> {[-4-]}
<MI 2332c LEA.L 0x22f56,A0> {[-4-]}
<MI 23330 LEA.L (A0+D0.W),A0> {[-4-]}
<MI 23334 CLR.L D0> {[-4-]}
<MI 23336 MOVE.B (A0+D7.W),D0> {[-4-]}
<POP 0x2333a LimitCheck 0x0 ≤ D0 ≤ 0x2> {[-4-]}
<MI 23342 ADD.W D0,D0> {[-4-]}
<MI 23344 SWITCH D0.W> {[-4-]}
<POP 23352-23354 Naked> Σ-4 →0x2336a ←0x23328
<MI 23352 BRA 0x2336a> {[-4-]}
<POP 23354-2335e Naked> Σ-4 →0x2336a ←0x23328
<MI 23354 MOVEA.L (A7),A0> {[-4-]}
<MI 23356 MOVE.B (A6-0x4),(A0+D5.L+#0x1)> {[-4-]}
<MI 2335a ADDQ.L #0x1,D5> {[-4-]}
<MI 2335c BRA 0x2336a> {[-4-]}
<POP 2335e-2336a Naked> Σ-4 ↓ ←0x23328
<MI 2335e MOVEA.L (A7),A0> {[-4-]}
<MI 23360 MOVE.B #0x2c,(A0+D5.L+#0x1)> {[-4-]}
<MI 23366 ADDQ.L #0x1,D5> {[-4-]}
<MI 23368 SUBQ.L #0x1,D6> {[-4-]}
<POP 2336a-23384 Naked> Σ-4 →0x232ca ←0x23352 ←0x23354
<MI 2336a MOVEQ.L #0x03,D0> {[-4-]}
<MI 2336c MULS.W (A6-0x10),D0> {[-4-]}
<MI 2336e LEA.L 0x22f5f,A0> {[-4-]}
<MI 23372 LEA.L (A0+D0.W),A0> {[-4-]}
<MI 23376 CLR.L D0> {[-4-]}
<MI 23378 MOVE.B (A0+D7.W),D0> {[-4-]}
<MI 2337c MOVE.W D0,(A6-0x10)> {[-4-]}
<MI 2337e ADDQ.L #0x1,D6> {[-4-]}
<MI 23380 BRA 0x232ca> {[-4-]}
<POP 23384-2338e Naked> Σ-4 Δ+4 ↓ ←0x232ca ←0x2331a
<MI 23384 MOVEA.L (A7),A0> {[-4-]}
<MI 23386 MOVE.L D5,D0> {[-4-]}
<MI 23388 SUBQ.L #0x1,D0> {[-4-]}
<MI 2338a MOVE.W D0,(A0)> {[-4-]}
<POP 2338c-2338e StackAdj> Δ+4 {}
<POP 2338e-23396 Epilogue> Σ0
@ 23396
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x002 @ 1(r)>
<LVAR -0x00a @>
<LVAR -0x00e @ 4(r)>
<LVAR -0x014 @ 1(r)>
<POP 23396-23442 Body>
<POP 23396-233ac Prologue> Σ0 ↓
<POP 233ac-233b2 RegCacheLoad> Σ0 ↓
<POP 233b2-233c0 Naked> Σ0 ↓ →0x233c8
<POP 233b2-233b4 StackAdj> Δ-2 {[-2-]}
<Call 0x233b4 0x23094> {[-2-]}
<MI 233b8 MOVE.B (A7)+,D0> Δ+2 {}
<MI 233ba CMPI.B #0x5b,D0> {}
<MI 233be BNE 0x233c8> {}
<POP 233c0-233c8 Naked> Σ0 ↓
<POP 233c0-233c2 StackAdj> Δ-2 {[-2-]}
<Call 0x233c2 0x230d2> {[-2-]}
<MI 233c6 MOVE.B (A7)+,D7> Δ+2 {}
<POP 233c8-233d2 Naked> Σ0 ↓ ←0x233b2
<MI 233c8 MOVEA.L (A6+0xc),A0> {}
<MI 233cc MOVE.L #0x01,(A0)> {}
<MI 233ce CLR.B (A6-0x14)> {}
<POP 233d2-233ec Naked> Σ0 ↓ →0x23422 ←0x23422
<Pointer.fp 0x233d2 <LVAR -0x00a @>> Δ-4 {[@@-10]}
<Pointer.fp 0x233d6 <LVAR -0x002 @ 1(r)>> Δ-4 {[@@-10]|[@@-2]}
<Pointer.fp 0x233da <LVAR -0x014 @ 1(r)>> Δ-4 {[@@-10]|[@@-2]|[@@-20]}
<Call 0x233de 0x231f0> {[@@-10]|[@@-2]|[@@-20]}
<POP 233e2-233e6 StackAdj> Δ+12 {}
<MI 233e6 TST.B (A6-0x2)> {}
<MI 233ea BNE 0x23422> {}
<POP 233ec-23418 Naked> Σ0 ↓ →0x2341c
<Pointer.fp 0x233ec <LVAR -0x00e @ 4(r)>> Δ-4 {[@@-14]}
<Const 0x233ee 0xc.4> Δ-4 {[@@-14]|[##12]}
<Call 0x233f2 0x1029c> {[@@-14]|[##12]}
Malloc1(length : Long) : Pointer
<POP 233f8-233fa StackAdj> Δ+8 {}
<MI 233fa MOVEA.L (A6-0xe),A0> {}
<MI 233fc MOVEA.L A0,A1> {}
<MI 233fe LEA.L (A6-0xa),A2> {}
<BlockMove 8,A2,A1> {}
<MI 2340a MOVE.L #0x01,(A0+0x8)> {}
<MI 2340e MOVEA.L (A6+0xc),A0> {}
<MI 23412 MOVEA.L (A0),A1> {}
<MI 23414 CMPA.W #0x01,A1> {}
<MI 23416 BNE 0x2341c> {}
<POP 23418-2341c Naked> Σ0 →0x23420
<MI 23418 MOVE.L (A6-0xe),(A0)> {}
<MI 2341a BRA 0x23420> {}
<POP 2341c-23420 Naked> Σ0 ↓ ←0x233ec
<MI 2341c MOVE.L (A6-0xe),(A4+0x8)> {}
<POP 23420-23422 Naked> Σ0 ↓ ←0x23418
<MI 23420 MOVEA.L (A6-0xe),A4> {}
<POP 23422-23428 Naked> Σ0 ↓ →0x233d2 ←0x233d2
<MI 23422 TST.B (A6-0x2)> {}
<MI 23426 BEQ 0x233d2> {}
<POP 23428-23438 Naked> Σ0 ↓ →0x2343a
<MI 23428 MOVEA.L (A6+0x8),A0> {}
<MI 2342c CLR.B (A0)> {}
<MI 2342e MOVE.B (A6-0x2),D0> {}
<MI 23432 CMPI.B #0x02,D0> {}
<MI 23436 BNE 0x2343a> {}
<POP 23438-2343a Naked> Σ0 ↓
<MI 23438 ADDQ.B #0x1,(A0)> {}
<POP 2343a-23442 Epilogue> Σ0 ←0x23428
@ 23442
<LVAR 0x00c 4(w)>
<LVAR 0x008 4(r)>
<POP 23442-23478 Body>
<POP 23442-23458 Prologue> Σ0 ↓
<POP 23458-2345e Naked> Σ0 ↓
<MI 23458 MOVEQ.L #-0x01,D7> {}
<MI 2345a MOVEA.L (A6+0x8),A4> {}
<POP 2345e-23464 Naked> Σ0 ↓ →0x2346c ←0x23464
<MI 2345e CMPA.W #0x1,A4> {}
<MI 23462 BEQ 0x2346c> {}
<POP 23464-2346c Naked> Σ0 →0x2345e
<MI 23464 ADDQ.L #0x1,D7> {}
<MI 23466 MOVEA.L (A4+0x8),A4> {}
<MI 2346a BRA 0x2345e> {}
<POP 2346c-23470 Naked> Σ0 ↓ ←0x2345e
<MI 2346c MOVE.L D7,(A6+0xc)> {}
<POP 23470-23478 Epilogue> Σ0
@ 23478
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 23478-23504 Body>
<POP 23478-2348e Prologue> Σ0 ↓
<POP 2348e-23490 RegCacheLoad> Σ0 ↓
<POP 23490-234a4 Naked> Σ0 ↓ →0x234fc
<POP 23490-23492 StackAdj> Δ-4 {[-4-]}
<MI 23492 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']}
<Call 0x23496 0x23442> {[-4-]|[4, '(A6+0xc)']}
<POP 2349a-2349c StackAdj> Δ+4 {[-4-]}
<MI 2349c MOVE.L (A7)+,D0> Δ+4 {}
<MI 2349e CMP.L (A6+0x8),D0> {}
<MI 234a2 BEQ 0x234fc> {}
<POP 234a4-234fc Naked> Σ0 ↓
<MI 234a4 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<Call 0x234a8 0x22ff4> {[4, '(A6+0xc)']}
<POP 234ac-234ae StackAdj> Δ+4 {}
<Blob 0x234ae [32] @> Δ-32 {[«32""»]}
<Blob 0x234ba [10] (A6+0x1a)> Δ-10 {[«32""»]|[«10»]}
<POP 234c6-234c8 StackAdj> Δ-8 {[«32""»]|[«10»]|[-8-]}
<Lit 0x234c8 32> {[«32""»]|[«10»]|[-4-]|[$$Wrong number of arguments for :_]}
<POP 234d8-234da StackAdj> Δ-4 {[«32""»]|[«10»]|[-4-]|[$$Wrong number of arguments for :_]|[-4-]}
<Lit 0x234da> {[«32""»]|[«10»]|[-4-]|[$$Wrong number of arguments for :_]|[$$…]}
<Pointer.sp 0x234da 12> Δ-4
<Const 0x234de 0x1.2> Δ-2
<Const 0x234e0 0xa.2> Δ-2
<Call 0x234e4 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 234ea-234ec StackAdj> Δ+8
<Call 0x234ec 0x102d0> {[«32""»]|[«10»]|[-4-]|[$$Wrong number of arguments for :_]|[$$…]}
StringCat2(a, b : String) : String
<POP 234f2-234f4 StackAdj> Δ+8 {[«32""»]|[«10»]|[-4-]}
<Call 0x234f4 0x23036> {[«32""»]|[«10»]|[-4-]}
<POP 234f8-234fc StackAdj> Δ+46 {}
<POP 234fc-23504 Epilogue> Σ0 ←0x23490
@ 23504
<LVAR 0x014 1(rw)>
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 23504-2358a Body> Δ-4
<POP 23504-2351a Prologue> Σ0 ↓
<POP 2351a-2352e Naked> Σ0 ↓ →0x2357c
<MI 2351a CLR.B (A6+0x14)> {}
<MI 2351e MOVE.L (A6+0x10),D0> {}
<MI 23522 ADD.L (A6+0x8),D0> {}
<MI 23526 CMP.L 0x2934c,D0> {}
<MI 2352c BGT 0x2357c> {}
<POP 2352e-23534 Naked> Σ0 Δ-4 ↓
<MI 2352e MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<MI 23532 MOVEQ.L #0x01,D7> {[4, '(A6+0x8)']}
<POP 23534-23538 Naked> Σ-4 ↓ →0x2357a ←0x23576
<MI 23534 CMP.L (A7),D7> {[-4-]}
<MI 23536 BGT 0x2357a> {[-4-]}
<POP 23538-23572 Naked> Σ-4 ↓ →0x23576
<MI 23538 MOVE.L (A6+0x10),D0> {[-4-]}
<MI 2353c ADD.L D7,D0> {[-4-]}
<MI 2353e SUBQ.L #0x1,D0> {[-4-]}
<POP 0x23540 LimitCheck 0x0 ≤ D0 ≤ 0x1fff> {[-4-]}
<MI 2354a LEA.L 0x27340,A0> {[-4-]}
<MI 23550 MOVE.L (A6+0xc),D1> {[-4-]}
<MI 23554 ADD.L D7,D1> {[-4-]}
<MI 23556 SUBQ.L #0x1,D1> {[-4-]}
<MI 23558 SUBQ.L #0x1,D1> {[-4-]}
<POP 0x2355a LimitCheck 0x0 ≤ D1 ≤ 0x3e> {[-4-]}
<MI 23564 LEA.L 0x22b50,A1> {[-4-]}
<MI 23568 MOVE.B (A0+D0.L+#0x8),D0> {[-4-]}
<MI 2356c CMP.B (A1+D1.L),D0> {[-4-]}
<MI 23570 BEQ 0x23576> {[-4-]}
<POP 23572-23576 Naked> Σ-4 Δ+4 →0x23582
<POP 23572-23574 StackAdj> Δ+4 {}
<MI 23574 BRA 0x23582> {}
<POP 23576-2357a Naked> Σ-4 ↓ →0x23534 ←0x23538
<MI 23576 ADDQ.L #0x1,D7> {[-4-]}
<MI 23578 BVC 0x23534> {[-4-]}
<POP 2357a-2357c Naked> Σ-4 Δ+4 ↓ ←0x23534
<POP 2357a-2357c StackAdj> Δ+4 {}
<POP 2357c-23582 Naked> Σ0 ↓ ←0x2351a
<MI 2357c MOVE.B #0x01,(A6+0x14)> {}
<POP 23582-2358a Epilogue> Σ0 ←0x23572
@ 2358a
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 2358a-23614 Body>
<POP 2358a-235a0 Prologue> Σ0 ↓
<POP 235a0-235aa RegCacheLoad> Σ0 ↓
<POP 235aa-235ae Naked> Σ0 ↓ →0x235ec
<MI 235aa TST.L (A6+0x8)> {}
<MI 235ac BGE 0x235ec> {}
<POP 235ae-235bc Naked> Σ0 ↓ →0x235ec
<MI 235ae MOVE.L (A6+0x8),D0> {}
<MI 235b0 NEG.L D0> {}
<MI 235b2 ADD.L 0x2934c,D0> {}
<MI 235b4 CMPI.L #0x00002000,D0> {}
<MI 235ba BLE 0x235ec> {}
<POP 235bc-235ec Naked> Σ0 ↓
<Blob 0x235bc [28] @> Δ-28 {[«28""»]}
<POP 235ce-235d0 StackAdj> Δ-4 {[«28""»]|[-4-]}
<Lit 0x235d0 27> {[«28""»]|[$$Evaluation buffer overflow.]}
<Call 0x235e4 0x23036> {[«28""»]|[$$Evaluation buffer overflow.]}
<POP 235e8-235ec StackAdj> Δ+32 {}
<POP 235ec-2360c Naked> Σ0 ↓ ←0x235aa ←0x235ae
<MI 235ec LEA.L 0x27348,A0> {}
<MI 235f2 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Blob 0x235f4 [4] 0x2934c> Δ-4 {[4, 'A0']|[«4»]}
<MI 235f6 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, 'A0']|[«4»]|[4, '(A6+0xc)']}
<MI 235fa MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, 'A0']|[«4»]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x235fc 0x10364> {[4, 'A0']|[«4»]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
MovStringTail(Base, Len, Ptr, Delta)
<POP 23602-23606 StackAdj> Δ+16 {}
<MI 23606 MOVE.L 0x2934c,D0> {}
<MI 23608 SUB.L (A6+0x8),D0> {}
<MI 2360a MOVE.L D0,0x2934c> {}
<POP 2360c-23614 Epilogue> Σ0
@ 23614
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 23614-2369e Body>
<POP 23614-2362a Prologue> Σ0 ↓
<POP 2362a-2362e RegCacheLoad> Σ0 ↓
<POP 2362e-2364e Naked> Σ0 Δ-8 ↓
<MI 2362e MOVEA.L (A6+0x8),A0> {}
<MI 23632 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 23634 MOVEA.L (A6+0xc),A1> {[4, 'A0']}
<MI 23636 MOVE.L (A1),-(A7)> Δ-4 {[4, 'A0']|[4, '(A1)']}
<MI 23638 MOVE.W (A0),D0> {[4, 'A0']|[4, '(A1)']}
<MI 2363a EXTW.L D0> {[4, 'A0']|[4, '(A1)']}
<MI 2363c NEG.L D0> {[4, 'A0']|[4, '(A1)']}
<MI 2363e MOVE.L D0,-(A7)> Δ-4 {[4, 'A0']|[4, '(A1)']|[4, 'D0']}
<Call 0x23640 0x2358a> {[4, 'A0']|[4, '(A1)']|[4, 'D0']}
<POP 23644-23646 StackAdj> Δ+8 {[4, 'A0']}
<MI 23646 MOVE.W (A0),D0> {[4, 'A0']}
<MI 23648 EXTW.L D0> {[4, 'A0']}
<MI 2364a MOVE.L D0,-(A7)> Δ-4 {[4, 'A0']|[4, 'D0']}
<MI 2364c MOVEQ.L #0x01,D7> {[4, 'A0']|[4, 'D0']}
<POP 2364e-23652 Naked> Σ-8 ↓ →0x23688 ←0x23652
<MI 2364e CMP.L (A7),D7> {[-8-]}
<MI 23650 BGT 0x23688> {[-8-]}
<POP 23652-23688 Naked> Σ-8 ↓ →0x2364e
<MI 23652 MOVEA.L (A6+0xc),A0> {[-8-]}
<MI 23654 MOVE.L D7,D0> {[-8-]}
<MI 23656 ADD.L (A0),D0> {[-8-]}
<MI 23658 SUBQ.L #0x1,D0> {[-8-]}
<MI 2365a SUBQ.L #0x1,D0> {[-8-]}
<POP 0x2365c LimitCheck 0x0 ≤ D0 ≤ 0x1fff> {[-8-]}
<MI 23666 LEA.L 0x27340,A0> {[-8-]}
<MI 2366c MOVE.L D7,D1> {[-8-]}
<MI 2366e SUBQ.L #0x1,D1> {[-8-]}
<POP 0x23670 LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-8-]}
<MI 2367a MOVEA.L (A7+0x4),A1> {[-8-]}
<MI 2367e MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x8)> {[-8-]}
<MI 23684 ADDQ.L #0x1,D7> {[-8-]}
<MI 23686 BVC 0x2364e> {[-8-]}
<POP 23688-23696 Naked> Σ-8 Δ+8 ↓ ←0x2364e
<POP 23688-2368a StackAdj> Δ+4 {[-4-]}
<MI 2368a MOVEA.L (A6+0xc),A0> {[-4-]}
<MI 2368c MOVEA.L (A7),A1> {[-4-]}
<MI 2368e MOVE.W (A1),D0> {[-4-]}
<MI 23690 EXTW.L D0> {[-4-]}
<MI 23692 ADD.L D0,(A0)> {[-4-]}
<POP 23694-23696 StackAdj> Δ+4 {}
<POP 23696-2369e Epilogue> Σ0
@ 2369e
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 2369e-2381e Body>
<POP 2369e-236b4 Prologue> Σ0 ↓
<POP 236b4-236c2 RegCacheLoad> Σ0 ↓
<POP 236c2-236d4 Naked> Σ0 ↓
<MI 236c2 MOVEQ.L #0x00,D7> {}
<MI 236c4 MOVEA.L (A6+0xc),A0> {}
<MI 236c8 CLR.L (A0)> {}
<MI 236ca MOVEA.L (A6+0x8),A0> {}
<MI 236cc CLR.L (A0)> {}
<MI 236ce MOVE.L 0x29348,D6> {}
<POP 236d4-236f4 Naked> Σ0 ↓ →0x237c6 ←0x237d0 ←0x237d6
<MI 236d4 MOVE.L D6,D0> {}
<MI 236d6 SUBQ.L #0x1,D0> {}
<POP 0x236d8 LimitCheck 0x0 ≤ D0 ≤ 0x1fff> {}
<MI 236e2 LEA.L 0x27340,A0> {}
<MI 236e8 MOVE.B (A0+D0.L+#0x8),D0> {}
<MI 236ec CMPI.B #0x5b,D0> {}
<MI 236f0 BNE 0x237c6> {}
<POP 236f4-23708 Naked> Σ0 ↓ →0x23786
<POP 236f4-236f6 StackAdj> Δ-2 {[-2-]}
<MI 236f6 MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x236f8 0x1.4> Δ-4 {[-2-]|[4, 'D6']|[##1]}
<Const 0x236fc 0x3.4> Δ-4 {[-2-]|[4, 'D6']|[##1]|[##3]}
<Call 0x23700 0x23504> {[-2-]|[4, 'D6']|[##1]|[##3]}
<POP 23702-23704 StackAdj> Δ+12 {[-2-]}
<MI 23704 TST.B (A7)+> Δ+2 {}
<MI 23706 BNE 0x23786> {}
<POP 23708-2371a Naked> Σ0 ↓ →0x23786
<POP 23708-2370a StackAdj> Δ-2 {[-2-]}
<MI 2370a MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x2370c 0x4.4> Δ-4 {[-2-]|[4, 'D6']|[##4]}
<Const 0x2370e 0x3.4> Δ-4 {[-2-]|[4, 'D6']|[##4]|[##3]}
<Call 0x23712 0x23504> {[-2-]|[4, 'D6']|[##4]|[##3]}
<POP 23714-23716 StackAdj> Δ+12 {[-2-]}
<MI 23716 TST.B (A7)+> Δ+2 {}
<MI 23718 BNE 0x23786> {}
<POP 2371a-2372c Naked> Σ0 ↓ →0x23786
<POP 2371a-2371c StackAdj> Δ-2 {[-2-]}
<MI 2371c MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x2371e 0x7.4> Δ-4 {[-2-]|[4, 'D6']|[##7]}
<Const 0x23722 0x4.4> Δ-4 {[-2-]|[4, 'D6']|[##7]|[##4]}
<Call 0x23724 0x23504> {[-2-]|[4, 'D6']|[##7]|[##4]}
<POP 23726-23728 StackAdj> Δ+12 {[-2-]}
<MI 23728 TST.B (A7)+> Δ+2 {}
<MI 2372a BNE 0x23786> {}
<POP 2372c-2373e Naked> Σ0 ↓ →0x23786
<POP 2372c-2372e StackAdj> Δ-2 {[-2-]}
<MI 2372e MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x23730 0xb.4> Δ-4 {[-2-]|[4, 'D6']|[##11]}
<Const 0x23734 0x4.4> Δ-4 {[-2-]|[4, 'D6']|[##11]|[##4]}
<Call 0x23736 0x23504> {[-2-]|[4, 'D6']|[##11]|[##4]}
<POP 23738-2373a StackAdj> Δ+12 {[-2-]}
<MI 2373a TST.B (A7)+> Δ+2 {}
<MI 2373c BNE 0x23786> {}
<POP 2373e-23750 Naked> Σ0 ↓ →0x23786
<POP 2373e-23740 StackAdj> Δ-2 {[-2-]}
<MI 23740 MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x23742 0xf.4> Δ-4 {[-2-]|[4, 'D6']|[##15]}
<Const 0x23746 0x4.4> Δ-4 {[-2-]|[4, 'D6']|[##15]|[##4]}
<Call 0x23748 0x23504> {[-2-]|[4, 'D6']|[##15]|[##4]}
<POP 2374a-2374c StackAdj> Δ+12 {[-2-]}
<MI 2374c TST.B (A7)+> Δ+2 {}
<MI 2374e BNE 0x23786> {}
<POP 23750-23762 Naked> Σ0 ↓ →0x23786
<POP 23750-23752 StackAdj> Δ-2 {[-2-]}
<MI 23752 MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x23754 0x13.4> Δ-4 {[-2-]|[4, 'D6']|[##19]}
<Const 0x23758 0x4.4> Δ-4 {[-2-]|[4, 'D6']|[##19]|[##4]}
<Call 0x2375a 0x23504> {[-2-]|[4, 'D6']|[##19]|[##4]}
<POP 2375c-2375e StackAdj> Δ+12 {[-2-]}
<MI 2375e TST.B (A7)+> Δ+2 {}
<MI 23760 BNE 0x23786> {}
<POP 23762-23774 Naked> Σ0 ↓ →0x23786
<POP 23762-23764 StackAdj> Δ-2 {[-2-]}
<MI 23764 MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x23766 0x17.4> Δ-4 {[-2-]|[4, 'D6']|[##23]}
<Const 0x2376a 0x4.4> Δ-4 {[-2-]|[4, 'D6']|[##23]|[##4]}
<Call 0x2376c 0x23504> {[-2-]|[4, 'D6']|[##23]|[##4]}
<POP 2376e-23770 StackAdj> Δ+12 {[-2-]}
<MI 23770 TST.B (A7)+> Δ+2 {}
<MI 23772 BNE 0x23786> {}
<POP 23774-23786 Naked> Σ0 ↓ →0x2378a
<POP 23774-23776 StackAdj> Δ-2 {[-2-]}
<MI 23776 MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x23778 0x1b.4> Δ-4 {[-2-]|[4, 'D6']|[##27]}
<Const 0x2377c 0x4.4> Δ-4 {[-2-]|[4, 'D6']|[##27]|[##4]}
<Call 0x2377e 0x23504> {[-2-]|[4, 'D6']|[##27]|[##4]}
<POP 23780-23782 StackAdj> Δ+12 {[-2-]}
<MI 23782 TST.B (A7)+> Δ+2 {}
<MI 23784 BEQ 0x2378a> {}
<POP 23786-2378a Naked> Σ0 →0x237c6 ←0x236f4 ←0x23708 ←0x2371a ←0x2372c ←0x2373e ←0x23750 ←0x23762
<MI 23786 ADDQ.L #0x1,D7> {}
<MI 23788 BRA 0x237c6> {}
<POP 2378a-2378e Naked> Σ0 ↓ →0x237aa ←0x23774
<MI 2378a TST.L D7> {}
<MI 2378c BNE 0x237aa> {}
<POP 2378e-237a2 Naked> Σ0 ↓ →0x237aa
<POP 2378e-23790 StackAdj> Δ-2 {[-2-]}
<MI 23790 MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x23792 0x1f.4> Δ-4 {[-2-]|[4, 'D6']|[##31]}
<Const 0x23796 0x5.4> Δ-4 {[-2-]|[4, 'D6']|[##31]|[##5]}
<Call 0x2379a 0x23504> {[-2-]|[4, 'D6']|[##31]|[##5]}
<POP 2379c-2379e StackAdj> Δ+12 {[-2-]}
<MI 2379e TST.B (A7)+> Δ+2 {}
<MI 237a0 BEQ 0x237aa> {}
<POP 237a2-237a6 Naked> Σ0 ↓
<MI 237a2 MOVEA.L (A6+0xc),A0> {}
<POP 237a6-237aa Naked> Σ0 →0x237c6 ←0x237c0
<MI 237a6 MOVE.L D6,(A0)> {}
<MI 237a8 BRA 0x237c6> {}
<POP 237aa-237bc Naked> Σ0 ↓ →0x237c6 ←0x2378a ←0x2378e
<POP 237aa-237ac StackAdj> Δ-2 {[-2-]}
<MI 237ac MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x237ae 0x24.4> Δ-4 {[-2-]|[4, 'D6']|[##36]}
<Const 0x237b2 0x4.4> Δ-4 {[-2-]|[4, 'D6']|[##36]|[##4]}
<Call 0x237b4 0x23504> {[-2-]|[4, 'D6']|[##36]|[##4]}
<POP 237b6-237b8 StackAdj> Δ+12 {[-2-]}
<MI 237b8 TST.B (A7)+> Δ+2 {}
<MI 237ba BEQ 0x237c6> {}
<POP 237bc-237c0 Naked> Σ0 ↓ →0x237c4
<MI 237bc TST.L D7> {}
<MI 237be BNE 0x237c4> {}
<POP 237c0-237c4 Naked> Σ0 →0x237a6
<MI 237c0 MOVEA.L (A6+0x8),A0> {}
<MI 237c2 BRA 0x237a6> {}
<POP 237c4-237c6 Naked> Σ0 ↓ ←0x237bc
<MI 237c4 SUBQ.L #0x1,D7> {}
<POP 237c6-237d0 Naked> Σ0 ↓ →0x237de ←0x236d4 ←0x23786 ←0x237a6 ←0x237aa
<MI 237c6 ADDQ.L #0x1,D6> {}
<MI 237c8 CMP.L 0x2934c,D6> {}
<MI 237ce BGT 0x237de> {}
<POP 237d0-237d6 Naked> Σ0 ↓ →0x236d4
<MI 237d0 TST.L D7> {}
<MI 237d2 BNE 0x236d4> {}
<POP 237d6-237de Naked> Σ0 ↓ →0x236d4
<MI 237d6 MOVEA.L (A6+0x8),A0> {}
<MI 237d8 TST.L (A0)> {}
<MI 237da BEQ 0x236d4> {}
<POP 237de-237e6 Naked> Σ0 ↓ →0x23816 ←0x237c6
<MI 237de CMP.L 0x2934c,D6> {}
<MI 237e4 BLE 0x23816> {}
<POP 237e6-23816 Naked> Σ0 ↓
<Blob 0x237e6 [28] @> Δ-28 {[«28""»]}
<POP 237f8-237fa StackAdj> Δ-4 {[«28""»]|[-4-]}
<Lit 0x237fa 27> {[«28""»]|[$$Unbalanced [ELSE] or [END]!]}
<Call 0x2380e 0x23036> {[«28""»]|[$$Unbalanced [ELSE] or [END]!]}
<POP 23812-23816 StackAdj> Δ+32 {}
<POP 23816-2381e Epilogue> Σ0 ←0x237de
@ 2381e
<LVAR -0x004 @ 4(r)>
<LVAR -0x008 @ 4(rw)>
<POP 2381e-23864 Body>
<POP 2381e-23834 Prologue> Σ0 ↓
<POP 23834-2383c RegCacheLoad> Σ0 ↓
<POP 2383c-2384a Naked> Σ0 ↓ →0x2384c
<Pointer.fp 0x2383c <LVAR -0x008 @ 4(rw)>> Δ-4 {[@@-8]}
<Pointer.fp 0x2383e <LVAR -0x004 @ 4(r)>> Δ-4 {[@@-8]|[@@-4]}
<Call 0x23840 0x2369e> {[@@-8]|[@@-4]}
<POP 23844-23846 StackAdj> Δ+8 {}
<MI 23846 TST.L (A6-0x8)> {}
<MI 23848 BNE 0x2384c> {}
<POP 2384a-2384c Naked> Σ0 ↓
<MI 2384a MOVE.L (A6-0x4),(A6-0x8)> {}
<POP 2384c-2385c Naked> Σ0 ↓ ←0x2383c
<MI 2384c MOVE.L (A6-0x4),D0> {}
<MI 2384e ADDQ.L #0x5,D0> {}
<MI 23850 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 23852 SUB.L (A6-0x8),D0> {[4, 'D0']}
<MI 23854 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']|[4, 'D0']}
<Call 0x23856 0x2358a> {[4, 'D0']|[4, 'D0']}
<POP 2385a-2385c StackAdj> Δ+8 {}
<POP 2385c-23864 Epilogue> Σ0
@ 23864
<LVAR -0x004 @ 4(r)>
<LVAR -0x008 @ 4(r)>
<POP 23864-238c0 Body>
<POP 23864-2387a Prologue> Σ0 ↓
<POP 2387a-23882 RegCacheLoad> Σ0 ↓
<POP 23882-23890 Naked> Σ0 ↓ →0x23896
<Pointer.fp 0x23882 <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-8]}
<Pointer.fp 0x23884 <LVAR -0x004 @ 4(r)>> Δ-4 {[@@-8]|[@@-4]}
<Call 0x23886 0x2369e> {[@@-8]|[@@-4]}
<POP 2388a-2388c StackAdj> Δ+8 {}
<MI 2388c TST.L (A6-0x8)> {}
<MI 2388e BNE 0x23896> {}
<POP 23890-23896 Naked> Σ0 →0x238a8
<MI 23890 MOVE.L (A6-0x4),D0> {}
<MI 23892 ADDQ.L #0x5,D0> {}
<MI 23894 BRA 0x238a8> {}
<POP 23896-238a8 Naked> Σ0 ↓ ←0x23882
<MI 23896 MOVE.L (A6-0x4),-(A7)> Δ-4 {[4, '(A6-0x4)']}
<MI 23898 ADDQ.L #0x5,(A7)> {[-4-]}
<Const 0x2389a 0x5.4> Δ-4 {[-4-]|[##5]}
<Call 0x2389e 0x2358a> {[-4-]|[##5]}
<POP 238a2-238a4 StackAdj> Δ+8 {}
<MI 238a4 MOVE.L (A6-0x8),D0> {}
<MI 238a6 ADDQ.L #0x6,D0> {}
<POP 238a8-238b8 Naked> Σ0 ↓ ←0x23890
<MI 238a8 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 238aa SUB.L 0x29348,D0> {[4, 'D0']}
<MI 238b0 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']|[4, 'D0']}
<Call 0x238b2 0x2358a> {[4, 'D0']|[4, 'D0']}
<POP 238b6-238b8 StackAdj> Δ+8 {}
<POP 238b8-238c0 Epilogue> Σ0
@ 238c0
<LVAR 0x008 4(r)>
<LVAR -0x004 @>
<LVAR -0x008 @ 4(r)>
<LVAR -0x00c @ 4(rw)>
<LVAR -0x010 4(rw)>
<LVAR -0x014 4(rw)>
<POP 238c0-239d4 Body>
<POP 238c0-238d6 Prologue> Σ0 ↓
<POP 238d6-238ee RegCacheLoad> Σ0 ↓
<POP 238ee-238f2 Naked> Σ0 ↓ →0x238fc
<MI 238ee TST.B 0x2935a> {}
<MI 238f0 BEQ 0x238fc> {}
<POP 238f2-238f6 Naked> Σ0 ↓ →0x238fc
<MI 238f2 TST.L 0x29360> {}
<MI 238f4 BNE 0x238fc> {}
<POP 238f6-238fc Naked> Σ0 ↓
<MI 238f6 MOVE.L (A6+0x8),0x29360> {}
<MI 238fa SUBQ.L #0x1,0x29360> {}
<POP 238fc-23902 Naked> Σ0 ↓ →0x239cc ←0x238ee ←0x238f2
<MI 238fc TST.B 0x2935a> {}
<MI 238fe BNE 0x239cc> {}
<POP 23902-23936 Naked> Σ0 ↓ →0x23950
<MI 23902 MOVE.L (A6+0x8),0x29348> {}
<MI 23906 ADDQ.L #0x6,0x29348> {}
<Pointer.fp 0x23908 <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-8]}
<Pointer.fp 0x2390a <LVAR -0x004 @>> Δ-4 {[@@-8]|[@@-4]}
<Call 0x2390e 0x23396> {[@@-8]|[@@-4]}
<POP 23912-23914 StackAdj> Δ+8 {}
<Blob 0x23914 [10] @> Δ-10 {[«10""»]}
<MI 23920 MOVE.L (A6-0x8),-(A7)> Δ-4 {[«10""»]|[4, '(A6-0x8)']}
<Const 0x23922 0x0.4> Δ-4 {[«10""»]|[4, '(A6-0x8)']|[##0]}
<Call 0x23926 0x23478> {[«10""»]|[4, '(A6-0x8)']|[##0]}
<POP 2392a-2392e StackAdj> Δ+18 {}
<MI 2392e TST.B 0x29364> {}
<MI 23934 BEQ 0x23950> {}
<POP 23936-23950 Naked> Σ0 →0x23964
<POP 23936-23938 StackAdj> Δ-8 {[-8-]}
<MI 23938 MOVE.L (A6-0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x8)']}
<Const 0x2393a 0x0.4> Δ-4 {[-8-]|[4, '(A6-0x8)']|[##0]}
<Call 0x2393e 0x23d90> {[-8-]|[4, '(A6-0x8)']|[##0]}
<POP 23944-23946 StackAdj> Δ+8 {[-8-]}
<MI 23946 MOVE.L (A7)+,(A6-0x14)> Δ+4 {[-4-]}
<MI 2394a MOVE.L (A7)+,(A6-0x10)> Δ+4 {}
<MI 2394e BRA 0x23964> {}
<POP 23950-23964 Naked> Σ0 ↓ ←0x23902
<POP 23950-23952 StackAdj> Δ-4 {[-4-]}
<MI 23952 MOVE.L (A6-0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x8)']}
<Const 0x23954 0x0.4> Δ-4 {[-4-]|[4, '(A6-0x8)']|[##0]}
<Call 0x23958 0x23d5e> {[-4-]|[4, '(A6-0x8)']|[##0]}
<POP 2395e-23960 StackAdj> Δ+8 {[-4-]}
<MI 23960 MOVE.L (A7)+,(A6-0xc)> Δ+4 {}
<POP 23964-2397a Naked> Σ0 ↓ →0x239a4 ←0x23936
<MI 23964 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<Call 0x23966 0x22ff4> {[4, '(A6-0x8)']}
<POP 2396a-2396c StackAdj> Δ+4 {}
<MI 2396c MOVE.L 0x29348,0x2935c> {}
<MI 23972 TST.B 0x29364> {}
<MI 23978 BEQ 0x239a4> {}
<POP 2397a-239a4 Naked> Σ0 →0x239cc
<POP 2397a-2397c StackAdj> Δ-2 {[-2-]}
<MI 2397c MOVE.L (A6-0x10),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x10)']}
<MI 23980 MOVE.L (A6-0x14),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<Blob 0x23984 [4] 0x2936e> Δ-4 {[-2-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']|[«4»]}
<Blob 0x2398a [4] 0x2936a> Δ-4 {[-2-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']|[«4»]|[«4»]}
<Call 0x23990 0x1032c> {[-2-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']|[«4»]|[«4»]}
IsEqual(a, b : Quad) : Bool
<POP 23996-2399a StackAdj> Δ+16 {[-2-]}
<MI 2399a MOVE.B (A7)+,D0> Δ+2 {}
<MI 2399c EXTB.W D0> {}
<POP 0x2399e LimitCheck 0x0 ≤ D0 ≤ 0x1> {}
<MI 239a0 MOVE.B D0,0x2935a> {}
<MI 239a2 BRA 0x239cc> {}
<POP 239a4-239cc Naked> Σ0 ↓ ←0x23964
<POP 239a4-239a6 StackAdj> Δ-2 {[-2-]}
<MI 239a6 MOVE.L (A6-0xc),-(A7)> Δ-4 {[-2-]|[4, '(A6-0xc)']}
<Blob 0x239aa [4] 0x29366> Δ-4 {[-2-]|[4, '(A6-0xc)']|[«4»]}
<Call 0x239b0 0x102c8> {[-2-]|[4, '(A6-0xc)']|[«4»]}
StringEqual(a, b : String) : Byte
<POP 239b6-239b8 StackAdj> Δ+8 {[-2-]}
<MI 239b8 MOVE.B (A7)+,D0> Δ+2 {}
<MI 239ba EXTB.W D0> {}
<POP 0x239bc LimitCheck 0x0 ≤ D0 ≤ 0x1> {}
<MI 239be MOVE.B D0,0x2935a> {}
<Pointer.fp 0x239c0 <LVAR -0x00c @ 4(rw)>> Δ-4 {[@@-12]}
<Call 0x239c4 0x102bc> {[@@-12]}
FreeString(VAR a : String)
<POP 239ca-239cc StackAdj> Δ+4 {}
<POP 239cc-239d4 Epilogue> Σ0 ←0x238fc ←0x2397a
@ 239d4
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 239d4-23b56 Body>
<POP 239d4-239ea Prologue> Σ0 ↓
<POP 239ea-239fe RegCacheLoad> Σ0 ↓
<POP 239fe-23a12 Naked> Σ0 ↓
<MI 239fe CLR.B 0x2935a> {}
<MI 23a00 CLR.L 0x2935c> {}
<MI 23a06 CLR.L 0x29360> {}
<MI 23a08 MOVEQ.L #0x00,D7> {}
<MI 23a0a MOVEQ.L #0x00,D6> {}
<MI 23a0c MOVE.L 0x29348,D5> {}
<POP 23a12-23a18 Naked> Σ0 ↓ →0x23ab6 ←0x23ab2
<MI 23a12 TST.L D6> {}
<MI 23a14 BNE 0x23ab6> {}
<POP 23a18-23a22 Naked> Σ0 ↓ →0x23ab6
<MI 23a18 CMP.L 0x2934c,D5> {}
<MI 23a1e BGT 0x23ab6> {}
<POP 23a22-23a40 Naked> Σ0 ↓ →0x23aac
<MI 23a22 MOVE.L D5,D0> {}
<MI 23a24 SUBQ.L #0x1,D0> {}
<POP 0x23a26 LimitCheck 0x0 ≤ D0 ≤ 0x1fff> {}
<MI 23a30 LEA.L 0x27340,A0> {}
<MI 23a36 MOVE.B (A0+D0.L+#0x8),D0> {}
<MI 23a3a CMPI.B #0x5b,D0> {}
<MI 23a3e BNE 0x23aac> {}
<POP 23a40-23a54 Naked> Σ0 ↓ →0x23a68
<POP 23a40-23a42 StackAdj> Δ-2 {[-2-]}
<MI 23a42 MOVE.L D5,-(A7)> Δ-4 {[-2-]|[4, 'D5']}
<Const 0x23a44 0x28.4> Δ-4 {[-2-]|[4, 'D5']|[##40]}
<Const 0x23a48 0x5.4> Δ-4 {[-2-]|[4, 'D5']|[##40]|[##5]}
<Call 0x23a4c 0x23504> {[-2-]|[4, 'D5']|[##40]|[##5]}
<POP 23a4e-23a50 StackAdj> Δ+12 {[-2-]}
<MI 23a50 TST.B (A7)+> Δ+2 {}
<MI 23a52 BNE 0x23a68> {}
<POP 23a54-23a68 Naked> Σ0 ↓ →0x23a6c
<POP 23a54-23a56 StackAdj> Δ-2 {[-2-]}
<MI 23a56 MOVE.L D5,-(A7)> Δ-4 {[-2-]|[4, 'D5']}
<Const 0x23a58 0x2d.4> Δ-4 {[-2-]|[4, 'D5']|[##45]}
<Const 0x23a5c 0x6.4> Δ-4 {[-2-]|[4, 'D5']|[##45]|[##6]}
<Call 0x23a60 0x23504> {[-2-]|[4, 'D5']|[##45]|[##6]}
<POP 23a62-23a64 StackAdj> Δ+12 {[-2-]}
<MI 23a64 TST.B (A7)+> Δ+2 {}
<MI 23a66 BEQ 0x23a6c> {}
<POP 23a68-23a6c Naked> Σ0 →0x23aac ←0x23a40
<MI 23a68 ADDQ.L #0x1,D7> {}
<MI 23a6a BRA 0x23aac> {}
<POP 23a6c-23a70 Naked> Σ0 ↓ →0x23a8e ←0x23a54
<MI 23a6c TST.L D7> {}
<MI 23a6e BNE 0x23a8e> {}
<POP 23a70-23a84 Naked> Σ0 ↓ →0x23a8e
<POP 23a70-23a72 StackAdj> Δ-2 {[-2-]}
<MI 23a72 MOVE.L D5,-(A7)> Δ-4 {[-2-]|[4, 'D5']}
<Const 0x23a74 0x33.4> Δ-4 {[-2-]|[4, 'D5']|[##51]}
<Const 0x23a78 0x5.4> Δ-4 {[-2-]|[4, 'D5']|[##51]|[##5]}
<Call 0x23a7c 0x23504> {[-2-]|[4, 'D5']|[##51]|[##5]}
<POP 23a7e-23a80 StackAdj> Δ+12 {[-2-]}
<MI 23a80 TST.B (A7)+> Δ+2 {}
<MI 23a82 BEQ 0x23a8e> {}
<POP 23a84-23a8e Naked> Σ0 →0x23aac
<MI 23a84 MOVE.L D5,-(A7)> Δ-4 {[4, 'D5']}
<Call 0x23a86 0x238c0> {[4, 'D5']}
<POP 23a8a-23a8c StackAdj> Δ+4 {}
<MI 23a8c BRA 0x23aac> {}
<POP 23a8e-23aa2 Naked> Σ0 ↓ →0x23aac ←0x23a6c ←0x23a70
<POP 23a8e-23a90 StackAdj> Δ-2 {[-2-]}
<MI 23a90 MOVE.L D5,-(A7)> Δ-4 {[-2-]|[4, 'D5']}
<Const 0x23a92 0x38.4> Δ-4 {[-2-]|[4, 'D5']|[##56]}
<Const 0x23a96 0x8.4> Δ-4 {[-2-]|[4, 'D5']|[##56]|[##8]}
<Call 0x23a9a 0x23504> {[-2-]|[4, 'D5']|[##56]|[##8]}
<POP 23a9c-23a9e StackAdj> Δ+12 {[-2-]}
<MI 23a9e TST.B (A7)+> Δ+2 {}
<MI 23aa0 BEQ 0x23aac> {}
<POP 23aa2-23aa6 Naked> Σ0 ↓ →0x23aaa
<MI 23aa2 TST.L D7> {}
<MI 23aa4 BNE 0x23aaa> {}
<POP 23aa6-23aaa Naked> Σ0 →0x23aac
<MI 23aa6 MOVE.L D5,D6> {}
<MI 23aa8 BRA 0x23aac> {}
<POP 23aaa-23aac Naked> Σ0 ↓ ←0x23aa2
<MI 23aaa SUBQ.L #0x1,D7> {}
<POP 23aac-23ab0 Naked> Σ0 ↓ →0x23ab2 ←0x23a22 ←0x23a68 ←0x23a84 ←0x23a8e ←0x23aa6
<MI 23aac TST.L D6> {}
<MI 23aae BNE 0x23ab2> {}
<POP 23ab0-23ab2 Naked> Σ0 ↓
<MI 23ab0 ADDQ.L #0x1,D5> {}
<POP 23ab2-23ab6 Naked> Σ0 →0x23a12 ←0x23aac
<MI 23ab2 BRA 0x23a12> {}
<POP 23ab6-23abe Naked> Σ0 ↓ →0x23acc ←0x23a12 ←0x23a18
<MI 23ab6 TST.B 0x29364> {}
<MI 23abc BNE 0x23acc> {}
<POP 23abe-23acc Naked> Σ0 ↓
<Const 0x23abe 0x29366.4> Δ-4 {[##168806]}
<Call 0x23ac4 0x102bc> {[##168806]}
FreeString(VAR a : String)
<POP 23aca-23acc StackAdj> Δ+4 {}
<POP 23acc-23ad0 Naked> Σ0 ↓ →0x23af8 ←0x23ab6
<MI 23acc TST.B 0x2935a> {}
<MI 23ace BNE 0x23af8> {}
<POP 23ad0-23af8 Naked> Σ0 ↓
<Blob 0x23ad0 [26] @> Δ-26 {[«26""»]}
<POP 23adc-23ade StackAdj> Δ-4 {[«26""»]|[-4-]}
<Lit 0x23ade 26> {[«26""»]|[$$No case alternative found!]}
<Call 0x23af0 0x23036> {[«26""»]|[$$No case alternative found!]}
<POP 23af4-23af8 StackAdj> Δ+30 {}
<POP 23af8-23afc Naked> Σ0 ↓ →0x23b2a ←0x23acc
<MI 23af8 TST.L D6> {}
<MI 23afa BNE 0x23b2a> {}
<POP 23afc-23b2a Naked> Σ0 ↓
<Blob 0x23afc [20] @> Δ-20 {[«20""»]}
<POP 23b0e-23b10 StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x23b10 19> {[«20""»]|[$$No [ENDCASE] found!]}
<Call 0x23b22 0x23036> {[«20""»]|[$$No [ENDCASE] found!]}
<POP 23b26-23b2a StackAdj> Δ+24 {}
<POP 23b2a-23b3e Naked> Σ0 ↓ →0x23b48 ←0x23af8
<MI 23b2a MOVEA.L (A6+0x8),A0> {}
<MI 23b2e MOVE.L D6,(A0)> {}
<MI 23b30 MOVEA.L (A6+0x10),A0> {}
<MI 23b34 MOVE.L 0x2935c,(A0)> {}
<MI 23b3a TST.L 0x29360> {}
<MI 23b3c BNE 0x23b48> {}
<POP 23b3e-23b48 Naked> Σ0 →0x23b4e
<MI 23b3e MOVEA.L (A6+0xc),A0> {}
<MI 23b42 MOVE.L D6,(A0)> {}
<MI 23b44 SUBQ.L #0x1,(A0)> {}
<MI 23b46 BRA 0x23b4e> {}
<POP 23b48-23b4e Naked> Σ0 ↓ ←0x23b2a
<MI 23b48 MOVEA.L (A6+0xc),A0> {}
<MI 23b4c MOVE.L 0x29360,(A0)> {}
<POP 23b4e-23b56 Epilogue> Σ0 ←0x23b3e
@ 23b56
<LVAR 0x008 4(r)>
<LVAR -0x008 @ 4(r)>
<LVAR -0x00c @ 4(r)>
<LVAR -0x010 @ 4(r)>
<POP 23b56-23bca Body>
<POP 23b56-23b6c Prologue> Σ0 ↓
<POP 23b6c-23b76 RegCacheLoad> Σ0 ↓
<POP 23b76-23bc2 Naked> Σ0 ↓
<MI 23b76 MOVE.L 0x29348,D6> {}
<MI 23b78 CLR.B 0x29364> {}
<MI 23b7e MOVE.L (A6+0x8),0x29366> {}
<MI 23b86 MOVE.L 0x29348,D7> {}
<Pointer.fp 0x23b88 <LVAR -0x010 @ 4(r)>> Δ-4 {[@@-16]}
<Pointer.fp 0x23b8a <LVAR -0x00c @ 4(r)>> Δ-4 {[@@-16]|[@@-12]}
<Pointer.fp 0x23b8e <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-16]|[@@-12]|[@@-8]}
<Call 0x23b92 0x239d4> {[@@-16]|[@@-12]|[@@-8]}
<POP 23b96-23b9a StackAdj> Δ+12 {}
<MI 23b9a MOVE.L D6,0x29348> {}
<MI 23b9c MOVE.L (A6-0x8),D0> {}
<MI 23ba0 ADDI.L #0x00000009,D0> {}
<MI 23ba6 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 23ba8 SUB.L (A6-0xc),D0> {[4, 'D0']}
<MI 23bac SUBQ.L #0x1,D0> {[4, 'D0']}
<MI 23bae MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']|[4, 'D0']}
<Call 0x23bb0 0x2358a> {[4, 'D0']|[4, 'D0']}
<POP 23bb4-23bb6 StackAdj> Δ+4 {[4, 'D0']}
<MI 23bb6 MOVE.L (A6-0x10),(A7)> {[4, '(A6-0x10)']}
<MI 23bb8 MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0x10)']|[4, '(A6-0x10)']}
<MI 23bba SUB.L D7,(A7)> {[4, '(A6-0x10)']|[-4-]}
<Call 0x23bbc 0x2358a> {[4, '(A6-0x10)']|[-4-]}
<POP 23bc0-23bc2 StackAdj> Δ+8 {}
<POP 23bc2-23bca Epilogue> Σ0
@ 23bca
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x008 @ 4(r)>
<LVAR -0x00c @ 4(r)>
<LVAR -0x010 @ 4(r)>
<POP 23bca-23c48 Body>
<POP 23bca-23be0 Prologue> Σ0 ↓
<POP 23be0-23bea RegCacheLoad> Σ0 ↓
<POP 23bea-23c40 Naked> Σ0 ↓
<MI 23bea MOVE.L 0x29348,D6> {}
<MI 23bec MOVE.B #0x01,0x29364> {}
<MI 23bf4 MOVE.L (A6+0x8),0x2936a> {}
<MI 23bfc MOVE.L (A6+0xc),0x2936e> {}
<MI 23c04 MOVE.L 0x29348,D7> {}
<Pointer.fp 0x23c06 <LVAR -0x010 @ 4(r)>> Δ-4 {[@@-16]}
<Pointer.fp 0x23c08 <LVAR -0x00c @ 4(r)>> Δ-4 {[@@-16]|[@@-12]}
<Pointer.fp 0x23c0c <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-16]|[@@-12]|[@@-8]}
<Call 0x23c10 0x239d4> {[@@-16]|[@@-12]|[@@-8]}
<POP 23c14-23c18 StackAdj> Δ+12 {}
<MI 23c18 MOVE.L D6,0x29348> {}
<MI 23c1a MOVE.L (A6-0x8),D0> {}
<MI 23c1e ADDI.L #0x00000009,D0> {}
<MI 23c24 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 23c26 SUB.L (A6-0xc),D0> {[4, 'D0']}
<MI 23c2a SUBQ.L #0x1,D0> {[4, 'D0']}
<MI 23c2c MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']|[4, 'D0']}
<Call 0x23c2e 0x2358a> {[4, 'D0']|[4, 'D0']}
<POP 23c32-23c34 StackAdj> Δ+4 {[4, 'D0']}
<MI 23c34 MOVE.L (A6-0x10),(A7)> {[4, '(A6-0x10)']}
<MI 23c36 MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0x10)']|[4, '(A6-0x10)']}
<MI 23c38 SUB.L D7,(A7)> {[4, '(A6-0x10)']|[-4-]}
<Call 0x23c3a 0x2358a> {[4, '(A6-0x10)']|[-4-]}
<POP 23c3e-23c40 StackAdj> Δ+8 {}
<POP 23c40-23c48 Epilogue> Σ0
@ 23c48
<LVAR 0x010 4(rw)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 23c48-23c80 Body>
<POP 23c48-23c5e Prologue> Σ0 ↓
<POP 23c5e-23c64 Naked> Σ0 ↓ →0x23c6a
<MI 23c5e TST.L (A6+0x8)> {}
<MI 23c62 BNE 0x23c6a> {}
<POP 23c64-23c6a Naked> Σ0 →0x23c78
<MI 23c64 CLR.L (A6+0x10)> {}
<MI 23c68 BRA 0x23c78> {}
<POP 23c6a-23c78 Naked> Σ0 ↓ ←0x23c5e
<MI 23c6a MOVE.L (A6+0xc),D0> {}
<MI 23c6e SUB.L (A6+0x8),D0> {}
<MI 23c72 ADDQ.L #0x1,D0> {}
<MI 23c74 MOVE.L D0,(A6+0x10)> {}
<POP 23c78-23c80 Epilogue> Σ0 ←0x23c64
@ 23c80
<LVAR 0x014 4(w)>
<LVAR 0x010 @ 4(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 23c80-23ce2 Body> Δ-4
<POP 23c80-23c96 Prologue> Σ0 ↓
<POP 23c96-23cac Naked> Σ0 Δ-4 ↓
<MI 23c96 MOVEA.L (A6+0xc),A4> {}
<MI 23c9a MOVE.L 0x22f4e,(A6+0x10)> {}
<MI 23ca0 MOVE.L 0x22f52,(A6+0x14)> {}
<MI 23ca6 MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<MI 23caa MOVEQ.L #0x00,D7> {[4, '(A6+0x8)']}
<POP 23cac-23cb0 Naked> Σ-4 ↓ →0x23cd8 ←0x23cd4
<MI 23cac CMP.L (A7),D7> {[-4-]}
<MI 23cae BGT 0x23cd8> {[-4-]}
<POP 23cb0-23cb6 Naked> Σ-4 ↓ →0x23cba
<MI 23cb0 CMPA.W #0x1,A4> {[-4-]}
<MI 23cb4 BNE 0x23cba> {[-4-]}
<POP 23cb6-23cba Naked> Σ-4 Δ+4 →0x23cda
<POP 23cb6-23cb8 StackAdj> Δ+4 {}
<MI 23cb8 BRA 0x23cda> {}
<POP 23cba-23cc0 Naked> Σ-4 ↓ →0x23cd0 ←0x23cb0
<MI 23cba CMP.L (A6+0x8),D7> {[-4-]}
<MI 23cbe BNE 0x23cd0> {[-4-]}
<POP 23cc0-23cd0 Naked> Σ-4 →0x23cd4
<MI 23cc0 LEA.L (A6+0x10),A0> {[-4-]}
<MI 23cc4 MOVEA.L A4,A1> {[-4-]}
<BlockMove 8,A1,A0> {[-4-]}
<MI 23cce BRA 0x23cd4> {[-4-]}
<POP 23cd0-23cd4 Naked> Σ-4 ↓ ←0x23cba
<MI 23cd0 MOVEA.L (A4+0x8),A4> {[-4-]}
<POP 23cd4-23cd8 Naked> Σ-4 ↓ →0x23cac ←0x23cc0
<MI 23cd4 ADDQ.L #0x1,D7> {[-4-]}
<MI 23cd6 BVC 0x23cac> {[-4-]}
<POP 23cd8-23cda Naked> Σ-4 Δ+4 ↓ ←0x23cac
<POP 23cd8-23cda StackAdj> Δ+4 {}
<POP 23cda-23ce2 Epilogue> Σ0 ←0x23cb6
@ 23ce2
<LVAR 0x010 4(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x008 @ 4(r)>
<POP 23ce2-23d5e Body> Δ-4
<POP 23ce2-23cf8 Prologue> Σ0 ↓
<POP 23cf8-23cfc RegCacheLoad> Σ0 ↓
<POP 23cfc-23d14 Naked> Σ0 Δ-4 ↓
<Pointer.fp 0x23cfc <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-8]}
<Call 0x23cfe 0x102b8> {[@@-8]}
NewString(VAR a : String)
<MI 23d04 MOVE.L (A6+0xc),-(A7)> Δ-4 {[@@-8]|[4, '(A6+0xc)']}
<MI 23d08 MOVE.L (A6+0x8),-(A7)> Δ-4 {[@@-8]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x23d0c 0x23c48> {[@@-8]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 23d10-23d12 StackAdj> Δ+8 {[@@-8]}
<MI 23d12 MOVEQ.L #0x01,D7> {[@@-8]}
<POP 23d14-23d18 Naked> Σ-4 ↓ →0x23d50 ←0x23d40
<MI 23d14 CMP.L (A7),D7> {[-4-]}
<MI 23d16 BGT 0x23d50> {[-4-]}
<POP 23d18-23d3c Naked> Σ-4 ↓ →0x23d40
<MI 23d18 MOVE.L D7,D0> {[-4-]}
<MI 23d1a ADD.L (A6+0x8),D0> {[-4-]}
<MI 23d1e SUBQ.L #0x1,D0> {[-4-]}
<MI 23d20 SUBQ.L #0x1,D0> {[-4-]}
<POP 0x23d22 LimitCheck 0x0 ≤ D0 ≤ 0x1fff> {[-4-]}
<MI 23d2c LEA.L 0x27340,A0> {[-4-]}
<MI 23d32 MOVE.B (A0+D0.L+#0x8),D6> {[-4-]}
<MI 23d36 CMPI.B #0x2f,D6> {[-4-]}
<MI 23d3a BNE 0x23d40> {[-4-]}
<POP 23d3c-23d40 Naked> Σ-4 Δ+4 →0x23d52
<POP 23d3c-23d3e StackAdj> Δ+4 {}
<MI 23d3e BRA 0x23d52> {}
<POP 23d40-23d50 Naked> Σ-4 ↓ →0x23d14 ←0x23d18
<MI 23d40 MOVE.L (A6-0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x8)']}
<MI 23d42 MOVE.B D6,-(A7)> Δ-2 {[-4-]|[4, '(A6-0x8)']|[2, 'D6']}
<Call 0x23d44 0x102c0> {[-4-]|[4, '(A6-0x8)']|[2, 'D6']}
AppendChar(MOD b : String; a : char)
<POP 23d4a-23d4c StackAdj> Δ+6 {[-4-]}
<MI 23d4c ADDQ.L #0x1,D7> {[-4-]}
<MI 23d4e BVC 0x23d14> {[-4-]}
<POP 23d50-23d52 Naked> Σ-4 Δ+4 ↓ ←0x23d14
<POP 23d50-23d52 StackAdj> Δ+4 {}
<POP 23d52-23d56 Naked> Σ0 ↓ ←0x23d3c
<MI 23d52 MOVE.L (A6-0x8),(A6+0x10)> {}
<POP 23d56-23d5e Epilogue> Σ0
@ 23d5e
<LVAR 0x010 4(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 23d5e-23d90 Body>
<POP 23d5e-23d70 Prologue> Σ0 ↓
<POP 23d70-23d8c Naked> Σ0 ↓
<POP 23d70-23d74 StackAdj> Δ-12 {[-12-]}
<MI 23d74 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-12-]|[4, '(A6+0xc)']}
<MI 23d78 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x23d7c 0x23c80> {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 23d80-23d82 StackAdj> Δ+8 {[-12-]}
<Call 0x23d82 0x23ce2> {[-12-]}
<POP 23d86-23d88 StackAdj> Δ+8 {[-4-]}
<MI 23d88 MOVE.L (A7)+,(A6+0x10)> Δ+4 {}
<POP 23d8c-23d90 Epilogue> Σ0
@ 23d90
<LVAR 0x014 4(w)>
<LVAR 0x010 4(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 23d90-23dcc Body>
<POP 23d90-23da2 Prologue> Σ0 ↓
<POP 23da2-23dc8 Naked> Σ0 ↓
<POP 23da2-23da6 StackAdj> Δ-12 {[-12-]}
<MI 23da6 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-12-]|[4, '(A6+0xc)']}
<MI 23daa MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x23dae 0x23d5e> {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 23db2-23db4 StackAdj> Δ+8 {[-12-]}
<Const 0x23db4 0x10.4> Δ-4 {[-12-]|[##16]}
<Call 0x23db8 0x10360> {[-12-]|[##16]}
?StringToInt64()
<POP 23dbe-23dc0 StackAdj> Δ+8 {[-8-]}
<MI 23dc0 MOVE.L (A7)+,(A6+0x10)> Δ+4 {[-4-]}
<MI 23dc4 MOVE.L (A7)+,(A6+0x14)> Δ+4 {}
<POP 23dc8-23dcc Epilogue> Σ0
@ 23dcc
<LVAR 0x010 4(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 23dcc-23e00 Body>
<POP 23dcc-23dde Prologue> Σ0 ↓
<POP 23dde-23dfc Naked> Σ0 ↓
<POP 23dde-23de2 StackAdj> Δ-12 {[-12-]}
<MI 23de2 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-12-]|[4, '(A6+0xc)']}
<MI 23de6 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x23dea 0x23d90> {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 23dee-23df0 StackAdj> Δ+8 {[-12-]}
<Call 0x23df0 0x10350> {[-12-]}
Quad2Long(a : Quad) : Long
<POP 23df6-23df8 StackAdj> Δ+8 {[-4-]}
<MI 23df8 MOVE.L (A7)+,(A6+0x10)> Δ+4 {}
<POP 23dfc-23e00 Epilogue> Σ0
@ 23e00
<LVAR 0x008 @ 4(r)>
<POP 23e00-23e88 Body>
<POP 23e00-23e16 Prologue> Σ0 ↓
<POP 23e16-23e1c RegCacheLoad> Σ0 ↓
<POP 23e1c-23e3a Naked> Σ0 Δ-8 ↓
<MI 23e1c MOVEA.L (A6+0x8),A0> {}
<MI 23e20 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Blob 0x23e22 [4] 0x29348> Δ-4 {[4, 'A0']|[«4»]}
<MI 23e24 MOVE.W (A0),D0> {[4, 'A0']|[«4»]}
<MI 23e26 EXTW.L D0> {[4, 'A0']|[«4»]}
<MI 23e28 NEG.L D0> {[4, 'A0']|[«4»]}
<MI 23e2a MOVE.L D0,-(A7)> Δ-4 {[4, 'A0']|[«4»]|[4, 'D0']}
<Call 0x23e2c 0x2358a> {[4, 'A0']|[«4»]|[4, 'D0']}
<POP 23e30-23e32 StackAdj> Δ+8 {[4, 'A0']}
<MI 23e32 MOVE.W (A0),D0> {[4, 'A0']}
<MI 23e34 EXTW.L D0> {[4, 'A0']}
<MI 23e36 MOVE.L D0,-(A7)> Δ-4 {[4, 'A0']|[4, 'D0']}
<MI 23e38 MOVEQ.L #0x01,D7> {[4, 'A0']|[4, 'D0']}
<POP 23e3a-23e3e Naked> Σ-8 ↓ →0x23e72 ←0x23e3e
<MI 23e3a CMP.L (A7),D7> {[-8-]}
<MI 23e3c BGT 0x23e72> {[-8-]}
<POP 23e3e-23e72 Naked> Σ-8 ↓ →0x23e3a
<MI 23e3e MOVE.L D7,D0> {[-8-]}
<MI 23e40 ADD.L 0x29348,D0> {[-8-]}
<MI 23e42 SUBQ.L #0x1,D0> {[-8-]}
<MI 23e44 SUBQ.L #0x1,D0> {[-8-]}
<POP 0x23e46 LimitCheck 0x0 ≤ D0 ≤ 0x1fff> {[-8-]}
<MI 23e50 LEA.L 0x27340,A0> {[-8-]}
<MI 23e56 MOVE.L D7,D1> {[-8-]}
<MI 23e58 SUBQ.L #0x1,D1> {[-8-]}
<POP 0x23e5a LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-8-]}
<MI 23e64 MOVEA.L (A7+0x4),A1> {[-8-]}
<MI 23e68 MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x8)> {[-8-]}
<MI 23e6e ADDQ.L #0x1,D7> {[-8-]}
<MI 23e70 BVC 0x23e3a> {[-8-]}
<POP 23e72-23e80 Naked> Σ-8 Δ+8 ↓ ←0x23e3a
<POP 23e72-23e74 StackAdj> Δ+8 {}
<Pointer.fp 0x23e74 <LVAR 0x008 @ 4(r)>> Δ-4 {[@@8]}
<Call 0x23e78 0x102bc> {[@@8]}
FreeString(VAR a : String)
<POP 23e7e-23e80 StackAdj> Δ+4 {}
<POP 23e80-23e88 Epilogue> Σ0
@ 23e88
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 23e88-23ebc Body>
<POP 23e88-23e9a Prologue> Σ0 ↓
<POP 23e9a-23eb8 Naked> Σ0 ↓
<POP 23e9a-23e9c StackAdj> Δ-4 {[-4-]}
<MI 23e9c MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']}
<MI 23ea0 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Const 0x23ea4 0x10.4> Δ-4 {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[##16]}
<Call 0x23ea8 0x1035c> {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[##16]}
Quad2String(a : Quad; radix : Long ) : String
<POP 23eae-23eb2 StackAdj> Δ+12 {[-4-]}
<Call 0x23eb2 0x23e00> {[-4-]}
<POP 23eb6-23eb8 StackAdj> Δ+4 {}
<POP 23eb8-23ebc Epilogue> Σ0
@ 23ebc
<LVAR 0x008 4(r)>
<POP 23ebc-23ee6 Body>
<POP 23ebc-23ece Prologue> Σ0 ↓
<POP 23ece-23ee2 Naked> Σ0 ↓
<POP 23ece-23ed0 StackAdj> Δ-4 {[-4-]}
<MI 23ed0 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x23ed4 0x102e4> {[-4-]|[4, '(A6+0x8)']}
Long2String(a : Long) : String
<POP 23eda-23edc StackAdj> Δ+4 {[-4-]}
<Call 0x23edc 0x23e00> {[-4-]}
<POP 23ee0-23ee2 StackAdj> Δ+4 {}
<POP 23ee2-23ee6 Epilogue> Σ0
@ 23ee6
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 4(r)>
<LVAR -0x008 4(rw)>
<POP 23ee6-23fb6 Body>
<POP 23ee6-23efc Prologue> Σ0 ↓
<POP 23efc-23f04 RegCacheLoad> Σ0 ↓
<POP 23f04-23f16 Naked> Σ0 ↓
<MI 23f04 MOVEA.L (A6+0x8),A0> {}
<MI 23f08 MOVE.L (A0+0x8),(A6-0x8)> {}
<Pointer.fp 0x23f0c <LVAR -0x004 @ 4(r)>> Δ-4 {[@@-4]}
<Call 0x23f0e 0x102b8> {[@@-4]}
NewString(VAR a : String)
<POP 23f14-23f16 StackAdj> Δ+4 {}
<POP 23f16-23f20 Naked> Σ0 ↓ →0x23fa4 ←0x23f8c
<MI 23f16 MOVEA.L (A6-0x8),A0> {}
<MI 23f18 CMPA.W #0x1,A0> {}
<MI 23f1c BEQ 0x23fa4> {}
<POP 23f20-23f24 Naked> Σ0 ↓ →0x23f8c
<MI 23f20 TST.L (A0)> {}
<MI 23f22 BEQ 0x23f8c> {}
<POP 23f24-23f2e Naked> Σ0 Δ-4 ↓ →0x23f42
<MI 23f24 MOVE.L (A0+0x4),-(A7)> Δ-4 {[4, '(A0+0x4)']}
<MI 23f28 MOVE.L (A0),D7> {[4, '(A0+0x4)']}
<MI 23f2a CMP.L (A7),D7> {[4, '(A0+0x4)']}
<MI 23f2c BGT 0x23f42> {[4, '(A0+0x4)']}
<POP 23f2e-23f42 Naked> Σ-4 ↓
<MI 23f2e MOVE.L (A7),D0> {[-4-]}
<POP 0x23f30 LimitCheck -0x7fffffff ≤ D7> {[-4-]}
<MI 23f30 CMPI.L #0x80000001,D7>
<MI 23f36 BLT 0x23f40>
<POP 0x23f38 LimitCheck D0 ≤ 0x7fffffff> {[-4-]}
<MI 23f38 CMPI.L #0x7fffffff,D0>
<MI 23f3e BLE 0x23f42>
<MI 23f40 TRAP #15>
<POP 23f42-23f46 Naked> Σ-4 ↓ →0x23f8a ←0x23f24 ←0x23f86
<MI 23f42 CMP.L (A7),D7> {[-4-]}
<MI 23f44 BGT 0x23f8a> {[-4-]}
<POP 23f46-23f72 Naked> Σ-4 ↓ →0x23f86
<MI 23f46 MOVE.L (A6-0x4),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x4)']}
<MI 23f48 MOVE.L D7,D0> {[-4-]|[4, '(A6-0x4)']}
<MI 23f4a SUBQ.L #0x1,D0> {[-4-]|[4, '(A6-0x4)']}
<POP 0x23f4c LimitCheck 0x0 ≤ D0 ≤ 0x1fff> {[-4-]|[4, '(A6-0x4)']}
<MI 23f56 LEA.L 0x27340,A0> {[-4-]|[4, '(A6-0x4)']}
<MI 23f5c MOVE.B (A0+D0.L+#0x8),-(A7)> Δ-2 {[-4-]|[4, '(A6-0x4)']|[2, '(A0+D0.L+#0x8)']}
<Call 0x23f60 0x102c0> {[-4-]|[4, '(A6-0x4)']|[2, '(A0+D0.L+#0x8)']}
AppendChar(MOD b : String; a : char)
<POP 23f66-23f68 StackAdj> Δ+6 {[-4-]}
<MI 23f68 MOVEA.L (A6-0x4),A0> {[-4-]}
<MI 23f6a MOVE.W (A0),D0> {[-4-]}
<MI 23f6c CMPI.W #0x007a,D0> {[-4-]}
<MI 23f70 BLT 0x23f86> {[-4-]}
<POP 23f72-23f86 Naked> Σ-4 ↓
<MI 23f72 MOVE.L (A6-0x4),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x4)']}
<Call 0x23f74 0x103d8> {[-4-]|[4, '(A6-0x4)']}
WriteConsoleString(str : String)
<POP 23f7a-23f7c StackAdj> Δ+4 {[-4-]}
<Pointer.fp 0x23f7c <LVAR -0x004 @ 4(r)>> Δ-4 {[-4-]|[@@-4]}
<Call 0x23f7e 0x102b8> {[-4-]|[@@-4]}
NewString(VAR a : String)
<POP 23f84-23f86 StackAdj> Δ+4 {[-4-]}
<POP 23f86-23f8a Naked> Σ-4 ↓ →0x23f42 ←0x23f46
<MI 23f86 ADDQ.L #0x1,D7> {[-4-]}
<MI 23f88 BVC 0x23f42> {[-4-]}
<POP 23f8a-23f8c Naked> Σ-4 Δ+4 ↓ ←0x23f42
<POP 23f8a-23f8c StackAdj> Δ+4 {}
<POP 23f8c-23fa4 Naked> Σ0 →0x23f16 ←0x23f20
<MI 23f8c MOVE.L (A6-0x4),-(A7)> Δ-4 {[4, '(A6-0x4)']}
<Const 0x23f8e 0x20.2> Δ-2 {[4, '(A6-0x4)']|[#32]}
<Call 0x23f92 0x102c0> {[4, '(A6-0x4)']|[#32]}
AppendChar(MOD b : String; a : char)
<POP 23f98-23f9a StackAdj> Δ+6 {}
<MI 23f9a MOVEA.L (A6-0x8),A0> {}
<MI 23f9c MOVE.L (A0+0x8),(A6-0x8)> {}
<MI 23fa0 BRA 0x23f16> {}
<POP 23fa4-23fae Naked> Σ0 ↓ ←0x23f16
<MI 23fa4 MOVE.L (A6-0x4),-(A7)> Δ-4 {[4, '(A6-0x4)']}
<Call 0x23fa6 0x103e0> {[4, '(A6-0x4)']}
WriteConsoleStringCrLf(str : String)
<POP 23fac-23fae StackAdj> Δ+4 {}
<POP 23fae-23fb6 Epilogue> Σ0
@ 23fb6
<LVAR 0x008 @ 4(r)>
<LVAR -0x003 @ 1(r)>
<LVAR -0x004 @ 1(r)>
<LVAR -0x008 @ 4(r)>
<LVAR -0x00c @ 4(rw)>
<POP 23fb6-240c0 Body>
<POP 23fb6-23fcc Prologue> Σ0 ↓
<POP 23fcc-23fde RegCacheLoad> Σ0 ↓
<POP 23fde-24024 Naked> Σ0 ↓ →0x2405a
<Blob 0x23fde [4] @> Δ-4 {[«4""»]}
<POP 23fe2-23fe4 StackAdj> Δ-8 {[«4""»]|[-8-]}
<MI 23fe4 MOVE.L (A6+0x8),-(A7)> Δ-4 {[«4""»]|[-8-]|[4, '(A6+0x8)']}
<Call 0x23fe6 0x102cc> {[«4""»]|[-8-]|[4, '(A6+0x8)']}
StringDup(a : String) : String
<Lit 0x23fec 4> {[«4""»]|[-8-]|[$$.HLP]}
<Call 0x23ffe 0x102d0> {[«4""»]|[-8-]|[$$.HLP]}
StringCat2(a, b : String) : String
<POP 24004-24006 StackAdj> Δ+8 {[«4""»]|[-4-]}
<MI 24006 MOVE.L (A7)+,(A6-0xc)> Δ+4 {[«4""»]}
<MI 24008 MOVE.L (A6-0xc),(A7)> {[4, '(A6-0xc)']}
<MI 2400a CLR.B -(A7)> Δ-2 {[4, '(A6-0xc)']|[#0]}
<MI 2400c CLR.B -(A7)> Δ-2 {[4, '(A6-0xc)']|[#0]|[#0]}
<Const 0x2400e 0x0.4> Δ-4 {[4, '(A6-0xc)']|[#0]|[#0]|[##0]}
<Pointer.fp 0x24012 <LVAR -0x004 @ 1(r)>> Δ-4 {[4, '(A6-0xc)']|[#0]|[#0]|[##0]|[@@-4]}
<Pointer.fp 0x24014 <LVAR -0x008 @ 4(r)>> Δ-4 {[4, '(A6-0xc)']|[#0]|[#0]|[##0]|[@@-4]|[@@-8]}
<Call 0x24016 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 2401c-24020 StackAdj> Δ+20 {}
<MI 24020 TST.B (A6-0x4)> {}
<MI 24022 BEQ 0x2405a> {}
<POP 24024-2405a Naked> Σ0 →0x240ae
<Blob 0x24024 [22] @> Δ-22 {[«22""»]}
<POP 24030-24032 StackAdj> Δ-8 {[«22""»]|[-8-]}
<Lit 0x24032 22> {[«22""»]|[-4-]|[$$No help available for_]}
<POP 24042-24044 StackAdj> Δ-4 {[«22""»]|[-4-]|[$$No help available for_]|[-4-]}
<MI 24044 MOVE.L (A6+0x8),(A7)> {[«22""»]|[-4-]|[$$No help available for_]|[4, '(A6+0x8)']}
<Call 0x24046 0x102d0> {[«22""»]|[-4-]|[$$No help available for_]|[4, '(A6+0x8)']}
StringCat2(a, b : String) : String
<POP 2404c-2404e StackAdj> Δ+8 {[«22""»]|[-4-]}
<Call 0x2404e 0x103e0> {[«22""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 24054-24058 StackAdj> Δ+26 {}
<MI 24058 BRA 0x240ae> {}
<POP 2405a-24072 Naked> Σ0 ↓ →0x24086 ←0x23fde ←0x24086
<MI 2405a MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<Pointer.fp 0x2405c <LVAR 0x008 @ 4(r)>> Δ-4 {[4, '(A6-0x8)']|[@@8]}
<Pointer.fp 0x2405e <LVAR -0x003 @ 1(r)>> Δ-4 {[4, '(A6-0x8)']|[@@8]|[@@-3]}
<Call 0x24062 0x1043c> {[4, '(A6-0x8)']|[@@8]|[@@-3]}
FileReadLine(file : File; VAR a : String; VAR b : Byte)
<POP 24068-2406c StackAdj> Δ+12 {}
<MI 2406c TST.B (A6-0x3)> {}
<MI 24070 BNE 0x24086> {}
<POP 24072-24086 Naked> Σ0 ↓
<POP 24072-24074 StackAdj> Δ-4 {[-4-]}
<MI 24074 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x24076 0x102cc> {[-4-]|[4, '(A6+0x8)']}
StringDup(a : String) : String
<POP 2407c-2407e StackAdj> Δ+4 {[-4-]}
<Call 0x2407e 0x103e0> {[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 24084-24086 StackAdj> Δ+4 {}
<POP 24086-2408c Naked> Σ0 ↓ →0x2405a ←0x2405a
<MI 24086 TST.B (A6-0x3)> {}
<MI 2408a BEQ 0x2405a> {}
<POP 2408c-240ae Naked> Σ0 ↓
<MI 2408c CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x2408e 0x2.2> Δ-2 {[#0]|[#2]}
<Const 0x24092 0x1.4> Δ-4 {[#0]|[#2]|[##1]}
<Pointer.fp 0x24096 <LVAR -0x004 @ 1(r)>> Δ-4 {[#0]|[#2]|[##1]|[@@-4]}
<Pointer.fp 0x24098 <LVAR -0x008 @ 4(r)>> Δ-4 {[#0]|[#2]|[##1]|[@@-4]|[@@-8]}
<Call 0x2409a 0x1038c> {[#0]|[#2]|[##1]|[@@-4]|[@@-8]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 240a0-240a4 StackAdj> Δ+16 {}
<Pointer.fp 0x240a4 <LVAR 0x008 @ 4(r)>> Δ-4 {[@@8]}
<Call 0x240a6 0x102bc> {[@@8]}
FreeString(VAR a : String)
<POP 240ac-240ae StackAdj> Δ+4 {}
<POP 240ae-240b8 Naked> Σ0 ↓ ←0x24024
<Pointer.fp 0x240ae <LVAR -0x00c @ 4(rw)>> Δ-4 {[@@-12]}
<Call 0x240b0 0x102bc> {[@@-12]}
FreeString(VAR a : String)
<POP 240b6-240b8 StackAdj> Δ+4 {}
<POP 240b8-240c0 Epilogue> Σ0
@ 240c0
<LVAR 0x008 4(r)>
<POP 240c0-24142 Body>
<POP 240c0-240d6 Prologue> Σ0 ↓
<POP 240d6-240e6 Naked> Σ0 ↓ →0x24114
<POP 240d6-240d8 StackAdj> Δ-4 {[-4-]}
<MI 240d8 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x240dc 0x23442> {[-4-]|[4, '(A6+0x8)']}
<POP 240e0-240e2 StackAdj> Δ+4 {[-4-]}
<MI 240e2 MOVE.L (A7)+,D6> Δ+4 {}
<MI 240e4 BNE 0x24114> {}
<POP 240e6-24114 Naked> Σ0 →0x2413a
<Blob 0x240e6 [10] 0x2935a> Δ-10 {[«10»]}
<POP 240f4-240f6 StackAdj> Δ-4 {[«10»]|[-4-]}
<Lit 0x240f6> {[«10»]|[$$…]}
<Pointer.sp 0x240f6 4> Δ-4
<Const 0x240fa 0x1.2> Δ-2
<Const 0x240fe 0xa.2> Δ-2
<Call 0x24102 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 24108-2410a StackAdj> Δ+8
<Call 0x2410a 0x23fb6> {[«10»]|[$$…]}
<POP 2410e-24112 StackAdj> Δ+14 {}
<MI 24112 BRA 0x2413a> {}
<POP 24114-24118 Naked> Σ0 Δ-4 ↓ ←0x240d6
<MI 24114 MOVE.L D6,-(A7)> Δ-4 {[4, 'D6']}
<MI 24116 MOVEQ.L #0x01,D7> {[4, 'D6']}
<POP 24118-2411c Naked> Σ-4 ↓ →0x24138 ←0x2411c
<MI 24118 CMP.L (A7),D7> {[-4-]}
<MI 2411a BGT 0x24138> {[-4-]}
<POP 2411c-24138 Naked> Σ-4 ↓ →0x24118
<POP 2411c-2411e StackAdj> Δ-4 {[-8-]}
<MI 2411e MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<MI 24122 MOVE.L D7,-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']|[4, 'D7']}
<Call 0x24124 0x23d5e> {[-8-]|[4, '(A6+0x8)']|[4, 'D7']}
<POP 24128-2412a StackAdj> Δ+8 {[-8-]}
<MI 2412a MOVEA.L (A7)+,A4> Δ+4 {[-4-]}
<MI 2412c MOVE.L A4,-(A7)> Δ-4 {[-4-]|[4, 'A4']}
<Call 0x2412e 0x23fb6> {[-4-]|[4, 'A4']}
<POP 24132-24134 StackAdj> Δ+4 {[-4-]}
<MI 24134 ADDQ.L #0x1,D7> {[-4-]}
<MI 24136 BVC 0x24118> {[-4-]}
<POP 24138-2413a Naked> Σ-4 Δ+4 ↓ ←0x24118
<POP 24138-2413a StackAdj> Δ+4 {}
<POP 2413a-24142 Epilogue> Σ0 ←0x240e6
@ 24142
<LVAR 0x00c @>
<LVAR 0x008 @ 4(r)>
<LVAR -0x020 @>
<POP 24142-241c4 Body>
<POP 24142-24158 Prologue> Σ0 ↓
<POP 24158-2415a RegCacheLoad> Σ0 ↓
<POP 2415a-2415c Naked> Σ0 ↓
<MI 2415a MOVEQ.L #0x01,D7> {}
<POP 2415c-24168 Naked> Σ0 ↓ →0x24178 ←0x24196
<MI 2415c MOVEA.L (A6+0x8),A0> {}
<MI 24160 MOVE.W (A0),D0> {}
<MI 24162 EXTW.L D0> {}
<MI 24164 CMP.L D0,D7> {}
<MI 24166 BLE 0x24178> {}
<POP 24168-24178 Naked> Σ0 →0x24196
<MI 24168 MOVE.L D7,D0> {}
<MI 2416a SUBQ.L #0x1,D0> {}
<POP 0x2416c LimitCheck 0x0 ≤ D0 ≤ 0x1d> {}
<MI 24172 CLR.B (A6+D0.L-#0x20)> {}
<MI 24176 BRA 0x24196> {}
<POP 24178-24196 Naked> Σ0 ↓ ←0x2415c
<MI 24178 MOVE.L D7,D0> {}
<MI 2417a SUBQ.L #0x1,D0> {}
<POP 0x2417c LimitCheck 0x0 ≤ D0 ≤ 0x1d> {}
<MI 24182 MOVE.L D7,D1> {}
<MI 24184 SUBQ.L #0x1,D1> {}
<POP 0x24186 LimitCheck 0x0 ≤ D1 ≤ 0x7d> {}
<MI 24190 MOVE.B (A0+D1.L+#0x2),(A6+D0.L-#0x20)> {}
<POP 24196-241a0 Naked> Σ0 ↓ →0x2415c ←0x24168
<MI 24196 ADDQ.L #0x1,D7> {}
<MI 24198 CMPI.L #0x0000001e,D7> {}
<MI 2419e BLE 0x2415c> {}
<POP 241a0-241bc Naked> Σ0 ↓
<Pointer.fp 0x241a0 <LVAR 0x008 @ 4(r)>> Δ-4 {[@@8]}
<Call 0x241a4 0x102bc> {[@@8]}
FreeString(VAR a : String)
<POP 241aa-241ac StackAdj> Δ+4 {}
<MI 241ac LEA.L (A6+0xc),A0> {}
<MI 241b0 LEA.L (A6-0x20),A1> {}
<BlockMove 30,A1,A0> {}
<POP 241bc-241c4 Epilogue> Σ0
@ 241c4
<LVAR 0x026 4(w)>
<LVAR 0x008 @>
<LVAR -0x006 4(rw)>
<POP 241c4-24218 Body>
<POP 241c4-241da Prologue> Σ0 ↓
<POP 241da-241de RegCacheLoad> Σ0 ↓
<POP 241de-241e6 Naked> Σ0 ↓
<MI 241de MOVEQ.L #0x00,D7> {}
<MI 241e0 MOVE.L 0x29372,(A6-0x6)> {}
<POP 241e6-241ee Naked> Σ0 ↓ →0x2420c ←0x2420a
<MI 241e6 MOVEA.L (A6-0x6),A0> {}
<MI 241e8 CMPA.W #0x1,A0> {}
<MI 241ec BEQ 0x2420c> {}
<POP 241ee-241f2 Naked> Σ0 ↓ →0x2420c
<MI 241ee TST.B D7> {}
<MI 241f0 BNE 0x2420c> {}
<POP 241f2-241fa Naked> Σ0 ↓
<MI 241f2 MOVEA.L A0,A1> {}
<MI 241f4 LEA.L (A6+0x8),A2> {}
<MI 241f8 MOVEQ.L #0x1d,D0> {}
<POP 241fa-24200 Naked> Σ0 ↓ →0x241fa ←0x241fa
<MI 241fa CMPM.B (A1)+,(A2)+> {}
<MI 241fc DBNE D0,0x241fa> {}
<POP 24200-24202 Naked> Σ0 ↓ →0x24206
<MI 24200 BNE 0x24206> {}
<POP 24202-24206 Naked> Σ0 →0x2420a
<MI 24202 MOVEQ.L #0x01,D7> {}
<MI 24204 BRA 0x2420a> {}
<POP 24206-2420a Naked> Σ0 ↓ ←0x24200
<MI 24206 MOVE.L (A0+0x26),(A6-0x6)> {}
<POP 2420a-2420c Naked> Σ0 →0x241e6 ←0x24202
<MI 2420a BRA 0x241e6> {}
<POP 2420c-24210 Naked> Σ0 ↓ ←0x241e6 ←0x241ee
<MI 2420c MOVE.L A0,(A6+0x26)> {}
<POP 24210-24218 Epilogue> Σ0
@ 24218
<LVAR 0x008 @ 4(r)>
<POP 24218-2429e Body>
<POP 24218-2422e Prologue> Σ0 ↓
<POP 2422e-2423a RegCacheLoad> Σ0 ↓
<POP 2423a-24240 Naked> Σ0 ↓ →0x24296
<MI 2423a MOVEA.L (A6+0x8),A0> {}
<MI 2423c CMPA.W #0x01,A0> {}
<MI 2423e BEQ 0x24296> {}
<POP 24240-24246 Naked> Σ0 ↓ →0x24256
<MI 24240 TST.L (A0+0x1e)> {}
<MI 24244 BEQ 0x24256> {}
<POP 24246-24256 Naked> Σ0 ↓
<MI 24246 MOVE.L (A0+0x22),-(A7)> Δ-4 {[4, '(A0+0x22)']}
<MI 2424a MOVE.L (A0+0x1e),-(A7)> Δ-4 {[4, '(A0+0x22)']|[4, '(A0+0x1e)']}
<Call 0x2424e 0x102a4> {[4, '(A0+0x22)']|[4, '(A0+0x1e)']}
Free1(a : Pointer; b : Long)
<POP 24254-24256 StackAdj> Δ+8 {}
<POP 24256-2425c Naked> Σ0 ↓ ←0x24240
<MI 24256 MOVEQ.L #0x00,D7> {}
<MI 24258 MOVEA.W #0x01,A4> {}
<MI 2425a MOVEA.L 0x29372,A3> {}
<POP 2425c-24260 Naked> Σ0 ↓ →0x24274 ←0x24272
<MI 2425c CMPA.W #0x01,A3> {}
<MI 2425e BEQ 0x24274> {}
<POP 24260-24264 Naked> Σ0 ↓ →0x24274
<MI 24260 TST.B D7> {}
<MI 24262 BNE 0x24274> {}
<POP 24264-24268 Naked> Σ0 ↓ →0x2426c
<MI 24264 CMPA.L (A6+0x8),A3> {}
<MI 24266 BNE 0x2426c> {}
<POP 24268-2426c Naked> Σ0 →0x24272
<MI 24268 MOVEQ.L #0x01,D7> {}
<MI 2426a BRA 0x24272> {}
<POP 2426c-24272 Naked> Σ0 ↓ ←0x24264
<MI 2426c MOVEA.L A3,A4> {}
<MI 2426e MOVEA.L (A3+0x26),A3> {}
<POP 24272-24274 Naked> Σ0 →0x2425c ←0x24268
<MI 24272 BRA 0x2425c> {}
<POP 24274-24278 Naked> Σ0 ↓ →0x24296 ←0x2425c ←0x24260
<MI 24274 TST.B D7> {}
<MI 24276 BEQ 0x24296> {}
<POP 24278-2427c Naked> Σ0 ↓ →0x24282
<MI 24278 CMPA.W #0x01,A4> {}
<MI 2427a BNE 0x24282> {}
<POP 2427c-24282 Naked> Σ0 →0x24288
<MI 2427c MOVE.L (A3+0x26),0x29372> {}
<MI 24280 BRA 0x24288> {}
<POP 24282-24288 Naked> Σ0 ↓ ←0x24278
<MI 24282 MOVE.L (A3+0x26),(A4+0x26)> {}
<POP 24288-24296 Naked> Σ0 ↓ ←0x2427c
<Pointer.fp 0x24288 <LVAR 0x008 @ 4(r)>> Δ-4 {[@@8]}
<Const 0x2428a 0x2a.4> Δ-4 {[@@8]|[##42]}
<Call 0x2428e 0x102a8> {[@@8]|[##42]}
Free2(a : Pointer; b : Long)
<POP 24294-24296 StackAdj> Δ+8 {}
<POP 24296-2429e Epilogue> Σ0 ←0x2423a ←0x24274
@ 2429e
<LVAR 0x010 4(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x006 @ 4(rw)>
<LVAR -0x024 @>
<POP 2429e-2435c Body>
<POP 2429e-242b4 Prologue> Σ0 ↓
<POP 242b4-242be RegCacheLoad> Σ0 ↓
<POP 242be-242dc Naked> Σ0 ↓ →0x242de
<POP 242be-242c0 StackAdj> Δ-30 {[-30-]}
<MI 242c0 MOVEA.L (A6+0xc),A0> {[-30-]}
<MI 242c4 MOVE.L (A0),-(A7)> Δ-4 {[-30-]|[4, '(A0)']}
<Call 0x242c6 0x24142> {[-30-]|[4, '(A0)']}
<POP 242ca-242cc StackAdj> Δ+4 {[-30-]}
<MI 242cc LEA.L (A6-0x24),A0> {[-30-]}
<POP 242d0-242d8 StackPop> Δ+30 {[-30-]}
<BlockMove 30,A7,A0> Δ+30
<MI 242d8 TST.L (A6+0x8)> {[-30-]}
<MI 242da BGE 0x242de> {[-30-]}
<POP 242dc-242de Naked> Σ0 ↓
<MI 242dc CLR.L (A6+0x8)> {}
<POP 242de-242fa Naked> Σ0 ↓ →0x2430c ←0x242be
<POP 242de-242e0 StackAdj> Δ-4 {[-4-]}
<Blob 0x242e0 [30] (A6-0x6)> Δ-30 {[-4-]|[«30»]}
<Call 0x242ea 0x241c4> {[-4-]|[«30»]}
<POP 242ee-242f0 StackAdj> Δ+30 {[-4-]}
<MI 242f0 MOVE.L (A7)+,(A6-0x6)> Δ+4 {}
<MI 242f2 MOVEA.L (A6-0x6),A0> {}
<MI 242f4 CMPA.W #0x1,A0> {}
<MI 242f8 BEQ 0x2430c> {}
<POP 242fa-24302 Naked> Σ0 ↓ →0x24304
<MI 242fa MOVE.L (A0+0x1e),D0> {}
<MI 242fe CMP.L (A6+0x8),D0> {}
<MI 24300 BNE 0x24304> {}
<POP 24302-24304 Naked> Σ0 →0x24350
<MI 24302 BRA 0x24350> {}
<POP 24304-2430c Naked> Σ0 ↓ ←0x242fa
<MI 24304 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x24306 0x24218> {[4, '(A6-0x6)']}
<POP 2430a-2430c StackAdj> Δ+4 {}
<POP 2430c-24340 Naked> Σ0 ↓ →0x24350 ←0x242de
<Pointer.fp 0x2430c <LVAR -0x006 @ 4(rw)>> Δ-4 {[@@-6]}
<Const 0x2430e 0x2a.4> Δ-4 {[@@-6]|[##42]}
<Call 0x24312 0x1029c> {[@@-6]|[##42]}
Malloc1(length : Long) : Pointer
<POP 24318-2431a StackAdj> Δ+8 {}
<MI 2431a MOVEA.L (A6-0x6),A0> {}
<MI 2431c MOVE.L 0x29372,(A0+0x26)> {}
<MI 24324 MOVE.L (A6-0x6),0x29372> {}
<MI 2432a MOVEA.L A0,A1> {}
<MI 2432c LEA.L (A6-0x24),A2> {}
<BlockMove 30,A2,A1> {}
<MI 24338 MOVE.L (A6+0x8),(A0+0x1e)> {}
<MI 2433c TST.L (A6+0x8)> {}
<MI 2433e BEQ 0x24350> {}
<POP 24340-24350 Naked> Σ0 ↓
<POP 24340-24342 StackAdj> Δ-4 {[-4-]}
<MI 24342 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x24344 0x102a0> {[-4-]|[4, '(A6+0x8)']}
Malloc2(VAR dst : Pointer; length : Word)
<POP 2434a-2434c StackAdj> Δ+4 {[-4-]}
<MI 2434c MOVE.L (A7)+,(A0+0x22)> Δ+4 {}
<POP 24350-24354 Naked> Σ0 ↓ ←0x24302 ←0x2430c
<MI 24350 MOVE.L (A6-0x6),(A6+0x10)> {}
<POP 24354-2435c Epilogue> Σ0
@ 2435c
<LVAR 0x00c @>
<LVAR 0x008 @ 4(r)>
<LVAR -0x008 4(rw)>
<POP 2435c-243e6 Body>
<POP 2435c-24372 Prologue> Σ0 ↓
<POP 24372-24376 RegCacheLoad> Σ0 ↓
<POP 24376-24394 Naked> Σ0 ↓ →0x243d4
<MI 24376 MOVEA.L (A6+0x8),A0> {}
<MI 24378 MOVE.W (A0),D0> {}
<MI 2437a EXTW.L D0> {}
<MI 2437c MOVE.L D0,D6> {}
<POP 2437e-24380 StackAdj> Δ-4 {[-4-]}
<Pointer.fp 0x24380 <LVAR 0x00c @>> Δ-4 {[-4-]|[@@12]}
<MI 24384 MOVE.L D6,-(A7)> Δ-4 {[-4-]|[@@12]|[4, 'D6']}
<Call 0x24386 0x2429e> {[-4-]|[@@12]|[4, 'D6']}
<POP 2438a-2438c StackAdj> Δ+8 {[-4-]}
<MI 2438c MOVE.L (A7)+,(A6-0x8)> Δ+4 {}
<MI 24390 TST.L D6> {}
<MI 24392 BEQ 0x243d4> {}
<POP 24394-243a2 Naked> Σ0 Δ-8 ↓
<MI 24394 MOVEA.L (A6-0x8),A0> {}
<MI 24398 MOVEA.L (A0+0x22),A0> {}
<MI 2439c MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 2439e MOVE.L D6,-(A7)> Δ-4 {[4, 'A0']|[4, 'D6']}
<MI 243a0 MOVEQ.L #0x01,D7> {[4, 'A0']|[4, 'D6']}
<POP 243a2-243a6 Naked> Σ-8 ↓ →0x243d2 ←0x243a6
<MI 243a2 CMP.L (A7),D7> {[-8-]}
<MI 243a4 BGT 0x243d2> {[-8-]}
<POP 243a6-243d2 Naked> Σ-8 ↓ →0x243a2
<MI 243a6 MOVE.L D7,D0> {[-8-]}
<MI 243a8 SUBQ.L #0x1,D0> {[-8-]}
<POP 0x243aa LimitCheck 0x0 ≤ D0 ≤ 0x3ff> {[-8-]}
<MI 243b4 MOVEA.L (A7+0x4),A0> {[-8-]}
<MI 243b8 MOVEA.L (A6+0x8),A1> {[-8-]}
<MI 243ba MOVE.L D7,D1> {[-8-]}
<MI 243bc SUBQ.L #0x1,D1> {[-8-]}
<POP 0x243be LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-8-]}
<MI 243c8 MOVE.B (A1+D1.L+#0x2),(A0+D0.L)> {[-8-]}
<MI 243ce ADDQ.L #0x1,D7> {[-8-]}
<MI 243d0 BVC 0x243a2> {[-8-]}
<POP 243d2-243d4 Naked> Σ-8 Δ+8 ↓ ←0x243a2
<POP 243d2-243d4 StackAdj> Δ+8 {}
<POP 243d4-243de Naked> Σ0 ↓ ←0x24376
<Pointer.fp 0x243d4 <LVAR 0x008 @ 4(r)>> Δ-4 {[@@8]}
<Call 0x243d6 0x102bc> {[@@8]}
FreeString(VAR a : String)
<POP 243dc-243de StackAdj> Δ+4 {}
<POP 243de-243e6 Epilogue> Σ0
@ 243e6
<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 243e6-24552 Body>
<POP 243e6-243fc Prologue> Σ0 ↓
<POP 243fc-2440a RegCacheLoad> Σ0 ↓
<POP 2440a-2441c Naked> Σ0 ↓ →0x2444a
<POP 2440a-2440c StackAdj> Δ-4 {[-4-]}
<MI 2440c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x2440e 0x23442> {[-4-]|[4, '(A6+0x8)']}
<POP 24412-24414 StackAdj> Δ+4 {[-4-]}
<MI 24414 MOVE.L (A7)+,(A6-0x10)> Δ+4 {}
<MI 24416 MOVE.L (A6-0x10),D0> {}
<MI 24418 CMP.L #0x01,D0> {}
<MI 2441a BGE 0x2444a> {}
<POP 2441c-2444a Naked> Σ0 ↓
<Blob 0x2441c [26] @> Δ-26 {[«26""»]}
<POP 2442e-24430 StackAdj> Δ-4 {[«26""»]|[-4-]}
<Lit 0x24430 25> {[«26""»]|[$$Too few arguments for SET]}
<Call 0x24442 0x23036> {[«26""»]|[$$Too few arguments for SET]}
<POP 24446-2444a StackAdj> Δ+30 {}
<POP 2444a-24450 Naked> Σ0 Δ-4 ↓ ←0x2440a
<MI 2444a CLR.L (A6-0xc)> {}
<MI 2444c MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 2444e MOVEQ.L #0x02,D6> {[4, 'D0']}
<POP 24450-24454 Naked> Σ-4 ↓ →0x24472 ←0x24454
<MI 24450 CMP.L (A7),D6> {[-4-]}
<MI 24452 BGT 0x24472> {[-4-]}
<POP 24454-24472 Naked> Σ-4 ↓ →0x24450
<POP 24454-24458 StackAdj> Δ-12 {[-16-]}
<MI 24458 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<MI 2445a MOVE.L D6,-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[4, 'D6']}
<Call 0x2445c 0x23c80> {[-16-]|[4, '(A6+0x8)']|[4, 'D6']}
<POP 24460-24462 StackAdj> Δ+8 {[-16-]}
<Call 0x24462 0x23c48> {[-16-]}
<POP 24466-24468 StackAdj> Δ+8 {[-8-]}
<MI 24468 MOVE.L (A6-0xc),D0> {[-8-]}
<MI 2446a ADD.L (A7)+,D0> Δ+4 {[-4-]}
<MI 2446c MOVE.L D0,(A6-0xc)> {[-4-]}
<MI 2446e ADDQ.L #0x1,D6> {[-4-]}
<MI 24470 BVC 0x24450> {[-4-]}
<POP 24472-244a2 Naked> Σ-4 Δ+4 ↓ →0x2454a ←0x24450
<POP 24472-24474 StackAdj> Δ+4 {}
<MI 24474 MOVE.L (A6-0x10),D0> {}
<MI 24476 SUBQ.L #0x2,D0> {}
<MI 24478 ADD.L D0,(A6-0xc)> {}
<POP 2447a-2447c StackAdj> Δ-4 {[-4-]}
<MI 2447c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x2447e 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x24482 0x23d5e> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 24486-24488 StackAdj> Δ+8 {[-4-]}
<MI 24488 MOVE.L (A7),(A6-0x4)> {[-4-]}
<Pointer.fp 0x2448c <LVAR -0x004 @ 4(w)>> Δ-4 {[-4-]|[@@-4]}
<MI 24490 MOVE.L (A6-0xc),-(A7)> Δ-4 {[-4-]|[@@-4]|[4, '(A6-0xc)']}
<Call 0x24492 0x2429e> {[-4-]|[@@-4]|[4, '(A6-0xc)']}
<POP 24496-24498 StackAdj> Δ+8 {[-4-]}
<MI 24498 MOVE.L (A7)+,(A6-0x8)> Δ+4 {}
<MI 2449c TST.L (A6-0xc)> {}
<MI 2449e BLE 0x2454a> {}
<POP 244a2-244b2 Naked> Σ0 Δ-8 ↓
<MI 244a2 MOVEA.L (A6-0x8),A0> {}
<MI 244a6 MOVEA.L (A0+0x22),A0> {}
<MI 244aa MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 244ac MOVEQ.L #0x01,D7> {[4, 'A0']}
<MI 244ae MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, 'A0']|[4, '(A6-0x10)']}
<MI 244b0 MOVEQ.L #0x02,D6> {[4, 'A0']|[4, '(A6-0x10)']}
<POP 244b2-244b8 Naked> Σ-8 ↓ →0x24548 ←0x24542
<MI 244b2 CMP.L (A7),D6> {[-8-]}
<MI 244b4 BGT 0x24548> {[-8-]}
<POP 244b8-244d8 Naked> Σ-8 Δ-4 ↓ →0x244ec
<POP 244b8-244ba StackAdj> Δ-8 {[-16-]}
<MI 244ba MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<MI 244bc MOVE.L D6,-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[4, 'D6']}
<Call 0x244be 0x23c80> {[-16-]|[4, '(A6+0x8)']|[4, 'D6']}
<POP 244c2-244c4 StackAdj> Δ+8 {[-16-]}
<MI 244c4 MOVE.L (A7)+,(A6-0x20)> Δ+4 {[-12-]}
<MI 244c8 MOVE.L (A7)+,(A6-0x1c)> Δ+4 {[-8-]}
<MI 244cc MOVE.L (A6-0x1c),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x1c)']}
<MI 244d0 MOVE.L (A6-0x20),D5> {[-8-]|[4, '(A6-0x1c)']}
<MI 244d4 CMP.L (A7),D5> {[-8-]|[4, '(A6-0x1c)']}
<MI 244d6 BGT 0x244ec> {[-8-]|[4, '(A6-0x1c)']}
<POP 244d8-244ec Naked> Σ-12 ↓
<MI 244d8 MOVE.L (A7),D0> {[-12-]}
<POP 0x244da LimitCheck -0x7fffffff ≤ D5> {[-12-]}
<MI 244da CMPI.L #0x80000001,D5>
<MI 244e0 BLT 0x244ea>
<POP 0x244e2 LimitCheck D0 ≤ 0x7fffffff> {[-12-]}
<MI 244e2 CMPI.L #0x7fffffff,D0>
<MI 244e8 BLE 0x244ec>
<MI 244ea TRAP #15>
<POP 244ec-244f0 Naked> Σ-12 ↓ →0x24522 ←0x244b8 ←0x244f0
<MI 244ec CMP.L (A7),D5> {[-12-]}
<MI 244ee BGT 0x24522> {[-12-]}
<POP 244f0-24522 Naked> Σ-12 ↓ →0x244ec
<MI 244f0 MOVE.L D7,D0> {[-12-]}
<MI 244f2 SUBQ.L #0x1,D0> {[-12-]}
<POP 0x244f4 LimitCheck 0x0 ≤ D0 ≤ 0x3ff> {[-12-]}
<MI 244fe MOVEA.L (A7+0x8),A0> {[-12-]}
<MI 24502 MOVE.L D5,D1> {[-12-]}
<MI 24504 SUBQ.L #0x1,D1> {[-12-]}
<POP 0x24506 LimitCheck 0x0 ≤ D1 ≤ 0x1fff> {[-12-]}
<MI 24510 LEA.L 0x27340,A1> {[-12-]}
<MI 24516 MOVE.B (A1+D1.L+#0x8),(A0+D0.L)> {[-12-]}
<MI 2451c ADDQ.L #0x1,D7> {[-12-]}
<MI 2451e ADDQ.L #0x1,D5> {[-12-]}
<MI 24520 BVC 0x244ec> {[-12-]}
<POP 24522-24528 Naked> Σ-12 Δ+4 ↓ →0x24542 ←0x244ec
<POP 24522-24524 StackAdj> Δ+4 {[-8-]}
<MI 24524 CMP.L (A6-0x10),D6> {[-8-]}
<MI 24526 BEQ 0x24542> {[-8-]}
<POP 24528-24542 Naked> Σ-8 ↓
<MI 24528 MOVE.L D7,D0> {[-8-]}
<MI 2452a SUBQ.L #0x1,D0> {[-8-]}
<POP 0x2452c LimitCheck 0x0 ≤ D0 ≤ 0x3ff> {[-8-]}
<MI 24536 MOVEA.L (A7+0x4),A0> {[-8-]}
<MI 2453a MOVE.B #0x2c,(A0+D0.L)> {[-8-]}
<MI 24540 ADDQ.L #0x1,D7> {[-8-]}
<POP 24542-24548 Naked> Σ-8 ↓ →0x244b2 ←0x24522
<MI 24542 ADDQ.L #0x1,D6> {[-8-]}
<MI 24544 BVC 0x244b2> {[-8-]}
<POP 24548-2454a Naked> Σ-8 Δ+8 ↓ ←0x244b2
<POP 24548-2454a StackAdj> Δ+8 {}
<POP 2454a-24552 Epilogue> Σ0 ←0x24472
@ 24552
<LVAR 0x008 4(r)>
<LVAR -0x00c 4(rw)>
<POP 24552-24640 Body>
<POP 24552-24568 Prologue> Σ0 ↓
<POP 24568-24570 RegCacheLoad> Σ0 ↓
<POP 24570-245a2 Naked> Σ0 ↓ →0x245e4
<POP 24570-24572 StackAdj> Δ-4 {[-4-]}
<MI 24572 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x24576 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x2457a 0x23d5e> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 2457e-24580 StackAdj> Δ+8 {[-4-]}
<MI 24580 MOVEA.L (A7)+,A4> Δ+4 {}
<POP 24582-24586 StackAdj> Δ-34 {[-34-]}
<MI 24586 MOVE.L A4,-(A7)> Δ-4 {[-34-]|[4, 'A4']}
<Call 0x24588 0x24142> {[-34-]|[4, 'A4']}
<POP 2458c-2458e StackAdj> Δ+4 {[-34-]}
<Call 0x2458e 0x241c4> {[-34-]}
<POP 24592-24596 StackAdj> Δ+30 {[-4-]}
<MI 24596 MOVE.L (A7)+,(A6-0xc)> Δ+4 {}
<MI 2459a MOVEA.L (A6-0xc),A0> {}
<MI 2459e CMPA.W #0x01,A0> {}
<MI 245a0 BNE 0x245e4> {}
<POP 245a2-245e4 Naked> Σ0 ↓
<Blob 0x245a2 [20] @> Δ-20 {[«20""»]}
<POP 245b4-245b6 StackAdj> Δ-8 {[«20""»]|[-8-]}
<Lit 0x245b6 19> {[«20""»]|[-4-]|[$$Unknown variable :_]}
<MI 245c6 MOVE.L (A6+0x8),(A7)> {[«20""»]|[-4-]|[4, '(A6+0x8)']}
<POP 245c0-245c6 StackAdj> Δ-8 {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-8-]}
<Const 0x245ca 0x1.4> Δ-4 {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-8-]|[##1]}
<Call 0x245ce 0x23d5e> {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-8-]|[##1]}
<POP 245d2-245d4 StackAdj> Δ+8 {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-4-]}
<Call 0x245d4 0x102d0> {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-4-]}
StringCat2(a, b : String) : String
<POP 245da-245dc StackAdj> Δ+8 {[«20""»]|[-4-]}
<Call 0x245dc 0x23036> {[«20""»]|[-4-]}
<POP 245e0-245e4 StackAdj> Δ+24 {}
<POP 245e4-245fa Naked> Σ0 Δ-8 ↓ ←0x24570
<MI 245e4 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Blob 0x245e6 [4] 0x29348> Δ-4 {[4, 'A0']|[«4»]}
<MI 245e8 MOVE.L (A0+0x1e),-(A7)> Δ-4 {[4, 'A0']|[«4»]|[4, '(A0+0x1e)']}
<MI 245ec NEG.L (A7)> {[4, 'A0']|[«4»]|[4, '(A0+0x1e)']}
<Call 0x245ee 0x2358a> {[4, 'A0']|[«4»]|[4, '(A0+0x1e)']}
<POP 245f2-245f4 StackAdj> Δ+4 {[4, 'A0']|[«4»]}
<MI 245f4 MOVE.L (A0+0x1e),(A7)> {[4, 'A0']|[4, '(A0+0x1e)']}
<MI 245f8 MOVEQ.L #0x01,D7> {[4, 'A0']|[4, '(A0+0x1e)']}
<POP 245fa-245fe Naked> Σ-8 ↓ →0x24636 ←0x245fe
<MI 245fa CMP.L (A7),D7> {[-8-]}
<MI 245fc BGT 0x24636> {[-8-]}
<POP 245fe-24636 Naked> Σ-8 ↓ →0x245fa
<MI 245fe MOVE.L D7,D0> {[-8-]}
<MI 24600 ADD.L 0x29348,D0> {[-8-]}
<MI 24602 SUBQ.L #0x1,D0> {[-8-]}
<MI 24604 SUBQ.L #0x1,D0> {[-8-]}
<POP 0x24606 LimitCheck 0x0 ≤ D0 ≤ 0x1fff> {[-8-]}
<MI 24610 LEA.L 0x27340,A0> {[-8-]}
<MI 24616 MOVEA.L (A7+0x4),A1> {[-8-]}
<MI 2461a MOVEA.L (A1+0x22),A1> {[-8-]}
<MI 2461e MOVE.L D7,D1> {[-8-]}
<MI 24620 SUBQ.L #0x1,D1> {[-8-]}
<POP 0x24622 LimitCheck 0x0 ≤ D1 ≤ 0x3ff> {[-8-]}
<MI 2462c MOVE.B (A1+D1.L),(A0+D0.L+#0x8)> {[-8-]}
<MI 24632 ADDQ.L #0x1,D7> {[-8-]}
<MI 24634 BVC 0x245fa> {[-8-]}
<POP 24636-24638 Naked> Σ-8 Δ+8 ↓ ←0x245fa
<POP 24636-24638 StackAdj> Δ+8 {}
<POP 24638-24640 Epilogue> Σ0
@ 24640
<LVAR -0x004 4(rw)>
<POP 24640-246a2 Body>
<POP 24640-24656 Prologue> Σ0 ↓
<POP 24656-2465e RegCacheLoad> Σ0 ↓
<POP 2465e-24664 Naked> Σ0 ↓
<MI 2465e MOVE.L 0x29372,(A6-0x4)> {}
<POP 24664-2466a Naked> Σ0 ↓ →0x2469a ←0x2466a
<MI 24664 MOVEA.L (A6-0x4),A0> {}
<MI 24666 CMPA.W #0x01,A0> {}
<MI 24668 BEQ 0x2469a> {}
<POP 2466a-2469a Naked> Σ0 →0x24664
<POP 2466a-2466c StackAdj> Δ-30 {[-30-]}
<MI 2466c MOVEA.L A7,A1> {[-30-]}
<MI 2466e MOVEA.L A0,A2> {[-30-]}
<BlockMove 30,A2,A1> {[-30-]}
<POP 24678-2467a StackAdj> Δ-4 {[-34-]}
<Lit 0x2467a> {[-30-]|[$$…]}
<Pointer.sp 0x2467a 4> Δ-4
<Const 0x2467e 0x1.2> Δ-2
<Const 0x24680 0x1e.2> Δ-2
<Call 0x24682 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 24688-2468a StackAdj> Δ+8
<Call 0x2468a 0x103e0> {[-30-]|[$$…]}
WriteConsoleStringCrLf(str : String)
<POP 24690-24694 StackAdj> Δ+34 {}
<MI 24694 MOVE.L (A0+0x26),(A6-0x4)> {}
<MI 24698 BRA 0x24664> {}
<POP 2469a-246a2 Epilogue> Σ0 ←0x24664
@ 246a2
<LVAR 0x008 4(r)>
<POP 246a2-246de Body>
<POP 246a2-246b4 Prologue> Σ0 ↓
<POP 246b4-246da Naked> Σ0 ↓
<POP 246b4-246b8 StackAdj> Δ-38 {[-38-]}
<MI 246b8 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-38-]|[4, '(A6+0x8)']}
<Const 0x246bc 0x1.4> Δ-4 {[-38-]|[4, '(A6+0x8)']|[##1]}
<Call 0x246c0 0x23d5e> {[-38-]|[4, '(A6+0x8)']|[##1]}
<POP 246c4-246c6 StackAdj> Δ+8 {[-38-]}
<Call 0x246c6 0x24142> {[-38-]}
<POP 246ca-246cc StackAdj> Δ+4 {[-34-]}
<Call 0x246cc 0x241c4> {[-34-]}
<POP 246d0-246d4 StackAdj> Δ+30 {[-4-]}
<Call 0x246d4 0x24218> {[-4-]}
<POP 246d8-246da StackAdj> Δ+4 {}
<POP 246da-246de Epilogue> Σ0
@ 246de
<POP 246de-2470c Body>
<POP 246de-246f0 Prologue> Σ0 ↓
<POP 246f0-24708 Naked> Σ0 ↓
<POP 246f0-246f2 StackAdj> Δ-8 {[-8-]}
<Call 0x246f2 0x103cc> {[-8-]}
GetPushLevel() : Long
<Call 0x246f8 0x102e4> {[-8-]}
Long2String(a : Long) : String
<POP 246fe-24700 StackAdj> Δ+4 {[-4-]}
<Call 0x24700 0x103e0> {[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 24706-24708 StackAdj> Δ+4 {}
<POP 24708-2470c Epilogue> Σ0
@ 2470c
<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 2470c-24a34 Body>
<POP 2470c-24722 Prologue> Σ0 ↓
<POP 24722-2473a RegCacheLoad> Σ0 ↓
<POP 2473a-2474a Naked> Σ0 ↓ →0x24772
<POP 2473a-2473c StackAdj> Δ-4 {[-4-]}
<MI 2473c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x2473e 0x23442> {[-4-]|[4, '(A6+0x8)']}
<POP 24742-24744 StackAdj> Δ+4 {[-4-]}
<MI 24744 MOVE.L (A7)+,(A6-0x2c)> Δ+4 {}
<MI 24748 BNE 0x24772> {}
<POP 2474a-24772 Naked> Σ0 →0x24782
<POP 2474a-2474c StackAdj> Δ-4 {[-4-]}
<POP 2474c-2474d StackAdj> Δ+2 {[-2-]}
<Blob 0x2474d [2] @> Δ-2 {[-2-]|[«2""»]}
<MI 24750 MOVE.B 0x22c5b,(A7+0x1)> {[-2-]|[«2""»]}
<MI 24756 MOVE.B 0x22c5c,(A7+0x2)> {[-2-]|[«2""»]}
<POP 2475c-2475e StackAdj> Δ-4 {[-2-]|[«2""»]|[-4-]}
<Lit 0x2475e> {[-2-]|[«2""»]|[$$…]}
<Pointer.sp 0x2475e 4> Δ-4
<Const 0x24762 0x1.2> Δ-2
<Const 0x24764 0x3.2> Δ-2
<Call 0x24768 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 2476a-2476c StackAdj> Δ+8
<MI 2476c MOVE.L (A7)+,(A6-0x3c)> Δ+4 {[-2-]|[«2""»]}
<POP 2476e-24770 StackAdj> Δ+4 {}
<MI 24770 BRA 0x24782> {}
<POP 24772-24782 Naked> Σ0 ↓ ←0x2473a
<POP 24772-24774 StackAdj> Δ-4 {[-4-]}
<MI 24774 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x24776 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x2477a 0x23d5e> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 2477e-24780 StackAdj> Δ+8 {[-4-]}
<MI 24780 MOVE.L (A7)+,(A6-0x3c)> Δ+4 {}
<POP 24782-247d2 Naked> Σ0 ↓ →0x247e0 ←0x2474a
<Blob 0x24782 [6] @> Δ-6 {[«6""»]}
<POP 24792-24794 StackAdj> Δ-4 {[«6""»]|[-4-]}
<MI 24794 MOVE.L (A6-0x3c),-(A7)> Δ-4 {[«6""»]|[-4-]|[4, '(A6-0x3c)']}
<POP 24796-24798 StackAdj> Δ-4 {[«6""»]|[-4-]|[4, '(A6-0x3c)']|[-4-]}
<Lit 0x24798 5> {[«6""»]|[-4-]|[4, '(A6-0x3c)']|[$$.M200]}
<Call 0x247a6 0x102d0> {[«6""»]|[-4-]|[4, '(A6-0x3c)']|[$$.M200]}
StringCat2(a, b : String) : String
<POP 247ac-247ae StackAdj> Δ+8 {[«6""»]|[-4-]}
<MI 247ae MOVE.L (A7)+,(A6-0x3c)> Δ+4 {[«6""»]}
<POP 247b0-247b2 StackAdj> Δ+2 {[-4-]}
<MI 247b2 MOVE.L (A6-0x3c),(A7)> {[4, '(A6-0x3c)']}
<MI 247b4 CLR.B -(A7)> Δ-2 {[4, '(A6-0x3c)']|[#0]}
<Const 0x247b6 0x1.2> Δ-2 {[4, '(A6-0x3c)']|[#0]|[#1]}
<Const 0x247b8 0x0.4> Δ-4 {[4, '(A6-0x3c)']|[#0]|[#1]|[##0]}
<Pointer.fp 0x247bc <LVAR -0x038 @ 1(r)>> Δ-4 {[4, '(A6-0x3c)']|[#0]|[#1]|[##0]|[@@-56]}
<Pointer.fp 0x247c0 <LVAR -0x036 @ 4(r)>> Δ-4 {[4, '(A6-0x3c)']|[#0]|[#1]|[##0]|[@@-56]|[@@-54]}
<Call 0x247c4 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 247ca-247cc StackAdj> Δ+20 {}
<MI 247cc TST.B (A6-0x38)> {}
<MI 247d0 BEQ 0x247e0> {}
<POP 247d2-247e0 Naked> Σ0 →0x24a2c
<Pointer.fp 0x247d2 <LVAR -0x03c @ 4(rw)>> Δ-4 {[@@-60]}
<Call 0x247d4 0x102bc> {[@@-60]}
FreeString(VAR a : String)
<POP 247da-247dc StackAdj> Δ+4 {}
<MI 247dc BRA 0x24a2c> {}
<POP 247e0-24826 Naked> Σ0 ↓ →0x2485c ←0x24782
<MI 247e0 MOVEA.L (A6-0x36),A0> {}
<MI 247e4 MOVE.B (A0+0x3f),D0> {}
<MI 247e8 LSL.B #0x6,D0> {}
<MI 247ea LSR.B #0x7,D0> {}
<MI 247ec MOVE.B D0,(A6-0x32)> {}
<MI 247f0 CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x247f2 0x1.2> Δ-2 {[#0]|[#1]}
<Const 0x247f4 0x1.4> Δ-4 {[#0]|[#1]|[##1]}
<Pointer.fp 0x247f8 <LVAR -0x038 @ 1(r)>> Δ-4 {[#0]|[#1]|[##1]|[@@-56]}
<Pointer.fp 0x247fc <LVAR -0x036 @ 4(r)>> Δ-4 {[#0]|[#1]|[##1]|[@@-56]|[@@-54]}
<Call 0x24800 0x1038c> {[#0]|[#1]|[##1]|[@@-56]|[@@-54]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 24806-2480a StackAdj> Δ+16 {}
<MI 2480a MOVEA.L (A6-0x3c),A0> {}
<MI 2480c MOVE.W (A0),D1> {}
<MI 2480e EXTW.L D1> {}
<MI 24810 SUBQ.L #0x5,D1> {}
<POP 0x24812 LimitCheck -0x8000 ≤ D1 ≤ 0x7fff> {}
<MI 24820 MOVE.W D1,(A0)> {}
<MI 24822 TST.B D0> {}
<MI 24824 BNE 0x2485c> {}
<POP 24826-2485c Naked> Σ0 →0x24a2c
<Blob 0x24826 [18] @> Δ-18 {[«18""»]}
<POP 24832-24834 StackAdj> Δ-4 {[«18""»]|[-4-]}
<MI 24834 MOVE.L (A6-0x3c),-(A7)> Δ-4 {[«18""»]|[-4-]|[4, '(A6-0x3c)']}
<POP 24836-24838 StackAdj> Δ-4 {[«18""»]|[-4-]|[4, '(A6-0x3c)']|[-4-]}
<Lit 0x24838 18> {[«18""»]|[-4-]|[4, '(A6-0x3c)']|[$$ is not a program.]}
<Call 0x24846 0x102d0> {[«18""»]|[-4-]|[4, '(A6-0x3c)']|[$$ is not a program.]}
StringCat2(a, b : String) : String
<POP 2484c-2484e StackAdj> Δ+8 {[«18""»]|[-4-]}
<Call 0x2484e 0x103e0> {[«18""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 24854-24858 StackAdj> Δ+22 {}
<MI 24858 BRA 0x24a2c> {}
<POP 2485c-24876 Naked> Σ0 Δ-8 ↓ ←0x247e0
<Pointer.fp 0x2485c <LVAR -0x030 @ 4(r)>> Δ-4 {[@@-48]}
<Call 0x24860 0x102b8> {[@@-48]}
NewString(VAR a : String)
<POP 24866-24868 StackAdj> Δ+4 {}
<MI 24868 MOVEA.L (A6-0x30),A0> {}
<MI 2486c MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 2486e MOVEQ.L #0x01,D7> {[4, 'A0']}
<MI 24870 MOVE.L (A6-0x2c),-(A7)> Δ-4 {[4, 'A0']|[4, '(A6-0x2c)']}
<MI 24874 MOVEQ.L #0x02,D5> {[4, 'A0']|[4, '(A6-0x2c)']}
<POP 24876-2487c Naked> Σ-8 ↓ →0x2490e ←0x24908
<MI 24876 CMP.L (A7),D5> {[-8-]}
<MI 24878 BGT 0x2490e> {[-8-]}
<POP 2487c-2489c Naked> Σ-8 Δ-4 ↓ →0x248b0
<POP 2487c-2487e StackAdj> Δ-8 {[-16-]}
<MI 2487e MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<MI 24880 MOVE.L D5,-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[4, 'D5']}
<Call 0x24882 0x23c80> {[-16-]|[4, '(A6+0x8)']|[4, 'D5']}
<POP 24886-24888 StackAdj> Δ+8 {[-16-]}
<MI 24888 MOVE.L (A7)+,(A6-0x28)> Δ+4 {[-12-]}
<MI 2488c MOVE.L (A7)+,(A6-0x24)> Δ+4 {[-8-]}
<MI 24890 MOVE.L (A6-0x24),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x24)']}
<MI 24894 MOVE.L (A6-0x28),D6> {[-8-]|[4, '(A6-0x24)']}
<MI 24898 CMP.L (A7),D6> {[-8-]|[4, '(A6-0x24)']}
<MI 2489a BGT 0x248b0> {[-8-]|[4, '(A6-0x24)']}
<POP 2489c-248b0 Naked> Σ-12 ↓
<MI 2489c MOVE.L (A7),D0> {[-12-]}
<POP 0x2489e LimitCheck -0x7fffffff ≤ D6> {[-12-]}
<MI 2489e CMPI.L #0x80000001,D6>
<MI 248a4 BLT 0x248ae>
<POP 0x248a6 LimitCheck D0 ≤ 0x7fffffff> {[-12-]}
<MI 248a6 CMPI.L #0x7fffffff,D0>
<MI 248ac BLE 0x248b0>
<MI 248ae TRAP #15>
<POP 248b0-248b4 Naked> Σ-12 ↓ →0x248e6 ←0x2487c ←0x248b4
<MI 248b0 CMP.L (A7),D6> {[-12-]}
<MI 248b2 BGT 0x248e6> {[-12-]}
<POP 248b4-248e6 Naked> Σ-12 ↓ →0x248b0
<MI 248b4 MOVE.L D7,D0> {[-12-]}
<MI 248b6 SUBQ.L #0x1,D0> {[-12-]}
<POP 0x248b8 LimitCheck 0x0 ≤ D0 ≤ 0x7d> {[-12-]}
<MI 248c2 MOVEA.L (A7+0x8),A0> {[-12-]}
<MI 248c6 MOVE.L D6,D1> {[-12-]}
<MI 248c8 SUBQ.L #0x1,D1> {[-12-]}
<POP 0x248ca LimitCheck 0x0 ≤ D1 ≤ 0x1fff> {[-12-]}
<MI 248d4 LEA.L 0x27340,A1> {[-12-]}
<MI 248da MOVE.B (A1+D1.L+#0x8),(A0+D0.L+#0x2)> {[-12-]}
<MI 248e0 ADDQ.L #0x1,D7> {[-12-]}
<MI 248e2 ADDQ.L #0x1,D6> {[-12-]}
<MI 248e4 BVC 0x248b0> {[-12-]}
<POP 248e6-248ee Naked> Σ-12 Δ+4 ↓ →0x24908 ←0x248b0
<POP 248e6-248e8 StackAdj> Δ+4 {[-8-]}
<MI 248e8 CMP.L (A6-0x2c),D5> {[-8-]}
<MI 248ec BEQ 0x24908> {[-8-]}
<POP 248ee-24908 Naked> Σ-8 ↓
<MI 248ee MOVE.L D7,D0> {[-8-]}
<MI 248f0 SUBQ.L #0x1,D0> {[-8-]}
<POP 0x248f2 LimitCheck 0x0 ≤ D0 ≤ 0x7d> {[-8-]}
<MI 248fc MOVEA.L (A7+0x4),A0> {[-8-]}
<MI 24900 MOVE.B #0x2c,(A0+D0.L+#0x2)> {[-8-]}
<MI 24906 ADDQ.L #0x1,D7> {[-8-]}
<POP 24908-2490e Naked> Σ-8 ↓ →0x24876 ←0x248e6
<MI 24908 ADDQ.L #0x1,D5> {[-8-]}
<MI 2490a BVC 0x24876> {[-8-]}
<POP 2490e-249be Naked> Σ-8 Δ+8 ↓ →0x249c4 ←0x24876
<POP 2490e-24910 StackAdj> Δ+4 {[-4-]}
<MI 24910 MOVEA.L (A7),A0> {[-4-]}
<MI 24912 MOVE.L D7,D0> {[-4-]}
<MI 24914 SUBQ.L #0x1,D0> {[-4-]}
<POP 0x24916 LimitCheck -0x8000 ≤ D0 ≤ 0x7fff> {[-4-]}
<MI 24924 MOVE.W D0,(A0)> {[-4-]}
<POP 24926-24928 StackAdj> Δ+2 {[-2-]}
<POP 24928-24929 StackAdj> Δ+2 {}
<Blob 0x24929 [2] @> Δ-2 {[«2""»]}
<Blob 0x2492c [2] @> Δ-2 {[«2""»]|[«2""»]}
<Blob 0x24930 [2] @> Δ-2 {[«2""»]|[«2""»]|[«2""»]}
<POP 24934-24936 StackAdj> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[-4-]}
<Lit 0x24936 6> {[«2""»]|[«2""»]|[«2""»]|[$$STATUS]}
<MI 24944 MOVE.L (A7)+,(A6-0x8)> Δ+4 {[«2""»]|[«2""»]|[«2""»]}
<POP 24948-2494a StackAdj> Δ+2 {[«2""»]|[«2""»]}
<MI 2494a MOVE.L (A6+0x8),(A7)> {[4, '(A6+0x8)']}
<Const 0x2494c 0x0.4> Δ-4 {[4, '(A6+0x8)']|[##0]}
<MI 24950 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']}
<Pointer.fp 0x24954 <LVAR -0x010 @ 4(r)>> Δ-4 {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']|[@@-16]}
<Pointer.fp 0x24958 <LVAR -0x013 @ 1(r)>> Δ-4 {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']|[@@-16]|[@@-19]}
<Call 0x2495c 0x26296> {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']|[@@-16]|[@@-19]}
<POP 24962-24964 StackAdj> Δ+20 {}
<Pointer.fp 0x24964 <LVAR -0x008 @ 4(rw)>> Δ-4 {[@@-8]}
<Call 0x24968 0x102bc> {[@@-8]}
FreeString(VAR a : String)
<POP 2496e-24970 StackAdj> Δ+2 {[-2-]}
<POP 24970-24971 StackAdj> Δ+2 {}
<Blob 0x24971 [2] @> Δ-2 {[«2""»]}
<Blob 0x24974 [2] @> Δ-2 {[«2""»]|[«2""»]}
<Blob 0x24978 [2] @> Δ-2 {[«2""»]|[«2""»]|[«2""»]}
<POP 2497c-2497e StackAdj> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[-4-]}
<Lit 0x2497e 6> {[«2""»]|[«2""»]|[«2""»]|[$$RESULT]}
<MI 2498c MOVE.L (A7)+,(A6-0x8)> Δ+4 {[«2""»]|[«2""»]|[«2""»]}
<POP 24990-24992 StackAdj> Δ+2 {[«2""»]|[«2""»]}
<MI 24992 MOVE.L (A6+0x8),(A7)> {[4, '(A6+0x8)']}
<Const 0x24994 0x0.4> Δ-4 {[4, '(A6+0x8)']|[##0]}
<MI 24998 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']}
<Pointer.fp 0x2499c <LVAR -0x00c @ 4(r)>> Δ-4 {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']|[@@-12]}
<Pointer.fp 0x249a0 <LVAR -0x012 @ 1(r)>> Δ-4 {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']|[@@-12]|[@@-18]}
<Call 0x249a4 0x26296> {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']|[@@-12]|[@@-18]}
<POP 249aa-249ac StackAdj> Δ+20 {}
<Pointer.fp 0x249ac <LVAR -0x008 @ 4(rw)>> Δ-4 {[@@-8]}
<Call 0x249b0 0x102bc> {[@@-8]}
FreeString(VAR a : String)
<POP 249b6-249b8 StackAdj> Δ+4 {}
<MI 249b8 TST.B (A6-0x13)> {}
<MI 249bc BNE 0x249c4> {}
<POP 249be-249c4 Naked> Σ0 ↓ →0x249ca
<MI 249be TST.B (A6-0x12)> {}
<MI 249c2 BEQ 0x249ca> {}
<POP 249c4-249ca Naked> Σ0 →0x249ce ←0x2490e
<MI 249c4 CLR.B (A6-0x4)> {}
<MI 249c8 BRA 0x249ce> {}
<POP 249ca-249ce Naked> Σ0 ↓ ←0x249be
<MI 249ca MOVE.B #0x01,(A6-0x4)> {}
<POP 249ce-249f4 Naked> Σ0 ↓ →0x24a14 ←0x249c4
<MI 249ce MOVE.L (A6-0x3c),-(A7)> Δ-4 {[4, '(A6-0x3c)']}
<MI 249d0 MOVE.L (A6-0x30),-(A7)> Δ-4 {[4, '(A6-0x3c)']|[4, '(A6-0x30)']}
<MI 249d4 MOVE.B (A6-0x4),D0> {[4, '(A6-0x3c)']|[4, '(A6-0x30)']}
<MI 249d8 EXTB.W D0> {[4, '(A6-0x3c)']|[4, '(A6-0x30)']}
<POP 0x249da LimitCheck 0x0 ≤ D0 ≤ 0x2> {[4, '(A6-0x3c)']|[4, '(A6-0x30)']}
<MI 249de MOVE.B D0,-(A7)> Δ-2 {[4, '(A6-0x3c)']|[4, '(A6-0x30)']|[2, 'D0']}
<Pointer.fp 0x249e0 <LVAR -0x014 @ 1(r)>> Δ-4 {[4, '(A6-0x3c)']|[4, '(A6-0x30)']|[2, 'D0']|[@@-20]}
<Call 0x249e4 0x103b0> {[4, '(A6-0x3c)']|[4, '(A6-0x30)']|[2, 'D0']|[@@-20]}
PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
<POP 249ea-249ee StackAdj> Δ+14 {}
<MI 249ee TST.B (A6-0x13)> {}
<MI 249f2 BEQ 0x24a14> {}
<POP 249f4-24a14 Naked> Σ0 ↓
<MI 249f4 MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0x10)']}
<POP 249f8-249fa StackAdj> Δ-4 {[4, '(A6-0x10)']|[-4-]}
<MI 249fa MOVE.B (A6-0x14),D0> {[4, '(A6-0x10)']|[-4-]}
<MI 249fe EXTB.W D0> {[4, '(A6-0x10)']|[-4-]}
<POP 0x24a00 LimitCheck 0x0 ≤ D0 ≤ 0xe> {[4, '(A6-0x10)']|[-4-]}
<MI 24a04 MOVE.B D0,-(A7)> Δ-2 {[4, '(A6-0x10)']|[-4-]|[2, 'D0']}
<Call 0x24a06 0x103c0> {[4, '(A6-0x10)']|[-4-]|[2, 'D0']}
ExpErrMsg(a: Byte) : String
<POP 24a0c-24a0e StackAdj> Δ+2 {[4, '(A6-0x10)']|[-4-]}
<Call 0x24a0e 0x2435c> {[4, '(A6-0x10)']|[-4-]}
<POP 24a12-24a14 StackAdj> Δ+8 {}
<POP 24a14-24a1a Naked> Σ0 ↓ →0x24a2c ←0x249ce
<MI 24a14 TST.B (A6-0x12)> {}
<MI 24a18 BEQ 0x24a2c> {}
<POP 24a1a-24a2c Naked> Σ0 ↓
<MI 24a1a MOVE.L (A6-0xc),-(A7)> Δ-4 {[4, '(A6-0xc)']}
<POP 24a1e-24a20 StackAdj> Δ-4 {[4, '(A6-0xc)']|[-4-]}
<Call 0x24a20 0x103c8> {[4, '(A6-0xc)']|[-4-]}
FSCALL_103c8
<Call 0x24a26 0x2435c> {[4, '(A6-0xc)']|[-4-]}
<POP 24a2a-24a2c StackAdj> Δ+8 {}
<POP 24a2c-24a34 Epilogue> Σ0 ←0x247d2 ←0x24826 ←0x24a14
@ 24a34
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 4(rw)>
<LVAR -0x008 @ 4(rw)>
<POP 24a34-24aac Body>
<POP 24a34-24a4a Prologue> Σ0 ↓
<POP 24a4a-24a52 RegCacheLoad> Σ0 ↓
<POP 24a52-24a86 Naked> Σ0 ↓ →0x24a8c
<POP 24a52-24a54 StackAdj> Δ-4 {[-4-]}
<MI 24a54 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x24a58 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x24a5c 0x23d5e> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 24a60-24a62 StackAdj> Δ+8 {[-4-]}
<MI 24a62 MOVE.L (A7),(A6-0x8)> {[-4-]}
<MI 24a64 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x24a68 0x2.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##2]}
<Call 0x24a6c 0x23d5e> {[-4-]|[4, '(A6+0x8)']|[##2]}
<POP 24a70-24a72 StackAdj> Δ+8 {[-4-]}
<MI 24a72 MOVE.L (A7),(A6-0x4)> {[-4-]}
<POP 24a74-24a76 StackAdj> Δ+2 {[-2-]}
<MI 24a76 MOVE.L (A6-0x8),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x8)']}
<MI 24a78 MOVE.L (A6-0x4),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x8)']|[4, '(A6-0x4)']}
<Call 0x24a7a 0x102c8> {[-2-]|[4, '(A6-0x8)']|[4, '(A6-0x4)']}
StringEqual(a, b : String) : Byte
<POP 24a80-24a82 StackAdj> Δ+8 {[-2-]}
<MI 24a82 TST.B (A7)+> Δ+2 {}
<MI 24a84 BEQ 0x24a8c> {}
<POP 24a86-24a8c Naked> Σ0 →0x24a90
<Call 0x24a86 0x2381e> {}
<MI 24a8a BRA 0x24a90> {}
<POP 24a8c-24a90 Naked> Σ0 ↓ ←0x24a52
<Call 0x24a8c 0x23864> {}
<POP 24a90-24aa4 Naked> Σ0 ↓ ←0x24a86
<Pointer.fp 0x24a90 <LVAR -0x004 @ 4(rw)>> Δ-4 {[@@-4]}
<Call 0x24a92 0x102bc> {[@@-4]}
FreeString(VAR a : String)
<POP 24a98-24a9a StackAdj> Δ+4 {}
<Pointer.fp 0x24a9a <LVAR -0x008 @ 4(rw)>> Δ-4 {[@@-8]}
<Call 0x24a9c 0x102bc> {[@@-8]}
FreeString(VAR a : String)
<POP 24aa2-24aa4 StackAdj> Δ+4 {}
<POP 24aa4-24aac Epilogue> Σ0
@ 24aac
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 4(rw)>
<LVAR -0x008 @ 4(rw)>
<POP 24aac-24b24 Body>
<POP 24aac-24ac2 Prologue> Σ0 ↓
<POP 24ac2-24aca RegCacheLoad> Σ0 ↓
<POP 24aca-24afe Naked> Σ0 ↓ →0x24b04
<POP 24aca-24acc StackAdj> Δ-4 {[-4-]}
<MI 24acc MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x24ad0 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x24ad4 0x23d5e> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 24ad8-24ada StackAdj> Δ+8 {[-4-]}
<MI 24ada MOVE.L (A7),(A6-0x8)> {[-4-]}
<MI 24adc MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x24ae0 0x2.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##2]}
<Call 0x24ae4 0x23d5e> {[-4-]|[4, '(A6+0x8)']|[##2]}
<POP 24ae8-24aea StackAdj> Δ+8 {[-4-]}
<MI 24aea MOVE.L (A7),(A6-0x4)> {[-4-]}
<POP 24aec-24aee StackAdj> Δ+2 {[-2-]}
<MI 24aee MOVE.L (A6-0x8),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x8)']}
<MI 24af0 MOVE.L (A6-0x4),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x8)']|[4, '(A6-0x4)']}
<Call 0x24af2 0x102c8> {[-2-]|[4, '(A6-0x8)']|[4, '(A6-0x4)']}
StringEqual(a, b : String) : Byte
<POP 24af8-24afa StackAdj> Δ+8 {[-2-]}
<MI 24afa TST.B (A7)+> Δ+2 {}
<MI 24afc BNE 0x24b04> {}
<POP 24afe-24b04 Naked> Σ0 →0x24b08
<Call 0x24afe 0x2381e> {}
<MI 24b02 BRA 0x24b08> {}
<POP 24b04-24b08 Naked> Σ0 ↓ ←0x24aca
<Call 0x24b04 0x23864> {}
<POP 24b08-24b1c Naked> Σ0 ↓ ←0x24afe
<Pointer.fp 0x24b08 <LVAR -0x004 @ 4(rw)>> Δ-4 {[@@-4]}
<Call 0x24b0a 0x102bc> {[@@-4]}
FreeString(VAR a : String)
<POP 24b10-24b12 StackAdj> Δ+4 {}
<Pointer.fp 0x24b12 <LVAR -0x008 @ 4(rw)>> Δ-4 {[@@-8]}
<Call 0x24b14 0x102bc> {[@@-8]}
FreeString(VAR a : String)
<POP 24b1a-24b1c StackAdj> Δ+4 {}
<POP 24b1c-24b24 Epilogue> Σ0
@ 24b24
<LVAR 0x008 4(r)>
<POP 24b24-24b50 Body>
<POP 24b24-24b36 Prologue> Σ0 ↓
<POP 24b36-24b4c Naked> Σ0 ↓
<POP 24b36-24b38 StackAdj> Δ-4 {[-4-]}
<MI 24b38 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x24b3c 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x24b40 0x23d5e> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 24b44-24b46 StackAdj> Δ+8 {[-4-]}
<Call 0x24b46 0x23b56> {[-4-]}
<POP 24b4a-24b4c StackAdj> Δ+4 {}
<POP 24b4c-24b50 Epilogue> Σ0
@ 24b50
<LVAR 0x008 4(r)>
<LVAR -0x014 @ 4(rw)>
<POP 24b50-24c50 Body>
<POP 24b50-24b66 Prologue> Σ0 ↓
<POP 24b66-24b70 RegCacheLoad> Σ0 ↓
<POP 24b70-24bce Naked> Σ0 ↓ →0x24bfe
<POP 24b70-24b72 StackAdj> Δ-4 {[-4-]}
<MI 24b72 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x24b74 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x24b78 0x23d5e> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 24b7c-24b7e StackAdj> Δ+8 {[-4-]}
<MI 24b7e MOVE.L (A7),(A6-0x14)> {[-4-]}
<MI 24b80 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x24b82 0x2.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##2]}
<Call 0x24b86 0x23d5e> {[-4-]|[4, '(A6+0x8)']|[##2]}
<POP 24b8a-24b8c StackAdj> Δ+8 {[-4-]}
<MI 24b8c MOVEA.L (A7)+,A4> Δ+4 {}
<POP 24b8e-24b92 StackAdj> Δ-12 {[-12-]}
<MI 24b92 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']}
<Const 0x24b94 0x3.4> Δ-4 {[-12-]|[4, '(A6+0x8)']|[##3]}
<Call 0x24b98 0x23d90> {[-12-]|[4, '(A6+0x8)']|[##3]}
<POP 24b9c-24b9e StackAdj> Δ+8 {[-12-]}
<Call 0x24b9e 0x10350> {[-12-]}
Quad2Long(a : Quad) : Long
<POP 24ba4-24ba6 StackAdj> Δ+8 {[-4-]}
<MI 24ba6 MOVE.L (A7),D6> {[-4-]}
<POP 24ba8-24baa StackAdj> Δ-8 {[-12-]}
<MI 24baa MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']}
<Const 0x24bac 0x4.4> Δ-4 {[-12-]|[4, '(A6+0x8)']|[##4]}
<Call 0x24bb0 0x23d90> {[-12-]|[4, '(A6+0x8)']|[##4]}
<POP 24bb4-24bb6 StackAdj> Δ+8 {[-12-]}
<Call 0x24bb6 0x10350> {[-12-]}
Quad2Long(a : Quad) : Long
<POP 24bbc-24bbe StackAdj> Δ+8 {[-4-]}
<MI 24bbe MOVE.L (A7)+,D5> Δ+4 {}
<MI 24bc0 MOVE.L D6,D0> {}
<MI 24bc2 ADD.L D5,D0> {}
<MI 24bc4 SUBQ.L #0x1,D0> {}
<MI 24bc6 MOVE.W (A4),D1> {}
<MI 24bc8 EXTW.L D1> {}
<MI 24bca CMP.L D1,D0> {}
<MI 24bcc BLE 0x24bfe> {}
<POP 24bce-24bfe Naked> Σ0 ↓
<Blob 0x24bce [32] @> Δ-32 {[«32""»]}
<POP 24be0-24be2 StackAdj> Δ-4 {[«32""»]|[-4-]}
<Lit 0x24be2 31> {[«32""»]|[$$Offset/Length error in [INSERT]]}
<Call 0x24bf6 0x23036> {[«32""»]|[$$Offset/Length error in [INSERT]]}
<POP 24bfa-24bfe StackAdj> Δ+36 {}
<POP 24bfe-24c0a Naked> Σ0 Δ-8 ↓ ←0x24b70
<MI 24bfe MOVEA.L (A6-0x14),A0> {}
<MI 24c00 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 24c02 MOVE.W (A0),D0> {[4, 'A0']}
<MI 24c04 EXTW.L D0> {[4, 'A0']}
<MI 24c06 MOVE.L D0,-(A7)> Δ-4 {[4, 'A0']|[4, 'D0']}
<MI 24c08 MOVEQ.L #0x01,D7> {[4, 'A0']|[4, 'D0']}
<POP 24c0a-24c0e Naked> Σ-8 ↓ →0x24c34 ←0x24c0e
<MI 24c0a CMP.L (A7),D7> {[-8-]}
<MI 24c0c BGT 0x24c34> {[-8-]}
<POP 24c0e-24c34 Naked> Σ-8 ↓ →0x24c0a
<MI 24c0e MOVE.L D6,D0> {[-8-]}
<MI 24c10 ADD.L D7,D0> {[-8-]}
<MI 24c12 SUBQ.L #0x1,D0> {[-8-]}
<MI 24c14 SUBQ.L #0x1,D0> {[-8-]}
<POP 0x24c16 LimitCheck 0x0 ≤ D0 ≤ 0x7d> {[-8-]}
<MI 24c1c MOVE.L D7,D1> {[-8-]}
<MI 24c1e SUBQ.L #0x1,D1> {[-8-]}
<POP 0x24c20 LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-8-]}
<MI 24c26 MOVEA.L (A7+0x4),A0> {[-8-]}
<MI 24c2a MOVE.B (A0+D1.L+#0x2),(A4+D0.L+#0x2)> {[-8-]}
<MI 24c30 ADDQ.L #0x1,D7> {[-8-]}
<MI 24c32 BVC 0x24c0a> {[-8-]}
<POP 24c34-24c48 Naked> Σ-8 Δ+8 ↓ ←0x24c0a
<POP 24c34-24c36 StackAdj> Δ+4 {[-4-]}
<MI 24c36 MOVE.L A4,(A7)> {[4, 'A4']}
<Call 0x24c38 0x23e00> {[4, 'A4']}
<POP 24c3c-24c3e StackAdj> Δ+4 {}
<Pointer.fp 0x24c3e <LVAR -0x014 @ 4(rw)>> Δ-4 {[@@-20]}
<Call 0x24c40 0x102bc> {[@@-20]}
FreeString(VAR a : String)
<POP 24c46-24c48 StackAdj> Δ+4 {}
<POP 24c48-24c50 Epilogue> Σ0
@ 24c50
<LVAR 0x008 4(r)>
<LVAR -0x010 @ 4(r)>
<LVAR -0x014 @ 4(rw)>
<POP 24c50-24d36 Body>
<POP 24c50-24c66 Prologue> Σ0 ↓
<POP 24c66-24c74 RegCacheLoad> Σ0 ↓
<POP 24c74-24ccc Naked> Σ0 ↓ →0x24cd2
<POP 24c74-24c76 StackAdj> Δ-4 {[-4-]}
<MI 24c76 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x24c78 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x24c7c 0x23d5e> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 24c80-24c82 StackAdj> Δ+8 {[-4-]}
<MI 24c82 MOVE.L (A7)+,(A6-0x14)> Δ+4 {}
<Pointer.fp 0x24c84 <LVAR -0x010 @ 4(r)>> Δ-4 {[@@-16]}
<Call 0x24c86 0x102b8> {[@@-16]}
NewString(VAR a : String)
<POP 24c8c-24c8e StackAdj> Δ-8 {[@@-16]|[-8-]}
<MI 24c8e MOVE.L (A6+0x8),-(A7)> Δ-4 {[@@-16]|[-8-]|[4, '(A6+0x8)']}
<Const 0x24c90 0x2.4> Δ-4 {[@@-16]|[-8-]|[4, '(A6+0x8)']|[##2]}
<Call 0x24c94 0x23d90> {[@@-16]|[-8-]|[4, '(A6+0x8)']|[##2]}
<POP 24c98-24c9a StackAdj> Δ+8 {[@@-16]|[-8-]}
<Call 0x24c9a 0x10350> {[@@-16]|[-8-]}
Quad2Long(a : Quad) : Long
<POP 24ca0-24ca2 StackAdj> Δ+8 {[@@-16]}
<MI 24ca2 MOVE.L (A7),D5> {[@@-16]}
<POP 24ca4-24ca6 StackAdj> Δ-8 {[@@-16]|[-8-]}
<MI 24ca6 MOVE.L (A6+0x8),-(A7)> Δ-4 {[@@-16]|[-8-]|[4, '(A6+0x8)']}
<Const 0x24ca8 0x3.4> Δ-4 {[@@-16]|[-8-]|[4, '(A6+0x8)']|[##3]}
<Call 0x24cac 0x23d90> {[@@-16]|[-8-]|[4, '(A6+0x8)']|[##3]}
<POP 24cb0-24cb2 StackAdj> Δ+8 {[@@-16]|[-8-]}
<Call 0x24cb2 0x10350> {[@@-16]|[-8-]}
Quad2Long(a : Quad) : Long
<POP 24cb8-24cba StackAdj> Δ+8 {[@@-16]}
<MI 24cba MOVE.L (A7)+,D6> Δ+4 {}
<MI 24cbc MOVEA.L (A6-0x14),A0> {}
<MI 24cbe MOVE.L D5,D0> {}
<MI 24cc0 ADD.L D6,D0> {}
<MI 24cc2 SUBQ.L #0x1,D0> {}
<MI 24cc4 MOVE.W (A0),D1> {}
<MI 24cc6 EXTW.L D1> {}
<MI 24cc8 CMP.L D1,D0> {}
<MI 24cca BLE 0x24cd2> {}
<POP 24ccc-24cd2 Naked> Σ0 ↓
<MI 24ccc ADDQ.L #0x1,D1> {}
<MI 24cce SUB.L D5,D1> {}
<MI 24cd0 MOVE.L D1,D6> {}
<POP 24cd2-24cd6 Naked> Σ0 Δ-4 ↓ ←0x24c74
<MI 24cd2 MOVE.L D6,-(A7)> Δ-4 {[4, 'D6']}
<MI 24cd4 MOVEQ.L #0x01,D7> {[4, 'D6']}
<POP 24cd6-24cda Naked> Σ-4 ↓ →0x24d00 ←0x24cda
<MI 24cd6 CMP.L (A7),D7> {[-4-]}
<MI 24cd8 BGT 0x24d00> {[-4-]}
<POP 24cda-24d00 Naked> Σ-4 ↓ →0x24cd6
<MI 24cda MOVEA.L (A6-0x10),A0> {[-4-]}
<MI 24cdc MOVE.L D7,D0> {[-4-]}
<MI 24cde SUBQ.L #0x1,D0> {[-4-]}
<POP 0x24ce0 LimitCheck 0x0 ≤ D0 ≤ 0x7d> {[-4-]}
<MI 24ce6 MOVEA.L (A6-0x14),A1> {[-4-]}
<MI 24ce8 MOVE.L D7,D1> {[-4-]}
<MI 24cea ADD.L D5,D1> {[-4-]}
<MI 24cec SUBQ.L #0x1,D1> {[-4-]}
<MI 24cee SUBQ.L #0x1,D1> {[-4-]}
<POP 0x24cf0 LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-4-]}
<MI 24cf6 MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x2)> {[-4-]}
<MI 24cfc ADDQ.L #0x1,D7> {[-4-]}
<MI 24cfe BVC 0x24cd6> {[-4-]}
<POP 24d00-24d2e Naked> Σ-4 Δ+4 ↓ ←0x24cd6
<POP 24d00-24d02 StackAdj> Δ+4 {}
<MI 24d02 MOVEA.L (A6-0x10),A0> {}
<POP 0x24d04 LimitCheck -0x8000 ≤ D6 ≤ 0x7fff> {}
<MI 24d1a MOVE.W D6,(A0)> {}
<MI 24d1c MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0x10)']}
<Call 0x24d1e 0x23e00> {[4, '(A6-0x10)']}
<POP 24d22-24d24 StackAdj> Δ+4 {}
<Pointer.fp 0x24d24 <LVAR -0x014 @ 4(rw)>> Δ-4 {[@@-20]}
<Call 0x24d26 0x102bc> {[@@-20]}
FreeString(VAR a : String)
<POP 24d2c-24d2e StackAdj> Δ+4 {}
<POP 24d2e-24d36 Epilogue> Σ0
@ 24d36
<LVAR 0x008 4(r)>
<POP 24d36-24d62 Body>
<POP 24d36-24d48 Prologue> Σ0 ↓
<POP 24d48-24d5e Naked> Σ0 ↓
<POP 24d48-24d4a StackAdj> Δ-8 {[-8-]}
<MI 24d4a MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<Const 0x24d4e 0x1.4> Δ-4 {[-8-]|[4, '(A6+0x8)']|[##1]}
<Call 0x24d52 0x23d90> {[-8-]|[4, '(A6+0x8)']|[##1]}
<POP 24d56-24d58 StackAdj> Δ+8 {[-8-]}
<Call 0x24d58 0x23bca> {[-8-]}
<POP 24d5c-24d5e StackAdj> Δ+8 {}
<POP 24d5e-24d62 Epilogue> Σ0
@ 24d62
<LVAR 0x008 4(r)>
<POP 24d62-24dae Body>
<POP 24d62-24d74 Prologue> Σ0 ↓
<POP 24d74-24da0 Naked> Σ0 ↓ →0x24da6
<POP 24d74-24d78 StackAdj> Δ-10 {[-10-]}
<MI 24d78 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']}
<Const 0x24d7c 0x1.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x24d80 0x23d90> {[-10-]|[4, '(A6+0x8)']|[##1]}
<MI 24d84 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x24d88 0x2.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x24d8c 0x23d90> {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 24d90-24d92 StackAdj> Δ+8 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x24d92 0x1032c> {[-10-]|[4, '(A6+0x8)']|[##1]}
IsEqual(a, b : Quad) : Bool
<POP 24d98-24d9c StackAdj> Δ+16 {[-2-]}
<MI 24d9c TST.B (A7)+> Δ+2 {}
<MI 24d9e BEQ 0x24da6> {}
<POP 24da0-24da6 Naked> Σ0 →0x24daa
<Call 0x24da0 0x2381e> {}
<MI 24da4 BRA 0x24daa> {}
<POP 24da6-24daa Naked> Σ0 ↓ ←0x24d74
<Call 0x24da6 0x23864> {}
<POP 24daa-24dae Epilogue> Σ0 ←0x24da0
@ 24dae
<LVAR 0x008 4(r)>
<POP 24dae-24dfa Body>
<POP 24dae-24dc0 Prologue> Σ0 ↓
<POP 24dc0-24dec Naked> Σ0 ↓ →0x24df2
<POP 24dc0-24dc4 StackAdj> Δ-10 {[-10-]}
<MI 24dc4 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']}
<Const 0x24dc8 0x1.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x24dcc 0x23d90> {[-10-]|[4, '(A6+0x8)']|[##1]}
<MI 24dd0 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x24dd4 0x2.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x24dd8 0x23d90> {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 24ddc-24dde StackAdj> Δ+8 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x24dde 0x1032c> {[-10-]|[4, '(A6+0x8)']|[##1]}
IsEqual(a, b : Quad) : Bool
<POP 24de4-24de8 StackAdj> Δ+16 {[-2-]}
<MI 24de8 TST.B (A7)+> Δ+2 {}
<MI 24dea BNE 0x24df2> {}
<POP 24dec-24df2 Naked> Σ0 →0x24df6
<Call 0x24dec 0x2381e> {}
<MI 24df0 BRA 0x24df6> {}
<POP 24df2-24df6 Naked> Σ0 ↓ ←0x24dc0
<Call 0x24df2 0x23864> {}
<POP 24df6-24dfa Epilogue> Σ0 ←0x24dec
@ 24dfa
<LVAR 0x008 4(r)>
<POP 24dfa-24e46 Body>
<POP 24dfa-24e0c Prologue> Σ0 ↓
<POP 24e0c-24e38 Naked> Σ0 ↓ →0x24e3e
<POP 24e0c-24e10 StackAdj> Δ-10 {[-10-]}
<MI 24e10 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']}
<Const 0x24e14 0x1.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x24e18 0x23d90> {[-10-]|[4, '(A6+0x8)']|[##1]}
<MI 24e1c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x24e20 0x2.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x24e24 0x23d90> {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 24e28-24e2a StackAdj> Δ+8 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x24e2a 0x10328> {[-10-]|[4, '(A6+0x8)']|[##1]}
IsSmaller(a, b : Quad) : Bool
<POP 24e30-24e34 StackAdj> Δ+16 {[-2-]}
<MI 24e34 TST.B (A7)+> Δ+2 {}
<MI 24e36 BEQ 0x24e3e> {}
<POP 24e38-24e3e Naked> Σ0 →0x24e42
<Call 0x24e38 0x2381e> {}
<MI 24e3c BRA 0x24e42> {}
<POP 24e3e-24e42 Naked> Σ0 ↓ ←0x24e0c
<Call 0x24e3e 0x23864> {}
<POP 24e42-24e46 Epilogue> Σ0 ←0x24e38
@ 24e46
<LVAR 0x008 4(r)>
<POP 24e46-24e92 Body>
<POP 24e46-24e58 Prologue> Σ0 ↓
<POP 24e58-24e84 Naked> Σ0 ↓ →0x24e8a
<POP 24e58-24e5c StackAdj> Δ-10 {[-10-]}
<MI 24e5c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']}
<Const 0x24e60 0x1.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x24e64 0x23d90> {[-10-]|[4, '(A6+0x8)']|[##1]}
<MI 24e68 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x24e6c 0x2.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x24e70 0x23d90> {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 24e74-24e76 StackAdj> Δ+8 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x24e76 0x10324> {[-10-]|[4, '(A6+0x8)']|[##1]}
IsGreater(a, b : Quad) : Bool
<POP 24e7c-24e80 StackAdj> Δ+16 {[-2-]}
<MI 24e80 TST.B (A7)+> Δ+2 {}
<MI 24e82 BEQ 0x24e8a> {}
<POP 24e84-24e8a Naked> Σ0 →0x24e8e
<Call 0x24e84 0x2381e> {}
<MI 24e88 BRA 0x24e8e> {}
<POP 24e8a-24e8e Naked> Σ0 ↓ ←0x24e58
<Call 0x24e8a 0x23864> {}
<POP 24e8e-24e92 Epilogue> Σ0 ←0x24e84
@ 24e92
<LVAR 0x008 4(r)>
<POP 24e92-24ede Body>
<POP 24e92-24ea4 Prologue> Σ0 ↓
<POP 24ea4-24ed0 Naked> Σ0 ↓ →0x24ed6
<POP 24ea4-24ea8 StackAdj> Δ-10 {[-10-]}
<MI 24ea8 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']}
<Const 0x24eac 0x1.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x24eb0 0x23d90> {[-10-]|[4, '(A6+0x8)']|[##1]}
<MI 24eb4 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x24eb8 0x2.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x24ebc 0x23d90> {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 24ec0-24ec2 StackAdj> Δ+8 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x24ec2 0x10324> {[-10-]|[4, '(A6+0x8)']|[##1]}
IsGreater(a, b : Quad) : Bool
<POP 24ec8-24ecc StackAdj> Δ+16 {[-2-]}
<MI 24ecc TST.B (A7)+> Δ+2 {}
<MI 24ece BNE 0x24ed6> {}
<POP 24ed0-24ed6 Naked> Σ0 →0x24eda
<Call 0x24ed0 0x2381e> {}
<MI 24ed4 BRA 0x24eda> {}
<POP 24ed6-24eda Naked> Σ0 ↓ ←0x24ea4
<Call 0x24ed6 0x23864> {}
<POP 24eda-24ede Epilogue> Σ0 ←0x24ed0
@ 24ede
<LVAR 0x008 4(r)>
<POP 24ede-24f2a Body>
<POP 24ede-24ef0 Prologue> Σ0 ↓
<POP 24ef0-24f1c Naked> Σ0 ↓ →0x24f22
<POP 24ef0-24ef4 StackAdj> Δ-10 {[-10-]}
<MI 24ef4 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']}
<Const 0x24ef8 0x1.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x24efc 0x23d90> {[-10-]|[4, '(A6+0x8)']|[##1]}
<MI 24f00 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x24f04 0x2.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x24f08 0x23d90> {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 24f0c-24f0e StackAdj> Δ+8 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x24f0e 0x10328> {[-10-]|[4, '(A6+0x8)']|[##1]}
IsSmaller(a, b : Quad) : Bool
<POP 24f14-24f18 StackAdj> Δ+16 {[-2-]}
<MI 24f18 TST.B (A7)+> Δ+2 {}
<MI 24f1a BNE 0x24f22> {}
<POP 24f1c-24f22 Naked> Σ0 →0x24f26
<Call 0x24f1c 0x2381e> {}
<MI 24f20 BRA 0x24f26> {}
<POP 24f22-24f26 Naked> Σ0 ↓ ←0x24ef0
<Call 0x24f22 0x23864> {}
<POP 24f26-24f2a Epilogue> Σ0 ←0x24f1c
@ 24f2a
<LVAR 0x008 4(r)>
<POP 24f2a-24f74 Body>
<POP 24f2a-24f40 Prologue> Σ0 ↓
<POP 24f40-24f42 RegCacheLoad> Σ0 ↓
<POP 24f42-24f6c Naked> Σ0 ↓
<POP 24f42-24f44 StackAdj> Δ-16 {[-16-]}
<MI 24f44 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x24f48 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x24f4c 0x23d90> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 24f50 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x24f54 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x24f58 0x23d90> {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 24f5c-24f5e StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x24f5e 0x10314> {[-16-]|[4, '(A6+0x8)']|[##1]}
Add(a, b : Quad) : Quad
<POP 24f64-24f66 StackAdj> Δ+16 {[-8-]}
<Call 0x24f66 0x23e88> {[-8-]}
<POP 24f6a-24f6c StackAdj> Δ+8 {}
<POP 24f6c-24f74 Epilogue> Σ0
@ 24f74
<LVAR 0x008 4(r)>
<POP 24f74-24fbe Body>
<POP 24f74-24f8a Prologue> Σ0 ↓
<POP 24f8a-24f8c RegCacheLoad> Σ0 ↓
<POP 24f8c-24fb6 Naked> Σ0 ↓
<POP 24f8c-24f8e StackAdj> Δ-16 {[-16-]}
<MI 24f8e MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x24f92 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x24f96 0x23d90> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 24f9a MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x24f9e 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x24fa2 0x23d90> {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 24fa6-24fa8 StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x24fa8 0x10318> {[-16-]|[4, '(A6+0x8)']|[##1]}
Subtract(a, b : Quad) : Quad
<POP 24fae-24fb0 StackAdj> Δ+16 {[-8-]}
<Call 0x24fb0 0x23e88> {[-8-]}
<POP 24fb4-24fb6 StackAdj> Δ+8 {}
<POP 24fb6-24fbe Epilogue> Σ0
@ 24fbe
<LVAR 0x008 4(r)>
<POP 24fbe-25008 Body>
<POP 24fbe-24fd4 Prologue> Σ0 ↓
<POP 24fd4-24fd6 RegCacheLoad> Σ0 ↓
<POP 24fd6-25000 Naked> Σ0 ↓
<POP 24fd6-24fd8 StackAdj> Δ-16 {[-16-]}
<MI 24fd8 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x24fdc 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x24fe0 0x23d90> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 24fe4 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x24fe8 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x24fec 0x23d90> {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 24ff0-24ff2 StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x24ff2 0x1031c> {[-16-]|[4, '(A6+0x8)']|[##1]}
Multiply(a, b : Quad) : Quad
<POP 24ff8-24ffa StackAdj> Δ+16 {[-8-]}
<Call 0x24ffa 0x23e88> {[-8-]}
<POP 24ffe-25000 StackAdj> Δ+8 {}
<POP 25000-25008 Epilogue> Σ0
@ 25008
<LVAR 0x008 4(r)>
<POP 25008-25052 Body>
<POP 25008-2501e Prologue> Σ0 ↓
<POP 2501e-25020 RegCacheLoad> Σ0 ↓
<POP 25020-2504a Naked> Σ0 ↓
<POP 25020-25022 StackAdj> Δ-16 {[-16-]}
<MI 25022 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x25026 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x2502a 0x23d90> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 2502e MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x25032 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x25036 0x23d90> {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 2503a-2503c StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x2503c 0x10320> {[-16-]|[4, '(A6+0x8)']|[##1]}
Divide(a, b : Quad) : Quad
<POP 25042-25044 StackAdj> Δ+16 {[-8-]}
<Call 0x25044 0x23e88> {[-8-]}
<POP 25048-2504a StackAdj> Δ+8 {}
<POP 2504a-25052 Epilogue> Σ0
@ 25052
<LVAR 0x008 4(r)>
<POP 25052-2509c Body>
<POP 25052-25068 Prologue> Σ0 ↓
<POP 25068-2506a RegCacheLoad> Σ0 ↓
<POP 2506a-25094 Naked> Σ0 ↓
<POP 2506a-2506c StackAdj> Δ-16 {[-16-]}
<MI 2506c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x25070 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x25074 0x23d90> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 25078 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x2507c 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x25080 0x23d90> {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 25084-25086 StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x25086 0x10358> {[-16-]|[4, '(A6+0x8)']|[##1]}
Modulus(a, b : Quad) : Quad
<POP 2508c-2508e StackAdj> Δ+16 {[-8-]}
<Call 0x2508e 0x23e88> {[-8-]}
<POP 25092-25094 StackAdj> Δ+8 {}
<POP 25094-2509c Epilogue> Σ0
@ 2509c
<LVAR 0x008 4(r)>
<POP 2509c-250e6 Body>
<POP 2509c-250b2 Prologue> Σ0 ↓
<POP 250b2-250b4 RegCacheLoad> Σ0 ↓
<POP 250b4-250de Naked> Σ0 ↓
<POP 250b4-250b6 StackAdj> Δ-16 {[-16-]}
<MI 250b6 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x250ba 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x250be 0x23d90> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 250c2 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x250c6 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x250ca 0x23d90> {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 250ce-250d0 StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x250d0 0x10334> {[-16-]|[4, '(A6+0x8)']|[##1]}
BitOr(a, b : Quad) : Quad
<POP 250d6-250d8 StackAdj> Δ+16 {[-8-]}
<Call 0x250d8 0x23e88> {[-8-]}
<POP 250dc-250de StackAdj> Δ+8 {}
<POP 250de-250e6 Epilogue> Σ0
@ 250e6
<LVAR 0x008 4(r)>
<POP 250e6-25130 Body>
<POP 250e6-250fc Prologue> Σ0 ↓
<POP 250fc-250fe RegCacheLoad> Σ0 ↓
<POP 250fe-25128 Naked> Σ0 ↓
<POP 250fe-25100 StackAdj> Δ-16 {[-16-]}
<MI 25100 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x25104 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x25108 0x23d90> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 2510c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x25110 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x25114 0x23d90> {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 25118-2511a StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x2511a 0x10330> {[-16-]|[4, '(A6+0x8)']|[##1]}
BitAnd(a, b : Quad) : Quad
<POP 25120-25122 StackAdj> Δ+16 {[-8-]}
<Call 0x25122 0x23e88> {[-8-]}
<POP 25126-25128 StackAdj> Δ+8 {}
<POP 25128-25130 Epilogue> Σ0
@ 25130
<LVAR 0x008 4(r)>
<POP 25130-2517a Body>
<POP 25130-25146 Prologue> Σ0 ↓
<POP 25146-25148 RegCacheLoad> Σ0 ↓
<POP 25148-25172 Naked> Σ0 ↓
<POP 25148-2514a StackAdj> Δ-16 {[-16-]}
<MI 2514a MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x2514e 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x25152 0x23d90> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 25156 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x2515a 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x2515e 0x23d90> {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 25162-25164 StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x25164 0x10340> {[-16-]|[4, '(A6+0x8)']|[##1]}
BitXor(a, b : Quad) : Quad
<POP 2516a-2516c StackAdj> Δ+16 {[-8-]}
<Call 0x2516c 0x23e88> {[-8-]}
<POP 25170-25172 StackAdj> Δ+8 {}
<POP 25172-2517a Epilogue> Σ0
@ 2517a
<LVAR 0x008 4(r)>
<POP 2517a-251be Body>
<POP 2517a-2518c Prologue> Σ0 ↓
<POP 2518c-251ba Naked> Σ0 ↓
<POP 2518c-25190 StackAdj> Δ-16 {[-16-]}
<MI 25190 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x25194 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x25198 0x23d90> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 2519c MOVE.L (A6+0x8),(A7)> {[-16-]|[4, '(A6+0x8)']|[4, '(A6+0x8)']}
<Const 0x251a0 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[4, '(A6+0x8)']|[##2]}
<Call 0x251a4 0x23dcc> {[-16-]|[4, '(A6+0x8)']|[4, '(A6+0x8)']|[##2]}
<POP 251a8-251aa StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']}
<Call 0x251aa 0x10344> {[-16-]|[4, '(A6+0x8)']}
BitShift(a : Quad ; howmuch : integer) : Quad
<POP 251b0-251b4 StackAdj> Δ+12 {[-8-]}
<Call 0x251b4 0x23e88> {[-8-]}
<POP 251b8-251ba StackAdj> Δ+8 {}
<POP 251ba-251be Epilogue> Σ0
@ 251be
<LVAR 0x008 4(r)>
<POP 251be-25204 Body>
<POP 251be-251d0 Prologue> Σ0 ↓
<POP 251d0-25200 Naked> Σ0 ↓
<POP 251d0-251d4 StackAdj> Δ-16 {[-16-]}
<MI 251d4 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x251d8 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x251dc 0x23d90> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 251e0 MOVE.L (A6+0x8),(A7)> {[-16-]|[4, '(A6+0x8)']|[4, '(A6+0x8)']}
<Const 0x251e4 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[4, '(A6+0x8)']|[##2]}
<Call 0x251e8 0x23dcc> {[-16-]|[4, '(A6+0x8)']|[4, '(A6+0x8)']|[##2]}
<POP 251ec-251ee StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']}
<MI 251ee NEG.L (A7)> {[-16-]|[4, '(A6+0x8)']}
<Call 0x251f0 0x10344> {[-16-]|[4, '(A6+0x8)']}
BitShift(a : Quad ; howmuch : integer) : Quad
<POP 251f6-251fa StackAdj> Δ+12 {[-8-]}
<Call 0x251fa 0x23e88> {[-8-]}
<POP 251fe-25200 StackAdj> Δ+8 {}
<POP 25200-25204 Epilogue> Σ0
@ 25204
<LVAR 0x008 4(r)>
<POP 25204-2523a Body>
<POP 25204-25216 Prologue> Σ0 ↓
<POP 25216-25236 Naked> Σ0 ↓
<POP 25216-2521a StackAdj> Δ-16 {[-16-]}
<MI 2521a MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x2521e 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x25222 0x23d90> {[-16-]|[4, '(A6+0x8)']|[##1]}
<POP 25226-25228 StackAdj> Δ+8 {[-16-]}
<Call 0x25228 0x10338> {[-16-]}
BitNot(a : Quad) : Quad
<POP 2522e-25230 StackAdj> Δ+8 {[-8-]}
<Call 0x25230 0x23e88> {[-8-]}
<POP 25234-25236 StackAdj> Δ+8 {}
<POP 25236-2523a Epilogue> Σ0
@ 2523a
<LVAR 0x008 4(r)>
<LVAR -0x00c 4(rw)>
<LVAR -0x010 4(rw)>
<LVAR -0x014 4(rw)>
<LVAR -0x018 4(rw)>
<POP 2523a-252ca Body>
<POP 2523a-25250 Prologue> Σ0 ↓
<POP 25250-25254 RegCacheLoad> Σ0 ↓
<POP 25254-252c2 Naked> Σ0 ↓
<POP 25254-25256 StackAdj> Δ-8 {[-8-]}
<MI 25256 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<Const 0x25258 0x1.4> Δ-4 {[-8-]|[4, '(A6+0x8)']|[##1]}
<Call 0x2525c 0x23d90> {[-8-]|[4, '(A6+0x8)']|[##1]}
<POP 25260-25262 StackAdj> Δ+8 {[-8-]}
<MI 25262 MOVE.L (A7)+,(A6-0x18)> Δ+4 {[-4-]}
<MI 25266 MOVE.L (A7),(A6-0x14)> {[-4-]}
<POP 2526a-2526c StackAdj> Δ-4 {[-8-]}
<MI 2526c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<Const 0x2526e 0x2.4> Δ-4 {[-8-]|[4, '(A6+0x8)']|[##2]}
<Call 0x25272 0x23d90> {[-8-]|[4, '(A6+0x8)']|[##2]}
<POP 25276-25278 StackAdj> Δ+8 {[-8-]}
<MI 25278 MOVE.L (A7)+,(A6-0x10)> Δ+4 {[-4-]}
<MI 2527c MOVE.L (A7),(A6-0xc)> {[-4-]}
<MI 25280 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x25282 0x3.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##3]}
<Call 0x25286 0x23dcc> {[-4-]|[4, '(A6+0x8)']|[##3]}
<POP 2528a-2528c StackAdj> Δ+8 {[-4-]}
<MI 2528c MOVE.L (A7),D7> {[-4-]}
<MI 2528e MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x25290 0x4.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##4]}
<Call 0x25294 0x23dcc> {[-4-]|[4, '(A6+0x8)']|[##4]}
<POP 25298-2529a StackAdj> Δ+8 {[-4-]}
<MI 2529a MOVE.L (A7),D6> {[-4-]}
<POP 2529c-2529e StackAdj> Δ-4 {[-8-]}
<MI 2529e MOVE.L (A6-0x14),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x14)']}
<MI 252a2 MOVE.L (A6-0x18),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']}
<MI 252a6 MOVE.L (A6-0xc),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']|[4, '(A6-0xc)']}
<MI 252aa MOVE.L (A6-0x10),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<MI 252ae MOVE.L D7,-(A7)> Δ-4 {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D7']}
<MI 252b0 MOVE.L D6,-(A7)> Δ-4 {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D7']|[4, 'D6']}
<Call 0x252b2 0x10348> {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D7']|[4, 'D6']}
?BitField_something_()
<POP 252b8-252bc StackAdj> Δ+24 {[-8-]}
<Call 0x252bc 0x23e88> {[-8-]}
<POP 252c0-252c2 StackAdj> Δ+8 {}
<POP 252c2-252ca Epilogue> Σ0
@ 252ca
<LVAR 0x008 4(r)>
<LVAR -0x00c 4(rw)>
<LVAR -0x010 4(rw)>
<POP 252ca-2533c Body>
<POP 252ca-252e0 Prologue> Σ0 ↓
<POP 252e0-252e4 RegCacheLoad> Σ0 ↓
<POP 252e4-25334 Naked> Σ0 ↓
<POP 252e4-252e6 StackAdj> Δ-8 {[-8-]}
<MI 252e6 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<Const 0x252e8 0x1.4> Δ-4 {[-8-]|[4, '(A6+0x8)']|[##1]}
<Call 0x252ec 0x23d90> {[-8-]|[4, '(A6+0x8)']|[##1]}
<POP 252f0-252f2 StackAdj> Δ+8 {[-8-]}
<MI 252f2 MOVE.L (A7)+,(A6-0x10)> Δ+4 {[-4-]}
<MI 252f6 MOVE.L (A7),(A6-0xc)> {[-4-]}
<MI 252fa MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x252fc 0x2.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##2]}
<Call 0x25300 0x23dcc> {[-4-]|[4, '(A6+0x8)']|[##2]}
<POP 25304-25306 StackAdj> Δ+8 {[-4-]}
<MI 25306 MOVE.L (A7),D7> {[-4-]}
<MI 25308 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x2530a 0x3.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##3]}
<Call 0x2530e 0x23dcc> {[-4-]|[4, '(A6+0x8)']|[##3]}
<POP 25312-25314 StackAdj> Δ+8 {[-4-]}
<MI 25314 MOVE.L (A7),D6> {[-4-]}
<POP 25316-25318 StackAdj> Δ-4 {[-8-]}
<MI 25318 MOVE.L (A6-0xc),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']}
<MI 2531c MOVE.L (A6-0x10),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<MI 25320 MOVE.L D7,-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D7']}
<MI 25322 MOVE.L D6,-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D7']|[4, 'D6']}
<Call 0x25324 0x1034c> {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D7']|[4, 'D6']}
FSCALL_1034c
<POP 2532a-2532e StackAdj> Δ+16 {[-8-]}
<Call 0x2532e 0x23e88> {[-8-]}
<POP 25332-25334 StackAdj> Δ+8 {}
<POP 25334-2533c Epilogue> Σ0
@ 2533c
<LVAR 0x008 4(r)>
<POP 2533c-253ae Body>
<POP 2533c-25352 Prologue> Σ0 ↓
<POP 25352-25360 Naked> Σ0 Δ-4 ↓
<POP 25352-25354 StackAdj> Δ-4 {[-4-]}
<MI 25354 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x25358 0x23442> {[-4-]|[4, '(A6+0x8)']}
<POP 2535c-2535e StackAdj> Δ+4 {[-4-]}
<MI 2535e MOVEQ.L #0x01,D7> {[-4-]}
<POP 25360-25364 Naked> Σ-4 ↓ →0x2538a ←0x25364
<MI 25360 CMP.L (A7),D7> {[-4-]}
<MI 25362 BGT 0x2538a> {[-4-]}
<POP 25364-2538a Naked> Σ-4 ↓ →0x25360
<POP 25364-25366 StackAdj> Δ-4 {[-8-]}
<MI 25366 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<MI 2536a MOVE.L D7,-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']|[4, 'D7']}
<Call 0x2536c 0x23d5e> {[-8-]|[4, '(A6+0x8)']|[4, 'D7']}
<POP 25370-25372 StackAdj> Δ+8 {[-8-]}
<Call 0x25372 0x103d8> {[-8-]}
WriteConsoleString(str : String)
<POP 25378-2537a StackAdj> Δ+2 {[-6-]}
<POP 2537a-2537b StackAdj> Δ+2 {[-4-]}
<Const 0x2537b 0x20.2> Δ-2 {[-4-]|[#32]}
<Call 0x2537e 0x103d0> {[-4-]|[#32]}
WriteConsoleChar(chr : char)
<POP 25384-25386 StackAdj> Δ+2 {[-4-]}
<MI 25386 ADDQ.L #0x1,D7> {[-4-]}
<MI 25388 BVC 0x25360> {[-4-]}
<POP 2538a-253a6 Naked> Σ-4 Δ+4 ↓ ←0x25360
<Const 0x2538a 0x1.4> Δ-4 {[-4-]|[##1]}
<Call 0x2538e 0x103e4> {[-4-]|[##1]}
AskConsoleString(prompt : String) : String
<POP 25394-25396 StackAdj> Δ+4 {[-4-]}
<MI 25396 MOVEA.L (A7)+,A4> Δ+4 {}
<MI 25398 MOVE.L A4,-(A7)> Δ-4 {[4, 'A4']}
<Call 0x2539a 0x2328e> {[4, 'A4']}
<MI 2539e MOVE.L A4,(A7)> {[4, 'A4']}
<Call 0x253a0 0x23e00> {[4, 'A4']}
<POP 253a4-253a6 StackAdj> Δ+4 {}
<POP 253a6-253ae Epilogue> Σ0
@ 253ae
<LVAR 0x008 4(r)>
<POP 253ae-25430 Body>
<POP 253ae-253c4 Prologue> Σ0 ↓
<POP 253c4-253ca RegCacheLoad> Σ0 ↓
<POP 253ca-25428 Naked> Σ0 ↓
<POP 253ca-253cc StackAdj> Δ-4 {[-4-]}
<MI 253cc MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x253ce 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x253d2 0x23d5e> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 253d6-253d8 StackAdj> Δ+8 {[-4-]}
<MI 253d8 MOVEA.L (A7)+,A4> Δ+4 {}
<POP 253da-253dc StackAdj> Δ-12 {[-12-]}
<MI 253dc MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']}
<Const 0x253de 0x2.4> Δ-4 {[-12-]|[4, '(A6+0x8)']|[##2]}
<Call 0x253e2 0x23d90> {[-12-]|[4, '(A6+0x8)']|[##2]}
<POP 253e6-253e8 StackAdj> Δ+8 {[-12-]}
<Call 0x253e8 0x10350> {[-12-]}
Quad2Long(a : Quad) : Long
<POP 253ee-253f0 StackAdj> Δ+8 {[-4-]}
<MI 253f0 MOVE.L (A7),D7> {[-4-]}
<POP 253f2-253f4 StackAdj> Δ-8 {[-12-]}
<MI 253f4 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']}
<Const 0x253f6 0x3.4> Δ-4 {[-12-]|[4, '(A6+0x8)']|[##3]}
<Call 0x253fa 0x23d90> {[-12-]|[4, '(A6+0x8)']|[##3]}
<POP 253fe-25400 StackAdj> Δ+8 {[-12-]}
<Call 0x25400 0x10350> {[-12-]}
Quad2Long(a : Quad) : Long
<POP 25406-25408 StackAdj> Δ+8 {[-4-]}
<MI 25408 MOVE.L (A7),D6> {[-4-]}
<POP 2540a-2540c StackAdj> Δ-8 {[-12-]}
<MI 2540c MOVE.L A4,-(A7)> Δ-4 {[-12-]|[4, 'A4']}
<MI 2540e MOVE.L D7,-(A7)> Δ-4 {[-12-]|[4, 'A4']|[4, 'D7']}
<Call 0x25410 0x10360> {[-12-]|[4, 'A4']|[4, 'D7']}
?StringToInt64()
<POP 25416-25418 StackAdj> Δ+4 {[-12-]|[4, 'A4']}
<MI 25418 MOVE.L D6,(A7)> {[-12-]|[4, 'D6']}
<Call 0x2541a 0x1035c> {[-12-]|[4, 'D6']}
Quad2String(a : Quad; radix : Long ) : String
<POP 25420-25422 StackAdj> Δ+12 {[-4-]}
<Call 0x25422 0x23e00> {[-4-]}
<POP 25426-25428 StackAdj> Δ+4 {}
<POP 25428-25430 Epilogue> Σ0
@ 25430
<LVAR 0x008 4(r)>
<LVAR -0x00a 2(r)>
<LVAR -0x00c 4(rw)>
<LVAR -0x010 4(rw)>
<POP 25430-254b0 Body>
<POP 25430-25446 Prologue> Σ0 ↓
<POP 25446-2544e RegCacheLoad> Σ0 ↓
<POP 2544e-25466 Naked> Σ0 ↓
<POP 2544e-25450 StackAdj> Δ-8 {[-8-]}
<MI 25450 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<Const 0x25454 0x1.4> Δ-4 {[-8-]|[4, '(A6+0x8)']|[##1]}
<Call 0x25458 0x23d90> {[-8-]|[4, '(A6+0x8)']|[##1]}
<POP 2545c-2545e StackAdj> Δ+8 {[-8-]}
<MI 2545e MOVE.L (A7)+,(A6-0x10)> Δ+4 {[-4-]}
<MI 25460 MOVE.L (A7)+,(A6-0xc)> Δ+4 {}
<MI 25462 MOVEQ.L #0x00,D7> {}
<MI 25464 MOVEQ.L #0x00,D6> {}
<POP 25466-25496 Naked> Σ0 ↓ →0x25466 ←0x25466
<MI 25466 MOVE.W (A6-0xa),D0> {}
<MI 2546a ANDI.W #0x0001,D0> {}
<MI 2546e CLR.L D1> {}
<MI 25470 MOVE.W D0,D1> {}
<MI 25472 ADD.L D1,D7> {}
<POP 25474-25476 StackAdj> Δ-8 {[-8-]}
<MI 25476 MOVE.L (A6-0xc),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']}
<MI 25478 MOVE.L (A6-0x10),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<Const 0x2547a 0xffffffff.4> Δ-4 {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[##4294967295]}
<Call 0x2547e 0x10344> {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[##4294967295]}
BitShift(a : Quad ; howmuch : integer) : Quad
<POP 25484-25488 StackAdj> Δ+12 {[-8-]}
<MI 25488 MOVE.L (A7)+,(A6-0x10)> Δ+4 {[-4-]}
<MI 2548a MOVE.L (A7)+,(A6-0xc)> Δ+4 {}
<MI 2548c ADDQ.L #0x1,D6> {}
<MI 2548e CMPI.L #0x0000003f,D6> {}
<MI 25494 BLE 0x25466> {}
<POP 25496-254a8 Naked> Σ0 ↓
<POP 25496-25498 StackAdj> Δ-8 {[-8-]}
<MI 25498 MOVE.L D7,-(A7)> Δ-4 {[-8-]|[4, 'D7']}
<Call 0x2549a 0x10354> {[-8-]|[4, 'D7']}
Long2Quad(a : Long) : Quad
<POP 254a0-254a2 StackAdj> Δ+4 {[-8-]}
<Call 0x254a2 0x23e88> {[-8-]}
<POP 254a6-254a8 StackAdj> Δ+8 {}
<POP 254a8-254b0 Epilogue> Σ0
@ 254b0
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 1(r)>
<POP 254b0-25574 Body>
<POP 254b0-254c6 Prologue> Σ0 ↓
<POP 254c6-254d0 RegCacheLoad> Σ0 ↓
<POP 254d0-254d4 Naked> Σ0 ↓ →0x25506
<MI 254d0 TST.B 0x2937a> {}
<MI 254d2 BNE 0x25506> {}
<POP 254d4-25506 Naked> Σ0 ↓
<Blob 0x254d4 [28] @> Δ-28 {[«28""»]}
<POP 254e6-254e8 StackAdj> Δ-4 {[«28""»]|[-4-]}
<Lit 0x254e8 27> {[«28""»]|[$$REPEATing, type ^G to exit.]}
<Call 0x254fa 0x103e0> {[«28""»]|[$$REPEATing, type ^G to exit.]}
WriteConsoleStringCrLf(str : String)
<POP 25500-25504 StackAdj> Δ+32 {}
<MI 25504 MOVE.B #0x01,0x2937a> {}
<POP 25506-25530 Naked> Σ0 ↓ →0x25546 ←0x254d0
<POP 25506-25508 StackAdj> Δ-6 {[-6-]}
<Call 0x25508 0x103f8> {[-6-]}
GetConsoleConfig() : Long
<MI 2550e MOVE.L (A7)+,D0> Δ+4 {[-2-]}
<POP 0x25510 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {[-2-]}
<MI 2551a MOVE.W D0,(A7)> {[2, 'D0']}
<Pointer.fp 0x2551c <LVAR -0x004 @ 1(r)>> Δ-4 {[2, 'D0']|[@@-4]}
<Call 0x25520 0x10212> {[2, 'D0']|[@@-4]}
KC09_PortStatus(Port : Word; VAR b: Byte)
<POP 25526-25528 StackAdj> Δ+6 {}
<MI 25528 MOVE.B (A6-0x4),D0> {}
<MI 2552c CMP.B #0x01,D0> {}
<MI 2552e BEQ 0x25546> {}
<POP 25530-25546 Naked> Σ0
<MI 25530 MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<Call 0x25534 0x22ff4> {[4, '(A6+0x8)']}
<POP 25538-2553a StackAdj> Δ+4 {}
<POP 2553a-25546 Bailout> {}
<MI 2553a MOVEA.L (A5+0x8),A7>
<MI 2553e MOVEA.W #0x00,A6>
<MI 25540 JMP 0x268d8>
<POP 25546-25556 Naked> Σ0 ↓ →0x2556c ←0x25506
<POP 25546-25548 StackAdj> Δ-2 {[-2-]}
<Call 0x25548 0x103d4> {[-2-]}
ReadChar() : Byte
<MI 2554e MOVE.B (A7)+,D0> Δ+2 {}
<MI 25550 CMPI.B #0x07,D0> {}
<MI 25554 BEQ 0x2556c> {}
<POP 25556-2556c Naked> Σ0
<MI 25556 MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<Call 0x2555a 0x22ff4> {[4, '(A6+0x8)']}
<POP 2555e-25560 StackAdj> Δ+4 {}
<POP 25560-2556c Bailout> {}
<MI 25560 MOVEA.L (A5+0x8),A7>
<MI 25564 MOVEA.W #0x00,A6>
<MI 25566 JMP 0x268d8>
<POP 2556c-25574 Epilogue> Σ0 ←0x25546
@ 25574
<POP 25574-25594 Body>
<POP 25574-25586 Prologue> Σ0 ↓
<POP 25586-25590 Naked> Σ0 ↓
<Const 0x25586 0xc8.4> Δ-4 {[##200]}
<Call 0x2558a 0x23ebc> {[##200]}
<POP 2558e-25590 StackAdj> Δ+4 {}
<POP 25590-25594 Epilogue> Σ0
@ 25594
<LVAR 0x008 4(r)>
<LVAR -0x00c @ 4(r)>
<POP 25594-25640 Body>
<POP 25594-255aa Prologue> Σ0 ↓
<POP 255aa-255ae RegCacheLoad> Σ0 ↓
<POP 255ae-255c2 Naked> Σ0 Δ-4 ↓
<Pointer.fp 0x255ae <LVAR -0x00c @ 4(r)>> Δ-4 {[@@-12]}
<Call 0x255b0 0x102b8> {[@@-12]}
NewString(VAR a : String)
<MI 255b6 MOVE.L (A6+0x8),-(A7)> Δ-4 {[@@-12]|[4, '(A6+0x8)']}
<Call 0x255ba 0x23442> {[@@-12]|[4, '(A6+0x8)']}
<POP 255be-255c0 StackAdj> Δ+4 {[@@-12]}
<MI 255c0 MOVEQ.L #0x01,D7> {[@@-12]}
<POP 255c2-255c6 Naked> Σ-4 ↓ →0x25630 ←0x2562c
<MI 255c2 CMP.L (A7),D7> {[-4-]}
<MI 255c4 BGT 0x25630> {[-4-]}
<POP 255c6-255d8 Naked> Σ-4 ↓ →0x255f8
<POP 255c6-255c8 StackAdj> Δ-4 {[-8-]}
<MI 255c8 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<MI 255cc MOVE.L D7,-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']|[4, 'D7']}
<Call 0x255ce 0x23dcc> {[-8-]|[4, '(A6+0x8)']|[4, 'D7']}
<POP 255d2-255d4 StackAdj> Δ+8 {[-8-]}
<MI 255d4 MOVE.L (A7)+,D6> Δ+4 {[-4-]}
<MI 255d6 BLT 0x255f8> {[-4-]}
<POP 255d8-255e0 Naked> Σ-4 ↓ →0x255f8
<MI 255d8 CMPI.L #0x000000ff,D6> {[-4-]}
<MI 255de BGT 0x255f8> {[-4-]}
<POP 255e0-255f8 Naked> Σ-4 →0x2562c
<MI 255e0 MOVE.L (A6-0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6-0xc)']}
<POP 0x255e2 LimitCheck 0x0 ≤ D6 ≤ 0xff> {[-4-]|[4, '(A6-0xc)']}
<MI 255ec MOVE.B D6,-(A7)> Δ-2 {[-4-]|[4, '(A6-0xc)']|[2, 'D6']}
<Call 0x255ee 0x102c0> {[-4-]|[4, '(A6-0xc)']|[2, 'D6']}
AppendChar(MOD b : String; a : char)
<POP 255f4-255f6 StackAdj> Δ+6 {[-4-]}
<MI 255f6 BRA 0x2562c> {[-4-]}
<POP 255f8-2562c Naked> Σ-4 ↓ ←0x255c6 ←0x255d8
<Pointer.fp 0x255f8 <LVAR -0x00c @ 4(r)>> Δ-4 {[-4-]|[@@-12]}
<Call 0x255fa 0x102bc> {[-4-]|[@@-12]}
FreeString(VAR a : String)
<POP 25600-25602 StackAdj> Δ+4 {[-4-]}
<Blob 0x25602 [28] @> Δ-28 {[-4-]|[«28""»]}
<POP 2560e-25610 StackAdj> Δ-4 {[-4-]|[«28""»]|[-4-]}
<Lit 0x25610 28> {[-4-]|[«28""»]|[$$ASCII argument out of range.]}
<Call 0x25624 0x23036> {[-4-]|[«28""»]|[$$ASCII argument out of range.]}
<POP 25628-2562c StackAdj> Δ+32 {[-4-]}
<POP 2562c-25630 Naked> Σ-4 ↓ →0x255c2 ←0x255e0
<MI 2562c ADDQ.L #0x1,D7> {[-4-]}
<MI 2562e BVC 0x255c2> {[-4-]}
<POP 25630-25638 Naked> Σ-4 Δ+4 ↓ ←0x255c2
<MI 25630 MOVE.L (A6-0xc),(A7)> {[4, '(A6-0xc)']}
<Call 0x25632 0x23e00> {[4, '(A6-0xc)']}
<POP 25636-25638 StackAdj> Δ+4 {}
<POP 25638-25640 Epilogue> Σ0
@ 25640
<LVAR 0x00c 1(rw)>
<LVAR 0x008 4(r)>
<POP 25640-256f8 Body> Δ-8
<POP 25640-25656 Prologue> Σ0 ↓
<POP 25656-25666 Naked> Σ0 Δ-4 ↓
<MI 25656 CLR.B (A6+0xc)> {}
<MI 2565a MOVEA.L (A6+0x8),A0> {}
<MI 2565e MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 25660 MOVEQ.L #0x00,D0> {[4, 'A0']}
<MI 25662 ADDQ.W #0x1,D0> {[4, 'A0']}
<MI 25664 MOVE.B D0,D6> {[4, 'A0']}
<POP 25666-2566e Naked> Σ-4 ↓ →0x256ee ←0x256e8
<MI 25666 CMPI.B #0x2b,D6> {[-4-]}
<MI 2566a BGT 0x256ee> {[-4-]}
<POP 2566e-25694 Naked> Σ-4 ↓ →0x256e8
<MI 2566e LEA.L 0x22f22,A0> {[-4-]}
<MI 25672 MOVE.B D6,D0> {[-4-]}
<MI 25674 EXTB.W D0> {[-4-]}
<MI 25676 EXTW.L D0> {[-4-]}
<MI 25678 ROR.L #0x1,D0> {[-4-]}
<MI 2567a ADDA.W D0,A0> {[-4-]}
<MI 2567c SWAP.W D0> {[-4-]}
<MI 2567e ROL.W #0x3,D0> {[-4-]}
<MI 25680 CLR.L D1> {[-4-]}
<MI 25682 MOVE.B (A0),D1> {[-4-]}
<MI 25684 LSL.B D0,D1> {[-4-]}
<MI 25686 LSR.B #0x4,D1> {[-4-]}
<MI 25688 MOVE.L D1,D5> {[-4-]}
<MI 2568a MOVEA.L (A7),A0> {[-4-]}
<MI 2568c MOVE.W (A0),D0> {[-4-]}
<MI 2568e EXTW.L D0> {[-4-]}
<MI 25690 CMP.L D0,D5> {[-4-]}
<MI 25692 BNE 0x256e8> {[-4-]}
<POP 25694-25698 Naked> Σ-4 Δ-4 ↓
<MI 25694 MOVE.L D5,-(A7)> Δ-4 {[-4-]|[4, 'D5']}
<MI 25696 MOVEQ.L #0x01,D7> {[-4-]|[4, 'D5']}
<POP 25698-2569c Naked> Σ-8 ↓ →0x256de ←0x256da
<MI 25698 CMP.L (A7),D7> {[-8-]}
<MI 2569a BGT 0x256de> {[-8-]}
<POP 2569c-256d6 Naked> Σ-8 ↓ →0x256da
<MI 2569c MOVE.B D6,D0> {[-8-]}
<MI 2569e EXTB.W D0> {[-8-]}
<MI 256a0 MULS.W #0xa,D0> {[-8-]}
<MI 256a4 MOVE.L D7,D1> {[-8-]}
<MI 256a6 SUBQ.L #0x1,D1> {[-8-]}
<POP 0x256a8 LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-8-]}
<MI 256b2 MOVEA.L (A7+0x4),A0> {[-8-]}
<MI 256b6 LEA.L 0x22d6a,A1> {[-8-]}
<MI 256ba MOVE.L D7,D2> {[-8-]}
<MI 256bc SUBQ.L #0x1,D2> {[-8-]}
<POP 0x256be LimitCheck 0x0 ≤ D2 ≤ 0x9> {[-8-]}
<MI 256c8 LEA.L (A1+D0.W),A1> {[-8-]}
<MI 256cc MOVE.B (A0+D1.L+#0x2),D0> {[-8-]}
<MI 256d0 CMP.B (A1+D2.L),D0> {[-8-]}
<MI 256d4 BEQ 0x256da> {[-8-]}
<POP 256d6-256da Naked> Σ-8 Δ+4 →0x256e8
<POP 256d6-256d8 StackAdj> Δ+4 {[-4-]}
<MI 256d8 BRA 0x256e8> {[-4-]}
<POP 256da-256de Naked> Σ-8 ↓ →0x25698 ←0x2569c
<MI 256da ADDQ.L #0x1,D7> {[-8-]}
<MI 256dc BVC 0x25698> {[-8-]}
<POP 256de-256e8 Naked> Σ-8 Δ+8 →0x256f0 ←0x25698
<POP 256de-256e0 StackAdj> Δ+4 {[-4-]}
<MI 256e0 MOVE.B D6,(A6+0xc)> {[-4-]}
<POP 256e4-256e6 StackAdj> Δ+4 {}
<MI 256e6 BRA 0x256f0> {}
<POP 256e8-256ee Naked> Σ-4 ↓ →0x25666 ←0x2566e ←0x256d6
<MI 256e8 ADDQ.B #0x1,D6> {[-4-]}
<MI 256ea BVC 0x25666> {[-4-]}
<POP 256ee-256f0 Naked> Σ-4 Δ+4 ↓ ←0x25666
<POP 256ee-256f0 StackAdj> Δ+4 {}
<POP 256f0-256f8 Epilogue> Σ0 ←0x256de
@ 256f8
<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 256f8-25834 Body>
<POP 256f8-2570e Prologue> Σ0 ↓
<POP 2570e-2571c RegCacheLoad> Σ0 ↓
<POP 2571c-25788 Naked> Σ0 ↓ →0x257d2
<POP 2571c-2571e StackAdj> Δ-4 {[-4-]}
<MI 2571e MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']}
<Call 0x25722 0x102cc> {[-4-]|[4, '(A6+0xc)']}
StringDup(a : String) : String
<POP 25728-2572a StackAdj> Δ+4 {[-4-]}
<MI 2572a MOVE.L (A7)+,(A6-0x10)> Δ+4 {}
<MI 2572c MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0x10)']}
<Const 0x2572e 0x2e.2> Δ-2 {[4, '(A6-0x10)']|[#46]}
<Call 0x25732 0x102c0> {[4, '(A6-0x10)']|[#46]}
AppendChar(MOD b : String; a : char)
<POP 25738-2573a StackAdj> Δ+6 {}
<Blob 0x2573a [10] 0x2935a> Δ-10 {[«10»]}
<POP 25748-2574a StackAdj> Δ-4 {[«10»]|[-4-]}
<MI 2574a MOVE.L (A6-0x10),-(A7)> Δ-4 {[«10»]|[-4-]|[4, '(A6-0x10)']}
<POP 2574c-2574e StackAdj> Δ-4 {[«10»]|[-4-]|[4, '(A6-0x10)']|[-4-]}
<Lit 0x2574e> {[«10»]|[-4-]|[4, '(A6-0x10)']|[$$…]}
<Pointer.sp 0x2574e 12> Δ-4
<Const 0x25752 0x1.2> Δ-2
<Const 0x25754 0xa.2> Δ-2
<Call 0x25758 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 2575e-25760 StackAdj> Δ+8
<Call 0x25760 0x102d0> {[«10»]|[-4-]|[4, '(A6-0x10)']|[$$…]}
StringCat2(a, b : String) : String
<POP 25766-25768 StackAdj> Δ+8 {[«10»]|[-4-]}
<MI 25768 MOVE.L (A7)+,(A6-0x10)> Δ+4 {[«10»]}
<POP 2576a-2576c StackAdj> Δ+6 {[-4-]}
<MI 2576c MOVE.L (A6-0x10),(A7)> {[4, '(A6-0x10)']}
<MI 2576e CLR.B -(A7)> Δ-2 {[4, '(A6-0x10)']|[#0]}
<Const 0x25770 0x1.2> Δ-2 {[4, '(A6-0x10)']|[#0]|[#1]}
<Const 0x25772 0x0.4> Δ-4 {[4, '(A6-0x10)']|[#0]|[#1]|[##0]}
<Pointer.fp 0x25776 <LVAR -0x002 @ 1(r)>> Δ-4 {[4, '(A6-0x10)']|[#0]|[#1]|[##0]|[@@-2]}
<Pointer.fp 0x25778 <LVAR -0x00c @ 4(r)>> Δ-4 {[4, '(A6-0x10)']|[#0]|[#1]|[##0]|[@@-2]|[@@-12]}
<Call 0x2577a 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 25780-25784 StackAdj> Δ+20 {}
<MI 25784 TST.B (A6-0x2)> {}
<MI 25786 BEQ 0x257d2> {}
<POP 25788-257d2 Naked> Σ0 ↓
<Pointer.fp 0x25788 <LVAR -0x010 @ 4(rw)>> Δ-4 {[@@-16]}
<Call 0x2578a 0x102bc> {[@@-16]}
FreeString(VAR a : String)
<MI 25790 MOVE.L (A6+0x8),(A7)> {[4, '(A6+0x8)']}
<Call 0x25794 0x22ff4> {[4, '(A6+0x8)']}
<POP 25798-25799 StackAdj> Δ+4 ↓ {}
<Blob 0x25799 [26] @> Δ-26 {[«26""»]}
<POP 257aa-257ac StackAdj> Δ-8 {[«26""»]|[-8-]}
<Lit 0x257ac 25> {[«26""»]|[-4-]|[$$Not a command or macro :_]}
<POP 257bc-257be StackAdj> Δ-4 {[«26""»]|[-4-]|[$$Not a command or macro :_]|[-4-]}
<MI 257be MOVE.L (A6+0xc),(A7)> {[«26""»]|[-4-]|[$$Not a command or macro :_]|[4, '(A6+0xc)']}
<Call 0x257c2 0x102d0> {[«26""»]|[-4-]|[$$Not a command or macro :_]|[4, '(A6+0xc)']}
StringCat2(a, b : String) : String
<POP 257c8-257ca StackAdj> Δ+8 {[«26""»]|[-4-]}
<Call 0x257ca 0x23036> {[«26""»]|[-4-]}
<POP 257ce-257d2 StackAdj> Δ+30 {}
<POP 257d2-257da Naked> Σ0 ↓ ←0x2571c
<MI 257d2 MOVE.L 0x29348,(A6-0x6)> {}
<POP 257da-257f2 Naked> Σ0 ↓ →0x25806 ←0x25806
<MI 257da MOVE.L (A6-0xc),-(A7)> Δ-4 {[4, '(A6-0xc)']}
<Pointer.fp 0x257dc <LVAR -0x010 @ 4(rw)>> Δ-4 {[4, '(A6-0xc)']|[@@-16]}
<Pointer.fp 0x257de <LVAR -0x008 @ 1(r)>> Δ-4 {[4, '(A6-0xc)']|[@@-16]|[@@-8]}
<Call 0x257e2 0x1043c> {[4, '(A6-0xc)']|[@@-16]|[@@-8]}
FileReadLine(file : File; VAR a : String; VAR b : Byte)
<POP 257e8-257ec StackAdj> Δ+12 {}
<MI 257ec MOVEA.L (A6-0x10),A0> {}
<MI 257ee TST.W (A0)> {}
<MI 257f0 BEQ 0x25806> {}
<POP 257f2-25806 Naked> Σ0 ↓
<MI 257f2 MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0x10)']}
<Call 0x257f4 0x2328e> {[4, '(A6-0x10)']}
<POP 257f8-257fa StackAdj> Δ+4 {}
<Pointer.fp 0x257fa <LVAR -0x006 @ 4(w)>> Δ-4 {[@@-6]}
<MI 257fe MOVE.L (A6-0x10),-(A7)> Δ-4 {[@@-6]|[4, '(A6-0x10)']}
<Call 0x25800 0x23614> {[@@-6]|[4, '(A6-0x10)']}
<POP 25804-25806 StackAdj> Δ+8 {}
<POP 25806-2580c Naked> Σ0 ↓ →0x257da ←0x257da
<MI 25806 TST.B (A6-0x8)> {}
<MI 2580a BEQ 0x257da> {}
<POP 2580c-2582c Naked> Σ0 ↓
<MI 2580c CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x2580e 0x1.2> Δ-2 {[#0]|[#1]}
<Const 0x25810 0x1.4> Δ-4 {[#0]|[#1]|[##1]}
<Pointer.fp 0x25814 <LVAR -0x002 @ 1(r)>> Δ-4 {[#0]|[#1]|[##1]|[@@-2]}
<Pointer.fp 0x25816 <LVAR -0x00c @ 4(r)>> Δ-4 {[#0]|[#1]|[##1]|[@@-2]|[@@-12]}
<Call 0x25818 0x1038c> {[#0]|[#1]|[##1]|[@@-2]|[@@-12]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 2581e-25822 StackAdj> Δ+16 {}
<Pointer.fp 0x25822 <LVAR -0x010 @ 4(rw)>> Δ-4 {[@@-16]}
<Call 0x25824 0x102bc> {[@@-16]}
FreeString(VAR a : String)
<POP 2582a-2582c StackAdj> Δ+4 {}
<POP 2582c-25834 Epilogue> Σ0
@ 25834
<LVAR 0x014 1(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 25834-25874 Body>
<POP 25834-2584a Prologue> Σ0 ↓
<POP 2584a-2586c Naked> Σ0 ↓
<MI 2584a MOVE.L (A6+0xc),D0> {}
<MI 2584e ADD.L (A6+0x8),D0> {}
<MI 25852 SUBQ.L #0x1,D0> {}
<MI 25854 SUBQ.L #0x1,D0> {}
<POP 0x25856 LimitCheck 0x0 ≤ D0 ≤ 0x1fff> {}
<MI 25860 LEA.L 0x27340,A0> {}
<MI 25866 MOVE.B (A0+D0.L+#0x8),(A6+0x14)> {}
<POP 2586c-25874 Epilogue> Σ0
@ 25874
<LVAR 0x010 4(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 1(r)>
<LVAR -0x008 @ 4(r)>
<POP 25874-258f0 Body>
<POP 25874-2588a Prologue> Σ0 ↓
<POP 2588a-258b2 Naked> Σ0 ↓ →0x258e2
<POP 2588a-2588c StackAdj> Δ-4 {[-4-]}
<MI 2588c MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']}
<MI 25890 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x25894 0x23ce2> {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 25898-2589a StackAdj> Δ+8 {[-4-]}
<Pointer.fp 0x2589a <LVAR -0x004 @ 1(r)>> Δ-4 {[-4-]|[@@-4]}
<Pointer.fp 0x2589e <LVAR -0x008 @ 4(r)>> Δ-4 {[-4-]|[@@-4]|[@@-8]}
<Call 0x258a2 0x102ec> {[-4-]|[@@-4]|[@@-8]}
String2Long(src : String; VAR status : Bool; VAR retval : Long)
<POP 258a8-258ac StackAdj> Δ+12 {}
<MI 258ac TST.B (A6-0x4)> {}
<MI 258b0 BNE 0x258e2> {}
<POP 258b2-258e2 Naked> Σ0 ↓
<Blob 0x258b2 [24] @> Δ-24 {[«24""»]}
<POP 258c4-258c6 StackAdj> Δ-4 {[«24""»]|[-4-]}
<Lit 0x258c6 23> {[«24""»]|[$$Illegal marker argument]}
<Call 0x258da 0x23036> {[«24""»]|[$$Illegal marker argument]}
<POP 258de-258e2 StackAdj> Δ+28 {}
<POP 258e2-258e8 Naked> Σ0 ↓ ←0x2588a
<MI 258e2 MOVE.L (A6-0x8),(A6+0x10)> {}
<POP 258e8-258f0 Epilogue> Σ0
@ 258f0
<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 258f0-25a18 Body>
<POP 258f0-25906 Prologue> Σ0 ↓
<POP 25906-25916 RegCacheLoad> Σ0 ↓
<POP 25916-25930 Naked> Σ0 Δ-4 ↓
<MI 25916 MOVEQ.L #0x00,D7> {}
<MI 25918 MOVE.L (A6+0x14),(A6-0x20)> {}
<MI 2591c MOVE.L 0x29348,D0> {}
<MI 25922 SUB.L (A6+0x14),D0> {}
<MI 25926 MOVE.L D0,(A6-0x14)> {}
<MI 25928 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<MI 2592c MOVE.L (A6+0x10),D5> {[4, '(A6+0xc)']}
<POP 25930-25934 Naked> Σ-4 ↓ →0x25960 ←0x2595c
<MI 25930 CMP.L (A7),D5> {[-4-]}
<MI 25932 BGT 0x25960> {[-4-]}
<POP 25934-2595a Naked> Σ-4 ↓ →0x2595c
<POP 25934-25936 StackAdj> Δ-8 {[-12-]}
<MI 25936 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']}
<MI 2593a MOVE.L D5,-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']|[4, 'D5']}
<Call 0x2593c 0x23c80> {[-12-]|[4, '(A6+0x8)']|[4, 'D5']}
<POP 25940-25942 StackAdj> Δ+8 {[-12-]}
<MI 25942 MOVE.L (A7)+,(A6-0x10)> Δ+4 {[-8-]}
<MI 25944 MOVE.L (A7),(A6-0xc)> {[-8-]}
<MI 25946 MOVE.L (A6-0xc),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']}
<MI 25948 MOVE.L (A6-0x10),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<Call 0x2594a 0x23c48> {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<POP 2594e-25950 StackAdj> Δ+8 {[-8-]}
<MI 25950 MOVE.L (A7)+,D6> Δ+4 {[-4-]}
<MI 25952 ADD.L D6,D7> {[-4-]}
<MI 25954 CMP.L (A6+0xc),D5> {[-4-]}
<MI 25958 BGE 0x2595c> {[-4-]}
<POP 2595a-2595c Naked> Σ-4 ↓
<MI 2595a ADDQ.L #0x1,D7> {[-4-]}
<POP 2595c-25960 Naked> Σ-4 ↓ →0x25930 ←0x25934
<MI 2595c ADDQ.L #0x1,D5> {[-4-]}
<MI 2595e BVC 0x25930> {[-4-]}
<POP 25960-2596e Naked> Σ-4 Δ+4 ↓ →0x2597a ←0x25930
<POP 25960-25962 StackAdj> Δ+4 {}
<MI 25962 MOVE.L (A6-0x20),D0> {}
<MI 25964 ADD.L (A6-0x14),D0> {}
<MI 25966 MOVE.L D0,(A6-0x18)> {}
<MI 2596a CMP.L (A6-0x14),D7> {}
<MI 2596c BEQ 0x2597a> {}
<POP 2596e-2597a Naked> Σ0 ↓
<MI 2596e MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 25970 MOVE.L (A6-0x14),-(A7)> Δ-4 {[4, 'D0']|[4, '(A6-0x14)']}
<MI 25972 SUB.L D7,(A7)> {[4, 'D0']|[-4-]}
<Call 0x25974 0x2358a> {[4, 'D0']|[-4-]}
<POP 25978-2597a StackAdj> Δ+8 {}
<POP 2597a-25982 Naked> Σ0 Δ-4 ↓ ←0x25960
<MI 2597a MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<MI 2597e MOVE.L (A6+0x10),D5> {[4, '(A6+0xc)']}
<POP 25982-25988 Naked> Σ-4 ↓ →0x25a0e ←0x25a08
<MI 25982 CMP.L (A7),D5> {[-4-]}
<MI 25984 BGT 0x25a0e> {[-4-]}
<POP 25988-259aa Naked> Σ-4 Δ-4 ↓
<POP 25988-2598a StackAdj> Δ-8 {[-12-]}
<MI 2598a MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']}
<MI 2598e MOVE.L D5,-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']|[4, 'D5']}
<Call 0x25990 0x23c80> {[-12-]|[4, '(A6+0x8)']|[4, 'D5']}
<POP 25994-25996 StackAdj> Δ+8 {[-12-]}
<MI 25996 MOVE.L (A7)+,(A6-0x10)> Δ+4 {[-8-]}
<MI 25998 MOVE.L (A7),(A6-0xc)> {[-8-]}
<MI 2599a MOVE.L (A6-0xc),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']}
<MI 2599c MOVE.L (A6-0x10),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<Call 0x2599e 0x23c48> {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<POP 259a2-259a4 StackAdj> Δ+8 {[-8-]}
<MI 259a4 MOVE.L (A7)+,D6> Δ+4 {[-4-]}
<MI 259a6 MOVE.L D6,-(A7)> Δ-4 {[-4-]|[4, 'D6']}
<MI 259a8 MOVEQ.L #0x01,D0> {[-4-]|[4, 'D6']}
<POP 259aa-259ae Naked> Σ-8 ↓ →0x259de ←0x259ae
<MI 259aa CMP.L (A7),D0> {[-8-]}
<MI 259ac BGT 0x259de> {[-8-]}
<POP 259ae-259de Naked> Σ-8 ↓ →0x259aa
<MI 259ae MOVE.L (A6-0x20),D1> {[-8-]}
<MI 259b0 ADD.L D0,D1> {[-8-]}
<MI 259b2 SUBQ.L #0x1,D1> {[-8-]}
<MI 259b4 SUBQ.L #0x1,D1> {[-8-]}
<POP 0x259b6 LimitCheck 0x0 ≤ D1 ≤ 0x1fff> {[-8-]}
<MI 259c0 LEA.L 0x27340,A0> {[-8-]}
<POP 259c6-259c8 StackAdj> Δ-2 {[-10-]}
<MI 259c8 MOVE.L (A6-0xc),-(A7)> Δ-4 {[-10-]|[4, '(A6-0xc)']}
<MI 259ca MOVE.L (A6-0x10),-(A7)> Δ-4 {[-10-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<MI 259cc MOVE.L D0,-(A7)> Δ-4 {[-10-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D0']}
<Call 0x259ce 0x25834> {[-10-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D0']}
<POP 259d2-259d6 StackAdj> Δ+12 {[-10-]}
<MI 259d6 MOVE.B (A7)+,(A0+D1.L+#0x8)> Δ+2 {[-8-]}
<MI 259da ADDQ.L #0x1,D0> {[-8-]}
<MI 259dc BVC 0x259aa> {[-8-]}
<POP 259de-259e6 Naked> Σ-8 Δ+4 ↓ →0x25a08 ←0x259aa
<POP 259de-259e0 StackAdj> Δ+4 {[-4-]}
<MI 259e0 CMP.L (A6+0xc),D5> {[-4-]}
<MI 259e4 BGE 0x25a08> {[-4-]}
<POP 259e6-25a08 Naked> Σ-4 ↓
<MI 259e6 MOVE.L (A6-0x20),D0> {[-4-]}
<MI 259e8 ADD.L D6,D0> {[-4-]}
<MI 259ea MOVE.L D0,D1> {[-4-]}
<MI 259ec SUBQ.L #0x1,D1> {[-4-]}
<POP 0x259ee LimitCheck 0x0 ≤ D1 ≤ 0x1fff> {[-4-]}
<MI 259f8 LEA.L 0x27340,A0> {[-4-]}
<MI 259fe MOVE.B #0x2c,(A0+D1.L+#0x8)> {[-4-]}
<MI 25a04 ADDQ.L #0x1,D0> {[-4-]}
<MI 25a06 MOVE.L D0,(A6-0x20)> {[-4-]}
<POP 25a08-25a0e Naked> Σ-4 ↓ →0x25982 ←0x259de
<MI 25a08 ADDQ.L #0x1,D5> {[-4-]}
<MI 25a0a BVC 0x25982> {[-4-]}
<POP 25a0e-25a10 Naked> Σ-4 Δ+4 ↓ ←0x25982
<POP 25a0e-25a10 StackAdj> Δ+4 {}
<POP 25a10-25a18 Epilogue> Σ0
@ 25a18
<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 25a18-25b0e Body> Δ-12
<POP 25a18-25a2e Prologue> Σ0 ↓
<POP 25a2e-25a44 RegCacheLoad> Σ0 ↓
<POP 25a44-25a6e Naked> Σ0 Δ-4 ↓
<POP 25a44-25a46 StackAdj> Δ-4 {[-4-]}
<MI 25a46 MOVE.L (A6+0x14),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']}
<MI 25a48 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<Call 0x25a4a 0x23c48> {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<POP 25a4e-25a50 StackAdj> Δ+8 {[-4-]}
<MI 25a50 MOVE.L (A7),(A6-0xc)> {[-4-]}
<MI 25a52 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']}
<MI 25a56 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x25a5a 0x23c48> {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 25a5e-25a60 StackAdj> Δ+8 {[-4-]}
<MI 25a60 MOVE.L (A7)+,(A6-0x8)> Δ+4 {}
<MI 25a62 ADDQ.L #0x1,(A6-0x8)> {}
<MI 25a64 MOVE.L (A6-0xc),D0> {}
<MI 25a66 SUB.L (A6-0x8),D0> {}
<MI 25a68 ADDQ.L #0x1,D0> {}
<MI 25a6a MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 25a6c MOVEQ.L #0x01,D0> {[4, 'D0']}
<POP 25a6e-25a74 Naked> Σ-4 ↓ →0x25b00 ←0x25af8
<MI 25a6e CMP.L (A7),D0> {[-4-]}
<MI 25a70 BGT 0x25b00> {[-4-]}
<POP 25a74-25a80 Naked> Σ-4 Δ-8 ↓
<MI 25a74 MOVE.L D0,(A6-0x18)> {[-4-]}
<MI 25a78 MOVE.L D0,-(A7)> Δ-4 {[-4-]|[4, 'D0']}
<MI 25a7a MOVEQ.L #0x00,D6> {[-4-]|[4, 'D0']}
<MI 25a7c MOVE.L (A6-0x8),-(A7)> Δ-4 {[-4-]|[4, 'D0']|[4, '(A6-0x8)']}
<MI 25a7e MOVEQ.L #0x01,D5> {[-4-]|[4, 'D0']|[4, '(A6-0x8)']}
<POP 25a80-25a84 Naked> Σ-12 ↓ →0x25ac6 ←0x25ac0
<MI 25a80 CMP.L (A7),D5> {[-12-]}
<MI 25a82 BGT 0x25ac6> {[-12-]}
<POP 25a84-25a8c Naked> Σ-12 ↓ →0x25a90
<MI 25a84 CMPI.L #0x00000001,D5> {[-12-]}
<MI 25a8a BNE 0x25a90> {[-12-]}
<POP 25a8c-25a90 Naked> Σ-12 →0x25aa4
<MI 25a8c MOVEQ.L #0x2f,D7> {[-12-]}
<MI 25a8e BRA 0x25aa4> {[-12-]}
<POP 25a90-25aa4 Naked> Σ-12 ↓ ←0x25a84
<POP 25a90-25a92 StackAdj> Δ-2 {[-14-]}
<MI 25a92 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-14-]|[4, '(A6+0xc)']}
<MI 25a96 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-14-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<MI 25a9a MOVE.L D5,-(A7)> Δ-4 {[-14-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D5']}
<MI 25a9c SUBQ.L #0x1,(A7)> {[-14-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[-4-]}
<Call 0x25a9e 0x25834> {[-14-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[-4-]}
<POP 25aa0-25aa2 StackAdj> Δ+12 {[-14-]}
<MI 25aa2 MOVE.B (A7)+,D7> Δ+2 {[-12-]}
<POP 25aa4-25abc Naked> Σ-12 ↓ →0x25ac0 ←0x25a8c
<POP 25aa4-25aa6 StackAdj> Δ-2 {[-14-]}
<MI 25aa6 MOVE.L (A6+0x14),-(A7)> Δ-4 {[-14-]|[4, '(A6+0x14)']}
<MI 25aa8 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-14-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 25aaa MOVE.L (A7+0xe),D0> {[-14-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 25aae ADD.L D5,D0> {[-14-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 25ab0 SUBQ.L #0x1,D0> {[-14-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 25ab2 MOVE.L D0,-(A7)> Δ-4 {[-14-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D0']}
<Call 0x25ab4 0x25834> {[-14-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D0']}
<POP 25ab6-25ab8 StackAdj> Δ+12 {[-14-]}
<MI 25ab8 CMP.B (A7)+,D7> Δ+2 {[-12-]}
<MI 25aba BEQ 0x25ac0> {[-12-]}
<POP 25abc-25ac0 Naked> Σ-12 Δ+4 →0x25ac8
<POP 25abc-25abe StackAdj> Δ+4 {[-8-]}
<MI 25abe BRA 0x25ac8> {[-8-]}
<POP 25ac0-25ac6 Naked> Σ-12 ↓ →0x25a80 ←0x25aa4
<MI 25ac0 MOVE.L D5,D6> {[-12-]}
<MI 25ac2 ADDQ.L #0x1,D5> {[-12-]}
<MI 25ac4 BVC 0x25a80> {[-12-]}
<POP 25ac6-25ac8 Naked> Σ-12 Δ+4 ↓ ←0x25a80
<POP 25ac6-25ac8 StackAdj> Δ+4 {[-8-]}
<POP 25ac8-25acc Naked> Σ-8 ↓ →0x25af8 ←0x25abc
<MI 25ac8 CMP.L (A6-0x8),D6> {[-8-]}
<MI 25aca BNE 0x25af8> {[-8-]}
<POP 25acc-25ad8 Naked> Σ-8 ↓ →0x25ada
<MI 25acc MOVE.L (A7),D0> {[-8-]}
<MI 25ace MOVE.L D0,(A6+0x18)> {[-8-]}
<MI 25ad2 ADD.L (A6-0x8),D0> {[-8-]}
<MI 25ad4 CMP.L (A6-0xc),D0> {[-8-]}
<MI 25ad6 BLT 0x25ada> {[-8-]}
<POP 25ad8-25ada Naked> Σ-8 →0x25af4
<MI 25ad8 BRA 0x25af4> {[-8-]}
<POP 25ada-25aee Naked> Σ-8 ↓ →0x25af4 ←0x25acc
<POP 25ada-25adc StackAdj> Δ-2 {[-10-]}
<MI 25adc MOVE.L (A6+0x14),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x14)']}
<MI 25ade MOVE.L (A6+0x10),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 25ae0 MOVE.L D0,-(A7)> Δ-4 {[-10-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D0']}
<Call 0x25ae2 0x25834> {[-10-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D0']}
<POP 25ae4-25ae6 StackAdj> Δ+12 {[-10-]}
<MI 25ae6 MOVE.B (A7)+,D7> Δ+2 {[-8-]}
<MI 25ae8 CMPI.B #0x2f,D7> {[-8-]}
<MI 25aec BEQ 0x25af4> {[-8-]}
<POP 25aee-25af4 Naked> Σ-8 ↓ →0x25af8
<MI 25aee CMPI.B #0x3d,D7> {[-8-]}
<MI 25af2 BNE 0x25af8> {[-8-]}
<POP 25af4-25af8 Naked> Σ-8 Δ+8 →0x25b06 ←0x25ad8 ←0x25ada
<POP 25af4-25af6 StackAdj> Δ+8 {}
<MI 25af6 BRA 0x25b06> {}
<POP 25af8-25b00 Naked> Σ-8 Δ+4 ↓ →0x25a6e ←0x25ac8 ←0x25aee
<MI 25af8 MOVE.L (A7)+,D0> Δ+4 {[-4-]}
<MI 25afa ADDQ.L #0x1,D0> {[-4-]}
<MI 25afc BVC 0x25a6e> {[-4-]}
<POP 25b00-25b06 Naked> Σ-4 Δ+4 ↓ ←0x25a6e
<POP 25b00-25b02 StackAdj> Δ+4 {}
<MI 25b02 CLR.L (A6+0x18)> {}
<POP 25b06-25b0e Epilogue> Σ0 ←0x25af4
@ 25b0e
<LVAR 0x018 4(r)>
<LVAR 0x014 4(r)>
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 25b0e-25ba2 Body> Δ-4
<POP 25b0e-25b24 Prologue> Σ0 ↓
<POP 25b24-25b2e RegCacheLoad> Σ0 ↓
<POP 25b2e-25b48 Naked> Σ0 ↓ →0x25b9a
<POP 25b2e-25b30 StackAdj> Δ-4 {[-4-]}
<MI 25b30 MOVE.L (A6+0x14),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']}
<MI 25b32 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 25b34 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<MI 25b38 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x25b3c 0x25a18> {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 25b40-25b44 StackAdj> Δ+16 {[-4-]}
<MI 25b44 MOVE.L (A7)+,D5> Δ+4 {}
<MI 25b46 BLE 0x25b9a> {}
<POP 25b48-25b68 Naked> Σ0 Δ-4 ↓
<MI 25b48 MOVE.L (A6+0x18),-(A7)> Δ-4 {[4, '(A6+0x18)']}
<Const 0x25b4c 0x2f.2> Δ-2 {[4, '(A6+0x18)']|[#47]}
<Call 0x25b4e 0x102c0> {[4, '(A6+0x18)']|[#47]}
AppendChar(MOD b : String; a : char)
<POP 25b54-25b56 StackAdj> Δ+6 {}
<MI 25b56 MOVE.L D5,D0> {}
<MI 25b58 ADDQ.L #0x1,D0> {}
<POP 25b5a-25b5c StackAdj> Δ-4 {[-4-]}
<MI 25b5c MOVE.L (A6+0x14),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']}
<MI 25b5e MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<Call 0x25b60 0x23c48> {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<POP 25b64-25b66 StackAdj> Δ+8 {[-4-]}
<MI 25b66 MOVE.L D0,D6> {[-4-]}
<POP 25b68-25b6c Naked> Σ-4 ↓ →0x25b98 ←0x25b86
<MI 25b68 CMP.L (A7),D6> {[-4-]}
<MI 25b6a BGT 0x25b98> {[-4-]}
<POP 25b6c-25b82 Naked> Σ-4 ↓ →0x25b86
<POP 25b6c-25b6e StackAdj> Δ-2 {[-6-]}
<MI 25b6e MOVE.L (A6+0x14),-(A7)> Δ-4 {[-6-]|[4, '(A6+0x14)']}
<MI 25b70 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-6-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 25b72 MOVE.L D6,-(A7)> Δ-4 {[-6-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D6']}
<Call 0x25b74 0x25834> {[-6-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D6']}
<POP 25b78-25b7c StackAdj> Δ+12 {[-6-]}
<MI 25b7c MOVE.B (A7)+,D7> Δ+2 {[-4-]}
<MI 25b7e CMP.B #0x2f,D7> {[-4-]}
<MI 25b80 BNE 0x25b86> {[-4-]}
<POP 25b82-25b86 Naked> Σ-4 Δ+4 →0x25b9a
<POP 25b82-25b84 StackAdj> Δ+4 {}
<MI 25b84 BRA 0x25b9a> {}
<POP 25b86-25b98 Naked> Σ-4 ↓ →0x25b68 ←0x25b6c
<MI 25b86 MOVE.L (A6+0x18),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x18)']}
<MI 25b8a MOVE.B D7,-(A7)> Δ-2 {[-4-]|[4, '(A6+0x18)']|[2, 'D7']}
<Call 0x25b8c 0x102c0> {[-4-]|[4, '(A6+0x18)']|[2, 'D7']}
AppendChar(MOD b : String; a : char)
<POP 25b92-25b94 StackAdj> Δ+6 {[-4-]}
<MI 25b94 ADDQ.L #0x1,D6> {[-4-]}
<MI 25b96 BVC 0x25b68> {[-4-]}
<POP 25b98-25b9a Naked> Σ-4 Δ+4 ↓ ←0x25b68
<POP 25b98-25b9a StackAdj> Δ+4 {}
<POP 25b9a-25ba2 Epilogue> Σ0 ←0x25b2e ←0x25b82
@ 25ba2
<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 25ba2-25c58 Body> Δ-8
<POP 25ba2-25bb8 Prologue> Σ0 ↓
<POP 25bb8-25bc6 RegCacheLoad> Σ0 ↓
<POP 25bc6-25be2 Naked> Σ0 ↓ →0x25c50
<POP 25bc6-25bc8 StackAdj> Δ-4 {[-4-]}
<MI 25bc8 MOVE.L (A6+0x14),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']}
<MI 25bca MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 25bcc MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<MI 25bd0 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x25bd4 0x25a18> {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 25bd8-25bdc StackAdj> Δ+16 {[-4-]}
<MI 25bdc MOVE.L (A7)+,(A6-0x14)> Δ+4 {}
<MI 25be0 BLE 0x25c50> {}
<POP 25be2-25bf6 Naked> Σ0 Δ-4 ↓
<POP 25be2-25be4 StackAdj> Δ-4 {[-4-]}
<MI 25be4 MOVE.L (A6+0x14),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']}
<MI 25be6 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<Call 0x25be8 0x23c48> {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<POP 25bec-25bee StackAdj> Δ+8 {[-4-]}
<MI 25bee MOVE.L (A7)+,(A6-0x6)> Δ+4 {}
<MI 25bf0 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<MI 25bf2 MOVE.L (A6-0x14),D5> {[4, '(A6-0x6)']}
<POP 25bf6-25bfa Naked> Σ-4 ↓ →0x25c4e ←0x25c4a
<MI 25bf6 CMP.L (A7),D5> {[-4-]}
<MI 25bf8 BGT 0x25c4e> {[-4-]}
<POP 25bfa-25c10 Naked> Σ-4 ↓ →0x25c4a
<POP 25bfa-25bfc StackAdj> Δ-2 {[-6-]}
<MI 25bfc MOVE.L (A6+0x14),-(A7)> Δ-4 {[-6-]|[4, '(A6+0x14)']}
<MI 25bfe MOVE.L (A6+0x10),-(A7)> Δ-4 {[-6-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 25c00 MOVE.L D5,-(A7)> Δ-4 {[-6-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D5']}
<Call 0x25c02 0x25834> {[-6-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D5']}
<POP 25c06-25c08 StackAdj> Δ+12 {[-6-]}
<MI 25c08 MOVE.B (A7)+,D0> Δ+2 {[-4-]}
<MI 25c0a CMPI.B #0x3d,D0> {[-4-]}
<MI 25c0e BNE 0x25c4a> {[-4-]}
<POP 25c10-25c18 Naked> Σ-4 Δ-4 ↓
<MI 25c10 MOVE.L D5,D0> {[-4-]}
<MI 25c12 ADDQ.L #0x1,D0> {[-4-]}
<MI 25c14 MOVE.L (A6-0x6),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x6)']}
<MI 25c16 MOVE.L D0,D6> {[-4-]|[4, '(A6-0x6)']}
<POP 25c18-25c1c Naked> Σ-8 ↓ →0x25c48 ←0x25c36
<MI 25c18 CMP.L (A7),D6> {[-8-]}
<MI 25c1a BGT 0x25c48> {[-8-]}
<POP 25c1c-25c32 Naked> Σ-8 ↓ →0x25c36
<POP 25c1c-25c1e StackAdj> Δ-2 {[-10-]}
<MI 25c1e MOVE.L (A6+0x14),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x14)']}
<MI 25c20 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 25c22 MOVE.L D6,-(A7)> Δ-4 {[-10-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D6']}
<Call 0x25c24 0x25834> {[-10-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D6']}
<POP 25c28-25c2a StackAdj> Δ+12 {[-10-]}
<MI 25c2a MOVE.B (A7)+,D7> Δ+2 {[-8-]}
<MI 25c2c CMPI.B #0x2f,D7> {[-8-]}
<MI 25c30 BNE 0x25c36> {[-8-]}
<POP 25c32-25c36 Naked> Σ-8 Δ+8 →0x25c50
<POP 25c32-25c34 StackAdj> Δ+8 {}
<MI 25c34 BRA 0x25c50> {}
<POP 25c36-25c48 Naked> Σ-8 ↓ →0x25c18 ←0x25c1c
<MI 25c36 MOVE.L (A6+0x18),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x18)']}
<MI 25c3a MOVE.B D7,-(A7)> Δ-2 {[-8-]|[4, '(A6+0x18)']|[2, 'D7']}
<Call 0x25c3c 0x102c0> {[-8-]|[4, '(A6+0x18)']|[2, 'D7']}
AppendChar(MOD b : String; a : char)
<POP 25c42-25c44 StackAdj> Δ+6 {[-8-]}
<MI 25c44 ADDQ.L #0x1,D6> {[-8-]}
<MI 25c46 BVC 0x25c18> {[-8-]}
<POP 25c48-25c4a Naked> Σ-8 Δ+4 ↓ ←0x25c18
<POP 25c48-25c4a StackAdj> Δ+4 {[-4-]}
<POP 25c4a-25c4e Naked> Σ-4 ↓ →0x25bf6 ←0x25bfa
<MI 25c4a ADDQ.L #0x1,D5> {[-4-]}
<MI 25c4c BVC 0x25bf6> {[-4-]}
<POP 25c4e-25c50 Naked> Σ-4 Δ+4 ↓ ←0x25bf6
<POP 25c4e-25c50 StackAdj> Δ+4 {}
<POP 25c50-25c58 Epilogue> Σ0 ←0x25bc6 ←0x25c32
@ 25c58
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 25c58-25cde Body> Δ-4
<POP 25c58-25c6e Prologue> Σ0 ↓
<POP 25c6e-25c78 RegCacheLoad> Σ0 ↓
<POP 25c78-25c8a Naked> Σ0 Δ-4 ↓
<POP 25c78-25c7a StackAdj> Δ-4 {[-4-]}
<MI 25c7a MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']}
<MI 25c7c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x25c7e 0x23c48> {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 25c82-25c84 StackAdj> Δ+8 {[-4-]}
<MI 25c84 MOVE.L (A7)+,D5> Δ+4 {}
<MI 25c86 MOVE.L D5,-(A7)> Δ-4 {[4, 'D5']}
<MI 25c88 MOVEQ.L #0x01,D6> {[4, 'D5']}
<POP 25c8a-25c8e Naked> Σ-4 ↓ →0x25cd4 ←0x25cd0
<MI 25c8a CMP.L (A7),D6> {[-4-]}
<MI 25c8c BGT 0x25cd4> {[-4-]}
<POP 25c8e-25ca4 Naked> Σ-4 ↓ →0x25cd0
<POP 25c8e-25c90 StackAdj> Δ-2 {[-6-]}
<MI 25c90 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-6-]|[4, '(A6+0xc)']}
<MI 25c92 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-6-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<MI 25c94 MOVE.L D6,-(A7)> Δ-4 {[-6-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D6']}
<Call 0x25c96 0x25834> {[-6-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D6']}
<POP 25c9a-25c9c StackAdj> Δ+12 {[-6-]}
<MI 25c9c MOVE.B (A7)+,D0> Δ+2 {[-4-]}
<MI 25c9e CMPI.B #0x2f,D0> {[-4-]}
<MI 25ca2 BNE 0x25cd0> {[-4-]}
<POP 25ca4-25ca8 Naked> Σ-4 Δ-4 ↓
<MI 25ca4 MOVE.L D5,-(A7)> Δ-4 {[-4-]|[4, 'D5']}
<MI 25ca6 MOVE.L D6,D7> {[-4-]|[4, 'D5']}
<POP 25ca8-25cac Naked> Σ-8 ↓ →0x25cca ←0x25cac
<MI 25ca8 CMP.L (A7),D7> {[-8-]}
<MI 25caa BGT 0x25cca> {[-8-]}
<POP 25cac-25cca Naked> Σ-8 ↓ →0x25ca8
<MI 25cac MOVE.L (A6+0x10),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x10)']}
<POP 25cb0-25cb2 StackAdj> Δ-2 {[-8-]|[4, '(A6+0x10)']|[-2-]}
<MI 25cb2 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x10)']|[-2-]|[4, '(A6+0xc)']}
<MI 25cb4 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x10)']|[-2-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<MI 25cb6 MOVE.L D7,-(A7)> Δ-4 {[-8-]|[4, '(A6+0x10)']|[-2-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D7']}
<Call 0x25cb8 0x25834> {[-8-]|[4, '(A6+0x10)']|[-2-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D7']}
<POP 25cbc-25cbe StackAdj> Δ+12 {[-8-]|[4, '(A6+0x10)']|[-2-]}
<Call 0x25cbe 0x102c0> {[-8-]|[4, '(A6+0x10)']|[-2-]}
AppendChar(MOD b : String; a : char)
<POP 25cc4-25cc6 StackAdj> Δ+6 {[-8-]}
<MI 25cc6 ADDQ.L #0x1,D7> {[-8-]}
<MI 25cc8 BVC 0x25ca8> {[-8-]}
<POP 25cca-25cd0 Naked> Σ-8 Δ+8 →0x25cd6 ←0x25ca8
<POP 25cca-25ccc StackAdj> Δ+4 {[-4-]}
<POP 25ccc-25cce StackAdj> Δ+4 {}
<MI 25cce BRA 0x25cd6> {}
<POP 25cd0-25cd4 Naked> Σ-4 ↓ →0x25c8a ←0x25c8e
<MI 25cd0 ADDQ.L #0x1,D6> {[-4-]}
<MI 25cd2 BVC 0x25c8a> {[-4-]}
<POP 25cd4-25cd6 Naked> Σ-4 Δ+4 ↓ ←0x25c8a
<POP 25cd4-25cd6 StackAdj> Δ+4 {}
<POP 25cd6-25cde Epilogue> Σ0 ←0x25cca
@ 25cde
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 25cde-25d4e Body> Δ-4
<POP 25cde-25cf4 Prologue> Σ0 ↓
<POP 25cf4-25d0c Naked> Σ0 Δ-4 ↓
<MI 25cf4 MOVEA.L (A6+0x10),A0> {}
<MI 25cf8 CLR.W (A0)> {}
<POP 25cfa-25cfc StackAdj> Δ-4 {[-4-]}
<MI 25cfc MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']}
<MI 25d00 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x25d04 0x23c48> {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 25d08-25d0a StackAdj> Δ+8 {[-4-]}
<MI 25d0a MOVEQ.L #0x01,D7> {[-4-]}
<POP 25d0c-25d10 Naked> Σ-4 ↓ →0x25d44 ←0x25d40
<MI 25d0c CMP.L (A7),D7> {[-4-]}
<MI 25d0e BGT 0x25d44> {[-4-]}
<POP 25d10-25d2c Naked> Σ-4 ↓ →0x25d3c
<POP 25d10-25d12 StackAdj> Δ-2 {[-6-]}
<MI 25d12 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-6-]|[4, '(A6+0xc)']}
<MI 25d16 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-6-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<MI 25d1a MOVE.L D7,-(A7)> Δ-4 {[-6-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D7']}
<Call 0x25d1c 0x25834> {[-6-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D7']}
<POP 25d20-25d24 StackAdj> Δ+12 {[-6-]}
<MI 25d24 MOVE.B (A7)+,D6> Δ+2 {[-4-]}
<MI 25d26 CMPI.B #0x2f,D6> {[-4-]}
<MI 25d2a BEQ 0x25d3c> {[-4-]}
<POP 25d2c-25d3c Naked> Σ-4 →0x25d40
<MI 25d2c MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x10)']}
<MI 25d30 MOVE.B D6,-(A7)> Δ-2 {[-4-]|[4, '(A6+0x10)']|[2, 'D6']}
<Call 0x25d32 0x102c0> {[-4-]|[4, '(A6+0x10)']|[2, 'D6']}
AppendChar(MOD b : String; a : char)
<POP 25d38-25d3a StackAdj> Δ+6 {[-4-]}
<MI 25d3a BRA 0x25d40> {[-4-]}
<POP 25d3c-25d40 Naked> Σ-4 Δ+4 →0x25d46 ←0x25d10
<POP 25d3c-25d3e StackAdj> Δ+4 {}
<MI 25d3e BRA 0x25d46> {}
<POP 25d40-25d44 Naked> Σ-4 ↓ →0x25d0c ←0x25d2c
<MI 25d40 ADDQ.L #0x1,D7> {[-4-]}
<MI 25d42 BVC 0x25d0c> {[-4-]}
<POP 25d44-25d46 Naked> Σ-4 Δ+4 ↓ ←0x25d0c
<POP 25d44-25d46 StackAdj> Δ+4 {}
<POP 25d46-25d4e Epilogue> Σ0 ←0x25d3c
@ 25d4e
<POP 25d4e-25d96 Body>
<POP 25d4e-25d64 Prologue> Σ0 ↓
<POP 25d64-25d8e Naked> Σ0 ↓
<Blob 0x25d64 [34] @> Δ-34 {[«34""»]}
<POP 25d70-25d72 StackAdj> Δ-4 {[«34""»]|[-4-]}
<Lit 0x25d72 34> {[«34""»]|[$$Switch exclusion is unimplemented.]}
<Call 0x25d86 0x23036> {[«34""»]|[$$Switch exclusion is unimplemented.]}
<POP 25d8a-25d8e StackAdj> Δ+38 {}
<POP 25d8e-25d96 Epilogue> Σ0
@ 25d96
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x006 4(rw)>
<POP 25d96-25ed0 Body>
<POP 25d96-25dac Prologue> Σ0 ↓
<POP 25dac-25dc2 RegCacheLoad> Σ0 ↓
<POP 25dc2-25dd0 Naked> Σ0 ↓ →0x25dd8
<MI 25dc2 MOVE.L 0x29348,(A6-0x6)> {}
<POP 25dc6-25dc8 StackAdj> Δ-2 {[-2-]}
<Call 0x25dc8 0x230d2> {[-2-]}
<MI 25dca MOVE.B (A7)+,D7> Δ+2 {}
<MI 25dcc CMP.B #0x25,D7> {}
<MI 25dce BNE 0x25dd8> {}
<POP 25dd0-25dd8 Naked> Σ0 →0x25eb8
<MI 25dd0 MOVEA.L (A6+0xc),A0> {}
<MI 25dd2 CLR.L (A0)> {}
<MI 25dd4 BRA 0x25eb8> {}
<POP 25dd8-25ddc Naked> Σ0 ↓ →0x25de8 ←0x25dc2
<MI 25dd8 CMP.B #0x2d,D7> {}
<MI 25dda BNE 0x25de8> {}
<POP 25ddc-25de8 Naked> Σ0 →0x25eb8
<MI 25ddc MOVEA.L (A6+0xc),A0> {}
<MI 25dde MOVE.L #0x1,(A0)> {}
<MI 25de4 BRA 0x25eb8> {}
<POP 25de8-25dee Naked> Σ0 ↓ →0x25dfa ←0x25dd8
<MI 25de8 CMPI.B #0x2f,D7> {}
<MI 25dec BNE 0x25dfa> {}
<POP 25dee-25dfa Naked> Σ0 →0x25eb8
<MI 25dee MOVEA.L (A6+0xc),A0> {}
<MI 25df0 MOVE.L #0x4,(A0)> {}
<MI 25df6 BRA 0x25eb8> {}
<POP 25dfa-25e00 Naked> Σ0 ↓ →0x25e0c ←0x25de8
<MI 25dfa CMPI.B #0x3d,D7> {}
<MI 25dfe BNE 0x25e0c> {}
<POP 25e00-25e0c Naked> Σ0 →0x25eb8
<MI 25e00 MOVEA.L (A6+0xc),A0> {}
<MI 25e02 MOVE.L #0x5,(A0)> {}
<MI 25e08 BRA 0x25eb8> {}
<POP 25e0c-25e12 Naked> Σ0 ↓ →0x25e1e ←0x25dfa
<MI 25e0c CMPI.B #0x5c,D7> {}
<MI 25e10 BNE 0x25e1e> {}
<POP 25e12-25e1e Naked> Σ0 →0x25eb8
<MI 25e12 MOVEA.L (A6+0xc),A0> {}
<MI 25e14 MOVE.L #0x6,(A0)> {}
<MI 25e1a BRA 0x25eb8> {}
<POP 25e1e-25e22 Naked> Σ0 ↓ →0x25e4e ←0x25e0c
<MI 25e1e TST.B D7> {}
<MI 25e20 BNE 0x25e4e> {}
<POP 25e22-25e4e Naked> Σ0 →0x25eb8
<Blob 0x25e22 [24] @> Δ-24 {[«24""»]}
<POP 25e2e-25e30 StackAdj> Δ-4 {[«24""»]|[-4-]}
<Lit 0x25e30 24> {[«24""»]|[$$Illegal argument marker.]}
<Call 0x25e44 0x23036> {[«24""»]|[$$Illegal argument marker.]}
<POP 25e48-25e4c StackAdj> Δ+28 {}
<MI 25e4c BRA 0x25eb8> {}
<POP 25e4e-25e52 Naked> Σ0 ↓ →0x25e7e ←0x25e1e
<MI 25e4e CMP.B #0x30,D7> {}
<MI 25e50 BCS 0x25e7e> {}
<POP 25e52-25e56 Naked> Σ0 ↓ →0x25e7e
<MI 25e52 CMP.B #0x39,D7> {}
<MI 25e54 BHI 0x25e7e> {}
<POP 25e56-25e5e Naked> Σ0 ↓
<MI 25e56 MOVEA.L (A6+0xc),A0> {}
<MI 25e58 MOVE.L #0x2,(A0)> {}
<POP 25e5e-25e6a Naked> Σ0 ↓ →0x25e74 ←0x25e78
<POP 25e5e-25e60 StackAdj> Δ-2 {[-2-]}
<Call 0x25e60 0x23094> {[-2-]}
<MI 25e64 MOVE.B (A7)+,D7> Δ+2 {}
<MI 25e66 CMP.B #0x30,D7> {}
<MI 25e68 BCS 0x25e74> {}
<POP 25e6a-25e6e Naked> Σ0 ↓ →0x25e74
<MI 25e6a CMP.B #0x39,D7> {}
<MI 25e6c BHI 0x25e74> {}
<POP 25e6e-25e74 Naked> Σ0 ↓
<POP 25e6e-25e70 StackAdj> Δ-2 {[-2-]}
<Call 0x25e70 0x230d2> {[-2-]}
<MI 25e72 MOVE.B (A7)+,D6> Δ+2 {}
<POP 25e74-25e78 Naked> Σ0 ↓ →0x25e7c ←0x25e5e ←0x25e6a
<MI 25e74 CMP.B #0x30,D7> {}
<MI 25e76 BCS 0x25e7c> {}
<POP 25e78-25e7c Naked> Σ0 ↓ →0x25e5e
<MI 25e78 CMP.B #0x39,D7> {}
<MI 25e7a BLS 0x25e5e> {}
<POP 25e7c-25e7e Naked> Σ0 →0x25eb8 ←0x25e74
<MI 25e7c BRA 0x25eb8> {}
<POP 25e7e-25e88 Naked> Σ0 ↓ ←0x25e4e ←0x25e52
<MI 25e7e MOVEA.L (A6+0xc),A0> {}
<MI 25e80 MOVE.L #0x3,(A0)> {}
<MI 25e86 MOVEQ.L #0x00,D5> {}
<POP 25e88-25e94 Naked> Σ0 ↓ →0x25eaa ←0x25eb4
<POP 25e88-25e8a StackAdj> Δ-2 {[-2-]}
<Call 0x25e8a 0x23094> {[-2-]}
<MI 25e8e MOVE.B (A7)+,D7> Δ+2 {}
<MI 25e90 CMP.B #0x25,D7> {}
<MI 25e92 BEQ 0x25eaa> {}
<POP 25e94-25e98 Naked> Σ0 ↓ →0x25eaa
<MI 25e94 CMP.B #0x2d,D7> {}
<MI 25e96 BEQ 0x25eaa> {}
<POP 25e98-25e9e Naked> Σ0 ↓ →0x25eaa
<MI 25e98 CMPI.B #0x2f,D7> {}
<MI 25e9c BEQ 0x25eaa> {}
<POP 25e9e-25ea4 Naked> Σ0 ↓ →0x25eaa
<MI 25e9e CMPI.B #0x3d,D7> {}
<MI 25ea2 BEQ 0x25eaa> {}
<POP 25ea4-25eaa Naked> Σ0 ↓ →0x25eae
<MI 25ea4 CMPI.B #0x5c,D7> {}
<MI 25ea8 BNE 0x25eae> {}
<POP 25eaa-25eae Naked> Σ0 →0x25eb4 ←0x25e88 ←0x25e94 ←0x25e98 ←0x25e9e
<MI 25eaa MOVEQ.L #0x01,D5> {}
<MI 25eac BRA 0x25eb4> {}
<POP 25eae-25eb4 Naked> Σ0 ↓ ←0x25ea4
<POP 25eae-25eb0 StackAdj> Δ-2 {[-2-]}
<Call 0x25eb0 0x230d2> {[-2-]}
<MI 25eb2 MOVE.B (A7)+,D6> Δ+2 {}
<POP 25eb4-25eb8 Naked> Σ0 ↓ →0x25e88 ←0x25eaa
<MI 25eb4 TST.B D5> {}
<MI 25eb6 BEQ 0x25e88> {}
<POP 25eb8-25ec8 Naked> Σ0 ↓ ←0x25dd0 ←0x25ddc ←0x25dee ←0x25e00 ←0x25e12 ←0x25e22 ←0x25e7c
<MI 25eb8 MOVEA.L (A6+0x8),A0> {}
<MI 25ebc MOVE.L (A6-0x6),(A0)> {}
<MI 25ec0 MOVE.L 0x29348,(A0+0x4)> {}
<MI 25ec4 SUBQ.L #0x1,(A0+0x4)> {}
<POP 25ec8-25ed0 Epilogue> Σ0
@ 25ed0
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 25ed0-25f56 Body>
<POP 25ed0-25ee6 Prologue> Σ0 ↓
<POP 25ee6-25eea RegCacheLoad> Σ0 ↓
<POP 25eea-25f04 Naked> Σ0 Δ-4 ↓ →0x25f10
<MI 25eea MOVEA.L (A6+0x8),A0> {}
<MI 25eee MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 25ef0 MOVE.L 0x29348,D6> {[4, 'A0']}
<MI 25ef6 SUB.L (A6+0xc),D6> {[4, 'A0']}
<MI 25ef8 MOVE.L (A6+0xc),D5> {[4, 'A0']}
<MI 25efa ADD.L D6,D5> {[4, 'A0']}
<MI 25efc MOVE.W (A0),D0> {[4, 'A0']}
<MI 25efe EXTW.L D0> {[4, 'A0']}
<MI 25f00 CMP.L D6,D0> {[4, 'A0']}
<MI 25f02 BEQ 0x25f10> {[4, 'A0']}
<POP 25f04-25f10 Naked> Σ-4 ↓
<MI 25f04 MOVE.L D5,-(A7)> Δ-4 {[-4-]|[4, 'D5']}
<MI 25f06 MOVE.L D6,-(A7)> Δ-4 {[-4-]|[4, 'D5']|[4, 'D6']}
<MI 25f08 SUB.L D0,(A7)> {[-4-]|[4, 'D5']|[-4-]}
<Call 0x25f0a 0x2358a> {[-4-]|[4, 'D5']|[-4-]}
<POP 25f0e-25f10 StackAdj> Δ+8 {[-4-]}
<POP 25f10-25f14 Naked> Σ-4 Δ-4 ↓ ←0x25eea
<MI 25f10 MOVE.L D0,-(A7)> Δ-4 {[-4-]|[4, 'D0']}
<MI 25f12 MOVEQ.L #0x01,D7> {[-4-]|[4, 'D0']}
<POP 25f14-25f18 Naked> Σ-8 ↓ →0x25f4c ←0x25f18
<MI 25f14 CMP.L (A7),D7> {[-8-]}
<MI 25f16 BGT 0x25f4c> {[-8-]}
<POP 25f18-25f4c Naked> Σ-8 ↓ →0x25f14
<MI 25f18 MOVE.L (A6+0xc),D0> {[-8-]}
<MI 25f1a ADD.L D7,D0> {[-8-]}
<MI 25f1c SUBQ.L #0x1,D0> {[-8-]}
<MI 25f1e SUBQ.L #0x1,D0> {[-8-]}
<POP 0x25f20 LimitCheck 0x0 ≤ D0 ≤ 0x1fff> {[-8-]}
<MI 25f2a LEA.L 0x27340,A0> {[-8-]}
<MI 25f30 MOVE.L D7,D1> {[-8-]}
<MI 25f32 SUBQ.L #0x1,D1> {[-8-]}
<POP 0x25f34 LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-8-]}
<MI 25f3e MOVEA.L (A7+0x4),A1> {[-8-]}
<MI 25f42 MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x8)> {[-8-]}
<MI 25f48 ADDQ.L #0x1,D7> {[-8-]}
<MI 25f4a BVC 0x25f14> {[-8-]}
<POP 25f4c-25f4e Naked> Σ-8 Δ+8 ↓ ←0x25f14
<POP 25f4c-25f4e StackAdj> Δ+8 {}
<POP 25f4e-25f56 Epilogue> Σ0
@ 25f56
<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 25f56-2619e Body> Δ+56
<POP 25f56-25f6c Prologue> Σ0 ↓
<POP 25f6c-25f7e RegCacheLoad> Σ0 ↓
<POP 25f7e-25fa2 Naked> Σ0 ↓
<MI 25f7e MOVE.L 0x29348,(A6-0x28)> {}
<Pointer.fp 0x25f86 <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-8]}
<Call 0x25f88 0x102b8> {[@@-8]}
NewString(VAR a : String)
<POP 25f8e-25f90 StackAdj> Δ+4 {}
<Pointer.fp 0x25f90 <LVAR -0x00c @ 4(r)>> Δ-4 {[@@-12]}
<Pointer.fp 0x25f94 <LVAR -0x014 @ 4(r)>> Δ-4 {[@@-12]|[@@-20]}
<Call 0x25f96 0x25d96> {[@@-12]|[@@-20]}
<POP 25f9a-25f9c StackAdj> Δ+8 {}
<MI 25f9c CLR.L (A6-0x34)> {}
<MI 25fa0 MOVEQ.L #0x00,D7> {}
<POP 25fa2-25fb6 Naked> Σ0 →0x25fe0 →0x25fea →0x25ffe →0x2601a →0x2601e →0x2602c →0x26040 →0x26046 →0x26048 →0x2605e →0x2606c →0x26084 →0x26098 →0x260ac →0x260c2 →0x260c4 →0x260de →0x260f4 →0x26102 →0x26104 →0x26106 ←0x2617a
<MI 25fa2 MOVE.L (A6-0x34),D0> {}
<POP 0x25fa6 LimitCheck 0x0 ≤ D0 ≤ 0x14> {}
<MI 25fac ADD.W D0,D0> {}
<MI 25fae SWITCH D0.W> {}
<POP 25fe0-25fea Naked> Σ0 →0x26130 ←0x25fa2
<MI 25fe0 MOVEQ.L #0x00,D6> {}
<MI 25fe2 MOVE.L (A6+0x8),D5> {}
<MI 25fe6 BRA 0x26130> {}
<POP 25fea-25ffe Naked> Σ0 →0x26130 ←0x25fa2
<POP 25fea-25fec StackAdj> Δ-4 {[-4-]}
<MI 25fec MOVE.L (A6-0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x10)']}
<MI 25ff0 MOVE.L (A6-0x14),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<Call 0x25ff2 0x25874> {[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<POP 25ff6-25ff8 StackAdj> Δ+8 {[-4-]}
<MI 25ff8 MOVE.L (A7)+,D6> Δ+4 {}
<MI 25ffa BRA 0x26130> {}
<POP 25ffe-26006 Naked> Σ0 Δ-12 ↓ ←0x25fa2
<MI 25ffe MOVE.L (A6-0x28),-(A7)> Δ-4 {[4, '(A6-0x28)']}
<MI 26002 MOVE.L D6,-(A7)> Δ-4 {[4, '(A6-0x28)']|[4, 'D6']}
<MI 26004 MOVE.L D6,-(A7)> Δ-4 {[4, '(A6-0x28)']|[4, 'D6']|[4, 'D6']}
<POP 26006-26016 Naked> Σ-12 Δ+12 →0x2618c ←0x2601e
<MI 26006 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-12-]|[4, '(A6+0xc)']}
<Call 0x2600a 0x258f0> {[-12-]|[4, '(A6+0xc)']}
<POP 2600e-26012 StackAdj> Δ+16 {}
<MI 26012 BRA 0x2618c> {}
<POP 2601a-2601e Naked> Σ0 →0x26130 ←0x25fa2
<MI 2601a BRA 0x26130> {}
<POP 2601e-26028 Naked> Σ0 Δ-12 →0x26006 ←0x25fa2
<MI 2601e MOVE.L (A6-0x28),-(A7)> Δ-4 {[4, '(A6-0x28)']}
<MI 26022 MOVE.L D6,-(A7)> Δ-4 {[4, '(A6-0x28)']|[4, 'D6']}
<MI 26024 MOVE.L D5,-(A7)> Δ-4 {[4, '(A6-0x28)']|[4, 'D6']|[4, 'D5']}
<MI 26026 BRA 0x26006> {[4, '(A6-0x28)']|[4, 'D6']|[4, 'D5']}
<POP 2602c-26040 Naked> Σ0 →0x26130 ←0x25fa2 ←0x26046
<POP 2602c-2602e StackAdj> Δ-4 {[-4-]}
<MI 2602e MOVE.L (A6-0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x10)']}
<MI 26032 MOVE.L (A6-0x14),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<Call 0x26034 0x25874> {[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<POP 26038-2603a StackAdj> Δ+8 {[-4-]}
<MI 2603a MOVE.L (A7)+,D5> Δ+4 {}
<MI 2603c BRA 0x26130> {}
<POP 26040-26046 Naked> Σ0 →0x26130 ←0x25fa2
<MI 26040 MOVEQ.L #0x01,D6> {}
<MI 26042 BRA 0x26130> {}
<POP 26046-26048 Naked> Σ0 →0x2602c ←0x25fa2
<MI 26046 BRA 0x2602c> {}
<POP 26048-2605e Naked> Σ0 →0x26130 ←0x25fa2
<POP 26048-2604a StackAdj> Δ-8 {[-8-]}
<MI 2604a MOVE.L (A6+0xc),-(A7)> Δ-4 {[-8-]|[4, '(A6+0xc)']}
<MI 2604e MOVE.L D6,-(A7)> Δ-4 {[-8-]|[4, '(A6+0xc)']|[4, 'D6']}
<Call 0x26050 0x23c80> {[-8-]|[4, '(A6+0xc)']|[4, 'D6']}
<POP 26054-26056 StackAdj> Δ+8 {[-8-]}
<MI 26056 MOVE.L (A7)+,(A6-0x24)> Δ+4 {[-4-]}
<MI 26058 MOVE.L (A7)+,(A6-0x20)> Δ+4 {}
<MI 2605a BRA 0x26130> {}
<POP 2605e-2606c Naked> Σ0 →0x26130 ←0x25fa2
<MI 2605e MOVE.L (A6-0x14),(A6-0x1c)> {}
<MI 26062 MOVE.L (A6-0x10),(A6-0x18)> {}
<MI 26068 BRA 0x26130> {}
<POP 2606c-2607e Naked> Σ0 Δ-20 ↓ ←0x25fa2
<MI 2606c MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<MI 2606e MOVE.L (A6-0x20),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']}
<MI 26070 MOVE.L (A6-0x24),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']}
<MI 26072 MOVE.L (A6-0x18),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']}
<MI 26076 MOVE.L (A6-0x1c),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<Call 0x2607a 0x25ba2> {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<POP 2607e-26084 Naked> Σ-20 Δ+20 →0x26130 ←0x26084
<POP 2607e-26080 StackAdj> Δ+20 {}
<MI 26080 BRA 0x26130> {}
<POP 26084-26098 Naked> Σ0 Δ-20 →0x2607e ←0x25fa2
<MI 26084 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<MI 26086 MOVE.L (A6-0x20),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']}
<MI 26088 MOVE.L (A6-0x24),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']}
<MI 2608a MOVE.L (A6-0x18),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']}
<MI 2608e MOVE.L (A6-0x1c),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<Call 0x26092 0x25b0e> {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<MI 26096 BRA 0x2607e> {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<POP 26098-260a2 Naked> Σ0 Δ-12 ↓ ←0x25fa2
<MI 26098 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<MI 2609a MOVE.L (A6-0x20),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']}
<MI 2609c MOVE.L (A6-0x24),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']}
<Call 0x2609e 0x25c58> {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']}
<POP 260a2-260a6 Naked> Σ-12 Δ+12 ↓ ←0x260de
<POP 260a2-260a6 StackAdj> Δ+12 {}
<POP 260a6-260ac Naked> Σ0 →0x26130 ←0x260ac ←0x260c2 ←0x26104
<MI 260a6 MOVEQ.L #0x01,D7> {}
<MI 260a8 BRA 0x26130> {}
<POP 260ac-260c2 Naked> Σ0 →0x260a6 ←0x25fa2
<MI 260ac MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<MI 260ae MOVE.L (A6-0x20),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']}
<MI 260b0 MOVE.L (A6-0x24),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']}
<MI 260b2 MOVE.L (A6-0x18),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']}
<MI 260b6 MOVE.L (A6-0x1c),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<Call 0x260ba 0x25b0e> {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<POP 260be-260c0 StackAdj> Δ+20 {}
<MI 260c0 BRA 0x260a6> {}
<POP 260c2-260c4 Naked> Σ0 →0x260a6 ←0x25fa2
<MI 260c2 BRA 0x260a6> {}
<POP 260c4-260d8 Naked> Σ0 Δ-12 ↓ ←0x25fa2
<MI 260c4 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<POP 260c6-260c8 StackAdj> Δ-8 {[4, '(A6-0x8)']|[-8-]}
<MI 260c8 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6-0x8)']|[-8-]|[4, '(A6+0xc)']}
<MI 260cc MOVE.L D6,-(A7)> Δ-4 {[4, '(A6-0x8)']|[-8-]|[4, '(A6+0xc)']|[4, 'D6']}
<Call 0x260ce 0x23c80> {[4, '(A6-0x8)']|[-8-]|[4, '(A6+0xc)']|[4, 'D6']}
<POP 260d2-260d4 StackAdj> Δ+8 {[4, '(A6-0x8)']|[-8-]}
<Call 0x260d4 0x25c58> {[4, '(A6-0x8)']|[-8-]}
<POP 260d8-260de Naked> Σ-12 Δ+12 →0x26130 ←0x260f4
<POP 260d8-260dc StackAdj> Δ+12 {}
<MI 260dc BRA 0x26130> {}
<POP 260de-260f4 Naked> Σ0 Δ-12 →0x260a2 ←0x25fa2
<MI 260de MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<POP 260e0-260e2 StackAdj> Δ-8 {[4, '(A6-0x8)']|[-8-]}
<MI 260e2 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6-0x8)']|[-8-]|[4, '(A6+0xc)']}
<MI 260e6 MOVE.L D6,-(A7)> Δ-4 {[4, '(A6-0x8)']|[-8-]|[4, '(A6+0xc)']|[4, 'D6']}
<Call 0x260e8 0x23c80> {[4, '(A6-0x8)']|[-8-]|[4, '(A6+0xc)']|[4, 'D6']}
<POP 260ec-260ee StackAdj> Δ+8 {[4, '(A6-0x8)']|[-8-]}
<Call 0x260ee 0x25cde> {[4, '(A6-0x8)']|[-8-]}
<MI 260f2 BRA 0x260a2> {[4, '(A6-0x8)']|[-8-]}
<POP 260f4-26102 Naked> Σ0 Δ-12 →0x260d8 ←0x25fa2
<MI 260f4 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<MI 260f6 MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x10)']}
<MI 260fa MOVE.L (A6-0x14),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<Call 0x260fc 0x25d4e> {[4, '(A6-0x8)']|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<MI 26100 BRA 0x260d8> {[4, '(A6-0x8)']|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<POP 26102-26104 Naked> Σ0 →0x26130 ←0x25fa2
<MI 26102 BRA 0x26130> {}
<POP 26104-26106 Naked> Σ0 →0x260a6 ←0x25fa2
<MI 26104 BRA 0x260a6> {}
<POP 26106-26130 Naked> Σ0 ↓ ←0x25fa2
<Blob 0x26106 [24] @> Δ-24 {[«24""»]}
<POP 26112-26114 StackAdj> Δ-4 {[«24""»]|[-4-]}
<Lit 0x26114 24> {[«24""»]|[$$Illegal argument marker.]}
<Call 0x26128 0x23036> {[«24""»]|[$$Illegal argument marker.]}
<POP 2612c-26130 StackAdj> Δ+28 {}
<POP 26130-26134 Naked> Σ0 ↓ →0x2617a ←0x25fe0 ←0x25fea ←0x2601a ←0x2602c ←0x26040 ←0x26048 ←0x2605e ←0x2607e ←0x260a6 ←0x260d8 ←0x26102
<MI 26130 TST.B D7> {}
<MI 26132 BNE 0x2617a> {}
<POP 26134-2617a Naked> Σ0 ↓
<Pointer.fp 0x26134 <LVAR -0x00c @ 4(r)>> Δ-4 {[@@-12]}
<Pointer.fp 0x26138 <LVAR -0x014 @ 4(r)>> Δ-4 {[@@-12]|[@@-20]}
<Call 0x2613a 0x25d96> {[@@-12]|[@@-20]}
<POP 2613e-26140 StackAdj> Δ+8 {}
<MI 26140 MOVE.L (A6-0x34),D0> {}
<POP 0x26144 LimitCheck 0x0 ≤ D0 ≤ 0x13> {}
<MI 2614e MOVE.L D0,D4> {}
<MI 26150 MOVEQ.L #0x07,D3> {}
<Call 0x26152 0x1028c> {}
?muls_d3_d4
<MI 26158 LEA.L 0x22f68,A0> {}
<MI 2615c MOVE.L (A6-0xc),D0> {}
<POP 0x26160 LimitCheck 0x0 ≤ D0 ≤ 0x6> {}
<MI 2616a LEA.L (A0+D4.L),A0> {}
<MI 2616e MOVE.B (A0+D0.L),D1> {}
<MI 26172 EXTB.W D1> {}
<MI 26174 EXTW.L D1> {}
<MI 26176 MOVE.L D1,(A6-0x34)> {}
<POP 2617a-26180 Naked> Σ0 ↓ →0x25fa2 ←0x26130
<MI 2617a TST.B D7> {}
<MI 2617c BEQ 0x25fa2> {}
<POP 26180-2618c Naked> Σ0 ↓
<MI 26180 MOVE.L (A6-0x28),-(A7)> Δ-4 {[4, '(A6-0x28)']}
<MI 26184 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x28)']|[4, '(A6-0x8)']}
<Call 0x26186 0x25ed0> {[4, '(A6-0x28)']|[4, '(A6-0x8)']}
<POP 2618a-2618c StackAdj> Δ+8 {}
<POP 2618c-26196 Naked> Σ0 ↓ ←0x26006
<Pointer.fp 0x2618c <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-8]}
<Call 0x2618e 0x102bc> {[@@-8]}
FreeString(VAR a : String)
<POP 26194-26196 StackAdj> Δ+4 {}
<POP 26196-2619e Epilogue> Σ0
@ 2619e
<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 2619e-26296 Body> Δ-12
<POP 2619e-261b4 Prologue> Σ0 ↓
<POP 261b4-261c6 RegCacheLoad> Σ0 ↓
<POP 261c6-261ee Naked> Σ0 Δ-4 ↓
<MI 261c6 CLR.L (A6+0x14)> {}
<POP 261ca-261cc StackAdj> Δ-4 {[-4-]}
<MI 261cc MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x10)']}
<MI 261ce MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<Call 0x261d0 0x23c48> {[-4-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<POP 261d4-261d6 StackAdj> Δ+8 {[-4-]}
<MI 261d6 MOVE.L (A7)+,(A6-0xc)> Δ+4 {}
<MI 261d8 MOVEA.L (A6+0x8),A0> {}
<MI 261dc MOVE.W (A0),D0> {}
<MI 261de EXTW.L D0> {}
<MI 261e0 ADDQ.L #0x1,D0> {}
<MI 261e2 MOVE.L D0,(A6-0x8)> {}
<MI 261e4 NEG.L D0> {}
<MI 261e6 ADD.L (A6-0xc),D0> {}
<MI 261e8 ADDQ.L #0x1,D0> {}
<MI 261ea MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 261ec MOVEQ.L #0x01,D0> {[4, 'D0']}
<POP 261ee-261f4 Naked> Σ-4 ↓ →0x2628c ←0x26284
<MI 261ee CMP.L (A7),D0> {[-4-]}
<MI 261f0 BGT 0x2628c> {[-4-]}
<POP 261f4-26200 Naked> Σ-4 Δ-8 ↓
<MI 261f4 MOVE.L D0,(A6-0x18)> {[-4-]}
<MI 261f8 MOVE.L D0,-(A7)> Δ-4 {[-4-]|[4, 'D0']}
<MI 261fa MOVEQ.L #0x00,D6> {[-4-]|[4, 'D0']}
<MI 261fc MOVE.L (A6-0x8),-(A7)> Δ-4 {[-4-]|[4, 'D0']|[4, '(A6-0x8)']}
<MI 261fe MOVEQ.L #0x01,D5> {[-4-]|[4, 'D0']|[4, '(A6-0x8)']}
<POP 26200-26204 Naked> Σ-12 ↓ →0x2624c ←0x26246
<MI 26200 CMP.L (A7),D5> {[-12-]}
<MI 26202 BGT 0x2624c> {[-12-]}
<POP 26204-2620c Naked> Σ-12 ↓ →0x26210
<MI 26204 CMPI.L #0x00000001,D5> {[-12-]}
<MI 2620a BNE 0x26210> {[-12-]}
<POP 2620c-26210 Naked> Σ-12 →0x26228
<MI 2620c MOVEQ.L #0x2f,D7> {[-12-]}
<MI 2620e BRA 0x26228> {[-12-]}
<POP 26210-26228 Naked> Σ-12 ↓ ←0x26204
<MI 26210 MOVEA.L (A6+0x8),A0> {[-12-]}
<MI 26214 MOVE.L D5,D0> {[-12-]}
<MI 26216 SUBQ.L #0x1,D0> {[-12-]}
<MI 26218 SUBQ.L #0x1,D0> {[-12-]}
<POP 0x2621a LimitCheck 0x0 ≤ D0 ≤ 0x7d> {[-12-]}
<MI 26224 MOVE.B (A0+D0.L+#0x2),D7> {[-12-]}
<POP 26228-26242 Naked> Σ-12 ↓ →0x26246 ←0x2620c
<POP 26228-2622a StackAdj> Δ-2 {[-14-]}
<MI 2622a MOVE.L (A6+0x10),-(A7)> Δ-4 {[-14-]|[4, '(A6+0x10)']}
<MI 2622c MOVE.L (A6+0xc),-(A7)> Δ-4 {[-14-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<MI 2622e MOVE.L (A7+0xe),D0> {[-14-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<MI 26232 ADD.L D5,D0> {[-14-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<MI 26234 SUBQ.L #0x1,D0> {[-14-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<MI 26236 MOVE.L D0,-(A7)> Δ-4 {[-14-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, 'D0']}
<Call 0x26238 0x25834> {[-14-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, 'D0']}
<POP 2623c-2623e StackAdj> Δ+12 {[-14-]}
<MI 2623e CMP.B (A7)+,D7> Δ+2 {[-12-]}
<MI 26240 BEQ 0x26246> {[-12-]}
<POP 26242-26246 Naked> Σ-12 Δ+4 →0x2624e
<POP 26242-26244 StackAdj> Δ+4 {[-8-]}
<MI 26244 BRA 0x2624e> {[-8-]}
<POP 26246-2624c Naked> Σ-12 ↓ →0x26200 ←0x26228
<MI 26246 MOVE.L D5,D6> {[-12-]}
<MI 26248 ADDQ.L #0x1,D5> {[-12-]}
<MI 2624a BVC 0x26200> {[-12-]}
<POP 2624c-2624e Naked> Σ-12 Δ+4 ↓ ←0x26200
<POP 2624c-2624e StackAdj> Δ+4 {[-8-]}
<POP 2624e-26252 Naked> Σ-8 ↓ →0x26284 ←0x26242
<MI 2624e CMP.L (A6-0x8),D6> {[-8-]}
<MI 26250 BNE 0x26284> {[-8-]}
<POP 26252-2625c Naked> Σ-8 ↓ →0x26282
<MI 26252 MOVE.L (A7),D0> {[-8-]}
<MI 26254 MOVE.L D0,D1> {[-8-]}
<MI 26256 ADD.L (A6-0x8),D1> {[-8-]}
<MI 26258 CMP.L (A6-0xc),D1> {[-8-]}
<MI 2625a BGE 0x26282> {[-8-]}
<POP 2625c-26272 Naked> Σ-8 ↓ →0x26278
<POP 2625c-2625e StackAdj> Δ-2 {[-10-]}
<MI 2625e MOVE.L (A6+0x10),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x10)']}
<MI 26260 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<MI 26262 MOVE.L D1,-(A7)> Δ-4 {[-10-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, 'D1']}
<Call 0x26264 0x25834> {[-10-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, 'D1']}
<POP 26268-2626a StackAdj> Δ+12 {[-10-]}
<MI 2626a MOVE.B (A7)+,D7> Δ+2 {[-8-]}
<MI 2626c CMPI.B #0x2f,D7> {[-8-]}
<MI 26270 BEQ 0x26278> {[-8-]}
<POP 26272-26278 Naked> Σ-8 ↓ →0x26280
<MI 26272 CMPI.B #0x3d,D7> {[-8-]}
<MI 26276 BNE 0x26280> {[-8-]}
<POP 26278-26280 Naked> Σ-8 Δ+8 →0x2628e ←0x2625c ←0x26282
<MI 26278 MOVE.L D0,(A6+0x14)> {[-8-]}
<POP 2627c-2627e StackAdj> Δ+8 {}
<MI 2627e BRA 0x2628e> {}
<POP 26280-26282 Naked> Σ-8 →0x26284 ←0x26272
<MI 26280 BRA 0x26284> {[-8-]}
<POP 26282-26284 Naked> Σ-8 →0x26278 ←0x26252
<MI 26282 BRA 0x26278> {[-8-]}
<POP 26284-2628c Naked> Σ-8 Δ+4 ↓ →0x261ee ←0x2624e ←0x26280
<MI 26284 MOVE.L (A7)+,D0> Δ+4 {[-4-]}
<MI 26286 ADDQ.L #0x1,D0> {[-4-]}
<MI 26288 BVC 0x261ee> {[-4-]}
<POP 2628c-2628e Naked> Σ-4 Δ+4 ↓ ←0x261ee
<POP 2628c-2628e StackAdj> Δ+4 {}
<POP 2628e-26296 Epilogue> Σ0 ←0x26278
@ 26296
<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 26296-2637e Body> Δ-12
<POP 26296-262ac Prologue> Σ0 ↓
<POP 262ac-262bc RegCacheLoad> Σ0 ↓
<POP 262bc-262e2 Naked> Σ0 ↓ →0x26376
<MI 262bc MOVEA.L (A6+0x8),A0> {}
<MI 262c0 CLR.B (A0)> {}
<MI 262c2 MOVEA.L (A6+0xc),A1> {}
<MI 262c6 MOVE.L #0x01,(A1)> {}
<POP 262c8-262ca StackAdj> Δ-8 {[-8-]}
<MI 262ca MOVE.L (A6+0x18),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x18)']}
<MI 262ce MOVE.L (A6+0x14),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x18)']|[4, '(A6+0x14)']}
<Call 0x262d2 0x23c80> {[-8-]|[4, '(A6+0x18)']|[4, '(A6+0x14)']}
<POP 262d6-262d8 StackAdj> Δ+8 {[-8-]}
<MI 262d8 MOVE.L (A7)+,(A6-0x1c)> Δ+4 {[-4-]}
<MI 262da MOVE.L (A7)+,(A6-0x18)> Δ+4 {}
<MI 262dc TST.L (A6-0x1c)> {}
<MI 262de BEQ 0x26376> {}
<POP 262e2-262f8 Naked> Σ0 ↓ →0x26376
<POP 262e2-262e4 StackAdj> Δ-4 {[-4-]}
<MI 262e4 MOVE.L (A6-0x18),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x18)']}
<MI 262e6 MOVE.L (A6-0x1c),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<MI 262e8 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, '(A6+0x10)']}
<Call 0x262ec 0x2619e> {[-4-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, '(A6+0x10)']}
<POP 262f0-262f2 StackAdj> Δ+12 {[-4-]}
<MI 262f2 MOVE.L (A7)+,(A6-0x14)> Δ+4 {}
<MI 262f6 BEQ 0x26376> {}
<POP 262f8-26318 Naked> Σ0 Δ-4 ↓
<MI 262f8 MOVE.B #0x01,(A0)> {}
<MI 262fa PEA.L (A1)> Δ-4 {[4, '^(A1)']}
<Call 0x262fc 0x102b8> {[4, '^(A1)']}
NewString(VAR a : String)
<MI 26302 MOVE.L (A6-0x18),-(A7)> Δ-4 {[4, '^(A1)']|[4, '(A6-0x18)']}
<MI 26304 MOVE.L (A6-0x1c),-(A7)> Δ-4 {[4, '^(A1)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<Call 0x26306 0x23c48> {[4, '^(A1)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<POP 2630a-2630c StackAdj> Δ+8 {[4, '^(A1)']}
<MI 2630c MOVE.L (A7)+,(A6-0x8)> Δ+4 {}
<MI 2630e MOVE.L (A6-0x14),D0> {}
<MI 26312 ADDQ.L #0x1,D0> {}
<MI 26314 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<MI 26316 MOVE.L D0,D5> {[4, '(A6-0x8)']}
<POP 26318-2631c Naked> Σ-4 ↓ →0x26374 ←0x26370
<MI 26318 CMP.L (A7),D5> {[-4-]}
<MI 2631a BGT 0x26374> {[-4-]}
<POP 2631c-26332 Naked> Σ-4 ↓ →0x26370
<POP 2631c-2631e StackAdj> Δ-2 {[-6-]}
<MI 2631e MOVE.L (A6-0x18),-(A7)> Δ-4 {[-6-]|[4, '(A6-0x18)']}
<MI 26320 MOVE.L (A6-0x1c),-(A7)> Δ-4 {[-6-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<MI 26322 MOVE.L D5,-(A7)> Δ-4 {[-6-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, 'D5']}
<Call 0x26324 0x25834> {[-6-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, 'D5']}
<POP 26328-2632a StackAdj> Δ+12 {[-6-]}
<MI 2632a MOVE.B (A7)+,D0> Δ+2 {[-4-]}
<MI 2632c CMPI.B #0x3d,D0> {[-4-]}
<MI 26330 BNE 0x26370> {[-4-]}
<POP 26332-2633a Naked> Σ-4 Δ-4 ↓
<MI 26332 MOVE.L D5,D0> {[-4-]}
<MI 26334 ADDQ.L #0x1,D0> {[-4-]}
<MI 26336 MOVE.L (A6-0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x8)']}
<MI 26338 MOVE.L D0,D7> {[-4-]|[4, '(A6-0x8)']}
<POP 2633a-2633e Naked> Σ-8 ↓ →0x2636c ←0x26358
<MI 2633a CMP.L (A7),D7> {[-8-]}
<MI 2633c BGT 0x2636c> {[-8-]}
<POP 2633e-26354 Naked> Σ-8 ↓ →0x26358
<POP 2633e-26340 StackAdj> Δ-2 {[-10-]}
<MI 26340 MOVE.L (A6-0x18),-(A7)> Δ-4 {[-10-]|[4, '(A6-0x18)']}
<MI 26342 MOVE.L (A6-0x1c),-(A7)> Δ-4 {[-10-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<MI 26344 MOVE.L D7,-(A7)> Δ-4 {[-10-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, 'D7']}
<Call 0x26346 0x25834> {[-10-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, 'D7']}
<POP 2634a-2634c StackAdj> Δ+12 {[-10-]}
<MI 2634c MOVE.B (A7)+,D6> Δ+2 {[-8-]}
<MI 2634e CMPI.B #0x2f,D6> {[-8-]}
<MI 26352 BNE 0x26358> {[-8-]}
<POP 26354-26358 Naked> Σ-8 Δ+8 →0x26376
<POP 26354-26356 StackAdj> Δ+8 {}
<MI 26356 BRA 0x26376> {}
<POP 26358-2636c Naked> Σ-8 ↓ →0x2633a ←0x2633e
<MI 26358 MOVEA.L (A6+0xc),A0> {[-8-]}
<MI 2635c MOVE.L (A0),-(A7)> Δ-4 {[-8-]|[4, '(A0)']}
<MI 2635e MOVE.B D6,-(A7)> Δ-2 {[-8-]|[4, '(A0)']|[2, 'D6']}
<Call 0x26360 0x102c0> {[-8-]|[4, '(A0)']|[2, 'D6']}
AppendChar(MOD b : String; a : char)
<POP 26366-26368 StackAdj> Δ+6 {[-8-]}
<MI 26368 ADDQ.L #0x1,D7> {[-8-]}
<MI 2636a BVC 0x2633a> {[-8-]}
<POP 2636c-26370 Naked> Σ-8 Δ+8 →0x26376 ←0x2633a
<POP 2636c-2636e StackAdj> Δ+8 {}
<MI 2636e BRA 0x26376> {}
<POP 26370-26374 Naked> Σ-4 ↓ →0x26318 ←0x2631c
<MI 26370 ADDQ.L #0x1,D5> {[-4-]}
<MI 26372 BVC 0x26318> {[-4-]}
<POP 26374-26376 Naked> Σ-4 Δ+4 ↓ ←0x26318
<POP 26374-26376 StackAdj> Δ+4 {}
<POP 26376-2637e Epilogue> Σ0 ←0x262bc ←0x262e2 ←0x26354 ←0x2636c
@ 2637e
<LVAR 0x00c @ 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x010 @ 1(r)>
<POP 2637e-2641c Body>
<POP 2637e-26394 Prologue> Σ0 ↓
<POP 26394-263a2 RegCacheLoad> Σ0 ↓
<POP 263a2-263ba Naked> Σ0 ↓ →0x2640a
<MI 263a2 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<MI 263a4 MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Pointer.fp 0x263a6 <LVAR -0x010 @ 1(r)>> Δ-4 {[4, '(A6+0xc)']|[4, '(A6+0x8)']|[@@-16]}
<Call 0x263aa 0x22866> {[4, '(A6+0xc)']|[4, '(A6+0x8)']|[@@-16]}
<POP 263b0-263b4 StackAdj> Δ+12 {}
<MI 263b4 TST.B (A6-0x10)> {}
<MI 263b8 BNE 0x2640a> {}
<POP 263ba-263d4 Naked> Σ0 ↓
<MI 263ba MOVE.L 0x29348,D7> {}
<POP 263bc-263be StackAdj> Δ-4 {[-4-]}
<MI 263be MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x263c0 0x23442> {[-4-]|[4, '(A6+0x8)']}
<POP 263c4-263c6 StackAdj> Δ+4 {[-4-]}
<MI 263c6 MOVE.L (A7)+,D6> Δ+4 {}
<MI 263c8 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<MI 263ca MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x263cc 0x256f8> {[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 263d0-263d2 StackAdj> Δ+8 {}
<MI 263d2 MOVE.L 0x29348,D5> {}
<POP 263d4-263f2 Naked> Σ0 ↓ →0x263fe ←0x263fe
<MI 263d4 MOVE.L D7,D0> {}
<MI 263d6 SUBQ.L #0x1,D0> {}
<POP 0x263d8 LimitCheck 0x0 ≤ D0 ≤ 0x1fff> {}
<MI 263e2 LEA.L 0x27340,A0> {}
<MI 263e8 MOVE.B (A0+D0.L+#0x8),D0> {}
<MI 263ec CMPI.B #0x25,D0> {}
<MI 263f0 BNE 0x263fe> {}
<POP 263f2-263fe Naked> Σ0 ↓
<MI 263f2 MOVE.L D7,0x29348> {}
<MI 263f4 MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<MI 263f6 MOVE.L D6,-(A7)> Δ-4 {[4, '(A6+0x8)']|[4, 'D6']}
<Call 0x263f8 0x25f56> {[4, '(A6+0x8)']|[4, 'D6']}
<POP 263fc-263fe StackAdj> Δ+8 {}
<POP 263fe-26408 Naked> Σ0 ↓ →0x263d4 ←0x263d4
<MI 263fe ADDQ.L #0x1,D7> {}
<MI 26400 CMP.L 0x2934c,D7> {}
<MI 26406 BLE 0x263d4> {}
<POP 26408-2640a Naked> Σ0 ↓
<MI 26408 MOVE.L D5,0x29348> {}
<POP 2640a-26414 Naked> Σ0 ↓ ←0x263a2
<Pointer.fp 0x2640a <LVAR 0x00c @ 4(r)>> Δ-4 {[@@12]}
<Call 0x2640c 0x102bc> {[@@12]}
FreeString(VAR a : String)
<POP 26412-26414 StackAdj> Δ+4 {}
<POP 26414-2641c Epilogue> Σ0
@ 2641c
<LVAR -0x006 @ 4(r)>
<LVAR -0x00a @ 4(rw)>
<LVAR -0x00b 1(w)>
<LVAR -0x00c @ 1(r)>
<POP 2641c-2672e Body> Δ+148
<POP 2641c-26432 Prologue> Σ0 ↓
<POP 26432-26440 RegCacheLoad> Σ0 ↓
<POP 26440-26466 Naked> Σ0 ↓ →0x26710 ←0x26710
<MI 26440 MOVE.L 0x29348,D7> {}
<Pointer.fp 0x26442 <LVAR -0x006 @ 4(r)>> Δ-4 {[@@-6]}
<Pointer.fp 0x26444 <LVAR -0x00c @ 1(r)>> Δ-4 {[@@-6]|[@@-12]}
<Call 0x26448 0x23396> {[@@-6]|[@@-12]}
<POP 2644c-2644e StackAdj> Δ+8 {}
<MI 2644e MOVE.L 0x29348,D6> {}
<POP 26450-26452 StackAdj> Δ-4 {[-4-]}
<MI 26452 MOVE.L (A6-0x6),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x6)']}
<Call 0x26454 0x23442> {[-4-]|[4, '(A6-0x6)']}
<POP 26458-2645a StackAdj> Δ+4 {[-4-]}
<MI 2645a MOVE.L (A7)+,D0> Δ+4 {}
<MI 2645c CMPI.L #0xffffffff,D0> {}
<MI 26462 BEQ 0x26710> {}
<POP 26466-26490 Naked> Σ0 ↓ →0x2649e
<POP 26466-26468 StackAdj> Δ-4 {[-4-]}
<MI 26468 MOVE.L (A6-0x6),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x6)']}
<Const 0x2646a 0x0.4> Δ-4 {[-4-]|[4, '(A6-0x6)']|[##0]}
<Call 0x2646e 0x23d5e> {[-4-]|[4, '(A6-0x6)']|[##0]}
<POP 26472-26474 StackAdj> Δ+8 {[-4-]}
<MI 26474 MOVE.L (A7),(A6-0xa)> {[-4-]}
<POP 26476-26478 StackAdj> Δ+2 {[-2-]}
<MI 26478 MOVE.L (A6-0xa),-(A7)> Δ-4 {[-2-]|[4, '(A6-0xa)']}
<Call 0x2647a 0x25640> {[-2-]|[4, '(A6-0xa)']}
<POP 2647e-26480 StackAdj> Δ+4 {[-2-]}
<MI 26480 MOVE.B (A7)+,D0> Δ+2 {}
<MI 26482 EXTB.W D0> {}
<POP 0x26484 LimitCheck 0x0 ≤ D0 ≤ 0x2b> {}
<MI 26488 MOVE.B D0,(A6-0xb)> {}
<MI 2648c TST.B D0> {}
<MI 2648e BNE 0x2649e> {}
<POP 26490-2649e Naked> Σ0 →0x26708
<MI 26490 MOVE.L (A6-0xa),-(A7)> Δ-4 {[4, '(A6-0xa)']}
<MI 26492 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0xa)']|[4, '(A6-0x6)']}
<Call 0x26494 0x2637e> {[4, '(A6-0xa)']|[4, '(A6-0x6)']}
<POP 26498-2649a StackAdj> Δ+8 {}
<MI 2649a BRA 0x26708> {}
<POP 2649e-264d4 Naked> Σ0 ↓ →0x26500 ←0x26466
<Pointer.fp 0x2649e <LVAR -0x00a @ 4(rw)>> Δ-4 {[@@-10]}
<Call 0x264a0 0x102bc> {[@@-10]}
FreeString(VAR a : String)
<POP 264a6-264a8 StackAdj> Δ+4 {}
<MI 264a8 MOVE.B D0,D1> {}
<MI 264aa EXTB.W D1> {}
<POP 0x264ac LimitCheck 0x0 ≤ D1 ≤ 0x2b> {}
<MI 264b0 LEA.L 0x22f38,A0> {}
<MI 264b4 MOVE.W D1,D0> {}
<MI 264b6 EXTW.L D0> {}
<MI 264b8 MOVE.L D0,D2> {}
<MI 264ba ROR.L #0x1,D2> {}
<MI 264bc ADDA.W D2,A0> {}
<MI 264be SWAP.W D2> {}
<MI 264c0 ROL.W #0x3,D2> {}
<MI 264c2 CLR.L D3> {}
<MI 264c4 MOVE.B (A0),D3> {}
<MI 264c6 LSL.B D2,D3> {}
<MI 264c8 LSR.B #0x4,D3> {}
<MI 264ca MOVE.L D3,D5> {}
<MI 264cc CMPI.L #0x0000000f,D5> {}
<MI 264d2 BEQ 0x26500> {}
<POP 264d4-26500 Naked> Σ0 ↓
<MI 264d4 MOVE.L D0,D4> {}
<MI 264d6 MOVEQ.L #0x0a,D3> {}
<Call 0x264d8 0x1028c> {}
?muls_d3_d4
<MI 264de LEA.L 0x22d6a,A0> {}
<Blob 0x264e2 [10] (A0+D4.W)> Δ-10 {[«10»]}
<MI 264f4 MOVE.L (A6-0x6),-(A7)> Δ-4 {[«10»]|[4, '(A6-0x6)']}
<MI 264f6 MOVE.L D5,-(A7)> Δ-4 {[«10»]|[4, '(A6-0x6)']|[4, 'D5']}
<Call 0x264f8 0x23478> {[«10»]|[4, '(A6-0x6)']|[4, 'D5']}
<POP 264fc-26500 StackAdj> Δ+18 {}
<POP 26500-26514 Naked> Σ0 →0x2656a →0x26576 →0x26588 →0x26596 →0x266fa →0x2659e →0x265a2 →0x265aa →0x265b2 →0x265ba →0x265c2 →0x265ca →0x265d2 →0x265da →0x265e2 →0x265ea →0x265f4 →0x265fe →0x26608 →0x26612 →0x2661c →0x26626 →0x26630 →0x2663a →0x26644 →0x2664e →0x26658 →0x26662 →0x2666c →0x26676 →0x26680 →0x2668a →0x26694 →0x2669e →0x266a8 →0x266b2 →0x266bc →0x266c6 →0x266cc →0x266d6 →0x266e0 →0x266ea →0x266f0 ←0x2649e
<MI 26500 SUBQ.W #0x1,D1> {}
<POP 0x26502 LimitCheck 0x0 ≤ D1 ≤ 0x2a> {}
<MI 2650a ADD.W D1,D1> {}
<MI 2650c SWITCH D1.W> {}
<POP 2656a-26570 Naked> Σ0 Δ-4 ↓ ←0x26500
<MI 2656a MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x2656c 0x23ee6> {[4, '(A6-0x6)']}
<POP 26570-26576 Naked> Σ-4 Δ+4 →0x26708 ←0x26588 ←0x26596 ←0x265a2 ←0x265aa ←0x265b2 ←0x265ba ←0x265c2 ←0x265ca ←0x265d2 ←0x265da ←0x265e2 ←0x265ea ←0x265f4 ←0x265fe ←0x26608 ←0x26612 ←0x2661c ←0x26626 ←0x26630 ←0x2663a ←0x26644 ←0x2664e ←0x26658 ←0x26662 ←0x2666c ←0x26676 ←0x26680 ←0x2668a ←0x26694 ←0x2669e ←0x266a8 ←0x266b2 ←0x266bc ←0x266cc ←0x266d6 ←0x266e0 ←0x266f0
<POP 26570-26572 StackAdj> Δ+4 {}
<MI 26572 BRA 0x26708> {}
<POP 26576-26588 Naked> Σ0 →0x26708 ←0x26500
<MI 26576 CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x26578 0x1.4> Δ-4 {[#0]|[##1]}
<Call 0x2657c 0x103b8> {[#0]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 26582-26584 StackAdj> Δ+6 {}
<MI 26584 BRA 0x26708> {}
<POP 26588-26596 Naked> Σ0 Δ-4 →0x26570 ←0x26500
<POP 26588-2658a StackAdj> Δ-4 {[-4-]}
<Call 0x2658a 0x102ac> {[-4-]}
FSCALL_102ac
<Call 0x26590 0x23ebc> {[-4-]}
<MI 26594 BRA 0x26570> {[-4-]}
<POP 26596-2659e Naked> Σ0 Δ-4 →0x26570 ←0x26500
<MI 26596 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x26598 0x240c0> {[4, '(A6-0x6)']}
<MI 2659c BRA 0x26570> {[4, '(A6-0x6)']}
<POP 2659e-265a2 Naked> Σ0 →0x26708 ←0x26500
<MI 2659e BRA 0x26708> {}
<POP 265a2-265aa Naked> Σ0 Δ-4 →0x26570 ←0x26500
<MI 265a2 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x265a4 0x243e6> {[4, '(A6-0x6)']}
<MI 265a8 BRA 0x26570> {[4, '(A6-0x6)']}
<POP 265aa-265b2 Naked> Σ0 Δ-4 →0x26570 ←0x26500
<MI 265aa MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x265ac 0x24552> {[4, '(A6-0x6)']}
<MI 265b0 BRA 0x26570> {[4, '(A6-0x6)']}
<POP 265b2-265ba Naked> Σ0 Δ-4 →0x26570 ←0x26500
<MI 265b2 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x265b4 0x24640> {[4, '(A6-0x6)']}
<MI 265b8 BRA 0x26570> {[4, '(A6-0x6)']}
<POP 265ba-265c2 Naked> Σ0 Δ-4 →0x26570 ←0x26500
<MI 265ba MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x265bc 0x24a34> {[4, '(A6-0x6)']}
<MI 265c0 BRA 0x26570> {[4, '(A6-0x6)']}
<POP 265c2-265ca Naked> Σ0 Δ-4 →0x26570 ←0x26500
<MI 265c2 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x265c4 0x24aac> {[4, '(A6-0x6)']}
<MI 265c8 BRA 0x26570> {[4, '(A6-0x6)']}
<POP 265ca-265d2 Naked> Σ0 Δ-4 →0x26570 ←0x26500
<MI 265ca MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x265cc 0x24b24> {[4, '(A6-0x6)']}
<MI 265d0 BRA 0x26570> {[4, '(A6-0x6)']}
<POP 265d2-265da Naked> Σ0 Δ-4 →0x26570 ←0x26500
<MI 265d2 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x265d4 0x24b50> {[4, '(A6-0x6)']}
<MI 265d8 BRA 0x26570> {[4, '(A6-0x6)']}
<POP 265da-265e2 Naked> Σ0 Δ-4 →0x26570 ←0x26500
<MI 265da MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x265dc 0x24c50> {[4, '(A6-0x6)']}
<MI 265e0 BRA 0x26570> {[4, '(A6-0x6)']}
<POP 265e2-265ea Naked> Σ0 Δ-4 →0x26570 ←0x26500
<MI 265e2 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x265e4 0x24d36> {[4, '(A6-0x6)']}
<MI 265e8 BRA 0x26570> {[4, '(A6-0x6)']}
<POP 265ea-265f4 Naked> Σ0 Δ-4 →0x26570 ←0x26500
<MI 265ea MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x265ec 0x24d62> {[4, '(A6-0x6)']}
<MI 265f0 BRA 0x26570> {[4, '(A6-0x6)']}
<POP 265f4-265fe Naked> Σ0 Δ-4 →0x26570 ←0x26500
<MI 265f4 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x265f6 0x24dae> {[4, '(A6-0x6)']}
<MI 265fa BRA 0x26570> {[4, '(A6-0x6)']}
<POP 265fe-26608 Naked> Σ0 Δ-4 →0x26570 ←0x26500
<MI 265fe MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x26600 0x24dfa> {[4, '(A6-0x6)']}
<MI 26604 BRA 0x26570> {[4, '(A6-0x6)']}
<POP 26608-26612 Naked> Σ0 Δ-4 →0x26570 ←0x26500
<MI 26608 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x2660a 0x24e46> {[4, '(A6-0x6)']}
<MI 2660e BRA 0x26570> {[4, '(A6-0x6)']}
<POP 26612-2661c Naked> Σ0 Δ-4 →0x26570 ←0x26500
<MI 26612 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x26614 0x24e92> {[4, '(A6-0x6)']}
<MI 26618 BRA 0x26570> {[4, '(A6-0x6)']}
<POP 2661c-26626 Naked> Σ0 Δ-4 →0x26570 ←0x26500
<MI 2661c MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x2661e 0x24ede> {[4, '(A6-0x6)']}
<MI 26622 BRA 0x26570> {[4, '(A6-0x6)']}
<POP 26626-26630 Naked> Σ0 Δ-4 →0x26570 ←0x26500
<MI 26626 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x26628 0x24f2a> {[4, '(A6-0x6)']}
<MI 2662c BRA 0x26570> {[4, '(A6-0x6)']}
<POP 26630-2663a Naked> Σ0 Δ-4 →0x26570 ←0x26500
<MI 26630 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x26632 0x24f74> {[4, '(A6-0x6)']}
<MI 26636 BRA 0x26570> {[4, '(A6-0x6)']}
<POP 2663a-26644 Naked> Σ0 Δ-4 →0x26570 ←0x26500
<MI 2663a MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x2663c 0x24fbe> {[4, '(A6-0x6)']}
<MI 26640 BRA 0x26570> {[4, '(A6-0x6)']}
<POP 26644-2664e Naked> Σ0 Δ-4 →0x26570 ←0x26500
<MI 26644 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x26646 0x25008> {[4, '(A6-0x6)']}
<MI 2664a BRA 0x26570> {[4, '(A6-0x6)']}
<POP 2664e-26658 Naked> Σ0 Δ-4 →0x26570 ←0x26500
<MI 2664e MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x26650 0x25052> {[4, '(A6-0x6)']}
<MI 26654 BRA 0x26570> {[4, '(A6-0x6)']}
<POP 26658-26662 Naked> Σ0 Δ-4 →0x26570 ←0x26500
<MI 26658 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x2665a 0x2509c> {[4, '(A6-0x6)']}
<MI 2665e BRA 0x26570> {[4, '(A6-0x6)']}
<POP 26662-2666c Naked> Σ0 Δ-4 →0x26570 ←0x26500
<MI 26662 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x26664 0x250e6> {[4, '(A6-0x6)']}
<MI 26668 BRA 0x26570> {[4, '(A6-0x6)']}
<POP 2666c-26676 Naked> Σ0 Δ-4 →0x26570 ←0x26500
<MI 2666c MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x2666e 0x25130> {[4, '(A6-0x6)']}
<MI 26672 BRA 0x26570> {[4, '(A6-0x6)']}
<POP 26676-26680 Naked> Σ0 Δ-4 →0x26570 ←0x26500
<MI 26676 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x26678 0x2517a> {[4, '(A6-0x6)']}
<MI 2667c BRA 0x26570> {[4, '(A6-0x6)']}
<POP 26680-2668a Naked> Σ0 Δ-4 →0x26570 ←0x26500
<MI 26680 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x26682 0x251be> {[4, '(A6-0x6)']}
<MI 26686 BRA 0x26570> {[4, '(A6-0x6)']}
<POP 2668a-26694 Naked> Σ0 Δ-4 →0x26570 ←0x26500
<MI 2668a MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x2668c 0x25204> {[4, '(A6-0x6)']}
<MI 26690 BRA 0x26570> {[4, '(A6-0x6)']}
<POP 26694-2669e Naked> Σ0 Δ-4 →0x26570 ←0x26500
<MI 26694 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x26696 0x2523a> {[4, '(A6-0x6)']}
<MI 2669a BRA 0x26570> {[4, '(A6-0x6)']}
<POP 2669e-266a8 Naked> Σ0 Δ-4 →0x26570 ←0x26500
<MI 2669e MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x266a0 0x252ca> {[4, '(A6-0x6)']}
<MI 266a4 BRA 0x26570> {[4, '(A6-0x6)']}
<POP 266a8-266b2 Naked> Σ0 Δ-4 →0x26570 ←0x26500
<MI 266a8 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x266aa 0x2533c> {[4, '(A6-0x6)']}
<MI 266ae BRA 0x26570> {[4, '(A6-0x6)']}
<POP 266b2-266bc Naked> Σ0 Δ-4 →0x26570 ←0x26500
<MI 266b2 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x266b4 0x246a2> {[4, '(A6-0x6)']}
<MI 266b8 BRA 0x26570> {[4, '(A6-0x6)']}
<POP 266bc-266c6 Naked> Σ0 Δ-4 →0x26570 ←0x26500
<MI 266bc MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x266be 0x2470c> {[4, '(A6-0x6)']}
<MI 266c2 BRA 0x26570> {[4, '(A6-0x6)']}
<POP 266c6-266cc Naked> Σ0 →0x26708 ←0x26500
<Call 0x266c6 0x246de> {}
<MI 266ca BRA 0x26708> {}
<POP 266cc-266d6 Naked> Σ0 Δ-4 →0x26570 ←0x26500
<MI 266cc MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x266ce 0x253ae> {[4, '(A6-0x6)']}
<MI 266d2 BRA 0x26570> {[4, '(A6-0x6)']}
<POP 266d6-266e0 Naked> Σ0 Δ-4 →0x26570 ←0x26500
<MI 266d6 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x266d8 0x25430> {[4, '(A6-0x6)']}
<MI 266dc BRA 0x26570> {[4, '(A6-0x6)']}
<POP 266e0-266ea Naked> Σ0 Δ-4 →0x26570 ←0x26500
<MI 266e0 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x266e2 0x254b0> {[4, '(A6-0x6)']}
<MI 266e6 BRA 0x26570> {[4, '(A6-0x6)']}
<POP 266ea-266f0 Naked> Σ0 →0x26708 ←0x26500
<Call 0x266ea 0x25574> {}
<MI 266ee BRA 0x26708> {}
<POP 266f0-266fa Naked> Σ0 Δ-4 →0x26570 ←0x26500
<MI 266f0 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x266f2 0x25594> {[4, '(A6-0x6)']}
<MI 266f6 BRA 0x26570> {[4, '(A6-0x6)']}
<POP 266fa-26708 Naked> Σ0 ←0x26500
<POP 266fa-26708 Bailout> {}
<MI 266fa MOVEA.L (A5+0x8),A7>
<MI 266fe MOVEA.W #0x0,A6>
<MI 26702 JMP 0x26912>
<POP 26708-26710 Naked> Σ0 ↓ ←0x26490 ←0x26570 ←0x26576 ←0x2659e ←0x266c6 ←0x266ea
<MI 26708 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x2670a 0x22ff4> {[4, '(A6-0x6)']}
<POP 2670e-26710 StackAdj> Δ+4 {}
<POP 26710-26726 Naked> Σ0 ↓ →0x26440 ←0x26440
<MI 26710 MOVE.L D6,-(A7)> Δ-4 {[4, 'D6']}
<MI 26712 MOVE.L D6,-(A7)> Δ-4 {[4, 'D6']|[4, 'D6']}
<MI 26714 SUB.L D7,(A7)> {[4, 'D6']|[-4-]}
<Call 0x26716 0x2358a> {[4, 'D6']|[-4-]}
<POP 2671a-2671c StackAdj> Δ+8 {}
<MI 2671c MOVE.L D7,0x29348> {}
<MI 2671e TST.B (A6-0xc)> {}
<MI 26722 BEQ 0x26440> {}
<POP 26726-2672e Epilogue> Σ0
@ 2672e
START
<POP 2672e--0001 Body>
<POP 2672e-26738 Prologue> Σ0
<POP 26738-26768 Naked> Σ0 ↓ →0x267d0
<MI 26738 MOVE.L #0x1,0x29372> {}
<POP 26742-26744 StackAdj> Δ-4 {[-4-]}
<Call 0x26744 0x103c4> {[-4-]}
GetArgv() : String
<MI 2674a MOVE.L (A7)+,0x29376> Δ+4 {}
<Const 0x26750 0x29350.4> Δ-4 {[##168784]}
<Call 0x26756 0x22944> {[##168784]}
<POP 2675c-2675e StackAdj> Δ+4 {}
<MI 2675e MOVEA.L 0x29376,A0> {}
<MI 26764 TST.W (A0)> {}
<MI 26766 BLE 0x267d0> {}
<POP 26768-267d0 Naked> Σ0 →0x2680a
<Blob 0x26768 [8] @> Δ-8 {[«8""»]}
<Blob 0x26778 [8] @> Δ-8 {[«8""»]|[«8""»]}
<POP 26788-2678a StackAdj> Δ-8 {[«8""»]|[«8""»]|[-8-]}
<Lit 0x2678a 7> {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]}
<POP 2679c-2679e StackAdj> Δ-4 {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]|[-4-]}
<POP 2679e-2679f StackAdj> Δ+4 {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]}
<Blob 0x2679f [4] 0x29376> Δ-4 {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]|[«4»]}
<POP 267a4-267a6 StackAdj> Δ-4 {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]|[«4»]|[-4-]}
<Lit 0x267a6 7> {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]|[«4»]|[$$][BYE];]}
<Call 0x267ba 0x102d4> {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]|[«4»]|[$$][BYE];]}
StringCat3(a, b, c : String) : String
<POP 267c0-267c4 StackAdj> Δ+12 {[«8""»]|[«8""»]|[-4-]}
<MI 267c4 MOVE.L (A7)+,0x29376> Δ+4 {[«8""»]|[«8""»]}
<POP 267ca-267ce StackAdj> Δ+16 {}
<MI 267ce BRA 0x2680a> {}
<POP 267d0-2680a Naked> Σ0 ↓ ←0x26738
<Const 0x267d0 0x29376.4> Δ-4 {[##168822]}
<Call 0x267d6 0x102bc> {[##168822]}
FreeString(VAR a : String)
<POP 267dc-267dd StackAdj> Δ+4 ↓ {}
<Blob 0x267dd [8] @> Δ-8 {[«8""»]}
<POP 267ec-267ee StackAdj> Δ-4 {[«8""»]|[-4-]}
<Lit 0x267ee 7> {[«8""»]|[$$[INIT];]}
<MI 26802 MOVE.L (A7)+,0x29376> Δ+4 {[«8""»]}
<POP 26808-2680a StackAdj> Δ+8 {}
<POP 2680a-26812 Naked> Σ0 ↓ ←0x26768
<MI 2680a MOVE.B #0x01,0x29380> {}
<POP 26812-2681a Naked> Σ0 ↓ →0x26824 ←0x26920
<MI 26812 TST.B 0x29380> {}
<MI 26818 BEQ 0x26824> {}
<POP 2681a-26824 Naked> Σ0 →0x268d2
<MI 2681a CLR.B 0x29380> {}
<MI 26820 BRA 0x268d2> {}
<POP 26824-268d2 Naked> Σ0 ↓ ←0x26812
<Blob 0x26824 [10] 0x2935a> Δ-10 {[«10»]}
<Blob 0x26832 [2] @> Δ-2 {[«10»]|[«2""»]}
<POP 26836-2683a StackAdj> Δ-12 {[«10»]|[«2""»]|[-12-]}
<Lit 0x2683a> {[«10»]|[«2""»]|[-8-]|[$$…]}
<Pointer.sp 0x2683a 14> Δ-4
<Const 0x2683e 0x1.2> Δ-2
<Const 0x26842 0xa.2> Δ-2
<Call 0x26846 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 2684c-2684e StackAdj> Δ+8
<POP 2684c-2684e StackAdj> Δ-4 {[«10»]|[«2""»]|[-8-]|[$$…]|[-4-]}
<Lit 0x2684e 2> {[«10»]|[«2""»]|[-8-]|[$$…]|[$$>_]}
<Call 0x26862 0x102d0> {[«10»]|[«2""»]|[-8-]|[$$…]|[$$>_]}
StringCat2(a, b : String) : String
<POP 26868-2686a StackAdj> Δ+8 {[«10»]|[«2""»]|[-8-]}
<Call 0x2686a 0x103e4> {[«10»]|[«2""»]|[-8-]}
AskConsoleString(prompt : String) : String
<POP 26870-26872 StackAdj> Δ+4 {[«10»]|[«2""»]|[-4-]}
<MI 26872 MOVE.L (A7)+,0x2937c> Δ+4 {[«10»]|[«2""»]}
<POP 26878-2687a StackAdj> Δ+8 {[-4-]}
<POP 2687a-2687b StackAdj> Δ+4 {}
<Blob 0x2687b [4] 0x2937c> Δ-4 {[«4»]}
<Call 0x26880 0x2328e> {[«4»]}
<POP 26884-26886 StackAdj> Δ+2 {[-2-]}
<POP 26886-26887 StackAdj> Δ+2 {}
<Blob 0x26887 [2] @> Δ-2 {[«2""»]}
<Blob 0x2688a [2] @> Δ-2 {[«2""»]|[«2""»]}
<POP 2688e-26890 StackAdj> Δ-8 {[«2""»]|[«2""»]|[-8-]}
<Lit 0x26890 2> {[«2""»]|[«2""»]|[-4-]|[$$[ ]}
<POP 268a2-268a4 StackAdj> Δ-4 {[«2""»]|[«2""»]|[-4-]|[$$[ ]|[-4-]}
<POP 268a4-268a5 StackAdj> Δ+4 {[«2""»]|[«2""»]|[-4-]|[$$[ ]}
<Blob 0x268a5 [4] 0x2937c> Δ-4 {[«2""»]|[«2""»]|[-4-]|[$$[ ]|[«4»]}
<POP 268aa-268ac StackAdj> Δ-4 {[«2""»]|[«2""»]|[-4-]|[$$[ ]|[«4»]|[-4-]}
<Lit 0x268ac 2> {[«2""»]|[«2""»]|[-4-]|[$$[ ]|[«4»]|[$$];]}
<Call 0x268c0 0x102d4> {[«2""»]|[«2""»]|[-4-]|[$$[ ]|[«4»]|[$$];]}
StringCat3(a, b, c : String) : String
<POP 268c6-268ca StackAdj> Δ+12 {[«2""»]|[«2""»]|[-4-]}
<MI 268ca MOVE.L (A7)+,0x29376> Δ+4 {[«2""»]|[«2""»]}
<POP 268d0-268d2 StackAdj> Δ+4 {}
<POP 268d2-268fe Naked> Σ0 ↓ ←0x2681a
<MI 268d2 CLR.B 0x2937a> {}
<MI 268d8 MOVE.L #0x1,0x29348> {}
<MI 268e2 CLR.L 0x2934c> {}
<POP 268e8-268ea StackAdj> Δ-4 {[-4-]}
<Blob 0x268ea [4] 0x29376> Δ-4 {[-4-]|[«4»]}
<Call 0x268f0 0x102cc> {[-4-]|[«4»]}
StringDup(a : String) : String
<POP 268f6-268f8 StackAdj> Δ+4 {[-4-]}
<Call 0x268f8 0x23e00> {[-4-]}
<POP 268fc-268fe StackAdj> Δ+4 {}
<POP 268fe-2690c Naked> Σ0 ↓ →0x26912 ←0x2690c
<MI 268fe MOVE.L 0x29348,D0> {}
<MI 26904 CMP.L 0x2934c,D0> {}
<MI 2690a BGT 0x26912> {}
<POP 2690c-26912 Naked> Σ0 →0x268fe
<Call 0x2690c 0x2641c> {}
<MI 26910 BRA 0x268fe> {}
<POP 26912-26920 Naked> Σ0 ↓ ←0x268fe
<Const 0x26912 0x29376.4> Δ-4 {[##168822]}
<Call 0x26918 0x102bc> {[##168822]}
FreeString(VAR a : String)
<POP 2691e-26920 StackAdj> Δ+4 {}
<POP 26920-26924 Naked> Σ0 →0x26812
<MI 26920 BRA 0x26812> {}
@ 26938
PROG_FAIL
<LVAR 0x008 1(r)>
<POP 26938-269a0 Body>
<POP 26938-2694e Prologue> Σ0 ↓
<POP 2694e-26998 Naked> Σ0 ↓
<Blob 0x2694e [14] @> Δ-14 {[«14""»]}
<Const 0x2695a 0x3.2> Δ-2 {[«14""»]|[#3]}
<POP 2695e-26960 StackAdj> Δ-8 {[«14""»]|[#3]|[-8-]}
<Lit 0x26960 14> {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
<POP 26972-26974 StackAdj> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 26974 MOVE.B (A6+0x8),D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 26978 EXTB.W D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 2697a EXTW.L D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 2697c MOVE.L D0,-(A7)> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
<Call 0x2697e 0x102e4> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 26984-26986 StackAdj> Δ+4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<Call 0x26986 0x102d0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 2698c-2698e StackAdj> Δ+8 {[«14""»]|[#3]|[-4-]}
<Call 0x2698e 0x103b8> {[«14""»]|[#3]|[-4-]}
PopProgram(status : Byte; msg : String)
<POP 26994-26998 StackAdj> Δ+20 {}
<POP 26998-269a0 Epilogue> Σ0
@ 269f4
EXP_FAIL
<LVAR 0x00e 1(r)>
<LVAR 0x00a 4(r)>
<LVAR 0x008 1(r)>
<POP 269f4-26b30 Body>
<POP 269f4-26a0a Prologue> Σ0 ↓
<POP 26a0a-26a20 RegCacheLoad> Σ0 ↓
<POP 26a20-26a80 Naked> Σ0 ↓ →0x26ac8
<Call 0x26a20 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x26a26 [18] @> Δ-18 {[«18""»]}
<POP 26a32-26a34 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x26a34 18> {[«18""»]|[$$Experiment error :]}
<Call 0x26a40 0x103e0> {[«18""»]|[$$Experiment error :]}
WriteConsoleStringCrLf(str : String)
<POP 26a42-26a43 StackAdj> Δ+22 ↓ {}
<Blob 0x26a43 [14] @> Δ-14 {[«14""»]}
<POP 26a52-26a54 StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x26a54 13> {[«14""»]|[-4-]|[$$Board :_]}
<POP 26a5e-26a60 StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<MI 26a60 MOVE.B (A6+0xe),(A7)> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<Call 0x26a64 0x1049c> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
BoardName(address : B) : String
<POP 26a6a-26a6c StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
<Call 0x26a6c 0x102d0> {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 26a72-26a74 StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x26a74 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 26a76-26a78 StackAdj> Δ+18 {}
<MI 26a78 MOVEA.L (A6+0xa),A0> {}
<MI 26a7c CMPA.W #0x01,A0> {}
<MI 26a7e BEQ 0x26ac8> {}
<POP 26a80-26ac8 Naked> Σ0 ↓
<Blob 0x26a80 [14] @> Δ-14 {[«14""»]}
<Blob 0x26a90 [30] (A0+0xfc)> Δ-30 {[«14""»]|[«30»]}
<POP 26aa0-26aa2 StackAdj> Δ-8 {[«14""»]|[«30»]|[-8-]}
<Lit 0x26aa2 13> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
<POP 26aac-26aae StackAdj> Δ-4 {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
<Lit 0x26aae> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
<Pointer.sp 0x26aae 12> Δ-4
<Const 0x26ab2 0x1.2> Δ-2
<Const 0x26ab4 0x1e.2> Δ-2
<Call 0x26ab6 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 26ab8-26aba StackAdj> Δ+8
<Call 0x26aba 0x102d0> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
StringCat2(a, b : String) : String
<POP 26ac0-26ac2 StackAdj> Δ+8 {[«14""»]|[«30»]|[-4-]}
<Call 0x26ac2 0x103e0> {[«14""»]|[«30»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 26ac4-26ac8 StackAdj> Δ+48 {}
<POP 26ac8-26b28 Naked> Σ0 ↓ ←0x26a20
<Blob 0x26ac8 [14] @> Δ-14 {[«14""»]}
<POP 26ad8-26ada StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x26ada 13> {[«14""»]|[-4-]|[$$Status :_]}
<POP 26ae4-26ae6 StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<MI 26ae6 MOVE.B (A6+0x8),(A7)> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<Call 0x26aea 0x104a2> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
ExpStatus2Text(status.B, &String)
<POP 26af0-26af2 StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
<Call 0x26af2 0x102d0> {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 26af8-26afa StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x26afa 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 26afc-26afd StackAdj> Δ+18 ↓ {}
<Blob 0x26afd [24] @> Δ-24 {[«24""»]}
<Const 0x26b0c 0x2.2> Δ-2 {[«24""»]|[#2]}
<POP 26b10-26b12 StackAdj> Δ-4 {[«24""»]|[#2]|[-4-]}
<Lit 0x26b12 23> {[«24""»]|[#2]|[$$Fatal experiment error.]}
<Call 0x26b20 0x103b8> {[«24""»]|[#2]|[$$Fatal experiment error.]}
PopProgram(status : Byte; msg : String)
<POP 26b26-26b28 StackAdj> Δ+30 {}
<POP 26b28-26b30 Epilogue> Σ0
00020000 ; -------------------------------------------------------------------------------------- 00020000 ; R1000.Disassembly modules: 00020000 ; import all 00020000 ; import kind.program 00020000 ; no ident.1d28a5861e996704 00020000 ; -------------------------------------------------------------------------------------- 00020000 stack.top: 00020000 00 04 00 00 | | .CODE 0x40000 ; STACK.END 00020004 00 02 67 2e | g. | .CODE START 00020008 00 01 02 88 | | .CODE FSCALL_10288 0002000c heap.top: 0002000c 00 02 93 94 | | .PTR 0x29394 00020010 code.end: 00020010 00 02 6b 30 | k0 | .PTR 0x26b30 00020014 00 00 00 00 | | .CONST 0x00000000 00020018 programfailurehandler: 00020018 00 02 69 38 | i8 | .CODE PROG_FAIL 0002001c experimentfailurehandler: 0002001c 00 02 69 f4 | i | .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 4d 54 |@(#)MT | .XXX[0x6] 00020110 2c 36 2e 33 2c 39 32 2f |,6.3,92/| .XXX[0x18] 00020118 30 34 2f 31 34 2c 31 32 |04/14,12| 00020120 3a 32 31 3a 30 30 5c 20 |:21:00\ | 00020128 45 6c 61 70 |Elap | .TXT 'Elap' 0002012c 73 65 64 20 |sed | .TXT 'sed ' 00020130 74 69 6d 65 |time | .TXT 'time' 00020134 20 69 73 5f | is_ | .TXT ' is_' 00020138 20 20 20 20 20 20 20 20 | | .TXT ' Overwrite existing file ' 0002015c 4f 62 73 6f 6c 65 74 65 |Obsolete| .TXT 'Obsolete tape header version. ' 0002017a 4c 6f 61 64 |Load | .TXT 'Load' 0002017e 69 6e 67 20 |ing | .TXT 'ing ' 00020182 20 2d 3e 5f | ->_ | .TXT ' ->_' 00020186 53 6b 69 70 |Skip | .TXT 'Skip' 0002018a 70 69 6e 67 |ping | .TXT 'ping' 0002018e 20 2d 3e 5f | ->_ | .TXT ' ->_' 00020192 63 72 65 61 |crea | .TXT 'crea' 00020196 74 65 64 5f |ted_ | .TXT 'ted_' 0002019a 46 69 6c 65 |File | .TXT 'File' 0002019e 20 6f 70 65 | ope | .TXT ' ope' 000201a2 6e 20 65 72 |n er | .TXT 'n er' 000201a6 72 6f 72 2e |ror. | .TXT 'ror.' 000201aa 55 6e 72 65 63 6f 76 65 |Unrecove| .TXT 'Unrecoverable file error. ' 000201c4 46 69 6c 65 20 63 6c 6f |File clo| .TXT 'File close error. ' 000201d6 43 6f 6d 70 61 72 65 20 |Compare | .TXT 'Compare error, disk data <> tape data.' 000201fc 43 6f 6d 70 61 72 65 20 |Compare | .TXT 'Compare error, disk file size <> tape file size.' 0002022c 4f 62 73 6f 6c 65 74 65 |Obsolete| .TXT 'Obsolete tape header version. ' 0002024a 43 6f 6d 70 61 72 69 6e |Comparin| .TXT 'Comparing ->_ ' 00020258 53 6b 69 70 70 69 6e 67 |Skipping| .TXT 'Skipping ->_ ' 00020266 63 72 65 61 |crea | .TXT 'crea' 0002026a 74 65 64 5f |ted_ | .TXT 'ted_' 0002026e 20 6e 6f 74 | not | .TXT ' not' 00020272 20 6f 6e 20 | on | .TXT ' on ' 00020276 64 69 73 6b |disk | .TXT 'disk' 0002027a 44 69 73 6b 20 66 69 6c |Disk fil| .TXT 'Disk file open error. ' 00020290 55 6e 72 65 63 6f 76 65 |Unrecove| .TXT 'Unrecoverable disk error. ' 000202aa 43 6f 6d 70 61 72 69 6e |Comparin| .TXT 'Comparing ->_ ' 000202b8 20 20 20 20 20 20 20 20 | | .TXT ' _ ' 000202c6 20 20 20 20 20 20 20 20 | | .TXT ' _ ' 000202d4 44 69 73 6b 20 66 69 6c |Disk fil| .TXT 'Disk file close error.' 000202ea 57 72 69 74 69 6e 67 20 |Writing | .TXT 'Writing ->_ ' 000202f6 45 72 72 6f 72 20 74 72 |Error tr| .TXT 'Error trying to get configuration.' 00020318 45 72 72 6f 72 20 77 68 |Error wh| .TXT 'Error when reading tape status. ' 00020338 49 6c 6c 65 67 61 6c 20 |Illegal | .TXT 'Illegal argument on /UNIT=' 00020352 55 4e 49 54 |UNIT | .TXT 'UNIT' 00020356 49 6c 6c 65 67 61 6c 20 |Illegal | .TXT 'Illegal argument on /THRESHOLD= ' 00020376 43 6f 6d 6d 61 6e 64 20 |Command | .TXT 'Command specifies /GCR and /PE! ' 00020396 2f 47 43 52 20 6f 72 20 |/GCR or | .TXT '/GCR or /PE ignored because tape is not at BOT. ' 000203c6 43 6f 6d 6d 61 6e 64 20 |Command | .TXT 'Command specifies /LONG_GAPS and /SHORT_GAPS. ' 000203f4 54 48 52 45 53 48 4f 4c |THRESHOL| .TXT 'THRESHOLD ' 000203fe 56 20 |V | .TXT 'V ' 00020400 55 4e 4c 4f 41 44 20 20 |UNLOAD | .TXT 'UNLOAD ' 00020408 47 43 |GC | .TXT 'GC' 0002040a 52 20 |R | .XXX[0x2] 0002040c 50 45 |PE | .TXT 'PE' 0002040e 53 48 4f 52 54 5f 47 41 |SHORT_GA| .TXT 'SHORT_GAPS' 00020418 4c 4f 4e 47 5f 47 41 50 |LONG_GAP| .TXT 'LONG_GAPS ' 00020422 42 75 66 66 65 72 65 64 |Buffered| .TXT 'Buffered sense data is:_' 0002043a 63 75 72 72 65 6e 74 20 |current | .TXT 'current sense data is:_ ' 00020452 57 72 69 74 69 6e 67 20 |Writing | .TXT 'Writing tape marks and repostioning tape takes about 45 seconds.' 00020492 44 46 |DF | .TXT 'DF' 00020494 20 20 | | .XXX[0x2] 00020496 74 6f 74 61 6c 20 6f 66 |total of| .TXT 'total of_ ' 000204a0 20 66 69 6c 65 73 20 64 | files d| .TXT ' files dumped.' 000204ae 4e 20 |N | .TXT 'N ' 000204b0 49 20 |I | .TXT 'I ' 000204b2 51 20 |Q | .TXT 'Q ' 000204b4 53 41 4c 20 |SAL | .TXT 'SAL ' 000204b8 46 20 |F | .TXT 'F ' 000204ba 44 46 |DF | .TXT 'DF' 000204bc 20 20 | | .XXX[0x2] 000204be 2a 2a |** | .TXT '**' 000204c0 54 6f 74 61 6c 20 6f 66 |Total of| .TXT 'Total of_ ' 000204ca 20 66 69 6c 65 73 20 6f | files o| .TXT ' files on the tape. ' 000204de 54 6f 74 61 6c 20 6f 66 |Total of| .TXT 'Total of_ ' 000204e8 20 66 69 6c 65 73 20 6c | files l| .TXT ' files loaded onto disk.' 00020500 44 46 |DF | .TXT 'DF' 00020502 20 20 | | .XXX[0x2] 00020504 49 20 |I | .TXT 'I ' 00020506 46 20 |F | .TXT 'F ' 00020508 53 4f 45 20 |SOE | .TXT 'SOE ' 0002050c 2a 2a |** | .TXT '**' 0002050e 41 20 74 6f 74 61 6c 20 |A total | .TXT 'A total of_ ' 0002051a 20 66 69 6c 65 28 73 29 | file(s)| .TXT ' file(s) are on the tape. ' 00020534 41 20 74 6f 74 61 6c 20 |A total | .TXT 'A total of_ ' 00020540 20 63 6f 6f 72 65 73 70 | cooresp| .TXT ' cooresponding file(s) were found on the disk,' 0002056e 20 20 6f 66 20 77 68 69 | of whi| .TXT ' of which_ ' 0002057a 20 66 69 6c 65 73 20 77 | files w| .TXT ' files were identical to the tape files.' 000205a2 4c 4f 41 44 20 20 |LOAD | .XXX[0x6] 000205a8 20 20 20 20 44 55 4d 50 | DUMP| .XXX[0x88] 000205b0 20 20 20 20 20 20 52 45 | RE| 000205b8 57 49 4e 44 20 20 20 20 |WIND | 000205c0 43 4f 4d 50 41 52 45 20 |COMPARE | 000205c8 20 20 55 4e 4c 4f 41 44 | UNLOAD| 000205d0 20 20 20 20 4d 54 20 20 | MT | 000205d8 20 20 20 20 20 20 00 00 | | 000205e0 00 00 00 03 00 00 00 00 | | 000205e8 00 00 00 00 00 00 00 00 | | 000205f0 00 00 00 03 00 00 00 00 | | 000205f8 00 00 00 00 00 00 4c 4f | LO| 00020600 41 44 20 20 20 20 20 20 |AD | 00020608 44 55 4d 50 20 20 20 20 |DUMP | 00020610 20 20 52 45 57 49 4e 44 | REWIND| 00020618 20 20 20 20 43 4f 4d 50 | COMP| 00020620 41 52 45 20 20 20 55 4e |ARE UN| 00020628 4c 4f 41 44 20 20 20 20 |LOAD | 00020630 ; -------------------------------------------------------------------------------------- 00020630 ; OMSI PASCAL Function 00020630 ; <LVAR 0x00a 4(r)> 00020630 ; <LVAR 0x008 1(r)> 00020630 ; -------------------------------------------------------------------------------------- 00020630 4e 56 ff d4 |NV | LINK.W A6,#0xffd4 00020634 bf d5 | | CMPA.L (A5),A7 00020636 62 06 |b | BHI 0x2063e 00020638 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002063c 4e 76 |Nv | TRAPV 0002063e de fc 00 2a | * | ADDA.W #0x2a,A7 00020642 48 e7 d8 c0 |H | MOVEM.L A1+A0+D4+D3+D1+D0,-(A7) 00020646 41 ec 00 0e |A | LEA.L (A4+0xe),A0 0002064a 43 f9 00 01 02 c0 |C | LEA.L AppendChar(MOD b : String; a : char),A1 00020650 72 30 |r0 | MOVEQ.L #0x30,D1 00020652 28 2e 00 0a |(. | MOVE.L (A6+0xa),D4 00020656 76 0a |v | MOVEQ.L #0x0a,D3 00020658 4e b9 00 01 02 94 |N | JSR ?divs_d3_d4 0002065e 2f 10 |/ | MOVE.L (A0),-(A7) 00020660 20 04 | | MOVE.L D4,D0 00020662 d0 81 | | ADD.L D1,D0 00020664 0c 80 00 00 00 ff | | CMPI.L #0x000000ff,D0 0002066a 63 02 |c | BLS 0x2066e 0002066c 4e 4f |NO | TRAP #15 0002066e 1f 00 | | MOVE.B D0,-(A7) 00020670 4e 91 |N | JSR (A1) 00020672 54 4f |TO | ADDQ.L #0x2,A7 00020674 2e 90 |. | MOVE.L (A0),(A7) 00020676 d6 41 | A | ADD.W D1,D3 00020678 1f 03 | | MOVE.B D3,-(A7) 0002067a 4e 91 |N | JSR (A1) 0002067c 5c 4f |\O | ADDQ.L #0x6,A7 0002067e 4a 2e 00 08 |J. | TST.B (A6+0x8) 00020682 67 0a |g | BEQ 0x2068e 00020684 2f 10 |/ | MOVE.L (A0),-(A7) 00020686 1f 2e 00 08 | . | MOVE.B (A6+0x8),-(A7) 0002068a 4e 91 |N | JSR (A1) 0002068c 5c 4f |\O | ADDQ.L #0x6,A7 0002068e 4c df 03 1b |L | MOVEM.L (A7)+,D0+D1+D3+D4+A0+A1 00020692 4e 5e |N^ | UNLK A6 00020694 4e 75 |Nu | RTS 00020696 ; -------------------------------------------------------------------------------------- 00020696 ; OMSI PASCAL Function 00020696 ; <LVAR 0x00c 2(r)> 00020696 ; <LVAR 0x008 2(r)> 00020696 ; <LVAR -0x006 4(rw)> 00020696 ; <LVAR -0x00a 4(rw)> 00020696 ; <LVAR -0x014 @> 00020696 ; -------------------------------------------------------------------------------------- 00020696 4e 56 ff a8 |NV | LINK.W A6,#0xffa8 0002069a bf d5 | | CMPA.L (A5),A7 0002069c 62 06 |b | BHI 0x206a4 0002069e 44 fc 00 02 |D | MOVE.W #0x2,CCR 000206a2 4e 76 |Nv | TRAPV 000206a4 de fc 00 44 | D | ADDA.W #0x44,A7 000206a8 48 e7 e7 c8 |H | MOVEM.L A4+A1+A0+D7+D6+D5+D2+D1+D0,-(A7) 000206ac 41 ee ff ec |A | LEA.L (A6-0x14),A0 000206b0 43 fa ff 7e |C ~ | LEA.L 0x20630,A1 000206b4 74 3a |t: | MOVEQ.L #0x3a,D2 000206b6 42 80 |B | CLR.L D0 000206b8 30 2e 00 08 |0. | MOVE.W (A6+0x8),D0 000206bc 42 81 |B | CLR.L D1 000206be 32 2e 00 0c |2. | MOVE.W (A6+0xc),D1 000206c2 44 81 |D | NEG.L D1 000206c4 d2 80 | | ADD.L D0,D1 000206c6 0c 81 00 00 ff ff | | CMPI.L #0x0000ffff,D1 000206cc 63 02 |c | BLS 0x206d0 000206ce 4e 4f |NO | TRAP #15 000206d0 3e 01 |> | MOVE.W D1,D7 000206d2 42 80 |B | CLR.L D0 000206d4 30 07 |0 | MOVE.W D7,D0 000206d6 80 fc 07 08 | | DIVU.W #0x708,D0 000206da 42 81 |B | CLR.L D1 000206dc 32 00 |2 | MOVE.W D0,D1 000206de 2c 01 |, | MOVE.L D1,D6 000206e0 48 40 |H@ | SWAP.W D0 000206e2 3e 00 |> | MOVE.W D0,D7 000206e4 42 80 |B | CLR.L D0 000206e6 30 07 |0 | MOVE.W D7,D0 000206e8 80 fc 00 1e | | DIVU.W #0x1e,D0 000206ec 42 81 |B | CLR.L D1 000206ee 32 00 |2 | MOVE.W D0,D1 000206f0 2a 01 |* | MOVE.L D1,D5 000206f2 48 40 |H@ | SWAP.W D0 000206f4 3e 00 |> | MOVE.W D0,D7 000206f6 42 80 |B | CLR.L D0 000206f8 30 07 |0 | MOVE.W D7,D0 000206fa e3 80 | | ASL.L #0x1,D0 000206fc 2d 40 ff f6 |-@ | MOVE.L D0,(A6-0xa) 00020700 2f 3a fa 32 |/: 2 | MOVE.L 0x20134,-(A7) 00020704 2f 3a fa 2a |/: * | MOVE.L 0x20130,-(A7) 00020708 2f 3a fa 22 |/: " | MOVE.L 0x2012c,-(A7) 0002070c 2f 3a fa 1a |/: | MOVE.L 0x20128,-(A7) 00020710 59 4f |YO | SUBQ.L #0x4,A7 00020712 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020716 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 0002071a 3f 3c 00 10 |?< | MOVE.W #0x10,-(A7) 0002071e 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020724 50 4f |PO | ADDQ.L #0x8,A7 00020726 2d 5f ff fa |-_ | MOVE.L (A7)+,(A6-0x6) 0002072a de fc 00 0c | | ADDA.W #0xc,A7 0002072e 2e 86 |. | MOVE.L D6,(A7) 00020730 1f 02 | | MOVE.B D2,-(A7) 00020732 28 48 |(H | MOVEA.L A0,A4 00020734 4e 91 |N | JSR (A1) 00020736 54 4f |TO | ADDQ.L #0x2,A7 00020738 2e 85 |. | MOVE.L D5,(A7) 0002073a 1f 02 | | MOVE.B D2,-(A7) 0002073c 28 48 |(H | MOVEA.L A0,A4 0002073e 4e 91 |N | JSR (A1) 00020740 54 4f |TO | ADDQ.L #0x2,A7 00020742 2e ae ff f6 |. | MOVE.L (A6-0xa),(A7) 00020746 42 27 |B' | CLR.B -(A7) 00020748 28 48 |(H | MOVEA.L A0,A4 0002074a 4e 91 |N | JSR (A1) 0002074c 54 4f |TO | ADDQ.L #0x2,A7 0002074e 2e ae ff fa |. | MOVE.L (A6-0x6),(A7) 00020752 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00020758 58 4f |XO | ADDQ.L #0x4,A7 0002075a 4c df 13 e7 |L | MOVEM.L (A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A4 0002075e 4e 5e |N^ | UNLK A6 00020760 4e 75 |Nu | RTS 00020762 ; -------------------------------------------------------------------------------------- 00020762 ; OMSI PASCAL Function 00020762 ; <LVAR 0x01a 1(r)> 00020762 ; <LVAR 0x018 1(rw)> 00020762 ; <LVAR 0x016 1(r)> 00020762 ; <LVAR 0x014 1(r)> 00020762 ; <LVAR 0x010 4(r)> 00020762 ; <LVAR 0x00c 4(r)> 00020762 ; <LVAR 0x008 4(r)> 00020762 ; <LVAR -0x004 1(rw)> 00020762 ; <LVAR -0x008 @ 4(rw)> 00020762 ; <LVAR -0x00a 1(rw)> 00020762 ; <LVAR -0x00e 4(rw)> 00020762 ; <LVAR -0x012 4(w)> 00020762 ; <LVAR -0x016 4(w)> 00020762 ; <LVAR -0x01e @ 4(r)> 00020762 ; <LVAR -0x022 @ 4(rw)> 00020762 ; <LVAR -0x03a 2(r)> 00020762 ; <LVAR -0x03b 1(r)> 00020762 ; <LVAR -0x03c 1(r)> 00020762 ; <LVAR -0x03d 1(r)> 00020762 ; <LVAR -0x03e 1(r) 4(r)> 00020762 ; <LVAR -0x03f 1(r)> 00020762 ; <LVAR -0x040 1(r)> 00020762 ; <LVAR -0x044 2(r)> 00020762 ; <LVAR -0x062 @> 00020762 ; <LVAR -0x064 @ 1(r)> 00020762 ; <LVAR -0x065 1(r)> 00020762 ; <LVAR -0x066 @ 1(r)> 00020762 ; <LVAR -0x06c 1(rw)> 00020762 ; -------------------------------------------------------------------------------------- 00020762 4e 56 ff 1e |NV | LINK.W A6,#0xff1e 00020766 bf d5 | | CMPA.L (A5),A7 00020768 62 06 |b | BHI 0x20770 0002076a 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002076e 4e 76 |Nv | TRAPV 00020770 de fc 00 76 | v | ADDA.W #0x76,A7 00020774 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00020778 45 ee ff 9a |E | LEA.L (A6-0x66),A2 0002077c 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 00020782 49 ee ff bc |I | LEA.L (A6-0x44),A4 00020786 72 01 |r | MOVEQ.L #0x01,D1 00020788 74 02 |t | MOVEQ.L #0x02,D2 0002078a 76 1e |v | MOVEQ.L #0x1e,D3 0002078c 78 10 |x | MOVEQ.L #0x10,D4 0002078e 41 f9 00 02 6b 38 |A k8 | LEA.L 0x26b38,A0 00020794 2f 08 |/ | MOVE.L A0,-(A7) 00020796 2d 5f ff ea |-_ | MOVE.L (A7)+,(A6-0x16) 0002079a 41 f9 00 02 6f 38 |A o8 | LEA.L 0x26f38,A0 000207a0 2f 08 |/ | MOVE.L A0,-(A7) 000207a2 2d 5f ff ee |-_ | MOVE.L (A7)+,(A6-0x12) 000207a6 7e 00 |~ | MOVEQ.L #0x00,D7 000207a8 7c 01 || | MOVEQ.L #0x01,D6 000207aa 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 000207ae 2f 08 |/ | MOVE.L A0,-(A7) 000207b0 10 81 | | MOVE.B D1,(A0) 000207b2 42 39 00 02 73 3d |B9 s= | CLR.B 0x2733d 000207b8 43 ee ff 9e |C | LEA.L (A6-0x62),A1 000207bc 2f 09 |/ | MOVE.L A1,-(A7) 000207be 3f 3c 00 40 |?< @ | MOVE.W #0x40,-(A7) 000207c2 4e b9 00 01 04 18 |N | JSR FSCALL_10418 000207c8 5c 4f |\O | ADDQ.L #0x6,A7 000207ca 48 52 |HR | PEA.L (A2) 000207cc 4e b9 00 01 04 08 |N | JSR FSCALL_10408 000207d2 58 4f |XO | ADDQ.L #0x4,A7 000207d4 10 12 | | MOVE.B (A2),D0 000207d6 0c 00 00 06 | | CMPI.B #0x06,D0 000207da 66 1c |f | BNE 0x207f8 000207dc 41 ee ff 9e |A | LEA.L (A6-0x62),A0 000207e0 2f 08 |/ | MOVE.L A0,-(A7) 000207e2 3f 3c 00 40 |?< @ | MOVE.W #0x40,-(A7) 000207e6 4e b9 00 01 04 18 |N | JSR FSCALL_10418 000207ec 5c 4f |\O | ADDQ.L #0x6,A7 000207ee 48 52 |HR | PEA.L (A2) 000207f0 4e b9 00 01 04 08 |N | JSR FSCALL_10408 000207f6 58 4f |XO | ADDQ.L #0x4,A7 000207f8 10 12 | | MOVE.B (A2),D0 000207fa 0c 00 00 06 | | CMPI.B #0x06,D0 000207fe 66 26 |f& | BNE 0x20826 00020800 1f 3c 00 05 | < | MOVE.B #0x05,-(A7) 00020804 48 52 |HR | PEA.L (A2) 00020806 4e b9 00 01 04 14 |N | JSR FSCALL_10414 0002080c 5c 4f |\O | ADDQ.L #0x6,A7 0002080e 4a 12 |J | TST.B (A2) 00020810 67 0c |g | BEQ 0x2081e 00020812 1f 02 | | MOVE.B D2,-(A7) 00020814 48 52 |HR | PEA.L (A2) 00020816 4e b9 00 01 04 28 |N ( | JSR FSCALL_10428 0002081c 5c 4f |\O | ADDQ.L #0x6,A7 0002081e 58 4f |XO | ADDQ.L #0x4,A7 00020820 60 00 05 8c |` | BRA 0x20dae 00020824 60 54 |`T | .XXX[0x2] 00020826 4a 2e ff 9b |J. | TST.B (A6-0x65) 0002082a 67 02 |g | BEQ 0x2082e 0002082c 60 f0 |` | BRA 0x2081e 0002082e 4a 00 |J | TST.B D0 00020830 67 0e |g | BEQ 0x20840 00020832 1f 02 | | MOVE.B D2,-(A7) 00020834 48 52 |HR | PEA.L (A2) 00020836 4e b9 00 01 04 28 |N ( | JSR FSCALL_10428 0002083c 5c 4f |\O | ADDQ.L #0x6,A7 0002083e 60 3a |`: | BRA 0x2087a 00020840 20 57 | W | MOVEA.L (A7),A0 00020842 42 10 |B | CLR.B (A0) 00020844 30 2e ff c6 |0. | MOVE.W (A6-0x3a),D0 00020848 b0 41 | A | CMP.W D1,D0 0002084a 67 2e |g. | BEQ 0x2087a 0002084c 9e c3 | | SUBA.W D3,A7 0002084e 20 4f | O | MOVEA.L A7,A0 00020850 43 fa f9 0a |C | LEA.L 0x2015c,A1 00020854 70 1c |p | MOVEQ.L #0x1c,D0 00020856 10 d9 | | MOVE.B (A1)+,(A0)+ 00020858 51 c8 ff fc |Q | DBF D0,0x20856 0002085c 1f 3c 00 04 | < | MOVE.B #0x04,-(A7) 00020860 59 4f |YO | SUBQ.L #0x4,A7 00020862 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00020866 3f 01 |? | MOVE.W D1,-(A7) 00020868 3f 3c 00 1d |?< | MOVE.W #0x1d,-(A7) 0002086c 4e 93 |N | JSR (A3) 0002086e 50 4f |PO | ADDQ.L #0x8,A7 00020870 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00020876 de fc 00 24 | $ | ADDA.W #0x24,A7 0002087a 58 4f |XO | ADDQ.L #0x4,A7 0002087c 20 4c | L | MOVEA.L A4,A0 0002087e 70 0e |p | MOVEQ.L #0x0e,D0 00020880 3f 20 |? | MOVE.W -(A0),-(A7) 00020882 51 c8 ff fc |Q | DBF D0,0x20880 00020886 59 4f |YO | SUBQ.L #0x4,A7 00020888 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002088c 3f 01 |? | MOVE.W D1,-(A7) 0002088e 3f 03 |? | MOVE.W D3,-(A7) 00020890 4e 93 |N | JSR (A3) 00020892 50 4f |PO | ADDQ.L #0x8,A7 00020894 2d 5f ff f8 |-_ | MOVE.L (A7)+,(A6-0x8) 00020898 de fc 00 18 | | ADDA.W #0x18,A7 0002089c 2e ae ff f8 |. | MOVE.L (A6-0x8),(A7) 000208a0 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 000208a4 2f 10 |/ | MOVE.L (A0),-(A7) 000208a6 4e b9 00 01 04 54 |N T | JSR Glob(input : String; pattern : String): Bool 000208ac 50 4f |PO | ADDQ.L #0x8,A7 000208ae 10 1f | | MOVE.B (A7)+,D0 000208b0 48 80 |H | EXTB.W D0 000208b2 41 81 |A | CHK.W D1,D0 000208b4 1d 40 ff fc | @ | MOVE.B D0,(A6-0x4) 000208b8 48 6e ff f8 |Hn | PEA.L (A6-0x8) 000208bc 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000208c2 58 4f |XO | ADDQ.L #0x4,A7 000208c4 c1 2e 00 18 | . | AND.B D0,(A6+0x18) 000208c8 4a 2e 00 1a |J. | TST.B (A6+0x1a) 000208cc 66 08 |f | BNE 0x208d6 000208ce 4a 2e 00 16 |J. | TST.B (A6+0x16) 000208d2 67 00 00 ec |g | BEQ 0x209c0 000208d6 4a 2e 00 18 |J. | TST.B (A6+0x18) 000208da 67 18 |g | BEQ 0x208f4 000208dc 2f 3a f8 a4 |/: | MOVE.L 0x20182,-(A7) 000208e0 2f 3a f8 9c |/: | MOVE.L 0x2017e,-(A7) 000208e4 2f 3a f8 94 |/: | MOVE.L 0x2017a,-(A7) 000208e8 20 4c | L | MOVEA.L A4,A0 000208ea 70 0e |p | MOVEQ.L #0x0e,D0 000208ec 3f 20 |? | MOVE.W -(A0),-(A7) 000208ee 51 c8 ff fc |Q | DBF D0,0x208ec 000208f2 60 16 |` | BRA 0x2090a 000208f4 2f 3a f8 98 |/: | MOVE.L 0x2018e,-(A7) 000208f8 2f 3a f8 90 |/: | MOVE.L 0x2018a,-(A7) 000208fc 2f 3a f8 88 |/: | MOVE.L 0x20186,-(A7) 00020900 20 4c | L | MOVEA.L A4,A0 00020902 70 0e |p | MOVEQ.L #0x0e,D0 00020904 3f 20 |? | MOVE.W -(A0),-(A7) 00020906 51 c8 ff fc |Q | DBF D0,0x20904 0002090a 51 4f |QO | SUBQ.L #0x8,A7 0002090c 48 6f 00 26 |Ho & | PEA.L (A7+0x26) 00020910 3f 01 |? | MOVE.W D1,-(A7) 00020912 3f 3c 00 0c |?< | MOVE.W #0xc,-(A7) 00020916 4e 93 |N | JSR (A3) 00020918 58 4f |XO | ADDQ.L #0x4,A7 0002091a 48 6f 00 0c |Ho | PEA.L (A7+0xc) 0002091e 3f 01 |? | MOVE.W D1,-(A7) 00020920 3f 03 |? | MOVE.W D3,-(A7) 00020922 4e 93 |N | JSR (A3) 00020924 50 4f |PO | ADDQ.L #0x8,A7 00020926 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 0002092c 50 4f |PO | ADDQ.L #0x8,A7 0002092e 2d 5f ff f8 |-_ | MOVE.L (A7)+,(A6-0x8) 00020932 de fc 00 2a | * | ADDA.W #0x2a,A7 00020936 20 6e ff f8 | n | MOVEA.L (A6-0x8),A0 0002093a 30 10 |0 | MOVE.W (A0),D0 0002093c 48 c0 |H | EXTW.L D0 0002093e 52 80 |R | ADDQ.L #0x1,D0 00020940 2a 00 |* | MOVE.L D0,D5 00020942 0c 85 00 00 00 35 | 5 | CMPI.L #0x00000035,D5 00020948 6e 14 |n | BGT 0x2095e 0002094a 2f 2e ff f8 |/. | MOVE.L (A6-0x8),-(A7) 0002094e 1f 3c 00 20 | < | MOVE.B #0x20,-(A7) 00020952 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00020958 5c 4f |\O | ADDQ.L #0x6,A7 0002095a 52 85 |R | ADDQ.L #0x1,D5 0002095c 68 e4 |h | BVC 0x20942 0002095e 2f 3a f8 36 |/: 6 | MOVE.L 0x20196,-(A7) 00020962 2f 3a f8 2e |/: . | MOVE.L 0x20192,-(A7) 00020966 59 4f |YO | SUBQ.L #0x4,A7 00020968 2f 2e ff f8 |/. | MOVE.L (A6-0x8),-(A7) 0002096c 59 4f |YO | SUBQ.L #0x4,A7 0002096e 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00020972 3f 01 |? | MOVE.W D1,-(A7) 00020974 3f 3c 00 08 |?< | MOVE.W #0x8,-(A7) 00020978 4e 93 |N | JSR (A3) 0002097a 2e ae ff c2 |. | MOVE.L (A6-0x3e),(A7) 0002097e 4e b9 00 01 03 08 |N | JSR TimeToText() 00020984 58 4f |XO | ADDQ.L #0x4,A7 00020986 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 0002098c de fc 00 0c | | ADDA.W #0xc,A7 00020990 2d 5f ff f8 |-_ | MOVE.L (A7)+,(A6-0x8) 00020994 50 4f |PO | ADDQ.L #0x8,A7 00020996 4a 2e 00 1a |J. | TST.B (A6+0x1a) 0002099a 66 0c |f | BNE 0x209a8 0002099c 4a 2e 00 16 |J. | TST.B (A6+0x16) 000209a0 67 12 |g | BEQ 0x209b4 000209a2 4a 2e ff fc |J. | TST.B (A6-0x4) 000209a6 67 0c |g | BEQ 0x209b4 000209a8 2f 2e ff f8 |/. | MOVE.L (A6-0x8),-(A7) 000209ac 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000209b2 60 0a |` | BRA 0x209be 000209b4 48 6e ff f8 |Hn | PEA.L (A6-0x8) 000209b8 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000209be 58 4f |XO | ADDQ.L #0x4,A7 000209c0 4a 2e 00 18 |J. | TST.B (A6+0x18) 000209c4 67 00 00 de |g | BEQ 0x20aa4 000209c8 4a 2e 00 14 |J. | TST.B (A6+0x14) 000209cc 67 00 00 d6 |g | BEQ 0x20aa4 000209d0 20 4c | L | MOVEA.L A4,A0 000209d2 70 0e |p | MOVEQ.L #0x0e,D0 000209d4 3f 20 |? | MOVE.W -(A0),-(A7) 000209d6 51 c8 ff fc |Q | DBF D0,0x209d4 000209da 59 4f |YO | SUBQ.L #0x4,A7 000209dc 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000209e0 3f 01 |? | MOVE.W D1,-(A7) 000209e2 3f 03 |? | MOVE.W D3,-(A7) 000209e4 4e 93 |N | JSR (A3) 000209e6 50 4f |PO | ADDQ.L #0x8,A7 000209e8 2d 5f ff de |-_ | MOVE.L (A7)+,(A6-0x22) 000209ec de fc 00 1a | | ADDA.W #0x1a,A7 000209f0 2e ae ff de |. | MOVE.L (A6-0x22),(A7) 000209f4 42 27 |B' | CLR.B -(A7) 000209f6 42 27 |B' | CLR.B -(A7) 000209f8 48 78 00 01 |Hx | PEA.L 0x1 000209fc 48 6e ff 9c |Hn | PEA.L (A6-0x64) 00020a00 48 6e ff e2 |Hn | PEA.L (A6-0x1e) 00020a04 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File) 00020a0a de fc 00 14 | | ADDA.W #0x14,A7 00020a0e 48 6e ff de |Hn | PEA.L (A6-0x22) 00020a12 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00020a18 58 4f |XO | ADDQ.L #0x4,A7 00020a1a 4a 2e ff 9c |J. | TST.B (A6-0x64) 00020a1e 66 6c |fl | BNE 0x20a8c 00020a20 9e fc 00 24 | $ | SUBA.W #0x24,A7 00020a24 20 4f | O | MOVEA.L A7,A0 00020a26 43 fa f7 10 |C | LEA.L 0x20138,A1 00020a2a 70 22 |p" | MOVEQ.L #0x22,D0 00020a2c 10 d9 | | MOVE.B (A1)+,(A0)+ 00020a2e 51 c8 ff fc |Q | DBF D0,0x20a2c 00020a32 5d 4f |]O | SUBQ.L #0x6,A7 00020a34 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00020a38 3f 01 |? | MOVE.W D1,-(A7) 00020a3a 3f 3c 00 23 |?< # | MOVE.W #0x23,-(A7) 00020a3e 4e 93 |N | JSR (A3) 00020a40 5c 4f |\O | ADDQ.L #0x6,A7 00020a42 1e 81 | | MOVE.B D1,(A7) 00020a44 4e b9 00 01 03 f0 |N | JSR AskOnConsoleYesNo(prompt : String; default : Bool) : Bool 00020a4a 5c 4f |\O | ADDQ.L #0x6,A7 00020a4c 4a 1f |J | TST.B (A7)+ 00020a4e 67 1a |g | BEQ 0x20a6a 00020a50 1f 02 | | MOVE.B D2,-(A7) 00020a52 1f 01 | | MOVE.B D1,-(A7) 00020a54 48 78 00 01 |Hx | PEA.L 0x1 00020a58 48 6e ff 9c |Hn | PEA.L (A6-0x64) 00020a5c 48 6e ff e2 |Hn | PEA.L (A6-0x1e) 00020a60 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File) 00020a66 de c4 | | ADDA.W D4,A7 00020a68 60 1c |` | BRA 0x20a86 00020a6a 42 27 |B' | CLR.B -(A7) 00020a6c 1f 01 | | MOVE.B D1,-(A7) 00020a6e 48 78 00 01 |Hx | PEA.L 0x1 00020a72 48 6e ff 9c |Hn | PEA.L (A6-0x64) 00020a76 48 6e ff e2 |Hn | PEA.L (A6-0x1e) 00020a7a 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File) 00020a80 de c4 | | ADDA.W D4,A7 00020a82 42 2e 00 18 |B. | CLR.B (A6+0x18) 00020a86 de fc 00 24 | $ | ADDA.W #0x24,A7 00020a8a 60 18 |` | BRA 0x20aa4 00020a8c 42 27 |B' | CLR.B -(A7) 00020a8e 42 27 |B' | CLR.B -(A7) 00020a90 48 78 00 01 |Hx | PEA.L 0x1 00020a94 48 6e ff 9c |Hn | PEA.L (A6-0x64) 00020a98 48 6e ff e2 |Hn | PEA.L (A6-0x1e) 00020a9c 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File) 00020aa2 de c4 | | ADDA.W D4,A7 00020aa4 4a 2e 00 18 |J. | TST.B (A6+0x18) 00020aa8 67 12 |g | BEQ 0x20abc 00020aaa 30 14 |0 | MOVE.W (A4),D0 00020aac 48 c0 |H | EXTW.L D0 00020aae b0 ae 00 10 | | CMP.L (A6+0x10),D0 00020ab2 6c 08 |l | BGE 0x20abc 00020ab4 1d 7c 00 07 ff f6 | | | MOVE.B #0x07,(A6-0xa) 00020aba 60 06 |` | BRA 0x20ac2 00020abc 1d 7c 00 06 ff f6 | | | MOVE.B #0x06,(A6-0xa) 00020ac2 10 2e ff f6 | . | MOVE.B (A6-0xa),D0 00020ac6 48 80 |H | EXTB.W D0 00020ac8 41 bc 00 0b |A | CHK.W #0xb,D0 00020acc 1f 00 | | MOVE.B D0,-(A7) 00020ace 48 52 |HR | PEA.L (A2) 00020ad0 4e b9 00 01 04 14 |N | JSR FSCALL_10414 00020ad6 5c 4f |\O | ADDQ.L #0x6,A7 00020ad8 4a 12 |J | TST.B (A2) 00020ada 67 0c |g | BEQ 0x20ae8 00020adc 1f 02 | | MOVE.B D2,-(A7) 00020ade 48 52 |HR | PEA.L (A2) 00020ae0 4e b9 00 01 04 28 |N ( | JSR FSCALL_10428 00020ae6 5c 4f |\O | ADDQ.L #0x6,A7 00020ae8 4a 2e 00 18 |J. | TST.B (A6+0x18) 00020aec 67 00 00 ec |g | BEQ 0x20bda 00020af0 52 b9 00 02 73 38 |R s8 | ADDQ.L #0x1,0x27338 00020af6 4f 81 |O | CHK.W D1,D7 00020af8 42 80 |B | CLR.L D0 00020afa 30 07 |0 | MOVE.W D7,D0 00020afc e5 80 | | ASL.L #0x2,D0 00020afe 2f 36 08 ea |/6 | MOVE.L (A6+D0.L-#0x16),-(A7) 00020b02 3f 3c 04 00 |?< | MOVE.W #0x400,-(A7) 00020b06 4e b9 00 01 04 18 |N | JSR FSCALL_10418 00020b0c 5c 4f |\O | ADDQ.L #0x6,A7 00020b0e 20 4c | L | MOVEA.L A4,A0 00020b10 70 0e |p | MOVEQ.L #0x0e,D0 00020b12 3f 20 |? | MOVE.W -(A0),-(A7) 00020b14 51 c8 ff fc |Q | DBF D0,0x20b12 00020b18 59 4f |YO | SUBQ.L #0x4,A7 00020b1a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020b1e 3f 01 |? | MOVE.W D1,-(A7) 00020b20 3f 03 |? | MOVE.W D3,-(A7) 00020b22 4e 93 |N | JSR (A3) 00020b24 50 4f |PO | ADDQ.L #0x8,A7 00020b26 2d 5f ff de |-_ | MOVE.L (A7)+,(A6-0x22) 00020b2a de c3 | | ADDA.W D3,A7 00020b2c 4a 2e ff c1 |J. | TST.B (A6-0x3f) 00020b30 67 06 |g | BEQ 0x20b38 00020b32 30 14 |0 | MOVE.W (A4),D0 00020b34 44 40 |D@ | NEG.W D0 00020b36 60 02 |` | BRA 0x20b3a 00020b38 30 14 |0 | MOVE.W (A4),D0 00020b3a 48 c0 |H | EXTW.L D0 00020b3c 2d 40 ff f2 |-@ | MOVE.L D0,(A6-0xe) 00020b40 2f 2e ff de |/. | MOVE.L (A6-0x22),-(A7) 00020b44 1f 01 | | MOVE.B D1,-(A7) 00020b46 1f 01 | | MOVE.B D1,-(A7) 00020b48 2f 2e ff f2 |/. | MOVE.L (A6-0xe),-(A7) 00020b4c 48 6e ff 9c |Hn | PEA.L (A6-0x64) 00020b50 48 6e ff e2 |Hn | PEA.L (A6-0x1e) 00020b54 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File) 00020b5a de fc 00 14 | | ADDA.W #0x14,A7 00020b5e 4a 2e ff 9c |J. | TST.B (A6-0x64) 00020b62 67 34 |g4 | BEQ 0x20b98 00020b64 48 52 |HR | PEA.L (A2) 00020b66 4e b9 00 01 04 08 |N | JSR FSCALL_10408 00020b6c 2e ba f6 38 |. 8 | MOVE.L 0x201a6,(A7) 00020b70 2f 3a f6 30 |/: 0 | MOVE.L 0x201a2,-(A7) 00020b74 2f 3a f6 28 |/: ( | MOVE.L 0x2019e,-(A7) 00020b78 2f 3a f6 20 |/: | MOVE.L 0x2019a,-(A7) 00020b7c 1f 3c 00 0e | < | MOVE.B #0x0e,-(A7) 00020b80 59 4f |YO | SUBQ.L #0x4,A7 00020b82 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00020b86 3f 01 |? | MOVE.W D1,-(A7) 00020b88 3f 04 |? | MOVE.W D4,-(A7) 00020b8a 4e 93 |N | JSR (A3) 00020b8c 50 4f |PO | ADDQ.L #0x8,A7 00020b8e 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00020b94 de fc 00 16 | | ADDA.W #0x16,A7 00020b98 20 6e ff e2 | n | MOVEA.L (A6-0x1e),A0 00020b9c 10 2e ff c1 | . | MOVE.B (A6-0x3f),D0 00020ba0 02 28 00 fd 00 3f | ( ? | ANDI.B #0xfd,(A0+0x3f) 00020ba6 e3 08 | | LSL.B #0x1,D0 00020ba8 81 28 00 3f | ( ? | OR.B D0,(A0+0x3f) 00020bac 10 2e ff c0 | . | MOVE.B (A6-0x40),D0 00020bb0 02 28 00 fb 00 3f | ( ? | ANDI.B #0xfb,(A0+0x3f) 00020bb6 e5 08 | | LSL.B #0x2,D0 00020bb8 81 28 00 3f | ( ? | OR.B D0,(A0+0x3f) 00020bbc 11 6e ff c2 00 3a | n : | MOVE.B (A6-0x3e),(A0+0x3a) 00020bc2 11 6e ff c3 00 3b | n ; | MOVE.B (A6-0x3d),(A0+0x3b) 00020bc8 11 6e ff c4 00 3c | n < | MOVE.B (A6-0x3c),(A0+0x3c) 00020bce 11 6e ff c5 00 3d | n = | MOVE.B (A6-0x3b),(A0+0x3d) 00020bd4 11 41 00 4c | A L | MOVE.B D1,(A0+0x4c) 00020bd8 60 0c |` | BRA 0x20be6 00020bda 1f 02 | | MOVE.B D2,-(A7) 00020bdc 48 52 |HR | PEA.L (A2) 00020bde 4e b9 00 01 04 14 |N | JSR FSCALL_10414 00020be4 5c 4f |\O | ADDQ.L #0x6,A7 00020be6 30 14 |0 | MOVE.W (A4),D0 00020be8 53 40 |S@ | SUBQ.W #0x1,D0 00020bea 48 c0 |H | EXTW.L D0 00020bec 2f 00 |/ | MOVE.L D0,-(A7) 00020bee 7a 00 |z | MOVEQ.L #0x00,D5 00020bf0 ba 97 | | CMP.L (A7),D5 00020bf2 6e 00 01 34 |n 4 | BGT 0x20d28 00020bf6 42 2e ff 94 |B. | CLR.B (A6-0x6c) 00020bfa 30 14 |0 | MOVE.W (A4),D0 00020bfc 53 40 |S@ | SUBQ.W #0x1,D0 00020bfe 48 c0 |H | EXTW.L D0 00020c00 ba 80 | | CMP.L D0,D5 00020c02 66 04 |f | BNE 0x20c08 00020c04 52 2e ff 94 |R. | ADDQ.B #0x1,(A6-0x6c) 00020c08 4a 2e 00 18 |J. | TST.B (A6+0x18) 00020c0c 67 0a |g | BEQ 0x20c18 00020c0e 48 52 |HR | PEA.L (A2) 00020c10 4e b9 00 01 04 08 |N | JSR FSCALL_10408 00020c16 58 4f |XO | ADDQ.L #0x4,A7 00020c18 10 12 | | MOVE.B (A2),D0 00020c1a 0c 00 00 06 | | CMPI.B #0x06,D0 00020c1e 66 3a |f: | BNE 0x20c5a 00020c20 4e b9 00 01 04 2c |N , | JSR FSCALL_1042c 00020c26 4a 2e 00 18 |J. | TST.B (A6+0x18) 00020c2a 66 0c |f | BNE 0x20c38 00020c2c 1f 02 | | MOVE.B D2,-(A7) 00020c2e 48 52 |HR | PEA.L (A2) 00020c30 4e b9 00 01 04 14 |N | JSR FSCALL_10414 00020c36 60 1c |` | BRA 0x20c54 00020c38 4a 2e ff 94 |J. | TST.B (A6-0x6c) 00020c3c 66 18 |f | BNE 0x20c56 00020c3e 4f 81 |O | CHK.W D1,D7 00020c40 42 80 |B | CLR.L D0 00020c42 30 07 |0 | MOVE.W D7,D0 00020c44 e5 80 | | ASL.L #0x2,D0 00020c46 2f 36 08 ea |/6 | MOVE.L (A6+D0.L-#0x16),-(A7) 00020c4a 3f 3c 04 00 |?< | MOVE.W #0x400,-(A7) 00020c4e 4e b9 00 01 04 18 |N | JSR FSCALL_10418 00020c54 5c 4f |\O | ADDQ.L #0x6,A7 00020c56 60 9e |` | BRA 0x20bf6 00020c58 60 10 |` | .XXX[0x2] 00020c5a 4a 00 |J | TST.B D0 00020c5c 67 0c |g | BEQ 0x20c6a 00020c5e 1f 02 | | MOVE.B D2,-(A7) 00020c60 48 52 |HR | PEA.L (A2) 00020c62 4e b9 00 01 04 28 |N ( | JSR FSCALL_10428 00020c68 5c 4f |\O | ADDQ.L #0x6,A7 00020c6a 4a 47 |JG | TST.W D7 00020c6c 66 06 |f | BNE 0x20c74 00020c6e 7e 01 |~ | MOVEQ.L #0x01,D7 00020c70 7c 00 || | MOVEQ.L #0x00,D6 00020c72 60 04 |` | BRA 0x20c78 00020c74 7e 00 |~ | MOVEQ.L #0x00,D7 00020c76 7c 01 || | MOVEQ.L #0x01,D6 00020c78 4a 2e 00 18 |J. | TST.B (A6+0x18) 00020c7c 67 00 00 92 |g | BEQ 0x20d10 00020c80 4a 2e ff 94 |J. | TST.B (A6-0x6c) 00020c84 66 18 |f | BNE 0x20c9e 00020c86 4f 81 |O | CHK.W D1,D7 00020c88 42 80 |B | CLR.L D0 00020c8a 30 07 |0 | MOVE.W D7,D0 00020c8c e5 80 | | ASL.L #0x2,D0 00020c8e 2f 36 08 ea |/6 | MOVE.L (A6+D0.L-#0x16),-(A7) 00020c92 3f 3c 04 00 |?< | MOVE.W #0x400,-(A7) 00020c96 4e b9 00 01 04 18 |N | JSR FSCALL_10418 00020c9c 5c 4f |\O | ADDQ.L #0x6,A7 00020c9e 2f 2e ff e2 |/. | MOVE.L (A6-0x1e),-(A7) 00020ca2 0c 85 00 00 40 00 | @ | CMPI.L #0x00004000,D5 00020ca8 63 02 |c | BLS 0x20cac 00020caa 4e 4f |NO | TRAP #15 00020cac 3f 05 |? | MOVE.W D5,-(A7) 00020cae 42 67 |Bg | CLR.W -(A7) 00020cb0 3f 3c 02 00 |?< | MOVE.W #0x200,-(A7) 00020cb4 1f 01 | | MOVE.B D1,-(A7) 00020cb6 4d 81 |M | CHK.W D1,D6 00020cb8 42 80 |B | CLR.L D0 00020cba 30 06 |0 | MOVE.W D6,D0 00020cbc e5 80 | | ASL.L #0x2,D0 00020cbe 2f 36 08 ea |/6 | MOVE.L (A6+D0.L-#0x16),-(A7) 00020cc2 48 6e ff 9c |Hn | PEA.L (A6-0x64) 00020cc6 4e b9 00 01 03 88 |N | JSR WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L) 00020ccc de fc 00 14 | | ADDA.W #0x14,A7 00020cd0 4a 2e ff 9c |J. | TST.B (A6-0x64) 00020cd4 67 38 |g8 | BEQ 0x20d0e 00020cd6 48 52 |HR | PEA.L (A2) 00020cd8 4e b9 00 01 04 08 |N | JSR FSCALL_10408 00020cde 9e fc 00 16 | | SUBA.W #0x16,A7 00020ce2 20 4f | O | MOVEA.L A7,A0 00020ce4 43 fa f4 c4 |C | LEA.L 0x201aa,A1 00020ce8 70 18 |p | MOVEQ.L #0x18,D0 00020cea 10 d9 | | MOVE.B (A1)+,(A0)+ 00020cec 51 c8 ff fc |Q | DBF D0,0x20cea 00020cf0 1f 3c 00 0e | < | MOVE.B #0x0e,-(A7) 00020cf4 59 4f |YO | SUBQ.L #0x4,A7 00020cf6 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00020cfa 3f 01 |? | MOVE.W D1,-(A7) 00020cfc 3f 3c 00 19 |?< | MOVE.W #0x19,-(A7) 00020d00 4e 93 |N | JSR (A3) 00020d02 50 4f |PO | ADDQ.L #0x8,A7 00020d04 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00020d0a de fc 00 20 | | ADDA.W #0x20,A7 00020d0e 60 12 |` | BRA 0x20d22 00020d10 4a 2e ff 94 |J. | TST.B (A6-0x6c) 00020d14 66 0c |f | BNE 0x20d22 00020d16 1f 02 | | MOVE.B D2,-(A7) 00020d18 48 52 |HR | PEA.L (A2) 00020d1a 4e b9 00 01 04 14 |N | JSR FSCALL_10414 00020d20 5c 4f |\O | ADDQ.L #0x6,A7 00020d22 52 85 |R | ADDQ.L #0x1,D5 00020d24 68 00 fe ca |h | BVC 0x20bf0 00020d28 58 4f |XO | ADDQ.L #0x4,A7 00020d2a 4a 2e 00 18 |J. | TST.B (A6+0x18) 00020d2e 67 60 |g` | BEQ 0x20d90 00020d30 48 6e ff de |Hn | PEA.L (A6-0x22) 00020d34 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00020d3a 54 4f |TO | ADDQ.L #0x2,A7 00020d3c 42 17 |B | CLR.B (A7) 00020d3e 1f 01 | | MOVE.B D1,-(A7) 00020d40 48 78 00 01 |Hx | PEA.L 0x1 00020d44 48 6e ff 9c |Hn | PEA.L (A6-0x64) 00020d48 48 6e ff e2 |Hn | PEA.L (A6-0x1e) 00020d4c 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File) 00020d52 de c4 | | ADDA.W D4,A7 00020d54 4a 2e ff 9c |J. | TST.B (A6-0x64) 00020d58 67 30 |g0 | BEQ 0x20d8a 00020d5a 9e fc 00 12 | | SUBA.W #0x12,A7 00020d5e 20 4f | O | MOVEA.L A7,A0 00020d60 43 fa f4 62 |C b | LEA.L 0x201c4,A1 00020d64 70 10 |p | MOVEQ.L #0x10,D0 00020d66 10 d9 | | MOVE.B (A1)+,(A0)+ 00020d68 51 c8 ff fc |Q | DBF D0,0x20d66 00020d6c 1f 3c 00 0e | < | MOVE.B #0x0e,-(A7) 00020d70 59 4f |YO | SUBQ.L #0x4,A7 00020d72 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00020d76 3f 01 |? | MOVE.W D1,-(A7) 00020d78 3f 3c 00 11 |?< | MOVE.W #0x11,-(A7) 00020d7c 4e 93 |N | JSR (A3) 00020d7e 50 4f |PO | ADDQ.L #0x8,A7 00020d80 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00020d86 de fc 00 18 | | ADDA.W #0x18,A7 00020d8a 13 c1 00 02 73 3d | s= | MOVE.B D1,0x2733d 00020d90 1f 3c 00 07 | < | MOVE.B #0x07,-(A7) 00020d94 48 52 |HR | PEA.L (A2) 00020d96 4e b9 00 01 04 14 |N | JSR FSCALL_10414 00020d9c 5c 4f |\O | ADDQ.L #0x6,A7 00020d9e 4a 12 |J | TST.B (A2) 00020da0 67 0c |g | BEQ 0x20dae 00020da2 1f 02 | | MOVE.B D2,-(A7) 00020da4 48 52 |HR | PEA.L (A2) 00020da6 4e b9 00 01 04 28 |N ( | JSR FSCALL_10428 00020dac 5c 4f |\O | ADDQ.L #0x6,A7 00020dae 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00020db2 4e 5e |N^ | UNLK A6 00020db4 4e 75 |Nu | RTS 00020db6 ; -------------------------------------------------------------------------------------- 00020db6 ; OMSI PASCAL Function 00020db6 ; <LVAR 0x020 1(r)> 00020db6 ; <LVAR 0x01e 1(r)> 00020db6 ; <LVAR 0x01a 4(r)> 00020db6 ; <LVAR 0x018 1(r)> 00020db6 ; <LVAR 0x014 4(r)> 00020db6 ; <LVAR 0x010 4(r)> 00020db6 ; <LVAR 0x00c 4(r)> 00020db6 ; <LVAR 0x008 4(r)> 00020db6 ; <LVAR -0x006 4(rw)> 00020db6 ; <LVAR -0x007 1(r)> 00020db6 ; <LVAR -0x008 @ 1(r)> 00020db6 ; <LVAR -0x00b 1(rw)> 00020db6 ; <LVAR -0x00c 1(rw)> 00020db6 ; <LVAR -0x02c 2(r)> 00020db6 ; <LVAR -0x02d 1(r)> 00020db6 ; <LVAR -0x02e 1(r)> 00020db6 ; <LVAR -0x02f 1(r)> 00020db6 ; <LVAR -0x030 1(r) 4(r)> 00020db6 ; <LVAR -0x036 2(r)> 00020db6 ; <LVAR -0x054 @> 00020db6 ; <LVAR -0x058 @ 4(rw)> 00020db6 ; <LVAR -0x05c 4(rw)> 00020db6 ; <LVAR -0x45c @> 00020db6 ; <LVAR -0x45e @ 1(r)> 00020db6 ; <LVAR -0x466 @ 4(r)> 00020db6 ; <LVAR -0x46a 4(w)> 00020db6 ; <LVAR -0x46e 4(w)> 00020db6 ; <LVAR -0x472 @ 4(rw)> 00020db6 ; -------------------------------------------------------------------------------------- 00020db6 4e 56 fb 04 |NV | LINK.W A6,#0xfb04 00020dba bf d5 | | CMPA.L (A5),A7 00020dbc 62 06 |b | BHI 0x20dc4 00020dbe 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020dc2 4e 76 |Nv | TRAPV 00020dc4 de fc 00 8a | | ADDA.W #0x8a,A7 00020dc8 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00020dcc 45 ee ff f8 |E | LEA.L (A6-0x8),A2 00020dd0 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 00020dd6 49 ee fb 8e |I | LEA.L (A6-0x472),A4 00020dda 76 01 |v | MOVEQ.L #0x01,D3 00020ddc 78 0e |x | MOVEQ.L #0x0e,D4 00020dde 41 f9 00 02 6b 38 |A k8 | LEA.L 0x26b38,A0 00020de4 2f 08 |/ | MOVE.L A0,-(A7) 00020de6 2d 5f fb 92 |-_ | MOVE.L (A7)+,(A6-0x46e) 00020dea 41 f9 00 02 6f 38 |A o8 | LEA.L 0x26f38,A0 00020df0 2f 08 |/ | MOVE.L A0,-(A7) 00020df2 2d 5f fb 96 |-_ | MOVE.L (A7)+,(A6-0x46a) 00020df6 7a 00 |z | MOVEQ.L #0x00,D5 00020df8 7c 01 || | MOVEQ.L #0x01,D6 00020dfa 20 6e 00 10 | n | MOVEA.L (A6+0x10),A0 00020dfe 2f 08 |/ | MOVE.L A0,-(A7) 00020e00 10 83 | | MOVE.B D3,(A0) 00020e02 7e 00 |~ | MOVEQ.L #0x00,D7 00020e04 43 ee ff ac |C | LEA.L (A6-0x54),A1 00020e08 2f 09 |/ | MOVE.L A1,-(A7) 00020e0a 3f 3c 00 40 |?< @ | MOVE.W #0x40,-(A7) 00020e0e 4e b9 00 01 04 18 |N | JSR FSCALL_10418 00020e14 5c 4f |\O | ADDQ.L #0x6,A7 00020e16 48 52 |HR | PEA.L (A2) 00020e18 4e b9 00 01 04 08 |N | JSR FSCALL_10408 00020e1e 58 4f |XO | ADDQ.L #0x4,A7 00020e20 10 12 | | MOVE.B (A2),D0 00020e22 0c 00 00 06 | | CMPI.B #0x06,D0 00020e26 66 1c |f | BNE 0x20e44 00020e28 41 ee ff ac |A | LEA.L (A6-0x54),A0 00020e2c 2f 08 |/ | MOVE.L A0,-(A7) 00020e2e 3f 3c 00 40 |?< @ | MOVE.W #0x40,-(A7) 00020e32 4e b9 00 01 04 18 |N | JSR FSCALL_10418 00020e38 5c 4f |\O | ADDQ.L #0x6,A7 00020e3a 48 52 |HR | PEA.L (A2) 00020e3c 4e b9 00 01 04 08 |N | JSR FSCALL_10408 00020e42 58 4f |XO | ADDQ.L #0x4,A7 00020e44 10 12 | | MOVE.B (A2),D0 00020e46 0c 00 00 06 | | CMPI.B #0x06,D0 00020e4a 67 0e |g | BEQ 0x20e5a 00020e4c 4a 2e ff f9 |J. | TST.B (A6-0x7) 00020e50 67 10 |g | BEQ 0x20e62 00020e52 4a 39 00 02 73 3c |J9 s< | TST.B 0x2733c 00020e58 67 08 |g | BEQ 0x20e62 00020e5a 58 4f |XO | ADDQ.L #0x4,A7 00020e5c 60 00 06 cc |` | BRA 0x2152a 00020e60 60 50 |`P | .XXX[0x2] 00020e62 4a 00 |J | TST.B D0 00020e64 67 10 |g | BEQ 0x20e76 00020e66 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 00020e6a 48 52 |HR | PEA.L (A2) 00020e6c 4e b9 00 01 04 28 |N ( | JSR FSCALL_10428 00020e72 5c 4f |\O | ADDQ.L #0x6,A7 00020e74 60 3c |`< | BRA 0x20eb2 00020e76 20 57 | W | MOVEA.L (A7),A0 00020e78 42 10 |B | CLR.B (A0) 00020e7a 30 2e ff d4 |0. | MOVE.W (A6-0x2c),D0 00020e7e b0 43 | C | CMP.W D3,D0 00020e80 67 30 |g0 | BEQ 0x20eb2 00020e82 9e fc 00 1e | | SUBA.W #0x1e,A7 00020e86 20 4f | O | MOVEA.L A7,A0 00020e88 43 fa f3 a2 |C | LEA.L 0x2022c,A1 00020e8c 70 1c |p | MOVEQ.L #0x1c,D0 00020e8e 10 d9 | | MOVE.B (A1)+,(A0)+ 00020e90 51 c8 ff fc |Q | DBF D0,0x20e8e 00020e94 1f 3c 00 04 | < | MOVE.B #0x04,-(A7) 00020e98 59 4f |YO | SUBQ.L #0x4,A7 00020e9a 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00020e9e 3f 03 |? | MOVE.W D3,-(A7) 00020ea0 3f 3c 00 1d |?< | MOVE.W #0x1d,-(A7) 00020ea4 4e 93 |N | JSR (A3) 00020ea6 50 4f |PO | ADDQ.L #0x8,A7 00020ea8 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00020eae de fc 00 24 | $ | ADDA.W #0x24,A7 00020eb2 58 4f |XO | ADDQ.L #0x4,A7 00020eb4 41 ee ff ca |A | LEA.L (A6-0x36),A0 00020eb8 70 0e |p | MOVEQ.L #0x0e,D0 00020eba 3f 20 |? | MOVE.W -(A0),-(A7) 00020ebc 51 c8 ff fc |Q | DBF D0,0x20eba 00020ec0 59 4f |YO | SUBQ.L #0x4,A7 00020ec2 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020ec6 3f 03 |? | MOVE.W D3,-(A7) 00020ec8 3f 3c 00 1e |?< | MOVE.W #0x1e,-(A7) 00020ecc 4e 93 |N | JSR (A3) 00020ece 50 4f |PO | ADDQ.L #0x8,A7 00020ed0 28 9f |( | MOVE.L (A7)+,(A4) 00020ed2 de fc 00 1e | | ADDA.W #0x1e,A7 00020ed6 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 00020eda 55 4f |UO | SUBQ.L #0x2,A7 00020edc 2f 14 |/ | MOVE.L (A4),-(A7) 00020ede 22 6e 00 14 |"n | MOVEA.L (A6+0x14),A1 00020ee2 2f 11 |/ | MOVE.L (A1),-(A7) 00020ee4 4e b9 00 01 04 54 |N T | JSR Glob(input : String; pattern : String): Bool 00020eea 50 4f |PO | ADDQ.L #0x8,A7 00020eec 10 1f | | MOVE.B (A7)+,D0 00020eee 48 80 |H | EXTB.W D0 00020ef0 41 83 |A | CHK.W D3,D0 00020ef2 10 80 | | MOVE.B D0,(A0) 00020ef4 48 54 |HT | PEA.L (A4) 00020ef6 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00020efc 58 4f |XO | ADDQ.L #0x4,A7 00020efe 4a 2e 00 20 |J. | TST.B (A6+0x20) 00020f02 66 0e |f | BNE 0x20f12 00020f04 4a 2e 00 1e |J. | TST.B (A6+0x1e) 00020f08 67 00 00 d2 |g | BEQ 0x20fdc 00020f0c 4a 00 |J | TST.B D0 00020f0e 67 00 00 cc |g | BEQ 0x20fdc 00020f12 4a 00 |J | TST.B D0 00020f14 67 1e |g | BEQ 0x20f34 00020f16 9e c4 | | SUBA.W D4,A7 00020f18 20 4f | O | MOVEA.L A7,A0 00020f1a 43 fa f3 2e |C . | LEA.L 0x2024a,A1 00020f1e 70 0c |p | MOVEQ.L #0x0c,D0 00020f20 10 d9 | | MOVE.B (A1)+,(A0)+ 00020f22 51 c8 ff fc |Q | DBF D0,0x20f20 00020f26 41 ee ff ca |A | LEA.L (A6-0x36),A0 00020f2a 70 0e |p | MOVEQ.L #0x0e,D0 00020f2c 3f 20 |? | MOVE.W -(A0),-(A7) 00020f2e 51 c8 ff fc |Q | DBF D0,0x20f2c 00020f32 60 1c |` | BRA 0x20f50 00020f34 9e c4 | | SUBA.W D4,A7 00020f36 20 4f | O | MOVEA.L A7,A0 00020f38 43 fa f3 1e |C | LEA.L 0x20258,A1 00020f3c 70 0c |p | MOVEQ.L #0x0c,D0 00020f3e 10 d9 | | MOVE.B (A1)+,(A0)+ 00020f40 51 c8 ff fc |Q | DBF D0,0x20f3e 00020f44 41 ee ff ca |A | LEA.L (A6-0x36),A0 00020f48 70 0e |p | MOVEQ.L #0x0e,D0 00020f4a 3f 20 |? | MOVE.W -(A0),-(A7) 00020f4c 51 c8 ff fc |Q | DBF D0,0x20f4a 00020f50 51 4f |QO | SUBQ.L #0x8,A7 00020f52 48 6f 00 26 |Ho & | PEA.L (A7+0x26) 00020f56 3f 03 |? | MOVE.W D3,-(A7) 00020f58 3f 3c 00 0d |?< | MOVE.W #0xd,-(A7) 00020f5c 4e 93 |N | JSR (A3) 00020f5e 58 4f |XO | ADDQ.L #0x4,A7 00020f60 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00020f64 3f 03 |? | MOVE.W D3,-(A7) 00020f66 3f 3c 00 1e |?< | MOVE.W #0x1e,-(A7) 00020f6a 4e 93 |N | JSR (A3) 00020f6c 50 4f |PO | ADDQ.L #0x8,A7 00020f6e 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020f74 50 4f |PO | ADDQ.L #0x8,A7 00020f76 28 9f |( | MOVE.L (A7)+,(A4) 00020f78 de fc 00 2c | , | ADDA.W #0x2c,A7 00020f7c 20 54 | T | MOVEA.L (A4),A0 00020f7e 30 10 |0 | MOVE.W (A0),D0 00020f80 48 c0 |H | EXTW.L D0 00020f82 52 80 |R | ADDQ.L #0x1,D0 00020f84 0c 80 00 00 00 35 | 5 | CMPI.L #0x00000035,D0 00020f8a 6e 12 |n | BGT 0x20f9e 00020f8c 2f 14 |/ | MOVE.L (A4),-(A7) 00020f8e 1f 3c 00 20 | < | MOVE.B #0x20,-(A7) 00020f92 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00020f98 5c 4f |\O | ADDQ.L #0x6,A7 00020f9a 52 80 |R | ADDQ.L #0x1,D0 00020f9c 68 e6 |h | BVC 0x20f84 00020f9e 2f 3a f2 ca |/: | MOVE.L 0x2026a,-(A7) 00020fa2 2f 3a f2 c2 |/: | MOVE.L 0x20266,-(A7) 00020fa6 59 4f |YO | SUBQ.L #0x4,A7 00020fa8 2f 14 |/ | MOVE.L (A4),-(A7) 00020faa 59 4f |YO | SUBQ.L #0x4,A7 00020fac 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00020fb0 3f 03 |? | MOVE.W D3,-(A7) 00020fb2 3f 3c 00 08 |?< | MOVE.W #0x8,-(A7) 00020fb6 4e 93 |N | JSR (A3) 00020fb8 2e ae ff d0 |. | MOVE.L (A6-0x30),(A7) 00020fbc 4e b9 00 01 03 08 |N | JSR TimeToText() 00020fc2 58 4f |XO | ADDQ.L #0x4,A7 00020fc4 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 00020fca de fc 00 0c | | ADDA.W #0xc,A7 00020fce 28 9f |( | MOVE.L (A7)+,(A4) 00020fd0 58 4f |XO | ADDQ.L #0x4,A7 00020fd2 2e 94 |. | MOVE.L (A4),(A7) 00020fd4 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00020fda 58 4f |XO | ADDQ.L #0x4,A7 00020fdc 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 00020fe0 4a 10 |J | TST.B (A0) 00020fe2 67 14 |g | BEQ 0x20ff8 00020fe4 30 2e ff ca |0. | MOVE.W (A6-0x36),D0 00020fe8 48 c0 |H | EXTW.L D0 00020fea b0 ae 00 1a | | CMP.L (A6+0x1a),D0 00020fee 6c 08 |l | BGE 0x20ff8 00020ff0 1d 7c 00 07 ff f5 | | | MOVE.B #0x07,(A6-0xb) 00020ff6 60 06 |` | BRA 0x20ffe 00020ff8 1d 7c 00 06 ff f5 | | | MOVE.B #0x06,(A6-0xb) 00020ffe 10 2e ff f5 | . | MOVE.B (A6-0xb),D0 00021002 48 80 |H | EXTB.W D0 00021004 41 bc 00 0b |A | CHK.W #0xb,D0 00021008 1f 00 | | MOVE.B D0,-(A7) 0002100a 48 52 |HR | PEA.L (A2) 0002100c 4e b9 00 01 04 14 |N | JSR FSCALL_10414 00021012 5c 4f |\O | ADDQ.L #0x6,A7 00021014 4a 12 |J | TST.B (A2) 00021016 67 0e |g | BEQ 0x21026 00021018 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 0002101c 48 52 |HR | PEA.L (A2) 0002101e 4e b9 00 01 04 28 |N ( | JSR FSCALL_10428 00021024 5c 4f |\O | ADDQ.L #0x6,A7 00021026 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 0002102a 4a 10 |J | TST.B (A0) 0002102c 67 00 01 76 |g v | BEQ 0x211a4 00021030 52 b9 00 02 73 38 |R s8 | ADDQ.L #0x1,0x27338 00021036 4b 83 |K | CHK.W D3,D5 00021038 42 80 |B | CLR.L D0 0002103a 30 05 |0 | MOVE.W D5,D0 0002103c e5 80 | | ASL.L #0x2,D0 0002103e 22 4c |"L | MOVEA.L A4,A1 00021040 2f 31 08 04 |/1 | MOVE.L (A1+D0.L+#0x4),-(A7) 00021044 3f 3c 04 00 |?< | MOVE.W #0x400,-(A7) 00021048 4e b9 00 01 04 18 |N | JSR FSCALL_10418 0002104e 5c 4f |\O | ADDQ.L #0x6,A7 00021050 43 ee ff ca |C | LEA.L (A6-0x36),A1 00021054 70 0e |p | MOVEQ.L #0x0e,D0 00021056 3f 21 |?! | MOVE.W -(A1),-(A7) 00021058 51 c8 ff fc |Q | DBF D0,0x21056 0002105c 59 4f |YO | SUBQ.L #0x4,A7 0002105e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021062 3f 03 |? | MOVE.W D3,-(A7) 00021064 3f 3c 00 1e |?< | MOVE.W #0x1e,-(A7) 00021068 4e 93 |N | JSR (A3) 0002106a 50 4f |PO | ADDQ.L #0x8,A7 0002106c 2d 5f ff a8 |-_ | MOVE.L (A7)+,(A6-0x58) 00021070 de fc 00 1e | | ADDA.W #0x1e,A7 00021074 30 2e ff ca |0. | MOVE.W (A6-0x36),D0 00021078 48 c0 |H | EXTW.L D0 0002107a 2d 40 ff fa |-@ | MOVE.L D0,(A6-0x6) 0002107e 2f 2e ff a8 |/. | MOVE.L (A6-0x58),-(A7) 00021082 42 27 |B' | CLR.B -(A7) 00021084 1f 03 | | MOVE.B D3,-(A7) 00021086 48 78 00 00 |Hx | PEA.L 0x0 0002108a 48 6e fb a2 |Hn | PEA.L (A6-0x45e) 0002108e 48 6e fb 9a |Hn | PEA.L (A6-0x466) 00021092 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File) 00021098 de fc 00 14 | | ADDA.W #0x14,A7 0002109c 4a 2e fb a2 |J. | TST.B (A6-0x45e) 000210a0 67 00 00 96 |g | BEQ 0x21138 000210a4 10 2e fb a2 | . | MOVE.B (A6-0x45e),D0 000210a8 0c 00 00 02 | | CMPI.B #0x02,D0 000210ac 66 52 |fR | BNE 0x21100 000210ae 42 10 |B | CLR.B (A0) 000210b0 2f 3a f1 c4 |/: | MOVE.L 0x20276,-(A7) 000210b4 2f 3a f1 bc |/: | MOVE.L 0x20272,-(A7) 000210b8 2f 3a f1 b4 |/: | MOVE.L 0x2026e,-(A7) 000210bc 51 4f |QO | SUBQ.L #0x8,A7 000210be 2f 2e ff a8 |/. | MOVE.L (A6-0x58),-(A7) 000210c2 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 000210c8 48 6f 00 0c |Ho | PEA.L (A7+0xc) 000210cc 3f 03 |? | MOVE.W D3,-(A7) 000210ce 3f 3c 00 0c |?< | MOVE.W #0xc,-(A7) 000210d2 4e 93 |N | JSR (A3) 000210d4 50 4f |PO | ADDQ.L #0x8,A7 000210d6 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000210dc 50 4f |PO | ADDQ.L #0x8,A7 000210de 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000210e4 de fc 00 10 | | ADDA.W #0x10,A7 000210e8 48 6e ff a8 |Hn | PEA.L (A6-0x58) 000210ec 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000210f2 58 4f |XO | ADDQ.L #0x4,A7 000210f4 48 52 |HR | PEA.L (A2) 000210f6 4e b9 00 01 04 08 |N | JSR FSCALL_10408 000210fc 58 4f |XO | ADDQ.L #0x4,A7 000210fe 60 36 |`6 | BRA 0x21136 00021100 48 52 |HR | PEA.L (A2) 00021102 4e b9 00 01 04 08 |N | JSR FSCALL_10408 00021108 9e fc 00 12 | | SUBA.W #0x12,A7 0002110c 20 4f | O | MOVEA.L A7,A0 0002110e 43 fa f1 6a |C j | LEA.L 0x2027a,A1 00021112 70 14 |p | MOVEQ.L #0x14,D0 00021114 10 d9 | | MOVE.B (A1)+,(A0)+ 00021116 51 c8 ff fc |Q | DBF D0,0x21114 0002111a 1f 04 | | MOVE.B D4,-(A7) 0002111c 59 4f |YO | SUBQ.L #0x4,A7 0002111e 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00021122 3f 03 |? | MOVE.W D3,-(A7) 00021124 3f 3c 00 15 |?< | MOVE.W #0x15,-(A7) 00021128 4e 93 |N | JSR (A3) 0002112a 50 4f |PO | ADDQ.L #0x8,A7 0002112c 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00021132 de fc 00 1c | | ADDA.W #0x1c,A7 00021136 60 6a |`j | BRA 0x211a2 00021138 20 6e fb 9a | n | MOVEA.L (A6-0x466),A0 0002113c 11 6e ff d0 00 3a | n : | MOVE.B (A6-0x30),(A0+0x3a) 00021142 11 6e ff d1 00 3b | n ; | MOVE.B (A6-0x2f),(A0+0x3b) 00021148 11 6e ff d2 00 3c | n < | MOVE.B (A6-0x2e),(A0+0x3c) 0002114e 11 6e ff d3 00 3d | n = | MOVE.B (A6-0x2d),(A0+0x3d) 00021154 11 43 00 4c | C L | MOVE.B D3,(A0+0x4c) 00021158 32 28 00 20 |2( | MOVE.W (A0+0x20),D1 0002115c 48 c1 |H | EXTW.L D1 0002115e 2d 41 ff a4 |-A | MOVE.L D1,(A6-0x5c) 00021162 b2 80 | | CMP.L D0,D1 00021164 67 3c |g< | BEQ 0x211a2 00021166 4a 2e 00 18 |J. | TST.B (A6+0x18) 0002116a 67 34 |g4 | BEQ 0x211a0 0002116c 48 52 |HR | PEA.L (A2) 0002116e 4e b9 00 01 04 08 |N | JSR FSCALL_10408 00021174 58 4f |XO | ADDQ.L #0x4,A7 00021176 41 fa f0 b4 |A | LEA.L 0x2022c,A0 0002117a 70 0b |p | MOVEQ.L #0x0b,D0 0002117c 2f 20 |/ | MOVE.L -(A0),-(A7) 0002117e 51 c8 ff fc |Q | DBF D0,0x2117c 00021182 1f 04 | | MOVE.B D4,-(A7) 00021184 59 4f |YO | SUBQ.L #0x4,A7 00021186 48 6f 00 06 |Ho | PEA.L (A7+0x6) 0002118a 3f 03 |? | MOVE.W D3,-(A7) 0002118c 3f 3c 00 30 |?< 0 | MOVE.W #0x30,-(A7) 00021190 4e 93 |N | JSR (A3) 00021192 50 4f |PO | ADDQ.L #0x8,A7 00021194 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 0002119a de fc 00 36 | 6 | ADDA.W #0x36,A7 0002119e 60 02 |` | BRA 0x211a2 000211a0 7e 01 |~ | MOVEQ.L #0x01,D7 000211a2 60 0e |` | BRA 0x211b2 000211a4 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 000211a8 48 52 |HR | PEA.L (A2) 000211aa 4e b9 00 01 04 14 |N | JSR FSCALL_10414 000211b0 5c 4f |\O | ADDQ.L #0x6,A7 000211b2 30 2e ff ca |0. | MOVE.W (A6-0x36),D0 000211b6 53 40 |S@ | SUBQ.W #0x1,D0 000211b8 48 c0 |H | EXTW.L D0 000211ba 2f 00 |/ | MOVE.L D0,-(A7) 000211bc 70 00 |p | MOVEQ.L #0x00,D0 000211be b0 97 | | CMP.L (A7),D0 000211c0 6f 06 |o | BLE 0x211c8 000211c2 59 4f |YO | SUBQ.L #0x4,A7 000211c4 60 00 01 d2 |` | BRA 0x21398 000211c8 2f 00 |/ | MOVE.L D0,-(A7) 000211ca 42 2e ff f4 |B. | CLR.B (A6-0xc) 000211ce 30 2e ff ca |0. | MOVE.W (A6-0x36),D0 000211d2 53 40 |S@ | SUBQ.W #0x1,D0 000211d4 22 17 |" | MOVE.L (A7),D1 000211d6 48 c0 |H | EXTW.L D0 000211d8 b2 80 | | CMP.L D0,D1 000211da 66 04 |f | BNE 0x211e0 000211dc 52 2e ff f4 |R. | ADDQ.B #0x1,(A6-0xc) 000211e0 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 000211e4 4a 10 |J | TST.B (A0) 000211e6 67 0a |g | BEQ 0x211f2 000211e8 48 52 |HR | PEA.L (A2) 000211ea 4e b9 00 01 04 08 |N | JSR FSCALL_10408 000211f0 58 4f |XO | ADDQ.L #0x4,A7 000211f2 10 12 | | MOVE.B (A2),D0 000211f4 0c 00 00 06 | | CMPI.B #0x06,D0 000211f8 66 40 |f@ | BNE 0x2123a 000211fa 4e b9 00 01 04 2c |N , | JSR FSCALL_1042c 00021200 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 00021204 4a 10 |J | TST.B (A0) 00021206 66 0e |f | BNE 0x21216 00021208 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 0002120c 48 52 |HR | PEA.L (A2) 0002120e 4e b9 00 01 04 14 |N | JSR FSCALL_10414 00021214 60 1e |` | BRA 0x21234 00021216 4a 2e ff f4 |J. | TST.B (A6-0xc) 0002121a 66 1a |f | BNE 0x21236 0002121c 4b 83 |K | CHK.W D3,D5 0002121e 42 80 |B | CLR.L D0 00021220 30 05 |0 | MOVE.W D5,D0 00021222 e5 80 | | ASL.L #0x2,D0 00021224 20 4c | L | MOVEA.L A4,A0 00021226 2f 30 08 04 |/0 | MOVE.L (A0+D0.L+#0x4),-(A7) 0002122a 3f 3c 04 00 |?< | MOVE.W #0x400,-(A7) 0002122e 4e b9 00 01 04 18 |N | JSR FSCALL_10418 00021234 5c 4f |\O | ADDQ.L #0x6,A7 00021236 60 92 |` | BRA 0x211ca 00021238 60 12 |` | .XXX[0x2] 0002123a 4a 00 |J | TST.B D0 0002123c 67 0e |g | BEQ 0x2124c 0002123e 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 00021242 48 52 |HR | PEA.L (A2) 00021244 4e b9 00 01 04 28 |N ( | JSR FSCALL_10428 0002124a 5c 4f |\O | ADDQ.L #0x6,A7 0002124c 4a 45 |JE | TST.W D5 0002124e 66 06 |f | BNE 0x21256 00021250 7a 01 |z | MOVEQ.L #0x01,D5 00021252 7c 00 || | MOVEQ.L #0x00,D6 00021254 60 04 |` | BRA 0x2125a 00021256 7a 00 |z | MOVEQ.L #0x00,D5 00021258 7c 01 || | MOVEQ.L #0x01,D6 0002125a 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 0002125e 4a 10 |J | TST.B (A0) 00021260 67 00 01 16 |g | BEQ 0x21378 00021264 4a 2e ff f4 |J. | TST.B (A6-0xc) 00021268 66 1a |f | BNE 0x21284 0002126a 4b 83 |K | CHK.W D3,D5 0002126c 42 80 |B | CLR.L D0 0002126e 30 05 |0 | MOVE.W D5,D0 00021270 e5 80 | | ASL.L #0x2,D0 00021272 20 4c | L | MOVEA.L A4,A0 00021274 2f 30 08 04 |/0 | MOVE.L (A0+D0.L+#0x4),-(A7) 00021278 3f 3c 04 00 |?< | MOVE.W #0x400,-(A7) 0002127c 4e b9 00 01 04 18 |N | JSR FSCALL_10418 00021282 5c 4f |\O | ADDQ.L #0x6,A7 00021284 20 2e ff fa | . | MOVE.L (A6-0x6),D0 00021288 b0 ae ff a4 | | CMP.L (A6-0x5c),D0 0002128c 66 6c |fl | BNE 0x212fa 0002128e 2f 2e fb 9a |/. | MOVE.L (A6-0x466),-(A7) 00021292 20 2f 00 04 | / | MOVE.L (A7+0x4),D0 00021296 0c 80 00 00 40 00 | @ | CMPI.L #0x00004000,D0 0002129c 63 02 |c | BLS 0x212a0 0002129e 4e 4f |NO | TRAP #15 000212a0 3f 00 |? | MOVE.W D0,-(A7) 000212a2 42 67 |Bg | CLR.W -(A7) 000212a4 3f 3c 02 00 |?< | MOVE.W #0x200,-(A7) 000212a8 1f 03 | | MOVE.B D3,-(A7) 000212aa 41 ee fb a4 |A | LEA.L (A6-0x45c),A0 000212ae 2f 08 |/ | MOVE.L A0,-(A7) 000212b0 48 6e fb a2 |Hn | PEA.L (A6-0x45e) 000212b4 4e b9 00 01 03 84 |N | JSR ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L) 000212ba de fc 00 14 | | ADDA.W #0x14,A7 000212be 4a 2e fb a2 |J. | TST.B (A6-0x45e) 000212c2 67 36 |g6 | BEQ 0x212fa 000212c4 48 52 |HR | PEA.L (A2) 000212c6 4e b9 00 01 04 08 |N | JSR FSCALL_10408 000212cc 9e fc 00 16 | | SUBA.W #0x16,A7 000212d0 20 4f | O | MOVEA.L A7,A0 000212d2 43 fa ef bc |C | LEA.L 0x20290,A1 000212d6 70 18 |p | MOVEQ.L #0x18,D0 000212d8 10 d9 | | MOVE.B (A1)+,(A0)+ 000212da 51 c8 ff fc |Q | DBF D0,0x212d8 000212de 1f 04 | | MOVE.B D4,-(A7) 000212e0 59 4f |YO | SUBQ.L #0x4,A7 000212e2 48 6f 00 06 |Ho | PEA.L (A7+0x6) 000212e6 3f 03 |? | MOVE.W D3,-(A7) 000212e8 3f 3c 00 19 |?< | MOVE.W #0x19,-(A7) 000212ec 4e 93 |N | JSR (A3) 000212ee 50 4f |PO | ADDQ.L #0x8,A7 000212f0 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 000212f6 de fc 00 20 | | ADDA.W #0x20,A7 000212fa 70 00 |p | MOVEQ.L #0x00,D0 000212fc 0c 80 00 00 01 ff | | CMPI.L #0x000001ff,D0 00021302 63 02 |c | BLS 0x21306 00021304 4e 4f |NO | TRAP #15 00021306 22 00 |" | MOVE.L D0,D1 00021308 e3 81 | | ASL.L #0x1,D1 0002130a 20 4c | L | MOVEA.L A4,A0 0002130c 4d 83 |M | CHK.W D3,D6 0002130e 42 82 |B | CLR.L D2 00021310 34 06 |4 | MOVE.W D6,D2 00021312 e1 82 | | ASL.L #0x8,D2 00021314 e5 82 | | ASL.L #0x2,D2 00021316 43 f9 00 02 6b 30 |C k0 | LEA.L 0x26b30,A1 0002131c 43 f1 28 00 |C ( | LEA.L (A1+D2.L),A1 00021320 34 30 18 16 |40 | MOVE.W (A0+D1.L+#0x16),D2 00021324 b4 71 18 08 | q | CMP.W (A1+D1.L+#0x8),D2 00021328 67 42 |gB | BEQ 0x2136c 0002132a 4a 2e 00 18 |J. | TST.B (A6+0x18) 0002132e 67 3a |g: | BEQ 0x2136a 00021330 4a 2e ff f4 |J. | TST.B (A6-0xc) 00021334 66 0a |f | BNE 0x21340 00021336 48 52 |HR | PEA.L (A2) 00021338 4e b9 00 01 04 08 |N | JSR FSCALL_10408 0002133e 58 4f |XO | ADDQ.L #0x4,A7 00021340 41 fa ee ba |A | LEA.L 0x201fc,A0 00021344 72 12 |r | MOVEQ.L #0x12,D1 00021346 3f 20 |? | MOVE.W -(A0),-(A7) 00021348 51 c9 ff fc |Q | DBF D1,0x21346 0002134c 1f 04 | | MOVE.B D4,-(A7) 0002134e 59 4f |YO | SUBQ.L #0x4,A7 00021350 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00021354 3f 03 |? | MOVE.W D3,-(A7) 00021356 3f 3c 00 26 |?< & | MOVE.W #0x26,-(A7) 0002135a 4e 93 |N | JSR (A3) 0002135c 50 4f |PO | ADDQ.L #0x8,A7 0002135e 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00021364 de fc 00 2c | , | ADDA.W #0x2c,A7 00021368 60 02 |` | BRA 0x2136c 0002136a 7e 01 |~ | MOVEQ.L #0x01,D7 0002136c 52 80 |R | ADDQ.L #0x1,D0 0002136e 0c 80 00 00 01 ff | | CMPI.L #0x000001ff,D0 00021374 6f 86 |o | BLE 0x212fc 00021376 60 14 |` | BRA 0x2138c 00021378 4a 2e ff f4 |J. | TST.B (A6-0xc) 0002137c 66 0e |f | BNE 0x2138c 0002137e 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 00021382 48 52 |HR | PEA.L (A2) 00021384 4e b9 00 01 04 14 |N | JSR FSCALL_10414 0002138a 5c 4f |\O | ADDQ.L #0x6,A7 0002138c 20 17 | | MOVE.L (A7),D0 0002138e 52 80 |R | ADDQ.L #0x1,D0 00021390 69 06 |i | BVS 0x21398 00021392 58 4f |XO | ADDQ.L #0x4,A7 00021394 60 00 fe 28 |` ( | BRA 0x211be 00021398 50 4f |PO | ADDQ.L #0x8,A7 0002139a 4a 07 |J | TST.B D7 0002139c 67 00 01 06 |g | BEQ 0x214a4 000213a0 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 000213a4 42 10 |B | CLR.B (A0) 000213a6 4a 2e 00 20 |J. | TST.B (A6+0x20) 000213aa 66 52 |fR | BNE 0x213fe 000213ac 4a 2e 00 1e |J. | TST.B (A6+0x1e) 000213b0 66 4c |fL | BNE 0x213fe 000213b2 9e c4 | | SUBA.W D4,A7 000213b4 20 4f | O | MOVEA.L A7,A0 000213b6 43 fa ee f2 |C | LEA.L 0x202aa,A1 000213ba 70 0c |p | MOVEQ.L #0x0c,D0 000213bc 10 d9 | | MOVE.B (A1)+,(A0)+ 000213be 51 c8 ff fc |Q | DBF D0,0x213bc 000213c2 41 ee ff ca |A | LEA.L (A6-0x36),A0 000213c6 70 0e |p | MOVEQ.L #0x0e,D0 000213c8 3f 20 |? | MOVE.W -(A0),-(A7) 000213ca 51 c8 ff fc |Q | DBF D0,0x213c8 000213ce 51 4f |QO | SUBQ.L #0x8,A7 000213d0 48 6f 00 26 |Ho & | PEA.L (A7+0x26) 000213d4 3f 03 |? | MOVE.W D3,-(A7) 000213d6 3f 3c 00 0d |?< | MOVE.W #0xd,-(A7) 000213da 4e 93 |N | JSR (A3) 000213dc 58 4f |XO | ADDQ.L #0x4,A7 000213de 48 6f 00 0c |Ho | PEA.L (A7+0xc) 000213e2 3f 03 |? | MOVE.W D3,-(A7) 000213e4 3f 3c 00 1e |?< | MOVE.W #0x1e,-(A7) 000213e8 4e 93 |N | JSR (A3) 000213ea 50 4f |PO | ADDQ.L #0x8,A7 000213ec 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000213f2 50 4f |PO | ADDQ.L #0x8,A7 000213f4 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000213fa de fc 00 30 | 0 | ADDA.W #0x30,A7 000213fe 20 2e ff fa | . | MOVE.L (A6-0x6),D0 00021402 b0 ae ff a4 | | CMP.L (A6-0x5c),D0 00021406 67 4e |gN | BEQ 0x21456 00021408 9e c4 | | SUBA.W D4,A7 0002140a 20 4f | O | MOVEA.L A7,A0 0002140c 43 fa ee aa |C | LEA.L 0x202b8,A1 00021410 70 0c |p | MOVEQ.L #0x0c,D0 00021412 10 d9 | | MOVE.B (A1)+,(A0)+ 00021414 51 c8 ff fc |Q | DBF D0,0x21412 00021418 41 fa ee 12 |A | LEA.L 0x2022c,A0 0002141c 70 0b |p | MOVEQ.L #0x0b,D0 0002141e 2f 20 |/ | MOVE.L -(A0),-(A7) 00021420 51 c8 ff fc |Q | DBF D0,0x2141e 00021424 51 4f |QO | SUBQ.L #0x8,A7 00021426 48 6f 00 38 |Ho 8 | PEA.L (A7+0x38) 0002142a 3f 03 |? | MOVE.W D3,-(A7) 0002142c 3f 3c 00 0d |?< | MOVE.W #0xd,-(A7) 00021430 4e 93 |N | JSR (A3) 00021432 58 4f |XO | ADDQ.L #0x4,A7 00021434 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00021438 3f 03 |? | MOVE.W D3,-(A7) 0002143a 3f 3c 00 30 |?< 0 | MOVE.W #0x30,-(A7) 0002143e 4e 93 |N | JSR (A3) 00021440 50 4f |PO | ADDQ.L #0x8,A7 00021442 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00021448 50 4f |PO | ADDQ.L #0x8,A7 0002144a 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00021450 de fc 00 42 | B | ADDA.W #0x42,A7 00021454 60 4c |`L | BRA 0x214a2 00021456 9e c4 | | SUBA.W D4,A7 00021458 20 4f | O | MOVEA.L A7,A0 0002145a 43 fa ee 6a |C j | LEA.L 0x202c6,A1 0002145e 70 0c |p | MOVEQ.L #0x0c,D0 00021460 10 d9 | | MOVE.B (A1)+,(A0)+ 00021462 51 c8 ff fc |Q | DBF D0,0x21460 00021466 41 fa ed 94 |A | LEA.L 0x201fc,A0 0002146a 70 12 |p | MOVEQ.L #0x12,D0 0002146c 3f 20 |? | MOVE.W -(A0),-(A7) 0002146e 51 c8 ff fc |Q | DBF D0,0x2146c 00021472 51 4f |QO | SUBQ.L #0x8,A7 00021474 48 6f 00 2e |Ho . | PEA.L (A7+0x2e) 00021478 3f 03 |? | MOVE.W D3,-(A7) 0002147a 3f 3c 00 0d |?< | MOVE.W #0xd,-(A7) 0002147e 4e 93 |N | JSR (A3) 00021480 58 4f |XO | ADDQ.L #0x4,A7 00021482 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00021486 3f 03 |? | MOVE.W D3,-(A7) 00021488 3f 3c 00 26 |?< & | MOVE.W #0x26,-(A7) 0002148c 4e 93 |N | JSR (A3) 0002148e 50 4f |PO | ADDQ.L #0x8,A7 00021490 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00021496 50 4f |PO | ADDQ.L #0x8,A7 00021498 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002149e de fc 00 38 | 8 | ADDA.W #0x38,A7 000214a2 60 0a |` | BRA 0x214ae 000214a4 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 000214a8 22 6e 00 0c |"n | MOVEA.L (A6+0xc),A1 000214ac 10 91 | | MOVE.B (A1),(A0) 000214ae 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 000214b2 4a 10 |J | TST.B (A0) 000214b4 67 54 |gT | BEQ 0x2150a 000214b6 48 6e ff a8 |Hn | PEA.L (A6-0x58) 000214ba 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000214c0 54 4f |TO | ADDQ.L #0x2,A7 000214c2 42 17 |B | CLR.B (A7) 000214c4 1f 03 | | MOVE.B D3,-(A7) 000214c6 48 78 00 01 |Hx | PEA.L 0x1 000214ca 48 6e fb a2 |Hn | PEA.L (A6-0x45e) 000214ce 48 6e fb 9a |Hn | PEA.L (A6-0x466) 000214d2 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File) 000214d8 de fc 00 10 | | ADDA.W #0x10,A7 000214dc 4a 2e fb a2 |J. | TST.B (A6-0x45e) 000214e0 67 28 |g( | BEQ 0x2150a 000214e2 41 fa ee 06 |A | LEA.L 0x202ea,A0 000214e6 70 0a |p | MOVEQ.L #0x0a,D0 000214e8 3f 20 |? | MOVE.W -(A0),-(A7) 000214ea 51 c8 ff fc |Q | DBF D0,0x214e8 000214ee 1f 04 | | MOVE.B D4,-(A7) 000214f0 59 4f |YO | SUBQ.L #0x4,A7 000214f2 48 6f 00 06 |Ho | PEA.L (A7+0x6) 000214f6 3f 03 |? | MOVE.W D3,-(A7) 000214f8 3f 3c 00 16 |?< | MOVE.W #0x16,-(A7) 000214fc 4e 93 |N | JSR (A3) 000214fe 50 4f |PO | ADDQ.L #0x8,A7 00021500 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00021506 de fc 00 1c | | ADDA.W #0x1c,A7 0002150a 1f 3c 00 07 | < | MOVE.B #0x07,-(A7) 0002150e 48 52 |HR | PEA.L (A2) 00021510 4e b9 00 01 04 14 |N | JSR FSCALL_10414 00021516 5c 4f |\O | ADDQ.L #0x6,A7 00021518 4a 12 |J | TST.B (A2) 0002151a 67 0e |g | BEQ 0x2152a 0002151c 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 00021520 48 52 |HR | PEA.L (A2) 00021522 4e b9 00 01 04 28 |N ( | JSR FSCALL_10428 00021528 5c 4f |\O | ADDQ.L #0x6,A7 0002152a 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 0002152e 4e 5e |N^ | UNLK A6 00021530 4e 75 |Nu | RTS 00021532 ; -------------------------------------------------------------------------------------- 00021532 ; OMSI PASCAL Function 00021532 ; <LVAR 0x008 4(r)> 00021532 ; <LVAR -0x008 4(rw)> 00021532 ; -------------------------------------------------------------------------------------- 00021532 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 00021536 bf d5 | | CMPA.L (A5),A7 00021538 62 06 |b | BHI 0x21540 0002153a 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002153e 4e 76 |Nv | TRAPV 00021540 de fc 00 20 | | ADDA.W #0x20,A7 00021544 48 e7 80 f0 |H | MOVEM.L A3+A2+A1+A0+D0,-(A7) 00021548 41 f9 00 02 6b 38 |A k8 | LEA.L 0x26b38,A0 0002154e 2f 08 |/ | MOVE.L A0,-(A7) 00021550 2d 5f ff f8 |-_ | MOVE.L (A7)+,(A6-0x8) 00021554 20 6e ff f8 | n | MOVEA.L (A6-0x8),A0 00021558 22 6e 00 08 |"n | MOVEA.L (A6+0x8),A1 0002155c 24 48 |$H | MOVEA.L A0,A2 0002155e 26 49 |&I | MOVEA.L A1,A3 00021560 70 1d |p | MOVEQ.L #0x1d,D0 00021562 14 db | | MOVE.B (A3)+,(A2)+ 00021564 51 c8 ff fc |Q | DBF D0,0x21562 00021568 30 29 00 20 |0) | MOVE.W (A1+0x20),D0 0002156c 41 bc 40 00 |A @ | CHK.W #0x4000,D0 00021570 31 40 00 1e |1@ | MOVE.W D0,(A0+0x1e) 00021574 11 69 00 3a 00 24 | i : $ | MOVE.B (A1+0x3a),(A0+0x24) 0002157a 11 69 00 3b 00 25 | i ; % | MOVE.B (A1+0x3b),(A0+0x25) 00021580 11 69 00 3c 00 26 | i < & | MOVE.B (A1+0x3c),(A0+0x26) 00021586 11 69 00 3d 00 27 | i = ' | MOVE.B (A1+0x3d),(A0+0x27) 0002158c 31 7c 04 00 00 20 |1| | MOVE.W #0x400,(A0+0x20) 00021592 31 7c 00 01 00 28 |1| ( | MOVE.W #0x1,(A0+0x28) 00021598 10 29 00 3f | ) ? | MOVE.B (A1+0x3f),D0 0002159c ed 08 | | LSL.B #0x6,D0 0002159e ee 08 | | LSR.B #0x7,D0 000215a0 11 40 00 23 | @ # | MOVE.B D0,(A0+0x23) 000215a4 10 29 00 3f | ) ? | MOVE.B (A1+0x3f),D0 000215a8 eb 08 | | LSL.B #0x5,D0 000215aa ee 08 | | LSR.B #0x7,D0 000215ac 11 40 00 22 | @ " | MOVE.B D0,(A0+0x22) 000215b0 4c df 0f 01 |L | MOVEM.L (A7)+,D0+A0+A1+A2+A3 000215b4 4e 5e |N^ | UNLK A6 000215b6 4e 75 |Nu | RTS 000215b8 ; -------------------------------------------------------------------------------------- 000215b8 ; OMSI PASCAL Function 000215b8 ; <LVAR 0x010 1(r)> 000215b8 ; <LVAR 0x00c 4(r)> 000215b8 ; <LVAR 0x008 4(r)> 000215b8 ; <LVAR -0x004 1(rw)> 000215b8 ; <LVAR -0x008 4(w)> 000215b8 ; <LVAR -0x00c 4(w)> 000215b8 ; <LVAR -0x012 @ 1(r)> 000215b8 ; <LVAR -0x013 1(r)> 000215b8 ; <LVAR -0x014 @ 1(r)> 000215b8 ; -------------------------------------------------------------------------------------- 000215b8 4e 56 ff 70 |NV p | LINK.W A6,#0xff70 000215bc bf d5 | | CMPA.L (A5),A7 000215be 62 06 |b | BHI 0x215c6 000215c0 44 fc 00 02 |D | MOVE.W #0x2,CCR 000215c4 4e 76 |Nv | TRAPV 000215c6 de fc 00 76 | v | ADDA.W #0x76,A7 000215ca 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 000215ce 45 ee ff ec |E | LEA.L (A6-0x14),A2 000215d2 47 ee 00 08 |G | LEA.L (A6+0x8),A3 000215d6 49 f9 00 01 04 28 |I ( | LEA.L FSCALL_10428,A4 000215dc 74 01 |t | MOVEQ.L #0x01,D2 000215de 76 02 |v | MOVEQ.L #0x02,D3 000215e0 78 1e |x | MOVEQ.L #0x1e,D4 000215e2 41 f9 00 02 6b 38 |A k8 | LEA.L 0x26b38,A0 000215e8 2f 08 |/ | MOVE.L A0,-(A7) 000215ea 2d 5f ff f4 |-_ | MOVE.L (A7)+,(A6-0xc) 000215ee 41 f9 00 02 6f 38 |A o8 | LEA.L 0x26f38,A0 000215f4 2f 08 |/ | MOVE.L A0,-(A7) 000215f6 2d 5f ff f8 |-_ | MOVE.L (A7)+,(A6-0x8) 000215fa 2f 13 |/ | MOVE.L (A3),-(A7) 000215fc 4e ba ff 34 |N 4 | JSR 0x21532 00021600 58 4f |XO | ADDQ.L #0x4,A7 00021602 7e 00 |~ | MOVEQ.L #0x00,D7 00021604 7c 01 || | MOVEQ.L #0x01,D6 00021606 7a 40 |z@ | MOVEQ.L #0x40,D5 00021608 4a 2e 00 10 |J. | TST.B (A6+0x10) 0002160c 67 56 |gV | BEQ 0x21664 0002160e 9e fc 00 0c | | SUBA.W #0xc,A7 00021612 20 4f | O | MOVEA.L A7,A0 00021614 43 fa ec d4 |C | LEA.L 0x202ea,A1 00021618 70 0a |p | MOVEQ.L #0x0a,D0 0002161a 10 d9 | | MOVE.B (A1)+,(A0)+ 0002161c 51 c8 ff fc |Q | DBF D0,0x2161a 00021620 20 53 | S | MOVEA.L (A3),A0 00021622 9e c4 | | SUBA.W D4,A7 00021624 22 4f |"O | MOVEA.L A7,A1 00021626 70 1d |p | MOVEQ.L #0x1d,D0 00021628 12 d8 | | MOVE.B (A0)+,(A1)+ 0002162a 51 c8 ff fc |Q | DBF D0,0x21628 0002162e 51 4f |QO | SUBQ.L #0x8,A7 00021630 48 6f 00 26 |Ho & | PEA.L (A7+0x26) 00021634 3f 02 |? | MOVE.W D2,-(A7) 00021636 3f 3c 00 0b |?< | MOVE.W #0xb,-(A7) 0002163a 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00021640 58 4f |XO | ADDQ.L #0x4,A7 00021642 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00021646 3f 02 |? | MOVE.W D2,-(A7) 00021648 3f 04 |? | MOVE.W D4,-(A7) 0002164a 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00021650 50 4f |PO | ADDQ.L #0x8,A7 00021652 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00021658 50 4f |PO | ADDQ.L #0x8,A7 0002165a 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00021660 de fc 00 2e | . | ADDA.W #0x2e,A7 00021664 20 53 | S | MOVEA.L (A3),A0 00021666 30 28 00 20 |0( | MOVE.W (A0+0x20),D0 0002166a 48 c0 |H | EXTW.L D0 0002166c b0 ae 00 0c | | CMP.L (A6+0xc),D0 00021670 6d 08 |m | BLT 0x2167a 00021672 1d 7c 00 06 ff fc | | | MOVE.B #0x06,(A6-0x4) 00021678 60 06 |` | BRA 0x21680 0002167a 1d 7c 00 07 ff fc | | | MOVE.B #0x07,(A6-0x4) 00021680 10 2e ff fc | . | MOVE.B (A6-0x4),D0 00021684 48 80 |H | EXTB.W D0 00021686 41 bc 00 0b |A | CHK.W #0xb,D0 0002168a 1f 00 | | MOVE.B D0,-(A7) 0002168c 48 52 |HR | PEA.L (A2) 0002168e 4e b9 00 01 04 14 |N | JSR FSCALL_10414 00021694 5c 4f |\O | ADDQ.L #0x6,A7 00021696 4a 12 |J | TST.B (A2) 00021698 67 08 |g | BEQ 0x216a2 0002169a 1f 03 | | MOVE.B D3,-(A7) 0002169c 48 52 |HR | PEA.L (A2) 0002169e 4e 94 |N | JSR (A4) 000216a0 5c 4f |\O | ADDQ.L #0x6,A7 000216a2 30 28 00 20 |0( | MOVE.W (A0+0x20),D0 000216a6 53 40 |S@ | SUBQ.W #0x1,D0 000216a8 48 c0 |H | EXTW.L D0 000216aa 2f 00 |/ | MOVE.L D0,-(A7) 000216ac 70 00 |p | MOVEQ.L #0x00,D0 000216ae b0 97 | | CMP.L (A7),D0 000216b0 6e 00 00 b2 |n | BGT 0x21764 000216b4 4f 82 |O | CHK.W D2,D7 000216b6 42 81 |B | CLR.L D1 000216b8 32 07 |2 | MOVE.W D7,D1 000216ba e5 81 | | ASL.L #0x2,D1 000216bc 2f 36 18 f4 |/6 | MOVE.L (A6+D1.L-#0xc),-(A7) 000216c0 3f 05 |? | MOVE.W D5,-(A7) 000216c2 4e b9 00 01 04 1c |N | JSR FSCALL_1041c 000216c8 54 4f |TO | ADDQ.L #0x2,A7 000216ca 2e 93 |. | MOVE.L (A3),(A7) 000216cc 0c 80 00 00 40 00 | @ | CMPI.L #0x00004000,D0 000216d2 63 02 |c | BLS 0x216d6 000216d4 4e 4f |NO | TRAP #15 000216d6 3f 00 |? | MOVE.W D0,-(A7) 000216d8 42 67 |Bg | CLR.W -(A7) 000216da 3f 3c 02 00 |?< | MOVE.W #0x200,-(A7) 000216de 1f 02 | | MOVE.B D2,-(A7) 000216e0 4d 82 |M | CHK.W D2,D6 000216e2 42 81 |B | CLR.L D1 000216e4 32 06 |2 | MOVE.W D6,D1 000216e6 e5 81 | | ASL.L #0x2,D1 000216e8 2f 36 18 f4 |/6 | MOVE.L (A6+D1.L-#0xc),-(A7) 000216ec 48 6e ff ee |Hn | PEA.L (A6-0x12) 000216f0 4e b9 00 01 03 84 |N | JSR ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L) 000216f6 de fc 00 14 | | ADDA.W #0x14,A7 000216fa 48 52 |HR | PEA.L (A2) 000216fc 4e b9 00 01 04 08 |N | JSR FSCALL_10408 00021702 58 4f |XO | ADDQ.L #0x4,A7 00021704 4a 12 |J | TST.B (A2) 00021706 67 08 |g | BEQ 0x21710 00021708 1f 03 | | MOVE.B D3,-(A7) 0002170a 48 52 |HR | PEA.L (A2) 0002170c 4e 94 |N | JSR (A4) 0002170e 5c 4f |\O | ADDQ.L #0x6,A7 00021710 4a 2e ff ee |J. | TST.B (A6-0x12) 00021714 67 0e |g | BEQ 0x21724 00021716 1f 02 | | MOVE.B D2,-(A7) 00021718 48 78 00 01 |Hx | PEA.L 0x1 0002171c 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00021722 5c 4f |\O | ADDQ.L #0x6,A7 00021724 4a 2e ff ed |J. | TST.B (A6-0x13) 00021728 67 22 |g" | BEQ 0x2174c 0002172a 4e b9 00 01 04 20 |N | JSR FSCALL_10420 00021730 48 52 |HR | PEA.L (A2) 00021732 4e b9 00 01 04 08 |N | JSR FSCALL_10408 00021738 58 4f |XO | ADDQ.L #0x4,A7 0002173a 4a 12 |J | TST.B (A2) 0002173c 67 08 |g | BEQ 0x21746 0002173e 1f 03 | | MOVE.B D3,-(A7) 00021740 48 52 |HR | PEA.L (A2) 00021742 4e 94 |N | JSR (A4) 00021744 5c 4f |\O | ADDQ.L #0x6,A7 00021746 4e b9 00 01 04 2c |N , | JSR FSCALL_1042c 0002174c 4a 47 |JG | TST.W D7 0002174e 66 06 |f | BNE 0x21756 00021750 7e 01 |~ | MOVEQ.L #0x01,D7 00021752 7c 00 || | MOVEQ.L #0x00,D6 00021754 60 04 |` | BRA 0x2175a 00021756 7e 00 |~ | MOVEQ.L #0x00,D7 00021758 7c 01 || | MOVEQ.L #0x01,D6 0002175a 3a 3c 04 00 |:< | MOVE.W #0x400,D5 0002175e 52 80 |R | ADDQ.L #0x1,D0 00021760 68 00 ff 4c |h L | BVC 0x216ae 00021764 58 4f |XO | ADDQ.L #0x4,A7 00021766 4f 82 |O | CHK.W D2,D7 00021768 42 80 |B | CLR.L D0 0002176a 30 07 |0 | MOVE.W D7,D0 0002176c e5 80 | | ASL.L #0x2,D0 0002176e 2f 36 08 f4 |/6 | MOVE.L (A6+D0.L-#0xc),-(A7) 00021772 3f 05 |? | MOVE.W D5,-(A7) 00021774 4e b9 00 01 04 1c |N | JSR FSCALL_1041c 0002177a 5c 4f |\O | ADDQ.L #0x6,A7 0002177c 48 52 |HR | PEA.L (A2) 0002177e 4e b9 00 01 04 08 |N | JSR FSCALL_10408 00021784 58 4f |XO | ADDQ.L #0x4,A7 00021786 4a 12 |J | TST.B (A2) 00021788 67 08 |g | BEQ 0x21792 0002178a 1f 03 | | MOVE.B D3,-(A7) 0002178c 48 52 |HR | PEA.L (A2) 0002178e 4e 94 |N | JSR (A4) 00021790 5c 4f |\O | ADDQ.L #0x6,A7 00021792 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00021796 4e 5e |N^ | UNLK A6 00021798 4e 75 |Nu | RTS 0002179a ; -------------------------------------------------------------------------------------- 0002179a ; OMSI PASCAL Function 0002179a ; <LVAR 0x016 4(r)> 0002179a ; <LVAR 0x012 @ 4(r)> 0002179a ; <LVAR 0x010 1(r)> 0002179a ; <LVAR 0x00c 4(r)> 0002179a ; <LVAR 0x008 4(r)> 0002179a ; -------------------------------------------------------------------------------------- 0002179a 4e 56 ff d6 |NV | LINK.W A6,#0xffd6 0002179e bf d5 | | CMPA.L (A5),A7 000217a0 62 06 |b | BHI 0x217a8 000217a2 44 fc 00 02 |D | MOVE.W #0x2,CCR 000217a6 4e 76 |Nv | TRAPV 000217a8 de fc 00 28 | ( | ADDA.W #0x28,A7 000217ac 48 e7 00 c0 |H | MOVEM.L A1+A0,-(A7) 000217b0 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 000217b4 22 6e 00 0c |"n | MOVEA.L (A6+0xc),A1 000217b8 2f 2e 00 16 |/. | MOVE.L (A6+0x16),-(A7) 000217bc 48 78 00 00 |Hx | PEA.L 0x0 000217c0 2f 2e 00 12 |/. | MOVE.L (A6+0x12),-(A7) 000217c4 48 50 |HP | PEA.L (A0) 000217c6 48 51 |HQ | PEA.L (A1) 000217c8 4e b9 00 02 62 96 |N b | JSR 0x26296 000217ce de fc 00 14 | | ADDA.W #0x14,A7 000217d2 48 6e 00 12 |Hn | PEA.L (A6+0x12) 000217d6 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000217dc 58 4f |XO | ADDQ.L #0x4,A7 000217de 4a 11 |J | TST.B (A1) 000217e0 67 10 |g | BEQ 0x217f2 000217e2 4a 2e 00 10 |J. | TST.B (A6+0x10) 000217e6 66 0a |f | BNE 0x217f2 000217e8 48 50 |HP | PEA.L (A0) 000217ea 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000217f0 58 4f |XO | ADDQ.L #0x4,A7 000217f2 4c df 03 00 |L | MOVEM.L (A7)+,A0+A1 000217f6 4e 5e |N^ | UNLK A6 000217f8 4e 75 |Nu | RTS 000217fa ; -------------------------------------------------------------------------------------- 000217fa ; OMSI PASCAL Function 000217fa ; <LVAR 0x008 2(r)> 000217fa ; <LVAR -0x002 @ 1(r)> 000217fa ; <LVAR -0x016 @ 2(r)> 000217fa ; <LVAR -0x01a 2(r)> 000217fa ; <LVAR -0x01c 2(w)> 000217fa ; <LVAR -0x022 2(w)> 000217fa ; <LVAR -0x026 @> 000217fa ; -------------------------------------------------------------------------------------- 000217fa 4e 56 ff 94 |NV | LINK.W A6,#0xff94 000217fe bf d5 | | CMPA.L (A5),A7 00021800 62 06 |b | BHI 0x21808 00021802 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021806 4e 76 |Nv | TRAPV 00021808 de fc 00 46 | F | ADDA.W #0x46,A7 0002180c 48 e7 e0 c0 |H | MOVEM.L A1+A0+D2+D1+D0,-(A7) 00021810 43 f9 00 02 73 3c |C s< | LEA.L 0x2733c,A1 00021816 72 01 |r | MOVEQ.L #0x01,D1 00021818 74 03 |t | MOVEQ.L #0x03,D2 0002181a 3d 42 ff de |=B | MOVE.W D2,(A6-0x22) 0002181e 30 2e 00 08 |0. | MOVE.W (A6+0x8),D0 00021822 e1 40 | @ | ASL.W #0x8,D0 00021824 3d 40 ff e4 |=@ | MOVE.W D0,(A6-0x1c) 00021828 42 6e ff e6 |Bn | CLR.W (A6-0x1a) 0002182c 48 6e ff da |Hn | PEA.L (A6-0x26) 00021830 41 ee ff ea |A | LEA.L (A6-0x16),A0 00021834 2f 08 |/ | MOVE.L A0,-(A7) 00021836 3f 01 |? | MOVE.W D1,-(A7) 00021838 4e b9 00 01 02 04 |N | JSR KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W) 0002183e 50 4f |PO | ADDQ.L #0x8,A7 00021840 3e 81 |> | MOVE.W D1,(A7) 00021842 48 6e ff fe |Hn | PEA.L (A6-0x2) 00021846 4e b9 00 01 02 06 |N | JSR KC03_Wait_Disk_IO(a : W; VAR status : Byte) 0002184c 5c 4f |\O | ADDQ.L #0x6,A7 0002184e 4a 2e ff fe |J. | TST.B (A6-0x2) 00021852 66 2a |f* | BNE 0x2187e 00021854 41 fa ea c2 |A | LEA.L 0x20318,A0 00021858 70 10 |p | MOVEQ.L #0x10,D0 0002185a 3f 20 |? | MOVE.W -(A0),-(A7) 0002185c 51 c8 ff fc |Q | DBF D0,0x2185a 00021860 59 4f |YO | SUBQ.L #0x4,A7 00021862 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021866 3f 01 |? | MOVE.W D1,-(A7) 00021868 3f 3c 00 22 |?< " | MOVE.W #0x22,-(A7) 0002186c 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00021872 50 4f |PO | ADDQ.L #0x8,A7 00021874 4e b9 00 02 30 36 |N 06 | JSR 0x23036 0002187a de fc 00 26 | & | ADDA.W #0x26,A7 0002187e 42 11 |B | CLR.B (A1) 00021880 30 2e ff ea |0. | MOVE.W (A6-0x16),D0 00021884 b0 42 | B | CMP.W D2,D0 00021886 66 02 |f | BNE 0x2188a 00021888 52 11 |R | ADDQ.B #0x1,(A1) 0002188a 4c df 03 07 |L | MOVEM.L (A7)+,D0+D1+D2+A0+A1 0002188e 4e 5e |N^ | UNLK A6 00021890 4e 75 |Nu | RTS 00021892 ; -------------------------------------------------------------------------------------- 00021892 ; OMSI PASCAL Function 00021892 ; <LVAR 0x00a 1(rw)> 00021892 ; <LVAR 0x008 2(r)> 00021892 ; <LVAR -0x002 @ 1(r)> 00021892 ; <LVAR -0x00a 2(r)> 00021892 ; <LVAR -0x016 @> 00021892 ; <LVAR -0x01a 2(r)> 00021892 ; <LVAR -0x01c 2(w)> 00021892 ; <LVAR -0x022 2(w)> 00021892 ; <LVAR -0x026 @> 00021892 ; -------------------------------------------------------------------------------------- 00021892 4e 56 ff 9a |NV | LINK.W A6,#0xff9a 00021896 bf d5 | | CMPA.L (A5),A7 00021898 62 06 |b | BHI 0x218a0 0002189a 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002189e 4e 76 |Nv | TRAPV 000218a0 de fc 00 40 | @ | ADDA.W #0x40,A7 000218a4 48 e7 c0 c0 |H | MOVEM.L A1+A0+D1+D0,-(A7) 000218a8 72 01 |r | MOVEQ.L #0x01,D1 000218aa 3d 7c 00 03 ff de |=| | MOVE.W #0x3,(A6-0x22) 000218b0 30 2e 00 08 |0. | MOVE.W (A6+0x8),D0 000218b4 e1 40 | @ | ASL.W #0x8,D0 000218b6 3d 40 ff e4 |=@ | MOVE.W D0,(A6-0x1c) 000218ba 42 6e ff e6 |Bn | CLR.W (A6-0x1a) 000218be 48 6e ff da |Hn | PEA.L (A6-0x26) 000218c2 41 ee ff ea |A | LEA.L (A6-0x16),A0 000218c6 2f 08 |/ | MOVE.L A0,-(A7) 000218c8 3f 01 |? | MOVE.W D1,-(A7) 000218ca 4e b9 00 01 02 04 |N | JSR KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W) 000218d0 50 4f |PO | ADDQ.L #0x8,A7 000218d2 3e 81 |> | MOVE.W D1,(A7) 000218d4 48 6e ff fe |Hn | PEA.L (A6-0x2) 000218d8 4e b9 00 01 02 06 |N | JSR KC03_Wait_Disk_IO(a : W; VAR status : Byte) 000218de 5c 4f |\O | ADDQ.L #0x6,A7 000218e0 4a 2e ff fe |J. | TST.B (A6-0x2) 000218e4 66 30 |f0 | BNE 0x21916 000218e6 9e fc 00 20 | | SUBA.W #0x20,A7 000218ea 20 4f | O | MOVEA.L A7,A0 000218ec 43 fa ea 2a |C * | LEA.L 0x20318,A1 000218f0 70 1e |p | MOVEQ.L #0x1e,D0 000218f2 10 d9 | | MOVE.B (A1)+,(A0)+ 000218f4 51 c8 ff fc |Q | DBF D0,0x218f2 000218f8 59 4f |YO | SUBQ.L #0x4,A7 000218fa 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000218fe 3f 01 |? | MOVE.W D1,-(A7) 00021900 3f 3c 00 1f |?< | MOVE.W #0x1f,-(A7) 00021904 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002190a 50 4f |PO | ADDQ.L #0x8,A7 0002190c 4e b9 00 02 30 36 |N 06 | JSR 0x23036 00021912 de fc 00 24 | $ | ADDA.W #0x24,A7 00021916 42 2e 00 0a |B. | CLR.B (A6+0xa) 0002191a 30 2e ff f6 |0. | MOVE.W (A6-0xa),D0 0002191e 02 40 00 02 | @ | ANDI.W #0x0002,D0 00021922 67 04 |g | BEQ 0x21928 00021924 52 2e 00 0a |R. | ADDQ.B #0x1,(A6+0xa) 00021928 4c df 03 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1 0002192c 4e 5e |N^ | UNLK A6 0002192e 4e 75 |Nu | RTS 00021930 ; -------------------------------------------------------------------------------------- 00021930 ; OMSI PASCAL Function 00021930 ; <LVAR 0x00c 2(w)> 00021930 ; <LVAR 0x008 4(r)> 00021930 ; <LVAR -0x006 @ 4(r)> 00021930 ; <LVAR -0x008 @ 1(r)> 00021930 ; <LVAR -0x00c @ 4(r)> 00021930 ; -------------------------------------------------------------------------------------- 00021930 4e 56 ff a2 |NV | LINK.W A6,#0xffa2 00021934 bf d5 | | CMPA.L (A5),A7 00021936 62 06 |b | BHI 0x2193e 00021938 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002193c 4e 76 |Nv | TRAPV 0002193e de fc 00 52 | R | ADDA.W #0x52,A7 00021942 48 e7 f8 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D4+D3+D2+D1+D0,-(A7) 00021946 43 ee ff fa |C | LEA.L (A6-0x6),A1 0002194a 45 ee ff f8 |E | LEA.L (A6-0x8),A2 0002194e 47 fa ea 02 |G | LEA.L 0x20352,A3 00021952 49 f9 00 01 02 c4 |I | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A4 00021958 72 01 |r | MOVEQ.L #0x01,D1 0002195a 74 1a |t | MOVEQ.L #0x1a,D2 0002195c 76 1e |v | MOVEQ.L #0x1e,D3 0002195e 78 03 |x | MOVEQ.L #0x03,D4 00021960 2f 13 |/ | MOVE.L (A3),-(A7) 00021962 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00021966 59 4f |YO | SUBQ.L #0x4,A7 00021968 48 6f 00 08 |Ho | PEA.L (A7+0x8) 0002196c 3f 01 |? | MOVE.W D1,-(A7) 0002196e 3f 3c 00 04 |?< | MOVE.W #0x4,-(A7) 00021972 4e 94 |N | JSR (A4) 00021974 5c 4f |\O | ADDQ.L #0x6,A7 00021976 1e 81 | | MOVE.B D1,(A7) 00021978 48 52 |HR | PEA.L (A2) 0002197a 48 6e ff f4 |Hn | PEA.L (A6-0xc) 0002197e 4e ba fe 1a |N | JSR 0x2179a 00021982 de fc 00 16 | | ADDA.W #0x16,A7 00021986 4a 12 |J | TST.B (A2) 00021988 66 04 |f | BNE 0x2198e 0002198a 42 91 |B | CLR.L (A1) 0002198c 60 60 |`` | BRA 0x219ee 0002198e 2f 2e ff f4 |/. | MOVE.L (A6-0xc),-(A7) 00021992 48 52 |HR | PEA.L (A2) 00021994 48 51 |HQ | PEA.L (A1) 00021996 4e b9 00 01 02 ec |N | JSR String2Long(src : String; VAR status : Bool; VAR retval : Long) 0002199c de fc 00 0c | | ADDA.W #0xc,A7 000219a0 4a 12 |J | TST.B (A2) 000219a2 66 20 |f | BNE 0x219c4 000219a4 20 4b | K | MOVEA.L A3,A0 000219a6 70 0c |p | MOVEQ.L #0x0c,D0 000219a8 3f 20 |? | MOVE.W -(A0),-(A7) 000219aa 51 c8 ff fc |Q | DBF D0,0x219a8 000219ae 59 4f |YO | SUBQ.L #0x4,A7 000219b0 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000219b4 3f 01 |? | MOVE.W D1,-(A7) 000219b6 3f 02 |? | MOVE.W D2,-(A7) 000219b8 4e 94 |N | JSR (A4) 000219ba 50 4f |PO | ADDQ.L #0x8,A7 000219bc 4e b9 00 02 30 36 |N 06 | JSR 0x23036 000219c2 de c3 | | ADDA.W D3,A7 000219c4 4a 91 |J | TST.L (A1) 000219c6 6d 06 |m | BLT 0x219ce 000219c8 20 11 | | MOVE.L (A1),D0 000219ca b0 84 | | CMP.L D4,D0 000219cc 6f 20 |o | BLE 0x219ee 000219ce 20 4b | K | MOVEA.L A3,A0 000219d0 70 0c |p | MOVEQ.L #0x0c,D0 000219d2 3f 20 |? | MOVE.W -(A0),-(A7) 000219d4 51 c8 ff fc |Q | DBF D0,0x219d2 000219d8 59 4f |YO | SUBQ.L #0x4,A7 000219da 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000219de 3f 01 |? | MOVE.W D1,-(A7) 000219e0 3f 02 |? | MOVE.W D2,-(A7) 000219e2 4e 94 |N | JSR (A4) 000219e4 50 4f |PO | ADDQ.L #0x8,A7 000219e6 4e b9 00 02 30 36 |N 06 | JSR 0x23036 000219ec de c3 | | ADDA.W D3,A7 000219ee 20 11 | | MOVE.L (A1),D0 000219f0 b0 84 | | CMP.L D4,D0 000219f2 63 02 |c | BLS 0x219f6 000219f4 4e 4f |NO | TRAP #15 000219f6 3d 40 00 0c |=@ | MOVE.W D0,(A6+0xc) 000219fa 4c df 1f 1f |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+A0+A1+A2+A3+A4 000219fe 4e 5e |N^ | UNLK A6 00021a00 4e 75 |Nu | RTS 00021a02 ; -------------------------------------------------------------------------------------- 00021a02 ; OMSI PASCAL Function 00021a02 ; <LVAR 0x016 4(r)> 00021a02 ; <LVAR 0x014 1(r)> 00021a02 ; <LVAR 0x010 4(r)> 00021a02 ; <LVAR 0x00c 4(r)> 00021a02 ; <LVAR 0x008 4(r)> 00021a02 ; <LVAR -0x008 @ 1(r)> 00021a02 ; <LVAR -0x009 @ 1(r)> 00021a02 ; <LVAR -0x00a @ 1(r)> 00021a02 ; <LVAR -0x00e @ 4(r)> 00021a02 ; <LVAR -0x010 @ 1(r)> 00021a02 ; <LVAR -0x011 @ 1(r)> 00021a02 ; <LVAR -0x012 @ 1(r)> 00021a02 ; -------------------------------------------------------------------------------------- 00021a02 4e 56 ff 7a |NV z | LINK.W A6,#0xff7a 00021a06 bf d5 | | CMPA.L (A5),A7 00021a08 62 06 |b | BHI 0x21a10 00021a0a 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021a0e 4e 76 |Nv | TRAPV 00021a10 de fc 00 74 | t | ADDA.W #0x74,A7 00021a14 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00021a18 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 00021a1e 47 ee 00 16 |G | LEA.L (A6+0x16),A3 00021a22 49 ee ff f2 |I | LEA.L (A6-0xe),A4 00021a26 72 01 |r | MOVEQ.L #0x01,D1 00021a28 74 02 |t | MOVEQ.L #0x02,D2 00021a2a 76 0a |v | MOVEQ.L #0x0a,D3 00021a2c 78 09 |x | MOVEQ.L #0x09,D4 00021a2e 7a 1c |z | MOVEQ.L #0x1c,D5 00021a30 9e c3 | | SUBA.W D3,A7 00021a32 20 4f | O | MOVEA.L A7,A0 00021a34 43 fa e9 be |C | LEA.L 0x203f4,A1 00021a38 70 08 |p | MOVEQ.L #0x08,D0 00021a3a 10 d9 | | MOVE.B (A1)+,(A0)+ 00021a3c 51 c8 ff fc |Q | DBF D0,0x21a3a 00021a40 2f 13 |/ | MOVE.L (A3),-(A7) 00021a42 59 4f |YO | SUBQ.L #0x4,A7 00021a44 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00021a48 3f 01 |? | MOVE.W D1,-(A7) 00021a4a 3f 04 |? | MOVE.W D4,-(A7) 00021a4c 4e 92 |N | JSR (A2) 00021a4e 5c 4f |\O | ADDQ.L #0x6,A7 00021a50 1e 81 | | MOVE.B D1,(A7) 00021a52 48 6e ff ee |Hn | PEA.L (A6-0x12) 00021a56 48 54 |HT | PEA.L (A4) 00021a58 4e ba fd 40 |N @ | JSR 0x2179a 00021a5c de c5 | | ADDA.W D5,A7 00021a5e 4a 2e ff ee |J. | TST.B (A6-0x12) 00021a62 66 0c |f | BNE 0x21a70 00021a64 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 00021a68 20 bc 00 00 00 05 | | MOVE.L #0x5,(A0) 00021a6e 60 48 |`H | BRA 0x21ab8 00021a70 2f 14 |/ | MOVE.L (A4),-(A7) 00021a72 48 6e ff ee |Hn | PEA.L (A6-0x12) 00021a76 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 00021a7a 48 50 |HP | PEA.L (A0) 00021a7c 4e b9 00 01 02 ec |N | JSR String2Long(src : String; VAR status : Bool; VAR retval : Long) 00021a82 de fc 00 0c | | ADDA.W #0xc,A7 00021a86 4a 2e ff ee |J. | TST.B (A6-0x12) 00021a8a 66 2c |f, | BNE 0x21ab8 00021a8c 9e fc 00 20 | | SUBA.W #0x20,A7 00021a90 20 4f | O | MOVEA.L A7,A0 00021a92 43 fa e8 c2 |C | LEA.L 0x20356,A1 00021a96 70 1e |p | MOVEQ.L #0x1e,D0 00021a98 10 d9 | | MOVE.B (A1)+,(A0)+ 00021a9a 51 c8 ff fc |Q | DBF D0,0x21a98 00021a9e 59 4f |YO | SUBQ.L #0x4,A7 00021aa0 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021aa4 3f 01 |? | MOVE.W D1,-(A7) 00021aa6 3f 3c 00 1f |?< | MOVE.W #0x1f,-(A7) 00021aaa 4e 92 |N | JSR (A2) 00021aac 50 4f |PO | ADDQ.L #0x8,A7 00021aae 4e b9 00 02 30 36 |N 06 | JSR 0x23036 00021ab4 de fc 00 24 | $ | ADDA.W #0x24,A7 00021ab8 3f 3a e9 44 |?: D | MOVE.W 0x203fe,-(A7) 00021abc 2f 13 |/ | MOVE.L (A3),-(A7) 00021abe 59 4f |YO | SUBQ.L #0x4,A7 00021ac0 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00021ac4 3f 01 |? | MOVE.W D1,-(A7) 00021ac6 3f 02 |? | MOVE.W D2,-(A7) 00021ac8 4e 92 |N | JSR (A2) 00021aca 5c 4f |\O | ADDQ.L #0x6,A7 00021acc 42 17 |B | CLR.B (A7) 00021ace 20 6e 00 10 | n | MOVEA.L (A6+0x10),A0 00021ad2 48 50 |HP | PEA.L (A0) 00021ad4 48 54 |HT | PEA.L (A4) 00021ad6 4e ba fc c2 |N | JSR 0x2179a 00021ada de fc 00 0c | | ADDA.W #0xc,A7 00021ade 20 4f | O | MOVEA.L A7,A0 00021ae0 43 fa e9 1e |C | LEA.L 0x20400,A1 00021ae4 70 06 |p | MOVEQ.L #0x06,D0 00021ae6 10 d9 | | MOVE.B (A1)+,(A0)+ 00021ae8 51 c8 ff fc |Q | DBF D0,0x21ae6 00021aec 2f 13 |/ | MOVE.L (A3),-(A7) 00021aee 59 4f |YO | SUBQ.L #0x4,A7 00021af0 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00021af4 3f 01 |? | MOVE.W D1,-(A7) 00021af6 3f 3c 00 07 |?< | MOVE.W #0x7,-(A7) 00021afa 4e 92 |N | JSR (A2) 00021afc 5c 4f |\O | ADDQ.L #0x6,A7 00021afe 42 17 |B | CLR.B (A7) 00021b00 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00021b04 48 50 |HP | PEA.L (A0) 00021b06 48 54 |HT | PEA.L (A4) 00021b08 4e ba fc 90 |N | JSR 0x2179a 00021b0c de fc 00 16 | | ADDA.W #0x16,A7 00021b10 1e ba e8 f6 | | MOVE.B 0x20408,(A7) 00021b14 1f 7a e8 f3 00 01 | z | MOVE.B 0x20409,(A7+0x1) 00021b1a 1f 7a e8 ee 00 02 | z | MOVE.B 0x2040a,(A7+0x2) 00021b20 2f 13 |/ | MOVE.L (A3),-(A7) 00021b22 59 4f |YO | SUBQ.L #0x4,A7 00021b24 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00021b28 3f 01 |? | MOVE.W D1,-(A7) 00021b2a 3f 3c 00 03 |?< | MOVE.W #0x3,-(A7) 00021b2e 4e 92 |N | JSR (A2) 00021b30 5c 4f |\O | ADDQ.L #0x6,A7 00021b32 42 17 |B | CLR.B (A7) 00021b34 48 6e ff ef |Hn | PEA.L (A6-0x11) 00021b38 48 54 |HT | PEA.L (A4) 00021b3a 4e ba fc 5e |N ^ | JSR 0x2179a 00021b3e de fc 00 14 | | ADDA.W #0x14,A7 00021b42 3e ba e8 c8 |> | MOVE.W 0x2040c,(A7) 00021b46 2f 13 |/ | MOVE.L (A3),-(A7) 00021b48 59 4f |YO | SUBQ.L #0x4,A7 00021b4a 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00021b4e 3f 01 |? | MOVE.W D1,-(A7) 00021b50 3f 02 |? | MOVE.W D2,-(A7) 00021b52 4e 92 |N | JSR (A2) 00021b54 5c 4f |\O | ADDQ.L #0x6,A7 00021b56 42 17 |B | CLR.B (A7) 00021b58 48 6e ff f0 |Hn | PEA.L (A6-0x10) 00021b5c 48 54 |HT | PEA.L (A4) 00021b5e 4e ba fc 3a |N : | JSR 0x2179a 00021b62 de fc 00 14 | | ADDA.W #0x14,A7 00021b66 4a 2e ff f0 |J. | TST.B (A6-0x10) 00021b6a 67 32 |g2 | BEQ 0x21b9e 00021b6c 4a 2e ff ef |J. | TST.B (A6-0x11) 00021b70 67 2c |g, | BEQ 0x21b9e 00021b72 9e fc 00 20 | | SUBA.W #0x20,A7 00021b76 20 4f | O | MOVEA.L A7,A0 00021b78 43 fa e7 fc |C | LEA.L 0x20376,A1 00021b7c 70 1e |p | MOVEQ.L #0x1e,D0 00021b7e 10 d9 | | MOVE.B (A1)+,(A0)+ 00021b80 51 c8 ff fc |Q | DBF D0,0x21b7e 00021b84 59 4f |YO | SUBQ.L #0x4,A7 00021b86 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021b8a 3f 01 |? | MOVE.W D1,-(A7) 00021b8c 3f 3c 00 1f |?< | MOVE.W #0x1f,-(A7) 00021b90 4e 92 |N | JSR (A2) 00021b92 50 4f |PO | ADDQ.L #0x8,A7 00021b94 4e b9 00 02 30 36 |N 06 | JSR 0x23036 00021b9a de fc 00 24 | $ | ADDA.W #0x24,A7 00021b9e 41 fa e8 78 |A x | LEA.L 0x20418,A0 00021ba2 70 04 |p | MOVEQ.L #0x04,D0 00021ba4 3f 20 |? | MOVE.W -(A0),-(A7) 00021ba6 51 c8 ff fc |Q | DBF D0,0x21ba4 00021baa 2f 13 |/ | MOVE.L (A3),-(A7) 00021bac 59 4f |YO | SUBQ.L #0x4,A7 00021bae 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00021bb2 3f 01 |? | MOVE.W D1,-(A7) 00021bb4 3f 03 |? | MOVE.W D3,-(A7) 00021bb6 4e 92 |N | JSR (A2) 00021bb8 5c 4f |\O | ADDQ.L #0x6,A7 00021bba 42 17 |B | CLR.B (A7) 00021bbc 48 6e ff f7 |Hn | PEA.L (A6-0x9) 00021bc0 48 54 |HT | PEA.L (A4) 00021bc2 4e ba fb d6 |N | JSR 0x2179a 00021bc6 de fc 00 12 | | ADDA.W #0x12,A7 00021bca 20 4f | O | MOVEA.L A7,A0 00021bcc 43 fa e8 4a |C J | LEA.L 0x20418,A1 00021bd0 70 08 |p | MOVEQ.L #0x08,D0 00021bd2 10 d9 | | MOVE.B (A1)+,(A0)+ 00021bd4 51 c8 ff fc |Q | DBF D0,0x21bd2 00021bd8 2f 13 |/ | MOVE.L (A3),-(A7) 00021bda 59 4f |YO | SUBQ.L #0x4,A7 00021bdc 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00021be0 3f 01 |? | MOVE.W D1,-(A7) 00021be2 3f 04 |? | MOVE.W D4,-(A7) 00021be4 4e 92 |N | JSR (A2) 00021be6 5c 4f |\O | ADDQ.L #0x6,A7 00021be8 42 17 |B | CLR.B (A7) 00021bea 48 6e ff f6 |Hn | PEA.L (A6-0xa) 00021bee 48 54 |HT | PEA.L (A4) 00021bf0 4e ba fb a8 |N | JSR 0x2179a 00021bf4 de c5 | | ADDA.W D5,A7 00021bf6 4a 2e ff f6 |J. | TST.B (A6-0xa) 00021bfa 67 32 |g2 | BEQ 0x21c2e 00021bfc 4a 2e ff f7 |J. | TST.B (A6-0x9) 00021c00 67 2c |g, | BEQ 0x21c2e 00021c02 9e fc 00 2e | . | SUBA.W #0x2e,A7 00021c06 20 4f | O | MOVEA.L A7,A0 00021c08 43 fa e7 bc |C | LEA.L 0x203c6,A1 00021c0c 70 2c |p, | MOVEQ.L #0x2c,D0 00021c0e 10 d9 | | MOVE.B (A1)+,(A0)+ 00021c10 51 c8 ff fc |Q | DBF D0,0x21c0e 00021c14 59 4f |YO | SUBQ.L #0x4,A7 00021c16 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021c1a 3f 01 |? | MOVE.W D1,-(A7) 00021c1c 3f 3c 00 2d |?< - | MOVE.W #0x2d,-(A7) 00021c20 4e 92 |N | JSR (A2) 00021c22 50 4f |PO | ADDQ.L #0x8,A7 00021c24 4e b9 00 02 30 36 |N 06 | JSR 0x23036 00021c2a de fc 00 32 | 2 | ADDA.W #0x32,A7 00021c2e 55 4f |UO | SUBQ.L #0x2,A7 00021c30 2f 13 |/ | MOVE.L (A3),-(A7) 00021c32 4e ba fc fc |N | JSR 0x21930 00021c36 58 4f |XO | ADDQ.L #0x4,A7 00021c38 30 1f |0 | MOVE.W (A7)+,D0 00021c3a 41 bc 00 03 |A | CHK.W #0x3,D0 00021c3e 3c 00 |< | MOVE.W D0,D6 00021c40 3f 06 |? | MOVE.W D6,-(A7) 00021c42 4e ba fb b6 |N | JSR 0x217fa 00021c46 3e 86 |> | MOVE.W D6,(A7) 00021c48 42 27 |B' | CLR.B -(A7) 00021c4a 10 2e 00 14 | . | MOVE.B (A6+0x14),D0 00021c4e b0 01 | | CMP.B D1,D0 00021c50 66 02 |f | BNE 0x21c54 00021c52 52 17 |R | ADDQ.B #0x1,(A7) 00021c54 42 27 |B' | CLR.B -(A7) 00021c56 48 6e ff f8 |Hn | PEA.L (A6-0x8) 00021c5a 4e b9 00 01 04 0c |N | JSR FSCALL_1040c 00021c60 de c3 | | ADDA.W D3,A7 00021c62 4a 2e ff f8 |J. | TST.B (A6-0x8) 00021c66 67 0e |g | BEQ 0x21c76 00021c68 1f 02 | | MOVE.B D2,-(A7) 00021c6a 48 6e ff f8 |Hn | PEA.L (A6-0x8) 00021c6e 4e b9 00 01 04 28 |N ( | JSR FSCALL_10428 00021c74 5c 4f |\O | ADDQ.L #0x6,A7 00021c76 55 4f |UO | SUBQ.L #0x2,A7 00021c78 3f 06 |? | MOVE.W D6,-(A7) 00021c7a 4e ba fc 16 |N | JSR 0x21892 00021c7e 54 4f |TO | ADDQ.L #0x2,A7 00021c80 10 1f | | MOVE.B (A7)+,D0 00021c82 48 80 |H | EXTB.W D0 00021c84 41 81 |A | CHK.W D1,D0 00021c86 1e 00 | | MOVE.B D0,D7 00021c88 66 3a |f: | BNE 0x21cc4 00021c8a 4a 2e ff f0 |J. | TST.B (A6-0x10) 00021c8e 66 06 |f | BNE 0x21c96 00021c90 4a 2e ff ef |J. | TST.B (A6-0x11) 00021c94 67 2e |g. | BEQ 0x21cc4 00021c96 9e fc 00 30 | 0 | SUBA.W #0x30,A7 00021c9a 20 4f | O | MOVEA.L A7,A0 00021c9c 43 fa e6 f8 |C | LEA.L 0x20396,A1 00021ca0 70 2e |p. | MOVEQ.L #0x2e,D0 00021ca2 10 d9 | | MOVE.B (A1)+,(A0)+ 00021ca4 51 c8 ff fc |Q | DBF D0,0x21ca2 00021ca8 59 4f |YO | SUBQ.L #0x4,A7 00021caa 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021cae 3f 01 |? | MOVE.W D1,-(A7) 00021cb0 3f 3c 00 2f |?< / | MOVE.W #0x2f,-(A7) 00021cb4 4e 92 |N | JSR (A2) 00021cb6 50 4f |PO | ADDQ.L #0x8,A7 00021cb8 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00021cbe de fc 00 34 | 4 | ADDA.W #0x34,A7 00021cc2 60 32 |`2 | BRA 0x21cf6 00021cc4 4a 07 |J | TST.B D7 00021cc6 67 2e |g. | BEQ 0x21cf6 00021cc8 4a 2e ff ef |J. | TST.B (A6-0x11) 00021ccc 67 04 |g | BEQ 0x21cd2 00021cce 1f 04 | | MOVE.B D4,-(A7) 00021cd0 60 04 |` | BRA 0x21cd6 00021cd2 1f 3c 00 08 | < | MOVE.B #0x08,-(A7) 00021cd6 48 6e ff f8 |Hn | PEA.L (A6-0x8) 00021cda 4e b9 00 01 04 14 |N | JSR FSCALL_10414 00021ce0 5c 4f |\O | ADDQ.L #0x6,A7 00021ce2 4a 2e ff f8 |J. | TST.B (A6-0x8) 00021ce6 67 0e |g | BEQ 0x21cf6 00021ce8 1f 02 | | MOVE.B D2,-(A7) 00021cea 48 6e ff f8 |Hn | PEA.L (A6-0x8) 00021cee 4e b9 00 01 04 28 |N ( | JSR FSCALL_10428 00021cf4 5c 4f |\O | ADDQ.L #0x6,A7 00021cf6 4a 2e ff f7 |J. | TST.B (A6-0x9) 00021cfa 67 06 |g | BEQ 0x21d02 00021cfc 1f 3c 00 0b | < | MOVE.B #0x0b,-(A7) 00021d00 60 02 |` | BRA 0x21d04 00021d02 1f 03 | | MOVE.B D3,-(A7) 00021d04 48 6e ff f8 |Hn | PEA.L (A6-0x8) 00021d08 4e b9 00 01 04 14 |N | JSR FSCALL_10414 00021d0e 5c 4f |\O | ADDQ.L #0x6,A7 00021d10 4a 2e ff f8 |J. | TST.B (A6-0x8) 00021d14 67 0e |g | BEQ 0x21d24 00021d16 1f 02 | | MOVE.B D2,-(A7) 00021d18 48 6e ff f8 |Hn | PEA.L (A6-0x8) 00021d1c 4e b9 00 01 04 28 |N ( | JSR FSCALL_10428 00021d22 5c 4f |\O | ADDQ.L #0x6,A7 00021d24 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00021d28 4e 5e |N^ | UNLK A6 00021d2a 4e 75 |Nu | RTS 00021d2c ; -------------------------------------------------------------------------------------- 00021d2c ; OMSI PASCAL Function 00021d2c ; <LVAR -0x008 @ 4(rw)> 00021d2c ; <LVAR -0x023 @> 00021d2c ; <LVAR -0x024 @> 00021d2c ; <LVAR -0x028 4(w)> 00021d2c ; <LVAR -0x02a 2(rw)> 00021d2c ; <LVAR -0x02c 4(w)> 00021d2c ; <LVAR -0x030 4(w)> 00021d2c ; <LVAR -0x034 @ 4(w)> 00021d2c ; -------------------------------------------------------------------------------------- 00021d2c 4e 56 ff 8c |NV | LINK.W A6,#0xff8c 00021d30 bf d5 | | CMPA.L (A5),A7 00021d32 62 06 |b | BHI 0x21d3a 00021d34 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021d38 4e 76 |Nv | TRAPV 00021d3a de fc 00 40 | @ | ADDA.W #0x40,A7 00021d3e 48 e7 c1 e0 |H | MOVEM.L A2+A1+A0+D7+D1+D0,-(A7) 00021d42 43 ee ff f8 |C | LEA.L (A6-0x8),A1 00021d46 45 ee ff d6 |E | LEA.L (A6-0x2a),A2 00021d4a 72 19 |r | MOVEQ.L #0x19,D1 00021d4c 2d 7a e8 90 ff cc |-z | MOVE.L 0x205de,(A6-0x34) 00021d52 2d 7a e8 8e ff d0 |-z | MOVE.L 0x205e2,(A6-0x30) 00021d58 2d 7a e8 8c ff d4 |-z | MOVE.L 0x205e6,(A6-0x2c) 00021d5e 2d 7a e8 8a ff d8 |-z | MOVE.L 0x205ea,(A6-0x28) 00021d64 34 81 |4 | MOVE.W D1,(A2) 00021d66 42 80 |B | CLR.L D0 00021d68 30 12 |0 | MOVE.W (A2),D0 00021d6a 06 80 00 00 03 00 | | ADDI.L #0x00000300,D0 00021d70 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 00021d76 63 02 |c | BLS 0x21d7a 00021d78 4e 4f |NO | TRAP #15 00021d7a 34 80 |4 | MOVE.W D0,(A2) 00021d7c 48 6e ff cc |Hn | PEA.L (A6-0x34) 00021d80 41 ee ff dd |A | LEA.L (A6-0x23),A0 00021d84 2f 08 |/ | MOVE.L A0,-(A7) 00021d86 42 67 |Bg | CLR.W -(A7) 00021d88 4e b9 00 01 02 04 |N | JSR KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W) 00021d8e 50 4f |PO | ADDQ.L #0x8,A7 00021d90 42 57 |BW | CLR.W (A7) 00021d92 48 6e ff dc |Hn | PEA.L (A6-0x24) 00021d96 4e b9 00 01 02 06 |N | JSR KC03_Wait_Disk_IO(a : W; VAR status : Byte) 00021d9c 5c 4f |\O | ADDQ.L #0x6,A7 00021d9e 41 fa e6 9a |A | LEA.L 0x2043a,A0 00021da2 70 05 |p | MOVEQ.L #0x05,D0 00021da4 2f 20 |/ | MOVE.L -(A0),-(A7) 00021da6 51 c8 ff fc |Q | DBF D0,0x21da4 00021daa 59 4f |YO | SUBQ.L #0x4,A7 00021dac 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021db0 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00021db4 3f 3c 00 18 |?< | MOVE.W #0x18,-(A7) 00021db8 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00021dbe 50 4f |PO | ADDQ.L #0x8,A7 00021dc0 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00021dc6 de fc 00 1c | | ADDA.W #0x1c,A7 00021dca 48 51 |HQ | PEA.L (A1) 00021dcc 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00021dd2 58 4f |XO | ADDQ.L #0x4,A7 00021dd4 7e 00 |~ | MOVEQ.L #0x00,D7 00021dd6 59 4f |YO | SUBQ.L #0x4,A7 00021dd8 2f 11 |/ | MOVE.L (A1),-(A7) 00021dda 59 4f |YO | SUBQ.L #0x4,A7 00021ddc be 81 | | CMP.L D1,D7 00021dde 63 02 |c | BLS 0x21de2 00021de0 4e 4f |NO | TRAP #15 00021de2 42 80 |B | CLR.L D0 00021de4 10 36 78 dd | 6x | MOVE.B (A6+D7.L-#0x23),D0 00021de8 2f 00 |/ | MOVE.L D0,-(A7) 00021dea 48 78 00 02 |Hx | PEA.L 0x2 00021dee 4e b9 00 01 02 e8 |N | JSR Long2HexString(val : Long; ndig : Long) : String 00021df4 50 4f |PO | ADDQ.L #0x8,A7 00021df6 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00021dfc 50 4f |PO | ADDQ.L #0x8,A7 00021dfe 22 9f |" | MOVE.L (A7)+,(A1) 00021e00 2f 11 |/ | MOVE.L (A1),-(A7) 00021e02 1f 3c 00 20 | < | MOVE.B #0x20,-(A7) 00021e06 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00021e0c 5c 4f |\O | ADDQ.L #0x6,A7 00021e0e 52 87 |R | ADDQ.L #0x1,D7 00021e10 be 81 | | CMP.L D1,D7 00021e12 6f c2 |o | BLE 0x21dd6 00021e14 2f 11 |/ | MOVE.L (A1),-(A7) 00021e16 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00021e1c 58 4f |XO | ADDQ.L #0x4,A7 00021e1e 4c df 07 83 |L | MOVEM.L (A7)+,D0+D1+D7+A0+A1+A2 00021e22 4e 5e |N^ | UNLK A6 00021e24 4e 75 |Nu | RTS 00021e26 ; -------------------------------------------------------------------------------------- 00021e26 ; OMSI PASCAL Function 00021e26 ; <LVAR -0x008 @ 4(rw)> 00021e26 ; <LVAR -0x023 @> 00021e26 ; <LVAR -0x024 @> 00021e26 ; <LVAR -0x028 4(w)> 00021e26 ; <LVAR -0x02a 2(rw)> 00021e26 ; <LVAR -0x02c 4(w)> 00021e26 ; <LVAR -0x030 4(w)> 00021e26 ; <LVAR -0x034 @ 4(w)> 00021e26 ; -------------------------------------------------------------------------------------- 00021e26 4e 56 ff 80 |NV | LINK.W A6,#0xff80 00021e2a bf d5 | | CMPA.L (A5),A7 00021e2c 62 06 |b | BHI 0x21e34 00021e2e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021e32 4e 76 |Nv | TRAPV 00021e34 de fc 00 4c | L | ADDA.W #0x4c,A7 00021e38 48 e7 e1 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D2+D1+D0,-(A7) 00021e3c 45 ee ff d6 |E | LEA.L (A6-0x2a),A2 00021e40 47 ee ff f8 |G | LEA.L (A6-0x8),A3 00021e44 49 ee ff cc |I | LEA.L (A6-0x34),A4 00021e48 72 19 |r | MOVEQ.L #0x19,D1 00021e4a 74 01 |t | MOVEQ.L #0x01,D2 00021e4c 28 ba e7 a0 |( | MOVE.L 0x205ee,(A4) 00021e50 2d 7a e7 a0 ff d0 |-z | MOVE.L 0x205f2,(A6-0x30) 00021e56 2d 7a e7 9e ff d4 |-z | MOVE.L 0x205f6,(A6-0x2c) 00021e5c 2d 7a e7 9c ff d8 |-z | MOVE.L 0x205fa,(A6-0x28) 00021e62 34 82 |4 | MOVE.W D2,(A2) 00021e64 42 80 |B | CLR.L D0 00021e66 30 12 |0 | MOVE.W (A2),D0 00021e68 06 80 00 00 03 00 | | ADDI.L #0x00000300,D0 00021e6e 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 00021e74 63 02 |c | BLS 0x21e78 00021e76 4e 4f |NO | TRAP #15 00021e78 34 80 |4 | MOVE.W D0,(A2) 00021e7a 48 54 |HT | PEA.L (A4) 00021e7c 41 ee ff dd |A | LEA.L (A6-0x23),A0 00021e80 2f 08 |/ | MOVE.L A0,-(A7) 00021e82 42 67 |Bg | CLR.W -(A7) 00021e84 4e b9 00 01 02 04 |N | JSR KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W) 00021e8a 50 4f |PO | ADDQ.L #0x8,A7 00021e8c 42 57 |BW | CLR.W (A7) 00021e8e 48 6e ff dc |Hn | PEA.L (A6-0x24) 00021e92 4e b9 00 01 02 06 |N | JSR KC03_Wait_Disk_IO(a : W; VAR status : Byte) 00021e98 5c 4f |\O | ADDQ.L #0x6,A7 00021e9a 28 ba e7 52 |( R | MOVE.L 0x205ee,(A4) 00021e9e 2d 7a e7 52 ff d0 |-z R | MOVE.L 0x205f2,(A6-0x30) 00021ea4 2d 7a e7 50 ff d4 |-z P | MOVE.L 0x205f6,(A6-0x2c) 00021eaa 2d 7a e7 4e ff d8 |-z N | MOVE.L 0x205fa,(A6-0x28) 00021eb0 34 81 |4 | MOVE.W D1,(A2) 00021eb2 42 80 |B | CLR.L D0 00021eb4 30 12 |0 | MOVE.W (A2),D0 00021eb6 06 80 00 00 03 00 | | ADDI.L #0x00000300,D0 00021ebc 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 00021ec2 63 02 |c | BLS 0x21ec6 00021ec4 4e 4f |NO | TRAP #15 00021ec6 34 80 |4 | MOVE.W D0,(A2) 00021ec8 48 54 |HT | PEA.L (A4) 00021eca 41 ee ff dd |A | LEA.L (A6-0x23),A0 00021ece 2f 08 |/ | MOVE.L A0,-(A7) 00021ed0 42 67 |Bg | CLR.W -(A7) 00021ed2 4e b9 00 01 02 04 |N | JSR KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W) 00021ed8 50 4f |PO | ADDQ.L #0x8,A7 00021eda 42 57 |BW | CLR.W (A7) 00021edc 48 6e ff dc |Hn | PEA.L (A6-0x24) 00021ee0 4e b9 00 01 02 06 |N | JSR KC03_Wait_Disk_IO(a : W; VAR status : Byte) 00021ee6 9e fc 00 12 | | SUBA.W #0x12,A7 00021eea 20 4f | O | MOVEA.L A7,A0 00021eec 43 fa e5 4c |C L | LEA.L 0x2043a,A1 00021ef0 70 16 |p | MOVEQ.L #0x16,D0 00021ef2 10 d9 | | MOVE.B (A1)+,(A0)+ 00021ef4 51 c8 ff fc |Q | DBF D0,0x21ef2 00021ef8 59 4f |YO | SUBQ.L #0x4,A7 00021efa 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021efe 3f 02 |? | MOVE.W D2,-(A7) 00021f00 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7) 00021f04 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00021f0a 50 4f |PO | ADDQ.L #0x8,A7 00021f0c 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00021f12 de fc 00 1c | | ADDA.W #0x1c,A7 00021f16 48 53 |HS | PEA.L (A3) 00021f18 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00021f1e 58 4f |XO | ADDQ.L #0x4,A7 00021f20 7e 00 |~ | MOVEQ.L #0x00,D7 00021f22 59 4f |YO | SUBQ.L #0x4,A7 00021f24 2f 13 |/ | MOVE.L (A3),-(A7) 00021f26 59 4f |YO | SUBQ.L #0x4,A7 00021f28 be 81 | | CMP.L D1,D7 00021f2a 63 02 |c | BLS 0x21f2e 00021f2c 4e 4f |NO | TRAP #15 00021f2e 42 80 |B | CLR.L D0 00021f30 10 36 78 dd | 6x | MOVE.B (A6+D7.L-#0x23),D0 00021f34 2f 00 |/ | MOVE.L D0,-(A7) 00021f36 48 78 00 02 |Hx | PEA.L 0x2 00021f3a 4e b9 00 01 02 e8 |N | JSR Long2HexString(val : Long; ndig : Long) : String 00021f40 50 4f |PO | ADDQ.L #0x8,A7 00021f42 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00021f48 50 4f |PO | ADDQ.L #0x8,A7 00021f4a 26 9f |& | MOVE.L (A7)+,(A3) 00021f4c 2f 13 |/ | MOVE.L (A3),-(A7) 00021f4e 1f 3c 00 20 | < | MOVE.B #0x20,-(A7) 00021f52 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00021f58 5c 4f |\O | ADDQ.L #0x6,A7 00021f5a 52 87 |R | ADDQ.L #0x1,D7 00021f5c be 81 | | CMP.L D1,D7 00021f5e 6f c2 |o | BLE 0x21f22 00021f60 2f 13 |/ | MOVE.L (A3),-(A7) 00021f62 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00021f68 58 4f |XO | ADDQ.L #0x4,A7 00021f6a 4c df 1f 87 |L | MOVEM.L (A7)+,D0+D1+D2+D7+A0+A1+A2+A3+A4 00021f6e 4e 5e |N^ | UNLK A6 00021f70 4e 75 |Nu | RTS 00021f72 ; -------------------------------------------------------------------------------------- 00021f72 ; OMSI PASCAL Function 00021f72 ; <LVAR 0x008 4(r)> 00021f72 ; <LVAR -0x002 @ 1(r)> 00021f72 ; <LVAR -0x006 @> 00021f72 ; <LVAR -0x008 @ 1(r)> 00021f72 ; <LVAR -0x00c @ 4(r)> 00021f72 ; <LVAR -0x012 @ 1(r)> 00021f72 ; <LVAR -0x016 @ 4(r)> 00021f72 ; <LVAR -0x01e @ 4(r)> 00021f72 ; <LVAR -0x020 @ 1(r)> 00021f72 ; <LVAR -0x028 @ 4(r)> 00021f72 ; -------------------------------------------------------------------------------------- 00021f72 4e 56 ff 58 |NV X | LINK.W A6,#0xff58 00021f76 bf d5 | | CMPA.L (A5),A7 00021f78 62 06 |b | BHI 0x21f80 00021f7a 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021f7e 4e 76 |Nv | TRAPV 00021f80 de fc 00 80 | | ADDA.W #0x80,A7 00021f84 48 e7 fb f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D4+D3+D2+D1+D0,-(A7) 00021f88 45 ee ff ee |E | LEA.L (A6-0x12),A2 00021f8c 47 f9 00 02 73 3c |G s< | LEA.L 0x2733c,A3 00021f92 72 01 |r | MOVEQ.L #0x01,D1 00021f94 74 02 |t | MOVEQ.L #0x02,D2 00021f96 76 0a |v | MOVEQ.L #0x0a,D3 00021f98 78 0e |x | MOVEQ.L #0x0e,D4 00021f9a 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00021f9e 1f 01 | | MOVE.B D1,-(A7) 00021fa0 48 6e ff fe |Hn | PEA.L (A6-0x2) 00021fa4 48 6e ff f4 |Hn | PEA.L (A6-0xc) 00021fa8 48 6e ff f8 |Hn | PEA.L (A6-0x8) 00021fac 4e ba fa 54 |N T | JSR 0x21a02 00021fb0 de c4 | | ADDA.W D4,A7 00021fb2 1e ba e4 de | | MOVE.B 0x20492,(A7) 00021fb6 1f 7a e4 db 00 01 | z | MOVE.B 0x20493,(A7+0x1) 00021fbc 1f 7a e4 d6 00 02 | z | MOVE.B 0x20494,(A7+0x2) 00021fc2 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00021fc6 59 4f |YO | SUBQ.L #0x4,A7 00021fc8 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00021fcc 3f 01 |? | MOVE.W D1,-(A7) 00021fce 3f 3c 00 03 |?< | MOVE.W #0x3,-(A7) 00021fd2 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00021fd8 5c 4f |\O | ADDQ.L #0x6,A7 00021fda 42 17 |B | CLR.B (A7) 00021fdc 48 6e ff e0 |Hn | PEA.L (A6-0x20) 00021fe0 48 6e ff fa |Hn | PEA.L (A6-0x6) 00021fe4 4e ba f7 b4 |N | JSR 0x2179a 00021fe8 de fc 00 16 | | ADDA.W #0x16,A7 00021fec 7e 00 |~ | MOVEQ.L #0x00,D7 00021fee 48 6e ff ea |Hn | PEA.L (A6-0x16) 00021ff2 4e b9 00 01 03 04 |N | JSR GetRtc() : TimeStamp 00021ff8 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00021ffc 4e b9 00 02 34 42 |N 4B | JSR 0x23442 00022002 58 4f |XO | ADDQ.L #0x4,A7 00022004 7c 01 || | MOVEQ.L #0x01,D6 00022006 bc 97 | | CMP.L (A7),D6 00022008 6e 64 |nd | BGT 0x2206e 0002200a 59 4f |YO | SUBQ.L #0x4,A7 0002200c 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022010 2f 06 |/ | MOVE.L D6,-(A7) 00022012 4e b9 00 02 3d 5e |N =^ | JSR 0x23d5e 00022018 50 4f |PO | ADDQ.L #0x8,A7 0002201a 28 5f |(_ | MOVEA.L (A7)+,A4 0002201c 1f 01 | | MOVE.B D1,-(A7) 0002201e 2f 0c |/ | MOVE.L A4,-(A7) 00022020 48 6e ff d8 |Hn | PEA.L (A6-0x28) 00022024 4e b9 00 01 04 58 |N X | JSR DirFirst(MOD c : Bool; a : String; VAR b : File) 0002202a de c3 | | ADDA.W D3,A7 0002202c 20 6e ff d8 | n | MOVEA.L (A6-0x28),A0 00022030 b0 c1 | | CMPA.W D1,A0 00022032 67 36 |g6 | BEQ 0x2206a 00022034 1f 2e ff fe | . | MOVE.B (A6-0x2),-(A7) 00022038 2f 2e ff f4 |/. | MOVE.L (A6-0xc),-(A7) 0002203c 2f 08 |/ | MOVE.L A0,-(A7) 0002203e 4e ba f5 78 |N x | JSR 0x215b8 00022042 de c3 | | ADDA.W D3,A7 00022044 4a 13 |J | TST.B (A3) 00022046 66 10 |f | BNE 0x22058 00022048 4e b9 00 01 04 20 |N | JSR FSCALL_10420 0002204e 48 52 |HR | PEA.L (A2) 00022050 4e b9 00 01 04 08 |N | JSR FSCALL_10408 00022056 58 4f |XO | ADDQ.L #0x4,A7 00022058 52 87 |R | ADDQ.L #0x1,D7 0002205a 42 27 |B' | CLR.B -(A7) 0002205c 48 6e ff d8 |Hn | PEA.L (A6-0x28) 00022060 4e b9 00 01 04 5c |N \ | JSR DirNext(MOD a : Bool; VAR b : File) 00022066 5c 4f |\O | ADDQ.L #0x6,A7 00022068 60 c2 |` | BRA 0x2202c 0002206a 52 86 |R | ADDQ.L #0x1,D6 0002206c 68 98 |h | BVC 0x22006 0002206e 58 4f |XO | ADDQ.L #0x4,A7 00022070 4a 13 |J | TST.B (A3) 00022072 67 4a |gJ | BEQ 0x220be 00022074 41 fa e4 1c |A | LEA.L 0x20492,A0 00022078 70 0f |p | MOVEQ.L #0x0f,D0 0002207a 2f 20 |/ | MOVE.L -(A0),-(A7) 0002207c 51 c8 ff fc |Q | DBF D0,0x2207a 00022080 59 4f |YO | SUBQ.L #0x4,A7 00022082 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022086 3f 01 |? | MOVE.W D1,-(A7) 00022088 3f 3c 00 40 |?< @ | MOVE.W #0x40,-(A7) 0002208c 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00022092 50 4f |PO | ADDQ.L #0x8,A7 00022094 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002209a de fc 00 44 | D | ADDA.W #0x44,A7 0002209e 4e b9 00 01 04 20 |N | JSR FSCALL_10420 000220a4 48 52 |HR | PEA.L (A2) 000220a6 4e b9 00 01 04 08 |N | JSR FSCALL_10408 000220ac 58 4f |XO | ADDQ.L #0x4,A7 000220ae 4a 12 |J | TST.B (A2) 000220b0 67 0c |g | BEQ 0x220be 000220b2 1f 02 | | MOVE.B D2,-(A7) 000220b4 48 52 |HR | PEA.L (A2) 000220b6 4e b9 00 01 04 28 |N ( | JSR FSCALL_10428 000220bc 5c 4f |\O | ADDQ.L #0x6,A7 000220be 4e b9 00 01 04 20 |N | JSR FSCALL_10420 000220c4 48 52 |HR | PEA.L (A2) 000220c6 4e b9 00 01 04 08 |N | JSR FSCALL_10408 000220cc 58 4f |XO | ADDQ.L #0x4,A7 000220ce 4a 12 |J | TST.B (A2) 000220d0 67 0c |g | BEQ 0x220de 000220d2 1f 02 | | MOVE.B D2,-(A7) 000220d4 48 52 |HR | PEA.L (A2) 000220d6 4e b9 00 01 04 28 |N ( | JSR FSCALL_10428 000220dc 5c 4f |\O | ADDQ.L #0x6,A7 000220de 4a 2e ff f8 |J. | TST.B (A6-0x8) 000220e2 67 1e |g | BEQ 0x22102 000220e4 1f 01 | | MOVE.B D1,-(A7) 000220e6 48 52 |HR | PEA.L (A2) 000220e8 4e b9 00 01 04 14 |N | JSR FSCALL_10414 000220ee 5c 4f |\O | ADDQ.L #0x6,A7 000220f0 4a 12 |J | TST.B (A2) 000220f2 67 0c |g | BEQ 0x22100 000220f4 1f 02 | | MOVE.B D2,-(A7) 000220f6 48 52 |HR | PEA.L (A2) 000220f8 4e b9 00 01 04 28 |N ( | JSR FSCALL_10428 000220fe 5c 4f |\O | ADDQ.L #0x6,A7 00022100 60 1e |` | BRA 0x22120 00022102 1f 3c 00 05 | < | MOVE.B #0x05,-(A7) 00022106 48 52 |HR | PEA.L (A2) 00022108 4e b9 00 01 04 14 |N | JSR FSCALL_10414 0002210e 5c 4f |\O | ADDQ.L #0x6,A7 00022110 4a 12 |J | TST.B (A2) 00022112 67 0c |g | BEQ 0x22120 00022114 1f 02 | | MOVE.B D2,-(A7) 00022116 48 52 |HR | PEA.L (A2) 00022118 4e b9 00 01 04 28 |N ( | JSR FSCALL_10428 0002211e 5c 4f |\O | ADDQ.L #0x6,A7 00022120 48 6e ff e2 |Hn | PEA.L (A6-0x1e) 00022124 4e b9 00 01 03 04 |N | JSR GetRtc() : TimeStamp 0002212a 2e ae ff ea |. | MOVE.L (A6-0x16),(A7) 0002212e 2f 2e ff e2 |/. | MOVE.L (A6-0x1e),-(A7) 00022132 4e ba e5 62 |N b | JSR 0x20696 00022136 50 4f |PO | ADDQ.L #0x8,A7 00022138 4e b9 00 01 04 10 |N | JSR FSCALL_10410 0002213e 9e c3 | | SUBA.W D3,A7 00022140 20 4f | O | MOVEA.L A7,A0 00022142 43 fa e3 52 |C R | LEA.L 0x20496,A1 00022146 70 08 |p | MOVEQ.L #0x08,D0 00022148 10 d9 | | MOVE.B (A1)+,(A0)+ 0002214a 51 c8 ff fc |Q | DBF D0,0x22148 0002214e 41 fa e3 5e |A ^ | LEA.L 0x204ae,A0 00022152 70 06 |p | MOVEQ.L #0x06,D0 00022154 3f 20 |? | MOVE.W -(A0),-(A7) 00022156 51 c8 ff fc |Q | DBF D0,0x22154 0002215a 51 4f |QO | SUBQ.L #0x8,A7 0002215c 48 6f 00 16 |Ho | PEA.L (A7+0x16) 00022160 3f 01 |? | MOVE.W D1,-(A7) 00022162 3f 3c 00 09 |?< | MOVE.W #0x9,-(A7) 00022166 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002216c 2e 87 |. | MOVE.L D7,(A7) 0002216e 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00022174 48 6f 00 10 |Ho | PEA.L (A7+0x10) 00022178 3f 01 |? | MOVE.W D1,-(A7) 0002217a 3f 04 |? | MOVE.W D4,-(A7) 0002217c 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00022182 50 4f |PO | ADDQ.L #0x8,A7 00022184 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 0002218a de fc 00 0c | | ADDA.W #0xc,A7 0002218e 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00022194 de fc 00 1c | | ADDA.W #0x1c,A7 00022198 4a 13 |J | TST.B (A3) 0002219a 67 0e |g | BEQ 0x221aa 0002219c 4a 2e ff e0 |J. | TST.B (A6-0x20) 000221a0 67 08 |g | BEQ 0x221aa 000221a2 4e ba fb 88 |N | JSR 0x21d2c 000221a6 4e ba fc 7e |N ~ | JSR 0x21e26 000221aa 4c df 1f df |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D6+D7+A0+A1+A2+A3+A4 000221ae 4e 5e |N^ | UNLK A6 000221b0 4e 75 |Nu | RTS 000221b2 ; -------------------------------------------------------------------------------------- 000221b2 ; OMSI PASCAL Function 000221b2 ; <LVAR 0x008 4(r)> 000221b2 ; <LVAR -0x003 @ 1(r)> 000221b2 ; <LVAR -0x008 @ 4(r)> 000221b2 ; <LVAR -0x00c @ 4(r)> 000221b2 ; <LVAR -0x00d @ 1(r)> 000221b2 ; <LVAR -0x00e @ 1(r)> 000221b2 ; <LVAR -0x012 @ 4(rw)> 000221b2 ; <LVAR -0x014 @> 000221b2 ; <LVAR -0x019 @ 1(r)> 000221b2 ; <LVAR -0x01a @ 1(r)> 000221b2 ; <LVAR -0x01e @ 4(r)> 000221b2 ; <LVAR -0x020 @ 1(r)> 000221b2 ; <LVAR -0x022 @ 1(r)> 000221b2 ; <LVAR -0x023 @ 1(r)> 000221b2 ; <LVAR -0x024 @ 1(r)> 000221b2 ; <LVAR -0x02c @> 000221b2 ; -------------------------------------------------------------------------------------- 000221b2 4e 56 ff 62 |NV b | LINK.W A6,#0xff62 000221b6 bf d5 | | CMPA.L (A5),A7 000221b8 62 06 |b | BHI 0x221c0 000221ba 44 fc 00 02 |D | MOVE.W #0x2,CCR 000221be 4e 76 |Nv | TRAPV 000221c0 de fc 00 72 | r | ADDA.W #0x72,A7 000221c4 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 000221c8 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 000221ce 47 ee 00 08 |G | LEA.L (A6+0x8),A3 000221d2 49 fa f5 c6 |I | LEA.L 0x2179a,A4 000221d6 74 01 |t | MOVEQ.L #0x01,D2 000221d8 76 02 |v | MOVEQ.L #0x02,D3 000221da 78 10 |x | MOVEQ.L #0x10,D4 000221dc 2f 13 |/ | MOVE.L (A3),-(A7) 000221de 42 27 |B' | CLR.B -(A7) 000221e0 48 6e ff e0 |Hn | PEA.L (A6-0x20) 000221e4 48 6e ff e2 |Hn | PEA.L (A6-0x1e) 000221e8 48 6e ff e7 |Hn | PEA.L (A6-0x19) 000221ec 4e ba f8 14 |N | JSR 0x21a02 000221f0 de c4 | | ADDA.W D4,A7 000221f2 3e ba e2 ba |> | MOVE.W 0x204ae,(A7) 000221f6 2f 13 |/ | MOVE.L (A3),-(A7) 000221f8 59 4f |YO | SUBQ.L #0x4,A7 000221fa 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000221fe 3f 02 |? | MOVE.W D2,-(A7) 00022200 3f 03 |? | MOVE.W D3,-(A7) 00022202 4e 92 |N | JSR (A2) 00022204 5c 4f |\O | ADDQ.L #0x6,A7 00022206 42 17 |B | CLR.B (A7) 00022208 48 6e ff e6 |Hn | PEA.L (A6-0x1a) 0002220c 48 6e ff d4 |Hn | PEA.L (A6-0x2c) 00022210 4e 94 |N | JSR (A4) 00022212 de fc 00 12 | | ADDA.W #0x12,A7 00022216 3e ba e2 98 |> | MOVE.W 0x204b0,(A7) 0002221a 2f 13 |/ | MOVE.L (A3),-(A7) 0002221c 59 4f |YO | SUBQ.L #0x4,A7 0002221e 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00022222 3f 02 |? | MOVE.W D2,-(A7) 00022224 3f 03 |? | MOVE.W D3,-(A7) 00022226 4e 92 |N | JSR (A2) 00022228 5c 4f |\O | ADDQ.L #0x6,A7 0002222a 42 17 |B | CLR.B (A7) 0002222c 48 6e ff f2 |Hn | PEA.L (A6-0xe) 00022230 48 6e ff d4 |Hn | PEA.L (A6-0x2c) 00022234 4e 94 |N | JSR (A4) 00022236 de fc 00 12 | | ADDA.W #0x12,A7 0002223a 3e ba e2 76 |> v | MOVE.W 0x204b2,(A7) 0002223e 2f 13 |/ | MOVE.L (A3),-(A7) 00022240 59 4f |YO | SUBQ.L #0x4,A7 00022242 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00022246 3f 02 |? | MOVE.W D2,-(A7) 00022248 3f 03 |? | MOVE.W D3,-(A7) 0002224a 4e 92 |N | JSR (A2) 0002224c 5c 4f |\O | ADDQ.L #0x6,A7 0002224e 42 17 |B | CLR.B (A7) 00022250 48 6e ff f3 |Hn | PEA.L (A6-0xd) 00022254 48 6e ff d4 |Hn | PEA.L (A6-0x2c) 00022258 4e 94 |N | JSR (A4) 0002225a de c4 | | ADDA.W D4,A7 0002225c 2e ba e2 56 |. V | MOVE.L 0x204b4,(A7) 00022260 2f 13 |/ | MOVE.L (A3),-(A7) 00022262 59 4f |YO | SUBQ.L #0x4,A7 00022264 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00022268 3f 02 |? | MOVE.W D2,-(A7) 0002226a 3f 3c 00 04 |?< | MOVE.W #0x4,-(A7) 0002226e 4e 92 |N | JSR (A2) 00022270 5c 4f |\O | ADDQ.L #0x6,A7 00022272 42 17 |B | CLR.B (A7) 00022274 48 6e ff fd |Hn | PEA.L (A6-0x3) 00022278 48 6e ff d4 |Hn | PEA.L (A6-0x2c) 0002227c 4e 94 |N | JSR (A4) 0002227e de fc 00 14 | | ADDA.W #0x14,A7 00022282 3e ba e2 34 |> 4 | MOVE.W 0x204b8,(A7) 00022286 2f 13 |/ | MOVE.L (A3),-(A7) 00022288 59 4f |YO | SUBQ.L #0x4,A7 0002228a 48 6f 00 08 |Ho | PEA.L (A7+0x8) 0002228e 3f 02 |? | MOVE.W D2,-(A7) 00022290 3f 03 |? | MOVE.W D3,-(A7) 00022292 4e 92 |N | JSR (A2) 00022294 5c 4f |\O | ADDQ.L #0x6,A7 00022296 1e 82 | | MOVE.B D2,(A7) 00022298 48 6e ff ec |Hn | PEA.L (A6-0x14) 0002229c 48 6e ff ee |Hn | PEA.L (A6-0x12) 000222a0 4e 94 |N | JSR (A4) 000222a2 de c4 | | ADDA.W D4,A7 000222a4 1e ba e2 14 | | MOVE.B 0x204ba,(A7) 000222a8 1f 7a e2 11 00 01 | z | MOVE.B 0x204bb,(A7+0x1) 000222ae 1f 7a e2 0c 00 02 | z | MOVE.B 0x204bc,(A7+0x2) 000222b4 2f 13 |/ | MOVE.L (A3),-(A7) 000222b6 59 4f |YO | SUBQ.L #0x4,A7 000222b8 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000222bc 3f 02 |? | MOVE.W D2,-(A7) 000222be 3f 3c 00 03 |?< | MOVE.W #0x3,-(A7) 000222c2 4e 92 |N | JSR (A2) 000222c4 5c 4f |\O | ADDQ.L #0x6,A7 000222c6 42 17 |B | CLR.B (A7) 000222c8 48 6e ff dc |Hn | PEA.L (A6-0x24) 000222cc 48 6e ff d4 |Hn | PEA.L (A6-0x2c) 000222d0 4e 94 |N | JSR (A4) 000222d2 de fc 00 16 | | ADDA.W #0x16,A7 000222d6 20 6e ff ee | n | MOVEA.L (A6-0x12),A0 000222da b0 c2 | | CMPA.W D2,A0 000222dc 66 18 |f | BNE 0x222f6 000222de 3f 3a e1 de |?: | MOVE.W 0x204be,-(A7) 000222e2 59 4f |YO | SUBQ.L #0x4,A7 000222e4 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000222e8 3f 02 |? | MOVE.W D2,-(A7) 000222ea 3f 03 |? | MOVE.W D3,-(A7) 000222ec 4e 92 |N | JSR (A2) 000222ee 50 4f |PO | ADDQ.L #0x8,A7 000222f0 2d 5f ff ee |-_ | MOVE.L (A7)+,(A6-0x12) 000222f4 54 4f |TO | ADDQ.L #0x2,A7 000222f6 7e ff |~ | MOVEQ.L #-0x01,D7 000222f8 42 b9 00 02 73 38 |B s8 | CLR.L 0x27338 000222fe 48 6e ff f4 |Hn | PEA.L (A6-0xc) 00022302 4e b9 00 01 03 04 |N | JSR GetRtc() : TimeStamp 00022308 58 4f |XO | ADDQ.L #0x4,A7 0002230a 7c 00 || | MOVEQ.L #0x00,D6 0002230c 20 6e ff ee | n | MOVEA.L (A6-0x12),A0 00022310 30 10 |0 | MOVE.W (A0),D0 00022312 48 c0 |H | EXTW.L D0 00022314 2f 00 |/ | MOVE.L D0,-(A7) 00022316 7a 01 |z | MOVEQ.L #0x01,D5 00022318 ba 97 | | CMP.L (A7),D5 0002231a 6e 2a |n* | BGT 0x22346 0002231c 70 00 |p | MOVEQ.L #0x00,D0 0002231e 4a 06 |J | TST.B D6 00022320 66 1c |f | BNE 0x2233e 00022322 20 6e ff ee | n | MOVEA.L (A6-0x12),A0 00022326 22 05 |" | MOVE.L D5,D1 00022328 53 81 |S | SUBQ.L #0x1,D1 0002232a 0c 81 00 00 00 7d | } | CMPI.L #0x0000007d,D1 00022330 63 02 |c | BLS 0x22334 00022332 4e 4f |NO | TRAP #15 00022334 12 30 18 02 | 0 | MOVE.B (A0+D1.L+#0x2),D1 00022338 0c 01 00 2a | * | CMPI.B #0x2a,D1 0002233c 66 02 |f | BNE 0x22340 0002233e 52 00 |R | ADDQ.B #0x1,D0 00022340 1c 00 | | MOVE.B D0,D6 00022342 52 85 |R | ADDQ.L #0x1,D5 00022344 68 d2 |h | BVC 0x22318 00022346 58 4f |XO | ADDQ.L #0x4,A7 00022348 1f 2e ff e0 | . | MOVE.B (A6-0x20),-(A7) 0002234c 1f 2e ff e6 | . | MOVE.B (A6-0x1a),-(A7) 00022350 44 17 |D | NEG.B (A7) 00022352 52 17 |R | ADDQ.B #0x1,(A7) 00022354 1f 2e ff f2 | . | MOVE.B (A6-0xe),-(A7) 00022358 1f 2e ff f3 | . | MOVE.B (A6-0xd),-(A7) 0002235c 2f 2e ff e2 |/. | MOVE.L (A6-0x1e),-(A7) 00022360 48 6e ff ee |Hn | PEA.L (A6-0x12) 00022364 48 6e ff dd |Hn | PEA.L (A6-0x23) 00022368 4e ba e3 f8 |N | JSR 0x20762 0002236c de fc 00 14 | | ADDA.W #0x14,A7 00022370 52 87 |R | ADDQ.L #0x1,D7 00022372 4a 2e ff dd |J. | TST.B (A6-0x23) 00022376 66 0e |f | BNE 0x22386 00022378 4a 39 00 02 73 3d |J9 s= | TST.B 0x2733d 0002237e 67 c8 |g | BEQ 0x22348 00022380 4a 2e ff fd |J. | TST.B (A6-0x3) 00022384 67 c2 |g | BEQ 0x22348 00022386 48 6e ff f8 |Hn | PEA.L (A6-0x8) 0002238a 4e b9 00 01 03 04 |N | JSR GetRtc() : TimeStamp 00022390 2e ae ff f4 |. | MOVE.L (A6-0xc),(A7) 00022394 2f 2e ff f8 |/. | MOVE.L (A6-0x8),-(A7) 00022398 4e ba e2 fc |N | JSR 0x20696 0002239c 50 4f |PO | ADDQ.L #0x8,A7 0002239e 4a 39 00 02 73 3c |J9 s< | TST.B 0x2733c 000223a4 67 0e |g | BEQ 0x223b4 000223a6 4a 2e ff dc |J. | TST.B (A6-0x24) 000223aa 67 08 |g | BEQ 0x223b4 000223ac 4e ba f9 7e |N ~ | JSR 0x21d2c 000223b0 4e ba fa 74 |N t | JSR 0x21e26 000223b4 9e fc 00 0a | | SUBA.W #0xa,A7 000223b8 20 4f | O | MOVEA.L A7,A0 000223ba 43 fa e1 04 |C | LEA.L 0x204c0,A1 000223be 70 08 |p | MOVEQ.L #0x08,D0 000223c0 10 d9 | | MOVE.B (A1)+,(A0)+ 000223c2 51 c8 ff fc |Q | DBF D0,0x223c0 000223c6 9e fc 00 14 | | SUBA.W #0x14,A7 000223ca 20 4f | O | MOVEA.L A7,A0 000223cc 43 fa e0 fc |C | LEA.L 0x204ca,A1 000223d0 70 12 |p | MOVEQ.L #0x12,D0 000223d2 10 d9 | | MOVE.B (A1)+,(A0)+ 000223d4 51 c8 ff fc |Q | DBF D0,0x223d2 000223d8 51 4f |QO | SUBQ.L #0x8,A7 000223da 48 6f 00 1c |Ho | PEA.L (A7+0x1c) 000223de 3f 02 |? | MOVE.W D2,-(A7) 000223e0 3f 3c 00 09 |?< | MOVE.W #0x9,-(A7) 000223e4 4e 92 |N | JSR (A2) 000223e6 2e 87 |. | MOVE.L D7,(A7) 000223e8 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 000223ee 48 6f 00 10 |Ho | PEA.L (A7+0x10) 000223f2 3f 02 |? | MOVE.W D2,-(A7) 000223f4 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7) 000223f8 4e 92 |N | JSR (A2) 000223fa 50 4f |PO | ADDQ.L #0x8,A7 000223fc 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 00022402 de fc 00 0c | | ADDA.W #0xc,A7 00022406 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002240c de fc 00 18 | | ADDA.W #0x18,A7 00022410 20 4f | O | MOVEA.L A7,A0 00022412 43 fa e0 ca |C | LEA.L 0x204de,A1 00022416 70 08 |p | MOVEQ.L #0x08,D0 00022418 10 d9 | | MOVE.B (A1)+,(A0)+ 0002241a 51 c8 ff fc |Q | DBF D0,0x22418 0002241e 41 fa e0 e0 |A | LEA.L 0x20500,A0 00022422 70 05 |p | MOVEQ.L #0x05,D0 00022424 2f 20 |/ | MOVE.L -(A0),-(A7) 00022426 51 c8 ff fc |Q | DBF D0,0x22424 0002242a 51 4f |QO | SUBQ.L #0x8,A7 0002242c 48 6f 00 20 |Ho | PEA.L (A7+0x20) 00022430 3f 02 |? | MOVE.W D2,-(A7) 00022432 3f 3c 00 09 |?< | MOVE.W #0x9,-(A7) 00022436 4e 92 |N | JSR (A2) 00022438 2e b9 00 02 73 38 |. s8 | MOVE.L 0x27338,(A7) 0002243e 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00022444 48 6f 00 10 |Ho | PEA.L (A7+0x10) 00022448 3f 02 |? | MOVE.W D2,-(A7) 0002244a 3f 3c 00 18 |?< | MOVE.W #0x18,-(A7) 0002244e 4e 92 |N | JSR (A2) 00022450 50 4f |PO | ADDQ.L #0x8,A7 00022452 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 00022458 de fc 00 0c | | ADDA.W #0xc,A7 0002245c 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00022462 de fc 00 26 | & | ADDA.W #0x26,A7 00022466 4a 2e ff e7 |J. | TST.B (A6-0x19) 0002246a 67 24 |g$ | BEQ 0x22490 0002246c 1f 02 | | MOVE.B D2,-(A7) 0002246e 48 6e ff de |Hn | PEA.L (A6-0x22) 00022472 4e b9 00 01 04 14 |N | JSR FSCALL_10414 00022478 5c 4f |\O | ADDQ.L #0x6,A7 0002247a 4a 2e ff de |J. | TST.B (A6-0x22) 0002247e 67 0e |g | BEQ 0x2248e 00022480 1f 03 | | MOVE.B D3,-(A7) 00022482 48 6e ff de |Hn | PEA.L (A6-0x22) 00022486 4e b9 00 01 04 28 |N ( | JSR FSCALL_10428 0002248c 5c 4f |\O | ADDQ.L #0x6,A7 0002248e 60 18 |` | BRA 0x224a8 00022490 4a 39 00 02 73 3c |J9 s< | TST.B 0x2733c 00022496 66 10 |f | BNE 0x224a8 00022498 1f 3c 00 05 | < | MOVE.B #0x05,-(A7) 0002249c 48 6e ff de |Hn | PEA.L (A6-0x22) 000224a0 4e b9 00 01 04 14 |N | JSR FSCALL_10414 000224a6 5c 4f |\O | ADDQ.L #0x6,A7 000224a8 4e b9 00 01 04 10 |N | JSR FSCALL_10410 000224ae 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 000224b2 4e 5e |N^ | UNLK A6 000224b4 4e 75 |Nu | RTS 000224b6 ; -------------------------------------------------------------------------------------- 000224b6 ; OMSI PASCAL Function 000224b6 ; <LVAR 0x008 4(r)> 000224b6 ; <LVAR -0x004 @ 1(r)> 000224b6 ; <LVAR -0x008 @> 000224b6 ; <LVAR -0x00a @ 1(r)> 000224b6 ; <LVAR -0x00e @ 4(r)> 000224b6 ; <LVAR -0x010 @ 1(r)> 000224b6 ; <LVAR -0x012 @ 1(r)> 000224b6 ; <LVAR -0x016 @ 4(r)> 000224b6 ; <LVAR -0x018 @> 000224b6 ; <LVAR -0x01d @ 1(r)> 000224b6 ; <LVAR -0x01e @ 1(r)> 000224b6 ; <LVAR -0x024 @ 1(r)> 000224b6 ; <LVAR -0x028 @ 4(r)> 000224b6 ; <LVAR -0x02a @ 1(r)> 000224b6 ; <LVAR -0x030 @ 1(r)> 000224b6 ; <LVAR -0x034 @ 4(rw)> 000224b6 ; -------------------------------------------------------------------------------------- 000224b6 4e 56 ff 42 |NV B | LINK.W A6,#0xff42 000224ba bf d5 | | CMPA.L (A5),A7 000224bc 62 06 |b | BHI 0x224c4 000224be 44 fc 00 02 |D | MOVE.W #0x2,CCR 000224c2 4e 76 |Nv | TRAPV 000224c4 de fc 00 8a | | ADDA.W #0x8a,A7 000224c8 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 000224cc 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 000224d2 47 ee 00 08 |G | LEA.L (A6+0x8),A3 000224d6 49 fa f2 c2 |I | LEA.L 0x2179a,A4 000224da 72 01 |r | MOVEQ.L #0x01,D1 000224dc 74 02 |t | MOVEQ.L #0x02,D2 000224de 76 0c |v | MOVEQ.L #0x0c,D3 000224e0 78 0b |x | MOVEQ.L #0x0b,D4 000224e2 7a 1a |z | MOVEQ.L #0x1a,D5 000224e4 2f 13 |/ | MOVE.L (A3),-(A7) 000224e6 42 27 |B' | CLR.B -(A7) 000224e8 48 6e ff fc |Hn | PEA.L (A6-0x4) 000224ec 48 6e ff f2 |Hn | PEA.L (A6-0xe) 000224f0 48 6e ff f6 |Hn | PEA.L (A6-0xa) 000224f4 4e ba f5 0c |N | JSR 0x21a02 000224f8 de fc 00 0e | | ADDA.W #0xe,A7 000224fc 1e ba e0 02 | | MOVE.B 0x20500,(A7) 00022500 1f 7a df ff 00 01 | z | MOVE.B 0x20501,(A7+0x1) 00022506 1f 7a df fa 00 02 | z | MOVE.B 0x20502,(A7+0x2) 0002250c 2f 13 |/ | MOVE.L (A3),-(A7) 0002250e 59 4f |YO | SUBQ.L #0x4,A7 00022510 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00022514 3f 01 |? | MOVE.W D1,-(A7) 00022516 3f 3c 00 03 |?< | MOVE.W #0x3,-(A7) 0002251a 4e 92 |N | JSR (A2) 0002251c 5c 4f |\O | ADDQ.L #0x6,A7 0002251e 42 17 |B | CLR.B (A7) 00022520 48 6e ff d0 |Hn | PEA.L (A6-0x30) 00022524 48 6e ff f8 |Hn | PEA.L (A6-0x8) 00022528 4e 94 |N | JSR (A4) 0002252a de fc 00 14 | | ADDA.W #0x14,A7 0002252e 3e ba df d4 |> | MOVE.W 0x20504,(A7) 00022532 2f 13 |/ | MOVE.L (A3),-(A7) 00022534 59 4f |YO | SUBQ.L #0x4,A7 00022536 48 6f 00 08 |Ho | PEA.L (A7+0x8) 0002253a 3f 01 |? | MOVE.W D1,-(A7) 0002253c 3f 02 |? | MOVE.W D2,-(A7) 0002253e 4e 92 |N | JSR (A2) 00022540 5c 4f |\O | ADDQ.L #0x6,A7 00022542 42 17 |B | CLR.B (A7) 00022544 48 6e ff e2 |Hn | PEA.L (A6-0x1e) 00022548 48 6e ff f8 |Hn | PEA.L (A6-0x8) 0002254c 4e 94 |N | JSR (A4) 0002254e de fc 00 12 | | ADDA.W #0x12,A7 00022552 3e ba df b2 |> | MOVE.W 0x20506,(A7) 00022556 2f 13 |/ | MOVE.L (A3),-(A7) 00022558 59 4f |YO | SUBQ.L #0x4,A7 0002255a 48 6f 00 08 |Ho | PEA.L (A7+0x8) 0002255e 3f 01 |? | MOVE.W D1,-(A7) 00022560 3f 02 |? | MOVE.W D2,-(A7) 00022562 4e 92 |N | JSR (A2) 00022564 5c 4f |\O | ADDQ.L #0x6,A7 00022566 1e 81 | | MOVE.B D1,(A7) 00022568 48 6e ff e8 |Hn | PEA.L (A6-0x18) 0002256c 48 6e ff cc |Hn | PEA.L (A6-0x34) 00022570 4e 94 |N | JSR (A4) 00022572 de fc 00 10 | | ADDA.W #0x10,A7 00022576 2e ba df 90 |. | MOVE.L 0x20508,(A7) 0002257a 2f 13 |/ | MOVE.L (A3),-(A7) 0002257c 59 4f |YO | SUBQ.L #0x4,A7 0002257e 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00022582 3f 01 |? | MOVE.W D1,-(A7) 00022584 3f 3c 00 04 |?< | MOVE.W #0x4,-(A7) 00022588 4e 92 |N | JSR (A2) 0002258a 5c 4f |\O | ADDQ.L #0x6,A7 0002258c 42 17 |B | CLR.B (A7) 0002258e 48 6e ff f0 |Hn | PEA.L (A6-0x10) 00022592 48 6e ff f8 |Hn | PEA.L (A6-0x8) 00022596 4e 94 |N | JSR (A4) 00022598 de fc 00 16 | | ADDA.W #0x16,A7 0002259c 20 6e ff cc | n | MOVEA.L (A6-0x34),A0 000225a0 b0 c1 | | CMPA.W D1,A0 000225a2 66 18 |f | BNE 0x225bc 000225a4 3f 3a df 66 |?: f | MOVE.W 0x2050c,-(A7) 000225a8 59 4f |YO | SUBQ.L #0x4,A7 000225aa 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000225ae 3f 01 |? | MOVE.W D1,-(A7) 000225b0 3f 02 |? | MOVE.W D2,-(A7) 000225b2 4e 92 |N | JSR (A2) 000225b4 50 4f |PO | ADDQ.L #0x8,A7 000225b6 2d 5f ff cc |-_ | MOVE.L (A7)+,(A6-0x34) 000225ba 54 4f |TO | ADDQ.L #0x2,A7 000225bc 7e 00 |~ | MOVEQ.L #0x00,D7 000225be 42 b9 00 02 73 38 |B s8 | CLR.L 0x27338 000225c4 7c 00 || | MOVEQ.L #0x00,D6 000225c6 48 6e ff ea |Hn | PEA.L (A6-0x16) 000225ca 4e b9 00 01 03 04 |N | JSR GetRtc() : TimeStamp 000225d0 58 4f |XO | ADDQ.L #0x4,A7 000225d2 1f 2e ff fc | . | MOVE.B (A6-0x4),-(A7) 000225d6 1f 2e ff e2 | . | MOVE.B (A6-0x1e),-(A7) 000225da 2f 2e ff f2 |/. | MOVE.L (A6-0xe),-(A7) 000225de 1f 2e ff f0 | . | MOVE.B (A6-0x10),-(A7) 000225e2 48 6e ff cc |Hn | PEA.L (A6-0x34) 000225e6 48 6e ff d6 |Hn | PEA.L (A6-0x2a) 000225ea 48 6e ff dc |Hn | PEA.L (A6-0x24) 000225ee 48 6e ff e3 |Hn | PEA.L (A6-0x1d) 000225f2 4e ba e7 c2 |N | JSR 0x20db6 000225f6 de c5 | | ADDA.W D5,A7 000225f8 4a 2e ff d6 |J. | TST.B (A6-0x2a) 000225fc 66 10 |f | BNE 0x2260e 000225fe 4a 2e ff dc |J. | TST.B (A6-0x24) 00022602 67 02 |g | BEQ 0x22606 00022604 52 87 |R | ADDQ.L #0x1,D7 00022606 4a 2e ff e3 |J. | TST.B (A6-0x1d) 0002260a 67 02 |g | BEQ 0x2260e 0002260c 52 86 |R | ADDQ.L #0x1,D6 0002260e 4a 2e ff d6 |J. | TST.B (A6-0x2a) 00022612 67 be |g | BEQ 0x225d2 00022614 48 6e ff d8 |Hn | PEA.L (A6-0x28) 00022618 4e b9 00 01 03 04 |N | JSR GetRtc() : TimeStamp 0002261e 2e ae ff ea |. | MOVE.L (A6-0x16),(A7) 00022622 2f 2e ff d8 |/. | MOVE.L (A6-0x28),-(A7) 00022626 4e ba e0 6e |N n | JSR 0x20696 0002262a 50 4f |PO | ADDQ.L #0x8,A7 0002262c 4a 39 00 02 73 3c |J9 s< | TST.B 0x2733c 00022632 67 0e |g | BEQ 0x22642 00022634 4a 2e ff d0 |J. | TST.B (A6-0x30) 00022638 67 08 |g | BEQ 0x22642 0002263a 4e ba f6 f0 |N | JSR 0x21d2c 0002263e 4e ba f7 e6 |N | JSR 0x21e26 00022642 9e c3 | | SUBA.W D3,A7 00022644 20 4f | O | MOVEA.L A7,A0 00022646 43 fa de c6 |C | LEA.L 0x2050e,A1 0002264a 70 0a |p | MOVEQ.L #0x0a,D0 0002264c 10 d9 | | MOVE.B (A1)+,(A0)+ 0002264e 51 c8 ff fc |Q | DBF D0,0x2264c 00022652 9e c5 | | SUBA.W D5,A7 00022654 20 4f | O | MOVEA.L A7,A0 00022656 43 fa de c2 |C | LEA.L 0x2051a,A1 0002265a 70 18 |p | MOVEQ.L #0x18,D0 0002265c 10 d9 | | MOVE.B (A1)+,(A0)+ 0002265e 51 c8 ff fc |Q | DBF D0,0x2265c 00022662 51 4f |QO | SUBQ.L #0x8,A7 00022664 48 6f 00 22 |Ho " | PEA.L (A7+0x22) 00022668 3f 01 |? | MOVE.W D1,-(A7) 0002266a 3f 04 |? | MOVE.W D4,-(A7) 0002266c 4e 92 |N | JSR (A2) 0002266e 2e b9 00 02 73 38 |. s8 | MOVE.L 0x27338,(A7) 00022674 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 0002267a 48 6f 00 10 |Ho | PEA.L (A7+0x10) 0002267e 3f 01 |? | MOVE.W D1,-(A7) 00022680 3f 3c 00 19 |?< | MOVE.W #0x19,-(A7) 00022684 4e 92 |N | JSR (A2) 00022686 50 4f |PO | ADDQ.L #0x8,A7 00022688 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 0002268e de c3 | | ADDA.W D3,A7 00022690 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00022696 de fc 00 1e | | ADDA.W #0x1e,A7 0002269a 20 4f | O | MOVEA.L A7,A0 0002269c 43 fa de 96 |C | LEA.L 0x20534,A1 000226a0 70 0a |p | MOVEQ.L #0x0a,D0 000226a2 10 d9 | | MOVE.B (A1)+,(A0)+ 000226a4 51 c8 ff fc |Q | DBF D0,0x226a2 000226a8 41 fa de c4 |A | LEA.L 0x2056e,A0 000226ac 70 16 |p | MOVEQ.L #0x16,D0 000226ae 3f 20 |? | MOVE.W -(A0),-(A7) 000226b0 51 c8 ff fc |Q | DBF D0,0x226ae 000226b4 51 4f |QO | SUBQ.L #0x8,A7 000226b6 48 6f 00 36 |Ho 6 | PEA.L (A7+0x36) 000226ba 3f 01 |? | MOVE.W D1,-(A7) 000226bc 3f 04 |? | MOVE.W D4,-(A7) 000226be 4e 92 |N | JSR (A2) 000226c0 2e 87 |. | MOVE.L D7,(A7) 000226c2 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 000226c8 48 6f 00 10 |Ho | PEA.L (A7+0x10) 000226cc 3f 01 |? | MOVE.W D1,-(A7) 000226ce 3f 3c 00 2e |?< . | MOVE.W #0x2e,-(A7) 000226d2 4e 92 |N | JSR (A2) 000226d4 50 4f |PO | ADDQ.L #0x8,A7 000226d6 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 000226dc de c3 | | ADDA.W D3,A7 000226de 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000226e4 de fc 00 32 | 2 | ADDA.W #0x32,A7 000226e8 20 4f | O | MOVEA.L A7,A0 000226ea 43 fa de 82 |C | LEA.L 0x2056e,A1 000226ee 70 0a |p | MOVEQ.L #0x0a,D0 000226f0 10 d9 | | MOVE.B (A1)+,(A0)+ 000226f2 51 c8 ff fc |Q | DBF D0,0x226f0 000226f6 41 fa de aa |A | LEA.L 0x205a2,A0 000226fa 70 09 |p | MOVEQ.L #0x09,D0 000226fc 2f 20 |/ | MOVE.L -(A0),-(A7) 000226fe 51 c8 ff fc |Q | DBF D0,0x226fc 00022702 51 4f |QO | SUBQ.L #0x8,A7 00022704 48 6f 00 30 |Ho 0 | PEA.L (A7+0x30) 00022708 3f 01 |? | MOVE.W D1,-(A7) 0002270a 3f 04 |? | MOVE.W D4,-(A7) 0002270c 4e 92 |N | JSR (A2) 0002270e 2e 86 |. | MOVE.L D6,(A7) 00022710 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00022716 48 6f 00 10 |Ho | PEA.L (A7+0x10) 0002271a 3f 01 |? | MOVE.W D1,-(A7) 0002271c 3f 3c 00 28 |?< ( | MOVE.W #0x28,-(A7) 00022720 4e 92 |N | JSR (A2) 00022722 50 4f |PO | ADDQ.L #0x8,A7 00022724 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 0002272a de c3 | | ADDA.W D3,A7 0002272c 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00022732 de fc 00 38 | 8 | ADDA.W #0x38,A7 00022736 4a 2e ff f6 |J. | TST.B (A6-0xa) 0002273a 67 24 |g$ | BEQ 0x22760 0002273c 1f 01 | | MOVE.B D1,-(A7) 0002273e 48 6e ff ee |Hn | PEA.L (A6-0x12) 00022742 4e b9 00 01 04 14 |N | JSR FSCALL_10414 00022748 5c 4f |\O | ADDQ.L #0x6,A7 0002274a 4a 2e ff ee |J. | TST.B (A6-0x12) 0002274e 67 0e |g | BEQ 0x2275e 00022750 1f 02 | | MOVE.B D2,-(A7) 00022752 48 6e ff ee |Hn | PEA.L (A6-0x12) 00022756 4e b9 00 01 04 28 |N ( | JSR FSCALL_10428 0002275c 5c 4f |\O | ADDQ.L #0x6,A7 0002275e 60 18 |` | BRA 0x22778 00022760 4a 39 00 02 73 3c |J9 s< | TST.B 0x2733c 00022766 66 10 |f | BNE 0x22778 00022768 1f 3c 00 05 | < | MOVE.B #0x05,-(A7) 0002276c 48 6e ff ee |Hn | PEA.L (A6-0x12) 00022770 4e b9 00 01 04 14 |N | JSR FSCALL_10414 00022776 5c 4f |\O | ADDQ.L #0x6,A7 00022778 4e b9 00 01 04 10 |N | JSR FSCALL_10410 0002277e 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00022782 4e 5e |N^ | UNLK A6 00022784 4e 75 |Nu | RTS 00022786 ; -------------------------------------------------------------------------------------- 00022786 ; OMSI PASCAL Function 00022786 ; <LVAR 0x008 4(r)> 00022786 ; <LVAR -0x002 @ 1(r)> 00022786 ; -------------------------------------------------------------------------------------- 00022786 4e 56 ff e2 |NV | LINK.W A6,#0xffe2 0002278a bf d5 | | CMPA.L (A5),A7 0002278c 62 06 |b | BHI 0x22794 0002278e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022792 4e 76 |Nv | TRAPV 00022794 de fc 00 1a | | ADDA.W #0x1a,A7 00022798 48 e7 81 80 |H | MOVEM.L A0+D7+D0,-(A7) 0002279c 41 ee ff fe |A | LEA.L (A6-0x2),A0 000227a0 55 4f |UO | SUBQ.L #0x2,A7 000227a2 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000227a6 4e ba f1 88 |N | JSR 0x21930 000227aa 58 4f |XO | ADDQ.L #0x4,A7 000227ac 30 1f |0 | MOVE.W (A7)+,D0 000227ae 41 bc 00 03 |A | CHK.W #0x3,D0 000227b2 3e 00 |> | MOVE.W D0,D7 000227b4 3f 07 |? | MOVE.W D7,-(A7) 000227b6 42 27 |B' | CLR.B -(A7) 000227b8 1f 3c 00 01 | < | MOVE.B #0x01,-(A7) 000227bc 48 50 |HP | PEA.L (A0) 000227be 4e b9 00 01 04 0c |N | JSR FSCALL_1040c 000227c4 de fc 00 0a | | ADDA.W #0xa,A7 000227c8 4a 10 |J | TST.B (A0) 000227ca 67 0e |g | BEQ 0x227da 000227cc 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 000227d0 48 50 |HP | PEA.L (A0) 000227d2 4e b9 00 01 04 28 |N ( | JSR FSCALL_10428 000227d8 5c 4f |\O | ADDQ.L #0x6,A7 000227da 4e b9 00 01 04 10 |N | JSR FSCALL_10410 000227e0 4c df 01 81 |L | MOVEM.L (A7)+,D0+D7+A0 000227e4 4e 5e |N^ | UNLK A6 000227e6 4e 75 |Nu | RTS 000227e8 ; -------------------------------------------------------------------------------------- 000227e8 ; OMSI PASCAL Function 000227e8 ; <LVAR 0x008 4(r)> 000227e8 ; <LVAR -0x002 @ 1(r)> 000227e8 ; -------------------------------------------------------------------------------------- 000227e8 4e 56 ff de |NV | LINK.W A6,#0xffde 000227ec bf d5 | | CMPA.L (A5),A7 000227ee 62 06 |b | BHI 0x227f6 000227f0 44 fc 00 02 |D | MOVE.W #0x2,CCR 000227f4 4e 76 |Nv | TRAPV 000227f6 de fc 00 1e | | ADDA.W #0x1e,A7 000227fa 48 e7 c1 80 |H | MOVEM.L A0+D7+D1+D0,-(A7) 000227fe 41 ee ff fe |A | LEA.L (A6-0x2),A0 00022802 72 02 |r | MOVEQ.L #0x02,D1 00022804 55 4f |UO | SUBQ.L #0x2,A7 00022806 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 0002280a 4e ba f1 24 |N $ | JSR 0x21930 0002280e 58 4f |XO | ADDQ.L #0x4,A7 00022810 30 1f |0 | MOVE.W (A7)+,D0 00022812 41 bc 00 03 |A | CHK.W #0x3,D0 00022816 3e 00 |> | MOVE.W D0,D7 00022818 3f 07 |? | MOVE.W D7,-(A7) 0002281a 42 27 |B' | CLR.B -(A7) 0002281c 42 27 |B' | CLR.B -(A7) 0002281e 48 50 |HP | PEA.L (A0) 00022820 4e b9 00 01 04 0c |N | JSR FSCALL_1040c 00022826 de fc 00 0a | | ADDA.W #0xa,A7 0002282a 4a 10 |J | TST.B (A0) 0002282c 67 0c |g | BEQ 0x2283a 0002282e 1f 01 | | MOVE.B D1,-(A7) 00022830 48 50 |HP | PEA.L (A0) 00022832 4e b9 00 01 04 28 |N ( | JSR FSCALL_10428 00022838 5c 4f |\O | ADDQ.L #0x6,A7 0002283a 1f 3c 00 01 | < | MOVE.B #0x01,-(A7) 0002283e 48 50 |HP | PEA.L (A0) 00022840 4e b9 00 01 04 14 |N | JSR FSCALL_10414 00022846 5c 4f |\O | ADDQ.L #0x6,A7 00022848 4a 10 |J | TST.B (A0) 0002284a 67 0c |g | BEQ 0x22858 0002284c 1f 01 | | MOVE.B D1,-(A7) 0002284e 48 50 |HP | PEA.L (A0) 00022850 4e b9 00 01 04 28 |N ( | JSR FSCALL_10428 00022856 5c 4f |\O | ADDQ.L #0x6,A7 00022858 4e b9 00 01 04 10 |N | JSR FSCALL_10410 0002285e 4c df 01 83 |L | MOVEM.L (A7)+,D0+D1+D7+A0 00022862 4e 5e |N^ | UNLK A6 00022864 4e 75 |Nu | RTS 00022866 ; -------------------------------------------------------------------------------------- 00022866 ; OMSI PASCAL Function 00022866 ; <LVAR 0x010 4(r)> 00022866 ; <LVAR 0x00c 4(r)> 00022866 ; <LVAR 0x008 4(r)> 00022866 ; <LVAR -0x006 @ 4(rw)> 00022866 ; -------------------------------------------------------------------------------------- 00022866 4e 56 ff b2 |NV | LINK.W A6,#0xffb2 0002286a bf d5 | | CMPA.L (A5),A7 0002286c 62 06 |b | BHI 0x22874 0002286e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022872 4e 76 |Nv | TRAPV 00022874 de fc 00 46 | F | ADDA.W #0x46,A7 00022878 48 e7 f3 f0 |H | MOVEM.L A3+A2+A1+A0+D7+D6+D3+D2+D1+D0,-(A7) 0002287c 45 ee 00 0c |E | LEA.L (A6+0xc),A2 00022880 47 ee ff fa |G | LEA.L (A6-0x6),A3 00022884 72 0a |r | MOVEQ.L #0x0a,D1 00022886 74 01 |t | MOVEQ.L #0x01,D2 00022888 76 04 |v | MOVEQ.L #0x04,D3 0002288a 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 0002288e 42 10 |B | CLR.B (A0) 00022890 7e 00 |~ | MOVEQ.L #0x00,D7 00022892 10 07 | | MOVE.B D7,D0 00022894 48 80 |H | EXTB.W D0 00022896 c1 c1 | | MULS.W D1,D0 00022898 41 fa dd 64 |A d | LEA.L 0x205fe,A0 0002289c 9e c1 | | SUBA.W D1,A7 0002289e 22 4f |"O | MOVEA.L A7,A1 000228a0 41 f0 00 00 |A | LEA.L (A0+D0.W),A0 000228a4 70 09 |p | MOVEQ.L #0x09,D0 000228a6 12 d8 | | MOVE.B (A0)+,(A1)+ 000228a8 51 c8 ff fc |Q | DBF D0,0x228a6 000228ac 59 4f |YO | SUBQ.L #0x4,A7 000228ae 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000228b2 3f 02 |? | MOVE.W D2,-(A7) 000228b4 3f 01 |? | MOVE.W D1,-(A7) 000228b6 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000228bc 50 4f |PO | ADDQ.L #0x8,A7 000228be 26 9f |& | MOVE.L (A7)+,(A3) 000228c0 58 4f |XO | ADDQ.L #0x4,A7 000228c2 2e 93 |. | MOVE.L (A3),(A7) 000228c4 2f 2e 00 10 |/. | MOVE.L (A6+0x10),-(A7) 000228c8 4e b9 00 01 02 c8 |N | JSR StringEqual(a, b : String) : Byte 000228ce 50 4f |PO | ADDQ.L #0x8,A7 000228d0 10 1f | | MOVE.B (A7)+,D0 000228d2 48 80 |H | EXTB.W D0 000228d4 41 82 |A | CHK.W D2,D0 000228d6 1c 00 | | MOVE.B D0,D6 000228d8 48 53 |HS | PEA.L (A3) 000228da 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000228e0 58 4f |XO | ADDQ.L #0x4,A7 000228e2 4a 06 |J | TST.B D6 000228e4 67 4e |gN | BEQ 0x22934 000228e6 10 07 | | MOVE.B D7,D0 000228e8 48 80 |H | EXTB.W D0 000228ea b0 43 | C | CMP.W D3,D0 000228ec 63 02 |c | BLS 0x228f0 000228ee 4e 4e |NN | TRAP #14 000228f0 d0 40 | @ | ADD.W D0,D0 000228f2 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 000228fa 00 0a | | .CONST 0xa ; [0x0] -> 0x22904 000228fc 00 12 | | .CONST 0x12 ; [0x1] -> 0x2290c 000228fe 00 1a | | .CONST 0x1a ; [0x2] -> 0x22914 00022900 00 22 | " | .CONST 0x22 ; [0x3] -> 0x2291c 00022902 00 2a | * | .CONST 0x2a ; [0x4] -> 0x22924 00022904 switch@0x228f2[0x0]: 00022904 2f 12 |/ | MOVE.L (A2),-(A7) 00022906 4e ba f8 aa |N | JSR 0x221b2 0002290a 60 1e |` | BRA 0x2292a 0002290c switch@0x228f2[0x1]: 0002290c 2f 12 |/ | MOVE.L (A2),-(A7) 0002290e 4e ba f6 62 |N b | JSR 0x21f72 00022912 60 16 |` | BRA 0x2292a 00022914 switch@0x228f2[0x2]: 00022914 2f 12 |/ | MOVE.L (A2),-(A7) 00022916 4e ba fe 6e |N n | JSR 0x22786 0002291a 60 0e |` | BRA 0x2292a 0002291c switch@0x228f2[0x3]: 0002291c 2f 12 |/ | MOVE.L (A2),-(A7) 0002291e 4e ba fb 96 |N | JSR 0x224b6 00022922 60 06 |` | BRA 0x2292a 00022924 switch@0x228f2[0x4]: 00022924 2f 12 |/ | MOVE.L (A2),-(A7) 00022926 4e ba fe c0 |N | JSR 0x227e8 0002292a 58 4f |XO | ADDQ.L #0x4,A7 0002292c 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00022930 10 82 | | MOVE.B D2,(A0) 00022932 60 08 |` | BRA 0x2293c 00022934 52 07 |R | ADDQ.B #0x1,D7 00022936 be 03 | | CMP.B D3,D7 00022938 6f 00 ff 58 |o X | BLE 0x22892 0002293c 4c df 0f cf |L | MOVEM.L (A7)+,D0+D1+D2+D3+D6+D7+A0+A1+A2+A3 00022940 4e 5e |N^ | UNLK A6 00022942 4e 75 |Nu | RTS 00022944 ; -------------------------------------------------------------------------------------- 00022944 ; OMSI PASCAL Function 00022944 ; <LVAR 0x008 4(r)> 00022944 ; -------------------------------------------------------------------------------------- 00022944 4e 56 ff f0 |NV | LINK.W A6,#0xfff0 00022948 bf d5 | | CMPA.L (A5),A7 0002294a 62 06 |b | BHI 0x22952 0002294c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022950 4e 76 |Nv | TRAPV 00022952 de fc 00 10 | | ADDA.W #0x10,A7 00022956 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7) 0002295a 4e b9 00 01 03 98 |N | JSR FSCALL_10398 00022960 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00022964 43 fa dc 6e |C n | LEA.L 0x205d4,A1 00022968 70 09 |p | MOVEQ.L #0x09,D0 0002296a 10 d9 | | MOVE.B (A1)+,(A0)+ 0002296c 51 c8 ff fc |Q | DBF D0,0x2296a 00022970 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1 00022974 4e 5e |N^ | UNLK A6 00022976 4e 75 |Nu | RTS 00022978 ; -------------------------------------------------------------------------------------- 00022978 ; COMMAND TABLE 00022978 ; -------------------------------------------------------------------------------------- 00022978 COMMAND_TABLE_22978: 00022978 21 40 23 24 25 5e 26 2a |!@#$%^&*| .TXT '!@#$%^&*()' 00022982 57 52 49 54 45 20 20 20 |WRITE | .TXT 'WRITE ' 0002298c 42 59 45 20 20 20 20 20 |BYE | .TXT 'BYE ' 00022996 48 45 41 50 20 20 20 20 |HEAP | .TXT 'HEAP ' 000229a0 48 45 4c 50 20 20 20 20 |HELP | .TXT 'HELP ' 000229aa 41 42 4f 52 54 20 20 20 |ABORT | .TXT 'ABORT ' 000229b4 43 4f 4d 4d 45 4e 54 20 |COMMENT | .TXT 'COMMENT ' 000229be 53 45 54 20 20 20 20 20 |SET | .TXT 'SET ' 000229c8 56 41 52 20 20 20 20 20 |VAR | .TXT 'VAR ' 000229d2 56 41 52 53 20 20 20 20 |VARS | .TXT 'VARS ' 000229dc 45 51 20 20 20 20 20 20 |EQ | .TXT 'EQ ' 000229e6 4e 45 20 20 20 20 20 20 |NE | .TXT 'NE ' 000229f0 43 41 53 45 20 20 20 20 |CASE | .TXT 'CASE ' 000229fa 49 4e 53 45 52 54 20 20 |INSERT | .TXT 'INSERT ' 00022a04 45 58 54 52 41 43 54 20 |EXTRACT | .TXT 'EXTRACT ' 00022a0e 23 43 41 53 45 20 20 20 |#CASE | .TXT '#CASE ' 00022a18 23 45 51 20 20 20 20 20 |#EQ | .TXT '#EQ ' 00022a22 23 4e 45 20 20 20 20 20 |#NE | .TXT '#NE ' 00022a2c 23 4c 54 20 20 20 20 20 |#LT | .TXT '#LT ' 00022a36 23 47 54 20 20 20 20 20 |#GT | .TXT '#GT ' 00022a40 23 4c 45 20 20 20 20 20 |#LE | .TXT '#LE ' 00022a4a 23 47 45 20 20 20 20 20 |#GE | .TXT '#GE ' 00022a54 41 44 44 20 20 20 20 20 |ADD | .TXT 'ADD ' 00022a5e 53 55 42 20 20 20 20 20 |SUB | .TXT 'SUB ' 00022a68 4d 55 4c 20 20 20 20 20 |MUL | .TXT 'MUL ' 00022a72 44 49 56 20 20 20 20 20 |DIV | .TXT 'DIV ' 00022a7c 4d 4f 44 20 20 20 20 20 |MOD | .TXT 'MOD ' 00022a86 4f 52 20 20 20 20 20 20 |OR | .TXT 'OR ' 00022a90 41 4e 44 20 20 20 20 20 |AND | .TXT 'AND ' 00022a9a 58 4f 52 20 20 20 20 20 |XOR | .TXT 'XOR ' 00022aa4 4c 53 48 49 46 54 20 20 |LSHIFT | .TXT 'LSHIFT ' 00022aae 52 53 48 49 46 54 20 20 |RSHIFT | .TXT 'RSHIFT ' 00022ab8 4e 4f 54 20 20 20 20 20 |NOT | .TXT 'NOT ' 00022ac2 23 49 4e 53 45 52 54 20 |#INSERT | .TXT '#INSERT ' 00022acc 23 45 58 54 52 41 43 54 |#EXTRACT| .TXT '#EXTRACT ' 00022ad6 52 45 41 44 20 20 20 20 |READ | .TXT 'READ ' 00022ae0 4b 49 4c 4c 20 20 20 20 |KILL | .TXT 'KILL ' 00022aea 50 55 53 48 20 20 20 20 |PUSH | .TXT 'PUSH ' 00022af4 4c 45 56 45 4c 20 20 20 |LEVEL | .TXT 'LEVEL ' 00022afe 43 4f 4e 56 45 52 54 20 |CONVERT | .TXT 'CONVERT ' 00022b08 43 4f 55 4e 54 5f 4f 4e |COUNT_ON| .TXT 'COUNT_ONES' 00022b12 52 45 50 45 41 54 20 20 |REPEAT | .TXT 'REPEAT ' 00022b1c 4d 4f 44 45 4c 20 20 20 |MODEL | .TXT 'MODEL ' 00022b26 41 53 43 49 49 20 20 20 |ASCII | .TXT 'ASCII ' 00022b30 57 72 6f 6e 67 20 6e 75 |Wrong nu| .TXT 'Wrong number of arguments for :_' 00022b50 45 51 2c 4e 45 2c 23 45 |EQ,NE,#E| .XXX[0x40] 00022b58 51 2c 23 4e 45 2c 23 4c |Q,#NE,#L| 00022b60 54 2c 23 47 54 2c 23 4c |T,#GT,#L| 00022b68 45 2c 23 47 45 2c 45 4c |E,#GE,EL| 00022b70 53 45 5d 45 4e 44 5d 43 |SE]END]C| 00022b78 41 53 45 2c 23 43 41 53 |ASE,#CAS| 00022b80 45 2c 57 48 45 4e 2c 45 |E,WHEN,E| 00022b88 4e 44 43 41 53 45 5d 20 |NDCASE] | 00022b90 45 76 61 6c 75 61 74 69 |Evaluati| .TXT 'Evaluation buffer overflow. ' 00022bac 55 6e 62 61 6c 61 6e 63 |Unbalanc| .TXT 'Unbalanced [ELSE] or [END]! ' 00022bc8 5b 57 48 45 4e 20 5d 20 |[WHEN ] | .TXT '[WHEN ] ' 00022bd2 4e 6f 20 63 61 73 65 20 |No case | .TXT 'No case alternative found!' 00022bec 4e 6f 20 5b 45 4e 44 43 |No [ENDC| .TXT 'No [ENDCASE] found! ' 00022c00 4e 6f 20 68 65 6c 70 20 |No help | .TXT 'No help available for_' 00022c16 2e 48 4c 50 |.HLP | .TXT '.HLP' 00022c1a 54 6f 6f 20 66 65 77 20 |Too few | .TXT 'Too few arguments for SET ' 00022c34 55 6e 6b 6e 6f 77 6e 20 |Unknown | .TXT 'Unknown variable :_ ' 00022c48 20 69 73 20 6e 6f 74 20 | is not | .TXT ' is not a program.' 00022c5a 43 4c |CL | .TXT 'CL' 00022c5c 49 20 |I | .XXX[0x2] 00022c5e 2e 4d 32 30 30 20 |.M200 | .TXT '.M200 ' 00022c64 53 54 |ST | .TXT 'ST' 00022c66 41 54 |AT | .TXT 'AT' 00022c68 55 53 |US | .TXT 'US' 00022c6a 52 45 |RE | .TXT 'RE' 00022c6c 53 55 |SU | .TXT 'SU' 00022c6e 4c 54 |LT | .TXT 'LT' 00022c70 4f 66 66 73 65 74 2f 4c |Offset/L| .TXT 'Offset/Length error in [INSERT] ' 00022c90 52 45 50 45 41 54 69 6e |REPEATin| .TXT 'REPEATing, type ^G to exit. ' 00022cac 41 53 43 49 49 20 61 72 |ASCII ar| .TXT 'ASCII argument out of range.' 00022cc8 4e 6f 74 20 61 20 63 6f |Not a co| .TXT 'Not a command or macro :_ ' 00022ce2 49 6c 6c 65 67 61 6c 20 |Illegal | .TXT 'Illegal marker argument ' 00022cfa 53 77 69 74 63 68 20 65 |Switch e| .TXT 'Switch exclusion is unimplemented.' 00022d1c 49 6c 6c 65 67 61 6c 20 |Illegal | .TXT 'Illegal argument marker.' 00022d34 49 6c 6c 65 67 61 6c 20 |Illegal | .TXT 'Illegal argument marker.' 00022d4c 5b 49 4e 49 54 5d 5b 20 |[INIT][ | .TXT '[INIT][ ' 00022d54 5d 5b 42 59 45 5d 3b 20 |][BYE]; | .TXT '][BYE]; ' 00022d5c 5b 49 4e 49 54 5d 3b 20 |[INIT]; | .TXT '[INIT]; ' 00022d64 3e 5f |>_ | .TXT '>_' 00022d66 5b 20 |[ | .TXT '[ ' 00022d68 5d 3b |]; | .TXT '];' 00022d6a ; -------------------------------------------------------------------------------------- 00022d6a ; COMMAND TABLE 00022d6a ; -------------------------------------------------------------------------------------- 00022d6a COMMAND_TABLE_22d6a: 00022d6a 21 40 23 24 25 5e 26 2a |!@#$%^&*| .TXT '!@#$%^&*()' 00022d74 57 52 49 54 45 20 20 20 |WRITE | .TXT 'WRITE ' 00022d7e 42 59 45 20 20 20 20 20 |BYE | .TXT 'BYE ' 00022d88 48 45 41 50 20 20 20 20 |HEAP | .TXT 'HEAP ' 00022d92 48 45 4c 50 20 20 20 20 |HELP | .TXT 'HELP ' 00022d9c 41 42 4f 52 54 20 20 20 |ABORT | .TXT 'ABORT ' 00022da6 43 4f 4d 4d 45 4e 54 20 |COMMENT | .TXT 'COMMENT ' 00022db0 53 45 54 20 20 20 20 20 |SET | .TXT 'SET ' 00022dba 56 41 52 20 20 20 20 20 |VAR | .TXT 'VAR ' 00022dc4 56 41 52 53 20 20 20 20 |VARS | .TXT 'VARS ' 00022dce 45 51 20 20 20 20 20 20 |EQ | .TXT 'EQ ' 00022dd8 4e 45 20 20 20 20 20 20 |NE | .TXT 'NE ' 00022de2 43 41 53 45 20 20 20 20 |CASE | .TXT 'CASE ' 00022dec 49 4e 53 45 52 54 20 20 |INSERT | .TXT 'INSERT ' 00022df6 45 58 54 52 41 43 54 20 |EXTRACT | .TXT 'EXTRACT ' 00022e00 23 43 41 53 45 20 20 20 |#CASE | .TXT '#CASE ' 00022e0a 23 45 51 20 20 20 20 20 |#EQ | .TXT '#EQ ' 00022e14 23 4e 45 20 20 20 20 20 |#NE | .TXT '#NE ' 00022e1e 23 4c 54 20 20 20 20 20 |#LT | .TXT '#LT ' 00022e28 23 47 54 20 20 20 20 20 |#GT | .TXT '#GT ' 00022e32 23 4c 45 20 20 20 20 20 |#LE | .TXT '#LE ' 00022e3c 23 47 45 20 20 20 20 20 |#GE | .TXT '#GE ' 00022e46 41 44 44 20 20 20 20 20 |ADD | .TXT 'ADD ' 00022e50 53 55 42 20 20 20 20 20 |SUB | .TXT 'SUB ' 00022e5a 4d 55 4c 20 20 20 20 20 |MUL | .TXT 'MUL ' 00022e64 44 49 56 20 20 20 20 20 |DIV | .TXT 'DIV ' 00022e6e 4d 4f 44 20 20 20 20 20 |MOD | .TXT 'MOD ' 00022e78 4f 52 20 20 20 20 20 20 |OR | .TXT 'OR ' 00022e82 41 4e 44 20 20 20 20 20 |AND | .TXT 'AND ' 00022e8c 58 4f 52 20 20 20 20 20 |XOR | .TXT 'XOR ' 00022e96 4c 53 48 49 46 54 20 20 |LSHIFT | .TXT 'LSHIFT ' 00022ea0 52 53 48 49 46 54 20 20 |RSHIFT | .TXT 'RSHIFT ' 00022eaa 4e 4f 54 20 20 20 20 20 |NOT | .TXT 'NOT ' 00022eb4 23 49 4e 53 45 52 54 20 |#INSERT | .TXT '#INSERT ' 00022ebe 23 45 58 54 52 41 43 54 |#EXTRACT| .TXT '#EXTRACT ' 00022ec8 52 45 41 44 20 20 20 20 |READ | .TXT 'READ ' 00022ed2 4b 49 4c 4c 20 20 20 20 |KILL | .TXT 'KILL ' 00022edc 50 55 53 48 20 20 20 20 |PUSH | .TXT 'PUSH ' 00022ee6 4c 45 56 45 4c 20 20 20 |LEVEL | .TXT 'LEVEL ' 00022ef0 43 4f 4e 56 45 52 54 20 |CONVERT | .TXT 'CONVERT ' 00022efa 43 4f 55 4e 54 5f 4f 4e |COUNT_ON| .TXT 'COUNT_ONES' 00022f04 52 45 50 45 41 54 20 20 |REPEAT | .TXT 'REPEAT ' 00022f0e 4d 4f 44 45 4c 20 20 20 |MODEL | .TXT 'MODEL ' 00022f18 41 53 43 49 49 20 20 20 |ASCII | .TXT 'ASCII ' 00022f22 a5 34 45 73 34 22 | 4Es4" | .XXX[0x6] 00022f28 46 75 33 33 33 33 33 32 |Fu333332| .XXX[0x98] 00022f30 33 66 37 84 44 57 a6 55 |3f7 DW U| 00022f38 0f 00 f0 ff 10 22 14 31 | " 1| 00022f40 22 22 22 22 22 22 22 22 |""""""""| 00022f48 14 3f 1f 03 10 0f 00 00 | ? | 00022f50 00 00 ff ff ff ff 00 01 | | 00022f58 01 00 01 01 00 01 02 00 | | 00022f60 00 01 02 00 01 02 00 01 | | 00022f68 14 06 01 14 08 14 0f 02 | | 00022f70 03 14 14 08 14 0f 14 14 | | 00022f78 14 14 14 14 14 04 14 05 | | 00022f80 14 14 14 14 14 14 14 14 | | 00022f88 14 14 14 04 14 14 14 14 | | 00022f90 14 14 04 14 07 14 14 14 | | 00022f98 14 04 14 14 14 14 14 14 | | 00022fa0 0c 14 14 09 14 14 14 0d | | 00022fa8 14 14 14 0b 0a 14 0e 14 | | 00022fb0 14 14 08 14 14 0c 14 14 | | 00022fb8 09 14 14 14 14 14 14 14 | | 00022fc0 14 14 14 14 14 14 14 14 | | .BLANK 14[0x10] 00022fd0 14 10 14 14 11 14 14 14 | | .XXX[0x20] 00022fd8 14 14 14 14 14 14 14 13 | | 00022fe0 14 14 14 14 14 12 14 14 | | 00022fe8 14 11 14 14 14 14 14 14 | | 00022ff0 14 14 14 14 | | .XXX[0x4] 00022ff4 ; -------------------------------------------------------------------------------------- 00022ff4 ; OMSI PASCAL Function 00022ff4 ; <LVAR 0x008 4(r)> 00022ff4 ; <LVAR -0x004 @ 4(w)> 00022ff4 ; -------------------------------------------------------------------------------------- 00022ff4 4e 56 ff e8 |NV | LINK.W A6,#0xffe8 00022ff8 bf d5 | | CMPA.L (A5),A7 00022ffa 62 06 |b | BHI 0x23002 00022ffc 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023000 4e 76 |Nv | TRAPV 00023002 de fc 00 10 | | ADDA.W #0x10,A7 00023006 48 e7 00 08 |H | MOVEM.L A4,-(A7) 0002300a 28 6e 00 08 |(n | MOVEA.L (A6+0x8),A4 0002300e b8 fc 00 01 | | CMPA.W #0x1,A4 00023012 67 1a |g | BEQ 0x2302e 00023014 2d 4c ff fc |-L | MOVE.L A4,(A6-0x4) 00023018 28 6c 00 08 |(l | MOVEA.L (A4+0x8),A4 0002301c 48 6e ff fc |Hn | PEA.L (A6-0x4) 00023020 48 78 00 0c |Hx | PEA.L 0xc 00023024 4e b9 00 01 02 a8 |N | JSR Free2(a : Pointer; b : Long) 0002302a 50 4f |PO | ADDQ.L #0x8,A7 0002302c 60 e0 |` | BRA 0x2300e 0002302e 4c df 10 00 |L | MOVEM.L (A7)+,A4 00023032 4e 5e |N^ | UNLK A6 00023034 4e 75 |Nu | RTS 00023036 ; -------------------------------------------------------------------------------------- 00023036 ; OMSI PASCAL Function 00023036 ; <LVAR 0x008 4(r)> 00023036 ; -------------------------------------------------------------------------------------- 00023036 4e 56 ff f0 |NV | LINK.W A6,#0xfff0 0002303a bf d5 | | CMPA.L (A5),A7 0002303c 62 06 |b | BHI 0x23044 0002303e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023042 4e 76 |Nv | TRAPV 00023044 de fc 00 10 | | ADDA.W #0x10,A7 00023048 48 e7 00 80 |H | MOVEM.L A0,-(A7) 0002304c 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00023050 b0 fc 00 01 | | CMPA.W #0x1,A0 00023054 67 0a |g | BEQ 0x23060 00023056 2f 08 |/ | MOVE.L A0,-(A7) 00023058 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002305e 58 4f |XO | ADDQ.L #0x4,A7 00023060 2e 6d 00 08 |.m | MOVEA.L (A5+0x8),A7 00023064 3c 7c 00 00 |<| | MOVEA.W #0x0,A6 00023068 4e f9 00 02 69 12 |N i | JMP 0x26912 0002306e 4c df |L | .XXX[0x2] 00023070 01 00 4e 5e 4e 75 4e 56 | N^NuNV| .XXX[0x20] 00023078 ff fc bf d5 62 06 44 fc | b D | 00023080 00 02 4e 76 de fc 00 04 | Nv | 00023088 2d 79 00 02 93 48 00 08 |-y H | 00023090 4e 5e 4e 75 |N^Nu | .XXX[0x4] 00023094 ; -------------------------------------------------------------------------------------- 00023094 ; OMSI PASCAL Function 00023094 ; <LVAR 0x008 1(rw)> 00023094 ; -------------------------------------------------------------------------------------- 00023094 4e 56 ff f0 |NV | LINK.W A6,#0xfff0 00023098 bf d5 | | CMPA.L (A5),A7 0002309a 62 06 |b | BHI 0x230a2 0002309c 44 fc 00 02 |D | MOVE.W #0x2,CCR 000230a0 4e 76 |Nv | TRAPV 000230a2 de fc 00 10 | | ADDA.W #0x10,A7 000230a6 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 000230aa 20 39 00 02 93 48 | 9 H | MOVE.L 0x29348,D0 000230b0 b0 b9 00 02 93 4c | L | CMP.L 0x2934c,D0 000230b6 6f 06 |o | BLE 0x230be 000230b8 42 2e 00 08 |B. | CLR.B (A6+0x8) 000230bc 60 0c |` | BRA 0x230ca 000230be 41 f9 00 02 73 40 |A s@ | LEA.L 0x27340,A0 000230c4 1d 70 08 07 00 08 | p | MOVE.B (A0+D0.L+#0x7),(A6+0x8) 000230ca 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 000230ce 4e 5e |N^ | UNLK A6 000230d0 4e 75 |Nu | RTS 000230d2 ; -------------------------------------------------------------------------------------- 000230d2 ; OMSI PASCAL Function 000230d2 ; <LVAR 0x008 1(rw)> 000230d2 ; -------------------------------------------------------------------------------------- 000230d2 4e 56 ff ec |NV | LINK.W A6,#0xffec 000230d6 bf d5 | | CMPA.L (A5),A7 000230d8 62 06 |b | BHI 0x230e0 000230da 44 fc 00 02 |D | MOVE.W #0x2,CCR 000230de 4e 76 |Nv | TRAPV 000230e0 de fc 00 14 | | ADDA.W #0x14,A7 000230e4 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7) 000230e8 43 f9 00 02 93 48 |C H | LEA.L 0x29348,A1 000230ee 20 11 | | MOVE.L (A1),D0 000230f0 b0 b9 00 02 93 4c | L | CMP.L 0x2934c,D0 000230f6 6f 06 |o | BLE 0x230fe 000230f8 42 2e 00 08 |B. | CLR.B (A6+0x8) 000230fc 60 0c |` | BRA 0x2310a 000230fe 41 f9 00 02 73 40 |A s@ | LEA.L 0x27340,A0 00023104 1d 70 08 07 00 08 | p | MOVE.B (A0+D0.L+#0x7),(A6+0x8) 0002310a 52 80 |R | ADDQ.L #0x1,D0 0002310c 22 80 |" | MOVE.L D0,(A1) 0002310e 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1 00023112 4e 5e |N^ | UNLK A6 00023114 4e 75 |Nu | RTS 00023116 ; -------------------------------------------------------------------------------------- 00023116 ; OMSI PASCAL Function 00023116 ; <LVAR 0x00c 4(r)> 00023116 ; <LVAR 0x008 4(r)> 00023116 ; -------------------------------------------------------------------------------------- 00023116 4e 56 ff c0 |NV | LINK.W A6,#0xffc0 0002311a bf d5 | | CMPA.L (A5),A7 0002311c 62 06 |b | BHI 0x23124 0002311e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023122 4e 76 |Nv | TRAPV 00023124 de fc 00 38 | 8 | ADDA.W #0x38,A7 00023128 48 e7 ff f0 |H | MOVEM.L A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 0002312c 45 ee 00 08 |E | LEA.L (A6+0x8),A2 00023130 47 f9 00 02 93 48 |G H | LEA.L 0x29348,A3 00023136 72 5b |r[ | MOVEQ.L #0x5b,D1 00023138 74 02 |t | MOVEQ.L #0x02,D2 0002313a 76 2c |v, | MOVEQ.L #0x2c,D3 0002313c 78 3b |x; | MOVEQ.L #0x3b,D4 0002313e 55 4f |UO | SUBQ.L #0x2,A7 00023140 4e ba ff 52 |N R | JSR 0x23094 00023144 10 1f | | MOVE.B (A7)+,D0 00023146 b0 01 | | CMP.B D1,D0 00023148 66 0a |f | BNE 0x23154 0002314a 4e b9 00 02 64 1c |N d | JSR 0x2641c 00023150 60 00 00 92 |` | BRA 0x231e4 00023154 2c 13 |, | MOVE.L (A3),D6 00023156 55 4f |UO | SUBQ.L #0x2,A7 00023158 4e ba ff 78 |N x | JSR 0x230d2 0002315c 1a 1f | | MOVE.B (A7)+,D5 0002315e 66 18 |f | BNE 0x23178 00023160 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 00023164 43 fa fd e8 |C | LEA.L 0x22f4e,A1 00023168 70 07 |p | MOVEQ.L #0x07,D0 0002316a 10 d9 | | MOVE.B (A1)+,(A0)+ 0002316c 51 c8 ff fc |Q | DBF D0,0x2316a 00023170 20 52 | R | MOVEA.L (A2),A0 00023172 10 82 | | MOVE.B D2,(A0) 00023174 60 72 |`r | BRA 0x231e8 00023176 60 5c |`\ | .XXX[0x2] 00023178 ba 03 | | CMP.B D3,D5 0002317a 66 08 |f | BNE 0x23184 0002317c 20 52 | R | MOVEA.L (A2),A0 0002317e 10 bc 00 03 | | MOVE.B #0x03,(A0) 00023182 60 50 |`P | BRA 0x231d4 00023184 ba 04 | | CMP.B D4,D5 00023186 66 08 |f | BNE 0x23190 00023188 20 52 | R | MOVEA.L (A2),A0 0002318a 10 bc 00 01 | | MOVE.B #0x01,(A0) 0002318e 60 44 |`D | BRA 0x231d4 00023190 0c 05 00 5d | ] | CMPI.B #0x5d,D5 00023194 66 06 |f | BNE 0x2319c 00023196 20 52 | R | MOVEA.L (A2),A0 00023198 10 82 | | MOVE.B D2,(A0) 0002319a 60 38 |`8 | BRA 0x231d4 0002319c 20 52 | R | MOVEA.L (A2),A0 0002319e 42 10 |B | CLR.B (A0) 000231a0 55 4f |UO | SUBQ.L #0x2,A7 000231a2 4e ba fe f0 |N | JSR 0x23094 000231a6 1e 1f | | MOVE.B (A7)+,D7 000231a8 be 01 | | CMP.B D1,D7 000231aa 66 08 |f | BNE 0x231b4 000231ac 4e b9 00 02 64 1c |N d | JSR 0x2641c 000231b2 60 1e |` | BRA 0x231d2 000231b4 be 04 | | CMP.B D4,D7 000231b6 67 0e |g | BEQ 0x231c6 000231b8 be 03 | | CMP.B D3,D7 000231ba 67 0a |g | BEQ 0x231c6 000231bc 0c 07 00 5d | ] | CMPI.B #0x5d,D7 000231c0 67 04 |g | BEQ 0x231c6 000231c2 4a 07 |J | TST.B D7 000231c4 66 04 |f | BNE 0x231ca 000231c6 60 0c |` | BRA 0x231d4 000231c8 60 08 |` | .XXX[0x2] 000231ca 55 4f |UO | SUBQ.L #0x2,A7 000231cc 4e ba ff 04 |N | JSR 0x230d2 000231d0 1e 1f | | MOVE.B (A7)+,D7 000231d2 60 cc |` | BRA 0x231a0 000231d4 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 000231d8 20 86 | | MOVE.L D6,(A0) 000231da 21 53 00 04 |!S | MOVE.L (A3),(A0+0x4) 000231de 53 a8 00 04 |S | SUBQ.L #0x1,(A0+0x4) 000231e2 60 04 |` | BRA 0x231e8 000231e4 60 00 ff 58 |` X | BRA 0x2313e 000231e8 4c df 0f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3 000231ec 4e 5e |N^ | UNLK A6 000231ee 4e 75 |Nu | RTS 000231f0 ; -------------------------------------------------------------------------------------- 000231f0 ; OMSI PASCAL Function 000231f0 ; <LVAR 0x010 4(r)> 000231f0 ; <LVAR 0x00c 4(r)> 000231f0 ; <LVAR 0x008 4(r)> 000231f0 ; <LVAR -0x004 @ 1(rw)> 000231f0 ; <LVAR -0x008 4(w)> 000231f0 ; <LVAR -0x00c @ 4(w)> 000231f0 ; -------------------------------------------------------------------------------------- 000231f0 4e 56 ff ca |NV | LINK.W A6,#0xffca 000231f4 bf d5 | | CMPA.L (A5),A7 000231f6 62 06 |b | BHI 0x231fe 000231f8 44 fc 00 02 |D | MOVE.W #0x2,CCR 000231fc 4e 76 |Nv | TRAPV 000231fe de fc 00 2a | * | ADDA.W #0x2a,A7 00023202 48 e7 c0 f0 |H | MOVEM.L A3+A2+A1+A0+D1+D0,-(A7) 00023206 45 ee ff fc |E | LEA.L (A6-0x4),A2 0002320a 47 ee ff f4 |G | LEA.L (A6-0xc),A3 0002320e 72 03 |r | MOVEQ.L #0x03,D1 00023210 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00023214 10 10 | | MOVE.B (A0),D0 00023216 0c 00 00 01 | | CMPI.B #0x01,D0 0002321a 67 06 |g | BEQ 0x23222 0002321c 0c 00 00 02 | | CMPI.B #0x02,D0 00023220 66 0e |f | BNE 0x23230 00023222 26 ba fd 2a |& * | MOVE.L 0x22f4e,(A3) 00023226 2d 7a fd 2a ff f8 |-z * | MOVE.L 0x22f52,(A6-0x8) 0002322c 14 80 | | MOVE.B D0,(A2) 0002322e 60 3c |`< | BRA 0x2326c 00023230 48 53 |HS | PEA.L (A3) 00023232 48 52 |HR | PEA.L (A2) 00023234 4e ba fe e0 |N | JSR 0x23116 00023238 50 4f |PO | ADDQ.L #0x8,A7 0002323a 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 0002323e 4a 12 |J | TST.B (A2) 00023240 67 1c |g | BEQ 0x2325e 00023242 10 10 | | MOVE.B (A0),D0 00023244 b0 01 | | CMP.B D1,D0 00023246 66 16 |f | BNE 0x2325e 00023248 10 12 | | MOVE.B (A2),D0 0002324a 48 80 |H | EXTB.W D0 0002324c 41 81 |A | CHK.W D1,D0 0002324e 10 80 | | MOVE.B D0,(A0) 00023250 26 ba fc fc |& | MOVE.L 0x22f4e,(A3) 00023254 2d 7a fc fc ff f8 |-z | MOVE.L 0x22f52,(A6-0x8) 0002325a 42 12 |B | CLR.B (A2) 0002325c 60 08 |` | BRA 0x23266 0002325e 10 12 | | MOVE.B (A2),D0 00023260 48 80 |H | EXTB.W D0 00023262 41 81 |A | CHK.W D1,D0 00023264 10 80 | | MOVE.B D0,(A0) 00023266 10 12 | | MOVE.B (A2),D0 00023268 b0 01 | | CMP.B D1,D0 0002326a 67 c4 |g | BEQ 0x23230 0002326c 20 6e 00 10 | n | MOVEA.L (A6+0x10),A0 00023270 22 4b |"K | MOVEA.L A3,A1 00023272 70 07 |p | MOVEQ.L #0x07,D0 00023274 10 d9 | | MOVE.B (A1)+,(A0)+ 00023276 51 c8 ff fc |Q | DBF D0,0x23274 0002327a 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 0002327e 10 12 | | MOVE.B (A2),D0 00023280 48 80 |H | EXTB.W D0 00023282 41 81 |A | CHK.W D1,D0 00023284 10 80 | | MOVE.B D0,(A0) 00023286 4c df 0f 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2+A3 0002328a 4e 5e |N^ | UNLK A6 0002328c 4e 75 |Nu | RTS 0002328e ; -------------------------------------------------------------------------------------- 0002328e ; OMSI PASCAL Function 0002328e ; <LVAR 0x008 4(rw)> 0002328e ; <LVAR -0x004 1(rw)> 0002328e ; <LVAR -0x010 2(rw)> 0002328e ; -------------------------------------------------------------------------------------- 0002328e 4e 56 ff c0 |NV | LINK.W A6,#0xffc0 00023292 bf d5 | | CMPA.L (A5),A7 00023294 62 06 |b | BHI 0x2329c 00023296 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002329a 4e 76 |Nv | TRAPV 0002329c de fc 00 30 | 0 | ADDA.W #0x30,A7 000232a0 48 e7 c7 f0 |H | MOVEM.L A3+A2+A1+A0+D7+D6+D5+D1+D0,-(A7) 000232a4 43 ee ff f0 |C | LEA.L (A6-0x10),A1 000232a8 45 ee ff fc |E | LEA.L (A6-0x4),A2 000232ac 47 ee 00 08 |G | LEA.L (A6+0x8),A3 000232b0 72 20 |r | MOVEQ.L #0x20,D1 000232b2 7c 01 || | MOVEQ.L #0x01,D6 000232b4 42 51 |BQ | CLR.W (A1) 000232b6 7a 01 |z | MOVEQ.L #0x01,D5 000232b8 59 4f |YO | SUBQ.L #0x4,A7 000232ba 2f 13 |/ | MOVE.L (A3),-(A7) 000232bc 4e b9 00 01 02 f0 |N | JSR ToUpper(a : String) : String 000232c2 58 4f |XO | ADDQ.L #0x4,A7 000232c4 26 9f |& | MOVE.L (A7)+,(A3) 000232c6 20 53 | S | MOVEA.L (A3),A0 000232c8 2f 08 |/ | MOVE.L A0,-(A7) 000232ca 20 57 | W | MOVEA.L (A7),A0 000232cc 30 10 |0 | MOVE.W (A0),D0 000232ce 48 c0 |H | EXTW.L D0 000232d0 bc 80 | | CMP.L D0,D6 000232d2 6e 00 00 b0 |n | BGT 0x23384 000232d6 42 80 |B | CLR.L D0 000232d8 10 30 68 01 | 0h | MOVE.B (A0+D6.L+#0x1),D0 000232dc 02 40 00 7f | @ | ANDI.W #0x007f,D0 000232e0 14 80 | | MOVE.B D0,(A2) 000232e2 0c 00 00 09 | | CMPI.B #0x09,D0 000232e6 66 02 |f | BNE 0x232ea 000232e8 14 81 | | MOVE.B D1,(A2) 000232ea 42 80 |B | CLR.L D0 000232ec 10 12 | | MOVE.B (A2),D0 000232ee 90 41 | A | SUB.W D1,D0 000232f0 0c 40 00 0c | @ | CMPI.W #0x000c,D0 000232f4 62 30 |b0 | BHI switch@0x232f8[0x2] 000232f6 d0 40 | @ | ADD.W D0,D0 000232f8 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 00023300 00 1e | | .CONST 0x1e ; [0x0] -> 0x2331e 00023302 00 1a | | .CONST 0x1a ; [0x1] -> 0x2331a 00023304 00 26 | & | .CONST 0x26 ; [0x2] -> 0x23326 00023306 00 26 | & | .CONST 0x26 ; [0x3] -> 0x23326 00023308 00 26 | & | .CONST 0x26 ; [0x4] -> 0x23326 0002330a 00 26 | & | .CONST 0x26 ; [0x5] -> 0x23326 0002330c 00 26 | & | .CONST 0x26 ; [0x6] -> 0x23326 0002330e 00 26 | & | .CONST 0x26 ; [0x7] -> 0x23326 00023310 00 26 | & | .CONST 0x26 ; [0x8] -> 0x23326 00023312 00 26 | & | .CONST 0x26 ; [0x9] -> 0x23326 00023314 00 26 | & | .CONST 0x26 ; [0xa] -> 0x23326 00023316 00 26 | & | .CONST 0x26 ; [0xb] -> 0x23326 00023318 00 22 | " | .CONST 0x22 ; [0xc] -> 0x23322 0002331a switch@0x232f8[0x1]: 0002331a 60 68 |`h | BRA 0x23384 0002331c 60 0a |` | .XXX[0x2] 0002331e switch@0x232f8[0x0]: 0002331e 7e 00 |~ | MOVEQ.L #0x00,D7 00023320 60 06 |` | BRA 0x23328 00023322 switch@0x232f8[0xc]: 00023322 7e 01 |~ | MOVEQ.L #0x01,D7 00023324 60 02 |` | BRA 0x23328 00023326 switch@0x232f8[0x2]: 00023326 switch@0x232f8[0x3]: 00023326 switch@0x232f8[0x4]: 00023326 switch@0x232f8[0x5]: 00023326 switch@0x232f8[0x6]: 00023326 switch@0x232f8[0x7]: 00023326 switch@0x232f8[0x8]: 00023326 switch@0x232f8[0x9]: 00023326 switch@0x232f8[0xa]: 00023326 switch@0x232f8[0xb]: 00023326 7e 02 |~ | MOVEQ.L #0x02,D7 00023328 70 03 |p | MOVEQ.L #0x03,D0 0002332a c1 d1 | | MULS.W (A1),D0 0002332c 41 fa fc 28 |A ( | LEA.L 0x22f56,A0 00023330 41 f0 00 00 |A | LEA.L (A0+D0.W),A0 00023334 42 80 |B | CLR.L D0 00023336 10 30 70 00 | 0p | MOVE.B (A0+D7.W),D0 0002333a 0c 40 00 02 | @ | CMPI.W #0x0002,D0 0002333e 63 02 |c | BLS 0x23342 00023340 4e 4e |NN | TRAP #14 00023342 d0 40 | @ | ADD.W D0,D0 00023344 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 0002334c 00 06 | | .CONST 0x6 ; [0x0] -> 0x23352 0002334e 00 08 | | .CONST 0x8 ; [0x1] -> 0x23354 00023350 00 12 | | .CONST 0x12 ; [0x2] -> 0x2335e 00023352 switch@0x23344[0x0]: 00023352 60 16 |` | BRA 0x2336a 00023354 switch@0x23344[0x1]: 00023354 20 57 | W | MOVEA.L (A7),A0 00023356 11 92 58 01 | X | MOVE.B (A2),(A0+D5.L+#0x1) 0002335a 52 85 |R | ADDQ.L #0x1,D5 0002335c 60 0c |` | BRA 0x2336a 0002335e switch@0x23344[0x2]: 0002335e 20 57 | W | MOVEA.L (A7),A0 00023360 11 bc 00 2c 58 01 | ,X | MOVE.B #0x2c,(A0+D5.L+#0x1) 00023366 52 85 |R | ADDQ.L #0x1,D5 00023368 53 86 |S | SUBQ.L #0x1,D6 0002336a 70 03 |p | MOVEQ.L #0x03,D0 0002336c c1 d1 | | MULS.W (A1),D0 0002336e 41 fa fb ef |A | LEA.L 0x22f5f,A0 00023372 41 f0 00 00 |A | LEA.L (A0+D0.W),A0 00023376 42 80 |B | CLR.L D0 00023378 10 30 70 00 | 0p | MOVE.B (A0+D7.W),D0 0002337c 32 80 |2 | MOVE.W D0,(A1) 0002337e 52 86 |R | ADDQ.L #0x1,D6 00023380 60 00 ff 48 |` H | BRA 0x232ca 00023384 20 57 | W | MOVEA.L (A7),A0 00023386 20 05 | | MOVE.L D5,D0 00023388 53 80 |S | SUBQ.L #0x1,D0 0002338a 30 80 |0 | MOVE.W D0,(A0) 0002338c 58 4f |XO | ADDQ.L #0x4,A7 0002338e 4c df 0f e3 |L | MOVEM.L (A7)+,D0+D1+D5+D6+D7+A0+A1+A2+A3 00023392 4e 5e |N^ | UNLK A6 00023394 4e 75 |Nu | RTS 00023396 ; -------------------------------------------------------------------------------------- 00023396 ; OMSI PASCAL Function 00023396 ; <LVAR 0x00c 4(r)> 00023396 ; <LVAR 0x008 4(r)> 00023396 ; <LVAR -0x002 @ 1(r)> 00023396 ; <LVAR -0x00a @> 00023396 ; <LVAR -0x00e @ 4(r)> 00023396 ; <LVAR -0x014 @ 1(r)> 00023396 ; -------------------------------------------------------------------------------------- 00023396 4e 56 ff bc |NV | LINK.W A6,#0xffbc 0002339a bf d5 | | CMPA.L (A5),A7 0002339c 62 06 |b | BHI 0x233a4 0002339e 44 fc 00 02 |D | MOVE.W #0x2,CCR 000233a2 4e 76 |Nv | TRAPV 000233a4 de fc 00 30 | 0 | ADDA.W #0x30,A7 000233a8 48 e7 c1 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D1+D0,-(A7) 000233ac 47 ee ff f2 |G | LEA.L (A6-0xe),A3 000233b0 72 01 |r | MOVEQ.L #0x01,D1 000233b2 55 4f |UO | SUBQ.L #0x2,A7 000233b4 4e ba fc de |N | JSR 0x23094 000233b8 10 1f | | MOVE.B (A7)+,D0 000233ba 0c 00 00 5b | [ | CMPI.B #0x5b,D0 000233be 66 08 |f | BNE 0x233c8 000233c0 55 4f |UO | SUBQ.L #0x2,A7 000233c2 4e ba fd 0e |N | JSR 0x230d2 000233c6 1e 1f | | MOVE.B (A7)+,D7 000233c8 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 000233cc 20 81 | | MOVE.L D1,(A0) 000233ce 42 2e ff ec |B. | CLR.B (A6-0x14) 000233d2 48 6e ff f6 |Hn | PEA.L (A6-0xa) 000233d6 48 6e ff fe |Hn | PEA.L (A6-0x2) 000233da 48 6e ff ec |Hn | PEA.L (A6-0x14) 000233de 4e ba fe 10 |N | JSR 0x231f0 000233e2 de fc 00 0c | | ADDA.W #0xc,A7 000233e6 4a 2e ff fe |J. | TST.B (A6-0x2) 000233ea 66 36 |f6 | BNE 0x23422 000233ec 48 53 |HS | PEA.L (A3) 000233ee 48 78 00 0c |Hx | PEA.L 0xc 000233f2 4e b9 00 01 02 9c |N | JSR Malloc1(length : Long) : Pointer 000233f8 50 4f |PO | ADDQ.L #0x8,A7 000233fa 20 53 | S | MOVEA.L (A3),A0 000233fc 22 48 |"H | MOVEA.L A0,A1 000233fe 45 ee ff f6 |E | LEA.L (A6-0xa),A2 00023402 70 07 |p | MOVEQ.L #0x07,D0 00023404 12 da | | MOVE.B (A2)+,(A1)+ 00023406 51 c8 ff fc |Q | DBF D0,0x23404 0002340a 21 41 00 08 |!A | MOVE.L D1,(A0+0x8) 0002340e 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 00023412 22 50 |"P | MOVEA.L (A0),A1 00023414 b2 c1 | | CMPA.W D1,A1 00023416 66 04 |f | BNE 0x2341c 00023418 20 93 | | MOVE.L (A3),(A0) 0002341a 60 04 |` | BRA 0x23420 0002341c 29 53 00 08 |)S | MOVE.L (A3),(A4+0x8) 00023420 28 53 |(S | MOVEA.L (A3),A4 00023422 4a 2e ff fe |J. | TST.B (A6-0x2) 00023426 67 aa |g | BEQ 0x233d2 00023428 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 0002342c 42 10 |B | CLR.B (A0) 0002342e 10 2e ff fe | . | MOVE.B (A6-0x2),D0 00023432 0c 00 00 02 | | CMPI.B #0x02,D0 00023436 66 02 |f | BNE 0x2343a 00023438 52 10 |R | ADDQ.B #0x1,(A0) 0002343a 4c df 1f 83 |L | MOVEM.L (A7)+,D0+D1+D7+A0+A1+A2+A3+A4 0002343e 4e 5e |N^ | UNLK A6 00023440 4e 75 |Nu | RTS 00023442 ; -------------------------------------------------------------------------------------- 00023442 ; OMSI PASCAL Function 00023442 ; <LVAR 0x00c 4(w)> 00023442 ; <LVAR 0x008 4(r)> 00023442 ; -------------------------------------------------------------------------------------- 00023442 4e 56 ff ec |NV | LINK.W A6,#0xffec 00023446 bf d5 | | CMPA.L (A5),A7 00023448 62 06 |b | BHI 0x23450 0002344a 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002344e 4e 76 |Nv | TRAPV 00023450 de fc 00 0c | | ADDA.W #0xc,A7 00023454 48 e7 01 08 |H | MOVEM.L A4+D7,-(A7) 00023458 7e ff |~ | MOVEQ.L #-0x01,D7 0002345a 28 6e 00 08 |(n | MOVEA.L (A6+0x8),A4 0002345e b8 fc 00 01 | | CMPA.W #0x1,A4 00023462 67 08 |g | BEQ 0x2346c 00023464 52 87 |R | ADDQ.L #0x1,D7 00023466 28 6c 00 08 |(l | MOVEA.L (A4+0x8),A4 0002346a 60 f2 |` | BRA 0x2345e 0002346c 2d 47 00 0c |-G | MOVE.L D7,(A6+0xc) 00023470 4c df 10 80 |L | MOVEM.L (A7)+,D7+A4 00023474 4e 5e |N^ | UNLK A6 00023476 4e 75 |Nu | RTS 00023478 ; -------------------------------------------------------------------------------------- 00023478 ; OMSI PASCAL Function 00023478 ; <LVAR 0x00c 4(r)> 00023478 ; <LVAR 0x008 4(r)> 00023478 ; -------------------------------------------------------------------------------------- 00023478 4e 56 ff b0 |NV | LINK.W A6,#0xffb0 0002347c bf d5 | | CMPA.L (A5),A7 0002347e 62 06 |b | BHI 0x23486 00023480 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023484 4e 76 |Nv | TRAPV 00023486 de fc 00 4e | N | ADDA.W #0x4e,A7 0002348a 48 e7 c0 80 |H | MOVEM.L A0+D1+D0,-(A7) 0002348e 72 01 |r | MOVEQ.L #0x01,D1 00023490 59 4f |YO | SUBQ.L #0x4,A7 00023492 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00023496 4e ba ff aa |N | JSR 0x23442 0002349a 58 4f |XO | ADDQ.L #0x4,A7 0002349c 20 1f | | MOVE.L (A7)+,D0 0002349e b0 ae 00 08 | | CMP.L (A6+0x8),D0 000234a2 67 58 |gX | BEQ 0x234fc 000234a4 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 000234a8 4e ba fb 4a |N J | JSR 0x22ff4 000234ac 58 4f |XO | ADDQ.L #0x4,A7 000234ae 41 fa f6 a0 |A | LEA.L 0x22b50,A0 000234b2 70 07 |p | MOVEQ.L #0x07,D0 000234b4 2f 20 |/ | MOVE.L -(A0),-(A7) 000234b6 51 c8 ff fc |Q | DBF D0,0x234b4 000234ba 41 ee 00 1a |A | LEA.L (A6+0x1a),A0 000234be 70 04 |p | MOVEQ.L #0x04,D0 000234c0 3f 20 |? | MOVE.W -(A0),-(A7) 000234c2 51 c8 ff fc |Q | DBF D0,0x234c0 000234c6 51 4f |QO | SUBQ.L #0x8,A7 000234c8 48 6f 00 12 |Ho | PEA.L (A7+0x12) 000234cc 3f 01 |? | MOVE.W D1,-(A7) 000234ce 3f 3c 00 20 |?< | MOVE.W #0x20,-(A7) 000234d2 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000234d8 58 4f |XO | ADDQ.L #0x4,A7 000234da 48 6f 00 0c |Ho | PEA.L (A7+0xc) 000234de 3f 01 |? | MOVE.W D1,-(A7) 000234e0 3f 3c 00 0a |?< | MOVE.W #0xa,-(A7) 000234e4 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000234ea 50 4f |PO | ADDQ.L #0x8,A7 000234ec 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000234f2 50 4f |PO | ADDQ.L #0x8,A7 000234f4 4e ba fb 40 |N @ | JSR 0x23036 000234f8 de fc 00 2e | . | ADDA.W #0x2e,A7 000234fc 4c df 01 03 |L | MOVEM.L (A7)+,D0+D1+A0 00023500 4e 5e |N^ | UNLK A6 00023502 4e 75 |Nu | RTS 00023504 ; -------------------------------------------------------------------------------------- 00023504 ; OMSI PASCAL Function 00023504 ; <LVAR 0x014 1(rw)> 00023504 ; <LVAR 0x010 4(r)> 00023504 ; <LVAR 0x00c 4(r)> 00023504 ; <LVAR 0x008 4(r)> 00023504 ; -------------------------------------------------------------------------------------- 00023504 4e 56 ff dc |NV | LINK.W A6,#0xffdc ; Spelunked 00023508 bf d5 | | CMPA.L (A5),A7 0002350a 62 06 |b | BHI 0x23512 0002350c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023510 4e 76 |Nv | TRAPV 00023512 de fc 00 20 | | ADDA.W #0x20,A7 00023516 48 e7 c1 c0 |H | MOVEM.L A1+A0+D7+D1+D0,-(A7) 0002351a 42 2e 00 14 |B. | CLR.B (A6+0x14) 0002351e 20 2e 00 10 | . | MOVE.L (A6+0x10),D0 00023522 d0 ae 00 08 | | ADD.L (A6+0x8),D0 00023526 b0 b9 00 02 93 4c | L | CMP.L 0x2934c,D0 0002352c 6e 4e |nN | BGT 0x2357c 0002352e 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023532 7e 01 |~ | MOVEQ.L #0x01,D7 00023534 be 97 | | CMP.L (A7),D7 00023536 6e 42 |nB | BGT 0x2357a 00023538 20 2e 00 10 | . | MOVE.L (A6+0x10),D0 0002353c d0 87 | | ADD.L D7,D0 0002353e 53 80 |S | SUBQ.L #0x1,D0 00023540 0c 80 00 00 1f ff | | CMPI.L #0x00001fff,D0 00023546 63 02 |c | BLS 0x2354a 00023548 4e 4f |NO | TRAP #15 0002354a 41 f9 00 02 73 40 |A s@ | LEA.L 0x27340,A0 00023550 22 2e 00 0c |". | MOVE.L (A6+0xc),D1 00023554 d2 87 | | ADD.L D7,D1 00023556 53 81 |S | SUBQ.L #0x1,D1 00023558 53 81 |S | SUBQ.L #0x1,D1 0002355a 0c 81 00 00 00 3e | > | CMPI.L #0x0000003e,D1 00023560 63 02 |c | BLS 0x23564 00023562 4e 4f |NO | TRAP #15 00023564 43 fa f5 ea |C | LEA.L 0x22b50,A1 00023568 10 30 08 08 | 0 | MOVE.B (A0+D0.L+#0x8),D0 0002356c b0 31 18 00 | 1 | CMP.B (A1+D1.L),D0 00023570 67 04 |g | BEQ 0x23576 00023572 58 4f |XO | ADDQ.L #0x4,A7 00023574 60 0c |` | BRA 0x23582 00023576 52 87 |R | ADDQ.L #0x1,D7 00023578 68 ba |h | BVC 0x23534 0002357a 58 4f |XO | ADDQ.L #0x4,A7 0002357c 1d 7c 00 01 00 14 | | | MOVE.B #0x01,(A6+0x14) 00023582 4c df 03 83 |L | MOVEM.L (A7)+,D0+D1+D7+A0+A1 00023586 4e 5e |N^ | UNLK A6 00023588 4e 75 |Nu | RTS 0002358a ; -------------------------------------------------------------------------------------- 0002358a ; OMSI PASCAL Function 0002358a ; <LVAR 0x00c 4(r)> 0002358a ; <LVAR 0x008 4(r)> 0002358a ; -------------------------------------------------------------------------------------- 0002358a 4e 56 ff bc |NV | LINK.W A6,#0xffbc 0002358e bf d5 | | CMPA.L (A5),A7 00023590 62 06 |b | BHI 0x23598 00023592 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023596 4e 76 |Nv | TRAPV 00023598 de fc 00 40 | @ | ADDA.W #0x40,A7 0002359c 48 e7 80 f0 |H | MOVEM.L A3+A2+A1+A0+D0,-(A7) 000235a0 45 f9 00 02 93 4c |E L | LEA.L 0x2934c,A2 000235a6 47 ee 00 08 |G | LEA.L (A6+0x8),A3 000235aa 4a 93 |J | TST.L (A3) 000235ac 6c 3e |l> | BGE 0x235ec 000235ae 20 13 | | MOVE.L (A3),D0 000235b0 44 80 |D | NEG.L D0 000235b2 d0 92 | | ADD.L (A2),D0 000235b4 0c 80 00 00 20 00 | | CMPI.L #0x00002000,D0 000235ba 6f 30 |o0 | BLE 0x235ec 000235bc 9e fc 00 1c | | SUBA.W #0x1c,A7 000235c0 20 4f | O | MOVEA.L A7,A0 000235c2 43 fa f5 cc |C | LEA.L 0x22b90,A1 000235c6 70 1a |p | MOVEQ.L #0x1a,D0 000235c8 10 d9 | | MOVE.B (A1)+,(A0)+ 000235ca 51 c8 ff fc |Q | DBF D0,0x235c8 000235ce 59 4f |YO | SUBQ.L #0x4,A7 000235d0 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000235d4 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000235d8 3f 3c 00 1b |?< | MOVE.W #0x1b,-(A7) 000235dc 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000235e2 50 4f |PO | ADDQ.L #0x8,A7 000235e4 4e ba fa 50 |N P | JSR 0x23036 000235e8 de fc 00 20 | | ADDA.W #0x20,A7 000235ec 41 f9 00 02 73 48 |A sH | LEA.L 0x27348,A0 000235f2 2f 08 |/ | MOVE.L A0,-(A7) 000235f4 2f 12 |/ | MOVE.L (A2),-(A7) 000235f6 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 000235fa 2f 13 |/ | MOVE.L (A3),-(A7) 000235fc 4e b9 00 01 03 64 |N d | JSR MovStringTail(Base, Len, Ptr, Delta) 00023602 de fc 00 10 | | ADDA.W #0x10,A7 00023606 20 12 | | MOVE.L (A2),D0 00023608 90 93 | | SUB.L (A3),D0 0002360a 24 80 |$ | MOVE.L D0,(A2) 0002360c 4c df 0f 01 |L | MOVEM.L (A7)+,D0+A0+A1+A2+A3 00023610 4e 5e |N^ | UNLK A6 00023612 4e 75 |Nu | RTS 00023614 ; -------------------------------------------------------------------------------------- 00023614 ; OMSI PASCAL Function 00023614 ; <LVAR 0x00c 4(r)> 00023614 ; <LVAR 0x008 4(r)> 00023614 ; -------------------------------------------------------------------------------------- 00023614 4e 56 ff d4 |NV | LINK.W A6,#0xffd4 00023618 bf d5 | | CMPA.L (A5),A7 0002361a 62 06 |b | BHI 0x23622 0002361c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023620 4e 76 |Nv | TRAPV 00023622 de fc 00 28 | ( | ADDA.W #0x28,A7 00023626 48 e7 c1 e0 |H | MOVEM.L A2+A1+A0+D7+D1+D0,-(A7) 0002362a 45 ee 00 0c |E | LEA.L (A6+0xc),A2 0002362e 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00023632 2f 08 |/ | MOVE.L A0,-(A7) 00023634 22 52 |"R | MOVEA.L (A2),A1 00023636 2f 11 |/ | MOVE.L (A1),-(A7) 00023638 30 10 |0 | MOVE.W (A0),D0 0002363a 48 c0 |H | EXTW.L D0 0002363c 44 80 |D | NEG.L D0 0002363e 2f 00 |/ | MOVE.L D0,-(A7) 00023640 4e ba ff 48 |N H | JSR 0x2358a 00023644 50 4f |PO | ADDQ.L #0x8,A7 00023646 30 10 |0 | MOVE.W (A0),D0 00023648 48 c0 |H | EXTW.L D0 0002364a 2f 00 |/ | MOVE.L D0,-(A7) 0002364c 7e 01 |~ | MOVEQ.L #0x01,D7 0002364e be 97 | | CMP.L (A7),D7 00023650 6e 36 |n6 | BGT 0x23688 00023652 20 52 | R | MOVEA.L (A2),A0 00023654 20 07 | | MOVE.L D7,D0 00023656 d0 90 | | ADD.L (A0),D0 00023658 53 80 |S | SUBQ.L #0x1,D0 0002365a 53 80 |S | SUBQ.L #0x1,D0 0002365c 0c 80 00 00 1f ff | | CMPI.L #0x00001fff,D0 00023662 63 02 |c | BLS 0x23666 00023664 4e 4f |NO | TRAP #15 00023666 41 f9 00 02 73 40 |A s@ | LEA.L 0x27340,A0 0002366c 22 07 |" | MOVE.L D7,D1 0002366e 53 81 |S | SUBQ.L #0x1,D1 00023670 0c 81 00 00 00 7d | } | CMPI.L #0x0000007d,D1 00023676 63 02 |c | BLS 0x2367a 00023678 4e 4f |NO | TRAP #15 0002367a 22 6f 00 04 |"o | MOVEA.L (A7+0x4),A1 0002367e 11 b1 18 02 08 08 | | MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x8) 00023684 52 87 |R | ADDQ.L #0x1,D7 00023686 68 c6 |h | BVC 0x2364e 00023688 58 4f |XO | ADDQ.L #0x4,A7 0002368a 20 52 | R | MOVEA.L (A2),A0 0002368c 22 57 |"W | MOVEA.L (A7),A1 0002368e 30 11 |0 | MOVE.W (A1),D0 00023690 48 c0 |H | EXTW.L D0 00023692 d1 90 | | ADD.L D0,(A0) 00023694 58 4f |XO | ADDQ.L #0x4,A7 00023696 4c df 07 83 |L | MOVEM.L (A7)+,D0+D1+D7+A0+A1+A2 0002369a 4e 5e |N^ | UNLK A6 0002369c 4e 75 |Nu | RTS 0002369e ; -------------------------------------------------------------------------------------- 0002369e ; OMSI PASCAL Function 0002369e ; <LVAR 0x00c 4(r)> 0002369e ; <LVAR 0x008 4(r)> 0002369e ; -------------------------------------------------------------------------------------- 0002369e 4e 56 ff a8 |NV | LINK.W A6,#0xffa8 000236a2 bf d5 | | CMPA.L (A5),A7 000236a4 62 06 |b | BHI 0x236ac 000236a6 44 fc 00 02 |D | MOVE.W #0x2,CCR 000236aa 4e 76 |Nv | TRAPV 000236ac de fc 00 50 | P | ADDA.W #0x50,A7 000236b0 48 e7 c3 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D1+D0,-(A7) 000236b4 45 fa fe 4e |E N | LEA.L 0x23504,A2 000236b8 47 f8 00 04 |G | LEA.L 0x4,A3 000236bc 49 ee 00 08 |I | LEA.L (A6+0x8),A4 000236c0 72 0c |r | MOVEQ.L #0x0c,D1 000236c2 7e 00 |~ | MOVEQ.L #0x00,D7 000236c4 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 000236c8 42 90 |B | CLR.L (A0) 000236ca 20 54 | T | MOVEA.L (A4),A0 000236cc 42 90 |B | CLR.L (A0) 000236ce 2c 39 00 02 93 48 |,9 H | MOVE.L 0x29348,D6 000236d4 20 06 | | MOVE.L D6,D0 000236d6 53 80 |S | SUBQ.L #0x1,D0 000236d8 0c 80 00 00 1f ff | | CMPI.L #0x00001fff,D0 000236de 63 02 |c | BLS 0x236e2 000236e0 4e 4f |NO | TRAP #15 000236e2 41 f9 00 02 73 40 |A s@ | LEA.L 0x27340,A0 000236e8 10 30 08 08 | 0 | MOVE.B (A0+D0.L+#0x8),D0 000236ec 0c 00 00 5b | [ | CMPI.B #0x5b,D0 000236f0 66 00 00 d4 |f | BNE 0x237c6 000236f4 55 4f |UO | SUBQ.L #0x2,A7 000236f6 2f 06 |/ | MOVE.L D6,-(A7) 000236f8 48 78 00 01 |Hx | PEA.L 0x1 000236fc 48 78 00 03 |Hx | PEA.L 0x3 00023700 4e 92 |N | JSR (A2) 00023702 de c1 | | ADDA.W D1,A7 00023704 4a 1f |J | TST.B (A7)+ 00023706 66 7e |f~ | BNE 0x23786 00023708 55 4f |UO | SUBQ.L #0x2,A7 0002370a 2f 06 |/ | MOVE.L D6,-(A7) 0002370c 48 53 |HS | PEA.L (A3) 0002370e 48 78 00 03 |Hx | PEA.L 0x3 00023712 4e 92 |N | JSR (A2) 00023714 de c1 | | ADDA.W D1,A7 00023716 4a 1f |J | TST.B (A7)+ 00023718 66 6c |fl | BNE 0x23786 0002371a 55 4f |UO | SUBQ.L #0x2,A7 0002371c 2f 06 |/ | MOVE.L D6,-(A7) 0002371e 48 78 00 07 |Hx | PEA.L 0x7 00023722 48 53 |HS | PEA.L (A3) 00023724 4e 92 |N | JSR (A2) 00023726 de c1 | | ADDA.W D1,A7 00023728 4a 1f |J | TST.B (A7)+ 0002372a 66 5a |fZ | BNE 0x23786 0002372c 55 4f |UO | SUBQ.L #0x2,A7 0002372e 2f 06 |/ | MOVE.L D6,-(A7) 00023730 48 78 00 0b |Hx | PEA.L 0xb 00023734 48 53 |HS | PEA.L (A3) 00023736 4e 92 |N | JSR (A2) 00023738 de c1 | | ADDA.W D1,A7 0002373a 4a 1f |J | TST.B (A7)+ 0002373c 66 48 |fH | BNE 0x23786 0002373e 55 4f |UO | SUBQ.L #0x2,A7 00023740 2f 06 |/ | MOVE.L D6,-(A7) 00023742 48 78 00 0f |Hx | PEA.L 0xf 00023746 48 53 |HS | PEA.L (A3) 00023748 4e 92 |N | JSR (A2) 0002374a de c1 | | ADDA.W D1,A7 0002374c 4a 1f |J | TST.B (A7)+ 0002374e 66 36 |f6 | BNE 0x23786 00023750 55 4f |UO | SUBQ.L #0x2,A7 00023752 2f 06 |/ | MOVE.L D6,-(A7) 00023754 48 78 00 13 |Hx | PEA.L 0x13 00023758 48 53 |HS | PEA.L (A3) 0002375a 4e 92 |N | JSR (A2) 0002375c de c1 | | ADDA.W D1,A7 0002375e 4a 1f |J | TST.B (A7)+ 00023760 66 24 |f$ | BNE 0x23786 00023762 55 4f |UO | SUBQ.L #0x2,A7 00023764 2f 06 |/ | MOVE.L D6,-(A7) 00023766 48 78 00 17 |Hx | PEA.L 0x17 0002376a 48 53 |HS | PEA.L (A3) 0002376c 4e 92 |N | JSR (A2) 0002376e de c1 | | ADDA.W D1,A7 00023770 4a 1f |J | TST.B (A7)+ 00023772 66 12 |f | BNE 0x23786 00023774 55 4f |UO | SUBQ.L #0x2,A7 00023776 2f 06 |/ | MOVE.L D6,-(A7) 00023778 48 78 00 1b |Hx | PEA.L 0x1b 0002377c 48 53 |HS | PEA.L (A3) 0002377e 4e 92 |N | JSR (A2) 00023780 de c1 | | ADDA.W D1,A7 00023782 4a 1f |J | TST.B (A7)+ 00023784 67 04 |g | BEQ 0x2378a 00023786 52 87 |R | ADDQ.L #0x1,D7 00023788 60 3c |`< | BRA 0x237c6 0002378a 4a 87 |J | TST.L D7 0002378c 66 1c |f | BNE 0x237aa 0002378e 55 4f |UO | SUBQ.L #0x2,A7 00023790 2f 06 |/ | MOVE.L D6,-(A7) 00023792 48 78 00 1f |Hx | PEA.L 0x1f 00023796 48 78 00 05 |Hx | PEA.L 0x5 0002379a 4e 92 |N | JSR (A2) 0002379c de c1 | | ADDA.W D1,A7 0002379e 4a 1f |J | TST.B (A7)+ 000237a0 67 08 |g | BEQ 0x237aa 000237a2 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 000237a6 20 86 | | MOVE.L D6,(A0) 000237a8 60 1c |` | BRA 0x237c6 000237aa 55 4f |UO | SUBQ.L #0x2,A7 000237ac 2f 06 |/ | MOVE.L D6,-(A7) 000237ae 48 78 00 24 |Hx $ | PEA.L 0x24 000237b2 48 53 |HS | PEA.L (A3) 000237b4 4e 92 |N | JSR (A2) 000237b6 de c1 | | ADDA.W D1,A7 000237b8 4a 1f |J | TST.B (A7)+ 000237ba 67 0a |g | BEQ 0x237c6 000237bc 4a 87 |J | TST.L D7 000237be 66 04 |f | BNE 0x237c4 000237c0 20 54 | T | MOVEA.L (A4),A0 000237c2 60 e2 |` | BRA 0x237a6 000237c4 53 87 |S | SUBQ.L #0x1,D7 000237c6 52 86 |R | ADDQ.L #0x1,D6 000237c8 bc b9 00 02 93 4c | L | CMP.L 0x2934c,D6 000237ce 6e 0e |n | BGT 0x237de 000237d0 4a 87 |J | TST.L D7 000237d2 66 00 ff 00 |f | BNE 0x236d4 000237d6 20 54 | T | MOVEA.L (A4),A0 000237d8 4a 90 |J | TST.L (A0) 000237da 67 00 fe f8 |g | BEQ 0x236d4 000237de bc b9 00 02 93 4c | L | CMP.L 0x2934c,D6 000237e4 6f 30 |o0 | BLE 0x23816 000237e6 9e fc 00 1c | | SUBA.W #0x1c,A7 000237ea 20 4f | O | MOVEA.L A7,A0 000237ec 43 fa f3 be |C | LEA.L 0x22bac,A1 000237f0 70 1a |p | MOVEQ.L #0x1a,D0 000237f2 10 d9 | | MOVE.B (A1)+,(A0)+ 000237f4 51 c8 ff fc |Q | DBF D0,0x237f2 000237f8 59 4f |YO | SUBQ.L #0x4,A7 000237fa 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000237fe 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00023802 3f 3c 00 1b |?< | MOVE.W #0x1b,-(A7) 00023806 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002380c 50 4f |PO | ADDQ.L #0x8,A7 0002380e 4e ba f8 26 |N & | JSR 0x23036 00023812 de fc 00 20 | | ADDA.W #0x20,A7 00023816 4c df 1f c3 |L | MOVEM.L (A7)+,D0+D1+D6+D7+A0+A1+A2+A3+A4 0002381a 4e 5e |N^ | UNLK A6 0002381c 4e 75 |Nu | RTS 0002381e ; -------------------------------------------------------------------------------------- 0002381e ; OMSI PASCAL Function 0002381e ; <LVAR -0x004 @ 4(r)> 0002381e ; <LVAR -0x008 @ 4(rw)> 0002381e ; -------------------------------------------------------------------------------------- 0002381e 4e 56 ff dc |NV | LINK.W A6,#0xffdc 00023822 bf d5 | | CMPA.L (A5),A7 00023824 62 06 |b | BHI 0x2382c 00023826 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002382a 4e 76 |Nv | TRAPV 0002382c de fc 00 1c | | ADDA.W #0x1c,A7 00023830 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7) 00023834 41 ee ff f8 |A | LEA.L (A6-0x8),A0 00023838 43 ee ff fc |C | LEA.L (A6-0x4),A1 0002383c 48 50 |HP | PEA.L (A0) 0002383e 48 51 |HQ | PEA.L (A1) 00023840 4e ba fe 5c |N \ | JSR 0x2369e 00023844 50 4f |PO | ADDQ.L #0x8,A7 00023846 4a 90 |J | TST.L (A0) 00023848 66 02 |f | BNE 0x2384c 0002384a 20 91 | | MOVE.L (A1),(A0) 0002384c 20 11 | | MOVE.L (A1),D0 0002384e 5a 80 |Z | ADDQ.L #0x5,D0 00023850 2f 00 |/ | MOVE.L D0,-(A7) 00023852 90 90 | | SUB.L (A0),D0 00023854 2f 00 |/ | MOVE.L D0,-(A7) 00023856 4e ba fd 32 |N 2 | JSR 0x2358a 0002385a 50 4f |PO | ADDQ.L #0x8,A7 0002385c 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1 00023860 4e 5e |N^ | UNLK A6 00023862 4e 75 |Nu | RTS 00023864 ; -------------------------------------------------------------------------------------- 00023864 ; OMSI PASCAL Function 00023864 ; <LVAR -0x004 @ 4(r)> 00023864 ; <LVAR -0x008 @ 4(r)> 00023864 ; -------------------------------------------------------------------------------------- 00023864 4e 56 ff dc |NV | LINK.W A6,#0xffdc 00023868 bf d5 | | CMPA.L (A5),A7 0002386a 62 06 |b | BHI 0x23872 0002386c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023870 4e 76 |Nv | TRAPV 00023872 de fc 00 1c | | ADDA.W #0x1c,A7 00023876 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7) 0002387a 41 ee ff f8 |A | LEA.L (A6-0x8),A0 0002387e 43 ee ff fc |C | LEA.L (A6-0x4),A1 00023882 48 50 |HP | PEA.L (A0) 00023884 48 51 |HQ | PEA.L (A1) 00023886 4e ba fe 16 |N | JSR 0x2369e 0002388a 50 4f |PO | ADDQ.L #0x8,A7 0002388c 4a 90 |J | TST.L (A0) 0002388e 66 06 |f | BNE 0x23896 00023890 20 11 | | MOVE.L (A1),D0 00023892 5a 80 |Z | ADDQ.L #0x5,D0 00023894 60 12 |` | BRA 0x238a8 00023896 2f 11 |/ | MOVE.L (A1),-(A7) 00023898 5a 97 |Z | ADDQ.L #0x5,(A7) 0002389a 48 78 00 05 |Hx | PEA.L 0x5 0002389e 4e ba fc ea |N | JSR 0x2358a 000238a2 50 4f |PO | ADDQ.L #0x8,A7 000238a4 20 10 | | MOVE.L (A0),D0 000238a6 5c 80 |\ | ADDQ.L #0x6,D0 000238a8 2f 00 |/ | MOVE.L D0,-(A7) 000238aa 90 b9 00 02 93 48 | H | SUB.L 0x29348,D0 000238b0 2f 00 |/ | MOVE.L D0,-(A7) 000238b2 4e ba fc d6 |N | JSR 0x2358a 000238b6 50 4f |PO | ADDQ.L #0x8,A7 000238b8 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1 000238bc 4e 5e |N^ | UNLK A6 000238be 4e 75 |Nu | RTS 000238c0 ; -------------------------------------------------------------------------------------- 000238c0 ; OMSI PASCAL Function 000238c0 ; <LVAR 0x008 4(r)> 000238c0 ; <LVAR -0x004 @> 000238c0 ; <LVAR -0x008 @ 4(r)> 000238c0 ; <LVAR -0x00c @ 4(rw)> 000238c0 ; <LVAR -0x010 4(rw)> 000238c0 ; <LVAR -0x014 4(rw)> 000238c0 ; -------------------------------------------------------------------------------------- 000238c0 4e 56 ff ba |NV | LINK.W A6,#0xffba 000238c4 bf d5 | | CMPA.L (A5),A7 000238c6 62 06 |b | BHI 0x238ce 000238c8 44 fc 00 02 |D | MOVE.W #0x2,CCR 000238cc 4e 76 |Nv | TRAPV 000238ce de fc 00 32 | 2 | ADDA.W #0x32,A7 000238d2 48 e7 c0 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D1+D0,-(A7) 000238d6 43 f9 00 02 93 5a |C Z | LEA.L 0x2935a,A1 000238dc 45 f9 00 02 93 60 |E ` | LEA.L 0x29360,A2 000238e2 47 f9 00 02 93 48 |G H | LEA.L 0x29348,A3 000238e8 49 ee ff f8 |I | LEA.L (A6-0x8),A4 000238ec 72 01 |r | MOVEQ.L #0x01,D1 000238ee 4a 11 |J | TST.B (A1) 000238f0 67 0a |g | BEQ 0x238fc 000238f2 4a 92 |J | TST.L (A2) 000238f4 66 06 |f | BNE 0x238fc 000238f6 24 ae 00 08 |$ | MOVE.L (A6+0x8),(A2) 000238fa 53 92 |S | SUBQ.L #0x1,(A2) 000238fc 4a 11 |J | TST.B (A1) 000238fe 66 00 00 cc |f | BNE 0x239cc 00023902 26 ae 00 08 |& | MOVE.L (A6+0x8),(A3) 00023906 5c 93 |\ | ADDQ.L #0x6,(A3) 00023908 48 54 |HT | PEA.L (A4) 0002390a 48 6e ff fc |Hn | PEA.L (A6-0x4) 0002390e 4e ba fa 86 |N | JSR 0x23396 00023912 50 4f |PO | ADDQ.L #0x8,A7 00023914 41 fa f2 bc |A | LEA.L 0x22bd2,A0 00023918 70 04 |p | MOVEQ.L #0x04,D0 0002391a 3f 20 |? | MOVE.W -(A0),-(A7) 0002391c 51 c8 ff fc |Q | DBF D0,0x2391a 00023920 2f 14 |/ | MOVE.L (A4),-(A7) 00023922 48 78 00 00 |Hx | PEA.L 0x0 00023926 4e ba fb 50 |N P | JSR 0x23478 0002392a de fc 00 12 | | ADDA.W #0x12,A7 0002392e 4a 39 00 02 93 64 |J9 d | TST.B 0x29364 00023934 67 1a |g | BEQ 0x23950 00023936 51 4f |QO | SUBQ.L #0x8,A7 00023938 2f 14 |/ | MOVE.L (A4),-(A7) 0002393a 48 78 00 00 |Hx | PEA.L 0x0 0002393e 4e b9 00 02 3d 90 |N = | JSR 0x23d90 00023944 50 4f |PO | ADDQ.L #0x8,A7 00023946 2d 5f ff ec |-_ | MOVE.L (A7)+,(A6-0x14) 0002394a 2d 5f ff f0 |-_ | MOVE.L (A7)+,(A6-0x10) 0002394e 60 14 |` | BRA 0x23964 00023950 59 4f |YO | SUBQ.L #0x4,A7 00023952 2f 14 |/ | MOVE.L (A4),-(A7) 00023954 48 78 00 00 |Hx | PEA.L 0x0 00023958 4e b9 00 02 3d 5e |N =^ | JSR 0x23d5e 0002395e 50 4f |PO | ADDQ.L #0x8,A7 00023960 2d 5f ff f4 |-_ | MOVE.L (A7)+,(A6-0xc) 00023964 2f 14 |/ | MOVE.L (A4),-(A7) 00023966 4e ba f6 8c |N | JSR 0x22ff4 0002396a 58 4f |XO | ADDQ.L #0x4,A7 0002396c 23 d3 00 02 93 5c |# \ | MOVE.L (A3),0x2935c 00023972 4a 39 00 02 93 64 |J9 d | TST.B 0x29364 00023978 67 2a |g* | BEQ 0x239a4 0002397a 55 4f |UO | SUBQ.L #0x2,A7 0002397c 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7) 00023980 2f 2e ff ec |/. | MOVE.L (A6-0x14),-(A7) 00023984 2f 39 00 02 93 6e |/9 n | MOVE.L 0x2936e,-(A7) 0002398a 2f 39 00 02 93 6a |/9 j | MOVE.L 0x2936a,-(A7) 00023990 4e b9 00 01 03 2c |N , | JSR IsEqual(a, b : Quad) : Bool 00023996 de fc 00 10 | | ADDA.W #0x10,A7 0002399a 10 1f | | MOVE.B (A7)+,D0 0002399c 48 80 |H | EXTB.W D0 0002399e 41 81 |A | CHK.W D1,D0 000239a0 12 80 | | MOVE.B D0,(A1) 000239a2 60 28 |`( | BRA 0x239cc 000239a4 55 4f |UO | SUBQ.L #0x2,A7 000239a6 2f 2e ff f4 |/. | MOVE.L (A6-0xc),-(A7) 000239aa 2f 39 00 02 93 66 |/9 f | MOVE.L 0x29366,-(A7) 000239b0 4e b9 00 01 02 c8 |N | JSR StringEqual(a, b : String) : Byte 000239b6 50 4f |PO | ADDQ.L #0x8,A7 000239b8 10 1f | | MOVE.B (A7)+,D0 000239ba 48 80 |H | EXTB.W D0 000239bc 41 81 |A | CHK.W D1,D0 000239be 12 80 | | MOVE.B D0,(A1) 000239c0 48 6e ff f4 |Hn | PEA.L (A6-0xc) 000239c4 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000239ca 58 4f |XO | ADDQ.L #0x4,A7 000239cc 4c df 1f 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2+A3+A4 000239d0 4e 5e |N^ | UNLK A6 000239d2 4e 75 |Nu | RTS 000239d4 ; -------------------------------------------------------------------------------------- 000239d4 ; OMSI PASCAL Function 000239d4 ; <LVAR 0x010 4(r)> 000239d4 ; <LVAR 0x00c 4(r)> 000239d4 ; <LVAR 0x008 4(r)> 000239d4 ; -------------------------------------------------------------------------------------- 000239d4 4e 56 ff 9e |NV | LINK.W A6,#0xff9e 000239d8 bf d5 | | CMPA.L (A5),A7 000239da 62 06 |b | BHI 0x239e2 000239dc 44 fc 00 02 |D | MOVE.W #0x2,CCR 000239e0 4e 76 |Nv | TRAPV 000239e2 de fc 00 56 | V | ADDA.W #0x56,A7 000239e6 48 e7 e7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7) 000239ea 45 f9 00 02 93 60 |E ` | LEA.L 0x29360,A2 000239f0 47 fa fb 12 |G | LEA.L 0x23504,A3 000239f4 49 f9 00 02 93 5a |I Z | LEA.L 0x2935a,A4 000239fa 72 0c |r | MOVEQ.L #0x0c,D1 000239fc 74 01 |t | MOVEQ.L #0x01,D2 000239fe 42 14 |B | CLR.B (A4) 00023a00 42 b9 00 02 93 5c |B \ | CLR.L 0x2935c 00023a06 42 92 |B | CLR.L (A2) 00023a08 7e 00 |~ | MOVEQ.L #0x00,D7 00023a0a 7c 00 || | MOVEQ.L #0x00,D6 00023a0c 2a 39 00 02 93 48 |*9 H | MOVE.L 0x29348,D5 00023a12 4a 86 |J | TST.L D6 00023a14 66 00 00 a0 |f | BNE 0x23ab6 00023a18 ba b9 00 02 93 4c | L | CMP.L 0x2934c,D5 00023a1e 6e 00 00 96 |n | BGT 0x23ab6 00023a22 20 05 | | MOVE.L D5,D0 00023a24 53 80 |S | SUBQ.L #0x1,D0 00023a26 0c 80 00 00 1f ff | | CMPI.L #0x00001fff,D0 00023a2c 63 02 |c | BLS 0x23a30 00023a2e 4e 4f |NO | TRAP #15 00023a30 41 f9 00 02 73 40 |A s@ | LEA.L 0x27340,A0 00023a36 10 30 08 08 | 0 | MOVE.B (A0+D0.L+#0x8),D0 00023a3a 0c 00 00 5b | [ | CMPI.B #0x5b,D0 00023a3e 66 6c |fl | BNE 0x23aac 00023a40 55 4f |UO | SUBQ.L #0x2,A7 00023a42 2f 05 |/ | MOVE.L D5,-(A7) 00023a44 48 78 00 28 |Hx ( | PEA.L 0x28 00023a48 48 78 00 05 |Hx | PEA.L 0x5 00023a4c 4e 93 |N | JSR (A3) 00023a4e de c1 | | ADDA.W D1,A7 00023a50 4a 1f |J | TST.B (A7)+ 00023a52 66 14 |f | BNE 0x23a68 00023a54 55 4f |UO | SUBQ.L #0x2,A7 00023a56 2f 05 |/ | MOVE.L D5,-(A7) 00023a58 48 78 00 2d |Hx - | PEA.L 0x2d 00023a5c 48 78 00 06 |Hx | PEA.L 0x6 00023a60 4e 93 |N | JSR (A3) 00023a62 de c1 | | ADDA.W D1,A7 00023a64 4a 1f |J | TST.B (A7)+ 00023a66 67 04 |g | BEQ 0x23a6c 00023a68 52 87 |R | ADDQ.L #0x1,D7 00023a6a 60 40 |`@ | BRA 0x23aac 00023a6c 4a 87 |J | TST.L D7 00023a6e 66 1e |f | BNE 0x23a8e 00023a70 55 4f |UO | SUBQ.L #0x2,A7 00023a72 2f 05 |/ | MOVE.L D5,-(A7) 00023a74 48 78 00 33 |Hx 3 | PEA.L 0x33 00023a78 48 78 00 05 |Hx | PEA.L 0x5 00023a7c 4e 93 |N | JSR (A3) 00023a7e de c1 | | ADDA.W D1,A7 00023a80 4a 1f |J | TST.B (A7)+ 00023a82 67 0a |g | BEQ 0x23a8e 00023a84 2f 05 |/ | MOVE.L D5,-(A7) 00023a86 4e ba fe 38 |N 8 | JSR 0x238c0 00023a8a 58 4f |XO | ADDQ.L #0x4,A7 00023a8c 60 1e |` | BRA 0x23aac 00023a8e 55 4f |UO | SUBQ.L #0x2,A7 00023a90 2f 05 |/ | MOVE.L D5,-(A7) 00023a92 48 78 00 38 |Hx 8 | PEA.L 0x38 00023a96 48 78 00 08 |Hx | PEA.L 0x8 00023a9a 4e 93 |N | JSR (A3) 00023a9c de c1 | | ADDA.W D1,A7 00023a9e 4a 1f |J | TST.B (A7)+ 00023aa0 67 0a |g | BEQ 0x23aac 00023aa2 4a 87 |J | TST.L D7 00023aa4 66 04 |f | BNE 0x23aaa 00023aa6 2c 05 |, | MOVE.L D5,D6 00023aa8 60 02 |` | BRA 0x23aac 00023aaa 53 87 |S | SUBQ.L #0x1,D7 00023aac 4a 86 |J | TST.L D6 00023aae 66 02 |f | BNE 0x23ab2 00023ab0 52 85 |R | ADDQ.L #0x1,D5 00023ab2 60 00 ff 5e |` ^ | BRA 0x23a12 00023ab6 4a 39 00 02 93 64 |J9 d | TST.B 0x29364 00023abc 66 0e |f | BNE 0x23acc 00023abe 48 79 00 02 93 66 |Hy f | PEA.L 0x29366 00023ac4 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00023aca 58 4f |XO | ADDQ.L #0x4,A7 00023acc 4a 14 |J | TST.B (A4) 00023ace 66 28 |f( | BNE 0x23af8 00023ad0 41 fa f1 1a |A | LEA.L 0x22bec,A0 00023ad4 70 0c |p | MOVEQ.L #0x0c,D0 00023ad6 3f 20 |? | MOVE.W -(A0),-(A7) 00023ad8 51 c8 ff fc |Q | DBF D0,0x23ad6 00023adc 59 4f |YO | SUBQ.L #0x4,A7 00023ade 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023ae2 3f 02 |? | MOVE.W D2,-(A7) 00023ae4 3f 3c 00 1a |?< | MOVE.W #0x1a,-(A7) 00023ae8 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00023aee 50 4f |PO | ADDQ.L #0x8,A7 00023af0 4e ba f5 44 |N D | JSR 0x23036 00023af4 de fc 00 1e | | ADDA.W #0x1e,A7 00023af8 4a 86 |J | TST.L D6 00023afa 66 2e |f. | BNE 0x23b2a 00023afc 9e fc 00 14 | | SUBA.W #0x14,A7 00023b00 20 4f | O | MOVEA.L A7,A0 00023b02 43 fa f0 e8 |C | LEA.L 0x22bec,A1 00023b06 70 12 |p | MOVEQ.L #0x12,D0 00023b08 10 d9 | | MOVE.B (A1)+,(A0)+ 00023b0a 51 c8 ff fc |Q | DBF D0,0x23b08 00023b0e 59 4f |YO | SUBQ.L #0x4,A7 00023b10 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023b14 3f 02 |? | MOVE.W D2,-(A7) 00023b16 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7) 00023b1a 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00023b20 50 4f |PO | ADDQ.L #0x8,A7 00023b22 4e ba f5 12 |N | JSR 0x23036 00023b26 de fc 00 18 | | ADDA.W #0x18,A7 00023b2a 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00023b2e 20 86 | | MOVE.L D6,(A0) 00023b30 20 6e 00 10 | n | MOVEA.L (A6+0x10),A0 00023b34 20 b9 00 02 93 5c | \ | MOVE.L 0x2935c,(A0) 00023b3a 4a 92 |J | TST.L (A2) 00023b3c 66 0a |f | BNE 0x23b48 00023b3e 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 00023b42 20 86 | | MOVE.L D6,(A0) 00023b44 53 90 |S | SUBQ.L #0x1,(A0) 00023b46 60 06 |` | BRA 0x23b4e 00023b48 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 00023b4c 20 92 | | MOVE.L (A2),(A0) 00023b4e 4c df 1f e7 |L | MOVEM.L (A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3+A4 00023b52 4e 5e |N^ | UNLK A6 00023b54 4e 75 |Nu | RTS 00023b56 ; -------------------------------------------------------------------------------------- 00023b56 ; OMSI PASCAL Function 00023b56 ; <LVAR 0x008 4(r)> 00023b56 ; <LVAR -0x008 @ 4(r)> 00023b56 ; <LVAR -0x00c @ 4(r)> 00023b56 ; <LVAR -0x010 @ 4(r)> 00023b56 ; -------------------------------------------------------------------------------------- 00023b56 4e 56 ff c8 |NV | LINK.W A6,#0xffc8 00023b5a bf d5 | | CMPA.L (A5),A7 00023b5c 62 06 |b | BHI 0x23b64 00023b5e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023b62 4e 76 |Nv | TRAPV 00023b64 de fc 00 24 | $ | ADDA.W #0x24,A7 00023b68 48 e7 83 c0 |H | MOVEM.L A1+A0+D7+D6+D0,-(A7) 00023b6c 41 f9 00 02 93 48 |A H | LEA.L 0x29348,A0 00023b72 43 ee ff f0 |C | LEA.L (A6-0x10),A1 00023b76 2c 10 |, | MOVE.L (A0),D6 00023b78 42 39 00 02 93 64 |B9 d | CLR.B 0x29364 00023b7e 23 ee 00 08 00 02 93 66 |# f| MOVE.L (A6+0x8),0x29366 00023b86 2e 10 |. | MOVE.L (A0),D7 00023b88 48 51 |HQ | PEA.L (A1) 00023b8a 48 6e ff f4 |Hn | PEA.L (A6-0xc) 00023b8e 48 6e ff f8 |Hn | PEA.L (A6-0x8) 00023b92 4e ba fe 40 |N @ | JSR 0x239d4 00023b96 de fc 00 0c | | ADDA.W #0xc,A7 00023b9a 20 86 | | MOVE.L D6,(A0) 00023b9c 20 2e ff f8 | . | MOVE.L (A6-0x8),D0 00023ba0 06 80 00 00 00 09 | | ADDI.L #0x00000009,D0 00023ba6 2f 00 |/ | MOVE.L D0,-(A7) 00023ba8 90 ae ff f4 | | SUB.L (A6-0xc),D0 00023bac 53 80 |S | SUBQ.L #0x1,D0 00023bae 2f 00 |/ | MOVE.L D0,-(A7) 00023bb0 4e ba f9 d8 |N | JSR 0x2358a 00023bb4 58 4f |XO | ADDQ.L #0x4,A7 00023bb6 2e 91 |. | MOVE.L (A1),(A7) 00023bb8 2f 11 |/ | MOVE.L (A1),-(A7) 00023bba 9f 97 | | SUB.L D7,(A7) 00023bbc 4e ba f9 cc |N | JSR 0x2358a 00023bc0 50 4f |PO | ADDQ.L #0x8,A7 00023bc2 4c df 03 c1 |L | MOVEM.L (A7)+,D0+D6+D7+A0+A1 00023bc6 4e 5e |N^ | UNLK A6 00023bc8 4e 75 |Nu | RTS 00023bca ; -------------------------------------------------------------------------------------- 00023bca ; OMSI PASCAL Function 00023bca ; <LVAR 0x00c 4(r)> 00023bca ; <LVAR 0x008 4(r)> 00023bca ; <LVAR -0x008 @ 4(r)> 00023bca ; <LVAR -0x00c @ 4(r)> 00023bca ; <LVAR -0x010 @ 4(r)> 00023bca ; -------------------------------------------------------------------------------------- 00023bca 4e 56 ff c8 |NV | LINK.W A6,#0xffc8 00023bce bf d5 | | CMPA.L (A5),A7 00023bd0 62 06 |b | BHI 0x23bd8 00023bd2 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023bd6 4e 76 |Nv | TRAPV 00023bd8 de fc 00 24 | $ | ADDA.W #0x24,A7 00023bdc 48 e7 83 c0 |H | MOVEM.L A1+A0+D7+D6+D0,-(A7) 00023be0 41 f9 00 02 93 48 |A H | LEA.L 0x29348,A0 00023be6 43 ee ff f0 |C | LEA.L (A6-0x10),A1 00023bea 2c 10 |, | MOVE.L (A0),D6 00023bec 13 fc 00 01 00 02 93 64 | d| MOVE.B #0x01,0x29364 00023bf4 23 ee 00 08 00 02 93 6a |# j| MOVE.L (A6+0x8),0x2936a 00023bfc 23 ee 00 0c 00 02 93 6e |# n| MOVE.L (A6+0xc),0x2936e 00023c04 2e 10 |. | MOVE.L (A0),D7 00023c06 48 51 |HQ | PEA.L (A1) 00023c08 48 6e ff f4 |Hn | PEA.L (A6-0xc) 00023c0c 48 6e ff f8 |Hn | PEA.L (A6-0x8) 00023c10 4e ba fd c2 |N | JSR 0x239d4 00023c14 de fc 00 0c | | ADDA.W #0xc,A7 00023c18 20 86 | | MOVE.L D6,(A0) 00023c1a 20 2e ff f8 | . | MOVE.L (A6-0x8),D0 00023c1e 06 80 00 00 00 09 | | ADDI.L #0x00000009,D0 00023c24 2f 00 |/ | MOVE.L D0,-(A7) 00023c26 90 ae ff f4 | | SUB.L (A6-0xc),D0 00023c2a 53 80 |S | SUBQ.L #0x1,D0 00023c2c 2f 00 |/ | MOVE.L D0,-(A7) 00023c2e 4e ba f9 5a |N Z | JSR 0x2358a 00023c32 58 4f |XO | ADDQ.L #0x4,A7 00023c34 2e 91 |. | MOVE.L (A1),(A7) 00023c36 2f 11 |/ | MOVE.L (A1),-(A7) 00023c38 9f 97 | | SUB.L D7,(A7) 00023c3a 4e ba f9 4e |N N | JSR 0x2358a 00023c3e 50 4f |PO | ADDQ.L #0x8,A7 00023c40 4c df 03 c1 |L | MOVEM.L (A7)+,D0+D6+D7+A0+A1 00023c44 4e 5e |N^ | UNLK A6 00023c46 4e 75 |Nu | RTS 00023c48 ; -------------------------------------------------------------------------------------- 00023c48 ; OMSI PASCAL Function 00023c48 ; <LVAR 0x010 4(rw)> 00023c48 ; <LVAR 0x00c 4(r)> 00023c48 ; <LVAR 0x008 4(r)> 00023c48 ; -------------------------------------------------------------------------------------- 00023c48 4e 56 ff f8 |NV | LINK.W A6,#0xfff8 00023c4c bf d5 | | CMPA.L (A5),A7 00023c4e 62 06 |b | BHI 0x23c56 00023c50 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023c54 4e 76 |Nv | TRAPV 00023c56 de fc 00 08 | | ADDA.W #0x8,A7 00023c5a 48 e7 80 00 |H | MOVEM.L D0,-(A7) 00023c5e 4a ae 00 08 |J | TST.L (A6+0x8) 00023c62 66 06 |f | BNE 0x23c6a 00023c64 42 ae 00 10 |B | CLR.L (A6+0x10) 00023c68 60 0e |` | BRA 0x23c78 00023c6a 20 2e 00 0c | . | MOVE.L (A6+0xc),D0 00023c6e 90 ae 00 08 | | SUB.L (A6+0x8),D0 00023c72 52 80 |R | ADDQ.L #0x1,D0 00023c74 2d 40 00 10 |-@ | MOVE.L D0,(A6+0x10) 00023c78 4c df 00 01 |L | MOVEM.L (A7)+,D0 00023c7c 4e 5e |N^ | UNLK A6 00023c7e 4e 75 |Nu | RTS 00023c80 ; -------------------------------------------------------------------------------------- 00023c80 ; OMSI PASCAL Function 00023c80 ; <LVAR 0x014 4(w)> 00023c80 ; <LVAR 0x010 @ 4(w)> 00023c80 ; <LVAR 0x00c 4(r)> 00023c80 ; <LVAR 0x008 4(r)> 00023c80 ; -------------------------------------------------------------------------------------- 00023c80 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 00023c84 bf d5 | | CMPA.L (A5),A7 00023c86 62 06 |b | BHI 0x23c8e 00023c88 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023c8c 4e 76 |Nv | TRAPV 00023c8e de fc 00 20 | | ADDA.W #0x20,A7 00023c92 48 e7 81 c8 |H | MOVEM.L A4+A1+A0+D7+D0,-(A7) 00023c96 28 6e 00 0c |(n | MOVEA.L (A6+0xc),A4 00023c9a 2d 7a f2 b2 00 10 |-z | MOVE.L 0x22f4e,(A6+0x10) 00023ca0 2d 7a f2 b0 00 14 |-z | MOVE.L 0x22f52,(A6+0x14) 00023ca6 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023caa 7e 00 |~ | MOVEQ.L #0x00,D7 00023cac be 97 | | CMP.L (A7),D7 00023cae 6e 28 |n( | BGT 0x23cd8 00023cb0 b8 fc 00 01 | | CMPA.W #0x1,A4 00023cb4 66 04 |f | BNE 0x23cba 00023cb6 58 4f |XO | ADDQ.L #0x4,A7 00023cb8 60 20 |` | BRA 0x23cda 00023cba be ae 00 08 | | CMP.L (A6+0x8),D7 00023cbe 66 10 |f | BNE 0x23cd0 00023cc0 41 ee 00 10 |A | LEA.L (A6+0x10),A0 00023cc4 22 4c |"L | MOVEA.L A4,A1 00023cc6 70 07 |p | MOVEQ.L #0x07,D0 00023cc8 10 d9 | | MOVE.B (A1)+,(A0)+ 00023cca 51 c8 ff fc |Q | DBF D0,0x23cc8 00023cce 60 04 |` | BRA 0x23cd4 00023cd0 28 6c 00 08 |(l | MOVEA.L (A4+0x8),A4 00023cd4 52 87 |R | ADDQ.L #0x1,D7 00023cd6 68 d4 |h | BVC 0x23cac 00023cd8 58 4f |XO | ADDQ.L #0x4,A7 00023cda 4c df 13 81 |L | MOVEM.L (A7)+,D0+D7+A0+A1+A4 00023cde 4e 5e |N^ | UNLK A6 00023ce0 4e 75 |Nu | RTS 00023ce2 ; -------------------------------------------------------------------------------------- 00023ce2 ; OMSI PASCAL Function 00023ce2 ; <LVAR 0x010 4(w)> 00023ce2 ; <LVAR 0x00c 4(r)> 00023ce2 ; <LVAR 0x008 4(r)> 00023ce2 ; <LVAR -0x008 @ 4(r)> 00023ce2 ; -------------------------------------------------------------------------------------- 00023ce2 4e 56 ff ce |NV | LINK.W A6,#0xffce 00023ce6 bf d5 | | CMPA.L (A5),A7 00023ce8 62 06 |b | BHI 0x23cf0 00023cea 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023cee 4e 76 |Nv | TRAPV 00023cf0 de fc 00 26 | & | ADDA.W #0x26,A7 00023cf4 48 e7 83 c0 |H | MOVEM.L A1+A0+D7+D6+D0,-(A7) 00023cf8 43 ee ff f8 |C | LEA.L (A6-0x8),A1 00023cfc 48 51 |HQ | PEA.L (A1) 00023cfe 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00023d04 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00023d08 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023d0c 4e ba ff 3a |N : | JSR 0x23c48 00023d10 50 4f |PO | ADDQ.L #0x8,A7 00023d12 7e 01 |~ | MOVEQ.L #0x01,D7 00023d14 be 97 | | CMP.L (A7),D7 00023d16 6e 38 |n8 | BGT 0x23d50 00023d18 20 07 | | MOVE.L D7,D0 00023d1a d0 ae 00 08 | | ADD.L (A6+0x8),D0 00023d1e 53 80 |S | SUBQ.L #0x1,D0 00023d20 53 80 |S | SUBQ.L #0x1,D0 00023d22 0c 80 00 00 1f ff | | CMPI.L #0x00001fff,D0 00023d28 63 02 |c | BLS 0x23d2c 00023d2a 4e 4f |NO | TRAP #15 00023d2c 41 f9 00 02 73 40 |A s@ | LEA.L 0x27340,A0 00023d32 1c 30 08 08 | 0 | MOVE.B (A0+D0.L+#0x8),D6 00023d36 0c 06 00 2f | / | CMPI.B #0x2f,D6 00023d3a 66 04 |f | BNE 0x23d40 00023d3c 58 4f |XO | ADDQ.L #0x4,A7 00023d3e 60 12 |` | BRA 0x23d52 00023d40 2f 11 |/ | MOVE.L (A1),-(A7) 00023d42 1f 06 | | MOVE.B D6,-(A7) 00023d44 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00023d4a 5c 4f |\O | ADDQ.L #0x6,A7 00023d4c 52 87 |R | ADDQ.L #0x1,D7 00023d4e 68 c4 |h | BVC 0x23d14 00023d50 58 4f |XO | ADDQ.L #0x4,A7 00023d52 2d 51 00 10 |-Q | MOVE.L (A1),(A6+0x10) 00023d56 4c df 03 c1 |L | MOVEM.L (A7)+,D0+D6+D7+A0+A1 00023d5a 4e 5e |N^ | UNLK A6 00023d5c 4e 75 |Nu | RTS 00023d5e ; -------------------------------------------------------------------------------------- 00023d5e ; OMSI PASCAL Function 00023d5e ; <LVAR 0x010 4(w)> 00023d5e ; <LVAR 0x00c 4(r)> 00023d5e ; <LVAR 0x008 4(r)> 00023d5e ; -------------------------------------------------------------------------------------- 00023d5e 4e 56 ff e8 |NV | LINK.W A6,#0xffe8 00023d62 bf d5 | | CMPA.L (A5),A7 00023d64 62 06 |b | BHI 0x23d6c 00023d66 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023d6a 4e 76 |Nv | TRAPV 00023d6c de fc 00 18 | | ADDA.W #0x18,A7 00023d70 9e fc 00 0c | | SUBA.W #0xc,A7 00023d74 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00023d78 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023d7c 4e ba ff 02 |N | JSR 0x23c80 00023d80 50 4f |PO | ADDQ.L #0x8,A7 00023d82 4e ba ff 5e |N ^ | JSR 0x23ce2 00023d86 50 4f |PO | ADDQ.L #0x8,A7 00023d88 2d 5f 00 10 |-_ | MOVE.L (A7)+,(A6+0x10) 00023d8c 4e 5e |N^ | UNLK A6 00023d8e 4e 75 |Nu | RTS 00023d90 ; -------------------------------------------------------------------------------------- 00023d90 ; OMSI PASCAL Function 00023d90 ; <LVAR 0x014 4(w)> 00023d90 ; <LVAR 0x010 4(w)> 00023d90 ; <LVAR 0x00c 4(r)> 00023d90 ; <LVAR 0x008 4(r)> 00023d90 ; -------------------------------------------------------------------------------------- 00023d90 4e 56 ff e8 |NV | LINK.W A6,#0xffe8 00023d94 bf d5 | | CMPA.L (A5),A7 00023d96 62 06 |b | BHI 0x23d9e 00023d98 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023d9c 4e 76 |Nv | TRAPV 00023d9e de fc 00 18 | | ADDA.W #0x18,A7 00023da2 9e fc 00 0c | | SUBA.W #0xc,A7 00023da6 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00023daa 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023dae 4e ba ff ae |N | JSR 0x23d5e 00023db2 50 4f |PO | ADDQ.L #0x8,A7 00023db4 48 78 00 10 |Hx | PEA.L 0x10 00023db8 4e b9 00 01 03 60 |N ` | JSR ?StringToInt64() 00023dbe 50 4f |PO | ADDQ.L #0x8,A7 00023dc0 2d 5f 00 10 |-_ | MOVE.L (A7)+,(A6+0x10) 00023dc4 2d 5f 00 14 |-_ | MOVE.L (A7)+,(A6+0x14) 00023dc8 4e 5e |N^ | UNLK A6 00023dca 4e 75 |Nu | RTS 00023dcc ; -------------------------------------------------------------------------------------- 00023dcc ; OMSI PASCAL Function 00023dcc ; <LVAR 0x010 4(w)> 00023dcc ; <LVAR 0x00c 4(r)> 00023dcc ; <LVAR 0x008 4(r)> 00023dcc ; -------------------------------------------------------------------------------------- 00023dcc 4e 56 ff e8 |NV | LINK.W A6,#0xffe8 00023dd0 bf d5 | | CMPA.L (A5),A7 00023dd2 62 06 |b | BHI 0x23dda 00023dd4 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023dd8 4e 76 |Nv | TRAPV 00023dda de fc 00 18 | | ADDA.W #0x18,A7 00023dde 9e fc 00 0c | | SUBA.W #0xc,A7 00023de2 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00023de6 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023dea 4e ba ff a4 |N | JSR 0x23d90 00023dee 50 4f |PO | ADDQ.L #0x8,A7 00023df0 4e b9 00 01 03 50 |N P | JSR Quad2Long(a : Quad) : Long 00023df6 50 4f |PO | ADDQ.L #0x8,A7 00023df8 2d 5f 00 10 |-_ | MOVE.L (A7)+,(A6+0x10) 00023dfc 4e 5e |N^ | UNLK A6 00023dfe 4e 75 |Nu | RTS 00023e00 ; -------------------------------------------------------------------------------------- 00023e00 ; OMSI PASCAL Function 00023e00 ; <LVAR 0x008 @ 4(r)> 00023e00 ; -------------------------------------------------------------------------------------- 00023e00 4e 56 ff d4 |NV | LINK.W A6,#0xffd4 00023e04 bf d5 | | CMPA.L (A5),A7 00023e06 62 06 |b | BHI 0x23e0e 00023e08 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023e0c 4e 76 |Nv | TRAPV 00023e0e de fc 00 28 | ( | ADDA.W #0x28,A7 00023e12 48 e7 c1 e0 |H | MOVEM.L A2+A1+A0+D7+D1+D0,-(A7) 00023e16 45 f9 00 02 93 48 |E H | LEA.L 0x29348,A2 00023e1c 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00023e20 2f 08 |/ | MOVE.L A0,-(A7) 00023e22 2f 12 |/ | MOVE.L (A2),-(A7) 00023e24 30 10 |0 | MOVE.W (A0),D0 00023e26 48 c0 |H | EXTW.L D0 00023e28 44 80 |D | NEG.L D0 00023e2a 2f 00 |/ | MOVE.L D0,-(A7) 00023e2c 4e ba f7 5c |N \ | JSR 0x2358a 00023e30 50 4f |PO | ADDQ.L #0x8,A7 00023e32 30 10 |0 | MOVE.W (A0),D0 00023e34 48 c0 |H | EXTW.L D0 00023e36 2f 00 |/ | MOVE.L D0,-(A7) 00023e38 7e 01 |~ | MOVEQ.L #0x01,D7 00023e3a be 97 | | CMP.L (A7),D7 00023e3c 6e 34 |n4 | BGT 0x23e72 00023e3e 20 07 | | MOVE.L D7,D0 00023e40 d0 92 | | ADD.L (A2),D0 00023e42 53 80 |S | SUBQ.L #0x1,D0 00023e44 53 80 |S | SUBQ.L #0x1,D0 00023e46 0c 80 00 00 1f ff | | CMPI.L #0x00001fff,D0 00023e4c 63 02 |c | BLS 0x23e50 00023e4e 4e 4f |NO | TRAP #15 00023e50 41 f9 00 02 73 40 |A s@ | LEA.L 0x27340,A0 00023e56 22 07 |" | MOVE.L D7,D1 00023e58 53 81 |S | SUBQ.L #0x1,D1 00023e5a 0c 81 00 00 00 7d | } | CMPI.L #0x0000007d,D1 00023e60 63 02 |c | BLS 0x23e64 00023e62 4e 4f |NO | TRAP #15 00023e64 22 6f 00 04 |"o | MOVEA.L (A7+0x4),A1 00023e68 11 b1 18 02 08 08 | | MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x8) 00023e6e 52 87 |R | ADDQ.L #0x1,D7 00023e70 68 c8 |h | BVC 0x23e3a 00023e72 50 4f |PO | ADDQ.L #0x8,A7 00023e74 48 6e 00 08 |Hn | PEA.L (A6+0x8) 00023e78 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00023e7e 58 4f |XO | ADDQ.L #0x4,A7 00023e80 4c df 07 83 |L | MOVEM.L (A7)+,D0+D1+D7+A0+A1+A2 00023e84 4e 5e |N^ | UNLK A6 00023e86 4e 75 |Nu | RTS 00023e88 ; -------------------------------------------------------------------------------------- 00023e88 ; OMSI PASCAL Function 00023e88 ; <LVAR 0x00c 4(r)> 00023e88 ; <LVAR 0x008 4(r)> 00023e88 ; -------------------------------------------------------------------------------------- 00023e88 4e 56 ff ec |NV | LINK.W A6,#0xffec 00023e8c bf d5 | | CMPA.L (A5),A7 00023e8e 62 06 |b | BHI 0x23e96 00023e90 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023e94 4e 76 |Nv | TRAPV 00023e96 de fc 00 14 | | ADDA.W #0x14,A7 00023e9a 59 4f |YO | SUBQ.L #0x4,A7 00023e9c 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00023ea0 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023ea4 48 78 00 10 |Hx | PEA.L 0x10 00023ea8 4e b9 00 01 03 5c |N \ | JSR Quad2String(a : Quad; radix : Long ) : String 00023eae de fc 00 0c | | ADDA.W #0xc,A7 00023eb2 4e ba ff 4c |N L | JSR 0x23e00 00023eb6 58 4f |XO | ADDQ.L #0x4,A7 00023eb8 4e 5e |N^ | UNLK A6 00023eba 4e 75 |Nu | RTS 00023ebc ; -------------------------------------------------------------------------------------- 00023ebc ; OMSI PASCAL Function 00023ebc ; <LVAR 0x008 4(r)> 00023ebc ; -------------------------------------------------------------------------------------- 00023ebc 4e 56 ff f4 |NV | LINK.W A6,#0xfff4 00023ec0 bf d5 | | CMPA.L (A5),A7 00023ec2 62 06 |b | BHI 0x23eca 00023ec4 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023ec8 4e 76 |Nv | TRAPV 00023eca de fc 00 0c | | ADDA.W #0xc,A7 00023ece 59 4f |YO | SUBQ.L #0x4,A7 00023ed0 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023ed4 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00023eda 58 4f |XO | ADDQ.L #0x4,A7 00023edc 4e ba ff 22 |N " | JSR 0x23e00 00023ee0 58 4f |XO | ADDQ.L #0x4,A7 00023ee2 4e 5e |N^ | UNLK A6 00023ee4 4e 75 |Nu | RTS 00023ee6 ; -------------------------------------------------------------------------------------- 00023ee6 ; OMSI PASCAL Function 00023ee6 ; <LVAR 0x008 4(r)> 00023ee6 ; <LVAR -0x004 @ 4(r)> 00023ee6 ; <LVAR -0x008 4(rw)> 00023ee6 ; -------------------------------------------------------------------------------------- 00023ee6 4e 56 ff ca |NV | LINK.W A6,#0xffca 00023eea bf d5 | | CMPA.L (A5),A7 00023eec 62 06 |b | BHI 0x23ef4 00023eee 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023ef2 4e 76 |Nv | TRAPV 00023ef4 de fc 00 2a | * | ADDA.W #0x2a,A7 00023ef8 48 e7 81 e0 |H | MOVEM.L A2+A1+A0+D7+D0,-(A7) 00023efc 43 ee ff fc |C | LEA.L (A6-0x4),A1 00023f00 45 ee ff f8 |E | LEA.L (A6-0x8),A2 00023f04 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00023f08 24 a8 00 08 |$ | MOVE.L (A0+0x8),(A2) 00023f0c 48 51 |HQ | PEA.L (A1) 00023f0e 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00023f14 58 4f |XO | ADDQ.L #0x4,A7 00023f16 20 52 | R | MOVEA.L (A2),A0 00023f18 b0 fc 00 01 | | CMPA.W #0x1,A0 00023f1c 67 00 00 86 |g | BEQ 0x23fa4 00023f20 4a 90 |J | TST.L (A0) 00023f22 67 68 |gh | BEQ 0x23f8c 00023f24 2f 28 00 04 |/( | MOVE.L (A0+0x4),-(A7) 00023f28 2e 10 |. | MOVE.L (A0),D7 00023f2a be 97 | | CMP.L (A7),D7 00023f2c 6e 14 |n | BGT 0x23f42 00023f2e 20 17 | | MOVE.L (A7),D0 00023f30 0c 87 80 00 00 01 | | CMPI.L #0x80000001,D7 00023f36 6d 08 |m | BLT 0x23f40 00023f38 0c 80 7f ff ff ff | | CMPI.L #0x7fffffff,D0 00023f3e 6f 02 |o | BLE 0x23f42 00023f40 4e 4f |NO | TRAP #15 00023f42 be 97 | | CMP.L (A7),D7 00023f44 6e 44 |nD | BGT 0x23f8a 00023f46 2f 11 |/ | MOVE.L (A1),-(A7) 00023f48 20 07 | | MOVE.L D7,D0 00023f4a 53 80 |S | SUBQ.L #0x1,D0 00023f4c 0c 80 00 00 1f ff | | CMPI.L #0x00001fff,D0 00023f52 63 02 |c | BLS 0x23f56 00023f54 4e 4f |NO | TRAP #15 00023f56 41 f9 00 02 73 40 |A s@ | LEA.L 0x27340,A0 00023f5c 1f 30 08 08 | 0 | MOVE.B (A0+D0.L+#0x8),-(A7) 00023f60 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00023f66 5c 4f |\O | ADDQ.L #0x6,A7 00023f68 20 51 | Q | MOVEA.L (A1),A0 00023f6a 30 10 |0 | MOVE.W (A0),D0 00023f6c 0c 40 00 7a | @ z | CMPI.W #0x007a,D0 00023f70 6d 14 |m | BLT 0x23f86 00023f72 2f 11 |/ | MOVE.L (A1),-(A7) 00023f74 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String) 00023f7a 58 4f |XO | ADDQ.L #0x4,A7 00023f7c 48 51 |HQ | PEA.L (A1) 00023f7e 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00023f84 58 4f |XO | ADDQ.L #0x4,A7 00023f86 52 87 |R | ADDQ.L #0x1,D7 00023f88 68 b8 |h | BVC 0x23f42 00023f8a 58 4f |XO | ADDQ.L #0x4,A7 00023f8c 2f 11 |/ | MOVE.L (A1),-(A7) 00023f8e 1f 3c 00 20 | < | MOVE.B #0x20,-(A7) 00023f92 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00023f98 5c 4f |\O | ADDQ.L #0x6,A7 00023f9a 20 52 | R | MOVEA.L (A2),A0 00023f9c 24 a8 00 08 |$ | MOVE.L (A0+0x8),(A2) 00023fa0 60 00 ff 74 |` t | BRA 0x23f16 00023fa4 2f 11 |/ | MOVE.L (A1),-(A7) 00023fa6 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00023fac 58 4f |XO | ADDQ.L #0x4,A7 00023fae 4c df 07 81 |L | MOVEM.L (A7)+,D0+D7+A0+A1+A2 00023fb2 4e 5e |N^ | UNLK A6 00023fb4 4e 75 |Nu | RTS 00023fb6 ; -------------------------------------------------------------------------------------- 00023fb6 ; OMSI PASCAL Function 00023fb6 ; <LVAR 0x008 @ 4(r)> 00023fb6 ; <LVAR -0x003 @ 1(r)> 00023fb6 ; <LVAR -0x004 @ 1(r)> 00023fb6 ; <LVAR -0x008 @ 4(r)> 00023fb6 ; <LVAR -0x00c @ 4(rw)> 00023fb6 ; -------------------------------------------------------------------------------------- 00023fb6 4e 56 ff ae |NV | LINK.W A6,#0xffae 00023fba bf d5 | | CMPA.L (A5),A7 00023fbc 62 06 |b | BHI 0x23fc4 00023fbe 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023fc2 4e 76 |Nv | TRAPV 00023fc4 de fc 00 46 | F | ADDA.W #0x46,A7 00023fc8 48 e7 c0 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D1+D0,-(A7) 00023fcc 43 ee 00 08 |C | LEA.L (A6+0x8),A1 00023fd0 45 ee ff f4 |E | LEA.L (A6-0xc),A2 00023fd4 47 ee ff fc |G | LEA.L (A6-0x4),A3 00023fd8 49 ee ff f8 |I | LEA.L (A6-0x8),A4 00023fdc 72 01 |r | MOVEQ.L #0x01,D1 00023fde 2f 3a ec 36 |/: 6 | MOVE.L 0x22c16,-(A7) 00023fe2 51 4f |QO | SUBQ.L #0x8,A7 00023fe4 2f 11 |/ | MOVE.L (A1),-(A7) 00023fe6 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 00023fec 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00023ff0 3f 01 |? | MOVE.W D1,-(A7) 00023ff2 3f 3c 00 04 |?< | MOVE.W #0x4,-(A7) 00023ff6 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00023ffc 50 4f |PO | ADDQ.L #0x8,A7 00023ffe 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00024004 50 4f |PO | ADDQ.L #0x8,A7 00024006 24 9f |$ | MOVE.L (A7)+,(A2) 00024008 2e 92 |. | MOVE.L (A2),(A7) 0002400a 42 27 |B' | CLR.B -(A7) 0002400c 42 27 |B' | CLR.B -(A7) 0002400e 48 78 00 00 |Hx | PEA.L 0x0 00024012 48 53 |HS | PEA.L (A3) 00024014 48 54 |HT | PEA.L (A4) 00024016 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File) 0002401c de fc 00 14 | | ADDA.W #0x14,A7 00024020 4a 13 |J | TST.B (A3) 00024022 67 36 |g6 | BEQ 0x2405a 00024024 41 fa eb f0 |A | LEA.L 0x22c16,A0 00024028 70 0a |p | MOVEQ.L #0x0a,D0 0002402a 3f 20 |? | MOVE.W -(A0),-(A7) 0002402c 51 c8 ff fc |Q | DBF D0,0x2402a 00024030 51 4f |QO | SUBQ.L #0x8,A7 00024032 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00024036 3f 01 |? | MOVE.W D1,-(A7) 00024038 3f 3c 00 16 |?< | MOVE.W #0x16,-(A7) 0002403c 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00024042 58 4f |XO | ADDQ.L #0x4,A7 00024044 2e 91 |. | MOVE.L (A1),(A7) 00024046 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 0002404c 50 4f |PO | ADDQ.L #0x8,A7 0002404e 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00024054 de fc 00 1a | | ADDA.W #0x1a,A7 00024058 60 54 |`T | BRA 0x240ae 0002405a 2f 14 |/ | MOVE.L (A4),-(A7) 0002405c 48 51 |HQ | PEA.L (A1) 0002405e 48 6e ff fd |Hn | PEA.L (A6-0x3) 00024062 4e b9 00 01 04 3c |N < | JSR FileReadLine(file : File; VAR a : String; VAR b : Byte) 00024068 de fc 00 0c | | ADDA.W #0xc,A7 0002406c 4a 2e ff fd |J. | TST.B (A6-0x3) 00024070 66 14 |f | BNE 0x24086 00024072 59 4f |YO | SUBQ.L #0x4,A7 00024074 2f 11 |/ | MOVE.L (A1),-(A7) 00024076 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 0002407c 58 4f |XO | ADDQ.L #0x4,A7 0002407e 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00024084 58 4f |XO | ADDQ.L #0x4,A7 00024086 4a 2e ff fd |J. | TST.B (A6-0x3) 0002408a 67 ce |g | BEQ 0x2405a 0002408c 42 27 |B' | CLR.B -(A7) 0002408e 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 00024092 48 78 00 01 |Hx | PEA.L 0x1 00024096 48 53 |HS | PEA.L (A3) 00024098 48 54 |HT | PEA.L (A4) 0002409a 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File) 000240a0 de fc 00 10 | | ADDA.W #0x10,A7 000240a4 48 51 |HQ | PEA.L (A1) 000240a6 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000240ac 58 4f |XO | ADDQ.L #0x4,A7 000240ae 48 52 |HR | PEA.L (A2) 000240b0 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000240b6 58 4f |XO | ADDQ.L #0x4,A7 000240b8 4c df 1f 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2+A3+A4 000240bc 4e 5e |N^ | UNLK A6 000240be 4e 75 |Nu | RTS 000240c0 ; -------------------------------------------------------------------------------------- 000240c0 ; OMSI PASCAL Function 000240c0 ; <LVAR 0x008 4(r)> 000240c0 ; -------------------------------------------------------------------------------------- 000240c0 4e 56 ff c6 |NV | LINK.W A6,#0xffc6 000240c4 bf d5 | | CMPA.L (A5),A7 000240c6 62 06 |b | BHI 0x240ce 000240c8 44 fc 00 02 |D | MOVE.W #0x2,CCR 000240cc 4e 76 |Nv | TRAPV 000240ce de fc 00 2e | . | ADDA.W #0x2e,A7 000240d2 48 e7 83 88 |H | MOVEM.L A4+A0+D7+D6+D0,-(A7) 000240d6 59 4f |YO | SUBQ.L #0x4,A7 000240d8 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000240dc 4e ba f3 64 |N d | JSR 0x23442 000240e0 58 4f |XO | ADDQ.L #0x4,A7 000240e2 2c 1f |, | MOVE.L (A7)+,D6 000240e4 66 2e |f. | BNE 0x24114 000240e6 41 f9 00 02 93 5a |A Z | LEA.L 0x2935a,A0 000240ec 70 04 |p | MOVEQ.L #0x04,D0 000240ee 3f 20 |? | MOVE.W -(A0),-(A7) 000240f0 51 c8 ff fc |Q | DBF D0,0x240ee 000240f4 59 4f |YO | SUBQ.L #0x4,A7 000240f6 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000240fa 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000240fe 3f 3c 00 0a |?< | MOVE.W #0xa,-(A7) 00024102 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00024108 50 4f |PO | ADDQ.L #0x8,A7 0002410a 4e ba fe aa |N | JSR 0x23fb6 0002410e de fc 00 0e | | ADDA.W #0xe,A7 00024112 60 26 |`& | BRA 0x2413a 00024114 2f 06 |/ | MOVE.L D6,-(A7) 00024116 7e 01 |~ | MOVEQ.L #0x01,D7 00024118 be 97 | | CMP.L (A7),D7 0002411a 6e 1c |n | BGT 0x24138 0002411c 59 4f |YO | SUBQ.L #0x4,A7 0002411e 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00024122 2f 07 |/ | MOVE.L D7,-(A7) 00024124 4e ba fc 38 |N 8 | JSR 0x23d5e 00024128 50 4f |PO | ADDQ.L #0x8,A7 0002412a 28 5f |(_ | MOVEA.L (A7)+,A4 0002412c 2f 0c |/ | MOVE.L A4,-(A7) 0002412e 4e ba fe 86 |N | JSR 0x23fb6 00024132 58 4f |XO | ADDQ.L #0x4,A7 00024134 52 87 |R | ADDQ.L #0x1,D7 00024136 68 e0 |h | BVC 0x24118 00024138 58 4f |XO | ADDQ.L #0x4,A7 0002413a 4c df 11 c1 |L | MOVEM.L (A7)+,D0+D6+D7+A0+A4 0002413e 4e 5e |N^ | UNLK A6 00024140 4e 75 |Nu | RTS 00024142 ; -------------------------------------------------------------------------------------- 00024142 ; OMSI PASCAL Function 00024142 ; <LVAR 0x00c @> 00024142 ; <LVAR 0x008 @ 4(r)> 00024142 ; <LVAR -0x020 @> 00024142 ; -------------------------------------------------------------------------------------- 00024142 4e 56 ff b8 |NV | LINK.W A6,#0xffb8 00024146 bf d5 | | CMPA.L (A5),A7 00024148 62 06 |b | BHI 0x24150 0002414a 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002414e 4e 76 |Nv | TRAPV 00024150 de fc 00 24 | $ | ADDA.W #0x24,A7 00024154 48 e7 e1 c0 |H | MOVEM.L A1+A0+D7+D2+D1+D0,-(A7) 00024158 74 1d |t | MOVEQ.L #0x1d,D2 0002415a 7e 01 |~ | MOVEQ.L #0x01,D7 0002415c 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00024160 30 10 |0 | MOVE.W (A0),D0 00024162 48 c0 |H | EXTW.L D0 00024164 be 80 | | CMP.L D0,D7 00024166 6f 10 |o | BLE 0x24178 00024168 20 07 | | MOVE.L D7,D0 0002416a 53 80 |S | SUBQ.L #0x1,D0 0002416c b0 82 | | CMP.L D2,D0 0002416e 63 02 |c | BLS 0x24172 00024170 4e 4f |NO | TRAP #15 00024172 42 36 08 e0 |B6 | CLR.B (A6+D0.L-#0x20) 00024176 60 1e |` | BRA 0x24196 00024178 20 07 | | MOVE.L D7,D0 0002417a 53 80 |S | SUBQ.L #0x1,D0 0002417c b0 82 | | CMP.L D2,D0 0002417e 63 02 |c | BLS 0x24182 00024180 4e 4f |NO | TRAP #15 00024182 22 07 |" | MOVE.L D7,D1 00024184 53 81 |S | SUBQ.L #0x1,D1 00024186 0c 81 00 00 00 7d | } | CMPI.L #0x0000007d,D1 0002418c 63 02 |c | BLS 0x24190 0002418e 4e 4f |NO | TRAP #15 00024190 1d b0 18 02 08 e0 | | MOVE.B (A0+D1.L+#0x2),(A6+D0.L-#0x20) 00024196 52 87 |R | ADDQ.L #0x1,D7 00024198 0c 87 00 00 00 1e | | CMPI.L #0x0000001e,D7 0002419e 6f bc |o | BLE 0x2415c 000241a0 48 6e 00 08 |Hn | PEA.L (A6+0x8) 000241a4 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000241aa 58 4f |XO | ADDQ.L #0x4,A7 000241ac 41 ee 00 0c |A | LEA.L (A6+0xc),A0 000241b0 43 ee ff e0 |C | LEA.L (A6-0x20),A1 000241b4 70 0e |p | MOVEQ.L #0x0e,D0 000241b6 30 d9 |0 | MOVE.W (A1)+,(A0)+ 000241b8 51 c8 ff fc |Q | DBF D0,0x241b6 000241bc 4c df 03 87 |L | MOVEM.L (A7)+,D0+D1+D2+D7+A0+A1 000241c0 4e 5e |N^ | UNLK A6 000241c2 4e 75 |Nu | RTS 000241c4 ; -------------------------------------------------------------------------------------- 000241c4 ; OMSI PASCAL Function 000241c4 ; <LVAR 0x026 4(w)> 000241c4 ; <LVAR 0x008 @> 000241c4 ; <LVAR -0x006 4(rw)> 000241c4 ; -------------------------------------------------------------------------------------- 000241c4 4e 56 ff d6 |NV | LINK.W A6,#0xffd6 000241c8 bf d5 | | CMPA.L (A5),A7 000241ca 62 06 |b | BHI 0x241d2 000241cc 44 fc 00 02 |D | MOVE.W #0x2,CCR 000241d0 4e 76 |Nv | TRAPV 000241d2 de fc 00 24 | $ | ADDA.W #0x24,A7 000241d6 48 e7 c1 f0 |H | MOVEM.L A3+A2+A1+A0+D7+D1+D0,-(A7) 000241da 47 ee ff fa |G | LEA.L (A6-0x6),A3 000241de 7e 00 |~ | MOVEQ.L #0x00,D7 000241e0 26 b9 00 02 93 72 |& r | MOVE.L 0x29372,(A3) 000241e6 20 53 | S | MOVEA.L (A3),A0 000241e8 b0 fc 00 01 | | CMPA.W #0x1,A0 000241ec 67 1e |g | BEQ 0x2420c 000241ee 4a 07 |J | TST.B D7 000241f0 66 1a |f | BNE 0x2420c 000241f2 22 48 |"H | MOVEA.L A0,A1 000241f4 45 ee 00 08 |E | LEA.L (A6+0x8),A2 000241f8 70 1d |p | MOVEQ.L #0x1d,D0 000241fa b5 09 | | CMPM.B (A1)+,(A2)+ 000241fc 56 c8 ff fc |V | DBNE D0,0x241fa 00024200 66 04 |f | BNE 0x24206 00024202 7e 01 |~ | MOVEQ.L #0x01,D7 00024204 60 04 |` | BRA 0x2420a 00024206 26 a8 00 26 |& & | MOVE.L (A0+0x26),(A3) 0002420a 60 da |` | BRA 0x241e6 0002420c 2d 48 00 26 |-H & | MOVE.L A0,(A6+0x26) 00024210 4c df 0f 83 |L | MOVEM.L (A7)+,D0+D1+D7+A0+A1+A2+A3 00024214 4e 5e |N^ | UNLK A6 00024216 4e 75 |Nu | RTS 00024218 ; -------------------------------------------------------------------------------------- 00024218 ; OMSI PASCAL Function 00024218 ; <LVAR 0x008 @ 4(r)> 00024218 ; -------------------------------------------------------------------------------------- 00024218 4e 56 ff c8 |NV | LINK.W A6,#0xffc8 0002421c bf d5 | | CMPA.L (A5),A7 0002421e 62 06 |b | BHI 0x24226 00024220 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024224 4e 76 |Nv | TRAPV 00024226 de fc 00 2c | , | ADDA.W #0x2c,A7 0002422a 48 e7 81 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D0,-(A7) 0002422e 43 ee 00 08 |C | LEA.L (A6+0x8),A1 00024232 45 f9 00 02 93 72 |E r | LEA.L 0x29372,A2 00024238 70 01 |p | MOVEQ.L #0x01,D0 0002423a 20 51 | Q | MOVEA.L (A1),A0 0002423c b0 c0 | | CMPA.W D0,A0 0002423e 67 56 |gV | BEQ 0x24296 00024240 4a a8 00 1e |J | TST.L (A0+0x1e) 00024244 67 10 |g | BEQ 0x24256 00024246 2f 28 00 22 |/( " | MOVE.L (A0+0x22),-(A7) 0002424a 2f 28 00 1e |/( | MOVE.L (A0+0x1e),-(A7) 0002424e 4e b9 00 01 02 a4 |N | JSR Free1(a : Pointer; b : Long) 00024254 50 4f |PO | ADDQ.L #0x8,A7 00024256 7e 00 |~ | MOVEQ.L #0x00,D7 00024258 38 40 |8@ | MOVEA.W D0,A4 0002425a 26 52 |&R | MOVEA.L (A2),A3 0002425c b6 c0 | | CMPA.W D0,A3 0002425e 67 14 |g | BEQ 0x24274 00024260 4a 07 |J | TST.B D7 00024262 66 10 |f | BNE 0x24274 00024264 b7 d1 | | CMPA.L (A1),A3 00024266 66 04 |f | BNE 0x2426c 00024268 7e 01 |~ | MOVEQ.L #0x01,D7 0002426a 60 06 |` | BRA 0x24272 0002426c 28 4b |(K | MOVEA.L A3,A4 0002426e 26 6b 00 26 |&k & | MOVEA.L (A3+0x26),A3 00024272 60 e8 |` | BRA 0x2425c 00024274 4a 07 |J | TST.B D7 00024276 67 1e |g | BEQ 0x24296 00024278 b8 c0 | | CMPA.W D0,A4 0002427a 66 06 |f | BNE 0x24282 0002427c 24 ab 00 26 |$ & | MOVE.L (A3+0x26),(A2) 00024280 60 06 |` | BRA 0x24288 00024282 29 6b 00 26 00 26 |)k & & | MOVE.L (A3+0x26),(A4+0x26) 00024288 48 51 |HQ | PEA.L (A1) 0002428a 48 78 00 2a |Hx * | PEA.L 0x2a 0002428e 4e b9 00 01 02 a8 |N | JSR Free2(a : Pointer; b : Long) 00024294 50 4f |PO | ADDQ.L #0x8,A7 00024296 4c df 1f 81 |L | MOVEM.L (A7)+,D0+D7+A0+A1+A2+A3+A4 0002429a 4e 5e |N^ | UNLK A6 0002429c 4e 75 |Nu | RTS 0002429e ; -------------------------------------------------------------------------------------- 0002429e ; OMSI PASCAL Function 0002429e ; <LVAR 0x010 4(w)> 0002429e ; <LVAR 0x00c 4(r)> 0002429e ; <LVAR 0x008 4(r)> 0002429e ; <LVAR -0x006 @ 4(rw)> 0002429e ; <LVAR -0x024 @> 0002429e ; -------------------------------------------------------------------------------------- 0002429e 4e 56 ff 9a |NV | LINK.W A6,#0xff9a 000242a2 bf d5 | | CMPA.L (A5),A7 000242a4 62 06 |b | BHI 0x242ac 000242a6 44 fc 00 02 |D | MOVE.W #0x2,CCR 000242aa 4e 76 |Nv | TRAPV 000242ac de fc 00 42 | B | ADDA.W #0x42,A7 000242b0 48 e7 c0 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D1+D0,-(A7) 000242b4 47 ee ff fa |G | LEA.L (A6-0x6),A3 000242b8 49 ee 00 08 |I | LEA.L (A6+0x8),A4 000242bc 72 1e |r | MOVEQ.L #0x1e,D1 000242be 9e c1 | | SUBA.W D1,A7 000242c0 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 000242c4 2f 10 |/ | MOVE.L (A0),-(A7) 000242c6 4e ba fe 7a |N z | JSR 0x24142 000242ca 58 4f |XO | ADDQ.L #0x4,A7 000242cc 41 ee ff dc |A | LEA.L (A6-0x24),A0 000242d0 70 0e |p | MOVEQ.L #0x0e,D0 000242d2 30 df |0 | MOVE.W (A7)+,(A0)+ 000242d4 51 c8 ff fc |Q | DBF D0,0x242d2 000242d8 4a 94 |J | TST.L (A4) 000242da 6c 02 |l | BGE 0x242de 000242dc 42 94 |B | CLR.L (A4) 000242de 59 4f |YO | SUBQ.L #0x4,A7 000242e0 20 4b | K | MOVEA.L A3,A0 000242e2 70 0e |p | MOVEQ.L #0x0e,D0 000242e4 3f 20 |? | MOVE.W -(A0),-(A7) 000242e6 51 c8 ff fc |Q | DBF D0,0x242e4 000242ea 4e ba fe d8 |N | JSR 0x241c4 000242ee de c1 | | ADDA.W D1,A7 000242f0 26 9f |& | MOVE.L (A7)+,(A3) 000242f2 20 53 | S | MOVEA.L (A3),A0 000242f4 b0 fc 00 01 | | CMPA.W #0x1,A0 000242f8 67 12 |g | BEQ 0x2430c 000242fa 20 28 00 1e | ( | MOVE.L (A0+0x1e),D0 000242fe b0 94 | | CMP.L (A4),D0 00024300 66 02 |f | BNE 0x24304 00024302 60 4c |`L | BRA 0x24350 00024304 2f 13 |/ | MOVE.L (A3),-(A7) 00024306 4e ba ff 10 |N | JSR 0x24218 0002430a 58 4f |XO | ADDQ.L #0x4,A7 0002430c 48 53 |HS | PEA.L (A3) 0002430e 48 78 00 2a |Hx * | PEA.L 0x2a 00024312 4e b9 00 01 02 9c |N | JSR Malloc1(length : Long) : Pointer 00024318 50 4f |PO | ADDQ.L #0x8,A7 0002431a 20 53 | S | MOVEA.L (A3),A0 0002431c 21 79 00 02 93 72 00 26 |!y r &| MOVE.L 0x29372,(A0+0x26) 00024324 23 d3 00 02 93 72 |# r | MOVE.L (A3),0x29372 0002432a 22 48 |"H | MOVEA.L A0,A1 0002432c 45 ee ff dc |E | LEA.L (A6-0x24),A2 00024330 70 1d |p | MOVEQ.L #0x1d,D0 00024332 12 da | | MOVE.B (A2)+,(A1)+ 00024334 51 c8 ff fc |Q | DBF D0,0x24332 00024338 21 54 00 1e |!T | MOVE.L (A4),(A0+0x1e) 0002433c 4a 94 |J | TST.L (A4) 0002433e 67 10 |g | BEQ 0x24350 00024340 59 4f |YO | SUBQ.L #0x4,A7 00024342 2f 14 |/ | MOVE.L (A4),-(A7) 00024344 4e b9 00 01 02 a0 |N | JSR Malloc2(VAR dst : Pointer; length : Word) 0002434a 58 4f |XO | ADDQ.L #0x4,A7 0002434c 21 5f 00 22 |!_ " | MOVE.L (A7)+,(A0+0x22) 00024350 2d 53 00 10 |-S | MOVE.L (A3),(A6+0x10) 00024354 4c df 1f 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2+A3+A4 00024358 4e 5e |N^ | UNLK A6 0002435a 4e 75 |Nu | RTS 0002435c ; -------------------------------------------------------------------------------------- 0002435c ; OMSI PASCAL Function 0002435c ; <LVAR 0x00c @> 0002435c ; <LVAR 0x008 @ 4(r)> 0002435c ; <LVAR -0x008 4(rw)> 0002435c ; -------------------------------------------------------------------------------------- 0002435c 4e 56 ff c8 |NV | LINK.W A6,#0xffc8 00024360 bf d5 | | CMPA.L (A5),A7 00024362 62 06 |b | BHI 0x2436a 00024364 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024368 4e 76 |Nv | TRAPV 0002436a de fc 00 2c | , | ADDA.W #0x2c,A7 0002436e 48 e7 c3 e0 |H | MOVEM.L A2+A1+A0+D7+D6+D1+D0,-(A7) 00024372 45 ee 00 08 |E | LEA.L (A6+0x8),A2 00024376 20 52 | R | MOVEA.L (A2),A0 00024378 30 10 |0 | MOVE.W (A0),D0 0002437a 48 c0 |H | EXTW.L D0 0002437c 2c 00 |, | MOVE.L D0,D6 0002437e 59 4f |YO | SUBQ.L #0x4,A7 00024380 48 6e 00 0c |Hn | PEA.L (A6+0xc) 00024384 2f 06 |/ | MOVE.L D6,-(A7) 00024386 4e ba ff 16 |N | JSR 0x2429e 0002438a 50 4f |PO | ADDQ.L #0x8,A7 0002438c 2d 5f ff f8 |-_ | MOVE.L (A7)+,(A6-0x8) 00024390 4a 86 |J | TST.L D6 00024392 67 40 |g@ | BEQ 0x243d4 00024394 20 6e ff f8 | n | MOVEA.L (A6-0x8),A0 00024398 20 68 00 22 | h " | MOVEA.L (A0+0x22),A0 0002439c 2f 08 |/ | MOVE.L A0,-(A7) 0002439e 2f 06 |/ | MOVE.L D6,-(A7) 000243a0 7e 01 |~ | MOVEQ.L #0x01,D7 000243a2 be 97 | | CMP.L (A7),D7 000243a4 6e 2c |n, | BGT 0x243d2 000243a6 20 07 | | MOVE.L D7,D0 000243a8 53 80 |S | SUBQ.L #0x1,D0 000243aa 0c 80 00 00 03 ff | | CMPI.L #0x000003ff,D0 000243b0 63 02 |c | BLS 0x243b4 000243b2 4e 4f |NO | TRAP #15 000243b4 20 6f 00 04 | o | MOVEA.L (A7+0x4),A0 000243b8 22 52 |"R | MOVEA.L (A2),A1 000243ba 22 07 |" | MOVE.L D7,D1 000243bc 53 81 |S | SUBQ.L #0x1,D1 000243be 0c 81 00 00 00 7d | } | CMPI.L #0x0000007d,D1 000243c4 63 02 |c | BLS 0x243c8 000243c6 4e 4f |NO | TRAP #15 000243c8 11 b1 18 02 08 00 | | MOVE.B (A1+D1.L+#0x2),(A0+D0.L) 000243ce 52 87 |R | ADDQ.L #0x1,D7 000243d0 68 d0 |h | BVC 0x243a2 000243d2 50 4f |PO | ADDQ.L #0x8,A7 000243d4 48 52 |HR | PEA.L (A2) 000243d6 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000243dc 58 4f |XO | ADDQ.L #0x4,A7 000243de 4c df 07 c3 |L | MOVEM.L (A7)+,D0+D1+D6+D7+A0+A1+A2 000243e2 4e 5e |N^ | UNLK A6 000243e4 4e 75 |Nu | RTS 000243e6 ; -------------------------------------------------------------------------------------- 000243e6 ; OMSI PASCAL Function 000243e6 ; <LVAR 0x008 4(r)> 000243e6 ; <LVAR -0x004 @ 4(w)> 000243e6 ; <LVAR -0x008 4(rw)> 000243e6 ; <LVAR -0x00c 4(rw)> 000243e6 ; <LVAR -0x010 4(rw)> 000243e6 ; <LVAR -0x01c 4(rw)> 000243e6 ; <LVAR -0x020 4(rw)> 000243e6 ; -------------------------------------------------------------------------------------- 000243e6 4e 56 ff 82 |NV | LINK.W A6,#0xff82 000243ea bf d5 | | CMPA.L (A5),A7 000243ec 62 06 |b | BHI 0x243f4 000243ee 44 fc 00 02 |D | MOVE.W #0x2,CCR 000243f2 4e 76 |Nv | TRAPV 000243f4 de fc 00 5a | Z | ADDA.W #0x5a,A7 000243f8 48 e7 e7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7) 000243fc 45 ee ff f4 |E | LEA.L (A6-0xc),A2 00024400 47 ee ff f0 |G | LEA.L (A6-0x10),A3 00024404 49 ee 00 08 |I | LEA.L (A6+0x8),A4 00024408 74 01 |t | MOVEQ.L #0x01,D2 0002440a 59 4f |YO | SUBQ.L #0x4,A7 0002440c 2f 14 |/ | MOVE.L (A4),-(A7) 0002440e 4e ba f0 32 |N 2 | JSR 0x23442 00024412 58 4f |XO | ADDQ.L #0x4,A7 00024414 26 9f |& | MOVE.L (A7)+,(A3) 00024416 20 13 | | MOVE.L (A3),D0 00024418 b0 82 | | CMP.L D2,D0 0002441a 6c 2e |l. | BGE 0x2444a 0002441c 9e fc 00 1a | | SUBA.W #0x1a,A7 00024420 20 4f | O | MOVEA.L A7,A0 00024422 43 fa e7 f6 |C | LEA.L 0x22c1a,A1 00024426 72 18 |r | MOVEQ.L #0x18,D1 00024428 10 d9 | | MOVE.B (A1)+,(A0)+ 0002442a 51 c9 ff fc |Q | DBF D1,0x24428 0002442e 59 4f |YO | SUBQ.L #0x4,A7 00024430 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00024434 3f 02 |? | MOVE.W D2,-(A7) 00024436 3f 3c 00 19 |?< | MOVE.W #0x19,-(A7) 0002443a 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00024440 50 4f |PO | ADDQ.L #0x8,A7 00024442 4e ba eb f2 |N | JSR 0x23036 00024446 de fc 00 1e | | ADDA.W #0x1e,A7 0002444a 42 92 |B | CLR.L (A2) 0002444c 2f 00 |/ | MOVE.L D0,-(A7) 0002444e 7c 02 || | MOVEQ.L #0x02,D6 00024450 bc 97 | | CMP.L (A7),D6 00024452 6e 1e |n | BGT 0x24472 00024454 9e fc 00 0c | | SUBA.W #0xc,A7 00024458 2f 14 |/ | MOVE.L (A4),-(A7) 0002445a 2f 06 |/ | MOVE.L D6,-(A7) 0002445c 4e ba f8 22 |N " | JSR 0x23c80 00024460 50 4f |PO | ADDQ.L #0x8,A7 00024462 4e ba f7 e4 |N | JSR 0x23c48 00024466 50 4f |PO | ADDQ.L #0x8,A7 00024468 20 12 | | MOVE.L (A2),D0 0002446a d0 9f | | ADD.L (A7)+,D0 0002446c 24 80 |$ | MOVE.L D0,(A2) 0002446e 52 86 |R | ADDQ.L #0x1,D6 00024470 68 de |h | BVC 0x24450 00024472 58 4f |XO | ADDQ.L #0x4,A7 00024474 20 13 | | MOVE.L (A3),D0 00024476 55 80 |U | SUBQ.L #0x2,D0 00024478 d1 92 | | ADD.L D0,(A2) 0002447a 59 4f |YO | SUBQ.L #0x4,A7 0002447c 2f 14 |/ | MOVE.L (A4),-(A7) 0002447e 48 78 00 01 |Hx | PEA.L 0x1 00024482 4e ba f8 da |N | JSR 0x23d5e 00024486 50 4f |PO | ADDQ.L #0x8,A7 00024488 2d 57 ff fc |-W | MOVE.L (A7),(A6-0x4) 0002448c 48 6e ff fc |Hn | PEA.L (A6-0x4) 00024490 2f 12 |/ | MOVE.L (A2),-(A7) 00024492 4e ba fe 0a |N | JSR 0x2429e 00024496 50 4f |PO | ADDQ.L #0x8,A7 00024498 2d 5f ff f8 |-_ | MOVE.L (A7)+,(A6-0x8) 0002449c 4a 92 |J | TST.L (A2) 0002449e 6f 00 00 aa |o | BLE 0x2454a 000244a2 20 6e ff f8 | n | MOVEA.L (A6-0x8),A0 000244a6 20 68 00 22 | h " | MOVEA.L (A0+0x22),A0 000244aa 2f 08 |/ | MOVE.L A0,-(A7) 000244ac 7e 01 |~ | MOVEQ.L #0x01,D7 000244ae 2f 13 |/ | MOVE.L (A3),-(A7) 000244b0 7c 02 || | MOVEQ.L #0x02,D6 000244b2 bc 97 | | CMP.L (A7),D6 000244b4 6e 00 00 92 |n | BGT 0x24548 000244b8 51 4f |QO | SUBQ.L #0x8,A7 000244ba 2f 14 |/ | MOVE.L (A4),-(A7) 000244bc 2f 06 |/ | MOVE.L D6,-(A7) 000244be 4e ba f7 c0 |N | JSR 0x23c80 000244c2 50 4f |PO | ADDQ.L #0x8,A7 000244c4 2d 5f ff e0 |-_ | MOVE.L (A7)+,(A6-0x20) 000244c8 2d 5f ff e4 |-_ | MOVE.L (A7)+,(A6-0x1c) 000244cc 2f 2e ff e4 |/. | MOVE.L (A6-0x1c),-(A7) 000244d0 2a 2e ff e0 |*. | MOVE.L (A6-0x20),D5 000244d4 ba 97 | | CMP.L (A7),D5 000244d6 6e 14 |n | BGT 0x244ec 000244d8 20 17 | | MOVE.L (A7),D0 000244da 0c 85 80 00 00 01 | | CMPI.L #0x80000001,D5 000244e0 6d 08 |m | BLT 0x244ea 000244e2 0c 80 7f ff ff ff | | CMPI.L #0x7fffffff,D0 000244e8 6f 02 |o | BLE 0x244ec 000244ea 4e 4f |NO | TRAP #15 000244ec ba 97 | | CMP.L (A7),D5 000244ee 6e 32 |n2 | BGT 0x24522 000244f0 20 07 | | MOVE.L D7,D0 000244f2 53 80 |S | SUBQ.L #0x1,D0 000244f4 0c 80 00 00 03 ff | | CMPI.L #0x000003ff,D0 000244fa 63 02 |c | BLS 0x244fe 000244fc 4e 4f |NO | TRAP #15 000244fe 20 6f 00 08 | o | MOVEA.L (A7+0x8),A0 00024502 22 05 |" | MOVE.L D5,D1 00024504 53 81 |S | SUBQ.L #0x1,D1 00024506 0c 81 00 00 1f ff | | CMPI.L #0x00001fff,D1 0002450c 63 02 |c | BLS 0x24510 0002450e 4e 4f |NO | TRAP #15 00024510 43 f9 00 02 73 40 |C s@ | LEA.L 0x27340,A1 00024516 11 b1 18 08 08 00 | | MOVE.B (A1+D1.L+#0x8),(A0+D0.L) 0002451c 52 87 |R | ADDQ.L #0x1,D7 0002451e 52 85 |R | ADDQ.L #0x1,D5 00024520 68 ca |h | BVC 0x244ec 00024522 58 4f |XO | ADDQ.L #0x4,A7 00024524 bc 93 | | CMP.L (A3),D6 00024526 67 1a |g | BEQ 0x24542 00024528 20 07 | | MOVE.L D7,D0 0002452a 53 80 |S | SUBQ.L #0x1,D0 0002452c 0c 80 00 00 03 ff | | CMPI.L #0x000003ff,D0 00024532 63 02 |c | BLS 0x24536 00024534 4e 4f |NO | TRAP #15 00024536 20 6f 00 04 | o | MOVEA.L (A7+0x4),A0 0002453a 11 bc 00 2c 08 00 | , | MOVE.B #0x2c,(A0+D0.L) 00024540 52 87 |R | ADDQ.L #0x1,D7 00024542 52 86 |R | ADDQ.L #0x1,D6 00024544 68 00 ff 6c |h l | BVC 0x244b2 00024548 50 4f |PO | ADDQ.L #0x8,A7 0002454a 4c df 1f e7 |L | MOVEM.L (A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3+A4 0002454e 4e 5e |N^ | UNLK A6 00024550 4e 75 |Nu | RTS 00024552 ; -------------------------------------------------------------------------------------- 00024552 ; OMSI PASCAL Function 00024552 ; <LVAR 0x008 4(r)> 00024552 ; <LVAR -0x00c 4(rw)> 00024552 ; -------------------------------------------------------------------------------------- 00024552 4e 56 ff a0 |NV | LINK.W A6,#0xffa0 00024556 bf d5 | | CMPA.L (A5),A7 00024558 62 06 |b | BHI 0x24560 0002455a 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002455e 4e 76 |Nv | TRAPV 00024560 de fc 00 54 | T | ADDA.W #0x54,A7 00024564 48 e7 e1 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D2+D1+D0,-(A7) 00024568 47 f9 00 02 93 48 |G H | LEA.L 0x29348,A3 0002456e 74 01 |t | MOVEQ.L #0x01,D2 00024570 59 4f |YO | SUBQ.L #0x4,A7 00024572 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00024576 48 78 00 01 |Hx | PEA.L 0x1 0002457a 4e ba f7 e2 |N | JSR 0x23d5e 0002457e 50 4f |PO | ADDQ.L #0x8,A7 00024580 28 5f |(_ | MOVEA.L (A7)+,A4 00024582 9e fc 00 22 | " | SUBA.W #0x22,A7 00024586 2f 0c |/ | MOVE.L A4,-(A7) 00024588 4e ba fb b8 |N | JSR 0x24142 0002458c 58 4f |XO | ADDQ.L #0x4,A7 0002458e 4e ba fc 34 |N 4 | JSR 0x241c4 00024592 de fc 00 1e | | ADDA.W #0x1e,A7 00024596 2d 5f ff f4 |-_ | MOVE.L (A7)+,(A6-0xc) 0002459a 20 6e ff f4 | n | MOVEA.L (A6-0xc),A0 0002459e b0 c2 | | CMPA.W D2,A0 000245a0 66 42 |fB | BNE 0x245e4 000245a2 9e fc 00 14 | | SUBA.W #0x14,A7 000245a6 22 4f |"O | MOVEA.L A7,A1 000245a8 45 fa e6 8a |E | LEA.L 0x22c34,A2 000245ac 70 12 |p | MOVEQ.L #0x12,D0 000245ae 12 da | | MOVE.B (A2)+,(A1)+ 000245b0 51 c8 ff fc |Q | DBF D0,0x245ae 000245b4 51 4f |QO | SUBQ.L #0x8,A7 000245b6 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000245ba 3f 02 |? | MOVE.W D2,-(A7) 000245bc 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7) 000245c0 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000245c6 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7) 000245ca 48 78 00 01 |Hx | PEA.L 0x1 000245ce 4e ba f7 8e |N | JSR 0x23d5e 000245d2 50 4f |PO | ADDQ.L #0x8,A7 000245d4 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000245da 50 4f |PO | ADDQ.L #0x8,A7 000245dc 4e ba ea 58 |N X | JSR 0x23036 000245e0 de fc 00 18 | | ADDA.W #0x18,A7 000245e4 2f 08 |/ | MOVE.L A0,-(A7) 000245e6 2f 13 |/ | MOVE.L (A3),-(A7) 000245e8 2f 28 00 1e |/( | MOVE.L (A0+0x1e),-(A7) 000245ec 44 97 |D | NEG.L (A7) 000245ee 4e ba ef 9a |N | JSR 0x2358a 000245f2 58 4f |XO | ADDQ.L #0x4,A7 000245f4 2e a8 00 1e |. | MOVE.L (A0+0x1e),(A7) 000245f8 7e 01 |~ | MOVEQ.L #0x01,D7 000245fa be 97 | | CMP.L (A7),D7 000245fc 6e 38 |n8 | BGT 0x24636 000245fe 20 07 | | MOVE.L D7,D0 00024600 d0 93 | | ADD.L (A3),D0 00024602 53 80 |S | SUBQ.L #0x1,D0 00024604 53 80 |S | SUBQ.L #0x1,D0 00024606 0c 80 00 00 1f ff | | CMPI.L #0x00001fff,D0 0002460c 63 02 |c | BLS 0x24610 0002460e 4e 4f |NO | TRAP #15 00024610 41 f9 00 02 73 40 |A s@ | LEA.L 0x27340,A0 00024616 22 6f 00 04 |"o | MOVEA.L (A7+0x4),A1 0002461a 22 69 00 22 |"i " | MOVEA.L (A1+0x22),A1 0002461e 22 07 |" | MOVE.L D7,D1 00024620 53 81 |S | SUBQ.L #0x1,D1 00024622 0c 81 00 00 03 ff | | CMPI.L #0x000003ff,D1 00024628 63 02 |c | BLS 0x2462c 0002462a 4e 4f |NO | TRAP #15 0002462c 11 b1 18 00 08 08 | | MOVE.B (A1+D1.L),(A0+D0.L+#0x8) 00024632 52 87 |R | ADDQ.L #0x1,D7 00024634 68 c4 |h | BVC 0x245fa 00024636 50 4f |PO | ADDQ.L #0x8,A7 00024638 4c df 1f 87 |L | MOVEM.L (A7)+,D0+D1+D2+D7+A0+A1+A2+A3+A4 0002463c 4e 5e |N^ | UNLK A6 0002463e 4e 75 |Nu | RTS 00024640 ; -------------------------------------------------------------------------------------- 00024640 ; OMSI PASCAL Function 00024640 ; <LVAR -0x004 4(rw)> 00024640 ; -------------------------------------------------------------------------------------- 00024640 4e 56 ff ae |NV | LINK.W A6,#0xffae 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 4e | N | ADDA.W #0x4e,A7 00024652 48 e7 e0 f0 |H | MOVEM.L A3+A2+A1+A0+D2+D1+D0,-(A7) 00024656 47 ee ff fc |G | LEA.L (A6-0x4),A3 0002465a 72 01 |r | MOVEQ.L #0x01,D1 0002465c 74 1e |t | MOVEQ.L #0x1e,D2 0002465e 26 b9 00 02 93 72 |& r | MOVE.L 0x29372,(A3) 00024664 20 53 | S | MOVEA.L (A3),A0 00024666 b0 c1 | | CMPA.W D1,A0 00024668 67 30 |g0 | BEQ 0x2469a 0002466a 9e c2 | | SUBA.W D2,A7 0002466c 22 4f |"O | MOVEA.L A7,A1 0002466e 24 48 |$H | MOVEA.L A0,A2 00024670 70 1d |p | MOVEQ.L #0x1d,D0 00024672 12 da | | MOVE.B (A2)+,(A1)+ 00024674 51 c8 ff fc |Q | DBF D0,0x24672 00024678 59 4f |YO | SUBQ.L #0x4,A7 0002467a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002467e 3f 01 |? | MOVE.W D1,-(A7) 00024680 3f 02 |? | MOVE.W D2,-(A7) 00024682 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00024688 50 4f |PO | ADDQ.L #0x8,A7 0002468a 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00024690 de fc 00 22 | " | ADDA.W #0x22,A7 00024694 26 a8 00 26 |& & | MOVE.L (A0+0x26),(A3) 00024698 60 ca |` | BRA 0x24664 0002469a 4c df 0f 07 |L | MOVEM.L (A7)+,D0+D1+D2+A0+A1+A2+A3 0002469e 4e 5e |N^ | UNLK A6 000246a0 4e 75 |Nu | RTS 000246a2 ; -------------------------------------------------------------------------------------- 000246a2 ; OMSI PASCAL Function 000246a2 ; <LVAR 0x008 4(r)> 000246a2 ; -------------------------------------------------------------------------------------- 000246a2 4e 56 ff ce |NV | LINK.W A6,#0xffce 000246a6 bf d5 | | CMPA.L (A5),A7 000246a8 62 06 |b | BHI 0x246b0 000246aa 44 fc 00 02 |D | MOVE.W #0x2,CCR 000246ae 4e 76 |Nv | TRAPV 000246b0 de fc 00 32 | 2 | ADDA.W #0x32,A7 000246b4 9e fc 00 26 | & | SUBA.W #0x26,A7 000246b8 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000246bc 48 78 00 01 |Hx | PEA.L 0x1 000246c0 4e ba f6 9c |N | JSR 0x23d5e 000246c4 50 4f |PO | ADDQ.L #0x8,A7 000246c6 4e ba fa 7a |N z | JSR 0x24142 000246ca 58 4f |XO | ADDQ.L #0x4,A7 000246cc 4e ba fa f6 |N | JSR 0x241c4 000246d0 de fc 00 1e | | ADDA.W #0x1e,A7 000246d4 4e ba fb 42 |N B | JSR 0x24218 000246d8 58 4f |XO | ADDQ.L #0x4,A7 000246da 4e 5e |N^ | UNLK A6 000246dc 4e 75 |Nu | RTS 000246de ; -------------------------------------------------------------------------------------- 000246de ; OMSI PASCAL Function 000246de ; -------------------------------------------------------------------------------------- 000246de 4e 56 ff f4 |NV | LINK.W A6,#0xfff4 000246e2 bf d5 | | CMPA.L (A5),A7 000246e4 62 06 |b | BHI 0x246ec 000246e6 44 fc 00 02 |D | MOVE.W #0x2,CCR 000246ea 4e 76 |Nv | TRAPV 000246ec de fc 00 0c | | ADDA.W #0xc,A7 000246f0 51 4f |QO | SUBQ.L #0x8,A7 000246f2 4e b9 00 01 03 cc |N | JSR GetPushLevel() : Long 000246f8 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 000246fe 58 4f |XO | ADDQ.L #0x4,A7 00024700 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00024706 58 4f |XO | ADDQ.L #0x4,A7 00024708 4e 5e |N^ | UNLK A6 0002470a 4e 75 |Nu | RTS 0002470c ; -------------------------------------------------------------------------------------- 0002470c ; OMSI PASCAL Function 0002470c ; <LVAR 0x008 4(r)> 0002470c ; <LVAR -0x004 1(rw)> 0002470c ; <LVAR -0x008 @ 4(rw)> 0002470c ; <LVAR -0x00c @ 4(r)> 0002470c ; <LVAR -0x010 @ 4(r)> 0002470c ; <LVAR -0x012 @ 1(r)> 0002470c ; <LVAR -0x013 @ 1(r)> 0002470c ; <LVAR -0x014 @ 1(r)> 0002470c ; <LVAR -0x024 4(rw)> 0002470c ; <LVAR -0x028 4(rw)> 0002470c ; <LVAR -0x02c 4(rw)> 0002470c ; <LVAR -0x030 @ 4(r)> 0002470c ; <LVAR -0x032 1(w)> 0002470c ; <LVAR -0x036 @ 4(r)> 0002470c ; <LVAR -0x038 @ 1(r)> 0002470c ; <LVAR -0x03c @ 4(rw)> 0002470c ; -------------------------------------------------------------------------------------- 0002470c 4e 56 ff 64 |NV d | LINK.W A6,#0xff64 00024710 bf d5 | | CMPA.L (A5),A7 00024712 62 06 |b | BHI 0x2471a 00024714 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024718 4e 76 |Nv | TRAPV 0002471a de fc 00 60 | ` | ADDA.W #0x60,A7 0002471e 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00024722 45 ee ff c4 |E | LEA.L (A6-0x3c),A2 00024726 47 ee 00 08 |G | LEA.L (A6+0x8),A3 0002472a 49 f9 00 01 02 c4 |I | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A4 00024730 74 01 |t | MOVEQ.L #0x01,D2 00024732 76 14 |v | MOVEQ.L #0x14,D3 00024734 28 3c ff ff 80 00 |(< | MOVE.L #0xffff8000,D4 0002473a 59 4f |YO | SUBQ.L #0x4,A7 0002473c 2f 13 |/ | MOVE.L (A3),-(A7) 0002473e 4e ba ed 02 |N | JSR 0x23442 00024742 58 4f |XO | ADDQ.L #0x4,A7 00024744 2d 5f ff d4 |-_ | MOVE.L (A7)+,(A6-0x2c) 00024748 66 28 |f( | BNE 0x24772 0002474a 59 4f |YO | SUBQ.L #0x4,A7 0002474c 1e ba e5 0c | | MOVE.B 0x22c5a,(A7) 00024750 1f 7a e5 09 00 01 | z | MOVE.B 0x22c5b,(A7+0x1) 00024756 1f 7a e5 04 00 02 | z | MOVE.B 0x22c5c,(A7+0x2) 0002475c 59 4f |YO | SUBQ.L #0x4,A7 0002475e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00024762 3f 02 |? | MOVE.W D2,-(A7) 00024764 3f 3c 00 03 |?< | MOVE.W #0x3,-(A7) 00024768 4e 94 |N | JSR (A4) 0002476a 50 4f |PO | ADDQ.L #0x8,A7 0002476c 24 9f |$ | MOVE.L (A7)+,(A2) 0002476e 58 4f |XO | ADDQ.L #0x4,A7 00024770 60 10 |` | BRA 0x24782 00024772 59 4f |YO | SUBQ.L #0x4,A7 00024774 2f 13 |/ | MOVE.L (A3),-(A7) 00024776 48 78 00 01 |Hx | PEA.L 0x1 0002477a 4e ba f5 e2 |N | JSR 0x23d5e 0002477e 50 4f |PO | ADDQ.L #0x8,A7 00024780 24 9f |$ | MOVE.L (A7)+,(A2) 00024782 5d 4f |]O | SUBQ.L #0x6,A7 00024784 20 4f | O | MOVEA.L A7,A0 00024786 43 fa e4 d6 |C | LEA.L 0x22c5e,A1 0002478a 70 04 |p | MOVEQ.L #0x04,D0 0002478c 10 d9 | | MOVE.B (A1)+,(A0)+ 0002478e 51 c8 ff fc |Q | DBF D0,0x2478c 00024792 59 4f |YO | SUBQ.L #0x4,A7 00024794 2f 12 |/ | MOVE.L (A2),-(A7) 00024796 59 4f |YO | SUBQ.L #0x4,A7 00024798 48 6f 00 0c |Ho | PEA.L (A7+0xc) 0002479c 3f 02 |? | MOVE.W D2,-(A7) 0002479e 3f 3c 00 05 |?< | MOVE.W #0x5,-(A7) 000247a2 4e 94 |N | JSR (A4) 000247a4 50 4f |PO | ADDQ.L #0x8,A7 000247a6 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000247ac 50 4f |PO | ADDQ.L #0x8,A7 000247ae 24 9f |$ | MOVE.L (A7)+,(A2) 000247b0 54 4f |TO | ADDQ.L #0x2,A7 000247b2 2e 92 |. | MOVE.L (A2),(A7) 000247b4 42 27 |B' | CLR.B -(A7) 000247b6 1f 02 | | MOVE.B D2,-(A7) 000247b8 48 78 00 00 |Hx | PEA.L 0x0 000247bc 48 6e ff c8 |Hn | PEA.L (A6-0x38) 000247c0 48 6e ff ca |Hn | PEA.L (A6-0x36) 000247c4 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File) 000247ca de c3 | | ADDA.W D3,A7 000247cc 4a 2e ff c8 |J. | TST.B (A6-0x38) 000247d0 67 0e |g | BEQ 0x247e0 000247d2 48 52 |HR | PEA.L (A2) 000247d4 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000247da 58 4f |XO | ADDQ.L #0x4,A7 000247dc 60 00 02 4e |` N | BRA 0x24a2c 000247e0 20 6e ff ca | n | MOVEA.L (A6-0x36),A0 000247e4 10 28 00 3f | ( ? | MOVE.B (A0+0x3f),D0 000247e8 ed 08 | | LSL.B #0x6,D0 000247ea ee 08 | | LSR.B #0x7,D0 000247ec 1d 40 ff ce | @ | MOVE.B D0,(A6-0x32) 000247f0 42 27 |B' | CLR.B -(A7) 000247f2 1f 02 | | MOVE.B D2,-(A7) 000247f4 48 78 00 01 |Hx | PEA.L 0x1 000247f8 48 6e ff c8 |Hn | PEA.L (A6-0x38) 000247fc 48 6e ff ca |Hn | PEA.L (A6-0x36) 00024800 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File) 00024806 de fc 00 10 | | ADDA.W #0x10,A7 0002480a 20 52 | R | MOVEA.L (A2),A0 0002480c 32 10 |2 | MOVE.W (A0),D1 0002480e 48 c1 |H | EXTW.L D1 00024810 5b 81 |[ | SUBQ.L #0x5,D1 00024812 92 84 | | SUB.L D4,D1 00024814 0c 81 00 00 ff ff | | CMPI.L #0x0000ffff,D1 0002481a 63 02 |c | BLS 0x2481e 0002481c 4e 4f |NO | TRAP #15 0002481e d2 84 | | ADD.L D4,D1 00024820 30 81 |0 | MOVE.W D1,(A0) 00024822 4a 00 |J | TST.B D0 00024824 66 36 |f6 | BNE 0x2485c 00024826 41 fa e4 32 |A 2 | LEA.L 0x22c5a,A0 0002482a 70 08 |p | MOVEQ.L #0x08,D0 0002482c 3f 20 |? | MOVE.W -(A0),-(A7) 0002482e 51 c8 ff fc |Q | DBF D0,0x2482c 00024832 59 4f |YO | SUBQ.L #0x4,A7 00024834 2f 12 |/ | MOVE.L (A2),-(A7) 00024836 59 4f |YO | SUBQ.L #0x4,A7 00024838 48 6f 00 0c |Ho | PEA.L (A7+0xc) 0002483c 3f 02 |? | MOVE.W D2,-(A7) 0002483e 3f 3c 00 12 |?< | MOVE.W #0x12,-(A7) 00024842 4e 94 |N | JSR (A4) 00024844 50 4f |PO | ADDQ.L #0x8,A7 00024846 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 0002484c 50 4f |PO | ADDQ.L #0x8,A7 0002484e 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00024854 de fc 00 16 | | ADDA.W #0x16,A7 00024858 60 00 01 d2 |` | BRA 0x24a2c 0002485c 48 6e ff d0 |Hn | PEA.L (A6-0x30) 00024860 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00024866 58 4f |XO | ADDQ.L #0x4,A7 00024868 20 6e ff d0 | n | MOVEA.L (A6-0x30),A0 0002486c 2f 08 |/ | MOVE.L A0,-(A7) 0002486e 7e 01 |~ | MOVEQ.L #0x01,D7 00024870 2f 2e ff d4 |/. | MOVE.L (A6-0x2c),-(A7) 00024874 7a 02 |z | MOVEQ.L #0x02,D5 00024876 ba 97 | | CMP.L (A7),D5 00024878 6e 00 00 94 |n | BGT 0x2490e 0002487c 51 4f |QO | SUBQ.L #0x8,A7 0002487e 2f 13 |/ | MOVE.L (A3),-(A7) 00024880 2f 05 |/ | MOVE.L D5,-(A7) 00024882 4e ba f3 fc |N | JSR 0x23c80 00024886 50 4f |PO | ADDQ.L #0x8,A7 00024888 2d 5f ff d8 |-_ | MOVE.L (A7)+,(A6-0x28) 0002488c 2d 5f ff dc |-_ | MOVE.L (A7)+,(A6-0x24) 00024890 2f 2e ff dc |/. | MOVE.L (A6-0x24),-(A7) 00024894 2c 2e ff d8 |,. | MOVE.L (A6-0x28),D6 00024898 bc 97 | | CMP.L (A7),D6 0002489a 6e 14 |n | BGT 0x248b0 0002489c 20 17 | | MOVE.L (A7),D0 0002489e 0c 86 80 00 00 01 | | CMPI.L #0x80000001,D6 000248a4 6d 08 |m | BLT 0x248ae 000248a6 0c 80 7f ff ff ff | | CMPI.L #0x7fffffff,D0 000248ac 6f 02 |o | BLE 0x248b0 000248ae 4e 4f |NO | TRAP #15 000248b0 bc 97 | | CMP.L (A7),D6 000248b2 6e 32 |n2 | BGT 0x248e6 000248b4 20 07 | | MOVE.L D7,D0 000248b6 53 80 |S | SUBQ.L #0x1,D0 000248b8 0c 80 00 00 00 7d | } | CMPI.L #0x0000007d,D0 000248be 63 02 |c | BLS 0x248c2 000248c0 4e 4f |NO | TRAP #15 000248c2 20 6f 00 08 | o | MOVEA.L (A7+0x8),A0 000248c6 22 06 |" | MOVE.L D6,D1 000248c8 53 81 |S | SUBQ.L #0x1,D1 000248ca 0c 81 00 00 1f ff | | CMPI.L #0x00001fff,D1 000248d0 63 02 |c | BLS 0x248d4 000248d2 4e 4f |NO | TRAP #15 000248d4 43 f9 00 02 73 40 |C s@ | LEA.L 0x27340,A1 000248da 11 b1 18 08 08 02 | | MOVE.B (A1+D1.L+#0x8),(A0+D0.L+#0x2) 000248e0 52 87 |R | ADDQ.L #0x1,D7 000248e2 52 86 |R | ADDQ.L #0x1,D6 000248e4 68 ca |h | BVC 0x248b0 000248e6 58 4f |XO | ADDQ.L #0x4,A7 000248e8 ba ae ff d4 | | CMP.L (A6-0x2c),D5 000248ec 67 1a |g | BEQ 0x24908 000248ee 20 07 | | MOVE.L D7,D0 000248f0 53 80 |S | SUBQ.L #0x1,D0 000248f2 0c 80 00 00 00 7d | } | CMPI.L #0x0000007d,D0 000248f8 63 02 |c | BLS 0x248fc 000248fa 4e 4f |NO | TRAP #15 000248fc 20 6f 00 04 | o | MOVEA.L (A7+0x4),A0 00024900 11 bc 00 2c 08 02 | , | MOVE.B #0x2c,(A0+D0.L+#0x2) 00024906 52 87 |R | ADDQ.L #0x1,D7 00024908 52 85 |R | ADDQ.L #0x1,D5 0002490a 68 00 ff 6a |h j | BVC 0x24876 0002490e 58 4f |XO | ADDQ.L #0x4,A7 00024910 20 57 | W | MOVEA.L (A7),A0 00024912 20 07 | | MOVE.L D7,D0 00024914 53 80 |S | SUBQ.L #0x1,D0 00024916 90 84 | | SUB.L D4,D0 00024918 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 0002491e 63 02 |c | BLS 0x24922 00024920 4e 4f |NO | TRAP #15 00024922 d0 84 | | ADD.L D4,D0 00024924 30 80 |0 | MOVE.W D0,(A0) 00024926 54 4f |TO | ADDQ.L #0x2,A7 00024928 3e ba e3 3e |> > | MOVE.W 0x22c68,(A7) 0002492c 3f 3a e3 38 |?: 8 | MOVE.W 0x22c66,-(A7) 00024930 3f 3a e3 32 |?: 2 | MOVE.W 0x22c64,-(A7) 00024934 59 4f |YO | SUBQ.L #0x4,A7 00024936 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002493a 3f 02 |? | MOVE.W D2,-(A7) 0002493c 3f 3c 00 06 |?< | MOVE.W #0x6,-(A7) 00024940 4e 94 |N | JSR (A4) 00024942 50 4f |PO | ADDQ.L #0x8,A7 00024944 2d 5f ff f8 |-_ | MOVE.L (A7)+,(A6-0x8) 00024948 54 4f |TO | ADDQ.L #0x2,A7 0002494a 2e 93 |. | MOVE.L (A3),(A7) 0002494c 48 78 00 00 |Hx | PEA.L 0x0 00024950 2f 2e ff f8 |/. | MOVE.L (A6-0x8),-(A7) 00024954 48 6e ff f0 |Hn | PEA.L (A6-0x10) 00024958 48 6e ff ed |Hn | PEA.L (A6-0x13) 0002495c 4e b9 00 02 62 96 |N b | JSR 0x26296 00024962 de c3 | | ADDA.W D3,A7 00024964 48 6e ff f8 |Hn | PEA.L (A6-0x8) 00024968 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 0002496e 54 4f |TO | ADDQ.L #0x2,A7 00024970 3e ba e2 fc |> | MOVE.W 0x22c6e,(A7) 00024974 3f 3a e2 f6 |?: | MOVE.W 0x22c6c,-(A7) 00024978 3f 3a e2 f0 |?: | MOVE.W 0x22c6a,-(A7) 0002497c 59 4f |YO | SUBQ.L #0x4,A7 0002497e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00024982 3f 02 |? | MOVE.W D2,-(A7) 00024984 3f 3c 00 06 |?< | MOVE.W #0x6,-(A7) 00024988 4e 94 |N | JSR (A4) 0002498a 50 4f |PO | ADDQ.L #0x8,A7 0002498c 2d 5f ff f8 |-_ | MOVE.L (A7)+,(A6-0x8) 00024990 54 4f |TO | ADDQ.L #0x2,A7 00024992 2e 93 |. | MOVE.L (A3),(A7) 00024994 48 78 00 00 |Hx | PEA.L 0x0 00024998 2f 2e ff f8 |/. | MOVE.L (A6-0x8),-(A7) 0002499c 48 6e ff f4 |Hn | PEA.L (A6-0xc) 000249a0 48 6e ff ee |Hn | PEA.L (A6-0x12) 000249a4 4e b9 00 02 62 96 |N b | JSR 0x26296 000249aa de c3 | | ADDA.W D3,A7 000249ac 48 6e ff f8 |Hn | PEA.L (A6-0x8) 000249b0 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000249b6 58 4f |XO | ADDQ.L #0x4,A7 000249b8 4a 2e ff ed |J. | TST.B (A6-0x13) 000249bc 66 06 |f | BNE 0x249c4 000249be 4a 2e ff ee |J. | TST.B (A6-0x12) 000249c2 67 06 |g | BEQ 0x249ca 000249c4 42 2e ff fc |B. | CLR.B (A6-0x4) 000249c8 60 04 |` | BRA 0x249ce 000249ca 1d 42 ff fc | B | MOVE.B D2,(A6-0x4) 000249ce 2f 12 |/ | MOVE.L (A2),-(A7) 000249d0 2f 2e ff d0 |/. | MOVE.L (A6-0x30),-(A7) 000249d4 10 2e ff fc | . | MOVE.B (A6-0x4),D0 000249d8 48 80 |H | EXTB.W D0 000249da 41 bc 00 02 |A | CHK.W #0x2,D0 000249de 1f 00 | | MOVE.B D0,-(A7) 000249e0 48 6e ff ec |Hn | PEA.L (A6-0x14) 000249e4 4e b9 00 01 03 b0 |N | JSR PushProgram(a : String; b : String; MOD c : B; VAR d : Bool) 000249ea de fc 00 0e | | ADDA.W #0xe,A7 000249ee 4a 2e ff ed |J. | TST.B (A6-0x13) 000249f2 67 20 |g | BEQ 0x24a14 000249f4 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7) 000249f8 59 4f |YO | SUBQ.L #0x4,A7 000249fa 10 2e ff ec | . | MOVE.B (A6-0x14),D0 000249fe 48 80 |H | EXTB.W D0 00024a00 41 bc 00 0e |A | CHK.W #0xe,D0 00024a04 1f 00 | | MOVE.B D0,-(A7) 00024a06 4e b9 00 01 03 c0 |N | JSR ExpErrMsg(a: Byte) : String 00024a0c 54 4f |TO | ADDQ.L #0x2,A7 00024a0e 4e ba f9 4c |N L | JSR 0x2435c 00024a12 50 4f |PO | ADDQ.L #0x8,A7 00024a14 4a 2e ff ee |J. | TST.B (A6-0x12) 00024a18 67 12 |g | BEQ 0x24a2c 00024a1a 2f 2e ff f4 |/. | MOVE.L (A6-0xc),-(A7) 00024a1e 59 4f |YO | SUBQ.L #0x4,A7 00024a20 4e b9 00 01 03 c8 |N | JSR FSCALL_103c8 00024a26 4e ba f9 34 |N 4 | JSR 0x2435c 00024a2a 50 4f |PO | ADDQ.L #0x8,A7 00024a2c 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00024a30 4e 5e |N^ | UNLK A6 00024a32 4e 75 |Nu | RTS 00024a34 ; -------------------------------------------------------------------------------------- 00024a34 ; OMSI PASCAL Function 00024a34 ; <LVAR 0x008 4(r)> 00024a34 ; <LVAR -0x004 @ 4(rw)> 00024a34 ; <LVAR -0x008 @ 4(rw)> 00024a34 ; -------------------------------------------------------------------------------------- 00024a34 4e 56 ff e0 |NV | LINK.W A6,#0xffe0 00024a38 bf d5 | | CMPA.L (A5),A7 00024a3a 62 06 |b | BHI 0x24a42 00024a3c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024a40 4e 76 |Nv | TRAPV 00024a42 de fc 00 18 | | ADDA.W #0x18,A7 00024a46 48 e7 00 c0 |H | MOVEM.L A1+A0,-(A7) 00024a4a 41 ee ff f8 |A | LEA.L (A6-0x8),A0 00024a4e 43 ee ff fc |C | LEA.L (A6-0x4),A1 00024a52 59 4f |YO | SUBQ.L #0x4,A7 00024a54 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00024a58 48 78 00 01 |Hx | PEA.L 0x1 00024a5c 4e ba f3 00 |N | JSR 0x23d5e 00024a60 50 4f |PO | ADDQ.L #0x8,A7 00024a62 20 97 | | MOVE.L (A7),(A0) 00024a64 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00024a68 48 78 00 02 |Hx | PEA.L 0x2 00024a6c 4e ba f2 f0 |N | JSR 0x23d5e 00024a70 50 4f |PO | ADDQ.L #0x8,A7 00024a72 22 97 |" | MOVE.L (A7),(A1) 00024a74 54 4f |TO | ADDQ.L #0x2,A7 00024a76 2f 10 |/ | MOVE.L (A0),-(A7) 00024a78 2f 11 |/ | MOVE.L (A1),-(A7) 00024a7a 4e b9 00 01 02 c8 |N | JSR StringEqual(a, b : String) : Byte 00024a80 50 4f |PO | ADDQ.L #0x8,A7 00024a82 4a 1f |J | TST.B (A7)+ 00024a84 67 06 |g | BEQ 0x24a8c 00024a86 4e ba ed 96 |N | JSR 0x2381e 00024a8a 60 04 |` | BRA 0x24a90 00024a8c 4e ba ed d6 |N | JSR 0x23864 00024a90 48 51 |HQ | PEA.L (A1) 00024a92 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00024a98 58 4f |XO | ADDQ.L #0x4,A7 00024a9a 48 50 |HP | PEA.L (A0) 00024a9c 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00024aa2 58 4f |XO | ADDQ.L #0x4,A7 00024aa4 4c df 03 00 |L | MOVEM.L (A7)+,A0+A1 00024aa8 4e 5e |N^ | UNLK A6 00024aaa 4e 75 |Nu | RTS 00024aac ; -------------------------------------------------------------------------------------- 00024aac ; OMSI PASCAL Function 00024aac ; <LVAR 0x008 4(r)> 00024aac ; <LVAR -0x004 @ 4(rw)> 00024aac ; <LVAR -0x008 @ 4(rw)> 00024aac ; -------------------------------------------------------------------------------------- 00024aac 4e 56 ff e0 |NV | LINK.W A6,#0xffe0 00024ab0 bf d5 | | CMPA.L (A5),A7 00024ab2 62 06 |b | BHI 0x24aba 00024ab4 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024ab8 4e 76 |Nv | TRAPV 00024aba de fc 00 18 | | ADDA.W #0x18,A7 00024abe 48 e7 00 c0 |H | MOVEM.L A1+A0,-(A7) 00024ac2 41 ee ff f8 |A | LEA.L (A6-0x8),A0 00024ac6 43 ee ff fc |C | LEA.L (A6-0x4),A1 00024aca 59 4f |YO | SUBQ.L #0x4,A7 00024acc 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00024ad0 48 78 00 01 |Hx | PEA.L 0x1 00024ad4 4e ba f2 88 |N | JSR 0x23d5e 00024ad8 50 4f |PO | ADDQ.L #0x8,A7 00024ada 20 97 | | MOVE.L (A7),(A0) 00024adc 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00024ae0 48 78 00 02 |Hx | PEA.L 0x2 00024ae4 4e ba f2 78 |N x | JSR 0x23d5e 00024ae8 50 4f |PO | ADDQ.L #0x8,A7 00024aea 22 97 |" | MOVE.L (A7),(A1) 00024aec 54 4f |TO | ADDQ.L #0x2,A7 00024aee 2f 10 |/ | MOVE.L (A0),-(A7) 00024af0 2f 11 |/ | MOVE.L (A1),-(A7) 00024af2 4e b9 00 01 02 c8 |N | JSR StringEqual(a, b : String) : Byte 00024af8 50 4f |PO | ADDQ.L #0x8,A7 00024afa 4a 1f |J | TST.B (A7)+ 00024afc 66 06 |f | BNE 0x24b04 00024afe 4e ba ed 1e |N | JSR 0x2381e 00024b02 60 04 |` | BRA 0x24b08 00024b04 4e ba ed 5e |N ^ | JSR 0x23864 00024b08 48 51 |HQ | PEA.L (A1) 00024b0a 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00024b10 58 4f |XO | ADDQ.L #0x4,A7 00024b12 48 50 |HP | PEA.L (A0) 00024b14 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00024b1a 58 4f |XO | ADDQ.L #0x4,A7 00024b1c 4c df 03 00 |L | MOVEM.L (A7)+,A0+A1 00024b20 4e 5e |N^ | UNLK A6 00024b22 4e 75 |Nu | RTS 00024b24 ; -------------------------------------------------------------------------------------- 00024b24 ; OMSI PASCAL Function 00024b24 ; <LVAR 0x008 4(r)> 00024b24 ; -------------------------------------------------------------------------------------- 00024b24 4e 56 ff f0 |NV | LINK.W A6,#0xfff0 00024b28 bf d5 | | CMPA.L (A5),A7 00024b2a 62 06 |b | BHI 0x24b32 00024b2c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024b30 4e 76 |Nv | TRAPV 00024b32 de fc 00 10 | | ADDA.W #0x10,A7 00024b36 59 4f |YO | SUBQ.L #0x4,A7 00024b38 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00024b3c 48 78 00 01 |Hx | PEA.L 0x1 00024b40 4e ba f2 1c |N | JSR 0x23d5e 00024b44 50 4f |PO | ADDQ.L #0x8,A7 00024b46 4e ba f0 0e |N | JSR 0x23b56 00024b4a 58 4f |XO | ADDQ.L #0x4,A7 00024b4c 4e 5e |N^ | UNLK A6 00024b4e 4e 75 |Nu | RTS 00024b50 ; -------------------------------------------------------------------------------------- 00024b50 ; OMSI PASCAL Function 00024b50 ; <LVAR 0x008 4(r)> 00024b50 ; <LVAR -0x014 @ 4(rw)> 00024b50 ; -------------------------------------------------------------------------------------- 00024b50 4e 56 ff 90 |NV | LINK.W A6,#0xff90 00024b54 bf d5 | | CMPA.L (A5),A7 00024b56 62 06 |b | BHI 0x24b5e 00024b58 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024b5c 4e 76 |Nv | TRAPV 00024b5e de fc 00 5c | \ | ADDA.W #0x5c,A7 00024b62 48 e7 e7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7) 00024b66 45 ee 00 08 |E | LEA.L (A6+0x8),A2 00024b6a 47 ee ff ec |G | LEA.L (A6-0x14),A3 00024b6e 74 7d |t} | MOVEQ.L #0x7d,D2 00024b70 59 4f |YO | SUBQ.L #0x4,A7 00024b72 2f 12 |/ | MOVE.L (A2),-(A7) 00024b74 48 78 00 01 |Hx | PEA.L 0x1 00024b78 4e ba f1 e4 |N | JSR 0x23d5e 00024b7c 50 4f |PO | ADDQ.L #0x8,A7 00024b7e 26 97 |& | MOVE.L (A7),(A3) 00024b80 2f 12 |/ | MOVE.L (A2),-(A7) 00024b82 48 78 00 02 |Hx | PEA.L 0x2 00024b86 4e ba f1 d6 |N | JSR 0x23d5e 00024b8a 50 4f |PO | ADDQ.L #0x8,A7 00024b8c 28 5f |(_ | MOVEA.L (A7)+,A4 00024b8e 9e fc 00 0c | | SUBA.W #0xc,A7 00024b92 2f 12 |/ | MOVE.L (A2),-(A7) 00024b94 48 78 00 03 |Hx | PEA.L 0x3 00024b98 4e ba f1 f6 |N | JSR 0x23d90 00024b9c 50 4f |PO | ADDQ.L #0x8,A7 00024b9e 4e b9 00 01 03 50 |N P | JSR Quad2Long(a : Quad) : Long 00024ba4 50 4f |PO | ADDQ.L #0x8,A7 00024ba6 2c 17 |, | MOVE.L (A7),D6 00024ba8 51 4f |QO | SUBQ.L #0x8,A7 00024baa 2f 12 |/ | MOVE.L (A2),-(A7) 00024bac 48 78 00 04 |Hx | PEA.L 0x4 00024bb0 4e ba f1 de |N | JSR 0x23d90 00024bb4 50 4f |PO | ADDQ.L #0x8,A7 00024bb6 4e b9 00 01 03 50 |N P | JSR Quad2Long(a : Quad) : Long 00024bbc 50 4f |PO | ADDQ.L #0x8,A7 00024bbe 2a 1f |* | MOVE.L (A7)+,D5 00024bc0 20 06 | | MOVE.L D6,D0 00024bc2 d0 85 | | ADD.L D5,D0 00024bc4 53 80 |S | SUBQ.L #0x1,D0 00024bc6 32 14 |2 | MOVE.W (A4),D1 00024bc8 48 c1 |H | EXTW.L D1 00024bca b0 81 | | CMP.L D1,D0 00024bcc 6f 30 |o0 | BLE 0x24bfe 00024bce 9e fc 00 20 | | SUBA.W #0x20,A7 00024bd2 20 4f | O | MOVEA.L A7,A0 00024bd4 43 fa e0 9a |C | LEA.L 0x22c70,A1 00024bd8 70 1e |p | MOVEQ.L #0x1e,D0 00024bda 10 d9 | | MOVE.B (A1)+,(A0)+ 00024bdc 51 c8 ff fc |Q | DBF D0,0x24bda 00024be0 59 4f |YO | SUBQ.L #0x4,A7 00024be2 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00024be6 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00024bea 3f 3c 00 1f |?< | MOVE.W #0x1f,-(A7) 00024bee 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00024bf4 50 4f |PO | ADDQ.L #0x8,A7 00024bf6 4e ba e4 3e |N > | JSR 0x23036 00024bfa de fc 00 24 | $ | ADDA.W #0x24,A7 00024bfe 20 53 | S | MOVEA.L (A3),A0 00024c00 2f 08 |/ | MOVE.L A0,-(A7) 00024c02 30 10 |0 | MOVE.W (A0),D0 00024c04 48 c0 |H | EXTW.L D0 00024c06 2f 00 |/ | MOVE.L D0,-(A7) 00024c08 7e 01 |~ | MOVEQ.L #0x01,D7 00024c0a be 97 | | CMP.L (A7),D7 00024c0c 6e 26 |n& | BGT 0x24c34 00024c0e 20 06 | | MOVE.L D6,D0 00024c10 d0 87 | | ADD.L D7,D0 00024c12 53 80 |S | SUBQ.L #0x1,D0 00024c14 53 80 |S | SUBQ.L #0x1,D0 00024c16 b0 82 | | CMP.L D2,D0 00024c18 63 02 |c | BLS 0x24c1c 00024c1a 4e 4f |NO | TRAP #15 00024c1c 22 07 |" | MOVE.L D7,D1 00024c1e 53 81 |S | SUBQ.L #0x1,D1 00024c20 b2 82 | | CMP.L D2,D1 00024c22 63 02 |c | BLS 0x24c26 00024c24 4e 4f |NO | TRAP #15 00024c26 20 6f 00 04 | o | MOVEA.L (A7+0x4),A0 00024c2a 19 b0 18 02 08 02 | | MOVE.B (A0+D1.L+#0x2),(A4+D0.L+#0x2) 00024c30 52 87 |R | ADDQ.L #0x1,D7 00024c32 68 d6 |h | BVC 0x24c0a 00024c34 58 4f |XO | ADDQ.L #0x4,A7 00024c36 2e 8c |. | MOVE.L A4,(A7) 00024c38 4e ba f1 c6 |N | JSR 0x23e00 00024c3c 58 4f |XO | ADDQ.L #0x4,A7 00024c3e 48 53 |HS | PEA.L (A3) 00024c40 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00024c46 58 4f |XO | ADDQ.L #0x4,A7 00024c48 4c df 1f e7 |L | MOVEM.L (A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3+A4 00024c4c 4e 5e |N^ | UNLK A6 00024c4e 4e 75 |Nu | RTS 00024c50 ; -------------------------------------------------------------------------------------- 00024c50 ; OMSI PASCAL Function 00024c50 ; <LVAR 0x008 4(r)> 00024c50 ; <LVAR -0x010 @ 4(r)> 00024c50 ; <LVAR -0x014 @ 4(rw)> 00024c50 ; -------------------------------------------------------------------------------------- 00024c50 4e 56 ff a8 |NV | LINK.W A6,#0xffa8 00024c54 bf d5 | | CMPA.L (A5),A7 00024c56 62 06 |b | BHI 0x24c5e 00024c58 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024c5c 4e 76 |Nv | TRAPV 00024c5e de fc 00 44 | D | ADDA.W #0x44,A7 00024c62 48 e7 e7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7) 00024c66 45 ee ff ec |E | LEA.L (A6-0x14),A2 00024c6a 47 ee ff f0 |G | LEA.L (A6-0x10),A3 00024c6e 49 ee 00 08 |I | LEA.L (A6+0x8),A4 00024c72 74 7d |t} | MOVEQ.L #0x7d,D2 00024c74 59 4f |YO | SUBQ.L #0x4,A7 00024c76 2f 14 |/ | MOVE.L (A4),-(A7) 00024c78 48 78 00 01 |Hx | PEA.L 0x1 00024c7c 4e ba f0 e0 |N | JSR 0x23d5e 00024c80 50 4f |PO | ADDQ.L #0x8,A7 00024c82 24 9f |$ | MOVE.L (A7)+,(A2) 00024c84 48 53 |HS | PEA.L (A3) 00024c86 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00024c8c 51 4f |QO | SUBQ.L #0x8,A7 00024c8e 2f 14 |/ | MOVE.L (A4),-(A7) 00024c90 48 78 00 02 |Hx | PEA.L 0x2 00024c94 4e ba f0 fa |N | JSR 0x23d90 00024c98 50 4f |PO | ADDQ.L #0x8,A7 00024c9a 4e b9 00 01 03 50 |N P | JSR Quad2Long(a : Quad) : Long 00024ca0 50 4f |PO | ADDQ.L #0x8,A7 00024ca2 2a 17 |* | MOVE.L (A7),D5 00024ca4 51 4f |QO | SUBQ.L #0x8,A7 00024ca6 2f 14 |/ | MOVE.L (A4),-(A7) 00024ca8 48 78 00 03 |Hx | PEA.L 0x3 00024cac 4e ba f0 e2 |N | JSR 0x23d90 00024cb0 50 4f |PO | ADDQ.L #0x8,A7 00024cb2 4e b9 00 01 03 50 |N P | JSR Quad2Long(a : Quad) : Long 00024cb8 50 4f |PO | ADDQ.L #0x8,A7 00024cba 2c 1f |, | MOVE.L (A7)+,D6 00024cbc 20 52 | R | MOVEA.L (A2),A0 00024cbe 20 05 | | MOVE.L D5,D0 00024cc0 d0 86 | | ADD.L D6,D0 00024cc2 53 80 |S | SUBQ.L #0x1,D0 00024cc4 32 10 |2 | MOVE.W (A0),D1 00024cc6 48 c1 |H | EXTW.L D1 00024cc8 b0 81 | | CMP.L D1,D0 00024cca 6f 06 |o | BLE 0x24cd2 00024ccc 52 81 |R | ADDQ.L #0x1,D1 00024cce 92 85 | | SUB.L D5,D1 00024cd0 2c 01 |, | MOVE.L D1,D6 00024cd2 2f 06 |/ | MOVE.L D6,-(A7) 00024cd4 7e 01 |~ | MOVEQ.L #0x01,D7 00024cd6 be 97 | | CMP.L (A7),D7 00024cd8 6e 26 |n& | BGT 0x24d00 00024cda 20 53 | S | MOVEA.L (A3),A0 00024cdc 20 07 | | MOVE.L D7,D0 00024cde 53 80 |S | SUBQ.L #0x1,D0 00024ce0 b0 82 | | CMP.L D2,D0 00024ce2 63 02 |c | BLS 0x24ce6 00024ce4 4e 4f |NO | TRAP #15 00024ce6 22 52 |"R | MOVEA.L (A2),A1 00024ce8 22 07 |" | MOVE.L D7,D1 00024cea d2 85 | | ADD.L D5,D1 00024cec 53 81 |S | SUBQ.L #0x1,D1 00024cee 53 81 |S | SUBQ.L #0x1,D1 00024cf0 b2 82 | | CMP.L D2,D1 00024cf2 63 02 |c | BLS 0x24cf6 00024cf4 4e 4f |NO | TRAP #15 00024cf6 11 b1 18 02 08 02 | | MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x2) 00024cfc 52 87 |R | ADDQ.L #0x1,D7 00024cfe 68 d6 |h | BVC 0x24cd6 00024d00 58 4f |XO | ADDQ.L #0x4,A7 00024d02 20 53 | S | MOVEA.L (A3),A0 00024d04 04 86 ff ff 80 00 | | SUBI.L #0xffff8000,D6 00024d0a 0c 86 00 00 ff ff | | CMPI.L #0x0000ffff,D6 00024d10 63 02 |c | BLS 0x24d14 00024d12 4e 4f |NO | TRAP #15 00024d14 06 86 ff ff 80 00 | | ADDI.L #0xffff8000,D6 00024d1a 30 86 |0 | MOVE.W D6,(A0) 00024d1c 2f 13 |/ | MOVE.L (A3),-(A7) 00024d1e 4e ba f0 e0 |N | JSR 0x23e00 00024d22 58 4f |XO | ADDQ.L #0x4,A7 00024d24 48 52 |HR | PEA.L (A2) 00024d26 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00024d2c 58 4f |XO | ADDQ.L #0x4,A7 00024d2e 4c df 1f e7 |L | MOVEM.L (A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3+A4 00024d32 4e 5e |N^ | UNLK A6 00024d34 4e 75 |Nu | RTS 00024d36 ; -------------------------------------------------------------------------------------- 00024d36 ; OMSI PASCAL Function 00024d36 ; <LVAR 0x008 4(r)> 00024d36 ; -------------------------------------------------------------------------------------- 00024d36 4e 56 ff ec |NV | LINK.W A6,#0xffec 00024d3a bf d5 | | CMPA.L (A5),A7 00024d3c 62 06 |b | BHI 0x24d44 00024d3e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024d42 4e 76 |Nv | TRAPV 00024d44 de fc 00 14 | | ADDA.W #0x14,A7 00024d48 51 4f |QO | SUBQ.L #0x8,A7 00024d4a 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00024d4e 48 78 00 01 |Hx | PEA.L 0x1 00024d52 4e ba f0 3c |N < | JSR 0x23d90 00024d56 50 4f |PO | ADDQ.L #0x8,A7 00024d58 4e ba ee 70 |N p | JSR 0x23bca 00024d5c 50 4f |PO | ADDQ.L #0x8,A7 00024d5e 4e 5e |N^ | UNLK A6 00024d60 4e 75 |Nu | RTS 00024d62 ; -------------------------------------------------------------------------------------- 00024d62 ; OMSI PASCAL Function 00024d62 ; <LVAR 0x008 4(r)> 00024d62 ; -------------------------------------------------------------------------------------- 00024d62 4e 56 ff e2 |NV | LINK.W A6,#0xffe2 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 1e | | ADDA.W #0x1e,A7 00024d74 9e fc 00 0a | | SUBA.W #0xa,A7 00024d78 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00024d7c 48 78 00 01 |Hx | PEA.L 0x1 00024d80 4e ba f0 0e |N | JSR 0x23d90 00024d84 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00024d88 48 78 00 02 |Hx | PEA.L 0x2 00024d8c 4e ba f0 02 |N | JSR 0x23d90 00024d90 50 4f |PO | ADDQ.L #0x8,A7 00024d92 4e b9 00 01 03 2c |N , | JSR IsEqual(a, b : Quad) : Bool 00024d98 de fc 00 10 | | ADDA.W #0x10,A7 00024d9c 4a 1f |J | TST.B (A7)+ 00024d9e 67 06 |g | BEQ 0x24da6 00024da0 4e ba ea 7c |N | | JSR 0x2381e 00024da4 60 04 |` | BRA 0x24daa 00024da6 4e ba ea bc |N | JSR 0x23864 00024daa 4e 5e |N^ | UNLK A6 00024dac 4e 75 |Nu | RTS 00024dae ; -------------------------------------------------------------------------------------- 00024dae ; OMSI PASCAL Function 00024dae ; <LVAR 0x008 4(r)> 00024dae ; -------------------------------------------------------------------------------------- 00024dae 4e 56 ff e2 |NV | LINK.W A6,#0xffe2 00024db2 bf d5 | | CMPA.L (A5),A7 00024db4 62 06 |b | BHI 0x24dbc 00024db6 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024dba 4e 76 |Nv | TRAPV 00024dbc de fc 00 1e | | ADDA.W #0x1e,A7 00024dc0 9e fc 00 0a | | SUBA.W #0xa,A7 00024dc4 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00024dc8 48 78 00 01 |Hx | PEA.L 0x1 00024dcc 4e ba ef c2 |N | JSR 0x23d90 00024dd0 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00024dd4 48 78 00 02 |Hx | PEA.L 0x2 00024dd8 4e ba ef b6 |N | JSR 0x23d90 00024ddc 50 4f |PO | ADDQ.L #0x8,A7 00024dde 4e b9 00 01 03 2c |N , | JSR IsEqual(a, b : Quad) : Bool 00024de4 de fc 00 10 | | ADDA.W #0x10,A7 00024de8 4a 1f |J | TST.B (A7)+ 00024dea 66 06 |f | BNE 0x24df2 00024dec 4e ba ea 30 |N 0 | JSR 0x2381e 00024df0 60 04 |` | BRA 0x24df6 00024df2 4e ba ea 70 |N p | JSR 0x23864 00024df6 4e 5e |N^ | UNLK A6 00024df8 4e 75 |Nu | RTS 00024dfa ; -------------------------------------------------------------------------------------- 00024dfa ; OMSI PASCAL Function 00024dfa ; <LVAR 0x008 4(r)> 00024dfa ; -------------------------------------------------------------------------------------- 00024dfa 4e 56 ff e2 |NV | LINK.W A6,#0xffe2 00024dfe bf d5 | | CMPA.L (A5),A7 00024e00 62 06 |b | BHI 0x24e08 00024e02 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024e06 4e 76 |Nv | TRAPV 00024e08 de fc 00 1e | | ADDA.W #0x1e,A7 00024e0c 9e fc 00 0a | | SUBA.W #0xa,A7 00024e10 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00024e14 48 78 00 01 |Hx | PEA.L 0x1 00024e18 4e ba ef 76 |N v | JSR 0x23d90 00024e1c 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00024e20 48 78 00 02 |Hx | PEA.L 0x2 00024e24 4e ba ef 6a |N j | JSR 0x23d90 00024e28 50 4f |PO | ADDQ.L #0x8,A7 00024e2a 4e b9 00 01 03 28 |N ( | JSR IsSmaller(a, b : Quad) : Bool 00024e30 de fc 00 10 | | ADDA.W #0x10,A7 00024e34 4a 1f |J | TST.B (A7)+ 00024e36 67 06 |g | BEQ 0x24e3e 00024e38 4e ba e9 e4 |N | JSR 0x2381e 00024e3c 60 04 |` | BRA 0x24e42 00024e3e 4e ba ea 24 |N $ | JSR 0x23864 00024e42 4e 5e |N^ | UNLK A6 00024e44 4e 75 |Nu | RTS 00024e46 ; -------------------------------------------------------------------------------------- 00024e46 ; OMSI PASCAL Function 00024e46 ; <LVAR 0x008 4(r)> 00024e46 ; -------------------------------------------------------------------------------------- 00024e46 4e 56 ff e2 |NV | LINK.W A6,#0xffe2 00024e4a bf d5 | | CMPA.L (A5),A7 00024e4c 62 06 |b | BHI 0x24e54 00024e4e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024e52 4e 76 |Nv | TRAPV 00024e54 de fc 00 1e | | ADDA.W #0x1e,A7 00024e58 9e fc 00 0a | | SUBA.W #0xa,A7 00024e5c 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00024e60 48 78 00 01 |Hx | PEA.L 0x1 00024e64 4e ba ef 2a |N * | JSR 0x23d90 00024e68 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00024e6c 48 78 00 02 |Hx | PEA.L 0x2 00024e70 4e ba ef 1e |N | JSR 0x23d90 00024e74 50 4f |PO | ADDQ.L #0x8,A7 00024e76 4e b9 00 01 03 24 |N $ | JSR IsGreater(a, b : Quad) : Bool 00024e7c de fc 00 10 | | ADDA.W #0x10,A7 00024e80 4a 1f |J | TST.B (A7)+ 00024e82 67 06 |g | BEQ 0x24e8a 00024e84 4e ba e9 98 |N | JSR 0x2381e 00024e88 60 04 |` | BRA 0x24e8e 00024e8a 4e ba e9 d8 |N | JSR 0x23864 00024e8e 4e 5e |N^ | UNLK A6 00024e90 4e 75 |Nu | RTS 00024e92 ; -------------------------------------------------------------------------------------- 00024e92 ; OMSI PASCAL Function 00024e92 ; <LVAR 0x008 4(r)> 00024e92 ; -------------------------------------------------------------------------------------- 00024e92 4e 56 ff e2 |NV | LINK.W A6,#0xffe2 00024e96 bf d5 | | CMPA.L (A5),A7 00024e98 62 06 |b | BHI 0x24ea0 00024e9a 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024e9e 4e 76 |Nv | TRAPV 00024ea0 de fc 00 1e | | ADDA.W #0x1e,A7 00024ea4 9e fc 00 0a | | SUBA.W #0xa,A7 00024ea8 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00024eac 48 78 00 01 |Hx | PEA.L 0x1 00024eb0 4e ba ee de |N | JSR 0x23d90 00024eb4 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00024eb8 48 78 00 02 |Hx | PEA.L 0x2 00024ebc 4e ba ee d2 |N | JSR 0x23d90 00024ec0 50 4f |PO | ADDQ.L #0x8,A7 00024ec2 4e b9 00 01 03 24 |N $ | JSR IsGreater(a, b : Quad) : Bool 00024ec8 de fc 00 10 | | ADDA.W #0x10,A7 00024ecc 4a 1f |J | TST.B (A7)+ 00024ece 66 06 |f | BNE 0x24ed6 00024ed0 4e ba e9 4c |N L | JSR 0x2381e 00024ed4 60 04 |` | BRA 0x24eda 00024ed6 4e ba e9 8c |N | JSR 0x23864 00024eda 4e 5e |N^ | UNLK A6 00024edc 4e 75 |Nu | RTS 00024ede ; -------------------------------------------------------------------------------------- 00024ede ; OMSI PASCAL Function 00024ede ; <LVAR 0x008 4(r)> 00024ede ; -------------------------------------------------------------------------------------- 00024ede 4e 56 ff e2 |NV | LINK.W A6,#0xffe2 00024ee2 bf d5 | | CMPA.L (A5),A7 00024ee4 62 06 |b | BHI 0x24eec 00024ee6 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024eea 4e 76 |Nv | TRAPV 00024eec de fc 00 1e | | ADDA.W #0x1e,A7 00024ef0 9e fc 00 0a | | SUBA.W #0xa,A7 00024ef4 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00024ef8 48 78 00 01 |Hx | PEA.L 0x1 00024efc 4e ba ee 92 |N | JSR 0x23d90 00024f00 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00024f04 48 78 00 02 |Hx | PEA.L 0x2 00024f08 4e ba ee 86 |N | JSR 0x23d90 00024f0c 50 4f |PO | ADDQ.L #0x8,A7 00024f0e 4e b9 00 01 03 28 |N ( | JSR IsSmaller(a, b : Quad) : Bool 00024f14 de fc 00 10 | | ADDA.W #0x10,A7 00024f18 4a 1f |J | TST.B (A7)+ 00024f1a 66 06 |f | BNE 0x24f22 00024f1c 4e ba e9 00 |N | JSR 0x2381e 00024f20 60 04 |` | BRA 0x24f26 00024f22 4e ba e9 40 |N @ | JSR 0x23864 00024f26 4e 5e |N^ | UNLK A6 00024f28 4e 75 |Nu | RTS 00024f2a ; -------------------------------------------------------------------------------------- 00024f2a ; OMSI PASCAL Function 00024f2a ; <LVAR 0x008 4(r)> 00024f2a ; -------------------------------------------------------------------------------------- 00024f2a 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 00024f2e bf d5 | | CMPA.L (A5),A7 00024f30 62 06 |b | BHI 0x24f38 00024f32 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024f36 4e 76 |Nv | TRAPV 00024f38 de fc 00 28 | ( | ADDA.W #0x28,A7 00024f3c 48 e7 80 00 |H | MOVEM.L D0,-(A7) 00024f40 70 10 |p | MOVEQ.L #0x10,D0 00024f42 9e c0 | | SUBA.W D0,A7 00024f44 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00024f48 48 78 00 01 |Hx | PEA.L 0x1 00024f4c 4e ba ee 42 |N B | JSR 0x23d90 00024f50 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00024f54 48 78 00 02 |Hx | PEA.L 0x2 00024f58 4e ba ee 36 |N 6 | JSR 0x23d90 00024f5c 50 4f |PO | ADDQ.L #0x8,A7 00024f5e 4e b9 00 01 03 14 |N | JSR Add(a, b : Quad) : Quad 00024f64 de c0 | | ADDA.W D0,A7 00024f66 4e ba ef 20 |N | JSR 0x23e88 00024f6a 50 4f |PO | ADDQ.L #0x8,A7 00024f6c 4c df 00 01 |L | MOVEM.L (A7)+,D0 00024f70 4e 5e |N^ | UNLK A6 00024f72 4e 75 |Nu | RTS 00024f74 ; -------------------------------------------------------------------------------------- 00024f74 ; OMSI PASCAL Function 00024f74 ; <LVAR 0x008 4(r)> 00024f74 ; -------------------------------------------------------------------------------------- 00024f74 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 00024f78 bf d5 | | CMPA.L (A5),A7 00024f7a 62 06 |b | BHI 0x24f82 00024f7c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024f80 4e 76 |Nv | TRAPV 00024f82 de fc 00 28 | ( | ADDA.W #0x28,A7 00024f86 48 e7 80 00 |H | MOVEM.L D0,-(A7) 00024f8a 70 10 |p | MOVEQ.L #0x10,D0 00024f8c 9e c0 | | SUBA.W D0,A7 00024f8e 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00024f92 48 78 00 01 |Hx | PEA.L 0x1 00024f96 4e ba ed f8 |N | JSR 0x23d90 00024f9a 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00024f9e 48 78 00 02 |Hx | PEA.L 0x2 00024fa2 4e ba ed ec |N | JSR 0x23d90 00024fa6 50 4f |PO | ADDQ.L #0x8,A7 00024fa8 4e b9 00 01 03 18 |N | JSR Subtract(a, b : Quad) : Quad 00024fae de c0 | | ADDA.W D0,A7 00024fb0 4e ba ee d6 |N | JSR 0x23e88 00024fb4 50 4f |PO | ADDQ.L #0x8,A7 00024fb6 4c df 00 01 |L | MOVEM.L (A7)+,D0 00024fba 4e 5e |N^ | UNLK A6 00024fbc 4e 75 |Nu | RTS 00024fbe ; -------------------------------------------------------------------------------------- 00024fbe ; OMSI PASCAL Function 00024fbe ; <LVAR 0x008 4(r)> 00024fbe ; -------------------------------------------------------------------------------------- 00024fbe 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 00024fc2 bf d5 | | CMPA.L (A5),A7 00024fc4 62 06 |b | BHI 0x24fcc 00024fc6 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024fca 4e 76 |Nv | TRAPV 00024fcc de fc 00 28 | ( | ADDA.W #0x28,A7 00024fd0 48 e7 80 00 |H | MOVEM.L D0,-(A7) 00024fd4 70 10 |p | MOVEQ.L #0x10,D0 00024fd6 9e c0 | | SUBA.W D0,A7 00024fd8 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00024fdc 48 78 00 01 |Hx | PEA.L 0x1 00024fe0 4e ba ed ae |N | JSR 0x23d90 00024fe4 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00024fe8 48 78 00 02 |Hx | PEA.L 0x2 00024fec 4e ba ed a2 |N | JSR 0x23d90 00024ff0 50 4f |PO | ADDQ.L #0x8,A7 00024ff2 4e b9 00 01 03 1c |N | JSR Multiply(a, b : Quad) : Quad 00024ff8 de c0 | | ADDA.W D0,A7 00024ffa 4e ba ee 8c |N | JSR 0x23e88 00024ffe 50 4f |PO | ADDQ.L #0x8,A7 00025000 4c df 00 01 |L | MOVEM.L (A7)+,D0 00025004 4e 5e |N^ | UNLK A6 00025006 4e 75 |Nu | RTS 00025008 ; -------------------------------------------------------------------------------------- 00025008 ; OMSI PASCAL Function 00025008 ; <LVAR 0x008 4(r)> 00025008 ; -------------------------------------------------------------------------------------- 00025008 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 0002500c bf d5 | | CMPA.L (A5),A7 0002500e 62 06 |b | BHI 0x25016 00025010 44 fc 00 02 |D | MOVE.W #0x2,CCR 00025014 4e 76 |Nv | TRAPV 00025016 de fc 00 28 | ( | ADDA.W #0x28,A7 0002501a 48 e7 80 00 |H | MOVEM.L D0,-(A7) 0002501e 70 10 |p | MOVEQ.L #0x10,D0 00025020 9e c0 | | SUBA.W D0,A7 00025022 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00025026 48 78 00 01 |Hx | PEA.L 0x1 0002502a 4e ba ed 64 |N d | JSR 0x23d90 0002502e 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00025032 48 78 00 02 |Hx | PEA.L 0x2 00025036 4e ba ed 58 |N X | JSR 0x23d90 0002503a 50 4f |PO | ADDQ.L #0x8,A7 0002503c 4e b9 00 01 03 20 |N | JSR Divide(a, b : Quad) : Quad 00025042 de c0 | | ADDA.W D0,A7 00025044 4e ba ee 42 |N B | JSR 0x23e88 00025048 50 4f |PO | ADDQ.L #0x8,A7 0002504a 4c df 00 01 |L | MOVEM.L (A7)+,D0 0002504e 4e 5e |N^ | UNLK A6 00025050 4e 75 |Nu | RTS 00025052 ; -------------------------------------------------------------------------------------- 00025052 ; OMSI PASCAL Function 00025052 ; <LVAR 0x008 4(r)> 00025052 ; -------------------------------------------------------------------------------------- 00025052 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 00025056 bf d5 | | CMPA.L (A5),A7 00025058 62 06 |b | BHI 0x25060 0002505a 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002505e 4e 76 |Nv | TRAPV 00025060 de fc 00 28 | ( | ADDA.W #0x28,A7 00025064 48 e7 80 00 |H | MOVEM.L D0,-(A7) 00025068 70 10 |p | MOVEQ.L #0x10,D0 0002506a 9e c0 | | SUBA.W D0,A7 0002506c 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00025070 48 78 00 01 |Hx | PEA.L 0x1 00025074 4e ba ed 1a |N | JSR 0x23d90 00025078 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 0002507c 48 78 00 02 |Hx | PEA.L 0x2 00025080 4e ba ed 0e |N | JSR 0x23d90 00025084 50 4f |PO | ADDQ.L #0x8,A7 00025086 4e b9 00 01 03 58 |N X | JSR Modulus(a, b : Quad) : Quad 0002508c de c0 | | ADDA.W D0,A7 0002508e 4e ba ed f8 |N | JSR 0x23e88 00025092 50 4f |PO | ADDQ.L #0x8,A7 00025094 4c df 00 01 |L | MOVEM.L (A7)+,D0 00025098 4e 5e |N^ | UNLK A6 0002509a 4e 75 |Nu | RTS 0002509c ; -------------------------------------------------------------------------------------- 0002509c ; OMSI PASCAL Function 0002509c ; <LVAR 0x008 4(r)> 0002509c ; -------------------------------------------------------------------------------------- 0002509c 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 000250a0 bf d5 | | CMPA.L (A5),A7 000250a2 62 06 |b | BHI 0x250aa 000250a4 44 fc 00 02 |D | MOVE.W #0x2,CCR 000250a8 4e 76 |Nv | TRAPV 000250aa de fc 00 28 | ( | ADDA.W #0x28,A7 000250ae 48 e7 80 00 |H | MOVEM.L D0,-(A7) 000250b2 70 10 |p | MOVEQ.L #0x10,D0 000250b4 9e c0 | | SUBA.W D0,A7 000250b6 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000250ba 48 78 00 01 |Hx | PEA.L 0x1 000250be 4e ba ec d0 |N | JSR 0x23d90 000250c2 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000250c6 48 78 00 02 |Hx | PEA.L 0x2 000250ca 4e ba ec c4 |N | JSR 0x23d90 000250ce 50 4f |PO | ADDQ.L #0x8,A7 000250d0 4e b9 00 01 03 34 |N 4 | JSR BitOr(a, b : Quad) : Quad 000250d6 de c0 | | ADDA.W D0,A7 000250d8 4e ba ed ae |N | JSR 0x23e88 000250dc 50 4f |PO | ADDQ.L #0x8,A7 000250de 4c df 00 01 |L | MOVEM.L (A7)+,D0 000250e2 4e 5e |N^ | UNLK A6 000250e4 4e 75 |Nu | RTS 000250e6 ; -------------------------------------------------------------------------------------- 000250e6 ; OMSI PASCAL Function 000250e6 ; <LVAR 0x008 4(r)> 000250e6 ; -------------------------------------------------------------------------------------- 000250e6 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 000250ea bf d5 | | CMPA.L (A5),A7 000250ec 62 06 |b | BHI 0x250f4 000250ee 44 fc 00 02 |D | MOVE.W #0x2,CCR 000250f2 4e 76 |Nv | TRAPV 000250f4 de fc 00 28 | ( | ADDA.W #0x28,A7 000250f8 48 e7 80 00 |H | MOVEM.L D0,-(A7) 000250fc 70 10 |p | MOVEQ.L #0x10,D0 000250fe 9e c0 | | SUBA.W D0,A7 00025100 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00025104 48 78 00 01 |Hx | PEA.L 0x1 00025108 4e ba ec 86 |N | JSR 0x23d90 0002510c 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00025110 48 78 00 02 |Hx | PEA.L 0x2 00025114 4e ba ec 7a |N z | JSR 0x23d90 00025118 50 4f |PO | ADDQ.L #0x8,A7 0002511a 4e b9 00 01 03 30 |N 0 | JSR BitAnd(a, b : Quad) : Quad 00025120 de c0 | | ADDA.W D0,A7 00025122 4e ba ed 64 |N d | JSR 0x23e88 00025126 50 4f |PO | ADDQ.L #0x8,A7 00025128 4c df 00 01 |L | MOVEM.L (A7)+,D0 0002512c 4e 5e |N^ | UNLK A6 0002512e 4e 75 |Nu | RTS 00025130 ; -------------------------------------------------------------------------------------- 00025130 ; OMSI PASCAL Function 00025130 ; <LVAR 0x008 4(r)> 00025130 ; -------------------------------------------------------------------------------------- 00025130 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 00025134 bf d5 | | CMPA.L (A5),A7 00025136 62 06 |b | BHI 0x2513e 00025138 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002513c 4e 76 |Nv | TRAPV 0002513e de fc 00 28 | ( | ADDA.W #0x28,A7 00025142 48 e7 80 00 |H | MOVEM.L D0,-(A7) 00025146 70 10 |p | MOVEQ.L #0x10,D0 00025148 9e c0 | | SUBA.W D0,A7 0002514a 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 0002514e 48 78 00 01 |Hx | PEA.L 0x1 00025152 4e ba ec 3c |N < | JSR 0x23d90 00025156 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 0002515a 48 78 00 02 |Hx | PEA.L 0x2 0002515e 4e ba ec 30 |N 0 | JSR 0x23d90 00025162 50 4f |PO | ADDQ.L #0x8,A7 00025164 4e b9 00 01 03 40 |N @ | JSR BitXor(a, b : Quad) : Quad 0002516a de c0 | | ADDA.W D0,A7 0002516c 4e ba ed 1a |N | JSR 0x23e88 00025170 50 4f |PO | ADDQ.L #0x8,A7 00025172 4c df 00 01 |L | MOVEM.L (A7)+,D0 00025176 4e 5e |N^ | UNLK A6 00025178 4e 75 |Nu | RTS 0002517a ; -------------------------------------------------------------------------------------- 0002517a ; OMSI PASCAL Function 0002517a ; <LVAR 0x008 4(r)> 0002517a ; -------------------------------------------------------------------------------------- 0002517a 4e 56 ff e0 |NV | LINK.W A6,#0xffe0 0002517e bf d5 | | CMPA.L (A5),A7 00025180 62 06 |b | BHI 0x25188 00025182 44 fc 00 02 |D | MOVE.W #0x2,CCR 00025186 4e 76 |Nv | TRAPV 00025188 de fc 00 20 | | ADDA.W #0x20,A7 0002518c 9e fc 00 10 | | SUBA.W #0x10,A7 00025190 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00025194 48 78 00 01 |Hx | PEA.L 0x1 00025198 4e ba eb f6 |N | JSR 0x23d90 0002519c 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7) 000251a0 48 78 00 02 |Hx | PEA.L 0x2 000251a4 4e ba ec 26 |N & | JSR 0x23dcc 000251a8 50 4f |PO | ADDQ.L #0x8,A7 000251aa 4e b9 00 01 03 44 |N D | JSR BitShift(a : Quad ; howmuch : integer) : Quad 000251b0 de fc 00 0c | | ADDA.W #0xc,A7 000251b4 4e ba ec d2 |N | JSR 0x23e88 000251b8 50 4f |PO | ADDQ.L #0x8,A7 000251ba 4e 5e |N^ | UNLK A6 000251bc 4e 75 |Nu | RTS 000251be ; -------------------------------------------------------------------------------------- 000251be ; OMSI PASCAL Function 000251be ; <LVAR 0x008 4(r)> 000251be ; -------------------------------------------------------------------------------------- 000251be 4e 56 ff e0 |NV | LINK.W A6,#0xffe0 000251c2 bf d5 | | CMPA.L (A5),A7 000251c4 62 06 |b | BHI 0x251cc 000251c6 44 fc 00 02 |D | MOVE.W #0x2,CCR 000251ca 4e 76 |Nv | TRAPV 000251cc de fc 00 20 | | ADDA.W #0x20,A7 000251d0 9e fc 00 10 | | SUBA.W #0x10,A7 000251d4 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000251d8 48 78 00 01 |Hx | PEA.L 0x1 000251dc 4e ba eb b2 |N | JSR 0x23d90 000251e0 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7) 000251e4 48 78 00 02 |Hx | PEA.L 0x2 000251e8 4e ba eb e2 |N | JSR 0x23dcc 000251ec 50 4f |PO | ADDQ.L #0x8,A7 000251ee 44 97 |D | NEG.L (A7) 000251f0 4e b9 00 01 03 44 |N D | JSR BitShift(a : Quad ; howmuch : integer) : Quad 000251f6 de fc 00 0c | | ADDA.W #0xc,A7 000251fa 4e ba ec 8c |N | JSR 0x23e88 000251fe 50 4f |PO | ADDQ.L #0x8,A7 00025200 4e 5e |N^ | UNLK A6 00025202 4e 75 |Nu | RTS 00025204 ; -------------------------------------------------------------------------------------- 00025204 ; OMSI PASCAL Function 00025204 ; <LVAR 0x008 4(r)> 00025204 ; -------------------------------------------------------------------------------------- 00025204 4e 56 ff e4 |NV | LINK.W A6,#0xffe4 00025208 bf d5 | | CMPA.L (A5),A7 0002520a 62 06 |b | BHI 0x25212 0002520c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00025210 4e 76 |Nv | TRAPV 00025212 de fc 00 1c | | ADDA.W #0x1c,A7 00025216 9e fc 00 10 | | SUBA.W #0x10,A7 0002521a 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 0002521e 48 78 00 01 |Hx | PEA.L 0x1 00025222 4e ba eb 6c |N l | JSR 0x23d90 00025226 50 4f |PO | ADDQ.L #0x8,A7 00025228 4e b9 00 01 03 38 |N 8 | JSR BitNot(a : Quad) : Quad 0002522e 50 4f |PO | ADDQ.L #0x8,A7 00025230 4e ba ec 56 |N V | JSR 0x23e88 00025234 50 4f |PO | ADDQ.L #0x8,A7 00025236 4e 5e |N^ | UNLK A6 00025238 4e 75 |Nu | RTS 0002523a ; -------------------------------------------------------------------------------------- 0002523a ; OMSI PASCAL Function 0002523a ; <LVAR 0x008 4(r)> 0002523a ; <LVAR -0x00c 4(rw)> 0002523a ; <LVAR -0x010 4(rw)> 0002523a ; <LVAR -0x014 4(rw)> 0002523a ; <LVAR -0x018 4(rw)> 0002523a ; -------------------------------------------------------------------------------------- 0002523a 4e 56 ff b8 |NV | LINK.W A6,#0xffb8 0002523e bf d5 | | CMPA.L (A5),A7 00025240 62 06 |b | BHI 0x25248 00025242 44 fc 00 02 |D | MOVE.W #0x2,CCR 00025246 4e 76 |Nv | TRAPV 00025248 de fc 00 30 | 0 | ADDA.W #0x30,A7 0002524c 48 e7 03 80 |H | MOVEM.L A0+D7+D6,-(A7) 00025250 41 ee 00 08 |A | LEA.L (A6+0x8),A0 00025254 51 4f |QO | SUBQ.L #0x8,A7 00025256 2f 10 |/ | MOVE.L (A0),-(A7) 00025258 48 78 00 01 |Hx | PEA.L 0x1 0002525c 4e ba eb 32 |N 2 | JSR 0x23d90 00025260 50 4f |PO | ADDQ.L #0x8,A7 00025262 2d 5f ff e8 |-_ | MOVE.L (A7)+,(A6-0x18) 00025266 2d 57 ff ec |-W | MOVE.L (A7),(A6-0x14) 0002526a 59 4f |YO | SUBQ.L #0x4,A7 0002526c 2f 10 |/ | MOVE.L (A0),-(A7) 0002526e 48 78 00 02 |Hx | PEA.L 0x2 00025272 4e ba eb 1c |N | JSR 0x23d90 00025276 50 4f |PO | ADDQ.L #0x8,A7 00025278 2d 5f ff f0 |-_ | MOVE.L (A7)+,(A6-0x10) 0002527c 2d 57 ff f4 |-W | MOVE.L (A7),(A6-0xc) 00025280 2f 10 |/ | MOVE.L (A0),-(A7) 00025282 48 78 00 03 |Hx | PEA.L 0x3 00025286 4e ba eb 44 |N D | JSR 0x23dcc 0002528a 50 4f |PO | ADDQ.L #0x8,A7 0002528c 2e 17 |. | MOVE.L (A7),D7 0002528e 2f 10 |/ | MOVE.L (A0),-(A7) 00025290 48 78 00 04 |Hx | PEA.L 0x4 00025294 4e ba eb 36 |N 6 | JSR 0x23dcc 00025298 50 4f |PO | ADDQ.L #0x8,A7 0002529a 2c 17 |, | MOVE.L (A7),D6 0002529c 59 4f |YO | SUBQ.L #0x4,A7 0002529e 2f 2e ff ec |/. | MOVE.L (A6-0x14),-(A7) 000252a2 2f 2e ff e8 |/. | MOVE.L (A6-0x18),-(A7) 000252a6 2f 2e ff f4 |/. | MOVE.L (A6-0xc),-(A7) 000252aa 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7) 000252ae 2f 07 |/ | MOVE.L D7,-(A7) 000252b0 2f 06 |/ | MOVE.L D6,-(A7) 000252b2 4e b9 00 01 03 48 |N H | JSR ?BitField_something_() 000252b8 de fc 00 18 | | ADDA.W #0x18,A7 000252bc 4e ba eb ca |N | JSR 0x23e88 000252c0 50 4f |PO | ADDQ.L #0x8,A7 000252c2 4c df 01 c0 |L | MOVEM.L (A7)+,D6+D7+A0 000252c6 4e 5e |N^ | UNLK A6 000252c8 4e 75 |Nu | RTS 000252ca ; -------------------------------------------------------------------------------------- 000252ca ; OMSI PASCAL Function 000252ca ; <LVAR 0x008 4(r)> 000252ca ; <LVAR -0x00c 4(rw)> 000252ca ; <LVAR -0x010 4(rw)> 000252ca ; -------------------------------------------------------------------------------------- 000252ca 4e 56 ff c8 |NV | LINK.W A6,#0xffc8 000252ce bf d5 | | CMPA.L (A5),A7 000252d0 62 06 |b | BHI 0x252d8 000252d2 44 fc 00 02 |D | MOVE.W #0x2,CCR 000252d6 4e 76 |Nv | TRAPV 000252d8 de fc 00 28 | ( | ADDA.W #0x28,A7 000252dc 48 e7 03 80 |H | MOVEM.L A0+D7+D6,-(A7) 000252e0 41 ee 00 08 |A | LEA.L (A6+0x8),A0 000252e4 51 4f |QO | SUBQ.L #0x8,A7 000252e6 2f 10 |/ | MOVE.L (A0),-(A7) 000252e8 48 78 00 01 |Hx | PEA.L 0x1 000252ec 4e ba ea a2 |N | JSR 0x23d90 000252f0 50 4f |PO | ADDQ.L #0x8,A7 000252f2 2d 5f ff f0 |-_ | MOVE.L (A7)+,(A6-0x10) 000252f6 2d 57 ff f4 |-W | MOVE.L (A7),(A6-0xc) 000252fa 2f 10 |/ | MOVE.L (A0),-(A7) 000252fc 48 78 00 02 |Hx | PEA.L 0x2 00025300 4e ba ea ca |N | JSR 0x23dcc 00025304 50 4f |PO | ADDQ.L #0x8,A7 00025306 2e 17 |. | MOVE.L (A7),D7 00025308 2f 10 |/ | MOVE.L (A0),-(A7) 0002530a 48 78 00 03 |Hx | PEA.L 0x3 0002530e 4e ba ea bc |N | JSR 0x23dcc 00025312 50 4f |PO | ADDQ.L #0x8,A7 00025314 2c 17 |, | MOVE.L (A7),D6 00025316 59 4f |YO | SUBQ.L #0x4,A7 00025318 2f 2e ff f4 |/. | MOVE.L (A6-0xc),-(A7) 0002531c 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7) 00025320 2f 07 |/ | MOVE.L D7,-(A7) 00025322 2f 06 |/ | MOVE.L D6,-(A7) 00025324 4e b9 00 01 03 4c |N L | JSR FSCALL_1034c 0002532a de fc 00 10 | | ADDA.W #0x10,A7 0002532e 4e ba eb 58 |N X | JSR 0x23e88 00025332 50 4f |PO | ADDQ.L #0x8,A7 00025334 4c df 01 c0 |L | MOVEM.L (A7)+,D6+D7+A0 00025338 4e 5e |N^ | UNLK A6 0002533a 4e 75 |Nu | RTS 0002533c ; -------------------------------------------------------------------------------------- 0002533c ; OMSI PASCAL Function 0002533c ; <LVAR 0x008 4(r)> 0002533c ; -------------------------------------------------------------------------------------- 0002533c 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 00025340 bf d5 | | CMPA.L (A5),A7 00025342 62 06 |b | BHI 0x2534a 00025344 44 fc 00 02 |D | MOVE.W #0x2,CCR 00025348 4e 76 |Nv | TRAPV 0002534a de fc 00 20 | | ADDA.W #0x20,A7 0002534e 48 e7 01 08 |H | MOVEM.L A4+D7,-(A7) 00025352 59 4f |YO | SUBQ.L #0x4,A7 00025354 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00025358 4e ba e0 e8 |N | JSR 0x23442 0002535c 58 4f |XO | ADDQ.L #0x4,A7 0002535e 7e 01 |~ | MOVEQ.L #0x01,D7 00025360 be 97 | | CMP.L (A7),D7 00025362 6e 26 |n& | BGT 0x2538a 00025364 59 4f |YO | SUBQ.L #0x4,A7 00025366 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 0002536a 2f 07 |/ | MOVE.L D7,-(A7) 0002536c 4e ba e9 f0 |N | JSR 0x23d5e 00025370 50 4f |PO | ADDQ.L #0x8,A7 00025372 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String) 00025378 54 4f |TO | ADDQ.L #0x2,A7 0002537a 1e bc 00 20 | | MOVE.B #0x20,(A7) 0002537e 4e b9 00 01 03 d0 |N | JSR WriteConsoleChar(chr : char) 00025384 54 4f |TO | ADDQ.L #0x2,A7 00025386 52 87 |R | ADDQ.L #0x1,D7 00025388 68 d6 |h | BVC 0x25360 0002538a 48 78 00 01 |Hx | PEA.L 0x1 0002538e 4e b9 00 01 03 e4 |N | JSR AskConsoleString(prompt : String) : String 00025394 58 4f |XO | ADDQ.L #0x4,A7 00025396 28 5f |(_ | MOVEA.L (A7)+,A4 00025398 2f 0c |/ | MOVE.L A4,-(A7) 0002539a 4e ba de f2 |N | JSR 0x2328e 0002539e 2e 8c |. | MOVE.L A4,(A7) 000253a0 4e ba ea 5e |N ^ | JSR 0x23e00 000253a4 58 4f |XO | ADDQ.L #0x4,A7 000253a6 4c df 10 80 |L | MOVEM.L (A7)+,D7+A4 000253aa 4e 5e |N^ | UNLK A6 000253ac 4e 75 |Nu | RTS 000253ae ; -------------------------------------------------------------------------------------- 000253ae ; OMSI PASCAL Function 000253ae ; <LVAR 0x008 4(r)> 000253ae ; -------------------------------------------------------------------------------------- 000253ae 4e 56 ff c8 |NV | LINK.W A6,#0xffc8 000253b2 bf d5 | | CMPA.L (A5),A7 000253b4 62 06 |b | BHI 0x253bc 000253b6 44 fc 00 02 |D | MOVE.W #0x2,CCR 000253ba 4e 76 |Nv | TRAPV 000253bc de fc 00 2c | , | ADDA.W #0x2c,A7 000253c0 48 e7 83 88 |H | MOVEM.L A4+A0+D7+D6+D0,-(A7) 000253c4 41 ee 00 08 |A | LEA.L (A6+0x8),A0 000253c8 70 0c |p | MOVEQ.L #0x0c,D0 000253ca 59 4f |YO | SUBQ.L #0x4,A7 000253cc 2f 10 |/ | MOVE.L (A0),-(A7) 000253ce 48 78 00 01 |Hx | PEA.L 0x1 000253d2 4e ba e9 8a |N | JSR 0x23d5e 000253d6 50 4f |PO | ADDQ.L #0x8,A7 000253d8 28 5f |(_ | MOVEA.L (A7)+,A4 000253da 9e c0 | | SUBA.W D0,A7 000253dc 2f 10 |/ | MOVE.L (A0),-(A7) 000253de 48 78 00 02 |Hx | PEA.L 0x2 000253e2 4e ba e9 ac |N | JSR 0x23d90 000253e6 50 4f |PO | ADDQ.L #0x8,A7 000253e8 4e b9 00 01 03 50 |N P | JSR Quad2Long(a : Quad) : Long 000253ee 50 4f |PO | ADDQ.L #0x8,A7 000253f0 2e 17 |. | MOVE.L (A7),D7 000253f2 51 4f |QO | SUBQ.L #0x8,A7 000253f4 2f 10 |/ | MOVE.L (A0),-(A7) 000253f6 48 78 00 03 |Hx | PEA.L 0x3 000253fa 4e ba e9 94 |N | JSR 0x23d90 000253fe 50 4f |PO | ADDQ.L #0x8,A7 00025400 4e b9 00 01 03 50 |N P | JSR Quad2Long(a : Quad) : Long 00025406 50 4f |PO | ADDQ.L #0x8,A7 00025408 2c 17 |, | MOVE.L (A7),D6 0002540a 51 4f |QO | SUBQ.L #0x8,A7 0002540c 2f 0c |/ | MOVE.L A4,-(A7) 0002540e 2f 07 |/ | MOVE.L D7,-(A7) 00025410 4e b9 00 01 03 60 |N ` | JSR ?StringToInt64() 00025416 58 4f |XO | ADDQ.L #0x4,A7 00025418 2e 86 |. | MOVE.L D6,(A7) 0002541a 4e b9 00 01 03 5c |N \ | JSR Quad2String(a : Quad; radix : Long ) : String 00025420 de c0 | | ADDA.W D0,A7 00025422 4e ba e9 dc |N | JSR 0x23e00 00025426 58 4f |XO | ADDQ.L #0x4,A7 00025428 4c df 11 c1 |L | MOVEM.L (A7)+,D0+D6+D7+A0+A4 0002542c 4e 5e |N^ | UNLK A6 0002542e 4e 75 |Nu | RTS 00025430 ; -------------------------------------------------------------------------------------- 00025430 ; OMSI PASCAL Function 00025430 ; <LVAR 0x008 4(r)> 00025430 ; <LVAR -0x00a 2(r)> 00025430 ; <LVAR -0x00c 4(rw)> 00025430 ; <LVAR -0x010 4(rw)> 00025430 ; -------------------------------------------------------------------------------------- 00025430 4e 56 ff bc |NV | LINK.W A6,#0xffbc 00025434 bf d5 | | CMPA.L (A5),A7 00025436 62 06 |b | BHI 0x2543e 00025438 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002543c 4e 76 |Nv | TRAPV 0002543e de fc 00 34 | 4 | ADDA.W #0x34,A7 00025442 48 e7 c3 c0 |H | MOVEM.L A1+A0+D7+D6+D1+D0,-(A7) 00025446 41 ee ff f0 |A | LEA.L (A6-0x10),A0 0002544a 43 ee ff f4 |C | LEA.L (A6-0xc),A1 0002544e 51 4f |QO | SUBQ.L #0x8,A7 00025450 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00025454 48 78 00 01 |Hx | PEA.L 0x1 00025458 4e ba e9 36 |N 6 | JSR 0x23d90 0002545c 50 4f |PO | ADDQ.L #0x8,A7 0002545e 20 9f | | MOVE.L (A7)+,(A0) 00025460 22 9f |" | MOVE.L (A7)+,(A1) 00025462 7e 00 |~ | MOVEQ.L #0x00,D7 00025464 7c 00 || | MOVEQ.L #0x00,D6 00025466 30 2e ff f6 |0. | MOVE.W (A6-0xa),D0 0002546a 02 40 00 01 | @ | ANDI.W #0x0001,D0 0002546e 42 81 |B | CLR.L D1 00025470 32 00 |2 | MOVE.W D0,D1 00025472 de 81 | | ADD.L D1,D7 00025474 51 4f |QO | SUBQ.L #0x8,A7 00025476 2f 11 |/ | MOVE.L (A1),-(A7) 00025478 2f 10 |/ | MOVE.L (A0),-(A7) 0002547a 48 78 ff ff |Hx | PEA.L 0xffffffff 0002547e 4e b9 00 01 03 44 |N D | JSR BitShift(a : Quad ; howmuch : integer) : Quad 00025484 de fc 00 0c | | ADDA.W #0xc,A7 00025488 20 9f | | MOVE.L (A7)+,(A0) 0002548a 22 9f |" | MOVE.L (A7)+,(A1) 0002548c 52 86 |R | ADDQ.L #0x1,D6 0002548e 0c 86 00 00 00 3f | ? | CMPI.L #0x0000003f,D6 00025494 6f d0 |o | BLE 0x25466 00025496 51 4f |QO | SUBQ.L #0x8,A7 00025498 2f 07 |/ | MOVE.L D7,-(A7) 0002549a 4e b9 00 01 03 54 |N T | JSR Long2Quad(a : Long) : Quad 000254a0 58 4f |XO | ADDQ.L #0x4,A7 000254a2 4e ba e9 e4 |N | JSR 0x23e88 000254a6 50 4f |PO | ADDQ.L #0x8,A7 000254a8 4c df 03 c3 |L | MOVEM.L (A7)+,D0+D1+D6+D7+A0+A1 000254ac 4e 5e |N^ | UNLK A6 000254ae 4e 75 |Nu | RTS 000254b0 ; -------------------------------------------------------------------------------------- 000254b0 ; OMSI PASCAL Function 000254b0 ; <LVAR 0x008 4(r)> 000254b0 ; <LVAR -0x004 @ 1(r)> 000254b0 ; -------------------------------------------------------------------------------------- 000254b0 4e 56 ff b8 |NV | LINK.W A6,#0xffb8 000254b4 bf d5 | | CMPA.L (A5),A7 000254b6 62 06 |b | BHI 0x254be 000254b8 44 fc 00 02 |D | MOVE.W #0x2,CCR 000254bc 4e 76 |Nv | TRAPV 000254be de fc 00 44 | D | ADDA.W #0x44,A7 000254c2 48 e7 e0 e0 |H | MOVEM.L A2+A1+A0+D2+D1+D0,-(A7) 000254c6 45 f9 00 02 93 7a |E z | LEA.L 0x2937a,A2 000254cc 72 01 |r | MOVEQ.L #0x01,D1 000254ce 74 00 |t | MOVEQ.L #0x00,D2 000254d0 4a 12 |J | TST.B (A2) 000254d2 66 32 |f2 | BNE 0x25506 000254d4 9e fc 00 1c | | SUBA.W #0x1c,A7 000254d8 20 4f | O | MOVEA.L A7,A0 000254da 43 fa d7 b4 |C | LEA.L 0x22c90,A1 000254de 70 1a |p | MOVEQ.L #0x1a,D0 000254e0 10 d9 | | MOVE.B (A1)+,(A0)+ 000254e2 51 c8 ff fc |Q | DBF D0,0x254e0 000254e6 59 4f |YO | SUBQ.L #0x4,A7 000254e8 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000254ec 3f 01 |? | MOVE.W D1,-(A7) 000254ee 3f 3c 00 1b |?< | MOVE.W #0x1b,-(A7) 000254f2 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000254f8 50 4f |PO | ADDQ.L #0x8,A7 000254fa 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00025500 de fc 00 20 | | ADDA.W #0x20,A7 00025504 14 81 | | MOVE.B D1,(A2) 00025506 5d 4f |]O | SUBQ.L #0x6,A7 00025508 4e b9 00 01 03 f8 |N | JSR GetConsoleConfig() : Long 0002550e 20 1f | | MOVE.L (A7)+,D0 00025510 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 00025516 63 02 |c | BLS 0x2551a 00025518 4e 4f |NO | TRAP #15 0002551a 3e 80 |> | MOVE.W D0,(A7) 0002551c 48 6e ff fc |Hn | PEA.L (A6-0x4) 00025520 4e b9 00 01 02 12 |N | JSR KC09_PortStatus(Port : Word; VAR b: Byte) 00025526 5c 4f |\O | ADDQ.L #0x6,A7 00025528 10 2e ff fc | . | MOVE.B (A6-0x4),D0 0002552c b0 01 | | CMP.B D1,D0 0002552e 67 16 |g | BEQ 0x25546 00025530 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00025534 4e ba da be |N | JSR 0x22ff4 00025538 58 4f |XO | ADDQ.L #0x4,A7 0002553a 2e 6d 00 08 |.m | MOVEA.L (A5+0x8),A7 0002553e 3c 42 |<B | MOVEA.W D2,A6 00025540 4e f9 00 02 68 d8 |N h | JMP 0x268d8 00025546 55 4f |UO | SUBQ.L #0x2,A7 00025548 4e b9 00 01 03 d4 |N | JSR ReadChar() : Byte 0002554e 10 1f | | MOVE.B (A7)+,D0 00025550 0c 00 00 07 | | CMPI.B #0x07,D0 00025554 67 16 |g | BEQ 0x2556c 00025556 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 0002555a 4e ba da 98 |N | JSR 0x22ff4 0002555e 58 4f |XO | ADDQ.L #0x4,A7 00025560 2e 6d 00 08 |.m | MOVEA.L (A5+0x8),A7 00025564 3c 42 |<B | MOVEA.W D2,A6 00025566 4e f9 00 02 68 d8 |N h | JMP 0x268d8 0002556c 4c df 07 07 |L | MOVEM.L (A7)+,D0+D1+D2+A0+A1+A2 00025570 4e 5e |N^ | UNLK A6 00025572 4e 75 |Nu | RTS 00025574 ; -------------------------------------------------------------------------------------- 00025574 ; OMSI PASCAL Function 00025574 ; -------------------------------------------------------------------------------------- 00025574 4e 56 ff f8 |NV | LINK.W A6,#0xfff8 00025578 bf d5 | | CMPA.L (A5),A7 0002557a 62 06 |b | BHI 0x25582 0002557c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00025580 4e 76 |Nv | TRAPV 00025582 de fc 00 08 | | ADDA.W #0x8,A7 00025586 48 78 00 c8 |Hx | PEA.L 0xc8 0002558a 4e ba e9 30 |N 0 | JSR 0x23ebc 0002558e 58 4f |XO | ADDQ.L #0x4,A7 00025590 4e 5e |N^ | UNLK A6 00025592 4e 75 |Nu | RTS 00025594 ; -------------------------------------------------------------------------------------- 00025594 ; OMSI PASCAL Function 00025594 ; <LVAR 0x008 4(r)> 00025594 ; <LVAR -0x00c @ 4(r)> 00025594 ; -------------------------------------------------------------------------------------- 00025594 4e 56 ff ac |NV | LINK.W A6,#0xffac 00025598 bf d5 | | CMPA.L (A5),A7 0002559a 62 06 |b | BHI 0x255a2 0002559c 44 fc 00 02 |D | MOVE.W #0x2,CCR 000255a0 4e 76 |Nv | TRAPV 000255a2 de fc 00 48 | H | ADDA.W #0x48,A7 000255a6 48 e7 83 c0 |H | MOVEM.L A1+A0+D7+D6+D0,-(A7) 000255aa 43 ee ff f4 |C | LEA.L (A6-0xc),A1 000255ae 48 51 |HQ | PEA.L (A1) 000255b0 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 000255b6 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000255ba 4e ba de 86 |N | JSR 0x23442 000255be 58 4f |XO | ADDQ.L #0x4,A7 000255c0 7e 01 |~ | MOVEQ.L #0x01,D7 000255c2 be 97 | | CMP.L (A7),D7 000255c4 6e 6a |nj | BGT 0x25630 000255c6 59 4f |YO | SUBQ.L #0x4,A7 000255c8 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000255cc 2f 07 |/ | MOVE.L D7,-(A7) 000255ce 4e ba e7 fc |N | JSR 0x23dcc 000255d2 50 4f |PO | ADDQ.L #0x8,A7 000255d4 2c 1f |, | MOVE.L (A7)+,D6 000255d6 6d 20 |m | BLT 0x255f8 000255d8 0c 86 00 00 00 ff | | CMPI.L #0x000000ff,D6 000255de 6e 18 |n | BGT 0x255f8 000255e0 2f 11 |/ | MOVE.L (A1),-(A7) 000255e2 0c 86 00 00 00 ff | | CMPI.L #0x000000ff,D6 000255e8 63 02 |c | BLS 0x255ec 000255ea 4e 4f |NO | TRAP #15 000255ec 1f 06 | | MOVE.B D6,-(A7) 000255ee 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 000255f4 5c 4f |\O | ADDQ.L #0x6,A7 000255f6 60 34 |`4 | BRA 0x2562c 000255f8 48 51 |HQ | PEA.L (A1) 000255fa 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00025600 58 4f |XO | ADDQ.L #0x4,A7 00025602 41 fa d6 c4 |A | LEA.L 0x22cc8,A0 00025606 70 06 |p | MOVEQ.L #0x06,D0 00025608 2f 20 |/ | MOVE.L -(A0),-(A7) 0002560a 51 c8 ff fc |Q | DBF D0,0x25608 0002560e 59 4f |YO | SUBQ.L #0x4,A7 00025610 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00025614 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00025618 3f 3c 00 1c |?< | MOVE.W #0x1c,-(A7) 0002561c 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00025622 50 4f |PO | ADDQ.L #0x8,A7 00025624 4e ba da 10 |N | JSR 0x23036 00025628 de fc 00 20 | | ADDA.W #0x20,A7 0002562c 52 87 |R | ADDQ.L #0x1,D7 0002562e 68 92 |h | BVC 0x255c2 00025630 2e 91 |. | MOVE.L (A1),(A7) 00025632 4e ba e7 cc |N | JSR 0x23e00 00025636 58 4f |XO | ADDQ.L #0x4,A7 00025638 4c df 03 c1 |L | MOVEM.L (A7)+,D0+D6+D7+A0+A1 0002563c 4e 5e |N^ | UNLK A6 0002563e 4e 75 |Nu | RTS 00025640 ; -------------------------------------------------------------------------------------- 00025640 ; OMSI PASCAL Function 00025640 ; <LVAR 0x00c 1(rw)> 00025640 ; <LVAR 0x008 4(r)> 00025640 ; -------------------------------------------------------------------------------------- 00025640 4e 56 ff c0 |NV | LINK.W A6,#0xffc0 00025644 bf d5 | | CMPA.L (A5),A7 00025646 62 06 |b | BHI 0x2564e 00025648 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002564c 4e 76 |Nv | TRAPV 0002564e de fc 00 34 | 4 | ADDA.W #0x34,A7 00025652 48 e7 e7 c0 |H | MOVEM.L A1+A0+D7+D6+D5+D2+D1+D0,-(A7) 00025656 42 2e 00 0c |B. | CLR.B (A6+0xc) 0002565a 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 0002565e 2f 08 |/ | MOVE.L A0,-(A7) 00025660 70 00 |p | MOVEQ.L #0x00,D0 00025662 52 40 |R@ | ADDQ.W #0x1,D0 00025664 1c 00 | | MOVE.B D0,D6 00025666 0c 06 00 2b | + | CMPI.B #0x2b,D6 0002566a 6e 00 00 82 |n | BGT 0x256ee 0002566e 41 fa d8 b2 |A | LEA.L 0x22f22,A0 00025672 10 06 | | MOVE.B D6,D0 00025674 48 80 |H | EXTB.W D0 00025676 48 c0 |H | EXTW.L D0 00025678 e2 98 | | ROR.L #0x1,D0 0002567a d0 c0 | | ADDA.W D0,A0 0002567c 48 40 |H@ | SWAP.W D0 0002567e e7 58 | X | ROL.W #0x3,D0 00025680 42 81 |B | CLR.L D1 00025682 12 10 | | MOVE.B (A0),D1 00025684 e1 29 | ) | LSL.B D0,D1 00025686 e8 09 | | LSR.B #0x4,D1 00025688 2a 01 |* | MOVE.L D1,D5 0002568a 20 57 | W | MOVEA.L (A7),A0 0002568c 30 10 |0 | MOVE.W (A0),D0 0002568e 48 c0 |H | EXTW.L D0 00025690 ba 80 | | CMP.L D0,D5 00025692 66 54 |fT | BNE 0x256e8 00025694 2f 05 |/ | MOVE.L D5,-(A7) 00025696 7e 01 |~ | MOVEQ.L #0x01,D7 00025698 be 97 | | CMP.L (A7),D7 0002569a 6e 42 |nB | BGT 0x256de 0002569c 10 06 | | MOVE.B D6,D0 0002569e 48 80 |H | EXTB.W D0 000256a0 c1 fc 00 0a | | MULS.W #0xa,D0 000256a4 22 07 |" | MOVE.L D7,D1 000256a6 53 81 |S | SUBQ.L #0x1,D1 000256a8 0c 81 00 00 00 7d | } | CMPI.L #0x0000007d,D1 000256ae 63 02 |c | BLS 0x256b2 000256b0 4e 4f |NO | TRAP #15 000256b2 20 6f 00 04 | o | MOVEA.L (A7+0x4),A0 000256b6 43 fa d6 b2 |C | LEA.L COMMAND_TABLE_22d6a,A1 000256ba 24 07 |$ | MOVE.L D7,D2 000256bc 53 82 |S | SUBQ.L #0x1,D2 000256be 0c 82 00 00 00 09 | | CMPI.L #0x00000009,D2 000256c4 63 02 |c | BLS 0x256c8 000256c6 4e 4f |NO | TRAP #15 000256c8 43 f1 00 00 |C | LEA.L (A1+D0.W),A1 000256cc 10 30 18 02 | 0 | MOVE.B (A0+D1.L+#0x2),D0 000256d0 b0 31 28 00 | 1( | CMP.B (A1+D2.L),D0 000256d4 67 04 |g | BEQ 0x256da 000256d6 58 4f |XO | ADDQ.L #0x4,A7 000256d8 60 0e |` | BRA 0x256e8 000256da 52 87 |R | ADDQ.L #0x1,D7 000256dc 68 ba |h | BVC 0x25698 000256de 58 4f |XO | ADDQ.L #0x4,A7 000256e0 1d 46 00 0c | F | MOVE.B D6,(A6+0xc) 000256e4 58 4f |XO | ADDQ.L #0x4,A7 000256e6 60 08 |` | BRA 0x256f0 000256e8 52 06 |R | ADDQ.B #0x1,D6 000256ea 68 00 ff 7a |h z | BVC 0x25666 000256ee 58 4f |XO | ADDQ.L #0x4,A7 000256f0 4c df 03 e7 |L | MOVEM.L (A7)+,D0+D1+D2+D5+D6+D7+A0+A1 000256f4 4e 5e |N^ | UNLK A6 000256f6 4e 75 |Nu | RTS 000256f8 ; -------------------------------------------------------------------------------------- 000256f8 ; OMSI PASCAL Function 000256f8 ; <LVAR 0x00c 4(r)> 000256f8 ; <LVAR 0x008 4(r)> 000256f8 ; <LVAR -0x002 @ 1(r)> 000256f8 ; <LVAR -0x006 @ 4(w)> 000256f8 ; <LVAR -0x008 @ 1(r)> 000256f8 ; <LVAR -0x00c @ 4(r)> 000256f8 ; <LVAR -0x010 @ 4(rw)> 000256f8 ; -------------------------------------------------------------------------------------- 000256f8 4e 56 ff a6 |NV | LINK.W A6,#0xffa6 000256fc bf d5 | | CMPA.L (A5),A7 000256fe 62 06 |b | BHI 0x25706 00025700 44 fc 00 02 |D | MOVE.W #0x2,CCR 00025704 4e 76 |Nv | TRAPV 00025706 de fc 00 4a | J | ADDA.W #0x4a,A7 0002570a 48 e7 c0 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D1+D0,-(A7) 0002570e 45 ee ff f0 |E | LEA.L (A6-0x10),A2 00025712 47 ee ff fe |G | LEA.L (A6-0x2),A3 00025716 49 ee ff f4 |I | LEA.L (A6-0xc),A4 0002571a 72 01 |r | MOVEQ.L #0x01,D1 0002571c 59 4f |YO | SUBQ.L #0x4,A7 0002571e 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00025722 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 00025728 58 4f |XO | ADDQ.L #0x4,A7 0002572a 24 9f |$ | MOVE.L (A7)+,(A2) 0002572c 2f 12 |/ | MOVE.L (A2),-(A7) 0002572e 1f 3c 00 2e | < . | MOVE.B #0x2e,-(A7) 00025732 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00025738 5c 4f |\O | ADDQ.L #0x6,A7 0002573a 41 f9 00 02 93 5a |A Z | LEA.L 0x2935a,A0 00025740 70 04 |p | MOVEQ.L #0x04,D0 00025742 3f 20 |? | MOVE.W -(A0),-(A7) 00025744 51 c8 ff fc |Q | DBF D0,0x25742 00025748 59 4f |YO | SUBQ.L #0x4,A7 0002574a 2f 12 |/ | MOVE.L (A2),-(A7) 0002574c 59 4f |YO | SUBQ.L #0x4,A7 0002574e 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00025752 3f 01 |? | MOVE.W D1,-(A7) 00025754 3f 3c 00 0a |?< | MOVE.W #0xa,-(A7) 00025758 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002575e 50 4f |PO | ADDQ.L #0x8,A7 00025760 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00025766 50 4f |PO | ADDQ.L #0x8,A7 00025768 24 9f |$ | MOVE.L (A7)+,(A2) 0002576a 5c 4f |\O | ADDQ.L #0x6,A7 0002576c 2e 92 |. | MOVE.L (A2),(A7) 0002576e 42 27 |B' | CLR.B -(A7) 00025770 1f 01 | | MOVE.B D1,-(A7) 00025772 48 78 00 00 |Hx | PEA.L 0x0 00025776 48 53 |HS | PEA.L (A3) 00025778 48 54 |HT | PEA.L (A4) 0002577a 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File) 00025780 de fc 00 14 | | ADDA.W #0x14,A7 00025784 4a 13 |J | TST.B (A3) 00025786 67 4a |gJ | BEQ 0x257d2 00025788 48 52 |HR | PEA.L (A2) 0002578a 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00025790 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7) 00025794 4e ba d8 5e |N ^ | JSR 0x22ff4 00025798 9e fc 00 16 | | SUBA.W #0x16,A7 0002579c 20 4f | O | MOVEA.L A7,A0 0002579e 43 fa d5 28 |C ( | LEA.L 0x22cc8,A1 000257a2 70 18 |p | MOVEQ.L #0x18,D0 000257a4 10 d9 | | MOVE.B (A1)+,(A0)+ 000257a6 51 c8 ff fc |Q | DBF D0,0x257a4 000257aa 51 4f |QO | SUBQ.L #0x8,A7 000257ac 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000257b0 3f 01 |? | MOVE.W D1,-(A7) 000257b2 3f 3c 00 19 |?< | MOVE.W #0x19,-(A7) 000257b6 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000257bc 58 4f |XO | ADDQ.L #0x4,A7 000257be 2e ae 00 0c |. | MOVE.L (A6+0xc),(A7) 000257c2 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000257c8 50 4f |PO | ADDQ.L #0x8,A7 000257ca 4e ba d8 6a |N j | JSR 0x23036 000257ce de fc 00 1e | | ADDA.W #0x1e,A7 000257d2 2d 79 00 02 93 48 ff fa |-y H | MOVE.L 0x29348,(A6-0x6) 000257da 2f 14 |/ | MOVE.L (A4),-(A7) 000257dc 48 52 |HR | PEA.L (A2) 000257de 48 6e ff f8 |Hn | PEA.L (A6-0x8) 000257e2 4e b9 00 01 04 3c |N < | JSR FileReadLine(file : File; VAR a : String; VAR b : Byte) 000257e8 de fc 00 0c | | ADDA.W #0xc,A7 000257ec 20 52 | R | MOVEA.L (A2),A0 000257ee 4a 50 |JP | TST.W (A0) 000257f0 67 14 |g | BEQ 0x25806 000257f2 2f 12 |/ | MOVE.L (A2),-(A7) 000257f4 4e ba da 98 |N | JSR 0x2328e 000257f8 58 4f |XO | ADDQ.L #0x4,A7 000257fa 48 6e ff fa |Hn | PEA.L (A6-0x6) 000257fe 2f 12 |/ | MOVE.L (A2),-(A7) 00025800 4e ba de 12 |N | JSR 0x23614 00025804 50 4f |PO | ADDQ.L #0x8,A7 00025806 4a 2e ff f8 |J. | TST.B (A6-0x8) 0002580a 67 ce |g | BEQ 0x257da 0002580c 42 27 |B' | CLR.B -(A7) 0002580e 1f 01 | | MOVE.B D1,-(A7) 00025810 48 78 00 01 |Hx | PEA.L 0x1 00025814 48 53 |HS | PEA.L (A3) 00025816 48 54 |HT | PEA.L (A4) 00025818 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File) 0002581e de fc 00 10 | | ADDA.W #0x10,A7 00025822 48 52 |HR | PEA.L (A2) 00025824 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 0002582a 58 4f |XO | ADDQ.L #0x4,A7 0002582c 4c df 1f 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2+A3+A4 00025830 4e 5e |N^ | UNLK A6 00025832 4e 75 |Nu | RTS 00025834 ; -------------------------------------------------------------------------------------- 00025834 ; OMSI PASCAL Function 00025834 ; <LVAR 0x014 1(w)> 00025834 ; <LVAR 0x00c 4(r)> 00025834 ; <LVAR 0x008 4(r)> 00025834 ; -------------------------------------------------------------------------------------- 00025834 4e 56 ff f4 |NV | LINK.W A6,#0xfff4 00025838 bf d5 | | CMPA.L (A5),A7 0002583a 62 06 |b | BHI 0x25842 0002583c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00025840 4e 76 |Nv | TRAPV 00025842 de fc 00 0c | | ADDA.W #0xc,A7 00025846 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 0002584a 20 2e 00 0c | . | MOVE.L (A6+0xc),D0 0002584e d0 ae 00 08 | | ADD.L (A6+0x8),D0 00025852 53 80 |S | SUBQ.L #0x1,D0 00025854 53 80 |S | SUBQ.L #0x1,D0 00025856 0c 80 00 00 1f ff | | CMPI.L #0x00001fff,D0 0002585c 63 02 |c | BLS 0x25860 0002585e 4e 4f |NO | TRAP #15 00025860 41 f9 00 02 73 40 |A s@ | LEA.L 0x27340,A0 00025866 1d 70 08 08 00 14 | p | MOVE.B (A0+D0.L+#0x8),(A6+0x14) 0002586c 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 00025870 4e 5e |N^ | UNLK A6 00025872 4e 75 |Nu | RTS 00025874 ; -------------------------------------------------------------------------------------- 00025874 ; OMSI PASCAL Function 00025874 ; <LVAR 0x010 4(w)> 00025874 ; <LVAR 0x00c 4(r)> 00025874 ; <LVAR 0x008 4(r)> 00025874 ; <LVAR -0x004 @ 1(r)> 00025874 ; <LVAR -0x008 @ 4(r)> 00025874 ; -------------------------------------------------------------------------------------- 00025874 4e 56 ff c4 |NV | LINK.W A6,#0xffc4 00025878 bf d5 | | CMPA.L (A5),A7 0002587a 62 06 |b | BHI 0x25882 0002587c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00025880 4e 76 |Nv | TRAPV 00025882 de fc 00 34 | 4 | ADDA.W #0x34,A7 00025886 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7) 0002588a 59 4f |YO | SUBQ.L #0x4,A7 0002588c 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00025890 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00025894 4e ba e4 4c |N L | JSR 0x23ce2 00025898 50 4f |PO | ADDQ.L #0x8,A7 0002589a 48 6e ff fc |Hn | PEA.L (A6-0x4) 0002589e 48 6e ff f8 |Hn | PEA.L (A6-0x8) 000258a2 4e b9 00 01 02 ec |N | JSR String2Long(src : String; VAR status : Bool; VAR retval : Long) 000258a8 de fc 00 0c | | ADDA.W #0xc,A7 000258ac 4a 2e ff fc |J. | TST.B (A6-0x4) 000258b0 66 30 |f0 | BNE 0x258e2 000258b2 9e fc 00 18 | | SUBA.W #0x18,A7 000258b6 20 4f | O | MOVEA.L A7,A0 000258b8 43 fa d4 28 |C ( | LEA.L 0x22ce2,A1 000258bc 70 16 |p | MOVEQ.L #0x16,D0 000258be 10 d9 | | MOVE.B (A1)+,(A0)+ 000258c0 51 c8 ff fc |Q | DBF D0,0x258be 000258c4 59 4f |YO | SUBQ.L #0x4,A7 000258c6 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000258ca 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000258ce 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7) 000258d2 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000258d8 50 4f |PO | ADDQ.L #0x8,A7 000258da 4e ba d7 5a |N Z | JSR 0x23036 000258de de fc 00 1c | | ADDA.W #0x1c,A7 000258e2 2d 6e ff f8 00 10 |-n | MOVE.L (A6-0x8),(A6+0x10) 000258e8 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1 000258ec 4e 5e |N^ | UNLK A6 000258ee 4e 75 |Nu | RTS 000258f0 ; -------------------------------------------------------------------------------------- 000258f0 ; OMSI PASCAL Function 000258f0 ; <LVAR 0x014 4(r)> 000258f0 ; <LVAR 0x010 4(r)> 000258f0 ; <LVAR 0x00c 4(r)> 000258f0 ; <LVAR 0x008 4(r)> 000258f0 ; <LVAR -0x00c 4(rw)> 000258f0 ; <LVAR -0x010 4(rw)> 000258f0 ; <LVAR -0x014 4(rw)> 000258f0 ; <LVAR -0x018 4(w)> 000258f0 ; <LVAR -0x020 4(rw)> 000258f0 ; -------------------------------------------------------------------------------------- 000258f0 4e 56 ff 8e |NV | LINK.W A6,#0xff8e 000258f4 bf d5 | | CMPA.L (A5),A7 000258f6 62 06 |b | BHI 0x258fe 000258f8 44 fc 00 02 |D | MOVE.W #0x2,CCR 000258fc 4e 76 |Nv | TRAPV 000258fe de fc 00 4e | N | ADDA.W #0x4e,A7 00025902 48 e7 c7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D1+D0,-(A7) 00025906 43 ee ff e0 |C | LEA.L (A6-0x20),A1 0002590a 45 ee ff f0 |E | LEA.L (A6-0x10),A2 0002590e 47 ee ff f4 |G | LEA.L (A6-0xc),A3 00025912 49 ee ff ec |I | LEA.L (A6-0x14),A4 00025916 7e 00 |~ | MOVEQ.L #0x00,D7 00025918 22 ae 00 14 |" | MOVE.L (A6+0x14),(A1) 0002591c 20 39 00 02 93 48 | 9 H | MOVE.L 0x29348,D0 00025922 90 ae 00 14 | | SUB.L (A6+0x14),D0 00025926 28 80 |( | MOVE.L D0,(A4) 00025928 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 0002592c 2a 2e 00 10 |*. | MOVE.L (A6+0x10),D5 00025930 ba 97 | | CMP.L (A7),D5 00025932 6e 2c |n, | BGT 0x25960 00025934 51 4f |QO | SUBQ.L #0x8,A7 00025936 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 0002593a 2f 05 |/ | MOVE.L D5,-(A7) 0002593c 4e ba e3 42 |N B | JSR 0x23c80 00025940 50 4f |PO | ADDQ.L #0x8,A7 00025942 24 9f |$ | MOVE.L (A7)+,(A2) 00025944 26 97 |& | MOVE.L (A7),(A3) 00025946 2f 13 |/ | MOVE.L (A3),-(A7) 00025948 2f 12 |/ | MOVE.L (A2),-(A7) 0002594a 4e ba e2 fc |N | JSR 0x23c48 0002594e 50 4f |PO | ADDQ.L #0x8,A7 00025950 2c 1f |, | MOVE.L (A7)+,D6 00025952 de 86 | | ADD.L D6,D7 00025954 ba ae 00 0c | | CMP.L (A6+0xc),D5 00025958 6c 02 |l | BGE 0x2595c 0002595a 52 87 |R | ADDQ.L #0x1,D7 0002595c 52 85 |R | ADDQ.L #0x1,D5 0002595e 68 d0 |h | BVC 0x25930 00025960 58 4f |XO | ADDQ.L #0x4,A7 00025962 20 11 | | MOVE.L (A1),D0 00025964 d0 94 | | ADD.L (A4),D0 00025966 2d 40 ff e8 |-@ | MOVE.L D0,(A6-0x18) 0002596a be 94 | | CMP.L (A4),D7 0002596c 67 0c |g | BEQ 0x2597a 0002596e 2f 00 |/ | MOVE.L D0,-(A7) 00025970 2f 14 |/ | MOVE.L (A4),-(A7) 00025972 9f 97 | | SUB.L D7,(A7) 00025974 4e ba dc 14 |N | JSR 0x2358a 00025978 50 4f |PO | ADDQ.L #0x8,A7 0002597a 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 0002597e 2a 2e 00 10 |*. | MOVE.L (A6+0x10),D5 00025982 ba 97 | | CMP.L (A7),D5 00025984 6e 00 00 88 |n | BGT 0x25a0e 00025988 51 4f |QO | SUBQ.L #0x8,A7 0002598a 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 0002598e 2f 05 |/ | MOVE.L D5,-(A7) 00025990 4e ba e2 ee |N | JSR 0x23c80 00025994 50 4f |PO | ADDQ.L #0x8,A7 00025996 24 9f |$ | MOVE.L (A7)+,(A2) 00025998 26 97 |& | MOVE.L (A7),(A3) 0002599a 2f 13 |/ | MOVE.L (A3),-(A7) 0002599c 2f 12 |/ | MOVE.L (A2),-(A7) 0002599e 4e ba e2 a8 |N | JSR 0x23c48 000259a2 50 4f |PO | ADDQ.L #0x8,A7 000259a4 2c 1f |, | MOVE.L (A7)+,D6 000259a6 2f 06 |/ | MOVE.L D6,-(A7) 000259a8 70 01 |p | MOVEQ.L #0x01,D0 000259aa b0 97 | | CMP.L (A7),D0 000259ac 6e 30 |n0 | BGT 0x259de 000259ae 22 11 |" | MOVE.L (A1),D1 000259b0 d2 80 | | ADD.L D0,D1 000259b2 53 81 |S | SUBQ.L #0x1,D1 000259b4 53 81 |S | SUBQ.L #0x1,D1 000259b6 0c 81 00 00 1f ff | | CMPI.L #0x00001fff,D1 000259bc 63 02 |c | BLS 0x259c0 000259be 4e 4f |NO | TRAP #15 000259c0 41 f9 00 02 73 40 |A s@ | LEA.L 0x27340,A0 000259c6 55 4f |UO | SUBQ.L #0x2,A7 000259c8 2f 13 |/ | MOVE.L (A3),-(A7) 000259ca 2f 12 |/ | MOVE.L (A2),-(A7) 000259cc 2f 00 |/ | MOVE.L D0,-(A7) 000259ce 4e ba fe 64 |N d | JSR 0x25834 000259d2 de fc 00 0c | | ADDA.W #0xc,A7 000259d6 11 9f 18 08 | | MOVE.B (A7)+,(A0+D1.L+#0x8) 000259da 52 80 |R | ADDQ.L #0x1,D0 000259dc 68 cc |h | BVC 0x259aa 000259de 58 4f |XO | ADDQ.L #0x4,A7 000259e0 ba ae 00 0c | | CMP.L (A6+0xc),D5 000259e4 6c 22 |l" | BGE 0x25a08 000259e6 20 11 | | MOVE.L (A1),D0 000259e8 d0 86 | | ADD.L D6,D0 000259ea 22 00 |" | MOVE.L D0,D1 000259ec 53 81 |S | SUBQ.L #0x1,D1 000259ee 0c 81 00 00 1f ff | | CMPI.L #0x00001fff,D1 000259f4 63 02 |c | BLS 0x259f8 000259f6 4e 4f |NO | TRAP #15 000259f8 41 f9 00 02 73 40 |A s@ | LEA.L 0x27340,A0 000259fe 11 bc 00 2c 18 08 | , | MOVE.B #0x2c,(A0+D1.L+#0x8) 00025a04 52 80 |R | ADDQ.L #0x1,D0 00025a06 22 80 |" | MOVE.L D0,(A1) 00025a08 52 85 |R | ADDQ.L #0x1,D5 00025a0a 68 00 ff 76 |h v | BVC 0x25982 00025a0e 58 4f |XO | ADDQ.L #0x4,A7 00025a10 4c df 1f e3 |L | MOVEM.L (A7)+,D0+D1+D5+D6+D7+A0+A1+A2+A3+A4 00025a14 4e 5e |N^ | UNLK A6 00025a16 4e 75 |Nu | RTS 00025a18 ; -------------------------------------------------------------------------------------- 00025a18 ; OMSI PASCAL Function 00025a18 ; <LVAR 0x018 4(rw)> 00025a18 ; <LVAR 0x014 4(r)> 00025a18 ; <LVAR 0x010 4(r)> 00025a18 ; <LVAR 0x00c 4(r)> 00025a18 ; <LVAR 0x008 4(r)> 00025a18 ; <LVAR -0x008 4(rw)> 00025a18 ; <LVAR -0x00c 4(rw)> 00025a18 ; <LVAR -0x018 4(w)> 00025a18 ; -------------------------------------------------------------------------------------- 00025a18 4e 56 ff 9e |NV | LINK.W A6,#0xff9e 00025a1c bf d5 | | CMPA.L (A5),A7 00025a1e 62 06 |b | BHI 0x25a26 00025a20 44 fc 00 02 |D | MOVE.W #0x2,CCR 00025a24 4e 76 |Nv | TRAPV 00025a26 de fc 00 4a | J | ADDA.W #0x4a,A7 00025a2a 48 e7 c7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D1+D0,-(A7) 00025a2e 41 ee ff f8 |A | LEA.L (A6-0x8),A0 00025a32 43 ee 00 14 |C | LEA.L (A6+0x14),A1 00025a36 45 ee 00 10 |E | LEA.L (A6+0x10),A2 00025a3a 47 ee ff f4 |G | LEA.L (A6-0xc),A3 00025a3e 49 fa fd f4 |I | LEA.L 0x25834,A4 00025a42 72 0c |r | MOVEQ.L #0x0c,D1 00025a44 59 4f |YO | SUBQ.L #0x4,A7 00025a46 2f 11 |/ | MOVE.L (A1),-(A7) 00025a48 2f 12 |/ | MOVE.L (A2),-(A7) 00025a4a 4e ba e1 fc |N | JSR 0x23c48 00025a4e 50 4f |PO | ADDQ.L #0x8,A7 00025a50 26 97 |& | MOVE.L (A7),(A3) 00025a52 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00025a56 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00025a5a 4e ba e1 ec |N | JSR 0x23c48 00025a5e 50 4f |PO | ADDQ.L #0x8,A7 00025a60 20 9f | | MOVE.L (A7)+,(A0) 00025a62 52 90 |R | ADDQ.L #0x1,(A0) 00025a64 20 13 | | MOVE.L (A3),D0 00025a66 90 90 | | SUB.L (A0),D0 00025a68 52 80 |R | ADDQ.L #0x1,D0 00025a6a 2f 00 |/ | MOVE.L D0,-(A7) 00025a6c 70 01 |p | MOVEQ.L #0x01,D0 00025a6e b0 97 | | CMP.L (A7),D0 00025a70 6e 00 00 8e |n | BGT 0x25b00 00025a74 2d 40 ff e8 |-@ | MOVE.L D0,(A6-0x18) 00025a78 2f 00 |/ | MOVE.L D0,-(A7) 00025a7a 7c 00 || | MOVEQ.L #0x00,D6 00025a7c 2f 10 |/ | MOVE.L (A0),-(A7) 00025a7e 7a 01 |z | MOVEQ.L #0x01,D5 00025a80 ba 97 | | CMP.L (A7),D5 00025a82 6e 42 |nB | BGT 0x25ac6 00025a84 0c 85 00 00 00 01 | | CMPI.L #0x00000001,D5 00025a8a 66 04 |f | BNE 0x25a90 00025a8c 7e 2f |~/ | MOVEQ.L #0x2f,D7 00025a8e 60 14 |` | BRA 0x25aa4 00025a90 55 4f |UO | SUBQ.L #0x2,A7 00025a92 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00025a96 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00025a9a 2f 05 |/ | MOVE.L D5,-(A7) 00025a9c 53 97 |S | SUBQ.L #0x1,(A7) 00025a9e 4e 94 |N | JSR (A4) 00025aa0 de c1 | | ADDA.W D1,A7 00025aa2 1e 1f | | MOVE.B (A7)+,D7 00025aa4 55 4f |UO | SUBQ.L #0x2,A7 00025aa6 2f 11 |/ | MOVE.L (A1),-(A7) 00025aa8 2f 12 |/ | MOVE.L (A2),-(A7) 00025aaa 20 2f 00 0e | / | MOVE.L (A7+0xe),D0 00025aae d0 85 | | ADD.L D5,D0 00025ab0 53 80 |S | SUBQ.L #0x1,D0 00025ab2 2f 00 |/ | MOVE.L D0,-(A7) 00025ab4 4e 94 |N | JSR (A4) 00025ab6 de c1 | | ADDA.W D1,A7 00025ab8 be 1f | | CMP.B (A7)+,D7 00025aba 67 04 |g | BEQ 0x25ac0 00025abc 58 4f |XO | ADDQ.L #0x4,A7 00025abe 60 08 |` | BRA 0x25ac8 00025ac0 2c 05 |, | MOVE.L D5,D6 00025ac2 52 85 |R | ADDQ.L #0x1,D5 00025ac4 68 ba |h | BVC 0x25a80 00025ac6 58 4f |XO | ADDQ.L #0x4,A7 00025ac8 bc 90 | | CMP.L (A0),D6 00025aca 66 2c |f, | BNE 0x25af8 00025acc 20 17 | | MOVE.L (A7),D0 00025ace 2d 40 00 18 |-@ | MOVE.L D0,(A6+0x18) 00025ad2 d0 90 | | ADD.L (A0),D0 00025ad4 b0 93 | | CMP.L (A3),D0 00025ad6 6d 02 |m | BLT 0x25ada 00025ad8 60 1a |` | BRA 0x25af4 00025ada 55 4f |UO | SUBQ.L #0x2,A7 00025adc 2f 11 |/ | MOVE.L (A1),-(A7) 00025ade 2f 12 |/ | MOVE.L (A2),-(A7) 00025ae0 2f 00 |/ | MOVE.L D0,-(A7) 00025ae2 4e 94 |N | JSR (A4) 00025ae4 de c1 | | ADDA.W D1,A7 00025ae6 1e 1f | | MOVE.B (A7)+,D7 00025ae8 0c 07 00 2f | / | CMPI.B #0x2f,D7 00025aec 67 06 |g | BEQ 0x25af4 00025aee 0c 07 00 3d | = | CMPI.B #0x3d,D7 00025af2 66 04 |f | BNE 0x25af8 00025af4 50 4f |PO | ADDQ.L #0x8,A7 00025af6 60 0e |` | BRA 0x25b06 00025af8 20 1f | | MOVE.L (A7)+,D0 00025afa 52 80 |R | ADDQ.L #0x1,D0 00025afc 68 00 ff 70 |h p | BVC 0x25a6e 00025b00 58 4f |XO | ADDQ.L #0x4,A7 00025b02 42 ae 00 18 |B | CLR.L (A6+0x18) 00025b06 4c df 1f e3 |L | MOVEM.L (A7)+,D0+D1+D5+D6+D7+A0+A1+A2+A3+A4 00025b0a 4e 5e |N^ | UNLK A6 00025b0c 4e 75 |Nu | RTS 00025b0e ; -------------------------------------------------------------------------------------- 00025b0e ; OMSI PASCAL Function 00025b0e ; <LVAR 0x018 4(r)> 00025b0e ; <LVAR 0x014 4(r)> 00025b0e ; <LVAR 0x010 4(r)> 00025b0e ; <LVAR 0x00c 4(r)> 00025b0e ; <LVAR 0x008 4(r)> 00025b0e ; -------------------------------------------------------------------------------------- 00025b0e 4e 56 ff be |NV | LINK.W A6,#0xffbe 00025b12 bf d5 | | CMPA.L (A5),A7 00025b14 62 06 |b | BHI 0x25b1c 00025b16 44 fc 00 02 |D | MOVE.W #0x2,CCR 00025b1a 4e 76 |Nv | TRAPV 00025b1c de fc 00 36 | 6 | ADDA.W #0x36,A7 00025b20 48 e7 c7 c0 |H | MOVEM.L A1+A0+D7+D6+D5+D1+D0,-(A7) 00025b24 41 ee 00 14 |A | LEA.L (A6+0x14),A0 00025b28 43 ee 00 10 |C | LEA.L (A6+0x10),A1 00025b2c 72 2f |r/ | MOVEQ.L #0x2f,D1 00025b2e 59 4f |YO | SUBQ.L #0x4,A7 00025b30 2f 10 |/ | MOVE.L (A0),-(A7) 00025b32 2f 11 |/ | MOVE.L (A1),-(A7) 00025b34 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00025b38 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00025b3c 4e ba fe da |N | JSR 0x25a18 00025b40 de fc 00 10 | | ADDA.W #0x10,A7 00025b44 2a 1f |* | MOVE.L (A7)+,D5 00025b46 6f 52 |oR | BLE 0x25b9a 00025b48 2f 2e 00 18 |/. | MOVE.L (A6+0x18),-(A7) 00025b4c 1f 01 | | MOVE.B D1,-(A7) 00025b4e 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00025b54 5c 4f |\O | ADDQ.L #0x6,A7 00025b56 20 05 | | MOVE.L D5,D0 00025b58 52 80 |R | ADDQ.L #0x1,D0 00025b5a 59 4f |YO | SUBQ.L #0x4,A7 00025b5c 2f 10 |/ | MOVE.L (A0),-(A7) 00025b5e 2f 11 |/ | MOVE.L (A1),-(A7) 00025b60 4e ba e0 e6 |N | JSR 0x23c48 00025b64 50 4f |PO | ADDQ.L #0x8,A7 00025b66 2c 00 |, | MOVE.L D0,D6 00025b68 bc 97 | | CMP.L (A7),D6 00025b6a 6e 2c |n, | BGT 0x25b98 00025b6c 55 4f |UO | SUBQ.L #0x2,A7 00025b6e 2f 10 |/ | MOVE.L (A0),-(A7) 00025b70 2f 11 |/ | MOVE.L (A1),-(A7) 00025b72 2f 06 |/ | MOVE.L D6,-(A7) 00025b74 4e ba fc be |N | JSR 0x25834 00025b78 de fc 00 0c | | ADDA.W #0xc,A7 00025b7c 1e 1f | | MOVE.B (A7)+,D7 00025b7e be 01 | | CMP.B D1,D7 00025b80 66 04 |f | BNE 0x25b86 00025b82 58 4f |XO | ADDQ.L #0x4,A7 00025b84 60 14 |` | BRA 0x25b9a 00025b86 2f 2e 00 18 |/. | MOVE.L (A6+0x18),-(A7) 00025b8a 1f 07 | | MOVE.B D7,-(A7) 00025b8c 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00025b92 5c 4f |\O | ADDQ.L #0x6,A7 00025b94 52 86 |R | ADDQ.L #0x1,D6 00025b96 68 d0 |h | BVC 0x25b68 00025b98 58 4f |XO | ADDQ.L #0x4,A7 00025b9a 4c df 03 e3 |L | MOVEM.L (A7)+,D0+D1+D5+D6+D7+A0+A1 00025b9e 4e 5e |N^ | UNLK A6 00025ba0 4e 75 |Nu | RTS 00025ba2 ; -------------------------------------------------------------------------------------- 00025ba2 ; OMSI PASCAL Function 00025ba2 ; <LVAR 0x018 4(r)> 00025ba2 ; <LVAR 0x014 4(r)> 00025ba2 ; <LVAR 0x010 4(r)> 00025ba2 ; <LVAR 0x00c 4(r)> 00025ba2 ; <LVAR 0x008 4(r)> 00025ba2 ; <LVAR -0x006 4(rw)> 00025ba2 ; <LVAR -0x014 4(rw)> 00025ba2 ; -------------------------------------------------------------------------------------- 00025ba2 4e 56 ff aa |NV | LINK.W A6,#0xffaa 00025ba6 bf d5 | | CMPA.L (A5),A7 00025ba8 62 06 |b | BHI 0x25bb0 00025baa 44 fc 00 02 |D | MOVE.W #0x2,CCR 00025bae 4e 76 |Nv | TRAPV 00025bb0 de fc 00 42 | B | ADDA.W #0x42,A7 00025bb4 48 e7 c7 e0 |H | MOVEM.L A2+A1+A0+D7+D6+D5+D1+D0,-(A7) 00025bb8 41 ee 00 14 |A | LEA.L (A6+0x14),A0 00025bbc 43 ee 00 10 |C | LEA.L (A6+0x10),A1 00025bc0 45 ee ff fa |E | LEA.L (A6-0x6),A2 00025bc4 72 0c |r | MOVEQ.L #0x0c,D1 00025bc6 59 4f |YO | SUBQ.L #0x4,A7 00025bc8 2f 10 |/ | MOVE.L (A0),-(A7) 00025bca 2f 11 |/ | MOVE.L (A1),-(A7) 00025bcc 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00025bd0 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00025bd4 4e ba fe 42 |N B | JSR 0x25a18 00025bd8 de fc 00 10 | | ADDA.W #0x10,A7 00025bdc 2d 5f ff ec |-_ | MOVE.L (A7)+,(A6-0x14) 00025be0 6f 6e |on | BLE 0x25c50 00025be2 59 4f |YO | SUBQ.L #0x4,A7 00025be4 2f 10 |/ | MOVE.L (A0),-(A7) 00025be6 2f 11 |/ | MOVE.L (A1),-(A7) 00025be8 4e ba e0 5e |N ^ | JSR 0x23c48 00025bec 50 4f |PO | ADDQ.L #0x8,A7 00025bee 24 9f |$ | MOVE.L (A7)+,(A2) 00025bf0 2f 12 |/ | MOVE.L (A2),-(A7) 00025bf2 2a 2e ff ec |*. | MOVE.L (A6-0x14),D5 00025bf6 ba 97 | | CMP.L (A7),D5 00025bf8 6e 54 |nT | BGT 0x25c4e 00025bfa 55 4f |UO | SUBQ.L #0x2,A7 00025bfc 2f 10 |/ | MOVE.L (A0),-(A7) 00025bfe 2f 11 |/ | MOVE.L (A1),-(A7) 00025c00 2f 05 |/ | MOVE.L D5,-(A7) 00025c02 4e ba fc 30 |N 0 | JSR 0x25834 00025c06 de c1 | | ADDA.W D1,A7 00025c08 10 1f | | MOVE.B (A7)+,D0 00025c0a 0c 00 00 3d | = | CMPI.B #0x3d,D0 00025c0e 66 3a |f: | BNE 0x25c4a 00025c10 20 05 | | MOVE.L D5,D0 00025c12 52 80 |R | ADDQ.L #0x1,D0 00025c14 2f 12 |/ | MOVE.L (A2),-(A7) 00025c16 2c 00 |, | MOVE.L D0,D6 00025c18 bc 97 | | CMP.L (A7),D6 00025c1a 6e 2c |n, | BGT 0x25c48 00025c1c 55 4f |UO | SUBQ.L #0x2,A7 00025c1e 2f 10 |/ | MOVE.L (A0),-(A7) 00025c20 2f 11 |/ | MOVE.L (A1),-(A7) 00025c22 2f 06 |/ | MOVE.L D6,-(A7) 00025c24 4e ba fc 0e |N | JSR 0x25834 00025c28 de c1 | | ADDA.W D1,A7 00025c2a 1e 1f | | MOVE.B (A7)+,D7 00025c2c 0c 07 00 2f | / | CMPI.B #0x2f,D7 00025c30 66 04 |f | BNE 0x25c36 00025c32 50 4f |PO | ADDQ.L #0x8,A7 00025c34 60 1a |` | BRA 0x25c50 00025c36 2f 2e 00 18 |/. | MOVE.L (A6+0x18),-(A7) 00025c3a 1f 07 | | MOVE.B D7,-(A7) 00025c3c 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00025c42 5c 4f |\O | ADDQ.L #0x6,A7 00025c44 52 86 |R | ADDQ.L #0x1,D6 00025c46 68 d0 |h | BVC 0x25c18 00025c48 58 4f |XO | ADDQ.L #0x4,A7 00025c4a 52 85 |R | ADDQ.L #0x1,D5 00025c4c 68 a8 |h | BVC 0x25bf6 00025c4e 58 4f |XO | ADDQ.L #0x4,A7 00025c50 4c df 07 e3 |L | MOVEM.L (A7)+,D0+D1+D5+D6+D7+A0+A1+A2 00025c54 4e 5e |N^ | UNLK A6 00025c56 4e 75 |Nu | RTS 00025c58 ; -------------------------------------------------------------------------------------- 00025c58 ; OMSI PASCAL Function 00025c58 ; <LVAR 0x010 4(r)> 00025c58 ; <LVAR 0x00c 4(r)> 00025c58 ; <LVAR 0x008 4(r)> 00025c58 ; -------------------------------------------------------------------------------------- 00025c58 4e 56 ff b2 |NV | LINK.W A6,#0xffb2 00025c5c bf d5 | | CMPA.L (A5),A7 00025c5e 62 06 |b | BHI 0x25c66 00025c60 44 fc 00 02 |D | MOVE.W #0x2,CCR 00025c64 4e 76 |Nv | TRAPV 00025c66 de fc 00 42 | B | ADDA.W #0x42,A7 00025c6a 48 e7 c7 c0 |H | MOVEM.L A1+A0+D7+D6+D5+D1+D0,-(A7) 00025c6e 41 ee 00 0c |A | LEA.L (A6+0xc),A0 00025c72 43 ee 00 08 |C | LEA.L (A6+0x8),A1 00025c76 72 0c |r | MOVEQ.L #0x0c,D1 00025c78 59 4f |YO | SUBQ.L #0x4,A7 00025c7a 2f 10 |/ | MOVE.L (A0),-(A7) 00025c7c 2f 11 |/ | MOVE.L (A1),-(A7) 00025c7e 4e ba df c8 |N | JSR 0x23c48 00025c82 50 4f |PO | ADDQ.L #0x8,A7 00025c84 2a 1f |* | MOVE.L (A7)+,D5 00025c86 2f 05 |/ | MOVE.L D5,-(A7) 00025c88 7c 01 || | MOVEQ.L #0x01,D6 00025c8a bc 97 | | CMP.L (A7),D6 00025c8c 6e 46 |nF | BGT 0x25cd4 00025c8e 55 4f |UO | SUBQ.L #0x2,A7 00025c90 2f 10 |/ | MOVE.L (A0),-(A7) 00025c92 2f 11 |/ | MOVE.L (A1),-(A7) 00025c94 2f 06 |/ | MOVE.L D6,-(A7) 00025c96 4e ba fb 9c |N | JSR 0x25834 00025c9a de c1 | | ADDA.W D1,A7 00025c9c 10 1f | | MOVE.B (A7)+,D0 00025c9e 0c 00 00 2f | / | CMPI.B #0x2f,D0 00025ca2 66 2c |f, | BNE 0x25cd0 00025ca4 2f 05 |/ | MOVE.L D5,-(A7) 00025ca6 2e 06 |. | MOVE.L D6,D7 00025ca8 be 97 | | CMP.L (A7),D7 00025caa 6e 1e |n | BGT 0x25cca 00025cac 2f 2e 00 10 |/. | MOVE.L (A6+0x10),-(A7) 00025cb0 55 4f |UO | SUBQ.L #0x2,A7 00025cb2 2f 10 |/ | MOVE.L (A0),-(A7) 00025cb4 2f 11 |/ | MOVE.L (A1),-(A7) 00025cb6 2f 07 |/ | MOVE.L D7,-(A7) 00025cb8 4e ba fb 7a |N z | JSR 0x25834 00025cbc de c1 | | ADDA.W D1,A7 00025cbe 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00025cc4 5c 4f |\O | ADDQ.L #0x6,A7 00025cc6 52 87 |R | ADDQ.L #0x1,D7 00025cc8 68 de |h | BVC 0x25ca8 00025cca 58 4f |XO | ADDQ.L #0x4,A7 00025ccc 58 4f |XO | ADDQ.L #0x4,A7 00025cce 60 06 |` | BRA 0x25cd6 00025cd0 52 86 |R | ADDQ.L #0x1,D6 00025cd2 68 b6 |h | BVC 0x25c8a 00025cd4 58 4f |XO | ADDQ.L #0x4,A7 00025cd6 4c df 03 e3 |L | MOVEM.L (A7)+,D0+D1+D5+D6+D7+A0+A1 00025cda 4e 5e |N^ | UNLK A6 00025cdc 4e 75 |Nu | RTS 00025cde ; -------------------------------------------------------------------------------------- 00025cde ; OMSI PASCAL Function 00025cde ; <LVAR 0x010 4(r)> 00025cde ; <LVAR 0x00c 4(r)> 00025cde ; <LVAR 0x008 4(r)> 00025cde ; -------------------------------------------------------------------------------------- 00025cde 4e 56 ff ce |NV | LINK.W A6,#0xffce 00025ce2 bf d5 | | CMPA.L (A5),A7 00025ce4 62 06 |b | BHI 0x25cec 00025ce6 44 fc 00 02 |D | MOVE.W #0x2,CCR 00025cea 4e 76 |Nv | TRAPV 00025cec de fc 00 2a | * | ADDA.W #0x2a,A7 00025cf0 48 e7 03 80 |H | MOVEM.L A0+D7+D6,-(A7) 00025cf4 20 6e 00 10 | n | MOVEA.L (A6+0x10),A0 00025cf8 42 50 |BP | CLR.W (A0) 00025cfa 59 4f |YO | SUBQ.L #0x4,A7 00025cfc 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00025d00 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00025d04 4e ba df 42 |N B | JSR 0x23c48 00025d08 50 4f |PO | ADDQ.L #0x8,A7 00025d0a 7e 01 |~ | MOVEQ.L #0x01,D7 00025d0c be 97 | | CMP.L (A7),D7 00025d0e 6e 34 |n4 | BGT 0x25d44 00025d10 55 4f |UO | SUBQ.L #0x2,A7 00025d12 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00025d16 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00025d1a 2f 07 |/ | MOVE.L D7,-(A7) 00025d1c 4e ba fb 16 |N | JSR 0x25834 00025d20 de fc 00 0c | | ADDA.W #0xc,A7 00025d24 1c 1f | | MOVE.B (A7)+,D6 00025d26 0c 06 00 2f | / | CMPI.B #0x2f,D6 00025d2a 67 10 |g | BEQ 0x25d3c 00025d2c 2f 2e 00 10 |/. | MOVE.L (A6+0x10),-(A7) 00025d30 1f 06 | | MOVE.B D6,-(A7) 00025d32 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00025d38 5c 4f |\O | ADDQ.L #0x6,A7 00025d3a 60 04 |` | BRA 0x25d40 00025d3c 58 4f |XO | ADDQ.L #0x4,A7 00025d3e 60 06 |` | BRA 0x25d46 00025d40 52 87 |R | ADDQ.L #0x1,D7 00025d42 68 c8 |h | BVC 0x25d0c 00025d44 58 4f |XO | ADDQ.L #0x4,A7 00025d46 4c df 01 c0 |L | MOVEM.L (A7)+,D6+D7+A0 00025d4a 4e 5e |N^ | UNLK A6 00025d4c 4e 75 |Nu | RTS 00025d4e ; -------------------------------------------------------------------------------------- 00025d4e ; OMSI PASCAL Function 00025d4e ; -------------------------------------------------------------------------------------- 00025d4e 4e 56 ff c6 |NV | LINK.W A6,#0xffc6 00025d52 bf d5 | | CMPA.L (A5),A7 00025d54 62 06 |b | BHI 0x25d5c 00025d56 44 fc 00 02 |D | MOVE.W #0x2,CCR 00025d5a 4e 76 |Nv | TRAPV 00025d5c de fc 00 3a | : | ADDA.W #0x3a,A7 00025d60 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 00025d64 41 fa cf b6 |A | LEA.L 0x22d1c,A0 00025d68 70 10 |p | MOVEQ.L #0x10,D0 00025d6a 3f 20 |? | MOVE.W -(A0),-(A7) 00025d6c 51 c8 ff fc |Q | DBF D0,0x25d6a 00025d70 59 4f |YO | SUBQ.L #0x4,A7 00025d72 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00025d76 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00025d7a 3f 3c 00 22 |?< " | MOVE.W #0x22,-(A7) 00025d7e 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00025d84 50 4f |PO | ADDQ.L #0x8,A7 00025d86 4e ba d2 ae |N | JSR 0x23036 00025d8a de fc 00 26 | & | ADDA.W #0x26,A7 00025d8e 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 00025d92 4e 5e |N^ | UNLK A6 00025d94 4e 75 |Nu | RTS 00025d96 ; -------------------------------------------------------------------------------------- 00025d96 ; OMSI PASCAL Function 00025d96 ; <LVAR 0x00c 4(r)> 00025d96 ; <LVAR 0x008 4(r)> 00025d96 ; <LVAR -0x006 4(rw)> 00025d96 ; -------------------------------------------------------------------------------------- 00025d96 4e 56 ff a0 |NV | LINK.W A6,#0xffa0 00025d9a bf d5 | | CMPA.L (A5),A7 00025d9c 62 06 |b | BHI 0x25da4 00025d9e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00025da2 4e 76 |Nv | TRAPV 00025da4 de fc 00 58 | X | ADDA.W #0x58,A7 00025da8 48 e7 ff f0 |H | MOVEM.L A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00025dac 43 ee 00 0c |C | LEA.L (A6+0xc),A1 00025db0 45 f9 00 02 93 48 |E H | LEA.L 0x29348,A2 00025db6 47 fa d3 1a |G | LEA.L 0x230d2,A3 00025dba 72 30 |r0 | MOVEQ.L #0x30,D1 00025dbc 74 39 |t9 | MOVEQ.L #0x39,D2 00025dbe 76 25 |v% | MOVEQ.L #0x25,D3 00025dc0 78 2d |x- | MOVEQ.L #0x2d,D4 00025dc2 2d 52 ff fa |-R | MOVE.L (A2),(A6-0x6) 00025dc6 55 4f |UO | SUBQ.L #0x2,A7 00025dc8 4e 93 |N | JSR (A3) 00025dca 1e 1f | | MOVE.B (A7)+,D7 00025dcc be 03 | | CMP.B D3,D7 00025dce 66 08 |f | BNE 0x25dd8 00025dd0 20 51 | Q | MOVEA.L (A1),A0 00025dd2 42 90 |B | CLR.L (A0) 00025dd4 60 00 00 e2 |` | BRA 0x25eb8 00025dd8 be 04 | | CMP.B D4,D7 00025dda 66 0c |f | BNE 0x25de8 00025ddc 20 51 | Q | MOVEA.L (A1),A0 00025dde 20 bc 00 00 00 01 | | MOVE.L #0x1,(A0) 00025de4 60 00 00 d2 |` | BRA 0x25eb8 00025de8 0c 07 00 2f | / | CMPI.B #0x2f,D7 00025dec 66 0c |f | BNE 0x25dfa 00025dee 20 51 | Q | MOVEA.L (A1),A0 00025df0 20 bc 00 00 00 04 | | MOVE.L #0x4,(A0) 00025df6 60 00 00 c0 |` | BRA 0x25eb8 00025dfa 0c 07 00 3d | = | CMPI.B #0x3d,D7 00025dfe 66 0c |f | BNE 0x25e0c 00025e00 20 51 | Q | MOVEA.L (A1),A0 00025e02 20 bc 00 00 00 05 | | MOVE.L #0x5,(A0) 00025e08 60 00 00 ae |` | BRA 0x25eb8 00025e0c 0c 07 00 5c | \ | CMPI.B #0x5c,D7 00025e10 66 0c |f | BNE 0x25e1e 00025e12 20 51 | Q | MOVEA.L (A1),A0 00025e14 20 bc 00 00 00 06 | | MOVE.L #0x6,(A0) 00025e1a 60 00 00 9c |` | BRA 0x25eb8 00025e1e 4a 07 |J | TST.B D7 00025e20 66 2c |f, | BNE 0x25e4e 00025e22 41 fa cf 10 |A | LEA.L 0x22d34,A0 00025e26 70 05 |p | MOVEQ.L #0x05,D0 00025e28 2f 20 |/ | MOVE.L -(A0),-(A7) 00025e2a 51 c8 ff fc |Q | DBF D0,0x25e28 00025e2e 59 4f |YO | SUBQ.L #0x4,A7 00025e30 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00025e34 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00025e38 3f 3c 00 18 |?< | MOVE.W #0x18,-(A7) 00025e3c 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00025e42 50 4f |PO | ADDQ.L #0x8,A7 00025e44 4e ba d1 f0 |N | JSR 0x23036 00025e48 de fc 00 1c | | ADDA.W #0x1c,A7 00025e4c 60 6a |`j | BRA 0x25eb8 00025e4e be 01 | | CMP.B D1,D7 00025e50 65 2c |e, | BCS 0x25e7e 00025e52 be 02 | | CMP.B D2,D7 00025e54 62 28 |b( | BHI 0x25e7e 00025e56 20 51 | Q | MOVEA.L (A1),A0 00025e58 20 bc 00 00 00 02 | | MOVE.L #0x2,(A0) 00025e5e 55 4f |UO | SUBQ.L #0x2,A7 00025e60 4e ba d2 32 |N 2 | JSR 0x23094 00025e64 1e 1f | | MOVE.B (A7)+,D7 00025e66 be 01 | | CMP.B D1,D7 00025e68 65 0a |e | BCS 0x25e74 00025e6a be 02 | | CMP.B D2,D7 00025e6c 62 06 |b | BHI 0x25e74 00025e6e 55 4f |UO | SUBQ.L #0x2,A7 00025e70 4e 93 |N | JSR (A3) 00025e72 1c 1f | | MOVE.B (A7)+,D6 00025e74 be 01 | | CMP.B D1,D7 00025e76 65 04 |e | BCS 0x25e7c 00025e78 be 02 | | CMP.B D2,D7 00025e7a 63 e2 |c | BLS 0x25e5e 00025e7c 60 3a |`: | BRA 0x25eb8 00025e7e 20 51 | Q | MOVEA.L (A1),A0 00025e80 20 bc 00 00 00 03 | | MOVE.L #0x3,(A0) 00025e86 7a 00 |z | MOVEQ.L #0x00,D5 00025e88 55 4f |UO | SUBQ.L #0x2,A7 00025e8a 4e ba d2 08 |N | JSR 0x23094 00025e8e 1e 1f | | MOVE.B (A7)+,D7 00025e90 be 03 | | CMP.B D3,D7 00025e92 67 16 |g | BEQ 0x25eaa 00025e94 be 04 | | CMP.B D4,D7 00025e96 67 12 |g | BEQ 0x25eaa 00025e98 0c 07 00 2f | / | CMPI.B #0x2f,D7 00025e9c 67 0c |g | BEQ 0x25eaa 00025e9e 0c 07 00 3d | = | CMPI.B #0x3d,D7 00025ea2 67 06 |g | BEQ 0x25eaa 00025ea4 0c 07 00 5c | \ | CMPI.B #0x5c,D7 00025ea8 66 04 |f | BNE 0x25eae 00025eaa 7a 01 |z | MOVEQ.L #0x01,D5 00025eac 60 06 |` | BRA 0x25eb4 00025eae 55 4f |UO | SUBQ.L #0x2,A7 00025eb0 4e 93 |N | JSR (A3) 00025eb2 1c 1f | | MOVE.B (A7)+,D6 00025eb4 4a 05 |J | TST.B D5 00025eb6 67 d0 |g | BEQ 0x25e88 00025eb8 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00025ebc 20 ae ff fa | | MOVE.L (A6-0x6),(A0) 00025ec0 21 52 00 04 |!R | MOVE.L (A2),(A0+0x4) 00025ec4 53 a8 00 04 |S | SUBQ.L #0x1,(A0+0x4) 00025ec8 4c df 0f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3 00025ecc 4e 5e |N^ | UNLK A6 00025ece 4e 75 |Nu | RTS 00025ed0 ; -------------------------------------------------------------------------------------- 00025ed0 ; OMSI PASCAL Function 00025ed0 ; <LVAR 0x00c 4(r)> 00025ed0 ; <LVAR 0x008 4(r)> 00025ed0 ; -------------------------------------------------------------------------------------- 00025ed0 4e 56 ff c0 |NV | LINK.W A6,#0xffc0 00025ed4 bf d5 | | CMPA.L (A5),A7 00025ed6 62 06 |b | BHI 0x25ede 00025ed8 44 fc 00 02 |D | MOVE.W #0x2,CCR 00025edc 4e 76 |Nv | TRAPV 00025ede de fc 00 34 | 4 | ADDA.W #0x34,A7 00025ee2 48 e7 c7 e0 |H | MOVEM.L A2+A1+A0+D7+D6+D5+D1+D0,-(A7) 00025ee6 45 ee 00 0c |E | LEA.L (A6+0xc),A2 00025eea 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00025eee 2f 08 |/ | MOVE.L A0,-(A7) 00025ef0 2c 39 00 02 93 48 |,9 H | MOVE.L 0x29348,D6 00025ef6 9c 92 | | SUB.L (A2),D6 00025ef8 2a 12 |* | MOVE.L (A2),D5 00025efa da 86 | | ADD.L D6,D5 00025efc 30 10 |0 | MOVE.W (A0),D0 00025efe 48 c0 |H | EXTW.L D0 00025f00 b0 86 | | CMP.L D6,D0 00025f02 67 0c |g | BEQ 0x25f10 00025f04 2f 05 |/ | MOVE.L D5,-(A7) 00025f06 2f 06 |/ | MOVE.L D6,-(A7) 00025f08 91 97 | | SUB.L D0,(A7) 00025f0a 4e ba d6 7e |N ~ | JSR 0x2358a 00025f0e 50 4f |PO | ADDQ.L #0x8,A7 00025f10 2f 00 |/ | MOVE.L D0,-(A7) 00025f12 7e 01 |~ | MOVEQ.L #0x01,D7 00025f14 be 97 | | CMP.L (A7),D7 00025f16 6e 34 |n4 | BGT 0x25f4c 00025f18 20 12 | | MOVE.L (A2),D0 00025f1a d0 87 | | ADD.L D7,D0 00025f1c 53 80 |S | SUBQ.L #0x1,D0 00025f1e 53 80 |S | SUBQ.L #0x1,D0 00025f20 0c 80 00 00 1f ff | | CMPI.L #0x00001fff,D0 00025f26 63 02 |c | BLS 0x25f2a 00025f28 4e 4f |NO | TRAP #15 00025f2a 41 f9 00 02 73 40 |A s@ | LEA.L 0x27340,A0 00025f30 22 07 |" | MOVE.L D7,D1 00025f32 53 81 |S | SUBQ.L #0x1,D1 00025f34 0c 81 00 00 00 7d | } | CMPI.L #0x0000007d,D1 00025f3a 63 02 |c | BLS 0x25f3e 00025f3c 4e 4f |NO | TRAP #15 00025f3e 22 6f 00 04 |"o | MOVEA.L (A7+0x4),A1 00025f42 11 b1 18 02 08 08 | | MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x8) 00025f48 52 87 |R | ADDQ.L #0x1,D7 00025f4a 68 c8 |h | BVC 0x25f14 00025f4c 50 4f |PO | ADDQ.L #0x8,A7 00025f4e 4c df 07 e3 |L | MOVEM.L (A7)+,D0+D1+D5+D6+D7+A0+A1+A2 00025f52 4e 5e |N^ | UNLK A6 00025f54 4e 75 |Nu | RTS 00025f56 ; -------------------------------------------------------------------------------------- 00025f56 ; OMSI PASCAL Function 00025f56 ; <LVAR 0x00c 4(r)> 00025f56 ; <LVAR 0x008 4(r)> 00025f56 ; <LVAR -0x008 @ 4(r)> 00025f56 ; <LVAR -0x00c @ 4(r)> 00025f56 ; <LVAR -0x010 4(r)> 00025f56 ; <LVAR -0x014 @ 4(r)> 00025f56 ; <LVAR -0x018 4(rw)> 00025f56 ; <LVAR -0x01c 4(rw)> 00025f56 ; <LVAR -0x020 4(rw)> 00025f56 ; <LVAR -0x024 4(rw)> 00025f56 ; <LVAR -0x028 4(rw)> 00025f56 ; <LVAR -0x034 4(rw)> 00025f56 ; -------------------------------------------------------------------------------------- 00025f56 4e 56 ff 70 |NV p | LINK.W A6,#0xff70 00025f5a bf d5 | | CMPA.L (A5),A7 00025f5c 62 06 |b | BHI 0x25f64 00025f5e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00025f62 4e 76 |Nv | TRAPV 00025f64 de fc 00 5c | \ | ADDA.W #0x5c,A7 00025f68 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00025f6c 43 ee ff f8 |C | LEA.L (A6-0x8),A1 00025f70 45 ee ff ec |E | LEA.L (A6-0x14),A2 00025f74 47 ee ff dc |G | LEA.L (A6-0x24),A3 00025f78 49 ee ff e0 |I | LEA.L (A6-0x20),A4 00025f7c 74 14 |t | MOVEQ.L #0x14,D2 00025f7e 2d 79 00 02 93 48 ff d8 |-y H | MOVE.L 0x29348,(A6-0x28) 00025f86 48 51 |HQ | PEA.L (A1) 00025f88 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00025f8e 58 4f |XO | ADDQ.L #0x4,A7 00025f90 48 6e ff f4 |Hn | PEA.L (A6-0xc) 00025f94 48 52 |HR | PEA.L (A2) 00025f96 4e ba fd fe |N | JSR 0x25d96 00025f9a 50 4f |PO | ADDQ.L #0x8,A7 00025f9c 42 ae ff cc |B | CLR.L (A6-0x34) 00025fa0 7e 00 |~ | MOVEQ.L #0x00,D7 00025fa2 20 2e ff cc | . | MOVE.L (A6-0x34),D0 00025fa6 b0 82 | | CMP.L D2,D0 00025fa8 63 02 |c | BLS 0x25fac 00025faa 4e 4e |NN | TRAP #14 00025fac d0 40 | @ | ADD.W D0,D0 00025fae 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 00025fb6 00 2a | * | .CONST 0x2a ; [0x0] -> 0x25fe0 00025fb8 00 34 | 4 | .CONST 0x34 ; [0x1] -> 0x25fea 00025fba 00 48 | H | .CONST 0x48 ; [0x2] -> 0x25ffe 00025fbc 00 64 | d | .CONST 0x64 ; [0x3] -> 0x2601a 00025fbe 00 68 | h | .CONST 0x68 ; [0x4] -> 0x2601e 00025fc0 00 76 | v | .CONST 0x76 ; [0x5] -> 0x2602c 00025fc2 00 8a | | .CONST 0x8a ; [0x6] -> 0x26040 00025fc4 00 90 | | .CONST 0x90 ; [0x7] -> 0x26046 00025fc6 00 92 | | .CONST 0x92 ; [0x8] -> 0x26048 00025fc8 00 a8 | | .CONST 0xa8 ; [0x9] -> 0x2605e 00025fca 00 b6 | | .CONST 0xb6 ; [0xa] -> 0x2606c 00025fcc 00 ce | | .CONST 0xce ; [0xb] -> 0x26084 00025fce 00 e2 | | .CONST 0xe2 ; [0xc] -> 0x26098 00025fd0 00 f6 | | .CONST 0xf6 ; [0xd] -> 0x260ac 00025fd2 01 0c | | .CONST 0x10c ; [0xe] -> 0x260c2 00025fd4 01 0e | | .CONST 0x10e ; [0xf] -> 0x260c4 00025fd6 01 28 | ( | .CONST 0x128 ; [0x10] -> 0x260de 00025fd8 01 3e | > | .CONST 0x13e ; [0x11] -> 0x260f4 00025fda 01 4c | L | .CONST 0x14c ; [0x12] -> 0x26102 00025fdc 01 4e | N | .CONST 0x14e ; [0x13] -> 0x26104 00025fde 01 50 | P | .CONST 0x150 ; [0x14] -> 0x26106 00025fe0 switch@0x25fae[0x0]: 00025fe0 7c 00 || | MOVEQ.L #0x00,D6 00025fe2 2a 2e 00 08 |*. | MOVE.L (A6+0x8),D5 00025fe6 60 00 01 48 |` H | BRA 0x26130 00025fea switch@0x25fae[0x1]: 00025fea 59 4f |YO | SUBQ.L #0x4,A7 00025fec 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7) 00025ff0 2f 12 |/ | MOVE.L (A2),-(A7) 00025ff2 4e ba f8 80 |N | JSR 0x25874 00025ff6 50 4f |PO | ADDQ.L #0x8,A7 00025ff8 2c 1f |, | MOVE.L (A7)+,D6 00025ffa 60 00 01 34 |` 4 | BRA 0x26130 00025ffe switch@0x25fae[0x2]: 00025ffe 2f 2e ff d8 |/. | MOVE.L (A6-0x28),-(A7) 00026002 2f 06 |/ | MOVE.L D6,-(A7) 00026004 2f 06 |/ | MOVE.L D6,-(A7) 00026006 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 0002600a 4e ba f8 e4 |N | JSR 0x258f0 0002600e de fc 00 10 | | ADDA.W #0x10,A7 00026012 60 00 01 78 |` x | BRA 0x2618c 00026016 60 00 |` | .XXX[0x2] 00026018 01 18 | | .XXX[0x2] 0002601a switch@0x25fae[0x3]: 0002601a 60 00 01 14 |` | BRA 0x26130 0002601e switch@0x25fae[0x4]: 0002601e 2f 2e ff d8 |/. | MOVE.L (A6-0x28),-(A7) 00026022 2f 06 |/ | MOVE.L D6,-(A7) 00026024 2f 05 |/ | MOVE.L D5,-(A7) 00026026 60 de |` | BRA 0x26006 00026028 60 00 01 06 |` | .XXX[0x4] 0002602c switch@0x25fae[0x5]: 0002602c 59 4f |YO | SUBQ.L #0x4,A7 0002602e 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7) 00026032 2f 12 |/ | MOVE.L (A2),-(A7) 00026034 4e ba f8 3e |N > | JSR 0x25874 00026038 50 4f |PO | ADDQ.L #0x8,A7 0002603a 2a 1f |* | MOVE.L (A7)+,D5 0002603c 60 00 00 f2 |` | BRA 0x26130 00026040 switch@0x25fae[0x6]: 00026040 7c 01 || | MOVEQ.L #0x01,D6 00026042 60 00 00 ec |` | BRA 0x26130 00026046 switch@0x25fae[0x7]: 00026046 60 e4 |` | BRA switch@0x25fae[0x5] 00026048 switch@0x25fae[0x8]: 00026048 51 4f |QO | SUBQ.L #0x8,A7 0002604a 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 0002604e 2f 06 |/ | MOVE.L D6,-(A7) 00026050 4e ba dc 2e |N . | JSR 0x23c80 00026054 50 4f |PO | ADDQ.L #0x8,A7 00026056 26 9f |& | MOVE.L (A7)+,(A3) 00026058 28 9f |( | MOVE.L (A7)+,(A4) 0002605a 60 00 00 d4 |` | BRA 0x26130 0002605e switch@0x25fae[0x9]: 0002605e 2d 52 ff e4 |-R | MOVE.L (A2),(A6-0x1c) 00026062 2d 6e ff f0 ff e8 |-n | MOVE.L (A6-0x10),(A6-0x18) 00026068 60 00 00 c6 |` | BRA 0x26130 0002606c switch@0x25fae[0xa]: 0002606c 2f 11 |/ | MOVE.L (A1),-(A7) 0002606e 2f 14 |/ | MOVE.L (A4),-(A7) 00026070 2f 13 |/ | MOVE.L (A3),-(A7) 00026072 2f 2e ff e8 |/. | MOVE.L (A6-0x18),-(A7) 00026076 2f 2e ff e4 |/. | MOVE.L (A6-0x1c),-(A7) 0002607a 4e ba fb 26 |N & | JSR 0x25ba2 0002607e de c2 | | ADDA.W D2,A7 00026080 60 00 00 ae |` | BRA 0x26130 00026084 switch@0x25fae[0xb]: 00026084 2f 11 |/ | MOVE.L (A1),-(A7) 00026086 2f 14 |/ | MOVE.L (A4),-(A7) 00026088 2f 13 |/ | MOVE.L (A3),-(A7) 0002608a 2f 2e ff e8 |/. | MOVE.L (A6-0x18),-(A7) 0002608e 2f 2e ff e4 |/. | MOVE.L (A6-0x1c),-(A7) 00026092 4e ba fa 7a |N z | JSR 0x25b0e 00026096 60 e6 |` | BRA 0x2607e 00026098 switch@0x25fae[0xc]: 00026098 2f 11 |/ | MOVE.L (A1),-(A7) 0002609a 2f 14 |/ | MOVE.L (A4),-(A7) 0002609c 2f 13 |/ | MOVE.L (A3),-(A7) 0002609e 4e ba fb b8 |N | JSR 0x25c58 000260a2 de fc 00 0c | | ADDA.W #0xc,A7 000260a6 7e 01 |~ | MOVEQ.L #0x01,D7 000260a8 60 00 00 86 |` | BRA 0x26130 000260ac switch@0x25fae[0xd]: 000260ac 2f 11 |/ | MOVE.L (A1),-(A7) 000260ae 2f 14 |/ | MOVE.L (A4),-(A7) 000260b0 2f 13 |/ | MOVE.L (A3),-(A7) 000260b2 2f 2e ff e8 |/. | MOVE.L (A6-0x18),-(A7) 000260b6 2f 2e ff e4 |/. | MOVE.L (A6-0x1c),-(A7) 000260ba 4e ba fa 52 |N R | JSR 0x25b0e 000260be de c2 | | ADDA.W D2,A7 000260c0 60 e4 |` | BRA 0x260a6 000260c2 switch@0x25fae[0xe]: 000260c2 60 e2 |` | BRA 0x260a6 000260c4 switch@0x25fae[0xf]: 000260c4 2f 11 |/ | MOVE.L (A1),-(A7) 000260c6 51 4f |QO | SUBQ.L #0x8,A7 000260c8 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 000260cc 2f 06 |/ | MOVE.L D6,-(A7) 000260ce 4e ba db b0 |N | JSR 0x23c80 000260d2 50 4f |PO | ADDQ.L #0x8,A7 000260d4 4e ba fb 82 |N | JSR 0x25c58 000260d8 de fc 00 0c | | ADDA.W #0xc,A7 000260dc 60 52 |`R | BRA 0x26130 000260de switch@0x25fae[0x10]: 000260de 2f 11 |/ | MOVE.L (A1),-(A7) 000260e0 51 4f |QO | SUBQ.L #0x8,A7 000260e2 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 000260e6 2f 06 |/ | MOVE.L D6,-(A7) 000260e8 4e ba db 96 |N | JSR 0x23c80 000260ec 50 4f |PO | ADDQ.L #0x8,A7 000260ee 4e ba fb ee |N | JSR 0x25cde 000260f2 60 ae |` | BRA 0x260a2 000260f4 switch@0x25fae[0x11]: 000260f4 2f 11 |/ | MOVE.L (A1),-(A7) 000260f6 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7) 000260fa 2f 12 |/ | MOVE.L (A2),-(A7) 000260fc 4e ba fc 50 |N P | JSR 0x25d4e 00026100 60 d6 |` | BRA 0x260d8 00026102 switch@0x25fae[0x12]: 00026102 60 2c |`, | BRA 0x26130 00026104 switch@0x25fae[0x13]: 00026104 60 a0 |` | BRA 0x260a6 00026106 switch@0x25fae[0x14]: 00026106 41 fa cc 44 |A D | LEA.L 0x22d4c,A0 0002610a 70 05 |p | MOVEQ.L #0x05,D0 0002610c 2f 20 |/ | MOVE.L -(A0),-(A7) 0002610e 51 c8 ff fc |Q | DBF D0,0x2610c 00026112 59 4f |YO | SUBQ.L #0x4,A7 00026114 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00026118 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 0002611c 3f 3c 00 18 |?< | MOVE.W #0x18,-(A7) 00026120 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00026126 50 4f |PO | ADDQ.L #0x8,A7 00026128 4e ba cf 0c |N | JSR 0x23036 0002612c de fc 00 1c | | ADDA.W #0x1c,A7 00026130 4a 07 |J | TST.B D7 00026132 66 46 |fF | BNE 0x2617a 00026134 48 6e ff f4 |Hn | PEA.L (A6-0xc) 00026138 48 52 |HR | PEA.L (A2) 0002613a 4e ba fc 5a |N Z | JSR 0x25d96 0002613e 50 4f |PO | ADDQ.L #0x8,A7 00026140 20 2e ff cc | . | MOVE.L (A6-0x34),D0 00026144 0c 80 00 00 00 13 | | CMPI.L #0x00000013,D0 0002614a 63 02 |c | BLS 0x2614e 0002614c 4e 4f |NO | TRAP #15 0002614e 28 00 |( | MOVE.L D0,D4 00026150 76 07 |v | MOVEQ.L #0x07,D3 00026152 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4 00026158 41 fa ce 0e |A | LEA.L 0x22f68,A0 0002615c 20 2e ff f4 | . | MOVE.L (A6-0xc),D0 00026160 0c 80 00 00 00 06 | | CMPI.L #0x00000006,D0 00026166 63 02 |c | BLS 0x2616a 00026168 4e 4f |NO | TRAP #15 0002616a 41 f0 48 00 |A H | LEA.L (A0+D4.L),A0 0002616e 12 30 08 00 | 0 | MOVE.B (A0+D0.L),D1 00026172 48 81 |H | EXTB.W D1 00026174 48 c1 |H | EXTW.L D1 00026176 2d 41 ff cc |-A | MOVE.L D1,(A6-0x34) 0002617a 4a 07 |J | TST.B D7 0002617c 67 00 fe 24 |g $ | BEQ 0x25fa2 00026180 2f 2e ff d8 |/. | MOVE.L (A6-0x28),-(A7) 00026184 2f 11 |/ | MOVE.L (A1),-(A7) 00026186 4e ba fd 48 |N H | JSR 0x25ed0 0002618a 50 4f |PO | ADDQ.L #0x8,A7 0002618c 48 51 |HQ | PEA.L (A1) 0002618e 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00026194 58 4f |XO | ADDQ.L #0x4,A7 00026196 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 0002619a 4e 5e |N^ | UNLK A6 0002619c 4e 75 |Nu | RTS 0002619e ; -------------------------------------------------------------------------------------- 0002619e ; OMSI PASCAL Function 0002619e ; <LVAR 0x014 4(rw)> 0002619e ; <LVAR 0x010 4(r)> 0002619e ; <LVAR 0x00c 4(r)> 0002619e ; <LVAR 0x008 4(r)> 0002619e ; <LVAR -0x008 4(rw)> 0002619e ; <LVAR -0x00c 4(rw)> 0002619e ; <LVAR -0x018 4(w)> 0002619e ; -------------------------------------------------------------------------------------- 0002619e 4e 56 ff 96 |NV | LINK.W A6,#0xff96 000261a2 bf d5 | | CMPA.L (A5),A7 000261a4 62 06 |b | BHI 0x261ac 000261a6 44 fc 00 02 |D | MOVE.W #0x2,CCR 000261aa 4e 76 |Nv | TRAPV 000261ac de fc 00 52 | R | ADDA.W #0x52,A7 000261b0 48 e7 e7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7) 000261b4 43 ee ff f8 |C | LEA.L (A6-0x8),A1 000261b8 45 ee 00 10 |E | LEA.L (A6+0x10),A2 000261bc 47 ee 00 0c |G | LEA.L (A6+0xc),A3 000261c0 49 ee ff f4 |I | LEA.L (A6-0xc),A4 000261c4 74 0c |t | MOVEQ.L #0x0c,D2 000261c6 42 ae 00 14 |B | CLR.L (A6+0x14) 000261ca 59 4f |YO | SUBQ.L #0x4,A7 000261cc 2f 12 |/ | MOVE.L (A2),-(A7) 000261ce 2f 13 |/ | MOVE.L (A3),-(A7) 000261d0 4e ba da 76 |N v | JSR 0x23c48 000261d4 50 4f |PO | ADDQ.L #0x8,A7 000261d6 28 9f |( | MOVE.L (A7)+,(A4) 000261d8 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 000261dc 30 10 |0 | MOVE.W (A0),D0 000261de 48 c0 |H | EXTW.L D0 000261e0 52 80 |R | ADDQ.L #0x1,D0 000261e2 22 80 |" | MOVE.L D0,(A1) 000261e4 44 80 |D | NEG.L D0 000261e6 d0 94 | | ADD.L (A4),D0 000261e8 52 80 |R | ADDQ.L #0x1,D0 000261ea 2f 00 |/ | MOVE.L D0,-(A7) 000261ec 70 01 |p | MOVEQ.L #0x01,D0 000261ee b0 97 | | CMP.L (A7),D0 000261f0 6e 00 00 9a |n | BGT 0x2628c 000261f4 2d 40 ff e8 |-@ | MOVE.L D0,(A6-0x18) 000261f8 2f 00 |/ | MOVE.L D0,-(A7) 000261fa 7c 00 || | MOVEQ.L #0x00,D6 000261fc 2f 11 |/ | MOVE.L (A1),-(A7) 000261fe 7a 01 |z | MOVEQ.L #0x01,D5 00026200 ba 97 | | CMP.L (A7),D5 00026202 6e 48 |nH | BGT 0x2624c 00026204 0c 85 00 00 00 01 | | CMPI.L #0x00000001,D5 0002620a 66 04 |f | BNE 0x26210 0002620c 7e 2f |~/ | MOVEQ.L #0x2f,D7 0002620e 60 18 |` | BRA 0x26228 00026210 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00026214 20 05 | | MOVE.L D5,D0 00026216 53 80 |S | SUBQ.L #0x1,D0 00026218 53 80 |S | SUBQ.L #0x1,D0 0002621a 0c 80 00 00 00 7d | } | CMPI.L #0x0000007d,D0 00026220 63 02 |c | BLS 0x26224 00026222 4e 4f |NO | TRAP #15 00026224 1e 30 08 02 | 0 | MOVE.B (A0+D0.L+#0x2),D7 00026228 55 4f |UO | SUBQ.L #0x2,A7 0002622a 2f 12 |/ | MOVE.L (A2),-(A7) 0002622c 2f 13 |/ | MOVE.L (A3),-(A7) 0002622e 20 2f 00 0e | / | MOVE.L (A7+0xe),D0 00026232 d0 85 | | ADD.L D5,D0 00026234 53 80 |S | SUBQ.L #0x1,D0 00026236 2f 00 |/ | MOVE.L D0,-(A7) 00026238 4e ba f5 fa |N | JSR 0x25834 0002623c de c2 | | ADDA.W D2,A7 0002623e be 1f | | CMP.B (A7)+,D7 00026240 67 04 |g | BEQ 0x26246 00026242 58 4f |XO | ADDQ.L #0x4,A7 00026244 60 08 |` | BRA 0x2624e 00026246 2c 05 |, | MOVE.L D5,D6 00026248 52 85 |R | ADDQ.L #0x1,D5 0002624a 68 b4 |h | BVC 0x26200 0002624c 58 4f |XO | ADDQ.L #0x4,A7 0002624e bc 91 | | CMP.L (A1),D6 00026250 66 32 |f2 | BNE 0x26284 00026252 20 17 | | MOVE.L (A7),D0 00026254 22 00 |" | MOVE.L D0,D1 00026256 d2 91 | | ADD.L (A1),D1 00026258 b2 94 | | CMP.L (A4),D1 0002625a 6c 26 |l& | BGE 0x26282 0002625c 55 4f |UO | SUBQ.L #0x2,A7 0002625e 2f 12 |/ | MOVE.L (A2),-(A7) 00026260 2f 13 |/ | MOVE.L (A3),-(A7) 00026262 2f 01 |/ | MOVE.L D1,-(A7) 00026264 4e ba f5 ce |N | JSR 0x25834 00026268 de c2 | | ADDA.W D2,A7 0002626a 1e 1f | | MOVE.B (A7)+,D7 0002626c 0c 07 00 2f | / | CMPI.B #0x2f,D7 00026270 67 06 |g | BEQ 0x26278 00026272 0c 07 00 3d | = | CMPI.B #0x3d,D7 00026276 66 08 |f | BNE 0x26280 00026278 2d 40 00 14 |-@ | MOVE.L D0,(A6+0x14) 0002627c 50 4f |PO | ADDQ.L #0x8,A7 0002627e 60 0e |` | BRA 0x2628e 00026280 60 02 |` | BRA 0x26284 00026282 60 f4 |` | BRA 0x26278 00026284 20 1f | | MOVE.L (A7)+,D0 00026286 52 80 |R | ADDQ.L #0x1,D0 00026288 68 00 ff 64 |h d | BVC 0x261ee 0002628c 58 4f |XO | ADDQ.L #0x4,A7 0002628e 4c df 1f e7 |L | MOVEM.L (A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3+A4 00026292 4e 5e |N^ | UNLK A6 00026294 4e 75 |Nu | RTS 00026296 ; -------------------------------------------------------------------------------------- 00026296 ; OMSI PASCAL Function 00026296 ; <LVAR 0x018 4(r)> 00026296 ; <LVAR 0x014 4(r)> 00026296 ; <LVAR 0x010 4(r)> 00026296 ; <LVAR 0x00c 4(r)> 00026296 ; <LVAR 0x008 4(r)> 00026296 ; <LVAR -0x008 4(rw)> 00026296 ; <LVAR -0x014 4(rw)> 00026296 ; <LVAR -0x018 4(rw)> 00026296 ; <LVAR -0x01c 4(rw)> 00026296 ; -------------------------------------------------------------------------------------- 00026296 4e 56 ff 8e |NV | LINK.W A6,#0xff8e 0002629a bf d5 | | CMPA.L (A5),A7 0002629c 62 06 |b | BHI 0x262a4 0002629e 44 fc 00 02 |D | MOVE.W #0x2,CCR 000262a2 4e 76 |Nv | TRAPV 000262a4 de fc 00 56 | V | ADDA.W #0x56,A7 000262a8 48 e7 e7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7) 000262ac 45 ee ff e4 |E | LEA.L (A6-0x1c),A2 000262b0 47 ee ff e8 |G | LEA.L (A6-0x18),A3 000262b4 49 ee ff f8 |I | LEA.L (A6-0x8),A4 000262b8 72 0c |r | MOVEQ.L #0x0c,D1 000262ba 74 01 |t | MOVEQ.L #0x01,D2 000262bc 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 000262c0 42 10 |B | CLR.B (A0) 000262c2 22 6e 00 0c |"n | MOVEA.L (A6+0xc),A1 000262c6 22 82 |" | MOVE.L D2,(A1) 000262c8 51 4f |QO | SUBQ.L #0x8,A7 000262ca 2f 2e 00 18 |/. | MOVE.L (A6+0x18),-(A7) 000262ce 2f 2e 00 14 |/. | MOVE.L (A6+0x14),-(A7) 000262d2 4e ba d9 ac |N | JSR 0x23c80 000262d6 50 4f |PO | ADDQ.L #0x8,A7 000262d8 24 9f |$ | MOVE.L (A7)+,(A2) 000262da 26 9f |& | MOVE.L (A7)+,(A3) 000262dc 4a 92 |J | TST.L (A2) 000262de 67 00 00 96 |g | BEQ 0x26376 000262e2 59 4f |YO | SUBQ.L #0x4,A7 000262e4 2f 13 |/ | MOVE.L (A3),-(A7) 000262e6 2f 12 |/ | MOVE.L (A2),-(A7) 000262e8 2f 2e 00 10 |/. | MOVE.L (A6+0x10),-(A7) 000262ec 4e ba fe b0 |N | JSR 0x2619e 000262f0 de c1 | | ADDA.W D1,A7 000262f2 2d 5f ff ec |-_ | MOVE.L (A7)+,(A6-0x14) 000262f6 67 7e |g~ | BEQ 0x26376 000262f8 10 82 | | MOVE.B D2,(A0) 000262fa 48 51 |HQ | PEA.L (A1) 000262fc 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00026302 2f 13 |/ | MOVE.L (A3),-(A7) 00026304 2f 12 |/ | MOVE.L (A2),-(A7) 00026306 4e ba d9 40 |N @ | JSR 0x23c48 0002630a 50 4f |PO | ADDQ.L #0x8,A7 0002630c 28 9f |( | MOVE.L (A7)+,(A4) 0002630e 20 2e ff ec | . | MOVE.L (A6-0x14),D0 00026312 52 80 |R | ADDQ.L #0x1,D0 00026314 2f 14 |/ | MOVE.L (A4),-(A7) 00026316 2a 00 |* | MOVE.L D0,D5 00026318 ba 97 | | CMP.L (A7),D5 0002631a 6e 58 |nX | BGT 0x26374 0002631c 55 4f |UO | SUBQ.L #0x2,A7 0002631e 2f 13 |/ | MOVE.L (A3),-(A7) 00026320 2f 12 |/ | MOVE.L (A2),-(A7) 00026322 2f 05 |/ | MOVE.L D5,-(A7) 00026324 4e ba f5 0e |N | JSR 0x25834 00026328 de c1 | | ADDA.W D1,A7 0002632a 10 1f | | MOVE.B (A7)+,D0 0002632c 0c 00 00 3d | = | CMPI.B #0x3d,D0 00026330 66 3e |f> | BNE 0x26370 00026332 20 05 | | MOVE.L D5,D0 00026334 52 80 |R | ADDQ.L #0x1,D0 00026336 2f 14 |/ | MOVE.L (A4),-(A7) 00026338 2e 00 |. | MOVE.L D0,D7 0002633a be 97 | | CMP.L (A7),D7 0002633c 6e 2e |n. | BGT 0x2636c 0002633e 55 4f |UO | SUBQ.L #0x2,A7 00026340 2f 13 |/ | MOVE.L (A3),-(A7) 00026342 2f 12 |/ | MOVE.L (A2),-(A7) 00026344 2f 07 |/ | MOVE.L D7,-(A7) 00026346 4e ba f4 ec |N | JSR 0x25834 0002634a de c1 | | ADDA.W D1,A7 0002634c 1c 1f | | MOVE.B (A7)+,D6 0002634e 0c 06 00 2f | / | CMPI.B #0x2f,D6 00026352 66 04 |f | BNE 0x26358 00026354 50 4f |PO | ADDQ.L #0x8,A7 00026356 60 1e |` | BRA 0x26376 00026358 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 0002635c 2f 10 |/ | MOVE.L (A0),-(A7) 0002635e 1f 06 | | MOVE.B D6,-(A7) 00026360 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00026366 5c 4f |\O | ADDQ.L #0x6,A7 00026368 52 87 |R | ADDQ.L #0x1,D7 0002636a 68 ce |h | BVC 0x2633a 0002636c 50 4f |PO | ADDQ.L #0x8,A7 0002636e 60 06 |` | BRA 0x26376 00026370 52 85 |R | ADDQ.L #0x1,D5 00026372 68 a4 |h | BVC 0x26318 00026374 58 4f |XO | ADDQ.L #0x4,A7 00026376 4c df 1f e7 |L | MOVEM.L (A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3+A4 0002637a 4e 5e |N^ | UNLK A6 0002637c 4e 75 |Nu | RTS 0002637e ; -------------------------------------------------------------------------------------- 0002637e ; OMSI PASCAL Function 0002637e ; <LVAR 0x00c @ 4(r)> 0002637e ; <LVAR 0x008 4(r)> 0002637e ; <LVAR -0x010 @ 1(r)> 0002637e ; -------------------------------------------------------------------------------------- 0002637e 4e 56 ff c0 |NV | LINK.W A6,#0xffc0 00026382 bf d5 | | CMPA.L (A5),A7 00026384 62 06 |b | BHI 0x2638c 00026386 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002638a 4e 76 |Nv | TRAPV 0002638c de fc 00 30 | 0 | ADDA.W #0x30,A7 00026390 48 e7 87 f0 |H | MOVEM.L A3+A2+A1+A0+D7+D6+D5+D0,-(A7) 00026394 43 f9 00 02 93 48 |C H | LEA.L 0x29348,A1 0002639a 45 ee 00 08 |E | LEA.L (A6+0x8),A2 0002639e 47 ee 00 0c |G | LEA.L (A6+0xc),A3 000263a2 2f 13 |/ | MOVE.L (A3),-(A7) 000263a4 2f 12 |/ | MOVE.L (A2),-(A7) 000263a6 48 6e ff f0 |Hn | PEA.L (A6-0x10) 000263aa 4e b9 00 02 28 66 |N (f | JSR 0x22866 000263b0 de fc 00 0c | | ADDA.W #0xc,A7 000263b4 4a 2e ff f0 |J. | TST.B (A6-0x10) 000263b8 66 50 |fP | BNE 0x2640a 000263ba 2e 11 |. | MOVE.L (A1),D7 000263bc 59 4f |YO | SUBQ.L #0x4,A7 000263be 2f 12 |/ | MOVE.L (A2),-(A7) 000263c0 4e ba d0 80 |N | JSR 0x23442 000263c4 58 4f |XO | ADDQ.L #0x4,A7 000263c6 2c 1f |, | MOVE.L (A7)+,D6 000263c8 2f 13 |/ | MOVE.L (A3),-(A7) 000263ca 2f 12 |/ | MOVE.L (A2),-(A7) 000263cc 4e ba f3 2a |N * | JSR 0x256f8 000263d0 50 4f |PO | ADDQ.L #0x8,A7 000263d2 2a 11 |* | MOVE.L (A1),D5 000263d4 20 07 | | MOVE.L D7,D0 000263d6 53 80 |S | SUBQ.L #0x1,D0 000263d8 0c 80 00 00 1f ff | | CMPI.L #0x00001fff,D0 000263de 63 02 |c | BLS 0x263e2 000263e0 4e 4f |NO | TRAP #15 000263e2 41 f9 00 02 73 40 |A s@ | LEA.L 0x27340,A0 000263e8 10 30 08 08 | 0 | MOVE.B (A0+D0.L+#0x8),D0 000263ec 0c 00 00 25 | % | CMPI.B #0x25,D0 000263f0 66 0c |f | BNE 0x263fe 000263f2 22 87 |" | MOVE.L D7,(A1) 000263f4 2f 12 |/ | MOVE.L (A2),-(A7) 000263f6 2f 06 |/ | MOVE.L D6,-(A7) 000263f8 4e ba fb 5c |N \ | JSR 0x25f56 000263fc 50 4f |PO | ADDQ.L #0x8,A7 000263fe 52 87 |R | ADDQ.L #0x1,D7 00026400 be b9 00 02 93 4c | L | CMP.L 0x2934c,D7 00026406 6f cc |o | BLE 0x263d4 00026408 22 85 |" | MOVE.L D5,(A1) 0002640a 48 53 |HS | PEA.L (A3) 0002640c 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00026412 58 4f |XO | ADDQ.L #0x4,A7 00026414 4c df 0f e1 |L | MOVEM.L (A7)+,D0+D5+D6+D7+A0+A1+A2+A3 00026418 4e 5e |N^ | UNLK A6 0002641a 4e 75 |Nu | RTS 0002641c ; -------------------------------------------------------------------------------------- 0002641c ; OMSI PASCAL Function 0002641c ; <LVAR -0x006 @ 4(r)> 0002641c ; <LVAR -0x00a @ 4(rw)> 0002641c ; <LVAR -0x00b 1(w)> 0002641c ; <LVAR -0x00c @ 1(r)> 0002641c ; -------------------------------------------------------------------------------------- 0002641c 4e 56 ff 94 |NV | LINK.W A6,#0xff94 00026420 bf d5 | | CMPA.L (A5),A7 00026422 62 06 |b | BHI 0x2642a 00026424 44 fc 00 02 |D | MOVE.W #0x2,CCR 00026428 4e 76 |Nv | TRAPV 0002642a de fc 00 54 | T | ADDA.W #0x54,A7 0002642e 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00026432 45 ee ff fa |E | LEA.L (A6-0x6),A2 00026436 47 f9 00 02 93 48 |G H | LEA.L 0x29348,A3 0002643c 49 ee ff f6 |I | LEA.L (A6-0xa),A4 00026440 2e 13 |. | MOVE.L (A3),D7 00026442 48 52 |HR | PEA.L (A2) 00026444 48 6e ff f4 |Hn | PEA.L (A6-0xc) 00026448 4e ba cf 4c |N L | JSR 0x23396 0002644c 50 4f |PO | ADDQ.L #0x8,A7 0002644e 2c 13 |, | MOVE.L (A3),D6 00026450 59 4f |YO | SUBQ.L #0x4,A7 00026452 2f 12 |/ | MOVE.L (A2),-(A7) 00026454 4e ba cf ec |N | JSR 0x23442 00026458 58 4f |XO | ADDQ.L #0x4,A7 0002645a 20 1f | | MOVE.L (A7)+,D0 0002645c 0c 80 ff ff ff ff | | CMPI.L #0xffffffff,D0 00026462 67 00 02 ac |g | BEQ 0x26710 00026466 59 4f |YO | SUBQ.L #0x4,A7 00026468 2f 12 |/ | MOVE.L (A2),-(A7) 0002646a 48 78 00 00 |Hx | PEA.L 0x0 0002646e 4e ba d8 ee |N | JSR 0x23d5e 00026472 50 4f |PO | ADDQ.L #0x8,A7 00026474 28 97 |( | MOVE.L (A7),(A4) 00026476 54 4f |TO | ADDQ.L #0x2,A7 00026478 2f 14 |/ | MOVE.L (A4),-(A7) 0002647a 4e ba f1 c4 |N | JSR 0x25640 0002647e 58 4f |XO | ADDQ.L #0x4,A7 00026480 10 1f | | MOVE.B (A7)+,D0 00026482 48 80 |H | EXTB.W D0 00026484 41 bc 00 2b |A + | CHK.W #0x2b,D0 00026488 1d 40 ff f5 | @ | MOVE.B D0,(A6-0xb) 0002648c 4a 00 |J | TST.B D0 0002648e 66 0e |f | BNE 0x2649e 00026490 2f 14 |/ | MOVE.L (A4),-(A7) 00026492 2f 12 |/ | MOVE.L (A2),-(A7) 00026494 4e ba fe e8 |N | JSR 0x2637e 00026498 50 4f |PO | ADDQ.L #0x8,A7 0002649a 60 00 02 6c |` l | BRA 0x26708 0002649e 48 54 |HT | PEA.L (A4) 000264a0 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000264a6 58 4f |XO | ADDQ.L #0x4,A7 000264a8 12 00 | | MOVE.B D0,D1 000264aa 48 81 |H | EXTB.W D1 000264ac 43 bc 00 2b |C + | CHK.W #0x2b,D1 000264b0 41 fa ca 86 |A | LEA.L 0x22f38,A0 000264b4 30 01 |0 | MOVE.W D1,D0 000264b6 48 c0 |H | EXTW.L D0 000264b8 24 00 |$ | MOVE.L D0,D2 000264ba e2 9a | | ROR.L #0x1,D2 000264bc d0 c2 | | ADDA.W D2,A0 000264be 48 42 |HB | SWAP.W D2 000264c0 e7 5a | Z | ROL.W #0x3,D2 000264c2 42 83 |B | CLR.L D3 000264c4 16 10 | | MOVE.B (A0),D3 000264c6 e5 2b | + | LSL.B D2,D3 000264c8 e8 0b | | LSR.B #0x4,D3 000264ca 2a 03 |* | MOVE.L D3,D5 000264cc 0c 85 00 00 00 0f | | CMPI.L #0x0000000f,D5 000264d2 67 2c |g, | BEQ 0x26500 000264d4 28 00 |( | MOVE.L D0,D4 000264d6 76 0a |v | MOVEQ.L #0x0a,D3 000264d8 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4 000264de 41 fa c8 8a |A | LEA.L COMMAND_TABLE_22d6a,A0 000264e2 9e fc 00 0a | | SUBA.W #0xa,A7 000264e6 22 4f |"O | MOVEA.L A7,A1 000264e8 41 f0 40 00 |A @ | LEA.L (A0+D4.W),A0 000264ec 70 09 |p | MOVEQ.L #0x09,D0 000264ee 12 d8 | | MOVE.B (A0)+,(A1)+ 000264f0 51 c8 ff fc |Q | DBF D0,0x264ee 000264f4 2f 12 |/ | MOVE.L (A2),-(A7) 000264f6 2f 05 |/ | MOVE.L D5,-(A7) 000264f8 4e ba cf 7e |N ~ | JSR 0x23478 000264fc de fc 00 12 | | ADDA.W #0x12,A7 00026500 53 41 |SA | SUBQ.W #0x1,D1 00026502 0c 41 00 2a | A * | CMPI.W #0x002a,D1 00026506 63 02 |c | BLS 0x2650a 00026508 4e 4e |NN | TRAP #14 0002650a d2 41 | A | ADD.W D1,D1 0002650c 32 3b 10 06 4e fb 10 02 |2; N | SWITCH D1.W 00026514 00 56 | V | .CONST 0x56 ; [0x0] -> 0x2656a 00026516 00 62 | b | .CONST 0x62 ; [0x1] -> 0x26576 00026518 00 74 | t | .CONST 0x74 ; [0x2] -> 0x26588 0002651a 00 82 | | .CONST 0x82 ; [0x3] -> 0x26596 0002651c 01 e6 | | .CONST 0x1e6 ; [0x4] -> 0x266fa 0002651e 00 8a | | .CONST 0x8a ; [0x5] -> 0x2659e 00026520 00 8e | | .CONST 0x8e ; [0x6] -> 0x265a2 00026522 00 96 | | .CONST 0x96 ; [0x7] -> 0x265aa 00026524 00 9e | | .CONST 0x9e ; [0x8] -> 0x265b2 00026526 00 a6 | | .CONST 0xa6 ; [0x9] -> 0x265ba 00026528 00 ae | | .CONST 0xae ; [0xa] -> 0x265c2 0002652a 00 b6 | | .CONST 0xb6 ; [0xb] -> 0x265ca 0002652c 00 be | | .CONST 0xbe ; [0xc] -> 0x265d2 0002652e 00 c6 | | .CONST 0xc6 ; [0xd] -> 0x265da 00026530 00 ce | | .CONST 0xce ; [0xe] -> 0x265e2 00026532 00 d6 | | .CONST 0xd6 ; [0xf] -> 0x265ea 00026534 00 e0 | | .CONST 0xe0 ; [0x10] -> 0x265f4 00026536 00 ea | | .CONST 0xea ; [0x11] -> 0x265fe 00026538 00 f4 | | .CONST 0xf4 ; [0x12] -> 0x26608 0002653a 00 fe | | .CONST 0xfe ; [0x13] -> 0x26612 0002653c 01 08 | | .CONST 0x108 ; [0x14] -> 0x2661c 0002653e 01 12 | | .CONST 0x112 ; [0x15] -> 0x26626 00026540 01 1c | | .CONST 0x11c ; [0x16] -> 0x26630 00026542 01 26 | & | .CONST 0x126 ; [0x17] -> 0x2663a 00026544 01 30 | 0 | .CONST 0x130 ; [0x18] -> 0x26644 00026546 01 3a | : | .CONST 0x13a ; [0x19] -> 0x2664e 00026548 01 44 | D | .CONST 0x144 ; [0x1a] -> 0x26658 0002654a 01 4e | N | .CONST 0x14e ; [0x1b] -> 0x26662 0002654c 01 58 | X | .CONST 0x158 ; [0x1c] -> 0x2666c 0002654e 01 62 | b | .CONST 0x162 ; [0x1d] -> 0x26676 00026550 01 6c | l | .CONST 0x16c ; [0x1e] -> 0x26680 00026552 01 76 | v | .CONST 0x176 ; [0x1f] -> 0x2668a 00026554 01 80 | | .CONST 0x180 ; [0x20] -> 0x26694 00026556 01 8a | | .CONST 0x18a ; [0x21] -> 0x2669e 00026558 01 94 | | .CONST 0x194 ; [0x22] -> 0x266a8 0002655a 01 9e | | .CONST 0x19e ; [0x23] -> 0x266b2 0002655c 01 a8 | | .CONST 0x1a8 ; [0x24] -> 0x266bc 0002655e 01 b2 | | .CONST 0x1b2 ; [0x25] -> 0x266c6 00026560 01 b8 | | .CONST 0x1b8 ; [0x26] -> 0x266cc 00026562 01 c2 | | .CONST 0x1c2 ; [0x27] -> 0x266d6 00026564 01 cc | | .CONST 0x1cc ; [0x28] -> 0x266e0 00026566 01 d6 | | .CONST 0x1d6 ; [0x29] -> 0x266ea 00026568 01 dc | | .CONST 0x1dc ; [0x2a] -> 0x266f0 0002656a switch@0x2650c[0x0]: 0002656a 2f 12 |/ | MOVE.L (A2),-(A7) 0002656c 4e ba d9 78 |N x | JSR 0x23ee6 00026570 58 4f |XO | ADDQ.L #0x4,A7 00026572 60 00 01 94 |` | BRA 0x26708 00026576 switch@0x2650c[0x1]: 00026576 42 27 |B' | CLR.B -(A7) 00026578 48 78 00 01 |Hx | PEA.L 0x1 0002657c 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00026582 5c 4f |\O | ADDQ.L #0x6,A7 00026584 60 00 01 82 |` | BRA 0x26708 00026588 switch@0x2650c[0x2]: 00026588 59 4f |YO | SUBQ.L #0x4,A7 0002658a 4e b9 00 01 02 ac |N | JSR FSCALL_102ac 00026590 4e ba d9 2a |N * | JSR 0x23ebc 00026594 60 da |` | BRA 0x26570 00026596 switch@0x2650c[0x3]: 00026596 2f 12 |/ | MOVE.L (A2),-(A7) 00026598 4e ba db 26 |N & | JSR 0x240c0 0002659c 60 d2 |` | BRA 0x26570 0002659e switch@0x2650c[0x5]: 0002659e 60 00 01 68 |` h | BRA 0x26708 000265a2 switch@0x2650c[0x6]: 000265a2 2f 12 |/ | MOVE.L (A2),-(A7) 000265a4 4e ba de 40 |N @ | JSR 0x243e6 000265a8 60 c6 |` | BRA 0x26570 000265aa switch@0x2650c[0x7]: 000265aa 2f 12 |/ | MOVE.L (A2),-(A7) 000265ac 4e ba df a4 |N | JSR 0x24552 000265b0 60 be |` | BRA 0x26570 000265b2 switch@0x2650c[0x8]: 000265b2 2f 12 |/ | MOVE.L (A2),-(A7) 000265b4 4e ba e0 8a |N | JSR 0x24640 000265b8 60 b6 |` | BRA 0x26570 000265ba switch@0x2650c[0x9]: 000265ba 2f 12 |/ | MOVE.L (A2),-(A7) 000265bc 4e ba e4 76 |N v | JSR 0x24a34 000265c0 60 ae |` | BRA 0x26570 000265c2 switch@0x2650c[0xa]: 000265c2 2f 12 |/ | MOVE.L (A2),-(A7) 000265c4 4e ba e4 e6 |N | JSR 0x24aac 000265c8 60 a6 |` | BRA 0x26570 000265ca switch@0x2650c[0xb]: 000265ca 2f 12 |/ | MOVE.L (A2),-(A7) 000265cc 4e ba e5 56 |N V | JSR 0x24b24 000265d0 60 9e |` | BRA 0x26570 000265d2 switch@0x2650c[0xc]: 000265d2 2f 12 |/ | MOVE.L (A2),-(A7) 000265d4 4e ba e5 7a |N z | JSR 0x24b50 000265d8 60 96 |` | BRA 0x26570 000265da switch@0x2650c[0xd]: 000265da 2f 12 |/ | MOVE.L (A2),-(A7) 000265dc 4e ba e6 72 |N r | JSR 0x24c50 000265e0 60 8e |` | BRA 0x26570 000265e2 switch@0x2650c[0xe]: 000265e2 2f 12 |/ | MOVE.L (A2),-(A7) 000265e4 4e ba e7 50 |N P | JSR 0x24d36 000265e8 60 86 |` | BRA 0x26570 000265ea switch@0x2650c[0xf]: 000265ea 2f 12 |/ | MOVE.L (A2),-(A7) 000265ec 4e ba e7 74 |N t | JSR 0x24d62 000265f0 60 00 ff 7e |` ~ | BRA 0x26570 000265f4 switch@0x2650c[0x10]: 000265f4 2f 12 |/ | MOVE.L (A2),-(A7) 000265f6 4e ba e7 b6 |N | JSR 0x24dae 000265fa 60 00 ff 74 |` t | BRA 0x26570 000265fe switch@0x2650c[0x11]: 000265fe 2f 12 |/ | MOVE.L (A2),-(A7) 00026600 4e ba e7 f8 |N | JSR 0x24dfa 00026604 60 00 ff 6a |` j | BRA 0x26570 00026608 switch@0x2650c[0x12]: 00026608 2f 12 |/ | MOVE.L (A2),-(A7) 0002660a 4e ba e8 3a |N : | JSR 0x24e46 0002660e 60 00 ff 60 |` ` | BRA 0x26570 00026612 switch@0x2650c[0x13]: 00026612 2f 12 |/ | MOVE.L (A2),-(A7) 00026614 4e ba e8 7c |N | | JSR 0x24e92 00026618 60 00 ff 56 |` V | BRA 0x26570 0002661c switch@0x2650c[0x14]: 0002661c 2f 12 |/ | MOVE.L (A2),-(A7) 0002661e 4e ba e8 be |N | JSR 0x24ede 00026622 60 00 ff 4c |` L | BRA 0x26570 00026626 switch@0x2650c[0x15]: 00026626 2f 12 |/ | MOVE.L (A2),-(A7) 00026628 4e ba e9 00 |N | JSR 0x24f2a 0002662c 60 00 ff 42 |` B | BRA 0x26570 00026630 switch@0x2650c[0x16]: 00026630 2f 12 |/ | MOVE.L (A2),-(A7) 00026632 4e ba e9 40 |N @ | JSR 0x24f74 00026636 60 00 ff 38 |` 8 | BRA 0x26570 0002663a switch@0x2650c[0x17]: 0002663a 2f 12 |/ | MOVE.L (A2),-(A7) 0002663c 4e ba e9 80 |N | JSR 0x24fbe 00026640 60 00 ff 2e |` . | BRA 0x26570 00026644 switch@0x2650c[0x18]: 00026644 2f 12 |/ | MOVE.L (A2),-(A7) 00026646 4e ba e9 c0 |N | JSR 0x25008 0002664a 60 00 ff 24 |` $ | BRA 0x26570 0002664e switch@0x2650c[0x19]: 0002664e 2f 12 |/ | MOVE.L (A2),-(A7) 00026650 4e ba ea 00 |N | JSR 0x25052 00026654 60 00 ff 1a |` | BRA 0x26570 00026658 switch@0x2650c[0x1a]: 00026658 2f 12 |/ | MOVE.L (A2),-(A7) 0002665a 4e ba ea 40 |N @ | JSR 0x2509c 0002665e 60 00 ff 10 |` | BRA 0x26570 00026662 switch@0x2650c[0x1b]: 00026662 2f 12 |/ | MOVE.L (A2),-(A7) 00026664 4e ba ea 80 |N | JSR 0x250e6 00026668 60 00 ff 06 |` | BRA 0x26570 0002666c switch@0x2650c[0x1c]: 0002666c 2f 12 |/ | MOVE.L (A2),-(A7) 0002666e 4e ba ea c0 |N | JSR 0x25130 00026672 60 00 fe fc |` | BRA 0x26570 00026676 switch@0x2650c[0x1d]: 00026676 2f 12 |/ | MOVE.L (A2),-(A7) 00026678 4e ba eb 00 |N | JSR 0x2517a 0002667c 60 00 fe f2 |` | BRA 0x26570 00026680 switch@0x2650c[0x1e]: 00026680 2f 12 |/ | MOVE.L (A2),-(A7) 00026682 4e ba eb 3a |N : | JSR 0x251be 00026686 60 00 fe e8 |` | BRA 0x26570 0002668a switch@0x2650c[0x1f]: 0002668a 2f 12 |/ | MOVE.L (A2),-(A7) 0002668c 4e ba eb 76 |N v | JSR 0x25204 00026690 60 00 fe de |` | BRA 0x26570 00026694 switch@0x2650c[0x20]: 00026694 2f 12 |/ | MOVE.L (A2),-(A7) 00026696 4e ba eb a2 |N | JSR 0x2523a 0002669a 60 00 fe d4 |` | BRA 0x26570 0002669e switch@0x2650c[0x21]: 0002669e 2f 12 |/ | MOVE.L (A2),-(A7) 000266a0 4e ba ec 28 |N ( | JSR 0x252ca 000266a4 60 00 fe ca |` | BRA 0x26570 000266a8 switch@0x2650c[0x22]: 000266a8 2f 12 |/ | MOVE.L (A2),-(A7) 000266aa 4e ba ec 90 |N | JSR 0x2533c 000266ae 60 00 fe c0 |` | BRA 0x26570 000266b2 switch@0x2650c[0x23]: 000266b2 2f 12 |/ | MOVE.L (A2),-(A7) 000266b4 4e ba df ec |N | JSR 0x246a2 000266b8 60 00 fe b6 |` | BRA 0x26570 000266bc switch@0x2650c[0x24]: 000266bc 2f 12 |/ | MOVE.L (A2),-(A7) 000266be 4e ba e0 4c |N L | JSR 0x2470c 000266c2 60 00 fe ac |` | BRA 0x26570 000266c6 switch@0x2650c[0x25]: 000266c6 4e ba e0 16 |N | JSR 0x246de 000266ca 60 3c |`< | BRA 0x26708 000266cc switch@0x2650c[0x26]: 000266cc 2f 12 |/ | MOVE.L (A2),-(A7) 000266ce 4e ba ec de |N | JSR 0x253ae 000266d2 60 00 fe 9c |` | BRA 0x26570 000266d6 switch@0x2650c[0x27]: 000266d6 2f 12 |/ | MOVE.L (A2),-(A7) 000266d8 4e ba ed 56 |N V | JSR 0x25430 000266dc 60 00 fe 92 |` | BRA 0x26570 000266e0 switch@0x2650c[0x28]: 000266e0 2f 12 |/ | MOVE.L (A2),-(A7) 000266e2 4e ba ed cc |N | JSR 0x254b0 000266e6 60 00 fe 88 |` | BRA 0x26570 000266ea switch@0x2650c[0x29]: 000266ea 4e ba ee 88 |N | JSR 0x25574 000266ee 60 18 |` | BRA 0x26708 000266f0 switch@0x2650c[0x2a]: 000266f0 2f 12 |/ | MOVE.L (A2),-(A7) 000266f2 4e ba ee a0 |N | JSR 0x25594 000266f6 60 00 fe 78 |` x | BRA 0x26570 000266fa switch@0x2650c[0x4]: 000266fa 2e 6d 00 08 |.m | MOVEA.L (A5+0x8),A7 000266fe 3c 7c 00 00 |<| | MOVEA.W #0x0,A6 00026702 4e f9 00 02 69 12 |N i | JMP 0x26912 00026708 2f 12 |/ | MOVE.L (A2),-(A7) 0002670a 4e ba c8 e8 |N | JSR 0x22ff4 0002670e 58 4f |XO | ADDQ.L #0x4,A7 00026710 2f 06 |/ | MOVE.L D6,-(A7) 00026712 2f 06 |/ | MOVE.L D6,-(A7) 00026714 9f 97 | | SUB.L D7,(A7) 00026716 4e ba ce 72 |N r | JSR 0x2358a 0002671a 50 4f |PO | ADDQ.L #0x8,A7 0002671c 26 87 |& | MOVE.L D7,(A3) 0002671e 4a 2e ff f4 |J. | TST.B (A6-0xc) 00026722 67 00 fd 1c |g | BEQ 0x26440 00026726 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 0002672a 4e 5e |N^ | UNLK A6 0002672c 4e 75 |Nu | RTS 0002672e ; -------------------------------------------------------------------------------------- 0002672e ; OMSI PASCAL Function 0002672e ; -------------------------------------------------------------------------------------- 0002672e START: 0002672e 4f fa 00 08 |O | LEA.L MAIN,A7 00026732 4e f9 00 01 02 80 |N | JMP ?start_program 00026738 MAIN: 00026738 23 fc 00 00 00 01 00 02 |# | MOVE.L #0x1,0x29372 00026740 93 72 | r | 00026742 59 4f |YO | SUBQ.L #0x4,A7 00026744 4e b9 00 01 03 c4 |N | JSR GetArgv() : String 0002674a 23 df 00 02 93 76 |# v | MOVE.L (A7)+,0x29376 00026750 48 79 00 02 93 50 |Hy P | PEA.L 0x29350 00026756 4e b9 00 02 29 44 |N )D | JSR 0x22944 0002675c 58 4f |XO | ADDQ.L #0x4,A7 0002675e 20 79 00 02 93 76 | y v | MOVEA.L 0x29376,A0 00026764 4a 50 |JP | TST.W (A0) 00026766 6f 68 |oh | BLE 0x267d0 00026768 51 4f |QO | SUBQ.L #0x8,A7 0002676a 20 4f | O | MOVEA.L A7,A0 0002676c 43 fa c5 de |C | LEA.L 0x22d4c,A1 00026770 70 06 |p | MOVEQ.L #0x06,D0 00026772 10 d9 | | MOVE.B (A1)+,(A0)+ 00026774 51 c8 ff fc |Q | DBF D0,0x26772 00026778 51 4f |QO | SUBQ.L #0x8,A7 0002677a 20 4f | O | MOVEA.L A7,A0 0002677c 43 fa c5 d6 |C | LEA.L 0x22d54,A1 00026780 70 06 |p | MOVEQ.L #0x06,D0 00026782 10 d9 | | MOVE.B (A1)+,(A0)+ 00026784 51 c8 ff fc |Q | DBF D0,0x26782 00026788 51 4f |QO | SUBQ.L #0x8,A7 0002678a 48 6f 00 10 |Ho | PEA.L (A7+0x10) 0002678e 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00026792 3f 3c 00 07 |?< | MOVE.W #0x7,-(A7) 00026796 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002679c 58 4f |XO | ADDQ.L #0x4,A7 0002679e 2e b9 00 02 93 76 |. v | MOVE.L 0x29376,(A7) 000267a4 59 4f |YO | SUBQ.L #0x4,A7 000267a6 48 6f 00 10 |Ho | PEA.L (A7+0x10) 000267aa 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000267ae 3f 3c 00 07 |?< | MOVE.W #0x7,-(A7) 000267b2 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000267b8 50 4f |PO | ADDQ.L #0x8,A7 000267ba 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 000267c0 de fc 00 0c | | ADDA.W #0xc,A7 000267c4 23 df 00 02 93 76 |# v | MOVE.L (A7)+,0x29376 000267ca de fc 00 10 | | ADDA.W #0x10,A7 000267ce 60 3a |`: | BRA 0x2680a 000267d0 48 79 00 02 93 76 |Hy v | PEA.L 0x29376 000267d6 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000267dc 59 4f |YO | SUBQ.L #0x4,A7 000267de 20 4f | O | MOVEA.L A7,A0 000267e0 43 fa c5 7a |C z | LEA.L 0x22d5c,A1 000267e4 70 06 |p | MOVEQ.L #0x06,D0 000267e6 10 d9 | | MOVE.B (A1)+,(A0)+ 000267e8 51 c8 ff fc |Q | DBF D0,0x267e6 000267ec 59 4f |YO | SUBQ.L #0x4,A7 000267ee 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000267f2 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000267f6 3f 3c 00 07 |?< | MOVE.W #0x7,-(A7) 000267fa 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00026800 50 4f |PO | ADDQ.L #0x8,A7 00026802 23 df 00 02 93 76 |# v | MOVE.L (A7)+,0x29376 00026808 50 4f |PO | ADDQ.L #0x8,A7 0002680a 13 fc 00 01 00 02 93 80 | | MOVE.B #0x01,0x29380 00026812 4a 39 00 02 93 80 |J9 | TST.B 0x29380 00026818 67 0a |g | BEQ 0x26824 0002681a 42 39 00 02 93 80 |B9 | CLR.B 0x29380 00026820 60 00 00 b0 |` | BRA 0x268d2 00026824 41 f9 00 02 93 5a |A Z | LEA.L 0x2935a,A0 0002682a 70 04 |p | MOVEQ.L #0x04,D0 0002682c 3f 20 |? | MOVE.W -(A0),-(A7) 0002682e 51 c8 ff fc |Q | DBF D0,0x2682c 00026832 3f 3a c5 30 |?: 0 | MOVE.W 0x22d64,-(A7) 00026836 9e fc 00 0c | | SUBA.W #0xc,A7 0002683a 48 6f 00 0e |Ho | PEA.L (A7+0xe) 0002683e 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00026842 3f 3c 00 0a |?< | MOVE.W #0xa,-(A7) 00026846 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002684c 58 4f |XO | ADDQ.L #0x4,A7 0002684e 48 6f 00 10 |Ho | PEA.L (A7+0x10) 00026852 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00026856 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7) 0002685a 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00026860 50 4f |PO | ADDQ.L #0x8,A7 00026862 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00026868 50 4f |PO | ADDQ.L #0x8,A7 0002686a 4e b9 00 01 03 e4 |N | JSR AskConsoleString(prompt : String) : String 00026870 58 4f |XO | ADDQ.L #0x4,A7 00026872 23 df 00 02 93 7c |# | | MOVE.L (A7)+,0x2937c 00026878 50 4f |PO | ADDQ.L #0x8,A7 0002687a 2e b9 00 02 93 7c |. | | MOVE.L 0x2937c,(A7) 00026880 4e ba ca 0c |N | JSR 0x2328e 00026884 54 4f |TO | ADDQ.L #0x2,A7 00026886 3e ba c4 de |> | MOVE.W 0x22d66,(A7) 0002688a 3f 3a c4 dc |?: | MOVE.W 0x22d68,-(A7) 0002688e 51 4f |QO | SUBQ.L #0x8,A7 00026890 48 6f 00 0a |Ho | PEA.L (A7+0xa) 00026894 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00026898 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7) 0002689c 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000268a2 58 4f |XO | ADDQ.L #0x4,A7 000268a4 2e b9 00 02 93 7c |. | | MOVE.L 0x2937c,(A7) 000268aa 59 4f |YO | SUBQ.L #0x4,A7 000268ac 48 6f 00 10 |Ho | PEA.L (A7+0x10) 000268b0 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000268b4 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7) 000268b8 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000268be 50 4f |PO | ADDQ.L #0x8,A7 000268c0 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 000268c6 de fc 00 0c | | ADDA.W #0xc,A7 000268ca 23 df 00 02 93 76 |# v | MOVE.L (A7)+,0x29376 000268d0 58 4f |XO | ADDQ.L #0x4,A7 000268d2 42 39 00 02 93 7a |B9 z | CLR.B 0x2937a 000268d8 23 fc 00 00 00 01 00 02 |# | MOVE.L #0x1,0x29348 000268e0 93 48 | H | 000268e2 42 b9 00 02 93 4c |B L | CLR.L 0x2934c 000268e8 59 4f |YO | SUBQ.L #0x4,A7 000268ea 2f 39 00 02 93 76 |/9 v | MOVE.L 0x29376,-(A7) 000268f0 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 000268f6 58 4f |XO | ADDQ.L #0x4,A7 000268f8 4e ba d5 06 |N | JSR 0x23e00 000268fc 58 4f |XO | ADDQ.L #0x4,A7 000268fe 20 39 00 02 93 48 | 9 H | MOVE.L 0x29348,D0 00026904 b0 b9 00 02 93 4c | L | CMP.L 0x2934c,D0 0002690a 6e 06 |n | BGT 0x26912 0002690c 4e ba fb 0e |N | JSR 0x2641c 00026910 60 ec |` | BRA 0x268fe 00026912 48 79 00 02 93 76 |Hy v | PEA.L 0x29376 00026918 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 0002691e 58 4f |XO | ADDQ.L #0x4,A7 00026920 60 00 fe f0 |` | BRA 0x26812 00026924 4e b9 00 01 |N | .XXX[0x4] 00026928 02 84 | | .XXX[0x2] 0002692a 57 6f 72 64 73 20 65 72 |Words er| .TXT 'Words error :_' 00026938 ; -------------------------------------------------------------------------------------- 00026938 ; OMSI PASCAL Function 00026938 ; <LVAR 0x008 1(r)> 00026938 ; -------------------------------------------------------------------------------------- 00026938 PROG_FAIL: 00026938 4e 56 ff d2 |NV | LINK.W A6,#0xffd2 0002693c bf d5 | | CMPA.L (A5),A7 0002693e 62 06 |b | BHI 0x26946 00026940 44 fc 00 02 |D | MOVE.W #0x2,CCR 00026944 4e 76 |Nv | TRAPV 00026946 de fc 00 2c | , | ADDA.W #0x2c,A7 0002694a 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 0002694e 41 fa ff e8 |A | LEA.L PROG_FAIL,A0 00026952 70 06 |p | MOVEQ.L #0x06,D0 00026954 3f 20 |? | MOVE.W -(A0),-(A7) 00026956 51 c8 ff fc |Q | DBF D0,0x26954 0002695a 1f 3c 00 03 | < | MOVE.B #0x03,-(A7) 0002695e 51 4f |QO | SUBQ.L #0x8,A7 00026960 48 6f 00 0a |Ho | PEA.L (A7+0xa) 00026964 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00026968 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7) 0002696c 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00026972 58 4f |XO | ADDQ.L #0x4,A7 00026974 10 2e 00 08 | . | MOVE.B (A6+0x8),D0 00026978 48 80 |H | EXTB.W D0 0002697a 48 c0 |H | EXTW.L D0 0002697c 2f 00 |/ | MOVE.L D0,-(A7) 0002697e 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00026984 58 4f |XO | ADDQ.L #0x4,A7 00026986 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 0002698c 50 4f |PO | ADDQ.L #0x8,A7 0002698e 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00026994 de fc 00 14 | | ADDA.W #0x14,A7 00026998 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 0002699c 4e 5e |N^ | UNLK A6 0002699e 4e 75 |Nu | RTS 000269a0 42 6f 61 72 64 20 20 20 |Board | .TXT 'Board :_ ' 000269ae 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment :_ ' 000269bc 53 74 61 74 75 73 20 20 |Status | .TXT 'Status :_ ' 000269ca 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment error :' 000269dc 46 61 74 61 6c 20 65 78 |Fatal ex| .TXT 'Fatal experiment error. ' 000269f4 ; -------------------------------------------------------------------------------------- 000269f4 ; OMSI PASCAL Function 000269f4 ; <LVAR 0x00e 1(r)> 000269f4 ; <LVAR 0x00a 4(r)> 000269f4 ; <LVAR 0x008 1(r)> 000269f4 ; -------------------------------------------------------------------------------------- 000269f4 EXP_FAIL: 000269f4 4e 56 ff 8c |NV | LINK.W A6,#0xff8c 000269f8 bf d5 | | CMPA.L (A5),A7 000269fa 62 06 |b | BHI 0x26a02 000269fc 44 fc 00 02 |D | MOVE.W #0x2,CCR 00026a00 4e 76 |Nv | TRAPV 00026a02 de fc 00 74 | t | ADDA.W #0x74,A7 00026a06 48 e7 fc f8 |H | MOVEM.L A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7) 00026a0a 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 00026a10 49 f9 00 01 03 e0 |I | LEA.L WriteConsoleStringCrLf(str : String),A4 00026a16 72 01 |r | MOVEQ.L #0x01,D1 00026a18 74 0d |t | MOVEQ.L #0x0d,D2 00026a1a 76 1e |v | MOVEQ.L #0x1e,D3 00026a1c 78 12 |x | MOVEQ.L #0x12,D4 00026a1e 7a 0e |z | MOVEQ.L #0x0e,D5 00026a20 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 00026a26 41 fa ff b4 |A | LEA.L 0x269dc,A0 00026a2a 70 08 |p | MOVEQ.L #0x08,D0 00026a2c 3f 20 |? | MOVE.W -(A0),-(A7) 00026a2e 51 c8 ff fc |Q | DBF D0,0x26a2c 00026a32 59 4f |YO | SUBQ.L #0x4,A7 00026a34 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00026a38 3f 01 |? | MOVE.W D1,-(A7) 00026a3a 3f 04 |? | MOVE.W D4,-(A7) 00026a3c 4e 93 |N | JSR (A3) 00026a3e 50 4f |PO | ADDQ.L #0x8,A7 00026a40 4e 94 |N | JSR (A4) 00026a42 50 4f |PO | ADDQ.L #0x8,A7 00026a44 20 4f | O | MOVEA.L A7,A0 00026a46 43 fa ff 58 |C X | LEA.L 0x269a0,A1 00026a4a 70 0c |p | MOVEQ.L #0x0c,D0 00026a4c 10 d9 | | MOVE.B (A1)+,(A0)+ 00026a4e 51 c8 ff fc |Q | DBF D0,0x26a4c 00026a52 51 4f |QO | SUBQ.L #0x8,A7 00026a54 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00026a58 3f 01 |? | MOVE.W D1,-(A7) 00026a5a 3f 02 |? | MOVE.W D2,-(A7) 00026a5c 4e 93 |N | JSR (A3) 00026a5e 54 4f |TO | ADDQ.L #0x2,A7 00026a60 1e ae 00 0e | | MOVE.B (A6+0xe),(A7) 00026a64 4e b9 00 01 04 9c |N | JSR BoardName(address : B) : String 00026a6a 54 4f |TO | ADDQ.L #0x2,A7 00026a6c 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00026a72 50 4f |PO | ADDQ.L #0x8,A7 00026a74 4e 94 |N | JSR (A4) 00026a76 de c4 | | ADDA.W D4,A7 00026a78 20 6e 00 0a | n | MOVEA.L (A6+0xa),A0 00026a7c b0 c1 | | CMPA.W D1,A0 00026a7e 67 48 |gH | BEQ 0x26ac8 00026a80 9e c5 | | SUBA.W D5,A7 00026a82 22 4f |"O | MOVEA.L A7,A1 00026a84 45 fa ff 28 |E ( | LEA.L 0x269ae,A2 00026a88 70 0c |p | MOVEQ.L #0x0c,D0 00026a8a 12 da | | MOVE.B (A2)+,(A1)+ 00026a8c 51 c8 ff fc |Q | DBF D0,0x26a8a 00026a90 9e c3 | | SUBA.W D3,A7 00026a92 22 4f |"O | MOVEA.L A7,A1 00026a94 41 e8 00 fc |A | LEA.L (A0+0xfc),A0 00026a98 70 1d |p | MOVEQ.L #0x1d,D0 00026a9a 12 d8 | | MOVE.B (A0)+,(A1)+ 00026a9c 51 c8 ff fc |Q | DBF D0,0x26a9a 00026aa0 51 4f |QO | SUBQ.L #0x8,A7 00026aa2 48 6f 00 26 |Ho & | PEA.L (A7+0x26) 00026aa6 3f 01 |? | MOVE.W D1,-(A7) 00026aa8 3f 02 |? | MOVE.W D2,-(A7) 00026aaa 4e 93 |N | JSR (A3) 00026aac 58 4f |XO | ADDQ.L #0x4,A7 00026aae 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00026ab2 3f 01 |? | MOVE.W D1,-(A7) 00026ab4 3f 03 |? | MOVE.W D3,-(A7) 00026ab6 4e 93 |N | JSR (A3) 00026ab8 50 4f |PO | ADDQ.L #0x8,A7 00026aba 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00026ac0 50 4f |PO | ADDQ.L #0x8,A7 00026ac2 4e 94 |N | JSR (A4) 00026ac4 de fc 00 30 | 0 | ADDA.W #0x30,A7 00026ac8 9e c5 | | SUBA.W D5,A7 00026aca 20 4f | O | MOVEA.L A7,A0 00026acc 43 fa fe ee |C | LEA.L 0x269bc,A1 00026ad0 70 0c |p | MOVEQ.L #0x0c,D0 00026ad2 10 d9 | | MOVE.B (A1)+,(A0)+ 00026ad4 51 c8 ff fc |Q | DBF D0,0x26ad2 00026ad8 51 4f |QO | SUBQ.L #0x8,A7 00026ada 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00026ade 3f 01 |? | MOVE.W D1,-(A7) 00026ae0 3f 02 |? | MOVE.W D2,-(A7) 00026ae2 4e 93 |N | JSR (A3) 00026ae4 54 4f |TO | ADDQ.L #0x2,A7 00026ae6 1e ae 00 08 | | MOVE.B (A6+0x8),(A7) 00026aea 4e b9 00 01 04 a2 |N | JSR ExpStatus2Text(status.B, &String) 00026af0 54 4f |TO | ADDQ.L #0x2,A7 00026af2 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00026af8 50 4f |PO | ADDQ.L #0x8,A7 00026afa 4e 94 |N | JSR (A4) 00026afc 5d 4f |]O | SUBQ.L #0x6,A7 00026afe 20 4f | O | MOVEA.L A7,A0 00026b00 43 fa fe da |C | LEA.L 0x269dc,A1 00026b04 70 16 |p | MOVEQ.L #0x16,D0 00026b06 10 d9 | | MOVE.B (A1)+,(A0)+ 00026b08 51 c8 ff fc |Q | DBF D0,0x26b06 00026b0c 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 00026b10 59 4f |YO | SUBQ.L #0x4,A7 00026b12 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00026b16 3f 01 |? | MOVE.W D1,-(A7) 00026b18 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7) 00026b1c 4e 93 |N | JSR (A3) 00026b1e 50 4f |PO | ADDQ.L #0x8,A7 00026b20 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00026b26 de c3 | | ADDA.W D3,A7 00026b28 4c df 1f 3f |L ? | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4 00026b2c 4e 5e |N^ | UNLK A6 00026b2e 4e 75 |Nu | RTS