|
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: 23040 (0x5a00)
Types: M200
Notes: M200_PROGRAM
Names: »CLI.M200«, »PROGRAM_1.M200«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »CLI.M200«
└─ ⟦this⟧ »PROGRAM_1.M200«
@ 203b0
<LVAR 0x010 1(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 @ 4(r)>
<LVAR -0x006 @ 4(r)>
<LVAR -0x008 @ 1(r)>
<POP 203b0-20412 Body>
<POP 203b0-203c6 Prologue> Σ0 ↓
<POP 203c6-203ca RegCacheLoad> Σ0 ↓
<POP 203ca-203fa Naked> Σ0 ↓ →0x20404
<MI 203ca MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<Const 0x203ce 0x0.4> Δ-4 {[4, '(A6+0xc)']|[##0]}
<MI 203d2 MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0xc)']|[##0]|[4, '(A6+0x8)']}
<Pointer.fp 0x203d6 <LVAR -0x006 @ 4(r)>> Δ-4 {[4, '(A6+0xc)']|[##0]|[4, '(A6+0x8)']|[@@-6]}
<Pointer.fp 0x203d8 <LVAR -0x008 @ 1(r)>> Δ-4 {[4, '(A6+0xc)']|[##0]|[4, '(A6+0x8)']|[@@-6]|[@@-8]}
<Call 0x203dc 0x24f88> {[4, '(A6+0xc)']|[##0]|[4, '(A6+0x8)']|[@@-6]|[@@-8]}
<POP 203e2-203e6 StackAdj> Δ+20 {}
<Pointer.fp 0x203e6 <LVAR 0x008 @ 4(r)>> Δ-4 {[@@8]}
<Call 0x203ea 0x102bc> {[@@8]}
FreeString(VAR a : String)
<POP 203f0-203f2 StackAdj> Δ+4 {}
<MI 203f2 MOVEA.L (A6-0x6),A0> {}
<MI 203f4 CMPA.W #0x1,A0> {}
<MI 203f8 BEQ 0x20404> {}
<POP 203fa-20404 Naked> Σ0 ↓
<Pointer.fp 0x203fa <LVAR -0x006 @ 4(r)>> Δ-4 {[@@-6]}
<Call 0x203fc 0x102bc> {[@@-6]}
FreeString(VAR a : String)
<POP 20402-20404 StackAdj> Δ+4 {}
<POP 20404-2040a Naked> Σ0 ↓ ←0x203ca
<MI 20404 MOVE.B (A6-0x8),(A6+0x10)> {}
<POP 2040a-20412 Epilogue> Σ0
@ 20412
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 1(r)>
<LVAR -0x008 @>
<POP 20412-20470 Body>
<POP 20412-20428 Prologue> Σ0 ↓
<POP 20428-2042c RegCacheLoad> Σ0 ↓
<POP 2042c-2044c Naked> Σ0 ↓ →0x20468
<MI 2042c MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<MI 20430 CLR.B -(A7)> Δ-2 {[4, '(A6+0x8)']|[#0]}
<MI 20432 CLR.B -(A7)> Δ-2 {[4, '(A6+0x8)']|[#0]|[#0]}
<Const 0x20434 0x0.4> Δ-4 {[4, '(A6+0x8)']|[#0]|[#0]|[##0]}
<Pointer.fp 0x20438 <LVAR -0x004 @ 1(r)>> Δ-4 {[4, '(A6+0x8)']|[#0]|[#0]|[##0]|[@@-4]}
<Pointer.fp 0x2043a <LVAR -0x008 @>> Δ-4 {[4, '(A6+0x8)']|[#0]|[#0]|[##0]|[@@-4]|[@@-8]}
<Call 0x2043e 0x10380> {[4, '(A6+0x8)']|[#0]|[#0]|[##0]|[@@-4]|[@@-8]}
OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
<POP 20444-20448 StackAdj> Δ+20 {}
<MI 20448 TST.B (A6-0x4)> {}
<MI 2044a BNE 0x20468> {}
<POP 2044c-20468 Naked> Σ0 ↓
<Const 0x2044c 0x2.2> Δ-2 {[#2]}
<Const 0x20450 0x1.2> Δ-2 {[#2]|[#1]}
<Const 0x20454 0x1.4> Δ-4 {[#2]|[#1]|[##1]}
<Pointer.fp 0x20458 <LVAR -0x004 @ 1(r)>> Δ-4 {[#2]|[#1]|[##1]|[@@-4]}
<Pointer.fp 0x2045a <LVAR -0x008 @>> Δ-4 {[#2]|[#1]|[##1]|[@@-4]|[@@-8]}
<Call 0x2045e 0x1038c> {[#2]|[#1]|[##1]|[@@-4]|[@@-8]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 20464-20468 StackAdj> Δ+16 {}
<POP 20468-20470 Epilogue> Σ0 ←0x2042c
@ 20470
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 1(r)>
<LVAR -0x404 @>
<LVAR -0x410 @ 4(r)>
<LVAR -0x414 @ 4(r)>
<LVAR -0x418 @ 4(rw)>
<LVAR -0x41c @ 4(rw)>
<POP 20470-20656 Body> Δ-8
<POP 20470-20486 Prologue> Σ0 ↓
<POP 20486-2049a RegCacheLoad> Σ0 ↓
<POP 2049a-20506 Naked> Σ0 Δ-2 ↓ →0x2050a
<MI 2049a LEA.L (A6-0x404),A0> {}
<MI 2049e MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 204a0 MOVE.L (A7)+,D5> Δ+4 {}
<Blob 0x204a2 [10] @> Δ-10 {[«10""»]}
<MI 204ae MOVE.L (A6+0x8),-(A7)> Δ-4 {[«10""»]|[4, '(A6+0x8)']}
<Const 0x204b0 0x2.4> Δ-4 {[«10""»]|[4, '(A6+0x8)']|[##2]}
<Call 0x204b4 0x2216a> {[«10""»]|[4, '(A6+0x8)']|[##2]}
<POP 204ba-204be StackAdj> Δ+10 {[-8-]}
<MI 204be MOVE.L (A6+0x8),(A7)> {[-4-]|[4, '(A6+0x8)']}
<Const 0x204c0 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x204c4 0x22a50> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 204ca-204cc StackAdj> Δ+8 {[-4-]}
<MI 204cc MOVE.L (A7),(A6-0x41c)> {[-4-]}
<MI 204d0 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x204d2 0x2.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##2]}
<Call 0x204d6 0x22a50> {[-4-]|[4, '(A6+0x8)']|[##2]}
<POP 204dc-204de StackAdj> Δ+8 {[-4-]}
<MI 204de MOVE.L (A7)+,(A6-0x418)> Δ+4 {}
<Blob 0x204e2 [2] @> Δ-2 {[«2""»]}
<POP 204e6-204e8 StackAdj> Δ-2 {[«2""»]|[-2-]}
<MI 204e8 MOVE.L (A6+0x8),-(A7)> Δ-4 {[«2""»]|[-2-]|[4, '(A6+0x8)']}
<POP 204ea-204ec StackAdj> Δ-4 {[«2""»]|[-2-]|[4, '(A6+0x8)']|[-4-]}
<Lit 0x204ec 2> {[«2""»]|[-2-]|[4, '(A6+0x8)']|[$$D ]}
<Call 0x204fc 0x203b0> {[«2""»]|[-2-]|[4, '(A6+0x8)']|[$$D ]}
<POP 20500-20502 StackAdj> Δ+8 {[«2""»]|[-2-]}
<MI 20502 TST.B (A7)+> Δ+2 {[«2""»]}
<MI 20504 BEQ 0x2050a> {[«2""»]}
<POP 20506-2050a Naked> Σ-2 →0x2050c
<MI 20506 MOVEQ.L #0x01,D6> {[-2-]}
<MI 20508 BRA 0x2050c> {[-2-]}
<POP 2050a-2050c Naked> Σ-2 ↓ ←0x2049a
<MI 2050a MOVEQ.L #0x02,D6> {[-2-]}
<POP 2050c-2052a Naked> Σ-2 Δ+2 ↓ →0x2052e ←0x20506
<POP 2050c-2050e StackAdj> Δ+2 {}
<MI 2050e MOVE.L (A6-0x41c),-(A7)> Δ-4 {[4, '(A6-0x41c)']}
<MI 20512 CLR.B -(A7)> Δ-2 {[4, '(A6-0x41c)']|[#0]}
<Const 0x20514 0x1.2> Δ-2 {[4, '(A6-0x41c)']|[#0]|[#1]}
<Const 0x20516 0x0.4> Δ-4 {[4, '(A6-0x41c)']|[#0]|[#1]|[##0]}
<Pointer.fp 0x2051a <LVAR -0x004 @ 1(r)>> Δ-4 {[4, '(A6-0x41c)']|[#0]|[#1]|[##0]|[@@-4]}
<Pointer.fp 0x2051c <LVAR -0x414 @ 4(r)>> Δ-4 {[4, '(A6-0x41c)']|[#0]|[#1]|[##0]|[@@-4]|[@@-1044]}
<Call 0x2051e 0x10380> {[4, '(A6-0x41c)']|[#0]|[#1]|[##0]|[@@-4]|[@@-1044]}
OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
<POP 20524-20526 StackAdj> Δ+20 {}
<MI 20526 TST.B (A6-0x4)> {}
<MI 20528 BEQ 0x2052e> {}
<POP 2052a-2052e Naked> Σ0 →0x20636
<MI 2052a BRA 0x20636> {}
<POP 2052e-20558 Naked> Σ0 ↓ →0x2055c ←0x2050c
<MI 2052e MOVE.L (A6-0x418),-(A7)> Δ-4 {[4, '(A6-0x418)']}
<MI 20532 MOVE.B D6,D0> {[4, '(A6-0x418)']}
<MI 20534 EXTB.W D0> {[4, '(A6-0x418)']}
<POP 0x20536 LimitCheck 0x0 ≤ D0 ≤ 0x2> {[4, '(A6-0x418)']}
<MI 20538 MOVE.B D0,-(A7)> Δ-2 {[4, '(A6-0x418)']|[2, 'D0']}
<Const 0x2053a 0x1.2> Δ-2 {[4, '(A6-0x418)']|[2, 'D0']|[#1]}
<MI 2053c MOVEA.L (A6-0x414),A0> {[4, '(A6-0x418)']|[2, 'D0']|[#1]}
<MI 2053e MOVE.W (A0+0x20),D0> {[4, '(A6-0x418)']|[2, 'D0']|[#1]}
<MI 20542 EXTW.L D0> {[4, '(A6-0x418)']|[2, 'D0']|[#1]}
<MI 20544 MOVE.L D0,-(A7)> Δ-4 {[4, '(A6-0x418)']|[2, 'D0']|[#1]|[4, 'D0']}
<Pointer.fp 0x20546 <LVAR -0x004 @ 1(r)>> Δ-4 {[4, '(A6-0x418)']|[2, 'D0']|[#1]|[4, 'D0']|[@@-4]}
<Pointer.fp 0x20548 <LVAR -0x410 @ 4(r)>> Δ-4 {[4, '(A6-0x418)']|[2, 'D0']|[#1]|[4, 'D0']|[@@-4]|[@@-1040]}
<Call 0x2054c 0x10380> {[4, '(A6-0x418)']|[2, 'D0']|[#1]|[4, 'D0']|[@@-4]|[@@-1040]}
OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
<POP 20552-20554 StackAdj> Δ+20 {}
<MI 20554 TST.B (A6-0x4)> {}
<MI 20556 BEQ 0x2055c> {}
<POP 20558-2055c Naked> Σ0 →0x20622
<MI 20558 BRA 0x20622> {}
<POP 2055c-205ac Naked> Σ0 Δ-4 ↓ ←0x2052e
<MI 2055c MOVEA.L (A6-0x410),A0> {}
<MI 20560 MOVEA.L (A6-0x414),A1> {}
<MI 20562 MOVE.B (A1+0x3a),(A0+0x3a)> {}
<MI 20568 MOVE.B (A1+0x3b),(A0+0x3b)> {}
<MI 2056e MOVE.B (A1+0x3c),(A0+0x3c)> {}
<MI 20574 MOVE.B (A1+0x3d),(A0+0x3d)> {}
<MI 2057a MOVE.B (A1+0x3f),D0> {}
<MI 2057e ANDI.B #0xfd,(A0+0x3f)> {}
<MI 20584 AND.B #0x02,D0> {}
<MI 20586 OR.B D0,(A0+0x3f)> {}
<MI 2058a MOVE.B (A1+0x3f),D0> {}
<MI 2058e ANDI.B #0xfb,(A0+0x3f)> {}
<MI 20594 ANDI.B #0x04,D0> {}
<MI 20598 OR.B D0,(A0+0x3f)> {}
<MI 2059c MOVE.B #0x01,(A0+0x4c)> {}
<MI 205a0 MOVE.W (A0+0x20),D0> {}
<MI 205a4 SUBQ.W #0x1,D0> {}
<MI 205a6 EXTW.L D0> {}
<MI 205a8 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 205aa MOVEQ.L #0x00,D7> {[4, 'D0']}
<POP 205ac-205b0 Naked> Σ-4 ↓ →0x2060a ←0x20606
<MI 205ac CMP.L (A7),D7> {[-4-]}
<MI 205ae BGT 0x2060a> {[-4-]}
<POP 205b0-205d6 Naked> Σ-4 ↓ →0x205da
<MI 205b0 MOVE.L (A6-0x414),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x414)']}
<POP 0x205b2 LimitCheck 0x0 ≤ D7 ≤ 0x4000> {[-4-]|[4, '(A6-0x414)']}
<MI 205bc MOVE.W D7,-(A7)> Δ-2 {[-4-]|[4, '(A6-0x414)']|[2, 'D7']}
<MI 205be CLR.W -(A7)> Δ-2 {[-4-]|[4, '(A6-0x414)']|[2, 'D7']|[#0]}
<Const 0x205c0 0x200.2> Δ-2 {[-4-]|[4, '(A6-0x414)']|[2, 'D7']|[#0]|[#512]}
<Const 0x205c4 0x1.2> Δ-2 {[-4-]|[4, '(A6-0x414)']|[2, 'D7']|[#0]|[#512]|[#1]}
<MI 205c6 MOVE.L D5,-(A7)> Δ-4 {[-4-]|[4, '(A6-0x414)']|[2, 'D7']|[#0]|[#512]|[#1]|[4, 'D5']}
<Pointer.fp 0x205c8 <LVAR -0x004 @ 1(r)>> Δ-4 {[-4-]|[4, '(A6-0x414)']|[2, 'D7']|[#0]|[#512]|[#1]|[4, 'D5']|[@@-4]}
<Call 0x205ca 0x10384> {[-4-]|[4, '(A6-0x414)']|[2, 'D7']|[#0]|[#512]|[#1]|[4, 'D5']|[@@-4]}
ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
<POP 205d0-205d2 StackAdj> Δ+20 {[-4-]}
<MI 205d2 TST.B (A6-0x4)> {[-4-]}
<MI 205d4 BEQ 0x205da> {[-4-]}
<POP 205d6-205da Naked> Σ-4 Δ+4 →0x2060c
<POP 205d6-205d8 StackAdj> Δ+4 {}
<MI 205d8 BRA 0x2060c> {}
<POP 205da-20602 Naked> Σ-4 ↓ →0x20606 ←0x205b0
<MI 205da MOVE.L (A6-0x410),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x410)']}
<POP 0x205de LimitCheck 0x0 ≤ D7 ≤ 0x4000> {[-4-]|[4, '(A6-0x410)']}
<MI 205e8 MOVE.W D7,-(A7)> Δ-2 {[-4-]|[4, '(A6-0x410)']|[2, 'D7']}
<MI 205ea CLR.W -(A7)> Δ-2 {[-4-]|[4, '(A6-0x410)']|[2, 'D7']|[#0]}
<Const 0x205ec 0x200.2> Δ-2 {[-4-]|[4, '(A6-0x410)']|[2, 'D7']|[#0]|[#512]}
<Const 0x205f0 0x1.2> Δ-2 {[-4-]|[4, '(A6-0x410)']|[2, 'D7']|[#0]|[#512]|[#1]}
<MI 205f2 MOVE.L D5,-(A7)> Δ-4 {[-4-]|[4, '(A6-0x410)']|[2, 'D7']|[#0]|[#512]|[#1]|[4, 'D5']}
<Pointer.fp 0x205f4 <LVAR -0x004 @ 1(r)>> Δ-4 {[-4-]|[4, '(A6-0x410)']|[2, 'D7']|[#0]|[#512]|[#1]|[4, 'D5']|[@@-4]}
<Call 0x205f6 0x10388> {[-4-]|[4, '(A6-0x410)']|[2, 'D7']|[#0]|[#512]|[#1]|[4, 'D5']|[@@-4]}
WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L)
<POP 205fc-205fe StackAdj> Δ+20 {[-4-]}
<MI 205fe TST.B (A6-0x4)> {[-4-]}
<MI 20600 BEQ 0x20606> {[-4-]}
<POP 20602-20606 Naked> Σ-4 Δ+4 →0x2060c
<POP 20602-20604 StackAdj> Δ+4 {}
<MI 20604 BRA 0x2060c> {}
<POP 20606-2060a Naked> Σ-4 ↓ →0x205ac ←0x205da
<MI 20606 ADDQ.L #0x1,D7> {[-4-]}
<MI 20608 BVC 0x205ac> {[-4-]}
<POP 2060a-2060c Naked> Σ-4 Δ+4 ↓ ←0x205ac
<POP 2060a-2060c StackAdj> Δ+4 {}
<POP 2060c-20622 Naked> Σ0 ↓ ←0x205d6 ←0x20602
<MI 2060c CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x2060e 0x1.2> Δ-2 {[#0]|[#1]}
<Const 0x20610 0x1.4> Δ-4 {[#0]|[#1]|[##1]}
<Pointer.fp 0x20614 <LVAR -0x004 @ 1(r)>> Δ-4 {[#0]|[#1]|[##1]|[@@-4]}
<Pointer.fp 0x20616 <LVAR -0x410 @ 4(r)>> Δ-4 {[#0]|[#1]|[##1]|[@@-4]|[@@-1040]}
<Call 0x2061a 0x1038c> {[#0]|[#1]|[##1]|[@@-4]|[@@-1040]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 20620-20622 StackAdj> Δ+16 {}
<POP 20622-20636 Naked> Σ0 ↓ ←0x20558
<MI 20622 CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x20624 0x1.2> Δ-2 {[#0]|[#1]}
<Const 0x20626 0x1.4> Δ-4 {[#0]|[#1]|[##1]}
<Pointer.fp 0x2062a <LVAR -0x004 @ 1(r)>> Δ-4 {[#0]|[#1]|[##1]|[@@-4]}
<Pointer.fp 0x2062c <LVAR -0x414 @ 4(r)>> Δ-4 {[#0]|[#1]|[##1]|[@@-4]|[@@-1044]}
<Call 0x2062e 0x1038c> {[#0]|[#1]|[##1]|[@@-4]|[@@-1044]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 20634-20636 StackAdj> Δ+16 {}
<POP 20636-2064e Naked> Σ0 ↓ ←0x2052a
<Pointer.fp 0x20636 <LVAR -0x41c @ 4(rw)>> Δ-4 {[@@-1052]}
<Call 0x2063a 0x102bc> {[@@-1052]}
FreeString(VAR a : String)
<POP 20640-20642 StackAdj> Δ+4 {}
<Pointer.fp 0x20642 <LVAR -0x418 @ 4(rw)>> Δ-4 {[@@-1048]}
<Call 0x20646 0x102bc> {[@@-1048]}
FreeString(VAR a : String)
<POP 2064c-2064e StackAdj> Δ+4 {}
<POP 2064e-20656 Epilogue> Σ0
@ 20656
<LVAR 0x008 4(r)>
<LVAR -0x00a 1(rw)>
<LVAR -0x00c @ 1(r)>
<LVAR -0x010 @ 4(r)>
<POP 20656-207ea Body> Δ-4
<POP 20656-2066c Prologue> Σ0 ↓
<POP 2066c-2067e RegCacheLoad> Σ0 ↓
<POP 2067e-206da Naked> Σ0 Δ-4 ↓
<Blob 0x2067e [2] @> Δ-2 {[«2""»]}
<POP 20682-20684 StackAdj> Δ-2 {[«2""»]|[-2-]}
<MI 20684 MOVE.L (A6+0x8),-(A7)> Δ-4 {[«2""»]|[-2-]|[4, '(A6+0x8)']}
<POP 20686-20688 StackAdj> Δ-4 {[«2""»]|[-2-]|[4, '(A6+0x8)']|[-4-]}
<Lit 0x20688 2> {[«2""»]|[-2-]|[4, '(A6+0x8)']|[$$V ]}
<Call 0x20694 0x203b0> {[«2""»]|[-2-]|[4, '(A6+0x8)']|[$$V ]}
<POP 20698-2069a StackAdj> Δ+8 {[«2""»]|[-2-]}
<MI 2069a MOVE.B (A7)+,D0> Δ+2 {[«2""»]}
<MI 2069c EXTB.W D0> {[«2""»]}
<POP 0x2069e LimitCheck 0x0 ≤ D0 ≤ 0x1> {[«2""»]}
<POP 206a0-206a2 StackAdj> Δ+2 {}
<MI 206a2 MOVE.B D0,D5> {}
<Blob 0x206a4 [2] @> Δ-2 {[«2""»]}
<POP 206a8-206aa StackAdj> Δ-2 {[«2""»]|[-2-]}
<MI 206aa MOVE.L (A6+0x8),-(A7)> Δ-4 {[«2""»]|[-2-]|[4, '(A6+0x8)']}
<POP 206ac-206ae StackAdj> Δ-4 {[«2""»]|[-2-]|[4, '(A6+0x8)']|[-4-]}
<Lit 0x206ae 2> {[«2""»]|[-2-]|[4, '(A6+0x8)']|[$$C ]}
<Call 0x206ba 0x203b0> {[«2""»]|[-2-]|[4, '(A6+0x8)']|[$$C ]}
<POP 206be-206c0 StackAdj> Δ+8 {[«2""»]|[-2-]}
<MI 206c0 MOVE.B (A7)+,D0> Δ+2 {[«2""»]}
<MI 206c2 EXTB.W D0> {[«2""»]}
<POP 0x206c4 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[«2""»]}
<POP 206c6-206c8 StackAdj> Δ+2 {}
<MI 206c8 MOVE.B D0,(A6-0xa)> {}
<POP 206cc-206ce StackAdj> Δ-4 {[-4-]}
<MI 206ce MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x206d0 0x22134> {[-4-]|[4, '(A6+0x8)']}
<POP 206d6-206d8 StackAdj> Δ+4 {[-4-]}
<MI 206d8 MOVEQ.L #0x01,D6> {[-4-]}
<POP 206da-206e0 Naked> Σ-4 ↓ →0x207e0 ←0x207d8
<MI 206da CMP.L (A7),D6> {[-4-]}
<MI 206dc BGT 0x207e0> {[-4-]}
<POP 206e0-20700 Naked> Σ-4 ↓
<POP 206e0-206e2 StackAdj> Δ-4 {[-8-]}
<MI 206e2 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<MI 206e4 MOVE.L D6,-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']|[4, 'D6']}
<Call 0x206e6 0x22a50> {[-8-]|[4, '(A6+0x8)']|[4, 'D6']}
<POP 206ec-206ee StackAdj> Δ+8 {[-8-]}
<MI 206ee MOVEA.L (A7)+,A4> Δ+4 {[-4-]}
<Const 0x206f0 0x1.2> Δ-2 {[-4-]|[#1]}
<MI 206f2 MOVE.L A4,-(A7)> Δ-4 {[-4-]|[#1]|[4, 'A4']}
<Pointer.fp 0x206f4 <LVAR -0x010 @ 4(r)>> Δ-4 {[-4-]|[#1]|[4, 'A4']|[@@-16]}
<Call 0x206f8 0x10458> {[-4-]|[#1]|[4, 'A4']|[@@-16]}
DirFirst(MOD c : Bool; a : String; VAR b : File)
<POP 206fe-20700 StackAdj> Δ+10 {[-4-]}
<POP 20700-2070c Naked> Σ-4 Δ-4 ↓ →0x207d8 ←0x207c0
<MI 20700 MOVEA.L (A6-0x10),A0> {[-4-]}
<MI 20704 MOVE.L A0,-(A7)> Δ-4 {[-4-]|[4, 'A0']}
<MI 20706 CMPA.W #0x01,A0> {[-4-]|[4, 'A0']}
<MI 20708 BEQ 0x207d8> {[-4-]|[4, 'A0']}
<POP 2070c-20712 Naked> Σ-8 ↓ →0x20716
<MI 2070c TST.B (A6-0xa)> {[-8-]}
<MI 20710 BNE 0x20716> {[-8-]}
<POP 20712-20716 Naked> Σ-8 →0x20744
<MI 20712 MOVEQ.L #0x01,D7> {[-8-]}
<MI 20714 BRA 0x20744> {[-8-]}
<POP 20716-20744 Naked> Σ-8 ↓ ←0x2070c
<POP 20716-20718 StackAdj> Δ-30 {[-38-]}
<MI 20718 MOVEA.L A7,A1> {[-38-]}
<BlockMove 30,A0,A1> {[-38-]}
<POP 20722-20724 StackAdj> Δ-6 {[-44-]}
<Lit 0x20724> {[-40-]|[$$…]}
<Pointer.sp 0x20724 6> Δ-4
<Const 0x20728 0x1.2> Δ-2
<Const 0x2072a 0x1e.2> Δ-2
<Call 0x2072c 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 2072e-20730 StackAdj> Δ+8
<POP 2072e-20730 StackAdj> Δ-2 {[-40-]|[$$…]|[-2-]}
<MI 20730 CLR.B (A7)> {[-40-]|[$$…]|[-2-]}
<Call 0x20732 0x103f0> {[-40-]|[$$…]|[-2-]}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 20738-2073a StackAdj> Δ+6 {[-40-]}
<MI 2073a MOVE.B (A7)+,D0> Δ+2 {[-38-]}
<MI 2073c EXTB.W D0> {[-38-]}
<POP 0x2073e LimitCheck 0x0 ≤ D0 ≤ 0x1> {[-38-]}
<POP 20740-20742 StackAdj> Δ+30 {[-8-]}
<MI 20742 MOVE.B D0,D7> {[-8-]}
<POP 20744-20748 Naked> Σ-8 ↓ →0x207c0 ←0x20712
<MI 20744 TST.B D7> {[-8-]}
<MI 20746 BEQ 0x207c0> {[-8-]}
<POP 20748-2074c Naked> Σ-8 ↓ →0x2079c
<MI 20748 TST.B D5> {[-8-]}
<MI 2074a BEQ 0x2079c> {[-8-]}
<POP 2074c-2079c Naked> Σ-8 ↓
<Blob 0x2074c [12] @> Δ-12 {[-8-]|[«12""»]}
<MI 2075e MOVEA.L (A7+0xc),A0> {[-8-]|[«12""»]}
<POP 20762-20764 StackAdj> Δ-30 {[-8-]|[«12""»]|[-30-]}
<MI 20764 MOVEA.L A7,A1> {[-8-]|[«12""»]|[-30-]}
<BlockMove 30,A0,A1> {[-8-]|[«12""»]|[-30-]}
<POP 2076e-20770 StackAdj> Δ-8 {[-8-]|[«12""»]|[-38-]}
<Lit 0x20770 11> {[-8-]|[«12""»]|[-34-]|[$$Deleting ->]}
<POP 2077c-2077e StackAdj> Δ-4 {[-8-]|[«12""»]|[-34-]|[$$Deleting ->]|[-4-]}
<Lit 0x2077e> {[-8-]|[«12""»]|[-34-]|[$$Deleting ->]|[$$…]}
<Pointer.sp 0x2077e 12> Δ-4
<Const 0x20782 0x1.2> Δ-2
<Const 0x20784 0x1e.2> Δ-2
<Call 0x20786 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 20788-2078a StackAdj> Δ+8
<Call 0x2078a 0x102d0> {[-8-]|[«12""»]|[-34-]|[$$Deleting ->]|[$$…]}
StringCat2(a, b : String) : String
<POP 20790-20792 StackAdj> Δ+8 {[-8-]|[«12""»]|[-34-]}
<Call 0x20792 0x103e0> {[-8-]|[«12""»]|[-34-]}
WriteConsoleStringCrLf(str : String)
<POP 20798-2079c StackAdj> Δ+46 {[-8-]}
<POP 2079c-207be Naked> Σ-8 ↓ →0x207c0 ←0x20748
<Const 0x2079c 0x2.2> Δ-2 {[-8-]|[#2]}
<Const 0x2079e 0x1.2> Δ-2 {[-8-]|[#2]|[#1]}
<Const 0x207a0 0x1.4> Δ-4 {[-8-]|[#2]|[#1]|[##1]}
<Pointer.fp 0x207a4 <LVAR -0x00c @ 1(r)>> Δ-4 {[-8-]|[#2]|[#1]|[##1]|[@@-12]}
<Pointer.fp 0x207a8 <LVAR -0x010 @ 4(r)>> Δ-4 {[-8-]|[#2]|[#1]|[##1]|[@@-12]|[@@-16]}
<Call 0x207ac 0x1038c> {[-8-]|[#2]|[#1]|[##1]|[@@-12]|[@@-16]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 207b2-207b6 StackAdj> Δ+16 {[-8-]}
<MI 207b6 MOVEQ.L #0x00,D7> {[-8-]}
<MI 207b8 TST.B (A6-0xc)> {[-8-]}
<MI 207bc BNE 0x207c0> {[-8-]}
<POP 207be-207c0 Naked> Σ-8 ↓
<MI 207be ADDQ.B #0x1,D7> {[-8-]}
<POP 207c0-207d8 Naked> Σ-8 Δ+4 →0x20700 ←0x20744 ←0x2079c
<MI 207c0 MOVE.B D7,D0> {[-8-]}
<MI 207c2 EXTB.W D0> {[-8-]}
<POP 0x207c4 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[-8-]}
<MI 207c6 MOVE.B D0,-(A7)> Δ-2 {[-8-]|[2, 'D0']}
<Pointer.fp 0x207c8 <LVAR -0x010 @ 4(r)>> Δ-4 {[-8-]|[2, 'D0']|[@@-16]}
<Call 0x207cc 0x1045c> {[-8-]|[2, 'D0']|[@@-16]}
DirNext(MOD a : Bool; VAR b : File)
<POP 207d2-207d4 StackAdj> Δ+10 {[-4-]}
<MI 207d4 BRA 0x20700> {[-4-]}
<POP 207d8-207e0 Naked> Σ-8 Δ+4 ↓ →0x206da ←0x20700
<POP 207d8-207da StackAdj> Δ+4 {[-4-]}
<MI 207da ADDQ.L #0x1,D6> {[-4-]}
<MI 207dc BVC 0x206da> {[-4-]}
<POP 207e0-207e2 Naked> Σ-4 Δ+4 ↓ ←0x206da
<POP 207e0-207e2 StackAdj> Δ+4 {}
<POP 207e2-207ea Epilogue> Σ0
@ 207ea
<LVAR 0x008 4(r)>
<LVAR -0x006 @ 4(rw)>
<LVAR -0x00a @ 4(rw)>
<LVAR -0x00c @ 1(r)>
<LVAR -0x010 @>
<POP 207ea-208ce Body>
<POP 207ea-20800 Prologue> Σ0 ↓
<POP 20800-20812 RegCacheLoad> Σ0 ↓
<POP 20812-20874 Naked> Σ0 Δ-2 ↓ →0x2087c
<Blob 0x20812 [10] @> Δ-10 {[«10""»]}
<MI 2081e MOVE.L (A6+0x8),-(A7)> Δ-4 {[«10""»]|[4, '(A6+0x8)']}
<Const 0x20820 0x2.4> Δ-4 {[«10""»]|[4, '(A6+0x8)']|[##2]}
<Call 0x20824 0x2216a> {[«10""»]|[4, '(A6+0x8)']|[##2]}
<POP 2082a-2082e StackAdj> Δ+10 {[-8-]}
<MI 2082e MOVE.L (A6+0x8),(A7)> {[-4-]|[4, '(A6+0x8)']}
<Const 0x20830 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x20834 0x22a50> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 2083a-2083c StackAdj> Δ+8 {[-4-]}
<MI 2083c MOVE.L (A7),(A6-0xa)> {[-4-]}
<MI 2083e MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x20840 0x2.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##2]}
<Call 0x20844 0x22a50> {[-4-]|[4, '(A6+0x8)']|[##2]}
<POP 2084a-2084c StackAdj> Δ+8 {[-4-]}
<MI 2084c MOVE.L (A7)+,(A6-0x6)> Δ+4 {}
<Blob 0x2084e [2] @> Δ-2 {[«2""»]}
<POP 20852-20854 StackAdj> Δ-2 {[«2""»]|[-2-]}
<MI 20854 MOVE.L (A6+0x8),-(A7)> Δ-4 {[«2""»]|[-2-]|[4, '(A6+0x8)']}
<POP 20856-20858 StackAdj> Δ-4 {[«2""»]|[-2-]|[4, '(A6+0x8)']|[-4-]}
<Lit 0x20858 2> {[«2""»]|[-2-]|[4, '(A6+0x8)']|[$$D ]}
<Call 0x2086a 0x203b0> {[«2""»]|[-2-]|[4, '(A6+0x8)']|[$$D ]}
<POP 2086e-20870 StackAdj> Δ+8 {[«2""»]|[-2-]}
<MI 20870 TST.B (A7)+> Δ+2 {[«2""»]}
<MI 20872 BEQ 0x2087c> {[«2""»]}
<POP 20874-2087c Naked> Σ-2 ↓
<MI 20874 MOVE.L (A6-0x6),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x6)']}
<Call 0x20876 0x20412> {[-2-]|[4, '(A6-0x6)']}
<POP 2087a-2087c StackAdj> Δ+4 {[-2-]}
<POP 2087c-2089c Naked> Σ-2 Δ+2 ↓ →0x208b2 ←0x20812
<POP 2087c-2087e StackAdj> Δ+2 {}
<MI 2087e MOVE.L (A6-0xa),-(A7)> Δ-4 {[4, '(A6-0xa)']}
<MI 20880 CLR.B -(A7)> Δ-2 {[4, '(A6-0xa)']|[#0]}
<Const 0x20882 0x1.2> Δ-2 {[4, '(A6-0xa)']|[#0]|[#1]}
<Const 0x20884 0x0.4> Δ-4 {[4, '(A6-0xa)']|[#0]|[#1]|[##0]}
<Pointer.fp 0x20888 <LVAR -0x00c @ 1(r)>> Δ-4 {[4, '(A6-0xa)']|[#0]|[#1]|[##0]|[@@-12]}
<Pointer.fp 0x2088a <LVAR -0x010 @>> Δ-4 {[4, '(A6-0xa)']|[#0]|[#1]|[##0]|[@@-12]|[@@-16]}
<Call 0x2088e 0x10380> {[4, '(A6-0xa)']|[#0]|[#1]|[##0]|[@@-12]|[@@-16]}
OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
<POP 20894-20898 StackAdj> Δ+20 {}
<MI 20898 TST.B (A6-0xc)> {}
<MI 2089a BNE 0x208b2> {}
<POP 2089c-208b2 Naked> Σ0 ↓
<Const 0x2089c 0x1.2> Δ-2 {[#1]}
<Const 0x2089e 0x1.2> Δ-2 {[#1]|[#1]}
<MI 208a0 MOVE.L (A6-0x6),-(A7)> Δ-4 {[#1]|[#1]|[4, '(A6-0x6)']}
<Pointer.fp 0x208a2 <LVAR -0x00c @ 1(r)>> Δ-4 {[#1]|[#1]|[4, '(A6-0x6)']|[@@-12]}
<Pointer.fp 0x208a4 <LVAR -0x010 @>> Δ-4 {[#1]|[#1]|[4, '(A6-0x6)']|[@@-12]|[@@-16]}
<Call 0x208a8 0x1038c> {[#1]|[#1]|[4, '(A6-0x6)']|[@@-12]|[@@-16]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 208ae-208b2 StackAdj> Δ+16 {}
<POP 208b2-208c6 Naked> Σ0 ↓ ←0x2087c
<Pointer.fp 0x208b2 <LVAR -0x006 @ 4(rw)>> Δ-4 {[@@-6]}
<Call 0x208b4 0x102bc> {[@@-6]}
FreeString(VAR a : String)
<POP 208ba-208bc StackAdj> Δ+4 {}
<Pointer.fp 0x208bc <LVAR -0x00a @ 4(rw)>> Δ-4 {[@@-10]}
<Call 0x208be 0x102bc> {[@@-10]}
FreeString(VAR a : String)
<POP 208c4-208c6 StackAdj> Δ+4 {}
<POP 208c6-208ce Epilogue> Σ0
@ 208ce
<LVAR -0x004 @>
<POP 208ce-209a4 Body>
<POP 208ce-208e4 Prologue> Σ0 ↓
<POP 208e4-208ee RegCacheLoad> Σ0 ↓
<POP 208ee-20900 Naked> Σ0 ↓ →0x20926
<POP 208ee-208f0 StackAdj> Δ-4 {[-4-]}
<Call 0x208f0 0x103f8> {[-4-]}
GetConsoleConfig() : Long
<MI 208f6 MOVE.L (A7)+,D0> Δ+4 {}
<MI 208f8 CMPI.L #0x00000003,D0> {}
<MI 208fe BNE 0x20926> {}
<POP 20900-20926 Naked> Σ0 →0x2099c
<Blob 0x20900 [22] @> Δ-22 {[«22""»]}
<POP 2090c-2090e StackAdj> Δ-4 {[«22""»]|[-4-]}
<Lit 0x2090e 22> {[«22""»]|[$$Already in REMOTE mode]}
<Call 0x2091a 0x103e0> {[«22""»]|[$$Already in REMOTE mode]}
WriteConsoleStringCrLf(str : String)
<POP 20920-20924 StackAdj> Δ+26 {}
<MI 20924 BRA 0x2099c> {}
<POP 20926-2093e Naked> Σ0 Δ-2 ↓ →0x20970 ←0x208ee
<POP 20926-20928 StackAdj> Δ-2 {[-2-]}
<Const 0x20928 0x180.4> Δ-4 {[-2-]|[##384]}
<Call 0x2092c 0x10592> {[-2-]|[##384]}
ReadConfig(where : Long) : Word
<POP 20932-20934 StackAdj> Δ+4 {[-2-]}
<MI 20934 MOVE.B (A7+0x1),D0> {[-2-]}
<MI 20938 CMPI.B #0x58,D0> {[-2-]}
<MI 2093c BNE 0x20970> {[-2-]}
<POP 2093e-20970 Naked> Σ-2 →0x2099a
<Blob 0x2093e [2] @> Δ-2 {[-2-]|[«2""»]}
<Blob 0x20942 [2] @> Δ-2 {[-2-]|[«2""»]|[«2""»]}
<Blob 0x20946 [2] @> Δ-2 {[-2-]|[«2""»]|[«2""»]|[«2""»]}
<POP 2094a-2094c StackAdj> Δ-4 {[-2-]|[«2""»]|[«2""»]|[«2""»]|[-4-]}
<Lit 0x2094c 6> {[-2-]|[«2""»]|[«2""»]|[«2""»]|[$$FIXPAD]}
<Const 0x2095a 0x1.4> Δ-4 {[-2-]|[«2""»]|[«2""»]|[«2""»]|[$$FIXPAD]|[##1]}
<Const 0x2095e 0x1.2> Δ-2 {[-2-]|[«2""»]|[«2""»]|[«2""»]|[$$FIXPAD]|[##1]|[#1]}
<Pointer.fp 0x20960 <LVAR -0x004 @>> Δ-4 {[-2-]|[«2""»]|[«2""»]|[«2""»]|[$$FIXPAD]|[##1]|[#1]|[@@-4]}
<Call 0x20964 0x103b0> {[-2-]|[«2""»]|[«2""»]|[«2""»]|[$$FIXPAD]|[##1]|[#1]|[@@-4]}
PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
<POP 2096a-2096e StackAdj> Δ+20 {[-2-]}
<MI 2096e BRA 0x2099a> {[-2-]}
<POP 20970-2099a Naked> Σ-2 ↓ ←0x20926
<Blob 0x20970 [4] @> Δ-4 {[-2-]|[«4""»]}
<Blob 0x20974 [4] @> Δ-4 {[-2-]|[«4""»]|[«4""»]}
<POP 20978-2097a StackAdj> Δ-4 {[-2-]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x2097a 8> {[-2-]|[«4""»]|[«4""»]|[$$FIXMODEM]}
<Const 0x20988 0x1.4> Δ-4 {[-2-]|[«4""»]|[«4""»]|[$$FIXMODEM]|[##1]}
<Const 0x2098c 0x1.2> Δ-2 {[-2-]|[«4""»]|[«4""»]|[$$FIXMODEM]|[##1]|[#1]}
<Pointer.fp 0x2098e <LVAR -0x004 @>> Δ-4 {[-2-]|[«4""»]|[«4""»]|[$$FIXMODEM]|[##1]|[#1]|[@@-4]}
<Call 0x20992 0x103b0> {[-2-]|[«4""»]|[«4""»]|[$$FIXMODEM]|[##1]|[#1]|[@@-4]}
PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
<POP 20998-2099a StackAdj> Δ+22 {[-2-]}
<POP 2099a-2099c Naked> Σ-2 Δ+2 ↓ ←0x2093e
<POP 2099a-2099c StackAdj> Δ+2 {}
<POP 2099c-209a4 Epilogue> Σ0 ←0x20900
@ 209a4
<POP 209a4-20a16 Body>
<POP 209a4-209ba Prologue> Σ0 ↓
<POP 209ba-209bc RegCacheLoad> Σ0 ↓
<POP 209bc-209ca Naked> Σ0 ↓ →0x209fc
<POP 209bc-209be StackAdj> Δ-4 {[-4-]}
<Call 0x209be 0x103f8> {[-4-]}
GetConsoleConfig() : Long
<MI 209c4 MOVE.L (A7)+,D0> Δ+4 {}
<MI 209c6 CMP.L #0x01,D0> {}
<MI 209c8 BNE 0x209fc> {}
<POP 209ca-209fc Naked> Σ0 →0x20a0e
<Blob 0x209ca [22] @> Δ-22 {[«22""»]}
<POP 209dc-209de StackAdj> Δ-4 {[«22""»]|[-4-]}
<Lit 0x209de 21> {[«22""»]|[$$Already in LOCAL mode]}
<Call 0x209f0 0x103e0> {[«22""»]|[$$Already in LOCAL mode]}
WriteConsoleStringCrLf(str : String)
<POP 209f6-209fa StackAdj> Δ+26 {}
<MI 209fa BRA 0x20a0e> {}
<POP 209fc-20a0e Naked> Σ0 ↓ ←0x209bc
<Call 0x209fc 0x10216> {}
KC0b
<Const 0x20a02 0x1.4> Δ-4 {[##1]}
<Call 0x20a06 0x103f4> {[##1]}
SetConsoleConfig(a : Long)
<POP 20a0c-20a0e StackAdj> Δ+4 {}
<POP 20a0e-20a16 Epilogue> Σ0 ←0x209ca
@ 20a16
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 1(r)>
<LVAR -0x008 @ 4(r)>
<POP 20a16-20a72 Body> Δ+4
<POP 20a16-20a2c Prologue> Σ0 ↓
<POP 20a2c-20a34 RegCacheLoad> Σ0 ↓
<POP 20a34-20a52 Naked> Σ0 ↓ →0x20a5c ←0x20a64
<Pointer.fp 0x20a34 <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-8]}
<Call 0x20a36 0x102b8> {[@@-8]}
NewString(VAR a : String)
<MI 20a3c MOVE.L (A6+0x8),(A7)> {[4, '(A6+0x8)']}
<Pointer.fp 0x20a40 <LVAR -0x008 @ 4(r)>> Δ-4 {[4, '(A6+0x8)']|[@@-8]}
<Pointer.fp 0x20a42 <LVAR -0x004 @ 1(r)>> Δ-4 {[4, '(A6+0x8)']|[@@-8]|[@@-4]}
<Call 0x20a44 0x1043c> {[4, '(A6+0x8)']|[@@-8]|[@@-4]}
FileReadLine(file : File; VAR a : String; VAR b : Byte)
<POP 20a4a-20a4e StackAdj> Δ+12 {}
<MI 20a4e TST.B (A6-0x4)> {}
<MI 20a50 BNE 0x20a5c> {}
<POP 20a52-20a5c Naked> Σ0 Δ-4 →0x20a64
<MI 20a52 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<Call 0x20a54 0x103e0> {[4, '(A6-0x8)']}
WriteConsoleStringCrLf(str : String)
<MI 20a5a BRA 0x20a64> {[4, '(A6-0x8)']}
<POP 20a5c-20a64 Naked> Σ0 Δ-4 ↓ ←0x20a34
<Pointer.fp 0x20a5c <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-8]}
<Call 0x20a5e 0x102bc> {[@@-8]}
FreeString(VAR a : String)
<POP 20a64-20a6a Naked> Σ-4 Δ+4 ↓ →0x20a34 ←0x20a52
<POP 20a64-20a66 StackAdj> Δ+4 {}
<MI 20a66 TST.B (A6-0x4)> {}
<MI 20a68 BEQ 0x20a34> {}
<POP 20a6a-20a72 Epilogue> Σ0
@ 20a72
<LVAR 0x008 4(r)>
<LVAR -0x008 @ 4(r)>
<POP 20a72-20b5a Body>
<POP 20a72-20a88 Prologue> Σ0 ↓
<POP 20a88-20a92 RegCacheLoad> Σ0 ↓
<POP 20a92-20af8 Naked> Σ0 ↓
<Blob 0x20a92 [10] @> Δ-10 {[«10""»]}
<MI 20a9e MOVE.L (A6+0x8),-(A7)> Δ-4 {[«10""»]|[4, '(A6+0x8)']}
<Const 0x20aa0 0x1.4> Δ-4 {[«10""»]|[4, '(A6+0x8)']|[##1]}
<Call 0x20aa4 0x2216a> {[«10""»]|[4, '(A6+0x8)']|[##1]}
<POP 20aaa-20aac StackAdj> Δ+10 {[-8-]}
<MI 20aac MOVE.L (A6+0x8),(A7)> {[-4-]|[4, '(A6+0x8)']}
<Const 0x20aae 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x20ab2 0x22a50> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 20ab8-20aba StackAdj> Δ+8 {[-4-]}
<MI 20aba MOVEA.L (A7)+,A4> Δ+4 {}
<Blob 0x20abc [2] @> Δ-2 {[«2""»]}
<POP 20ac0-20ac2 StackAdj> Δ-2 {[«2""»]|[-2-]}
<MI 20ac2 MOVE.L (A6+0x8),-(A7)> Δ-4 {[«2""»]|[-2-]|[4, '(A6+0x8)']}
<POP 20ac4-20ac6 StackAdj> Δ-4 {[«2""»]|[-2-]|[4, '(A6+0x8)']|[-4-]}
<Lit 0x20ac6 2> {[«2""»]|[-2-]|[4, '(A6+0x8)']|[$$V ]}
<Call 0x20ad8 0x203b0> {[«2""»]|[-2-]|[4, '(A6+0x8)']|[$$V ]}
<POP 20adc-20ade StackAdj> Δ+8 {[«2""»]|[-2-]}
<MI 20ade MOVE.B (A7)+,D0> Δ+2 {[«2""»]}
<MI 20ae0 EXTB.W D0> {[«2""»]}
<POP 0x20ae2 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[«2""»]}
<POP 20ae4-20ae6 StackAdj> Δ+2 {}
<MI 20ae6 MOVE.B D0,D7> {}
<Const 0x20ae8 0x1.2> Δ-2 {[#1]}
<MI 20aea MOVE.L A4,-(A7)> Δ-4 {[#1]|[4, 'A4']}
<Pointer.fp 0x20aec <LVAR -0x008 @ 4(r)>> Δ-4 {[#1]|[4, 'A4']|[@@-8]}
<Call 0x20af0 0x10458> {[#1]|[4, 'A4']|[@@-8]}
DirFirst(MOD c : Bool; a : String; VAR b : File)
<POP 20af6-20af8 StackAdj> Δ+10 {}
<POP 20af8-20b00 Naked> Σ0 ↓ →0x20b52 ←0x20b3a
<MI 20af8 MOVEA.L (A6-0x8),A0> {}
<MI 20afc CMPA.W #0x01,A0> {}
<MI 20afe BEQ 0x20b52> {}
<POP 20b00-20b04 Naked> Σ0 ↓ →0x20b3a
<MI 20b00 TST.B D7> {}
<MI 20b02 BEQ 0x20b3a> {}
<POP 20b04-20b3a Naked> Σ0 ↓
<Call 0x20b04 0x103dc> {}
WriteConsoleCrLf(void)
<POP 20b0a-20b0c StackAdj> Δ-30 {[-30-]}
<MI 20b0c MOVEA.L A7,A1> {[-30-]}
<MI 20b0e MOVEA.L A0,A2> {[-30-]}
<BlockMove 30,A2,A1> {[-30-]}
<POP 20b18-20b1a StackAdj> Δ-4 {[-34-]}
<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 20b28-20b2a StackAdj> Δ+8
<Call 0x20b2a 0x103e0> {[-30-]|[$$…]}
WriteConsoleStringCrLf(str : String)
<POP 20b30-20b34 StackAdj> Δ+34 {}
<Call 0x20b34 0x103dc> {}
WriteConsoleCrLf(void)
<POP 20b3a-20b52 Naked> Σ0 →0x20af8 ←0x20b00
<MI 20b3a MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Call 0x20b3c 0x20a16> {[4, 'A0']}
<POP 20b40-20b42 StackAdj> Δ+2 {[-2-]}
<MI 20b42 CLR.B (A7)> {[-2-]}
<Pointer.fp 0x20b44 <LVAR -0x008 @ 4(r)>> Δ-4 {[-2-]|[@@-8]}
<Call 0x20b48 0x1045c> {[-2-]|[@@-8]}
DirNext(MOD a : Bool; VAR b : File)
<POP 20b4e-20b50 StackAdj> Δ+6 {}
<MI 20b50 BRA 0x20af8> {}
<POP 20b52-20b5a Epilogue> Σ0 ←0x20af8
@ 20b5a
<LVAR 0x008 4(r)>
<LVAR -0x005 @ 1(rw)>
<LVAR -0x006 @ 1(r)>
<LVAR -0x00a @ 4(r)>
<LVAR -0x00e @ 4(rw)>
<LVAR -0x012 @ 4(rw)>
<LVAR -0x014 @ 1(r)>
<LVAR -0x018 @ 4(rw)>
<LVAR -0x01c @ 4(r)>
<LVAR -0x020 @ 4(rw)>
<POP 20b5a-20d96 Body>
<POP 20b5a-20b70 Prologue> Σ0 ↓
<POP 20b70-20b8c RegCacheLoad> Σ0 ↓
<POP 20b8c-20bf8 Naked> Σ0 ↓ →0x20bfe
<Blob 0x20b8c [10] @> Δ-10 {[«10""»]}
<MI 20b98 MOVE.L (A6+0x8),-(A7)> Δ-4 {[«10""»]|[4, '(A6+0x8)']}
<Const 0x20b9a 0x1.4> Δ-4 {[«10""»]|[4, '(A6+0x8)']|[##1]}
<Call 0x20b9e 0x2216a> {[«10""»]|[4, '(A6+0x8)']|[##1]}
<POP 20ba4-20ba6 StackAdj> Δ+10 {[-8-]}
<MI 20ba6 MOVE.L (A6+0x8),(A7)> {[-4-]|[4, '(A6+0x8)']}
<Const 0x20ba8 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x20bac 0x22a50> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 20bb2-20bb4 StackAdj> Δ+8 {[-4-]}
<MI 20bb4 MOVE.L (A7)+,(A6-0x12)> Δ+4 {}
<Blob 0x20bb8 [4] @> Δ-4 {[«4""»]}
<POP 20bbc-20bbe StackAdj> Δ-4 {[«4""»]|[-4-]}
<Lit 0x20bbe 4> {[«4""»]|[$$SIZE]}
<MI 20bcc MOVE.L (A7)+,(A6-0x20)> Δ+4 {[«4""»]}
<MI 20bd0 MOVE.L (A6+0x8),(A7)> {[4, '(A6+0x8)']}
<Const 0x20bd2 0x0.4> Δ-4 {[4, '(A6+0x8)']|[##0]}
<MI 20bd6 MOVE.L (A6-0x20),-(A7)> Δ-4 {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x20)']}
<Pointer.fp 0x20bda <LVAR -0x01c @ 4(r)>> Δ-4 {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x20)']|[@@-28]}
<Pointer.fp 0x20bde <LVAR -0x014 @ 1(r)>> Δ-4 {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x20)']|[@@-28]|[@@-20]}
<Call 0x20be0 0x24f88> {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x20)']|[@@-28]|[@@-20]}
<POP 20be6-20be8 StackAdj> Δ+20 {}
<Pointer.fp 0x20be8 <LVAR -0x020 @ 4(rw)>> Δ-4 {[@@-32]}
<Call 0x20bec 0x102bc> {[@@-32]}
FreeString(VAR a : String)
<POP 20bf2-20bf4 StackAdj> Δ+4 {}
<MI 20bf4 TST.B (A6-0x14)> {}
<MI 20bf6 BNE 0x20bfe> {}
<POP 20bf8-20bfe Naked> Σ0 →0x20c50
<MI 20bf8 MOVE.L #0x01,(A6-0x18)> {}
<MI 20bfc BRA 0x20c50> {}
<POP 20bfe-20c06 Naked> Σ0 ↓ →0x20c18 ←0x20b8c
<MI 20bfe MOVEA.L (A6-0x1c),A0> {}
<MI 20c02 CMPA.W #0x01,A0> {}
<MI 20c04 BEQ 0x20c18> {}
<POP 20c06-20c18 Naked> Σ0 →0x20c26
<MI 20c06 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Pointer.fp 0x20c08 <LVAR -0x014 @ 1(r)>> Δ-4 {[4, 'A0']|[@@-20]}
<Pointer.fp 0x20c0a <LVAR -0x018 @ 4(rw)>> Δ-4 {[4, 'A0']|[@@-20]|[@@-24]}
<Call 0x20c0e 0x102ec> {[4, 'A0']|[@@-20]|[@@-24]}
String2Long(src : String; VAR status : Bool; VAR retval : Long)
<POP 20c14-20c16 StackAdj> Δ+12 {}
<MI 20c16 BRA 0x20c26> {}
<POP 20c18-20c26 Naked> Σ0 ↓ ←0x20bfe
<MI 20c18 CLR.B (A6-0x14)> {}
<Pointer.fp 0x20c1a <LVAR -0x01c @ 4(r)>> Δ-4 {[@@-28]}
<Call 0x20c1e 0x102bc> {[@@-28]}
FreeString(VAR a : String)
<POP 20c24-20c26 StackAdj> Δ+4 {}
<POP 20c26-20c2a Naked> Σ0 ↓ →0x20c50 ←0x20c06
<MI 20c26 TST.B (A6-0x14)> {}
<MI 20c28 BNE 0x20c50> {}
<POP 20c2a-20c50 Naked> Σ0 ↓
<Blob 0x20c2a [32] @> Δ-32 {[«32""»]}
<POP 20c36-20c38 StackAdj> Δ-4 {[«32""»]|[-4-]}
<Lit 0x20c38 32> {[«32""»]|[$$/SIZE= requires decimal argument]}
<Call 0x20c46 0x21d28> {[«32""»]|[$$/SIZE= requires decimal argument]}
<POP 20c4c-20c50 StackAdj> Δ+36 {}
<POP 20c50-20c78 Naked> Σ0 Δ-10 ↓ →0x20c7c ←0x20bf8 ←0x20c26
<Blob 0x20c50 [10] @> Δ-10 {[«10""»]}
<POP 20c5c-20c5e StackAdj> Δ-2 {[«10""»]|[-2-]}
<MI 20c5e MOVE.L (A6+0x8),-(A7)> Δ-4 {[«10""»]|[-2-]|[4, '(A6+0x8)']}
<POP 20c60-20c62 StackAdj> Δ-4 {[«10""»]|[-2-]|[4, '(A6+0x8)']|[-4-]}
<Lit 0x20c62 10> {[«10""»]|[-2-]|[4, '(A6+0x8)']|[$$CONTIGUOUS]}
<Call 0x20c6e 0x203b0> {[«10""»]|[-2-]|[4, '(A6+0x8)']|[$$CONTIGUOUS]}
<POP 20c72-20c74 StackAdj> Δ+8 {[«10""»]|[-2-]}
<MI 20c74 TST.B (A7)+> Δ+2 {[«10""»]}
<MI 20c76 BEQ 0x20c7c> {[«10""»]}
<POP 20c78-20c7c Naked> Σ-10 ↓
<MI 20c78 NEG.L (A6-0x18)> {[-10-]}
<POP 20c7c-20c9e Naked> Σ-10 Δ+8 ↓ →0x20ca2 ←0x20c50
<POP 20c7c-20c7e StackAdj> Δ+8 {[-2-]}
<POP 20c7e-20c7f StackAdj> Δ+2 {}
<Blob 0x20c7f [2] @> Δ-2 {[«2""»]}
<POP 20c82-20c84 StackAdj> Δ-2 {[«2""»]|[-2-]}
<MI 20c84 MOVE.L (A6+0x8),-(A7)> Δ-4 {[«2""»]|[-2-]|[4, '(A6+0x8)']}
<POP 20c86-20c88 StackAdj> Δ-4 {[«2""»]|[-2-]|[4, '(A6+0x8)']|[-4-]}
<Lit 0x20c88 2> {[«2""»]|[-2-]|[4, '(A6+0x8)']|[$$D ]}
<Call 0x20c94 0x203b0> {[«2""»]|[-2-]|[4, '(A6+0x8)']|[$$D ]}
<POP 20c98-20c9a StackAdj> Δ+8 {[«2""»]|[-2-]}
<MI 20c9a TST.B (A7)+> Δ+2 {[«2""»]}
<MI 20c9c BEQ 0x20ca2> {[«2""»]}
<POP 20c9e-20ca2 Naked> Σ-2 →0x20ca4
<MI 20c9e MOVEQ.L #0x01,D7> {[-2-]}
<MI 20ca0 BRA 0x20ca4> {[-2-]}
<POP 20ca2-20ca4 Naked> Σ-2 ↓ ←0x20c7c
<MI 20ca2 MOVEQ.L #0x02,D7> {[-2-]}
<POP 20ca4-20cce Naked> Σ-2 Δ+2 ↓ →0x20d82 ←0x20c9e
<POP 20ca4-20ca6 StackAdj> Δ+2 {}
<MI 20ca6 MOVE.L (A6-0x12),-(A7)> Δ-4 {[4, '(A6-0x12)']}
<MI 20caa MOVE.B D7,D0> {[4, '(A6-0x12)']}
<MI 20cac EXTB.W D0> {[4, '(A6-0x12)']}
<POP 0x20cae LimitCheck 0x0 ≤ D0 ≤ 0x2> {[4, '(A6-0x12)']}
<MI 20cb0 MOVE.B D0,-(A7)> Δ-2 {[4, '(A6-0x12)']|[2, 'D0']}
<Const 0x20cb2 0x1.2> Δ-2 {[4, '(A6-0x12)']|[2, 'D0']|[#1]}
<MI 20cb4 MOVE.L (A6-0x18),-(A7)> Δ-4 {[4, '(A6-0x12)']|[2, 'D0']|[#1]|[4, '(A6-0x18)']}
<Pointer.fp 0x20cb8 <LVAR -0x006 @ 1(r)>> Δ-4 {[4, '(A6-0x12)']|[2, 'D0']|[#1]|[4, '(A6-0x18)']|[@@-6]}
<Pointer.fp 0x20cbc <LVAR -0x00a @ 4(r)>> Δ-4 {[4, '(A6-0x12)']|[2, 'D0']|[#1]|[4, '(A6-0x18)']|[@@-6]|[@@-10]}
<Call 0x20cbe 0x10380> {[4, '(A6-0x12)']|[2, 'D0']|[#1]|[4, '(A6-0x18)']|[@@-6]|[@@-10]}
OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
<POP 20cc4-20cc6 StackAdj> Δ+20 {}
<MI 20cc6 TST.B (A6-0x6)> {}
<MI 20cca BNE 0x20d82> {}
<POP 20cce-20d00 Naked> Σ0 Δ-2 ↓ →0x20d5e
<MI 20cce MOVEA.L (A6-0xa),A0> {}
<MI 20cd0 PEA.L (A0+0x3a)> Δ-4 {[4, '^(A0+0x3a)']}
<Call 0x20cd4 0x10304> {[4, '^(A0+0x3a)']}
GetRtc() : TimeStamp
<POP 20cda-20cdc StackAdj> Δ+4 {}
<MI 20cdc MOVE.B #0x01,(A0+0x4c)> {}
<Blob 0x20ce0 [2] @> Δ-2 {[«2""»]}
<POP 20ce4-20ce6 StackAdj> Δ-2 {[«2""»]|[-2-]}
<MI 20ce6 MOVE.L (A6+0x8),-(A7)> Δ-4 {[«2""»]|[-2-]|[4, '(A6+0x8)']}
<POP 20ce8-20cea StackAdj> Δ-4 {[«2""»]|[-2-]|[4, '(A6+0x8)']|[-4-]}
<Lit 0x20cea 2> {[«2""»]|[-2-]|[4, '(A6+0x8)']|[$$I ]}
<Call 0x20cf6 0x203b0> {[«2""»]|[-2-]|[4, '(A6+0x8)']|[$$I ]}
<POP 20cfa-20cfc StackAdj> Δ+8 {[«2""»]|[-2-]}
<MI 20cfc TST.B (A7)+> Δ+2 {[«2""»]}
<MI 20cfe BEQ 0x20d5e> {[«2""»]}
<POP 20d00-20d2a Naked> Σ-2 ↓ →0x20d3a ←0x20d4c
<Blob 0x20d00 [2] @> Δ-2 {[-2-]|[«2""»]}
<POP 20d04-20d06 StackAdj> Δ-8 {[-2-]|[«2""»]|[-8-]}
<Lit 0x20d06 2> {[-2-]|[«2""»]|[-4-]|[$$) ]}
<Call 0x20d12 0x103e4> {[-2-]|[«2""»]|[-4-]|[$$) ]}
AskConsoleString(prompt : String) : String
<POP 20d18-20d1a StackAdj> Δ+4 {[-2-]|[«2""»]|[-4-]}
<MI 20d1a MOVE.L (A7)+,(A6-0xe)> Δ+4 {[-2-]|[«2""»]}
<POP 20d1e-20d20 StackAdj> Δ+2 {[-2-]}
<MI 20d20 MOVEA.L (A6-0xe),A0> {[-2-]}
<MI 20d24 MOVE.W (A0),D0> {[-2-]}
<MI 20d26 CMP.W #0x01,D0> {[-2-]}
<MI 20d28 BNE 0x20d3a> {[-2-]}
<POP 20d2a-20d34 Naked> Σ-2 ↓ →0x20d3a
<MI 20d2a MOVE.B (A0+0x2),D0> {[-2-]}
<MI 20d2e CMPI.B #0x29,D0> {[-2-]}
<MI 20d32 BNE 0x20d3a> {[-2-]}
<POP 20d34-20d3a Naked> Σ-2 →0x20d4c
<MI 20d34 MOVE.B #0x01,(A6-0x5)> {[-2-]}
<MI 20d38 BRA 0x20d4c> {[-2-]}
<POP 20d3a-20d4c Naked> Σ-2 ↓ ←0x20d00 ←0x20d2a
<MI 20d3a MOVE.L (A6-0xa),-(A7)> Δ-4 {[-2-]|[4, '(A6-0xa)']}
<MI 20d3c MOVE.L (A6-0xe),-(A7)> Δ-4 {[-2-]|[4, '(A6-0xa)']|[4, '(A6-0xe)']}
<Pointer.fp 0x20d40 <LVAR -0x005 @ 1(rw)>> Δ-4 {[-2-]|[4, '(A6-0xa)']|[4, '(A6-0xe)']|[@@-5]}
<Call 0x20d44 0x10440> {[-2-]|[4, '(A6-0xa)']|[4, '(A6-0xe)']|[@@-5]}
FSCALL_10440
<POP 20d4a-20d4c StackAdj> Δ+12 {[-2-]}
<POP 20d4c-20d5e Naked> Σ-2 ↓ →0x20d00 ←0x20d34
<Pointer.fp 0x20d4c <LVAR -0x00e @ 4(rw)>> Δ-4 {[-2-]|[@@-14]}
<Call 0x20d50 0x102bc> {[-2-]|[@@-14]}
FreeString(VAR a : String)
<POP 20d56-20d58 StackAdj> Δ+4 {[-2-]}
<MI 20d58 TST.B (A6-0x5)> {[-2-]}
<MI 20d5c BEQ 0x20d00> {[-2-]}
<POP 20d5e-20d82 Naked> Σ-2 Δ+2 ↓ ←0x20cce
<POP 20d5e-20d60 StackAdj> Δ+2 {}
<MI 20d60 MOVE.L (A6-0xa),-(A7)> Δ-4 {[4, '(A6-0xa)']}
<Call 0x20d62 0x10448> {[4, '(A6-0xa)']}
FSCALL_10448
<POP 20d68-20d6a StackAdj> Δ+2 {[-2-]}
<MI 20d6a CLR.B (A7)> {[-2-]}
<Const 0x20d6c 0x1.2> Δ-2 {[-2-]|[#1]}
<Const 0x20d6e 0x1.4> Δ-4 {[-2-]|[#1]|[##1]}
<Pointer.fp 0x20d72 <LVAR -0x006 @ 1(r)>> Δ-4 {[-2-]|[#1]|[##1]|[@@-6]}
<Pointer.fp 0x20d76 <LVAR -0x00a @ 4(r)>> Δ-4 {[-2-]|[#1]|[##1]|[@@-6]|[@@-10]}
<Call 0x20d78 0x1038c> {[-2-]|[#1]|[##1]|[@@-6]|[@@-10]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 20d7e-20d82 StackAdj> Δ+16 {}
<POP 20d82-20d8e Naked> Σ0 ↓ ←0x20ca4
<Pointer.fp 0x20d82 <LVAR -0x012 @ 4(rw)>> Δ-4 {[@@-18]}
<Call 0x20d86 0x102bc> {[@@-18]}
FreeString(VAR a : String)
<POP 20d8c-20d8e StackAdj> Δ+4 {}
<POP 20d8e-20d96 Epilogue> Σ0
@ 20d96
<LVAR 0x008 4(r)>
<LVAR -0x006 @ 4(r)>
<LVAR -0x010 @ 1(r)>
<POP 20d96-20e84 Body> Δ+4
<POP 20d96-20dac Prologue> Σ0 ↓
<POP 20dac-20db4 RegCacheLoad> Σ0 ↓
<POP 20db4-20dc4 Naked> Σ0 ↓ →0x20e30
<POP 20db4-20db6 StackAdj> Δ-4 {[-4-]}
<MI 20db6 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x20db8 0x22134> {[-4-]|[4, '(A6+0x8)']}
<POP 20dbe-20dc0 StackAdj> Δ+4 {[-4-]}
<MI 20dc0 MOVE.L (A7)+,D7> Δ+4 {}
<MI 20dc2 BEQ 0x20e30> {}
<POP 20dc4-20dcc Naked> Σ0 ↓ →0x20dce
<MI 20dc4 CMPI.L #0x00000002,D7> {}
<MI 20dca BEQ 0x20dce> {}
<POP 20dcc-20dce Naked> Σ0 →0x20e4a
<MI 20dcc BRA 0x20e4a> {}
<POP 20dce-20e22 Naked> Σ0 ↓ →0x20e24 ←0x20dc4
<POP 20dce-20dd0 StackAdj> Δ-4 {[-4-]}
<MI 20dd0 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x20dd2 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x20dd6 0x22a50> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 20ddc-20dde StackAdj> Δ+8 {[-4-]}
<MI 20dde MOVEA.L (A7)+,A4> Δ+4 {}
<MI 20de0 MOVE.L A4,-(A7)> Δ-4 {[4, 'A4']}
<Const 0x20de2 0x20.2> Δ-2 {[4, 'A4']|[#32]}
<Call 0x20de6 0x102c0> {[4, 'A4']|[#32]}
AppendChar(MOD b : String; a : char)
<POP 20dec-20dee StackAdj> Δ+2 {[4, 'A4']}
<MI 20dee MOVE.L A4,-(A7)> Δ-4 {[4, 'A4']|[4, 'A4']}
<POP 20df0-20df2 StackAdj> Δ-4 {[4, 'A4']|[4, 'A4']|[-4-]}
<MI 20df2 MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, 'A4']|[4, 'A4']|[-4-]|[4, '(A6+0x8)']}
<Const 0x20df4 0x2.4> Δ-4 {[4, 'A4']|[4, 'A4']|[-4-]|[4, '(A6+0x8)']|[##2]}
<Call 0x20df8 0x22a50> {[4, 'A4']|[4, 'A4']|[-4-]|[4, '(A6+0x8)']|[##2]}
<POP 20dfe-20e00 StackAdj> Δ+8 {[4, 'A4']|[4, 'A4']|[-4-]}
<Call 0x20e00 0x102d0> {[4, 'A4']|[4, 'A4']|[-4-]}
StringCat2(a, b : String) : String
<POP 20e06-20e08 StackAdj> Δ+8 {[4, 'A4']}
<MI 20e08 MOVEA.L (A7)+,A4> Δ+4 {}
<MI 20e0a MOVE.L A4,-(A7)> Δ-4 {[4, 'A4']}
<Pointer.fp 0x20e0c <LVAR -0x006 @ 4(r)>> Δ-4 {[4, 'A4']|[@@-6]}
<Pointer.fp 0x20e0e <LVAR -0x010 @ 1(r)>> Δ-4 {[4, 'A4']|[@@-6]|[@@-16]}
<Call 0x20e12 0x10310> {[4, 'A4']|[@@-6]|[@@-16]}
ConvertTimestamp(MOD input : String; b : L; VAR status : Bool)
<POP 20e18-20e1c StackAdj> Δ+12 {}
<MI 20e1c TST.B (A6-0x10)> {}
<MI 20e20 BNE 0x20e24> {}
<POP 20e22-20e24 Naked> Σ0 →0x20e4a
<MI 20e22 BRA 0x20e4a> {}
<POP 20e24-20e2c Naked> Σ0 Δ-4 ↓ ←0x20dce
<MI 20e24 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x20e26 0x1030c> {[4, '(A6-0x6)']}
SetRtc(a: TimeStamp)
<POP 20e2c-20e30 Naked> Σ-4 Δ+4 →0x20e7c ←0x20e30
<POP 20e2c-20e2e StackAdj> Δ+4 {}
<MI 20e2e BRA 0x20e7c> {}
<POP 20e30-20e4a Naked> Σ0 Δ-4 →0x20e2c ←0x20db4
<Pointer.fp 0x20e30 <LVAR -0x006 @ 4(r)>> Δ-4 {[@@-6]}
<Call 0x20e32 0x10304> {[@@-6]}
GetRtc() : TimeStamp
<MI 20e38 MOVE.L (A6-0x6),-(A7)> Δ-4 {[@@-6]|[4, '(A6-0x6)']}
<Call 0x20e3a 0x10308> {[@@-6]|[4, '(A6-0x6)']}
TimeToText()
<POP 20e40-20e42 StackAdj> Δ+4 {[@@-6]}
<Call 0x20e42 0x103e0> {[@@-6]}
WriteConsoleStringCrLf(str : String)
<MI 20e48 BRA 0x20e2c> {[@@-6]}
<POP 20e4a-20e7c Naked> Σ0 ↓ ←0x20dcc ←0x20e22
<Blob 0x20e4a [36] @> Δ-36 {[«36""»]}
<POP 20e5c-20e5e StackAdj> Δ-4 {[«36""»]|[-4-]}
<Lit 0x20e5e 35> {[«36""»]|[$$Bad format. Try HH:MM:SS DD-MMM-YY]}
<Call 0x20e72 0x103e0> {[«36""»]|[$$Bad format. Try HH:MM:SS DD-MMM-YY]}
WriteConsoleStringCrLf(str : String)
<POP 20e78-20e7c StackAdj> Δ+40 {}
<POP 20e7c-20e84 Epilogue> Σ0 ←0x20e2c
@ 20e84
<LVAR 0x008 4(r)>
<POP 20e84-21088 Body>
<POP 20e84-20e9a Prologue> Σ0 ↓
<POP 20e9a-20eaa RegCacheLoad> Σ0 ↓
<POP 20eaa-20fa8 Naked> Σ0 Δ-4 ↓
<MI 20eaa MOVEA.L (A6+0x8),A0> {}
<MI 20eae MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Blob 0x20eb0 [24] @> Δ-24 {[4, 'A0']|[«24""»]}
<MI 20ec0 CLR.L D0> {[4, 'A0']|[«24""»]}
<MI 20ec2 MOVE.B (A0+0x1f),D0> {[4, 'A0']|[«24""»]}
<MI 20ec6 LSL.B #0x7,D0> {[4, 'A0']|[«24""»]}
<MI 20ec8 LSR.B #0x7,D0> {[4, 'A0']|[«24""»]}
<MI 20eca MULU.W #0x05,D0> {[4, 'A0']|[«24""»]}
<MI 20ecc CLR.L D1> {[4, 'A0']|[«24""»]}
<MI 20ece MOVE.W D0,D1> {[4, 'A0']|[«24""»]}
<MI 20ed0 LEA.L 0x20342,A1> {[4, 'A0']|[«24""»]}
<Blob 0x20ed2 [6] (A1+D1.L)> Δ-6 {[4, 'A0']|[«24""»]|[«6»]}
<Blob 0x20ee2 [4] @> Δ-4 {[4, 'A0']|[«24""»]|[«6»]|[«4""»]}
<Blob 0x20ee6 [4] @> Δ-4 {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]}
<Blob 0x20eea [4] @> Δ-4 {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]}
<Blob 0x20eee [4] @> Δ-4 {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<MI 20ef2 CLR.L D0> {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<MI 20ef4 MOVE.B (A0+0x1f),D0> {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<MI 20ef8 LSL.B #0x6,D0> {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<MI 20efa LSR.B #0x7,D0> {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<MI 20efc MULU.W #0x05,D0> {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<MI 20efe CLR.L D1> {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<MI 20f00 MOVE.W D0,D1> {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<MI 20f02 LEA.L 0x20342,A1> {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<Blob 0x20f04 [6] (A1+D1.L)> Δ-6 {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«6»]}
<Blob 0x20f14 [4] @> Δ-4 {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[«4""»]}
<Blob 0x20f18 [4] @> Δ-4 {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[«4""»]|[«4""»]}
<Blob 0x20f1c [4] @> Δ-4 {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]}
<MI 20f20 CLR.L D0> {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]}
<MI 20f22 MOVE.B (A0+0x1f),D0> {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]}
<MI 20f26 LSL.B #0x5,D0> {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]}
<MI 20f28 LSR.B #0x7,D0> {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]}
<MI 20f2a MULU.W #0x05,D0> {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]}
<MI 20f2c CLR.L D1> {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]}
<MI 20f2e MOVE.W D0,D1> {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]}
<MI 20f30 LEA.L 0x20342,A0> {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]}
<Blob 0x20f32 [6] (A0+D1.L)> Δ-6 {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«6»]}
<POP 20f42-20f44 StackAdj> Δ-8 {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[-8-]}
<Lit 0x20f44 23> {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[-4-]|[$$ PERMANENT =>_]}
<POP 20f50-20f52 StackAdj> Δ-4 {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[-4-]|[$$ PERMANENT =>_]|[-4-]}
<Lit 0x20f52> {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[-4-]|[$$ PERMANENT =>_]|[$$…]}
<Pointer.sp 0x20f52 52> Δ-4
<Const 0x20f56 0x1.2> Δ-2
<Const 0x20f58 0x5.2> Δ-2
<Call 0x20f5a 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 20f5c-20f5e StackAdj> Δ+8
<POP 20f5c-20f5e StackAdj> Δ-4 {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[-4-]|[$$ PERMANENT =>_]|[$$…]|[-4-]}
<Lit 0x20f5e 16> {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[-4-]|[$$ PERMANENT =>_]|[$$…]|[$$, EXECUTABLE =>_]}
<POP 20f6a-20f6c StackAdj> Δ-4 {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[-4-]|[$$ PERMANENT =>_]|[$$…]|[$$, EXECUTABLE =>_]|[-4-]}
<Lit 0x20f6c> {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[-4-]|[$$ PERMANENT =>_]|[$$…]|[$$, EXECUTABLE =>_]|[$$…]}
<Pointer.sp 0x20f6c 38> Δ-4
<Const 0x20f70 0x1.2> Δ-2
<Const 0x20f72 0x5.2> Δ-2
<Call 0x20f74 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 20f76-20f78 StackAdj> Δ+8
<POP 20f76-20f78 StackAdj> Δ-4 {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[-4-]|[$$ PERMANENT =>_]|[$$…]|[$$, EXECUTABLE =>_]|[$$…]|[-4-]}
<Lit 0x20f78 12> {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[-4-]|[$$ PERMANENT =>_]|[$$…]|[$$, EXECUTABLE =>_]|[$$…]|[$$, KERNEL =>_]}
<POP 20f84-20f86 StackAdj> Δ-4 {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[-4-]|[$$ PERMANENT =>_]|[$$…]|[$$, EXECUTABLE =>_]|[$$…]|[$$, KERNEL =>_]|[-4-]}
<Lit 0x20f86> {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[-4-]|[$$ PERMANENT =>_]|[$$…]|[$$, EXECUTABLE =>_]|[$$…]|[$$, KERNEL =>_]|[$$…]}
<Pointer.sp 0x20f86 28> Δ-4
<Const 0x20f8a 0x1.2> Δ-2
<Const 0x20f8c 0x5.2> Δ-2
<Call 0x20f8e 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 20f90-20f92 StackAdj> Δ+8
<Call 0x20f92 0x102e0> {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[-4-]|[$$ PERMANENT =>_]|[$$…]|[$$, EXECUTABLE =>_]|[$$…]|[$$, KERNEL =>_]|[$$…]}
StringCat6(a, b, c, d, e, f : String) : String
<POP 20f98-20f9a StackAdj> Δ+24 {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[-4-]}
<Call 0x20f9a 0x103e0> {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 20fa0-20fa4 StackAdj> Δ+74 {[4, 'A0']}
<MI 20fa4 MOVEQ.L #0x00,D7> {[4, 'A0']}
<MI 20fa6 MOVEQ.L #0x00,D6> {[4, 'A0']}
<POP 20fa8-20fc0 Naked> Σ-4 ↓ →0x21076 ←0x21076
<POP 0x20fa8 LimitCheck 0x0 ≤ D6 ≤ 0x5> {[-4-]}
<MI 20fae MOVE.L D6,D0> {[-4-]}
<MI 20fb0 ASL.L #0x2,D0> {[-4-]}
<MI 20fb2 MOVEA.L (A7),A0> {[-4-]}
<MI 20fb4 MOVE.W (A0+D0.L+#0x2),D1> {[-4-]}
<MI 20fb8 EXTW.L D1> {[-4-]}
<MI 20fba CMP.L D7,D1> {[-4-]}
<MI 20fbc BLT 0x21076> {[-4-]}
<POP 20fc0-21076 Naked> Σ-4 ↓
<Blob 0x20fc0 [22] @> Δ-22 {[-4-]|[«22""»]}
<Blob 0x20fd2 [4] @> Δ-4 {[-4-]|[«22""»]|[«4""»]}
<MI 20fd6 ADDQ.W #0x1,D1> {[-4-]|[«22""»]|[«4""»]}
<Blob 0x20fd8 [20] @> Δ-20 {[-4-]|[«22""»]|[«4""»]|[«20""»]}
<POP 20fea-20fec StackAdj> Δ-8 {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-8-]}
<Lit 0x20fec 21> {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]|[$$ File pages_]}
<MI 20ff8 MOVE.L D7,-(A7)> Δ-4 {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]|[$$ File pages_]|[4, 'D7']}
<POP 20ff6-20ff8 StackAdj> Δ-8 {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]|[$$ File pages_]|[4, 'D7']|[-8-]}
<MI 20ffa ADDQ.L #0x1,(A7)> {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]|[$$ File pages_]|[4, 'D7']|[-8-]}
<Call 0x20ffc 0x102e4> {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]|[$$ File pages_]|[4, 'D7']|[-8-]}
Long2String(a : Long) : String
<POP 21002-21004 StackAdj> Δ+4 {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]|[$$ File pages_]|[4, 'D7']|[-4-]}
<Const 0x21004 0x5.4> Δ-4 {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]|[$$ File pages_]|[4, 'D7']|[-4-]|[##5]}
<Call 0x21008 0x102f8> {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]|[$$ File pages_]|[4, 'D7']|[-4-]|[##5]}
LeftPad(a : String; b : Long) : String
<POP 2100e-21010 StackAdj> Δ+4 {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]|[$$ File pages_]|[4, 'D7']|[-4-]}
<Lit 0x21010 4> {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]|[$$ File pages_]|[4, 'D7']|[$$ .._]}
<MI 2101c MOVE.W D1,D2> {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]|[$$ File pages_]|[4, 'D7']|[$$ .._]}
<POP 2101a-2101c StackAdj> Δ-8 {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]|[$$ File pages_]|[4, 'D7']|[$$ .._]|[-8-]}
<MI 2101e EXTW.L D2> {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]|[$$ File pages_]|[4, 'D7']|[$$ .._]|[-8-]}
<MI 21020 MOVE.L D2,-(A7)> Δ-4 {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]|[$$ File pages_]|[4, 'D7']|[$$ .._]|[-8-]|[4, 'D2']}
<Call 0x21022 0x102e4> {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]|[$$ File pages_]|[4, 'D7']|[$$ .._]|[-8-]|[4, 'D2']}
Long2String(a : Long) : String
<POP 21028-2102a StackAdj> Δ+4 {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]|[$$ File pages_]|[4, 'D7']|[$$ .._]|[-8-]}
<Const 0x2102a 0x5.4> Δ-4 {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]|[$$ File pages_]|[4, 'D7']|[$$ .._]|[-8-]|[##5]}
<Call 0x2102e 0x102f8> {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]|[$$ File pages_]|[4, 'D7']|[$$ .._]|[-8-]|[##5]}
LeftPad(a : String; b : Long) : String
<POP 21034-21036 StackAdj> Δ+4 {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]|[$$ File pages_]|[4, 'D7']|[$$ .._]|[-8-]}
<Lit 0x21036 19> {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]|[$$ File pages_]|[4, 'D7']|[$$ .._]|[-4-]|[$$ are at disk block_]}
<MI 21042 CLR.L D2> {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]|[$$ File pages_]|[4, 'D7']|[$$ .._]|[-4-]|[$$ are at disk block_]}
<POP 21040-21042 StackAdj> Δ-8 {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]|[$$ File pages_]|[4, 'D7']|[$$ .._]|[-4-]|[$$ are at disk block_]|[-8-]}
<MI 21044 MOVE.W (A0+D0.L+#0x4),D2> {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]|[$$ File pages_]|[4, 'D7']|[$$ .._]|[-4-]|[$$ are at disk block_]|[-8-]}
<MI 21048 MOVE.L D2,-(A7)> Δ-4 {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]|[$$ File pages_]|[4, 'D7']|[$$ .._]|[-4-]|[$$ are at disk block_]|[-8-]|[4, 'D2']}
<Call 0x2104a 0x102e4> {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]|[$$ File pages_]|[4, 'D7']|[$$ .._]|[-4-]|[$$ are at disk block_]|[-8-]|[4, 'D2']}
Long2String(a : Long) : String
<POP 21050-21052 StackAdj> Δ+4 {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]|[$$ File pages_]|[4, 'D7']|[$$ .._]|[-4-]|[$$ are at disk block_]|[-8-]}
<Const 0x21052 0x5.4> Δ-4 {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]|[$$ File pages_]|[4, 'D7']|[$$ .._]|[-4-]|[$$ are at disk block_]|[-8-]|[##5]}
<Call 0x21056 0x102f8> {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]|[$$ File pages_]|[4, 'D7']|[$$ .._]|[-4-]|[$$ are at disk block_]|[-8-]|[##5]}
LeftPad(a : String; b : Long) : String
<POP 2105c-2105e StackAdj> Δ+8 {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]|[$$ File pages_]|[4, 'D7']|[$$ .._]|[-4-]|[$$ are at disk block_]|[-4-]}
<Call 0x2105e 0x102e0> {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]|[$$ File pages_]|[4, 'D7']|[$$ .._]|[-4-]|[$$ are at disk block_]|[-4-]}
StringCat6(a, b, c, d, e, f : String) : String
<POP 21064-21066 StackAdj> Δ+24 {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]}
<Call 0x21066 0x103e0> {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 2106c-2106e StackAdj> Δ+24 {[-4-]|[«22""»]|[«4""»]}
<MI 2106e EXTW.L D1> {[-4-]|[«22""»]|[«4""»]}
<MI 21070 MOVE.L D1,D7> {[-4-]|[«22""»]|[«4""»]}
<POP 21072-21076 StackAdj> Δ+26 {[-4-]}
<POP 21076-2107e Naked> Σ-4 ↓ →0x20fa8 ←0x20fa8
<MI 21076 ADDQ.L #0x1,D6> {[-4-]}
<MI 21078 CMP.L #0x05,D6> {[-4-]}
<MI 2107a BLE 0x20fa8> {[-4-]}
<POP 2107e-21080 Naked> Σ-4 Δ+4 ↓
<POP 2107e-21080 StackAdj> Δ+4 {}
<POP 21080-21088 Epilogue> Σ0
@ 21088
<LVAR 0x008 4(r)>
<LVAR -0x002 1(rw)>
<LVAR -0x006 @ 4(r)>
<POP 21088-2125a Body>
<POP 21088-2109e Prologue> Σ0 ↓
<POP 2109e-210aa RegCacheLoad> Σ0 ↓
<POP 210aa-210ea Naked> Σ0 Δ-4 ↓
<MI 210aa MOVEQ.L #0x00,D7> {}
<MI 210ac MOVEQ.L #0x00,D6> {}
<Blob 0x210ae [4] @> Δ-4 {[«4""»]}
<POP 210b2-210b4 StackAdj> Δ-2 {[«4""»]|[-2-]}
<MI 210b4 MOVE.L (A6+0x8),-(A7)> Δ-4 {[«4""»]|[-2-]|[4, '(A6+0x8)']}
<POP 210b8-210ba StackAdj> Δ-4 {[«4""»]|[-2-]|[4, '(A6+0x8)']|[-4-]}
<Lit 0x210ba 4> {[«4""»]|[-2-]|[4, '(A6+0x8)']|[$$FULL]}
<Call 0x210c8 0x203b0> {[«4""»]|[-2-]|[4, '(A6+0x8)']|[$$FULL]}
<POP 210cc-210ce StackAdj> Δ+8 {[«4""»]|[-2-]}
<MI 210ce MOVE.B (A7)+,D0> Δ+2 {[«4""»]}
<MI 210d0 EXTB.W D0> {[«4""»]}
<POP 0x210d2 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[«4""»]}
<POP 210d4-210d6 StackAdj> Δ+4 {}
<MI 210d6 MOVE.B D0,(A6-0x2)> {}
<POP 210da-210dc StackAdj> Δ-4 {[-4-]}
<MI 210dc MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x210e0 0x22134> {[-4-]|[4, '(A6+0x8)']}
<POP 210e6-210e8 StackAdj> Δ+4 {[-4-]}
<MI 210e8 MOVEQ.L #0x01,D5> {[-4-]}
<POP 210ea-210f0 Naked> Σ-4 ↓ →0x211cc ←0x211c6
<MI 210ea CMP.L (A7),D5> {[-4-]}
<MI 210ec BGT 0x211cc> {[-4-]}
<POP 210f0-21112 Naked> Σ-4 ↓
<POP 210f0-210f2 StackAdj> Δ-4 {[-8-]}
<MI 210f2 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<MI 210f6 MOVE.L D5,-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']|[4, 'D5']}
<Call 0x210f8 0x22a50> {[-8-]|[4, '(A6+0x8)']|[4, 'D5']}
<POP 210fe-21100 StackAdj> Δ+8 {[-8-]}
<MI 21100 MOVEA.L (A7)+,A4> Δ+4 {[-4-]}
<Const 0x21102 0x1.2> Δ-2 {[-4-]|[#1]}
<MI 21104 MOVE.L A4,-(A7)> Δ-4 {[-4-]|[#1]|[4, 'A4']}
<Pointer.fp 0x21106 <LVAR -0x006 @ 4(r)>> Δ-4 {[-4-]|[#1]|[4, 'A4']|[@@-6]}
<Call 0x2110a 0x10458> {[-4-]|[#1]|[4, 'A4']|[@@-6]}
DirFirst(MOD c : Bool; a : String; VAR b : File)
<POP 21110-21112 StackAdj> Δ+10 {[-4-]}
<POP 21112-2111c Naked> Σ-4 ↓ →0x211c6 ←0x211b4
<MI 21112 MOVEA.L (A6-0x6),A0> {[-4-]}
<MI 21116 CMPA.W #0x01,A0> {[-4-]}
<MI 21118 BEQ 0x211c6> {[-4-]}
<POP 2111c-211aa Naked> Σ-4 ↓ →0x211b4
<MI 2111c CLR.L D0> {[-4-]}
<MI 2111e MOVE.W D6,D0> {[-4-]}
<MI 21120 MOVE.W (A0+0x20),D1> {[-4-]}
<MI 21124 EXTW.L D1> {[-4-]}
<MI 21126 ADD.L D1,D0> {[-4-]}
<POP 0x21128 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {[-4-]}
<MI 21132 MOVE.W D0,D6> {[-4-]}
<MI 21134 ADDQ.L #0x1,D7> {[-4-]}
<POP 21136-21138 StackAdj> Δ-30 {[-34-]}
<MI 21138 MOVEA.L A7,A1> {[-34-]}
<MI 2113a MOVEA.L A0,A2> {[-34-]}
<BlockMove 30,A2,A1> {[-34-]}
<POP 21144-21148 StackAdj> Δ-12 {[-46-]}
<Lit 0x21148> {[-42-]|[$$…]}
<Pointer.sp 0x21148 12> Δ-4
<Const 0x2114c 0x1.2> Δ-2
<Const 0x2114e 0x1e.2> Δ-2
<Call 0x21150 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 21152-21154 StackAdj> Δ+8
<Const 0x21154 0x1f.4> Δ-4 {[-42-]|[$$…]|[##31]}
<Call 0x21158 0x102f8> {[-42-]|[$$…]|[##31]}
LeftPad(a : String; b : Long) : String
<MI 2115e MOVE.L D1,-(A7)> Δ-4 {[-42-]|[$$…]|[##31]|[4, 'D1']}
<Call 0x21160 0x102e4> {[-42-]|[$$…]|[##31]|[4, 'D1']}
Long2String(a : Long) : String
<POP 21166-21168 StackAdj> Δ+4 {[-42-]|[$$…]|[##31]}
<Const 0x21168 0x6.4> Δ-4 {[-42-]|[$$…]|[##31]|[##6]}
<Call 0x2116c 0x102f8> {[-42-]|[$$…]|[##31]|[##6]}
LeftPad(a : String; b : Long) : String
<MI 21172 MOVE.B (A0+0x3a),(A7)> {[-42-]|[$$…]|[##31]|[-4-]}
<MI 21176 MOVE.B (A0+0x3b),(A7+0x1)> {[-42-]|[$$…]|[##31]|[-4-]}
<MI 2117c MOVE.B (A0+0x3c),(A7+0x2)> {[-42-]|[$$…]|[##31]|[-4-]}
<MI 21182 MOVE.B (A0+0x3d),(A7+0x3)> {[-42-]|[$$…]|[##31]|[-4-]}
<Call 0x21188 0x10308> {[-42-]|[$$…]|[##31]|[-4-]}
TimeToText()
<POP 2118e-21190 StackAdj> Δ+4 {[-42-]|[$$…]|[##31]}
<Call 0x21190 0x102d4> {[-42-]|[$$…]|[##31]}
StringCat3(a, b, c : String) : String
<POP 21196-2119a StackAdj> Δ+12 {[-38-]}
<Call 0x2119a 0x103e0> {[-38-]}
WriteConsoleStringCrLf(str : String)
<POP 211a0-211a4 StackAdj> Δ+34 {[-4-]}
<MI 211a4 TST.B (A6-0x2)> {[-4-]}
<MI 211a8 BEQ 0x211b4> {[-4-]}
<POP 211aa-211b4 Naked> Σ-4 ↓
<MI 211aa PEA.L (A0+0x20)> Δ-4 {[-4-]|[4, '^(A0+0x20)']}
<Call 0x211ae 0x20e84> {[-4-]|[4, '^(A0+0x20)']}
<POP 211b2-211b4 StackAdj> Δ+4 {[-4-]}
<POP 211b4-211c6 Naked> Σ-4 →0x21112 ←0x2111c
<MI 211b4 CLR.B -(A7)> Δ-2 {[-4-]|[#0]}
<Pointer.fp 0x211b6 <LVAR -0x006 @ 4(r)>> Δ-4 {[-4-]|[#0]|[@@-6]}
<Call 0x211ba 0x1045c> {[-4-]|[#0]|[@@-6]}
DirNext(MOD a : Bool; VAR b : File)
<POP 211c0-211c2 StackAdj> Δ+6 {[-4-]}
<MI 211c2 BRA 0x21112> {[-4-]}
<POP 211c6-211cc Naked> Σ-4 ↓ →0x210ea ←0x21112
<MI 211c6 ADDQ.L #0x1,D5> {[-4-]}
<MI 211c8 BVC 0x210ea> {[-4-]}
<POP 211cc-211d6 Naked> Σ-4 Δ+4 ↓ →0x21252 ←0x210ea
<POP 211cc-211ce StackAdj> Δ+4 {}
<MI 211ce CMPI.L #0x00000002,D7> {}
<MI 211d4 BLT 0x21252> {}
<POP 211d6-21252 Naked> Σ0 ↓
<Blob 0x211d6 [10] @> Δ-10 {[«10""»]}
<Blob 0x211e6 [10] @> Δ-10 {[«10""»]|[«10""»]}
<Blob 0x211f2 [8] @> Δ-8 {[«10""»]|[«10""»]|[«8""»]}
<POP 21202-21204 StackAdj> Δ-8 {[«10""»]|[«10""»]|[«8""»]|[-8-]}
<Lit 0x21204 9> {[«10""»]|[«10""»]|[«8""»]|[-4-]|[$$Total of_]}
<POP 21210-21212 StackAdj> Δ-4 {[«10""»]|[«10""»]|[«8""»]|[-4-]|[$$Total of_]|[-4-]}
<MI 21212 CLR.L D0> {[«10""»]|[«10""»]|[«8""»]|[-4-]|[$$Total of_]|[-4-]}
<MI 21214 MOVE.W D6,D0> {[«10""»]|[«10""»]|[«8""»]|[-4-]|[$$Total of_]|[-4-]}
<MI 21216 MOVE.L D0,-(A7)> Δ-4 {[«10""»]|[«10""»]|[«8""»]|[-4-]|[$$Total of_]|[-4-]|[4, 'D0']}
<Call 0x21218 0x102e4> {[«10""»]|[«10""»]|[«8""»]|[-4-]|[$$Total of_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<Lit 0x2121e 10> {[«10""»]|[«10""»]|[«8""»]|[-4-]|[$$Total of_]|[-4-]|[$$ Pages in_]}
<MI 21228 MOVE.L D7,(A7)> {[«10""»]|[«10""»]|[«8""»]|[-4-]|[$$Total of_]|[-4-]|[4, 'D7']}
<POP 21226-21228 StackAdj> Δ-8 {[«10""»]|[«10""»]|[«8""»]|[-4-]|[$$Total of_]|[-4-]|[4, 'D7']|[-8-]}
<Call 0x2122a 0x102e4> {[«10""»]|[«10""»]|[«8""»]|[-4-]|[$$Total of_]|[-4-]|[4, 'D7']|[-8-]}
Long2String(a : Long) : String
<Lit 0x21230 7> {[«10""»]|[«10""»]|[«8""»]|[-4-]|[$$Total of_]|[-4-]|[4, 'D7']|[-4-]|[$$ Files.]}
<Call 0x2123e 0x102dc> {[«10""»]|[«10""»]|[«8""»]|[-4-]|[$$Total of_]|[-4-]|[4, 'D7']|[-4-]|[$$ Files.]}
StringCat5(a, b, c, d, e : String) : String
<POP 21244-21248 StackAdj> Δ+20 {[«10""»]|[«10""»]|[«8""»]|[-4-]}
<Call 0x21248 0x103e0> {[«10""»]|[«10""»]|[«8""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 2124e-21252 StackAdj> Δ+32 {}
<POP 21252-2125a Epilogue> Σ0 ←0x211cc
@ 2125a
<LVAR 0x008 4(r)>
<LVAR -0x002 @ 1(rw)>
<LVAR -0x024 @>
<LVAR -0x02a 2(w)>
<LVAR -0x030 2(w)>
<LVAR -0x034 @>
<LVAR -0x03c @ 4(r)>
<LVAR -0x048 @ 4(rw)>
<POP 2125a-214d6 Body> Δ+136
<POP 2125a-21270 Prologue> Σ0 ↓
<POP 21270-2127a RegCacheLoad> Σ0 ↓
<POP 2127a-2128e Naked> Σ0 ↓ →0x212c2
<POP 2127a-2127c StackAdj> Δ-4 {[-4-]}
<MI 2127c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x21280 0x22134> {[-4-]|[4, '(A6+0x8)']}
<POP 21286-21288 StackAdj> Δ+4 {[-4-]}
<MI 21288 MOVE.L (A7)+,D5> Δ+4 {}
<MI 2128a CMP.L #0x01,D5> {}
<MI 2128c BGE 0x212c2> {}
<POP 2128e-212a0 Naked> Σ0 Δ-68 ↓
<Blob 0x2128e [68] @> Δ-68 {[«68""»]}
<POP 212a0-212c2 Naked> Σ-68 Δ+68 →0x214ce ←0x214aa
<POP 212a0-212a2 StackAdj> Δ-4 {[-72-]}
<Lit 0x212a2> {[-68-]|[$$…]}
<Pointer.sp 0x212a2 4> Δ-4
<Const 0x212a6 0x1.2> Δ-2
<Const 0x212a8 0x43.2> Δ-2
<Call 0x212ac 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 212b2-212b4 StackAdj> Δ+8
<Call 0x212b4 0x103e0> {[-68-]|[$$…]}
WriteConsoleStringCrLf(str : String)
<POP 212ba-212be StackAdj> Δ+72 {}
<MI 212be BRA 0x214ce> {}
<POP 212c2-21314 Naked> Σ0 ↓ →0x2145a ←0x2127a
<POP 212c2-212c4 StackAdj> Δ-4 {[-4-]}
<MI 212c4 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x212c8 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x212cc 0x22a50> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 212d2-212d4 StackAdj> Δ+8 {[-4-]}
<MI 212d4 MOVEA.L (A7)+,A4> Δ+4 {}
<Blob 0x212d6 [2] @> Δ-2 {[«2""»]}
<POP 212da-212dc StackAdj> Δ-4 {[«2""»]|[-4-]}
<Lit 0x212dc 2> {[«2""»]|[$$ON]}
<MI 212ee MOVE.L (A7)+,(A6-0x48)> Δ+4 {[«2""»]}
<MI 212f0 MOVE.L A4,-(A7)> Δ-4 {[«2""»]|[4, 'A4']}
<MI 212f2 MOVE.L (A6-0x48),-(A7)> Δ-4 {[«2""»]|[4, 'A4']|[4, '(A6-0x48)']}
<Call 0x212f4 0x102c8> {[«2""»]|[4, 'A4']|[4, '(A6-0x48)']}
StringEqual(a, b : String) : Byte
<POP 212fa-212fc StackAdj> Δ+8 {[«2""»]}
<MI 212fc MOVE.B (A7)+,D0> Δ+2 {}
<MI 212fe EXTB.W D0> {}
<POP 0x21300 LimitCheck 0x0 ≤ D0 ≤ 0x1> {}
<MI 21302 MOVE.B D0,(A6-0x2)> {}
<Pointer.fp 0x21304 <LVAR -0x048 @ 4(rw)>> Δ-4 {[@@-72]}
<Call 0x21306 0x102bc> {[@@-72]}
FreeString(VAR a : String)
<POP 2130c-2130e StackAdj> Δ+4 {}
<MI 2130e TST.B D0> {}
<MI 21310 BEQ 0x2145a> {}
<POP 21314-2131c Naked> Σ0 ↓ →0x21350
<MI 21314 CMPI.L #0x00000002,D5> {}
<MI 2131a BEQ 0x21350> {}
<POP 2131c-2132e Naked> Σ0 Δ-68 ↓
<Blob 0x2131c [68] @> Δ-68 {[«68""»]}
<POP 2132e-21350 Naked> Σ-68 Δ+68 →0x21458 ←0x2137a
<POP 2132e-21330 StackAdj> Δ-4 {[-72-]}
<Lit 0x21330> {[-68-]|[$$…]}
<Pointer.sp 0x21330 4> Δ-4
<Const 0x21334 0x1.2> Δ-2
<Const 0x21336 0x43.2> Δ-2
<Call 0x2133a 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 21340-21342 StackAdj> Δ+8
<Call 0x21342 0x103e0> {[-68-]|[$$…]}
WriteConsoleStringCrLf(str : String)
<POP 21348-2134c StackAdj> Δ+72 {}
<MI 2134c BRA 0x21458> {}
<POP 21350-2137a Naked> Σ0 ↓ →0x2138e ←0x21314
<POP 21350-21352 StackAdj> Δ-4 {[-4-]}
<MI 21352 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x21356 0x2.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##2]}
<Call 0x2135a 0x22a50> {[-4-]|[4, '(A6+0x8)']|[##2]}
<POP 21360-21362 StackAdj> Δ+8 {[-4-]}
<MI 21362 MOVE.L (A7)+,(A6-0x48)> Δ+4 {}
<MI 21364 MOVE.L (A6-0x48),-(A7)> Δ-4 {[4, '(A6-0x48)']}
<Pointer.fp 0x21366 <LVAR -0x002 @ 1(rw)>> Δ-4 {[4, '(A6-0x48)']|[@@-2]}
<Pointer.fp 0x21368 <LVAR -0x03c @ 4(r)>> Δ-4 {[4, '(A6-0x48)']|[@@-2]|[@@-60]}
<Call 0x2136c 0x102ec> {[4, '(A6-0x48)']|[@@-2]|[@@-60]}
String2Long(src : String; VAR status : Bool; VAR retval : Long)
<POP 21372-21376 StackAdj> Δ+12 {}
<MI 21376 TST.B (A6-0x2)> {}
<MI 21378 BNE 0x2138e> {}
<POP 2137a-2138e Naked> Σ0 Δ-68 →0x2132e
<Blob 0x2137a [68] @> Δ-68 {[«68""»]}
<MI 2138c BRA 0x2132e> {[«68""»]}
<POP 2138e-21402 Naked> Σ0 ↓ →0x2142e ←0x21350
<MI 2138e MOVE.W #0x01,(A6-0x30)> {}
<MI 21392 MOVE.W #0x2,(A6-0x2a)> {}
<Pointer.fp 0x21398 <LVAR -0x034 @>> Δ-4 {[@@-52]}
<MI 2139c LEA.L (A6-0x24),A0> {[@@-52]}
<MI 213a0 MOVE.L A0,-(A7)> Δ-4 {[@@-52]|[4, 'A0']}
<Const 0x213a2 0x3.2> Δ-2 {[@@-52]|[4, 'A0']|[#3]}
<Call 0x213a6 0x10204> {[@@-52]|[4, 'A0']|[#3]}
KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
<POP 213ac-213ae StackAdj> Δ+8 {[-2-]}
<POP 213ae-213af StackAdj> Δ+2 {}
<Const 0x213af 0x3.2> Δ-2 {[#3]}
<Pointer.fp 0x213b2 <LVAR -0x002 @ 1(rw)>> Δ-4 {[#3]|[@@-2]}
<Call 0x213b4 0x10206> {[#3]|[@@-2]}
KC03_Wait_Disk_IO(a : W; VAR status : Byte)
<POP 213ba-213bc StackAdj> Δ+6 {}
<MI 213bc MOVE.L (A6-0x3c),D4> {}
<MI 213c0 MOVEQ.L #0x10,D3> {}
<Call 0x213c2 0x10294> {}
?divs_d3_d4
<MI 213c8 MOVE.L D4,D7> {}
<MI 213ca MOVE.L D3,D6> {}
<POP 0x213cc LimitCheck 0x0 ≤ D7 ≤ 0x10> {}
<MI 213d6 MOVE.L D7,D0> {}
<MI 213d8 ASL.L #0x1,D0> {}
<POP 0x213da LimitCheck 0x0 ≤ D6 ≤ 0xf> {}
<MI 213e4 LEA.L (A6+D0.L-#0x24),A0> {}
<MI 213e8 MOVE.L D6,D0> {}
<MI 213ea ROR.L #0x3,D0> {}
<MI 213ec ADDA.W D0,A0> {}
<MI 213ee SWAP.W D0> {}
<MI 213f0 ROL.W #0x3,D0> {}
<MI 213f2 MOVE.B (A0),D1> {}
<MI 213f4 LSL.B D0,D1> {}
<MI 213f6 LSR.B #0x7,D1> {}
<MI 213f8 MOVE.B D1,(A6-0x2)> {}
<MI 213fa MOVE.L D4,D7> {}
<MI 213fc MOVE.L D3,D6> {}
<MI 213fe TST.L D7> {}
<MI 21400 BEQ 0x2142e> {}
<POP 21402-21406 Naked> Σ0 ↓ →0x2142e
<MI 21402 TST.B D1> {}
<MI 21404 BEQ 0x2142e> {}
<POP 21406-2142e Naked> Σ0 →0x21458
<Const 0x21406 0x1.2> Δ-2 {[#1]}
<MI 21408 MOVE.L D7,D0> {[#1]}
<MI 2140a SUBQ.L #0x1,D0> {[#1]}
<POP 0x2140c LimitCheck 0x0 ≤ D0 ≤ 0xffff> {[#1]}
<MI 21416 MOVE.W D0,-(A7)> Δ-2 {[#1]|[2, 'D0']}
<POP 0x21418 LimitCheck 0x0 ≤ D6 ≤ 0xff> {[#1]|[2, 'D0']}
<MI 21422 MOVE.W D6,-(A7)> Δ-2 {[#1]|[2, 'D0']|[2, 'D6']}
<Call 0x21424 0x103fc> {[#1]|[2, 'D0']|[2, 'D6']}
SetConsolePrinter(a: Byte; b: Word; c: Word)
<POP 2142a-2142c StackAdj> Δ+6 {}
<MI 2142c BRA 0x21458> {}
<POP 2142e-21458 Naked> Σ0 ↓ ←0x2138e ←0x21402
<Blob 0x2142e [34] @> Δ-34 {[«34""»]}
<POP 2143a-2143c StackAdj> Δ-4 {[«34""»]|[-4-]}
<Lit 0x2143c 34> {[«34""»]|[$$Communications line does not exist]}
<Call 0x2144e 0x103e0> {[«34""»]|[$$Communications line does not exist]}
WriteConsoleStringCrLf(str : String)
<POP 21454-21458 StackAdj> Δ+38 {}
<POP 21458-2145a Naked> Σ0 →0x214ce ←0x2132e ←0x21406
<MI 21458 BRA 0x214ce> {}
<POP 2145a-214a6 Naked> Σ0 ↓ →0x214aa ←0x212c2
<POP 2145a-2145c StackAdj> Δ-4 {[-4-]}
<POP 2145c-2145d StackAdj> Δ+2 {[-2-]}
<Blob 0x2145d [2] @> Δ-2 {[-2-]|[«2""»]}
<MI 21460 MOVE.B 0x202d1,(A7+0x1)> {[-2-]|[«2""»]}
<MI 21466 MOVE.B 0x202d2,(A7+0x2)> {[-2-]|[«2""»]}
<POP 2146c-2146e StackAdj> Δ-4 {[-2-]|[«2""»]|[-4-]}
<Lit 0x2146e> {[-2-]|[«2""»]|[$$…]}
<Pointer.sp 0x2146e 4> Δ-4
<Const 0x21472 0x1.2> Δ-2
<Const 0x21474 0x3.2> Δ-2
<Call 0x21478 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 2147e-21480 StackAdj> Δ+8
<MI 21480 MOVE.L (A7)+,(A6-0x48)> Δ+4 {[-2-]|[«2""»]}
<POP 21482-21484 StackAdj> Δ+2 {[-2-]}
<MI 21484 MOVE.L A4,-(A7)> Δ-4 {[-2-]|[4, 'A4']}
<MI 21486 MOVE.L (A6-0x48),-(A7)> Δ-4 {[-2-]|[4, 'A4']|[4, '(A6-0x48)']}
<Call 0x21488 0x102c8> {[-2-]|[4, 'A4']|[4, '(A6-0x48)']}
StringEqual(a, b : String) : Byte
<POP 2148e-21490 StackAdj> Δ+8 {[-2-]}
<MI 21490 MOVE.B (A7)+,D0> Δ+2 {}
<MI 21492 EXTB.W D0> {}
<POP 0x21494 LimitCheck 0x0 ≤ D0 ≤ 0x1> {}
<MI 21496 MOVE.B D0,(A6-0x2)> {}
<Pointer.fp 0x21498 <LVAR -0x048 @ 4(rw)>> Δ-4 {[@@-72]}
<Call 0x2149a 0x102bc> {[@@-72]}
FreeString(VAR a : String)
<POP 214a0-214a2 StackAdj> Δ+4 {}
<MI 214a2 TST.B D0> {}
<MI 214a4 BEQ 0x214aa> {}
<POP 214a6-214aa Naked> Σ0 ↓ →0x214c0
<MI 214a6 CMP.L #0x01,D5> {}
<MI 214a8 BEQ 0x214c0> {}
<POP 214aa-214c0 Naked> Σ0 Δ-68 →0x212a0 ←0x2145a
<Blob 0x214aa [68] @> Δ-68 {[«68""»]}
<MI 214bc BRA 0x212a0> {[«68""»]}
<POP 214c0-214ce Naked> Σ0 ↓ ←0x214a6
<MI 214c0 CLR.B -(A7)> Δ-2 {[#0]}
<MI 214c2 CLR.W -(A7)> Δ-2 {[#0]|[#0]}
<MI 214c4 CLR.W -(A7)> Δ-2 {[#0]|[#0]|[#0]}
<Call 0x214c6 0x103fc> {[#0]|[#0]|[#0]}
SetConsolePrinter(a: Byte; b: Word; c: Word)
<POP 214cc-214ce StackAdj> Δ+6 {}
<POP 214ce-214d6 Epilogue> Σ0 ←0x212a0 ←0x21458
@ 214d6
<LVAR 0x00c 4(w)>
<LVAR 0x008 4(r)>
<LVAR -0x008 @ 4(rw)>
<POP 214d6-21578 Body>
<POP 214d6-214ec Prologue> Σ0 ↓
<POP 214ec-214f4 RegCacheLoad> Σ0 ↓
<POP 214f4-214fe Naked> Σ0 ↓
<MI 214f4 MOVE.L #0xffffffff,(A6+0xc)> {}
<MI 214fc MOVEQ.L #0x01,D7> {}
<POP 214fe-21564 Naked> Σ0 ↓ →0x2156a ←0x2156a
<MI 214fe MOVE.L D7,D0> {}
<MI 21500 SUBQ.L #0x1,D0> {}
<POP 0x21502 LimitCheck 0x0 ≤ D0 ≤ 0x9> {}
<MI 2150c MOVE.L D0,D4> {}
<MI 2150e MOVEQ.L #0x0a,D3> {}
<Call 0x21510 0x1028c> {}
?muls_d3_d4
<MI 21516 LEA.L 0x2034c,A0> {}
<Blob 0x2151a [10] (A0+D4.L)> Δ-10 {[«10»]}
<POP 2152a-2152c StackAdj> Δ-4 {[«10»]|[-4-]}
<Lit 0x2152c> {[«10»]|[$$…]}
<Pointer.sp 0x2152c 4> Δ-4
<Const 0x21530 0x1.2> Δ-2
<Const 0x21532 0xa.2> Δ-2
<Call 0x21534 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 2153a-2153c StackAdj> Δ+8
<MI 2153c MOVE.L (A7)+,(A6-0x8)> Δ+4 {[«10»]}
<POP 2153e-21540 StackAdj> Δ+4 {[-6-]}
<MI 21540 MOVE.L (A6+0x8),(A7)> {[-2-]|[4, '(A6+0x8)']}
<MI 21544 MOVE.L (A6-0x8),-(A7)> Δ-4 {[-2-]|[4, '(A6+0x8)']|[4, '(A6-0x8)']}
<Call 0x21546 0x102c8> {[-2-]|[4, '(A6+0x8)']|[4, '(A6-0x8)']}
StringEqual(a, b : String) : Byte
<POP 2154c-2154e StackAdj> Δ+8 {[-2-]}
<MI 2154e MOVE.B (A7)+,D0> Δ+2 {}
<MI 21550 EXTB.W D0> {}
<POP 0x21552 LimitCheck 0x0 ≤ D0 ≤ 0x1> {}
<MI 21554 MOVE.B D0,D6> {}
<Pointer.fp 0x21556 <LVAR -0x008 @ 4(rw)>> Δ-4 {[@@-8]}
<Call 0x21558 0x102bc> {[@@-8]}
FreeString(VAR a : String)
<POP 2155e-21560 StackAdj> Δ+4 {}
<MI 21560 TST.B D6> {}
<MI 21562 BEQ 0x2156a> {}
<POP 21564-2156a Naked> Σ0 →0x21570
<MI 21564 MOVE.L D7,(A6+0xc)> {}
<MI 21568 BRA 0x21570> {}
<POP 2156a-21570 Naked> Σ0 ↓ →0x214fe ←0x214fe
<MI 2156a ADDQ.L #0x1,D7> {}
<MI 2156c CMP.L #0x0a,D7> {}
<MI 2156e BLE 0x214fe> {}
<POP 21570-21578 Epilogue> Σ0 ←0x21564
@ 21578
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 21578-21628 Body> Δ+28
<POP 21578-2158e Prologue> Σ0 ↓
<POP 2158e-21592 RegCacheLoad> Σ0 ↓
<POP 21592-215b2 Naked> Σ0 ↓ →0x2161e
<MI 21592 MOVEA.L (A6+0x8),A0> {}
<MI 21596 MOVE.B #0x01,(A0)> {}
<POP 2159a-2159c StackAdj> Δ-4 {[-4-]}
<MI 2159c MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x10)']}
<Call 0x215a0 0x214d6> {[-4-]|[4, '(A6+0x10)']}
<POP 215a4-215a6 StackAdj> Δ+4 {[-4-]}
<MI 215a6 MOVE.L (A7)+,D0> Δ+4 {}
<MI 215a8 SUBQ.L #0x1,D0> {}
<MI 215aa CMPI.L #0x00000009,D0> {}
<MI 215b0 BHI 0x2161e> {}
<POP 215b2-215bc Naked> Σ0 →0x215d0 →0x215da →0x215e2 →0x215ea →0x215f2 →0x215fa →0x21602 →0x2160a →0x21610 →0x21616
<MI 215b2 ADD.W D0,D0> {}
<MI 215b4 SWITCH D0.W> {}
<POP 215d0-215d6 Naked> Σ0 Δ-4 ↓ ←0x215b2
<MI 215d0 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<Call 0x215d2 0x20d96> {[4, '(A6+0xc)']}
<POP 215d6-215da Naked> Σ-4 Δ+4 →0x21620 ←0x215da ←0x215e2 ←0x215ea ←0x215f2 ←0x215fa ←0x21602 ←0x21616
<POP 215d6-215d8 StackAdj> Δ+4 {}
<MI 215d8 BRA 0x21620> {}
<POP 215da-215e2 Naked> Σ0 Δ-4 →0x215d6 ←0x215b2
<MI 215da MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<Call 0x215dc 0x21088> {[4, '(A6+0xc)']}
<MI 215e0 BRA 0x215d6> {[4, '(A6+0xc)']}
<POP 215e2-215ea Naked> Σ0 Δ-4 →0x215d6 ←0x215b2
<MI 215e2 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<Call 0x215e4 0x20470> {[4, '(A6+0xc)']}
<MI 215e8 BRA 0x215d6> {[4, '(A6+0xc)']}
<POP 215ea-215f2 Naked> Σ0 Δ-4 →0x215d6 ←0x215b2
<MI 215ea MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<Call 0x215ec 0x20656> {[4, '(A6+0xc)']}
<MI 215f0 BRA 0x215d6> {[4, '(A6+0xc)']}
<POP 215f2-215fa Naked> Σ0 Δ-4 →0x215d6 ←0x215b2
<MI 215f2 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<Call 0x215f4 0x20a72> {[4, '(A6+0xc)']}
<MI 215f8 BRA 0x215d6> {[4, '(A6+0xc)']}
<POP 215fa-21602 Naked> Σ0 Δ-4 →0x215d6 ←0x215b2
<MI 215fa MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<Call 0x215fc 0x20b5a> {[4, '(A6+0xc)']}
<MI 21600 BRA 0x215d6> {[4, '(A6+0xc)']}
<POP 21602-2160a Naked> Σ0 Δ-4 →0x215d6 ←0x215b2
<MI 21602 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<Call 0x21604 0x207ea> {[4, '(A6+0xc)']}
<MI 21608 BRA 0x215d6> {[4, '(A6+0xc)']}
<POP 2160a-21610 Naked> Σ0 →0x21620 ←0x215b2
<Call 0x2160a 0x208ce> {}
<MI 2160e BRA 0x21620> {}
<POP 21610-21616 Naked> Σ0 →0x21620 ←0x215b2
<Call 0x21610 0x209a4> {}
<MI 21614 BRA 0x21620> {}
<POP 21616-2161e Naked> Σ0 Δ-4 →0x215d6 ←0x215b2
<MI 21616 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<Call 0x21618 0x2125a> {[4, '(A6+0xc)']}
<MI 2161c BRA 0x215d6> {[4, '(A6+0xc)']}
<POP 2161e-21620 Naked> Σ0 ↓ ←0x21592
<MI 2161e CLR.B (A0)> {}
<POP 21620-21628 Epilogue> Σ0 ←0x215d6 ←0x2160a ←0x21610
@ 21628
<LVAR 0x008 4(r)>
<POP 21628-2166a Body>
<POP 21628-2163e Prologue> Σ0 ↓
<POP 2163e-21640 RegCacheLoad> Σ0 ↓
<POP 21640-21662 Naked> Σ0 ↓
<Call 0x21640 0x10398> {}
FSCALL_10398
<Const 0x21646 0x1.2> Δ-2 {[#1]}
<Const 0x21648 0x1.2> Δ-2 {[#1]|[#1]}
<Call 0x2164a 0x10210> {[#1]|[#1]}
KC08_PortSomething(port: Word; b: Byte)
<POP 21650-21652 StackAdj> Δ+4 {}
<MI 21652 MOVEA.L (A6+0x8),A0> {}
<MI 21656 LEA.L 0x20338,A1> {}
<BlockMove 10,A1,A0> {}
<POP 21662-2166a Epilogue> Σ0
@ 21ce6
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 4(w)>
<POP 21ce6-21d28 Body>
<POP 21ce6-21cfc Prologue> Σ0 ↓
<POP 21cfc-21d00 Naked> Σ0 ↓
<MI 21cfc MOVEA.L (A6+0x8),A4> {}
<POP 21d00-21d06 Naked> Σ0 ↓ →0x21d20 ←0x21d06
<MI 21d00 CMPA.W #0x1,A4> {}
<MI 21d04 BEQ 0x21d20> {}
<POP 21d06-21d20 Naked> Σ0 →0x21d00
<MI 21d06 MOVE.L A4,(A6-0x4)> {}
<MI 21d0a MOVEA.L (A4+0x8),A4> {}
<Pointer.fp 0x21d0e <LVAR -0x004 @ 4(w)>> Δ-4 {[@@-4]}
<Const 0x21d12 0xc.4> Δ-4 {[@@-4]|[##12]}
<Call 0x21d16 0x102a8> {[@@-4]|[##12]}
Free2(a : Pointer; b : Long)
<POP 21d1c-21d1e StackAdj> Δ+8 {}
<MI 21d1e BRA 0x21d00> {}
<POP 21d20-21d28 Epilogue> Σ0 ←0x21d00
@ 21d28
<LVAR 0x008 4(r)>
<POP 21d28--0001 Body>
<POP 21d28-21d3e Prologue> Σ0 ↓
<POP 21d3e-21d48 Naked> Σ0 ↓ →0x21d52
<MI 21d3e MOVEA.L (A6+0x8),A0> {}
<MI 21d42 CMPA.W #0x1,A0> {}
<MI 21d46 BEQ 0x21d52> {}
<POP 21d48-21d52 Naked> Σ0 ↓
<MI 21d48 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Call 0x21d4a 0x103e0> {[4, 'A0']}
WriteConsoleStringCrLf(str : String)
<POP 21d50-21d52 StackAdj> Δ+4 {}
<POP 21d52-21d60 Naked> Σ0 ←0x21d3e
<POP 21d52-21d60 Bailout> {}
<MI 21d52 MOVEA.L (A5+0x8),A7>
<MI 21d56 MOVEA.W #0x0,A6>
<MI 21d5a JMP 0x25604>
@ 21d86
<LVAR 0x008 1(rw)>
<POP 21d86-21dc4 Body>
<POP 21d86-21d9c Prologue> Σ0 ↓
<POP 21d9c-21daa Naked> Σ0 ↓ →0x21db0
<MI 21d9c MOVE.L 0x26832,D0> {}
<MI 21da2 CMP.L 0x26836,D0> {}
<MI 21da8 BLE 0x21db0> {}
<POP 21daa-21db0 Naked> Σ0 →0x21dbc
<MI 21daa CLR.B (A6+0x8)> {}
<MI 21dae BRA 0x21dbc> {}
<POP 21db0-21dbc Naked> Σ0 ↓ ←0x21d9c
<MI 21db0 LEA.L 0x2582a,A0> {}
<MI 21db6 MOVE.B (A0+D0.L+#0x7),(A6+0x8)> {}
<POP 21dbc-21dc4 Epilogue> Σ0 ←0x21daa
@ 21dc4
<LVAR 0x008 1(rw)>
<POP 21dc4-21e08 Body>
<POP 21dc4-21dda Prologue> Σ0 ↓
<POP 21dda-21de0 RegCacheLoad> Σ0 ↓
<POP 21de0-21dea Naked> Σ0 ↓ →0x21df0
<MI 21de0 MOVE.L 0x26832,D0> {}
<MI 21de2 CMP.L 0x26836,D0> {}
<MI 21de8 BLE 0x21df0> {}
<POP 21dea-21df0 Naked> Σ0 →0x21dfc
<MI 21dea CLR.B (A6+0x8)> {}
<MI 21dee BRA 0x21dfc> {}
<POP 21df0-21dfc Naked> Σ0 ↓ ←0x21de0
<MI 21df0 LEA.L 0x2582a,A0> {}
<MI 21df6 MOVE.B (A0+D0.L+#0x7),(A6+0x8)> {}
<POP 21dfc-21e00 Naked> Σ0 ↓ ←0x21dea
<MI 21dfc ADDQ.L #0x1,D0> {}
<MI 21dfe MOVE.L D0,0x26832> {}
<POP 21e00-21e08 Epilogue> Σ0
@ 21e08
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 21e08-21ee2 Body>
<POP 21e08-21e1e Prologue> Σ0 ↓
<POP 21e1e-21e30 RegCacheLoad> Σ0 ↓
<POP 21e30-21e3c Naked> Σ0 ↓ →0x21e46 ←0x21ed6
<POP 21e30-21e32 StackAdj> Δ-2 {[-2-]}
<Call 0x21e32 0x21d86> {[-2-]}
<MI 21e36 MOVE.B (A7)+,D0> Δ+2 {}
<MI 21e38 CMP.B #0x5b,D0> {}
<MI 21e3a BNE 0x21e46> {}
<POP 21e3c-21e46 Naked> Σ0 →0x21ed6
<Call 0x21e3c 0x2510e> {}
<MI 21e42 BRA 0x21ed6> {}
<POP 21e46-21e52 Naked> Σ0 ↓ →0x21e6a ←0x21e30
<MI 21e46 MOVE.L 0x26832,D6> {}
<POP 21e48-21e4a StackAdj> Δ-2 {[-2-]}
<Call 0x21e4a 0x21dc4> {[-2-]}
<MI 21e4e MOVE.B (A7)+,D5> Δ+2 {}
<MI 21e50 BNE 0x21e6a> {}
<POP 21e52-21e68 Naked> Σ0 →0x21eda
<MI 21e52 MOVEA.L (A6+0xc),A0> {}
<MI 21e56 LEA.L 0x21c40,A1> {}
<BlockMove 8,A1,A0> {}
<MI 21e62 MOVEA.L (A6+0x8),A0> {}
<MI 21e64 MOVE.B #0x02,(A0)> {}
<MI 21e66 BRA 0x21eda> {}
<POP 21e6a-21e6e Naked> Σ0 ↓ →0x21e76 ←0x21e46
<MI 21e6a CMP.B #0x2c,D5> {}
<MI 21e6c BNE 0x21e76> {}
<POP 21e6e-21e76 Naked> Σ0 →0x21ec6
<MI 21e6e MOVEA.L (A6+0x8),A0> {}
<MI 21e70 MOVE.B #0x03,(A0)> {}
<MI 21e74 BRA 0x21ec6> {}
<POP 21e76-21e7a Naked> Σ0 ↓ →0x21e82 ←0x21e6a
<MI 21e76 CMP.B #0x3b,D5> {}
<MI 21e78 BNE 0x21e82> {}
<POP 21e7a-21e82 Naked> Σ0 →0x21ec6
<MI 21e7a MOVEA.L (A6+0x8),A0> {}
<MI 21e7c MOVE.B #0x01,(A0)> {}
<MI 21e80 BRA 0x21ec6> {}
<POP 21e82-21e88 Naked> Σ0 ↓ →0x21e8e ←0x21e76
<MI 21e82 CMPI.B #0x5d,D5> {}
<MI 21e86 BNE 0x21e8e> {}
<POP 21e88-21e8e Naked> Σ0 →0x21ec6
<MI 21e88 MOVEA.L (A6+0x8),A0> {}
<MI 21e8a MOVE.B #0x02,(A0)> {}
<MI 21e8c BRA 0x21ec6> {}
<POP 21e8e-21e92 Naked> Σ0 ↓ ←0x21e82
<MI 21e8e MOVEA.L (A6+0x8),A0> {}
<MI 21e90 CLR.B (A0)> {}
<POP 21e92-21e9e Naked> Σ0 ↓ →0x21ea6 ←0x21ec4
<POP 21e92-21e94 StackAdj> Δ-2 {[-2-]}
<Call 0x21e94 0x21d86> {[-2-]}
<MI 21e98 MOVE.B (A7)+,D7> Δ+2 {}
<MI 21e9a CMP.B #0x5b,D7> {}
<MI 21e9c BNE 0x21ea6> {}
<POP 21e9e-21ea6 Naked> Σ0 →0x21ec4
<Call 0x21e9e 0x2510e> {}
<MI 21ea4 BRA 0x21ec4> {}
<POP 21ea6-21eaa Naked> Σ0 ↓ →0x21eb8 ←0x21e92
<MI 21ea6 CMP.B #0x3b,D7> {}
<MI 21ea8 BEQ 0x21eb8> {}
<POP 21eaa-21eae Naked> Σ0 ↓ →0x21eb8
<MI 21eaa CMP.B #0x2c,D7> {}
<MI 21eac BEQ 0x21eb8> {}
<POP 21eae-21eb4 Naked> Σ0 ↓ →0x21eb8
<MI 21eae CMPI.B #0x5d,D7> {}
<MI 21eb2 BEQ 0x21eb8> {}
<POP 21eb4-21eb8 Naked> Σ0 ↓ →0x21ebc
<MI 21eb4 TST.B D7> {}
<MI 21eb6 BNE 0x21ebc> {}
<POP 21eb8-21eba Naked> Σ0 →0x21ec6 ←0x21ea6 ←0x21eaa ←0x21eae
<MI 21eb8 BRA 0x21ec6> {}
<POP 21ebc-21ec4 Naked> Σ0 ↓ ←0x21eb4
<POP 21ebc-21ebe StackAdj> Δ-2 {[-2-]}
<Call 0x21ebe 0x21dc4> {[-2-]}
<MI 21ec2 MOVE.B (A7)+,D7> Δ+2 {}
<POP 21ec4-21ec6 Naked> Σ0 →0x21e92 ←0x21e9e
<MI 21ec4 BRA 0x21e92> {}
<POP 21ec6-21ed6 Naked> Σ0 →0x21eda ←0x21e6e ←0x21e7a ←0x21e88 ←0x21eb8
<MI 21ec6 MOVEA.L (A6+0xc),A0> {}
<MI 21eca MOVE.L D6,(A0)> {}
<MI 21ecc MOVE.L 0x26832,(A0+0x4)> {}
<MI 21ed0 SUBQ.L #0x1,(A0+0x4)> {}
<MI 21ed4 BRA 0x21eda> {}
<POP 21ed6-21eda Naked> Σ0 →0x21e30 ←0x21e3c
<MI 21ed6 BRA 0x21e30> {}
<POP 21eda-21ee2 Epilogue> Σ0 ←0x21e52 ←0x21ec6
@ 21ee2
<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 21ee2-21f80 Body>
<POP 21ee2-21ef8 Prologue> Σ0 ↓
<POP 21ef8-21f02 RegCacheLoad> Σ0 ↓
<POP 21f02-21f0e Naked> Σ0 ↓ →0x21f14
<MI 21f02 MOVEA.L (A6+0x8),A0> {}
<MI 21f06 MOVE.B (A0),D0> {}
<MI 21f08 CMPI.B #0x01,D0> {}
<MI 21f0c BEQ 0x21f14> {}
<POP 21f0e-21f14 Naked> Σ0 ↓ →0x21f22
<MI 21f0e CMPI.B #0x02,D0> {}
<MI 21f12 BNE 0x21f22> {}
<POP 21f14-21f22 Naked> Σ0 →0x21f5e ←0x21f02
<MI 21f14 MOVE.L 0x21c40,(A6-0xc)> {}
<MI 21f18 MOVE.L 0x21c44,(A6-0x8)> {}
<MI 21f1e MOVE.B D0,(A6-0x4)> {}
<MI 21f20 BRA 0x21f5e> {}
<POP 21f22-21f34 Naked> Σ0 ↓ →0x21f50 ←0x21f0e ←0x21f58
<Pointer.fp 0x21f22 <LVAR -0x00c @ 4(w)>> Δ-4 {[@@-12]}
<Pointer.fp 0x21f24 <LVAR -0x004 @ 1(rw)>> Δ-4 {[@@-12]|[@@-4]}
<Call 0x21f26 0x21e08> {[@@-12]|[@@-4]}
<POP 21f2a-21f2c StackAdj> Δ+8 {}
<MI 21f2c MOVEA.L (A6+0x8),A0> {}
<MI 21f30 TST.B (A6-0x4)> {}
<MI 21f32 BEQ 0x21f50> {}
<POP 21f34-21f3a Naked> Σ0 ↓ →0x21f50
<MI 21f34 MOVE.B (A0),D0> {}
<MI 21f36 CMP.B #0x03,D0> {}
<MI 21f38 BNE 0x21f50> {}
<POP 21f3a-21f50 Naked> Σ0 →0x21f58
<MI 21f3a MOVE.B (A6-0x4),D0> {}
<MI 21f3c EXTB.W D0> {}
<POP 0x21f3e LimitCheck 0x0 ≤ D0 ≤ 0x3> {}
<MI 21f40 MOVE.B D0,(A0)> {}
<MI 21f42 MOVE.L 0x21c40,(A6-0xc)> {}
<MI 21f46 MOVE.L 0x21c44,(A6-0x8)> {}
<MI 21f4c CLR.B (A6-0x4)> {}
<MI 21f4e BRA 0x21f58> {}
<POP 21f50-21f58 Naked> Σ0 ↓ ←0x21f22 ←0x21f34
<MI 21f50 MOVE.B (A6-0x4),D0> {}
<MI 21f52 EXTB.W D0> {}
<POP 0x21f54 LimitCheck 0x0 ≤ D0 ≤ 0x3> {}
<MI 21f56 MOVE.B D0,(A0)> {}
<POP 21f58-21f5e Naked> Σ0 ↓ →0x21f22 ←0x21f3a
<MI 21f58 MOVE.B (A6-0x4),D0> {}
<MI 21f5a CMP.B #0x03,D0> {}
<MI 21f5c BEQ 0x21f22> {}
<POP 21f5e-21f78 Naked> Σ0 ↓ ←0x21f14
<MI 21f5e MOVEA.L (A6+0x10),A0> {}
<MI 21f62 LEA.L (A6-0xc),A1> {}
<BlockMove 8,A1,A0> {}
<MI 21f6c MOVEA.L (A6+0xc),A0> {}
<MI 21f70 MOVE.B (A6-0x4),D0> {}
<MI 21f72 EXTB.W D0> {}
<POP 0x21f74 LimitCheck 0x0 ≤ D0 ≤ 0x3> {}
<MI 21f76 MOVE.B D0,(A0)> {}
<POP 21f78-21f80 Epilogue> Σ0
@ 21f80
<LVAR 0x008 4(rw)>
<LVAR -0x004 1(rw)>
<LVAR -0x010 2(rw)>
<POP 21f80-22088 Body>
<POP 21f80-21f96 Prologue> Σ0 ↓
<POP 21f96-21fa4 RegCacheLoad> Σ0 ↓
<POP 21fa4-21fbc Naked> Σ0 Δ-4 ↓
<MI 21fa4 MOVEQ.L #0x01,D6> {}
<MI 21fa6 CLR.W (A6-0x10)> {}
<MI 21fa8 MOVEQ.L #0x01,D5> {}
<POP 21faa-21fac StackAdj> Δ-4 {[-4-]}
<MI 21fac MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x21fae 0x102f0> {[-4-]|[4, '(A6+0x8)']}
ToUpper(a : String) : String
<POP 21fb4-21fb6 StackAdj> Δ+4 {[-4-]}
<MI 21fb6 MOVE.L (A7)+,(A6+0x8)> Δ+4 {}
<MI 21fb8 MOVEA.L (A6+0x8),A0> {}
<MI 21fba MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<POP 21fbc-21fc8 Naked> Σ-4 ↓ →0x22076 ←0x2205c
<MI 21fbc MOVEA.L (A7),A0> {[-4-]}
<MI 21fbe MOVE.W (A0),D0> {[-4-]}
<MI 21fc0 EXTW.L D0> {[-4-]}
<MI 21fc2 CMP.L D0,D6> {[-4-]}
<MI 21fc4 BGT 0x22076> {[-4-]}
<POP 21fc8-21fda Naked> Σ-4 ↓ →0x21fdc
<MI 21fc8 CLR.L D0> {[-4-]}
<MI 21fca MOVE.B (A0+D6.L+#0x1),D0> {[-4-]}
<MI 21fce ANDI.W #0x007f,D0> {[-4-]}
<MI 21fd2 MOVE.B D0,(A6-0x4)> {[-4-]}
<MI 21fd4 CMPI.B #0x09,D0> {[-4-]}
<MI 21fd8 BNE 0x21fdc> {[-4-]}
<POP 21fda-21fdc Naked> Σ-4 ↓
<MI 21fda MOVE.B #0x20,(A6-0x4)> {[-4-]}
<POP 21fdc-21fe8 Naked> Σ-4 ↓ →0x22018 ←0x21fc8
<MI 21fdc CLR.L D0> {[-4-]}
<MI 21fde MOVE.B (A6-0x4),D0> {[-4-]}
<MI 21fe0 SUB.W #0x20,D0> {[-4-]}
<MI 21fe2 CMPI.W #0x000c,D0> {[-4-]}
<MI 21fe6 BHI 0x22018> {[-4-]}
<POP 21fe8-21ff2 Naked> Σ-4 →0x22010 →0x2200c →0x22018 →0x22018 →0x22018 →0x22018 →0x22018 →0x22018 →0x22018 →0x22018 →0x22018 →0x22018 →0x22014
<MI 21fe8 ADD.W D0,D0> {[-4-]}
<MI 21fea SWITCH D0.W> {[-4-]}
<POP 2200c-2200e Naked> Σ-4 →0x22076 ←0x21fe8
<MI 2200c BRA 0x22076> {[-4-]}
<POP 22010-22014 Naked> Σ-4 →0x2201a ←0x21fe8
<MI 22010 MOVEQ.L #0x00,D7> {[-4-]}
<MI 22012 BRA 0x2201a> {[-4-]}
<POP 22014-22018 Naked> Σ-4 →0x2201a ←0x21fe8
<MI 22014 MOVEQ.L #0x01,D7> {[-4-]}
<MI 22016 BRA 0x2201a> {[-4-]}
<POP 22018-2201a Naked> Σ-4 ↓ ←0x21fdc ←0x21fe8 ←0x21fe8 ←0x21fe8 ←0x21fe8 ←0x21fe8 ←0x21fe8 ←0x21fe8 ←0x21fe8 ←0x21fe8 ←0x21fe8
<MI 22018 MOVEQ.L #0x02,D7> {[-4-]}
<POP 2201a-2203e Naked> Σ-4 →0x22044 →0x22046 →0x22050 ←0x22010 ←0x22014
<MI 2201a MOVEQ.L #0x03,D0> {[-4-]}
<MI 2201c MULS.W (A6-0x10),D0> {[-4-]}
<MI 2201e LEA.L 0x21c48,A0> {[-4-]}
<MI 22022 LEA.L (A0+D0.W),A0> {[-4-]}
<MI 22026 CLR.L D0> {[-4-]}
<MI 22028 MOVE.B (A0+D7.W),D0> {[-4-]}
<POP 0x2202c LimitCheck 0x0 ≤ D0 ≤ 0x2> {[-4-]}
<MI 22034 ADD.W D0,D0> {[-4-]}
<MI 22036 SWITCH D0.W> {[-4-]}
<POP 22044-22046 Naked> Σ-4 →0x2205c ←0x2201a
<MI 22044 BRA 0x2205c> {[-4-]}
<POP 22046-22050 Naked> Σ-4 →0x2205c ←0x2201a
<MI 22046 MOVEA.L (A7),A0> {[-4-]}
<MI 22048 MOVE.B (A6-0x4),(A0+D5.L+#0x1)> {[-4-]}
<MI 2204c ADDQ.L #0x1,D5> {[-4-]}
<MI 2204e BRA 0x2205c> {[-4-]}
<POP 22050-2205c Naked> Σ-4 ↓ ←0x2201a
<MI 22050 MOVEA.L (A7),A0> {[-4-]}
<MI 22052 MOVE.B #0x2c,(A0+D5.L+#0x1)> {[-4-]}
<MI 22058 ADDQ.L #0x1,D5> {[-4-]}
<MI 2205a SUBQ.L #0x1,D6> {[-4-]}
<POP 2205c-22076 Naked> Σ-4 →0x21fbc ←0x22044 ←0x22046
<MI 2205c MOVEQ.L #0x03,D0> {[-4-]}
<MI 2205e MULS.W (A6-0x10),D0> {[-4-]}
<MI 22060 LEA.L 0x21c51,A0> {[-4-]}
<MI 22064 LEA.L (A0+D0.W),A0> {[-4-]}
<MI 22068 CLR.L D0> {[-4-]}
<MI 2206a MOVE.B (A0+D7.W),D0> {[-4-]}
<MI 2206e MOVE.W D0,(A6-0x10)> {[-4-]}
<MI 22070 ADDQ.L #0x1,D6> {[-4-]}
<MI 22072 BRA 0x21fbc> {[-4-]}
<POP 22076-22080 Naked> Σ-4 Δ+4 ↓ ←0x21fbc ←0x2200c
<MI 22076 MOVEA.L (A7),A0> {[-4-]}
<MI 22078 MOVE.L D5,D0> {[-4-]}
<MI 2207a SUBQ.L #0x1,D0> {[-4-]}
<MI 2207c MOVE.W D0,(A0)> {[-4-]}
<POP 2207e-22080 StackAdj> Δ+4 {}
<POP 22080-22088 Epilogue> Σ0
@ 22088
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x002 @ 1(r)>
<LVAR -0x00a @>
<LVAR -0x00e @ 4(r)>
<LVAR -0x014 @ 1(r)>
<POP 22088-22134 Body>
<POP 22088-2209e Prologue> Σ0 ↓
<POP 2209e-220a4 RegCacheLoad> Σ0 ↓
<POP 220a4-220b2 Naked> Σ0 ↓ →0x220ba
<POP 220a4-220a6 StackAdj> Δ-2 {[-2-]}
<Call 0x220a6 0x21d86> {[-2-]}
<MI 220aa MOVE.B (A7)+,D0> Δ+2 {}
<MI 220ac CMPI.B #0x5b,D0> {}
<MI 220b0 BNE 0x220ba> {}
<POP 220b2-220ba Naked> Σ0 ↓
<POP 220b2-220b4 StackAdj> Δ-2 {[-2-]}
<Call 0x220b4 0x21dc4> {[-2-]}
<MI 220b8 MOVE.B (A7)+,D7> Δ+2 {}
<POP 220ba-220c4 Naked> Σ0 ↓ ←0x220a4
<MI 220ba MOVEA.L (A6+0xc),A0> {}
<MI 220be MOVE.L #0x01,(A0)> {}
<MI 220c0 CLR.B (A6-0x14)> {}
<POP 220c4-220de Naked> Σ0 ↓ →0x22114 ←0x22114
<Pointer.fp 0x220c4 <LVAR -0x00a @>> Δ-4 {[@@-10]}
<Pointer.fp 0x220c8 <LVAR -0x002 @ 1(r)>> Δ-4 {[@@-10]|[@@-2]}
<Pointer.fp 0x220cc <LVAR -0x014 @ 1(r)>> Δ-4 {[@@-10]|[@@-2]|[@@-20]}
<Call 0x220d0 0x21ee2> {[@@-10]|[@@-2]|[@@-20]}
<POP 220d4-220d8 StackAdj> Δ+12 {}
<MI 220d8 TST.B (A6-0x2)> {}
<MI 220dc BNE 0x22114> {}
<POP 220de-2210a Naked> Σ0 ↓ →0x2210e
<Pointer.fp 0x220de <LVAR -0x00e @ 4(r)>> Δ-4 {[@@-14]}
<Const 0x220e0 0xc.4> Δ-4 {[@@-14]|[##12]}
<Call 0x220e4 0x1029c> {[@@-14]|[##12]}
Malloc1(length : Long) : Pointer
<POP 220ea-220ec StackAdj> Δ+8 {}
<MI 220ec MOVEA.L (A6-0xe),A0> {}
<MI 220ee MOVEA.L A0,A1> {}
<MI 220f0 LEA.L (A6-0xa),A2> {}
<BlockMove 8,A2,A1> {}
<MI 220fc MOVE.L #0x01,(A0+0x8)> {}
<MI 22100 MOVEA.L (A6+0xc),A0> {}
<MI 22104 MOVEA.L (A0),A1> {}
<MI 22106 CMPA.W #0x01,A1> {}
<MI 22108 BNE 0x2210e> {}
<POP 2210a-2210e Naked> Σ0 →0x22112
<MI 2210a MOVE.L (A6-0xe),(A0)> {}
<MI 2210c BRA 0x22112> {}
<POP 2210e-22112 Naked> Σ0 ↓ ←0x220de
<MI 2210e MOVE.L (A6-0xe),(A4+0x8)> {}
<POP 22112-22114 Naked> Σ0 ↓ ←0x2210a
<MI 22112 MOVEA.L (A6-0xe),A4> {}
<POP 22114-2211a Naked> Σ0 ↓ →0x220c4 ←0x220c4
<MI 22114 TST.B (A6-0x2)> {}
<MI 22118 BEQ 0x220c4> {}
<POP 2211a-2212a Naked> Σ0 ↓ →0x2212c
<MI 2211a MOVEA.L (A6+0x8),A0> {}
<MI 2211e CLR.B (A0)> {}
<MI 22120 MOVE.B (A6-0x2),D0> {}
<MI 22124 CMPI.B #0x02,D0> {}
<MI 22128 BNE 0x2212c> {}
<POP 2212a-2212c Naked> Σ0 ↓
<MI 2212a ADDQ.B #0x1,(A0)> {}
<POP 2212c-22134 Epilogue> Σ0 ←0x2211a
@ 22134
<LVAR 0x00c 4(w)>
<LVAR 0x008 4(r)>
<POP 22134-2216a Body>
<POP 22134-2214a Prologue> Σ0 ↓
<POP 2214a-22150 Naked> Σ0 ↓
<MI 2214a MOVEQ.L #-0x01,D7> {}
<MI 2214c MOVEA.L (A6+0x8),A4> {}
<POP 22150-22156 Naked> Σ0 ↓ →0x2215e ←0x22156
<MI 22150 CMPA.W #0x1,A4> {}
<MI 22154 BEQ 0x2215e> {}
<POP 22156-2215e Naked> Σ0 →0x22150
<MI 22156 ADDQ.L #0x1,D7> {}
<MI 22158 MOVEA.L (A4+0x8),A4> {}
<MI 2215c BRA 0x22150> {}
<POP 2215e-22162 Naked> Σ0 ↓ ←0x22150
<MI 2215e MOVE.L D7,(A6+0xc)> {}
<POP 22162-2216a Epilogue> Σ0
@ 2216a
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 2216a-221f6 Body>
<POP 2216a-22180 Prologue> Σ0 ↓
<POP 22180-22182 RegCacheLoad> Σ0 ↓
<POP 22182-22196 Naked> Σ0 ↓ →0x221ee
<POP 22182-22184 StackAdj> Δ-4 {[-4-]}
<MI 22184 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']}
<Call 0x22188 0x22134> {[-4-]|[4, '(A6+0xc)']}
<POP 2218c-2218e StackAdj> Δ+4 {[-4-]}
<MI 2218e MOVE.L (A7)+,D0> Δ+4 {}
<MI 22190 CMP.L (A6+0x8),D0> {}
<MI 22194 BEQ 0x221ee> {}
<POP 22196-221ee Naked> Σ0 ↓
<MI 22196 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<Call 0x2219a 0x21ce6> {[4, '(A6+0xc)']}
<POP 2219e-221a0 StackAdj> Δ+4 {}
<Blob 0x221a0 [32] @> Δ-32 {[«32""»]}
<Blob 0x221ac [10] (A6+0x1a)> Δ-10 {[«32""»]|[«10»]}
<POP 221b8-221ba StackAdj> Δ-8 {[«32""»]|[«10»]|[-8-]}
<Lit 0x221ba 32> {[«32""»]|[«10»]|[-4-]|[$$Wrong number of arguments for :_]}
<POP 221ca-221cc StackAdj> Δ-4 {[«32""»]|[«10»]|[-4-]|[$$Wrong number of arguments for :_]|[-4-]}
<Lit 0x221cc> {[«32""»]|[«10»]|[-4-]|[$$Wrong number of arguments for :_]|[$$…]}
<Pointer.sp 0x221cc 12> Δ-4
<Const 0x221d0 0x1.2> Δ-2
<Const 0x221d2 0xa.2> Δ-2
<Call 0x221d6 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 221dc-221de StackAdj> Δ+8
<Call 0x221de 0x102d0> {[«32""»]|[«10»]|[-4-]|[$$Wrong number of arguments for :_]|[$$…]}
StringCat2(a, b : String) : String
<POP 221e4-221e6 StackAdj> Δ+8 {[«32""»]|[«10»]|[-4-]}
<Call 0x221e6 0x21d28> {[«32""»]|[«10»]|[-4-]}
<POP 221ea-221ee StackAdj> Δ+46 {}
<POP 221ee-221f6 Epilogue> Σ0 ←0x22182
@ 221f6
<LVAR 0x014 1(rw)>
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 221f6-2227c Body> Δ-4
<POP 221f6-2220c Prologue> Σ0 ↓
<POP 2220c-22220 Naked> Σ0 ↓ →0x2226e
<MI 2220c CLR.B (A6+0x14)> {}
<MI 22210 MOVE.L (A6+0x10),D0> {}
<MI 22214 ADD.L (A6+0x8),D0> {}
<MI 22218 CMP.L 0x26836,D0> {}
<MI 2221e BGT 0x2226e> {}
<POP 22220-22226 Naked> Σ0 Δ-4 ↓
<MI 22220 MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<MI 22224 MOVEQ.L #0x01,D7> {[4, '(A6+0x8)']}
<POP 22226-2222a Naked> Σ-4 ↓ →0x2226c ←0x22268
<MI 22226 CMP.L (A7),D7> {[-4-]}
<MI 22228 BGT 0x2226c> {[-4-]}
<POP 2222a-22264 Naked> Σ-4 ↓ →0x22268
<MI 2222a MOVE.L (A6+0x10),D0> {[-4-]}
<MI 2222e ADD.L D7,D0> {[-4-]}
<MI 22230 SUBQ.L #0x1,D0> {[-4-]}
<POP 0x22232 LimitCheck 0x0 ≤ D0 ≤ 0xfff> {[-4-]}
<MI 2223c LEA.L 0x2582a,A0> {[-4-]}
<MI 22242 MOVE.L (A6+0xc),D1> {[-4-]}
<MI 22246 ADD.L D7,D1> {[-4-]}
<MI 22248 SUBQ.L #0x1,D1> {[-4-]}
<MI 2224a SUBQ.L #0x1,D1> {[-4-]}
<POP 0x2224c LimitCheck 0x0 ≤ D1 ≤ 0x3e> {[-4-]}
<MI 22256 LEA.L 0x21842,A1> {[-4-]}
<MI 2225a MOVE.B (A0+D0.L+#0x8),D0> {[-4-]}
<MI 2225e CMP.B (A1+D1.L),D0> {[-4-]}
<MI 22262 BEQ 0x22268> {[-4-]}
<POP 22264-22268 Naked> Σ-4 Δ+4 →0x22274
<POP 22264-22266 StackAdj> Δ+4 {}
<MI 22266 BRA 0x22274> {}
<POP 22268-2226c Naked> Σ-4 ↓ →0x22226 ←0x2222a
<MI 22268 ADDQ.L #0x1,D7> {[-4-]}
<MI 2226a BVC 0x22226> {[-4-]}
<POP 2226c-2226e Naked> Σ-4 Δ+4 ↓ ←0x22226
<POP 2226c-2226e StackAdj> Δ+4 {}
<POP 2226e-22274 Naked> Σ0 ↓ ←0x2220c
<MI 2226e MOVE.B #0x01,(A6+0x14)> {}
<POP 22274-2227c Epilogue> Σ0 ←0x22264
@ 2227c
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 2227c-22306 Body>
<POP 2227c-22292 Prologue> Σ0 ↓
<POP 22292-2229c RegCacheLoad> Σ0 ↓
<POP 2229c-222a0 Naked> Σ0 ↓ →0x222de
<MI 2229c TST.L (A6+0x8)> {}
<MI 2229e BGE 0x222de> {}
<POP 222a0-222ae Naked> Σ0 ↓ →0x222de
<MI 222a0 MOVE.L (A6+0x8),D0> {}
<MI 222a2 NEG.L D0> {}
<MI 222a4 ADD.L 0x26836,D0> {}
<MI 222a6 CMPI.L #0x00001000,D0> {}
<MI 222ac BLE 0x222de> {}
<POP 222ae-222de Naked> Σ0 ↓
<Blob 0x222ae [28] @> Δ-28 {[«28""»]}
<POP 222c0-222c2 StackAdj> Δ-4 {[«28""»]|[-4-]}
<Lit 0x222c2 27> {[«28""»]|[$$Evaluation buffer overflow.]}
<Call 0x222d6 0x21d28> {[«28""»]|[$$Evaluation buffer overflow.]}
<POP 222da-222de StackAdj> Δ+32 {}
<POP 222de-222fe Naked> Σ0 ↓ ←0x2229c ←0x222a0
<MI 222de LEA.L 0x25832,A0> {}
<MI 222e4 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Blob 0x222e6 [4] 0x26836> Δ-4 {[4, 'A0']|[«4»]}
<MI 222e8 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, 'A0']|[«4»]|[4, '(A6+0xc)']}
<MI 222ec MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, 'A0']|[«4»]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x222ee 0x10364> {[4, 'A0']|[«4»]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
MovStringTail(Base, Len, Ptr, Delta)
<POP 222f4-222f8 StackAdj> Δ+16 {}
<MI 222f8 MOVE.L 0x26836,D0> {}
<MI 222fa SUB.L (A6+0x8),D0> {}
<MI 222fc MOVE.L D0,0x26836> {}
<POP 222fe-22306 Epilogue> Σ0
@ 22306
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 22306-22390 Body>
<POP 22306-2231c Prologue> Σ0 ↓
<POP 2231c-22320 RegCacheLoad> Σ0 ↓
<POP 22320-22340 Naked> Σ0 Δ-8 ↓
<MI 22320 MOVEA.L (A6+0x8),A0> {}
<MI 22324 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 22326 MOVEA.L (A6+0xc),A1> {[4, 'A0']}
<MI 22328 MOVE.L (A1),-(A7)> Δ-4 {[4, 'A0']|[4, '(A1)']}
<MI 2232a MOVE.W (A0),D0> {[4, 'A0']|[4, '(A1)']}
<MI 2232c EXTW.L D0> {[4, 'A0']|[4, '(A1)']}
<MI 2232e NEG.L D0> {[4, 'A0']|[4, '(A1)']}
<MI 22330 MOVE.L D0,-(A7)> Δ-4 {[4, 'A0']|[4, '(A1)']|[4, 'D0']}
<Call 0x22332 0x2227c> {[4, 'A0']|[4, '(A1)']|[4, 'D0']}
<POP 22336-22338 StackAdj> Δ+8 {[4, 'A0']}
<MI 22338 MOVE.W (A0),D0> {[4, 'A0']}
<MI 2233a EXTW.L D0> {[4, 'A0']}
<MI 2233c MOVE.L D0,-(A7)> Δ-4 {[4, 'A0']|[4, 'D0']}
<MI 2233e MOVEQ.L #0x01,D7> {[4, 'A0']|[4, 'D0']}
<POP 22340-22344 Naked> Σ-8 ↓ →0x2237a ←0x22344
<MI 22340 CMP.L (A7),D7> {[-8-]}
<MI 22342 BGT 0x2237a> {[-8-]}
<POP 22344-2237a Naked> Σ-8 ↓ →0x22340
<MI 22344 MOVEA.L (A6+0xc),A0> {[-8-]}
<MI 22346 MOVE.L D7,D0> {[-8-]}
<MI 22348 ADD.L (A0),D0> {[-8-]}
<MI 2234a SUBQ.L #0x1,D0> {[-8-]}
<MI 2234c SUBQ.L #0x1,D0> {[-8-]}
<POP 0x2234e LimitCheck 0x0 ≤ D0 ≤ 0xfff> {[-8-]}
<MI 22358 LEA.L 0x2582a,A0> {[-8-]}
<MI 2235e MOVE.L D7,D1> {[-8-]}
<MI 22360 SUBQ.L #0x1,D1> {[-8-]}
<POP 0x22362 LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-8-]}
<MI 2236c MOVEA.L (A7+0x4),A1> {[-8-]}
<MI 22370 MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x8)> {[-8-]}
<MI 22376 ADDQ.L #0x1,D7> {[-8-]}
<MI 22378 BVC 0x22340> {[-8-]}
<POP 2237a-22388 Naked> Σ-8 Δ+8 ↓ ←0x22340
<POP 2237a-2237c StackAdj> Δ+4 {[-4-]}
<MI 2237c MOVEA.L (A6+0xc),A0> {[-4-]}
<MI 2237e MOVEA.L (A7),A1> {[-4-]}
<MI 22380 MOVE.W (A1),D0> {[-4-]}
<MI 22382 EXTW.L D0> {[-4-]}
<MI 22384 ADD.L D0,(A0)> {[-4-]}
<POP 22386-22388 StackAdj> Δ+4 {}
<POP 22388-22390 Epilogue> Σ0
@ 22390
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 22390-22510 Body>
<POP 22390-223a6 Prologue> Σ0 ↓
<POP 223a6-223b4 RegCacheLoad> Σ0 ↓
<POP 223b4-223c6 Naked> Σ0 ↓
<MI 223b4 MOVEQ.L #0x00,D7> {}
<MI 223b6 MOVEA.L (A6+0xc),A0> {}
<MI 223ba CLR.L (A0)> {}
<MI 223bc MOVEA.L (A6+0x8),A0> {}
<MI 223be CLR.L (A0)> {}
<MI 223c0 MOVE.L 0x26832,D6> {}
<POP 223c6-223e6 Naked> Σ0 ↓ →0x224b8 ←0x224c2 ←0x224c8
<MI 223c6 MOVE.L D6,D0> {}
<MI 223c8 SUBQ.L #0x1,D0> {}
<POP 0x223ca LimitCheck 0x0 ≤ D0 ≤ 0xfff> {}
<MI 223d4 LEA.L 0x2582a,A0> {}
<MI 223da MOVE.B (A0+D0.L+#0x8),D0> {}
<MI 223de CMPI.B #0x5b,D0> {}
<MI 223e2 BNE 0x224b8> {}
<POP 223e6-223fa Naked> Σ0 ↓ →0x22478
<POP 223e6-223e8 StackAdj> Δ-2 {[-2-]}
<MI 223e8 MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x223ea 0x1.4> Δ-4 {[-2-]|[4, 'D6']|[##1]}
<Const 0x223ee 0x3.4> Δ-4 {[-2-]|[4, 'D6']|[##1]|[##3]}
<Call 0x223f2 0x221f6> {[-2-]|[4, 'D6']|[##1]|[##3]}
<POP 223f4-223f6 StackAdj> Δ+12 {[-2-]}
<MI 223f6 TST.B (A7)+> Δ+2 {}
<MI 223f8 BNE 0x22478> {}
<POP 223fa-2240c Naked> Σ0 ↓ →0x22478
<POP 223fa-223fc StackAdj> Δ-2 {[-2-]}
<MI 223fc MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x223fe 0x4.4> Δ-4 {[-2-]|[4, 'D6']|[##4]}
<Const 0x22400 0x3.4> Δ-4 {[-2-]|[4, 'D6']|[##4]|[##3]}
<Call 0x22404 0x221f6> {[-2-]|[4, 'D6']|[##4]|[##3]}
<POP 22406-22408 StackAdj> Δ+12 {[-2-]}
<MI 22408 TST.B (A7)+> Δ+2 {}
<MI 2240a BNE 0x22478> {}
<POP 2240c-2241e Naked> Σ0 ↓ →0x22478
<POP 2240c-2240e StackAdj> Δ-2 {[-2-]}
<MI 2240e MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x22410 0x7.4> Δ-4 {[-2-]|[4, 'D6']|[##7]}
<Const 0x22414 0x4.4> Δ-4 {[-2-]|[4, 'D6']|[##7]|[##4]}
<Call 0x22416 0x221f6> {[-2-]|[4, 'D6']|[##7]|[##4]}
<POP 22418-2241a StackAdj> Δ+12 {[-2-]}
<MI 2241a TST.B (A7)+> Δ+2 {}
<MI 2241c BNE 0x22478> {}
<POP 2241e-22430 Naked> Σ0 ↓ →0x22478
<POP 2241e-22420 StackAdj> Δ-2 {[-2-]}
<MI 22420 MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x22422 0xb.4> Δ-4 {[-2-]|[4, 'D6']|[##11]}
<Const 0x22426 0x4.4> Δ-4 {[-2-]|[4, 'D6']|[##11]|[##4]}
<Call 0x22428 0x221f6> {[-2-]|[4, 'D6']|[##11]|[##4]}
<POP 2242a-2242c StackAdj> Δ+12 {[-2-]}
<MI 2242c TST.B (A7)+> Δ+2 {}
<MI 2242e BNE 0x22478> {}
<POP 22430-22442 Naked> Σ0 ↓ →0x22478
<POP 22430-22432 StackAdj> Δ-2 {[-2-]}
<MI 22432 MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x22434 0xf.4> Δ-4 {[-2-]|[4, 'D6']|[##15]}
<Const 0x22438 0x4.4> Δ-4 {[-2-]|[4, 'D6']|[##15]|[##4]}
<Call 0x2243a 0x221f6> {[-2-]|[4, 'D6']|[##15]|[##4]}
<POP 2243c-2243e StackAdj> Δ+12 {[-2-]}
<MI 2243e TST.B (A7)+> Δ+2 {}
<MI 22440 BNE 0x22478> {}
<POP 22442-22454 Naked> Σ0 ↓ →0x22478
<POP 22442-22444 StackAdj> Δ-2 {[-2-]}
<MI 22444 MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x22446 0x13.4> Δ-4 {[-2-]|[4, 'D6']|[##19]}
<Const 0x2244a 0x4.4> Δ-4 {[-2-]|[4, 'D6']|[##19]|[##4]}
<Call 0x2244c 0x221f6> {[-2-]|[4, 'D6']|[##19]|[##4]}
<POP 2244e-22450 StackAdj> Δ+12 {[-2-]}
<MI 22450 TST.B (A7)+> Δ+2 {}
<MI 22452 BNE 0x22478> {}
<POP 22454-22466 Naked> Σ0 ↓ →0x22478
<POP 22454-22456 StackAdj> Δ-2 {[-2-]}
<MI 22456 MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x22458 0x17.4> Δ-4 {[-2-]|[4, 'D6']|[##23]}
<Const 0x2245c 0x4.4> Δ-4 {[-2-]|[4, 'D6']|[##23]|[##4]}
<Call 0x2245e 0x221f6> {[-2-]|[4, 'D6']|[##23]|[##4]}
<POP 22460-22462 StackAdj> Δ+12 {[-2-]}
<MI 22462 TST.B (A7)+> Δ+2 {}
<MI 22464 BNE 0x22478> {}
<POP 22466-22478 Naked> Σ0 ↓ →0x2247c
<POP 22466-22468 StackAdj> Δ-2 {[-2-]}
<MI 22468 MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x2246a 0x1b.4> Δ-4 {[-2-]|[4, 'D6']|[##27]}
<Const 0x2246e 0x4.4> Δ-4 {[-2-]|[4, 'D6']|[##27]|[##4]}
<Call 0x22470 0x221f6> {[-2-]|[4, 'D6']|[##27]|[##4]}
<POP 22472-22474 StackAdj> Δ+12 {[-2-]}
<MI 22474 TST.B (A7)+> Δ+2 {}
<MI 22476 BEQ 0x2247c> {}
<POP 22478-2247c Naked> Σ0 →0x224b8 ←0x223e6 ←0x223fa ←0x2240c ←0x2241e ←0x22430 ←0x22442 ←0x22454
<MI 22478 ADDQ.L #0x1,D7> {}
<MI 2247a BRA 0x224b8> {}
<POP 2247c-22480 Naked> Σ0 ↓ →0x2249c ←0x22466
<MI 2247c TST.L D7> {}
<MI 2247e BNE 0x2249c> {}
<POP 22480-22494 Naked> Σ0 ↓ →0x2249c
<POP 22480-22482 StackAdj> Δ-2 {[-2-]}
<MI 22482 MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x22484 0x1f.4> Δ-4 {[-2-]|[4, 'D6']|[##31]}
<Const 0x22488 0x5.4> Δ-4 {[-2-]|[4, 'D6']|[##31]|[##5]}
<Call 0x2248c 0x221f6> {[-2-]|[4, 'D6']|[##31]|[##5]}
<POP 2248e-22490 StackAdj> Δ+12 {[-2-]}
<MI 22490 TST.B (A7)+> Δ+2 {}
<MI 22492 BEQ 0x2249c> {}
<POP 22494-22498 Naked> Σ0 ↓
<MI 22494 MOVEA.L (A6+0xc),A0> {}
<POP 22498-2249c Naked> Σ0 →0x224b8 ←0x224b2
<MI 22498 MOVE.L D6,(A0)> {}
<MI 2249a BRA 0x224b8> {}
<POP 2249c-224ae Naked> Σ0 ↓ →0x224b8 ←0x2247c ←0x22480
<POP 2249c-2249e StackAdj> Δ-2 {[-2-]}
<MI 2249e MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x224a0 0x24.4> Δ-4 {[-2-]|[4, 'D6']|[##36]}
<Const 0x224a4 0x4.4> Δ-4 {[-2-]|[4, 'D6']|[##36]|[##4]}
<Call 0x224a6 0x221f6> {[-2-]|[4, 'D6']|[##36]|[##4]}
<POP 224a8-224aa StackAdj> Δ+12 {[-2-]}
<MI 224aa TST.B (A7)+> Δ+2 {}
<MI 224ac BEQ 0x224b8> {}
<POP 224ae-224b2 Naked> Σ0 ↓ →0x224b6
<MI 224ae TST.L D7> {}
<MI 224b0 BNE 0x224b6> {}
<POP 224b2-224b6 Naked> Σ0 →0x22498
<MI 224b2 MOVEA.L (A6+0x8),A0> {}
<MI 224b4 BRA 0x22498> {}
<POP 224b6-224b8 Naked> Σ0 ↓ ←0x224ae
<MI 224b6 SUBQ.L #0x1,D7> {}
<POP 224b8-224c2 Naked> Σ0 ↓ →0x224d0 ←0x223c6 ←0x22478 ←0x22498 ←0x2249c
<MI 224b8 ADDQ.L #0x1,D6> {}
<MI 224ba CMP.L 0x26836,D6> {}
<MI 224c0 BGT 0x224d0> {}
<POP 224c2-224c8 Naked> Σ0 ↓ →0x223c6
<MI 224c2 TST.L D7> {}
<MI 224c4 BNE 0x223c6> {}
<POP 224c8-224d0 Naked> Σ0 ↓ →0x223c6
<MI 224c8 MOVEA.L (A6+0x8),A0> {}
<MI 224ca TST.L (A0)> {}
<MI 224cc BEQ 0x223c6> {}
<POP 224d0-224d8 Naked> Σ0 ↓ →0x22508 ←0x224b8
<MI 224d0 CMP.L 0x26836,D6> {}
<MI 224d6 BLE 0x22508> {}
<POP 224d8-22508 Naked> Σ0 ↓
<Blob 0x224d8 [28] @> Δ-28 {[«28""»]}
<POP 224ea-224ec StackAdj> Δ-4 {[«28""»]|[-4-]}
<Lit 0x224ec 27> {[«28""»]|[$$Unbalanced [ELSE] or [END]!]}
<Call 0x22500 0x21d28> {[«28""»]|[$$Unbalanced [ELSE] or [END]!]}
<POP 22504-22508 StackAdj> Δ+32 {}
<POP 22508-22510 Epilogue> Σ0 ←0x224d0
@ 22510
<LVAR -0x004 @ 4(r)>
<LVAR -0x008 @ 4(rw)>
<POP 22510-22556 Body>
<POP 22510-22526 Prologue> Σ0 ↓
<POP 22526-2252e RegCacheLoad> Σ0 ↓
<POP 2252e-2253c Naked> Σ0 ↓ →0x2253e
<Pointer.fp 0x2252e <LVAR -0x008 @ 4(rw)>> Δ-4 {[@@-8]}
<Pointer.fp 0x22530 <LVAR -0x004 @ 4(r)>> Δ-4 {[@@-8]|[@@-4]}
<Call 0x22532 0x22390> {[@@-8]|[@@-4]}
<POP 22536-22538 StackAdj> Δ+8 {}
<MI 22538 TST.L (A6-0x8)> {}
<MI 2253a BNE 0x2253e> {}
<POP 2253c-2253e Naked> Σ0 ↓
<MI 2253c MOVE.L (A6-0x4),(A6-0x8)> {}
<POP 2253e-2254e Naked> Σ0 ↓ ←0x2252e
<MI 2253e MOVE.L (A6-0x4),D0> {}
<MI 22540 ADDQ.L #0x5,D0> {}
<MI 22542 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 22544 SUB.L (A6-0x8),D0> {[4, 'D0']}
<MI 22546 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']|[4, 'D0']}
<Call 0x22548 0x2227c> {[4, 'D0']|[4, 'D0']}
<POP 2254c-2254e StackAdj> Δ+8 {}
<POP 2254e-22556 Epilogue> Σ0
@ 22556
<LVAR -0x004 @ 4(r)>
<LVAR -0x008 @ 4(r)>
<POP 22556-225b2 Body>
<POP 22556-2256c Prologue> Σ0 ↓
<POP 2256c-22574 RegCacheLoad> Σ0 ↓
<POP 22574-22582 Naked> Σ0 ↓ →0x22588
<Pointer.fp 0x22574 <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-8]}
<Pointer.fp 0x22576 <LVAR -0x004 @ 4(r)>> Δ-4 {[@@-8]|[@@-4]}
<Call 0x22578 0x22390> {[@@-8]|[@@-4]}
<POP 2257c-2257e StackAdj> Δ+8 {}
<MI 2257e TST.L (A6-0x8)> {}
<MI 22580 BNE 0x22588> {}
<POP 22582-22588 Naked> Σ0 →0x2259a
<MI 22582 MOVE.L (A6-0x4),D0> {}
<MI 22584 ADDQ.L #0x5,D0> {}
<MI 22586 BRA 0x2259a> {}
<POP 22588-2259a Naked> Σ0 ↓ ←0x22574
<MI 22588 MOVE.L (A6-0x4),-(A7)> Δ-4 {[4, '(A6-0x4)']}
<MI 2258a ADDQ.L #0x5,(A7)> {[-4-]}
<Const 0x2258c 0x5.4> Δ-4 {[-4-]|[##5]}
<Call 0x22590 0x2227c> {[-4-]|[##5]}
<POP 22594-22596 StackAdj> Δ+8 {}
<MI 22596 MOVE.L (A6-0x8),D0> {}
<MI 22598 ADDQ.L #0x6,D0> {}
<POP 2259a-225aa Naked> Σ0 ↓ ←0x22582
<MI 2259a MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 2259c SUB.L 0x26832,D0> {[4, 'D0']}
<MI 225a2 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']|[4, 'D0']}
<Call 0x225a4 0x2227c> {[4, 'D0']|[4, 'D0']}
<POP 225a8-225aa StackAdj> Δ+8 {}
<POP 225aa-225b2 Epilogue> Σ0
@ 225b2
<LVAR 0x008 4(r)>
<LVAR -0x004 @>
<LVAR -0x008 @ 4(r)>
<LVAR -0x00c @ 4(rw)>
<LVAR -0x010 4(rw)>
<LVAR -0x014 4(rw)>
<POP 225b2-226c6 Body>
<POP 225b2-225c8 Prologue> Σ0 ↓
<POP 225c8-225e0 RegCacheLoad> Σ0 ↓
<POP 225e0-225e4 Naked> Σ0 ↓ →0x225ee
<MI 225e0 TST.B 0x26844> {}
<MI 225e2 BEQ 0x225ee> {}
<POP 225e4-225e8 Naked> Σ0 ↓ →0x225ee
<MI 225e4 TST.L 0x2684a> {}
<MI 225e6 BNE 0x225ee> {}
<POP 225e8-225ee Naked> Σ0 ↓
<MI 225e8 MOVE.L (A6+0x8),0x2684a> {}
<MI 225ec SUBQ.L #0x1,0x2684a> {}
<POP 225ee-225f4 Naked> Σ0 ↓ →0x226be ←0x225e0 ←0x225e4
<MI 225ee TST.B 0x26844> {}
<MI 225f0 BNE 0x226be> {}
<POP 225f4-22628 Naked> Σ0 ↓ →0x22642
<MI 225f4 MOVE.L (A6+0x8),0x26832> {}
<MI 225f8 ADDQ.L #0x6,0x26832> {}
<Pointer.fp 0x225fa <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-8]}
<Pointer.fp 0x225fc <LVAR -0x004 @>> Δ-4 {[@@-8]|[@@-4]}
<Call 0x22600 0x22088> {[@@-8]|[@@-4]}
<POP 22604-22606 StackAdj> Δ+8 {}
<Blob 0x22606 [10] @> Δ-10 {[«10""»]}
<MI 22612 MOVE.L (A6-0x8),-(A7)> Δ-4 {[«10""»]|[4, '(A6-0x8)']}
<Const 0x22614 0x0.4> Δ-4 {[«10""»]|[4, '(A6-0x8)']|[##0]}
<Call 0x22618 0x2216a> {[«10""»]|[4, '(A6-0x8)']|[##0]}
<POP 2261c-22620 StackAdj> Δ+18 {}
<MI 22620 TST.B 0x2684e> {}
<MI 22626 BEQ 0x22642> {}
<POP 22628-22642 Naked> Σ0 →0x22656
<POP 22628-2262a StackAdj> Δ-8 {[-8-]}
<MI 2262a MOVE.L (A6-0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x8)']}
<Const 0x2262c 0x0.4> Δ-4 {[-8-]|[4, '(A6-0x8)']|[##0]}
<Call 0x22630 0x22a82> {[-8-]|[4, '(A6-0x8)']|[##0]}
<POP 22636-22638 StackAdj> Δ+8 {[-8-]}
<MI 22638 MOVE.L (A7)+,(A6-0x14)> Δ+4 {[-4-]}
<MI 2263c MOVE.L (A7)+,(A6-0x10)> Δ+4 {}
<MI 22640 BRA 0x22656> {}
<POP 22642-22656 Naked> Σ0 ↓ ←0x225f4
<POP 22642-22644 StackAdj> Δ-4 {[-4-]}
<MI 22644 MOVE.L (A6-0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x8)']}
<Const 0x22646 0x0.4> Δ-4 {[-4-]|[4, '(A6-0x8)']|[##0]}
<Call 0x2264a 0x22a50> {[-4-]|[4, '(A6-0x8)']|[##0]}
<POP 22650-22652 StackAdj> Δ+8 {[-4-]}
<MI 22652 MOVE.L (A7)+,(A6-0xc)> Δ+4 {}
<POP 22656-2266c Naked> Σ0 ↓ →0x22696 ←0x22628
<MI 22656 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<Call 0x22658 0x21ce6> {[4, '(A6-0x8)']}
<POP 2265c-2265e StackAdj> Δ+4 {}
<MI 2265e MOVE.L 0x26832,0x26846> {}
<MI 22664 TST.B 0x2684e> {}
<MI 2266a BEQ 0x22696> {}
<POP 2266c-22696 Naked> Σ0 →0x226be
<POP 2266c-2266e StackAdj> Δ-2 {[-2-]}
<MI 2266e MOVE.L (A6-0x10),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x10)']}
<MI 22672 MOVE.L (A6-0x14),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<Blob 0x22676 [4] 0x26858> Δ-4 {[-2-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']|[«4»]}
<Blob 0x2267c [4] 0x26854> Δ-4 {[-2-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']|[«4»]|[«4»]}
<Call 0x22682 0x1032c> {[-2-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']|[«4»]|[«4»]}
IsEqual(a, b : Quad) : Bool
<POP 22688-2268c StackAdj> Δ+16 {[-2-]}
<MI 2268c MOVE.B (A7)+,D0> Δ+2 {}
<MI 2268e EXTB.W D0> {}
<POP 0x22690 LimitCheck 0x0 ≤ D0 ≤ 0x1> {}
<MI 22692 MOVE.B D0,0x26844> {}
<MI 22694 BRA 0x226be> {}
<POP 22696-226be Naked> Σ0 ↓ ←0x22656
<POP 22696-22698 StackAdj> Δ-2 {[-2-]}
<MI 22698 MOVE.L (A6-0xc),-(A7)> Δ-4 {[-2-]|[4, '(A6-0xc)']}
<Blob 0x2269c [4] 0x26850> Δ-4 {[-2-]|[4, '(A6-0xc)']|[«4»]}
<Call 0x226a2 0x102c8> {[-2-]|[4, '(A6-0xc)']|[«4»]}
StringEqual(a, b : String) : Byte
<POP 226a8-226aa StackAdj> Δ+8 {[-2-]}
<MI 226aa MOVE.B (A7)+,D0> Δ+2 {}
<MI 226ac EXTB.W D0> {}
<POP 0x226ae LimitCheck 0x0 ≤ D0 ≤ 0x1> {}
<MI 226b0 MOVE.B D0,0x26844> {}
<Pointer.fp 0x226b2 <LVAR -0x00c @ 4(rw)>> Δ-4 {[@@-12]}
<Call 0x226b6 0x102bc> {[@@-12]}
FreeString(VAR a : String)
<POP 226bc-226be StackAdj> Δ+4 {}
<POP 226be-226c6 Epilogue> Σ0 ←0x225ee ←0x2266c
@ 226c6
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 226c6-22848 Body>
<POP 226c6-226dc Prologue> Σ0 ↓
<POP 226dc-226f0 RegCacheLoad> Σ0 ↓
<POP 226f0-22704 Naked> Σ0 ↓
<MI 226f0 CLR.B 0x26844> {}
<MI 226f2 CLR.L 0x26846> {}
<MI 226f8 CLR.L 0x2684a> {}
<MI 226fa MOVEQ.L #0x00,D7> {}
<MI 226fc MOVEQ.L #0x00,D6> {}
<MI 226fe MOVE.L 0x26832,D5> {}
<POP 22704-2270a Naked> Σ0 ↓ →0x227a8 ←0x227a4
<MI 22704 TST.L D6> {}
<MI 22706 BNE 0x227a8> {}
<POP 2270a-22714 Naked> Σ0 ↓ →0x227a8
<MI 2270a CMP.L 0x26836,D5> {}
<MI 22710 BGT 0x227a8> {}
<POP 22714-22732 Naked> Σ0 ↓ →0x2279e
<MI 22714 MOVE.L D5,D0> {}
<MI 22716 SUBQ.L #0x1,D0> {}
<POP 0x22718 LimitCheck 0x0 ≤ D0 ≤ 0xfff> {}
<MI 22722 LEA.L 0x2582a,A0> {}
<MI 22728 MOVE.B (A0+D0.L+#0x8),D0> {}
<MI 2272c CMPI.B #0x5b,D0> {}
<MI 22730 BNE 0x2279e> {}
<POP 22732-22746 Naked> Σ0 ↓ →0x2275a
<POP 22732-22734 StackAdj> Δ-2 {[-2-]}
<MI 22734 MOVE.L D5,-(A7)> Δ-4 {[-2-]|[4, 'D5']}
<Const 0x22736 0x28.4> Δ-4 {[-2-]|[4, 'D5']|[##40]}
<Const 0x2273a 0x5.4> Δ-4 {[-2-]|[4, 'D5']|[##40]|[##5]}
<Call 0x2273e 0x221f6> {[-2-]|[4, 'D5']|[##40]|[##5]}
<POP 22740-22742 StackAdj> Δ+12 {[-2-]}
<MI 22742 TST.B (A7)+> Δ+2 {}
<MI 22744 BNE 0x2275a> {}
<POP 22746-2275a Naked> Σ0 ↓ →0x2275e
<POP 22746-22748 StackAdj> Δ-2 {[-2-]}
<MI 22748 MOVE.L D5,-(A7)> Δ-4 {[-2-]|[4, 'D5']}
<Const 0x2274a 0x2d.4> Δ-4 {[-2-]|[4, 'D5']|[##45]}
<Const 0x2274e 0x6.4> Δ-4 {[-2-]|[4, 'D5']|[##45]|[##6]}
<Call 0x22752 0x221f6> {[-2-]|[4, 'D5']|[##45]|[##6]}
<POP 22754-22756 StackAdj> Δ+12 {[-2-]}
<MI 22756 TST.B (A7)+> Δ+2 {}
<MI 22758 BEQ 0x2275e> {}
<POP 2275a-2275e Naked> Σ0 →0x2279e ←0x22732
<MI 2275a ADDQ.L #0x1,D7> {}
<MI 2275c BRA 0x2279e> {}
<POP 2275e-22762 Naked> Σ0 ↓ →0x22780 ←0x22746
<MI 2275e TST.L D7> {}
<MI 22760 BNE 0x22780> {}
<POP 22762-22776 Naked> Σ0 ↓ →0x22780
<POP 22762-22764 StackAdj> Δ-2 {[-2-]}
<MI 22764 MOVE.L D5,-(A7)> Δ-4 {[-2-]|[4, 'D5']}
<Const 0x22766 0x33.4> Δ-4 {[-2-]|[4, 'D5']|[##51]}
<Const 0x2276a 0x5.4> Δ-4 {[-2-]|[4, 'D5']|[##51]|[##5]}
<Call 0x2276e 0x221f6> {[-2-]|[4, 'D5']|[##51]|[##5]}
<POP 22770-22772 StackAdj> Δ+12 {[-2-]}
<MI 22772 TST.B (A7)+> Δ+2 {}
<MI 22774 BEQ 0x22780> {}
<POP 22776-22780 Naked> Σ0 →0x2279e
<MI 22776 MOVE.L D5,-(A7)> Δ-4 {[4, 'D5']}
<Call 0x22778 0x225b2> {[4, 'D5']}
<POP 2277c-2277e StackAdj> Δ+4 {}
<MI 2277e BRA 0x2279e> {}
<POP 22780-22794 Naked> Σ0 ↓ →0x2279e ←0x2275e ←0x22762
<POP 22780-22782 StackAdj> Δ-2 {[-2-]}
<MI 22782 MOVE.L D5,-(A7)> Δ-4 {[-2-]|[4, 'D5']}
<Const 0x22784 0x38.4> Δ-4 {[-2-]|[4, 'D5']|[##56]}
<Const 0x22788 0x8.4> Δ-4 {[-2-]|[4, 'D5']|[##56]|[##8]}
<Call 0x2278c 0x221f6> {[-2-]|[4, 'D5']|[##56]|[##8]}
<POP 2278e-22790 StackAdj> Δ+12 {[-2-]}
<MI 22790 TST.B (A7)+> Δ+2 {}
<MI 22792 BEQ 0x2279e> {}
<POP 22794-22798 Naked> Σ0 ↓ →0x2279c
<MI 22794 TST.L D7> {}
<MI 22796 BNE 0x2279c> {}
<POP 22798-2279c Naked> Σ0 →0x2279e
<MI 22798 MOVE.L D5,D6> {}
<MI 2279a BRA 0x2279e> {}
<POP 2279c-2279e Naked> Σ0 ↓ ←0x22794
<MI 2279c SUBQ.L #0x1,D7> {}
<POP 2279e-227a2 Naked> Σ0 ↓ →0x227a4 ←0x22714 ←0x2275a ←0x22776 ←0x22780 ←0x22798
<MI 2279e TST.L D6> {}
<MI 227a0 BNE 0x227a4> {}
<POP 227a2-227a4 Naked> Σ0 ↓
<MI 227a2 ADDQ.L #0x1,D5> {}
<POP 227a4-227a8 Naked> Σ0 →0x22704 ←0x2279e
<MI 227a4 BRA 0x22704> {}
<POP 227a8-227b0 Naked> Σ0 ↓ →0x227be ←0x22704 ←0x2270a
<MI 227a8 TST.B 0x2684e> {}
<MI 227ae BNE 0x227be> {}
<POP 227b0-227be Naked> Σ0 ↓
<Const 0x227b0 0x26850.4> Δ-4 {[##157776]}
<Call 0x227b6 0x102bc> {[##157776]}
FreeString(VAR a : String)
<POP 227bc-227be StackAdj> Δ+4 {}
<POP 227be-227c2 Naked> Σ0 ↓ →0x227ea ←0x227a8
<MI 227be TST.B 0x26844> {}
<MI 227c0 BNE 0x227ea> {}
<POP 227c2-227ea Naked> Σ0 ↓
<Blob 0x227c2 [26] @> Δ-26 {[«26""»]}
<POP 227ce-227d0 StackAdj> Δ-4 {[«26""»]|[-4-]}
<Lit 0x227d0 26> {[«26""»]|[$$No case alternative found!]}
<Call 0x227e2 0x21d28> {[«26""»]|[$$No case alternative found!]}
<POP 227e6-227ea StackAdj> Δ+30 {}
<POP 227ea-227ee Naked> Σ0 ↓ →0x2281c ←0x227be
<MI 227ea TST.L D6> {}
<MI 227ec BNE 0x2281c> {}
<POP 227ee-2281c Naked> Σ0 ↓
<Blob 0x227ee [20] @> Δ-20 {[«20""»]}
<POP 22800-22802 StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x22802 19> {[«20""»]|[$$No [ENDCASE] found!]}
<Call 0x22814 0x21d28> {[«20""»]|[$$No [ENDCASE] found!]}
<POP 22818-2281c StackAdj> Δ+24 {}
<POP 2281c-22830 Naked> Σ0 ↓ →0x2283a ←0x227ea
<MI 2281c MOVEA.L (A6+0x8),A0> {}
<MI 22820 MOVE.L D6,(A0)> {}
<MI 22822 MOVEA.L (A6+0x10),A0> {}
<MI 22826 MOVE.L 0x26846,(A0)> {}
<MI 2282c TST.L 0x2684a> {}
<MI 2282e BNE 0x2283a> {}
<POP 22830-2283a Naked> Σ0 →0x22840
<MI 22830 MOVEA.L (A6+0xc),A0> {}
<MI 22834 MOVE.L D6,(A0)> {}
<MI 22836 SUBQ.L #0x1,(A0)> {}
<MI 22838 BRA 0x22840> {}
<POP 2283a-22840 Naked> Σ0 ↓ ←0x2281c
<MI 2283a MOVEA.L (A6+0xc),A0> {}
<MI 2283e MOVE.L 0x2684a,(A0)> {}
<POP 22840-22848 Epilogue> Σ0 ←0x22830
@ 22848
<LVAR 0x008 4(r)>
<LVAR -0x008 @ 4(r)>
<LVAR -0x00c @ 4(r)>
<LVAR -0x010 @ 4(r)>
<POP 22848-228bc Body>
<POP 22848-2285e Prologue> Σ0 ↓
<POP 2285e-22868 RegCacheLoad> Σ0 ↓
<POP 22868-228b4 Naked> Σ0 ↓
<MI 22868 MOVE.L 0x26832,D6> {}
<MI 2286a CLR.B 0x2684e> {}
<MI 22870 MOVE.L (A6+0x8),0x26850> {}
<MI 22878 MOVE.L 0x26832,D7> {}
<Pointer.fp 0x2287a <LVAR -0x010 @ 4(r)>> Δ-4 {[@@-16]}
<Pointer.fp 0x2287c <LVAR -0x00c @ 4(r)>> Δ-4 {[@@-16]|[@@-12]}
<Pointer.fp 0x22880 <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-16]|[@@-12]|[@@-8]}
<Call 0x22884 0x226c6> {[@@-16]|[@@-12]|[@@-8]}
<POP 22888-2288c StackAdj> Δ+12 {}
<MI 2288c MOVE.L D6,0x26832> {}
<MI 2288e MOVE.L (A6-0x8),D0> {}
<MI 22892 ADDI.L #0x00000009,D0> {}
<MI 22898 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 2289a SUB.L (A6-0xc),D0> {[4, 'D0']}
<MI 2289e SUBQ.L #0x1,D0> {[4, 'D0']}
<MI 228a0 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']|[4, 'D0']}
<Call 0x228a2 0x2227c> {[4, 'D0']|[4, 'D0']}
<POP 228a6-228a8 StackAdj> Δ+4 {[4, 'D0']}
<MI 228a8 MOVE.L (A6-0x10),(A7)> {[4, '(A6-0x10)']}
<MI 228aa MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0x10)']|[4, '(A6-0x10)']}
<MI 228ac SUB.L D7,(A7)> {[4, '(A6-0x10)']|[-4-]}
<Call 0x228ae 0x2227c> {[4, '(A6-0x10)']|[-4-]}
<POP 228b2-228b4 StackAdj> Δ+8 {}
<POP 228b4-228bc Epilogue> Σ0
@ 228bc
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x008 @ 4(r)>
<LVAR -0x00c @ 4(r)>
<LVAR -0x010 @ 4(r)>
<POP 228bc-2293a Body>
<POP 228bc-228d2 Prologue> Σ0 ↓
<POP 228d2-228dc RegCacheLoad> Σ0 ↓
<POP 228dc-22932 Naked> Σ0 ↓
<MI 228dc MOVE.L 0x26832,D6> {}
<MI 228de MOVE.B #0x01,0x2684e> {}
<MI 228e6 MOVE.L (A6+0x8),0x26854> {}
<MI 228ee MOVE.L (A6+0xc),0x26858> {}
<MI 228f6 MOVE.L 0x26832,D7> {}
<Pointer.fp 0x228f8 <LVAR -0x010 @ 4(r)>> Δ-4 {[@@-16]}
<Pointer.fp 0x228fa <LVAR -0x00c @ 4(r)>> Δ-4 {[@@-16]|[@@-12]}
<Pointer.fp 0x228fe <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-16]|[@@-12]|[@@-8]}
<Call 0x22902 0x226c6> {[@@-16]|[@@-12]|[@@-8]}
<POP 22906-2290a StackAdj> Δ+12 {}
<MI 2290a MOVE.L D6,0x26832> {}
<MI 2290c MOVE.L (A6-0x8),D0> {}
<MI 22910 ADDI.L #0x00000009,D0> {}
<MI 22916 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 22918 SUB.L (A6-0xc),D0> {[4, 'D0']}
<MI 2291c SUBQ.L #0x1,D0> {[4, 'D0']}
<MI 2291e MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']|[4, 'D0']}
<Call 0x22920 0x2227c> {[4, 'D0']|[4, 'D0']}
<POP 22924-22926 StackAdj> Δ+4 {[4, 'D0']}
<MI 22926 MOVE.L (A6-0x10),(A7)> {[4, '(A6-0x10)']}
<MI 22928 MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0x10)']|[4, '(A6-0x10)']}
<MI 2292a SUB.L D7,(A7)> {[4, '(A6-0x10)']|[-4-]}
<Call 0x2292c 0x2227c> {[4, '(A6-0x10)']|[-4-]}
<POP 22930-22932 StackAdj> Δ+8 {}
<POP 22932-2293a Epilogue> Σ0
@ 2293a
<LVAR 0x010 4(rw)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 2293a-22972 Body>
<POP 2293a-22950 Prologue> Σ0 ↓
<POP 22950-22956 Naked> Σ0 ↓ →0x2295c
<MI 22950 TST.L (A6+0x8)> {}
<MI 22954 BNE 0x2295c> {}
<POP 22956-2295c Naked> Σ0 →0x2296a
<MI 22956 CLR.L (A6+0x10)> {}
<MI 2295a BRA 0x2296a> {}
<POP 2295c-2296a Naked> Σ0 ↓ ←0x22950
<MI 2295c MOVE.L (A6+0xc),D0> {}
<MI 22960 SUB.L (A6+0x8),D0> {}
<MI 22964 ADDQ.L #0x1,D0> {}
<MI 22966 MOVE.L D0,(A6+0x10)> {}
<POP 2296a-22972 Epilogue> Σ0 ←0x22956
@ 22972
<LVAR 0x014 4(w)>
<LVAR 0x010 @ 4(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 22972-229d4 Body> Δ-4
<POP 22972-22988 Prologue> Σ0 ↓
<POP 22988-2299e Naked> Σ0 Δ-4 ↓
<MI 22988 MOVEA.L (A6+0xc),A4> {}
<MI 2298c MOVE.L 0x21c40,(A6+0x10)> {}
<MI 22992 MOVE.L 0x21c44,(A6+0x14)> {}
<MI 22998 MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<MI 2299c MOVEQ.L #0x00,D7> {[4, '(A6+0x8)']}
<POP 2299e-229a2 Naked> Σ-4 ↓ →0x229ca ←0x229c6
<MI 2299e CMP.L (A7),D7> {[-4-]}
<MI 229a0 BGT 0x229ca> {[-4-]}
<POP 229a2-229a8 Naked> Σ-4 ↓ →0x229ac
<MI 229a2 CMPA.W #0x1,A4> {[-4-]}
<MI 229a6 BNE 0x229ac> {[-4-]}
<POP 229a8-229ac Naked> Σ-4 Δ+4 →0x229cc
<POP 229a8-229aa StackAdj> Δ+4 {}
<MI 229aa BRA 0x229cc> {}
<POP 229ac-229b2 Naked> Σ-4 ↓ →0x229c2 ←0x229a2
<MI 229ac CMP.L (A6+0x8),D7> {[-4-]}
<MI 229b0 BNE 0x229c2> {[-4-]}
<POP 229b2-229c2 Naked> Σ-4 →0x229c6
<MI 229b2 LEA.L (A6+0x10),A0> {[-4-]}
<MI 229b6 MOVEA.L A4,A1> {[-4-]}
<BlockMove 8,A1,A0> {[-4-]}
<MI 229c0 BRA 0x229c6> {[-4-]}
<POP 229c2-229c6 Naked> Σ-4 ↓ ←0x229ac
<MI 229c2 MOVEA.L (A4+0x8),A4> {[-4-]}
<POP 229c6-229ca Naked> Σ-4 ↓ →0x2299e ←0x229b2
<MI 229c6 ADDQ.L #0x1,D7> {[-4-]}
<MI 229c8 BVC 0x2299e> {[-4-]}
<POP 229ca-229cc Naked> Σ-4 Δ+4 ↓ ←0x2299e
<POP 229ca-229cc StackAdj> Δ+4 {}
<POP 229cc-229d4 Epilogue> Σ0 ←0x229a8
@ 229d4
<LVAR 0x010 4(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x008 @ 4(r)>
<POP 229d4-22a50 Body> Δ-4
<POP 229d4-229ea Prologue> Σ0 ↓
<POP 229ea-229ee RegCacheLoad> Σ0 ↓
<POP 229ee-22a06 Naked> Σ0 Δ-4 ↓
<Pointer.fp 0x229ee <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-8]}
<Call 0x229f0 0x102b8> {[@@-8]}
NewString(VAR a : String)
<MI 229f6 MOVE.L (A6+0xc),-(A7)> Δ-4 {[@@-8]|[4, '(A6+0xc)']}
<MI 229fa MOVE.L (A6+0x8),-(A7)> Δ-4 {[@@-8]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x229fe 0x2293a> {[@@-8]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 22a02-22a04 StackAdj> Δ+8 {[@@-8]}
<MI 22a04 MOVEQ.L #0x01,D7> {[@@-8]}
<POP 22a06-22a0a Naked> Σ-4 ↓ →0x22a42 ←0x22a32
<MI 22a06 CMP.L (A7),D7> {[-4-]}
<MI 22a08 BGT 0x22a42> {[-4-]}
<POP 22a0a-22a2e Naked> Σ-4 ↓ →0x22a32
<MI 22a0a MOVE.L D7,D0> {[-4-]}
<MI 22a0c ADD.L (A6+0x8),D0> {[-4-]}
<MI 22a10 SUBQ.L #0x1,D0> {[-4-]}
<MI 22a12 SUBQ.L #0x1,D0> {[-4-]}
<POP 0x22a14 LimitCheck 0x0 ≤ D0 ≤ 0xfff> {[-4-]}
<MI 22a1e LEA.L 0x2582a,A0> {[-4-]}
<MI 22a24 MOVE.B (A0+D0.L+#0x8),D6> {[-4-]}
<MI 22a28 CMPI.B #0x2f,D6> {[-4-]}
<MI 22a2c BNE 0x22a32> {[-4-]}
<POP 22a2e-22a32 Naked> Σ-4 Δ+4 →0x22a44
<POP 22a2e-22a30 StackAdj> Δ+4 {}
<MI 22a30 BRA 0x22a44> {}
<POP 22a32-22a42 Naked> Σ-4 ↓ →0x22a06 ←0x22a0a
<MI 22a32 MOVE.L (A6-0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x8)']}
<MI 22a34 MOVE.B D6,-(A7)> Δ-2 {[-4-]|[4, '(A6-0x8)']|[2, 'D6']}
<Call 0x22a36 0x102c0> {[-4-]|[4, '(A6-0x8)']|[2, 'D6']}
AppendChar(MOD b : String; a : char)
<POP 22a3c-22a3e StackAdj> Δ+6 {[-4-]}
<MI 22a3e ADDQ.L #0x1,D7> {[-4-]}
<MI 22a40 BVC 0x22a06> {[-4-]}
<POP 22a42-22a44 Naked> Σ-4 Δ+4 ↓ ←0x22a06
<POP 22a42-22a44 StackAdj> Δ+4 {}
<POP 22a44-22a48 Naked> Σ0 ↓ ←0x22a2e
<MI 22a44 MOVE.L (A6-0x8),(A6+0x10)> {}
<POP 22a48-22a50 Epilogue> Σ0
@ 22a50
<LVAR 0x010 4(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 22a50-22a82 Body>
<POP 22a50-22a62 Prologue> Σ0 ↓
<POP 22a62-22a7e Naked> Σ0 ↓
<POP 22a62-22a66 StackAdj> Δ-12 {[-12-]}
<MI 22a66 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-12-]|[4, '(A6+0xc)']}
<MI 22a6a MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x22a6e 0x22972> {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 22a72-22a74 StackAdj> Δ+8 {[-12-]}
<Call 0x22a74 0x229d4> {[-12-]}
<POP 22a78-22a7a StackAdj> Δ+8 {[-4-]}
<MI 22a7a MOVE.L (A7)+,(A6+0x10)> Δ+4 {}
<POP 22a7e-22a82 Epilogue> Σ0
@ 22a82
<LVAR 0x014 4(w)>
<LVAR 0x010 4(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 22a82-22abe Body>
<POP 22a82-22a94 Prologue> Σ0 ↓
<POP 22a94-22aba Naked> Σ0 ↓
<POP 22a94-22a98 StackAdj> Δ-12 {[-12-]}
<MI 22a98 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-12-]|[4, '(A6+0xc)']}
<MI 22a9c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x22aa0 0x22a50> {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 22aa4-22aa6 StackAdj> Δ+8 {[-12-]}
<Const 0x22aa6 0x10.4> Δ-4 {[-12-]|[##16]}
<Call 0x22aaa 0x10360> {[-12-]|[##16]}
?StringToInt64()
<POP 22ab0-22ab2 StackAdj> Δ+8 {[-8-]}
<MI 22ab2 MOVE.L (A7)+,(A6+0x10)> Δ+4 {[-4-]}
<MI 22ab6 MOVE.L (A7)+,(A6+0x14)> Δ+4 {}
<POP 22aba-22abe Epilogue> Σ0
@ 22abe
<LVAR 0x010 4(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 22abe-22af2 Body>
<POP 22abe-22ad0 Prologue> Σ0 ↓
<POP 22ad0-22aee Naked> Σ0 ↓
<POP 22ad0-22ad4 StackAdj> Δ-12 {[-12-]}
<MI 22ad4 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-12-]|[4, '(A6+0xc)']}
<MI 22ad8 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x22adc 0x22a82> {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 22ae0-22ae2 StackAdj> Δ+8 {[-12-]}
<Call 0x22ae2 0x10350> {[-12-]}
Quad2Long(a : Quad) : Long
<POP 22ae8-22aea StackAdj> Δ+8 {[-4-]}
<MI 22aea MOVE.L (A7)+,(A6+0x10)> Δ+4 {}
<POP 22aee-22af2 Epilogue> Σ0
@ 22af2
<LVAR 0x008 @ 4(r)>
<POP 22af2-22b7a Body>
<POP 22af2-22b08 Prologue> Σ0 ↓
<POP 22b08-22b0e RegCacheLoad> Σ0 ↓
<POP 22b0e-22b2c Naked> Σ0 Δ-8 ↓
<MI 22b0e MOVEA.L (A6+0x8),A0> {}
<MI 22b12 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Blob 0x22b14 [4] 0x26832> Δ-4 {[4, 'A0']|[«4»]}
<MI 22b16 MOVE.W (A0),D0> {[4, 'A0']|[«4»]}
<MI 22b18 EXTW.L D0> {[4, 'A0']|[«4»]}
<MI 22b1a NEG.L D0> {[4, 'A0']|[«4»]}
<MI 22b1c MOVE.L D0,-(A7)> Δ-4 {[4, 'A0']|[«4»]|[4, 'D0']}
<Call 0x22b1e 0x2227c> {[4, 'A0']|[«4»]|[4, 'D0']}
<POP 22b22-22b24 StackAdj> Δ+8 {[4, 'A0']}
<MI 22b24 MOVE.W (A0),D0> {[4, 'A0']}
<MI 22b26 EXTW.L D0> {[4, 'A0']}
<MI 22b28 MOVE.L D0,-(A7)> Δ-4 {[4, 'A0']|[4, 'D0']}
<MI 22b2a MOVEQ.L #0x01,D7> {[4, 'A0']|[4, 'D0']}
<POP 22b2c-22b30 Naked> Σ-8 ↓ →0x22b64 ←0x22b30
<MI 22b2c CMP.L (A7),D7> {[-8-]}
<MI 22b2e BGT 0x22b64> {[-8-]}
<POP 22b30-22b64 Naked> Σ-8 ↓ →0x22b2c
<MI 22b30 MOVE.L D7,D0> {[-8-]}
<MI 22b32 ADD.L 0x26832,D0> {[-8-]}
<MI 22b34 SUBQ.L #0x1,D0> {[-8-]}
<MI 22b36 SUBQ.L #0x1,D0> {[-8-]}
<POP 0x22b38 LimitCheck 0x0 ≤ D0 ≤ 0xfff> {[-8-]}
<MI 22b42 LEA.L 0x2582a,A0> {[-8-]}
<MI 22b48 MOVE.L D7,D1> {[-8-]}
<MI 22b4a SUBQ.L #0x1,D1> {[-8-]}
<POP 0x22b4c LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-8-]}
<MI 22b56 MOVEA.L (A7+0x4),A1> {[-8-]}
<MI 22b5a MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x8)> {[-8-]}
<MI 22b60 ADDQ.L #0x1,D7> {[-8-]}
<MI 22b62 BVC 0x22b2c> {[-8-]}
<POP 22b64-22b72 Naked> Σ-8 Δ+8 ↓ ←0x22b2c
<POP 22b64-22b66 StackAdj> Δ+8 {}
<Pointer.fp 0x22b66 <LVAR 0x008 @ 4(r)>> Δ-4 {[@@8]}
<Call 0x22b6a 0x102bc> {[@@8]}
FreeString(VAR a : String)
<POP 22b70-22b72 StackAdj> Δ+4 {}
<POP 22b72-22b7a Epilogue> Σ0
@ 22b7a
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 22b7a-22bae Body>
<POP 22b7a-22b8c Prologue> Σ0 ↓
<POP 22b8c-22baa Naked> Σ0 ↓
<POP 22b8c-22b8e StackAdj> Δ-4 {[-4-]}
<MI 22b8e MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']}
<MI 22b92 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Const 0x22b96 0x10.4> Δ-4 {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[##16]}
<Call 0x22b9a 0x1035c> {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[##16]}
Quad2String(a : Quad; radix : Long ) : String
<POP 22ba0-22ba4 StackAdj> Δ+12 {[-4-]}
<Call 0x22ba4 0x22af2> {[-4-]}
<POP 22ba8-22baa StackAdj> Δ+4 {}
<POP 22baa-22bae Epilogue> Σ0
@ 22bae
<LVAR 0x008 4(r)>
<POP 22bae-22bd8 Body>
<POP 22bae-22bc0 Prologue> Σ0 ↓
<POP 22bc0-22bd4 Naked> Σ0 ↓
<POP 22bc0-22bc2 StackAdj> Δ-4 {[-4-]}
<MI 22bc2 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x22bc6 0x102e4> {[-4-]|[4, '(A6+0x8)']}
Long2String(a : Long) : String
<POP 22bcc-22bce StackAdj> Δ+4 {[-4-]}
<Call 0x22bce 0x22af2> {[-4-]}
<POP 22bd2-22bd4 StackAdj> Δ+4 {}
<POP 22bd4-22bd8 Epilogue> Σ0
@ 22bd8
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 4(r)>
<LVAR -0x008 4(rw)>
<POP 22bd8-22ca8 Body>
<POP 22bd8-22bee Prologue> Σ0 ↓
<POP 22bee-22bf6 RegCacheLoad> Σ0 ↓
<POP 22bf6-22c08 Naked> Σ0 ↓
<MI 22bf6 MOVEA.L (A6+0x8),A0> {}
<MI 22bfa MOVE.L (A0+0x8),(A6-0x8)> {}
<Pointer.fp 0x22bfe <LVAR -0x004 @ 4(r)>> Δ-4 {[@@-4]}
<Call 0x22c00 0x102b8> {[@@-4]}
NewString(VAR a : String)
<POP 22c06-22c08 StackAdj> Δ+4 {}
<POP 22c08-22c12 Naked> Σ0 ↓ →0x22c96 ←0x22c7e
<MI 22c08 MOVEA.L (A6-0x8),A0> {}
<MI 22c0a CMPA.W #0x1,A0> {}
<MI 22c0e BEQ 0x22c96> {}
<POP 22c12-22c16 Naked> Σ0 ↓ →0x22c7e
<MI 22c12 TST.L (A0)> {}
<MI 22c14 BEQ 0x22c7e> {}
<POP 22c16-22c20 Naked> Σ0 Δ-4 ↓ →0x22c34
<MI 22c16 MOVE.L (A0+0x4),-(A7)> Δ-4 {[4, '(A0+0x4)']}
<MI 22c1a MOVE.L (A0),D7> {[4, '(A0+0x4)']}
<MI 22c1c CMP.L (A7),D7> {[4, '(A0+0x4)']}
<MI 22c1e BGT 0x22c34> {[4, '(A0+0x4)']}
<POP 22c20-22c34 Naked> Σ-4 ↓
<MI 22c20 MOVE.L (A7),D0> {[-4-]}
<POP 0x22c22 LimitCheck -0x7fffffff ≤ D7> {[-4-]}
<MI 22c22 CMPI.L #0x80000001,D7>
<MI 22c28 BLT 0x22c32>
<POP 0x22c2a LimitCheck D0 ≤ 0x7fffffff> {[-4-]}
<MI 22c2a CMPI.L #0x7fffffff,D0>
<MI 22c30 BLE 0x22c34>
<MI 22c32 TRAP #15>
<POP 22c34-22c38 Naked> Σ-4 ↓ →0x22c7c ←0x22c16 ←0x22c78
<MI 22c34 CMP.L (A7),D7> {[-4-]}
<MI 22c36 BGT 0x22c7c> {[-4-]}
<POP 22c38-22c64 Naked> Σ-4 ↓ →0x22c78
<MI 22c38 MOVE.L (A6-0x4),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x4)']}
<MI 22c3a MOVE.L D7,D0> {[-4-]|[4, '(A6-0x4)']}
<MI 22c3c SUBQ.L #0x1,D0> {[-4-]|[4, '(A6-0x4)']}
<POP 0x22c3e LimitCheck 0x0 ≤ D0 ≤ 0xfff> {[-4-]|[4, '(A6-0x4)']}
<MI 22c48 LEA.L 0x2582a,A0> {[-4-]|[4, '(A6-0x4)']}
<MI 22c4e MOVE.B (A0+D0.L+#0x8),-(A7)> Δ-2 {[-4-]|[4, '(A6-0x4)']|[2, '(A0+D0.L+#0x8)']}
<Call 0x22c52 0x102c0> {[-4-]|[4, '(A6-0x4)']|[2, '(A0+D0.L+#0x8)']}
AppendChar(MOD b : String; a : char)
<POP 22c58-22c5a StackAdj> Δ+6 {[-4-]}
<MI 22c5a MOVEA.L (A6-0x4),A0> {[-4-]}
<MI 22c5c MOVE.W (A0),D0> {[-4-]}
<MI 22c5e CMPI.W #0x007a,D0> {[-4-]}
<MI 22c62 BLT 0x22c78> {[-4-]}
<POP 22c64-22c78 Naked> Σ-4 ↓
<MI 22c64 MOVE.L (A6-0x4),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x4)']}
<Call 0x22c66 0x103d8> {[-4-]|[4, '(A6-0x4)']}
WriteConsoleString(str : String)
<POP 22c6c-22c6e StackAdj> Δ+4 {[-4-]}
<Pointer.fp 0x22c6e <LVAR -0x004 @ 4(r)>> Δ-4 {[-4-]|[@@-4]}
<Call 0x22c70 0x102b8> {[-4-]|[@@-4]}
NewString(VAR a : String)
<POP 22c76-22c78 StackAdj> Δ+4 {[-4-]}
<POP 22c78-22c7c Naked> Σ-4 ↓ →0x22c34 ←0x22c38
<MI 22c78 ADDQ.L #0x1,D7> {[-4-]}
<MI 22c7a BVC 0x22c34> {[-4-]}
<POP 22c7c-22c7e Naked> Σ-4 Δ+4 ↓ ←0x22c34
<POP 22c7c-22c7e StackAdj> Δ+4 {}
<POP 22c7e-22c96 Naked> Σ0 →0x22c08 ←0x22c12
<MI 22c7e MOVE.L (A6-0x4),-(A7)> Δ-4 {[4, '(A6-0x4)']}
<Const 0x22c80 0x20.2> Δ-2 {[4, '(A6-0x4)']|[#32]}
<Call 0x22c84 0x102c0> {[4, '(A6-0x4)']|[#32]}
AppendChar(MOD b : String; a : char)
<POP 22c8a-22c8c StackAdj> Δ+6 {}
<MI 22c8c MOVEA.L (A6-0x8),A0> {}
<MI 22c8e MOVE.L (A0+0x8),(A6-0x8)> {}
<MI 22c92 BRA 0x22c08> {}
<POP 22c96-22ca0 Naked> Σ0 ↓ ←0x22c08
<MI 22c96 MOVE.L (A6-0x4),-(A7)> Δ-4 {[4, '(A6-0x4)']}
<Call 0x22c98 0x103e0> {[4, '(A6-0x4)']}
WriteConsoleStringCrLf(str : String)
<POP 22c9e-22ca0 StackAdj> Δ+4 {}
<POP 22ca0-22ca8 Epilogue> Σ0
@ 22ca8
<LVAR 0x008 @ 4(r)>
<LVAR -0x003 @ 1(r)>
<LVAR -0x004 @ 1(r)>
<LVAR -0x008 @ 4(r)>
<LVAR -0x00c @ 4(rw)>
<POP 22ca8-22db2 Body>
<POP 22ca8-22cbe Prologue> Σ0 ↓
<POP 22cbe-22cd0 RegCacheLoad> Σ0 ↓
<POP 22cd0-22d16 Naked> Σ0 ↓ →0x22d4c
<Blob 0x22cd0 [4] @> Δ-4 {[«4""»]}
<POP 22cd4-22cd6 StackAdj> Δ-8 {[«4""»]|[-8-]}
<MI 22cd6 MOVE.L (A6+0x8),-(A7)> Δ-4 {[«4""»]|[-8-]|[4, '(A6+0x8)']}
<Call 0x22cd8 0x102cc> {[«4""»]|[-8-]|[4, '(A6+0x8)']}
StringDup(a : String) : String
<Lit 0x22cde 4> {[«4""»]|[-8-]|[$$.HLP]}
<Call 0x22cf0 0x102d0> {[«4""»]|[-8-]|[$$.HLP]}
StringCat2(a, b : String) : String
<POP 22cf6-22cf8 StackAdj> Δ+8 {[«4""»]|[-4-]}
<MI 22cf8 MOVE.L (A7)+,(A6-0xc)> Δ+4 {[«4""»]}
<MI 22cfa MOVE.L (A6-0xc),(A7)> {[4, '(A6-0xc)']}
<MI 22cfc CLR.B -(A7)> Δ-2 {[4, '(A6-0xc)']|[#0]}
<MI 22cfe CLR.B -(A7)> Δ-2 {[4, '(A6-0xc)']|[#0]|[#0]}
<Const 0x22d00 0x0.4> Δ-4 {[4, '(A6-0xc)']|[#0]|[#0]|[##0]}
<Pointer.fp 0x22d04 <LVAR -0x004 @ 1(r)>> Δ-4 {[4, '(A6-0xc)']|[#0]|[#0]|[##0]|[@@-4]}
<Pointer.fp 0x22d06 <LVAR -0x008 @ 4(r)>> Δ-4 {[4, '(A6-0xc)']|[#0]|[#0]|[##0]|[@@-4]|[@@-8]}
<Call 0x22d08 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 22d0e-22d12 StackAdj> Δ+20 {}
<MI 22d12 TST.B (A6-0x4)> {}
<MI 22d14 BEQ 0x22d4c> {}
<POP 22d16-22d4c Naked> Σ0 →0x22da0
<Blob 0x22d16 [22] @> Δ-22 {[«22""»]}
<POP 22d22-22d24 StackAdj> Δ-8 {[«22""»]|[-8-]}
<Lit 0x22d24 22> {[«22""»]|[-4-]|[$$No help available for_]}
<POP 22d34-22d36 StackAdj> Δ-4 {[«22""»]|[-4-]|[$$No help available for_]|[-4-]}
<MI 22d36 MOVE.L (A6+0x8),(A7)> {[«22""»]|[-4-]|[$$No help available for_]|[4, '(A6+0x8)']}
<Call 0x22d38 0x102d0> {[«22""»]|[-4-]|[$$No help available for_]|[4, '(A6+0x8)']}
StringCat2(a, b : String) : String
<POP 22d3e-22d40 StackAdj> Δ+8 {[«22""»]|[-4-]}
<Call 0x22d40 0x103e0> {[«22""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 22d46-22d4a StackAdj> Δ+26 {}
<MI 22d4a BRA 0x22da0> {}
<POP 22d4c-22d64 Naked> Σ0 ↓ →0x22d78 ←0x22cd0 ←0x22d78
<MI 22d4c MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<Pointer.fp 0x22d4e <LVAR 0x008 @ 4(r)>> Δ-4 {[4, '(A6-0x8)']|[@@8]}
<Pointer.fp 0x22d50 <LVAR -0x003 @ 1(r)>> Δ-4 {[4, '(A6-0x8)']|[@@8]|[@@-3]}
<Call 0x22d54 0x1043c> {[4, '(A6-0x8)']|[@@8]|[@@-3]}
FileReadLine(file : File; VAR a : String; VAR b : Byte)
<POP 22d5a-22d5e StackAdj> Δ+12 {}
<MI 22d5e TST.B (A6-0x3)> {}
<MI 22d62 BNE 0x22d78> {}
<POP 22d64-22d78 Naked> Σ0 ↓
<POP 22d64-22d66 StackAdj> Δ-4 {[-4-]}
<MI 22d66 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x22d68 0x102cc> {[-4-]|[4, '(A6+0x8)']}
StringDup(a : String) : String
<POP 22d6e-22d70 StackAdj> Δ+4 {[-4-]}
<Call 0x22d70 0x103e0> {[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 22d76-22d78 StackAdj> Δ+4 {}
<POP 22d78-22d7e Naked> Σ0 ↓ →0x22d4c ←0x22d4c
<MI 22d78 TST.B (A6-0x3)> {}
<MI 22d7c BEQ 0x22d4c> {}
<POP 22d7e-22da0 Naked> Σ0 ↓
<MI 22d7e CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x22d80 0x2.2> Δ-2 {[#0]|[#2]}
<Const 0x22d84 0x1.4> Δ-4 {[#0]|[#2]|[##1]}
<Pointer.fp 0x22d88 <LVAR -0x004 @ 1(r)>> Δ-4 {[#0]|[#2]|[##1]|[@@-4]}
<Pointer.fp 0x22d8a <LVAR -0x008 @ 4(r)>> Δ-4 {[#0]|[#2]|[##1]|[@@-4]|[@@-8]}
<Call 0x22d8c 0x1038c> {[#0]|[#2]|[##1]|[@@-4]|[@@-8]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 22d92-22d96 StackAdj> Δ+16 {}
<Pointer.fp 0x22d96 <LVAR 0x008 @ 4(r)>> Δ-4 {[@@8]}
<Call 0x22d98 0x102bc> {[@@8]}
FreeString(VAR a : String)
<POP 22d9e-22da0 StackAdj> Δ+4 {}
<POP 22da0-22daa Naked> Σ0 ↓ ←0x22d16
<Pointer.fp 0x22da0 <LVAR -0x00c @ 4(rw)>> Δ-4 {[@@-12]}
<Call 0x22da2 0x102bc> {[@@-12]}
FreeString(VAR a : String)
<POP 22da8-22daa StackAdj> Δ+4 {}
<POP 22daa-22db2 Epilogue> Σ0
@ 22db2
<LVAR 0x008 4(r)>
<POP 22db2-22e34 Body>
<POP 22db2-22dc8 Prologue> Σ0 ↓
<POP 22dc8-22dd8 Naked> Σ0 ↓ →0x22e06
<POP 22dc8-22dca StackAdj> Δ-4 {[-4-]}
<MI 22dca MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x22dce 0x22134> {[-4-]|[4, '(A6+0x8)']}
<POP 22dd2-22dd4 StackAdj> Δ+4 {[-4-]}
<MI 22dd4 MOVE.L (A7)+,D6> Δ+4 {}
<MI 22dd6 BNE 0x22e06> {}
<POP 22dd8-22e06 Naked> Σ0 →0x22e2c
<Blob 0x22dd8 [10] 0x26844> Δ-10 {[«10»]}
<POP 22de6-22de8 StackAdj> Δ-4 {[«10»]|[-4-]}
<Lit 0x22de8> {[«10»]|[$$…]}
<Pointer.sp 0x22de8 4> Δ-4
<Const 0x22dec 0x1.2> Δ-2
<Const 0x22df0 0xa.2> Δ-2
<Call 0x22df4 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 22dfa-22dfc StackAdj> Δ+8
<Call 0x22dfc 0x22ca8> {[«10»]|[$$…]}
<POP 22e00-22e04 StackAdj> Δ+14 {}
<MI 22e04 BRA 0x22e2c> {}
<POP 22e06-22e0a Naked> Σ0 Δ-4 ↓ ←0x22dc8
<MI 22e06 MOVE.L D6,-(A7)> Δ-4 {[4, 'D6']}
<MI 22e08 MOVEQ.L #0x01,D7> {[4, 'D6']}
<POP 22e0a-22e0e Naked> Σ-4 ↓ →0x22e2a ←0x22e0e
<MI 22e0a CMP.L (A7),D7> {[-4-]}
<MI 22e0c BGT 0x22e2a> {[-4-]}
<POP 22e0e-22e2a Naked> Σ-4 ↓ →0x22e0a
<POP 22e0e-22e10 StackAdj> Δ-4 {[-8-]}
<MI 22e10 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<MI 22e14 MOVE.L D7,-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']|[4, 'D7']}
<Call 0x22e16 0x22a50> {[-8-]|[4, '(A6+0x8)']|[4, 'D7']}
<POP 22e1a-22e1c StackAdj> Δ+8 {[-8-]}
<MI 22e1c MOVEA.L (A7)+,A4> Δ+4 {[-4-]}
<MI 22e1e MOVE.L A4,-(A7)> Δ-4 {[-4-]|[4, 'A4']}
<Call 0x22e20 0x22ca8> {[-4-]|[4, 'A4']}
<POP 22e24-22e26 StackAdj> Δ+4 {[-4-]}
<MI 22e26 ADDQ.L #0x1,D7> {[-4-]}
<MI 22e28 BVC 0x22e0a> {[-4-]}
<POP 22e2a-22e2c Naked> Σ-4 Δ+4 ↓ ←0x22e0a
<POP 22e2a-22e2c StackAdj> Δ+4 {}
<POP 22e2c-22e34 Epilogue> Σ0 ←0x22dd8
@ 22e34
<LVAR 0x00c @>
<LVAR 0x008 @ 4(r)>
<LVAR -0x020 @>
<POP 22e34-22eb6 Body>
<POP 22e34-22e4a Prologue> Σ0 ↓
<POP 22e4a-22e4c RegCacheLoad> Σ0 ↓
<POP 22e4c-22e4e Naked> Σ0 ↓
<MI 22e4c MOVEQ.L #0x01,D7> {}
<POP 22e4e-22e5a Naked> Σ0 ↓ →0x22e6a ←0x22e88
<MI 22e4e MOVEA.L (A6+0x8),A0> {}
<MI 22e52 MOVE.W (A0),D0> {}
<MI 22e54 EXTW.L D0> {}
<MI 22e56 CMP.L D0,D7> {}
<MI 22e58 BLE 0x22e6a> {}
<POP 22e5a-22e6a Naked> Σ0 →0x22e88
<MI 22e5a MOVE.L D7,D0> {}
<MI 22e5c SUBQ.L #0x1,D0> {}
<POP 0x22e5e LimitCheck 0x0 ≤ D0 ≤ 0x1d> {}
<MI 22e64 CLR.B (A6+D0.L-#0x20)> {}
<MI 22e68 BRA 0x22e88> {}
<POP 22e6a-22e88 Naked> Σ0 ↓ ←0x22e4e
<MI 22e6a MOVE.L D7,D0> {}
<MI 22e6c SUBQ.L #0x1,D0> {}
<POP 0x22e6e LimitCheck 0x0 ≤ D0 ≤ 0x1d> {}
<MI 22e74 MOVE.L D7,D1> {}
<MI 22e76 SUBQ.L #0x1,D1> {}
<POP 0x22e78 LimitCheck 0x0 ≤ D1 ≤ 0x7d> {}
<MI 22e82 MOVE.B (A0+D1.L+#0x2),(A6+D0.L-#0x20)> {}
<POP 22e88-22e92 Naked> Σ0 ↓ →0x22e4e ←0x22e5a
<MI 22e88 ADDQ.L #0x1,D7> {}
<MI 22e8a CMPI.L #0x0000001e,D7> {}
<MI 22e90 BLE 0x22e4e> {}
<POP 22e92-22eae Naked> Σ0 ↓
<Pointer.fp 0x22e92 <LVAR 0x008 @ 4(r)>> Δ-4 {[@@8]}
<Call 0x22e96 0x102bc> {[@@8]}
FreeString(VAR a : String)
<POP 22e9c-22e9e StackAdj> Δ+4 {}
<MI 22e9e LEA.L (A6+0xc),A0> {}
<MI 22ea2 LEA.L (A6-0x20),A1> {}
<BlockMove 30,A1,A0> {}
<POP 22eae-22eb6 Epilogue> Σ0
@ 22eb6
<LVAR 0x026 4(w)>
<LVAR 0x008 @>
<LVAR -0x006 4(rw)>
<POP 22eb6-22f0a Body>
<POP 22eb6-22ecc Prologue> Σ0 ↓
<POP 22ecc-22ed0 RegCacheLoad> Σ0 ↓
<POP 22ed0-22ed8 Naked> Σ0 ↓
<MI 22ed0 MOVEQ.L #0x00,D7> {}
<MI 22ed2 MOVE.L 0x2685c,(A6-0x6)> {}
<POP 22ed8-22ee0 Naked> Σ0 ↓ →0x22efe ←0x22efc
<MI 22ed8 MOVEA.L (A6-0x6),A0> {}
<MI 22eda CMPA.W #0x1,A0> {}
<MI 22ede BEQ 0x22efe> {}
<POP 22ee0-22ee4 Naked> Σ0 ↓ →0x22efe
<MI 22ee0 TST.B D7> {}
<MI 22ee2 BNE 0x22efe> {}
<POP 22ee4-22eec Naked> Σ0 ↓
<MI 22ee4 MOVEA.L A0,A1> {}
<MI 22ee6 LEA.L (A6+0x8),A2> {}
<MI 22eea MOVEQ.L #0x1d,D0> {}
<POP 22eec-22ef2 Naked> Σ0 ↓ →0x22eec ←0x22eec
<MI 22eec CMPM.B (A1)+,(A2)+> {}
<MI 22eee DBNE D0,0x22eec> {}
<POP 22ef2-22ef4 Naked> Σ0 ↓ →0x22ef8
<MI 22ef2 BNE 0x22ef8> {}
<POP 22ef4-22ef8 Naked> Σ0 →0x22efc
<MI 22ef4 MOVEQ.L #0x01,D7> {}
<MI 22ef6 BRA 0x22efc> {}
<POP 22ef8-22efc Naked> Σ0 ↓ ←0x22ef2
<MI 22ef8 MOVE.L (A0+0x26),(A6-0x6)> {}
<POP 22efc-22efe Naked> Σ0 →0x22ed8 ←0x22ef4
<MI 22efc BRA 0x22ed8> {}
<POP 22efe-22f02 Naked> Σ0 ↓ ←0x22ed8 ←0x22ee0
<MI 22efe MOVE.L A0,(A6+0x26)> {}
<POP 22f02-22f0a Epilogue> Σ0
@ 22f0a
<LVAR 0x008 @ 4(r)>
<POP 22f0a-22f90 Body>
<POP 22f0a-22f20 Prologue> Σ0 ↓
<POP 22f20-22f2c RegCacheLoad> Σ0 ↓
<POP 22f2c-22f32 Naked> Σ0 ↓ →0x22f88
<MI 22f2c MOVEA.L (A6+0x8),A0> {}
<MI 22f2e CMPA.W #0x01,A0> {}
<MI 22f30 BEQ 0x22f88> {}
<POP 22f32-22f38 Naked> Σ0 ↓ →0x22f48
<MI 22f32 TST.L (A0+0x1e)> {}
<MI 22f36 BEQ 0x22f48> {}
<POP 22f38-22f48 Naked> Σ0 ↓
<MI 22f38 MOVE.L (A0+0x22),-(A7)> Δ-4 {[4, '(A0+0x22)']}
<MI 22f3c MOVE.L (A0+0x1e),-(A7)> Δ-4 {[4, '(A0+0x22)']|[4, '(A0+0x1e)']}
<Call 0x22f40 0x102a4> {[4, '(A0+0x22)']|[4, '(A0+0x1e)']}
Free1(a : Pointer; b : Long)
<POP 22f46-22f48 StackAdj> Δ+8 {}
<POP 22f48-22f4e Naked> Σ0 ↓ ←0x22f32
<MI 22f48 MOVEQ.L #0x00,D7> {}
<MI 22f4a MOVEA.W #0x01,A4> {}
<MI 22f4c MOVEA.L 0x2685c,A3> {}
<POP 22f4e-22f52 Naked> Σ0 ↓ →0x22f66 ←0x22f64
<MI 22f4e CMPA.W #0x01,A3> {}
<MI 22f50 BEQ 0x22f66> {}
<POP 22f52-22f56 Naked> Σ0 ↓ →0x22f66
<MI 22f52 TST.B D7> {}
<MI 22f54 BNE 0x22f66> {}
<POP 22f56-22f5a Naked> Σ0 ↓ →0x22f5e
<MI 22f56 CMPA.L (A6+0x8),A3> {}
<MI 22f58 BNE 0x22f5e> {}
<POP 22f5a-22f5e Naked> Σ0 →0x22f64
<MI 22f5a MOVEQ.L #0x01,D7> {}
<MI 22f5c BRA 0x22f64> {}
<POP 22f5e-22f64 Naked> Σ0 ↓ ←0x22f56
<MI 22f5e MOVEA.L A3,A4> {}
<MI 22f60 MOVEA.L (A3+0x26),A3> {}
<POP 22f64-22f66 Naked> Σ0 →0x22f4e ←0x22f5a
<MI 22f64 BRA 0x22f4e> {}
<POP 22f66-22f6a Naked> Σ0 ↓ →0x22f88 ←0x22f4e ←0x22f52
<MI 22f66 TST.B D7> {}
<MI 22f68 BEQ 0x22f88> {}
<POP 22f6a-22f6e Naked> Σ0 ↓ →0x22f74
<MI 22f6a CMPA.W #0x01,A4> {}
<MI 22f6c BNE 0x22f74> {}
<POP 22f6e-22f74 Naked> Σ0 →0x22f7a
<MI 22f6e MOVE.L (A3+0x26),0x2685c> {}
<MI 22f72 BRA 0x22f7a> {}
<POP 22f74-22f7a Naked> Σ0 ↓ ←0x22f6a
<MI 22f74 MOVE.L (A3+0x26),(A4+0x26)> {}
<POP 22f7a-22f88 Naked> Σ0 ↓ ←0x22f6e
<Pointer.fp 0x22f7a <LVAR 0x008 @ 4(r)>> Δ-4 {[@@8]}
<Const 0x22f7c 0x2a.4> Δ-4 {[@@8]|[##42]}
<Call 0x22f80 0x102a8> {[@@8]|[##42]}
Free2(a : Pointer; b : Long)
<POP 22f86-22f88 StackAdj> Δ+8 {}
<POP 22f88-22f90 Epilogue> Σ0 ←0x22f2c ←0x22f66
@ 22f90
<LVAR 0x010 4(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x006 @ 4(rw)>
<LVAR -0x024 @>
<POP 22f90-2304e Body>
<POP 22f90-22fa6 Prologue> Σ0 ↓
<POP 22fa6-22fb0 RegCacheLoad> Σ0 ↓
<POP 22fb0-22fce Naked> Σ0 ↓ →0x22fd0
<POP 22fb0-22fb2 StackAdj> Δ-30 {[-30-]}
<MI 22fb2 MOVEA.L (A6+0xc),A0> {[-30-]}
<MI 22fb6 MOVE.L (A0),-(A7)> Δ-4 {[-30-]|[4, '(A0)']}
<Call 0x22fb8 0x22e34> {[-30-]|[4, '(A0)']}
<POP 22fbc-22fbe StackAdj> Δ+4 {[-30-]}
<MI 22fbe LEA.L (A6-0x24),A0> {[-30-]}
<POP 22fc2-22fca StackPop> Δ+30 {[-30-]}
<BlockMove 30,A7,A0> Δ+30
<MI 22fca TST.L (A6+0x8)> {[-30-]}
<MI 22fcc BGE 0x22fd0> {[-30-]}
<POP 22fce-22fd0 Naked> Σ0 ↓
<MI 22fce CLR.L (A6+0x8)> {}
<POP 22fd0-22fec Naked> Σ0 ↓ →0x22ffe ←0x22fb0
<POP 22fd0-22fd2 StackAdj> Δ-4 {[-4-]}
<Blob 0x22fd2 [30] (A6-0x6)> Δ-30 {[-4-]|[«30»]}
<Call 0x22fdc 0x22eb6> {[-4-]|[«30»]}
<POP 22fe0-22fe2 StackAdj> Δ+30 {[-4-]}
<MI 22fe2 MOVE.L (A7)+,(A6-0x6)> Δ+4 {}
<MI 22fe4 MOVEA.L (A6-0x6),A0> {}
<MI 22fe6 CMPA.W #0x1,A0> {}
<MI 22fea BEQ 0x22ffe> {}
<POP 22fec-22ff4 Naked> Σ0 ↓ →0x22ff6
<MI 22fec MOVE.L (A0+0x1e),D0> {}
<MI 22ff0 CMP.L (A6+0x8),D0> {}
<MI 22ff2 BNE 0x22ff6> {}
<POP 22ff4-22ff6 Naked> Σ0 →0x23042
<MI 22ff4 BRA 0x23042> {}
<POP 22ff6-22ffe Naked> Σ0 ↓ ←0x22fec
<MI 22ff6 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x22ff8 0x22f0a> {[4, '(A6-0x6)']}
<POP 22ffc-22ffe StackAdj> Δ+4 {}
<POP 22ffe-23032 Naked> Σ0 ↓ →0x23042 ←0x22fd0
<Pointer.fp 0x22ffe <LVAR -0x006 @ 4(rw)>> Δ-4 {[@@-6]}
<Const 0x23000 0x2a.4> Δ-4 {[@@-6]|[##42]}
<Call 0x23004 0x1029c> {[@@-6]|[##42]}
Malloc1(length : Long) : Pointer
<POP 2300a-2300c StackAdj> Δ+8 {}
<MI 2300c MOVEA.L (A6-0x6),A0> {}
<MI 2300e MOVE.L 0x2685c,(A0+0x26)> {}
<MI 23016 MOVE.L (A6-0x6),0x2685c> {}
<MI 2301c MOVEA.L A0,A1> {}
<MI 2301e LEA.L (A6-0x24),A2> {}
<BlockMove 30,A2,A1> {}
<MI 2302a MOVE.L (A6+0x8),(A0+0x1e)> {}
<MI 2302e TST.L (A6+0x8)> {}
<MI 23030 BEQ 0x23042> {}
<POP 23032-23042 Naked> Σ0 ↓
<POP 23032-23034 StackAdj> Δ-4 {[-4-]}
<MI 23034 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x23036 0x102a0> {[-4-]|[4, '(A6+0x8)']}
Malloc2(VAR dst : Pointer; length : Word)
<POP 2303c-2303e StackAdj> Δ+4 {[-4-]}
<MI 2303e MOVE.L (A7)+,(A0+0x22)> Δ+4 {}
<POP 23042-23046 Naked> Σ0 ↓ ←0x22ff4 ←0x22ffe
<MI 23042 MOVE.L (A6-0x6),(A6+0x10)> {}
<POP 23046-2304e Epilogue> Σ0
@ 2304e
<LVAR 0x00c @>
<LVAR 0x008 @ 4(r)>
<LVAR -0x008 4(rw)>
<POP 2304e-230d8 Body>
<POP 2304e-23064 Prologue> Σ0 ↓
<POP 23064-23068 RegCacheLoad> Σ0 ↓
<POP 23068-23086 Naked> Σ0 ↓ →0x230c6
<MI 23068 MOVEA.L (A6+0x8),A0> {}
<MI 2306a MOVE.W (A0),D0> {}
<MI 2306c EXTW.L D0> {}
<MI 2306e MOVE.L D0,D6> {}
<POP 23070-23072 StackAdj> Δ-4 {[-4-]}
<Pointer.fp 0x23072 <LVAR 0x00c @>> Δ-4 {[-4-]|[@@12]}
<MI 23076 MOVE.L D6,-(A7)> Δ-4 {[-4-]|[@@12]|[4, 'D6']}
<Call 0x23078 0x22f90> {[-4-]|[@@12]|[4, 'D6']}
<POP 2307c-2307e StackAdj> Δ+8 {[-4-]}
<MI 2307e MOVE.L (A7)+,(A6-0x8)> Δ+4 {}
<MI 23082 TST.L D6> {}
<MI 23084 BEQ 0x230c6> {}
<POP 23086-23094 Naked> Σ0 Δ-8 ↓
<MI 23086 MOVEA.L (A6-0x8),A0> {}
<MI 2308a MOVEA.L (A0+0x22),A0> {}
<MI 2308e MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 23090 MOVE.L D6,-(A7)> Δ-4 {[4, 'A0']|[4, 'D6']}
<MI 23092 MOVEQ.L #0x01,D7> {[4, 'A0']|[4, 'D6']}
<POP 23094-23098 Naked> Σ-8 ↓ →0x230c4 ←0x23098
<MI 23094 CMP.L (A7),D7> {[-8-]}
<MI 23096 BGT 0x230c4> {[-8-]}
<POP 23098-230c4 Naked> Σ-8 ↓ →0x23094
<MI 23098 MOVE.L D7,D0> {[-8-]}
<MI 2309a SUBQ.L #0x1,D0> {[-8-]}
<POP 0x2309c LimitCheck 0x0 ≤ D0 ≤ 0x3ff> {[-8-]}
<MI 230a6 MOVEA.L (A7+0x4),A0> {[-8-]}
<MI 230aa MOVEA.L (A6+0x8),A1> {[-8-]}
<MI 230ac MOVE.L D7,D1> {[-8-]}
<MI 230ae SUBQ.L #0x1,D1> {[-8-]}
<POP 0x230b0 LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-8-]}
<MI 230ba MOVE.B (A1+D1.L+#0x2),(A0+D0.L)> {[-8-]}
<MI 230c0 ADDQ.L #0x1,D7> {[-8-]}
<MI 230c2 BVC 0x23094> {[-8-]}
<POP 230c4-230c6 Naked> Σ-8 Δ+8 ↓ ←0x23094
<POP 230c4-230c6 StackAdj> Δ+8 {}
<POP 230c6-230d0 Naked> Σ0 ↓ ←0x23068
<Pointer.fp 0x230c6 <LVAR 0x008 @ 4(r)>> Δ-4 {[@@8]}
<Call 0x230c8 0x102bc> {[@@8]}
FreeString(VAR a : String)
<POP 230ce-230d0 StackAdj> Δ+4 {}
<POP 230d0-230d8 Epilogue> Σ0
@ 230d8
<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 230d8-23244 Body>
<POP 230d8-230ee Prologue> Σ0 ↓
<POP 230ee-230fc RegCacheLoad> Σ0 ↓
<POP 230fc-2310e Naked> Σ0 ↓ →0x2313c
<POP 230fc-230fe StackAdj> Δ-4 {[-4-]}
<MI 230fe MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x23100 0x22134> {[-4-]|[4, '(A6+0x8)']}
<POP 23104-23106 StackAdj> Δ+4 {[-4-]}
<MI 23106 MOVE.L (A7)+,(A6-0x10)> Δ+4 {}
<MI 23108 MOVE.L (A6-0x10),D0> {}
<MI 2310a CMP.L #0x01,D0> {}
<MI 2310c BGE 0x2313c> {}
<POP 2310e-2313c Naked> Σ0 ↓
<Blob 0x2310e [26] @> Δ-26 {[«26""»]}
<POP 23120-23122 StackAdj> Δ-4 {[«26""»]|[-4-]}
<Lit 0x23122 25> {[«26""»]|[$$Too few arguments for SET]}
<Call 0x23134 0x21d28> {[«26""»]|[$$Too few arguments for SET]}
<POP 23138-2313c StackAdj> Δ+30 {}
<POP 2313c-23142 Naked> Σ0 Δ-4 ↓ ←0x230fc
<MI 2313c CLR.L (A6-0xc)> {}
<MI 2313e MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 23140 MOVEQ.L #0x02,D6> {[4, 'D0']}
<POP 23142-23146 Naked> Σ-4 ↓ →0x23164 ←0x23146
<MI 23142 CMP.L (A7),D6> {[-4-]}
<MI 23144 BGT 0x23164> {[-4-]}
<POP 23146-23164 Naked> Σ-4 ↓ →0x23142
<POP 23146-2314a StackAdj> Δ-12 {[-16-]}
<MI 2314a MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<MI 2314c MOVE.L D6,-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[4, 'D6']}
<Call 0x2314e 0x22972> {[-16-]|[4, '(A6+0x8)']|[4, 'D6']}
<POP 23152-23154 StackAdj> Δ+8 {[-16-]}
<Call 0x23154 0x2293a> {[-16-]}
<POP 23158-2315a StackAdj> Δ+8 {[-8-]}
<MI 2315a MOVE.L (A6-0xc),D0> {[-8-]}
<MI 2315c ADD.L (A7)+,D0> Δ+4 {[-4-]}
<MI 2315e MOVE.L D0,(A6-0xc)> {[-4-]}
<MI 23160 ADDQ.L #0x1,D6> {[-4-]}
<MI 23162 BVC 0x23142> {[-4-]}
<POP 23164-23194 Naked> Σ-4 Δ+4 ↓ →0x2323c ←0x23142
<POP 23164-23166 StackAdj> Δ+4 {}
<MI 23166 MOVE.L (A6-0x10),D0> {}
<MI 23168 SUBQ.L #0x2,D0> {}
<MI 2316a ADD.L D0,(A6-0xc)> {}
<POP 2316c-2316e StackAdj> Δ-4 {[-4-]}
<MI 2316e MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x23170 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23174 0x22a50> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 23178-2317a StackAdj> Δ+8 {[-4-]}
<MI 2317a MOVE.L (A7),(A6-0x4)> {[-4-]}
<Pointer.fp 0x2317e <LVAR -0x004 @ 4(w)>> Δ-4 {[-4-]|[@@-4]}
<MI 23182 MOVE.L (A6-0xc),-(A7)> Δ-4 {[-4-]|[@@-4]|[4, '(A6-0xc)']}
<Call 0x23184 0x22f90> {[-4-]|[@@-4]|[4, '(A6-0xc)']}
<POP 23188-2318a StackAdj> Δ+8 {[-4-]}
<MI 2318a MOVE.L (A7)+,(A6-0x8)> Δ+4 {}
<MI 2318e TST.L (A6-0xc)> {}
<MI 23190 BLE 0x2323c> {}
<POP 23194-231a4 Naked> Σ0 Δ-8 ↓
<MI 23194 MOVEA.L (A6-0x8),A0> {}
<MI 23198 MOVEA.L (A0+0x22),A0> {}
<MI 2319c MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 2319e MOVEQ.L #0x01,D7> {[4, 'A0']}
<MI 231a0 MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, 'A0']|[4, '(A6-0x10)']}
<MI 231a2 MOVEQ.L #0x02,D6> {[4, 'A0']|[4, '(A6-0x10)']}
<POP 231a4-231aa Naked> Σ-8 ↓ →0x2323a ←0x23234
<MI 231a4 CMP.L (A7),D6> {[-8-]}
<MI 231a6 BGT 0x2323a> {[-8-]}
<POP 231aa-231ca Naked> Σ-8 Δ-4 ↓ →0x231de
<POP 231aa-231ac StackAdj> Δ-8 {[-16-]}
<MI 231ac MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<MI 231ae MOVE.L D6,-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[4, 'D6']}
<Call 0x231b0 0x22972> {[-16-]|[4, '(A6+0x8)']|[4, 'D6']}
<POP 231b4-231b6 StackAdj> Δ+8 {[-16-]}
<MI 231b6 MOVE.L (A7)+,(A6-0x20)> Δ+4 {[-12-]}
<MI 231ba MOVE.L (A7)+,(A6-0x1c)> Δ+4 {[-8-]}
<MI 231be MOVE.L (A6-0x1c),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x1c)']}
<MI 231c2 MOVE.L (A6-0x20),D5> {[-8-]|[4, '(A6-0x1c)']}
<MI 231c6 CMP.L (A7),D5> {[-8-]|[4, '(A6-0x1c)']}
<MI 231c8 BGT 0x231de> {[-8-]|[4, '(A6-0x1c)']}
<POP 231ca-231de Naked> Σ-12 ↓
<MI 231ca MOVE.L (A7),D0> {[-12-]}
<POP 0x231cc LimitCheck -0x7fffffff ≤ D5> {[-12-]}
<MI 231cc CMPI.L #0x80000001,D5>
<MI 231d2 BLT 0x231dc>
<POP 0x231d4 LimitCheck D0 ≤ 0x7fffffff> {[-12-]}
<MI 231d4 CMPI.L #0x7fffffff,D0>
<MI 231da BLE 0x231de>
<MI 231dc TRAP #15>
<POP 231de-231e2 Naked> Σ-12 ↓ →0x23214 ←0x231aa ←0x231e2
<MI 231de CMP.L (A7),D5> {[-12-]}
<MI 231e0 BGT 0x23214> {[-12-]}
<POP 231e2-23214 Naked> Σ-12 ↓ →0x231de
<MI 231e2 MOVE.L D7,D0> {[-12-]}
<MI 231e4 SUBQ.L #0x1,D0> {[-12-]}
<POP 0x231e6 LimitCheck 0x0 ≤ D0 ≤ 0x3ff> {[-12-]}
<MI 231f0 MOVEA.L (A7+0x8),A0> {[-12-]}
<MI 231f4 MOVE.L D5,D1> {[-12-]}
<MI 231f6 SUBQ.L #0x1,D1> {[-12-]}
<POP 0x231f8 LimitCheck 0x0 ≤ D1 ≤ 0xfff> {[-12-]}
<MI 23202 LEA.L 0x2582a,A1> {[-12-]}
<MI 23208 MOVE.B (A1+D1.L+#0x8),(A0+D0.L)> {[-12-]}
<MI 2320e ADDQ.L #0x1,D7> {[-12-]}
<MI 23210 ADDQ.L #0x1,D5> {[-12-]}
<MI 23212 BVC 0x231de> {[-12-]}
<POP 23214-2321a Naked> Σ-12 Δ+4 ↓ →0x23234 ←0x231de
<POP 23214-23216 StackAdj> Δ+4 {[-8-]}
<MI 23216 CMP.L (A6-0x10),D6> {[-8-]}
<MI 23218 BEQ 0x23234> {[-8-]}
<POP 2321a-23234 Naked> Σ-8 ↓
<MI 2321a MOVE.L D7,D0> {[-8-]}
<MI 2321c SUBQ.L #0x1,D0> {[-8-]}
<POP 0x2321e LimitCheck 0x0 ≤ D0 ≤ 0x3ff> {[-8-]}
<MI 23228 MOVEA.L (A7+0x4),A0> {[-8-]}
<MI 2322c MOVE.B #0x2c,(A0+D0.L)> {[-8-]}
<MI 23232 ADDQ.L #0x1,D7> {[-8-]}
<POP 23234-2323a Naked> Σ-8 ↓ →0x231a4 ←0x23214
<MI 23234 ADDQ.L #0x1,D6> {[-8-]}
<MI 23236 BVC 0x231a4> {[-8-]}
<POP 2323a-2323c Naked> Σ-8 Δ+8 ↓ ←0x231a4
<POP 2323a-2323c StackAdj> Δ+8 {}
<POP 2323c-23244 Epilogue> Σ0 ←0x23164
@ 23244
<LVAR 0x008 4(r)>
<LVAR -0x00c 4(rw)>
<POP 23244-23332 Body>
<POP 23244-2325a Prologue> Σ0 ↓
<POP 2325a-23262 RegCacheLoad> Σ0 ↓
<POP 23262-23294 Naked> Σ0 ↓ →0x232d6
<POP 23262-23264 StackAdj> Δ-4 {[-4-]}
<MI 23264 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x23268 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x2326c 0x22a50> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 23270-23272 StackAdj> Δ+8 {[-4-]}
<MI 23272 MOVEA.L (A7)+,A4> Δ+4 {}
<POP 23274-23278 StackAdj> Δ-34 {[-34-]}
<MI 23278 MOVE.L A4,-(A7)> Δ-4 {[-34-]|[4, 'A4']}
<Call 0x2327a 0x22e34> {[-34-]|[4, 'A4']}
<POP 2327e-23280 StackAdj> Δ+4 {[-34-]}
<Call 0x23280 0x22eb6> {[-34-]}
<POP 23284-23288 StackAdj> Δ+30 {[-4-]}
<MI 23288 MOVE.L (A7)+,(A6-0xc)> Δ+4 {}
<MI 2328c MOVEA.L (A6-0xc),A0> {}
<MI 23290 CMPA.W #0x01,A0> {}
<MI 23292 BNE 0x232d6> {}
<POP 23294-232d6 Naked> Σ0 ↓
<Blob 0x23294 [20] @> Δ-20 {[«20""»]}
<POP 232a6-232a8 StackAdj> Δ-8 {[«20""»]|[-8-]}
<Lit 0x232a8 19> {[«20""»]|[-4-]|[$$Unknown variable :_]}
<MI 232b8 MOVE.L (A6+0x8),(A7)> {[«20""»]|[-4-]|[4, '(A6+0x8)']}
<POP 232b2-232b8 StackAdj> Δ-8 {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-8-]}
<Const 0x232bc 0x1.4> Δ-4 {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-8-]|[##1]}
<Call 0x232c0 0x22a50> {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-8-]|[##1]}
<POP 232c4-232c6 StackAdj> Δ+8 {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-4-]}
<Call 0x232c6 0x102d0> {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-4-]}
StringCat2(a, b : String) : String
<POP 232cc-232ce StackAdj> Δ+8 {[«20""»]|[-4-]}
<Call 0x232ce 0x21d28> {[«20""»]|[-4-]}
<POP 232d2-232d6 StackAdj> Δ+24 {}
<POP 232d6-232ec Naked> Σ0 Δ-8 ↓ ←0x23262
<MI 232d6 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Blob 0x232d8 [4] 0x26832> Δ-4 {[4, 'A0']|[«4»]}
<MI 232da MOVE.L (A0+0x1e),-(A7)> Δ-4 {[4, 'A0']|[«4»]|[4, '(A0+0x1e)']}
<MI 232de NEG.L (A7)> {[4, 'A0']|[«4»]|[4, '(A0+0x1e)']}
<Call 0x232e0 0x2227c> {[4, 'A0']|[«4»]|[4, '(A0+0x1e)']}
<POP 232e4-232e6 StackAdj> Δ+4 {[4, 'A0']|[«4»]}
<MI 232e6 MOVE.L (A0+0x1e),(A7)> {[4, 'A0']|[4, '(A0+0x1e)']}
<MI 232ea MOVEQ.L #0x01,D7> {[4, 'A0']|[4, '(A0+0x1e)']}
<POP 232ec-232f0 Naked> Σ-8 ↓ →0x23328 ←0x232f0
<MI 232ec CMP.L (A7),D7> {[-8-]}
<MI 232ee BGT 0x23328> {[-8-]}
<POP 232f0-23328 Naked> Σ-8 ↓ →0x232ec
<MI 232f0 MOVE.L D7,D0> {[-8-]}
<MI 232f2 ADD.L 0x26832,D0> {[-8-]}
<MI 232f4 SUBQ.L #0x1,D0> {[-8-]}
<MI 232f6 SUBQ.L #0x1,D0> {[-8-]}
<POP 0x232f8 LimitCheck 0x0 ≤ D0 ≤ 0xfff> {[-8-]}
<MI 23302 LEA.L 0x2582a,A0> {[-8-]}
<MI 23308 MOVEA.L (A7+0x4),A1> {[-8-]}
<MI 2330c MOVEA.L (A1+0x22),A1> {[-8-]}
<MI 23310 MOVE.L D7,D1> {[-8-]}
<MI 23312 SUBQ.L #0x1,D1> {[-8-]}
<POP 0x23314 LimitCheck 0x0 ≤ D1 ≤ 0x3ff> {[-8-]}
<MI 2331e MOVE.B (A1+D1.L),(A0+D0.L+#0x8)> {[-8-]}
<MI 23324 ADDQ.L #0x1,D7> {[-8-]}
<MI 23326 BVC 0x232ec> {[-8-]}
<POP 23328-2332a Naked> Σ-8 Δ+8 ↓ ←0x232ec
<POP 23328-2332a StackAdj> Δ+8 {}
<POP 2332a-23332 Epilogue> Σ0
@ 23332
<LVAR -0x004 4(rw)>
<POP 23332-23394 Body>
<POP 23332-23348 Prologue> Σ0 ↓
<POP 23348-23350 RegCacheLoad> Σ0 ↓
<POP 23350-23356 Naked> Σ0 ↓
<MI 23350 MOVE.L 0x2685c,(A6-0x4)> {}
<POP 23356-2335c Naked> Σ0 ↓ →0x2338c ←0x2335c
<MI 23356 MOVEA.L (A6-0x4),A0> {}
<MI 23358 CMPA.W #0x01,A0> {}
<MI 2335a BEQ 0x2338c> {}
<POP 2335c-2338c Naked> Σ0 →0x23356
<POP 2335c-2335e StackAdj> Δ-30 {[-30-]}
<MI 2335e MOVEA.L A7,A1> {[-30-]}
<MI 23360 MOVEA.L A0,A2> {[-30-]}
<BlockMove 30,A2,A1> {[-30-]}
<POP 2336a-2336c StackAdj> Δ-4 {[-34-]}
<Lit 0x2336c> {[-30-]|[$$…]}
<Pointer.sp 0x2336c 4> Δ-4
<Const 0x23370 0x1.2> Δ-2
<Const 0x23372 0x1e.2> Δ-2
<Call 0x23374 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 2337a-2337c StackAdj> Δ+8
<Call 0x2337c 0x103e0> {[-30-]|[$$…]}
WriteConsoleStringCrLf(str : String)
<POP 23382-23386 StackAdj> Δ+34 {}
<MI 23386 MOVE.L (A0+0x26),(A6-0x4)> {}
<MI 2338a BRA 0x23356> {}
<POP 2338c-23394 Epilogue> Σ0 ←0x23356
@ 23394
<LVAR 0x008 4(r)>
<POP 23394-233d0 Body>
<POP 23394-233a6 Prologue> Σ0 ↓
<POP 233a6-233cc Naked> Σ0 ↓
<POP 233a6-233aa StackAdj> Δ-38 {[-38-]}
<MI 233aa MOVE.L (A6+0x8),-(A7)> Δ-4 {[-38-]|[4, '(A6+0x8)']}
<Const 0x233ae 0x1.4> Δ-4 {[-38-]|[4, '(A6+0x8)']|[##1]}
<Call 0x233b2 0x22a50> {[-38-]|[4, '(A6+0x8)']|[##1]}
<POP 233b6-233b8 StackAdj> Δ+8 {[-38-]}
<Call 0x233b8 0x22e34> {[-38-]}
<POP 233bc-233be StackAdj> Δ+4 {[-34-]}
<Call 0x233be 0x22eb6> {[-34-]}
<POP 233c2-233c6 StackAdj> Δ+30 {[-4-]}
<Call 0x233c6 0x22f0a> {[-4-]}
<POP 233ca-233cc StackAdj> Δ+4 {}
<POP 233cc-233d0 Epilogue> Σ0
@ 233d0
<POP 233d0-233fe Body>
<POP 233d0-233e2 Prologue> Σ0 ↓
<POP 233e2-233fa Naked> Σ0 ↓
<POP 233e2-233e4 StackAdj> Δ-8 {[-8-]}
<Call 0x233e4 0x103cc> {[-8-]}
GetPushLevel() : Long
<Call 0x233ea 0x102e4> {[-8-]}
Long2String(a : Long) : String
<POP 233f0-233f2 StackAdj> Δ+4 {[-4-]}
<Call 0x233f2 0x103e0> {[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 233f8-233fa StackAdj> Δ+4 {}
<POP 233fa-233fe Epilogue> Σ0
@ 233fe
<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 233fe-23726 Body>
<POP 233fe-23414 Prologue> Σ0 ↓
<POP 23414-2342c RegCacheLoad> Σ0 ↓
<POP 2342c-2343c Naked> Σ0 ↓ →0x23464
<POP 2342c-2342e StackAdj> Δ-4 {[-4-]}
<MI 2342e MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x23430 0x22134> {[-4-]|[4, '(A6+0x8)']}
<POP 23434-23436 StackAdj> Δ+4 {[-4-]}
<MI 23436 MOVE.L (A7)+,(A6-0x2c)> Δ+4 {}
<MI 2343a BNE 0x23464> {}
<POP 2343c-23464 Naked> Σ0 →0x23474
<POP 2343c-2343e StackAdj> Δ-4 {[-4-]}
<POP 2343e-2343f StackAdj> Δ+2 {[-2-]}
<Blob 0x2343f [2] @> Δ-2 {[-2-]|[«2""»]}
<MI 23442 MOVE.B 0x2194d,(A7+0x1)> {[-2-]|[«2""»]}
<MI 23448 MOVE.B 0x2194e,(A7+0x2)> {[-2-]|[«2""»]}
<POP 2344e-23450 StackAdj> Δ-4 {[-2-]|[«2""»]|[-4-]}
<Lit 0x23450> {[-2-]|[«2""»]|[$$…]}
<Pointer.sp 0x23450 4> Δ-4
<Const 0x23454 0x1.2> Δ-2
<Const 0x23456 0x3.2> Δ-2
<Call 0x2345a 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 2345c-2345e StackAdj> Δ+8
<MI 2345e MOVE.L (A7)+,(A6-0x3c)> Δ+4 {[-2-]|[«2""»]}
<POP 23460-23462 StackAdj> Δ+4 {}
<MI 23462 BRA 0x23474> {}
<POP 23464-23474 Naked> Σ0 ↓ ←0x2342c
<POP 23464-23466 StackAdj> Δ-4 {[-4-]}
<MI 23466 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x23468 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x2346c 0x22a50> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 23470-23472 StackAdj> Δ+8 {[-4-]}
<MI 23472 MOVE.L (A7)+,(A6-0x3c)> Δ+4 {}
<POP 23474-234c4 Naked> Σ0 ↓ →0x234d2 ←0x2343c
<Blob 0x23474 [6] @> Δ-6 {[«6""»]}
<POP 23484-23486 StackAdj> Δ-4 {[«6""»]|[-4-]}
<MI 23486 MOVE.L (A6-0x3c),-(A7)> Δ-4 {[«6""»]|[-4-]|[4, '(A6-0x3c)']}
<POP 23488-2348a StackAdj> Δ-4 {[«6""»]|[-4-]|[4, '(A6-0x3c)']|[-4-]}
<Lit 0x2348a 5> {[«6""»]|[-4-]|[4, '(A6-0x3c)']|[$$.M200]}
<Call 0x23498 0x102d0> {[«6""»]|[-4-]|[4, '(A6-0x3c)']|[$$.M200]}
StringCat2(a, b : String) : String
<POP 2349e-234a0 StackAdj> Δ+8 {[«6""»]|[-4-]}
<MI 234a0 MOVE.L (A7)+,(A6-0x3c)> Δ+4 {[«6""»]}
<POP 234a2-234a4 StackAdj> Δ+2 {[-4-]}
<MI 234a4 MOVE.L (A6-0x3c),(A7)> {[4, '(A6-0x3c)']}
<MI 234a6 CLR.B -(A7)> Δ-2 {[4, '(A6-0x3c)']|[#0]}
<Const 0x234a8 0x1.2> Δ-2 {[4, '(A6-0x3c)']|[#0]|[#1]}
<Const 0x234aa 0x0.4> Δ-4 {[4, '(A6-0x3c)']|[#0]|[#1]|[##0]}
<Pointer.fp 0x234ae <LVAR -0x038 @ 1(r)>> Δ-4 {[4, '(A6-0x3c)']|[#0]|[#1]|[##0]|[@@-56]}
<Pointer.fp 0x234b2 <LVAR -0x036 @ 4(r)>> Δ-4 {[4, '(A6-0x3c)']|[#0]|[#1]|[##0]|[@@-56]|[@@-54]}
<Call 0x234b6 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 234bc-234be StackAdj> Δ+20 {}
<MI 234be TST.B (A6-0x38)> {}
<MI 234c2 BEQ 0x234d2> {}
<POP 234c4-234d2 Naked> Σ0 →0x2371e
<Pointer.fp 0x234c4 <LVAR -0x03c @ 4(rw)>> Δ-4 {[@@-60]}
<Call 0x234c6 0x102bc> {[@@-60]}
FreeString(VAR a : String)
<POP 234cc-234ce StackAdj> Δ+4 {}
<MI 234ce BRA 0x2371e> {}
<POP 234d2-23518 Naked> Σ0 ↓ →0x2354e ←0x23474
<MI 234d2 MOVEA.L (A6-0x36),A0> {}
<MI 234d6 MOVE.B (A0+0x3f),D0> {}
<MI 234da LSL.B #0x6,D0> {}
<MI 234dc LSR.B #0x7,D0> {}
<MI 234de MOVE.B D0,(A6-0x32)> {}
<MI 234e2 CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x234e4 0x1.2> Δ-2 {[#0]|[#1]}
<Const 0x234e6 0x1.4> Δ-4 {[#0]|[#1]|[##1]}
<Pointer.fp 0x234ea <LVAR -0x038 @ 1(r)>> Δ-4 {[#0]|[#1]|[##1]|[@@-56]}
<Pointer.fp 0x234ee <LVAR -0x036 @ 4(r)>> Δ-4 {[#0]|[#1]|[##1]|[@@-56]|[@@-54]}
<Call 0x234f2 0x1038c> {[#0]|[#1]|[##1]|[@@-56]|[@@-54]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 234f8-234fc StackAdj> Δ+16 {}
<MI 234fc MOVEA.L (A6-0x3c),A0> {}
<MI 234fe MOVE.W (A0),D1> {}
<MI 23500 EXTW.L D1> {}
<MI 23502 SUBQ.L #0x5,D1> {}
<POP 0x23504 LimitCheck -0x8000 ≤ D1 ≤ 0x7fff> {}
<MI 23512 MOVE.W D1,(A0)> {}
<MI 23514 TST.B D0> {}
<MI 23516 BNE 0x2354e> {}
<POP 23518-2354e Naked> Σ0 →0x2371e
<Blob 0x23518 [18] @> Δ-18 {[«18""»]}
<POP 23524-23526 StackAdj> Δ-4 {[«18""»]|[-4-]}
<MI 23526 MOVE.L (A6-0x3c),-(A7)> Δ-4 {[«18""»]|[-4-]|[4, '(A6-0x3c)']}
<POP 23528-2352a StackAdj> Δ-4 {[«18""»]|[-4-]|[4, '(A6-0x3c)']|[-4-]}
<Lit 0x2352a 18> {[«18""»]|[-4-]|[4, '(A6-0x3c)']|[$$ is not a program.]}
<Call 0x23538 0x102d0> {[«18""»]|[-4-]|[4, '(A6-0x3c)']|[$$ is not a program.]}
StringCat2(a, b : String) : String
<POP 2353e-23540 StackAdj> Δ+8 {[«18""»]|[-4-]}
<Call 0x23540 0x103e0> {[«18""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 23546-2354a StackAdj> Δ+22 {}
<MI 2354a BRA 0x2371e> {}
<POP 2354e-23568 Naked> Σ0 Δ-8 ↓ ←0x234d2
<Pointer.fp 0x2354e <LVAR -0x030 @ 4(r)>> Δ-4 {[@@-48]}
<Call 0x23552 0x102b8> {[@@-48]}
NewString(VAR a : String)
<POP 23558-2355a StackAdj> Δ+4 {}
<MI 2355a MOVEA.L (A6-0x30),A0> {}
<MI 2355e MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 23560 MOVEQ.L #0x01,D7> {[4, 'A0']}
<MI 23562 MOVE.L (A6-0x2c),-(A7)> Δ-4 {[4, 'A0']|[4, '(A6-0x2c)']}
<MI 23566 MOVEQ.L #0x02,D5> {[4, 'A0']|[4, '(A6-0x2c)']}
<POP 23568-2356e Naked> Σ-8 ↓ →0x23600 ←0x235fa
<MI 23568 CMP.L (A7),D5> {[-8-]}
<MI 2356a BGT 0x23600> {[-8-]}
<POP 2356e-2358e Naked> Σ-8 Δ-4 ↓ →0x235a2
<POP 2356e-23570 StackAdj> Δ-8 {[-16-]}
<MI 23570 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<MI 23572 MOVE.L D5,-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[4, 'D5']}
<Call 0x23574 0x22972> {[-16-]|[4, '(A6+0x8)']|[4, 'D5']}
<POP 23578-2357a StackAdj> Δ+8 {[-16-]}
<MI 2357a MOVE.L (A7)+,(A6-0x28)> Δ+4 {[-12-]}
<MI 2357e MOVE.L (A7)+,(A6-0x24)> Δ+4 {[-8-]}
<MI 23582 MOVE.L (A6-0x24),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x24)']}
<MI 23586 MOVE.L (A6-0x28),D6> {[-8-]|[4, '(A6-0x24)']}
<MI 2358a CMP.L (A7),D6> {[-8-]|[4, '(A6-0x24)']}
<MI 2358c BGT 0x235a2> {[-8-]|[4, '(A6-0x24)']}
<POP 2358e-235a2 Naked> Σ-12 ↓
<MI 2358e MOVE.L (A7),D0> {[-12-]}
<POP 0x23590 LimitCheck -0x7fffffff ≤ D6> {[-12-]}
<MI 23590 CMPI.L #0x80000001,D6>
<MI 23596 BLT 0x235a0>
<POP 0x23598 LimitCheck D0 ≤ 0x7fffffff> {[-12-]}
<MI 23598 CMPI.L #0x7fffffff,D0>
<MI 2359e BLE 0x235a2>
<MI 235a0 TRAP #15>
<POP 235a2-235a6 Naked> Σ-12 ↓ →0x235d8 ←0x2356e ←0x235a6
<MI 235a2 CMP.L (A7),D6> {[-12-]}
<MI 235a4 BGT 0x235d8> {[-12-]}
<POP 235a6-235d8 Naked> Σ-12 ↓ →0x235a2
<MI 235a6 MOVE.L D7,D0> {[-12-]}
<MI 235a8 SUBQ.L #0x1,D0> {[-12-]}
<POP 0x235aa LimitCheck 0x0 ≤ D0 ≤ 0x7d> {[-12-]}
<MI 235b4 MOVEA.L (A7+0x8),A0> {[-12-]}
<MI 235b8 MOVE.L D6,D1> {[-12-]}
<MI 235ba SUBQ.L #0x1,D1> {[-12-]}
<POP 0x235bc LimitCheck 0x0 ≤ D1 ≤ 0xfff> {[-12-]}
<MI 235c6 LEA.L 0x2582a,A1> {[-12-]}
<MI 235cc MOVE.B (A1+D1.L+#0x8),(A0+D0.L+#0x2)> {[-12-]}
<MI 235d2 ADDQ.L #0x1,D7> {[-12-]}
<MI 235d4 ADDQ.L #0x1,D6> {[-12-]}
<MI 235d6 BVC 0x235a2> {[-12-]}
<POP 235d8-235e0 Naked> Σ-12 Δ+4 ↓ →0x235fa ←0x235a2
<POP 235d8-235da StackAdj> Δ+4 {[-8-]}
<MI 235da CMP.L (A6-0x2c),D5> {[-8-]}
<MI 235de BEQ 0x235fa> {[-8-]}
<POP 235e0-235fa Naked> Σ-8 ↓
<MI 235e0 MOVE.L D7,D0> {[-8-]}
<MI 235e2 SUBQ.L #0x1,D0> {[-8-]}
<POP 0x235e4 LimitCheck 0x0 ≤ D0 ≤ 0x7d> {[-8-]}
<MI 235ee MOVEA.L (A7+0x4),A0> {[-8-]}
<MI 235f2 MOVE.B #0x2c,(A0+D0.L+#0x2)> {[-8-]}
<MI 235f8 ADDQ.L #0x1,D7> {[-8-]}
<POP 235fa-23600 Naked> Σ-8 ↓ →0x23568 ←0x235d8
<MI 235fa ADDQ.L #0x1,D5> {[-8-]}
<MI 235fc BVC 0x23568> {[-8-]}
<POP 23600-236b0 Naked> Σ-8 Δ+8 ↓ →0x236b6 ←0x23568
<POP 23600-23602 StackAdj> Δ+4 {[-4-]}
<MI 23602 MOVEA.L (A7),A0> {[-4-]}
<MI 23604 MOVE.L D7,D0> {[-4-]}
<MI 23606 SUBQ.L #0x1,D0> {[-4-]}
<POP 0x23608 LimitCheck -0x8000 ≤ D0 ≤ 0x7fff> {[-4-]}
<MI 23616 MOVE.W D0,(A0)> {[-4-]}
<POP 23618-2361a StackAdj> Δ+2 {[-2-]}
<POP 2361a-2361b StackAdj> Δ+2 {}
<Blob 0x2361b [2] @> Δ-2 {[«2""»]}
<Blob 0x2361e [2] @> Δ-2 {[«2""»]|[«2""»]}
<Blob 0x23622 [2] @> Δ-2 {[«2""»]|[«2""»]|[«2""»]}
<POP 23626-23628 StackAdj> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[-4-]}
<Lit 0x23628 6> {[«2""»]|[«2""»]|[«2""»]|[$$STATUS]}
<MI 23636 MOVE.L (A7)+,(A6-0x8)> Δ+4 {[«2""»]|[«2""»]|[«2""»]}
<POP 2363a-2363c StackAdj> Δ+2 {[«2""»]|[«2""»]}
<MI 2363c MOVE.L (A6+0x8),(A7)> {[4, '(A6+0x8)']}
<Const 0x2363e 0x0.4> Δ-4 {[4, '(A6+0x8)']|[##0]}
<MI 23642 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']}
<Pointer.fp 0x23646 <LVAR -0x010 @ 4(r)>> Δ-4 {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']|[@@-16]}
<Pointer.fp 0x2364a <LVAR -0x013 @ 1(r)>> Δ-4 {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']|[@@-16]|[@@-19]}
<Call 0x2364e 0x24f88> {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']|[@@-16]|[@@-19]}
<POP 23654-23656 StackAdj> Δ+20 {}
<Pointer.fp 0x23656 <LVAR -0x008 @ 4(rw)>> Δ-4 {[@@-8]}
<Call 0x2365a 0x102bc> {[@@-8]}
FreeString(VAR a : String)
<POP 23660-23662 StackAdj> Δ+2 {[-2-]}
<POP 23662-23663 StackAdj> Δ+2 {}
<Blob 0x23663 [2] @> Δ-2 {[«2""»]}
<Blob 0x23666 [2] @> Δ-2 {[«2""»]|[«2""»]}
<Blob 0x2366a [2] @> Δ-2 {[«2""»]|[«2""»]|[«2""»]}
<POP 2366e-23670 StackAdj> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[-4-]}
<Lit 0x23670 6> {[«2""»]|[«2""»]|[«2""»]|[$$RESULT]}
<MI 2367e MOVE.L (A7)+,(A6-0x8)> Δ+4 {[«2""»]|[«2""»]|[«2""»]}
<POP 23682-23684 StackAdj> Δ+2 {[«2""»]|[«2""»]}
<MI 23684 MOVE.L (A6+0x8),(A7)> {[4, '(A6+0x8)']}
<Const 0x23686 0x0.4> Δ-4 {[4, '(A6+0x8)']|[##0]}
<MI 2368a MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']}
<Pointer.fp 0x2368e <LVAR -0x00c @ 4(r)>> Δ-4 {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']|[@@-12]}
<Pointer.fp 0x23692 <LVAR -0x012 @ 1(r)>> Δ-4 {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']|[@@-12]|[@@-18]}
<Call 0x23696 0x24f88> {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']|[@@-12]|[@@-18]}
<POP 2369c-2369e StackAdj> Δ+20 {}
<Pointer.fp 0x2369e <LVAR -0x008 @ 4(rw)>> Δ-4 {[@@-8]}
<Call 0x236a2 0x102bc> {[@@-8]}
FreeString(VAR a : String)
<POP 236a8-236aa StackAdj> Δ+4 {}
<MI 236aa TST.B (A6-0x13)> {}
<MI 236ae BNE 0x236b6> {}
<POP 236b0-236b6 Naked> Σ0 ↓ →0x236bc
<MI 236b0 TST.B (A6-0x12)> {}
<MI 236b4 BEQ 0x236bc> {}
<POP 236b6-236bc Naked> Σ0 →0x236c0 ←0x23600
<MI 236b6 CLR.B (A6-0x4)> {}
<MI 236ba BRA 0x236c0> {}
<POP 236bc-236c0 Naked> Σ0 ↓ ←0x236b0
<MI 236bc MOVE.B #0x01,(A6-0x4)> {}
<POP 236c0-236e6 Naked> Σ0 ↓ →0x23706 ←0x236b6
<MI 236c0 MOVE.L (A6-0x3c),-(A7)> Δ-4 {[4, '(A6-0x3c)']}
<MI 236c2 MOVE.L (A6-0x30),-(A7)> Δ-4 {[4, '(A6-0x3c)']|[4, '(A6-0x30)']}
<MI 236c6 MOVE.B (A6-0x4),D0> {[4, '(A6-0x3c)']|[4, '(A6-0x30)']}
<MI 236ca EXTB.W D0> {[4, '(A6-0x3c)']|[4, '(A6-0x30)']}
<POP 0x236cc LimitCheck 0x0 ≤ D0 ≤ 0x2> {[4, '(A6-0x3c)']|[4, '(A6-0x30)']}
<MI 236d0 MOVE.B D0,-(A7)> Δ-2 {[4, '(A6-0x3c)']|[4, '(A6-0x30)']|[2, 'D0']}
<Pointer.fp 0x236d2 <LVAR -0x014 @ 1(r)>> Δ-4 {[4, '(A6-0x3c)']|[4, '(A6-0x30)']|[2, 'D0']|[@@-20]}
<Call 0x236d6 0x103b0> {[4, '(A6-0x3c)']|[4, '(A6-0x30)']|[2, 'D0']|[@@-20]}
PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
<POP 236dc-236e0 StackAdj> Δ+14 {}
<MI 236e0 TST.B (A6-0x13)> {}
<MI 236e4 BEQ 0x23706> {}
<POP 236e6-23706 Naked> Σ0 ↓
<MI 236e6 MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0x10)']}
<POP 236ea-236ec StackAdj> Δ-4 {[4, '(A6-0x10)']|[-4-]}
<MI 236ec MOVE.B (A6-0x14),D0> {[4, '(A6-0x10)']|[-4-]}
<MI 236f0 EXTB.W D0> {[4, '(A6-0x10)']|[-4-]}
<POP 0x236f2 LimitCheck 0x0 ≤ D0 ≤ 0xe> {[4, '(A6-0x10)']|[-4-]}
<MI 236f6 MOVE.B D0,-(A7)> Δ-2 {[4, '(A6-0x10)']|[-4-]|[2, 'D0']}
<Call 0x236f8 0x103c0> {[4, '(A6-0x10)']|[-4-]|[2, 'D0']}
ExpErrMsg(a: Byte) : String
<POP 236fe-23700 StackAdj> Δ+2 {[4, '(A6-0x10)']|[-4-]}
<Call 0x23700 0x2304e> {[4, '(A6-0x10)']|[-4-]}
<POP 23704-23706 StackAdj> Δ+8 {}
<POP 23706-2370c Naked> Σ0 ↓ →0x2371e ←0x236c0
<MI 23706 TST.B (A6-0x12)> {}
<MI 2370a BEQ 0x2371e> {}
<POP 2370c-2371e Naked> Σ0 ↓
<MI 2370c MOVE.L (A6-0xc),-(A7)> Δ-4 {[4, '(A6-0xc)']}
<POP 23710-23712 StackAdj> Δ-4 {[4, '(A6-0xc)']|[-4-]}
<Call 0x23712 0x103c8> {[4, '(A6-0xc)']|[-4-]}
FSCALL_103c8
<Call 0x23718 0x2304e> {[4, '(A6-0xc)']|[-4-]}
<POP 2371c-2371e StackAdj> Δ+8 {}
<POP 2371e-23726 Epilogue> Σ0 ←0x234c4 ←0x23518 ←0x23706
@ 23726
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 4(rw)>
<LVAR -0x008 @ 4(rw)>
<POP 23726-2379e Body>
<POP 23726-2373c Prologue> Σ0 ↓
<POP 2373c-23744 RegCacheLoad> Σ0 ↓
<POP 23744-23778 Naked> Σ0 ↓ →0x2377e
<POP 23744-23746 StackAdj> Δ-4 {[-4-]}
<MI 23746 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x2374a 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x2374e 0x22a50> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 23752-23754 StackAdj> Δ+8 {[-4-]}
<MI 23754 MOVE.L (A7),(A6-0x8)> {[-4-]}
<MI 23756 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x2375a 0x2.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##2]}
<Call 0x2375e 0x22a50> {[-4-]|[4, '(A6+0x8)']|[##2]}
<POP 23762-23764 StackAdj> Δ+8 {[-4-]}
<MI 23764 MOVE.L (A7),(A6-0x4)> {[-4-]}
<POP 23766-23768 StackAdj> Δ+2 {[-2-]}
<MI 23768 MOVE.L (A6-0x8),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x8)']}
<MI 2376a MOVE.L (A6-0x4),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x8)']|[4, '(A6-0x4)']}
<Call 0x2376c 0x102c8> {[-2-]|[4, '(A6-0x8)']|[4, '(A6-0x4)']}
StringEqual(a, b : String) : Byte
<POP 23772-23774 StackAdj> Δ+8 {[-2-]}
<MI 23774 TST.B (A7)+> Δ+2 {}
<MI 23776 BEQ 0x2377e> {}
<POP 23778-2377e Naked> Σ0 →0x23782
<Call 0x23778 0x22510> {}
<MI 2377c BRA 0x23782> {}
<POP 2377e-23782 Naked> Σ0 ↓ ←0x23744
<Call 0x2377e 0x22556> {}
<POP 23782-23796 Naked> Σ0 ↓ ←0x23778
<Pointer.fp 0x23782 <LVAR -0x004 @ 4(rw)>> Δ-4 {[@@-4]}
<Call 0x23784 0x102bc> {[@@-4]}
FreeString(VAR a : String)
<POP 2378a-2378c StackAdj> Δ+4 {}
<Pointer.fp 0x2378c <LVAR -0x008 @ 4(rw)>> Δ-4 {[@@-8]}
<Call 0x2378e 0x102bc> {[@@-8]}
FreeString(VAR a : String)
<POP 23794-23796 StackAdj> Δ+4 {}
<POP 23796-2379e Epilogue> Σ0
@ 2379e
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 4(rw)>
<LVAR -0x008 @ 4(rw)>
<POP 2379e-23816 Body>
<POP 2379e-237b4 Prologue> Σ0 ↓
<POP 237b4-237bc RegCacheLoad> Σ0 ↓
<POP 237bc-237f0 Naked> Σ0 ↓ →0x237f6
<POP 237bc-237be StackAdj> Δ-4 {[-4-]}
<MI 237be MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x237c2 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x237c6 0x22a50> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 237ca-237cc StackAdj> Δ+8 {[-4-]}
<MI 237cc MOVE.L (A7),(A6-0x8)> {[-4-]}
<MI 237ce MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x237d2 0x2.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##2]}
<Call 0x237d6 0x22a50> {[-4-]|[4, '(A6+0x8)']|[##2]}
<POP 237da-237dc StackAdj> Δ+8 {[-4-]}
<MI 237dc MOVE.L (A7),(A6-0x4)> {[-4-]}
<POP 237de-237e0 StackAdj> Δ+2 {[-2-]}
<MI 237e0 MOVE.L (A6-0x8),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x8)']}
<MI 237e2 MOVE.L (A6-0x4),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x8)']|[4, '(A6-0x4)']}
<Call 0x237e4 0x102c8> {[-2-]|[4, '(A6-0x8)']|[4, '(A6-0x4)']}
StringEqual(a, b : String) : Byte
<POP 237ea-237ec StackAdj> Δ+8 {[-2-]}
<MI 237ec TST.B (A7)+> Δ+2 {}
<MI 237ee BNE 0x237f6> {}
<POP 237f0-237f6 Naked> Σ0 →0x237fa
<Call 0x237f0 0x22510> {}
<MI 237f4 BRA 0x237fa> {}
<POP 237f6-237fa Naked> Σ0 ↓ ←0x237bc
<Call 0x237f6 0x22556> {}
<POP 237fa-2380e Naked> Σ0 ↓ ←0x237f0
<Pointer.fp 0x237fa <LVAR -0x004 @ 4(rw)>> Δ-4 {[@@-4]}
<Call 0x237fc 0x102bc> {[@@-4]}
FreeString(VAR a : String)
<POP 23802-23804 StackAdj> Δ+4 {}
<Pointer.fp 0x23804 <LVAR -0x008 @ 4(rw)>> Δ-4 {[@@-8]}
<Call 0x23806 0x102bc> {[@@-8]}
FreeString(VAR a : String)
<POP 2380c-2380e StackAdj> Δ+4 {}
<POP 2380e-23816 Epilogue> Σ0
@ 23816
<LVAR 0x008 4(r)>
<POP 23816-23842 Body>
<POP 23816-23828 Prologue> Σ0 ↓
<POP 23828-2383e Naked> Σ0 ↓
<POP 23828-2382a StackAdj> Δ-4 {[-4-]}
<MI 2382a MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x2382e 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23832 0x22a50> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 23836-23838 StackAdj> Δ+8 {[-4-]}
<Call 0x23838 0x22848> {[-4-]}
<POP 2383c-2383e StackAdj> Δ+4 {}
<POP 2383e-23842 Epilogue> Σ0
@ 23842
<LVAR 0x008 4(r)>
<LVAR -0x014 @ 4(rw)>
<POP 23842-23942 Body>
<POP 23842-23858 Prologue> Σ0 ↓
<POP 23858-23862 RegCacheLoad> Σ0 ↓
<POP 23862-238c0 Naked> Σ0 ↓ →0x238f0
<POP 23862-23864 StackAdj> Δ-4 {[-4-]}
<MI 23864 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x23866 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x2386a 0x22a50> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 2386e-23870 StackAdj> Δ+8 {[-4-]}
<MI 23870 MOVE.L (A7),(A6-0x14)> {[-4-]}
<MI 23872 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x23874 0x2.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##2]}
<Call 0x23878 0x22a50> {[-4-]|[4, '(A6+0x8)']|[##2]}
<POP 2387c-2387e StackAdj> Δ+8 {[-4-]}
<MI 2387e MOVEA.L (A7)+,A4> Δ+4 {}
<POP 23880-23884 StackAdj> Δ-12 {[-12-]}
<MI 23884 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']}
<Const 0x23886 0x3.4> Δ-4 {[-12-]|[4, '(A6+0x8)']|[##3]}
<Call 0x2388a 0x22a82> {[-12-]|[4, '(A6+0x8)']|[##3]}
<POP 2388e-23890 StackAdj> Δ+8 {[-12-]}
<Call 0x23890 0x10350> {[-12-]}
Quad2Long(a : Quad) : Long
<POP 23896-23898 StackAdj> Δ+8 {[-4-]}
<MI 23898 MOVE.L (A7),D6> {[-4-]}
<POP 2389a-2389c StackAdj> Δ-8 {[-12-]}
<MI 2389c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']}
<Const 0x2389e 0x4.4> Δ-4 {[-12-]|[4, '(A6+0x8)']|[##4]}
<Call 0x238a2 0x22a82> {[-12-]|[4, '(A6+0x8)']|[##4]}
<POP 238a6-238a8 StackAdj> Δ+8 {[-12-]}
<Call 0x238a8 0x10350> {[-12-]}
Quad2Long(a : Quad) : Long
<POP 238ae-238b0 StackAdj> Δ+8 {[-4-]}
<MI 238b0 MOVE.L (A7)+,D5> Δ+4 {}
<MI 238b2 MOVE.L D6,D0> {}
<MI 238b4 ADD.L D5,D0> {}
<MI 238b6 SUBQ.L #0x1,D0> {}
<MI 238b8 MOVE.W (A4),D1> {}
<MI 238ba EXTW.L D1> {}
<MI 238bc CMP.L D1,D0> {}
<MI 238be BLE 0x238f0> {}
<POP 238c0-238f0 Naked> Σ0 ↓
<Blob 0x238c0 [32] @> Δ-32 {[«32""»]}
<POP 238d2-238d4 StackAdj> Δ-4 {[«32""»]|[-4-]}
<Lit 0x238d4 31> {[«32""»]|[$$Offset/Length error in [INSERT]]}
<Call 0x238e8 0x21d28> {[«32""»]|[$$Offset/Length error in [INSERT]]}
<POP 238ec-238f0 StackAdj> Δ+36 {}
<POP 238f0-238fc Naked> Σ0 Δ-8 ↓ ←0x23862
<MI 238f0 MOVEA.L (A6-0x14),A0> {}
<MI 238f2 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 238f4 MOVE.W (A0),D0> {[4, 'A0']}
<MI 238f6 EXTW.L D0> {[4, 'A0']}
<MI 238f8 MOVE.L D0,-(A7)> Δ-4 {[4, 'A0']|[4, 'D0']}
<MI 238fa MOVEQ.L #0x01,D7> {[4, 'A0']|[4, 'D0']}
<POP 238fc-23900 Naked> Σ-8 ↓ →0x23926 ←0x23900
<MI 238fc CMP.L (A7),D7> {[-8-]}
<MI 238fe BGT 0x23926> {[-8-]}
<POP 23900-23926 Naked> Σ-8 ↓ →0x238fc
<MI 23900 MOVE.L D6,D0> {[-8-]}
<MI 23902 ADD.L D7,D0> {[-8-]}
<MI 23904 SUBQ.L #0x1,D0> {[-8-]}
<MI 23906 SUBQ.L #0x1,D0> {[-8-]}
<POP 0x23908 LimitCheck 0x0 ≤ D0 ≤ 0x7d> {[-8-]}
<MI 2390e MOVE.L D7,D1> {[-8-]}
<MI 23910 SUBQ.L #0x1,D1> {[-8-]}
<POP 0x23912 LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-8-]}
<MI 23918 MOVEA.L (A7+0x4),A0> {[-8-]}
<MI 2391c MOVE.B (A0+D1.L+#0x2),(A4+D0.L+#0x2)> {[-8-]}
<MI 23922 ADDQ.L #0x1,D7> {[-8-]}
<MI 23924 BVC 0x238fc> {[-8-]}
<POP 23926-2393a Naked> Σ-8 Δ+8 ↓ ←0x238fc
<POP 23926-23928 StackAdj> Δ+4 {[-4-]}
<MI 23928 MOVE.L A4,(A7)> {[4, 'A4']}
<Call 0x2392a 0x22af2> {[4, 'A4']}
<POP 2392e-23930 StackAdj> Δ+4 {}
<Pointer.fp 0x23930 <LVAR -0x014 @ 4(rw)>> Δ-4 {[@@-20]}
<Call 0x23932 0x102bc> {[@@-20]}
FreeString(VAR a : String)
<POP 23938-2393a StackAdj> Δ+4 {}
<POP 2393a-23942 Epilogue> Σ0
@ 23942
<LVAR 0x008 4(r)>
<LVAR -0x010 @ 4(r)>
<LVAR -0x014 @ 4(rw)>
<POP 23942-23a28 Body>
<POP 23942-23958 Prologue> Σ0 ↓
<POP 23958-23966 RegCacheLoad> Σ0 ↓
<POP 23966-239be Naked> Σ0 ↓ →0x239c4
<POP 23966-23968 StackAdj> Δ-4 {[-4-]}
<MI 23968 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x2396a 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x2396e 0x22a50> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 23972-23974 StackAdj> Δ+8 {[-4-]}
<MI 23974 MOVE.L (A7)+,(A6-0x14)> Δ+4 {}
<Pointer.fp 0x23976 <LVAR -0x010 @ 4(r)>> Δ-4 {[@@-16]}
<Call 0x23978 0x102b8> {[@@-16]}
NewString(VAR a : String)
<POP 2397e-23980 StackAdj> Δ-8 {[@@-16]|[-8-]}
<MI 23980 MOVE.L (A6+0x8),-(A7)> Δ-4 {[@@-16]|[-8-]|[4, '(A6+0x8)']}
<Const 0x23982 0x2.4> Δ-4 {[@@-16]|[-8-]|[4, '(A6+0x8)']|[##2]}
<Call 0x23986 0x22a82> {[@@-16]|[-8-]|[4, '(A6+0x8)']|[##2]}
<POP 2398a-2398c StackAdj> Δ+8 {[@@-16]|[-8-]}
<Call 0x2398c 0x10350> {[@@-16]|[-8-]}
Quad2Long(a : Quad) : Long
<POP 23992-23994 StackAdj> Δ+8 {[@@-16]}
<MI 23994 MOVE.L (A7),D5> {[@@-16]}
<POP 23996-23998 StackAdj> Δ-8 {[@@-16]|[-8-]}
<MI 23998 MOVE.L (A6+0x8),-(A7)> Δ-4 {[@@-16]|[-8-]|[4, '(A6+0x8)']}
<Const 0x2399a 0x3.4> Δ-4 {[@@-16]|[-8-]|[4, '(A6+0x8)']|[##3]}
<Call 0x2399e 0x22a82> {[@@-16]|[-8-]|[4, '(A6+0x8)']|[##3]}
<POP 239a2-239a4 StackAdj> Δ+8 {[@@-16]|[-8-]}
<Call 0x239a4 0x10350> {[@@-16]|[-8-]}
Quad2Long(a : Quad) : Long
<POP 239aa-239ac StackAdj> Δ+8 {[@@-16]}
<MI 239ac MOVE.L (A7)+,D6> Δ+4 {}
<MI 239ae MOVEA.L (A6-0x14),A0> {}
<MI 239b0 MOVE.L D5,D0> {}
<MI 239b2 ADD.L D6,D0> {}
<MI 239b4 SUBQ.L #0x1,D0> {}
<MI 239b6 MOVE.W (A0),D1> {}
<MI 239b8 EXTW.L D1> {}
<MI 239ba CMP.L D1,D0> {}
<MI 239bc BLE 0x239c4> {}
<POP 239be-239c4 Naked> Σ0 ↓
<MI 239be ADDQ.L #0x1,D1> {}
<MI 239c0 SUB.L D5,D1> {}
<MI 239c2 MOVE.L D1,D6> {}
<POP 239c4-239c8 Naked> Σ0 Δ-4 ↓ ←0x23966
<MI 239c4 MOVE.L D6,-(A7)> Δ-4 {[4, 'D6']}
<MI 239c6 MOVEQ.L #0x01,D7> {[4, 'D6']}
<POP 239c8-239cc Naked> Σ-4 ↓ →0x239f2 ←0x239cc
<MI 239c8 CMP.L (A7),D7> {[-4-]}
<MI 239ca BGT 0x239f2> {[-4-]}
<POP 239cc-239f2 Naked> Σ-4 ↓ →0x239c8
<MI 239cc MOVEA.L (A6-0x10),A0> {[-4-]}
<MI 239ce MOVE.L D7,D0> {[-4-]}
<MI 239d0 SUBQ.L #0x1,D0> {[-4-]}
<POP 0x239d2 LimitCheck 0x0 ≤ D0 ≤ 0x7d> {[-4-]}
<MI 239d8 MOVEA.L (A6-0x14),A1> {[-4-]}
<MI 239da MOVE.L D7,D1> {[-4-]}
<MI 239dc ADD.L D5,D1> {[-4-]}
<MI 239de SUBQ.L #0x1,D1> {[-4-]}
<MI 239e0 SUBQ.L #0x1,D1> {[-4-]}
<POP 0x239e2 LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-4-]}
<MI 239e8 MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x2)> {[-4-]}
<MI 239ee ADDQ.L #0x1,D7> {[-4-]}
<MI 239f0 BVC 0x239c8> {[-4-]}
<POP 239f2-23a20 Naked> Σ-4 Δ+4 ↓ ←0x239c8
<POP 239f2-239f4 StackAdj> Δ+4 {}
<MI 239f4 MOVEA.L (A6-0x10),A0> {}
<POP 0x239f6 LimitCheck -0x8000 ≤ D6 ≤ 0x7fff> {}
<MI 23a0c MOVE.W D6,(A0)> {}
<MI 23a0e MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0x10)']}
<Call 0x23a10 0x22af2> {[4, '(A6-0x10)']}
<POP 23a14-23a16 StackAdj> Δ+4 {}
<Pointer.fp 0x23a16 <LVAR -0x014 @ 4(rw)>> Δ-4 {[@@-20]}
<Call 0x23a18 0x102bc> {[@@-20]}
FreeString(VAR a : String)
<POP 23a1e-23a20 StackAdj> Δ+4 {}
<POP 23a20-23a28 Epilogue> Σ0
@ 23a28
<LVAR 0x008 4(r)>
<POP 23a28-23a54 Body>
<POP 23a28-23a3a Prologue> Σ0 ↓
<POP 23a3a-23a50 Naked> Σ0 ↓
<POP 23a3a-23a3c StackAdj> Δ-8 {[-8-]}
<MI 23a3c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<Const 0x23a40 0x1.4> Δ-4 {[-8-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23a44 0x22a82> {[-8-]|[4, '(A6+0x8)']|[##1]}
<POP 23a48-23a4a StackAdj> Δ+8 {[-8-]}
<Call 0x23a4a 0x228bc> {[-8-]}
<POP 23a4e-23a50 StackAdj> Δ+8 {}
<POP 23a50-23a54 Epilogue> Σ0
@ 23a54
<LVAR 0x008 4(r)>
<POP 23a54-23aa0 Body>
<POP 23a54-23a66 Prologue> Σ0 ↓
<POP 23a66-23a92 Naked> Σ0 ↓ →0x23a98
<POP 23a66-23a6a StackAdj> Δ-10 {[-10-]}
<MI 23a6a MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']}
<Const 0x23a6e 0x1.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23a72 0x22a82> {[-10-]|[4, '(A6+0x8)']|[##1]}
<MI 23a76 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x23a7a 0x2.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x23a7e 0x22a82> {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 23a82-23a84 StackAdj> Δ+8 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23a84 0x1032c> {[-10-]|[4, '(A6+0x8)']|[##1]}
IsEqual(a, b : Quad) : Bool
<POP 23a8a-23a8e StackAdj> Δ+16 {[-2-]}
<MI 23a8e TST.B (A7)+> Δ+2 {}
<MI 23a90 BEQ 0x23a98> {}
<POP 23a92-23a98 Naked> Σ0 →0x23a9c
<Call 0x23a92 0x22510> {}
<MI 23a96 BRA 0x23a9c> {}
<POP 23a98-23a9c Naked> Σ0 ↓ ←0x23a66
<Call 0x23a98 0x22556> {}
<POP 23a9c-23aa0 Epilogue> Σ0 ←0x23a92
@ 23aa0
<LVAR 0x008 4(r)>
<POP 23aa0-23aec Body>
<POP 23aa0-23ab2 Prologue> Σ0 ↓
<POP 23ab2-23ade Naked> Σ0 ↓ →0x23ae4
<POP 23ab2-23ab6 StackAdj> Δ-10 {[-10-]}
<MI 23ab6 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']}
<Const 0x23aba 0x1.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23abe 0x22a82> {[-10-]|[4, '(A6+0x8)']|[##1]}
<MI 23ac2 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x23ac6 0x2.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x23aca 0x22a82> {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 23ace-23ad0 StackAdj> Δ+8 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23ad0 0x1032c> {[-10-]|[4, '(A6+0x8)']|[##1]}
IsEqual(a, b : Quad) : Bool
<POP 23ad6-23ada StackAdj> Δ+16 {[-2-]}
<MI 23ada TST.B (A7)+> Δ+2 {}
<MI 23adc BNE 0x23ae4> {}
<POP 23ade-23ae4 Naked> Σ0 →0x23ae8
<Call 0x23ade 0x22510> {}
<MI 23ae2 BRA 0x23ae8> {}
<POP 23ae4-23ae8 Naked> Σ0 ↓ ←0x23ab2
<Call 0x23ae4 0x22556> {}
<POP 23ae8-23aec Epilogue> Σ0 ←0x23ade
@ 23aec
<LVAR 0x008 4(r)>
<POP 23aec-23b38 Body>
<POP 23aec-23afe Prologue> Σ0 ↓
<POP 23afe-23b2a Naked> Σ0 ↓ →0x23b30
<POP 23afe-23b02 StackAdj> Δ-10 {[-10-]}
<MI 23b02 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']}
<Const 0x23b06 0x1.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23b0a 0x22a82> {[-10-]|[4, '(A6+0x8)']|[##1]}
<MI 23b0e MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x23b12 0x2.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x23b16 0x22a82> {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 23b1a-23b1c StackAdj> Δ+8 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23b1c 0x10328> {[-10-]|[4, '(A6+0x8)']|[##1]}
IsSmaller(a, b : Quad) : Bool
<POP 23b22-23b26 StackAdj> Δ+16 {[-2-]}
<MI 23b26 TST.B (A7)+> Δ+2 {}
<MI 23b28 BEQ 0x23b30> {}
<POP 23b2a-23b30 Naked> Σ0 →0x23b34
<Call 0x23b2a 0x22510> {}
<MI 23b2e BRA 0x23b34> {}
<POP 23b30-23b34 Naked> Σ0 ↓ ←0x23afe
<Call 0x23b30 0x22556> {}
<POP 23b34-23b38 Epilogue> Σ0 ←0x23b2a
@ 23b38
<LVAR 0x008 4(r)>
<POP 23b38-23b84 Body>
<POP 23b38-23b4a Prologue> Σ0 ↓
<POP 23b4a-23b76 Naked> Σ0 ↓ →0x23b7c
<POP 23b4a-23b4e StackAdj> Δ-10 {[-10-]}
<MI 23b4e MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']}
<Const 0x23b52 0x1.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23b56 0x22a82> {[-10-]|[4, '(A6+0x8)']|[##1]}
<MI 23b5a MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x23b5e 0x2.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x23b62 0x22a82> {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 23b66-23b68 StackAdj> Δ+8 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23b68 0x10324> {[-10-]|[4, '(A6+0x8)']|[##1]}
IsGreater(a, b : Quad) : Bool
<POP 23b6e-23b72 StackAdj> Δ+16 {[-2-]}
<MI 23b72 TST.B (A7)+> Δ+2 {}
<MI 23b74 BEQ 0x23b7c> {}
<POP 23b76-23b7c Naked> Σ0 →0x23b80
<Call 0x23b76 0x22510> {}
<MI 23b7a BRA 0x23b80> {}
<POP 23b7c-23b80 Naked> Σ0 ↓ ←0x23b4a
<Call 0x23b7c 0x22556> {}
<POP 23b80-23b84 Epilogue> Σ0 ←0x23b76
@ 23b84
<LVAR 0x008 4(r)>
<POP 23b84-23bd0 Body>
<POP 23b84-23b96 Prologue> Σ0 ↓
<POP 23b96-23bc2 Naked> Σ0 ↓ →0x23bc8
<POP 23b96-23b9a StackAdj> Δ-10 {[-10-]}
<MI 23b9a MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']}
<Const 0x23b9e 0x1.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23ba2 0x22a82> {[-10-]|[4, '(A6+0x8)']|[##1]}
<MI 23ba6 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x23baa 0x2.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x23bae 0x22a82> {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 23bb2-23bb4 StackAdj> Δ+8 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23bb4 0x10324> {[-10-]|[4, '(A6+0x8)']|[##1]}
IsGreater(a, b : Quad) : Bool
<POP 23bba-23bbe StackAdj> Δ+16 {[-2-]}
<MI 23bbe TST.B (A7)+> Δ+2 {}
<MI 23bc0 BNE 0x23bc8> {}
<POP 23bc2-23bc8 Naked> Σ0 →0x23bcc
<Call 0x23bc2 0x22510> {}
<MI 23bc6 BRA 0x23bcc> {}
<POP 23bc8-23bcc Naked> Σ0 ↓ ←0x23b96
<Call 0x23bc8 0x22556> {}
<POP 23bcc-23bd0 Epilogue> Σ0 ←0x23bc2
@ 23bd0
<LVAR 0x008 4(r)>
<POP 23bd0-23c1c Body>
<POP 23bd0-23be2 Prologue> Σ0 ↓
<POP 23be2-23c0e Naked> Σ0 ↓ →0x23c14
<POP 23be2-23be6 StackAdj> Δ-10 {[-10-]}
<MI 23be6 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']}
<Const 0x23bea 0x1.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23bee 0x22a82> {[-10-]|[4, '(A6+0x8)']|[##1]}
<MI 23bf2 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x23bf6 0x2.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x23bfa 0x22a82> {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 23bfe-23c00 StackAdj> Δ+8 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23c00 0x10328> {[-10-]|[4, '(A6+0x8)']|[##1]}
IsSmaller(a, b : Quad) : Bool
<POP 23c06-23c0a StackAdj> Δ+16 {[-2-]}
<MI 23c0a TST.B (A7)+> Δ+2 {}
<MI 23c0c BNE 0x23c14> {}
<POP 23c0e-23c14 Naked> Σ0 →0x23c18
<Call 0x23c0e 0x22510> {}
<MI 23c12 BRA 0x23c18> {}
<POP 23c14-23c18 Naked> Σ0 ↓ ←0x23be2
<Call 0x23c14 0x22556> {}
<POP 23c18-23c1c Epilogue> Σ0 ←0x23c0e
@ 23c1c
<LVAR 0x008 4(r)>
<POP 23c1c-23c66 Body>
<POP 23c1c-23c32 Prologue> Σ0 ↓
<POP 23c32-23c34 RegCacheLoad> Σ0 ↓
<POP 23c34-23c5e Naked> Σ0 ↓
<POP 23c34-23c36 StackAdj> Δ-16 {[-16-]}
<MI 23c36 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x23c3a 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23c3e 0x22a82> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 23c42 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x23c46 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x23c4a 0x22a82> {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 23c4e-23c50 StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23c50 0x10314> {[-16-]|[4, '(A6+0x8)']|[##1]}
Add(a, b : Quad) : Quad
<POP 23c56-23c58 StackAdj> Δ+16 {[-8-]}
<Call 0x23c58 0x22b7a> {[-8-]}
<POP 23c5c-23c5e StackAdj> Δ+8 {}
<POP 23c5e-23c66 Epilogue> Σ0
@ 23c66
<LVAR 0x008 4(r)>
<POP 23c66-23cb0 Body>
<POP 23c66-23c7c Prologue> Σ0 ↓
<POP 23c7c-23c7e RegCacheLoad> Σ0 ↓
<POP 23c7e-23ca8 Naked> Σ0 ↓
<POP 23c7e-23c80 StackAdj> Δ-16 {[-16-]}
<MI 23c80 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x23c84 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23c88 0x22a82> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 23c8c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x23c90 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x23c94 0x22a82> {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 23c98-23c9a StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23c9a 0x10318> {[-16-]|[4, '(A6+0x8)']|[##1]}
Subtract(a, b : Quad) : Quad
<POP 23ca0-23ca2 StackAdj> Δ+16 {[-8-]}
<Call 0x23ca2 0x22b7a> {[-8-]}
<POP 23ca6-23ca8 StackAdj> Δ+8 {}
<POP 23ca8-23cb0 Epilogue> Σ0
@ 23cb0
<LVAR 0x008 4(r)>
<POP 23cb0-23cfa Body>
<POP 23cb0-23cc6 Prologue> Σ0 ↓
<POP 23cc6-23cc8 RegCacheLoad> Σ0 ↓
<POP 23cc8-23cf2 Naked> Σ0 ↓
<POP 23cc8-23cca StackAdj> Δ-16 {[-16-]}
<MI 23cca MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x23cce 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23cd2 0x22a82> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 23cd6 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x23cda 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x23cde 0x22a82> {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 23ce2-23ce4 StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23ce4 0x1031c> {[-16-]|[4, '(A6+0x8)']|[##1]}
Multiply(a, b : Quad) : Quad
<POP 23cea-23cec StackAdj> Δ+16 {[-8-]}
<Call 0x23cec 0x22b7a> {[-8-]}
<POP 23cf0-23cf2 StackAdj> Δ+8 {}
<POP 23cf2-23cfa Epilogue> Σ0
@ 23cfa
<LVAR 0x008 4(r)>
<POP 23cfa-23d44 Body>
<POP 23cfa-23d10 Prologue> Σ0 ↓
<POP 23d10-23d12 RegCacheLoad> Σ0 ↓
<POP 23d12-23d3c Naked> Σ0 ↓
<POP 23d12-23d14 StackAdj> Δ-16 {[-16-]}
<MI 23d14 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x23d18 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23d1c 0x22a82> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 23d20 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x23d24 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x23d28 0x22a82> {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 23d2c-23d2e StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23d2e 0x10320> {[-16-]|[4, '(A6+0x8)']|[##1]}
Divide(a, b : Quad) : Quad
<POP 23d34-23d36 StackAdj> Δ+16 {[-8-]}
<Call 0x23d36 0x22b7a> {[-8-]}
<POP 23d3a-23d3c StackAdj> Δ+8 {}
<POP 23d3c-23d44 Epilogue> Σ0
@ 23d44
<LVAR 0x008 4(r)>
<POP 23d44-23d8e Body>
<POP 23d44-23d5a Prologue> Σ0 ↓
<POP 23d5a-23d5c RegCacheLoad> Σ0 ↓
<POP 23d5c-23d86 Naked> Σ0 ↓
<POP 23d5c-23d5e StackAdj> Δ-16 {[-16-]}
<MI 23d5e MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x23d62 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23d66 0x22a82> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 23d6a MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x23d6e 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x23d72 0x22a82> {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 23d76-23d78 StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23d78 0x10358> {[-16-]|[4, '(A6+0x8)']|[##1]}
Modulus(a, b : Quad) : Quad
<POP 23d7e-23d80 StackAdj> Δ+16 {[-8-]}
<Call 0x23d80 0x22b7a> {[-8-]}
<POP 23d84-23d86 StackAdj> Δ+8 {}
<POP 23d86-23d8e Epilogue> Σ0
@ 23d8e
<LVAR 0x008 4(r)>
<POP 23d8e-23dd8 Body>
<POP 23d8e-23da4 Prologue> Σ0 ↓
<POP 23da4-23da6 RegCacheLoad> Σ0 ↓
<POP 23da6-23dd0 Naked> Σ0 ↓
<POP 23da6-23da8 StackAdj> Δ-16 {[-16-]}
<MI 23da8 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x23dac 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23db0 0x22a82> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 23db4 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x23db8 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x23dbc 0x22a82> {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 23dc0-23dc2 StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23dc2 0x10334> {[-16-]|[4, '(A6+0x8)']|[##1]}
BitOr(a, b : Quad) : Quad
<POP 23dc8-23dca StackAdj> Δ+16 {[-8-]}
<Call 0x23dca 0x22b7a> {[-8-]}
<POP 23dce-23dd0 StackAdj> Δ+8 {}
<POP 23dd0-23dd8 Epilogue> Σ0
@ 23dd8
<LVAR 0x008 4(r)>
<POP 23dd8-23e22 Body>
<POP 23dd8-23dee Prologue> Σ0 ↓
<POP 23dee-23df0 RegCacheLoad> Σ0 ↓
<POP 23df0-23e1a Naked> Σ0 ↓
<POP 23df0-23df2 StackAdj> Δ-16 {[-16-]}
<MI 23df2 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x23df6 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23dfa 0x22a82> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 23dfe MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x23e02 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x23e06 0x22a82> {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 23e0a-23e0c StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23e0c 0x10330> {[-16-]|[4, '(A6+0x8)']|[##1]}
BitAnd(a, b : Quad) : Quad
<POP 23e12-23e14 StackAdj> Δ+16 {[-8-]}
<Call 0x23e14 0x22b7a> {[-8-]}
<POP 23e18-23e1a StackAdj> Δ+8 {}
<POP 23e1a-23e22 Epilogue> Σ0
@ 23e22
<LVAR 0x008 4(r)>
<POP 23e22-23e6c Body>
<POP 23e22-23e38 Prologue> Σ0 ↓
<POP 23e38-23e3a RegCacheLoad> Σ0 ↓
<POP 23e3a-23e64 Naked> Σ0 ↓
<POP 23e3a-23e3c StackAdj> Δ-16 {[-16-]}
<MI 23e3c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x23e40 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23e44 0x22a82> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 23e48 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x23e4c 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x23e50 0x22a82> {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 23e54-23e56 StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23e56 0x10340> {[-16-]|[4, '(A6+0x8)']|[##1]}
BitXor(a, b : Quad) : Quad
<POP 23e5c-23e5e StackAdj> Δ+16 {[-8-]}
<Call 0x23e5e 0x22b7a> {[-8-]}
<POP 23e62-23e64 StackAdj> Δ+8 {}
<POP 23e64-23e6c Epilogue> Σ0
@ 23e6c
<LVAR 0x008 4(r)>
<POP 23e6c-23eb0 Body>
<POP 23e6c-23e7e Prologue> Σ0 ↓
<POP 23e7e-23eac Naked> Σ0 ↓
<POP 23e7e-23e82 StackAdj> Δ-16 {[-16-]}
<MI 23e82 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x23e86 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23e8a 0x22a82> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 23e8e MOVE.L (A6+0x8),(A7)> {[-16-]|[4, '(A6+0x8)']|[4, '(A6+0x8)']}
<Const 0x23e92 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[4, '(A6+0x8)']|[##2]}
<Call 0x23e96 0x22abe> {[-16-]|[4, '(A6+0x8)']|[4, '(A6+0x8)']|[##2]}
<POP 23e9a-23e9c StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']}
<Call 0x23e9c 0x10344> {[-16-]|[4, '(A6+0x8)']}
BitShift(a : Quad ; howmuch : integer) : Quad
<POP 23ea2-23ea6 StackAdj> Δ+12 {[-8-]}
<Call 0x23ea6 0x22b7a> {[-8-]}
<POP 23eaa-23eac StackAdj> Δ+8 {}
<POP 23eac-23eb0 Epilogue> Σ0
@ 23eb0
<LVAR 0x008 4(r)>
<POP 23eb0-23ef6 Body>
<POP 23eb0-23ec2 Prologue> Σ0 ↓
<POP 23ec2-23ef2 Naked> Σ0 ↓
<POP 23ec2-23ec6 StackAdj> Δ-16 {[-16-]}
<MI 23ec6 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x23eca 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23ece 0x22a82> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 23ed2 MOVE.L (A6+0x8),(A7)> {[-16-]|[4, '(A6+0x8)']|[4, '(A6+0x8)']}
<Const 0x23ed6 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[4, '(A6+0x8)']|[##2]}
<Call 0x23eda 0x22abe> {[-16-]|[4, '(A6+0x8)']|[4, '(A6+0x8)']|[##2]}
<POP 23ede-23ee0 StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']}
<MI 23ee0 NEG.L (A7)> {[-16-]|[4, '(A6+0x8)']}
<Call 0x23ee2 0x10344> {[-16-]|[4, '(A6+0x8)']}
BitShift(a : Quad ; howmuch : integer) : Quad
<POP 23ee8-23eec StackAdj> Δ+12 {[-8-]}
<Call 0x23eec 0x22b7a> {[-8-]}
<POP 23ef0-23ef2 StackAdj> Δ+8 {}
<POP 23ef2-23ef6 Epilogue> Σ0
@ 23ef6
<LVAR 0x008 4(r)>
<POP 23ef6-23f2c Body>
<POP 23ef6-23f08 Prologue> Σ0 ↓
<POP 23f08-23f28 Naked> Σ0 ↓
<POP 23f08-23f0c StackAdj> Δ-16 {[-16-]}
<MI 23f0c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x23f10 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23f14 0x22a82> {[-16-]|[4, '(A6+0x8)']|[##1]}
<POP 23f18-23f1a StackAdj> Δ+8 {[-16-]}
<Call 0x23f1a 0x10338> {[-16-]}
BitNot(a : Quad) : Quad
<POP 23f20-23f22 StackAdj> Δ+8 {[-8-]}
<Call 0x23f22 0x22b7a> {[-8-]}
<POP 23f26-23f28 StackAdj> Δ+8 {}
<POP 23f28-23f2c Epilogue> Σ0
@ 23f2c
<LVAR 0x008 4(r)>
<LVAR -0x00c 4(rw)>
<LVAR -0x010 4(rw)>
<LVAR -0x014 4(rw)>
<LVAR -0x018 4(rw)>
<POP 23f2c-23fbc Body>
<POP 23f2c-23f42 Prologue> Σ0 ↓
<POP 23f42-23f46 RegCacheLoad> Σ0 ↓
<POP 23f46-23fb4 Naked> Σ0 ↓
<POP 23f46-23f48 StackAdj> Δ-8 {[-8-]}
<MI 23f48 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<Const 0x23f4a 0x1.4> Δ-4 {[-8-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23f4e 0x22a82> {[-8-]|[4, '(A6+0x8)']|[##1]}
<POP 23f52-23f54 StackAdj> Δ+8 {[-8-]}
<MI 23f54 MOVE.L (A7)+,(A6-0x18)> Δ+4 {[-4-]}
<MI 23f58 MOVE.L (A7),(A6-0x14)> {[-4-]}
<POP 23f5c-23f5e StackAdj> Δ-4 {[-8-]}
<MI 23f5e MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<Const 0x23f60 0x2.4> Δ-4 {[-8-]|[4, '(A6+0x8)']|[##2]}
<Call 0x23f64 0x22a82> {[-8-]|[4, '(A6+0x8)']|[##2]}
<POP 23f68-23f6a StackAdj> Δ+8 {[-8-]}
<MI 23f6a MOVE.L (A7)+,(A6-0x10)> Δ+4 {[-4-]}
<MI 23f6e MOVE.L (A7),(A6-0xc)> {[-4-]}
<MI 23f72 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x23f74 0x3.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##3]}
<Call 0x23f78 0x22abe> {[-4-]|[4, '(A6+0x8)']|[##3]}
<POP 23f7c-23f7e StackAdj> Δ+8 {[-4-]}
<MI 23f7e MOVE.L (A7),D7> {[-4-]}
<MI 23f80 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x23f82 0x4.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##4]}
<Call 0x23f86 0x22abe> {[-4-]|[4, '(A6+0x8)']|[##4]}
<POP 23f8a-23f8c StackAdj> Δ+8 {[-4-]}
<MI 23f8c MOVE.L (A7),D6> {[-4-]}
<POP 23f8e-23f90 StackAdj> Δ-4 {[-8-]}
<MI 23f90 MOVE.L (A6-0x14),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x14)']}
<MI 23f94 MOVE.L (A6-0x18),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']}
<MI 23f98 MOVE.L (A6-0xc),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']|[4, '(A6-0xc)']}
<MI 23f9c MOVE.L (A6-0x10),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<MI 23fa0 MOVE.L D7,-(A7)> Δ-4 {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D7']}
<MI 23fa2 MOVE.L D6,-(A7)> Δ-4 {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D7']|[4, 'D6']}
<Call 0x23fa4 0x10348> {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D7']|[4, 'D6']}
?BitField_something_()
<POP 23faa-23fae StackAdj> Δ+24 {[-8-]}
<Call 0x23fae 0x22b7a> {[-8-]}
<POP 23fb2-23fb4 StackAdj> Δ+8 {}
<POP 23fb4-23fbc Epilogue> Σ0
@ 23fbc
<LVAR 0x008 4(r)>
<LVAR -0x00c 4(rw)>
<LVAR -0x010 4(rw)>
<POP 23fbc-2402e Body>
<POP 23fbc-23fd2 Prologue> Σ0 ↓
<POP 23fd2-23fd6 RegCacheLoad> Σ0 ↓
<POP 23fd6-24026 Naked> Σ0 ↓
<POP 23fd6-23fd8 StackAdj> Δ-8 {[-8-]}
<MI 23fd8 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<Const 0x23fda 0x1.4> Δ-4 {[-8-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23fde 0x22a82> {[-8-]|[4, '(A6+0x8)']|[##1]}
<POP 23fe2-23fe4 StackAdj> Δ+8 {[-8-]}
<MI 23fe4 MOVE.L (A7)+,(A6-0x10)> Δ+4 {[-4-]}
<MI 23fe8 MOVE.L (A7),(A6-0xc)> {[-4-]}
<MI 23fec MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x23fee 0x2.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##2]}
<Call 0x23ff2 0x22abe> {[-4-]|[4, '(A6+0x8)']|[##2]}
<POP 23ff6-23ff8 StackAdj> Δ+8 {[-4-]}
<MI 23ff8 MOVE.L (A7),D7> {[-4-]}
<MI 23ffa MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x23ffc 0x3.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##3]}
<Call 0x24000 0x22abe> {[-4-]|[4, '(A6+0x8)']|[##3]}
<POP 24004-24006 StackAdj> Δ+8 {[-4-]}
<MI 24006 MOVE.L (A7),D6> {[-4-]}
<POP 24008-2400a StackAdj> Δ-4 {[-8-]}
<MI 2400a MOVE.L (A6-0xc),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']}
<MI 2400e MOVE.L (A6-0x10),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<MI 24012 MOVE.L D7,-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D7']}
<MI 24014 MOVE.L D6,-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D7']|[4, 'D6']}
<Call 0x24016 0x1034c> {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D7']|[4, 'D6']}
FSCALL_1034c
<POP 2401c-24020 StackAdj> Δ+16 {[-8-]}
<Call 0x24020 0x22b7a> {[-8-]}
<POP 24024-24026 StackAdj> Δ+8 {}
<POP 24026-2402e Epilogue> Σ0
@ 2402e
<LVAR 0x008 4(r)>
<POP 2402e-240a0 Body>
<POP 2402e-24044 Prologue> Σ0 ↓
<POP 24044-24052 Naked> Σ0 Δ-4 ↓
<POP 24044-24046 StackAdj> Δ-4 {[-4-]}
<MI 24046 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x2404a 0x22134> {[-4-]|[4, '(A6+0x8)']}
<POP 2404e-24050 StackAdj> Δ+4 {[-4-]}
<MI 24050 MOVEQ.L #0x01,D7> {[-4-]}
<POP 24052-24056 Naked> Σ-4 ↓ →0x2407c ←0x24056
<MI 24052 CMP.L (A7),D7> {[-4-]}
<MI 24054 BGT 0x2407c> {[-4-]}
<POP 24056-2407c Naked> Σ-4 ↓ →0x24052
<POP 24056-24058 StackAdj> Δ-4 {[-8-]}
<MI 24058 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<MI 2405c MOVE.L D7,-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']|[4, 'D7']}
<Call 0x2405e 0x22a50> {[-8-]|[4, '(A6+0x8)']|[4, 'D7']}
<POP 24062-24064 StackAdj> Δ+8 {[-8-]}
<Call 0x24064 0x103d8> {[-8-]}
WriteConsoleString(str : String)
<POP 2406a-2406c StackAdj> Δ+2 {[-6-]}
<POP 2406c-2406d StackAdj> Δ+2 {[-4-]}
<Const 0x2406d 0x20.2> Δ-2 {[-4-]|[#32]}
<Call 0x24070 0x103d0> {[-4-]|[#32]}
WriteConsoleChar(chr : char)
<POP 24076-24078 StackAdj> Δ+2 {[-4-]}
<MI 24078 ADDQ.L #0x1,D7> {[-4-]}
<MI 2407a BVC 0x24052> {[-4-]}
<POP 2407c-24098 Naked> Σ-4 Δ+4 ↓ ←0x24052
<Const 0x2407c 0x1.4> Δ-4 {[-4-]|[##1]}
<Call 0x24080 0x103e4> {[-4-]|[##1]}
AskConsoleString(prompt : String) : String
<POP 24086-24088 StackAdj> Δ+4 {[-4-]}
<MI 24088 MOVEA.L (A7)+,A4> Δ+4 {}
<MI 2408a MOVE.L A4,-(A7)> Δ-4 {[4, 'A4']}
<Call 0x2408c 0x21f80> {[4, 'A4']}
<MI 24090 MOVE.L A4,(A7)> {[4, 'A4']}
<Call 0x24092 0x22af2> {[4, 'A4']}
<POP 24096-24098 StackAdj> Δ+4 {}
<POP 24098-240a0 Epilogue> Σ0
@ 240a0
<LVAR 0x008 4(r)>
<POP 240a0-24122 Body>
<POP 240a0-240b6 Prologue> Σ0 ↓
<POP 240b6-240bc RegCacheLoad> Σ0 ↓
<POP 240bc-2411a Naked> Σ0 ↓
<POP 240bc-240be StackAdj> Δ-4 {[-4-]}
<MI 240be MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x240c0 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x240c4 0x22a50> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 240c8-240ca StackAdj> Δ+8 {[-4-]}
<MI 240ca MOVEA.L (A7)+,A4> Δ+4 {}
<POP 240cc-240ce StackAdj> Δ-12 {[-12-]}
<MI 240ce MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']}
<Const 0x240d0 0x2.4> Δ-4 {[-12-]|[4, '(A6+0x8)']|[##2]}
<Call 0x240d4 0x22a82> {[-12-]|[4, '(A6+0x8)']|[##2]}
<POP 240d8-240da StackAdj> Δ+8 {[-12-]}
<Call 0x240da 0x10350> {[-12-]}
Quad2Long(a : Quad) : Long
<POP 240e0-240e2 StackAdj> Δ+8 {[-4-]}
<MI 240e2 MOVE.L (A7),D7> {[-4-]}
<POP 240e4-240e6 StackAdj> Δ-8 {[-12-]}
<MI 240e6 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']}
<Const 0x240e8 0x3.4> Δ-4 {[-12-]|[4, '(A6+0x8)']|[##3]}
<Call 0x240ec 0x22a82> {[-12-]|[4, '(A6+0x8)']|[##3]}
<POP 240f0-240f2 StackAdj> Δ+8 {[-12-]}
<Call 0x240f2 0x10350> {[-12-]}
Quad2Long(a : Quad) : Long
<POP 240f8-240fa StackAdj> Δ+8 {[-4-]}
<MI 240fa MOVE.L (A7),D6> {[-4-]}
<POP 240fc-240fe StackAdj> Δ-8 {[-12-]}
<MI 240fe MOVE.L A4,-(A7)> Δ-4 {[-12-]|[4, 'A4']}
<MI 24100 MOVE.L D7,-(A7)> Δ-4 {[-12-]|[4, 'A4']|[4, 'D7']}
<Call 0x24102 0x10360> {[-12-]|[4, 'A4']|[4, 'D7']}
?StringToInt64()
<POP 24108-2410a StackAdj> Δ+4 {[-12-]|[4, 'A4']}
<MI 2410a MOVE.L D6,(A7)> {[-12-]|[4, 'D6']}
<Call 0x2410c 0x1035c> {[-12-]|[4, 'D6']}
Quad2String(a : Quad; radix : Long ) : String
<POP 24112-24114 StackAdj> Δ+12 {[-4-]}
<Call 0x24114 0x22af2> {[-4-]}
<POP 24118-2411a StackAdj> Δ+4 {}
<POP 2411a-24122 Epilogue> Σ0
@ 24122
<LVAR 0x008 4(r)>
<LVAR -0x00a 2(r)>
<LVAR -0x00c 4(rw)>
<LVAR -0x010 4(rw)>
<POP 24122-241a2 Body>
<POP 24122-24138 Prologue> Σ0 ↓
<POP 24138-24140 RegCacheLoad> Σ0 ↓
<POP 24140-24158 Naked> Σ0 ↓
<POP 24140-24142 StackAdj> Δ-8 {[-8-]}
<MI 24142 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<Const 0x24146 0x1.4> Δ-4 {[-8-]|[4, '(A6+0x8)']|[##1]}
<Call 0x2414a 0x22a82> {[-8-]|[4, '(A6+0x8)']|[##1]}
<POP 2414e-24150 StackAdj> Δ+8 {[-8-]}
<MI 24150 MOVE.L (A7)+,(A6-0x10)> Δ+4 {[-4-]}
<MI 24152 MOVE.L (A7)+,(A6-0xc)> Δ+4 {}
<MI 24154 MOVEQ.L #0x00,D7> {}
<MI 24156 MOVEQ.L #0x00,D6> {}
<POP 24158-24188 Naked> Σ0 ↓ →0x24158 ←0x24158
<MI 24158 MOVE.W (A6-0xa),D0> {}
<MI 2415c ANDI.W #0x0001,D0> {}
<MI 24160 CLR.L D1> {}
<MI 24162 MOVE.W D0,D1> {}
<MI 24164 ADD.L D1,D7> {}
<POP 24166-24168 StackAdj> Δ-8 {[-8-]}
<MI 24168 MOVE.L (A6-0xc),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']}
<MI 2416a MOVE.L (A6-0x10),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<Const 0x2416c 0xffffffff.4> Δ-4 {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[##4294967295]}
<Call 0x24170 0x10344> {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[##4294967295]}
BitShift(a : Quad ; howmuch : integer) : Quad
<POP 24176-2417a StackAdj> Δ+12 {[-8-]}
<MI 2417a MOVE.L (A7)+,(A6-0x10)> Δ+4 {[-4-]}
<MI 2417c MOVE.L (A7)+,(A6-0xc)> Δ+4 {}
<MI 2417e ADDQ.L #0x1,D6> {}
<MI 24180 CMPI.L #0x0000003f,D6> {}
<MI 24186 BLE 0x24158> {}
<POP 24188-2419a Naked> Σ0 ↓
<POP 24188-2418a StackAdj> Δ-8 {[-8-]}
<MI 2418a MOVE.L D7,-(A7)> Δ-4 {[-8-]|[4, 'D7']}
<Call 0x2418c 0x10354> {[-8-]|[4, 'D7']}
Long2Quad(a : Long) : Quad
<POP 24192-24194 StackAdj> Δ+4 {[-8-]}
<Call 0x24194 0x22b7a> {[-8-]}
<POP 24198-2419a StackAdj> Δ+8 {}
<POP 2419a-241a2 Epilogue> Σ0
@ 241a2
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 1(r)>
<POP 241a2-24266 Body>
<POP 241a2-241b8 Prologue> Σ0 ↓
<POP 241b8-241c2 RegCacheLoad> Σ0 ↓
<POP 241c2-241c6 Naked> Σ0 ↓ →0x241f8
<MI 241c2 TST.B 0x26864> {}
<MI 241c4 BNE 0x241f8> {}
<POP 241c6-241f8 Naked> Σ0 ↓
<Blob 0x241c6 [28] @> Δ-28 {[«28""»]}
<POP 241d8-241da StackAdj> Δ-4 {[«28""»]|[-4-]}
<Lit 0x241da 27> {[«28""»]|[$$REPEATing, type ^G to exit.]}
<Call 0x241ec 0x103e0> {[«28""»]|[$$REPEATing, type ^G to exit.]}
WriteConsoleStringCrLf(str : String)
<POP 241f2-241f6 StackAdj> Δ+32 {}
<MI 241f6 MOVE.B #0x01,0x26864> {}
<POP 241f8-24222 Naked> Σ0 ↓ →0x24238 ←0x241c2
<POP 241f8-241fa StackAdj> Δ-6 {[-6-]}
<Call 0x241fa 0x103f8> {[-6-]}
GetConsoleConfig() : Long
<MI 24200 MOVE.L (A7)+,D0> Δ+4 {[-2-]}
<POP 0x24202 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {[-2-]}
<MI 2420c MOVE.W D0,(A7)> {[2, 'D0']}
<Pointer.fp 0x2420e <LVAR -0x004 @ 1(r)>> Δ-4 {[2, 'D0']|[@@-4]}
<Call 0x24212 0x10212> {[2, 'D0']|[@@-4]}
KC09_PortStatus(Port : Word; VAR b: Byte)
<POP 24218-2421a StackAdj> Δ+6 {}
<MI 2421a MOVE.B (A6-0x4),D0> {}
<MI 2421e CMP.B #0x01,D0> {}
<MI 24220 BEQ 0x24238> {}
<POP 24222-24238 Naked> Σ0
<MI 24222 MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<Call 0x24226 0x21ce6> {[4, '(A6+0x8)']}
<POP 2422a-2422c StackAdj> Δ+4 {}
<POP 2422c-24238 Bailout> {}
<MI 2422c MOVEA.L (A5+0x8),A7>
<MI 24230 MOVEA.W #0x00,A6>
<MI 24232 JMP 0x255ca>
<POP 24238-24248 Naked> Σ0 ↓ →0x2425e ←0x241f8
<POP 24238-2423a StackAdj> Δ-2 {[-2-]}
<Call 0x2423a 0x103d4> {[-2-]}
ReadChar() : Byte
<MI 24240 MOVE.B (A7)+,D0> Δ+2 {}
<MI 24242 CMPI.B #0x07,D0> {}
<MI 24246 BEQ 0x2425e> {}
<POP 24248-2425e Naked> Σ0
<MI 24248 MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<Call 0x2424c 0x21ce6> {[4, '(A6+0x8)']}
<POP 24250-24252 StackAdj> Δ+4 {}
<POP 24252-2425e Bailout> {}
<MI 24252 MOVEA.L (A5+0x8),A7>
<MI 24256 MOVEA.W #0x00,A6>
<MI 24258 JMP 0x255ca>
<POP 2425e-24266 Epilogue> Σ0 ←0x24238
@ 24266
<POP 24266-24286 Body>
<POP 24266-24278 Prologue> Σ0 ↓
<POP 24278-24282 Naked> Σ0 ↓
<Const 0x24278 0xc8.4> Δ-4 {[##200]}
<Call 0x2427c 0x22bae> {[##200]}
<POP 24280-24282 StackAdj> Δ+4 {}
<POP 24282-24286 Epilogue> Σ0
@ 24286
<LVAR 0x008 4(r)>
<LVAR -0x00c @ 4(r)>
<POP 24286-24332 Body>
<POP 24286-2429c Prologue> Σ0 ↓
<POP 2429c-242a0 RegCacheLoad> Σ0 ↓
<POP 242a0-242b4 Naked> Σ0 Δ-4 ↓
<Pointer.fp 0x242a0 <LVAR -0x00c @ 4(r)>> Δ-4 {[@@-12]}
<Call 0x242a2 0x102b8> {[@@-12]}
NewString(VAR a : String)
<MI 242a8 MOVE.L (A6+0x8),-(A7)> Δ-4 {[@@-12]|[4, '(A6+0x8)']}
<Call 0x242ac 0x22134> {[@@-12]|[4, '(A6+0x8)']}
<POP 242b0-242b2 StackAdj> Δ+4 {[@@-12]}
<MI 242b2 MOVEQ.L #0x01,D7> {[@@-12]}
<POP 242b4-242b8 Naked> Σ-4 ↓ →0x24322 ←0x2431e
<MI 242b4 CMP.L (A7),D7> {[-4-]}
<MI 242b6 BGT 0x24322> {[-4-]}
<POP 242b8-242ca Naked> Σ-4 ↓ →0x242ea
<POP 242b8-242ba StackAdj> Δ-4 {[-8-]}
<MI 242ba MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<MI 242be MOVE.L D7,-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']|[4, 'D7']}
<Call 0x242c0 0x22abe> {[-8-]|[4, '(A6+0x8)']|[4, 'D7']}
<POP 242c4-242c6 StackAdj> Δ+8 {[-8-]}
<MI 242c6 MOVE.L (A7)+,D6> Δ+4 {[-4-]}
<MI 242c8 BLT 0x242ea> {[-4-]}
<POP 242ca-242d2 Naked> Σ-4 ↓ →0x242ea
<MI 242ca CMPI.L #0x000000ff,D6> {[-4-]}
<MI 242d0 BGT 0x242ea> {[-4-]}
<POP 242d2-242ea Naked> Σ-4 →0x2431e
<MI 242d2 MOVE.L (A6-0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6-0xc)']}
<POP 0x242d4 LimitCheck 0x0 ≤ D6 ≤ 0xff> {[-4-]|[4, '(A6-0xc)']}
<MI 242de MOVE.B D6,-(A7)> Δ-2 {[-4-]|[4, '(A6-0xc)']|[2, 'D6']}
<Call 0x242e0 0x102c0> {[-4-]|[4, '(A6-0xc)']|[2, 'D6']}
AppendChar(MOD b : String; a : char)
<POP 242e6-242e8 StackAdj> Δ+6 {[-4-]}
<MI 242e8 BRA 0x2431e> {[-4-]}
<POP 242ea-2431e Naked> Σ-4 ↓ ←0x242b8 ←0x242ca
<Pointer.fp 0x242ea <LVAR -0x00c @ 4(r)>> Δ-4 {[-4-]|[@@-12]}
<Call 0x242ec 0x102bc> {[-4-]|[@@-12]}
FreeString(VAR a : String)
<POP 242f2-242f4 StackAdj> Δ+4 {[-4-]}
<Blob 0x242f4 [28] @> Δ-28 {[-4-]|[«28""»]}
<POP 24300-24302 StackAdj> Δ-4 {[-4-]|[«28""»]|[-4-]}
<Lit 0x24302 28> {[-4-]|[«28""»]|[$$ASCII argument out of range.]}
<Call 0x24316 0x21d28> {[-4-]|[«28""»]|[$$ASCII argument out of range.]}
<POP 2431a-2431e StackAdj> Δ+32 {[-4-]}
<POP 2431e-24322 Naked> Σ-4 ↓ →0x242b4 ←0x242d2
<MI 2431e ADDQ.L #0x1,D7> {[-4-]}
<MI 24320 BVC 0x242b4> {[-4-]}
<POP 24322-2432a Naked> Σ-4 Δ+4 ↓ ←0x242b4
<MI 24322 MOVE.L (A6-0xc),(A7)> {[4, '(A6-0xc)']}
<Call 0x24324 0x22af2> {[4, '(A6-0xc)']}
<POP 24328-2432a StackAdj> Δ+4 {}
<POP 2432a-24332 Epilogue> Σ0
@ 24332
<LVAR 0x00c 1(rw)>
<LVAR 0x008 4(r)>
<POP 24332-243ea Body> Δ-8
<POP 24332-24348 Prologue> Σ0 ↓
<POP 24348-24358 Naked> Σ0 Δ-4 ↓
<MI 24348 CLR.B (A6+0xc)> {}
<MI 2434c MOVEA.L (A6+0x8),A0> {}
<MI 24350 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 24352 MOVEQ.L #0x00,D0> {[4, 'A0']}
<MI 24354 ADDQ.W #0x1,D0> {[4, 'A0']}
<MI 24356 MOVE.B D0,D6> {[4, 'A0']}
<POP 24358-24360 Naked> Σ-4 ↓ →0x243e0 ←0x243da
<MI 24358 CMPI.B #0x2b,D6> {[-4-]}
<MI 2435c BGT 0x243e0> {[-4-]}
<POP 24360-24386 Naked> Σ-4 ↓ →0x243da
<MI 24360 LEA.L 0x21c14,A0> {[-4-]}
<MI 24364 MOVE.B D6,D0> {[-4-]}
<MI 24366 EXTB.W D0> {[-4-]}
<MI 24368 EXTW.L D0> {[-4-]}
<MI 2436a ROR.L #0x1,D0> {[-4-]}
<MI 2436c ADDA.W D0,A0> {[-4-]}
<MI 2436e SWAP.W D0> {[-4-]}
<MI 24370 ROL.W #0x3,D0> {[-4-]}
<MI 24372 CLR.L D1> {[-4-]}
<MI 24374 MOVE.B (A0),D1> {[-4-]}
<MI 24376 LSL.B D0,D1> {[-4-]}
<MI 24378 LSR.B #0x4,D1> {[-4-]}
<MI 2437a MOVE.L D1,D5> {[-4-]}
<MI 2437c MOVEA.L (A7),A0> {[-4-]}
<MI 2437e MOVE.W (A0),D0> {[-4-]}
<MI 24380 EXTW.L D0> {[-4-]}
<MI 24382 CMP.L D0,D5> {[-4-]}
<MI 24384 BNE 0x243da> {[-4-]}
<POP 24386-2438a Naked> Σ-4 Δ-4 ↓
<MI 24386 MOVE.L D5,-(A7)> Δ-4 {[-4-]|[4, 'D5']}
<MI 24388 MOVEQ.L #0x01,D7> {[-4-]|[4, 'D5']}
<POP 2438a-2438e Naked> Σ-8 ↓ →0x243d0 ←0x243cc
<MI 2438a CMP.L (A7),D7> {[-8-]}
<MI 2438c BGT 0x243d0> {[-8-]}
<POP 2438e-243c8 Naked> Σ-8 ↓ →0x243cc
<MI 2438e MOVE.B D6,D0> {[-8-]}
<MI 24390 EXTB.W D0> {[-8-]}
<MI 24392 MULS.W #0xa,D0> {[-8-]}
<MI 24396 MOVE.L D7,D1> {[-8-]}
<MI 24398 SUBQ.L #0x1,D1> {[-8-]}
<POP 0x2439a LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-8-]}
<MI 243a4 MOVEA.L (A7+0x4),A0> {[-8-]}
<MI 243a8 LEA.L 0x21a5c,A1> {[-8-]}
<MI 243ac MOVE.L D7,D2> {[-8-]}
<MI 243ae SUBQ.L #0x1,D2> {[-8-]}
<POP 0x243b0 LimitCheck 0x0 ≤ D2 ≤ 0x9> {[-8-]}
<MI 243ba LEA.L (A1+D0.W),A1> {[-8-]}
<MI 243be MOVE.B (A0+D1.L+#0x2),D0> {[-8-]}
<MI 243c2 CMP.B (A1+D2.L),D0> {[-8-]}
<MI 243c6 BEQ 0x243cc> {[-8-]}
<POP 243c8-243cc Naked> Σ-8 Δ+4 →0x243da
<POP 243c8-243ca StackAdj> Δ+4 {[-4-]}
<MI 243ca BRA 0x243da> {[-4-]}
<POP 243cc-243d0 Naked> Σ-8 ↓ →0x2438a ←0x2438e
<MI 243cc ADDQ.L #0x1,D7> {[-8-]}
<MI 243ce BVC 0x2438a> {[-8-]}
<POP 243d0-243da Naked> Σ-8 Δ+8 →0x243e2 ←0x2438a
<POP 243d0-243d2 StackAdj> Δ+4 {[-4-]}
<MI 243d2 MOVE.B D6,(A6+0xc)> {[-4-]}
<POP 243d6-243d8 StackAdj> Δ+4 {}
<MI 243d8 BRA 0x243e2> {}
<POP 243da-243e0 Naked> Σ-4 ↓ →0x24358 ←0x24360 ←0x243c8
<MI 243da ADDQ.B #0x1,D6> {[-4-]}
<MI 243dc BVC 0x24358> {[-4-]}
<POP 243e0-243e2 Naked> Σ-4 Δ+4 ↓ ←0x24358
<POP 243e0-243e2 StackAdj> Δ+4 {}
<POP 243e2-243ea Epilogue> Σ0 ←0x243d0
@ 243ea
<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 243ea-24526 Body>
<POP 243ea-24400 Prologue> Σ0 ↓
<POP 24400-2440e RegCacheLoad> Σ0 ↓
<POP 2440e-2447a Naked> Σ0 ↓ →0x244c4
<POP 2440e-24410 StackAdj> Δ-4 {[-4-]}
<MI 24410 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']}
<Call 0x24414 0x102cc> {[-4-]|[4, '(A6+0xc)']}
StringDup(a : String) : String
<POP 2441a-2441c StackAdj> Δ+4 {[-4-]}
<MI 2441c MOVE.L (A7)+,(A6-0x10)> Δ+4 {}
<MI 2441e MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0x10)']}
<Const 0x24420 0x2e.2> Δ-2 {[4, '(A6-0x10)']|[#46]}
<Call 0x24424 0x102c0> {[4, '(A6-0x10)']|[#46]}
AppendChar(MOD b : String; a : char)
<POP 2442a-2442c StackAdj> Δ+6 {}
<Blob 0x2442c [10] 0x26844> Δ-10 {[«10»]}
<POP 2443a-2443c StackAdj> Δ-4 {[«10»]|[-4-]}
<MI 2443c MOVE.L (A6-0x10),-(A7)> Δ-4 {[«10»]|[-4-]|[4, '(A6-0x10)']}
<POP 2443e-24440 StackAdj> Δ-4 {[«10»]|[-4-]|[4, '(A6-0x10)']|[-4-]}
<Lit 0x24440> {[«10»]|[-4-]|[4, '(A6-0x10)']|[$$…]}
<Pointer.sp 0x24440 12> Δ-4
<Const 0x24444 0x1.2> Δ-2
<Const 0x24446 0xa.2> Δ-2
<Call 0x2444a 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 24450-24452 StackAdj> Δ+8
<Call 0x24452 0x102d0> {[«10»]|[-4-]|[4, '(A6-0x10)']|[$$…]}
StringCat2(a, b : String) : String
<POP 24458-2445a StackAdj> Δ+8 {[«10»]|[-4-]}
<MI 2445a MOVE.L (A7)+,(A6-0x10)> Δ+4 {[«10»]}
<POP 2445c-2445e StackAdj> Δ+6 {[-4-]}
<MI 2445e MOVE.L (A6-0x10),(A7)> {[4, '(A6-0x10)']}
<MI 24460 CLR.B -(A7)> Δ-2 {[4, '(A6-0x10)']|[#0]}
<Const 0x24462 0x1.2> Δ-2 {[4, '(A6-0x10)']|[#0]|[#1]}
<Const 0x24464 0x0.4> Δ-4 {[4, '(A6-0x10)']|[#0]|[#1]|[##0]}
<Pointer.fp 0x24468 <LVAR -0x002 @ 1(r)>> Δ-4 {[4, '(A6-0x10)']|[#0]|[#1]|[##0]|[@@-2]}
<Pointer.fp 0x2446a <LVAR -0x00c @ 4(r)>> Δ-4 {[4, '(A6-0x10)']|[#0]|[#1]|[##0]|[@@-2]|[@@-12]}
<Call 0x2446c 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 24472-24476 StackAdj> Δ+20 {}
<MI 24476 TST.B (A6-0x2)> {}
<MI 24478 BEQ 0x244c4> {}
<POP 2447a-244c4 Naked> Σ0 ↓
<Pointer.fp 0x2447a <LVAR -0x010 @ 4(rw)>> Δ-4 {[@@-16]}
<Call 0x2447c 0x102bc> {[@@-16]}
FreeString(VAR a : String)
<MI 24482 MOVE.L (A6+0x8),(A7)> {[4, '(A6+0x8)']}
<Call 0x24486 0x21ce6> {[4, '(A6+0x8)']}
<POP 2448a-2448b StackAdj> Δ+4 ↓ {}
<Blob 0x2448b [26] @> Δ-26 {[«26""»]}
<POP 2449c-2449e StackAdj> Δ-8 {[«26""»]|[-8-]}
<Lit 0x2449e 25> {[«26""»]|[-4-]|[$$Not a command or macro :_]}
<POP 244ae-244b0 StackAdj> Δ-4 {[«26""»]|[-4-]|[$$Not a command or macro :_]|[-4-]}
<MI 244b0 MOVE.L (A6+0xc),(A7)> {[«26""»]|[-4-]|[$$Not a command or macro :_]|[4, '(A6+0xc)']}
<Call 0x244b4 0x102d0> {[«26""»]|[-4-]|[$$Not a command or macro :_]|[4, '(A6+0xc)']}
StringCat2(a, b : String) : String
<POP 244ba-244bc StackAdj> Δ+8 {[«26""»]|[-4-]}
<Call 0x244bc 0x21d28> {[«26""»]|[-4-]}
<POP 244c0-244c4 StackAdj> Δ+30 {}
<POP 244c4-244cc Naked> Σ0 ↓ ←0x2440e
<MI 244c4 MOVE.L 0x26832,(A6-0x6)> {}
<POP 244cc-244e4 Naked> Σ0 ↓ →0x244f8 ←0x244f8
<MI 244cc MOVE.L (A6-0xc),-(A7)> Δ-4 {[4, '(A6-0xc)']}
<Pointer.fp 0x244ce <LVAR -0x010 @ 4(rw)>> Δ-4 {[4, '(A6-0xc)']|[@@-16]}
<Pointer.fp 0x244d0 <LVAR -0x008 @ 1(r)>> Δ-4 {[4, '(A6-0xc)']|[@@-16]|[@@-8]}
<Call 0x244d4 0x1043c> {[4, '(A6-0xc)']|[@@-16]|[@@-8]}
FileReadLine(file : File; VAR a : String; VAR b : Byte)
<POP 244da-244de StackAdj> Δ+12 {}
<MI 244de MOVEA.L (A6-0x10),A0> {}
<MI 244e0 TST.W (A0)> {}
<MI 244e2 BEQ 0x244f8> {}
<POP 244e4-244f8 Naked> Σ0 ↓
<MI 244e4 MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0x10)']}
<Call 0x244e6 0x21f80> {[4, '(A6-0x10)']}
<POP 244ea-244ec StackAdj> Δ+4 {}
<Pointer.fp 0x244ec <LVAR -0x006 @ 4(w)>> Δ-4 {[@@-6]}
<MI 244f0 MOVE.L (A6-0x10),-(A7)> Δ-4 {[@@-6]|[4, '(A6-0x10)']}
<Call 0x244f2 0x22306> {[@@-6]|[4, '(A6-0x10)']}
<POP 244f6-244f8 StackAdj> Δ+8 {}
<POP 244f8-244fe Naked> Σ0 ↓ →0x244cc ←0x244cc
<MI 244f8 TST.B (A6-0x8)> {}
<MI 244fc BEQ 0x244cc> {}
<POP 244fe-2451e Naked> Σ0 ↓
<MI 244fe CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x24500 0x1.2> Δ-2 {[#0]|[#1]}
<Const 0x24502 0x1.4> Δ-4 {[#0]|[#1]|[##1]}
<Pointer.fp 0x24506 <LVAR -0x002 @ 1(r)>> Δ-4 {[#0]|[#1]|[##1]|[@@-2]}
<Pointer.fp 0x24508 <LVAR -0x00c @ 4(r)>> Δ-4 {[#0]|[#1]|[##1]|[@@-2]|[@@-12]}
<Call 0x2450a 0x1038c> {[#0]|[#1]|[##1]|[@@-2]|[@@-12]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 24510-24514 StackAdj> Δ+16 {}
<Pointer.fp 0x24514 <LVAR -0x010 @ 4(rw)>> Δ-4 {[@@-16]}
<Call 0x24516 0x102bc> {[@@-16]}
FreeString(VAR a : String)
<POP 2451c-2451e StackAdj> Δ+4 {}
<POP 2451e-24526 Epilogue> Σ0
@ 24526
<LVAR 0x014 1(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 24526-24566 Body>
<POP 24526-2453c Prologue> Σ0 ↓
<POP 2453c-2455e Naked> Σ0 ↓
<MI 2453c MOVE.L (A6+0xc),D0> {}
<MI 24540 ADD.L (A6+0x8),D0> {}
<MI 24544 SUBQ.L #0x1,D0> {}
<MI 24546 SUBQ.L #0x1,D0> {}
<POP 0x24548 LimitCheck 0x0 ≤ D0 ≤ 0xfff> {}
<MI 24552 LEA.L 0x2582a,A0> {}
<MI 24558 MOVE.B (A0+D0.L+#0x8),(A6+0x14)> {}
<POP 2455e-24566 Epilogue> Σ0
@ 24566
<LVAR 0x010 4(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 1(r)>
<LVAR -0x008 @ 4(r)>
<POP 24566-245e2 Body>
<POP 24566-2457c Prologue> Σ0 ↓
<POP 2457c-245a4 Naked> Σ0 ↓ →0x245d4
<POP 2457c-2457e StackAdj> Δ-4 {[-4-]}
<MI 2457e MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']}
<MI 24582 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x24586 0x229d4> {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 2458a-2458c StackAdj> Δ+8 {[-4-]}
<Pointer.fp 0x2458c <LVAR -0x004 @ 1(r)>> Δ-4 {[-4-]|[@@-4]}
<Pointer.fp 0x24590 <LVAR -0x008 @ 4(r)>> Δ-4 {[-4-]|[@@-4]|[@@-8]}
<Call 0x24594 0x102ec> {[-4-]|[@@-4]|[@@-8]}
String2Long(src : String; VAR status : Bool; VAR retval : Long)
<POP 2459a-2459e StackAdj> Δ+12 {}
<MI 2459e TST.B (A6-0x4)> {}
<MI 245a2 BNE 0x245d4> {}
<POP 245a4-245d4 Naked> Σ0 ↓
<Blob 0x245a4 [24] @> Δ-24 {[«24""»]}
<POP 245b6-245b8 StackAdj> Δ-4 {[«24""»]|[-4-]}
<Lit 0x245b8 23> {[«24""»]|[$$Illegal marker argument]}
<Call 0x245cc 0x21d28> {[«24""»]|[$$Illegal marker argument]}
<POP 245d0-245d4 StackAdj> Δ+28 {}
<POP 245d4-245da Naked> Σ0 ↓ ←0x2457c
<MI 245d4 MOVE.L (A6-0x8),(A6+0x10)> {}
<POP 245da-245e2 Epilogue> Σ0
@ 245e2
<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 245e2-2470a Body>
<POP 245e2-245f8 Prologue> Σ0 ↓
<POP 245f8-24608 RegCacheLoad> Σ0 ↓
<POP 24608-24622 Naked> Σ0 Δ-4 ↓
<MI 24608 MOVEQ.L #0x00,D7> {}
<MI 2460a MOVE.L (A6+0x14),(A6-0x20)> {}
<MI 2460e MOVE.L 0x26832,D0> {}
<MI 24614 SUB.L (A6+0x14),D0> {}
<MI 24618 MOVE.L D0,(A6-0x14)> {}
<MI 2461a MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<MI 2461e MOVE.L (A6+0x10),D5> {[4, '(A6+0xc)']}
<POP 24622-24626 Naked> Σ-4 ↓ →0x24652 ←0x2464e
<MI 24622 CMP.L (A7),D5> {[-4-]}
<MI 24624 BGT 0x24652> {[-4-]}
<POP 24626-2464c Naked> Σ-4 ↓ →0x2464e
<POP 24626-24628 StackAdj> Δ-8 {[-12-]}
<MI 24628 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']}
<MI 2462c MOVE.L D5,-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']|[4, 'D5']}
<Call 0x2462e 0x22972> {[-12-]|[4, '(A6+0x8)']|[4, 'D5']}
<POP 24632-24634 StackAdj> Δ+8 {[-12-]}
<MI 24634 MOVE.L (A7)+,(A6-0x10)> Δ+4 {[-8-]}
<MI 24636 MOVE.L (A7),(A6-0xc)> {[-8-]}
<MI 24638 MOVE.L (A6-0xc),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']}
<MI 2463a MOVE.L (A6-0x10),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<Call 0x2463c 0x2293a> {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<POP 24640-24642 StackAdj> Δ+8 {[-8-]}
<MI 24642 MOVE.L (A7)+,D6> Δ+4 {[-4-]}
<MI 24644 ADD.L D6,D7> {[-4-]}
<MI 24646 CMP.L (A6+0xc),D5> {[-4-]}
<MI 2464a BGE 0x2464e> {[-4-]}
<POP 2464c-2464e Naked> Σ-4 ↓
<MI 2464c ADDQ.L #0x1,D7> {[-4-]}
<POP 2464e-24652 Naked> Σ-4 ↓ →0x24622 ←0x24626
<MI 2464e ADDQ.L #0x1,D5> {[-4-]}
<MI 24650 BVC 0x24622> {[-4-]}
<POP 24652-24660 Naked> Σ-4 Δ+4 ↓ →0x2466c ←0x24622
<POP 24652-24654 StackAdj> Δ+4 {}
<MI 24654 MOVE.L (A6-0x20),D0> {}
<MI 24656 ADD.L (A6-0x14),D0> {}
<MI 24658 MOVE.L D0,(A6-0x18)> {}
<MI 2465c CMP.L (A6-0x14),D7> {}
<MI 2465e BEQ 0x2466c> {}
<POP 24660-2466c Naked> Σ0 ↓
<MI 24660 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 24662 MOVE.L (A6-0x14),-(A7)> Δ-4 {[4, 'D0']|[4, '(A6-0x14)']}
<MI 24664 SUB.L D7,(A7)> {[4, 'D0']|[-4-]}
<Call 0x24666 0x2227c> {[4, 'D0']|[-4-]}
<POP 2466a-2466c StackAdj> Δ+8 {}
<POP 2466c-24674 Naked> Σ0 Δ-4 ↓ ←0x24652
<MI 2466c MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<MI 24670 MOVE.L (A6+0x10),D5> {[4, '(A6+0xc)']}
<POP 24674-2467a Naked> Σ-4 ↓ →0x24700 ←0x246fa
<MI 24674 CMP.L (A7),D5> {[-4-]}
<MI 24676 BGT 0x24700> {[-4-]}
<POP 2467a-2469c Naked> Σ-4 Δ-4 ↓
<POP 2467a-2467c StackAdj> Δ-8 {[-12-]}
<MI 2467c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']}
<MI 24680 MOVE.L D5,-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']|[4, 'D5']}
<Call 0x24682 0x22972> {[-12-]|[4, '(A6+0x8)']|[4, 'D5']}
<POP 24686-24688 StackAdj> Δ+8 {[-12-]}
<MI 24688 MOVE.L (A7)+,(A6-0x10)> Δ+4 {[-8-]}
<MI 2468a MOVE.L (A7),(A6-0xc)> {[-8-]}
<MI 2468c MOVE.L (A6-0xc),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']}
<MI 2468e MOVE.L (A6-0x10),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<Call 0x24690 0x2293a> {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<POP 24694-24696 StackAdj> Δ+8 {[-8-]}
<MI 24696 MOVE.L (A7)+,D6> Δ+4 {[-4-]}
<MI 24698 MOVE.L D6,-(A7)> Δ-4 {[-4-]|[4, 'D6']}
<MI 2469a MOVEQ.L #0x01,D0> {[-4-]|[4, 'D6']}
<POP 2469c-246a0 Naked> Σ-8 ↓ →0x246d0 ←0x246a0
<MI 2469c CMP.L (A7),D0> {[-8-]}
<MI 2469e BGT 0x246d0> {[-8-]}
<POP 246a0-246d0 Naked> Σ-8 ↓ →0x2469c
<MI 246a0 MOVE.L (A6-0x20),D1> {[-8-]}
<MI 246a2 ADD.L D0,D1> {[-8-]}
<MI 246a4 SUBQ.L #0x1,D1> {[-8-]}
<MI 246a6 SUBQ.L #0x1,D1> {[-8-]}
<POP 0x246a8 LimitCheck 0x0 ≤ D1 ≤ 0xfff> {[-8-]}
<MI 246b2 LEA.L 0x2582a,A0> {[-8-]}
<POP 246b8-246ba StackAdj> Δ-2 {[-10-]}
<MI 246ba MOVE.L (A6-0xc),-(A7)> Δ-4 {[-10-]|[4, '(A6-0xc)']}
<MI 246bc MOVE.L (A6-0x10),-(A7)> Δ-4 {[-10-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<MI 246be MOVE.L D0,-(A7)> Δ-4 {[-10-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D0']}
<Call 0x246c0 0x24526> {[-10-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D0']}
<POP 246c4-246c8 StackAdj> Δ+12 {[-10-]}
<MI 246c8 MOVE.B (A7)+,(A0+D1.L+#0x8)> Δ+2 {[-8-]}
<MI 246cc ADDQ.L #0x1,D0> {[-8-]}
<MI 246ce BVC 0x2469c> {[-8-]}
<POP 246d0-246d8 Naked> Σ-8 Δ+4 ↓ →0x246fa ←0x2469c
<POP 246d0-246d2 StackAdj> Δ+4 {[-4-]}
<MI 246d2 CMP.L (A6+0xc),D5> {[-4-]}
<MI 246d6 BGE 0x246fa> {[-4-]}
<POP 246d8-246fa Naked> Σ-4 ↓
<MI 246d8 MOVE.L (A6-0x20),D0> {[-4-]}
<MI 246da ADD.L D6,D0> {[-4-]}
<MI 246dc MOVE.L D0,D1> {[-4-]}
<MI 246de SUBQ.L #0x1,D1> {[-4-]}
<POP 0x246e0 LimitCheck 0x0 ≤ D1 ≤ 0xfff> {[-4-]}
<MI 246ea LEA.L 0x2582a,A0> {[-4-]}
<MI 246f0 MOVE.B #0x2c,(A0+D1.L+#0x8)> {[-4-]}
<MI 246f6 ADDQ.L #0x1,D0> {[-4-]}
<MI 246f8 MOVE.L D0,(A6-0x20)> {[-4-]}
<POP 246fa-24700 Naked> Σ-4 ↓ →0x24674 ←0x246d0
<MI 246fa ADDQ.L #0x1,D5> {[-4-]}
<MI 246fc BVC 0x24674> {[-4-]}
<POP 24700-24702 Naked> Σ-4 Δ+4 ↓ ←0x24674
<POP 24700-24702 StackAdj> Δ+4 {}
<POP 24702-2470a Epilogue> Σ0
@ 2470a
<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 2470a-24800 Body> Δ-12
<POP 2470a-24720 Prologue> Σ0 ↓
<POP 24720-24736 RegCacheLoad> Σ0 ↓
<POP 24736-24760 Naked> Σ0 Δ-4 ↓
<POP 24736-24738 StackAdj> Δ-4 {[-4-]}
<MI 24738 MOVE.L (A6+0x14),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']}
<MI 2473a MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<Call 0x2473c 0x2293a> {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<POP 24740-24742 StackAdj> Δ+8 {[-4-]}
<MI 24742 MOVE.L (A7),(A6-0xc)> {[-4-]}
<MI 24744 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']}
<MI 24748 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x2474c 0x2293a> {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 24750-24752 StackAdj> Δ+8 {[-4-]}
<MI 24752 MOVE.L (A7)+,(A6-0x8)> Δ+4 {}
<MI 24754 ADDQ.L #0x1,(A6-0x8)> {}
<MI 24756 MOVE.L (A6-0xc),D0> {}
<MI 24758 SUB.L (A6-0x8),D0> {}
<MI 2475a ADDQ.L #0x1,D0> {}
<MI 2475c MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 2475e MOVEQ.L #0x01,D0> {[4, 'D0']}
<POP 24760-24766 Naked> Σ-4 ↓ →0x247f2 ←0x247ea
<MI 24760 CMP.L (A7),D0> {[-4-]}
<MI 24762 BGT 0x247f2> {[-4-]}
<POP 24766-24772 Naked> Σ-4 Δ-8 ↓
<MI 24766 MOVE.L D0,(A6-0x18)> {[-4-]}
<MI 2476a MOVE.L D0,-(A7)> Δ-4 {[-4-]|[4, 'D0']}
<MI 2476c MOVEQ.L #0x00,D6> {[-4-]|[4, 'D0']}
<MI 2476e MOVE.L (A6-0x8),-(A7)> Δ-4 {[-4-]|[4, 'D0']|[4, '(A6-0x8)']}
<MI 24770 MOVEQ.L #0x01,D5> {[-4-]|[4, 'D0']|[4, '(A6-0x8)']}
<POP 24772-24776 Naked> Σ-12 ↓ →0x247b8 ←0x247b2
<MI 24772 CMP.L (A7),D5> {[-12-]}
<MI 24774 BGT 0x247b8> {[-12-]}
<POP 24776-2477e Naked> Σ-12 ↓ →0x24782
<MI 24776 CMPI.L #0x00000001,D5> {[-12-]}
<MI 2477c BNE 0x24782> {[-12-]}
<POP 2477e-24782 Naked> Σ-12 →0x24796
<MI 2477e MOVEQ.L #0x2f,D7> {[-12-]}
<MI 24780 BRA 0x24796> {[-12-]}
<POP 24782-24796 Naked> Σ-12 ↓ ←0x24776
<POP 24782-24784 StackAdj> Δ-2 {[-14-]}
<MI 24784 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-14-]|[4, '(A6+0xc)']}
<MI 24788 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-14-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<MI 2478c MOVE.L D5,-(A7)> Δ-4 {[-14-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D5']}
<MI 2478e SUBQ.L #0x1,(A7)> {[-14-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[-4-]}
<Call 0x24790 0x24526> {[-14-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[-4-]}
<POP 24792-24794 StackAdj> Δ+12 {[-14-]}
<MI 24794 MOVE.B (A7)+,D7> Δ+2 {[-12-]}
<POP 24796-247ae Naked> Σ-12 ↓ →0x247b2 ←0x2477e
<POP 24796-24798 StackAdj> Δ-2 {[-14-]}
<MI 24798 MOVE.L (A6+0x14),-(A7)> Δ-4 {[-14-]|[4, '(A6+0x14)']}
<MI 2479a MOVE.L (A6+0x10),-(A7)> Δ-4 {[-14-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 2479c MOVE.L (A7+0xe),D0> {[-14-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 247a0 ADD.L D5,D0> {[-14-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 247a2 SUBQ.L #0x1,D0> {[-14-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 247a4 MOVE.L D0,-(A7)> Δ-4 {[-14-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D0']}
<Call 0x247a6 0x24526> {[-14-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D0']}
<POP 247a8-247aa StackAdj> Δ+12 {[-14-]}
<MI 247aa CMP.B (A7)+,D7> Δ+2 {[-12-]}
<MI 247ac BEQ 0x247b2> {[-12-]}
<POP 247ae-247b2 Naked> Σ-12 Δ+4 →0x247ba
<POP 247ae-247b0 StackAdj> Δ+4 {[-8-]}
<MI 247b0 BRA 0x247ba> {[-8-]}
<POP 247b2-247b8 Naked> Σ-12 ↓ →0x24772 ←0x24796
<MI 247b2 MOVE.L D5,D6> {[-12-]}
<MI 247b4 ADDQ.L #0x1,D5> {[-12-]}
<MI 247b6 BVC 0x24772> {[-12-]}
<POP 247b8-247ba Naked> Σ-12 Δ+4 ↓ ←0x24772
<POP 247b8-247ba StackAdj> Δ+4 {[-8-]}
<POP 247ba-247be Naked> Σ-8 ↓ →0x247ea ←0x247ae
<MI 247ba CMP.L (A6-0x8),D6> {[-8-]}
<MI 247bc BNE 0x247ea> {[-8-]}
<POP 247be-247ca Naked> Σ-8 ↓ →0x247cc
<MI 247be MOVE.L (A7),D0> {[-8-]}
<MI 247c0 MOVE.L D0,(A6+0x18)> {[-8-]}
<MI 247c4 ADD.L (A6-0x8),D0> {[-8-]}
<MI 247c6 CMP.L (A6-0xc),D0> {[-8-]}
<MI 247c8 BLT 0x247cc> {[-8-]}
<POP 247ca-247cc Naked> Σ-8 →0x247e6
<MI 247ca BRA 0x247e6> {[-8-]}
<POP 247cc-247e0 Naked> Σ-8 ↓ →0x247e6 ←0x247be
<POP 247cc-247ce StackAdj> Δ-2 {[-10-]}
<MI 247ce MOVE.L (A6+0x14),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x14)']}
<MI 247d0 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 247d2 MOVE.L D0,-(A7)> Δ-4 {[-10-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D0']}
<Call 0x247d4 0x24526> {[-10-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D0']}
<POP 247d6-247d8 StackAdj> Δ+12 {[-10-]}
<MI 247d8 MOVE.B (A7)+,D7> Δ+2 {[-8-]}
<MI 247da CMPI.B #0x2f,D7> {[-8-]}
<MI 247de BEQ 0x247e6> {[-8-]}
<POP 247e0-247e6 Naked> Σ-8 ↓ →0x247ea
<MI 247e0 CMPI.B #0x3d,D7> {[-8-]}
<MI 247e4 BNE 0x247ea> {[-8-]}
<POP 247e6-247ea Naked> Σ-8 Δ+8 →0x247f8 ←0x247ca ←0x247cc
<POP 247e6-247e8 StackAdj> Δ+8 {}
<MI 247e8 BRA 0x247f8> {}
<POP 247ea-247f2 Naked> Σ-8 Δ+4 ↓ →0x24760 ←0x247ba ←0x247e0
<MI 247ea MOVE.L (A7)+,D0> Δ+4 {[-4-]}
<MI 247ec ADDQ.L #0x1,D0> {[-4-]}
<MI 247ee BVC 0x24760> {[-4-]}
<POP 247f2-247f8 Naked> Σ-4 Δ+4 ↓ ←0x24760
<POP 247f2-247f4 StackAdj> Δ+4 {}
<MI 247f4 CLR.L (A6+0x18)> {}
<POP 247f8-24800 Epilogue> Σ0 ←0x247e6
@ 24800
<LVAR 0x018 4(r)>
<LVAR 0x014 4(r)>
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 24800-24894 Body> Δ-4
<POP 24800-24816 Prologue> Σ0 ↓
<POP 24816-24820 RegCacheLoad> Σ0 ↓
<POP 24820-2483a Naked> Σ0 ↓ →0x2488c
<POP 24820-24822 StackAdj> Δ-4 {[-4-]}
<MI 24822 MOVE.L (A6+0x14),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']}
<MI 24824 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 24826 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<MI 2482a MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x2482e 0x2470a> {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 24832-24836 StackAdj> Δ+16 {[-4-]}
<MI 24836 MOVE.L (A7)+,D5> Δ+4 {}
<MI 24838 BLE 0x2488c> {}
<POP 2483a-2485a Naked> Σ0 Δ-4 ↓
<MI 2483a MOVE.L (A6+0x18),-(A7)> Δ-4 {[4, '(A6+0x18)']}
<Const 0x2483e 0x2f.2> Δ-2 {[4, '(A6+0x18)']|[#47]}
<Call 0x24840 0x102c0> {[4, '(A6+0x18)']|[#47]}
AppendChar(MOD b : String; a : char)
<POP 24846-24848 StackAdj> Δ+6 {}
<MI 24848 MOVE.L D5,D0> {}
<MI 2484a ADDQ.L #0x1,D0> {}
<POP 2484c-2484e StackAdj> Δ-4 {[-4-]}
<MI 2484e MOVE.L (A6+0x14),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']}
<MI 24850 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<Call 0x24852 0x2293a> {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<POP 24856-24858 StackAdj> Δ+8 {[-4-]}
<MI 24858 MOVE.L D0,D6> {[-4-]}
<POP 2485a-2485e Naked> Σ-4 ↓ →0x2488a ←0x24878
<MI 2485a CMP.L (A7),D6> {[-4-]}
<MI 2485c BGT 0x2488a> {[-4-]}
<POP 2485e-24874 Naked> Σ-4 ↓ →0x24878
<POP 2485e-24860 StackAdj> Δ-2 {[-6-]}
<MI 24860 MOVE.L (A6+0x14),-(A7)> Δ-4 {[-6-]|[4, '(A6+0x14)']}
<MI 24862 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-6-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 24864 MOVE.L D6,-(A7)> Δ-4 {[-6-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D6']}
<Call 0x24866 0x24526> {[-6-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D6']}
<POP 2486a-2486e StackAdj> Δ+12 {[-6-]}
<MI 2486e MOVE.B (A7)+,D7> Δ+2 {[-4-]}
<MI 24870 CMP.B #0x2f,D7> {[-4-]}
<MI 24872 BNE 0x24878> {[-4-]}
<POP 24874-24878 Naked> Σ-4 Δ+4 →0x2488c
<POP 24874-24876 StackAdj> Δ+4 {}
<MI 24876 BRA 0x2488c> {}
<POP 24878-2488a Naked> Σ-4 ↓ →0x2485a ←0x2485e
<MI 24878 MOVE.L (A6+0x18),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x18)']}
<MI 2487c MOVE.B D7,-(A7)> Δ-2 {[-4-]|[4, '(A6+0x18)']|[2, 'D7']}
<Call 0x2487e 0x102c0> {[-4-]|[4, '(A6+0x18)']|[2, 'D7']}
AppendChar(MOD b : String; a : char)
<POP 24884-24886 StackAdj> Δ+6 {[-4-]}
<MI 24886 ADDQ.L #0x1,D6> {[-4-]}
<MI 24888 BVC 0x2485a> {[-4-]}
<POP 2488a-2488c Naked> Σ-4 Δ+4 ↓ ←0x2485a
<POP 2488a-2488c StackAdj> Δ+4 {}
<POP 2488c-24894 Epilogue> Σ0 ←0x24820 ←0x24874
@ 24894
<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 24894-2494a Body> Δ-8
<POP 24894-248aa Prologue> Σ0 ↓
<POP 248aa-248b8 RegCacheLoad> Σ0 ↓
<POP 248b8-248d4 Naked> Σ0 ↓ →0x24942
<POP 248b8-248ba StackAdj> Δ-4 {[-4-]}
<MI 248ba MOVE.L (A6+0x14),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']}
<MI 248bc MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 248be MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<MI 248c2 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x248c6 0x2470a> {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 248ca-248ce StackAdj> Δ+16 {[-4-]}
<MI 248ce MOVE.L (A7)+,(A6-0x14)> Δ+4 {}
<MI 248d2 BLE 0x24942> {}
<POP 248d4-248e8 Naked> Σ0 Δ-4 ↓
<POP 248d4-248d6 StackAdj> Δ-4 {[-4-]}
<MI 248d6 MOVE.L (A6+0x14),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']}
<MI 248d8 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<Call 0x248da 0x2293a> {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<POP 248de-248e0 StackAdj> Δ+8 {[-4-]}
<MI 248e0 MOVE.L (A7)+,(A6-0x6)> Δ+4 {}
<MI 248e2 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<MI 248e4 MOVE.L (A6-0x14),D5> {[4, '(A6-0x6)']}
<POP 248e8-248ec Naked> Σ-4 ↓ →0x24940 ←0x2493c
<MI 248e8 CMP.L (A7),D5> {[-4-]}
<MI 248ea BGT 0x24940> {[-4-]}
<POP 248ec-24902 Naked> Σ-4 ↓ →0x2493c
<POP 248ec-248ee StackAdj> Δ-2 {[-6-]}
<MI 248ee MOVE.L (A6+0x14),-(A7)> Δ-4 {[-6-]|[4, '(A6+0x14)']}
<MI 248f0 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-6-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 248f2 MOVE.L D5,-(A7)> Δ-4 {[-6-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D5']}
<Call 0x248f4 0x24526> {[-6-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D5']}
<POP 248f8-248fa StackAdj> Δ+12 {[-6-]}
<MI 248fa MOVE.B (A7)+,D0> Δ+2 {[-4-]}
<MI 248fc CMPI.B #0x3d,D0> {[-4-]}
<MI 24900 BNE 0x2493c> {[-4-]}
<POP 24902-2490a Naked> Σ-4 Δ-4 ↓
<MI 24902 MOVE.L D5,D0> {[-4-]}
<MI 24904 ADDQ.L #0x1,D0> {[-4-]}
<MI 24906 MOVE.L (A6-0x6),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x6)']}
<MI 24908 MOVE.L D0,D6> {[-4-]|[4, '(A6-0x6)']}
<POP 2490a-2490e Naked> Σ-8 ↓ →0x2493a ←0x24928
<MI 2490a CMP.L (A7),D6> {[-8-]}
<MI 2490c BGT 0x2493a> {[-8-]}
<POP 2490e-24924 Naked> Σ-8 ↓ →0x24928
<POP 2490e-24910 StackAdj> Δ-2 {[-10-]}
<MI 24910 MOVE.L (A6+0x14),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x14)']}
<MI 24912 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 24914 MOVE.L D6,-(A7)> Δ-4 {[-10-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D6']}
<Call 0x24916 0x24526> {[-10-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D6']}
<POP 2491a-2491c StackAdj> Δ+12 {[-10-]}
<MI 2491c MOVE.B (A7)+,D7> Δ+2 {[-8-]}
<MI 2491e CMPI.B #0x2f,D7> {[-8-]}
<MI 24922 BNE 0x24928> {[-8-]}
<POP 24924-24928 Naked> Σ-8 Δ+8 →0x24942
<POP 24924-24926 StackAdj> Δ+8 {}
<MI 24926 BRA 0x24942> {}
<POP 24928-2493a Naked> Σ-8 ↓ →0x2490a ←0x2490e
<MI 24928 MOVE.L (A6+0x18),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x18)']}
<MI 2492c MOVE.B D7,-(A7)> Δ-2 {[-8-]|[4, '(A6+0x18)']|[2, 'D7']}
<Call 0x2492e 0x102c0> {[-8-]|[4, '(A6+0x18)']|[2, 'D7']}
AppendChar(MOD b : String; a : char)
<POP 24934-24936 StackAdj> Δ+6 {[-8-]}
<MI 24936 ADDQ.L #0x1,D6> {[-8-]}
<MI 24938 BVC 0x2490a> {[-8-]}
<POP 2493a-2493c Naked> Σ-8 Δ+4 ↓ ←0x2490a
<POP 2493a-2493c StackAdj> Δ+4 {[-4-]}
<POP 2493c-24940 Naked> Σ-4 ↓ →0x248e8 ←0x248ec
<MI 2493c ADDQ.L #0x1,D5> {[-4-]}
<MI 2493e BVC 0x248e8> {[-4-]}
<POP 24940-24942 Naked> Σ-4 Δ+4 ↓ ←0x248e8
<POP 24940-24942 StackAdj> Δ+4 {}
<POP 24942-2494a Epilogue> Σ0 ←0x248b8 ←0x24924
@ 2494a
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 2494a-249d0 Body> Δ-4
<POP 2494a-24960 Prologue> Σ0 ↓
<POP 24960-2496a RegCacheLoad> Σ0 ↓
<POP 2496a-2497c Naked> Σ0 Δ-4 ↓
<POP 2496a-2496c StackAdj> Δ-4 {[-4-]}
<MI 2496c MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']}
<MI 2496e MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x24970 0x2293a> {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 24974-24976 StackAdj> Δ+8 {[-4-]}
<MI 24976 MOVE.L (A7)+,D5> Δ+4 {}
<MI 24978 MOVE.L D5,-(A7)> Δ-4 {[4, 'D5']}
<MI 2497a MOVEQ.L #0x01,D6> {[4, 'D5']}
<POP 2497c-24980 Naked> Σ-4 ↓ →0x249c6 ←0x249c2
<MI 2497c CMP.L (A7),D6> {[-4-]}
<MI 2497e BGT 0x249c6> {[-4-]}
<POP 24980-24996 Naked> Σ-4 ↓ →0x249c2
<POP 24980-24982 StackAdj> Δ-2 {[-6-]}
<MI 24982 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-6-]|[4, '(A6+0xc)']}
<MI 24984 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-6-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<MI 24986 MOVE.L D6,-(A7)> Δ-4 {[-6-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D6']}
<Call 0x24988 0x24526> {[-6-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D6']}
<POP 2498c-2498e StackAdj> Δ+12 {[-6-]}
<MI 2498e MOVE.B (A7)+,D0> Δ+2 {[-4-]}
<MI 24990 CMPI.B #0x2f,D0> {[-4-]}
<MI 24994 BNE 0x249c2> {[-4-]}
<POP 24996-2499a Naked> Σ-4 Δ-4 ↓
<MI 24996 MOVE.L D5,-(A7)> Δ-4 {[-4-]|[4, 'D5']}
<MI 24998 MOVE.L D6,D7> {[-4-]|[4, 'D5']}
<POP 2499a-2499e Naked> Σ-8 ↓ →0x249bc ←0x2499e
<MI 2499a CMP.L (A7),D7> {[-8-]}
<MI 2499c BGT 0x249bc> {[-8-]}
<POP 2499e-249bc Naked> Σ-8 ↓ →0x2499a
<MI 2499e MOVE.L (A6+0x10),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x10)']}
<POP 249a2-249a4 StackAdj> Δ-2 {[-8-]|[4, '(A6+0x10)']|[-2-]}
<MI 249a4 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x10)']|[-2-]|[4, '(A6+0xc)']}
<MI 249a6 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x10)']|[-2-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<MI 249a8 MOVE.L D7,-(A7)> Δ-4 {[-8-]|[4, '(A6+0x10)']|[-2-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D7']}
<Call 0x249aa 0x24526> {[-8-]|[4, '(A6+0x10)']|[-2-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D7']}
<POP 249ae-249b0 StackAdj> Δ+12 {[-8-]|[4, '(A6+0x10)']|[-2-]}
<Call 0x249b0 0x102c0> {[-8-]|[4, '(A6+0x10)']|[-2-]}
AppendChar(MOD b : String; a : char)
<POP 249b6-249b8 StackAdj> Δ+6 {[-8-]}
<MI 249b8 ADDQ.L #0x1,D7> {[-8-]}
<MI 249ba BVC 0x2499a> {[-8-]}
<POP 249bc-249c2 Naked> Σ-8 Δ+8 →0x249c8 ←0x2499a
<POP 249bc-249be StackAdj> Δ+4 {[-4-]}
<POP 249be-249c0 StackAdj> Δ+4 {}
<MI 249c0 BRA 0x249c8> {}
<POP 249c2-249c6 Naked> Σ-4 ↓ →0x2497c ←0x24980
<MI 249c2 ADDQ.L #0x1,D6> {[-4-]}
<MI 249c4 BVC 0x2497c> {[-4-]}
<POP 249c6-249c8 Naked> Σ-4 Δ+4 ↓ ←0x2497c
<POP 249c6-249c8 StackAdj> Δ+4 {}
<POP 249c8-249d0 Epilogue> Σ0 ←0x249bc
@ 249d0
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 249d0-24a40 Body> Δ-4
<POP 249d0-249e6 Prologue> Σ0 ↓
<POP 249e6-249fe Naked> Σ0 Δ-4 ↓
<MI 249e6 MOVEA.L (A6+0x10),A0> {}
<MI 249ea CLR.W (A0)> {}
<POP 249ec-249ee StackAdj> Δ-4 {[-4-]}
<MI 249ee MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']}
<MI 249f2 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x249f6 0x2293a> {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 249fa-249fc StackAdj> Δ+8 {[-4-]}
<MI 249fc MOVEQ.L #0x01,D7> {[-4-]}
<POP 249fe-24a02 Naked> Σ-4 ↓ →0x24a36 ←0x24a32
<MI 249fe CMP.L (A7),D7> {[-4-]}
<MI 24a00 BGT 0x24a36> {[-4-]}
<POP 24a02-24a1e Naked> Σ-4 ↓ →0x24a2e
<POP 24a02-24a04 StackAdj> Δ-2 {[-6-]}
<MI 24a04 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-6-]|[4, '(A6+0xc)']}
<MI 24a08 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-6-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<MI 24a0c MOVE.L D7,-(A7)> Δ-4 {[-6-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D7']}
<Call 0x24a0e 0x24526> {[-6-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D7']}
<POP 24a12-24a16 StackAdj> Δ+12 {[-6-]}
<MI 24a16 MOVE.B (A7)+,D6> Δ+2 {[-4-]}
<MI 24a18 CMPI.B #0x2f,D6> {[-4-]}
<MI 24a1c BEQ 0x24a2e> {[-4-]}
<POP 24a1e-24a2e Naked> Σ-4 →0x24a32
<MI 24a1e MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x10)']}
<MI 24a22 MOVE.B D6,-(A7)> Δ-2 {[-4-]|[4, '(A6+0x10)']|[2, 'D6']}
<Call 0x24a24 0x102c0> {[-4-]|[4, '(A6+0x10)']|[2, 'D6']}
AppendChar(MOD b : String; a : char)
<POP 24a2a-24a2c StackAdj> Δ+6 {[-4-]}
<MI 24a2c BRA 0x24a32> {[-4-]}
<POP 24a2e-24a32 Naked> Σ-4 Δ+4 →0x24a38 ←0x24a02
<POP 24a2e-24a30 StackAdj> Δ+4 {}
<MI 24a30 BRA 0x24a38> {}
<POP 24a32-24a36 Naked> Σ-4 ↓ →0x249fe ←0x24a1e
<MI 24a32 ADDQ.L #0x1,D7> {[-4-]}
<MI 24a34 BVC 0x249fe> {[-4-]}
<POP 24a36-24a38 Naked> Σ-4 Δ+4 ↓ ←0x249fe
<POP 24a36-24a38 StackAdj> Δ+4 {}
<POP 24a38-24a40 Epilogue> Σ0 ←0x24a2e
@ 24a40
<POP 24a40-24a88 Body>
<POP 24a40-24a56 Prologue> Σ0 ↓
<POP 24a56-24a80 Naked> Σ0 ↓
<Blob 0x24a56 [34] @> Δ-34 {[«34""»]}
<POP 24a62-24a64 StackAdj> Δ-4 {[«34""»]|[-4-]}
<Lit 0x24a64 34> {[«34""»]|[$$Switch exclusion is unimplemented.]}
<Call 0x24a78 0x21d28> {[«34""»]|[$$Switch exclusion is unimplemented.]}
<POP 24a7c-24a80 StackAdj> Δ+38 {}
<POP 24a80-24a88 Epilogue> Σ0
@ 24a88
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x006 4(rw)>
<POP 24a88-24bc2 Body>
<POP 24a88-24a9e Prologue> Σ0 ↓
<POP 24a9e-24ab4 RegCacheLoad> Σ0 ↓
<POP 24ab4-24ac2 Naked> Σ0 ↓ →0x24aca
<MI 24ab4 MOVE.L 0x26832,(A6-0x6)> {}
<POP 24ab8-24aba StackAdj> Δ-2 {[-2-]}
<Call 0x24aba 0x21dc4> {[-2-]}
<MI 24abc MOVE.B (A7)+,D7> Δ+2 {}
<MI 24abe CMP.B #0x25,D7> {}
<MI 24ac0 BNE 0x24aca> {}
<POP 24ac2-24aca Naked> Σ0 →0x24baa
<MI 24ac2 MOVEA.L (A6+0xc),A0> {}
<MI 24ac4 CLR.L (A0)> {}
<MI 24ac6 BRA 0x24baa> {}
<POP 24aca-24ace Naked> Σ0 ↓ →0x24ada ←0x24ab4
<MI 24aca CMP.B #0x2d,D7> {}
<MI 24acc BNE 0x24ada> {}
<POP 24ace-24ada Naked> Σ0 →0x24baa
<MI 24ace MOVEA.L (A6+0xc),A0> {}
<MI 24ad0 MOVE.L #0x1,(A0)> {}
<MI 24ad6 BRA 0x24baa> {}
<POP 24ada-24ae0 Naked> Σ0 ↓ →0x24aec ←0x24aca
<MI 24ada CMPI.B #0x2f,D7> {}
<MI 24ade BNE 0x24aec> {}
<POP 24ae0-24aec Naked> Σ0 →0x24baa
<MI 24ae0 MOVEA.L (A6+0xc),A0> {}
<MI 24ae2 MOVE.L #0x4,(A0)> {}
<MI 24ae8 BRA 0x24baa> {}
<POP 24aec-24af2 Naked> Σ0 ↓ →0x24afe ←0x24ada
<MI 24aec CMPI.B #0x3d,D7> {}
<MI 24af0 BNE 0x24afe> {}
<POP 24af2-24afe Naked> Σ0 →0x24baa
<MI 24af2 MOVEA.L (A6+0xc),A0> {}
<MI 24af4 MOVE.L #0x5,(A0)> {}
<MI 24afa BRA 0x24baa> {}
<POP 24afe-24b04 Naked> Σ0 ↓ →0x24b10 ←0x24aec
<MI 24afe CMPI.B #0x5c,D7> {}
<MI 24b02 BNE 0x24b10> {}
<POP 24b04-24b10 Naked> Σ0 →0x24baa
<MI 24b04 MOVEA.L (A6+0xc),A0> {}
<MI 24b06 MOVE.L #0x6,(A0)> {}
<MI 24b0c BRA 0x24baa> {}
<POP 24b10-24b14 Naked> Σ0 ↓ →0x24b40 ←0x24afe
<MI 24b10 TST.B D7> {}
<MI 24b12 BNE 0x24b40> {}
<POP 24b14-24b40 Naked> Σ0 →0x24baa
<Blob 0x24b14 [24] @> Δ-24 {[«24""»]}
<POP 24b20-24b22 StackAdj> Δ-4 {[«24""»]|[-4-]}
<Lit 0x24b22 24> {[«24""»]|[$$Illegal argument marker.]}
<Call 0x24b36 0x21d28> {[«24""»]|[$$Illegal argument marker.]}
<POP 24b3a-24b3e StackAdj> Δ+28 {}
<MI 24b3e BRA 0x24baa> {}
<POP 24b40-24b44 Naked> Σ0 ↓ →0x24b70 ←0x24b10
<MI 24b40 CMP.B #0x30,D7> {}
<MI 24b42 BCS 0x24b70> {}
<POP 24b44-24b48 Naked> Σ0 ↓ →0x24b70
<MI 24b44 CMP.B #0x39,D7> {}
<MI 24b46 BHI 0x24b70> {}
<POP 24b48-24b50 Naked> Σ0 ↓
<MI 24b48 MOVEA.L (A6+0xc),A0> {}
<MI 24b4a MOVE.L #0x2,(A0)> {}
<POP 24b50-24b5c Naked> Σ0 ↓ →0x24b66 ←0x24b6a
<POP 24b50-24b52 StackAdj> Δ-2 {[-2-]}
<Call 0x24b52 0x21d86> {[-2-]}
<MI 24b56 MOVE.B (A7)+,D7> Δ+2 {}
<MI 24b58 CMP.B #0x30,D7> {}
<MI 24b5a BCS 0x24b66> {}
<POP 24b5c-24b60 Naked> Σ0 ↓ →0x24b66
<MI 24b5c CMP.B #0x39,D7> {}
<MI 24b5e BHI 0x24b66> {}
<POP 24b60-24b66 Naked> Σ0 ↓
<POP 24b60-24b62 StackAdj> Δ-2 {[-2-]}
<Call 0x24b62 0x21dc4> {[-2-]}
<MI 24b64 MOVE.B (A7)+,D6> Δ+2 {}
<POP 24b66-24b6a Naked> Σ0 ↓ →0x24b6e ←0x24b50 ←0x24b5c
<MI 24b66 CMP.B #0x30,D7> {}
<MI 24b68 BCS 0x24b6e> {}
<POP 24b6a-24b6e Naked> Σ0 ↓ →0x24b50
<MI 24b6a CMP.B #0x39,D7> {}
<MI 24b6c BLS 0x24b50> {}
<POP 24b6e-24b70 Naked> Σ0 →0x24baa ←0x24b66
<MI 24b6e BRA 0x24baa> {}
<POP 24b70-24b7a Naked> Σ0 ↓ ←0x24b40 ←0x24b44
<MI 24b70 MOVEA.L (A6+0xc),A0> {}
<MI 24b72 MOVE.L #0x3,(A0)> {}
<MI 24b78 MOVEQ.L #0x00,D5> {}
<POP 24b7a-24b86 Naked> Σ0 ↓ →0x24b9c ←0x24ba6
<POP 24b7a-24b7c StackAdj> Δ-2 {[-2-]}
<Call 0x24b7c 0x21d86> {[-2-]}
<MI 24b80 MOVE.B (A7)+,D7> Δ+2 {}
<MI 24b82 CMP.B #0x25,D7> {}
<MI 24b84 BEQ 0x24b9c> {}
<POP 24b86-24b8a Naked> Σ0 ↓ →0x24b9c
<MI 24b86 CMP.B #0x2d,D7> {}
<MI 24b88 BEQ 0x24b9c> {}
<POP 24b8a-24b90 Naked> Σ0 ↓ →0x24b9c
<MI 24b8a CMPI.B #0x2f,D7> {}
<MI 24b8e BEQ 0x24b9c> {}
<POP 24b90-24b96 Naked> Σ0 ↓ →0x24b9c
<MI 24b90 CMPI.B #0x3d,D7> {}
<MI 24b94 BEQ 0x24b9c> {}
<POP 24b96-24b9c Naked> Σ0 ↓ →0x24ba0
<MI 24b96 CMPI.B #0x5c,D7> {}
<MI 24b9a BNE 0x24ba0> {}
<POP 24b9c-24ba0 Naked> Σ0 →0x24ba6 ←0x24b7a ←0x24b86 ←0x24b8a ←0x24b90
<MI 24b9c MOVEQ.L #0x01,D5> {}
<MI 24b9e BRA 0x24ba6> {}
<POP 24ba0-24ba6 Naked> Σ0 ↓ ←0x24b96
<POP 24ba0-24ba2 StackAdj> Δ-2 {[-2-]}
<Call 0x24ba2 0x21dc4> {[-2-]}
<MI 24ba4 MOVE.B (A7)+,D6> Δ+2 {}
<POP 24ba6-24baa Naked> Σ0 ↓ →0x24b7a ←0x24b9c
<MI 24ba6 TST.B D5> {}
<MI 24ba8 BEQ 0x24b7a> {}
<POP 24baa-24bba Naked> Σ0 ↓ ←0x24ac2 ←0x24ace ←0x24ae0 ←0x24af2 ←0x24b04 ←0x24b14 ←0x24b6e
<MI 24baa MOVEA.L (A6+0x8),A0> {}
<MI 24bae MOVE.L (A6-0x6),(A0)> {}
<MI 24bb2 MOVE.L 0x26832,(A0+0x4)> {}
<MI 24bb6 SUBQ.L #0x1,(A0+0x4)> {}
<POP 24bba-24bc2 Epilogue> Σ0
@ 24bc2
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 24bc2-24c48 Body>
<POP 24bc2-24bd8 Prologue> Σ0 ↓
<POP 24bd8-24bdc RegCacheLoad> Σ0 ↓
<POP 24bdc-24bf6 Naked> Σ0 Δ-4 ↓ →0x24c02
<MI 24bdc MOVEA.L (A6+0x8),A0> {}
<MI 24be0 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 24be2 MOVE.L 0x26832,D6> {[4, 'A0']}
<MI 24be8 SUB.L (A6+0xc),D6> {[4, 'A0']}
<MI 24bea MOVE.L (A6+0xc),D5> {[4, 'A0']}
<MI 24bec ADD.L D6,D5> {[4, 'A0']}
<MI 24bee MOVE.W (A0),D0> {[4, 'A0']}
<MI 24bf0 EXTW.L D0> {[4, 'A0']}
<MI 24bf2 CMP.L D6,D0> {[4, 'A0']}
<MI 24bf4 BEQ 0x24c02> {[4, 'A0']}
<POP 24bf6-24c02 Naked> Σ-4 ↓
<MI 24bf6 MOVE.L D5,-(A7)> Δ-4 {[-4-]|[4, 'D5']}
<MI 24bf8 MOVE.L D6,-(A7)> Δ-4 {[-4-]|[4, 'D5']|[4, 'D6']}
<MI 24bfa SUB.L D0,(A7)> {[-4-]|[4, 'D5']|[-4-]}
<Call 0x24bfc 0x2227c> {[-4-]|[4, 'D5']|[-4-]}
<POP 24c00-24c02 StackAdj> Δ+8 {[-4-]}
<POP 24c02-24c06 Naked> Σ-4 Δ-4 ↓ ←0x24bdc
<MI 24c02 MOVE.L D0,-(A7)> Δ-4 {[-4-]|[4, 'D0']}
<MI 24c04 MOVEQ.L #0x01,D7> {[-4-]|[4, 'D0']}
<POP 24c06-24c0a Naked> Σ-8 ↓ →0x24c3e ←0x24c0a
<MI 24c06 CMP.L (A7),D7> {[-8-]}
<MI 24c08 BGT 0x24c3e> {[-8-]}
<POP 24c0a-24c3e Naked> Σ-8 ↓ →0x24c06
<MI 24c0a MOVE.L (A6+0xc),D0> {[-8-]}
<MI 24c0c ADD.L D7,D0> {[-8-]}
<MI 24c0e SUBQ.L #0x1,D0> {[-8-]}
<MI 24c10 SUBQ.L #0x1,D0> {[-8-]}
<POP 0x24c12 LimitCheck 0x0 ≤ D0 ≤ 0xfff> {[-8-]}
<MI 24c1c LEA.L 0x2582a,A0> {[-8-]}
<MI 24c22 MOVE.L D7,D1> {[-8-]}
<MI 24c24 SUBQ.L #0x1,D1> {[-8-]}
<POP 0x24c26 LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-8-]}
<MI 24c30 MOVEA.L (A7+0x4),A1> {[-8-]}
<MI 24c34 MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x8)> {[-8-]}
<MI 24c3a ADDQ.L #0x1,D7> {[-8-]}
<MI 24c3c BVC 0x24c06> {[-8-]}
<POP 24c3e-24c40 Naked> Σ-8 Δ+8 ↓ ←0x24c06
<POP 24c3e-24c40 StackAdj> Δ+8 {}
<POP 24c40-24c48 Epilogue> Σ0
@ 24c48
<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 24c48-24e90 Body> Δ+56
<POP 24c48-24c5e Prologue> Σ0 ↓
<POP 24c5e-24c70 RegCacheLoad> Σ0 ↓
<POP 24c70-24c94 Naked> Σ0 ↓
<MI 24c70 MOVE.L 0x26832,(A6-0x28)> {}
<Pointer.fp 0x24c78 <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-8]}
<Call 0x24c7a 0x102b8> {[@@-8]}
NewString(VAR a : String)
<POP 24c80-24c82 StackAdj> Δ+4 {}
<Pointer.fp 0x24c82 <LVAR -0x00c @ 4(r)>> Δ-4 {[@@-12]}
<Pointer.fp 0x24c86 <LVAR -0x014 @ 4(r)>> Δ-4 {[@@-12]|[@@-20]}
<Call 0x24c88 0x24a88> {[@@-12]|[@@-20]}
<POP 24c8c-24c8e StackAdj> Δ+8 {}
<MI 24c8e CLR.L (A6-0x34)> {}
<MI 24c92 MOVEQ.L #0x00,D7> {}
<POP 24c94-24ca8 Naked> Σ0 →0x24cd2 →0x24cdc →0x24cf0 →0x24d0c →0x24d10 →0x24d1e →0x24d32 →0x24d38 →0x24d3a →0x24d50 →0x24d5e →0x24d76 →0x24d8a →0x24d9e →0x24db4 →0x24db6 →0x24dd0 →0x24de6 →0x24df4 →0x24df6 →0x24df8 ←0x24e6c
<MI 24c94 MOVE.L (A6-0x34),D0> {}
<POP 0x24c98 LimitCheck 0x0 ≤ D0 ≤ 0x14> {}
<MI 24c9e ADD.W D0,D0> {}
<MI 24ca0 SWITCH D0.W> {}
<POP 24cd2-24cdc Naked> Σ0 →0x24e22 ←0x24c94
<MI 24cd2 MOVEQ.L #0x00,D6> {}
<MI 24cd4 MOVE.L (A6+0x8),D5> {}
<MI 24cd8 BRA 0x24e22> {}
<POP 24cdc-24cf0 Naked> Σ0 →0x24e22 ←0x24c94
<POP 24cdc-24cde StackAdj> Δ-4 {[-4-]}
<MI 24cde MOVE.L (A6-0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x10)']}
<MI 24ce2 MOVE.L (A6-0x14),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<Call 0x24ce4 0x24566> {[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<POP 24ce8-24cea StackAdj> Δ+8 {[-4-]}
<MI 24cea MOVE.L (A7)+,D6> Δ+4 {}
<MI 24cec BRA 0x24e22> {}
<POP 24cf0-24cf8 Naked> Σ0 Δ-12 ↓ ←0x24c94
<MI 24cf0 MOVE.L (A6-0x28),-(A7)> Δ-4 {[4, '(A6-0x28)']}
<MI 24cf4 MOVE.L D6,-(A7)> Δ-4 {[4, '(A6-0x28)']|[4, 'D6']}
<MI 24cf6 MOVE.L D6,-(A7)> Δ-4 {[4, '(A6-0x28)']|[4, 'D6']|[4, 'D6']}
<POP 24cf8-24d08 Naked> Σ-12 Δ+12 →0x24e7e ←0x24d10
<MI 24cf8 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-12-]|[4, '(A6+0xc)']}
<Call 0x24cfc 0x245e2> {[-12-]|[4, '(A6+0xc)']}
<POP 24d00-24d04 StackAdj> Δ+16 {}
<MI 24d04 BRA 0x24e7e> {}
<POP 24d0c-24d10 Naked> Σ0 →0x24e22 ←0x24c94
<MI 24d0c BRA 0x24e22> {}
<POP 24d10-24d1a Naked> Σ0 Δ-12 →0x24cf8 ←0x24c94
<MI 24d10 MOVE.L (A6-0x28),-(A7)> Δ-4 {[4, '(A6-0x28)']}
<MI 24d14 MOVE.L D6,-(A7)> Δ-4 {[4, '(A6-0x28)']|[4, 'D6']}
<MI 24d16 MOVE.L D5,-(A7)> Δ-4 {[4, '(A6-0x28)']|[4, 'D6']|[4, 'D5']}
<MI 24d18 BRA 0x24cf8> {[4, '(A6-0x28)']|[4, 'D6']|[4, 'D5']}
<POP 24d1e-24d32 Naked> Σ0 →0x24e22 ←0x24c94 ←0x24d38
<POP 24d1e-24d20 StackAdj> Δ-4 {[-4-]}
<MI 24d20 MOVE.L (A6-0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x10)']}
<MI 24d24 MOVE.L (A6-0x14),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<Call 0x24d26 0x24566> {[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<POP 24d2a-24d2c StackAdj> Δ+8 {[-4-]}
<MI 24d2c MOVE.L (A7)+,D5> Δ+4 {}
<MI 24d2e BRA 0x24e22> {}
<POP 24d32-24d38 Naked> Σ0 →0x24e22 ←0x24c94
<MI 24d32 MOVEQ.L #0x01,D6> {}
<MI 24d34 BRA 0x24e22> {}
<POP 24d38-24d3a Naked> Σ0 →0x24d1e ←0x24c94
<MI 24d38 BRA 0x24d1e> {}
<POP 24d3a-24d50 Naked> Σ0 →0x24e22 ←0x24c94
<POP 24d3a-24d3c StackAdj> Δ-8 {[-8-]}
<MI 24d3c MOVE.L (A6+0xc),-(A7)> Δ-4 {[-8-]|[4, '(A6+0xc)']}
<MI 24d40 MOVE.L D6,-(A7)> Δ-4 {[-8-]|[4, '(A6+0xc)']|[4, 'D6']}
<Call 0x24d42 0x22972> {[-8-]|[4, '(A6+0xc)']|[4, 'D6']}
<POP 24d46-24d48 StackAdj> Δ+8 {[-8-]}
<MI 24d48 MOVE.L (A7)+,(A6-0x24)> Δ+4 {[-4-]}
<MI 24d4a MOVE.L (A7)+,(A6-0x20)> Δ+4 {}
<MI 24d4c BRA 0x24e22> {}
<POP 24d50-24d5e Naked> Σ0 →0x24e22 ←0x24c94
<MI 24d50 MOVE.L (A6-0x14),(A6-0x1c)> {}
<MI 24d54 MOVE.L (A6-0x10),(A6-0x18)> {}
<MI 24d5a BRA 0x24e22> {}
<POP 24d5e-24d70 Naked> Σ0 Δ-20 ↓ ←0x24c94
<MI 24d5e MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<MI 24d60 MOVE.L (A6-0x20),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']}
<MI 24d62 MOVE.L (A6-0x24),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']}
<MI 24d64 MOVE.L (A6-0x18),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']}
<MI 24d68 MOVE.L (A6-0x1c),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<Call 0x24d6c 0x24894> {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<POP 24d70-24d76 Naked> Σ-20 Δ+20 →0x24e22 ←0x24d76
<POP 24d70-24d72 StackAdj> Δ+20 {}
<MI 24d72 BRA 0x24e22> {}
<POP 24d76-24d8a Naked> Σ0 Δ-20 →0x24d70 ←0x24c94
<MI 24d76 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<MI 24d78 MOVE.L (A6-0x20),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']}
<MI 24d7a MOVE.L (A6-0x24),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']}
<MI 24d7c MOVE.L (A6-0x18),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']}
<MI 24d80 MOVE.L (A6-0x1c),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<Call 0x24d84 0x24800> {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<MI 24d88 BRA 0x24d70> {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<POP 24d8a-24d94 Naked> Σ0 Δ-12 ↓ ←0x24c94
<MI 24d8a MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<MI 24d8c MOVE.L (A6-0x20),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']}
<MI 24d8e MOVE.L (A6-0x24),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']}
<Call 0x24d90 0x2494a> {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']}
<POP 24d94-24d98 Naked> Σ-12 Δ+12 ↓ ←0x24dd0
<POP 24d94-24d98 StackAdj> Δ+12 {}
<POP 24d98-24d9e Naked> Σ0 →0x24e22 ←0x24d9e ←0x24db4 ←0x24df6
<MI 24d98 MOVEQ.L #0x01,D7> {}
<MI 24d9a BRA 0x24e22> {}
<POP 24d9e-24db4 Naked> Σ0 →0x24d98 ←0x24c94
<MI 24d9e MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<MI 24da0 MOVE.L (A6-0x20),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']}
<MI 24da2 MOVE.L (A6-0x24),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']}
<MI 24da4 MOVE.L (A6-0x18),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']}
<MI 24da8 MOVE.L (A6-0x1c),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<Call 0x24dac 0x24800> {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<POP 24db0-24db2 StackAdj> Δ+20 {}
<MI 24db2 BRA 0x24d98> {}
<POP 24db4-24db6 Naked> Σ0 →0x24d98 ←0x24c94
<MI 24db4 BRA 0x24d98> {}
<POP 24db6-24dca Naked> Σ0 Δ-12 ↓ ←0x24c94
<MI 24db6 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<POP 24db8-24dba StackAdj> Δ-8 {[4, '(A6-0x8)']|[-8-]}
<MI 24dba MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6-0x8)']|[-8-]|[4, '(A6+0xc)']}
<MI 24dbe MOVE.L D6,-(A7)> Δ-4 {[4, '(A6-0x8)']|[-8-]|[4, '(A6+0xc)']|[4, 'D6']}
<Call 0x24dc0 0x22972> {[4, '(A6-0x8)']|[-8-]|[4, '(A6+0xc)']|[4, 'D6']}
<POP 24dc4-24dc6 StackAdj> Δ+8 {[4, '(A6-0x8)']|[-8-]}
<Call 0x24dc6 0x2494a> {[4, '(A6-0x8)']|[-8-]}
<POP 24dca-24dd0 Naked> Σ-12 Δ+12 →0x24e22 ←0x24de6
<POP 24dca-24dce StackAdj> Δ+12 {}
<MI 24dce BRA 0x24e22> {}
<POP 24dd0-24de6 Naked> Σ0 Δ-12 →0x24d94 ←0x24c94
<MI 24dd0 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<POP 24dd2-24dd4 StackAdj> Δ-8 {[4, '(A6-0x8)']|[-8-]}
<MI 24dd4 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6-0x8)']|[-8-]|[4, '(A6+0xc)']}
<MI 24dd8 MOVE.L D6,-(A7)> Δ-4 {[4, '(A6-0x8)']|[-8-]|[4, '(A6+0xc)']|[4, 'D6']}
<Call 0x24dda 0x22972> {[4, '(A6-0x8)']|[-8-]|[4, '(A6+0xc)']|[4, 'D6']}
<POP 24dde-24de0 StackAdj> Δ+8 {[4, '(A6-0x8)']|[-8-]}
<Call 0x24de0 0x249d0> {[4, '(A6-0x8)']|[-8-]}
<MI 24de4 BRA 0x24d94> {[4, '(A6-0x8)']|[-8-]}
<POP 24de6-24df4 Naked> Σ0 Δ-12 →0x24dca ←0x24c94
<MI 24de6 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<MI 24de8 MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x10)']}
<MI 24dec MOVE.L (A6-0x14),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<Call 0x24dee 0x24a40> {[4, '(A6-0x8)']|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<MI 24df2 BRA 0x24dca> {[4, '(A6-0x8)']|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<POP 24df4-24df6 Naked> Σ0 →0x24e22 ←0x24c94
<MI 24df4 BRA 0x24e22> {}
<POP 24df6-24df8 Naked> Σ0 →0x24d98 ←0x24c94
<MI 24df6 BRA 0x24d98> {}
<POP 24df8-24e22 Naked> Σ0 ↓ ←0x24c94
<Blob 0x24df8 [24] @> Δ-24 {[«24""»]}
<POP 24e04-24e06 StackAdj> Δ-4 {[«24""»]|[-4-]}
<Lit 0x24e06 24> {[«24""»]|[$$Illegal argument marker.]}
<Call 0x24e1a 0x21d28> {[«24""»]|[$$Illegal argument marker.]}
<POP 24e1e-24e22 StackAdj> Δ+28 {}
<POP 24e22-24e26 Naked> Σ0 ↓ →0x24e6c ←0x24cd2 ←0x24cdc ←0x24d0c ←0x24d1e ←0x24d32 ←0x24d3a ←0x24d50 ←0x24d70 ←0x24d98 ←0x24dca ←0x24df4
<MI 24e22 TST.B D7> {}
<MI 24e24 BNE 0x24e6c> {}
<POP 24e26-24e6c Naked> Σ0 ↓
<Pointer.fp 0x24e26 <LVAR -0x00c @ 4(r)>> Δ-4 {[@@-12]}
<Pointer.fp 0x24e2a <LVAR -0x014 @ 4(r)>> Δ-4 {[@@-12]|[@@-20]}
<Call 0x24e2c 0x24a88> {[@@-12]|[@@-20]}
<POP 24e30-24e32 StackAdj> Δ+8 {}
<MI 24e32 MOVE.L (A6-0x34),D0> {}
<POP 0x24e36 LimitCheck 0x0 ≤ D0 ≤ 0x13> {}
<MI 24e40 MOVE.L D0,D4> {}
<MI 24e42 MOVEQ.L #0x07,D3> {}
<Call 0x24e44 0x1028c> {}
?muls_d3_d4
<MI 24e4a LEA.L 0x21c5a,A0> {}
<MI 24e4e MOVE.L (A6-0xc),D0> {}
<POP 0x24e52 LimitCheck 0x0 ≤ D0 ≤ 0x6> {}
<MI 24e5c LEA.L (A0+D4.L),A0> {}
<MI 24e60 MOVE.B (A0+D0.L),D1> {}
<MI 24e64 EXTB.W D1> {}
<MI 24e66 EXTW.L D1> {}
<MI 24e68 MOVE.L D1,(A6-0x34)> {}
<POP 24e6c-24e72 Naked> Σ0 ↓ →0x24c94 ←0x24e22
<MI 24e6c TST.B D7> {}
<MI 24e6e BEQ 0x24c94> {}
<POP 24e72-24e7e Naked> Σ0 ↓
<MI 24e72 MOVE.L (A6-0x28),-(A7)> Δ-4 {[4, '(A6-0x28)']}
<MI 24e76 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x28)']|[4, '(A6-0x8)']}
<Call 0x24e78 0x24bc2> {[4, '(A6-0x28)']|[4, '(A6-0x8)']}
<POP 24e7c-24e7e StackAdj> Δ+8 {}
<POP 24e7e-24e88 Naked> Σ0 ↓ ←0x24cf8
<Pointer.fp 0x24e7e <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-8]}
<Call 0x24e80 0x102bc> {[@@-8]}
FreeString(VAR a : String)
<POP 24e86-24e88 StackAdj> Δ+4 {}
<POP 24e88-24e90 Epilogue> Σ0
@ 24e90
<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 24e90-24f88 Body> Δ-12
<POP 24e90-24ea6 Prologue> Σ0 ↓
<POP 24ea6-24eb8 RegCacheLoad> Σ0 ↓
<POP 24eb8-24ee0 Naked> Σ0 Δ-4 ↓
<MI 24eb8 CLR.L (A6+0x14)> {}
<POP 24ebc-24ebe StackAdj> Δ-4 {[-4-]}
<MI 24ebe MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x10)']}
<MI 24ec0 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<Call 0x24ec2 0x2293a> {[-4-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<POP 24ec6-24ec8 StackAdj> Δ+8 {[-4-]}
<MI 24ec8 MOVE.L (A7)+,(A6-0xc)> Δ+4 {}
<MI 24eca MOVEA.L (A6+0x8),A0> {}
<MI 24ece MOVE.W (A0),D0> {}
<MI 24ed0 EXTW.L D0> {}
<MI 24ed2 ADDQ.L #0x1,D0> {}
<MI 24ed4 MOVE.L D0,(A6-0x8)> {}
<MI 24ed6 NEG.L D0> {}
<MI 24ed8 ADD.L (A6-0xc),D0> {}
<MI 24eda ADDQ.L #0x1,D0> {}
<MI 24edc MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 24ede MOVEQ.L #0x01,D0> {[4, 'D0']}
<POP 24ee0-24ee6 Naked> Σ-4 ↓ →0x24f7e ←0x24f76
<MI 24ee0 CMP.L (A7),D0> {[-4-]}
<MI 24ee2 BGT 0x24f7e> {[-4-]}
<POP 24ee6-24ef2 Naked> Σ-4 Δ-8 ↓
<MI 24ee6 MOVE.L D0,(A6-0x18)> {[-4-]}
<MI 24eea MOVE.L D0,-(A7)> Δ-4 {[-4-]|[4, 'D0']}
<MI 24eec MOVEQ.L #0x00,D6> {[-4-]|[4, 'D0']}
<MI 24eee MOVE.L (A6-0x8),-(A7)> Δ-4 {[-4-]|[4, 'D0']|[4, '(A6-0x8)']}
<MI 24ef0 MOVEQ.L #0x01,D5> {[-4-]|[4, 'D0']|[4, '(A6-0x8)']}
<POP 24ef2-24ef6 Naked> Σ-12 ↓ →0x24f3e ←0x24f38
<MI 24ef2 CMP.L (A7),D5> {[-12-]}
<MI 24ef4 BGT 0x24f3e> {[-12-]}
<POP 24ef6-24efe Naked> Σ-12 ↓ →0x24f02
<MI 24ef6 CMPI.L #0x00000001,D5> {[-12-]}
<MI 24efc BNE 0x24f02> {[-12-]}
<POP 24efe-24f02 Naked> Σ-12 →0x24f1a
<MI 24efe MOVEQ.L #0x2f,D7> {[-12-]}
<MI 24f00 BRA 0x24f1a> {[-12-]}
<POP 24f02-24f1a Naked> Σ-12 ↓ ←0x24ef6
<MI 24f02 MOVEA.L (A6+0x8),A0> {[-12-]}
<MI 24f06 MOVE.L D5,D0> {[-12-]}
<MI 24f08 SUBQ.L #0x1,D0> {[-12-]}
<MI 24f0a SUBQ.L #0x1,D0> {[-12-]}
<POP 0x24f0c LimitCheck 0x0 ≤ D0 ≤ 0x7d> {[-12-]}
<MI 24f16 MOVE.B (A0+D0.L+#0x2),D7> {[-12-]}
<POP 24f1a-24f34 Naked> Σ-12 ↓ →0x24f38 ←0x24efe
<POP 24f1a-24f1c StackAdj> Δ-2 {[-14-]}
<MI 24f1c MOVE.L (A6+0x10),-(A7)> Δ-4 {[-14-]|[4, '(A6+0x10)']}
<MI 24f1e MOVE.L (A6+0xc),-(A7)> Δ-4 {[-14-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<MI 24f20 MOVE.L (A7+0xe),D0> {[-14-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<MI 24f24 ADD.L D5,D0> {[-14-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<MI 24f26 SUBQ.L #0x1,D0> {[-14-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<MI 24f28 MOVE.L D0,-(A7)> Δ-4 {[-14-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, 'D0']}
<Call 0x24f2a 0x24526> {[-14-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, 'D0']}
<POP 24f2e-24f30 StackAdj> Δ+12 {[-14-]}
<MI 24f30 CMP.B (A7)+,D7> Δ+2 {[-12-]}
<MI 24f32 BEQ 0x24f38> {[-12-]}
<POP 24f34-24f38 Naked> Σ-12 Δ+4 →0x24f40
<POP 24f34-24f36 StackAdj> Δ+4 {[-8-]}
<MI 24f36 BRA 0x24f40> {[-8-]}
<POP 24f38-24f3e Naked> Σ-12 ↓ →0x24ef2 ←0x24f1a
<MI 24f38 MOVE.L D5,D6> {[-12-]}
<MI 24f3a ADDQ.L #0x1,D5> {[-12-]}
<MI 24f3c BVC 0x24ef2> {[-12-]}
<POP 24f3e-24f40 Naked> Σ-12 Δ+4 ↓ ←0x24ef2
<POP 24f3e-24f40 StackAdj> Δ+4 {[-8-]}
<POP 24f40-24f44 Naked> Σ-8 ↓ →0x24f76 ←0x24f34
<MI 24f40 CMP.L (A6-0x8),D6> {[-8-]}
<MI 24f42 BNE 0x24f76> {[-8-]}
<POP 24f44-24f4e Naked> Σ-8 ↓ →0x24f74
<MI 24f44 MOVE.L (A7),D0> {[-8-]}
<MI 24f46 MOVE.L D0,D1> {[-8-]}
<MI 24f48 ADD.L (A6-0x8),D1> {[-8-]}
<MI 24f4a CMP.L (A6-0xc),D1> {[-8-]}
<MI 24f4c BGE 0x24f74> {[-8-]}
<POP 24f4e-24f64 Naked> Σ-8 ↓ →0x24f6a
<POP 24f4e-24f50 StackAdj> Δ-2 {[-10-]}
<MI 24f50 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x10)']}
<MI 24f52 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<MI 24f54 MOVE.L D1,-(A7)> Δ-4 {[-10-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, 'D1']}
<Call 0x24f56 0x24526> {[-10-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, 'D1']}
<POP 24f5a-24f5c StackAdj> Δ+12 {[-10-]}
<MI 24f5c MOVE.B (A7)+,D7> Δ+2 {[-8-]}
<MI 24f5e CMPI.B #0x2f,D7> {[-8-]}
<MI 24f62 BEQ 0x24f6a> {[-8-]}
<POP 24f64-24f6a Naked> Σ-8 ↓ →0x24f72
<MI 24f64 CMPI.B #0x3d,D7> {[-8-]}
<MI 24f68 BNE 0x24f72> {[-8-]}
<POP 24f6a-24f72 Naked> Σ-8 Δ+8 →0x24f80 ←0x24f4e ←0x24f74
<MI 24f6a MOVE.L D0,(A6+0x14)> {[-8-]}
<POP 24f6e-24f70 StackAdj> Δ+8 {}
<MI 24f70 BRA 0x24f80> {}
<POP 24f72-24f74 Naked> Σ-8 →0x24f76 ←0x24f64
<MI 24f72 BRA 0x24f76> {[-8-]}
<POP 24f74-24f76 Naked> Σ-8 →0x24f6a ←0x24f44
<MI 24f74 BRA 0x24f6a> {[-8-]}
<POP 24f76-24f7e Naked> Σ-8 Δ+4 ↓ →0x24ee0 ←0x24f40 ←0x24f72
<MI 24f76 MOVE.L (A7)+,D0> Δ+4 {[-4-]}
<MI 24f78 ADDQ.L #0x1,D0> {[-4-]}
<MI 24f7a BVC 0x24ee0> {[-4-]}
<POP 24f7e-24f80 Naked> Σ-4 Δ+4 ↓ ←0x24ee0
<POP 24f7e-24f80 StackAdj> Δ+4 {}
<POP 24f80-24f88 Epilogue> Σ0 ←0x24f6a
@ 24f88
<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 24f88-25070 Body> Δ-12
<POP 24f88-24f9e Prologue> Σ0 ↓
<POP 24f9e-24fae RegCacheLoad> Σ0 ↓
<POP 24fae-24fd4 Naked> Σ0 ↓ →0x25068
<MI 24fae MOVEA.L (A6+0x8),A0> {}
<MI 24fb2 CLR.B (A0)> {}
<MI 24fb4 MOVEA.L (A6+0xc),A1> {}
<MI 24fb8 MOVE.L #0x01,(A1)> {}
<POP 24fba-24fbc StackAdj> Δ-8 {[-8-]}
<MI 24fbc MOVE.L (A6+0x18),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x18)']}
<MI 24fc0 MOVE.L (A6+0x14),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x18)']|[4, '(A6+0x14)']}
<Call 0x24fc4 0x22972> {[-8-]|[4, '(A6+0x18)']|[4, '(A6+0x14)']}
<POP 24fc8-24fca StackAdj> Δ+8 {[-8-]}
<MI 24fca MOVE.L (A7)+,(A6-0x1c)> Δ+4 {[-4-]}
<MI 24fcc MOVE.L (A7)+,(A6-0x18)> Δ+4 {}
<MI 24fce TST.L (A6-0x1c)> {}
<MI 24fd0 BEQ 0x25068> {}
<POP 24fd4-24fea Naked> Σ0 ↓ →0x25068
<POP 24fd4-24fd6 StackAdj> Δ-4 {[-4-]}
<MI 24fd6 MOVE.L (A6-0x18),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x18)']}
<MI 24fd8 MOVE.L (A6-0x1c),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<MI 24fda MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, '(A6+0x10)']}
<Call 0x24fde 0x24e90> {[-4-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, '(A6+0x10)']}
<POP 24fe2-24fe4 StackAdj> Δ+12 {[-4-]}
<MI 24fe4 MOVE.L (A7)+,(A6-0x14)> Δ+4 {}
<MI 24fe8 BEQ 0x25068> {}
<POP 24fea-2500a Naked> Σ0 Δ-4 ↓
<MI 24fea MOVE.B #0x01,(A0)> {}
<MI 24fec PEA.L (A1)> Δ-4 {[4, '^(A1)']}
<Call 0x24fee 0x102b8> {[4, '^(A1)']}
NewString(VAR a : String)
<MI 24ff4 MOVE.L (A6-0x18),-(A7)> Δ-4 {[4, '^(A1)']|[4, '(A6-0x18)']}
<MI 24ff6 MOVE.L (A6-0x1c),-(A7)> Δ-4 {[4, '^(A1)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<Call 0x24ff8 0x2293a> {[4, '^(A1)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<POP 24ffc-24ffe StackAdj> Δ+8 {[4, '^(A1)']}
<MI 24ffe MOVE.L (A7)+,(A6-0x8)> Δ+4 {}
<MI 25000 MOVE.L (A6-0x14),D0> {}
<MI 25004 ADDQ.L #0x1,D0> {}
<MI 25006 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<MI 25008 MOVE.L D0,D5> {[4, '(A6-0x8)']}
<POP 2500a-2500e Naked> Σ-4 ↓ →0x25066 ←0x25062
<MI 2500a CMP.L (A7),D5> {[-4-]}
<MI 2500c BGT 0x25066> {[-4-]}
<POP 2500e-25024 Naked> Σ-4 ↓ →0x25062
<POP 2500e-25010 StackAdj> Δ-2 {[-6-]}
<MI 25010 MOVE.L (A6-0x18),-(A7)> Δ-4 {[-6-]|[4, '(A6-0x18)']}
<MI 25012 MOVE.L (A6-0x1c),-(A7)> Δ-4 {[-6-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<MI 25014 MOVE.L D5,-(A7)> Δ-4 {[-6-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, 'D5']}
<Call 0x25016 0x24526> {[-6-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, 'D5']}
<POP 2501a-2501c StackAdj> Δ+12 {[-6-]}
<MI 2501c MOVE.B (A7)+,D0> Δ+2 {[-4-]}
<MI 2501e CMPI.B #0x3d,D0> {[-4-]}
<MI 25022 BNE 0x25062> {[-4-]}
<POP 25024-2502c Naked> Σ-4 Δ-4 ↓
<MI 25024 MOVE.L D5,D0> {[-4-]}
<MI 25026 ADDQ.L #0x1,D0> {[-4-]}
<MI 25028 MOVE.L (A6-0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x8)']}
<MI 2502a MOVE.L D0,D7> {[-4-]|[4, '(A6-0x8)']}
<POP 2502c-25030 Naked> Σ-8 ↓ →0x2505e ←0x2504a
<MI 2502c CMP.L (A7),D7> {[-8-]}
<MI 2502e BGT 0x2505e> {[-8-]}
<POP 25030-25046 Naked> Σ-8 ↓ →0x2504a
<POP 25030-25032 StackAdj> Δ-2 {[-10-]}
<MI 25032 MOVE.L (A6-0x18),-(A7)> Δ-4 {[-10-]|[4, '(A6-0x18)']}
<MI 25034 MOVE.L (A6-0x1c),-(A7)> Δ-4 {[-10-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<MI 25036 MOVE.L D7,-(A7)> Δ-4 {[-10-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, 'D7']}
<Call 0x25038 0x24526> {[-10-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, 'D7']}
<POP 2503c-2503e StackAdj> Δ+12 {[-10-]}
<MI 2503e MOVE.B (A7)+,D6> Δ+2 {[-8-]}
<MI 25040 CMPI.B #0x2f,D6> {[-8-]}
<MI 25044 BNE 0x2504a> {[-8-]}
<POP 25046-2504a Naked> Σ-8 Δ+8 →0x25068
<POP 25046-25048 StackAdj> Δ+8 {}
<MI 25048 BRA 0x25068> {}
<POP 2504a-2505e Naked> Σ-8 ↓ →0x2502c ←0x25030
<MI 2504a MOVEA.L (A6+0xc),A0> {[-8-]}
<MI 2504e MOVE.L (A0),-(A7)> Δ-4 {[-8-]|[4, '(A0)']}
<MI 25050 MOVE.B D6,-(A7)> Δ-2 {[-8-]|[4, '(A0)']|[2, 'D6']}
<Call 0x25052 0x102c0> {[-8-]|[4, '(A0)']|[2, 'D6']}
AppendChar(MOD b : String; a : char)
<POP 25058-2505a StackAdj> Δ+6 {[-8-]}
<MI 2505a ADDQ.L #0x1,D7> {[-8-]}
<MI 2505c BVC 0x2502c> {[-8-]}
<POP 2505e-25062 Naked> Σ-8 Δ+8 →0x25068 ←0x2502c
<POP 2505e-25060 StackAdj> Δ+8 {}
<MI 25060 BRA 0x25068> {}
<POP 25062-25066 Naked> Σ-4 ↓ →0x2500a ←0x2500e
<MI 25062 ADDQ.L #0x1,D5> {[-4-]}
<MI 25064 BVC 0x2500a> {[-4-]}
<POP 25066-25068 Naked> Σ-4 Δ+4 ↓ ←0x2500a
<POP 25066-25068 StackAdj> Δ+4 {}
<POP 25068-25070 Epilogue> Σ0 ←0x24fae ←0x24fd4 ←0x25046 ←0x2505e
@ 25070
<LVAR 0x00c @ 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x010 @ 1(r)>
<POP 25070-2510e Body>
<POP 25070-25086 Prologue> Σ0 ↓
<POP 25086-25094 RegCacheLoad> Σ0 ↓
<POP 25094-250ac Naked> Σ0 ↓ →0x250fc
<MI 25094 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<MI 25096 MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Pointer.fp 0x25098 <LVAR -0x010 @ 1(r)>> Δ-4 {[4, '(A6+0xc)']|[4, '(A6+0x8)']|[@@-16]}
<Call 0x2509c 0x21578> {[4, '(A6+0xc)']|[4, '(A6+0x8)']|[@@-16]}
<POP 250a2-250a6 StackAdj> Δ+12 {}
<MI 250a6 TST.B (A6-0x10)> {}
<MI 250aa BNE 0x250fc> {}
<POP 250ac-250c6 Naked> Σ0 ↓
<MI 250ac MOVE.L 0x26832,D7> {}
<POP 250ae-250b0 StackAdj> Δ-4 {[-4-]}
<MI 250b0 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x250b2 0x22134> {[-4-]|[4, '(A6+0x8)']}
<POP 250b6-250b8 StackAdj> Δ+4 {[-4-]}
<MI 250b8 MOVE.L (A7)+,D6> Δ+4 {}
<MI 250ba MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<MI 250bc MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x250be 0x243ea> {[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 250c2-250c4 StackAdj> Δ+8 {}
<MI 250c4 MOVE.L 0x26832,D5> {}
<POP 250c6-250e4 Naked> Σ0 ↓ →0x250f0 ←0x250f0
<MI 250c6 MOVE.L D7,D0> {}
<MI 250c8 SUBQ.L #0x1,D0> {}
<POP 0x250ca LimitCheck 0x0 ≤ D0 ≤ 0xfff> {}
<MI 250d4 LEA.L 0x2582a,A0> {}
<MI 250da MOVE.B (A0+D0.L+#0x8),D0> {}
<MI 250de CMPI.B #0x25,D0> {}
<MI 250e2 BNE 0x250f0> {}
<POP 250e4-250f0 Naked> Σ0 ↓
<MI 250e4 MOVE.L D7,0x26832> {}
<MI 250e6 MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<MI 250e8 MOVE.L D6,-(A7)> Δ-4 {[4, '(A6+0x8)']|[4, 'D6']}
<Call 0x250ea 0x24c48> {[4, '(A6+0x8)']|[4, 'D6']}
<POP 250ee-250f0 StackAdj> Δ+8 {}
<POP 250f0-250fa Naked> Σ0 ↓ →0x250c6 ←0x250c6
<MI 250f0 ADDQ.L #0x1,D7> {}
<MI 250f2 CMP.L 0x26836,D7> {}
<MI 250f8 BLE 0x250c6> {}
<POP 250fa-250fc Naked> Σ0 ↓
<MI 250fa MOVE.L D5,0x26832> {}
<POP 250fc-25106 Naked> Σ0 ↓ ←0x25094
<Pointer.fp 0x250fc <LVAR 0x00c @ 4(r)>> Δ-4 {[@@12]}
<Call 0x250fe 0x102bc> {[@@12]}
FreeString(VAR a : String)
<POP 25104-25106 StackAdj> Δ+4 {}
<POP 25106-2510e Epilogue> Σ0
@ 2510e
<LVAR -0x006 @ 4(r)>
<LVAR -0x00a @ 4(rw)>
<LVAR -0x00b 1(w)>
<LVAR -0x00c @ 1(r)>
<POP 2510e-25420 Body> Δ+148
<POP 2510e-25124 Prologue> Σ0 ↓
<POP 25124-25132 RegCacheLoad> Σ0 ↓
<POP 25132-25158 Naked> Σ0 ↓ →0x25402 ←0x25402
<MI 25132 MOVE.L 0x26832,D7> {}
<Pointer.fp 0x25134 <LVAR -0x006 @ 4(r)>> Δ-4 {[@@-6]}
<Pointer.fp 0x25136 <LVAR -0x00c @ 1(r)>> Δ-4 {[@@-6]|[@@-12]}
<Call 0x2513a 0x22088> {[@@-6]|[@@-12]}
<POP 2513e-25140 StackAdj> Δ+8 {}
<MI 25140 MOVE.L 0x26832,D6> {}
<POP 25142-25144 StackAdj> Δ-4 {[-4-]}
<MI 25144 MOVE.L (A6-0x6),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x6)']}
<Call 0x25146 0x22134> {[-4-]|[4, '(A6-0x6)']}
<POP 2514a-2514c StackAdj> Δ+4 {[-4-]}
<MI 2514c MOVE.L (A7)+,D0> Δ+4 {}
<MI 2514e CMPI.L #0xffffffff,D0> {}
<MI 25154 BEQ 0x25402> {}
<POP 25158-25182 Naked> Σ0 ↓ →0x25190
<POP 25158-2515a StackAdj> Δ-4 {[-4-]}
<MI 2515a MOVE.L (A6-0x6),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x6)']}
<Const 0x2515c 0x0.4> Δ-4 {[-4-]|[4, '(A6-0x6)']|[##0]}
<Call 0x25160 0x22a50> {[-4-]|[4, '(A6-0x6)']|[##0]}
<POP 25164-25166 StackAdj> Δ+8 {[-4-]}
<MI 25166 MOVE.L (A7),(A6-0xa)> {[-4-]}
<POP 25168-2516a StackAdj> Δ+2 {[-2-]}
<MI 2516a MOVE.L (A6-0xa),-(A7)> Δ-4 {[-2-]|[4, '(A6-0xa)']}
<Call 0x2516c 0x24332> {[-2-]|[4, '(A6-0xa)']}
<POP 25170-25172 StackAdj> Δ+4 {[-2-]}
<MI 25172 MOVE.B (A7)+,D0> Δ+2 {}
<MI 25174 EXTB.W D0> {}
<POP 0x25176 LimitCheck 0x0 ≤ D0 ≤ 0x2b> {}
<MI 2517a MOVE.B D0,(A6-0xb)> {}
<MI 2517e TST.B D0> {}
<MI 25180 BNE 0x25190> {}
<POP 25182-25190 Naked> Σ0 →0x253fa
<MI 25182 MOVE.L (A6-0xa),-(A7)> Δ-4 {[4, '(A6-0xa)']}
<MI 25184 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0xa)']|[4, '(A6-0x6)']}
<Call 0x25186 0x25070> {[4, '(A6-0xa)']|[4, '(A6-0x6)']}
<POP 2518a-2518c StackAdj> Δ+8 {}
<MI 2518c BRA 0x253fa> {}
<POP 25190-251c6 Naked> Σ0 ↓ →0x251f2 ←0x25158
<Pointer.fp 0x25190 <LVAR -0x00a @ 4(rw)>> Δ-4 {[@@-10]}
<Call 0x25192 0x102bc> {[@@-10]}
FreeString(VAR a : String)
<POP 25198-2519a StackAdj> Δ+4 {}
<MI 2519a MOVE.B D0,D1> {}
<MI 2519c EXTB.W D1> {}
<POP 0x2519e LimitCheck 0x0 ≤ D1 ≤ 0x2b> {}
<MI 251a2 LEA.L 0x21c2a,A0> {}
<MI 251a6 MOVE.W D1,D0> {}
<MI 251a8 EXTW.L D0> {}
<MI 251aa MOVE.L D0,D2> {}
<MI 251ac ROR.L #0x1,D2> {}
<MI 251ae ADDA.W D2,A0> {}
<MI 251b0 SWAP.W D2> {}
<MI 251b2 ROL.W #0x3,D2> {}
<MI 251b4 CLR.L D3> {}
<MI 251b6 MOVE.B (A0),D3> {}
<MI 251b8 LSL.B D2,D3> {}
<MI 251ba LSR.B #0x4,D3> {}
<MI 251bc MOVE.L D3,D5> {}
<MI 251be CMPI.L #0x0000000f,D5> {}
<MI 251c4 BEQ 0x251f2> {}
<POP 251c6-251f2 Naked> Σ0 ↓
<MI 251c6 MOVE.L D0,D4> {}
<MI 251c8 MOVEQ.L #0x0a,D3> {}
<Call 0x251ca 0x1028c> {}
?muls_d3_d4
<MI 251d0 LEA.L 0x21a5c,A0> {}
<Blob 0x251d4 [10] (A0+D4.W)> Δ-10 {[«10»]}
<MI 251e6 MOVE.L (A6-0x6),-(A7)> Δ-4 {[«10»]|[4, '(A6-0x6)']}
<MI 251e8 MOVE.L D5,-(A7)> Δ-4 {[«10»]|[4, '(A6-0x6)']|[4, 'D5']}
<Call 0x251ea 0x2216a> {[«10»]|[4, '(A6-0x6)']|[4, 'D5']}
<POP 251ee-251f2 StackAdj> Δ+18 {}
<POP 251f2-25206 Naked> Σ0 →0x2525c →0x25268 →0x2527a →0x25288 →0x253ec →0x25290 →0x25294 →0x2529c →0x252a4 →0x252ac →0x252b4 →0x252bc →0x252c4 →0x252cc →0x252d4 →0x252dc →0x252e6 →0x252f0 →0x252fa →0x25304 →0x2530e →0x25318 →0x25322 →0x2532c →0x25336 →0x25340 →0x2534a →0x25354 →0x2535e →0x25368 →0x25372 →0x2537c →0x25386 →0x25390 →0x2539a →0x253a4 →0x253ae →0x253b8 →0x253be →0x253c8 →0x253d2 →0x253dc →0x253e2 ←0x25190
<MI 251f2 SUBQ.W #0x1,D1> {}
<POP 0x251f4 LimitCheck 0x0 ≤ D1 ≤ 0x2a> {}
<MI 251fc ADD.W D1,D1> {}
<MI 251fe SWITCH D1.W> {}
<POP 2525c-25262 Naked> Σ0 Δ-4 ↓ ←0x251f2
<MI 2525c MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x2525e 0x22bd8> {[4, '(A6-0x6)']}
<POP 25262-25268 Naked> Σ-4 Δ+4 →0x253fa ←0x2527a ←0x25288 ←0x25294 ←0x2529c ←0x252a4 ←0x252ac ←0x252b4 ←0x252bc ←0x252c4 ←0x252cc ←0x252d4 ←0x252dc ←0x252e6 ←0x252f0 ←0x252fa ←0x25304 ←0x2530e ←0x25318 ←0x25322 ←0x2532c ←0x25336 ←0x25340 ←0x2534a ←0x25354 ←0x2535e ←0x25368 ←0x25372 ←0x2537c ←0x25386 ←0x25390 ←0x2539a ←0x253a4 ←0x253ae ←0x253be ←0x253c8 ←0x253d2 ←0x253e2
<POP 25262-25264 StackAdj> Δ+4 {}
<MI 25264 BRA 0x253fa> {}
<POP 25268-2527a Naked> Σ0 →0x253fa ←0x251f2
<MI 25268 CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x2526a 0x1.4> Δ-4 {[#0]|[##1]}
<Call 0x2526e 0x103b8> {[#0]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 25274-25276 StackAdj> Δ+6 {}
<MI 25276 BRA 0x253fa> {}
<POP 2527a-25288 Naked> Σ0 Δ-4 →0x25262 ←0x251f2
<POP 2527a-2527c StackAdj> Δ-4 {[-4-]}
<Call 0x2527c 0x102ac> {[-4-]}
FSCALL_102ac
<Call 0x25282 0x22bae> {[-4-]}
<MI 25286 BRA 0x25262> {[-4-]}
<POP 25288-25290 Naked> Σ0 Δ-4 →0x25262 ←0x251f2
<MI 25288 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x2528a 0x22db2> {[4, '(A6-0x6)']}
<MI 2528e BRA 0x25262> {[4, '(A6-0x6)']}
<POP 25290-25294 Naked> Σ0 →0x253fa ←0x251f2
<MI 25290 BRA 0x253fa> {}
<POP 25294-2529c Naked> Σ0 Δ-4 →0x25262 ←0x251f2
<MI 25294 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x25296 0x230d8> {[4, '(A6-0x6)']}
<MI 2529a BRA 0x25262> {[4, '(A6-0x6)']}
<POP 2529c-252a4 Naked> Σ0 Δ-4 →0x25262 ←0x251f2
<MI 2529c MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x2529e 0x23244> {[4, '(A6-0x6)']}
<MI 252a2 BRA 0x25262> {[4, '(A6-0x6)']}
<POP 252a4-252ac Naked> Σ0 Δ-4 →0x25262 ←0x251f2
<MI 252a4 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x252a6 0x23332> {[4, '(A6-0x6)']}
<MI 252aa BRA 0x25262> {[4, '(A6-0x6)']}
<POP 252ac-252b4 Naked> Σ0 Δ-4 →0x25262 ←0x251f2
<MI 252ac MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x252ae 0x23726> {[4, '(A6-0x6)']}
<MI 252b2 BRA 0x25262> {[4, '(A6-0x6)']}
<POP 252b4-252bc Naked> Σ0 Δ-4 →0x25262 ←0x251f2
<MI 252b4 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x252b6 0x2379e> {[4, '(A6-0x6)']}
<MI 252ba BRA 0x25262> {[4, '(A6-0x6)']}
<POP 252bc-252c4 Naked> Σ0 Δ-4 →0x25262 ←0x251f2
<MI 252bc MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x252be 0x23816> {[4, '(A6-0x6)']}
<MI 252c2 BRA 0x25262> {[4, '(A6-0x6)']}
<POP 252c4-252cc Naked> Σ0 Δ-4 →0x25262 ←0x251f2
<MI 252c4 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x252c6 0x23842> {[4, '(A6-0x6)']}
<MI 252ca BRA 0x25262> {[4, '(A6-0x6)']}
<POP 252cc-252d4 Naked> Σ0 Δ-4 →0x25262 ←0x251f2
<MI 252cc MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x252ce 0x23942> {[4, '(A6-0x6)']}
<MI 252d2 BRA 0x25262> {[4, '(A6-0x6)']}
<POP 252d4-252dc Naked> Σ0 Δ-4 →0x25262 ←0x251f2
<MI 252d4 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x252d6 0x23a28> {[4, '(A6-0x6)']}
<MI 252da BRA 0x25262> {[4, '(A6-0x6)']}
<POP 252dc-252e6 Naked> Σ0 Δ-4 →0x25262 ←0x251f2
<MI 252dc MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x252de 0x23a54> {[4, '(A6-0x6)']}
<MI 252e2 BRA 0x25262> {[4, '(A6-0x6)']}
<POP 252e6-252f0 Naked> Σ0 Δ-4 →0x25262 ←0x251f2
<MI 252e6 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x252e8 0x23aa0> {[4, '(A6-0x6)']}
<MI 252ec BRA 0x25262> {[4, '(A6-0x6)']}
<POP 252f0-252fa Naked> Σ0 Δ-4 →0x25262 ←0x251f2
<MI 252f0 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x252f2 0x23aec> {[4, '(A6-0x6)']}
<MI 252f6 BRA 0x25262> {[4, '(A6-0x6)']}
<POP 252fa-25304 Naked> Σ0 Δ-4 →0x25262 ←0x251f2
<MI 252fa MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x252fc 0x23b38> {[4, '(A6-0x6)']}
<MI 25300 BRA 0x25262> {[4, '(A6-0x6)']}
<POP 25304-2530e Naked> Σ0 Δ-4 →0x25262 ←0x251f2
<MI 25304 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x25306 0x23b84> {[4, '(A6-0x6)']}
<MI 2530a BRA 0x25262> {[4, '(A6-0x6)']}
<POP 2530e-25318 Naked> Σ0 Δ-4 →0x25262 ←0x251f2
<MI 2530e MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x25310 0x23bd0> {[4, '(A6-0x6)']}
<MI 25314 BRA 0x25262> {[4, '(A6-0x6)']}
<POP 25318-25322 Naked> Σ0 Δ-4 →0x25262 ←0x251f2
<MI 25318 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x2531a 0x23c1c> {[4, '(A6-0x6)']}
<MI 2531e BRA 0x25262> {[4, '(A6-0x6)']}
<POP 25322-2532c Naked> Σ0 Δ-4 →0x25262 ←0x251f2
<MI 25322 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x25324 0x23c66> {[4, '(A6-0x6)']}
<MI 25328 BRA 0x25262> {[4, '(A6-0x6)']}
<POP 2532c-25336 Naked> Σ0 Δ-4 →0x25262 ←0x251f2
<MI 2532c MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x2532e 0x23cb0> {[4, '(A6-0x6)']}
<MI 25332 BRA 0x25262> {[4, '(A6-0x6)']}
<POP 25336-25340 Naked> Σ0 Δ-4 →0x25262 ←0x251f2
<MI 25336 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x25338 0x23cfa> {[4, '(A6-0x6)']}
<MI 2533c BRA 0x25262> {[4, '(A6-0x6)']}
<POP 25340-2534a Naked> Σ0 Δ-4 →0x25262 ←0x251f2
<MI 25340 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x25342 0x23d44> {[4, '(A6-0x6)']}
<MI 25346 BRA 0x25262> {[4, '(A6-0x6)']}
<POP 2534a-25354 Naked> Σ0 Δ-4 →0x25262 ←0x251f2
<MI 2534a MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x2534c 0x23d8e> {[4, '(A6-0x6)']}
<MI 25350 BRA 0x25262> {[4, '(A6-0x6)']}
<POP 25354-2535e Naked> Σ0 Δ-4 →0x25262 ←0x251f2
<MI 25354 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x25356 0x23dd8> {[4, '(A6-0x6)']}
<MI 2535a BRA 0x25262> {[4, '(A6-0x6)']}
<POP 2535e-25368 Naked> Σ0 Δ-4 →0x25262 ←0x251f2
<MI 2535e MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x25360 0x23e22> {[4, '(A6-0x6)']}
<MI 25364 BRA 0x25262> {[4, '(A6-0x6)']}
<POP 25368-25372 Naked> Σ0 Δ-4 →0x25262 ←0x251f2
<MI 25368 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x2536a 0x23e6c> {[4, '(A6-0x6)']}
<MI 2536e BRA 0x25262> {[4, '(A6-0x6)']}
<POP 25372-2537c Naked> Σ0 Δ-4 →0x25262 ←0x251f2
<MI 25372 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x25374 0x23eb0> {[4, '(A6-0x6)']}
<MI 25378 BRA 0x25262> {[4, '(A6-0x6)']}
<POP 2537c-25386 Naked> Σ0 Δ-4 →0x25262 ←0x251f2
<MI 2537c MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x2537e 0x23ef6> {[4, '(A6-0x6)']}
<MI 25382 BRA 0x25262> {[4, '(A6-0x6)']}
<POP 25386-25390 Naked> Σ0 Δ-4 →0x25262 ←0x251f2
<MI 25386 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x25388 0x23f2c> {[4, '(A6-0x6)']}
<MI 2538c BRA 0x25262> {[4, '(A6-0x6)']}
<POP 25390-2539a Naked> Σ0 Δ-4 →0x25262 ←0x251f2
<MI 25390 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x25392 0x23fbc> {[4, '(A6-0x6)']}
<MI 25396 BRA 0x25262> {[4, '(A6-0x6)']}
<POP 2539a-253a4 Naked> Σ0 Δ-4 →0x25262 ←0x251f2
<MI 2539a MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x2539c 0x2402e> {[4, '(A6-0x6)']}
<MI 253a0 BRA 0x25262> {[4, '(A6-0x6)']}
<POP 253a4-253ae Naked> Σ0 Δ-4 →0x25262 ←0x251f2
<MI 253a4 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x253a6 0x23394> {[4, '(A6-0x6)']}
<MI 253aa BRA 0x25262> {[4, '(A6-0x6)']}
<POP 253ae-253b8 Naked> Σ0 Δ-4 →0x25262 ←0x251f2
<MI 253ae MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x253b0 0x233fe> {[4, '(A6-0x6)']}
<MI 253b4 BRA 0x25262> {[4, '(A6-0x6)']}
<POP 253b8-253be Naked> Σ0 →0x253fa ←0x251f2
<Call 0x253b8 0x233d0> {}
<MI 253bc BRA 0x253fa> {}
<POP 253be-253c8 Naked> Σ0 Δ-4 →0x25262 ←0x251f2
<MI 253be MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x253c0 0x240a0> {[4, '(A6-0x6)']}
<MI 253c4 BRA 0x25262> {[4, '(A6-0x6)']}
<POP 253c8-253d2 Naked> Σ0 Δ-4 →0x25262 ←0x251f2
<MI 253c8 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x253ca 0x24122> {[4, '(A6-0x6)']}
<MI 253ce BRA 0x25262> {[4, '(A6-0x6)']}
<POP 253d2-253dc Naked> Σ0 Δ-4 →0x25262 ←0x251f2
<MI 253d2 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x253d4 0x241a2> {[4, '(A6-0x6)']}
<MI 253d8 BRA 0x25262> {[4, '(A6-0x6)']}
<POP 253dc-253e2 Naked> Σ0 →0x253fa ←0x251f2
<Call 0x253dc 0x24266> {}
<MI 253e0 BRA 0x253fa> {}
<POP 253e2-253ec Naked> Σ0 Δ-4 →0x25262 ←0x251f2
<MI 253e2 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x253e4 0x24286> {[4, '(A6-0x6)']}
<MI 253e8 BRA 0x25262> {[4, '(A6-0x6)']}
<POP 253ec-253fa Naked> Σ0 ←0x251f2
<POP 253ec-253fa Bailout> {}
<MI 253ec MOVEA.L (A5+0x8),A7>
<MI 253f0 MOVEA.W #0x0,A6>
<MI 253f4 JMP 0x25604>
<POP 253fa-25402 Naked> Σ0 ↓ ←0x25182 ←0x25262 ←0x25268 ←0x25290 ←0x253b8 ←0x253dc
<MI 253fa MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x253fc 0x21ce6> {[4, '(A6-0x6)']}
<POP 25400-25402 StackAdj> Δ+4 {}
<POP 25402-25418 Naked> Σ0 ↓ →0x25132 ←0x25132
<MI 25402 MOVE.L D6,-(A7)> Δ-4 {[4, 'D6']}
<MI 25404 MOVE.L D6,-(A7)> Δ-4 {[4, 'D6']|[4, 'D6']}
<MI 25406 SUB.L D7,(A7)> {[4, 'D6']|[-4-]}
<Call 0x25408 0x2227c> {[4, 'D6']|[-4-]}
<POP 2540c-2540e StackAdj> Δ+8 {}
<MI 2540e MOVE.L D7,0x26832> {}
<MI 25410 TST.B (A6-0xc)> {}
<MI 25414 BEQ 0x25132> {}
<POP 25418-25420 Epilogue> Σ0
@ 25420
START
<POP 25420--0001 Body>
<POP 25420-2542a Prologue> Σ0
<POP 2542a-2545a Naked> Σ0 ↓ →0x254c2
<MI 2542a MOVE.L #0x1,0x2685c> {}
<POP 25434-25436 StackAdj> Δ-4 {[-4-]}
<Call 0x25436 0x103c4> {[-4-]}
GetArgv() : String
<MI 2543c MOVE.L (A7)+,0x26860> Δ+4 {}
<Const 0x25442 0x2683a.4> Δ-4 {[##157754]}
<Call 0x25448 0x21628> {[##157754]}
<POP 2544e-25450 StackAdj> Δ+4 {}
<MI 25450 MOVEA.L 0x26860,A0> {}
<MI 25456 TST.W (A0)> {}
<MI 25458 BLE 0x254c2> {}
<POP 2545a-254c2 Naked> Σ0 →0x254fc
<Blob 0x2545a [8] @> Δ-8 {[«8""»]}
<Blob 0x2546a [8] @> Δ-8 {[«8""»]|[«8""»]}
<POP 2547a-2547c StackAdj> Δ-8 {[«8""»]|[«8""»]|[-8-]}
<Lit 0x2547c 7> {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]}
<POP 2548e-25490 StackAdj> Δ-4 {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]|[-4-]}
<POP 25490-25491 StackAdj> Δ+4 {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]}
<Blob 0x25491 [4] 0x26860> Δ-4 {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]|[«4»]}
<POP 25496-25498 StackAdj> Δ-4 {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]|[«4»]|[-4-]}
<Lit 0x25498 7> {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]|[«4»]|[$$][BYE];]}
<Call 0x254ac 0x102d4> {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]|[«4»]|[$$][BYE];]}
StringCat3(a, b, c : String) : String
<POP 254b2-254b6 StackAdj> Δ+12 {[«8""»]|[«8""»]|[-4-]}
<MI 254b6 MOVE.L (A7)+,0x26860> Δ+4 {[«8""»]|[«8""»]}
<POP 254bc-254c0 StackAdj> Δ+16 {}
<MI 254c0 BRA 0x254fc> {}
<POP 254c2-254fc Naked> Σ0 ↓ ←0x2542a
<Const 0x254c2 0x26860.4> Δ-4 {[##157792]}
<Call 0x254c8 0x102bc> {[##157792]}
FreeString(VAR a : String)
<POP 254ce-254cf StackAdj> Δ+4 ↓ {}
<Blob 0x254cf [8] @> Δ-8 {[«8""»]}
<POP 254de-254e0 StackAdj> Δ-4 {[«8""»]|[-4-]}
<Lit 0x254e0 7> {[«8""»]|[$$[INIT];]}
<MI 254f4 MOVE.L (A7)+,0x26860> Δ+4 {[«8""»]}
<POP 254fa-254fc StackAdj> Δ+8 {}
<POP 254fc-25504 Naked> Σ0 ↓ ←0x2545a
<MI 254fc MOVE.B #0x01,0x2686a> {}
<POP 25504-2550c Naked> Σ0 ↓ →0x25516 ←0x25612
<MI 25504 TST.B 0x2686a> {}
<MI 2550a BEQ 0x25516> {}
<POP 2550c-25516 Naked> Σ0 →0x255c4
<MI 2550c CLR.B 0x2686a> {}
<MI 25512 BRA 0x255c4> {}
<POP 25516-255c4 Naked> Σ0 ↓ ←0x25504
<Blob 0x25516 [10] 0x26844> Δ-10 {[«10»]}
<Blob 0x25524 [2] @> Δ-2 {[«10»]|[«2""»]}
<POP 25528-2552c StackAdj> Δ-12 {[«10»]|[«2""»]|[-12-]}
<Lit 0x2552c> {[«10»]|[«2""»]|[-8-]|[$$…]}
<Pointer.sp 0x2552c 14> Δ-4
<Const 0x25530 0x1.2> Δ-2
<Const 0x25534 0xa.2> Δ-2
<Call 0x25538 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 2553e-25540 StackAdj> Δ+8
<POP 2553e-25540 StackAdj> Δ-4 {[«10»]|[«2""»]|[-8-]|[$$…]|[-4-]}
<Lit 0x25540 2> {[«10»]|[«2""»]|[-8-]|[$$…]|[$$>_]}
<Call 0x25554 0x102d0> {[«10»]|[«2""»]|[-8-]|[$$…]|[$$>_]}
StringCat2(a, b : String) : String
<POP 2555a-2555c StackAdj> Δ+8 {[«10»]|[«2""»]|[-8-]}
<Call 0x2555c 0x103e4> {[«10»]|[«2""»]|[-8-]}
AskConsoleString(prompt : String) : String
<POP 25562-25564 StackAdj> Δ+4 {[«10»]|[«2""»]|[-4-]}
<MI 25564 MOVE.L (A7)+,0x26866> Δ+4 {[«10»]|[«2""»]}
<POP 2556a-2556c StackAdj> Δ+8 {[-4-]}
<POP 2556c-2556d StackAdj> Δ+4 {}
<Blob 0x2556d [4] 0x26866> Δ-4 {[«4»]}
<Call 0x25572 0x21f80> {[«4»]}
<POP 25576-25578 StackAdj> Δ+2 {[-2-]}
<POP 25578-25579 StackAdj> Δ+2 {}
<Blob 0x25579 [2] @> Δ-2 {[«2""»]}
<Blob 0x2557c [2] @> Δ-2 {[«2""»]|[«2""»]}
<POP 25580-25582 StackAdj> Δ-8 {[«2""»]|[«2""»]|[-8-]}
<Lit 0x25582 2> {[«2""»]|[«2""»]|[-4-]|[$$[ ]}
<POP 25594-25596 StackAdj> Δ-4 {[«2""»]|[«2""»]|[-4-]|[$$[ ]|[-4-]}
<POP 25596-25597 StackAdj> Δ+4 {[«2""»]|[«2""»]|[-4-]|[$$[ ]}
<Blob 0x25597 [4] 0x26866> Δ-4 {[«2""»]|[«2""»]|[-4-]|[$$[ ]|[«4»]}
<POP 2559c-2559e StackAdj> Δ-4 {[«2""»]|[«2""»]|[-4-]|[$$[ ]|[«4»]|[-4-]}
<Lit 0x2559e 2> {[«2""»]|[«2""»]|[-4-]|[$$[ ]|[«4»]|[$$];]}
<Call 0x255b2 0x102d4> {[«2""»]|[«2""»]|[-4-]|[$$[ ]|[«4»]|[$$];]}
StringCat3(a, b, c : String) : String
<POP 255b8-255bc StackAdj> Δ+12 {[«2""»]|[«2""»]|[-4-]}
<MI 255bc MOVE.L (A7)+,0x26860> Δ+4 {[«2""»]|[«2""»]}
<POP 255c2-255c4 StackAdj> Δ+4 {}
<POP 255c4-255f0 Naked> Σ0 ↓ ←0x2550c
<MI 255c4 CLR.B 0x26864> {}
<MI 255ca MOVE.L #0x1,0x26832> {}
<MI 255d4 CLR.L 0x26836> {}
<POP 255da-255dc StackAdj> Δ-4 {[-4-]}
<Blob 0x255dc [4] 0x26860> Δ-4 {[-4-]|[«4»]}
<Call 0x255e2 0x102cc> {[-4-]|[«4»]}
StringDup(a : String) : String
<POP 255e8-255ea StackAdj> Δ+4 {[-4-]}
<Call 0x255ea 0x22af2> {[-4-]}
<POP 255ee-255f0 StackAdj> Δ+4 {}
<POP 255f0-255fe Naked> Σ0 ↓ →0x25604 ←0x255fe
<MI 255f0 MOVE.L 0x26832,D0> {}
<MI 255f6 CMP.L 0x26836,D0> {}
<MI 255fc BGT 0x25604> {}
<POP 255fe-25604 Naked> Σ0 →0x255f0
<Call 0x255fe 0x2510e> {}
<MI 25602 BRA 0x255f0> {}
<POP 25604-25612 Naked> Σ0 ↓ ←0x255f0
<Const 0x25604 0x26860.4> Δ-4 {[##157792]}
<Call 0x2560a 0x102bc> {[##157792]}
FreeString(VAR a : String)
<POP 25610-25612 StackAdj> Δ+4 {}
<POP 25612-25616 Naked> Σ0 →0x25504
<MI 25612 BRA 0x25504> {}
@ 2562a
PROG_FAIL
<LVAR 0x008 1(r)>
<POP 2562a-25692 Body>
<POP 2562a-25640 Prologue> Σ0 ↓
<POP 25640-2568a Naked> Σ0 ↓
<Blob 0x25640 [14] @> Δ-14 {[«14""»]}
<Const 0x2564c 0x3.2> Δ-2 {[«14""»]|[#3]}
<POP 25650-25652 StackAdj> Δ-8 {[«14""»]|[#3]|[-8-]}
<Lit 0x25652 14> {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
<POP 25664-25666 StackAdj> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 25666 MOVE.B (A6+0x8),D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 2566a EXTB.W D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 2566c EXTW.L D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 2566e MOVE.L D0,-(A7)> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
<Call 0x25670 0x102e4> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 25676-25678 StackAdj> Δ+4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<Call 0x25678 0x102d0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 2567e-25680 StackAdj> Δ+8 {[«14""»]|[#3]|[-4-]}
<Call 0x25680 0x103b8> {[«14""»]|[#3]|[-4-]}
PopProgram(status : Byte; msg : String)
<POP 25686-2568a StackAdj> Δ+20 {}
<POP 2568a-25692 Epilogue> Σ0
@ 256e6
EXP_FAIL
<LVAR 0x00e 1(r)>
<LVAR 0x00a 4(r)>
<LVAR 0x008 1(r)>
<POP 256e6-25822 Body>
<POP 256e6-256fc Prologue> Σ0 ↓
<POP 256fc-25712 RegCacheLoad> Σ0 ↓
<POP 25712-25772 Naked> Σ0 ↓ →0x257ba
<Call 0x25712 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x25718 [18] @> Δ-18 {[«18""»]}
<POP 25724-25726 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x25726 18> {[«18""»]|[$$Experiment error :]}
<Call 0x25732 0x103e0> {[«18""»]|[$$Experiment error :]}
WriteConsoleStringCrLf(str : String)
<POP 25734-25735 StackAdj> Δ+22 ↓ {}
<Blob 0x25735 [14] @> Δ-14 {[«14""»]}
<POP 25744-25746 StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x25746 13> {[«14""»]|[-4-]|[$$Board :_]}
<POP 25750-25752 StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<MI 25752 MOVE.B (A6+0xe),(A7)> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<Call 0x25756 0x1049c> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
BoardName(address : B) : String
<POP 2575c-2575e StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
<Call 0x2575e 0x102d0> {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 25764-25766 StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x25766 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 25768-2576a StackAdj> Δ+18 {}
<MI 2576a MOVEA.L (A6+0xa),A0> {}
<MI 2576e CMPA.W #0x01,A0> {}
<MI 25770 BEQ 0x257ba> {}
<POP 25772-257ba Naked> Σ0 ↓
<Blob 0x25772 [14] @> Δ-14 {[«14""»]}
<Blob 0x25782 [30] (A0+0xfc)> Δ-30 {[«14""»]|[«30»]}
<POP 25792-25794 StackAdj> Δ-8 {[«14""»]|[«30»]|[-8-]}
<Lit 0x25794 13> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
<POP 2579e-257a0 StackAdj> Δ-4 {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
<Lit 0x257a0> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
<Pointer.sp 0x257a0 12> Δ-4
<Const 0x257a4 0x1.2> Δ-2
<Const 0x257a6 0x1e.2> Δ-2
<Call 0x257a8 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 257aa-257ac StackAdj> Δ+8
<Call 0x257ac 0x102d0> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
StringCat2(a, b : String) : String
<POP 257b2-257b4 StackAdj> Δ+8 {[«14""»]|[«30»]|[-4-]}
<Call 0x257b4 0x103e0> {[«14""»]|[«30»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 257b6-257ba StackAdj> Δ+48 {}
<POP 257ba-2581a Naked> Σ0 ↓ ←0x25712
<Blob 0x257ba [14] @> Δ-14 {[«14""»]}
<POP 257ca-257cc StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x257cc 13> {[«14""»]|[-4-]|[$$Status :_]}
<POP 257d6-257d8 StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<MI 257d8 MOVE.B (A6+0x8),(A7)> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<Call 0x257dc 0x104a2> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
ExpStatus2Text(status.B, &String)
<POP 257e2-257e4 StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
<Call 0x257e4 0x102d0> {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 257ea-257ec StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x257ec 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 257ee-257ef StackAdj> Δ+18 ↓ {}
<Blob 0x257ef [24] @> Δ-24 {[«24""»]}
<Const 0x257fe 0x2.2> Δ-2 {[«24""»]|[#2]}
<POP 25802-25804 StackAdj> Δ-4 {[«24""»]|[#2]|[-4-]}
<Lit 0x25804 23> {[«24""»]|[#2]|[$$Fatal experiment error.]}
<Call 0x25812 0x103b8> {[«24""»]|[#2]|[$$Fatal experiment error.]}
PopProgram(status : Byte; msg : String)
<POP 25818-2581a StackAdj> Δ+30 {}
<POP 2581a-25822 Epilogue> Σ0
00020000 ; -------------------------------------------------------------------------------------- 00020000 ; R1000.Disassembly modules: 00020000 ; import all 00020000 ; import kind.program 00020000 ; no ident.1a5a94ecd93db3c8 00020000 ; -------------------------------------------------------------------------------------- 00020000 stack.top: 00020000 00 04 00 00 | | .CODE 0x40000 ; STACK.END 00020004 00 02 54 20 | T | .CODE START 00020008 00 01 02 88 | | .CODE FSCALL_10288 0002000c heap.top: 0002000c 00 02 68 7e | h~ | .PTR 0x2687e 00020010 code.end: 00020010 00 02 58 22 | X" | .PTR 0x25822 00020014 00 00 00 00 | | .CONST 0x00000000 00020018 programfailurehandler: 00020018 00 02 56 2a | V* | .CODE PROG_FAIL 0002001c experimentfailurehandler: 0002001c 00 02 56 e6 | V | .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 43 4f 50 59 20 20 20 20 |COPY | .TXT 'COPY ' 00020114 44 20 |D | .TXT 'D ' 00020116 56 20 |V | .TXT 'V ' 00020118 43 20 |C | .TXT 'C ' 0002011a 44 65 6c 65 74 69 6e 67 |Deleting| .TXT 'Deleting -> ' 00020126 52 45 4e 41 4d 45 20 20 |RENAME | .TXT 'RENAME ' 00020130 44 20 |D | .TXT 'D ' 00020132 41 6c 72 65 61 64 79 20 |Already | .TXT 'Already in REMOTE mode' 00020148 46 49 |FI | .TXT 'FI' 0002014a 58 50 |XP | .TXT 'XP' 0002014c 41 44 |AD | .TXT 'AD' 0002014e 46 49 58 4d |FIXM | .TXT 'FIXM' 00020152 4f 44 45 4d |ODEM | .TXT 'ODEM' 00020156 41 6c 72 65 61 64 79 20 |Already | .TXT 'Already in LOCAL mode ' 0002016c 54 59 50 45 20 20 20 20 |TYPE | .TXT 'TYPE ' 00020176 56 20 |V | .TXT 'V ' 00020178 43 52 45 41 54 45 20 20 |CREATE | .TXT 'CREATE ' 00020182 53 49 5a 45 |SIZE | .TXT 'SIZE' 00020186 2f 53 49 5a 45 3d 20 72 |/SIZE= r| .TXT '/SIZE= requires decimal argument' 000201a6 43 4f 4e 54 49 47 55 4f |CONTIGUO| .TXT 'CONTIGUOUS' 000201b0 44 20 |D | .TXT 'D ' 000201b2 49 20 |I | .TXT 'I ' 000201b4 29 20 |) | .TXT ') ' 000201b6 42 61 64 20 66 6f 72 6d |Bad form| .TXT 'Bad format. Try HH:MM:SS DD-MMM-YY ' 000201da 46 41 4c 53 45 20 |FALSE | .XXX[0x6] 000201e0 54 52 55 45 5f 20 |TRUE_ | .XXX[0x6] 000201e6 20 20 20 20 20 20 20 20 | | .TXT ' PERMANENT =>_ ' 000201fe 2c 20 45 58 |, EX | .TXT ', EX' 00020202 45 43 55 54 |ECUT | .TXT 'ECUT' 00020206 41 42 4c 45 |ABLE | .TXT 'ABLE' 0002020a 20 3d 3e 5f | =>_ | .TXT ' =>_' 0002020e 2c 20 4b 45 |, KE | .TXT ', KE' 00020212 52 4e 45 4c |RNEL | .TXT 'RNEL' 00020216 20 3d 3e 5f | =>_ | .TXT ' =>_' 0002021a 20 20 20 20 20 20 20 20 | | .TXT ' File pages_ ' 00020230 20 2e 2e 5f | .._ | .TXT ' .._' 00020234 20 61 72 65 20 61 74 20 | are at | .TXT ' are at disk block_ ' 00020248 46 55 4c 4c |FULL | .TXT 'FULL' 0002024c 54 6f 74 61 6c 20 6f 66 |Total of| .TXT 'Total of_ ' 00020256 20 50 61 67 65 73 20 69 | Pages i| .TXT ' Pages in_' 00020260 20 46 69 6c 65 73 2e 20 | Files. | .TXT ' Files. ' 00020268 42 61 64 20 63 6f 6d 6d |Bad comm| .TXT 'Bad command format, try "PRINTER ON <line-number>" or "PRINTER OFF" ' 000202ac 43 6f 6d 6d 75 6e 69 63 |Communic| .TXT 'Communications line does not exist' 000202ce 4f 4e |ON | .TXT 'ON' 000202d0 4f 46 |OF | .TXT 'OF' 000202d2 46 20 54 49 4d 45 |F TIME | .XXX[0x6] 000202d8 20 20 20 20 20 20 44 49 | DI| .XXX[0xd8] 000202e0 52 45 43 54 4f 52 59 20 |RECTORY | 000202e8 43 4f 50 59 20 20 20 20 |COPY | 000202f0 20 20 44 45 4c 45 54 45 | DELETE| 000202f8 20 20 20 20 54 59 50 45 | TYPE| 00020300 20 20 20 20 20 20 43 52 | CR| 00020308 45 41 54 45 20 20 20 20 |EATE | 00020310 52 45 4e 41 4d 45 20 20 |RENAME | 00020318 20 20 52 45 4d 4f 54 45 | REMOTE| 00020320 20 20 20 20 4c 4f 43 41 | LOCA| 00020328 4c 20 20 20 20 20 50 52 |L PR| 00020330 49 4e 54 45 52 20 20 20 |INTER | 00020338 43 4c 49 20 20 20 20 20 |CLI | 00020340 20 20 46 41 4c 53 45 54 | FALSET| 00020348 52 55 45 5f 54 49 4d 45 |RUE_TIME| 00020350 20 20 20 20 20 20 44 49 | DI| 00020358 52 45 43 54 4f 52 59 20 |RECTORY | 00020360 43 4f 50 59 20 20 20 20 |COPY | 00020368 20 20 44 45 4c 45 54 45 | DELETE| 00020370 20 20 20 20 54 59 50 45 | TYPE| 00020378 20 20 20 20 20 20 43 52 | CR| 00020380 45 41 54 45 20 20 20 20 |EATE | 00020388 52 45 4e 41 4d 45 20 20 |RENAME | 00020390 20 20 52 45 4d 4f 54 45 | REMOTE| 00020398 20 20 20 20 4c 4f 43 41 | LOCA| 000203a0 4c 20 20 20 20 20 50 52 |L PR| 000203a8 49 4e 54 45 52 20 20 20 |INTER | 000203b0 ; -------------------------------------------------------------------------------------- 000203b0 ; OMSI PASCAL Function 000203b0 ; <LVAR 0x010 1(w)> 000203b0 ; <LVAR 0x00c 4(r)> 000203b0 ; <LVAR 0x008 @ 4(r)> 000203b0 ; <LVAR -0x006 @ 4(r)> 000203b0 ; <LVAR -0x008 @ 1(r)> 000203b0 ; -------------------------------------------------------------------------------------- 000203b0 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 000203b4 bf d5 | | CMPA.L (A5),A7 000203b6 62 06 |b | BHI 0x203be 000203b8 44 fc 00 02 |D | MOVE.W #0x2,CCR 000203bc 4e 76 |Nv | TRAPV 000203be de fc 00 20 | | ADDA.W #0x20,A7 000203c2 48 e7 00 c0 |H | MOVEM.L A1+A0,-(A7) 000203c6 43 ee ff fa |C | LEA.L (A6-0x6),A1 000203ca 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 000203ce 48 78 00 00 |Hx | PEA.L 0x0 000203d2 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000203d6 48 51 |HQ | PEA.L (A1) 000203d8 48 6e ff f8 |Hn | PEA.L (A6-0x8) 000203dc 4e b9 00 02 4f 88 |N O | JSR 0x24f88 000203e2 de fc 00 14 | | ADDA.W #0x14,A7 000203e6 48 6e 00 08 |Hn | PEA.L (A6+0x8) 000203ea 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000203f0 58 4f |XO | ADDQ.L #0x4,A7 000203f2 20 51 | Q | MOVEA.L (A1),A0 000203f4 b0 fc 00 01 | | CMPA.W #0x1,A0 000203f8 67 0a |g | BEQ 0x20404 000203fa 48 51 |HQ | PEA.L (A1) 000203fc 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00020402 58 4f |XO | ADDQ.L #0x4,A7 00020404 1d 6e ff f8 00 10 | n | MOVE.B (A6-0x8),(A6+0x10) 0002040a 4c df 03 00 |L | MOVEM.L (A7)+,A0+A1 0002040e 4e 5e |N^ | UNLK A6 00020410 4e 75 |Nu | RTS 00020412 ; -------------------------------------------------------------------------------------- 00020412 ; OMSI PASCAL Function 00020412 ; <LVAR 0x008 4(r)> 00020412 ; <LVAR -0x004 @ 1(r)> 00020412 ; <LVAR -0x008 @> 00020412 ; -------------------------------------------------------------------------------------- 00020412 4e 56 ff dc |NV | LINK.W A6,#0xffdc 00020416 bf d5 | | CMPA.L (A5),A7 00020418 62 06 |b | BHI 0x20420 0002041a 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002041e 4e 76 |Nv | TRAPV 00020420 de fc 00 1c | | ADDA.W #0x1c,A7 00020424 48 e7 00 80 |H | MOVEM.L A0,-(A7) 00020428 41 ee ff fc |A | LEA.L (A6-0x4),A0 0002042c 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00020430 42 27 |B' | CLR.B -(A7) 00020432 42 27 |B' | CLR.B -(A7) 00020434 48 78 00 00 |Hx | PEA.L 0x0 00020438 48 50 |HP | PEA.L (A0) 0002043a 48 6e ff f8 |Hn | PEA.L (A6-0x8) 0002043e 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File) 00020444 de fc 00 14 | | ADDA.W #0x14,A7 00020448 4a 10 |J | TST.B (A0) 0002044a 66 1c |f | BNE 0x20468 0002044c 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 00020450 1f 3c 00 01 | < | MOVE.B #0x01,-(A7) 00020454 48 78 00 01 |Hx | PEA.L 0x1 00020458 48 50 |HP | PEA.L (A0) 0002045a 48 6e ff f8 |Hn | PEA.L (A6-0x8) 0002045e 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File) 00020464 de fc 00 10 | | ADDA.W #0x10,A7 00020468 4c df 01 00 |L | MOVEM.L (A7)+,A0 0002046c 4e 5e |N^ | UNLK A6 0002046e 4e 75 |Nu | RTS 00020470 ; -------------------------------------------------------------------------------------- 00020470 ; OMSI PASCAL Function 00020470 ; <LVAR 0x008 4(r)> 00020470 ; <LVAR -0x004 @ 1(r)> 00020470 ; <LVAR -0x404 @> 00020470 ; <LVAR -0x410 @ 4(r)> 00020470 ; <LVAR -0x414 @ 4(r)> 00020470 ; <LVAR -0x418 @ 4(rw)> 00020470 ; <LVAR -0x41c @ 4(rw)> 00020470 ; -------------------------------------------------------------------------------------- 00020470 4e 56 fb 8c |NV | LINK.W A6,#0xfb8c 00020474 bf d5 | | CMPA.L (A5),A7 00020476 62 06 |b | BHI 0x2047e 00020478 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002047c 4e 76 |Nv | TRAPV 0002047e de fc 00 58 | X | ADDA.W #0x58,A7 00020482 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00020486 45 ee ff fc |E | LEA.L (A6-0x4),A2 0002048a 47 ee fb ec |G | LEA.L (A6-0x414),A3 0002048e 49 ee 00 08 |I | LEA.L (A6+0x8),A4 00020492 72 01 |r | MOVEQ.L #0x01,D1 00020494 74 14 |t | MOVEQ.L #0x14,D2 00020496 76 02 |v | MOVEQ.L #0x02,D3 00020498 78 10 |x | MOVEQ.L #0x10,D4 0002049a 41 ee fb fc |A | LEA.L (A6-0x404),A0 0002049e 2f 08 |/ | MOVE.L A0,-(A7) 000204a0 2a 1f |* | MOVE.L (A7)+,D5 000204a2 41 fa fc 70 |A p | LEA.L 0x20114,A0 000204a6 70 04 |p | MOVEQ.L #0x04,D0 000204a8 3f 20 |? | MOVE.W -(A0),-(A7) 000204aa 51 c8 ff fc |Q | DBF D0,0x204a8 000204ae 2f 14 |/ | MOVE.L (A4),-(A7) 000204b0 48 78 00 02 |Hx | PEA.L 0x2 000204b4 4e b9 00 02 21 6a |N !j | JSR 0x2216a 000204ba de fc 00 0a | | ADDA.W #0xa,A7 000204be 2e 94 |. | MOVE.L (A4),(A7) 000204c0 48 78 00 01 |Hx | PEA.L 0x1 000204c4 4e b9 00 02 2a 50 |N *P | JSR 0x22a50 000204ca 50 4f |PO | ADDQ.L #0x8,A7 000204cc 2d 57 fb e4 |-W | MOVE.L (A7),(A6-0x41c) 000204d0 2f 14 |/ | MOVE.L (A4),-(A7) 000204d2 48 78 00 02 |Hx | PEA.L 0x2 000204d6 4e b9 00 02 2a 50 |N *P | JSR 0x22a50 000204dc 50 4f |PO | ADDQ.L #0x8,A7 000204de 2d 5f fb e8 |-_ | MOVE.L (A7)+,(A6-0x418) 000204e2 3f 3a fc 30 |?: 0 | MOVE.W 0x20114,-(A7) 000204e6 55 4f |UO | SUBQ.L #0x2,A7 000204e8 2f 14 |/ | MOVE.L (A4),-(A7) 000204ea 59 4f |YO | SUBQ.L #0x4,A7 000204ec 48 6f 00 0a |Ho | PEA.L (A7+0xa) 000204f0 3f 01 |? | MOVE.W D1,-(A7) 000204f2 3f 03 |? | MOVE.W D3,-(A7) 000204f4 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000204fa 50 4f |PO | ADDQ.L #0x8,A7 000204fc 4e ba fe b2 |N | JSR 0x203b0 00020500 50 4f |PO | ADDQ.L #0x8,A7 00020502 4a 1f |J | TST.B (A7)+ 00020504 67 04 |g | BEQ 0x2050a 00020506 7c 01 || | MOVEQ.L #0x01,D6 00020508 60 02 |` | BRA 0x2050c 0002050a 7c 02 || | MOVEQ.L #0x02,D6 0002050c 54 4f |TO | ADDQ.L #0x2,A7 0002050e 2f 2e fb e4 |/. | MOVE.L (A6-0x41c),-(A7) 00020512 42 27 |B' | CLR.B -(A7) 00020514 1f 01 | | MOVE.B D1,-(A7) 00020516 48 78 00 00 |Hx | PEA.L 0x0 0002051a 48 52 |HR | PEA.L (A2) 0002051c 48 53 |HS | PEA.L (A3) 0002051e 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File) 00020524 de c2 | | ADDA.W D2,A7 00020526 4a 12 |J | TST.B (A2) 00020528 67 04 |g | BEQ 0x2052e 0002052a 60 00 01 0a |` | BRA 0x20636 0002052e 2f 2e fb e8 |/. | MOVE.L (A6-0x418),-(A7) 00020532 10 06 | | MOVE.B D6,D0 00020534 48 80 |H | EXTB.W D0 00020536 41 83 |A | CHK.W D3,D0 00020538 1f 00 | | MOVE.B D0,-(A7) 0002053a 1f 01 | | MOVE.B D1,-(A7) 0002053c 20 53 | S | MOVEA.L (A3),A0 0002053e 30 28 00 20 |0( | MOVE.W (A0+0x20),D0 00020542 48 c0 |H | EXTW.L D0 00020544 2f 00 |/ | MOVE.L D0,-(A7) 00020546 48 52 |HR | PEA.L (A2) 00020548 48 6e fb f0 |Hn | PEA.L (A6-0x410) 0002054c 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File) 00020552 de c2 | | ADDA.W D2,A7 00020554 4a 12 |J | TST.B (A2) 00020556 67 04 |g | BEQ 0x2055c 00020558 60 00 00 c8 |` | BRA 0x20622 0002055c 20 6e fb f0 | n | MOVEA.L (A6-0x410),A0 00020560 22 53 |"S | MOVEA.L (A3),A1 00020562 11 69 00 3a 00 3a | i : : | MOVE.B (A1+0x3a),(A0+0x3a) 00020568 11 69 00 3b 00 3b | i ; ; | MOVE.B (A1+0x3b),(A0+0x3b) 0002056e 11 69 00 3c 00 3c | i < < | MOVE.B (A1+0x3c),(A0+0x3c) 00020574 11 69 00 3d 00 3d | i = = | MOVE.B (A1+0x3d),(A0+0x3d) 0002057a 10 29 00 3f | ) ? | MOVE.B (A1+0x3f),D0 0002057e 02 28 00 fd 00 3f | ( ? | ANDI.B #0xfd,(A0+0x3f) 00020584 c0 03 | | AND.B D3,D0 00020586 81 28 00 3f | ( ? | OR.B D0,(A0+0x3f) 0002058a 10 29 00 3f | ) ? | MOVE.B (A1+0x3f),D0 0002058e 02 28 00 fb 00 3f | ( ? | ANDI.B #0xfb,(A0+0x3f) 00020594 02 00 00 04 | | ANDI.B #0x04,D0 00020598 81 28 00 3f | ( ? | OR.B D0,(A0+0x3f) 0002059c 11 41 00 4c | A L | MOVE.B D1,(A0+0x4c) 000205a0 30 28 00 20 |0( | MOVE.W (A0+0x20),D0 000205a4 53 40 |S@ | SUBQ.W #0x1,D0 000205a6 48 c0 |H | EXTW.L D0 000205a8 2f 00 |/ | MOVE.L D0,-(A7) 000205aa 7e 00 |~ | MOVEQ.L #0x00,D7 000205ac be 97 | | CMP.L (A7),D7 000205ae 6e 5a |nZ | BGT 0x2060a 000205b0 2f 13 |/ | MOVE.L (A3),-(A7) 000205b2 0c 87 00 00 40 00 | @ | CMPI.L #0x00004000,D7 000205b8 63 02 |c | BLS 0x205bc 000205ba 4e 4f |NO | TRAP #15 000205bc 3f 07 |? | MOVE.W D7,-(A7) 000205be 42 67 |Bg | CLR.W -(A7) 000205c0 3f 3c 02 00 |?< | MOVE.W #0x200,-(A7) 000205c4 1f 01 | | MOVE.B D1,-(A7) 000205c6 2f 05 |/ | MOVE.L D5,-(A7) 000205c8 48 52 |HR | PEA.L (A2) 000205ca 4e b9 00 01 03 84 |N | JSR ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L) 000205d0 de c2 | | ADDA.W D2,A7 000205d2 4a 12 |J | TST.B (A2) 000205d4 67 04 |g | BEQ 0x205da 000205d6 58 4f |XO | ADDQ.L #0x4,A7 000205d8 60 32 |`2 | BRA 0x2060c 000205da 2f 2e fb f0 |/. | MOVE.L (A6-0x410),-(A7) 000205de 0c 87 00 00 40 00 | @ | CMPI.L #0x00004000,D7 000205e4 63 02 |c | BLS 0x205e8 000205e6 4e 4f |NO | TRAP #15 000205e8 3f 07 |? | MOVE.W D7,-(A7) 000205ea 42 67 |Bg | CLR.W -(A7) 000205ec 3f 3c 02 00 |?< | MOVE.W #0x200,-(A7) 000205f0 1f 01 | | MOVE.B D1,-(A7) 000205f2 2f 05 |/ | MOVE.L D5,-(A7) 000205f4 48 52 |HR | PEA.L (A2) 000205f6 4e b9 00 01 03 88 |N | JSR WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L) 000205fc de c2 | | ADDA.W D2,A7 000205fe 4a 12 |J | TST.B (A2) 00020600 67 04 |g | BEQ 0x20606 00020602 58 4f |XO | ADDQ.L #0x4,A7 00020604 60 06 |` | BRA 0x2060c 00020606 52 87 |R | ADDQ.L #0x1,D7 00020608 68 a2 |h | BVC 0x205ac 0002060a 58 4f |XO | ADDQ.L #0x4,A7 0002060c 42 27 |B' | CLR.B -(A7) 0002060e 1f 01 | | MOVE.B D1,-(A7) 00020610 48 78 00 01 |Hx | PEA.L 0x1 00020614 48 52 |HR | PEA.L (A2) 00020616 48 6e fb f0 |Hn | PEA.L (A6-0x410) 0002061a 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File) 00020620 de c4 | | ADDA.W D4,A7 00020622 42 27 |B' | CLR.B -(A7) 00020624 1f 01 | | MOVE.B D1,-(A7) 00020626 48 78 00 01 |Hx | PEA.L 0x1 0002062a 48 52 |HR | PEA.L (A2) 0002062c 48 53 |HS | PEA.L (A3) 0002062e 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File) 00020634 de c4 | | ADDA.W D4,A7 00020636 48 6e fb e4 |Hn | PEA.L (A6-0x41c) 0002063a 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00020640 58 4f |XO | ADDQ.L #0x4,A7 00020642 48 6e fb e8 |Hn | PEA.L (A6-0x418) 00020646 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 0002064c 58 4f |XO | ADDQ.L #0x4,A7 0002064e 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00020652 4e 5e |N^ | UNLK A6 00020654 4e 75 |Nu | RTS 00020656 ; -------------------------------------------------------------------------------------- 00020656 ; OMSI PASCAL Function 00020656 ; <LVAR 0x008 4(r)> 00020656 ; <LVAR -0x00a 1(rw)> 00020656 ; <LVAR -0x00c @ 1(r)> 00020656 ; <LVAR -0x010 @ 4(r)> 00020656 ; -------------------------------------------------------------------------------------- 00020656 4e 56 ff 6a |NV j | LINK.W A6,#0xff6a 0002065a bf d5 | | CMPA.L (A5),A7 0002065c 62 06 |b | BHI 0x20664 0002065e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020662 4e 76 |Nv | TRAPV 00020664 de fc 00 82 | | ADDA.W #0x82,A7 00020668 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 0002066c 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 00020672 47 ee 00 08 |G | LEA.L (A6+0x8),A3 00020676 72 01 |r | MOVEQ.L #0x01,D1 00020678 74 1e |t | MOVEQ.L #0x1e,D2 0002067a 76 02 |v | MOVEQ.L #0x02,D3 0002067c 78 0a |x | MOVEQ.L #0x0a,D4 0002067e 3f 3a fa 96 |?: | MOVE.W 0x20116,-(A7) 00020682 55 4f |UO | SUBQ.L #0x2,A7 00020684 2f 13 |/ | MOVE.L (A3),-(A7) 00020686 59 4f |YO | SUBQ.L #0x4,A7 00020688 48 6f 00 0a |Ho | PEA.L (A7+0xa) 0002068c 3f 01 |? | MOVE.W D1,-(A7) 0002068e 3f 03 |? | MOVE.W D3,-(A7) 00020690 4e 92 |N | JSR (A2) 00020692 50 4f |PO | ADDQ.L #0x8,A7 00020694 4e ba fd 1a |N | JSR 0x203b0 00020698 50 4f |PO | ADDQ.L #0x8,A7 0002069a 10 1f | | MOVE.B (A7)+,D0 0002069c 48 80 |H | EXTB.W D0 0002069e 41 81 |A | CHK.W D1,D0 000206a0 54 4f |TO | ADDQ.L #0x2,A7 000206a2 1a 00 | | MOVE.B D0,D5 000206a4 3f 3a fa 72 |?: r | MOVE.W 0x20118,-(A7) 000206a8 55 4f |UO | SUBQ.L #0x2,A7 000206aa 2f 13 |/ | MOVE.L (A3),-(A7) 000206ac 59 4f |YO | SUBQ.L #0x4,A7 000206ae 48 6f 00 0a |Ho | PEA.L (A7+0xa) 000206b2 3f 01 |? | MOVE.W D1,-(A7) 000206b4 3f 03 |? | MOVE.W D3,-(A7) 000206b6 4e 92 |N | JSR (A2) 000206b8 50 4f |PO | ADDQ.L #0x8,A7 000206ba 4e ba fc f4 |N | JSR 0x203b0 000206be 50 4f |PO | ADDQ.L #0x8,A7 000206c0 10 1f | | MOVE.B (A7)+,D0 000206c2 48 80 |H | EXTB.W D0 000206c4 41 81 |A | CHK.W D1,D0 000206c6 54 4f |TO | ADDQ.L #0x2,A7 000206c8 1d 40 ff f6 | @ | MOVE.B D0,(A6-0xa) 000206cc 59 4f |YO | SUBQ.L #0x4,A7 000206ce 2f 13 |/ | MOVE.L (A3),-(A7) 000206d0 4e b9 00 02 21 34 |N !4 | JSR 0x22134 000206d6 58 4f |XO | ADDQ.L #0x4,A7 000206d8 7c 01 || | MOVEQ.L #0x01,D6 000206da bc 97 | | CMP.L (A7),D6 000206dc 6e 00 01 02 |n | BGT 0x207e0 000206e0 59 4f |YO | SUBQ.L #0x4,A7 000206e2 2f 13 |/ | MOVE.L (A3),-(A7) 000206e4 2f 06 |/ | MOVE.L D6,-(A7) 000206e6 4e b9 00 02 2a 50 |N *P | JSR 0x22a50 000206ec 50 4f |PO | ADDQ.L #0x8,A7 000206ee 28 5f |(_ | MOVEA.L (A7)+,A4 000206f0 1f 01 | | MOVE.B D1,-(A7) 000206f2 2f 0c |/ | MOVE.L A4,-(A7) 000206f4 48 6e ff f0 |Hn | PEA.L (A6-0x10) 000206f8 4e b9 00 01 04 58 |N X | JSR DirFirst(MOD c : Bool; a : String; VAR b : File) 000206fe de c4 | | ADDA.W D4,A7 00020700 20 6e ff f0 | n | MOVEA.L (A6-0x10),A0 00020704 2f 08 |/ | MOVE.L A0,-(A7) 00020706 b0 c1 | | CMPA.W D1,A0 00020708 67 00 00 ce |g | BEQ 0x207d8 0002070c 4a 2e ff f6 |J. | TST.B (A6-0xa) 00020710 66 04 |f | BNE 0x20716 00020712 7e 01 |~ | MOVEQ.L #0x01,D7 00020714 60 2e |`. | BRA 0x20744 00020716 9e c2 | | SUBA.W D2,A7 00020718 22 4f |"O | MOVEA.L A7,A1 0002071a 70 1d |p | MOVEQ.L #0x1d,D0 0002071c 12 d8 | | MOVE.B (A0)+,(A1)+ 0002071e 51 c8 ff fc |Q | DBF D0,0x2071c 00020722 5d 4f |]O | SUBQ.L #0x6,A7 00020724 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00020728 3f 01 |? | MOVE.W D1,-(A7) 0002072a 3f 02 |? | MOVE.W D2,-(A7) 0002072c 4e 92 |N | JSR (A2) 0002072e 5c 4f |\O | ADDQ.L #0x6,A7 00020730 42 17 |B | CLR.B (A7) 00020732 4e b9 00 01 03 f0 |N | JSR AskOnConsoleYesNo(prompt : String; default : Bool) : Bool 00020738 5c 4f |\O | ADDQ.L #0x6,A7 0002073a 10 1f | | MOVE.B (A7)+,D0 0002073c 48 80 |H | EXTB.W D0 0002073e 41 81 |A | CHK.W D1,D0 00020740 de c2 | | ADDA.W D2,A7 00020742 1e 00 | | MOVE.B D0,D7 00020744 4a 07 |J | TST.B D7 00020746 67 78 |gx | BEQ 0x207c0 00020748 4a 05 |J | TST.B D5 0002074a 67 50 |gP | BEQ 0x2079c 0002074c 9e fc 00 0c | | SUBA.W #0xc,A7 00020750 20 4f | O | MOVEA.L A7,A0 00020752 43 fa f9 c6 |C | LEA.L 0x2011a,A1 00020756 70 0a |p | MOVEQ.L #0x0a,D0 00020758 10 d9 | | MOVE.B (A1)+,(A0)+ 0002075a 51 c8 ff fc |Q | DBF D0,0x20758 0002075e 20 6f 00 0c | o | MOVEA.L (A7+0xc),A0 00020762 9e c2 | | SUBA.W D2,A7 00020764 22 4f |"O | MOVEA.L A7,A1 00020766 70 1d |p | MOVEQ.L #0x1d,D0 00020768 12 d8 | | MOVE.B (A0)+,(A1)+ 0002076a 51 c8 ff fc |Q | DBF D0,0x20768 0002076e 51 4f |QO | SUBQ.L #0x8,A7 00020770 48 6f 00 26 |Ho & | PEA.L (A7+0x26) 00020774 3f 01 |? | MOVE.W D1,-(A7) 00020776 3f 3c 00 0b |?< | MOVE.W #0xb,-(A7) 0002077a 4e 92 |N | JSR (A2) 0002077c 58 4f |XO | ADDQ.L #0x4,A7 0002077e 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00020782 3f 01 |? | MOVE.W D1,-(A7) 00020784 3f 02 |? | MOVE.W D2,-(A7) 00020786 4e 92 |N | JSR (A2) 00020788 50 4f |PO | ADDQ.L #0x8,A7 0002078a 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020790 50 4f |PO | ADDQ.L #0x8,A7 00020792 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00020798 de fc 00 2e | . | ADDA.W #0x2e,A7 0002079c 1f 03 | | MOVE.B D3,-(A7) 0002079e 1f 01 | | MOVE.B D1,-(A7) 000207a0 48 78 00 01 |Hx | PEA.L 0x1 000207a4 48 6e ff f4 |Hn | PEA.L (A6-0xc) 000207a8 48 6e ff f0 |Hn | PEA.L (A6-0x10) 000207ac 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File) 000207b2 de fc 00 10 | | ADDA.W #0x10,A7 000207b6 7e 00 |~ | MOVEQ.L #0x00,D7 000207b8 4a 2e ff f4 |J. | TST.B (A6-0xc) 000207bc 66 02 |f | BNE 0x207c0 000207be 52 07 |R | ADDQ.B #0x1,D7 000207c0 10 07 | | MOVE.B D7,D0 000207c2 48 80 |H | EXTB.W D0 000207c4 41 81 |A | CHK.W D1,D0 000207c6 1f 00 | | MOVE.B D0,-(A7) 000207c8 48 6e ff f0 |Hn | PEA.L (A6-0x10) 000207cc 4e b9 00 01 04 5c |N \ | JSR DirNext(MOD a : Bool; VAR b : File) 000207d2 de c4 | | ADDA.W D4,A7 000207d4 60 00 ff 2a |` * | BRA 0x20700 000207d8 58 4f |XO | ADDQ.L #0x4,A7 000207da 52 86 |R | ADDQ.L #0x1,D6 000207dc 68 00 fe fc |h | BVC 0x206da 000207e0 58 4f |XO | ADDQ.L #0x4,A7 000207e2 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 000207e6 4e 5e |N^ | UNLK A6 000207e8 4e 75 |Nu | RTS 000207ea ; -------------------------------------------------------------------------------------- 000207ea ; OMSI PASCAL Function 000207ea ; <LVAR 0x008 4(r)> 000207ea ; <LVAR -0x006 @ 4(rw)> 000207ea ; <LVAR -0x00a @ 4(rw)> 000207ea ; <LVAR -0x00c @ 1(r)> 000207ea ; <LVAR -0x010 @> 000207ea ; -------------------------------------------------------------------------------------- 000207ea 4e 56 ff bc |NV | LINK.W A6,#0xffbc 000207ee bf d5 | | CMPA.L (A5),A7 000207f0 62 06 |b | BHI 0x207f8 000207f2 44 fc 00 02 |D | MOVE.W #0x2,CCR 000207f6 4e 76 |Nv | TRAPV 000207f8 de fc 00 34 | 4 | ADDA.W #0x34,A7 000207fc 48 e7 c0 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D1+D0,-(A7) 00020800 43 ee 00 08 |C | LEA.L (A6+0x8),A1 00020804 45 ee ff fa |E | LEA.L (A6-0x6),A2 00020808 47 ee ff f6 |G | LEA.L (A6-0xa),A3 0002080c 49 ee ff f4 |I | LEA.L (A6-0xc),A4 00020810 72 01 |r | MOVEQ.L #0x01,D1 00020812 41 fa f9 1c |A | LEA.L 0x20130,A0 00020816 70 04 |p | MOVEQ.L #0x04,D0 00020818 3f 20 |? | MOVE.W -(A0),-(A7) 0002081a 51 c8 ff fc |Q | DBF D0,0x20818 0002081e 2f 11 |/ | MOVE.L (A1),-(A7) 00020820 48 78 00 02 |Hx | PEA.L 0x2 00020824 4e b9 00 02 21 6a |N !j | JSR 0x2216a 0002082a de fc 00 0a | | ADDA.W #0xa,A7 0002082e 2e 91 |. | MOVE.L (A1),(A7) 00020830 48 78 00 01 |Hx | PEA.L 0x1 00020834 4e b9 00 02 2a 50 |N *P | JSR 0x22a50 0002083a 50 4f |PO | ADDQ.L #0x8,A7 0002083c 26 97 |& | MOVE.L (A7),(A3) 0002083e 2f 11 |/ | MOVE.L (A1),-(A7) 00020840 48 78 00 02 |Hx | PEA.L 0x2 00020844 4e b9 00 02 2a 50 |N *P | JSR 0x22a50 0002084a 50 4f |PO | ADDQ.L #0x8,A7 0002084c 24 9f |$ | MOVE.L (A7)+,(A2) 0002084e 3f 3a f8 e0 |?: | MOVE.W 0x20130,-(A7) 00020852 55 4f |UO | SUBQ.L #0x2,A7 00020854 2f 11 |/ | MOVE.L (A1),-(A7) 00020856 59 4f |YO | SUBQ.L #0x4,A7 00020858 48 6f 00 0a |Ho | PEA.L (A7+0xa) 0002085c 3f 01 |? | MOVE.W D1,-(A7) 0002085e 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7) 00020862 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020868 50 4f |PO | ADDQ.L #0x8,A7 0002086a 4e ba fb 44 |N D | JSR 0x203b0 0002086e 50 4f |PO | ADDQ.L #0x8,A7 00020870 4a 1f |J | TST.B (A7)+ 00020872 67 08 |g | BEQ 0x2087c 00020874 2f 12 |/ | MOVE.L (A2),-(A7) 00020876 4e ba fb 9a |N | JSR 0x20412 0002087a 58 4f |XO | ADDQ.L #0x4,A7 0002087c 54 4f |TO | ADDQ.L #0x2,A7 0002087e 2f 13 |/ | MOVE.L (A3),-(A7) 00020880 42 27 |B' | CLR.B -(A7) 00020882 1f 01 | | MOVE.B D1,-(A7) 00020884 48 78 00 00 |Hx | PEA.L 0x0 00020888 48 54 |HT | PEA.L (A4) 0002088a 48 6e ff f0 |Hn | PEA.L (A6-0x10) 0002088e 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File) 00020894 de fc 00 14 | | ADDA.W #0x14,A7 00020898 4a 14 |J | TST.B (A4) 0002089a 66 16 |f | BNE 0x208b2 0002089c 1f 01 | | MOVE.B D1,-(A7) 0002089e 1f 01 | | MOVE.B D1,-(A7) 000208a0 2f 12 |/ | MOVE.L (A2),-(A7) 000208a2 48 54 |HT | PEA.L (A4) 000208a4 48 6e ff f0 |Hn | PEA.L (A6-0x10) 000208a8 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File) 000208ae de fc 00 10 | | ADDA.W #0x10,A7 000208b2 48 52 |HR | PEA.L (A2) 000208b4 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000208ba 58 4f |XO | ADDQ.L #0x4,A7 000208bc 48 53 |HS | PEA.L (A3) 000208be 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000208c4 58 4f |XO | ADDQ.L #0x4,A7 000208c6 4c df 1f 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2+A3+A4 000208ca 4e 5e |N^ | UNLK A6 000208cc 4e 75 |Nu | RTS 000208ce ; -------------------------------------------------------------------------------------- 000208ce ; OMSI PASCAL Function 000208ce ; <LVAR -0x004 @> 000208ce ; -------------------------------------------------------------------------------------- 000208ce 4e 56 ff c2 |NV | LINK.W A6,#0xffc2 000208d2 bf d5 | | CMPA.L (A5),A7 000208d4 62 06 |b | BHI 0x208dc 000208d6 44 fc 00 02 |D | MOVE.W #0x2,CCR 000208da 4e 76 |Nv | TRAPV 000208dc de fc 00 3a | : | ADDA.W #0x3a,A7 000208e0 48 e7 e0 c0 |H | MOVEM.L A1+A0+D2+D1+D0,-(A7) 000208e4 43 f9 00 01 02 c4 |C | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A1 000208ea 72 01 |r | MOVEQ.L #0x01,D1 000208ec 74 16 |t | MOVEQ.L #0x16,D2 000208ee 59 4f |YO | SUBQ.L #0x4,A7 000208f0 4e b9 00 01 03 f8 |N | JSR GetConsoleConfig() : Long 000208f6 20 1f | | MOVE.L (A7)+,D0 000208f8 0c 80 00 00 00 03 | | CMPI.L #0x00000003,D0 000208fe 66 26 |f& | BNE 0x20926 00020900 41 fa f8 46 |A F | LEA.L 0x20148,A0 00020904 70 0a |p | MOVEQ.L #0x0a,D0 00020906 3f 20 |? | MOVE.W -(A0),-(A7) 00020908 51 c8 ff fc |Q | DBF D0,0x20906 0002090c 59 4f |YO | SUBQ.L #0x4,A7 0002090e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020912 3f 01 |? | MOVE.W D1,-(A7) 00020914 3f 02 |? | MOVE.W D2,-(A7) 00020916 4e 91 |N | JSR (A1) 00020918 50 4f |PO | ADDQ.L #0x8,A7 0002091a 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00020920 de fc 00 1a | | ADDA.W #0x1a,A7 00020924 60 76 |`v | BRA 0x2099c 00020926 55 4f |UO | SUBQ.L #0x2,A7 00020928 48 78 01 80 |Hx | PEA.L 0x180 0002092c 4e b9 00 01 05 92 |N | JSR ReadConfig(where : Long) : Word 00020932 58 4f |XO | ADDQ.L #0x4,A7 00020934 10 2f 00 01 | / | MOVE.B (A7+0x1),D0 00020938 0c 00 00 58 | X | CMPI.B #0x58,D0 0002093c 66 32 |f2 | BNE 0x20970 0002093e 3f 3a f8 0c |?: | MOVE.W 0x2014c,-(A7) 00020942 3f 3a f8 06 |?: | MOVE.W 0x2014a,-(A7) 00020946 3f 3a f8 00 |?: | MOVE.W 0x20148,-(A7) 0002094a 59 4f |YO | SUBQ.L #0x4,A7 0002094c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020950 3f 01 |? | MOVE.W D1,-(A7) 00020952 3f 3c 00 06 |?< | MOVE.W #0x6,-(A7) 00020956 4e 91 |N | JSR (A1) 00020958 50 4f |PO | ADDQ.L #0x8,A7 0002095a 48 78 00 01 |Hx | PEA.L 0x1 0002095e 1f 01 | | MOVE.B D1,-(A7) 00020960 48 6e ff fc |Hn | PEA.L (A6-0x4) 00020964 4e b9 00 01 03 b0 |N | JSR PushProgram(a : String; b : String; MOD c : B; VAR d : Bool) 0002096a de fc 00 14 | | ADDA.W #0x14,A7 0002096e 60 2a |`* | BRA 0x2099a 00020970 2f 3a f7 e0 |/: | MOVE.L 0x20152,-(A7) 00020974 2f 3a f7 d8 |/: | MOVE.L 0x2014e,-(A7) 00020978 59 4f |YO | SUBQ.L #0x4,A7 0002097a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002097e 3f 01 |? | MOVE.W D1,-(A7) 00020980 3f 3c 00 08 |?< | MOVE.W #0x8,-(A7) 00020984 4e 91 |N | JSR (A1) 00020986 50 4f |PO | ADDQ.L #0x8,A7 00020988 48 78 00 01 |Hx | PEA.L 0x1 0002098c 1f 01 | | MOVE.B D1,-(A7) 0002098e 48 6e ff fc |Hn | PEA.L (A6-0x4) 00020992 4e b9 00 01 03 b0 |N | JSR PushProgram(a : String; b : String; MOD c : B; VAR d : Bool) 00020998 de c2 | | ADDA.W D2,A7 0002099a 54 4f |TO | ADDQ.L #0x2,A7 0002099c 4c df 03 07 |L | MOVEM.L (A7)+,D0+D1+D2+A0+A1 000209a0 4e 5e |N^ | UNLK A6 000209a2 4e 75 |Nu | RTS 000209a4 ; -------------------------------------------------------------------------------------- 000209a4 ; OMSI PASCAL Function 000209a4 ; -------------------------------------------------------------------------------------- 000209a4 4e 56 ff ca |NV | LINK.W A6,#0xffca 000209a8 bf d5 | | CMPA.L (A5),A7 000209aa 62 06 |b | BHI 0x209b2 000209ac 44 fc 00 02 |D | MOVE.W #0x2,CCR 000209b0 4e 76 |Nv | TRAPV 000209b2 de fc 00 36 | 6 | ADDA.W #0x36,A7 000209b6 48 e7 c0 c0 |H | MOVEM.L A1+A0+D1+D0,-(A7) 000209ba 72 01 |r | MOVEQ.L #0x01,D1 000209bc 59 4f |YO | SUBQ.L #0x4,A7 000209be 4e b9 00 01 03 f8 |N | JSR GetConsoleConfig() : Long 000209c4 20 1f | | MOVE.L (A7)+,D0 000209c6 b0 81 | | CMP.L D1,D0 000209c8 66 32 |f2 | BNE 0x209fc 000209ca 9e fc 00 16 | | SUBA.W #0x16,A7 000209ce 20 4f | O | MOVEA.L A7,A0 000209d0 43 fa f7 84 |C | LEA.L 0x20156,A1 000209d4 70 14 |p | MOVEQ.L #0x14,D0 000209d6 10 d9 | | MOVE.B (A1)+,(A0)+ 000209d8 51 c8 ff fc |Q | DBF D0,0x209d6 000209dc 59 4f |YO | SUBQ.L #0x4,A7 000209de 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000209e2 3f 01 |? | MOVE.W D1,-(A7) 000209e4 3f 3c 00 15 |?< | MOVE.W #0x15,-(A7) 000209e8 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000209ee 50 4f |PO | ADDQ.L #0x8,A7 000209f0 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000209f6 de fc 00 1a | | ADDA.W #0x1a,A7 000209fa 60 12 |` | BRA 0x20a0e 000209fc 4e b9 00 01 02 16 |N | JSR KC0b 00020a02 48 78 00 01 |Hx | PEA.L 0x1 00020a06 4e b9 00 01 03 f4 |N | JSR SetConsoleConfig(a : Long) 00020a0c 58 4f |XO | ADDQ.L #0x4,A7 00020a0e 4c df 03 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1 00020a12 4e 5e |N^ | UNLK A6 00020a14 4e 75 |Nu | RTS 00020a16 ; -------------------------------------------------------------------------------------- 00020a16 ; OMSI PASCAL Function 00020a16 ; <LVAR 0x008 4(r)> 00020a16 ; <LVAR -0x004 @ 1(r)> 00020a16 ; <LVAR -0x008 @ 4(r)> 00020a16 ; -------------------------------------------------------------------------------------- 00020a16 4e 56 ff e0 |NV | LINK.W A6,#0xffe0 00020a1a bf d5 | | CMPA.L (A5),A7 00020a1c 62 06 |b | BHI 0x20a24 00020a1e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020a22 4e 76 |Nv | TRAPV 00020a24 de fc 00 18 | | ADDA.W #0x18,A7 00020a28 48 e7 00 c0 |H | MOVEM.L A1+A0,-(A7) 00020a2c 41 ee ff f8 |A | LEA.L (A6-0x8),A0 00020a30 43 ee ff fc |C | LEA.L (A6-0x4),A1 00020a34 48 50 |HP | PEA.L (A0) 00020a36 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00020a3c 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7) 00020a40 48 50 |HP | PEA.L (A0) 00020a42 48 51 |HQ | PEA.L (A1) 00020a44 4e b9 00 01 04 3c |N < | JSR FileReadLine(file : File; VAR a : String; VAR b : Byte) 00020a4a de fc 00 0c | | ADDA.W #0xc,A7 00020a4e 4a 11 |J | TST.B (A1) 00020a50 66 0a |f | BNE 0x20a5c 00020a52 2f 10 |/ | MOVE.L (A0),-(A7) 00020a54 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00020a5a 60 08 |` | BRA 0x20a64 00020a5c 48 50 |HP | PEA.L (A0) 00020a5e 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00020a64 58 4f |XO | ADDQ.L #0x4,A7 00020a66 4a 11 |J | TST.B (A1) 00020a68 67 ca |g | BEQ 0x20a34 00020a6a 4c df 03 00 |L | MOVEM.L (A7)+,A0+A1 00020a6e 4e 5e |N^ | UNLK A6 00020a70 4e 75 |Nu | RTS 00020a72 ; -------------------------------------------------------------------------------------- 00020a72 ; OMSI PASCAL Function 00020a72 ; <LVAR 0x008 4(r)> 00020a72 ; <LVAR -0x008 @ 4(r)> 00020a72 ; -------------------------------------------------------------------------------------- 00020a72 4e 56 ff 9a |NV | LINK.W A6,#0xff9a 00020a76 bf d5 | | CMPA.L (A5),A7 00020a78 62 06 |b | BHI 0x20a80 00020a7a 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020a7e 4e 76 |Nv | TRAPV 00020a80 de fc 00 5a | Z | ADDA.W #0x5a,A7 00020a84 48 e7 f1 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D3+D2+D1+D0,-(A7) 00020a88 47 ee 00 08 |G | LEA.L (A6+0x8),A3 00020a8c 72 01 |r | MOVEQ.L #0x01,D1 00020a8e 74 0a |t | MOVEQ.L #0x0a,D2 00020a90 76 1e |v | MOVEQ.L #0x1e,D3 00020a92 41 fa f6 e2 |A | LEA.L 0x20176,A0 00020a96 70 04 |p | MOVEQ.L #0x04,D0 00020a98 3f 20 |? | MOVE.W -(A0),-(A7) 00020a9a 51 c8 ff fc |Q | DBF D0,0x20a98 00020a9e 2f 13 |/ | MOVE.L (A3),-(A7) 00020aa0 48 78 00 01 |Hx | PEA.L 0x1 00020aa4 4e b9 00 02 21 6a |N !j | JSR 0x2216a 00020aaa de c2 | | ADDA.W D2,A7 00020aac 2e 93 |. | MOVE.L (A3),(A7) 00020aae 48 78 00 01 |Hx | PEA.L 0x1 00020ab2 4e b9 00 02 2a 50 |N *P | JSR 0x22a50 00020ab8 50 4f |PO | ADDQ.L #0x8,A7 00020aba 28 5f |(_ | MOVEA.L (A7)+,A4 00020abc 3f 3a f6 b8 |?: | MOVE.W 0x20176,-(A7) 00020ac0 55 4f |UO | SUBQ.L #0x2,A7 00020ac2 2f 13 |/ | MOVE.L (A3),-(A7) 00020ac4 59 4f |YO | SUBQ.L #0x4,A7 00020ac6 48 6f 00 0a |Ho | PEA.L (A7+0xa) 00020aca 3f 01 |? | MOVE.W D1,-(A7) 00020acc 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7) 00020ad0 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020ad6 50 4f |PO | ADDQ.L #0x8,A7 00020ad8 4e ba f8 d6 |N | JSR 0x203b0 00020adc 50 4f |PO | ADDQ.L #0x8,A7 00020ade 10 1f | | MOVE.B (A7)+,D0 00020ae0 48 80 |H | EXTB.W D0 00020ae2 41 81 |A | CHK.W D1,D0 00020ae4 54 4f |TO | ADDQ.L #0x2,A7 00020ae6 1e 00 | | MOVE.B D0,D7 00020ae8 1f 01 | | MOVE.B D1,-(A7) 00020aea 2f 0c |/ | MOVE.L A4,-(A7) 00020aec 48 6e ff f8 |Hn | PEA.L (A6-0x8) 00020af0 4e b9 00 01 04 58 |N X | JSR DirFirst(MOD c : Bool; a : String; VAR b : File) 00020af6 de c2 | | ADDA.W D2,A7 00020af8 20 6e ff f8 | n | MOVEA.L (A6-0x8),A0 00020afc b0 c1 | | CMPA.W D1,A0 00020afe 67 52 |gR | BEQ 0x20b52 00020b00 4a 07 |J | TST.B D7 00020b02 67 36 |g6 | BEQ 0x20b3a 00020b04 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 00020b0a 9e c3 | | SUBA.W D3,A7 00020b0c 22 4f |"O | MOVEA.L A7,A1 00020b0e 24 48 |$H | MOVEA.L A0,A2 00020b10 70 1d |p | MOVEQ.L #0x1d,D0 00020b12 12 da | | MOVE.B (A2)+,(A1)+ 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 b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020b28 50 4f |PO | ADDQ.L #0x8,A7 00020b2a 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00020b30 de fc 00 22 | " | ADDA.W #0x22,A7 00020b34 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 00020b3a 2f 08 |/ | MOVE.L A0,-(A7) 00020b3c 4e ba fe d8 |N | JSR 0x20a16 00020b40 54 4f |TO | ADDQ.L #0x2,A7 00020b42 42 17 |B | CLR.B (A7) 00020b44 48 6e ff f8 |Hn | PEA.L (A6-0x8) 00020b48 4e b9 00 01 04 5c |N \ | JSR DirNext(MOD a : Bool; VAR b : File) 00020b4e 5c 4f |\O | ADDQ.L #0x6,A7 00020b50 60 a6 |` | BRA 0x20af8 00020b52 4c df 1f 8f |L | MOVEM.L (A7)+,D0+D1+D2+D3+D7+A0+A1+A2+A3+A4 00020b56 4e 5e |N^ | UNLK A6 00020b58 4e 75 |Nu | RTS 00020b5a ; -------------------------------------------------------------------------------------- 00020b5a ; OMSI PASCAL Function 00020b5a ; <LVAR 0x008 4(r)> 00020b5a ; <LVAR -0x005 @ 1(rw)> 00020b5a ; <LVAR -0x006 @ 1(r)> 00020b5a ; <LVAR -0x00a @ 4(r)> 00020b5a ; <LVAR -0x00e @ 4(rw)> 00020b5a ; <LVAR -0x012 @ 4(rw)> 00020b5a ; <LVAR -0x014 @ 1(r)> 00020b5a ; <LVAR -0x018 @ 4(rw)> 00020b5a ; <LVAR -0x01c @ 4(r)> 00020b5a ; <LVAR -0x020 @ 4(rw)> 00020b5a ; -------------------------------------------------------------------------------------- 00020b5a 4e 56 ff 80 |NV | LINK.W A6,#0xff80 00020b5e bf d5 | | CMPA.L (A5),A7 00020b60 62 06 |b | BHI 0x20b68 00020b62 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020b66 4e 76 |Nv | TRAPV 00020b68 de fc 00 60 | ` | ADDA.W #0x60,A7 00020b6c 48 e7 fd f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D5+D4+D3+D2+D1+D0,-(A7) 00020b70 43 ee 00 08 |C | LEA.L (A6+0x8),A1 00020b74 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 00020b7a 47 ee ff ec |G | LEA.L (A6-0x14),A3 00020b7e 49 ee ff f6 |I | LEA.L (A6-0xa),A4 00020b82 72 01 |r | MOVEQ.L #0x01,D1 00020b84 74 02 |t | MOVEQ.L #0x02,D2 00020b86 76 0a |v | MOVEQ.L #0x0a,D3 00020b88 78 14 |x | MOVEQ.L #0x14,D4 00020b8a 7a 0c |z | MOVEQ.L #0x0c,D5 00020b8c 41 fa f5 f4 |A | LEA.L 0x20182,A0 00020b90 70 04 |p | MOVEQ.L #0x04,D0 00020b92 3f 20 |? | MOVE.W -(A0),-(A7) 00020b94 51 c8 ff fc |Q | DBF D0,0x20b92 00020b98 2f 11 |/ | MOVE.L (A1),-(A7) 00020b9a 48 78 00 01 |Hx | PEA.L 0x1 00020b9e 4e b9 00 02 21 6a |N !j | JSR 0x2216a 00020ba4 de c3 | | ADDA.W D3,A7 00020ba6 2e 91 |. | MOVE.L (A1),(A7) 00020ba8 48 78 00 01 |Hx | PEA.L 0x1 00020bac 4e b9 00 02 2a 50 |N *P | JSR 0x22a50 00020bb2 50 4f |PO | ADDQ.L #0x8,A7 00020bb4 2d 5f ff ee |-_ | MOVE.L (A7)+,(A6-0x12) 00020bb8 2f 3a f5 c8 |/: | MOVE.L 0x20182,-(A7) 00020bbc 59 4f |YO | SUBQ.L #0x4,A7 00020bbe 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020bc2 3f 01 |? | MOVE.W D1,-(A7) 00020bc4 3f 3c 00 04 |?< | MOVE.W #0x4,-(A7) 00020bc8 4e 92 |N | JSR (A2) 00020bca 50 4f |PO | ADDQ.L #0x8,A7 00020bcc 2d 5f ff e0 |-_ | MOVE.L (A7)+,(A6-0x20) 00020bd0 2e 91 |. | MOVE.L (A1),(A7) 00020bd2 48 78 00 00 |Hx | PEA.L 0x0 00020bd6 2f 2e ff e0 |/. | MOVE.L (A6-0x20),-(A7) 00020bda 48 6e ff e4 |Hn | PEA.L (A6-0x1c) 00020bde 48 53 |HS | PEA.L (A3) 00020be0 4e b9 00 02 4f 88 |N O | JSR 0x24f88 00020be6 de c4 | | ADDA.W D4,A7 00020be8 48 6e ff e0 |Hn | PEA.L (A6-0x20) 00020bec 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00020bf2 58 4f |XO | ADDQ.L #0x4,A7 00020bf4 4a 13 |J | TST.B (A3) 00020bf6 66 06 |f | BNE 0x20bfe 00020bf8 2d 41 ff e8 |-A | MOVE.L D1,(A6-0x18) 00020bfc 60 52 |`R | BRA 0x20c50 00020bfe 20 6e ff e4 | n | MOVEA.L (A6-0x1c),A0 00020c02 b0 c1 | | CMPA.W D1,A0 00020c04 67 12 |g | BEQ 0x20c18 00020c06 2f 08 |/ | MOVE.L A0,-(A7) 00020c08 48 53 |HS | PEA.L (A3) 00020c0a 48 6e ff e8 |Hn | PEA.L (A6-0x18) 00020c0e 4e b9 00 01 02 ec |N | JSR String2Long(src : String; VAR status : Bool; VAR retval : Long) 00020c14 de c5 | | ADDA.W D5,A7 00020c16 60 0e |` | BRA 0x20c26 00020c18 42 13 |B | CLR.B (A3) 00020c1a 48 6e ff e4 |Hn | PEA.L (A6-0x1c) 00020c1e 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00020c24 58 4f |XO | ADDQ.L #0x4,A7 00020c26 4a 13 |J | TST.B (A3) 00020c28 66 26 |f& | BNE 0x20c50 00020c2a 41 fa f5 7a |A z | LEA.L 0x201a6,A0 00020c2e 70 07 |p | MOVEQ.L #0x07,D0 00020c30 2f 20 |/ | MOVE.L -(A0),-(A7) 00020c32 51 c8 ff fc |Q | DBF D0,0x20c30 00020c36 59 4f |YO | SUBQ.L #0x4,A7 00020c38 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020c3c 3f 01 |? | MOVE.W D1,-(A7) 00020c3e 3f 3c 00 20 |?< | MOVE.W #0x20,-(A7) 00020c42 4e 92 |N | JSR (A2) 00020c44 50 4f |PO | ADDQ.L #0x8,A7 00020c46 4e b9 00 02 1d 28 |N ( | JSR 0x21d28 00020c4c de fc 00 24 | $ | ADDA.W #0x24,A7 00020c50 41 fa f5 5e |A ^ | LEA.L 0x201b0,A0 00020c54 70 04 |p | MOVEQ.L #0x04,D0 00020c56 3f 20 |? | MOVE.W -(A0),-(A7) 00020c58 51 c8 ff fc |Q | DBF D0,0x20c56 00020c5c 55 4f |UO | SUBQ.L #0x2,A7 00020c5e 2f 11 |/ | MOVE.L (A1),-(A7) 00020c60 59 4f |YO | SUBQ.L #0x4,A7 00020c62 48 6f 00 0a |Ho | PEA.L (A7+0xa) 00020c66 3f 01 |? | MOVE.W D1,-(A7) 00020c68 3f 03 |? | MOVE.W D3,-(A7) 00020c6a 4e 92 |N | JSR (A2) 00020c6c 50 4f |PO | ADDQ.L #0x8,A7 00020c6e 4e ba f7 40 |N @ | JSR 0x203b0 00020c72 50 4f |PO | ADDQ.L #0x8,A7 00020c74 4a 1f |J | TST.B (A7)+ 00020c76 67 04 |g | BEQ 0x20c7c 00020c78 44 ae ff e8 |D | NEG.L (A6-0x18) 00020c7c 50 4f |PO | ADDQ.L #0x8,A7 00020c7e 3e ba f5 30 |> 0 | MOVE.W 0x201b0,(A7) 00020c82 55 4f |UO | SUBQ.L #0x2,A7 00020c84 2f 11 |/ | MOVE.L (A1),-(A7) 00020c86 59 4f |YO | SUBQ.L #0x4,A7 00020c88 48 6f 00 0a |Ho | PEA.L (A7+0xa) 00020c8c 3f 01 |? | MOVE.W D1,-(A7) 00020c8e 3f 02 |? | MOVE.W D2,-(A7) 00020c90 4e 92 |N | JSR (A2) 00020c92 50 4f |PO | ADDQ.L #0x8,A7 00020c94 4e ba f7 1a |N | JSR 0x203b0 00020c98 50 4f |PO | ADDQ.L #0x8,A7 00020c9a 4a 1f |J | TST.B (A7)+ 00020c9c 67 04 |g | BEQ 0x20ca2 00020c9e 7e 01 |~ | MOVEQ.L #0x01,D7 00020ca0 60 02 |` | BRA 0x20ca4 00020ca2 7e 02 |~ | MOVEQ.L #0x02,D7 00020ca4 54 4f |TO | ADDQ.L #0x2,A7 00020ca6 2f 2e ff ee |/. | MOVE.L (A6-0x12),-(A7) 00020caa 10 07 | | MOVE.B D7,D0 00020cac 48 80 |H | EXTB.W D0 00020cae 41 82 |A | CHK.W D2,D0 00020cb0 1f 00 | | MOVE.B D0,-(A7) 00020cb2 1f 01 | | MOVE.B D1,-(A7) 00020cb4 2f 2e ff e8 |/. | MOVE.L (A6-0x18),-(A7) 00020cb8 48 6e ff fa |Hn | PEA.L (A6-0x6) 00020cbc 48 54 |HT | PEA.L (A4) 00020cbe 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File) 00020cc4 de c4 | | ADDA.W D4,A7 00020cc6 4a 2e ff fa |J. | TST.B (A6-0x6) 00020cca 66 00 00 b6 |f | BNE 0x20d82 00020cce 20 54 | T | MOVEA.L (A4),A0 00020cd0 48 68 00 3a |Hh : | PEA.L (A0+0x3a) 00020cd4 4e b9 00 01 03 04 |N | JSR GetRtc() : TimeStamp 00020cda 58 4f |XO | ADDQ.L #0x4,A7 00020cdc 11 41 00 4c | A L | MOVE.B D1,(A0+0x4c) 00020ce0 3f 3a f4 d0 |?: | MOVE.W 0x201b2,-(A7) 00020ce4 55 4f |UO | SUBQ.L #0x2,A7 00020ce6 2f 11 |/ | MOVE.L (A1),-(A7) 00020ce8 59 4f |YO | SUBQ.L #0x4,A7 00020cea 48 6f 00 0a |Ho | PEA.L (A7+0xa) 00020cee 3f 01 |? | MOVE.W D1,-(A7) 00020cf0 3f 02 |? | MOVE.W D2,-(A7) 00020cf2 4e 92 |N | JSR (A2) 00020cf4 50 4f |PO | ADDQ.L #0x8,A7 00020cf6 4e ba f6 b8 |N | JSR 0x203b0 00020cfa 50 4f |PO | ADDQ.L #0x8,A7 00020cfc 4a 1f |J | TST.B (A7)+ 00020cfe 67 5e |g^ | BEQ 0x20d5e 00020d00 3f 3a f4 b2 |?: | MOVE.W 0x201b4,-(A7) 00020d04 51 4f |QO | SUBQ.L #0x8,A7 00020d06 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00020d0a 3f 01 |? | MOVE.W D1,-(A7) 00020d0c 3f 02 |? | MOVE.W D2,-(A7) 00020d0e 4e 92 |N | JSR (A2) 00020d10 50 4f |PO | ADDQ.L #0x8,A7 00020d12 4e b9 00 01 03 e4 |N | JSR AskConsoleString(prompt : String) : String 00020d18 58 4f |XO | ADDQ.L #0x4,A7 00020d1a 2d 5f ff f2 |-_ | MOVE.L (A7)+,(A6-0xe) 00020d1e 54 4f |TO | ADDQ.L #0x2,A7 00020d20 20 6e ff f2 | n | MOVEA.L (A6-0xe),A0 00020d24 30 10 |0 | MOVE.W (A0),D0 00020d26 b0 41 | A | CMP.W D1,D0 00020d28 66 10 |f | BNE 0x20d3a 00020d2a 10 28 00 02 | ( | MOVE.B (A0+0x2),D0 00020d2e 0c 00 00 29 | ) | CMPI.B #0x29,D0 00020d32 66 06 |f | BNE 0x20d3a 00020d34 1d 41 ff fb | A | MOVE.B D1,(A6-0x5) 00020d38 60 12 |` | BRA 0x20d4c 00020d3a 2f 14 |/ | MOVE.L (A4),-(A7) 00020d3c 2f 2e ff f2 |/. | MOVE.L (A6-0xe),-(A7) 00020d40 48 6e ff fb |Hn | PEA.L (A6-0x5) 00020d44 4e b9 00 01 04 40 |N @ | JSR FSCALL_10440 00020d4a de c5 | | ADDA.W D5,A7 00020d4c 48 6e ff f2 |Hn | PEA.L (A6-0xe) 00020d50 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00020d56 58 4f |XO | ADDQ.L #0x4,A7 00020d58 4a 2e ff fb |J. | TST.B (A6-0x5) 00020d5c 67 a2 |g | BEQ 0x20d00 00020d5e 54 4f |TO | ADDQ.L #0x2,A7 00020d60 2f 14 |/ | MOVE.L (A4),-(A7) 00020d62 4e b9 00 01 04 48 |N H | JSR FSCALL_10448 00020d68 54 4f |TO | ADDQ.L #0x2,A7 00020d6a 42 17 |B | CLR.B (A7) 00020d6c 1f 01 | | MOVE.B D1,-(A7) 00020d6e 48 78 00 01 |Hx | PEA.L 0x1 00020d72 48 6e ff fa |Hn | PEA.L (A6-0x6) 00020d76 48 54 |HT | PEA.L (A4) 00020d78 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File) 00020d7e de fc 00 10 | | ADDA.W #0x10,A7 00020d82 48 6e ff ee |Hn | PEA.L (A6-0x12) 00020d86 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00020d8c 58 4f |XO | ADDQ.L #0x4,A7 00020d8e 4c df 1f bf |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D7+A0+A1+A2+A3+A4 00020d92 4e 5e |N^ | UNLK A6 00020d94 4e 75 |Nu | RTS 00020d96 ; -------------------------------------------------------------------------------------- 00020d96 ; OMSI PASCAL Function 00020d96 ; <LVAR 0x008 4(r)> 00020d96 ; <LVAR -0x006 @ 4(r)> 00020d96 ; <LVAR -0x010 @ 1(r)> 00020d96 ; -------------------------------------------------------------------------------------- 00020d96 4e 56 ff a0 |NV | LINK.W A6,#0xffa0 00020d9a bf d5 | | CMPA.L (A5),A7 00020d9c 62 06 |b | BHI 0x20da4 00020d9e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020da2 4e 76 |Nv | TRAPV 00020da4 de fc 00 50 | P | ADDA.W #0x50,A7 00020da8 48 e7 81 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D0,-(A7) 00020dac 45 ee ff fa |E | LEA.L (A6-0x6),A2 00020db0 47 ee 00 08 |G | LEA.L (A6+0x8),A3 00020db4 59 4f |YO | SUBQ.L #0x4,A7 00020db6 2f 13 |/ | MOVE.L (A3),-(A7) 00020db8 4e b9 00 02 21 34 |N !4 | JSR 0x22134 00020dbe 58 4f |XO | ADDQ.L #0x4,A7 00020dc0 2e 1f |. | MOVE.L (A7)+,D7 00020dc2 67 6c |gl | BEQ 0x20e30 00020dc4 0c 87 00 00 00 02 | | CMPI.L #0x00000002,D7 00020dca 67 02 |g | BEQ 0x20dce 00020dcc 60 7c |`| | BRA 0x20e4a 00020dce 59 4f |YO | SUBQ.L #0x4,A7 00020dd0 2f 13 |/ | MOVE.L (A3),-(A7) 00020dd2 48 78 00 01 |Hx | PEA.L 0x1 00020dd6 4e b9 00 02 2a 50 |N *P | JSR 0x22a50 00020ddc 50 4f |PO | ADDQ.L #0x8,A7 00020dde 28 5f |(_ | MOVEA.L (A7)+,A4 00020de0 2f 0c |/ | MOVE.L A4,-(A7) 00020de2 1f 3c 00 20 | < | MOVE.B #0x20,-(A7) 00020de6 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00020dec 54 4f |TO | ADDQ.L #0x2,A7 00020dee 2f 0c |/ | MOVE.L A4,-(A7) 00020df0 59 4f |YO | SUBQ.L #0x4,A7 00020df2 2f 13 |/ | MOVE.L (A3),-(A7) 00020df4 48 78 00 02 |Hx | PEA.L 0x2 00020df8 4e b9 00 02 2a 50 |N *P | JSR 0x22a50 00020dfe 50 4f |PO | ADDQ.L #0x8,A7 00020e00 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020e06 50 4f |PO | ADDQ.L #0x8,A7 00020e08 28 5f |(_ | MOVEA.L (A7)+,A4 00020e0a 2f 0c |/ | MOVE.L A4,-(A7) 00020e0c 48 52 |HR | PEA.L (A2) 00020e0e 48 6e ff f0 |Hn | PEA.L (A6-0x10) 00020e12 4e b9 00 01 03 10 |N | JSR ConvertTimestamp(MOD input : String; b : L; VAR status : Bool) 00020e18 de fc 00 0c | | ADDA.W #0xc,A7 00020e1c 4a 2e ff f0 |J. | TST.B (A6-0x10) 00020e20 66 02 |f | BNE 0x20e24 00020e22 60 26 |`& | BRA 0x20e4a 00020e24 2f 12 |/ | MOVE.L (A2),-(A7) 00020e26 4e b9 00 01 03 0c |N | JSR SetRtc(a: TimeStamp) 00020e2c 58 4f |XO | ADDQ.L #0x4,A7 00020e2e 60 4c |`L | BRA 0x20e7c 00020e30 48 52 |HR | PEA.L (A2) 00020e32 4e b9 00 01 03 04 |N | JSR GetRtc() : TimeStamp 00020e38 2f 12 |/ | MOVE.L (A2),-(A7) 00020e3a 4e b9 00 01 03 08 |N | JSR TimeToText() 00020e40 58 4f |XO | ADDQ.L #0x4,A7 00020e42 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00020e48 60 e2 |` | BRA 0x20e2c 00020e4a 9e fc 00 24 | $ | SUBA.W #0x24,A7 00020e4e 20 4f | O | MOVEA.L A7,A0 00020e50 43 fa f3 64 |C d | LEA.L 0x201b6,A1 00020e54 70 22 |p" | MOVEQ.L #0x22,D0 00020e56 10 d9 | | MOVE.B (A1)+,(A0)+ 00020e58 51 c8 ff fc |Q | DBF D0,0x20e56 00020e5c 59 4f |YO | SUBQ.L #0x4,A7 00020e5e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020e62 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00020e66 3f 3c 00 23 |?< # | MOVE.W #0x23,-(A7) 00020e6a 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020e70 50 4f |PO | ADDQ.L #0x8,A7 00020e72 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00020e78 de fc 00 28 | ( | ADDA.W #0x28,A7 00020e7c 4c df 1f 81 |L | MOVEM.L (A7)+,D0+D7+A0+A1+A2+A3+A4 00020e80 4e 5e |N^ | UNLK A6 00020e82 4e 75 |Nu | RTS 00020e84 ; -------------------------------------------------------------------------------------- 00020e84 ; OMSI PASCAL Function 00020e84 ; <LVAR 0x008 4(r)> 00020e84 ; -------------------------------------------------------------------------------------- 00020e84 4e 56 ff 52 |NV R | LINK.W A6,#0xff52 00020e88 bf d5 | | CMPA.L (A5),A7 00020e8a 62 06 |b | BHI 0x20e92 00020e8c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020e90 4e 76 |Nv | TRAPV 00020e92 de fc 00 a6 | | ADDA.W #0xa6,A7 00020e96 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00020e9a 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 00020ea0 49 fa f4 a0 |I | LEA.L 0x20342,A4 00020ea4 76 01 |v | MOVEQ.L #0x01,D3 00020ea6 78 05 |x | MOVEQ.L #0x05,D4 00020ea8 7a 18 |z | MOVEQ.L #0x18,D5 00020eaa 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00020eae 2f 08 |/ | MOVE.L A0,-(A7) 00020eb0 9e c5 | | SUBA.W D5,A7 00020eb2 22 4f |"O | MOVEA.L A7,A1 00020eb4 45 fa f3 30 |E 0 | LEA.L 0x201e6,A2 00020eb8 70 16 |p | MOVEQ.L #0x16,D0 00020eba 12 da | | MOVE.B (A2)+,(A1)+ 00020ebc 51 c8 ff fc |Q | DBF D0,0x20eba 00020ec0 42 80 |B | CLR.L D0 00020ec2 10 28 00 1f | ( | MOVE.B (A0+0x1f),D0 00020ec6 ef 08 | | LSL.B #0x7,D0 00020ec8 ee 08 | | LSR.B #0x7,D0 00020eca c0 c4 | | MULU.W D4,D0 00020ecc 42 81 |B | CLR.L D1 00020ece 32 00 |2 | MOVE.W D0,D1 00020ed0 22 4c |"L | MOVEA.L A4,A1 00020ed2 5d 4f |]O | SUBQ.L #0x6,A7 00020ed4 24 4f |$O | MOVEA.L A7,A2 00020ed6 43 f1 18 00 |C | LEA.L (A1+D1.L),A1 00020eda 70 04 |p | MOVEQ.L #0x04,D0 00020edc 14 d9 | | MOVE.B (A1)+,(A2)+ 00020ede 51 c8 ff fc |Q | DBF D0,0x20edc 00020ee2 2f 3a f3 26 |/: & | MOVE.L 0x2020a,-(A7) 00020ee6 2f 3a f3 1e |/: | MOVE.L 0x20206,-(A7) 00020eea 2f 3a f3 16 |/: | MOVE.L 0x20202,-(A7) 00020eee 2f 3a f3 0e |/: | MOVE.L 0x201fe,-(A7) 00020ef2 42 80 |B | CLR.L D0 00020ef4 10 28 00 1f | ( | MOVE.B (A0+0x1f),D0 00020ef8 ed 08 | | LSL.B #0x6,D0 00020efa ee 08 | | LSR.B #0x7,D0 00020efc c0 c4 | | MULU.W D4,D0 00020efe 42 81 |B | CLR.L D1 00020f00 32 00 |2 | MOVE.W D0,D1 00020f02 22 4c |"L | MOVEA.L A4,A1 00020f04 5d 4f |]O | SUBQ.L #0x6,A7 00020f06 24 4f |$O | MOVEA.L A7,A2 00020f08 43 f1 18 00 |C | LEA.L (A1+D1.L),A1 00020f0c 70 04 |p | MOVEQ.L #0x04,D0 00020f0e 14 d9 | | MOVE.B (A1)+,(A2)+ 00020f10 51 c8 ff fc |Q | DBF D0,0x20f0e 00020f14 2f 3a f3 00 |/: | MOVE.L 0x20216,-(A7) 00020f18 2f 3a f2 f8 |/: | MOVE.L 0x20212,-(A7) 00020f1c 2f 3a f2 f0 |/: | MOVE.L 0x2020e,-(A7) 00020f20 42 80 |B | CLR.L D0 00020f22 10 28 00 1f | ( | MOVE.B (A0+0x1f),D0 00020f26 eb 08 | | LSL.B #0x5,D0 00020f28 ee 08 | | LSR.B #0x7,D0 00020f2a c0 c4 | | MULU.W D4,D0 00020f2c 42 81 |B | CLR.L D1 00020f2e 32 00 |2 | MOVE.W D0,D1 00020f30 20 4c | L | MOVEA.L A4,A0 00020f32 5d 4f |]O | SUBQ.L #0x6,A7 00020f34 22 4f |"O | MOVEA.L A7,A1 00020f36 41 f0 18 00 |A | LEA.L (A0+D1.L),A0 00020f3a 70 04 |p | MOVEQ.L #0x04,D0 00020f3c 12 d8 | | MOVE.B (A0)+,(A1)+ 00020f3e 51 c8 ff fc |Q | DBF D0,0x20f3c 00020f42 51 4f |QO | SUBQ.L #0x8,A7 00020f44 48 6f 00 36 |Ho 6 | PEA.L (A7+0x36) 00020f48 3f 03 |? | MOVE.W D3,-(A7) 00020f4a 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7) 00020f4e 4e 93 |N | JSR (A3) 00020f50 58 4f |XO | ADDQ.L #0x4,A7 00020f52 48 6f 00 34 |Ho 4 | PEA.L (A7+0x34) 00020f56 3f 03 |? | MOVE.W D3,-(A7) 00020f58 3f 04 |? | MOVE.W D4,-(A7) 00020f5a 4e 93 |N | JSR (A3) 00020f5c 58 4f |XO | ADDQ.L #0x4,A7 00020f5e 48 6f 00 28 |Ho ( | PEA.L (A7+0x28) 00020f62 3f 03 |? | MOVE.W D3,-(A7) 00020f64 3f 3c 00 10 |?< | MOVE.W #0x10,-(A7) 00020f68 4e 93 |N | JSR (A3) 00020f6a 58 4f |XO | ADDQ.L #0x4,A7 00020f6c 48 6f 00 26 |Ho & | PEA.L (A7+0x26) 00020f70 3f 03 |? | MOVE.W D3,-(A7) 00020f72 3f 04 |? | MOVE.W D4,-(A7) 00020f74 4e 93 |N | JSR (A3) 00020f76 58 4f |XO | ADDQ.L #0x4,A7 00020f78 48 6f 00 1e |Ho | PEA.L (A7+0x1e) 00020f7c 3f 03 |? | MOVE.W D3,-(A7) 00020f7e 3f 3c 00 0c |?< | MOVE.W #0xc,-(A7) 00020f82 4e 93 |N | JSR (A3) 00020f84 58 4f |XO | ADDQ.L #0x4,A7 00020f86 48 6f 00 1c |Ho | PEA.L (A7+0x1c) 00020f8a 3f 03 |? | MOVE.W D3,-(A7) 00020f8c 3f 04 |? | MOVE.W D4,-(A7) 00020f8e 4e 93 |N | JSR (A3) 00020f90 50 4f |PO | ADDQ.L #0x8,A7 00020f92 4e b9 00 01 02 e0 |N | JSR StringCat6(a, b, c, d, e, f : String) : String 00020f98 de c5 | | ADDA.W D5,A7 00020f9a 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00020fa0 de fc 00 4a | J | ADDA.W #0x4a,A7 00020fa4 7e 00 |~ | MOVEQ.L #0x00,D7 00020fa6 7c 00 || | MOVEQ.L #0x00,D6 00020fa8 bc 84 | | CMP.L D4,D6 00020faa 63 02 |c | BLS 0x20fae 00020fac 4e 4f |NO | TRAP #15 00020fae 20 06 | | MOVE.L D6,D0 00020fb0 e5 80 | | ASL.L #0x2,D0 00020fb2 20 57 | W | MOVEA.L (A7),A0 00020fb4 32 30 08 02 |20 | MOVE.W (A0+D0.L+#0x2),D1 00020fb8 48 c1 |H | EXTW.L D1 00020fba b2 87 | | CMP.L D7,D1 00020fbc 6d 00 00 b8 |m | BLT 0x21076 00020fc0 9e fc 00 16 | | SUBA.W #0x16,A7 00020fc4 22 4f |"O | MOVEA.L A7,A1 00020fc6 45 fa f2 52 |E R | LEA.L 0x2021a,A2 00020fca 74 14 |t | MOVEQ.L #0x14,D2 00020fcc 12 da | | MOVE.B (A2)+,(A1)+ 00020fce 51 ca ff fc |Q | DBF D2,0x20fcc 00020fd2 2f 3a f2 5c |/: \ | MOVE.L 0x20230,-(A7) 00020fd6 52 41 |RA | ADDQ.W #0x1,D1 00020fd8 9e fc 00 14 | | SUBA.W #0x14,A7 00020fdc 22 4f |"O | MOVEA.L A7,A1 00020fde 45 fa f2 54 |E T | LEA.L 0x20234,A2 00020fe2 74 12 |t | MOVEQ.L #0x12,D2 00020fe4 12 da | | MOVE.B (A2)+,(A1)+ 00020fe6 51 ca ff fc |Q | DBF D2,0x20fe4 00020fea 51 4f |QO | SUBQ.L #0x8,A7 00020fec 48 6f 00 20 |Ho | PEA.L (A7+0x20) 00020ff0 3f 03 |? | MOVE.W D3,-(A7) 00020ff2 3f 3c 00 15 |?< | MOVE.W #0x15,-(A7) 00020ff6 4e 93 |N | JSR (A3) 00020ff8 2f 07 |/ | MOVE.L D7,-(A7) 00020ffa 52 97 |R | ADDQ.L #0x1,(A7) 00020ffc 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00021002 58 4f |XO | ADDQ.L #0x4,A7 00021004 48 78 00 05 |Hx | PEA.L 0x5 00021008 4e b9 00 01 02 f8 |N | JSR LeftPad(a : String; b : Long) : String 0002100e 58 4f |XO | ADDQ.L #0x4,A7 00021010 48 6f 00 24 |Ho $ | PEA.L (A7+0x24) 00021014 3f 03 |? | MOVE.W D3,-(A7) 00021016 3f 3c 00 04 |?< | MOVE.W #0x4,-(A7) 0002101a 4e 93 |N | JSR (A3) 0002101c 34 01 |4 | MOVE.W D1,D2 0002101e 48 c2 |H | EXTW.L D2 00021020 2f 02 |/ | MOVE.L D2,-(A7) 00021022 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00021028 58 4f |XO | ADDQ.L #0x4,A7 0002102a 48 78 00 05 |Hx | PEA.L 0x5 0002102e 4e b9 00 01 02 f8 |N | JSR LeftPad(a : String; b : Long) : String 00021034 58 4f |XO | ADDQ.L #0x4,A7 00021036 48 6f 00 18 |Ho | PEA.L (A7+0x18) 0002103a 3f 03 |? | MOVE.W D3,-(A7) 0002103c 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7) 00021040 4e 93 |N | JSR (A3) 00021042 42 82 |B | CLR.L D2 00021044 34 30 08 04 |40 | MOVE.W (A0+D0.L+#0x4),D2 00021048 2f 02 |/ | MOVE.L D2,-(A7) 0002104a 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00021050 58 4f |XO | ADDQ.L #0x4,A7 00021052 48 78 00 05 |Hx | PEA.L 0x5 00021056 4e b9 00 01 02 f8 |N | JSR LeftPad(a : String; b : Long) : String 0002105c 50 4f |PO | ADDQ.L #0x8,A7 0002105e 4e b9 00 01 02 e0 |N | JSR StringCat6(a, b, c, d, e, f : String) : String 00021064 de c5 | | ADDA.W D5,A7 00021066 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002106c de c5 | | ADDA.W D5,A7 0002106e 48 c1 |H | EXTW.L D1 00021070 2e 01 |. | MOVE.L D1,D7 00021072 de fc 00 1a | | ADDA.W #0x1a,A7 00021076 52 86 |R | ADDQ.L #0x1,D6 00021078 bc 84 | | CMP.L D4,D6 0002107a 6f 00 ff 2c |o , | BLE 0x20fa8 0002107e 58 4f |XO | ADDQ.L #0x4,A7 00021080 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00021084 4e 5e |N^ | UNLK A6 00021086 4e 75 |Nu | RTS 00021088 ; -------------------------------------------------------------------------------------- 00021088 ; OMSI PASCAL Function 00021088 ; <LVAR 0x008 4(r)> 00021088 ; <LVAR -0x002 1(rw)> 00021088 ; <LVAR -0x006 @ 4(r)> 00021088 ; -------------------------------------------------------------------------------------- 00021088 4e 56 ff 72 |NV r | LINK.W A6,#0xff72 0002108c bf d5 | | CMPA.L (A5),A7 0002108e 62 06 |b | BHI 0x21096 00021090 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021094 4e 76 |Nv | TRAPV 00021096 de fc 00 7a | z | ADDA.W #0x7a,A7 0002109a 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 0002109e 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 000210a4 74 01 |t | MOVEQ.L #0x01,D2 000210a6 76 0a |v | MOVEQ.L #0x0a,D3 000210a8 78 1e |x | MOVEQ.L #0x1e,D4 000210aa 7e 00 |~ | MOVEQ.L #0x00,D7 000210ac 7c 00 || | MOVEQ.L #0x00,D6 000210ae 2f 3a f1 98 |/: | MOVE.L 0x20248,-(A7) 000210b2 55 4f |UO | SUBQ.L #0x2,A7 000210b4 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000210b8 59 4f |YO | SUBQ.L #0x4,A7 000210ba 48 6f 00 0a |Ho | PEA.L (A7+0xa) 000210be 3f 02 |? | MOVE.W D2,-(A7) 000210c0 3f 3c 00 04 |?< | MOVE.W #0x4,-(A7) 000210c4 4e 93 |N | JSR (A3) 000210c6 50 4f |PO | ADDQ.L #0x8,A7 000210c8 4e ba f2 e6 |N | JSR 0x203b0 000210cc 50 4f |PO | ADDQ.L #0x8,A7 000210ce 10 1f | | MOVE.B (A7)+,D0 000210d0 48 80 |H | EXTB.W D0 000210d2 41 82 |A | CHK.W D2,D0 000210d4 58 4f |XO | ADDQ.L #0x4,A7 000210d6 1d 40 ff fe | @ | MOVE.B D0,(A6-0x2) 000210da 59 4f |YO | SUBQ.L #0x4,A7 000210dc 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000210e0 4e b9 00 02 21 34 |N !4 | JSR 0x22134 000210e6 58 4f |XO | ADDQ.L #0x4,A7 000210e8 7a 01 |z | MOVEQ.L #0x01,D5 000210ea ba 97 | | CMP.L (A7),D5 000210ec 6e 00 00 de |n | BGT 0x211cc 000210f0 59 4f |YO | SUBQ.L #0x4,A7 000210f2 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000210f6 2f 05 |/ | MOVE.L D5,-(A7) 000210f8 4e b9 00 02 2a 50 |N *P | JSR 0x22a50 000210fe 50 4f |PO | ADDQ.L #0x8,A7 00021100 28 5f |(_ | MOVEA.L (A7)+,A4 00021102 1f 02 | | MOVE.B D2,-(A7) 00021104 2f 0c |/ | MOVE.L A4,-(A7) 00021106 48 6e ff fa |Hn | PEA.L (A6-0x6) 0002110a 4e b9 00 01 04 58 |N X | JSR DirFirst(MOD c : Bool; a : String; VAR b : File) 00021110 de c3 | | ADDA.W D3,A7 00021112 20 6e ff fa | n | MOVEA.L (A6-0x6),A0 00021116 b0 c2 | | CMPA.W D2,A0 00021118 67 00 00 ac |g | BEQ 0x211c6 0002111c 42 80 |B | CLR.L D0 0002111e 30 06 |0 | MOVE.W D6,D0 00021120 32 28 00 20 |2( | MOVE.W (A0+0x20),D1 00021124 48 c1 |H | EXTW.L D1 00021126 d0 81 | | ADD.L D1,D0 00021128 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 0002112e 63 02 |c | BLS 0x21132 00021130 4e 4f |NO | TRAP #15 00021132 3c 00 |< | MOVE.W D0,D6 00021134 52 87 |R | ADDQ.L #0x1,D7 00021136 9e c4 | | SUBA.W D4,A7 00021138 22 4f |"O | MOVEA.L A7,A1 0002113a 24 48 |$H | MOVEA.L A0,A2 0002113c 70 1d |p | MOVEQ.L #0x1d,D0 0002113e 12 da | | MOVE.B (A2)+,(A1)+ 00021140 51 c8 ff fc |Q | DBF D0,0x2113e 00021144 9e fc 00 0c | | SUBA.W #0xc,A7 00021148 48 6f 00 0c |Ho | PEA.L (A7+0xc) 0002114c 3f 02 |? | MOVE.W D2,-(A7) 0002114e 3f 04 |? | MOVE.W D4,-(A7) 00021150 4e 93 |N | JSR (A3) 00021152 50 4f |PO | ADDQ.L #0x8,A7 00021154 48 78 00 1f |Hx | PEA.L 0x1f 00021158 4e b9 00 01 02 f8 |N | JSR LeftPad(a : String; b : Long) : String 0002115e 2f 01 |/ | MOVE.L D1,-(A7) 00021160 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00021166 58 4f |XO | ADDQ.L #0x4,A7 00021168 48 78 00 06 |Hx | PEA.L 0x6 0002116c 4e b9 00 01 02 f8 |N | JSR LeftPad(a : String; b : Long) : String 00021172 1e a8 00 3a | : | MOVE.B (A0+0x3a),(A7) 00021176 1f 68 00 3b 00 01 | h ; | MOVE.B (A0+0x3b),(A7+0x1) 0002117c 1f 68 00 3c 00 02 | h < | MOVE.B (A0+0x3c),(A7+0x2) 00021182 1f 68 00 3d 00 03 | h = | MOVE.B (A0+0x3d),(A7+0x3) 00021188 4e b9 00 01 03 08 |N | JSR TimeToText() 0002118e 58 4f |XO | ADDQ.L #0x4,A7 00021190 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 00021196 de fc 00 0c | | ADDA.W #0xc,A7 0002119a 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000211a0 de fc 00 22 | " | ADDA.W #0x22,A7 000211a4 4a 2e ff fe |J. | TST.B (A6-0x2) 000211a8 67 0a |g | BEQ 0x211b4 000211aa 48 68 00 20 |Hh | PEA.L (A0+0x20) 000211ae 4e ba fc d4 |N | JSR 0x20e84 000211b2 58 4f |XO | ADDQ.L #0x4,A7 000211b4 42 27 |B' | CLR.B -(A7) 000211b6 48 6e ff fa |Hn | PEA.L (A6-0x6) 000211ba 4e b9 00 01 04 5c |N \ | JSR DirNext(MOD a : Bool; VAR b : File) 000211c0 5c 4f |\O | ADDQ.L #0x6,A7 000211c2 60 00 ff 4e |` N | BRA 0x21112 000211c6 52 85 |R | ADDQ.L #0x1,D5 000211c8 68 00 ff 20 |h | BVC 0x210ea 000211cc 58 4f |XO | ADDQ.L #0x4,A7 000211ce 0c 87 00 00 00 02 | | CMPI.L #0x00000002,D7 000211d4 6d 7c |m| | BLT 0x21252 000211d6 9e c3 | | SUBA.W D3,A7 000211d8 20 4f | O | MOVEA.L A7,A0 000211da 43 fa f0 70 |C p | LEA.L 0x2024c,A1 000211de 70 08 |p | MOVEQ.L #0x08,D0 000211e0 10 d9 | | MOVE.B (A1)+,(A0)+ 000211e2 51 c8 ff fc |Q | DBF D0,0x211e0 000211e6 41 fa f0 78 |A x | LEA.L 0x20260,A0 000211ea 70 04 |p | MOVEQ.L #0x04,D0 000211ec 3f 20 |? | MOVE.W -(A0),-(A7) 000211ee 51 c8 ff fc |Q | DBF D0,0x211ec 000211f2 51 4f |QO | SUBQ.L #0x8,A7 000211f4 20 4f | O | MOVEA.L A7,A0 000211f6 43 fa f0 68 |C h | LEA.L 0x20260,A1 000211fa 70 06 |p | MOVEQ.L #0x06,D0 000211fc 10 d9 | | MOVE.B (A1)+,(A0)+ 000211fe 51 c8 ff fc |Q | DBF D0,0x211fc 00021202 51 4f |QO | SUBQ.L #0x8,A7 00021204 48 6f 00 1a |Ho | PEA.L (A7+0x1a) 00021208 3f 02 |? | MOVE.W D2,-(A7) 0002120a 3f 3c 00 09 |?< | MOVE.W #0x9,-(A7) 0002120e 4e 93 |N | JSR (A3) 00021210 58 4f |XO | ADDQ.L #0x4,A7 00021212 42 80 |B | CLR.L D0 00021214 30 06 |0 | MOVE.W D6,D0 00021216 2f 00 |/ | MOVE.L D0,-(A7) 00021218 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 0002121e 48 6f 00 18 |Ho | PEA.L (A7+0x18) 00021222 3f 02 |? | MOVE.W D2,-(A7) 00021224 3f 03 |? | MOVE.W D3,-(A7) 00021226 4e 93 |N | JSR (A3) 00021228 2e 87 |. | MOVE.L D7,(A7) 0002122a 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00021230 48 6f 00 18 |Ho | PEA.L (A7+0x18) 00021234 3f 02 |? | MOVE.W D2,-(A7) 00021236 3f 3c 00 07 |?< | MOVE.W #0x7,-(A7) 0002123a 4e 93 |N | JSR (A3) 0002123c 50 4f |PO | ADDQ.L #0x8,A7 0002123e 4e b9 00 01 02 dc |N | JSR StringCat5(a, b, c, d, e : String) : String 00021244 de fc 00 14 | | ADDA.W #0x14,A7 00021248 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002124e de fc 00 20 | | ADDA.W #0x20,A7 00021252 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00021256 4e 5e |N^ | UNLK A6 00021258 4e 75 |Nu | RTS 0002125a ; -------------------------------------------------------------------------------------- 0002125a ; OMSI PASCAL Function 0002125a ; <LVAR 0x008 4(r)> 0002125a ; <LVAR -0x002 @ 1(rw)> 0002125a ; <LVAR -0x024 @> 0002125a ; <LVAR -0x02a 2(w)> 0002125a ; <LVAR -0x030 2(w)> 0002125a ; <LVAR -0x034 @> 0002125a ; <LVAR -0x03c @ 4(r)> 0002125a ; <LVAR -0x048 @ 4(rw)> 0002125a ; -------------------------------------------------------------------------------------- 0002125a 4e 56 ff 28 |NV ( | LINK.W A6,#0xff28 0002125e bf d5 | | CMPA.L (A5),A7 00021260 62 06 |b | BHI 0x21268 00021262 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021266 4e 76 |Nv | TRAPV 00021268 de fc 00 8c | | ADDA.W #0x8c,A7 0002126c 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00021270 45 ee ff b8 |E | LEA.L (A6-0x48),A2 00021274 47 ee ff fe |G | LEA.L (A6-0x2),A3 00021278 74 01 |t | MOVEQ.L #0x01,D2 0002127a 59 4f |YO | SUBQ.L #0x4,A7 0002127c 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00021280 4e b9 00 02 21 34 |N !4 | JSR 0x22134 00021286 58 4f |XO | ADDQ.L #0x4,A7 00021288 2a 1f |* | MOVE.L (A7)+,D5 0002128a ba 82 | | CMP.L D2,D5 0002128c 6c 34 |l4 | BGE 0x212c2 0002128e 9e fc 00 44 | D | SUBA.W #0x44,A7 00021292 20 4f | O | MOVEA.L A7,A0 00021294 43 fa ef d2 |C | LEA.L 0x20268,A1 00021298 70 42 |pB | MOVEQ.L #0x42,D0 0002129a 10 d9 | | MOVE.B (A1)+,(A0)+ 0002129c 51 c8 ff fc |Q | DBF D0,0x2129a 000212a0 59 4f |YO | SUBQ.L #0x4,A7 000212a2 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000212a6 3f 02 |? | MOVE.W D2,-(A7) 000212a8 3f 3c 00 43 |?< C | MOVE.W #0x43,-(A7) 000212ac 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000212b2 50 4f |PO | ADDQ.L #0x8,A7 000212b4 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000212ba de fc 00 48 | H | ADDA.W #0x48,A7 000212be 60 00 02 0e |` | BRA 0x214ce 000212c2 59 4f |YO | SUBQ.L #0x4,A7 000212c4 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000212c8 48 78 00 01 |Hx | PEA.L 0x1 000212cc 4e b9 00 02 2a 50 |N *P | JSR 0x22a50 000212d2 50 4f |PO | ADDQ.L #0x8,A7 000212d4 28 5f |(_ | MOVEA.L (A7)+,A4 000212d6 3f 3a ef f6 |?: | MOVE.W 0x202ce,-(A7) 000212da 59 4f |YO | SUBQ.L #0x4,A7 000212dc 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000212e0 3f 02 |? | MOVE.W D2,-(A7) 000212e2 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7) 000212e6 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000212ec 50 4f |PO | ADDQ.L #0x8,A7 000212ee 24 9f |$ | MOVE.L (A7)+,(A2) 000212f0 2f 0c |/ | MOVE.L A4,-(A7) 000212f2 2f 12 |/ | MOVE.L (A2),-(A7) 000212f4 4e b9 00 01 02 c8 |N | JSR StringEqual(a, b : String) : Byte 000212fa 50 4f |PO | ADDQ.L #0x8,A7 000212fc 10 1f | | MOVE.B (A7)+,D0 000212fe 48 80 |H | EXTB.W D0 00021300 41 82 |A | CHK.W D2,D0 00021302 16 80 | | MOVE.B D0,(A3) 00021304 48 52 |HR | PEA.L (A2) 00021306 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 0002130c 58 4f |XO | ADDQ.L #0x4,A7 0002130e 4a 00 |J | TST.B D0 00021310 67 00 01 48 |g H | BEQ 0x2145a 00021314 0c 85 00 00 00 02 | | CMPI.L #0x00000002,D5 0002131a 67 34 |g4 | BEQ 0x21350 0002131c 9e fc 00 44 | D | SUBA.W #0x44,A7 00021320 20 4f | O | MOVEA.L A7,A0 00021322 43 fa ef 44 |C D | LEA.L 0x20268,A1 00021326 70 42 |pB | MOVEQ.L #0x42,D0 00021328 10 d9 | | MOVE.B (A1)+,(A0)+ 0002132a 51 c8 ff fc |Q | DBF D0,0x21328 0002132e 59 4f |YO | SUBQ.L #0x4,A7 00021330 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021334 3f 02 |? | MOVE.W D2,-(A7) 00021336 3f 3c 00 43 |?< C | MOVE.W #0x43,-(A7) 0002133a 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00021340 50 4f |PO | ADDQ.L #0x8,A7 00021342 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00021348 de fc 00 48 | H | ADDA.W #0x48,A7 0002134c 60 00 01 0a |` | BRA 0x21458 00021350 59 4f |YO | SUBQ.L #0x4,A7 00021352 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00021356 48 78 00 02 |Hx | PEA.L 0x2 0002135a 4e b9 00 02 2a 50 |N *P | JSR 0x22a50 00021360 50 4f |PO | ADDQ.L #0x8,A7 00021362 24 9f |$ | MOVE.L (A7)+,(A2) 00021364 2f 12 |/ | MOVE.L (A2),-(A7) 00021366 48 53 |HS | PEA.L (A3) 00021368 48 6e ff c4 |Hn | PEA.L (A6-0x3c) 0002136c 4e b9 00 01 02 ec |N | JSR String2Long(src : String; VAR status : Bool; VAR retval : Long) 00021372 de fc 00 0c | | ADDA.W #0xc,A7 00021376 4a 13 |J | TST.B (A3) 00021378 66 14 |f | BNE 0x2138e 0002137a 9e fc 00 44 | D | SUBA.W #0x44,A7 0002137e 20 4f | O | MOVEA.L A7,A0 00021380 43 fa ee e6 |C | LEA.L 0x20268,A1 00021384 70 42 |pB | MOVEQ.L #0x42,D0 00021386 10 d9 | | MOVE.B (A1)+,(A0)+ 00021388 51 c8 ff fc |Q | DBF D0,0x21386 0002138c 60 a0 |` | BRA 0x2132e 0002138e 3d 42 ff d0 |=B | MOVE.W D2,(A6-0x30) 00021392 3d 7c 00 02 ff d6 |=| | MOVE.W #0x2,(A6-0x2a) 00021398 48 6e ff cc |Hn | PEA.L (A6-0x34) 0002139c 41 ee ff dc |A | LEA.L (A6-0x24),A0 000213a0 2f 08 |/ | MOVE.L A0,-(A7) 000213a2 3f 3c 00 03 |?< | MOVE.W #0x3,-(A7) 000213a6 4e b9 00 01 02 04 |N | JSR KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W) 000213ac 50 4f |PO | ADDQ.L #0x8,A7 000213ae 3e bc 00 03 |> | MOVE.W #0x3,(A7) 000213b2 48 53 |HS | PEA.L (A3) 000213b4 4e b9 00 01 02 06 |N | JSR KC03_Wait_Disk_IO(a : W; VAR status : Byte) 000213ba 5c 4f |\O | ADDQ.L #0x6,A7 000213bc 28 2e ff c4 |(. | MOVE.L (A6-0x3c),D4 000213c0 76 10 |v | MOVEQ.L #0x10,D3 000213c2 4e b9 00 01 02 94 |N | JSR ?divs_d3_d4 000213c8 2e 04 |. | MOVE.L D4,D7 000213ca 2c 03 |, | MOVE.L D3,D6 000213cc 0c 87 00 00 00 10 | | CMPI.L #0x00000010,D7 000213d2 63 02 |c | BLS 0x213d6 000213d4 4e 4f |NO | TRAP #15 000213d6 20 07 | | MOVE.L D7,D0 000213d8 e3 80 | | ASL.L #0x1,D0 000213da 0c 86 00 00 00 0f | | CMPI.L #0x0000000f,D6 000213e0 63 02 |c | BLS 0x213e4 000213e2 4e 4f |NO | TRAP #15 000213e4 41 f6 08 dc |A | LEA.L (A6+D0.L-#0x24),A0 000213e8 20 06 | | MOVE.L D6,D0 000213ea e6 98 | | ROR.L #0x3,D0 000213ec d0 c0 | | ADDA.W D0,A0 000213ee 48 40 |H@ | SWAP.W D0 000213f0 e7 58 | X | ROL.W #0x3,D0 000213f2 12 10 | | MOVE.B (A0),D1 000213f4 e1 29 | ) | LSL.B D0,D1 000213f6 ee 09 | | LSR.B #0x7,D1 000213f8 16 81 | | MOVE.B D1,(A3) 000213fa 2e 04 |. | MOVE.L D4,D7 000213fc 2c 03 |, | MOVE.L D3,D6 000213fe 4a 87 |J | TST.L D7 00021400 67 2c |g, | BEQ 0x2142e 00021402 4a 01 |J | TST.B D1 00021404 67 28 |g( | BEQ 0x2142e 00021406 1f 02 | | MOVE.B D2,-(A7) 00021408 20 07 | | MOVE.L D7,D0 0002140a 53 80 |S | SUBQ.L #0x1,D0 0002140c 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 00021412 63 02 |c | BLS 0x21416 00021414 4e 4f |NO | TRAP #15 00021416 3f 00 |? | MOVE.W D0,-(A7) 00021418 0c 86 00 00 00 ff | | CMPI.L #0x000000ff,D6 0002141e 63 02 |c | BLS 0x21422 00021420 4e 4f |NO | TRAP #15 00021422 3f 06 |? | MOVE.W D6,-(A7) 00021424 4e b9 00 01 03 fc |N | JSR SetConsolePrinter(a: Byte; b: Word; c: Word) 0002142a 5c 4f |\O | ADDQ.L #0x6,A7 0002142c 60 2a |`* | BRA 0x21458 0002142e 41 fa ee 9e |A | LEA.L 0x202ce,A0 00021432 70 10 |p | MOVEQ.L #0x10,D0 00021434 3f 20 |? | MOVE.W -(A0),-(A7) 00021436 51 c8 ff fc |Q | DBF D0,0x21434 0002143a 59 4f |YO | SUBQ.L #0x4,A7 0002143c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021440 3f 02 |? | MOVE.W D2,-(A7) 00021442 3f 3c 00 22 |?< " | MOVE.W #0x22,-(A7) 00021446 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002144c 50 4f |PO | ADDQ.L #0x8,A7 0002144e 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00021454 de fc 00 26 | & | ADDA.W #0x26,A7 00021458 60 74 |`t | BRA 0x214ce 0002145a 59 4f |YO | SUBQ.L #0x4,A7 0002145c 1e ba ee 72 | r | MOVE.B 0x202d0,(A7) 00021460 1f 7a ee 6f 00 01 | z o | MOVE.B 0x202d1,(A7+0x1) 00021466 1f 7a ee 6a 00 02 | z j | MOVE.B 0x202d2,(A7+0x2) 0002146c 59 4f |YO | SUBQ.L #0x4,A7 0002146e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021472 3f 02 |? | MOVE.W D2,-(A7) 00021474 3f 3c 00 03 |?< | MOVE.W #0x3,-(A7) 00021478 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002147e 50 4f |PO | ADDQ.L #0x8,A7 00021480 24 9f |$ | MOVE.L (A7)+,(A2) 00021482 54 4f |TO | ADDQ.L #0x2,A7 00021484 2f 0c |/ | MOVE.L A4,-(A7) 00021486 2f 12 |/ | MOVE.L (A2),-(A7) 00021488 4e b9 00 01 02 c8 |N | JSR StringEqual(a, b : String) : Byte 0002148e 50 4f |PO | ADDQ.L #0x8,A7 00021490 10 1f | | MOVE.B (A7)+,D0 00021492 48 80 |H | EXTB.W D0 00021494 41 82 |A | CHK.W D2,D0 00021496 16 80 | | MOVE.B D0,(A3) 00021498 48 52 |HR | PEA.L (A2) 0002149a 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000214a0 58 4f |XO | ADDQ.L #0x4,A7 000214a2 4a 00 |J | TST.B D0 000214a4 67 04 |g | BEQ 0x214aa 000214a6 ba 82 | | CMP.L D2,D5 000214a8 67 16 |g | BEQ 0x214c0 000214aa 9e fc 00 44 | D | SUBA.W #0x44,A7 000214ae 20 4f | O | MOVEA.L A7,A0 000214b0 43 fa ed b6 |C | LEA.L 0x20268,A1 000214b4 70 42 |pB | MOVEQ.L #0x42,D0 000214b6 10 d9 | | MOVE.B (A1)+,(A0)+ 000214b8 51 c8 ff fc |Q | DBF D0,0x214b6 000214bc 60 00 fd e2 |` | BRA 0x212a0 000214c0 42 27 |B' | CLR.B -(A7) 000214c2 42 67 |Bg | CLR.W -(A7) 000214c4 42 67 |Bg | CLR.W -(A7) 000214c6 4e b9 00 01 03 fc |N | JSR SetConsolePrinter(a: Byte; b: Word; c: Word) 000214cc 5c 4f |\O | ADDQ.L #0x6,A7 000214ce 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 000214d2 4e 5e |N^ | UNLK A6 000214d4 4e 75 |Nu | RTS 000214d6 ; -------------------------------------------------------------------------------------- 000214d6 ; OMSI PASCAL Function 000214d6 ; <LVAR 0x00c 4(w)> 000214d6 ; <LVAR 0x008 4(r)> 000214d6 ; <LVAR -0x008 @ 4(rw)> 000214d6 ; -------------------------------------------------------------------------------------- 000214d6 4e 56 ff ae |NV | LINK.W A6,#0xffae 000214da bf d5 | | CMPA.L (A5),A7 000214dc 62 06 |b | BHI 0x214e4 000214de 44 fc 00 02 |D | MOVE.W #0x2,CCR 000214e2 4e 76 |Nv | TRAPV 000214e4 de fc 00 46 | F | ADDA.W #0x46,A7 000214e8 48 e7 fb e0 |H | MOVEM.L A2+A1+A0+D7+D6+D4+D3+D2+D1+D0,-(A7) 000214ec 45 ee ff f8 |E | LEA.L (A6-0x8),A2 000214f0 72 0a |r | MOVEQ.L #0x0a,D1 000214f2 74 01 |t | MOVEQ.L #0x01,D2 000214f4 2d 7c ff ff ff ff 00 0c |-| | MOVE.L #0xffffffff,(A6+0xc) 000214fc 7e 01 |~ | MOVEQ.L #0x01,D7 000214fe 20 07 | | MOVE.L D7,D0 00021500 53 80 |S | SUBQ.L #0x1,D0 00021502 0c 80 00 00 00 09 | | CMPI.L #0x00000009,D0 00021508 63 02 |c | BLS 0x2150c 0002150a 4e 4f |NO | TRAP #15 0002150c 28 00 |( | MOVE.L D0,D4 0002150e 76 0a |v | MOVEQ.L #0x0a,D3 00021510 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4 00021516 41 fa ee 34 |A 4 | LEA.L 0x2034c,A0 0002151a 9e c1 | | SUBA.W D1,A7 0002151c 22 4f |"O | MOVEA.L A7,A1 0002151e 41 f0 48 00 |A H | LEA.L (A0+D4.L),A0 00021522 70 09 |p | MOVEQ.L #0x09,D0 00021524 12 d8 | | MOVE.B (A0)+,(A1)+ 00021526 51 c8 ff fc |Q | DBF D0,0x21524 0002152a 59 4f |YO | SUBQ.L #0x4,A7 0002152c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021530 3f 02 |? | MOVE.W D2,-(A7) 00021532 3f 01 |? | MOVE.W D1,-(A7) 00021534 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002153a 50 4f |PO | ADDQ.L #0x8,A7 0002153c 24 9f |$ | MOVE.L (A7)+,(A2) 0002153e 58 4f |XO | ADDQ.L #0x4,A7 00021540 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7) 00021544 2f 12 |/ | MOVE.L (A2),-(A7) 00021546 4e b9 00 01 02 c8 |N | JSR StringEqual(a, b : String) : Byte 0002154c 50 4f |PO | ADDQ.L #0x8,A7 0002154e 10 1f | | MOVE.B (A7)+,D0 00021550 48 80 |H | EXTB.W D0 00021552 41 82 |A | CHK.W D2,D0 00021554 1c 00 | | MOVE.B D0,D6 00021556 48 52 |HR | PEA.L (A2) 00021558 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 0002155e 58 4f |XO | ADDQ.L #0x4,A7 00021560 4a 06 |J | TST.B D6 00021562 67 06 |g | BEQ 0x2156a 00021564 2d 47 00 0c |-G | MOVE.L D7,(A6+0xc) 00021568 60 06 |` | BRA 0x21570 0002156a 52 87 |R | ADDQ.L #0x1,D7 0002156c be 81 | | CMP.L D1,D7 0002156e 6f 8e |o | BLE 0x214fe 00021570 4c df 07 df |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D6+D7+A0+A1+A2 00021574 4e 5e |N^ | UNLK A6 00021576 4e 75 |Nu | RTS 00021578 ; -------------------------------------------------------------------------------------- 00021578 ; OMSI PASCAL Function 00021578 ; <LVAR 0x010 4(r)> 00021578 ; <LVAR 0x00c 4(r)> 00021578 ; <LVAR 0x008 4(r)> 00021578 ; -------------------------------------------------------------------------------------- 00021578 4e 56 ff e4 |NV | LINK.W A6,#0xffe4 0002157c bf d5 | | CMPA.L (A5),A7 0002157e 62 06 |b | BHI 0x21586 00021580 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021584 4e 76 |Nv | TRAPV 00021586 de fc 00 1c | | ADDA.W #0x1c,A7 0002158a 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7) 0002158e 43 ee 00 0c |C | LEA.L (A6+0xc),A1 00021592 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00021596 10 bc 00 01 | | MOVE.B #0x01,(A0) 0002159a 59 4f |YO | SUBQ.L #0x4,A7 0002159c 2f 2e 00 10 |/. | MOVE.L (A6+0x10),-(A7) 000215a0 4e ba ff 34 |N 4 | JSR 0x214d6 000215a4 58 4f |XO | ADDQ.L #0x4,A7 000215a6 20 1f | | MOVE.L (A7)+,D0 000215a8 53 80 |S | SUBQ.L #0x1,D0 000215aa 0c 80 00 00 00 09 | | CMPI.L #0x00000009,D0 000215b0 62 6c |bl | BHI 0x2161e 000215b2 d0 40 | @ | ADD.W D0,D0 000215b4 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 000215bc 00 14 | | .CONST 0x14 ; [0x0] -> 0x215d0 000215be 00 1e | | .CONST 0x1e ; [0x1] -> 0x215da 000215c0 00 26 | & | .CONST 0x26 ; [0x2] -> 0x215e2 000215c2 00 2e | . | .CONST 0x2e ; [0x3] -> 0x215ea 000215c4 00 36 | 6 | .CONST 0x36 ; [0x4] -> 0x215f2 000215c6 00 3e | > | .CONST 0x3e ; [0x5] -> 0x215fa 000215c8 00 46 | F | .CONST 0x46 ; [0x6] -> 0x21602 000215ca 00 4e | N | .CONST 0x4e ; [0x7] -> 0x2160a 000215cc 00 54 | T | .CONST 0x54 ; [0x8] -> 0x21610 000215ce 00 5a | Z | .CONST 0x5a ; [0x9] -> 0x21616 000215d0 switch@0x215b4[0x0]: 000215d0 2f 11 |/ | MOVE.L (A1),-(A7) 000215d2 4e ba f7 c2 |N | JSR 0x20d96 000215d6 58 4f |XO | ADDQ.L #0x4,A7 000215d8 60 46 |`F | BRA 0x21620 000215da switch@0x215b4[0x1]: 000215da 2f 11 |/ | MOVE.L (A1),-(A7) 000215dc 4e ba fa aa |N | JSR 0x21088 000215e0 60 f4 |` | BRA 0x215d6 000215e2 switch@0x215b4[0x2]: 000215e2 2f 11 |/ | MOVE.L (A1),-(A7) 000215e4 4e ba ee 8a |N | JSR 0x20470 000215e8 60 ec |` | BRA 0x215d6 000215ea switch@0x215b4[0x3]: 000215ea 2f 11 |/ | MOVE.L (A1),-(A7) 000215ec 4e ba f0 68 |N h | JSR 0x20656 000215f0 60 e4 |` | BRA 0x215d6 000215f2 switch@0x215b4[0x4]: 000215f2 2f 11 |/ | MOVE.L (A1),-(A7) 000215f4 4e ba f4 7c |N | | JSR 0x20a72 000215f8 60 dc |` | BRA 0x215d6 000215fa switch@0x215b4[0x5]: 000215fa 2f 11 |/ | MOVE.L (A1),-(A7) 000215fc 4e ba f5 5c |N \ | JSR 0x20b5a 00021600 60 d4 |` | BRA 0x215d6 00021602 switch@0x215b4[0x6]: 00021602 2f 11 |/ | MOVE.L (A1),-(A7) 00021604 4e ba f1 e4 |N | JSR 0x207ea 00021608 60 cc |` | BRA 0x215d6 0002160a switch@0x215b4[0x7]: 0002160a 4e ba f2 c2 |N | JSR 0x208ce 0002160e 60 10 |` | BRA 0x21620 00021610 switch@0x215b4[0x8]: 00021610 4e ba f3 92 |N | JSR 0x209a4 00021614 60 0a |` | BRA 0x21620 00021616 switch@0x215b4[0x9]: 00021616 2f 11 |/ | MOVE.L (A1),-(A7) 00021618 4e ba fc 40 |N @ | JSR 0x2125a 0002161c 60 b8 |` | BRA 0x215d6 0002161e 42 10 |B | CLR.B (A0) 00021620 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1 00021624 4e 5e |N^ | UNLK A6 00021626 4e 75 |Nu | RTS 00021628 ; -------------------------------------------------------------------------------------- 00021628 ; OMSI PASCAL Function 00021628 ; <LVAR 0x008 4(r)> 00021628 ; -------------------------------------------------------------------------------------- 00021628 4e 56 ff e8 |NV | LINK.W A6,#0xffe8 0002162c bf d5 | | CMPA.L (A5),A7 0002162e 62 06 |b | BHI 0x21636 00021630 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021634 4e 76 |Nv | TRAPV 00021636 de fc 00 18 | | ADDA.W #0x18,A7 0002163a 48 e7 c0 c0 |H | MOVEM.L A1+A0+D1+D0,-(A7) 0002163e 72 01 |r | MOVEQ.L #0x01,D1 00021640 4e b9 00 01 03 98 |N | JSR FSCALL_10398 00021646 3f 01 |? | MOVE.W D1,-(A7) 00021648 1f 01 | | MOVE.B D1,-(A7) 0002164a 4e b9 00 01 02 10 |N | JSR KC08_PortSomething(port: Word; b: Byte) 00021650 58 4f |XO | ADDQ.L #0x4,A7 00021652 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00021656 43 fa ec e0 |C | LEA.L 0x20338,A1 0002165a 70 09 |p | MOVEQ.L #0x09,D0 0002165c 10 d9 | | MOVE.B (A1)+,(A0)+ 0002165e 51 c8 ff fc |Q | DBF D0,0x2165c 00021662 4c df 03 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1 00021666 4e 5e |N^ | UNLK A6 00021668 4e 75 |Nu | RTS 0002166a ; -------------------------------------------------------------------------------------- 0002166a ; COMMAND TABLE 0002166a ; -------------------------------------------------------------------------------------- 0002166a COMMAND_TABLE_2166a: 0002166a 21 40 23 24 25 5e 26 2a |!@#$%^&*| .TXT '!@#$%^&*()' 00021674 57 52 49 54 45 20 20 20 |WRITE | .TXT 'WRITE ' 0002167e 42 59 45 20 20 20 20 20 |BYE | .TXT 'BYE ' 00021688 48 45 41 50 20 20 20 20 |HEAP | .TXT 'HEAP ' 00021692 48 45 4c 50 20 20 20 20 |HELP | .TXT 'HELP ' 0002169c 41 42 4f 52 54 20 20 20 |ABORT | .TXT 'ABORT ' 000216a6 43 4f 4d 4d 45 4e 54 20 |COMMENT | .TXT 'COMMENT ' 000216b0 53 45 54 20 20 20 20 20 |SET | .TXT 'SET ' 000216ba 56 41 52 20 20 20 20 20 |VAR | .TXT 'VAR ' 000216c4 56 41 52 53 20 20 20 20 |VARS | .TXT 'VARS ' 000216ce 45 51 20 20 20 20 20 20 |EQ | .TXT 'EQ ' 000216d8 4e 45 20 20 20 20 20 20 |NE | .TXT 'NE ' 000216e2 43 41 53 45 20 20 20 20 |CASE | .TXT 'CASE ' 000216ec 49 4e 53 45 52 54 20 20 |INSERT | .TXT 'INSERT ' 000216f6 45 58 54 52 41 43 54 20 |EXTRACT | .TXT 'EXTRACT ' 00021700 23 43 41 53 45 20 20 20 |#CASE | .TXT '#CASE ' 0002170a 23 45 51 20 20 20 20 20 |#EQ | .TXT '#EQ ' 00021714 23 4e 45 20 20 20 20 20 |#NE | .TXT '#NE ' 0002171e 23 4c 54 20 20 20 20 20 |#LT | .TXT '#LT ' 00021728 23 47 54 20 20 20 20 20 |#GT | .TXT '#GT ' 00021732 23 4c 45 20 20 20 20 20 |#LE | .TXT '#LE ' 0002173c 23 47 45 20 20 20 20 20 |#GE | .TXT '#GE ' 00021746 41 44 44 20 20 20 20 20 |ADD | .TXT 'ADD ' 00021750 53 55 42 20 20 20 20 20 |SUB | .TXT 'SUB ' 0002175a 4d 55 4c 20 20 20 20 20 |MUL | .TXT 'MUL ' 00021764 44 49 56 20 20 20 20 20 |DIV | .TXT 'DIV ' 0002176e 4d 4f 44 20 20 20 20 20 |MOD | .TXT 'MOD ' 00021778 4f 52 20 20 20 20 20 20 |OR | .TXT 'OR ' 00021782 41 4e 44 20 20 20 20 20 |AND | .TXT 'AND ' 0002178c 58 4f 52 20 20 20 20 20 |XOR | .TXT 'XOR ' 00021796 4c 53 48 49 46 54 20 20 |LSHIFT | .TXT 'LSHIFT ' 000217a0 52 53 48 49 46 54 20 20 |RSHIFT | .TXT 'RSHIFT ' 000217aa 4e 4f 54 20 20 20 20 20 |NOT | .TXT 'NOT ' 000217b4 23 49 4e 53 45 52 54 20 |#INSERT | .TXT '#INSERT ' 000217be 23 45 58 54 52 41 43 54 |#EXTRACT| .TXT '#EXTRACT ' 000217c8 52 45 41 44 20 20 20 20 |READ | .TXT 'READ ' 000217d2 4b 49 4c 4c 20 20 20 20 |KILL | .TXT 'KILL ' 000217dc 50 55 53 48 20 20 20 20 |PUSH | .TXT 'PUSH ' 000217e6 4c 45 56 45 4c 20 20 20 |LEVEL | .TXT 'LEVEL ' 000217f0 43 4f 4e 56 45 52 54 20 |CONVERT | .TXT 'CONVERT ' 000217fa 43 4f 55 4e 54 5f 4f 4e |COUNT_ON| .TXT 'COUNT_ONES' 00021804 52 45 50 45 41 54 20 20 |REPEAT | .TXT 'REPEAT ' 0002180e 4d 4f 44 45 4c 20 20 20 |MODEL | .TXT 'MODEL ' 00021818 41 53 43 49 49 20 20 20 |ASCII | .TXT 'ASCII ' 00021822 57 72 6f 6e 67 20 6e 75 |Wrong nu| .TXT 'Wrong number of arguments for :_' 00021842 45 51 2c 4e 45 2c |EQ,NE, | .XXX[0x6] 00021848 23 45 51 2c 23 4e 45 2c |#EQ,#NE,| .XXX[0x38] 00021850 23 4c 54 2c 23 47 54 2c |#LT,#GT,| 00021858 23 4c 45 2c 23 47 45 2c |#LE,#GE,| 00021860 45 4c 53 45 5d 45 4e 44 |ELSE]END| 00021868 5d 43 41 53 45 2c 23 43 |]CASE,#C| 00021870 41 53 45 2c 57 48 45 4e |ASE,WHEN| 00021878 2c 45 4e 44 43 41 53 45 |,ENDCASE| 00021880 5d 20 |] | .XXX[0x2] 00021882 45 76 61 6c 75 61 74 69 |Evaluati| .TXT 'Evaluation buffer overflow. ' 0002189e 55 6e 62 61 6c 61 6e 63 |Unbalanc| .TXT 'Unbalanced [ELSE] or [END]! ' 000218ba 5b 57 48 45 4e 20 5d 20 |[WHEN ] | .TXT '[WHEN ] ' 000218c4 4e 6f 20 63 61 73 65 20 |No case | .TXT 'No case alternative found!' 000218de 4e 6f 20 5b 45 4e 44 43 |No [ENDC| .TXT 'No [ENDCASE] found! ' 000218f2 4e 6f 20 68 65 6c 70 20 |No help | .TXT 'No help available for_' 00021908 2e 48 4c 50 |.HLP | .TXT '.HLP' 0002190c 54 6f 6f 20 66 65 77 20 |Too few | .TXT 'Too few arguments for SET ' 00021926 55 6e 6b 6e 6f 77 6e 20 |Unknown | .TXT 'Unknown variable :_ ' 0002193a 20 69 73 20 6e 6f 74 20 | is not | .TXT ' is not a program.' 0002194c 43 4c |CL | .TXT 'CL' 0002194e 49 20 |I | .XXX[0x2] 00021950 2e 4d 32 30 30 20 |.M200 | .TXT '.M200 ' 00021956 53 54 |ST | .TXT 'ST' 00021958 41 54 |AT | .TXT 'AT' 0002195a 55 53 |US | .TXT 'US' 0002195c 52 45 |RE | .TXT 'RE' 0002195e 53 55 |SU | .TXT 'SU' 00021960 4c 54 |LT | .TXT 'LT' 00021962 4f 66 66 73 65 74 2f 4c |Offset/L| .TXT 'Offset/Length error in [INSERT] ' 00021982 52 45 50 45 41 54 69 6e |REPEATin| .TXT 'REPEATing, type ^G to exit. ' 0002199e 41 53 43 49 49 20 61 72 |ASCII ar| .TXT 'ASCII argument out of range.' 000219ba 4e 6f 74 20 61 20 63 6f |Not a co| .TXT 'Not a command or macro :_ ' 000219d4 49 6c 6c 65 67 61 6c 20 |Illegal | .TXT 'Illegal marker argument ' 000219ec 53 77 69 74 63 68 20 65 |Switch e| .TXT 'Switch exclusion is unimplemented.' 00021a0e 49 6c 6c 65 67 61 6c 20 |Illegal | .TXT 'Illegal argument marker.' 00021a26 49 6c 6c 65 67 61 6c 20 |Illegal | .TXT 'Illegal argument marker.' 00021a3e 5b 49 4e 49 54 5d 5b 20 |[INIT][ | .TXT '[INIT][ ' 00021a46 5d 5b 42 59 45 5d 3b 20 |][BYE]; | .TXT '][BYE]; ' 00021a4e 5b 49 4e 49 54 5d 3b 20 |[INIT]; | .TXT '[INIT]; ' 00021a56 3e 5f |>_ | .TXT '>_' 00021a58 5b 20 |[ | .TXT '[ ' 00021a5a 5d 3b |]; | .TXT '];' 00021a5c ; -------------------------------------------------------------------------------------- 00021a5c ; COMMAND TABLE 00021a5c ; -------------------------------------------------------------------------------------- 00021a5c COMMAND_TABLE_21a5c: 00021a5c 21 40 23 24 25 5e 26 2a |!@#$%^&*| .TXT '!@#$%^&*()' 00021a66 57 52 49 54 45 20 20 20 |WRITE | .TXT 'WRITE ' 00021a70 42 59 45 20 20 20 20 20 |BYE | .TXT 'BYE ' 00021a7a 48 45 41 50 20 20 20 20 |HEAP | .TXT 'HEAP ' 00021a84 48 45 4c 50 20 20 20 20 |HELP | .TXT 'HELP ' 00021a8e 41 42 4f 52 54 20 20 20 |ABORT | .TXT 'ABORT ' 00021a98 43 4f 4d 4d 45 4e 54 20 |COMMENT | .TXT 'COMMENT ' 00021aa2 53 45 54 20 20 20 20 20 |SET | .TXT 'SET ' 00021aac 56 41 52 20 20 20 20 20 |VAR | .TXT 'VAR ' 00021ab6 56 41 52 53 20 20 20 20 |VARS | .TXT 'VARS ' 00021ac0 45 51 20 20 20 20 20 20 |EQ | .TXT 'EQ ' 00021aca 4e 45 20 20 20 20 20 20 |NE | .TXT 'NE ' 00021ad4 43 41 53 45 20 20 20 20 |CASE | .TXT 'CASE ' 00021ade 49 4e 53 45 52 54 20 20 |INSERT | .TXT 'INSERT ' 00021ae8 45 58 54 52 41 43 54 20 |EXTRACT | .TXT 'EXTRACT ' 00021af2 23 43 41 53 45 20 20 20 |#CASE | .TXT '#CASE ' 00021afc 23 45 51 20 20 20 20 20 |#EQ | .TXT '#EQ ' 00021b06 23 4e 45 20 20 20 20 20 |#NE | .TXT '#NE ' 00021b10 23 4c 54 20 20 20 20 20 |#LT | .TXT '#LT ' 00021b1a 23 47 54 20 20 20 20 20 |#GT | .TXT '#GT ' 00021b24 23 4c 45 20 20 20 20 20 |#LE | .TXT '#LE ' 00021b2e 23 47 45 20 20 20 20 20 |#GE | .TXT '#GE ' 00021b38 41 44 44 20 20 20 20 20 |ADD | .TXT 'ADD ' 00021b42 53 55 42 20 20 20 20 20 |SUB | .TXT 'SUB ' 00021b4c 4d 55 4c 20 20 20 20 20 |MUL | .TXT 'MUL ' 00021b56 44 49 56 20 20 20 20 20 |DIV | .TXT 'DIV ' 00021b60 4d 4f 44 20 20 20 20 20 |MOD | .TXT 'MOD ' 00021b6a 4f 52 20 20 20 20 20 20 |OR | .TXT 'OR ' 00021b74 41 4e 44 20 20 20 20 20 |AND | .TXT 'AND ' 00021b7e 58 4f 52 20 20 20 20 20 |XOR | .TXT 'XOR ' 00021b88 4c 53 48 49 46 54 20 20 |LSHIFT | .TXT 'LSHIFT ' 00021b92 52 53 48 49 46 54 20 20 |RSHIFT | .TXT 'RSHIFT ' 00021b9c 4e 4f 54 20 20 20 20 20 |NOT | .TXT 'NOT ' 00021ba6 23 49 4e 53 45 52 54 20 |#INSERT | .TXT '#INSERT ' 00021bb0 23 45 58 54 52 41 43 54 |#EXTRACT| .TXT '#EXTRACT ' 00021bba 52 45 41 44 20 20 20 20 |READ | .TXT 'READ ' 00021bc4 4b 49 4c 4c 20 20 20 20 |KILL | .TXT 'KILL ' 00021bce 50 55 53 48 20 20 20 20 |PUSH | .TXT 'PUSH ' 00021bd8 4c 45 56 45 4c 20 20 20 |LEVEL | .TXT 'LEVEL ' 00021be2 43 4f 4e 56 45 52 54 20 |CONVERT | .TXT 'CONVERT ' 00021bec 43 4f 55 4e 54 5f 4f 4e |COUNT_ON| .TXT 'COUNT_ONES' 00021bf6 52 45 50 45 41 54 20 20 |REPEAT | .TXT 'REPEAT ' 00021c00 4d 4f 44 45 4c 20 20 20 |MODEL | .TXT 'MODEL ' 00021c0a 41 53 43 49 49 20 20 20 |ASCII | .TXT 'ASCII ' 00021c14 a5 34 45 73 | 4Es | .XXX[0x4] 00021c18 34 22 46 75 33 33 33 33 |4"Fu3333| .XXX[0x98] 00021c20 33 32 33 66 37 84 44 57 |323f7 DW| 00021c28 a6 55 0f 00 f0 ff 10 22 | U "| 00021c30 14 31 22 22 22 22 22 22 | 1""""""| 00021c38 22 22 14 3f 1f 03 10 0f |"" ? | 00021c40 00 00 00 00 ff ff ff ff | | 00021c48 00 01 01 00 01 01 00 01 | | 00021c50 02 00 00 01 02 00 01 02 | | 00021c58 00 01 14 06 01 14 08 14 | | 00021c60 0f 02 03 14 14 08 14 0f | | 00021c68 14 14 14 14 14 14 14 04 | | 00021c70 14 05 14 14 14 14 14 14 | | 00021c78 14 14 14 14 14 04 14 14 | | 00021c80 14 14 14 14 04 14 07 14 | | 00021c88 14 14 14 04 14 14 14 14 | | 00021c90 14 14 0c 14 14 09 14 14 | | 00021c98 14 0d 14 14 14 0b 0a 14 | | 00021ca0 0e 14 14 14 08 14 14 0c | | 00021ca8 14 14 09 14 14 14 14 14 | | 00021cb0 14 14 14 14 14 14 14 14 | | .BLANK 14[0x10] 00021cc0 14 14 14 10 14 14 11 14 | | .XXX[0x20] 00021cc8 14 14 14 14 14 14 14 14 | | 00021cd0 14 13 14 14 14 14 14 12 | | 00021cd8 14 14 14 11 14 14 14 14 | | 00021ce0 14 14 14 14 14 14 | | .XXX[0x6] 00021ce6 ; -------------------------------------------------------------------------------------- 00021ce6 ; OMSI PASCAL Function 00021ce6 ; <LVAR 0x008 4(r)> 00021ce6 ; <LVAR -0x004 @ 4(w)> 00021ce6 ; -------------------------------------------------------------------------------------- 00021ce6 4e 56 ff e8 |NV | LINK.W A6,#0xffe8 00021cea bf d5 | | CMPA.L (A5),A7 00021cec 62 06 |b | BHI 0x21cf4 00021cee 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021cf2 4e 76 |Nv | TRAPV 00021cf4 de fc 00 10 | | ADDA.W #0x10,A7 00021cf8 48 e7 00 08 |H | MOVEM.L A4,-(A7) 00021cfc 28 6e 00 08 |(n | MOVEA.L (A6+0x8),A4 00021d00 b8 fc 00 01 | | CMPA.W #0x1,A4 00021d04 67 1a |g | BEQ 0x21d20 00021d06 2d 4c ff fc |-L | MOVE.L A4,(A6-0x4) 00021d0a 28 6c 00 08 |(l | MOVEA.L (A4+0x8),A4 00021d0e 48 6e ff fc |Hn | PEA.L (A6-0x4) 00021d12 48 78 00 0c |Hx | PEA.L 0xc 00021d16 4e b9 00 01 02 a8 |N | JSR Free2(a : Pointer; b : Long) 00021d1c 50 4f |PO | ADDQ.L #0x8,A7 00021d1e 60 e0 |` | BRA 0x21d00 00021d20 4c df 10 00 |L | MOVEM.L (A7)+,A4 00021d24 4e 5e |N^ | UNLK A6 00021d26 4e 75 |Nu | RTS 00021d28 ; -------------------------------------------------------------------------------------- 00021d28 ; OMSI PASCAL Function 00021d28 ; <LVAR 0x008 4(r)> 00021d28 ; -------------------------------------------------------------------------------------- 00021d28 4e 56 ff f0 |NV | LINK.W A6,#0xfff0 00021d2c bf d5 | | CMPA.L (A5),A7 00021d2e 62 06 |b | BHI 0x21d36 00021d30 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021d34 4e 76 |Nv | TRAPV 00021d36 de fc 00 10 | | ADDA.W #0x10,A7 00021d3a 48 e7 00 80 |H | MOVEM.L A0,-(A7) 00021d3e 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00021d42 b0 fc 00 01 | | CMPA.W #0x1,A0 00021d46 67 0a |g | BEQ 0x21d52 00021d48 2f 08 |/ | MOVE.L A0,-(A7) 00021d4a 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00021d50 58 4f |XO | ADDQ.L #0x4,A7 00021d52 2e 6d 00 08 |.m | MOVEA.L (A5+0x8),A7 00021d56 3c 7c 00 00 |<| | MOVEA.W #0x0,A6 00021d5a 4e f9 00 02 56 04 |N V | JMP 0x25604 00021d60 4c df 01 00 4e 5e 4e 75 |L N^Nu| .XXX[0x20] 00021d68 4e 56 ff fc bf d5 62 06 |NV b | 00021d70 44 fc 00 02 4e 76 de fc |D Nv | 00021d78 00 04 2d 79 00 02 68 32 | -y h2| 00021d80 00 08 4e 5e 4e 75 | N^Nu | .XXX[0x6] 00021d86 ; -------------------------------------------------------------------------------------- 00021d86 ; OMSI PASCAL Function 00021d86 ; <LVAR 0x008 1(rw)> 00021d86 ; -------------------------------------------------------------------------------------- 00021d86 4e 56 ff f0 |NV | LINK.W A6,#0xfff0 00021d8a bf d5 | | CMPA.L (A5),A7 00021d8c 62 06 |b | BHI 0x21d94 00021d8e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021d92 4e 76 |Nv | TRAPV 00021d94 de fc 00 10 | | ADDA.W #0x10,A7 00021d98 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 00021d9c 20 39 00 02 68 32 | 9 h2 | MOVE.L 0x26832,D0 00021da2 b0 b9 00 02 68 36 | h6 | CMP.L 0x26836,D0 00021da8 6f 06 |o | BLE 0x21db0 00021daa 42 2e 00 08 |B. | CLR.B (A6+0x8) 00021dae 60 0c |` | BRA 0x21dbc 00021db0 41 f9 00 02 58 2a |A X* | LEA.L 0x2582a,A0 00021db6 1d 70 08 07 00 08 | p | MOVE.B (A0+D0.L+#0x7),(A6+0x8) 00021dbc 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 00021dc0 4e 5e |N^ | UNLK A6 00021dc2 4e 75 |Nu | RTS 00021dc4 ; -------------------------------------------------------------------------------------- 00021dc4 ; OMSI PASCAL Function 00021dc4 ; <LVAR 0x008 1(rw)> 00021dc4 ; -------------------------------------------------------------------------------------- 00021dc4 4e 56 ff ec |NV | LINK.W A6,#0xffec 00021dc8 bf d5 | | CMPA.L (A5),A7 00021dca 62 06 |b | BHI 0x21dd2 00021dcc 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021dd0 4e 76 |Nv | TRAPV 00021dd2 de fc 00 14 | | ADDA.W #0x14,A7 00021dd6 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7) 00021dda 43 f9 00 02 68 32 |C h2 | LEA.L 0x26832,A1 00021de0 20 11 | | MOVE.L (A1),D0 00021de2 b0 b9 00 02 68 36 | h6 | CMP.L 0x26836,D0 00021de8 6f 06 |o | BLE 0x21df0 00021dea 42 2e 00 08 |B. | CLR.B (A6+0x8) 00021dee 60 0c |` | BRA 0x21dfc 00021df0 41 f9 00 02 58 2a |A X* | LEA.L 0x2582a,A0 00021df6 1d 70 08 07 00 08 | p | MOVE.B (A0+D0.L+#0x7),(A6+0x8) 00021dfc 52 80 |R | ADDQ.L #0x1,D0 00021dfe 22 80 |" | MOVE.L D0,(A1) 00021e00 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1 00021e04 4e 5e |N^ | UNLK A6 00021e06 4e 75 |Nu | RTS 00021e08 ; -------------------------------------------------------------------------------------- 00021e08 ; OMSI PASCAL Function 00021e08 ; <LVAR 0x00c 4(r)> 00021e08 ; <LVAR 0x008 4(r)> 00021e08 ; -------------------------------------------------------------------------------------- 00021e08 4e 56 ff c0 |NV | LINK.W A6,#0xffc0 00021e0c bf d5 | | CMPA.L (A5),A7 00021e0e 62 06 |b | BHI 0x21e16 00021e10 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021e14 4e 76 |Nv | TRAPV 00021e16 de fc 00 38 | 8 | ADDA.W #0x38,A7 00021e1a 48 e7 ff f0 |H | MOVEM.L A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00021e1e 45 ee 00 08 |E | LEA.L (A6+0x8),A2 00021e22 47 f9 00 02 68 32 |G h2 | LEA.L 0x26832,A3 00021e28 72 5b |r[ | MOVEQ.L #0x5b,D1 00021e2a 74 02 |t | MOVEQ.L #0x02,D2 00021e2c 76 2c |v, | MOVEQ.L #0x2c,D3 00021e2e 78 3b |x; | MOVEQ.L #0x3b,D4 00021e30 55 4f |UO | SUBQ.L #0x2,A7 00021e32 4e ba ff 52 |N R | JSR 0x21d86 00021e36 10 1f | | MOVE.B (A7)+,D0 00021e38 b0 01 | | CMP.B D1,D0 00021e3a 66 0a |f | BNE 0x21e46 00021e3c 4e b9 00 02 51 0e |N Q | JSR 0x2510e 00021e42 60 00 00 92 |` | BRA 0x21ed6 00021e46 2c 13 |, | MOVE.L (A3),D6 00021e48 55 4f |UO | SUBQ.L #0x2,A7 00021e4a 4e ba ff 78 |N x | JSR 0x21dc4 00021e4e 1a 1f | | MOVE.B (A7)+,D5 00021e50 66 18 |f | BNE 0x21e6a 00021e52 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 00021e56 43 fa fd e8 |C | LEA.L 0x21c40,A1 00021e5a 70 07 |p | MOVEQ.L #0x07,D0 00021e5c 10 d9 | | MOVE.B (A1)+,(A0)+ 00021e5e 51 c8 ff fc |Q | DBF D0,0x21e5c 00021e62 20 52 | R | MOVEA.L (A2),A0 00021e64 10 82 | | MOVE.B D2,(A0) 00021e66 60 72 |`r | BRA 0x21eda 00021e68 60 5c |`\ | .XXX[0x2] 00021e6a ba 03 | | CMP.B D3,D5 00021e6c 66 08 |f | BNE 0x21e76 00021e6e 20 52 | R | MOVEA.L (A2),A0 00021e70 10 bc 00 03 | | MOVE.B #0x03,(A0) 00021e74 60 50 |`P | BRA 0x21ec6 00021e76 ba 04 | | CMP.B D4,D5 00021e78 66 08 |f | BNE 0x21e82 00021e7a 20 52 | R | MOVEA.L (A2),A0 00021e7c 10 bc 00 01 | | MOVE.B #0x01,(A0) 00021e80 60 44 |`D | BRA 0x21ec6 00021e82 0c 05 00 5d | ] | CMPI.B #0x5d,D5 00021e86 66 06 |f | BNE 0x21e8e 00021e88 20 52 | R | MOVEA.L (A2),A0 00021e8a 10 82 | | MOVE.B D2,(A0) 00021e8c 60 38 |`8 | BRA 0x21ec6 00021e8e 20 52 | R | MOVEA.L (A2),A0 00021e90 42 10 |B | CLR.B (A0) 00021e92 55 4f |UO | SUBQ.L #0x2,A7 00021e94 4e ba fe f0 |N | JSR 0x21d86 00021e98 1e 1f | | MOVE.B (A7)+,D7 00021e9a be 01 | | CMP.B D1,D7 00021e9c 66 08 |f | BNE 0x21ea6 00021e9e 4e b9 00 02 51 0e |N Q | JSR 0x2510e 00021ea4 60 1e |` | BRA 0x21ec4 00021ea6 be 04 | | CMP.B D4,D7 00021ea8 67 0e |g | BEQ 0x21eb8 00021eaa be 03 | | CMP.B D3,D7 00021eac 67 0a |g | BEQ 0x21eb8 00021eae 0c 07 00 5d | ] | CMPI.B #0x5d,D7 00021eb2 67 04 |g | BEQ 0x21eb8 00021eb4 4a 07 |J | TST.B D7 00021eb6 66 04 |f | BNE 0x21ebc 00021eb8 60 0c |` | BRA 0x21ec6 00021eba 60 08 |` | .XXX[0x2] 00021ebc 55 4f |UO | SUBQ.L #0x2,A7 00021ebe 4e ba ff 04 |N | JSR 0x21dc4 00021ec2 1e 1f | | MOVE.B (A7)+,D7 00021ec4 60 cc |` | BRA 0x21e92 00021ec6 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 00021eca 20 86 | | MOVE.L D6,(A0) 00021ecc 21 53 00 04 |!S | MOVE.L (A3),(A0+0x4) 00021ed0 53 a8 00 04 |S | SUBQ.L #0x1,(A0+0x4) 00021ed4 60 04 |` | BRA 0x21eda 00021ed6 60 00 ff 58 |` X | BRA 0x21e30 00021eda 4c df 0f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3 00021ede 4e 5e |N^ | UNLK A6 00021ee0 4e 75 |Nu | RTS 00021ee2 ; -------------------------------------------------------------------------------------- 00021ee2 ; OMSI PASCAL Function 00021ee2 ; <LVAR 0x010 4(r)> 00021ee2 ; <LVAR 0x00c 4(r)> 00021ee2 ; <LVAR 0x008 4(r)> 00021ee2 ; <LVAR -0x004 @ 1(rw)> 00021ee2 ; <LVAR -0x008 4(w)> 00021ee2 ; <LVAR -0x00c @ 4(w)> 00021ee2 ; -------------------------------------------------------------------------------------- 00021ee2 4e 56 ff ca |NV | LINK.W A6,#0xffca 00021ee6 bf d5 | | CMPA.L (A5),A7 00021ee8 62 06 |b | BHI 0x21ef0 00021eea 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021eee 4e 76 |Nv | TRAPV 00021ef0 de fc 00 2a | * | ADDA.W #0x2a,A7 00021ef4 48 e7 c0 f0 |H | MOVEM.L A3+A2+A1+A0+D1+D0,-(A7) 00021ef8 45 ee ff fc |E | LEA.L (A6-0x4),A2 00021efc 47 ee ff f4 |G | LEA.L (A6-0xc),A3 00021f00 72 03 |r | MOVEQ.L #0x03,D1 00021f02 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00021f06 10 10 | | MOVE.B (A0),D0 00021f08 0c 00 00 01 | | CMPI.B #0x01,D0 00021f0c 67 06 |g | BEQ 0x21f14 00021f0e 0c 00 00 02 | | CMPI.B #0x02,D0 00021f12 66 0e |f | BNE 0x21f22 00021f14 26 ba fd 2a |& * | MOVE.L 0x21c40,(A3) 00021f18 2d 7a fd 2a ff f8 |-z * | MOVE.L 0x21c44,(A6-0x8) 00021f1e 14 80 | | MOVE.B D0,(A2) 00021f20 60 3c |`< | BRA 0x21f5e 00021f22 48 53 |HS | PEA.L (A3) 00021f24 48 52 |HR | PEA.L (A2) 00021f26 4e ba fe e0 |N | JSR 0x21e08 00021f2a 50 4f |PO | ADDQ.L #0x8,A7 00021f2c 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00021f30 4a 12 |J | TST.B (A2) 00021f32 67 1c |g | BEQ 0x21f50 00021f34 10 10 | | MOVE.B (A0),D0 00021f36 b0 01 | | CMP.B D1,D0 00021f38 66 16 |f | BNE 0x21f50 00021f3a 10 12 | | MOVE.B (A2),D0 00021f3c 48 80 |H | EXTB.W D0 00021f3e 41 81 |A | CHK.W D1,D0 00021f40 10 80 | | MOVE.B D0,(A0) 00021f42 26 ba fc fc |& | MOVE.L 0x21c40,(A3) 00021f46 2d 7a fc fc ff f8 |-z | MOVE.L 0x21c44,(A6-0x8) 00021f4c 42 12 |B | CLR.B (A2) 00021f4e 60 08 |` | BRA 0x21f58 00021f50 10 12 | | MOVE.B (A2),D0 00021f52 48 80 |H | EXTB.W D0 00021f54 41 81 |A | CHK.W D1,D0 00021f56 10 80 | | MOVE.B D0,(A0) 00021f58 10 12 | | MOVE.B (A2),D0 00021f5a b0 01 | | CMP.B D1,D0 00021f5c 67 c4 |g | BEQ 0x21f22 00021f5e 20 6e 00 10 | n | MOVEA.L (A6+0x10),A0 00021f62 22 4b |"K | MOVEA.L A3,A1 00021f64 70 07 |p | MOVEQ.L #0x07,D0 00021f66 10 d9 | | MOVE.B (A1)+,(A0)+ 00021f68 51 c8 ff fc |Q | DBF D0,0x21f66 00021f6c 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 00021f70 10 12 | | MOVE.B (A2),D0 00021f72 48 80 |H | EXTB.W D0 00021f74 41 81 |A | CHK.W D1,D0 00021f76 10 80 | | MOVE.B D0,(A0) 00021f78 4c df 0f 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2+A3 00021f7c 4e 5e |N^ | UNLK A6 00021f7e 4e 75 |Nu | RTS 00021f80 ; -------------------------------------------------------------------------------------- 00021f80 ; OMSI PASCAL Function 00021f80 ; <LVAR 0x008 4(rw)> 00021f80 ; <LVAR -0x004 1(rw)> 00021f80 ; <LVAR -0x010 2(rw)> 00021f80 ; -------------------------------------------------------------------------------------- 00021f80 4e 56 ff c0 |NV | LINK.W A6,#0xffc0 00021f84 bf d5 | | CMPA.L (A5),A7 00021f86 62 06 |b | BHI 0x21f8e 00021f88 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021f8c 4e 76 |Nv | TRAPV 00021f8e de fc 00 30 | 0 | ADDA.W #0x30,A7 00021f92 48 e7 c7 f0 |H | MOVEM.L A3+A2+A1+A0+D7+D6+D5+D1+D0,-(A7) 00021f96 43 ee ff f0 |C | LEA.L (A6-0x10),A1 00021f9a 45 ee ff fc |E | LEA.L (A6-0x4),A2 00021f9e 47 ee 00 08 |G | LEA.L (A6+0x8),A3 00021fa2 72 20 |r | MOVEQ.L #0x20,D1 00021fa4 7c 01 || | MOVEQ.L #0x01,D6 00021fa6 42 51 |BQ | CLR.W (A1) 00021fa8 7a 01 |z | MOVEQ.L #0x01,D5 00021faa 59 4f |YO | SUBQ.L #0x4,A7 00021fac 2f 13 |/ | MOVE.L (A3),-(A7) 00021fae 4e b9 00 01 02 f0 |N | JSR ToUpper(a : String) : String 00021fb4 58 4f |XO | ADDQ.L #0x4,A7 00021fb6 26 9f |& | MOVE.L (A7)+,(A3) 00021fb8 20 53 | S | MOVEA.L (A3),A0 00021fba 2f 08 |/ | MOVE.L A0,-(A7) 00021fbc 20 57 | W | MOVEA.L (A7),A0 00021fbe 30 10 |0 | MOVE.W (A0),D0 00021fc0 48 c0 |H | EXTW.L D0 00021fc2 bc 80 | | CMP.L D0,D6 00021fc4 6e 00 00 b0 |n | BGT 0x22076 00021fc8 42 80 |B | CLR.L D0 00021fca 10 30 68 01 | 0h | MOVE.B (A0+D6.L+#0x1),D0 00021fce 02 40 00 7f | @ | ANDI.W #0x007f,D0 00021fd2 14 80 | | MOVE.B D0,(A2) 00021fd4 0c 00 00 09 | | CMPI.B #0x09,D0 00021fd8 66 02 |f | BNE 0x21fdc 00021fda 14 81 | | MOVE.B D1,(A2) 00021fdc 42 80 |B | CLR.L D0 00021fde 10 12 | | MOVE.B (A2),D0 00021fe0 90 41 | A | SUB.W D1,D0 00021fe2 0c 40 00 0c | @ | CMPI.W #0x000c,D0 00021fe6 62 30 |b0 | BHI switch@0x21fea[0x2] 00021fe8 d0 40 | @ | ADD.W D0,D0 00021fea 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 00021ff2 00 1e | | .CONST 0x1e ; [0x0] -> 0x22010 00021ff4 00 1a | | .CONST 0x1a ; [0x1] -> 0x2200c 00021ff6 00 26 | & | .CONST 0x26 ; [0x2] -> 0x22018 00021ff8 00 26 | & | .CONST 0x26 ; [0x3] -> 0x22018 00021ffa 00 26 | & | .CONST 0x26 ; [0x4] -> 0x22018 00021ffc 00 26 | & | .CONST 0x26 ; [0x5] -> 0x22018 00021ffe 00 26 | & | .CONST 0x26 ; [0x6] -> 0x22018 00022000 00 26 | & | .CONST 0x26 ; [0x7] -> 0x22018 00022002 00 26 | & | .CONST 0x26 ; [0x8] -> 0x22018 00022004 00 26 | & | .CONST 0x26 ; [0x9] -> 0x22018 00022006 00 26 | & | .CONST 0x26 ; [0xa] -> 0x22018 00022008 00 26 | & | .CONST 0x26 ; [0xb] -> 0x22018 0002200a 00 22 | " | .CONST 0x22 ; [0xc] -> 0x22014 0002200c switch@0x21fea[0x1]: 0002200c 60 68 |`h | BRA 0x22076 0002200e 60 0a |` | .XXX[0x2] 00022010 switch@0x21fea[0x0]: 00022010 7e 00 |~ | MOVEQ.L #0x00,D7 00022012 60 06 |` | BRA 0x2201a 00022014 switch@0x21fea[0xc]: 00022014 7e 01 |~ | MOVEQ.L #0x01,D7 00022016 60 02 |` | BRA 0x2201a 00022018 switch@0x21fea[0x2]: 00022018 switch@0x21fea[0x3]: 00022018 switch@0x21fea[0x4]: 00022018 switch@0x21fea[0x5]: 00022018 switch@0x21fea[0x6]: 00022018 switch@0x21fea[0x7]: 00022018 switch@0x21fea[0x8]: 00022018 switch@0x21fea[0x9]: 00022018 switch@0x21fea[0xa]: 00022018 switch@0x21fea[0xb]: 00022018 7e 02 |~ | MOVEQ.L #0x02,D7 0002201a 70 03 |p | MOVEQ.L #0x03,D0 0002201c c1 d1 | | MULS.W (A1),D0 0002201e 41 fa fc 28 |A ( | LEA.L 0x21c48,A0 00022022 41 f0 00 00 |A | LEA.L (A0+D0.W),A0 00022026 42 80 |B | CLR.L D0 00022028 10 30 70 00 | 0p | MOVE.B (A0+D7.W),D0 0002202c 0c 40 00 02 | @ | CMPI.W #0x0002,D0 00022030 63 02 |c | BLS 0x22034 00022032 4e 4e |NN | TRAP #14 00022034 d0 40 | @ | ADD.W D0,D0 00022036 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 0002203e 00 06 | | .CONST 0x6 ; [0x0] -> 0x22044 00022040 00 08 | | .CONST 0x8 ; [0x1] -> 0x22046 00022042 00 12 | | .CONST 0x12 ; [0x2] -> 0x22050 00022044 switch@0x22036[0x0]: 00022044 60 16 |` | BRA 0x2205c 00022046 switch@0x22036[0x1]: 00022046 20 57 | W | MOVEA.L (A7),A0 00022048 11 92 58 01 | X | MOVE.B (A2),(A0+D5.L+#0x1) 0002204c 52 85 |R | ADDQ.L #0x1,D5 0002204e 60 0c |` | BRA 0x2205c 00022050 switch@0x22036[0x2]: 00022050 20 57 | W | MOVEA.L (A7),A0 00022052 11 bc 00 2c 58 01 | ,X | MOVE.B #0x2c,(A0+D5.L+#0x1) 00022058 52 85 |R | ADDQ.L #0x1,D5 0002205a 53 86 |S | SUBQ.L #0x1,D6 0002205c 70 03 |p | MOVEQ.L #0x03,D0 0002205e c1 d1 | | MULS.W (A1),D0 00022060 41 fa fb ef |A | LEA.L 0x21c51,A0 00022064 41 f0 00 00 |A | LEA.L (A0+D0.W),A0 00022068 42 80 |B | CLR.L D0 0002206a 10 30 70 00 | 0p | MOVE.B (A0+D7.W),D0 0002206e 32 80 |2 | MOVE.W D0,(A1) 00022070 52 86 |R | ADDQ.L #0x1,D6 00022072 60 00 ff 48 |` H | BRA 0x21fbc 00022076 20 57 | W | MOVEA.L (A7),A0 00022078 20 05 | | MOVE.L D5,D0 0002207a 53 80 |S | SUBQ.L #0x1,D0 0002207c 30 80 |0 | MOVE.W D0,(A0) 0002207e 58 4f |XO | ADDQ.L #0x4,A7 00022080 4c df 0f e3 |L | MOVEM.L (A7)+,D0+D1+D5+D6+D7+A0+A1+A2+A3 00022084 4e 5e |N^ | UNLK A6 00022086 4e 75 |Nu | RTS 00022088 ; -------------------------------------------------------------------------------------- 00022088 ; OMSI PASCAL Function 00022088 ; <LVAR 0x00c 4(r)> 00022088 ; <LVAR 0x008 4(r)> 00022088 ; <LVAR -0x002 @ 1(r)> 00022088 ; <LVAR -0x00a @> 00022088 ; <LVAR -0x00e @ 4(r)> 00022088 ; <LVAR -0x014 @ 1(r)> 00022088 ; -------------------------------------------------------------------------------------- 00022088 4e 56 ff bc |NV | LINK.W A6,#0xffbc 0002208c bf d5 | | CMPA.L (A5),A7 0002208e 62 06 |b | BHI 0x22096 00022090 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022094 4e 76 |Nv | TRAPV 00022096 de fc 00 30 | 0 | ADDA.W #0x30,A7 0002209a 48 e7 c1 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D1+D0,-(A7) 0002209e 47 ee ff f2 |G | LEA.L (A6-0xe),A3 000220a2 72 01 |r | MOVEQ.L #0x01,D1 000220a4 55 4f |UO | SUBQ.L #0x2,A7 000220a6 4e ba fc de |N | JSR 0x21d86 000220aa 10 1f | | MOVE.B (A7)+,D0 000220ac 0c 00 00 5b | [ | CMPI.B #0x5b,D0 000220b0 66 08 |f | BNE 0x220ba 000220b2 55 4f |UO | SUBQ.L #0x2,A7 000220b4 4e ba fd 0e |N | JSR 0x21dc4 000220b8 1e 1f | | MOVE.B (A7)+,D7 000220ba 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 000220be 20 81 | | MOVE.L D1,(A0) 000220c0 42 2e ff ec |B. | CLR.B (A6-0x14) 000220c4 48 6e ff f6 |Hn | PEA.L (A6-0xa) 000220c8 48 6e ff fe |Hn | PEA.L (A6-0x2) 000220cc 48 6e ff ec |Hn | PEA.L (A6-0x14) 000220d0 4e ba fe 10 |N | JSR 0x21ee2 000220d4 de fc 00 0c | | ADDA.W #0xc,A7 000220d8 4a 2e ff fe |J. | TST.B (A6-0x2) 000220dc 66 36 |f6 | BNE 0x22114 000220de 48 53 |HS | PEA.L (A3) 000220e0 48 78 00 0c |Hx | PEA.L 0xc 000220e4 4e b9 00 01 02 9c |N | JSR Malloc1(length : Long) : Pointer 000220ea 50 4f |PO | ADDQ.L #0x8,A7 000220ec 20 53 | S | MOVEA.L (A3),A0 000220ee 22 48 |"H | MOVEA.L A0,A1 000220f0 45 ee ff f6 |E | LEA.L (A6-0xa),A2 000220f4 70 07 |p | MOVEQ.L #0x07,D0 000220f6 12 da | | MOVE.B (A2)+,(A1)+ 000220f8 51 c8 ff fc |Q | DBF D0,0x220f6 000220fc 21 41 00 08 |!A | MOVE.L D1,(A0+0x8) 00022100 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 00022104 22 50 |"P | MOVEA.L (A0),A1 00022106 b2 c1 | | CMPA.W D1,A1 00022108 66 04 |f | BNE 0x2210e 0002210a 20 93 | | MOVE.L (A3),(A0) 0002210c 60 04 |` | BRA 0x22112 0002210e 29 53 00 08 |)S | MOVE.L (A3),(A4+0x8) 00022112 28 53 |(S | MOVEA.L (A3),A4 00022114 4a 2e ff fe |J. | TST.B (A6-0x2) 00022118 67 aa |g | BEQ 0x220c4 0002211a 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 0002211e 42 10 |B | CLR.B (A0) 00022120 10 2e ff fe | . | MOVE.B (A6-0x2),D0 00022124 0c 00 00 02 | | CMPI.B #0x02,D0 00022128 66 02 |f | BNE 0x2212c 0002212a 52 10 |R | ADDQ.B #0x1,(A0) 0002212c 4c df 1f 83 |L | MOVEM.L (A7)+,D0+D1+D7+A0+A1+A2+A3+A4 00022130 4e 5e |N^ | UNLK A6 00022132 4e 75 |Nu | RTS 00022134 ; -------------------------------------------------------------------------------------- 00022134 ; OMSI PASCAL Function 00022134 ; <LVAR 0x00c 4(w)> 00022134 ; <LVAR 0x008 4(r)> 00022134 ; -------------------------------------------------------------------------------------- 00022134 4e 56 ff ec |NV | LINK.W A6,#0xffec 00022138 bf d5 | | CMPA.L (A5),A7 0002213a 62 06 |b | BHI 0x22142 0002213c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022140 4e 76 |Nv | TRAPV 00022142 de fc 00 0c | | ADDA.W #0xc,A7 00022146 48 e7 01 08 |H | MOVEM.L A4+D7,-(A7) 0002214a 7e ff |~ | MOVEQ.L #-0x01,D7 0002214c 28 6e 00 08 |(n | MOVEA.L (A6+0x8),A4 00022150 b8 fc 00 01 | | CMPA.W #0x1,A4 00022154 67 08 |g | BEQ 0x2215e 00022156 52 87 |R | ADDQ.L #0x1,D7 00022158 28 6c 00 08 |(l | MOVEA.L (A4+0x8),A4 0002215c 60 f2 |` | BRA 0x22150 0002215e 2d 47 00 0c |-G | MOVE.L D7,(A6+0xc) 00022162 4c df 10 80 |L | MOVEM.L (A7)+,D7+A4 00022166 4e 5e |N^ | UNLK A6 00022168 4e 75 |Nu | RTS 0002216a ; -------------------------------------------------------------------------------------- 0002216a ; OMSI PASCAL Function 0002216a ; <LVAR 0x00c 4(r)> 0002216a ; <LVAR 0x008 4(r)> 0002216a ; -------------------------------------------------------------------------------------- 0002216a 4e 56 ff b0 |NV | LINK.W A6,#0xffb0 0002216e bf d5 | | CMPA.L (A5),A7 00022170 62 06 |b | BHI 0x22178 00022172 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022176 4e 76 |Nv | TRAPV 00022178 de fc 00 4e | N | ADDA.W #0x4e,A7 0002217c 48 e7 c0 80 |H | MOVEM.L A0+D1+D0,-(A7) 00022180 72 01 |r | MOVEQ.L #0x01,D1 00022182 59 4f |YO | SUBQ.L #0x4,A7 00022184 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00022188 4e ba ff aa |N | JSR 0x22134 0002218c 58 4f |XO | ADDQ.L #0x4,A7 0002218e 20 1f | | MOVE.L (A7)+,D0 00022190 b0 ae 00 08 | | CMP.L (A6+0x8),D0 00022194 67 58 |gX | BEQ 0x221ee 00022196 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 0002219a 4e ba fb 4a |N J | JSR 0x21ce6 0002219e 58 4f |XO | ADDQ.L #0x4,A7 000221a0 41 fa f6 a0 |A | LEA.L 0x21842,A0 000221a4 70 07 |p | MOVEQ.L #0x07,D0 000221a6 2f 20 |/ | MOVE.L -(A0),-(A7) 000221a8 51 c8 ff fc |Q | DBF D0,0x221a6 000221ac 41 ee 00 1a |A | LEA.L (A6+0x1a),A0 000221b0 70 04 |p | MOVEQ.L #0x04,D0 000221b2 3f 20 |? | MOVE.W -(A0),-(A7) 000221b4 51 c8 ff fc |Q | DBF D0,0x221b2 000221b8 51 4f |QO | SUBQ.L #0x8,A7 000221ba 48 6f 00 12 |Ho | PEA.L (A7+0x12) 000221be 3f 01 |? | MOVE.W D1,-(A7) 000221c0 3f 3c 00 20 |?< | MOVE.W #0x20,-(A7) 000221c4 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000221ca 58 4f |XO | ADDQ.L #0x4,A7 000221cc 48 6f 00 0c |Ho | PEA.L (A7+0xc) 000221d0 3f 01 |? | MOVE.W D1,-(A7) 000221d2 3f 3c 00 0a |?< | MOVE.W #0xa,-(A7) 000221d6 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000221dc 50 4f |PO | ADDQ.L #0x8,A7 000221de 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000221e4 50 4f |PO | ADDQ.L #0x8,A7 000221e6 4e ba fb 40 |N @ | JSR 0x21d28 000221ea de fc 00 2e | . | ADDA.W #0x2e,A7 000221ee 4c df 01 03 |L | MOVEM.L (A7)+,D0+D1+A0 000221f2 4e 5e |N^ | UNLK A6 000221f4 4e 75 |Nu | RTS 000221f6 ; -------------------------------------------------------------------------------------- 000221f6 ; OMSI PASCAL Function 000221f6 ; <LVAR 0x014 1(rw)> 000221f6 ; <LVAR 0x010 4(r)> 000221f6 ; <LVAR 0x00c 4(r)> 000221f6 ; <LVAR 0x008 4(r)> 000221f6 ; -------------------------------------------------------------------------------------- 000221f6 4e 56 ff dc |NV | LINK.W A6,#0xffdc ; Spelunked 000221fa bf d5 | | CMPA.L (A5),A7 000221fc 62 06 |b | BHI 0x22204 000221fe 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022202 4e 76 |Nv | TRAPV 00022204 de fc 00 20 | | ADDA.W #0x20,A7 00022208 48 e7 c1 c0 |H | MOVEM.L A1+A0+D7+D1+D0,-(A7) 0002220c 42 2e 00 14 |B. | CLR.B (A6+0x14) 00022210 20 2e 00 10 | . | MOVE.L (A6+0x10),D0 00022214 d0 ae 00 08 | | ADD.L (A6+0x8),D0 00022218 b0 b9 00 02 68 36 | h6 | CMP.L 0x26836,D0 0002221e 6e 4e |nN | BGT 0x2226e 00022220 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022224 7e 01 |~ | MOVEQ.L #0x01,D7 00022226 be 97 | | CMP.L (A7),D7 00022228 6e 42 |nB | BGT 0x2226c 0002222a 20 2e 00 10 | . | MOVE.L (A6+0x10),D0 0002222e d0 87 | | ADD.L D7,D0 00022230 53 80 |S | SUBQ.L #0x1,D0 00022232 0c 80 00 00 0f ff | | CMPI.L #0x00000fff,D0 00022238 63 02 |c | BLS 0x2223c 0002223a 4e 4f |NO | TRAP #15 0002223c 41 f9 00 02 58 2a |A X* | LEA.L 0x2582a,A0 00022242 22 2e 00 0c |". | MOVE.L (A6+0xc),D1 00022246 d2 87 | | ADD.L D7,D1 00022248 53 81 |S | SUBQ.L #0x1,D1 0002224a 53 81 |S | SUBQ.L #0x1,D1 0002224c 0c 81 00 00 00 3e | > | CMPI.L #0x0000003e,D1 00022252 63 02 |c | BLS 0x22256 00022254 4e 4f |NO | TRAP #15 00022256 43 fa f5 ea |C | LEA.L 0x21842,A1 0002225a 10 30 08 08 | 0 | MOVE.B (A0+D0.L+#0x8),D0 0002225e b0 31 18 00 | 1 | CMP.B (A1+D1.L),D0 00022262 67 04 |g | BEQ 0x22268 00022264 58 4f |XO | ADDQ.L #0x4,A7 00022266 60 0c |` | BRA 0x22274 00022268 52 87 |R | ADDQ.L #0x1,D7 0002226a 68 ba |h | BVC 0x22226 0002226c 58 4f |XO | ADDQ.L #0x4,A7 0002226e 1d 7c 00 01 00 14 | | | MOVE.B #0x01,(A6+0x14) 00022274 4c df 03 83 |L | MOVEM.L (A7)+,D0+D1+D7+A0+A1 00022278 4e 5e |N^ | UNLK A6 0002227a 4e 75 |Nu | RTS 0002227c ; -------------------------------------------------------------------------------------- 0002227c ; OMSI PASCAL Function 0002227c ; <LVAR 0x00c 4(r)> 0002227c ; <LVAR 0x008 4(r)> 0002227c ; -------------------------------------------------------------------------------------- 0002227c 4e 56 ff bc |NV | LINK.W A6,#0xffbc 00022280 bf d5 | | CMPA.L (A5),A7 00022282 62 06 |b | BHI 0x2228a 00022284 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022288 4e 76 |Nv | TRAPV 0002228a de fc 00 40 | @ | ADDA.W #0x40,A7 0002228e 48 e7 80 f0 |H | MOVEM.L A3+A2+A1+A0+D0,-(A7) 00022292 45 f9 00 02 68 36 |E h6 | LEA.L 0x26836,A2 00022298 47 ee 00 08 |G | LEA.L (A6+0x8),A3 0002229c 4a 93 |J | TST.L (A3) 0002229e 6c 3e |l> | BGE 0x222de 000222a0 20 13 | | MOVE.L (A3),D0 000222a2 44 80 |D | NEG.L D0 000222a4 d0 92 | | ADD.L (A2),D0 000222a6 0c 80 00 00 10 00 | | CMPI.L #0x00001000,D0 000222ac 6f 30 |o0 | BLE 0x222de 000222ae 9e fc 00 1c | | SUBA.W #0x1c,A7 000222b2 20 4f | O | MOVEA.L A7,A0 000222b4 43 fa f5 cc |C | LEA.L 0x21882,A1 000222b8 70 1a |p | MOVEQ.L #0x1a,D0 000222ba 10 d9 | | MOVE.B (A1)+,(A0)+ 000222bc 51 c8 ff fc |Q | DBF D0,0x222ba 000222c0 59 4f |YO | SUBQ.L #0x4,A7 000222c2 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000222c6 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000222ca 3f 3c 00 1b |?< | MOVE.W #0x1b,-(A7) 000222ce 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000222d4 50 4f |PO | ADDQ.L #0x8,A7 000222d6 4e ba fa 50 |N P | JSR 0x21d28 000222da de fc 00 20 | | ADDA.W #0x20,A7 000222de 41 f9 00 02 58 32 |A X2 | LEA.L 0x25832,A0 000222e4 2f 08 |/ | MOVE.L A0,-(A7) 000222e6 2f 12 |/ | MOVE.L (A2),-(A7) 000222e8 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 000222ec 2f 13 |/ | MOVE.L (A3),-(A7) 000222ee 4e b9 00 01 03 64 |N d | JSR MovStringTail(Base, Len, Ptr, Delta) 000222f4 de fc 00 10 | | ADDA.W #0x10,A7 000222f8 20 12 | | MOVE.L (A2),D0 000222fa 90 93 | | SUB.L (A3),D0 000222fc 24 80 |$ | MOVE.L D0,(A2) 000222fe 4c df 0f 01 |L | MOVEM.L (A7)+,D0+A0+A1+A2+A3 00022302 4e 5e |N^ | UNLK A6 00022304 4e 75 |Nu | RTS 00022306 ; -------------------------------------------------------------------------------------- 00022306 ; OMSI PASCAL Function 00022306 ; <LVAR 0x00c 4(r)> 00022306 ; <LVAR 0x008 4(r)> 00022306 ; -------------------------------------------------------------------------------------- 00022306 4e 56 ff d4 |NV | LINK.W A6,#0xffd4 0002230a bf d5 | | CMPA.L (A5),A7 0002230c 62 06 |b | BHI 0x22314 0002230e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022312 4e 76 |Nv | TRAPV 00022314 de fc 00 28 | ( | ADDA.W #0x28,A7 00022318 48 e7 c1 e0 |H | MOVEM.L A2+A1+A0+D7+D1+D0,-(A7) 0002231c 45 ee 00 0c |E | LEA.L (A6+0xc),A2 00022320 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00022324 2f 08 |/ | MOVE.L A0,-(A7) 00022326 22 52 |"R | MOVEA.L (A2),A1 00022328 2f 11 |/ | MOVE.L (A1),-(A7) 0002232a 30 10 |0 | MOVE.W (A0),D0 0002232c 48 c0 |H | EXTW.L D0 0002232e 44 80 |D | NEG.L D0 00022330 2f 00 |/ | MOVE.L D0,-(A7) 00022332 4e ba ff 48 |N H | JSR 0x2227c 00022336 50 4f |PO | ADDQ.L #0x8,A7 00022338 30 10 |0 | MOVE.W (A0),D0 0002233a 48 c0 |H | EXTW.L D0 0002233c 2f 00 |/ | MOVE.L D0,-(A7) 0002233e 7e 01 |~ | MOVEQ.L #0x01,D7 00022340 be 97 | | CMP.L (A7),D7 00022342 6e 36 |n6 | BGT 0x2237a 00022344 20 52 | R | MOVEA.L (A2),A0 00022346 20 07 | | MOVE.L D7,D0 00022348 d0 90 | | ADD.L (A0),D0 0002234a 53 80 |S | SUBQ.L #0x1,D0 0002234c 53 80 |S | SUBQ.L #0x1,D0 0002234e 0c 80 00 00 0f ff | | CMPI.L #0x00000fff,D0 00022354 63 02 |c | BLS 0x22358 00022356 4e 4f |NO | TRAP #15 00022358 41 f9 00 02 58 2a |A X* | LEA.L 0x2582a,A0 0002235e 22 07 |" | MOVE.L D7,D1 00022360 53 81 |S | SUBQ.L #0x1,D1 00022362 0c 81 00 00 00 7d | } | CMPI.L #0x0000007d,D1 00022368 63 02 |c | BLS 0x2236c 0002236a 4e 4f |NO | TRAP #15 0002236c 22 6f 00 04 |"o | MOVEA.L (A7+0x4),A1 00022370 11 b1 18 02 08 08 | | MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x8) 00022376 52 87 |R | ADDQ.L #0x1,D7 00022378 68 c6 |h | BVC 0x22340 0002237a 58 4f |XO | ADDQ.L #0x4,A7 0002237c 20 52 | R | MOVEA.L (A2),A0 0002237e 22 57 |"W | MOVEA.L (A7),A1 00022380 30 11 |0 | MOVE.W (A1),D0 00022382 48 c0 |H | EXTW.L D0 00022384 d1 90 | | ADD.L D0,(A0) 00022386 58 4f |XO | ADDQ.L #0x4,A7 00022388 4c df 07 83 |L | MOVEM.L (A7)+,D0+D1+D7+A0+A1+A2 0002238c 4e 5e |N^ | UNLK A6 0002238e 4e 75 |Nu | RTS 00022390 ; -------------------------------------------------------------------------------------- 00022390 ; OMSI PASCAL Function 00022390 ; <LVAR 0x00c 4(r)> 00022390 ; <LVAR 0x008 4(r)> 00022390 ; -------------------------------------------------------------------------------------- 00022390 4e 56 ff a8 |NV | LINK.W A6,#0xffa8 00022394 bf d5 | | CMPA.L (A5),A7 00022396 62 06 |b | BHI 0x2239e 00022398 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002239c 4e 76 |Nv | TRAPV 0002239e de fc 00 50 | P | ADDA.W #0x50,A7 000223a2 48 e7 c3 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D1+D0,-(A7) 000223a6 45 fa fe 4e |E N | LEA.L 0x221f6,A2 000223aa 47 f8 00 04 |G | LEA.L 0x4,A3 000223ae 49 ee 00 08 |I | LEA.L (A6+0x8),A4 000223b2 72 0c |r | MOVEQ.L #0x0c,D1 000223b4 7e 00 |~ | MOVEQ.L #0x00,D7 000223b6 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 000223ba 42 90 |B | CLR.L (A0) 000223bc 20 54 | T | MOVEA.L (A4),A0 000223be 42 90 |B | CLR.L (A0) 000223c0 2c 39 00 02 68 32 |,9 h2 | MOVE.L 0x26832,D6 000223c6 20 06 | | MOVE.L D6,D0 000223c8 53 80 |S | SUBQ.L #0x1,D0 000223ca 0c 80 00 00 0f ff | | CMPI.L #0x00000fff,D0 000223d0 63 02 |c | BLS 0x223d4 000223d2 4e 4f |NO | TRAP #15 000223d4 41 f9 00 02 58 2a |A X* | LEA.L 0x2582a,A0 000223da 10 30 08 08 | 0 | MOVE.B (A0+D0.L+#0x8),D0 000223de 0c 00 00 5b | [ | CMPI.B #0x5b,D0 000223e2 66 00 00 d4 |f | BNE 0x224b8 000223e6 55 4f |UO | SUBQ.L #0x2,A7 000223e8 2f 06 |/ | MOVE.L D6,-(A7) 000223ea 48 78 00 01 |Hx | PEA.L 0x1 000223ee 48 78 00 03 |Hx | PEA.L 0x3 000223f2 4e 92 |N | JSR (A2) 000223f4 de c1 | | ADDA.W D1,A7 000223f6 4a 1f |J | TST.B (A7)+ 000223f8 66 7e |f~ | BNE 0x22478 000223fa 55 4f |UO | SUBQ.L #0x2,A7 000223fc 2f 06 |/ | MOVE.L D6,-(A7) 000223fe 48 53 |HS | PEA.L (A3) 00022400 48 78 00 03 |Hx | PEA.L 0x3 00022404 4e 92 |N | JSR (A2) 00022406 de c1 | | ADDA.W D1,A7 00022408 4a 1f |J | TST.B (A7)+ 0002240a 66 6c |fl | BNE 0x22478 0002240c 55 4f |UO | SUBQ.L #0x2,A7 0002240e 2f 06 |/ | MOVE.L D6,-(A7) 00022410 48 78 00 07 |Hx | PEA.L 0x7 00022414 48 53 |HS | PEA.L (A3) 00022416 4e 92 |N | JSR (A2) 00022418 de c1 | | ADDA.W D1,A7 0002241a 4a 1f |J | TST.B (A7)+ 0002241c 66 5a |fZ | BNE 0x22478 0002241e 55 4f |UO | SUBQ.L #0x2,A7 00022420 2f 06 |/ | MOVE.L D6,-(A7) 00022422 48 78 00 0b |Hx | PEA.L 0xb 00022426 48 53 |HS | PEA.L (A3) 00022428 4e 92 |N | JSR (A2) 0002242a de c1 | | ADDA.W D1,A7 0002242c 4a 1f |J | TST.B (A7)+ 0002242e 66 48 |fH | BNE 0x22478 00022430 55 4f |UO | SUBQ.L #0x2,A7 00022432 2f 06 |/ | MOVE.L D6,-(A7) 00022434 48 78 00 0f |Hx | PEA.L 0xf 00022438 48 53 |HS | PEA.L (A3) 0002243a 4e 92 |N | JSR (A2) 0002243c de c1 | | ADDA.W D1,A7 0002243e 4a 1f |J | TST.B (A7)+ 00022440 66 36 |f6 | BNE 0x22478 00022442 55 4f |UO | SUBQ.L #0x2,A7 00022444 2f 06 |/ | MOVE.L D6,-(A7) 00022446 48 78 00 13 |Hx | PEA.L 0x13 0002244a 48 53 |HS | PEA.L (A3) 0002244c 4e 92 |N | JSR (A2) 0002244e de c1 | | ADDA.W D1,A7 00022450 4a 1f |J | TST.B (A7)+ 00022452 66 24 |f$ | BNE 0x22478 00022454 55 4f |UO | SUBQ.L #0x2,A7 00022456 2f 06 |/ | MOVE.L D6,-(A7) 00022458 48 78 00 17 |Hx | PEA.L 0x17 0002245c 48 53 |HS | PEA.L (A3) 0002245e 4e 92 |N | JSR (A2) 00022460 de c1 | | ADDA.W D1,A7 00022462 4a 1f |J | TST.B (A7)+ 00022464 66 12 |f | BNE 0x22478 00022466 55 4f |UO | SUBQ.L #0x2,A7 00022468 2f 06 |/ | MOVE.L D6,-(A7) 0002246a 48 78 00 1b |Hx | PEA.L 0x1b 0002246e 48 53 |HS | PEA.L (A3) 00022470 4e 92 |N | JSR (A2) 00022472 de c1 | | ADDA.W D1,A7 00022474 4a 1f |J | TST.B (A7)+ 00022476 67 04 |g | BEQ 0x2247c 00022478 52 87 |R | ADDQ.L #0x1,D7 0002247a 60 3c |`< | BRA 0x224b8 0002247c 4a 87 |J | TST.L D7 0002247e 66 1c |f | BNE 0x2249c 00022480 55 4f |UO | SUBQ.L #0x2,A7 00022482 2f 06 |/ | MOVE.L D6,-(A7) 00022484 48 78 00 1f |Hx | PEA.L 0x1f 00022488 48 78 00 05 |Hx | PEA.L 0x5 0002248c 4e 92 |N | JSR (A2) 0002248e de c1 | | ADDA.W D1,A7 00022490 4a 1f |J | TST.B (A7)+ 00022492 67 08 |g | BEQ 0x2249c 00022494 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 00022498 20 86 | | MOVE.L D6,(A0) 0002249a 60 1c |` | BRA 0x224b8 0002249c 55 4f |UO | SUBQ.L #0x2,A7 0002249e 2f 06 |/ | MOVE.L D6,-(A7) 000224a0 48 78 00 24 |Hx $ | PEA.L 0x24 000224a4 48 53 |HS | PEA.L (A3) 000224a6 4e 92 |N | JSR (A2) 000224a8 de c1 | | ADDA.W D1,A7 000224aa 4a 1f |J | TST.B (A7)+ 000224ac 67 0a |g | BEQ 0x224b8 000224ae 4a 87 |J | TST.L D7 000224b0 66 04 |f | BNE 0x224b6 000224b2 20 54 | T | MOVEA.L (A4),A0 000224b4 60 e2 |` | BRA 0x22498 000224b6 53 87 |S | SUBQ.L #0x1,D7 000224b8 52 86 |R | ADDQ.L #0x1,D6 000224ba bc b9 00 02 68 36 | h6 | CMP.L 0x26836,D6 000224c0 6e 0e |n | BGT 0x224d0 000224c2 4a 87 |J | TST.L D7 000224c4 66 00 ff 00 |f | BNE 0x223c6 000224c8 20 54 | T | MOVEA.L (A4),A0 000224ca 4a 90 |J | TST.L (A0) 000224cc 67 00 fe f8 |g | BEQ 0x223c6 000224d0 bc b9 00 02 68 36 | h6 | CMP.L 0x26836,D6 000224d6 6f 30 |o0 | BLE 0x22508 000224d8 9e fc 00 1c | | SUBA.W #0x1c,A7 000224dc 20 4f | O | MOVEA.L A7,A0 000224de 43 fa f3 be |C | LEA.L 0x2189e,A1 000224e2 70 1a |p | MOVEQ.L #0x1a,D0 000224e4 10 d9 | | MOVE.B (A1)+,(A0)+ 000224e6 51 c8 ff fc |Q | DBF D0,0x224e4 000224ea 59 4f |YO | SUBQ.L #0x4,A7 000224ec 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000224f0 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000224f4 3f 3c 00 1b |?< | MOVE.W #0x1b,-(A7) 000224f8 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000224fe 50 4f |PO | ADDQ.L #0x8,A7 00022500 4e ba f8 26 |N & | JSR 0x21d28 00022504 de fc 00 20 | | ADDA.W #0x20,A7 00022508 4c df 1f c3 |L | MOVEM.L (A7)+,D0+D1+D6+D7+A0+A1+A2+A3+A4 0002250c 4e 5e |N^ | UNLK A6 0002250e 4e 75 |Nu | RTS 00022510 ; -------------------------------------------------------------------------------------- 00022510 ; OMSI PASCAL Function 00022510 ; <LVAR -0x004 @ 4(r)> 00022510 ; <LVAR -0x008 @ 4(rw)> 00022510 ; -------------------------------------------------------------------------------------- 00022510 4e 56 ff dc |NV | LINK.W A6,#0xffdc 00022514 bf d5 | | CMPA.L (A5),A7 00022516 62 06 |b | BHI 0x2251e 00022518 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002251c 4e 76 |Nv | TRAPV 0002251e de fc 00 1c | | ADDA.W #0x1c,A7 00022522 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7) 00022526 41 ee ff f8 |A | LEA.L (A6-0x8),A0 0002252a 43 ee ff fc |C | LEA.L (A6-0x4),A1 0002252e 48 50 |HP | PEA.L (A0) 00022530 48 51 |HQ | PEA.L (A1) 00022532 4e ba fe 5c |N \ | JSR 0x22390 00022536 50 4f |PO | ADDQ.L #0x8,A7 00022538 4a 90 |J | TST.L (A0) 0002253a 66 02 |f | BNE 0x2253e 0002253c 20 91 | | MOVE.L (A1),(A0) 0002253e 20 11 | | MOVE.L (A1),D0 00022540 5a 80 |Z | ADDQ.L #0x5,D0 00022542 2f 00 |/ | MOVE.L D0,-(A7) 00022544 90 90 | | SUB.L (A0),D0 00022546 2f 00 |/ | MOVE.L D0,-(A7) 00022548 4e ba fd 32 |N 2 | JSR 0x2227c 0002254c 50 4f |PO | ADDQ.L #0x8,A7 0002254e 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1 00022552 4e 5e |N^ | UNLK A6 00022554 4e 75 |Nu | RTS 00022556 ; -------------------------------------------------------------------------------------- 00022556 ; OMSI PASCAL Function 00022556 ; <LVAR -0x004 @ 4(r)> 00022556 ; <LVAR -0x008 @ 4(r)> 00022556 ; -------------------------------------------------------------------------------------- 00022556 4e 56 ff dc |NV | LINK.W A6,#0xffdc 0002255a bf d5 | | CMPA.L (A5),A7 0002255c 62 06 |b | BHI 0x22564 0002255e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022562 4e 76 |Nv | TRAPV 00022564 de fc 00 1c | | ADDA.W #0x1c,A7 00022568 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7) 0002256c 41 ee ff f8 |A | LEA.L (A6-0x8),A0 00022570 43 ee ff fc |C | LEA.L (A6-0x4),A1 00022574 48 50 |HP | PEA.L (A0) 00022576 48 51 |HQ | PEA.L (A1) 00022578 4e ba fe 16 |N | JSR 0x22390 0002257c 50 4f |PO | ADDQ.L #0x8,A7 0002257e 4a 90 |J | TST.L (A0) 00022580 66 06 |f | BNE 0x22588 00022582 20 11 | | MOVE.L (A1),D0 00022584 5a 80 |Z | ADDQ.L #0x5,D0 00022586 60 12 |` | BRA 0x2259a 00022588 2f 11 |/ | MOVE.L (A1),-(A7) 0002258a 5a 97 |Z | ADDQ.L #0x5,(A7) 0002258c 48 78 00 05 |Hx | PEA.L 0x5 00022590 4e ba fc ea |N | JSR 0x2227c 00022594 50 4f |PO | ADDQ.L #0x8,A7 00022596 20 10 | | MOVE.L (A0),D0 00022598 5c 80 |\ | ADDQ.L #0x6,D0 0002259a 2f 00 |/ | MOVE.L D0,-(A7) 0002259c 90 b9 00 02 68 32 | h2 | SUB.L 0x26832,D0 000225a2 2f 00 |/ | MOVE.L D0,-(A7) 000225a4 4e ba fc d6 |N | JSR 0x2227c 000225a8 50 4f |PO | ADDQ.L #0x8,A7 000225aa 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1 000225ae 4e 5e |N^ | UNLK A6 000225b0 4e 75 |Nu | RTS 000225b2 ; -------------------------------------------------------------------------------------- 000225b2 ; OMSI PASCAL Function 000225b2 ; <LVAR 0x008 4(r)> 000225b2 ; <LVAR -0x004 @> 000225b2 ; <LVAR -0x008 @ 4(r)> 000225b2 ; <LVAR -0x00c @ 4(rw)> 000225b2 ; <LVAR -0x010 4(rw)> 000225b2 ; <LVAR -0x014 4(rw)> 000225b2 ; -------------------------------------------------------------------------------------- 000225b2 4e 56 ff ba |NV | LINK.W A6,#0xffba 000225b6 bf d5 | | CMPA.L (A5),A7 000225b8 62 06 |b | BHI 0x225c0 000225ba 44 fc 00 02 |D | MOVE.W #0x2,CCR 000225be 4e 76 |Nv | TRAPV 000225c0 de fc 00 32 | 2 | ADDA.W #0x32,A7 000225c4 48 e7 c0 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D1+D0,-(A7) 000225c8 43 f9 00 02 68 44 |C hD | LEA.L 0x26844,A1 000225ce 45 f9 00 02 68 4a |E hJ | LEA.L 0x2684a,A2 000225d4 47 f9 00 02 68 32 |G h2 | LEA.L 0x26832,A3 000225da 49 ee ff f8 |I | LEA.L (A6-0x8),A4 000225de 72 01 |r | MOVEQ.L #0x01,D1 000225e0 4a 11 |J | TST.B (A1) 000225e2 67 0a |g | BEQ 0x225ee 000225e4 4a 92 |J | TST.L (A2) 000225e6 66 06 |f | BNE 0x225ee 000225e8 24 ae 00 08 |$ | MOVE.L (A6+0x8),(A2) 000225ec 53 92 |S | SUBQ.L #0x1,(A2) 000225ee 4a 11 |J | TST.B (A1) 000225f0 66 00 00 cc |f | BNE 0x226be 000225f4 26 ae 00 08 |& | MOVE.L (A6+0x8),(A3) 000225f8 5c 93 |\ | ADDQ.L #0x6,(A3) 000225fa 48 54 |HT | PEA.L (A4) 000225fc 48 6e ff fc |Hn | PEA.L (A6-0x4) 00022600 4e ba fa 86 |N | JSR 0x22088 00022604 50 4f |PO | ADDQ.L #0x8,A7 00022606 41 fa f2 bc |A | LEA.L 0x218c4,A0 0002260a 70 04 |p | MOVEQ.L #0x04,D0 0002260c 3f 20 |? | MOVE.W -(A0),-(A7) 0002260e 51 c8 ff fc |Q | DBF D0,0x2260c 00022612 2f 14 |/ | MOVE.L (A4),-(A7) 00022614 48 78 00 00 |Hx | PEA.L 0x0 00022618 4e ba fb 50 |N P | JSR 0x2216a 0002261c de fc 00 12 | | ADDA.W #0x12,A7 00022620 4a 39 00 02 68 4e |J9 hN | TST.B 0x2684e 00022626 67 1a |g | BEQ 0x22642 00022628 51 4f |QO | SUBQ.L #0x8,A7 0002262a 2f 14 |/ | MOVE.L (A4),-(A7) 0002262c 48 78 00 00 |Hx | PEA.L 0x0 00022630 4e b9 00 02 2a 82 |N * | JSR 0x22a82 00022636 50 4f |PO | ADDQ.L #0x8,A7 00022638 2d 5f ff ec |-_ | MOVE.L (A7)+,(A6-0x14) 0002263c 2d 5f ff f0 |-_ | MOVE.L (A7)+,(A6-0x10) 00022640 60 14 |` | BRA 0x22656 00022642 59 4f |YO | SUBQ.L #0x4,A7 00022644 2f 14 |/ | MOVE.L (A4),-(A7) 00022646 48 78 00 00 |Hx | PEA.L 0x0 0002264a 4e b9 00 02 2a 50 |N *P | JSR 0x22a50 00022650 50 4f |PO | ADDQ.L #0x8,A7 00022652 2d 5f ff f4 |-_ | MOVE.L (A7)+,(A6-0xc) 00022656 2f 14 |/ | MOVE.L (A4),-(A7) 00022658 4e ba f6 8c |N | JSR 0x21ce6 0002265c 58 4f |XO | ADDQ.L #0x4,A7 0002265e 23 d3 00 02 68 46 |# hF | MOVE.L (A3),0x26846 00022664 4a 39 00 02 68 4e |J9 hN | TST.B 0x2684e 0002266a 67 2a |g* | BEQ 0x22696 0002266c 55 4f |UO | SUBQ.L #0x2,A7 0002266e 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7) 00022672 2f 2e ff ec |/. | MOVE.L (A6-0x14),-(A7) 00022676 2f 39 00 02 68 58 |/9 hX | MOVE.L 0x26858,-(A7) 0002267c 2f 39 00 02 68 54 |/9 hT | MOVE.L 0x26854,-(A7) 00022682 4e b9 00 01 03 2c |N , | JSR IsEqual(a, b : Quad) : Bool 00022688 de fc 00 10 | | ADDA.W #0x10,A7 0002268c 10 1f | | MOVE.B (A7)+,D0 0002268e 48 80 |H | EXTB.W D0 00022690 41 81 |A | CHK.W D1,D0 00022692 12 80 | | MOVE.B D0,(A1) 00022694 60 28 |`( | BRA 0x226be 00022696 55 4f |UO | SUBQ.L #0x2,A7 00022698 2f 2e ff f4 |/. | MOVE.L (A6-0xc),-(A7) 0002269c 2f 39 00 02 68 50 |/9 hP | MOVE.L 0x26850,-(A7) 000226a2 4e b9 00 01 02 c8 |N | JSR StringEqual(a, b : String) : Byte 000226a8 50 4f |PO | ADDQ.L #0x8,A7 000226aa 10 1f | | MOVE.B (A7)+,D0 000226ac 48 80 |H | EXTB.W D0 000226ae 41 81 |A | CHK.W D1,D0 000226b0 12 80 | | MOVE.B D0,(A1) 000226b2 48 6e ff f4 |Hn | PEA.L (A6-0xc) 000226b6 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000226bc 58 4f |XO | ADDQ.L #0x4,A7 000226be 4c df 1f 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2+A3+A4 000226c2 4e 5e |N^ | UNLK A6 000226c4 4e 75 |Nu | RTS 000226c6 ; -------------------------------------------------------------------------------------- 000226c6 ; OMSI PASCAL Function 000226c6 ; <LVAR 0x010 4(r)> 000226c6 ; <LVAR 0x00c 4(r)> 000226c6 ; <LVAR 0x008 4(r)> 000226c6 ; -------------------------------------------------------------------------------------- 000226c6 4e 56 ff 9e |NV | LINK.W A6,#0xff9e 000226ca bf d5 | | CMPA.L (A5),A7 000226cc 62 06 |b | BHI 0x226d4 000226ce 44 fc 00 02 |D | MOVE.W #0x2,CCR 000226d2 4e 76 |Nv | TRAPV 000226d4 de fc 00 56 | V | ADDA.W #0x56,A7 000226d8 48 e7 e7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7) 000226dc 45 f9 00 02 68 4a |E hJ | LEA.L 0x2684a,A2 000226e2 47 fa fb 12 |G | LEA.L 0x221f6,A3 000226e6 49 f9 00 02 68 44 |I hD | LEA.L 0x26844,A4 000226ec 72 0c |r | MOVEQ.L #0x0c,D1 000226ee 74 01 |t | MOVEQ.L #0x01,D2 000226f0 42 14 |B | CLR.B (A4) 000226f2 42 b9 00 02 68 46 |B hF | CLR.L 0x26846 000226f8 42 92 |B | CLR.L (A2) 000226fa 7e 00 |~ | MOVEQ.L #0x00,D7 000226fc 7c 00 || | MOVEQ.L #0x00,D6 000226fe 2a 39 00 02 68 32 |*9 h2 | MOVE.L 0x26832,D5 00022704 4a 86 |J | TST.L D6 00022706 66 00 00 a0 |f | BNE 0x227a8 0002270a ba b9 00 02 68 36 | h6 | CMP.L 0x26836,D5 00022710 6e 00 00 96 |n | BGT 0x227a8 00022714 20 05 | | MOVE.L D5,D0 00022716 53 80 |S | SUBQ.L #0x1,D0 00022718 0c 80 00 00 0f ff | | CMPI.L #0x00000fff,D0 0002271e 63 02 |c | BLS 0x22722 00022720 4e 4f |NO | TRAP #15 00022722 41 f9 00 02 58 2a |A X* | LEA.L 0x2582a,A0 00022728 10 30 08 08 | 0 | MOVE.B (A0+D0.L+#0x8),D0 0002272c 0c 00 00 5b | [ | CMPI.B #0x5b,D0 00022730 66 6c |fl | BNE 0x2279e 00022732 55 4f |UO | SUBQ.L #0x2,A7 00022734 2f 05 |/ | MOVE.L D5,-(A7) 00022736 48 78 00 28 |Hx ( | PEA.L 0x28 0002273a 48 78 00 05 |Hx | PEA.L 0x5 0002273e 4e 93 |N | JSR (A3) 00022740 de c1 | | ADDA.W D1,A7 00022742 4a 1f |J | TST.B (A7)+ 00022744 66 14 |f | BNE 0x2275a 00022746 55 4f |UO | SUBQ.L #0x2,A7 00022748 2f 05 |/ | MOVE.L D5,-(A7) 0002274a 48 78 00 2d |Hx - | PEA.L 0x2d 0002274e 48 78 00 06 |Hx | PEA.L 0x6 00022752 4e 93 |N | JSR (A3) 00022754 de c1 | | ADDA.W D1,A7 00022756 4a 1f |J | TST.B (A7)+ 00022758 67 04 |g | BEQ 0x2275e 0002275a 52 87 |R | ADDQ.L #0x1,D7 0002275c 60 40 |`@ | BRA 0x2279e 0002275e 4a 87 |J | TST.L D7 00022760 66 1e |f | BNE 0x22780 00022762 55 4f |UO | SUBQ.L #0x2,A7 00022764 2f 05 |/ | MOVE.L D5,-(A7) 00022766 48 78 00 33 |Hx 3 | PEA.L 0x33 0002276a 48 78 00 05 |Hx | PEA.L 0x5 0002276e 4e 93 |N | JSR (A3) 00022770 de c1 | | ADDA.W D1,A7 00022772 4a 1f |J | TST.B (A7)+ 00022774 67 0a |g | BEQ 0x22780 00022776 2f 05 |/ | MOVE.L D5,-(A7) 00022778 4e ba fe 38 |N 8 | JSR 0x225b2 0002277c 58 4f |XO | ADDQ.L #0x4,A7 0002277e 60 1e |` | BRA 0x2279e 00022780 55 4f |UO | SUBQ.L #0x2,A7 00022782 2f 05 |/ | MOVE.L D5,-(A7) 00022784 48 78 00 38 |Hx 8 | PEA.L 0x38 00022788 48 78 00 08 |Hx | PEA.L 0x8 0002278c 4e 93 |N | JSR (A3) 0002278e de c1 | | ADDA.W D1,A7 00022790 4a 1f |J | TST.B (A7)+ 00022792 67 0a |g | BEQ 0x2279e 00022794 4a 87 |J | TST.L D7 00022796 66 04 |f | BNE 0x2279c 00022798 2c 05 |, | MOVE.L D5,D6 0002279a 60 02 |` | BRA 0x2279e 0002279c 53 87 |S | SUBQ.L #0x1,D7 0002279e 4a 86 |J | TST.L D6 000227a0 66 02 |f | BNE 0x227a4 000227a2 52 85 |R | ADDQ.L #0x1,D5 000227a4 60 00 ff 5e |` ^ | BRA 0x22704 000227a8 4a 39 00 02 68 4e |J9 hN | TST.B 0x2684e 000227ae 66 0e |f | BNE 0x227be 000227b0 48 79 00 02 68 50 |Hy hP | PEA.L 0x26850 000227b6 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000227bc 58 4f |XO | ADDQ.L #0x4,A7 000227be 4a 14 |J | TST.B (A4) 000227c0 66 28 |f( | BNE 0x227ea 000227c2 41 fa f1 1a |A | LEA.L 0x218de,A0 000227c6 70 0c |p | MOVEQ.L #0x0c,D0 000227c8 3f 20 |? | MOVE.W -(A0),-(A7) 000227ca 51 c8 ff fc |Q | DBF D0,0x227c8 000227ce 59 4f |YO | SUBQ.L #0x4,A7 000227d0 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000227d4 3f 02 |? | MOVE.W D2,-(A7) 000227d6 3f 3c 00 1a |?< | MOVE.W #0x1a,-(A7) 000227da 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000227e0 50 4f |PO | ADDQ.L #0x8,A7 000227e2 4e ba f5 44 |N D | JSR 0x21d28 000227e6 de fc 00 1e | | ADDA.W #0x1e,A7 000227ea 4a 86 |J | TST.L D6 000227ec 66 2e |f. | BNE 0x2281c 000227ee 9e fc 00 14 | | SUBA.W #0x14,A7 000227f2 20 4f | O | MOVEA.L A7,A0 000227f4 43 fa f0 e8 |C | LEA.L 0x218de,A1 000227f8 70 12 |p | MOVEQ.L #0x12,D0 000227fa 10 d9 | | MOVE.B (A1)+,(A0)+ 000227fc 51 c8 ff fc |Q | DBF D0,0x227fa 00022800 59 4f |YO | SUBQ.L #0x4,A7 00022802 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022806 3f 02 |? | MOVE.W D2,-(A7) 00022808 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7) 0002280c 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00022812 50 4f |PO | ADDQ.L #0x8,A7 00022814 4e ba f5 12 |N | JSR 0x21d28 00022818 de fc 00 18 | | ADDA.W #0x18,A7 0002281c 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00022820 20 86 | | MOVE.L D6,(A0) 00022822 20 6e 00 10 | n | MOVEA.L (A6+0x10),A0 00022826 20 b9 00 02 68 46 | hF | MOVE.L 0x26846,(A0) 0002282c 4a 92 |J | TST.L (A2) 0002282e 66 0a |f | BNE 0x2283a 00022830 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 00022834 20 86 | | MOVE.L D6,(A0) 00022836 53 90 |S | SUBQ.L #0x1,(A0) 00022838 60 06 |` | BRA 0x22840 0002283a 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 0002283e 20 92 | | MOVE.L (A2),(A0) 00022840 4c df 1f e7 |L | MOVEM.L (A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3+A4 00022844 4e 5e |N^ | UNLK A6 00022846 4e 75 |Nu | RTS 00022848 ; -------------------------------------------------------------------------------------- 00022848 ; OMSI PASCAL Function 00022848 ; <LVAR 0x008 4(r)> 00022848 ; <LVAR -0x008 @ 4(r)> 00022848 ; <LVAR -0x00c @ 4(r)> 00022848 ; <LVAR -0x010 @ 4(r)> 00022848 ; -------------------------------------------------------------------------------------- 00022848 4e 56 ff c8 |NV | LINK.W A6,#0xffc8 0002284c bf d5 | | CMPA.L (A5),A7 0002284e 62 06 |b | BHI 0x22856 00022850 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022854 4e 76 |Nv | TRAPV 00022856 de fc 00 24 | $ | ADDA.W #0x24,A7 0002285a 48 e7 83 c0 |H | MOVEM.L A1+A0+D7+D6+D0,-(A7) 0002285e 41 f9 00 02 68 32 |A h2 | LEA.L 0x26832,A0 00022864 43 ee ff f0 |C | LEA.L (A6-0x10),A1 00022868 2c 10 |, | MOVE.L (A0),D6 0002286a 42 39 00 02 68 4e |B9 hN | CLR.B 0x2684e 00022870 23 ee 00 08 00 02 68 50 |# hP| MOVE.L (A6+0x8),0x26850 00022878 2e 10 |. | MOVE.L (A0),D7 0002287a 48 51 |HQ | PEA.L (A1) 0002287c 48 6e ff f4 |Hn | PEA.L (A6-0xc) 00022880 48 6e ff f8 |Hn | PEA.L (A6-0x8) 00022884 4e ba fe 40 |N @ | JSR 0x226c6 00022888 de fc 00 0c | | ADDA.W #0xc,A7 0002288c 20 86 | | MOVE.L D6,(A0) 0002288e 20 2e ff f8 | . | MOVE.L (A6-0x8),D0 00022892 06 80 00 00 00 09 | | ADDI.L #0x00000009,D0 00022898 2f 00 |/ | MOVE.L D0,-(A7) 0002289a 90 ae ff f4 | | SUB.L (A6-0xc),D0 0002289e 53 80 |S | SUBQ.L #0x1,D0 000228a0 2f 00 |/ | MOVE.L D0,-(A7) 000228a2 4e ba f9 d8 |N | JSR 0x2227c 000228a6 58 4f |XO | ADDQ.L #0x4,A7 000228a8 2e 91 |. | MOVE.L (A1),(A7) 000228aa 2f 11 |/ | MOVE.L (A1),-(A7) 000228ac 9f 97 | | SUB.L D7,(A7) 000228ae 4e ba f9 cc |N | JSR 0x2227c 000228b2 50 4f |PO | ADDQ.L #0x8,A7 000228b4 4c df 03 c1 |L | MOVEM.L (A7)+,D0+D6+D7+A0+A1 000228b8 4e 5e |N^ | UNLK A6 000228ba 4e 75 |Nu | RTS 000228bc ; -------------------------------------------------------------------------------------- 000228bc ; OMSI PASCAL Function 000228bc ; <LVAR 0x00c 4(r)> 000228bc ; <LVAR 0x008 4(r)> 000228bc ; <LVAR -0x008 @ 4(r)> 000228bc ; <LVAR -0x00c @ 4(r)> 000228bc ; <LVAR -0x010 @ 4(r)> 000228bc ; -------------------------------------------------------------------------------------- 000228bc 4e 56 ff c8 |NV | LINK.W A6,#0xffc8 000228c0 bf d5 | | CMPA.L (A5),A7 000228c2 62 06 |b | BHI 0x228ca 000228c4 44 fc 00 02 |D | MOVE.W #0x2,CCR 000228c8 4e 76 |Nv | TRAPV 000228ca de fc 00 24 | $ | ADDA.W #0x24,A7 000228ce 48 e7 83 c0 |H | MOVEM.L A1+A0+D7+D6+D0,-(A7) 000228d2 41 f9 00 02 68 32 |A h2 | LEA.L 0x26832,A0 000228d8 43 ee ff f0 |C | LEA.L (A6-0x10),A1 000228dc 2c 10 |, | MOVE.L (A0),D6 000228de 13 fc 00 01 00 02 68 4e | hN| MOVE.B #0x01,0x2684e 000228e6 23 ee 00 08 00 02 68 54 |# hT| MOVE.L (A6+0x8),0x26854 000228ee 23 ee 00 0c 00 02 68 58 |# hX| MOVE.L (A6+0xc),0x26858 000228f6 2e 10 |. | MOVE.L (A0),D7 000228f8 48 51 |HQ | PEA.L (A1) 000228fa 48 6e ff f4 |Hn | PEA.L (A6-0xc) 000228fe 48 6e ff f8 |Hn | PEA.L (A6-0x8) 00022902 4e ba fd c2 |N | JSR 0x226c6 00022906 de fc 00 0c | | ADDA.W #0xc,A7 0002290a 20 86 | | MOVE.L D6,(A0) 0002290c 20 2e ff f8 | . | MOVE.L (A6-0x8),D0 00022910 06 80 00 00 00 09 | | ADDI.L #0x00000009,D0 00022916 2f 00 |/ | MOVE.L D0,-(A7) 00022918 90 ae ff f4 | | SUB.L (A6-0xc),D0 0002291c 53 80 |S | SUBQ.L #0x1,D0 0002291e 2f 00 |/ | MOVE.L D0,-(A7) 00022920 4e ba f9 5a |N Z | JSR 0x2227c 00022924 58 4f |XO | ADDQ.L #0x4,A7 00022926 2e 91 |. | MOVE.L (A1),(A7) 00022928 2f 11 |/ | MOVE.L (A1),-(A7) 0002292a 9f 97 | | SUB.L D7,(A7) 0002292c 4e ba f9 4e |N N | JSR 0x2227c 00022930 50 4f |PO | ADDQ.L #0x8,A7 00022932 4c df 03 c1 |L | MOVEM.L (A7)+,D0+D6+D7+A0+A1 00022936 4e 5e |N^ | UNLK A6 00022938 4e 75 |Nu | RTS 0002293a ; -------------------------------------------------------------------------------------- 0002293a ; OMSI PASCAL Function 0002293a ; <LVAR 0x010 4(rw)> 0002293a ; <LVAR 0x00c 4(r)> 0002293a ; <LVAR 0x008 4(r)> 0002293a ; -------------------------------------------------------------------------------------- 0002293a 4e 56 ff f8 |NV | LINK.W A6,#0xfff8 0002293e bf d5 | | CMPA.L (A5),A7 00022940 62 06 |b | BHI 0x22948 00022942 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022946 4e 76 |Nv | TRAPV 00022948 de fc 00 08 | | ADDA.W #0x8,A7 0002294c 48 e7 80 00 |H | MOVEM.L D0,-(A7) 00022950 4a ae 00 08 |J | TST.L (A6+0x8) 00022954 66 06 |f | BNE 0x2295c 00022956 42 ae 00 10 |B | CLR.L (A6+0x10) 0002295a 60 0e |` | BRA 0x2296a 0002295c 20 2e 00 0c | . | MOVE.L (A6+0xc),D0 00022960 90 ae 00 08 | | SUB.L (A6+0x8),D0 00022964 52 80 |R | ADDQ.L #0x1,D0 00022966 2d 40 00 10 |-@ | MOVE.L D0,(A6+0x10) 0002296a 4c df 00 01 |L | MOVEM.L (A7)+,D0 0002296e 4e 5e |N^ | UNLK A6 00022970 4e 75 |Nu | RTS 00022972 ; -------------------------------------------------------------------------------------- 00022972 ; OMSI PASCAL Function 00022972 ; <LVAR 0x014 4(w)> 00022972 ; <LVAR 0x010 @ 4(w)> 00022972 ; <LVAR 0x00c 4(r)> 00022972 ; <LVAR 0x008 4(r)> 00022972 ; -------------------------------------------------------------------------------------- 00022972 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 00022976 bf d5 | | CMPA.L (A5),A7 00022978 62 06 |b | BHI 0x22980 0002297a 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002297e 4e 76 |Nv | TRAPV 00022980 de fc 00 20 | | ADDA.W #0x20,A7 00022984 48 e7 81 c8 |H | MOVEM.L A4+A1+A0+D7+D0,-(A7) 00022988 28 6e 00 0c |(n | MOVEA.L (A6+0xc),A4 0002298c 2d 7a f2 b2 00 10 |-z | MOVE.L 0x21c40,(A6+0x10) 00022992 2d 7a f2 b0 00 14 |-z | MOVE.L 0x21c44,(A6+0x14) 00022998 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 0002299c 7e 00 |~ | MOVEQ.L #0x00,D7 0002299e be 97 | | CMP.L (A7),D7 000229a0 6e 28 |n( | BGT 0x229ca 000229a2 b8 fc 00 01 | | CMPA.W #0x1,A4 000229a6 66 04 |f | BNE 0x229ac 000229a8 58 4f |XO | ADDQ.L #0x4,A7 000229aa 60 20 |` | BRA 0x229cc 000229ac be ae 00 08 | | CMP.L (A6+0x8),D7 000229b0 66 10 |f | BNE 0x229c2 000229b2 41 ee 00 10 |A | LEA.L (A6+0x10),A0 000229b6 22 4c |"L | MOVEA.L A4,A1 000229b8 70 07 |p | MOVEQ.L #0x07,D0 000229ba 10 d9 | | MOVE.B (A1)+,(A0)+ 000229bc 51 c8 ff fc |Q | DBF D0,0x229ba 000229c0 60 04 |` | BRA 0x229c6 000229c2 28 6c 00 08 |(l | MOVEA.L (A4+0x8),A4 000229c6 52 87 |R | ADDQ.L #0x1,D7 000229c8 68 d4 |h | BVC 0x2299e 000229ca 58 4f |XO | ADDQ.L #0x4,A7 000229cc 4c df 13 81 |L | MOVEM.L (A7)+,D0+D7+A0+A1+A4 000229d0 4e 5e |N^ | UNLK A6 000229d2 4e 75 |Nu | RTS 000229d4 ; -------------------------------------------------------------------------------------- 000229d4 ; OMSI PASCAL Function 000229d4 ; <LVAR 0x010 4(w)> 000229d4 ; <LVAR 0x00c 4(r)> 000229d4 ; <LVAR 0x008 4(r)> 000229d4 ; <LVAR -0x008 @ 4(r)> 000229d4 ; -------------------------------------------------------------------------------------- 000229d4 4e 56 ff ce |NV | LINK.W A6,#0xffce 000229d8 bf d5 | | CMPA.L (A5),A7 000229da 62 06 |b | BHI 0x229e2 000229dc 44 fc 00 02 |D | MOVE.W #0x2,CCR 000229e0 4e 76 |Nv | TRAPV 000229e2 de fc 00 26 | & | ADDA.W #0x26,A7 000229e6 48 e7 83 c0 |H | MOVEM.L A1+A0+D7+D6+D0,-(A7) 000229ea 43 ee ff f8 |C | LEA.L (A6-0x8),A1 000229ee 48 51 |HQ | PEA.L (A1) 000229f0 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 000229f6 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 000229fa 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000229fe 4e ba ff 3a |N : | JSR 0x2293a 00022a02 50 4f |PO | ADDQ.L #0x8,A7 00022a04 7e 01 |~ | MOVEQ.L #0x01,D7 00022a06 be 97 | | CMP.L (A7),D7 00022a08 6e 38 |n8 | BGT 0x22a42 00022a0a 20 07 | | MOVE.L D7,D0 00022a0c d0 ae 00 08 | | ADD.L (A6+0x8),D0 00022a10 53 80 |S | SUBQ.L #0x1,D0 00022a12 53 80 |S | SUBQ.L #0x1,D0 00022a14 0c 80 00 00 0f ff | | CMPI.L #0x00000fff,D0 00022a1a 63 02 |c | BLS 0x22a1e 00022a1c 4e 4f |NO | TRAP #15 00022a1e 41 f9 00 02 58 2a |A X* | LEA.L 0x2582a,A0 00022a24 1c 30 08 08 | 0 | MOVE.B (A0+D0.L+#0x8),D6 00022a28 0c 06 00 2f | / | CMPI.B #0x2f,D6 00022a2c 66 04 |f | BNE 0x22a32 00022a2e 58 4f |XO | ADDQ.L #0x4,A7 00022a30 60 12 |` | BRA 0x22a44 00022a32 2f 11 |/ | MOVE.L (A1),-(A7) 00022a34 1f 06 | | MOVE.B D6,-(A7) 00022a36 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00022a3c 5c 4f |\O | ADDQ.L #0x6,A7 00022a3e 52 87 |R | ADDQ.L #0x1,D7 00022a40 68 c4 |h | BVC 0x22a06 00022a42 58 4f |XO | ADDQ.L #0x4,A7 00022a44 2d 51 00 10 |-Q | MOVE.L (A1),(A6+0x10) 00022a48 4c df 03 c1 |L | MOVEM.L (A7)+,D0+D6+D7+A0+A1 00022a4c 4e 5e |N^ | UNLK A6 00022a4e 4e 75 |Nu | RTS 00022a50 ; -------------------------------------------------------------------------------------- 00022a50 ; OMSI PASCAL Function 00022a50 ; <LVAR 0x010 4(w)> 00022a50 ; <LVAR 0x00c 4(r)> 00022a50 ; <LVAR 0x008 4(r)> 00022a50 ; -------------------------------------------------------------------------------------- 00022a50 4e 56 ff e8 |NV | LINK.W A6,#0xffe8 00022a54 bf d5 | | CMPA.L (A5),A7 00022a56 62 06 |b | BHI 0x22a5e 00022a58 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022a5c 4e 76 |Nv | TRAPV 00022a5e de fc 00 18 | | ADDA.W #0x18,A7 00022a62 9e fc 00 0c | | SUBA.W #0xc,A7 00022a66 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00022a6a 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022a6e 4e ba ff 02 |N | JSR 0x22972 00022a72 50 4f |PO | ADDQ.L #0x8,A7 00022a74 4e ba ff 5e |N ^ | JSR 0x229d4 00022a78 50 4f |PO | ADDQ.L #0x8,A7 00022a7a 2d 5f 00 10 |-_ | MOVE.L (A7)+,(A6+0x10) 00022a7e 4e 5e |N^ | UNLK A6 00022a80 4e 75 |Nu | RTS 00022a82 ; -------------------------------------------------------------------------------------- 00022a82 ; OMSI PASCAL Function 00022a82 ; <LVAR 0x014 4(w)> 00022a82 ; <LVAR 0x010 4(w)> 00022a82 ; <LVAR 0x00c 4(r)> 00022a82 ; <LVAR 0x008 4(r)> 00022a82 ; -------------------------------------------------------------------------------------- 00022a82 4e 56 ff e8 |NV | LINK.W A6,#0xffe8 00022a86 bf d5 | | CMPA.L (A5),A7 00022a88 62 06 |b | BHI 0x22a90 00022a8a 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022a8e 4e 76 |Nv | TRAPV 00022a90 de fc 00 18 | | ADDA.W #0x18,A7 00022a94 9e fc 00 0c | | SUBA.W #0xc,A7 00022a98 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00022a9c 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022aa0 4e ba ff ae |N | JSR 0x22a50 00022aa4 50 4f |PO | ADDQ.L #0x8,A7 00022aa6 48 78 00 10 |Hx | PEA.L 0x10 00022aaa 4e b9 00 01 03 60 |N ` | JSR ?StringToInt64() 00022ab0 50 4f |PO | ADDQ.L #0x8,A7 00022ab2 2d 5f 00 10 |-_ | MOVE.L (A7)+,(A6+0x10) 00022ab6 2d 5f 00 14 |-_ | MOVE.L (A7)+,(A6+0x14) 00022aba 4e 5e |N^ | UNLK A6 00022abc 4e 75 |Nu | RTS 00022abe ; -------------------------------------------------------------------------------------- 00022abe ; OMSI PASCAL Function 00022abe ; <LVAR 0x010 4(w)> 00022abe ; <LVAR 0x00c 4(r)> 00022abe ; <LVAR 0x008 4(r)> 00022abe ; -------------------------------------------------------------------------------------- 00022abe 4e 56 ff e8 |NV | LINK.W A6,#0xffe8 00022ac2 bf d5 | | CMPA.L (A5),A7 00022ac4 62 06 |b | BHI 0x22acc 00022ac6 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022aca 4e 76 |Nv | TRAPV 00022acc de fc 00 18 | | ADDA.W #0x18,A7 00022ad0 9e fc 00 0c | | SUBA.W #0xc,A7 00022ad4 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00022ad8 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022adc 4e ba ff a4 |N | JSR 0x22a82 00022ae0 50 4f |PO | ADDQ.L #0x8,A7 00022ae2 4e b9 00 01 03 50 |N P | JSR Quad2Long(a : Quad) : Long 00022ae8 50 4f |PO | ADDQ.L #0x8,A7 00022aea 2d 5f 00 10 |-_ | MOVE.L (A7)+,(A6+0x10) 00022aee 4e 5e |N^ | UNLK A6 00022af0 4e 75 |Nu | RTS 00022af2 ; -------------------------------------------------------------------------------------- 00022af2 ; OMSI PASCAL Function 00022af2 ; <LVAR 0x008 @ 4(r)> 00022af2 ; -------------------------------------------------------------------------------------- 00022af2 4e 56 ff d4 |NV | LINK.W A6,#0xffd4 00022af6 bf d5 | | CMPA.L (A5),A7 00022af8 62 06 |b | BHI 0x22b00 00022afa 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022afe 4e 76 |Nv | TRAPV 00022b00 de fc 00 28 | ( | ADDA.W #0x28,A7 00022b04 48 e7 c1 e0 |H | MOVEM.L A2+A1+A0+D7+D1+D0,-(A7) 00022b08 45 f9 00 02 68 32 |E h2 | LEA.L 0x26832,A2 00022b0e 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00022b12 2f 08 |/ | MOVE.L A0,-(A7) 00022b14 2f 12 |/ | MOVE.L (A2),-(A7) 00022b16 30 10 |0 | MOVE.W (A0),D0 00022b18 48 c0 |H | EXTW.L D0 00022b1a 44 80 |D | NEG.L D0 00022b1c 2f 00 |/ | MOVE.L D0,-(A7) 00022b1e 4e ba f7 5c |N \ | JSR 0x2227c 00022b22 50 4f |PO | ADDQ.L #0x8,A7 00022b24 30 10 |0 | MOVE.W (A0),D0 00022b26 48 c0 |H | EXTW.L D0 00022b28 2f 00 |/ | MOVE.L D0,-(A7) 00022b2a 7e 01 |~ | MOVEQ.L #0x01,D7 00022b2c be 97 | | CMP.L (A7),D7 00022b2e 6e 34 |n4 | BGT 0x22b64 00022b30 20 07 | | MOVE.L D7,D0 00022b32 d0 92 | | ADD.L (A2),D0 00022b34 53 80 |S | SUBQ.L #0x1,D0 00022b36 53 80 |S | SUBQ.L #0x1,D0 00022b38 0c 80 00 00 0f ff | | CMPI.L #0x00000fff,D0 00022b3e 63 02 |c | BLS 0x22b42 00022b40 4e 4f |NO | TRAP #15 00022b42 41 f9 00 02 58 2a |A X* | LEA.L 0x2582a,A0 00022b48 22 07 |" | MOVE.L D7,D1 00022b4a 53 81 |S | SUBQ.L #0x1,D1 00022b4c 0c 81 00 00 00 7d | } | CMPI.L #0x0000007d,D1 00022b52 63 02 |c | BLS 0x22b56 00022b54 4e 4f |NO | TRAP #15 00022b56 22 6f 00 04 |"o | MOVEA.L (A7+0x4),A1 00022b5a 11 b1 18 02 08 08 | | MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x8) 00022b60 52 87 |R | ADDQ.L #0x1,D7 00022b62 68 c8 |h | BVC 0x22b2c 00022b64 50 4f |PO | ADDQ.L #0x8,A7 00022b66 48 6e 00 08 |Hn | PEA.L (A6+0x8) 00022b6a 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00022b70 58 4f |XO | ADDQ.L #0x4,A7 00022b72 4c df 07 83 |L | MOVEM.L (A7)+,D0+D1+D7+A0+A1+A2 00022b76 4e 5e |N^ | UNLK A6 00022b78 4e 75 |Nu | RTS 00022b7a ; -------------------------------------------------------------------------------------- 00022b7a ; OMSI PASCAL Function 00022b7a ; <LVAR 0x00c 4(r)> 00022b7a ; <LVAR 0x008 4(r)> 00022b7a ; -------------------------------------------------------------------------------------- 00022b7a 4e 56 ff ec |NV | LINK.W A6,#0xffec 00022b7e bf d5 | | CMPA.L (A5),A7 00022b80 62 06 |b | BHI 0x22b88 00022b82 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022b86 4e 76 |Nv | TRAPV 00022b88 de fc 00 14 | | ADDA.W #0x14,A7 00022b8c 59 4f |YO | SUBQ.L #0x4,A7 00022b8e 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00022b92 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022b96 48 78 00 10 |Hx | PEA.L 0x10 00022b9a 4e b9 00 01 03 5c |N \ | JSR Quad2String(a : Quad; radix : Long ) : String 00022ba0 de fc 00 0c | | ADDA.W #0xc,A7 00022ba4 4e ba ff 4c |N L | JSR 0x22af2 00022ba8 58 4f |XO | ADDQ.L #0x4,A7 00022baa 4e 5e |N^ | UNLK A6 00022bac 4e 75 |Nu | RTS 00022bae ; -------------------------------------------------------------------------------------- 00022bae ; OMSI PASCAL Function 00022bae ; <LVAR 0x008 4(r)> 00022bae ; -------------------------------------------------------------------------------------- 00022bae 4e 56 ff f4 |NV | LINK.W A6,#0xfff4 00022bb2 bf d5 | | CMPA.L (A5),A7 00022bb4 62 06 |b | BHI 0x22bbc 00022bb6 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022bba 4e 76 |Nv | TRAPV 00022bbc de fc 00 0c | | ADDA.W #0xc,A7 00022bc0 59 4f |YO | SUBQ.L #0x4,A7 00022bc2 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022bc6 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00022bcc 58 4f |XO | ADDQ.L #0x4,A7 00022bce 4e ba ff 22 |N " | JSR 0x22af2 00022bd2 58 4f |XO | ADDQ.L #0x4,A7 00022bd4 4e 5e |N^ | UNLK A6 00022bd6 4e 75 |Nu | RTS 00022bd8 ; -------------------------------------------------------------------------------------- 00022bd8 ; OMSI PASCAL Function 00022bd8 ; <LVAR 0x008 4(r)> 00022bd8 ; <LVAR -0x004 @ 4(r)> 00022bd8 ; <LVAR -0x008 4(rw)> 00022bd8 ; -------------------------------------------------------------------------------------- 00022bd8 4e 56 ff ca |NV | LINK.W A6,#0xffca 00022bdc bf d5 | | CMPA.L (A5),A7 00022bde 62 06 |b | BHI 0x22be6 00022be0 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022be4 4e 76 |Nv | TRAPV 00022be6 de fc 00 2a | * | ADDA.W #0x2a,A7 00022bea 48 e7 81 e0 |H | MOVEM.L A2+A1+A0+D7+D0,-(A7) 00022bee 43 ee ff fc |C | LEA.L (A6-0x4),A1 00022bf2 45 ee ff f8 |E | LEA.L (A6-0x8),A2 00022bf6 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00022bfa 24 a8 00 08 |$ | MOVE.L (A0+0x8),(A2) 00022bfe 48 51 |HQ | PEA.L (A1) 00022c00 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00022c06 58 4f |XO | ADDQ.L #0x4,A7 00022c08 20 52 | R | MOVEA.L (A2),A0 00022c0a b0 fc 00 01 | | CMPA.W #0x1,A0 00022c0e 67 00 00 86 |g | BEQ 0x22c96 00022c12 4a 90 |J | TST.L (A0) 00022c14 67 68 |gh | BEQ 0x22c7e 00022c16 2f 28 00 04 |/( | MOVE.L (A0+0x4),-(A7) 00022c1a 2e 10 |. | MOVE.L (A0),D7 00022c1c be 97 | | CMP.L (A7),D7 00022c1e 6e 14 |n | BGT 0x22c34 00022c20 20 17 | | MOVE.L (A7),D0 00022c22 0c 87 80 00 00 01 | | CMPI.L #0x80000001,D7 00022c28 6d 08 |m | BLT 0x22c32 00022c2a 0c 80 7f ff ff ff | | CMPI.L #0x7fffffff,D0 00022c30 6f 02 |o | BLE 0x22c34 00022c32 4e 4f |NO | TRAP #15 00022c34 be 97 | | CMP.L (A7),D7 00022c36 6e 44 |nD | BGT 0x22c7c 00022c38 2f 11 |/ | MOVE.L (A1),-(A7) 00022c3a 20 07 | | MOVE.L D7,D0 00022c3c 53 80 |S | SUBQ.L #0x1,D0 00022c3e 0c 80 00 00 0f ff | | CMPI.L #0x00000fff,D0 00022c44 63 02 |c | BLS 0x22c48 00022c46 4e 4f |NO | TRAP #15 00022c48 41 f9 00 02 58 2a |A X* | LEA.L 0x2582a,A0 00022c4e 1f 30 08 08 | 0 | MOVE.B (A0+D0.L+#0x8),-(A7) 00022c52 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00022c58 5c 4f |\O | ADDQ.L #0x6,A7 00022c5a 20 51 | Q | MOVEA.L (A1),A0 00022c5c 30 10 |0 | MOVE.W (A0),D0 00022c5e 0c 40 00 7a | @ z | CMPI.W #0x007a,D0 00022c62 6d 14 |m | BLT 0x22c78 00022c64 2f 11 |/ | MOVE.L (A1),-(A7) 00022c66 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String) 00022c6c 58 4f |XO | ADDQ.L #0x4,A7 00022c6e 48 51 |HQ | PEA.L (A1) 00022c70 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00022c76 58 4f |XO | ADDQ.L #0x4,A7 00022c78 52 87 |R | ADDQ.L #0x1,D7 00022c7a 68 b8 |h | BVC 0x22c34 00022c7c 58 4f |XO | ADDQ.L #0x4,A7 00022c7e 2f 11 |/ | MOVE.L (A1),-(A7) 00022c80 1f 3c 00 20 | < | MOVE.B #0x20,-(A7) 00022c84 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00022c8a 5c 4f |\O | ADDQ.L #0x6,A7 00022c8c 20 52 | R | MOVEA.L (A2),A0 00022c8e 24 a8 00 08 |$ | MOVE.L (A0+0x8),(A2) 00022c92 60 00 ff 74 |` t | BRA 0x22c08 00022c96 2f 11 |/ | MOVE.L (A1),-(A7) 00022c98 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00022c9e 58 4f |XO | ADDQ.L #0x4,A7 00022ca0 4c df 07 81 |L | MOVEM.L (A7)+,D0+D7+A0+A1+A2 00022ca4 4e 5e |N^ | UNLK A6 00022ca6 4e 75 |Nu | RTS 00022ca8 ; -------------------------------------------------------------------------------------- 00022ca8 ; OMSI PASCAL Function 00022ca8 ; <LVAR 0x008 @ 4(r)> 00022ca8 ; <LVAR -0x003 @ 1(r)> 00022ca8 ; <LVAR -0x004 @ 1(r)> 00022ca8 ; <LVAR -0x008 @ 4(r)> 00022ca8 ; <LVAR -0x00c @ 4(rw)> 00022ca8 ; -------------------------------------------------------------------------------------- 00022ca8 4e 56 ff ae |NV | LINK.W A6,#0xffae 00022cac bf d5 | | CMPA.L (A5),A7 00022cae 62 06 |b | BHI 0x22cb6 00022cb0 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022cb4 4e 76 |Nv | TRAPV 00022cb6 de fc 00 46 | F | ADDA.W #0x46,A7 00022cba 48 e7 c0 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D1+D0,-(A7) 00022cbe 43 ee 00 08 |C | LEA.L (A6+0x8),A1 00022cc2 45 ee ff f4 |E | LEA.L (A6-0xc),A2 00022cc6 47 ee ff fc |G | LEA.L (A6-0x4),A3 00022cca 49 ee ff f8 |I | LEA.L (A6-0x8),A4 00022cce 72 01 |r | MOVEQ.L #0x01,D1 00022cd0 2f 3a ec 36 |/: 6 | MOVE.L 0x21908,-(A7) 00022cd4 51 4f |QO | SUBQ.L #0x8,A7 00022cd6 2f 11 |/ | MOVE.L (A1),-(A7) 00022cd8 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 00022cde 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00022ce2 3f 01 |? | MOVE.W D1,-(A7) 00022ce4 3f 3c 00 04 |?< | MOVE.W #0x4,-(A7) 00022ce8 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00022cee 50 4f |PO | ADDQ.L #0x8,A7 00022cf0 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00022cf6 50 4f |PO | ADDQ.L #0x8,A7 00022cf8 24 9f |$ | MOVE.L (A7)+,(A2) 00022cfa 2e 92 |. | MOVE.L (A2),(A7) 00022cfc 42 27 |B' | CLR.B -(A7) 00022cfe 42 27 |B' | CLR.B -(A7) 00022d00 48 78 00 00 |Hx | PEA.L 0x0 00022d04 48 53 |HS | PEA.L (A3) 00022d06 48 54 |HT | PEA.L (A4) 00022d08 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File) 00022d0e de fc 00 14 | | ADDA.W #0x14,A7 00022d12 4a 13 |J | TST.B (A3) 00022d14 67 36 |g6 | BEQ 0x22d4c 00022d16 41 fa eb f0 |A | LEA.L 0x21908,A0 00022d1a 70 0a |p | MOVEQ.L #0x0a,D0 00022d1c 3f 20 |? | MOVE.W -(A0),-(A7) 00022d1e 51 c8 ff fc |Q | DBF D0,0x22d1c 00022d22 51 4f |QO | SUBQ.L #0x8,A7 00022d24 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00022d28 3f 01 |? | MOVE.W D1,-(A7) 00022d2a 3f 3c 00 16 |?< | MOVE.W #0x16,-(A7) 00022d2e 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00022d34 58 4f |XO | ADDQ.L #0x4,A7 00022d36 2e 91 |. | MOVE.L (A1),(A7) 00022d38 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00022d3e 50 4f |PO | ADDQ.L #0x8,A7 00022d40 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00022d46 de fc 00 1a | | ADDA.W #0x1a,A7 00022d4a 60 54 |`T | BRA 0x22da0 00022d4c 2f 14 |/ | MOVE.L (A4),-(A7) 00022d4e 48 51 |HQ | PEA.L (A1) 00022d50 48 6e ff fd |Hn | PEA.L (A6-0x3) 00022d54 4e b9 00 01 04 3c |N < | JSR FileReadLine(file : File; VAR a : String; VAR b : Byte) 00022d5a de fc 00 0c | | ADDA.W #0xc,A7 00022d5e 4a 2e ff fd |J. | TST.B (A6-0x3) 00022d62 66 14 |f | BNE 0x22d78 00022d64 59 4f |YO | SUBQ.L #0x4,A7 00022d66 2f 11 |/ | MOVE.L (A1),-(A7) 00022d68 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 00022d6e 58 4f |XO | ADDQ.L #0x4,A7 00022d70 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00022d76 58 4f |XO | ADDQ.L #0x4,A7 00022d78 4a 2e ff fd |J. | TST.B (A6-0x3) 00022d7c 67 ce |g | BEQ 0x22d4c 00022d7e 42 27 |B' | CLR.B -(A7) 00022d80 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 00022d84 48 78 00 01 |Hx | PEA.L 0x1 00022d88 48 53 |HS | PEA.L (A3) 00022d8a 48 54 |HT | PEA.L (A4) 00022d8c 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File) 00022d92 de fc 00 10 | | ADDA.W #0x10,A7 00022d96 48 51 |HQ | PEA.L (A1) 00022d98 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00022d9e 58 4f |XO | ADDQ.L #0x4,A7 00022da0 48 52 |HR | PEA.L (A2) 00022da2 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00022da8 58 4f |XO | ADDQ.L #0x4,A7 00022daa 4c df 1f 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2+A3+A4 00022dae 4e 5e |N^ | UNLK A6 00022db0 4e 75 |Nu | RTS 00022db2 ; -------------------------------------------------------------------------------------- 00022db2 ; OMSI PASCAL Function 00022db2 ; <LVAR 0x008 4(r)> 00022db2 ; -------------------------------------------------------------------------------------- 00022db2 4e 56 ff c6 |NV | LINK.W A6,#0xffc6 00022db6 bf d5 | | CMPA.L (A5),A7 00022db8 62 06 |b | BHI 0x22dc0 00022dba 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022dbe 4e 76 |Nv | TRAPV 00022dc0 de fc 00 2e | . | ADDA.W #0x2e,A7 00022dc4 48 e7 83 88 |H | MOVEM.L A4+A0+D7+D6+D0,-(A7) 00022dc8 59 4f |YO | SUBQ.L #0x4,A7 00022dca 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022dce 4e ba f3 64 |N d | JSR 0x22134 00022dd2 58 4f |XO | ADDQ.L #0x4,A7 00022dd4 2c 1f |, | MOVE.L (A7)+,D6 00022dd6 66 2e |f. | BNE 0x22e06 00022dd8 41 f9 00 02 68 44 |A hD | LEA.L 0x26844,A0 00022dde 70 04 |p | MOVEQ.L #0x04,D0 00022de0 3f 20 |? | MOVE.W -(A0),-(A7) 00022de2 51 c8 ff fc |Q | DBF D0,0x22de0 00022de6 59 4f |YO | SUBQ.L #0x4,A7 00022de8 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022dec 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00022df0 3f 3c 00 0a |?< | MOVE.W #0xa,-(A7) 00022df4 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00022dfa 50 4f |PO | ADDQ.L #0x8,A7 00022dfc 4e ba fe aa |N | JSR 0x22ca8 00022e00 de fc 00 0e | | ADDA.W #0xe,A7 00022e04 60 26 |`& | BRA 0x22e2c 00022e06 2f 06 |/ | MOVE.L D6,-(A7) 00022e08 7e 01 |~ | MOVEQ.L #0x01,D7 00022e0a be 97 | | CMP.L (A7),D7 00022e0c 6e 1c |n | BGT 0x22e2a 00022e0e 59 4f |YO | SUBQ.L #0x4,A7 00022e10 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022e14 2f 07 |/ | MOVE.L D7,-(A7) 00022e16 4e ba fc 38 |N 8 | JSR 0x22a50 00022e1a 50 4f |PO | ADDQ.L #0x8,A7 00022e1c 28 5f |(_ | MOVEA.L (A7)+,A4 00022e1e 2f 0c |/ | MOVE.L A4,-(A7) 00022e20 4e ba fe 86 |N | JSR 0x22ca8 00022e24 58 4f |XO | ADDQ.L #0x4,A7 00022e26 52 87 |R | ADDQ.L #0x1,D7 00022e28 68 e0 |h | BVC 0x22e0a 00022e2a 58 4f |XO | ADDQ.L #0x4,A7 00022e2c 4c df 11 c1 |L | MOVEM.L (A7)+,D0+D6+D7+A0+A4 00022e30 4e 5e |N^ | UNLK A6 00022e32 4e 75 |Nu | RTS 00022e34 ; -------------------------------------------------------------------------------------- 00022e34 ; OMSI PASCAL Function 00022e34 ; <LVAR 0x00c @> 00022e34 ; <LVAR 0x008 @ 4(r)> 00022e34 ; <LVAR -0x020 @> 00022e34 ; -------------------------------------------------------------------------------------- 00022e34 4e 56 ff b8 |NV | LINK.W A6,#0xffb8 00022e38 bf d5 | | CMPA.L (A5),A7 00022e3a 62 06 |b | BHI 0x22e42 00022e3c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022e40 4e 76 |Nv | TRAPV 00022e42 de fc 00 24 | $ | ADDA.W #0x24,A7 00022e46 48 e7 e1 c0 |H | MOVEM.L A1+A0+D7+D2+D1+D0,-(A7) 00022e4a 74 1d |t | MOVEQ.L #0x1d,D2 00022e4c 7e 01 |~ | MOVEQ.L #0x01,D7 00022e4e 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00022e52 30 10 |0 | MOVE.W (A0),D0 00022e54 48 c0 |H | EXTW.L D0 00022e56 be 80 | | CMP.L D0,D7 00022e58 6f 10 |o | BLE 0x22e6a 00022e5a 20 07 | | MOVE.L D7,D0 00022e5c 53 80 |S | SUBQ.L #0x1,D0 00022e5e b0 82 | | CMP.L D2,D0 00022e60 63 02 |c | BLS 0x22e64 00022e62 4e 4f |NO | TRAP #15 00022e64 42 36 08 e0 |B6 | CLR.B (A6+D0.L-#0x20) 00022e68 60 1e |` | BRA 0x22e88 00022e6a 20 07 | | MOVE.L D7,D0 00022e6c 53 80 |S | SUBQ.L #0x1,D0 00022e6e b0 82 | | CMP.L D2,D0 00022e70 63 02 |c | BLS 0x22e74 00022e72 4e 4f |NO | TRAP #15 00022e74 22 07 |" | MOVE.L D7,D1 00022e76 53 81 |S | SUBQ.L #0x1,D1 00022e78 0c 81 00 00 00 7d | } | CMPI.L #0x0000007d,D1 00022e7e 63 02 |c | BLS 0x22e82 00022e80 4e 4f |NO | TRAP #15 00022e82 1d b0 18 02 08 e0 | | MOVE.B (A0+D1.L+#0x2),(A6+D0.L-#0x20) 00022e88 52 87 |R | ADDQ.L #0x1,D7 00022e8a 0c 87 00 00 00 1e | | CMPI.L #0x0000001e,D7 00022e90 6f bc |o | BLE 0x22e4e 00022e92 48 6e 00 08 |Hn | PEA.L (A6+0x8) 00022e96 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00022e9c 58 4f |XO | ADDQ.L #0x4,A7 00022e9e 41 ee 00 0c |A | LEA.L (A6+0xc),A0 00022ea2 43 ee ff e0 |C | LEA.L (A6-0x20),A1 00022ea6 70 0e |p | MOVEQ.L #0x0e,D0 00022ea8 30 d9 |0 | MOVE.W (A1)+,(A0)+ 00022eaa 51 c8 ff fc |Q | DBF D0,0x22ea8 00022eae 4c df 03 87 |L | MOVEM.L (A7)+,D0+D1+D2+D7+A0+A1 00022eb2 4e 5e |N^ | UNLK A6 00022eb4 4e 75 |Nu | RTS 00022eb6 ; -------------------------------------------------------------------------------------- 00022eb6 ; OMSI PASCAL Function 00022eb6 ; <LVAR 0x026 4(w)> 00022eb6 ; <LVAR 0x008 @> 00022eb6 ; <LVAR -0x006 4(rw)> 00022eb6 ; -------------------------------------------------------------------------------------- 00022eb6 4e 56 ff d6 |NV | LINK.W A6,#0xffd6 00022eba bf d5 | | CMPA.L (A5),A7 00022ebc 62 06 |b | BHI 0x22ec4 00022ebe 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022ec2 4e 76 |Nv | TRAPV 00022ec4 de fc 00 24 | $ | ADDA.W #0x24,A7 00022ec8 48 e7 c1 f0 |H | MOVEM.L A3+A2+A1+A0+D7+D1+D0,-(A7) 00022ecc 47 ee ff fa |G | LEA.L (A6-0x6),A3 00022ed0 7e 00 |~ | MOVEQ.L #0x00,D7 00022ed2 26 b9 00 02 68 5c |& h\ | MOVE.L 0x2685c,(A3) 00022ed8 20 53 | S | MOVEA.L (A3),A0 00022eda b0 fc 00 01 | | CMPA.W #0x1,A0 00022ede 67 1e |g | BEQ 0x22efe 00022ee0 4a 07 |J | TST.B D7 00022ee2 66 1a |f | BNE 0x22efe 00022ee4 22 48 |"H | MOVEA.L A0,A1 00022ee6 45 ee 00 08 |E | LEA.L (A6+0x8),A2 00022eea 70 1d |p | MOVEQ.L #0x1d,D0 00022eec b5 09 | | CMPM.B (A1)+,(A2)+ 00022eee 56 c8 ff fc |V | DBNE D0,0x22eec 00022ef2 66 04 |f | BNE 0x22ef8 00022ef4 7e 01 |~ | MOVEQ.L #0x01,D7 00022ef6 60 04 |` | BRA 0x22efc 00022ef8 26 a8 00 26 |& & | MOVE.L (A0+0x26),(A3) 00022efc 60 da |` | BRA 0x22ed8 00022efe 2d 48 00 26 |-H & | MOVE.L A0,(A6+0x26) 00022f02 4c df 0f 83 |L | MOVEM.L (A7)+,D0+D1+D7+A0+A1+A2+A3 00022f06 4e 5e |N^ | UNLK A6 00022f08 4e 75 |Nu | RTS 00022f0a ; -------------------------------------------------------------------------------------- 00022f0a ; OMSI PASCAL Function 00022f0a ; <LVAR 0x008 @ 4(r)> 00022f0a ; -------------------------------------------------------------------------------------- 00022f0a 4e 56 ff c8 |NV | LINK.W A6,#0xffc8 00022f0e bf d5 | | CMPA.L (A5),A7 00022f10 62 06 |b | BHI 0x22f18 00022f12 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022f16 4e 76 |Nv | TRAPV 00022f18 de fc 00 2c | , | ADDA.W #0x2c,A7 00022f1c 48 e7 81 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D0,-(A7) 00022f20 43 ee 00 08 |C | LEA.L (A6+0x8),A1 00022f24 45 f9 00 02 68 5c |E h\ | LEA.L 0x2685c,A2 00022f2a 70 01 |p | MOVEQ.L #0x01,D0 00022f2c 20 51 | Q | MOVEA.L (A1),A0 00022f2e b0 c0 | | CMPA.W D0,A0 00022f30 67 56 |gV | BEQ 0x22f88 00022f32 4a a8 00 1e |J | TST.L (A0+0x1e) 00022f36 67 10 |g | BEQ 0x22f48 00022f38 2f 28 00 22 |/( " | MOVE.L (A0+0x22),-(A7) 00022f3c 2f 28 00 1e |/( | MOVE.L (A0+0x1e),-(A7) 00022f40 4e b9 00 01 02 a4 |N | JSR Free1(a : Pointer; b : Long) 00022f46 50 4f |PO | ADDQ.L #0x8,A7 00022f48 7e 00 |~ | MOVEQ.L #0x00,D7 00022f4a 38 40 |8@ | MOVEA.W D0,A4 00022f4c 26 52 |&R | MOVEA.L (A2),A3 00022f4e b6 c0 | | CMPA.W D0,A3 00022f50 67 14 |g | BEQ 0x22f66 00022f52 4a 07 |J | TST.B D7 00022f54 66 10 |f | BNE 0x22f66 00022f56 b7 d1 | | CMPA.L (A1),A3 00022f58 66 04 |f | BNE 0x22f5e 00022f5a 7e 01 |~ | MOVEQ.L #0x01,D7 00022f5c 60 06 |` | BRA 0x22f64 00022f5e 28 4b |(K | MOVEA.L A3,A4 00022f60 26 6b 00 26 |&k & | MOVEA.L (A3+0x26),A3 00022f64 60 e8 |` | BRA 0x22f4e 00022f66 4a 07 |J | TST.B D7 00022f68 67 1e |g | BEQ 0x22f88 00022f6a b8 c0 | | CMPA.W D0,A4 00022f6c 66 06 |f | BNE 0x22f74 00022f6e 24 ab 00 26 |$ & | MOVE.L (A3+0x26),(A2) 00022f72 60 06 |` | BRA 0x22f7a 00022f74 29 6b 00 26 00 26 |)k & & | MOVE.L (A3+0x26),(A4+0x26) 00022f7a 48 51 |HQ | PEA.L (A1) 00022f7c 48 78 00 2a |Hx * | PEA.L 0x2a 00022f80 4e b9 00 01 02 a8 |N | JSR Free2(a : Pointer; b : Long) 00022f86 50 4f |PO | ADDQ.L #0x8,A7 00022f88 4c df 1f 81 |L | MOVEM.L (A7)+,D0+D7+A0+A1+A2+A3+A4 00022f8c 4e 5e |N^ | UNLK A6 00022f8e 4e 75 |Nu | RTS 00022f90 ; -------------------------------------------------------------------------------------- 00022f90 ; OMSI PASCAL Function 00022f90 ; <LVAR 0x010 4(w)> 00022f90 ; <LVAR 0x00c 4(r)> 00022f90 ; <LVAR 0x008 4(r)> 00022f90 ; <LVAR -0x006 @ 4(rw)> 00022f90 ; <LVAR -0x024 @> 00022f90 ; -------------------------------------------------------------------------------------- 00022f90 4e 56 ff 9a |NV | LINK.W A6,#0xff9a 00022f94 bf d5 | | CMPA.L (A5),A7 00022f96 62 06 |b | BHI 0x22f9e 00022f98 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022f9c 4e 76 |Nv | TRAPV 00022f9e de fc 00 42 | B | ADDA.W #0x42,A7 00022fa2 48 e7 c0 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D1+D0,-(A7) 00022fa6 47 ee ff fa |G | LEA.L (A6-0x6),A3 00022faa 49 ee 00 08 |I | LEA.L (A6+0x8),A4 00022fae 72 1e |r | MOVEQ.L #0x1e,D1 00022fb0 9e c1 | | SUBA.W D1,A7 00022fb2 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 00022fb6 2f 10 |/ | MOVE.L (A0),-(A7) 00022fb8 4e ba fe 7a |N z | JSR 0x22e34 00022fbc 58 4f |XO | ADDQ.L #0x4,A7 00022fbe 41 ee ff dc |A | LEA.L (A6-0x24),A0 00022fc2 70 0e |p | MOVEQ.L #0x0e,D0 00022fc4 30 df |0 | MOVE.W (A7)+,(A0)+ 00022fc6 51 c8 ff fc |Q | DBF D0,0x22fc4 00022fca 4a 94 |J | TST.L (A4) 00022fcc 6c 02 |l | BGE 0x22fd0 00022fce 42 94 |B | CLR.L (A4) 00022fd0 59 4f |YO | SUBQ.L #0x4,A7 00022fd2 20 4b | K | MOVEA.L A3,A0 00022fd4 70 0e |p | MOVEQ.L #0x0e,D0 00022fd6 3f 20 |? | MOVE.W -(A0),-(A7) 00022fd8 51 c8 ff fc |Q | DBF D0,0x22fd6 00022fdc 4e ba fe d8 |N | JSR 0x22eb6 00022fe0 de c1 | | ADDA.W D1,A7 00022fe2 26 9f |& | MOVE.L (A7)+,(A3) 00022fe4 20 53 | S | MOVEA.L (A3),A0 00022fe6 b0 fc 00 01 | | CMPA.W #0x1,A0 00022fea 67 12 |g | BEQ 0x22ffe 00022fec 20 28 00 1e | ( | MOVE.L (A0+0x1e),D0 00022ff0 b0 94 | | CMP.L (A4),D0 00022ff2 66 02 |f | BNE 0x22ff6 00022ff4 60 4c |`L | BRA 0x23042 00022ff6 2f 13 |/ | MOVE.L (A3),-(A7) 00022ff8 4e ba ff 10 |N | JSR 0x22f0a 00022ffc 58 4f |XO | ADDQ.L #0x4,A7 00022ffe 48 53 |HS | PEA.L (A3) 00023000 48 78 00 2a |Hx * | PEA.L 0x2a 00023004 4e b9 00 01 02 9c |N | JSR Malloc1(length : Long) : Pointer 0002300a 50 4f |PO | ADDQ.L #0x8,A7 0002300c 20 53 | S | MOVEA.L (A3),A0 0002300e 21 79 00 02 68 5c 00 26 |!y h\ &| MOVE.L 0x2685c,(A0+0x26) 00023016 23 d3 00 02 68 5c |# h\ | MOVE.L (A3),0x2685c 0002301c 22 48 |"H | MOVEA.L A0,A1 0002301e 45 ee ff dc |E | LEA.L (A6-0x24),A2 00023022 70 1d |p | MOVEQ.L #0x1d,D0 00023024 12 da | | MOVE.B (A2)+,(A1)+ 00023026 51 c8 ff fc |Q | DBF D0,0x23024 0002302a 21 54 00 1e |!T | MOVE.L (A4),(A0+0x1e) 0002302e 4a 94 |J | TST.L (A4) 00023030 67 10 |g | BEQ 0x23042 00023032 59 4f |YO | SUBQ.L #0x4,A7 00023034 2f 14 |/ | MOVE.L (A4),-(A7) 00023036 4e b9 00 01 02 a0 |N | JSR Malloc2(VAR dst : Pointer; length : Word) 0002303c 58 4f |XO | ADDQ.L #0x4,A7 0002303e 21 5f 00 22 |!_ " | MOVE.L (A7)+,(A0+0x22) 00023042 2d 53 00 10 |-S | MOVE.L (A3),(A6+0x10) 00023046 4c df 1f 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2+A3+A4 0002304a 4e 5e |N^ | UNLK A6 0002304c 4e 75 |Nu | RTS 0002304e ; -------------------------------------------------------------------------------------- 0002304e ; OMSI PASCAL Function 0002304e ; <LVAR 0x00c @> 0002304e ; <LVAR 0x008 @ 4(r)> 0002304e ; <LVAR -0x008 4(rw)> 0002304e ; -------------------------------------------------------------------------------------- 0002304e 4e 56 ff c8 |NV | LINK.W A6,#0xffc8 00023052 bf d5 | | CMPA.L (A5),A7 00023054 62 06 |b | BHI 0x2305c 00023056 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002305a 4e 76 |Nv | TRAPV 0002305c de fc 00 2c | , | ADDA.W #0x2c,A7 00023060 48 e7 c3 e0 |H | MOVEM.L A2+A1+A0+D7+D6+D1+D0,-(A7) 00023064 45 ee 00 08 |E | LEA.L (A6+0x8),A2 00023068 20 52 | R | MOVEA.L (A2),A0 0002306a 30 10 |0 | MOVE.W (A0),D0 0002306c 48 c0 |H | EXTW.L D0 0002306e 2c 00 |, | MOVE.L D0,D6 00023070 59 4f |YO | SUBQ.L #0x4,A7 00023072 48 6e 00 0c |Hn | PEA.L (A6+0xc) 00023076 2f 06 |/ | MOVE.L D6,-(A7) 00023078 4e ba ff 16 |N | JSR 0x22f90 0002307c 50 4f |PO | ADDQ.L #0x8,A7 0002307e 2d 5f ff f8 |-_ | MOVE.L (A7)+,(A6-0x8) 00023082 4a 86 |J | TST.L D6 00023084 67 40 |g@ | BEQ 0x230c6 00023086 20 6e ff f8 | n | MOVEA.L (A6-0x8),A0 0002308a 20 68 00 22 | h " | MOVEA.L (A0+0x22),A0 0002308e 2f 08 |/ | MOVE.L A0,-(A7) 00023090 2f 06 |/ | MOVE.L D6,-(A7) 00023092 7e 01 |~ | MOVEQ.L #0x01,D7 00023094 be 97 | | CMP.L (A7),D7 00023096 6e 2c |n, | BGT 0x230c4 00023098 20 07 | | MOVE.L D7,D0 0002309a 53 80 |S | SUBQ.L #0x1,D0 0002309c 0c 80 00 00 03 ff | | CMPI.L #0x000003ff,D0 000230a2 63 02 |c | BLS 0x230a6 000230a4 4e 4f |NO | TRAP #15 000230a6 20 6f 00 04 | o | MOVEA.L (A7+0x4),A0 000230aa 22 52 |"R | MOVEA.L (A2),A1 000230ac 22 07 |" | MOVE.L D7,D1 000230ae 53 81 |S | SUBQ.L #0x1,D1 000230b0 0c 81 00 00 00 7d | } | CMPI.L #0x0000007d,D1 000230b6 63 02 |c | BLS 0x230ba 000230b8 4e 4f |NO | TRAP #15 000230ba 11 b1 18 02 08 00 | | MOVE.B (A1+D1.L+#0x2),(A0+D0.L) 000230c0 52 87 |R | ADDQ.L #0x1,D7 000230c2 68 d0 |h | BVC 0x23094 000230c4 50 4f |PO | ADDQ.L #0x8,A7 000230c6 48 52 |HR | PEA.L (A2) 000230c8 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000230ce 58 4f |XO | ADDQ.L #0x4,A7 000230d0 4c df 07 c3 |L | MOVEM.L (A7)+,D0+D1+D6+D7+A0+A1+A2 000230d4 4e 5e |N^ | UNLK A6 000230d6 4e 75 |Nu | RTS 000230d8 ; -------------------------------------------------------------------------------------- 000230d8 ; OMSI PASCAL Function 000230d8 ; <LVAR 0x008 4(r)> 000230d8 ; <LVAR -0x004 @ 4(w)> 000230d8 ; <LVAR -0x008 4(rw)> 000230d8 ; <LVAR -0x00c 4(rw)> 000230d8 ; <LVAR -0x010 4(rw)> 000230d8 ; <LVAR -0x01c 4(rw)> 000230d8 ; <LVAR -0x020 4(rw)> 000230d8 ; -------------------------------------------------------------------------------------- 000230d8 4e 56 ff 82 |NV | LINK.W A6,#0xff82 000230dc bf d5 | | CMPA.L (A5),A7 000230de 62 06 |b | BHI 0x230e6 000230e0 44 fc 00 02 |D | MOVE.W #0x2,CCR 000230e4 4e 76 |Nv | TRAPV 000230e6 de fc 00 5a | Z | ADDA.W #0x5a,A7 000230ea 48 e7 e7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7) 000230ee 45 ee ff f4 |E | LEA.L (A6-0xc),A2 000230f2 47 ee ff f0 |G | LEA.L (A6-0x10),A3 000230f6 49 ee 00 08 |I | LEA.L (A6+0x8),A4 000230fa 74 01 |t | MOVEQ.L #0x01,D2 000230fc 59 4f |YO | SUBQ.L #0x4,A7 000230fe 2f 14 |/ | MOVE.L (A4),-(A7) 00023100 4e ba f0 32 |N 2 | JSR 0x22134 00023104 58 4f |XO | ADDQ.L #0x4,A7 00023106 26 9f |& | MOVE.L (A7)+,(A3) 00023108 20 13 | | MOVE.L (A3),D0 0002310a b0 82 | | CMP.L D2,D0 0002310c 6c 2e |l. | BGE 0x2313c 0002310e 9e fc 00 1a | | SUBA.W #0x1a,A7 00023112 20 4f | O | MOVEA.L A7,A0 00023114 43 fa e7 f6 |C | LEA.L 0x2190c,A1 00023118 72 18 |r | MOVEQ.L #0x18,D1 0002311a 10 d9 | | MOVE.B (A1)+,(A0)+ 0002311c 51 c9 ff fc |Q | DBF D1,0x2311a 00023120 59 4f |YO | SUBQ.L #0x4,A7 00023122 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023126 3f 02 |? | MOVE.W D2,-(A7) 00023128 3f 3c 00 19 |?< | MOVE.W #0x19,-(A7) 0002312c 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00023132 50 4f |PO | ADDQ.L #0x8,A7 00023134 4e ba eb f2 |N | JSR 0x21d28 00023138 de fc 00 1e | | ADDA.W #0x1e,A7 0002313c 42 92 |B | CLR.L (A2) 0002313e 2f 00 |/ | MOVE.L D0,-(A7) 00023140 7c 02 || | MOVEQ.L #0x02,D6 00023142 bc 97 | | CMP.L (A7),D6 00023144 6e 1e |n | BGT 0x23164 00023146 9e fc 00 0c | | SUBA.W #0xc,A7 0002314a 2f 14 |/ | MOVE.L (A4),-(A7) 0002314c 2f 06 |/ | MOVE.L D6,-(A7) 0002314e 4e ba f8 22 |N " | JSR 0x22972 00023152 50 4f |PO | ADDQ.L #0x8,A7 00023154 4e ba f7 e4 |N | JSR 0x2293a 00023158 50 4f |PO | ADDQ.L #0x8,A7 0002315a 20 12 | | MOVE.L (A2),D0 0002315c d0 9f | | ADD.L (A7)+,D0 0002315e 24 80 |$ | MOVE.L D0,(A2) 00023160 52 86 |R | ADDQ.L #0x1,D6 00023162 68 de |h | BVC 0x23142 00023164 58 4f |XO | ADDQ.L #0x4,A7 00023166 20 13 | | MOVE.L (A3),D0 00023168 55 80 |U | SUBQ.L #0x2,D0 0002316a d1 92 | | ADD.L D0,(A2) 0002316c 59 4f |YO | SUBQ.L #0x4,A7 0002316e 2f 14 |/ | MOVE.L (A4),-(A7) 00023170 48 78 00 01 |Hx | PEA.L 0x1 00023174 4e ba f8 da |N | JSR 0x22a50 00023178 50 4f |PO | ADDQ.L #0x8,A7 0002317a 2d 57 ff fc |-W | MOVE.L (A7),(A6-0x4) 0002317e 48 6e ff fc |Hn | PEA.L (A6-0x4) 00023182 2f 12 |/ | MOVE.L (A2),-(A7) 00023184 4e ba fe 0a |N | JSR 0x22f90 00023188 50 4f |PO | ADDQ.L #0x8,A7 0002318a 2d 5f ff f8 |-_ | MOVE.L (A7)+,(A6-0x8) 0002318e 4a 92 |J | TST.L (A2) 00023190 6f 00 00 aa |o | BLE 0x2323c 00023194 20 6e ff f8 | n | MOVEA.L (A6-0x8),A0 00023198 20 68 00 22 | h " | MOVEA.L (A0+0x22),A0 0002319c 2f 08 |/ | MOVE.L A0,-(A7) 0002319e 7e 01 |~ | MOVEQ.L #0x01,D7 000231a0 2f 13 |/ | MOVE.L (A3),-(A7) 000231a2 7c 02 || | MOVEQ.L #0x02,D6 000231a4 bc 97 | | CMP.L (A7),D6 000231a6 6e 00 00 92 |n | BGT 0x2323a 000231aa 51 4f |QO | SUBQ.L #0x8,A7 000231ac 2f 14 |/ | MOVE.L (A4),-(A7) 000231ae 2f 06 |/ | MOVE.L D6,-(A7) 000231b0 4e ba f7 c0 |N | JSR 0x22972 000231b4 50 4f |PO | ADDQ.L #0x8,A7 000231b6 2d 5f ff e0 |-_ | MOVE.L (A7)+,(A6-0x20) 000231ba 2d 5f ff e4 |-_ | MOVE.L (A7)+,(A6-0x1c) 000231be 2f 2e ff e4 |/. | MOVE.L (A6-0x1c),-(A7) 000231c2 2a 2e ff e0 |*. | MOVE.L (A6-0x20),D5 000231c6 ba 97 | | CMP.L (A7),D5 000231c8 6e 14 |n | BGT 0x231de 000231ca 20 17 | | MOVE.L (A7),D0 000231cc 0c 85 80 00 00 01 | | CMPI.L #0x80000001,D5 000231d2 6d 08 |m | BLT 0x231dc 000231d4 0c 80 7f ff ff ff | | CMPI.L #0x7fffffff,D0 000231da 6f 02 |o | BLE 0x231de 000231dc 4e 4f |NO | TRAP #15 000231de ba 97 | | CMP.L (A7),D5 000231e0 6e 32 |n2 | BGT 0x23214 000231e2 20 07 | | MOVE.L D7,D0 000231e4 53 80 |S | SUBQ.L #0x1,D0 000231e6 0c 80 00 00 03 ff | | CMPI.L #0x000003ff,D0 000231ec 63 02 |c | BLS 0x231f0 000231ee 4e 4f |NO | TRAP #15 000231f0 20 6f 00 08 | o | MOVEA.L (A7+0x8),A0 000231f4 22 05 |" | MOVE.L D5,D1 000231f6 53 81 |S | SUBQ.L #0x1,D1 000231f8 0c 81 00 00 0f ff | | CMPI.L #0x00000fff,D1 000231fe 63 02 |c | BLS 0x23202 00023200 4e 4f |NO | TRAP #15 00023202 43 f9 00 02 58 2a |C X* | LEA.L 0x2582a,A1 00023208 11 b1 18 08 08 00 | | MOVE.B (A1+D1.L+#0x8),(A0+D0.L) 0002320e 52 87 |R | ADDQ.L #0x1,D7 00023210 52 85 |R | ADDQ.L #0x1,D5 00023212 68 ca |h | BVC 0x231de 00023214 58 4f |XO | ADDQ.L #0x4,A7 00023216 bc 93 | | CMP.L (A3),D6 00023218 67 1a |g | BEQ 0x23234 0002321a 20 07 | | MOVE.L D7,D0 0002321c 53 80 |S | SUBQ.L #0x1,D0 0002321e 0c 80 00 00 03 ff | | CMPI.L #0x000003ff,D0 00023224 63 02 |c | BLS 0x23228 00023226 4e 4f |NO | TRAP #15 00023228 20 6f 00 04 | o | MOVEA.L (A7+0x4),A0 0002322c 11 bc 00 2c 08 00 | , | MOVE.B #0x2c,(A0+D0.L) 00023232 52 87 |R | ADDQ.L #0x1,D7 00023234 52 86 |R | ADDQ.L #0x1,D6 00023236 68 00 ff 6c |h l | BVC 0x231a4 0002323a 50 4f |PO | ADDQ.L #0x8,A7 0002323c 4c df 1f e7 |L | MOVEM.L (A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3+A4 00023240 4e 5e |N^ | UNLK A6 00023242 4e 75 |Nu | RTS 00023244 ; -------------------------------------------------------------------------------------- 00023244 ; OMSI PASCAL Function 00023244 ; <LVAR 0x008 4(r)> 00023244 ; <LVAR -0x00c 4(rw)> 00023244 ; -------------------------------------------------------------------------------------- 00023244 4e 56 ff a0 |NV | LINK.W A6,#0xffa0 00023248 bf d5 | | CMPA.L (A5),A7 0002324a 62 06 |b | BHI 0x23252 0002324c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023250 4e 76 |Nv | TRAPV 00023252 de fc 00 54 | T | ADDA.W #0x54,A7 00023256 48 e7 e1 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D2+D1+D0,-(A7) 0002325a 47 f9 00 02 68 32 |G h2 | LEA.L 0x26832,A3 00023260 74 01 |t | MOVEQ.L #0x01,D2 00023262 59 4f |YO | SUBQ.L #0x4,A7 00023264 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023268 48 78 00 01 |Hx | PEA.L 0x1 0002326c 4e ba f7 e2 |N | JSR 0x22a50 00023270 50 4f |PO | ADDQ.L #0x8,A7 00023272 28 5f |(_ | MOVEA.L (A7)+,A4 00023274 9e fc 00 22 | " | SUBA.W #0x22,A7 00023278 2f 0c |/ | MOVE.L A4,-(A7) 0002327a 4e ba fb b8 |N | JSR 0x22e34 0002327e 58 4f |XO | ADDQ.L #0x4,A7 00023280 4e ba fc 34 |N 4 | JSR 0x22eb6 00023284 de fc 00 1e | | ADDA.W #0x1e,A7 00023288 2d 5f ff f4 |-_ | MOVE.L (A7)+,(A6-0xc) 0002328c 20 6e ff f4 | n | MOVEA.L (A6-0xc),A0 00023290 b0 c2 | | CMPA.W D2,A0 00023292 66 42 |fB | BNE 0x232d6 00023294 9e fc 00 14 | | SUBA.W #0x14,A7 00023298 22 4f |"O | MOVEA.L A7,A1 0002329a 45 fa e6 8a |E | LEA.L 0x21926,A2 0002329e 70 12 |p | MOVEQ.L #0x12,D0 000232a0 12 da | | MOVE.B (A2)+,(A1)+ 000232a2 51 c8 ff fc |Q | DBF D0,0x232a0 000232a6 51 4f |QO | SUBQ.L #0x8,A7 000232a8 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000232ac 3f 02 |? | MOVE.W D2,-(A7) 000232ae 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7) 000232b2 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000232b8 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7) 000232bc 48 78 00 01 |Hx | PEA.L 0x1 000232c0 4e ba f7 8e |N | JSR 0x22a50 000232c4 50 4f |PO | ADDQ.L #0x8,A7 000232c6 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000232cc 50 4f |PO | ADDQ.L #0x8,A7 000232ce 4e ba ea 58 |N X | JSR 0x21d28 000232d2 de fc 00 18 | | ADDA.W #0x18,A7 000232d6 2f 08 |/ | MOVE.L A0,-(A7) 000232d8 2f 13 |/ | MOVE.L (A3),-(A7) 000232da 2f 28 00 1e |/( | MOVE.L (A0+0x1e),-(A7) 000232de 44 97 |D | NEG.L (A7) 000232e0 4e ba ef 9a |N | JSR 0x2227c 000232e4 58 4f |XO | ADDQ.L #0x4,A7 000232e6 2e a8 00 1e |. | MOVE.L (A0+0x1e),(A7) 000232ea 7e 01 |~ | MOVEQ.L #0x01,D7 000232ec be 97 | | CMP.L (A7),D7 000232ee 6e 38 |n8 | BGT 0x23328 000232f0 20 07 | | MOVE.L D7,D0 000232f2 d0 93 | | ADD.L (A3),D0 000232f4 53 80 |S | SUBQ.L #0x1,D0 000232f6 53 80 |S | SUBQ.L #0x1,D0 000232f8 0c 80 00 00 0f ff | | CMPI.L #0x00000fff,D0 000232fe 63 02 |c | BLS 0x23302 00023300 4e 4f |NO | TRAP #15 00023302 41 f9 00 02 58 2a |A X* | LEA.L 0x2582a,A0 00023308 22 6f 00 04 |"o | MOVEA.L (A7+0x4),A1 0002330c 22 69 00 22 |"i " | MOVEA.L (A1+0x22),A1 00023310 22 07 |" | MOVE.L D7,D1 00023312 53 81 |S | SUBQ.L #0x1,D1 00023314 0c 81 00 00 03 ff | | CMPI.L #0x000003ff,D1 0002331a 63 02 |c | BLS 0x2331e 0002331c 4e 4f |NO | TRAP #15 0002331e 11 b1 18 00 08 08 | | MOVE.B (A1+D1.L),(A0+D0.L+#0x8) 00023324 52 87 |R | ADDQ.L #0x1,D7 00023326 68 c4 |h | BVC 0x232ec 00023328 50 4f |PO | ADDQ.L #0x8,A7 0002332a 4c df 1f 87 |L | MOVEM.L (A7)+,D0+D1+D2+D7+A0+A1+A2+A3+A4 0002332e 4e 5e |N^ | UNLK A6 00023330 4e 75 |Nu | RTS 00023332 ; -------------------------------------------------------------------------------------- 00023332 ; OMSI PASCAL Function 00023332 ; <LVAR -0x004 4(rw)> 00023332 ; -------------------------------------------------------------------------------------- 00023332 4e 56 ff ae |NV | LINK.W A6,#0xffae 00023336 bf d5 | | CMPA.L (A5),A7 00023338 62 06 |b | BHI 0x23340 0002333a 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002333e 4e 76 |Nv | TRAPV 00023340 de fc 00 4e | N | ADDA.W #0x4e,A7 00023344 48 e7 e0 f0 |H | MOVEM.L A3+A2+A1+A0+D2+D1+D0,-(A7) 00023348 47 ee ff fc |G | LEA.L (A6-0x4),A3 0002334c 72 01 |r | MOVEQ.L #0x01,D1 0002334e 74 1e |t | MOVEQ.L #0x1e,D2 00023350 26 b9 00 02 68 5c |& h\ | MOVE.L 0x2685c,(A3) 00023356 20 53 | S | MOVEA.L (A3),A0 00023358 b0 c1 | | CMPA.W D1,A0 0002335a 67 30 |g0 | BEQ 0x2338c 0002335c 9e c2 | | SUBA.W D2,A7 0002335e 22 4f |"O | MOVEA.L A7,A1 00023360 24 48 |$H | MOVEA.L A0,A2 00023362 70 1d |p | MOVEQ.L #0x1d,D0 00023364 12 da | | MOVE.B (A2)+,(A1)+ 00023366 51 c8 ff fc |Q | DBF D0,0x23364 0002336a 59 4f |YO | SUBQ.L #0x4,A7 0002336c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023370 3f 01 |? | MOVE.W D1,-(A7) 00023372 3f 02 |? | MOVE.W D2,-(A7) 00023374 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002337a 50 4f |PO | ADDQ.L #0x8,A7 0002337c 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00023382 de fc 00 22 | " | ADDA.W #0x22,A7 00023386 26 a8 00 26 |& & | MOVE.L (A0+0x26),(A3) 0002338a 60 ca |` | BRA 0x23356 0002338c 4c df 0f 07 |L | MOVEM.L (A7)+,D0+D1+D2+A0+A1+A2+A3 00023390 4e 5e |N^ | UNLK A6 00023392 4e 75 |Nu | RTS 00023394 ; -------------------------------------------------------------------------------------- 00023394 ; OMSI PASCAL Function 00023394 ; <LVAR 0x008 4(r)> 00023394 ; -------------------------------------------------------------------------------------- 00023394 4e 56 ff ce |NV | LINK.W A6,#0xffce 00023398 bf d5 | | CMPA.L (A5),A7 0002339a 62 06 |b | BHI 0x233a2 0002339c 44 fc 00 02 |D | MOVE.W #0x2,CCR 000233a0 4e 76 |Nv | TRAPV 000233a2 de fc 00 32 | 2 | ADDA.W #0x32,A7 000233a6 9e fc 00 26 | & | SUBA.W #0x26,A7 000233aa 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000233ae 48 78 00 01 |Hx | PEA.L 0x1 000233b2 4e ba f6 9c |N | JSR 0x22a50 000233b6 50 4f |PO | ADDQ.L #0x8,A7 000233b8 4e ba fa 7a |N z | JSR 0x22e34 000233bc 58 4f |XO | ADDQ.L #0x4,A7 000233be 4e ba fa f6 |N | JSR 0x22eb6 000233c2 de fc 00 1e | | ADDA.W #0x1e,A7 000233c6 4e ba fb 42 |N B | JSR 0x22f0a 000233ca 58 4f |XO | ADDQ.L #0x4,A7 000233cc 4e 5e |N^ | UNLK A6 000233ce 4e 75 |Nu | RTS 000233d0 ; -------------------------------------------------------------------------------------- 000233d0 ; OMSI PASCAL Function 000233d0 ; -------------------------------------------------------------------------------------- 000233d0 4e 56 ff f4 |NV | LINK.W A6,#0xfff4 000233d4 bf d5 | | CMPA.L (A5),A7 000233d6 62 06 |b | BHI 0x233de 000233d8 44 fc 00 02 |D | MOVE.W #0x2,CCR 000233dc 4e 76 |Nv | TRAPV 000233de de fc 00 0c | | ADDA.W #0xc,A7 000233e2 51 4f |QO | SUBQ.L #0x8,A7 000233e4 4e b9 00 01 03 cc |N | JSR GetPushLevel() : Long 000233ea 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 000233f0 58 4f |XO | ADDQ.L #0x4,A7 000233f2 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000233f8 58 4f |XO | ADDQ.L #0x4,A7 000233fa 4e 5e |N^ | UNLK A6 000233fc 4e 75 |Nu | RTS 000233fe ; -------------------------------------------------------------------------------------- 000233fe ; OMSI PASCAL Function 000233fe ; <LVAR 0x008 4(r)> 000233fe ; <LVAR -0x004 1(rw)> 000233fe ; <LVAR -0x008 @ 4(rw)> 000233fe ; <LVAR -0x00c @ 4(r)> 000233fe ; <LVAR -0x010 @ 4(r)> 000233fe ; <LVAR -0x012 @ 1(r)> 000233fe ; <LVAR -0x013 @ 1(r)> 000233fe ; <LVAR -0x014 @ 1(r)> 000233fe ; <LVAR -0x024 4(rw)> 000233fe ; <LVAR -0x028 4(rw)> 000233fe ; <LVAR -0x02c 4(rw)> 000233fe ; <LVAR -0x030 @ 4(r)> 000233fe ; <LVAR -0x032 1(w)> 000233fe ; <LVAR -0x036 @ 4(r)> 000233fe ; <LVAR -0x038 @ 1(r)> 000233fe ; <LVAR -0x03c @ 4(rw)> 000233fe ; -------------------------------------------------------------------------------------- 000233fe 4e 56 ff 64 |NV d | LINK.W A6,#0xff64 00023402 bf d5 | | CMPA.L (A5),A7 00023404 62 06 |b | BHI 0x2340c 00023406 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002340a 4e 76 |Nv | TRAPV 0002340c de fc 00 60 | ` | ADDA.W #0x60,A7 00023410 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00023414 45 ee ff c4 |E | LEA.L (A6-0x3c),A2 00023418 47 ee 00 08 |G | LEA.L (A6+0x8),A3 0002341c 49 f9 00 01 02 c4 |I | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A4 00023422 74 01 |t | MOVEQ.L #0x01,D2 00023424 76 14 |v | MOVEQ.L #0x14,D3 00023426 28 3c ff ff 80 00 |(< | MOVE.L #0xffff8000,D4 0002342c 59 4f |YO | SUBQ.L #0x4,A7 0002342e 2f 13 |/ | MOVE.L (A3),-(A7) 00023430 4e ba ed 02 |N | JSR 0x22134 00023434 58 4f |XO | ADDQ.L #0x4,A7 00023436 2d 5f ff d4 |-_ | MOVE.L (A7)+,(A6-0x2c) 0002343a 66 28 |f( | BNE 0x23464 0002343c 59 4f |YO | SUBQ.L #0x4,A7 0002343e 1e ba e5 0c | | MOVE.B 0x2194c,(A7) 00023442 1f 7a e5 09 00 01 | z | MOVE.B 0x2194d,(A7+0x1) 00023448 1f 7a e5 04 00 02 | z | MOVE.B 0x2194e,(A7+0x2) 0002344e 59 4f |YO | SUBQ.L #0x4,A7 00023450 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023454 3f 02 |? | MOVE.W D2,-(A7) 00023456 3f 3c 00 03 |?< | MOVE.W #0x3,-(A7) 0002345a 4e 94 |N | JSR (A4) 0002345c 50 4f |PO | ADDQ.L #0x8,A7 0002345e 24 9f |$ | MOVE.L (A7)+,(A2) 00023460 58 4f |XO | ADDQ.L #0x4,A7 00023462 60 10 |` | BRA 0x23474 00023464 59 4f |YO | SUBQ.L #0x4,A7 00023466 2f 13 |/ | MOVE.L (A3),-(A7) 00023468 48 78 00 01 |Hx | PEA.L 0x1 0002346c 4e ba f5 e2 |N | JSR 0x22a50 00023470 50 4f |PO | ADDQ.L #0x8,A7 00023472 24 9f |$ | MOVE.L (A7)+,(A2) 00023474 5d 4f |]O | SUBQ.L #0x6,A7 00023476 20 4f | O | MOVEA.L A7,A0 00023478 43 fa e4 d6 |C | LEA.L 0x21950,A1 0002347c 70 04 |p | MOVEQ.L #0x04,D0 0002347e 10 d9 | | MOVE.B (A1)+,(A0)+ 00023480 51 c8 ff fc |Q | DBF D0,0x2347e 00023484 59 4f |YO | SUBQ.L #0x4,A7 00023486 2f 12 |/ | MOVE.L (A2),-(A7) 00023488 59 4f |YO | SUBQ.L #0x4,A7 0002348a 48 6f 00 0c |Ho | PEA.L (A7+0xc) 0002348e 3f 02 |? | MOVE.W D2,-(A7) 00023490 3f 3c 00 05 |?< | MOVE.W #0x5,-(A7) 00023494 4e 94 |N | JSR (A4) 00023496 50 4f |PO | ADDQ.L #0x8,A7 00023498 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 0002349e 50 4f |PO | ADDQ.L #0x8,A7 000234a0 24 9f |$ | MOVE.L (A7)+,(A2) 000234a2 54 4f |TO | ADDQ.L #0x2,A7 000234a4 2e 92 |. | MOVE.L (A2),(A7) 000234a6 42 27 |B' | CLR.B -(A7) 000234a8 1f 02 | | MOVE.B D2,-(A7) 000234aa 48 78 00 00 |Hx | PEA.L 0x0 000234ae 48 6e ff c8 |Hn | PEA.L (A6-0x38) 000234b2 48 6e ff ca |Hn | PEA.L (A6-0x36) 000234b6 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File) 000234bc de c3 | | ADDA.W D3,A7 000234be 4a 2e ff c8 |J. | TST.B (A6-0x38) 000234c2 67 0e |g | BEQ 0x234d2 000234c4 48 52 |HR | PEA.L (A2) 000234c6 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000234cc 58 4f |XO | ADDQ.L #0x4,A7 000234ce 60 00 02 4e |` N | BRA 0x2371e 000234d2 20 6e ff ca | n | MOVEA.L (A6-0x36),A0 000234d6 10 28 00 3f | ( ? | MOVE.B (A0+0x3f),D0 000234da ed 08 | | LSL.B #0x6,D0 000234dc ee 08 | | LSR.B #0x7,D0 000234de 1d 40 ff ce | @ | MOVE.B D0,(A6-0x32) 000234e2 42 27 |B' | CLR.B -(A7) 000234e4 1f 02 | | MOVE.B D2,-(A7) 000234e6 48 78 00 01 |Hx | PEA.L 0x1 000234ea 48 6e ff c8 |Hn | PEA.L (A6-0x38) 000234ee 48 6e ff ca |Hn | PEA.L (A6-0x36) 000234f2 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File) 000234f8 de fc 00 10 | | ADDA.W #0x10,A7 000234fc 20 52 | R | MOVEA.L (A2),A0 000234fe 32 10 |2 | MOVE.W (A0),D1 00023500 48 c1 |H | EXTW.L D1 00023502 5b 81 |[ | SUBQ.L #0x5,D1 00023504 92 84 | | SUB.L D4,D1 00023506 0c 81 00 00 ff ff | | CMPI.L #0x0000ffff,D1 0002350c 63 02 |c | BLS 0x23510 0002350e 4e 4f |NO | TRAP #15 00023510 d2 84 | | ADD.L D4,D1 00023512 30 81 |0 | MOVE.W D1,(A0) 00023514 4a 00 |J | TST.B D0 00023516 66 36 |f6 | BNE 0x2354e 00023518 41 fa e4 32 |A 2 | LEA.L 0x2194c,A0 0002351c 70 08 |p | MOVEQ.L #0x08,D0 0002351e 3f 20 |? | MOVE.W -(A0),-(A7) 00023520 51 c8 ff fc |Q | DBF D0,0x2351e 00023524 59 4f |YO | SUBQ.L #0x4,A7 00023526 2f 12 |/ | MOVE.L (A2),-(A7) 00023528 59 4f |YO | SUBQ.L #0x4,A7 0002352a 48 6f 00 0c |Ho | PEA.L (A7+0xc) 0002352e 3f 02 |? | MOVE.W D2,-(A7) 00023530 3f 3c 00 12 |?< | MOVE.W #0x12,-(A7) 00023534 4e 94 |N | JSR (A4) 00023536 50 4f |PO | ADDQ.L #0x8,A7 00023538 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 0002353e 50 4f |PO | ADDQ.L #0x8,A7 00023540 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00023546 de fc 00 16 | | ADDA.W #0x16,A7 0002354a 60 00 01 d2 |` | BRA 0x2371e 0002354e 48 6e ff d0 |Hn | PEA.L (A6-0x30) 00023552 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00023558 58 4f |XO | ADDQ.L #0x4,A7 0002355a 20 6e ff d0 | n | MOVEA.L (A6-0x30),A0 0002355e 2f 08 |/ | MOVE.L A0,-(A7) 00023560 7e 01 |~ | MOVEQ.L #0x01,D7 00023562 2f 2e ff d4 |/. | MOVE.L (A6-0x2c),-(A7) 00023566 7a 02 |z | MOVEQ.L #0x02,D5 00023568 ba 97 | | CMP.L (A7),D5 0002356a 6e 00 00 94 |n | BGT 0x23600 0002356e 51 4f |QO | SUBQ.L #0x8,A7 00023570 2f 13 |/ | MOVE.L (A3),-(A7) 00023572 2f 05 |/ | MOVE.L D5,-(A7) 00023574 4e ba f3 fc |N | JSR 0x22972 00023578 50 4f |PO | ADDQ.L #0x8,A7 0002357a 2d 5f ff d8 |-_ | MOVE.L (A7)+,(A6-0x28) 0002357e 2d 5f ff dc |-_ | MOVE.L (A7)+,(A6-0x24) 00023582 2f 2e ff dc |/. | MOVE.L (A6-0x24),-(A7) 00023586 2c 2e ff d8 |,. | MOVE.L (A6-0x28),D6 0002358a bc 97 | | CMP.L (A7),D6 0002358c 6e 14 |n | BGT 0x235a2 0002358e 20 17 | | MOVE.L (A7),D0 00023590 0c 86 80 00 00 01 | | CMPI.L #0x80000001,D6 00023596 6d 08 |m | BLT 0x235a0 00023598 0c 80 7f ff ff ff | | CMPI.L #0x7fffffff,D0 0002359e 6f 02 |o | BLE 0x235a2 000235a0 4e 4f |NO | TRAP #15 000235a2 bc 97 | | CMP.L (A7),D6 000235a4 6e 32 |n2 | BGT 0x235d8 000235a6 20 07 | | MOVE.L D7,D0 000235a8 53 80 |S | SUBQ.L #0x1,D0 000235aa 0c 80 00 00 00 7d | } | CMPI.L #0x0000007d,D0 000235b0 63 02 |c | BLS 0x235b4 000235b2 4e 4f |NO | TRAP #15 000235b4 20 6f 00 08 | o | MOVEA.L (A7+0x8),A0 000235b8 22 06 |" | MOVE.L D6,D1 000235ba 53 81 |S | SUBQ.L #0x1,D1 000235bc 0c 81 00 00 0f ff | | CMPI.L #0x00000fff,D1 000235c2 63 02 |c | BLS 0x235c6 000235c4 4e 4f |NO | TRAP #15 000235c6 43 f9 00 02 58 2a |C X* | LEA.L 0x2582a,A1 000235cc 11 b1 18 08 08 02 | | MOVE.B (A1+D1.L+#0x8),(A0+D0.L+#0x2) 000235d2 52 87 |R | ADDQ.L #0x1,D7 000235d4 52 86 |R | ADDQ.L #0x1,D6 000235d6 68 ca |h | BVC 0x235a2 000235d8 58 4f |XO | ADDQ.L #0x4,A7 000235da ba ae ff d4 | | CMP.L (A6-0x2c),D5 000235de 67 1a |g | BEQ 0x235fa 000235e0 20 07 | | MOVE.L D7,D0 000235e2 53 80 |S | SUBQ.L #0x1,D0 000235e4 0c 80 00 00 00 7d | } | CMPI.L #0x0000007d,D0 000235ea 63 02 |c | BLS 0x235ee 000235ec 4e 4f |NO | TRAP #15 000235ee 20 6f 00 04 | o | MOVEA.L (A7+0x4),A0 000235f2 11 bc 00 2c 08 02 | , | MOVE.B #0x2c,(A0+D0.L+#0x2) 000235f8 52 87 |R | ADDQ.L #0x1,D7 000235fa 52 85 |R | ADDQ.L #0x1,D5 000235fc 68 00 ff 6a |h j | BVC 0x23568 00023600 58 4f |XO | ADDQ.L #0x4,A7 00023602 20 57 | W | MOVEA.L (A7),A0 00023604 20 07 | | MOVE.L D7,D0 00023606 53 80 |S | SUBQ.L #0x1,D0 00023608 90 84 | | SUB.L D4,D0 0002360a 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 00023610 63 02 |c | BLS 0x23614 00023612 4e 4f |NO | TRAP #15 00023614 d0 84 | | ADD.L D4,D0 00023616 30 80 |0 | MOVE.W D0,(A0) 00023618 54 4f |TO | ADDQ.L #0x2,A7 0002361a 3e ba e3 3e |> > | MOVE.W 0x2195a,(A7) 0002361e 3f 3a e3 38 |?: 8 | MOVE.W 0x21958,-(A7) 00023622 3f 3a e3 32 |?: 2 | MOVE.W 0x21956,-(A7) 00023626 59 4f |YO | SUBQ.L #0x4,A7 00023628 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002362c 3f 02 |? | MOVE.W D2,-(A7) 0002362e 3f 3c 00 06 |?< | MOVE.W #0x6,-(A7) 00023632 4e 94 |N | JSR (A4) 00023634 50 4f |PO | ADDQ.L #0x8,A7 00023636 2d 5f ff f8 |-_ | MOVE.L (A7)+,(A6-0x8) 0002363a 54 4f |TO | ADDQ.L #0x2,A7 0002363c 2e 93 |. | MOVE.L (A3),(A7) 0002363e 48 78 00 00 |Hx | PEA.L 0x0 00023642 2f 2e ff f8 |/. | MOVE.L (A6-0x8),-(A7) 00023646 48 6e ff f0 |Hn | PEA.L (A6-0x10) 0002364a 48 6e ff ed |Hn | PEA.L (A6-0x13) 0002364e 4e b9 00 02 4f 88 |N O | JSR 0x24f88 00023654 de c3 | | ADDA.W D3,A7 00023656 48 6e ff f8 |Hn | PEA.L (A6-0x8) 0002365a 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00023660 54 4f |TO | ADDQ.L #0x2,A7 00023662 3e ba e2 fc |> | MOVE.W 0x21960,(A7) 00023666 3f 3a e2 f6 |?: | MOVE.W 0x2195e,-(A7) 0002366a 3f 3a e2 f0 |?: | MOVE.W 0x2195c,-(A7) 0002366e 59 4f |YO | SUBQ.L #0x4,A7 00023670 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023674 3f 02 |? | MOVE.W D2,-(A7) 00023676 3f 3c 00 06 |?< | MOVE.W #0x6,-(A7) 0002367a 4e 94 |N | JSR (A4) 0002367c 50 4f |PO | ADDQ.L #0x8,A7 0002367e 2d 5f ff f8 |-_ | MOVE.L (A7)+,(A6-0x8) 00023682 54 4f |TO | ADDQ.L #0x2,A7 00023684 2e 93 |. | MOVE.L (A3),(A7) 00023686 48 78 00 00 |Hx | PEA.L 0x0 0002368a 2f 2e ff f8 |/. | MOVE.L (A6-0x8),-(A7) 0002368e 48 6e ff f4 |Hn | PEA.L (A6-0xc) 00023692 48 6e ff ee |Hn | PEA.L (A6-0x12) 00023696 4e b9 00 02 4f 88 |N O | JSR 0x24f88 0002369c de c3 | | ADDA.W D3,A7 0002369e 48 6e ff f8 |Hn | PEA.L (A6-0x8) 000236a2 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000236a8 58 4f |XO | ADDQ.L #0x4,A7 000236aa 4a 2e ff ed |J. | TST.B (A6-0x13) 000236ae 66 06 |f | BNE 0x236b6 000236b0 4a 2e ff ee |J. | TST.B (A6-0x12) 000236b4 67 06 |g | BEQ 0x236bc 000236b6 42 2e ff fc |B. | CLR.B (A6-0x4) 000236ba 60 04 |` | BRA 0x236c0 000236bc 1d 42 ff fc | B | MOVE.B D2,(A6-0x4) 000236c0 2f 12 |/ | MOVE.L (A2),-(A7) 000236c2 2f 2e ff d0 |/. | MOVE.L (A6-0x30),-(A7) 000236c6 10 2e ff fc | . | MOVE.B (A6-0x4),D0 000236ca 48 80 |H | EXTB.W D0 000236cc 41 bc 00 02 |A | CHK.W #0x2,D0 000236d0 1f 00 | | MOVE.B D0,-(A7) 000236d2 48 6e ff ec |Hn | PEA.L (A6-0x14) 000236d6 4e b9 00 01 03 b0 |N | JSR PushProgram(a : String; b : String; MOD c : B; VAR d : Bool) 000236dc de fc 00 0e | | ADDA.W #0xe,A7 000236e0 4a 2e ff ed |J. | TST.B (A6-0x13) 000236e4 67 20 |g | BEQ 0x23706 000236e6 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7) 000236ea 59 4f |YO | SUBQ.L #0x4,A7 000236ec 10 2e ff ec | . | MOVE.B (A6-0x14),D0 000236f0 48 80 |H | EXTB.W D0 000236f2 41 bc 00 0e |A | CHK.W #0xe,D0 000236f6 1f 00 | | MOVE.B D0,-(A7) 000236f8 4e b9 00 01 03 c0 |N | JSR ExpErrMsg(a: Byte) : String 000236fe 54 4f |TO | ADDQ.L #0x2,A7 00023700 4e ba f9 4c |N L | JSR 0x2304e 00023704 50 4f |PO | ADDQ.L #0x8,A7 00023706 4a 2e ff ee |J. | TST.B (A6-0x12) 0002370a 67 12 |g | BEQ 0x2371e 0002370c 2f 2e ff f4 |/. | MOVE.L (A6-0xc),-(A7) 00023710 59 4f |YO | SUBQ.L #0x4,A7 00023712 4e b9 00 01 03 c8 |N | JSR FSCALL_103c8 00023718 4e ba f9 34 |N 4 | JSR 0x2304e 0002371c 50 4f |PO | ADDQ.L #0x8,A7 0002371e 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00023722 4e 5e |N^ | UNLK A6 00023724 4e 75 |Nu | RTS 00023726 ; -------------------------------------------------------------------------------------- 00023726 ; OMSI PASCAL Function 00023726 ; <LVAR 0x008 4(r)> 00023726 ; <LVAR -0x004 @ 4(rw)> 00023726 ; <LVAR -0x008 @ 4(rw)> 00023726 ; -------------------------------------------------------------------------------------- 00023726 4e 56 ff e0 |NV | LINK.W A6,#0xffe0 0002372a bf d5 | | CMPA.L (A5),A7 0002372c 62 06 |b | BHI 0x23734 0002372e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023732 4e 76 |Nv | TRAPV 00023734 de fc 00 18 | | ADDA.W #0x18,A7 00023738 48 e7 00 c0 |H | MOVEM.L A1+A0,-(A7) 0002373c 41 ee ff f8 |A | LEA.L (A6-0x8),A0 00023740 43 ee ff fc |C | LEA.L (A6-0x4),A1 00023744 59 4f |YO | SUBQ.L #0x4,A7 00023746 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 0002374a 48 78 00 01 |Hx | PEA.L 0x1 0002374e 4e ba f3 00 |N | JSR 0x22a50 00023752 50 4f |PO | ADDQ.L #0x8,A7 00023754 20 97 | | MOVE.L (A7),(A0) 00023756 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 0002375a 48 78 00 02 |Hx | PEA.L 0x2 0002375e 4e ba f2 f0 |N | JSR 0x22a50 00023762 50 4f |PO | ADDQ.L #0x8,A7 00023764 22 97 |" | MOVE.L (A7),(A1) 00023766 54 4f |TO | ADDQ.L #0x2,A7 00023768 2f 10 |/ | MOVE.L (A0),-(A7) 0002376a 2f 11 |/ | MOVE.L (A1),-(A7) 0002376c 4e b9 00 01 02 c8 |N | JSR StringEqual(a, b : String) : Byte 00023772 50 4f |PO | ADDQ.L #0x8,A7 00023774 4a 1f |J | TST.B (A7)+ 00023776 67 06 |g | BEQ 0x2377e 00023778 4e ba ed 96 |N | JSR 0x22510 0002377c 60 04 |` | BRA 0x23782 0002377e 4e ba ed d6 |N | JSR 0x22556 00023782 48 51 |HQ | PEA.L (A1) 00023784 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 0002378a 58 4f |XO | ADDQ.L #0x4,A7 0002378c 48 50 |HP | PEA.L (A0) 0002378e 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00023794 58 4f |XO | ADDQ.L #0x4,A7 00023796 4c df 03 00 |L | MOVEM.L (A7)+,A0+A1 0002379a 4e 5e |N^ | UNLK A6 0002379c 4e 75 |Nu | RTS 0002379e ; -------------------------------------------------------------------------------------- 0002379e ; OMSI PASCAL Function 0002379e ; <LVAR 0x008 4(r)> 0002379e ; <LVAR -0x004 @ 4(rw)> 0002379e ; <LVAR -0x008 @ 4(rw)> 0002379e ; -------------------------------------------------------------------------------------- 0002379e 4e 56 ff e0 |NV | LINK.W A6,#0xffe0 000237a2 bf d5 | | CMPA.L (A5),A7 000237a4 62 06 |b | BHI 0x237ac 000237a6 44 fc 00 02 |D | MOVE.W #0x2,CCR 000237aa 4e 76 |Nv | TRAPV 000237ac de fc 00 18 | | ADDA.W #0x18,A7 000237b0 48 e7 00 c0 |H | MOVEM.L A1+A0,-(A7) 000237b4 41 ee ff f8 |A | LEA.L (A6-0x8),A0 000237b8 43 ee ff fc |C | LEA.L (A6-0x4),A1 000237bc 59 4f |YO | SUBQ.L #0x4,A7 000237be 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000237c2 48 78 00 01 |Hx | PEA.L 0x1 000237c6 4e ba f2 88 |N | JSR 0x22a50 000237ca 50 4f |PO | ADDQ.L #0x8,A7 000237cc 20 97 | | MOVE.L (A7),(A0) 000237ce 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000237d2 48 78 00 02 |Hx | PEA.L 0x2 000237d6 4e ba f2 78 |N x | JSR 0x22a50 000237da 50 4f |PO | ADDQ.L #0x8,A7 000237dc 22 97 |" | MOVE.L (A7),(A1) 000237de 54 4f |TO | ADDQ.L #0x2,A7 000237e0 2f 10 |/ | MOVE.L (A0),-(A7) 000237e2 2f 11 |/ | MOVE.L (A1),-(A7) 000237e4 4e b9 00 01 02 c8 |N | JSR StringEqual(a, b : String) : Byte 000237ea 50 4f |PO | ADDQ.L #0x8,A7 000237ec 4a 1f |J | TST.B (A7)+ 000237ee 66 06 |f | BNE 0x237f6 000237f0 4e ba ed 1e |N | JSR 0x22510 000237f4 60 04 |` | BRA 0x237fa 000237f6 4e ba ed 5e |N ^ | JSR 0x22556 000237fa 48 51 |HQ | PEA.L (A1) 000237fc 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00023802 58 4f |XO | ADDQ.L #0x4,A7 00023804 48 50 |HP | PEA.L (A0) 00023806 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 0002380c 58 4f |XO | ADDQ.L #0x4,A7 0002380e 4c df 03 00 |L | MOVEM.L (A7)+,A0+A1 00023812 4e 5e |N^ | UNLK A6 00023814 4e 75 |Nu | RTS 00023816 ; -------------------------------------------------------------------------------------- 00023816 ; OMSI PASCAL Function 00023816 ; <LVAR 0x008 4(r)> 00023816 ; -------------------------------------------------------------------------------------- 00023816 4e 56 ff f0 |NV | LINK.W A6,#0xfff0 0002381a bf d5 | | CMPA.L (A5),A7 0002381c 62 06 |b | BHI 0x23824 0002381e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023822 4e 76 |Nv | TRAPV 00023824 de fc 00 10 | | ADDA.W #0x10,A7 00023828 59 4f |YO | SUBQ.L #0x4,A7 0002382a 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 0002382e 48 78 00 01 |Hx | PEA.L 0x1 00023832 4e ba f2 1c |N | JSR 0x22a50 00023836 50 4f |PO | ADDQ.L #0x8,A7 00023838 4e ba f0 0e |N | JSR 0x22848 0002383c 58 4f |XO | ADDQ.L #0x4,A7 0002383e 4e 5e |N^ | UNLK A6 00023840 4e 75 |Nu | RTS 00023842 ; -------------------------------------------------------------------------------------- 00023842 ; OMSI PASCAL Function 00023842 ; <LVAR 0x008 4(r)> 00023842 ; <LVAR -0x014 @ 4(rw)> 00023842 ; -------------------------------------------------------------------------------------- 00023842 4e 56 ff 90 |NV | LINK.W A6,#0xff90 00023846 bf d5 | | CMPA.L (A5),A7 00023848 62 06 |b | BHI 0x23850 0002384a 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002384e 4e 76 |Nv | TRAPV 00023850 de fc 00 5c | \ | ADDA.W #0x5c,A7 00023854 48 e7 e7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7) 00023858 45 ee 00 08 |E | LEA.L (A6+0x8),A2 0002385c 47 ee ff ec |G | LEA.L (A6-0x14),A3 00023860 74 7d |t} | MOVEQ.L #0x7d,D2 00023862 59 4f |YO | SUBQ.L #0x4,A7 00023864 2f 12 |/ | MOVE.L (A2),-(A7) 00023866 48 78 00 01 |Hx | PEA.L 0x1 0002386a 4e ba f1 e4 |N | JSR 0x22a50 0002386e 50 4f |PO | ADDQ.L #0x8,A7 00023870 26 97 |& | MOVE.L (A7),(A3) 00023872 2f 12 |/ | MOVE.L (A2),-(A7) 00023874 48 78 00 02 |Hx | PEA.L 0x2 00023878 4e ba f1 d6 |N | JSR 0x22a50 0002387c 50 4f |PO | ADDQ.L #0x8,A7 0002387e 28 5f |(_ | MOVEA.L (A7)+,A4 00023880 9e fc 00 0c | | SUBA.W #0xc,A7 00023884 2f 12 |/ | MOVE.L (A2),-(A7) 00023886 48 78 00 03 |Hx | PEA.L 0x3 0002388a 4e ba f1 f6 |N | JSR 0x22a82 0002388e 50 4f |PO | ADDQ.L #0x8,A7 00023890 4e b9 00 01 03 50 |N P | JSR Quad2Long(a : Quad) : Long 00023896 50 4f |PO | ADDQ.L #0x8,A7 00023898 2c 17 |, | MOVE.L (A7),D6 0002389a 51 4f |QO | SUBQ.L #0x8,A7 0002389c 2f 12 |/ | MOVE.L (A2),-(A7) 0002389e 48 78 00 04 |Hx | PEA.L 0x4 000238a2 4e ba f1 de |N | JSR 0x22a82 000238a6 50 4f |PO | ADDQ.L #0x8,A7 000238a8 4e b9 00 01 03 50 |N P | JSR Quad2Long(a : Quad) : Long 000238ae 50 4f |PO | ADDQ.L #0x8,A7 000238b0 2a 1f |* | MOVE.L (A7)+,D5 000238b2 20 06 | | MOVE.L D6,D0 000238b4 d0 85 | | ADD.L D5,D0 000238b6 53 80 |S | SUBQ.L #0x1,D0 000238b8 32 14 |2 | MOVE.W (A4),D1 000238ba 48 c1 |H | EXTW.L D1 000238bc b0 81 | | CMP.L D1,D0 000238be 6f 30 |o0 | BLE 0x238f0 000238c0 9e fc 00 20 | | SUBA.W #0x20,A7 000238c4 20 4f | O | MOVEA.L A7,A0 000238c6 43 fa e0 9a |C | LEA.L 0x21962,A1 000238ca 70 1e |p | MOVEQ.L #0x1e,D0 000238cc 10 d9 | | MOVE.B (A1)+,(A0)+ 000238ce 51 c8 ff fc |Q | DBF D0,0x238cc 000238d2 59 4f |YO | SUBQ.L #0x4,A7 000238d4 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000238d8 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000238dc 3f 3c 00 1f |?< | MOVE.W #0x1f,-(A7) 000238e0 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000238e6 50 4f |PO | ADDQ.L #0x8,A7 000238e8 4e ba e4 3e |N > | JSR 0x21d28 000238ec de fc 00 24 | $ | ADDA.W #0x24,A7 000238f0 20 53 | S | MOVEA.L (A3),A0 000238f2 2f 08 |/ | MOVE.L A0,-(A7) 000238f4 30 10 |0 | MOVE.W (A0),D0 000238f6 48 c0 |H | EXTW.L D0 000238f8 2f 00 |/ | MOVE.L D0,-(A7) 000238fa 7e 01 |~ | MOVEQ.L #0x01,D7 000238fc be 97 | | CMP.L (A7),D7 000238fe 6e 26 |n& | BGT 0x23926 00023900 20 06 | | MOVE.L D6,D0 00023902 d0 87 | | ADD.L D7,D0 00023904 53 80 |S | SUBQ.L #0x1,D0 00023906 53 80 |S | SUBQ.L #0x1,D0 00023908 b0 82 | | CMP.L D2,D0 0002390a 63 02 |c | BLS 0x2390e 0002390c 4e 4f |NO | TRAP #15 0002390e 22 07 |" | MOVE.L D7,D1 00023910 53 81 |S | SUBQ.L #0x1,D1 00023912 b2 82 | | CMP.L D2,D1 00023914 63 02 |c | BLS 0x23918 00023916 4e 4f |NO | TRAP #15 00023918 20 6f 00 04 | o | MOVEA.L (A7+0x4),A0 0002391c 19 b0 18 02 08 02 | | MOVE.B (A0+D1.L+#0x2),(A4+D0.L+#0x2) 00023922 52 87 |R | ADDQ.L #0x1,D7 00023924 68 d6 |h | BVC 0x238fc 00023926 58 4f |XO | ADDQ.L #0x4,A7 00023928 2e 8c |. | MOVE.L A4,(A7) 0002392a 4e ba f1 c6 |N | JSR 0x22af2 0002392e 58 4f |XO | ADDQ.L #0x4,A7 00023930 48 53 |HS | PEA.L (A3) 00023932 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00023938 58 4f |XO | ADDQ.L #0x4,A7 0002393a 4c df 1f e7 |L | MOVEM.L (A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3+A4 0002393e 4e 5e |N^ | UNLK A6 00023940 4e 75 |Nu | RTS 00023942 ; -------------------------------------------------------------------------------------- 00023942 ; OMSI PASCAL Function 00023942 ; <LVAR 0x008 4(r)> 00023942 ; <LVAR -0x010 @ 4(r)> 00023942 ; <LVAR -0x014 @ 4(rw)> 00023942 ; -------------------------------------------------------------------------------------- 00023942 4e 56 ff a8 |NV | LINK.W A6,#0xffa8 00023946 bf d5 | | CMPA.L (A5),A7 00023948 62 06 |b | BHI 0x23950 0002394a 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002394e 4e 76 |Nv | TRAPV 00023950 de fc 00 44 | D | ADDA.W #0x44,A7 00023954 48 e7 e7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7) 00023958 45 ee ff ec |E | LEA.L (A6-0x14),A2 0002395c 47 ee ff f0 |G | LEA.L (A6-0x10),A3 00023960 49 ee 00 08 |I | LEA.L (A6+0x8),A4 00023964 74 7d |t} | MOVEQ.L #0x7d,D2 00023966 59 4f |YO | SUBQ.L #0x4,A7 00023968 2f 14 |/ | MOVE.L (A4),-(A7) 0002396a 48 78 00 01 |Hx | PEA.L 0x1 0002396e 4e ba f0 e0 |N | JSR 0x22a50 00023972 50 4f |PO | ADDQ.L #0x8,A7 00023974 24 9f |$ | MOVE.L (A7)+,(A2) 00023976 48 53 |HS | PEA.L (A3) 00023978 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 0002397e 51 4f |QO | SUBQ.L #0x8,A7 00023980 2f 14 |/ | MOVE.L (A4),-(A7) 00023982 48 78 00 02 |Hx | PEA.L 0x2 00023986 4e ba f0 fa |N | JSR 0x22a82 0002398a 50 4f |PO | ADDQ.L #0x8,A7 0002398c 4e b9 00 01 03 50 |N P | JSR Quad2Long(a : Quad) : Long 00023992 50 4f |PO | ADDQ.L #0x8,A7 00023994 2a 17 |* | MOVE.L (A7),D5 00023996 51 4f |QO | SUBQ.L #0x8,A7 00023998 2f 14 |/ | MOVE.L (A4),-(A7) 0002399a 48 78 00 03 |Hx | PEA.L 0x3 0002399e 4e ba f0 e2 |N | JSR 0x22a82 000239a2 50 4f |PO | ADDQ.L #0x8,A7 000239a4 4e b9 00 01 03 50 |N P | JSR Quad2Long(a : Quad) : Long 000239aa 50 4f |PO | ADDQ.L #0x8,A7 000239ac 2c 1f |, | MOVE.L (A7)+,D6 000239ae 20 52 | R | MOVEA.L (A2),A0 000239b0 20 05 | | MOVE.L D5,D0 000239b2 d0 86 | | ADD.L D6,D0 000239b4 53 80 |S | SUBQ.L #0x1,D0 000239b6 32 10 |2 | MOVE.W (A0),D1 000239b8 48 c1 |H | EXTW.L D1 000239ba b0 81 | | CMP.L D1,D0 000239bc 6f 06 |o | BLE 0x239c4 000239be 52 81 |R | ADDQ.L #0x1,D1 000239c0 92 85 | | SUB.L D5,D1 000239c2 2c 01 |, | MOVE.L D1,D6 000239c4 2f 06 |/ | MOVE.L D6,-(A7) 000239c6 7e 01 |~ | MOVEQ.L #0x01,D7 000239c8 be 97 | | CMP.L (A7),D7 000239ca 6e 26 |n& | BGT 0x239f2 000239cc 20 53 | S | MOVEA.L (A3),A0 000239ce 20 07 | | MOVE.L D7,D0 000239d0 53 80 |S | SUBQ.L #0x1,D0 000239d2 b0 82 | | CMP.L D2,D0 000239d4 63 02 |c | BLS 0x239d8 000239d6 4e 4f |NO | TRAP #15 000239d8 22 52 |"R | MOVEA.L (A2),A1 000239da 22 07 |" | MOVE.L D7,D1 000239dc d2 85 | | ADD.L D5,D1 000239de 53 81 |S | SUBQ.L #0x1,D1 000239e0 53 81 |S | SUBQ.L #0x1,D1 000239e2 b2 82 | | CMP.L D2,D1 000239e4 63 02 |c | BLS 0x239e8 000239e6 4e 4f |NO | TRAP #15 000239e8 11 b1 18 02 08 02 | | MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x2) 000239ee 52 87 |R | ADDQ.L #0x1,D7 000239f0 68 d6 |h | BVC 0x239c8 000239f2 58 4f |XO | ADDQ.L #0x4,A7 000239f4 20 53 | S | MOVEA.L (A3),A0 000239f6 04 86 ff ff 80 00 | | SUBI.L #0xffff8000,D6 000239fc 0c 86 00 00 ff ff | | CMPI.L #0x0000ffff,D6 00023a02 63 02 |c | BLS 0x23a06 00023a04 4e 4f |NO | TRAP #15 00023a06 06 86 ff ff 80 00 | | ADDI.L #0xffff8000,D6 00023a0c 30 86 |0 | MOVE.W D6,(A0) 00023a0e 2f 13 |/ | MOVE.L (A3),-(A7) 00023a10 4e ba f0 e0 |N | JSR 0x22af2 00023a14 58 4f |XO | ADDQ.L #0x4,A7 00023a16 48 52 |HR | PEA.L (A2) 00023a18 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00023a1e 58 4f |XO | ADDQ.L #0x4,A7 00023a20 4c df 1f e7 |L | MOVEM.L (A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3+A4 00023a24 4e 5e |N^ | UNLK A6 00023a26 4e 75 |Nu | RTS 00023a28 ; -------------------------------------------------------------------------------------- 00023a28 ; OMSI PASCAL Function 00023a28 ; <LVAR 0x008 4(r)> 00023a28 ; -------------------------------------------------------------------------------------- 00023a28 4e 56 ff ec |NV | LINK.W A6,#0xffec 00023a2c bf d5 | | CMPA.L (A5),A7 00023a2e 62 06 |b | BHI 0x23a36 00023a30 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023a34 4e 76 |Nv | TRAPV 00023a36 de fc 00 14 | | ADDA.W #0x14,A7 00023a3a 51 4f |QO | SUBQ.L #0x8,A7 00023a3c 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023a40 48 78 00 01 |Hx | PEA.L 0x1 00023a44 4e ba f0 3c |N < | JSR 0x22a82 00023a48 50 4f |PO | ADDQ.L #0x8,A7 00023a4a 4e ba ee 70 |N p | JSR 0x228bc 00023a4e 50 4f |PO | ADDQ.L #0x8,A7 00023a50 4e 5e |N^ | UNLK A6 00023a52 4e 75 |Nu | RTS 00023a54 ; -------------------------------------------------------------------------------------- 00023a54 ; OMSI PASCAL Function 00023a54 ; <LVAR 0x008 4(r)> 00023a54 ; -------------------------------------------------------------------------------------- 00023a54 4e 56 ff e2 |NV | LINK.W A6,#0xffe2 00023a58 bf d5 | | CMPA.L (A5),A7 00023a5a 62 06 |b | BHI 0x23a62 00023a5c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023a60 4e 76 |Nv | TRAPV 00023a62 de fc 00 1e | | ADDA.W #0x1e,A7 00023a66 9e fc 00 0a | | SUBA.W #0xa,A7 00023a6a 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023a6e 48 78 00 01 |Hx | PEA.L 0x1 00023a72 4e ba f0 0e |N | JSR 0x22a82 00023a76 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023a7a 48 78 00 02 |Hx | PEA.L 0x2 00023a7e 4e ba f0 02 |N | JSR 0x22a82 00023a82 50 4f |PO | ADDQ.L #0x8,A7 00023a84 4e b9 00 01 03 2c |N , | JSR IsEqual(a, b : Quad) : Bool 00023a8a de fc 00 10 | | ADDA.W #0x10,A7 00023a8e 4a 1f |J | TST.B (A7)+ 00023a90 67 06 |g | BEQ 0x23a98 00023a92 4e ba ea 7c |N | | JSR 0x22510 00023a96 60 04 |` | BRA 0x23a9c 00023a98 4e ba ea bc |N | JSR 0x22556 00023a9c 4e 5e |N^ | UNLK A6 00023a9e 4e 75 |Nu | RTS 00023aa0 ; -------------------------------------------------------------------------------------- 00023aa0 ; OMSI PASCAL Function 00023aa0 ; <LVAR 0x008 4(r)> 00023aa0 ; -------------------------------------------------------------------------------------- 00023aa0 4e 56 ff e2 |NV | LINK.W A6,#0xffe2 00023aa4 bf d5 | | CMPA.L (A5),A7 00023aa6 62 06 |b | BHI 0x23aae 00023aa8 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023aac 4e 76 |Nv | TRAPV 00023aae de fc 00 1e | | ADDA.W #0x1e,A7 00023ab2 9e fc 00 0a | | SUBA.W #0xa,A7 00023ab6 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023aba 48 78 00 01 |Hx | PEA.L 0x1 00023abe 4e ba ef c2 |N | JSR 0x22a82 00023ac2 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023ac6 48 78 00 02 |Hx | PEA.L 0x2 00023aca 4e ba ef b6 |N | JSR 0x22a82 00023ace 50 4f |PO | ADDQ.L #0x8,A7 00023ad0 4e b9 00 01 03 2c |N , | JSR IsEqual(a, b : Quad) : Bool 00023ad6 de fc 00 10 | | ADDA.W #0x10,A7 00023ada 4a 1f |J | TST.B (A7)+ 00023adc 66 06 |f | BNE 0x23ae4 00023ade 4e ba ea 30 |N 0 | JSR 0x22510 00023ae2 60 04 |` | BRA 0x23ae8 00023ae4 4e ba ea 70 |N p | JSR 0x22556 00023ae8 4e 5e |N^ | UNLK A6 00023aea 4e 75 |Nu | RTS 00023aec ; -------------------------------------------------------------------------------------- 00023aec ; OMSI PASCAL Function 00023aec ; <LVAR 0x008 4(r)> 00023aec ; -------------------------------------------------------------------------------------- 00023aec 4e 56 ff e2 |NV | LINK.W A6,#0xffe2 00023af0 bf d5 | | CMPA.L (A5),A7 00023af2 62 06 |b | BHI 0x23afa 00023af4 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023af8 4e 76 |Nv | TRAPV 00023afa de fc 00 1e | | ADDA.W #0x1e,A7 00023afe 9e fc 00 0a | | SUBA.W #0xa,A7 00023b02 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023b06 48 78 00 01 |Hx | PEA.L 0x1 00023b0a 4e ba ef 76 |N v | JSR 0x22a82 00023b0e 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023b12 48 78 00 02 |Hx | PEA.L 0x2 00023b16 4e ba ef 6a |N j | JSR 0x22a82 00023b1a 50 4f |PO | ADDQ.L #0x8,A7 00023b1c 4e b9 00 01 03 28 |N ( | JSR IsSmaller(a, b : Quad) : Bool 00023b22 de fc 00 10 | | ADDA.W #0x10,A7 00023b26 4a 1f |J | TST.B (A7)+ 00023b28 67 06 |g | BEQ 0x23b30 00023b2a 4e ba e9 e4 |N | JSR 0x22510 00023b2e 60 04 |` | BRA 0x23b34 00023b30 4e ba ea 24 |N $ | JSR 0x22556 00023b34 4e 5e |N^ | UNLK A6 00023b36 4e 75 |Nu | RTS 00023b38 ; -------------------------------------------------------------------------------------- 00023b38 ; OMSI PASCAL Function 00023b38 ; <LVAR 0x008 4(r)> 00023b38 ; -------------------------------------------------------------------------------------- 00023b38 4e 56 ff e2 |NV | LINK.W A6,#0xffe2 00023b3c bf d5 | | CMPA.L (A5),A7 00023b3e 62 06 |b | BHI 0x23b46 00023b40 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023b44 4e 76 |Nv | TRAPV 00023b46 de fc 00 1e | | ADDA.W #0x1e,A7 00023b4a 9e fc 00 0a | | SUBA.W #0xa,A7 00023b4e 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023b52 48 78 00 01 |Hx | PEA.L 0x1 00023b56 4e ba ef 2a |N * | JSR 0x22a82 00023b5a 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023b5e 48 78 00 02 |Hx | PEA.L 0x2 00023b62 4e ba ef 1e |N | JSR 0x22a82 00023b66 50 4f |PO | ADDQ.L #0x8,A7 00023b68 4e b9 00 01 03 24 |N $ | JSR IsGreater(a, b : Quad) : Bool 00023b6e de fc 00 10 | | ADDA.W #0x10,A7 00023b72 4a 1f |J | TST.B (A7)+ 00023b74 67 06 |g | BEQ 0x23b7c 00023b76 4e ba e9 98 |N | JSR 0x22510 00023b7a 60 04 |` | BRA 0x23b80 00023b7c 4e ba e9 d8 |N | JSR 0x22556 00023b80 4e 5e |N^ | UNLK A6 00023b82 4e 75 |Nu | RTS 00023b84 ; -------------------------------------------------------------------------------------- 00023b84 ; OMSI PASCAL Function 00023b84 ; <LVAR 0x008 4(r)> 00023b84 ; -------------------------------------------------------------------------------------- 00023b84 4e 56 ff e2 |NV | LINK.W A6,#0xffe2 00023b88 bf d5 | | CMPA.L (A5),A7 00023b8a 62 06 |b | BHI 0x23b92 00023b8c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023b90 4e 76 |Nv | TRAPV 00023b92 de fc 00 1e | | ADDA.W #0x1e,A7 00023b96 9e fc 00 0a | | SUBA.W #0xa,A7 00023b9a 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023b9e 48 78 00 01 |Hx | PEA.L 0x1 00023ba2 4e ba ee de |N | JSR 0x22a82 00023ba6 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023baa 48 78 00 02 |Hx | PEA.L 0x2 00023bae 4e ba ee d2 |N | JSR 0x22a82 00023bb2 50 4f |PO | ADDQ.L #0x8,A7 00023bb4 4e b9 00 01 03 24 |N $ | JSR IsGreater(a, b : Quad) : Bool 00023bba de fc 00 10 | | ADDA.W #0x10,A7 00023bbe 4a 1f |J | TST.B (A7)+ 00023bc0 66 06 |f | BNE 0x23bc8 00023bc2 4e ba e9 4c |N L | JSR 0x22510 00023bc6 60 04 |` | BRA 0x23bcc 00023bc8 4e ba e9 8c |N | JSR 0x22556 00023bcc 4e 5e |N^ | UNLK A6 00023bce 4e 75 |Nu | RTS 00023bd0 ; -------------------------------------------------------------------------------------- 00023bd0 ; OMSI PASCAL Function 00023bd0 ; <LVAR 0x008 4(r)> 00023bd0 ; -------------------------------------------------------------------------------------- 00023bd0 4e 56 ff e2 |NV | LINK.W A6,#0xffe2 00023bd4 bf d5 | | CMPA.L (A5),A7 00023bd6 62 06 |b | BHI 0x23bde 00023bd8 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023bdc 4e 76 |Nv | TRAPV 00023bde de fc 00 1e | | ADDA.W #0x1e,A7 00023be2 9e fc 00 0a | | SUBA.W #0xa,A7 00023be6 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023bea 48 78 00 01 |Hx | PEA.L 0x1 00023bee 4e ba ee 92 |N | JSR 0x22a82 00023bf2 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023bf6 48 78 00 02 |Hx | PEA.L 0x2 00023bfa 4e ba ee 86 |N | JSR 0x22a82 00023bfe 50 4f |PO | ADDQ.L #0x8,A7 00023c00 4e b9 00 01 03 28 |N ( | JSR IsSmaller(a, b : Quad) : Bool 00023c06 de fc 00 10 | | ADDA.W #0x10,A7 00023c0a 4a 1f |J | TST.B (A7)+ 00023c0c 66 06 |f | BNE 0x23c14 00023c0e 4e ba e9 00 |N | JSR 0x22510 00023c12 60 04 |` | BRA 0x23c18 00023c14 4e ba e9 40 |N @ | JSR 0x22556 00023c18 4e 5e |N^ | UNLK A6 00023c1a 4e 75 |Nu | RTS 00023c1c ; -------------------------------------------------------------------------------------- 00023c1c ; OMSI PASCAL Function 00023c1c ; <LVAR 0x008 4(r)> 00023c1c ; -------------------------------------------------------------------------------------- 00023c1c 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 00023c20 bf d5 | | CMPA.L (A5),A7 00023c22 62 06 |b | BHI 0x23c2a 00023c24 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023c28 4e 76 |Nv | TRAPV 00023c2a de fc 00 28 | ( | ADDA.W #0x28,A7 00023c2e 48 e7 80 00 |H | MOVEM.L D0,-(A7) 00023c32 70 10 |p | MOVEQ.L #0x10,D0 00023c34 9e c0 | | SUBA.W D0,A7 00023c36 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023c3a 48 78 00 01 |Hx | PEA.L 0x1 00023c3e 4e ba ee 42 |N B | JSR 0x22a82 00023c42 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023c46 48 78 00 02 |Hx | PEA.L 0x2 00023c4a 4e ba ee 36 |N 6 | JSR 0x22a82 00023c4e 50 4f |PO | ADDQ.L #0x8,A7 00023c50 4e b9 00 01 03 14 |N | JSR Add(a, b : Quad) : Quad 00023c56 de c0 | | ADDA.W D0,A7 00023c58 4e ba ef 20 |N | JSR 0x22b7a 00023c5c 50 4f |PO | ADDQ.L #0x8,A7 00023c5e 4c df 00 01 |L | MOVEM.L (A7)+,D0 00023c62 4e 5e |N^ | UNLK A6 00023c64 4e 75 |Nu | RTS 00023c66 ; -------------------------------------------------------------------------------------- 00023c66 ; OMSI PASCAL Function 00023c66 ; <LVAR 0x008 4(r)> 00023c66 ; -------------------------------------------------------------------------------------- 00023c66 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 00023c6a bf d5 | | CMPA.L (A5),A7 00023c6c 62 06 |b | BHI 0x23c74 00023c6e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023c72 4e 76 |Nv | TRAPV 00023c74 de fc 00 28 | ( | ADDA.W #0x28,A7 00023c78 48 e7 80 00 |H | MOVEM.L D0,-(A7) 00023c7c 70 10 |p | MOVEQ.L #0x10,D0 00023c7e 9e c0 | | SUBA.W D0,A7 00023c80 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023c84 48 78 00 01 |Hx | PEA.L 0x1 00023c88 4e ba ed f8 |N | JSR 0x22a82 00023c8c 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023c90 48 78 00 02 |Hx | PEA.L 0x2 00023c94 4e ba ed ec |N | JSR 0x22a82 00023c98 50 4f |PO | ADDQ.L #0x8,A7 00023c9a 4e b9 00 01 03 18 |N | JSR Subtract(a, b : Quad) : Quad 00023ca0 de c0 | | ADDA.W D0,A7 00023ca2 4e ba ee d6 |N | JSR 0x22b7a 00023ca6 50 4f |PO | ADDQ.L #0x8,A7 00023ca8 4c df 00 01 |L | MOVEM.L (A7)+,D0 00023cac 4e 5e |N^ | UNLK A6 00023cae 4e 75 |Nu | RTS 00023cb0 ; -------------------------------------------------------------------------------------- 00023cb0 ; OMSI PASCAL Function 00023cb0 ; <LVAR 0x008 4(r)> 00023cb0 ; -------------------------------------------------------------------------------------- 00023cb0 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 00023cb4 bf d5 | | CMPA.L (A5),A7 00023cb6 62 06 |b | BHI 0x23cbe 00023cb8 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023cbc 4e 76 |Nv | TRAPV 00023cbe de fc 00 28 | ( | ADDA.W #0x28,A7 00023cc2 48 e7 80 00 |H | MOVEM.L D0,-(A7) 00023cc6 70 10 |p | MOVEQ.L #0x10,D0 00023cc8 9e c0 | | SUBA.W D0,A7 00023cca 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023cce 48 78 00 01 |Hx | PEA.L 0x1 00023cd2 4e ba ed ae |N | JSR 0x22a82 00023cd6 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023cda 48 78 00 02 |Hx | PEA.L 0x2 00023cde 4e ba ed a2 |N | JSR 0x22a82 00023ce2 50 4f |PO | ADDQ.L #0x8,A7 00023ce4 4e b9 00 01 03 1c |N | JSR Multiply(a, b : Quad) : Quad 00023cea de c0 | | ADDA.W D0,A7 00023cec 4e ba ee 8c |N | JSR 0x22b7a 00023cf0 50 4f |PO | ADDQ.L #0x8,A7 00023cf2 4c df 00 01 |L | MOVEM.L (A7)+,D0 00023cf6 4e 5e |N^ | UNLK A6 00023cf8 4e 75 |Nu | RTS 00023cfa ; -------------------------------------------------------------------------------------- 00023cfa ; OMSI PASCAL Function 00023cfa ; <LVAR 0x008 4(r)> 00023cfa ; -------------------------------------------------------------------------------------- 00023cfa 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 00023cfe bf d5 | | CMPA.L (A5),A7 00023d00 62 06 |b | BHI 0x23d08 00023d02 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023d06 4e 76 |Nv | TRAPV 00023d08 de fc 00 28 | ( | ADDA.W #0x28,A7 00023d0c 48 e7 80 00 |H | MOVEM.L D0,-(A7) 00023d10 70 10 |p | MOVEQ.L #0x10,D0 00023d12 9e c0 | | SUBA.W D0,A7 00023d14 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023d18 48 78 00 01 |Hx | PEA.L 0x1 00023d1c 4e ba ed 64 |N d | JSR 0x22a82 00023d20 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023d24 48 78 00 02 |Hx | PEA.L 0x2 00023d28 4e ba ed 58 |N X | JSR 0x22a82 00023d2c 50 4f |PO | ADDQ.L #0x8,A7 00023d2e 4e b9 00 01 03 20 |N | JSR Divide(a, b : Quad) : Quad 00023d34 de c0 | | ADDA.W D0,A7 00023d36 4e ba ee 42 |N B | JSR 0x22b7a 00023d3a 50 4f |PO | ADDQ.L #0x8,A7 00023d3c 4c df 00 01 |L | MOVEM.L (A7)+,D0 00023d40 4e 5e |N^ | UNLK A6 00023d42 4e 75 |Nu | RTS 00023d44 ; -------------------------------------------------------------------------------------- 00023d44 ; OMSI PASCAL Function 00023d44 ; <LVAR 0x008 4(r)> 00023d44 ; -------------------------------------------------------------------------------------- 00023d44 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 00023d48 bf d5 | | CMPA.L (A5),A7 00023d4a 62 06 |b | BHI 0x23d52 00023d4c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023d50 4e 76 |Nv | TRAPV 00023d52 de fc 00 28 | ( | ADDA.W #0x28,A7 00023d56 48 e7 80 00 |H | MOVEM.L D0,-(A7) 00023d5a 70 10 |p | MOVEQ.L #0x10,D0 00023d5c 9e c0 | | SUBA.W D0,A7 00023d5e 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023d62 48 78 00 01 |Hx | PEA.L 0x1 00023d66 4e ba ed 1a |N | JSR 0x22a82 00023d6a 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023d6e 48 78 00 02 |Hx | PEA.L 0x2 00023d72 4e ba ed 0e |N | JSR 0x22a82 00023d76 50 4f |PO | ADDQ.L #0x8,A7 00023d78 4e b9 00 01 03 58 |N X | JSR Modulus(a, b : Quad) : Quad 00023d7e de c0 | | ADDA.W D0,A7 00023d80 4e ba ed f8 |N | JSR 0x22b7a 00023d84 50 4f |PO | ADDQ.L #0x8,A7 00023d86 4c df 00 01 |L | MOVEM.L (A7)+,D0 00023d8a 4e 5e |N^ | UNLK A6 00023d8c 4e 75 |Nu | RTS 00023d8e ; -------------------------------------------------------------------------------------- 00023d8e ; OMSI PASCAL Function 00023d8e ; <LVAR 0x008 4(r)> 00023d8e ; -------------------------------------------------------------------------------------- 00023d8e 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 00023d92 bf d5 | | CMPA.L (A5),A7 00023d94 62 06 |b | BHI 0x23d9c 00023d96 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023d9a 4e 76 |Nv | TRAPV 00023d9c de fc 00 28 | ( | ADDA.W #0x28,A7 00023da0 48 e7 80 00 |H | MOVEM.L D0,-(A7) 00023da4 70 10 |p | MOVEQ.L #0x10,D0 00023da6 9e c0 | | SUBA.W D0,A7 00023da8 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023dac 48 78 00 01 |Hx | PEA.L 0x1 00023db0 4e ba ec d0 |N | JSR 0x22a82 00023db4 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023db8 48 78 00 02 |Hx | PEA.L 0x2 00023dbc 4e ba ec c4 |N | JSR 0x22a82 00023dc0 50 4f |PO | ADDQ.L #0x8,A7 00023dc2 4e b9 00 01 03 34 |N 4 | JSR BitOr(a, b : Quad) : Quad 00023dc8 de c0 | | ADDA.W D0,A7 00023dca 4e ba ed ae |N | JSR 0x22b7a 00023dce 50 4f |PO | ADDQ.L #0x8,A7 00023dd0 4c df 00 01 |L | MOVEM.L (A7)+,D0 00023dd4 4e 5e |N^ | UNLK A6 00023dd6 4e 75 |Nu | RTS 00023dd8 ; -------------------------------------------------------------------------------------- 00023dd8 ; OMSI PASCAL Function 00023dd8 ; <LVAR 0x008 4(r)> 00023dd8 ; -------------------------------------------------------------------------------------- 00023dd8 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 00023ddc bf d5 | | CMPA.L (A5),A7 00023dde 62 06 |b | BHI 0x23de6 00023de0 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023de4 4e 76 |Nv | TRAPV 00023de6 de fc 00 28 | ( | ADDA.W #0x28,A7 00023dea 48 e7 80 00 |H | MOVEM.L D0,-(A7) 00023dee 70 10 |p | MOVEQ.L #0x10,D0 00023df0 9e c0 | | SUBA.W D0,A7 00023df2 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023df6 48 78 00 01 |Hx | PEA.L 0x1 00023dfa 4e ba ec 86 |N | JSR 0x22a82 00023dfe 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023e02 48 78 00 02 |Hx | PEA.L 0x2 00023e06 4e ba ec 7a |N z | JSR 0x22a82 00023e0a 50 4f |PO | ADDQ.L #0x8,A7 00023e0c 4e b9 00 01 03 30 |N 0 | JSR BitAnd(a, b : Quad) : Quad 00023e12 de c0 | | ADDA.W D0,A7 00023e14 4e ba ed 64 |N d | JSR 0x22b7a 00023e18 50 4f |PO | ADDQ.L #0x8,A7 00023e1a 4c df 00 01 |L | MOVEM.L (A7)+,D0 00023e1e 4e 5e |N^ | UNLK A6 00023e20 4e 75 |Nu | RTS 00023e22 ; -------------------------------------------------------------------------------------- 00023e22 ; OMSI PASCAL Function 00023e22 ; <LVAR 0x008 4(r)> 00023e22 ; -------------------------------------------------------------------------------------- 00023e22 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 00023e26 bf d5 | | CMPA.L (A5),A7 00023e28 62 06 |b | BHI 0x23e30 00023e2a 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023e2e 4e 76 |Nv | TRAPV 00023e30 de fc 00 28 | ( | ADDA.W #0x28,A7 00023e34 48 e7 80 00 |H | MOVEM.L D0,-(A7) 00023e38 70 10 |p | MOVEQ.L #0x10,D0 00023e3a 9e c0 | | SUBA.W D0,A7 00023e3c 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023e40 48 78 00 01 |Hx | PEA.L 0x1 00023e44 4e ba ec 3c |N < | JSR 0x22a82 00023e48 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023e4c 48 78 00 02 |Hx | PEA.L 0x2 00023e50 4e ba ec 30 |N 0 | JSR 0x22a82 00023e54 50 4f |PO | ADDQ.L #0x8,A7 00023e56 4e b9 00 01 03 40 |N @ | JSR BitXor(a, b : Quad) : Quad 00023e5c de c0 | | ADDA.W D0,A7 00023e5e 4e ba ed 1a |N | JSR 0x22b7a 00023e62 50 4f |PO | ADDQ.L #0x8,A7 00023e64 4c df 00 01 |L | MOVEM.L (A7)+,D0 00023e68 4e 5e |N^ | UNLK A6 00023e6a 4e 75 |Nu | RTS 00023e6c ; -------------------------------------------------------------------------------------- 00023e6c ; OMSI PASCAL Function 00023e6c ; <LVAR 0x008 4(r)> 00023e6c ; -------------------------------------------------------------------------------------- 00023e6c 4e 56 ff e0 |NV | LINK.W A6,#0xffe0 00023e70 bf d5 | | CMPA.L (A5),A7 00023e72 62 06 |b | BHI 0x23e7a 00023e74 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023e78 4e 76 |Nv | TRAPV 00023e7a de fc 00 20 | | ADDA.W #0x20,A7 00023e7e 9e fc 00 10 | | SUBA.W #0x10,A7 00023e82 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023e86 48 78 00 01 |Hx | PEA.L 0x1 00023e8a 4e ba eb f6 |N | JSR 0x22a82 00023e8e 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7) 00023e92 48 78 00 02 |Hx | PEA.L 0x2 00023e96 4e ba ec 26 |N & | JSR 0x22abe 00023e9a 50 4f |PO | ADDQ.L #0x8,A7 00023e9c 4e b9 00 01 03 44 |N D | JSR BitShift(a : Quad ; howmuch : integer) : Quad 00023ea2 de fc 00 0c | | ADDA.W #0xc,A7 00023ea6 4e ba ec d2 |N | JSR 0x22b7a 00023eaa 50 4f |PO | ADDQ.L #0x8,A7 00023eac 4e 5e |N^ | UNLK A6 00023eae 4e 75 |Nu | RTS 00023eb0 ; -------------------------------------------------------------------------------------- 00023eb0 ; OMSI PASCAL Function 00023eb0 ; <LVAR 0x008 4(r)> 00023eb0 ; -------------------------------------------------------------------------------------- 00023eb0 4e 56 ff e0 |NV | LINK.W A6,#0xffe0 00023eb4 bf d5 | | CMPA.L (A5),A7 00023eb6 62 06 |b | BHI 0x23ebe 00023eb8 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023ebc 4e 76 |Nv | TRAPV 00023ebe de fc 00 20 | | ADDA.W #0x20,A7 00023ec2 9e fc 00 10 | | SUBA.W #0x10,A7 00023ec6 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023eca 48 78 00 01 |Hx | PEA.L 0x1 00023ece 4e ba eb b2 |N | JSR 0x22a82 00023ed2 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7) 00023ed6 48 78 00 02 |Hx | PEA.L 0x2 00023eda 4e ba eb e2 |N | JSR 0x22abe 00023ede 50 4f |PO | ADDQ.L #0x8,A7 00023ee0 44 97 |D | NEG.L (A7) 00023ee2 4e b9 00 01 03 44 |N D | JSR BitShift(a : Quad ; howmuch : integer) : Quad 00023ee8 de fc 00 0c | | ADDA.W #0xc,A7 00023eec 4e ba ec 8c |N | JSR 0x22b7a 00023ef0 50 4f |PO | ADDQ.L #0x8,A7 00023ef2 4e 5e |N^ | UNLK A6 00023ef4 4e 75 |Nu | RTS 00023ef6 ; -------------------------------------------------------------------------------------- 00023ef6 ; OMSI PASCAL Function 00023ef6 ; <LVAR 0x008 4(r)> 00023ef6 ; -------------------------------------------------------------------------------------- 00023ef6 4e 56 ff e4 |NV | LINK.W A6,#0xffe4 00023efa bf d5 | | CMPA.L (A5),A7 00023efc 62 06 |b | BHI 0x23f04 00023efe 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023f02 4e 76 |Nv | TRAPV 00023f04 de fc 00 1c | | ADDA.W #0x1c,A7 00023f08 9e fc 00 10 | | SUBA.W #0x10,A7 00023f0c 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023f10 48 78 00 01 |Hx | PEA.L 0x1 00023f14 4e ba eb 6c |N l | JSR 0x22a82 00023f18 50 4f |PO | ADDQ.L #0x8,A7 00023f1a 4e b9 00 01 03 38 |N 8 | JSR BitNot(a : Quad) : Quad 00023f20 50 4f |PO | ADDQ.L #0x8,A7 00023f22 4e ba ec 56 |N V | JSR 0x22b7a 00023f26 50 4f |PO | ADDQ.L #0x8,A7 00023f28 4e 5e |N^ | UNLK A6 00023f2a 4e 75 |Nu | RTS 00023f2c ; -------------------------------------------------------------------------------------- 00023f2c ; OMSI PASCAL Function 00023f2c ; <LVAR 0x008 4(r)> 00023f2c ; <LVAR -0x00c 4(rw)> 00023f2c ; <LVAR -0x010 4(rw)> 00023f2c ; <LVAR -0x014 4(rw)> 00023f2c ; <LVAR -0x018 4(rw)> 00023f2c ; -------------------------------------------------------------------------------------- 00023f2c 4e 56 ff b8 |NV | LINK.W A6,#0xffb8 00023f30 bf d5 | | CMPA.L (A5),A7 00023f32 62 06 |b | BHI 0x23f3a 00023f34 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023f38 4e 76 |Nv | TRAPV 00023f3a de fc 00 30 | 0 | ADDA.W #0x30,A7 00023f3e 48 e7 03 80 |H | MOVEM.L A0+D7+D6,-(A7) 00023f42 41 ee 00 08 |A | LEA.L (A6+0x8),A0 00023f46 51 4f |QO | SUBQ.L #0x8,A7 00023f48 2f 10 |/ | MOVE.L (A0),-(A7) 00023f4a 48 78 00 01 |Hx | PEA.L 0x1 00023f4e 4e ba eb 32 |N 2 | JSR 0x22a82 00023f52 50 4f |PO | ADDQ.L #0x8,A7 00023f54 2d 5f ff e8 |-_ | MOVE.L (A7)+,(A6-0x18) 00023f58 2d 57 ff ec |-W | MOVE.L (A7),(A6-0x14) 00023f5c 59 4f |YO | SUBQ.L #0x4,A7 00023f5e 2f 10 |/ | MOVE.L (A0),-(A7) 00023f60 48 78 00 02 |Hx | PEA.L 0x2 00023f64 4e ba eb 1c |N | JSR 0x22a82 00023f68 50 4f |PO | ADDQ.L #0x8,A7 00023f6a 2d 5f ff f0 |-_ | MOVE.L (A7)+,(A6-0x10) 00023f6e 2d 57 ff f4 |-W | MOVE.L (A7),(A6-0xc) 00023f72 2f 10 |/ | MOVE.L (A0),-(A7) 00023f74 48 78 00 03 |Hx | PEA.L 0x3 00023f78 4e ba eb 44 |N D | JSR 0x22abe 00023f7c 50 4f |PO | ADDQ.L #0x8,A7 00023f7e 2e 17 |. | MOVE.L (A7),D7 00023f80 2f 10 |/ | MOVE.L (A0),-(A7) 00023f82 48 78 00 04 |Hx | PEA.L 0x4 00023f86 4e ba eb 36 |N 6 | JSR 0x22abe 00023f8a 50 4f |PO | ADDQ.L #0x8,A7 00023f8c 2c 17 |, | MOVE.L (A7),D6 00023f8e 59 4f |YO | SUBQ.L #0x4,A7 00023f90 2f 2e ff ec |/. | MOVE.L (A6-0x14),-(A7) 00023f94 2f 2e ff e8 |/. | MOVE.L (A6-0x18),-(A7) 00023f98 2f 2e ff f4 |/. | MOVE.L (A6-0xc),-(A7) 00023f9c 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7) 00023fa0 2f 07 |/ | MOVE.L D7,-(A7) 00023fa2 2f 06 |/ | MOVE.L D6,-(A7) 00023fa4 4e b9 00 01 03 48 |N H | JSR ?BitField_something_() 00023faa de fc 00 18 | | ADDA.W #0x18,A7 00023fae 4e ba eb ca |N | JSR 0x22b7a 00023fb2 50 4f |PO | ADDQ.L #0x8,A7 00023fb4 4c df 01 c0 |L | MOVEM.L (A7)+,D6+D7+A0 00023fb8 4e 5e |N^ | UNLK A6 00023fba 4e 75 |Nu | RTS 00023fbc ; -------------------------------------------------------------------------------------- 00023fbc ; OMSI PASCAL Function 00023fbc ; <LVAR 0x008 4(r)> 00023fbc ; <LVAR -0x00c 4(rw)> 00023fbc ; <LVAR -0x010 4(rw)> 00023fbc ; -------------------------------------------------------------------------------------- 00023fbc 4e 56 ff c8 |NV | LINK.W A6,#0xffc8 00023fc0 bf d5 | | CMPA.L (A5),A7 00023fc2 62 06 |b | BHI 0x23fca 00023fc4 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023fc8 4e 76 |Nv | TRAPV 00023fca de fc 00 28 | ( | ADDA.W #0x28,A7 00023fce 48 e7 03 80 |H | MOVEM.L A0+D7+D6,-(A7) 00023fd2 41 ee 00 08 |A | LEA.L (A6+0x8),A0 00023fd6 51 4f |QO | SUBQ.L #0x8,A7 00023fd8 2f 10 |/ | MOVE.L (A0),-(A7) 00023fda 48 78 00 01 |Hx | PEA.L 0x1 00023fde 4e ba ea a2 |N | JSR 0x22a82 00023fe2 50 4f |PO | ADDQ.L #0x8,A7 00023fe4 2d 5f ff f0 |-_ | MOVE.L (A7)+,(A6-0x10) 00023fe8 2d 57 ff f4 |-W | MOVE.L (A7),(A6-0xc) 00023fec 2f 10 |/ | MOVE.L (A0),-(A7) 00023fee 48 78 00 02 |Hx | PEA.L 0x2 00023ff2 4e ba ea ca |N | JSR 0x22abe 00023ff6 50 4f |PO | ADDQ.L #0x8,A7 00023ff8 2e 17 |. | MOVE.L (A7),D7 00023ffa 2f 10 |/ | MOVE.L (A0),-(A7) 00023ffc 48 78 00 03 |Hx | PEA.L 0x3 00024000 4e ba ea bc |N | JSR 0x22abe 00024004 50 4f |PO | ADDQ.L #0x8,A7 00024006 2c 17 |, | MOVE.L (A7),D6 00024008 59 4f |YO | SUBQ.L #0x4,A7 0002400a 2f 2e ff f4 |/. | MOVE.L (A6-0xc),-(A7) 0002400e 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7) 00024012 2f 07 |/ | MOVE.L D7,-(A7) 00024014 2f 06 |/ | MOVE.L D6,-(A7) 00024016 4e b9 00 01 03 4c |N L | JSR FSCALL_1034c 0002401c de fc 00 10 | | ADDA.W #0x10,A7 00024020 4e ba eb 58 |N X | JSR 0x22b7a 00024024 50 4f |PO | ADDQ.L #0x8,A7 00024026 4c df 01 c0 |L | MOVEM.L (A7)+,D6+D7+A0 0002402a 4e 5e |N^ | UNLK A6 0002402c 4e 75 |Nu | RTS 0002402e ; -------------------------------------------------------------------------------------- 0002402e ; OMSI PASCAL Function 0002402e ; <LVAR 0x008 4(r)> 0002402e ; -------------------------------------------------------------------------------------- 0002402e 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 00024032 bf d5 | | CMPA.L (A5),A7 00024034 62 06 |b | BHI 0x2403c 00024036 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002403a 4e 76 |Nv | TRAPV 0002403c de fc 00 20 | | ADDA.W #0x20,A7 00024040 48 e7 01 08 |H | MOVEM.L A4+D7,-(A7) 00024044 59 4f |YO | SUBQ.L #0x4,A7 00024046 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 0002404a 4e ba e0 e8 |N | JSR 0x22134 0002404e 58 4f |XO | ADDQ.L #0x4,A7 00024050 7e 01 |~ | MOVEQ.L #0x01,D7 00024052 be 97 | | CMP.L (A7),D7 00024054 6e 26 |n& | BGT 0x2407c 00024056 59 4f |YO | SUBQ.L #0x4,A7 00024058 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 0002405c 2f 07 |/ | MOVE.L D7,-(A7) 0002405e 4e ba e9 f0 |N | JSR 0x22a50 00024062 50 4f |PO | ADDQ.L #0x8,A7 00024064 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String) 0002406a 54 4f |TO | ADDQ.L #0x2,A7 0002406c 1e bc 00 20 | | MOVE.B #0x20,(A7) 00024070 4e b9 00 01 03 d0 |N | JSR WriteConsoleChar(chr : char) 00024076 54 4f |TO | ADDQ.L #0x2,A7 00024078 52 87 |R | ADDQ.L #0x1,D7 0002407a 68 d6 |h | BVC 0x24052 0002407c 48 78 00 01 |Hx | PEA.L 0x1 00024080 4e b9 00 01 03 e4 |N | JSR AskConsoleString(prompt : String) : String 00024086 58 4f |XO | ADDQ.L #0x4,A7 00024088 28 5f |(_ | MOVEA.L (A7)+,A4 0002408a 2f 0c |/ | MOVE.L A4,-(A7) 0002408c 4e ba de f2 |N | JSR 0x21f80 00024090 2e 8c |. | MOVE.L A4,(A7) 00024092 4e ba ea 5e |N ^ | JSR 0x22af2 00024096 58 4f |XO | ADDQ.L #0x4,A7 00024098 4c df 10 80 |L | MOVEM.L (A7)+,D7+A4 0002409c 4e 5e |N^ | UNLK A6 0002409e 4e 75 |Nu | RTS 000240a0 ; -------------------------------------------------------------------------------------- 000240a0 ; OMSI PASCAL Function 000240a0 ; <LVAR 0x008 4(r)> 000240a0 ; -------------------------------------------------------------------------------------- 000240a0 4e 56 ff c8 |NV | LINK.W A6,#0xffc8 000240a4 bf d5 | | CMPA.L (A5),A7 000240a6 62 06 |b | BHI 0x240ae 000240a8 44 fc 00 02 |D | MOVE.W #0x2,CCR 000240ac 4e 76 |Nv | TRAPV 000240ae de fc 00 2c | , | ADDA.W #0x2c,A7 000240b2 48 e7 83 88 |H | MOVEM.L A4+A0+D7+D6+D0,-(A7) 000240b6 41 ee 00 08 |A | LEA.L (A6+0x8),A0 000240ba 70 0c |p | MOVEQ.L #0x0c,D0 000240bc 59 4f |YO | SUBQ.L #0x4,A7 000240be 2f 10 |/ | MOVE.L (A0),-(A7) 000240c0 48 78 00 01 |Hx | PEA.L 0x1 000240c4 4e ba e9 8a |N | JSR 0x22a50 000240c8 50 4f |PO | ADDQ.L #0x8,A7 000240ca 28 5f |(_ | MOVEA.L (A7)+,A4 000240cc 9e c0 | | SUBA.W D0,A7 000240ce 2f 10 |/ | MOVE.L (A0),-(A7) 000240d0 48 78 00 02 |Hx | PEA.L 0x2 000240d4 4e ba e9 ac |N | JSR 0x22a82 000240d8 50 4f |PO | ADDQ.L #0x8,A7 000240da 4e b9 00 01 03 50 |N P | JSR Quad2Long(a : Quad) : Long 000240e0 50 4f |PO | ADDQ.L #0x8,A7 000240e2 2e 17 |. | MOVE.L (A7),D7 000240e4 51 4f |QO | SUBQ.L #0x8,A7 000240e6 2f 10 |/ | MOVE.L (A0),-(A7) 000240e8 48 78 00 03 |Hx | PEA.L 0x3 000240ec 4e ba e9 94 |N | JSR 0x22a82 000240f0 50 4f |PO | ADDQ.L #0x8,A7 000240f2 4e b9 00 01 03 50 |N P | JSR Quad2Long(a : Quad) : Long 000240f8 50 4f |PO | ADDQ.L #0x8,A7 000240fa 2c 17 |, | MOVE.L (A7),D6 000240fc 51 4f |QO | SUBQ.L #0x8,A7 000240fe 2f 0c |/ | MOVE.L A4,-(A7) 00024100 2f 07 |/ | MOVE.L D7,-(A7) 00024102 4e b9 00 01 03 60 |N ` | JSR ?StringToInt64() 00024108 58 4f |XO | ADDQ.L #0x4,A7 0002410a 2e 86 |. | MOVE.L D6,(A7) 0002410c 4e b9 00 01 03 5c |N \ | JSR Quad2String(a : Quad; radix : Long ) : String 00024112 de c0 | | ADDA.W D0,A7 00024114 4e ba e9 dc |N | JSR 0x22af2 00024118 58 4f |XO | ADDQ.L #0x4,A7 0002411a 4c df 11 c1 |L | MOVEM.L (A7)+,D0+D6+D7+A0+A4 0002411e 4e 5e |N^ | UNLK A6 00024120 4e 75 |Nu | RTS 00024122 ; -------------------------------------------------------------------------------------- 00024122 ; OMSI PASCAL Function 00024122 ; <LVAR 0x008 4(r)> 00024122 ; <LVAR -0x00a 2(r)> 00024122 ; <LVAR -0x00c 4(rw)> 00024122 ; <LVAR -0x010 4(rw)> 00024122 ; -------------------------------------------------------------------------------------- 00024122 4e 56 ff bc |NV | LINK.W A6,#0xffbc 00024126 bf d5 | | CMPA.L (A5),A7 00024128 62 06 |b | BHI 0x24130 0002412a 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002412e 4e 76 |Nv | TRAPV 00024130 de fc 00 34 | 4 | ADDA.W #0x34,A7 00024134 48 e7 c3 c0 |H | MOVEM.L A1+A0+D7+D6+D1+D0,-(A7) 00024138 41 ee ff f0 |A | LEA.L (A6-0x10),A0 0002413c 43 ee ff f4 |C | LEA.L (A6-0xc),A1 00024140 51 4f |QO | SUBQ.L #0x8,A7 00024142 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00024146 48 78 00 01 |Hx | PEA.L 0x1 0002414a 4e ba e9 36 |N 6 | JSR 0x22a82 0002414e 50 4f |PO | ADDQ.L #0x8,A7 00024150 20 9f | | MOVE.L (A7)+,(A0) 00024152 22 9f |" | MOVE.L (A7)+,(A1) 00024154 7e 00 |~ | MOVEQ.L #0x00,D7 00024156 7c 00 || | MOVEQ.L #0x00,D6 00024158 30 2e ff f6 |0. | MOVE.W (A6-0xa),D0 0002415c 02 40 00 01 | @ | ANDI.W #0x0001,D0 00024160 42 81 |B | CLR.L D1 00024162 32 00 |2 | MOVE.W D0,D1 00024164 de 81 | | ADD.L D1,D7 00024166 51 4f |QO | SUBQ.L #0x8,A7 00024168 2f 11 |/ | MOVE.L (A1),-(A7) 0002416a 2f 10 |/ | MOVE.L (A0),-(A7) 0002416c 48 78 ff ff |Hx | PEA.L 0xffffffff 00024170 4e b9 00 01 03 44 |N D | JSR BitShift(a : Quad ; howmuch : integer) : Quad 00024176 de fc 00 0c | | ADDA.W #0xc,A7 0002417a 20 9f | | MOVE.L (A7)+,(A0) 0002417c 22 9f |" | MOVE.L (A7)+,(A1) 0002417e 52 86 |R | ADDQ.L #0x1,D6 00024180 0c 86 00 00 00 3f | ? | CMPI.L #0x0000003f,D6 00024186 6f d0 |o | BLE 0x24158 00024188 51 4f |QO | SUBQ.L #0x8,A7 0002418a 2f 07 |/ | MOVE.L D7,-(A7) 0002418c 4e b9 00 01 03 54 |N T | JSR Long2Quad(a : Long) : Quad 00024192 58 4f |XO | ADDQ.L #0x4,A7 00024194 4e ba e9 e4 |N | JSR 0x22b7a 00024198 50 4f |PO | ADDQ.L #0x8,A7 0002419a 4c df 03 c3 |L | MOVEM.L (A7)+,D0+D1+D6+D7+A0+A1 0002419e 4e 5e |N^ | UNLK A6 000241a0 4e 75 |Nu | RTS 000241a2 ; -------------------------------------------------------------------------------------- 000241a2 ; OMSI PASCAL Function 000241a2 ; <LVAR 0x008 4(r)> 000241a2 ; <LVAR -0x004 @ 1(r)> 000241a2 ; -------------------------------------------------------------------------------------- 000241a2 4e 56 ff b8 |NV | LINK.W A6,#0xffb8 000241a6 bf d5 | | CMPA.L (A5),A7 000241a8 62 06 |b | BHI 0x241b0 000241aa 44 fc 00 02 |D | MOVE.W #0x2,CCR 000241ae 4e 76 |Nv | TRAPV 000241b0 de fc 00 44 | D | ADDA.W #0x44,A7 000241b4 48 e7 e0 e0 |H | MOVEM.L A2+A1+A0+D2+D1+D0,-(A7) 000241b8 45 f9 00 02 68 64 |E hd | LEA.L 0x26864,A2 000241be 72 01 |r | MOVEQ.L #0x01,D1 000241c0 74 00 |t | MOVEQ.L #0x00,D2 000241c2 4a 12 |J | TST.B (A2) 000241c4 66 32 |f2 | BNE 0x241f8 000241c6 9e fc 00 1c | | SUBA.W #0x1c,A7 000241ca 20 4f | O | MOVEA.L A7,A0 000241cc 43 fa d7 b4 |C | LEA.L 0x21982,A1 000241d0 70 1a |p | MOVEQ.L #0x1a,D0 000241d2 10 d9 | | MOVE.B (A1)+,(A0)+ 000241d4 51 c8 ff fc |Q | DBF D0,0x241d2 000241d8 59 4f |YO | SUBQ.L #0x4,A7 000241da 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000241de 3f 01 |? | MOVE.W D1,-(A7) 000241e0 3f 3c 00 1b |?< | MOVE.W #0x1b,-(A7) 000241e4 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000241ea 50 4f |PO | ADDQ.L #0x8,A7 000241ec 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000241f2 de fc 00 20 | | ADDA.W #0x20,A7 000241f6 14 81 | | MOVE.B D1,(A2) 000241f8 5d 4f |]O | SUBQ.L #0x6,A7 000241fa 4e b9 00 01 03 f8 |N | JSR GetConsoleConfig() : Long 00024200 20 1f | | MOVE.L (A7)+,D0 00024202 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 00024208 63 02 |c | BLS 0x2420c 0002420a 4e 4f |NO | TRAP #15 0002420c 3e 80 |> | MOVE.W D0,(A7) 0002420e 48 6e ff fc |Hn | PEA.L (A6-0x4) 00024212 4e b9 00 01 02 12 |N | JSR KC09_PortStatus(Port : Word; VAR b: Byte) 00024218 5c 4f |\O | ADDQ.L #0x6,A7 0002421a 10 2e ff fc | . | MOVE.B (A6-0x4),D0 0002421e b0 01 | | CMP.B D1,D0 00024220 67 16 |g | BEQ 0x24238 00024222 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00024226 4e ba da be |N | JSR 0x21ce6 0002422a 58 4f |XO | ADDQ.L #0x4,A7 0002422c 2e 6d 00 08 |.m | MOVEA.L (A5+0x8),A7 00024230 3c 42 |<B | MOVEA.W D2,A6 00024232 4e f9 00 02 55 ca |N U | JMP 0x255ca 00024238 55 4f |UO | SUBQ.L #0x2,A7 0002423a 4e b9 00 01 03 d4 |N | JSR ReadChar() : Byte 00024240 10 1f | | MOVE.B (A7)+,D0 00024242 0c 00 00 07 | | CMPI.B #0x07,D0 00024246 67 16 |g | BEQ 0x2425e 00024248 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 0002424c 4e ba da 98 |N | JSR 0x21ce6 00024250 58 4f |XO | ADDQ.L #0x4,A7 00024252 2e 6d 00 08 |.m | MOVEA.L (A5+0x8),A7 00024256 3c 42 |<B | MOVEA.W D2,A6 00024258 4e f9 00 02 55 ca |N U | JMP 0x255ca 0002425e 4c df 07 07 |L | MOVEM.L (A7)+,D0+D1+D2+A0+A1+A2 00024262 4e 5e |N^ | UNLK A6 00024264 4e 75 |Nu | RTS 00024266 ; -------------------------------------------------------------------------------------- 00024266 ; OMSI PASCAL Function 00024266 ; -------------------------------------------------------------------------------------- 00024266 4e 56 ff f8 |NV | LINK.W A6,#0xfff8 0002426a bf d5 | | CMPA.L (A5),A7 0002426c 62 06 |b | BHI 0x24274 0002426e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024272 4e 76 |Nv | TRAPV 00024274 de fc 00 08 | | ADDA.W #0x8,A7 00024278 48 78 00 c8 |Hx | PEA.L 0xc8 0002427c 4e ba e9 30 |N 0 | JSR 0x22bae 00024280 58 4f |XO | ADDQ.L #0x4,A7 00024282 4e 5e |N^ | UNLK A6 00024284 4e 75 |Nu | RTS 00024286 ; -------------------------------------------------------------------------------------- 00024286 ; OMSI PASCAL Function 00024286 ; <LVAR 0x008 4(r)> 00024286 ; <LVAR -0x00c @ 4(r)> 00024286 ; -------------------------------------------------------------------------------------- 00024286 4e 56 ff ac |NV | LINK.W A6,#0xffac 0002428a bf d5 | | CMPA.L (A5),A7 0002428c 62 06 |b | BHI 0x24294 0002428e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024292 4e 76 |Nv | TRAPV 00024294 de fc 00 48 | H | ADDA.W #0x48,A7 00024298 48 e7 83 c0 |H | MOVEM.L A1+A0+D7+D6+D0,-(A7) 0002429c 43 ee ff f4 |C | LEA.L (A6-0xc),A1 000242a0 48 51 |HQ | PEA.L (A1) 000242a2 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 000242a8 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000242ac 4e ba de 86 |N | JSR 0x22134 000242b0 58 4f |XO | ADDQ.L #0x4,A7 000242b2 7e 01 |~ | MOVEQ.L #0x01,D7 000242b4 be 97 | | CMP.L (A7),D7 000242b6 6e 6a |nj | BGT 0x24322 000242b8 59 4f |YO | SUBQ.L #0x4,A7 000242ba 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000242be 2f 07 |/ | MOVE.L D7,-(A7) 000242c0 4e ba e7 fc |N | JSR 0x22abe 000242c4 50 4f |PO | ADDQ.L #0x8,A7 000242c6 2c 1f |, | MOVE.L (A7)+,D6 000242c8 6d 20 |m | BLT 0x242ea 000242ca 0c 86 00 00 00 ff | | CMPI.L #0x000000ff,D6 000242d0 6e 18 |n | BGT 0x242ea 000242d2 2f 11 |/ | MOVE.L (A1),-(A7) 000242d4 0c 86 00 00 00 ff | | CMPI.L #0x000000ff,D6 000242da 63 02 |c | BLS 0x242de 000242dc 4e 4f |NO | TRAP #15 000242de 1f 06 | | MOVE.B D6,-(A7) 000242e0 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 000242e6 5c 4f |\O | ADDQ.L #0x6,A7 000242e8 60 34 |`4 | BRA 0x2431e 000242ea 48 51 |HQ | PEA.L (A1) 000242ec 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000242f2 58 4f |XO | ADDQ.L #0x4,A7 000242f4 41 fa d6 c4 |A | LEA.L 0x219ba,A0 000242f8 70 06 |p | MOVEQ.L #0x06,D0 000242fa 2f 20 |/ | MOVE.L -(A0),-(A7) 000242fc 51 c8 ff fc |Q | DBF D0,0x242fa 00024300 59 4f |YO | SUBQ.L #0x4,A7 00024302 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00024306 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 0002430a 3f 3c 00 1c |?< | MOVE.W #0x1c,-(A7) 0002430e 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00024314 50 4f |PO | ADDQ.L #0x8,A7 00024316 4e ba da 10 |N | JSR 0x21d28 0002431a de fc 00 20 | | ADDA.W #0x20,A7 0002431e 52 87 |R | ADDQ.L #0x1,D7 00024320 68 92 |h | BVC 0x242b4 00024322 2e 91 |. | MOVE.L (A1),(A7) 00024324 4e ba e7 cc |N | JSR 0x22af2 00024328 58 4f |XO | ADDQ.L #0x4,A7 0002432a 4c df 03 c1 |L | MOVEM.L (A7)+,D0+D6+D7+A0+A1 0002432e 4e 5e |N^ | UNLK A6 00024330 4e 75 |Nu | RTS 00024332 ; -------------------------------------------------------------------------------------- 00024332 ; OMSI PASCAL Function 00024332 ; <LVAR 0x00c 1(rw)> 00024332 ; <LVAR 0x008 4(r)> 00024332 ; -------------------------------------------------------------------------------------- 00024332 4e 56 ff c0 |NV | LINK.W A6,#0xffc0 00024336 bf d5 | | CMPA.L (A5),A7 00024338 62 06 |b | BHI 0x24340 0002433a 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002433e 4e 76 |Nv | TRAPV 00024340 de fc 00 34 | 4 | ADDA.W #0x34,A7 00024344 48 e7 e7 c0 |H | MOVEM.L A1+A0+D7+D6+D5+D2+D1+D0,-(A7) 00024348 42 2e 00 0c |B. | CLR.B (A6+0xc) 0002434c 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00024350 2f 08 |/ | MOVE.L A0,-(A7) 00024352 70 00 |p | MOVEQ.L #0x00,D0 00024354 52 40 |R@ | ADDQ.W #0x1,D0 00024356 1c 00 | | MOVE.B D0,D6 00024358 0c 06 00 2b | + | CMPI.B #0x2b,D6 0002435c 6e 00 00 82 |n | BGT 0x243e0 00024360 41 fa d8 b2 |A | LEA.L 0x21c14,A0 00024364 10 06 | | MOVE.B D6,D0 00024366 48 80 |H | EXTB.W D0 00024368 48 c0 |H | EXTW.L D0 0002436a e2 98 | | ROR.L #0x1,D0 0002436c d0 c0 | | ADDA.W D0,A0 0002436e 48 40 |H@ | SWAP.W D0 00024370 e7 58 | X | ROL.W #0x3,D0 00024372 42 81 |B | CLR.L D1 00024374 12 10 | | MOVE.B (A0),D1 00024376 e1 29 | ) | LSL.B D0,D1 00024378 e8 09 | | LSR.B #0x4,D1 0002437a 2a 01 |* | MOVE.L D1,D5 0002437c 20 57 | W | MOVEA.L (A7),A0 0002437e 30 10 |0 | MOVE.W (A0),D0 00024380 48 c0 |H | EXTW.L D0 00024382 ba 80 | | CMP.L D0,D5 00024384 66 54 |fT | BNE 0x243da 00024386 2f 05 |/ | MOVE.L D5,-(A7) 00024388 7e 01 |~ | MOVEQ.L #0x01,D7 0002438a be 97 | | CMP.L (A7),D7 0002438c 6e 42 |nB | BGT 0x243d0 0002438e 10 06 | | MOVE.B D6,D0 00024390 48 80 |H | EXTB.W D0 00024392 c1 fc 00 0a | | MULS.W #0xa,D0 00024396 22 07 |" | MOVE.L D7,D1 00024398 53 81 |S | SUBQ.L #0x1,D1 0002439a 0c 81 00 00 00 7d | } | CMPI.L #0x0000007d,D1 000243a0 63 02 |c | BLS 0x243a4 000243a2 4e 4f |NO | TRAP #15 000243a4 20 6f 00 04 | o | MOVEA.L (A7+0x4),A0 000243a8 43 fa d6 b2 |C | LEA.L COMMAND_TABLE_21a5c,A1 000243ac 24 07 |$ | MOVE.L D7,D2 000243ae 53 82 |S | SUBQ.L #0x1,D2 000243b0 0c 82 00 00 00 09 | | CMPI.L #0x00000009,D2 000243b6 63 02 |c | BLS 0x243ba 000243b8 4e 4f |NO | TRAP #15 000243ba 43 f1 00 00 |C | LEA.L (A1+D0.W),A1 000243be 10 30 18 02 | 0 | MOVE.B (A0+D1.L+#0x2),D0 000243c2 b0 31 28 00 | 1( | CMP.B (A1+D2.L),D0 000243c6 67 04 |g | BEQ 0x243cc 000243c8 58 4f |XO | ADDQ.L #0x4,A7 000243ca 60 0e |` | BRA 0x243da 000243cc 52 87 |R | ADDQ.L #0x1,D7 000243ce 68 ba |h | BVC 0x2438a 000243d0 58 4f |XO | ADDQ.L #0x4,A7 000243d2 1d 46 00 0c | F | MOVE.B D6,(A6+0xc) 000243d6 58 4f |XO | ADDQ.L #0x4,A7 000243d8 60 08 |` | BRA 0x243e2 000243da 52 06 |R | ADDQ.B #0x1,D6 000243dc 68 00 ff 7a |h z | BVC 0x24358 000243e0 58 4f |XO | ADDQ.L #0x4,A7 000243e2 4c df 03 e7 |L | MOVEM.L (A7)+,D0+D1+D2+D5+D6+D7+A0+A1 000243e6 4e 5e |N^ | UNLK A6 000243e8 4e 75 |Nu | RTS 000243ea ; -------------------------------------------------------------------------------------- 000243ea ; OMSI PASCAL Function 000243ea ; <LVAR 0x00c 4(r)> 000243ea ; <LVAR 0x008 4(r)> 000243ea ; <LVAR -0x002 @ 1(r)> 000243ea ; <LVAR -0x006 @ 4(w)> 000243ea ; <LVAR -0x008 @ 1(r)> 000243ea ; <LVAR -0x00c @ 4(r)> 000243ea ; <LVAR -0x010 @ 4(rw)> 000243ea ; -------------------------------------------------------------------------------------- 000243ea 4e 56 ff a6 |NV | LINK.W A6,#0xffa6 000243ee bf d5 | | CMPA.L (A5),A7 000243f0 62 06 |b | BHI 0x243f8 000243f2 44 fc 00 02 |D | MOVE.W #0x2,CCR 000243f6 4e 76 |Nv | TRAPV 000243f8 de fc 00 4a | J | ADDA.W #0x4a,A7 000243fc 48 e7 c0 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D1+D0,-(A7) 00024400 45 ee ff f0 |E | LEA.L (A6-0x10),A2 00024404 47 ee ff fe |G | LEA.L (A6-0x2),A3 00024408 49 ee ff f4 |I | LEA.L (A6-0xc),A4 0002440c 72 01 |r | MOVEQ.L #0x01,D1 0002440e 59 4f |YO | SUBQ.L #0x4,A7 00024410 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00024414 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 0002441a 58 4f |XO | ADDQ.L #0x4,A7 0002441c 24 9f |$ | MOVE.L (A7)+,(A2) 0002441e 2f 12 |/ | MOVE.L (A2),-(A7) 00024420 1f 3c 00 2e | < . | MOVE.B #0x2e,-(A7) 00024424 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 0002442a 5c 4f |\O | ADDQ.L #0x6,A7 0002442c 41 f9 00 02 68 44 |A hD | LEA.L 0x26844,A0 00024432 70 04 |p | MOVEQ.L #0x04,D0 00024434 3f 20 |? | MOVE.W -(A0),-(A7) 00024436 51 c8 ff fc |Q | DBF D0,0x24434 0002443a 59 4f |YO | SUBQ.L #0x4,A7 0002443c 2f 12 |/ | MOVE.L (A2),-(A7) 0002443e 59 4f |YO | SUBQ.L #0x4,A7 00024440 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00024444 3f 01 |? | MOVE.W D1,-(A7) 00024446 3f 3c 00 0a |?< | MOVE.W #0xa,-(A7) 0002444a 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00024450 50 4f |PO | ADDQ.L #0x8,A7 00024452 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00024458 50 4f |PO | ADDQ.L #0x8,A7 0002445a 24 9f |$ | MOVE.L (A7)+,(A2) 0002445c 5c 4f |\O | ADDQ.L #0x6,A7 0002445e 2e 92 |. | MOVE.L (A2),(A7) 00024460 42 27 |B' | CLR.B -(A7) 00024462 1f 01 | | MOVE.B D1,-(A7) 00024464 48 78 00 00 |Hx | PEA.L 0x0 00024468 48 53 |HS | PEA.L (A3) 0002446a 48 54 |HT | PEA.L (A4) 0002446c 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File) 00024472 de fc 00 14 | | ADDA.W #0x14,A7 00024476 4a 13 |J | TST.B (A3) 00024478 67 4a |gJ | BEQ 0x244c4 0002447a 48 52 |HR | PEA.L (A2) 0002447c 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00024482 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7) 00024486 4e ba d8 5e |N ^ | JSR 0x21ce6 0002448a 9e fc 00 16 | | SUBA.W #0x16,A7 0002448e 20 4f | O | MOVEA.L A7,A0 00024490 43 fa d5 28 |C ( | LEA.L 0x219ba,A1 00024494 70 18 |p | MOVEQ.L #0x18,D0 00024496 10 d9 | | MOVE.B (A1)+,(A0)+ 00024498 51 c8 ff fc |Q | DBF D0,0x24496 0002449c 51 4f |QO | SUBQ.L #0x8,A7 0002449e 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000244a2 3f 01 |? | MOVE.W D1,-(A7) 000244a4 3f 3c 00 19 |?< | MOVE.W #0x19,-(A7) 000244a8 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000244ae 58 4f |XO | ADDQ.L #0x4,A7 000244b0 2e ae 00 0c |. | MOVE.L (A6+0xc),(A7) 000244b4 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000244ba 50 4f |PO | ADDQ.L #0x8,A7 000244bc 4e ba d8 6a |N j | JSR 0x21d28 000244c0 de fc 00 1e | | ADDA.W #0x1e,A7 000244c4 2d 79 00 02 68 32 ff fa |-y h2 | MOVE.L 0x26832,(A6-0x6) 000244cc 2f 14 |/ | MOVE.L (A4),-(A7) 000244ce 48 52 |HR | PEA.L (A2) 000244d0 48 6e ff f8 |Hn | PEA.L (A6-0x8) 000244d4 4e b9 00 01 04 3c |N < | JSR FileReadLine(file : File; VAR a : String; VAR b : Byte) 000244da de fc 00 0c | | ADDA.W #0xc,A7 000244de 20 52 | R | MOVEA.L (A2),A0 000244e0 4a 50 |JP | TST.W (A0) 000244e2 67 14 |g | BEQ 0x244f8 000244e4 2f 12 |/ | MOVE.L (A2),-(A7) 000244e6 4e ba da 98 |N | JSR 0x21f80 000244ea 58 4f |XO | ADDQ.L #0x4,A7 000244ec 48 6e ff fa |Hn | PEA.L (A6-0x6) 000244f0 2f 12 |/ | MOVE.L (A2),-(A7) 000244f2 4e ba de 12 |N | JSR 0x22306 000244f6 50 4f |PO | ADDQ.L #0x8,A7 000244f8 4a 2e ff f8 |J. | TST.B (A6-0x8) 000244fc 67 ce |g | BEQ 0x244cc 000244fe 42 27 |B' | CLR.B -(A7) 00024500 1f 01 | | MOVE.B D1,-(A7) 00024502 48 78 00 01 |Hx | PEA.L 0x1 00024506 48 53 |HS | PEA.L (A3) 00024508 48 54 |HT | PEA.L (A4) 0002450a 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File) 00024510 de fc 00 10 | | ADDA.W #0x10,A7 00024514 48 52 |HR | PEA.L (A2) 00024516 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 0002451c 58 4f |XO | ADDQ.L #0x4,A7 0002451e 4c df 1f 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2+A3+A4 00024522 4e 5e |N^ | UNLK A6 00024524 4e 75 |Nu | RTS 00024526 ; -------------------------------------------------------------------------------------- 00024526 ; OMSI PASCAL Function 00024526 ; <LVAR 0x014 1(w)> 00024526 ; <LVAR 0x00c 4(r)> 00024526 ; <LVAR 0x008 4(r)> 00024526 ; -------------------------------------------------------------------------------------- 00024526 4e 56 ff f4 |NV | LINK.W A6,#0xfff4 0002452a bf d5 | | CMPA.L (A5),A7 0002452c 62 06 |b | BHI 0x24534 0002452e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024532 4e 76 |Nv | TRAPV 00024534 de fc 00 0c | | ADDA.W #0xc,A7 00024538 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 0002453c 20 2e 00 0c | . | MOVE.L (A6+0xc),D0 00024540 d0 ae 00 08 | | ADD.L (A6+0x8),D0 00024544 53 80 |S | SUBQ.L #0x1,D0 00024546 53 80 |S | SUBQ.L #0x1,D0 00024548 0c 80 00 00 0f ff | | CMPI.L #0x00000fff,D0 0002454e 63 02 |c | BLS 0x24552 00024550 4e 4f |NO | TRAP #15 00024552 41 f9 00 02 58 2a |A X* | LEA.L 0x2582a,A0 00024558 1d 70 08 08 00 14 | p | MOVE.B (A0+D0.L+#0x8),(A6+0x14) 0002455e 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 00024562 4e 5e |N^ | UNLK A6 00024564 4e 75 |Nu | RTS 00024566 ; -------------------------------------------------------------------------------------- 00024566 ; OMSI PASCAL Function 00024566 ; <LVAR 0x010 4(w)> 00024566 ; <LVAR 0x00c 4(r)> 00024566 ; <LVAR 0x008 4(r)> 00024566 ; <LVAR -0x004 @ 1(r)> 00024566 ; <LVAR -0x008 @ 4(r)> 00024566 ; -------------------------------------------------------------------------------------- 00024566 4e 56 ff c4 |NV | LINK.W A6,#0xffc4 0002456a bf d5 | | CMPA.L (A5),A7 0002456c 62 06 |b | BHI 0x24574 0002456e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024572 4e 76 |Nv | TRAPV 00024574 de fc 00 34 | 4 | ADDA.W #0x34,A7 00024578 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7) 0002457c 59 4f |YO | SUBQ.L #0x4,A7 0002457e 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00024582 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00024586 4e ba e4 4c |N L | JSR 0x229d4 0002458a 50 4f |PO | ADDQ.L #0x8,A7 0002458c 48 6e ff fc |Hn | PEA.L (A6-0x4) 00024590 48 6e ff f8 |Hn | PEA.L (A6-0x8) 00024594 4e b9 00 01 02 ec |N | JSR String2Long(src : String; VAR status : Bool; VAR retval : Long) 0002459a de fc 00 0c | | ADDA.W #0xc,A7 0002459e 4a 2e ff fc |J. | TST.B (A6-0x4) 000245a2 66 30 |f0 | BNE 0x245d4 000245a4 9e fc 00 18 | | SUBA.W #0x18,A7 000245a8 20 4f | O | MOVEA.L A7,A0 000245aa 43 fa d4 28 |C ( | LEA.L 0x219d4,A1 000245ae 70 16 |p | MOVEQ.L #0x16,D0 000245b0 10 d9 | | MOVE.B (A1)+,(A0)+ 000245b2 51 c8 ff fc |Q | DBF D0,0x245b0 000245b6 59 4f |YO | SUBQ.L #0x4,A7 000245b8 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000245bc 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000245c0 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7) 000245c4 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000245ca 50 4f |PO | ADDQ.L #0x8,A7 000245cc 4e ba d7 5a |N Z | JSR 0x21d28 000245d0 de fc 00 1c | | ADDA.W #0x1c,A7 000245d4 2d 6e ff f8 00 10 |-n | MOVE.L (A6-0x8),(A6+0x10) 000245da 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1 000245de 4e 5e |N^ | UNLK A6 000245e0 4e 75 |Nu | RTS 000245e2 ; -------------------------------------------------------------------------------------- 000245e2 ; OMSI PASCAL Function 000245e2 ; <LVAR 0x014 4(r)> 000245e2 ; <LVAR 0x010 4(r)> 000245e2 ; <LVAR 0x00c 4(r)> 000245e2 ; <LVAR 0x008 4(r)> 000245e2 ; <LVAR -0x00c 4(rw)> 000245e2 ; <LVAR -0x010 4(rw)> 000245e2 ; <LVAR -0x014 4(rw)> 000245e2 ; <LVAR -0x018 4(w)> 000245e2 ; <LVAR -0x020 4(rw)> 000245e2 ; -------------------------------------------------------------------------------------- 000245e2 4e 56 ff 8e |NV | LINK.W A6,#0xff8e 000245e6 bf d5 | | CMPA.L (A5),A7 000245e8 62 06 |b | BHI 0x245f0 000245ea 44 fc 00 02 |D | MOVE.W #0x2,CCR 000245ee 4e 76 |Nv | TRAPV 000245f0 de fc 00 4e | N | ADDA.W #0x4e,A7 000245f4 48 e7 c7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D1+D0,-(A7) 000245f8 43 ee ff e0 |C | LEA.L (A6-0x20),A1 000245fc 45 ee ff f0 |E | LEA.L (A6-0x10),A2 00024600 47 ee ff f4 |G | LEA.L (A6-0xc),A3 00024604 49 ee ff ec |I | LEA.L (A6-0x14),A4 00024608 7e 00 |~ | MOVEQ.L #0x00,D7 0002460a 22 ae 00 14 |" | MOVE.L (A6+0x14),(A1) 0002460e 20 39 00 02 68 32 | 9 h2 | MOVE.L 0x26832,D0 00024614 90 ae 00 14 | | SUB.L (A6+0x14),D0 00024618 28 80 |( | MOVE.L D0,(A4) 0002461a 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 0002461e 2a 2e 00 10 |*. | MOVE.L (A6+0x10),D5 00024622 ba 97 | | CMP.L (A7),D5 00024624 6e 2c |n, | BGT 0x24652 00024626 51 4f |QO | SUBQ.L #0x8,A7 00024628 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 0002462c 2f 05 |/ | MOVE.L D5,-(A7) 0002462e 4e ba e3 42 |N B | JSR 0x22972 00024632 50 4f |PO | ADDQ.L #0x8,A7 00024634 24 9f |$ | MOVE.L (A7)+,(A2) 00024636 26 97 |& | MOVE.L (A7),(A3) 00024638 2f 13 |/ | MOVE.L (A3),-(A7) 0002463a 2f 12 |/ | MOVE.L (A2),-(A7) 0002463c 4e ba e2 fc |N | JSR 0x2293a 00024640 50 4f |PO | ADDQ.L #0x8,A7 00024642 2c 1f |, | MOVE.L (A7)+,D6 00024644 de 86 | | ADD.L D6,D7 00024646 ba ae 00 0c | | CMP.L (A6+0xc),D5 0002464a 6c 02 |l | BGE 0x2464e 0002464c 52 87 |R | ADDQ.L #0x1,D7 0002464e 52 85 |R | ADDQ.L #0x1,D5 00024650 68 d0 |h | BVC 0x24622 00024652 58 4f |XO | ADDQ.L #0x4,A7 00024654 20 11 | | MOVE.L (A1),D0 00024656 d0 94 | | ADD.L (A4),D0 00024658 2d 40 ff e8 |-@ | MOVE.L D0,(A6-0x18) 0002465c be 94 | | CMP.L (A4),D7 0002465e 67 0c |g | BEQ 0x2466c 00024660 2f 00 |/ | MOVE.L D0,-(A7) 00024662 2f 14 |/ | MOVE.L (A4),-(A7) 00024664 9f 97 | | SUB.L D7,(A7) 00024666 4e ba dc 14 |N | JSR 0x2227c 0002466a 50 4f |PO | ADDQ.L #0x8,A7 0002466c 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00024670 2a 2e 00 10 |*. | MOVE.L (A6+0x10),D5 00024674 ba 97 | | CMP.L (A7),D5 00024676 6e 00 00 88 |n | BGT 0x24700 0002467a 51 4f |QO | SUBQ.L #0x8,A7 0002467c 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00024680 2f 05 |/ | MOVE.L D5,-(A7) 00024682 4e ba e2 ee |N | JSR 0x22972 00024686 50 4f |PO | ADDQ.L #0x8,A7 00024688 24 9f |$ | MOVE.L (A7)+,(A2) 0002468a 26 97 |& | MOVE.L (A7),(A3) 0002468c 2f 13 |/ | MOVE.L (A3),-(A7) 0002468e 2f 12 |/ | MOVE.L (A2),-(A7) 00024690 4e ba e2 a8 |N | JSR 0x2293a 00024694 50 4f |PO | ADDQ.L #0x8,A7 00024696 2c 1f |, | MOVE.L (A7)+,D6 00024698 2f 06 |/ | MOVE.L D6,-(A7) 0002469a 70 01 |p | MOVEQ.L #0x01,D0 0002469c b0 97 | | CMP.L (A7),D0 0002469e 6e 30 |n0 | BGT 0x246d0 000246a0 22 11 |" | MOVE.L (A1),D1 000246a2 d2 80 | | ADD.L D0,D1 000246a4 53 81 |S | SUBQ.L #0x1,D1 000246a6 53 81 |S | SUBQ.L #0x1,D1 000246a8 0c 81 00 00 0f ff | | CMPI.L #0x00000fff,D1 000246ae 63 02 |c | BLS 0x246b2 000246b0 4e 4f |NO | TRAP #15 000246b2 41 f9 00 02 58 2a |A X* | LEA.L 0x2582a,A0 000246b8 55 4f |UO | SUBQ.L #0x2,A7 000246ba 2f 13 |/ | MOVE.L (A3),-(A7) 000246bc 2f 12 |/ | MOVE.L (A2),-(A7) 000246be 2f 00 |/ | MOVE.L D0,-(A7) 000246c0 4e ba fe 64 |N d | JSR 0x24526 000246c4 de fc 00 0c | | ADDA.W #0xc,A7 000246c8 11 9f 18 08 | | MOVE.B (A7)+,(A0+D1.L+#0x8) 000246cc 52 80 |R | ADDQ.L #0x1,D0 000246ce 68 cc |h | BVC 0x2469c 000246d0 58 4f |XO | ADDQ.L #0x4,A7 000246d2 ba ae 00 0c | | CMP.L (A6+0xc),D5 000246d6 6c 22 |l" | BGE 0x246fa 000246d8 20 11 | | MOVE.L (A1),D0 000246da d0 86 | | ADD.L D6,D0 000246dc 22 00 |" | MOVE.L D0,D1 000246de 53 81 |S | SUBQ.L #0x1,D1 000246e0 0c 81 00 00 0f ff | | CMPI.L #0x00000fff,D1 000246e6 63 02 |c | BLS 0x246ea 000246e8 4e 4f |NO | TRAP #15 000246ea 41 f9 00 02 58 2a |A X* | LEA.L 0x2582a,A0 000246f0 11 bc 00 2c 18 08 | , | MOVE.B #0x2c,(A0+D1.L+#0x8) 000246f6 52 80 |R | ADDQ.L #0x1,D0 000246f8 22 80 |" | MOVE.L D0,(A1) 000246fa 52 85 |R | ADDQ.L #0x1,D5 000246fc 68 00 ff 76 |h v | BVC 0x24674 00024700 58 4f |XO | ADDQ.L #0x4,A7 00024702 4c df 1f e3 |L | MOVEM.L (A7)+,D0+D1+D5+D6+D7+A0+A1+A2+A3+A4 00024706 4e 5e |N^ | UNLK A6 00024708 4e 75 |Nu | RTS 0002470a ; -------------------------------------------------------------------------------------- 0002470a ; OMSI PASCAL Function 0002470a ; <LVAR 0x018 4(rw)> 0002470a ; <LVAR 0x014 4(r)> 0002470a ; <LVAR 0x010 4(r)> 0002470a ; <LVAR 0x00c 4(r)> 0002470a ; <LVAR 0x008 4(r)> 0002470a ; <LVAR -0x008 4(rw)> 0002470a ; <LVAR -0x00c 4(rw)> 0002470a ; <LVAR -0x018 4(w)> 0002470a ; -------------------------------------------------------------------------------------- 0002470a 4e 56 ff 9e |NV | LINK.W A6,#0xff9e 0002470e bf d5 | | CMPA.L (A5),A7 00024710 62 06 |b | BHI 0x24718 00024712 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024716 4e 76 |Nv | TRAPV 00024718 de fc 00 4a | J | ADDA.W #0x4a,A7 0002471c 48 e7 c7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D1+D0,-(A7) 00024720 41 ee ff f8 |A | LEA.L (A6-0x8),A0 00024724 43 ee 00 14 |C | LEA.L (A6+0x14),A1 00024728 45 ee 00 10 |E | LEA.L (A6+0x10),A2 0002472c 47 ee ff f4 |G | LEA.L (A6-0xc),A3 00024730 49 fa fd f4 |I | LEA.L 0x24526,A4 00024734 72 0c |r | MOVEQ.L #0x0c,D1 00024736 59 4f |YO | SUBQ.L #0x4,A7 00024738 2f 11 |/ | MOVE.L (A1),-(A7) 0002473a 2f 12 |/ | MOVE.L (A2),-(A7) 0002473c 4e ba e1 fc |N | JSR 0x2293a 00024740 50 4f |PO | ADDQ.L #0x8,A7 00024742 26 97 |& | MOVE.L (A7),(A3) 00024744 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00024748 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 0002474c 4e ba e1 ec |N | JSR 0x2293a 00024750 50 4f |PO | ADDQ.L #0x8,A7 00024752 20 9f | | MOVE.L (A7)+,(A0) 00024754 52 90 |R | ADDQ.L #0x1,(A0) 00024756 20 13 | | MOVE.L (A3),D0 00024758 90 90 | | SUB.L (A0),D0 0002475a 52 80 |R | ADDQ.L #0x1,D0 0002475c 2f 00 |/ | MOVE.L D0,-(A7) 0002475e 70 01 |p | MOVEQ.L #0x01,D0 00024760 b0 97 | | CMP.L (A7),D0 00024762 6e 00 00 8e |n | BGT 0x247f2 00024766 2d 40 ff e8 |-@ | MOVE.L D0,(A6-0x18) 0002476a 2f 00 |/ | MOVE.L D0,-(A7) 0002476c 7c 00 || | MOVEQ.L #0x00,D6 0002476e 2f 10 |/ | MOVE.L (A0),-(A7) 00024770 7a 01 |z | MOVEQ.L #0x01,D5 00024772 ba 97 | | CMP.L (A7),D5 00024774 6e 42 |nB | BGT 0x247b8 00024776 0c 85 00 00 00 01 | | CMPI.L #0x00000001,D5 0002477c 66 04 |f | BNE 0x24782 0002477e 7e 2f |~/ | MOVEQ.L #0x2f,D7 00024780 60 14 |` | BRA 0x24796 00024782 55 4f |UO | SUBQ.L #0x2,A7 00024784 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00024788 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 0002478c 2f 05 |/ | MOVE.L D5,-(A7) 0002478e 53 97 |S | SUBQ.L #0x1,(A7) 00024790 4e 94 |N | JSR (A4) 00024792 de c1 | | ADDA.W D1,A7 00024794 1e 1f | | MOVE.B (A7)+,D7 00024796 55 4f |UO | SUBQ.L #0x2,A7 00024798 2f 11 |/ | MOVE.L (A1),-(A7) 0002479a 2f 12 |/ | MOVE.L (A2),-(A7) 0002479c 20 2f 00 0e | / | MOVE.L (A7+0xe),D0 000247a0 d0 85 | | ADD.L D5,D0 000247a2 53 80 |S | SUBQ.L #0x1,D0 000247a4 2f 00 |/ | MOVE.L D0,-(A7) 000247a6 4e 94 |N | JSR (A4) 000247a8 de c1 | | ADDA.W D1,A7 000247aa be 1f | | CMP.B (A7)+,D7 000247ac 67 04 |g | BEQ 0x247b2 000247ae 58 4f |XO | ADDQ.L #0x4,A7 000247b0 60 08 |` | BRA 0x247ba 000247b2 2c 05 |, | MOVE.L D5,D6 000247b4 52 85 |R | ADDQ.L #0x1,D5 000247b6 68 ba |h | BVC 0x24772 000247b8 58 4f |XO | ADDQ.L #0x4,A7 000247ba bc 90 | | CMP.L (A0),D6 000247bc 66 2c |f, | BNE 0x247ea 000247be 20 17 | | MOVE.L (A7),D0 000247c0 2d 40 00 18 |-@ | MOVE.L D0,(A6+0x18) 000247c4 d0 90 | | ADD.L (A0),D0 000247c6 b0 93 | | CMP.L (A3),D0 000247c8 6d 02 |m | BLT 0x247cc 000247ca 60 1a |` | BRA 0x247e6 000247cc 55 4f |UO | SUBQ.L #0x2,A7 000247ce 2f 11 |/ | MOVE.L (A1),-(A7) 000247d0 2f 12 |/ | MOVE.L (A2),-(A7) 000247d2 2f 00 |/ | MOVE.L D0,-(A7) 000247d4 4e 94 |N | JSR (A4) 000247d6 de c1 | | ADDA.W D1,A7 000247d8 1e 1f | | MOVE.B (A7)+,D7 000247da 0c 07 00 2f | / | CMPI.B #0x2f,D7 000247de 67 06 |g | BEQ 0x247e6 000247e0 0c 07 00 3d | = | CMPI.B #0x3d,D7 000247e4 66 04 |f | BNE 0x247ea 000247e6 50 4f |PO | ADDQ.L #0x8,A7 000247e8 60 0e |` | BRA 0x247f8 000247ea 20 1f | | MOVE.L (A7)+,D0 000247ec 52 80 |R | ADDQ.L #0x1,D0 000247ee 68 00 ff 70 |h p | BVC 0x24760 000247f2 58 4f |XO | ADDQ.L #0x4,A7 000247f4 42 ae 00 18 |B | CLR.L (A6+0x18) 000247f8 4c df 1f e3 |L | MOVEM.L (A7)+,D0+D1+D5+D6+D7+A0+A1+A2+A3+A4 000247fc 4e 5e |N^ | UNLK A6 000247fe 4e 75 |Nu | RTS 00024800 ; -------------------------------------------------------------------------------------- 00024800 ; OMSI PASCAL Function 00024800 ; <LVAR 0x018 4(r)> 00024800 ; <LVAR 0x014 4(r)> 00024800 ; <LVAR 0x010 4(r)> 00024800 ; <LVAR 0x00c 4(r)> 00024800 ; <LVAR 0x008 4(r)> 00024800 ; -------------------------------------------------------------------------------------- 00024800 4e 56 ff be |NV | LINK.W A6,#0xffbe 00024804 bf d5 | | CMPA.L (A5),A7 00024806 62 06 |b | BHI 0x2480e 00024808 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002480c 4e 76 |Nv | TRAPV 0002480e de fc 00 36 | 6 | ADDA.W #0x36,A7 00024812 48 e7 c7 c0 |H | MOVEM.L A1+A0+D7+D6+D5+D1+D0,-(A7) 00024816 41 ee 00 14 |A | LEA.L (A6+0x14),A0 0002481a 43 ee 00 10 |C | LEA.L (A6+0x10),A1 0002481e 72 2f |r/ | MOVEQ.L #0x2f,D1 00024820 59 4f |YO | SUBQ.L #0x4,A7 00024822 2f 10 |/ | MOVE.L (A0),-(A7) 00024824 2f 11 |/ | MOVE.L (A1),-(A7) 00024826 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 0002482a 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 0002482e 4e ba fe da |N | JSR 0x2470a 00024832 de fc 00 10 | | ADDA.W #0x10,A7 00024836 2a 1f |* | MOVE.L (A7)+,D5 00024838 6f 52 |oR | BLE 0x2488c 0002483a 2f 2e 00 18 |/. | MOVE.L (A6+0x18),-(A7) 0002483e 1f 01 | | MOVE.B D1,-(A7) 00024840 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00024846 5c 4f |\O | ADDQ.L #0x6,A7 00024848 20 05 | | MOVE.L D5,D0 0002484a 52 80 |R | ADDQ.L #0x1,D0 0002484c 59 4f |YO | SUBQ.L #0x4,A7 0002484e 2f 10 |/ | MOVE.L (A0),-(A7) 00024850 2f 11 |/ | MOVE.L (A1),-(A7) 00024852 4e ba e0 e6 |N | JSR 0x2293a 00024856 50 4f |PO | ADDQ.L #0x8,A7 00024858 2c 00 |, | MOVE.L D0,D6 0002485a bc 97 | | CMP.L (A7),D6 0002485c 6e 2c |n, | BGT 0x2488a 0002485e 55 4f |UO | SUBQ.L #0x2,A7 00024860 2f 10 |/ | MOVE.L (A0),-(A7) 00024862 2f 11 |/ | MOVE.L (A1),-(A7) 00024864 2f 06 |/ | MOVE.L D6,-(A7) 00024866 4e ba fc be |N | JSR 0x24526 0002486a de fc 00 0c | | ADDA.W #0xc,A7 0002486e 1e 1f | | MOVE.B (A7)+,D7 00024870 be 01 | | CMP.B D1,D7 00024872 66 04 |f | BNE 0x24878 00024874 58 4f |XO | ADDQ.L #0x4,A7 00024876 60 14 |` | BRA 0x2488c 00024878 2f 2e 00 18 |/. | MOVE.L (A6+0x18),-(A7) 0002487c 1f 07 | | MOVE.B D7,-(A7) 0002487e 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00024884 5c 4f |\O | ADDQ.L #0x6,A7 00024886 52 86 |R | ADDQ.L #0x1,D6 00024888 68 d0 |h | BVC 0x2485a 0002488a 58 4f |XO | ADDQ.L #0x4,A7 0002488c 4c df 03 e3 |L | MOVEM.L (A7)+,D0+D1+D5+D6+D7+A0+A1 00024890 4e 5e |N^ | UNLK A6 00024892 4e 75 |Nu | RTS 00024894 ; -------------------------------------------------------------------------------------- 00024894 ; OMSI PASCAL Function 00024894 ; <LVAR 0x018 4(r)> 00024894 ; <LVAR 0x014 4(r)> 00024894 ; <LVAR 0x010 4(r)> 00024894 ; <LVAR 0x00c 4(r)> 00024894 ; <LVAR 0x008 4(r)> 00024894 ; <LVAR -0x006 4(rw)> 00024894 ; <LVAR -0x014 4(rw)> 00024894 ; -------------------------------------------------------------------------------------- 00024894 4e 56 ff aa |NV | LINK.W A6,#0xffaa 00024898 bf d5 | | CMPA.L (A5),A7 0002489a 62 06 |b | BHI 0x248a2 0002489c 44 fc 00 02 |D | MOVE.W #0x2,CCR 000248a0 4e 76 |Nv | TRAPV 000248a2 de fc 00 42 | B | ADDA.W #0x42,A7 000248a6 48 e7 c7 e0 |H | MOVEM.L A2+A1+A0+D7+D6+D5+D1+D0,-(A7) 000248aa 41 ee 00 14 |A | LEA.L (A6+0x14),A0 000248ae 43 ee 00 10 |C | LEA.L (A6+0x10),A1 000248b2 45 ee ff fa |E | LEA.L (A6-0x6),A2 000248b6 72 0c |r | MOVEQ.L #0x0c,D1 000248b8 59 4f |YO | SUBQ.L #0x4,A7 000248ba 2f 10 |/ | MOVE.L (A0),-(A7) 000248bc 2f 11 |/ | MOVE.L (A1),-(A7) 000248be 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 000248c2 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000248c6 4e ba fe 42 |N B | JSR 0x2470a 000248ca de fc 00 10 | | ADDA.W #0x10,A7 000248ce 2d 5f ff ec |-_ | MOVE.L (A7)+,(A6-0x14) 000248d2 6f 6e |on | BLE 0x24942 000248d4 59 4f |YO | SUBQ.L #0x4,A7 000248d6 2f 10 |/ | MOVE.L (A0),-(A7) 000248d8 2f 11 |/ | MOVE.L (A1),-(A7) 000248da 4e ba e0 5e |N ^ | JSR 0x2293a 000248de 50 4f |PO | ADDQ.L #0x8,A7 000248e0 24 9f |$ | MOVE.L (A7)+,(A2) 000248e2 2f 12 |/ | MOVE.L (A2),-(A7) 000248e4 2a 2e ff ec |*. | MOVE.L (A6-0x14),D5 000248e8 ba 97 | | CMP.L (A7),D5 000248ea 6e 54 |nT | BGT 0x24940 000248ec 55 4f |UO | SUBQ.L #0x2,A7 000248ee 2f 10 |/ | MOVE.L (A0),-(A7) 000248f0 2f 11 |/ | MOVE.L (A1),-(A7) 000248f2 2f 05 |/ | MOVE.L D5,-(A7) 000248f4 4e ba fc 30 |N 0 | JSR 0x24526 000248f8 de c1 | | ADDA.W D1,A7 000248fa 10 1f | | MOVE.B (A7)+,D0 000248fc 0c 00 00 3d | = | CMPI.B #0x3d,D0 00024900 66 3a |f: | BNE 0x2493c 00024902 20 05 | | MOVE.L D5,D0 00024904 52 80 |R | ADDQ.L #0x1,D0 00024906 2f 12 |/ | MOVE.L (A2),-(A7) 00024908 2c 00 |, | MOVE.L D0,D6 0002490a bc 97 | | CMP.L (A7),D6 0002490c 6e 2c |n, | BGT 0x2493a 0002490e 55 4f |UO | SUBQ.L #0x2,A7 00024910 2f 10 |/ | MOVE.L (A0),-(A7) 00024912 2f 11 |/ | MOVE.L (A1),-(A7) 00024914 2f 06 |/ | MOVE.L D6,-(A7) 00024916 4e ba fc 0e |N | JSR 0x24526 0002491a de c1 | | ADDA.W D1,A7 0002491c 1e 1f | | MOVE.B (A7)+,D7 0002491e 0c 07 00 2f | / | CMPI.B #0x2f,D7 00024922 66 04 |f | BNE 0x24928 00024924 50 4f |PO | ADDQ.L #0x8,A7 00024926 60 1a |` | BRA 0x24942 00024928 2f 2e 00 18 |/. | MOVE.L (A6+0x18),-(A7) 0002492c 1f 07 | | MOVE.B D7,-(A7) 0002492e 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00024934 5c 4f |\O | ADDQ.L #0x6,A7 00024936 52 86 |R | ADDQ.L #0x1,D6 00024938 68 d0 |h | BVC 0x2490a 0002493a 58 4f |XO | ADDQ.L #0x4,A7 0002493c 52 85 |R | ADDQ.L #0x1,D5 0002493e 68 a8 |h | BVC 0x248e8 00024940 58 4f |XO | ADDQ.L #0x4,A7 00024942 4c df 07 e3 |L | MOVEM.L (A7)+,D0+D1+D5+D6+D7+A0+A1+A2 00024946 4e 5e |N^ | UNLK A6 00024948 4e 75 |Nu | RTS 0002494a ; -------------------------------------------------------------------------------------- 0002494a ; OMSI PASCAL Function 0002494a ; <LVAR 0x010 4(r)> 0002494a ; <LVAR 0x00c 4(r)> 0002494a ; <LVAR 0x008 4(r)> 0002494a ; -------------------------------------------------------------------------------------- 0002494a 4e 56 ff b2 |NV | LINK.W A6,#0xffb2 0002494e bf d5 | | CMPA.L (A5),A7 00024950 62 06 |b | BHI 0x24958 00024952 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024956 4e 76 |Nv | TRAPV 00024958 de fc 00 42 | B | ADDA.W #0x42,A7 0002495c 48 e7 c7 c0 |H | MOVEM.L A1+A0+D7+D6+D5+D1+D0,-(A7) 00024960 41 ee 00 0c |A | LEA.L (A6+0xc),A0 00024964 43 ee 00 08 |C | LEA.L (A6+0x8),A1 00024968 72 0c |r | MOVEQ.L #0x0c,D1 0002496a 59 4f |YO | SUBQ.L #0x4,A7 0002496c 2f 10 |/ | MOVE.L (A0),-(A7) 0002496e 2f 11 |/ | MOVE.L (A1),-(A7) 00024970 4e ba df c8 |N | JSR 0x2293a 00024974 50 4f |PO | ADDQ.L #0x8,A7 00024976 2a 1f |* | MOVE.L (A7)+,D5 00024978 2f 05 |/ | MOVE.L D5,-(A7) 0002497a 7c 01 || | MOVEQ.L #0x01,D6 0002497c bc 97 | | CMP.L (A7),D6 0002497e 6e 46 |nF | BGT 0x249c6 00024980 55 4f |UO | SUBQ.L #0x2,A7 00024982 2f 10 |/ | MOVE.L (A0),-(A7) 00024984 2f 11 |/ | MOVE.L (A1),-(A7) 00024986 2f 06 |/ | MOVE.L D6,-(A7) 00024988 4e ba fb 9c |N | JSR 0x24526 0002498c de c1 | | ADDA.W D1,A7 0002498e 10 1f | | MOVE.B (A7)+,D0 00024990 0c 00 00 2f | / | CMPI.B #0x2f,D0 00024994 66 2c |f, | BNE 0x249c2 00024996 2f 05 |/ | MOVE.L D5,-(A7) 00024998 2e 06 |. | MOVE.L D6,D7 0002499a be 97 | | CMP.L (A7),D7 0002499c 6e 1e |n | BGT 0x249bc 0002499e 2f 2e 00 10 |/. | MOVE.L (A6+0x10),-(A7) 000249a2 55 4f |UO | SUBQ.L #0x2,A7 000249a4 2f 10 |/ | MOVE.L (A0),-(A7) 000249a6 2f 11 |/ | MOVE.L (A1),-(A7) 000249a8 2f 07 |/ | MOVE.L D7,-(A7) 000249aa 4e ba fb 7a |N z | JSR 0x24526 000249ae de c1 | | ADDA.W D1,A7 000249b0 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 000249b6 5c 4f |\O | ADDQ.L #0x6,A7 000249b8 52 87 |R | ADDQ.L #0x1,D7 000249ba 68 de |h | BVC 0x2499a 000249bc 58 4f |XO | ADDQ.L #0x4,A7 000249be 58 4f |XO | ADDQ.L #0x4,A7 000249c0 60 06 |` | BRA 0x249c8 000249c2 52 86 |R | ADDQ.L #0x1,D6 000249c4 68 b6 |h | BVC 0x2497c 000249c6 58 4f |XO | ADDQ.L #0x4,A7 000249c8 4c df 03 e3 |L | MOVEM.L (A7)+,D0+D1+D5+D6+D7+A0+A1 000249cc 4e 5e |N^ | UNLK A6 000249ce 4e 75 |Nu | RTS 000249d0 ; -------------------------------------------------------------------------------------- 000249d0 ; OMSI PASCAL Function 000249d0 ; <LVAR 0x010 4(r)> 000249d0 ; <LVAR 0x00c 4(r)> 000249d0 ; <LVAR 0x008 4(r)> 000249d0 ; -------------------------------------------------------------------------------------- 000249d0 4e 56 ff ce |NV | LINK.W A6,#0xffce 000249d4 bf d5 | | CMPA.L (A5),A7 000249d6 62 06 |b | BHI 0x249de 000249d8 44 fc 00 02 |D | MOVE.W #0x2,CCR 000249dc 4e 76 |Nv | TRAPV 000249de de fc 00 2a | * | ADDA.W #0x2a,A7 000249e2 48 e7 03 80 |H | MOVEM.L A0+D7+D6,-(A7) 000249e6 20 6e 00 10 | n | MOVEA.L (A6+0x10),A0 000249ea 42 50 |BP | CLR.W (A0) 000249ec 59 4f |YO | SUBQ.L #0x4,A7 000249ee 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 000249f2 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000249f6 4e ba df 42 |N B | JSR 0x2293a 000249fa 50 4f |PO | ADDQ.L #0x8,A7 000249fc 7e 01 |~ | MOVEQ.L #0x01,D7 000249fe be 97 | | CMP.L (A7),D7 00024a00 6e 34 |n4 | BGT 0x24a36 00024a02 55 4f |UO | SUBQ.L #0x2,A7 00024a04 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00024a08 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00024a0c 2f 07 |/ | MOVE.L D7,-(A7) 00024a0e 4e ba fb 16 |N | JSR 0x24526 00024a12 de fc 00 0c | | ADDA.W #0xc,A7 00024a16 1c 1f | | MOVE.B (A7)+,D6 00024a18 0c 06 00 2f | / | CMPI.B #0x2f,D6 00024a1c 67 10 |g | BEQ 0x24a2e 00024a1e 2f 2e 00 10 |/. | MOVE.L (A6+0x10),-(A7) 00024a22 1f 06 | | MOVE.B D6,-(A7) 00024a24 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00024a2a 5c 4f |\O | ADDQ.L #0x6,A7 00024a2c 60 04 |` | BRA 0x24a32 00024a2e 58 4f |XO | ADDQ.L #0x4,A7 00024a30 60 06 |` | BRA 0x24a38 00024a32 52 87 |R | ADDQ.L #0x1,D7 00024a34 68 c8 |h | BVC 0x249fe 00024a36 58 4f |XO | ADDQ.L #0x4,A7 00024a38 4c df 01 c0 |L | MOVEM.L (A7)+,D6+D7+A0 00024a3c 4e 5e |N^ | UNLK A6 00024a3e 4e 75 |Nu | RTS 00024a40 ; -------------------------------------------------------------------------------------- 00024a40 ; OMSI PASCAL Function 00024a40 ; -------------------------------------------------------------------------------------- 00024a40 4e 56 ff c6 |NV | LINK.W A6,#0xffc6 00024a44 bf d5 | | CMPA.L (A5),A7 00024a46 62 06 |b | BHI 0x24a4e 00024a48 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024a4c 4e 76 |Nv | TRAPV 00024a4e de fc 00 3a | : | ADDA.W #0x3a,A7 00024a52 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 00024a56 41 fa cf b6 |A | LEA.L 0x21a0e,A0 00024a5a 70 10 |p | MOVEQ.L #0x10,D0 00024a5c 3f 20 |? | MOVE.W -(A0),-(A7) 00024a5e 51 c8 ff fc |Q | DBF D0,0x24a5c 00024a62 59 4f |YO | SUBQ.L #0x4,A7 00024a64 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00024a68 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00024a6c 3f 3c 00 22 |?< " | MOVE.W #0x22,-(A7) 00024a70 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00024a76 50 4f |PO | ADDQ.L #0x8,A7 00024a78 4e ba d2 ae |N | JSR 0x21d28 00024a7c de fc 00 26 | & | ADDA.W #0x26,A7 00024a80 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 00024a84 4e 5e |N^ | UNLK A6 00024a86 4e 75 |Nu | RTS 00024a88 ; -------------------------------------------------------------------------------------- 00024a88 ; OMSI PASCAL Function 00024a88 ; <LVAR 0x00c 4(r)> 00024a88 ; <LVAR 0x008 4(r)> 00024a88 ; <LVAR -0x006 4(rw)> 00024a88 ; -------------------------------------------------------------------------------------- 00024a88 4e 56 ff a0 |NV | LINK.W A6,#0xffa0 00024a8c bf d5 | | CMPA.L (A5),A7 00024a8e 62 06 |b | BHI 0x24a96 00024a90 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024a94 4e 76 |Nv | TRAPV 00024a96 de fc 00 58 | X | ADDA.W #0x58,A7 00024a9a 48 e7 ff f0 |H | MOVEM.L A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00024a9e 43 ee 00 0c |C | LEA.L (A6+0xc),A1 00024aa2 45 f9 00 02 68 32 |E h2 | LEA.L 0x26832,A2 00024aa8 47 fa d3 1a |G | LEA.L 0x21dc4,A3 00024aac 72 30 |r0 | MOVEQ.L #0x30,D1 00024aae 74 39 |t9 | MOVEQ.L #0x39,D2 00024ab0 76 25 |v% | MOVEQ.L #0x25,D3 00024ab2 78 2d |x- | MOVEQ.L #0x2d,D4 00024ab4 2d 52 ff fa |-R | MOVE.L (A2),(A6-0x6) 00024ab8 55 4f |UO | SUBQ.L #0x2,A7 00024aba 4e 93 |N | JSR (A3) 00024abc 1e 1f | | MOVE.B (A7)+,D7 00024abe be 03 | | CMP.B D3,D7 00024ac0 66 08 |f | BNE 0x24aca 00024ac2 20 51 | Q | MOVEA.L (A1),A0 00024ac4 42 90 |B | CLR.L (A0) 00024ac6 60 00 00 e2 |` | BRA 0x24baa 00024aca be 04 | | CMP.B D4,D7 00024acc 66 0c |f | BNE 0x24ada 00024ace 20 51 | Q | MOVEA.L (A1),A0 00024ad0 20 bc 00 00 00 01 | | MOVE.L #0x1,(A0) 00024ad6 60 00 00 d2 |` | BRA 0x24baa 00024ada 0c 07 00 2f | / | CMPI.B #0x2f,D7 00024ade 66 0c |f | BNE 0x24aec 00024ae0 20 51 | Q | MOVEA.L (A1),A0 00024ae2 20 bc 00 00 00 04 | | MOVE.L #0x4,(A0) 00024ae8 60 00 00 c0 |` | BRA 0x24baa 00024aec 0c 07 00 3d | = | CMPI.B #0x3d,D7 00024af0 66 0c |f | BNE 0x24afe 00024af2 20 51 | Q | MOVEA.L (A1),A0 00024af4 20 bc 00 00 00 05 | | MOVE.L #0x5,(A0) 00024afa 60 00 00 ae |` | BRA 0x24baa 00024afe 0c 07 00 5c | \ | CMPI.B #0x5c,D7 00024b02 66 0c |f | BNE 0x24b10 00024b04 20 51 | Q | MOVEA.L (A1),A0 00024b06 20 bc 00 00 00 06 | | MOVE.L #0x6,(A0) 00024b0c 60 00 00 9c |` | BRA 0x24baa 00024b10 4a 07 |J | TST.B D7 00024b12 66 2c |f, | BNE 0x24b40 00024b14 41 fa cf 10 |A | LEA.L 0x21a26,A0 00024b18 70 05 |p | MOVEQ.L #0x05,D0 00024b1a 2f 20 |/ | MOVE.L -(A0),-(A7) 00024b1c 51 c8 ff fc |Q | DBF D0,0x24b1a 00024b20 59 4f |YO | SUBQ.L #0x4,A7 00024b22 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00024b26 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00024b2a 3f 3c 00 18 |?< | MOVE.W #0x18,-(A7) 00024b2e 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00024b34 50 4f |PO | ADDQ.L #0x8,A7 00024b36 4e ba d1 f0 |N | JSR 0x21d28 00024b3a de fc 00 1c | | ADDA.W #0x1c,A7 00024b3e 60 6a |`j | BRA 0x24baa 00024b40 be 01 | | CMP.B D1,D7 00024b42 65 2c |e, | BCS 0x24b70 00024b44 be 02 | | CMP.B D2,D7 00024b46 62 28 |b( | BHI 0x24b70 00024b48 20 51 | Q | MOVEA.L (A1),A0 00024b4a 20 bc 00 00 00 02 | | MOVE.L #0x2,(A0) 00024b50 55 4f |UO | SUBQ.L #0x2,A7 00024b52 4e ba d2 32 |N 2 | JSR 0x21d86 00024b56 1e 1f | | MOVE.B (A7)+,D7 00024b58 be 01 | | CMP.B D1,D7 00024b5a 65 0a |e | BCS 0x24b66 00024b5c be 02 | | CMP.B D2,D7 00024b5e 62 06 |b | BHI 0x24b66 00024b60 55 4f |UO | SUBQ.L #0x2,A7 00024b62 4e 93 |N | JSR (A3) 00024b64 1c 1f | | MOVE.B (A7)+,D6 00024b66 be 01 | | CMP.B D1,D7 00024b68 65 04 |e | BCS 0x24b6e 00024b6a be 02 | | CMP.B D2,D7 00024b6c 63 e2 |c | BLS 0x24b50 00024b6e 60 3a |`: | BRA 0x24baa 00024b70 20 51 | Q | MOVEA.L (A1),A0 00024b72 20 bc 00 00 00 03 | | MOVE.L #0x3,(A0) 00024b78 7a 00 |z | MOVEQ.L #0x00,D5 00024b7a 55 4f |UO | SUBQ.L #0x2,A7 00024b7c 4e ba d2 08 |N | JSR 0x21d86 00024b80 1e 1f | | MOVE.B (A7)+,D7 00024b82 be 03 | | CMP.B D3,D7 00024b84 67 16 |g | BEQ 0x24b9c 00024b86 be 04 | | CMP.B D4,D7 00024b88 67 12 |g | BEQ 0x24b9c 00024b8a 0c 07 00 2f | / | CMPI.B #0x2f,D7 00024b8e 67 0c |g | BEQ 0x24b9c 00024b90 0c 07 00 3d | = | CMPI.B #0x3d,D7 00024b94 67 06 |g | BEQ 0x24b9c 00024b96 0c 07 00 5c | \ | CMPI.B #0x5c,D7 00024b9a 66 04 |f | BNE 0x24ba0 00024b9c 7a 01 |z | MOVEQ.L #0x01,D5 00024b9e 60 06 |` | BRA 0x24ba6 00024ba0 55 4f |UO | SUBQ.L #0x2,A7 00024ba2 4e 93 |N | JSR (A3) 00024ba4 1c 1f | | MOVE.B (A7)+,D6 00024ba6 4a 05 |J | TST.B D5 00024ba8 67 d0 |g | BEQ 0x24b7a 00024baa 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00024bae 20 ae ff fa | | MOVE.L (A6-0x6),(A0) 00024bb2 21 52 00 04 |!R | MOVE.L (A2),(A0+0x4) 00024bb6 53 a8 00 04 |S | SUBQ.L #0x1,(A0+0x4) 00024bba 4c df 0f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3 00024bbe 4e 5e |N^ | UNLK A6 00024bc0 4e 75 |Nu | RTS 00024bc2 ; -------------------------------------------------------------------------------------- 00024bc2 ; OMSI PASCAL Function 00024bc2 ; <LVAR 0x00c 4(r)> 00024bc2 ; <LVAR 0x008 4(r)> 00024bc2 ; -------------------------------------------------------------------------------------- 00024bc2 4e 56 ff c0 |NV | LINK.W A6,#0xffc0 00024bc6 bf d5 | | CMPA.L (A5),A7 00024bc8 62 06 |b | BHI 0x24bd0 00024bca 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024bce 4e 76 |Nv | TRAPV 00024bd0 de fc 00 34 | 4 | ADDA.W #0x34,A7 00024bd4 48 e7 c7 e0 |H | MOVEM.L A2+A1+A0+D7+D6+D5+D1+D0,-(A7) 00024bd8 45 ee 00 0c |E | LEA.L (A6+0xc),A2 00024bdc 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00024be0 2f 08 |/ | MOVE.L A0,-(A7) 00024be2 2c 39 00 02 68 32 |,9 h2 | MOVE.L 0x26832,D6 00024be8 9c 92 | | SUB.L (A2),D6 00024bea 2a 12 |* | MOVE.L (A2),D5 00024bec da 86 | | ADD.L D6,D5 00024bee 30 10 |0 | MOVE.W (A0),D0 00024bf0 48 c0 |H | EXTW.L D0 00024bf2 b0 86 | | CMP.L D6,D0 00024bf4 67 0c |g | BEQ 0x24c02 00024bf6 2f 05 |/ | MOVE.L D5,-(A7) 00024bf8 2f 06 |/ | MOVE.L D6,-(A7) 00024bfa 91 97 | | SUB.L D0,(A7) 00024bfc 4e ba d6 7e |N ~ | JSR 0x2227c 00024c00 50 4f |PO | ADDQ.L #0x8,A7 00024c02 2f 00 |/ | MOVE.L D0,-(A7) 00024c04 7e 01 |~ | MOVEQ.L #0x01,D7 00024c06 be 97 | | CMP.L (A7),D7 00024c08 6e 34 |n4 | BGT 0x24c3e 00024c0a 20 12 | | MOVE.L (A2),D0 00024c0c d0 87 | | ADD.L D7,D0 00024c0e 53 80 |S | SUBQ.L #0x1,D0 00024c10 53 80 |S | SUBQ.L #0x1,D0 00024c12 0c 80 00 00 0f ff | | CMPI.L #0x00000fff,D0 00024c18 63 02 |c | BLS 0x24c1c 00024c1a 4e 4f |NO | TRAP #15 00024c1c 41 f9 00 02 58 2a |A X* | LEA.L 0x2582a,A0 00024c22 22 07 |" | MOVE.L D7,D1 00024c24 53 81 |S | SUBQ.L #0x1,D1 00024c26 0c 81 00 00 00 7d | } | CMPI.L #0x0000007d,D1 00024c2c 63 02 |c | BLS 0x24c30 00024c2e 4e 4f |NO | TRAP #15 00024c30 22 6f 00 04 |"o | MOVEA.L (A7+0x4),A1 00024c34 11 b1 18 02 08 08 | | MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x8) 00024c3a 52 87 |R | ADDQ.L #0x1,D7 00024c3c 68 c8 |h | BVC 0x24c06 00024c3e 50 4f |PO | ADDQ.L #0x8,A7 00024c40 4c df 07 e3 |L | MOVEM.L (A7)+,D0+D1+D5+D6+D7+A0+A1+A2 00024c44 4e 5e |N^ | UNLK A6 00024c46 4e 75 |Nu | RTS 00024c48 ; -------------------------------------------------------------------------------------- 00024c48 ; OMSI PASCAL Function 00024c48 ; <LVAR 0x00c 4(r)> 00024c48 ; <LVAR 0x008 4(r)> 00024c48 ; <LVAR -0x008 @ 4(r)> 00024c48 ; <LVAR -0x00c @ 4(r)> 00024c48 ; <LVAR -0x010 4(r)> 00024c48 ; <LVAR -0x014 @ 4(r)> 00024c48 ; <LVAR -0x018 4(rw)> 00024c48 ; <LVAR -0x01c 4(rw)> 00024c48 ; <LVAR -0x020 4(rw)> 00024c48 ; <LVAR -0x024 4(rw)> 00024c48 ; <LVAR -0x028 4(rw)> 00024c48 ; <LVAR -0x034 4(rw)> 00024c48 ; -------------------------------------------------------------------------------------- 00024c48 4e 56 ff 70 |NV p | LINK.W A6,#0xff70 00024c4c bf d5 | | CMPA.L (A5),A7 00024c4e 62 06 |b | BHI 0x24c56 00024c50 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024c54 4e 76 |Nv | TRAPV 00024c56 de fc 00 5c | \ | ADDA.W #0x5c,A7 00024c5a 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00024c5e 43 ee ff f8 |C | LEA.L (A6-0x8),A1 00024c62 45 ee ff ec |E | LEA.L (A6-0x14),A2 00024c66 47 ee ff dc |G | LEA.L (A6-0x24),A3 00024c6a 49 ee ff e0 |I | LEA.L (A6-0x20),A4 00024c6e 74 14 |t | MOVEQ.L #0x14,D2 00024c70 2d 79 00 02 68 32 ff d8 |-y h2 | MOVE.L 0x26832,(A6-0x28) 00024c78 48 51 |HQ | PEA.L (A1) 00024c7a 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00024c80 58 4f |XO | ADDQ.L #0x4,A7 00024c82 48 6e ff f4 |Hn | PEA.L (A6-0xc) 00024c86 48 52 |HR | PEA.L (A2) 00024c88 4e ba fd fe |N | JSR 0x24a88 00024c8c 50 4f |PO | ADDQ.L #0x8,A7 00024c8e 42 ae ff cc |B | CLR.L (A6-0x34) 00024c92 7e 00 |~ | MOVEQ.L #0x00,D7 00024c94 20 2e ff cc | . | MOVE.L (A6-0x34),D0 00024c98 b0 82 | | CMP.L D2,D0 00024c9a 63 02 |c | BLS 0x24c9e 00024c9c 4e 4e |NN | TRAP #14 00024c9e d0 40 | @ | ADD.W D0,D0 00024ca0 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 00024ca8 00 2a | * | .CONST 0x2a ; [0x0] -> 0x24cd2 00024caa 00 34 | 4 | .CONST 0x34 ; [0x1] -> 0x24cdc 00024cac 00 48 | H | .CONST 0x48 ; [0x2] -> 0x24cf0 00024cae 00 64 | d | .CONST 0x64 ; [0x3] -> 0x24d0c 00024cb0 00 68 | h | .CONST 0x68 ; [0x4] -> 0x24d10 00024cb2 00 76 | v | .CONST 0x76 ; [0x5] -> 0x24d1e 00024cb4 00 8a | | .CONST 0x8a ; [0x6] -> 0x24d32 00024cb6 00 90 | | .CONST 0x90 ; [0x7] -> 0x24d38 00024cb8 00 92 | | .CONST 0x92 ; [0x8] -> 0x24d3a 00024cba 00 a8 | | .CONST 0xa8 ; [0x9] -> 0x24d50 00024cbc 00 b6 | | .CONST 0xb6 ; [0xa] -> 0x24d5e 00024cbe 00 ce | | .CONST 0xce ; [0xb] -> 0x24d76 00024cc0 00 e2 | | .CONST 0xe2 ; [0xc] -> 0x24d8a 00024cc2 00 f6 | | .CONST 0xf6 ; [0xd] -> 0x24d9e 00024cc4 01 0c | | .CONST 0x10c ; [0xe] -> 0x24db4 00024cc6 01 0e | | .CONST 0x10e ; [0xf] -> 0x24db6 00024cc8 01 28 | ( | .CONST 0x128 ; [0x10] -> 0x24dd0 00024cca 01 3e | > | .CONST 0x13e ; [0x11] -> 0x24de6 00024ccc 01 4c | L | .CONST 0x14c ; [0x12] -> 0x24df4 00024cce 01 4e | N | .CONST 0x14e ; [0x13] -> 0x24df6 00024cd0 01 50 | P | .CONST 0x150 ; [0x14] -> 0x24df8 00024cd2 switch@0x24ca0[0x0]: 00024cd2 7c 00 || | MOVEQ.L #0x00,D6 00024cd4 2a 2e 00 08 |*. | MOVE.L (A6+0x8),D5 00024cd8 60 00 01 48 |` H | BRA 0x24e22 00024cdc switch@0x24ca0[0x1]: 00024cdc 59 4f |YO | SUBQ.L #0x4,A7 00024cde 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7) 00024ce2 2f 12 |/ | MOVE.L (A2),-(A7) 00024ce4 4e ba f8 80 |N | JSR 0x24566 00024ce8 50 4f |PO | ADDQ.L #0x8,A7 00024cea 2c 1f |, | MOVE.L (A7)+,D6 00024cec 60 00 01 34 |` 4 | BRA 0x24e22 00024cf0 switch@0x24ca0[0x2]: 00024cf0 2f 2e ff d8 |/. | MOVE.L (A6-0x28),-(A7) 00024cf4 2f 06 |/ | MOVE.L D6,-(A7) 00024cf6 2f 06 |/ | MOVE.L D6,-(A7) 00024cf8 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00024cfc 4e ba f8 e4 |N | JSR 0x245e2 00024d00 de fc 00 10 | | ADDA.W #0x10,A7 00024d04 60 00 01 78 |` x | BRA 0x24e7e 00024d08 60 00 01 18 |` | .XXX[0x4] 00024d0c switch@0x24ca0[0x3]: 00024d0c 60 00 01 14 |` | BRA 0x24e22 00024d10 switch@0x24ca0[0x4]: 00024d10 2f 2e ff d8 |/. | MOVE.L (A6-0x28),-(A7) 00024d14 2f 06 |/ | MOVE.L D6,-(A7) 00024d16 2f 05 |/ | MOVE.L D5,-(A7) 00024d18 60 de |` | BRA 0x24cf8 00024d1a 60 00 01 06 |` | .XXX[0x4] 00024d1e switch@0x24ca0[0x5]: 00024d1e 59 4f |YO | SUBQ.L #0x4,A7 00024d20 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7) 00024d24 2f 12 |/ | MOVE.L (A2),-(A7) 00024d26 4e ba f8 3e |N > | JSR 0x24566 00024d2a 50 4f |PO | ADDQ.L #0x8,A7 00024d2c 2a 1f |* | MOVE.L (A7)+,D5 00024d2e 60 00 00 f2 |` | BRA 0x24e22 00024d32 switch@0x24ca0[0x6]: 00024d32 7c 01 || | MOVEQ.L #0x01,D6 00024d34 60 00 00 ec |` | BRA 0x24e22 00024d38 switch@0x24ca0[0x7]: 00024d38 60 e4 |` | BRA switch@0x24ca0[0x5] 00024d3a switch@0x24ca0[0x8]: 00024d3a 51 4f |QO | SUBQ.L #0x8,A7 00024d3c 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00024d40 2f 06 |/ | MOVE.L D6,-(A7) 00024d42 4e ba dc 2e |N . | JSR 0x22972 00024d46 50 4f |PO | ADDQ.L #0x8,A7 00024d48 26 9f |& | MOVE.L (A7)+,(A3) 00024d4a 28 9f |( | MOVE.L (A7)+,(A4) 00024d4c 60 00 00 d4 |` | BRA 0x24e22 00024d50 switch@0x24ca0[0x9]: 00024d50 2d 52 ff e4 |-R | MOVE.L (A2),(A6-0x1c) 00024d54 2d 6e ff f0 ff e8 |-n | MOVE.L (A6-0x10),(A6-0x18) 00024d5a 60 00 00 c6 |` | BRA 0x24e22 00024d5e switch@0x24ca0[0xa]: 00024d5e 2f 11 |/ | MOVE.L (A1),-(A7) 00024d60 2f 14 |/ | MOVE.L (A4),-(A7) 00024d62 2f 13 |/ | MOVE.L (A3),-(A7) 00024d64 2f 2e ff e8 |/. | MOVE.L (A6-0x18),-(A7) 00024d68 2f 2e ff e4 |/. | MOVE.L (A6-0x1c),-(A7) 00024d6c 4e ba fb 26 |N & | JSR 0x24894 00024d70 de c2 | | ADDA.W D2,A7 00024d72 60 00 00 ae |` | BRA 0x24e22 00024d76 switch@0x24ca0[0xb]: 00024d76 2f 11 |/ | MOVE.L (A1),-(A7) 00024d78 2f 14 |/ | MOVE.L (A4),-(A7) 00024d7a 2f 13 |/ | MOVE.L (A3),-(A7) 00024d7c 2f 2e ff e8 |/. | MOVE.L (A6-0x18),-(A7) 00024d80 2f 2e ff e4 |/. | MOVE.L (A6-0x1c),-(A7) 00024d84 4e ba fa 7a |N z | JSR 0x24800 00024d88 60 e6 |` | BRA 0x24d70 00024d8a switch@0x24ca0[0xc]: 00024d8a 2f 11 |/ | MOVE.L (A1),-(A7) 00024d8c 2f 14 |/ | MOVE.L (A4),-(A7) 00024d8e 2f 13 |/ | MOVE.L (A3),-(A7) 00024d90 4e ba fb b8 |N | JSR 0x2494a 00024d94 de fc 00 0c | | ADDA.W #0xc,A7 00024d98 7e 01 |~ | MOVEQ.L #0x01,D7 00024d9a 60 00 00 86 |` | BRA 0x24e22 00024d9e switch@0x24ca0[0xd]: 00024d9e 2f 11 |/ | MOVE.L (A1),-(A7) 00024da0 2f 14 |/ | MOVE.L (A4),-(A7) 00024da2 2f 13 |/ | MOVE.L (A3),-(A7) 00024da4 2f 2e ff e8 |/. | MOVE.L (A6-0x18),-(A7) 00024da8 2f 2e ff e4 |/. | MOVE.L (A6-0x1c),-(A7) 00024dac 4e ba fa 52 |N R | JSR 0x24800 00024db0 de c2 | | ADDA.W D2,A7 00024db2 60 e4 |` | BRA 0x24d98 00024db4 switch@0x24ca0[0xe]: 00024db4 60 e2 |` | BRA 0x24d98 00024db6 switch@0x24ca0[0xf]: 00024db6 2f 11 |/ | MOVE.L (A1),-(A7) 00024db8 51 4f |QO | SUBQ.L #0x8,A7 00024dba 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00024dbe 2f 06 |/ | MOVE.L D6,-(A7) 00024dc0 4e ba db b0 |N | JSR 0x22972 00024dc4 50 4f |PO | ADDQ.L #0x8,A7 00024dc6 4e ba fb 82 |N | JSR 0x2494a 00024dca de fc 00 0c | | ADDA.W #0xc,A7 00024dce 60 52 |`R | BRA 0x24e22 00024dd0 switch@0x24ca0[0x10]: 00024dd0 2f 11 |/ | MOVE.L (A1),-(A7) 00024dd2 51 4f |QO | SUBQ.L #0x8,A7 00024dd4 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00024dd8 2f 06 |/ | MOVE.L D6,-(A7) 00024dda 4e ba db 96 |N | JSR 0x22972 00024dde 50 4f |PO | ADDQ.L #0x8,A7 00024de0 4e ba fb ee |N | JSR 0x249d0 00024de4 60 ae |` | BRA 0x24d94 00024de6 switch@0x24ca0[0x11]: 00024de6 2f 11 |/ | MOVE.L (A1),-(A7) 00024de8 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7) 00024dec 2f 12 |/ | MOVE.L (A2),-(A7) 00024dee 4e ba fc 50 |N P | JSR 0x24a40 00024df2 60 d6 |` | BRA 0x24dca 00024df4 switch@0x24ca0[0x12]: 00024df4 60 2c |`, | BRA 0x24e22 00024df6 switch@0x24ca0[0x13]: 00024df6 60 a0 |` | BRA 0x24d98 00024df8 switch@0x24ca0[0x14]: 00024df8 41 fa cc 44 |A D | LEA.L 0x21a3e,A0 00024dfc 70 05 |p | MOVEQ.L #0x05,D0 00024dfe 2f 20 |/ | MOVE.L -(A0),-(A7) 00024e00 51 c8 ff fc |Q | DBF D0,0x24dfe 00024e04 59 4f |YO | SUBQ.L #0x4,A7 00024e06 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00024e0a 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00024e0e 3f 3c 00 18 |?< | MOVE.W #0x18,-(A7) 00024e12 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00024e18 50 4f |PO | ADDQ.L #0x8,A7 00024e1a 4e ba cf 0c |N | JSR 0x21d28 00024e1e de fc 00 1c | | ADDA.W #0x1c,A7 00024e22 4a 07 |J | TST.B D7 00024e24 66 46 |fF | BNE 0x24e6c 00024e26 48 6e ff f4 |Hn | PEA.L (A6-0xc) 00024e2a 48 52 |HR | PEA.L (A2) 00024e2c 4e ba fc 5a |N Z | JSR 0x24a88 00024e30 50 4f |PO | ADDQ.L #0x8,A7 00024e32 20 2e ff cc | . | MOVE.L (A6-0x34),D0 00024e36 0c 80 00 00 00 13 | | CMPI.L #0x00000013,D0 00024e3c 63 02 |c | BLS 0x24e40 00024e3e 4e 4f |NO | TRAP #15 00024e40 28 00 |( | MOVE.L D0,D4 00024e42 76 07 |v | MOVEQ.L #0x07,D3 00024e44 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4 00024e4a 41 fa ce 0e |A | LEA.L 0x21c5a,A0 00024e4e 20 2e ff f4 | . | MOVE.L (A6-0xc),D0 00024e52 0c 80 00 00 00 06 | | CMPI.L #0x00000006,D0 00024e58 63 02 |c | BLS 0x24e5c 00024e5a 4e 4f |NO | TRAP #15 00024e5c 41 f0 48 00 |A H | LEA.L (A0+D4.L),A0 00024e60 12 30 08 00 | 0 | MOVE.B (A0+D0.L),D1 00024e64 48 81 |H | EXTB.W D1 00024e66 48 c1 |H | EXTW.L D1 00024e68 2d 41 ff cc |-A | MOVE.L D1,(A6-0x34) 00024e6c 4a 07 |J | TST.B D7 00024e6e 67 00 fe 24 |g $ | BEQ 0x24c94 00024e72 2f 2e ff d8 |/. | MOVE.L (A6-0x28),-(A7) 00024e76 2f 11 |/ | MOVE.L (A1),-(A7) 00024e78 4e ba fd 48 |N H | JSR 0x24bc2 00024e7c 50 4f |PO | ADDQ.L #0x8,A7 00024e7e 48 51 |HQ | PEA.L (A1) 00024e80 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00024e86 58 4f |XO | ADDQ.L #0x4,A7 00024e88 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00024e8c 4e 5e |N^ | UNLK A6 00024e8e 4e 75 |Nu | RTS 00024e90 ; -------------------------------------------------------------------------------------- 00024e90 ; OMSI PASCAL Function 00024e90 ; <LVAR 0x014 4(rw)> 00024e90 ; <LVAR 0x010 4(r)> 00024e90 ; <LVAR 0x00c 4(r)> 00024e90 ; <LVAR 0x008 4(r)> 00024e90 ; <LVAR -0x008 4(rw)> 00024e90 ; <LVAR -0x00c 4(rw)> 00024e90 ; <LVAR -0x018 4(w)> 00024e90 ; -------------------------------------------------------------------------------------- 00024e90 4e 56 ff 96 |NV | LINK.W A6,#0xff96 00024e94 bf d5 | | CMPA.L (A5),A7 00024e96 62 06 |b | BHI 0x24e9e 00024e98 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024e9c 4e 76 |Nv | TRAPV 00024e9e de fc 00 52 | R | ADDA.W #0x52,A7 00024ea2 48 e7 e7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7) 00024ea6 43 ee ff f8 |C | LEA.L (A6-0x8),A1 00024eaa 45 ee 00 10 |E | LEA.L (A6+0x10),A2 00024eae 47 ee 00 0c |G | LEA.L (A6+0xc),A3 00024eb2 49 ee ff f4 |I | LEA.L (A6-0xc),A4 00024eb6 74 0c |t | MOVEQ.L #0x0c,D2 00024eb8 42 ae 00 14 |B | CLR.L (A6+0x14) 00024ebc 59 4f |YO | SUBQ.L #0x4,A7 00024ebe 2f 12 |/ | MOVE.L (A2),-(A7) 00024ec0 2f 13 |/ | MOVE.L (A3),-(A7) 00024ec2 4e ba da 76 |N v | JSR 0x2293a 00024ec6 50 4f |PO | ADDQ.L #0x8,A7 00024ec8 28 9f |( | MOVE.L (A7)+,(A4) 00024eca 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00024ece 30 10 |0 | MOVE.W (A0),D0 00024ed0 48 c0 |H | EXTW.L D0 00024ed2 52 80 |R | ADDQ.L #0x1,D0 00024ed4 22 80 |" | MOVE.L D0,(A1) 00024ed6 44 80 |D | NEG.L D0 00024ed8 d0 94 | | ADD.L (A4),D0 00024eda 52 80 |R | ADDQ.L #0x1,D0 00024edc 2f 00 |/ | MOVE.L D0,-(A7) 00024ede 70 01 |p | MOVEQ.L #0x01,D0 00024ee0 b0 97 | | CMP.L (A7),D0 00024ee2 6e 00 00 9a |n | BGT 0x24f7e 00024ee6 2d 40 ff e8 |-@ | MOVE.L D0,(A6-0x18) 00024eea 2f 00 |/ | MOVE.L D0,-(A7) 00024eec 7c 00 || | MOVEQ.L #0x00,D6 00024eee 2f 11 |/ | MOVE.L (A1),-(A7) 00024ef0 7a 01 |z | MOVEQ.L #0x01,D5 00024ef2 ba 97 | | CMP.L (A7),D5 00024ef4 6e 48 |nH | BGT 0x24f3e 00024ef6 0c 85 00 00 00 01 | | CMPI.L #0x00000001,D5 00024efc 66 04 |f | BNE 0x24f02 00024efe 7e 2f |~/ | MOVEQ.L #0x2f,D7 00024f00 60 18 |` | BRA 0x24f1a 00024f02 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00024f06 20 05 | | MOVE.L D5,D0 00024f08 53 80 |S | SUBQ.L #0x1,D0 00024f0a 53 80 |S | SUBQ.L #0x1,D0 00024f0c 0c 80 00 00 00 7d | } | CMPI.L #0x0000007d,D0 00024f12 63 02 |c | BLS 0x24f16 00024f14 4e 4f |NO | TRAP #15 00024f16 1e 30 08 02 | 0 | MOVE.B (A0+D0.L+#0x2),D7 00024f1a 55 4f |UO | SUBQ.L #0x2,A7 00024f1c 2f 12 |/ | MOVE.L (A2),-(A7) 00024f1e 2f 13 |/ | MOVE.L (A3),-(A7) 00024f20 20 2f 00 0e | / | MOVE.L (A7+0xe),D0 00024f24 d0 85 | | ADD.L D5,D0 00024f26 53 80 |S | SUBQ.L #0x1,D0 00024f28 2f 00 |/ | MOVE.L D0,-(A7) 00024f2a 4e ba f5 fa |N | JSR 0x24526 00024f2e de c2 | | ADDA.W D2,A7 00024f30 be 1f | | CMP.B (A7)+,D7 00024f32 67 04 |g | BEQ 0x24f38 00024f34 58 4f |XO | ADDQ.L #0x4,A7 00024f36 60 08 |` | BRA 0x24f40 00024f38 2c 05 |, | MOVE.L D5,D6 00024f3a 52 85 |R | ADDQ.L #0x1,D5 00024f3c 68 b4 |h | BVC 0x24ef2 00024f3e 58 4f |XO | ADDQ.L #0x4,A7 00024f40 bc 91 | | CMP.L (A1),D6 00024f42 66 32 |f2 | BNE 0x24f76 00024f44 20 17 | | MOVE.L (A7),D0 00024f46 22 00 |" | MOVE.L D0,D1 00024f48 d2 91 | | ADD.L (A1),D1 00024f4a b2 94 | | CMP.L (A4),D1 00024f4c 6c 26 |l& | BGE 0x24f74 00024f4e 55 4f |UO | SUBQ.L #0x2,A7 00024f50 2f 12 |/ | MOVE.L (A2),-(A7) 00024f52 2f 13 |/ | MOVE.L (A3),-(A7) 00024f54 2f 01 |/ | MOVE.L D1,-(A7) 00024f56 4e ba f5 ce |N | JSR 0x24526 00024f5a de c2 | | ADDA.W D2,A7 00024f5c 1e 1f | | MOVE.B (A7)+,D7 00024f5e 0c 07 00 2f | / | CMPI.B #0x2f,D7 00024f62 67 06 |g | BEQ 0x24f6a 00024f64 0c 07 00 3d | = | CMPI.B #0x3d,D7 00024f68 66 08 |f | BNE 0x24f72 00024f6a 2d 40 00 14 |-@ | MOVE.L D0,(A6+0x14) 00024f6e 50 4f |PO | ADDQ.L #0x8,A7 00024f70 60 0e |` | BRA 0x24f80 00024f72 60 02 |` | BRA 0x24f76 00024f74 60 f4 |` | BRA 0x24f6a 00024f76 20 1f | | MOVE.L (A7)+,D0 00024f78 52 80 |R | ADDQ.L #0x1,D0 00024f7a 68 00 ff 64 |h d | BVC 0x24ee0 00024f7e 58 4f |XO | ADDQ.L #0x4,A7 00024f80 4c df 1f e7 |L | MOVEM.L (A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3+A4 00024f84 4e 5e |N^ | UNLK A6 00024f86 4e 75 |Nu | RTS 00024f88 ; -------------------------------------------------------------------------------------- 00024f88 ; OMSI PASCAL Function 00024f88 ; <LVAR 0x018 4(r)> 00024f88 ; <LVAR 0x014 4(r)> 00024f88 ; <LVAR 0x010 4(r)> 00024f88 ; <LVAR 0x00c 4(r)> 00024f88 ; <LVAR 0x008 4(r)> 00024f88 ; <LVAR -0x008 4(rw)> 00024f88 ; <LVAR -0x014 4(rw)> 00024f88 ; <LVAR -0x018 4(rw)> 00024f88 ; <LVAR -0x01c 4(rw)> 00024f88 ; -------------------------------------------------------------------------------------- 00024f88 4e 56 ff 8e |NV | LINK.W A6,#0xff8e 00024f8c bf d5 | | CMPA.L (A5),A7 00024f8e 62 06 |b | BHI 0x24f96 00024f90 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024f94 4e 76 |Nv | TRAPV 00024f96 de fc 00 56 | V | ADDA.W #0x56,A7 00024f9a 48 e7 e7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7) 00024f9e 45 ee ff e4 |E | LEA.L (A6-0x1c),A2 00024fa2 47 ee ff e8 |G | LEA.L (A6-0x18),A3 00024fa6 49 ee ff f8 |I | LEA.L (A6-0x8),A4 00024faa 72 0c |r | MOVEQ.L #0x0c,D1 00024fac 74 01 |t | MOVEQ.L #0x01,D2 00024fae 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00024fb2 42 10 |B | CLR.B (A0) 00024fb4 22 6e 00 0c |"n | MOVEA.L (A6+0xc),A1 00024fb8 22 82 |" | MOVE.L D2,(A1) 00024fba 51 4f |QO | SUBQ.L #0x8,A7 00024fbc 2f 2e 00 18 |/. | MOVE.L (A6+0x18),-(A7) 00024fc0 2f 2e 00 14 |/. | MOVE.L (A6+0x14),-(A7) 00024fc4 4e ba d9 ac |N | JSR 0x22972 00024fc8 50 4f |PO | ADDQ.L #0x8,A7 00024fca 24 9f |$ | MOVE.L (A7)+,(A2) 00024fcc 26 9f |& | MOVE.L (A7)+,(A3) 00024fce 4a 92 |J | TST.L (A2) 00024fd0 67 00 00 96 |g | BEQ 0x25068 00024fd4 59 4f |YO | SUBQ.L #0x4,A7 00024fd6 2f 13 |/ | MOVE.L (A3),-(A7) 00024fd8 2f 12 |/ | MOVE.L (A2),-(A7) 00024fda 2f 2e 00 10 |/. | MOVE.L (A6+0x10),-(A7) 00024fde 4e ba fe b0 |N | JSR 0x24e90 00024fe2 de c1 | | ADDA.W D1,A7 00024fe4 2d 5f ff ec |-_ | MOVE.L (A7)+,(A6-0x14) 00024fe8 67 7e |g~ | BEQ 0x25068 00024fea 10 82 | | MOVE.B D2,(A0) 00024fec 48 51 |HQ | PEA.L (A1) 00024fee 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00024ff4 2f 13 |/ | MOVE.L (A3),-(A7) 00024ff6 2f 12 |/ | MOVE.L (A2),-(A7) 00024ff8 4e ba d9 40 |N @ | JSR 0x2293a 00024ffc 50 4f |PO | ADDQ.L #0x8,A7 00024ffe 28 9f |( | MOVE.L (A7)+,(A4) 00025000 20 2e ff ec | . | MOVE.L (A6-0x14),D0 00025004 52 80 |R | ADDQ.L #0x1,D0 00025006 2f 14 |/ | MOVE.L (A4),-(A7) 00025008 2a 00 |* | MOVE.L D0,D5 0002500a ba 97 | | CMP.L (A7),D5 0002500c 6e 58 |nX | BGT 0x25066 0002500e 55 4f |UO | SUBQ.L #0x2,A7 00025010 2f 13 |/ | MOVE.L (A3),-(A7) 00025012 2f 12 |/ | MOVE.L (A2),-(A7) 00025014 2f 05 |/ | MOVE.L D5,-(A7) 00025016 4e ba f5 0e |N | JSR 0x24526 0002501a de c1 | | ADDA.W D1,A7 0002501c 10 1f | | MOVE.B (A7)+,D0 0002501e 0c 00 00 3d | = | CMPI.B #0x3d,D0 00025022 66 3e |f> | BNE 0x25062 00025024 20 05 | | MOVE.L D5,D0 00025026 52 80 |R | ADDQ.L #0x1,D0 00025028 2f 14 |/ | MOVE.L (A4),-(A7) 0002502a 2e 00 |. | MOVE.L D0,D7 0002502c be 97 | | CMP.L (A7),D7 0002502e 6e 2e |n. | BGT 0x2505e 00025030 55 4f |UO | SUBQ.L #0x2,A7 00025032 2f 13 |/ | MOVE.L (A3),-(A7) 00025034 2f 12 |/ | MOVE.L (A2),-(A7) 00025036 2f 07 |/ | MOVE.L D7,-(A7) 00025038 4e ba f4 ec |N | JSR 0x24526 0002503c de c1 | | ADDA.W D1,A7 0002503e 1c 1f | | MOVE.B (A7)+,D6 00025040 0c 06 00 2f | / | CMPI.B #0x2f,D6 00025044 66 04 |f | BNE 0x2504a 00025046 50 4f |PO | ADDQ.L #0x8,A7 00025048 60 1e |` | BRA 0x25068 0002504a 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 0002504e 2f 10 |/ | MOVE.L (A0),-(A7) 00025050 1f 06 | | MOVE.B D6,-(A7) 00025052 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00025058 5c 4f |\O | ADDQ.L #0x6,A7 0002505a 52 87 |R | ADDQ.L #0x1,D7 0002505c 68 ce |h | BVC 0x2502c 0002505e 50 4f |PO | ADDQ.L #0x8,A7 00025060 60 06 |` | BRA 0x25068 00025062 52 85 |R | ADDQ.L #0x1,D5 00025064 68 a4 |h | BVC 0x2500a 00025066 58 4f |XO | ADDQ.L #0x4,A7 00025068 4c df 1f e7 |L | MOVEM.L (A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3+A4 0002506c 4e 5e |N^ | UNLK A6 0002506e 4e 75 |Nu | RTS 00025070 ; -------------------------------------------------------------------------------------- 00025070 ; OMSI PASCAL Function 00025070 ; <LVAR 0x00c @ 4(r)> 00025070 ; <LVAR 0x008 4(r)> 00025070 ; <LVAR -0x010 @ 1(r)> 00025070 ; -------------------------------------------------------------------------------------- 00025070 4e 56 ff c0 |NV | LINK.W A6,#0xffc0 00025074 bf d5 | | CMPA.L (A5),A7 00025076 62 06 |b | BHI 0x2507e 00025078 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002507c 4e 76 |Nv | TRAPV 0002507e de fc 00 30 | 0 | ADDA.W #0x30,A7 00025082 48 e7 87 f0 |H | MOVEM.L A3+A2+A1+A0+D7+D6+D5+D0,-(A7) 00025086 43 f9 00 02 68 32 |C h2 | LEA.L 0x26832,A1 0002508c 45 ee 00 08 |E | LEA.L (A6+0x8),A2 00025090 47 ee 00 0c |G | LEA.L (A6+0xc),A3 00025094 2f 13 |/ | MOVE.L (A3),-(A7) 00025096 2f 12 |/ | MOVE.L (A2),-(A7) 00025098 48 6e ff f0 |Hn | PEA.L (A6-0x10) 0002509c 4e b9 00 02 15 78 |N x | JSR 0x21578 000250a2 de fc 00 0c | | ADDA.W #0xc,A7 000250a6 4a 2e ff f0 |J. | TST.B (A6-0x10) 000250aa 66 50 |fP | BNE 0x250fc 000250ac 2e 11 |. | MOVE.L (A1),D7 000250ae 59 4f |YO | SUBQ.L #0x4,A7 000250b0 2f 12 |/ | MOVE.L (A2),-(A7) 000250b2 4e ba d0 80 |N | JSR 0x22134 000250b6 58 4f |XO | ADDQ.L #0x4,A7 000250b8 2c 1f |, | MOVE.L (A7)+,D6 000250ba 2f 13 |/ | MOVE.L (A3),-(A7) 000250bc 2f 12 |/ | MOVE.L (A2),-(A7) 000250be 4e ba f3 2a |N * | JSR 0x243ea 000250c2 50 4f |PO | ADDQ.L #0x8,A7 000250c4 2a 11 |* | MOVE.L (A1),D5 000250c6 20 07 | | MOVE.L D7,D0 000250c8 53 80 |S | SUBQ.L #0x1,D0 000250ca 0c 80 00 00 0f ff | | CMPI.L #0x00000fff,D0 000250d0 63 02 |c | BLS 0x250d4 000250d2 4e 4f |NO | TRAP #15 000250d4 41 f9 00 02 58 2a |A X* | LEA.L 0x2582a,A0 000250da 10 30 08 08 | 0 | MOVE.B (A0+D0.L+#0x8),D0 000250de 0c 00 00 25 | % | CMPI.B #0x25,D0 000250e2 66 0c |f | BNE 0x250f0 000250e4 22 87 |" | MOVE.L D7,(A1) 000250e6 2f 12 |/ | MOVE.L (A2),-(A7) 000250e8 2f 06 |/ | MOVE.L D6,-(A7) 000250ea 4e ba fb 5c |N \ | JSR 0x24c48 000250ee 50 4f |PO | ADDQ.L #0x8,A7 000250f0 52 87 |R | ADDQ.L #0x1,D7 000250f2 be b9 00 02 68 36 | h6 | CMP.L 0x26836,D7 000250f8 6f cc |o | BLE 0x250c6 000250fa 22 85 |" | MOVE.L D5,(A1) 000250fc 48 53 |HS | PEA.L (A3) 000250fe 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00025104 58 4f |XO | ADDQ.L #0x4,A7 00025106 4c df 0f e1 |L | MOVEM.L (A7)+,D0+D5+D6+D7+A0+A1+A2+A3 0002510a 4e 5e |N^ | UNLK A6 0002510c 4e 75 |Nu | RTS 0002510e ; -------------------------------------------------------------------------------------- 0002510e ; OMSI PASCAL Function 0002510e ; <LVAR -0x006 @ 4(r)> 0002510e ; <LVAR -0x00a @ 4(rw)> 0002510e ; <LVAR -0x00b 1(w)> 0002510e ; <LVAR -0x00c @ 1(r)> 0002510e ; -------------------------------------------------------------------------------------- 0002510e 4e 56 ff 94 |NV | LINK.W A6,#0xff94 00025112 bf d5 | | CMPA.L (A5),A7 00025114 62 06 |b | BHI 0x2511c 00025116 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002511a 4e 76 |Nv | TRAPV 0002511c de fc 00 54 | T | ADDA.W #0x54,A7 00025120 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00025124 45 ee ff fa |E | LEA.L (A6-0x6),A2 00025128 47 f9 00 02 68 32 |G h2 | LEA.L 0x26832,A3 0002512e 49 ee ff f6 |I | LEA.L (A6-0xa),A4 00025132 2e 13 |. | MOVE.L (A3),D7 00025134 48 52 |HR | PEA.L (A2) 00025136 48 6e ff f4 |Hn | PEA.L (A6-0xc) 0002513a 4e ba cf 4c |N L | JSR 0x22088 0002513e 50 4f |PO | ADDQ.L #0x8,A7 00025140 2c 13 |, | MOVE.L (A3),D6 00025142 59 4f |YO | SUBQ.L #0x4,A7 00025144 2f 12 |/ | MOVE.L (A2),-(A7) 00025146 4e ba cf ec |N | JSR 0x22134 0002514a 58 4f |XO | ADDQ.L #0x4,A7 0002514c 20 1f | | MOVE.L (A7)+,D0 0002514e 0c 80 ff ff ff ff | | CMPI.L #0xffffffff,D0 00025154 67 00 02 ac |g | BEQ 0x25402 00025158 59 4f |YO | SUBQ.L #0x4,A7 0002515a 2f 12 |/ | MOVE.L (A2),-(A7) 0002515c 48 78 00 00 |Hx | PEA.L 0x0 00025160 4e ba d8 ee |N | JSR 0x22a50 00025164 50 4f |PO | ADDQ.L #0x8,A7 00025166 28 97 |( | MOVE.L (A7),(A4) 00025168 54 4f |TO | ADDQ.L #0x2,A7 0002516a 2f 14 |/ | MOVE.L (A4),-(A7) 0002516c 4e ba f1 c4 |N | JSR 0x24332 00025170 58 4f |XO | ADDQ.L #0x4,A7 00025172 10 1f | | MOVE.B (A7)+,D0 00025174 48 80 |H | EXTB.W D0 00025176 41 bc 00 2b |A + | CHK.W #0x2b,D0 0002517a 1d 40 ff f5 | @ | MOVE.B D0,(A6-0xb) 0002517e 4a 00 |J | TST.B D0 00025180 66 0e |f | BNE 0x25190 00025182 2f 14 |/ | MOVE.L (A4),-(A7) 00025184 2f 12 |/ | MOVE.L (A2),-(A7) 00025186 4e ba fe e8 |N | JSR 0x25070 0002518a 50 4f |PO | ADDQ.L #0x8,A7 0002518c 60 00 02 6c |` l | BRA 0x253fa 00025190 48 54 |HT | PEA.L (A4) 00025192 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00025198 58 4f |XO | ADDQ.L #0x4,A7 0002519a 12 00 | | MOVE.B D0,D1 0002519c 48 81 |H | EXTB.W D1 0002519e 43 bc 00 2b |C + | CHK.W #0x2b,D1 000251a2 41 fa ca 86 |A | LEA.L 0x21c2a,A0 000251a6 30 01 |0 | MOVE.W D1,D0 000251a8 48 c0 |H | EXTW.L D0 000251aa 24 00 |$ | MOVE.L D0,D2 000251ac e2 9a | | ROR.L #0x1,D2 000251ae d0 c2 | | ADDA.W D2,A0 000251b0 48 42 |HB | SWAP.W D2 000251b2 e7 5a | Z | ROL.W #0x3,D2 000251b4 42 83 |B | CLR.L D3 000251b6 16 10 | | MOVE.B (A0),D3 000251b8 e5 2b | + | LSL.B D2,D3 000251ba e8 0b | | LSR.B #0x4,D3 000251bc 2a 03 |* | MOVE.L D3,D5 000251be 0c 85 00 00 00 0f | | CMPI.L #0x0000000f,D5 000251c4 67 2c |g, | BEQ 0x251f2 000251c6 28 00 |( | MOVE.L D0,D4 000251c8 76 0a |v | MOVEQ.L #0x0a,D3 000251ca 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4 000251d0 41 fa c8 8a |A | LEA.L COMMAND_TABLE_21a5c,A0 000251d4 9e fc 00 0a | | SUBA.W #0xa,A7 000251d8 22 4f |"O | MOVEA.L A7,A1 000251da 41 f0 40 00 |A @ | LEA.L (A0+D4.W),A0 000251de 70 09 |p | MOVEQ.L #0x09,D0 000251e0 12 d8 | | MOVE.B (A0)+,(A1)+ 000251e2 51 c8 ff fc |Q | DBF D0,0x251e0 000251e6 2f 12 |/ | MOVE.L (A2),-(A7) 000251e8 2f 05 |/ | MOVE.L D5,-(A7) 000251ea 4e ba cf 7e |N ~ | JSR 0x2216a 000251ee de fc 00 12 | | ADDA.W #0x12,A7 000251f2 53 41 |SA | SUBQ.W #0x1,D1 000251f4 0c 41 00 2a | A * | CMPI.W #0x002a,D1 000251f8 63 02 |c | BLS 0x251fc 000251fa 4e 4e |NN | TRAP #14 000251fc d2 41 | A | ADD.W D1,D1 000251fe 32 3b 10 06 4e fb 10 02 |2; N | SWITCH D1.W 00025206 00 56 | V | .CONST 0x56 ; [0x0] -> 0x2525c 00025208 00 62 | b | .CONST 0x62 ; [0x1] -> 0x25268 0002520a 00 74 | t | .CONST 0x74 ; [0x2] -> 0x2527a 0002520c 00 82 | | .CONST 0x82 ; [0x3] -> 0x25288 0002520e 01 e6 | | .CONST 0x1e6 ; [0x4] -> 0x253ec 00025210 00 8a | | .CONST 0x8a ; [0x5] -> 0x25290 00025212 00 8e | | .CONST 0x8e ; [0x6] -> 0x25294 00025214 00 96 | | .CONST 0x96 ; [0x7] -> 0x2529c 00025216 00 9e | | .CONST 0x9e ; [0x8] -> 0x252a4 00025218 00 a6 | | .CONST 0xa6 ; [0x9] -> 0x252ac 0002521a 00 ae | | .CONST 0xae ; [0xa] -> 0x252b4 0002521c 00 b6 | | .CONST 0xb6 ; [0xb] -> 0x252bc 0002521e 00 be | | .CONST 0xbe ; [0xc] -> 0x252c4 00025220 00 c6 | | .CONST 0xc6 ; [0xd] -> 0x252cc 00025222 00 ce | | .CONST 0xce ; [0xe] -> 0x252d4 00025224 00 d6 | | .CONST 0xd6 ; [0xf] -> 0x252dc 00025226 00 e0 | | .CONST 0xe0 ; [0x10] -> 0x252e6 00025228 00 ea | | .CONST 0xea ; [0x11] -> 0x252f0 0002522a 00 f4 | | .CONST 0xf4 ; [0x12] -> 0x252fa 0002522c 00 fe | | .CONST 0xfe ; [0x13] -> 0x25304 0002522e 01 08 | | .CONST 0x108 ; [0x14] -> 0x2530e 00025230 01 12 | | .CONST 0x112 ; [0x15] -> 0x25318 00025232 01 1c | | .CONST 0x11c ; [0x16] -> 0x25322 00025234 01 26 | & | .CONST 0x126 ; [0x17] -> 0x2532c 00025236 01 30 | 0 | .CONST 0x130 ; [0x18] -> 0x25336 00025238 01 3a | : | .CONST 0x13a ; [0x19] -> 0x25340 0002523a 01 44 | D | .CONST 0x144 ; [0x1a] -> 0x2534a 0002523c 01 4e | N | .CONST 0x14e ; [0x1b] -> 0x25354 0002523e 01 58 | X | .CONST 0x158 ; [0x1c] -> 0x2535e 00025240 01 62 | b | .CONST 0x162 ; [0x1d] -> 0x25368 00025242 01 6c | l | .CONST 0x16c ; [0x1e] -> 0x25372 00025244 01 76 | v | .CONST 0x176 ; [0x1f] -> 0x2537c 00025246 01 80 | | .CONST 0x180 ; [0x20] -> 0x25386 00025248 01 8a | | .CONST 0x18a ; [0x21] -> 0x25390 0002524a 01 94 | | .CONST 0x194 ; [0x22] -> 0x2539a 0002524c 01 9e | | .CONST 0x19e ; [0x23] -> 0x253a4 0002524e 01 a8 | | .CONST 0x1a8 ; [0x24] -> 0x253ae 00025250 01 b2 | | .CONST 0x1b2 ; [0x25] -> 0x253b8 00025252 01 b8 | | .CONST 0x1b8 ; [0x26] -> 0x253be 00025254 01 c2 | | .CONST 0x1c2 ; [0x27] -> 0x253c8 00025256 01 cc | | .CONST 0x1cc ; [0x28] -> 0x253d2 00025258 01 d6 | | .CONST 0x1d6 ; [0x29] -> 0x253dc 0002525a 01 dc | | .CONST 0x1dc ; [0x2a] -> 0x253e2 0002525c switch@0x251fe[0x0]: 0002525c 2f 12 |/ | MOVE.L (A2),-(A7) 0002525e 4e ba d9 78 |N x | JSR 0x22bd8 00025262 58 4f |XO | ADDQ.L #0x4,A7 00025264 60 00 01 94 |` | BRA 0x253fa 00025268 switch@0x251fe[0x1]: 00025268 42 27 |B' | CLR.B -(A7) 0002526a 48 78 00 01 |Hx | PEA.L 0x1 0002526e 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00025274 5c 4f |\O | ADDQ.L #0x6,A7 00025276 60 00 01 82 |` | BRA 0x253fa 0002527a switch@0x251fe[0x2]: 0002527a 59 4f |YO | SUBQ.L #0x4,A7 0002527c 4e b9 00 01 02 ac |N | JSR FSCALL_102ac 00025282 4e ba d9 2a |N * | JSR 0x22bae 00025286 60 da |` | BRA 0x25262 00025288 switch@0x251fe[0x3]: 00025288 2f 12 |/ | MOVE.L (A2),-(A7) 0002528a 4e ba db 26 |N & | JSR 0x22db2 0002528e 60 d2 |` | BRA 0x25262 00025290 switch@0x251fe[0x5]: 00025290 60 00 01 68 |` h | BRA 0x253fa 00025294 switch@0x251fe[0x6]: 00025294 2f 12 |/ | MOVE.L (A2),-(A7) 00025296 4e ba de 40 |N @ | JSR 0x230d8 0002529a 60 c6 |` | BRA 0x25262 0002529c switch@0x251fe[0x7]: 0002529c 2f 12 |/ | MOVE.L (A2),-(A7) 0002529e 4e ba df a4 |N | JSR 0x23244 000252a2 60 be |` | BRA 0x25262 000252a4 switch@0x251fe[0x8]: 000252a4 2f 12 |/ | MOVE.L (A2),-(A7) 000252a6 4e ba e0 8a |N | JSR 0x23332 000252aa 60 b6 |` | BRA 0x25262 000252ac switch@0x251fe[0x9]: 000252ac 2f 12 |/ | MOVE.L (A2),-(A7) 000252ae 4e ba e4 76 |N v | JSR 0x23726 000252b2 60 ae |` | BRA 0x25262 000252b4 switch@0x251fe[0xa]: 000252b4 2f 12 |/ | MOVE.L (A2),-(A7) 000252b6 4e ba e4 e6 |N | JSR 0x2379e 000252ba 60 a6 |` | BRA 0x25262 000252bc switch@0x251fe[0xb]: 000252bc 2f 12 |/ | MOVE.L (A2),-(A7) 000252be 4e ba e5 56 |N V | JSR 0x23816 000252c2 60 9e |` | BRA 0x25262 000252c4 switch@0x251fe[0xc]: 000252c4 2f 12 |/ | MOVE.L (A2),-(A7) 000252c6 4e ba e5 7a |N z | JSR 0x23842 000252ca 60 96 |` | BRA 0x25262 000252cc switch@0x251fe[0xd]: 000252cc 2f 12 |/ | MOVE.L (A2),-(A7) 000252ce 4e ba e6 72 |N r | JSR 0x23942 000252d2 60 8e |` | BRA 0x25262 000252d4 switch@0x251fe[0xe]: 000252d4 2f 12 |/ | MOVE.L (A2),-(A7) 000252d6 4e ba e7 50 |N P | JSR 0x23a28 000252da 60 86 |` | BRA 0x25262 000252dc switch@0x251fe[0xf]: 000252dc 2f 12 |/ | MOVE.L (A2),-(A7) 000252de 4e ba e7 74 |N t | JSR 0x23a54 000252e2 60 00 ff 7e |` ~ | BRA 0x25262 000252e6 switch@0x251fe[0x10]: 000252e6 2f 12 |/ | MOVE.L (A2),-(A7) 000252e8 4e ba e7 b6 |N | JSR 0x23aa0 000252ec 60 00 ff 74 |` t | BRA 0x25262 000252f0 switch@0x251fe[0x11]: 000252f0 2f 12 |/ | MOVE.L (A2),-(A7) 000252f2 4e ba e7 f8 |N | JSR 0x23aec 000252f6 60 00 ff 6a |` j | BRA 0x25262 000252fa switch@0x251fe[0x12]: 000252fa 2f 12 |/ | MOVE.L (A2),-(A7) 000252fc 4e ba e8 3a |N : | JSR 0x23b38 00025300 60 00 ff 60 |` ` | BRA 0x25262 00025304 switch@0x251fe[0x13]: 00025304 2f 12 |/ | MOVE.L (A2),-(A7) 00025306 4e ba e8 7c |N | | JSR 0x23b84 0002530a 60 00 ff 56 |` V | BRA 0x25262 0002530e switch@0x251fe[0x14]: 0002530e 2f 12 |/ | MOVE.L (A2),-(A7) 00025310 4e ba e8 be |N | JSR 0x23bd0 00025314 60 00 ff 4c |` L | BRA 0x25262 00025318 switch@0x251fe[0x15]: 00025318 2f 12 |/ | MOVE.L (A2),-(A7) 0002531a 4e ba e9 00 |N | JSR 0x23c1c 0002531e 60 00 ff 42 |` B | BRA 0x25262 00025322 switch@0x251fe[0x16]: 00025322 2f 12 |/ | MOVE.L (A2),-(A7) 00025324 4e ba e9 40 |N @ | JSR 0x23c66 00025328 60 00 ff 38 |` 8 | BRA 0x25262 0002532c switch@0x251fe[0x17]: 0002532c 2f 12 |/ | MOVE.L (A2),-(A7) 0002532e 4e ba e9 80 |N | JSR 0x23cb0 00025332 60 00 ff 2e |` . | BRA 0x25262 00025336 switch@0x251fe[0x18]: 00025336 2f 12 |/ | MOVE.L (A2),-(A7) 00025338 4e ba e9 c0 |N | JSR 0x23cfa 0002533c 60 00 ff 24 |` $ | BRA 0x25262 00025340 switch@0x251fe[0x19]: 00025340 2f 12 |/ | MOVE.L (A2),-(A7) 00025342 4e ba ea 00 |N | JSR 0x23d44 00025346 60 00 ff 1a |` | BRA 0x25262 0002534a switch@0x251fe[0x1a]: 0002534a 2f 12 |/ | MOVE.L (A2),-(A7) 0002534c 4e ba ea 40 |N @ | JSR 0x23d8e 00025350 60 00 ff 10 |` | BRA 0x25262 00025354 switch@0x251fe[0x1b]: 00025354 2f 12 |/ | MOVE.L (A2),-(A7) 00025356 4e ba ea 80 |N | JSR 0x23dd8 0002535a 60 00 ff 06 |` | BRA 0x25262 0002535e switch@0x251fe[0x1c]: 0002535e 2f 12 |/ | MOVE.L (A2),-(A7) 00025360 4e ba ea c0 |N | JSR 0x23e22 00025364 60 00 fe fc |` | BRA 0x25262 00025368 switch@0x251fe[0x1d]: 00025368 2f 12 |/ | MOVE.L (A2),-(A7) 0002536a 4e ba eb 00 |N | JSR 0x23e6c 0002536e 60 00 fe f2 |` | BRA 0x25262 00025372 switch@0x251fe[0x1e]: 00025372 2f 12 |/ | MOVE.L (A2),-(A7) 00025374 4e ba eb 3a |N : | JSR 0x23eb0 00025378 60 00 fe e8 |` | BRA 0x25262 0002537c switch@0x251fe[0x1f]: 0002537c 2f 12 |/ | MOVE.L (A2),-(A7) 0002537e 4e ba eb 76 |N v | JSR 0x23ef6 00025382 60 00 fe de |` | BRA 0x25262 00025386 switch@0x251fe[0x20]: 00025386 2f 12 |/ | MOVE.L (A2),-(A7) 00025388 4e ba eb a2 |N | JSR 0x23f2c 0002538c 60 00 fe d4 |` | BRA 0x25262 00025390 switch@0x251fe[0x21]: 00025390 2f 12 |/ | MOVE.L (A2),-(A7) 00025392 4e ba ec 28 |N ( | JSR 0x23fbc 00025396 60 00 fe ca |` | BRA 0x25262 0002539a switch@0x251fe[0x22]: 0002539a 2f 12 |/ | MOVE.L (A2),-(A7) 0002539c 4e ba ec 90 |N | JSR 0x2402e 000253a0 60 00 fe c0 |` | BRA 0x25262 000253a4 switch@0x251fe[0x23]: 000253a4 2f 12 |/ | MOVE.L (A2),-(A7) 000253a6 4e ba df ec |N | JSR 0x23394 000253aa 60 00 fe b6 |` | BRA 0x25262 000253ae switch@0x251fe[0x24]: 000253ae 2f 12 |/ | MOVE.L (A2),-(A7) 000253b0 4e ba e0 4c |N L | JSR 0x233fe 000253b4 60 00 fe ac |` | BRA 0x25262 000253b8 switch@0x251fe[0x25]: 000253b8 4e ba e0 16 |N | JSR 0x233d0 000253bc 60 3c |`< | BRA 0x253fa 000253be switch@0x251fe[0x26]: 000253be 2f 12 |/ | MOVE.L (A2),-(A7) 000253c0 4e ba ec de |N | JSR 0x240a0 000253c4 60 00 fe 9c |` | BRA 0x25262 000253c8 switch@0x251fe[0x27]: 000253c8 2f 12 |/ | MOVE.L (A2),-(A7) 000253ca 4e ba ed 56 |N V | JSR 0x24122 000253ce 60 00 fe 92 |` | BRA 0x25262 000253d2 switch@0x251fe[0x28]: 000253d2 2f 12 |/ | MOVE.L (A2),-(A7) 000253d4 4e ba ed cc |N | JSR 0x241a2 000253d8 60 00 fe 88 |` | BRA 0x25262 000253dc switch@0x251fe[0x29]: 000253dc 4e ba ee 88 |N | JSR 0x24266 000253e0 60 18 |` | BRA 0x253fa 000253e2 switch@0x251fe[0x2a]: 000253e2 2f 12 |/ | MOVE.L (A2),-(A7) 000253e4 4e ba ee a0 |N | JSR 0x24286 000253e8 60 00 fe 78 |` x | BRA 0x25262 000253ec switch@0x251fe[0x4]: 000253ec 2e 6d 00 08 |.m | MOVEA.L (A5+0x8),A7 000253f0 3c 7c 00 00 |<| | MOVEA.W #0x0,A6 000253f4 4e f9 00 02 56 04 |N V | JMP 0x25604 000253fa 2f 12 |/ | MOVE.L (A2),-(A7) 000253fc 4e ba c8 e8 |N | JSR 0x21ce6 00025400 58 4f |XO | ADDQ.L #0x4,A7 00025402 2f 06 |/ | MOVE.L D6,-(A7) 00025404 2f 06 |/ | MOVE.L D6,-(A7) 00025406 9f 97 | | SUB.L D7,(A7) 00025408 4e ba ce 72 |N r | JSR 0x2227c 0002540c 50 4f |PO | ADDQ.L #0x8,A7 0002540e 26 87 |& | MOVE.L D7,(A3) 00025410 4a 2e ff f4 |J. | TST.B (A6-0xc) 00025414 67 00 fd 1c |g | BEQ 0x25132 00025418 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 0002541c 4e 5e |N^ | UNLK A6 0002541e 4e 75 |Nu | RTS 00025420 ; -------------------------------------------------------------------------------------- 00025420 ; OMSI PASCAL Function 00025420 ; -------------------------------------------------------------------------------------- 00025420 START: 00025420 4f fa 00 08 |O | LEA.L MAIN,A7 00025424 4e f9 00 01 02 80 |N | JMP ?start_program 0002542a MAIN: 0002542a 23 fc 00 00 00 01 00 02 |# | MOVE.L #0x1,0x2685c 00025432 68 5c |h\ | 00025434 59 4f |YO | SUBQ.L #0x4,A7 00025436 4e b9 00 01 03 c4 |N | JSR GetArgv() : String 0002543c 23 df 00 02 68 60 |# h` | MOVE.L (A7)+,0x26860 00025442 48 79 00 02 68 3a |Hy h: | PEA.L 0x2683a 00025448 4e b9 00 02 16 28 |N ( | JSR 0x21628 0002544e 58 4f |XO | ADDQ.L #0x4,A7 00025450 20 79 00 02 68 60 | y h` | MOVEA.L 0x26860,A0 00025456 4a 50 |JP | TST.W (A0) 00025458 6f 68 |oh | BLE 0x254c2 0002545a 51 4f |QO | SUBQ.L #0x8,A7 0002545c 20 4f | O | MOVEA.L A7,A0 0002545e 43 fa c5 de |C | LEA.L 0x21a3e,A1 00025462 70 06 |p | MOVEQ.L #0x06,D0 00025464 10 d9 | | MOVE.B (A1)+,(A0)+ 00025466 51 c8 ff fc |Q | DBF D0,0x25464 0002546a 51 4f |QO | SUBQ.L #0x8,A7 0002546c 20 4f | O | MOVEA.L A7,A0 0002546e 43 fa c5 d6 |C | LEA.L 0x21a46,A1 00025472 70 06 |p | MOVEQ.L #0x06,D0 00025474 10 d9 | | MOVE.B (A1)+,(A0)+ 00025476 51 c8 ff fc |Q | DBF D0,0x25474 0002547a 51 4f |QO | SUBQ.L #0x8,A7 0002547c 48 6f 00 10 |Ho | PEA.L (A7+0x10) 00025480 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00025484 3f 3c 00 07 |?< | MOVE.W #0x7,-(A7) 00025488 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002548e 58 4f |XO | ADDQ.L #0x4,A7 00025490 2e b9 00 02 68 60 |. h` | MOVE.L 0x26860,(A7) 00025496 59 4f |YO | SUBQ.L #0x4,A7 00025498 48 6f 00 10 |Ho | PEA.L (A7+0x10) 0002549c 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000254a0 3f 3c 00 07 |?< | MOVE.W #0x7,-(A7) 000254a4 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000254aa 50 4f |PO | ADDQ.L #0x8,A7 000254ac 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 000254b2 de fc 00 0c | | ADDA.W #0xc,A7 000254b6 23 df 00 02 68 60 |# h` | MOVE.L (A7)+,0x26860 000254bc de fc 00 10 | | ADDA.W #0x10,A7 000254c0 60 3a |`: | BRA 0x254fc 000254c2 48 79 00 02 68 60 |Hy h` | PEA.L 0x26860 000254c8 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000254ce 59 4f |YO | SUBQ.L #0x4,A7 000254d0 20 4f | O | MOVEA.L A7,A0 000254d2 43 fa c5 7a |C z | LEA.L 0x21a4e,A1 000254d6 70 06 |p | MOVEQ.L #0x06,D0 000254d8 10 d9 | | MOVE.B (A1)+,(A0)+ 000254da 51 c8 ff fc |Q | DBF D0,0x254d8 000254de 59 4f |YO | SUBQ.L #0x4,A7 000254e0 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000254e4 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000254e8 3f 3c 00 07 |?< | MOVE.W #0x7,-(A7) 000254ec 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000254f2 50 4f |PO | ADDQ.L #0x8,A7 000254f4 23 df 00 02 68 60 |# h` | MOVE.L (A7)+,0x26860 000254fa 50 4f |PO | ADDQ.L #0x8,A7 000254fc 13 fc 00 01 00 02 68 6a | hj| MOVE.B #0x01,0x2686a 00025504 4a 39 00 02 68 6a |J9 hj | TST.B 0x2686a 0002550a 67 0a |g | BEQ 0x25516 0002550c 42 39 00 02 68 6a |B9 hj | CLR.B 0x2686a 00025512 60 00 00 b0 |` | BRA 0x255c4 00025516 41 f9 00 02 68 44 |A hD | LEA.L 0x26844,A0 0002551c 70 04 |p | MOVEQ.L #0x04,D0 0002551e 3f 20 |? | MOVE.W -(A0),-(A7) 00025520 51 c8 ff fc |Q | DBF D0,0x2551e 00025524 3f 3a c5 30 |?: 0 | MOVE.W 0x21a56,-(A7) 00025528 9e fc 00 0c | | SUBA.W #0xc,A7 0002552c 48 6f 00 0e |Ho | PEA.L (A7+0xe) 00025530 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00025534 3f 3c 00 0a |?< | MOVE.W #0xa,-(A7) 00025538 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002553e 58 4f |XO | ADDQ.L #0x4,A7 00025540 48 6f 00 10 |Ho | PEA.L (A7+0x10) 00025544 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00025548 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7) 0002554c 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00025552 50 4f |PO | ADDQ.L #0x8,A7 00025554 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 0002555a 50 4f |PO | ADDQ.L #0x8,A7 0002555c 4e b9 00 01 03 e4 |N | JSR AskConsoleString(prompt : String) : String 00025562 58 4f |XO | ADDQ.L #0x4,A7 00025564 23 df 00 02 68 66 |# hf | MOVE.L (A7)+,0x26866 0002556a 50 4f |PO | ADDQ.L #0x8,A7 0002556c 2e b9 00 02 68 66 |. hf | MOVE.L 0x26866,(A7) 00025572 4e ba ca 0c |N | JSR 0x21f80 00025576 54 4f |TO | ADDQ.L #0x2,A7 00025578 3e ba c4 de |> | MOVE.W 0x21a58,(A7) 0002557c 3f 3a c4 dc |?: | MOVE.W 0x21a5a,-(A7) 00025580 51 4f |QO | SUBQ.L #0x8,A7 00025582 48 6f 00 0a |Ho | PEA.L (A7+0xa) 00025586 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 0002558a 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7) 0002558e 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00025594 58 4f |XO | ADDQ.L #0x4,A7 00025596 2e b9 00 02 68 66 |. hf | MOVE.L 0x26866,(A7) 0002559c 59 4f |YO | SUBQ.L #0x4,A7 0002559e 48 6f 00 10 |Ho | PEA.L (A7+0x10) 000255a2 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000255a6 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7) 000255aa 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000255b0 50 4f |PO | ADDQ.L #0x8,A7 000255b2 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 000255b8 de fc 00 0c | | ADDA.W #0xc,A7 000255bc 23 df 00 02 68 60 |# h` | MOVE.L (A7)+,0x26860 000255c2 58 4f |XO | ADDQ.L #0x4,A7 000255c4 42 39 00 02 68 64 |B9 hd | CLR.B 0x26864 000255ca 23 fc 00 00 00 01 00 02 |# | MOVE.L #0x1,0x26832 000255d2 68 32 |h2 | 000255d4 42 b9 00 02 68 36 |B h6 | CLR.L 0x26836 000255da 59 4f |YO | SUBQ.L #0x4,A7 000255dc 2f 39 00 02 68 60 |/9 h` | MOVE.L 0x26860,-(A7) 000255e2 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 000255e8 58 4f |XO | ADDQ.L #0x4,A7 000255ea 4e ba d5 06 |N | JSR 0x22af2 000255ee 58 4f |XO | ADDQ.L #0x4,A7 000255f0 20 39 00 02 68 32 | 9 h2 | MOVE.L 0x26832,D0 000255f6 b0 b9 00 02 68 36 | h6 | CMP.L 0x26836,D0 000255fc 6e 06 |n | BGT 0x25604 000255fe 4e ba fb 0e |N | JSR 0x2510e 00025602 60 ec |` | BRA 0x255f0 00025604 48 79 00 02 68 60 |Hy h` | PEA.L 0x26860 0002560a 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00025610 58 4f |XO | ADDQ.L #0x4,A7 00025612 60 00 fe f0 |` | BRA 0x25504 00025616 4e b9 |N | .XXX[0x2] 00025618 00 01 02 84 | | .XXX[0x4] 0002561c 57 6f 72 64 73 20 65 72 |Words er| .TXT 'Words error :_' 0002562a ; -------------------------------------------------------------------------------------- 0002562a ; OMSI PASCAL Function 0002562a ; <LVAR 0x008 1(r)> 0002562a ; -------------------------------------------------------------------------------------- 0002562a PROG_FAIL: 0002562a 4e 56 ff d2 |NV | LINK.W A6,#0xffd2 0002562e bf d5 | | CMPA.L (A5),A7 00025630 62 06 |b | BHI 0x25638 00025632 44 fc 00 02 |D | MOVE.W #0x2,CCR 00025636 4e 76 |Nv | TRAPV 00025638 de fc 00 2c | , | ADDA.W #0x2c,A7 0002563c 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 00025640 41 fa ff e8 |A | LEA.L PROG_FAIL,A0 00025644 70 06 |p | MOVEQ.L #0x06,D0 00025646 3f 20 |? | MOVE.W -(A0),-(A7) 00025648 51 c8 ff fc |Q | DBF D0,0x25646 0002564c 1f 3c 00 03 | < | MOVE.B #0x03,-(A7) 00025650 51 4f |QO | SUBQ.L #0x8,A7 00025652 48 6f 00 0a |Ho | PEA.L (A7+0xa) 00025656 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 0002565a 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7) 0002565e 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00025664 58 4f |XO | ADDQ.L #0x4,A7 00025666 10 2e 00 08 | . | MOVE.B (A6+0x8),D0 0002566a 48 80 |H | EXTB.W D0 0002566c 48 c0 |H | EXTW.L D0 0002566e 2f 00 |/ | MOVE.L D0,-(A7) 00025670 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00025676 58 4f |XO | ADDQ.L #0x4,A7 00025678 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 0002567e 50 4f |PO | ADDQ.L #0x8,A7 00025680 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00025686 de fc 00 14 | | ADDA.W #0x14,A7 0002568a 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 0002568e 4e 5e |N^ | UNLK A6 00025690 4e 75 |Nu | RTS 00025692 42 6f 61 72 64 20 20 20 |Board | .TXT 'Board :_ ' 000256a0 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment :_ ' 000256ae 53 74 61 74 75 73 20 20 |Status | .TXT 'Status :_ ' 000256bc 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment error :' 000256ce 46 61 74 61 6c 20 65 78 |Fatal ex| .TXT 'Fatal experiment error. ' 000256e6 ; -------------------------------------------------------------------------------------- 000256e6 ; OMSI PASCAL Function 000256e6 ; <LVAR 0x00e 1(r)> 000256e6 ; <LVAR 0x00a 4(r)> 000256e6 ; <LVAR 0x008 1(r)> 000256e6 ; -------------------------------------------------------------------------------------- 000256e6 EXP_FAIL: 000256e6 4e 56 ff 8c |NV | LINK.W A6,#0xff8c 000256ea bf d5 | | CMPA.L (A5),A7 000256ec 62 06 |b | BHI 0x256f4 000256ee 44 fc 00 02 |D | MOVE.W #0x2,CCR 000256f2 4e 76 |Nv | TRAPV 000256f4 de fc 00 74 | t | ADDA.W #0x74,A7 000256f8 48 e7 fc f8 |H | MOVEM.L A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7) 000256fc 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 00025702 49 f9 00 01 03 e0 |I | LEA.L WriteConsoleStringCrLf(str : String),A4 00025708 72 01 |r | MOVEQ.L #0x01,D1 0002570a 74 0d |t | MOVEQ.L #0x0d,D2 0002570c 76 1e |v | MOVEQ.L #0x1e,D3 0002570e 78 12 |x | MOVEQ.L #0x12,D4 00025710 7a 0e |z | MOVEQ.L #0x0e,D5 00025712 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 00025718 41 fa ff b4 |A | LEA.L 0x256ce,A0 0002571c 70 08 |p | MOVEQ.L #0x08,D0 0002571e 3f 20 |? | MOVE.W -(A0),-(A7) 00025720 51 c8 ff fc |Q | DBF D0,0x2571e 00025724 59 4f |YO | SUBQ.L #0x4,A7 00025726 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002572a 3f 01 |? | MOVE.W D1,-(A7) 0002572c 3f 04 |? | MOVE.W D4,-(A7) 0002572e 4e 93 |N | JSR (A3) 00025730 50 4f |PO | ADDQ.L #0x8,A7 00025732 4e 94 |N | JSR (A4) 00025734 50 4f |PO | ADDQ.L #0x8,A7 00025736 20 4f | O | MOVEA.L A7,A0 00025738 43 fa ff 58 |C X | LEA.L 0x25692,A1 0002573c 70 0c |p | MOVEQ.L #0x0c,D0 0002573e 10 d9 | | MOVE.B (A1)+,(A0)+ 00025740 51 c8 ff fc |Q | DBF D0,0x2573e 00025744 51 4f |QO | SUBQ.L #0x8,A7 00025746 48 6f 00 08 |Ho | PEA.L (A7+0x8) 0002574a 3f 01 |? | MOVE.W D1,-(A7) 0002574c 3f 02 |? | MOVE.W D2,-(A7) 0002574e 4e 93 |N | JSR (A3) 00025750 54 4f |TO | ADDQ.L #0x2,A7 00025752 1e ae 00 0e | | MOVE.B (A6+0xe),(A7) 00025756 4e b9 00 01 04 9c |N | JSR BoardName(address : B) : String 0002575c 54 4f |TO | ADDQ.L #0x2,A7 0002575e 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00025764 50 4f |PO | ADDQ.L #0x8,A7 00025766 4e 94 |N | JSR (A4) 00025768 de c4 | | ADDA.W D4,A7 0002576a 20 6e 00 0a | n | MOVEA.L (A6+0xa),A0 0002576e b0 c1 | | CMPA.W D1,A0 00025770 67 48 |gH | BEQ 0x257ba 00025772 9e c5 | | SUBA.W D5,A7 00025774 22 4f |"O | MOVEA.L A7,A1 00025776 45 fa ff 28 |E ( | LEA.L 0x256a0,A2 0002577a 70 0c |p | MOVEQ.L #0x0c,D0 0002577c 12 da | | MOVE.B (A2)+,(A1)+ 0002577e 51 c8 ff fc |Q | DBF D0,0x2577c 00025782 9e c3 | | SUBA.W D3,A7 00025784 22 4f |"O | MOVEA.L A7,A1 00025786 41 e8 00 fc |A | LEA.L (A0+0xfc),A0 0002578a 70 1d |p | MOVEQ.L #0x1d,D0 0002578c 12 d8 | | MOVE.B (A0)+,(A1)+ 0002578e 51 c8 ff fc |Q | DBF D0,0x2578c 00025792 51 4f |QO | SUBQ.L #0x8,A7 00025794 48 6f 00 26 |Ho & | PEA.L (A7+0x26) 00025798 3f 01 |? | MOVE.W D1,-(A7) 0002579a 3f 02 |? | MOVE.W D2,-(A7) 0002579c 4e 93 |N | JSR (A3) 0002579e 58 4f |XO | ADDQ.L #0x4,A7 000257a0 48 6f 00 0c |Ho | PEA.L (A7+0xc) 000257a4 3f 01 |? | MOVE.W D1,-(A7) 000257a6 3f 03 |? | MOVE.W D3,-(A7) 000257a8 4e 93 |N | JSR (A3) 000257aa 50 4f |PO | ADDQ.L #0x8,A7 000257ac 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000257b2 50 4f |PO | ADDQ.L #0x8,A7 000257b4 4e 94 |N | JSR (A4) 000257b6 de fc 00 30 | 0 | ADDA.W #0x30,A7 000257ba 9e c5 | | SUBA.W D5,A7 000257bc 20 4f | O | MOVEA.L A7,A0 000257be 43 fa fe ee |C | LEA.L 0x256ae,A1 000257c2 70 0c |p | MOVEQ.L #0x0c,D0 000257c4 10 d9 | | MOVE.B (A1)+,(A0)+ 000257c6 51 c8 ff fc |Q | DBF D0,0x257c4 000257ca 51 4f |QO | SUBQ.L #0x8,A7 000257cc 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000257d0 3f 01 |? | MOVE.W D1,-(A7) 000257d2 3f 02 |? | MOVE.W D2,-(A7) 000257d4 4e 93 |N | JSR (A3) 000257d6 54 4f |TO | ADDQ.L #0x2,A7 000257d8 1e ae 00 08 | | MOVE.B (A6+0x8),(A7) 000257dc 4e b9 00 01 04 a2 |N | JSR ExpStatus2Text(status.B, &String) 000257e2 54 4f |TO | ADDQ.L #0x2,A7 000257e4 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000257ea 50 4f |PO | ADDQ.L #0x8,A7 000257ec 4e 94 |N | JSR (A4) 000257ee 5d 4f |]O | SUBQ.L #0x6,A7 000257f0 20 4f | O | MOVEA.L A7,A0 000257f2 43 fa fe da |C | LEA.L 0x256ce,A1 000257f6 70 16 |p | MOVEQ.L #0x16,D0 000257f8 10 d9 | | MOVE.B (A1)+,(A0)+ 000257fa 51 c8 ff fc |Q | DBF D0,0x257f8 000257fe 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 00025802 59 4f |YO | SUBQ.L #0x4,A7 00025804 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00025808 3f 01 |? | MOVE.W D1,-(A7) 0002580a 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7) 0002580e 4e 93 |N | JSR (A3) 00025810 50 4f |PO | ADDQ.L #0x8,A7 00025812 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00025818 de c3 | | ADDA.W D3,A7 0002581a 4c df 1f 3f |L ? | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4 0002581e 4e 5e |N^ | UNLK A6 00025820 4e 75 |Nu | RTS