|
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: @(#)CLI,1.1,92/07/09,12:00:00, M200_PROGRAM
Names: »CLI.M200«, »PROGRAM_1.M200«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »CLI.M200«
└─ ⟦this⟧ »PROGRAM_1.M200«
@ 203ce
<LVAR 0x010 1(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 @ 4(r)>
<LVAR -0x006 @ 4(r)>
<LVAR -0x008 @ 1(r)>
<POP 203ce-20430 Body>
<POP 203ce-203e4 Prologue> Σ0 ↓
<POP 203e4-203e8 RegCacheLoad> Σ0 ↓
<POP 203e8-20418 Naked> Σ0 ↓ →0x20422
<MI 203e8 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<Const 0x203ec 0x0.4> Δ-4 {[4, '(A6+0xc)']|[##0]}
<MI 203f0 MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0xc)']|[##0]|[4, '(A6+0x8)']}
<Pointer.fp 0x203f4 <LVAR -0x006 @ 4(r)>> Δ-4 {[4, '(A6+0xc)']|[##0]|[4, '(A6+0x8)']|[@@-6]}
<Pointer.fp 0x203f6 <LVAR -0x008 @ 1(r)>> Δ-4 {[4, '(A6+0xc)']|[##0]|[4, '(A6+0x8)']|[@@-6]|[@@-8]}
<Call 0x203fa 0x24fa6> {[4, '(A6+0xc)']|[##0]|[4, '(A6+0x8)']|[@@-6]|[@@-8]}
<POP 20400-20404 StackAdj> Δ+20 {}
<Pointer.fp 0x20404 <LVAR 0x008 @ 4(r)>> Δ-4 {[@@8]}
<Call 0x20408 0x102bc> {[@@8]}
FreeString(VAR a : String)
<POP 2040e-20410 StackAdj> Δ+4 {}
<MI 20410 MOVEA.L (A6-0x6),A0> {}
<MI 20412 CMPA.W #0x1,A0> {}
<MI 20416 BEQ 0x20422> {}
<POP 20418-20422 Naked> Σ0 ↓
<Pointer.fp 0x20418 <LVAR -0x006 @ 4(r)>> Δ-4 {[@@-6]}
<Call 0x2041a 0x102bc> {[@@-6]}
FreeString(VAR a : String)
<POP 20420-20422 StackAdj> Δ+4 {}
<POP 20422-20428 Naked> Σ0 ↓ ←0x203e8
<MI 20422 MOVE.B (A6-0x8),(A6+0x10)> {}
<POP 20428-20430 Epilogue> Σ0
@ 20430
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 1(r)>
<LVAR -0x008 @>
<POP 20430-2048e Body>
<POP 20430-20446 Prologue> Σ0 ↓
<POP 20446-2044a RegCacheLoad> Σ0 ↓
<POP 2044a-2046a Naked> Σ0 ↓ →0x20486
<MI 2044a MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<MI 2044e CLR.B -(A7)> Δ-2 {[4, '(A6+0x8)']|[#0]}
<MI 20450 CLR.B -(A7)> Δ-2 {[4, '(A6+0x8)']|[#0]|[#0]}
<Const 0x20452 0x0.4> Δ-4 {[4, '(A6+0x8)']|[#0]|[#0]|[##0]}
<Pointer.fp 0x20456 <LVAR -0x004 @ 1(r)>> Δ-4 {[4, '(A6+0x8)']|[#0]|[#0]|[##0]|[@@-4]}
<Pointer.fp 0x20458 <LVAR -0x008 @>> Δ-4 {[4, '(A6+0x8)']|[#0]|[#0]|[##0]|[@@-4]|[@@-8]}
<Call 0x2045c 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 20462-20466 StackAdj> Δ+20 {}
<MI 20466 TST.B (A6-0x4)> {}
<MI 20468 BNE 0x20486> {}
<POP 2046a-20486 Naked> Σ0 ↓
<Const 0x2046a 0x2.2> Δ-2 {[#2]}
<Const 0x2046e 0x1.2> Δ-2 {[#2]|[#1]}
<Const 0x20472 0x1.4> Δ-4 {[#2]|[#1]|[##1]}
<Pointer.fp 0x20476 <LVAR -0x004 @ 1(r)>> Δ-4 {[#2]|[#1]|[##1]|[@@-4]}
<Pointer.fp 0x20478 <LVAR -0x008 @>> Δ-4 {[#2]|[#1]|[##1]|[@@-4]|[@@-8]}
<Call 0x2047c 0x1038c> {[#2]|[#1]|[##1]|[@@-4]|[@@-8]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 20482-20486 StackAdj> Δ+16 {}
<POP 20486-2048e Epilogue> Σ0 ←0x2044a
@ 2048e
CMD_COPY()
<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 2048e-20674 Body> Δ-8
<POP 2048e-204a4 Prologue> Σ0 ↓
<POP 204a4-204b8 RegCacheLoad> Σ0 ↓
<POP 204b8-20524 Naked> Σ0 Δ-2 ↓ →0x20528
<MI 204b8 LEA.L (A6-0x404),A0> {}
<MI 204bc MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 204be MOVE.L (A7)+,D5> Δ+4 {}
<Blob 0x204c0 [10] @> Δ-10 {[«10""»]}
<MI 204cc MOVE.L (A6+0x8),-(A7)> Δ-4 {[«10""»]|[4, '(A6+0x8)']}
<Const 0x204ce 0x2.4> Δ-4 {[«10""»]|[4, '(A6+0x8)']|[##2]}
<Call 0x204d2 0x22188> {[«10""»]|[4, '(A6+0x8)']|[##2]}
<POP 204d8-204dc StackAdj> Δ+10 {[-8-]}
<MI 204dc MOVE.L (A6+0x8),(A7)> {[-4-]|[4, '(A6+0x8)']}
<Const 0x204de 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x204e2 0x22a6e> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 204e8-204ea StackAdj> Δ+8 {[-4-]}
<MI 204ea MOVE.L (A7),(A6-0x41c)> {[-4-]}
<MI 204ee MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x204f0 0x2.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##2]}
<Call 0x204f4 0x22a6e> {[-4-]|[4, '(A6+0x8)']|[##2]}
<POP 204fa-204fc StackAdj> Δ+8 {[-4-]}
<MI 204fc MOVE.L (A7)+,(A6-0x418)> Δ+4 {}
<Blob 0x20500 [2] @> Δ-2 {[«2""»]}
<POP 20504-20506 StackAdj> Δ-2 {[«2""»]|[-2-]}
<MI 20506 MOVE.L (A6+0x8),-(A7)> Δ-4 {[«2""»]|[-2-]|[4, '(A6+0x8)']}
<POP 20508-2050a StackAdj> Δ-4 {[«2""»]|[-2-]|[4, '(A6+0x8)']|[-4-]}
<Lit 0x2050a 2> {[«2""»]|[-2-]|[4, '(A6+0x8)']|[$$D ]}
<Call 0x2051a 0x203ce> {[«2""»]|[-2-]|[4, '(A6+0x8)']|[$$D ]}
<POP 2051e-20520 StackAdj> Δ+8 {[«2""»]|[-2-]}
<MI 20520 TST.B (A7)+> Δ+2 {[«2""»]}
<MI 20522 BEQ 0x20528> {[«2""»]}
<POP 20524-20528 Naked> Σ-2 →0x2052a
<MI 20524 MOVEQ.L #0x01,D6> {[-2-]}
<MI 20526 BRA 0x2052a> {[-2-]}
<POP 20528-2052a Naked> Σ-2 ↓ ←0x204b8
<MI 20528 MOVEQ.L #0x02,D6> {[-2-]}
<POP 2052a-20548 Naked> Σ-2 Δ+2 ↓ →0x2054c ←0x20524
<POP 2052a-2052c StackAdj> Δ+2 {}
<MI 2052c MOVE.L (A6-0x41c),-(A7)> Δ-4 {[4, '(A6-0x41c)']}
<MI 20530 CLR.B -(A7)> Δ-2 {[4, '(A6-0x41c)']|[#0]}
<Const 0x20532 0x1.2> Δ-2 {[4, '(A6-0x41c)']|[#0]|[#1]}
<Const 0x20534 0x0.4> Δ-4 {[4, '(A6-0x41c)']|[#0]|[#1]|[##0]}
<Pointer.fp 0x20538 <LVAR -0x004 @ 1(r)>> Δ-4 {[4, '(A6-0x41c)']|[#0]|[#1]|[##0]|[@@-4]}
<Pointer.fp 0x2053a <LVAR -0x414 @ 4(r)>> Δ-4 {[4, '(A6-0x41c)']|[#0]|[#1]|[##0]|[@@-4]|[@@-1044]}
<Call 0x2053c 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 20542-20544 StackAdj> Δ+20 {}
<MI 20544 TST.B (A6-0x4)> {}
<MI 20546 BEQ 0x2054c> {}
<POP 20548-2054c Naked> Σ0 →0x20654
<MI 20548 BRA 0x20654> {}
<POP 2054c-20576 Naked> Σ0 ↓ →0x2057a ←0x2052a
<MI 2054c MOVE.L (A6-0x418),-(A7)> Δ-4 {[4, '(A6-0x418)']}
<MI 20550 MOVE.B D6,D0> {[4, '(A6-0x418)']}
<MI 20552 EXTB.W D0> {[4, '(A6-0x418)']}
<POP 0x20554 LimitCheck 0x0 ≤ D0 ≤ 0x2> {[4, '(A6-0x418)']}
<MI 20556 MOVE.B D0,-(A7)> Δ-2 {[4, '(A6-0x418)']|[2, 'D0']}
<Const 0x20558 0x1.2> Δ-2 {[4, '(A6-0x418)']|[2, 'D0']|[#1]}
<MI 2055a MOVEA.L (A6-0x414),A0> {[4, '(A6-0x418)']|[2, 'D0']|[#1]}
<MI 2055c MOVE.W (A0+0x20),D0> {[4, '(A6-0x418)']|[2, 'D0']|[#1]}
<MI 20560 EXTW.L D0> {[4, '(A6-0x418)']|[2, 'D0']|[#1]}
<MI 20562 MOVE.L D0,-(A7)> Δ-4 {[4, '(A6-0x418)']|[2, 'D0']|[#1]|[4, 'D0']}
<Pointer.fp 0x20564 <LVAR -0x004 @ 1(r)>> Δ-4 {[4, '(A6-0x418)']|[2, 'D0']|[#1]|[4, 'D0']|[@@-4]}
<Pointer.fp 0x20566 <LVAR -0x410 @ 4(r)>> Δ-4 {[4, '(A6-0x418)']|[2, 'D0']|[#1]|[4, 'D0']|[@@-4]|[@@-1040]}
<Call 0x2056a 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 20570-20572 StackAdj> Δ+20 {}
<MI 20572 TST.B (A6-0x4)> {}
<MI 20574 BEQ 0x2057a> {}
<POP 20576-2057a Naked> Σ0 →0x20640
<MI 20576 BRA 0x20640> {}
<POP 2057a-205ca Naked> Σ0 Δ-4 ↓ ←0x2054c
<MI 2057a MOVEA.L (A6-0x410),A0> {}
<MI 2057e MOVEA.L (A6-0x414),A1> {}
<MI 20580 MOVE.B (A1+0x3a),(A0+0x3a)> {}
<MI 20586 MOVE.B (A1+0x3b),(A0+0x3b)> {}
<MI 2058c MOVE.B (A1+0x3c),(A0+0x3c)> {}
<MI 20592 MOVE.B (A1+0x3d),(A0+0x3d)> {}
<MI 20598 MOVE.B (A1+0x3f),D0> {}
<MI 2059c ANDI.B #0xfd,(A0+0x3f)> {}
<MI 205a2 AND.B #0x02,D0> {}
<MI 205a4 OR.B D0,(A0+0x3f)> {}
<MI 205a8 MOVE.B (A1+0x3f),D0> {}
<MI 205ac ANDI.B #0xfb,(A0+0x3f)> {}
<MI 205b2 ANDI.B #0x04,D0> {}
<MI 205b6 OR.B D0,(A0+0x3f)> {}
<MI 205ba MOVE.B #0x01,(A0+0x4c)> {}
<MI 205be MOVE.W (A0+0x20),D0> {}
<MI 205c2 SUBQ.W #0x1,D0> {}
<MI 205c4 EXTW.L D0> {}
<MI 205c6 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 205c8 MOVEQ.L #0x00,D7> {[4, 'D0']}
<POP 205ca-205ce Naked> Σ-4 ↓ →0x20628 ←0x20624
<MI 205ca CMP.L (A7),D7> {[-4-]}
<MI 205cc BGT 0x20628> {[-4-]}
<POP 205ce-205f4 Naked> Σ-4 ↓ →0x205f8
<MI 205ce MOVE.L (A6-0x414),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x414)']}
<POP 0x205d0 LimitCheck 0x0 ≤ D7 ≤ 0x4000> {[-4-]|[4, '(A6-0x414)']}
<MI 205da MOVE.W D7,-(A7)> Δ-2 {[-4-]|[4, '(A6-0x414)']|[2, 'D7']}
<MI 205dc CLR.W -(A7)> Δ-2 {[-4-]|[4, '(A6-0x414)']|[2, 'D7']|[#0]}
<Const 0x205de 0x200.2> Δ-2 {[-4-]|[4, '(A6-0x414)']|[2, 'D7']|[#0]|[#512]}
<Const 0x205e2 0x1.2> Δ-2 {[-4-]|[4, '(A6-0x414)']|[2, 'D7']|[#0]|[#512]|[#1]}
<MI 205e4 MOVE.L D5,-(A7)> Δ-4 {[-4-]|[4, '(A6-0x414)']|[2, 'D7']|[#0]|[#512]|[#1]|[4, 'D5']}
<Pointer.fp 0x205e6 <LVAR -0x004 @ 1(r)>> Δ-4 {[-4-]|[4, '(A6-0x414)']|[2, 'D7']|[#0]|[#512]|[#1]|[4, 'D5']|[@@-4]}
<Call 0x205e8 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 205ee-205f0 StackAdj> Δ+20 {[-4-]}
<MI 205f0 TST.B (A6-0x4)> {[-4-]}
<MI 205f2 BEQ 0x205f8> {[-4-]}
<POP 205f4-205f8 Naked> Σ-4 Δ+4 →0x2062a
<POP 205f4-205f6 StackAdj> Δ+4 {}
<MI 205f6 BRA 0x2062a> {}
<POP 205f8-20620 Naked> Σ-4 ↓ →0x20624 ←0x205ce
<MI 205f8 MOVE.L (A6-0x410),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x410)']}
<POP 0x205fc LimitCheck 0x0 ≤ D7 ≤ 0x4000> {[-4-]|[4, '(A6-0x410)']}
<MI 20606 MOVE.W D7,-(A7)> Δ-2 {[-4-]|[4, '(A6-0x410)']|[2, 'D7']}
<MI 20608 CLR.W -(A7)> Δ-2 {[-4-]|[4, '(A6-0x410)']|[2, 'D7']|[#0]}
<Const 0x2060a 0x200.2> Δ-2 {[-4-]|[4, '(A6-0x410)']|[2, 'D7']|[#0]|[#512]}
<Const 0x2060e 0x1.2> Δ-2 {[-4-]|[4, '(A6-0x410)']|[2, 'D7']|[#0]|[#512]|[#1]}
<MI 20610 MOVE.L D5,-(A7)> Δ-4 {[-4-]|[4, '(A6-0x410)']|[2, 'D7']|[#0]|[#512]|[#1]|[4, 'D5']}
<Pointer.fp 0x20612 <LVAR -0x004 @ 1(r)>> Δ-4 {[-4-]|[4, '(A6-0x410)']|[2, 'D7']|[#0]|[#512]|[#1]|[4, 'D5']|[@@-4]}
<Call 0x20614 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 2061a-2061c StackAdj> Δ+20 {[-4-]}
<MI 2061c TST.B (A6-0x4)> {[-4-]}
<MI 2061e BEQ 0x20624> {[-4-]}
<POP 20620-20624 Naked> Σ-4 Δ+4 →0x2062a
<POP 20620-20622 StackAdj> Δ+4 {}
<MI 20622 BRA 0x2062a> {}
<POP 20624-20628 Naked> Σ-4 ↓ →0x205ca ←0x205f8
<MI 20624 ADDQ.L #0x1,D7> {[-4-]}
<MI 20626 BVC 0x205ca> {[-4-]}
<POP 20628-2062a Naked> Σ-4 Δ+4 ↓ ←0x205ca
<POP 20628-2062a StackAdj> Δ+4 {}
<POP 2062a-20640 Naked> Σ0 ↓ ←0x205f4 ←0x20620
<MI 2062a CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x2062c 0x1.2> Δ-2 {[#0]|[#1]}
<Const 0x2062e 0x1.4> Δ-4 {[#0]|[#1]|[##1]}
<Pointer.fp 0x20632 <LVAR -0x004 @ 1(r)>> Δ-4 {[#0]|[#1]|[##1]|[@@-4]}
<Pointer.fp 0x20634 <LVAR -0x410 @ 4(r)>> Δ-4 {[#0]|[#1]|[##1]|[@@-4]|[@@-1040]}
<Call 0x20638 0x1038c> {[#0]|[#1]|[##1]|[@@-4]|[@@-1040]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 2063e-20640 StackAdj> Δ+16 {}
<POP 20640-20654 Naked> Σ0 ↓ ←0x20576
<MI 20640 CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x20642 0x1.2> Δ-2 {[#0]|[#1]}
<Const 0x20644 0x1.4> Δ-4 {[#0]|[#1]|[##1]}
<Pointer.fp 0x20648 <LVAR -0x004 @ 1(r)>> Δ-4 {[#0]|[#1]|[##1]|[@@-4]}
<Pointer.fp 0x2064a <LVAR -0x414 @ 4(r)>> Δ-4 {[#0]|[#1]|[##1]|[@@-4]|[@@-1044]}
<Call 0x2064c 0x1038c> {[#0]|[#1]|[##1]|[@@-4]|[@@-1044]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 20652-20654 StackAdj> Δ+16 {}
<POP 20654-2066c Naked> Σ0 ↓ ←0x20548
<Pointer.fp 0x20654 <LVAR -0x41c @ 4(rw)>> Δ-4 {[@@-1052]}
<Call 0x20658 0x102bc> {[@@-1052]}
FreeString(VAR a : String)
<POP 2065e-20660 StackAdj> Δ+4 {}
<Pointer.fp 0x20660 <LVAR -0x418 @ 4(rw)>> Δ-4 {[@@-1048]}
<Call 0x20664 0x102bc> {[@@-1048]}
FreeString(VAR a : String)
<POP 2066a-2066c StackAdj> Δ+4 {}
<POP 2066c-20674 Epilogue> Σ0
@ 20674
CMD_DELETE()
<LVAR 0x008 4(r)>
<LVAR -0x00a 1(rw)>
<LVAR -0x00c @ 1(r)>
<LVAR -0x010 @ 4(r)>
<POP 20674-20808 Body> Δ-4
<POP 20674-2068a Prologue> Σ0 ↓
<POP 2068a-2069c RegCacheLoad> Σ0 ↓
<POP 2069c-206f8 Naked> Σ0 Δ-4 ↓
<Blob 0x2069c [2] @> Δ-2 {[«2""»]}
<POP 206a0-206a2 StackAdj> Δ-2 {[«2""»]|[-2-]}
<MI 206a2 MOVE.L (A6+0x8),-(A7)> Δ-4 {[«2""»]|[-2-]|[4, '(A6+0x8)']}
<POP 206a4-206a6 StackAdj> Δ-4 {[«2""»]|[-2-]|[4, '(A6+0x8)']|[-4-]}
<Lit 0x206a6 2> {[«2""»]|[-2-]|[4, '(A6+0x8)']|[$$V ]}
<Call 0x206b2 0x203ce> {[«2""»]|[-2-]|[4, '(A6+0x8)']|[$$V ]}
<POP 206b6-206b8 StackAdj> Δ+8 {[«2""»]|[-2-]}
<MI 206b8 MOVE.B (A7)+,D0> Δ+2 {[«2""»]}
<MI 206ba EXTB.W D0> {[«2""»]}
<POP 0x206bc LimitCheck 0x0 ≤ D0 ≤ 0x1> {[«2""»]}
<POP 206be-206c0 StackAdj> Δ+2 {}
<MI 206c0 MOVE.B D0,D5> {}
<Blob 0x206c2 [2] @> Δ-2 {[«2""»]}
<POP 206c6-206c8 StackAdj> Δ-2 {[«2""»]|[-2-]}
<MI 206c8 MOVE.L (A6+0x8),-(A7)> Δ-4 {[«2""»]|[-2-]|[4, '(A6+0x8)']}
<POP 206ca-206cc StackAdj> Δ-4 {[«2""»]|[-2-]|[4, '(A6+0x8)']|[-4-]}
<Lit 0x206cc 2> {[«2""»]|[-2-]|[4, '(A6+0x8)']|[$$C ]}
<Call 0x206d8 0x203ce> {[«2""»]|[-2-]|[4, '(A6+0x8)']|[$$C ]}
<POP 206dc-206de StackAdj> Δ+8 {[«2""»]|[-2-]}
<MI 206de MOVE.B (A7)+,D0> Δ+2 {[«2""»]}
<MI 206e0 EXTB.W D0> {[«2""»]}
<POP 0x206e2 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[«2""»]}
<POP 206e4-206e6 StackAdj> Δ+2 {}
<MI 206e6 MOVE.B D0,(A6-0xa)> {}
<POP 206ea-206ec StackAdj> Δ-4 {[-4-]}
<MI 206ec MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x206ee 0x22152> {[-4-]|[4, '(A6+0x8)']}
<POP 206f4-206f6 StackAdj> Δ+4 {[-4-]}
<MI 206f6 MOVEQ.L #0x01,D6> {[-4-]}
<POP 206f8-206fe Naked> Σ-4 ↓ →0x207fe ←0x207f6
<MI 206f8 CMP.L (A7),D6> {[-4-]}
<MI 206fa BGT 0x207fe> {[-4-]}
<POP 206fe-2071e Naked> Σ-4 ↓
<POP 206fe-20700 StackAdj> Δ-4 {[-8-]}
<MI 20700 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<MI 20702 MOVE.L D6,-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']|[4, 'D6']}
<Call 0x20704 0x22a6e> {[-8-]|[4, '(A6+0x8)']|[4, 'D6']}
<POP 2070a-2070c StackAdj> Δ+8 {[-8-]}
<MI 2070c MOVEA.L (A7)+,A4> Δ+4 {[-4-]}
<Const 0x2070e 0x1.2> Δ-2 {[-4-]|[#1]}
<MI 20710 MOVE.L A4,-(A7)> Δ-4 {[-4-]|[#1]|[4, 'A4']}
<Pointer.fp 0x20712 <LVAR -0x010 @ 4(r)>> Δ-4 {[-4-]|[#1]|[4, 'A4']|[@@-16]}
<Call 0x20716 0x10458> {[-4-]|[#1]|[4, 'A4']|[@@-16]}
DirFirst(MOD c : Bool; a : String; VAR b : File)
<POP 2071c-2071e StackAdj> Δ+10 {[-4-]}
<POP 2071e-2072a Naked> Σ-4 Δ-4 ↓ →0x207f6 ←0x207de
<MI 2071e MOVEA.L (A6-0x10),A0> {[-4-]}
<MI 20722 MOVE.L A0,-(A7)> Δ-4 {[-4-]|[4, 'A0']}
<MI 20724 CMPA.W #0x01,A0> {[-4-]|[4, 'A0']}
<MI 20726 BEQ 0x207f6> {[-4-]|[4, 'A0']}
<POP 2072a-20730 Naked> Σ-8 ↓ →0x20734
<MI 2072a TST.B (A6-0xa)> {[-8-]}
<MI 2072e BNE 0x20734> {[-8-]}
<POP 20730-20734 Naked> Σ-8 →0x20762
<MI 20730 MOVEQ.L #0x01,D7> {[-8-]}
<MI 20732 BRA 0x20762> {[-8-]}
<POP 20734-20762 Naked> Σ-8 ↓ ←0x2072a
<POP 20734-20736 StackAdj> Δ-30 {[-38-]}
<MI 20736 MOVEA.L A7,A1> {[-38-]}
<BlockMove 30,A0,A1> {[-38-]}
<POP 20740-20742 StackAdj> Δ-6 {[-44-]}
<Lit 0x20742> {[-40-]|[$$…]}
<Pointer.sp 0x20742 6> Δ-4
<Const 0x20746 0x1.2> Δ-2
<Const 0x20748 0x1e.2> Δ-2
<Call 0x2074a 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 2074c-2074e StackAdj> Δ+8
<POP 2074c-2074e StackAdj> Δ-2 {[-40-]|[$$…]|[-2-]}
<MI 2074e CLR.B (A7)> {[-40-]|[$$…]|[-2-]}
<Call 0x20750 0x103f0> {[-40-]|[$$…]|[-2-]}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 20756-20758 StackAdj> Δ+6 {[-40-]}
<MI 20758 MOVE.B (A7)+,D0> Δ+2 {[-38-]}
<MI 2075a EXTB.W D0> {[-38-]}
<POP 0x2075c LimitCheck 0x0 ≤ D0 ≤ 0x1> {[-38-]}
<POP 2075e-20760 StackAdj> Δ+30 {[-8-]}
<MI 20760 MOVE.B D0,D7> {[-8-]}
<POP 20762-20766 Naked> Σ-8 ↓ →0x207de ←0x20730
<MI 20762 TST.B D7> {[-8-]}
<MI 20764 BEQ 0x207de> {[-8-]}
<POP 20766-2076a Naked> Σ-8 ↓ →0x207ba
<MI 20766 TST.B D5> {[-8-]}
<MI 20768 BEQ 0x207ba> {[-8-]}
<POP 2076a-207ba Naked> Σ-8 ↓
<Blob 0x2076a [12] @> Δ-12 {[-8-]|[«12""»]}
<MI 2077c MOVEA.L (A7+0xc),A0> {[-8-]|[«12""»]}
<POP 20780-20782 StackAdj> Δ-30 {[-8-]|[«12""»]|[-30-]}
<MI 20782 MOVEA.L A7,A1> {[-8-]|[«12""»]|[-30-]}
<BlockMove 30,A0,A1> {[-8-]|[«12""»]|[-30-]}
<POP 2078c-2078e StackAdj> Δ-8 {[-8-]|[«12""»]|[-38-]}
<Lit 0x2078e 11> {[-8-]|[«12""»]|[-34-]|[$$Deleting ->]}
<POP 2079a-2079c StackAdj> Δ-4 {[-8-]|[«12""»]|[-34-]|[$$Deleting ->]|[-4-]}
<Lit 0x2079c> {[-8-]|[«12""»]|[-34-]|[$$Deleting ->]|[$$…]}
<Pointer.sp 0x2079c 12> Δ-4
<Const 0x207a0 0x1.2> Δ-2
<Const 0x207a2 0x1e.2> Δ-2
<Call 0x207a4 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 207a6-207a8 StackAdj> Δ+8
<Call 0x207a8 0x102d0> {[-8-]|[«12""»]|[-34-]|[$$Deleting ->]|[$$…]}
StringCat2(a, b : String) : String
<POP 207ae-207b0 StackAdj> Δ+8 {[-8-]|[«12""»]|[-34-]}
<Call 0x207b0 0x103e0> {[-8-]|[«12""»]|[-34-]}
WriteConsoleStringCrLf(str : String)
<POP 207b6-207ba StackAdj> Δ+46 {[-8-]}
<POP 207ba-207dc Naked> Σ-8 ↓ →0x207de ←0x20766
<Const 0x207ba 0x2.2> Δ-2 {[-8-]|[#2]}
<Const 0x207bc 0x1.2> Δ-2 {[-8-]|[#2]|[#1]}
<Const 0x207be 0x1.4> Δ-4 {[-8-]|[#2]|[#1]|[##1]}
<Pointer.fp 0x207c2 <LVAR -0x00c @ 1(r)>> Δ-4 {[-8-]|[#2]|[#1]|[##1]|[@@-12]}
<Pointer.fp 0x207c6 <LVAR -0x010 @ 4(r)>> Δ-4 {[-8-]|[#2]|[#1]|[##1]|[@@-12]|[@@-16]}
<Call 0x207ca 0x1038c> {[-8-]|[#2]|[#1]|[##1]|[@@-12]|[@@-16]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 207d0-207d4 StackAdj> Δ+16 {[-8-]}
<MI 207d4 MOVEQ.L #0x00,D7> {[-8-]}
<MI 207d6 TST.B (A6-0xc)> {[-8-]}
<MI 207da BNE 0x207de> {[-8-]}
<POP 207dc-207de Naked> Σ-8 ↓
<MI 207dc ADDQ.B #0x1,D7> {[-8-]}
<POP 207de-207f6 Naked> Σ-8 Δ+4 →0x2071e ←0x20762 ←0x207ba
<MI 207de MOVE.B D7,D0> {[-8-]}
<MI 207e0 EXTB.W D0> {[-8-]}
<POP 0x207e2 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[-8-]}
<MI 207e4 MOVE.B D0,-(A7)> Δ-2 {[-8-]|[2, 'D0']}
<Pointer.fp 0x207e6 <LVAR -0x010 @ 4(r)>> Δ-4 {[-8-]|[2, 'D0']|[@@-16]}
<Call 0x207ea 0x1045c> {[-8-]|[2, 'D0']|[@@-16]}
DirNext(MOD a : Bool; VAR b : File)
<POP 207f0-207f2 StackAdj> Δ+10 {[-4-]}
<MI 207f2 BRA 0x2071e> {[-4-]}
<POP 207f6-207fe Naked> Σ-8 Δ+4 ↓ →0x206f8 ←0x2071e
<POP 207f6-207f8 StackAdj> Δ+4 {[-4-]}
<MI 207f8 ADDQ.L #0x1,D6> {[-4-]}
<MI 207fa BVC 0x206f8> {[-4-]}
<POP 207fe-20800 Naked> Σ-4 Δ+4 ↓ ←0x206f8
<POP 207fe-20800 StackAdj> Δ+4 {}
<POP 20800-20808 Epilogue> Σ0
@ 20808
CMD_RENAME()
<LVAR 0x008 4(r)>
<LVAR -0x006 @ 4(rw)>
<LVAR -0x00a @ 4(rw)>
<LVAR -0x00c @ 1(r)>
<LVAR -0x010 @>
<POP 20808-208ec Body>
<POP 20808-2081e Prologue> Σ0 ↓
<POP 2081e-20830 RegCacheLoad> Σ0 ↓
<POP 20830-20892 Naked> Σ0 Δ-2 ↓ →0x2089a
<Blob 0x20830 [10] @> Δ-10 {[«10""»]}
<MI 2083c MOVE.L (A6+0x8),-(A7)> Δ-4 {[«10""»]|[4, '(A6+0x8)']}
<Const 0x2083e 0x2.4> Δ-4 {[«10""»]|[4, '(A6+0x8)']|[##2]}
<Call 0x20842 0x22188> {[«10""»]|[4, '(A6+0x8)']|[##2]}
<POP 20848-2084c StackAdj> Δ+10 {[-8-]}
<MI 2084c MOVE.L (A6+0x8),(A7)> {[-4-]|[4, '(A6+0x8)']}
<Const 0x2084e 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x20852 0x22a6e> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 20858-2085a StackAdj> Δ+8 {[-4-]}
<MI 2085a MOVE.L (A7),(A6-0xa)> {[-4-]}
<MI 2085c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x2085e 0x2.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##2]}
<Call 0x20862 0x22a6e> {[-4-]|[4, '(A6+0x8)']|[##2]}
<POP 20868-2086a StackAdj> Δ+8 {[-4-]}
<MI 2086a MOVE.L (A7)+,(A6-0x6)> Δ+4 {}
<Blob 0x2086c [2] @> Δ-2 {[«2""»]}
<POP 20870-20872 StackAdj> Δ-2 {[«2""»]|[-2-]}
<MI 20872 MOVE.L (A6+0x8),-(A7)> Δ-4 {[«2""»]|[-2-]|[4, '(A6+0x8)']}
<POP 20874-20876 StackAdj> Δ-4 {[«2""»]|[-2-]|[4, '(A6+0x8)']|[-4-]}
<Lit 0x20876 2> {[«2""»]|[-2-]|[4, '(A6+0x8)']|[$$D ]}
<Call 0x20888 0x203ce> {[«2""»]|[-2-]|[4, '(A6+0x8)']|[$$D ]}
<POP 2088c-2088e StackAdj> Δ+8 {[«2""»]|[-2-]}
<MI 2088e TST.B (A7)+> Δ+2 {[«2""»]}
<MI 20890 BEQ 0x2089a> {[«2""»]}
<POP 20892-2089a Naked> Σ-2 ↓
<MI 20892 MOVE.L (A6-0x6),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x6)']}
<Call 0x20894 0x20430> {[-2-]|[4, '(A6-0x6)']}
<POP 20898-2089a StackAdj> Δ+4 {[-2-]}
<POP 2089a-208ba Naked> Σ-2 Δ+2 ↓ →0x208d0 ←0x20830
<POP 2089a-2089c StackAdj> Δ+2 {}
<MI 2089c MOVE.L (A6-0xa),-(A7)> Δ-4 {[4, '(A6-0xa)']}
<MI 2089e CLR.B -(A7)> Δ-2 {[4, '(A6-0xa)']|[#0]}
<Const 0x208a0 0x1.2> Δ-2 {[4, '(A6-0xa)']|[#0]|[#1]}
<Const 0x208a2 0x0.4> Δ-4 {[4, '(A6-0xa)']|[#0]|[#1]|[##0]}
<Pointer.fp 0x208a6 <LVAR -0x00c @ 1(r)>> Δ-4 {[4, '(A6-0xa)']|[#0]|[#1]|[##0]|[@@-12]}
<Pointer.fp 0x208a8 <LVAR -0x010 @>> Δ-4 {[4, '(A6-0xa)']|[#0]|[#1]|[##0]|[@@-12]|[@@-16]}
<Call 0x208ac 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 208b2-208b6 StackAdj> Δ+20 {}
<MI 208b6 TST.B (A6-0xc)> {}
<MI 208b8 BNE 0x208d0> {}
<POP 208ba-208d0 Naked> Σ0 ↓
<Const 0x208ba 0x1.2> Δ-2 {[#1]}
<Const 0x208bc 0x1.2> Δ-2 {[#1]|[#1]}
<MI 208be MOVE.L (A6-0x6),-(A7)> Δ-4 {[#1]|[#1]|[4, '(A6-0x6)']}
<Pointer.fp 0x208c0 <LVAR -0x00c @ 1(r)>> Δ-4 {[#1]|[#1]|[4, '(A6-0x6)']|[@@-12]}
<Pointer.fp 0x208c2 <LVAR -0x010 @>> Δ-4 {[#1]|[#1]|[4, '(A6-0x6)']|[@@-12]|[@@-16]}
<Call 0x208c6 0x1038c> {[#1]|[#1]|[4, '(A6-0x6)']|[@@-12]|[@@-16]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 208cc-208d0 StackAdj> Δ+16 {}
<POP 208d0-208e4 Naked> Σ0 ↓ ←0x2089a
<Pointer.fp 0x208d0 <LVAR -0x006 @ 4(rw)>> Δ-4 {[@@-6]}
<Call 0x208d2 0x102bc> {[@@-6]}
FreeString(VAR a : String)
<POP 208d8-208da StackAdj> Δ+4 {}
<Pointer.fp 0x208da <LVAR -0x00a @ 4(rw)>> Δ-4 {[@@-10]}
<Call 0x208dc 0x102bc> {[@@-10]}
FreeString(VAR a : String)
<POP 208e2-208e4 StackAdj> Δ+4 {}
<POP 208e4-208ec Epilogue> Σ0
@ 208ec
CMD_REMOTE()
<LVAR -0x004 @>
<POP 208ec-209c2 Body>
<POP 208ec-20902 Prologue> Σ0 ↓
<POP 20902-2090c RegCacheLoad> Σ0 ↓
<POP 2090c-2091e Naked> Σ0 ↓ →0x20944
<POP 2090c-2090e StackAdj> Δ-4 {[-4-]}
<Call 0x2090e 0x103f8> {[-4-]}
GetConsoleConfig() : Long
<MI 20914 MOVE.L (A7)+,D0> Δ+4 {}
<MI 20916 CMPI.L #0x00000003,D0> {}
<MI 2091c BNE 0x20944> {}
<POP 2091e-20944 Naked> Σ0 →0x209ba
<Blob 0x2091e [22] @> Δ-22 {[«22""»]}
<POP 2092a-2092c StackAdj> Δ-4 {[«22""»]|[-4-]}
<Lit 0x2092c 22> {[«22""»]|[$$Already in REMOTE mode]}
<Call 0x20938 0x103e0> {[«22""»]|[$$Already in REMOTE mode]}
WriteConsoleStringCrLf(str : String)
<POP 2093e-20942 StackAdj> Δ+26 {}
<MI 20942 BRA 0x209ba> {}
<POP 20944-2095c Naked> Σ0 Δ-2 ↓ →0x2098e ←0x2090c
<POP 20944-20946 StackAdj> Δ-2 {[-2-]}
<Const 0x20946 0x180.4> Δ-4 {[-2-]|[##384]}
<Call 0x2094a 0x10592> {[-2-]|[##384]}
ReadConfig(where : Long) : Word
<POP 20950-20952 StackAdj> Δ+4 {[-2-]}
<MI 20952 MOVE.B (A7+0x1),D0> {[-2-]}
<MI 20956 CMPI.B #0x58,D0> {[-2-]}
<MI 2095a BNE 0x2098e> {[-2-]}
<POP 2095c-2098e Naked> Σ-2 →0x209b8
<Blob 0x2095c [2] @> Δ-2 {[-2-]|[«2""»]}
<Blob 0x20960 [2] @> Δ-2 {[-2-]|[«2""»]|[«2""»]}
<Blob 0x20964 [2] @> Δ-2 {[-2-]|[«2""»]|[«2""»]|[«2""»]}
<POP 20968-2096a StackAdj> Δ-4 {[-2-]|[«2""»]|[«2""»]|[«2""»]|[-4-]}
<Lit 0x2096a 6> {[-2-]|[«2""»]|[«2""»]|[«2""»]|[$$FIXPAD]}
<Const 0x20978 0x1.4> Δ-4 {[-2-]|[«2""»]|[«2""»]|[«2""»]|[$$FIXPAD]|[##1]}
<Const 0x2097c 0x1.2> Δ-2 {[-2-]|[«2""»]|[«2""»]|[«2""»]|[$$FIXPAD]|[##1]|[#1]}
<Pointer.fp 0x2097e <LVAR -0x004 @>> Δ-4 {[-2-]|[«2""»]|[«2""»]|[«2""»]|[$$FIXPAD]|[##1]|[#1]|[@@-4]}
<Call 0x20982 0x103b0> {[-2-]|[«2""»]|[«2""»]|[«2""»]|[$$FIXPAD]|[##1]|[#1]|[@@-4]}
PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
<POP 20988-2098c StackAdj> Δ+20 {[-2-]}
<MI 2098c BRA 0x209b8> {[-2-]}
<POP 2098e-209b8 Naked> Σ-2 ↓ ←0x20944
<Blob 0x2098e [4] @> Δ-4 {[-2-]|[«4""»]}
<Blob 0x20992 [4] @> Δ-4 {[-2-]|[«4""»]|[«4""»]}
<POP 20996-20998 StackAdj> Δ-4 {[-2-]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x20998 8> {[-2-]|[«4""»]|[«4""»]|[$$FIXMODEM]}
<Const 0x209a6 0x1.4> Δ-4 {[-2-]|[«4""»]|[«4""»]|[$$FIXMODEM]|[##1]}
<Const 0x209aa 0x1.2> Δ-2 {[-2-]|[«4""»]|[«4""»]|[$$FIXMODEM]|[##1]|[#1]}
<Pointer.fp 0x209ac <LVAR -0x004 @>> Δ-4 {[-2-]|[«4""»]|[«4""»]|[$$FIXMODEM]|[##1]|[#1]|[@@-4]}
<Call 0x209b0 0x103b0> {[-2-]|[«4""»]|[«4""»]|[$$FIXMODEM]|[##1]|[#1]|[@@-4]}
PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
<POP 209b6-209b8 StackAdj> Δ+22 {[-2-]}
<POP 209b8-209ba Naked> Σ-2 Δ+2 ↓ ←0x2095c
<POP 209b8-209ba StackAdj> Δ+2 {}
<POP 209ba-209c2 Epilogue> Σ0 ←0x2091e
@ 209c2
CMD_LOCAL()
<POP 209c2-20a34 Body>
<POP 209c2-209d8 Prologue> Σ0 ↓
<POP 209d8-209da RegCacheLoad> Σ0 ↓
<POP 209da-209e8 Naked> Σ0 ↓ →0x20a1a
<POP 209da-209dc StackAdj> Δ-4 {[-4-]}
<Call 0x209dc 0x103f8> {[-4-]}
GetConsoleConfig() : Long
<MI 209e2 MOVE.L (A7)+,D0> Δ+4 {}
<MI 209e4 CMP.L #0x01,D0> {}
<MI 209e6 BNE 0x20a1a> {}
<POP 209e8-20a1a Naked> Σ0 →0x20a2c
<Blob 0x209e8 [22] @> Δ-22 {[«22""»]}
<POP 209fa-209fc StackAdj> Δ-4 {[«22""»]|[-4-]}
<Lit 0x209fc 21> {[«22""»]|[$$Already in LOCAL mode]}
<Call 0x20a0e 0x103e0> {[«22""»]|[$$Already in LOCAL mode]}
WriteConsoleStringCrLf(str : String)
<POP 20a14-20a18 StackAdj> Δ+26 {}
<MI 20a18 BRA 0x20a2c> {}
<POP 20a1a-20a2c Naked> Σ0 ↓ ←0x209da
<Call 0x20a1a 0x10216> {}
KC0b
<Const 0x20a20 0x1.4> Δ-4 {[##1]}
<Call 0x20a24 0x103f4> {[##1]}
SetConsoleConfig(a : Long)
<POP 20a2a-20a2c StackAdj> Δ+4 {}
<POP 20a2c-20a34 Epilogue> Σ0 ←0x209e8
@ 20a34
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 1(r)>
<LVAR -0x008 @ 4(r)>
<POP 20a34-20a90 Body> Δ+4
<POP 20a34-20a4a Prologue> Σ0 ↓
<POP 20a4a-20a52 RegCacheLoad> Σ0 ↓
<POP 20a52-20a70 Naked> Σ0 ↓ →0x20a7a ←0x20a82
<Pointer.fp 0x20a52 <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-8]}
<Call 0x20a54 0x102b8> {[@@-8]}
NewString(VAR a : String)
<MI 20a5a MOVE.L (A6+0x8),(A7)> {[4, '(A6+0x8)']}
<Pointer.fp 0x20a5e <LVAR -0x008 @ 4(r)>> Δ-4 {[4, '(A6+0x8)']|[@@-8]}
<Pointer.fp 0x20a60 <LVAR -0x004 @ 1(r)>> Δ-4 {[4, '(A6+0x8)']|[@@-8]|[@@-4]}
<Call 0x20a62 0x1043c> {[4, '(A6+0x8)']|[@@-8]|[@@-4]}
FileReadLine(file : File; VAR a : String; VAR b : Byte)
<POP 20a68-20a6c StackAdj> Δ+12 {}
<MI 20a6c TST.B (A6-0x4)> {}
<MI 20a6e BNE 0x20a7a> {}
<POP 20a70-20a7a Naked> Σ0 Δ-4 →0x20a82
<MI 20a70 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<Call 0x20a72 0x103e0> {[4, '(A6-0x8)']}
WriteConsoleStringCrLf(str : String)
<MI 20a78 BRA 0x20a82> {[4, '(A6-0x8)']}
<POP 20a7a-20a82 Naked> Σ0 Δ-4 ↓ ←0x20a52
<Pointer.fp 0x20a7a <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-8]}
<Call 0x20a7c 0x102bc> {[@@-8]}
FreeString(VAR a : String)
<POP 20a82-20a88 Naked> Σ-4 Δ+4 ↓ →0x20a52 ←0x20a70
<POP 20a82-20a84 StackAdj> Δ+4 {}
<MI 20a84 TST.B (A6-0x4)> {}
<MI 20a86 BEQ 0x20a52> {}
<POP 20a88-20a90 Epilogue> Σ0
@ 20a90
CMD_TYPE()
<LVAR 0x008 4(r)>
<LVAR -0x008 @ 4(r)>
<POP 20a90-20b78 Body>
<POP 20a90-20aa6 Prologue> Σ0 ↓
<POP 20aa6-20ab0 RegCacheLoad> Σ0 ↓
<POP 20ab0-20b16 Naked> Σ0 ↓
<Blob 0x20ab0 [10] @> Δ-10 {[«10""»]}
<MI 20abc MOVE.L (A6+0x8),-(A7)> Δ-4 {[«10""»]|[4, '(A6+0x8)']}
<Const 0x20abe 0x1.4> Δ-4 {[«10""»]|[4, '(A6+0x8)']|[##1]}
<Call 0x20ac2 0x22188> {[«10""»]|[4, '(A6+0x8)']|[##1]}
<POP 20ac8-20aca StackAdj> Δ+10 {[-8-]}
<MI 20aca MOVE.L (A6+0x8),(A7)> {[-4-]|[4, '(A6+0x8)']}
<Const 0x20acc 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x20ad0 0x22a6e> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 20ad6-20ad8 StackAdj> Δ+8 {[-4-]}
<MI 20ad8 MOVEA.L (A7)+,A4> Δ+4 {}
<Blob 0x20ada [2] @> Δ-2 {[«2""»]}
<POP 20ade-20ae0 StackAdj> Δ-2 {[«2""»]|[-2-]}
<MI 20ae0 MOVE.L (A6+0x8),-(A7)> Δ-4 {[«2""»]|[-2-]|[4, '(A6+0x8)']}
<POP 20ae2-20ae4 StackAdj> Δ-4 {[«2""»]|[-2-]|[4, '(A6+0x8)']|[-4-]}
<Lit 0x20ae4 2> {[«2""»]|[-2-]|[4, '(A6+0x8)']|[$$V ]}
<Call 0x20af6 0x203ce> {[«2""»]|[-2-]|[4, '(A6+0x8)']|[$$V ]}
<POP 20afa-20afc StackAdj> Δ+8 {[«2""»]|[-2-]}
<MI 20afc MOVE.B (A7)+,D0> Δ+2 {[«2""»]}
<MI 20afe EXTB.W D0> {[«2""»]}
<POP 0x20b00 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[«2""»]}
<POP 20b02-20b04 StackAdj> Δ+2 {}
<MI 20b04 MOVE.B D0,D7> {}
<Const 0x20b06 0x1.2> Δ-2 {[#1]}
<MI 20b08 MOVE.L A4,-(A7)> Δ-4 {[#1]|[4, 'A4']}
<Pointer.fp 0x20b0a <LVAR -0x008 @ 4(r)>> Δ-4 {[#1]|[4, 'A4']|[@@-8]}
<Call 0x20b0e 0x10458> {[#1]|[4, 'A4']|[@@-8]}
DirFirst(MOD c : Bool; a : String; VAR b : File)
<POP 20b14-20b16 StackAdj> Δ+10 {}
<POP 20b16-20b1e Naked> Σ0 ↓ →0x20b70 ←0x20b58
<MI 20b16 MOVEA.L (A6-0x8),A0> {}
<MI 20b1a CMPA.W #0x01,A0> {}
<MI 20b1c BEQ 0x20b70> {}
<POP 20b1e-20b22 Naked> Σ0 ↓ →0x20b58
<MI 20b1e TST.B D7> {}
<MI 20b20 BEQ 0x20b58> {}
<POP 20b22-20b58 Naked> Σ0 ↓
<Call 0x20b22 0x103dc> {}
WriteConsoleCrLf(void)
<POP 20b28-20b2a StackAdj> Δ-30 {[-30-]}
<MI 20b2a MOVEA.L A7,A1> {[-30-]}
<MI 20b2c MOVEA.L A0,A2> {[-30-]}
<BlockMove 30,A2,A1> {[-30-]}
<POP 20b36-20b38 StackAdj> Δ-4 {[-34-]}
<Lit 0x20b38> {[-30-]|[$$…]}
<Pointer.sp 0x20b38 4> Δ-4
<Const 0x20b3c 0x1.2> Δ-2
<Const 0x20b3e 0x1e.2> Δ-2
<Call 0x20b40 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 20b46-20b48 StackAdj> Δ+8
<Call 0x20b48 0x103e0> {[-30-]|[$$…]}
WriteConsoleStringCrLf(str : String)
<POP 20b4e-20b52 StackAdj> Δ+34 {}
<Call 0x20b52 0x103dc> {}
WriteConsoleCrLf(void)
<POP 20b58-20b70 Naked> Σ0 →0x20b16 ←0x20b1e
<MI 20b58 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Call 0x20b5a 0x20a34> {[4, 'A0']}
<POP 20b5e-20b60 StackAdj> Δ+2 {[-2-]}
<MI 20b60 CLR.B (A7)> {[-2-]}
<Pointer.fp 0x20b62 <LVAR -0x008 @ 4(r)>> Δ-4 {[-2-]|[@@-8]}
<Call 0x20b66 0x1045c> {[-2-]|[@@-8]}
DirNext(MOD a : Bool; VAR b : File)
<POP 20b6c-20b6e StackAdj> Δ+6 {}
<MI 20b6e BRA 0x20b16> {}
<POP 20b70-20b78 Epilogue> Σ0 ←0x20b16
@ 20b78
CMD_CREATE()
<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 20b78-20db4 Body>
<POP 20b78-20b8e Prologue> Σ0 ↓
<POP 20b8e-20baa RegCacheLoad> Σ0 ↓
<POP 20baa-20c16 Naked> Σ0 ↓ →0x20c1c
<Blob 0x20baa [10] @> Δ-10 {[«10""»]}
<MI 20bb6 MOVE.L (A6+0x8),-(A7)> Δ-4 {[«10""»]|[4, '(A6+0x8)']}
<Const 0x20bb8 0x1.4> Δ-4 {[«10""»]|[4, '(A6+0x8)']|[##1]}
<Call 0x20bbc 0x22188> {[«10""»]|[4, '(A6+0x8)']|[##1]}
<POP 20bc2-20bc4 StackAdj> Δ+10 {[-8-]}
<MI 20bc4 MOVE.L (A6+0x8),(A7)> {[-4-]|[4, '(A6+0x8)']}
<Const 0x20bc6 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x20bca 0x22a6e> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 20bd0-20bd2 StackAdj> Δ+8 {[-4-]}
<MI 20bd2 MOVE.L (A7)+,(A6-0x12)> Δ+4 {}
<Blob 0x20bd6 [4] @> Δ-4 {[«4""»]}
<POP 20bda-20bdc StackAdj> Δ-4 {[«4""»]|[-4-]}
<Lit 0x20bdc 4> {[«4""»]|[$$SIZE]}
<MI 20bea MOVE.L (A7)+,(A6-0x20)> Δ+4 {[«4""»]}
<MI 20bee MOVE.L (A6+0x8),(A7)> {[4, '(A6+0x8)']}
<Const 0x20bf0 0x0.4> Δ-4 {[4, '(A6+0x8)']|[##0]}
<MI 20bf4 MOVE.L (A6-0x20),-(A7)> Δ-4 {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x20)']}
<Pointer.fp 0x20bf8 <LVAR -0x01c @ 4(r)>> Δ-4 {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x20)']|[@@-28]}
<Pointer.fp 0x20bfc <LVAR -0x014 @ 1(r)>> Δ-4 {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x20)']|[@@-28]|[@@-20]}
<Call 0x20bfe 0x24fa6> {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x20)']|[@@-28]|[@@-20]}
<POP 20c04-20c06 StackAdj> Δ+20 {}
<Pointer.fp 0x20c06 <LVAR -0x020 @ 4(rw)>> Δ-4 {[@@-32]}
<Call 0x20c0a 0x102bc> {[@@-32]}
FreeString(VAR a : String)
<POP 20c10-20c12 StackAdj> Δ+4 {}
<MI 20c12 TST.B (A6-0x14)> {}
<MI 20c14 BNE 0x20c1c> {}
<POP 20c16-20c1c Naked> Σ0 →0x20c6e
<MI 20c16 MOVE.L #0x01,(A6-0x18)> {}
<MI 20c1a BRA 0x20c6e> {}
<POP 20c1c-20c24 Naked> Σ0 ↓ →0x20c36 ←0x20baa
<MI 20c1c MOVEA.L (A6-0x1c),A0> {}
<MI 20c20 CMPA.W #0x01,A0> {}
<MI 20c22 BEQ 0x20c36> {}
<POP 20c24-20c36 Naked> Σ0 →0x20c44
<MI 20c24 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Pointer.fp 0x20c26 <LVAR -0x014 @ 1(r)>> Δ-4 {[4, 'A0']|[@@-20]}
<Pointer.fp 0x20c28 <LVAR -0x018 @ 4(rw)>> Δ-4 {[4, 'A0']|[@@-20]|[@@-24]}
<Call 0x20c2c 0x102ec> {[4, 'A0']|[@@-20]|[@@-24]}
String2Long(src : String; VAR status : Bool; VAR retval : Long)
<POP 20c32-20c34 StackAdj> Δ+12 {}
<MI 20c34 BRA 0x20c44> {}
<POP 20c36-20c44 Naked> Σ0 ↓ ←0x20c1c
<MI 20c36 CLR.B (A6-0x14)> {}
<Pointer.fp 0x20c38 <LVAR -0x01c @ 4(r)>> Δ-4 {[@@-28]}
<Call 0x20c3c 0x102bc> {[@@-28]}
FreeString(VAR a : String)
<POP 20c42-20c44 StackAdj> Δ+4 {}
<POP 20c44-20c48 Naked> Σ0 ↓ →0x20c6e ←0x20c24
<MI 20c44 TST.B (A6-0x14)> {}
<MI 20c46 BNE 0x20c6e> {}
<POP 20c48-20c6e Naked> Σ0 ↓
<Blob 0x20c48 [32] @> Δ-32 {[«32""»]}
<POP 20c54-20c56 StackAdj> Δ-4 {[«32""»]|[-4-]}
<Lit 0x20c56 32> {[«32""»]|[$$/SIZE= requires decimal argument]}
<Call 0x20c64 0x21d46> {[«32""»]|[$$/SIZE= requires decimal argument]}
<POP 20c6a-20c6e StackAdj> Δ+36 {}
<POP 20c6e-20c96 Naked> Σ0 Δ-10 ↓ →0x20c9a ←0x20c16 ←0x20c44
<Blob 0x20c6e [10] @> Δ-10 {[«10""»]}
<POP 20c7a-20c7c StackAdj> Δ-2 {[«10""»]|[-2-]}
<MI 20c7c MOVE.L (A6+0x8),-(A7)> Δ-4 {[«10""»]|[-2-]|[4, '(A6+0x8)']}
<POP 20c7e-20c80 StackAdj> Δ-4 {[«10""»]|[-2-]|[4, '(A6+0x8)']|[-4-]}
<Lit 0x20c80 10> {[«10""»]|[-2-]|[4, '(A6+0x8)']|[$$CONTIGUOUS]}
<Call 0x20c8c 0x203ce> {[«10""»]|[-2-]|[4, '(A6+0x8)']|[$$CONTIGUOUS]}
<POP 20c90-20c92 StackAdj> Δ+8 {[«10""»]|[-2-]}
<MI 20c92 TST.B (A7)+> Δ+2 {[«10""»]}
<MI 20c94 BEQ 0x20c9a> {[«10""»]}
<POP 20c96-20c9a Naked> Σ-10 ↓
<MI 20c96 NEG.L (A6-0x18)> {[-10-]}
<POP 20c9a-20cbc Naked> Σ-10 Δ+8 ↓ →0x20cc0 ←0x20c6e
<POP 20c9a-20c9c StackAdj> Δ+8 {[-2-]}
<POP 20c9c-20c9d StackAdj> Δ+2 {}
<Blob 0x20c9d [2] @> Δ-2 {[«2""»]}
<POP 20ca0-20ca2 StackAdj> Δ-2 {[«2""»]|[-2-]}
<MI 20ca2 MOVE.L (A6+0x8),-(A7)> Δ-4 {[«2""»]|[-2-]|[4, '(A6+0x8)']}
<POP 20ca4-20ca6 StackAdj> Δ-4 {[«2""»]|[-2-]|[4, '(A6+0x8)']|[-4-]}
<Lit 0x20ca6 2> {[«2""»]|[-2-]|[4, '(A6+0x8)']|[$$D ]}
<Call 0x20cb2 0x203ce> {[«2""»]|[-2-]|[4, '(A6+0x8)']|[$$D ]}
<POP 20cb6-20cb8 StackAdj> Δ+8 {[«2""»]|[-2-]}
<MI 20cb8 TST.B (A7)+> Δ+2 {[«2""»]}
<MI 20cba BEQ 0x20cc0> {[«2""»]}
<POP 20cbc-20cc0 Naked> Σ-2 →0x20cc2
<MI 20cbc MOVEQ.L #0x01,D7> {[-2-]}
<MI 20cbe BRA 0x20cc2> {[-2-]}
<POP 20cc0-20cc2 Naked> Σ-2 ↓ ←0x20c9a
<MI 20cc0 MOVEQ.L #0x02,D7> {[-2-]}
<POP 20cc2-20cec Naked> Σ-2 Δ+2 ↓ →0x20da0 ←0x20cbc
<POP 20cc2-20cc4 StackAdj> Δ+2 {}
<MI 20cc4 MOVE.L (A6-0x12),-(A7)> Δ-4 {[4, '(A6-0x12)']}
<MI 20cc8 MOVE.B D7,D0> {[4, '(A6-0x12)']}
<MI 20cca EXTB.W D0> {[4, '(A6-0x12)']}
<POP 0x20ccc LimitCheck 0x0 ≤ D0 ≤ 0x2> {[4, '(A6-0x12)']}
<MI 20cce MOVE.B D0,-(A7)> Δ-2 {[4, '(A6-0x12)']|[2, 'D0']}
<Const 0x20cd0 0x1.2> Δ-2 {[4, '(A6-0x12)']|[2, 'D0']|[#1]}
<MI 20cd2 MOVE.L (A6-0x18),-(A7)> Δ-4 {[4, '(A6-0x12)']|[2, 'D0']|[#1]|[4, '(A6-0x18)']}
<Pointer.fp 0x20cd6 <LVAR -0x006 @ 1(r)>> Δ-4 {[4, '(A6-0x12)']|[2, 'D0']|[#1]|[4, '(A6-0x18)']|[@@-6]}
<Pointer.fp 0x20cda <LVAR -0x00a @ 4(r)>> Δ-4 {[4, '(A6-0x12)']|[2, 'D0']|[#1]|[4, '(A6-0x18)']|[@@-6]|[@@-10]}
<Call 0x20cdc 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 20ce2-20ce4 StackAdj> Δ+20 {}
<MI 20ce4 TST.B (A6-0x6)> {}
<MI 20ce8 BNE 0x20da0> {}
<POP 20cec-20d1e Naked> Σ0 Δ-2 ↓ →0x20d7c
<MI 20cec MOVEA.L (A6-0xa),A0> {}
<MI 20cee PEA.L (A0+0x3a)> Δ-4 {[4, '^(A0+0x3a)']}
<Call 0x20cf2 0x10304> {[4, '^(A0+0x3a)']}
GetRtc() : TimeStamp
<POP 20cf8-20cfa StackAdj> Δ+4 {}
<MI 20cfa MOVE.B #0x01,(A0+0x4c)> {}
<Blob 0x20cfe [2] @> Δ-2 {[«2""»]}
<POP 20d02-20d04 StackAdj> Δ-2 {[«2""»]|[-2-]}
<MI 20d04 MOVE.L (A6+0x8),-(A7)> Δ-4 {[«2""»]|[-2-]|[4, '(A6+0x8)']}
<POP 20d06-20d08 StackAdj> Δ-4 {[«2""»]|[-2-]|[4, '(A6+0x8)']|[-4-]}
<Lit 0x20d08 2> {[«2""»]|[-2-]|[4, '(A6+0x8)']|[$$I ]}
<Call 0x20d14 0x203ce> {[«2""»]|[-2-]|[4, '(A6+0x8)']|[$$I ]}
<POP 20d18-20d1a StackAdj> Δ+8 {[«2""»]|[-2-]}
<MI 20d1a TST.B (A7)+> Δ+2 {[«2""»]}
<MI 20d1c BEQ 0x20d7c> {[«2""»]}
<POP 20d1e-20d48 Naked> Σ-2 ↓ →0x20d58 ←0x20d6a
<Blob 0x20d1e [2] @> Δ-2 {[-2-]|[«2""»]}
<POP 20d22-20d24 StackAdj> Δ-8 {[-2-]|[«2""»]|[-8-]}
<Lit 0x20d24 2> {[-2-]|[«2""»]|[-4-]|[$$) ]}
<Call 0x20d30 0x103e4> {[-2-]|[«2""»]|[-4-]|[$$) ]}
AskConsoleString(prompt : String) : String
<POP 20d36-20d38 StackAdj> Δ+4 {[-2-]|[«2""»]|[-4-]}
<MI 20d38 MOVE.L (A7)+,(A6-0xe)> Δ+4 {[-2-]|[«2""»]}
<POP 20d3c-20d3e StackAdj> Δ+2 {[-2-]}
<MI 20d3e MOVEA.L (A6-0xe),A0> {[-2-]}
<MI 20d42 MOVE.W (A0),D0> {[-2-]}
<MI 20d44 CMP.W #0x01,D0> {[-2-]}
<MI 20d46 BNE 0x20d58> {[-2-]}
<POP 20d48-20d52 Naked> Σ-2 ↓ →0x20d58
<MI 20d48 MOVE.B (A0+0x2),D0> {[-2-]}
<MI 20d4c CMPI.B #0x29,D0> {[-2-]}
<MI 20d50 BNE 0x20d58> {[-2-]}
<POP 20d52-20d58 Naked> Σ-2 →0x20d6a
<MI 20d52 MOVE.B #0x01,(A6-0x5)> {[-2-]}
<MI 20d56 BRA 0x20d6a> {[-2-]}
<POP 20d58-20d6a Naked> Σ-2 ↓ ←0x20d1e ←0x20d48
<MI 20d58 MOVE.L (A6-0xa),-(A7)> Δ-4 {[-2-]|[4, '(A6-0xa)']}
<MI 20d5a MOVE.L (A6-0xe),-(A7)> Δ-4 {[-2-]|[4, '(A6-0xa)']|[4, '(A6-0xe)']}
<Pointer.fp 0x20d5e <LVAR -0x005 @ 1(rw)>> Δ-4 {[-2-]|[4, '(A6-0xa)']|[4, '(A6-0xe)']|[@@-5]}
<Call 0x20d62 0x10440> {[-2-]|[4, '(A6-0xa)']|[4, '(A6-0xe)']|[@@-5]}
FSCALL_10440
<POP 20d68-20d6a StackAdj> Δ+12 {[-2-]}
<POP 20d6a-20d7c Naked> Σ-2 ↓ →0x20d1e ←0x20d52
<Pointer.fp 0x20d6a <LVAR -0x00e @ 4(rw)>> Δ-4 {[-2-]|[@@-14]}
<Call 0x20d6e 0x102bc> {[-2-]|[@@-14]}
FreeString(VAR a : String)
<POP 20d74-20d76 StackAdj> Δ+4 {[-2-]}
<MI 20d76 TST.B (A6-0x5)> {[-2-]}
<MI 20d7a BEQ 0x20d1e> {[-2-]}
<POP 20d7c-20da0 Naked> Σ-2 Δ+2 ↓ ←0x20cec
<POP 20d7c-20d7e StackAdj> Δ+2 {}
<MI 20d7e MOVE.L (A6-0xa),-(A7)> Δ-4 {[4, '(A6-0xa)']}
<Call 0x20d80 0x10448> {[4, '(A6-0xa)']}
FSCALL_10448
<POP 20d86-20d88 StackAdj> Δ+2 {[-2-]}
<MI 20d88 CLR.B (A7)> {[-2-]}
<Const 0x20d8a 0x1.2> Δ-2 {[-2-]|[#1]}
<Const 0x20d8c 0x1.4> Δ-4 {[-2-]|[#1]|[##1]}
<Pointer.fp 0x20d90 <LVAR -0x006 @ 1(r)>> Δ-4 {[-2-]|[#1]|[##1]|[@@-6]}
<Pointer.fp 0x20d94 <LVAR -0x00a @ 4(r)>> Δ-4 {[-2-]|[#1]|[##1]|[@@-6]|[@@-10]}
<Call 0x20d96 0x1038c> {[-2-]|[#1]|[##1]|[@@-6]|[@@-10]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 20d9c-20da0 StackAdj> Δ+16 {}
<POP 20da0-20dac Naked> Σ0 ↓ ←0x20cc2
<Pointer.fp 0x20da0 <LVAR -0x012 @ 4(rw)>> Δ-4 {[@@-18]}
<Call 0x20da4 0x102bc> {[@@-18]}
FreeString(VAR a : String)
<POP 20daa-20dac StackAdj> Δ+4 {}
<POP 20dac-20db4 Epilogue> Σ0
@ 20db4
CMD_TIME()
<LVAR 0x008 4(r)>
<LVAR -0x006 @ 4(r)>
<LVAR -0x010 @ 1(r)>
<POP 20db4-20ea2 Body> Δ+4
<POP 20db4-20dca Prologue> Σ0 ↓
<POP 20dca-20dd2 RegCacheLoad> Σ0 ↓
<POP 20dd2-20de2 Naked> Σ0 ↓ →0x20e4e
<POP 20dd2-20dd4 StackAdj> Δ-4 {[-4-]}
<MI 20dd4 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x20dd6 0x22152> {[-4-]|[4, '(A6+0x8)']}
<POP 20ddc-20dde StackAdj> Δ+4 {[-4-]}
<MI 20dde MOVE.L (A7)+,D7> Δ+4 {}
<MI 20de0 BEQ 0x20e4e> {}
<POP 20de2-20dea Naked> Σ0 ↓ →0x20dec
<MI 20de2 CMPI.L #0x00000002,D7> {}
<MI 20de8 BEQ 0x20dec> {}
<POP 20dea-20dec Naked> Σ0 →0x20e68
<MI 20dea BRA 0x20e68> {}
<POP 20dec-20e40 Naked> Σ0 ↓ →0x20e42 ←0x20de2
<POP 20dec-20dee StackAdj> Δ-4 {[-4-]}
<MI 20dee MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x20df0 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x20df4 0x22a6e> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 20dfa-20dfc StackAdj> Δ+8 {[-4-]}
<MI 20dfc MOVEA.L (A7)+,A4> Δ+4 {}
<MI 20dfe MOVE.L A4,-(A7)> Δ-4 {[4, 'A4']}
<Const 0x20e00 0x20.2> Δ-2 {[4, 'A4']|[#32]}
<Call 0x20e04 0x102c0> {[4, 'A4']|[#32]}
AppendChar(MOD b : String; a : char)
<POP 20e0a-20e0c StackAdj> Δ+2 {[4, 'A4']}
<MI 20e0c MOVE.L A4,-(A7)> Δ-4 {[4, 'A4']|[4, 'A4']}
<POP 20e0e-20e10 StackAdj> Δ-4 {[4, 'A4']|[4, 'A4']|[-4-]}
<MI 20e10 MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, 'A4']|[4, 'A4']|[-4-]|[4, '(A6+0x8)']}
<Const 0x20e12 0x2.4> Δ-4 {[4, 'A4']|[4, 'A4']|[-4-]|[4, '(A6+0x8)']|[##2]}
<Call 0x20e16 0x22a6e> {[4, 'A4']|[4, 'A4']|[-4-]|[4, '(A6+0x8)']|[##2]}
<POP 20e1c-20e1e StackAdj> Δ+8 {[4, 'A4']|[4, 'A4']|[-4-]}
<Call 0x20e1e 0x102d0> {[4, 'A4']|[4, 'A4']|[-4-]}
StringCat2(a, b : String) : String
<POP 20e24-20e26 StackAdj> Δ+8 {[4, 'A4']}
<MI 20e26 MOVEA.L (A7)+,A4> Δ+4 {}
<MI 20e28 MOVE.L A4,-(A7)> Δ-4 {[4, 'A4']}
<Pointer.fp 0x20e2a <LVAR -0x006 @ 4(r)>> Δ-4 {[4, 'A4']|[@@-6]}
<Pointer.fp 0x20e2c <LVAR -0x010 @ 1(r)>> Δ-4 {[4, 'A4']|[@@-6]|[@@-16]}
<Call 0x20e30 0x10310> {[4, 'A4']|[@@-6]|[@@-16]}
ConvertTimestamp(MOD input : String; b : L; VAR status : Bool)
<POP 20e36-20e3a StackAdj> Δ+12 {}
<MI 20e3a TST.B (A6-0x10)> {}
<MI 20e3e BNE 0x20e42> {}
<POP 20e40-20e42 Naked> Σ0 →0x20e68
<MI 20e40 BRA 0x20e68> {}
<POP 20e42-20e4a Naked> Σ0 Δ-4 ↓ ←0x20dec
<MI 20e42 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x20e44 0x1030c> {[4, '(A6-0x6)']}
SetRtc(a: TimeStamp)
<POP 20e4a-20e4e Naked> Σ-4 Δ+4 →0x20e9a ←0x20e4e
<POP 20e4a-20e4c StackAdj> Δ+4 {}
<MI 20e4c BRA 0x20e9a> {}
<POP 20e4e-20e68 Naked> Σ0 Δ-4 →0x20e4a ←0x20dd2
<Pointer.fp 0x20e4e <LVAR -0x006 @ 4(r)>> Δ-4 {[@@-6]}
<Call 0x20e50 0x10304> {[@@-6]}
GetRtc() : TimeStamp
<MI 20e56 MOVE.L (A6-0x6),-(A7)> Δ-4 {[@@-6]|[4, '(A6-0x6)']}
<Call 0x20e58 0x10308> {[@@-6]|[4, '(A6-0x6)']}
TimeToText()
<POP 20e5e-20e60 StackAdj> Δ+4 {[@@-6]}
<Call 0x20e60 0x103e0> {[@@-6]}
WriteConsoleStringCrLf(str : String)
<MI 20e66 BRA 0x20e4a> {[@@-6]}
<POP 20e68-20e9a Naked> Σ0 ↓ ←0x20dea ←0x20e40
<Blob 0x20e68 [36] @> Δ-36 {[«36""»]}
<POP 20e7a-20e7c StackAdj> Δ-4 {[«36""»]|[-4-]}
<Lit 0x20e7c 35> {[«36""»]|[$$Bad format. Try HH:MM:SS DD-MMM-YY]}
<Call 0x20e90 0x103e0> {[«36""»]|[$$Bad format. Try HH:MM:SS DD-MMM-YY]}
WriteConsoleStringCrLf(str : String)
<POP 20e96-20e9a StackAdj> Δ+40 {}
<POP 20e9a-20ea2 Epilogue> Σ0 ←0x20e4a
@ 20ea2
<LVAR 0x008 4(r)>
<POP 20ea2-210a6 Body>
<POP 20ea2-20eb8 Prologue> Σ0 ↓
<POP 20eb8-20ec8 RegCacheLoad> Σ0 ↓
<POP 20ec8-20fc6 Naked> Σ0 Δ-4 ↓
<MI 20ec8 MOVEA.L (A6+0x8),A0> {}
<MI 20ecc MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Blob 0x20ece [24] @> Δ-24 {[4, 'A0']|[«24""»]}
<MI 20ede CLR.L D0> {[4, 'A0']|[«24""»]}
<MI 20ee0 MOVE.B (A0+0x1f),D0> {[4, 'A0']|[«24""»]}
<MI 20ee4 LSL.B #0x7,D0> {[4, 'A0']|[«24""»]}
<MI 20ee6 LSR.B #0x7,D0> {[4, 'A0']|[«24""»]}
<MI 20ee8 MULU.W #0x05,D0> {[4, 'A0']|[«24""»]}
<MI 20eea CLR.L D1> {[4, 'A0']|[«24""»]}
<MI 20eec MOVE.W D0,D1> {[4, 'A0']|[«24""»]}
<MI 20eee LEA.L 0x20360,A1> {[4, 'A0']|[«24""»]}
<Blob 0x20ef0 [6] (A1+D1.L)> Δ-6 {[4, 'A0']|[«24""»]|[«6»]}
<Blob 0x20f00 [4] @> Δ-4 {[4, 'A0']|[«24""»]|[«6»]|[«4""»]}
<Blob 0x20f04 [4] @> Δ-4 {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]}
<Blob 0x20f08 [4] @> Δ-4 {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]}
<Blob 0x20f0c [4] @> Δ-4 {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<MI 20f10 CLR.L D0> {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<MI 20f12 MOVE.B (A0+0x1f),D0> {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<MI 20f16 LSL.B #0x6,D0> {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<MI 20f18 LSR.B #0x7,D0> {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<MI 20f1a MULU.W #0x05,D0> {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<MI 20f1c CLR.L D1> {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<MI 20f1e MOVE.W D0,D1> {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<MI 20f20 LEA.L 0x20360,A1> {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<Blob 0x20f22 [6] (A1+D1.L)> Δ-6 {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«6»]}
<Blob 0x20f32 [4] @> Δ-4 {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[«4""»]}
<Blob 0x20f36 [4] @> Δ-4 {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[«4""»]|[«4""»]}
<Blob 0x20f3a [4] @> Δ-4 {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]}
<MI 20f3e CLR.L D0> {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]}
<MI 20f40 MOVE.B (A0+0x1f),D0> {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]}
<MI 20f44 LSL.B #0x5,D0> {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]}
<MI 20f46 LSR.B #0x7,D0> {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]}
<MI 20f48 MULU.W #0x05,D0> {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]}
<MI 20f4a CLR.L D1> {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]}
<MI 20f4c MOVE.W D0,D1> {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]}
<MI 20f4e LEA.L 0x20360,A0> {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]}
<Blob 0x20f50 [6] (A0+D1.L)> Δ-6 {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«6»]}
<POP 20f60-20f62 StackAdj> Δ-8 {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[-8-]}
<Lit 0x20f62 23> {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[-4-]|[$$ PERMANENT =>_]}
<POP 20f6e-20f70 StackAdj> Δ-4 {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[-4-]|[$$ PERMANENT =>_]|[-4-]}
<Lit 0x20f70> {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[-4-]|[$$ PERMANENT =>_]|[$$…]}
<Pointer.sp 0x20f70 52> Δ-4
<Const 0x20f74 0x1.2> Δ-2
<Const 0x20f76 0x5.2> Δ-2
<Call 0x20f78 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 20f7a-20f7c StackAdj> Δ+8
<POP 20f7a-20f7c StackAdj> Δ-4 {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[-4-]|[$$ PERMANENT =>_]|[$$…]|[-4-]}
<Lit 0x20f7c 16> {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[-4-]|[$$ PERMANENT =>_]|[$$…]|[$$, EXECUTABLE =>_]}
<POP 20f88-20f8a StackAdj> Δ-4 {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[-4-]|[$$ PERMANENT =>_]|[$$…]|[$$, EXECUTABLE =>_]|[-4-]}
<Lit 0x20f8a> {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[-4-]|[$$ PERMANENT =>_]|[$$…]|[$$, EXECUTABLE =>_]|[$$…]}
<Pointer.sp 0x20f8a 38> Δ-4
<Const 0x20f8e 0x1.2> Δ-2
<Const 0x20f90 0x5.2> Δ-2
<Call 0x20f92 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 20f94-20f96 StackAdj> Δ+8
<POP 20f94-20f96 StackAdj> Δ-4 {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[-4-]|[$$ PERMANENT =>_]|[$$…]|[$$, EXECUTABLE =>_]|[$$…]|[-4-]}
<Lit 0x20f96 12> {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[-4-]|[$$ PERMANENT =>_]|[$$…]|[$$, EXECUTABLE =>_]|[$$…]|[$$, KERNEL =>_]}
<POP 20fa2-20fa4 StackAdj> Δ-4 {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[-4-]|[$$ PERMANENT =>_]|[$$…]|[$$, EXECUTABLE =>_]|[$$…]|[$$, KERNEL =>_]|[-4-]}
<Lit 0x20fa4> {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[-4-]|[$$ PERMANENT =>_]|[$$…]|[$$, EXECUTABLE =>_]|[$$…]|[$$, KERNEL =>_]|[$$…]}
<Pointer.sp 0x20fa4 28> Δ-4
<Const 0x20fa8 0x1.2> Δ-2
<Const 0x20faa 0x5.2> Δ-2
<Call 0x20fac 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 20fae-20fb0 StackAdj> Δ+8
<Call 0x20fb0 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 20fb6-20fb8 StackAdj> Δ+24 {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[-4-]}
<Call 0x20fb8 0x103e0> {[4, 'A0']|[«24""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[«4""»]|[«4""»]|[«4""»]|[«6»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 20fbe-20fc2 StackAdj> Δ+74 {[4, 'A0']}
<MI 20fc2 MOVEQ.L #0x00,D7> {[4, 'A0']}
<MI 20fc4 MOVEQ.L #0x00,D6> {[4, 'A0']}
<POP 20fc6-20fde Naked> Σ-4 ↓ →0x21094 ←0x21094
<POP 0x20fc6 LimitCheck 0x0 ≤ D6 ≤ 0x5> {[-4-]}
<MI 20fcc MOVE.L D6,D0> {[-4-]}
<MI 20fce ASL.L #0x2,D0> {[-4-]}
<MI 20fd0 MOVEA.L (A7),A0> {[-4-]}
<MI 20fd2 MOVE.W (A0+D0.L+#0x2),D1> {[-4-]}
<MI 20fd6 EXTW.L D1> {[-4-]}
<MI 20fd8 CMP.L D7,D1> {[-4-]}
<MI 20fda BLT 0x21094> {[-4-]}
<POP 20fde-21094 Naked> Σ-4 ↓
<Blob 0x20fde [22] @> Δ-22 {[-4-]|[«22""»]}
<Blob 0x20ff0 [4] @> Δ-4 {[-4-]|[«22""»]|[«4""»]}
<MI 20ff4 ADDQ.W #0x1,D1> {[-4-]|[«22""»]|[«4""»]}
<Blob 0x20ff6 [20] @> Δ-20 {[-4-]|[«22""»]|[«4""»]|[«20""»]}
<POP 21008-2100a StackAdj> Δ-8 {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-8-]}
<Lit 0x2100a 21> {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]|[$$ File pages_]}
<MI 21016 MOVE.L D7,-(A7)> Δ-4 {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]|[$$ File pages_]|[4, 'D7']}
<POP 21014-21016 StackAdj> Δ-8 {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]|[$$ File pages_]|[4, 'D7']|[-8-]}
<MI 21018 ADDQ.L #0x1,(A7)> {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]|[$$ File pages_]|[4, 'D7']|[-8-]}
<Call 0x2101a 0x102e4> {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]|[$$ File pages_]|[4, 'D7']|[-8-]}
Long2String(a : Long) : String
<POP 21020-21022 StackAdj> Δ+4 {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]|[$$ File pages_]|[4, 'D7']|[-4-]}
<Const 0x21022 0x5.4> Δ-4 {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]|[$$ File pages_]|[4, 'D7']|[-4-]|[##5]}
<Call 0x21026 0x102f8> {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]|[$$ File pages_]|[4, 'D7']|[-4-]|[##5]}
LeftPad(a : String; b : Long) : String
<POP 2102c-2102e StackAdj> Δ+4 {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]|[$$ File pages_]|[4, 'D7']|[-4-]}
<Lit 0x2102e 4> {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]|[$$ File pages_]|[4, 'D7']|[$$ .._]}
<MI 2103a MOVE.W D1,D2> {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]|[$$ File pages_]|[4, 'D7']|[$$ .._]}
<POP 21038-2103a StackAdj> Δ-8 {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]|[$$ File pages_]|[4, 'D7']|[$$ .._]|[-8-]}
<MI 2103c EXTW.L D2> {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]|[$$ File pages_]|[4, 'D7']|[$$ .._]|[-8-]}
<MI 2103e MOVE.L D2,-(A7)> Δ-4 {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]|[$$ File pages_]|[4, 'D7']|[$$ .._]|[-8-]|[4, 'D2']}
<Call 0x21040 0x102e4> {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]|[$$ File pages_]|[4, 'D7']|[$$ .._]|[-8-]|[4, 'D2']}
Long2String(a : Long) : String
<POP 21046-21048 StackAdj> Δ+4 {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]|[$$ File pages_]|[4, 'D7']|[$$ .._]|[-8-]}
<Const 0x21048 0x5.4> Δ-4 {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]|[$$ File pages_]|[4, 'D7']|[$$ .._]|[-8-]|[##5]}
<Call 0x2104c 0x102f8> {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]|[$$ File pages_]|[4, 'D7']|[$$ .._]|[-8-]|[##5]}
LeftPad(a : String; b : Long) : String
<POP 21052-21054 StackAdj> Δ+4 {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]|[$$ File pages_]|[4, 'D7']|[$$ .._]|[-8-]}
<Lit 0x21054 19> {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]|[$$ File pages_]|[4, 'D7']|[$$ .._]|[-4-]|[$$ are at disk block_]}
<MI 21060 CLR.L D2> {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]|[$$ File pages_]|[4, 'D7']|[$$ .._]|[-4-]|[$$ are at disk block_]}
<POP 2105e-21060 StackAdj> Δ-8 {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]|[$$ File pages_]|[4, 'D7']|[$$ .._]|[-4-]|[$$ are at disk block_]|[-8-]}
<MI 21062 MOVE.W (A0+D0.L+#0x4),D2> {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]|[$$ File pages_]|[4, 'D7']|[$$ .._]|[-4-]|[$$ are at disk block_]|[-8-]}
<MI 21066 MOVE.L D2,-(A7)> Δ-4 {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]|[$$ File pages_]|[4, 'D7']|[$$ .._]|[-4-]|[$$ are at disk block_]|[-8-]|[4, 'D2']}
<Call 0x21068 0x102e4> {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]|[$$ File pages_]|[4, 'D7']|[$$ .._]|[-4-]|[$$ are at disk block_]|[-8-]|[4, 'D2']}
Long2String(a : Long) : String
<POP 2106e-21070 StackAdj> Δ+4 {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]|[$$ File pages_]|[4, 'D7']|[$$ .._]|[-4-]|[$$ are at disk block_]|[-8-]}
<Const 0x21070 0x5.4> Δ-4 {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]|[$$ File pages_]|[4, 'D7']|[$$ .._]|[-4-]|[$$ are at disk block_]|[-8-]|[##5]}
<Call 0x21074 0x102f8> {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]|[$$ File pages_]|[4, 'D7']|[$$ .._]|[-4-]|[$$ are at disk block_]|[-8-]|[##5]}
LeftPad(a : String; b : Long) : String
<POP 2107a-2107c StackAdj> Δ+8 {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]|[$$ File pages_]|[4, 'D7']|[$$ .._]|[-4-]|[$$ are at disk block_]|[-4-]}
<Call 0x2107c 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 21082-21084 StackAdj> Δ+24 {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]}
<Call 0x21084 0x103e0> {[-4-]|[«22""»]|[«4""»]|[«20""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 2108a-2108c StackAdj> Δ+24 {[-4-]|[«22""»]|[«4""»]}
<MI 2108c EXTW.L D1> {[-4-]|[«22""»]|[«4""»]}
<MI 2108e MOVE.L D1,D7> {[-4-]|[«22""»]|[«4""»]}
<POP 21090-21094 StackAdj> Δ+26 {[-4-]}
<POP 21094-2109c Naked> Σ-4 ↓ →0x20fc6 ←0x20fc6
<MI 21094 ADDQ.L #0x1,D6> {[-4-]}
<MI 21096 CMP.L #0x05,D6> {[-4-]}
<MI 21098 BLE 0x20fc6> {[-4-]}
<POP 2109c-2109e Naked> Σ-4 Δ+4 ↓
<POP 2109c-2109e StackAdj> Δ+4 {}
<POP 2109e-210a6 Epilogue> Σ0
@ 210a6
CMD_DIRECTORY()
<LVAR 0x008 4(r)>
<LVAR -0x002 1(rw)>
<LVAR -0x006 @ 4(r)>
<POP 210a6-21278 Body>
<POP 210a6-210bc Prologue> Σ0 ↓
<POP 210bc-210c8 RegCacheLoad> Σ0 ↓
<POP 210c8-21108 Naked> Σ0 Δ-4 ↓
<MI 210c8 MOVEQ.L #0x00,D7> {}
<MI 210ca MOVEQ.L #0x00,D6> {}
<Blob 0x210cc [4] @> Δ-4 {[«4""»]}
<POP 210d0-210d2 StackAdj> Δ-2 {[«4""»]|[-2-]}
<MI 210d2 MOVE.L (A6+0x8),-(A7)> Δ-4 {[«4""»]|[-2-]|[4, '(A6+0x8)']}
<POP 210d6-210d8 StackAdj> Δ-4 {[«4""»]|[-2-]|[4, '(A6+0x8)']|[-4-]}
<Lit 0x210d8 4> {[«4""»]|[-2-]|[4, '(A6+0x8)']|[$$FULL]}
<Call 0x210e6 0x203ce> {[«4""»]|[-2-]|[4, '(A6+0x8)']|[$$FULL]}
<POP 210ea-210ec StackAdj> Δ+8 {[«4""»]|[-2-]}
<MI 210ec MOVE.B (A7)+,D0> Δ+2 {[«4""»]}
<MI 210ee EXTB.W D0> {[«4""»]}
<POP 0x210f0 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[«4""»]}
<POP 210f2-210f4 StackAdj> Δ+4 {}
<MI 210f4 MOVE.B D0,(A6-0x2)> {}
<POP 210f8-210fa StackAdj> Δ-4 {[-4-]}
<MI 210fa MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x210fe 0x22152> {[-4-]|[4, '(A6+0x8)']}
<POP 21104-21106 StackAdj> Δ+4 {[-4-]}
<MI 21106 MOVEQ.L #0x01,D5> {[-4-]}
<POP 21108-2110e Naked> Σ-4 ↓ →0x211ea ←0x211e4
<MI 21108 CMP.L (A7),D5> {[-4-]}
<MI 2110a BGT 0x211ea> {[-4-]}
<POP 2110e-21130 Naked> Σ-4 ↓
<POP 2110e-21110 StackAdj> Δ-4 {[-8-]}
<MI 21110 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<MI 21114 MOVE.L D5,-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']|[4, 'D5']}
<Call 0x21116 0x22a6e> {[-8-]|[4, '(A6+0x8)']|[4, 'D5']}
<POP 2111c-2111e StackAdj> Δ+8 {[-8-]}
<MI 2111e MOVEA.L (A7)+,A4> Δ+4 {[-4-]}
<Const 0x21120 0x1.2> Δ-2 {[-4-]|[#1]}
<MI 21122 MOVE.L A4,-(A7)> Δ-4 {[-4-]|[#1]|[4, 'A4']}
<Pointer.fp 0x21124 <LVAR -0x006 @ 4(r)>> Δ-4 {[-4-]|[#1]|[4, 'A4']|[@@-6]}
<Call 0x21128 0x10458> {[-4-]|[#1]|[4, 'A4']|[@@-6]}
DirFirst(MOD c : Bool; a : String; VAR b : File)
<POP 2112e-21130 StackAdj> Δ+10 {[-4-]}
<POP 21130-2113a Naked> Σ-4 ↓ →0x211e4 ←0x211d2
<MI 21130 MOVEA.L (A6-0x6),A0> {[-4-]}
<MI 21134 CMPA.W #0x01,A0> {[-4-]}
<MI 21136 BEQ 0x211e4> {[-4-]}
<POP 2113a-211c8 Naked> Σ-4 ↓ →0x211d2
<MI 2113a CLR.L D0> {[-4-]}
<MI 2113c MOVE.W D6,D0> {[-4-]}
<MI 2113e MOVE.W (A0+0x20),D1> {[-4-]}
<MI 21142 EXTW.L D1> {[-4-]}
<MI 21144 ADD.L D1,D0> {[-4-]}
<POP 0x21146 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {[-4-]}
<MI 21150 MOVE.W D0,D6> {[-4-]}
<MI 21152 ADDQ.L #0x1,D7> {[-4-]}
<POP 21154-21156 StackAdj> Δ-30 {[-34-]}
<MI 21156 MOVEA.L A7,A1> {[-34-]}
<MI 21158 MOVEA.L A0,A2> {[-34-]}
<BlockMove 30,A2,A1> {[-34-]}
<POP 21162-21166 StackAdj> Δ-12 {[-46-]}
<Lit 0x21166> {[-42-]|[$$…]}
<Pointer.sp 0x21166 12> Δ-4
<Const 0x2116a 0x1.2> Δ-2
<Const 0x2116c 0x1e.2> Δ-2
<Call 0x2116e 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 21170-21172 StackAdj> Δ+8
<Const 0x21172 0x1f.4> Δ-4 {[-42-]|[$$…]|[##31]}
<Call 0x21176 0x102f8> {[-42-]|[$$…]|[##31]}
LeftPad(a : String; b : Long) : String
<MI 2117c MOVE.L D1,-(A7)> Δ-4 {[-42-]|[$$…]|[##31]|[4, 'D1']}
<Call 0x2117e 0x102e4> {[-42-]|[$$…]|[##31]|[4, 'D1']}
Long2String(a : Long) : String
<POP 21184-21186 StackAdj> Δ+4 {[-42-]|[$$…]|[##31]}
<Const 0x21186 0x6.4> Δ-4 {[-42-]|[$$…]|[##31]|[##6]}
<Call 0x2118a 0x102f8> {[-42-]|[$$…]|[##31]|[##6]}
LeftPad(a : String; b : Long) : String
<MI 21190 MOVE.B (A0+0x3a),(A7)> {[-42-]|[$$…]|[##31]|[-4-]}
<MI 21194 MOVE.B (A0+0x3b),(A7+0x1)> {[-42-]|[$$…]|[##31]|[-4-]}
<MI 2119a MOVE.B (A0+0x3c),(A7+0x2)> {[-42-]|[$$…]|[##31]|[-4-]}
<MI 211a0 MOVE.B (A0+0x3d),(A7+0x3)> {[-42-]|[$$…]|[##31]|[-4-]}
<Call 0x211a6 0x10308> {[-42-]|[$$…]|[##31]|[-4-]}
TimeToText()
<POP 211ac-211ae StackAdj> Δ+4 {[-42-]|[$$…]|[##31]}
<Call 0x211ae 0x102d4> {[-42-]|[$$…]|[##31]}
StringCat3(a, b, c : String) : String
<POP 211b4-211b8 StackAdj> Δ+12 {[-38-]}
<Call 0x211b8 0x103e0> {[-38-]}
WriteConsoleStringCrLf(str : String)
<POP 211be-211c2 StackAdj> Δ+34 {[-4-]}
<MI 211c2 TST.B (A6-0x2)> {[-4-]}
<MI 211c6 BEQ 0x211d2> {[-4-]}
<POP 211c8-211d2 Naked> Σ-4 ↓
<MI 211c8 PEA.L (A0+0x20)> Δ-4 {[-4-]|[4, '^(A0+0x20)']}
<Call 0x211cc 0x20ea2> {[-4-]|[4, '^(A0+0x20)']}
<POP 211d0-211d2 StackAdj> Δ+4 {[-4-]}
<POP 211d2-211e4 Naked> Σ-4 →0x21130 ←0x2113a
<MI 211d2 CLR.B -(A7)> Δ-2 {[-4-]|[#0]}
<Pointer.fp 0x211d4 <LVAR -0x006 @ 4(r)>> Δ-4 {[-4-]|[#0]|[@@-6]}
<Call 0x211d8 0x1045c> {[-4-]|[#0]|[@@-6]}
DirNext(MOD a : Bool; VAR b : File)
<POP 211de-211e0 StackAdj> Δ+6 {[-4-]}
<MI 211e0 BRA 0x21130> {[-4-]}
<POP 211e4-211ea Naked> Σ-4 ↓ →0x21108 ←0x21130
<MI 211e4 ADDQ.L #0x1,D5> {[-4-]}
<MI 211e6 BVC 0x21108> {[-4-]}
<POP 211ea-211f4 Naked> Σ-4 Δ+4 ↓ →0x21270 ←0x21108
<POP 211ea-211ec StackAdj> Δ+4 {}
<MI 211ec CMPI.L #0x00000002,D7> {}
<MI 211f2 BLT 0x21270> {}
<POP 211f4-21270 Naked> Σ0 ↓
<Blob 0x211f4 [10] @> Δ-10 {[«10""»]}
<Blob 0x21204 [10] @> Δ-10 {[«10""»]|[«10""»]}
<Blob 0x21210 [8] @> Δ-8 {[«10""»]|[«10""»]|[«8""»]}
<POP 21220-21222 StackAdj> Δ-8 {[«10""»]|[«10""»]|[«8""»]|[-8-]}
<Lit 0x21222 9> {[«10""»]|[«10""»]|[«8""»]|[-4-]|[$$Total of_]}
<POP 2122e-21230 StackAdj> Δ-4 {[«10""»]|[«10""»]|[«8""»]|[-4-]|[$$Total of_]|[-4-]}
<MI 21230 CLR.L D0> {[«10""»]|[«10""»]|[«8""»]|[-4-]|[$$Total of_]|[-4-]}
<MI 21232 MOVE.W D6,D0> {[«10""»]|[«10""»]|[«8""»]|[-4-]|[$$Total of_]|[-4-]}
<MI 21234 MOVE.L D0,-(A7)> Δ-4 {[«10""»]|[«10""»]|[«8""»]|[-4-]|[$$Total of_]|[-4-]|[4, 'D0']}
<Call 0x21236 0x102e4> {[«10""»]|[«10""»]|[«8""»]|[-4-]|[$$Total of_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<Lit 0x2123c 10> {[«10""»]|[«10""»]|[«8""»]|[-4-]|[$$Total of_]|[-4-]|[$$ Pages in_]}
<MI 21246 MOVE.L D7,(A7)> {[«10""»]|[«10""»]|[«8""»]|[-4-]|[$$Total of_]|[-4-]|[4, 'D7']}
<POP 21244-21246 StackAdj> Δ-8 {[«10""»]|[«10""»]|[«8""»]|[-4-]|[$$Total of_]|[-4-]|[4, 'D7']|[-8-]}
<Call 0x21248 0x102e4> {[«10""»]|[«10""»]|[«8""»]|[-4-]|[$$Total of_]|[-4-]|[4, 'D7']|[-8-]}
Long2String(a : Long) : String
<Lit 0x2124e 7> {[«10""»]|[«10""»]|[«8""»]|[-4-]|[$$Total of_]|[-4-]|[4, 'D7']|[-4-]|[$$ Files.]}
<Call 0x2125c 0x102dc> {[«10""»]|[«10""»]|[«8""»]|[-4-]|[$$Total of_]|[-4-]|[4, 'D7']|[-4-]|[$$ Files.]}
StringCat5(a, b, c, d, e : String) : String
<POP 21262-21266 StackAdj> Δ+20 {[«10""»]|[«10""»]|[«8""»]|[-4-]}
<Call 0x21266 0x103e0> {[«10""»]|[«10""»]|[«8""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 2126c-21270 StackAdj> Δ+32 {}
<POP 21270-21278 Epilogue> Σ0 ←0x211ea
@ 21278
CMD_PRINTER()
<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 21278-214f4 Body> Δ+136
<POP 21278-2128e Prologue> Σ0 ↓
<POP 2128e-21298 RegCacheLoad> Σ0 ↓
<POP 21298-212ac Naked> Σ0 ↓ →0x212e0
<POP 21298-2129a StackAdj> Δ-4 {[-4-]}
<MI 2129a MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x2129e 0x22152> {[-4-]|[4, '(A6+0x8)']}
<POP 212a4-212a6 StackAdj> Δ+4 {[-4-]}
<MI 212a6 MOVE.L (A7)+,D5> Δ+4 {}
<MI 212a8 CMP.L #0x01,D5> {}
<MI 212aa BGE 0x212e0> {}
<POP 212ac-212be Naked> Σ0 Δ-68 ↓
<Blob 0x212ac [68] @> Δ-68 {[«68""»]}
<POP 212be-212e0 Naked> Σ-68 Δ+68 →0x214ec ←0x214c8
<POP 212be-212c0 StackAdj> Δ-4 {[-72-]}
<Lit 0x212c0> {[-68-]|[$$…]}
<Pointer.sp 0x212c0 4> Δ-4
<Const 0x212c4 0x1.2> Δ-2
<Const 0x212c6 0x43.2> Δ-2
<Call 0x212ca 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 212d0-212d2 StackAdj> Δ+8
<Call 0x212d2 0x103e0> {[-68-]|[$$…]}
WriteConsoleStringCrLf(str : String)
<POP 212d8-212dc StackAdj> Δ+72 {}
<MI 212dc BRA 0x214ec> {}
<POP 212e0-21332 Naked> Σ0 ↓ →0x21478 ←0x21298
<POP 212e0-212e2 StackAdj> Δ-4 {[-4-]}
<MI 212e2 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x212e6 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x212ea 0x22a6e> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 212f0-212f2 StackAdj> Δ+8 {[-4-]}
<MI 212f2 MOVEA.L (A7)+,A4> Δ+4 {}
<Blob 0x212f4 [2] @> Δ-2 {[«2""»]}
<POP 212f8-212fa StackAdj> Δ-4 {[«2""»]|[-4-]}
<Lit 0x212fa 2> {[«2""»]|[$$ON]}
<MI 2130c MOVE.L (A7)+,(A6-0x48)> Δ+4 {[«2""»]}
<MI 2130e MOVE.L A4,-(A7)> Δ-4 {[«2""»]|[4, 'A4']}
<MI 21310 MOVE.L (A6-0x48),-(A7)> Δ-4 {[«2""»]|[4, 'A4']|[4, '(A6-0x48)']}
<Call 0x21312 0x102c8> {[«2""»]|[4, 'A4']|[4, '(A6-0x48)']}
StringEqual(a, b : String) : Byte
<POP 21318-2131a StackAdj> Δ+8 {[«2""»]}
<MI 2131a MOVE.B (A7)+,D0> Δ+2 {}
<MI 2131c EXTB.W D0> {}
<POP 0x2131e LimitCheck 0x0 ≤ D0 ≤ 0x1> {}
<MI 21320 MOVE.B D0,(A6-0x2)> {}
<Pointer.fp 0x21322 <LVAR -0x048 @ 4(rw)>> Δ-4 {[@@-72]}
<Call 0x21324 0x102bc> {[@@-72]}
FreeString(VAR a : String)
<POP 2132a-2132c StackAdj> Δ+4 {}
<MI 2132c TST.B D0> {}
<MI 2132e BEQ 0x21478> {}
<POP 21332-2133a Naked> Σ0 ↓ →0x2136e
<MI 21332 CMPI.L #0x00000002,D5> {}
<MI 21338 BEQ 0x2136e> {}
<POP 2133a-2134c Naked> Σ0 Δ-68 ↓
<Blob 0x2133a [68] @> Δ-68 {[«68""»]}
<POP 2134c-2136e Naked> Σ-68 Δ+68 →0x21476 ←0x21398
<POP 2134c-2134e StackAdj> Δ-4 {[-72-]}
<Lit 0x2134e> {[-68-]|[$$…]}
<Pointer.sp 0x2134e 4> Δ-4
<Const 0x21352 0x1.2> Δ-2
<Const 0x21354 0x43.2> Δ-2
<Call 0x21358 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 2135e-21360 StackAdj> Δ+8
<Call 0x21360 0x103e0> {[-68-]|[$$…]}
WriteConsoleStringCrLf(str : String)
<POP 21366-2136a StackAdj> Δ+72 {}
<MI 2136a BRA 0x21476> {}
<POP 2136e-21398 Naked> Σ0 ↓ →0x213ac ←0x21332
<POP 2136e-21370 StackAdj> Δ-4 {[-4-]}
<MI 21370 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x21374 0x2.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##2]}
<Call 0x21378 0x22a6e> {[-4-]|[4, '(A6+0x8)']|[##2]}
<POP 2137e-21380 StackAdj> Δ+8 {[-4-]}
<MI 21380 MOVE.L (A7)+,(A6-0x48)> Δ+4 {}
<MI 21382 MOVE.L (A6-0x48),-(A7)> Δ-4 {[4, '(A6-0x48)']}
<Pointer.fp 0x21384 <LVAR -0x002 @ 1(rw)>> Δ-4 {[4, '(A6-0x48)']|[@@-2]}
<Pointer.fp 0x21386 <LVAR -0x03c @ 4(r)>> Δ-4 {[4, '(A6-0x48)']|[@@-2]|[@@-60]}
<Call 0x2138a 0x102ec> {[4, '(A6-0x48)']|[@@-2]|[@@-60]}
String2Long(src : String; VAR status : Bool; VAR retval : Long)
<POP 21390-21394 StackAdj> Δ+12 {}
<MI 21394 TST.B (A6-0x2)> {}
<MI 21396 BNE 0x213ac> {}
<POP 21398-213ac Naked> Σ0 Δ-68 →0x2134c
<Blob 0x21398 [68] @> Δ-68 {[«68""»]}
<MI 213aa BRA 0x2134c> {[«68""»]}
<POP 213ac-21420 Naked> Σ0 ↓ →0x2144c ←0x2136e
<MI 213ac MOVE.W #0x01,(A6-0x30)> {}
<MI 213b0 MOVE.W #0x2,(A6-0x2a)> {}
<Pointer.fp 0x213b6 <LVAR -0x034 @>> Δ-4 {[@@-52]}
<MI 213ba LEA.L (A6-0x24),A0> {[@@-52]}
<MI 213be MOVE.L A0,-(A7)> Δ-4 {[@@-52]|[4, 'A0']}
<Const 0x213c0 0x3.2> Δ-2 {[@@-52]|[4, 'A0']|[#3]}
<Call 0x213c4 0x10204> {[@@-52]|[4, 'A0']|[#3]}
KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
<POP 213ca-213cc StackAdj> Δ+8 {[-2-]}
<POP 213cc-213cd StackAdj> Δ+2 {}
<Const 0x213cd 0x3.2> Δ-2 {[#3]}
<Pointer.fp 0x213d0 <LVAR -0x002 @ 1(rw)>> Δ-4 {[#3]|[@@-2]}
<Call 0x213d2 0x10206> {[#3]|[@@-2]}
KC03_Wait_Disk_IO(a : W; VAR status : Byte)
<POP 213d8-213da StackAdj> Δ+6 {}
<MI 213da MOVE.L (A6-0x3c),D4> {}
<MI 213de MOVEQ.L #0x10,D3> {}
<Call 0x213e0 0x10294> {}
?divs_d3_d4
<MI 213e6 MOVE.L D4,D7> {}
<MI 213e8 MOVE.L D3,D6> {}
<POP 0x213ea LimitCheck 0x0 ≤ D7 ≤ 0x10> {}
<MI 213f4 MOVE.L D7,D0> {}
<MI 213f6 ASL.L #0x1,D0> {}
<POP 0x213f8 LimitCheck 0x0 ≤ D6 ≤ 0xf> {}
<MI 21402 LEA.L (A6+D0.L-#0x24),A0> {}
<MI 21406 MOVE.L D6,D0> {}
<MI 21408 ROR.L #0x3,D0> {}
<MI 2140a ADDA.W D0,A0> {}
<MI 2140c SWAP.W D0> {}
<MI 2140e ROL.W #0x3,D0> {}
<MI 21410 MOVE.B (A0),D1> {}
<MI 21412 LSL.B D0,D1> {}
<MI 21414 LSR.B #0x7,D1> {}
<MI 21416 MOVE.B D1,(A6-0x2)> {}
<MI 21418 MOVE.L D4,D7> {}
<MI 2141a MOVE.L D3,D6> {}
<MI 2141c TST.L D7> {}
<MI 2141e BEQ 0x2144c> {}
<POP 21420-21424 Naked> Σ0 ↓ →0x2144c
<MI 21420 TST.B D1> {}
<MI 21422 BEQ 0x2144c> {}
<POP 21424-2144c Naked> Σ0 →0x21476
<Const 0x21424 0x1.2> Δ-2 {[#1]}
<MI 21426 MOVE.L D7,D0> {[#1]}
<MI 21428 SUBQ.L #0x1,D0> {[#1]}
<POP 0x2142a LimitCheck 0x0 ≤ D0 ≤ 0xffff> {[#1]}
<MI 21434 MOVE.W D0,-(A7)> Δ-2 {[#1]|[2, 'D0']}
<POP 0x21436 LimitCheck 0x0 ≤ D6 ≤ 0xff> {[#1]|[2, 'D0']}
<MI 21440 MOVE.W D6,-(A7)> Δ-2 {[#1]|[2, 'D0']|[2, 'D6']}
<Call 0x21442 0x103fc> {[#1]|[2, 'D0']|[2, 'D6']}
SetConsolePrinter(a: Byte; b: Word; c: Word)
<POP 21448-2144a StackAdj> Δ+6 {}
<MI 2144a BRA 0x21476> {}
<POP 2144c-21476 Naked> Σ0 ↓ ←0x213ac ←0x21420
<Blob 0x2144c [34] @> Δ-34 {[«34""»]}
<POP 21458-2145a StackAdj> Δ-4 {[«34""»]|[-4-]}
<Lit 0x2145a 34> {[«34""»]|[$$Communications line does not exist]}
<Call 0x2146c 0x103e0> {[«34""»]|[$$Communications line does not exist]}
WriteConsoleStringCrLf(str : String)
<POP 21472-21476 StackAdj> Δ+38 {}
<POP 21476-21478 Naked> Σ0 →0x214ec ←0x2134c ←0x21424
<MI 21476 BRA 0x214ec> {}
<POP 21478-214c4 Naked> Σ0 ↓ →0x214c8 ←0x212e0
<POP 21478-2147a StackAdj> Δ-4 {[-4-]}
<POP 2147a-2147b StackAdj> Δ+2 {[-2-]}
<Blob 0x2147b [2] @> Δ-2 {[-2-]|[«2""»]}
<MI 2147e MOVE.B 0x202ef,(A7+0x1)> {[-2-]|[«2""»]}
<MI 21484 MOVE.B 0x202f0,(A7+0x2)> {[-2-]|[«2""»]}
<POP 2148a-2148c StackAdj> Δ-4 {[-2-]|[«2""»]|[-4-]}
<Lit 0x2148c> {[-2-]|[«2""»]|[$$…]}
<Pointer.sp 0x2148c 4> Δ-4
<Const 0x21490 0x1.2> Δ-2
<Const 0x21492 0x3.2> Δ-2
<Call 0x21496 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 2149c-2149e StackAdj> Δ+8
<MI 2149e MOVE.L (A7)+,(A6-0x48)> Δ+4 {[-2-]|[«2""»]}
<POP 214a0-214a2 StackAdj> Δ+2 {[-2-]}
<MI 214a2 MOVE.L A4,-(A7)> Δ-4 {[-2-]|[4, 'A4']}
<MI 214a4 MOVE.L (A6-0x48),-(A7)> Δ-4 {[-2-]|[4, 'A4']|[4, '(A6-0x48)']}
<Call 0x214a6 0x102c8> {[-2-]|[4, 'A4']|[4, '(A6-0x48)']}
StringEqual(a, b : String) : Byte
<POP 214ac-214ae StackAdj> Δ+8 {[-2-]}
<MI 214ae MOVE.B (A7)+,D0> Δ+2 {}
<MI 214b0 EXTB.W D0> {}
<POP 0x214b2 LimitCheck 0x0 ≤ D0 ≤ 0x1> {}
<MI 214b4 MOVE.B D0,(A6-0x2)> {}
<Pointer.fp 0x214b6 <LVAR -0x048 @ 4(rw)>> Δ-4 {[@@-72]}
<Call 0x214b8 0x102bc> {[@@-72]}
FreeString(VAR a : String)
<POP 214be-214c0 StackAdj> Δ+4 {}
<MI 214c0 TST.B D0> {}
<MI 214c2 BEQ 0x214c8> {}
<POP 214c4-214c8 Naked> Σ0 ↓ →0x214de
<MI 214c4 CMP.L #0x01,D5> {}
<MI 214c6 BEQ 0x214de> {}
<POP 214c8-214de Naked> Σ0 Δ-68 →0x212be ←0x21478
<Blob 0x214c8 [68] @> Δ-68 {[«68""»]}
<MI 214da BRA 0x212be> {[«68""»]}
<POP 214de-214ec Naked> Σ0 ↓ ←0x214c4
<MI 214de CLR.B -(A7)> Δ-2 {[#0]}
<MI 214e0 CLR.W -(A7)> Δ-2 {[#0]|[#0]}
<MI 214e2 CLR.W -(A7)> Δ-2 {[#0]|[#0]|[#0]}
<Call 0x214e4 0x103fc> {[#0]|[#0]|[#0]}
SetConsolePrinter(a: Byte; b: Word; c: Word)
<POP 214ea-214ec StackAdj> Δ+6 {}
<POP 214ec-214f4 Epilogue> Σ0 ←0x212be ←0x21476
@ 214f4
<LVAR 0x00c 4(w)>
<LVAR 0x008 4(r)>
<LVAR -0x008 @ 4(rw)>
<POP 214f4-21596 Body>
<POP 214f4-2150a Prologue> Σ0 ↓
<POP 2150a-21512 RegCacheLoad> Σ0 ↓
<POP 21512-2151c Naked> Σ0 ↓
<MI 21512 MOVE.L #0xffffffff,(A6+0xc)> {}
<MI 2151a MOVEQ.L #0x01,D7> {}
<POP 2151c-21582 Naked> Σ0 ↓ →0x21588 ←0x21588
<MI 2151c MOVE.L D7,D0> {}
<MI 2151e SUBQ.L #0x1,D0> {}
<POP 0x21520 LimitCheck 0x0 ≤ D0 ≤ 0x9> {}
<MI 2152a MOVE.L D0,D4> {}
<MI 2152c MOVEQ.L #0x0a,D3> {}
<Call 0x2152e 0x1028c> {}
?muls_d3_d4
<MI 21534 LEA.L 0x2036a,A0> {}
<Blob 0x21538 [10] (A0+D4.L)> Δ-10 {[«10»]}
<POP 21548-2154a StackAdj> Δ-4 {[«10»]|[-4-]}
<Lit 0x2154a> {[«10»]|[$$…]}
<Pointer.sp 0x2154a 4> Δ-4
<Const 0x2154e 0x1.2> Δ-2
<Const 0x21550 0xa.2> Δ-2
<Call 0x21552 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 21558-2155a StackAdj> Δ+8
<MI 2155a MOVE.L (A7)+,(A6-0x8)> Δ+4 {[«10»]}
<POP 2155c-2155e StackAdj> Δ+4 {[-6-]}
<MI 2155e MOVE.L (A6+0x8),(A7)> {[-2-]|[4, '(A6+0x8)']}
<MI 21562 MOVE.L (A6-0x8),-(A7)> Δ-4 {[-2-]|[4, '(A6+0x8)']|[4, '(A6-0x8)']}
<Call 0x21564 0x102c8> {[-2-]|[4, '(A6+0x8)']|[4, '(A6-0x8)']}
StringEqual(a, b : String) : Byte
<POP 2156a-2156c StackAdj> Δ+8 {[-2-]}
<MI 2156c MOVE.B (A7)+,D0> Δ+2 {}
<MI 2156e EXTB.W D0> {}
<POP 0x21570 LimitCheck 0x0 ≤ D0 ≤ 0x1> {}
<MI 21572 MOVE.B D0,D6> {}
<Pointer.fp 0x21574 <LVAR -0x008 @ 4(rw)>> Δ-4 {[@@-8]}
<Call 0x21576 0x102bc> {[@@-8]}
FreeString(VAR a : String)
<POP 2157c-2157e StackAdj> Δ+4 {}
<MI 2157e TST.B D6> {}
<MI 21580 BEQ 0x21588> {}
<POP 21582-21588 Naked> Σ0 →0x2158e
<MI 21582 MOVE.L D7,(A6+0xc)> {}
<MI 21586 BRA 0x2158e> {}
<POP 21588-2158e Naked> Σ0 ↓ →0x2151c ←0x2151c
<MI 21588 ADDQ.L #0x1,D7> {}
<MI 2158a CMP.L #0x0a,D7> {}
<MI 2158c BLE 0x2151c> {}
<POP 2158e-21596 Epilogue> Σ0 ←0x21582
@ 21596
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 21596-21646 Body> Δ+28
<POP 21596-215ac Prologue> Σ0 ↓
<POP 215ac-215b0 RegCacheLoad> Σ0 ↓
<POP 215b0-215d0 Naked> Σ0 ↓ →0x2163c
<MI 215b0 MOVEA.L (A6+0x8),A0> {}
<MI 215b4 MOVE.B #0x01,(A0)> {}
<POP 215b8-215ba StackAdj> Δ-4 {[-4-]}
<MI 215ba MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x10)']}
<Call 0x215be 0x214f4> {[-4-]|[4, '(A6+0x10)']}
<POP 215c2-215c4 StackAdj> Δ+4 {[-4-]}
<MI 215c4 MOVE.L (A7)+,D0> Δ+4 {}
<MI 215c6 SUBQ.L #0x1,D0> {}
<MI 215c8 CMPI.L #0x00000009,D0> {}
<MI 215ce BHI 0x2163c> {}
<POP 215d0-215da Naked> Σ0 →0x215ee →0x215f8 →0x21600 →0x21608 →0x21610 →0x21618 →0x21620 →0x21628 →0x2162e →0x21634
<MI 215d0 ADD.W D0,D0> {}
<MI 215d2 SWITCH D0.W> {}
<POP 215ee-215f4 Naked> Σ0 Δ-4 ↓ ←0x215d0
<MI 215ee MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<Call 0x215f0 0x20db4> {[4, '(A6+0xc)']}
CMD_TIME()
<POP 215f4-215f8 Naked> Σ-4 Δ+4 →0x2163e ←0x215f8 ←0x21600 ←0x21608 ←0x21610 ←0x21618 ←0x21620 ←0x21634
<POP 215f4-215f6 StackAdj> Δ+4 {}
<MI 215f6 BRA 0x2163e> {}
<POP 215f8-21600 Naked> Σ0 Δ-4 →0x215f4 ←0x215d0
<MI 215f8 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<Call 0x215fa 0x210a6> {[4, '(A6+0xc)']}
CMD_DIRECTORY()
<MI 215fe BRA 0x215f4> {[4, '(A6+0xc)']}
<POP 21600-21608 Naked> Σ0 Δ-4 →0x215f4 ←0x215d0
<MI 21600 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<Call 0x21602 0x2048e> {[4, '(A6+0xc)']}
CMD_COPY()
<MI 21606 BRA 0x215f4> {[4, '(A6+0xc)']}
<POP 21608-21610 Naked> Σ0 Δ-4 →0x215f4 ←0x215d0
<MI 21608 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<Call 0x2160a 0x20674> {[4, '(A6+0xc)']}
CMD_DELETE()
<MI 2160e BRA 0x215f4> {[4, '(A6+0xc)']}
<POP 21610-21618 Naked> Σ0 Δ-4 →0x215f4 ←0x215d0
<MI 21610 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<Call 0x21612 0x20a90> {[4, '(A6+0xc)']}
CMD_TYPE()
<MI 21616 BRA 0x215f4> {[4, '(A6+0xc)']}
<POP 21618-21620 Naked> Σ0 Δ-4 →0x215f4 ←0x215d0
<MI 21618 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<Call 0x2161a 0x20b78> {[4, '(A6+0xc)']}
CMD_CREATE()
<MI 2161e BRA 0x215f4> {[4, '(A6+0xc)']}
<POP 21620-21628 Naked> Σ0 Δ-4 →0x215f4 ←0x215d0
<MI 21620 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<Call 0x21622 0x20808> {[4, '(A6+0xc)']}
CMD_RENAME()
<MI 21626 BRA 0x215f4> {[4, '(A6+0xc)']}
<POP 21628-2162e Naked> Σ0 →0x2163e ←0x215d0
<Call 0x21628 0x208ec> {}
CMD_REMOTE()
<MI 2162c BRA 0x2163e> {}
<POP 2162e-21634 Naked> Σ0 →0x2163e ←0x215d0
<Call 0x2162e 0x209c2> {}
CMD_LOCAL()
<MI 21632 BRA 0x2163e> {}
<POP 21634-2163c Naked> Σ0 Δ-4 →0x215f4 ←0x215d0
<MI 21634 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<Call 0x21636 0x21278> {[4, '(A6+0xc)']}
CMD_PRINTER()
<MI 2163a BRA 0x215f4> {[4, '(A6+0xc)']}
<POP 2163c-2163e Naked> Σ0 ↓ ←0x215b0
<MI 2163c CLR.B (A0)> {}
<POP 2163e-21646 Epilogue> Σ0 ←0x215f4 ←0x21628 ←0x2162e
@ 21646
<LVAR 0x008 4(r)>
<POP 21646-21688 Body>
<POP 21646-2165c Prologue> Σ0 ↓
<POP 2165c-2165e RegCacheLoad> Σ0 ↓
<POP 2165e-21680 Naked> Σ0 ↓
<Call 0x2165e 0x10398> {}
FSCALL_10398
<Const 0x21664 0x1.2> Δ-2 {[#1]}
<Const 0x21666 0x1.2> Δ-2 {[#1]|[#1]}
<Call 0x21668 0x10210> {[#1]|[#1]}
KC08_PortSomething(port: Word; b: Byte)
<POP 2166e-21670 StackAdj> Δ+4 {}
<MI 21670 MOVEA.L (A6+0x8),A0> {}
<MI 21674 LEA.L 0x20356,A1> {}
<BlockMove 10,A1,A0> {}
<POP 21680-21688 Epilogue> Σ0
@ 21d04
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 4(w)>
<POP 21d04-21d46 Body>
<POP 21d04-21d1a Prologue> Σ0 ↓
<POP 21d1a-21d1e Naked> Σ0 ↓
<MI 21d1a MOVEA.L (A6+0x8),A4> {}
<POP 21d1e-21d24 Naked> Σ0 ↓ →0x21d3e ←0x21d24
<MI 21d1e CMPA.W #0x1,A4> {}
<MI 21d22 BEQ 0x21d3e> {}
<POP 21d24-21d3e Naked> Σ0 →0x21d1e
<MI 21d24 MOVE.L A4,(A6-0x4)> {}
<MI 21d28 MOVEA.L (A4+0x8),A4> {}
<Pointer.fp 0x21d2c <LVAR -0x004 @ 4(w)>> Δ-4 {[@@-4]}
<Const 0x21d30 0xc.4> Δ-4 {[@@-4]|[##12]}
<Call 0x21d34 0x102a8> {[@@-4]|[##12]}
Free2(a : Pointer; b : Long)
<POP 21d3a-21d3c StackAdj> Δ+8 {}
<MI 21d3c BRA 0x21d1e> {}
<POP 21d3e-21d46 Epilogue> Σ0 ←0x21d1e
@ 21d46
<LVAR 0x008 4(r)>
<POP 21d46--0001 Body>
<POP 21d46-21d5c Prologue> Σ0 ↓
<POP 21d5c-21d66 Naked> Σ0 ↓ →0x21d70
<MI 21d5c MOVEA.L (A6+0x8),A0> {}
<MI 21d60 CMPA.W #0x1,A0> {}
<MI 21d64 BEQ 0x21d70> {}
<POP 21d66-21d70 Naked> Σ0 ↓
<MI 21d66 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Call 0x21d68 0x103e0> {[4, 'A0']}
WriteConsoleStringCrLf(str : String)
<POP 21d6e-21d70 StackAdj> Δ+4 {}
<POP 21d70-21d7e Naked> Σ0 ←0x21d5c
<POP 21d70-21d7e Bailout> {}
<MI 21d70 MOVEA.L (A5+0x8),A7>
<MI 21d74 MOVEA.W #0x0,A6>
<MI 21d78 JMP 0x25622>
@ 21da4
<LVAR 0x008 1(rw)>
<POP 21da4-21de2 Body>
<POP 21da4-21dba Prologue> Σ0 ↓
<POP 21dba-21dc8 Naked> Σ0 ↓ →0x21dce
<MI 21dba MOVE.L 0x27850,D0> {}
<MI 21dc0 CMP.L 0x27854,D0> {}
<MI 21dc6 BLE 0x21dce> {}
<POP 21dc8-21dce Naked> Σ0 →0x21dda
<MI 21dc8 CLR.B (A6+0x8)> {}
<MI 21dcc BRA 0x21dda> {}
<POP 21dce-21dda Naked> Σ0 ↓ ←0x21dba
<MI 21dce LEA.L 0x25848,A0> {}
<MI 21dd4 MOVE.B (A0+D0.L+#0x7),(A6+0x8)> {}
<POP 21dda-21de2 Epilogue> Σ0 ←0x21dc8
@ 21de2
<LVAR 0x008 1(rw)>
<POP 21de2-21e26 Body>
<POP 21de2-21df8 Prologue> Σ0 ↓
<POP 21df8-21dfe RegCacheLoad> Σ0 ↓
<POP 21dfe-21e08 Naked> Σ0 ↓ →0x21e0e
<MI 21dfe MOVE.L 0x27850,D0> {}
<MI 21e00 CMP.L 0x27854,D0> {}
<MI 21e06 BLE 0x21e0e> {}
<POP 21e08-21e0e Naked> Σ0 →0x21e1a
<MI 21e08 CLR.B (A6+0x8)> {}
<MI 21e0c BRA 0x21e1a> {}
<POP 21e0e-21e1a Naked> Σ0 ↓ ←0x21dfe
<MI 21e0e LEA.L 0x25848,A0> {}
<MI 21e14 MOVE.B (A0+D0.L+#0x7),(A6+0x8)> {}
<POP 21e1a-21e1e Naked> Σ0 ↓ ←0x21e08
<MI 21e1a ADDQ.L #0x1,D0> {}
<MI 21e1c MOVE.L D0,0x27850> {}
<POP 21e1e-21e26 Epilogue> Σ0
@ 21e26
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 21e26-21f00 Body>
<POP 21e26-21e3c Prologue> Σ0 ↓
<POP 21e3c-21e4e RegCacheLoad> Σ0 ↓
<POP 21e4e-21e5a Naked> Σ0 ↓ →0x21e64 ←0x21ef4
<POP 21e4e-21e50 StackAdj> Δ-2 {[-2-]}
<Call 0x21e50 0x21da4> {[-2-]}
<MI 21e54 MOVE.B (A7)+,D0> Δ+2 {}
<MI 21e56 CMP.B #0x5b,D0> {}
<MI 21e58 BNE 0x21e64> {}
<POP 21e5a-21e64 Naked> Σ0 →0x21ef4
<Call 0x21e5a 0x2512c> {}
<MI 21e60 BRA 0x21ef4> {}
<POP 21e64-21e70 Naked> Σ0 ↓ →0x21e88 ←0x21e4e
<MI 21e64 MOVE.L 0x27850,D6> {}
<POP 21e66-21e68 StackAdj> Δ-2 {[-2-]}
<Call 0x21e68 0x21de2> {[-2-]}
<MI 21e6c MOVE.B (A7)+,D5> Δ+2 {}
<MI 21e6e BNE 0x21e88> {}
<POP 21e70-21e86 Naked> Σ0 →0x21ef8
<MI 21e70 MOVEA.L (A6+0xc),A0> {}
<MI 21e74 LEA.L 0x21c5e,A1> {}
<BlockMove 8,A1,A0> {}
<MI 21e80 MOVEA.L (A6+0x8),A0> {}
<MI 21e82 MOVE.B #0x02,(A0)> {}
<MI 21e84 BRA 0x21ef8> {}
<POP 21e88-21e8c Naked> Σ0 ↓ →0x21e94 ←0x21e64
<MI 21e88 CMP.B #0x2c,D5> {}
<MI 21e8a BNE 0x21e94> {}
<POP 21e8c-21e94 Naked> Σ0 →0x21ee4
<MI 21e8c MOVEA.L (A6+0x8),A0> {}
<MI 21e8e MOVE.B #0x03,(A0)> {}
<MI 21e92 BRA 0x21ee4> {}
<POP 21e94-21e98 Naked> Σ0 ↓ →0x21ea0 ←0x21e88
<MI 21e94 CMP.B #0x3b,D5> {}
<MI 21e96 BNE 0x21ea0> {}
<POP 21e98-21ea0 Naked> Σ0 →0x21ee4
<MI 21e98 MOVEA.L (A6+0x8),A0> {}
<MI 21e9a MOVE.B #0x01,(A0)> {}
<MI 21e9e BRA 0x21ee4> {}
<POP 21ea0-21ea6 Naked> Σ0 ↓ →0x21eac ←0x21e94
<MI 21ea0 CMPI.B #0x5d,D5> {}
<MI 21ea4 BNE 0x21eac> {}
<POP 21ea6-21eac Naked> Σ0 →0x21ee4
<MI 21ea6 MOVEA.L (A6+0x8),A0> {}
<MI 21ea8 MOVE.B #0x02,(A0)> {}
<MI 21eaa BRA 0x21ee4> {}
<POP 21eac-21eb0 Naked> Σ0 ↓ ←0x21ea0
<MI 21eac MOVEA.L (A6+0x8),A0> {}
<MI 21eae CLR.B (A0)> {}
<POP 21eb0-21ebc Naked> Σ0 ↓ →0x21ec4 ←0x21ee2
<POP 21eb0-21eb2 StackAdj> Δ-2 {[-2-]}
<Call 0x21eb2 0x21da4> {[-2-]}
<MI 21eb6 MOVE.B (A7)+,D7> Δ+2 {}
<MI 21eb8 CMP.B #0x5b,D7> {}
<MI 21eba BNE 0x21ec4> {}
<POP 21ebc-21ec4 Naked> Σ0 →0x21ee2
<Call 0x21ebc 0x2512c> {}
<MI 21ec2 BRA 0x21ee2> {}
<POP 21ec4-21ec8 Naked> Σ0 ↓ →0x21ed6 ←0x21eb0
<MI 21ec4 CMP.B #0x3b,D7> {}
<MI 21ec6 BEQ 0x21ed6> {}
<POP 21ec8-21ecc Naked> Σ0 ↓ →0x21ed6
<MI 21ec8 CMP.B #0x2c,D7> {}
<MI 21eca BEQ 0x21ed6> {}
<POP 21ecc-21ed2 Naked> Σ0 ↓ →0x21ed6
<MI 21ecc CMPI.B #0x5d,D7> {}
<MI 21ed0 BEQ 0x21ed6> {}
<POP 21ed2-21ed6 Naked> Σ0 ↓ →0x21eda
<MI 21ed2 TST.B D7> {}
<MI 21ed4 BNE 0x21eda> {}
<POP 21ed6-21ed8 Naked> Σ0 →0x21ee4 ←0x21ec4 ←0x21ec8 ←0x21ecc
<MI 21ed6 BRA 0x21ee4> {}
<POP 21eda-21ee2 Naked> Σ0 ↓ ←0x21ed2
<POP 21eda-21edc StackAdj> Δ-2 {[-2-]}
<Call 0x21edc 0x21de2> {[-2-]}
<MI 21ee0 MOVE.B (A7)+,D7> Δ+2 {}
<POP 21ee2-21ee4 Naked> Σ0 →0x21eb0 ←0x21ebc
<MI 21ee2 BRA 0x21eb0> {}
<POP 21ee4-21ef4 Naked> Σ0 →0x21ef8 ←0x21e8c ←0x21e98 ←0x21ea6 ←0x21ed6
<MI 21ee4 MOVEA.L (A6+0xc),A0> {}
<MI 21ee8 MOVE.L D6,(A0)> {}
<MI 21eea MOVE.L 0x27850,(A0+0x4)> {}
<MI 21eee SUBQ.L #0x1,(A0+0x4)> {}
<MI 21ef2 BRA 0x21ef8> {}
<POP 21ef4-21ef8 Naked> Σ0 →0x21e4e ←0x21e5a
<MI 21ef4 BRA 0x21e4e> {}
<POP 21ef8-21f00 Epilogue> Σ0 ←0x21e70 ←0x21ee4
@ 21f00
<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 21f00-21f9e Body>
<POP 21f00-21f16 Prologue> Σ0 ↓
<POP 21f16-21f20 RegCacheLoad> Σ0 ↓
<POP 21f20-21f2c Naked> Σ0 ↓ →0x21f32
<MI 21f20 MOVEA.L (A6+0x8),A0> {}
<MI 21f24 MOVE.B (A0),D0> {}
<MI 21f26 CMPI.B #0x01,D0> {}
<MI 21f2a BEQ 0x21f32> {}
<POP 21f2c-21f32 Naked> Σ0 ↓ →0x21f40
<MI 21f2c CMPI.B #0x02,D0> {}
<MI 21f30 BNE 0x21f40> {}
<POP 21f32-21f40 Naked> Σ0 →0x21f7c ←0x21f20
<MI 21f32 MOVE.L 0x21c5e,(A6-0xc)> {}
<MI 21f36 MOVE.L 0x21c62,(A6-0x8)> {}
<MI 21f3c MOVE.B D0,(A6-0x4)> {}
<MI 21f3e BRA 0x21f7c> {}
<POP 21f40-21f52 Naked> Σ0 ↓ →0x21f6e ←0x21f2c ←0x21f76
<Pointer.fp 0x21f40 <LVAR -0x00c @ 4(w)>> Δ-4 {[@@-12]}
<Pointer.fp 0x21f42 <LVAR -0x004 @ 1(rw)>> Δ-4 {[@@-12]|[@@-4]}
<Call 0x21f44 0x21e26> {[@@-12]|[@@-4]}
<POP 21f48-21f4a StackAdj> Δ+8 {}
<MI 21f4a MOVEA.L (A6+0x8),A0> {}
<MI 21f4e TST.B (A6-0x4)> {}
<MI 21f50 BEQ 0x21f6e> {}
<POP 21f52-21f58 Naked> Σ0 ↓ →0x21f6e
<MI 21f52 MOVE.B (A0),D0> {}
<MI 21f54 CMP.B #0x03,D0> {}
<MI 21f56 BNE 0x21f6e> {}
<POP 21f58-21f6e Naked> Σ0 →0x21f76
<MI 21f58 MOVE.B (A6-0x4),D0> {}
<MI 21f5a EXTB.W D0> {}
<POP 0x21f5c LimitCheck 0x0 ≤ D0 ≤ 0x3> {}
<MI 21f5e MOVE.B D0,(A0)> {}
<MI 21f60 MOVE.L 0x21c5e,(A6-0xc)> {}
<MI 21f64 MOVE.L 0x21c62,(A6-0x8)> {}
<MI 21f6a CLR.B (A6-0x4)> {}
<MI 21f6c BRA 0x21f76> {}
<POP 21f6e-21f76 Naked> Σ0 ↓ ←0x21f40 ←0x21f52
<MI 21f6e MOVE.B (A6-0x4),D0> {}
<MI 21f70 EXTB.W D0> {}
<POP 0x21f72 LimitCheck 0x0 ≤ D0 ≤ 0x3> {}
<MI 21f74 MOVE.B D0,(A0)> {}
<POP 21f76-21f7c Naked> Σ0 ↓ →0x21f40 ←0x21f58
<MI 21f76 MOVE.B (A6-0x4),D0> {}
<MI 21f78 CMP.B #0x03,D0> {}
<MI 21f7a BEQ 0x21f40> {}
<POP 21f7c-21f96 Naked> Σ0 ↓ ←0x21f32
<MI 21f7c MOVEA.L (A6+0x10),A0> {}
<MI 21f80 LEA.L (A6-0xc),A1> {}
<BlockMove 8,A1,A0> {}
<MI 21f8a MOVEA.L (A6+0xc),A0> {}
<MI 21f8e MOVE.B (A6-0x4),D0> {}
<MI 21f90 EXTB.W D0> {}
<POP 0x21f92 LimitCheck 0x0 ≤ D0 ≤ 0x3> {}
<MI 21f94 MOVE.B D0,(A0)> {}
<POP 21f96-21f9e Epilogue> Σ0
@ 21f9e
<LVAR 0x008 4(rw)>
<LVAR -0x004 1(rw)>
<LVAR -0x010 2(rw)>
<POP 21f9e-220a6 Body>
<POP 21f9e-21fb4 Prologue> Σ0 ↓
<POP 21fb4-21fc2 RegCacheLoad> Σ0 ↓
<POP 21fc2-21fda Naked> Σ0 Δ-4 ↓
<MI 21fc2 MOVEQ.L #0x01,D6> {}
<MI 21fc4 CLR.W (A6-0x10)> {}
<MI 21fc6 MOVEQ.L #0x01,D5> {}
<POP 21fc8-21fca StackAdj> Δ-4 {[-4-]}
<MI 21fca MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x21fcc 0x102f0> {[-4-]|[4, '(A6+0x8)']}
ToUpper(a : String) : String
<POP 21fd2-21fd4 StackAdj> Δ+4 {[-4-]}
<MI 21fd4 MOVE.L (A7)+,(A6+0x8)> Δ+4 {}
<MI 21fd6 MOVEA.L (A6+0x8),A0> {}
<MI 21fd8 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<POP 21fda-21fe6 Naked> Σ-4 ↓ →0x22094 ←0x2207a
<MI 21fda MOVEA.L (A7),A0> {[-4-]}
<MI 21fdc MOVE.W (A0),D0> {[-4-]}
<MI 21fde EXTW.L D0> {[-4-]}
<MI 21fe0 CMP.L D0,D6> {[-4-]}
<MI 21fe2 BGT 0x22094> {[-4-]}
<POP 21fe6-21ff8 Naked> Σ-4 ↓ →0x21ffa
<MI 21fe6 CLR.L D0> {[-4-]}
<MI 21fe8 MOVE.B (A0+D6.L+#0x1),D0> {[-4-]}
<MI 21fec ANDI.W #0x007f,D0> {[-4-]}
<MI 21ff0 MOVE.B D0,(A6-0x4)> {[-4-]}
<MI 21ff2 CMPI.B #0x09,D0> {[-4-]}
<MI 21ff6 BNE 0x21ffa> {[-4-]}
<POP 21ff8-21ffa Naked> Σ-4 ↓
<MI 21ff8 MOVE.B #0x20,(A6-0x4)> {[-4-]}
<POP 21ffa-22006 Naked> Σ-4 ↓ →0x22036 ←0x21fe6
<MI 21ffa CLR.L D0> {[-4-]}
<MI 21ffc MOVE.B (A6-0x4),D0> {[-4-]}
<MI 21ffe SUB.W #0x20,D0> {[-4-]}
<MI 22000 CMPI.W #0x000c,D0> {[-4-]}
<MI 22004 BHI 0x22036> {[-4-]}
<POP 22006-22010 Naked> Σ-4 →0x2202e →0x2202a →0x22036 →0x22036 →0x22036 →0x22036 →0x22036 →0x22036 →0x22036 →0x22036 →0x22036 →0x22036 →0x22032
<MI 22006 ADD.W D0,D0> {[-4-]}
<MI 22008 SWITCH D0.W> {[-4-]}
<POP 2202a-2202c Naked> Σ-4 →0x22094 ←0x22006
<MI 2202a BRA 0x22094> {[-4-]}
<POP 2202e-22032 Naked> Σ-4 →0x22038 ←0x22006
<MI 2202e MOVEQ.L #0x00,D7> {[-4-]}
<MI 22030 BRA 0x22038> {[-4-]}
<POP 22032-22036 Naked> Σ-4 →0x22038 ←0x22006
<MI 22032 MOVEQ.L #0x01,D7> {[-4-]}
<MI 22034 BRA 0x22038> {[-4-]}
<POP 22036-22038 Naked> Σ-4 ↓ ←0x21ffa ←0x22006 ←0x22006 ←0x22006 ←0x22006 ←0x22006 ←0x22006 ←0x22006 ←0x22006 ←0x22006 ←0x22006
<MI 22036 MOVEQ.L #0x02,D7> {[-4-]}
<POP 22038-2205c Naked> Σ-4 →0x22062 →0x22064 →0x2206e ←0x2202e ←0x22032
<MI 22038 MOVEQ.L #0x03,D0> {[-4-]}
<MI 2203a MULS.W (A6-0x10),D0> {[-4-]}
<MI 2203c LEA.L 0x21c66,A0> {[-4-]}
<MI 22040 LEA.L (A0+D0.W),A0> {[-4-]}
<MI 22044 CLR.L D0> {[-4-]}
<MI 22046 MOVE.B (A0+D7.W),D0> {[-4-]}
<POP 0x2204a LimitCheck 0x0 ≤ D0 ≤ 0x2> {[-4-]}
<MI 22052 ADD.W D0,D0> {[-4-]}
<MI 22054 SWITCH D0.W> {[-4-]}
<POP 22062-22064 Naked> Σ-4 →0x2207a ←0x22038
<MI 22062 BRA 0x2207a> {[-4-]}
<POP 22064-2206e Naked> Σ-4 →0x2207a ←0x22038
<MI 22064 MOVEA.L (A7),A0> {[-4-]}
<MI 22066 MOVE.B (A6-0x4),(A0+D5.L+#0x1)> {[-4-]}
<MI 2206a ADDQ.L #0x1,D5> {[-4-]}
<MI 2206c BRA 0x2207a> {[-4-]}
<POP 2206e-2207a Naked> Σ-4 ↓ ←0x22038
<MI 2206e MOVEA.L (A7),A0> {[-4-]}
<MI 22070 MOVE.B #0x2c,(A0+D5.L+#0x1)> {[-4-]}
<MI 22076 ADDQ.L #0x1,D5> {[-4-]}
<MI 22078 SUBQ.L #0x1,D6> {[-4-]}
<POP 2207a-22094 Naked> Σ-4 →0x21fda ←0x22062 ←0x22064
<MI 2207a MOVEQ.L #0x03,D0> {[-4-]}
<MI 2207c MULS.W (A6-0x10),D0> {[-4-]}
<MI 2207e LEA.L 0x21c6f,A0> {[-4-]}
<MI 22082 LEA.L (A0+D0.W),A0> {[-4-]}
<MI 22086 CLR.L D0> {[-4-]}
<MI 22088 MOVE.B (A0+D7.W),D0> {[-4-]}
<MI 2208c MOVE.W D0,(A6-0x10)> {[-4-]}
<MI 2208e ADDQ.L #0x1,D6> {[-4-]}
<MI 22090 BRA 0x21fda> {[-4-]}
<POP 22094-2209e Naked> Σ-4 Δ+4 ↓ ←0x21fda ←0x2202a
<MI 22094 MOVEA.L (A7),A0> {[-4-]}
<MI 22096 MOVE.L D5,D0> {[-4-]}
<MI 22098 SUBQ.L #0x1,D0> {[-4-]}
<MI 2209a MOVE.W D0,(A0)> {[-4-]}
<POP 2209c-2209e StackAdj> Δ+4 {}
<POP 2209e-220a6 Epilogue> Σ0
@ 220a6
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x002 @ 1(r)>
<LVAR -0x00a @>
<LVAR -0x00e @ 4(r)>
<LVAR -0x014 @ 1(r)>
<POP 220a6-22152 Body>
<POP 220a6-220bc Prologue> Σ0 ↓
<POP 220bc-220c2 RegCacheLoad> Σ0 ↓
<POP 220c2-220d0 Naked> Σ0 ↓ →0x220d8
<POP 220c2-220c4 StackAdj> Δ-2 {[-2-]}
<Call 0x220c4 0x21da4> {[-2-]}
<MI 220c8 MOVE.B (A7)+,D0> Δ+2 {}
<MI 220ca CMPI.B #0x5b,D0> {}
<MI 220ce BNE 0x220d8> {}
<POP 220d0-220d8 Naked> Σ0 ↓
<POP 220d0-220d2 StackAdj> Δ-2 {[-2-]}
<Call 0x220d2 0x21de2> {[-2-]}
<MI 220d6 MOVE.B (A7)+,D7> Δ+2 {}
<POP 220d8-220e2 Naked> Σ0 ↓ ←0x220c2
<MI 220d8 MOVEA.L (A6+0xc),A0> {}
<MI 220dc MOVE.L #0x01,(A0)> {}
<MI 220de CLR.B (A6-0x14)> {}
<POP 220e2-220fc Naked> Σ0 ↓ →0x22132 ←0x22132
<Pointer.fp 0x220e2 <LVAR -0x00a @>> Δ-4 {[@@-10]}
<Pointer.fp 0x220e6 <LVAR -0x002 @ 1(r)>> Δ-4 {[@@-10]|[@@-2]}
<Pointer.fp 0x220ea <LVAR -0x014 @ 1(r)>> Δ-4 {[@@-10]|[@@-2]|[@@-20]}
<Call 0x220ee 0x21f00> {[@@-10]|[@@-2]|[@@-20]}
<POP 220f2-220f6 StackAdj> Δ+12 {}
<MI 220f6 TST.B (A6-0x2)> {}
<MI 220fa BNE 0x22132> {}
<POP 220fc-22128 Naked> Σ0 ↓ →0x2212c
<Pointer.fp 0x220fc <LVAR -0x00e @ 4(r)>> Δ-4 {[@@-14]}
<Const 0x220fe 0xc.4> Δ-4 {[@@-14]|[##12]}
<Call 0x22102 0x1029c> {[@@-14]|[##12]}
Malloc1(length : Long) : Pointer
<POP 22108-2210a StackAdj> Δ+8 {}
<MI 2210a MOVEA.L (A6-0xe),A0> {}
<MI 2210c MOVEA.L A0,A1> {}
<MI 2210e LEA.L (A6-0xa),A2> {}
<BlockMove 8,A2,A1> {}
<MI 2211a MOVE.L #0x01,(A0+0x8)> {}
<MI 2211e MOVEA.L (A6+0xc),A0> {}
<MI 22122 MOVEA.L (A0),A1> {}
<MI 22124 CMPA.W #0x01,A1> {}
<MI 22126 BNE 0x2212c> {}
<POP 22128-2212c Naked> Σ0 →0x22130
<MI 22128 MOVE.L (A6-0xe),(A0)> {}
<MI 2212a BRA 0x22130> {}
<POP 2212c-22130 Naked> Σ0 ↓ ←0x220fc
<MI 2212c MOVE.L (A6-0xe),(A4+0x8)> {}
<POP 22130-22132 Naked> Σ0 ↓ ←0x22128
<MI 22130 MOVEA.L (A6-0xe),A4> {}
<POP 22132-22138 Naked> Σ0 ↓ →0x220e2 ←0x220e2
<MI 22132 TST.B (A6-0x2)> {}
<MI 22136 BEQ 0x220e2> {}
<POP 22138-22148 Naked> Σ0 ↓ →0x2214a
<MI 22138 MOVEA.L (A6+0x8),A0> {}
<MI 2213c CLR.B (A0)> {}
<MI 2213e MOVE.B (A6-0x2),D0> {}
<MI 22142 CMPI.B #0x02,D0> {}
<MI 22146 BNE 0x2214a> {}
<POP 22148-2214a Naked> Σ0 ↓
<MI 22148 ADDQ.B #0x1,(A0)> {}
<POP 2214a-22152 Epilogue> Σ0 ←0x22138
@ 22152
<LVAR 0x00c 4(w)>
<LVAR 0x008 4(r)>
<POP 22152-22188 Body>
<POP 22152-22168 Prologue> Σ0 ↓
<POP 22168-2216e Naked> Σ0 ↓
<MI 22168 MOVEQ.L #-0x01,D7> {}
<MI 2216a MOVEA.L (A6+0x8),A4> {}
<POP 2216e-22174 Naked> Σ0 ↓ →0x2217c ←0x22174
<MI 2216e CMPA.W #0x1,A4> {}
<MI 22172 BEQ 0x2217c> {}
<POP 22174-2217c Naked> Σ0 →0x2216e
<MI 22174 ADDQ.L #0x1,D7> {}
<MI 22176 MOVEA.L (A4+0x8),A4> {}
<MI 2217a BRA 0x2216e> {}
<POP 2217c-22180 Naked> Σ0 ↓ ←0x2216e
<MI 2217c MOVE.L D7,(A6+0xc)> {}
<POP 22180-22188 Epilogue> Σ0
@ 22188
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 22188-22214 Body>
<POP 22188-2219e Prologue> Σ0 ↓
<POP 2219e-221a0 RegCacheLoad> Σ0 ↓
<POP 221a0-221b4 Naked> Σ0 ↓ →0x2220c
<POP 221a0-221a2 StackAdj> Δ-4 {[-4-]}
<MI 221a2 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']}
<Call 0x221a6 0x22152> {[-4-]|[4, '(A6+0xc)']}
<POP 221aa-221ac StackAdj> Δ+4 {[-4-]}
<MI 221ac MOVE.L (A7)+,D0> Δ+4 {}
<MI 221ae CMP.L (A6+0x8),D0> {}
<MI 221b2 BEQ 0x2220c> {}
<POP 221b4-2220c Naked> Σ0 ↓
<MI 221b4 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<Call 0x221b8 0x21d04> {[4, '(A6+0xc)']}
<POP 221bc-221be StackAdj> Δ+4 {}
<Blob 0x221be [32] @> Δ-32 {[«32""»]}
<Blob 0x221ca [10] (A6+0x1a)> Δ-10 {[«32""»]|[«10»]}
<POP 221d6-221d8 StackAdj> Δ-8 {[«32""»]|[«10»]|[-8-]}
<Lit 0x221d8 32> {[«32""»]|[«10»]|[-4-]|[$$Wrong number of arguments for :_]}
<POP 221e8-221ea StackAdj> Δ-4 {[«32""»]|[«10»]|[-4-]|[$$Wrong number of arguments for :_]|[-4-]}
<Lit 0x221ea> {[«32""»]|[«10»]|[-4-]|[$$Wrong number of arguments for :_]|[$$…]}
<Pointer.sp 0x221ea 12> Δ-4
<Const 0x221ee 0x1.2> Δ-2
<Const 0x221f0 0xa.2> Δ-2
<Call 0x221f4 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 221fa-221fc StackAdj> Δ+8
<Call 0x221fc 0x102d0> {[«32""»]|[«10»]|[-4-]|[$$Wrong number of arguments for :_]|[$$…]}
StringCat2(a, b : String) : String
<POP 22202-22204 StackAdj> Δ+8 {[«32""»]|[«10»]|[-4-]}
<Call 0x22204 0x21d46> {[«32""»]|[«10»]|[-4-]}
<POP 22208-2220c StackAdj> Δ+46 {}
<POP 2220c-22214 Epilogue> Σ0 ←0x221a0
@ 22214
<LVAR 0x014 1(rw)>
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 22214-2229a Body> Δ-4
<POP 22214-2222a Prologue> Σ0 ↓
<POP 2222a-2223e Naked> Σ0 ↓ →0x2228c
<MI 2222a CLR.B (A6+0x14)> {}
<MI 2222e MOVE.L (A6+0x10),D0> {}
<MI 22232 ADD.L (A6+0x8),D0> {}
<MI 22236 CMP.L 0x27854,D0> {}
<MI 2223c BGT 0x2228c> {}
<POP 2223e-22244 Naked> Σ0 Δ-4 ↓
<MI 2223e MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<MI 22242 MOVEQ.L #0x01,D7> {[4, '(A6+0x8)']}
<POP 22244-22248 Naked> Σ-4 ↓ →0x2228a ←0x22286
<MI 22244 CMP.L (A7),D7> {[-4-]}
<MI 22246 BGT 0x2228a> {[-4-]}
<POP 22248-22282 Naked> Σ-4 ↓ →0x22286
<MI 22248 MOVE.L (A6+0x10),D0> {[-4-]}
<MI 2224c ADD.L D7,D0> {[-4-]}
<MI 2224e SUBQ.L #0x1,D0> {[-4-]}
<POP 0x22250 LimitCheck 0x0 ≤ D0 ≤ 0x1fff> {[-4-]}
<MI 2225a LEA.L 0x25848,A0> {[-4-]}
<MI 22260 MOVE.L (A6+0xc),D1> {[-4-]}
<MI 22264 ADD.L D7,D1> {[-4-]}
<MI 22266 SUBQ.L #0x1,D1> {[-4-]}
<MI 22268 SUBQ.L #0x1,D1> {[-4-]}
<POP 0x2226a LimitCheck 0x0 ≤ D1 ≤ 0x3e> {[-4-]}
<MI 22274 LEA.L 0x21860,A1> {[-4-]}
<MI 22278 MOVE.B (A0+D0.L+#0x8),D0> {[-4-]}
<MI 2227c CMP.B (A1+D1.L),D0> {[-4-]}
<MI 22280 BEQ 0x22286> {[-4-]}
<POP 22282-22286 Naked> Σ-4 Δ+4 →0x22292
<POP 22282-22284 StackAdj> Δ+4 {}
<MI 22284 BRA 0x22292> {}
<POP 22286-2228a Naked> Σ-4 ↓ →0x22244 ←0x22248
<MI 22286 ADDQ.L #0x1,D7> {[-4-]}
<MI 22288 BVC 0x22244> {[-4-]}
<POP 2228a-2228c Naked> Σ-4 Δ+4 ↓ ←0x22244
<POP 2228a-2228c StackAdj> Δ+4 {}
<POP 2228c-22292 Naked> Σ0 ↓ ←0x2222a
<MI 2228c MOVE.B #0x01,(A6+0x14)> {}
<POP 22292-2229a Epilogue> Σ0 ←0x22282
@ 2229a
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 2229a-22324 Body>
<POP 2229a-222b0 Prologue> Σ0 ↓
<POP 222b0-222ba RegCacheLoad> Σ0 ↓
<POP 222ba-222be Naked> Σ0 ↓ →0x222fc
<MI 222ba TST.L (A6+0x8)> {}
<MI 222bc BGE 0x222fc> {}
<POP 222be-222cc Naked> Σ0 ↓ →0x222fc
<MI 222be MOVE.L (A6+0x8),D0> {}
<MI 222c0 NEG.L D0> {}
<MI 222c2 ADD.L 0x27854,D0> {}
<MI 222c4 CMPI.L #0x00002000,D0> {}
<MI 222ca BLE 0x222fc> {}
<POP 222cc-222fc Naked> Σ0 ↓
<Blob 0x222cc [28] @> Δ-28 {[«28""»]}
<POP 222de-222e0 StackAdj> Δ-4 {[«28""»]|[-4-]}
<Lit 0x222e0 27> {[«28""»]|[$$Evaluation buffer overflow.]}
<Call 0x222f4 0x21d46> {[«28""»]|[$$Evaluation buffer overflow.]}
<POP 222f8-222fc StackAdj> Δ+32 {}
<POP 222fc-2231c Naked> Σ0 ↓ ←0x222ba ←0x222be
<MI 222fc LEA.L 0x25850,A0> {}
<MI 22302 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Blob 0x22304 [4] 0x27854> Δ-4 {[4, 'A0']|[«4»]}
<MI 22306 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, 'A0']|[«4»]|[4, '(A6+0xc)']}
<MI 2230a MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, 'A0']|[«4»]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x2230c 0x10364> {[4, 'A0']|[«4»]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
MovStringTail(Base, Len, Ptr, Delta)
<POP 22312-22316 StackAdj> Δ+16 {}
<MI 22316 MOVE.L 0x27854,D0> {}
<MI 22318 SUB.L (A6+0x8),D0> {}
<MI 2231a MOVE.L D0,0x27854> {}
<POP 2231c-22324 Epilogue> Σ0
@ 22324
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 22324-223ae Body>
<POP 22324-2233a Prologue> Σ0 ↓
<POP 2233a-2233e RegCacheLoad> Σ0 ↓
<POP 2233e-2235e Naked> Σ0 Δ-8 ↓
<MI 2233e MOVEA.L (A6+0x8),A0> {}
<MI 22342 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 22344 MOVEA.L (A6+0xc),A1> {[4, 'A0']}
<MI 22346 MOVE.L (A1),-(A7)> Δ-4 {[4, 'A0']|[4, '(A1)']}
<MI 22348 MOVE.W (A0),D0> {[4, 'A0']|[4, '(A1)']}
<MI 2234a EXTW.L D0> {[4, 'A0']|[4, '(A1)']}
<MI 2234c NEG.L D0> {[4, 'A0']|[4, '(A1)']}
<MI 2234e MOVE.L D0,-(A7)> Δ-4 {[4, 'A0']|[4, '(A1)']|[4, 'D0']}
<Call 0x22350 0x2229a> {[4, 'A0']|[4, '(A1)']|[4, 'D0']}
<POP 22354-22356 StackAdj> Δ+8 {[4, 'A0']}
<MI 22356 MOVE.W (A0),D0> {[4, 'A0']}
<MI 22358 EXTW.L D0> {[4, 'A0']}
<MI 2235a MOVE.L D0,-(A7)> Δ-4 {[4, 'A0']|[4, 'D0']}
<MI 2235c MOVEQ.L #0x01,D7> {[4, 'A0']|[4, 'D0']}
<POP 2235e-22362 Naked> Σ-8 ↓ →0x22398 ←0x22362
<MI 2235e CMP.L (A7),D7> {[-8-]}
<MI 22360 BGT 0x22398> {[-8-]}
<POP 22362-22398 Naked> Σ-8 ↓ →0x2235e
<MI 22362 MOVEA.L (A6+0xc),A0> {[-8-]}
<MI 22364 MOVE.L D7,D0> {[-8-]}
<MI 22366 ADD.L (A0),D0> {[-8-]}
<MI 22368 SUBQ.L #0x1,D0> {[-8-]}
<MI 2236a SUBQ.L #0x1,D0> {[-8-]}
<POP 0x2236c LimitCheck 0x0 ≤ D0 ≤ 0x1fff> {[-8-]}
<MI 22376 LEA.L 0x25848,A0> {[-8-]}
<MI 2237c MOVE.L D7,D1> {[-8-]}
<MI 2237e SUBQ.L #0x1,D1> {[-8-]}
<POP 0x22380 LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-8-]}
<MI 2238a MOVEA.L (A7+0x4),A1> {[-8-]}
<MI 2238e MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x8)> {[-8-]}
<MI 22394 ADDQ.L #0x1,D7> {[-8-]}
<MI 22396 BVC 0x2235e> {[-8-]}
<POP 22398-223a6 Naked> Σ-8 Δ+8 ↓ ←0x2235e
<POP 22398-2239a StackAdj> Δ+4 {[-4-]}
<MI 2239a MOVEA.L (A6+0xc),A0> {[-4-]}
<MI 2239c MOVEA.L (A7),A1> {[-4-]}
<MI 2239e MOVE.W (A1),D0> {[-4-]}
<MI 223a0 EXTW.L D0> {[-4-]}
<MI 223a2 ADD.L D0,(A0)> {[-4-]}
<POP 223a4-223a6 StackAdj> Δ+4 {}
<POP 223a6-223ae Epilogue> Σ0
@ 223ae
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 223ae-2252e Body>
<POP 223ae-223c4 Prologue> Σ0 ↓
<POP 223c4-223d2 RegCacheLoad> Σ0 ↓
<POP 223d2-223e4 Naked> Σ0 ↓
<MI 223d2 MOVEQ.L #0x00,D7> {}
<MI 223d4 MOVEA.L (A6+0xc),A0> {}
<MI 223d8 CLR.L (A0)> {}
<MI 223da MOVEA.L (A6+0x8),A0> {}
<MI 223dc CLR.L (A0)> {}
<MI 223de MOVE.L 0x27850,D6> {}
<POP 223e4-22404 Naked> Σ0 ↓ →0x224d6 ←0x224e0 ←0x224e6
<MI 223e4 MOVE.L D6,D0> {}
<MI 223e6 SUBQ.L #0x1,D0> {}
<POP 0x223e8 LimitCheck 0x0 ≤ D0 ≤ 0x1fff> {}
<MI 223f2 LEA.L 0x25848,A0> {}
<MI 223f8 MOVE.B (A0+D0.L+#0x8),D0> {}
<MI 223fc CMPI.B #0x5b,D0> {}
<MI 22400 BNE 0x224d6> {}
<POP 22404-22418 Naked> Σ0 ↓ →0x22496
<POP 22404-22406 StackAdj> Δ-2 {[-2-]}
<MI 22406 MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x22408 0x1.4> Δ-4 {[-2-]|[4, 'D6']|[##1]}
<Const 0x2240c 0x3.4> Δ-4 {[-2-]|[4, 'D6']|[##1]|[##3]}
<Call 0x22410 0x22214> {[-2-]|[4, 'D6']|[##1]|[##3]}
<POP 22412-22414 StackAdj> Δ+12 {[-2-]}
<MI 22414 TST.B (A7)+> Δ+2 {}
<MI 22416 BNE 0x22496> {}
<POP 22418-2242a Naked> Σ0 ↓ →0x22496
<POP 22418-2241a StackAdj> Δ-2 {[-2-]}
<MI 2241a MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x2241c 0x4.4> Δ-4 {[-2-]|[4, 'D6']|[##4]}
<Const 0x2241e 0x3.4> Δ-4 {[-2-]|[4, 'D6']|[##4]|[##3]}
<Call 0x22422 0x22214> {[-2-]|[4, 'D6']|[##4]|[##3]}
<POP 22424-22426 StackAdj> Δ+12 {[-2-]}
<MI 22426 TST.B (A7)+> Δ+2 {}
<MI 22428 BNE 0x22496> {}
<POP 2242a-2243c Naked> Σ0 ↓ →0x22496
<POP 2242a-2242c StackAdj> Δ-2 {[-2-]}
<MI 2242c MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x2242e 0x7.4> Δ-4 {[-2-]|[4, 'D6']|[##7]}
<Const 0x22432 0x4.4> Δ-4 {[-2-]|[4, 'D6']|[##7]|[##4]}
<Call 0x22434 0x22214> {[-2-]|[4, 'D6']|[##7]|[##4]}
<POP 22436-22438 StackAdj> Δ+12 {[-2-]}
<MI 22438 TST.B (A7)+> Δ+2 {}
<MI 2243a BNE 0x22496> {}
<POP 2243c-2244e Naked> Σ0 ↓ →0x22496
<POP 2243c-2243e StackAdj> Δ-2 {[-2-]}
<MI 2243e MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x22440 0xb.4> Δ-4 {[-2-]|[4, 'D6']|[##11]}
<Const 0x22444 0x4.4> Δ-4 {[-2-]|[4, 'D6']|[##11]|[##4]}
<Call 0x22446 0x22214> {[-2-]|[4, 'D6']|[##11]|[##4]}
<POP 22448-2244a StackAdj> Δ+12 {[-2-]}
<MI 2244a TST.B (A7)+> Δ+2 {}
<MI 2244c BNE 0x22496> {}
<POP 2244e-22460 Naked> Σ0 ↓ →0x22496
<POP 2244e-22450 StackAdj> Δ-2 {[-2-]}
<MI 22450 MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x22452 0xf.4> Δ-4 {[-2-]|[4, 'D6']|[##15]}
<Const 0x22456 0x4.4> Δ-4 {[-2-]|[4, 'D6']|[##15]|[##4]}
<Call 0x22458 0x22214> {[-2-]|[4, 'D6']|[##15]|[##4]}
<POP 2245a-2245c StackAdj> Δ+12 {[-2-]}
<MI 2245c TST.B (A7)+> Δ+2 {}
<MI 2245e BNE 0x22496> {}
<POP 22460-22472 Naked> Σ0 ↓ →0x22496
<POP 22460-22462 StackAdj> Δ-2 {[-2-]}
<MI 22462 MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x22464 0x13.4> Δ-4 {[-2-]|[4, 'D6']|[##19]}
<Const 0x22468 0x4.4> Δ-4 {[-2-]|[4, 'D6']|[##19]|[##4]}
<Call 0x2246a 0x22214> {[-2-]|[4, 'D6']|[##19]|[##4]}
<POP 2246c-2246e StackAdj> Δ+12 {[-2-]}
<MI 2246e TST.B (A7)+> Δ+2 {}
<MI 22470 BNE 0x22496> {}
<POP 22472-22484 Naked> Σ0 ↓ →0x22496
<POP 22472-22474 StackAdj> Δ-2 {[-2-]}
<MI 22474 MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x22476 0x17.4> Δ-4 {[-2-]|[4, 'D6']|[##23]}
<Const 0x2247a 0x4.4> Δ-4 {[-2-]|[4, 'D6']|[##23]|[##4]}
<Call 0x2247c 0x22214> {[-2-]|[4, 'D6']|[##23]|[##4]}
<POP 2247e-22480 StackAdj> Δ+12 {[-2-]}
<MI 22480 TST.B (A7)+> Δ+2 {}
<MI 22482 BNE 0x22496> {}
<POP 22484-22496 Naked> Σ0 ↓ →0x2249a
<POP 22484-22486 StackAdj> Δ-2 {[-2-]}
<MI 22486 MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x22488 0x1b.4> Δ-4 {[-2-]|[4, 'D6']|[##27]}
<Const 0x2248c 0x4.4> Δ-4 {[-2-]|[4, 'D6']|[##27]|[##4]}
<Call 0x2248e 0x22214> {[-2-]|[4, 'D6']|[##27]|[##4]}
<POP 22490-22492 StackAdj> Δ+12 {[-2-]}
<MI 22492 TST.B (A7)+> Δ+2 {}
<MI 22494 BEQ 0x2249a> {}
<POP 22496-2249a Naked> Σ0 →0x224d6 ←0x22404 ←0x22418 ←0x2242a ←0x2243c ←0x2244e ←0x22460 ←0x22472
<MI 22496 ADDQ.L #0x1,D7> {}
<MI 22498 BRA 0x224d6> {}
<POP 2249a-2249e Naked> Σ0 ↓ →0x224ba ←0x22484
<MI 2249a TST.L D7> {}
<MI 2249c BNE 0x224ba> {}
<POP 2249e-224b2 Naked> Σ0 ↓ →0x224ba
<POP 2249e-224a0 StackAdj> Δ-2 {[-2-]}
<MI 224a0 MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x224a2 0x1f.4> Δ-4 {[-2-]|[4, 'D6']|[##31]}
<Const 0x224a6 0x5.4> Δ-4 {[-2-]|[4, 'D6']|[##31]|[##5]}
<Call 0x224aa 0x22214> {[-2-]|[4, 'D6']|[##31]|[##5]}
<POP 224ac-224ae StackAdj> Δ+12 {[-2-]}
<MI 224ae TST.B (A7)+> Δ+2 {}
<MI 224b0 BEQ 0x224ba> {}
<POP 224b2-224b6 Naked> Σ0 ↓
<MI 224b2 MOVEA.L (A6+0xc),A0> {}
<POP 224b6-224ba Naked> Σ0 →0x224d6 ←0x224d0
<MI 224b6 MOVE.L D6,(A0)> {}
<MI 224b8 BRA 0x224d6> {}
<POP 224ba-224cc Naked> Σ0 ↓ →0x224d6 ←0x2249a ←0x2249e
<POP 224ba-224bc StackAdj> Δ-2 {[-2-]}
<MI 224bc MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x224be 0x24.4> Δ-4 {[-2-]|[4, 'D6']|[##36]}
<Const 0x224c2 0x4.4> Δ-4 {[-2-]|[4, 'D6']|[##36]|[##4]}
<Call 0x224c4 0x22214> {[-2-]|[4, 'D6']|[##36]|[##4]}
<POP 224c6-224c8 StackAdj> Δ+12 {[-2-]}
<MI 224c8 TST.B (A7)+> Δ+2 {}
<MI 224ca BEQ 0x224d6> {}
<POP 224cc-224d0 Naked> Σ0 ↓ →0x224d4
<MI 224cc TST.L D7> {}
<MI 224ce BNE 0x224d4> {}
<POP 224d0-224d4 Naked> Σ0 →0x224b6
<MI 224d0 MOVEA.L (A6+0x8),A0> {}
<MI 224d2 BRA 0x224b6> {}
<POP 224d4-224d6 Naked> Σ0 ↓ ←0x224cc
<MI 224d4 SUBQ.L #0x1,D7> {}
<POP 224d6-224e0 Naked> Σ0 ↓ →0x224ee ←0x223e4 ←0x22496 ←0x224b6 ←0x224ba
<MI 224d6 ADDQ.L #0x1,D6> {}
<MI 224d8 CMP.L 0x27854,D6> {}
<MI 224de BGT 0x224ee> {}
<POP 224e0-224e6 Naked> Σ0 ↓ →0x223e4
<MI 224e0 TST.L D7> {}
<MI 224e2 BNE 0x223e4> {}
<POP 224e6-224ee Naked> Σ0 ↓ →0x223e4
<MI 224e6 MOVEA.L (A6+0x8),A0> {}
<MI 224e8 TST.L (A0)> {}
<MI 224ea BEQ 0x223e4> {}
<POP 224ee-224f6 Naked> Σ0 ↓ →0x22526 ←0x224d6
<MI 224ee CMP.L 0x27854,D6> {}
<MI 224f4 BLE 0x22526> {}
<POP 224f6-22526 Naked> Σ0 ↓
<Blob 0x224f6 [28] @> Δ-28 {[«28""»]}
<POP 22508-2250a StackAdj> Δ-4 {[«28""»]|[-4-]}
<Lit 0x2250a 27> {[«28""»]|[$$Unbalanced [ELSE] or [END]!]}
<Call 0x2251e 0x21d46> {[«28""»]|[$$Unbalanced [ELSE] or [END]!]}
<POP 22522-22526 StackAdj> Δ+32 {}
<POP 22526-2252e Epilogue> Σ0 ←0x224ee
@ 2252e
<LVAR -0x004 @ 4(r)>
<LVAR -0x008 @ 4(rw)>
<POP 2252e-22574 Body>
<POP 2252e-22544 Prologue> Σ0 ↓
<POP 22544-2254c RegCacheLoad> Σ0 ↓
<POP 2254c-2255a Naked> Σ0 ↓ →0x2255c
<Pointer.fp 0x2254c <LVAR -0x008 @ 4(rw)>> Δ-4 {[@@-8]}
<Pointer.fp 0x2254e <LVAR -0x004 @ 4(r)>> Δ-4 {[@@-8]|[@@-4]}
<Call 0x22550 0x223ae> {[@@-8]|[@@-4]}
<POP 22554-22556 StackAdj> Δ+8 {}
<MI 22556 TST.L (A6-0x8)> {}
<MI 22558 BNE 0x2255c> {}
<POP 2255a-2255c Naked> Σ0 ↓
<MI 2255a MOVE.L (A6-0x4),(A6-0x8)> {}
<POP 2255c-2256c Naked> Σ0 ↓ ←0x2254c
<MI 2255c MOVE.L (A6-0x4),D0> {}
<MI 2255e ADDQ.L #0x5,D0> {}
<MI 22560 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 22562 SUB.L (A6-0x8),D0> {[4, 'D0']}
<MI 22564 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']|[4, 'D0']}
<Call 0x22566 0x2229a> {[4, 'D0']|[4, 'D0']}
<POP 2256a-2256c StackAdj> Δ+8 {}
<POP 2256c-22574 Epilogue> Σ0
@ 22574
<LVAR -0x004 @ 4(r)>
<LVAR -0x008 @ 4(r)>
<POP 22574-225d0 Body>
<POP 22574-2258a Prologue> Σ0 ↓
<POP 2258a-22592 RegCacheLoad> Σ0 ↓
<POP 22592-225a0 Naked> Σ0 ↓ →0x225a6
<Pointer.fp 0x22592 <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-8]}
<Pointer.fp 0x22594 <LVAR -0x004 @ 4(r)>> Δ-4 {[@@-8]|[@@-4]}
<Call 0x22596 0x223ae> {[@@-8]|[@@-4]}
<POP 2259a-2259c StackAdj> Δ+8 {}
<MI 2259c TST.L (A6-0x8)> {}
<MI 2259e BNE 0x225a6> {}
<POP 225a0-225a6 Naked> Σ0 →0x225b8
<MI 225a0 MOVE.L (A6-0x4),D0> {}
<MI 225a2 ADDQ.L #0x5,D0> {}
<MI 225a4 BRA 0x225b8> {}
<POP 225a6-225b8 Naked> Σ0 ↓ ←0x22592
<MI 225a6 MOVE.L (A6-0x4),-(A7)> Δ-4 {[4, '(A6-0x4)']}
<MI 225a8 ADDQ.L #0x5,(A7)> {[-4-]}
<Const 0x225aa 0x5.4> Δ-4 {[-4-]|[##5]}
<Call 0x225ae 0x2229a> {[-4-]|[##5]}
<POP 225b2-225b4 StackAdj> Δ+8 {}
<MI 225b4 MOVE.L (A6-0x8),D0> {}
<MI 225b6 ADDQ.L #0x6,D0> {}
<POP 225b8-225c8 Naked> Σ0 ↓ ←0x225a0
<MI 225b8 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 225ba SUB.L 0x27850,D0> {[4, 'D0']}
<MI 225c0 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']|[4, 'D0']}
<Call 0x225c2 0x2229a> {[4, 'D0']|[4, 'D0']}
<POP 225c6-225c8 StackAdj> Δ+8 {}
<POP 225c8-225d0 Epilogue> Σ0
@ 225d0
<LVAR 0x008 4(r)>
<LVAR -0x004 @>
<LVAR -0x008 @ 4(r)>
<LVAR -0x00c @ 4(rw)>
<LVAR -0x010 4(rw)>
<LVAR -0x014 4(rw)>
<POP 225d0-226e4 Body>
<POP 225d0-225e6 Prologue> Σ0 ↓
<POP 225e6-225fe RegCacheLoad> Σ0 ↓
<POP 225fe-22602 Naked> Σ0 ↓ →0x2260c
<MI 225fe TST.B 0x27862> {}
<MI 22600 BEQ 0x2260c> {}
<POP 22602-22606 Naked> Σ0 ↓ →0x2260c
<MI 22602 TST.L 0x27868> {}
<MI 22604 BNE 0x2260c> {}
<POP 22606-2260c Naked> Σ0 ↓
<MI 22606 MOVE.L (A6+0x8),0x27868> {}
<MI 2260a SUBQ.L #0x1,0x27868> {}
<POP 2260c-22612 Naked> Σ0 ↓ →0x226dc ←0x225fe ←0x22602
<MI 2260c TST.B 0x27862> {}
<MI 2260e BNE 0x226dc> {}
<POP 22612-22646 Naked> Σ0 ↓ →0x22660
<MI 22612 MOVE.L (A6+0x8),0x27850> {}
<MI 22616 ADDQ.L #0x6,0x27850> {}
<Pointer.fp 0x22618 <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-8]}
<Pointer.fp 0x2261a <LVAR -0x004 @>> Δ-4 {[@@-8]|[@@-4]}
<Call 0x2261e 0x220a6> {[@@-8]|[@@-4]}
<POP 22622-22624 StackAdj> Δ+8 {}
<Blob 0x22624 [10] @> Δ-10 {[«10""»]}
<MI 22630 MOVE.L (A6-0x8),-(A7)> Δ-4 {[«10""»]|[4, '(A6-0x8)']}
<Const 0x22632 0x0.4> Δ-4 {[«10""»]|[4, '(A6-0x8)']|[##0]}
<Call 0x22636 0x22188> {[«10""»]|[4, '(A6-0x8)']|[##0]}
<POP 2263a-2263e StackAdj> Δ+18 {}
<MI 2263e TST.B 0x2786c> {}
<MI 22644 BEQ 0x22660> {}
<POP 22646-22660 Naked> Σ0 →0x22674
<POP 22646-22648 StackAdj> Δ-8 {[-8-]}
<MI 22648 MOVE.L (A6-0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x8)']}
<Const 0x2264a 0x0.4> Δ-4 {[-8-]|[4, '(A6-0x8)']|[##0]}
<Call 0x2264e 0x22aa0> {[-8-]|[4, '(A6-0x8)']|[##0]}
<POP 22654-22656 StackAdj> Δ+8 {[-8-]}
<MI 22656 MOVE.L (A7)+,(A6-0x14)> Δ+4 {[-4-]}
<MI 2265a MOVE.L (A7)+,(A6-0x10)> Δ+4 {}
<MI 2265e BRA 0x22674> {}
<POP 22660-22674 Naked> Σ0 ↓ ←0x22612
<POP 22660-22662 StackAdj> Δ-4 {[-4-]}
<MI 22662 MOVE.L (A6-0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x8)']}
<Const 0x22664 0x0.4> Δ-4 {[-4-]|[4, '(A6-0x8)']|[##0]}
<Call 0x22668 0x22a6e> {[-4-]|[4, '(A6-0x8)']|[##0]}
<POP 2266e-22670 StackAdj> Δ+8 {[-4-]}
<MI 22670 MOVE.L (A7)+,(A6-0xc)> Δ+4 {}
<POP 22674-2268a Naked> Σ0 ↓ →0x226b4 ←0x22646
<MI 22674 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<Call 0x22676 0x21d04> {[4, '(A6-0x8)']}
<POP 2267a-2267c StackAdj> Δ+4 {}
<MI 2267c MOVE.L 0x27850,0x27864> {}
<MI 22682 TST.B 0x2786c> {}
<MI 22688 BEQ 0x226b4> {}
<POP 2268a-226b4 Naked> Σ0 →0x226dc
<POP 2268a-2268c StackAdj> Δ-2 {[-2-]}
<MI 2268c MOVE.L (A6-0x10),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x10)']}
<MI 22690 MOVE.L (A6-0x14),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<Blob 0x22694 [4] 0x27876> Δ-4 {[-2-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']|[«4»]}
<Blob 0x2269a [4] 0x27872> Δ-4 {[-2-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']|[«4»]|[«4»]}
<Call 0x226a0 0x1032c> {[-2-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']|[«4»]|[«4»]}
IsEqual(a, b : Quad) : Bool
<POP 226a6-226aa StackAdj> Δ+16 {[-2-]}
<MI 226aa MOVE.B (A7)+,D0> Δ+2 {}
<MI 226ac EXTB.W D0> {}
<POP 0x226ae LimitCheck 0x0 ≤ D0 ≤ 0x1> {}
<MI 226b0 MOVE.B D0,0x27862> {}
<MI 226b2 BRA 0x226dc> {}
<POP 226b4-226dc Naked> Σ0 ↓ ←0x22674
<POP 226b4-226b6 StackAdj> Δ-2 {[-2-]}
<MI 226b6 MOVE.L (A6-0xc),-(A7)> Δ-4 {[-2-]|[4, '(A6-0xc)']}
<Blob 0x226ba [4] 0x2786e> Δ-4 {[-2-]|[4, '(A6-0xc)']|[«4»]}
<Call 0x226c0 0x102c8> {[-2-]|[4, '(A6-0xc)']|[«4»]}
StringEqual(a, b : String) : Byte
<POP 226c6-226c8 StackAdj> Δ+8 {[-2-]}
<MI 226c8 MOVE.B (A7)+,D0> Δ+2 {}
<MI 226ca EXTB.W D0> {}
<POP 0x226cc LimitCheck 0x0 ≤ D0 ≤ 0x1> {}
<MI 226ce MOVE.B D0,0x27862> {}
<Pointer.fp 0x226d0 <LVAR -0x00c @ 4(rw)>> Δ-4 {[@@-12]}
<Call 0x226d4 0x102bc> {[@@-12]}
FreeString(VAR a : String)
<POP 226da-226dc StackAdj> Δ+4 {}
<POP 226dc-226e4 Epilogue> Σ0 ←0x2260c ←0x2268a
@ 226e4
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 226e4-22866 Body>
<POP 226e4-226fa Prologue> Σ0 ↓
<POP 226fa-2270e RegCacheLoad> Σ0 ↓
<POP 2270e-22722 Naked> Σ0 ↓
<MI 2270e CLR.B 0x27862> {}
<MI 22710 CLR.L 0x27864> {}
<MI 22716 CLR.L 0x27868> {}
<MI 22718 MOVEQ.L #0x00,D7> {}
<MI 2271a MOVEQ.L #0x00,D6> {}
<MI 2271c MOVE.L 0x27850,D5> {}
<POP 22722-22728 Naked> Σ0 ↓ →0x227c6 ←0x227c2
<MI 22722 TST.L D6> {}
<MI 22724 BNE 0x227c6> {}
<POP 22728-22732 Naked> Σ0 ↓ →0x227c6
<MI 22728 CMP.L 0x27854,D5> {}
<MI 2272e BGT 0x227c6> {}
<POP 22732-22750 Naked> Σ0 ↓ →0x227bc
<MI 22732 MOVE.L D5,D0> {}
<MI 22734 SUBQ.L #0x1,D0> {}
<POP 0x22736 LimitCheck 0x0 ≤ D0 ≤ 0x1fff> {}
<MI 22740 LEA.L 0x25848,A0> {}
<MI 22746 MOVE.B (A0+D0.L+#0x8),D0> {}
<MI 2274a CMPI.B #0x5b,D0> {}
<MI 2274e BNE 0x227bc> {}
<POP 22750-22764 Naked> Σ0 ↓ →0x22778
<POP 22750-22752 StackAdj> Δ-2 {[-2-]}
<MI 22752 MOVE.L D5,-(A7)> Δ-4 {[-2-]|[4, 'D5']}
<Const 0x22754 0x28.4> Δ-4 {[-2-]|[4, 'D5']|[##40]}
<Const 0x22758 0x5.4> Δ-4 {[-2-]|[4, 'D5']|[##40]|[##5]}
<Call 0x2275c 0x22214> {[-2-]|[4, 'D5']|[##40]|[##5]}
<POP 2275e-22760 StackAdj> Δ+12 {[-2-]}
<MI 22760 TST.B (A7)+> Δ+2 {}
<MI 22762 BNE 0x22778> {}
<POP 22764-22778 Naked> Σ0 ↓ →0x2277c
<POP 22764-22766 StackAdj> Δ-2 {[-2-]}
<MI 22766 MOVE.L D5,-(A7)> Δ-4 {[-2-]|[4, 'D5']}
<Const 0x22768 0x2d.4> Δ-4 {[-2-]|[4, 'D5']|[##45]}
<Const 0x2276c 0x6.4> Δ-4 {[-2-]|[4, 'D5']|[##45]|[##6]}
<Call 0x22770 0x22214> {[-2-]|[4, 'D5']|[##45]|[##6]}
<POP 22772-22774 StackAdj> Δ+12 {[-2-]}
<MI 22774 TST.B (A7)+> Δ+2 {}
<MI 22776 BEQ 0x2277c> {}
<POP 22778-2277c Naked> Σ0 →0x227bc ←0x22750
<MI 22778 ADDQ.L #0x1,D7> {}
<MI 2277a BRA 0x227bc> {}
<POP 2277c-22780 Naked> Σ0 ↓ →0x2279e ←0x22764
<MI 2277c TST.L D7> {}
<MI 2277e BNE 0x2279e> {}
<POP 22780-22794 Naked> Σ0 ↓ →0x2279e
<POP 22780-22782 StackAdj> Δ-2 {[-2-]}
<MI 22782 MOVE.L D5,-(A7)> Δ-4 {[-2-]|[4, 'D5']}
<Const 0x22784 0x33.4> Δ-4 {[-2-]|[4, 'D5']|[##51]}
<Const 0x22788 0x5.4> Δ-4 {[-2-]|[4, 'D5']|[##51]|[##5]}
<Call 0x2278c 0x22214> {[-2-]|[4, 'D5']|[##51]|[##5]}
<POP 2278e-22790 StackAdj> Δ+12 {[-2-]}
<MI 22790 TST.B (A7)+> Δ+2 {}
<MI 22792 BEQ 0x2279e> {}
<POP 22794-2279e Naked> Σ0 →0x227bc
<MI 22794 MOVE.L D5,-(A7)> Δ-4 {[4, 'D5']}
<Call 0x22796 0x225d0> {[4, 'D5']}
<POP 2279a-2279c StackAdj> Δ+4 {}
<MI 2279c BRA 0x227bc> {}
<POP 2279e-227b2 Naked> Σ0 ↓ →0x227bc ←0x2277c ←0x22780
<POP 2279e-227a0 StackAdj> Δ-2 {[-2-]}
<MI 227a0 MOVE.L D5,-(A7)> Δ-4 {[-2-]|[4, 'D5']}
<Const 0x227a2 0x38.4> Δ-4 {[-2-]|[4, 'D5']|[##56]}
<Const 0x227a6 0x8.4> Δ-4 {[-2-]|[4, 'D5']|[##56]|[##8]}
<Call 0x227aa 0x22214> {[-2-]|[4, 'D5']|[##56]|[##8]}
<POP 227ac-227ae StackAdj> Δ+12 {[-2-]}
<MI 227ae TST.B (A7)+> Δ+2 {}
<MI 227b0 BEQ 0x227bc> {}
<POP 227b2-227b6 Naked> Σ0 ↓ →0x227ba
<MI 227b2 TST.L D7> {}
<MI 227b4 BNE 0x227ba> {}
<POP 227b6-227ba Naked> Σ0 →0x227bc
<MI 227b6 MOVE.L D5,D6> {}
<MI 227b8 BRA 0x227bc> {}
<POP 227ba-227bc Naked> Σ0 ↓ ←0x227b2
<MI 227ba SUBQ.L #0x1,D7> {}
<POP 227bc-227c0 Naked> Σ0 ↓ →0x227c2 ←0x22732 ←0x22778 ←0x22794 ←0x2279e ←0x227b6
<MI 227bc TST.L D6> {}
<MI 227be BNE 0x227c2> {}
<POP 227c0-227c2 Naked> Σ0 ↓
<MI 227c0 ADDQ.L #0x1,D5> {}
<POP 227c2-227c6 Naked> Σ0 →0x22722 ←0x227bc
<MI 227c2 BRA 0x22722> {}
<POP 227c6-227ce Naked> Σ0 ↓ →0x227dc ←0x22722 ←0x22728
<MI 227c6 TST.B 0x2786c> {}
<MI 227cc BNE 0x227dc> {}
<POP 227ce-227dc Naked> Σ0 ↓
<Const 0x227ce 0x2786e.4> Δ-4 {[##161902]}
<Call 0x227d4 0x102bc> {[##161902]}
FreeString(VAR a : String)
<POP 227da-227dc StackAdj> Δ+4 {}
<POP 227dc-227e0 Naked> Σ0 ↓ →0x22808 ←0x227c6
<MI 227dc TST.B 0x27862> {}
<MI 227de BNE 0x22808> {}
<POP 227e0-22808 Naked> Σ0 ↓
<Blob 0x227e0 [26] @> Δ-26 {[«26""»]}
<POP 227ec-227ee StackAdj> Δ-4 {[«26""»]|[-4-]}
<Lit 0x227ee 26> {[«26""»]|[$$No case alternative found!]}
<Call 0x22800 0x21d46> {[«26""»]|[$$No case alternative found!]}
<POP 22804-22808 StackAdj> Δ+30 {}
<POP 22808-2280c Naked> Σ0 ↓ →0x2283a ←0x227dc
<MI 22808 TST.L D6> {}
<MI 2280a BNE 0x2283a> {}
<POP 2280c-2283a Naked> Σ0 ↓
<Blob 0x2280c [20] @> Δ-20 {[«20""»]}
<POP 2281e-22820 StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x22820 19> {[«20""»]|[$$No [ENDCASE] found!]}
<Call 0x22832 0x21d46> {[«20""»]|[$$No [ENDCASE] found!]}
<POP 22836-2283a StackAdj> Δ+24 {}
<POP 2283a-2284e Naked> Σ0 ↓ →0x22858 ←0x22808
<MI 2283a MOVEA.L (A6+0x8),A0> {}
<MI 2283e MOVE.L D6,(A0)> {}
<MI 22840 MOVEA.L (A6+0x10),A0> {}
<MI 22844 MOVE.L 0x27864,(A0)> {}
<MI 2284a TST.L 0x27868> {}
<MI 2284c BNE 0x22858> {}
<POP 2284e-22858 Naked> Σ0 →0x2285e
<MI 2284e MOVEA.L (A6+0xc),A0> {}
<MI 22852 MOVE.L D6,(A0)> {}
<MI 22854 SUBQ.L #0x1,(A0)> {}
<MI 22856 BRA 0x2285e> {}
<POP 22858-2285e Naked> Σ0 ↓ ←0x2283a
<MI 22858 MOVEA.L (A6+0xc),A0> {}
<MI 2285c MOVE.L 0x27868,(A0)> {}
<POP 2285e-22866 Epilogue> Σ0 ←0x2284e
@ 22866
<LVAR 0x008 4(r)>
<LVAR -0x008 @ 4(r)>
<LVAR -0x00c @ 4(r)>
<LVAR -0x010 @ 4(r)>
<POP 22866-228da Body>
<POP 22866-2287c Prologue> Σ0 ↓
<POP 2287c-22886 RegCacheLoad> Σ0 ↓
<POP 22886-228d2 Naked> Σ0 ↓
<MI 22886 MOVE.L 0x27850,D6> {}
<MI 22888 CLR.B 0x2786c> {}
<MI 2288e MOVE.L (A6+0x8),0x2786e> {}
<MI 22896 MOVE.L 0x27850,D7> {}
<Pointer.fp 0x22898 <LVAR -0x010 @ 4(r)>> Δ-4 {[@@-16]}
<Pointer.fp 0x2289a <LVAR -0x00c @ 4(r)>> Δ-4 {[@@-16]|[@@-12]}
<Pointer.fp 0x2289e <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-16]|[@@-12]|[@@-8]}
<Call 0x228a2 0x226e4> {[@@-16]|[@@-12]|[@@-8]}
<POP 228a6-228aa StackAdj> Δ+12 {}
<MI 228aa MOVE.L D6,0x27850> {}
<MI 228ac MOVE.L (A6-0x8),D0> {}
<MI 228b0 ADDI.L #0x00000009,D0> {}
<MI 228b6 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 228b8 SUB.L (A6-0xc),D0> {[4, 'D0']}
<MI 228bc SUBQ.L #0x1,D0> {[4, 'D0']}
<MI 228be MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']|[4, 'D0']}
<Call 0x228c0 0x2229a> {[4, 'D0']|[4, 'D0']}
<POP 228c4-228c6 StackAdj> Δ+4 {[4, 'D0']}
<MI 228c6 MOVE.L (A6-0x10),(A7)> {[4, '(A6-0x10)']}
<MI 228c8 MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0x10)']|[4, '(A6-0x10)']}
<MI 228ca SUB.L D7,(A7)> {[4, '(A6-0x10)']|[-4-]}
<Call 0x228cc 0x2229a> {[4, '(A6-0x10)']|[-4-]}
<POP 228d0-228d2 StackAdj> Δ+8 {}
<POP 228d2-228da Epilogue> Σ0
@ 228da
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x008 @ 4(r)>
<LVAR -0x00c @ 4(r)>
<LVAR -0x010 @ 4(r)>
<POP 228da-22958 Body>
<POP 228da-228f0 Prologue> Σ0 ↓
<POP 228f0-228fa RegCacheLoad> Σ0 ↓
<POP 228fa-22950 Naked> Σ0 ↓
<MI 228fa MOVE.L 0x27850,D6> {}
<MI 228fc MOVE.B #0x01,0x2786c> {}
<MI 22904 MOVE.L (A6+0x8),0x27872> {}
<MI 2290c MOVE.L (A6+0xc),0x27876> {}
<MI 22914 MOVE.L 0x27850,D7> {}
<Pointer.fp 0x22916 <LVAR -0x010 @ 4(r)>> Δ-4 {[@@-16]}
<Pointer.fp 0x22918 <LVAR -0x00c @ 4(r)>> Δ-4 {[@@-16]|[@@-12]}
<Pointer.fp 0x2291c <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-16]|[@@-12]|[@@-8]}
<Call 0x22920 0x226e4> {[@@-16]|[@@-12]|[@@-8]}
<POP 22924-22928 StackAdj> Δ+12 {}
<MI 22928 MOVE.L D6,0x27850> {}
<MI 2292a MOVE.L (A6-0x8),D0> {}
<MI 2292e ADDI.L #0x00000009,D0> {}
<MI 22934 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 22936 SUB.L (A6-0xc),D0> {[4, 'D0']}
<MI 2293a SUBQ.L #0x1,D0> {[4, 'D0']}
<MI 2293c MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']|[4, 'D0']}
<Call 0x2293e 0x2229a> {[4, 'D0']|[4, 'D0']}
<POP 22942-22944 StackAdj> Δ+4 {[4, 'D0']}
<MI 22944 MOVE.L (A6-0x10),(A7)> {[4, '(A6-0x10)']}
<MI 22946 MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0x10)']|[4, '(A6-0x10)']}
<MI 22948 SUB.L D7,(A7)> {[4, '(A6-0x10)']|[-4-]}
<Call 0x2294a 0x2229a> {[4, '(A6-0x10)']|[-4-]}
<POP 2294e-22950 StackAdj> Δ+8 {}
<POP 22950-22958 Epilogue> Σ0
@ 22958
<LVAR 0x010 4(rw)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 22958-22990 Body>
<POP 22958-2296e Prologue> Σ0 ↓
<POP 2296e-22974 Naked> Σ0 ↓ →0x2297a
<MI 2296e TST.L (A6+0x8)> {}
<MI 22972 BNE 0x2297a> {}
<POP 22974-2297a Naked> Σ0 →0x22988
<MI 22974 CLR.L (A6+0x10)> {}
<MI 22978 BRA 0x22988> {}
<POP 2297a-22988 Naked> Σ0 ↓ ←0x2296e
<MI 2297a MOVE.L (A6+0xc),D0> {}
<MI 2297e SUB.L (A6+0x8),D0> {}
<MI 22982 ADDQ.L #0x1,D0> {}
<MI 22984 MOVE.L D0,(A6+0x10)> {}
<POP 22988-22990 Epilogue> Σ0 ←0x22974
@ 22990
<LVAR 0x014 4(w)>
<LVAR 0x010 @ 4(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 22990-229f2 Body> Δ-4
<POP 22990-229a6 Prologue> Σ0 ↓
<POP 229a6-229bc Naked> Σ0 Δ-4 ↓
<MI 229a6 MOVEA.L (A6+0xc),A4> {}
<MI 229aa MOVE.L 0x21c5e,(A6+0x10)> {}
<MI 229b0 MOVE.L 0x21c62,(A6+0x14)> {}
<MI 229b6 MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<MI 229ba MOVEQ.L #0x00,D7> {[4, '(A6+0x8)']}
<POP 229bc-229c0 Naked> Σ-4 ↓ →0x229e8 ←0x229e4
<MI 229bc CMP.L (A7),D7> {[-4-]}
<MI 229be BGT 0x229e8> {[-4-]}
<POP 229c0-229c6 Naked> Σ-4 ↓ →0x229ca
<MI 229c0 CMPA.W #0x1,A4> {[-4-]}
<MI 229c4 BNE 0x229ca> {[-4-]}
<POP 229c6-229ca Naked> Σ-4 Δ+4 →0x229ea
<POP 229c6-229c8 StackAdj> Δ+4 {}
<MI 229c8 BRA 0x229ea> {}
<POP 229ca-229d0 Naked> Σ-4 ↓ →0x229e0 ←0x229c0
<MI 229ca CMP.L (A6+0x8),D7> {[-4-]}
<MI 229ce BNE 0x229e0> {[-4-]}
<POP 229d0-229e0 Naked> Σ-4 →0x229e4
<MI 229d0 LEA.L (A6+0x10),A0> {[-4-]}
<MI 229d4 MOVEA.L A4,A1> {[-4-]}
<BlockMove 8,A1,A0> {[-4-]}
<MI 229de BRA 0x229e4> {[-4-]}
<POP 229e0-229e4 Naked> Σ-4 ↓ ←0x229ca
<MI 229e0 MOVEA.L (A4+0x8),A4> {[-4-]}
<POP 229e4-229e8 Naked> Σ-4 ↓ →0x229bc ←0x229d0
<MI 229e4 ADDQ.L #0x1,D7> {[-4-]}
<MI 229e6 BVC 0x229bc> {[-4-]}
<POP 229e8-229ea Naked> Σ-4 Δ+4 ↓ ←0x229bc
<POP 229e8-229ea StackAdj> Δ+4 {}
<POP 229ea-229f2 Epilogue> Σ0 ←0x229c6
@ 229f2
<LVAR 0x010 4(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x008 @ 4(r)>
<POP 229f2-22a6e Body> Δ-4
<POP 229f2-22a08 Prologue> Σ0 ↓
<POP 22a08-22a0c RegCacheLoad> Σ0 ↓
<POP 22a0c-22a24 Naked> Σ0 Δ-4 ↓
<Pointer.fp 0x22a0c <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-8]}
<Call 0x22a0e 0x102b8> {[@@-8]}
NewString(VAR a : String)
<MI 22a14 MOVE.L (A6+0xc),-(A7)> Δ-4 {[@@-8]|[4, '(A6+0xc)']}
<MI 22a18 MOVE.L (A6+0x8),-(A7)> Δ-4 {[@@-8]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x22a1c 0x22958> {[@@-8]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 22a20-22a22 StackAdj> Δ+8 {[@@-8]}
<MI 22a22 MOVEQ.L #0x01,D7> {[@@-8]}
<POP 22a24-22a28 Naked> Σ-4 ↓ →0x22a60 ←0x22a50
<MI 22a24 CMP.L (A7),D7> {[-4-]}
<MI 22a26 BGT 0x22a60> {[-4-]}
<POP 22a28-22a4c Naked> Σ-4 ↓ →0x22a50
<MI 22a28 MOVE.L D7,D0> {[-4-]}
<MI 22a2a ADD.L (A6+0x8),D0> {[-4-]}
<MI 22a2e SUBQ.L #0x1,D0> {[-4-]}
<MI 22a30 SUBQ.L #0x1,D0> {[-4-]}
<POP 0x22a32 LimitCheck 0x0 ≤ D0 ≤ 0x1fff> {[-4-]}
<MI 22a3c LEA.L 0x25848,A0> {[-4-]}
<MI 22a42 MOVE.B (A0+D0.L+#0x8),D6> {[-4-]}
<MI 22a46 CMPI.B #0x2f,D6> {[-4-]}
<MI 22a4a BNE 0x22a50> {[-4-]}
<POP 22a4c-22a50 Naked> Σ-4 Δ+4 →0x22a62
<POP 22a4c-22a4e StackAdj> Δ+4 {}
<MI 22a4e BRA 0x22a62> {}
<POP 22a50-22a60 Naked> Σ-4 ↓ →0x22a24 ←0x22a28
<MI 22a50 MOVE.L (A6-0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x8)']}
<MI 22a52 MOVE.B D6,-(A7)> Δ-2 {[-4-]|[4, '(A6-0x8)']|[2, 'D6']}
<Call 0x22a54 0x102c0> {[-4-]|[4, '(A6-0x8)']|[2, 'D6']}
AppendChar(MOD b : String; a : char)
<POP 22a5a-22a5c StackAdj> Δ+6 {[-4-]}
<MI 22a5c ADDQ.L #0x1,D7> {[-4-]}
<MI 22a5e BVC 0x22a24> {[-4-]}
<POP 22a60-22a62 Naked> Σ-4 Δ+4 ↓ ←0x22a24
<POP 22a60-22a62 StackAdj> Δ+4 {}
<POP 22a62-22a66 Naked> Σ0 ↓ ←0x22a4c
<MI 22a62 MOVE.L (A6-0x8),(A6+0x10)> {}
<POP 22a66-22a6e Epilogue> Σ0
@ 22a6e
<LVAR 0x010 4(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 22a6e-22aa0 Body>
<POP 22a6e-22a80 Prologue> Σ0 ↓
<POP 22a80-22a9c Naked> Σ0 ↓
<POP 22a80-22a84 StackAdj> Δ-12 {[-12-]}
<MI 22a84 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-12-]|[4, '(A6+0xc)']}
<MI 22a88 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x22a8c 0x22990> {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 22a90-22a92 StackAdj> Δ+8 {[-12-]}
<Call 0x22a92 0x229f2> {[-12-]}
<POP 22a96-22a98 StackAdj> Δ+8 {[-4-]}
<MI 22a98 MOVE.L (A7)+,(A6+0x10)> Δ+4 {}
<POP 22a9c-22aa0 Epilogue> Σ0
@ 22aa0
<LVAR 0x014 4(w)>
<LVAR 0x010 4(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 22aa0-22adc Body>
<POP 22aa0-22ab2 Prologue> Σ0 ↓
<POP 22ab2-22ad8 Naked> Σ0 ↓
<POP 22ab2-22ab6 StackAdj> Δ-12 {[-12-]}
<MI 22ab6 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-12-]|[4, '(A6+0xc)']}
<MI 22aba MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x22abe 0x22a6e> {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 22ac2-22ac4 StackAdj> Δ+8 {[-12-]}
<Const 0x22ac4 0x10.4> Δ-4 {[-12-]|[##16]}
<Call 0x22ac8 0x10360> {[-12-]|[##16]}
?StringToInt64()
<POP 22ace-22ad0 StackAdj> Δ+8 {[-8-]}
<MI 22ad0 MOVE.L (A7)+,(A6+0x10)> Δ+4 {[-4-]}
<MI 22ad4 MOVE.L (A7)+,(A6+0x14)> Δ+4 {}
<POP 22ad8-22adc Epilogue> Σ0
@ 22adc
<LVAR 0x010 4(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 22adc-22b10 Body>
<POP 22adc-22aee Prologue> Σ0 ↓
<POP 22aee-22b0c Naked> Σ0 ↓
<POP 22aee-22af2 StackAdj> Δ-12 {[-12-]}
<MI 22af2 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-12-]|[4, '(A6+0xc)']}
<MI 22af6 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x22afa 0x22aa0> {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 22afe-22b00 StackAdj> Δ+8 {[-12-]}
<Call 0x22b00 0x10350> {[-12-]}
Quad2Long(a : Quad) : Long
<POP 22b06-22b08 StackAdj> Δ+8 {[-4-]}
<MI 22b08 MOVE.L (A7)+,(A6+0x10)> Δ+4 {}
<POP 22b0c-22b10 Epilogue> Σ0
@ 22b10
<LVAR 0x008 @ 4(r)>
<POP 22b10-22b98 Body>
<POP 22b10-22b26 Prologue> Σ0 ↓
<POP 22b26-22b2c RegCacheLoad> Σ0 ↓
<POP 22b2c-22b4a Naked> Σ0 Δ-8 ↓
<MI 22b2c MOVEA.L (A6+0x8),A0> {}
<MI 22b30 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Blob 0x22b32 [4] 0x27850> Δ-4 {[4, 'A0']|[«4»]}
<MI 22b34 MOVE.W (A0),D0> {[4, 'A0']|[«4»]}
<MI 22b36 EXTW.L D0> {[4, 'A0']|[«4»]}
<MI 22b38 NEG.L D0> {[4, 'A0']|[«4»]}
<MI 22b3a MOVE.L D0,-(A7)> Δ-4 {[4, 'A0']|[«4»]|[4, 'D0']}
<Call 0x22b3c 0x2229a> {[4, 'A0']|[«4»]|[4, 'D0']}
<POP 22b40-22b42 StackAdj> Δ+8 {[4, 'A0']}
<MI 22b42 MOVE.W (A0),D0> {[4, 'A0']}
<MI 22b44 EXTW.L D0> {[4, 'A0']}
<MI 22b46 MOVE.L D0,-(A7)> Δ-4 {[4, 'A0']|[4, 'D0']}
<MI 22b48 MOVEQ.L #0x01,D7> {[4, 'A0']|[4, 'D0']}
<POP 22b4a-22b4e Naked> Σ-8 ↓ →0x22b82 ←0x22b4e
<MI 22b4a CMP.L (A7),D7> {[-8-]}
<MI 22b4c BGT 0x22b82> {[-8-]}
<POP 22b4e-22b82 Naked> Σ-8 ↓ →0x22b4a
<MI 22b4e MOVE.L D7,D0> {[-8-]}
<MI 22b50 ADD.L 0x27850,D0> {[-8-]}
<MI 22b52 SUBQ.L #0x1,D0> {[-8-]}
<MI 22b54 SUBQ.L #0x1,D0> {[-8-]}
<POP 0x22b56 LimitCheck 0x0 ≤ D0 ≤ 0x1fff> {[-8-]}
<MI 22b60 LEA.L 0x25848,A0> {[-8-]}
<MI 22b66 MOVE.L D7,D1> {[-8-]}
<MI 22b68 SUBQ.L #0x1,D1> {[-8-]}
<POP 0x22b6a LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-8-]}
<MI 22b74 MOVEA.L (A7+0x4),A1> {[-8-]}
<MI 22b78 MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x8)> {[-8-]}
<MI 22b7e ADDQ.L #0x1,D7> {[-8-]}
<MI 22b80 BVC 0x22b4a> {[-8-]}
<POP 22b82-22b90 Naked> Σ-8 Δ+8 ↓ ←0x22b4a
<POP 22b82-22b84 StackAdj> Δ+8 {}
<Pointer.fp 0x22b84 <LVAR 0x008 @ 4(r)>> Δ-4 {[@@8]}
<Call 0x22b88 0x102bc> {[@@8]}
FreeString(VAR a : String)
<POP 22b8e-22b90 StackAdj> Δ+4 {}
<POP 22b90-22b98 Epilogue> Σ0
@ 22b98
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 22b98-22bcc Body>
<POP 22b98-22baa Prologue> Σ0 ↓
<POP 22baa-22bc8 Naked> Σ0 ↓
<POP 22baa-22bac StackAdj> Δ-4 {[-4-]}
<MI 22bac MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']}
<MI 22bb0 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Const 0x22bb4 0x10.4> Δ-4 {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[##16]}
<Call 0x22bb8 0x1035c> {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[##16]}
Quad2String(a : Quad; radix : Long ) : String
<POP 22bbe-22bc2 StackAdj> Δ+12 {[-4-]}
<Call 0x22bc2 0x22b10> {[-4-]}
<POP 22bc6-22bc8 StackAdj> Δ+4 {}
<POP 22bc8-22bcc Epilogue> Σ0
@ 22bcc
<LVAR 0x008 4(r)>
<POP 22bcc-22bf6 Body>
<POP 22bcc-22bde Prologue> Σ0 ↓
<POP 22bde-22bf2 Naked> Σ0 ↓
<POP 22bde-22be0 StackAdj> Δ-4 {[-4-]}
<MI 22be0 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x22be4 0x102e4> {[-4-]|[4, '(A6+0x8)']}
Long2String(a : Long) : String
<POP 22bea-22bec StackAdj> Δ+4 {[-4-]}
<Call 0x22bec 0x22b10> {[-4-]}
<POP 22bf0-22bf2 StackAdj> Δ+4 {}
<POP 22bf2-22bf6 Epilogue> Σ0
@ 22bf6
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 4(r)>
<LVAR -0x008 4(rw)>
<POP 22bf6-22cc6 Body>
<POP 22bf6-22c0c Prologue> Σ0 ↓
<POP 22c0c-22c14 RegCacheLoad> Σ0 ↓
<POP 22c14-22c26 Naked> Σ0 ↓
<MI 22c14 MOVEA.L (A6+0x8),A0> {}
<MI 22c18 MOVE.L (A0+0x8),(A6-0x8)> {}
<Pointer.fp 0x22c1c <LVAR -0x004 @ 4(r)>> Δ-4 {[@@-4]}
<Call 0x22c1e 0x102b8> {[@@-4]}
NewString(VAR a : String)
<POP 22c24-22c26 StackAdj> Δ+4 {}
<POP 22c26-22c30 Naked> Σ0 ↓ →0x22cb4 ←0x22c9c
<MI 22c26 MOVEA.L (A6-0x8),A0> {}
<MI 22c28 CMPA.W #0x1,A0> {}
<MI 22c2c BEQ 0x22cb4> {}
<POP 22c30-22c34 Naked> Σ0 ↓ →0x22c9c
<MI 22c30 TST.L (A0)> {}
<MI 22c32 BEQ 0x22c9c> {}
<POP 22c34-22c3e Naked> Σ0 Δ-4 ↓ →0x22c52
<MI 22c34 MOVE.L (A0+0x4),-(A7)> Δ-4 {[4, '(A0+0x4)']}
<MI 22c38 MOVE.L (A0),D7> {[4, '(A0+0x4)']}
<MI 22c3a CMP.L (A7),D7> {[4, '(A0+0x4)']}
<MI 22c3c BGT 0x22c52> {[4, '(A0+0x4)']}
<POP 22c3e-22c52 Naked> Σ-4 ↓
<MI 22c3e MOVE.L (A7),D0> {[-4-]}
<POP 0x22c40 LimitCheck -0x7fffffff ≤ D7> {[-4-]}
<MI 22c40 CMPI.L #0x80000001,D7>
<MI 22c46 BLT 0x22c50>
<POP 0x22c48 LimitCheck D0 ≤ 0x7fffffff> {[-4-]}
<MI 22c48 CMPI.L #0x7fffffff,D0>
<MI 22c4e BLE 0x22c52>
<MI 22c50 TRAP #15>
<POP 22c52-22c56 Naked> Σ-4 ↓ →0x22c9a ←0x22c34 ←0x22c96
<MI 22c52 CMP.L (A7),D7> {[-4-]}
<MI 22c54 BGT 0x22c9a> {[-4-]}
<POP 22c56-22c82 Naked> Σ-4 ↓ →0x22c96
<MI 22c56 MOVE.L (A6-0x4),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x4)']}
<MI 22c58 MOVE.L D7,D0> {[-4-]|[4, '(A6-0x4)']}
<MI 22c5a SUBQ.L #0x1,D0> {[-4-]|[4, '(A6-0x4)']}
<POP 0x22c5c LimitCheck 0x0 ≤ D0 ≤ 0x1fff> {[-4-]|[4, '(A6-0x4)']}
<MI 22c66 LEA.L 0x25848,A0> {[-4-]|[4, '(A6-0x4)']}
<MI 22c6c MOVE.B (A0+D0.L+#0x8),-(A7)> Δ-2 {[-4-]|[4, '(A6-0x4)']|[2, '(A0+D0.L+#0x8)']}
<Call 0x22c70 0x102c0> {[-4-]|[4, '(A6-0x4)']|[2, '(A0+D0.L+#0x8)']}
AppendChar(MOD b : String; a : char)
<POP 22c76-22c78 StackAdj> Δ+6 {[-4-]}
<MI 22c78 MOVEA.L (A6-0x4),A0> {[-4-]}
<MI 22c7a MOVE.W (A0),D0> {[-4-]}
<MI 22c7c CMPI.W #0x007a,D0> {[-4-]}
<MI 22c80 BLT 0x22c96> {[-4-]}
<POP 22c82-22c96 Naked> Σ-4 ↓
<MI 22c82 MOVE.L (A6-0x4),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x4)']}
<Call 0x22c84 0x103d8> {[-4-]|[4, '(A6-0x4)']}
WriteConsoleString(str : String)
<POP 22c8a-22c8c StackAdj> Δ+4 {[-4-]}
<Pointer.fp 0x22c8c <LVAR -0x004 @ 4(r)>> Δ-4 {[-4-]|[@@-4]}
<Call 0x22c8e 0x102b8> {[-4-]|[@@-4]}
NewString(VAR a : String)
<POP 22c94-22c96 StackAdj> Δ+4 {[-4-]}
<POP 22c96-22c9a Naked> Σ-4 ↓ →0x22c52 ←0x22c56
<MI 22c96 ADDQ.L #0x1,D7> {[-4-]}
<MI 22c98 BVC 0x22c52> {[-4-]}
<POP 22c9a-22c9c Naked> Σ-4 Δ+4 ↓ ←0x22c52
<POP 22c9a-22c9c StackAdj> Δ+4 {}
<POP 22c9c-22cb4 Naked> Σ0 →0x22c26 ←0x22c30
<MI 22c9c MOVE.L (A6-0x4),-(A7)> Δ-4 {[4, '(A6-0x4)']}
<Const 0x22c9e 0x20.2> Δ-2 {[4, '(A6-0x4)']|[#32]}
<Call 0x22ca2 0x102c0> {[4, '(A6-0x4)']|[#32]}
AppendChar(MOD b : String; a : char)
<POP 22ca8-22caa StackAdj> Δ+6 {}
<MI 22caa MOVEA.L (A6-0x8),A0> {}
<MI 22cac MOVE.L (A0+0x8),(A6-0x8)> {}
<MI 22cb0 BRA 0x22c26> {}
<POP 22cb4-22cbe Naked> Σ0 ↓ ←0x22c26
<MI 22cb4 MOVE.L (A6-0x4),-(A7)> Δ-4 {[4, '(A6-0x4)']}
<Call 0x22cb6 0x103e0> {[4, '(A6-0x4)']}
WriteConsoleStringCrLf(str : String)
<POP 22cbc-22cbe StackAdj> Δ+4 {}
<POP 22cbe-22cc6 Epilogue> Σ0
@ 22cc6
<LVAR 0x008 @ 4(r)>
<LVAR -0x003 @ 1(r)>
<LVAR -0x004 @ 1(r)>
<LVAR -0x008 @ 4(r)>
<LVAR -0x00c @ 4(rw)>
<POP 22cc6-22dd0 Body>
<POP 22cc6-22cdc Prologue> Σ0 ↓
<POP 22cdc-22cee RegCacheLoad> Σ0 ↓
<POP 22cee-22d34 Naked> Σ0 ↓ →0x22d6a
<Blob 0x22cee [4] @> Δ-4 {[«4""»]}
<POP 22cf2-22cf4 StackAdj> Δ-8 {[«4""»]|[-8-]}
<MI 22cf4 MOVE.L (A6+0x8),-(A7)> Δ-4 {[«4""»]|[-8-]|[4, '(A6+0x8)']}
<Call 0x22cf6 0x102cc> {[«4""»]|[-8-]|[4, '(A6+0x8)']}
StringDup(a : String) : String
<Lit 0x22cfc 4> {[«4""»]|[-8-]|[$$.HLP]}
<Call 0x22d0e 0x102d0> {[«4""»]|[-8-]|[$$.HLP]}
StringCat2(a, b : String) : String
<POP 22d14-22d16 StackAdj> Δ+8 {[«4""»]|[-4-]}
<MI 22d16 MOVE.L (A7)+,(A6-0xc)> Δ+4 {[«4""»]}
<MI 22d18 MOVE.L (A6-0xc),(A7)> {[4, '(A6-0xc)']}
<MI 22d1a CLR.B -(A7)> Δ-2 {[4, '(A6-0xc)']|[#0]}
<MI 22d1c CLR.B -(A7)> Δ-2 {[4, '(A6-0xc)']|[#0]|[#0]}
<Const 0x22d1e 0x0.4> Δ-4 {[4, '(A6-0xc)']|[#0]|[#0]|[##0]}
<Pointer.fp 0x22d22 <LVAR -0x004 @ 1(r)>> Δ-4 {[4, '(A6-0xc)']|[#0]|[#0]|[##0]|[@@-4]}
<Pointer.fp 0x22d24 <LVAR -0x008 @ 4(r)>> Δ-4 {[4, '(A6-0xc)']|[#0]|[#0]|[##0]|[@@-4]|[@@-8]}
<Call 0x22d26 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 22d2c-22d30 StackAdj> Δ+20 {}
<MI 22d30 TST.B (A6-0x4)> {}
<MI 22d32 BEQ 0x22d6a> {}
<POP 22d34-22d6a Naked> Σ0 →0x22dbe
<Blob 0x22d34 [22] @> Δ-22 {[«22""»]}
<POP 22d40-22d42 StackAdj> Δ-8 {[«22""»]|[-8-]}
<Lit 0x22d42 22> {[«22""»]|[-4-]|[$$No help available for_]}
<POP 22d52-22d54 StackAdj> Δ-4 {[«22""»]|[-4-]|[$$No help available for_]|[-4-]}
<MI 22d54 MOVE.L (A6+0x8),(A7)> {[«22""»]|[-4-]|[$$No help available for_]|[4, '(A6+0x8)']}
<Call 0x22d56 0x102d0> {[«22""»]|[-4-]|[$$No help available for_]|[4, '(A6+0x8)']}
StringCat2(a, b : String) : String
<POP 22d5c-22d5e StackAdj> Δ+8 {[«22""»]|[-4-]}
<Call 0x22d5e 0x103e0> {[«22""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 22d64-22d68 StackAdj> Δ+26 {}
<MI 22d68 BRA 0x22dbe> {}
<POP 22d6a-22d82 Naked> Σ0 ↓ →0x22d96 ←0x22cee ←0x22d96
<MI 22d6a MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<Pointer.fp 0x22d6c <LVAR 0x008 @ 4(r)>> Δ-4 {[4, '(A6-0x8)']|[@@8]}
<Pointer.fp 0x22d6e <LVAR -0x003 @ 1(r)>> Δ-4 {[4, '(A6-0x8)']|[@@8]|[@@-3]}
<Call 0x22d72 0x1043c> {[4, '(A6-0x8)']|[@@8]|[@@-3]}
FileReadLine(file : File; VAR a : String; VAR b : Byte)
<POP 22d78-22d7c StackAdj> Δ+12 {}
<MI 22d7c TST.B (A6-0x3)> {}
<MI 22d80 BNE 0x22d96> {}
<POP 22d82-22d96 Naked> Σ0 ↓
<POP 22d82-22d84 StackAdj> Δ-4 {[-4-]}
<MI 22d84 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x22d86 0x102cc> {[-4-]|[4, '(A6+0x8)']}
StringDup(a : String) : String
<POP 22d8c-22d8e StackAdj> Δ+4 {[-4-]}
<Call 0x22d8e 0x103e0> {[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 22d94-22d96 StackAdj> Δ+4 {}
<POP 22d96-22d9c Naked> Σ0 ↓ →0x22d6a ←0x22d6a
<MI 22d96 TST.B (A6-0x3)> {}
<MI 22d9a BEQ 0x22d6a> {}
<POP 22d9c-22dbe Naked> Σ0 ↓
<MI 22d9c CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x22d9e 0x2.2> Δ-2 {[#0]|[#2]}
<Const 0x22da2 0x1.4> Δ-4 {[#0]|[#2]|[##1]}
<Pointer.fp 0x22da6 <LVAR -0x004 @ 1(r)>> Δ-4 {[#0]|[#2]|[##1]|[@@-4]}
<Pointer.fp 0x22da8 <LVAR -0x008 @ 4(r)>> Δ-4 {[#0]|[#2]|[##1]|[@@-4]|[@@-8]}
<Call 0x22daa 0x1038c> {[#0]|[#2]|[##1]|[@@-4]|[@@-8]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 22db0-22db4 StackAdj> Δ+16 {}
<Pointer.fp 0x22db4 <LVAR 0x008 @ 4(r)>> Δ-4 {[@@8]}
<Call 0x22db6 0x102bc> {[@@8]}
FreeString(VAR a : String)
<POP 22dbc-22dbe StackAdj> Δ+4 {}
<POP 22dbe-22dc8 Naked> Σ0 ↓ ←0x22d34
<Pointer.fp 0x22dbe <LVAR -0x00c @ 4(rw)>> Δ-4 {[@@-12]}
<Call 0x22dc0 0x102bc> {[@@-12]}
FreeString(VAR a : String)
<POP 22dc6-22dc8 StackAdj> Δ+4 {}
<POP 22dc8-22dd0 Epilogue> Σ0
@ 22dd0
<LVAR 0x008 4(r)>
<POP 22dd0-22e52 Body>
<POP 22dd0-22de6 Prologue> Σ0 ↓
<POP 22de6-22df6 Naked> Σ0 ↓ →0x22e24
<POP 22de6-22de8 StackAdj> Δ-4 {[-4-]}
<MI 22de8 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x22dec 0x22152> {[-4-]|[4, '(A6+0x8)']}
<POP 22df0-22df2 StackAdj> Δ+4 {[-4-]}
<MI 22df2 MOVE.L (A7)+,D6> Δ+4 {}
<MI 22df4 BNE 0x22e24> {}
<POP 22df6-22e24 Naked> Σ0 →0x22e4a
<Blob 0x22df6 [10] 0x27862> Δ-10 {[«10»]}
<POP 22e04-22e06 StackAdj> Δ-4 {[«10»]|[-4-]}
<Lit 0x22e06> {[«10»]|[$$…]}
<Pointer.sp 0x22e06 4> Δ-4
<Const 0x22e0a 0x1.2> Δ-2
<Const 0x22e0e 0xa.2> Δ-2
<Call 0x22e12 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 22e18-22e1a StackAdj> Δ+8
<Call 0x22e1a 0x22cc6> {[«10»]|[$$…]}
<POP 22e1e-22e22 StackAdj> Δ+14 {}
<MI 22e22 BRA 0x22e4a> {}
<POP 22e24-22e28 Naked> Σ0 Δ-4 ↓ ←0x22de6
<MI 22e24 MOVE.L D6,-(A7)> Δ-4 {[4, 'D6']}
<MI 22e26 MOVEQ.L #0x01,D7> {[4, 'D6']}
<POP 22e28-22e2c Naked> Σ-4 ↓ →0x22e48 ←0x22e2c
<MI 22e28 CMP.L (A7),D7> {[-4-]}
<MI 22e2a BGT 0x22e48> {[-4-]}
<POP 22e2c-22e48 Naked> Σ-4 ↓ →0x22e28
<POP 22e2c-22e2e StackAdj> Δ-4 {[-8-]}
<MI 22e2e MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<MI 22e32 MOVE.L D7,-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']|[4, 'D7']}
<Call 0x22e34 0x22a6e> {[-8-]|[4, '(A6+0x8)']|[4, 'D7']}
<POP 22e38-22e3a StackAdj> Δ+8 {[-8-]}
<MI 22e3a MOVEA.L (A7)+,A4> Δ+4 {[-4-]}
<MI 22e3c MOVE.L A4,-(A7)> Δ-4 {[-4-]|[4, 'A4']}
<Call 0x22e3e 0x22cc6> {[-4-]|[4, 'A4']}
<POP 22e42-22e44 StackAdj> Δ+4 {[-4-]}
<MI 22e44 ADDQ.L #0x1,D7> {[-4-]}
<MI 22e46 BVC 0x22e28> {[-4-]}
<POP 22e48-22e4a Naked> Σ-4 Δ+4 ↓ ←0x22e28
<POP 22e48-22e4a StackAdj> Δ+4 {}
<POP 22e4a-22e52 Epilogue> Σ0 ←0x22df6
@ 22e52
<LVAR 0x00c @>
<LVAR 0x008 @ 4(r)>
<LVAR -0x020 @>
<POP 22e52-22ed4 Body>
<POP 22e52-22e68 Prologue> Σ0 ↓
<POP 22e68-22e6a RegCacheLoad> Σ0 ↓
<POP 22e6a-22e6c Naked> Σ0 ↓
<MI 22e6a MOVEQ.L #0x01,D7> {}
<POP 22e6c-22e78 Naked> Σ0 ↓ →0x22e88 ←0x22ea6
<MI 22e6c MOVEA.L (A6+0x8),A0> {}
<MI 22e70 MOVE.W (A0),D0> {}
<MI 22e72 EXTW.L D0> {}
<MI 22e74 CMP.L D0,D7> {}
<MI 22e76 BLE 0x22e88> {}
<POP 22e78-22e88 Naked> Σ0 →0x22ea6
<MI 22e78 MOVE.L D7,D0> {}
<MI 22e7a SUBQ.L #0x1,D0> {}
<POP 0x22e7c LimitCheck 0x0 ≤ D0 ≤ 0x1d> {}
<MI 22e82 CLR.B (A6+D0.L-#0x20)> {}
<MI 22e86 BRA 0x22ea6> {}
<POP 22e88-22ea6 Naked> Σ0 ↓ ←0x22e6c
<MI 22e88 MOVE.L D7,D0> {}
<MI 22e8a SUBQ.L #0x1,D0> {}
<POP 0x22e8c LimitCheck 0x0 ≤ D0 ≤ 0x1d> {}
<MI 22e92 MOVE.L D7,D1> {}
<MI 22e94 SUBQ.L #0x1,D1> {}
<POP 0x22e96 LimitCheck 0x0 ≤ D1 ≤ 0x7d> {}
<MI 22ea0 MOVE.B (A0+D1.L+#0x2),(A6+D0.L-#0x20)> {}
<POP 22ea6-22eb0 Naked> Σ0 ↓ →0x22e6c ←0x22e78
<MI 22ea6 ADDQ.L #0x1,D7> {}
<MI 22ea8 CMPI.L #0x0000001e,D7> {}
<MI 22eae BLE 0x22e6c> {}
<POP 22eb0-22ecc Naked> Σ0 ↓
<Pointer.fp 0x22eb0 <LVAR 0x008 @ 4(r)>> Δ-4 {[@@8]}
<Call 0x22eb4 0x102bc> {[@@8]}
FreeString(VAR a : String)
<POP 22eba-22ebc StackAdj> Δ+4 {}
<MI 22ebc LEA.L (A6+0xc),A0> {}
<MI 22ec0 LEA.L (A6-0x20),A1> {}
<BlockMove 30,A1,A0> {}
<POP 22ecc-22ed4 Epilogue> Σ0
@ 22ed4
<LVAR 0x026 4(w)>
<LVAR 0x008 @>
<LVAR -0x006 4(rw)>
<POP 22ed4-22f28 Body>
<POP 22ed4-22eea Prologue> Σ0 ↓
<POP 22eea-22eee RegCacheLoad> Σ0 ↓
<POP 22eee-22ef6 Naked> Σ0 ↓
<MI 22eee MOVEQ.L #0x00,D7> {}
<MI 22ef0 MOVE.L 0x2787a,(A6-0x6)> {}
<POP 22ef6-22efe Naked> Σ0 ↓ →0x22f1c ←0x22f1a
<MI 22ef6 MOVEA.L (A6-0x6),A0> {}
<MI 22ef8 CMPA.W #0x1,A0> {}
<MI 22efc BEQ 0x22f1c> {}
<POP 22efe-22f02 Naked> Σ0 ↓ →0x22f1c
<MI 22efe TST.B D7> {}
<MI 22f00 BNE 0x22f1c> {}
<POP 22f02-22f0a Naked> Σ0 ↓
<MI 22f02 MOVEA.L A0,A1> {}
<MI 22f04 LEA.L (A6+0x8),A2> {}
<MI 22f08 MOVEQ.L #0x1d,D0> {}
<POP 22f0a-22f10 Naked> Σ0 ↓ →0x22f0a ←0x22f0a
<MI 22f0a CMPM.B (A1)+,(A2)+> {}
<MI 22f0c DBNE D0,0x22f0a> {}
<POP 22f10-22f12 Naked> Σ0 ↓ →0x22f16
<MI 22f10 BNE 0x22f16> {}
<POP 22f12-22f16 Naked> Σ0 →0x22f1a
<MI 22f12 MOVEQ.L #0x01,D7> {}
<MI 22f14 BRA 0x22f1a> {}
<POP 22f16-22f1a Naked> Σ0 ↓ ←0x22f10
<MI 22f16 MOVE.L (A0+0x26),(A6-0x6)> {}
<POP 22f1a-22f1c Naked> Σ0 →0x22ef6 ←0x22f12
<MI 22f1a BRA 0x22ef6> {}
<POP 22f1c-22f20 Naked> Σ0 ↓ ←0x22ef6 ←0x22efe
<MI 22f1c MOVE.L A0,(A6+0x26)> {}
<POP 22f20-22f28 Epilogue> Σ0
@ 22f28
<LVAR 0x008 @ 4(r)>
<POP 22f28-22fae Body>
<POP 22f28-22f3e Prologue> Σ0 ↓
<POP 22f3e-22f4a RegCacheLoad> Σ0 ↓
<POP 22f4a-22f50 Naked> Σ0 ↓ →0x22fa6
<MI 22f4a MOVEA.L (A6+0x8),A0> {}
<MI 22f4c CMPA.W #0x01,A0> {}
<MI 22f4e BEQ 0x22fa6> {}
<POP 22f50-22f56 Naked> Σ0 ↓ →0x22f66
<MI 22f50 TST.L (A0+0x1e)> {}
<MI 22f54 BEQ 0x22f66> {}
<POP 22f56-22f66 Naked> Σ0 ↓
<MI 22f56 MOVE.L (A0+0x22),-(A7)> Δ-4 {[4, '(A0+0x22)']}
<MI 22f5a MOVE.L (A0+0x1e),-(A7)> Δ-4 {[4, '(A0+0x22)']|[4, '(A0+0x1e)']}
<Call 0x22f5e 0x102a4> {[4, '(A0+0x22)']|[4, '(A0+0x1e)']}
Free1(a : Pointer; b : Long)
<POP 22f64-22f66 StackAdj> Δ+8 {}
<POP 22f66-22f6c Naked> Σ0 ↓ ←0x22f50
<MI 22f66 MOVEQ.L #0x00,D7> {}
<MI 22f68 MOVEA.W #0x01,A4> {}
<MI 22f6a MOVEA.L 0x2787a,A3> {}
<POP 22f6c-22f70 Naked> Σ0 ↓ →0x22f84 ←0x22f82
<MI 22f6c CMPA.W #0x01,A3> {}
<MI 22f6e BEQ 0x22f84> {}
<POP 22f70-22f74 Naked> Σ0 ↓ →0x22f84
<MI 22f70 TST.B D7> {}
<MI 22f72 BNE 0x22f84> {}
<POP 22f74-22f78 Naked> Σ0 ↓ →0x22f7c
<MI 22f74 CMPA.L (A6+0x8),A3> {}
<MI 22f76 BNE 0x22f7c> {}
<POP 22f78-22f7c Naked> Σ0 →0x22f82
<MI 22f78 MOVEQ.L #0x01,D7> {}
<MI 22f7a BRA 0x22f82> {}
<POP 22f7c-22f82 Naked> Σ0 ↓ ←0x22f74
<MI 22f7c MOVEA.L A3,A4> {}
<MI 22f7e MOVEA.L (A3+0x26),A3> {}
<POP 22f82-22f84 Naked> Σ0 →0x22f6c ←0x22f78
<MI 22f82 BRA 0x22f6c> {}
<POP 22f84-22f88 Naked> Σ0 ↓ →0x22fa6 ←0x22f6c ←0x22f70
<MI 22f84 TST.B D7> {}
<MI 22f86 BEQ 0x22fa6> {}
<POP 22f88-22f8c Naked> Σ0 ↓ →0x22f92
<MI 22f88 CMPA.W #0x01,A4> {}
<MI 22f8a BNE 0x22f92> {}
<POP 22f8c-22f92 Naked> Σ0 →0x22f98
<MI 22f8c MOVE.L (A3+0x26),0x2787a> {}
<MI 22f90 BRA 0x22f98> {}
<POP 22f92-22f98 Naked> Σ0 ↓ ←0x22f88
<MI 22f92 MOVE.L (A3+0x26),(A4+0x26)> {}
<POP 22f98-22fa6 Naked> Σ0 ↓ ←0x22f8c
<Pointer.fp 0x22f98 <LVAR 0x008 @ 4(r)>> Δ-4 {[@@8]}
<Const 0x22f9a 0x2a.4> Δ-4 {[@@8]|[##42]}
<Call 0x22f9e 0x102a8> {[@@8]|[##42]}
Free2(a : Pointer; b : Long)
<POP 22fa4-22fa6 StackAdj> Δ+8 {}
<POP 22fa6-22fae Epilogue> Σ0 ←0x22f4a ←0x22f84
@ 22fae
<LVAR 0x010 4(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x006 @ 4(rw)>
<LVAR -0x024 @>
<POP 22fae-2306c Body>
<POP 22fae-22fc4 Prologue> Σ0 ↓
<POP 22fc4-22fce RegCacheLoad> Σ0 ↓
<POP 22fce-22fec Naked> Σ0 ↓ →0x22fee
<POP 22fce-22fd0 StackAdj> Δ-30 {[-30-]}
<MI 22fd0 MOVEA.L (A6+0xc),A0> {[-30-]}
<MI 22fd4 MOVE.L (A0),-(A7)> Δ-4 {[-30-]|[4, '(A0)']}
<Call 0x22fd6 0x22e52> {[-30-]|[4, '(A0)']}
<POP 22fda-22fdc StackAdj> Δ+4 {[-30-]}
<MI 22fdc LEA.L (A6-0x24),A0> {[-30-]}
<POP 22fe0-22fe8 StackPop> Δ+30 {[-30-]}
<BlockMove 30,A7,A0> Δ+30
<MI 22fe8 TST.L (A6+0x8)> {[-30-]}
<MI 22fea BGE 0x22fee> {[-30-]}
<POP 22fec-22fee Naked> Σ0 ↓
<MI 22fec CLR.L (A6+0x8)> {}
<POP 22fee-2300a Naked> Σ0 ↓ →0x2301c ←0x22fce
<POP 22fee-22ff0 StackAdj> Δ-4 {[-4-]}
<Blob 0x22ff0 [30] (A6-0x6)> Δ-30 {[-4-]|[«30»]}
<Call 0x22ffa 0x22ed4> {[-4-]|[«30»]}
<POP 22ffe-23000 StackAdj> Δ+30 {[-4-]}
<MI 23000 MOVE.L (A7)+,(A6-0x6)> Δ+4 {}
<MI 23002 MOVEA.L (A6-0x6),A0> {}
<MI 23004 CMPA.W #0x1,A0> {}
<MI 23008 BEQ 0x2301c> {}
<POP 2300a-23012 Naked> Σ0 ↓ →0x23014
<MI 2300a MOVE.L (A0+0x1e),D0> {}
<MI 2300e CMP.L (A6+0x8),D0> {}
<MI 23010 BNE 0x23014> {}
<POP 23012-23014 Naked> Σ0 →0x23060
<MI 23012 BRA 0x23060> {}
<POP 23014-2301c Naked> Σ0 ↓ ←0x2300a
<MI 23014 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x23016 0x22f28> {[4, '(A6-0x6)']}
<POP 2301a-2301c StackAdj> Δ+4 {}
<POP 2301c-23050 Naked> Σ0 ↓ →0x23060 ←0x22fee
<Pointer.fp 0x2301c <LVAR -0x006 @ 4(rw)>> Δ-4 {[@@-6]}
<Const 0x2301e 0x2a.4> Δ-4 {[@@-6]|[##42]}
<Call 0x23022 0x1029c> {[@@-6]|[##42]}
Malloc1(length : Long) : Pointer
<POP 23028-2302a StackAdj> Δ+8 {}
<MI 2302a MOVEA.L (A6-0x6),A0> {}
<MI 2302c MOVE.L 0x2787a,(A0+0x26)> {}
<MI 23034 MOVE.L (A6-0x6),0x2787a> {}
<MI 2303a MOVEA.L A0,A1> {}
<MI 2303c LEA.L (A6-0x24),A2> {}
<BlockMove 30,A2,A1> {}
<MI 23048 MOVE.L (A6+0x8),(A0+0x1e)> {}
<MI 2304c TST.L (A6+0x8)> {}
<MI 2304e BEQ 0x23060> {}
<POP 23050-23060 Naked> Σ0 ↓
<POP 23050-23052 StackAdj> Δ-4 {[-4-]}
<MI 23052 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x23054 0x102a0> {[-4-]|[4, '(A6+0x8)']}
Malloc2(VAR dst : Pointer; length : Word)
<POP 2305a-2305c StackAdj> Δ+4 {[-4-]}
<MI 2305c MOVE.L (A7)+,(A0+0x22)> Δ+4 {}
<POP 23060-23064 Naked> Σ0 ↓ ←0x23012 ←0x2301c
<MI 23060 MOVE.L (A6-0x6),(A6+0x10)> {}
<POP 23064-2306c Epilogue> Σ0
@ 2306c
<LVAR 0x00c @>
<LVAR 0x008 @ 4(r)>
<LVAR -0x008 4(rw)>
<POP 2306c-230f6 Body>
<POP 2306c-23082 Prologue> Σ0 ↓
<POP 23082-23086 RegCacheLoad> Σ0 ↓
<POP 23086-230a4 Naked> Σ0 ↓ →0x230e4
<MI 23086 MOVEA.L (A6+0x8),A0> {}
<MI 23088 MOVE.W (A0),D0> {}
<MI 2308a EXTW.L D0> {}
<MI 2308c MOVE.L D0,D6> {}
<POP 2308e-23090 StackAdj> Δ-4 {[-4-]}
<Pointer.fp 0x23090 <LVAR 0x00c @>> Δ-4 {[-4-]|[@@12]}
<MI 23094 MOVE.L D6,-(A7)> Δ-4 {[-4-]|[@@12]|[4, 'D6']}
<Call 0x23096 0x22fae> {[-4-]|[@@12]|[4, 'D6']}
<POP 2309a-2309c StackAdj> Δ+8 {[-4-]}
<MI 2309c MOVE.L (A7)+,(A6-0x8)> Δ+4 {}
<MI 230a0 TST.L D6> {}
<MI 230a2 BEQ 0x230e4> {}
<POP 230a4-230b2 Naked> Σ0 Δ-8 ↓
<MI 230a4 MOVEA.L (A6-0x8),A0> {}
<MI 230a8 MOVEA.L (A0+0x22),A0> {}
<MI 230ac MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 230ae MOVE.L D6,-(A7)> Δ-4 {[4, 'A0']|[4, 'D6']}
<MI 230b0 MOVEQ.L #0x01,D7> {[4, 'A0']|[4, 'D6']}
<POP 230b2-230b6 Naked> Σ-8 ↓ →0x230e2 ←0x230b6
<MI 230b2 CMP.L (A7),D7> {[-8-]}
<MI 230b4 BGT 0x230e2> {[-8-]}
<POP 230b6-230e2 Naked> Σ-8 ↓ →0x230b2
<MI 230b6 MOVE.L D7,D0> {[-8-]}
<MI 230b8 SUBQ.L #0x1,D0> {[-8-]}
<POP 0x230ba LimitCheck 0x0 ≤ D0 ≤ 0x3ff> {[-8-]}
<MI 230c4 MOVEA.L (A7+0x4),A0> {[-8-]}
<MI 230c8 MOVEA.L (A6+0x8),A1> {[-8-]}
<MI 230ca MOVE.L D7,D1> {[-8-]}
<MI 230cc SUBQ.L #0x1,D1> {[-8-]}
<POP 0x230ce LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-8-]}
<MI 230d8 MOVE.B (A1+D1.L+#0x2),(A0+D0.L)> {[-8-]}
<MI 230de ADDQ.L #0x1,D7> {[-8-]}
<MI 230e0 BVC 0x230b2> {[-8-]}
<POP 230e2-230e4 Naked> Σ-8 Δ+8 ↓ ←0x230b2
<POP 230e2-230e4 StackAdj> Δ+8 {}
<POP 230e4-230ee Naked> Σ0 ↓ ←0x23086
<Pointer.fp 0x230e4 <LVAR 0x008 @ 4(r)>> Δ-4 {[@@8]}
<Call 0x230e6 0x102bc> {[@@8]}
FreeString(VAR a : String)
<POP 230ec-230ee StackAdj> Δ+4 {}
<POP 230ee-230f6 Epilogue> Σ0
@ 230f6
<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 230f6-23262 Body>
<POP 230f6-2310c Prologue> Σ0 ↓
<POP 2310c-2311a RegCacheLoad> Σ0 ↓
<POP 2311a-2312c Naked> Σ0 ↓ →0x2315a
<POP 2311a-2311c StackAdj> Δ-4 {[-4-]}
<MI 2311c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x2311e 0x22152> {[-4-]|[4, '(A6+0x8)']}
<POP 23122-23124 StackAdj> Δ+4 {[-4-]}
<MI 23124 MOVE.L (A7)+,(A6-0x10)> Δ+4 {}
<MI 23126 MOVE.L (A6-0x10),D0> {}
<MI 23128 CMP.L #0x01,D0> {}
<MI 2312a BGE 0x2315a> {}
<POP 2312c-2315a Naked> Σ0 ↓
<Blob 0x2312c [26] @> Δ-26 {[«26""»]}
<POP 2313e-23140 StackAdj> Δ-4 {[«26""»]|[-4-]}
<Lit 0x23140 25> {[«26""»]|[$$Too few arguments for SET]}
<Call 0x23152 0x21d46> {[«26""»]|[$$Too few arguments for SET]}
<POP 23156-2315a StackAdj> Δ+30 {}
<POP 2315a-23160 Naked> Σ0 Δ-4 ↓ ←0x2311a
<MI 2315a CLR.L (A6-0xc)> {}
<MI 2315c MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 2315e MOVEQ.L #0x02,D6> {[4, 'D0']}
<POP 23160-23164 Naked> Σ-4 ↓ →0x23182 ←0x23164
<MI 23160 CMP.L (A7),D6> {[-4-]}
<MI 23162 BGT 0x23182> {[-4-]}
<POP 23164-23182 Naked> Σ-4 ↓ →0x23160
<POP 23164-23168 StackAdj> Δ-12 {[-16-]}
<MI 23168 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<MI 2316a MOVE.L D6,-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[4, 'D6']}
<Call 0x2316c 0x22990> {[-16-]|[4, '(A6+0x8)']|[4, 'D6']}
<POP 23170-23172 StackAdj> Δ+8 {[-16-]}
<Call 0x23172 0x22958> {[-16-]}
<POP 23176-23178 StackAdj> Δ+8 {[-8-]}
<MI 23178 MOVE.L (A6-0xc),D0> {[-8-]}
<MI 2317a ADD.L (A7)+,D0> Δ+4 {[-4-]}
<MI 2317c MOVE.L D0,(A6-0xc)> {[-4-]}
<MI 2317e ADDQ.L #0x1,D6> {[-4-]}
<MI 23180 BVC 0x23160> {[-4-]}
<POP 23182-231b2 Naked> Σ-4 Δ+4 ↓ →0x2325a ←0x23160
<POP 23182-23184 StackAdj> Δ+4 {}
<MI 23184 MOVE.L (A6-0x10),D0> {}
<MI 23186 SUBQ.L #0x2,D0> {}
<MI 23188 ADD.L D0,(A6-0xc)> {}
<POP 2318a-2318c StackAdj> Δ-4 {[-4-]}
<MI 2318c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x2318e 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23192 0x22a6e> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 23196-23198 StackAdj> Δ+8 {[-4-]}
<MI 23198 MOVE.L (A7),(A6-0x4)> {[-4-]}
<Pointer.fp 0x2319c <LVAR -0x004 @ 4(w)>> Δ-4 {[-4-]|[@@-4]}
<MI 231a0 MOVE.L (A6-0xc),-(A7)> Δ-4 {[-4-]|[@@-4]|[4, '(A6-0xc)']}
<Call 0x231a2 0x22fae> {[-4-]|[@@-4]|[4, '(A6-0xc)']}
<POP 231a6-231a8 StackAdj> Δ+8 {[-4-]}
<MI 231a8 MOVE.L (A7)+,(A6-0x8)> Δ+4 {}
<MI 231ac TST.L (A6-0xc)> {}
<MI 231ae BLE 0x2325a> {}
<POP 231b2-231c2 Naked> Σ0 Δ-8 ↓
<MI 231b2 MOVEA.L (A6-0x8),A0> {}
<MI 231b6 MOVEA.L (A0+0x22),A0> {}
<MI 231ba MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 231bc MOVEQ.L #0x01,D7> {[4, 'A0']}
<MI 231be MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, 'A0']|[4, '(A6-0x10)']}
<MI 231c0 MOVEQ.L #0x02,D6> {[4, 'A0']|[4, '(A6-0x10)']}
<POP 231c2-231c8 Naked> Σ-8 ↓ →0x23258 ←0x23252
<MI 231c2 CMP.L (A7),D6> {[-8-]}
<MI 231c4 BGT 0x23258> {[-8-]}
<POP 231c8-231e8 Naked> Σ-8 Δ-4 ↓ →0x231fc
<POP 231c8-231ca StackAdj> Δ-8 {[-16-]}
<MI 231ca MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<MI 231cc MOVE.L D6,-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[4, 'D6']}
<Call 0x231ce 0x22990> {[-16-]|[4, '(A6+0x8)']|[4, 'D6']}
<POP 231d2-231d4 StackAdj> Δ+8 {[-16-]}
<MI 231d4 MOVE.L (A7)+,(A6-0x20)> Δ+4 {[-12-]}
<MI 231d8 MOVE.L (A7)+,(A6-0x1c)> Δ+4 {[-8-]}
<MI 231dc MOVE.L (A6-0x1c),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x1c)']}
<MI 231e0 MOVE.L (A6-0x20),D5> {[-8-]|[4, '(A6-0x1c)']}
<MI 231e4 CMP.L (A7),D5> {[-8-]|[4, '(A6-0x1c)']}
<MI 231e6 BGT 0x231fc> {[-8-]|[4, '(A6-0x1c)']}
<POP 231e8-231fc Naked> Σ-12 ↓
<MI 231e8 MOVE.L (A7),D0> {[-12-]}
<POP 0x231ea LimitCheck -0x7fffffff ≤ D5> {[-12-]}
<MI 231ea CMPI.L #0x80000001,D5>
<MI 231f0 BLT 0x231fa>
<POP 0x231f2 LimitCheck D0 ≤ 0x7fffffff> {[-12-]}
<MI 231f2 CMPI.L #0x7fffffff,D0>
<MI 231f8 BLE 0x231fc>
<MI 231fa TRAP #15>
<POP 231fc-23200 Naked> Σ-12 ↓ →0x23232 ←0x231c8 ←0x23200
<MI 231fc CMP.L (A7),D5> {[-12-]}
<MI 231fe BGT 0x23232> {[-12-]}
<POP 23200-23232 Naked> Σ-12 ↓ →0x231fc
<MI 23200 MOVE.L D7,D0> {[-12-]}
<MI 23202 SUBQ.L #0x1,D0> {[-12-]}
<POP 0x23204 LimitCheck 0x0 ≤ D0 ≤ 0x3ff> {[-12-]}
<MI 2320e MOVEA.L (A7+0x8),A0> {[-12-]}
<MI 23212 MOVE.L D5,D1> {[-12-]}
<MI 23214 SUBQ.L #0x1,D1> {[-12-]}
<POP 0x23216 LimitCheck 0x0 ≤ D1 ≤ 0x1fff> {[-12-]}
<MI 23220 LEA.L 0x25848,A1> {[-12-]}
<MI 23226 MOVE.B (A1+D1.L+#0x8),(A0+D0.L)> {[-12-]}
<MI 2322c ADDQ.L #0x1,D7> {[-12-]}
<MI 2322e ADDQ.L #0x1,D5> {[-12-]}
<MI 23230 BVC 0x231fc> {[-12-]}
<POP 23232-23238 Naked> Σ-12 Δ+4 ↓ →0x23252 ←0x231fc
<POP 23232-23234 StackAdj> Δ+4 {[-8-]}
<MI 23234 CMP.L (A6-0x10),D6> {[-8-]}
<MI 23236 BEQ 0x23252> {[-8-]}
<POP 23238-23252 Naked> Σ-8 ↓
<MI 23238 MOVE.L D7,D0> {[-8-]}
<MI 2323a SUBQ.L #0x1,D0> {[-8-]}
<POP 0x2323c LimitCheck 0x0 ≤ D0 ≤ 0x3ff> {[-8-]}
<MI 23246 MOVEA.L (A7+0x4),A0> {[-8-]}
<MI 2324a MOVE.B #0x2c,(A0+D0.L)> {[-8-]}
<MI 23250 ADDQ.L #0x1,D7> {[-8-]}
<POP 23252-23258 Naked> Σ-8 ↓ →0x231c2 ←0x23232
<MI 23252 ADDQ.L #0x1,D6> {[-8-]}
<MI 23254 BVC 0x231c2> {[-8-]}
<POP 23258-2325a Naked> Σ-8 Δ+8 ↓ ←0x231c2
<POP 23258-2325a StackAdj> Δ+8 {}
<POP 2325a-23262 Epilogue> Σ0 ←0x23182
@ 23262
<LVAR 0x008 4(r)>
<LVAR -0x00c 4(rw)>
<POP 23262-23350 Body>
<POP 23262-23278 Prologue> Σ0 ↓
<POP 23278-23280 RegCacheLoad> Σ0 ↓
<POP 23280-232b2 Naked> Σ0 ↓ →0x232f4
<POP 23280-23282 StackAdj> Δ-4 {[-4-]}
<MI 23282 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x23286 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x2328a 0x22a6e> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 2328e-23290 StackAdj> Δ+8 {[-4-]}
<MI 23290 MOVEA.L (A7)+,A4> Δ+4 {}
<POP 23292-23296 StackAdj> Δ-34 {[-34-]}
<MI 23296 MOVE.L A4,-(A7)> Δ-4 {[-34-]|[4, 'A4']}
<Call 0x23298 0x22e52> {[-34-]|[4, 'A4']}
<POP 2329c-2329e StackAdj> Δ+4 {[-34-]}
<Call 0x2329e 0x22ed4> {[-34-]}
<POP 232a2-232a6 StackAdj> Δ+30 {[-4-]}
<MI 232a6 MOVE.L (A7)+,(A6-0xc)> Δ+4 {}
<MI 232aa MOVEA.L (A6-0xc),A0> {}
<MI 232ae CMPA.W #0x01,A0> {}
<MI 232b0 BNE 0x232f4> {}
<POP 232b2-232f4 Naked> Σ0 ↓
<Blob 0x232b2 [20] @> Δ-20 {[«20""»]}
<POP 232c4-232c6 StackAdj> Δ-8 {[«20""»]|[-8-]}
<Lit 0x232c6 19> {[«20""»]|[-4-]|[$$Unknown variable :_]}
<MI 232d6 MOVE.L (A6+0x8),(A7)> {[«20""»]|[-4-]|[4, '(A6+0x8)']}
<POP 232d0-232d6 StackAdj> Δ-8 {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-8-]}
<Const 0x232da 0x1.4> Δ-4 {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-8-]|[##1]}
<Call 0x232de 0x22a6e> {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-8-]|[##1]}
<POP 232e2-232e4 StackAdj> Δ+8 {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-4-]}
<Call 0x232e4 0x102d0> {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-4-]}
StringCat2(a, b : String) : String
<POP 232ea-232ec StackAdj> Δ+8 {[«20""»]|[-4-]}
<Call 0x232ec 0x21d46> {[«20""»]|[-4-]}
<POP 232f0-232f4 StackAdj> Δ+24 {}
<POP 232f4-2330a Naked> Σ0 Δ-8 ↓ ←0x23280
<MI 232f4 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Blob 0x232f6 [4] 0x27850> Δ-4 {[4, 'A0']|[«4»]}
<MI 232f8 MOVE.L (A0+0x1e),-(A7)> Δ-4 {[4, 'A0']|[«4»]|[4, '(A0+0x1e)']}
<MI 232fc NEG.L (A7)> {[4, 'A0']|[«4»]|[4, '(A0+0x1e)']}
<Call 0x232fe 0x2229a> {[4, 'A0']|[«4»]|[4, '(A0+0x1e)']}
<POP 23302-23304 StackAdj> Δ+4 {[4, 'A0']|[«4»]}
<MI 23304 MOVE.L (A0+0x1e),(A7)> {[4, 'A0']|[4, '(A0+0x1e)']}
<MI 23308 MOVEQ.L #0x01,D7> {[4, 'A0']|[4, '(A0+0x1e)']}
<POP 2330a-2330e Naked> Σ-8 ↓ →0x23346 ←0x2330e
<MI 2330a CMP.L (A7),D7> {[-8-]}
<MI 2330c BGT 0x23346> {[-8-]}
<POP 2330e-23346 Naked> Σ-8 ↓ →0x2330a
<MI 2330e MOVE.L D7,D0> {[-8-]}
<MI 23310 ADD.L 0x27850,D0> {[-8-]}
<MI 23312 SUBQ.L #0x1,D0> {[-8-]}
<MI 23314 SUBQ.L #0x1,D0> {[-8-]}
<POP 0x23316 LimitCheck 0x0 ≤ D0 ≤ 0x1fff> {[-8-]}
<MI 23320 LEA.L 0x25848,A0> {[-8-]}
<MI 23326 MOVEA.L (A7+0x4),A1> {[-8-]}
<MI 2332a MOVEA.L (A1+0x22),A1> {[-8-]}
<MI 2332e MOVE.L D7,D1> {[-8-]}
<MI 23330 SUBQ.L #0x1,D1> {[-8-]}
<POP 0x23332 LimitCheck 0x0 ≤ D1 ≤ 0x3ff> {[-8-]}
<MI 2333c MOVE.B (A1+D1.L),(A0+D0.L+#0x8)> {[-8-]}
<MI 23342 ADDQ.L #0x1,D7> {[-8-]}
<MI 23344 BVC 0x2330a> {[-8-]}
<POP 23346-23348 Naked> Σ-8 Δ+8 ↓ ←0x2330a
<POP 23346-23348 StackAdj> Δ+8 {}
<POP 23348-23350 Epilogue> Σ0
@ 23350
<LVAR -0x004 4(rw)>
<POP 23350-233b2 Body>
<POP 23350-23366 Prologue> Σ0 ↓
<POP 23366-2336e RegCacheLoad> Σ0 ↓
<POP 2336e-23374 Naked> Σ0 ↓
<MI 2336e MOVE.L 0x2787a,(A6-0x4)> {}
<POP 23374-2337a Naked> Σ0 ↓ →0x233aa ←0x2337a
<MI 23374 MOVEA.L (A6-0x4),A0> {}
<MI 23376 CMPA.W #0x01,A0> {}
<MI 23378 BEQ 0x233aa> {}
<POP 2337a-233aa Naked> Σ0 →0x23374
<POP 2337a-2337c StackAdj> Δ-30 {[-30-]}
<MI 2337c MOVEA.L A7,A1> {[-30-]}
<MI 2337e MOVEA.L A0,A2> {[-30-]}
<BlockMove 30,A2,A1> {[-30-]}
<POP 23388-2338a StackAdj> Δ-4 {[-34-]}
<Lit 0x2338a> {[-30-]|[$$…]}
<Pointer.sp 0x2338a 4> Δ-4
<Const 0x2338e 0x1.2> Δ-2
<Const 0x23390 0x1e.2> Δ-2
<Call 0x23392 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 23398-2339a StackAdj> Δ+8
<Call 0x2339a 0x103e0> {[-30-]|[$$…]}
WriteConsoleStringCrLf(str : String)
<POP 233a0-233a4 StackAdj> Δ+34 {}
<MI 233a4 MOVE.L (A0+0x26),(A6-0x4)> {}
<MI 233a8 BRA 0x23374> {}
<POP 233aa-233b2 Epilogue> Σ0 ←0x23374
@ 233b2
<LVAR 0x008 4(r)>
<POP 233b2-233ee Body>
<POP 233b2-233c4 Prologue> Σ0 ↓
<POP 233c4-233ea Naked> Σ0 ↓
<POP 233c4-233c8 StackAdj> Δ-38 {[-38-]}
<MI 233c8 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-38-]|[4, '(A6+0x8)']}
<Const 0x233cc 0x1.4> Δ-4 {[-38-]|[4, '(A6+0x8)']|[##1]}
<Call 0x233d0 0x22a6e> {[-38-]|[4, '(A6+0x8)']|[##1]}
<POP 233d4-233d6 StackAdj> Δ+8 {[-38-]}
<Call 0x233d6 0x22e52> {[-38-]}
<POP 233da-233dc StackAdj> Δ+4 {[-34-]}
<Call 0x233dc 0x22ed4> {[-34-]}
<POP 233e0-233e4 StackAdj> Δ+30 {[-4-]}
<Call 0x233e4 0x22f28> {[-4-]}
<POP 233e8-233ea StackAdj> Δ+4 {}
<POP 233ea-233ee Epilogue> Σ0
@ 233ee
<POP 233ee-2341c Body>
<POP 233ee-23400 Prologue> Σ0 ↓
<POP 23400-23418 Naked> Σ0 ↓
<POP 23400-23402 StackAdj> Δ-8 {[-8-]}
<Call 0x23402 0x103cc> {[-8-]}
GetPushLevel() : Long
<Call 0x23408 0x102e4> {[-8-]}
Long2String(a : Long) : String
<POP 2340e-23410 StackAdj> Δ+4 {[-4-]}
<Call 0x23410 0x103e0> {[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 23416-23418 StackAdj> Δ+4 {}
<POP 23418-2341c Epilogue> Σ0
@ 2341c
<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 2341c-23744 Body>
<POP 2341c-23432 Prologue> Σ0 ↓
<POP 23432-2344a RegCacheLoad> Σ0 ↓
<POP 2344a-2345a Naked> Σ0 ↓ →0x23482
<POP 2344a-2344c StackAdj> Δ-4 {[-4-]}
<MI 2344c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x2344e 0x22152> {[-4-]|[4, '(A6+0x8)']}
<POP 23452-23454 StackAdj> Δ+4 {[-4-]}
<MI 23454 MOVE.L (A7)+,(A6-0x2c)> Δ+4 {}
<MI 23458 BNE 0x23482> {}
<POP 2345a-23482 Naked> Σ0 →0x23492
<POP 2345a-2345c StackAdj> Δ-4 {[-4-]}
<POP 2345c-2345d StackAdj> Δ+2 {[-2-]}
<Blob 0x2345d [2] @> Δ-2 {[-2-]|[«2""»]}
<MI 23460 MOVE.B 0x2196b,(A7+0x1)> {[-2-]|[«2""»]}
<MI 23466 MOVE.B 0x2196c,(A7+0x2)> {[-2-]|[«2""»]}
<POP 2346c-2346e StackAdj> Δ-4 {[-2-]|[«2""»]|[-4-]}
<Lit 0x2346e> {[-2-]|[«2""»]|[$$…]}
<Pointer.sp 0x2346e 4> Δ-4
<Const 0x23472 0x1.2> Δ-2
<Const 0x23474 0x3.2> Δ-2
<Call 0x23478 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 2347a-2347c StackAdj> Δ+8
<MI 2347c MOVE.L (A7)+,(A6-0x3c)> Δ+4 {[-2-]|[«2""»]}
<POP 2347e-23480 StackAdj> Δ+4 {}
<MI 23480 BRA 0x23492> {}
<POP 23482-23492 Naked> Σ0 ↓ ←0x2344a
<POP 23482-23484 StackAdj> Δ-4 {[-4-]}
<MI 23484 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x23486 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x2348a 0x22a6e> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 2348e-23490 StackAdj> Δ+8 {[-4-]}
<MI 23490 MOVE.L (A7)+,(A6-0x3c)> Δ+4 {}
<POP 23492-234e2 Naked> Σ0 ↓ →0x234f0 ←0x2345a
<Blob 0x23492 [6] @> Δ-6 {[«6""»]}
<POP 234a2-234a4 StackAdj> Δ-4 {[«6""»]|[-4-]}
<MI 234a4 MOVE.L (A6-0x3c),-(A7)> Δ-4 {[«6""»]|[-4-]|[4, '(A6-0x3c)']}
<POP 234a6-234a8 StackAdj> Δ-4 {[«6""»]|[-4-]|[4, '(A6-0x3c)']|[-4-]}
<Lit 0x234a8 5> {[«6""»]|[-4-]|[4, '(A6-0x3c)']|[$$.M200]}
<Call 0x234b6 0x102d0> {[«6""»]|[-4-]|[4, '(A6-0x3c)']|[$$.M200]}
StringCat2(a, b : String) : String
<POP 234bc-234be StackAdj> Δ+8 {[«6""»]|[-4-]}
<MI 234be MOVE.L (A7)+,(A6-0x3c)> Δ+4 {[«6""»]}
<POP 234c0-234c2 StackAdj> Δ+2 {[-4-]}
<MI 234c2 MOVE.L (A6-0x3c),(A7)> {[4, '(A6-0x3c)']}
<MI 234c4 CLR.B -(A7)> Δ-2 {[4, '(A6-0x3c)']|[#0]}
<Const 0x234c6 0x1.2> Δ-2 {[4, '(A6-0x3c)']|[#0]|[#1]}
<Const 0x234c8 0x0.4> Δ-4 {[4, '(A6-0x3c)']|[#0]|[#1]|[##0]}
<Pointer.fp 0x234cc <LVAR -0x038 @ 1(r)>> Δ-4 {[4, '(A6-0x3c)']|[#0]|[#1]|[##0]|[@@-56]}
<Pointer.fp 0x234d0 <LVAR -0x036 @ 4(r)>> Δ-4 {[4, '(A6-0x3c)']|[#0]|[#1]|[##0]|[@@-56]|[@@-54]}
<Call 0x234d4 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 234da-234dc StackAdj> Δ+20 {}
<MI 234dc TST.B (A6-0x38)> {}
<MI 234e0 BEQ 0x234f0> {}
<POP 234e2-234f0 Naked> Σ0 →0x2373c
<Pointer.fp 0x234e2 <LVAR -0x03c @ 4(rw)>> Δ-4 {[@@-60]}
<Call 0x234e4 0x102bc> {[@@-60]}
FreeString(VAR a : String)
<POP 234ea-234ec StackAdj> Δ+4 {}
<MI 234ec BRA 0x2373c> {}
<POP 234f0-23536 Naked> Σ0 ↓ →0x2356c ←0x23492
<MI 234f0 MOVEA.L (A6-0x36),A0> {}
<MI 234f4 MOVE.B (A0+0x3f),D0> {}
<MI 234f8 LSL.B #0x6,D0> {}
<MI 234fa LSR.B #0x7,D0> {}
<MI 234fc MOVE.B D0,(A6-0x32)> {}
<MI 23500 CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x23502 0x1.2> Δ-2 {[#0]|[#1]}
<Const 0x23504 0x1.4> Δ-4 {[#0]|[#1]|[##1]}
<Pointer.fp 0x23508 <LVAR -0x038 @ 1(r)>> Δ-4 {[#0]|[#1]|[##1]|[@@-56]}
<Pointer.fp 0x2350c <LVAR -0x036 @ 4(r)>> Δ-4 {[#0]|[#1]|[##1]|[@@-56]|[@@-54]}
<Call 0x23510 0x1038c> {[#0]|[#1]|[##1]|[@@-56]|[@@-54]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 23516-2351a StackAdj> Δ+16 {}
<MI 2351a MOVEA.L (A6-0x3c),A0> {}
<MI 2351c MOVE.W (A0),D1> {}
<MI 2351e EXTW.L D1> {}
<MI 23520 SUBQ.L #0x5,D1> {}
<POP 0x23522 LimitCheck -0x8000 ≤ D1 ≤ 0x7fff> {}
<MI 23530 MOVE.W D1,(A0)> {}
<MI 23532 TST.B D0> {}
<MI 23534 BNE 0x2356c> {}
<POP 23536-2356c Naked> Σ0 →0x2373c
<Blob 0x23536 [18] @> Δ-18 {[«18""»]}
<POP 23542-23544 StackAdj> Δ-4 {[«18""»]|[-4-]}
<MI 23544 MOVE.L (A6-0x3c),-(A7)> Δ-4 {[«18""»]|[-4-]|[4, '(A6-0x3c)']}
<POP 23546-23548 StackAdj> Δ-4 {[«18""»]|[-4-]|[4, '(A6-0x3c)']|[-4-]}
<Lit 0x23548 18> {[«18""»]|[-4-]|[4, '(A6-0x3c)']|[$$ is not a program.]}
<Call 0x23556 0x102d0> {[«18""»]|[-4-]|[4, '(A6-0x3c)']|[$$ is not a program.]}
StringCat2(a, b : String) : String
<POP 2355c-2355e StackAdj> Δ+8 {[«18""»]|[-4-]}
<Call 0x2355e 0x103e0> {[«18""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 23564-23568 StackAdj> Δ+22 {}
<MI 23568 BRA 0x2373c> {}
<POP 2356c-23586 Naked> Σ0 Δ-8 ↓ ←0x234f0
<Pointer.fp 0x2356c <LVAR -0x030 @ 4(r)>> Δ-4 {[@@-48]}
<Call 0x23570 0x102b8> {[@@-48]}
NewString(VAR a : String)
<POP 23576-23578 StackAdj> Δ+4 {}
<MI 23578 MOVEA.L (A6-0x30),A0> {}
<MI 2357c MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 2357e MOVEQ.L #0x01,D7> {[4, 'A0']}
<MI 23580 MOVE.L (A6-0x2c),-(A7)> Δ-4 {[4, 'A0']|[4, '(A6-0x2c)']}
<MI 23584 MOVEQ.L #0x02,D5> {[4, 'A0']|[4, '(A6-0x2c)']}
<POP 23586-2358c Naked> Σ-8 ↓ →0x2361e ←0x23618
<MI 23586 CMP.L (A7),D5> {[-8-]}
<MI 23588 BGT 0x2361e> {[-8-]}
<POP 2358c-235ac Naked> Σ-8 Δ-4 ↓ →0x235c0
<POP 2358c-2358e StackAdj> Δ-8 {[-16-]}
<MI 2358e MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<MI 23590 MOVE.L D5,-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[4, 'D5']}
<Call 0x23592 0x22990> {[-16-]|[4, '(A6+0x8)']|[4, 'D5']}
<POP 23596-23598 StackAdj> Δ+8 {[-16-]}
<MI 23598 MOVE.L (A7)+,(A6-0x28)> Δ+4 {[-12-]}
<MI 2359c MOVE.L (A7)+,(A6-0x24)> Δ+4 {[-8-]}
<MI 235a0 MOVE.L (A6-0x24),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x24)']}
<MI 235a4 MOVE.L (A6-0x28),D6> {[-8-]|[4, '(A6-0x24)']}
<MI 235a8 CMP.L (A7),D6> {[-8-]|[4, '(A6-0x24)']}
<MI 235aa BGT 0x235c0> {[-8-]|[4, '(A6-0x24)']}
<POP 235ac-235c0 Naked> Σ-12 ↓
<MI 235ac MOVE.L (A7),D0> {[-12-]}
<POP 0x235ae LimitCheck -0x7fffffff ≤ D6> {[-12-]}
<MI 235ae CMPI.L #0x80000001,D6>
<MI 235b4 BLT 0x235be>
<POP 0x235b6 LimitCheck D0 ≤ 0x7fffffff> {[-12-]}
<MI 235b6 CMPI.L #0x7fffffff,D0>
<MI 235bc BLE 0x235c0>
<MI 235be TRAP #15>
<POP 235c0-235c4 Naked> Σ-12 ↓ →0x235f6 ←0x2358c ←0x235c4
<MI 235c0 CMP.L (A7),D6> {[-12-]}
<MI 235c2 BGT 0x235f6> {[-12-]}
<POP 235c4-235f6 Naked> Σ-12 ↓ →0x235c0
<MI 235c4 MOVE.L D7,D0> {[-12-]}
<MI 235c6 SUBQ.L #0x1,D0> {[-12-]}
<POP 0x235c8 LimitCheck 0x0 ≤ D0 ≤ 0x7d> {[-12-]}
<MI 235d2 MOVEA.L (A7+0x8),A0> {[-12-]}
<MI 235d6 MOVE.L D6,D1> {[-12-]}
<MI 235d8 SUBQ.L #0x1,D1> {[-12-]}
<POP 0x235da LimitCheck 0x0 ≤ D1 ≤ 0x1fff> {[-12-]}
<MI 235e4 LEA.L 0x25848,A1> {[-12-]}
<MI 235ea MOVE.B (A1+D1.L+#0x8),(A0+D0.L+#0x2)> {[-12-]}
<MI 235f0 ADDQ.L #0x1,D7> {[-12-]}
<MI 235f2 ADDQ.L #0x1,D6> {[-12-]}
<MI 235f4 BVC 0x235c0> {[-12-]}
<POP 235f6-235fe Naked> Σ-12 Δ+4 ↓ →0x23618 ←0x235c0
<POP 235f6-235f8 StackAdj> Δ+4 {[-8-]}
<MI 235f8 CMP.L (A6-0x2c),D5> {[-8-]}
<MI 235fc BEQ 0x23618> {[-8-]}
<POP 235fe-23618 Naked> Σ-8 ↓
<MI 235fe MOVE.L D7,D0> {[-8-]}
<MI 23600 SUBQ.L #0x1,D0> {[-8-]}
<POP 0x23602 LimitCheck 0x0 ≤ D0 ≤ 0x7d> {[-8-]}
<MI 2360c MOVEA.L (A7+0x4),A0> {[-8-]}
<MI 23610 MOVE.B #0x2c,(A0+D0.L+#0x2)> {[-8-]}
<MI 23616 ADDQ.L #0x1,D7> {[-8-]}
<POP 23618-2361e Naked> Σ-8 ↓ →0x23586 ←0x235f6
<MI 23618 ADDQ.L #0x1,D5> {[-8-]}
<MI 2361a BVC 0x23586> {[-8-]}
<POP 2361e-236ce Naked> Σ-8 Δ+8 ↓ →0x236d4 ←0x23586
<POP 2361e-23620 StackAdj> Δ+4 {[-4-]}
<MI 23620 MOVEA.L (A7),A0> {[-4-]}
<MI 23622 MOVE.L D7,D0> {[-4-]}
<MI 23624 SUBQ.L #0x1,D0> {[-4-]}
<POP 0x23626 LimitCheck -0x8000 ≤ D0 ≤ 0x7fff> {[-4-]}
<MI 23634 MOVE.W D0,(A0)> {[-4-]}
<POP 23636-23638 StackAdj> Δ+2 {[-2-]}
<POP 23638-23639 StackAdj> Δ+2 {}
<Blob 0x23639 [2] @> Δ-2 {[«2""»]}
<Blob 0x2363c [2] @> Δ-2 {[«2""»]|[«2""»]}
<Blob 0x23640 [2] @> Δ-2 {[«2""»]|[«2""»]|[«2""»]}
<POP 23644-23646 StackAdj> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[-4-]}
<Lit 0x23646 6> {[«2""»]|[«2""»]|[«2""»]|[$$STATUS]}
<MI 23654 MOVE.L (A7)+,(A6-0x8)> Δ+4 {[«2""»]|[«2""»]|[«2""»]}
<POP 23658-2365a StackAdj> Δ+2 {[«2""»]|[«2""»]}
<MI 2365a MOVE.L (A6+0x8),(A7)> {[4, '(A6+0x8)']}
<Const 0x2365c 0x0.4> Δ-4 {[4, '(A6+0x8)']|[##0]}
<MI 23660 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']}
<Pointer.fp 0x23664 <LVAR -0x010 @ 4(r)>> Δ-4 {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']|[@@-16]}
<Pointer.fp 0x23668 <LVAR -0x013 @ 1(r)>> Δ-4 {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']|[@@-16]|[@@-19]}
<Call 0x2366c 0x24fa6> {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']|[@@-16]|[@@-19]}
<POP 23672-23674 StackAdj> Δ+20 {}
<Pointer.fp 0x23674 <LVAR -0x008 @ 4(rw)>> Δ-4 {[@@-8]}
<Call 0x23678 0x102bc> {[@@-8]}
FreeString(VAR a : String)
<POP 2367e-23680 StackAdj> Δ+2 {[-2-]}
<POP 23680-23681 StackAdj> Δ+2 {}
<Blob 0x23681 [2] @> Δ-2 {[«2""»]}
<Blob 0x23684 [2] @> Δ-2 {[«2""»]|[«2""»]}
<Blob 0x23688 [2] @> Δ-2 {[«2""»]|[«2""»]|[«2""»]}
<POP 2368c-2368e StackAdj> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[-4-]}
<Lit 0x2368e 6> {[«2""»]|[«2""»]|[«2""»]|[$$RESULT]}
<MI 2369c MOVE.L (A7)+,(A6-0x8)> Δ+4 {[«2""»]|[«2""»]|[«2""»]}
<POP 236a0-236a2 StackAdj> Δ+2 {[«2""»]|[«2""»]}
<MI 236a2 MOVE.L (A6+0x8),(A7)> {[4, '(A6+0x8)']}
<Const 0x236a4 0x0.4> Δ-4 {[4, '(A6+0x8)']|[##0]}
<MI 236a8 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']}
<Pointer.fp 0x236ac <LVAR -0x00c @ 4(r)>> Δ-4 {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']|[@@-12]}
<Pointer.fp 0x236b0 <LVAR -0x012 @ 1(r)>> Δ-4 {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']|[@@-12]|[@@-18]}
<Call 0x236b4 0x24fa6> {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']|[@@-12]|[@@-18]}
<POP 236ba-236bc StackAdj> Δ+20 {}
<Pointer.fp 0x236bc <LVAR -0x008 @ 4(rw)>> Δ-4 {[@@-8]}
<Call 0x236c0 0x102bc> {[@@-8]}
FreeString(VAR a : String)
<POP 236c6-236c8 StackAdj> Δ+4 {}
<MI 236c8 TST.B (A6-0x13)> {}
<MI 236cc BNE 0x236d4> {}
<POP 236ce-236d4 Naked> Σ0 ↓ →0x236da
<MI 236ce TST.B (A6-0x12)> {}
<MI 236d2 BEQ 0x236da> {}
<POP 236d4-236da Naked> Σ0 →0x236de ←0x2361e
<MI 236d4 CLR.B (A6-0x4)> {}
<MI 236d8 BRA 0x236de> {}
<POP 236da-236de Naked> Σ0 ↓ ←0x236ce
<MI 236da MOVE.B #0x01,(A6-0x4)> {}
<POP 236de-23704 Naked> Σ0 ↓ →0x23724 ←0x236d4
<MI 236de MOVE.L (A6-0x3c),-(A7)> Δ-4 {[4, '(A6-0x3c)']}
<MI 236e0 MOVE.L (A6-0x30),-(A7)> Δ-4 {[4, '(A6-0x3c)']|[4, '(A6-0x30)']}
<MI 236e4 MOVE.B (A6-0x4),D0> {[4, '(A6-0x3c)']|[4, '(A6-0x30)']}
<MI 236e8 EXTB.W D0> {[4, '(A6-0x3c)']|[4, '(A6-0x30)']}
<POP 0x236ea LimitCheck 0x0 ≤ D0 ≤ 0x2> {[4, '(A6-0x3c)']|[4, '(A6-0x30)']}
<MI 236ee MOVE.B D0,-(A7)> Δ-2 {[4, '(A6-0x3c)']|[4, '(A6-0x30)']|[2, 'D0']}
<Pointer.fp 0x236f0 <LVAR -0x014 @ 1(r)>> Δ-4 {[4, '(A6-0x3c)']|[4, '(A6-0x30)']|[2, 'D0']|[@@-20]}
<Call 0x236f4 0x103b0> {[4, '(A6-0x3c)']|[4, '(A6-0x30)']|[2, 'D0']|[@@-20]}
PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
<POP 236fa-236fe StackAdj> Δ+14 {}
<MI 236fe TST.B (A6-0x13)> {}
<MI 23702 BEQ 0x23724> {}
<POP 23704-23724 Naked> Σ0 ↓
<MI 23704 MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0x10)']}
<POP 23708-2370a StackAdj> Δ-4 {[4, '(A6-0x10)']|[-4-]}
<MI 2370a MOVE.B (A6-0x14),D0> {[4, '(A6-0x10)']|[-4-]}
<MI 2370e EXTB.W D0> {[4, '(A6-0x10)']|[-4-]}
<POP 0x23710 LimitCheck 0x0 ≤ D0 ≤ 0xe> {[4, '(A6-0x10)']|[-4-]}
<MI 23714 MOVE.B D0,-(A7)> Δ-2 {[4, '(A6-0x10)']|[-4-]|[2, 'D0']}
<Call 0x23716 0x103c0> {[4, '(A6-0x10)']|[-4-]|[2, 'D0']}
ExpErrMsg(a: Byte) : String
<POP 2371c-2371e StackAdj> Δ+2 {[4, '(A6-0x10)']|[-4-]}
<Call 0x2371e 0x2306c> {[4, '(A6-0x10)']|[-4-]}
<POP 23722-23724 StackAdj> Δ+8 {}
<POP 23724-2372a Naked> Σ0 ↓ →0x2373c ←0x236de
<MI 23724 TST.B (A6-0x12)> {}
<MI 23728 BEQ 0x2373c> {}
<POP 2372a-2373c Naked> Σ0 ↓
<MI 2372a MOVE.L (A6-0xc),-(A7)> Δ-4 {[4, '(A6-0xc)']}
<POP 2372e-23730 StackAdj> Δ-4 {[4, '(A6-0xc)']|[-4-]}
<Call 0x23730 0x103c8> {[4, '(A6-0xc)']|[-4-]}
FSCALL_103c8
<Call 0x23736 0x2306c> {[4, '(A6-0xc)']|[-4-]}
<POP 2373a-2373c StackAdj> Δ+8 {}
<POP 2373c-23744 Epilogue> Σ0 ←0x234e2 ←0x23536 ←0x23724
@ 23744
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 4(rw)>
<LVAR -0x008 @ 4(rw)>
<POP 23744-237bc Body>
<POP 23744-2375a Prologue> Σ0 ↓
<POP 2375a-23762 RegCacheLoad> Σ0 ↓
<POP 23762-23796 Naked> Σ0 ↓ →0x2379c
<POP 23762-23764 StackAdj> Δ-4 {[-4-]}
<MI 23764 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x23768 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x2376c 0x22a6e> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 23770-23772 StackAdj> Δ+8 {[-4-]}
<MI 23772 MOVE.L (A7),(A6-0x8)> {[-4-]}
<MI 23774 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x23778 0x2.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##2]}
<Call 0x2377c 0x22a6e> {[-4-]|[4, '(A6+0x8)']|[##2]}
<POP 23780-23782 StackAdj> Δ+8 {[-4-]}
<MI 23782 MOVE.L (A7),(A6-0x4)> {[-4-]}
<POP 23784-23786 StackAdj> Δ+2 {[-2-]}
<MI 23786 MOVE.L (A6-0x8),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x8)']}
<MI 23788 MOVE.L (A6-0x4),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x8)']|[4, '(A6-0x4)']}
<Call 0x2378a 0x102c8> {[-2-]|[4, '(A6-0x8)']|[4, '(A6-0x4)']}
StringEqual(a, b : String) : Byte
<POP 23790-23792 StackAdj> Δ+8 {[-2-]}
<MI 23792 TST.B (A7)+> Δ+2 {}
<MI 23794 BEQ 0x2379c> {}
<POP 23796-2379c Naked> Σ0 →0x237a0
<Call 0x23796 0x2252e> {}
<MI 2379a BRA 0x237a0> {}
<POP 2379c-237a0 Naked> Σ0 ↓ ←0x23762
<Call 0x2379c 0x22574> {}
<POP 237a0-237b4 Naked> Σ0 ↓ ←0x23796
<Pointer.fp 0x237a0 <LVAR -0x004 @ 4(rw)>> Δ-4 {[@@-4]}
<Call 0x237a2 0x102bc> {[@@-4]}
FreeString(VAR a : String)
<POP 237a8-237aa StackAdj> Δ+4 {}
<Pointer.fp 0x237aa <LVAR -0x008 @ 4(rw)>> Δ-4 {[@@-8]}
<Call 0x237ac 0x102bc> {[@@-8]}
FreeString(VAR a : String)
<POP 237b2-237b4 StackAdj> Δ+4 {}
<POP 237b4-237bc Epilogue> Σ0
@ 237bc
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 4(rw)>
<LVAR -0x008 @ 4(rw)>
<POP 237bc-23834 Body>
<POP 237bc-237d2 Prologue> Σ0 ↓
<POP 237d2-237da RegCacheLoad> Σ0 ↓
<POP 237da-2380e Naked> Σ0 ↓ →0x23814
<POP 237da-237dc StackAdj> Δ-4 {[-4-]}
<MI 237dc MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x237e0 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x237e4 0x22a6e> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 237e8-237ea StackAdj> Δ+8 {[-4-]}
<MI 237ea MOVE.L (A7),(A6-0x8)> {[-4-]}
<MI 237ec MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x237f0 0x2.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##2]}
<Call 0x237f4 0x22a6e> {[-4-]|[4, '(A6+0x8)']|[##2]}
<POP 237f8-237fa StackAdj> Δ+8 {[-4-]}
<MI 237fa MOVE.L (A7),(A6-0x4)> {[-4-]}
<POP 237fc-237fe StackAdj> Δ+2 {[-2-]}
<MI 237fe MOVE.L (A6-0x8),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x8)']}
<MI 23800 MOVE.L (A6-0x4),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x8)']|[4, '(A6-0x4)']}
<Call 0x23802 0x102c8> {[-2-]|[4, '(A6-0x8)']|[4, '(A6-0x4)']}
StringEqual(a, b : String) : Byte
<POP 23808-2380a StackAdj> Δ+8 {[-2-]}
<MI 2380a TST.B (A7)+> Δ+2 {}
<MI 2380c BNE 0x23814> {}
<POP 2380e-23814 Naked> Σ0 →0x23818
<Call 0x2380e 0x2252e> {}
<MI 23812 BRA 0x23818> {}
<POP 23814-23818 Naked> Σ0 ↓ ←0x237da
<Call 0x23814 0x22574> {}
<POP 23818-2382c Naked> Σ0 ↓ ←0x2380e
<Pointer.fp 0x23818 <LVAR -0x004 @ 4(rw)>> Δ-4 {[@@-4]}
<Call 0x2381a 0x102bc> {[@@-4]}
FreeString(VAR a : String)
<POP 23820-23822 StackAdj> Δ+4 {}
<Pointer.fp 0x23822 <LVAR -0x008 @ 4(rw)>> Δ-4 {[@@-8]}
<Call 0x23824 0x102bc> {[@@-8]}
FreeString(VAR a : String)
<POP 2382a-2382c StackAdj> Δ+4 {}
<POP 2382c-23834 Epilogue> Σ0
@ 23834
<LVAR 0x008 4(r)>
<POP 23834-23860 Body>
<POP 23834-23846 Prologue> Σ0 ↓
<POP 23846-2385c Naked> Σ0 ↓
<POP 23846-23848 StackAdj> Δ-4 {[-4-]}
<MI 23848 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x2384c 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23850 0x22a6e> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 23854-23856 StackAdj> Δ+8 {[-4-]}
<Call 0x23856 0x22866> {[-4-]}
<POP 2385a-2385c StackAdj> Δ+4 {}
<POP 2385c-23860 Epilogue> Σ0
@ 23860
<LVAR 0x008 4(r)>
<LVAR -0x014 @ 4(rw)>
<POP 23860-23960 Body>
<POP 23860-23876 Prologue> Σ0 ↓
<POP 23876-23880 RegCacheLoad> Σ0 ↓
<POP 23880-238de Naked> Σ0 ↓ →0x2390e
<POP 23880-23882 StackAdj> Δ-4 {[-4-]}
<MI 23882 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x23884 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23888 0x22a6e> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 2388c-2388e StackAdj> Δ+8 {[-4-]}
<MI 2388e MOVE.L (A7),(A6-0x14)> {[-4-]}
<MI 23890 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x23892 0x2.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##2]}
<Call 0x23896 0x22a6e> {[-4-]|[4, '(A6+0x8)']|[##2]}
<POP 2389a-2389c StackAdj> Δ+8 {[-4-]}
<MI 2389c MOVEA.L (A7)+,A4> Δ+4 {}
<POP 2389e-238a2 StackAdj> Δ-12 {[-12-]}
<MI 238a2 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']}
<Const 0x238a4 0x3.4> Δ-4 {[-12-]|[4, '(A6+0x8)']|[##3]}
<Call 0x238a8 0x22aa0> {[-12-]|[4, '(A6+0x8)']|[##3]}
<POP 238ac-238ae StackAdj> Δ+8 {[-12-]}
<Call 0x238ae 0x10350> {[-12-]}
Quad2Long(a : Quad) : Long
<POP 238b4-238b6 StackAdj> Δ+8 {[-4-]}
<MI 238b6 MOVE.L (A7),D6> {[-4-]}
<POP 238b8-238ba StackAdj> Δ-8 {[-12-]}
<MI 238ba MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']}
<Const 0x238bc 0x4.4> Δ-4 {[-12-]|[4, '(A6+0x8)']|[##4]}
<Call 0x238c0 0x22aa0> {[-12-]|[4, '(A6+0x8)']|[##4]}
<POP 238c4-238c6 StackAdj> Δ+8 {[-12-]}
<Call 0x238c6 0x10350> {[-12-]}
Quad2Long(a : Quad) : Long
<POP 238cc-238ce StackAdj> Δ+8 {[-4-]}
<MI 238ce MOVE.L (A7)+,D5> Δ+4 {}
<MI 238d0 MOVE.L D6,D0> {}
<MI 238d2 ADD.L D5,D0> {}
<MI 238d4 SUBQ.L #0x1,D0> {}
<MI 238d6 MOVE.W (A4),D1> {}
<MI 238d8 EXTW.L D1> {}
<MI 238da CMP.L D1,D0> {}
<MI 238dc BLE 0x2390e> {}
<POP 238de-2390e Naked> Σ0 ↓
<Blob 0x238de [32] @> Δ-32 {[«32""»]}
<POP 238f0-238f2 StackAdj> Δ-4 {[«32""»]|[-4-]}
<Lit 0x238f2 31> {[«32""»]|[$$Offset/Length error in [INSERT]]}
<Call 0x23906 0x21d46> {[«32""»]|[$$Offset/Length error in [INSERT]]}
<POP 2390a-2390e StackAdj> Δ+36 {}
<POP 2390e-2391a Naked> Σ0 Δ-8 ↓ ←0x23880
<MI 2390e MOVEA.L (A6-0x14),A0> {}
<MI 23910 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 23912 MOVE.W (A0),D0> {[4, 'A0']}
<MI 23914 EXTW.L D0> {[4, 'A0']}
<MI 23916 MOVE.L D0,-(A7)> Δ-4 {[4, 'A0']|[4, 'D0']}
<MI 23918 MOVEQ.L #0x01,D7> {[4, 'A0']|[4, 'D0']}
<POP 2391a-2391e Naked> Σ-8 ↓ →0x23944 ←0x2391e
<MI 2391a CMP.L (A7),D7> {[-8-]}
<MI 2391c BGT 0x23944> {[-8-]}
<POP 2391e-23944 Naked> Σ-8 ↓ →0x2391a
<MI 2391e MOVE.L D6,D0> {[-8-]}
<MI 23920 ADD.L D7,D0> {[-8-]}
<MI 23922 SUBQ.L #0x1,D0> {[-8-]}
<MI 23924 SUBQ.L #0x1,D0> {[-8-]}
<POP 0x23926 LimitCheck 0x0 ≤ D0 ≤ 0x7d> {[-8-]}
<MI 2392c MOVE.L D7,D1> {[-8-]}
<MI 2392e SUBQ.L #0x1,D1> {[-8-]}
<POP 0x23930 LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-8-]}
<MI 23936 MOVEA.L (A7+0x4),A0> {[-8-]}
<MI 2393a MOVE.B (A0+D1.L+#0x2),(A4+D0.L+#0x2)> {[-8-]}
<MI 23940 ADDQ.L #0x1,D7> {[-8-]}
<MI 23942 BVC 0x2391a> {[-8-]}
<POP 23944-23958 Naked> Σ-8 Δ+8 ↓ ←0x2391a
<POP 23944-23946 StackAdj> Δ+4 {[-4-]}
<MI 23946 MOVE.L A4,(A7)> {[4, 'A4']}
<Call 0x23948 0x22b10> {[4, 'A4']}
<POP 2394c-2394e StackAdj> Δ+4 {}
<Pointer.fp 0x2394e <LVAR -0x014 @ 4(rw)>> Δ-4 {[@@-20]}
<Call 0x23950 0x102bc> {[@@-20]}
FreeString(VAR a : String)
<POP 23956-23958 StackAdj> Δ+4 {}
<POP 23958-23960 Epilogue> Σ0
@ 23960
<LVAR 0x008 4(r)>
<LVAR -0x010 @ 4(r)>
<LVAR -0x014 @ 4(rw)>
<POP 23960-23a46 Body>
<POP 23960-23976 Prologue> Σ0 ↓
<POP 23976-23984 RegCacheLoad> Σ0 ↓
<POP 23984-239dc Naked> Σ0 ↓ →0x239e2
<POP 23984-23986 StackAdj> Δ-4 {[-4-]}
<MI 23986 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x23988 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x2398c 0x22a6e> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 23990-23992 StackAdj> Δ+8 {[-4-]}
<MI 23992 MOVE.L (A7)+,(A6-0x14)> Δ+4 {}
<Pointer.fp 0x23994 <LVAR -0x010 @ 4(r)>> Δ-4 {[@@-16]}
<Call 0x23996 0x102b8> {[@@-16]}
NewString(VAR a : String)
<POP 2399c-2399e StackAdj> Δ-8 {[@@-16]|[-8-]}
<MI 2399e MOVE.L (A6+0x8),-(A7)> Δ-4 {[@@-16]|[-8-]|[4, '(A6+0x8)']}
<Const 0x239a0 0x2.4> Δ-4 {[@@-16]|[-8-]|[4, '(A6+0x8)']|[##2]}
<Call 0x239a4 0x22aa0> {[@@-16]|[-8-]|[4, '(A6+0x8)']|[##2]}
<POP 239a8-239aa StackAdj> Δ+8 {[@@-16]|[-8-]}
<Call 0x239aa 0x10350> {[@@-16]|[-8-]}
Quad2Long(a : Quad) : Long
<POP 239b0-239b2 StackAdj> Δ+8 {[@@-16]}
<MI 239b2 MOVE.L (A7),D5> {[@@-16]}
<POP 239b4-239b6 StackAdj> Δ-8 {[@@-16]|[-8-]}
<MI 239b6 MOVE.L (A6+0x8),-(A7)> Δ-4 {[@@-16]|[-8-]|[4, '(A6+0x8)']}
<Const 0x239b8 0x3.4> Δ-4 {[@@-16]|[-8-]|[4, '(A6+0x8)']|[##3]}
<Call 0x239bc 0x22aa0> {[@@-16]|[-8-]|[4, '(A6+0x8)']|[##3]}
<POP 239c0-239c2 StackAdj> Δ+8 {[@@-16]|[-8-]}
<Call 0x239c2 0x10350> {[@@-16]|[-8-]}
Quad2Long(a : Quad) : Long
<POP 239c8-239ca StackAdj> Δ+8 {[@@-16]}
<MI 239ca MOVE.L (A7)+,D6> Δ+4 {}
<MI 239cc MOVEA.L (A6-0x14),A0> {}
<MI 239ce MOVE.L D5,D0> {}
<MI 239d0 ADD.L D6,D0> {}
<MI 239d2 SUBQ.L #0x1,D0> {}
<MI 239d4 MOVE.W (A0),D1> {}
<MI 239d6 EXTW.L D1> {}
<MI 239d8 CMP.L D1,D0> {}
<MI 239da BLE 0x239e2> {}
<POP 239dc-239e2 Naked> Σ0 ↓
<MI 239dc ADDQ.L #0x1,D1> {}
<MI 239de SUB.L D5,D1> {}
<MI 239e0 MOVE.L D1,D6> {}
<POP 239e2-239e6 Naked> Σ0 Δ-4 ↓ ←0x23984
<MI 239e2 MOVE.L D6,-(A7)> Δ-4 {[4, 'D6']}
<MI 239e4 MOVEQ.L #0x01,D7> {[4, 'D6']}
<POP 239e6-239ea Naked> Σ-4 ↓ →0x23a10 ←0x239ea
<MI 239e6 CMP.L (A7),D7> {[-4-]}
<MI 239e8 BGT 0x23a10> {[-4-]}
<POP 239ea-23a10 Naked> Σ-4 ↓ →0x239e6
<MI 239ea MOVEA.L (A6-0x10),A0> {[-4-]}
<MI 239ec MOVE.L D7,D0> {[-4-]}
<MI 239ee SUBQ.L #0x1,D0> {[-4-]}
<POP 0x239f0 LimitCheck 0x0 ≤ D0 ≤ 0x7d> {[-4-]}
<MI 239f6 MOVEA.L (A6-0x14),A1> {[-4-]}
<MI 239f8 MOVE.L D7,D1> {[-4-]}
<MI 239fa ADD.L D5,D1> {[-4-]}
<MI 239fc SUBQ.L #0x1,D1> {[-4-]}
<MI 239fe SUBQ.L #0x1,D1> {[-4-]}
<POP 0x23a00 LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-4-]}
<MI 23a06 MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x2)> {[-4-]}
<MI 23a0c ADDQ.L #0x1,D7> {[-4-]}
<MI 23a0e BVC 0x239e6> {[-4-]}
<POP 23a10-23a3e Naked> Σ-4 Δ+4 ↓ ←0x239e6
<POP 23a10-23a12 StackAdj> Δ+4 {}
<MI 23a12 MOVEA.L (A6-0x10),A0> {}
<POP 0x23a14 LimitCheck -0x8000 ≤ D6 ≤ 0x7fff> {}
<MI 23a2a MOVE.W D6,(A0)> {}
<MI 23a2c MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0x10)']}
<Call 0x23a2e 0x22b10> {[4, '(A6-0x10)']}
<POP 23a32-23a34 StackAdj> Δ+4 {}
<Pointer.fp 0x23a34 <LVAR -0x014 @ 4(rw)>> Δ-4 {[@@-20]}
<Call 0x23a36 0x102bc> {[@@-20]}
FreeString(VAR a : String)
<POP 23a3c-23a3e StackAdj> Δ+4 {}
<POP 23a3e-23a46 Epilogue> Σ0
@ 23a46
<LVAR 0x008 4(r)>
<POP 23a46-23a72 Body>
<POP 23a46-23a58 Prologue> Σ0 ↓
<POP 23a58-23a6e Naked> Σ0 ↓
<POP 23a58-23a5a StackAdj> Δ-8 {[-8-]}
<MI 23a5a MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<Const 0x23a5e 0x1.4> Δ-4 {[-8-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23a62 0x22aa0> {[-8-]|[4, '(A6+0x8)']|[##1]}
<POP 23a66-23a68 StackAdj> Δ+8 {[-8-]}
<Call 0x23a68 0x228da> {[-8-]}
<POP 23a6c-23a6e StackAdj> Δ+8 {}
<POP 23a6e-23a72 Epilogue> Σ0
@ 23a72
<LVAR 0x008 4(r)>
<POP 23a72-23abe Body>
<POP 23a72-23a84 Prologue> Σ0 ↓
<POP 23a84-23ab0 Naked> Σ0 ↓ →0x23ab6
<POP 23a84-23a88 StackAdj> Δ-10 {[-10-]}
<MI 23a88 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']}
<Const 0x23a8c 0x1.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23a90 0x22aa0> {[-10-]|[4, '(A6+0x8)']|[##1]}
<MI 23a94 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x23a98 0x2.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x23a9c 0x22aa0> {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 23aa0-23aa2 StackAdj> Δ+8 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23aa2 0x1032c> {[-10-]|[4, '(A6+0x8)']|[##1]}
IsEqual(a, b : Quad) : Bool
<POP 23aa8-23aac StackAdj> Δ+16 {[-2-]}
<MI 23aac TST.B (A7)+> Δ+2 {}
<MI 23aae BEQ 0x23ab6> {}
<POP 23ab0-23ab6 Naked> Σ0 →0x23aba
<Call 0x23ab0 0x2252e> {}
<MI 23ab4 BRA 0x23aba> {}
<POP 23ab6-23aba Naked> Σ0 ↓ ←0x23a84
<Call 0x23ab6 0x22574> {}
<POP 23aba-23abe Epilogue> Σ0 ←0x23ab0
@ 23abe
<LVAR 0x008 4(r)>
<POP 23abe-23b0a Body>
<POP 23abe-23ad0 Prologue> Σ0 ↓
<POP 23ad0-23afc Naked> Σ0 ↓ →0x23b02
<POP 23ad0-23ad4 StackAdj> Δ-10 {[-10-]}
<MI 23ad4 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']}
<Const 0x23ad8 0x1.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23adc 0x22aa0> {[-10-]|[4, '(A6+0x8)']|[##1]}
<MI 23ae0 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x23ae4 0x2.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x23ae8 0x22aa0> {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 23aec-23aee StackAdj> Δ+8 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23aee 0x1032c> {[-10-]|[4, '(A6+0x8)']|[##1]}
IsEqual(a, b : Quad) : Bool
<POP 23af4-23af8 StackAdj> Δ+16 {[-2-]}
<MI 23af8 TST.B (A7)+> Δ+2 {}
<MI 23afa BNE 0x23b02> {}
<POP 23afc-23b02 Naked> Σ0 →0x23b06
<Call 0x23afc 0x2252e> {}
<MI 23b00 BRA 0x23b06> {}
<POP 23b02-23b06 Naked> Σ0 ↓ ←0x23ad0
<Call 0x23b02 0x22574> {}
<POP 23b06-23b0a Epilogue> Σ0 ←0x23afc
@ 23b0a
<LVAR 0x008 4(r)>
<POP 23b0a-23b56 Body>
<POP 23b0a-23b1c Prologue> Σ0 ↓
<POP 23b1c-23b48 Naked> Σ0 ↓ →0x23b4e
<POP 23b1c-23b20 StackAdj> Δ-10 {[-10-]}
<MI 23b20 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']}
<Const 0x23b24 0x1.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23b28 0x22aa0> {[-10-]|[4, '(A6+0x8)']|[##1]}
<MI 23b2c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x23b30 0x2.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x23b34 0x22aa0> {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 23b38-23b3a StackAdj> Δ+8 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23b3a 0x10328> {[-10-]|[4, '(A6+0x8)']|[##1]}
IsSmaller(a, b : Quad) : Bool
<POP 23b40-23b44 StackAdj> Δ+16 {[-2-]}
<MI 23b44 TST.B (A7)+> Δ+2 {}
<MI 23b46 BEQ 0x23b4e> {}
<POP 23b48-23b4e Naked> Σ0 →0x23b52
<Call 0x23b48 0x2252e> {}
<MI 23b4c BRA 0x23b52> {}
<POP 23b4e-23b52 Naked> Σ0 ↓ ←0x23b1c
<Call 0x23b4e 0x22574> {}
<POP 23b52-23b56 Epilogue> Σ0 ←0x23b48
@ 23b56
<LVAR 0x008 4(r)>
<POP 23b56-23ba2 Body>
<POP 23b56-23b68 Prologue> Σ0 ↓
<POP 23b68-23b94 Naked> Σ0 ↓ →0x23b9a
<POP 23b68-23b6c StackAdj> Δ-10 {[-10-]}
<MI 23b6c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']}
<Const 0x23b70 0x1.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23b74 0x22aa0> {[-10-]|[4, '(A6+0x8)']|[##1]}
<MI 23b78 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x23b7c 0x2.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x23b80 0x22aa0> {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 23b84-23b86 StackAdj> Δ+8 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23b86 0x10324> {[-10-]|[4, '(A6+0x8)']|[##1]}
IsGreater(a, b : Quad) : Bool
<POP 23b8c-23b90 StackAdj> Δ+16 {[-2-]}
<MI 23b90 TST.B (A7)+> Δ+2 {}
<MI 23b92 BEQ 0x23b9a> {}
<POP 23b94-23b9a Naked> Σ0 →0x23b9e
<Call 0x23b94 0x2252e> {}
<MI 23b98 BRA 0x23b9e> {}
<POP 23b9a-23b9e Naked> Σ0 ↓ ←0x23b68
<Call 0x23b9a 0x22574> {}
<POP 23b9e-23ba2 Epilogue> Σ0 ←0x23b94
@ 23ba2
<LVAR 0x008 4(r)>
<POP 23ba2-23bee Body>
<POP 23ba2-23bb4 Prologue> Σ0 ↓
<POP 23bb4-23be0 Naked> Σ0 ↓ →0x23be6
<POP 23bb4-23bb8 StackAdj> Δ-10 {[-10-]}
<MI 23bb8 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']}
<Const 0x23bbc 0x1.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23bc0 0x22aa0> {[-10-]|[4, '(A6+0x8)']|[##1]}
<MI 23bc4 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x23bc8 0x2.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x23bcc 0x22aa0> {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 23bd0-23bd2 StackAdj> Δ+8 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23bd2 0x10324> {[-10-]|[4, '(A6+0x8)']|[##1]}
IsGreater(a, b : Quad) : Bool
<POP 23bd8-23bdc StackAdj> Δ+16 {[-2-]}
<MI 23bdc TST.B (A7)+> Δ+2 {}
<MI 23bde BNE 0x23be6> {}
<POP 23be0-23be6 Naked> Σ0 →0x23bea
<Call 0x23be0 0x2252e> {}
<MI 23be4 BRA 0x23bea> {}
<POP 23be6-23bea Naked> Σ0 ↓ ←0x23bb4
<Call 0x23be6 0x22574> {}
<POP 23bea-23bee Epilogue> Σ0 ←0x23be0
@ 23bee
<LVAR 0x008 4(r)>
<POP 23bee-23c3a Body>
<POP 23bee-23c00 Prologue> Σ0 ↓
<POP 23c00-23c2c Naked> Σ0 ↓ →0x23c32
<POP 23c00-23c04 StackAdj> Δ-10 {[-10-]}
<MI 23c04 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']}
<Const 0x23c08 0x1.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23c0c 0x22aa0> {[-10-]|[4, '(A6+0x8)']|[##1]}
<MI 23c10 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x23c14 0x2.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x23c18 0x22aa0> {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 23c1c-23c1e StackAdj> Δ+8 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23c1e 0x10328> {[-10-]|[4, '(A6+0x8)']|[##1]}
IsSmaller(a, b : Quad) : Bool
<POP 23c24-23c28 StackAdj> Δ+16 {[-2-]}
<MI 23c28 TST.B (A7)+> Δ+2 {}
<MI 23c2a BNE 0x23c32> {}
<POP 23c2c-23c32 Naked> Σ0 →0x23c36
<Call 0x23c2c 0x2252e> {}
<MI 23c30 BRA 0x23c36> {}
<POP 23c32-23c36 Naked> Σ0 ↓ ←0x23c00
<Call 0x23c32 0x22574> {}
<POP 23c36-23c3a Epilogue> Σ0 ←0x23c2c
@ 23c3a
<LVAR 0x008 4(r)>
<POP 23c3a-23c84 Body>
<POP 23c3a-23c50 Prologue> Σ0 ↓
<POP 23c50-23c52 RegCacheLoad> Σ0 ↓
<POP 23c52-23c7c Naked> Σ0 ↓
<POP 23c52-23c54 StackAdj> Δ-16 {[-16-]}
<MI 23c54 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x23c58 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23c5c 0x22aa0> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 23c60 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x23c64 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x23c68 0x22aa0> {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 23c6c-23c6e StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23c6e 0x10314> {[-16-]|[4, '(A6+0x8)']|[##1]}
Add(a, b : Quad) : Quad
<POP 23c74-23c76 StackAdj> Δ+16 {[-8-]}
<Call 0x23c76 0x22b98> {[-8-]}
<POP 23c7a-23c7c StackAdj> Δ+8 {}
<POP 23c7c-23c84 Epilogue> Σ0
@ 23c84
<LVAR 0x008 4(r)>
<POP 23c84-23cce Body>
<POP 23c84-23c9a Prologue> Σ0 ↓
<POP 23c9a-23c9c RegCacheLoad> Σ0 ↓
<POP 23c9c-23cc6 Naked> Σ0 ↓
<POP 23c9c-23c9e StackAdj> Δ-16 {[-16-]}
<MI 23c9e MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x23ca2 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23ca6 0x22aa0> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 23caa MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x23cae 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x23cb2 0x22aa0> {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 23cb6-23cb8 StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23cb8 0x10318> {[-16-]|[4, '(A6+0x8)']|[##1]}
Subtract(a, b : Quad) : Quad
<POP 23cbe-23cc0 StackAdj> Δ+16 {[-8-]}
<Call 0x23cc0 0x22b98> {[-8-]}
<POP 23cc4-23cc6 StackAdj> Δ+8 {}
<POP 23cc6-23cce Epilogue> Σ0
@ 23cce
<LVAR 0x008 4(r)>
<POP 23cce-23d18 Body>
<POP 23cce-23ce4 Prologue> Σ0 ↓
<POP 23ce4-23ce6 RegCacheLoad> Σ0 ↓
<POP 23ce6-23d10 Naked> Σ0 ↓
<POP 23ce6-23ce8 StackAdj> Δ-16 {[-16-]}
<MI 23ce8 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x23cec 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23cf0 0x22aa0> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 23cf4 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x23cf8 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x23cfc 0x22aa0> {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 23d00-23d02 StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23d02 0x1031c> {[-16-]|[4, '(A6+0x8)']|[##1]}
Multiply(a, b : Quad) : Quad
<POP 23d08-23d0a StackAdj> Δ+16 {[-8-]}
<Call 0x23d0a 0x22b98> {[-8-]}
<POP 23d0e-23d10 StackAdj> Δ+8 {}
<POP 23d10-23d18 Epilogue> Σ0
@ 23d18
<LVAR 0x008 4(r)>
<POP 23d18-23d62 Body>
<POP 23d18-23d2e Prologue> Σ0 ↓
<POP 23d2e-23d30 RegCacheLoad> Σ0 ↓
<POP 23d30-23d5a Naked> Σ0 ↓
<POP 23d30-23d32 StackAdj> Δ-16 {[-16-]}
<MI 23d32 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x23d36 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23d3a 0x22aa0> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 23d3e MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x23d42 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x23d46 0x22aa0> {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 23d4a-23d4c StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23d4c 0x10320> {[-16-]|[4, '(A6+0x8)']|[##1]}
Divide(a, b : Quad) : Quad
<POP 23d52-23d54 StackAdj> Δ+16 {[-8-]}
<Call 0x23d54 0x22b98> {[-8-]}
<POP 23d58-23d5a StackAdj> Δ+8 {}
<POP 23d5a-23d62 Epilogue> Σ0
@ 23d62
<LVAR 0x008 4(r)>
<POP 23d62-23dac Body>
<POP 23d62-23d78 Prologue> Σ0 ↓
<POP 23d78-23d7a RegCacheLoad> Σ0 ↓
<POP 23d7a-23da4 Naked> Σ0 ↓
<POP 23d7a-23d7c StackAdj> Δ-16 {[-16-]}
<MI 23d7c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x23d80 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23d84 0x22aa0> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 23d88 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x23d8c 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x23d90 0x22aa0> {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 23d94-23d96 StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23d96 0x10358> {[-16-]|[4, '(A6+0x8)']|[##1]}
Modulus(a, b : Quad) : Quad
<POP 23d9c-23d9e StackAdj> Δ+16 {[-8-]}
<Call 0x23d9e 0x22b98> {[-8-]}
<POP 23da2-23da4 StackAdj> Δ+8 {}
<POP 23da4-23dac Epilogue> Σ0
@ 23dac
<LVAR 0x008 4(r)>
<POP 23dac-23df6 Body>
<POP 23dac-23dc2 Prologue> Σ0 ↓
<POP 23dc2-23dc4 RegCacheLoad> Σ0 ↓
<POP 23dc4-23dee Naked> Σ0 ↓
<POP 23dc4-23dc6 StackAdj> Δ-16 {[-16-]}
<MI 23dc6 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x23dca 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23dce 0x22aa0> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 23dd2 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x23dd6 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x23dda 0x22aa0> {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 23dde-23de0 StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23de0 0x10334> {[-16-]|[4, '(A6+0x8)']|[##1]}
BitOr(a, b : Quad) : Quad
<POP 23de6-23de8 StackAdj> Δ+16 {[-8-]}
<Call 0x23de8 0x22b98> {[-8-]}
<POP 23dec-23dee StackAdj> Δ+8 {}
<POP 23dee-23df6 Epilogue> Σ0
@ 23df6
<LVAR 0x008 4(r)>
<POP 23df6-23e40 Body>
<POP 23df6-23e0c Prologue> Σ0 ↓
<POP 23e0c-23e0e RegCacheLoad> Σ0 ↓
<POP 23e0e-23e38 Naked> Σ0 ↓
<POP 23e0e-23e10 StackAdj> Δ-16 {[-16-]}
<MI 23e10 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x23e14 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23e18 0x22aa0> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 23e1c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x23e20 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x23e24 0x22aa0> {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 23e28-23e2a StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23e2a 0x10330> {[-16-]|[4, '(A6+0x8)']|[##1]}
BitAnd(a, b : Quad) : Quad
<POP 23e30-23e32 StackAdj> Δ+16 {[-8-]}
<Call 0x23e32 0x22b98> {[-8-]}
<POP 23e36-23e38 StackAdj> Δ+8 {}
<POP 23e38-23e40 Epilogue> Σ0
@ 23e40
<LVAR 0x008 4(r)>
<POP 23e40-23e8a Body>
<POP 23e40-23e56 Prologue> Σ0 ↓
<POP 23e56-23e58 RegCacheLoad> Σ0 ↓
<POP 23e58-23e82 Naked> Σ0 ↓
<POP 23e58-23e5a StackAdj> Δ-16 {[-16-]}
<MI 23e5a MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x23e5e 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23e62 0x22aa0> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 23e66 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x23e6a 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x23e6e 0x22aa0> {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 23e72-23e74 StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23e74 0x10340> {[-16-]|[4, '(A6+0x8)']|[##1]}
BitXor(a, b : Quad) : Quad
<POP 23e7a-23e7c StackAdj> Δ+16 {[-8-]}
<Call 0x23e7c 0x22b98> {[-8-]}
<POP 23e80-23e82 StackAdj> Δ+8 {}
<POP 23e82-23e8a Epilogue> Σ0
@ 23e8a
<LVAR 0x008 4(r)>
<POP 23e8a-23ece Body>
<POP 23e8a-23e9c Prologue> Σ0 ↓
<POP 23e9c-23eca Naked> Σ0 ↓
<POP 23e9c-23ea0 StackAdj> Δ-16 {[-16-]}
<MI 23ea0 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x23ea4 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23ea8 0x22aa0> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 23eac MOVE.L (A6+0x8),(A7)> {[-16-]|[4, '(A6+0x8)']|[4, '(A6+0x8)']}
<Const 0x23eb0 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[4, '(A6+0x8)']|[##2]}
<Call 0x23eb4 0x22adc> {[-16-]|[4, '(A6+0x8)']|[4, '(A6+0x8)']|[##2]}
<POP 23eb8-23eba StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']}
<Call 0x23eba 0x10344> {[-16-]|[4, '(A6+0x8)']}
BitShift(a : Quad ; howmuch : integer) : Quad
<POP 23ec0-23ec4 StackAdj> Δ+12 {[-8-]}
<Call 0x23ec4 0x22b98> {[-8-]}
<POP 23ec8-23eca StackAdj> Δ+8 {}
<POP 23eca-23ece Epilogue> Σ0
@ 23ece
<LVAR 0x008 4(r)>
<POP 23ece-23f14 Body>
<POP 23ece-23ee0 Prologue> Σ0 ↓
<POP 23ee0-23f10 Naked> Σ0 ↓
<POP 23ee0-23ee4 StackAdj> Δ-16 {[-16-]}
<MI 23ee4 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x23ee8 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23eec 0x22aa0> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 23ef0 MOVE.L (A6+0x8),(A7)> {[-16-]|[4, '(A6+0x8)']|[4, '(A6+0x8)']}
<Const 0x23ef4 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[4, '(A6+0x8)']|[##2]}
<Call 0x23ef8 0x22adc> {[-16-]|[4, '(A6+0x8)']|[4, '(A6+0x8)']|[##2]}
<POP 23efc-23efe StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']}
<MI 23efe NEG.L (A7)> {[-16-]|[4, '(A6+0x8)']}
<Call 0x23f00 0x10344> {[-16-]|[4, '(A6+0x8)']}
BitShift(a : Quad ; howmuch : integer) : Quad
<POP 23f06-23f0a StackAdj> Δ+12 {[-8-]}
<Call 0x23f0a 0x22b98> {[-8-]}
<POP 23f0e-23f10 StackAdj> Δ+8 {}
<POP 23f10-23f14 Epilogue> Σ0
@ 23f14
<LVAR 0x008 4(r)>
<POP 23f14-23f4a Body>
<POP 23f14-23f26 Prologue> Σ0 ↓
<POP 23f26-23f46 Naked> Σ0 ↓
<POP 23f26-23f2a StackAdj> Δ-16 {[-16-]}
<MI 23f2a MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x23f2e 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23f32 0x22aa0> {[-16-]|[4, '(A6+0x8)']|[##1]}
<POP 23f36-23f38 StackAdj> Δ+8 {[-16-]}
<Call 0x23f38 0x10338> {[-16-]}
BitNot(a : Quad) : Quad
<POP 23f3e-23f40 StackAdj> Δ+8 {[-8-]}
<Call 0x23f40 0x22b98> {[-8-]}
<POP 23f44-23f46 StackAdj> Δ+8 {}
<POP 23f46-23f4a Epilogue> Σ0
@ 23f4a
<LVAR 0x008 4(r)>
<LVAR -0x00c 4(rw)>
<LVAR -0x010 4(rw)>
<LVAR -0x014 4(rw)>
<LVAR -0x018 4(rw)>
<POP 23f4a-23fda Body>
<POP 23f4a-23f60 Prologue> Σ0 ↓
<POP 23f60-23f64 RegCacheLoad> Σ0 ↓
<POP 23f64-23fd2 Naked> Σ0 ↓
<POP 23f64-23f66 StackAdj> Δ-8 {[-8-]}
<MI 23f66 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<Const 0x23f68 0x1.4> Δ-4 {[-8-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23f6c 0x22aa0> {[-8-]|[4, '(A6+0x8)']|[##1]}
<POP 23f70-23f72 StackAdj> Δ+8 {[-8-]}
<MI 23f72 MOVE.L (A7)+,(A6-0x18)> Δ+4 {[-4-]}
<MI 23f76 MOVE.L (A7),(A6-0x14)> {[-4-]}
<POP 23f7a-23f7c StackAdj> Δ-4 {[-8-]}
<MI 23f7c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<Const 0x23f7e 0x2.4> Δ-4 {[-8-]|[4, '(A6+0x8)']|[##2]}
<Call 0x23f82 0x22aa0> {[-8-]|[4, '(A6+0x8)']|[##2]}
<POP 23f86-23f88 StackAdj> Δ+8 {[-8-]}
<MI 23f88 MOVE.L (A7)+,(A6-0x10)> Δ+4 {[-4-]}
<MI 23f8c MOVE.L (A7),(A6-0xc)> {[-4-]}
<MI 23f90 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x23f92 0x3.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##3]}
<Call 0x23f96 0x22adc> {[-4-]|[4, '(A6+0x8)']|[##3]}
<POP 23f9a-23f9c StackAdj> Δ+8 {[-4-]}
<MI 23f9c MOVE.L (A7),D7> {[-4-]}
<MI 23f9e MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x23fa0 0x4.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##4]}
<Call 0x23fa4 0x22adc> {[-4-]|[4, '(A6+0x8)']|[##4]}
<POP 23fa8-23faa StackAdj> Δ+8 {[-4-]}
<MI 23faa MOVE.L (A7),D6> {[-4-]}
<POP 23fac-23fae StackAdj> Δ-4 {[-8-]}
<MI 23fae MOVE.L (A6-0x14),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x14)']}
<MI 23fb2 MOVE.L (A6-0x18),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']}
<MI 23fb6 MOVE.L (A6-0xc),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']|[4, '(A6-0xc)']}
<MI 23fba MOVE.L (A6-0x10),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<MI 23fbe MOVE.L D7,-(A7)> Δ-4 {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D7']}
<MI 23fc0 MOVE.L D6,-(A7)> Δ-4 {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D7']|[4, 'D6']}
<Call 0x23fc2 0x10348> {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D7']|[4, 'D6']}
?BitField_something_()
<POP 23fc8-23fcc StackAdj> Δ+24 {[-8-]}
<Call 0x23fcc 0x22b98> {[-8-]}
<POP 23fd0-23fd2 StackAdj> Δ+8 {}
<POP 23fd2-23fda Epilogue> Σ0
@ 23fda
<LVAR 0x008 4(r)>
<LVAR -0x00c 4(rw)>
<LVAR -0x010 4(rw)>
<POP 23fda-2404c Body>
<POP 23fda-23ff0 Prologue> Σ0 ↓
<POP 23ff0-23ff4 RegCacheLoad> Σ0 ↓
<POP 23ff4-24044 Naked> Σ0 ↓
<POP 23ff4-23ff6 StackAdj> Δ-8 {[-8-]}
<MI 23ff6 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<Const 0x23ff8 0x1.4> Δ-4 {[-8-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23ffc 0x22aa0> {[-8-]|[4, '(A6+0x8)']|[##1]}
<POP 24000-24002 StackAdj> Δ+8 {[-8-]}
<MI 24002 MOVE.L (A7)+,(A6-0x10)> Δ+4 {[-4-]}
<MI 24006 MOVE.L (A7),(A6-0xc)> {[-4-]}
<MI 2400a MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x2400c 0x2.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##2]}
<Call 0x24010 0x22adc> {[-4-]|[4, '(A6+0x8)']|[##2]}
<POP 24014-24016 StackAdj> Δ+8 {[-4-]}
<MI 24016 MOVE.L (A7),D7> {[-4-]}
<MI 24018 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x2401a 0x3.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##3]}
<Call 0x2401e 0x22adc> {[-4-]|[4, '(A6+0x8)']|[##3]}
<POP 24022-24024 StackAdj> Δ+8 {[-4-]}
<MI 24024 MOVE.L (A7),D6> {[-4-]}
<POP 24026-24028 StackAdj> Δ-4 {[-8-]}
<MI 24028 MOVE.L (A6-0xc),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']}
<MI 2402c MOVE.L (A6-0x10),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<MI 24030 MOVE.L D7,-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D7']}
<MI 24032 MOVE.L D6,-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D7']|[4, 'D6']}
<Call 0x24034 0x1034c> {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D7']|[4, 'D6']}
FSCALL_1034c
<POP 2403a-2403e StackAdj> Δ+16 {[-8-]}
<Call 0x2403e 0x22b98> {[-8-]}
<POP 24042-24044 StackAdj> Δ+8 {}
<POP 24044-2404c Epilogue> Σ0
@ 2404c
<LVAR 0x008 4(r)>
<POP 2404c-240be Body>
<POP 2404c-24062 Prologue> Σ0 ↓
<POP 24062-24070 Naked> Σ0 Δ-4 ↓
<POP 24062-24064 StackAdj> Δ-4 {[-4-]}
<MI 24064 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x24068 0x22152> {[-4-]|[4, '(A6+0x8)']}
<POP 2406c-2406e StackAdj> Δ+4 {[-4-]}
<MI 2406e MOVEQ.L #0x01,D7> {[-4-]}
<POP 24070-24074 Naked> Σ-4 ↓ →0x2409a ←0x24074
<MI 24070 CMP.L (A7),D7> {[-4-]}
<MI 24072 BGT 0x2409a> {[-4-]}
<POP 24074-2409a Naked> Σ-4 ↓ →0x24070
<POP 24074-24076 StackAdj> Δ-4 {[-8-]}
<MI 24076 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<MI 2407a MOVE.L D7,-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']|[4, 'D7']}
<Call 0x2407c 0x22a6e> {[-8-]|[4, '(A6+0x8)']|[4, 'D7']}
<POP 24080-24082 StackAdj> Δ+8 {[-8-]}
<Call 0x24082 0x103d8> {[-8-]}
WriteConsoleString(str : String)
<POP 24088-2408a StackAdj> Δ+2 {[-6-]}
<POP 2408a-2408b StackAdj> Δ+2 {[-4-]}
<Const 0x2408b 0x20.2> Δ-2 {[-4-]|[#32]}
<Call 0x2408e 0x103d0> {[-4-]|[#32]}
WriteConsoleChar(chr : char)
<POP 24094-24096 StackAdj> Δ+2 {[-4-]}
<MI 24096 ADDQ.L #0x1,D7> {[-4-]}
<MI 24098 BVC 0x24070> {[-4-]}
<POP 2409a-240b6 Naked> Σ-4 Δ+4 ↓ ←0x24070
<Const 0x2409a 0x1.4> Δ-4 {[-4-]|[##1]}
<Call 0x2409e 0x103e4> {[-4-]|[##1]}
AskConsoleString(prompt : String) : String
<POP 240a4-240a6 StackAdj> Δ+4 {[-4-]}
<MI 240a6 MOVEA.L (A7)+,A4> Δ+4 {}
<MI 240a8 MOVE.L A4,-(A7)> Δ-4 {[4, 'A4']}
<Call 0x240aa 0x21f9e> {[4, 'A4']}
<MI 240ae MOVE.L A4,(A7)> {[4, 'A4']}
<Call 0x240b0 0x22b10> {[4, 'A4']}
<POP 240b4-240b6 StackAdj> Δ+4 {}
<POP 240b6-240be Epilogue> Σ0
@ 240be
<LVAR 0x008 4(r)>
<POP 240be-24140 Body>
<POP 240be-240d4 Prologue> Σ0 ↓
<POP 240d4-240da RegCacheLoad> Σ0 ↓
<POP 240da-24138 Naked> Σ0 ↓
<POP 240da-240dc StackAdj> Δ-4 {[-4-]}
<MI 240dc MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x240de 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x240e2 0x22a6e> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 240e6-240e8 StackAdj> Δ+8 {[-4-]}
<MI 240e8 MOVEA.L (A7)+,A4> Δ+4 {}
<POP 240ea-240ec StackAdj> Δ-12 {[-12-]}
<MI 240ec MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']}
<Const 0x240ee 0x2.4> Δ-4 {[-12-]|[4, '(A6+0x8)']|[##2]}
<Call 0x240f2 0x22aa0> {[-12-]|[4, '(A6+0x8)']|[##2]}
<POP 240f6-240f8 StackAdj> Δ+8 {[-12-]}
<Call 0x240f8 0x10350> {[-12-]}
Quad2Long(a : Quad) : Long
<POP 240fe-24100 StackAdj> Δ+8 {[-4-]}
<MI 24100 MOVE.L (A7),D7> {[-4-]}
<POP 24102-24104 StackAdj> Δ-8 {[-12-]}
<MI 24104 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']}
<Const 0x24106 0x3.4> Δ-4 {[-12-]|[4, '(A6+0x8)']|[##3]}
<Call 0x2410a 0x22aa0> {[-12-]|[4, '(A6+0x8)']|[##3]}
<POP 2410e-24110 StackAdj> Δ+8 {[-12-]}
<Call 0x24110 0x10350> {[-12-]}
Quad2Long(a : Quad) : Long
<POP 24116-24118 StackAdj> Δ+8 {[-4-]}
<MI 24118 MOVE.L (A7),D6> {[-4-]}
<POP 2411a-2411c StackAdj> Δ-8 {[-12-]}
<MI 2411c MOVE.L A4,-(A7)> Δ-4 {[-12-]|[4, 'A4']}
<MI 2411e MOVE.L D7,-(A7)> Δ-4 {[-12-]|[4, 'A4']|[4, 'D7']}
<Call 0x24120 0x10360> {[-12-]|[4, 'A4']|[4, 'D7']}
?StringToInt64()
<POP 24126-24128 StackAdj> Δ+4 {[-12-]|[4, 'A4']}
<MI 24128 MOVE.L D6,(A7)> {[-12-]|[4, 'D6']}
<Call 0x2412a 0x1035c> {[-12-]|[4, 'D6']}
Quad2String(a : Quad; radix : Long ) : String
<POP 24130-24132 StackAdj> Δ+12 {[-4-]}
<Call 0x24132 0x22b10> {[-4-]}
<POP 24136-24138 StackAdj> Δ+4 {}
<POP 24138-24140 Epilogue> Σ0
@ 24140
<LVAR 0x008 4(r)>
<LVAR -0x00a 2(r)>
<LVAR -0x00c 4(rw)>
<LVAR -0x010 4(rw)>
<POP 24140-241c0 Body>
<POP 24140-24156 Prologue> Σ0 ↓
<POP 24156-2415e RegCacheLoad> Σ0 ↓
<POP 2415e-24176 Naked> Σ0 ↓
<POP 2415e-24160 StackAdj> Δ-8 {[-8-]}
<MI 24160 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<Const 0x24164 0x1.4> Δ-4 {[-8-]|[4, '(A6+0x8)']|[##1]}
<Call 0x24168 0x22aa0> {[-8-]|[4, '(A6+0x8)']|[##1]}
<POP 2416c-2416e StackAdj> Δ+8 {[-8-]}
<MI 2416e MOVE.L (A7)+,(A6-0x10)> Δ+4 {[-4-]}
<MI 24170 MOVE.L (A7)+,(A6-0xc)> Δ+4 {}
<MI 24172 MOVEQ.L #0x00,D7> {}
<MI 24174 MOVEQ.L #0x00,D6> {}
<POP 24176-241a6 Naked> Σ0 ↓ →0x24176 ←0x24176
<MI 24176 MOVE.W (A6-0xa),D0> {}
<MI 2417a ANDI.W #0x0001,D0> {}
<MI 2417e CLR.L D1> {}
<MI 24180 MOVE.W D0,D1> {}
<MI 24182 ADD.L D1,D7> {}
<POP 24184-24186 StackAdj> Δ-8 {[-8-]}
<MI 24186 MOVE.L (A6-0xc),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']}
<MI 24188 MOVE.L (A6-0x10),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<Const 0x2418a 0xffffffff.4> Δ-4 {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[##4294967295]}
<Call 0x2418e 0x10344> {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[##4294967295]}
BitShift(a : Quad ; howmuch : integer) : Quad
<POP 24194-24198 StackAdj> Δ+12 {[-8-]}
<MI 24198 MOVE.L (A7)+,(A6-0x10)> Δ+4 {[-4-]}
<MI 2419a MOVE.L (A7)+,(A6-0xc)> Δ+4 {}
<MI 2419c ADDQ.L #0x1,D6> {}
<MI 2419e CMPI.L #0x0000003f,D6> {}
<MI 241a4 BLE 0x24176> {}
<POP 241a6-241b8 Naked> Σ0 ↓
<POP 241a6-241a8 StackAdj> Δ-8 {[-8-]}
<MI 241a8 MOVE.L D7,-(A7)> Δ-4 {[-8-]|[4, 'D7']}
<Call 0x241aa 0x10354> {[-8-]|[4, 'D7']}
Long2Quad(a : Long) : Quad
<POP 241b0-241b2 StackAdj> Δ+4 {[-8-]}
<Call 0x241b2 0x22b98> {[-8-]}
<POP 241b6-241b8 StackAdj> Δ+8 {}
<POP 241b8-241c0 Epilogue> Σ0
@ 241c0
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 1(r)>
<POP 241c0-24284 Body>
<POP 241c0-241d6 Prologue> Σ0 ↓
<POP 241d6-241e0 RegCacheLoad> Σ0 ↓
<POP 241e0-241e4 Naked> Σ0 ↓ →0x24216
<MI 241e0 TST.B 0x27882> {}
<MI 241e2 BNE 0x24216> {}
<POP 241e4-24216 Naked> Σ0 ↓
<Blob 0x241e4 [28] @> Δ-28 {[«28""»]}
<POP 241f6-241f8 StackAdj> Δ-4 {[«28""»]|[-4-]}
<Lit 0x241f8 27> {[«28""»]|[$$REPEATing, type ^G to exit.]}
<Call 0x2420a 0x103e0> {[«28""»]|[$$REPEATing, type ^G to exit.]}
WriteConsoleStringCrLf(str : String)
<POP 24210-24214 StackAdj> Δ+32 {}
<MI 24214 MOVE.B #0x01,0x27882> {}
<POP 24216-24240 Naked> Σ0 ↓ →0x24256 ←0x241e0
<POP 24216-24218 StackAdj> Δ-6 {[-6-]}
<Call 0x24218 0x103f8> {[-6-]}
GetConsoleConfig() : Long
<MI 2421e MOVE.L (A7)+,D0> Δ+4 {[-2-]}
<POP 0x24220 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {[-2-]}
<MI 2422a MOVE.W D0,(A7)> {[2, 'D0']}
<Pointer.fp 0x2422c <LVAR -0x004 @ 1(r)>> Δ-4 {[2, 'D0']|[@@-4]}
<Call 0x24230 0x10212> {[2, 'D0']|[@@-4]}
KC09_PortStatus(Port : Word; VAR b: Byte)
<POP 24236-24238 StackAdj> Δ+6 {}
<MI 24238 MOVE.B (A6-0x4),D0> {}
<MI 2423c CMP.B #0x01,D0> {}
<MI 2423e BEQ 0x24256> {}
<POP 24240-24256 Naked> Σ0
<MI 24240 MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<Call 0x24244 0x21d04> {[4, '(A6+0x8)']}
<POP 24248-2424a StackAdj> Δ+4 {}
<POP 2424a-24256 Bailout> {}
<MI 2424a MOVEA.L (A5+0x8),A7>
<MI 2424e MOVEA.W #0x00,A6>
<MI 24250 JMP 0x255e8>
<POP 24256-24266 Naked> Σ0 ↓ →0x2427c ←0x24216
<POP 24256-24258 StackAdj> Δ-2 {[-2-]}
<Call 0x24258 0x103d4> {[-2-]}
ReadChar() : Byte
<MI 2425e MOVE.B (A7)+,D0> Δ+2 {}
<MI 24260 CMPI.B #0x07,D0> {}
<MI 24264 BEQ 0x2427c> {}
<POP 24266-2427c Naked> Σ0
<MI 24266 MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<Call 0x2426a 0x21d04> {[4, '(A6+0x8)']}
<POP 2426e-24270 StackAdj> Δ+4 {}
<POP 24270-2427c Bailout> {}
<MI 24270 MOVEA.L (A5+0x8),A7>
<MI 24274 MOVEA.W #0x00,A6>
<MI 24276 JMP 0x255e8>
<POP 2427c-24284 Epilogue> Σ0 ←0x24256
@ 24284
<POP 24284-242a4 Body>
<POP 24284-24296 Prologue> Σ0 ↓
<POP 24296-242a0 Naked> Σ0 ↓
<Const 0x24296 0xc8.4> Δ-4 {[##200]}
<Call 0x2429a 0x22bcc> {[##200]}
<POP 2429e-242a0 StackAdj> Δ+4 {}
<POP 242a0-242a4 Epilogue> Σ0
@ 242a4
<LVAR 0x008 4(r)>
<LVAR -0x00c @ 4(r)>
<POP 242a4-24350 Body>
<POP 242a4-242ba Prologue> Σ0 ↓
<POP 242ba-242be RegCacheLoad> Σ0 ↓
<POP 242be-242d2 Naked> Σ0 Δ-4 ↓
<Pointer.fp 0x242be <LVAR -0x00c @ 4(r)>> Δ-4 {[@@-12]}
<Call 0x242c0 0x102b8> {[@@-12]}
NewString(VAR a : String)
<MI 242c6 MOVE.L (A6+0x8),-(A7)> Δ-4 {[@@-12]|[4, '(A6+0x8)']}
<Call 0x242ca 0x22152> {[@@-12]|[4, '(A6+0x8)']}
<POP 242ce-242d0 StackAdj> Δ+4 {[@@-12]}
<MI 242d0 MOVEQ.L #0x01,D7> {[@@-12]}
<POP 242d2-242d6 Naked> Σ-4 ↓ →0x24340 ←0x2433c
<MI 242d2 CMP.L (A7),D7> {[-4-]}
<MI 242d4 BGT 0x24340> {[-4-]}
<POP 242d6-242e8 Naked> Σ-4 ↓ →0x24308
<POP 242d6-242d8 StackAdj> Δ-4 {[-8-]}
<MI 242d8 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<MI 242dc MOVE.L D7,-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']|[4, 'D7']}
<Call 0x242de 0x22adc> {[-8-]|[4, '(A6+0x8)']|[4, 'D7']}
<POP 242e2-242e4 StackAdj> Δ+8 {[-8-]}
<MI 242e4 MOVE.L (A7)+,D6> Δ+4 {[-4-]}
<MI 242e6 BLT 0x24308> {[-4-]}
<POP 242e8-242f0 Naked> Σ-4 ↓ →0x24308
<MI 242e8 CMPI.L #0x000000ff,D6> {[-4-]}
<MI 242ee BGT 0x24308> {[-4-]}
<POP 242f0-24308 Naked> Σ-4 →0x2433c
<MI 242f0 MOVE.L (A6-0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6-0xc)']}
<POP 0x242f2 LimitCheck 0x0 ≤ D6 ≤ 0xff> {[-4-]|[4, '(A6-0xc)']}
<MI 242fc MOVE.B D6,-(A7)> Δ-2 {[-4-]|[4, '(A6-0xc)']|[2, 'D6']}
<Call 0x242fe 0x102c0> {[-4-]|[4, '(A6-0xc)']|[2, 'D6']}
AppendChar(MOD b : String; a : char)
<POP 24304-24306 StackAdj> Δ+6 {[-4-]}
<MI 24306 BRA 0x2433c> {[-4-]}
<POP 24308-2433c Naked> Σ-4 ↓ ←0x242d6 ←0x242e8
<Pointer.fp 0x24308 <LVAR -0x00c @ 4(r)>> Δ-4 {[-4-]|[@@-12]}
<Call 0x2430a 0x102bc> {[-4-]|[@@-12]}
FreeString(VAR a : String)
<POP 24310-24312 StackAdj> Δ+4 {[-4-]}
<Blob 0x24312 [28] @> Δ-28 {[-4-]|[«28""»]}
<POP 2431e-24320 StackAdj> Δ-4 {[-4-]|[«28""»]|[-4-]}
<Lit 0x24320 28> {[-4-]|[«28""»]|[$$ASCII argument out of range.]}
<Call 0x24334 0x21d46> {[-4-]|[«28""»]|[$$ASCII argument out of range.]}
<POP 24338-2433c StackAdj> Δ+32 {[-4-]}
<POP 2433c-24340 Naked> Σ-4 ↓ →0x242d2 ←0x242f0
<MI 2433c ADDQ.L #0x1,D7> {[-4-]}
<MI 2433e BVC 0x242d2> {[-4-]}
<POP 24340-24348 Naked> Σ-4 Δ+4 ↓ ←0x242d2
<MI 24340 MOVE.L (A6-0xc),(A7)> {[4, '(A6-0xc)']}
<Call 0x24342 0x22b10> {[4, '(A6-0xc)']}
<POP 24346-24348 StackAdj> Δ+4 {}
<POP 24348-24350 Epilogue> Σ0
@ 24350
<LVAR 0x00c 1(rw)>
<LVAR 0x008 4(r)>
<POP 24350-24408 Body> Δ-8
<POP 24350-24366 Prologue> Σ0 ↓
<POP 24366-24376 Naked> Σ0 Δ-4 ↓
<MI 24366 CLR.B (A6+0xc)> {}
<MI 2436a MOVEA.L (A6+0x8),A0> {}
<MI 2436e MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 24370 MOVEQ.L #0x00,D0> {[4, 'A0']}
<MI 24372 ADDQ.W #0x1,D0> {[4, 'A0']}
<MI 24374 MOVE.B D0,D6> {[4, 'A0']}
<POP 24376-2437e Naked> Σ-4 ↓ →0x243fe ←0x243f8
<MI 24376 CMPI.B #0x2b,D6> {[-4-]}
<MI 2437a BGT 0x243fe> {[-4-]}
<POP 2437e-243a4 Naked> Σ-4 ↓ →0x243f8
<MI 2437e LEA.L 0x21c32,A0> {[-4-]}
<MI 24382 MOVE.B D6,D0> {[-4-]}
<MI 24384 EXTB.W D0> {[-4-]}
<MI 24386 EXTW.L D0> {[-4-]}
<MI 24388 ROR.L #0x1,D0> {[-4-]}
<MI 2438a ADDA.W D0,A0> {[-4-]}
<MI 2438c SWAP.W D0> {[-4-]}
<MI 2438e ROL.W #0x3,D0> {[-4-]}
<MI 24390 CLR.L D1> {[-4-]}
<MI 24392 MOVE.B (A0),D1> {[-4-]}
<MI 24394 LSL.B D0,D1> {[-4-]}
<MI 24396 LSR.B #0x4,D1> {[-4-]}
<MI 24398 MOVE.L D1,D5> {[-4-]}
<MI 2439a MOVEA.L (A7),A0> {[-4-]}
<MI 2439c MOVE.W (A0),D0> {[-4-]}
<MI 2439e EXTW.L D0> {[-4-]}
<MI 243a0 CMP.L D0,D5> {[-4-]}
<MI 243a2 BNE 0x243f8> {[-4-]}
<POP 243a4-243a8 Naked> Σ-4 Δ-4 ↓
<MI 243a4 MOVE.L D5,-(A7)> Δ-4 {[-4-]|[4, 'D5']}
<MI 243a6 MOVEQ.L #0x01,D7> {[-4-]|[4, 'D5']}
<POP 243a8-243ac Naked> Σ-8 ↓ →0x243ee ←0x243ea
<MI 243a8 CMP.L (A7),D7> {[-8-]}
<MI 243aa BGT 0x243ee> {[-8-]}
<POP 243ac-243e6 Naked> Σ-8 ↓ →0x243ea
<MI 243ac MOVE.B D6,D0> {[-8-]}
<MI 243ae EXTB.W D0> {[-8-]}
<MI 243b0 MULS.W #0xa,D0> {[-8-]}
<MI 243b4 MOVE.L D7,D1> {[-8-]}
<MI 243b6 SUBQ.L #0x1,D1> {[-8-]}
<POP 0x243b8 LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-8-]}
<MI 243c2 MOVEA.L (A7+0x4),A0> {[-8-]}
<MI 243c6 LEA.L 0x21a7a,A1> {[-8-]}
<MI 243ca MOVE.L D7,D2> {[-8-]}
<MI 243cc SUBQ.L #0x1,D2> {[-8-]}
<POP 0x243ce LimitCheck 0x0 ≤ D2 ≤ 0x9> {[-8-]}
<MI 243d8 LEA.L (A1+D0.W),A1> {[-8-]}
<MI 243dc MOVE.B (A0+D1.L+#0x2),D0> {[-8-]}
<MI 243e0 CMP.B (A1+D2.L),D0> {[-8-]}
<MI 243e4 BEQ 0x243ea> {[-8-]}
<POP 243e6-243ea Naked> Σ-8 Δ+4 →0x243f8
<POP 243e6-243e8 StackAdj> Δ+4 {[-4-]}
<MI 243e8 BRA 0x243f8> {[-4-]}
<POP 243ea-243ee Naked> Σ-8 ↓ →0x243a8 ←0x243ac
<MI 243ea ADDQ.L #0x1,D7> {[-8-]}
<MI 243ec BVC 0x243a8> {[-8-]}
<POP 243ee-243f8 Naked> Σ-8 Δ+8 →0x24400 ←0x243a8
<POP 243ee-243f0 StackAdj> Δ+4 {[-4-]}
<MI 243f0 MOVE.B D6,(A6+0xc)> {[-4-]}
<POP 243f4-243f6 StackAdj> Δ+4 {}
<MI 243f6 BRA 0x24400> {}
<POP 243f8-243fe Naked> Σ-4 ↓ →0x24376 ←0x2437e ←0x243e6
<MI 243f8 ADDQ.B #0x1,D6> {[-4-]}
<MI 243fa BVC 0x24376> {[-4-]}
<POP 243fe-24400 Naked> Σ-4 Δ+4 ↓ ←0x24376
<POP 243fe-24400 StackAdj> Δ+4 {}
<POP 24400-24408 Epilogue> Σ0 ←0x243ee
@ 24408
<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 24408-24544 Body>
<POP 24408-2441e Prologue> Σ0 ↓
<POP 2441e-2442c RegCacheLoad> Σ0 ↓
<POP 2442c-24498 Naked> Σ0 ↓ →0x244e2
<POP 2442c-2442e StackAdj> Δ-4 {[-4-]}
<MI 2442e MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']}
<Call 0x24432 0x102cc> {[-4-]|[4, '(A6+0xc)']}
StringDup(a : String) : String
<POP 24438-2443a StackAdj> Δ+4 {[-4-]}
<MI 2443a MOVE.L (A7)+,(A6-0x10)> Δ+4 {}
<MI 2443c MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0x10)']}
<Const 0x2443e 0x2e.2> Δ-2 {[4, '(A6-0x10)']|[#46]}
<Call 0x24442 0x102c0> {[4, '(A6-0x10)']|[#46]}
AppendChar(MOD b : String; a : char)
<POP 24448-2444a StackAdj> Δ+6 {}
<Blob 0x2444a [10] 0x27862> Δ-10 {[«10»]}
<POP 24458-2445a StackAdj> Δ-4 {[«10»]|[-4-]}
<MI 2445a MOVE.L (A6-0x10),-(A7)> Δ-4 {[«10»]|[-4-]|[4, '(A6-0x10)']}
<POP 2445c-2445e StackAdj> Δ-4 {[«10»]|[-4-]|[4, '(A6-0x10)']|[-4-]}
<Lit 0x2445e> {[«10»]|[-4-]|[4, '(A6-0x10)']|[$$…]}
<Pointer.sp 0x2445e 12> Δ-4
<Const 0x24462 0x1.2> Δ-2
<Const 0x24464 0xa.2> Δ-2
<Call 0x24468 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 2446e-24470 StackAdj> Δ+8
<Call 0x24470 0x102d0> {[«10»]|[-4-]|[4, '(A6-0x10)']|[$$…]}
StringCat2(a, b : String) : String
<POP 24476-24478 StackAdj> Δ+8 {[«10»]|[-4-]}
<MI 24478 MOVE.L (A7)+,(A6-0x10)> Δ+4 {[«10»]}
<POP 2447a-2447c StackAdj> Δ+6 {[-4-]}
<MI 2447c MOVE.L (A6-0x10),(A7)> {[4, '(A6-0x10)']}
<MI 2447e CLR.B -(A7)> Δ-2 {[4, '(A6-0x10)']|[#0]}
<Const 0x24480 0x1.2> Δ-2 {[4, '(A6-0x10)']|[#0]|[#1]}
<Const 0x24482 0x0.4> Δ-4 {[4, '(A6-0x10)']|[#0]|[#1]|[##0]}
<Pointer.fp 0x24486 <LVAR -0x002 @ 1(r)>> Δ-4 {[4, '(A6-0x10)']|[#0]|[#1]|[##0]|[@@-2]}
<Pointer.fp 0x24488 <LVAR -0x00c @ 4(r)>> Δ-4 {[4, '(A6-0x10)']|[#0]|[#1]|[##0]|[@@-2]|[@@-12]}
<Call 0x2448a 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 24490-24494 StackAdj> Δ+20 {}
<MI 24494 TST.B (A6-0x2)> {}
<MI 24496 BEQ 0x244e2> {}
<POP 24498-244e2 Naked> Σ0 ↓
<Pointer.fp 0x24498 <LVAR -0x010 @ 4(rw)>> Δ-4 {[@@-16]}
<Call 0x2449a 0x102bc> {[@@-16]}
FreeString(VAR a : String)
<MI 244a0 MOVE.L (A6+0x8),(A7)> {[4, '(A6+0x8)']}
<Call 0x244a4 0x21d04> {[4, '(A6+0x8)']}
<POP 244a8-244a9 StackAdj> Δ+4 ↓ {}
<Blob 0x244a9 [26] @> Δ-26 {[«26""»]}
<POP 244ba-244bc StackAdj> Δ-8 {[«26""»]|[-8-]}
<Lit 0x244bc 25> {[«26""»]|[-4-]|[$$Not a command or macro :_]}
<POP 244cc-244ce StackAdj> Δ-4 {[«26""»]|[-4-]|[$$Not a command or macro :_]|[-4-]}
<MI 244ce MOVE.L (A6+0xc),(A7)> {[«26""»]|[-4-]|[$$Not a command or macro :_]|[4, '(A6+0xc)']}
<Call 0x244d2 0x102d0> {[«26""»]|[-4-]|[$$Not a command or macro :_]|[4, '(A6+0xc)']}
StringCat2(a, b : String) : String
<POP 244d8-244da StackAdj> Δ+8 {[«26""»]|[-4-]}
<Call 0x244da 0x21d46> {[«26""»]|[-4-]}
<POP 244de-244e2 StackAdj> Δ+30 {}
<POP 244e2-244ea Naked> Σ0 ↓ ←0x2442c
<MI 244e2 MOVE.L 0x27850,(A6-0x6)> {}
<POP 244ea-24502 Naked> Σ0 ↓ →0x24516 ←0x24516
<MI 244ea MOVE.L (A6-0xc),-(A7)> Δ-4 {[4, '(A6-0xc)']}
<Pointer.fp 0x244ec <LVAR -0x010 @ 4(rw)>> Δ-4 {[4, '(A6-0xc)']|[@@-16]}
<Pointer.fp 0x244ee <LVAR -0x008 @ 1(r)>> Δ-4 {[4, '(A6-0xc)']|[@@-16]|[@@-8]}
<Call 0x244f2 0x1043c> {[4, '(A6-0xc)']|[@@-16]|[@@-8]}
FileReadLine(file : File; VAR a : String; VAR b : Byte)
<POP 244f8-244fc StackAdj> Δ+12 {}
<MI 244fc MOVEA.L (A6-0x10),A0> {}
<MI 244fe TST.W (A0)> {}
<MI 24500 BEQ 0x24516> {}
<POP 24502-24516 Naked> Σ0 ↓
<MI 24502 MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0x10)']}
<Call 0x24504 0x21f9e> {[4, '(A6-0x10)']}
<POP 24508-2450a StackAdj> Δ+4 {}
<Pointer.fp 0x2450a <LVAR -0x006 @ 4(w)>> Δ-4 {[@@-6]}
<MI 2450e MOVE.L (A6-0x10),-(A7)> Δ-4 {[@@-6]|[4, '(A6-0x10)']}
<Call 0x24510 0x22324> {[@@-6]|[4, '(A6-0x10)']}
<POP 24514-24516 StackAdj> Δ+8 {}
<POP 24516-2451c Naked> Σ0 ↓ →0x244ea ←0x244ea
<MI 24516 TST.B (A6-0x8)> {}
<MI 2451a BEQ 0x244ea> {}
<POP 2451c-2453c Naked> Σ0 ↓
<MI 2451c CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x2451e 0x1.2> Δ-2 {[#0]|[#1]}
<Const 0x24520 0x1.4> Δ-4 {[#0]|[#1]|[##1]}
<Pointer.fp 0x24524 <LVAR -0x002 @ 1(r)>> Δ-4 {[#0]|[#1]|[##1]|[@@-2]}
<Pointer.fp 0x24526 <LVAR -0x00c @ 4(r)>> Δ-4 {[#0]|[#1]|[##1]|[@@-2]|[@@-12]}
<Call 0x24528 0x1038c> {[#0]|[#1]|[##1]|[@@-2]|[@@-12]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 2452e-24532 StackAdj> Δ+16 {}
<Pointer.fp 0x24532 <LVAR -0x010 @ 4(rw)>> Δ-4 {[@@-16]}
<Call 0x24534 0x102bc> {[@@-16]}
FreeString(VAR a : String)
<POP 2453a-2453c StackAdj> Δ+4 {}
<POP 2453c-24544 Epilogue> Σ0
@ 24544
<LVAR 0x014 1(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 24544-24584 Body>
<POP 24544-2455a Prologue> Σ0 ↓
<POP 2455a-2457c Naked> Σ0 ↓
<MI 2455a MOVE.L (A6+0xc),D0> {}
<MI 2455e ADD.L (A6+0x8),D0> {}
<MI 24562 SUBQ.L #0x1,D0> {}
<MI 24564 SUBQ.L #0x1,D0> {}
<POP 0x24566 LimitCheck 0x0 ≤ D0 ≤ 0x1fff> {}
<MI 24570 LEA.L 0x25848,A0> {}
<MI 24576 MOVE.B (A0+D0.L+#0x8),(A6+0x14)> {}
<POP 2457c-24584 Epilogue> Σ0
@ 24584
<LVAR 0x010 4(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 1(r)>
<LVAR -0x008 @ 4(r)>
<POP 24584-24600 Body>
<POP 24584-2459a Prologue> Σ0 ↓
<POP 2459a-245c2 Naked> Σ0 ↓ →0x245f2
<POP 2459a-2459c StackAdj> Δ-4 {[-4-]}
<MI 2459c MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']}
<MI 245a0 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x245a4 0x229f2> {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 245a8-245aa StackAdj> Δ+8 {[-4-]}
<Pointer.fp 0x245aa <LVAR -0x004 @ 1(r)>> Δ-4 {[-4-]|[@@-4]}
<Pointer.fp 0x245ae <LVAR -0x008 @ 4(r)>> Δ-4 {[-4-]|[@@-4]|[@@-8]}
<Call 0x245b2 0x102ec> {[-4-]|[@@-4]|[@@-8]}
String2Long(src : String; VAR status : Bool; VAR retval : Long)
<POP 245b8-245bc StackAdj> Δ+12 {}
<MI 245bc TST.B (A6-0x4)> {}
<MI 245c0 BNE 0x245f2> {}
<POP 245c2-245f2 Naked> Σ0 ↓
<Blob 0x245c2 [24] @> Δ-24 {[«24""»]}
<POP 245d4-245d6 StackAdj> Δ-4 {[«24""»]|[-4-]}
<Lit 0x245d6 23> {[«24""»]|[$$Illegal marker argument]}
<Call 0x245ea 0x21d46> {[«24""»]|[$$Illegal marker argument]}
<POP 245ee-245f2 StackAdj> Δ+28 {}
<POP 245f2-245f8 Naked> Σ0 ↓ ←0x2459a
<MI 245f2 MOVE.L (A6-0x8),(A6+0x10)> {}
<POP 245f8-24600 Epilogue> Σ0
@ 24600
<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 24600-24728 Body>
<POP 24600-24616 Prologue> Σ0 ↓
<POP 24616-24626 RegCacheLoad> Σ0 ↓
<POP 24626-24640 Naked> Σ0 Δ-4 ↓
<MI 24626 MOVEQ.L #0x00,D7> {}
<MI 24628 MOVE.L (A6+0x14),(A6-0x20)> {}
<MI 2462c MOVE.L 0x27850,D0> {}
<MI 24632 SUB.L (A6+0x14),D0> {}
<MI 24636 MOVE.L D0,(A6-0x14)> {}
<MI 24638 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<MI 2463c MOVE.L (A6+0x10),D5> {[4, '(A6+0xc)']}
<POP 24640-24644 Naked> Σ-4 ↓ →0x24670 ←0x2466c
<MI 24640 CMP.L (A7),D5> {[-4-]}
<MI 24642 BGT 0x24670> {[-4-]}
<POP 24644-2466a Naked> Σ-4 ↓ →0x2466c
<POP 24644-24646 StackAdj> Δ-8 {[-12-]}
<MI 24646 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']}
<MI 2464a MOVE.L D5,-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']|[4, 'D5']}
<Call 0x2464c 0x22990> {[-12-]|[4, '(A6+0x8)']|[4, 'D5']}
<POP 24650-24652 StackAdj> Δ+8 {[-12-]}
<MI 24652 MOVE.L (A7)+,(A6-0x10)> Δ+4 {[-8-]}
<MI 24654 MOVE.L (A7),(A6-0xc)> {[-8-]}
<MI 24656 MOVE.L (A6-0xc),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']}
<MI 24658 MOVE.L (A6-0x10),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<Call 0x2465a 0x22958> {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<POP 2465e-24660 StackAdj> Δ+8 {[-8-]}
<MI 24660 MOVE.L (A7)+,D6> Δ+4 {[-4-]}
<MI 24662 ADD.L D6,D7> {[-4-]}
<MI 24664 CMP.L (A6+0xc),D5> {[-4-]}
<MI 24668 BGE 0x2466c> {[-4-]}
<POP 2466a-2466c Naked> Σ-4 ↓
<MI 2466a ADDQ.L #0x1,D7> {[-4-]}
<POP 2466c-24670 Naked> Σ-4 ↓ →0x24640 ←0x24644
<MI 2466c ADDQ.L #0x1,D5> {[-4-]}
<MI 2466e BVC 0x24640> {[-4-]}
<POP 24670-2467e Naked> Σ-4 Δ+4 ↓ →0x2468a ←0x24640
<POP 24670-24672 StackAdj> Δ+4 {}
<MI 24672 MOVE.L (A6-0x20),D0> {}
<MI 24674 ADD.L (A6-0x14),D0> {}
<MI 24676 MOVE.L D0,(A6-0x18)> {}
<MI 2467a CMP.L (A6-0x14),D7> {}
<MI 2467c BEQ 0x2468a> {}
<POP 2467e-2468a Naked> Σ0 ↓
<MI 2467e MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 24680 MOVE.L (A6-0x14),-(A7)> Δ-4 {[4, 'D0']|[4, '(A6-0x14)']}
<MI 24682 SUB.L D7,(A7)> {[4, 'D0']|[-4-]}
<Call 0x24684 0x2229a> {[4, 'D0']|[-4-]}
<POP 24688-2468a StackAdj> Δ+8 {}
<POP 2468a-24692 Naked> Σ0 Δ-4 ↓ ←0x24670
<MI 2468a MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<MI 2468e MOVE.L (A6+0x10),D5> {[4, '(A6+0xc)']}
<POP 24692-24698 Naked> Σ-4 ↓ →0x2471e ←0x24718
<MI 24692 CMP.L (A7),D5> {[-4-]}
<MI 24694 BGT 0x2471e> {[-4-]}
<POP 24698-246ba Naked> Σ-4 Δ-4 ↓
<POP 24698-2469a StackAdj> Δ-8 {[-12-]}
<MI 2469a MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']}
<MI 2469e MOVE.L D5,-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']|[4, 'D5']}
<Call 0x246a0 0x22990> {[-12-]|[4, '(A6+0x8)']|[4, 'D5']}
<POP 246a4-246a6 StackAdj> Δ+8 {[-12-]}
<MI 246a6 MOVE.L (A7)+,(A6-0x10)> Δ+4 {[-8-]}
<MI 246a8 MOVE.L (A7),(A6-0xc)> {[-8-]}
<MI 246aa MOVE.L (A6-0xc),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']}
<MI 246ac MOVE.L (A6-0x10),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<Call 0x246ae 0x22958> {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<POP 246b2-246b4 StackAdj> Δ+8 {[-8-]}
<MI 246b4 MOVE.L (A7)+,D6> Δ+4 {[-4-]}
<MI 246b6 MOVE.L D6,-(A7)> Δ-4 {[-4-]|[4, 'D6']}
<MI 246b8 MOVEQ.L #0x01,D0> {[-4-]|[4, 'D6']}
<POP 246ba-246be Naked> Σ-8 ↓ →0x246ee ←0x246be
<MI 246ba CMP.L (A7),D0> {[-8-]}
<MI 246bc BGT 0x246ee> {[-8-]}
<POP 246be-246ee Naked> Σ-8 ↓ →0x246ba
<MI 246be MOVE.L (A6-0x20),D1> {[-8-]}
<MI 246c0 ADD.L D0,D1> {[-8-]}
<MI 246c2 SUBQ.L #0x1,D1> {[-8-]}
<MI 246c4 SUBQ.L #0x1,D1> {[-8-]}
<POP 0x246c6 LimitCheck 0x0 ≤ D1 ≤ 0x1fff> {[-8-]}
<MI 246d0 LEA.L 0x25848,A0> {[-8-]}
<POP 246d6-246d8 StackAdj> Δ-2 {[-10-]}
<MI 246d8 MOVE.L (A6-0xc),-(A7)> Δ-4 {[-10-]|[4, '(A6-0xc)']}
<MI 246da MOVE.L (A6-0x10),-(A7)> Δ-4 {[-10-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<MI 246dc MOVE.L D0,-(A7)> Δ-4 {[-10-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D0']}
<Call 0x246de 0x24544> {[-10-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D0']}
<POP 246e2-246e6 StackAdj> Δ+12 {[-10-]}
<MI 246e6 MOVE.B (A7)+,(A0+D1.L+#0x8)> Δ+2 {[-8-]}
<MI 246ea ADDQ.L #0x1,D0> {[-8-]}
<MI 246ec BVC 0x246ba> {[-8-]}
<POP 246ee-246f6 Naked> Σ-8 Δ+4 ↓ →0x24718 ←0x246ba
<POP 246ee-246f0 StackAdj> Δ+4 {[-4-]}
<MI 246f0 CMP.L (A6+0xc),D5> {[-4-]}
<MI 246f4 BGE 0x24718> {[-4-]}
<POP 246f6-24718 Naked> Σ-4 ↓
<MI 246f6 MOVE.L (A6-0x20),D0> {[-4-]}
<MI 246f8 ADD.L D6,D0> {[-4-]}
<MI 246fa MOVE.L D0,D1> {[-4-]}
<MI 246fc SUBQ.L #0x1,D1> {[-4-]}
<POP 0x246fe LimitCheck 0x0 ≤ D1 ≤ 0x1fff> {[-4-]}
<MI 24708 LEA.L 0x25848,A0> {[-4-]}
<MI 2470e MOVE.B #0x2c,(A0+D1.L+#0x8)> {[-4-]}
<MI 24714 ADDQ.L #0x1,D0> {[-4-]}
<MI 24716 MOVE.L D0,(A6-0x20)> {[-4-]}
<POP 24718-2471e Naked> Σ-4 ↓ →0x24692 ←0x246ee
<MI 24718 ADDQ.L #0x1,D5> {[-4-]}
<MI 2471a BVC 0x24692> {[-4-]}
<POP 2471e-24720 Naked> Σ-4 Δ+4 ↓ ←0x24692
<POP 2471e-24720 StackAdj> Δ+4 {}
<POP 24720-24728 Epilogue> Σ0
@ 24728
<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 24728-2481e Body> Δ-12
<POP 24728-2473e Prologue> Σ0 ↓
<POP 2473e-24754 RegCacheLoad> Σ0 ↓
<POP 24754-2477e Naked> Σ0 Δ-4 ↓
<POP 24754-24756 StackAdj> Δ-4 {[-4-]}
<MI 24756 MOVE.L (A6+0x14),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']}
<MI 24758 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<Call 0x2475a 0x22958> {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<POP 2475e-24760 StackAdj> Δ+8 {[-4-]}
<MI 24760 MOVE.L (A7),(A6-0xc)> {[-4-]}
<MI 24762 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']}
<MI 24766 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x2476a 0x22958> {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 2476e-24770 StackAdj> Δ+8 {[-4-]}
<MI 24770 MOVE.L (A7)+,(A6-0x8)> Δ+4 {}
<MI 24772 ADDQ.L #0x1,(A6-0x8)> {}
<MI 24774 MOVE.L (A6-0xc),D0> {}
<MI 24776 SUB.L (A6-0x8),D0> {}
<MI 24778 ADDQ.L #0x1,D0> {}
<MI 2477a MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 2477c MOVEQ.L #0x01,D0> {[4, 'D0']}
<POP 2477e-24784 Naked> Σ-4 ↓ →0x24810 ←0x24808
<MI 2477e CMP.L (A7),D0> {[-4-]}
<MI 24780 BGT 0x24810> {[-4-]}
<POP 24784-24790 Naked> Σ-4 Δ-8 ↓
<MI 24784 MOVE.L D0,(A6-0x18)> {[-4-]}
<MI 24788 MOVE.L D0,-(A7)> Δ-4 {[-4-]|[4, 'D0']}
<MI 2478a MOVEQ.L #0x00,D6> {[-4-]|[4, 'D0']}
<MI 2478c MOVE.L (A6-0x8),-(A7)> Δ-4 {[-4-]|[4, 'D0']|[4, '(A6-0x8)']}
<MI 2478e MOVEQ.L #0x01,D5> {[-4-]|[4, 'D0']|[4, '(A6-0x8)']}
<POP 24790-24794 Naked> Σ-12 ↓ →0x247d6 ←0x247d0
<MI 24790 CMP.L (A7),D5> {[-12-]}
<MI 24792 BGT 0x247d6> {[-12-]}
<POP 24794-2479c Naked> Σ-12 ↓ →0x247a0
<MI 24794 CMPI.L #0x00000001,D5> {[-12-]}
<MI 2479a BNE 0x247a0> {[-12-]}
<POP 2479c-247a0 Naked> Σ-12 →0x247b4
<MI 2479c MOVEQ.L #0x2f,D7> {[-12-]}
<MI 2479e BRA 0x247b4> {[-12-]}
<POP 247a0-247b4 Naked> Σ-12 ↓ ←0x24794
<POP 247a0-247a2 StackAdj> Δ-2 {[-14-]}
<MI 247a2 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-14-]|[4, '(A6+0xc)']}
<MI 247a6 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-14-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<MI 247aa MOVE.L D5,-(A7)> Δ-4 {[-14-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D5']}
<MI 247ac SUBQ.L #0x1,(A7)> {[-14-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[-4-]}
<Call 0x247ae 0x24544> {[-14-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[-4-]}
<POP 247b0-247b2 StackAdj> Δ+12 {[-14-]}
<MI 247b2 MOVE.B (A7)+,D7> Δ+2 {[-12-]}
<POP 247b4-247cc Naked> Σ-12 ↓ →0x247d0 ←0x2479c
<POP 247b4-247b6 StackAdj> Δ-2 {[-14-]}
<MI 247b6 MOVE.L (A6+0x14),-(A7)> Δ-4 {[-14-]|[4, '(A6+0x14)']}
<MI 247b8 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-14-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 247ba MOVE.L (A7+0xe),D0> {[-14-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 247be ADD.L D5,D0> {[-14-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 247c0 SUBQ.L #0x1,D0> {[-14-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 247c2 MOVE.L D0,-(A7)> Δ-4 {[-14-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D0']}
<Call 0x247c4 0x24544> {[-14-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D0']}
<POP 247c6-247c8 StackAdj> Δ+12 {[-14-]}
<MI 247c8 CMP.B (A7)+,D7> Δ+2 {[-12-]}
<MI 247ca BEQ 0x247d0> {[-12-]}
<POP 247cc-247d0 Naked> Σ-12 Δ+4 →0x247d8
<POP 247cc-247ce StackAdj> Δ+4 {[-8-]}
<MI 247ce BRA 0x247d8> {[-8-]}
<POP 247d0-247d6 Naked> Σ-12 ↓ →0x24790 ←0x247b4
<MI 247d0 MOVE.L D5,D6> {[-12-]}
<MI 247d2 ADDQ.L #0x1,D5> {[-12-]}
<MI 247d4 BVC 0x24790> {[-12-]}
<POP 247d6-247d8 Naked> Σ-12 Δ+4 ↓ ←0x24790
<POP 247d6-247d8 StackAdj> Δ+4 {[-8-]}
<POP 247d8-247dc Naked> Σ-8 ↓ →0x24808 ←0x247cc
<MI 247d8 CMP.L (A6-0x8),D6> {[-8-]}
<MI 247da BNE 0x24808> {[-8-]}
<POP 247dc-247e8 Naked> Σ-8 ↓ →0x247ea
<MI 247dc MOVE.L (A7),D0> {[-8-]}
<MI 247de MOVE.L D0,(A6+0x18)> {[-8-]}
<MI 247e2 ADD.L (A6-0x8),D0> {[-8-]}
<MI 247e4 CMP.L (A6-0xc),D0> {[-8-]}
<MI 247e6 BLT 0x247ea> {[-8-]}
<POP 247e8-247ea Naked> Σ-8 →0x24804
<MI 247e8 BRA 0x24804> {[-8-]}
<POP 247ea-247fe Naked> Σ-8 ↓ →0x24804 ←0x247dc
<POP 247ea-247ec StackAdj> Δ-2 {[-10-]}
<MI 247ec MOVE.L (A6+0x14),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x14)']}
<MI 247ee MOVE.L (A6+0x10),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 247f0 MOVE.L D0,-(A7)> Δ-4 {[-10-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D0']}
<Call 0x247f2 0x24544> {[-10-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D0']}
<POP 247f4-247f6 StackAdj> Δ+12 {[-10-]}
<MI 247f6 MOVE.B (A7)+,D7> Δ+2 {[-8-]}
<MI 247f8 CMPI.B #0x2f,D7> {[-8-]}
<MI 247fc BEQ 0x24804> {[-8-]}
<POP 247fe-24804 Naked> Σ-8 ↓ →0x24808
<MI 247fe CMPI.B #0x3d,D7> {[-8-]}
<MI 24802 BNE 0x24808> {[-8-]}
<POP 24804-24808 Naked> Σ-8 Δ+8 →0x24816 ←0x247e8 ←0x247ea
<POP 24804-24806 StackAdj> Δ+8 {}
<MI 24806 BRA 0x24816> {}
<POP 24808-24810 Naked> Σ-8 Δ+4 ↓ →0x2477e ←0x247d8 ←0x247fe
<MI 24808 MOVE.L (A7)+,D0> Δ+4 {[-4-]}
<MI 2480a ADDQ.L #0x1,D0> {[-4-]}
<MI 2480c BVC 0x2477e> {[-4-]}
<POP 24810-24816 Naked> Σ-4 Δ+4 ↓ ←0x2477e
<POP 24810-24812 StackAdj> Δ+4 {}
<MI 24812 CLR.L (A6+0x18)> {}
<POP 24816-2481e Epilogue> Σ0 ←0x24804
@ 2481e
<LVAR 0x018 4(r)>
<LVAR 0x014 4(r)>
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 2481e-248b2 Body> Δ-4
<POP 2481e-24834 Prologue> Σ0 ↓
<POP 24834-2483e RegCacheLoad> Σ0 ↓
<POP 2483e-24858 Naked> Σ0 ↓ →0x248aa
<POP 2483e-24840 StackAdj> Δ-4 {[-4-]}
<MI 24840 MOVE.L (A6+0x14),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']}
<MI 24842 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 24844 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<MI 24848 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x2484c 0x24728> {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 24850-24854 StackAdj> Δ+16 {[-4-]}
<MI 24854 MOVE.L (A7)+,D5> Δ+4 {}
<MI 24856 BLE 0x248aa> {}
<POP 24858-24878 Naked> Σ0 Δ-4 ↓
<MI 24858 MOVE.L (A6+0x18),-(A7)> Δ-4 {[4, '(A6+0x18)']}
<Const 0x2485c 0x2f.2> Δ-2 {[4, '(A6+0x18)']|[#47]}
<Call 0x2485e 0x102c0> {[4, '(A6+0x18)']|[#47]}
AppendChar(MOD b : String; a : char)
<POP 24864-24866 StackAdj> Δ+6 {}
<MI 24866 MOVE.L D5,D0> {}
<MI 24868 ADDQ.L #0x1,D0> {}
<POP 2486a-2486c StackAdj> Δ-4 {[-4-]}
<MI 2486c MOVE.L (A6+0x14),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']}
<MI 2486e MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<Call 0x24870 0x22958> {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<POP 24874-24876 StackAdj> Δ+8 {[-4-]}
<MI 24876 MOVE.L D0,D6> {[-4-]}
<POP 24878-2487c Naked> Σ-4 ↓ →0x248a8 ←0x24896
<MI 24878 CMP.L (A7),D6> {[-4-]}
<MI 2487a BGT 0x248a8> {[-4-]}
<POP 2487c-24892 Naked> Σ-4 ↓ →0x24896
<POP 2487c-2487e StackAdj> Δ-2 {[-6-]}
<MI 2487e MOVE.L (A6+0x14),-(A7)> Δ-4 {[-6-]|[4, '(A6+0x14)']}
<MI 24880 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-6-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 24882 MOVE.L D6,-(A7)> Δ-4 {[-6-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D6']}
<Call 0x24884 0x24544> {[-6-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D6']}
<POP 24888-2488c StackAdj> Δ+12 {[-6-]}
<MI 2488c MOVE.B (A7)+,D7> Δ+2 {[-4-]}
<MI 2488e CMP.B #0x2f,D7> {[-4-]}
<MI 24890 BNE 0x24896> {[-4-]}
<POP 24892-24896 Naked> Σ-4 Δ+4 →0x248aa
<POP 24892-24894 StackAdj> Δ+4 {}
<MI 24894 BRA 0x248aa> {}
<POP 24896-248a8 Naked> Σ-4 ↓ →0x24878 ←0x2487c
<MI 24896 MOVE.L (A6+0x18),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x18)']}
<MI 2489a MOVE.B D7,-(A7)> Δ-2 {[-4-]|[4, '(A6+0x18)']|[2, 'D7']}
<Call 0x2489c 0x102c0> {[-4-]|[4, '(A6+0x18)']|[2, 'D7']}
AppendChar(MOD b : String; a : char)
<POP 248a2-248a4 StackAdj> Δ+6 {[-4-]}
<MI 248a4 ADDQ.L #0x1,D6> {[-4-]}
<MI 248a6 BVC 0x24878> {[-4-]}
<POP 248a8-248aa Naked> Σ-4 Δ+4 ↓ ←0x24878
<POP 248a8-248aa StackAdj> Δ+4 {}
<POP 248aa-248b2 Epilogue> Σ0 ←0x2483e ←0x24892
@ 248b2
<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 248b2-24968 Body> Δ-8
<POP 248b2-248c8 Prologue> Σ0 ↓
<POP 248c8-248d6 RegCacheLoad> Σ0 ↓
<POP 248d6-248f2 Naked> Σ0 ↓ →0x24960
<POP 248d6-248d8 StackAdj> Δ-4 {[-4-]}
<MI 248d8 MOVE.L (A6+0x14),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']}
<MI 248da MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 248dc MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<MI 248e0 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x248e4 0x24728> {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 248e8-248ec StackAdj> Δ+16 {[-4-]}
<MI 248ec MOVE.L (A7)+,(A6-0x14)> Δ+4 {}
<MI 248f0 BLE 0x24960> {}
<POP 248f2-24906 Naked> Σ0 Δ-4 ↓
<POP 248f2-248f4 StackAdj> Δ-4 {[-4-]}
<MI 248f4 MOVE.L (A6+0x14),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']}
<MI 248f6 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<Call 0x248f8 0x22958> {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<POP 248fc-248fe StackAdj> Δ+8 {[-4-]}
<MI 248fe MOVE.L (A7)+,(A6-0x6)> Δ+4 {}
<MI 24900 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<MI 24902 MOVE.L (A6-0x14),D5> {[4, '(A6-0x6)']}
<POP 24906-2490a Naked> Σ-4 ↓ →0x2495e ←0x2495a
<MI 24906 CMP.L (A7),D5> {[-4-]}
<MI 24908 BGT 0x2495e> {[-4-]}
<POP 2490a-24920 Naked> Σ-4 ↓ →0x2495a
<POP 2490a-2490c StackAdj> Δ-2 {[-6-]}
<MI 2490c MOVE.L (A6+0x14),-(A7)> Δ-4 {[-6-]|[4, '(A6+0x14)']}
<MI 2490e MOVE.L (A6+0x10),-(A7)> Δ-4 {[-6-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 24910 MOVE.L D5,-(A7)> Δ-4 {[-6-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D5']}
<Call 0x24912 0x24544> {[-6-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D5']}
<POP 24916-24918 StackAdj> Δ+12 {[-6-]}
<MI 24918 MOVE.B (A7)+,D0> Δ+2 {[-4-]}
<MI 2491a CMPI.B #0x3d,D0> {[-4-]}
<MI 2491e BNE 0x2495a> {[-4-]}
<POP 24920-24928 Naked> Σ-4 Δ-4 ↓
<MI 24920 MOVE.L D5,D0> {[-4-]}
<MI 24922 ADDQ.L #0x1,D0> {[-4-]}
<MI 24924 MOVE.L (A6-0x6),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x6)']}
<MI 24926 MOVE.L D0,D6> {[-4-]|[4, '(A6-0x6)']}
<POP 24928-2492c Naked> Σ-8 ↓ →0x24958 ←0x24946
<MI 24928 CMP.L (A7),D6> {[-8-]}
<MI 2492a BGT 0x24958> {[-8-]}
<POP 2492c-24942 Naked> Σ-8 ↓ →0x24946
<POP 2492c-2492e StackAdj> Δ-2 {[-10-]}
<MI 2492e MOVE.L (A6+0x14),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x14)']}
<MI 24930 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 24932 MOVE.L D6,-(A7)> Δ-4 {[-10-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D6']}
<Call 0x24934 0x24544> {[-10-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D6']}
<POP 24938-2493a StackAdj> Δ+12 {[-10-]}
<MI 2493a MOVE.B (A7)+,D7> Δ+2 {[-8-]}
<MI 2493c CMPI.B #0x2f,D7> {[-8-]}
<MI 24940 BNE 0x24946> {[-8-]}
<POP 24942-24946 Naked> Σ-8 Δ+8 →0x24960
<POP 24942-24944 StackAdj> Δ+8 {}
<MI 24944 BRA 0x24960> {}
<POP 24946-24958 Naked> Σ-8 ↓ →0x24928 ←0x2492c
<MI 24946 MOVE.L (A6+0x18),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x18)']}
<MI 2494a MOVE.B D7,-(A7)> Δ-2 {[-8-]|[4, '(A6+0x18)']|[2, 'D7']}
<Call 0x2494c 0x102c0> {[-8-]|[4, '(A6+0x18)']|[2, 'D7']}
AppendChar(MOD b : String; a : char)
<POP 24952-24954 StackAdj> Δ+6 {[-8-]}
<MI 24954 ADDQ.L #0x1,D6> {[-8-]}
<MI 24956 BVC 0x24928> {[-8-]}
<POP 24958-2495a Naked> Σ-8 Δ+4 ↓ ←0x24928
<POP 24958-2495a StackAdj> Δ+4 {[-4-]}
<POP 2495a-2495e Naked> Σ-4 ↓ →0x24906 ←0x2490a
<MI 2495a ADDQ.L #0x1,D5> {[-4-]}
<MI 2495c BVC 0x24906> {[-4-]}
<POP 2495e-24960 Naked> Σ-4 Δ+4 ↓ ←0x24906
<POP 2495e-24960 StackAdj> Δ+4 {}
<POP 24960-24968 Epilogue> Σ0 ←0x248d6 ←0x24942
@ 24968
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 24968-249ee Body> Δ-4
<POP 24968-2497e Prologue> Σ0 ↓
<POP 2497e-24988 RegCacheLoad> Σ0 ↓
<POP 24988-2499a Naked> Σ0 Δ-4 ↓
<POP 24988-2498a StackAdj> Δ-4 {[-4-]}
<MI 2498a MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']}
<MI 2498c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x2498e 0x22958> {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 24992-24994 StackAdj> Δ+8 {[-4-]}
<MI 24994 MOVE.L (A7)+,D5> Δ+4 {}
<MI 24996 MOVE.L D5,-(A7)> Δ-4 {[4, 'D5']}
<MI 24998 MOVEQ.L #0x01,D6> {[4, 'D5']}
<POP 2499a-2499e Naked> Σ-4 ↓ →0x249e4 ←0x249e0
<MI 2499a CMP.L (A7),D6> {[-4-]}
<MI 2499c BGT 0x249e4> {[-4-]}
<POP 2499e-249b4 Naked> Σ-4 ↓ →0x249e0
<POP 2499e-249a0 StackAdj> Δ-2 {[-6-]}
<MI 249a0 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-6-]|[4, '(A6+0xc)']}
<MI 249a2 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-6-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<MI 249a4 MOVE.L D6,-(A7)> Δ-4 {[-6-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D6']}
<Call 0x249a6 0x24544> {[-6-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D6']}
<POP 249aa-249ac StackAdj> Δ+12 {[-6-]}
<MI 249ac MOVE.B (A7)+,D0> Δ+2 {[-4-]}
<MI 249ae CMPI.B #0x2f,D0> {[-4-]}
<MI 249b2 BNE 0x249e0> {[-4-]}
<POP 249b4-249b8 Naked> Σ-4 Δ-4 ↓
<MI 249b4 MOVE.L D5,-(A7)> Δ-4 {[-4-]|[4, 'D5']}
<MI 249b6 MOVE.L D6,D7> {[-4-]|[4, 'D5']}
<POP 249b8-249bc Naked> Σ-8 ↓ →0x249da ←0x249bc
<MI 249b8 CMP.L (A7),D7> {[-8-]}
<MI 249ba BGT 0x249da> {[-8-]}
<POP 249bc-249da Naked> Σ-8 ↓ →0x249b8
<MI 249bc MOVE.L (A6+0x10),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x10)']}
<POP 249c0-249c2 StackAdj> Δ-2 {[-8-]|[4, '(A6+0x10)']|[-2-]}
<MI 249c2 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x10)']|[-2-]|[4, '(A6+0xc)']}
<MI 249c4 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x10)']|[-2-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<MI 249c6 MOVE.L D7,-(A7)> Δ-4 {[-8-]|[4, '(A6+0x10)']|[-2-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D7']}
<Call 0x249c8 0x24544> {[-8-]|[4, '(A6+0x10)']|[-2-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D7']}
<POP 249cc-249ce StackAdj> Δ+12 {[-8-]|[4, '(A6+0x10)']|[-2-]}
<Call 0x249ce 0x102c0> {[-8-]|[4, '(A6+0x10)']|[-2-]}
AppendChar(MOD b : String; a : char)
<POP 249d4-249d6 StackAdj> Δ+6 {[-8-]}
<MI 249d6 ADDQ.L #0x1,D7> {[-8-]}
<MI 249d8 BVC 0x249b8> {[-8-]}
<POP 249da-249e0 Naked> Σ-8 Δ+8 →0x249e6 ←0x249b8
<POP 249da-249dc StackAdj> Δ+4 {[-4-]}
<POP 249dc-249de StackAdj> Δ+4 {}
<MI 249de BRA 0x249e6> {}
<POP 249e0-249e4 Naked> Σ-4 ↓ →0x2499a ←0x2499e
<MI 249e0 ADDQ.L #0x1,D6> {[-4-]}
<MI 249e2 BVC 0x2499a> {[-4-]}
<POP 249e4-249e6 Naked> Σ-4 Δ+4 ↓ ←0x2499a
<POP 249e4-249e6 StackAdj> Δ+4 {}
<POP 249e6-249ee Epilogue> Σ0 ←0x249da
@ 249ee
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 249ee-24a5e Body> Δ-4
<POP 249ee-24a04 Prologue> Σ0 ↓
<POP 24a04-24a1c Naked> Σ0 Δ-4 ↓
<MI 24a04 MOVEA.L (A6+0x10),A0> {}
<MI 24a08 CLR.W (A0)> {}
<POP 24a0a-24a0c StackAdj> Δ-4 {[-4-]}
<MI 24a0c MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']}
<MI 24a10 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x24a14 0x22958> {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 24a18-24a1a StackAdj> Δ+8 {[-4-]}
<MI 24a1a MOVEQ.L #0x01,D7> {[-4-]}
<POP 24a1c-24a20 Naked> Σ-4 ↓ →0x24a54 ←0x24a50
<MI 24a1c CMP.L (A7),D7> {[-4-]}
<MI 24a1e BGT 0x24a54> {[-4-]}
<POP 24a20-24a3c Naked> Σ-4 ↓ →0x24a4c
<POP 24a20-24a22 StackAdj> Δ-2 {[-6-]}
<MI 24a22 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-6-]|[4, '(A6+0xc)']}
<MI 24a26 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-6-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<MI 24a2a MOVE.L D7,-(A7)> Δ-4 {[-6-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D7']}
<Call 0x24a2c 0x24544> {[-6-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D7']}
<POP 24a30-24a34 StackAdj> Δ+12 {[-6-]}
<MI 24a34 MOVE.B (A7)+,D6> Δ+2 {[-4-]}
<MI 24a36 CMPI.B #0x2f,D6> {[-4-]}
<MI 24a3a BEQ 0x24a4c> {[-4-]}
<POP 24a3c-24a4c Naked> Σ-4 →0x24a50
<MI 24a3c MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x10)']}
<MI 24a40 MOVE.B D6,-(A7)> Δ-2 {[-4-]|[4, '(A6+0x10)']|[2, 'D6']}
<Call 0x24a42 0x102c0> {[-4-]|[4, '(A6+0x10)']|[2, 'D6']}
AppendChar(MOD b : String; a : char)
<POP 24a48-24a4a StackAdj> Δ+6 {[-4-]}
<MI 24a4a BRA 0x24a50> {[-4-]}
<POP 24a4c-24a50 Naked> Σ-4 Δ+4 →0x24a56 ←0x24a20
<POP 24a4c-24a4e StackAdj> Δ+4 {}
<MI 24a4e BRA 0x24a56> {}
<POP 24a50-24a54 Naked> Σ-4 ↓ →0x24a1c ←0x24a3c
<MI 24a50 ADDQ.L #0x1,D7> {[-4-]}
<MI 24a52 BVC 0x24a1c> {[-4-]}
<POP 24a54-24a56 Naked> Σ-4 Δ+4 ↓ ←0x24a1c
<POP 24a54-24a56 StackAdj> Δ+4 {}
<POP 24a56-24a5e Epilogue> Σ0 ←0x24a4c
@ 24a5e
<POP 24a5e-24aa6 Body>
<POP 24a5e-24a74 Prologue> Σ0 ↓
<POP 24a74-24a9e Naked> Σ0 ↓
<Blob 0x24a74 [34] @> Δ-34 {[«34""»]}
<POP 24a80-24a82 StackAdj> Δ-4 {[«34""»]|[-4-]}
<Lit 0x24a82 34> {[«34""»]|[$$Switch exclusion is unimplemented.]}
<Call 0x24a96 0x21d46> {[«34""»]|[$$Switch exclusion is unimplemented.]}
<POP 24a9a-24a9e StackAdj> Δ+38 {}
<POP 24a9e-24aa6 Epilogue> Σ0
@ 24aa6
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x006 4(rw)>
<POP 24aa6-24be0 Body>
<POP 24aa6-24abc Prologue> Σ0 ↓
<POP 24abc-24ad2 RegCacheLoad> Σ0 ↓
<POP 24ad2-24ae0 Naked> Σ0 ↓ →0x24ae8
<MI 24ad2 MOVE.L 0x27850,(A6-0x6)> {}
<POP 24ad6-24ad8 StackAdj> Δ-2 {[-2-]}
<Call 0x24ad8 0x21de2> {[-2-]}
<MI 24ada MOVE.B (A7)+,D7> Δ+2 {}
<MI 24adc CMP.B #0x25,D7> {}
<MI 24ade BNE 0x24ae8> {}
<POP 24ae0-24ae8 Naked> Σ0 →0x24bc8
<MI 24ae0 MOVEA.L (A6+0xc),A0> {}
<MI 24ae2 CLR.L (A0)> {}
<MI 24ae4 BRA 0x24bc8> {}
<POP 24ae8-24aec Naked> Σ0 ↓ →0x24af8 ←0x24ad2
<MI 24ae8 CMP.B #0x2d,D7> {}
<MI 24aea BNE 0x24af8> {}
<POP 24aec-24af8 Naked> Σ0 →0x24bc8
<MI 24aec MOVEA.L (A6+0xc),A0> {}
<MI 24aee MOVE.L #0x1,(A0)> {}
<MI 24af4 BRA 0x24bc8> {}
<POP 24af8-24afe Naked> Σ0 ↓ →0x24b0a ←0x24ae8
<MI 24af8 CMPI.B #0x2f,D7> {}
<MI 24afc BNE 0x24b0a> {}
<POP 24afe-24b0a Naked> Σ0 →0x24bc8
<MI 24afe MOVEA.L (A6+0xc),A0> {}
<MI 24b00 MOVE.L #0x4,(A0)> {}
<MI 24b06 BRA 0x24bc8> {}
<POP 24b0a-24b10 Naked> Σ0 ↓ →0x24b1c ←0x24af8
<MI 24b0a CMPI.B #0x3d,D7> {}
<MI 24b0e BNE 0x24b1c> {}
<POP 24b10-24b1c Naked> Σ0 →0x24bc8
<MI 24b10 MOVEA.L (A6+0xc),A0> {}
<MI 24b12 MOVE.L #0x5,(A0)> {}
<MI 24b18 BRA 0x24bc8> {}
<POP 24b1c-24b22 Naked> Σ0 ↓ →0x24b2e ←0x24b0a
<MI 24b1c CMPI.B #0x5c,D7> {}
<MI 24b20 BNE 0x24b2e> {}
<POP 24b22-24b2e Naked> Σ0 →0x24bc8
<MI 24b22 MOVEA.L (A6+0xc),A0> {}
<MI 24b24 MOVE.L #0x6,(A0)> {}
<MI 24b2a BRA 0x24bc8> {}
<POP 24b2e-24b32 Naked> Σ0 ↓ →0x24b5e ←0x24b1c
<MI 24b2e TST.B D7> {}
<MI 24b30 BNE 0x24b5e> {}
<POP 24b32-24b5e Naked> Σ0 →0x24bc8
<Blob 0x24b32 [24] @> Δ-24 {[«24""»]}
<POP 24b3e-24b40 StackAdj> Δ-4 {[«24""»]|[-4-]}
<Lit 0x24b40 24> {[«24""»]|[$$Illegal argument marker.]}
<Call 0x24b54 0x21d46> {[«24""»]|[$$Illegal argument marker.]}
<POP 24b58-24b5c StackAdj> Δ+28 {}
<MI 24b5c BRA 0x24bc8> {}
<POP 24b5e-24b62 Naked> Σ0 ↓ →0x24b8e ←0x24b2e
<MI 24b5e CMP.B #0x30,D7> {}
<MI 24b60 BCS 0x24b8e> {}
<POP 24b62-24b66 Naked> Σ0 ↓ →0x24b8e
<MI 24b62 CMP.B #0x39,D7> {}
<MI 24b64 BHI 0x24b8e> {}
<POP 24b66-24b6e Naked> Σ0 ↓
<MI 24b66 MOVEA.L (A6+0xc),A0> {}
<MI 24b68 MOVE.L #0x2,(A0)> {}
<POP 24b6e-24b7a Naked> Σ0 ↓ →0x24b84 ←0x24b88
<POP 24b6e-24b70 StackAdj> Δ-2 {[-2-]}
<Call 0x24b70 0x21da4> {[-2-]}
<MI 24b74 MOVE.B (A7)+,D7> Δ+2 {}
<MI 24b76 CMP.B #0x30,D7> {}
<MI 24b78 BCS 0x24b84> {}
<POP 24b7a-24b7e Naked> Σ0 ↓ →0x24b84
<MI 24b7a CMP.B #0x39,D7> {}
<MI 24b7c BHI 0x24b84> {}
<POP 24b7e-24b84 Naked> Σ0 ↓
<POP 24b7e-24b80 StackAdj> Δ-2 {[-2-]}
<Call 0x24b80 0x21de2> {[-2-]}
<MI 24b82 MOVE.B (A7)+,D6> Δ+2 {}
<POP 24b84-24b88 Naked> Σ0 ↓ →0x24b8c ←0x24b6e ←0x24b7a
<MI 24b84 CMP.B #0x30,D7> {}
<MI 24b86 BCS 0x24b8c> {}
<POP 24b88-24b8c Naked> Σ0 ↓ →0x24b6e
<MI 24b88 CMP.B #0x39,D7> {}
<MI 24b8a BLS 0x24b6e> {}
<POP 24b8c-24b8e Naked> Σ0 →0x24bc8 ←0x24b84
<MI 24b8c BRA 0x24bc8> {}
<POP 24b8e-24b98 Naked> Σ0 ↓ ←0x24b5e ←0x24b62
<MI 24b8e MOVEA.L (A6+0xc),A0> {}
<MI 24b90 MOVE.L #0x3,(A0)> {}
<MI 24b96 MOVEQ.L #0x00,D5> {}
<POP 24b98-24ba4 Naked> Σ0 ↓ →0x24bba ←0x24bc4
<POP 24b98-24b9a StackAdj> Δ-2 {[-2-]}
<Call 0x24b9a 0x21da4> {[-2-]}
<MI 24b9e MOVE.B (A7)+,D7> Δ+2 {}
<MI 24ba0 CMP.B #0x25,D7> {}
<MI 24ba2 BEQ 0x24bba> {}
<POP 24ba4-24ba8 Naked> Σ0 ↓ →0x24bba
<MI 24ba4 CMP.B #0x2d,D7> {}
<MI 24ba6 BEQ 0x24bba> {}
<POP 24ba8-24bae Naked> Σ0 ↓ →0x24bba
<MI 24ba8 CMPI.B #0x2f,D7> {}
<MI 24bac BEQ 0x24bba> {}
<POP 24bae-24bb4 Naked> Σ0 ↓ →0x24bba
<MI 24bae CMPI.B #0x3d,D7> {}
<MI 24bb2 BEQ 0x24bba> {}
<POP 24bb4-24bba Naked> Σ0 ↓ →0x24bbe
<MI 24bb4 CMPI.B #0x5c,D7> {}
<MI 24bb8 BNE 0x24bbe> {}
<POP 24bba-24bbe Naked> Σ0 →0x24bc4 ←0x24b98 ←0x24ba4 ←0x24ba8 ←0x24bae
<MI 24bba MOVEQ.L #0x01,D5> {}
<MI 24bbc BRA 0x24bc4> {}
<POP 24bbe-24bc4 Naked> Σ0 ↓ ←0x24bb4
<POP 24bbe-24bc0 StackAdj> Δ-2 {[-2-]}
<Call 0x24bc0 0x21de2> {[-2-]}
<MI 24bc2 MOVE.B (A7)+,D6> Δ+2 {}
<POP 24bc4-24bc8 Naked> Σ0 ↓ →0x24b98 ←0x24bba
<MI 24bc4 TST.B D5> {}
<MI 24bc6 BEQ 0x24b98> {}
<POP 24bc8-24bd8 Naked> Σ0 ↓ ←0x24ae0 ←0x24aec ←0x24afe ←0x24b10 ←0x24b22 ←0x24b32 ←0x24b8c
<MI 24bc8 MOVEA.L (A6+0x8),A0> {}
<MI 24bcc MOVE.L (A6-0x6),(A0)> {}
<MI 24bd0 MOVE.L 0x27850,(A0+0x4)> {}
<MI 24bd4 SUBQ.L #0x1,(A0+0x4)> {}
<POP 24bd8-24be0 Epilogue> Σ0
@ 24be0
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 24be0-24c66 Body>
<POP 24be0-24bf6 Prologue> Σ0 ↓
<POP 24bf6-24bfa RegCacheLoad> Σ0 ↓
<POP 24bfa-24c14 Naked> Σ0 Δ-4 ↓ →0x24c20
<MI 24bfa MOVEA.L (A6+0x8),A0> {}
<MI 24bfe MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 24c00 MOVE.L 0x27850,D6> {[4, 'A0']}
<MI 24c06 SUB.L (A6+0xc),D6> {[4, 'A0']}
<MI 24c08 MOVE.L (A6+0xc),D5> {[4, 'A0']}
<MI 24c0a ADD.L D6,D5> {[4, 'A0']}
<MI 24c0c MOVE.W (A0),D0> {[4, 'A0']}
<MI 24c0e EXTW.L D0> {[4, 'A0']}
<MI 24c10 CMP.L D6,D0> {[4, 'A0']}
<MI 24c12 BEQ 0x24c20> {[4, 'A0']}
<POP 24c14-24c20 Naked> Σ-4 ↓
<MI 24c14 MOVE.L D5,-(A7)> Δ-4 {[-4-]|[4, 'D5']}
<MI 24c16 MOVE.L D6,-(A7)> Δ-4 {[-4-]|[4, 'D5']|[4, 'D6']}
<MI 24c18 SUB.L D0,(A7)> {[-4-]|[4, 'D5']|[-4-]}
<Call 0x24c1a 0x2229a> {[-4-]|[4, 'D5']|[-4-]}
<POP 24c1e-24c20 StackAdj> Δ+8 {[-4-]}
<POP 24c20-24c24 Naked> Σ-4 Δ-4 ↓ ←0x24bfa
<MI 24c20 MOVE.L D0,-(A7)> Δ-4 {[-4-]|[4, 'D0']}
<MI 24c22 MOVEQ.L #0x01,D7> {[-4-]|[4, 'D0']}
<POP 24c24-24c28 Naked> Σ-8 ↓ →0x24c5c ←0x24c28
<MI 24c24 CMP.L (A7),D7> {[-8-]}
<MI 24c26 BGT 0x24c5c> {[-8-]}
<POP 24c28-24c5c Naked> Σ-8 ↓ →0x24c24
<MI 24c28 MOVE.L (A6+0xc),D0> {[-8-]}
<MI 24c2a ADD.L D7,D0> {[-8-]}
<MI 24c2c SUBQ.L #0x1,D0> {[-8-]}
<MI 24c2e SUBQ.L #0x1,D0> {[-8-]}
<POP 0x24c30 LimitCheck 0x0 ≤ D0 ≤ 0x1fff> {[-8-]}
<MI 24c3a LEA.L 0x25848,A0> {[-8-]}
<MI 24c40 MOVE.L D7,D1> {[-8-]}
<MI 24c42 SUBQ.L #0x1,D1> {[-8-]}
<POP 0x24c44 LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-8-]}
<MI 24c4e MOVEA.L (A7+0x4),A1> {[-8-]}
<MI 24c52 MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x8)> {[-8-]}
<MI 24c58 ADDQ.L #0x1,D7> {[-8-]}
<MI 24c5a BVC 0x24c24> {[-8-]}
<POP 24c5c-24c5e Naked> Σ-8 Δ+8 ↓ ←0x24c24
<POP 24c5c-24c5e StackAdj> Δ+8 {}
<POP 24c5e-24c66 Epilogue> Σ0
@ 24c66
<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 24c66-24eae Body> Δ+56
<POP 24c66-24c7c Prologue> Σ0 ↓
<POP 24c7c-24c8e RegCacheLoad> Σ0 ↓
<POP 24c8e-24cb2 Naked> Σ0 ↓
<MI 24c8e MOVE.L 0x27850,(A6-0x28)> {}
<Pointer.fp 0x24c96 <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-8]}
<Call 0x24c98 0x102b8> {[@@-8]}
NewString(VAR a : String)
<POP 24c9e-24ca0 StackAdj> Δ+4 {}
<Pointer.fp 0x24ca0 <LVAR -0x00c @ 4(r)>> Δ-4 {[@@-12]}
<Pointer.fp 0x24ca4 <LVAR -0x014 @ 4(r)>> Δ-4 {[@@-12]|[@@-20]}
<Call 0x24ca6 0x24aa6> {[@@-12]|[@@-20]}
<POP 24caa-24cac StackAdj> Δ+8 {}
<MI 24cac CLR.L (A6-0x34)> {}
<MI 24cb0 MOVEQ.L #0x00,D7> {}
<POP 24cb2-24cc6 Naked> Σ0 →0x24cf0 →0x24cfa →0x24d0e →0x24d2a →0x24d2e →0x24d3c →0x24d50 →0x24d56 →0x24d58 →0x24d6e →0x24d7c →0x24d94 →0x24da8 →0x24dbc →0x24dd2 →0x24dd4 →0x24dee →0x24e04 →0x24e12 →0x24e14 →0x24e16 ←0x24e8a
<MI 24cb2 MOVE.L (A6-0x34),D0> {}
<POP 0x24cb6 LimitCheck 0x0 ≤ D0 ≤ 0x14> {}
<MI 24cbc ADD.W D0,D0> {}
<MI 24cbe SWITCH D0.W> {}
<POP 24cf0-24cfa Naked> Σ0 →0x24e40 ←0x24cb2
<MI 24cf0 MOVEQ.L #0x00,D6> {}
<MI 24cf2 MOVE.L (A6+0x8),D5> {}
<MI 24cf6 BRA 0x24e40> {}
<POP 24cfa-24d0e Naked> Σ0 →0x24e40 ←0x24cb2
<POP 24cfa-24cfc StackAdj> Δ-4 {[-4-]}
<MI 24cfc MOVE.L (A6-0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x10)']}
<MI 24d00 MOVE.L (A6-0x14),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<Call 0x24d02 0x24584> {[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<POP 24d06-24d08 StackAdj> Δ+8 {[-4-]}
<MI 24d08 MOVE.L (A7)+,D6> Δ+4 {}
<MI 24d0a BRA 0x24e40> {}
<POP 24d0e-24d16 Naked> Σ0 Δ-12 ↓ ←0x24cb2
<MI 24d0e MOVE.L (A6-0x28),-(A7)> Δ-4 {[4, '(A6-0x28)']}
<MI 24d12 MOVE.L D6,-(A7)> Δ-4 {[4, '(A6-0x28)']|[4, 'D6']}
<MI 24d14 MOVE.L D6,-(A7)> Δ-4 {[4, '(A6-0x28)']|[4, 'D6']|[4, 'D6']}
<POP 24d16-24d26 Naked> Σ-12 Δ+12 →0x24e9c ←0x24d2e
<MI 24d16 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-12-]|[4, '(A6+0xc)']}
<Call 0x24d1a 0x24600> {[-12-]|[4, '(A6+0xc)']}
<POP 24d1e-24d22 StackAdj> Δ+16 {}
<MI 24d22 BRA 0x24e9c> {}
<POP 24d2a-24d2e Naked> Σ0 →0x24e40 ←0x24cb2
<MI 24d2a BRA 0x24e40> {}
<POP 24d2e-24d38 Naked> Σ0 Δ-12 →0x24d16 ←0x24cb2
<MI 24d2e MOVE.L (A6-0x28),-(A7)> Δ-4 {[4, '(A6-0x28)']}
<MI 24d32 MOVE.L D6,-(A7)> Δ-4 {[4, '(A6-0x28)']|[4, 'D6']}
<MI 24d34 MOVE.L D5,-(A7)> Δ-4 {[4, '(A6-0x28)']|[4, 'D6']|[4, 'D5']}
<MI 24d36 BRA 0x24d16> {[4, '(A6-0x28)']|[4, 'D6']|[4, 'D5']}
<POP 24d3c-24d50 Naked> Σ0 →0x24e40 ←0x24cb2 ←0x24d56
<POP 24d3c-24d3e StackAdj> Δ-4 {[-4-]}
<MI 24d3e MOVE.L (A6-0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x10)']}
<MI 24d42 MOVE.L (A6-0x14),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<Call 0x24d44 0x24584> {[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<POP 24d48-24d4a StackAdj> Δ+8 {[-4-]}
<MI 24d4a MOVE.L (A7)+,D5> Δ+4 {}
<MI 24d4c BRA 0x24e40> {}
<POP 24d50-24d56 Naked> Σ0 →0x24e40 ←0x24cb2
<MI 24d50 MOVEQ.L #0x01,D6> {}
<MI 24d52 BRA 0x24e40> {}
<POP 24d56-24d58 Naked> Σ0 →0x24d3c ←0x24cb2
<MI 24d56 BRA 0x24d3c> {}
<POP 24d58-24d6e Naked> Σ0 →0x24e40 ←0x24cb2
<POP 24d58-24d5a StackAdj> Δ-8 {[-8-]}
<MI 24d5a MOVE.L (A6+0xc),-(A7)> Δ-4 {[-8-]|[4, '(A6+0xc)']}
<MI 24d5e MOVE.L D6,-(A7)> Δ-4 {[-8-]|[4, '(A6+0xc)']|[4, 'D6']}
<Call 0x24d60 0x22990> {[-8-]|[4, '(A6+0xc)']|[4, 'D6']}
<POP 24d64-24d66 StackAdj> Δ+8 {[-8-]}
<MI 24d66 MOVE.L (A7)+,(A6-0x24)> Δ+4 {[-4-]}
<MI 24d68 MOVE.L (A7)+,(A6-0x20)> Δ+4 {}
<MI 24d6a BRA 0x24e40> {}
<POP 24d6e-24d7c Naked> Σ0 →0x24e40 ←0x24cb2
<MI 24d6e MOVE.L (A6-0x14),(A6-0x1c)> {}
<MI 24d72 MOVE.L (A6-0x10),(A6-0x18)> {}
<MI 24d78 BRA 0x24e40> {}
<POP 24d7c-24d8e Naked> Σ0 Δ-20 ↓ ←0x24cb2
<MI 24d7c MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<MI 24d7e MOVE.L (A6-0x20),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']}
<MI 24d80 MOVE.L (A6-0x24),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']}
<MI 24d82 MOVE.L (A6-0x18),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']}
<MI 24d86 MOVE.L (A6-0x1c),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<Call 0x24d8a 0x248b2> {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<POP 24d8e-24d94 Naked> Σ-20 Δ+20 →0x24e40 ←0x24d94
<POP 24d8e-24d90 StackAdj> Δ+20 {}
<MI 24d90 BRA 0x24e40> {}
<POP 24d94-24da8 Naked> Σ0 Δ-20 →0x24d8e ←0x24cb2
<MI 24d94 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<MI 24d96 MOVE.L (A6-0x20),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']}
<MI 24d98 MOVE.L (A6-0x24),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']}
<MI 24d9a MOVE.L (A6-0x18),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']}
<MI 24d9e MOVE.L (A6-0x1c),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<Call 0x24da2 0x2481e> {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<MI 24da6 BRA 0x24d8e> {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<POP 24da8-24db2 Naked> Σ0 Δ-12 ↓ ←0x24cb2
<MI 24da8 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<MI 24daa MOVE.L (A6-0x20),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']}
<MI 24dac MOVE.L (A6-0x24),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']}
<Call 0x24dae 0x24968> {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']}
<POP 24db2-24db6 Naked> Σ-12 Δ+12 ↓ ←0x24dee
<POP 24db2-24db6 StackAdj> Δ+12 {}
<POP 24db6-24dbc Naked> Σ0 →0x24e40 ←0x24dbc ←0x24dd2 ←0x24e14
<MI 24db6 MOVEQ.L #0x01,D7> {}
<MI 24db8 BRA 0x24e40> {}
<POP 24dbc-24dd2 Naked> Σ0 →0x24db6 ←0x24cb2
<MI 24dbc MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<MI 24dbe MOVE.L (A6-0x20),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']}
<MI 24dc0 MOVE.L (A6-0x24),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']}
<MI 24dc2 MOVE.L (A6-0x18),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']}
<MI 24dc6 MOVE.L (A6-0x1c),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<Call 0x24dca 0x2481e> {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<POP 24dce-24dd0 StackAdj> Δ+20 {}
<MI 24dd0 BRA 0x24db6> {}
<POP 24dd2-24dd4 Naked> Σ0 →0x24db6 ←0x24cb2
<MI 24dd2 BRA 0x24db6> {}
<POP 24dd4-24de8 Naked> Σ0 Δ-12 ↓ ←0x24cb2
<MI 24dd4 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<POP 24dd6-24dd8 StackAdj> Δ-8 {[4, '(A6-0x8)']|[-8-]}
<MI 24dd8 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6-0x8)']|[-8-]|[4, '(A6+0xc)']}
<MI 24ddc MOVE.L D6,-(A7)> Δ-4 {[4, '(A6-0x8)']|[-8-]|[4, '(A6+0xc)']|[4, 'D6']}
<Call 0x24dde 0x22990> {[4, '(A6-0x8)']|[-8-]|[4, '(A6+0xc)']|[4, 'D6']}
<POP 24de2-24de4 StackAdj> Δ+8 {[4, '(A6-0x8)']|[-8-]}
<Call 0x24de4 0x24968> {[4, '(A6-0x8)']|[-8-]}
<POP 24de8-24dee Naked> Σ-12 Δ+12 →0x24e40 ←0x24e04
<POP 24de8-24dec StackAdj> Δ+12 {}
<MI 24dec BRA 0x24e40> {}
<POP 24dee-24e04 Naked> Σ0 Δ-12 →0x24db2 ←0x24cb2
<MI 24dee MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<POP 24df0-24df2 StackAdj> Δ-8 {[4, '(A6-0x8)']|[-8-]}
<MI 24df2 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6-0x8)']|[-8-]|[4, '(A6+0xc)']}
<MI 24df6 MOVE.L D6,-(A7)> Δ-4 {[4, '(A6-0x8)']|[-8-]|[4, '(A6+0xc)']|[4, 'D6']}
<Call 0x24df8 0x22990> {[4, '(A6-0x8)']|[-8-]|[4, '(A6+0xc)']|[4, 'D6']}
<POP 24dfc-24dfe StackAdj> Δ+8 {[4, '(A6-0x8)']|[-8-]}
<Call 0x24dfe 0x249ee> {[4, '(A6-0x8)']|[-8-]}
<MI 24e02 BRA 0x24db2> {[4, '(A6-0x8)']|[-8-]}
<POP 24e04-24e12 Naked> Σ0 Δ-12 →0x24de8 ←0x24cb2
<MI 24e04 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<MI 24e06 MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x10)']}
<MI 24e0a MOVE.L (A6-0x14),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<Call 0x24e0c 0x24a5e> {[4, '(A6-0x8)']|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<MI 24e10 BRA 0x24de8> {[4, '(A6-0x8)']|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<POP 24e12-24e14 Naked> Σ0 →0x24e40 ←0x24cb2
<MI 24e12 BRA 0x24e40> {}
<POP 24e14-24e16 Naked> Σ0 →0x24db6 ←0x24cb2
<MI 24e14 BRA 0x24db6> {}
<POP 24e16-24e40 Naked> Σ0 ↓ ←0x24cb2
<Blob 0x24e16 [24] @> Δ-24 {[«24""»]}
<POP 24e22-24e24 StackAdj> Δ-4 {[«24""»]|[-4-]}
<Lit 0x24e24 24> {[«24""»]|[$$Illegal argument marker.]}
<Call 0x24e38 0x21d46> {[«24""»]|[$$Illegal argument marker.]}
<POP 24e3c-24e40 StackAdj> Δ+28 {}
<POP 24e40-24e44 Naked> Σ0 ↓ →0x24e8a ←0x24cf0 ←0x24cfa ←0x24d2a ←0x24d3c ←0x24d50 ←0x24d58 ←0x24d6e ←0x24d8e ←0x24db6 ←0x24de8 ←0x24e12
<MI 24e40 TST.B D7> {}
<MI 24e42 BNE 0x24e8a> {}
<POP 24e44-24e8a Naked> Σ0 ↓
<Pointer.fp 0x24e44 <LVAR -0x00c @ 4(r)>> Δ-4 {[@@-12]}
<Pointer.fp 0x24e48 <LVAR -0x014 @ 4(r)>> Δ-4 {[@@-12]|[@@-20]}
<Call 0x24e4a 0x24aa6> {[@@-12]|[@@-20]}
<POP 24e4e-24e50 StackAdj> Δ+8 {}
<MI 24e50 MOVE.L (A6-0x34),D0> {}
<POP 0x24e54 LimitCheck 0x0 ≤ D0 ≤ 0x13> {}
<MI 24e5e MOVE.L D0,D4> {}
<MI 24e60 MOVEQ.L #0x07,D3> {}
<Call 0x24e62 0x1028c> {}
?muls_d3_d4
<MI 24e68 LEA.L 0x21c78,A0> {}
<MI 24e6c MOVE.L (A6-0xc),D0> {}
<POP 0x24e70 LimitCheck 0x0 ≤ D0 ≤ 0x6> {}
<MI 24e7a LEA.L (A0+D4.L),A0> {}
<MI 24e7e MOVE.B (A0+D0.L),D1> {}
<MI 24e82 EXTB.W D1> {}
<MI 24e84 EXTW.L D1> {}
<MI 24e86 MOVE.L D1,(A6-0x34)> {}
<POP 24e8a-24e90 Naked> Σ0 ↓ →0x24cb2 ←0x24e40
<MI 24e8a TST.B D7> {}
<MI 24e8c BEQ 0x24cb2> {}
<POP 24e90-24e9c Naked> Σ0 ↓
<MI 24e90 MOVE.L (A6-0x28),-(A7)> Δ-4 {[4, '(A6-0x28)']}
<MI 24e94 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x28)']|[4, '(A6-0x8)']}
<Call 0x24e96 0x24be0> {[4, '(A6-0x28)']|[4, '(A6-0x8)']}
<POP 24e9a-24e9c StackAdj> Δ+8 {}
<POP 24e9c-24ea6 Naked> Σ0 ↓ ←0x24d16
<Pointer.fp 0x24e9c <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-8]}
<Call 0x24e9e 0x102bc> {[@@-8]}
FreeString(VAR a : String)
<POP 24ea4-24ea6 StackAdj> Δ+4 {}
<POP 24ea6-24eae Epilogue> Σ0
@ 24eae
<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 24eae-24fa6 Body> Δ-12
<POP 24eae-24ec4 Prologue> Σ0 ↓
<POP 24ec4-24ed6 RegCacheLoad> Σ0 ↓
<POP 24ed6-24efe Naked> Σ0 Δ-4 ↓
<MI 24ed6 CLR.L (A6+0x14)> {}
<POP 24eda-24edc StackAdj> Δ-4 {[-4-]}
<MI 24edc MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x10)']}
<MI 24ede MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<Call 0x24ee0 0x22958> {[-4-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<POP 24ee4-24ee6 StackAdj> Δ+8 {[-4-]}
<MI 24ee6 MOVE.L (A7)+,(A6-0xc)> Δ+4 {}
<MI 24ee8 MOVEA.L (A6+0x8),A0> {}
<MI 24eec MOVE.W (A0),D0> {}
<MI 24eee EXTW.L D0> {}
<MI 24ef0 ADDQ.L #0x1,D0> {}
<MI 24ef2 MOVE.L D0,(A6-0x8)> {}
<MI 24ef4 NEG.L D0> {}
<MI 24ef6 ADD.L (A6-0xc),D0> {}
<MI 24ef8 ADDQ.L #0x1,D0> {}
<MI 24efa MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 24efc MOVEQ.L #0x01,D0> {[4, 'D0']}
<POP 24efe-24f04 Naked> Σ-4 ↓ →0x24f9c ←0x24f94
<MI 24efe CMP.L (A7),D0> {[-4-]}
<MI 24f00 BGT 0x24f9c> {[-4-]}
<POP 24f04-24f10 Naked> Σ-4 Δ-8 ↓
<MI 24f04 MOVE.L D0,(A6-0x18)> {[-4-]}
<MI 24f08 MOVE.L D0,-(A7)> Δ-4 {[-4-]|[4, 'D0']}
<MI 24f0a MOVEQ.L #0x00,D6> {[-4-]|[4, 'D0']}
<MI 24f0c MOVE.L (A6-0x8),-(A7)> Δ-4 {[-4-]|[4, 'D0']|[4, '(A6-0x8)']}
<MI 24f0e MOVEQ.L #0x01,D5> {[-4-]|[4, 'D0']|[4, '(A6-0x8)']}
<POP 24f10-24f14 Naked> Σ-12 ↓ →0x24f5c ←0x24f56
<MI 24f10 CMP.L (A7),D5> {[-12-]}
<MI 24f12 BGT 0x24f5c> {[-12-]}
<POP 24f14-24f1c Naked> Σ-12 ↓ →0x24f20
<MI 24f14 CMPI.L #0x00000001,D5> {[-12-]}
<MI 24f1a BNE 0x24f20> {[-12-]}
<POP 24f1c-24f20 Naked> Σ-12 →0x24f38
<MI 24f1c MOVEQ.L #0x2f,D7> {[-12-]}
<MI 24f1e BRA 0x24f38> {[-12-]}
<POP 24f20-24f38 Naked> Σ-12 ↓ ←0x24f14
<MI 24f20 MOVEA.L (A6+0x8),A0> {[-12-]}
<MI 24f24 MOVE.L D5,D0> {[-12-]}
<MI 24f26 SUBQ.L #0x1,D0> {[-12-]}
<MI 24f28 SUBQ.L #0x1,D0> {[-12-]}
<POP 0x24f2a LimitCheck 0x0 ≤ D0 ≤ 0x7d> {[-12-]}
<MI 24f34 MOVE.B (A0+D0.L+#0x2),D7> {[-12-]}
<POP 24f38-24f52 Naked> Σ-12 ↓ →0x24f56 ←0x24f1c
<POP 24f38-24f3a StackAdj> Δ-2 {[-14-]}
<MI 24f3a MOVE.L (A6+0x10),-(A7)> Δ-4 {[-14-]|[4, '(A6+0x10)']}
<MI 24f3c MOVE.L (A6+0xc),-(A7)> Δ-4 {[-14-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<MI 24f3e MOVE.L (A7+0xe),D0> {[-14-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<MI 24f42 ADD.L D5,D0> {[-14-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<MI 24f44 SUBQ.L #0x1,D0> {[-14-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<MI 24f46 MOVE.L D0,-(A7)> Δ-4 {[-14-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, 'D0']}
<Call 0x24f48 0x24544> {[-14-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, 'D0']}
<POP 24f4c-24f4e StackAdj> Δ+12 {[-14-]}
<MI 24f4e CMP.B (A7)+,D7> Δ+2 {[-12-]}
<MI 24f50 BEQ 0x24f56> {[-12-]}
<POP 24f52-24f56 Naked> Σ-12 Δ+4 →0x24f5e
<POP 24f52-24f54 StackAdj> Δ+4 {[-8-]}
<MI 24f54 BRA 0x24f5e> {[-8-]}
<POP 24f56-24f5c Naked> Σ-12 ↓ →0x24f10 ←0x24f38
<MI 24f56 MOVE.L D5,D6> {[-12-]}
<MI 24f58 ADDQ.L #0x1,D5> {[-12-]}
<MI 24f5a BVC 0x24f10> {[-12-]}
<POP 24f5c-24f5e Naked> Σ-12 Δ+4 ↓ ←0x24f10
<POP 24f5c-24f5e StackAdj> Δ+4 {[-8-]}
<POP 24f5e-24f62 Naked> Σ-8 ↓ →0x24f94 ←0x24f52
<MI 24f5e CMP.L (A6-0x8),D6> {[-8-]}
<MI 24f60 BNE 0x24f94> {[-8-]}
<POP 24f62-24f6c Naked> Σ-8 ↓ →0x24f92
<MI 24f62 MOVE.L (A7),D0> {[-8-]}
<MI 24f64 MOVE.L D0,D1> {[-8-]}
<MI 24f66 ADD.L (A6-0x8),D1> {[-8-]}
<MI 24f68 CMP.L (A6-0xc),D1> {[-8-]}
<MI 24f6a BGE 0x24f92> {[-8-]}
<POP 24f6c-24f82 Naked> Σ-8 ↓ →0x24f88
<POP 24f6c-24f6e StackAdj> Δ-2 {[-10-]}
<MI 24f6e MOVE.L (A6+0x10),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x10)']}
<MI 24f70 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<MI 24f72 MOVE.L D1,-(A7)> Δ-4 {[-10-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, 'D1']}
<Call 0x24f74 0x24544> {[-10-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, 'D1']}
<POP 24f78-24f7a StackAdj> Δ+12 {[-10-]}
<MI 24f7a MOVE.B (A7)+,D7> Δ+2 {[-8-]}
<MI 24f7c CMPI.B #0x2f,D7> {[-8-]}
<MI 24f80 BEQ 0x24f88> {[-8-]}
<POP 24f82-24f88 Naked> Σ-8 ↓ →0x24f90
<MI 24f82 CMPI.B #0x3d,D7> {[-8-]}
<MI 24f86 BNE 0x24f90> {[-8-]}
<POP 24f88-24f90 Naked> Σ-8 Δ+8 →0x24f9e ←0x24f6c ←0x24f92
<MI 24f88 MOVE.L D0,(A6+0x14)> {[-8-]}
<POP 24f8c-24f8e StackAdj> Δ+8 {}
<MI 24f8e BRA 0x24f9e> {}
<POP 24f90-24f92 Naked> Σ-8 →0x24f94 ←0x24f82
<MI 24f90 BRA 0x24f94> {[-8-]}
<POP 24f92-24f94 Naked> Σ-8 →0x24f88 ←0x24f62
<MI 24f92 BRA 0x24f88> {[-8-]}
<POP 24f94-24f9c Naked> Σ-8 Δ+4 ↓ →0x24efe ←0x24f5e ←0x24f90
<MI 24f94 MOVE.L (A7)+,D0> Δ+4 {[-4-]}
<MI 24f96 ADDQ.L #0x1,D0> {[-4-]}
<MI 24f98 BVC 0x24efe> {[-4-]}
<POP 24f9c-24f9e Naked> Σ-4 Δ+4 ↓ ←0x24efe
<POP 24f9c-24f9e StackAdj> Δ+4 {}
<POP 24f9e-24fa6 Epilogue> Σ0 ←0x24f88
@ 24fa6
<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 24fa6-2508e Body> Δ-12
<POP 24fa6-24fbc Prologue> Σ0 ↓
<POP 24fbc-24fcc RegCacheLoad> Σ0 ↓
<POP 24fcc-24ff2 Naked> Σ0 ↓ →0x25086
<MI 24fcc MOVEA.L (A6+0x8),A0> {}
<MI 24fd0 CLR.B (A0)> {}
<MI 24fd2 MOVEA.L (A6+0xc),A1> {}
<MI 24fd6 MOVE.L #0x01,(A1)> {}
<POP 24fd8-24fda StackAdj> Δ-8 {[-8-]}
<MI 24fda MOVE.L (A6+0x18),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x18)']}
<MI 24fde MOVE.L (A6+0x14),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x18)']|[4, '(A6+0x14)']}
<Call 0x24fe2 0x22990> {[-8-]|[4, '(A6+0x18)']|[4, '(A6+0x14)']}
<POP 24fe6-24fe8 StackAdj> Δ+8 {[-8-]}
<MI 24fe8 MOVE.L (A7)+,(A6-0x1c)> Δ+4 {[-4-]}
<MI 24fea MOVE.L (A7)+,(A6-0x18)> Δ+4 {}
<MI 24fec TST.L (A6-0x1c)> {}
<MI 24fee BEQ 0x25086> {}
<POP 24ff2-25008 Naked> Σ0 ↓ →0x25086
<POP 24ff2-24ff4 StackAdj> Δ-4 {[-4-]}
<MI 24ff4 MOVE.L (A6-0x18),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x18)']}
<MI 24ff6 MOVE.L (A6-0x1c),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<MI 24ff8 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, '(A6+0x10)']}
<Call 0x24ffc 0x24eae> {[-4-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, '(A6+0x10)']}
<POP 25000-25002 StackAdj> Δ+12 {[-4-]}
<MI 25002 MOVE.L (A7)+,(A6-0x14)> Δ+4 {}
<MI 25006 BEQ 0x25086> {}
<POP 25008-25028 Naked> Σ0 Δ-4 ↓
<MI 25008 MOVE.B #0x01,(A0)> {}
<MI 2500a PEA.L (A1)> Δ-4 {[4, '^(A1)']}
<Call 0x2500c 0x102b8> {[4, '^(A1)']}
NewString(VAR a : String)
<MI 25012 MOVE.L (A6-0x18),-(A7)> Δ-4 {[4, '^(A1)']|[4, '(A6-0x18)']}
<MI 25014 MOVE.L (A6-0x1c),-(A7)> Δ-4 {[4, '^(A1)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<Call 0x25016 0x22958> {[4, '^(A1)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<POP 2501a-2501c StackAdj> Δ+8 {[4, '^(A1)']}
<MI 2501c MOVE.L (A7)+,(A6-0x8)> Δ+4 {}
<MI 2501e MOVE.L (A6-0x14),D0> {}
<MI 25022 ADDQ.L #0x1,D0> {}
<MI 25024 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<MI 25026 MOVE.L D0,D5> {[4, '(A6-0x8)']}
<POP 25028-2502c Naked> Σ-4 ↓ →0x25084 ←0x25080
<MI 25028 CMP.L (A7),D5> {[-4-]}
<MI 2502a BGT 0x25084> {[-4-]}
<POP 2502c-25042 Naked> Σ-4 ↓ →0x25080
<POP 2502c-2502e StackAdj> Δ-2 {[-6-]}
<MI 2502e MOVE.L (A6-0x18),-(A7)> Δ-4 {[-6-]|[4, '(A6-0x18)']}
<MI 25030 MOVE.L (A6-0x1c),-(A7)> Δ-4 {[-6-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<MI 25032 MOVE.L D5,-(A7)> Δ-4 {[-6-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, 'D5']}
<Call 0x25034 0x24544> {[-6-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, 'D5']}
<POP 25038-2503a StackAdj> Δ+12 {[-6-]}
<MI 2503a MOVE.B (A7)+,D0> Δ+2 {[-4-]}
<MI 2503c CMPI.B #0x3d,D0> {[-4-]}
<MI 25040 BNE 0x25080> {[-4-]}
<POP 25042-2504a Naked> Σ-4 Δ-4 ↓
<MI 25042 MOVE.L D5,D0> {[-4-]}
<MI 25044 ADDQ.L #0x1,D0> {[-4-]}
<MI 25046 MOVE.L (A6-0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x8)']}
<MI 25048 MOVE.L D0,D7> {[-4-]|[4, '(A6-0x8)']}
<POP 2504a-2504e Naked> Σ-8 ↓ →0x2507c ←0x25068
<MI 2504a CMP.L (A7),D7> {[-8-]}
<MI 2504c BGT 0x2507c> {[-8-]}
<POP 2504e-25064 Naked> Σ-8 ↓ →0x25068
<POP 2504e-25050 StackAdj> Δ-2 {[-10-]}
<MI 25050 MOVE.L (A6-0x18),-(A7)> Δ-4 {[-10-]|[4, '(A6-0x18)']}
<MI 25052 MOVE.L (A6-0x1c),-(A7)> Δ-4 {[-10-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<MI 25054 MOVE.L D7,-(A7)> Δ-4 {[-10-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, 'D7']}
<Call 0x25056 0x24544> {[-10-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, 'D7']}
<POP 2505a-2505c StackAdj> Δ+12 {[-10-]}
<MI 2505c MOVE.B (A7)+,D6> Δ+2 {[-8-]}
<MI 2505e CMPI.B #0x2f,D6> {[-8-]}
<MI 25062 BNE 0x25068> {[-8-]}
<POP 25064-25068 Naked> Σ-8 Δ+8 →0x25086
<POP 25064-25066 StackAdj> Δ+8 {}
<MI 25066 BRA 0x25086> {}
<POP 25068-2507c Naked> Σ-8 ↓ →0x2504a ←0x2504e
<MI 25068 MOVEA.L (A6+0xc),A0> {[-8-]}
<MI 2506c MOVE.L (A0),-(A7)> Δ-4 {[-8-]|[4, '(A0)']}
<MI 2506e MOVE.B D6,-(A7)> Δ-2 {[-8-]|[4, '(A0)']|[2, 'D6']}
<Call 0x25070 0x102c0> {[-8-]|[4, '(A0)']|[2, 'D6']}
AppendChar(MOD b : String; a : char)
<POP 25076-25078 StackAdj> Δ+6 {[-8-]}
<MI 25078 ADDQ.L #0x1,D7> {[-8-]}
<MI 2507a BVC 0x2504a> {[-8-]}
<POP 2507c-25080 Naked> Σ-8 Δ+8 →0x25086 ←0x2504a
<POP 2507c-2507e StackAdj> Δ+8 {}
<MI 2507e BRA 0x25086> {}
<POP 25080-25084 Naked> Σ-4 ↓ →0x25028 ←0x2502c
<MI 25080 ADDQ.L #0x1,D5> {[-4-]}
<MI 25082 BVC 0x25028> {[-4-]}
<POP 25084-25086 Naked> Σ-4 Δ+4 ↓ ←0x25028
<POP 25084-25086 StackAdj> Δ+4 {}
<POP 25086-2508e Epilogue> Σ0 ←0x24fcc ←0x24ff2 ←0x25064 ←0x2507c
@ 2508e
<LVAR 0x00c @ 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x010 @ 1(r)>
<POP 2508e-2512c Body>
<POP 2508e-250a4 Prologue> Σ0 ↓
<POP 250a4-250b2 RegCacheLoad> Σ0 ↓
<POP 250b2-250ca Naked> Σ0 ↓ →0x2511a
<MI 250b2 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<MI 250b4 MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Pointer.fp 0x250b6 <LVAR -0x010 @ 1(r)>> Δ-4 {[4, '(A6+0xc)']|[4, '(A6+0x8)']|[@@-16]}
<Call 0x250ba 0x21596> {[4, '(A6+0xc)']|[4, '(A6+0x8)']|[@@-16]}
<POP 250c0-250c4 StackAdj> Δ+12 {}
<MI 250c4 TST.B (A6-0x10)> {}
<MI 250c8 BNE 0x2511a> {}
<POP 250ca-250e4 Naked> Σ0 ↓
<MI 250ca MOVE.L 0x27850,D7> {}
<POP 250cc-250ce StackAdj> Δ-4 {[-4-]}
<MI 250ce MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x250d0 0x22152> {[-4-]|[4, '(A6+0x8)']}
<POP 250d4-250d6 StackAdj> Δ+4 {[-4-]}
<MI 250d6 MOVE.L (A7)+,D6> Δ+4 {}
<MI 250d8 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<MI 250da MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x250dc 0x24408> {[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 250e0-250e2 StackAdj> Δ+8 {}
<MI 250e2 MOVE.L 0x27850,D5> {}
<POP 250e4-25102 Naked> Σ0 ↓ →0x2510e ←0x2510e
<MI 250e4 MOVE.L D7,D0> {}
<MI 250e6 SUBQ.L #0x1,D0> {}
<POP 0x250e8 LimitCheck 0x0 ≤ D0 ≤ 0x1fff> {}
<MI 250f2 LEA.L 0x25848,A0> {}
<MI 250f8 MOVE.B (A0+D0.L+#0x8),D0> {}
<MI 250fc CMPI.B #0x25,D0> {}
<MI 25100 BNE 0x2510e> {}
<POP 25102-2510e Naked> Σ0 ↓
<MI 25102 MOVE.L D7,0x27850> {}
<MI 25104 MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<MI 25106 MOVE.L D6,-(A7)> Δ-4 {[4, '(A6+0x8)']|[4, 'D6']}
<Call 0x25108 0x24c66> {[4, '(A6+0x8)']|[4, 'D6']}
<POP 2510c-2510e StackAdj> Δ+8 {}
<POP 2510e-25118 Naked> Σ0 ↓ →0x250e4 ←0x250e4
<MI 2510e ADDQ.L #0x1,D7> {}
<MI 25110 CMP.L 0x27854,D7> {}
<MI 25116 BLE 0x250e4> {}
<POP 25118-2511a Naked> Σ0 ↓
<MI 25118 MOVE.L D5,0x27850> {}
<POP 2511a-25124 Naked> Σ0 ↓ ←0x250b2
<Pointer.fp 0x2511a <LVAR 0x00c @ 4(r)>> Δ-4 {[@@12]}
<Call 0x2511c 0x102bc> {[@@12]}
FreeString(VAR a : String)
<POP 25122-25124 StackAdj> Δ+4 {}
<POP 25124-2512c Epilogue> Σ0
@ 2512c
<LVAR -0x006 @ 4(r)>
<LVAR -0x00a @ 4(rw)>
<LVAR -0x00b 1(w)>
<LVAR -0x00c @ 1(r)>
<POP 2512c-2543e Body> Δ+148
<POP 2512c-25142 Prologue> Σ0 ↓
<POP 25142-25150 RegCacheLoad> Σ0 ↓
<POP 25150-25176 Naked> Σ0 ↓ →0x25420 ←0x25420
<MI 25150 MOVE.L 0x27850,D7> {}
<Pointer.fp 0x25152 <LVAR -0x006 @ 4(r)>> Δ-4 {[@@-6]}
<Pointer.fp 0x25154 <LVAR -0x00c @ 1(r)>> Δ-4 {[@@-6]|[@@-12]}
<Call 0x25158 0x220a6> {[@@-6]|[@@-12]}
<POP 2515c-2515e StackAdj> Δ+8 {}
<MI 2515e MOVE.L 0x27850,D6> {}
<POP 25160-25162 StackAdj> Δ-4 {[-4-]}
<MI 25162 MOVE.L (A6-0x6),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x6)']}
<Call 0x25164 0x22152> {[-4-]|[4, '(A6-0x6)']}
<POP 25168-2516a StackAdj> Δ+4 {[-4-]}
<MI 2516a MOVE.L (A7)+,D0> Δ+4 {}
<MI 2516c CMPI.L #0xffffffff,D0> {}
<MI 25172 BEQ 0x25420> {}
<POP 25176-251a0 Naked> Σ0 ↓ →0x251ae
<POP 25176-25178 StackAdj> Δ-4 {[-4-]}
<MI 25178 MOVE.L (A6-0x6),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x6)']}
<Const 0x2517a 0x0.4> Δ-4 {[-4-]|[4, '(A6-0x6)']|[##0]}
<Call 0x2517e 0x22a6e> {[-4-]|[4, '(A6-0x6)']|[##0]}
<POP 25182-25184 StackAdj> Δ+8 {[-4-]}
<MI 25184 MOVE.L (A7),(A6-0xa)> {[-4-]}
<POP 25186-25188 StackAdj> Δ+2 {[-2-]}
<MI 25188 MOVE.L (A6-0xa),-(A7)> Δ-4 {[-2-]|[4, '(A6-0xa)']}
<Call 0x2518a 0x24350> {[-2-]|[4, '(A6-0xa)']}
<POP 2518e-25190 StackAdj> Δ+4 {[-2-]}
<MI 25190 MOVE.B (A7)+,D0> Δ+2 {}
<MI 25192 EXTB.W D0> {}
<POP 0x25194 LimitCheck 0x0 ≤ D0 ≤ 0x2b> {}
<MI 25198 MOVE.B D0,(A6-0xb)> {}
<MI 2519c TST.B D0> {}
<MI 2519e BNE 0x251ae> {}
<POP 251a0-251ae Naked> Σ0 →0x25418
<MI 251a0 MOVE.L (A6-0xa),-(A7)> Δ-4 {[4, '(A6-0xa)']}
<MI 251a2 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0xa)']|[4, '(A6-0x6)']}
<Call 0x251a4 0x2508e> {[4, '(A6-0xa)']|[4, '(A6-0x6)']}
<POP 251a8-251aa StackAdj> Δ+8 {}
<MI 251aa BRA 0x25418> {}
<POP 251ae-251e4 Naked> Σ0 ↓ →0x25210 ←0x25176
<Pointer.fp 0x251ae <LVAR -0x00a @ 4(rw)>> Δ-4 {[@@-10]}
<Call 0x251b0 0x102bc> {[@@-10]}
FreeString(VAR a : String)
<POP 251b6-251b8 StackAdj> Δ+4 {}
<MI 251b8 MOVE.B D0,D1> {}
<MI 251ba EXTB.W D1> {}
<POP 0x251bc LimitCheck 0x0 ≤ D1 ≤ 0x2b> {}
<MI 251c0 LEA.L 0x21c48,A0> {}
<MI 251c4 MOVE.W D1,D0> {}
<MI 251c6 EXTW.L D0> {}
<MI 251c8 MOVE.L D0,D2> {}
<MI 251ca ROR.L #0x1,D2> {}
<MI 251cc ADDA.W D2,A0> {}
<MI 251ce SWAP.W D2> {}
<MI 251d0 ROL.W #0x3,D2> {}
<MI 251d2 CLR.L D3> {}
<MI 251d4 MOVE.B (A0),D3> {}
<MI 251d6 LSL.B D2,D3> {}
<MI 251d8 LSR.B #0x4,D3> {}
<MI 251da MOVE.L D3,D5> {}
<MI 251dc CMPI.L #0x0000000f,D5> {}
<MI 251e2 BEQ 0x25210> {}
<POP 251e4-25210 Naked> Σ0 ↓
<MI 251e4 MOVE.L D0,D4> {}
<MI 251e6 MOVEQ.L #0x0a,D3> {}
<Call 0x251e8 0x1028c> {}
?muls_d3_d4
<MI 251ee LEA.L 0x21a7a,A0> {}
<Blob 0x251f2 [10] (A0+D4.W)> Δ-10 {[«10»]}
<MI 25204 MOVE.L (A6-0x6),-(A7)> Δ-4 {[«10»]|[4, '(A6-0x6)']}
<MI 25206 MOVE.L D5,-(A7)> Δ-4 {[«10»]|[4, '(A6-0x6)']|[4, 'D5']}
<Call 0x25208 0x22188> {[«10»]|[4, '(A6-0x6)']|[4, 'D5']}
<POP 2520c-25210 StackAdj> Δ+18 {}
<POP 25210-25224 Naked> Σ0 →0x2527a →0x25286 →0x25298 →0x252a6 →0x2540a →0x252ae →0x252b2 →0x252ba →0x252c2 →0x252ca →0x252d2 →0x252da →0x252e2 →0x252ea →0x252f2 →0x252fa →0x25304 →0x2530e →0x25318 →0x25322 →0x2532c →0x25336 →0x25340 →0x2534a →0x25354 →0x2535e →0x25368 →0x25372 →0x2537c →0x25386 →0x25390 →0x2539a →0x253a4 →0x253ae →0x253b8 →0x253c2 →0x253cc →0x253d6 →0x253dc →0x253e6 →0x253f0 →0x253fa →0x25400 ←0x251ae
<MI 25210 SUBQ.W #0x1,D1> {}
<POP 0x25212 LimitCheck 0x0 ≤ D1 ≤ 0x2a> {}
<MI 2521a ADD.W D1,D1> {}
<MI 2521c SWITCH D1.W> {}
<POP 2527a-25280 Naked> Σ0 Δ-4 ↓ ←0x25210
<MI 2527a MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x2527c 0x22bf6> {[4, '(A6-0x6)']}
<POP 25280-25286 Naked> Σ-4 Δ+4 →0x25418 ←0x25298 ←0x252a6 ←0x252b2 ←0x252ba ←0x252c2 ←0x252ca ←0x252d2 ←0x252da ←0x252e2 ←0x252ea ←0x252f2 ←0x252fa ←0x25304 ←0x2530e ←0x25318 ←0x25322 ←0x2532c ←0x25336 ←0x25340 ←0x2534a ←0x25354 ←0x2535e ←0x25368 ←0x25372 ←0x2537c ←0x25386 ←0x25390 ←0x2539a ←0x253a4 ←0x253ae ←0x253b8 ←0x253c2 ←0x253cc ←0x253dc ←0x253e6 ←0x253f0 ←0x25400
<POP 25280-25282 StackAdj> Δ+4 {}
<MI 25282 BRA 0x25418> {}
<POP 25286-25298 Naked> Σ0 →0x25418 ←0x25210
<MI 25286 CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x25288 0x1.4> Δ-4 {[#0]|[##1]}
<Call 0x2528c 0x103b8> {[#0]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 25292-25294 StackAdj> Δ+6 {}
<MI 25294 BRA 0x25418> {}
<POP 25298-252a6 Naked> Σ0 Δ-4 →0x25280 ←0x25210
<POP 25298-2529a StackAdj> Δ-4 {[-4-]}
<Call 0x2529a 0x102ac> {[-4-]}
FSCALL_102ac
<Call 0x252a0 0x22bcc> {[-4-]}
<MI 252a4 BRA 0x25280> {[-4-]}
<POP 252a6-252ae Naked> Σ0 Δ-4 →0x25280 ←0x25210
<MI 252a6 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x252a8 0x22dd0> {[4, '(A6-0x6)']}
<MI 252ac BRA 0x25280> {[4, '(A6-0x6)']}
<POP 252ae-252b2 Naked> Σ0 →0x25418 ←0x25210
<MI 252ae BRA 0x25418> {}
<POP 252b2-252ba Naked> Σ0 Δ-4 →0x25280 ←0x25210
<MI 252b2 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x252b4 0x230f6> {[4, '(A6-0x6)']}
<MI 252b8 BRA 0x25280> {[4, '(A6-0x6)']}
<POP 252ba-252c2 Naked> Σ0 Δ-4 →0x25280 ←0x25210
<MI 252ba MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x252bc 0x23262> {[4, '(A6-0x6)']}
<MI 252c0 BRA 0x25280> {[4, '(A6-0x6)']}
<POP 252c2-252ca Naked> Σ0 Δ-4 →0x25280 ←0x25210
<MI 252c2 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x252c4 0x23350> {[4, '(A6-0x6)']}
<MI 252c8 BRA 0x25280> {[4, '(A6-0x6)']}
<POP 252ca-252d2 Naked> Σ0 Δ-4 →0x25280 ←0x25210
<MI 252ca MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x252cc 0x23744> {[4, '(A6-0x6)']}
<MI 252d0 BRA 0x25280> {[4, '(A6-0x6)']}
<POP 252d2-252da Naked> Σ0 Δ-4 →0x25280 ←0x25210
<MI 252d2 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x252d4 0x237bc> {[4, '(A6-0x6)']}
<MI 252d8 BRA 0x25280> {[4, '(A6-0x6)']}
<POP 252da-252e2 Naked> Σ0 Δ-4 →0x25280 ←0x25210
<MI 252da MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x252dc 0x23834> {[4, '(A6-0x6)']}
<MI 252e0 BRA 0x25280> {[4, '(A6-0x6)']}
<POP 252e2-252ea Naked> Σ0 Δ-4 →0x25280 ←0x25210
<MI 252e2 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x252e4 0x23860> {[4, '(A6-0x6)']}
<MI 252e8 BRA 0x25280> {[4, '(A6-0x6)']}
<POP 252ea-252f2 Naked> Σ0 Δ-4 →0x25280 ←0x25210
<MI 252ea MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x252ec 0x23960> {[4, '(A6-0x6)']}
<MI 252f0 BRA 0x25280> {[4, '(A6-0x6)']}
<POP 252f2-252fa Naked> Σ0 Δ-4 →0x25280 ←0x25210
<MI 252f2 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x252f4 0x23a46> {[4, '(A6-0x6)']}
<MI 252f8 BRA 0x25280> {[4, '(A6-0x6)']}
<POP 252fa-25304 Naked> Σ0 Δ-4 →0x25280 ←0x25210
<MI 252fa MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x252fc 0x23a72> {[4, '(A6-0x6)']}
<MI 25300 BRA 0x25280> {[4, '(A6-0x6)']}
<POP 25304-2530e Naked> Σ0 Δ-4 →0x25280 ←0x25210
<MI 25304 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x25306 0x23abe> {[4, '(A6-0x6)']}
<MI 2530a BRA 0x25280> {[4, '(A6-0x6)']}
<POP 2530e-25318 Naked> Σ0 Δ-4 →0x25280 ←0x25210
<MI 2530e MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x25310 0x23b0a> {[4, '(A6-0x6)']}
<MI 25314 BRA 0x25280> {[4, '(A6-0x6)']}
<POP 25318-25322 Naked> Σ0 Δ-4 →0x25280 ←0x25210
<MI 25318 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x2531a 0x23b56> {[4, '(A6-0x6)']}
<MI 2531e BRA 0x25280> {[4, '(A6-0x6)']}
<POP 25322-2532c Naked> Σ0 Δ-4 →0x25280 ←0x25210
<MI 25322 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x25324 0x23ba2> {[4, '(A6-0x6)']}
<MI 25328 BRA 0x25280> {[4, '(A6-0x6)']}
<POP 2532c-25336 Naked> Σ0 Δ-4 →0x25280 ←0x25210
<MI 2532c MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x2532e 0x23bee> {[4, '(A6-0x6)']}
<MI 25332 BRA 0x25280> {[4, '(A6-0x6)']}
<POP 25336-25340 Naked> Σ0 Δ-4 →0x25280 ←0x25210
<MI 25336 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x25338 0x23c3a> {[4, '(A6-0x6)']}
<MI 2533c BRA 0x25280> {[4, '(A6-0x6)']}
<POP 25340-2534a Naked> Σ0 Δ-4 →0x25280 ←0x25210
<MI 25340 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x25342 0x23c84> {[4, '(A6-0x6)']}
<MI 25346 BRA 0x25280> {[4, '(A6-0x6)']}
<POP 2534a-25354 Naked> Σ0 Δ-4 →0x25280 ←0x25210
<MI 2534a MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x2534c 0x23cce> {[4, '(A6-0x6)']}
<MI 25350 BRA 0x25280> {[4, '(A6-0x6)']}
<POP 25354-2535e Naked> Σ0 Δ-4 →0x25280 ←0x25210
<MI 25354 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x25356 0x23d18> {[4, '(A6-0x6)']}
<MI 2535a BRA 0x25280> {[4, '(A6-0x6)']}
<POP 2535e-25368 Naked> Σ0 Δ-4 →0x25280 ←0x25210
<MI 2535e MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x25360 0x23d62> {[4, '(A6-0x6)']}
<MI 25364 BRA 0x25280> {[4, '(A6-0x6)']}
<POP 25368-25372 Naked> Σ0 Δ-4 →0x25280 ←0x25210
<MI 25368 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x2536a 0x23dac> {[4, '(A6-0x6)']}
<MI 2536e BRA 0x25280> {[4, '(A6-0x6)']}
<POP 25372-2537c Naked> Σ0 Δ-4 →0x25280 ←0x25210
<MI 25372 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x25374 0x23df6> {[4, '(A6-0x6)']}
<MI 25378 BRA 0x25280> {[4, '(A6-0x6)']}
<POP 2537c-25386 Naked> Σ0 Δ-4 →0x25280 ←0x25210
<MI 2537c MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x2537e 0x23e40> {[4, '(A6-0x6)']}
<MI 25382 BRA 0x25280> {[4, '(A6-0x6)']}
<POP 25386-25390 Naked> Σ0 Δ-4 →0x25280 ←0x25210
<MI 25386 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x25388 0x23e8a> {[4, '(A6-0x6)']}
<MI 2538c BRA 0x25280> {[4, '(A6-0x6)']}
<POP 25390-2539a Naked> Σ0 Δ-4 →0x25280 ←0x25210
<MI 25390 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x25392 0x23ece> {[4, '(A6-0x6)']}
<MI 25396 BRA 0x25280> {[4, '(A6-0x6)']}
<POP 2539a-253a4 Naked> Σ0 Δ-4 →0x25280 ←0x25210
<MI 2539a MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x2539c 0x23f14> {[4, '(A6-0x6)']}
<MI 253a0 BRA 0x25280> {[4, '(A6-0x6)']}
<POP 253a4-253ae Naked> Σ0 Δ-4 →0x25280 ←0x25210
<MI 253a4 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x253a6 0x23f4a> {[4, '(A6-0x6)']}
<MI 253aa BRA 0x25280> {[4, '(A6-0x6)']}
<POP 253ae-253b8 Naked> Σ0 Δ-4 →0x25280 ←0x25210
<MI 253ae MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x253b0 0x23fda> {[4, '(A6-0x6)']}
<MI 253b4 BRA 0x25280> {[4, '(A6-0x6)']}
<POP 253b8-253c2 Naked> Σ0 Δ-4 →0x25280 ←0x25210
<MI 253b8 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x253ba 0x2404c> {[4, '(A6-0x6)']}
<MI 253be BRA 0x25280> {[4, '(A6-0x6)']}
<POP 253c2-253cc Naked> Σ0 Δ-4 →0x25280 ←0x25210
<MI 253c2 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x253c4 0x233b2> {[4, '(A6-0x6)']}
<MI 253c8 BRA 0x25280> {[4, '(A6-0x6)']}
<POP 253cc-253d6 Naked> Σ0 Δ-4 →0x25280 ←0x25210
<MI 253cc MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x253ce 0x2341c> {[4, '(A6-0x6)']}
<MI 253d2 BRA 0x25280> {[4, '(A6-0x6)']}
<POP 253d6-253dc Naked> Σ0 →0x25418 ←0x25210
<Call 0x253d6 0x233ee> {}
<MI 253da BRA 0x25418> {}
<POP 253dc-253e6 Naked> Σ0 Δ-4 →0x25280 ←0x25210
<MI 253dc MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x253de 0x240be> {[4, '(A6-0x6)']}
<MI 253e2 BRA 0x25280> {[4, '(A6-0x6)']}
<POP 253e6-253f0 Naked> Σ0 Δ-4 →0x25280 ←0x25210
<MI 253e6 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x253e8 0x24140> {[4, '(A6-0x6)']}
<MI 253ec BRA 0x25280> {[4, '(A6-0x6)']}
<POP 253f0-253fa Naked> Σ0 Δ-4 →0x25280 ←0x25210
<MI 253f0 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x253f2 0x241c0> {[4, '(A6-0x6)']}
<MI 253f6 BRA 0x25280> {[4, '(A6-0x6)']}
<POP 253fa-25400 Naked> Σ0 →0x25418 ←0x25210
<Call 0x253fa 0x24284> {}
<MI 253fe BRA 0x25418> {}
<POP 25400-2540a Naked> Σ0 Δ-4 →0x25280 ←0x25210
<MI 25400 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x25402 0x242a4> {[4, '(A6-0x6)']}
<MI 25406 BRA 0x25280> {[4, '(A6-0x6)']}
<POP 2540a-25418 Naked> Σ0 ←0x25210
<POP 2540a-25418 Bailout> {}
<MI 2540a MOVEA.L (A5+0x8),A7>
<MI 2540e MOVEA.W #0x0,A6>
<MI 25412 JMP 0x25622>
<POP 25418-25420 Naked> Σ0 ↓ ←0x251a0 ←0x25280 ←0x25286 ←0x252ae ←0x253d6 ←0x253fa
<MI 25418 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x2541a 0x21d04> {[4, '(A6-0x6)']}
<POP 2541e-25420 StackAdj> Δ+4 {}
<POP 25420-25436 Naked> Σ0 ↓ →0x25150 ←0x25150
<MI 25420 MOVE.L D6,-(A7)> Δ-4 {[4, 'D6']}
<MI 25422 MOVE.L D6,-(A7)> Δ-4 {[4, 'D6']|[4, 'D6']}
<MI 25424 SUB.L D7,(A7)> {[4, 'D6']|[-4-]}
<Call 0x25426 0x2229a> {[4, 'D6']|[-4-]}
<POP 2542a-2542c StackAdj> Δ+8 {}
<MI 2542c MOVE.L D7,0x27850> {}
<MI 2542e TST.B (A6-0xc)> {}
<MI 25432 BEQ 0x25150> {}
<POP 25436-2543e Epilogue> Σ0
@ 2543e
START
<POP 2543e--0001 Body>
<POP 2543e-25448 Prologue> Σ0
<POP 25448-25478 Naked> Σ0 ↓ →0x254e0
<MI 25448 MOVE.L #0x1,0x2787a> {}
<POP 25452-25454 StackAdj> Δ-4 {[-4-]}
<Call 0x25454 0x103c4> {[-4-]}
GetArgv() : String
<MI 2545a MOVE.L (A7)+,0x2787e> Δ+4 {}
<Const 0x25460 0x27858.4> Δ-4 {[##161880]}
<Call 0x25466 0x21646> {[##161880]}
<POP 2546c-2546e StackAdj> Δ+4 {}
<MI 2546e MOVEA.L 0x2787e,A0> {}
<MI 25474 TST.W (A0)> {}
<MI 25476 BLE 0x254e0> {}
<POP 25478-254e0 Naked> Σ0 →0x2551a
<Blob 0x25478 [8] @> Δ-8 {[«8""»]}
<Blob 0x25488 [8] @> Δ-8 {[«8""»]|[«8""»]}
<POP 25498-2549a StackAdj> Δ-8 {[«8""»]|[«8""»]|[-8-]}
<Lit 0x2549a 7> {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]}
<POP 254ac-254ae StackAdj> Δ-4 {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]|[-4-]}
<POP 254ae-254af StackAdj> Δ+4 {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]}
<Blob 0x254af [4] 0x2787e> Δ-4 {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]|[«4»]}
<POP 254b4-254b6 StackAdj> Δ-4 {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]|[«4»]|[-4-]}
<Lit 0x254b6 7> {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]|[«4»]|[$$][BYE];]}
<Call 0x254ca 0x102d4> {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]|[«4»]|[$$][BYE];]}
StringCat3(a, b, c : String) : String
<POP 254d0-254d4 StackAdj> Δ+12 {[«8""»]|[«8""»]|[-4-]}
<MI 254d4 MOVE.L (A7)+,0x2787e> Δ+4 {[«8""»]|[«8""»]}
<POP 254da-254de StackAdj> Δ+16 {}
<MI 254de BRA 0x2551a> {}
<POP 254e0-2551a Naked> Σ0 ↓ ←0x25448
<Const 0x254e0 0x2787e.4> Δ-4 {[##161918]}
<Call 0x254e6 0x102bc> {[##161918]}
FreeString(VAR a : String)
<POP 254ec-254ed StackAdj> Δ+4 ↓ {}
<Blob 0x254ed [8] @> Δ-8 {[«8""»]}
<POP 254fc-254fe StackAdj> Δ-4 {[«8""»]|[-4-]}
<Lit 0x254fe 7> {[«8""»]|[$$[INIT];]}
<MI 25512 MOVE.L (A7)+,0x2787e> Δ+4 {[«8""»]}
<POP 25518-2551a StackAdj> Δ+8 {}
<POP 2551a-25522 Naked> Σ0 ↓ ←0x25478
<MI 2551a MOVE.B #0x01,0x27888> {}
<POP 25522-2552a Naked> Σ0 ↓ →0x25534 ←0x25630
<MI 25522 TST.B 0x27888> {}
<MI 25528 BEQ 0x25534> {}
<POP 2552a-25534 Naked> Σ0 →0x255e2
<MI 2552a CLR.B 0x27888> {}
<MI 25530 BRA 0x255e2> {}
<POP 25534-255e2 Naked> Σ0 ↓ ←0x25522
<Blob 0x25534 [10] 0x27862> Δ-10 {[«10»]}
<Blob 0x25542 [2] @> Δ-2 {[«10»]|[«2""»]}
<POP 25546-2554a StackAdj> Δ-12 {[«10»]|[«2""»]|[-12-]}
<Lit 0x2554a> {[«10»]|[«2""»]|[-8-]|[$$…]}
<Pointer.sp 0x2554a 14> Δ-4
<Const 0x2554e 0x1.2> Δ-2
<Const 0x25552 0xa.2> Δ-2
<Call 0x25556 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 2555c-2555e StackAdj> Δ+8
<POP 2555c-2555e StackAdj> Δ-4 {[«10»]|[«2""»]|[-8-]|[$$…]|[-4-]}
<Lit 0x2555e 2> {[«10»]|[«2""»]|[-8-]|[$$…]|[$$>_]}
<Call 0x25572 0x102d0> {[«10»]|[«2""»]|[-8-]|[$$…]|[$$>_]}
StringCat2(a, b : String) : String
<POP 25578-2557a StackAdj> Δ+8 {[«10»]|[«2""»]|[-8-]}
<Call 0x2557a 0x103e4> {[«10»]|[«2""»]|[-8-]}
AskConsoleString(prompt : String) : String
<POP 25580-25582 StackAdj> Δ+4 {[«10»]|[«2""»]|[-4-]}
<MI 25582 MOVE.L (A7)+,0x27884> Δ+4 {[«10»]|[«2""»]}
<POP 25588-2558a StackAdj> Δ+8 {[-4-]}
<POP 2558a-2558b StackAdj> Δ+4 {}
<Blob 0x2558b [4] 0x27884> Δ-4 {[«4»]}
<Call 0x25590 0x21f9e> {[«4»]}
<POP 25594-25596 StackAdj> Δ+2 {[-2-]}
<POP 25596-25597 StackAdj> Δ+2 {}
<Blob 0x25597 [2] @> Δ-2 {[«2""»]}
<Blob 0x2559a [2] @> Δ-2 {[«2""»]|[«2""»]}
<POP 2559e-255a0 StackAdj> Δ-8 {[«2""»]|[«2""»]|[-8-]}
<Lit 0x255a0 2> {[«2""»]|[«2""»]|[-4-]|[$$[ ]}
<POP 255b2-255b4 StackAdj> Δ-4 {[«2""»]|[«2""»]|[-4-]|[$$[ ]|[-4-]}
<POP 255b4-255b5 StackAdj> Δ+4 {[«2""»]|[«2""»]|[-4-]|[$$[ ]}
<Blob 0x255b5 [4] 0x27884> Δ-4 {[«2""»]|[«2""»]|[-4-]|[$$[ ]|[«4»]}
<POP 255ba-255bc StackAdj> Δ-4 {[«2""»]|[«2""»]|[-4-]|[$$[ ]|[«4»]|[-4-]}
<Lit 0x255bc 2> {[«2""»]|[«2""»]|[-4-]|[$$[ ]|[«4»]|[$$];]}
<Call 0x255d0 0x102d4> {[«2""»]|[«2""»]|[-4-]|[$$[ ]|[«4»]|[$$];]}
StringCat3(a, b, c : String) : String
<POP 255d6-255da StackAdj> Δ+12 {[«2""»]|[«2""»]|[-4-]}
<MI 255da MOVE.L (A7)+,0x2787e> Δ+4 {[«2""»]|[«2""»]}
<POP 255e0-255e2 StackAdj> Δ+4 {}
<POP 255e2-2560e Naked> Σ0 ↓ ←0x2552a
<MI 255e2 CLR.B 0x27882> {}
<MI 255e8 MOVE.L #0x1,0x27850> {}
<MI 255f2 CLR.L 0x27854> {}
<POP 255f8-255fa StackAdj> Δ-4 {[-4-]}
<Blob 0x255fa [4] 0x2787e> Δ-4 {[-4-]|[«4»]}
<Call 0x25600 0x102cc> {[-4-]|[«4»]}
StringDup(a : String) : String
<POP 25606-25608 StackAdj> Δ+4 {[-4-]}
<Call 0x25608 0x22b10> {[-4-]}
<POP 2560c-2560e StackAdj> Δ+4 {}
<POP 2560e-2561c Naked> Σ0 ↓ →0x25622 ←0x2561c
<MI 2560e MOVE.L 0x27850,D0> {}
<MI 25614 CMP.L 0x27854,D0> {}
<MI 2561a BGT 0x25622> {}
<POP 2561c-25622 Naked> Σ0 →0x2560e
<Call 0x2561c 0x2512c> {}
<MI 25620 BRA 0x2560e> {}
<POP 25622-25630 Naked> Σ0 ↓ ←0x2560e
<Const 0x25622 0x2787e.4> Δ-4 {[##161918]}
<Call 0x25628 0x102bc> {[##161918]}
FreeString(VAR a : String)
<POP 2562e-25630 StackAdj> Δ+4 {}
<POP 25630-25634 Naked> Σ0 →0x25522
<MI 25630 BRA 0x25522> {}
@ 25648
PROG_FAIL
<LVAR 0x008 1(r)>
<POP 25648-256b0 Body>
<POP 25648-2565e Prologue> Σ0 ↓
<POP 2565e-256a8 Naked> Σ0 ↓
<Blob 0x2565e [14] @> Δ-14 {[«14""»]}
<Const 0x2566a 0x3.2> Δ-2 {[«14""»]|[#3]}
<POP 2566e-25670 StackAdj> Δ-8 {[«14""»]|[#3]|[-8-]}
<Lit 0x25670 14> {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
<POP 25682-25684 StackAdj> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 25684 MOVE.B (A6+0x8),D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 25688 EXTB.W D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 2568a EXTW.L D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 2568c MOVE.L D0,-(A7)> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
<Call 0x2568e 0x102e4> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 25694-25696 StackAdj> Δ+4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<Call 0x25696 0x102d0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 2569c-2569e StackAdj> Δ+8 {[«14""»]|[#3]|[-4-]}
<Call 0x2569e 0x103b8> {[«14""»]|[#3]|[-4-]}
PopProgram(status : Byte; msg : String)
<POP 256a4-256a8 StackAdj> Δ+20 {}
<POP 256a8-256b0 Epilogue> Σ0
@ 25704
EXP_FAIL
<LVAR 0x00e 1(r)>
<LVAR 0x00a 4(r)>
<LVAR 0x008 1(r)>
<POP 25704-25840 Body>
<POP 25704-2571a Prologue> Σ0 ↓
<POP 2571a-25730 RegCacheLoad> Σ0 ↓
<POP 25730-25790 Naked> Σ0 ↓ →0x257d8
<Call 0x25730 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x25736 [18] @> Δ-18 {[«18""»]}
<POP 25742-25744 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x25744 18> {[«18""»]|[$$Experiment error :]}
<Call 0x25750 0x103e0> {[«18""»]|[$$Experiment error :]}
WriteConsoleStringCrLf(str : String)
<POP 25752-25753 StackAdj> Δ+22 ↓ {}
<Blob 0x25753 [14] @> Δ-14 {[«14""»]}
<POP 25762-25764 StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x25764 13> {[«14""»]|[-4-]|[$$Board :_]}
<POP 2576e-25770 StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<MI 25770 MOVE.B (A6+0xe),(A7)> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<Call 0x25774 0x1049c> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
BoardName(address : B) : String
<POP 2577a-2577c StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
<Call 0x2577c 0x102d0> {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 25782-25784 StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x25784 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 25786-25788 StackAdj> Δ+18 {}
<MI 25788 MOVEA.L (A6+0xa),A0> {}
<MI 2578c CMPA.W #0x01,A0> {}
<MI 2578e BEQ 0x257d8> {}
<POP 25790-257d8 Naked> Σ0 ↓
<Blob 0x25790 [14] @> Δ-14 {[«14""»]}
<Blob 0x257a0 [30] (A0+0xfc)> Δ-30 {[«14""»]|[«30»]}
<POP 257b0-257b2 StackAdj> Δ-8 {[«14""»]|[«30»]|[-8-]}
<Lit 0x257b2 13> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
<POP 257bc-257be StackAdj> Δ-4 {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
<Lit 0x257be> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
<Pointer.sp 0x257be 12> Δ-4
<Const 0x257c2 0x1.2> Δ-2
<Const 0x257c4 0x1e.2> Δ-2
<Call 0x257c6 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 257c8-257ca StackAdj> Δ+8
<Call 0x257ca 0x102d0> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
StringCat2(a, b : String) : String
<POP 257d0-257d2 StackAdj> Δ+8 {[«14""»]|[«30»]|[-4-]}
<Call 0x257d2 0x103e0> {[«14""»]|[«30»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 257d4-257d8 StackAdj> Δ+48 {}
<POP 257d8-25838 Naked> Σ0 ↓ ←0x25730
<Blob 0x257d8 [14] @> Δ-14 {[«14""»]}
<POP 257e8-257ea StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x257ea 13> {[«14""»]|[-4-]|[$$Status :_]}
<POP 257f4-257f6 StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<MI 257f6 MOVE.B (A6+0x8),(A7)> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<Call 0x257fa 0x104a2> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
ExpStatus2Text(status.B, &String)
<POP 25800-25802 StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
<Call 0x25802 0x102d0> {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 25808-2580a StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x2580a 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 2580c-2580d StackAdj> Δ+18 ↓ {}
<Blob 0x2580d [24] @> Δ-24 {[«24""»]}
<Const 0x2581c 0x2.2> Δ-2 {[«24""»]|[#2]}
<POP 25820-25822 StackAdj> Δ-4 {[«24""»]|[#2]|[-4-]}
<Lit 0x25822 23> {[«24""»]|[#2]|[$$Fatal experiment error.]}
<Call 0x25830 0x103b8> {[«24""»]|[#2]|[$$Fatal experiment error.]}
PopProgram(status : Byte; msg : String)
<POP 25836-25838 StackAdj> Δ+30 {}
<POP 25838-25840 Epilogue> Σ0
00020000 ; -------------------------------------------------------------------------------------- 00020000 ; R1000.Disassembly modules: 00020000 ; import all 00020000 ; import kind.program 00020000 ; import ident.bff4bad1eafbc2e8 00020000 ; -------------------------------------------------------------------------------------- 00020000 stack.top: 00020000 00 04 00 00 | | .CODE 0x40000 ; STACK.END 00020004 00 02 54 3e | T> | .CODE START 00020008 00 01 02 88 | | .CODE FSCALL_10288 0002000c heap.top: 0002000c 00 02 78 9c | x | .PTR 0x2789c 00020010 code.end: 00020010 00 02 58 40 | X@ | .PTR 0x25840 00020014 00 00 00 00 | | .CONST 0x00000000 00020018 programfailurehandler: 00020018 00 02 56 48 | VH | .CODE PROG_FAIL 0002001c experimentfailurehandler: 0002001c 00 02 57 04 | W | .CODE EXP_FAIL 00020020 00 00 00 00 | | .CONST 0x00000000 00020024 exp_init_done: 00020024 00 | | .CONST 0x00 00020025 00 | | .CONST 0x00 00020026 00 00 | | .CONST 0x0000 00020028 00 00 | | .CONST 0x0000 0002002a 00 00 | | .XXX[0x2] 0002002c 00 00 | | .CONST 0x0000 0002002e 00 00 | | .CONST 0x0000 00020030 00 00 | | .CONST 0x0000 00020032 00 00 00 00 00 00 | | .XXX[0x6] 00020038 00 00 00 00 00 00 00 00 | | .BLANK 00[0xb0] 000200e8 00 00 00 00 | | .XXX[0x4] 000200ec 00 00 00 00 | | .PTR 0x0 000200f0 is_open_ERROR_LOG: 000200f0 00 | | .CONST 0x0 000200f1 write_error_ERROR_LOG: 000200f1 00 | | .CONST 0x0 000200f2 00 00 00 00 | | .CONST 0x00000000 000200f6 00 00 00 00 | | .CONST 0x00000000 000200fa 00 | | .CONST 0x00 000200fb 00 | | .CONST 0x00 000200fc file_ERROR_LOG: 000200fc 00 00 00 00 | | .CONST 0x00000000 00020100 00 00 00 00 | | .CONST 0x00000000 00020104 00 00 | | .CONST 0x0000 00020106 00 00 | | .CONST 0x0000 00020108 somekindoffsflag: 00020108 00 | | .CONST 0x00 00020109 00 | | .CONST 0x00 0002010a 40 28 23 29 43 4c |@(#)CL | .XXX[0x6] 00020110 49 2c 31 2e 31 2c 39 32 |I,1.1,92| .XXX[0x18] 00020118 2f 30 37 2f 30 39 2c 31 |/07/09,1| 00020120 32 3a 30 30 3a 30 30 5c |2:00:00\| 00020128 43 4f 50 59 20 20 20 20 |COPY | .TXT 'COPY ' 00020132 44 20 |D | .TXT 'D ' 00020134 56 20 |V | .TXT 'V ' 00020136 43 20 |C | .TXT 'C ' 00020138 44 65 6c 65 74 69 6e 67 |Deleting| .TXT 'Deleting -> ' 00020144 52 45 4e 41 4d 45 20 20 |RENAME | .TXT 'RENAME ' 0002014e 44 20 |D | .TXT 'D ' 00020150 41 6c 72 65 61 64 79 20 |Already | .TXT 'Already in REMOTE mode' 00020166 46 49 |FI | .TXT 'FI' 00020168 58 50 |XP | .TXT 'XP' 0002016a 41 44 |AD | .TXT 'AD' 0002016c 46 49 58 4d |FIXM | .TXT 'FIXM' 00020170 4f 44 45 4d |ODEM | .TXT 'ODEM' 00020174 41 6c 72 65 61 64 79 20 |Already | .TXT 'Already in LOCAL mode ' 0002018a 54 59 50 45 20 20 20 20 |TYPE | .TXT 'TYPE ' 00020194 56 20 |V | .TXT 'V ' 00020196 43 52 45 41 54 45 20 20 |CREATE | .TXT 'CREATE ' 000201a0 53 49 5a 45 |SIZE | .TXT 'SIZE' 000201a4 2f 53 49 5a 45 3d 20 72 |/SIZE= r| .TXT '/SIZE= requires decimal argument' 000201c4 43 4f 4e 54 49 47 55 4f |CONTIGUO| .TXT 'CONTIGUOUS' 000201ce 44 20 |D | .TXT 'D ' 000201d0 49 20 |I | .TXT 'I ' 000201d2 29 20 |) | .TXT ') ' 000201d4 42 61 64 20 66 6f 72 6d |Bad form| .TXT 'Bad format. Try HH:MM:SS DD-MMM-YY ' 000201f8 46 41 4c 53 45 20 54 52 |FALSE TR| .XXX[0x8] 00020200 55 45 5f 20 |UE_ | .XXX[0x4] 00020204 20 20 20 20 20 20 20 20 | | .TXT ' PERMANENT =>_ ' 0002021c 2c 20 45 58 |, EX | .TXT ', EX' 00020220 45 43 55 54 |ECUT | .TXT 'ECUT' 00020224 41 42 4c 45 |ABLE | .TXT 'ABLE' 00020228 20 3d 3e 5f | =>_ | .TXT ' =>_' 0002022c 2c 20 4b 45 |, KE | .TXT ', KE' 00020230 52 4e 45 4c |RNEL | .TXT 'RNEL' 00020234 20 3d 3e 5f | =>_ | .TXT ' =>_' 00020238 20 20 20 20 20 20 20 20 | | .TXT ' File pages_ ' 0002024e 20 2e 2e 5f | .._ | .TXT ' .._' 00020252 20 61 72 65 20 61 74 20 | are at | .TXT ' are at disk block_ ' 00020266 46 55 4c 4c |FULL | .TXT 'FULL' 0002026a 54 6f 74 61 6c 20 6f 66 |Total of| .TXT 'Total of_ ' 00020274 20 50 61 67 65 73 20 69 | Pages i| .TXT ' Pages in_' 0002027e 20 46 69 6c 65 73 2e 20 | Files. | .TXT ' Files. ' 00020286 42 61 64 20 63 6f 6d 6d |Bad comm| .TXT 'Bad command format, try "PRINTER ON <line-number>" or "PRINTER OFF" ' 000202ca 43 6f 6d 6d 75 6e 69 63 |Communic| .TXT 'Communications line does not exist' 000202ec 4f 4e |ON | .TXT 'ON' 000202ee 4f 46 |OF | .TXT 'OF' 000202f0 46 20 |F | .XXX[0x2] 000202f2 54 49 4d 45 20 20 20 20 |TIME | .TXT 'TIME ' 000202fc 44 49 52 45 43 54 4f 52 |DIRECTOR| .TXT 'DIRECTORY ' 00020306 43 4f 50 59 20 20 20 20 |COPY | .TXT 'COPY ' 00020310 44 45 4c 45 54 45 20 20 |DELETE | .TXT 'DELETE ' 0002031a 54 59 50 45 20 20 20 20 |TYPE | .TXT 'TYPE ' 00020324 43 52 45 41 54 45 20 20 |CREATE | .TXT 'CREATE ' 0002032e 52 45 4e 41 4d 45 20 20 |RENAME | .TXT 'RENAME ' 00020338 52 45 4d 4f 54 45 20 20 |REMOTE | .TXT 'REMOTE ' 00020342 4c 4f 43 41 4c 20 20 20 |LOCAL | .TXT 'LOCAL ' 0002034c 50 52 49 4e 54 45 52 20 |PRINTER | .TXT 'PRINTER ' 00020356 43 4c |CL | .XXX[0x2] 00020358 49 20 20 20 20 20 20 20 |I | .XXX[0x10] 00020360 46 41 4c 53 45 54 52 55 |FALSETRU| 00020368 45 5f |E_ | .XXX[0x2] 0002036a 54 49 4d 45 20 20 20 20 |TIME | .TXT 'TIME ' 00020374 44 49 52 45 43 54 4f 52 |DIRECTOR| .TXT 'DIRECTORY ' 0002037e 43 4f 50 59 20 20 20 20 |COPY | .TXT 'COPY ' 00020388 44 45 4c 45 54 45 20 20 |DELETE | .TXT 'DELETE ' 00020392 54 59 50 45 20 20 20 20 |TYPE | .TXT 'TYPE ' 0002039c 43 52 45 41 54 45 20 20 |CREATE | .TXT 'CREATE ' 000203a6 52 45 4e 41 4d 45 20 20 |RENAME | .TXT 'RENAME ' 000203b0 52 45 4d 4f 54 45 20 20 |REMOTE | .TXT 'REMOTE ' 000203ba 4c 4f 43 41 4c 20 20 20 |LOCAL | .TXT 'LOCAL ' 000203c4 50 52 49 4e 54 45 52 20 |PRINTER | .TXT 'PRINTER ' 000203ce ; -------------------------------------------------------------------------------------- 000203ce ; OMSI PASCAL Function 000203ce ; <LVAR 0x010 1(w)> 000203ce ; <LVAR 0x00c 4(r)> 000203ce ; <LVAR 0x008 @ 4(r)> 000203ce ; <LVAR -0x006 @ 4(r)> 000203ce ; <LVAR -0x008 @ 1(r)> 000203ce ; -------------------------------------------------------------------------------------- 000203ce 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 000203d2 bf d5 | | CMPA.L (A5),A7 000203d4 62 06 |b | BHI 0x203dc 000203d6 44 fc 00 02 |D | MOVE.W #0x2,CCR 000203da 4e 76 |Nv | TRAPV 000203dc de fc 00 20 | | ADDA.W #0x20,A7 000203e0 48 e7 00 c0 |H | MOVEM.L A1+A0,-(A7) 000203e4 43 ee ff fa |C | LEA.L (A6-0x6),A1 000203e8 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 000203ec 48 78 00 00 |Hx | PEA.L 0x0 000203f0 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000203f4 48 51 |HQ | PEA.L (A1) 000203f6 48 6e ff f8 |Hn | PEA.L (A6-0x8) 000203fa 4e b9 00 02 4f a6 |N O | JSR 0x24fa6 00020400 de fc 00 14 | | ADDA.W #0x14,A7 00020404 48 6e 00 08 |Hn | PEA.L (A6+0x8) 00020408 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 0002040e 58 4f |XO | ADDQ.L #0x4,A7 00020410 20 51 | Q | MOVEA.L (A1),A0 00020412 b0 fc 00 01 | | CMPA.W #0x1,A0 00020416 67 0a |g | BEQ 0x20422 00020418 48 51 |HQ | PEA.L (A1) 0002041a 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00020420 58 4f |XO | ADDQ.L #0x4,A7 00020422 1d 6e ff f8 00 10 | n | MOVE.B (A6-0x8),(A6+0x10) 00020428 4c df 03 00 |L | MOVEM.L (A7)+,A0+A1 0002042c 4e 5e |N^ | UNLK A6 0002042e 4e 75 |Nu | RTS 00020430 ; -------------------------------------------------------------------------------------- 00020430 ; OMSI PASCAL Function 00020430 ; <LVAR 0x008 4(r)> 00020430 ; <LVAR -0x004 @ 1(r)> 00020430 ; <LVAR -0x008 @> 00020430 ; -------------------------------------------------------------------------------------- 00020430 4e 56 ff dc |NV | LINK.W A6,#0xffdc 00020434 bf d5 | | CMPA.L (A5),A7 00020436 62 06 |b | BHI 0x2043e 00020438 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002043c 4e 76 |Nv | TRAPV 0002043e de fc 00 1c | | ADDA.W #0x1c,A7 00020442 48 e7 00 80 |H | MOVEM.L A0,-(A7) 00020446 41 ee ff fc |A | LEA.L (A6-0x4),A0 0002044a 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 0002044e 42 27 |B' | CLR.B -(A7) 00020450 42 27 |B' | CLR.B -(A7) 00020452 48 78 00 00 |Hx | PEA.L 0x0 00020456 48 50 |HP | PEA.L (A0) 00020458 48 6e ff f8 |Hn | PEA.L (A6-0x8) 0002045c 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File) 00020462 de fc 00 14 | | ADDA.W #0x14,A7 00020466 4a 10 |J | TST.B (A0) 00020468 66 1c |f | BNE 0x20486 0002046a 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 0002046e 1f 3c 00 01 | < | MOVE.B #0x01,-(A7) 00020472 48 78 00 01 |Hx | PEA.L 0x1 00020476 48 50 |HP | PEA.L (A0) 00020478 48 6e ff f8 |Hn | PEA.L (A6-0x8) 0002047c 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File) 00020482 de fc 00 10 | | ADDA.W #0x10,A7 00020486 4c df 01 00 |L | MOVEM.L (A7)+,A0 0002048a 4e 5e |N^ | UNLK A6 0002048c 4e 75 |Nu | RTS 0002048e ; -------------------------------------------------------------------------------------- 0002048e ; OMSI PASCAL Function 0002048e ; <LVAR 0x008 4(r)> 0002048e ; <LVAR -0x004 @ 1(r)> 0002048e ; <LVAR -0x404 @> 0002048e ; <LVAR -0x410 @ 4(r)> 0002048e ; <LVAR -0x414 @ 4(r)> 0002048e ; <LVAR -0x418 @ 4(rw)> 0002048e ; <LVAR -0x41c @ 4(rw)> 0002048e ; -------------------------------------------------------------------------------------- 0002048e CMD_COPY(): 0002048e 4e 56 fb 8c |NV | LINK.W A6,#0xfb8c 00020492 bf d5 | | CMPA.L (A5),A7 00020494 62 06 |b | BHI 0x2049c 00020496 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002049a 4e 76 |Nv | TRAPV 0002049c de fc 00 58 | X | ADDA.W #0x58,A7 000204a0 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 000204a4 45 ee ff fc |E | LEA.L (A6-0x4),A2 000204a8 47 ee fb ec |G | LEA.L (A6-0x414),A3 000204ac 49 ee 00 08 |I | LEA.L (A6+0x8),A4 000204b0 72 01 |r | MOVEQ.L #0x01,D1 000204b2 74 14 |t | MOVEQ.L #0x14,D2 000204b4 76 02 |v | MOVEQ.L #0x02,D3 000204b6 78 10 |x | MOVEQ.L #0x10,D4 000204b8 41 ee fb fc |A | LEA.L (A6-0x404),A0 000204bc 2f 08 |/ | MOVE.L A0,-(A7) 000204be 2a 1f |* | MOVE.L (A7)+,D5 000204c0 41 fa fc 70 |A p | LEA.L 0x20132,A0 000204c4 70 04 |p | MOVEQ.L #0x04,D0 000204c6 3f 20 |? | MOVE.W -(A0),-(A7) 000204c8 51 c8 ff fc |Q | DBF D0,0x204c6 000204cc 2f 14 |/ | MOVE.L (A4),-(A7) 000204ce 48 78 00 02 |Hx | PEA.L 0x2 000204d2 4e b9 00 02 21 88 |N ! | JSR 0x22188 000204d8 de fc 00 0a | | ADDA.W #0xa,A7 000204dc 2e 94 |. | MOVE.L (A4),(A7) 000204de 48 78 00 01 |Hx | PEA.L 0x1 000204e2 4e b9 00 02 2a 6e |N *n | JSR 0x22a6e 000204e8 50 4f |PO | ADDQ.L #0x8,A7 000204ea 2d 57 fb e4 |-W | MOVE.L (A7),(A6-0x41c) 000204ee 2f 14 |/ | MOVE.L (A4),-(A7) 000204f0 48 78 00 02 |Hx | PEA.L 0x2 000204f4 4e b9 00 02 2a 6e |N *n | JSR 0x22a6e 000204fa 50 4f |PO | ADDQ.L #0x8,A7 000204fc 2d 5f fb e8 |-_ | MOVE.L (A7)+,(A6-0x418) 00020500 3f 3a fc 30 |?: 0 | MOVE.W 0x20132,-(A7) 00020504 55 4f |UO | SUBQ.L #0x2,A7 00020506 2f 14 |/ | MOVE.L (A4),-(A7) 00020508 59 4f |YO | SUBQ.L #0x4,A7 0002050a 48 6f 00 0a |Ho | PEA.L (A7+0xa) 0002050e 3f 01 |? | MOVE.W D1,-(A7) 00020510 3f 03 |? | MOVE.W D3,-(A7) 00020512 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020518 50 4f |PO | ADDQ.L #0x8,A7 0002051a 4e ba fe b2 |N | JSR 0x203ce 0002051e 50 4f |PO | ADDQ.L #0x8,A7 00020520 4a 1f |J | TST.B (A7)+ 00020522 67 04 |g | BEQ 0x20528 00020524 7c 01 || | MOVEQ.L #0x01,D6 00020526 60 02 |` | BRA 0x2052a 00020528 7c 02 || | MOVEQ.L #0x02,D6 0002052a 54 4f |TO | ADDQ.L #0x2,A7 0002052c 2f 2e fb e4 |/. | MOVE.L (A6-0x41c),-(A7) 00020530 42 27 |B' | CLR.B -(A7) 00020532 1f 01 | | MOVE.B D1,-(A7) 00020534 48 78 00 00 |Hx | PEA.L 0x0 00020538 48 52 |HR | PEA.L (A2) 0002053a 48 53 |HS | PEA.L (A3) 0002053c 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File) 00020542 de c2 | | ADDA.W D2,A7 00020544 4a 12 |J | TST.B (A2) 00020546 67 04 |g | BEQ 0x2054c 00020548 60 00 01 0a |` | BRA 0x20654 0002054c 2f 2e fb e8 |/. | MOVE.L (A6-0x418),-(A7) 00020550 10 06 | | MOVE.B D6,D0 00020552 48 80 |H | EXTB.W D0 00020554 41 83 |A | CHK.W D3,D0 00020556 1f 00 | | MOVE.B D0,-(A7) 00020558 1f 01 | | MOVE.B D1,-(A7) 0002055a 20 53 | S | MOVEA.L (A3),A0 0002055c 30 28 00 20 |0( | MOVE.W (A0+0x20),D0 00020560 48 c0 |H | EXTW.L D0 00020562 2f 00 |/ | MOVE.L D0,-(A7) 00020564 48 52 |HR | PEA.L (A2) 00020566 48 6e fb f0 |Hn | PEA.L (A6-0x410) 0002056a 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File) 00020570 de c2 | | ADDA.W D2,A7 00020572 4a 12 |J | TST.B (A2) 00020574 67 04 |g | BEQ 0x2057a 00020576 60 00 00 c8 |` | BRA 0x20640 0002057a 20 6e fb f0 | n | MOVEA.L (A6-0x410),A0 0002057e 22 53 |"S | MOVEA.L (A3),A1 00020580 11 69 00 3a 00 3a | i : : | MOVE.B (A1+0x3a),(A0+0x3a) 00020586 11 69 00 3b 00 3b | i ; ; | MOVE.B (A1+0x3b),(A0+0x3b) 0002058c 11 69 00 3c 00 3c | i < < | MOVE.B (A1+0x3c),(A0+0x3c) 00020592 11 69 00 3d 00 3d | i = = | MOVE.B (A1+0x3d),(A0+0x3d) 00020598 10 29 00 3f | ) ? | MOVE.B (A1+0x3f),D0 0002059c 02 28 00 fd 00 3f | ( ? | ANDI.B #0xfd,(A0+0x3f) 000205a2 c0 03 | | AND.B D3,D0 000205a4 81 28 00 3f | ( ? | OR.B D0,(A0+0x3f) 000205a8 10 29 00 3f | ) ? | MOVE.B (A1+0x3f),D0 000205ac 02 28 00 fb 00 3f | ( ? | ANDI.B #0xfb,(A0+0x3f) 000205b2 02 00 00 04 | | ANDI.B #0x04,D0 000205b6 81 28 00 3f | ( ? | OR.B D0,(A0+0x3f) 000205ba 11 41 00 4c | A L | MOVE.B D1,(A0+0x4c) 000205be 30 28 00 20 |0( | MOVE.W (A0+0x20),D0 000205c2 53 40 |S@ | SUBQ.W #0x1,D0 000205c4 48 c0 |H | EXTW.L D0 000205c6 2f 00 |/ | MOVE.L D0,-(A7) 000205c8 7e 00 |~ | MOVEQ.L #0x00,D7 000205ca be 97 | | CMP.L (A7),D7 000205cc 6e 5a |nZ | BGT 0x20628 000205ce 2f 13 |/ | MOVE.L (A3),-(A7) 000205d0 0c 87 00 00 40 00 | @ | CMPI.L #0x00004000,D7 000205d6 63 02 |c | BLS 0x205da 000205d8 4e 4f |NO | TRAP #15 000205da 3f 07 |? | MOVE.W D7,-(A7) 000205dc 42 67 |Bg | CLR.W -(A7) 000205de 3f 3c 02 00 |?< | MOVE.W #0x200,-(A7) 000205e2 1f 01 | | MOVE.B D1,-(A7) 000205e4 2f 05 |/ | MOVE.L D5,-(A7) 000205e6 48 52 |HR | PEA.L (A2) 000205e8 4e b9 00 01 03 84 |N | JSR ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L) 000205ee de c2 | | ADDA.W D2,A7 000205f0 4a 12 |J | TST.B (A2) 000205f2 67 04 |g | BEQ 0x205f8 000205f4 58 4f |XO | ADDQ.L #0x4,A7 000205f6 60 32 |`2 | BRA 0x2062a 000205f8 2f 2e fb f0 |/. | MOVE.L (A6-0x410),-(A7) 000205fc 0c 87 00 00 40 00 | @ | CMPI.L #0x00004000,D7 00020602 63 02 |c | BLS 0x20606 00020604 4e 4f |NO | TRAP #15 00020606 3f 07 |? | MOVE.W D7,-(A7) 00020608 42 67 |Bg | CLR.W -(A7) 0002060a 3f 3c 02 00 |?< | MOVE.W #0x200,-(A7) 0002060e 1f 01 | | MOVE.B D1,-(A7) 00020610 2f 05 |/ | MOVE.L D5,-(A7) 00020612 48 52 |HR | PEA.L (A2) 00020614 4e b9 00 01 03 88 |N | JSR WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L) 0002061a de c2 | | ADDA.W D2,A7 0002061c 4a 12 |J | TST.B (A2) 0002061e 67 04 |g | BEQ 0x20624 00020620 58 4f |XO | ADDQ.L #0x4,A7 00020622 60 06 |` | BRA 0x2062a 00020624 52 87 |R | ADDQ.L #0x1,D7 00020626 68 a2 |h | BVC 0x205ca 00020628 58 4f |XO | ADDQ.L #0x4,A7 0002062a 42 27 |B' | CLR.B -(A7) 0002062c 1f 01 | | MOVE.B D1,-(A7) 0002062e 48 78 00 01 |Hx | PEA.L 0x1 00020632 48 52 |HR | PEA.L (A2) 00020634 48 6e fb f0 |Hn | PEA.L (A6-0x410) 00020638 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File) 0002063e de c4 | | ADDA.W D4,A7 00020640 42 27 |B' | CLR.B -(A7) 00020642 1f 01 | | MOVE.B D1,-(A7) 00020644 48 78 00 01 |Hx | PEA.L 0x1 00020648 48 52 |HR | PEA.L (A2) 0002064a 48 53 |HS | PEA.L (A3) 0002064c 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File) 00020652 de c4 | | ADDA.W D4,A7 00020654 48 6e fb e4 |Hn | PEA.L (A6-0x41c) 00020658 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 0002065e 58 4f |XO | ADDQ.L #0x4,A7 00020660 48 6e fb e8 |Hn | PEA.L (A6-0x418) 00020664 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 0002066a 58 4f |XO | ADDQ.L #0x4,A7 0002066c 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00020670 4e 5e |N^ | UNLK A6 00020672 4e 75 |Nu | RTS 00020674 ; -------------------------------------------------------------------------------------- 00020674 ; OMSI PASCAL Function 00020674 ; <LVAR 0x008 4(r)> 00020674 ; <LVAR -0x00a 1(rw)> 00020674 ; <LVAR -0x00c @ 1(r)> 00020674 ; <LVAR -0x010 @ 4(r)> 00020674 ; -------------------------------------------------------------------------------------- 00020674 CMD_DELETE(): 00020674 4e 56 ff 6a |NV j | LINK.W A6,#0xff6a 00020678 bf d5 | | CMPA.L (A5),A7 0002067a 62 06 |b | BHI 0x20682 0002067c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020680 4e 76 |Nv | TRAPV 00020682 de fc 00 82 | | ADDA.W #0x82,A7 00020686 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 0002068a 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 00020690 47 ee 00 08 |G | LEA.L (A6+0x8),A3 00020694 72 01 |r | MOVEQ.L #0x01,D1 00020696 74 1e |t | MOVEQ.L #0x1e,D2 00020698 76 02 |v | MOVEQ.L #0x02,D3 0002069a 78 0a |x | MOVEQ.L #0x0a,D4 0002069c 3f 3a fa 96 |?: | MOVE.W 0x20134,-(A7) 000206a0 55 4f |UO | SUBQ.L #0x2,A7 000206a2 2f 13 |/ | MOVE.L (A3),-(A7) 000206a4 59 4f |YO | SUBQ.L #0x4,A7 000206a6 48 6f 00 0a |Ho | PEA.L (A7+0xa) 000206aa 3f 01 |? | MOVE.W D1,-(A7) 000206ac 3f 03 |? | MOVE.W D3,-(A7) 000206ae 4e 92 |N | JSR (A2) 000206b0 50 4f |PO | ADDQ.L #0x8,A7 000206b2 4e ba fd 1a |N | JSR 0x203ce 000206b6 50 4f |PO | ADDQ.L #0x8,A7 000206b8 10 1f | | MOVE.B (A7)+,D0 000206ba 48 80 |H | EXTB.W D0 000206bc 41 81 |A | CHK.W D1,D0 000206be 54 4f |TO | ADDQ.L #0x2,A7 000206c0 1a 00 | | MOVE.B D0,D5 000206c2 3f 3a fa 72 |?: r | MOVE.W 0x20136,-(A7) 000206c6 55 4f |UO | SUBQ.L #0x2,A7 000206c8 2f 13 |/ | MOVE.L (A3),-(A7) 000206ca 59 4f |YO | SUBQ.L #0x4,A7 000206cc 48 6f 00 0a |Ho | PEA.L (A7+0xa) 000206d0 3f 01 |? | MOVE.W D1,-(A7) 000206d2 3f 03 |? | MOVE.W D3,-(A7) 000206d4 4e 92 |N | JSR (A2) 000206d6 50 4f |PO | ADDQ.L #0x8,A7 000206d8 4e ba fc f4 |N | JSR 0x203ce 000206dc 50 4f |PO | ADDQ.L #0x8,A7 000206de 10 1f | | MOVE.B (A7)+,D0 000206e0 48 80 |H | EXTB.W D0 000206e2 41 81 |A | CHK.W D1,D0 000206e4 54 4f |TO | ADDQ.L #0x2,A7 000206e6 1d 40 ff f6 | @ | MOVE.B D0,(A6-0xa) 000206ea 59 4f |YO | SUBQ.L #0x4,A7 000206ec 2f 13 |/ | MOVE.L (A3),-(A7) 000206ee 4e b9 00 02 21 52 |N !R | JSR 0x22152 000206f4 58 4f |XO | ADDQ.L #0x4,A7 000206f6 7c 01 || | MOVEQ.L #0x01,D6 000206f8 bc 97 | | CMP.L (A7),D6 000206fa 6e 00 01 02 |n | BGT 0x207fe 000206fe 59 4f |YO | SUBQ.L #0x4,A7 00020700 2f 13 |/ | MOVE.L (A3),-(A7) 00020702 2f 06 |/ | MOVE.L D6,-(A7) 00020704 4e b9 00 02 2a 6e |N *n | JSR 0x22a6e 0002070a 50 4f |PO | ADDQ.L #0x8,A7 0002070c 28 5f |(_ | MOVEA.L (A7)+,A4 0002070e 1f 01 | | MOVE.B D1,-(A7) 00020710 2f 0c |/ | MOVE.L A4,-(A7) 00020712 48 6e ff f0 |Hn | PEA.L (A6-0x10) 00020716 4e b9 00 01 04 58 |N X | JSR DirFirst(MOD c : Bool; a : String; VAR b : File) 0002071c de c4 | | ADDA.W D4,A7 0002071e 20 6e ff f0 | n | MOVEA.L (A6-0x10),A0 00020722 2f 08 |/ | MOVE.L A0,-(A7) 00020724 b0 c1 | | CMPA.W D1,A0 00020726 67 00 00 ce |g | BEQ 0x207f6 0002072a 4a 2e ff f6 |J. | TST.B (A6-0xa) 0002072e 66 04 |f | BNE 0x20734 00020730 7e 01 |~ | MOVEQ.L #0x01,D7 00020732 60 2e |`. | BRA 0x20762 00020734 9e c2 | | SUBA.W D2,A7 00020736 22 4f |"O | MOVEA.L A7,A1 00020738 70 1d |p | MOVEQ.L #0x1d,D0 0002073a 12 d8 | | MOVE.B (A0)+,(A1)+ 0002073c 51 c8 ff fc |Q | DBF D0,0x2073a 00020740 5d 4f |]O | SUBQ.L #0x6,A7 00020742 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00020746 3f 01 |? | MOVE.W D1,-(A7) 00020748 3f 02 |? | MOVE.W D2,-(A7) 0002074a 4e 92 |N | JSR (A2) 0002074c 5c 4f |\O | ADDQ.L #0x6,A7 0002074e 42 17 |B | CLR.B (A7) 00020750 4e b9 00 01 03 f0 |N | JSR AskOnConsoleYesNo(prompt : String; default : Bool) : Bool 00020756 5c 4f |\O | ADDQ.L #0x6,A7 00020758 10 1f | | MOVE.B (A7)+,D0 0002075a 48 80 |H | EXTB.W D0 0002075c 41 81 |A | CHK.W D1,D0 0002075e de c2 | | ADDA.W D2,A7 00020760 1e 00 | | MOVE.B D0,D7 00020762 4a 07 |J | TST.B D7 00020764 67 78 |gx | BEQ 0x207de 00020766 4a 05 |J | TST.B D5 00020768 67 50 |gP | BEQ 0x207ba 0002076a 9e fc 00 0c | | SUBA.W #0xc,A7 0002076e 20 4f | O | MOVEA.L A7,A0 00020770 43 fa f9 c6 |C | LEA.L 0x20138,A1 00020774 70 0a |p | MOVEQ.L #0x0a,D0 00020776 10 d9 | | MOVE.B (A1)+,(A0)+ 00020778 51 c8 ff fc |Q | DBF D0,0x20776 0002077c 20 6f 00 0c | o | MOVEA.L (A7+0xc),A0 00020780 9e c2 | | SUBA.W D2,A7 00020782 22 4f |"O | MOVEA.L A7,A1 00020784 70 1d |p | MOVEQ.L #0x1d,D0 00020786 12 d8 | | MOVE.B (A0)+,(A1)+ 00020788 51 c8 ff fc |Q | DBF D0,0x20786 0002078c 51 4f |QO | SUBQ.L #0x8,A7 0002078e 48 6f 00 26 |Ho & | PEA.L (A7+0x26) 00020792 3f 01 |? | MOVE.W D1,-(A7) 00020794 3f 3c 00 0b |?< | MOVE.W #0xb,-(A7) 00020798 4e 92 |N | JSR (A2) 0002079a 58 4f |XO | ADDQ.L #0x4,A7 0002079c 48 6f 00 0c |Ho | PEA.L (A7+0xc) 000207a0 3f 01 |? | MOVE.W D1,-(A7) 000207a2 3f 02 |? | MOVE.W D2,-(A7) 000207a4 4e 92 |N | JSR (A2) 000207a6 50 4f |PO | ADDQ.L #0x8,A7 000207a8 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000207ae 50 4f |PO | ADDQ.L #0x8,A7 000207b0 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000207b6 de fc 00 2e | . | ADDA.W #0x2e,A7 000207ba 1f 03 | | MOVE.B D3,-(A7) 000207bc 1f 01 | | MOVE.B D1,-(A7) 000207be 48 78 00 01 |Hx | PEA.L 0x1 000207c2 48 6e ff f4 |Hn | PEA.L (A6-0xc) 000207c6 48 6e ff f0 |Hn | PEA.L (A6-0x10) 000207ca 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File) 000207d0 de fc 00 10 | | ADDA.W #0x10,A7 000207d4 7e 00 |~ | MOVEQ.L #0x00,D7 000207d6 4a 2e ff f4 |J. | TST.B (A6-0xc) 000207da 66 02 |f | BNE 0x207de 000207dc 52 07 |R | ADDQ.B #0x1,D7 000207de 10 07 | | MOVE.B D7,D0 000207e0 48 80 |H | EXTB.W D0 000207e2 41 81 |A | CHK.W D1,D0 000207e4 1f 00 | | MOVE.B D0,-(A7) 000207e6 48 6e ff f0 |Hn | PEA.L (A6-0x10) 000207ea 4e b9 00 01 04 5c |N \ | JSR DirNext(MOD a : Bool; VAR b : File) 000207f0 de c4 | | ADDA.W D4,A7 000207f2 60 00 ff 2a |` * | BRA 0x2071e 000207f6 58 4f |XO | ADDQ.L #0x4,A7 000207f8 52 86 |R | ADDQ.L #0x1,D6 000207fa 68 00 fe fc |h | BVC 0x206f8 000207fe 58 4f |XO | ADDQ.L #0x4,A7 00020800 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00020804 4e 5e |N^ | UNLK A6 00020806 4e 75 |Nu | RTS 00020808 ; -------------------------------------------------------------------------------------- 00020808 ; OMSI PASCAL Function 00020808 ; <LVAR 0x008 4(r)> 00020808 ; <LVAR -0x006 @ 4(rw)> 00020808 ; <LVAR -0x00a @ 4(rw)> 00020808 ; <LVAR -0x00c @ 1(r)> 00020808 ; <LVAR -0x010 @> 00020808 ; -------------------------------------------------------------------------------------- 00020808 CMD_RENAME(): 00020808 4e 56 ff bc |NV | LINK.W A6,#0xffbc 0002080c bf d5 | | CMPA.L (A5),A7 0002080e 62 06 |b | BHI 0x20816 00020810 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020814 4e 76 |Nv | TRAPV 00020816 de fc 00 34 | 4 | ADDA.W #0x34,A7 0002081a 48 e7 c0 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D1+D0,-(A7) 0002081e 43 ee 00 08 |C | LEA.L (A6+0x8),A1 00020822 45 ee ff fa |E | LEA.L (A6-0x6),A2 00020826 47 ee ff f6 |G | LEA.L (A6-0xa),A3 0002082a 49 ee ff f4 |I | LEA.L (A6-0xc),A4 0002082e 72 01 |r | MOVEQ.L #0x01,D1 00020830 41 fa f9 1c |A | LEA.L 0x2014e,A0 00020834 70 04 |p | MOVEQ.L #0x04,D0 00020836 3f 20 |? | MOVE.W -(A0),-(A7) 00020838 51 c8 ff fc |Q | DBF D0,0x20836 0002083c 2f 11 |/ | MOVE.L (A1),-(A7) 0002083e 48 78 00 02 |Hx | PEA.L 0x2 00020842 4e b9 00 02 21 88 |N ! | JSR 0x22188 00020848 de fc 00 0a | | ADDA.W #0xa,A7 0002084c 2e 91 |. | MOVE.L (A1),(A7) 0002084e 48 78 00 01 |Hx | PEA.L 0x1 00020852 4e b9 00 02 2a 6e |N *n | JSR 0x22a6e 00020858 50 4f |PO | ADDQ.L #0x8,A7 0002085a 26 97 |& | MOVE.L (A7),(A3) 0002085c 2f 11 |/ | MOVE.L (A1),-(A7) 0002085e 48 78 00 02 |Hx | PEA.L 0x2 00020862 4e b9 00 02 2a 6e |N *n | JSR 0x22a6e 00020868 50 4f |PO | ADDQ.L #0x8,A7 0002086a 24 9f |$ | MOVE.L (A7)+,(A2) 0002086c 3f 3a f8 e0 |?: | MOVE.W 0x2014e,-(A7) 00020870 55 4f |UO | SUBQ.L #0x2,A7 00020872 2f 11 |/ | MOVE.L (A1),-(A7) 00020874 59 4f |YO | SUBQ.L #0x4,A7 00020876 48 6f 00 0a |Ho | PEA.L (A7+0xa) 0002087a 3f 01 |? | MOVE.W D1,-(A7) 0002087c 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7) 00020880 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020886 50 4f |PO | ADDQ.L #0x8,A7 00020888 4e ba fb 44 |N D | JSR 0x203ce 0002088c 50 4f |PO | ADDQ.L #0x8,A7 0002088e 4a 1f |J | TST.B (A7)+ 00020890 67 08 |g | BEQ 0x2089a 00020892 2f 12 |/ | MOVE.L (A2),-(A7) 00020894 4e ba fb 9a |N | JSR 0x20430 00020898 58 4f |XO | ADDQ.L #0x4,A7 0002089a 54 4f |TO | ADDQ.L #0x2,A7 0002089c 2f 13 |/ | MOVE.L (A3),-(A7) 0002089e 42 27 |B' | CLR.B -(A7) 000208a0 1f 01 | | MOVE.B D1,-(A7) 000208a2 48 78 00 00 |Hx | PEA.L 0x0 000208a6 48 54 |HT | PEA.L (A4) 000208a8 48 6e ff f0 |Hn | PEA.L (A6-0x10) 000208ac 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File) 000208b2 de fc 00 14 | | ADDA.W #0x14,A7 000208b6 4a 14 |J | TST.B (A4) 000208b8 66 16 |f | BNE 0x208d0 000208ba 1f 01 | | MOVE.B D1,-(A7) 000208bc 1f 01 | | MOVE.B D1,-(A7) 000208be 2f 12 |/ | MOVE.L (A2),-(A7) 000208c0 48 54 |HT | PEA.L (A4) 000208c2 48 6e ff f0 |Hn | PEA.L (A6-0x10) 000208c6 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File) 000208cc de fc 00 10 | | ADDA.W #0x10,A7 000208d0 48 52 |HR | PEA.L (A2) 000208d2 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000208d8 58 4f |XO | ADDQ.L #0x4,A7 000208da 48 53 |HS | PEA.L (A3) 000208dc 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000208e2 58 4f |XO | ADDQ.L #0x4,A7 000208e4 4c df 1f 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2+A3+A4 000208e8 4e 5e |N^ | UNLK A6 000208ea 4e 75 |Nu | RTS 000208ec ; -------------------------------------------------------------------------------------- 000208ec ; OMSI PASCAL Function 000208ec ; <LVAR -0x004 @> 000208ec ; -------------------------------------------------------------------------------------- 000208ec CMD_REMOTE(): 000208ec 4e 56 ff c2 |NV | LINK.W A6,#0xffc2 000208f0 bf d5 | | CMPA.L (A5),A7 000208f2 62 06 |b | BHI 0x208fa 000208f4 44 fc 00 02 |D | MOVE.W #0x2,CCR 000208f8 4e 76 |Nv | TRAPV 000208fa de fc 00 3a | : | ADDA.W #0x3a,A7 000208fe 48 e7 e0 c0 |H | MOVEM.L A1+A0+D2+D1+D0,-(A7) 00020902 43 f9 00 01 02 c4 |C | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A1 00020908 72 01 |r | MOVEQ.L #0x01,D1 0002090a 74 16 |t | MOVEQ.L #0x16,D2 0002090c 59 4f |YO | SUBQ.L #0x4,A7 0002090e 4e b9 00 01 03 f8 |N | JSR GetConsoleConfig() : Long 00020914 20 1f | | MOVE.L (A7)+,D0 00020916 0c 80 00 00 00 03 | | CMPI.L #0x00000003,D0 0002091c 66 26 |f& | BNE 0x20944 0002091e 41 fa f8 46 |A F | LEA.L 0x20166,A0 00020922 70 0a |p | MOVEQ.L #0x0a,D0 00020924 3f 20 |? | MOVE.W -(A0),-(A7) 00020926 51 c8 ff fc |Q | DBF D0,0x20924 0002092a 59 4f |YO | SUBQ.L #0x4,A7 0002092c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020930 3f 01 |? | MOVE.W D1,-(A7) 00020932 3f 02 |? | MOVE.W D2,-(A7) 00020934 4e 91 |N | JSR (A1) 00020936 50 4f |PO | ADDQ.L #0x8,A7 00020938 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002093e de fc 00 1a | | ADDA.W #0x1a,A7 00020942 60 76 |`v | BRA 0x209ba 00020944 55 4f |UO | SUBQ.L #0x2,A7 00020946 48 78 01 80 |Hx | PEA.L 0x180 0002094a 4e b9 00 01 05 92 |N | JSR ReadConfig(where : Long) : Word 00020950 58 4f |XO | ADDQ.L #0x4,A7 00020952 10 2f 00 01 | / | MOVE.B (A7+0x1),D0 00020956 0c 00 00 58 | X | CMPI.B #0x58,D0 0002095a 66 32 |f2 | BNE 0x2098e 0002095c 3f 3a f8 0c |?: | MOVE.W 0x2016a,-(A7) 00020960 3f 3a f8 06 |?: | MOVE.W 0x20168,-(A7) 00020964 3f 3a f8 00 |?: | MOVE.W 0x20166,-(A7) 00020968 59 4f |YO | SUBQ.L #0x4,A7 0002096a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002096e 3f 01 |? | MOVE.W D1,-(A7) 00020970 3f 3c 00 06 |?< | MOVE.W #0x6,-(A7) 00020974 4e 91 |N | JSR (A1) 00020976 50 4f |PO | ADDQ.L #0x8,A7 00020978 48 78 00 01 |Hx | PEA.L 0x1 0002097c 1f 01 | | MOVE.B D1,-(A7) 0002097e 48 6e ff fc |Hn | PEA.L (A6-0x4) 00020982 4e b9 00 01 03 b0 |N | JSR PushProgram(a : String; b : String; MOD c : B; VAR d : Bool) 00020988 de fc 00 14 | | ADDA.W #0x14,A7 0002098c 60 2a |`* | BRA 0x209b8 0002098e 2f 3a f7 e0 |/: | MOVE.L 0x20170,-(A7) 00020992 2f 3a f7 d8 |/: | MOVE.L 0x2016c,-(A7) 00020996 59 4f |YO | SUBQ.L #0x4,A7 00020998 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002099c 3f 01 |? | MOVE.W D1,-(A7) 0002099e 3f 3c 00 08 |?< | MOVE.W #0x8,-(A7) 000209a2 4e 91 |N | JSR (A1) 000209a4 50 4f |PO | ADDQ.L #0x8,A7 000209a6 48 78 00 01 |Hx | PEA.L 0x1 000209aa 1f 01 | | MOVE.B D1,-(A7) 000209ac 48 6e ff fc |Hn | PEA.L (A6-0x4) 000209b0 4e b9 00 01 03 b0 |N | JSR PushProgram(a : String; b : String; MOD c : B; VAR d : Bool) 000209b6 de c2 | | ADDA.W D2,A7 000209b8 54 4f |TO | ADDQ.L #0x2,A7 000209ba 4c df 03 07 |L | MOVEM.L (A7)+,D0+D1+D2+A0+A1 000209be 4e 5e |N^ | UNLK A6 000209c0 4e 75 |Nu | RTS 000209c2 ; -------------------------------------------------------------------------------------- 000209c2 ; OMSI PASCAL Function 000209c2 ; -------------------------------------------------------------------------------------- 000209c2 CMD_LOCAL(): 000209c2 4e 56 ff ca |NV | LINK.W A6,#0xffca 000209c6 bf d5 | | CMPA.L (A5),A7 000209c8 62 06 |b | BHI 0x209d0 000209ca 44 fc 00 02 |D | MOVE.W #0x2,CCR 000209ce 4e 76 |Nv | TRAPV 000209d0 de fc 00 36 | 6 | ADDA.W #0x36,A7 000209d4 48 e7 c0 c0 |H | MOVEM.L A1+A0+D1+D0,-(A7) 000209d8 72 01 |r | MOVEQ.L #0x01,D1 000209da 59 4f |YO | SUBQ.L #0x4,A7 000209dc 4e b9 00 01 03 f8 |N | JSR GetConsoleConfig() : Long 000209e2 20 1f | | MOVE.L (A7)+,D0 000209e4 b0 81 | | CMP.L D1,D0 000209e6 66 32 |f2 | BNE 0x20a1a 000209e8 9e fc 00 16 | | SUBA.W #0x16,A7 000209ec 20 4f | O | MOVEA.L A7,A0 000209ee 43 fa f7 84 |C | LEA.L 0x20174,A1 000209f2 70 14 |p | MOVEQ.L #0x14,D0 000209f4 10 d9 | | MOVE.B (A1)+,(A0)+ 000209f6 51 c8 ff fc |Q | DBF D0,0x209f4 000209fa 59 4f |YO | SUBQ.L #0x4,A7 000209fc 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020a00 3f 01 |? | MOVE.W D1,-(A7) 00020a02 3f 3c 00 15 |?< | MOVE.W #0x15,-(A7) 00020a06 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020a0c 50 4f |PO | ADDQ.L #0x8,A7 00020a0e 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00020a14 de fc 00 1a | | ADDA.W #0x1a,A7 00020a18 60 12 |` | BRA 0x20a2c 00020a1a 4e b9 00 01 02 16 |N | JSR KC0b 00020a20 48 78 00 01 |Hx | PEA.L 0x1 00020a24 4e b9 00 01 03 f4 |N | JSR SetConsoleConfig(a : Long) 00020a2a 58 4f |XO | ADDQ.L #0x4,A7 00020a2c 4c df 03 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1 00020a30 4e 5e |N^ | UNLK A6 00020a32 4e 75 |Nu | RTS 00020a34 ; -------------------------------------------------------------------------------------- 00020a34 ; OMSI PASCAL Function 00020a34 ; <LVAR 0x008 4(r)> 00020a34 ; <LVAR -0x004 @ 1(r)> 00020a34 ; <LVAR -0x008 @ 4(r)> 00020a34 ; -------------------------------------------------------------------------------------- 00020a34 4e 56 ff e0 |NV | LINK.W A6,#0xffe0 00020a38 bf d5 | | CMPA.L (A5),A7 00020a3a 62 06 |b | BHI 0x20a42 00020a3c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020a40 4e 76 |Nv | TRAPV 00020a42 de fc 00 18 | | ADDA.W #0x18,A7 00020a46 48 e7 00 c0 |H | MOVEM.L A1+A0,-(A7) 00020a4a 41 ee ff f8 |A | LEA.L (A6-0x8),A0 00020a4e 43 ee ff fc |C | LEA.L (A6-0x4),A1 00020a52 48 50 |HP | PEA.L (A0) 00020a54 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00020a5a 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7) 00020a5e 48 50 |HP | PEA.L (A0) 00020a60 48 51 |HQ | PEA.L (A1) 00020a62 4e b9 00 01 04 3c |N < | JSR FileReadLine(file : File; VAR a : String; VAR b : Byte) 00020a68 de fc 00 0c | | ADDA.W #0xc,A7 00020a6c 4a 11 |J | TST.B (A1) 00020a6e 66 0a |f | BNE 0x20a7a 00020a70 2f 10 |/ | MOVE.L (A0),-(A7) 00020a72 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00020a78 60 08 |` | BRA 0x20a82 00020a7a 48 50 |HP | PEA.L (A0) 00020a7c 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00020a82 58 4f |XO | ADDQ.L #0x4,A7 00020a84 4a 11 |J | TST.B (A1) 00020a86 67 ca |g | BEQ 0x20a52 00020a88 4c df 03 00 |L | MOVEM.L (A7)+,A0+A1 00020a8c 4e 5e |N^ | UNLK A6 00020a8e 4e 75 |Nu | RTS 00020a90 ; -------------------------------------------------------------------------------------- 00020a90 ; OMSI PASCAL Function 00020a90 ; <LVAR 0x008 4(r)> 00020a90 ; <LVAR -0x008 @ 4(r)> 00020a90 ; -------------------------------------------------------------------------------------- 00020a90 CMD_TYPE(): 00020a90 4e 56 ff 9a |NV | LINK.W A6,#0xff9a 00020a94 bf d5 | | CMPA.L (A5),A7 00020a96 62 06 |b | BHI 0x20a9e 00020a98 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020a9c 4e 76 |Nv | TRAPV 00020a9e de fc 00 5a | Z | ADDA.W #0x5a,A7 00020aa2 48 e7 f1 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D3+D2+D1+D0,-(A7) 00020aa6 47 ee 00 08 |G | LEA.L (A6+0x8),A3 00020aaa 72 01 |r | MOVEQ.L #0x01,D1 00020aac 74 0a |t | MOVEQ.L #0x0a,D2 00020aae 76 1e |v | MOVEQ.L #0x1e,D3 00020ab0 41 fa f6 e2 |A | LEA.L 0x20194,A0 00020ab4 70 04 |p | MOVEQ.L #0x04,D0 00020ab6 3f 20 |? | MOVE.W -(A0),-(A7) 00020ab8 51 c8 ff fc |Q | DBF D0,0x20ab6 00020abc 2f 13 |/ | MOVE.L (A3),-(A7) 00020abe 48 78 00 01 |Hx | PEA.L 0x1 00020ac2 4e b9 00 02 21 88 |N ! | JSR 0x22188 00020ac8 de c2 | | ADDA.W D2,A7 00020aca 2e 93 |. | MOVE.L (A3),(A7) 00020acc 48 78 00 01 |Hx | PEA.L 0x1 00020ad0 4e b9 00 02 2a 6e |N *n | JSR 0x22a6e 00020ad6 50 4f |PO | ADDQ.L #0x8,A7 00020ad8 28 5f |(_ | MOVEA.L (A7)+,A4 00020ada 3f 3a f6 b8 |?: | MOVE.W 0x20194,-(A7) 00020ade 55 4f |UO | SUBQ.L #0x2,A7 00020ae0 2f 13 |/ | MOVE.L (A3),-(A7) 00020ae2 59 4f |YO | SUBQ.L #0x4,A7 00020ae4 48 6f 00 0a |Ho | PEA.L (A7+0xa) 00020ae8 3f 01 |? | MOVE.W D1,-(A7) 00020aea 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7) 00020aee 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020af4 50 4f |PO | ADDQ.L #0x8,A7 00020af6 4e ba f8 d6 |N | JSR 0x203ce 00020afa 50 4f |PO | ADDQ.L #0x8,A7 00020afc 10 1f | | MOVE.B (A7)+,D0 00020afe 48 80 |H | EXTB.W D0 00020b00 41 81 |A | CHK.W D1,D0 00020b02 54 4f |TO | ADDQ.L #0x2,A7 00020b04 1e 00 | | MOVE.B D0,D7 00020b06 1f 01 | | MOVE.B D1,-(A7) 00020b08 2f 0c |/ | MOVE.L A4,-(A7) 00020b0a 48 6e ff f8 |Hn | PEA.L (A6-0x8) 00020b0e 4e b9 00 01 04 58 |N X | JSR DirFirst(MOD c : Bool; a : String; VAR b : File) 00020b14 de c2 | | ADDA.W D2,A7 00020b16 20 6e ff f8 | n | MOVEA.L (A6-0x8),A0 00020b1a b0 c1 | | CMPA.W D1,A0 00020b1c 67 52 |gR | BEQ 0x20b70 00020b1e 4a 07 |J | TST.B D7 00020b20 67 36 |g6 | BEQ 0x20b58 00020b22 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 00020b28 9e c3 | | SUBA.W D3,A7 00020b2a 22 4f |"O | MOVEA.L A7,A1 00020b2c 24 48 |$H | MOVEA.L A0,A2 00020b2e 70 1d |p | MOVEQ.L #0x1d,D0 00020b30 12 da | | MOVE.B (A2)+,(A1)+ 00020b32 51 c8 ff fc |Q | DBF D0,0x20b30 00020b36 59 4f |YO | SUBQ.L #0x4,A7 00020b38 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020b3c 3f 01 |? | MOVE.W D1,-(A7) 00020b3e 3f 03 |? | MOVE.W D3,-(A7) 00020b40 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020b46 50 4f |PO | ADDQ.L #0x8,A7 00020b48 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00020b4e de fc 00 22 | " | ADDA.W #0x22,A7 00020b52 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 00020b58 2f 08 |/ | MOVE.L A0,-(A7) 00020b5a 4e ba fe d8 |N | JSR 0x20a34 00020b5e 54 4f |TO | ADDQ.L #0x2,A7 00020b60 42 17 |B | CLR.B (A7) 00020b62 48 6e ff f8 |Hn | PEA.L (A6-0x8) 00020b66 4e b9 00 01 04 5c |N \ | JSR DirNext(MOD a : Bool; VAR b : File) 00020b6c 5c 4f |\O | ADDQ.L #0x6,A7 00020b6e 60 a6 |` | BRA 0x20b16 00020b70 4c df 1f 8f |L | MOVEM.L (A7)+,D0+D1+D2+D3+D7+A0+A1+A2+A3+A4 00020b74 4e 5e |N^ | UNLK A6 00020b76 4e 75 |Nu | RTS 00020b78 ; -------------------------------------------------------------------------------------- 00020b78 ; OMSI PASCAL Function 00020b78 ; <LVAR 0x008 4(r)> 00020b78 ; <LVAR -0x005 @ 1(rw)> 00020b78 ; <LVAR -0x006 @ 1(r)> 00020b78 ; <LVAR -0x00a @ 4(r)> 00020b78 ; <LVAR -0x00e @ 4(rw)> 00020b78 ; <LVAR -0x012 @ 4(rw)> 00020b78 ; <LVAR -0x014 @ 1(r)> 00020b78 ; <LVAR -0x018 @ 4(rw)> 00020b78 ; <LVAR -0x01c @ 4(r)> 00020b78 ; <LVAR -0x020 @ 4(rw)> 00020b78 ; -------------------------------------------------------------------------------------- 00020b78 CMD_CREATE(): 00020b78 4e 56 ff 80 |NV | LINK.W A6,#0xff80 00020b7c bf d5 | | CMPA.L (A5),A7 00020b7e 62 06 |b | BHI 0x20b86 00020b80 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020b84 4e 76 |Nv | TRAPV 00020b86 de fc 00 60 | ` | ADDA.W #0x60,A7 00020b8a 48 e7 fd f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D5+D4+D3+D2+D1+D0,-(A7) 00020b8e 43 ee 00 08 |C | LEA.L (A6+0x8),A1 00020b92 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 00020b98 47 ee ff ec |G | LEA.L (A6-0x14),A3 00020b9c 49 ee ff f6 |I | LEA.L (A6-0xa),A4 00020ba0 72 01 |r | MOVEQ.L #0x01,D1 00020ba2 74 02 |t | MOVEQ.L #0x02,D2 00020ba4 76 0a |v | MOVEQ.L #0x0a,D3 00020ba6 78 14 |x | MOVEQ.L #0x14,D4 00020ba8 7a 0c |z | MOVEQ.L #0x0c,D5 00020baa 41 fa f5 f4 |A | LEA.L 0x201a0,A0 00020bae 70 04 |p | MOVEQ.L #0x04,D0 00020bb0 3f 20 |? | MOVE.W -(A0),-(A7) 00020bb2 51 c8 ff fc |Q | DBF D0,0x20bb0 00020bb6 2f 11 |/ | MOVE.L (A1),-(A7) 00020bb8 48 78 00 01 |Hx | PEA.L 0x1 00020bbc 4e b9 00 02 21 88 |N ! | JSR 0x22188 00020bc2 de c3 | | ADDA.W D3,A7 00020bc4 2e 91 |. | MOVE.L (A1),(A7) 00020bc6 48 78 00 01 |Hx | PEA.L 0x1 00020bca 4e b9 00 02 2a 6e |N *n | JSR 0x22a6e 00020bd0 50 4f |PO | ADDQ.L #0x8,A7 00020bd2 2d 5f ff ee |-_ | MOVE.L (A7)+,(A6-0x12) 00020bd6 2f 3a f5 c8 |/: | MOVE.L 0x201a0,-(A7) 00020bda 59 4f |YO | SUBQ.L #0x4,A7 00020bdc 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020be0 3f 01 |? | MOVE.W D1,-(A7) 00020be2 3f 3c 00 04 |?< | MOVE.W #0x4,-(A7) 00020be6 4e 92 |N | JSR (A2) 00020be8 50 4f |PO | ADDQ.L #0x8,A7 00020bea 2d 5f ff e0 |-_ | MOVE.L (A7)+,(A6-0x20) 00020bee 2e 91 |. | MOVE.L (A1),(A7) 00020bf0 48 78 00 00 |Hx | PEA.L 0x0 00020bf4 2f 2e ff e0 |/. | MOVE.L (A6-0x20),-(A7) 00020bf8 48 6e ff e4 |Hn | PEA.L (A6-0x1c) 00020bfc 48 53 |HS | PEA.L (A3) 00020bfe 4e b9 00 02 4f a6 |N O | JSR 0x24fa6 00020c04 de c4 | | ADDA.W D4,A7 00020c06 48 6e ff e0 |Hn | PEA.L (A6-0x20) 00020c0a 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00020c10 58 4f |XO | ADDQ.L #0x4,A7 00020c12 4a 13 |J | TST.B (A3) 00020c14 66 06 |f | BNE 0x20c1c 00020c16 2d 41 ff e8 |-A | MOVE.L D1,(A6-0x18) 00020c1a 60 52 |`R | BRA 0x20c6e 00020c1c 20 6e ff e4 | n | MOVEA.L (A6-0x1c),A0 00020c20 b0 c1 | | CMPA.W D1,A0 00020c22 67 12 |g | BEQ 0x20c36 00020c24 2f 08 |/ | MOVE.L A0,-(A7) 00020c26 48 53 |HS | PEA.L (A3) 00020c28 48 6e ff e8 |Hn | PEA.L (A6-0x18) 00020c2c 4e b9 00 01 02 ec |N | JSR String2Long(src : String; VAR status : Bool; VAR retval : Long) 00020c32 de c5 | | ADDA.W D5,A7 00020c34 60 0e |` | BRA 0x20c44 00020c36 42 13 |B | CLR.B (A3) 00020c38 48 6e ff e4 |Hn | PEA.L (A6-0x1c) 00020c3c 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00020c42 58 4f |XO | ADDQ.L #0x4,A7 00020c44 4a 13 |J | TST.B (A3) 00020c46 66 26 |f& | BNE 0x20c6e 00020c48 41 fa f5 7a |A z | LEA.L 0x201c4,A0 00020c4c 70 07 |p | MOVEQ.L #0x07,D0 00020c4e 2f 20 |/ | MOVE.L -(A0),-(A7) 00020c50 51 c8 ff fc |Q | DBF D0,0x20c4e 00020c54 59 4f |YO | SUBQ.L #0x4,A7 00020c56 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020c5a 3f 01 |? | MOVE.W D1,-(A7) 00020c5c 3f 3c 00 20 |?< | MOVE.W #0x20,-(A7) 00020c60 4e 92 |N | JSR (A2) 00020c62 50 4f |PO | ADDQ.L #0x8,A7 00020c64 4e b9 00 02 1d 46 |N F | JSR 0x21d46 00020c6a de fc 00 24 | $ | ADDA.W #0x24,A7 00020c6e 41 fa f5 5e |A ^ | LEA.L 0x201ce,A0 00020c72 70 04 |p | MOVEQ.L #0x04,D0 00020c74 3f 20 |? | MOVE.W -(A0),-(A7) 00020c76 51 c8 ff fc |Q | DBF D0,0x20c74 00020c7a 55 4f |UO | SUBQ.L #0x2,A7 00020c7c 2f 11 |/ | MOVE.L (A1),-(A7) 00020c7e 59 4f |YO | SUBQ.L #0x4,A7 00020c80 48 6f 00 0a |Ho | PEA.L (A7+0xa) 00020c84 3f 01 |? | MOVE.W D1,-(A7) 00020c86 3f 03 |? | MOVE.W D3,-(A7) 00020c88 4e 92 |N | JSR (A2) 00020c8a 50 4f |PO | ADDQ.L #0x8,A7 00020c8c 4e ba f7 40 |N @ | JSR 0x203ce 00020c90 50 4f |PO | ADDQ.L #0x8,A7 00020c92 4a 1f |J | TST.B (A7)+ 00020c94 67 04 |g | BEQ 0x20c9a 00020c96 44 ae ff e8 |D | NEG.L (A6-0x18) 00020c9a 50 4f |PO | ADDQ.L #0x8,A7 00020c9c 3e ba f5 30 |> 0 | MOVE.W 0x201ce,(A7) 00020ca0 55 4f |UO | SUBQ.L #0x2,A7 00020ca2 2f 11 |/ | MOVE.L (A1),-(A7) 00020ca4 59 4f |YO | SUBQ.L #0x4,A7 00020ca6 48 6f 00 0a |Ho | PEA.L (A7+0xa) 00020caa 3f 01 |? | MOVE.W D1,-(A7) 00020cac 3f 02 |? | MOVE.W D2,-(A7) 00020cae 4e 92 |N | JSR (A2) 00020cb0 50 4f |PO | ADDQ.L #0x8,A7 00020cb2 4e ba f7 1a |N | JSR 0x203ce 00020cb6 50 4f |PO | ADDQ.L #0x8,A7 00020cb8 4a 1f |J | TST.B (A7)+ 00020cba 67 04 |g | BEQ 0x20cc0 00020cbc 7e 01 |~ | MOVEQ.L #0x01,D7 00020cbe 60 02 |` | BRA 0x20cc2 00020cc0 7e 02 |~ | MOVEQ.L #0x02,D7 00020cc2 54 4f |TO | ADDQ.L #0x2,A7 00020cc4 2f 2e ff ee |/. | MOVE.L (A6-0x12),-(A7) 00020cc8 10 07 | | MOVE.B D7,D0 00020cca 48 80 |H | EXTB.W D0 00020ccc 41 82 |A | CHK.W D2,D0 00020cce 1f 00 | | MOVE.B D0,-(A7) 00020cd0 1f 01 | | MOVE.B D1,-(A7) 00020cd2 2f 2e ff e8 |/. | MOVE.L (A6-0x18),-(A7) 00020cd6 48 6e ff fa |Hn | PEA.L (A6-0x6) 00020cda 48 54 |HT | PEA.L (A4) 00020cdc 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File) 00020ce2 de c4 | | ADDA.W D4,A7 00020ce4 4a 2e ff fa |J. | TST.B (A6-0x6) 00020ce8 66 00 00 b6 |f | BNE 0x20da0 00020cec 20 54 | T | MOVEA.L (A4),A0 00020cee 48 68 00 3a |Hh : | PEA.L (A0+0x3a) 00020cf2 4e b9 00 01 03 04 |N | JSR GetRtc() : TimeStamp 00020cf8 58 4f |XO | ADDQ.L #0x4,A7 00020cfa 11 41 00 4c | A L | MOVE.B D1,(A0+0x4c) 00020cfe 3f 3a f4 d0 |?: | MOVE.W 0x201d0,-(A7) 00020d02 55 4f |UO | SUBQ.L #0x2,A7 00020d04 2f 11 |/ | MOVE.L (A1),-(A7) 00020d06 59 4f |YO | SUBQ.L #0x4,A7 00020d08 48 6f 00 0a |Ho | PEA.L (A7+0xa) 00020d0c 3f 01 |? | MOVE.W D1,-(A7) 00020d0e 3f 02 |? | MOVE.W D2,-(A7) 00020d10 4e 92 |N | JSR (A2) 00020d12 50 4f |PO | ADDQ.L #0x8,A7 00020d14 4e ba f6 b8 |N | JSR 0x203ce 00020d18 50 4f |PO | ADDQ.L #0x8,A7 00020d1a 4a 1f |J | TST.B (A7)+ 00020d1c 67 5e |g^ | BEQ 0x20d7c 00020d1e 3f 3a f4 b2 |?: | MOVE.W 0x201d2,-(A7) 00020d22 51 4f |QO | SUBQ.L #0x8,A7 00020d24 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00020d28 3f 01 |? | MOVE.W D1,-(A7) 00020d2a 3f 02 |? | MOVE.W D2,-(A7) 00020d2c 4e 92 |N | JSR (A2) 00020d2e 50 4f |PO | ADDQ.L #0x8,A7 00020d30 4e b9 00 01 03 e4 |N | JSR AskConsoleString(prompt : String) : String 00020d36 58 4f |XO | ADDQ.L #0x4,A7 00020d38 2d 5f ff f2 |-_ | MOVE.L (A7)+,(A6-0xe) 00020d3c 54 4f |TO | ADDQ.L #0x2,A7 00020d3e 20 6e ff f2 | n | MOVEA.L (A6-0xe),A0 00020d42 30 10 |0 | MOVE.W (A0),D0 00020d44 b0 41 | A | CMP.W D1,D0 00020d46 66 10 |f | BNE 0x20d58 00020d48 10 28 00 02 | ( | MOVE.B (A0+0x2),D0 00020d4c 0c 00 00 29 | ) | CMPI.B #0x29,D0 00020d50 66 06 |f | BNE 0x20d58 00020d52 1d 41 ff fb | A | MOVE.B D1,(A6-0x5) 00020d56 60 12 |` | BRA 0x20d6a 00020d58 2f 14 |/ | MOVE.L (A4),-(A7) 00020d5a 2f 2e ff f2 |/. | MOVE.L (A6-0xe),-(A7) 00020d5e 48 6e ff fb |Hn | PEA.L (A6-0x5) 00020d62 4e b9 00 01 04 40 |N @ | JSR FSCALL_10440 00020d68 de c5 | | ADDA.W D5,A7 00020d6a 48 6e ff f2 |Hn | PEA.L (A6-0xe) 00020d6e 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00020d74 58 4f |XO | ADDQ.L #0x4,A7 00020d76 4a 2e ff fb |J. | TST.B (A6-0x5) 00020d7a 67 a2 |g | BEQ 0x20d1e 00020d7c 54 4f |TO | ADDQ.L #0x2,A7 00020d7e 2f 14 |/ | MOVE.L (A4),-(A7) 00020d80 4e b9 00 01 04 48 |N H | JSR FSCALL_10448 00020d86 54 4f |TO | ADDQ.L #0x2,A7 00020d88 42 17 |B | CLR.B (A7) 00020d8a 1f 01 | | MOVE.B D1,-(A7) 00020d8c 48 78 00 01 |Hx | PEA.L 0x1 00020d90 48 6e ff fa |Hn | PEA.L (A6-0x6) 00020d94 48 54 |HT | PEA.L (A4) 00020d96 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File) 00020d9c de fc 00 10 | | ADDA.W #0x10,A7 00020da0 48 6e ff ee |Hn | PEA.L (A6-0x12) 00020da4 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00020daa 58 4f |XO | ADDQ.L #0x4,A7 00020dac 4c df 1f bf |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D7+A0+A1+A2+A3+A4 00020db0 4e 5e |N^ | UNLK A6 00020db2 4e 75 |Nu | RTS 00020db4 ; -------------------------------------------------------------------------------------- 00020db4 ; OMSI PASCAL Function 00020db4 ; <LVAR 0x008 4(r)> 00020db4 ; <LVAR -0x006 @ 4(r)> 00020db4 ; <LVAR -0x010 @ 1(r)> 00020db4 ; -------------------------------------------------------------------------------------- 00020db4 CMD_TIME(): 00020db4 4e 56 ff a0 |NV | LINK.W A6,#0xffa0 00020db8 bf d5 | | CMPA.L (A5),A7 00020dba 62 06 |b | BHI 0x20dc2 00020dbc 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020dc0 4e 76 |Nv | TRAPV 00020dc2 de fc 00 50 | P | ADDA.W #0x50,A7 00020dc6 48 e7 81 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D0,-(A7) 00020dca 45 ee ff fa |E | LEA.L (A6-0x6),A2 00020dce 47 ee 00 08 |G | LEA.L (A6+0x8),A3 00020dd2 59 4f |YO | SUBQ.L #0x4,A7 00020dd4 2f 13 |/ | MOVE.L (A3),-(A7) 00020dd6 4e b9 00 02 21 52 |N !R | JSR 0x22152 00020ddc 58 4f |XO | ADDQ.L #0x4,A7 00020dde 2e 1f |. | MOVE.L (A7)+,D7 00020de0 67 6c |gl | BEQ 0x20e4e 00020de2 0c 87 00 00 00 02 | | CMPI.L #0x00000002,D7 00020de8 67 02 |g | BEQ 0x20dec 00020dea 60 7c |`| | BRA 0x20e68 00020dec 59 4f |YO | SUBQ.L #0x4,A7 00020dee 2f 13 |/ | MOVE.L (A3),-(A7) 00020df0 48 78 00 01 |Hx | PEA.L 0x1 00020df4 4e b9 00 02 2a 6e |N *n | JSR 0x22a6e 00020dfa 50 4f |PO | ADDQ.L #0x8,A7 00020dfc 28 5f |(_ | MOVEA.L (A7)+,A4 00020dfe 2f 0c |/ | MOVE.L A4,-(A7) 00020e00 1f 3c 00 20 | < | MOVE.B #0x20,-(A7) 00020e04 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00020e0a 54 4f |TO | ADDQ.L #0x2,A7 00020e0c 2f 0c |/ | MOVE.L A4,-(A7) 00020e0e 59 4f |YO | SUBQ.L #0x4,A7 00020e10 2f 13 |/ | MOVE.L (A3),-(A7) 00020e12 48 78 00 02 |Hx | PEA.L 0x2 00020e16 4e b9 00 02 2a 6e |N *n | JSR 0x22a6e 00020e1c 50 4f |PO | ADDQ.L #0x8,A7 00020e1e 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020e24 50 4f |PO | ADDQ.L #0x8,A7 00020e26 28 5f |(_ | MOVEA.L (A7)+,A4 00020e28 2f 0c |/ | MOVE.L A4,-(A7) 00020e2a 48 52 |HR | PEA.L (A2) 00020e2c 48 6e ff f0 |Hn | PEA.L (A6-0x10) 00020e30 4e b9 00 01 03 10 |N | JSR ConvertTimestamp(MOD input : String; b : L; VAR status : Bool) 00020e36 de fc 00 0c | | ADDA.W #0xc,A7 00020e3a 4a 2e ff f0 |J. | TST.B (A6-0x10) 00020e3e 66 02 |f | BNE 0x20e42 00020e40 60 26 |`& | BRA 0x20e68 00020e42 2f 12 |/ | MOVE.L (A2),-(A7) 00020e44 4e b9 00 01 03 0c |N | JSR SetRtc(a: TimeStamp) 00020e4a 58 4f |XO | ADDQ.L #0x4,A7 00020e4c 60 4c |`L | BRA 0x20e9a 00020e4e 48 52 |HR | PEA.L (A2) 00020e50 4e b9 00 01 03 04 |N | JSR GetRtc() : TimeStamp 00020e56 2f 12 |/ | MOVE.L (A2),-(A7) 00020e58 4e b9 00 01 03 08 |N | JSR TimeToText() 00020e5e 58 4f |XO | ADDQ.L #0x4,A7 00020e60 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00020e66 60 e2 |` | BRA 0x20e4a 00020e68 9e fc 00 24 | $ | SUBA.W #0x24,A7 00020e6c 20 4f | O | MOVEA.L A7,A0 00020e6e 43 fa f3 64 |C d | LEA.L 0x201d4,A1 00020e72 70 22 |p" | MOVEQ.L #0x22,D0 00020e74 10 d9 | | MOVE.B (A1)+,(A0)+ 00020e76 51 c8 ff fc |Q | DBF D0,0x20e74 00020e7a 59 4f |YO | SUBQ.L #0x4,A7 00020e7c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020e80 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00020e84 3f 3c 00 23 |?< # | MOVE.W #0x23,-(A7) 00020e88 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020e8e 50 4f |PO | ADDQ.L #0x8,A7 00020e90 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00020e96 de fc 00 28 | ( | ADDA.W #0x28,A7 00020e9a 4c df 1f 81 |L | MOVEM.L (A7)+,D0+D7+A0+A1+A2+A3+A4 00020e9e 4e 5e |N^ | UNLK A6 00020ea0 4e 75 |Nu | RTS 00020ea2 ; -------------------------------------------------------------------------------------- 00020ea2 ; OMSI PASCAL Function 00020ea2 ; <LVAR 0x008 4(r)> 00020ea2 ; -------------------------------------------------------------------------------------- 00020ea2 4e 56 ff 52 |NV R | LINK.W A6,#0xff52 00020ea6 bf d5 | | CMPA.L (A5),A7 00020ea8 62 06 |b | BHI 0x20eb0 00020eaa 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020eae 4e 76 |Nv | TRAPV 00020eb0 de fc 00 a6 | | ADDA.W #0xa6,A7 00020eb4 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00020eb8 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 00020ebe 49 fa f4 a0 |I | LEA.L 0x20360,A4 00020ec2 76 01 |v | MOVEQ.L #0x01,D3 00020ec4 78 05 |x | MOVEQ.L #0x05,D4 00020ec6 7a 18 |z | MOVEQ.L #0x18,D5 00020ec8 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00020ecc 2f 08 |/ | MOVE.L A0,-(A7) 00020ece 9e c5 | | SUBA.W D5,A7 00020ed0 22 4f |"O | MOVEA.L A7,A1 00020ed2 45 fa f3 30 |E 0 | LEA.L 0x20204,A2 00020ed6 70 16 |p | MOVEQ.L #0x16,D0 00020ed8 12 da | | MOVE.B (A2)+,(A1)+ 00020eda 51 c8 ff fc |Q | DBF D0,0x20ed8 00020ede 42 80 |B | CLR.L D0 00020ee0 10 28 00 1f | ( | MOVE.B (A0+0x1f),D0 00020ee4 ef 08 | | LSL.B #0x7,D0 00020ee6 ee 08 | | LSR.B #0x7,D0 00020ee8 c0 c4 | | MULU.W D4,D0 00020eea 42 81 |B | CLR.L D1 00020eec 32 00 |2 | MOVE.W D0,D1 00020eee 22 4c |"L | MOVEA.L A4,A1 00020ef0 5d 4f |]O | SUBQ.L #0x6,A7 00020ef2 24 4f |$O | MOVEA.L A7,A2 00020ef4 43 f1 18 00 |C | LEA.L (A1+D1.L),A1 00020ef8 70 04 |p | MOVEQ.L #0x04,D0 00020efa 14 d9 | | MOVE.B (A1)+,(A2)+ 00020efc 51 c8 ff fc |Q | DBF D0,0x20efa 00020f00 2f 3a f3 26 |/: & | MOVE.L 0x20228,-(A7) 00020f04 2f 3a f3 1e |/: | MOVE.L 0x20224,-(A7) 00020f08 2f 3a f3 16 |/: | MOVE.L 0x20220,-(A7) 00020f0c 2f 3a f3 0e |/: | MOVE.L 0x2021c,-(A7) 00020f10 42 80 |B | CLR.L D0 00020f12 10 28 00 1f | ( | MOVE.B (A0+0x1f),D0 00020f16 ed 08 | | LSL.B #0x6,D0 00020f18 ee 08 | | LSR.B #0x7,D0 00020f1a c0 c4 | | MULU.W D4,D0 00020f1c 42 81 |B | CLR.L D1 00020f1e 32 00 |2 | MOVE.W D0,D1 00020f20 22 4c |"L | MOVEA.L A4,A1 00020f22 5d 4f |]O | SUBQ.L #0x6,A7 00020f24 24 4f |$O | MOVEA.L A7,A2 00020f26 43 f1 18 00 |C | LEA.L (A1+D1.L),A1 00020f2a 70 04 |p | MOVEQ.L #0x04,D0 00020f2c 14 d9 | | MOVE.B (A1)+,(A2)+ 00020f2e 51 c8 ff fc |Q | DBF D0,0x20f2c 00020f32 2f 3a f3 00 |/: | MOVE.L 0x20234,-(A7) 00020f36 2f 3a f2 f8 |/: | MOVE.L 0x20230,-(A7) 00020f3a 2f 3a f2 f0 |/: | MOVE.L 0x2022c,-(A7) 00020f3e 42 80 |B | CLR.L D0 00020f40 10 28 00 1f | ( | MOVE.B (A0+0x1f),D0 00020f44 eb 08 | | LSL.B #0x5,D0 00020f46 ee 08 | | LSR.B #0x7,D0 00020f48 c0 c4 | | MULU.W D4,D0 00020f4a 42 81 |B | CLR.L D1 00020f4c 32 00 |2 | MOVE.W D0,D1 00020f4e 20 4c | L | MOVEA.L A4,A0 00020f50 5d 4f |]O | SUBQ.L #0x6,A7 00020f52 22 4f |"O | MOVEA.L A7,A1 00020f54 41 f0 18 00 |A | LEA.L (A0+D1.L),A0 00020f58 70 04 |p | MOVEQ.L #0x04,D0 00020f5a 12 d8 | | MOVE.B (A0)+,(A1)+ 00020f5c 51 c8 ff fc |Q | DBF D0,0x20f5a 00020f60 51 4f |QO | SUBQ.L #0x8,A7 00020f62 48 6f 00 36 |Ho 6 | PEA.L (A7+0x36) 00020f66 3f 03 |? | MOVE.W D3,-(A7) 00020f68 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7) 00020f6c 4e 93 |N | JSR (A3) 00020f6e 58 4f |XO | ADDQ.L #0x4,A7 00020f70 48 6f 00 34 |Ho 4 | PEA.L (A7+0x34) 00020f74 3f 03 |? | MOVE.W D3,-(A7) 00020f76 3f 04 |? | MOVE.W D4,-(A7) 00020f78 4e 93 |N | JSR (A3) 00020f7a 58 4f |XO | ADDQ.L #0x4,A7 00020f7c 48 6f 00 28 |Ho ( | PEA.L (A7+0x28) 00020f80 3f 03 |? | MOVE.W D3,-(A7) 00020f82 3f 3c 00 10 |?< | MOVE.W #0x10,-(A7) 00020f86 4e 93 |N | JSR (A3) 00020f88 58 4f |XO | ADDQ.L #0x4,A7 00020f8a 48 6f 00 26 |Ho & | PEA.L (A7+0x26) 00020f8e 3f 03 |? | MOVE.W D3,-(A7) 00020f90 3f 04 |? | MOVE.W D4,-(A7) 00020f92 4e 93 |N | JSR (A3) 00020f94 58 4f |XO | ADDQ.L #0x4,A7 00020f96 48 6f 00 1e |Ho | PEA.L (A7+0x1e) 00020f9a 3f 03 |? | MOVE.W D3,-(A7) 00020f9c 3f 3c 00 0c |?< | MOVE.W #0xc,-(A7) 00020fa0 4e 93 |N | JSR (A3) 00020fa2 58 4f |XO | ADDQ.L #0x4,A7 00020fa4 48 6f 00 1c |Ho | PEA.L (A7+0x1c) 00020fa8 3f 03 |? | MOVE.W D3,-(A7) 00020faa 3f 04 |? | MOVE.W D4,-(A7) 00020fac 4e 93 |N | JSR (A3) 00020fae 50 4f |PO | ADDQ.L #0x8,A7 00020fb0 4e b9 00 01 02 e0 |N | JSR StringCat6(a, b, c, d, e, f : String) : String 00020fb6 de c5 | | ADDA.W D5,A7 00020fb8 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00020fbe de fc 00 4a | J | ADDA.W #0x4a,A7 00020fc2 7e 00 |~ | MOVEQ.L #0x00,D7 00020fc4 7c 00 || | MOVEQ.L #0x00,D6 00020fc6 bc 84 | | CMP.L D4,D6 00020fc8 63 02 |c | BLS 0x20fcc 00020fca 4e 4f |NO | TRAP #15 00020fcc 20 06 | | MOVE.L D6,D0 00020fce e5 80 | | ASL.L #0x2,D0 00020fd0 20 57 | W | MOVEA.L (A7),A0 00020fd2 32 30 08 02 |20 | MOVE.W (A0+D0.L+#0x2),D1 00020fd6 48 c1 |H | EXTW.L D1 00020fd8 b2 87 | | CMP.L D7,D1 00020fda 6d 00 00 b8 |m | BLT 0x21094 00020fde 9e fc 00 16 | | SUBA.W #0x16,A7 00020fe2 22 4f |"O | MOVEA.L A7,A1 00020fe4 45 fa f2 52 |E R | LEA.L 0x20238,A2 00020fe8 74 14 |t | MOVEQ.L #0x14,D2 00020fea 12 da | | MOVE.B (A2)+,(A1)+ 00020fec 51 ca ff fc |Q | DBF D2,0x20fea 00020ff0 2f 3a f2 5c |/: \ | MOVE.L 0x2024e,-(A7) 00020ff4 52 41 |RA | ADDQ.W #0x1,D1 00020ff6 9e fc 00 14 | | SUBA.W #0x14,A7 00020ffa 22 4f |"O | MOVEA.L A7,A1 00020ffc 45 fa f2 54 |E T | LEA.L 0x20252,A2 00021000 74 12 |t | MOVEQ.L #0x12,D2 00021002 12 da | | MOVE.B (A2)+,(A1)+ 00021004 51 ca ff fc |Q | DBF D2,0x21002 00021008 51 4f |QO | SUBQ.L #0x8,A7 0002100a 48 6f 00 20 |Ho | PEA.L (A7+0x20) 0002100e 3f 03 |? | MOVE.W D3,-(A7) 00021010 3f 3c 00 15 |?< | MOVE.W #0x15,-(A7) 00021014 4e 93 |N | JSR (A3) 00021016 2f 07 |/ | MOVE.L D7,-(A7) 00021018 52 97 |R | ADDQ.L #0x1,(A7) 0002101a 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00021020 58 4f |XO | ADDQ.L #0x4,A7 00021022 48 78 00 05 |Hx | PEA.L 0x5 00021026 4e b9 00 01 02 f8 |N | JSR LeftPad(a : String; b : Long) : String 0002102c 58 4f |XO | ADDQ.L #0x4,A7 0002102e 48 6f 00 24 |Ho $ | PEA.L (A7+0x24) 00021032 3f 03 |? | MOVE.W D3,-(A7) 00021034 3f 3c 00 04 |?< | MOVE.W #0x4,-(A7) 00021038 4e 93 |N | JSR (A3) 0002103a 34 01 |4 | MOVE.W D1,D2 0002103c 48 c2 |H | EXTW.L D2 0002103e 2f 02 |/ | MOVE.L D2,-(A7) 00021040 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00021046 58 4f |XO | ADDQ.L #0x4,A7 00021048 48 78 00 05 |Hx | PEA.L 0x5 0002104c 4e b9 00 01 02 f8 |N | JSR LeftPad(a : String; b : Long) : String 00021052 58 4f |XO | ADDQ.L #0x4,A7 00021054 48 6f 00 18 |Ho | PEA.L (A7+0x18) 00021058 3f 03 |? | MOVE.W D3,-(A7) 0002105a 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7) 0002105e 4e 93 |N | JSR (A3) 00021060 42 82 |B | CLR.L D2 00021062 34 30 08 04 |40 | MOVE.W (A0+D0.L+#0x4),D2 00021066 2f 02 |/ | MOVE.L D2,-(A7) 00021068 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 0002106e 58 4f |XO | ADDQ.L #0x4,A7 00021070 48 78 00 05 |Hx | PEA.L 0x5 00021074 4e b9 00 01 02 f8 |N | JSR LeftPad(a : String; b : Long) : String 0002107a 50 4f |PO | ADDQ.L #0x8,A7 0002107c 4e b9 00 01 02 e0 |N | JSR StringCat6(a, b, c, d, e, f : String) : String 00021082 de c5 | | ADDA.W D5,A7 00021084 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002108a de c5 | | ADDA.W D5,A7 0002108c 48 c1 |H | EXTW.L D1 0002108e 2e 01 |. | MOVE.L D1,D7 00021090 de fc 00 1a | | ADDA.W #0x1a,A7 00021094 52 86 |R | ADDQ.L #0x1,D6 00021096 bc 84 | | CMP.L D4,D6 00021098 6f 00 ff 2c |o , | BLE 0x20fc6 0002109c 58 4f |XO | ADDQ.L #0x4,A7 0002109e 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 000210a2 4e 5e |N^ | UNLK A6 000210a4 4e 75 |Nu | RTS 000210a6 ; -------------------------------------------------------------------------------------- 000210a6 ; OMSI PASCAL Function 000210a6 ; <LVAR 0x008 4(r)> 000210a6 ; <LVAR -0x002 1(rw)> 000210a6 ; <LVAR -0x006 @ 4(r)> 000210a6 ; -------------------------------------------------------------------------------------- 000210a6 CMD_DIRECTORY(): 000210a6 4e 56 ff 72 |NV r | LINK.W A6,#0xff72 000210aa bf d5 | | CMPA.L (A5),A7 000210ac 62 06 |b | BHI 0x210b4 000210ae 44 fc 00 02 |D | MOVE.W #0x2,CCR 000210b2 4e 76 |Nv | TRAPV 000210b4 de fc 00 7a | z | ADDA.W #0x7a,A7 000210b8 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 000210bc 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 000210c2 74 01 |t | MOVEQ.L #0x01,D2 000210c4 76 0a |v | MOVEQ.L #0x0a,D3 000210c6 78 1e |x | MOVEQ.L #0x1e,D4 000210c8 7e 00 |~ | MOVEQ.L #0x00,D7 000210ca 7c 00 || | MOVEQ.L #0x00,D6 000210cc 2f 3a f1 98 |/: | MOVE.L 0x20266,-(A7) 000210d0 55 4f |UO | SUBQ.L #0x2,A7 000210d2 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000210d6 59 4f |YO | SUBQ.L #0x4,A7 000210d8 48 6f 00 0a |Ho | PEA.L (A7+0xa) 000210dc 3f 02 |? | MOVE.W D2,-(A7) 000210de 3f 3c 00 04 |?< | MOVE.W #0x4,-(A7) 000210e2 4e 93 |N | JSR (A3) 000210e4 50 4f |PO | ADDQ.L #0x8,A7 000210e6 4e ba f2 e6 |N | JSR 0x203ce 000210ea 50 4f |PO | ADDQ.L #0x8,A7 000210ec 10 1f | | MOVE.B (A7)+,D0 000210ee 48 80 |H | EXTB.W D0 000210f0 41 82 |A | CHK.W D2,D0 000210f2 58 4f |XO | ADDQ.L #0x4,A7 000210f4 1d 40 ff fe | @ | MOVE.B D0,(A6-0x2) 000210f8 59 4f |YO | SUBQ.L #0x4,A7 000210fa 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000210fe 4e b9 00 02 21 52 |N !R | JSR 0x22152 00021104 58 4f |XO | ADDQ.L #0x4,A7 00021106 7a 01 |z | MOVEQ.L #0x01,D5 00021108 ba 97 | | CMP.L (A7),D5 0002110a 6e 00 00 de |n | BGT 0x211ea 0002110e 59 4f |YO | SUBQ.L #0x4,A7 00021110 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00021114 2f 05 |/ | MOVE.L D5,-(A7) 00021116 4e b9 00 02 2a 6e |N *n | JSR 0x22a6e 0002111c 50 4f |PO | ADDQ.L #0x8,A7 0002111e 28 5f |(_ | MOVEA.L (A7)+,A4 00021120 1f 02 | | MOVE.B D2,-(A7) 00021122 2f 0c |/ | MOVE.L A4,-(A7) 00021124 48 6e ff fa |Hn | PEA.L (A6-0x6) 00021128 4e b9 00 01 04 58 |N X | JSR DirFirst(MOD c : Bool; a : String; VAR b : File) 0002112e de c3 | | ADDA.W D3,A7 00021130 20 6e ff fa | n | MOVEA.L (A6-0x6),A0 00021134 b0 c2 | | CMPA.W D2,A0 00021136 67 00 00 ac |g | BEQ 0x211e4 0002113a 42 80 |B | CLR.L D0 0002113c 30 06 |0 | MOVE.W D6,D0 0002113e 32 28 00 20 |2( | MOVE.W (A0+0x20),D1 00021142 48 c1 |H | EXTW.L D1 00021144 d0 81 | | ADD.L D1,D0 00021146 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 0002114c 63 02 |c | BLS 0x21150 0002114e 4e 4f |NO | TRAP #15 00021150 3c 00 |< | MOVE.W D0,D6 00021152 52 87 |R | ADDQ.L #0x1,D7 00021154 9e c4 | | SUBA.W D4,A7 00021156 22 4f |"O | MOVEA.L A7,A1 00021158 24 48 |$H | MOVEA.L A0,A2 0002115a 70 1d |p | MOVEQ.L #0x1d,D0 0002115c 12 da | | MOVE.B (A2)+,(A1)+ 0002115e 51 c8 ff fc |Q | DBF D0,0x2115c 00021162 9e fc 00 0c | | SUBA.W #0xc,A7 00021166 48 6f 00 0c |Ho | PEA.L (A7+0xc) 0002116a 3f 02 |? | MOVE.W D2,-(A7) 0002116c 3f 04 |? | MOVE.W D4,-(A7) 0002116e 4e 93 |N | JSR (A3) 00021170 50 4f |PO | ADDQ.L #0x8,A7 00021172 48 78 00 1f |Hx | PEA.L 0x1f 00021176 4e b9 00 01 02 f8 |N | JSR LeftPad(a : String; b : Long) : String 0002117c 2f 01 |/ | MOVE.L D1,-(A7) 0002117e 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00021184 58 4f |XO | ADDQ.L #0x4,A7 00021186 48 78 00 06 |Hx | PEA.L 0x6 0002118a 4e b9 00 01 02 f8 |N | JSR LeftPad(a : String; b : Long) : String 00021190 1e a8 00 3a | : | MOVE.B (A0+0x3a),(A7) 00021194 1f 68 00 3b 00 01 | h ; | MOVE.B (A0+0x3b),(A7+0x1) 0002119a 1f 68 00 3c 00 02 | h < | MOVE.B (A0+0x3c),(A7+0x2) 000211a0 1f 68 00 3d 00 03 | h = | MOVE.B (A0+0x3d),(A7+0x3) 000211a6 4e b9 00 01 03 08 |N | JSR TimeToText() 000211ac 58 4f |XO | ADDQ.L #0x4,A7 000211ae 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 000211b4 de fc 00 0c | | ADDA.W #0xc,A7 000211b8 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000211be de fc 00 22 | " | ADDA.W #0x22,A7 000211c2 4a 2e ff fe |J. | TST.B (A6-0x2) 000211c6 67 0a |g | BEQ 0x211d2 000211c8 48 68 00 20 |Hh | PEA.L (A0+0x20) 000211cc 4e ba fc d4 |N | JSR 0x20ea2 000211d0 58 4f |XO | ADDQ.L #0x4,A7 000211d2 42 27 |B' | CLR.B -(A7) 000211d4 48 6e ff fa |Hn | PEA.L (A6-0x6) 000211d8 4e b9 00 01 04 5c |N \ | JSR DirNext(MOD a : Bool; VAR b : File) 000211de 5c 4f |\O | ADDQ.L #0x6,A7 000211e0 60 00 ff 4e |` N | BRA 0x21130 000211e4 52 85 |R | ADDQ.L #0x1,D5 000211e6 68 00 ff 20 |h | BVC 0x21108 000211ea 58 4f |XO | ADDQ.L #0x4,A7 000211ec 0c 87 00 00 00 02 | | CMPI.L #0x00000002,D7 000211f2 6d 7c |m| | BLT 0x21270 000211f4 9e c3 | | SUBA.W D3,A7 000211f6 20 4f | O | MOVEA.L A7,A0 000211f8 43 fa f0 70 |C p | LEA.L 0x2026a,A1 000211fc 70 08 |p | MOVEQ.L #0x08,D0 000211fe 10 d9 | | MOVE.B (A1)+,(A0)+ 00021200 51 c8 ff fc |Q | DBF D0,0x211fe 00021204 41 fa f0 78 |A x | LEA.L 0x2027e,A0 00021208 70 04 |p | MOVEQ.L #0x04,D0 0002120a 3f 20 |? | MOVE.W -(A0),-(A7) 0002120c 51 c8 ff fc |Q | DBF D0,0x2120a 00021210 51 4f |QO | SUBQ.L #0x8,A7 00021212 20 4f | O | MOVEA.L A7,A0 00021214 43 fa f0 68 |C h | LEA.L 0x2027e,A1 00021218 70 06 |p | MOVEQ.L #0x06,D0 0002121a 10 d9 | | MOVE.B (A1)+,(A0)+ 0002121c 51 c8 ff fc |Q | DBF D0,0x2121a 00021220 51 4f |QO | SUBQ.L #0x8,A7 00021222 48 6f 00 1a |Ho | PEA.L (A7+0x1a) 00021226 3f 02 |? | MOVE.W D2,-(A7) 00021228 3f 3c 00 09 |?< | MOVE.W #0x9,-(A7) 0002122c 4e 93 |N | JSR (A3) 0002122e 58 4f |XO | ADDQ.L #0x4,A7 00021230 42 80 |B | CLR.L D0 00021232 30 06 |0 | MOVE.W D6,D0 00021234 2f 00 |/ | MOVE.L D0,-(A7) 00021236 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 0002123c 48 6f 00 18 |Ho | PEA.L (A7+0x18) 00021240 3f 02 |? | MOVE.W D2,-(A7) 00021242 3f 03 |? | MOVE.W D3,-(A7) 00021244 4e 93 |N | JSR (A3) 00021246 2e 87 |. | MOVE.L D7,(A7) 00021248 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 0002124e 48 6f 00 18 |Ho | PEA.L (A7+0x18) 00021252 3f 02 |? | MOVE.W D2,-(A7) 00021254 3f 3c 00 07 |?< | MOVE.W #0x7,-(A7) 00021258 4e 93 |N | JSR (A3) 0002125a 50 4f |PO | ADDQ.L #0x8,A7 0002125c 4e b9 00 01 02 dc |N | JSR StringCat5(a, b, c, d, e : String) : String 00021262 de fc 00 14 | | ADDA.W #0x14,A7 00021266 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002126c de fc 00 20 | | ADDA.W #0x20,A7 00021270 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00021274 4e 5e |N^ | UNLK A6 00021276 4e 75 |Nu | RTS 00021278 ; -------------------------------------------------------------------------------------- 00021278 ; OMSI PASCAL Function 00021278 ; <LVAR 0x008 4(r)> 00021278 ; <LVAR -0x002 @ 1(rw)> 00021278 ; <LVAR -0x024 @> 00021278 ; <LVAR -0x02a 2(w)> 00021278 ; <LVAR -0x030 2(w)> 00021278 ; <LVAR -0x034 @> 00021278 ; <LVAR -0x03c @ 4(r)> 00021278 ; <LVAR -0x048 @ 4(rw)> 00021278 ; -------------------------------------------------------------------------------------- 00021278 CMD_PRINTER(): 00021278 4e 56 ff 28 |NV ( | LINK.W A6,#0xff28 0002127c bf d5 | | CMPA.L (A5),A7 0002127e 62 06 |b | BHI 0x21286 00021280 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021284 4e 76 |Nv | TRAPV 00021286 de fc 00 8c | | ADDA.W #0x8c,A7 0002128a 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 0002128e 45 ee ff b8 |E | LEA.L (A6-0x48),A2 00021292 47 ee ff fe |G | LEA.L (A6-0x2),A3 00021296 74 01 |t | MOVEQ.L #0x01,D2 00021298 59 4f |YO | SUBQ.L #0x4,A7 0002129a 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 0002129e 4e b9 00 02 21 52 |N !R | JSR 0x22152 000212a4 58 4f |XO | ADDQ.L #0x4,A7 000212a6 2a 1f |* | MOVE.L (A7)+,D5 000212a8 ba 82 | | CMP.L D2,D5 000212aa 6c 34 |l4 | BGE 0x212e0 000212ac 9e fc 00 44 | D | SUBA.W #0x44,A7 000212b0 20 4f | O | MOVEA.L A7,A0 000212b2 43 fa ef d2 |C | LEA.L 0x20286,A1 000212b6 70 42 |pB | MOVEQ.L #0x42,D0 000212b8 10 d9 | | MOVE.B (A1)+,(A0)+ 000212ba 51 c8 ff fc |Q | DBF D0,0x212b8 000212be 59 4f |YO | SUBQ.L #0x4,A7 000212c0 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000212c4 3f 02 |? | MOVE.W D2,-(A7) 000212c6 3f 3c 00 43 |?< C | MOVE.W #0x43,-(A7) 000212ca 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000212d0 50 4f |PO | ADDQ.L #0x8,A7 000212d2 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000212d8 de fc 00 48 | H | ADDA.W #0x48,A7 000212dc 60 00 02 0e |` | BRA 0x214ec 000212e0 59 4f |YO | SUBQ.L #0x4,A7 000212e2 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000212e6 48 78 00 01 |Hx | PEA.L 0x1 000212ea 4e b9 00 02 2a 6e |N *n | JSR 0x22a6e 000212f0 50 4f |PO | ADDQ.L #0x8,A7 000212f2 28 5f |(_ | MOVEA.L (A7)+,A4 000212f4 3f 3a ef f6 |?: | MOVE.W 0x202ec,-(A7) 000212f8 59 4f |YO | SUBQ.L #0x4,A7 000212fa 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000212fe 3f 02 |? | MOVE.W D2,-(A7) 00021300 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7) 00021304 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002130a 50 4f |PO | ADDQ.L #0x8,A7 0002130c 24 9f |$ | MOVE.L (A7)+,(A2) 0002130e 2f 0c |/ | MOVE.L A4,-(A7) 00021310 2f 12 |/ | MOVE.L (A2),-(A7) 00021312 4e b9 00 01 02 c8 |N | JSR StringEqual(a, b : String) : Byte 00021318 50 4f |PO | ADDQ.L #0x8,A7 0002131a 10 1f | | MOVE.B (A7)+,D0 0002131c 48 80 |H | EXTB.W D0 0002131e 41 82 |A | CHK.W D2,D0 00021320 16 80 | | MOVE.B D0,(A3) 00021322 48 52 |HR | PEA.L (A2) 00021324 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 0002132a 58 4f |XO | ADDQ.L #0x4,A7 0002132c 4a 00 |J | TST.B D0 0002132e 67 00 01 48 |g H | BEQ 0x21478 00021332 0c 85 00 00 00 02 | | CMPI.L #0x00000002,D5 00021338 67 34 |g4 | BEQ 0x2136e 0002133a 9e fc 00 44 | D | SUBA.W #0x44,A7 0002133e 20 4f | O | MOVEA.L A7,A0 00021340 43 fa ef 44 |C D | LEA.L 0x20286,A1 00021344 70 42 |pB | MOVEQ.L #0x42,D0 00021346 10 d9 | | MOVE.B (A1)+,(A0)+ 00021348 51 c8 ff fc |Q | DBF D0,0x21346 0002134c 59 4f |YO | SUBQ.L #0x4,A7 0002134e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021352 3f 02 |? | MOVE.W D2,-(A7) 00021354 3f 3c 00 43 |?< C | MOVE.W #0x43,-(A7) 00021358 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002135e 50 4f |PO | ADDQ.L #0x8,A7 00021360 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00021366 de fc 00 48 | H | ADDA.W #0x48,A7 0002136a 60 00 01 0a |` | BRA 0x21476 0002136e 59 4f |YO | SUBQ.L #0x4,A7 00021370 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00021374 48 78 00 02 |Hx | PEA.L 0x2 00021378 4e b9 00 02 2a 6e |N *n | JSR 0x22a6e 0002137e 50 4f |PO | ADDQ.L #0x8,A7 00021380 24 9f |$ | MOVE.L (A7)+,(A2) 00021382 2f 12 |/ | MOVE.L (A2),-(A7) 00021384 48 53 |HS | PEA.L (A3) 00021386 48 6e ff c4 |Hn | PEA.L (A6-0x3c) 0002138a 4e b9 00 01 02 ec |N | JSR String2Long(src : String; VAR status : Bool; VAR retval : Long) 00021390 de fc 00 0c | | ADDA.W #0xc,A7 00021394 4a 13 |J | TST.B (A3) 00021396 66 14 |f | BNE 0x213ac 00021398 9e fc 00 44 | D | SUBA.W #0x44,A7 0002139c 20 4f | O | MOVEA.L A7,A0 0002139e 43 fa ee e6 |C | LEA.L 0x20286,A1 000213a2 70 42 |pB | MOVEQ.L #0x42,D0 000213a4 10 d9 | | MOVE.B (A1)+,(A0)+ 000213a6 51 c8 ff fc |Q | DBF D0,0x213a4 000213aa 60 a0 |` | BRA 0x2134c 000213ac 3d 42 ff d0 |=B | MOVE.W D2,(A6-0x30) 000213b0 3d 7c 00 02 ff d6 |=| | MOVE.W #0x2,(A6-0x2a) 000213b6 48 6e ff cc |Hn | PEA.L (A6-0x34) 000213ba 41 ee ff dc |A | LEA.L (A6-0x24),A0 000213be 2f 08 |/ | MOVE.L A0,-(A7) 000213c0 3f 3c 00 03 |?< | MOVE.W #0x3,-(A7) 000213c4 4e b9 00 01 02 04 |N | JSR KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W) 000213ca 50 4f |PO | ADDQ.L #0x8,A7 000213cc 3e bc 00 03 |> | MOVE.W #0x3,(A7) 000213d0 48 53 |HS | PEA.L (A3) 000213d2 4e b9 00 01 02 06 |N | JSR KC03_Wait_Disk_IO(a : W; VAR status : Byte) 000213d8 5c 4f |\O | ADDQ.L #0x6,A7 000213da 28 2e ff c4 |(. | MOVE.L (A6-0x3c),D4 000213de 76 10 |v | MOVEQ.L #0x10,D3 000213e0 4e b9 00 01 02 94 |N | JSR ?divs_d3_d4 000213e6 2e 04 |. | MOVE.L D4,D7 000213e8 2c 03 |, | MOVE.L D3,D6 000213ea 0c 87 00 00 00 10 | | CMPI.L #0x00000010,D7 000213f0 63 02 |c | BLS 0x213f4 000213f2 4e 4f |NO | TRAP #15 000213f4 20 07 | | MOVE.L D7,D0 000213f6 e3 80 | | ASL.L #0x1,D0 000213f8 0c 86 00 00 00 0f | | CMPI.L #0x0000000f,D6 000213fe 63 02 |c | BLS 0x21402 00021400 4e 4f |NO | TRAP #15 00021402 41 f6 08 dc |A | LEA.L (A6+D0.L-#0x24),A0 00021406 20 06 | | MOVE.L D6,D0 00021408 e6 98 | | ROR.L #0x3,D0 0002140a d0 c0 | | ADDA.W D0,A0 0002140c 48 40 |H@ | SWAP.W D0 0002140e e7 58 | X | ROL.W #0x3,D0 00021410 12 10 | | MOVE.B (A0),D1 00021412 e1 29 | ) | LSL.B D0,D1 00021414 ee 09 | | LSR.B #0x7,D1 00021416 16 81 | | MOVE.B D1,(A3) 00021418 2e 04 |. | MOVE.L D4,D7 0002141a 2c 03 |, | MOVE.L D3,D6 0002141c 4a 87 |J | TST.L D7 0002141e 67 2c |g, | BEQ 0x2144c 00021420 4a 01 |J | TST.B D1 00021422 67 28 |g( | BEQ 0x2144c 00021424 1f 02 | | MOVE.B D2,-(A7) 00021426 20 07 | | MOVE.L D7,D0 00021428 53 80 |S | SUBQ.L #0x1,D0 0002142a 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 00021430 63 02 |c | BLS 0x21434 00021432 4e 4f |NO | TRAP #15 00021434 3f 00 |? | MOVE.W D0,-(A7) 00021436 0c 86 00 00 00 ff | | CMPI.L #0x000000ff,D6 0002143c 63 02 |c | BLS 0x21440 0002143e 4e 4f |NO | TRAP #15 00021440 3f 06 |? | MOVE.W D6,-(A7) 00021442 4e b9 00 01 03 fc |N | JSR SetConsolePrinter(a: Byte; b: Word; c: Word) 00021448 5c 4f |\O | ADDQ.L #0x6,A7 0002144a 60 2a |`* | BRA 0x21476 0002144c 41 fa ee 9e |A | LEA.L 0x202ec,A0 00021450 70 10 |p | MOVEQ.L #0x10,D0 00021452 3f 20 |? | MOVE.W -(A0),-(A7) 00021454 51 c8 ff fc |Q | DBF D0,0x21452 00021458 59 4f |YO | SUBQ.L #0x4,A7 0002145a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002145e 3f 02 |? | MOVE.W D2,-(A7) 00021460 3f 3c 00 22 |?< " | MOVE.W #0x22,-(A7) 00021464 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002146a 50 4f |PO | ADDQ.L #0x8,A7 0002146c 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00021472 de fc 00 26 | & | ADDA.W #0x26,A7 00021476 60 74 |`t | BRA 0x214ec 00021478 59 4f |YO | SUBQ.L #0x4,A7 0002147a 1e ba ee 72 | r | MOVE.B 0x202ee,(A7) 0002147e 1f 7a ee 6f 00 01 | z o | MOVE.B 0x202ef,(A7+0x1) 00021484 1f 7a ee 6a 00 02 | z j | MOVE.B 0x202f0,(A7+0x2) 0002148a 59 4f |YO | SUBQ.L #0x4,A7 0002148c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021490 3f 02 |? | MOVE.W D2,-(A7) 00021492 3f 3c 00 03 |?< | MOVE.W #0x3,-(A7) 00021496 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002149c 50 4f |PO | ADDQ.L #0x8,A7 0002149e 24 9f |$ | MOVE.L (A7)+,(A2) 000214a0 54 4f |TO | ADDQ.L #0x2,A7 000214a2 2f 0c |/ | MOVE.L A4,-(A7) 000214a4 2f 12 |/ | MOVE.L (A2),-(A7) 000214a6 4e b9 00 01 02 c8 |N | JSR StringEqual(a, b : String) : Byte 000214ac 50 4f |PO | ADDQ.L #0x8,A7 000214ae 10 1f | | MOVE.B (A7)+,D0 000214b0 48 80 |H | EXTB.W D0 000214b2 41 82 |A | CHK.W D2,D0 000214b4 16 80 | | MOVE.B D0,(A3) 000214b6 48 52 |HR | PEA.L (A2) 000214b8 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000214be 58 4f |XO | ADDQ.L #0x4,A7 000214c0 4a 00 |J | TST.B D0 000214c2 67 04 |g | BEQ 0x214c8 000214c4 ba 82 | | CMP.L D2,D5 000214c6 67 16 |g | BEQ 0x214de 000214c8 9e fc 00 44 | D | SUBA.W #0x44,A7 000214cc 20 4f | O | MOVEA.L A7,A0 000214ce 43 fa ed b6 |C | LEA.L 0x20286,A1 000214d2 70 42 |pB | MOVEQ.L #0x42,D0 000214d4 10 d9 | | MOVE.B (A1)+,(A0)+ 000214d6 51 c8 ff fc |Q | DBF D0,0x214d4 000214da 60 00 fd e2 |` | BRA 0x212be 000214de 42 27 |B' | CLR.B -(A7) 000214e0 42 67 |Bg | CLR.W -(A7) 000214e2 42 67 |Bg | CLR.W -(A7) 000214e4 4e b9 00 01 03 fc |N | JSR SetConsolePrinter(a: Byte; b: Word; c: Word) 000214ea 5c 4f |\O | ADDQ.L #0x6,A7 000214ec 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 000214f0 4e 5e |N^ | UNLK A6 000214f2 4e 75 |Nu | RTS 000214f4 ; -------------------------------------------------------------------------------------- 000214f4 ; OMSI PASCAL Function 000214f4 ; <LVAR 0x00c 4(w)> 000214f4 ; <LVAR 0x008 4(r)> 000214f4 ; <LVAR -0x008 @ 4(rw)> 000214f4 ; -------------------------------------------------------------------------------------- 000214f4 4e 56 ff ae |NV | LINK.W A6,#0xffae 000214f8 bf d5 | | CMPA.L (A5),A7 000214fa 62 06 |b | BHI 0x21502 000214fc 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021500 4e 76 |Nv | TRAPV 00021502 de fc 00 46 | F | ADDA.W #0x46,A7 00021506 48 e7 fb e0 |H | MOVEM.L A2+A1+A0+D7+D6+D4+D3+D2+D1+D0,-(A7) 0002150a 45 ee ff f8 |E | LEA.L (A6-0x8),A2 0002150e 72 0a |r | MOVEQ.L #0x0a,D1 00021510 74 01 |t | MOVEQ.L #0x01,D2 00021512 2d 7c ff ff ff ff 00 0c |-| | MOVE.L #0xffffffff,(A6+0xc) 0002151a 7e 01 |~ | MOVEQ.L #0x01,D7 0002151c 20 07 | | MOVE.L D7,D0 0002151e 53 80 |S | SUBQ.L #0x1,D0 00021520 0c 80 00 00 00 09 | | CMPI.L #0x00000009,D0 00021526 63 02 |c | BLS 0x2152a 00021528 4e 4f |NO | TRAP #15 0002152a 28 00 |( | MOVE.L D0,D4 0002152c 76 0a |v | MOVEQ.L #0x0a,D3 0002152e 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4 00021534 41 fa ee 34 |A 4 | LEA.L 0x2036a,A0 00021538 9e c1 | | SUBA.W D1,A7 0002153a 22 4f |"O | MOVEA.L A7,A1 0002153c 41 f0 48 00 |A H | LEA.L (A0+D4.L),A0 00021540 70 09 |p | MOVEQ.L #0x09,D0 00021542 12 d8 | | MOVE.B (A0)+,(A1)+ 00021544 51 c8 ff fc |Q | DBF D0,0x21542 00021548 59 4f |YO | SUBQ.L #0x4,A7 0002154a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002154e 3f 02 |? | MOVE.W D2,-(A7) 00021550 3f 01 |? | MOVE.W D1,-(A7) 00021552 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00021558 50 4f |PO | ADDQ.L #0x8,A7 0002155a 24 9f |$ | MOVE.L (A7)+,(A2) 0002155c 58 4f |XO | ADDQ.L #0x4,A7 0002155e 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7) 00021562 2f 12 |/ | MOVE.L (A2),-(A7) 00021564 4e b9 00 01 02 c8 |N | JSR StringEqual(a, b : String) : Byte 0002156a 50 4f |PO | ADDQ.L #0x8,A7 0002156c 10 1f | | MOVE.B (A7)+,D0 0002156e 48 80 |H | EXTB.W D0 00021570 41 82 |A | CHK.W D2,D0 00021572 1c 00 | | MOVE.B D0,D6 00021574 48 52 |HR | PEA.L (A2) 00021576 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 0002157c 58 4f |XO | ADDQ.L #0x4,A7 0002157e 4a 06 |J | TST.B D6 00021580 67 06 |g | BEQ 0x21588 00021582 2d 47 00 0c |-G | MOVE.L D7,(A6+0xc) 00021586 60 06 |` | BRA 0x2158e 00021588 52 87 |R | ADDQ.L #0x1,D7 0002158a be 81 | | CMP.L D1,D7 0002158c 6f 8e |o | BLE 0x2151c 0002158e 4c df 07 df |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D6+D7+A0+A1+A2 00021592 4e 5e |N^ | UNLK A6 00021594 4e 75 |Nu | RTS 00021596 ; -------------------------------------------------------------------------------------- 00021596 ; OMSI PASCAL Function 00021596 ; <LVAR 0x010 4(r)> 00021596 ; <LVAR 0x00c 4(r)> 00021596 ; <LVAR 0x008 4(r)> 00021596 ; -------------------------------------------------------------------------------------- 00021596 4e 56 ff e4 |NV | LINK.W A6,#0xffe4 0002159a bf d5 | | CMPA.L (A5),A7 0002159c 62 06 |b | BHI 0x215a4 0002159e 44 fc 00 02 |D | MOVE.W #0x2,CCR 000215a2 4e 76 |Nv | TRAPV 000215a4 de fc 00 1c | | ADDA.W #0x1c,A7 000215a8 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7) 000215ac 43 ee 00 0c |C | LEA.L (A6+0xc),A1 000215b0 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 000215b4 10 bc 00 01 | | MOVE.B #0x01,(A0) 000215b8 59 4f |YO | SUBQ.L #0x4,A7 000215ba 2f 2e 00 10 |/. | MOVE.L (A6+0x10),-(A7) 000215be 4e ba ff 34 |N 4 | JSR 0x214f4 000215c2 58 4f |XO | ADDQ.L #0x4,A7 000215c4 20 1f | | MOVE.L (A7)+,D0 000215c6 53 80 |S | SUBQ.L #0x1,D0 000215c8 0c 80 00 00 00 09 | | CMPI.L #0x00000009,D0 000215ce 62 6c |bl | BHI 0x2163c 000215d0 d0 40 | @ | ADD.W D0,D0 000215d2 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 000215da 00 14 | | .CONST 0x14 ; [0x0] -> 0x215ee 000215dc 00 1e | | .CONST 0x1e ; [0x1] -> 0x215f8 000215de 00 26 | & | .CONST 0x26 ; [0x2] -> 0x21600 000215e0 00 2e | . | .CONST 0x2e ; [0x3] -> 0x21608 000215e2 00 36 | 6 | .CONST 0x36 ; [0x4] -> 0x21610 000215e4 00 3e | > | .CONST 0x3e ; [0x5] -> 0x21618 000215e6 00 46 | F | .CONST 0x46 ; [0x6] -> 0x21620 000215e8 00 4e | N | .CONST 0x4e ; [0x7] -> 0x21628 000215ea 00 54 | T | .CONST 0x54 ; [0x8] -> 0x2162e 000215ec 00 5a | Z | .CONST 0x5a ; [0x9] -> 0x21634 000215ee switch@0x215d2[0x0]: 000215ee 2f 11 |/ | MOVE.L (A1),-(A7) 000215f0 4e ba f7 c2 |N | JSR CMD_TIME() 000215f4 58 4f |XO | ADDQ.L #0x4,A7 000215f6 60 46 |`F | BRA 0x2163e 000215f8 switch@0x215d2[0x1]: 000215f8 2f 11 |/ | MOVE.L (A1),-(A7) 000215fa 4e ba fa aa |N | JSR CMD_DIRECTORY() 000215fe 60 f4 |` | BRA 0x215f4 00021600 switch@0x215d2[0x2]: 00021600 2f 11 |/ | MOVE.L (A1),-(A7) 00021602 4e ba ee 8a |N | JSR CMD_COPY() 00021606 60 ec |` | BRA 0x215f4 00021608 switch@0x215d2[0x3]: 00021608 2f 11 |/ | MOVE.L (A1),-(A7) 0002160a 4e ba f0 68 |N h | JSR CMD_DELETE() 0002160e 60 e4 |` | BRA 0x215f4 00021610 switch@0x215d2[0x4]: 00021610 2f 11 |/ | MOVE.L (A1),-(A7) 00021612 4e ba f4 7c |N | | JSR CMD_TYPE() 00021616 60 dc |` | BRA 0x215f4 00021618 switch@0x215d2[0x5]: 00021618 2f 11 |/ | MOVE.L (A1),-(A7) 0002161a 4e ba f5 5c |N \ | JSR CMD_CREATE() 0002161e 60 d4 |` | BRA 0x215f4 00021620 switch@0x215d2[0x6]: 00021620 2f 11 |/ | MOVE.L (A1),-(A7) 00021622 4e ba f1 e4 |N | JSR CMD_RENAME() 00021626 60 cc |` | BRA 0x215f4 00021628 switch@0x215d2[0x7]: 00021628 4e ba f2 c2 |N | JSR CMD_REMOTE() 0002162c 60 10 |` | BRA 0x2163e 0002162e switch@0x215d2[0x8]: 0002162e 4e ba f3 92 |N | JSR CMD_LOCAL() 00021632 60 0a |` | BRA 0x2163e 00021634 switch@0x215d2[0x9]: 00021634 2f 11 |/ | MOVE.L (A1),-(A7) 00021636 4e ba fc 40 |N @ | JSR CMD_PRINTER() 0002163a 60 b8 |` | BRA 0x215f4 0002163c 42 10 |B | CLR.B (A0) 0002163e 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1 00021642 4e 5e |N^ | UNLK A6 00021644 4e 75 |Nu | RTS 00021646 ; -------------------------------------------------------------------------------------- 00021646 ; OMSI PASCAL Function 00021646 ; <LVAR 0x008 4(r)> 00021646 ; -------------------------------------------------------------------------------------- 00021646 4e 56 ff e8 |NV | LINK.W A6,#0xffe8 0002164a bf d5 | | CMPA.L (A5),A7 0002164c 62 06 |b | BHI 0x21654 0002164e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021652 4e 76 |Nv | TRAPV 00021654 de fc 00 18 | | ADDA.W #0x18,A7 00021658 48 e7 c0 c0 |H | MOVEM.L A1+A0+D1+D0,-(A7) 0002165c 72 01 |r | MOVEQ.L #0x01,D1 0002165e 4e b9 00 01 03 98 |N | JSR FSCALL_10398 00021664 3f 01 |? | MOVE.W D1,-(A7) 00021666 1f 01 | | MOVE.B D1,-(A7) 00021668 4e b9 00 01 02 10 |N | JSR KC08_PortSomething(port: Word; b: Byte) 0002166e 58 4f |XO | ADDQ.L #0x4,A7 00021670 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00021674 43 fa ec e0 |C | LEA.L 0x20356,A1 00021678 70 09 |p | MOVEQ.L #0x09,D0 0002167a 10 d9 | | MOVE.B (A1)+,(A0)+ 0002167c 51 c8 ff fc |Q | DBF D0,0x2167a 00021680 4c df 03 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1 00021684 4e 5e |N^ | UNLK A6 00021686 4e 75 |Nu | RTS 00021688 ; -------------------------------------------------------------------------------------- 00021688 ; COMMAND TABLE 00021688 ; -------------------------------------------------------------------------------------- 00021688 COMMAND_TABLE_21688: 00021688 21 40 23 24 25 5e 26 2a |!@#$%^&*| .TXT '!@#$%^&*()' 00021692 57 52 49 54 45 20 20 20 |WRITE | .TXT 'WRITE ' 0002169c 42 59 45 20 20 20 20 20 |BYE | .TXT 'BYE ' 000216a6 48 45 41 50 20 20 20 20 |HEAP | .TXT 'HEAP ' 000216b0 48 45 4c 50 20 20 20 20 |HELP | .TXT 'HELP ' 000216ba 41 42 4f 52 54 20 20 20 |ABORT | .TXT 'ABORT ' 000216c4 43 4f 4d 4d 45 4e 54 20 |COMMENT | .TXT 'COMMENT ' 000216ce 53 45 54 20 20 20 20 20 |SET | .TXT 'SET ' 000216d8 56 41 52 20 20 20 20 20 |VAR | .TXT 'VAR ' 000216e2 56 41 52 53 20 20 20 20 |VARS | .TXT 'VARS ' 000216ec 45 51 20 20 20 20 20 20 |EQ | .TXT 'EQ ' 000216f6 4e 45 20 20 20 20 20 20 |NE | .TXT 'NE ' 00021700 43 41 53 45 20 20 20 20 |CASE | .TXT 'CASE ' 0002170a 49 4e 53 45 52 54 20 20 |INSERT | .TXT 'INSERT ' 00021714 45 58 54 52 41 43 54 20 |EXTRACT | .TXT 'EXTRACT ' 0002171e 23 43 41 53 45 20 20 20 |#CASE | .TXT '#CASE ' 00021728 23 45 51 20 20 20 20 20 |#EQ | .TXT '#EQ ' 00021732 23 4e 45 20 20 20 20 20 |#NE | .TXT '#NE ' 0002173c 23 4c 54 20 20 20 20 20 |#LT | .TXT '#LT ' 00021746 23 47 54 20 20 20 20 20 |#GT | .TXT '#GT ' 00021750 23 4c 45 20 20 20 20 20 |#LE | .TXT '#LE ' 0002175a 23 47 45 20 20 20 20 20 |#GE | .TXT '#GE ' 00021764 41 44 44 20 20 20 20 20 |ADD | .TXT 'ADD ' 0002176e 53 55 42 20 20 20 20 20 |SUB | .TXT 'SUB ' 00021778 4d 55 4c 20 20 20 20 20 |MUL | .TXT 'MUL ' 00021782 44 49 56 20 20 20 20 20 |DIV | .TXT 'DIV ' 0002178c 4d 4f 44 20 20 20 20 20 |MOD | .TXT 'MOD ' 00021796 4f 52 20 20 20 20 20 20 |OR | .TXT 'OR ' 000217a0 41 4e 44 20 20 20 20 20 |AND | .TXT 'AND ' 000217aa 58 4f 52 20 20 20 20 20 |XOR | .TXT 'XOR ' 000217b4 4c 53 48 49 46 54 20 20 |LSHIFT | .TXT 'LSHIFT ' 000217be 52 53 48 49 46 54 20 20 |RSHIFT | .TXT 'RSHIFT ' 000217c8 4e 4f 54 20 20 20 20 20 |NOT | .TXT 'NOT ' 000217d2 23 49 4e 53 45 52 54 20 |#INSERT | .TXT '#INSERT ' 000217dc 23 45 58 54 52 41 43 54 |#EXTRACT| .TXT '#EXTRACT ' 000217e6 52 45 41 44 20 20 20 20 |READ | .TXT 'READ ' 000217f0 4b 49 4c 4c 20 20 20 20 |KILL | .TXT 'KILL ' 000217fa 50 55 53 48 20 20 20 20 |PUSH | .TXT 'PUSH ' 00021804 4c 45 56 45 4c 20 20 20 |LEVEL | .TXT 'LEVEL ' 0002180e 43 4f 4e 56 45 52 54 20 |CONVERT | .TXT 'CONVERT ' 00021818 43 4f 55 4e 54 5f 4f 4e |COUNT_ON| .TXT 'COUNT_ONES' 00021822 52 45 50 45 41 54 20 20 |REPEAT | .TXT 'REPEAT ' 0002182c 4d 4f 44 45 4c 20 20 20 |MODEL | .TXT 'MODEL ' 00021836 41 53 43 49 49 20 20 20 |ASCII | .TXT 'ASCII ' 00021840 57 72 6f 6e 67 20 6e 75 |Wrong nu| .TXT 'Wrong number of arguments for :_' 00021860 45 51 2c 4e 45 2c 23 45 |EQ,NE,#E| .XXX[0x40] 00021868 51 2c 23 4e 45 2c 23 4c |Q,#NE,#L| 00021870 54 2c 23 47 54 2c 23 4c |T,#GT,#L| 00021878 45 2c 23 47 45 2c 45 4c |E,#GE,EL| 00021880 53 45 5d 45 4e 44 5d 43 |SE]END]C| 00021888 41 53 45 2c 23 43 41 53 |ASE,#CAS| 00021890 45 2c 57 48 45 4e 2c 45 |E,WHEN,E| 00021898 4e 44 43 41 53 45 5d 20 |NDCASE] | 000218a0 45 76 61 6c 75 61 74 69 |Evaluati| .TXT 'Evaluation buffer overflow. ' 000218bc 55 6e 62 61 6c 61 6e 63 |Unbalanc| .TXT 'Unbalanced [ELSE] or [END]! ' 000218d8 5b 57 48 45 4e 20 5d 20 |[WHEN ] | .TXT '[WHEN ] ' 000218e2 4e 6f 20 63 61 73 65 20 |No case | .TXT 'No case alternative found!' 000218fc 4e 6f 20 5b 45 4e 44 43 |No [ENDC| .TXT 'No [ENDCASE] found! ' 00021910 4e 6f 20 68 65 6c 70 20 |No help | .TXT 'No help available for_' 00021926 2e 48 4c 50 |.HLP | .TXT '.HLP' 0002192a 54 6f 6f 20 66 65 77 20 |Too few | .TXT 'Too few arguments for SET ' 00021944 55 6e 6b 6e 6f 77 6e 20 |Unknown | .TXT 'Unknown variable :_ ' 00021958 20 69 73 20 6e 6f 74 20 | is not | .TXT ' is not a program.' 0002196a 43 4c |CL | .TXT 'CL' 0002196c 49 20 |I | .XXX[0x2] 0002196e 2e 4d 32 30 30 20 |.M200 | .TXT '.M200 ' 00021974 53 54 |ST | .TXT 'ST' 00021976 41 54 |AT | .TXT 'AT' 00021978 55 53 |US | .TXT 'US' 0002197a 52 45 |RE | .TXT 'RE' 0002197c 53 55 |SU | .TXT 'SU' 0002197e 4c 54 |LT | .TXT 'LT' 00021980 4f 66 66 73 65 74 2f 4c |Offset/L| .TXT 'Offset/Length error in [INSERT] ' 000219a0 52 45 50 45 41 54 69 6e |REPEATin| .TXT 'REPEATing, type ^G to exit. ' 000219bc 41 53 43 49 49 20 61 72 |ASCII ar| .TXT 'ASCII argument out of range.' 000219d8 4e 6f 74 20 61 20 63 6f |Not a co| .TXT 'Not a command or macro :_ ' 000219f2 49 6c 6c 65 67 61 6c 20 |Illegal | .TXT 'Illegal marker argument ' 00021a0a 53 77 69 74 63 68 20 65 |Switch e| .TXT 'Switch exclusion is unimplemented.' 00021a2c 49 6c 6c 65 67 61 6c 20 |Illegal | .TXT 'Illegal argument marker.' 00021a44 49 6c 6c 65 67 61 6c 20 |Illegal | .TXT 'Illegal argument marker.' 00021a5c 5b 49 4e 49 54 5d 5b 20 |[INIT][ | .TXT '[INIT][ ' 00021a64 5d 5b 42 59 45 5d 3b 20 |][BYE]; | .TXT '][BYE]; ' 00021a6c 5b 49 4e 49 54 5d 3b 20 |[INIT]; | .TXT '[INIT]; ' 00021a74 3e 5f |>_ | .TXT '>_' 00021a76 5b 20 |[ | .TXT '[ ' 00021a78 5d 3b |]; | .TXT '];' 00021a7a ; -------------------------------------------------------------------------------------- 00021a7a ; COMMAND TABLE 00021a7a ; -------------------------------------------------------------------------------------- 00021a7a COMMAND_TABLE_21a7a: 00021a7a 21 40 23 24 25 5e 26 2a |!@#$%^&*| .TXT '!@#$%^&*()' 00021a84 57 52 49 54 45 20 20 20 |WRITE | .TXT 'WRITE ' 00021a8e 42 59 45 20 20 20 20 20 |BYE | .TXT 'BYE ' 00021a98 48 45 41 50 20 20 20 20 |HEAP | .TXT 'HEAP ' 00021aa2 48 45 4c 50 20 20 20 20 |HELP | .TXT 'HELP ' 00021aac 41 42 4f 52 54 20 20 20 |ABORT | .TXT 'ABORT ' 00021ab6 43 4f 4d 4d 45 4e 54 20 |COMMENT | .TXT 'COMMENT ' 00021ac0 53 45 54 20 20 20 20 20 |SET | .TXT 'SET ' 00021aca 56 41 52 20 20 20 20 20 |VAR | .TXT 'VAR ' 00021ad4 56 41 52 53 20 20 20 20 |VARS | .TXT 'VARS ' 00021ade 45 51 20 20 20 20 20 20 |EQ | .TXT 'EQ ' 00021ae8 4e 45 20 20 20 20 20 20 |NE | .TXT 'NE ' 00021af2 43 41 53 45 20 20 20 20 |CASE | .TXT 'CASE ' 00021afc 49 4e 53 45 52 54 20 20 |INSERT | .TXT 'INSERT ' 00021b06 45 58 54 52 41 43 54 20 |EXTRACT | .TXT 'EXTRACT ' 00021b10 23 43 41 53 45 20 20 20 |#CASE | .TXT '#CASE ' 00021b1a 23 45 51 20 20 20 20 20 |#EQ | .TXT '#EQ ' 00021b24 23 4e 45 20 20 20 20 20 |#NE | .TXT '#NE ' 00021b2e 23 4c 54 20 20 20 20 20 |#LT | .TXT '#LT ' 00021b38 23 47 54 20 20 20 20 20 |#GT | .TXT '#GT ' 00021b42 23 4c 45 20 20 20 20 20 |#LE | .TXT '#LE ' 00021b4c 23 47 45 20 20 20 20 20 |#GE | .TXT '#GE ' 00021b56 41 44 44 20 20 20 20 20 |ADD | .TXT 'ADD ' 00021b60 53 55 42 20 20 20 20 20 |SUB | .TXT 'SUB ' 00021b6a 4d 55 4c 20 20 20 20 20 |MUL | .TXT 'MUL ' 00021b74 44 49 56 20 20 20 20 20 |DIV | .TXT 'DIV ' 00021b7e 4d 4f 44 20 20 20 20 20 |MOD | .TXT 'MOD ' 00021b88 4f 52 20 20 20 20 20 20 |OR | .TXT 'OR ' 00021b92 41 4e 44 20 20 20 20 20 |AND | .TXT 'AND ' 00021b9c 58 4f 52 20 20 20 20 20 |XOR | .TXT 'XOR ' 00021ba6 4c 53 48 49 46 54 20 20 |LSHIFT | .TXT 'LSHIFT ' 00021bb0 52 53 48 49 46 54 20 20 |RSHIFT | .TXT 'RSHIFT ' 00021bba 4e 4f 54 20 20 20 20 20 |NOT | .TXT 'NOT ' 00021bc4 23 49 4e 53 45 52 54 20 |#INSERT | .TXT '#INSERT ' 00021bce 23 45 58 54 52 41 43 54 |#EXTRACT| .TXT '#EXTRACT ' 00021bd8 52 45 41 44 20 20 20 20 |READ | .TXT 'READ ' 00021be2 4b 49 4c 4c 20 20 20 20 |KILL | .TXT 'KILL ' 00021bec 50 55 53 48 20 20 20 20 |PUSH | .TXT 'PUSH ' 00021bf6 4c 45 56 45 4c 20 20 20 |LEVEL | .TXT 'LEVEL ' 00021c00 43 4f 4e 56 45 52 54 20 |CONVERT | .TXT 'CONVERT ' 00021c0a 43 4f 55 4e 54 5f 4f 4e |COUNT_ON| .TXT 'COUNT_ONES' 00021c14 52 45 50 45 41 54 20 20 |REPEAT | .TXT 'REPEAT ' 00021c1e 4d 4f 44 45 4c 20 20 20 |MODEL | .TXT 'MODEL ' 00021c28 41 53 43 49 49 20 20 20 |ASCII | .TXT 'ASCII ' 00021c32 a5 34 45 73 34 22 | 4Es4" | .XXX[0x6] 00021c38 46 75 33 33 33 33 33 32 |Fu333332| .XXX[0x98] 00021c40 33 66 37 84 44 57 a6 55 |3f7 DW U| 00021c48 0f 00 f0 ff 10 22 14 31 | " 1| 00021c50 22 22 22 22 22 22 22 22 |""""""""| 00021c58 14 3f 1f 03 10 0f 00 00 | ? | 00021c60 00 00 ff ff ff ff 00 01 | | 00021c68 01 00 01 01 00 01 02 00 | | 00021c70 00 01 02 00 01 02 00 01 | | 00021c78 14 06 01 14 08 14 0f 02 | | 00021c80 03 14 14 08 14 0f 14 14 | | 00021c88 14 14 14 14 14 04 14 05 | | 00021c90 14 14 14 14 14 14 14 14 | | 00021c98 14 14 14 04 14 14 14 14 | | 00021ca0 14 14 04 14 07 14 14 14 | | 00021ca8 14 04 14 14 14 14 14 14 | | 00021cb0 0c 14 14 09 14 14 14 0d | | 00021cb8 14 14 14 0b 0a 14 0e 14 | | 00021cc0 14 14 08 14 14 0c 14 14 | | 00021cc8 09 14 14 14 14 14 14 14 | | 00021cd0 14 14 14 14 14 14 14 14 | | .BLANK 14[0x10] 00021ce0 14 10 14 14 11 14 14 14 | | .XXX[0x20] 00021ce8 14 14 14 14 14 14 14 13 | | 00021cf0 14 14 14 14 14 12 14 14 | | 00021cf8 14 11 14 14 14 14 14 14 | | 00021d00 14 14 14 14 | | .XXX[0x4] 00021d04 ; -------------------------------------------------------------------------------------- 00021d04 ; OMSI PASCAL Function 00021d04 ; <LVAR 0x008 4(r)> 00021d04 ; <LVAR -0x004 @ 4(w)> 00021d04 ; -------------------------------------------------------------------------------------- 00021d04 4e 56 ff e8 |NV | LINK.W A6,#0xffe8 00021d08 bf d5 | | CMPA.L (A5),A7 00021d0a 62 06 |b | BHI 0x21d12 00021d0c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021d10 4e 76 |Nv | TRAPV 00021d12 de fc 00 10 | | ADDA.W #0x10,A7 00021d16 48 e7 00 08 |H | MOVEM.L A4,-(A7) 00021d1a 28 6e 00 08 |(n | MOVEA.L (A6+0x8),A4 00021d1e b8 fc 00 01 | | CMPA.W #0x1,A4 00021d22 67 1a |g | BEQ 0x21d3e 00021d24 2d 4c ff fc |-L | MOVE.L A4,(A6-0x4) 00021d28 28 6c 00 08 |(l | MOVEA.L (A4+0x8),A4 00021d2c 48 6e ff fc |Hn | PEA.L (A6-0x4) 00021d30 48 78 00 0c |Hx | PEA.L 0xc 00021d34 4e b9 00 01 02 a8 |N | JSR Free2(a : Pointer; b : Long) 00021d3a 50 4f |PO | ADDQ.L #0x8,A7 00021d3c 60 e0 |` | BRA 0x21d1e 00021d3e 4c df 10 00 |L | MOVEM.L (A7)+,A4 00021d42 4e 5e |N^ | UNLK A6 00021d44 4e 75 |Nu | RTS 00021d46 ; -------------------------------------------------------------------------------------- 00021d46 ; OMSI PASCAL Function 00021d46 ; <LVAR 0x008 4(r)> 00021d46 ; -------------------------------------------------------------------------------------- 00021d46 4e 56 ff f0 |NV | LINK.W A6,#0xfff0 00021d4a bf d5 | | CMPA.L (A5),A7 00021d4c 62 06 |b | BHI 0x21d54 00021d4e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021d52 4e 76 |Nv | TRAPV 00021d54 de fc 00 10 | | ADDA.W #0x10,A7 00021d58 48 e7 00 80 |H | MOVEM.L A0,-(A7) 00021d5c 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00021d60 b0 fc 00 01 | | CMPA.W #0x1,A0 00021d64 67 0a |g | BEQ 0x21d70 00021d66 2f 08 |/ | MOVE.L A0,-(A7) 00021d68 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00021d6e 58 4f |XO | ADDQ.L #0x4,A7 00021d70 2e 6d 00 08 |.m | MOVEA.L (A5+0x8),A7 00021d74 3c 7c 00 00 |<| | MOVEA.W #0x0,A6 00021d78 4e f9 00 02 56 22 |N V" | JMP 0x25622 00021d7e 4c df |L | .XXX[0x2] 00021d80 01 00 4e 5e 4e 75 4e 56 | N^NuNV| .XXX[0x20] 00021d88 ff fc bf d5 62 06 44 fc | b D | 00021d90 00 02 4e 76 de fc 00 04 | Nv | 00021d98 2d 79 00 02 78 50 00 08 |-y xP | 00021da0 4e 5e 4e 75 |N^Nu | .XXX[0x4] 00021da4 ; -------------------------------------------------------------------------------------- 00021da4 ; OMSI PASCAL Function 00021da4 ; <LVAR 0x008 1(rw)> 00021da4 ; -------------------------------------------------------------------------------------- 00021da4 4e 56 ff f0 |NV | LINK.W A6,#0xfff0 00021da8 bf d5 | | CMPA.L (A5),A7 00021daa 62 06 |b | BHI 0x21db2 00021dac 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021db0 4e 76 |Nv | TRAPV 00021db2 de fc 00 10 | | ADDA.W #0x10,A7 00021db6 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 00021dba 20 39 00 02 78 50 | 9 xP | MOVE.L 0x27850,D0 00021dc0 b0 b9 00 02 78 54 | xT | CMP.L 0x27854,D0 00021dc6 6f 06 |o | BLE 0x21dce 00021dc8 42 2e 00 08 |B. | CLR.B (A6+0x8) 00021dcc 60 0c |` | BRA 0x21dda 00021dce 41 f9 00 02 58 48 |A XH | LEA.L 0x25848,A0 00021dd4 1d 70 08 07 00 08 | p | MOVE.B (A0+D0.L+#0x7),(A6+0x8) 00021dda 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 00021dde 4e 5e |N^ | UNLK A6 00021de0 4e 75 |Nu | RTS 00021de2 ; -------------------------------------------------------------------------------------- 00021de2 ; OMSI PASCAL Function 00021de2 ; <LVAR 0x008 1(rw)> 00021de2 ; -------------------------------------------------------------------------------------- 00021de2 4e 56 ff ec |NV | LINK.W A6,#0xffec 00021de6 bf d5 | | CMPA.L (A5),A7 00021de8 62 06 |b | BHI 0x21df0 00021dea 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021dee 4e 76 |Nv | TRAPV 00021df0 de fc 00 14 | | ADDA.W #0x14,A7 00021df4 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7) 00021df8 43 f9 00 02 78 50 |C xP | LEA.L 0x27850,A1 00021dfe 20 11 | | MOVE.L (A1),D0 00021e00 b0 b9 00 02 78 54 | xT | CMP.L 0x27854,D0 00021e06 6f 06 |o | BLE 0x21e0e 00021e08 42 2e 00 08 |B. | CLR.B (A6+0x8) 00021e0c 60 0c |` | BRA 0x21e1a 00021e0e 41 f9 00 02 58 48 |A XH | LEA.L 0x25848,A0 00021e14 1d 70 08 07 00 08 | p | MOVE.B (A0+D0.L+#0x7),(A6+0x8) 00021e1a 52 80 |R | ADDQ.L #0x1,D0 00021e1c 22 80 |" | MOVE.L D0,(A1) 00021e1e 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1 00021e22 4e 5e |N^ | UNLK A6 00021e24 4e 75 |Nu | RTS 00021e26 ; -------------------------------------------------------------------------------------- 00021e26 ; OMSI PASCAL Function 00021e26 ; <LVAR 0x00c 4(r)> 00021e26 ; <LVAR 0x008 4(r)> 00021e26 ; -------------------------------------------------------------------------------------- 00021e26 4e 56 ff c0 |NV | LINK.W A6,#0xffc0 00021e2a bf d5 | | CMPA.L (A5),A7 00021e2c 62 06 |b | BHI 0x21e34 00021e2e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021e32 4e 76 |Nv | TRAPV 00021e34 de fc 00 38 | 8 | ADDA.W #0x38,A7 00021e38 48 e7 ff f0 |H | MOVEM.L A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00021e3c 45 ee 00 08 |E | LEA.L (A6+0x8),A2 00021e40 47 f9 00 02 78 50 |G xP | LEA.L 0x27850,A3 00021e46 72 5b |r[ | MOVEQ.L #0x5b,D1 00021e48 74 02 |t | MOVEQ.L #0x02,D2 00021e4a 76 2c |v, | MOVEQ.L #0x2c,D3 00021e4c 78 3b |x; | MOVEQ.L #0x3b,D4 00021e4e 55 4f |UO | SUBQ.L #0x2,A7 00021e50 4e ba ff 52 |N R | JSR 0x21da4 00021e54 10 1f | | MOVE.B (A7)+,D0 00021e56 b0 01 | | CMP.B D1,D0 00021e58 66 0a |f | BNE 0x21e64 00021e5a 4e b9 00 02 51 2c |N Q, | JSR 0x2512c 00021e60 60 00 00 92 |` | BRA 0x21ef4 00021e64 2c 13 |, | MOVE.L (A3),D6 00021e66 55 4f |UO | SUBQ.L #0x2,A7 00021e68 4e ba ff 78 |N x | JSR 0x21de2 00021e6c 1a 1f | | MOVE.B (A7)+,D5 00021e6e 66 18 |f | BNE 0x21e88 00021e70 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 00021e74 43 fa fd e8 |C | LEA.L 0x21c5e,A1 00021e78 70 07 |p | MOVEQ.L #0x07,D0 00021e7a 10 d9 | | MOVE.B (A1)+,(A0)+ 00021e7c 51 c8 ff fc |Q | DBF D0,0x21e7a 00021e80 20 52 | R | MOVEA.L (A2),A0 00021e82 10 82 | | MOVE.B D2,(A0) 00021e84 60 72 |`r | BRA 0x21ef8 00021e86 60 5c |`\ | .XXX[0x2] 00021e88 ba 03 | | CMP.B D3,D5 00021e8a 66 08 |f | BNE 0x21e94 00021e8c 20 52 | R | MOVEA.L (A2),A0 00021e8e 10 bc 00 03 | | MOVE.B #0x03,(A0) 00021e92 60 50 |`P | BRA 0x21ee4 00021e94 ba 04 | | CMP.B D4,D5 00021e96 66 08 |f | BNE 0x21ea0 00021e98 20 52 | R | MOVEA.L (A2),A0 00021e9a 10 bc 00 01 | | MOVE.B #0x01,(A0) 00021e9e 60 44 |`D | BRA 0x21ee4 00021ea0 0c 05 00 5d | ] | CMPI.B #0x5d,D5 00021ea4 66 06 |f | BNE 0x21eac 00021ea6 20 52 | R | MOVEA.L (A2),A0 00021ea8 10 82 | | MOVE.B D2,(A0) 00021eaa 60 38 |`8 | BRA 0x21ee4 00021eac 20 52 | R | MOVEA.L (A2),A0 00021eae 42 10 |B | CLR.B (A0) 00021eb0 55 4f |UO | SUBQ.L #0x2,A7 00021eb2 4e ba fe f0 |N | JSR 0x21da4 00021eb6 1e 1f | | MOVE.B (A7)+,D7 00021eb8 be 01 | | CMP.B D1,D7 00021eba 66 08 |f | BNE 0x21ec4 00021ebc 4e b9 00 02 51 2c |N Q, | JSR 0x2512c 00021ec2 60 1e |` | BRA 0x21ee2 00021ec4 be 04 | | CMP.B D4,D7 00021ec6 67 0e |g | BEQ 0x21ed6 00021ec8 be 03 | | CMP.B D3,D7 00021eca 67 0a |g | BEQ 0x21ed6 00021ecc 0c 07 00 5d | ] | CMPI.B #0x5d,D7 00021ed0 67 04 |g | BEQ 0x21ed6 00021ed2 4a 07 |J | TST.B D7 00021ed4 66 04 |f | BNE 0x21eda 00021ed6 60 0c |` | BRA 0x21ee4 00021ed8 60 08 |` | .XXX[0x2] 00021eda 55 4f |UO | SUBQ.L #0x2,A7 00021edc 4e ba ff 04 |N | JSR 0x21de2 00021ee0 1e 1f | | MOVE.B (A7)+,D7 00021ee2 60 cc |` | BRA 0x21eb0 00021ee4 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 00021ee8 20 86 | | MOVE.L D6,(A0) 00021eea 21 53 00 04 |!S | MOVE.L (A3),(A0+0x4) 00021eee 53 a8 00 04 |S | SUBQ.L #0x1,(A0+0x4) 00021ef2 60 04 |` | BRA 0x21ef8 00021ef4 60 00 ff 58 |` X | BRA 0x21e4e 00021ef8 4c df 0f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3 00021efc 4e 5e |N^ | UNLK A6 00021efe 4e 75 |Nu | RTS 00021f00 ; -------------------------------------------------------------------------------------- 00021f00 ; OMSI PASCAL Function 00021f00 ; <LVAR 0x010 4(r)> 00021f00 ; <LVAR 0x00c 4(r)> 00021f00 ; <LVAR 0x008 4(r)> 00021f00 ; <LVAR -0x004 @ 1(rw)> 00021f00 ; <LVAR -0x008 4(w)> 00021f00 ; <LVAR -0x00c @ 4(w)> 00021f00 ; -------------------------------------------------------------------------------------- 00021f00 4e 56 ff ca |NV | LINK.W A6,#0xffca 00021f04 bf d5 | | CMPA.L (A5),A7 00021f06 62 06 |b | BHI 0x21f0e 00021f08 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021f0c 4e 76 |Nv | TRAPV 00021f0e de fc 00 2a | * | ADDA.W #0x2a,A7 00021f12 48 e7 c0 f0 |H | MOVEM.L A3+A2+A1+A0+D1+D0,-(A7) 00021f16 45 ee ff fc |E | LEA.L (A6-0x4),A2 00021f1a 47 ee ff f4 |G | LEA.L (A6-0xc),A3 00021f1e 72 03 |r | MOVEQ.L #0x03,D1 00021f20 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00021f24 10 10 | | MOVE.B (A0),D0 00021f26 0c 00 00 01 | | CMPI.B #0x01,D0 00021f2a 67 06 |g | BEQ 0x21f32 00021f2c 0c 00 00 02 | | CMPI.B #0x02,D0 00021f30 66 0e |f | BNE 0x21f40 00021f32 26 ba fd 2a |& * | MOVE.L 0x21c5e,(A3) 00021f36 2d 7a fd 2a ff f8 |-z * | MOVE.L 0x21c62,(A6-0x8) 00021f3c 14 80 | | MOVE.B D0,(A2) 00021f3e 60 3c |`< | BRA 0x21f7c 00021f40 48 53 |HS | PEA.L (A3) 00021f42 48 52 |HR | PEA.L (A2) 00021f44 4e ba fe e0 |N | JSR 0x21e26 00021f48 50 4f |PO | ADDQ.L #0x8,A7 00021f4a 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00021f4e 4a 12 |J | TST.B (A2) 00021f50 67 1c |g | BEQ 0x21f6e 00021f52 10 10 | | MOVE.B (A0),D0 00021f54 b0 01 | | CMP.B D1,D0 00021f56 66 16 |f | BNE 0x21f6e 00021f58 10 12 | | MOVE.B (A2),D0 00021f5a 48 80 |H | EXTB.W D0 00021f5c 41 81 |A | CHK.W D1,D0 00021f5e 10 80 | | MOVE.B D0,(A0) 00021f60 26 ba fc fc |& | MOVE.L 0x21c5e,(A3) 00021f64 2d 7a fc fc ff f8 |-z | MOVE.L 0x21c62,(A6-0x8) 00021f6a 42 12 |B | CLR.B (A2) 00021f6c 60 08 |` | BRA 0x21f76 00021f6e 10 12 | | MOVE.B (A2),D0 00021f70 48 80 |H | EXTB.W D0 00021f72 41 81 |A | CHK.W D1,D0 00021f74 10 80 | | MOVE.B D0,(A0) 00021f76 10 12 | | MOVE.B (A2),D0 00021f78 b0 01 | | CMP.B D1,D0 00021f7a 67 c4 |g | BEQ 0x21f40 00021f7c 20 6e 00 10 | n | MOVEA.L (A6+0x10),A0 00021f80 22 4b |"K | MOVEA.L A3,A1 00021f82 70 07 |p | MOVEQ.L #0x07,D0 00021f84 10 d9 | | MOVE.B (A1)+,(A0)+ 00021f86 51 c8 ff fc |Q | DBF D0,0x21f84 00021f8a 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 00021f8e 10 12 | | MOVE.B (A2),D0 00021f90 48 80 |H | EXTB.W D0 00021f92 41 81 |A | CHK.W D1,D0 00021f94 10 80 | | MOVE.B D0,(A0) 00021f96 4c df 0f 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2+A3 00021f9a 4e 5e |N^ | UNLK A6 00021f9c 4e 75 |Nu | RTS 00021f9e ; -------------------------------------------------------------------------------------- 00021f9e ; OMSI PASCAL Function 00021f9e ; <LVAR 0x008 4(rw)> 00021f9e ; <LVAR -0x004 1(rw)> 00021f9e ; <LVAR -0x010 2(rw)> 00021f9e ; -------------------------------------------------------------------------------------- 00021f9e 4e 56 ff c0 |NV | LINK.W A6,#0xffc0 00021fa2 bf d5 | | CMPA.L (A5),A7 00021fa4 62 06 |b | BHI 0x21fac 00021fa6 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021faa 4e 76 |Nv | TRAPV 00021fac de fc 00 30 | 0 | ADDA.W #0x30,A7 00021fb0 48 e7 c7 f0 |H | MOVEM.L A3+A2+A1+A0+D7+D6+D5+D1+D0,-(A7) 00021fb4 43 ee ff f0 |C | LEA.L (A6-0x10),A1 00021fb8 45 ee ff fc |E | LEA.L (A6-0x4),A2 00021fbc 47 ee 00 08 |G | LEA.L (A6+0x8),A3 00021fc0 72 20 |r | MOVEQ.L #0x20,D1 00021fc2 7c 01 || | MOVEQ.L #0x01,D6 00021fc4 42 51 |BQ | CLR.W (A1) 00021fc6 7a 01 |z | MOVEQ.L #0x01,D5 00021fc8 59 4f |YO | SUBQ.L #0x4,A7 00021fca 2f 13 |/ | MOVE.L (A3),-(A7) 00021fcc 4e b9 00 01 02 f0 |N | JSR ToUpper(a : String) : String 00021fd2 58 4f |XO | ADDQ.L #0x4,A7 00021fd4 26 9f |& | MOVE.L (A7)+,(A3) 00021fd6 20 53 | S | MOVEA.L (A3),A0 00021fd8 2f 08 |/ | MOVE.L A0,-(A7) 00021fda 20 57 | W | MOVEA.L (A7),A0 00021fdc 30 10 |0 | MOVE.W (A0),D0 00021fde 48 c0 |H | EXTW.L D0 00021fe0 bc 80 | | CMP.L D0,D6 00021fe2 6e 00 00 b0 |n | BGT 0x22094 00021fe6 42 80 |B | CLR.L D0 00021fe8 10 30 68 01 | 0h | MOVE.B (A0+D6.L+#0x1),D0 00021fec 02 40 00 7f | @ | ANDI.W #0x007f,D0 00021ff0 14 80 | | MOVE.B D0,(A2) 00021ff2 0c 00 00 09 | | CMPI.B #0x09,D0 00021ff6 66 02 |f | BNE 0x21ffa 00021ff8 14 81 | | MOVE.B D1,(A2) 00021ffa 42 80 |B | CLR.L D0 00021ffc 10 12 | | MOVE.B (A2),D0 00021ffe 90 41 | A | SUB.W D1,D0 00022000 0c 40 00 0c | @ | CMPI.W #0x000c,D0 00022004 62 30 |b0 | BHI switch@0x22008[0x2] 00022006 d0 40 | @ | ADD.W D0,D0 00022008 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 00022010 00 1e | | .CONST 0x1e ; [0x0] -> 0x2202e 00022012 00 1a | | .CONST 0x1a ; [0x1] -> 0x2202a 00022014 00 26 | & | .CONST 0x26 ; [0x2] -> 0x22036 00022016 00 26 | & | .CONST 0x26 ; [0x3] -> 0x22036 00022018 00 26 | & | .CONST 0x26 ; [0x4] -> 0x22036 0002201a 00 26 | & | .CONST 0x26 ; [0x5] -> 0x22036 0002201c 00 26 | & | .CONST 0x26 ; [0x6] -> 0x22036 0002201e 00 26 | & | .CONST 0x26 ; [0x7] -> 0x22036 00022020 00 26 | & | .CONST 0x26 ; [0x8] -> 0x22036 00022022 00 26 | & | .CONST 0x26 ; [0x9] -> 0x22036 00022024 00 26 | & | .CONST 0x26 ; [0xa] -> 0x22036 00022026 00 26 | & | .CONST 0x26 ; [0xb] -> 0x22036 00022028 00 22 | " | .CONST 0x22 ; [0xc] -> 0x22032 0002202a switch@0x22008[0x1]: 0002202a 60 68 |`h | BRA 0x22094 0002202c 60 0a |` | .XXX[0x2] 0002202e switch@0x22008[0x0]: 0002202e 7e 00 |~ | MOVEQ.L #0x00,D7 00022030 60 06 |` | BRA 0x22038 00022032 switch@0x22008[0xc]: 00022032 7e 01 |~ | MOVEQ.L #0x01,D7 00022034 60 02 |` | BRA 0x22038 00022036 switch@0x22008[0x2]: 00022036 switch@0x22008[0x3]: 00022036 switch@0x22008[0x4]: 00022036 switch@0x22008[0x5]: 00022036 switch@0x22008[0x6]: 00022036 switch@0x22008[0x7]: 00022036 switch@0x22008[0x8]: 00022036 switch@0x22008[0x9]: 00022036 switch@0x22008[0xa]: 00022036 switch@0x22008[0xb]: 00022036 7e 02 |~ | MOVEQ.L #0x02,D7 00022038 70 03 |p | MOVEQ.L #0x03,D0 0002203a c1 d1 | | MULS.W (A1),D0 0002203c 41 fa fc 28 |A ( | LEA.L 0x21c66,A0 00022040 41 f0 00 00 |A | LEA.L (A0+D0.W),A0 00022044 42 80 |B | CLR.L D0 00022046 10 30 70 00 | 0p | MOVE.B (A0+D7.W),D0 0002204a 0c 40 00 02 | @ | CMPI.W #0x0002,D0 0002204e 63 02 |c | BLS 0x22052 00022050 4e 4e |NN | TRAP #14 00022052 d0 40 | @ | ADD.W D0,D0 00022054 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 0002205c 00 06 | | .CONST 0x6 ; [0x0] -> 0x22062 0002205e 00 08 | | .CONST 0x8 ; [0x1] -> 0x22064 00022060 00 12 | | .CONST 0x12 ; [0x2] -> 0x2206e 00022062 switch@0x22054[0x0]: 00022062 60 16 |` | BRA 0x2207a 00022064 switch@0x22054[0x1]: 00022064 20 57 | W | MOVEA.L (A7),A0 00022066 11 92 58 01 | X | MOVE.B (A2),(A0+D5.L+#0x1) 0002206a 52 85 |R | ADDQ.L #0x1,D5 0002206c 60 0c |` | BRA 0x2207a 0002206e switch@0x22054[0x2]: 0002206e 20 57 | W | MOVEA.L (A7),A0 00022070 11 bc 00 2c 58 01 | ,X | MOVE.B #0x2c,(A0+D5.L+#0x1) 00022076 52 85 |R | ADDQ.L #0x1,D5 00022078 53 86 |S | SUBQ.L #0x1,D6 0002207a 70 03 |p | MOVEQ.L #0x03,D0 0002207c c1 d1 | | MULS.W (A1),D0 0002207e 41 fa fb ef |A | LEA.L 0x21c6f,A0 00022082 41 f0 00 00 |A | LEA.L (A0+D0.W),A0 00022086 42 80 |B | CLR.L D0 00022088 10 30 70 00 | 0p | MOVE.B (A0+D7.W),D0 0002208c 32 80 |2 | MOVE.W D0,(A1) 0002208e 52 86 |R | ADDQ.L #0x1,D6 00022090 60 00 ff 48 |` H | BRA 0x21fda 00022094 20 57 | W | MOVEA.L (A7),A0 00022096 20 05 | | MOVE.L D5,D0 00022098 53 80 |S | SUBQ.L #0x1,D0 0002209a 30 80 |0 | MOVE.W D0,(A0) 0002209c 58 4f |XO | ADDQ.L #0x4,A7 0002209e 4c df 0f e3 |L | MOVEM.L (A7)+,D0+D1+D5+D6+D7+A0+A1+A2+A3 000220a2 4e 5e |N^ | UNLK A6 000220a4 4e 75 |Nu | RTS 000220a6 ; -------------------------------------------------------------------------------------- 000220a6 ; OMSI PASCAL Function 000220a6 ; <LVAR 0x00c 4(r)> 000220a6 ; <LVAR 0x008 4(r)> 000220a6 ; <LVAR -0x002 @ 1(r)> 000220a6 ; <LVAR -0x00a @> 000220a6 ; <LVAR -0x00e @ 4(r)> 000220a6 ; <LVAR -0x014 @ 1(r)> 000220a6 ; -------------------------------------------------------------------------------------- 000220a6 4e 56 ff bc |NV | LINK.W A6,#0xffbc 000220aa bf d5 | | CMPA.L (A5),A7 000220ac 62 06 |b | BHI 0x220b4 000220ae 44 fc 00 02 |D | MOVE.W #0x2,CCR 000220b2 4e 76 |Nv | TRAPV 000220b4 de fc 00 30 | 0 | ADDA.W #0x30,A7 000220b8 48 e7 c1 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D1+D0,-(A7) 000220bc 47 ee ff f2 |G | LEA.L (A6-0xe),A3 000220c0 72 01 |r | MOVEQ.L #0x01,D1 000220c2 55 4f |UO | SUBQ.L #0x2,A7 000220c4 4e ba fc de |N | JSR 0x21da4 000220c8 10 1f | | MOVE.B (A7)+,D0 000220ca 0c 00 00 5b | [ | CMPI.B #0x5b,D0 000220ce 66 08 |f | BNE 0x220d8 000220d0 55 4f |UO | SUBQ.L #0x2,A7 000220d2 4e ba fd 0e |N | JSR 0x21de2 000220d6 1e 1f | | MOVE.B (A7)+,D7 000220d8 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 000220dc 20 81 | | MOVE.L D1,(A0) 000220de 42 2e ff ec |B. | CLR.B (A6-0x14) 000220e2 48 6e ff f6 |Hn | PEA.L (A6-0xa) 000220e6 48 6e ff fe |Hn | PEA.L (A6-0x2) 000220ea 48 6e ff ec |Hn | PEA.L (A6-0x14) 000220ee 4e ba fe 10 |N | JSR 0x21f00 000220f2 de fc 00 0c | | ADDA.W #0xc,A7 000220f6 4a 2e ff fe |J. | TST.B (A6-0x2) 000220fa 66 36 |f6 | BNE 0x22132 000220fc 48 53 |HS | PEA.L (A3) 000220fe 48 78 00 0c |Hx | PEA.L 0xc 00022102 4e b9 00 01 02 9c |N | JSR Malloc1(length : Long) : Pointer 00022108 50 4f |PO | ADDQ.L #0x8,A7 0002210a 20 53 | S | MOVEA.L (A3),A0 0002210c 22 48 |"H | MOVEA.L A0,A1 0002210e 45 ee ff f6 |E | LEA.L (A6-0xa),A2 00022112 70 07 |p | MOVEQ.L #0x07,D0 00022114 12 da | | MOVE.B (A2)+,(A1)+ 00022116 51 c8 ff fc |Q | DBF D0,0x22114 0002211a 21 41 00 08 |!A | MOVE.L D1,(A0+0x8) 0002211e 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 00022122 22 50 |"P | MOVEA.L (A0),A1 00022124 b2 c1 | | CMPA.W D1,A1 00022126 66 04 |f | BNE 0x2212c 00022128 20 93 | | MOVE.L (A3),(A0) 0002212a 60 04 |` | BRA 0x22130 0002212c 29 53 00 08 |)S | MOVE.L (A3),(A4+0x8) 00022130 28 53 |(S | MOVEA.L (A3),A4 00022132 4a 2e ff fe |J. | TST.B (A6-0x2) 00022136 67 aa |g | BEQ 0x220e2 00022138 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 0002213c 42 10 |B | CLR.B (A0) 0002213e 10 2e ff fe | . | MOVE.B (A6-0x2),D0 00022142 0c 00 00 02 | | CMPI.B #0x02,D0 00022146 66 02 |f | BNE 0x2214a 00022148 52 10 |R | ADDQ.B #0x1,(A0) 0002214a 4c df 1f 83 |L | MOVEM.L (A7)+,D0+D1+D7+A0+A1+A2+A3+A4 0002214e 4e 5e |N^ | UNLK A6 00022150 4e 75 |Nu | RTS 00022152 ; -------------------------------------------------------------------------------------- 00022152 ; OMSI PASCAL Function 00022152 ; <LVAR 0x00c 4(w)> 00022152 ; <LVAR 0x008 4(r)> 00022152 ; -------------------------------------------------------------------------------------- 00022152 4e 56 ff ec |NV | LINK.W A6,#0xffec 00022156 bf d5 | | CMPA.L (A5),A7 00022158 62 06 |b | BHI 0x22160 0002215a 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002215e 4e 76 |Nv | TRAPV 00022160 de fc 00 0c | | ADDA.W #0xc,A7 00022164 48 e7 01 08 |H | MOVEM.L A4+D7,-(A7) 00022168 7e ff |~ | MOVEQ.L #-0x01,D7 0002216a 28 6e 00 08 |(n | MOVEA.L (A6+0x8),A4 0002216e b8 fc 00 01 | | CMPA.W #0x1,A4 00022172 67 08 |g | BEQ 0x2217c 00022174 52 87 |R | ADDQ.L #0x1,D7 00022176 28 6c 00 08 |(l | MOVEA.L (A4+0x8),A4 0002217a 60 f2 |` | BRA 0x2216e 0002217c 2d 47 00 0c |-G | MOVE.L D7,(A6+0xc) 00022180 4c df 10 80 |L | MOVEM.L (A7)+,D7+A4 00022184 4e 5e |N^ | UNLK A6 00022186 4e 75 |Nu | RTS 00022188 ; -------------------------------------------------------------------------------------- 00022188 ; OMSI PASCAL Function 00022188 ; <LVAR 0x00c 4(r)> 00022188 ; <LVAR 0x008 4(r)> 00022188 ; -------------------------------------------------------------------------------------- 00022188 4e 56 ff b0 |NV | LINK.W A6,#0xffb0 0002218c bf d5 | | CMPA.L (A5),A7 0002218e 62 06 |b | BHI 0x22196 00022190 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022194 4e 76 |Nv | TRAPV 00022196 de fc 00 4e | N | ADDA.W #0x4e,A7 0002219a 48 e7 c0 80 |H | MOVEM.L A0+D1+D0,-(A7) 0002219e 72 01 |r | MOVEQ.L #0x01,D1 000221a0 59 4f |YO | SUBQ.L #0x4,A7 000221a2 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 000221a6 4e ba ff aa |N | JSR 0x22152 000221aa 58 4f |XO | ADDQ.L #0x4,A7 000221ac 20 1f | | MOVE.L (A7)+,D0 000221ae b0 ae 00 08 | | CMP.L (A6+0x8),D0 000221b2 67 58 |gX | BEQ 0x2220c 000221b4 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 000221b8 4e ba fb 4a |N J | JSR 0x21d04 000221bc 58 4f |XO | ADDQ.L #0x4,A7 000221be 41 fa f6 a0 |A | LEA.L 0x21860,A0 000221c2 70 07 |p | MOVEQ.L #0x07,D0 000221c4 2f 20 |/ | MOVE.L -(A0),-(A7) 000221c6 51 c8 ff fc |Q | DBF D0,0x221c4 000221ca 41 ee 00 1a |A | LEA.L (A6+0x1a),A0 000221ce 70 04 |p | MOVEQ.L #0x04,D0 000221d0 3f 20 |? | MOVE.W -(A0),-(A7) 000221d2 51 c8 ff fc |Q | DBF D0,0x221d0 000221d6 51 4f |QO | SUBQ.L #0x8,A7 000221d8 48 6f 00 12 |Ho | PEA.L (A7+0x12) 000221dc 3f 01 |? | MOVE.W D1,-(A7) 000221de 3f 3c 00 20 |?< | MOVE.W #0x20,-(A7) 000221e2 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000221e8 58 4f |XO | ADDQ.L #0x4,A7 000221ea 48 6f 00 0c |Ho | PEA.L (A7+0xc) 000221ee 3f 01 |? | MOVE.W D1,-(A7) 000221f0 3f 3c 00 0a |?< | MOVE.W #0xa,-(A7) 000221f4 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000221fa 50 4f |PO | ADDQ.L #0x8,A7 000221fc 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00022202 50 4f |PO | ADDQ.L #0x8,A7 00022204 4e ba fb 40 |N @ | JSR 0x21d46 00022208 de fc 00 2e | . | ADDA.W #0x2e,A7 0002220c 4c df 01 03 |L | MOVEM.L (A7)+,D0+D1+A0 00022210 4e 5e |N^ | UNLK A6 00022212 4e 75 |Nu | RTS 00022214 ; -------------------------------------------------------------------------------------- 00022214 ; OMSI PASCAL Function 00022214 ; <LVAR 0x014 1(rw)> 00022214 ; <LVAR 0x010 4(r)> 00022214 ; <LVAR 0x00c 4(r)> 00022214 ; <LVAR 0x008 4(r)> 00022214 ; -------------------------------------------------------------------------------------- 00022214 4e 56 ff dc |NV | LINK.W A6,#0xffdc ; Spelunked 00022218 bf d5 | | CMPA.L (A5),A7 0002221a 62 06 |b | BHI 0x22222 0002221c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022220 4e 76 |Nv | TRAPV 00022222 de fc 00 20 | | ADDA.W #0x20,A7 00022226 48 e7 c1 c0 |H | MOVEM.L A1+A0+D7+D1+D0,-(A7) 0002222a 42 2e 00 14 |B. | CLR.B (A6+0x14) 0002222e 20 2e 00 10 | . | MOVE.L (A6+0x10),D0 00022232 d0 ae 00 08 | | ADD.L (A6+0x8),D0 00022236 b0 b9 00 02 78 54 | xT | CMP.L 0x27854,D0 0002223c 6e 4e |nN | BGT 0x2228c 0002223e 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022242 7e 01 |~ | MOVEQ.L #0x01,D7 00022244 be 97 | | CMP.L (A7),D7 00022246 6e 42 |nB | BGT 0x2228a 00022248 20 2e 00 10 | . | MOVE.L (A6+0x10),D0 0002224c d0 87 | | ADD.L D7,D0 0002224e 53 80 |S | SUBQ.L #0x1,D0 00022250 0c 80 00 00 1f ff | | CMPI.L #0x00001fff,D0 00022256 63 02 |c | BLS 0x2225a 00022258 4e 4f |NO | TRAP #15 0002225a 41 f9 00 02 58 48 |A XH | LEA.L 0x25848,A0 00022260 22 2e 00 0c |". | MOVE.L (A6+0xc),D1 00022264 d2 87 | | ADD.L D7,D1 00022266 53 81 |S | SUBQ.L #0x1,D1 00022268 53 81 |S | SUBQ.L #0x1,D1 0002226a 0c 81 00 00 00 3e | > | CMPI.L #0x0000003e,D1 00022270 63 02 |c | BLS 0x22274 00022272 4e 4f |NO | TRAP #15 00022274 43 fa f5 ea |C | LEA.L 0x21860,A1 00022278 10 30 08 08 | 0 | MOVE.B (A0+D0.L+#0x8),D0 0002227c b0 31 18 00 | 1 | CMP.B (A1+D1.L),D0 00022280 67 04 |g | BEQ 0x22286 00022282 58 4f |XO | ADDQ.L #0x4,A7 00022284 60 0c |` | BRA 0x22292 00022286 52 87 |R | ADDQ.L #0x1,D7 00022288 68 ba |h | BVC 0x22244 0002228a 58 4f |XO | ADDQ.L #0x4,A7 0002228c 1d 7c 00 01 00 14 | | | MOVE.B #0x01,(A6+0x14) 00022292 4c df 03 83 |L | MOVEM.L (A7)+,D0+D1+D7+A0+A1 00022296 4e 5e |N^ | UNLK A6 00022298 4e 75 |Nu | RTS 0002229a ; -------------------------------------------------------------------------------------- 0002229a ; OMSI PASCAL Function 0002229a ; <LVAR 0x00c 4(r)> 0002229a ; <LVAR 0x008 4(r)> 0002229a ; -------------------------------------------------------------------------------------- 0002229a 4e 56 ff bc |NV | LINK.W A6,#0xffbc 0002229e bf d5 | | CMPA.L (A5),A7 000222a0 62 06 |b | BHI 0x222a8 000222a2 44 fc 00 02 |D | MOVE.W #0x2,CCR 000222a6 4e 76 |Nv | TRAPV 000222a8 de fc 00 40 | @ | ADDA.W #0x40,A7 000222ac 48 e7 80 f0 |H | MOVEM.L A3+A2+A1+A0+D0,-(A7) 000222b0 45 f9 00 02 78 54 |E xT | LEA.L 0x27854,A2 000222b6 47 ee 00 08 |G | LEA.L (A6+0x8),A3 000222ba 4a 93 |J | TST.L (A3) 000222bc 6c 3e |l> | BGE 0x222fc 000222be 20 13 | | MOVE.L (A3),D0 000222c0 44 80 |D | NEG.L D0 000222c2 d0 92 | | ADD.L (A2),D0 000222c4 0c 80 00 00 20 00 | | CMPI.L #0x00002000,D0 000222ca 6f 30 |o0 | BLE 0x222fc 000222cc 9e fc 00 1c | | SUBA.W #0x1c,A7 000222d0 20 4f | O | MOVEA.L A7,A0 000222d2 43 fa f5 cc |C | LEA.L 0x218a0,A1 000222d6 70 1a |p | MOVEQ.L #0x1a,D0 000222d8 10 d9 | | MOVE.B (A1)+,(A0)+ 000222da 51 c8 ff fc |Q | DBF D0,0x222d8 000222de 59 4f |YO | SUBQ.L #0x4,A7 000222e0 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000222e4 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000222e8 3f 3c 00 1b |?< | MOVE.W #0x1b,-(A7) 000222ec 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000222f2 50 4f |PO | ADDQ.L #0x8,A7 000222f4 4e ba fa 50 |N P | JSR 0x21d46 000222f8 de fc 00 20 | | ADDA.W #0x20,A7 000222fc 41 f9 00 02 58 50 |A XP | LEA.L 0x25850,A0 00022302 2f 08 |/ | MOVE.L A0,-(A7) 00022304 2f 12 |/ | MOVE.L (A2),-(A7) 00022306 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 0002230a 2f 13 |/ | MOVE.L (A3),-(A7) 0002230c 4e b9 00 01 03 64 |N d | JSR MovStringTail(Base, Len, Ptr, Delta) 00022312 de fc 00 10 | | ADDA.W #0x10,A7 00022316 20 12 | | MOVE.L (A2),D0 00022318 90 93 | | SUB.L (A3),D0 0002231a 24 80 |$ | MOVE.L D0,(A2) 0002231c 4c df 0f 01 |L | MOVEM.L (A7)+,D0+A0+A1+A2+A3 00022320 4e 5e |N^ | UNLK A6 00022322 4e 75 |Nu | RTS 00022324 ; -------------------------------------------------------------------------------------- 00022324 ; OMSI PASCAL Function 00022324 ; <LVAR 0x00c 4(r)> 00022324 ; <LVAR 0x008 4(r)> 00022324 ; -------------------------------------------------------------------------------------- 00022324 4e 56 ff d4 |NV | LINK.W A6,#0xffd4 00022328 bf d5 | | CMPA.L (A5),A7 0002232a 62 06 |b | BHI 0x22332 0002232c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022330 4e 76 |Nv | TRAPV 00022332 de fc 00 28 | ( | ADDA.W #0x28,A7 00022336 48 e7 c1 e0 |H | MOVEM.L A2+A1+A0+D7+D1+D0,-(A7) 0002233a 45 ee 00 0c |E | LEA.L (A6+0xc),A2 0002233e 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00022342 2f 08 |/ | MOVE.L A0,-(A7) 00022344 22 52 |"R | MOVEA.L (A2),A1 00022346 2f 11 |/ | MOVE.L (A1),-(A7) 00022348 30 10 |0 | MOVE.W (A0),D0 0002234a 48 c0 |H | EXTW.L D0 0002234c 44 80 |D | NEG.L D0 0002234e 2f 00 |/ | MOVE.L D0,-(A7) 00022350 4e ba ff 48 |N H | JSR 0x2229a 00022354 50 4f |PO | ADDQ.L #0x8,A7 00022356 30 10 |0 | MOVE.W (A0),D0 00022358 48 c0 |H | EXTW.L D0 0002235a 2f 00 |/ | MOVE.L D0,-(A7) 0002235c 7e 01 |~ | MOVEQ.L #0x01,D7 0002235e be 97 | | CMP.L (A7),D7 00022360 6e 36 |n6 | BGT 0x22398 00022362 20 52 | R | MOVEA.L (A2),A0 00022364 20 07 | | MOVE.L D7,D0 00022366 d0 90 | | ADD.L (A0),D0 00022368 53 80 |S | SUBQ.L #0x1,D0 0002236a 53 80 |S | SUBQ.L #0x1,D0 0002236c 0c 80 00 00 1f ff | | CMPI.L #0x00001fff,D0 00022372 63 02 |c | BLS 0x22376 00022374 4e 4f |NO | TRAP #15 00022376 41 f9 00 02 58 48 |A XH | LEA.L 0x25848,A0 0002237c 22 07 |" | MOVE.L D7,D1 0002237e 53 81 |S | SUBQ.L #0x1,D1 00022380 0c 81 00 00 00 7d | } | CMPI.L #0x0000007d,D1 00022386 63 02 |c | BLS 0x2238a 00022388 4e 4f |NO | TRAP #15 0002238a 22 6f 00 04 |"o | MOVEA.L (A7+0x4),A1 0002238e 11 b1 18 02 08 08 | | MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x8) 00022394 52 87 |R | ADDQ.L #0x1,D7 00022396 68 c6 |h | BVC 0x2235e 00022398 58 4f |XO | ADDQ.L #0x4,A7 0002239a 20 52 | R | MOVEA.L (A2),A0 0002239c 22 57 |"W | MOVEA.L (A7),A1 0002239e 30 11 |0 | MOVE.W (A1),D0 000223a0 48 c0 |H | EXTW.L D0 000223a2 d1 90 | | ADD.L D0,(A0) 000223a4 58 4f |XO | ADDQ.L #0x4,A7 000223a6 4c df 07 83 |L | MOVEM.L (A7)+,D0+D1+D7+A0+A1+A2 000223aa 4e 5e |N^ | UNLK A6 000223ac 4e 75 |Nu | RTS 000223ae ; -------------------------------------------------------------------------------------- 000223ae ; OMSI PASCAL Function 000223ae ; <LVAR 0x00c 4(r)> 000223ae ; <LVAR 0x008 4(r)> 000223ae ; -------------------------------------------------------------------------------------- 000223ae 4e 56 ff a8 |NV | LINK.W A6,#0xffa8 000223b2 bf d5 | | CMPA.L (A5),A7 000223b4 62 06 |b | BHI 0x223bc 000223b6 44 fc 00 02 |D | MOVE.W #0x2,CCR 000223ba 4e 76 |Nv | TRAPV 000223bc de fc 00 50 | P | ADDA.W #0x50,A7 000223c0 48 e7 c3 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D1+D0,-(A7) 000223c4 45 fa fe 4e |E N | LEA.L 0x22214,A2 000223c8 47 f8 00 04 |G | LEA.L 0x4,A3 000223cc 49 ee 00 08 |I | LEA.L (A6+0x8),A4 000223d0 72 0c |r | MOVEQ.L #0x0c,D1 000223d2 7e 00 |~ | MOVEQ.L #0x00,D7 000223d4 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 000223d8 42 90 |B | CLR.L (A0) 000223da 20 54 | T | MOVEA.L (A4),A0 000223dc 42 90 |B | CLR.L (A0) 000223de 2c 39 00 02 78 50 |,9 xP | MOVE.L 0x27850,D6 000223e4 20 06 | | MOVE.L D6,D0 000223e6 53 80 |S | SUBQ.L #0x1,D0 000223e8 0c 80 00 00 1f ff | | CMPI.L #0x00001fff,D0 000223ee 63 02 |c | BLS 0x223f2 000223f0 4e 4f |NO | TRAP #15 000223f2 41 f9 00 02 58 48 |A XH | LEA.L 0x25848,A0 000223f8 10 30 08 08 | 0 | MOVE.B (A0+D0.L+#0x8),D0 000223fc 0c 00 00 5b | [ | CMPI.B #0x5b,D0 00022400 66 00 00 d4 |f | BNE 0x224d6 00022404 55 4f |UO | SUBQ.L #0x2,A7 00022406 2f 06 |/ | MOVE.L D6,-(A7) 00022408 48 78 00 01 |Hx | PEA.L 0x1 0002240c 48 78 00 03 |Hx | PEA.L 0x3 00022410 4e 92 |N | JSR (A2) 00022412 de c1 | | ADDA.W D1,A7 00022414 4a 1f |J | TST.B (A7)+ 00022416 66 7e |f~ | BNE 0x22496 00022418 55 4f |UO | SUBQ.L #0x2,A7 0002241a 2f 06 |/ | MOVE.L D6,-(A7) 0002241c 48 53 |HS | PEA.L (A3) 0002241e 48 78 00 03 |Hx | PEA.L 0x3 00022422 4e 92 |N | JSR (A2) 00022424 de c1 | | ADDA.W D1,A7 00022426 4a 1f |J | TST.B (A7)+ 00022428 66 6c |fl | BNE 0x22496 0002242a 55 4f |UO | SUBQ.L #0x2,A7 0002242c 2f 06 |/ | MOVE.L D6,-(A7) 0002242e 48 78 00 07 |Hx | PEA.L 0x7 00022432 48 53 |HS | PEA.L (A3) 00022434 4e 92 |N | JSR (A2) 00022436 de c1 | | ADDA.W D1,A7 00022438 4a 1f |J | TST.B (A7)+ 0002243a 66 5a |fZ | BNE 0x22496 0002243c 55 4f |UO | SUBQ.L #0x2,A7 0002243e 2f 06 |/ | MOVE.L D6,-(A7) 00022440 48 78 00 0b |Hx | PEA.L 0xb 00022444 48 53 |HS | PEA.L (A3) 00022446 4e 92 |N | JSR (A2) 00022448 de c1 | | ADDA.W D1,A7 0002244a 4a 1f |J | TST.B (A7)+ 0002244c 66 48 |fH | BNE 0x22496 0002244e 55 4f |UO | SUBQ.L #0x2,A7 00022450 2f 06 |/ | MOVE.L D6,-(A7) 00022452 48 78 00 0f |Hx | PEA.L 0xf 00022456 48 53 |HS | PEA.L (A3) 00022458 4e 92 |N | JSR (A2) 0002245a de c1 | | ADDA.W D1,A7 0002245c 4a 1f |J | TST.B (A7)+ 0002245e 66 36 |f6 | BNE 0x22496 00022460 55 4f |UO | SUBQ.L #0x2,A7 00022462 2f 06 |/ | MOVE.L D6,-(A7) 00022464 48 78 00 13 |Hx | PEA.L 0x13 00022468 48 53 |HS | PEA.L (A3) 0002246a 4e 92 |N | JSR (A2) 0002246c de c1 | | ADDA.W D1,A7 0002246e 4a 1f |J | TST.B (A7)+ 00022470 66 24 |f$ | BNE 0x22496 00022472 55 4f |UO | SUBQ.L #0x2,A7 00022474 2f 06 |/ | MOVE.L D6,-(A7) 00022476 48 78 00 17 |Hx | PEA.L 0x17 0002247a 48 53 |HS | PEA.L (A3) 0002247c 4e 92 |N | JSR (A2) 0002247e de c1 | | ADDA.W D1,A7 00022480 4a 1f |J | TST.B (A7)+ 00022482 66 12 |f | BNE 0x22496 00022484 55 4f |UO | SUBQ.L #0x2,A7 00022486 2f 06 |/ | MOVE.L D6,-(A7) 00022488 48 78 00 1b |Hx | PEA.L 0x1b 0002248c 48 53 |HS | PEA.L (A3) 0002248e 4e 92 |N | JSR (A2) 00022490 de c1 | | ADDA.W D1,A7 00022492 4a 1f |J | TST.B (A7)+ 00022494 67 04 |g | BEQ 0x2249a 00022496 52 87 |R | ADDQ.L #0x1,D7 00022498 60 3c |`< | BRA 0x224d6 0002249a 4a 87 |J | TST.L D7 0002249c 66 1c |f | BNE 0x224ba 0002249e 55 4f |UO | SUBQ.L #0x2,A7 000224a0 2f 06 |/ | MOVE.L D6,-(A7) 000224a2 48 78 00 1f |Hx | PEA.L 0x1f 000224a6 48 78 00 05 |Hx | PEA.L 0x5 000224aa 4e 92 |N | JSR (A2) 000224ac de c1 | | ADDA.W D1,A7 000224ae 4a 1f |J | TST.B (A7)+ 000224b0 67 08 |g | BEQ 0x224ba 000224b2 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 000224b6 20 86 | | MOVE.L D6,(A0) 000224b8 60 1c |` | BRA 0x224d6 000224ba 55 4f |UO | SUBQ.L #0x2,A7 000224bc 2f 06 |/ | MOVE.L D6,-(A7) 000224be 48 78 00 24 |Hx $ | PEA.L 0x24 000224c2 48 53 |HS | PEA.L (A3) 000224c4 4e 92 |N | JSR (A2) 000224c6 de c1 | | ADDA.W D1,A7 000224c8 4a 1f |J | TST.B (A7)+ 000224ca 67 0a |g | BEQ 0x224d6 000224cc 4a 87 |J | TST.L D7 000224ce 66 04 |f | BNE 0x224d4 000224d0 20 54 | T | MOVEA.L (A4),A0 000224d2 60 e2 |` | BRA 0x224b6 000224d4 53 87 |S | SUBQ.L #0x1,D7 000224d6 52 86 |R | ADDQ.L #0x1,D6 000224d8 bc b9 00 02 78 54 | xT | CMP.L 0x27854,D6 000224de 6e 0e |n | BGT 0x224ee 000224e0 4a 87 |J | TST.L D7 000224e2 66 00 ff 00 |f | BNE 0x223e4 000224e6 20 54 | T | MOVEA.L (A4),A0 000224e8 4a 90 |J | TST.L (A0) 000224ea 67 00 fe f8 |g | BEQ 0x223e4 000224ee bc b9 00 02 78 54 | xT | CMP.L 0x27854,D6 000224f4 6f 30 |o0 | BLE 0x22526 000224f6 9e fc 00 1c | | SUBA.W #0x1c,A7 000224fa 20 4f | O | MOVEA.L A7,A0 000224fc 43 fa f3 be |C | LEA.L 0x218bc,A1 00022500 70 1a |p | MOVEQ.L #0x1a,D0 00022502 10 d9 | | MOVE.B (A1)+,(A0)+ 00022504 51 c8 ff fc |Q | DBF D0,0x22502 00022508 59 4f |YO | SUBQ.L #0x4,A7 0002250a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002250e 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00022512 3f 3c 00 1b |?< | MOVE.W #0x1b,-(A7) 00022516 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002251c 50 4f |PO | ADDQ.L #0x8,A7 0002251e 4e ba f8 26 |N & | JSR 0x21d46 00022522 de fc 00 20 | | ADDA.W #0x20,A7 00022526 4c df 1f c3 |L | MOVEM.L (A7)+,D0+D1+D6+D7+A0+A1+A2+A3+A4 0002252a 4e 5e |N^ | UNLK A6 0002252c 4e 75 |Nu | RTS 0002252e ; -------------------------------------------------------------------------------------- 0002252e ; OMSI PASCAL Function 0002252e ; <LVAR -0x004 @ 4(r)> 0002252e ; <LVAR -0x008 @ 4(rw)> 0002252e ; -------------------------------------------------------------------------------------- 0002252e 4e 56 ff dc |NV | LINK.W A6,#0xffdc 00022532 bf d5 | | CMPA.L (A5),A7 00022534 62 06 |b | BHI 0x2253c 00022536 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002253a 4e 76 |Nv | TRAPV 0002253c de fc 00 1c | | ADDA.W #0x1c,A7 00022540 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7) 00022544 41 ee ff f8 |A | LEA.L (A6-0x8),A0 00022548 43 ee ff fc |C | LEA.L (A6-0x4),A1 0002254c 48 50 |HP | PEA.L (A0) 0002254e 48 51 |HQ | PEA.L (A1) 00022550 4e ba fe 5c |N \ | JSR 0x223ae 00022554 50 4f |PO | ADDQ.L #0x8,A7 00022556 4a 90 |J | TST.L (A0) 00022558 66 02 |f | BNE 0x2255c 0002255a 20 91 | | MOVE.L (A1),(A0) 0002255c 20 11 | | MOVE.L (A1),D0 0002255e 5a 80 |Z | ADDQ.L #0x5,D0 00022560 2f 00 |/ | MOVE.L D0,-(A7) 00022562 90 90 | | SUB.L (A0),D0 00022564 2f 00 |/ | MOVE.L D0,-(A7) 00022566 4e ba fd 32 |N 2 | JSR 0x2229a 0002256a 50 4f |PO | ADDQ.L #0x8,A7 0002256c 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1 00022570 4e 5e |N^ | UNLK A6 00022572 4e 75 |Nu | RTS 00022574 ; -------------------------------------------------------------------------------------- 00022574 ; OMSI PASCAL Function 00022574 ; <LVAR -0x004 @ 4(r)> 00022574 ; <LVAR -0x008 @ 4(r)> 00022574 ; -------------------------------------------------------------------------------------- 00022574 4e 56 ff dc |NV | LINK.W A6,#0xffdc 00022578 bf d5 | | CMPA.L (A5),A7 0002257a 62 06 |b | BHI 0x22582 0002257c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022580 4e 76 |Nv | TRAPV 00022582 de fc 00 1c | | ADDA.W #0x1c,A7 00022586 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7) 0002258a 41 ee ff f8 |A | LEA.L (A6-0x8),A0 0002258e 43 ee ff fc |C | LEA.L (A6-0x4),A1 00022592 48 50 |HP | PEA.L (A0) 00022594 48 51 |HQ | PEA.L (A1) 00022596 4e ba fe 16 |N | JSR 0x223ae 0002259a 50 4f |PO | ADDQ.L #0x8,A7 0002259c 4a 90 |J | TST.L (A0) 0002259e 66 06 |f | BNE 0x225a6 000225a0 20 11 | | MOVE.L (A1),D0 000225a2 5a 80 |Z | ADDQ.L #0x5,D0 000225a4 60 12 |` | BRA 0x225b8 000225a6 2f 11 |/ | MOVE.L (A1),-(A7) 000225a8 5a 97 |Z | ADDQ.L #0x5,(A7) 000225aa 48 78 00 05 |Hx | PEA.L 0x5 000225ae 4e ba fc ea |N | JSR 0x2229a 000225b2 50 4f |PO | ADDQ.L #0x8,A7 000225b4 20 10 | | MOVE.L (A0),D0 000225b6 5c 80 |\ | ADDQ.L #0x6,D0 000225b8 2f 00 |/ | MOVE.L D0,-(A7) 000225ba 90 b9 00 02 78 50 | xP | SUB.L 0x27850,D0 000225c0 2f 00 |/ | MOVE.L D0,-(A7) 000225c2 4e ba fc d6 |N | JSR 0x2229a 000225c6 50 4f |PO | ADDQ.L #0x8,A7 000225c8 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1 000225cc 4e 5e |N^ | UNLK A6 000225ce 4e 75 |Nu | RTS 000225d0 ; -------------------------------------------------------------------------------------- 000225d0 ; OMSI PASCAL Function 000225d0 ; <LVAR 0x008 4(r)> 000225d0 ; <LVAR -0x004 @> 000225d0 ; <LVAR -0x008 @ 4(r)> 000225d0 ; <LVAR -0x00c @ 4(rw)> 000225d0 ; <LVAR -0x010 4(rw)> 000225d0 ; <LVAR -0x014 4(rw)> 000225d0 ; -------------------------------------------------------------------------------------- 000225d0 4e 56 ff ba |NV | LINK.W A6,#0xffba 000225d4 bf d5 | | CMPA.L (A5),A7 000225d6 62 06 |b | BHI 0x225de 000225d8 44 fc 00 02 |D | MOVE.W #0x2,CCR 000225dc 4e 76 |Nv | TRAPV 000225de de fc 00 32 | 2 | ADDA.W #0x32,A7 000225e2 48 e7 c0 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D1+D0,-(A7) 000225e6 43 f9 00 02 78 62 |C xb | LEA.L 0x27862,A1 000225ec 45 f9 00 02 78 68 |E xh | LEA.L 0x27868,A2 000225f2 47 f9 00 02 78 50 |G xP | LEA.L 0x27850,A3 000225f8 49 ee ff f8 |I | LEA.L (A6-0x8),A4 000225fc 72 01 |r | MOVEQ.L #0x01,D1 000225fe 4a 11 |J | TST.B (A1) 00022600 67 0a |g | BEQ 0x2260c 00022602 4a 92 |J | TST.L (A2) 00022604 66 06 |f | BNE 0x2260c 00022606 24 ae 00 08 |$ | MOVE.L (A6+0x8),(A2) 0002260a 53 92 |S | SUBQ.L #0x1,(A2) 0002260c 4a 11 |J | TST.B (A1) 0002260e 66 00 00 cc |f | BNE 0x226dc 00022612 26 ae 00 08 |& | MOVE.L (A6+0x8),(A3) 00022616 5c 93 |\ | ADDQ.L #0x6,(A3) 00022618 48 54 |HT | PEA.L (A4) 0002261a 48 6e ff fc |Hn | PEA.L (A6-0x4) 0002261e 4e ba fa 86 |N | JSR 0x220a6 00022622 50 4f |PO | ADDQ.L #0x8,A7 00022624 41 fa f2 bc |A | LEA.L 0x218e2,A0 00022628 70 04 |p | MOVEQ.L #0x04,D0 0002262a 3f 20 |? | MOVE.W -(A0),-(A7) 0002262c 51 c8 ff fc |Q | DBF D0,0x2262a 00022630 2f 14 |/ | MOVE.L (A4),-(A7) 00022632 48 78 00 00 |Hx | PEA.L 0x0 00022636 4e ba fb 50 |N P | JSR 0x22188 0002263a de fc 00 12 | | ADDA.W #0x12,A7 0002263e 4a 39 00 02 78 6c |J9 xl | TST.B 0x2786c 00022644 67 1a |g | BEQ 0x22660 00022646 51 4f |QO | SUBQ.L #0x8,A7 00022648 2f 14 |/ | MOVE.L (A4),-(A7) 0002264a 48 78 00 00 |Hx | PEA.L 0x0 0002264e 4e b9 00 02 2a a0 |N * | JSR 0x22aa0 00022654 50 4f |PO | ADDQ.L #0x8,A7 00022656 2d 5f ff ec |-_ | MOVE.L (A7)+,(A6-0x14) 0002265a 2d 5f ff f0 |-_ | MOVE.L (A7)+,(A6-0x10) 0002265e 60 14 |` | BRA 0x22674 00022660 59 4f |YO | SUBQ.L #0x4,A7 00022662 2f 14 |/ | MOVE.L (A4),-(A7) 00022664 48 78 00 00 |Hx | PEA.L 0x0 00022668 4e b9 00 02 2a 6e |N *n | JSR 0x22a6e 0002266e 50 4f |PO | ADDQ.L #0x8,A7 00022670 2d 5f ff f4 |-_ | MOVE.L (A7)+,(A6-0xc) 00022674 2f 14 |/ | MOVE.L (A4),-(A7) 00022676 4e ba f6 8c |N | JSR 0x21d04 0002267a 58 4f |XO | ADDQ.L #0x4,A7 0002267c 23 d3 00 02 78 64 |# xd | MOVE.L (A3),0x27864 00022682 4a 39 00 02 78 6c |J9 xl | TST.B 0x2786c 00022688 67 2a |g* | BEQ 0x226b4 0002268a 55 4f |UO | SUBQ.L #0x2,A7 0002268c 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7) 00022690 2f 2e ff ec |/. | MOVE.L (A6-0x14),-(A7) 00022694 2f 39 00 02 78 76 |/9 xv | MOVE.L 0x27876,-(A7) 0002269a 2f 39 00 02 78 72 |/9 xr | MOVE.L 0x27872,-(A7) 000226a0 4e b9 00 01 03 2c |N , | JSR IsEqual(a, b : Quad) : Bool 000226a6 de fc 00 10 | | ADDA.W #0x10,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 60 28 |`( | BRA 0x226dc 000226b4 55 4f |UO | SUBQ.L #0x2,A7 000226b6 2f 2e ff f4 |/. | MOVE.L (A6-0xc),-(A7) 000226ba 2f 39 00 02 78 6e |/9 xn | MOVE.L 0x2786e,-(A7) 000226c0 4e b9 00 01 02 c8 |N | JSR StringEqual(a, b : String) : Byte 000226c6 50 4f |PO | ADDQ.L #0x8,A7 000226c8 10 1f | | MOVE.B (A7)+,D0 000226ca 48 80 |H | EXTB.W D0 000226cc 41 81 |A | CHK.W D1,D0 000226ce 12 80 | | MOVE.B D0,(A1) 000226d0 48 6e ff f4 |Hn | PEA.L (A6-0xc) 000226d4 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000226da 58 4f |XO | ADDQ.L #0x4,A7 000226dc 4c df 1f 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2+A3+A4 000226e0 4e 5e |N^ | UNLK A6 000226e2 4e 75 |Nu | RTS 000226e4 ; -------------------------------------------------------------------------------------- 000226e4 ; OMSI PASCAL Function 000226e4 ; <LVAR 0x010 4(r)> 000226e4 ; <LVAR 0x00c 4(r)> 000226e4 ; <LVAR 0x008 4(r)> 000226e4 ; -------------------------------------------------------------------------------------- 000226e4 4e 56 ff 9e |NV | LINK.W A6,#0xff9e 000226e8 bf d5 | | CMPA.L (A5),A7 000226ea 62 06 |b | BHI 0x226f2 000226ec 44 fc 00 02 |D | MOVE.W #0x2,CCR 000226f0 4e 76 |Nv | TRAPV 000226f2 de fc 00 56 | V | ADDA.W #0x56,A7 000226f6 48 e7 e7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7) 000226fa 45 f9 00 02 78 68 |E xh | LEA.L 0x27868,A2 00022700 47 fa fb 12 |G | LEA.L 0x22214,A3 00022704 49 f9 00 02 78 62 |I xb | LEA.L 0x27862,A4 0002270a 72 0c |r | MOVEQ.L #0x0c,D1 0002270c 74 01 |t | MOVEQ.L #0x01,D2 0002270e 42 14 |B | CLR.B (A4) 00022710 42 b9 00 02 78 64 |B xd | CLR.L 0x27864 00022716 42 92 |B | CLR.L (A2) 00022718 7e 00 |~ | MOVEQ.L #0x00,D7 0002271a 7c 00 || | MOVEQ.L #0x00,D6 0002271c 2a 39 00 02 78 50 |*9 xP | MOVE.L 0x27850,D5 00022722 4a 86 |J | TST.L D6 00022724 66 00 00 a0 |f | BNE 0x227c6 00022728 ba b9 00 02 78 54 | xT | CMP.L 0x27854,D5 0002272e 6e 00 00 96 |n | BGT 0x227c6 00022732 20 05 | | MOVE.L D5,D0 00022734 53 80 |S | SUBQ.L #0x1,D0 00022736 0c 80 00 00 1f ff | | CMPI.L #0x00001fff,D0 0002273c 63 02 |c | BLS 0x22740 0002273e 4e 4f |NO | TRAP #15 00022740 41 f9 00 02 58 48 |A XH | LEA.L 0x25848,A0 00022746 10 30 08 08 | 0 | MOVE.B (A0+D0.L+#0x8),D0 0002274a 0c 00 00 5b | [ | CMPI.B #0x5b,D0 0002274e 66 6c |fl | BNE 0x227bc 00022750 55 4f |UO | SUBQ.L #0x2,A7 00022752 2f 05 |/ | MOVE.L D5,-(A7) 00022754 48 78 00 28 |Hx ( | PEA.L 0x28 00022758 48 78 00 05 |Hx | PEA.L 0x5 0002275c 4e 93 |N | JSR (A3) 0002275e de c1 | | ADDA.W D1,A7 00022760 4a 1f |J | TST.B (A7)+ 00022762 66 14 |f | BNE 0x22778 00022764 55 4f |UO | SUBQ.L #0x2,A7 00022766 2f 05 |/ | MOVE.L D5,-(A7) 00022768 48 78 00 2d |Hx - | PEA.L 0x2d 0002276c 48 78 00 06 |Hx | PEA.L 0x6 00022770 4e 93 |N | JSR (A3) 00022772 de c1 | | ADDA.W D1,A7 00022774 4a 1f |J | TST.B (A7)+ 00022776 67 04 |g | BEQ 0x2277c 00022778 52 87 |R | ADDQ.L #0x1,D7 0002277a 60 40 |`@ | BRA 0x227bc 0002277c 4a 87 |J | TST.L D7 0002277e 66 1e |f | BNE 0x2279e 00022780 55 4f |UO | SUBQ.L #0x2,A7 00022782 2f 05 |/ | MOVE.L D5,-(A7) 00022784 48 78 00 33 |Hx 3 | PEA.L 0x33 00022788 48 78 00 05 |Hx | PEA.L 0x5 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 2f 05 |/ | MOVE.L D5,-(A7) 00022796 4e ba fe 38 |N 8 | JSR 0x225d0 0002279a 58 4f |XO | ADDQ.L #0x4,A7 0002279c 60 1e |` | BRA 0x227bc 0002279e 55 4f |UO | SUBQ.L #0x2,A7 000227a0 2f 05 |/ | MOVE.L D5,-(A7) 000227a2 48 78 00 38 |Hx 8 | PEA.L 0x38 000227a6 48 78 00 08 |Hx | PEA.L 0x8 000227aa 4e 93 |N | JSR (A3) 000227ac de c1 | | ADDA.W D1,A7 000227ae 4a 1f |J | TST.B (A7)+ 000227b0 67 0a |g | BEQ 0x227bc 000227b2 4a 87 |J | TST.L D7 000227b4 66 04 |f | BNE 0x227ba 000227b6 2c 05 |, | MOVE.L D5,D6 000227b8 60 02 |` | BRA 0x227bc 000227ba 53 87 |S | SUBQ.L #0x1,D7 000227bc 4a 86 |J | TST.L D6 000227be 66 02 |f | BNE 0x227c2 000227c0 52 85 |R | ADDQ.L #0x1,D5 000227c2 60 00 ff 5e |` ^ | BRA 0x22722 000227c6 4a 39 00 02 78 6c |J9 xl | TST.B 0x2786c 000227cc 66 0e |f | BNE 0x227dc 000227ce 48 79 00 02 78 6e |Hy xn | PEA.L 0x2786e 000227d4 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000227da 58 4f |XO | ADDQ.L #0x4,A7 000227dc 4a 14 |J | TST.B (A4) 000227de 66 28 |f( | BNE 0x22808 000227e0 41 fa f1 1a |A | LEA.L 0x218fc,A0 000227e4 70 0c |p | MOVEQ.L #0x0c,D0 000227e6 3f 20 |? | MOVE.W -(A0),-(A7) 000227e8 51 c8 ff fc |Q | DBF D0,0x227e6 000227ec 59 4f |YO | SUBQ.L #0x4,A7 000227ee 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000227f2 3f 02 |? | MOVE.W D2,-(A7) 000227f4 3f 3c 00 1a |?< | MOVE.W #0x1a,-(A7) 000227f8 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000227fe 50 4f |PO | ADDQ.L #0x8,A7 00022800 4e ba f5 44 |N D | JSR 0x21d46 00022804 de fc 00 1e | | ADDA.W #0x1e,A7 00022808 4a 86 |J | TST.L D6 0002280a 66 2e |f. | BNE 0x2283a 0002280c 9e fc 00 14 | | SUBA.W #0x14,A7 00022810 20 4f | O | MOVEA.L A7,A0 00022812 43 fa f0 e8 |C | LEA.L 0x218fc,A1 00022816 70 12 |p | MOVEQ.L #0x12,D0 00022818 10 d9 | | MOVE.B (A1)+,(A0)+ 0002281a 51 c8 ff fc |Q | DBF D0,0x22818 0002281e 59 4f |YO | SUBQ.L #0x4,A7 00022820 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022824 3f 02 |? | MOVE.W D2,-(A7) 00022826 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7) 0002282a 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00022830 50 4f |PO | ADDQ.L #0x8,A7 00022832 4e ba f5 12 |N | JSR 0x21d46 00022836 de fc 00 18 | | ADDA.W #0x18,A7 0002283a 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 0002283e 20 86 | | MOVE.L D6,(A0) 00022840 20 6e 00 10 | n | MOVEA.L (A6+0x10),A0 00022844 20 b9 00 02 78 64 | xd | MOVE.L 0x27864,(A0) 0002284a 4a 92 |J | TST.L (A2) 0002284c 66 0a |f | BNE 0x22858 0002284e 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 00022852 20 86 | | MOVE.L D6,(A0) 00022854 53 90 |S | SUBQ.L #0x1,(A0) 00022856 60 06 |` | BRA 0x2285e 00022858 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 0002285c 20 92 | | MOVE.L (A2),(A0) 0002285e 4c df 1f e7 |L | MOVEM.L (A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3+A4 00022862 4e 5e |N^ | UNLK A6 00022864 4e 75 |Nu | RTS 00022866 ; -------------------------------------------------------------------------------------- 00022866 ; OMSI PASCAL Function 00022866 ; <LVAR 0x008 4(r)> 00022866 ; <LVAR -0x008 @ 4(r)> 00022866 ; <LVAR -0x00c @ 4(r)> 00022866 ; <LVAR -0x010 @ 4(r)> 00022866 ; -------------------------------------------------------------------------------------- 00022866 4e 56 ff c8 |NV | LINK.W A6,#0xffc8 0002286a bf d5 | | CMPA.L (A5),A7 0002286c 62 06 |b | BHI 0x22874 0002286e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022872 4e 76 |Nv | TRAPV 00022874 de fc 00 24 | $ | ADDA.W #0x24,A7 00022878 48 e7 83 c0 |H | MOVEM.L A1+A0+D7+D6+D0,-(A7) 0002287c 41 f9 00 02 78 50 |A xP | LEA.L 0x27850,A0 00022882 43 ee ff f0 |C | LEA.L (A6-0x10),A1 00022886 2c 10 |, | MOVE.L (A0),D6 00022888 42 39 00 02 78 6c |B9 xl | CLR.B 0x2786c 0002288e 23 ee 00 08 00 02 78 6e |# xn| MOVE.L (A6+0x8),0x2786e 00022896 2e 10 |. | MOVE.L (A0),D7 00022898 48 51 |HQ | PEA.L (A1) 0002289a 48 6e ff f4 |Hn | PEA.L (A6-0xc) 0002289e 48 6e ff f8 |Hn | PEA.L (A6-0x8) 000228a2 4e ba fe 40 |N @ | JSR 0x226e4 000228a6 de fc 00 0c | | ADDA.W #0xc,A7 000228aa 20 86 | | MOVE.L D6,(A0) 000228ac 20 2e ff f8 | . | MOVE.L (A6-0x8),D0 000228b0 06 80 00 00 00 09 | | ADDI.L #0x00000009,D0 000228b6 2f 00 |/ | MOVE.L D0,-(A7) 000228b8 90 ae ff f4 | | SUB.L (A6-0xc),D0 000228bc 53 80 |S | SUBQ.L #0x1,D0 000228be 2f 00 |/ | MOVE.L D0,-(A7) 000228c0 4e ba f9 d8 |N | JSR 0x2229a 000228c4 58 4f |XO | ADDQ.L #0x4,A7 000228c6 2e 91 |. | MOVE.L (A1),(A7) 000228c8 2f 11 |/ | MOVE.L (A1),-(A7) 000228ca 9f 97 | | SUB.L D7,(A7) 000228cc 4e ba f9 cc |N | JSR 0x2229a 000228d0 50 4f |PO | ADDQ.L #0x8,A7 000228d2 4c df 03 c1 |L | MOVEM.L (A7)+,D0+D6+D7+A0+A1 000228d6 4e 5e |N^ | UNLK A6 000228d8 4e 75 |Nu | RTS 000228da ; -------------------------------------------------------------------------------------- 000228da ; OMSI PASCAL Function 000228da ; <LVAR 0x00c 4(r)> 000228da ; <LVAR 0x008 4(r)> 000228da ; <LVAR -0x008 @ 4(r)> 000228da ; <LVAR -0x00c @ 4(r)> 000228da ; <LVAR -0x010 @ 4(r)> 000228da ; -------------------------------------------------------------------------------------- 000228da 4e 56 ff c8 |NV | LINK.W A6,#0xffc8 000228de bf d5 | | CMPA.L (A5),A7 000228e0 62 06 |b | BHI 0x228e8 000228e2 44 fc 00 02 |D | MOVE.W #0x2,CCR 000228e6 4e 76 |Nv | TRAPV 000228e8 de fc 00 24 | $ | ADDA.W #0x24,A7 000228ec 48 e7 83 c0 |H | MOVEM.L A1+A0+D7+D6+D0,-(A7) 000228f0 41 f9 00 02 78 50 |A xP | LEA.L 0x27850,A0 000228f6 43 ee ff f0 |C | LEA.L (A6-0x10),A1 000228fa 2c 10 |, | MOVE.L (A0),D6 000228fc 13 fc 00 01 00 02 78 6c | xl| MOVE.B #0x01,0x2786c 00022904 23 ee 00 08 00 02 78 72 |# xr| MOVE.L (A6+0x8),0x27872 0002290c 23 ee 00 0c 00 02 78 76 |# xv| MOVE.L (A6+0xc),0x27876 00022914 2e 10 |. | MOVE.L (A0),D7 00022916 48 51 |HQ | PEA.L (A1) 00022918 48 6e ff f4 |Hn | PEA.L (A6-0xc) 0002291c 48 6e ff f8 |Hn | PEA.L (A6-0x8) 00022920 4e ba fd c2 |N | JSR 0x226e4 00022924 de fc 00 0c | | ADDA.W #0xc,A7 00022928 20 86 | | MOVE.L D6,(A0) 0002292a 20 2e ff f8 | . | MOVE.L (A6-0x8),D0 0002292e 06 80 00 00 00 09 | | ADDI.L #0x00000009,D0 00022934 2f 00 |/ | MOVE.L D0,-(A7) 00022936 90 ae ff f4 | | SUB.L (A6-0xc),D0 0002293a 53 80 |S | SUBQ.L #0x1,D0 0002293c 2f 00 |/ | MOVE.L D0,-(A7) 0002293e 4e ba f9 5a |N Z | JSR 0x2229a 00022942 58 4f |XO | ADDQ.L #0x4,A7 00022944 2e 91 |. | MOVE.L (A1),(A7) 00022946 2f 11 |/ | MOVE.L (A1),-(A7) 00022948 9f 97 | | SUB.L D7,(A7) 0002294a 4e ba f9 4e |N N | JSR 0x2229a 0002294e 50 4f |PO | ADDQ.L #0x8,A7 00022950 4c df 03 c1 |L | MOVEM.L (A7)+,D0+D6+D7+A0+A1 00022954 4e 5e |N^ | UNLK A6 00022956 4e 75 |Nu | RTS 00022958 ; -------------------------------------------------------------------------------------- 00022958 ; OMSI PASCAL Function 00022958 ; <LVAR 0x010 4(rw)> 00022958 ; <LVAR 0x00c 4(r)> 00022958 ; <LVAR 0x008 4(r)> 00022958 ; -------------------------------------------------------------------------------------- 00022958 4e 56 ff f8 |NV | LINK.W A6,#0xfff8 0002295c bf d5 | | CMPA.L (A5),A7 0002295e 62 06 |b | BHI 0x22966 00022960 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022964 4e 76 |Nv | TRAPV 00022966 de fc 00 08 | | ADDA.W #0x8,A7 0002296a 48 e7 80 00 |H | MOVEM.L D0,-(A7) 0002296e 4a ae 00 08 |J | TST.L (A6+0x8) 00022972 66 06 |f | BNE 0x2297a 00022974 42 ae 00 10 |B | CLR.L (A6+0x10) 00022978 60 0e |` | BRA 0x22988 0002297a 20 2e 00 0c | . | MOVE.L (A6+0xc),D0 0002297e 90 ae 00 08 | | SUB.L (A6+0x8),D0 00022982 52 80 |R | ADDQ.L #0x1,D0 00022984 2d 40 00 10 |-@ | MOVE.L D0,(A6+0x10) 00022988 4c df 00 01 |L | MOVEM.L (A7)+,D0 0002298c 4e 5e |N^ | UNLK A6 0002298e 4e 75 |Nu | RTS 00022990 ; -------------------------------------------------------------------------------------- 00022990 ; OMSI PASCAL Function 00022990 ; <LVAR 0x014 4(w)> 00022990 ; <LVAR 0x010 @ 4(w)> 00022990 ; <LVAR 0x00c 4(r)> 00022990 ; <LVAR 0x008 4(r)> 00022990 ; -------------------------------------------------------------------------------------- 00022990 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 00022994 bf d5 | | CMPA.L (A5),A7 00022996 62 06 |b | BHI 0x2299e 00022998 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002299c 4e 76 |Nv | TRAPV 0002299e de fc 00 20 | | ADDA.W #0x20,A7 000229a2 48 e7 81 c8 |H | MOVEM.L A4+A1+A0+D7+D0,-(A7) 000229a6 28 6e 00 0c |(n | MOVEA.L (A6+0xc),A4 000229aa 2d 7a f2 b2 00 10 |-z | MOVE.L 0x21c5e,(A6+0x10) 000229b0 2d 7a f2 b0 00 14 |-z | MOVE.L 0x21c62,(A6+0x14) 000229b6 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000229ba 7e 00 |~ | MOVEQ.L #0x00,D7 000229bc be 97 | | CMP.L (A7),D7 000229be 6e 28 |n( | BGT 0x229e8 000229c0 b8 fc 00 01 | | CMPA.W #0x1,A4 000229c4 66 04 |f | BNE 0x229ca 000229c6 58 4f |XO | ADDQ.L #0x4,A7 000229c8 60 20 |` | BRA 0x229ea 000229ca be ae 00 08 | | CMP.L (A6+0x8),D7 000229ce 66 10 |f | BNE 0x229e0 000229d0 41 ee 00 10 |A | LEA.L (A6+0x10),A0 000229d4 22 4c |"L | MOVEA.L A4,A1 000229d6 70 07 |p | MOVEQ.L #0x07,D0 000229d8 10 d9 | | MOVE.B (A1)+,(A0)+ 000229da 51 c8 ff fc |Q | DBF D0,0x229d8 000229de 60 04 |` | BRA 0x229e4 000229e0 28 6c 00 08 |(l | MOVEA.L (A4+0x8),A4 000229e4 52 87 |R | ADDQ.L #0x1,D7 000229e6 68 d4 |h | BVC 0x229bc 000229e8 58 4f |XO | ADDQ.L #0x4,A7 000229ea 4c df 13 81 |L | MOVEM.L (A7)+,D0+D7+A0+A1+A4 000229ee 4e 5e |N^ | UNLK A6 000229f0 4e 75 |Nu | RTS 000229f2 ; -------------------------------------------------------------------------------------- 000229f2 ; OMSI PASCAL Function 000229f2 ; <LVAR 0x010 4(w)> 000229f2 ; <LVAR 0x00c 4(r)> 000229f2 ; <LVAR 0x008 4(r)> 000229f2 ; <LVAR -0x008 @ 4(r)> 000229f2 ; -------------------------------------------------------------------------------------- 000229f2 4e 56 ff ce |NV | LINK.W A6,#0xffce 000229f6 bf d5 | | CMPA.L (A5),A7 000229f8 62 06 |b | BHI 0x22a00 000229fa 44 fc 00 02 |D | MOVE.W #0x2,CCR 000229fe 4e 76 |Nv | TRAPV 00022a00 de fc 00 26 | & | ADDA.W #0x26,A7 00022a04 48 e7 83 c0 |H | MOVEM.L A1+A0+D7+D6+D0,-(A7) 00022a08 43 ee ff f8 |C | LEA.L (A6-0x8),A1 00022a0c 48 51 |HQ | PEA.L (A1) 00022a0e 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00022a14 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00022a18 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022a1c 4e ba ff 3a |N : | JSR 0x22958 00022a20 50 4f |PO | ADDQ.L #0x8,A7 00022a22 7e 01 |~ | MOVEQ.L #0x01,D7 00022a24 be 97 | | CMP.L (A7),D7 00022a26 6e 38 |n8 | BGT 0x22a60 00022a28 20 07 | | MOVE.L D7,D0 00022a2a d0 ae 00 08 | | ADD.L (A6+0x8),D0 00022a2e 53 80 |S | SUBQ.L #0x1,D0 00022a30 53 80 |S | SUBQ.L #0x1,D0 00022a32 0c 80 00 00 1f ff | | CMPI.L #0x00001fff,D0 00022a38 63 02 |c | BLS 0x22a3c 00022a3a 4e 4f |NO | TRAP #15 00022a3c 41 f9 00 02 58 48 |A XH | LEA.L 0x25848,A0 00022a42 1c 30 08 08 | 0 | MOVE.B (A0+D0.L+#0x8),D6 00022a46 0c 06 00 2f | / | CMPI.B #0x2f,D6 00022a4a 66 04 |f | BNE 0x22a50 00022a4c 58 4f |XO | ADDQ.L #0x4,A7 00022a4e 60 12 |` | BRA 0x22a62 00022a50 2f 11 |/ | MOVE.L (A1),-(A7) 00022a52 1f 06 | | MOVE.B D6,-(A7) 00022a54 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00022a5a 5c 4f |\O | ADDQ.L #0x6,A7 00022a5c 52 87 |R | ADDQ.L #0x1,D7 00022a5e 68 c4 |h | BVC 0x22a24 00022a60 58 4f |XO | ADDQ.L #0x4,A7 00022a62 2d 51 00 10 |-Q | MOVE.L (A1),(A6+0x10) 00022a66 4c df 03 c1 |L | MOVEM.L (A7)+,D0+D6+D7+A0+A1 00022a6a 4e 5e |N^ | UNLK A6 00022a6c 4e 75 |Nu | RTS 00022a6e ; -------------------------------------------------------------------------------------- 00022a6e ; OMSI PASCAL Function 00022a6e ; <LVAR 0x010 4(w)> 00022a6e ; <LVAR 0x00c 4(r)> 00022a6e ; <LVAR 0x008 4(r)> 00022a6e ; -------------------------------------------------------------------------------------- 00022a6e 4e 56 ff e8 |NV | LINK.W A6,#0xffe8 00022a72 bf d5 | | CMPA.L (A5),A7 00022a74 62 06 |b | BHI 0x22a7c 00022a76 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022a7a 4e 76 |Nv | TRAPV 00022a7c de fc 00 18 | | ADDA.W #0x18,A7 00022a80 9e fc 00 0c | | SUBA.W #0xc,A7 00022a84 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00022a88 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022a8c 4e ba ff 02 |N | JSR 0x22990 00022a90 50 4f |PO | ADDQ.L #0x8,A7 00022a92 4e ba ff 5e |N ^ | JSR 0x229f2 00022a96 50 4f |PO | ADDQ.L #0x8,A7 00022a98 2d 5f 00 10 |-_ | MOVE.L (A7)+,(A6+0x10) 00022a9c 4e 5e |N^ | UNLK A6 00022a9e 4e 75 |Nu | RTS 00022aa0 ; -------------------------------------------------------------------------------------- 00022aa0 ; OMSI PASCAL Function 00022aa0 ; <LVAR 0x014 4(w)> 00022aa0 ; <LVAR 0x010 4(w)> 00022aa0 ; <LVAR 0x00c 4(r)> 00022aa0 ; <LVAR 0x008 4(r)> 00022aa0 ; -------------------------------------------------------------------------------------- 00022aa0 4e 56 ff e8 |NV | LINK.W A6,#0xffe8 00022aa4 bf d5 | | CMPA.L (A5),A7 00022aa6 62 06 |b | BHI 0x22aae 00022aa8 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022aac 4e 76 |Nv | TRAPV 00022aae de fc 00 18 | | ADDA.W #0x18,A7 00022ab2 9e fc 00 0c | | SUBA.W #0xc,A7 00022ab6 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00022aba 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022abe 4e ba ff ae |N | JSR 0x22a6e 00022ac2 50 4f |PO | ADDQ.L #0x8,A7 00022ac4 48 78 00 10 |Hx | PEA.L 0x10 00022ac8 4e b9 00 01 03 60 |N ` | JSR ?StringToInt64() 00022ace 50 4f |PO | ADDQ.L #0x8,A7 00022ad0 2d 5f 00 10 |-_ | MOVE.L (A7)+,(A6+0x10) 00022ad4 2d 5f 00 14 |-_ | MOVE.L (A7)+,(A6+0x14) 00022ad8 4e 5e |N^ | UNLK A6 00022ada 4e 75 |Nu | RTS 00022adc ; -------------------------------------------------------------------------------------- 00022adc ; OMSI PASCAL Function 00022adc ; <LVAR 0x010 4(w)> 00022adc ; <LVAR 0x00c 4(r)> 00022adc ; <LVAR 0x008 4(r)> 00022adc ; -------------------------------------------------------------------------------------- 00022adc 4e 56 ff e8 |NV | LINK.W A6,#0xffe8 00022ae0 bf d5 | | CMPA.L (A5),A7 00022ae2 62 06 |b | BHI 0x22aea 00022ae4 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022ae8 4e 76 |Nv | TRAPV 00022aea de fc 00 18 | | ADDA.W #0x18,A7 00022aee 9e fc 00 0c | | SUBA.W #0xc,A7 00022af2 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00022af6 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022afa 4e ba ff a4 |N | JSR 0x22aa0 00022afe 50 4f |PO | ADDQ.L #0x8,A7 00022b00 4e b9 00 01 03 50 |N P | JSR Quad2Long(a : Quad) : Long 00022b06 50 4f |PO | ADDQ.L #0x8,A7 00022b08 2d 5f 00 10 |-_ | MOVE.L (A7)+,(A6+0x10) 00022b0c 4e 5e |N^ | UNLK A6 00022b0e 4e 75 |Nu | RTS 00022b10 ; -------------------------------------------------------------------------------------- 00022b10 ; OMSI PASCAL Function 00022b10 ; <LVAR 0x008 @ 4(r)> 00022b10 ; -------------------------------------------------------------------------------------- 00022b10 4e 56 ff d4 |NV | LINK.W A6,#0xffd4 00022b14 bf d5 | | CMPA.L (A5),A7 00022b16 62 06 |b | BHI 0x22b1e 00022b18 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022b1c 4e 76 |Nv | TRAPV 00022b1e de fc 00 28 | ( | ADDA.W #0x28,A7 00022b22 48 e7 c1 e0 |H | MOVEM.L A2+A1+A0+D7+D1+D0,-(A7) 00022b26 45 f9 00 02 78 50 |E xP | LEA.L 0x27850,A2 00022b2c 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00022b30 2f 08 |/ | MOVE.L A0,-(A7) 00022b32 2f 12 |/ | MOVE.L (A2),-(A7) 00022b34 30 10 |0 | MOVE.W (A0),D0 00022b36 48 c0 |H | EXTW.L D0 00022b38 44 80 |D | NEG.L D0 00022b3a 2f 00 |/ | MOVE.L D0,-(A7) 00022b3c 4e ba f7 5c |N \ | JSR 0x2229a 00022b40 50 4f |PO | ADDQ.L #0x8,A7 00022b42 30 10 |0 | MOVE.W (A0),D0 00022b44 48 c0 |H | EXTW.L D0 00022b46 2f 00 |/ | MOVE.L D0,-(A7) 00022b48 7e 01 |~ | MOVEQ.L #0x01,D7 00022b4a be 97 | | CMP.L (A7),D7 00022b4c 6e 34 |n4 | BGT 0x22b82 00022b4e 20 07 | | MOVE.L D7,D0 00022b50 d0 92 | | ADD.L (A2),D0 00022b52 53 80 |S | SUBQ.L #0x1,D0 00022b54 53 80 |S | SUBQ.L #0x1,D0 00022b56 0c 80 00 00 1f ff | | CMPI.L #0x00001fff,D0 00022b5c 63 02 |c | BLS 0x22b60 00022b5e 4e 4f |NO | TRAP #15 00022b60 41 f9 00 02 58 48 |A XH | LEA.L 0x25848,A0 00022b66 22 07 |" | MOVE.L D7,D1 00022b68 53 81 |S | SUBQ.L #0x1,D1 00022b6a 0c 81 00 00 00 7d | } | CMPI.L #0x0000007d,D1 00022b70 63 02 |c | BLS 0x22b74 00022b72 4e 4f |NO | TRAP #15 00022b74 22 6f 00 04 |"o | MOVEA.L (A7+0x4),A1 00022b78 11 b1 18 02 08 08 | | MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x8) 00022b7e 52 87 |R | ADDQ.L #0x1,D7 00022b80 68 c8 |h | BVC 0x22b4a 00022b82 50 4f |PO | ADDQ.L #0x8,A7 00022b84 48 6e 00 08 |Hn | PEA.L (A6+0x8) 00022b88 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00022b8e 58 4f |XO | ADDQ.L #0x4,A7 00022b90 4c df 07 83 |L | MOVEM.L (A7)+,D0+D1+D7+A0+A1+A2 00022b94 4e 5e |N^ | UNLK A6 00022b96 4e 75 |Nu | RTS 00022b98 ; -------------------------------------------------------------------------------------- 00022b98 ; OMSI PASCAL Function 00022b98 ; <LVAR 0x00c 4(r)> 00022b98 ; <LVAR 0x008 4(r)> 00022b98 ; -------------------------------------------------------------------------------------- 00022b98 4e 56 ff ec |NV | LINK.W A6,#0xffec 00022b9c bf d5 | | CMPA.L (A5),A7 00022b9e 62 06 |b | BHI 0x22ba6 00022ba0 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022ba4 4e 76 |Nv | TRAPV 00022ba6 de fc 00 14 | | ADDA.W #0x14,A7 00022baa 59 4f |YO | SUBQ.L #0x4,A7 00022bac 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00022bb0 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022bb4 48 78 00 10 |Hx | PEA.L 0x10 00022bb8 4e b9 00 01 03 5c |N \ | JSR Quad2String(a : Quad; radix : Long ) : String 00022bbe de fc 00 0c | | ADDA.W #0xc,A7 00022bc2 4e ba ff 4c |N L | JSR 0x22b10 00022bc6 58 4f |XO | ADDQ.L #0x4,A7 00022bc8 4e 5e |N^ | UNLK A6 00022bca 4e 75 |Nu | RTS 00022bcc ; -------------------------------------------------------------------------------------- 00022bcc ; OMSI PASCAL Function 00022bcc ; <LVAR 0x008 4(r)> 00022bcc ; -------------------------------------------------------------------------------------- 00022bcc 4e 56 ff f4 |NV | LINK.W A6,#0xfff4 00022bd0 bf d5 | | CMPA.L (A5),A7 00022bd2 62 06 |b | BHI 0x22bda 00022bd4 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022bd8 4e 76 |Nv | TRAPV 00022bda de fc 00 0c | | ADDA.W #0xc,A7 00022bde 59 4f |YO | SUBQ.L #0x4,A7 00022be0 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022be4 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00022bea 58 4f |XO | ADDQ.L #0x4,A7 00022bec 4e ba ff 22 |N " | JSR 0x22b10 00022bf0 58 4f |XO | ADDQ.L #0x4,A7 00022bf2 4e 5e |N^ | UNLK A6 00022bf4 4e 75 |Nu | RTS 00022bf6 ; -------------------------------------------------------------------------------------- 00022bf6 ; OMSI PASCAL Function 00022bf6 ; <LVAR 0x008 4(r)> 00022bf6 ; <LVAR -0x004 @ 4(r)> 00022bf6 ; <LVAR -0x008 4(rw)> 00022bf6 ; -------------------------------------------------------------------------------------- 00022bf6 4e 56 ff ca |NV | LINK.W A6,#0xffca 00022bfa bf d5 | | CMPA.L (A5),A7 00022bfc 62 06 |b | BHI 0x22c04 00022bfe 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022c02 4e 76 |Nv | TRAPV 00022c04 de fc 00 2a | * | ADDA.W #0x2a,A7 00022c08 48 e7 81 e0 |H | MOVEM.L A2+A1+A0+D7+D0,-(A7) 00022c0c 43 ee ff fc |C | LEA.L (A6-0x4),A1 00022c10 45 ee ff f8 |E | LEA.L (A6-0x8),A2 00022c14 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00022c18 24 a8 00 08 |$ | MOVE.L (A0+0x8),(A2) 00022c1c 48 51 |HQ | PEA.L (A1) 00022c1e 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00022c24 58 4f |XO | ADDQ.L #0x4,A7 00022c26 20 52 | R | MOVEA.L (A2),A0 00022c28 b0 fc 00 01 | | CMPA.W #0x1,A0 00022c2c 67 00 00 86 |g | BEQ 0x22cb4 00022c30 4a 90 |J | TST.L (A0) 00022c32 67 68 |gh | BEQ 0x22c9c 00022c34 2f 28 00 04 |/( | MOVE.L (A0+0x4),-(A7) 00022c38 2e 10 |. | MOVE.L (A0),D7 00022c3a be 97 | | CMP.L (A7),D7 00022c3c 6e 14 |n | BGT 0x22c52 00022c3e 20 17 | | MOVE.L (A7),D0 00022c40 0c 87 80 00 00 01 | | CMPI.L #0x80000001,D7 00022c46 6d 08 |m | BLT 0x22c50 00022c48 0c 80 7f ff ff ff | | CMPI.L #0x7fffffff,D0 00022c4e 6f 02 |o | BLE 0x22c52 00022c50 4e 4f |NO | TRAP #15 00022c52 be 97 | | CMP.L (A7),D7 00022c54 6e 44 |nD | BGT 0x22c9a 00022c56 2f 11 |/ | MOVE.L (A1),-(A7) 00022c58 20 07 | | MOVE.L D7,D0 00022c5a 53 80 |S | SUBQ.L #0x1,D0 00022c5c 0c 80 00 00 1f ff | | CMPI.L #0x00001fff,D0 00022c62 63 02 |c | BLS 0x22c66 00022c64 4e 4f |NO | TRAP #15 00022c66 41 f9 00 02 58 48 |A XH | LEA.L 0x25848,A0 00022c6c 1f 30 08 08 | 0 | MOVE.B (A0+D0.L+#0x8),-(A7) 00022c70 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00022c76 5c 4f |\O | ADDQ.L #0x6,A7 00022c78 20 51 | Q | MOVEA.L (A1),A0 00022c7a 30 10 |0 | MOVE.W (A0),D0 00022c7c 0c 40 00 7a | @ z | CMPI.W #0x007a,D0 00022c80 6d 14 |m | BLT 0x22c96 00022c82 2f 11 |/ | MOVE.L (A1),-(A7) 00022c84 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String) 00022c8a 58 4f |XO | ADDQ.L #0x4,A7 00022c8c 48 51 |HQ | PEA.L (A1) 00022c8e 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00022c94 58 4f |XO | ADDQ.L #0x4,A7 00022c96 52 87 |R | ADDQ.L #0x1,D7 00022c98 68 b8 |h | BVC 0x22c52 00022c9a 58 4f |XO | ADDQ.L #0x4,A7 00022c9c 2f 11 |/ | MOVE.L (A1),-(A7) 00022c9e 1f 3c 00 20 | < | MOVE.B #0x20,-(A7) 00022ca2 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00022ca8 5c 4f |\O | ADDQ.L #0x6,A7 00022caa 20 52 | R | MOVEA.L (A2),A0 00022cac 24 a8 00 08 |$ | MOVE.L (A0+0x8),(A2) 00022cb0 60 00 ff 74 |` t | BRA 0x22c26 00022cb4 2f 11 |/ | MOVE.L (A1),-(A7) 00022cb6 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00022cbc 58 4f |XO | ADDQ.L #0x4,A7 00022cbe 4c df 07 81 |L | MOVEM.L (A7)+,D0+D7+A0+A1+A2 00022cc2 4e 5e |N^ | UNLK A6 00022cc4 4e 75 |Nu | RTS 00022cc6 ; -------------------------------------------------------------------------------------- 00022cc6 ; OMSI PASCAL Function 00022cc6 ; <LVAR 0x008 @ 4(r)> 00022cc6 ; <LVAR -0x003 @ 1(r)> 00022cc6 ; <LVAR -0x004 @ 1(r)> 00022cc6 ; <LVAR -0x008 @ 4(r)> 00022cc6 ; <LVAR -0x00c @ 4(rw)> 00022cc6 ; -------------------------------------------------------------------------------------- 00022cc6 4e 56 ff ae |NV | LINK.W A6,#0xffae 00022cca bf d5 | | CMPA.L (A5),A7 00022ccc 62 06 |b | BHI 0x22cd4 00022cce 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022cd2 4e 76 |Nv | TRAPV 00022cd4 de fc 00 46 | F | ADDA.W #0x46,A7 00022cd8 48 e7 c0 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D1+D0,-(A7) 00022cdc 43 ee 00 08 |C | LEA.L (A6+0x8),A1 00022ce0 45 ee ff f4 |E | LEA.L (A6-0xc),A2 00022ce4 47 ee ff fc |G | LEA.L (A6-0x4),A3 00022ce8 49 ee ff f8 |I | LEA.L (A6-0x8),A4 00022cec 72 01 |r | MOVEQ.L #0x01,D1 00022cee 2f 3a ec 36 |/: 6 | MOVE.L 0x21926,-(A7) 00022cf2 51 4f |QO | SUBQ.L #0x8,A7 00022cf4 2f 11 |/ | MOVE.L (A1),-(A7) 00022cf6 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 00022cfc 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00022d00 3f 01 |? | MOVE.W D1,-(A7) 00022d02 3f 3c 00 04 |?< | MOVE.W #0x4,-(A7) 00022d06 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00022d0c 50 4f |PO | ADDQ.L #0x8,A7 00022d0e 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00022d14 50 4f |PO | ADDQ.L #0x8,A7 00022d16 24 9f |$ | MOVE.L (A7)+,(A2) 00022d18 2e 92 |. | MOVE.L (A2),(A7) 00022d1a 42 27 |B' | CLR.B -(A7) 00022d1c 42 27 |B' | CLR.B -(A7) 00022d1e 48 78 00 00 |Hx | PEA.L 0x0 00022d22 48 53 |HS | PEA.L (A3) 00022d24 48 54 |HT | PEA.L (A4) 00022d26 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File) 00022d2c de fc 00 14 | | ADDA.W #0x14,A7 00022d30 4a 13 |J | TST.B (A3) 00022d32 67 36 |g6 | BEQ 0x22d6a 00022d34 41 fa eb f0 |A | LEA.L 0x21926,A0 00022d38 70 0a |p | MOVEQ.L #0x0a,D0 00022d3a 3f 20 |? | MOVE.W -(A0),-(A7) 00022d3c 51 c8 ff fc |Q | DBF D0,0x22d3a 00022d40 51 4f |QO | SUBQ.L #0x8,A7 00022d42 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00022d46 3f 01 |? | MOVE.W D1,-(A7) 00022d48 3f 3c 00 16 |?< | MOVE.W #0x16,-(A7) 00022d4c 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00022d52 58 4f |XO | ADDQ.L #0x4,A7 00022d54 2e 91 |. | MOVE.L (A1),(A7) 00022d56 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00022d5c 50 4f |PO | ADDQ.L #0x8,A7 00022d5e 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00022d64 de fc 00 1a | | ADDA.W #0x1a,A7 00022d68 60 54 |`T | BRA 0x22dbe 00022d6a 2f 14 |/ | MOVE.L (A4),-(A7) 00022d6c 48 51 |HQ | PEA.L (A1) 00022d6e 48 6e ff fd |Hn | PEA.L (A6-0x3) 00022d72 4e b9 00 01 04 3c |N < | JSR FileReadLine(file : File; VAR a : String; VAR b : Byte) 00022d78 de fc 00 0c | | ADDA.W #0xc,A7 00022d7c 4a 2e ff fd |J. | TST.B (A6-0x3) 00022d80 66 14 |f | BNE 0x22d96 00022d82 59 4f |YO | SUBQ.L #0x4,A7 00022d84 2f 11 |/ | MOVE.L (A1),-(A7) 00022d86 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 00022d8c 58 4f |XO | ADDQ.L #0x4,A7 00022d8e 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00022d94 58 4f |XO | ADDQ.L #0x4,A7 00022d96 4a 2e ff fd |J. | TST.B (A6-0x3) 00022d9a 67 ce |g | BEQ 0x22d6a 00022d9c 42 27 |B' | CLR.B -(A7) 00022d9e 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 00022da2 48 78 00 01 |Hx | PEA.L 0x1 00022da6 48 53 |HS | PEA.L (A3) 00022da8 48 54 |HT | PEA.L (A4) 00022daa 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File) 00022db0 de fc 00 10 | | ADDA.W #0x10,A7 00022db4 48 51 |HQ | PEA.L (A1) 00022db6 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00022dbc 58 4f |XO | ADDQ.L #0x4,A7 00022dbe 48 52 |HR | PEA.L (A2) 00022dc0 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00022dc6 58 4f |XO | ADDQ.L #0x4,A7 00022dc8 4c df 1f 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2+A3+A4 00022dcc 4e 5e |N^ | UNLK A6 00022dce 4e 75 |Nu | RTS 00022dd0 ; -------------------------------------------------------------------------------------- 00022dd0 ; OMSI PASCAL Function 00022dd0 ; <LVAR 0x008 4(r)> 00022dd0 ; -------------------------------------------------------------------------------------- 00022dd0 4e 56 ff c6 |NV | LINK.W A6,#0xffc6 00022dd4 bf d5 | | CMPA.L (A5),A7 00022dd6 62 06 |b | BHI 0x22dde 00022dd8 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022ddc 4e 76 |Nv | TRAPV 00022dde de fc 00 2e | . | ADDA.W #0x2e,A7 00022de2 48 e7 83 88 |H | MOVEM.L A4+A0+D7+D6+D0,-(A7) 00022de6 59 4f |YO | SUBQ.L #0x4,A7 00022de8 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022dec 4e ba f3 64 |N d | JSR 0x22152 00022df0 58 4f |XO | ADDQ.L #0x4,A7 00022df2 2c 1f |, | MOVE.L (A7)+,D6 00022df4 66 2e |f. | BNE 0x22e24 00022df6 41 f9 00 02 78 62 |A xb | LEA.L 0x27862,A0 00022dfc 70 04 |p | MOVEQ.L #0x04,D0 00022dfe 3f 20 |? | MOVE.W -(A0),-(A7) 00022e00 51 c8 ff fc |Q | DBF D0,0x22dfe 00022e04 59 4f |YO | SUBQ.L #0x4,A7 00022e06 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022e0a 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00022e0e 3f 3c 00 0a |?< | MOVE.W #0xa,-(A7) 00022e12 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00022e18 50 4f |PO | ADDQ.L #0x8,A7 00022e1a 4e ba fe aa |N | JSR 0x22cc6 00022e1e de fc 00 0e | | ADDA.W #0xe,A7 00022e22 60 26 |`& | BRA 0x22e4a 00022e24 2f 06 |/ | MOVE.L D6,-(A7) 00022e26 7e 01 |~ | MOVEQ.L #0x01,D7 00022e28 be 97 | | CMP.L (A7),D7 00022e2a 6e 1c |n | BGT 0x22e48 00022e2c 59 4f |YO | SUBQ.L #0x4,A7 00022e2e 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022e32 2f 07 |/ | MOVE.L D7,-(A7) 00022e34 4e ba fc 38 |N 8 | JSR 0x22a6e 00022e38 50 4f |PO | ADDQ.L #0x8,A7 00022e3a 28 5f |(_ | MOVEA.L (A7)+,A4 00022e3c 2f 0c |/ | MOVE.L A4,-(A7) 00022e3e 4e ba fe 86 |N | JSR 0x22cc6 00022e42 58 4f |XO | ADDQ.L #0x4,A7 00022e44 52 87 |R | ADDQ.L #0x1,D7 00022e46 68 e0 |h | BVC 0x22e28 00022e48 58 4f |XO | ADDQ.L #0x4,A7 00022e4a 4c df 11 c1 |L | MOVEM.L (A7)+,D0+D6+D7+A0+A4 00022e4e 4e 5e |N^ | UNLK A6 00022e50 4e 75 |Nu | RTS 00022e52 ; -------------------------------------------------------------------------------------- 00022e52 ; OMSI PASCAL Function 00022e52 ; <LVAR 0x00c @> 00022e52 ; <LVAR 0x008 @ 4(r)> 00022e52 ; <LVAR -0x020 @> 00022e52 ; -------------------------------------------------------------------------------------- 00022e52 4e 56 ff b8 |NV | LINK.W A6,#0xffb8 00022e56 bf d5 | | CMPA.L (A5),A7 00022e58 62 06 |b | BHI 0x22e60 00022e5a 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022e5e 4e 76 |Nv | TRAPV 00022e60 de fc 00 24 | $ | ADDA.W #0x24,A7 00022e64 48 e7 e1 c0 |H | MOVEM.L A1+A0+D7+D2+D1+D0,-(A7) 00022e68 74 1d |t | MOVEQ.L #0x1d,D2 00022e6a 7e 01 |~ | MOVEQ.L #0x01,D7 00022e6c 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00022e70 30 10 |0 | MOVE.W (A0),D0 00022e72 48 c0 |H | EXTW.L D0 00022e74 be 80 | | CMP.L D0,D7 00022e76 6f 10 |o | BLE 0x22e88 00022e78 20 07 | | MOVE.L D7,D0 00022e7a 53 80 |S | SUBQ.L #0x1,D0 00022e7c b0 82 | | CMP.L D2,D0 00022e7e 63 02 |c | BLS 0x22e82 00022e80 4e 4f |NO | TRAP #15 00022e82 42 36 08 e0 |B6 | CLR.B (A6+D0.L-#0x20) 00022e86 60 1e |` | BRA 0x22ea6 00022e88 20 07 | | MOVE.L D7,D0 00022e8a 53 80 |S | SUBQ.L #0x1,D0 00022e8c b0 82 | | CMP.L D2,D0 00022e8e 63 02 |c | BLS 0x22e92 00022e90 4e 4f |NO | TRAP #15 00022e92 22 07 |" | MOVE.L D7,D1 00022e94 53 81 |S | SUBQ.L #0x1,D1 00022e96 0c 81 00 00 00 7d | } | CMPI.L #0x0000007d,D1 00022e9c 63 02 |c | BLS 0x22ea0 00022e9e 4e 4f |NO | TRAP #15 00022ea0 1d b0 18 02 08 e0 | | MOVE.B (A0+D1.L+#0x2),(A6+D0.L-#0x20) 00022ea6 52 87 |R | ADDQ.L #0x1,D7 00022ea8 0c 87 00 00 00 1e | | CMPI.L #0x0000001e,D7 00022eae 6f bc |o | BLE 0x22e6c 00022eb0 48 6e 00 08 |Hn | PEA.L (A6+0x8) 00022eb4 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00022eba 58 4f |XO | ADDQ.L #0x4,A7 00022ebc 41 ee 00 0c |A | LEA.L (A6+0xc),A0 00022ec0 43 ee ff e0 |C | LEA.L (A6-0x20),A1 00022ec4 70 0e |p | MOVEQ.L #0x0e,D0 00022ec6 30 d9 |0 | MOVE.W (A1)+,(A0)+ 00022ec8 51 c8 ff fc |Q | DBF D0,0x22ec6 00022ecc 4c df 03 87 |L | MOVEM.L (A7)+,D0+D1+D2+D7+A0+A1 00022ed0 4e 5e |N^ | UNLK A6 00022ed2 4e 75 |Nu | RTS 00022ed4 ; -------------------------------------------------------------------------------------- 00022ed4 ; OMSI PASCAL Function 00022ed4 ; <LVAR 0x026 4(w)> 00022ed4 ; <LVAR 0x008 @> 00022ed4 ; <LVAR -0x006 4(rw)> 00022ed4 ; -------------------------------------------------------------------------------------- 00022ed4 4e 56 ff d6 |NV | LINK.W A6,#0xffd6 00022ed8 bf d5 | | CMPA.L (A5),A7 00022eda 62 06 |b | BHI 0x22ee2 00022edc 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022ee0 4e 76 |Nv | TRAPV 00022ee2 de fc 00 24 | $ | ADDA.W #0x24,A7 00022ee6 48 e7 c1 f0 |H | MOVEM.L A3+A2+A1+A0+D7+D1+D0,-(A7) 00022eea 47 ee ff fa |G | LEA.L (A6-0x6),A3 00022eee 7e 00 |~ | MOVEQ.L #0x00,D7 00022ef0 26 b9 00 02 78 7a |& xz | MOVE.L 0x2787a,(A3) 00022ef6 20 53 | S | MOVEA.L (A3),A0 00022ef8 b0 fc 00 01 | | CMPA.W #0x1,A0 00022efc 67 1e |g | BEQ 0x22f1c 00022efe 4a 07 |J | TST.B D7 00022f00 66 1a |f | BNE 0x22f1c 00022f02 22 48 |"H | MOVEA.L A0,A1 00022f04 45 ee 00 08 |E | LEA.L (A6+0x8),A2 00022f08 70 1d |p | MOVEQ.L #0x1d,D0 00022f0a b5 09 | | CMPM.B (A1)+,(A2)+ 00022f0c 56 c8 ff fc |V | DBNE D0,0x22f0a 00022f10 66 04 |f | BNE 0x22f16 00022f12 7e 01 |~ | MOVEQ.L #0x01,D7 00022f14 60 04 |` | BRA 0x22f1a 00022f16 26 a8 00 26 |& & | MOVE.L (A0+0x26),(A3) 00022f1a 60 da |` | BRA 0x22ef6 00022f1c 2d 48 00 26 |-H & | MOVE.L A0,(A6+0x26) 00022f20 4c df 0f 83 |L | MOVEM.L (A7)+,D0+D1+D7+A0+A1+A2+A3 00022f24 4e 5e |N^ | UNLK A6 00022f26 4e 75 |Nu | RTS 00022f28 ; -------------------------------------------------------------------------------------- 00022f28 ; OMSI PASCAL Function 00022f28 ; <LVAR 0x008 @ 4(r)> 00022f28 ; -------------------------------------------------------------------------------------- 00022f28 4e 56 ff c8 |NV | LINK.W A6,#0xffc8 00022f2c bf d5 | | CMPA.L (A5),A7 00022f2e 62 06 |b | BHI 0x22f36 00022f30 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022f34 4e 76 |Nv | TRAPV 00022f36 de fc 00 2c | , | ADDA.W #0x2c,A7 00022f3a 48 e7 81 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D0,-(A7) 00022f3e 43 ee 00 08 |C | LEA.L (A6+0x8),A1 00022f42 45 f9 00 02 78 7a |E xz | LEA.L 0x2787a,A2 00022f48 70 01 |p | MOVEQ.L #0x01,D0 00022f4a 20 51 | Q | MOVEA.L (A1),A0 00022f4c b0 c0 | | CMPA.W D0,A0 00022f4e 67 56 |gV | BEQ 0x22fa6 00022f50 4a a8 00 1e |J | TST.L (A0+0x1e) 00022f54 67 10 |g | BEQ 0x22f66 00022f56 2f 28 00 22 |/( " | MOVE.L (A0+0x22),-(A7) 00022f5a 2f 28 00 1e |/( | MOVE.L (A0+0x1e),-(A7) 00022f5e 4e b9 00 01 02 a4 |N | JSR Free1(a : Pointer; b : Long) 00022f64 50 4f |PO | ADDQ.L #0x8,A7 00022f66 7e 00 |~ | MOVEQ.L #0x00,D7 00022f68 38 40 |8@ | MOVEA.W D0,A4 00022f6a 26 52 |&R | MOVEA.L (A2),A3 00022f6c b6 c0 | | CMPA.W D0,A3 00022f6e 67 14 |g | BEQ 0x22f84 00022f70 4a 07 |J | TST.B D7 00022f72 66 10 |f | BNE 0x22f84 00022f74 b7 d1 | | CMPA.L (A1),A3 00022f76 66 04 |f | BNE 0x22f7c 00022f78 7e 01 |~ | MOVEQ.L #0x01,D7 00022f7a 60 06 |` | BRA 0x22f82 00022f7c 28 4b |(K | MOVEA.L A3,A4 00022f7e 26 6b 00 26 |&k & | MOVEA.L (A3+0x26),A3 00022f82 60 e8 |` | BRA 0x22f6c 00022f84 4a 07 |J | TST.B D7 00022f86 67 1e |g | BEQ 0x22fa6 00022f88 b8 c0 | | CMPA.W D0,A4 00022f8a 66 06 |f | BNE 0x22f92 00022f8c 24 ab 00 26 |$ & | MOVE.L (A3+0x26),(A2) 00022f90 60 06 |` | BRA 0x22f98 00022f92 29 6b 00 26 00 26 |)k & & | MOVE.L (A3+0x26),(A4+0x26) 00022f98 48 51 |HQ | PEA.L (A1) 00022f9a 48 78 00 2a |Hx * | PEA.L 0x2a 00022f9e 4e b9 00 01 02 a8 |N | JSR Free2(a : Pointer; b : Long) 00022fa4 50 4f |PO | ADDQ.L #0x8,A7 00022fa6 4c df 1f 81 |L | MOVEM.L (A7)+,D0+D7+A0+A1+A2+A3+A4 00022faa 4e 5e |N^ | UNLK A6 00022fac 4e 75 |Nu | RTS 00022fae ; -------------------------------------------------------------------------------------- 00022fae ; OMSI PASCAL Function 00022fae ; <LVAR 0x010 4(w)> 00022fae ; <LVAR 0x00c 4(r)> 00022fae ; <LVAR 0x008 4(r)> 00022fae ; <LVAR -0x006 @ 4(rw)> 00022fae ; <LVAR -0x024 @> 00022fae ; -------------------------------------------------------------------------------------- 00022fae 4e 56 ff 9a |NV | LINK.W A6,#0xff9a 00022fb2 bf d5 | | CMPA.L (A5),A7 00022fb4 62 06 |b | BHI 0x22fbc 00022fb6 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022fba 4e 76 |Nv | TRAPV 00022fbc de fc 00 42 | B | ADDA.W #0x42,A7 00022fc0 48 e7 c0 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D1+D0,-(A7) 00022fc4 47 ee ff fa |G | LEA.L (A6-0x6),A3 00022fc8 49 ee 00 08 |I | LEA.L (A6+0x8),A4 00022fcc 72 1e |r | MOVEQ.L #0x1e,D1 00022fce 9e c1 | | SUBA.W D1,A7 00022fd0 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 00022fd4 2f 10 |/ | MOVE.L (A0),-(A7) 00022fd6 4e ba fe 7a |N z | JSR 0x22e52 00022fda 58 4f |XO | ADDQ.L #0x4,A7 00022fdc 41 ee ff dc |A | LEA.L (A6-0x24),A0 00022fe0 70 0e |p | MOVEQ.L #0x0e,D0 00022fe2 30 df |0 | MOVE.W (A7)+,(A0)+ 00022fe4 51 c8 ff fc |Q | DBF D0,0x22fe2 00022fe8 4a 94 |J | TST.L (A4) 00022fea 6c 02 |l | BGE 0x22fee 00022fec 42 94 |B | CLR.L (A4) 00022fee 59 4f |YO | SUBQ.L #0x4,A7 00022ff0 20 4b | K | MOVEA.L A3,A0 00022ff2 70 0e |p | MOVEQ.L #0x0e,D0 00022ff4 3f 20 |? | MOVE.W -(A0),-(A7) 00022ff6 51 c8 ff fc |Q | DBF D0,0x22ff4 00022ffa 4e ba fe d8 |N | JSR 0x22ed4 00022ffe de c1 | | ADDA.W D1,A7 00023000 26 9f |& | MOVE.L (A7)+,(A3) 00023002 20 53 | S | MOVEA.L (A3),A0 00023004 b0 fc 00 01 | | CMPA.W #0x1,A0 00023008 67 12 |g | BEQ 0x2301c 0002300a 20 28 00 1e | ( | MOVE.L (A0+0x1e),D0 0002300e b0 94 | | CMP.L (A4),D0 00023010 66 02 |f | BNE 0x23014 00023012 60 4c |`L | BRA 0x23060 00023014 2f 13 |/ | MOVE.L (A3),-(A7) 00023016 4e ba ff 10 |N | JSR 0x22f28 0002301a 58 4f |XO | ADDQ.L #0x4,A7 0002301c 48 53 |HS | PEA.L (A3) 0002301e 48 78 00 2a |Hx * | PEA.L 0x2a 00023022 4e b9 00 01 02 9c |N | JSR Malloc1(length : Long) : Pointer 00023028 50 4f |PO | ADDQ.L #0x8,A7 0002302a 20 53 | S | MOVEA.L (A3),A0 0002302c 21 79 00 02 78 7a 00 26 |!y xz &| MOVE.L 0x2787a,(A0+0x26) 00023034 23 d3 00 02 78 7a |# xz | MOVE.L (A3),0x2787a 0002303a 22 48 |"H | MOVEA.L A0,A1 0002303c 45 ee ff dc |E | LEA.L (A6-0x24),A2 00023040 70 1d |p | MOVEQ.L #0x1d,D0 00023042 12 da | | MOVE.B (A2)+,(A1)+ 00023044 51 c8 ff fc |Q | DBF D0,0x23042 00023048 21 54 00 1e |!T | MOVE.L (A4),(A0+0x1e) 0002304c 4a 94 |J | TST.L (A4) 0002304e 67 10 |g | BEQ 0x23060 00023050 59 4f |YO | SUBQ.L #0x4,A7 00023052 2f 14 |/ | MOVE.L (A4),-(A7) 00023054 4e b9 00 01 02 a0 |N | JSR Malloc2(VAR dst : Pointer; length : Word) 0002305a 58 4f |XO | ADDQ.L #0x4,A7 0002305c 21 5f 00 22 |!_ " | MOVE.L (A7)+,(A0+0x22) 00023060 2d 53 00 10 |-S | MOVE.L (A3),(A6+0x10) 00023064 4c df 1f 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2+A3+A4 00023068 4e 5e |N^ | UNLK A6 0002306a 4e 75 |Nu | RTS 0002306c ; -------------------------------------------------------------------------------------- 0002306c ; OMSI PASCAL Function 0002306c ; <LVAR 0x00c @> 0002306c ; <LVAR 0x008 @ 4(r)> 0002306c ; <LVAR -0x008 4(rw)> 0002306c ; -------------------------------------------------------------------------------------- 0002306c 4e 56 ff c8 |NV | LINK.W A6,#0xffc8 00023070 bf d5 | | CMPA.L (A5),A7 00023072 62 06 |b | BHI 0x2307a 00023074 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023078 4e 76 |Nv | TRAPV 0002307a de fc 00 2c | , | ADDA.W #0x2c,A7 0002307e 48 e7 c3 e0 |H | MOVEM.L A2+A1+A0+D7+D6+D1+D0,-(A7) 00023082 45 ee 00 08 |E | LEA.L (A6+0x8),A2 00023086 20 52 | R | MOVEA.L (A2),A0 00023088 30 10 |0 | MOVE.W (A0),D0 0002308a 48 c0 |H | EXTW.L D0 0002308c 2c 00 |, | MOVE.L D0,D6 0002308e 59 4f |YO | SUBQ.L #0x4,A7 00023090 48 6e 00 0c |Hn | PEA.L (A6+0xc) 00023094 2f 06 |/ | MOVE.L D6,-(A7) 00023096 4e ba ff 16 |N | JSR 0x22fae 0002309a 50 4f |PO | ADDQ.L #0x8,A7 0002309c 2d 5f ff f8 |-_ | MOVE.L (A7)+,(A6-0x8) 000230a0 4a 86 |J | TST.L D6 000230a2 67 40 |g@ | BEQ 0x230e4 000230a4 20 6e ff f8 | n | MOVEA.L (A6-0x8),A0 000230a8 20 68 00 22 | h " | MOVEA.L (A0+0x22),A0 000230ac 2f 08 |/ | MOVE.L A0,-(A7) 000230ae 2f 06 |/ | MOVE.L D6,-(A7) 000230b0 7e 01 |~ | MOVEQ.L #0x01,D7 000230b2 be 97 | | CMP.L (A7),D7 000230b4 6e 2c |n, | BGT 0x230e2 000230b6 20 07 | | MOVE.L D7,D0 000230b8 53 80 |S | SUBQ.L #0x1,D0 000230ba 0c 80 00 00 03 ff | | CMPI.L #0x000003ff,D0 000230c0 63 02 |c | BLS 0x230c4 000230c2 4e 4f |NO | TRAP #15 000230c4 20 6f 00 04 | o | MOVEA.L (A7+0x4),A0 000230c8 22 52 |"R | MOVEA.L (A2),A1 000230ca 22 07 |" | MOVE.L D7,D1 000230cc 53 81 |S | SUBQ.L #0x1,D1 000230ce 0c 81 00 00 00 7d | } | CMPI.L #0x0000007d,D1 000230d4 63 02 |c | BLS 0x230d8 000230d6 4e 4f |NO | TRAP #15 000230d8 11 b1 18 02 08 00 | | MOVE.B (A1+D1.L+#0x2),(A0+D0.L) 000230de 52 87 |R | ADDQ.L #0x1,D7 000230e0 68 d0 |h | BVC 0x230b2 000230e2 50 4f |PO | ADDQ.L #0x8,A7 000230e4 48 52 |HR | PEA.L (A2) 000230e6 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000230ec 58 4f |XO | ADDQ.L #0x4,A7 000230ee 4c df 07 c3 |L | MOVEM.L (A7)+,D0+D1+D6+D7+A0+A1+A2 000230f2 4e 5e |N^ | UNLK A6 000230f4 4e 75 |Nu | RTS 000230f6 ; -------------------------------------------------------------------------------------- 000230f6 ; OMSI PASCAL Function 000230f6 ; <LVAR 0x008 4(r)> 000230f6 ; <LVAR -0x004 @ 4(w)> 000230f6 ; <LVAR -0x008 4(rw)> 000230f6 ; <LVAR -0x00c 4(rw)> 000230f6 ; <LVAR -0x010 4(rw)> 000230f6 ; <LVAR -0x01c 4(rw)> 000230f6 ; <LVAR -0x020 4(rw)> 000230f6 ; -------------------------------------------------------------------------------------- 000230f6 4e 56 ff 82 |NV | LINK.W A6,#0xff82 000230fa bf d5 | | CMPA.L (A5),A7 000230fc 62 06 |b | BHI 0x23104 000230fe 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023102 4e 76 |Nv | TRAPV 00023104 de fc 00 5a | Z | ADDA.W #0x5a,A7 00023108 48 e7 e7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7) 0002310c 45 ee ff f4 |E | LEA.L (A6-0xc),A2 00023110 47 ee ff f0 |G | LEA.L (A6-0x10),A3 00023114 49 ee 00 08 |I | LEA.L (A6+0x8),A4 00023118 74 01 |t | MOVEQ.L #0x01,D2 0002311a 59 4f |YO | SUBQ.L #0x4,A7 0002311c 2f 14 |/ | MOVE.L (A4),-(A7) 0002311e 4e ba f0 32 |N 2 | JSR 0x22152 00023122 58 4f |XO | ADDQ.L #0x4,A7 00023124 26 9f |& | MOVE.L (A7)+,(A3) 00023126 20 13 | | MOVE.L (A3),D0 00023128 b0 82 | | CMP.L D2,D0 0002312a 6c 2e |l. | BGE 0x2315a 0002312c 9e fc 00 1a | | SUBA.W #0x1a,A7 00023130 20 4f | O | MOVEA.L A7,A0 00023132 43 fa e7 f6 |C | LEA.L 0x2192a,A1 00023136 72 18 |r | MOVEQ.L #0x18,D1 00023138 10 d9 | | MOVE.B (A1)+,(A0)+ 0002313a 51 c9 ff fc |Q | DBF D1,0x23138 0002313e 59 4f |YO | SUBQ.L #0x4,A7 00023140 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023144 3f 02 |? | MOVE.W D2,-(A7) 00023146 3f 3c 00 19 |?< | MOVE.W #0x19,-(A7) 0002314a 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00023150 50 4f |PO | ADDQ.L #0x8,A7 00023152 4e ba eb f2 |N | JSR 0x21d46 00023156 de fc 00 1e | | ADDA.W #0x1e,A7 0002315a 42 92 |B | CLR.L (A2) 0002315c 2f 00 |/ | MOVE.L D0,-(A7) 0002315e 7c 02 || | MOVEQ.L #0x02,D6 00023160 bc 97 | | CMP.L (A7),D6 00023162 6e 1e |n | BGT 0x23182 00023164 9e fc 00 0c | | SUBA.W #0xc,A7 00023168 2f 14 |/ | MOVE.L (A4),-(A7) 0002316a 2f 06 |/ | MOVE.L D6,-(A7) 0002316c 4e ba f8 22 |N " | JSR 0x22990 00023170 50 4f |PO | ADDQ.L #0x8,A7 00023172 4e ba f7 e4 |N | JSR 0x22958 00023176 50 4f |PO | ADDQ.L #0x8,A7 00023178 20 12 | | MOVE.L (A2),D0 0002317a d0 9f | | ADD.L (A7)+,D0 0002317c 24 80 |$ | MOVE.L D0,(A2) 0002317e 52 86 |R | ADDQ.L #0x1,D6 00023180 68 de |h | BVC 0x23160 00023182 58 4f |XO | ADDQ.L #0x4,A7 00023184 20 13 | | MOVE.L (A3),D0 00023186 55 80 |U | SUBQ.L #0x2,D0 00023188 d1 92 | | ADD.L D0,(A2) 0002318a 59 4f |YO | SUBQ.L #0x4,A7 0002318c 2f 14 |/ | MOVE.L (A4),-(A7) 0002318e 48 78 00 01 |Hx | PEA.L 0x1 00023192 4e ba f8 da |N | JSR 0x22a6e 00023196 50 4f |PO | ADDQ.L #0x8,A7 00023198 2d 57 ff fc |-W | MOVE.L (A7),(A6-0x4) 0002319c 48 6e ff fc |Hn | PEA.L (A6-0x4) 000231a0 2f 12 |/ | MOVE.L (A2),-(A7) 000231a2 4e ba fe 0a |N | JSR 0x22fae 000231a6 50 4f |PO | ADDQ.L #0x8,A7 000231a8 2d 5f ff f8 |-_ | MOVE.L (A7)+,(A6-0x8) 000231ac 4a 92 |J | TST.L (A2) 000231ae 6f 00 00 aa |o | BLE 0x2325a 000231b2 20 6e ff f8 | n | MOVEA.L (A6-0x8),A0 000231b6 20 68 00 22 | h " | MOVEA.L (A0+0x22),A0 000231ba 2f 08 |/ | MOVE.L A0,-(A7) 000231bc 7e 01 |~ | MOVEQ.L #0x01,D7 000231be 2f 13 |/ | MOVE.L (A3),-(A7) 000231c0 7c 02 || | MOVEQ.L #0x02,D6 000231c2 bc 97 | | CMP.L (A7),D6 000231c4 6e 00 00 92 |n | BGT 0x23258 000231c8 51 4f |QO | SUBQ.L #0x8,A7 000231ca 2f 14 |/ | MOVE.L (A4),-(A7) 000231cc 2f 06 |/ | MOVE.L D6,-(A7) 000231ce 4e ba f7 c0 |N | JSR 0x22990 000231d2 50 4f |PO | ADDQ.L #0x8,A7 000231d4 2d 5f ff e0 |-_ | MOVE.L (A7)+,(A6-0x20) 000231d8 2d 5f ff e4 |-_ | MOVE.L (A7)+,(A6-0x1c) 000231dc 2f 2e ff e4 |/. | MOVE.L (A6-0x1c),-(A7) 000231e0 2a 2e ff e0 |*. | MOVE.L (A6-0x20),D5 000231e4 ba 97 | | CMP.L (A7),D5 000231e6 6e 14 |n | BGT 0x231fc 000231e8 20 17 | | MOVE.L (A7),D0 000231ea 0c 85 80 00 00 01 | | CMPI.L #0x80000001,D5 000231f0 6d 08 |m | BLT 0x231fa 000231f2 0c 80 7f ff ff ff | | CMPI.L #0x7fffffff,D0 000231f8 6f 02 |o | BLE 0x231fc 000231fa 4e 4f |NO | TRAP #15 000231fc ba 97 | | CMP.L (A7),D5 000231fe 6e 32 |n2 | BGT 0x23232 00023200 20 07 | | MOVE.L D7,D0 00023202 53 80 |S | SUBQ.L #0x1,D0 00023204 0c 80 00 00 03 ff | | CMPI.L #0x000003ff,D0 0002320a 63 02 |c | BLS 0x2320e 0002320c 4e 4f |NO | TRAP #15 0002320e 20 6f 00 08 | o | MOVEA.L (A7+0x8),A0 00023212 22 05 |" | MOVE.L D5,D1 00023214 53 81 |S | SUBQ.L #0x1,D1 00023216 0c 81 00 00 1f ff | | CMPI.L #0x00001fff,D1 0002321c 63 02 |c | BLS 0x23220 0002321e 4e 4f |NO | TRAP #15 00023220 43 f9 00 02 58 48 |C XH | LEA.L 0x25848,A1 00023226 11 b1 18 08 08 00 | | MOVE.B (A1+D1.L+#0x8),(A0+D0.L) 0002322c 52 87 |R | ADDQ.L #0x1,D7 0002322e 52 85 |R | ADDQ.L #0x1,D5 00023230 68 ca |h | BVC 0x231fc 00023232 58 4f |XO | ADDQ.L #0x4,A7 00023234 bc 93 | | CMP.L (A3),D6 00023236 67 1a |g | BEQ 0x23252 00023238 20 07 | | MOVE.L D7,D0 0002323a 53 80 |S | SUBQ.L #0x1,D0 0002323c 0c 80 00 00 03 ff | | CMPI.L #0x000003ff,D0 00023242 63 02 |c | BLS 0x23246 00023244 4e 4f |NO | TRAP #15 00023246 20 6f 00 04 | o | MOVEA.L (A7+0x4),A0 0002324a 11 bc 00 2c 08 00 | , | MOVE.B #0x2c,(A0+D0.L) 00023250 52 87 |R | ADDQ.L #0x1,D7 00023252 52 86 |R | ADDQ.L #0x1,D6 00023254 68 00 ff 6c |h l | BVC 0x231c2 00023258 50 4f |PO | ADDQ.L #0x8,A7 0002325a 4c df 1f e7 |L | MOVEM.L (A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3+A4 0002325e 4e 5e |N^ | UNLK A6 00023260 4e 75 |Nu | RTS 00023262 ; -------------------------------------------------------------------------------------- 00023262 ; OMSI PASCAL Function 00023262 ; <LVAR 0x008 4(r)> 00023262 ; <LVAR -0x00c 4(rw)> 00023262 ; -------------------------------------------------------------------------------------- 00023262 4e 56 ff a0 |NV | LINK.W A6,#0xffa0 00023266 bf d5 | | CMPA.L (A5),A7 00023268 62 06 |b | BHI 0x23270 0002326a 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002326e 4e 76 |Nv | TRAPV 00023270 de fc 00 54 | T | ADDA.W #0x54,A7 00023274 48 e7 e1 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D2+D1+D0,-(A7) 00023278 47 f9 00 02 78 50 |G xP | LEA.L 0x27850,A3 0002327e 74 01 |t | MOVEQ.L #0x01,D2 00023280 59 4f |YO | SUBQ.L #0x4,A7 00023282 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023286 48 78 00 01 |Hx | PEA.L 0x1 0002328a 4e ba f7 e2 |N | JSR 0x22a6e 0002328e 50 4f |PO | ADDQ.L #0x8,A7 00023290 28 5f |(_ | MOVEA.L (A7)+,A4 00023292 9e fc 00 22 | " | SUBA.W #0x22,A7 00023296 2f 0c |/ | MOVE.L A4,-(A7) 00023298 4e ba fb b8 |N | JSR 0x22e52 0002329c 58 4f |XO | ADDQ.L #0x4,A7 0002329e 4e ba fc 34 |N 4 | JSR 0x22ed4 000232a2 de fc 00 1e | | ADDA.W #0x1e,A7 000232a6 2d 5f ff f4 |-_ | MOVE.L (A7)+,(A6-0xc) 000232aa 20 6e ff f4 | n | MOVEA.L (A6-0xc),A0 000232ae b0 c2 | | CMPA.W D2,A0 000232b0 66 42 |fB | BNE 0x232f4 000232b2 9e fc 00 14 | | SUBA.W #0x14,A7 000232b6 22 4f |"O | MOVEA.L A7,A1 000232b8 45 fa e6 8a |E | LEA.L 0x21944,A2 000232bc 70 12 |p | MOVEQ.L #0x12,D0 000232be 12 da | | MOVE.B (A2)+,(A1)+ 000232c0 51 c8 ff fc |Q | DBF D0,0x232be 000232c4 51 4f |QO | SUBQ.L #0x8,A7 000232c6 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000232ca 3f 02 |? | MOVE.W D2,-(A7) 000232cc 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7) 000232d0 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000232d6 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7) 000232da 48 78 00 01 |Hx | PEA.L 0x1 000232de 4e ba f7 8e |N | JSR 0x22a6e 000232e2 50 4f |PO | ADDQ.L #0x8,A7 000232e4 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000232ea 50 4f |PO | ADDQ.L #0x8,A7 000232ec 4e ba ea 58 |N X | JSR 0x21d46 000232f0 de fc 00 18 | | ADDA.W #0x18,A7 000232f4 2f 08 |/ | MOVE.L A0,-(A7) 000232f6 2f 13 |/ | MOVE.L (A3),-(A7) 000232f8 2f 28 00 1e |/( | MOVE.L (A0+0x1e),-(A7) 000232fc 44 97 |D | NEG.L (A7) 000232fe 4e ba ef 9a |N | JSR 0x2229a 00023302 58 4f |XO | ADDQ.L #0x4,A7 00023304 2e a8 00 1e |. | MOVE.L (A0+0x1e),(A7) 00023308 7e 01 |~ | MOVEQ.L #0x01,D7 0002330a be 97 | | CMP.L (A7),D7 0002330c 6e 38 |n8 | BGT 0x23346 0002330e 20 07 | | MOVE.L D7,D0 00023310 d0 93 | | ADD.L (A3),D0 00023312 53 80 |S | SUBQ.L #0x1,D0 00023314 53 80 |S | SUBQ.L #0x1,D0 00023316 0c 80 00 00 1f ff | | CMPI.L #0x00001fff,D0 0002331c 63 02 |c | BLS 0x23320 0002331e 4e 4f |NO | TRAP #15 00023320 41 f9 00 02 58 48 |A XH | LEA.L 0x25848,A0 00023326 22 6f 00 04 |"o | MOVEA.L (A7+0x4),A1 0002332a 22 69 00 22 |"i " | MOVEA.L (A1+0x22),A1 0002332e 22 07 |" | MOVE.L D7,D1 00023330 53 81 |S | SUBQ.L #0x1,D1 00023332 0c 81 00 00 03 ff | | CMPI.L #0x000003ff,D1 00023338 63 02 |c | BLS 0x2333c 0002333a 4e 4f |NO | TRAP #15 0002333c 11 b1 18 00 08 08 | | MOVE.B (A1+D1.L),(A0+D0.L+#0x8) 00023342 52 87 |R | ADDQ.L #0x1,D7 00023344 68 c4 |h | BVC 0x2330a 00023346 50 4f |PO | ADDQ.L #0x8,A7 00023348 4c df 1f 87 |L | MOVEM.L (A7)+,D0+D1+D2+D7+A0+A1+A2+A3+A4 0002334c 4e 5e |N^ | UNLK A6 0002334e 4e 75 |Nu | RTS 00023350 ; -------------------------------------------------------------------------------------- 00023350 ; OMSI PASCAL Function 00023350 ; <LVAR -0x004 4(rw)> 00023350 ; -------------------------------------------------------------------------------------- 00023350 4e 56 ff ae |NV | LINK.W A6,#0xffae 00023354 bf d5 | | CMPA.L (A5),A7 00023356 62 06 |b | BHI 0x2335e 00023358 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002335c 4e 76 |Nv | TRAPV 0002335e de fc 00 4e | N | ADDA.W #0x4e,A7 00023362 48 e7 e0 f0 |H | MOVEM.L A3+A2+A1+A0+D2+D1+D0,-(A7) 00023366 47 ee ff fc |G | LEA.L (A6-0x4),A3 0002336a 72 01 |r | MOVEQ.L #0x01,D1 0002336c 74 1e |t | MOVEQ.L #0x1e,D2 0002336e 26 b9 00 02 78 7a |& xz | MOVE.L 0x2787a,(A3) 00023374 20 53 | S | MOVEA.L (A3),A0 00023376 b0 c1 | | CMPA.W D1,A0 00023378 67 30 |g0 | BEQ 0x233aa 0002337a 9e c2 | | SUBA.W D2,A7 0002337c 22 4f |"O | MOVEA.L A7,A1 0002337e 24 48 |$H | MOVEA.L A0,A2 00023380 70 1d |p | MOVEQ.L #0x1d,D0 00023382 12 da | | MOVE.B (A2)+,(A1)+ 00023384 51 c8 ff fc |Q | DBF D0,0x23382 00023388 59 4f |YO | SUBQ.L #0x4,A7 0002338a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002338e 3f 01 |? | MOVE.W D1,-(A7) 00023390 3f 02 |? | MOVE.W D2,-(A7) 00023392 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00023398 50 4f |PO | ADDQ.L #0x8,A7 0002339a 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000233a0 de fc 00 22 | " | ADDA.W #0x22,A7 000233a4 26 a8 00 26 |& & | MOVE.L (A0+0x26),(A3) 000233a8 60 ca |` | BRA 0x23374 000233aa 4c df 0f 07 |L | MOVEM.L (A7)+,D0+D1+D2+A0+A1+A2+A3 000233ae 4e 5e |N^ | UNLK A6 000233b0 4e 75 |Nu | RTS 000233b2 ; -------------------------------------------------------------------------------------- 000233b2 ; OMSI PASCAL Function 000233b2 ; <LVAR 0x008 4(r)> 000233b2 ; -------------------------------------------------------------------------------------- 000233b2 4e 56 ff ce |NV | LINK.W A6,#0xffce 000233b6 bf d5 | | CMPA.L (A5),A7 000233b8 62 06 |b | BHI 0x233c0 000233ba 44 fc 00 02 |D | MOVE.W #0x2,CCR 000233be 4e 76 |Nv | TRAPV 000233c0 de fc 00 32 | 2 | ADDA.W #0x32,A7 000233c4 9e fc 00 26 | & | SUBA.W #0x26,A7 000233c8 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000233cc 48 78 00 01 |Hx | PEA.L 0x1 000233d0 4e ba f6 9c |N | JSR 0x22a6e 000233d4 50 4f |PO | ADDQ.L #0x8,A7 000233d6 4e ba fa 7a |N z | JSR 0x22e52 000233da 58 4f |XO | ADDQ.L #0x4,A7 000233dc 4e ba fa f6 |N | JSR 0x22ed4 000233e0 de fc 00 1e | | ADDA.W #0x1e,A7 000233e4 4e ba fb 42 |N B | JSR 0x22f28 000233e8 58 4f |XO | ADDQ.L #0x4,A7 000233ea 4e 5e |N^ | UNLK A6 000233ec 4e 75 |Nu | RTS 000233ee ; -------------------------------------------------------------------------------------- 000233ee ; OMSI PASCAL Function 000233ee ; -------------------------------------------------------------------------------------- 000233ee 4e 56 ff f4 |NV | LINK.W A6,#0xfff4 000233f2 bf d5 | | CMPA.L (A5),A7 000233f4 62 06 |b | BHI 0x233fc 000233f6 44 fc 00 02 |D | MOVE.W #0x2,CCR 000233fa 4e 76 |Nv | TRAPV 000233fc de fc 00 0c | | ADDA.W #0xc,A7 00023400 51 4f |QO | SUBQ.L #0x8,A7 00023402 4e b9 00 01 03 cc |N | JSR GetPushLevel() : Long 00023408 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 0002340e 58 4f |XO | ADDQ.L #0x4,A7 00023410 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00023416 58 4f |XO | ADDQ.L #0x4,A7 00023418 4e 5e |N^ | UNLK A6 0002341a 4e 75 |Nu | RTS 0002341c ; -------------------------------------------------------------------------------------- 0002341c ; OMSI PASCAL Function 0002341c ; <LVAR 0x008 4(r)> 0002341c ; <LVAR -0x004 1(rw)> 0002341c ; <LVAR -0x008 @ 4(rw)> 0002341c ; <LVAR -0x00c @ 4(r)> 0002341c ; <LVAR -0x010 @ 4(r)> 0002341c ; <LVAR -0x012 @ 1(r)> 0002341c ; <LVAR -0x013 @ 1(r)> 0002341c ; <LVAR -0x014 @ 1(r)> 0002341c ; <LVAR -0x024 4(rw)> 0002341c ; <LVAR -0x028 4(rw)> 0002341c ; <LVAR -0x02c 4(rw)> 0002341c ; <LVAR -0x030 @ 4(r)> 0002341c ; <LVAR -0x032 1(w)> 0002341c ; <LVAR -0x036 @ 4(r)> 0002341c ; <LVAR -0x038 @ 1(r)> 0002341c ; <LVAR -0x03c @ 4(rw)> 0002341c ; -------------------------------------------------------------------------------------- 0002341c 4e 56 ff 64 |NV d | LINK.W A6,#0xff64 00023420 bf d5 | | CMPA.L (A5),A7 00023422 62 06 |b | BHI 0x2342a 00023424 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023428 4e 76 |Nv | TRAPV 0002342a de fc 00 60 | ` | ADDA.W #0x60,A7 0002342e 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00023432 45 ee ff c4 |E | LEA.L (A6-0x3c),A2 00023436 47 ee 00 08 |G | LEA.L (A6+0x8),A3 0002343a 49 f9 00 01 02 c4 |I | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A4 00023440 74 01 |t | MOVEQ.L #0x01,D2 00023442 76 14 |v | MOVEQ.L #0x14,D3 00023444 28 3c ff ff 80 00 |(< | MOVE.L #0xffff8000,D4 0002344a 59 4f |YO | SUBQ.L #0x4,A7 0002344c 2f 13 |/ | MOVE.L (A3),-(A7) 0002344e 4e ba ed 02 |N | JSR 0x22152 00023452 58 4f |XO | ADDQ.L #0x4,A7 00023454 2d 5f ff d4 |-_ | MOVE.L (A7)+,(A6-0x2c) 00023458 66 28 |f( | BNE 0x23482 0002345a 59 4f |YO | SUBQ.L #0x4,A7 0002345c 1e ba e5 0c | | MOVE.B 0x2196a,(A7) 00023460 1f 7a e5 09 00 01 | z | MOVE.B 0x2196b,(A7+0x1) 00023466 1f 7a e5 04 00 02 | z | MOVE.B 0x2196c,(A7+0x2) 0002346c 59 4f |YO | SUBQ.L #0x4,A7 0002346e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023472 3f 02 |? | MOVE.W D2,-(A7) 00023474 3f 3c 00 03 |?< | MOVE.W #0x3,-(A7) 00023478 4e 94 |N | JSR (A4) 0002347a 50 4f |PO | ADDQ.L #0x8,A7 0002347c 24 9f |$ | MOVE.L (A7)+,(A2) 0002347e 58 4f |XO | ADDQ.L #0x4,A7 00023480 60 10 |` | BRA 0x23492 00023482 59 4f |YO | SUBQ.L #0x4,A7 00023484 2f 13 |/ | MOVE.L (A3),-(A7) 00023486 48 78 00 01 |Hx | PEA.L 0x1 0002348a 4e ba f5 e2 |N | JSR 0x22a6e 0002348e 50 4f |PO | ADDQ.L #0x8,A7 00023490 24 9f |$ | MOVE.L (A7)+,(A2) 00023492 5d 4f |]O | SUBQ.L #0x6,A7 00023494 20 4f | O | MOVEA.L A7,A0 00023496 43 fa e4 d6 |C | LEA.L 0x2196e,A1 0002349a 70 04 |p | MOVEQ.L #0x04,D0 0002349c 10 d9 | | MOVE.B (A1)+,(A0)+ 0002349e 51 c8 ff fc |Q | DBF D0,0x2349c 000234a2 59 4f |YO | SUBQ.L #0x4,A7 000234a4 2f 12 |/ | MOVE.L (A2),-(A7) 000234a6 59 4f |YO | SUBQ.L #0x4,A7 000234a8 48 6f 00 0c |Ho | PEA.L (A7+0xc) 000234ac 3f 02 |? | MOVE.W D2,-(A7) 000234ae 3f 3c 00 05 |?< | MOVE.W #0x5,-(A7) 000234b2 4e 94 |N | JSR (A4) 000234b4 50 4f |PO | ADDQ.L #0x8,A7 000234b6 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000234bc 50 4f |PO | ADDQ.L #0x8,A7 000234be 24 9f |$ | MOVE.L (A7)+,(A2) 000234c0 54 4f |TO | ADDQ.L #0x2,A7 000234c2 2e 92 |. | MOVE.L (A2),(A7) 000234c4 42 27 |B' | CLR.B -(A7) 000234c6 1f 02 | | MOVE.B D2,-(A7) 000234c8 48 78 00 00 |Hx | PEA.L 0x0 000234cc 48 6e ff c8 |Hn | PEA.L (A6-0x38) 000234d0 48 6e ff ca |Hn | PEA.L (A6-0x36) 000234d4 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File) 000234da de c3 | | ADDA.W D3,A7 000234dc 4a 2e ff c8 |J. | TST.B (A6-0x38) 000234e0 67 0e |g | BEQ 0x234f0 000234e2 48 52 |HR | PEA.L (A2) 000234e4 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000234ea 58 4f |XO | ADDQ.L #0x4,A7 000234ec 60 00 02 4e |` N | BRA 0x2373c 000234f0 20 6e ff ca | n | MOVEA.L (A6-0x36),A0 000234f4 10 28 00 3f | ( ? | MOVE.B (A0+0x3f),D0 000234f8 ed 08 | | LSL.B #0x6,D0 000234fa ee 08 | | LSR.B #0x7,D0 000234fc 1d 40 ff ce | @ | MOVE.B D0,(A6-0x32) 00023500 42 27 |B' | CLR.B -(A7) 00023502 1f 02 | | MOVE.B D2,-(A7) 00023504 48 78 00 01 |Hx | PEA.L 0x1 00023508 48 6e ff c8 |Hn | PEA.L (A6-0x38) 0002350c 48 6e ff ca |Hn | PEA.L (A6-0x36) 00023510 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File) 00023516 de fc 00 10 | | ADDA.W #0x10,A7 0002351a 20 52 | R | MOVEA.L (A2),A0 0002351c 32 10 |2 | MOVE.W (A0),D1 0002351e 48 c1 |H | EXTW.L D1 00023520 5b 81 |[ | SUBQ.L #0x5,D1 00023522 92 84 | | SUB.L D4,D1 00023524 0c 81 00 00 ff ff | | CMPI.L #0x0000ffff,D1 0002352a 63 02 |c | BLS 0x2352e 0002352c 4e 4f |NO | TRAP #15 0002352e d2 84 | | ADD.L D4,D1 00023530 30 81 |0 | MOVE.W D1,(A0) 00023532 4a 00 |J | TST.B D0 00023534 66 36 |f6 | BNE 0x2356c 00023536 41 fa e4 32 |A 2 | LEA.L 0x2196a,A0 0002353a 70 08 |p | MOVEQ.L #0x08,D0 0002353c 3f 20 |? | MOVE.W -(A0),-(A7) 0002353e 51 c8 ff fc |Q | DBF D0,0x2353c 00023542 59 4f |YO | SUBQ.L #0x4,A7 00023544 2f 12 |/ | MOVE.L (A2),-(A7) 00023546 59 4f |YO | SUBQ.L #0x4,A7 00023548 48 6f 00 0c |Ho | PEA.L (A7+0xc) 0002354c 3f 02 |? | MOVE.W D2,-(A7) 0002354e 3f 3c 00 12 |?< | MOVE.W #0x12,-(A7) 00023552 4e 94 |N | JSR (A4) 00023554 50 4f |PO | ADDQ.L #0x8,A7 00023556 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 0002355c 50 4f |PO | ADDQ.L #0x8,A7 0002355e 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00023564 de fc 00 16 | | ADDA.W #0x16,A7 00023568 60 00 01 d2 |` | BRA 0x2373c 0002356c 48 6e ff d0 |Hn | PEA.L (A6-0x30) 00023570 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00023576 58 4f |XO | ADDQ.L #0x4,A7 00023578 20 6e ff d0 | n | MOVEA.L (A6-0x30),A0 0002357c 2f 08 |/ | MOVE.L A0,-(A7) 0002357e 7e 01 |~ | MOVEQ.L #0x01,D7 00023580 2f 2e ff d4 |/. | MOVE.L (A6-0x2c),-(A7) 00023584 7a 02 |z | MOVEQ.L #0x02,D5 00023586 ba 97 | | CMP.L (A7),D5 00023588 6e 00 00 94 |n | BGT 0x2361e 0002358c 51 4f |QO | SUBQ.L #0x8,A7 0002358e 2f 13 |/ | MOVE.L (A3),-(A7) 00023590 2f 05 |/ | MOVE.L D5,-(A7) 00023592 4e ba f3 fc |N | JSR 0x22990 00023596 50 4f |PO | ADDQ.L #0x8,A7 00023598 2d 5f ff d8 |-_ | MOVE.L (A7)+,(A6-0x28) 0002359c 2d 5f ff dc |-_ | MOVE.L (A7)+,(A6-0x24) 000235a0 2f 2e ff dc |/. | MOVE.L (A6-0x24),-(A7) 000235a4 2c 2e ff d8 |,. | MOVE.L (A6-0x28),D6 000235a8 bc 97 | | CMP.L (A7),D6 000235aa 6e 14 |n | BGT 0x235c0 000235ac 20 17 | | MOVE.L (A7),D0 000235ae 0c 86 80 00 00 01 | | CMPI.L #0x80000001,D6 000235b4 6d 08 |m | BLT 0x235be 000235b6 0c 80 7f ff ff ff | | CMPI.L #0x7fffffff,D0 000235bc 6f 02 |o | BLE 0x235c0 000235be 4e 4f |NO | TRAP #15 000235c0 bc 97 | | CMP.L (A7),D6 000235c2 6e 32 |n2 | BGT 0x235f6 000235c4 20 07 | | MOVE.L D7,D0 000235c6 53 80 |S | SUBQ.L #0x1,D0 000235c8 0c 80 00 00 00 7d | } | CMPI.L #0x0000007d,D0 000235ce 63 02 |c | BLS 0x235d2 000235d0 4e 4f |NO | TRAP #15 000235d2 20 6f 00 08 | o | MOVEA.L (A7+0x8),A0 000235d6 22 06 |" | MOVE.L D6,D1 000235d8 53 81 |S | SUBQ.L #0x1,D1 000235da 0c 81 00 00 1f ff | | CMPI.L #0x00001fff,D1 000235e0 63 02 |c | BLS 0x235e4 000235e2 4e 4f |NO | TRAP #15 000235e4 43 f9 00 02 58 48 |C XH | LEA.L 0x25848,A1 000235ea 11 b1 18 08 08 02 | | MOVE.B (A1+D1.L+#0x8),(A0+D0.L+#0x2) 000235f0 52 87 |R | ADDQ.L #0x1,D7 000235f2 52 86 |R | ADDQ.L #0x1,D6 000235f4 68 ca |h | BVC 0x235c0 000235f6 58 4f |XO | ADDQ.L #0x4,A7 000235f8 ba ae ff d4 | | CMP.L (A6-0x2c),D5 000235fc 67 1a |g | BEQ 0x23618 000235fe 20 07 | | MOVE.L D7,D0 00023600 53 80 |S | SUBQ.L #0x1,D0 00023602 0c 80 00 00 00 7d | } | CMPI.L #0x0000007d,D0 00023608 63 02 |c | BLS 0x2360c 0002360a 4e 4f |NO | TRAP #15 0002360c 20 6f 00 04 | o | MOVEA.L (A7+0x4),A0 00023610 11 bc 00 2c 08 02 | , | MOVE.B #0x2c,(A0+D0.L+#0x2) 00023616 52 87 |R | ADDQ.L #0x1,D7 00023618 52 85 |R | ADDQ.L #0x1,D5 0002361a 68 00 ff 6a |h j | BVC 0x23586 0002361e 58 4f |XO | ADDQ.L #0x4,A7 00023620 20 57 | W | MOVEA.L (A7),A0 00023622 20 07 | | MOVE.L D7,D0 00023624 53 80 |S | SUBQ.L #0x1,D0 00023626 90 84 | | SUB.L D4,D0 00023628 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 0002362e 63 02 |c | BLS 0x23632 00023630 4e 4f |NO | TRAP #15 00023632 d0 84 | | ADD.L D4,D0 00023634 30 80 |0 | MOVE.W D0,(A0) 00023636 54 4f |TO | ADDQ.L #0x2,A7 00023638 3e ba e3 3e |> > | MOVE.W 0x21978,(A7) 0002363c 3f 3a e3 38 |?: 8 | MOVE.W 0x21976,-(A7) 00023640 3f 3a e3 32 |?: 2 | MOVE.W 0x21974,-(A7) 00023644 59 4f |YO | SUBQ.L #0x4,A7 00023646 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002364a 3f 02 |? | MOVE.W D2,-(A7) 0002364c 3f 3c 00 06 |?< | MOVE.W #0x6,-(A7) 00023650 4e 94 |N | JSR (A4) 00023652 50 4f |PO | ADDQ.L #0x8,A7 00023654 2d 5f ff f8 |-_ | MOVE.L (A7)+,(A6-0x8) 00023658 54 4f |TO | ADDQ.L #0x2,A7 0002365a 2e 93 |. | MOVE.L (A3),(A7) 0002365c 48 78 00 00 |Hx | PEA.L 0x0 00023660 2f 2e ff f8 |/. | MOVE.L (A6-0x8),-(A7) 00023664 48 6e ff f0 |Hn | PEA.L (A6-0x10) 00023668 48 6e ff ed |Hn | PEA.L (A6-0x13) 0002366c 4e b9 00 02 4f a6 |N O | JSR 0x24fa6 00023672 de c3 | | ADDA.W D3,A7 00023674 48 6e ff f8 |Hn | PEA.L (A6-0x8) 00023678 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 0002367e 54 4f |TO | ADDQ.L #0x2,A7 00023680 3e ba e2 fc |> | MOVE.W 0x2197e,(A7) 00023684 3f 3a e2 f6 |?: | MOVE.W 0x2197c,-(A7) 00023688 3f 3a e2 f0 |?: | MOVE.W 0x2197a,-(A7) 0002368c 59 4f |YO | SUBQ.L #0x4,A7 0002368e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023692 3f 02 |? | MOVE.W D2,-(A7) 00023694 3f 3c 00 06 |?< | MOVE.W #0x6,-(A7) 00023698 4e 94 |N | JSR (A4) 0002369a 50 4f |PO | ADDQ.L #0x8,A7 0002369c 2d 5f ff f8 |-_ | MOVE.L (A7)+,(A6-0x8) 000236a0 54 4f |TO | ADDQ.L #0x2,A7 000236a2 2e 93 |. | MOVE.L (A3),(A7) 000236a4 48 78 00 00 |Hx | PEA.L 0x0 000236a8 2f 2e ff f8 |/. | MOVE.L (A6-0x8),-(A7) 000236ac 48 6e ff f4 |Hn | PEA.L (A6-0xc) 000236b0 48 6e ff ee |Hn | PEA.L (A6-0x12) 000236b4 4e b9 00 02 4f a6 |N O | JSR 0x24fa6 000236ba de c3 | | ADDA.W D3,A7 000236bc 48 6e ff f8 |Hn | PEA.L (A6-0x8) 000236c0 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000236c6 58 4f |XO | ADDQ.L #0x4,A7 000236c8 4a 2e ff ed |J. | TST.B (A6-0x13) 000236cc 66 06 |f | BNE 0x236d4 000236ce 4a 2e ff ee |J. | TST.B (A6-0x12) 000236d2 67 06 |g | BEQ 0x236da 000236d4 42 2e ff fc |B. | CLR.B (A6-0x4) 000236d8 60 04 |` | BRA 0x236de 000236da 1d 42 ff fc | B | MOVE.B D2,(A6-0x4) 000236de 2f 12 |/ | MOVE.L (A2),-(A7) 000236e0 2f 2e ff d0 |/. | MOVE.L (A6-0x30),-(A7) 000236e4 10 2e ff fc | . | MOVE.B (A6-0x4),D0 000236e8 48 80 |H | EXTB.W D0 000236ea 41 bc 00 02 |A | CHK.W #0x2,D0 000236ee 1f 00 | | MOVE.B D0,-(A7) 000236f0 48 6e ff ec |Hn | PEA.L (A6-0x14) 000236f4 4e b9 00 01 03 b0 |N | JSR PushProgram(a : String; b : String; MOD c : B; VAR d : Bool) 000236fa de fc 00 0e | | ADDA.W #0xe,A7 000236fe 4a 2e ff ed |J. | TST.B (A6-0x13) 00023702 67 20 |g | BEQ 0x23724 00023704 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7) 00023708 59 4f |YO | SUBQ.L #0x4,A7 0002370a 10 2e ff ec | . | MOVE.B (A6-0x14),D0 0002370e 48 80 |H | EXTB.W D0 00023710 41 bc 00 0e |A | CHK.W #0xe,D0 00023714 1f 00 | | MOVE.B D0,-(A7) 00023716 4e b9 00 01 03 c0 |N | JSR ExpErrMsg(a: Byte) : String 0002371c 54 4f |TO | ADDQ.L #0x2,A7 0002371e 4e ba f9 4c |N L | JSR 0x2306c 00023722 50 4f |PO | ADDQ.L #0x8,A7 00023724 4a 2e ff ee |J. | TST.B (A6-0x12) 00023728 67 12 |g | BEQ 0x2373c 0002372a 2f 2e ff f4 |/. | MOVE.L (A6-0xc),-(A7) 0002372e 59 4f |YO | SUBQ.L #0x4,A7 00023730 4e b9 00 01 03 c8 |N | JSR FSCALL_103c8 00023736 4e ba f9 34 |N 4 | JSR 0x2306c 0002373a 50 4f |PO | ADDQ.L #0x8,A7 0002373c 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00023740 4e 5e |N^ | UNLK A6 00023742 4e 75 |Nu | RTS 00023744 ; -------------------------------------------------------------------------------------- 00023744 ; OMSI PASCAL Function 00023744 ; <LVAR 0x008 4(r)> 00023744 ; <LVAR -0x004 @ 4(rw)> 00023744 ; <LVAR -0x008 @ 4(rw)> 00023744 ; -------------------------------------------------------------------------------------- 00023744 4e 56 ff e0 |NV | LINK.W A6,#0xffe0 00023748 bf d5 | | CMPA.L (A5),A7 0002374a 62 06 |b | BHI 0x23752 0002374c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023750 4e 76 |Nv | TRAPV 00023752 de fc 00 18 | | ADDA.W #0x18,A7 00023756 48 e7 00 c0 |H | MOVEM.L A1+A0,-(A7) 0002375a 41 ee ff f8 |A | LEA.L (A6-0x8),A0 0002375e 43 ee ff fc |C | LEA.L (A6-0x4),A1 00023762 59 4f |YO | SUBQ.L #0x4,A7 00023764 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023768 48 78 00 01 |Hx | PEA.L 0x1 0002376c 4e ba f3 00 |N | JSR 0x22a6e 00023770 50 4f |PO | ADDQ.L #0x8,A7 00023772 20 97 | | MOVE.L (A7),(A0) 00023774 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023778 48 78 00 02 |Hx | PEA.L 0x2 0002377c 4e ba f2 f0 |N | JSR 0x22a6e 00023780 50 4f |PO | ADDQ.L #0x8,A7 00023782 22 97 |" | MOVE.L (A7),(A1) 00023784 54 4f |TO | ADDQ.L #0x2,A7 00023786 2f 10 |/ | MOVE.L (A0),-(A7) 00023788 2f 11 |/ | MOVE.L (A1),-(A7) 0002378a 4e b9 00 01 02 c8 |N | JSR StringEqual(a, b : String) : Byte 00023790 50 4f |PO | ADDQ.L #0x8,A7 00023792 4a 1f |J | TST.B (A7)+ 00023794 67 06 |g | BEQ 0x2379c 00023796 4e ba ed 96 |N | JSR 0x2252e 0002379a 60 04 |` | BRA 0x237a0 0002379c 4e ba ed d6 |N | JSR 0x22574 000237a0 48 51 |HQ | PEA.L (A1) 000237a2 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000237a8 58 4f |XO | ADDQ.L #0x4,A7 000237aa 48 50 |HP | PEA.L (A0) 000237ac 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000237b2 58 4f |XO | ADDQ.L #0x4,A7 000237b4 4c df 03 00 |L | MOVEM.L (A7)+,A0+A1 000237b8 4e 5e |N^ | UNLK A6 000237ba 4e 75 |Nu | RTS 000237bc ; -------------------------------------------------------------------------------------- 000237bc ; OMSI PASCAL Function 000237bc ; <LVAR 0x008 4(r)> 000237bc ; <LVAR -0x004 @ 4(rw)> 000237bc ; <LVAR -0x008 @ 4(rw)> 000237bc ; -------------------------------------------------------------------------------------- 000237bc 4e 56 ff e0 |NV | LINK.W A6,#0xffe0 000237c0 bf d5 | | CMPA.L (A5),A7 000237c2 62 06 |b | BHI 0x237ca 000237c4 44 fc 00 02 |D | MOVE.W #0x2,CCR 000237c8 4e 76 |Nv | TRAPV 000237ca de fc 00 18 | | ADDA.W #0x18,A7 000237ce 48 e7 00 c0 |H | MOVEM.L A1+A0,-(A7) 000237d2 41 ee ff f8 |A | LEA.L (A6-0x8),A0 000237d6 43 ee ff fc |C | LEA.L (A6-0x4),A1 000237da 59 4f |YO | SUBQ.L #0x4,A7 000237dc 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000237e0 48 78 00 01 |Hx | PEA.L 0x1 000237e4 4e ba f2 88 |N | JSR 0x22a6e 000237e8 50 4f |PO | ADDQ.L #0x8,A7 000237ea 20 97 | | MOVE.L (A7),(A0) 000237ec 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000237f0 48 78 00 02 |Hx | PEA.L 0x2 000237f4 4e ba f2 78 |N x | JSR 0x22a6e 000237f8 50 4f |PO | ADDQ.L #0x8,A7 000237fa 22 97 |" | MOVE.L (A7),(A1) 000237fc 54 4f |TO | ADDQ.L #0x2,A7 000237fe 2f 10 |/ | MOVE.L (A0),-(A7) 00023800 2f 11 |/ | MOVE.L (A1),-(A7) 00023802 4e b9 00 01 02 c8 |N | JSR StringEqual(a, b : String) : Byte 00023808 50 4f |PO | ADDQ.L #0x8,A7 0002380a 4a 1f |J | TST.B (A7)+ 0002380c 66 06 |f | BNE 0x23814 0002380e 4e ba ed 1e |N | JSR 0x2252e 00023812 60 04 |` | BRA 0x23818 00023814 4e ba ed 5e |N ^ | JSR 0x22574 00023818 48 51 |HQ | PEA.L (A1) 0002381a 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00023820 58 4f |XO | ADDQ.L #0x4,A7 00023822 48 50 |HP | PEA.L (A0) 00023824 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 0002382a 58 4f |XO | ADDQ.L #0x4,A7 0002382c 4c df 03 00 |L | MOVEM.L (A7)+,A0+A1 00023830 4e 5e |N^ | UNLK A6 00023832 4e 75 |Nu | RTS 00023834 ; -------------------------------------------------------------------------------------- 00023834 ; OMSI PASCAL Function 00023834 ; <LVAR 0x008 4(r)> 00023834 ; -------------------------------------------------------------------------------------- 00023834 4e 56 ff f0 |NV | LINK.W A6,#0xfff0 00023838 bf d5 | | CMPA.L (A5),A7 0002383a 62 06 |b | BHI 0x23842 0002383c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023840 4e 76 |Nv | TRAPV 00023842 de fc 00 10 | | ADDA.W #0x10,A7 00023846 59 4f |YO | SUBQ.L #0x4,A7 00023848 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 0002384c 48 78 00 01 |Hx | PEA.L 0x1 00023850 4e ba f2 1c |N | JSR 0x22a6e 00023854 50 4f |PO | ADDQ.L #0x8,A7 00023856 4e ba f0 0e |N | JSR 0x22866 0002385a 58 4f |XO | ADDQ.L #0x4,A7 0002385c 4e 5e |N^ | UNLK A6 0002385e 4e 75 |Nu | RTS 00023860 ; -------------------------------------------------------------------------------------- 00023860 ; OMSI PASCAL Function 00023860 ; <LVAR 0x008 4(r)> 00023860 ; <LVAR -0x014 @ 4(rw)> 00023860 ; -------------------------------------------------------------------------------------- 00023860 4e 56 ff 90 |NV | LINK.W A6,#0xff90 00023864 bf d5 | | CMPA.L (A5),A7 00023866 62 06 |b | BHI 0x2386e 00023868 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002386c 4e 76 |Nv | TRAPV 0002386e de fc 00 5c | \ | ADDA.W #0x5c,A7 00023872 48 e7 e7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7) 00023876 45 ee 00 08 |E | LEA.L (A6+0x8),A2 0002387a 47 ee ff ec |G | LEA.L (A6-0x14),A3 0002387e 74 7d |t} | MOVEQ.L #0x7d,D2 00023880 59 4f |YO | SUBQ.L #0x4,A7 00023882 2f 12 |/ | MOVE.L (A2),-(A7) 00023884 48 78 00 01 |Hx | PEA.L 0x1 00023888 4e ba f1 e4 |N | JSR 0x22a6e 0002388c 50 4f |PO | ADDQ.L #0x8,A7 0002388e 26 97 |& | MOVE.L (A7),(A3) 00023890 2f 12 |/ | MOVE.L (A2),-(A7) 00023892 48 78 00 02 |Hx | PEA.L 0x2 00023896 4e ba f1 d6 |N | JSR 0x22a6e 0002389a 50 4f |PO | ADDQ.L #0x8,A7 0002389c 28 5f |(_ | MOVEA.L (A7)+,A4 0002389e 9e fc 00 0c | | SUBA.W #0xc,A7 000238a2 2f 12 |/ | MOVE.L (A2),-(A7) 000238a4 48 78 00 03 |Hx | PEA.L 0x3 000238a8 4e ba f1 f6 |N | JSR 0x22aa0 000238ac 50 4f |PO | ADDQ.L #0x8,A7 000238ae 4e b9 00 01 03 50 |N P | JSR Quad2Long(a : Quad) : Long 000238b4 50 4f |PO | ADDQ.L #0x8,A7 000238b6 2c 17 |, | MOVE.L (A7),D6 000238b8 51 4f |QO | SUBQ.L #0x8,A7 000238ba 2f 12 |/ | MOVE.L (A2),-(A7) 000238bc 48 78 00 04 |Hx | PEA.L 0x4 000238c0 4e ba f1 de |N | JSR 0x22aa0 000238c4 50 4f |PO | ADDQ.L #0x8,A7 000238c6 4e b9 00 01 03 50 |N P | JSR Quad2Long(a : Quad) : Long 000238cc 50 4f |PO | ADDQ.L #0x8,A7 000238ce 2a 1f |* | MOVE.L (A7)+,D5 000238d0 20 06 | | MOVE.L D6,D0 000238d2 d0 85 | | ADD.L D5,D0 000238d4 53 80 |S | SUBQ.L #0x1,D0 000238d6 32 14 |2 | MOVE.W (A4),D1 000238d8 48 c1 |H | EXTW.L D1 000238da b0 81 | | CMP.L D1,D0 000238dc 6f 30 |o0 | BLE 0x2390e 000238de 9e fc 00 20 | | SUBA.W #0x20,A7 000238e2 20 4f | O | MOVEA.L A7,A0 000238e4 43 fa e0 9a |C | LEA.L 0x21980,A1 000238e8 70 1e |p | MOVEQ.L #0x1e,D0 000238ea 10 d9 | | MOVE.B (A1)+,(A0)+ 000238ec 51 c8 ff fc |Q | DBF D0,0x238ea 000238f0 59 4f |YO | SUBQ.L #0x4,A7 000238f2 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000238f6 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000238fa 3f 3c 00 1f |?< | MOVE.W #0x1f,-(A7) 000238fe 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00023904 50 4f |PO | ADDQ.L #0x8,A7 00023906 4e ba e4 3e |N > | JSR 0x21d46 0002390a de fc 00 24 | $ | ADDA.W #0x24,A7 0002390e 20 53 | S | MOVEA.L (A3),A0 00023910 2f 08 |/ | MOVE.L A0,-(A7) 00023912 30 10 |0 | MOVE.W (A0),D0 00023914 48 c0 |H | EXTW.L D0 00023916 2f 00 |/ | MOVE.L D0,-(A7) 00023918 7e 01 |~ | MOVEQ.L #0x01,D7 0002391a be 97 | | CMP.L (A7),D7 0002391c 6e 26 |n& | BGT 0x23944 0002391e 20 06 | | MOVE.L D6,D0 00023920 d0 87 | | ADD.L D7,D0 00023922 53 80 |S | SUBQ.L #0x1,D0 00023924 53 80 |S | SUBQ.L #0x1,D0 00023926 b0 82 | | CMP.L D2,D0 00023928 63 02 |c | BLS 0x2392c 0002392a 4e 4f |NO | TRAP #15 0002392c 22 07 |" | MOVE.L D7,D1 0002392e 53 81 |S | SUBQ.L #0x1,D1 00023930 b2 82 | | CMP.L D2,D1 00023932 63 02 |c | BLS 0x23936 00023934 4e 4f |NO | TRAP #15 00023936 20 6f 00 04 | o | MOVEA.L (A7+0x4),A0 0002393a 19 b0 18 02 08 02 | | MOVE.B (A0+D1.L+#0x2),(A4+D0.L+#0x2) 00023940 52 87 |R | ADDQ.L #0x1,D7 00023942 68 d6 |h | BVC 0x2391a 00023944 58 4f |XO | ADDQ.L #0x4,A7 00023946 2e 8c |. | MOVE.L A4,(A7) 00023948 4e ba f1 c6 |N | JSR 0x22b10 0002394c 58 4f |XO | ADDQ.L #0x4,A7 0002394e 48 53 |HS | PEA.L (A3) 00023950 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00023956 58 4f |XO | ADDQ.L #0x4,A7 00023958 4c df 1f e7 |L | MOVEM.L (A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3+A4 0002395c 4e 5e |N^ | UNLK A6 0002395e 4e 75 |Nu | RTS 00023960 ; -------------------------------------------------------------------------------------- 00023960 ; OMSI PASCAL Function 00023960 ; <LVAR 0x008 4(r)> 00023960 ; <LVAR -0x010 @ 4(r)> 00023960 ; <LVAR -0x014 @ 4(rw)> 00023960 ; -------------------------------------------------------------------------------------- 00023960 4e 56 ff a8 |NV | LINK.W A6,#0xffa8 00023964 bf d5 | | CMPA.L (A5),A7 00023966 62 06 |b | BHI 0x2396e 00023968 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002396c 4e 76 |Nv | TRAPV 0002396e de fc 00 44 | D | ADDA.W #0x44,A7 00023972 48 e7 e7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7) 00023976 45 ee ff ec |E | LEA.L (A6-0x14),A2 0002397a 47 ee ff f0 |G | LEA.L (A6-0x10),A3 0002397e 49 ee 00 08 |I | LEA.L (A6+0x8),A4 00023982 74 7d |t} | MOVEQ.L #0x7d,D2 00023984 59 4f |YO | SUBQ.L #0x4,A7 00023986 2f 14 |/ | MOVE.L (A4),-(A7) 00023988 48 78 00 01 |Hx | PEA.L 0x1 0002398c 4e ba f0 e0 |N | JSR 0x22a6e 00023990 50 4f |PO | ADDQ.L #0x8,A7 00023992 24 9f |$ | MOVE.L (A7)+,(A2) 00023994 48 53 |HS | PEA.L (A3) 00023996 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 0002399c 51 4f |QO | SUBQ.L #0x8,A7 0002399e 2f 14 |/ | MOVE.L (A4),-(A7) 000239a0 48 78 00 02 |Hx | PEA.L 0x2 000239a4 4e ba f0 fa |N | JSR 0x22aa0 000239a8 50 4f |PO | ADDQ.L #0x8,A7 000239aa 4e b9 00 01 03 50 |N P | JSR Quad2Long(a : Quad) : Long 000239b0 50 4f |PO | ADDQ.L #0x8,A7 000239b2 2a 17 |* | MOVE.L (A7),D5 000239b4 51 4f |QO | SUBQ.L #0x8,A7 000239b6 2f 14 |/ | MOVE.L (A4),-(A7) 000239b8 48 78 00 03 |Hx | PEA.L 0x3 000239bc 4e ba f0 e2 |N | JSR 0x22aa0 000239c0 50 4f |PO | ADDQ.L #0x8,A7 000239c2 4e b9 00 01 03 50 |N P | JSR Quad2Long(a : Quad) : Long 000239c8 50 4f |PO | ADDQ.L #0x8,A7 000239ca 2c 1f |, | MOVE.L (A7)+,D6 000239cc 20 52 | R | MOVEA.L (A2),A0 000239ce 20 05 | | MOVE.L D5,D0 000239d0 d0 86 | | ADD.L D6,D0 000239d2 53 80 |S | SUBQ.L #0x1,D0 000239d4 32 10 |2 | MOVE.W (A0),D1 000239d6 48 c1 |H | EXTW.L D1 000239d8 b0 81 | | CMP.L D1,D0 000239da 6f 06 |o | BLE 0x239e2 000239dc 52 81 |R | ADDQ.L #0x1,D1 000239de 92 85 | | SUB.L D5,D1 000239e0 2c 01 |, | MOVE.L D1,D6 000239e2 2f 06 |/ | MOVE.L D6,-(A7) 000239e4 7e 01 |~ | MOVEQ.L #0x01,D7 000239e6 be 97 | | CMP.L (A7),D7 000239e8 6e 26 |n& | BGT 0x23a10 000239ea 20 53 | S | MOVEA.L (A3),A0 000239ec 20 07 | | MOVE.L D7,D0 000239ee 53 80 |S | SUBQ.L #0x1,D0 000239f0 b0 82 | | CMP.L D2,D0 000239f2 63 02 |c | BLS 0x239f6 000239f4 4e 4f |NO | TRAP #15 000239f6 22 52 |"R | MOVEA.L (A2),A1 000239f8 22 07 |" | MOVE.L D7,D1 000239fa d2 85 | | ADD.L D5,D1 000239fc 53 81 |S | SUBQ.L #0x1,D1 000239fe 53 81 |S | SUBQ.L #0x1,D1 00023a00 b2 82 | | CMP.L D2,D1 00023a02 63 02 |c | BLS 0x23a06 00023a04 4e 4f |NO | TRAP #15 00023a06 11 b1 18 02 08 02 | | MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x2) 00023a0c 52 87 |R | ADDQ.L #0x1,D7 00023a0e 68 d6 |h | BVC 0x239e6 00023a10 58 4f |XO | ADDQ.L #0x4,A7 00023a12 20 53 | S | MOVEA.L (A3),A0 00023a14 04 86 ff ff 80 00 | | SUBI.L #0xffff8000,D6 00023a1a 0c 86 00 00 ff ff | | CMPI.L #0x0000ffff,D6 00023a20 63 02 |c | BLS 0x23a24 00023a22 4e 4f |NO | TRAP #15 00023a24 06 86 ff ff 80 00 | | ADDI.L #0xffff8000,D6 00023a2a 30 86 |0 | MOVE.W D6,(A0) 00023a2c 2f 13 |/ | MOVE.L (A3),-(A7) 00023a2e 4e ba f0 e0 |N | JSR 0x22b10 00023a32 58 4f |XO | ADDQ.L #0x4,A7 00023a34 48 52 |HR | PEA.L (A2) 00023a36 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00023a3c 58 4f |XO | ADDQ.L #0x4,A7 00023a3e 4c df 1f e7 |L | MOVEM.L (A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3+A4 00023a42 4e 5e |N^ | UNLK A6 00023a44 4e 75 |Nu | RTS 00023a46 ; -------------------------------------------------------------------------------------- 00023a46 ; OMSI PASCAL Function 00023a46 ; <LVAR 0x008 4(r)> 00023a46 ; -------------------------------------------------------------------------------------- 00023a46 4e 56 ff ec |NV | LINK.W A6,#0xffec 00023a4a bf d5 | | CMPA.L (A5),A7 00023a4c 62 06 |b | BHI 0x23a54 00023a4e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023a52 4e 76 |Nv | TRAPV 00023a54 de fc 00 14 | | ADDA.W #0x14,A7 00023a58 51 4f |QO | SUBQ.L #0x8,A7 00023a5a 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023a5e 48 78 00 01 |Hx | PEA.L 0x1 00023a62 4e ba f0 3c |N < | JSR 0x22aa0 00023a66 50 4f |PO | ADDQ.L #0x8,A7 00023a68 4e ba ee 70 |N p | JSR 0x228da 00023a6c 50 4f |PO | ADDQ.L #0x8,A7 00023a6e 4e 5e |N^ | UNLK A6 00023a70 4e 75 |Nu | RTS 00023a72 ; -------------------------------------------------------------------------------------- 00023a72 ; OMSI PASCAL Function 00023a72 ; <LVAR 0x008 4(r)> 00023a72 ; -------------------------------------------------------------------------------------- 00023a72 4e 56 ff e2 |NV | LINK.W A6,#0xffe2 00023a76 bf d5 | | CMPA.L (A5),A7 00023a78 62 06 |b | BHI 0x23a80 00023a7a 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023a7e 4e 76 |Nv | TRAPV 00023a80 de fc 00 1e | | ADDA.W #0x1e,A7 00023a84 9e fc 00 0a | | SUBA.W #0xa,A7 00023a88 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023a8c 48 78 00 01 |Hx | PEA.L 0x1 00023a90 4e ba f0 0e |N | JSR 0x22aa0 00023a94 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023a98 48 78 00 02 |Hx | PEA.L 0x2 00023a9c 4e ba f0 02 |N | JSR 0x22aa0 00023aa0 50 4f |PO | ADDQ.L #0x8,A7 00023aa2 4e b9 00 01 03 2c |N , | JSR IsEqual(a, b : Quad) : Bool 00023aa8 de fc 00 10 | | ADDA.W #0x10,A7 00023aac 4a 1f |J | TST.B (A7)+ 00023aae 67 06 |g | BEQ 0x23ab6 00023ab0 4e ba ea 7c |N | | JSR 0x2252e 00023ab4 60 04 |` | BRA 0x23aba 00023ab6 4e ba ea bc |N | JSR 0x22574 00023aba 4e 5e |N^ | UNLK A6 00023abc 4e 75 |Nu | RTS 00023abe ; -------------------------------------------------------------------------------------- 00023abe ; OMSI PASCAL Function 00023abe ; <LVAR 0x008 4(r)> 00023abe ; -------------------------------------------------------------------------------------- 00023abe 4e 56 ff e2 |NV | LINK.W A6,#0xffe2 00023ac2 bf d5 | | CMPA.L (A5),A7 00023ac4 62 06 |b | BHI 0x23acc 00023ac6 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023aca 4e 76 |Nv | TRAPV 00023acc de fc 00 1e | | ADDA.W #0x1e,A7 00023ad0 9e fc 00 0a | | SUBA.W #0xa,A7 00023ad4 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023ad8 48 78 00 01 |Hx | PEA.L 0x1 00023adc 4e ba ef c2 |N | JSR 0x22aa0 00023ae0 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023ae4 48 78 00 02 |Hx | PEA.L 0x2 00023ae8 4e ba ef b6 |N | JSR 0x22aa0 00023aec 50 4f |PO | ADDQ.L #0x8,A7 00023aee 4e b9 00 01 03 2c |N , | JSR IsEqual(a, b : Quad) : Bool 00023af4 de fc 00 10 | | ADDA.W #0x10,A7 00023af8 4a 1f |J | TST.B (A7)+ 00023afa 66 06 |f | BNE 0x23b02 00023afc 4e ba ea 30 |N 0 | JSR 0x2252e 00023b00 60 04 |` | BRA 0x23b06 00023b02 4e ba ea 70 |N p | JSR 0x22574 00023b06 4e 5e |N^ | UNLK A6 00023b08 4e 75 |Nu | RTS 00023b0a ; -------------------------------------------------------------------------------------- 00023b0a ; OMSI PASCAL Function 00023b0a ; <LVAR 0x008 4(r)> 00023b0a ; -------------------------------------------------------------------------------------- 00023b0a 4e 56 ff e2 |NV | LINK.W A6,#0xffe2 00023b0e bf d5 | | CMPA.L (A5),A7 00023b10 62 06 |b | BHI 0x23b18 00023b12 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023b16 4e 76 |Nv | TRAPV 00023b18 de fc 00 1e | | ADDA.W #0x1e,A7 00023b1c 9e fc 00 0a | | SUBA.W #0xa,A7 00023b20 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023b24 48 78 00 01 |Hx | PEA.L 0x1 00023b28 4e ba ef 76 |N v | JSR 0x22aa0 00023b2c 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023b30 48 78 00 02 |Hx | PEA.L 0x2 00023b34 4e ba ef 6a |N j | JSR 0x22aa0 00023b38 50 4f |PO | ADDQ.L #0x8,A7 00023b3a 4e b9 00 01 03 28 |N ( | JSR IsSmaller(a, b : Quad) : Bool 00023b40 de fc 00 10 | | ADDA.W #0x10,A7 00023b44 4a 1f |J | TST.B (A7)+ 00023b46 67 06 |g | BEQ 0x23b4e 00023b48 4e ba e9 e4 |N | JSR 0x2252e 00023b4c 60 04 |` | BRA 0x23b52 00023b4e 4e ba ea 24 |N $ | JSR 0x22574 00023b52 4e 5e |N^ | UNLK A6 00023b54 4e 75 |Nu | RTS 00023b56 ; -------------------------------------------------------------------------------------- 00023b56 ; OMSI PASCAL Function 00023b56 ; <LVAR 0x008 4(r)> 00023b56 ; -------------------------------------------------------------------------------------- 00023b56 4e 56 ff e2 |NV | LINK.W A6,#0xffe2 00023b5a bf d5 | | CMPA.L (A5),A7 00023b5c 62 06 |b | BHI 0x23b64 00023b5e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023b62 4e 76 |Nv | TRAPV 00023b64 de fc 00 1e | | ADDA.W #0x1e,A7 00023b68 9e fc 00 0a | | SUBA.W #0xa,A7 00023b6c 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023b70 48 78 00 01 |Hx | PEA.L 0x1 00023b74 4e ba ef 2a |N * | JSR 0x22aa0 00023b78 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023b7c 48 78 00 02 |Hx | PEA.L 0x2 00023b80 4e ba ef 1e |N | JSR 0x22aa0 00023b84 50 4f |PO | ADDQ.L #0x8,A7 00023b86 4e b9 00 01 03 24 |N $ | JSR IsGreater(a, b : Quad) : Bool 00023b8c de fc 00 10 | | ADDA.W #0x10,A7 00023b90 4a 1f |J | TST.B (A7)+ 00023b92 67 06 |g | BEQ 0x23b9a 00023b94 4e ba e9 98 |N | JSR 0x2252e 00023b98 60 04 |` | BRA 0x23b9e 00023b9a 4e ba e9 d8 |N | JSR 0x22574 00023b9e 4e 5e |N^ | UNLK A6 00023ba0 4e 75 |Nu | RTS 00023ba2 ; -------------------------------------------------------------------------------------- 00023ba2 ; OMSI PASCAL Function 00023ba2 ; <LVAR 0x008 4(r)> 00023ba2 ; -------------------------------------------------------------------------------------- 00023ba2 4e 56 ff e2 |NV | LINK.W A6,#0xffe2 00023ba6 bf d5 | | CMPA.L (A5),A7 00023ba8 62 06 |b | BHI 0x23bb0 00023baa 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023bae 4e 76 |Nv | TRAPV 00023bb0 de fc 00 1e | | ADDA.W #0x1e,A7 00023bb4 9e fc 00 0a | | SUBA.W #0xa,A7 00023bb8 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023bbc 48 78 00 01 |Hx | PEA.L 0x1 00023bc0 4e ba ee de |N | JSR 0x22aa0 00023bc4 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023bc8 48 78 00 02 |Hx | PEA.L 0x2 00023bcc 4e ba ee d2 |N | JSR 0x22aa0 00023bd0 50 4f |PO | ADDQ.L #0x8,A7 00023bd2 4e b9 00 01 03 24 |N $ | JSR IsGreater(a, b : Quad) : Bool 00023bd8 de fc 00 10 | | ADDA.W #0x10,A7 00023bdc 4a 1f |J | TST.B (A7)+ 00023bde 66 06 |f | BNE 0x23be6 00023be0 4e ba e9 4c |N L | JSR 0x2252e 00023be4 60 04 |` | BRA 0x23bea 00023be6 4e ba e9 8c |N | JSR 0x22574 00023bea 4e 5e |N^ | UNLK A6 00023bec 4e 75 |Nu | RTS 00023bee ; -------------------------------------------------------------------------------------- 00023bee ; OMSI PASCAL Function 00023bee ; <LVAR 0x008 4(r)> 00023bee ; -------------------------------------------------------------------------------------- 00023bee 4e 56 ff e2 |NV | LINK.W A6,#0xffe2 00023bf2 bf d5 | | CMPA.L (A5),A7 00023bf4 62 06 |b | BHI 0x23bfc 00023bf6 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023bfa 4e 76 |Nv | TRAPV 00023bfc de fc 00 1e | | ADDA.W #0x1e,A7 00023c00 9e fc 00 0a | | SUBA.W #0xa,A7 00023c04 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023c08 48 78 00 01 |Hx | PEA.L 0x1 00023c0c 4e ba ee 92 |N | JSR 0x22aa0 00023c10 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023c14 48 78 00 02 |Hx | PEA.L 0x2 00023c18 4e ba ee 86 |N | JSR 0x22aa0 00023c1c 50 4f |PO | ADDQ.L #0x8,A7 00023c1e 4e b9 00 01 03 28 |N ( | JSR IsSmaller(a, b : Quad) : Bool 00023c24 de fc 00 10 | | ADDA.W #0x10,A7 00023c28 4a 1f |J | TST.B (A7)+ 00023c2a 66 06 |f | BNE 0x23c32 00023c2c 4e ba e9 00 |N | JSR 0x2252e 00023c30 60 04 |` | BRA 0x23c36 00023c32 4e ba e9 40 |N @ | JSR 0x22574 00023c36 4e 5e |N^ | UNLK A6 00023c38 4e 75 |Nu | RTS 00023c3a ; -------------------------------------------------------------------------------------- 00023c3a ; OMSI PASCAL Function 00023c3a ; <LVAR 0x008 4(r)> 00023c3a ; -------------------------------------------------------------------------------------- 00023c3a 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 00023c3e bf d5 | | CMPA.L (A5),A7 00023c40 62 06 |b | BHI 0x23c48 00023c42 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023c46 4e 76 |Nv | TRAPV 00023c48 de fc 00 28 | ( | ADDA.W #0x28,A7 00023c4c 48 e7 80 00 |H | MOVEM.L D0,-(A7) 00023c50 70 10 |p | MOVEQ.L #0x10,D0 00023c52 9e c0 | | SUBA.W D0,A7 00023c54 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023c58 48 78 00 01 |Hx | PEA.L 0x1 00023c5c 4e ba ee 42 |N B | JSR 0x22aa0 00023c60 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023c64 48 78 00 02 |Hx | PEA.L 0x2 00023c68 4e ba ee 36 |N 6 | JSR 0x22aa0 00023c6c 50 4f |PO | ADDQ.L #0x8,A7 00023c6e 4e b9 00 01 03 14 |N | JSR Add(a, b : Quad) : Quad 00023c74 de c0 | | ADDA.W D0,A7 00023c76 4e ba ef 20 |N | JSR 0x22b98 00023c7a 50 4f |PO | ADDQ.L #0x8,A7 00023c7c 4c df 00 01 |L | MOVEM.L (A7)+,D0 00023c80 4e 5e |N^ | UNLK A6 00023c82 4e 75 |Nu | RTS 00023c84 ; -------------------------------------------------------------------------------------- 00023c84 ; OMSI PASCAL Function 00023c84 ; <LVAR 0x008 4(r)> 00023c84 ; -------------------------------------------------------------------------------------- 00023c84 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 00023c88 bf d5 | | CMPA.L (A5),A7 00023c8a 62 06 |b | BHI 0x23c92 00023c8c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023c90 4e 76 |Nv | TRAPV 00023c92 de fc 00 28 | ( | ADDA.W #0x28,A7 00023c96 48 e7 80 00 |H | MOVEM.L D0,-(A7) 00023c9a 70 10 |p | MOVEQ.L #0x10,D0 00023c9c 9e c0 | | SUBA.W D0,A7 00023c9e 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023ca2 48 78 00 01 |Hx | PEA.L 0x1 00023ca6 4e ba ed f8 |N | JSR 0x22aa0 00023caa 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023cae 48 78 00 02 |Hx | PEA.L 0x2 00023cb2 4e ba ed ec |N | JSR 0x22aa0 00023cb6 50 4f |PO | ADDQ.L #0x8,A7 00023cb8 4e b9 00 01 03 18 |N | JSR Subtract(a, b : Quad) : Quad 00023cbe de c0 | | ADDA.W D0,A7 00023cc0 4e ba ee d6 |N | JSR 0x22b98 00023cc4 50 4f |PO | ADDQ.L #0x8,A7 00023cc6 4c df 00 01 |L | MOVEM.L (A7)+,D0 00023cca 4e 5e |N^ | UNLK A6 00023ccc 4e 75 |Nu | RTS 00023cce ; -------------------------------------------------------------------------------------- 00023cce ; OMSI PASCAL Function 00023cce ; <LVAR 0x008 4(r)> 00023cce ; -------------------------------------------------------------------------------------- 00023cce 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 00023cd2 bf d5 | | CMPA.L (A5),A7 00023cd4 62 06 |b | BHI 0x23cdc 00023cd6 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023cda 4e 76 |Nv | TRAPV 00023cdc de fc 00 28 | ( | ADDA.W #0x28,A7 00023ce0 48 e7 80 00 |H | MOVEM.L D0,-(A7) 00023ce4 70 10 |p | MOVEQ.L #0x10,D0 00023ce6 9e c0 | | SUBA.W D0,A7 00023ce8 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023cec 48 78 00 01 |Hx | PEA.L 0x1 00023cf0 4e ba ed ae |N | JSR 0x22aa0 00023cf4 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023cf8 48 78 00 02 |Hx | PEA.L 0x2 00023cfc 4e ba ed a2 |N | JSR 0x22aa0 00023d00 50 4f |PO | ADDQ.L #0x8,A7 00023d02 4e b9 00 01 03 1c |N | JSR Multiply(a, b : Quad) : Quad 00023d08 de c0 | | ADDA.W D0,A7 00023d0a 4e ba ee 8c |N | JSR 0x22b98 00023d0e 50 4f |PO | ADDQ.L #0x8,A7 00023d10 4c df 00 01 |L | MOVEM.L (A7)+,D0 00023d14 4e 5e |N^ | UNLK A6 00023d16 4e 75 |Nu | RTS 00023d18 ; -------------------------------------------------------------------------------------- 00023d18 ; OMSI PASCAL Function 00023d18 ; <LVAR 0x008 4(r)> 00023d18 ; -------------------------------------------------------------------------------------- 00023d18 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 00023d1c bf d5 | | CMPA.L (A5),A7 00023d1e 62 06 |b | BHI 0x23d26 00023d20 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023d24 4e 76 |Nv | TRAPV 00023d26 de fc 00 28 | ( | ADDA.W #0x28,A7 00023d2a 48 e7 80 00 |H | MOVEM.L D0,-(A7) 00023d2e 70 10 |p | MOVEQ.L #0x10,D0 00023d30 9e c0 | | SUBA.W D0,A7 00023d32 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023d36 48 78 00 01 |Hx | PEA.L 0x1 00023d3a 4e ba ed 64 |N d | JSR 0x22aa0 00023d3e 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023d42 48 78 00 02 |Hx | PEA.L 0x2 00023d46 4e ba ed 58 |N X | JSR 0x22aa0 00023d4a 50 4f |PO | ADDQ.L #0x8,A7 00023d4c 4e b9 00 01 03 20 |N | JSR Divide(a, b : Quad) : Quad 00023d52 de c0 | | ADDA.W D0,A7 00023d54 4e ba ee 42 |N B | JSR 0x22b98 00023d58 50 4f |PO | ADDQ.L #0x8,A7 00023d5a 4c df 00 01 |L | MOVEM.L (A7)+,D0 00023d5e 4e 5e |N^ | UNLK A6 00023d60 4e 75 |Nu | RTS 00023d62 ; -------------------------------------------------------------------------------------- 00023d62 ; OMSI PASCAL Function 00023d62 ; <LVAR 0x008 4(r)> 00023d62 ; -------------------------------------------------------------------------------------- 00023d62 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 00023d66 bf d5 | | CMPA.L (A5),A7 00023d68 62 06 |b | BHI 0x23d70 00023d6a 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023d6e 4e 76 |Nv | TRAPV 00023d70 de fc 00 28 | ( | ADDA.W #0x28,A7 00023d74 48 e7 80 00 |H | MOVEM.L D0,-(A7) 00023d78 70 10 |p | MOVEQ.L #0x10,D0 00023d7a 9e c0 | | SUBA.W D0,A7 00023d7c 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023d80 48 78 00 01 |Hx | PEA.L 0x1 00023d84 4e ba ed 1a |N | JSR 0x22aa0 00023d88 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023d8c 48 78 00 02 |Hx | PEA.L 0x2 00023d90 4e ba ed 0e |N | JSR 0x22aa0 00023d94 50 4f |PO | ADDQ.L #0x8,A7 00023d96 4e b9 00 01 03 58 |N X | JSR Modulus(a, b : Quad) : Quad 00023d9c de c0 | | ADDA.W D0,A7 00023d9e 4e ba ed f8 |N | JSR 0x22b98 00023da2 50 4f |PO | ADDQ.L #0x8,A7 00023da4 4c df 00 01 |L | MOVEM.L (A7)+,D0 00023da8 4e 5e |N^ | UNLK A6 00023daa 4e 75 |Nu | RTS 00023dac ; -------------------------------------------------------------------------------------- 00023dac ; OMSI PASCAL Function 00023dac ; <LVAR 0x008 4(r)> 00023dac ; -------------------------------------------------------------------------------------- 00023dac 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 00023db0 bf d5 | | CMPA.L (A5),A7 00023db2 62 06 |b | BHI 0x23dba 00023db4 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023db8 4e 76 |Nv | TRAPV 00023dba de fc 00 28 | ( | ADDA.W #0x28,A7 00023dbe 48 e7 80 00 |H | MOVEM.L D0,-(A7) 00023dc2 70 10 |p | MOVEQ.L #0x10,D0 00023dc4 9e c0 | | SUBA.W D0,A7 00023dc6 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023dca 48 78 00 01 |Hx | PEA.L 0x1 00023dce 4e ba ec d0 |N | JSR 0x22aa0 00023dd2 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023dd6 48 78 00 02 |Hx | PEA.L 0x2 00023dda 4e ba ec c4 |N | JSR 0x22aa0 00023dde 50 4f |PO | ADDQ.L #0x8,A7 00023de0 4e b9 00 01 03 34 |N 4 | JSR BitOr(a, b : Quad) : Quad 00023de6 de c0 | | ADDA.W D0,A7 00023de8 4e ba ed ae |N | JSR 0x22b98 00023dec 50 4f |PO | ADDQ.L #0x8,A7 00023dee 4c df 00 01 |L | MOVEM.L (A7)+,D0 00023df2 4e 5e |N^ | UNLK A6 00023df4 4e 75 |Nu | RTS 00023df6 ; -------------------------------------------------------------------------------------- 00023df6 ; OMSI PASCAL Function 00023df6 ; <LVAR 0x008 4(r)> 00023df6 ; -------------------------------------------------------------------------------------- 00023df6 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 00023dfa bf d5 | | CMPA.L (A5),A7 00023dfc 62 06 |b | BHI 0x23e04 00023dfe 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023e02 4e 76 |Nv | TRAPV 00023e04 de fc 00 28 | ( | ADDA.W #0x28,A7 00023e08 48 e7 80 00 |H | MOVEM.L D0,-(A7) 00023e0c 70 10 |p | MOVEQ.L #0x10,D0 00023e0e 9e c0 | | SUBA.W D0,A7 00023e10 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023e14 48 78 00 01 |Hx | PEA.L 0x1 00023e18 4e ba ec 86 |N | JSR 0x22aa0 00023e1c 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023e20 48 78 00 02 |Hx | PEA.L 0x2 00023e24 4e ba ec 7a |N z | JSR 0x22aa0 00023e28 50 4f |PO | ADDQ.L #0x8,A7 00023e2a 4e b9 00 01 03 30 |N 0 | JSR BitAnd(a, b : Quad) : Quad 00023e30 de c0 | | ADDA.W D0,A7 00023e32 4e ba ed 64 |N d | JSR 0x22b98 00023e36 50 4f |PO | ADDQ.L #0x8,A7 00023e38 4c df 00 01 |L | MOVEM.L (A7)+,D0 00023e3c 4e 5e |N^ | UNLK A6 00023e3e 4e 75 |Nu | RTS 00023e40 ; -------------------------------------------------------------------------------------- 00023e40 ; OMSI PASCAL Function 00023e40 ; <LVAR 0x008 4(r)> 00023e40 ; -------------------------------------------------------------------------------------- 00023e40 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 00023e44 bf d5 | | CMPA.L (A5),A7 00023e46 62 06 |b | BHI 0x23e4e 00023e48 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023e4c 4e 76 |Nv | TRAPV 00023e4e de fc 00 28 | ( | ADDA.W #0x28,A7 00023e52 48 e7 80 00 |H | MOVEM.L D0,-(A7) 00023e56 70 10 |p | MOVEQ.L #0x10,D0 00023e58 9e c0 | | SUBA.W D0,A7 00023e5a 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023e5e 48 78 00 01 |Hx | PEA.L 0x1 00023e62 4e ba ec 3c |N < | JSR 0x22aa0 00023e66 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023e6a 48 78 00 02 |Hx | PEA.L 0x2 00023e6e 4e ba ec 30 |N 0 | JSR 0x22aa0 00023e72 50 4f |PO | ADDQ.L #0x8,A7 00023e74 4e b9 00 01 03 40 |N @ | JSR BitXor(a, b : Quad) : Quad 00023e7a de c0 | | ADDA.W D0,A7 00023e7c 4e ba ed 1a |N | JSR 0x22b98 00023e80 50 4f |PO | ADDQ.L #0x8,A7 00023e82 4c df 00 01 |L | MOVEM.L (A7)+,D0 00023e86 4e 5e |N^ | UNLK A6 00023e88 4e 75 |Nu | RTS 00023e8a ; -------------------------------------------------------------------------------------- 00023e8a ; OMSI PASCAL Function 00023e8a ; <LVAR 0x008 4(r)> 00023e8a ; -------------------------------------------------------------------------------------- 00023e8a 4e 56 ff e0 |NV | LINK.W A6,#0xffe0 00023e8e bf d5 | | CMPA.L (A5),A7 00023e90 62 06 |b | BHI 0x23e98 00023e92 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023e96 4e 76 |Nv | TRAPV 00023e98 de fc 00 20 | | ADDA.W #0x20,A7 00023e9c 9e fc 00 10 | | SUBA.W #0x10,A7 00023ea0 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023ea4 48 78 00 01 |Hx | PEA.L 0x1 00023ea8 4e ba eb f6 |N | JSR 0x22aa0 00023eac 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7) 00023eb0 48 78 00 02 |Hx | PEA.L 0x2 00023eb4 4e ba ec 26 |N & | JSR 0x22adc 00023eb8 50 4f |PO | ADDQ.L #0x8,A7 00023eba 4e b9 00 01 03 44 |N D | JSR BitShift(a : Quad ; howmuch : integer) : Quad 00023ec0 de fc 00 0c | | ADDA.W #0xc,A7 00023ec4 4e ba ec d2 |N | JSR 0x22b98 00023ec8 50 4f |PO | ADDQ.L #0x8,A7 00023eca 4e 5e |N^ | UNLK A6 00023ecc 4e 75 |Nu | RTS 00023ece ; -------------------------------------------------------------------------------------- 00023ece ; OMSI PASCAL Function 00023ece ; <LVAR 0x008 4(r)> 00023ece ; -------------------------------------------------------------------------------------- 00023ece 4e 56 ff e0 |NV | LINK.W A6,#0xffe0 00023ed2 bf d5 | | CMPA.L (A5),A7 00023ed4 62 06 |b | BHI 0x23edc 00023ed6 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023eda 4e 76 |Nv | TRAPV 00023edc de fc 00 20 | | ADDA.W #0x20,A7 00023ee0 9e fc 00 10 | | SUBA.W #0x10,A7 00023ee4 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023ee8 48 78 00 01 |Hx | PEA.L 0x1 00023eec 4e ba eb b2 |N | JSR 0x22aa0 00023ef0 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7) 00023ef4 48 78 00 02 |Hx | PEA.L 0x2 00023ef8 4e ba eb e2 |N | JSR 0x22adc 00023efc 50 4f |PO | ADDQ.L #0x8,A7 00023efe 44 97 |D | NEG.L (A7) 00023f00 4e b9 00 01 03 44 |N D | JSR BitShift(a : Quad ; howmuch : integer) : Quad 00023f06 de fc 00 0c | | ADDA.W #0xc,A7 00023f0a 4e ba ec 8c |N | JSR 0x22b98 00023f0e 50 4f |PO | ADDQ.L #0x8,A7 00023f10 4e 5e |N^ | UNLK A6 00023f12 4e 75 |Nu | RTS 00023f14 ; -------------------------------------------------------------------------------------- 00023f14 ; OMSI PASCAL Function 00023f14 ; <LVAR 0x008 4(r)> 00023f14 ; -------------------------------------------------------------------------------------- 00023f14 4e 56 ff e4 |NV | LINK.W A6,#0xffe4 00023f18 bf d5 | | CMPA.L (A5),A7 00023f1a 62 06 |b | BHI 0x23f22 00023f1c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023f20 4e 76 |Nv | TRAPV 00023f22 de fc 00 1c | | ADDA.W #0x1c,A7 00023f26 9e fc 00 10 | | SUBA.W #0x10,A7 00023f2a 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023f2e 48 78 00 01 |Hx | PEA.L 0x1 00023f32 4e ba eb 6c |N l | JSR 0x22aa0 00023f36 50 4f |PO | ADDQ.L #0x8,A7 00023f38 4e b9 00 01 03 38 |N 8 | JSR BitNot(a : Quad) : Quad 00023f3e 50 4f |PO | ADDQ.L #0x8,A7 00023f40 4e ba ec 56 |N V | JSR 0x22b98 00023f44 50 4f |PO | ADDQ.L #0x8,A7 00023f46 4e 5e |N^ | UNLK A6 00023f48 4e 75 |Nu | RTS 00023f4a ; -------------------------------------------------------------------------------------- 00023f4a ; OMSI PASCAL Function 00023f4a ; <LVAR 0x008 4(r)> 00023f4a ; <LVAR -0x00c 4(rw)> 00023f4a ; <LVAR -0x010 4(rw)> 00023f4a ; <LVAR -0x014 4(rw)> 00023f4a ; <LVAR -0x018 4(rw)> 00023f4a ; -------------------------------------------------------------------------------------- 00023f4a 4e 56 ff b8 |NV | LINK.W A6,#0xffb8 00023f4e bf d5 | | CMPA.L (A5),A7 00023f50 62 06 |b | BHI 0x23f58 00023f52 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023f56 4e 76 |Nv | TRAPV 00023f58 de fc 00 30 | 0 | ADDA.W #0x30,A7 00023f5c 48 e7 03 80 |H | MOVEM.L A0+D7+D6,-(A7) 00023f60 41 ee 00 08 |A | LEA.L (A6+0x8),A0 00023f64 51 4f |QO | SUBQ.L #0x8,A7 00023f66 2f 10 |/ | MOVE.L (A0),-(A7) 00023f68 48 78 00 01 |Hx | PEA.L 0x1 00023f6c 4e ba eb 32 |N 2 | JSR 0x22aa0 00023f70 50 4f |PO | ADDQ.L #0x8,A7 00023f72 2d 5f ff e8 |-_ | MOVE.L (A7)+,(A6-0x18) 00023f76 2d 57 ff ec |-W | MOVE.L (A7),(A6-0x14) 00023f7a 59 4f |YO | SUBQ.L #0x4,A7 00023f7c 2f 10 |/ | MOVE.L (A0),-(A7) 00023f7e 48 78 00 02 |Hx | PEA.L 0x2 00023f82 4e ba eb 1c |N | JSR 0x22aa0 00023f86 50 4f |PO | ADDQ.L #0x8,A7 00023f88 2d 5f ff f0 |-_ | MOVE.L (A7)+,(A6-0x10) 00023f8c 2d 57 ff f4 |-W | MOVE.L (A7),(A6-0xc) 00023f90 2f 10 |/ | MOVE.L (A0),-(A7) 00023f92 48 78 00 03 |Hx | PEA.L 0x3 00023f96 4e ba eb 44 |N D | JSR 0x22adc 00023f9a 50 4f |PO | ADDQ.L #0x8,A7 00023f9c 2e 17 |. | MOVE.L (A7),D7 00023f9e 2f 10 |/ | MOVE.L (A0),-(A7) 00023fa0 48 78 00 04 |Hx | PEA.L 0x4 00023fa4 4e ba eb 36 |N 6 | JSR 0x22adc 00023fa8 50 4f |PO | ADDQ.L #0x8,A7 00023faa 2c 17 |, | MOVE.L (A7),D6 00023fac 59 4f |YO | SUBQ.L #0x4,A7 00023fae 2f 2e ff ec |/. | MOVE.L (A6-0x14),-(A7) 00023fb2 2f 2e ff e8 |/. | MOVE.L (A6-0x18),-(A7) 00023fb6 2f 2e ff f4 |/. | MOVE.L (A6-0xc),-(A7) 00023fba 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7) 00023fbe 2f 07 |/ | MOVE.L D7,-(A7) 00023fc0 2f 06 |/ | MOVE.L D6,-(A7) 00023fc2 4e b9 00 01 03 48 |N H | JSR ?BitField_something_() 00023fc8 de fc 00 18 | | ADDA.W #0x18,A7 00023fcc 4e ba eb ca |N | JSR 0x22b98 00023fd0 50 4f |PO | ADDQ.L #0x8,A7 00023fd2 4c df 01 c0 |L | MOVEM.L (A7)+,D6+D7+A0 00023fd6 4e 5e |N^ | UNLK A6 00023fd8 4e 75 |Nu | RTS 00023fda ; -------------------------------------------------------------------------------------- 00023fda ; OMSI PASCAL Function 00023fda ; <LVAR 0x008 4(r)> 00023fda ; <LVAR -0x00c 4(rw)> 00023fda ; <LVAR -0x010 4(rw)> 00023fda ; -------------------------------------------------------------------------------------- 00023fda 4e 56 ff c8 |NV | LINK.W A6,#0xffc8 00023fde bf d5 | | CMPA.L (A5),A7 00023fe0 62 06 |b | BHI 0x23fe8 00023fe2 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023fe6 4e 76 |Nv | TRAPV 00023fe8 de fc 00 28 | ( | ADDA.W #0x28,A7 00023fec 48 e7 03 80 |H | MOVEM.L A0+D7+D6,-(A7) 00023ff0 41 ee 00 08 |A | LEA.L (A6+0x8),A0 00023ff4 51 4f |QO | SUBQ.L #0x8,A7 00023ff6 2f 10 |/ | MOVE.L (A0),-(A7) 00023ff8 48 78 00 01 |Hx | PEA.L 0x1 00023ffc 4e ba ea a2 |N | JSR 0x22aa0 00024000 50 4f |PO | ADDQ.L #0x8,A7 00024002 2d 5f ff f0 |-_ | MOVE.L (A7)+,(A6-0x10) 00024006 2d 57 ff f4 |-W | MOVE.L (A7),(A6-0xc) 0002400a 2f 10 |/ | MOVE.L (A0),-(A7) 0002400c 48 78 00 02 |Hx | PEA.L 0x2 00024010 4e ba ea ca |N | JSR 0x22adc 00024014 50 4f |PO | ADDQ.L #0x8,A7 00024016 2e 17 |. | MOVE.L (A7),D7 00024018 2f 10 |/ | MOVE.L (A0),-(A7) 0002401a 48 78 00 03 |Hx | PEA.L 0x3 0002401e 4e ba ea bc |N | JSR 0x22adc 00024022 50 4f |PO | ADDQ.L #0x8,A7 00024024 2c 17 |, | MOVE.L (A7),D6 00024026 59 4f |YO | SUBQ.L #0x4,A7 00024028 2f 2e ff f4 |/. | MOVE.L (A6-0xc),-(A7) 0002402c 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7) 00024030 2f 07 |/ | MOVE.L D7,-(A7) 00024032 2f 06 |/ | MOVE.L D6,-(A7) 00024034 4e b9 00 01 03 4c |N L | JSR FSCALL_1034c 0002403a de fc 00 10 | | ADDA.W #0x10,A7 0002403e 4e ba eb 58 |N X | JSR 0x22b98 00024042 50 4f |PO | ADDQ.L #0x8,A7 00024044 4c df 01 c0 |L | MOVEM.L (A7)+,D6+D7+A0 00024048 4e 5e |N^ | UNLK A6 0002404a 4e 75 |Nu | RTS 0002404c ; -------------------------------------------------------------------------------------- 0002404c ; OMSI PASCAL Function 0002404c ; <LVAR 0x008 4(r)> 0002404c ; -------------------------------------------------------------------------------------- 0002404c 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 00024050 bf d5 | | CMPA.L (A5),A7 00024052 62 06 |b | BHI 0x2405a 00024054 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024058 4e 76 |Nv | TRAPV 0002405a de fc 00 20 | | ADDA.W #0x20,A7 0002405e 48 e7 01 08 |H | MOVEM.L A4+D7,-(A7) 00024062 59 4f |YO | SUBQ.L #0x4,A7 00024064 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00024068 4e ba e0 e8 |N | JSR 0x22152 0002406c 58 4f |XO | ADDQ.L #0x4,A7 0002406e 7e 01 |~ | MOVEQ.L #0x01,D7 00024070 be 97 | | CMP.L (A7),D7 00024072 6e 26 |n& | BGT 0x2409a 00024074 59 4f |YO | SUBQ.L #0x4,A7 00024076 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 0002407a 2f 07 |/ | MOVE.L D7,-(A7) 0002407c 4e ba e9 f0 |N | JSR 0x22a6e 00024080 50 4f |PO | ADDQ.L #0x8,A7 00024082 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String) 00024088 54 4f |TO | ADDQ.L #0x2,A7 0002408a 1e bc 00 20 | | MOVE.B #0x20,(A7) 0002408e 4e b9 00 01 03 d0 |N | JSR WriteConsoleChar(chr : char) 00024094 54 4f |TO | ADDQ.L #0x2,A7 00024096 52 87 |R | ADDQ.L #0x1,D7 00024098 68 d6 |h | BVC 0x24070 0002409a 48 78 00 01 |Hx | PEA.L 0x1 0002409e 4e b9 00 01 03 e4 |N | JSR AskConsoleString(prompt : String) : String 000240a4 58 4f |XO | ADDQ.L #0x4,A7 000240a6 28 5f |(_ | MOVEA.L (A7)+,A4 000240a8 2f 0c |/ | MOVE.L A4,-(A7) 000240aa 4e ba de f2 |N | JSR 0x21f9e 000240ae 2e 8c |. | MOVE.L A4,(A7) 000240b0 4e ba ea 5e |N ^ | JSR 0x22b10 000240b4 58 4f |XO | ADDQ.L #0x4,A7 000240b6 4c df 10 80 |L | MOVEM.L (A7)+,D7+A4 000240ba 4e 5e |N^ | UNLK A6 000240bc 4e 75 |Nu | RTS 000240be ; -------------------------------------------------------------------------------------- 000240be ; OMSI PASCAL Function 000240be ; <LVAR 0x008 4(r)> 000240be ; -------------------------------------------------------------------------------------- 000240be 4e 56 ff c8 |NV | LINK.W A6,#0xffc8 000240c2 bf d5 | | CMPA.L (A5),A7 000240c4 62 06 |b | BHI 0x240cc 000240c6 44 fc 00 02 |D | MOVE.W #0x2,CCR 000240ca 4e 76 |Nv | TRAPV 000240cc de fc 00 2c | , | ADDA.W #0x2c,A7 000240d0 48 e7 83 88 |H | MOVEM.L A4+A0+D7+D6+D0,-(A7) 000240d4 41 ee 00 08 |A | LEA.L (A6+0x8),A0 000240d8 70 0c |p | MOVEQ.L #0x0c,D0 000240da 59 4f |YO | SUBQ.L #0x4,A7 000240dc 2f 10 |/ | MOVE.L (A0),-(A7) 000240de 48 78 00 01 |Hx | PEA.L 0x1 000240e2 4e ba e9 8a |N | JSR 0x22a6e 000240e6 50 4f |PO | ADDQ.L #0x8,A7 000240e8 28 5f |(_ | MOVEA.L (A7)+,A4 000240ea 9e c0 | | SUBA.W D0,A7 000240ec 2f 10 |/ | MOVE.L (A0),-(A7) 000240ee 48 78 00 02 |Hx | PEA.L 0x2 000240f2 4e ba e9 ac |N | JSR 0x22aa0 000240f6 50 4f |PO | ADDQ.L #0x8,A7 000240f8 4e b9 00 01 03 50 |N P | JSR Quad2Long(a : Quad) : Long 000240fe 50 4f |PO | ADDQ.L #0x8,A7 00024100 2e 17 |. | MOVE.L (A7),D7 00024102 51 4f |QO | SUBQ.L #0x8,A7 00024104 2f 10 |/ | MOVE.L (A0),-(A7) 00024106 48 78 00 03 |Hx | PEA.L 0x3 0002410a 4e ba e9 94 |N | JSR 0x22aa0 0002410e 50 4f |PO | ADDQ.L #0x8,A7 00024110 4e b9 00 01 03 50 |N P | JSR Quad2Long(a : Quad) : Long 00024116 50 4f |PO | ADDQ.L #0x8,A7 00024118 2c 17 |, | MOVE.L (A7),D6 0002411a 51 4f |QO | SUBQ.L #0x8,A7 0002411c 2f 0c |/ | MOVE.L A4,-(A7) 0002411e 2f 07 |/ | MOVE.L D7,-(A7) 00024120 4e b9 00 01 03 60 |N ` | JSR ?StringToInt64() 00024126 58 4f |XO | ADDQ.L #0x4,A7 00024128 2e 86 |. | MOVE.L D6,(A7) 0002412a 4e b9 00 01 03 5c |N \ | JSR Quad2String(a : Quad; radix : Long ) : String 00024130 de c0 | | ADDA.W D0,A7 00024132 4e ba e9 dc |N | JSR 0x22b10 00024136 58 4f |XO | ADDQ.L #0x4,A7 00024138 4c df 11 c1 |L | MOVEM.L (A7)+,D0+D6+D7+A0+A4 0002413c 4e 5e |N^ | UNLK A6 0002413e 4e 75 |Nu | RTS 00024140 ; -------------------------------------------------------------------------------------- 00024140 ; OMSI PASCAL Function 00024140 ; <LVAR 0x008 4(r)> 00024140 ; <LVAR -0x00a 2(r)> 00024140 ; <LVAR -0x00c 4(rw)> 00024140 ; <LVAR -0x010 4(rw)> 00024140 ; -------------------------------------------------------------------------------------- 00024140 4e 56 ff bc |NV | LINK.W A6,#0xffbc 00024144 bf d5 | | CMPA.L (A5),A7 00024146 62 06 |b | BHI 0x2414e 00024148 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002414c 4e 76 |Nv | TRAPV 0002414e de fc 00 34 | 4 | ADDA.W #0x34,A7 00024152 48 e7 c3 c0 |H | MOVEM.L A1+A0+D7+D6+D1+D0,-(A7) 00024156 41 ee ff f0 |A | LEA.L (A6-0x10),A0 0002415a 43 ee ff f4 |C | LEA.L (A6-0xc),A1 0002415e 51 4f |QO | SUBQ.L #0x8,A7 00024160 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00024164 48 78 00 01 |Hx | PEA.L 0x1 00024168 4e ba e9 36 |N 6 | JSR 0x22aa0 0002416c 50 4f |PO | ADDQ.L #0x8,A7 0002416e 20 9f | | MOVE.L (A7)+,(A0) 00024170 22 9f |" | MOVE.L (A7)+,(A1) 00024172 7e 00 |~ | MOVEQ.L #0x00,D7 00024174 7c 00 || | MOVEQ.L #0x00,D6 00024176 30 2e ff f6 |0. | MOVE.W (A6-0xa),D0 0002417a 02 40 00 01 | @ | ANDI.W #0x0001,D0 0002417e 42 81 |B | CLR.L D1 00024180 32 00 |2 | MOVE.W D0,D1 00024182 de 81 | | ADD.L D1,D7 00024184 51 4f |QO | SUBQ.L #0x8,A7 00024186 2f 11 |/ | MOVE.L (A1),-(A7) 00024188 2f 10 |/ | MOVE.L (A0),-(A7) 0002418a 48 78 ff ff |Hx | PEA.L 0xffffffff 0002418e 4e b9 00 01 03 44 |N D | JSR BitShift(a : Quad ; howmuch : integer) : Quad 00024194 de fc 00 0c | | ADDA.W #0xc,A7 00024198 20 9f | | MOVE.L (A7)+,(A0) 0002419a 22 9f |" | MOVE.L (A7)+,(A1) 0002419c 52 86 |R | ADDQ.L #0x1,D6 0002419e 0c 86 00 00 00 3f | ? | CMPI.L #0x0000003f,D6 000241a4 6f d0 |o | BLE 0x24176 000241a6 51 4f |QO | SUBQ.L #0x8,A7 000241a8 2f 07 |/ | MOVE.L D7,-(A7) 000241aa 4e b9 00 01 03 54 |N T | JSR Long2Quad(a : Long) : Quad 000241b0 58 4f |XO | ADDQ.L #0x4,A7 000241b2 4e ba e9 e4 |N | JSR 0x22b98 000241b6 50 4f |PO | ADDQ.L #0x8,A7 000241b8 4c df 03 c3 |L | MOVEM.L (A7)+,D0+D1+D6+D7+A0+A1 000241bc 4e 5e |N^ | UNLK A6 000241be 4e 75 |Nu | RTS 000241c0 ; -------------------------------------------------------------------------------------- 000241c0 ; OMSI PASCAL Function 000241c0 ; <LVAR 0x008 4(r)> 000241c0 ; <LVAR -0x004 @ 1(r)> 000241c0 ; -------------------------------------------------------------------------------------- 000241c0 4e 56 ff b8 |NV | LINK.W A6,#0xffb8 000241c4 bf d5 | | CMPA.L (A5),A7 000241c6 62 06 |b | BHI 0x241ce 000241c8 44 fc 00 02 |D | MOVE.W #0x2,CCR 000241cc 4e 76 |Nv | TRAPV 000241ce de fc 00 44 | D | ADDA.W #0x44,A7 000241d2 48 e7 e0 e0 |H | MOVEM.L A2+A1+A0+D2+D1+D0,-(A7) 000241d6 45 f9 00 02 78 82 |E x | LEA.L 0x27882,A2 000241dc 72 01 |r | MOVEQ.L #0x01,D1 000241de 74 00 |t | MOVEQ.L #0x00,D2 000241e0 4a 12 |J | TST.B (A2) 000241e2 66 32 |f2 | BNE 0x24216 000241e4 9e fc 00 1c | | SUBA.W #0x1c,A7 000241e8 20 4f | O | MOVEA.L A7,A0 000241ea 43 fa d7 b4 |C | LEA.L 0x219a0,A1 000241ee 70 1a |p | MOVEQ.L #0x1a,D0 000241f0 10 d9 | | MOVE.B (A1)+,(A0)+ 000241f2 51 c8 ff fc |Q | DBF D0,0x241f0 000241f6 59 4f |YO | SUBQ.L #0x4,A7 000241f8 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000241fc 3f 01 |? | MOVE.W D1,-(A7) 000241fe 3f 3c 00 1b |?< | MOVE.W #0x1b,-(A7) 00024202 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00024208 50 4f |PO | ADDQ.L #0x8,A7 0002420a 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00024210 de fc 00 20 | | ADDA.W #0x20,A7 00024214 14 81 | | MOVE.B D1,(A2) 00024216 5d 4f |]O | SUBQ.L #0x6,A7 00024218 4e b9 00 01 03 f8 |N | JSR GetConsoleConfig() : Long 0002421e 20 1f | | MOVE.L (A7)+,D0 00024220 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 00024226 63 02 |c | BLS 0x2422a 00024228 4e 4f |NO | TRAP #15 0002422a 3e 80 |> | MOVE.W D0,(A7) 0002422c 48 6e ff fc |Hn | PEA.L (A6-0x4) 00024230 4e b9 00 01 02 12 |N | JSR KC09_PortStatus(Port : Word; VAR b: Byte) 00024236 5c 4f |\O | ADDQ.L #0x6,A7 00024238 10 2e ff fc | . | MOVE.B (A6-0x4),D0 0002423c b0 01 | | CMP.B D1,D0 0002423e 67 16 |g | BEQ 0x24256 00024240 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00024244 4e ba da be |N | JSR 0x21d04 00024248 58 4f |XO | ADDQ.L #0x4,A7 0002424a 2e 6d 00 08 |.m | MOVEA.L (A5+0x8),A7 0002424e 3c 42 |<B | MOVEA.W D2,A6 00024250 4e f9 00 02 55 e8 |N U | JMP 0x255e8 00024256 55 4f |UO | SUBQ.L #0x2,A7 00024258 4e b9 00 01 03 d4 |N | JSR ReadChar() : Byte 0002425e 10 1f | | MOVE.B (A7)+,D0 00024260 0c 00 00 07 | | CMPI.B #0x07,D0 00024264 67 16 |g | BEQ 0x2427c 00024266 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 0002426a 4e ba da 98 |N | JSR 0x21d04 0002426e 58 4f |XO | ADDQ.L #0x4,A7 00024270 2e 6d 00 08 |.m | MOVEA.L (A5+0x8),A7 00024274 3c 42 |<B | MOVEA.W D2,A6 00024276 4e f9 00 02 55 e8 |N U | JMP 0x255e8 0002427c 4c df 07 07 |L | MOVEM.L (A7)+,D0+D1+D2+A0+A1+A2 00024280 4e 5e |N^ | UNLK A6 00024282 4e 75 |Nu | RTS 00024284 ; -------------------------------------------------------------------------------------- 00024284 ; OMSI PASCAL Function 00024284 ; -------------------------------------------------------------------------------------- 00024284 4e 56 ff f8 |NV | LINK.W A6,#0xfff8 00024288 bf d5 | | CMPA.L (A5),A7 0002428a 62 06 |b | BHI 0x24292 0002428c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024290 4e 76 |Nv | TRAPV 00024292 de fc 00 08 | | ADDA.W #0x8,A7 00024296 48 78 00 c8 |Hx | PEA.L 0xc8 0002429a 4e ba e9 30 |N 0 | JSR 0x22bcc 0002429e 58 4f |XO | ADDQ.L #0x4,A7 000242a0 4e 5e |N^ | UNLK A6 000242a2 4e 75 |Nu | RTS 000242a4 ; -------------------------------------------------------------------------------------- 000242a4 ; OMSI PASCAL Function 000242a4 ; <LVAR 0x008 4(r)> 000242a4 ; <LVAR -0x00c @ 4(r)> 000242a4 ; -------------------------------------------------------------------------------------- 000242a4 4e 56 ff ac |NV | LINK.W A6,#0xffac 000242a8 bf d5 | | CMPA.L (A5),A7 000242aa 62 06 |b | BHI 0x242b2 000242ac 44 fc 00 02 |D | MOVE.W #0x2,CCR 000242b0 4e 76 |Nv | TRAPV 000242b2 de fc 00 48 | H | ADDA.W #0x48,A7 000242b6 48 e7 83 c0 |H | MOVEM.L A1+A0+D7+D6+D0,-(A7) 000242ba 43 ee ff f4 |C | LEA.L (A6-0xc),A1 000242be 48 51 |HQ | PEA.L (A1) 000242c0 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 000242c6 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000242ca 4e ba de 86 |N | JSR 0x22152 000242ce 58 4f |XO | ADDQ.L #0x4,A7 000242d0 7e 01 |~ | MOVEQ.L #0x01,D7 000242d2 be 97 | | CMP.L (A7),D7 000242d4 6e 6a |nj | BGT 0x24340 000242d6 59 4f |YO | SUBQ.L #0x4,A7 000242d8 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000242dc 2f 07 |/ | MOVE.L D7,-(A7) 000242de 4e ba e7 fc |N | JSR 0x22adc 000242e2 50 4f |PO | ADDQ.L #0x8,A7 000242e4 2c 1f |, | MOVE.L (A7)+,D6 000242e6 6d 20 |m | BLT 0x24308 000242e8 0c 86 00 00 00 ff | | CMPI.L #0x000000ff,D6 000242ee 6e 18 |n | BGT 0x24308 000242f0 2f 11 |/ | MOVE.L (A1),-(A7) 000242f2 0c 86 00 00 00 ff | | CMPI.L #0x000000ff,D6 000242f8 63 02 |c | BLS 0x242fc 000242fa 4e 4f |NO | TRAP #15 000242fc 1f 06 | | MOVE.B D6,-(A7) 000242fe 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00024304 5c 4f |\O | ADDQ.L #0x6,A7 00024306 60 34 |`4 | BRA 0x2433c 00024308 48 51 |HQ | PEA.L (A1) 0002430a 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00024310 58 4f |XO | ADDQ.L #0x4,A7 00024312 41 fa d6 c4 |A | LEA.L 0x219d8,A0 00024316 70 06 |p | MOVEQ.L #0x06,D0 00024318 2f 20 |/ | MOVE.L -(A0),-(A7) 0002431a 51 c8 ff fc |Q | DBF D0,0x24318 0002431e 59 4f |YO | SUBQ.L #0x4,A7 00024320 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00024324 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00024328 3f 3c 00 1c |?< | MOVE.W #0x1c,-(A7) 0002432c 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00024332 50 4f |PO | ADDQ.L #0x8,A7 00024334 4e ba da 10 |N | JSR 0x21d46 00024338 de fc 00 20 | | ADDA.W #0x20,A7 0002433c 52 87 |R | ADDQ.L #0x1,D7 0002433e 68 92 |h | BVC 0x242d2 00024340 2e 91 |. | MOVE.L (A1),(A7) 00024342 4e ba e7 cc |N | JSR 0x22b10 00024346 58 4f |XO | ADDQ.L #0x4,A7 00024348 4c df 03 c1 |L | MOVEM.L (A7)+,D0+D6+D7+A0+A1 0002434c 4e 5e |N^ | UNLK A6 0002434e 4e 75 |Nu | RTS 00024350 ; -------------------------------------------------------------------------------------- 00024350 ; OMSI PASCAL Function 00024350 ; <LVAR 0x00c 1(rw)> 00024350 ; <LVAR 0x008 4(r)> 00024350 ; -------------------------------------------------------------------------------------- 00024350 4e 56 ff c0 |NV | LINK.W A6,#0xffc0 00024354 bf d5 | | CMPA.L (A5),A7 00024356 62 06 |b | BHI 0x2435e 00024358 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002435c 4e 76 |Nv | TRAPV 0002435e de fc 00 34 | 4 | ADDA.W #0x34,A7 00024362 48 e7 e7 c0 |H | MOVEM.L A1+A0+D7+D6+D5+D2+D1+D0,-(A7) 00024366 42 2e 00 0c |B. | CLR.B (A6+0xc) 0002436a 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 0002436e 2f 08 |/ | MOVE.L A0,-(A7) 00024370 70 00 |p | MOVEQ.L #0x00,D0 00024372 52 40 |R@ | ADDQ.W #0x1,D0 00024374 1c 00 | | MOVE.B D0,D6 00024376 0c 06 00 2b | + | CMPI.B #0x2b,D6 0002437a 6e 00 00 82 |n | BGT 0x243fe 0002437e 41 fa d8 b2 |A | LEA.L 0x21c32,A0 00024382 10 06 | | MOVE.B D6,D0 00024384 48 80 |H | EXTB.W D0 00024386 48 c0 |H | EXTW.L D0 00024388 e2 98 | | ROR.L #0x1,D0 0002438a d0 c0 | | ADDA.W D0,A0 0002438c 48 40 |H@ | SWAP.W D0 0002438e e7 58 | X | ROL.W #0x3,D0 00024390 42 81 |B | CLR.L D1 00024392 12 10 | | MOVE.B (A0),D1 00024394 e1 29 | ) | LSL.B D0,D1 00024396 e8 09 | | LSR.B #0x4,D1 00024398 2a 01 |* | MOVE.L D1,D5 0002439a 20 57 | W | MOVEA.L (A7),A0 0002439c 30 10 |0 | MOVE.W (A0),D0 0002439e 48 c0 |H | EXTW.L D0 000243a0 ba 80 | | CMP.L D0,D5 000243a2 66 54 |fT | BNE 0x243f8 000243a4 2f 05 |/ | MOVE.L D5,-(A7) 000243a6 7e 01 |~ | MOVEQ.L #0x01,D7 000243a8 be 97 | | CMP.L (A7),D7 000243aa 6e 42 |nB | BGT 0x243ee 000243ac 10 06 | | MOVE.B D6,D0 000243ae 48 80 |H | EXTB.W D0 000243b0 c1 fc 00 0a | | MULS.W #0xa,D0 000243b4 22 07 |" | MOVE.L D7,D1 000243b6 53 81 |S | SUBQ.L #0x1,D1 000243b8 0c 81 00 00 00 7d | } | CMPI.L #0x0000007d,D1 000243be 63 02 |c | BLS 0x243c2 000243c0 4e 4f |NO | TRAP #15 000243c2 20 6f 00 04 | o | MOVEA.L (A7+0x4),A0 000243c6 43 fa d6 b2 |C | LEA.L COMMAND_TABLE_21a7a,A1 000243ca 24 07 |$ | MOVE.L D7,D2 000243cc 53 82 |S | SUBQ.L #0x1,D2 000243ce 0c 82 00 00 00 09 | | CMPI.L #0x00000009,D2 000243d4 63 02 |c | BLS 0x243d8 000243d6 4e 4f |NO | TRAP #15 000243d8 43 f1 00 00 |C | LEA.L (A1+D0.W),A1 000243dc 10 30 18 02 | 0 | MOVE.B (A0+D1.L+#0x2),D0 000243e0 b0 31 28 00 | 1( | CMP.B (A1+D2.L),D0 000243e4 67 04 |g | BEQ 0x243ea 000243e6 58 4f |XO | ADDQ.L #0x4,A7 000243e8 60 0e |` | BRA 0x243f8 000243ea 52 87 |R | ADDQ.L #0x1,D7 000243ec 68 ba |h | BVC 0x243a8 000243ee 58 4f |XO | ADDQ.L #0x4,A7 000243f0 1d 46 00 0c | F | MOVE.B D6,(A6+0xc) 000243f4 58 4f |XO | ADDQ.L #0x4,A7 000243f6 60 08 |` | BRA 0x24400 000243f8 52 06 |R | ADDQ.B #0x1,D6 000243fa 68 00 ff 7a |h z | BVC 0x24376 000243fe 58 4f |XO | ADDQ.L #0x4,A7 00024400 4c df 03 e7 |L | MOVEM.L (A7)+,D0+D1+D2+D5+D6+D7+A0+A1 00024404 4e 5e |N^ | UNLK A6 00024406 4e 75 |Nu | RTS 00024408 ; -------------------------------------------------------------------------------------- 00024408 ; OMSI PASCAL Function 00024408 ; <LVAR 0x00c 4(r)> 00024408 ; <LVAR 0x008 4(r)> 00024408 ; <LVAR -0x002 @ 1(r)> 00024408 ; <LVAR -0x006 @ 4(w)> 00024408 ; <LVAR -0x008 @ 1(r)> 00024408 ; <LVAR -0x00c @ 4(r)> 00024408 ; <LVAR -0x010 @ 4(rw)> 00024408 ; -------------------------------------------------------------------------------------- 00024408 4e 56 ff a6 |NV | LINK.W A6,#0xffa6 0002440c bf d5 | | CMPA.L (A5),A7 0002440e 62 06 |b | BHI 0x24416 00024410 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024414 4e 76 |Nv | TRAPV 00024416 de fc 00 4a | J | ADDA.W #0x4a,A7 0002441a 48 e7 c0 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D1+D0,-(A7) 0002441e 45 ee ff f0 |E | LEA.L (A6-0x10),A2 00024422 47 ee ff fe |G | LEA.L (A6-0x2),A3 00024426 49 ee ff f4 |I | LEA.L (A6-0xc),A4 0002442a 72 01 |r | MOVEQ.L #0x01,D1 0002442c 59 4f |YO | SUBQ.L #0x4,A7 0002442e 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00024432 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 00024438 58 4f |XO | ADDQ.L #0x4,A7 0002443a 24 9f |$ | MOVE.L (A7)+,(A2) 0002443c 2f 12 |/ | MOVE.L (A2),-(A7) 0002443e 1f 3c 00 2e | < . | MOVE.B #0x2e,-(A7) 00024442 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00024448 5c 4f |\O | ADDQ.L #0x6,A7 0002444a 41 f9 00 02 78 62 |A xb | LEA.L 0x27862,A0 00024450 70 04 |p | MOVEQ.L #0x04,D0 00024452 3f 20 |? | MOVE.W -(A0),-(A7) 00024454 51 c8 ff fc |Q | DBF D0,0x24452 00024458 59 4f |YO | SUBQ.L #0x4,A7 0002445a 2f 12 |/ | MOVE.L (A2),-(A7) 0002445c 59 4f |YO | SUBQ.L #0x4,A7 0002445e 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00024462 3f 01 |? | MOVE.W D1,-(A7) 00024464 3f 3c 00 0a |?< | MOVE.W #0xa,-(A7) 00024468 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002446e 50 4f |PO | ADDQ.L #0x8,A7 00024470 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00024476 50 4f |PO | ADDQ.L #0x8,A7 00024478 24 9f |$ | MOVE.L (A7)+,(A2) 0002447a 5c 4f |\O | ADDQ.L #0x6,A7 0002447c 2e 92 |. | MOVE.L (A2),(A7) 0002447e 42 27 |B' | CLR.B -(A7) 00024480 1f 01 | | MOVE.B D1,-(A7) 00024482 48 78 00 00 |Hx | PEA.L 0x0 00024486 48 53 |HS | PEA.L (A3) 00024488 48 54 |HT | PEA.L (A4) 0002448a 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File) 00024490 de fc 00 14 | | ADDA.W #0x14,A7 00024494 4a 13 |J | TST.B (A3) 00024496 67 4a |gJ | BEQ 0x244e2 00024498 48 52 |HR | PEA.L (A2) 0002449a 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000244a0 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7) 000244a4 4e ba d8 5e |N ^ | JSR 0x21d04 000244a8 9e fc 00 16 | | SUBA.W #0x16,A7 000244ac 20 4f | O | MOVEA.L A7,A0 000244ae 43 fa d5 28 |C ( | LEA.L 0x219d8,A1 000244b2 70 18 |p | MOVEQ.L #0x18,D0 000244b4 10 d9 | | MOVE.B (A1)+,(A0)+ 000244b6 51 c8 ff fc |Q | DBF D0,0x244b4 000244ba 51 4f |QO | SUBQ.L #0x8,A7 000244bc 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000244c0 3f 01 |? | MOVE.W D1,-(A7) 000244c2 3f 3c 00 19 |?< | MOVE.W #0x19,-(A7) 000244c6 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000244cc 58 4f |XO | ADDQ.L #0x4,A7 000244ce 2e ae 00 0c |. | MOVE.L (A6+0xc),(A7) 000244d2 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000244d8 50 4f |PO | ADDQ.L #0x8,A7 000244da 4e ba d8 6a |N j | JSR 0x21d46 000244de de fc 00 1e | | ADDA.W #0x1e,A7 000244e2 2d 79 00 02 78 50 ff fa |-y xP | MOVE.L 0x27850,(A6-0x6) 000244ea 2f 14 |/ | MOVE.L (A4),-(A7) 000244ec 48 52 |HR | PEA.L (A2) 000244ee 48 6e ff f8 |Hn | PEA.L (A6-0x8) 000244f2 4e b9 00 01 04 3c |N < | JSR FileReadLine(file : File; VAR a : String; VAR b : Byte) 000244f8 de fc 00 0c | | ADDA.W #0xc,A7 000244fc 20 52 | R | MOVEA.L (A2),A0 000244fe 4a 50 |JP | TST.W (A0) 00024500 67 14 |g | BEQ 0x24516 00024502 2f 12 |/ | MOVE.L (A2),-(A7) 00024504 4e ba da 98 |N | JSR 0x21f9e 00024508 58 4f |XO | ADDQ.L #0x4,A7 0002450a 48 6e ff fa |Hn | PEA.L (A6-0x6) 0002450e 2f 12 |/ | MOVE.L (A2),-(A7) 00024510 4e ba de 12 |N | JSR 0x22324 00024514 50 4f |PO | ADDQ.L #0x8,A7 00024516 4a 2e ff f8 |J. | TST.B (A6-0x8) 0002451a 67 ce |g | BEQ 0x244ea 0002451c 42 27 |B' | CLR.B -(A7) 0002451e 1f 01 | | MOVE.B D1,-(A7) 00024520 48 78 00 01 |Hx | PEA.L 0x1 00024524 48 53 |HS | PEA.L (A3) 00024526 48 54 |HT | PEA.L (A4) 00024528 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File) 0002452e de fc 00 10 | | ADDA.W #0x10,A7 00024532 48 52 |HR | PEA.L (A2) 00024534 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 0002453a 58 4f |XO | ADDQ.L #0x4,A7 0002453c 4c df 1f 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2+A3+A4 00024540 4e 5e |N^ | UNLK A6 00024542 4e 75 |Nu | RTS 00024544 ; -------------------------------------------------------------------------------------- 00024544 ; OMSI PASCAL Function 00024544 ; <LVAR 0x014 1(w)> 00024544 ; <LVAR 0x00c 4(r)> 00024544 ; <LVAR 0x008 4(r)> 00024544 ; -------------------------------------------------------------------------------------- 00024544 4e 56 ff f4 |NV | LINK.W A6,#0xfff4 00024548 bf d5 | | CMPA.L (A5),A7 0002454a 62 06 |b | BHI 0x24552 0002454c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024550 4e 76 |Nv | TRAPV 00024552 de fc 00 0c | | ADDA.W #0xc,A7 00024556 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 0002455a 20 2e 00 0c | . | MOVE.L (A6+0xc),D0 0002455e d0 ae 00 08 | | ADD.L (A6+0x8),D0 00024562 53 80 |S | SUBQ.L #0x1,D0 00024564 53 80 |S | SUBQ.L #0x1,D0 00024566 0c 80 00 00 1f ff | | CMPI.L #0x00001fff,D0 0002456c 63 02 |c | BLS 0x24570 0002456e 4e 4f |NO | TRAP #15 00024570 41 f9 00 02 58 48 |A XH | LEA.L 0x25848,A0 00024576 1d 70 08 08 00 14 | p | MOVE.B (A0+D0.L+#0x8),(A6+0x14) 0002457c 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 00024580 4e 5e |N^ | UNLK A6 00024582 4e 75 |Nu | RTS 00024584 ; -------------------------------------------------------------------------------------- 00024584 ; OMSI PASCAL Function 00024584 ; <LVAR 0x010 4(w)> 00024584 ; <LVAR 0x00c 4(r)> 00024584 ; <LVAR 0x008 4(r)> 00024584 ; <LVAR -0x004 @ 1(r)> 00024584 ; <LVAR -0x008 @ 4(r)> 00024584 ; -------------------------------------------------------------------------------------- 00024584 4e 56 ff c4 |NV | LINK.W A6,#0xffc4 00024588 bf d5 | | CMPA.L (A5),A7 0002458a 62 06 |b | BHI 0x24592 0002458c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024590 4e 76 |Nv | TRAPV 00024592 de fc 00 34 | 4 | ADDA.W #0x34,A7 00024596 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7) 0002459a 59 4f |YO | SUBQ.L #0x4,A7 0002459c 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 000245a0 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000245a4 4e ba e4 4c |N L | JSR 0x229f2 000245a8 50 4f |PO | ADDQ.L #0x8,A7 000245aa 48 6e ff fc |Hn | PEA.L (A6-0x4) 000245ae 48 6e ff f8 |Hn | PEA.L (A6-0x8) 000245b2 4e b9 00 01 02 ec |N | JSR String2Long(src : String; VAR status : Bool; VAR retval : Long) 000245b8 de fc 00 0c | | ADDA.W #0xc,A7 000245bc 4a 2e ff fc |J. | TST.B (A6-0x4) 000245c0 66 30 |f0 | BNE 0x245f2 000245c2 9e fc 00 18 | | SUBA.W #0x18,A7 000245c6 20 4f | O | MOVEA.L A7,A0 000245c8 43 fa d4 28 |C ( | LEA.L 0x219f2,A1 000245cc 70 16 |p | MOVEQ.L #0x16,D0 000245ce 10 d9 | | MOVE.B (A1)+,(A0)+ 000245d0 51 c8 ff fc |Q | DBF D0,0x245ce 000245d4 59 4f |YO | SUBQ.L #0x4,A7 000245d6 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000245da 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000245de 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7) 000245e2 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000245e8 50 4f |PO | ADDQ.L #0x8,A7 000245ea 4e ba d7 5a |N Z | JSR 0x21d46 000245ee de fc 00 1c | | ADDA.W #0x1c,A7 000245f2 2d 6e ff f8 00 10 |-n | MOVE.L (A6-0x8),(A6+0x10) 000245f8 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1 000245fc 4e 5e |N^ | UNLK A6 000245fe 4e 75 |Nu | RTS 00024600 ; -------------------------------------------------------------------------------------- 00024600 ; OMSI PASCAL Function 00024600 ; <LVAR 0x014 4(r)> 00024600 ; <LVAR 0x010 4(r)> 00024600 ; <LVAR 0x00c 4(r)> 00024600 ; <LVAR 0x008 4(r)> 00024600 ; <LVAR -0x00c 4(rw)> 00024600 ; <LVAR -0x010 4(rw)> 00024600 ; <LVAR -0x014 4(rw)> 00024600 ; <LVAR -0x018 4(w)> 00024600 ; <LVAR -0x020 4(rw)> 00024600 ; -------------------------------------------------------------------------------------- 00024600 4e 56 ff 8e |NV | LINK.W A6,#0xff8e 00024604 bf d5 | | CMPA.L (A5),A7 00024606 62 06 |b | BHI 0x2460e 00024608 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002460c 4e 76 |Nv | TRAPV 0002460e de fc 00 4e | N | ADDA.W #0x4e,A7 00024612 48 e7 c7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D1+D0,-(A7) 00024616 43 ee ff e0 |C | LEA.L (A6-0x20),A1 0002461a 45 ee ff f0 |E | LEA.L (A6-0x10),A2 0002461e 47 ee ff f4 |G | LEA.L (A6-0xc),A3 00024622 49 ee ff ec |I | LEA.L (A6-0x14),A4 00024626 7e 00 |~ | MOVEQ.L #0x00,D7 00024628 22 ae 00 14 |" | MOVE.L (A6+0x14),(A1) 0002462c 20 39 00 02 78 50 | 9 xP | MOVE.L 0x27850,D0 00024632 90 ae 00 14 | | SUB.L (A6+0x14),D0 00024636 28 80 |( | MOVE.L D0,(A4) 00024638 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 0002463c 2a 2e 00 10 |*. | MOVE.L (A6+0x10),D5 00024640 ba 97 | | CMP.L (A7),D5 00024642 6e 2c |n, | BGT 0x24670 00024644 51 4f |QO | SUBQ.L #0x8,A7 00024646 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 0002464a 2f 05 |/ | MOVE.L D5,-(A7) 0002464c 4e ba e3 42 |N B | JSR 0x22990 00024650 50 4f |PO | ADDQ.L #0x8,A7 00024652 24 9f |$ | MOVE.L (A7)+,(A2) 00024654 26 97 |& | MOVE.L (A7),(A3) 00024656 2f 13 |/ | MOVE.L (A3),-(A7) 00024658 2f 12 |/ | MOVE.L (A2),-(A7) 0002465a 4e ba e2 fc |N | JSR 0x22958 0002465e 50 4f |PO | ADDQ.L #0x8,A7 00024660 2c 1f |, | MOVE.L (A7)+,D6 00024662 de 86 | | ADD.L D6,D7 00024664 ba ae 00 0c | | CMP.L (A6+0xc),D5 00024668 6c 02 |l | BGE 0x2466c 0002466a 52 87 |R | ADDQ.L #0x1,D7 0002466c 52 85 |R | ADDQ.L #0x1,D5 0002466e 68 d0 |h | BVC 0x24640 00024670 58 4f |XO | ADDQ.L #0x4,A7 00024672 20 11 | | MOVE.L (A1),D0 00024674 d0 94 | | ADD.L (A4),D0 00024676 2d 40 ff e8 |-@ | MOVE.L D0,(A6-0x18) 0002467a be 94 | | CMP.L (A4),D7 0002467c 67 0c |g | BEQ 0x2468a 0002467e 2f 00 |/ | MOVE.L D0,-(A7) 00024680 2f 14 |/ | MOVE.L (A4),-(A7) 00024682 9f 97 | | SUB.L D7,(A7) 00024684 4e ba dc 14 |N | JSR 0x2229a 00024688 50 4f |PO | ADDQ.L #0x8,A7 0002468a 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 0002468e 2a 2e 00 10 |*. | MOVE.L (A6+0x10),D5 00024692 ba 97 | | CMP.L (A7),D5 00024694 6e 00 00 88 |n | BGT 0x2471e 00024698 51 4f |QO | SUBQ.L #0x8,A7 0002469a 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 0002469e 2f 05 |/ | MOVE.L D5,-(A7) 000246a0 4e ba e2 ee |N | JSR 0x22990 000246a4 50 4f |PO | ADDQ.L #0x8,A7 000246a6 24 9f |$ | MOVE.L (A7)+,(A2) 000246a8 26 97 |& | MOVE.L (A7),(A3) 000246aa 2f 13 |/ | MOVE.L (A3),-(A7) 000246ac 2f 12 |/ | MOVE.L (A2),-(A7) 000246ae 4e ba e2 a8 |N | JSR 0x22958 000246b2 50 4f |PO | ADDQ.L #0x8,A7 000246b4 2c 1f |, | MOVE.L (A7)+,D6 000246b6 2f 06 |/ | MOVE.L D6,-(A7) 000246b8 70 01 |p | MOVEQ.L #0x01,D0 000246ba b0 97 | | CMP.L (A7),D0 000246bc 6e 30 |n0 | BGT 0x246ee 000246be 22 11 |" | MOVE.L (A1),D1 000246c0 d2 80 | | ADD.L D0,D1 000246c2 53 81 |S | SUBQ.L #0x1,D1 000246c4 53 81 |S | SUBQ.L #0x1,D1 000246c6 0c 81 00 00 1f ff | | CMPI.L #0x00001fff,D1 000246cc 63 02 |c | BLS 0x246d0 000246ce 4e 4f |NO | TRAP #15 000246d0 41 f9 00 02 58 48 |A XH | LEA.L 0x25848,A0 000246d6 55 4f |UO | SUBQ.L #0x2,A7 000246d8 2f 13 |/ | MOVE.L (A3),-(A7) 000246da 2f 12 |/ | MOVE.L (A2),-(A7) 000246dc 2f 00 |/ | MOVE.L D0,-(A7) 000246de 4e ba fe 64 |N d | JSR 0x24544 000246e2 de fc 00 0c | | ADDA.W #0xc,A7 000246e6 11 9f 18 08 | | MOVE.B (A7)+,(A0+D1.L+#0x8) 000246ea 52 80 |R | ADDQ.L #0x1,D0 000246ec 68 cc |h | BVC 0x246ba 000246ee 58 4f |XO | ADDQ.L #0x4,A7 000246f0 ba ae 00 0c | | CMP.L (A6+0xc),D5 000246f4 6c 22 |l" | BGE 0x24718 000246f6 20 11 | | MOVE.L (A1),D0 000246f8 d0 86 | | ADD.L D6,D0 000246fa 22 00 |" | MOVE.L D0,D1 000246fc 53 81 |S | SUBQ.L #0x1,D1 000246fe 0c 81 00 00 1f ff | | CMPI.L #0x00001fff,D1 00024704 63 02 |c | BLS 0x24708 00024706 4e 4f |NO | TRAP #15 00024708 41 f9 00 02 58 48 |A XH | LEA.L 0x25848,A0 0002470e 11 bc 00 2c 18 08 | , | MOVE.B #0x2c,(A0+D1.L+#0x8) 00024714 52 80 |R | ADDQ.L #0x1,D0 00024716 22 80 |" | MOVE.L D0,(A1) 00024718 52 85 |R | ADDQ.L #0x1,D5 0002471a 68 00 ff 76 |h v | BVC 0x24692 0002471e 58 4f |XO | ADDQ.L #0x4,A7 00024720 4c df 1f e3 |L | MOVEM.L (A7)+,D0+D1+D5+D6+D7+A0+A1+A2+A3+A4 00024724 4e 5e |N^ | UNLK A6 00024726 4e 75 |Nu | RTS 00024728 ; -------------------------------------------------------------------------------------- 00024728 ; OMSI PASCAL Function 00024728 ; <LVAR 0x018 4(rw)> 00024728 ; <LVAR 0x014 4(r)> 00024728 ; <LVAR 0x010 4(r)> 00024728 ; <LVAR 0x00c 4(r)> 00024728 ; <LVAR 0x008 4(r)> 00024728 ; <LVAR -0x008 4(rw)> 00024728 ; <LVAR -0x00c 4(rw)> 00024728 ; <LVAR -0x018 4(w)> 00024728 ; -------------------------------------------------------------------------------------- 00024728 4e 56 ff 9e |NV | LINK.W A6,#0xff9e 0002472c bf d5 | | CMPA.L (A5),A7 0002472e 62 06 |b | BHI 0x24736 00024730 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024734 4e 76 |Nv | TRAPV 00024736 de fc 00 4a | J | ADDA.W #0x4a,A7 0002473a 48 e7 c7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D1+D0,-(A7) 0002473e 41 ee ff f8 |A | LEA.L (A6-0x8),A0 00024742 43 ee 00 14 |C | LEA.L (A6+0x14),A1 00024746 45 ee 00 10 |E | LEA.L (A6+0x10),A2 0002474a 47 ee ff f4 |G | LEA.L (A6-0xc),A3 0002474e 49 fa fd f4 |I | LEA.L 0x24544,A4 00024752 72 0c |r | MOVEQ.L #0x0c,D1 00024754 59 4f |YO | SUBQ.L #0x4,A7 00024756 2f 11 |/ | MOVE.L (A1),-(A7) 00024758 2f 12 |/ | MOVE.L (A2),-(A7) 0002475a 4e ba e1 fc |N | JSR 0x22958 0002475e 50 4f |PO | ADDQ.L #0x8,A7 00024760 26 97 |& | MOVE.L (A7),(A3) 00024762 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00024766 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 0002476a 4e ba e1 ec |N | JSR 0x22958 0002476e 50 4f |PO | ADDQ.L #0x8,A7 00024770 20 9f | | MOVE.L (A7)+,(A0) 00024772 52 90 |R | ADDQ.L #0x1,(A0) 00024774 20 13 | | MOVE.L (A3),D0 00024776 90 90 | | SUB.L (A0),D0 00024778 52 80 |R | ADDQ.L #0x1,D0 0002477a 2f 00 |/ | MOVE.L D0,-(A7) 0002477c 70 01 |p | MOVEQ.L #0x01,D0 0002477e b0 97 | | CMP.L (A7),D0 00024780 6e 00 00 8e |n | BGT 0x24810 00024784 2d 40 ff e8 |-@ | MOVE.L D0,(A6-0x18) 00024788 2f 00 |/ | MOVE.L D0,-(A7) 0002478a 7c 00 || | MOVEQ.L #0x00,D6 0002478c 2f 10 |/ | MOVE.L (A0),-(A7) 0002478e 7a 01 |z | MOVEQ.L #0x01,D5 00024790 ba 97 | | CMP.L (A7),D5 00024792 6e 42 |nB | BGT 0x247d6 00024794 0c 85 00 00 00 01 | | CMPI.L #0x00000001,D5 0002479a 66 04 |f | BNE 0x247a0 0002479c 7e 2f |~/ | MOVEQ.L #0x2f,D7 0002479e 60 14 |` | BRA 0x247b4 000247a0 55 4f |UO | SUBQ.L #0x2,A7 000247a2 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 000247a6 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000247aa 2f 05 |/ | MOVE.L D5,-(A7) 000247ac 53 97 |S | SUBQ.L #0x1,(A7) 000247ae 4e 94 |N | JSR (A4) 000247b0 de c1 | | ADDA.W D1,A7 000247b2 1e 1f | | MOVE.B (A7)+,D7 000247b4 55 4f |UO | SUBQ.L #0x2,A7 000247b6 2f 11 |/ | MOVE.L (A1),-(A7) 000247b8 2f 12 |/ | MOVE.L (A2),-(A7) 000247ba 20 2f 00 0e | / | MOVE.L (A7+0xe),D0 000247be d0 85 | | ADD.L D5,D0 000247c0 53 80 |S | SUBQ.L #0x1,D0 000247c2 2f 00 |/ | MOVE.L D0,-(A7) 000247c4 4e 94 |N | JSR (A4) 000247c6 de c1 | | ADDA.W D1,A7 000247c8 be 1f | | CMP.B (A7)+,D7 000247ca 67 04 |g | BEQ 0x247d0 000247cc 58 4f |XO | ADDQ.L #0x4,A7 000247ce 60 08 |` | BRA 0x247d8 000247d0 2c 05 |, | MOVE.L D5,D6 000247d2 52 85 |R | ADDQ.L #0x1,D5 000247d4 68 ba |h | BVC 0x24790 000247d6 58 4f |XO | ADDQ.L #0x4,A7 000247d8 bc 90 | | CMP.L (A0),D6 000247da 66 2c |f, | BNE 0x24808 000247dc 20 17 | | MOVE.L (A7),D0 000247de 2d 40 00 18 |-@ | MOVE.L D0,(A6+0x18) 000247e2 d0 90 | | ADD.L (A0),D0 000247e4 b0 93 | | CMP.L (A3),D0 000247e6 6d 02 |m | BLT 0x247ea 000247e8 60 1a |` | BRA 0x24804 000247ea 55 4f |UO | SUBQ.L #0x2,A7 000247ec 2f 11 |/ | MOVE.L (A1),-(A7) 000247ee 2f 12 |/ | MOVE.L (A2),-(A7) 000247f0 2f 00 |/ | MOVE.L D0,-(A7) 000247f2 4e 94 |N | JSR (A4) 000247f4 de c1 | | ADDA.W D1,A7 000247f6 1e 1f | | MOVE.B (A7)+,D7 000247f8 0c 07 00 2f | / | CMPI.B #0x2f,D7 000247fc 67 06 |g | BEQ 0x24804 000247fe 0c 07 00 3d | = | CMPI.B #0x3d,D7 00024802 66 04 |f | BNE 0x24808 00024804 50 4f |PO | ADDQ.L #0x8,A7 00024806 60 0e |` | BRA 0x24816 00024808 20 1f | | MOVE.L (A7)+,D0 0002480a 52 80 |R | ADDQ.L #0x1,D0 0002480c 68 00 ff 70 |h p | BVC 0x2477e 00024810 58 4f |XO | ADDQ.L #0x4,A7 00024812 42 ae 00 18 |B | CLR.L (A6+0x18) 00024816 4c df 1f e3 |L | MOVEM.L (A7)+,D0+D1+D5+D6+D7+A0+A1+A2+A3+A4 0002481a 4e 5e |N^ | UNLK A6 0002481c 4e 75 |Nu | RTS 0002481e ; -------------------------------------------------------------------------------------- 0002481e ; OMSI PASCAL Function 0002481e ; <LVAR 0x018 4(r)> 0002481e ; <LVAR 0x014 4(r)> 0002481e ; <LVAR 0x010 4(r)> 0002481e ; <LVAR 0x00c 4(r)> 0002481e ; <LVAR 0x008 4(r)> 0002481e ; -------------------------------------------------------------------------------------- 0002481e 4e 56 ff be |NV | LINK.W A6,#0xffbe 00024822 bf d5 | | CMPA.L (A5),A7 00024824 62 06 |b | BHI 0x2482c 00024826 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002482a 4e 76 |Nv | TRAPV 0002482c de fc 00 36 | 6 | ADDA.W #0x36,A7 00024830 48 e7 c7 c0 |H | MOVEM.L A1+A0+D7+D6+D5+D1+D0,-(A7) 00024834 41 ee 00 14 |A | LEA.L (A6+0x14),A0 00024838 43 ee 00 10 |C | LEA.L (A6+0x10),A1 0002483c 72 2f |r/ | MOVEQ.L #0x2f,D1 0002483e 59 4f |YO | SUBQ.L #0x4,A7 00024840 2f 10 |/ | MOVE.L (A0),-(A7) 00024842 2f 11 |/ | MOVE.L (A1),-(A7) 00024844 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00024848 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 0002484c 4e ba fe da |N | JSR 0x24728 00024850 de fc 00 10 | | ADDA.W #0x10,A7 00024854 2a 1f |* | MOVE.L (A7)+,D5 00024856 6f 52 |oR | BLE 0x248aa 00024858 2f 2e 00 18 |/. | MOVE.L (A6+0x18),-(A7) 0002485c 1f 01 | | MOVE.B D1,-(A7) 0002485e 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00024864 5c 4f |\O | ADDQ.L #0x6,A7 00024866 20 05 | | MOVE.L D5,D0 00024868 52 80 |R | ADDQ.L #0x1,D0 0002486a 59 4f |YO | SUBQ.L #0x4,A7 0002486c 2f 10 |/ | MOVE.L (A0),-(A7) 0002486e 2f 11 |/ | MOVE.L (A1),-(A7) 00024870 4e ba e0 e6 |N | JSR 0x22958 00024874 50 4f |PO | ADDQ.L #0x8,A7 00024876 2c 00 |, | MOVE.L D0,D6 00024878 bc 97 | | CMP.L (A7),D6 0002487a 6e 2c |n, | BGT 0x248a8 0002487c 55 4f |UO | SUBQ.L #0x2,A7 0002487e 2f 10 |/ | MOVE.L (A0),-(A7) 00024880 2f 11 |/ | MOVE.L (A1),-(A7) 00024882 2f 06 |/ | MOVE.L D6,-(A7) 00024884 4e ba fc be |N | JSR 0x24544 00024888 de fc 00 0c | | ADDA.W #0xc,A7 0002488c 1e 1f | | MOVE.B (A7)+,D7 0002488e be 01 | | CMP.B D1,D7 00024890 66 04 |f | BNE 0x24896 00024892 58 4f |XO | ADDQ.L #0x4,A7 00024894 60 14 |` | BRA 0x248aa 00024896 2f 2e 00 18 |/. | MOVE.L (A6+0x18),-(A7) 0002489a 1f 07 | | MOVE.B D7,-(A7) 0002489c 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 000248a2 5c 4f |\O | ADDQ.L #0x6,A7 000248a4 52 86 |R | ADDQ.L #0x1,D6 000248a6 68 d0 |h | BVC 0x24878 000248a8 58 4f |XO | ADDQ.L #0x4,A7 000248aa 4c df 03 e3 |L | MOVEM.L (A7)+,D0+D1+D5+D6+D7+A0+A1 000248ae 4e 5e |N^ | UNLK A6 000248b0 4e 75 |Nu | RTS 000248b2 ; -------------------------------------------------------------------------------------- 000248b2 ; OMSI PASCAL Function 000248b2 ; <LVAR 0x018 4(r)> 000248b2 ; <LVAR 0x014 4(r)> 000248b2 ; <LVAR 0x010 4(r)> 000248b2 ; <LVAR 0x00c 4(r)> 000248b2 ; <LVAR 0x008 4(r)> 000248b2 ; <LVAR -0x006 4(rw)> 000248b2 ; <LVAR -0x014 4(rw)> 000248b2 ; -------------------------------------------------------------------------------------- 000248b2 4e 56 ff aa |NV | LINK.W A6,#0xffaa 000248b6 bf d5 | | CMPA.L (A5),A7 000248b8 62 06 |b | BHI 0x248c0 000248ba 44 fc 00 02 |D | MOVE.W #0x2,CCR 000248be 4e 76 |Nv | TRAPV 000248c0 de fc 00 42 | B | ADDA.W #0x42,A7 000248c4 48 e7 c7 e0 |H | MOVEM.L A2+A1+A0+D7+D6+D5+D1+D0,-(A7) 000248c8 41 ee 00 14 |A | LEA.L (A6+0x14),A0 000248cc 43 ee 00 10 |C | LEA.L (A6+0x10),A1 000248d0 45 ee ff fa |E | LEA.L (A6-0x6),A2 000248d4 72 0c |r | MOVEQ.L #0x0c,D1 000248d6 59 4f |YO | SUBQ.L #0x4,A7 000248d8 2f 10 |/ | MOVE.L (A0),-(A7) 000248da 2f 11 |/ | MOVE.L (A1),-(A7) 000248dc 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 000248e0 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000248e4 4e ba fe 42 |N B | JSR 0x24728 000248e8 de fc 00 10 | | ADDA.W #0x10,A7 000248ec 2d 5f ff ec |-_ | MOVE.L (A7)+,(A6-0x14) 000248f0 6f 6e |on | BLE 0x24960 000248f2 59 4f |YO | SUBQ.L #0x4,A7 000248f4 2f 10 |/ | MOVE.L (A0),-(A7) 000248f6 2f 11 |/ | MOVE.L (A1),-(A7) 000248f8 4e ba e0 5e |N ^ | JSR 0x22958 000248fc 50 4f |PO | ADDQ.L #0x8,A7 000248fe 24 9f |$ | MOVE.L (A7)+,(A2) 00024900 2f 12 |/ | MOVE.L (A2),-(A7) 00024902 2a 2e ff ec |*. | MOVE.L (A6-0x14),D5 00024906 ba 97 | | CMP.L (A7),D5 00024908 6e 54 |nT | BGT 0x2495e 0002490a 55 4f |UO | SUBQ.L #0x2,A7 0002490c 2f 10 |/ | MOVE.L (A0),-(A7) 0002490e 2f 11 |/ | MOVE.L (A1),-(A7) 00024910 2f 05 |/ | MOVE.L D5,-(A7) 00024912 4e ba fc 30 |N 0 | JSR 0x24544 00024916 de c1 | | ADDA.W D1,A7 00024918 10 1f | | MOVE.B (A7)+,D0 0002491a 0c 00 00 3d | = | CMPI.B #0x3d,D0 0002491e 66 3a |f: | BNE 0x2495a 00024920 20 05 | | MOVE.L D5,D0 00024922 52 80 |R | ADDQ.L #0x1,D0 00024924 2f 12 |/ | MOVE.L (A2),-(A7) 00024926 2c 00 |, | MOVE.L D0,D6 00024928 bc 97 | | CMP.L (A7),D6 0002492a 6e 2c |n, | BGT 0x24958 0002492c 55 4f |UO | SUBQ.L #0x2,A7 0002492e 2f 10 |/ | MOVE.L (A0),-(A7) 00024930 2f 11 |/ | MOVE.L (A1),-(A7) 00024932 2f 06 |/ | MOVE.L D6,-(A7) 00024934 4e ba fc 0e |N | JSR 0x24544 00024938 de c1 | | ADDA.W D1,A7 0002493a 1e 1f | | MOVE.B (A7)+,D7 0002493c 0c 07 00 2f | / | CMPI.B #0x2f,D7 00024940 66 04 |f | BNE 0x24946 00024942 50 4f |PO | ADDQ.L #0x8,A7 00024944 60 1a |` | BRA 0x24960 00024946 2f 2e 00 18 |/. | MOVE.L (A6+0x18),-(A7) 0002494a 1f 07 | | MOVE.B D7,-(A7) 0002494c 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00024952 5c 4f |\O | ADDQ.L #0x6,A7 00024954 52 86 |R | ADDQ.L #0x1,D6 00024956 68 d0 |h | BVC 0x24928 00024958 58 4f |XO | ADDQ.L #0x4,A7 0002495a 52 85 |R | ADDQ.L #0x1,D5 0002495c 68 a8 |h | BVC 0x24906 0002495e 58 4f |XO | ADDQ.L #0x4,A7 00024960 4c df 07 e3 |L | MOVEM.L (A7)+,D0+D1+D5+D6+D7+A0+A1+A2 00024964 4e 5e |N^ | UNLK A6 00024966 4e 75 |Nu | RTS 00024968 ; -------------------------------------------------------------------------------------- 00024968 ; OMSI PASCAL Function 00024968 ; <LVAR 0x010 4(r)> 00024968 ; <LVAR 0x00c 4(r)> 00024968 ; <LVAR 0x008 4(r)> 00024968 ; -------------------------------------------------------------------------------------- 00024968 4e 56 ff b2 |NV | LINK.W A6,#0xffb2 0002496c bf d5 | | CMPA.L (A5),A7 0002496e 62 06 |b | BHI 0x24976 00024970 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024974 4e 76 |Nv | TRAPV 00024976 de fc 00 42 | B | ADDA.W #0x42,A7 0002497a 48 e7 c7 c0 |H | MOVEM.L A1+A0+D7+D6+D5+D1+D0,-(A7) 0002497e 41 ee 00 0c |A | LEA.L (A6+0xc),A0 00024982 43 ee 00 08 |C | LEA.L (A6+0x8),A1 00024986 72 0c |r | MOVEQ.L #0x0c,D1 00024988 59 4f |YO | SUBQ.L #0x4,A7 0002498a 2f 10 |/ | MOVE.L (A0),-(A7) 0002498c 2f 11 |/ | MOVE.L (A1),-(A7) 0002498e 4e ba df c8 |N | JSR 0x22958 00024992 50 4f |PO | ADDQ.L #0x8,A7 00024994 2a 1f |* | MOVE.L (A7)+,D5 00024996 2f 05 |/ | MOVE.L D5,-(A7) 00024998 7c 01 || | MOVEQ.L #0x01,D6 0002499a bc 97 | | CMP.L (A7),D6 0002499c 6e 46 |nF | BGT 0x249e4 0002499e 55 4f |UO | SUBQ.L #0x2,A7 000249a0 2f 10 |/ | MOVE.L (A0),-(A7) 000249a2 2f 11 |/ | MOVE.L (A1),-(A7) 000249a4 2f 06 |/ | MOVE.L D6,-(A7) 000249a6 4e ba fb 9c |N | JSR 0x24544 000249aa de c1 | | ADDA.W D1,A7 000249ac 10 1f | | MOVE.B (A7)+,D0 000249ae 0c 00 00 2f | / | CMPI.B #0x2f,D0 000249b2 66 2c |f, | BNE 0x249e0 000249b4 2f 05 |/ | MOVE.L D5,-(A7) 000249b6 2e 06 |. | MOVE.L D6,D7 000249b8 be 97 | | CMP.L (A7),D7 000249ba 6e 1e |n | BGT 0x249da 000249bc 2f 2e 00 10 |/. | MOVE.L (A6+0x10),-(A7) 000249c0 55 4f |UO | SUBQ.L #0x2,A7 000249c2 2f 10 |/ | MOVE.L (A0),-(A7) 000249c4 2f 11 |/ | MOVE.L (A1),-(A7) 000249c6 2f 07 |/ | MOVE.L D7,-(A7) 000249c8 4e ba fb 7a |N z | JSR 0x24544 000249cc de c1 | | ADDA.W D1,A7 000249ce 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 000249d4 5c 4f |\O | ADDQ.L #0x6,A7 000249d6 52 87 |R | ADDQ.L #0x1,D7 000249d8 68 de |h | BVC 0x249b8 000249da 58 4f |XO | ADDQ.L #0x4,A7 000249dc 58 4f |XO | ADDQ.L #0x4,A7 000249de 60 06 |` | BRA 0x249e6 000249e0 52 86 |R | ADDQ.L #0x1,D6 000249e2 68 b6 |h | BVC 0x2499a 000249e4 58 4f |XO | ADDQ.L #0x4,A7 000249e6 4c df 03 e3 |L | MOVEM.L (A7)+,D0+D1+D5+D6+D7+A0+A1 000249ea 4e 5e |N^ | UNLK A6 000249ec 4e 75 |Nu | RTS 000249ee ; -------------------------------------------------------------------------------------- 000249ee ; OMSI PASCAL Function 000249ee ; <LVAR 0x010 4(r)> 000249ee ; <LVAR 0x00c 4(r)> 000249ee ; <LVAR 0x008 4(r)> 000249ee ; -------------------------------------------------------------------------------------- 000249ee 4e 56 ff ce |NV | LINK.W A6,#0xffce 000249f2 bf d5 | | CMPA.L (A5),A7 000249f4 62 06 |b | BHI 0x249fc 000249f6 44 fc 00 02 |D | MOVE.W #0x2,CCR 000249fa 4e 76 |Nv | TRAPV 000249fc de fc 00 2a | * | ADDA.W #0x2a,A7 00024a00 48 e7 03 80 |H | MOVEM.L A0+D7+D6,-(A7) 00024a04 20 6e 00 10 | n | MOVEA.L (A6+0x10),A0 00024a08 42 50 |BP | CLR.W (A0) 00024a0a 59 4f |YO | SUBQ.L #0x4,A7 00024a0c 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00024a10 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00024a14 4e ba df 42 |N B | JSR 0x22958 00024a18 50 4f |PO | ADDQ.L #0x8,A7 00024a1a 7e 01 |~ | MOVEQ.L #0x01,D7 00024a1c be 97 | | CMP.L (A7),D7 00024a1e 6e 34 |n4 | BGT 0x24a54 00024a20 55 4f |UO | SUBQ.L #0x2,A7 00024a22 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00024a26 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00024a2a 2f 07 |/ | MOVE.L D7,-(A7) 00024a2c 4e ba fb 16 |N | JSR 0x24544 00024a30 de fc 00 0c | | ADDA.W #0xc,A7 00024a34 1c 1f | | MOVE.B (A7)+,D6 00024a36 0c 06 00 2f | / | CMPI.B #0x2f,D6 00024a3a 67 10 |g | BEQ 0x24a4c 00024a3c 2f 2e 00 10 |/. | MOVE.L (A6+0x10),-(A7) 00024a40 1f 06 | | MOVE.B D6,-(A7) 00024a42 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00024a48 5c 4f |\O | ADDQ.L #0x6,A7 00024a4a 60 04 |` | BRA 0x24a50 00024a4c 58 4f |XO | ADDQ.L #0x4,A7 00024a4e 60 06 |` | BRA 0x24a56 00024a50 52 87 |R | ADDQ.L #0x1,D7 00024a52 68 c8 |h | BVC 0x24a1c 00024a54 58 4f |XO | ADDQ.L #0x4,A7 00024a56 4c df 01 c0 |L | MOVEM.L (A7)+,D6+D7+A0 00024a5a 4e 5e |N^ | UNLK A6 00024a5c 4e 75 |Nu | RTS 00024a5e ; -------------------------------------------------------------------------------------- 00024a5e ; OMSI PASCAL Function 00024a5e ; -------------------------------------------------------------------------------------- 00024a5e 4e 56 ff c6 |NV | LINK.W A6,#0xffc6 00024a62 bf d5 | | CMPA.L (A5),A7 00024a64 62 06 |b | BHI 0x24a6c 00024a66 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024a6a 4e 76 |Nv | TRAPV 00024a6c de fc 00 3a | : | ADDA.W #0x3a,A7 00024a70 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 00024a74 41 fa cf b6 |A | LEA.L 0x21a2c,A0 00024a78 70 10 |p | MOVEQ.L #0x10,D0 00024a7a 3f 20 |? | MOVE.W -(A0),-(A7) 00024a7c 51 c8 ff fc |Q | DBF D0,0x24a7a 00024a80 59 4f |YO | SUBQ.L #0x4,A7 00024a82 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00024a86 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00024a8a 3f 3c 00 22 |?< " | MOVE.W #0x22,-(A7) 00024a8e 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00024a94 50 4f |PO | ADDQ.L #0x8,A7 00024a96 4e ba d2 ae |N | JSR 0x21d46 00024a9a de fc 00 26 | & | ADDA.W #0x26,A7 00024a9e 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 00024aa2 4e 5e |N^ | UNLK A6 00024aa4 4e 75 |Nu | RTS 00024aa6 ; -------------------------------------------------------------------------------------- 00024aa6 ; OMSI PASCAL Function 00024aa6 ; <LVAR 0x00c 4(r)> 00024aa6 ; <LVAR 0x008 4(r)> 00024aa6 ; <LVAR -0x006 4(rw)> 00024aa6 ; -------------------------------------------------------------------------------------- 00024aa6 4e 56 ff a0 |NV | LINK.W A6,#0xffa0 00024aaa bf d5 | | CMPA.L (A5),A7 00024aac 62 06 |b | BHI 0x24ab4 00024aae 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024ab2 4e 76 |Nv | TRAPV 00024ab4 de fc 00 58 | X | ADDA.W #0x58,A7 00024ab8 48 e7 ff f0 |H | MOVEM.L A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00024abc 43 ee 00 0c |C | LEA.L (A6+0xc),A1 00024ac0 45 f9 00 02 78 50 |E xP | LEA.L 0x27850,A2 00024ac6 47 fa d3 1a |G | LEA.L 0x21de2,A3 00024aca 72 30 |r0 | MOVEQ.L #0x30,D1 00024acc 74 39 |t9 | MOVEQ.L #0x39,D2 00024ace 76 25 |v% | MOVEQ.L #0x25,D3 00024ad0 78 2d |x- | MOVEQ.L #0x2d,D4 00024ad2 2d 52 ff fa |-R | MOVE.L (A2),(A6-0x6) 00024ad6 55 4f |UO | SUBQ.L #0x2,A7 00024ad8 4e 93 |N | JSR (A3) 00024ada 1e 1f | | MOVE.B (A7)+,D7 00024adc be 03 | | CMP.B D3,D7 00024ade 66 08 |f | BNE 0x24ae8 00024ae0 20 51 | Q | MOVEA.L (A1),A0 00024ae2 42 90 |B | CLR.L (A0) 00024ae4 60 00 00 e2 |` | BRA 0x24bc8 00024ae8 be 04 | | CMP.B D4,D7 00024aea 66 0c |f | BNE 0x24af8 00024aec 20 51 | Q | MOVEA.L (A1),A0 00024aee 20 bc 00 00 00 01 | | MOVE.L #0x1,(A0) 00024af4 60 00 00 d2 |` | BRA 0x24bc8 00024af8 0c 07 00 2f | / | CMPI.B #0x2f,D7 00024afc 66 0c |f | BNE 0x24b0a 00024afe 20 51 | Q | MOVEA.L (A1),A0 00024b00 20 bc 00 00 00 04 | | MOVE.L #0x4,(A0) 00024b06 60 00 00 c0 |` | BRA 0x24bc8 00024b0a 0c 07 00 3d | = | CMPI.B #0x3d,D7 00024b0e 66 0c |f | BNE 0x24b1c 00024b10 20 51 | Q | MOVEA.L (A1),A0 00024b12 20 bc 00 00 00 05 | | MOVE.L #0x5,(A0) 00024b18 60 00 00 ae |` | BRA 0x24bc8 00024b1c 0c 07 00 5c | \ | CMPI.B #0x5c,D7 00024b20 66 0c |f | BNE 0x24b2e 00024b22 20 51 | Q | MOVEA.L (A1),A0 00024b24 20 bc 00 00 00 06 | | MOVE.L #0x6,(A0) 00024b2a 60 00 00 9c |` | BRA 0x24bc8 00024b2e 4a 07 |J | TST.B D7 00024b30 66 2c |f, | BNE 0x24b5e 00024b32 41 fa cf 10 |A | LEA.L 0x21a44,A0 00024b36 70 05 |p | MOVEQ.L #0x05,D0 00024b38 2f 20 |/ | MOVE.L -(A0),-(A7) 00024b3a 51 c8 ff fc |Q | DBF D0,0x24b38 00024b3e 59 4f |YO | SUBQ.L #0x4,A7 00024b40 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00024b44 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00024b48 3f 3c 00 18 |?< | MOVE.W #0x18,-(A7) 00024b4c 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00024b52 50 4f |PO | ADDQ.L #0x8,A7 00024b54 4e ba d1 f0 |N | JSR 0x21d46 00024b58 de fc 00 1c | | ADDA.W #0x1c,A7 00024b5c 60 6a |`j | BRA 0x24bc8 00024b5e be 01 | | CMP.B D1,D7 00024b60 65 2c |e, | BCS 0x24b8e 00024b62 be 02 | | CMP.B D2,D7 00024b64 62 28 |b( | BHI 0x24b8e 00024b66 20 51 | Q | MOVEA.L (A1),A0 00024b68 20 bc 00 00 00 02 | | MOVE.L #0x2,(A0) 00024b6e 55 4f |UO | SUBQ.L #0x2,A7 00024b70 4e ba d2 32 |N 2 | JSR 0x21da4 00024b74 1e 1f | | MOVE.B (A7)+,D7 00024b76 be 01 | | CMP.B D1,D7 00024b78 65 0a |e | BCS 0x24b84 00024b7a be 02 | | CMP.B D2,D7 00024b7c 62 06 |b | BHI 0x24b84 00024b7e 55 4f |UO | SUBQ.L #0x2,A7 00024b80 4e 93 |N | JSR (A3) 00024b82 1c 1f | | MOVE.B (A7)+,D6 00024b84 be 01 | | CMP.B D1,D7 00024b86 65 04 |e | BCS 0x24b8c 00024b88 be 02 | | CMP.B D2,D7 00024b8a 63 e2 |c | BLS 0x24b6e 00024b8c 60 3a |`: | BRA 0x24bc8 00024b8e 20 51 | Q | MOVEA.L (A1),A0 00024b90 20 bc 00 00 00 03 | | MOVE.L #0x3,(A0) 00024b96 7a 00 |z | MOVEQ.L #0x00,D5 00024b98 55 4f |UO | SUBQ.L #0x2,A7 00024b9a 4e ba d2 08 |N | JSR 0x21da4 00024b9e 1e 1f | | MOVE.B (A7)+,D7 00024ba0 be 03 | | CMP.B D3,D7 00024ba2 67 16 |g | BEQ 0x24bba 00024ba4 be 04 | | CMP.B D4,D7 00024ba6 67 12 |g | BEQ 0x24bba 00024ba8 0c 07 00 2f | / | CMPI.B #0x2f,D7 00024bac 67 0c |g | BEQ 0x24bba 00024bae 0c 07 00 3d | = | CMPI.B #0x3d,D7 00024bb2 67 06 |g | BEQ 0x24bba 00024bb4 0c 07 00 5c | \ | CMPI.B #0x5c,D7 00024bb8 66 04 |f | BNE 0x24bbe 00024bba 7a 01 |z | MOVEQ.L #0x01,D5 00024bbc 60 06 |` | BRA 0x24bc4 00024bbe 55 4f |UO | SUBQ.L #0x2,A7 00024bc0 4e 93 |N | JSR (A3) 00024bc2 1c 1f | | MOVE.B (A7)+,D6 00024bc4 4a 05 |J | TST.B D5 00024bc6 67 d0 |g | BEQ 0x24b98 00024bc8 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00024bcc 20 ae ff fa | | MOVE.L (A6-0x6),(A0) 00024bd0 21 52 00 04 |!R | MOVE.L (A2),(A0+0x4) 00024bd4 53 a8 00 04 |S | SUBQ.L #0x1,(A0+0x4) 00024bd8 4c df 0f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3 00024bdc 4e 5e |N^ | UNLK A6 00024bde 4e 75 |Nu | RTS 00024be0 ; -------------------------------------------------------------------------------------- 00024be0 ; OMSI PASCAL Function 00024be0 ; <LVAR 0x00c 4(r)> 00024be0 ; <LVAR 0x008 4(r)> 00024be0 ; -------------------------------------------------------------------------------------- 00024be0 4e 56 ff c0 |NV | LINK.W A6,#0xffc0 00024be4 bf d5 | | CMPA.L (A5),A7 00024be6 62 06 |b | BHI 0x24bee 00024be8 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024bec 4e 76 |Nv | TRAPV 00024bee de fc 00 34 | 4 | ADDA.W #0x34,A7 00024bf2 48 e7 c7 e0 |H | MOVEM.L A2+A1+A0+D7+D6+D5+D1+D0,-(A7) 00024bf6 45 ee 00 0c |E | LEA.L (A6+0xc),A2 00024bfa 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00024bfe 2f 08 |/ | MOVE.L A0,-(A7) 00024c00 2c 39 00 02 78 50 |,9 xP | MOVE.L 0x27850,D6 00024c06 9c 92 | | SUB.L (A2),D6 00024c08 2a 12 |* | MOVE.L (A2),D5 00024c0a da 86 | | ADD.L D6,D5 00024c0c 30 10 |0 | MOVE.W (A0),D0 00024c0e 48 c0 |H | EXTW.L D0 00024c10 b0 86 | | CMP.L D6,D0 00024c12 67 0c |g | BEQ 0x24c20 00024c14 2f 05 |/ | MOVE.L D5,-(A7) 00024c16 2f 06 |/ | MOVE.L D6,-(A7) 00024c18 91 97 | | SUB.L D0,(A7) 00024c1a 4e ba d6 7e |N ~ | JSR 0x2229a 00024c1e 50 4f |PO | ADDQ.L #0x8,A7 00024c20 2f 00 |/ | MOVE.L D0,-(A7) 00024c22 7e 01 |~ | MOVEQ.L #0x01,D7 00024c24 be 97 | | CMP.L (A7),D7 00024c26 6e 34 |n4 | BGT 0x24c5c 00024c28 20 12 | | MOVE.L (A2),D0 00024c2a d0 87 | | ADD.L D7,D0 00024c2c 53 80 |S | SUBQ.L #0x1,D0 00024c2e 53 80 |S | SUBQ.L #0x1,D0 00024c30 0c 80 00 00 1f ff | | CMPI.L #0x00001fff,D0 00024c36 63 02 |c | BLS 0x24c3a 00024c38 4e 4f |NO | TRAP #15 00024c3a 41 f9 00 02 58 48 |A XH | LEA.L 0x25848,A0 00024c40 22 07 |" | MOVE.L D7,D1 00024c42 53 81 |S | SUBQ.L #0x1,D1 00024c44 0c 81 00 00 00 7d | } | CMPI.L #0x0000007d,D1 00024c4a 63 02 |c | BLS 0x24c4e 00024c4c 4e 4f |NO | TRAP #15 00024c4e 22 6f 00 04 |"o | MOVEA.L (A7+0x4),A1 00024c52 11 b1 18 02 08 08 | | MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x8) 00024c58 52 87 |R | ADDQ.L #0x1,D7 00024c5a 68 c8 |h | BVC 0x24c24 00024c5c 50 4f |PO | ADDQ.L #0x8,A7 00024c5e 4c df 07 e3 |L | MOVEM.L (A7)+,D0+D1+D5+D6+D7+A0+A1+A2 00024c62 4e 5e |N^ | UNLK A6 00024c64 4e 75 |Nu | RTS 00024c66 ; -------------------------------------------------------------------------------------- 00024c66 ; OMSI PASCAL Function 00024c66 ; <LVAR 0x00c 4(r)> 00024c66 ; <LVAR 0x008 4(r)> 00024c66 ; <LVAR -0x008 @ 4(r)> 00024c66 ; <LVAR -0x00c @ 4(r)> 00024c66 ; <LVAR -0x010 4(r)> 00024c66 ; <LVAR -0x014 @ 4(r)> 00024c66 ; <LVAR -0x018 4(rw)> 00024c66 ; <LVAR -0x01c 4(rw)> 00024c66 ; <LVAR -0x020 4(rw)> 00024c66 ; <LVAR -0x024 4(rw)> 00024c66 ; <LVAR -0x028 4(rw)> 00024c66 ; <LVAR -0x034 4(rw)> 00024c66 ; -------------------------------------------------------------------------------------- 00024c66 4e 56 ff 70 |NV p | LINK.W A6,#0xff70 00024c6a bf d5 | | CMPA.L (A5),A7 00024c6c 62 06 |b | BHI 0x24c74 00024c6e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024c72 4e 76 |Nv | TRAPV 00024c74 de fc 00 5c | \ | ADDA.W #0x5c,A7 00024c78 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00024c7c 43 ee ff f8 |C | LEA.L (A6-0x8),A1 00024c80 45 ee ff ec |E | LEA.L (A6-0x14),A2 00024c84 47 ee ff dc |G | LEA.L (A6-0x24),A3 00024c88 49 ee ff e0 |I | LEA.L (A6-0x20),A4 00024c8c 74 14 |t | MOVEQ.L #0x14,D2 00024c8e 2d 79 00 02 78 50 ff d8 |-y xP | MOVE.L 0x27850,(A6-0x28) 00024c96 48 51 |HQ | PEA.L (A1) 00024c98 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00024c9e 58 4f |XO | ADDQ.L #0x4,A7 00024ca0 48 6e ff f4 |Hn | PEA.L (A6-0xc) 00024ca4 48 52 |HR | PEA.L (A2) 00024ca6 4e ba fd fe |N | JSR 0x24aa6 00024caa 50 4f |PO | ADDQ.L #0x8,A7 00024cac 42 ae ff cc |B | CLR.L (A6-0x34) 00024cb0 7e 00 |~ | MOVEQ.L #0x00,D7 00024cb2 20 2e ff cc | . | MOVE.L (A6-0x34),D0 00024cb6 b0 82 | | CMP.L D2,D0 00024cb8 63 02 |c | BLS 0x24cbc 00024cba 4e 4e |NN | TRAP #14 00024cbc d0 40 | @ | ADD.W D0,D0 00024cbe 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 00024cc6 00 2a | * | .CONST 0x2a ; [0x0] -> 0x24cf0 00024cc8 00 34 | 4 | .CONST 0x34 ; [0x1] -> 0x24cfa 00024cca 00 48 | H | .CONST 0x48 ; [0x2] -> 0x24d0e 00024ccc 00 64 | d | .CONST 0x64 ; [0x3] -> 0x24d2a 00024cce 00 68 | h | .CONST 0x68 ; [0x4] -> 0x24d2e 00024cd0 00 76 | v | .CONST 0x76 ; [0x5] -> 0x24d3c 00024cd2 00 8a | | .CONST 0x8a ; [0x6] -> 0x24d50 00024cd4 00 90 | | .CONST 0x90 ; [0x7] -> 0x24d56 00024cd6 00 92 | | .CONST 0x92 ; [0x8] -> 0x24d58 00024cd8 00 a8 | | .CONST 0xa8 ; [0x9] -> 0x24d6e 00024cda 00 b6 | | .CONST 0xb6 ; [0xa] -> 0x24d7c 00024cdc 00 ce | | .CONST 0xce ; [0xb] -> 0x24d94 00024cde 00 e2 | | .CONST 0xe2 ; [0xc] -> 0x24da8 00024ce0 00 f6 | | .CONST 0xf6 ; [0xd] -> 0x24dbc 00024ce2 01 0c | | .CONST 0x10c ; [0xe] -> 0x24dd2 00024ce4 01 0e | | .CONST 0x10e ; [0xf] -> 0x24dd4 00024ce6 01 28 | ( | .CONST 0x128 ; [0x10] -> 0x24dee 00024ce8 01 3e | > | .CONST 0x13e ; [0x11] -> 0x24e04 00024cea 01 4c | L | .CONST 0x14c ; [0x12] -> 0x24e12 00024cec 01 4e | N | .CONST 0x14e ; [0x13] -> 0x24e14 00024cee 01 50 | P | .CONST 0x150 ; [0x14] -> 0x24e16 00024cf0 switch@0x24cbe[0x0]: 00024cf0 7c 00 || | MOVEQ.L #0x00,D6 00024cf2 2a 2e 00 08 |*. | MOVE.L (A6+0x8),D5 00024cf6 60 00 01 48 |` H | BRA 0x24e40 00024cfa switch@0x24cbe[0x1]: 00024cfa 59 4f |YO | SUBQ.L #0x4,A7 00024cfc 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7) 00024d00 2f 12 |/ | MOVE.L (A2),-(A7) 00024d02 4e ba f8 80 |N | JSR 0x24584 00024d06 50 4f |PO | ADDQ.L #0x8,A7 00024d08 2c 1f |, | MOVE.L (A7)+,D6 00024d0a 60 00 01 34 |` 4 | BRA 0x24e40 00024d0e switch@0x24cbe[0x2]: 00024d0e 2f 2e ff d8 |/. | MOVE.L (A6-0x28),-(A7) 00024d12 2f 06 |/ | MOVE.L D6,-(A7) 00024d14 2f 06 |/ | MOVE.L D6,-(A7) 00024d16 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00024d1a 4e ba f8 e4 |N | JSR 0x24600 00024d1e de fc 00 10 | | ADDA.W #0x10,A7 00024d22 60 00 01 78 |` x | BRA 0x24e9c 00024d26 60 00 |` | .XXX[0x2] 00024d28 01 18 | | .XXX[0x2] 00024d2a switch@0x24cbe[0x3]: 00024d2a 60 00 01 14 |` | BRA 0x24e40 00024d2e switch@0x24cbe[0x4]: 00024d2e 2f 2e ff d8 |/. | MOVE.L (A6-0x28),-(A7) 00024d32 2f 06 |/ | MOVE.L D6,-(A7) 00024d34 2f 05 |/ | MOVE.L D5,-(A7) 00024d36 60 de |` | BRA 0x24d16 00024d38 60 00 01 06 |` | .XXX[0x4] 00024d3c switch@0x24cbe[0x5]: 00024d3c 59 4f |YO | SUBQ.L #0x4,A7 00024d3e 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7) 00024d42 2f 12 |/ | MOVE.L (A2),-(A7) 00024d44 4e ba f8 3e |N > | JSR 0x24584 00024d48 50 4f |PO | ADDQ.L #0x8,A7 00024d4a 2a 1f |* | MOVE.L (A7)+,D5 00024d4c 60 00 00 f2 |` | BRA 0x24e40 00024d50 switch@0x24cbe[0x6]: 00024d50 7c 01 || | MOVEQ.L #0x01,D6 00024d52 60 00 00 ec |` | BRA 0x24e40 00024d56 switch@0x24cbe[0x7]: 00024d56 60 e4 |` | BRA switch@0x24cbe[0x5] 00024d58 switch@0x24cbe[0x8]: 00024d58 51 4f |QO | SUBQ.L #0x8,A7 00024d5a 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00024d5e 2f 06 |/ | MOVE.L D6,-(A7) 00024d60 4e ba dc 2e |N . | JSR 0x22990 00024d64 50 4f |PO | ADDQ.L #0x8,A7 00024d66 26 9f |& | MOVE.L (A7)+,(A3) 00024d68 28 9f |( | MOVE.L (A7)+,(A4) 00024d6a 60 00 00 d4 |` | BRA 0x24e40 00024d6e switch@0x24cbe[0x9]: 00024d6e 2d 52 ff e4 |-R | MOVE.L (A2),(A6-0x1c) 00024d72 2d 6e ff f0 ff e8 |-n | MOVE.L (A6-0x10),(A6-0x18) 00024d78 60 00 00 c6 |` | BRA 0x24e40 00024d7c switch@0x24cbe[0xa]: 00024d7c 2f 11 |/ | MOVE.L (A1),-(A7) 00024d7e 2f 14 |/ | MOVE.L (A4),-(A7) 00024d80 2f 13 |/ | MOVE.L (A3),-(A7) 00024d82 2f 2e ff e8 |/. | MOVE.L (A6-0x18),-(A7) 00024d86 2f 2e ff e4 |/. | MOVE.L (A6-0x1c),-(A7) 00024d8a 4e ba fb 26 |N & | JSR 0x248b2 00024d8e de c2 | | ADDA.W D2,A7 00024d90 60 00 00 ae |` | BRA 0x24e40 00024d94 switch@0x24cbe[0xb]: 00024d94 2f 11 |/ | MOVE.L (A1),-(A7) 00024d96 2f 14 |/ | MOVE.L (A4),-(A7) 00024d98 2f 13 |/ | MOVE.L (A3),-(A7) 00024d9a 2f 2e ff e8 |/. | MOVE.L (A6-0x18),-(A7) 00024d9e 2f 2e ff e4 |/. | MOVE.L (A6-0x1c),-(A7) 00024da2 4e ba fa 7a |N z | JSR 0x2481e 00024da6 60 e6 |` | BRA 0x24d8e 00024da8 switch@0x24cbe[0xc]: 00024da8 2f 11 |/ | MOVE.L (A1),-(A7) 00024daa 2f 14 |/ | MOVE.L (A4),-(A7) 00024dac 2f 13 |/ | MOVE.L (A3),-(A7) 00024dae 4e ba fb b8 |N | JSR 0x24968 00024db2 de fc 00 0c | | ADDA.W #0xc,A7 00024db6 7e 01 |~ | MOVEQ.L #0x01,D7 00024db8 60 00 00 86 |` | BRA 0x24e40 00024dbc switch@0x24cbe[0xd]: 00024dbc 2f 11 |/ | MOVE.L (A1),-(A7) 00024dbe 2f 14 |/ | MOVE.L (A4),-(A7) 00024dc0 2f 13 |/ | MOVE.L (A3),-(A7) 00024dc2 2f 2e ff e8 |/. | MOVE.L (A6-0x18),-(A7) 00024dc6 2f 2e ff e4 |/. | MOVE.L (A6-0x1c),-(A7) 00024dca 4e ba fa 52 |N R | JSR 0x2481e 00024dce de c2 | | ADDA.W D2,A7 00024dd0 60 e4 |` | BRA 0x24db6 00024dd2 switch@0x24cbe[0xe]: 00024dd2 60 e2 |` | BRA 0x24db6 00024dd4 switch@0x24cbe[0xf]: 00024dd4 2f 11 |/ | MOVE.L (A1),-(A7) 00024dd6 51 4f |QO | SUBQ.L #0x8,A7 00024dd8 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00024ddc 2f 06 |/ | MOVE.L D6,-(A7) 00024dde 4e ba db b0 |N | JSR 0x22990 00024de2 50 4f |PO | ADDQ.L #0x8,A7 00024de4 4e ba fb 82 |N | JSR 0x24968 00024de8 de fc 00 0c | | ADDA.W #0xc,A7 00024dec 60 52 |`R | BRA 0x24e40 00024dee switch@0x24cbe[0x10]: 00024dee 2f 11 |/ | MOVE.L (A1),-(A7) 00024df0 51 4f |QO | SUBQ.L #0x8,A7 00024df2 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00024df6 2f 06 |/ | MOVE.L D6,-(A7) 00024df8 4e ba db 96 |N | JSR 0x22990 00024dfc 50 4f |PO | ADDQ.L #0x8,A7 00024dfe 4e ba fb ee |N | JSR 0x249ee 00024e02 60 ae |` | BRA 0x24db2 00024e04 switch@0x24cbe[0x11]: 00024e04 2f 11 |/ | MOVE.L (A1),-(A7) 00024e06 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7) 00024e0a 2f 12 |/ | MOVE.L (A2),-(A7) 00024e0c 4e ba fc 50 |N P | JSR 0x24a5e 00024e10 60 d6 |` | BRA 0x24de8 00024e12 switch@0x24cbe[0x12]: 00024e12 60 2c |`, | BRA 0x24e40 00024e14 switch@0x24cbe[0x13]: 00024e14 60 a0 |` | BRA 0x24db6 00024e16 switch@0x24cbe[0x14]: 00024e16 41 fa cc 44 |A D | LEA.L 0x21a5c,A0 00024e1a 70 05 |p | MOVEQ.L #0x05,D0 00024e1c 2f 20 |/ | MOVE.L -(A0),-(A7) 00024e1e 51 c8 ff fc |Q | DBF D0,0x24e1c 00024e22 59 4f |YO | SUBQ.L #0x4,A7 00024e24 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00024e28 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00024e2c 3f 3c 00 18 |?< | MOVE.W #0x18,-(A7) 00024e30 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00024e36 50 4f |PO | ADDQ.L #0x8,A7 00024e38 4e ba cf 0c |N | JSR 0x21d46 00024e3c de fc 00 1c | | ADDA.W #0x1c,A7 00024e40 4a 07 |J | TST.B D7 00024e42 66 46 |fF | BNE 0x24e8a 00024e44 48 6e ff f4 |Hn | PEA.L (A6-0xc) 00024e48 48 52 |HR | PEA.L (A2) 00024e4a 4e ba fc 5a |N Z | JSR 0x24aa6 00024e4e 50 4f |PO | ADDQ.L #0x8,A7 00024e50 20 2e ff cc | . | MOVE.L (A6-0x34),D0 00024e54 0c 80 00 00 00 13 | | CMPI.L #0x00000013,D0 00024e5a 63 02 |c | BLS 0x24e5e 00024e5c 4e 4f |NO | TRAP #15 00024e5e 28 00 |( | MOVE.L D0,D4 00024e60 76 07 |v | MOVEQ.L #0x07,D3 00024e62 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4 00024e68 41 fa ce 0e |A | LEA.L 0x21c78,A0 00024e6c 20 2e ff f4 | . | MOVE.L (A6-0xc),D0 00024e70 0c 80 00 00 00 06 | | CMPI.L #0x00000006,D0 00024e76 63 02 |c | BLS 0x24e7a 00024e78 4e 4f |NO | TRAP #15 00024e7a 41 f0 48 00 |A H | LEA.L (A0+D4.L),A0 00024e7e 12 30 08 00 | 0 | MOVE.B (A0+D0.L),D1 00024e82 48 81 |H | EXTB.W D1 00024e84 48 c1 |H | EXTW.L D1 00024e86 2d 41 ff cc |-A | MOVE.L D1,(A6-0x34) 00024e8a 4a 07 |J | TST.B D7 00024e8c 67 00 fe 24 |g $ | BEQ 0x24cb2 00024e90 2f 2e ff d8 |/. | MOVE.L (A6-0x28),-(A7) 00024e94 2f 11 |/ | MOVE.L (A1),-(A7) 00024e96 4e ba fd 48 |N H | JSR 0x24be0 00024e9a 50 4f |PO | ADDQ.L #0x8,A7 00024e9c 48 51 |HQ | PEA.L (A1) 00024e9e 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00024ea4 58 4f |XO | ADDQ.L #0x4,A7 00024ea6 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00024eaa 4e 5e |N^ | UNLK A6 00024eac 4e 75 |Nu | RTS 00024eae ; -------------------------------------------------------------------------------------- 00024eae ; OMSI PASCAL Function 00024eae ; <LVAR 0x014 4(rw)> 00024eae ; <LVAR 0x010 4(r)> 00024eae ; <LVAR 0x00c 4(r)> 00024eae ; <LVAR 0x008 4(r)> 00024eae ; <LVAR -0x008 4(rw)> 00024eae ; <LVAR -0x00c 4(rw)> 00024eae ; <LVAR -0x018 4(w)> 00024eae ; -------------------------------------------------------------------------------------- 00024eae 4e 56 ff 96 |NV | LINK.W A6,#0xff96 00024eb2 bf d5 | | CMPA.L (A5),A7 00024eb4 62 06 |b | BHI 0x24ebc 00024eb6 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024eba 4e 76 |Nv | TRAPV 00024ebc de fc 00 52 | R | ADDA.W #0x52,A7 00024ec0 48 e7 e7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7) 00024ec4 43 ee ff f8 |C | LEA.L (A6-0x8),A1 00024ec8 45 ee 00 10 |E | LEA.L (A6+0x10),A2 00024ecc 47 ee 00 0c |G | LEA.L (A6+0xc),A3 00024ed0 49 ee ff f4 |I | LEA.L (A6-0xc),A4 00024ed4 74 0c |t | MOVEQ.L #0x0c,D2 00024ed6 42 ae 00 14 |B | CLR.L (A6+0x14) 00024eda 59 4f |YO | SUBQ.L #0x4,A7 00024edc 2f 12 |/ | MOVE.L (A2),-(A7) 00024ede 2f 13 |/ | MOVE.L (A3),-(A7) 00024ee0 4e ba da 76 |N v | JSR 0x22958 00024ee4 50 4f |PO | ADDQ.L #0x8,A7 00024ee6 28 9f |( | MOVE.L (A7)+,(A4) 00024ee8 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00024eec 30 10 |0 | MOVE.W (A0),D0 00024eee 48 c0 |H | EXTW.L D0 00024ef0 52 80 |R | ADDQ.L #0x1,D0 00024ef2 22 80 |" | MOVE.L D0,(A1) 00024ef4 44 80 |D | NEG.L D0 00024ef6 d0 94 | | ADD.L (A4),D0 00024ef8 52 80 |R | ADDQ.L #0x1,D0 00024efa 2f 00 |/ | MOVE.L D0,-(A7) 00024efc 70 01 |p | MOVEQ.L #0x01,D0 00024efe b0 97 | | CMP.L (A7),D0 00024f00 6e 00 00 9a |n | BGT 0x24f9c 00024f04 2d 40 ff e8 |-@ | MOVE.L D0,(A6-0x18) 00024f08 2f 00 |/ | MOVE.L D0,-(A7) 00024f0a 7c 00 || | MOVEQ.L #0x00,D6 00024f0c 2f 11 |/ | MOVE.L (A1),-(A7) 00024f0e 7a 01 |z | MOVEQ.L #0x01,D5 00024f10 ba 97 | | CMP.L (A7),D5 00024f12 6e 48 |nH | BGT 0x24f5c 00024f14 0c 85 00 00 00 01 | | CMPI.L #0x00000001,D5 00024f1a 66 04 |f | BNE 0x24f20 00024f1c 7e 2f |~/ | MOVEQ.L #0x2f,D7 00024f1e 60 18 |` | BRA 0x24f38 00024f20 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00024f24 20 05 | | MOVE.L D5,D0 00024f26 53 80 |S | SUBQ.L #0x1,D0 00024f28 53 80 |S | SUBQ.L #0x1,D0 00024f2a 0c 80 00 00 00 7d | } | CMPI.L #0x0000007d,D0 00024f30 63 02 |c | BLS 0x24f34 00024f32 4e 4f |NO | TRAP #15 00024f34 1e 30 08 02 | 0 | MOVE.B (A0+D0.L+#0x2),D7 00024f38 55 4f |UO | SUBQ.L #0x2,A7 00024f3a 2f 12 |/ | MOVE.L (A2),-(A7) 00024f3c 2f 13 |/ | MOVE.L (A3),-(A7) 00024f3e 20 2f 00 0e | / | MOVE.L (A7+0xe),D0 00024f42 d0 85 | | ADD.L D5,D0 00024f44 53 80 |S | SUBQ.L #0x1,D0 00024f46 2f 00 |/ | MOVE.L D0,-(A7) 00024f48 4e ba f5 fa |N | JSR 0x24544 00024f4c de c2 | | ADDA.W D2,A7 00024f4e be 1f | | CMP.B (A7)+,D7 00024f50 67 04 |g | BEQ 0x24f56 00024f52 58 4f |XO | ADDQ.L #0x4,A7 00024f54 60 08 |` | BRA 0x24f5e 00024f56 2c 05 |, | MOVE.L D5,D6 00024f58 52 85 |R | ADDQ.L #0x1,D5 00024f5a 68 b4 |h | BVC 0x24f10 00024f5c 58 4f |XO | ADDQ.L #0x4,A7 00024f5e bc 91 | | CMP.L (A1),D6 00024f60 66 32 |f2 | BNE 0x24f94 00024f62 20 17 | | MOVE.L (A7),D0 00024f64 22 00 |" | MOVE.L D0,D1 00024f66 d2 91 | | ADD.L (A1),D1 00024f68 b2 94 | | CMP.L (A4),D1 00024f6a 6c 26 |l& | BGE 0x24f92 00024f6c 55 4f |UO | SUBQ.L #0x2,A7 00024f6e 2f 12 |/ | MOVE.L (A2),-(A7) 00024f70 2f 13 |/ | MOVE.L (A3),-(A7) 00024f72 2f 01 |/ | MOVE.L D1,-(A7) 00024f74 4e ba f5 ce |N | JSR 0x24544 00024f78 de c2 | | ADDA.W D2,A7 00024f7a 1e 1f | | MOVE.B (A7)+,D7 00024f7c 0c 07 00 2f | / | CMPI.B #0x2f,D7 00024f80 67 06 |g | BEQ 0x24f88 00024f82 0c 07 00 3d | = | CMPI.B #0x3d,D7 00024f86 66 08 |f | BNE 0x24f90 00024f88 2d 40 00 14 |-@ | MOVE.L D0,(A6+0x14) 00024f8c 50 4f |PO | ADDQ.L #0x8,A7 00024f8e 60 0e |` | BRA 0x24f9e 00024f90 60 02 |` | BRA 0x24f94 00024f92 60 f4 |` | BRA 0x24f88 00024f94 20 1f | | MOVE.L (A7)+,D0 00024f96 52 80 |R | ADDQ.L #0x1,D0 00024f98 68 00 ff 64 |h d | BVC 0x24efe 00024f9c 58 4f |XO | ADDQ.L #0x4,A7 00024f9e 4c df 1f e7 |L | MOVEM.L (A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3+A4 00024fa2 4e 5e |N^ | UNLK A6 00024fa4 4e 75 |Nu | RTS 00024fa6 ; -------------------------------------------------------------------------------------- 00024fa6 ; OMSI PASCAL Function 00024fa6 ; <LVAR 0x018 4(r)> 00024fa6 ; <LVAR 0x014 4(r)> 00024fa6 ; <LVAR 0x010 4(r)> 00024fa6 ; <LVAR 0x00c 4(r)> 00024fa6 ; <LVAR 0x008 4(r)> 00024fa6 ; <LVAR -0x008 4(rw)> 00024fa6 ; <LVAR -0x014 4(rw)> 00024fa6 ; <LVAR -0x018 4(rw)> 00024fa6 ; <LVAR -0x01c 4(rw)> 00024fa6 ; -------------------------------------------------------------------------------------- 00024fa6 4e 56 ff 8e |NV | LINK.W A6,#0xff8e 00024faa bf d5 | | CMPA.L (A5),A7 00024fac 62 06 |b | BHI 0x24fb4 00024fae 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024fb2 4e 76 |Nv | TRAPV 00024fb4 de fc 00 56 | V | ADDA.W #0x56,A7 00024fb8 48 e7 e7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7) 00024fbc 45 ee ff e4 |E | LEA.L (A6-0x1c),A2 00024fc0 47 ee ff e8 |G | LEA.L (A6-0x18),A3 00024fc4 49 ee ff f8 |I | LEA.L (A6-0x8),A4 00024fc8 72 0c |r | MOVEQ.L #0x0c,D1 00024fca 74 01 |t | MOVEQ.L #0x01,D2 00024fcc 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00024fd0 42 10 |B | CLR.B (A0) 00024fd2 22 6e 00 0c |"n | MOVEA.L (A6+0xc),A1 00024fd6 22 82 |" | MOVE.L D2,(A1) 00024fd8 51 4f |QO | SUBQ.L #0x8,A7 00024fda 2f 2e 00 18 |/. | MOVE.L (A6+0x18),-(A7) 00024fde 2f 2e 00 14 |/. | MOVE.L (A6+0x14),-(A7) 00024fe2 4e ba d9 ac |N | JSR 0x22990 00024fe6 50 4f |PO | ADDQ.L #0x8,A7 00024fe8 24 9f |$ | MOVE.L (A7)+,(A2) 00024fea 26 9f |& | MOVE.L (A7)+,(A3) 00024fec 4a 92 |J | TST.L (A2) 00024fee 67 00 00 96 |g | BEQ 0x25086 00024ff2 59 4f |YO | SUBQ.L #0x4,A7 00024ff4 2f 13 |/ | MOVE.L (A3),-(A7) 00024ff6 2f 12 |/ | MOVE.L (A2),-(A7) 00024ff8 2f 2e 00 10 |/. | MOVE.L (A6+0x10),-(A7) 00024ffc 4e ba fe b0 |N | JSR 0x24eae 00025000 de c1 | | ADDA.W D1,A7 00025002 2d 5f ff ec |-_ | MOVE.L (A7)+,(A6-0x14) 00025006 67 7e |g~ | BEQ 0x25086 00025008 10 82 | | MOVE.B D2,(A0) 0002500a 48 51 |HQ | PEA.L (A1) 0002500c 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00025012 2f 13 |/ | MOVE.L (A3),-(A7) 00025014 2f 12 |/ | MOVE.L (A2),-(A7) 00025016 4e ba d9 40 |N @ | JSR 0x22958 0002501a 50 4f |PO | ADDQ.L #0x8,A7 0002501c 28 9f |( | MOVE.L (A7)+,(A4) 0002501e 20 2e ff ec | . | MOVE.L (A6-0x14),D0 00025022 52 80 |R | ADDQ.L #0x1,D0 00025024 2f 14 |/ | MOVE.L (A4),-(A7) 00025026 2a 00 |* | MOVE.L D0,D5 00025028 ba 97 | | CMP.L (A7),D5 0002502a 6e 58 |nX | BGT 0x25084 0002502c 55 4f |UO | SUBQ.L #0x2,A7 0002502e 2f 13 |/ | MOVE.L (A3),-(A7) 00025030 2f 12 |/ | MOVE.L (A2),-(A7) 00025032 2f 05 |/ | MOVE.L D5,-(A7) 00025034 4e ba f5 0e |N | JSR 0x24544 00025038 de c1 | | ADDA.W D1,A7 0002503a 10 1f | | MOVE.B (A7)+,D0 0002503c 0c 00 00 3d | = | CMPI.B #0x3d,D0 00025040 66 3e |f> | BNE 0x25080 00025042 20 05 | | MOVE.L D5,D0 00025044 52 80 |R | ADDQ.L #0x1,D0 00025046 2f 14 |/ | MOVE.L (A4),-(A7) 00025048 2e 00 |. | MOVE.L D0,D7 0002504a be 97 | | CMP.L (A7),D7 0002504c 6e 2e |n. | BGT 0x2507c 0002504e 55 4f |UO | SUBQ.L #0x2,A7 00025050 2f 13 |/ | MOVE.L (A3),-(A7) 00025052 2f 12 |/ | MOVE.L (A2),-(A7) 00025054 2f 07 |/ | MOVE.L D7,-(A7) 00025056 4e ba f4 ec |N | JSR 0x24544 0002505a de c1 | | ADDA.W D1,A7 0002505c 1c 1f | | MOVE.B (A7)+,D6 0002505e 0c 06 00 2f | / | CMPI.B #0x2f,D6 00025062 66 04 |f | BNE 0x25068 00025064 50 4f |PO | ADDQ.L #0x8,A7 00025066 60 1e |` | BRA 0x25086 00025068 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 0002506c 2f 10 |/ | MOVE.L (A0),-(A7) 0002506e 1f 06 | | MOVE.B D6,-(A7) 00025070 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00025076 5c 4f |\O | ADDQ.L #0x6,A7 00025078 52 87 |R | ADDQ.L #0x1,D7 0002507a 68 ce |h | BVC 0x2504a 0002507c 50 4f |PO | ADDQ.L #0x8,A7 0002507e 60 06 |` | BRA 0x25086 00025080 52 85 |R | ADDQ.L #0x1,D5 00025082 68 a4 |h | BVC 0x25028 00025084 58 4f |XO | ADDQ.L #0x4,A7 00025086 4c df 1f e7 |L | MOVEM.L (A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3+A4 0002508a 4e 5e |N^ | UNLK A6 0002508c 4e 75 |Nu | RTS 0002508e ; -------------------------------------------------------------------------------------- 0002508e ; OMSI PASCAL Function 0002508e ; <LVAR 0x00c @ 4(r)> 0002508e ; <LVAR 0x008 4(r)> 0002508e ; <LVAR -0x010 @ 1(r)> 0002508e ; -------------------------------------------------------------------------------------- 0002508e 4e 56 ff c0 |NV | LINK.W A6,#0xffc0 00025092 bf d5 | | CMPA.L (A5),A7 00025094 62 06 |b | BHI 0x2509c 00025096 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002509a 4e 76 |Nv | TRAPV 0002509c de fc 00 30 | 0 | ADDA.W #0x30,A7 000250a0 48 e7 87 f0 |H | MOVEM.L A3+A2+A1+A0+D7+D6+D5+D0,-(A7) 000250a4 43 f9 00 02 78 50 |C xP | LEA.L 0x27850,A1 000250aa 45 ee 00 08 |E | LEA.L (A6+0x8),A2 000250ae 47 ee 00 0c |G | LEA.L (A6+0xc),A3 000250b2 2f 13 |/ | MOVE.L (A3),-(A7) 000250b4 2f 12 |/ | MOVE.L (A2),-(A7) 000250b6 48 6e ff f0 |Hn | PEA.L (A6-0x10) 000250ba 4e b9 00 02 15 96 |N | JSR 0x21596 000250c0 de fc 00 0c | | ADDA.W #0xc,A7 000250c4 4a 2e ff f0 |J. | TST.B (A6-0x10) 000250c8 66 50 |fP | BNE 0x2511a 000250ca 2e 11 |. | MOVE.L (A1),D7 000250cc 59 4f |YO | SUBQ.L #0x4,A7 000250ce 2f 12 |/ | MOVE.L (A2),-(A7) 000250d0 4e ba d0 80 |N | JSR 0x22152 000250d4 58 4f |XO | ADDQ.L #0x4,A7 000250d6 2c 1f |, | MOVE.L (A7)+,D6 000250d8 2f 13 |/ | MOVE.L (A3),-(A7) 000250da 2f 12 |/ | MOVE.L (A2),-(A7) 000250dc 4e ba f3 2a |N * | JSR 0x24408 000250e0 50 4f |PO | ADDQ.L #0x8,A7 000250e2 2a 11 |* | MOVE.L (A1),D5 000250e4 20 07 | | MOVE.L D7,D0 000250e6 53 80 |S | SUBQ.L #0x1,D0 000250e8 0c 80 00 00 1f ff | | CMPI.L #0x00001fff,D0 000250ee 63 02 |c | BLS 0x250f2 000250f0 4e 4f |NO | TRAP #15 000250f2 41 f9 00 02 58 48 |A XH | LEA.L 0x25848,A0 000250f8 10 30 08 08 | 0 | MOVE.B (A0+D0.L+#0x8),D0 000250fc 0c 00 00 25 | % | CMPI.B #0x25,D0 00025100 66 0c |f | BNE 0x2510e 00025102 22 87 |" | MOVE.L D7,(A1) 00025104 2f 12 |/ | MOVE.L (A2),-(A7) 00025106 2f 06 |/ | MOVE.L D6,-(A7) 00025108 4e ba fb 5c |N \ | JSR 0x24c66 0002510c 50 4f |PO | ADDQ.L #0x8,A7 0002510e 52 87 |R | ADDQ.L #0x1,D7 00025110 be b9 00 02 78 54 | xT | CMP.L 0x27854,D7 00025116 6f cc |o | BLE 0x250e4 00025118 22 85 |" | MOVE.L D5,(A1) 0002511a 48 53 |HS | PEA.L (A3) 0002511c 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00025122 58 4f |XO | ADDQ.L #0x4,A7 00025124 4c df 0f e1 |L | MOVEM.L (A7)+,D0+D5+D6+D7+A0+A1+A2+A3 00025128 4e 5e |N^ | UNLK A6 0002512a 4e 75 |Nu | RTS 0002512c ; -------------------------------------------------------------------------------------- 0002512c ; OMSI PASCAL Function 0002512c ; <LVAR -0x006 @ 4(r)> 0002512c ; <LVAR -0x00a @ 4(rw)> 0002512c ; <LVAR -0x00b 1(w)> 0002512c ; <LVAR -0x00c @ 1(r)> 0002512c ; -------------------------------------------------------------------------------------- 0002512c 4e 56 ff 94 |NV | LINK.W A6,#0xff94 00025130 bf d5 | | CMPA.L (A5),A7 00025132 62 06 |b | BHI 0x2513a 00025134 44 fc 00 02 |D | MOVE.W #0x2,CCR 00025138 4e 76 |Nv | TRAPV 0002513a de fc 00 54 | T | ADDA.W #0x54,A7 0002513e 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00025142 45 ee ff fa |E | LEA.L (A6-0x6),A2 00025146 47 f9 00 02 78 50 |G xP | LEA.L 0x27850,A3 0002514c 49 ee ff f6 |I | LEA.L (A6-0xa),A4 00025150 2e 13 |. | MOVE.L (A3),D7 00025152 48 52 |HR | PEA.L (A2) 00025154 48 6e ff f4 |Hn | PEA.L (A6-0xc) 00025158 4e ba cf 4c |N L | JSR 0x220a6 0002515c 50 4f |PO | ADDQ.L #0x8,A7 0002515e 2c 13 |, | MOVE.L (A3),D6 00025160 59 4f |YO | SUBQ.L #0x4,A7 00025162 2f 12 |/ | MOVE.L (A2),-(A7) 00025164 4e ba cf ec |N | JSR 0x22152 00025168 58 4f |XO | ADDQ.L #0x4,A7 0002516a 20 1f | | MOVE.L (A7)+,D0 0002516c 0c 80 ff ff ff ff | | CMPI.L #0xffffffff,D0 00025172 67 00 02 ac |g | BEQ 0x25420 00025176 59 4f |YO | SUBQ.L #0x4,A7 00025178 2f 12 |/ | MOVE.L (A2),-(A7) 0002517a 48 78 00 00 |Hx | PEA.L 0x0 0002517e 4e ba d8 ee |N | JSR 0x22a6e 00025182 50 4f |PO | ADDQ.L #0x8,A7 00025184 28 97 |( | MOVE.L (A7),(A4) 00025186 54 4f |TO | ADDQ.L #0x2,A7 00025188 2f 14 |/ | MOVE.L (A4),-(A7) 0002518a 4e ba f1 c4 |N | JSR 0x24350 0002518e 58 4f |XO | ADDQ.L #0x4,A7 00025190 10 1f | | MOVE.B (A7)+,D0 00025192 48 80 |H | EXTB.W D0 00025194 41 bc 00 2b |A + | CHK.W #0x2b,D0 00025198 1d 40 ff f5 | @ | MOVE.B D0,(A6-0xb) 0002519c 4a 00 |J | TST.B D0 0002519e 66 0e |f | BNE 0x251ae 000251a0 2f 14 |/ | MOVE.L (A4),-(A7) 000251a2 2f 12 |/ | MOVE.L (A2),-(A7) 000251a4 4e ba fe e8 |N | JSR 0x2508e 000251a8 50 4f |PO | ADDQ.L #0x8,A7 000251aa 60 00 02 6c |` l | BRA 0x25418 000251ae 48 54 |HT | PEA.L (A4) 000251b0 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000251b6 58 4f |XO | ADDQ.L #0x4,A7 000251b8 12 00 | | MOVE.B D0,D1 000251ba 48 81 |H | EXTB.W D1 000251bc 43 bc 00 2b |C + | CHK.W #0x2b,D1 000251c0 41 fa ca 86 |A | LEA.L 0x21c48,A0 000251c4 30 01 |0 | MOVE.W D1,D0 000251c6 48 c0 |H | EXTW.L D0 000251c8 24 00 |$ | MOVE.L D0,D2 000251ca e2 9a | | ROR.L #0x1,D2 000251cc d0 c2 | | ADDA.W D2,A0 000251ce 48 42 |HB | SWAP.W D2 000251d0 e7 5a | Z | ROL.W #0x3,D2 000251d2 42 83 |B | CLR.L D3 000251d4 16 10 | | MOVE.B (A0),D3 000251d6 e5 2b | + | LSL.B D2,D3 000251d8 e8 0b | | LSR.B #0x4,D3 000251da 2a 03 |* | MOVE.L D3,D5 000251dc 0c 85 00 00 00 0f | | CMPI.L #0x0000000f,D5 000251e2 67 2c |g, | BEQ 0x25210 000251e4 28 00 |( | MOVE.L D0,D4 000251e6 76 0a |v | MOVEQ.L #0x0a,D3 000251e8 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4 000251ee 41 fa c8 8a |A | LEA.L COMMAND_TABLE_21a7a,A0 000251f2 9e fc 00 0a | | SUBA.W #0xa,A7 000251f6 22 4f |"O | MOVEA.L A7,A1 000251f8 41 f0 40 00 |A @ | LEA.L (A0+D4.W),A0 000251fc 70 09 |p | MOVEQ.L #0x09,D0 000251fe 12 d8 | | MOVE.B (A0)+,(A1)+ 00025200 51 c8 ff fc |Q | DBF D0,0x251fe 00025204 2f 12 |/ | MOVE.L (A2),-(A7) 00025206 2f 05 |/ | MOVE.L D5,-(A7) 00025208 4e ba cf 7e |N ~ | JSR 0x22188 0002520c de fc 00 12 | | ADDA.W #0x12,A7 00025210 53 41 |SA | SUBQ.W #0x1,D1 00025212 0c 41 00 2a | A * | CMPI.W #0x002a,D1 00025216 63 02 |c | BLS 0x2521a 00025218 4e 4e |NN | TRAP #14 0002521a d2 41 | A | ADD.W D1,D1 0002521c 32 3b 10 06 4e fb 10 02 |2; N | SWITCH D1.W 00025224 00 56 | V | .CONST 0x56 ; [0x0] -> 0x2527a 00025226 00 62 | b | .CONST 0x62 ; [0x1] -> 0x25286 00025228 00 74 | t | .CONST 0x74 ; [0x2] -> 0x25298 0002522a 00 82 | | .CONST 0x82 ; [0x3] -> 0x252a6 0002522c 01 e6 | | .CONST 0x1e6 ; [0x4] -> 0x2540a 0002522e 00 8a | | .CONST 0x8a ; [0x5] -> 0x252ae 00025230 00 8e | | .CONST 0x8e ; [0x6] -> 0x252b2 00025232 00 96 | | .CONST 0x96 ; [0x7] -> 0x252ba 00025234 00 9e | | .CONST 0x9e ; [0x8] -> 0x252c2 00025236 00 a6 | | .CONST 0xa6 ; [0x9] -> 0x252ca 00025238 00 ae | | .CONST 0xae ; [0xa] -> 0x252d2 0002523a 00 b6 | | .CONST 0xb6 ; [0xb] -> 0x252da 0002523c 00 be | | .CONST 0xbe ; [0xc] -> 0x252e2 0002523e 00 c6 | | .CONST 0xc6 ; [0xd] -> 0x252ea 00025240 00 ce | | .CONST 0xce ; [0xe] -> 0x252f2 00025242 00 d6 | | .CONST 0xd6 ; [0xf] -> 0x252fa 00025244 00 e0 | | .CONST 0xe0 ; [0x10] -> 0x25304 00025246 00 ea | | .CONST 0xea ; [0x11] -> 0x2530e 00025248 00 f4 | | .CONST 0xf4 ; [0x12] -> 0x25318 0002524a 00 fe | | .CONST 0xfe ; [0x13] -> 0x25322 0002524c 01 08 | | .CONST 0x108 ; [0x14] -> 0x2532c 0002524e 01 12 | | .CONST 0x112 ; [0x15] -> 0x25336 00025250 01 1c | | .CONST 0x11c ; [0x16] -> 0x25340 00025252 01 26 | & | .CONST 0x126 ; [0x17] -> 0x2534a 00025254 01 30 | 0 | .CONST 0x130 ; [0x18] -> 0x25354 00025256 01 3a | : | .CONST 0x13a ; [0x19] -> 0x2535e 00025258 01 44 | D | .CONST 0x144 ; [0x1a] -> 0x25368 0002525a 01 4e | N | .CONST 0x14e ; [0x1b] -> 0x25372 0002525c 01 58 | X | .CONST 0x158 ; [0x1c] -> 0x2537c 0002525e 01 62 | b | .CONST 0x162 ; [0x1d] -> 0x25386 00025260 01 6c | l | .CONST 0x16c ; [0x1e] -> 0x25390 00025262 01 76 | v | .CONST 0x176 ; [0x1f] -> 0x2539a 00025264 01 80 | | .CONST 0x180 ; [0x20] -> 0x253a4 00025266 01 8a | | .CONST 0x18a ; [0x21] -> 0x253ae 00025268 01 94 | | .CONST 0x194 ; [0x22] -> 0x253b8 0002526a 01 9e | | .CONST 0x19e ; [0x23] -> 0x253c2 0002526c 01 a8 | | .CONST 0x1a8 ; [0x24] -> 0x253cc 0002526e 01 b2 | | .CONST 0x1b2 ; [0x25] -> 0x253d6 00025270 01 b8 | | .CONST 0x1b8 ; [0x26] -> 0x253dc 00025272 01 c2 | | .CONST 0x1c2 ; [0x27] -> 0x253e6 00025274 01 cc | | .CONST 0x1cc ; [0x28] -> 0x253f0 00025276 01 d6 | | .CONST 0x1d6 ; [0x29] -> 0x253fa 00025278 01 dc | | .CONST 0x1dc ; [0x2a] -> 0x25400 0002527a switch@0x2521c[0x0]: 0002527a 2f 12 |/ | MOVE.L (A2),-(A7) 0002527c 4e ba d9 78 |N x | JSR 0x22bf6 00025280 58 4f |XO | ADDQ.L #0x4,A7 00025282 60 00 01 94 |` | BRA 0x25418 00025286 switch@0x2521c[0x1]: 00025286 42 27 |B' | CLR.B -(A7) 00025288 48 78 00 01 |Hx | PEA.L 0x1 0002528c 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00025292 5c 4f |\O | ADDQ.L #0x6,A7 00025294 60 00 01 82 |` | BRA 0x25418 00025298 switch@0x2521c[0x2]: 00025298 59 4f |YO | SUBQ.L #0x4,A7 0002529a 4e b9 00 01 02 ac |N | JSR FSCALL_102ac 000252a0 4e ba d9 2a |N * | JSR 0x22bcc 000252a4 60 da |` | BRA 0x25280 000252a6 switch@0x2521c[0x3]: 000252a6 2f 12 |/ | MOVE.L (A2),-(A7) 000252a8 4e ba db 26 |N & | JSR 0x22dd0 000252ac 60 d2 |` | BRA 0x25280 000252ae switch@0x2521c[0x5]: 000252ae 60 00 01 68 |` h | BRA 0x25418 000252b2 switch@0x2521c[0x6]: 000252b2 2f 12 |/ | MOVE.L (A2),-(A7) 000252b4 4e ba de 40 |N @ | JSR 0x230f6 000252b8 60 c6 |` | BRA 0x25280 000252ba switch@0x2521c[0x7]: 000252ba 2f 12 |/ | MOVE.L (A2),-(A7) 000252bc 4e ba df a4 |N | JSR 0x23262 000252c0 60 be |` | BRA 0x25280 000252c2 switch@0x2521c[0x8]: 000252c2 2f 12 |/ | MOVE.L (A2),-(A7) 000252c4 4e ba e0 8a |N | JSR 0x23350 000252c8 60 b6 |` | BRA 0x25280 000252ca switch@0x2521c[0x9]: 000252ca 2f 12 |/ | MOVE.L (A2),-(A7) 000252cc 4e ba e4 76 |N v | JSR 0x23744 000252d0 60 ae |` | BRA 0x25280 000252d2 switch@0x2521c[0xa]: 000252d2 2f 12 |/ | MOVE.L (A2),-(A7) 000252d4 4e ba e4 e6 |N | JSR 0x237bc 000252d8 60 a6 |` | BRA 0x25280 000252da switch@0x2521c[0xb]: 000252da 2f 12 |/ | MOVE.L (A2),-(A7) 000252dc 4e ba e5 56 |N V | JSR 0x23834 000252e0 60 9e |` | BRA 0x25280 000252e2 switch@0x2521c[0xc]: 000252e2 2f 12 |/ | MOVE.L (A2),-(A7) 000252e4 4e ba e5 7a |N z | JSR 0x23860 000252e8 60 96 |` | BRA 0x25280 000252ea switch@0x2521c[0xd]: 000252ea 2f 12 |/ | MOVE.L (A2),-(A7) 000252ec 4e ba e6 72 |N r | JSR 0x23960 000252f0 60 8e |` | BRA 0x25280 000252f2 switch@0x2521c[0xe]: 000252f2 2f 12 |/ | MOVE.L (A2),-(A7) 000252f4 4e ba e7 50 |N P | JSR 0x23a46 000252f8 60 86 |` | BRA 0x25280 000252fa switch@0x2521c[0xf]: 000252fa 2f 12 |/ | MOVE.L (A2),-(A7) 000252fc 4e ba e7 74 |N t | JSR 0x23a72 00025300 60 00 ff 7e |` ~ | BRA 0x25280 00025304 switch@0x2521c[0x10]: 00025304 2f 12 |/ | MOVE.L (A2),-(A7) 00025306 4e ba e7 b6 |N | JSR 0x23abe 0002530a 60 00 ff 74 |` t | BRA 0x25280 0002530e switch@0x2521c[0x11]: 0002530e 2f 12 |/ | MOVE.L (A2),-(A7) 00025310 4e ba e7 f8 |N | JSR 0x23b0a 00025314 60 00 ff 6a |` j | BRA 0x25280 00025318 switch@0x2521c[0x12]: 00025318 2f 12 |/ | MOVE.L (A2),-(A7) 0002531a 4e ba e8 3a |N : | JSR 0x23b56 0002531e 60 00 ff 60 |` ` | BRA 0x25280 00025322 switch@0x2521c[0x13]: 00025322 2f 12 |/ | MOVE.L (A2),-(A7) 00025324 4e ba e8 7c |N | | JSR 0x23ba2 00025328 60 00 ff 56 |` V | BRA 0x25280 0002532c switch@0x2521c[0x14]: 0002532c 2f 12 |/ | MOVE.L (A2),-(A7) 0002532e 4e ba e8 be |N | JSR 0x23bee 00025332 60 00 ff 4c |` L | BRA 0x25280 00025336 switch@0x2521c[0x15]: 00025336 2f 12 |/ | MOVE.L (A2),-(A7) 00025338 4e ba e9 00 |N | JSR 0x23c3a 0002533c 60 00 ff 42 |` B | BRA 0x25280 00025340 switch@0x2521c[0x16]: 00025340 2f 12 |/ | MOVE.L (A2),-(A7) 00025342 4e ba e9 40 |N @ | JSR 0x23c84 00025346 60 00 ff 38 |` 8 | BRA 0x25280 0002534a switch@0x2521c[0x17]: 0002534a 2f 12 |/ | MOVE.L (A2),-(A7) 0002534c 4e ba e9 80 |N | JSR 0x23cce 00025350 60 00 ff 2e |` . | BRA 0x25280 00025354 switch@0x2521c[0x18]: 00025354 2f 12 |/ | MOVE.L (A2),-(A7) 00025356 4e ba e9 c0 |N | JSR 0x23d18 0002535a 60 00 ff 24 |` $ | BRA 0x25280 0002535e switch@0x2521c[0x19]: 0002535e 2f 12 |/ | MOVE.L (A2),-(A7) 00025360 4e ba ea 00 |N | JSR 0x23d62 00025364 60 00 ff 1a |` | BRA 0x25280 00025368 switch@0x2521c[0x1a]: 00025368 2f 12 |/ | MOVE.L (A2),-(A7) 0002536a 4e ba ea 40 |N @ | JSR 0x23dac 0002536e 60 00 ff 10 |` | BRA 0x25280 00025372 switch@0x2521c[0x1b]: 00025372 2f 12 |/ | MOVE.L (A2),-(A7) 00025374 4e ba ea 80 |N | JSR 0x23df6 00025378 60 00 ff 06 |` | BRA 0x25280 0002537c switch@0x2521c[0x1c]: 0002537c 2f 12 |/ | MOVE.L (A2),-(A7) 0002537e 4e ba ea c0 |N | JSR 0x23e40 00025382 60 00 fe fc |` | BRA 0x25280 00025386 switch@0x2521c[0x1d]: 00025386 2f 12 |/ | MOVE.L (A2),-(A7) 00025388 4e ba eb 00 |N | JSR 0x23e8a 0002538c 60 00 fe f2 |` | BRA 0x25280 00025390 switch@0x2521c[0x1e]: 00025390 2f 12 |/ | MOVE.L (A2),-(A7) 00025392 4e ba eb 3a |N : | JSR 0x23ece 00025396 60 00 fe e8 |` | BRA 0x25280 0002539a switch@0x2521c[0x1f]: 0002539a 2f 12 |/ | MOVE.L (A2),-(A7) 0002539c 4e ba eb 76 |N v | JSR 0x23f14 000253a0 60 00 fe de |` | BRA 0x25280 000253a4 switch@0x2521c[0x20]: 000253a4 2f 12 |/ | MOVE.L (A2),-(A7) 000253a6 4e ba eb a2 |N | JSR 0x23f4a 000253aa 60 00 fe d4 |` | BRA 0x25280 000253ae switch@0x2521c[0x21]: 000253ae 2f 12 |/ | MOVE.L (A2),-(A7) 000253b0 4e ba ec 28 |N ( | JSR 0x23fda 000253b4 60 00 fe ca |` | BRA 0x25280 000253b8 switch@0x2521c[0x22]: 000253b8 2f 12 |/ | MOVE.L (A2),-(A7) 000253ba 4e ba ec 90 |N | JSR 0x2404c 000253be 60 00 fe c0 |` | BRA 0x25280 000253c2 switch@0x2521c[0x23]: 000253c2 2f 12 |/ | MOVE.L (A2),-(A7) 000253c4 4e ba df ec |N | JSR 0x233b2 000253c8 60 00 fe b6 |` | BRA 0x25280 000253cc switch@0x2521c[0x24]: 000253cc 2f 12 |/ | MOVE.L (A2),-(A7) 000253ce 4e ba e0 4c |N L | JSR 0x2341c 000253d2 60 00 fe ac |` | BRA 0x25280 000253d6 switch@0x2521c[0x25]: 000253d6 4e ba e0 16 |N | JSR 0x233ee 000253da 60 3c |`< | BRA 0x25418 000253dc switch@0x2521c[0x26]: 000253dc 2f 12 |/ | MOVE.L (A2),-(A7) 000253de 4e ba ec de |N | JSR 0x240be 000253e2 60 00 fe 9c |` | BRA 0x25280 000253e6 switch@0x2521c[0x27]: 000253e6 2f 12 |/ | MOVE.L (A2),-(A7) 000253e8 4e ba ed 56 |N V | JSR 0x24140 000253ec 60 00 fe 92 |` | BRA 0x25280 000253f0 switch@0x2521c[0x28]: 000253f0 2f 12 |/ | MOVE.L (A2),-(A7) 000253f2 4e ba ed cc |N | JSR 0x241c0 000253f6 60 00 fe 88 |` | BRA 0x25280 000253fa switch@0x2521c[0x29]: 000253fa 4e ba ee 88 |N | JSR 0x24284 000253fe 60 18 |` | BRA 0x25418 00025400 switch@0x2521c[0x2a]: 00025400 2f 12 |/ | MOVE.L (A2),-(A7) 00025402 4e ba ee a0 |N | JSR 0x242a4 00025406 60 00 fe 78 |` x | BRA 0x25280 0002540a switch@0x2521c[0x4]: 0002540a 2e 6d 00 08 |.m | MOVEA.L (A5+0x8),A7 0002540e 3c 7c 00 00 |<| | MOVEA.W #0x0,A6 00025412 4e f9 00 02 56 22 |N V" | JMP 0x25622 00025418 2f 12 |/ | MOVE.L (A2),-(A7) 0002541a 4e ba c8 e8 |N | JSR 0x21d04 0002541e 58 4f |XO | ADDQ.L #0x4,A7 00025420 2f 06 |/ | MOVE.L D6,-(A7) 00025422 2f 06 |/ | MOVE.L D6,-(A7) 00025424 9f 97 | | SUB.L D7,(A7) 00025426 4e ba ce 72 |N r | JSR 0x2229a 0002542a 50 4f |PO | ADDQ.L #0x8,A7 0002542c 26 87 |& | MOVE.L D7,(A3) 0002542e 4a 2e ff f4 |J. | TST.B (A6-0xc) 00025432 67 00 fd 1c |g | BEQ 0x25150 00025436 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 0002543a 4e 5e |N^ | UNLK A6 0002543c 4e 75 |Nu | RTS 0002543e ; -------------------------------------------------------------------------------------- 0002543e ; OMSI PASCAL Function 0002543e ; -------------------------------------------------------------------------------------- 0002543e START: 0002543e 4f fa 00 08 |O | LEA.L MAIN,A7 00025442 4e f9 00 01 02 80 |N | JMP ?start_program 00025448 MAIN: 00025448 23 fc 00 00 00 01 00 02 |# | MOVE.L #0x1,0x2787a 00025450 78 7a |xz | 00025452 59 4f |YO | SUBQ.L #0x4,A7 00025454 4e b9 00 01 03 c4 |N | JSR GetArgv() : String 0002545a 23 df 00 02 78 7e |# x~ | MOVE.L (A7)+,0x2787e 00025460 48 79 00 02 78 58 |Hy xX | PEA.L 0x27858 00025466 4e b9 00 02 16 46 |N F | JSR 0x21646 0002546c 58 4f |XO | ADDQ.L #0x4,A7 0002546e 20 79 00 02 78 7e | y x~ | MOVEA.L 0x2787e,A0 00025474 4a 50 |JP | TST.W (A0) 00025476 6f 68 |oh | BLE 0x254e0 00025478 51 4f |QO | SUBQ.L #0x8,A7 0002547a 20 4f | O | MOVEA.L A7,A0 0002547c 43 fa c5 de |C | LEA.L 0x21a5c,A1 00025480 70 06 |p | MOVEQ.L #0x06,D0 00025482 10 d9 | | MOVE.B (A1)+,(A0)+ 00025484 51 c8 ff fc |Q | DBF D0,0x25482 00025488 51 4f |QO | SUBQ.L #0x8,A7 0002548a 20 4f | O | MOVEA.L A7,A0 0002548c 43 fa c5 d6 |C | LEA.L 0x21a64,A1 00025490 70 06 |p | MOVEQ.L #0x06,D0 00025492 10 d9 | | MOVE.B (A1)+,(A0)+ 00025494 51 c8 ff fc |Q | DBF D0,0x25492 00025498 51 4f |QO | SUBQ.L #0x8,A7 0002549a 48 6f 00 10 |Ho | PEA.L (A7+0x10) 0002549e 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000254a2 3f 3c 00 07 |?< | MOVE.W #0x7,-(A7) 000254a6 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000254ac 58 4f |XO | ADDQ.L #0x4,A7 000254ae 2e b9 00 02 78 7e |. x~ | MOVE.L 0x2787e,(A7) 000254b4 59 4f |YO | SUBQ.L #0x4,A7 000254b6 48 6f 00 10 |Ho | PEA.L (A7+0x10) 000254ba 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000254be 3f 3c 00 07 |?< | MOVE.W #0x7,-(A7) 000254c2 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000254c8 50 4f |PO | ADDQ.L #0x8,A7 000254ca 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 000254d0 de fc 00 0c | | ADDA.W #0xc,A7 000254d4 23 df 00 02 78 7e |# x~ | MOVE.L (A7)+,0x2787e 000254da de fc 00 10 | | ADDA.W #0x10,A7 000254de 60 3a |`: | BRA 0x2551a 000254e0 48 79 00 02 78 7e |Hy x~ | PEA.L 0x2787e 000254e6 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000254ec 59 4f |YO | SUBQ.L #0x4,A7 000254ee 20 4f | O | MOVEA.L A7,A0 000254f0 43 fa c5 7a |C z | LEA.L 0x21a6c,A1 000254f4 70 06 |p | MOVEQ.L #0x06,D0 000254f6 10 d9 | | MOVE.B (A1)+,(A0)+ 000254f8 51 c8 ff fc |Q | DBF D0,0x254f6 000254fc 59 4f |YO | SUBQ.L #0x4,A7 000254fe 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00025502 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00025506 3f 3c 00 07 |?< | MOVE.W #0x7,-(A7) 0002550a 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00025510 50 4f |PO | ADDQ.L #0x8,A7 00025512 23 df 00 02 78 7e |# x~ | MOVE.L (A7)+,0x2787e 00025518 50 4f |PO | ADDQ.L #0x8,A7 0002551a 13 fc 00 01 00 02 78 88 | x | MOVE.B #0x01,0x27888 00025522 4a 39 00 02 78 88 |J9 x | TST.B 0x27888 00025528 67 0a |g | BEQ 0x25534 0002552a 42 39 00 02 78 88 |B9 x | CLR.B 0x27888 00025530 60 00 00 b0 |` | BRA 0x255e2 00025534 41 f9 00 02 78 62 |A xb | LEA.L 0x27862,A0 0002553a 70 04 |p | MOVEQ.L #0x04,D0 0002553c 3f 20 |? | MOVE.W -(A0),-(A7) 0002553e 51 c8 ff fc |Q | DBF D0,0x2553c 00025542 3f 3a c5 30 |?: 0 | MOVE.W 0x21a74,-(A7) 00025546 9e fc 00 0c | | SUBA.W #0xc,A7 0002554a 48 6f 00 0e |Ho | PEA.L (A7+0xe) 0002554e 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00025552 3f 3c 00 0a |?< | MOVE.W #0xa,-(A7) 00025556 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002555c 58 4f |XO | ADDQ.L #0x4,A7 0002555e 48 6f 00 10 |Ho | PEA.L (A7+0x10) 00025562 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00025566 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7) 0002556a 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00025570 50 4f |PO | ADDQ.L #0x8,A7 00025572 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00025578 50 4f |PO | ADDQ.L #0x8,A7 0002557a 4e b9 00 01 03 e4 |N | JSR AskConsoleString(prompt : String) : String 00025580 58 4f |XO | ADDQ.L #0x4,A7 00025582 23 df 00 02 78 84 |# x | MOVE.L (A7)+,0x27884 00025588 50 4f |PO | ADDQ.L #0x8,A7 0002558a 2e b9 00 02 78 84 |. x | MOVE.L 0x27884,(A7) 00025590 4e ba ca 0c |N | JSR 0x21f9e 00025594 54 4f |TO | ADDQ.L #0x2,A7 00025596 3e ba c4 de |> | MOVE.W 0x21a76,(A7) 0002559a 3f 3a c4 dc |?: | MOVE.W 0x21a78,-(A7) 0002559e 51 4f |QO | SUBQ.L #0x8,A7 000255a0 48 6f 00 0a |Ho | PEA.L (A7+0xa) 000255a4 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000255a8 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7) 000255ac 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000255b2 58 4f |XO | ADDQ.L #0x4,A7 000255b4 2e b9 00 02 78 84 |. x | MOVE.L 0x27884,(A7) 000255ba 59 4f |YO | SUBQ.L #0x4,A7 000255bc 48 6f 00 10 |Ho | PEA.L (A7+0x10) 000255c0 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000255c4 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7) 000255c8 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000255ce 50 4f |PO | ADDQ.L #0x8,A7 000255d0 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 000255d6 de fc 00 0c | | ADDA.W #0xc,A7 000255da 23 df 00 02 78 7e |# x~ | MOVE.L (A7)+,0x2787e 000255e0 58 4f |XO | ADDQ.L #0x4,A7 000255e2 42 39 00 02 78 82 |B9 x | CLR.B 0x27882 000255e8 23 fc 00 00 00 01 00 02 |# | MOVE.L #0x1,0x27850 000255f0 78 50 |xP | 000255f2 42 b9 00 02 78 54 |B xT | CLR.L 0x27854 000255f8 59 4f |YO | SUBQ.L #0x4,A7 000255fa 2f 39 00 02 78 7e |/9 x~ | MOVE.L 0x2787e,-(A7) 00025600 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 00025606 58 4f |XO | ADDQ.L #0x4,A7 00025608 4e ba d5 06 |N | JSR 0x22b10 0002560c 58 4f |XO | ADDQ.L #0x4,A7 0002560e 20 39 00 02 78 50 | 9 xP | MOVE.L 0x27850,D0 00025614 b0 b9 00 02 78 54 | xT | CMP.L 0x27854,D0 0002561a 6e 06 |n | BGT 0x25622 0002561c 4e ba fb 0e |N | JSR 0x2512c 00025620 60 ec |` | BRA 0x2560e 00025622 48 79 00 02 78 7e |Hy x~ | PEA.L 0x2787e 00025628 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 0002562e 58 4f |XO | ADDQ.L #0x4,A7 00025630 60 00 fe f0 |` | BRA 0x25522 00025634 4e b9 00 01 |N | .XXX[0x4] 00025638 02 84 | | .XXX[0x2] 0002563a 57 6f 72 64 73 20 65 72 |Words er| .TXT 'Words error :_' 00025648 ; -------------------------------------------------------------------------------------- 00025648 ; OMSI PASCAL Function 00025648 ; <LVAR 0x008 1(r)> 00025648 ; -------------------------------------------------------------------------------------- 00025648 PROG_FAIL: 00025648 4e 56 ff d2 |NV | LINK.W A6,#0xffd2 0002564c bf d5 | | CMPA.L (A5),A7 0002564e 62 06 |b | BHI 0x25656 00025650 44 fc 00 02 |D | MOVE.W #0x2,CCR 00025654 4e 76 |Nv | TRAPV 00025656 de fc 00 2c | , | ADDA.W #0x2c,A7 0002565a 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 0002565e 41 fa ff e8 |A | LEA.L PROG_FAIL,A0 00025662 70 06 |p | MOVEQ.L #0x06,D0 00025664 3f 20 |? | MOVE.W -(A0),-(A7) 00025666 51 c8 ff fc |Q | DBF D0,0x25664 0002566a 1f 3c 00 03 | < | MOVE.B #0x03,-(A7) 0002566e 51 4f |QO | SUBQ.L #0x8,A7 00025670 48 6f 00 0a |Ho | PEA.L (A7+0xa) 00025674 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00025678 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7) 0002567c 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00025682 58 4f |XO | ADDQ.L #0x4,A7 00025684 10 2e 00 08 | . | MOVE.B (A6+0x8),D0 00025688 48 80 |H | EXTB.W D0 0002568a 48 c0 |H | EXTW.L D0 0002568c 2f 00 |/ | MOVE.L D0,-(A7) 0002568e 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00025694 58 4f |XO | ADDQ.L #0x4,A7 00025696 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 0002569c 50 4f |PO | ADDQ.L #0x8,A7 0002569e 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 000256a4 de fc 00 14 | | ADDA.W #0x14,A7 000256a8 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 000256ac 4e 5e |N^ | UNLK A6 000256ae 4e 75 |Nu | RTS 000256b0 42 6f 61 72 64 20 20 20 |Board | .TXT 'Board :_ ' 000256be 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment :_ ' 000256cc 53 74 61 74 75 73 20 20 |Status | .TXT 'Status :_ ' 000256da 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment error :' 000256ec 46 61 74 61 6c 20 65 78 |Fatal ex| .TXT 'Fatal experiment error. ' 00025704 ; -------------------------------------------------------------------------------------- 00025704 ; OMSI PASCAL Function 00025704 ; <LVAR 0x00e 1(r)> 00025704 ; <LVAR 0x00a 4(r)> 00025704 ; <LVAR 0x008 1(r)> 00025704 ; -------------------------------------------------------------------------------------- 00025704 EXP_FAIL: 00025704 4e 56 ff 8c |NV | LINK.W A6,#0xff8c 00025708 bf d5 | | CMPA.L (A5),A7 0002570a 62 06 |b | BHI 0x25712 0002570c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00025710 4e 76 |Nv | TRAPV 00025712 de fc 00 74 | t | ADDA.W #0x74,A7 00025716 48 e7 fc f8 |H | MOVEM.L A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7) 0002571a 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 00025720 49 f9 00 01 03 e0 |I | LEA.L WriteConsoleStringCrLf(str : String),A4 00025726 72 01 |r | MOVEQ.L #0x01,D1 00025728 74 0d |t | MOVEQ.L #0x0d,D2 0002572a 76 1e |v | MOVEQ.L #0x1e,D3 0002572c 78 12 |x | MOVEQ.L #0x12,D4 0002572e 7a 0e |z | MOVEQ.L #0x0e,D5 00025730 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 00025736 41 fa ff b4 |A | LEA.L 0x256ec,A0 0002573a 70 08 |p | MOVEQ.L #0x08,D0 0002573c 3f 20 |? | MOVE.W -(A0),-(A7) 0002573e 51 c8 ff fc |Q | DBF D0,0x2573c 00025742 59 4f |YO | SUBQ.L #0x4,A7 00025744 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00025748 3f 01 |? | MOVE.W D1,-(A7) 0002574a 3f 04 |? | MOVE.W D4,-(A7) 0002574c 4e 93 |N | JSR (A3) 0002574e 50 4f |PO | ADDQ.L #0x8,A7 00025750 4e 94 |N | JSR (A4) 00025752 50 4f |PO | ADDQ.L #0x8,A7 00025754 20 4f | O | MOVEA.L A7,A0 00025756 43 fa ff 58 |C X | LEA.L 0x256b0,A1 0002575a 70 0c |p | MOVEQ.L #0x0c,D0 0002575c 10 d9 | | MOVE.B (A1)+,(A0)+ 0002575e 51 c8 ff fc |Q | DBF D0,0x2575c 00025762 51 4f |QO | SUBQ.L #0x8,A7 00025764 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00025768 3f 01 |? | MOVE.W D1,-(A7) 0002576a 3f 02 |? | MOVE.W D2,-(A7) 0002576c 4e 93 |N | JSR (A3) 0002576e 54 4f |TO | ADDQ.L #0x2,A7 00025770 1e ae 00 0e | | MOVE.B (A6+0xe),(A7) 00025774 4e b9 00 01 04 9c |N | JSR BoardName(address : B) : String 0002577a 54 4f |TO | ADDQ.L #0x2,A7 0002577c 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00025782 50 4f |PO | ADDQ.L #0x8,A7 00025784 4e 94 |N | JSR (A4) 00025786 de c4 | | ADDA.W D4,A7 00025788 20 6e 00 0a | n | MOVEA.L (A6+0xa),A0 0002578c b0 c1 | | CMPA.W D1,A0 0002578e 67 48 |gH | BEQ 0x257d8 00025790 9e c5 | | SUBA.W D5,A7 00025792 22 4f |"O | MOVEA.L A7,A1 00025794 45 fa ff 28 |E ( | LEA.L 0x256be,A2 00025798 70 0c |p | MOVEQ.L #0x0c,D0 0002579a 12 da | | MOVE.B (A2)+,(A1)+ 0002579c 51 c8 ff fc |Q | DBF D0,0x2579a 000257a0 9e c3 | | SUBA.W D3,A7 000257a2 22 4f |"O | MOVEA.L A7,A1 000257a4 41 e8 00 fc |A | LEA.L (A0+0xfc),A0 000257a8 70 1d |p | MOVEQ.L #0x1d,D0 000257aa 12 d8 | | MOVE.B (A0)+,(A1)+ 000257ac 51 c8 ff fc |Q | DBF D0,0x257aa 000257b0 51 4f |QO | SUBQ.L #0x8,A7 000257b2 48 6f 00 26 |Ho & | PEA.L (A7+0x26) 000257b6 3f 01 |? | MOVE.W D1,-(A7) 000257b8 3f 02 |? | MOVE.W D2,-(A7) 000257ba 4e 93 |N | JSR (A3) 000257bc 58 4f |XO | ADDQ.L #0x4,A7 000257be 48 6f 00 0c |Ho | PEA.L (A7+0xc) 000257c2 3f 01 |? | MOVE.W D1,-(A7) 000257c4 3f 03 |? | MOVE.W D3,-(A7) 000257c6 4e 93 |N | JSR (A3) 000257c8 50 4f |PO | ADDQ.L #0x8,A7 000257ca 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000257d0 50 4f |PO | ADDQ.L #0x8,A7 000257d2 4e 94 |N | JSR (A4) 000257d4 de fc 00 30 | 0 | ADDA.W #0x30,A7 000257d8 9e c5 | | SUBA.W D5,A7 000257da 20 4f | O | MOVEA.L A7,A0 000257dc 43 fa fe ee |C | LEA.L 0x256cc,A1 000257e0 70 0c |p | MOVEQ.L #0x0c,D0 000257e2 10 d9 | | MOVE.B (A1)+,(A0)+ 000257e4 51 c8 ff fc |Q | DBF D0,0x257e2 000257e8 51 4f |QO | SUBQ.L #0x8,A7 000257ea 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000257ee 3f 01 |? | MOVE.W D1,-(A7) 000257f0 3f 02 |? | MOVE.W D2,-(A7) 000257f2 4e 93 |N | JSR (A3) 000257f4 54 4f |TO | ADDQ.L #0x2,A7 000257f6 1e ae 00 08 | | MOVE.B (A6+0x8),(A7) 000257fa 4e b9 00 01 04 a2 |N | JSR ExpStatus2Text(status.B, &String) 00025800 54 4f |TO | ADDQ.L #0x2,A7 00025802 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00025808 50 4f |PO | ADDQ.L #0x8,A7 0002580a 4e 94 |N | JSR (A4) 0002580c 5d 4f |]O | SUBQ.L #0x6,A7 0002580e 20 4f | O | MOVEA.L A7,A0 00025810 43 fa fe da |C | LEA.L 0x256ec,A1 00025814 70 16 |p | MOVEQ.L #0x16,D0 00025816 10 d9 | | MOVE.B (A1)+,(A0)+ 00025818 51 c8 ff fc |Q | DBF D0,0x25816 0002581c 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 00025820 59 4f |YO | SUBQ.L #0x4,A7 00025822 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00025826 3f 01 |? | MOVE.W D1,-(A7) 00025828 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7) 0002582c 4e 93 |N | JSR (A3) 0002582e 50 4f |PO | ADDQ.L #0x8,A7 00025830 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00025836 de c3 | | ADDA.W D3,A7 00025838 4c df 1f 3f |L ? | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4 0002583c 4e 5e |N^ | UNLK A6 0002583e 4e 75 |Nu | RTS