|
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: 19968 (0x4e00)
Types: M200
Notes: @(#)DISPLAY,1.1,92/07/09,12:00:00, M200_PROGRAM
Names: »DISPLAY.M200«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »DISPLAY.M200«
@ 2023c
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 4(r)>
<LVAR -0x006 @ 1(r)>
<LVAR -0x008 @ 1(r)>
<LVAR -0x00c @ 4(r)>
<LVAR -0x010 @ 4(rw)>
<LVAR -0x014 @ 4(rw)>
<LVAR -0x018 @ 4(rw)>
<POP 2023c-20476 Body>
<POP 2023c-20252 Prologue> Σ0 ↓
<POP 20252-2026e RegCacheLoad> Σ0 ↓
<POP 2026e-20278 Naked> Σ0 ↓ →0x202a4
<MI 2026e CLR.L 0x26c10> {}
<MI 20274 TST.B 0x24c0e> {}
<MI 20276 BEQ 0x202a4> {}
<POP 20278-202a4 Naked> Σ0 ↓
<Blob 0x20278 [22] @> Δ-22 {[«22""»]}
<POP 2028a-2028c StackAdj> Δ-4 {[«22""»]|[-4-]}
<Lit 0x2028c 21> {[«22""»]|[$$Device already opened]}
<Call 0x2029a 0x2110c> {[«22""»]|[$$Device already opened]}
<POP 202a0-202a4 StackAdj> Δ+26 {}
<POP 202a4-20312 Naked> Σ0 ↓ →0x20316 ←0x2026e
<Blob 0x202a4 [10] @> Δ-10 {[«10""»]}
<MI 202b0 MOVE.L (A6+0x8),-(A7)> Δ-4 {[«10""»]|[4, '(A6+0x8)']}
<Const 0x202b4 0x1.4> Δ-4 {[«10""»]|[4, '(A6+0x8)']|[##1]}
<Call 0x202b8 0x2154e> {[«10""»]|[4, '(A6+0x8)']|[##1]}
<POP 202be-202c0 StackAdj> Δ+10 {[-8-]}
<MI 202c0 MOVE.L (A6+0x8),(A7)> {[-4-]|[4, '(A6+0x8)']}
<Const 0x202c4 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x202c8 0x21e34> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 202ce-202d0 StackAdj> Δ+8 {[-4-]}
<MI 202d0 MOVE.L (A7)+,(A6-0x18)> Δ+4 {}
<Blob 0x202d2 [4] @> Δ-4 {[«4""»]}
<POP 202d6-202d8 StackAdj> Δ-4 {[«4""»]|[-4-]}
<Lit 0x202d8 4> {[«4""»]|[$$TAPE]}
<MI 202e4 MOVE.L (A7)+,(A6-0x14)> Δ+4 {[«4""»]}
<POP 202e8-202e9 StackAdj> Δ+4 {}
<Blob 0x202e9 [4] @> Δ-4 {[«4""»]}
<POP 202ec-202ee StackAdj> Δ-4 {[«4""»]|[-4-]}
<Lit 0x202ee 4> {[«4""»]|[$$DISK]}
<MI 202fa MOVE.L (A7)+,(A6-0x10)> Δ+4 {[«4""»]}
<POP 202fe-20300 StackAdj> Δ+2 {[-2-]}
<MI 20300 MOVE.L (A6-0x18),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x18)']}
<MI 20302 MOVE.L (A6-0x14),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x18)']|[4, '(A6-0x14)']}
<Call 0x20306 0x102c8> {[-2-]|[4, '(A6-0x18)']|[4, '(A6-0x14)']}
StringEqual(a, b : String) : Byte
<POP 2030c-2030e StackAdj> Δ+8 {[-2-]}
<MI 2030e TST.B (A7)+> Δ+2 {}
<MI 20310 BEQ 0x20316> {}
<POP 20312-20316 Naked> Σ0 →0x2032e
<MI 20312 MOVE.B #0x03,0x24c0e> {}
<MI 20314 BRA 0x2032e> {}
<POP 20316-2032a Naked> Σ0 ↓ →0x2032e ←0x202a4
<POP 20316-20318 StackAdj> Δ-2 {[-2-]}
<MI 20318 MOVE.L (A6-0x18),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x18)']}
<MI 2031a MOVE.L (A6-0x10),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x18)']|[4, '(A6-0x10)']}
<Call 0x2031e 0x102c8> {[-2-]|[4, '(A6-0x18)']|[4, '(A6-0x10)']}
StringEqual(a, b : String) : Byte
<POP 20324-20326 StackAdj> Δ+8 {[-2-]}
<MI 20326 TST.B (A7)+> Δ+2 {}
<MI 20328 BEQ 0x2032e> {}
<POP 2032a-2032e Naked> Σ0 ↓
<MI 2032a MOVE.B #0x02,0x24c0e> {}
<POP 2032e-20354 Naked> Σ0 ↓ →0x2037a ←0x20312 ←0x20316
<Pointer.fp 0x2032e <LVAR -0x014 @ 4(rw)>> Δ-4 {[@@-20]}
<Call 0x20332 0x102bc> {[@@-20]}
FreeString(VAR a : String)
<POP 20338-2033a StackAdj> Δ+4 {}
<Pointer.fp 0x2033a <LVAR -0x010 @ 4(rw)>> Δ-4 {[@@-16]}
<Call 0x2033e 0x102bc> {[@@-16]}
FreeString(VAR a : String)
<POP 20344-20346 StackAdj> Δ+4 {}
<Pointer.fp 0x20346 <LVAR -0x018 @ 4(rw)>> Δ-4 {[@@-24]}
<Call 0x20348 0x102bc> {[@@-24]}
FreeString(VAR a : String)
<POP 2034e-20350 StackAdj> Δ+4 {}
<MI 20350 TST.B 0x24c0e> {}
<MI 20352 BNE 0x2037a> {}
<POP 20354-2037a Naked> Σ0 ↓
<Blob 0x20354 [14] @> Δ-14 {[«14""»]}
<POP 20360-20362 StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x20362 14> {[«14""»]|[$$Unknown device]}
<Call 0x20370 0x2110c> {[«14""»]|[$$Unknown device]}
<POP 20376-2037a StackAdj> Δ+18 {}
<POP 2037a-20382 Naked> Σ0 ↓ →0x2046e ←0x2032e
<MI 2037a MOVE.B 0x24c0e,D0> {}
<MI 2037c CMP.B #0x03,D0> {}
<MI 2037e BNE 0x2046e> {}
<POP 20382-203c2 Naked> Σ0 ↓ →0x203c8
<Blob 0x20382 [4] @> Δ-4 {[«4""»]}
<POP 20386-20388 StackAdj> Δ-4 {[«4""»]|[-4-]}
<Lit 0x20388 4> {[«4""»]|[$$UNIT]}
<MI 20394 MOVE.L (A7)+,(A6-0x18)> Δ+4 {[«4""»]}
<MI 20396 MOVE.L (A6+0x8),(A7)> {[4, '(A6+0x8)']}
<Const 0x2039a 0x1.4> Δ-4 {[4, '(A6+0x8)']|[##1]}
<MI 2039e MOVE.L (A6-0x18),-(A7)> Δ-4 {[4, '(A6+0x8)']|[##1]|[4, '(A6-0x18)']}
<Pointer.fp 0x203a0 <LVAR -0x00c @ 4(r)>> Δ-4 {[4, '(A6+0x8)']|[##1]|[4, '(A6-0x18)']|[@@-12]}
<Pointer.fp 0x203a4 <LVAR -0x006 @ 1(r)>> Δ-4 {[4, '(A6+0x8)']|[##1]|[4, '(A6-0x18)']|[@@-12]|[@@-6]}
<Call 0x203a8 0x2436c> {[4, '(A6+0x8)']|[##1]|[4, '(A6-0x18)']|[@@-12]|[@@-6]}
<POP 203ae-203b2 StackAdj> Δ+20 {}
<Pointer.fp 0x203b2 <LVAR -0x018 @ 4(rw)>> Δ-4 {[@@-24]}
<Call 0x203b4 0x102bc> {[@@-24]}
FreeString(VAR a : String)
<POP 203ba-203bc StackAdj> Δ+4 {}
<MI 203bc TST.B (A6-0x6)> {}
<MI 203c0 BNE 0x203c8> {}
<POP 203c2-203c8 Naked> Σ0 →0x2043c ←0x203d0
<MI 203c2 CLR.L (A6-0x4)> {}
<MI 203c6 BRA 0x2043c> {}
<POP 203c8-203d0 Naked> Σ0 ↓ →0x203d2 ←0x20382
<MI 203c8 MOVEA.L (A6-0xc),A0> {}
<MI 203cc CMPA.W #0x01,A0> {}
<MI 203ce BNE 0x203d2> {}
<POP 203d0-203d2 Naked> Σ0 →0x203c2
<MI 203d0 BRA 0x203c2> {}
<POP 203d2-203ea Naked> Σ0 ↓ →0x2040c ←0x203c8
<MI 203d2 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Pointer.fp 0x203d4 <LVAR -0x006 @ 1(r)>> Δ-4 {[4, 'A0']|[@@-6]}
<Pointer.fp 0x203d8 <LVAR -0x004 @ 4(r)>> Δ-4 {[4, 'A0']|[@@-6]|[@@-4]}
<Call 0x203dc 0x102ec> {[4, 'A0']|[@@-6]|[@@-4]}
String2Long(src : String; VAR status : Bool; VAR retval : Long)
<POP 203e2-203e4 StackAdj> Δ+12 {}
<MI 203e4 TST.B (A6-0x6)> {}
<MI 203e8 BNE 0x2040c> {}
<POP 203ea-2040c Naked> Σ0 ↓
<Blob 0x203ea [4] @> Δ-4 {[«4""»]}
<Blob 0x203ee [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x203f2 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<POP 203f6-203f8 StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x203f8 12> {[«4""»]|[«4""»]|[«4""»]|[$$Illegal unit]}
<Call 0x20404 0x2110c> {[«4""»]|[«4""»]|[«4""»]|[$$Illegal unit]}
<POP 2040a-2040c StackAdj> Δ+16 {}
<POP 2040c-20412 Naked> Σ0 ↓ →0x2041a ←0x203d2
<MI 2040c TST.L (A6-0x4)> {}
<MI 20410 BLT 0x2041a> {}
<POP 20412-2041a Naked> Σ0 ↓ →0x2043c
<MI 20412 MOVE.L (A6-0x4),D0> {}
<MI 20416 CMP.L #0x03,D0> {}
<MI 20418 BLE 0x2043c> {}
<POP 2041a-2043c Naked> Σ0 ↓ ←0x2040c
<Blob 0x2041a [4] @> Δ-4 {[«4""»]}
<Blob 0x2041e [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x20422 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<POP 20426-20428 StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x20428 12> {[«4""»]|[«4""»]|[«4""»]|[$$Illegal unit]}
<Call 0x20434 0x2110c> {[«4""»]|[«4""»]|[«4""»]|[$$Illegal unit]}
<POP 2043a-2043c StackAdj> Δ+16 {}
<POP 2043c-2045e Naked> Σ0 ↓ →0x2046e ←0x203c2 ←0x20412
<MI 2043c MOVE.L (A6-0x4),D0> {}
<POP 0x20440 LimitCheck 0x0 ≤ D0 ≤ 0x3> {}
<MI 20446 MOVE.W D0,-(A7)> Δ-2 {[2, 'D0']}
<MI 20448 CLR.B -(A7)> Δ-2 {[2, 'D0']|[#0]}
<Const 0x2044a 0x1.2> Δ-2 {[2, 'D0']|[#0]|[#1]}
<Pointer.fp 0x2044c <LVAR -0x008 @ 1(r)>> Δ-4 {[2, 'D0']|[#0]|[#1]|[@@-8]}
<Call 0x20450 0x1040c> {[2, 'D0']|[#0]|[#1]|[@@-8]}
FSCALL_1040c
<POP 20456-20458 StackAdj> Δ+10 {}
<MI 20458 TST.B (A6-0x8)> {}
<MI 2045c BEQ 0x2046e> {}
<POP 2045e-2046e Naked> Σ0 ↓
<Const 0x2045e 0x1.2> Δ-2 {[#1]}
<Pointer.fp 0x20460 <LVAR -0x008 @ 1(r)>> Δ-4 {[#1]|[@@-8]}
<Call 0x20464 0x10428> {[#1]|[@@-8]}
FSCALL_10428
<POP 2046a-2046c StackAdj> Δ+6 {}
<MI 2046c CLR.B 0x24c0e> {}
<POP 2046e-20476 Epilogue> Σ0 ←0x2037a ←0x2043c
@ 20476
<POP 20476-204dc Body>
<POP 20476-2048c Prologue> Σ0 ↓
<POP 2048c-20492 RegCacheLoad> Σ0 ↓
<POP 20492-20496 Naked> Σ0 ↓ →0x204c4
<MI 20492 TST.B 0x24c0e> {}
<MI 20494 BNE 0x204c4> {}
<POP 20496-204c4 Naked> Σ0 →0x204d2
<Blob 0x20496 [14] @> Δ-14 {[«14""»]}
<POP 204a2-204a4 StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x204a4 14> {[«14""»]|[$$No device open]}
<Call 0x204b8 0x2110c> {[«14""»]|[$$No device open]}
<POP 204be-204c2 StackAdj> Δ+18 {}
<MI 204c2 BRA 0x204d2> {}
<POP 204c4-204cc Naked> Σ0 ↓ →0x204d2 ←0x20492
<MI 204c4 MOVE.B 0x24c0e,D0> {}
<MI 204c6 CMPI.B #0x03,D0> {}
<MI 204ca BNE 0x204d2> {}
<POP 204cc-204d2 Naked> Σ0 ↓
<Call 0x204cc 0x10410> {}
FSCALL_10410
<POP 204d2-204d4 Naked> Σ0 ↓ ←0x20496 ←0x204c4
<MI 204d2 CLR.B 0x24c0e> {}
<POP 204d4-204dc Epilogue> Σ0
@ 204dc
<LVAR 0x008 4(r)>
<LVAR -0x008 @ 4(rw)>
<LVAR -0x00c @ 4(r)>
<LVAR -0x018 4(rw)>
<POP 204dc-20796 Body> Δ+10
<POP 204dc-204f2 Prologue> Σ0 ↓
<POP 204f2-20502 RegCacheLoad> Σ0 ↓
<POP 20502-2058a Naked> Σ0 ↓
<Blob 0x20502 [2] @> Δ-2 {[«2""»]}
<Blob 0x20506 [2] @> Δ-2 {[«2""»]|[«2""»]}
<Blob 0x2050a [2] @> Δ-2 {[«2""»]|[«2""»]|[«2""»]}
<Blob 0x2050e [2] @> Δ-2 {[«2""»]|[«2""»]|[«2""»]|[«2""»]}
<Blob 0x20512 [8] @> Δ-8 {[«2""»]|[«2""»]|[«2""»]|[«2""»]|[«8""»]}
<POP 20522-20524 StackAdj> Δ-8 {[«2""»]|[«2""»]|[«2""»]|[«2""»]|[«8""»]|[-8-]}
<Lit 0x20524 6> {[«2""»]|[«2""»]|[«2""»]|[«2""»]|[«8""»]|[-4-]|[$$Block_]}
<POP 20530-20531 StackAdj> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[«2""»]|[«8""»]|[-4-]|[$$Block_]|[-4-]}
<Blob 0x20531 [4] 0x26c10> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[«2""»]|[«8""»]|[-4-]|[$$Block_]|[-4-]|[«4»]}
<Call 0x20536 0x102e4> {[«2""»]|[«2""»]|[«2""»]|[«2""»]|[«8""»]|[-4-]|[$$Block_]|[-4-]|[«4»]}
Long2String(a : Long) : String
<Lit 0x2053c 2> {[«2""»]|[«2""»]|[«2""»]|[«2""»]|[«8""»]|[-4-]|[$$Block_]|[-4-]|[$$,_]}
<MI 20548 MOVE.L (A6+0x8),(A7)> {[«2""»]|[«2""»]|[«2""»]|[«2""»]|[«8""»]|[-4-]|[$$Block_]|[-4-]|[4, '(A6+0x8)']}
<POP 20546-20548 StackAdj> Δ-8 {[«2""»]|[«2""»]|[«2""»]|[«2""»]|[«8""»]|[-4-]|[$$Block_]|[-4-]|[4, '(A6+0x8)']|[-8-]}
<Call 0x2054c 0x102e4> {[«2""»]|[«2""»]|[«2""»]|[«2""»]|[«8""»]|[-4-]|[$$Block_]|[-4-]|[4, '(A6+0x8)']|[-8-]}
Long2String(a : Long) : String
<Lit 0x20552 7> {[«2""»]|[«2""»]|[«2""»]|[«2""»]|[«8""»]|[-4-]|[$$Block_]|[-4-]|[4, '(A6+0x8)']|[-4-]|[$$ Bytes.]}
<Call 0x20560 0x102dc> {[«2""»]|[«2""»]|[«2""»]|[«2""»]|[«8""»]|[-4-]|[$$Block_]|[-4-]|[4, '(A6+0x8)']|[-4-]|[$$ Bytes.]}
StringCat5(a, b, c, d, e : String) : String
<POP 20566-2056a StackAdj> Δ+20 {[«2""»]|[«2""»]|[«2""»]|[«2""»]|[«8""»]|[-4-]}
<Call 0x2056a 0x103e0> {[«2""»]|[«2""»]|[«2""»]|[«2""»]|[«8""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 20570-20574 StackAdj> Δ+20 {}
<MI 20574 ADDQ.L #0x1,0x26c10> {}
<MI 2057a CLR.L (A6-0x18)> {}
<MI 2057c MOVEQ.L #0x00,D5> {}
<Pointer.fp 0x2057e <LVAR -0x00c @ 4(r)>> Δ-4 {[@@-12]}
<Call 0x20582 0x102b8> {[@@-12]}
NewString(VAR a : String)
<POP 20588-2058a StackAdj> Δ+4 {}
<POP 2058a-205a0 Naked> Σ0 ↓ →0x20742 ←0x2073a
<MI 2058a MOVE.L (A6+0x8),D0> {}
<MI 2058e ADDQ.L #0x1,D0> {}
<MI 20590 MOVE.L D0,D4> {}
<MI 20592 MOVEQ.L #0x02,D3> {}
<Call 0x20594 0x10294> {}
?divs_d3_d4
<MI 2059a CMP.L (A6-0x18),D4> {}
<MI 2059c BLE 0x20742> {}
<POP 205a0-205ac Naked> Σ0 ↓
<Pointer.fp 0x205a0 <LVAR -0x008 @ 4(rw)>> Δ-4 {[@@-8]}
<Call 0x205a2 0x102b8> {[@@-8]}
NewString(VAR a : String)
<POP 205a8-205aa StackAdj> Δ+4 {}
<MI 205aa MOVEQ.L #0x00,D6> {}
<POP 205ac-205fe Naked> Σ0 ↓ →0x205ac ←0x205ac
<POP 205ac-205ae StackAdj> Δ-4 {[-4-]}
<MI 205ae MOVE.L (A6-0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x8)']}
<POP 205b0-205b2 StackAdj> Δ-4 {[-4-]|[4, '(A6-0x8)']|[-4-]}
<MI 205b2 MOVE.L (A6-0x18),D0> {[-4-]|[4, '(A6-0x8)']|[-4-]}
<MI 205b4 ADD.L D6,D0> {[-4-]|[4, '(A6-0x8)']|[-4-]}
<POP 0x205b6 LimitCheck 0x0 ≤ D0 ≤ 0xfff> {[-4-]|[4, '(A6-0x8)']|[-4-]}
<MI 205c0 ASL.L #0x1,D0> {[-4-]|[4, '(A6-0x8)']|[-4-]}
<MI 205c2 LEA.L 0x24c06,A0> {[-4-]|[4, '(A6-0x8)']|[-4-]}
<MI 205c8 CLR.L D1> {[-4-]|[4, '(A6-0x8)']|[-4-]}
<MI 205ca MOVE.W (A0+D0.L+#0xa),D1> {[-4-]|[4, '(A6-0x8)']|[-4-]}
<MI 205ce MOVE.L D1,-(A7)> Δ-4 {[-4-]|[4, '(A6-0x8)']|[-4-]|[4, 'D1']}
<Const 0x205d0 0x4.4> Δ-4 {[-4-]|[4, '(A6-0x8)']|[-4-]|[4, 'D1']|[##4]}
<Call 0x205d4 0x102e8> {[-4-]|[4, '(A6-0x8)']|[-4-]|[4, 'D1']|[##4]}
Long2HexString(val : Long; ndig : Long) : String
<POP 205da-205dc StackAdj> Δ+8 {[-4-]|[4, '(A6-0x8)']|[-4-]}
<Call 0x205dc 0x102d0> {[-4-]|[4, '(A6-0x8)']|[-4-]}
StringCat2(a, b : String) : String
<POP 205e2-205e4 StackAdj> Δ+8 {[-4-]}
<MI 205e4 MOVE.L (A7)+,(A6-0x8)> Δ+4 {}
<MI 205e6 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<Const 0x205e8 0x20.2> Δ-2 {[4, '(A6-0x8)']|[#32]}
<Call 0x205ec 0x102c0> {[4, '(A6-0x8)']|[#32]}
AppendChar(MOD b : String; a : char)
<POP 205f2-205f4 StackAdj> Δ+6 {}
<MI 205f4 ADDQ.L #0x1,D6> {}
<MI 205f6 CMPI.L #0x00000007,D6> {}
<MI 205fc BLE 0x205ac> {}
<POP 205fe-20612 Naked> Σ0 ↓ →0x20620
<POP 205fe-20600 StackAdj> Δ-2 {[-2-]}
<MI 20600 MOVE.L (A6-0xc),-(A7)> Δ-4 {[-2-]|[4, '(A6-0xc)']}
<MI 20604 MOVE.L (A6-0x8),-(A7)> Δ-4 {[-2-]|[4, '(A6-0xc)']|[4, '(A6-0x8)']}
<Call 0x20606 0x102c8> {[-2-]|[4, '(A6-0xc)']|[4, '(A6-0x8)']}
StringEqual(a, b : String) : Byte
<POP 2060c-2060e StackAdj> Δ+8 {[-2-]}
<MI 2060e TST.B (A7)+> Δ+2 {}
<MI 20610 BEQ 0x20620> {}
<POP 20612-20620 Naked> Σ0 Δ-4 →0x2073a
<MI 20612 ADDQ.L #0x1,D5> {}
<Pointer.fp 0x20614 <LVAR -0x008 @ 4(rw)>> Δ-4 {[@@-8]}
<Call 0x20616 0x102bc> {[@@-8]}
FreeString(VAR a : String)
<MI 2061c BRA 0x2073a> {[@@-8]}
<POP 20620-20624 Naked> Σ0 ↓ →0x20660 ←0x205fe
<MI 20620 TST.L D5> {}
<MI 20622 BEQ 0x20660> {}
<POP 20624-20660 Naked> Σ0 ↓
<Blob 0x20624 [22] @> Δ-22 {[«22""»]}
<POP 20636-20638 StackAdj> Δ-8 {[«22""»]|[-8-]}
<MI 20638 MOVE.L D5,-(A7)> Δ-4 {[«22""»]|[-8-]|[4, 'D5']}
<Call 0x2063a 0x102e4> {[«22""»]|[-8-]|[4, 'D5']}
Long2String(a : Long) : String
<Lit 0x20640 21> {[«22""»]|[-8-]|[$$ lines same as above.]}
<Call 0x2064e 0x102d0> {[«22""»]|[-8-]|[$$ lines same as above.]}
StringCat2(a, b : String) : String
<POP 20654-20656 StackAdj> Δ+8 {[«22""»]|[-4-]}
<Call 0x20656 0x103e0> {[«22""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 2065c-20660 StackAdj> Δ+26 {}
<POP 20660-206b8 Naked> Σ0 ↓ ←0x20620
<MI 20660 MOVEQ.L #0x00,D5> {}
<MI 20662 MOVEA.L (A6-0xc),A0> {}
<MI 20666 MOVEA.L (A6-0x8),A1> {}
<BlockMove 128,A1,A0> {}
<Blob 0x20670 [2] @> Δ-2 {[«2""»]}
<Blob 0x20674 [4] @> Δ-4 {[«2""»]|[«4""»]}
<POP 20678-2067a StackAdj> Δ-8 {[«2""»]|[«4""»]|[-8-]}
<MI 2067a MOVE.L (A6-0x18),-(A7)> Δ-4 {[«2""»]|[«4""»]|[-8-]|[4, '(A6-0x18)']}
<Const 0x2067c 0x4.4> Δ-4 {[«2""»]|[«4""»]|[-8-]|[4, '(A6-0x18)']|[##4]}
<Call 0x20680 0x102e8> {[«2""»]|[«4""»]|[-8-]|[4, '(A6-0x18)']|[##4]}
Long2HexString(val : Long; ndig : Long) : String
<POP 20686-20688 StackAdj> Δ+4 {[«2""»]|[«4""»]|[-8-]|[4, '(A6-0x18)']}
<Lit 0x20688 2> {[«2""»]|[«4""»]|[-8-]|[$$:_]}
<POP 20694-20696 StackAdj> Δ-4 {[«2""»]|[«4""»]|[-8-]|[$$:_]|[-4-]}
<MI 20696 MOVE.L (A6-0x8),(A7)> {[«2""»]|[«4""»]|[-8-]|[$$:_]|[4, '(A6-0x8)']}
<POP 20698-2069a StackAdj> Δ-4 {[«2""»]|[«4""»]|[-8-]|[$$:_]|[4, '(A6-0x8)']|[-4-]}
<Lit 0x2069a 4> {[«2""»]|[«4""»]|[-8-]|[$$:_]|[4, '(A6-0x8)']|[$$____]}
<Call 0x206a8 0x102d8> {[«2""»]|[«4""»]|[-8-]|[$$:_]|[4, '(A6-0x8)']|[$$____]}
StringCat4(a, b, c, d : String) : String
<POP 206ae-206b2 StackAdj> Δ+16 {[«2""»]|[«4""»]|[-4-]}
<MI 206b2 MOVE.L (A7)+,(A6-0x8)> Δ+4 {[«2""»]|[«4""»]}
<POP 206b4-206b6 StackAdj> Δ+6 {}
<MI 206b6 MOVEQ.L #0x00,D6> {}
<POP 206b8-206e4 Naked> Σ0 ↓ →0x206f4 ←0x20720
<MI 206b8 MOVE.L D6,D4> {}
<MI 206ba MOVEQ.L #0x02,D3> {}
<Call 0x206bc 0x10294> {}
?divs_d3_d4
<MI 206c2 ADD.L (A6-0x18),D4> {}
<POP 0x206c4 LimitCheck 0x0 ≤ D4 ≤ 0xfff> {}
<MI 206ce ASL.L #0x1,D4> {}
<MI 206d0 LEA.L 0x24c06,A0> {}
<MI 206d6 CLR.L D0> {}
<MI 206d8 MOVE.W (A0+D4.L+#0xa),D0> {}
<MI 206dc MOVE.L D0,D7> {}
<MI 206de MOVE.L D6,D0> {}
<MI 206e0 AND.L #0x01,D0> {}
<MI 206e2 BNE 0x206f4> {}
<POP 206e4-206f4 Naked> Σ0 ↓
<MI 206e4 MOVE.L D7,D4> {}
<MI 206e6 MOVE.L #0x100,D3> {}
<Call 0x206ec 0x10294> {}
?divs_d3_d4
<MI 206f2 MOVE.L D4,D7> {}
<POP 206f4-20702 Naked> Σ0 ↓ →0x2070a ←0x206b8
<MI 206f4 ANDI.L #0x000000ff,D7> {}
<MI 206fa CMPI.L #0x00000020,D7> {}
<MI 20700 BLT 0x2070a> {}
<POP 20702-2070a Naked> Σ0 ↓ →0x20712
<MI 20702 CMPI.L #0x0000007e,D7> {}
<MI 20708 BLE 0x20712> {}
<POP 2070a-20712 Naked> Σ0 Δ-6 →0x20720 ←0x206f4
<MI 2070a MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<Const 0x2070c 0x2e.2> Δ-2 {[4, '(A6-0x8)']|[#46]}
<MI 20710 BRA 0x20720> {[4, '(A6-0x8)']|[#46]}
<POP 20712-20720 Naked> Σ0 Δ-6 ↓ ←0x20702
<MI 20712 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<POP 0x20714 LimitCheck 0x0 ≤ D7 ≤ 0xff> {[4, '(A6-0x8)']}
<MI 2071e MOVE.B D7,-(A7)> Δ-2 {[4, '(A6-0x8)']|[2, 'D7']}
<POP 20720-20732 Naked> Σ-6 Δ+6 ↓ →0x206b8 ←0x2070a
<Call 0x20720 0x102c0> {[-6-]}
AppendChar(MOD b : String; a : char)
<POP 20726-20728 StackAdj> Δ+6 {}
<MI 20728 ADDQ.L #0x1,D6> {}
<MI 2072a CMPI.L #0x0000000f,D6> {}
<MI 20730 BLE 0x206b8> {}
<POP 20732-2073a Naked> Σ0 Δ-4 ↓
<MI 20732 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<Call 0x20734 0x103e0> {[4, '(A6-0x8)']}
WriteConsoleStringCrLf(str : String)
<POP 2073a-20742 Naked> Σ-4 Δ+4 →0x2058a ←0x20612
<POP 2073a-2073c StackAdj> Δ+4 {}
<MI 2073c ADDQ.L #0x8,(A6-0x18)> {}
<MI 2073e BRA 0x2058a> {}
<POP 20742-20746 Naked> Σ0 ↓ →0x20782 ←0x2058a
<MI 20742 TST.L D5> {}
<MI 20744 BEQ 0x20782> {}
<POP 20746-20782 Naked> Σ0 ↓
<Blob 0x20746 [22] @> Δ-22 {[«22""»]}
<POP 20758-2075a StackAdj> Δ-8 {[«22""»]|[-8-]}
<MI 2075a MOVE.L D5,-(A7)> Δ-4 {[«22""»]|[-8-]|[4, 'D5']}
<Call 0x2075c 0x102e4> {[«22""»]|[-8-]|[4, 'D5']}
Long2String(a : Long) : String
<Lit 0x20762 21> {[«22""»]|[-8-]|[$$ lines same as above.]}
<Call 0x20770 0x102d0> {[«22""»]|[-8-]|[$$ lines same as above.]}
StringCat2(a, b : String) : String
<POP 20776-20778 StackAdj> Δ+8 {[«22""»]|[-4-]}
<Call 0x20778 0x103e0> {[«22""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 2077e-20782 StackAdj> Δ+26 {}
<POP 20782-2078e Naked> Σ0 ↓ ←0x20742
<Pointer.fp 0x20782 <LVAR -0x00c @ 4(r)>> Δ-4 {[@@-12]}
<Call 0x20786 0x102bc> {[@@-12]}
FreeString(VAR a : String)
<POP 2078c-2078e StackAdj> Δ+4 {}
<POP 2078e-20796 Epilogue> Σ0
@ 20796
<LVAR -0x008 @ 1(r)>
<POP 20796-20822 Body>
<POP 20796-207ac Prologue> Σ0 ↓
<POP 207ac-207b6 RegCacheLoad> Σ0 ↓
<POP 207b6-207dc Naked> Σ0 ↓ →0x207ea
<MI 207b6 LEA.L 0x24c10,A0> {}
<MI 207bc MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Const 0x207be 0x2000.2> Δ-2 {[4, 'A0']|[#8192]}
<Call 0x207c0 0x10418> {[4, 'A0']|[#8192]}
FSCALL_10418
<POP 207c6-207c8 StackAdj> Δ+6 {}
<Pointer.fp 0x207c8 <LVAR -0x008 @ 1(r)>> Δ-4 {[@@-8]}
<Call 0x207ca 0x10408> {[@@-8]}
FSCALL_10408
<POP 207d0-207d2 StackAdj> Δ+4 {}
<MI 207d2 MOVEQ.L #-0x01,D7> {}
<MI 207d4 MOVE.B (A6-0x8),D0> {}
<MI 207d6 CMPI.B #0x07,D0> {}
<MI 207da BNE 0x207ea> {}
<POP 207dc-207ea Naked> Σ0 →0x2080a
<POP 207dc-207de StackAdj> Δ-4 {[-4-]}
<Call 0x207de 0x10430> {[-4-]}
FSCALL_10430
<MI 207e4 MOVE.L #0x2000,D7> {[-4-]}
<MI 207e6 SUB.L (A7)+,D7> Δ+4 {}
<MI 207e8 BRA 0x2080a> {}
<POP 207ea-207f0 Naked> Σ0 ↓ →0x207f4 ←0x207b6
<MI 207ea CMPI.B #0x06,D0> {}
<MI 207ee BNE 0x207f4> {}
<POP 207f0-207f4 Naked> Σ0 →0x2080a
<MI 207f0 MOVEQ.L #0x00,D7> {}
<MI 207f2 BRA 0x2080a> {}
<POP 207f4-207f8 Naked> Σ0 ↓ →0x207fc ←0x207ea
<MI 207f4 TST.B D0> {}
<MI 207f6 BNE 0x207fc> {}
<POP 207f8-207fc Naked> Σ0 →0x2080a
<MI 207f8 MOVE.L #0x2000,D7> {}
<MI 207fa BRA 0x2080a> {}
<POP 207fc-2080a Naked> Σ0 ↓ ←0x207f4
<Const 0x207fc 0x1.2> Δ-2 {[#1]}
<Pointer.fp 0x20800 <LVAR -0x008 @ 1(r)>> Δ-4 {[#1]|[@@-8]}
<Call 0x20802 0x10428> {[#1]|[@@-8]}
FSCALL_10428
<POP 20808-2080a StackAdj> Δ+6 {}
<POP 2080a-20812 Naked> Σ0 ↓ →0x2081a ←0x207dc ←0x207f0 ←0x207f8
<MI 2080a CMPI.L #0xffffffff,D7> {}
<MI 20810 BEQ 0x2081a> {}
<POP 20812-2081a Naked> Σ0 ↓
<MI 20812 MOVE.L D7,-(A7)> Δ-4 {[4, 'D7']}
<Call 0x20814 0x204dc> {[4, 'D7']}
<POP 20818-2081a StackAdj> Δ+4 {}
<POP 2081a-20822 Epilogue> Σ0 ←0x2080a
@ 20822
<LVAR 0x008 4(r)>
<POP 20822-2088a Body>
<POP 20822-20838 Prologue> Σ0 ↓
<POP 20838-2083e RegCacheLoad> Σ0 ↓
<POP 2083e-20842 Naked> Σ0 ↓ →0x20870
<MI 2083e TST.B 0x24c0e> {}
<MI 20840 BNE 0x20870> {}
<POP 20842-20870 Naked> Σ0 →0x20882
<Blob 0x20842 [14] @> Δ-14 {[«14""»]}
<POP 2084e-20850 StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x20850 14> {[«14""»]|[$$No device open]}
<Call 0x20864 0x2110c> {[«14""»]|[$$No device open]}
<POP 2086a-2086e StackAdj> Δ+18 {}
<MI 2086e BRA 0x20882> {}
<POP 20870-20878 Naked> Σ0 ↓ →0x20882 ←0x2083e
<MI 20870 MOVE.B 0x24c0e,D0> {}
<MI 20872 CMPI.B #0x03,D0> {}
<MI 20876 BNE 0x20882> {}
<POP 20878-20882 Naked> Σ0 ↓
<MI 20878 MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<Call 0x2087c 0x20796> {[4, '(A6+0x8)']}
<POP 20880-20882 StackAdj> Δ+4 {}
<POP 20882-2088a Epilogue> Σ0 ←0x20842 ←0x20870
@ 2088a
<LVAR -0x004 @ 1(r)>
<POP 2088a-20902 Body>
<POP 2088a-208a0 Prologue> Σ0 ↓
<POP 208a0-208a6 RegCacheLoad> Σ0 ↓
<POP 208a6-208b2 Naked> Σ0 ↓ →0x208de
<MI 208a6 MOVE.B 0x24c0e,D0> {}
<MI 208ac CMPI.B #0x03,D0> {}
<MI 208b0 BEQ 0x208de> {}
<POP 208b2-208de Naked> Σ0 →0x208fa
<Blob 0x208b2 [28] @> Δ-28 {[«28""»]}
<POP 208be-208c0 StackAdj> Δ-4 {[«28""»]|[-4-]}
<Lit 0x208c0 28> {[«28""»]|[$$Cannot rewind current device]}
<Call 0x208d2 0x2110c> {[«28""»]|[$$Cannot rewind current device]}
<POP 208d8-208dc StackAdj> Δ+32 {}
<MI 208dc BRA 0x208fa> {}
<POP 208de-208ee Naked> Σ0 ↓ →0x208fa ←0x208a6
<MI 208de CLR.B -(A7)> Δ-2 {[#0]}
<Pointer.fp 0x208e0 <LVAR -0x004 @ 1(r)>> Δ-4 {[#0]|[@@-4]}
<Call 0x208e2 0x10414> {[#0]|[@@-4]}
FSCALL_10414
<POP 208e8-208ea StackAdj> Δ+6 {}
<MI 208ea TST.B (A6-0x4)> {}
<MI 208ec BEQ 0x208fa> {}
<POP 208ee-208fa Naked> Σ0 ↓
<Const 0x208ee 0x1.2> Δ-2 {[#1]}
<Pointer.fp 0x208f0 <LVAR -0x004 @ 1(r)>> Δ-4 {[#1]|[@@-4]}
<Call 0x208f2 0x10428> {[#1]|[@@-4]}
FSCALL_10428
<POP 208f8-208fa StackAdj> Δ+6 {}
<POP 208fa-20902 Epilogue> Σ0 ←0x208b2 ←0x208de
@ 20902
<LVAR 0x00c 4(w)>
<LVAR 0x008 4(r)>
<LVAR -0x008 @ 4(rw)>
<POP 20902-2099e Body>
<POP 20902-20918 Prologue> Σ0 ↓
<POP 20918-20922 RegCacheLoad> Σ0 ↓
<POP 20922-2092c Naked> Σ0 ↓
<MI 20922 MOVE.L #0xffffffff,(A6+0xc)> {}
<MI 2092a MOVEQ.L #0x00,D7> {}
<POP 2092c-2098a Naked> Σ0 ↓ →0x20990 ←0x20990
<POP 0x2092c LimitCheck 0x0 ≤ D7 ≤ 0x3> {}
<MI 20932 MOVE.L D7,D4> {}
<MI 20934 MOVEQ.L #0x0a,D3> {}
<Call 0x20936 0x1028c> {}
?muls_d3_d4
<MI 2093c LEA.L 0x20214,A0> {}
<Blob 0x20940 [10] (A0+D4.L)> Δ-10 {[«10»]}
<POP 20950-20952 StackAdj> Δ-4 {[«10»]|[-4-]}
<Lit 0x20952> {[«10»]|[$$…]}
<Pointer.sp 0x20952 4> Δ-4
<Const 0x20956 0x1.2> Δ-2
<Const 0x20958 0xa.2> Δ-2
<Call 0x2095a 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 20960-20962 StackAdj> Δ+8
<MI 20962 MOVE.L (A7)+,(A6-0x8)> Δ+4 {[«10»]}
<POP 20964-20966 StackAdj> Δ+4 {[-6-]}
<MI 20966 MOVE.L (A6+0x8),(A7)> {[-2-]|[4, '(A6+0x8)']}
<MI 2096a MOVE.L (A6-0x8),-(A7)> Δ-4 {[-2-]|[4, '(A6+0x8)']|[4, '(A6-0x8)']}
<Call 0x2096c 0x102c8> {[-2-]|[4, '(A6+0x8)']|[4, '(A6-0x8)']}
StringEqual(a, b : String) : Byte
<POP 20972-20974 StackAdj> Δ+8 {[-2-]}
<MI 20974 MOVE.B (A7)+,D0> Δ+2 {}
<MI 20976 EXTB.W D0> {}
<POP 0x20978 LimitCheck 0x0 ≤ D0 ≤ 0x1> {}
<MI 2097a MOVE.B D0,D6> {}
<Pointer.fp 0x2097c <LVAR -0x008 @ 4(rw)>> Δ-4 {[@@-8]}
<Call 0x2097e 0x102bc> {[@@-8]}
FreeString(VAR a : String)
<POP 20984-20986 StackAdj> Δ+4 {}
<MI 20986 TST.B D6> {}
<MI 20988 BEQ 0x20990> {}
<POP 2098a-20990 Naked> Σ0 →0x20996
<MI 2098a MOVE.L D7,(A6+0xc)> {}
<MI 2098e BRA 0x20996> {}
<POP 20990-20996 Naked> Σ0 ↓ →0x2092c ←0x2092c
<MI 20990 ADDQ.L #0x1,D7> {}
<MI 20992 CMP.L #0x03,D7> {}
<MI 20994 BLE 0x2092c> {}
<POP 20996-2099e Epilogue> Σ0 ←0x2098a
@ 2099e
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 2099e-20a14 Body> Δ+12
<POP 2099e-209b4 Prologue> Σ0 ↓
<POP 209b4-209b8 RegCacheLoad> Σ0 ↓
<POP 209b8-209d6 Naked> Σ0 ↓ →0x20a0a
<MI 209b8 MOVEA.L (A6+0x8),A0> {}
<MI 209bc MOVE.B #0x01,(A0)> {}
<POP 209c0-209c2 StackAdj> Δ-4 {[-4-]}
<MI 209c2 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x10)']}
<Call 0x209c6 0x20902> {[-4-]|[4, '(A6+0x10)']}
<POP 209ca-209cc StackAdj> Δ+4 {[-4-]}
<MI 209cc MOVE.L (A7)+,D0> Δ+4 {}
<MI 209ce CMPI.L #0x00000003,D0> {}
<MI 209d4 BHI 0x20a0a> {}
<POP 209d6-209e0 Naked> Σ0 →0x209e8 →0x209f2 →0x209fa →0x20a02
<MI 209d6 ADD.W D0,D0> {}
<MI 209d8 SWITCH D0.W> {}
<POP 209e8-209ee Naked> Σ0 Δ-4 ↓ ←0x209d6
<MI 209e8 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<Call 0x209ea 0x20822> {[4, '(A6+0xc)']}
<POP 209ee-209f2 Naked> Σ-4 Δ+4 →0x20a0c ←0x209f2 ←0x209fa ←0x20a02
<POP 209ee-209f0 StackAdj> Δ+4 {}
<MI 209f0 BRA 0x20a0c> {}
<POP 209f2-209fa Naked> Σ0 Δ-4 →0x209ee ←0x209d6
<MI 209f2 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<Call 0x209f4 0x2088a> {[4, '(A6+0xc)']}
<MI 209f8 BRA 0x209ee> {[4, '(A6+0xc)']}
<POP 209fa-20a02 Naked> Σ0 Δ-4 →0x209ee ←0x209d6
<MI 209fa MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<Call 0x209fc 0x2023c> {[4, '(A6+0xc)']}
<MI 20a00 BRA 0x209ee> {[4, '(A6+0xc)']}
<POP 20a02-20a0a Naked> Σ0 Δ-4 →0x209ee ←0x209d6
<MI 20a02 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<Call 0x20a04 0x20476> {[4, '(A6+0xc)']}
<MI 20a08 BRA 0x209ee> {[4, '(A6+0xc)']}
<POP 20a0a-20a0c Naked> Σ0 ↓ ←0x209b8
<MI 20a0a CLR.B (A0)> {}
<POP 20a0c-20a14 Epilogue> Σ0 ←0x209ee
@ 20a14
<LVAR 0x008 4(r)>
<POP 20a14-20a4e Body>
<POP 20a14-20a2a Prologue> Σ0 ↓
<POP 20a2a-20a46 Naked> Σ0 ↓
<Call 0x20a2a 0x10398> {}
FSCALL_10398
<MI 20a30 MOVEA.L (A6+0x8),A0> {}
<MI 20a34 LEA.L 0x2020a,A1> {}
<BlockMove 10,A1,A0> {}
<MI 20a40 CLR.B 0x24c0e> {}
<POP 20a46-20a4e Epilogue> Σ0
@ 210ca
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 4(w)>
<POP 210ca-2110c Body>
<POP 210ca-210e0 Prologue> Σ0 ↓
<POP 210e0-210e4 Naked> Σ0 ↓
<MI 210e0 MOVEA.L (A6+0x8),A4> {}
<POP 210e4-210ea Naked> Σ0 ↓ →0x21104 ←0x210ea
<MI 210e4 CMPA.W #0x1,A4> {}
<MI 210e8 BEQ 0x21104> {}
<POP 210ea-21104 Naked> Σ0 →0x210e4
<MI 210ea MOVE.L A4,(A6-0x4)> {}
<MI 210ee MOVEA.L (A4+0x8),A4> {}
<Pointer.fp 0x210f2 <LVAR -0x004 @ 4(w)>> Δ-4 {[@@-4]}
<Const 0x210f6 0xc.4> Δ-4 {[@@-4]|[##12]}
<Call 0x210fa 0x102a8> {[@@-4]|[##12]}
Free2(a : Pointer; b : Long)
<POP 21100-21102 StackAdj> Δ+8 {}
<MI 21102 BRA 0x210e4> {}
<POP 21104-2110c Epilogue> Σ0 ←0x210e4
@ 2110c
<LVAR 0x008 4(r)>
<POP 2110c--0001 Body>
<POP 2110c-21122 Prologue> Σ0 ↓
<POP 21122-2112c Naked> Σ0 ↓ →0x21136
<MI 21122 MOVEA.L (A6+0x8),A0> {}
<MI 21126 CMPA.W #0x1,A0> {}
<MI 2112a BEQ 0x21136> {}
<POP 2112c-21136 Naked> Σ0 ↓
<MI 2112c MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Call 0x2112e 0x103e0> {[4, 'A0']}
WriteConsoleStringCrLf(str : String)
<POP 21134-21136 StackAdj> Δ+4 {}
<POP 21136-21144 Naked> Σ0 ←0x21122
<POP 21136-21144 Bailout> {}
<MI 21136 MOVEA.L (A5+0x8),A7>
<MI 2113a MOVEA.W #0x0,A6>
<MI 2113e JMP 0x249e8>
@ 2116a
<LVAR 0x008 1(rw)>
<POP 2116a-211a8 Body>
<POP 2116a-21180 Prologue> Σ0 ↓
<POP 21180-2118e Naked> Σ0 ↓ →0x21194
<MI 21180 MOVE.L 0x28c1e,D0> {}
<MI 21186 CMP.L 0x28c22,D0> {}
<MI 2118c BLE 0x21194> {}
<POP 2118e-21194 Naked> Σ0 →0x211a0
<MI 2118e CLR.B (A6+0x8)> {}
<MI 21192 BRA 0x211a0> {}
<POP 21194-211a0 Naked> Σ0 ↓ ←0x21180
<MI 21194 LEA.L 0x26c16,A0> {}
<MI 2119a MOVE.B (A0+D0.L+#0x7),(A6+0x8)> {}
<POP 211a0-211a8 Epilogue> Σ0 ←0x2118e
@ 211a8
<LVAR 0x008 1(rw)>
<POP 211a8-211ec Body>
<POP 211a8-211be Prologue> Σ0 ↓
<POP 211be-211c4 RegCacheLoad> Σ0 ↓
<POP 211c4-211ce Naked> Σ0 ↓ →0x211d4
<MI 211c4 MOVE.L 0x28c1e,D0> {}
<MI 211c6 CMP.L 0x28c22,D0> {}
<MI 211cc BLE 0x211d4> {}
<POP 211ce-211d4 Naked> Σ0 →0x211e0
<MI 211ce CLR.B (A6+0x8)> {}
<MI 211d2 BRA 0x211e0> {}
<POP 211d4-211e0 Naked> Σ0 ↓ ←0x211c4
<MI 211d4 LEA.L 0x26c16,A0> {}
<MI 211da MOVE.B (A0+D0.L+#0x7),(A6+0x8)> {}
<POP 211e0-211e4 Naked> Σ0 ↓ ←0x211ce
<MI 211e0 ADDQ.L #0x1,D0> {}
<MI 211e2 MOVE.L D0,0x28c1e> {}
<POP 211e4-211ec Epilogue> Σ0
@ 211ec
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 211ec-212c6 Body>
<POP 211ec-21202 Prologue> Σ0 ↓
<POP 21202-21214 RegCacheLoad> Σ0 ↓
<POP 21214-21220 Naked> Σ0 ↓ →0x2122a ←0x212ba
<POP 21214-21216 StackAdj> Δ-2 {[-2-]}
<Call 0x21216 0x2116a> {[-2-]}
<MI 2121a MOVE.B (A7)+,D0> Δ+2 {}
<MI 2121c CMP.B #0x5b,D0> {}
<MI 2121e BNE 0x2122a> {}
<POP 21220-2122a Naked> Σ0 →0x212ba
<Call 0x21220 0x244f2> {}
<MI 21226 BRA 0x212ba> {}
<POP 2122a-21236 Naked> Σ0 ↓ →0x2124e ←0x21214
<MI 2122a MOVE.L 0x28c1e,D6> {}
<POP 2122c-2122e StackAdj> Δ-2 {[-2-]}
<Call 0x2122e 0x211a8> {[-2-]}
<MI 21232 MOVE.B (A7)+,D5> Δ+2 {}
<MI 21234 BNE 0x2124e> {}
<POP 21236-2124c Naked> Σ0 →0x212be
<MI 21236 MOVEA.L (A6+0xc),A0> {}
<MI 2123a LEA.L 0x21024,A1> {}
<BlockMove 8,A1,A0> {}
<MI 21246 MOVEA.L (A6+0x8),A0> {}
<MI 21248 MOVE.B #0x02,(A0)> {}
<MI 2124a BRA 0x212be> {}
<POP 2124e-21252 Naked> Σ0 ↓ →0x2125a ←0x2122a
<MI 2124e CMP.B #0x2c,D5> {}
<MI 21250 BNE 0x2125a> {}
<POP 21252-2125a Naked> Σ0 →0x212aa
<MI 21252 MOVEA.L (A6+0x8),A0> {}
<MI 21254 MOVE.B #0x03,(A0)> {}
<MI 21258 BRA 0x212aa> {}
<POP 2125a-2125e Naked> Σ0 ↓ →0x21266 ←0x2124e
<MI 2125a CMP.B #0x3b,D5> {}
<MI 2125c BNE 0x21266> {}
<POP 2125e-21266 Naked> Σ0 →0x212aa
<MI 2125e MOVEA.L (A6+0x8),A0> {}
<MI 21260 MOVE.B #0x01,(A0)> {}
<MI 21264 BRA 0x212aa> {}
<POP 21266-2126c Naked> Σ0 ↓ →0x21272 ←0x2125a
<MI 21266 CMPI.B #0x5d,D5> {}
<MI 2126a BNE 0x21272> {}
<POP 2126c-21272 Naked> Σ0 →0x212aa
<MI 2126c MOVEA.L (A6+0x8),A0> {}
<MI 2126e MOVE.B #0x02,(A0)> {}
<MI 21270 BRA 0x212aa> {}
<POP 21272-21276 Naked> Σ0 ↓ ←0x21266
<MI 21272 MOVEA.L (A6+0x8),A0> {}
<MI 21274 CLR.B (A0)> {}
<POP 21276-21282 Naked> Σ0 ↓ →0x2128a ←0x212a8
<POP 21276-21278 StackAdj> Δ-2 {[-2-]}
<Call 0x21278 0x2116a> {[-2-]}
<MI 2127c MOVE.B (A7)+,D7> Δ+2 {}
<MI 2127e CMP.B #0x5b,D7> {}
<MI 21280 BNE 0x2128a> {}
<POP 21282-2128a Naked> Σ0 →0x212a8
<Call 0x21282 0x244f2> {}
<MI 21288 BRA 0x212a8> {}
<POP 2128a-2128e Naked> Σ0 ↓ →0x2129c ←0x21276
<MI 2128a CMP.B #0x3b,D7> {}
<MI 2128c BEQ 0x2129c> {}
<POP 2128e-21292 Naked> Σ0 ↓ →0x2129c
<MI 2128e CMP.B #0x2c,D7> {}
<MI 21290 BEQ 0x2129c> {}
<POP 21292-21298 Naked> Σ0 ↓ →0x2129c
<MI 21292 CMPI.B #0x5d,D7> {}
<MI 21296 BEQ 0x2129c> {}
<POP 21298-2129c Naked> Σ0 ↓ →0x212a0
<MI 21298 TST.B D7> {}
<MI 2129a BNE 0x212a0> {}
<POP 2129c-2129e Naked> Σ0 →0x212aa ←0x2128a ←0x2128e ←0x21292
<MI 2129c BRA 0x212aa> {}
<POP 212a0-212a8 Naked> Σ0 ↓ ←0x21298
<POP 212a0-212a2 StackAdj> Δ-2 {[-2-]}
<Call 0x212a2 0x211a8> {[-2-]}
<MI 212a6 MOVE.B (A7)+,D7> Δ+2 {}
<POP 212a8-212aa Naked> Σ0 →0x21276 ←0x21282
<MI 212a8 BRA 0x21276> {}
<POP 212aa-212ba Naked> Σ0 →0x212be ←0x21252 ←0x2125e ←0x2126c ←0x2129c
<MI 212aa MOVEA.L (A6+0xc),A0> {}
<MI 212ae MOVE.L D6,(A0)> {}
<MI 212b0 MOVE.L 0x28c1e,(A0+0x4)> {}
<MI 212b4 SUBQ.L #0x1,(A0+0x4)> {}
<MI 212b8 BRA 0x212be> {}
<POP 212ba-212be Naked> Σ0 →0x21214 ←0x21220
<MI 212ba BRA 0x21214> {}
<POP 212be-212c6 Epilogue> Σ0 ←0x21236 ←0x212aa
@ 212c6
<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 212c6-21364 Body>
<POP 212c6-212dc Prologue> Σ0 ↓
<POP 212dc-212e6 RegCacheLoad> Σ0 ↓
<POP 212e6-212f2 Naked> Σ0 ↓ →0x212f8
<MI 212e6 MOVEA.L (A6+0x8),A0> {}
<MI 212ea MOVE.B (A0),D0> {}
<MI 212ec CMPI.B #0x01,D0> {}
<MI 212f0 BEQ 0x212f8> {}
<POP 212f2-212f8 Naked> Σ0 ↓ →0x21306
<MI 212f2 CMPI.B #0x02,D0> {}
<MI 212f6 BNE 0x21306> {}
<POP 212f8-21306 Naked> Σ0 →0x21342 ←0x212e6
<MI 212f8 MOVE.L 0x21024,(A6-0xc)> {}
<MI 212fc MOVE.L 0x21028,(A6-0x8)> {}
<MI 21302 MOVE.B D0,(A6-0x4)> {}
<MI 21304 BRA 0x21342> {}
<POP 21306-21318 Naked> Σ0 ↓ →0x21334 ←0x212f2 ←0x2133c
<Pointer.fp 0x21306 <LVAR -0x00c @ 4(w)>> Δ-4 {[@@-12]}
<Pointer.fp 0x21308 <LVAR -0x004 @ 1(rw)>> Δ-4 {[@@-12]|[@@-4]}
<Call 0x2130a 0x211ec> {[@@-12]|[@@-4]}
<POP 2130e-21310 StackAdj> Δ+8 {}
<MI 21310 MOVEA.L (A6+0x8),A0> {}
<MI 21314 TST.B (A6-0x4)> {}
<MI 21316 BEQ 0x21334> {}
<POP 21318-2131e Naked> Σ0 ↓ →0x21334
<MI 21318 MOVE.B (A0),D0> {}
<MI 2131a CMP.B #0x03,D0> {}
<MI 2131c BNE 0x21334> {}
<POP 2131e-21334 Naked> Σ0 →0x2133c
<MI 2131e MOVE.B (A6-0x4),D0> {}
<MI 21320 EXTB.W D0> {}
<POP 0x21322 LimitCheck 0x0 ≤ D0 ≤ 0x3> {}
<MI 21324 MOVE.B D0,(A0)> {}
<MI 21326 MOVE.L 0x21024,(A6-0xc)> {}
<MI 2132a MOVE.L 0x21028,(A6-0x8)> {}
<MI 21330 CLR.B (A6-0x4)> {}
<MI 21332 BRA 0x2133c> {}
<POP 21334-2133c Naked> Σ0 ↓ ←0x21306 ←0x21318
<MI 21334 MOVE.B (A6-0x4),D0> {}
<MI 21336 EXTB.W D0> {}
<POP 0x21338 LimitCheck 0x0 ≤ D0 ≤ 0x3> {}
<MI 2133a MOVE.B D0,(A0)> {}
<POP 2133c-21342 Naked> Σ0 ↓ →0x21306 ←0x2131e
<MI 2133c MOVE.B (A6-0x4),D0> {}
<MI 2133e CMP.B #0x03,D0> {}
<MI 21340 BEQ 0x21306> {}
<POP 21342-2135c Naked> Σ0 ↓ ←0x212f8
<MI 21342 MOVEA.L (A6+0x10),A0> {}
<MI 21346 LEA.L (A6-0xc),A1> {}
<BlockMove 8,A1,A0> {}
<MI 21350 MOVEA.L (A6+0xc),A0> {}
<MI 21354 MOVE.B (A6-0x4),D0> {}
<MI 21356 EXTB.W D0> {}
<POP 0x21358 LimitCheck 0x0 ≤ D0 ≤ 0x3> {}
<MI 2135a MOVE.B D0,(A0)> {}
<POP 2135c-21364 Epilogue> Σ0
@ 21364
<LVAR 0x008 4(rw)>
<LVAR -0x004 1(rw)>
<LVAR -0x010 2(rw)>
<POP 21364-2146c Body>
<POP 21364-2137a Prologue> Σ0 ↓
<POP 2137a-21388 RegCacheLoad> Σ0 ↓
<POP 21388-213a0 Naked> Σ0 Δ-4 ↓
<MI 21388 MOVEQ.L #0x01,D6> {}
<MI 2138a CLR.W (A6-0x10)> {}
<MI 2138c MOVEQ.L #0x01,D5> {}
<POP 2138e-21390 StackAdj> Δ-4 {[-4-]}
<MI 21390 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x21392 0x102f0> {[-4-]|[4, '(A6+0x8)']}
ToUpper(a : String) : String
<POP 21398-2139a StackAdj> Δ+4 {[-4-]}
<MI 2139a MOVE.L (A7)+,(A6+0x8)> Δ+4 {}
<MI 2139c MOVEA.L (A6+0x8),A0> {}
<MI 2139e MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<POP 213a0-213ac Naked> Σ-4 ↓ →0x2145a ←0x21440
<MI 213a0 MOVEA.L (A7),A0> {[-4-]}
<MI 213a2 MOVE.W (A0),D0> {[-4-]}
<MI 213a4 EXTW.L D0> {[-4-]}
<MI 213a6 CMP.L D0,D6> {[-4-]}
<MI 213a8 BGT 0x2145a> {[-4-]}
<POP 213ac-213be Naked> Σ-4 ↓ →0x213c0
<MI 213ac CLR.L D0> {[-4-]}
<MI 213ae MOVE.B (A0+D6.L+#0x1),D0> {[-4-]}
<MI 213b2 ANDI.W #0x007f,D0> {[-4-]}
<MI 213b6 MOVE.B D0,(A6-0x4)> {[-4-]}
<MI 213b8 CMPI.B #0x09,D0> {[-4-]}
<MI 213bc BNE 0x213c0> {[-4-]}
<POP 213be-213c0 Naked> Σ-4 ↓
<MI 213be MOVE.B #0x20,(A6-0x4)> {[-4-]}
<POP 213c0-213cc Naked> Σ-4 ↓ →0x213fc ←0x213ac
<MI 213c0 CLR.L D0> {[-4-]}
<MI 213c2 MOVE.B (A6-0x4),D0> {[-4-]}
<MI 213c4 SUB.W #0x20,D0> {[-4-]}
<MI 213c6 CMPI.W #0x000c,D0> {[-4-]}
<MI 213ca BHI 0x213fc> {[-4-]}
<POP 213cc-213d6 Naked> Σ-4 →0x213f4 →0x213f0 →0x213fc →0x213fc →0x213fc →0x213fc →0x213fc →0x213fc →0x213fc →0x213fc →0x213fc →0x213fc →0x213f8
<MI 213cc ADD.W D0,D0> {[-4-]}
<MI 213ce SWITCH D0.W> {[-4-]}
<POP 213f0-213f2 Naked> Σ-4 →0x2145a ←0x213cc
<MI 213f0 BRA 0x2145a> {[-4-]}
<POP 213f4-213f8 Naked> Σ-4 →0x213fe ←0x213cc
<MI 213f4 MOVEQ.L #0x00,D7> {[-4-]}
<MI 213f6 BRA 0x213fe> {[-4-]}
<POP 213f8-213fc Naked> Σ-4 →0x213fe ←0x213cc
<MI 213f8 MOVEQ.L #0x01,D7> {[-4-]}
<MI 213fa BRA 0x213fe> {[-4-]}
<POP 213fc-213fe Naked> Σ-4 ↓ ←0x213c0 ←0x213cc ←0x213cc ←0x213cc ←0x213cc ←0x213cc ←0x213cc ←0x213cc ←0x213cc ←0x213cc ←0x213cc
<MI 213fc MOVEQ.L #0x02,D7> {[-4-]}
<POP 213fe-21422 Naked> Σ-4 →0x21428 →0x2142a →0x21434 ←0x213f4 ←0x213f8
<MI 213fe MOVEQ.L #0x03,D0> {[-4-]}
<MI 21400 MULS.W (A6-0x10),D0> {[-4-]}
<MI 21402 LEA.L 0x2102c,A0> {[-4-]}
<MI 21406 LEA.L (A0+D0.W),A0> {[-4-]}
<MI 2140a CLR.L D0> {[-4-]}
<MI 2140c MOVE.B (A0+D7.W),D0> {[-4-]}
<POP 0x21410 LimitCheck 0x0 ≤ D0 ≤ 0x2> {[-4-]}
<MI 21418 ADD.W D0,D0> {[-4-]}
<MI 2141a SWITCH D0.W> {[-4-]}
<POP 21428-2142a Naked> Σ-4 →0x21440 ←0x213fe
<MI 21428 BRA 0x21440> {[-4-]}
<POP 2142a-21434 Naked> Σ-4 →0x21440 ←0x213fe
<MI 2142a MOVEA.L (A7),A0> {[-4-]}
<MI 2142c MOVE.B (A6-0x4),(A0+D5.L+#0x1)> {[-4-]}
<MI 21430 ADDQ.L #0x1,D5> {[-4-]}
<MI 21432 BRA 0x21440> {[-4-]}
<POP 21434-21440 Naked> Σ-4 ↓ ←0x213fe
<MI 21434 MOVEA.L (A7),A0> {[-4-]}
<MI 21436 MOVE.B #0x2c,(A0+D5.L+#0x1)> {[-4-]}
<MI 2143c ADDQ.L #0x1,D5> {[-4-]}
<MI 2143e SUBQ.L #0x1,D6> {[-4-]}
<POP 21440-2145a Naked> Σ-4 →0x213a0 ←0x21428 ←0x2142a
<MI 21440 MOVEQ.L #0x03,D0> {[-4-]}
<MI 21442 MULS.W (A6-0x10),D0> {[-4-]}
<MI 21444 LEA.L 0x21035,A0> {[-4-]}
<MI 21448 LEA.L (A0+D0.W),A0> {[-4-]}
<MI 2144c CLR.L D0> {[-4-]}
<MI 2144e MOVE.B (A0+D7.W),D0> {[-4-]}
<MI 21452 MOVE.W D0,(A6-0x10)> {[-4-]}
<MI 21454 ADDQ.L #0x1,D6> {[-4-]}
<MI 21456 BRA 0x213a0> {[-4-]}
<POP 2145a-21464 Naked> Σ-4 Δ+4 ↓ ←0x213a0 ←0x213f0
<MI 2145a MOVEA.L (A7),A0> {[-4-]}
<MI 2145c MOVE.L D5,D0> {[-4-]}
<MI 2145e SUBQ.L #0x1,D0> {[-4-]}
<MI 21460 MOVE.W D0,(A0)> {[-4-]}
<POP 21462-21464 StackAdj> Δ+4 {}
<POP 21464-2146c Epilogue> Σ0
@ 2146c
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x002 @ 1(r)>
<LVAR -0x00a @>
<LVAR -0x00e @ 4(r)>
<LVAR -0x014 @ 1(r)>
<POP 2146c-21518 Body>
<POP 2146c-21482 Prologue> Σ0 ↓
<POP 21482-21488 RegCacheLoad> Σ0 ↓
<POP 21488-21496 Naked> Σ0 ↓ →0x2149e
<POP 21488-2148a StackAdj> Δ-2 {[-2-]}
<Call 0x2148a 0x2116a> {[-2-]}
<MI 2148e MOVE.B (A7)+,D0> Δ+2 {}
<MI 21490 CMPI.B #0x5b,D0> {}
<MI 21494 BNE 0x2149e> {}
<POP 21496-2149e Naked> Σ0 ↓
<POP 21496-21498 StackAdj> Δ-2 {[-2-]}
<Call 0x21498 0x211a8> {[-2-]}
<MI 2149c MOVE.B (A7)+,D7> Δ+2 {}
<POP 2149e-214a8 Naked> Σ0 ↓ ←0x21488
<MI 2149e MOVEA.L (A6+0xc),A0> {}
<MI 214a2 MOVE.L #0x01,(A0)> {}
<MI 214a4 CLR.B (A6-0x14)> {}
<POP 214a8-214c2 Naked> Σ0 ↓ →0x214f8 ←0x214f8
<Pointer.fp 0x214a8 <LVAR -0x00a @>> Δ-4 {[@@-10]}
<Pointer.fp 0x214ac <LVAR -0x002 @ 1(r)>> Δ-4 {[@@-10]|[@@-2]}
<Pointer.fp 0x214b0 <LVAR -0x014 @ 1(r)>> Δ-4 {[@@-10]|[@@-2]|[@@-20]}
<Call 0x214b4 0x212c6> {[@@-10]|[@@-2]|[@@-20]}
<POP 214b8-214bc StackAdj> Δ+12 {}
<MI 214bc TST.B (A6-0x2)> {}
<MI 214c0 BNE 0x214f8> {}
<POP 214c2-214ee Naked> Σ0 ↓ →0x214f2
<Pointer.fp 0x214c2 <LVAR -0x00e @ 4(r)>> Δ-4 {[@@-14]}
<Const 0x214c4 0xc.4> Δ-4 {[@@-14]|[##12]}
<Call 0x214c8 0x1029c> {[@@-14]|[##12]}
Malloc1(length : Long) : Pointer
<POP 214ce-214d0 StackAdj> Δ+8 {}
<MI 214d0 MOVEA.L (A6-0xe),A0> {}
<MI 214d2 MOVEA.L A0,A1> {}
<MI 214d4 LEA.L (A6-0xa),A2> {}
<BlockMove 8,A2,A1> {}
<MI 214e0 MOVE.L #0x01,(A0+0x8)> {}
<MI 214e4 MOVEA.L (A6+0xc),A0> {}
<MI 214e8 MOVEA.L (A0),A1> {}
<MI 214ea CMPA.W #0x01,A1> {}
<MI 214ec BNE 0x214f2> {}
<POP 214ee-214f2 Naked> Σ0 →0x214f6
<MI 214ee MOVE.L (A6-0xe),(A0)> {}
<MI 214f0 BRA 0x214f6> {}
<POP 214f2-214f6 Naked> Σ0 ↓ ←0x214c2
<MI 214f2 MOVE.L (A6-0xe),(A4+0x8)> {}
<POP 214f6-214f8 Naked> Σ0 ↓ ←0x214ee
<MI 214f6 MOVEA.L (A6-0xe),A4> {}
<POP 214f8-214fe Naked> Σ0 ↓ →0x214a8 ←0x214a8
<MI 214f8 TST.B (A6-0x2)> {}
<MI 214fc BEQ 0x214a8> {}
<POP 214fe-2150e Naked> Σ0 ↓ →0x21510
<MI 214fe MOVEA.L (A6+0x8),A0> {}
<MI 21502 CLR.B (A0)> {}
<MI 21504 MOVE.B (A6-0x2),D0> {}
<MI 21508 CMPI.B #0x02,D0> {}
<MI 2150c BNE 0x21510> {}
<POP 2150e-21510 Naked> Σ0 ↓
<MI 2150e ADDQ.B #0x1,(A0)> {}
<POP 21510-21518 Epilogue> Σ0 ←0x214fe
@ 21518
<LVAR 0x00c 4(w)>
<LVAR 0x008 4(r)>
<POP 21518-2154e Body>
<POP 21518-2152e Prologue> Σ0 ↓
<POP 2152e-21534 Naked> Σ0 ↓
<MI 2152e MOVEQ.L #-0x01,D7> {}
<MI 21530 MOVEA.L (A6+0x8),A4> {}
<POP 21534-2153a Naked> Σ0 ↓ →0x21542 ←0x2153a
<MI 21534 CMPA.W #0x1,A4> {}
<MI 21538 BEQ 0x21542> {}
<POP 2153a-21542 Naked> Σ0 →0x21534
<MI 2153a ADDQ.L #0x1,D7> {}
<MI 2153c MOVEA.L (A4+0x8),A4> {}
<MI 21540 BRA 0x21534> {}
<POP 21542-21546 Naked> Σ0 ↓ ←0x21534
<MI 21542 MOVE.L D7,(A6+0xc)> {}
<POP 21546-2154e Epilogue> Σ0
@ 2154e
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 2154e-215da Body>
<POP 2154e-21564 Prologue> Σ0 ↓
<POP 21564-21566 RegCacheLoad> Σ0 ↓
<POP 21566-2157a Naked> Σ0 ↓ →0x215d2
<POP 21566-21568 StackAdj> Δ-4 {[-4-]}
<MI 21568 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']}
<Call 0x2156c 0x21518> {[-4-]|[4, '(A6+0xc)']}
<POP 21570-21572 StackAdj> Δ+4 {[-4-]}
<MI 21572 MOVE.L (A7)+,D0> Δ+4 {}
<MI 21574 CMP.L (A6+0x8),D0> {}
<MI 21578 BEQ 0x215d2> {}
<POP 2157a-215d2 Naked> Σ0 ↓
<MI 2157a MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<Call 0x2157e 0x210ca> {[4, '(A6+0xc)']}
<POP 21582-21584 StackAdj> Δ+4 {}
<Blob 0x21584 [32] @> Δ-32 {[«32""»]}
<Blob 0x21590 [10] (A6+0x1a)> Δ-10 {[«32""»]|[«10»]}
<POP 2159c-2159e StackAdj> Δ-8 {[«32""»]|[«10»]|[-8-]}
<Lit 0x2159e 32> {[«32""»]|[«10»]|[-4-]|[$$Wrong number of arguments for :_]}
<POP 215ae-215b0 StackAdj> Δ-4 {[«32""»]|[«10»]|[-4-]|[$$Wrong number of arguments for :_]|[-4-]}
<Lit 0x215b0> {[«32""»]|[«10»]|[-4-]|[$$Wrong number of arguments for :_]|[$$…]}
<Pointer.sp 0x215b0 12> Δ-4
<Const 0x215b4 0x1.2> Δ-2
<Const 0x215b6 0xa.2> Δ-2
<Call 0x215ba 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 215c0-215c2 StackAdj> Δ+8
<Call 0x215c2 0x102d0> {[«32""»]|[«10»]|[-4-]|[$$Wrong number of arguments for :_]|[$$…]}
StringCat2(a, b : String) : String
<POP 215c8-215ca StackAdj> Δ+8 {[«32""»]|[«10»]|[-4-]}
<Call 0x215ca 0x2110c> {[«32""»]|[«10»]|[-4-]}
<POP 215ce-215d2 StackAdj> Δ+46 {}
<POP 215d2-215da Epilogue> Σ0 ←0x21566
@ 215da
<LVAR 0x014 1(rw)>
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 215da-21660 Body> Δ-4
<POP 215da-215f0 Prologue> Σ0 ↓
<POP 215f0-21604 Naked> Σ0 ↓ →0x21652
<MI 215f0 CLR.B (A6+0x14)> {}
<MI 215f4 MOVE.L (A6+0x10),D0> {}
<MI 215f8 ADD.L (A6+0x8),D0> {}
<MI 215fc CMP.L 0x28c22,D0> {}
<MI 21602 BGT 0x21652> {}
<POP 21604-2160a Naked> Σ0 Δ-4 ↓
<MI 21604 MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<MI 21608 MOVEQ.L #0x01,D7> {[4, '(A6+0x8)']}
<POP 2160a-2160e Naked> Σ-4 ↓ →0x21650 ←0x2164c
<MI 2160a CMP.L (A7),D7> {[-4-]}
<MI 2160c BGT 0x21650> {[-4-]}
<POP 2160e-21648 Naked> Σ-4 ↓ →0x2164c
<MI 2160e MOVE.L (A6+0x10),D0> {[-4-]}
<MI 21612 ADD.L D7,D0> {[-4-]}
<MI 21614 SUBQ.L #0x1,D0> {[-4-]}
<POP 0x21616 LimitCheck 0x0 ≤ D0 ≤ 0x1fff> {[-4-]}
<MI 21620 LEA.L 0x26c16,A0> {[-4-]}
<MI 21626 MOVE.L (A6+0xc),D1> {[-4-]}
<MI 2162a ADD.L D7,D1> {[-4-]}
<MI 2162c SUBQ.L #0x1,D1> {[-4-]}
<MI 2162e SUBQ.L #0x1,D1> {[-4-]}
<POP 0x21630 LimitCheck 0x0 ≤ D1 ≤ 0x3e> {[-4-]}
<MI 2163a LEA.L 0x20c26,A1> {[-4-]}
<MI 2163e MOVE.B (A0+D0.L+#0x8),D0> {[-4-]}
<MI 21642 CMP.B (A1+D1.L),D0> {[-4-]}
<MI 21646 BEQ 0x2164c> {[-4-]}
<POP 21648-2164c Naked> Σ-4 Δ+4 →0x21658
<POP 21648-2164a StackAdj> Δ+4 {}
<MI 2164a BRA 0x21658> {}
<POP 2164c-21650 Naked> Σ-4 ↓ →0x2160a ←0x2160e
<MI 2164c ADDQ.L #0x1,D7> {[-4-]}
<MI 2164e BVC 0x2160a> {[-4-]}
<POP 21650-21652 Naked> Σ-4 Δ+4 ↓ ←0x2160a
<POP 21650-21652 StackAdj> Δ+4 {}
<POP 21652-21658 Naked> Σ0 ↓ ←0x215f0
<MI 21652 MOVE.B #0x01,(A6+0x14)> {}
<POP 21658-21660 Epilogue> Σ0 ←0x21648
@ 21660
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 21660-216ea Body>
<POP 21660-21676 Prologue> Σ0 ↓
<POP 21676-21680 RegCacheLoad> Σ0 ↓
<POP 21680-21684 Naked> Σ0 ↓ →0x216c2
<MI 21680 TST.L (A6+0x8)> {}
<MI 21682 BGE 0x216c2> {}
<POP 21684-21692 Naked> Σ0 ↓ →0x216c2
<MI 21684 MOVE.L (A6+0x8),D0> {}
<MI 21686 NEG.L D0> {}
<MI 21688 ADD.L 0x28c22,D0> {}
<MI 2168a CMPI.L #0x00002000,D0> {}
<MI 21690 BLE 0x216c2> {}
<POP 21692-216c2 Naked> Σ0 ↓
<Blob 0x21692 [28] @> Δ-28 {[«28""»]}
<POP 216a4-216a6 StackAdj> Δ-4 {[«28""»]|[-4-]}
<Lit 0x216a6 27> {[«28""»]|[$$Evaluation buffer overflow.]}
<Call 0x216ba 0x2110c> {[«28""»]|[$$Evaluation buffer overflow.]}
<POP 216be-216c2 StackAdj> Δ+32 {}
<POP 216c2-216e2 Naked> Σ0 ↓ ←0x21680 ←0x21684
<MI 216c2 LEA.L 0x26c1e,A0> {}
<MI 216c8 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Blob 0x216ca [4] 0x28c22> Δ-4 {[4, 'A0']|[«4»]}
<MI 216cc MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, 'A0']|[«4»]|[4, '(A6+0xc)']}
<MI 216d0 MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, 'A0']|[«4»]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x216d2 0x10364> {[4, 'A0']|[«4»]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
MovStringTail(Base, Len, Ptr, Delta)
<POP 216d8-216dc StackAdj> Δ+16 {}
<MI 216dc MOVE.L 0x28c22,D0> {}
<MI 216de SUB.L (A6+0x8),D0> {}
<MI 216e0 MOVE.L D0,0x28c22> {}
<POP 216e2-216ea Epilogue> Σ0
@ 216ea
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 216ea-21774 Body>
<POP 216ea-21700 Prologue> Σ0 ↓
<POP 21700-21704 RegCacheLoad> Σ0 ↓
<POP 21704-21724 Naked> Σ0 Δ-8 ↓
<MI 21704 MOVEA.L (A6+0x8),A0> {}
<MI 21708 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 2170a MOVEA.L (A6+0xc),A1> {[4, 'A0']}
<MI 2170c MOVE.L (A1),-(A7)> Δ-4 {[4, 'A0']|[4, '(A1)']}
<MI 2170e MOVE.W (A0),D0> {[4, 'A0']|[4, '(A1)']}
<MI 21710 EXTW.L D0> {[4, 'A0']|[4, '(A1)']}
<MI 21712 NEG.L D0> {[4, 'A0']|[4, '(A1)']}
<MI 21714 MOVE.L D0,-(A7)> Δ-4 {[4, 'A0']|[4, '(A1)']|[4, 'D0']}
<Call 0x21716 0x21660> {[4, 'A0']|[4, '(A1)']|[4, 'D0']}
<POP 2171a-2171c StackAdj> Δ+8 {[4, 'A0']}
<MI 2171c MOVE.W (A0),D0> {[4, 'A0']}
<MI 2171e EXTW.L D0> {[4, 'A0']}
<MI 21720 MOVE.L D0,-(A7)> Δ-4 {[4, 'A0']|[4, 'D0']}
<MI 21722 MOVEQ.L #0x01,D7> {[4, 'A0']|[4, 'D0']}
<POP 21724-21728 Naked> Σ-8 ↓ →0x2175e ←0x21728
<MI 21724 CMP.L (A7),D7> {[-8-]}
<MI 21726 BGT 0x2175e> {[-8-]}
<POP 21728-2175e Naked> Σ-8 ↓ →0x21724
<MI 21728 MOVEA.L (A6+0xc),A0> {[-8-]}
<MI 2172a MOVE.L D7,D0> {[-8-]}
<MI 2172c ADD.L (A0),D0> {[-8-]}
<MI 2172e SUBQ.L #0x1,D0> {[-8-]}
<MI 21730 SUBQ.L #0x1,D0> {[-8-]}
<POP 0x21732 LimitCheck 0x0 ≤ D0 ≤ 0x1fff> {[-8-]}
<MI 2173c LEA.L 0x26c16,A0> {[-8-]}
<MI 21742 MOVE.L D7,D1> {[-8-]}
<MI 21744 SUBQ.L #0x1,D1> {[-8-]}
<POP 0x21746 LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-8-]}
<MI 21750 MOVEA.L (A7+0x4),A1> {[-8-]}
<MI 21754 MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x8)> {[-8-]}
<MI 2175a ADDQ.L #0x1,D7> {[-8-]}
<MI 2175c BVC 0x21724> {[-8-]}
<POP 2175e-2176c Naked> Σ-8 Δ+8 ↓ ←0x21724
<POP 2175e-21760 StackAdj> Δ+4 {[-4-]}
<MI 21760 MOVEA.L (A6+0xc),A0> {[-4-]}
<MI 21762 MOVEA.L (A7),A1> {[-4-]}
<MI 21764 MOVE.W (A1),D0> {[-4-]}
<MI 21766 EXTW.L D0> {[-4-]}
<MI 21768 ADD.L D0,(A0)> {[-4-]}
<POP 2176a-2176c StackAdj> Δ+4 {}
<POP 2176c-21774 Epilogue> Σ0
@ 21774
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 21774-218f4 Body>
<POP 21774-2178a Prologue> Σ0 ↓
<POP 2178a-21798 RegCacheLoad> Σ0 ↓
<POP 21798-217aa Naked> Σ0 ↓
<MI 21798 MOVEQ.L #0x00,D7> {}
<MI 2179a MOVEA.L (A6+0xc),A0> {}
<MI 2179e CLR.L (A0)> {}
<MI 217a0 MOVEA.L (A6+0x8),A0> {}
<MI 217a2 CLR.L (A0)> {}
<MI 217a4 MOVE.L 0x28c1e,D6> {}
<POP 217aa-217ca Naked> Σ0 ↓ →0x2189c ←0x218a6 ←0x218ac
<MI 217aa MOVE.L D6,D0> {}
<MI 217ac SUBQ.L #0x1,D0> {}
<POP 0x217ae LimitCheck 0x0 ≤ D0 ≤ 0x1fff> {}
<MI 217b8 LEA.L 0x26c16,A0> {}
<MI 217be MOVE.B (A0+D0.L+#0x8),D0> {}
<MI 217c2 CMPI.B #0x5b,D0> {}
<MI 217c6 BNE 0x2189c> {}
<POP 217ca-217de Naked> Σ0 ↓ →0x2185c
<POP 217ca-217cc StackAdj> Δ-2 {[-2-]}
<MI 217cc MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x217ce 0x1.4> Δ-4 {[-2-]|[4, 'D6']|[##1]}
<Const 0x217d2 0x3.4> Δ-4 {[-2-]|[4, 'D6']|[##1]|[##3]}
<Call 0x217d6 0x215da> {[-2-]|[4, 'D6']|[##1]|[##3]}
<POP 217d8-217da StackAdj> Δ+12 {[-2-]}
<MI 217da TST.B (A7)+> Δ+2 {}
<MI 217dc BNE 0x2185c> {}
<POP 217de-217f0 Naked> Σ0 ↓ →0x2185c
<POP 217de-217e0 StackAdj> Δ-2 {[-2-]}
<MI 217e0 MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x217e2 0x4.4> Δ-4 {[-2-]|[4, 'D6']|[##4]}
<Const 0x217e4 0x3.4> Δ-4 {[-2-]|[4, 'D6']|[##4]|[##3]}
<Call 0x217e8 0x215da> {[-2-]|[4, 'D6']|[##4]|[##3]}
<POP 217ea-217ec StackAdj> Δ+12 {[-2-]}
<MI 217ec TST.B (A7)+> Δ+2 {}
<MI 217ee BNE 0x2185c> {}
<POP 217f0-21802 Naked> Σ0 ↓ →0x2185c
<POP 217f0-217f2 StackAdj> Δ-2 {[-2-]}
<MI 217f2 MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x217f4 0x7.4> Δ-4 {[-2-]|[4, 'D6']|[##7]}
<Const 0x217f8 0x4.4> Δ-4 {[-2-]|[4, 'D6']|[##7]|[##4]}
<Call 0x217fa 0x215da> {[-2-]|[4, 'D6']|[##7]|[##4]}
<POP 217fc-217fe StackAdj> Δ+12 {[-2-]}
<MI 217fe TST.B (A7)+> Δ+2 {}
<MI 21800 BNE 0x2185c> {}
<POP 21802-21814 Naked> Σ0 ↓ →0x2185c
<POP 21802-21804 StackAdj> Δ-2 {[-2-]}
<MI 21804 MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x21806 0xb.4> Δ-4 {[-2-]|[4, 'D6']|[##11]}
<Const 0x2180a 0x4.4> Δ-4 {[-2-]|[4, 'D6']|[##11]|[##4]}
<Call 0x2180c 0x215da> {[-2-]|[4, 'D6']|[##11]|[##4]}
<POP 2180e-21810 StackAdj> Δ+12 {[-2-]}
<MI 21810 TST.B (A7)+> Δ+2 {}
<MI 21812 BNE 0x2185c> {}
<POP 21814-21826 Naked> Σ0 ↓ →0x2185c
<POP 21814-21816 StackAdj> Δ-2 {[-2-]}
<MI 21816 MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x21818 0xf.4> Δ-4 {[-2-]|[4, 'D6']|[##15]}
<Const 0x2181c 0x4.4> Δ-4 {[-2-]|[4, 'D6']|[##15]|[##4]}
<Call 0x2181e 0x215da> {[-2-]|[4, 'D6']|[##15]|[##4]}
<POP 21820-21822 StackAdj> Δ+12 {[-2-]}
<MI 21822 TST.B (A7)+> Δ+2 {}
<MI 21824 BNE 0x2185c> {}
<POP 21826-21838 Naked> Σ0 ↓ →0x2185c
<POP 21826-21828 StackAdj> Δ-2 {[-2-]}
<MI 21828 MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x2182a 0x13.4> Δ-4 {[-2-]|[4, 'D6']|[##19]}
<Const 0x2182e 0x4.4> Δ-4 {[-2-]|[4, 'D6']|[##19]|[##4]}
<Call 0x21830 0x215da> {[-2-]|[4, 'D6']|[##19]|[##4]}
<POP 21832-21834 StackAdj> Δ+12 {[-2-]}
<MI 21834 TST.B (A7)+> Δ+2 {}
<MI 21836 BNE 0x2185c> {}
<POP 21838-2184a Naked> Σ0 ↓ →0x2185c
<POP 21838-2183a StackAdj> Δ-2 {[-2-]}
<MI 2183a MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x2183c 0x17.4> Δ-4 {[-2-]|[4, 'D6']|[##23]}
<Const 0x21840 0x4.4> Δ-4 {[-2-]|[4, 'D6']|[##23]|[##4]}
<Call 0x21842 0x215da> {[-2-]|[4, 'D6']|[##23]|[##4]}
<POP 21844-21846 StackAdj> Δ+12 {[-2-]}
<MI 21846 TST.B (A7)+> Δ+2 {}
<MI 21848 BNE 0x2185c> {}
<POP 2184a-2185c Naked> Σ0 ↓ →0x21860
<POP 2184a-2184c StackAdj> Δ-2 {[-2-]}
<MI 2184c MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x2184e 0x1b.4> Δ-4 {[-2-]|[4, 'D6']|[##27]}
<Const 0x21852 0x4.4> Δ-4 {[-2-]|[4, 'D6']|[##27]|[##4]}
<Call 0x21854 0x215da> {[-2-]|[4, 'D6']|[##27]|[##4]}
<POP 21856-21858 StackAdj> Δ+12 {[-2-]}
<MI 21858 TST.B (A7)+> Δ+2 {}
<MI 2185a BEQ 0x21860> {}
<POP 2185c-21860 Naked> Σ0 →0x2189c ←0x217ca ←0x217de ←0x217f0 ←0x21802 ←0x21814 ←0x21826 ←0x21838
<MI 2185c ADDQ.L #0x1,D7> {}
<MI 2185e BRA 0x2189c> {}
<POP 21860-21864 Naked> Σ0 ↓ →0x21880 ←0x2184a
<MI 21860 TST.L D7> {}
<MI 21862 BNE 0x21880> {}
<POP 21864-21878 Naked> Σ0 ↓ →0x21880
<POP 21864-21866 StackAdj> Δ-2 {[-2-]}
<MI 21866 MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x21868 0x1f.4> Δ-4 {[-2-]|[4, 'D6']|[##31]}
<Const 0x2186c 0x5.4> Δ-4 {[-2-]|[4, 'D6']|[##31]|[##5]}
<Call 0x21870 0x215da> {[-2-]|[4, 'D6']|[##31]|[##5]}
<POP 21872-21874 StackAdj> Δ+12 {[-2-]}
<MI 21874 TST.B (A7)+> Δ+2 {}
<MI 21876 BEQ 0x21880> {}
<POP 21878-2187c Naked> Σ0 ↓
<MI 21878 MOVEA.L (A6+0xc),A0> {}
<POP 2187c-21880 Naked> Σ0 →0x2189c ←0x21896
<MI 2187c MOVE.L D6,(A0)> {}
<MI 2187e BRA 0x2189c> {}
<POP 21880-21892 Naked> Σ0 ↓ →0x2189c ←0x21860 ←0x21864
<POP 21880-21882 StackAdj> Δ-2 {[-2-]}
<MI 21882 MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x21884 0x24.4> Δ-4 {[-2-]|[4, 'D6']|[##36]}
<Const 0x21888 0x4.4> Δ-4 {[-2-]|[4, 'D6']|[##36]|[##4]}
<Call 0x2188a 0x215da> {[-2-]|[4, 'D6']|[##36]|[##4]}
<POP 2188c-2188e StackAdj> Δ+12 {[-2-]}
<MI 2188e TST.B (A7)+> Δ+2 {}
<MI 21890 BEQ 0x2189c> {}
<POP 21892-21896 Naked> Σ0 ↓ →0x2189a
<MI 21892 TST.L D7> {}
<MI 21894 BNE 0x2189a> {}
<POP 21896-2189a Naked> Σ0 →0x2187c
<MI 21896 MOVEA.L (A6+0x8),A0> {}
<MI 21898 BRA 0x2187c> {}
<POP 2189a-2189c Naked> Σ0 ↓ ←0x21892
<MI 2189a SUBQ.L #0x1,D7> {}
<POP 2189c-218a6 Naked> Σ0 ↓ →0x218b4 ←0x217aa ←0x2185c ←0x2187c ←0x21880
<MI 2189c ADDQ.L #0x1,D6> {}
<MI 2189e CMP.L 0x28c22,D6> {}
<MI 218a4 BGT 0x218b4> {}
<POP 218a6-218ac Naked> Σ0 ↓ →0x217aa
<MI 218a6 TST.L D7> {}
<MI 218a8 BNE 0x217aa> {}
<POP 218ac-218b4 Naked> Σ0 ↓ →0x217aa
<MI 218ac MOVEA.L (A6+0x8),A0> {}
<MI 218ae TST.L (A0)> {}
<MI 218b0 BEQ 0x217aa> {}
<POP 218b4-218bc Naked> Σ0 ↓ →0x218ec ←0x2189c
<MI 218b4 CMP.L 0x28c22,D6> {}
<MI 218ba BLE 0x218ec> {}
<POP 218bc-218ec Naked> Σ0 ↓
<Blob 0x218bc [28] @> Δ-28 {[«28""»]}
<POP 218ce-218d0 StackAdj> Δ-4 {[«28""»]|[-4-]}
<Lit 0x218d0 27> {[«28""»]|[$$Unbalanced [ELSE] or [END]!]}
<Call 0x218e4 0x2110c> {[«28""»]|[$$Unbalanced [ELSE] or [END]!]}
<POP 218e8-218ec StackAdj> Δ+32 {}
<POP 218ec-218f4 Epilogue> Σ0 ←0x218b4
@ 218f4
<LVAR -0x004 @ 4(r)>
<LVAR -0x008 @ 4(rw)>
<POP 218f4-2193a Body>
<POP 218f4-2190a Prologue> Σ0 ↓
<POP 2190a-21912 RegCacheLoad> Σ0 ↓
<POP 21912-21920 Naked> Σ0 ↓ →0x21922
<Pointer.fp 0x21912 <LVAR -0x008 @ 4(rw)>> Δ-4 {[@@-8]}
<Pointer.fp 0x21914 <LVAR -0x004 @ 4(r)>> Δ-4 {[@@-8]|[@@-4]}
<Call 0x21916 0x21774> {[@@-8]|[@@-4]}
<POP 2191a-2191c StackAdj> Δ+8 {}
<MI 2191c TST.L (A6-0x8)> {}
<MI 2191e BNE 0x21922> {}
<POP 21920-21922 Naked> Σ0 ↓
<MI 21920 MOVE.L (A6-0x4),(A6-0x8)> {}
<POP 21922-21932 Naked> Σ0 ↓ ←0x21912
<MI 21922 MOVE.L (A6-0x4),D0> {}
<MI 21924 ADDQ.L #0x5,D0> {}
<MI 21926 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 21928 SUB.L (A6-0x8),D0> {[4, 'D0']}
<MI 2192a MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']|[4, 'D0']}
<Call 0x2192c 0x21660> {[4, 'D0']|[4, 'D0']}
<POP 21930-21932 StackAdj> Δ+8 {}
<POP 21932-2193a Epilogue> Σ0
@ 2193a
<LVAR -0x004 @ 4(r)>
<LVAR -0x008 @ 4(r)>
<POP 2193a-21996 Body>
<POP 2193a-21950 Prologue> Σ0 ↓
<POP 21950-21958 RegCacheLoad> Σ0 ↓
<POP 21958-21966 Naked> Σ0 ↓ →0x2196c
<Pointer.fp 0x21958 <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-8]}
<Pointer.fp 0x2195a <LVAR -0x004 @ 4(r)>> Δ-4 {[@@-8]|[@@-4]}
<Call 0x2195c 0x21774> {[@@-8]|[@@-4]}
<POP 21960-21962 StackAdj> Δ+8 {}
<MI 21962 TST.L (A6-0x8)> {}
<MI 21964 BNE 0x2196c> {}
<POP 21966-2196c Naked> Σ0 →0x2197e
<MI 21966 MOVE.L (A6-0x4),D0> {}
<MI 21968 ADDQ.L #0x5,D0> {}
<MI 2196a BRA 0x2197e> {}
<POP 2196c-2197e Naked> Σ0 ↓ ←0x21958
<MI 2196c MOVE.L (A6-0x4),-(A7)> Δ-4 {[4, '(A6-0x4)']}
<MI 2196e ADDQ.L #0x5,(A7)> {[-4-]}
<Const 0x21970 0x5.4> Δ-4 {[-4-]|[##5]}
<Call 0x21974 0x21660> {[-4-]|[##5]}
<POP 21978-2197a StackAdj> Δ+8 {}
<MI 2197a MOVE.L (A6-0x8),D0> {}
<MI 2197c ADDQ.L #0x6,D0> {}
<POP 2197e-2198e Naked> Σ0 ↓ ←0x21966
<MI 2197e MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 21980 SUB.L 0x28c1e,D0> {[4, 'D0']}
<MI 21986 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']|[4, 'D0']}
<Call 0x21988 0x21660> {[4, 'D0']|[4, 'D0']}
<POP 2198c-2198e StackAdj> Δ+8 {}
<POP 2198e-21996 Epilogue> Σ0
@ 21996
<LVAR 0x008 4(r)>
<LVAR -0x004 @>
<LVAR -0x008 @ 4(r)>
<LVAR -0x00c @ 4(rw)>
<LVAR -0x010 4(rw)>
<LVAR -0x014 4(rw)>
<POP 21996-21aaa Body>
<POP 21996-219ac Prologue> Σ0 ↓
<POP 219ac-219c4 RegCacheLoad> Σ0 ↓
<POP 219c4-219c8 Naked> Σ0 ↓ →0x219d2
<MI 219c4 TST.B 0x28c30> {}
<MI 219c6 BEQ 0x219d2> {}
<POP 219c8-219cc Naked> Σ0 ↓ →0x219d2
<MI 219c8 TST.L 0x28c36> {}
<MI 219ca BNE 0x219d2> {}
<POP 219cc-219d2 Naked> Σ0 ↓
<MI 219cc MOVE.L (A6+0x8),0x28c36> {}
<MI 219d0 SUBQ.L #0x1,0x28c36> {}
<POP 219d2-219d8 Naked> Σ0 ↓ →0x21aa2 ←0x219c4 ←0x219c8
<MI 219d2 TST.B 0x28c30> {}
<MI 219d4 BNE 0x21aa2> {}
<POP 219d8-21a0c Naked> Σ0 ↓ →0x21a26
<MI 219d8 MOVE.L (A6+0x8),0x28c1e> {}
<MI 219dc ADDQ.L #0x6,0x28c1e> {}
<Pointer.fp 0x219de <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-8]}
<Pointer.fp 0x219e0 <LVAR -0x004 @>> Δ-4 {[@@-8]|[@@-4]}
<Call 0x219e4 0x2146c> {[@@-8]|[@@-4]}
<POP 219e8-219ea StackAdj> Δ+8 {}
<Blob 0x219ea [10] @> Δ-10 {[«10""»]}
<MI 219f6 MOVE.L (A6-0x8),-(A7)> Δ-4 {[«10""»]|[4, '(A6-0x8)']}
<Const 0x219f8 0x0.4> Δ-4 {[«10""»]|[4, '(A6-0x8)']|[##0]}
<Call 0x219fc 0x2154e> {[«10""»]|[4, '(A6-0x8)']|[##0]}
<POP 21a00-21a04 StackAdj> Δ+18 {}
<MI 21a04 TST.B 0x28c3a> {}
<MI 21a0a BEQ 0x21a26> {}
<POP 21a0c-21a26 Naked> Σ0 →0x21a3a
<POP 21a0c-21a0e StackAdj> Δ-8 {[-8-]}
<MI 21a0e MOVE.L (A6-0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x8)']}
<Const 0x21a10 0x0.4> Δ-4 {[-8-]|[4, '(A6-0x8)']|[##0]}
<Call 0x21a14 0x21e66> {[-8-]|[4, '(A6-0x8)']|[##0]}
<POP 21a1a-21a1c StackAdj> Δ+8 {[-8-]}
<MI 21a1c MOVE.L (A7)+,(A6-0x14)> Δ+4 {[-4-]}
<MI 21a20 MOVE.L (A7)+,(A6-0x10)> Δ+4 {}
<MI 21a24 BRA 0x21a3a> {}
<POP 21a26-21a3a Naked> Σ0 ↓ ←0x219d8
<POP 21a26-21a28 StackAdj> Δ-4 {[-4-]}
<MI 21a28 MOVE.L (A6-0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x8)']}
<Const 0x21a2a 0x0.4> Δ-4 {[-4-]|[4, '(A6-0x8)']|[##0]}
<Call 0x21a2e 0x21e34> {[-4-]|[4, '(A6-0x8)']|[##0]}
<POP 21a34-21a36 StackAdj> Δ+8 {[-4-]}
<MI 21a36 MOVE.L (A7)+,(A6-0xc)> Δ+4 {}
<POP 21a3a-21a50 Naked> Σ0 ↓ →0x21a7a ←0x21a0c
<MI 21a3a MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<Call 0x21a3c 0x210ca> {[4, '(A6-0x8)']}
<POP 21a40-21a42 StackAdj> Δ+4 {}
<MI 21a42 MOVE.L 0x28c1e,0x28c32> {}
<MI 21a48 TST.B 0x28c3a> {}
<MI 21a4e BEQ 0x21a7a> {}
<POP 21a50-21a7a Naked> Σ0 →0x21aa2
<POP 21a50-21a52 StackAdj> Δ-2 {[-2-]}
<MI 21a52 MOVE.L (A6-0x10),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x10)']}
<MI 21a56 MOVE.L (A6-0x14),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<Blob 0x21a5a [4] 0x28c44> Δ-4 {[-2-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']|[«4»]}
<Blob 0x21a60 [4] 0x28c40> Δ-4 {[-2-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']|[«4»]|[«4»]}
<Call 0x21a66 0x1032c> {[-2-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']|[«4»]|[«4»]}
IsEqual(a, b : Quad) : Bool
<POP 21a6c-21a70 StackAdj> Δ+16 {[-2-]}
<MI 21a70 MOVE.B (A7)+,D0> Δ+2 {}
<MI 21a72 EXTB.W D0> {}
<POP 0x21a74 LimitCheck 0x0 ≤ D0 ≤ 0x1> {}
<MI 21a76 MOVE.B D0,0x28c30> {}
<MI 21a78 BRA 0x21aa2> {}
<POP 21a7a-21aa2 Naked> Σ0 ↓ ←0x21a3a
<POP 21a7a-21a7c StackAdj> Δ-2 {[-2-]}
<MI 21a7c MOVE.L (A6-0xc),-(A7)> Δ-4 {[-2-]|[4, '(A6-0xc)']}
<Blob 0x21a80 [4] 0x28c3c> Δ-4 {[-2-]|[4, '(A6-0xc)']|[«4»]}
<Call 0x21a86 0x102c8> {[-2-]|[4, '(A6-0xc)']|[«4»]}
StringEqual(a, b : String) : Byte
<POP 21a8c-21a8e StackAdj> Δ+8 {[-2-]}
<MI 21a8e MOVE.B (A7)+,D0> Δ+2 {}
<MI 21a90 EXTB.W D0> {}
<POP 0x21a92 LimitCheck 0x0 ≤ D0 ≤ 0x1> {}
<MI 21a94 MOVE.B D0,0x28c30> {}
<Pointer.fp 0x21a96 <LVAR -0x00c @ 4(rw)>> Δ-4 {[@@-12]}
<Call 0x21a9a 0x102bc> {[@@-12]}
FreeString(VAR a : String)
<POP 21aa0-21aa2 StackAdj> Δ+4 {}
<POP 21aa2-21aaa Epilogue> Σ0 ←0x219d2 ←0x21a50
@ 21aaa
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 21aaa-21c2c Body>
<POP 21aaa-21ac0 Prologue> Σ0 ↓
<POP 21ac0-21ad4 RegCacheLoad> Σ0 ↓
<POP 21ad4-21ae8 Naked> Σ0 ↓
<MI 21ad4 CLR.B 0x28c30> {}
<MI 21ad6 CLR.L 0x28c32> {}
<MI 21adc CLR.L 0x28c36> {}
<MI 21ade MOVEQ.L #0x00,D7> {}
<MI 21ae0 MOVEQ.L #0x00,D6> {}
<MI 21ae2 MOVE.L 0x28c1e,D5> {}
<POP 21ae8-21aee Naked> Σ0 ↓ →0x21b8c ←0x21b88
<MI 21ae8 TST.L D6> {}
<MI 21aea BNE 0x21b8c> {}
<POP 21aee-21af8 Naked> Σ0 ↓ →0x21b8c
<MI 21aee CMP.L 0x28c22,D5> {}
<MI 21af4 BGT 0x21b8c> {}
<POP 21af8-21b16 Naked> Σ0 ↓ →0x21b82
<MI 21af8 MOVE.L D5,D0> {}
<MI 21afa SUBQ.L #0x1,D0> {}
<POP 0x21afc LimitCheck 0x0 ≤ D0 ≤ 0x1fff> {}
<MI 21b06 LEA.L 0x26c16,A0> {}
<MI 21b0c MOVE.B (A0+D0.L+#0x8),D0> {}
<MI 21b10 CMPI.B #0x5b,D0> {}
<MI 21b14 BNE 0x21b82> {}
<POP 21b16-21b2a Naked> Σ0 ↓ →0x21b3e
<POP 21b16-21b18 StackAdj> Δ-2 {[-2-]}
<MI 21b18 MOVE.L D5,-(A7)> Δ-4 {[-2-]|[4, 'D5']}
<Const 0x21b1a 0x28.4> Δ-4 {[-2-]|[4, 'D5']|[##40]}
<Const 0x21b1e 0x5.4> Δ-4 {[-2-]|[4, 'D5']|[##40]|[##5]}
<Call 0x21b22 0x215da> {[-2-]|[4, 'D5']|[##40]|[##5]}
<POP 21b24-21b26 StackAdj> Δ+12 {[-2-]}
<MI 21b26 TST.B (A7)+> Δ+2 {}
<MI 21b28 BNE 0x21b3e> {}
<POP 21b2a-21b3e Naked> Σ0 ↓ →0x21b42
<POP 21b2a-21b2c StackAdj> Δ-2 {[-2-]}
<MI 21b2c MOVE.L D5,-(A7)> Δ-4 {[-2-]|[4, 'D5']}
<Const 0x21b2e 0x2d.4> Δ-4 {[-2-]|[4, 'D5']|[##45]}
<Const 0x21b32 0x6.4> Δ-4 {[-2-]|[4, 'D5']|[##45]|[##6]}
<Call 0x21b36 0x215da> {[-2-]|[4, 'D5']|[##45]|[##6]}
<POP 21b38-21b3a StackAdj> Δ+12 {[-2-]}
<MI 21b3a TST.B (A7)+> Δ+2 {}
<MI 21b3c BEQ 0x21b42> {}
<POP 21b3e-21b42 Naked> Σ0 →0x21b82 ←0x21b16
<MI 21b3e ADDQ.L #0x1,D7> {}
<MI 21b40 BRA 0x21b82> {}
<POP 21b42-21b46 Naked> Σ0 ↓ →0x21b64 ←0x21b2a
<MI 21b42 TST.L D7> {}
<MI 21b44 BNE 0x21b64> {}
<POP 21b46-21b5a Naked> Σ0 ↓ →0x21b64
<POP 21b46-21b48 StackAdj> Δ-2 {[-2-]}
<MI 21b48 MOVE.L D5,-(A7)> Δ-4 {[-2-]|[4, 'D5']}
<Const 0x21b4a 0x33.4> Δ-4 {[-2-]|[4, 'D5']|[##51]}
<Const 0x21b4e 0x5.4> Δ-4 {[-2-]|[4, 'D5']|[##51]|[##5]}
<Call 0x21b52 0x215da> {[-2-]|[4, 'D5']|[##51]|[##5]}
<POP 21b54-21b56 StackAdj> Δ+12 {[-2-]}
<MI 21b56 TST.B (A7)+> Δ+2 {}
<MI 21b58 BEQ 0x21b64> {}
<POP 21b5a-21b64 Naked> Σ0 →0x21b82
<MI 21b5a MOVE.L D5,-(A7)> Δ-4 {[4, 'D5']}
<Call 0x21b5c 0x21996> {[4, 'D5']}
<POP 21b60-21b62 StackAdj> Δ+4 {}
<MI 21b62 BRA 0x21b82> {}
<POP 21b64-21b78 Naked> Σ0 ↓ →0x21b82 ←0x21b42 ←0x21b46
<POP 21b64-21b66 StackAdj> Δ-2 {[-2-]}
<MI 21b66 MOVE.L D5,-(A7)> Δ-4 {[-2-]|[4, 'D5']}
<Const 0x21b68 0x38.4> Δ-4 {[-2-]|[4, 'D5']|[##56]}
<Const 0x21b6c 0x8.4> Δ-4 {[-2-]|[4, 'D5']|[##56]|[##8]}
<Call 0x21b70 0x215da> {[-2-]|[4, 'D5']|[##56]|[##8]}
<POP 21b72-21b74 StackAdj> Δ+12 {[-2-]}
<MI 21b74 TST.B (A7)+> Δ+2 {}
<MI 21b76 BEQ 0x21b82> {}
<POP 21b78-21b7c Naked> Σ0 ↓ →0x21b80
<MI 21b78 TST.L D7> {}
<MI 21b7a BNE 0x21b80> {}
<POP 21b7c-21b80 Naked> Σ0 →0x21b82
<MI 21b7c MOVE.L D5,D6> {}
<MI 21b7e BRA 0x21b82> {}
<POP 21b80-21b82 Naked> Σ0 ↓ ←0x21b78
<MI 21b80 SUBQ.L #0x1,D7> {}
<POP 21b82-21b86 Naked> Σ0 ↓ →0x21b88 ←0x21af8 ←0x21b3e ←0x21b5a ←0x21b64 ←0x21b7c
<MI 21b82 TST.L D6> {}
<MI 21b84 BNE 0x21b88> {}
<POP 21b86-21b88 Naked> Σ0 ↓
<MI 21b86 ADDQ.L #0x1,D5> {}
<POP 21b88-21b8c Naked> Σ0 →0x21ae8 ←0x21b82
<MI 21b88 BRA 0x21ae8> {}
<POP 21b8c-21b94 Naked> Σ0 ↓ →0x21ba2 ←0x21ae8 ←0x21aee
<MI 21b8c TST.B 0x28c3a> {}
<MI 21b92 BNE 0x21ba2> {}
<POP 21b94-21ba2 Naked> Σ0 ↓
<Const 0x21b94 0x28c3c.4> Δ-4 {[##166972]}
<Call 0x21b9a 0x102bc> {[##166972]}
FreeString(VAR a : String)
<POP 21ba0-21ba2 StackAdj> Δ+4 {}
<POP 21ba2-21ba6 Naked> Σ0 ↓ →0x21bce ←0x21b8c
<MI 21ba2 TST.B 0x28c30> {}
<MI 21ba4 BNE 0x21bce> {}
<POP 21ba6-21bce Naked> Σ0 ↓
<Blob 0x21ba6 [26] @> Δ-26 {[«26""»]}
<POP 21bb2-21bb4 StackAdj> Δ-4 {[«26""»]|[-4-]}
<Lit 0x21bb4 26> {[«26""»]|[$$No case alternative found!]}
<Call 0x21bc6 0x2110c> {[«26""»]|[$$No case alternative found!]}
<POP 21bca-21bce StackAdj> Δ+30 {}
<POP 21bce-21bd2 Naked> Σ0 ↓ →0x21c00 ←0x21ba2
<MI 21bce TST.L D6> {}
<MI 21bd0 BNE 0x21c00> {}
<POP 21bd2-21c00 Naked> Σ0 ↓
<Blob 0x21bd2 [20] @> Δ-20 {[«20""»]}
<POP 21be4-21be6 StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x21be6 19> {[«20""»]|[$$No [ENDCASE] found!]}
<Call 0x21bf8 0x2110c> {[«20""»]|[$$No [ENDCASE] found!]}
<POP 21bfc-21c00 StackAdj> Δ+24 {}
<POP 21c00-21c14 Naked> Σ0 ↓ →0x21c1e ←0x21bce
<MI 21c00 MOVEA.L (A6+0x8),A0> {}
<MI 21c04 MOVE.L D6,(A0)> {}
<MI 21c06 MOVEA.L (A6+0x10),A0> {}
<MI 21c0a MOVE.L 0x28c32,(A0)> {}
<MI 21c10 TST.L 0x28c36> {}
<MI 21c12 BNE 0x21c1e> {}
<POP 21c14-21c1e Naked> Σ0 →0x21c24
<MI 21c14 MOVEA.L (A6+0xc),A0> {}
<MI 21c18 MOVE.L D6,(A0)> {}
<MI 21c1a SUBQ.L #0x1,(A0)> {}
<MI 21c1c BRA 0x21c24> {}
<POP 21c1e-21c24 Naked> Σ0 ↓ ←0x21c00
<MI 21c1e MOVEA.L (A6+0xc),A0> {}
<MI 21c22 MOVE.L 0x28c36,(A0)> {}
<POP 21c24-21c2c Epilogue> Σ0 ←0x21c14
@ 21c2c
<LVAR 0x008 4(r)>
<LVAR -0x008 @ 4(r)>
<LVAR -0x00c @ 4(r)>
<LVAR -0x010 @ 4(r)>
<POP 21c2c-21ca0 Body>
<POP 21c2c-21c42 Prologue> Σ0 ↓
<POP 21c42-21c4c RegCacheLoad> Σ0 ↓
<POP 21c4c-21c98 Naked> Σ0 ↓
<MI 21c4c MOVE.L 0x28c1e,D6> {}
<MI 21c4e CLR.B 0x28c3a> {}
<MI 21c54 MOVE.L (A6+0x8),0x28c3c> {}
<MI 21c5c MOVE.L 0x28c1e,D7> {}
<Pointer.fp 0x21c5e <LVAR -0x010 @ 4(r)>> Δ-4 {[@@-16]}
<Pointer.fp 0x21c60 <LVAR -0x00c @ 4(r)>> Δ-4 {[@@-16]|[@@-12]}
<Pointer.fp 0x21c64 <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-16]|[@@-12]|[@@-8]}
<Call 0x21c68 0x21aaa> {[@@-16]|[@@-12]|[@@-8]}
<POP 21c6c-21c70 StackAdj> Δ+12 {}
<MI 21c70 MOVE.L D6,0x28c1e> {}
<MI 21c72 MOVE.L (A6-0x8),D0> {}
<MI 21c76 ADDI.L #0x00000009,D0> {}
<MI 21c7c MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 21c7e SUB.L (A6-0xc),D0> {[4, 'D0']}
<MI 21c82 SUBQ.L #0x1,D0> {[4, 'D0']}
<MI 21c84 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']|[4, 'D0']}
<Call 0x21c86 0x21660> {[4, 'D0']|[4, 'D0']}
<POP 21c8a-21c8c StackAdj> Δ+4 {[4, 'D0']}
<MI 21c8c MOVE.L (A6-0x10),(A7)> {[4, '(A6-0x10)']}
<MI 21c8e MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0x10)']|[4, '(A6-0x10)']}
<MI 21c90 SUB.L D7,(A7)> {[4, '(A6-0x10)']|[-4-]}
<Call 0x21c92 0x21660> {[4, '(A6-0x10)']|[-4-]}
<POP 21c96-21c98 StackAdj> Δ+8 {}
<POP 21c98-21ca0 Epilogue> Σ0
@ 21ca0
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x008 @ 4(r)>
<LVAR -0x00c @ 4(r)>
<LVAR -0x010 @ 4(r)>
<POP 21ca0-21d1e Body>
<POP 21ca0-21cb6 Prologue> Σ0 ↓
<POP 21cb6-21cc0 RegCacheLoad> Σ0 ↓
<POP 21cc0-21d16 Naked> Σ0 ↓
<MI 21cc0 MOVE.L 0x28c1e,D6> {}
<MI 21cc2 MOVE.B #0x01,0x28c3a> {}
<MI 21cca MOVE.L (A6+0x8),0x28c40> {}
<MI 21cd2 MOVE.L (A6+0xc),0x28c44> {}
<MI 21cda MOVE.L 0x28c1e,D7> {}
<Pointer.fp 0x21cdc <LVAR -0x010 @ 4(r)>> Δ-4 {[@@-16]}
<Pointer.fp 0x21cde <LVAR -0x00c @ 4(r)>> Δ-4 {[@@-16]|[@@-12]}
<Pointer.fp 0x21ce2 <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-16]|[@@-12]|[@@-8]}
<Call 0x21ce6 0x21aaa> {[@@-16]|[@@-12]|[@@-8]}
<POP 21cea-21cee StackAdj> Δ+12 {}
<MI 21cee MOVE.L D6,0x28c1e> {}
<MI 21cf0 MOVE.L (A6-0x8),D0> {}
<MI 21cf4 ADDI.L #0x00000009,D0> {}
<MI 21cfa MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 21cfc SUB.L (A6-0xc),D0> {[4, 'D0']}
<MI 21d00 SUBQ.L #0x1,D0> {[4, 'D0']}
<MI 21d02 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']|[4, 'D0']}
<Call 0x21d04 0x21660> {[4, 'D0']|[4, 'D0']}
<POP 21d08-21d0a StackAdj> Δ+4 {[4, 'D0']}
<MI 21d0a MOVE.L (A6-0x10),(A7)> {[4, '(A6-0x10)']}
<MI 21d0c MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0x10)']|[4, '(A6-0x10)']}
<MI 21d0e SUB.L D7,(A7)> {[4, '(A6-0x10)']|[-4-]}
<Call 0x21d10 0x21660> {[4, '(A6-0x10)']|[-4-]}
<POP 21d14-21d16 StackAdj> Δ+8 {}
<POP 21d16-21d1e Epilogue> Σ0
@ 21d1e
<LVAR 0x010 4(rw)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 21d1e-21d56 Body>
<POP 21d1e-21d34 Prologue> Σ0 ↓
<POP 21d34-21d3a Naked> Σ0 ↓ →0x21d40
<MI 21d34 TST.L (A6+0x8)> {}
<MI 21d38 BNE 0x21d40> {}
<POP 21d3a-21d40 Naked> Σ0 →0x21d4e
<MI 21d3a CLR.L (A6+0x10)> {}
<MI 21d3e BRA 0x21d4e> {}
<POP 21d40-21d4e Naked> Σ0 ↓ ←0x21d34
<MI 21d40 MOVE.L (A6+0xc),D0> {}
<MI 21d44 SUB.L (A6+0x8),D0> {}
<MI 21d48 ADDQ.L #0x1,D0> {}
<MI 21d4a MOVE.L D0,(A6+0x10)> {}
<POP 21d4e-21d56 Epilogue> Σ0 ←0x21d3a
@ 21d56
<LVAR 0x014 4(w)>
<LVAR 0x010 @ 4(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 21d56-21db8 Body> Δ-4
<POP 21d56-21d6c Prologue> Σ0 ↓
<POP 21d6c-21d82 Naked> Σ0 Δ-4 ↓
<MI 21d6c MOVEA.L (A6+0xc),A4> {}
<MI 21d70 MOVE.L 0x21024,(A6+0x10)> {}
<MI 21d76 MOVE.L 0x21028,(A6+0x14)> {}
<MI 21d7c MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<MI 21d80 MOVEQ.L #0x00,D7> {[4, '(A6+0x8)']}
<POP 21d82-21d86 Naked> Σ-4 ↓ →0x21dae ←0x21daa
<MI 21d82 CMP.L (A7),D7> {[-4-]}
<MI 21d84 BGT 0x21dae> {[-4-]}
<POP 21d86-21d8c Naked> Σ-4 ↓ →0x21d90
<MI 21d86 CMPA.W #0x1,A4> {[-4-]}
<MI 21d8a BNE 0x21d90> {[-4-]}
<POP 21d8c-21d90 Naked> Σ-4 Δ+4 →0x21db0
<POP 21d8c-21d8e StackAdj> Δ+4 {}
<MI 21d8e BRA 0x21db0> {}
<POP 21d90-21d96 Naked> Σ-4 ↓ →0x21da6 ←0x21d86
<MI 21d90 CMP.L (A6+0x8),D7> {[-4-]}
<MI 21d94 BNE 0x21da6> {[-4-]}
<POP 21d96-21da6 Naked> Σ-4 →0x21daa
<MI 21d96 LEA.L (A6+0x10),A0> {[-4-]}
<MI 21d9a MOVEA.L A4,A1> {[-4-]}
<BlockMove 8,A1,A0> {[-4-]}
<MI 21da4 BRA 0x21daa> {[-4-]}
<POP 21da6-21daa Naked> Σ-4 ↓ ←0x21d90
<MI 21da6 MOVEA.L (A4+0x8),A4> {[-4-]}
<POP 21daa-21dae Naked> Σ-4 ↓ →0x21d82 ←0x21d96
<MI 21daa ADDQ.L #0x1,D7> {[-4-]}
<MI 21dac BVC 0x21d82> {[-4-]}
<POP 21dae-21db0 Naked> Σ-4 Δ+4 ↓ ←0x21d82
<POP 21dae-21db0 StackAdj> Δ+4 {}
<POP 21db0-21db8 Epilogue> Σ0 ←0x21d8c
@ 21db8
<LVAR 0x010 4(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x008 @ 4(r)>
<POP 21db8-21e34 Body> Δ-4
<POP 21db8-21dce Prologue> Σ0 ↓
<POP 21dce-21dd2 RegCacheLoad> Σ0 ↓
<POP 21dd2-21dea Naked> Σ0 Δ-4 ↓
<Pointer.fp 0x21dd2 <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-8]}
<Call 0x21dd4 0x102b8> {[@@-8]}
NewString(VAR a : String)
<MI 21dda MOVE.L (A6+0xc),-(A7)> Δ-4 {[@@-8]|[4, '(A6+0xc)']}
<MI 21dde MOVE.L (A6+0x8),-(A7)> Δ-4 {[@@-8]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x21de2 0x21d1e> {[@@-8]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 21de6-21de8 StackAdj> Δ+8 {[@@-8]}
<MI 21de8 MOVEQ.L #0x01,D7> {[@@-8]}
<POP 21dea-21dee Naked> Σ-4 ↓ →0x21e26 ←0x21e16
<MI 21dea CMP.L (A7),D7> {[-4-]}
<MI 21dec BGT 0x21e26> {[-4-]}
<POP 21dee-21e12 Naked> Σ-4 ↓ →0x21e16
<MI 21dee MOVE.L D7,D0> {[-4-]}
<MI 21df0 ADD.L (A6+0x8),D0> {[-4-]}
<MI 21df4 SUBQ.L #0x1,D0> {[-4-]}
<MI 21df6 SUBQ.L #0x1,D0> {[-4-]}
<POP 0x21df8 LimitCheck 0x0 ≤ D0 ≤ 0x1fff> {[-4-]}
<MI 21e02 LEA.L 0x26c16,A0> {[-4-]}
<MI 21e08 MOVE.B (A0+D0.L+#0x8),D6> {[-4-]}
<MI 21e0c CMPI.B #0x2f,D6> {[-4-]}
<MI 21e10 BNE 0x21e16> {[-4-]}
<POP 21e12-21e16 Naked> Σ-4 Δ+4 →0x21e28
<POP 21e12-21e14 StackAdj> Δ+4 {}
<MI 21e14 BRA 0x21e28> {}
<POP 21e16-21e26 Naked> Σ-4 ↓ →0x21dea ←0x21dee
<MI 21e16 MOVE.L (A6-0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x8)']}
<MI 21e18 MOVE.B D6,-(A7)> Δ-2 {[-4-]|[4, '(A6-0x8)']|[2, 'D6']}
<Call 0x21e1a 0x102c0> {[-4-]|[4, '(A6-0x8)']|[2, 'D6']}
AppendChar(MOD b : String; a : char)
<POP 21e20-21e22 StackAdj> Δ+6 {[-4-]}
<MI 21e22 ADDQ.L #0x1,D7> {[-4-]}
<MI 21e24 BVC 0x21dea> {[-4-]}
<POP 21e26-21e28 Naked> Σ-4 Δ+4 ↓ ←0x21dea
<POP 21e26-21e28 StackAdj> Δ+4 {}
<POP 21e28-21e2c Naked> Σ0 ↓ ←0x21e12
<MI 21e28 MOVE.L (A6-0x8),(A6+0x10)> {}
<POP 21e2c-21e34 Epilogue> Σ0
@ 21e34
<LVAR 0x010 4(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 21e34-21e66 Body>
<POP 21e34-21e46 Prologue> Σ0 ↓
<POP 21e46-21e62 Naked> Σ0 ↓
<POP 21e46-21e4a StackAdj> Δ-12 {[-12-]}
<MI 21e4a MOVE.L (A6+0xc),-(A7)> Δ-4 {[-12-]|[4, '(A6+0xc)']}
<MI 21e4e MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x21e52 0x21d56> {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 21e56-21e58 StackAdj> Δ+8 {[-12-]}
<Call 0x21e58 0x21db8> {[-12-]}
<POP 21e5c-21e5e StackAdj> Δ+8 {[-4-]}
<MI 21e5e MOVE.L (A7)+,(A6+0x10)> Δ+4 {}
<POP 21e62-21e66 Epilogue> Σ0
@ 21e66
<LVAR 0x014 4(w)>
<LVAR 0x010 4(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 21e66-21ea2 Body>
<POP 21e66-21e78 Prologue> Σ0 ↓
<POP 21e78-21e9e Naked> Σ0 ↓
<POP 21e78-21e7c StackAdj> Δ-12 {[-12-]}
<MI 21e7c MOVE.L (A6+0xc),-(A7)> Δ-4 {[-12-]|[4, '(A6+0xc)']}
<MI 21e80 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x21e84 0x21e34> {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 21e88-21e8a StackAdj> Δ+8 {[-12-]}
<Const 0x21e8a 0x10.4> Δ-4 {[-12-]|[##16]}
<Call 0x21e8e 0x10360> {[-12-]|[##16]}
?StringToInt64()
<POP 21e94-21e96 StackAdj> Δ+8 {[-8-]}
<MI 21e96 MOVE.L (A7)+,(A6+0x10)> Δ+4 {[-4-]}
<MI 21e9a MOVE.L (A7)+,(A6+0x14)> Δ+4 {}
<POP 21e9e-21ea2 Epilogue> Σ0
@ 21ea2
<LVAR 0x010 4(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 21ea2-21ed6 Body>
<POP 21ea2-21eb4 Prologue> Σ0 ↓
<POP 21eb4-21ed2 Naked> Σ0 ↓
<POP 21eb4-21eb8 StackAdj> Δ-12 {[-12-]}
<MI 21eb8 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-12-]|[4, '(A6+0xc)']}
<MI 21ebc MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x21ec0 0x21e66> {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 21ec4-21ec6 StackAdj> Δ+8 {[-12-]}
<Call 0x21ec6 0x10350> {[-12-]}
Quad2Long(a : Quad) : Long
<POP 21ecc-21ece StackAdj> Δ+8 {[-4-]}
<MI 21ece MOVE.L (A7)+,(A6+0x10)> Δ+4 {}
<POP 21ed2-21ed6 Epilogue> Σ0
@ 21ed6
<LVAR 0x008 @ 4(r)>
<POP 21ed6-21f5e Body>
<POP 21ed6-21eec Prologue> Σ0 ↓
<POP 21eec-21ef2 RegCacheLoad> Σ0 ↓
<POP 21ef2-21f10 Naked> Σ0 Δ-8 ↓
<MI 21ef2 MOVEA.L (A6+0x8),A0> {}
<MI 21ef6 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Blob 0x21ef8 [4] 0x28c1e> Δ-4 {[4, 'A0']|[«4»]}
<MI 21efa MOVE.W (A0),D0> {[4, 'A0']|[«4»]}
<MI 21efc EXTW.L D0> {[4, 'A0']|[«4»]}
<MI 21efe NEG.L D0> {[4, 'A0']|[«4»]}
<MI 21f00 MOVE.L D0,-(A7)> Δ-4 {[4, 'A0']|[«4»]|[4, 'D0']}
<Call 0x21f02 0x21660> {[4, 'A0']|[«4»]|[4, 'D0']}
<POP 21f06-21f08 StackAdj> Δ+8 {[4, 'A0']}
<MI 21f08 MOVE.W (A0),D0> {[4, 'A0']}
<MI 21f0a EXTW.L D0> {[4, 'A0']}
<MI 21f0c MOVE.L D0,-(A7)> Δ-4 {[4, 'A0']|[4, 'D0']}
<MI 21f0e MOVEQ.L #0x01,D7> {[4, 'A0']|[4, 'D0']}
<POP 21f10-21f14 Naked> Σ-8 ↓ →0x21f48 ←0x21f14
<MI 21f10 CMP.L (A7),D7> {[-8-]}
<MI 21f12 BGT 0x21f48> {[-8-]}
<POP 21f14-21f48 Naked> Σ-8 ↓ →0x21f10
<MI 21f14 MOVE.L D7,D0> {[-8-]}
<MI 21f16 ADD.L 0x28c1e,D0> {[-8-]}
<MI 21f18 SUBQ.L #0x1,D0> {[-8-]}
<MI 21f1a SUBQ.L #0x1,D0> {[-8-]}
<POP 0x21f1c LimitCheck 0x0 ≤ D0 ≤ 0x1fff> {[-8-]}
<MI 21f26 LEA.L 0x26c16,A0> {[-8-]}
<MI 21f2c MOVE.L D7,D1> {[-8-]}
<MI 21f2e SUBQ.L #0x1,D1> {[-8-]}
<POP 0x21f30 LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-8-]}
<MI 21f3a MOVEA.L (A7+0x4),A1> {[-8-]}
<MI 21f3e MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x8)> {[-8-]}
<MI 21f44 ADDQ.L #0x1,D7> {[-8-]}
<MI 21f46 BVC 0x21f10> {[-8-]}
<POP 21f48-21f56 Naked> Σ-8 Δ+8 ↓ ←0x21f10
<POP 21f48-21f4a StackAdj> Δ+8 {}
<Pointer.fp 0x21f4a <LVAR 0x008 @ 4(r)>> Δ-4 {[@@8]}
<Call 0x21f4e 0x102bc> {[@@8]}
FreeString(VAR a : String)
<POP 21f54-21f56 StackAdj> Δ+4 {}
<POP 21f56-21f5e Epilogue> Σ0
@ 21f5e
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 21f5e-21f92 Body>
<POP 21f5e-21f70 Prologue> Σ0 ↓
<POP 21f70-21f8e Naked> Σ0 ↓
<POP 21f70-21f72 StackAdj> Δ-4 {[-4-]}
<MI 21f72 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']}
<MI 21f76 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Const 0x21f7a 0x10.4> Δ-4 {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[##16]}
<Call 0x21f7e 0x1035c> {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[##16]}
Quad2String(a : Quad; radix : Long ) : String
<POP 21f84-21f88 StackAdj> Δ+12 {[-4-]}
<Call 0x21f88 0x21ed6> {[-4-]}
<POP 21f8c-21f8e StackAdj> Δ+4 {}
<POP 21f8e-21f92 Epilogue> Σ0
@ 21f92
<LVAR 0x008 4(r)>
<POP 21f92-21fbc Body>
<POP 21f92-21fa4 Prologue> Σ0 ↓
<POP 21fa4-21fb8 Naked> Σ0 ↓
<POP 21fa4-21fa6 StackAdj> Δ-4 {[-4-]}
<MI 21fa6 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x21faa 0x102e4> {[-4-]|[4, '(A6+0x8)']}
Long2String(a : Long) : String
<POP 21fb0-21fb2 StackAdj> Δ+4 {[-4-]}
<Call 0x21fb2 0x21ed6> {[-4-]}
<POP 21fb6-21fb8 StackAdj> Δ+4 {}
<POP 21fb8-21fbc Epilogue> Σ0
@ 21fbc
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 4(r)>
<LVAR -0x008 4(rw)>
<POP 21fbc-2208c Body>
<POP 21fbc-21fd2 Prologue> Σ0 ↓
<POP 21fd2-21fda RegCacheLoad> Σ0 ↓
<POP 21fda-21fec Naked> Σ0 ↓
<MI 21fda MOVEA.L (A6+0x8),A0> {}
<MI 21fde MOVE.L (A0+0x8),(A6-0x8)> {}
<Pointer.fp 0x21fe2 <LVAR -0x004 @ 4(r)>> Δ-4 {[@@-4]}
<Call 0x21fe4 0x102b8> {[@@-4]}
NewString(VAR a : String)
<POP 21fea-21fec StackAdj> Δ+4 {}
<POP 21fec-21ff6 Naked> Σ0 ↓ →0x2207a ←0x22062
<MI 21fec MOVEA.L (A6-0x8),A0> {}
<MI 21fee CMPA.W #0x1,A0> {}
<MI 21ff2 BEQ 0x2207a> {}
<POP 21ff6-21ffa Naked> Σ0 ↓ →0x22062
<MI 21ff6 TST.L (A0)> {}
<MI 21ff8 BEQ 0x22062> {}
<POP 21ffa-22004 Naked> Σ0 Δ-4 ↓ →0x22018
<MI 21ffa MOVE.L (A0+0x4),-(A7)> Δ-4 {[4, '(A0+0x4)']}
<MI 21ffe MOVE.L (A0),D7> {[4, '(A0+0x4)']}
<MI 22000 CMP.L (A7),D7> {[4, '(A0+0x4)']}
<MI 22002 BGT 0x22018> {[4, '(A0+0x4)']}
<POP 22004-22018 Naked> Σ-4 ↓
<MI 22004 MOVE.L (A7),D0> {[-4-]}
<POP 0x22006 LimitCheck -0x7fffffff ≤ D7> {[-4-]}
<MI 22006 CMPI.L #0x80000001,D7>
<MI 2200c BLT 0x22016>
<POP 0x2200e LimitCheck D0 ≤ 0x7fffffff> {[-4-]}
<MI 2200e CMPI.L #0x7fffffff,D0>
<MI 22014 BLE 0x22018>
<MI 22016 TRAP #15>
<POP 22018-2201c Naked> Σ-4 ↓ →0x22060 ←0x21ffa ←0x2205c
<MI 22018 CMP.L (A7),D7> {[-4-]}
<MI 2201a BGT 0x22060> {[-4-]}
<POP 2201c-22048 Naked> Σ-4 ↓ →0x2205c
<MI 2201c MOVE.L (A6-0x4),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x4)']}
<MI 2201e MOVE.L D7,D0> {[-4-]|[4, '(A6-0x4)']}
<MI 22020 SUBQ.L #0x1,D0> {[-4-]|[4, '(A6-0x4)']}
<POP 0x22022 LimitCheck 0x0 ≤ D0 ≤ 0x1fff> {[-4-]|[4, '(A6-0x4)']}
<MI 2202c LEA.L 0x26c16,A0> {[-4-]|[4, '(A6-0x4)']}
<MI 22032 MOVE.B (A0+D0.L+#0x8),-(A7)> Δ-2 {[-4-]|[4, '(A6-0x4)']|[2, '(A0+D0.L+#0x8)']}
<Call 0x22036 0x102c0> {[-4-]|[4, '(A6-0x4)']|[2, '(A0+D0.L+#0x8)']}
AppendChar(MOD b : String; a : char)
<POP 2203c-2203e StackAdj> Δ+6 {[-4-]}
<MI 2203e MOVEA.L (A6-0x4),A0> {[-4-]}
<MI 22040 MOVE.W (A0),D0> {[-4-]}
<MI 22042 CMPI.W #0x007a,D0> {[-4-]}
<MI 22046 BLT 0x2205c> {[-4-]}
<POP 22048-2205c Naked> Σ-4 ↓
<MI 22048 MOVE.L (A6-0x4),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x4)']}
<Call 0x2204a 0x103d8> {[-4-]|[4, '(A6-0x4)']}
WriteConsoleString(str : String)
<POP 22050-22052 StackAdj> Δ+4 {[-4-]}
<Pointer.fp 0x22052 <LVAR -0x004 @ 4(r)>> Δ-4 {[-4-]|[@@-4]}
<Call 0x22054 0x102b8> {[-4-]|[@@-4]}
NewString(VAR a : String)
<POP 2205a-2205c StackAdj> Δ+4 {[-4-]}
<POP 2205c-22060 Naked> Σ-4 ↓ →0x22018 ←0x2201c
<MI 2205c ADDQ.L #0x1,D7> {[-4-]}
<MI 2205e BVC 0x22018> {[-4-]}
<POP 22060-22062 Naked> Σ-4 Δ+4 ↓ ←0x22018
<POP 22060-22062 StackAdj> Δ+4 {}
<POP 22062-2207a Naked> Σ0 →0x21fec ←0x21ff6
<MI 22062 MOVE.L (A6-0x4),-(A7)> Δ-4 {[4, '(A6-0x4)']}
<Const 0x22064 0x20.2> Δ-2 {[4, '(A6-0x4)']|[#32]}
<Call 0x22068 0x102c0> {[4, '(A6-0x4)']|[#32]}
AppendChar(MOD b : String; a : char)
<POP 2206e-22070 StackAdj> Δ+6 {}
<MI 22070 MOVEA.L (A6-0x8),A0> {}
<MI 22072 MOVE.L (A0+0x8),(A6-0x8)> {}
<MI 22076 BRA 0x21fec> {}
<POP 2207a-22084 Naked> Σ0 ↓ ←0x21fec
<MI 2207a MOVE.L (A6-0x4),-(A7)> Δ-4 {[4, '(A6-0x4)']}
<Call 0x2207c 0x103e0> {[4, '(A6-0x4)']}
WriteConsoleStringCrLf(str : String)
<POP 22082-22084 StackAdj> Δ+4 {}
<POP 22084-2208c Epilogue> Σ0
@ 2208c
<LVAR 0x008 @ 4(r)>
<LVAR -0x003 @ 1(r)>
<LVAR -0x004 @ 1(r)>
<LVAR -0x008 @ 4(r)>
<LVAR -0x00c @ 4(rw)>
<POP 2208c-22196 Body>
<POP 2208c-220a2 Prologue> Σ0 ↓
<POP 220a2-220b4 RegCacheLoad> Σ0 ↓
<POP 220b4-220fa Naked> Σ0 ↓ →0x22130
<Blob 0x220b4 [4] @> Δ-4 {[«4""»]}
<POP 220b8-220ba StackAdj> Δ-8 {[«4""»]|[-8-]}
<MI 220ba MOVE.L (A6+0x8),-(A7)> Δ-4 {[«4""»]|[-8-]|[4, '(A6+0x8)']}
<Call 0x220bc 0x102cc> {[«4""»]|[-8-]|[4, '(A6+0x8)']}
StringDup(a : String) : String
<Lit 0x220c2 4> {[«4""»]|[-8-]|[$$.HLP]}
<Call 0x220d4 0x102d0> {[«4""»]|[-8-]|[$$.HLP]}
StringCat2(a, b : String) : String
<POP 220da-220dc StackAdj> Δ+8 {[«4""»]|[-4-]}
<MI 220dc MOVE.L (A7)+,(A6-0xc)> Δ+4 {[«4""»]}
<MI 220de MOVE.L (A6-0xc),(A7)> {[4, '(A6-0xc)']}
<MI 220e0 CLR.B -(A7)> Δ-2 {[4, '(A6-0xc)']|[#0]}
<MI 220e2 CLR.B -(A7)> Δ-2 {[4, '(A6-0xc)']|[#0]|[#0]}
<Const 0x220e4 0x0.4> Δ-4 {[4, '(A6-0xc)']|[#0]|[#0]|[##0]}
<Pointer.fp 0x220e8 <LVAR -0x004 @ 1(r)>> Δ-4 {[4, '(A6-0xc)']|[#0]|[#0]|[##0]|[@@-4]}
<Pointer.fp 0x220ea <LVAR -0x008 @ 4(r)>> Δ-4 {[4, '(A6-0xc)']|[#0]|[#0]|[##0]|[@@-4]|[@@-8]}
<Call 0x220ec 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 220f2-220f6 StackAdj> Δ+20 {}
<MI 220f6 TST.B (A6-0x4)> {}
<MI 220f8 BEQ 0x22130> {}
<POP 220fa-22130 Naked> Σ0 →0x22184
<Blob 0x220fa [22] @> Δ-22 {[«22""»]}
<POP 22106-22108 StackAdj> Δ-8 {[«22""»]|[-8-]}
<Lit 0x22108 22> {[«22""»]|[-4-]|[$$No help available for_]}
<POP 22118-2211a StackAdj> Δ-4 {[«22""»]|[-4-]|[$$No help available for_]|[-4-]}
<MI 2211a MOVE.L (A6+0x8),(A7)> {[«22""»]|[-4-]|[$$No help available for_]|[4, '(A6+0x8)']}
<Call 0x2211c 0x102d0> {[«22""»]|[-4-]|[$$No help available for_]|[4, '(A6+0x8)']}
StringCat2(a, b : String) : String
<POP 22122-22124 StackAdj> Δ+8 {[«22""»]|[-4-]}
<Call 0x22124 0x103e0> {[«22""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 2212a-2212e StackAdj> Δ+26 {}
<MI 2212e BRA 0x22184> {}
<POP 22130-22148 Naked> Σ0 ↓ →0x2215c ←0x220b4 ←0x2215c
<MI 22130 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<Pointer.fp 0x22132 <LVAR 0x008 @ 4(r)>> Δ-4 {[4, '(A6-0x8)']|[@@8]}
<Pointer.fp 0x22134 <LVAR -0x003 @ 1(r)>> Δ-4 {[4, '(A6-0x8)']|[@@8]|[@@-3]}
<Call 0x22138 0x1043c> {[4, '(A6-0x8)']|[@@8]|[@@-3]}
FileReadLine(file : File; VAR a : String; VAR b : Byte)
<POP 2213e-22142 StackAdj> Δ+12 {}
<MI 22142 TST.B (A6-0x3)> {}
<MI 22146 BNE 0x2215c> {}
<POP 22148-2215c Naked> Σ0 ↓
<POP 22148-2214a StackAdj> Δ-4 {[-4-]}
<MI 2214a MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x2214c 0x102cc> {[-4-]|[4, '(A6+0x8)']}
StringDup(a : String) : String
<POP 22152-22154 StackAdj> Δ+4 {[-4-]}
<Call 0x22154 0x103e0> {[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 2215a-2215c StackAdj> Δ+4 {}
<POP 2215c-22162 Naked> Σ0 ↓ →0x22130 ←0x22130
<MI 2215c TST.B (A6-0x3)> {}
<MI 22160 BEQ 0x22130> {}
<POP 22162-22184 Naked> Σ0 ↓
<MI 22162 CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x22164 0x2.2> Δ-2 {[#0]|[#2]}
<Const 0x22168 0x1.4> Δ-4 {[#0]|[#2]|[##1]}
<Pointer.fp 0x2216c <LVAR -0x004 @ 1(r)>> Δ-4 {[#0]|[#2]|[##1]|[@@-4]}
<Pointer.fp 0x2216e <LVAR -0x008 @ 4(r)>> Δ-4 {[#0]|[#2]|[##1]|[@@-4]|[@@-8]}
<Call 0x22170 0x1038c> {[#0]|[#2]|[##1]|[@@-4]|[@@-8]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 22176-2217a StackAdj> Δ+16 {}
<Pointer.fp 0x2217a <LVAR 0x008 @ 4(r)>> Δ-4 {[@@8]}
<Call 0x2217c 0x102bc> {[@@8]}
FreeString(VAR a : String)
<POP 22182-22184 StackAdj> Δ+4 {}
<POP 22184-2218e Naked> Σ0 ↓ ←0x220fa
<Pointer.fp 0x22184 <LVAR -0x00c @ 4(rw)>> Δ-4 {[@@-12]}
<Call 0x22186 0x102bc> {[@@-12]}
FreeString(VAR a : String)
<POP 2218c-2218e StackAdj> Δ+4 {}
<POP 2218e-22196 Epilogue> Σ0
@ 22196
<LVAR 0x008 4(r)>
<POP 22196-22218 Body>
<POP 22196-221ac Prologue> Σ0 ↓
<POP 221ac-221bc Naked> Σ0 ↓ →0x221ea
<POP 221ac-221ae StackAdj> Δ-4 {[-4-]}
<MI 221ae MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x221b2 0x21518> {[-4-]|[4, '(A6+0x8)']}
<POP 221b6-221b8 StackAdj> Δ+4 {[-4-]}
<MI 221b8 MOVE.L (A7)+,D6> Δ+4 {}
<MI 221ba BNE 0x221ea> {}
<POP 221bc-221ea Naked> Σ0 →0x22210
<Blob 0x221bc [10] 0x28c30> Δ-10 {[«10»]}
<POP 221ca-221cc StackAdj> Δ-4 {[«10»]|[-4-]}
<Lit 0x221cc> {[«10»]|[$$…]}
<Pointer.sp 0x221cc 4> Δ-4
<Const 0x221d0 0x1.2> Δ-2
<Const 0x221d4 0xa.2> Δ-2
<Call 0x221d8 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 221de-221e0 StackAdj> Δ+8
<Call 0x221e0 0x2208c> {[«10»]|[$$…]}
<POP 221e4-221e8 StackAdj> Δ+14 {}
<MI 221e8 BRA 0x22210> {}
<POP 221ea-221ee Naked> Σ0 Δ-4 ↓ ←0x221ac
<MI 221ea MOVE.L D6,-(A7)> Δ-4 {[4, 'D6']}
<MI 221ec MOVEQ.L #0x01,D7> {[4, 'D6']}
<POP 221ee-221f2 Naked> Σ-4 ↓ →0x2220e ←0x221f2
<MI 221ee CMP.L (A7),D7> {[-4-]}
<MI 221f0 BGT 0x2220e> {[-4-]}
<POP 221f2-2220e Naked> Σ-4 ↓ →0x221ee
<POP 221f2-221f4 StackAdj> Δ-4 {[-8-]}
<MI 221f4 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<MI 221f8 MOVE.L D7,-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']|[4, 'D7']}
<Call 0x221fa 0x21e34> {[-8-]|[4, '(A6+0x8)']|[4, 'D7']}
<POP 221fe-22200 StackAdj> Δ+8 {[-8-]}
<MI 22200 MOVEA.L (A7)+,A4> Δ+4 {[-4-]}
<MI 22202 MOVE.L A4,-(A7)> Δ-4 {[-4-]|[4, 'A4']}
<Call 0x22204 0x2208c> {[-4-]|[4, 'A4']}
<POP 22208-2220a StackAdj> Δ+4 {[-4-]}
<MI 2220a ADDQ.L #0x1,D7> {[-4-]}
<MI 2220c BVC 0x221ee> {[-4-]}
<POP 2220e-22210 Naked> Σ-4 Δ+4 ↓ ←0x221ee
<POP 2220e-22210 StackAdj> Δ+4 {}
<POP 22210-22218 Epilogue> Σ0 ←0x221bc
@ 22218
<LVAR 0x00c @>
<LVAR 0x008 @ 4(r)>
<LVAR -0x020 @>
<POP 22218-2229a Body>
<POP 22218-2222e Prologue> Σ0 ↓
<POP 2222e-22230 RegCacheLoad> Σ0 ↓
<POP 22230-22232 Naked> Σ0 ↓
<MI 22230 MOVEQ.L #0x01,D7> {}
<POP 22232-2223e Naked> Σ0 ↓ →0x2224e ←0x2226c
<MI 22232 MOVEA.L (A6+0x8),A0> {}
<MI 22236 MOVE.W (A0),D0> {}
<MI 22238 EXTW.L D0> {}
<MI 2223a CMP.L D0,D7> {}
<MI 2223c BLE 0x2224e> {}
<POP 2223e-2224e Naked> Σ0 →0x2226c
<MI 2223e MOVE.L D7,D0> {}
<MI 22240 SUBQ.L #0x1,D0> {}
<POP 0x22242 LimitCheck 0x0 ≤ D0 ≤ 0x1d> {}
<MI 22248 CLR.B (A6+D0.L-#0x20)> {}
<MI 2224c BRA 0x2226c> {}
<POP 2224e-2226c Naked> Σ0 ↓ ←0x22232
<MI 2224e MOVE.L D7,D0> {}
<MI 22250 SUBQ.L #0x1,D0> {}
<POP 0x22252 LimitCheck 0x0 ≤ D0 ≤ 0x1d> {}
<MI 22258 MOVE.L D7,D1> {}
<MI 2225a SUBQ.L #0x1,D1> {}
<POP 0x2225c LimitCheck 0x0 ≤ D1 ≤ 0x7d> {}
<MI 22266 MOVE.B (A0+D1.L+#0x2),(A6+D0.L-#0x20)> {}
<POP 2226c-22276 Naked> Σ0 ↓ →0x22232 ←0x2223e
<MI 2226c ADDQ.L #0x1,D7> {}
<MI 2226e CMPI.L #0x0000001e,D7> {}
<MI 22274 BLE 0x22232> {}
<POP 22276-22292 Naked> Σ0 ↓
<Pointer.fp 0x22276 <LVAR 0x008 @ 4(r)>> Δ-4 {[@@8]}
<Call 0x2227a 0x102bc> {[@@8]}
FreeString(VAR a : String)
<POP 22280-22282 StackAdj> Δ+4 {}
<MI 22282 LEA.L (A6+0xc),A0> {}
<MI 22286 LEA.L (A6-0x20),A1> {}
<BlockMove 30,A1,A0> {}
<POP 22292-2229a Epilogue> Σ0
@ 2229a
<LVAR 0x026 4(w)>
<LVAR 0x008 @>
<LVAR -0x006 4(rw)>
<POP 2229a-222ee Body>
<POP 2229a-222b0 Prologue> Σ0 ↓
<POP 222b0-222b4 RegCacheLoad> Σ0 ↓
<POP 222b4-222bc Naked> Σ0 ↓
<MI 222b4 MOVEQ.L #0x00,D7> {}
<MI 222b6 MOVE.L 0x28c48,(A6-0x6)> {}
<POP 222bc-222c4 Naked> Σ0 ↓ →0x222e2 ←0x222e0
<MI 222bc MOVEA.L (A6-0x6),A0> {}
<MI 222be CMPA.W #0x1,A0> {}
<MI 222c2 BEQ 0x222e2> {}
<POP 222c4-222c8 Naked> Σ0 ↓ →0x222e2
<MI 222c4 TST.B D7> {}
<MI 222c6 BNE 0x222e2> {}
<POP 222c8-222d0 Naked> Σ0 ↓
<MI 222c8 MOVEA.L A0,A1> {}
<MI 222ca LEA.L (A6+0x8),A2> {}
<MI 222ce MOVEQ.L #0x1d,D0> {}
<POP 222d0-222d6 Naked> Σ0 ↓ →0x222d0 ←0x222d0
<MI 222d0 CMPM.B (A1)+,(A2)+> {}
<MI 222d2 DBNE D0,0x222d0> {}
<POP 222d6-222d8 Naked> Σ0 ↓ →0x222dc
<MI 222d6 BNE 0x222dc> {}
<POP 222d8-222dc Naked> Σ0 →0x222e0
<MI 222d8 MOVEQ.L #0x01,D7> {}
<MI 222da BRA 0x222e0> {}
<POP 222dc-222e0 Naked> Σ0 ↓ ←0x222d6
<MI 222dc MOVE.L (A0+0x26),(A6-0x6)> {}
<POP 222e0-222e2 Naked> Σ0 →0x222bc ←0x222d8
<MI 222e0 BRA 0x222bc> {}
<POP 222e2-222e6 Naked> Σ0 ↓ ←0x222bc ←0x222c4
<MI 222e2 MOVE.L A0,(A6+0x26)> {}
<POP 222e6-222ee Epilogue> Σ0
@ 222ee
<LVAR 0x008 @ 4(r)>
<POP 222ee-22374 Body>
<POP 222ee-22304 Prologue> Σ0 ↓
<POP 22304-22310 RegCacheLoad> Σ0 ↓
<POP 22310-22316 Naked> Σ0 ↓ →0x2236c
<MI 22310 MOVEA.L (A6+0x8),A0> {}
<MI 22312 CMPA.W #0x01,A0> {}
<MI 22314 BEQ 0x2236c> {}
<POP 22316-2231c Naked> Σ0 ↓ →0x2232c
<MI 22316 TST.L (A0+0x1e)> {}
<MI 2231a BEQ 0x2232c> {}
<POP 2231c-2232c Naked> Σ0 ↓
<MI 2231c MOVE.L (A0+0x22),-(A7)> Δ-4 {[4, '(A0+0x22)']}
<MI 22320 MOVE.L (A0+0x1e),-(A7)> Δ-4 {[4, '(A0+0x22)']|[4, '(A0+0x1e)']}
<Call 0x22324 0x102a4> {[4, '(A0+0x22)']|[4, '(A0+0x1e)']}
Free1(a : Pointer; b : Long)
<POP 2232a-2232c StackAdj> Δ+8 {}
<POP 2232c-22332 Naked> Σ0 ↓ ←0x22316
<MI 2232c MOVEQ.L #0x00,D7> {}
<MI 2232e MOVEA.W #0x01,A4> {}
<MI 22330 MOVEA.L 0x28c48,A3> {}
<POP 22332-22336 Naked> Σ0 ↓ →0x2234a ←0x22348
<MI 22332 CMPA.W #0x01,A3> {}
<MI 22334 BEQ 0x2234a> {}
<POP 22336-2233a Naked> Σ0 ↓ →0x2234a
<MI 22336 TST.B D7> {}
<MI 22338 BNE 0x2234a> {}
<POP 2233a-2233e Naked> Σ0 ↓ →0x22342
<MI 2233a CMPA.L (A6+0x8),A3> {}
<MI 2233c BNE 0x22342> {}
<POP 2233e-22342 Naked> Σ0 →0x22348
<MI 2233e MOVEQ.L #0x01,D7> {}
<MI 22340 BRA 0x22348> {}
<POP 22342-22348 Naked> Σ0 ↓ ←0x2233a
<MI 22342 MOVEA.L A3,A4> {}
<MI 22344 MOVEA.L (A3+0x26),A3> {}
<POP 22348-2234a Naked> Σ0 →0x22332 ←0x2233e
<MI 22348 BRA 0x22332> {}
<POP 2234a-2234e Naked> Σ0 ↓ →0x2236c ←0x22332 ←0x22336
<MI 2234a TST.B D7> {}
<MI 2234c BEQ 0x2236c> {}
<POP 2234e-22352 Naked> Σ0 ↓ →0x22358
<MI 2234e CMPA.W #0x01,A4> {}
<MI 22350 BNE 0x22358> {}
<POP 22352-22358 Naked> Σ0 →0x2235e
<MI 22352 MOVE.L (A3+0x26),0x28c48> {}
<MI 22356 BRA 0x2235e> {}
<POP 22358-2235e Naked> Σ0 ↓ ←0x2234e
<MI 22358 MOVE.L (A3+0x26),(A4+0x26)> {}
<POP 2235e-2236c Naked> Σ0 ↓ ←0x22352
<Pointer.fp 0x2235e <LVAR 0x008 @ 4(r)>> Δ-4 {[@@8]}
<Const 0x22360 0x2a.4> Δ-4 {[@@8]|[##42]}
<Call 0x22364 0x102a8> {[@@8]|[##42]}
Free2(a : Pointer; b : Long)
<POP 2236a-2236c StackAdj> Δ+8 {}
<POP 2236c-22374 Epilogue> Σ0 ←0x22310 ←0x2234a
@ 22374
<LVAR 0x010 4(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x006 @ 4(rw)>
<LVAR -0x024 @>
<POP 22374-22432 Body>
<POP 22374-2238a Prologue> Σ0 ↓
<POP 2238a-22394 RegCacheLoad> Σ0 ↓
<POP 22394-223b2 Naked> Σ0 ↓ →0x223b4
<POP 22394-22396 StackAdj> Δ-30 {[-30-]}
<MI 22396 MOVEA.L (A6+0xc),A0> {[-30-]}
<MI 2239a MOVE.L (A0),-(A7)> Δ-4 {[-30-]|[4, '(A0)']}
<Call 0x2239c 0x22218> {[-30-]|[4, '(A0)']}
<POP 223a0-223a2 StackAdj> Δ+4 {[-30-]}
<MI 223a2 LEA.L (A6-0x24),A0> {[-30-]}
<POP 223a6-223ae StackPop> Δ+30 {[-30-]}
<BlockMove 30,A7,A0> Δ+30
<MI 223ae TST.L (A6+0x8)> {[-30-]}
<MI 223b0 BGE 0x223b4> {[-30-]}
<POP 223b2-223b4 Naked> Σ0 ↓
<MI 223b2 CLR.L (A6+0x8)> {}
<POP 223b4-223d0 Naked> Σ0 ↓ →0x223e2 ←0x22394
<POP 223b4-223b6 StackAdj> Δ-4 {[-4-]}
<Blob 0x223b6 [30] (A6-0x6)> Δ-30 {[-4-]|[«30»]}
<Call 0x223c0 0x2229a> {[-4-]|[«30»]}
<POP 223c4-223c6 StackAdj> Δ+30 {[-4-]}
<MI 223c6 MOVE.L (A7)+,(A6-0x6)> Δ+4 {}
<MI 223c8 MOVEA.L (A6-0x6),A0> {}
<MI 223ca CMPA.W #0x1,A0> {}
<MI 223ce BEQ 0x223e2> {}
<POP 223d0-223d8 Naked> Σ0 ↓ →0x223da
<MI 223d0 MOVE.L (A0+0x1e),D0> {}
<MI 223d4 CMP.L (A6+0x8),D0> {}
<MI 223d6 BNE 0x223da> {}
<POP 223d8-223da Naked> Σ0 →0x22426
<MI 223d8 BRA 0x22426> {}
<POP 223da-223e2 Naked> Σ0 ↓ ←0x223d0
<MI 223da MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x223dc 0x222ee> {[4, '(A6-0x6)']}
<POP 223e0-223e2 StackAdj> Δ+4 {}
<POP 223e2-22416 Naked> Σ0 ↓ →0x22426 ←0x223b4
<Pointer.fp 0x223e2 <LVAR -0x006 @ 4(rw)>> Δ-4 {[@@-6]}
<Const 0x223e4 0x2a.4> Δ-4 {[@@-6]|[##42]}
<Call 0x223e8 0x1029c> {[@@-6]|[##42]}
Malloc1(length : Long) : Pointer
<POP 223ee-223f0 StackAdj> Δ+8 {}
<MI 223f0 MOVEA.L (A6-0x6),A0> {}
<MI 223f2 MOVE.L 0x28c48,(A0+0x26)> {}
<MI 223fa MOVE.L (A6-0x6),0x28c48> {}
<MI 22400 MOVEA.L A0,A1> {}
<MI 22402 LEA.L (A6-0x24),A2> {}
<BlockMove 30,A2,A1> {}
<MI 2240e MOVE.L (A6+0x8),(A0+0x1e)> {}
<MI 22412 TST.L (A6+0x8)> {}
<MI 22414 BEQ 0x22426> {}
<POP 22416-22426 Naked> Σ0 ↓
<POP 22416-22418 StackAdj> Δ-4 {[-4-]}
<MI 22418 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x2241a 0x102a0> {[-4-]|[4, '(A6+0x8)']}
Malloc2(VAR dst : Pointer; length : Word)
<POP 22420-22422 StackAdj> Δ+4 {[-4-]}
<MI 22422 MOVE.L (A7)+,(A0+0x22)> Δ+4 {}
<POP 22426-2242a Naked> Σ0 ↓ ←0x223d8 ←0x223e2
<MI 22426 MOVE.L (A6-0x6),(A6+0x10)> {}
<POP 2242a-22432 Epilogue> Σ0
@ 22432
<LVAR 0x00c @>
<LVAR 0x008 @ 4(r)>
<LVAR -0x008 4(rw)>
<POP 22432-224bc Body>
<POP 22432-22448 Prologue> Σ0 ↓
<POP 22448-2244c RegCacheLoad> Σ0 ↓
<POP 2244c-2246a Naked> Σ0 ↓ →0x224aa
<MI 2244c MOVEA.L (A6+0x8),A0> {}
<MI 2244e MOVE.W (A0),D0> {}
<MI 22450 EXTW.L D0> {}
<MI 22452 MOVE.L D0,D6> {}
<POP 22454-22456 StackAdj> Δ-4 {[-4-]}
<Pointer.fp 0x22456 <LVAR 0x00c @>> Δ-4 {[-4-]|[@@12]}
<MI 2245a MOVE.L D6,-(A7)> Δ-4 {[-4-]|[@@12]|[4, 'D6']}
<Call 0x2245c 0x22374> {[-4-]|[@@12]|[4, 'D6']}
<POP 22460-22462 StackAdj> Δ+8 {[-4-]}
<MI 22462 MOVE.L (A7)+,(A6-0x8)> Δ+4 {}
<MI 22466 TST.L D6> {}
<MI 22468 BEQ 0x224aa> {}
<POP 2246a-22478 Naked> Σ0 Δ-8 ↓
<MI 2246a MOVEA.L (A6-0x8),A0> {}
<MI 2246e MOVEA.L (A0+0x22),A0> {}
<MI 22472 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 22474 MOVE.L D6,-(A7)> Δ-4 {[4, 'A0']|[4, 'D6']}
<MI 22476 MOVEQ.L #0x01,D7> {[4, 'A0']|[4, 'D6']}
<POP 22478-2247c Naked> Σ-8 ↓ →0x224a8 ←0x2247c
<MI 22478 CMP.L (A7),D7> {[-8-]}
<MI 2247a BGT 0x224a8> {[-8-]}
<POP 2247c-224a8 Naked> Σ-8 ↓ →0x22478
<MI 2247c MOVE.L D7,D0> {[-8-]}
<MI 2247e SUBQ.L #0x1,D0> {[-8-]}
<POP 0x22480 LimitCheck 0x0 ≤ D0 ≤ 0x3ff> {[-8-]}
<MI 2248a MOVEA.L (A7+0x4),A0> {[-8-]}
<MI 2248e MOVEA.L (A6+0x8),A1> {[-8-]}
<MI 22490 MOVE.L D7,D1> {[-8-]}
<MI 22492 SUBQ.L #0x1,D1> {[-8-]}
<POP 0x22494 LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-8-]}
<MI 2249e MOVE.B (A1+D1.L+#0x2),(A0+D0.L)> {[-8-]}
<MI 224a4 ADDQ.L #0x1,D7> {[-8-]}
<MI 224a6 BVC 0x22478> {[-8-]}
<POP 224a8-224aa Naked> Σ-8 Δ+8 ↓ ←0x22478
<POP 224a8-224aa StackAdj> Δ+8 {}
<POP 224aa-224b4 Naked> Σ0 ↓ ←0x2244c
<Pointer.fp 0x224aa <LVAR 0x008 @ 4(r)>> Δ-4 {[@@8]}
<Call 0x224ac 0x102bc> {[@@8]}
FreeString(VAR a : String)
<POP 224b2-224b4 StackAdj> Δ+4 {}
<POP 224b4-224bc Epilogue> Σ0
@ 224bc
<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 224bc-22628 Body>
<POP 224bc-224d2 Prologue> Σ0 ↓
<POP 224d2-224e0 RegCacheLoad> Σ0 ↓
<POP 224e0-224f2 Naked> Σ0 ↓ →0x22520
<POP 224e0-224e2 StackAdj> Δ-4 {[-4-]}
<MI 224e2 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x224e4 0x21518> {[-4-]|[4, '(A6+0x8)']}
<POP 224e8-224ea StackAdj> Δ+4 {[-4-]}
<MI 224ea MOVE.L (A7)+,(A6-0x10)> Δ+4 {}
<MI 224ec MOVE.L (A6-0x10),D0> {}
<MI 224ee CMP.L #0x01,D0> {}
<MI 224f0 BGE 0x22520> {}
<POP 224f2-22520 Naked> Σ0 ↓
<Blob 0x224f2 [26] @> Δ-26 {[«26""»]}
<POP 22504-22506 StackAdj> Δ-4 {[«26""»]|[-4-]}
<Lit 0x22506 25> {[«26""»]|[$$Too few arguments for SET]}
<Call 0x22518 0x2110c> {[«26""»]|[$$Too few arguments for SET]}
<POP 2251c-22520 StackAdj> Δ+30 {}
<POP 22520-22526 Naked> Σ0 Δ-4 ↓ ←0x224e0
<MI 22520 CLR.L (A6-0xc)> {}
<MI 22522 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 22524 MOVEQ.L #0x02,D6> {[4, 'D0']}
<POP 22526-2252a Naked> Σ-4 ↓ →0x22548 ←0x2252a
<MI 22526 CMP.L (A7),D6> {[-4-]}
<MI 22528 BGT 0x22548> {[-4-]}
<POP 2252a-22548 Naked> Σ-4 ↓ →0x22526
<POP 2252a-2252e StackAdj> Δ-12 {[-16-]}
<MI 2252e MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<MI 22530 MOVE.L D6,-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[4, 'D6']}
<Call 0x22532 0x21d56> {[-16-]|[4, '(A6+0x8)']|[4, 'D6']}
<POP 22536-22538 StackAdj> Δ+8 {[-16-]}
<Call 0x22538 0x21d1e> {[-16-]}
<POP 2253c-2253e StackAdj> Δ+8 {[-8-]}
<MI 2253e MOVE.L (A6-0xc),D0> {[-8-]}
<MI 22540 ADD.L (A7)+,D0> Δ+4 {[-4-]}
<MI 22542 MOVE.L D0,(A6-0xc)> {[-4-]}
<MI 22544 ADDQ.L #0x1,D6> {[-4-]}
<MI 22546 BVC 0x22526> {[-4-]}
<POP 22548-22578 Naked> Σ-4 Δ+4 ↓ →0x22620 ←0x22526
<POP 22548-2254a StackAdj> Δ+4 {}
<MI 2254a MOVE.L (A6-0x10),D0> {}
<MI 2254c SUBQ.L #0x2,D0> {}
<MI 2254e ADD.L D0,(A6-0xc)> {}
<POP 22550-22552 StackAdj> Δ-4 {[-4-]}
<MI 22552 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x22554 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22558 0x21e34> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 2255c-2255e StackAdj> Δ+8 {[-4-]}
<MI 2255e MOVE.L (A7),(A6-0x4)> {[-4-]}
<Pointer.fp 0x22562 <LVAR -0x004 @ 4(w)>> Δ-4 {[-4-]|[@@-4]}
<MI 22566 MOVE.L (A6-0xc),-(A7)> Δ-4 {[-4-]|[@@-4]|[4, '(A6-0xc)']}
<Call 0x22568 0x22374> {[-4-]|[@@-4]|[4, '(A6-0xc)']}
<POP 2256c-2256e StackAdj> Δ+8 {[-4-]}
<MI 2256e MOVE.L (A7)+,(A6-0x8)> Δ+4 {}
<MI 22572 TST.L (A6-0xc)> {}
<MI 22574 BLE 0x22620> {}
<POP 22578-22588 Naked> Σ0 Δ-8 ↓
<MI 22578 MOVEA.L (A6-0x8),A0> {}
<MI 2257c MOVEA.L (A0+0x22),A0> {}
<MI 22580 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 22582 MOVEQ.L #0x01,D7> {[4, 'A0']}
<MI 22584 MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, 'A0']|[4, '(A6-0x10)']}
<MI 22586 MOVEQ.L #0x02,D6> {[4, 'A0']|[4, '(A6-0x10)']}
<POP 22588-2258e Naked> Σ-8 ↓ →0x2261e ←0x22618
<MI 22588 CMP.L (A7),D6> {[-8-]}
<MI 2258a BGT 0x2261e> {[-8-]}
<POP 2258e-225ae Naked> Σ-8 Δ-4 ↓ →0x225c2
<POP 2258e-22590 StackAdj> Δ-8 {[-16-]}
<MI 22590 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<MI 22592 MOVE.L D6,-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[4, 'D6']}
<Call 0x22594 0x21d56> {[-16-]|[4, '(A6+0x8)']|[4, 'D6']}
<POP 22598-2259a StackAdj> Δ+8 {[-16-]}
<MI 2259a MOVE.L (A7)+,(A6-0x20)> Δ+4 {[-12-]}
<MI 2259e MOVE.L (A7)+,(A6-0x1c)> Δ+4 {[-8-]}
<MI 225a2 MOVE.L (A6-0x1c),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x1c)']}
<MI 225a6 MOVE.L (A6-0x20),D5> {[-8-]|[4, '(A6-0x1c)']}
<MI 225aa CMP.L (A7),D5> {[-8-]|[4, '(A6-0x1c)']}
<MI 225ac BGT 0x225c2> {[-8-]|[4, '(A6-0x1c)']}
<POP 225ae-225c2 Naked> Σ-12 ↓
<MI 225ae MOVE.L (A7),D0> {[-12-]}
<POP 0x225b0 LimitCheck -0x7fffffff ≤ D5> {[-12-]}
<MI 225b0 CMPI.L #0x80000001,D5>
<MI 225b6 BLT 0x225c0>
<POP 0x225b8 LimitCheck D0 ≤ 0x7fffffff> {[-12-]}
<MI 225b8 CMPI.L #0x7fffffff,D0>
<MI 225be BLE 0x225c2>
<MI 225c0 TRAP #15>
<POP 225c2-225c6 Naked> Σ-12 ↓ →0x225f8 ←0x2258e ←0x225c6
<MI 225c2 CMP.L (A7),D5> {[-12-]}
<MI 225c4 BGT 0x225f8> {[-12-]}
<POP 225c6-225f8 Naked> Σ-12 ↓ →0x225c2
<MI 225c6 MOVE.L D7,D0> {[-12-]}
<MI 225c8 SUBQ.L #0x1,D0> {[-12-]}
<POP 0x225ca LimitCheck 0x0 ≤ D0 ≤ 0x3ff> {[-12-]}
<MI 225d4 MOVEA.L (A7+0x8),A0> {[-12-]}
<MI 225d8 MOVE.L D5,D1> {[-12-]}
<MI 225da SUBQ.L #0x1,D1> {[-12-]}
<POP 0x225dc LimitCheck 0x0 ≤ D1 ≤ 0x1fff> {[-12-]}
<MI 225e6 LEA.L 0x26c16,A1> {[-12-]}
<MI 225ec MOVE.B (A1+D1.L+#0x8),(A0+D0.L)> {[-12-]}
<MI 225f2 ADDQ.L #0x1,D7> {[-12-]}
<MI 225f4 ADDQ.L #0x1,D5> {[-12-]}
<MI 225f6 BVC 0x225c2> {[-12-]}
<POP 225f8-225fe Naked> Σ-12 Δ+4 ↓ →0x22618 ←0x225c2
<POP 225f8-225fa StackAdj> Δ+4 {[-8-]}
<MI 225fa CMP.L (A6-0x10),D6> {[-8-]}
<MI 225fc BEQ 0x22618> {[-8-]}
<POP 225fe-22618 Naked> Σ-8 ↓
<MI 225fe MOVE.L D7,D0> {[-8-]}
<MI 22600 SUBQ.L #0x1,D0> {[-8-]}
<POP 0x22602 LimitCheck 0x0 ≤ D0 ≤ 0x3ff> {[-8-]}
<MI 2260c MOVEA.L (A7+0x4),A0> {[-8-]}
<MI 22610 MOVE.B #0x2c,(A0+D0.L)> {[-8-]}
<MI 22616 ADDQ.L #0x1,D7> {[-8-]}
<POP 22618-2261e Naked> Σ-8 ↓ →0x22588 ←0x225f8
<MI 22618 ADDQ.L #0x1,D6> {[-8-]}
<MI 2261a BVC 0x22588> {[-8-]}
<POP 2261e-22620 Naked> Σ-8 Δ+8 ↓ ←0x22588
<POP 2261e-22620 StackAdj> Δ+8 {}
<POP 22620-22628 Epilogue> Σ0 ←0x22548
@ 22628
<LVAR 0x008 4(r)>
<LVAR -0x00c 4(rw)>
<POP 22628-22716 Body>
<POP 22628-2263e Prologue> Σ0 ↓
<POP 2263e-22646 RegCacheLoad> Σ0 ↓
<POP 22646-22678 Naked> Σ0 ↓ →0x226ba
<POP 22646-22648 StackAdj> Δ-4 {[-4-]}
<MI 22648 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x2264c 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22650 0x21e34> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 22654-22656 StackAdj> Δ+8 {[-4-]}
<MI 22656 MOVEA.L (A7)+,A4> Δ+4 {}
<POP 22658-2265c StackAdj> Δ-34 {[-34-]}
<MI 2265c MOVE.L A4,-(A7)> Δ-4 {[-34-]|[4, 'A4']}
<Call 0x2265e 0x22218> {[-34-]|[4, 'A4']}
<POP 22662-22664 StackAdj> Δ+4 {[-34-]}
<Call 0x22664 0x2229a> {[-34-]}
<POP 22668-2266c StackAdj> Δ+30 {[-4-]}
<MI 2266c MOVE.L (A7)+,(A6-0xc)> Δ+4 {}
<MI 22670 MOVEA.L (A6-0xc),A0> {}
<MI 22674 CMPA.W #0x01,A0> {}
<MI 22676 BNE 0x226ba> {}
<POP 22678-226ba Naked> Σ0 ↓
<Blob 0x22678 [20] @> Δ-20 {[«20""»]}
<POP 2268a-2268c StackAdj> Δ-8 {[«20""»]|[-8-]}
<Lit 0x2268c 19> {[«20""»]|[-4-]|[$$Unknown variable :_]}
<MI 2269c MOVE.L (A6+0x8),(A7)> {[«20""»]|[-4-]|[4, '(A6+0x8)']}
<POP 22696-2269c StackAdj> Δ-8 {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-8-]}
<Const 0x226a0 0x1.4> Δ-4 {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-8-]|[##1]}
<Call 0x226a4 0x21e34> {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-8-]|[##1]}
<POP 226a8-226aa StackAdj> Δ+8 {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-4-]}
<Call 0x226aa 0x102d0> {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-4-]}
StringCat2(a, b : String) : String
<POP 226b0-226b2 StackAdj> Δ+8 {[«20""»]|[-4-]}
<Call 0x226b2 0x2110c> {[«20""»]|[-4-]}
<POP 226b6-226ba StackAdj> Δ+24 {}
<POP 226ba-226d0 Naked> Σ0 Δ-8 ↓ ←0x22646
<MI 226ba MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Blob 0x226bc [4] 0x28c1e> Δ-4 {[4, 'A0']|[«4»]}
<MI 226be MOVE.L (A0+0x1e),-(A7)> Δ-4 {[4, 'A0']|[«4»]|[4, '(A0+0x1e)']}
<MI 226c2 NEG.L (A7)> {[4, 'A0']|[«4»]|[4, '(A0+0x1e)']}
<Call 0x226c4 0x21660> {[4, 'A0']|[«4»]|[4, '(A0+0x1e)']}
<POP 226c8-226ca StackAdj> Δ+4 {[4, 'A0']|[«4»]}
<MI 226ca MOVE.L (A0+0x1e),(A7)> {[4, 'A0']|[4, '(A0+0x1e)']}
<MI 226ce MOVEQ.L #0x01,D7> {[4, 'A0']|[4, '(A0+0x1e)']}
<POP 226d0-226d4 Naked> Σ-8 ↓ →0x2270c ←0x226d4
<MI 226d0 CMP.L (A7),D7> {[-8-]}
<MI 226d2 BGT 0x2270c> {[-8-]}
<POP 226d4-2270c Naked> Σ-8 ↓ →0x226d0
<MI 226d4 MOVE.L D7,D0> {[-8-]}
<MI 226d6 ADD.L 0x28c1e,D0> {[-8-]}
<MI 226d8 SUBQ.L #0x1,D0> {[-8-]}
<MI 226da SUBQ.L #0x1,D0> {[-8-]}
<POP 0x226dc LimitCheck 0x0 ≤ D0 ≤ 0x1fff> {[-8-]}
<MI 226e6 LEA.L 0x26c16,A0> {[-8-]}
<MI 226ec MOVEA.L (A7+0x4),A1> {[-8-]}
<MI 226f0 MOVEA.L (A1+0x22),A1> {[-8-]}
<MI 226f4 MOVE.L D7,D1> {[-8-]}
<MI 226f6 SUBQ.L #0x1,D1> {[-8-]}
<POP 0x226f8 LimitCheck 0x0 ≤ D1 ≤ 0x3ff> {[-8-]}
<MI 22702 MOVE.B (A1+D1.L),(A0+D0.L+#0x8)> {[-8-]}
<MI 22708 ADDQ.L #0x1,D7> {[-8-]}
<MI 2270a BVC 0x226d0> {[-8-]}
<POP 2270c-2270e Naked> Σ-8 Δ+8 ↓ ←0x226d0
<POP 2270c-2270e StackAdj> Δ+8 {}
<POP 2270e-22716 Epilogue> Σ0
@ 22716
<LVAR -0x004 4(rw)>
<POP 22716-22778 Body>
<POP 22716-2272c Prologue> Σ0 ↓
<POP 2272c-22734 RegCacheLoad> Σ0 ↓
<POP 22734-2273a Naked> Σ0 ↓
<MI 22734 MOVE.L 0x28c48,(A6-0x4)> {}
<POP 2273a-22740 Naked> Σ0 ↓ →0x22770 ←0x22740
<MI 2273a MOVEA.L (A6-0x4),A0> {}
<MI 2273c CMPA.W #0x01,A0> {}
<MI 2273e BEQ 0x22770> {}
<POP 22740-22770 Naked> Σ0 →0x2273a
<POP 22740-22742 StackAdj> Δ-30 {[-30-]}
<MI 22742 MOVEA.L A7,A1> {[-30-]}
<MI 22744 MOVEA.L A0,A2> {[-30-]}
<BlockMove 30,A2,A1> {[-30-]}
<POP 2274e-22750 StackAdj> Δ-4 {[-34-]}
<Lit 0x22750> {[-30-]|[$$…]}
<Pointer.sp 0x22750 4> Δ-4
<Const 0x22754 0x1.2> Δ-2
<Const 0x22756 0x1e.2> Δ-2
<Call 0x22758 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 2275e-22760 StackAdj> Δ+8
<Call 0x22760 0x103e0> {[-30-]|[$$…]}
WriteConsoleStringCrLf(str : String)
<POP 22766-2276a StackAdj> Δ+34 {}
<MI 2276a MOVE.L (A0+0x26),(A6-0x4)> {}
<MI 2276e BRA 0x2273a> {}
<POP 22770-22778 Epilogue> Σ0 ←0x2273a
@ 22778
<LVAR 0x008 4(r)>
<POP 22778-227b4 Body>
<POP 22778-2278a Prologue> Σ0 ↓
<POP 2278a-227b0 Naked> Σ0 ↓
<POP 2278a-2278e StackAdj> Δ-38 {[-38-]}
<MI 2278e MOVE.L (A6+0x8),-(A7)> Δ-4 {[-38-]|[4, '(A6+0x8)']}
<Const 0x22792 0x1.4> Δ-4 {[-38-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22796 0x21e34> {[-38-]|[4, '(A6+0x8)']|[##1]}
<POP 2279a-2279c StackAdj> Δ+8 {[-38-]}
<Call 0x2279c 0x22218> {[-38-]}
<POP 227a0-227a2 StackAdj> Δ+4 {[-34-]}
<Call 0x227a2 0x2229a> {[-34-]}
<POP 227a6-227aa StackAdj> Δ+30 {[-4-]}
<Call 0x227aa 0x222ee> {[-4-]}
<POP 227ae-227b0 StackAdj> Δ+4 {}
<POP 227b0-227b4 Epilogue> Σ0
@ 227b4
<POP 227b4-227e2 Body>
<POP 227b4-227c6 Prologue> Σ0 ↓
<POP 227c6-227de Naked> Σ0 ↓
<POP 227c6-227c8 StackAdj> Δ-8 {[-8-]}
<Call 0x227c8 0x103cc> {[-8-]}
GetPushLevel() : Long
<Call 0x227ce 0x102e4> {[-8-]}
Long2String(a : Long) : String
<POP 227d4-227d6 StackAdj> Δ+4 {[-4-]}
<Call 0x227d6 0x103e0> {[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 227dc-227de StackAdj> Δ+4 {}
<POP 227de-227e2 Epilogue> Σ0
@ 227e2
<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 227e2-22b0a Body>
<POP 227e2-227f8 Prologue> Σ0 ↓
<POP 227f8-22810 RegCacheLoad> Σ0 ↓
<POP 22810-22820 Naked> Σ0 ↓ →0x22848
<POP 22810-22812 StackAdj> Δ-4 {[-4-]}
<MI 22812 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x22814 0x21518> {[-4-]|[4, '(A6+0x8)']}
<POP 22818-2281a StackAdj> Δ+4 {[-4-]}
<MI 2281a MOVE.L (A7)+,(A6-0x2c)> Δ+4 {}
<MI 2281e BNE 0x22848> {}
<POP 22820-22848 Naked> Σ0 →0x22858
<POP 22820-22822 StackAdj> Δ-4 {[-4-]}
<POP 22822-22823 StackAdj> Δ+2 {[-2-]}
<Blob 0x22823 [2] @> Δ-2 {[-2-]|[«2""»]}
<MI 22826 MOVE.B 0x20d31,(A7+0x1)> {[-2-]|[«2""»]}
<MI 2282c MOVE.B 0x20d32,(A7+0x2)> {[-2-]|[«2""»]}
<POP 22832-22834 StackAdj> Δ-4 {[-2-]|[«2""»]|[-4-]}
<Lit 0x22834> {[-2-]|[«2""»]|[$$…]}
<Pointer.sp 0x22834 4> Δ-4
<Const 0x22838 0x1.2> Δ-2
<Const 0x2283a 0x3.2> Δ-2
<Call 0x2283e 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 22840-22842 StackAdj> Δ+8
<MI 22842 MOVE.L (A7)+,(A6-0x3c)> Δ+4 {[-2-]|[«2""»]}
<POP 22844-22846 StackAdj> Δ+4 {}
<MI 22846 BRA 0x22858> {}
<POP 22848-22858 Naked> Σ0 ↓ ←0x22810
<POP 22848-2284a StackAdj> Δ-4 {[-4-]}
<MI 2284a MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x2284c 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22850 0x21e34> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 22854-22856 StackAdj> Δ+8 {[-4-]}
<MI 22856 MOVE.L (A7)+,(A6-0x3c)> Δ+4 {}
<POP 22858-228a8 Naked> Σ0 ↓ →0x228b6 ←0x22820
<Blob 0x22858 [6] @> Δ-6 {[«6""»]}
<POP 22868-2286a StackAdj> Δ-4 {[«6""»]|[-4-]}
<MI 2286a MOVE.L (A6-0x3c),-(A7)> Δ-4 {[«6""»]|[-4-]|[4, '(A6-0x3c)']}
<POP 2286c-2286e StackAdj> Δ-4 {[«6""»]|[-4-]|[4, '(A6-0x3c)']|[-4-]}
<Lit 0x2286e 5> {[«6""»]|[-4-]|[4, '(A6-0x3c)']|[$$.M200]}
<Call 0x2287c 0x102d0> {[«6""»]|[-4-]|[4, '(A6-0x3c)']|[$$.M200]}
StringCat2(a, b : String) : String
<POP 22882-22884 StackAdj> Δ+8 {[«6""»]|[-4-]}
<MI 22884 MOVE.L (A7)+,(A6-0x3c)> Δ+4 {[«6""»]}
<POP 22886-22888 StackAdj> Δ+2 {[-4-]}
<MI 22888 MOVE.L (A6-0x3c),(A7)> {[4, '(A6-0x3c)']}
<MI 2288a CLR.B -(A7)> Δ-2 {[4, '(A6-0x3c)']|[#0]}
<Const 0x2288c 0x1.2> Δ-2 {[4, '(A6-0x3c)']|[#0]|[#1]}
<Const 0x2288e 0x0.4> Δ-4 {[4, '(A6-0x3c)']|[#0]|[#1]|[##0]}
<Pointer.fp 0x22892 <LVAR -0x038 @ 1(r)>> Δ-4 {[4, '(A6-0x3c)']|[#0]|[#1]|[##0]|[@@-56]}
<Pointer.fp 0x22896 <LVAR -0x036 @ 4(r)>> Δ-4 {[4, '(A6-0x3c)']|[#0]|[#1]|[##0]|[@@-56]|[@@-54]}
<Call 0x2289a 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 228a0-228a2 StackAdj> Δ+20 {}
<MI 228a2 TST.B (A6-0x38)> {}
<MI 228a6 BEQ 0x228b6> {}
<POP 228a8-228b6 Naked> Σ0 →0x22b02
<Pointer.fp 0x228a8 <LVAR -0x03c @ 4(rw)>> Δ-4 {[@@-60]}
<Call 0x228aa 0x102bc> {[@@-60]}
FreeString(VAR a : String)
<POP 228b0-228b2 StackAdj> Δ+4 {}
<MI 228b2 BRA 0x22b02> {}
<POP 228b6-228fc Naked> Σ0 ↓ →0x22932 ←0x22858
<MI 228b6 MOVEA.L (A6-0x36),A0> {}
<MI 228ba MOVE.B (A0+0x3f),D0> {}
<MI 228be LSL.B #0x6,D0> {}
<MI 228c0 LSR.B #0x7,D0> {}
<MI 228c2 MOVE.B D0,(A6-0x32)> {}
<MI 228c6 CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x228c8 0x1.2> Δ-2 {[#0]|[#1]}
<Const 0x228ca 0x1.4> Δ-4 {[#0]|[#1]|[##1]}
<Pointer.fp 0x228ce <LVAR -0x038 @ 1(r)>> Δ-4 {[#0]|[#1]|[##1]|[@@-56]}
<Pointer.fp 0x228d2 <LVAR -0x036 @ 4(r)>> Δ-4 {[#0]|[#1]|[##1]|[@@-56]|[@@-54]}
<Call 0x228d6 0x1038c> {[#0]|[#1]|[##1]|[@@-56]|[@@-54]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 228dc-228e0 StackAdj> Δ+16 {}
<MI 228e0 MOVEA.L (A6-0x3c),A0> {}
<MI 228e2 MOVE.W (A0),D1> {}
<MI 228e4 EXTW.L D1> {}
<MI 228e6 SUBQ.L #0x5,D1> {}
<POP 0x228e8 LimitCheck -0x8000 ≤ D1 ≤ 0x7fff> {}
<MI 228f6 MOVE.W D1,(A0)> {}
<MI 228f8 TST.B D0> {}
<MI 228fa BNE 0x22932> {}
<POP 228fc-22932 Naked> Σ0 →0x22b02
<Blob 0x228fc [18] @> Δ-18 {[«18""»]}
<POP 22908-2290a StackAdj> Δ-4 {[«18""»]|[-4-]}
<MI 2290a MOVE.L (A6-0x3c),-(A7)> Δ-4 {[«18""»]|[-4-]|[4, '(A6-0x3c)']}
<POP 2290c-2290e StackAdj> Δ-4 {[«18""»]|[-4-]|[4, '(A6-0x3c)']|[-4-]}
<Lit 0x2290e 18> {[«18""»]|[-4-]|[4, '(A6-0x3c)']|[$$ is not a program.]}
<Call 0x2291c 0x102d0> {[«18""»]|[-4-]|[4, '(A6-0x3c)']|[$$ is not a program.]}
StringCat2(a, b : String) : String
<POP 22922-22924 StackAdj> Δ+8 {[«18""»]|[-4-]}
<Call 0x22924 0x103e0> {[«18""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 2292a-2292e StackAdj> Δ+22 {}
<MI 2292e BRA 0x22b02> {}
<POP 22932-2294c Naked> Σ0 Δ-8 ↓ ←0x228b6
<Pointer.fp 0x22932 <LVAR -0x030 @ 4(r)>> Δ-4 {[@@-48]}
<Call 0x22936 0x102b8> {[@@-48]}
NewString(VAR a : String)
<POP 2293c-2293e StackAdj> Δ+4 {}
<MI 2293e MOVEA.L (A6-0x30),A0> {}
<MI 22942 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 22944 MOVEQ.L #0x01,D7> {[4, 'A0']}
<MI 22946 MOVE.L (A6-0x2c),-(A7)> Δ-4 {[4, 'A0']|[4, '(A6-0x2c)']}
<MI 2294a MOVEQ.L #0x02,D5> {[4, 'A0']|[4, '(A6-0x2c)']}
<POP 2294c-22952 Naked> Σ-8 ↓ →0x229e4 ←0x229de
<MI 2294c CMP.L (A7),D5> {[-8-]}
<MI 2294e BGT 0x229e4> {[-8-]}
<POP 22952-22972 Naked> Σ-8 Δ-4 ↓ →0x22986
<POP 22952-22954 StackAdj> Δ-8 {[-16-]}
<MI 22954 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<MI 22956 MOVE.L D5,-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[4, 'D5']}
<Call 0x22958 0x21d56> {[-16-]|[4, '(A6+0x8)']|[4, 'D5']}
<POP 2295c-2295e StackAdj> Δ+8 {[-16-]}
<MI 2295e MOVE.L (A7)+,(A6-0x28)> Δ+4 {[-12-]}
<MI 22962 MOVE.L (A7)+,(A6-0x24)> Δ+4 {[-8-]}
<MI 22966 MOVE.L (A6-0x24),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x24)']}
<MI 2296a MOVE.L (A6-0x28),D6> {[-8-]|[4, '(A6-0x24)']}
<MI 2296e CMP.L (A7),D6> {[-8-]|[4, '(A6-0x24)']}
<MI 22970 BGT 0x22986> {[-8-]|[4, '(A6-0x24)']}
<POP 22972-22986 Naked> Σ-12 ↓
<MI 22972 MOVE.L (A7),D0> {[-12-]}
<POP 0x22974 LimitCheck -0x7fffffff ≤ D6> {[-12-]}
<MI 22974 CMPI.L #0x80000001,D6>
<MI 2297a BLT 0x22984>
<POP 0x2297c LimitCheck D0 ≤ 0x7fffffff> {[-12-]}
<MI 2297c CMPI.L #0x7fffffff,D0>
<MI 22982 BLE 0x22986>
<MI 22984 TRAP #15>
<POP 22986-2298a Naked> Σ-12 ↓ →0x229bc ←0x22952 ←0x2298a
<MI 22986 CMP.L (A7),D6> {[-12-]}
<MI 22988 BGT 0x229bc> {[-12-]}
<POP 2298a-229bc Naked> Σ-12 ↓ →0x22986
<MI 2298a MOVE.L D7,D0> {[-12-]}
<MI 2298c SUBQ.L #0x1,D0> {[-12-]}
<POP 0x2298e LimitCheck 0x0 ≤ D0 ≤ 0x7d> {[-12-]}
<MI 22998 MOVEA.L (A7+0x8),A0> {[-12-]}
<MI 2299c MOVE.L D6,D1> {[-12-]}
<MI 2299e SUBQ.L #0x1,D1> {[-12-]}
<POP 0x229a0 LimitCheck 0x0 ≤ D1 ≤ 0x1fff> {[-12-]}
<MI 229aa LEA.L 0x26c16,A1> {[-12-]}
<MI 229b0 MOVE.B (A1+D1.L+#0x8),(A0+D0.L+#0x2)> {[-12-]}
<MI 229b6 ADDQ.L #0x1,D7> {[-12-]}
<MI 229b8 ADDQ.L #0x1,D6> {[-12-]}
<MI 229ba BVC 0x22986> {[-12-]}
<POP 229bc-229c4 Naked> Σ-12 Δ+4 ↓ →0x229de ←0x22986
<POP 229bc-229be StackAdj> Δ+4 {[-8-]}
<MI 229be CMP.L (A6-0x2c),D5> {[-8-]}
<MI 229c2 BEQ 0x229de> {[-8-]}
<POP 229c4-229de Naked> Σ-8 ↓
<MI 229c4 MOVE.L D7,D0> {[-8-]}
<MI 229c6 SUBQ.L #0x1,D0> {[-8-]}
<POP 0x229c8 LimitCheck 0x0 ≤ D0 ≤ 0x7d> {[-8-]}
<MI 229d2 MOVEA.L (A7+0x4),A0> {[-8-]}
<MI 229d6 MOVE.B #0x2c,(A0+D0.L+#0x2)> {[-8-]}
<MI 229dc ADDQ.L #0x1,D7> {[-8-]}
<POP 229de-229e4 Naked> Σ-8 ↓ →0x2294c ←0x229bc
<MI 229de ADDQ.L #0x1,D5> {[-8-]}
<MI 229e0 BVC 0x2294c> {[-8-]}
<POP 229e4-22a94 Naked> Σ-8 Δ+8 ↓ →0x22a9a ←0x2294c
<POP 229e4-229e6 StackAdj> Δ+4 {[-4-]}
<MI 229e6 MOVEA.L (A7),A0> {[-4-]}
<MI 229e8 MOVE.L D7,D0> {[-4-]}
<MI 229ea SUBQ.L #0x1,D0> {[-4-]}
<POP 0x229ec LimitCheck -0x8000 ≤ D0 ≤ 0x7fff> {[-4-]}
<MI 229fa MOVE.W D0,(A0)> {[-4-]}
<POP 229fc-229fe StackAdj> Δ+2 {[-2-]}
<POP 229fe-229ff StackAdj> Δ+2 {}
<Blob 0x229ff [2] @> Δ-2 {[«2""»]}
<Blob 0x22a02 [2] @> Δ-2 {[«2""»]|[«2""»]}
<Blob 0x22a06 [2] @> Δ-2 {[«2""»]|[«2""»]|[«2""»]}
<POP 22a0a-22a0c StackAdj> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[-4-]}
<Lit 0x22a0c 6> {[«2""»]|[«2""»]|[«2""»]|[$$STATUS]}
<MI 22a1a MOVE.L (A7)+,(A6-0x8)> Δ+4 {[«2""»]|[«2""»]|[«2""»]}
<POP 22a1e-22a20 StackAdj> Δ+2 {[«2""»]|[«2""»]}
<MI 22a20 MOVE.L (A6+0x8),(A7)> {[4, '(A6+0x8)']}
<Const 0x22a22 0x0.4> Δ-4 {[4, '(A6+0x8)']|[##0]}
<MI 22a26 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']}
<Pointer.fp 0x22a2a <LVAR -0x010 @ 4(r)>> Δ-4 {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']|[@@-16]}
<Pointer.fp 0x22a2e <LVAR -0x013 @ 1(r)>> Δ-4 {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']|[@@-16]|[@@-19]}
<Call 0x22a32 0x2436c> {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']|[@@-16]|[@@-19]}
<POP 22a38-22a3a StackAdj> Δ+20 {}
<Pointer.fp 0x22a3a <LVAR -0x008 @ 4(rw)>> Δ-4 {[@@-8]}
<Call 0x22a3e 0x102bc> {[@@-8]}
FreeString(VAR a : String)
<POP 22a44-22a46 StackAdj> Δ+2 {[-2-]}
<POP 22a46-22a47 StackAdj> Δ+2 {}
<Blob 0x22a47 [2] @> Δ-2 {[«2""»]}
<Blob 0x22a4a [2] @> Δ-2 {[«2""»]|[«2""»]}
<Blob 0x22a4e [2] @> Δ-2 {[«2""»]|[«2""»]|[«2""»]}
<POP 22a52-22a54 StackAdj> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[-4-]}
<Lit 0x22a54 6> {[«2""»]|[«2""»]|[«2""»]|[$$RESULT]}
<MI 22a62 MOVE.L (A7)+,(A6-0x8)> Δ+4 {[«2""»]|[«2""»]|[«2""»]}
<POP 22a66-22a68 StackAdj> Δ+2 {[«2""»]|[«2""»]}
<MI 22a68 MOVE.L (A6+0x8),(A7)> {[4, '(A6+0x8)']}
<Const 0x22a6a 0x0.4> Δ-4 {[4, '(A6+0x8)']|[##0]}
<MI 22a6e MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']}
<Pointer.fp 0x22a72 <LVAR -0x00c @ 4(r)>> Δ-4 {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']|[@@-12]}
<Pointer.fp 0x22a76 <LVAR -0x012 @ 1(r)>> Δ-4 {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']|[@@-12]|[@@-18]}
<Call 0x22a7a 0x2436c> {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']|[@@-12]|[@@-18]}
<POP 22a80-22a82 StackAdj> Δ+20 {}
<Pointer.fp 0x22a82 <LVAR -0x008 @ 4(rw)>> Δ-4 {[@@-8]}
<Call 0x22a86 0x102bc> {[@@-8]}
FreeString(VAR a : String)
<POP 22a8c-22a8e StackAdj> Δ+4 {}
<MI 22a8e TST.B (A6-0x13)> {}
<MI 22a92 BNE 0x22a9a> {}
<POP 22a94-22a9a Naked> Σ0 ↓ →0x22aa0
<MI 22a94 TST.B (A6-0x12)> {}
<MI 22a98 BEQ 0x22aa0> {}
<POP 22a9a-22aa0 Naked> Σ0 →0x22aa4 ←0x229e4
<MI 22a9a CLR.B (A6-0x4)> {}
<MI 22a9e BRA 0x22aa4> {}
<POP 22aa0-22aa4 Naked> Σ0 ↓ ←0x22a94
<MI 22aa0 MOVE.B #0x01,(A6-0x4)> {}
<POP 22aa4-22aca Naked> Σ0 ↓ →0x22aea ←0x22a9a
<MI 22aa4 MOVE.L (A6-0x3c),-(A7)> Δ-4 {[4, '(A6-0x3c)']}
<MI 22aa6 MOVE.L (A6-0x30),-(A7)> Δ-4 {[4, '(A6-0x3c)']|[4, '(A6-0x30)']}
<MI 22aaa MOVE.B (A6-0x4),D0> {[4, '(A6-0x3c)']|[4, '(A6-0x30)']}
<MI 22aae EXTB.W D0> {[4, '(A6-0x3c)']|[4, '(A6-0x30)']}
<POP 0x22ab0 LimitCheck 0x0 ≤ D0 ≤ 0x2> {[4, '(A6-0x3c)']|[4, '(A6-0x30)']}
<MI 22ab4 MOVE.B D0,-(A7)> Δ-2 {[4, '(A6-0x3c)']|[4, '(A6-0x30)']|[2, 'D0']}
<Pointer.fp 0x22ab6 <LVAR -0x014 @ 1(r)>> Δ-4 {[4, '(A6-0x3c)']|[4, '(A6-0x30)']|[2, 'D0']|[@@-20]}
<Call 0x22aba 0x103b0> {[4, '(A6-0x3c)']|[4, '(A6-0x30)']|[2, 'D0']|[@@-20]}
PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
<POP 22ac0-22ac4 StackAdj> Δ+14 {}
<MI 22ac4 TST.B (A6-0x13)> {}
<MI 22ac8 BEQ 0x22aea> {}
<POP 22aca-22aea Naked> Σ0 ↓
<MI 22aca MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0x10)']}
<POP 22ace-22ad0 StackAdj> Δ-4 {[4, '(A6-0x10)']|[-4-]}
<MI 22ad0 MOVE.B (A6-0x14),D0> {[4, '(A6-0x10)']|[-4-]}
<MI 22ad4 EXTB.W D0> {[4, '(A6-0x10)']|[-4-]}
<POP 0x22ad6 LimitCheck 0x0 ≤ D0 ≤ 0xe> {[4, '(A6-0x10)']|[-4-]}
<MI 22ada MOVE.B D0,-(A7)> Δ-2 {[4, '(A6-0x10)']|[-4-]|[2, 'D0']}
<Call 0x22adc 0x103c0> {[4, '(A6-0x10)']|[-4-]|[2, 'D0']}
ExpErrMsg(a: Byte) : String
<POP 22ae2-22ae4 StackAdj> Δ+2 {[4, '(A6-0x10)']|[-4-]}
<Call 0x22ae4 0x22432> {[4, '(A6-0x10)']|[-4-]}
<POP 22ae8-22aea StackAdj> Δ+8 {}
<POP 22aea-22af0 Naked> Σ0 ↓ →0x22b02 ←0x22aa4
<MI 22aea TST.B (A6-0x12)> {}
<MI 22aee BEQ 0x22b02> {}
<POP 22af0-22b02 Naked> Σ0 ↓
<MI 22af0 MOVE.L (A6-0xc),-(A7)> Δ-4 {[4, '(A6-0xc)']}
<POP 22af4-22af6 StackAdj> Δ-4 {[4, '(A6-0xc)']|[-4-]}
<Call 0x22af6 0x103c8> {[4, '(A6-0xc)']|[-4-]}
FSCALL_103c8
<Call 0x22afc 0x22432> {[4, '(A6-0xc)']|[-4-]}
<POP 22b00-22b02 StackAdj> Δ+8 {}
<POP 22b02-22b0a Epilogue> Σ0 ←0x228a8 ←0x228fc ←0x22aea
@ 22b0a
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 4(rw)>
<LVAR -0x008 @ 4(rw)>
<POP 22b0a-22b82 Body>
<POP 22b0a-22b20 Prologue> Σ0 ↓
<POP 22b20-22b28 RegCacheLoad> Σ0 ↓
<POP 22b28-22b5c Naked> Σ0 ↓ →0x22b62
<POP 22b28-22b2a StackAdj> Δ-4 {[-4-]}
<MI 22b2a MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x22b2e 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22b32 0x21e34> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 22b36-22b38 StackAdj> Δ+8 {[-4-]}
<MI 22b38 MOVE.L (A7),(A6-0x8)> {[-4-]}
<MI 22b3a MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x22b3e 0x2.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##2]}
<Call 0x22b42 0x21e34> {[-4-]|[4, '(A6+0x8)']|[##2]}
<POP 22b46-22b48 StackAdj> Δ+8 {[-4-]}
<MI 22b48 MOVE.L (A7),(A6-0x4)> {[-4-]}
<POP 22b4a-22b4c StackAdj> Δ+2 {[-2-]}
<MI 22b4c MOVE.L (A6-0x8),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x8)']}
<MI 22b4e MOVE.L (A6-0x4),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x8)']|[4, '(A6-0x4)']}
<Call 0x22b50 0x102c8> {[-2-]|[4, '(A6-0x8)']|[4, '(A6-0x4)']}
StringEqual(a, b : String) : Byte
<POP 22b56-22b58 StackAdj> Δ+8 {[-2-]}
<MI 22b58 TST.B (A7)+> Δ+2 {}
<MI 22b5a BEQ 0x22b62> {}
<POP 22b5c-22b62 Naked> Σ0 →0x22b66
<Call 0x22b5c 0x218f4> {}
<MI 22b60 BRA 0x22b66> {}
<POP 22b62-22b66 Naked> Σ0 ↓ ←0x22b28
<Call 0x22b62 0x2193a> {}
<POP 22b66-22b7a Naked> Σ0 ↓ ←0x22b5c
<Pointer.fp 0x22b66 <LVAR -0x004 @ 4(rw)>> Δ-4 {[@@-4]}
<Call 0x22b68 0x102bc> {[@@-4]}
FreeString(VAR a : String)
<POP 22b6e-22b70 StackAdj> Δ+4 {}
<Pointer.fp 0x22b70 <LVAR -0x008 @ 4(rw)>> Δ-4 {[@@-8]}
<Call 0x22b72 0x102bc> {[@@-8]}
FreeString(VAR a : String)
<POP 22b78-22b7a StackAdj> Δ+4 {}
<POP 22b7a-22b82 Epilogue> Σ0
@ 22b82
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 4(rw)>
<LVAR -0x008 @ 4(rw)>
<POP 22b82-22bfa Body>
<POP 22b82-22b98 Prologue> Σ0 ↓
<POP 22b98-22ba0 RegCacheLoad> Σ0 ↓
<POP 22ba0-22bd4 Naked> Σ0 ↓ →0x22bda
<POP 22ba0-22ba2 StackAdj> Δ-4 {[-4-]}
<MI 22ba2 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x22ba6 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22baa 0x21e34> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 22bae-22bb0 StackAdj> Δ+8 {[-4-]}
<MI 22bb0 MOVE.L (A7),(A6-0x8)> {[-4-]}
<MI 22bb2 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x22bb6 0x2.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##2]}
<Call 0x22bba 0x21e34> {[-4-]|[4, '(A6+0x8)']|[##2]}
<POP 22bbe-22bc0 StackAdj> Δ+8 {[-4-]}
<MI 22bc0 MOVE.L (A7),(A6-0x4)> {[-4-]}
<POP 22bc2-22bc4 StackAdj> Δ+2 {[-2-]}
<MI 22bc4 MOVE.L (A6-0x8),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x8)']}
<MI 22bc6 MOVE.L (A6-0x4),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x8)']|[4, '(A6-0x4)']}
<Call 0x22bc8 0x102c8> {[-2-]|[4, '(A6-0x8)']|[4, '(A6-0x4)']}
StringEqual(a, b : String) : Byte
<POP 22bce-22bd0 StackAdj> Δ+8 {[-2-]}
<MI 22bd0 TST.B (A7)+> Δ+2 {}
<MI 22bd2 BNE 0x22bda> {}
<POP 22bd4-22bda Naked> Σ0 →0x22bde
<Call 0x22bd4 0x218f4> {}
<MI 22bd8 BRA 0x22bde> {}
<POP 22bda-22bde Naked> Σ0 ↓ ←0x22ba0
<Call 0x22bda 0x2193a> {}
<POP 22bde-22bf2 Naked> Σ0 ↓ ←0x22bd4
<Pointer.fp 0x22bde <LVAR -0x004 @ 4(rw)>> Δ-4 {[@@-4]}
<Call 0x22be0 0x102bc> {[@@-4]}
FreeString(VAR a : String)
<POP 22be6-22be8 StackAdj> Δ+4 {}
<Pointer.fp 0x22be8 <LVAR -0x008 @ 4(rw)>> Δ-4 {[@@-8]}
<Call 0x22bea 0x102bc> {[@@-8]}
FreeString(VAR a : String)
<POP 22bf0-22bf2 StackAdj> Δ+4 {}
<POP 22bf2-22bfa Epilogue> Σ0
@ 22bfa
<LVAR 0x008 4(r)>
<POP 22bfa-22c26 Body>
<POP 22bfa-22c0c Prologue> Σ0 ↓
<POP 22c0c-22c22 Naked> Σ0 ↓
<POP 22c0c-22c0e StackAdj> Δ-4 {[-4-]}
<MI 22c0e MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x22c12 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22c16 0x21e34> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 22c1a-22c1c StackAdj> Δ+8 {[-4-]}
<Call 0x22c1c 0x21c2c> {[-4-]}
<POP 22c20-22c22 StackAdj> Δ+4 {}
<POP 22c22-22c26 Epilogue> Σ0
@ 22c26
<LVAR 0x008 4(r)>
<LVAR -0x014 @ 4(rw)>
<POP 22c26-22d26 Body>
<POP 22c26-22c3c Prologue> Σ0 ↓
<POP 22c3c-22c46 RegCacheLoad> Σ0 ↓
<POP 22c46-22ca4 Naked> Σ0 ↓ →0x22cd4
<POP 22c46-22c48 StackAdj> Δ-4 {[-4-]}
<MI 22c48 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x22c4a 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22c4e 0x21e34> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 22c52-22c54 StackAdj> Δ+8 {[-4-]}
<MI 22c54 MOVE.L (A7),(A6-0x14)> {[-4-]}
<MI 22c56 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x22c58 0x2.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##2]}
<Call 0x22c5c 0x21e34> {[-4-]|[4, '(A6+0x8)']|[##2]}
<POP 22c60-22c62 StackAdj> Δ+8 {[-4-]}
<MI 22c62 MOVEA.L (A7)+,A4> Δ+4 {}
<POP 22c64-22c68 StackAdj> Δ-12 {[-12-]}
<MI 22c68 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']}
<Const 0x22c6a 0x3.4> Δ-4 {[-12-]|[4, '(A6+0x8)']|[##3]}
<Call 0x22c6e 0x21e66> {[-12-]|[4, '(A6+0x8)']|[##3]}
<POP 22c72-22c74 StackAdj> Δ+8 {[-12-]}
<Call 0x22c74 0x10350> {[-12-]}
Quad2Long(a : Quad) : Long
<POP 22c7a-22c7c StackAdj> Δ+8 {[-4-]}
<MI 22c7c MOVE.L (A7),D6> {[-4-]}
<POP 22c7e-22c80 StackAdj> Δ-8 {[-12-]}
<MI 22c80 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']}
<Const 0x22c82 0x4.4> Δ-4 {[-12-]|[4, '(A6+0x8)']|[##4]}
<Call 0x22c86 0x21e66> {[-12-]|[4, '(A6+0x8)']|[##4]}
<POP 22c8a-22c8c StackAdj> Δ+8 {[-12-]}
<Call 0x22c8c 0x10350> {[-12-]}
Quad2Long(a : Quad) : Long
<POP 22c92-22c94 StackAdj> Δ+8 {[-4-]}
<MI 22c94 MOVE.L (A7)+,D5> Δ+4 {}
<MI 22c96 MOVE.L D6,D0> {}
<MI 22c98 ADD.L D5,D0> {}
<MI 22c9a SUBQ.L #0x1,D0> {}
<MI 22c9c MOVE.W (A4),D1> {}
<MI 22c9e EXTW.L D1> {}
<MI 22ca0 CMP.L D1,D0> {}
<MI 22ca2 BLE 0x22cd4> {}
<POP 22ca4-22cd4 Naked> Σ0 ↓
<Blob 0x22ca4 [32] @> Δ-32 {[«32""»]}
<POP 22cb6-22cb8 StackAdj> Δ-4 {[«32""»]|[-4-]}
<Lit 0x22cb8 31> {[«32""»]|[$$Offset/Length error in [INSERT]]}
<Call 0x22ccc 0x2110c> {[«32""»]|[$$Offset/Length error in [INSERT]]}
<POP 22cd0-22cd4 StackAdj> Δ+36 {}
<POP 22cd4-22ce0 Naked> Σ0 Δ-8 ↓ ←0x22c46
<MI 22cd4 MOVEA.L (A6-0x14),A0> {}
<MI 22cd6 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 22cd8 MOVE.W (A0),D0> {[4, 'A0']}
<MI 22cda EXTW.L D0> {[4, 'A0']}
<MI 22cdc MOVE.L D0,-(A7)> Δ-4 {[4, 'A0']|[4, 'D0']}
<MI 22cde MOVEQ.L #0x01,D7> {[4, 'A0']|[4, 'D0']}
<POP 22ce0-22ce4 Naked> Σ-8 ↓ →0x22d0a ←0x22ce4
<MI 22ce0 CMP.L (A7),D7> {[-8-]}
<MI 22ce2 BGT 0x22d0a> {[-8-]}
<POP 22ce4-22d0a Naked> Σ-8 ↓ →0x22ce0
<MI 22ce4 MOVE.L D6,D0> {[-8-]}
<MI 22ce6 ADD.L D7,D0> {[-8-]}
<MI 22ce8 SUBQ.L #0x1,D0> {[-8-]}
<MI 22cea SUBQ.L #0x1,D0> {[-8-]}
<POP 0x22cec LimitCheck 0x0 ≤ D0 ≤ 0x7d> {[-8-]}
<MI 22cf2 MOVE.L D7,D1> {[-8-]}
<MI 22cf4 SUBQ.L #0x1,D1> {[-8-]}
<POP 0x22cf6 LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-8-]}
<MI 22cfc MOVEA.L (A7+0x4),A0> {[-8-]}
<MI 22d00 MOVE.B (A0+D1.L+#0x2),(A4+D0.L+#0x2)> {[-8-]}
<MI 22d06 ADDQ.L #0x1,D7> {[-8-]}
<MI 22d08 BVC 0x22ce0> {[-8-]}
<POP 22d0a-22d1e Naked> Σ-8 Δ+8 ↓ ←0x22ce0
<POP 22d0a-22d0c StackAdj> Δ+4 {[-4-]}
<MI 22d0c MOVE.L A4,(A7)> {[4, 'A4']}
<Call 0x22d0e 0x21ed6> {[4, 'A4']}
<POP 22d12-22d14 StackAdj> Δ+4 {}
<Pointer.fp 0x22d14 <LVAR -0x014 @ 4(rw)>> Δ-4 {[@@-20]}
<Call 0x22d16 0x102bc> {[@@-20]}
FreeString(VAR a : String)
<POP 22d1c-22d1e StackAdj> Δ+4 {}
<POP 22d1e-22d26 Epilogue> Σ0
@ 22d26
<LVAR 0x008 4(r)>
<LVAR -0x010 @ 4(r)>
<LVAR -0x014 @ 4(rw)>
<POP 22d26-22e0c Body>
<POP 22d26-22d3c Prologue> Σ0 ↓
<POP 22d3c-22d4a RegCacheLoad> Σ0 ↓
<POP 22d4a-22da2 Naked> Σ0 ↓ →0x22da8
<POP 22d4a-22d4c StackAdj> Δ-4 {[-4-]}
<MI 22d4c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x22d4e 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22d52 0x21e34> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 22d56-22d58 StackAdj> Δ+8 {[-4-]}
<MI 22d58 MOVE.L (A7)+,(A6-0x14)> Δ+4 {}
<Pointer.fp 0x22d5a <LVAR -0x010 @ 4(r)>> Δ-4 {[@@-16]}
<Call 0x22d5c 0x102b8> {[@@-16]}
NewString(VAR a : String)
<POP 22d62-22d64 StackAdj> Δ-8 {[@@-16]|[-8-]}
<MI 22d64 MOVE.L (A6+0x8),-(A7)> Δ-4 {[@@-16]|[-8-]|[4, '(A6+0x8)']}
<Const 0x22d66 0x2.4> Δ-4 {[@@-16]|[-8-]|[4, '(A6+0x8)']|[##2]}
<Call 0x22d6a 0x21e66> {[@@-16]|[-8-]|[4, '(A6+0x8)']|[##2]}
<POP 22d6e-22d70 StackAdj> Δ+8 {[@@-16]|[-8-]}
<Call 0x22d70 0x10350> {[@@-16]|[-8-]}
Quad2Long(a : Quad) : Long
<POP 22d76-22d78 StackAdj> Δ+8 {[@@-16]}
<MI 22d78 MOVE.L (A7),D5> {[@@-16]}
<POP 22d7a-22d7c StackAdj> Δ-8 {[@@-16]|[-8-]}
<MI 22d7c MOVE.L (A6+0x8),-(A7)> Δ-4 {[@@-16]|[-8-]|[4, '(A6+0x8)']}
<Const 0x22d7e 0x3.4> Δ-4 {[@@-16]|[-8-]|[4, '(A6+0x8)']|[##3]}
<Call 0x22d82 0x21e66> {[@@-16]|[-8-]|[4, '(A6+0x8)']|[##3]}
<POP 22d86-22d88 StackAdj> Δ+8 {[@@-16]|[-8-]}
<Call 0x22d88 0x10350> {[@@-16]|[-8-]}
Quad2Long(a : Quad) : Long
<POP 22d8e-22d90 StackAdj> Δ+8 {[@@-16]}
<MI 22d90 MOVE.L (A7)+,D6> Δ+4 {}
<MI 22d92 MOVEA.L (A6-0x14),A0> {}
<MI 22d94 MOVE.L D5,D0> {}
<MI 22d96 ADD.L D6,D0> {}
<MI 22d98 SUBQ.L #0x1,D0> {}
<MI 22d9a MOVE.W (A0),D1> {}
<MI 22d9c EXTW.L D1> {}
<MI 22d9e CMP.L D1,D0> {}
<MI 22da0 BLE 0x22da8> {}
<POP 22da2-22da8 Naked> Σ0 ↓
<MI 22da2 ADDQ.L #0x1,D1> {}
<MI 22da4 SUB.L D5,D1> {}
<MI 22da6 MOVE.L D1,D6> {}
<POP 22da8-22dac Naked> Σ0 Δ-4 ↓ ←0x22d4a
<MI 22da8 MOVE.L D6,-(A7)> Δ-4 {[4, 'D6']}
<MI 22daa MOVEQ.L #0x01,D7> {[4, 'D6']}
<POP 22dac-22db0 Naked> Σ-4 ↓ →0x22dd6 ←0x22db0
<MI 22dac CMP.L (A7),D7> {[-4-]}
<MI 22dae BGT 0x22dd6> {[-4-]}
<POP 22db0-22dd6 Naked> Σ-4 ↓ →0x22dac
<MI 22db0 MOVEA.L (A6-0x10),A0> {[-4-]}
<MI 22db2 MOVE.L D7,D0> {[-4-]}
<MI 22db4 SUBQ.L #0x1,D0> {[-4-]}
<POP 0x22db6 LimitCheck 0x0 ≤ D0 ≤ 0x7d> {[-4-]}
<MI 22dbc MOVEA.L (A6-0x14),A1> {[-4-]}
<MI 22dbe MOVE.L D7,D1> {[-4-]}
<MI 22dc0 ADD.L D5,D1> {[-4-]}
<MI 22dc2 SUBQ.L #0x1,D1> {[-4-]}
<MI 22dc4 SUBQ.L #0x1,D1> {[-4-]}
<POP 0x22dc6 LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-4-]}
<MI 22dcc MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x2)> {[-4-]}
<MI 22dd2 ADDQ.L #0x1,D7> {[-4-]}
<MI 22dd4 BVC 0x22dac> {[-4-]}
<POP 22dd6-22e04 Naked> Σ-4 Δ+4 ↓ ←0x22dac
<POP 22dd6-22dd8 StackAdj> Δ+4 {}
<MI 22dd8 MOVEA.L (A6-0x10),A0> {}
<POP 0x22dda LimitCheck -0x8000 ≤ D6 ≤ 0x7fff> {}
<MI 22df0 MOVE.W D6,(A0)> {}
<MI 22df2 MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0x10)']}
<Call 0x22df4 0x21ed6> {[4, '(A6-0x10)']}
<POP 22df8-22dfa StackAdj> Δ+4 {}
<Pointer.fp 0x22dfa <LVAR -0x014 @ 4(rw)>> Δ-4 {[@@-20]}
<Call 0x22dfc 0x102bc> {[@@-20]}
FreeString(VAR a : String)
<POP 22e02-22e04 StackAdj> Δ+4 {}
<POP 22e04-22e0c Epilogue> Σ0
@ 22e0c
<LVAR 0x008 4(r)>
<POP 22e0c-22e38 Body>
<POP 22e0c-22e1e Prologue> Σ0 ↓
<POP 22e1e-22e34 Naked> Σ0 ↓
<POP 22e1e-22e20 StackAdj> Δ-8 {[-8-]}
<MI 22e20 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<Const 0x22e24 0x1.4> Δ-4 {[-8-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22e28 0x21e66> {[-8-]|[4, '(A6+0x8)']|[##1]}
<POP 22e2c-22e2e StackAdj> Δ+8 {[-8-]}
<Call 0x22e2e 0x21ca0> {[-8-]}
<POP 22e32-22e34 StackAdj> Δ+8 {}
<POP 22e34-22e38 Epilogue> Σ0
@ 22e38
<LVAR 0x008 4(r)>
<POP 22e38-22e84 Body>
<POP 22e38-22e4a Prologue> Σ0 ↓
<POP 22e4a-22e76 Naked> Σ0 ↓ →0x22e7c
<POP 22e4a-22e4e StackAdj> Δ-10 {[-10-]}
<MI 22e4e MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']}
<Const 0x22e52 0x1.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22e56 0x21e66> {[-10-]|[4, '(A6+0x8)']|[##1]}
<MI 22e5a MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x22e5e 0x2.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x22e62 0x21e66> {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 22e66-22e68 StackAdj> Δ+8 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22e68 0x1032c> {[-10-]|[4, '(A6+0x8)']|[##1]}
IsEqual(a, b : Quad) : Bool
<POP 22e6e-22e72 StackAdj> Δ+16 {[-2-]}
<MI 22e72 TST.B (A7)+> Δ+2 {}
<MI 22e74 BEQ 0x22e7c> {}
<POP 22e76-22e7c Naked> Σ0 →0x22e80
<Call 0x22e76 0x218f4> {}
<MI 22e7a BRA 0x22e80> {}
<POP 22e7c-22e80 Naked> Σ0 ↓ ←0x22e4a
<Call 0x22e7c 0x2193a> {}
<POP 22e80-22e84 Epilogue> Σ0 ←0x22e76
@ 22e84
<LVAR 0x008 4(r)>
<POP 22e84-22ed0 Body>
<POP 22e84-22e96 Prologue> Σ0 ↓
<POP 22e96-22ec2 Naked> Σ0 ↓ →0x22ec8
<POP 22e96-22e9a StackAdj> Δ-10 {[-10-]}
<MI 22e9a MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']}
<Const 0x22e9e 0x1.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22ea2 0x21e66> {[-10-]|[4, '(A6+0x8)']|[##1]}
<MI 22ea6 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x22eaa 0x2.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x22eae 0x21e66> {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 22eb2-22eb4 StackAdj> Δ+8 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22eb4 0x1032c> {[-10-]|[4, '(A6+0x8)']|[##1]}
IsEqual(a, b : Quad) : Bool
<POP 22eba-22ebe StackAdj> Δ+16 {[-2-]}
<MI 22ebe TST.B (A7)+> Δ+2 {}
<MI 22ec0 BNE 0x22ec8> {}
<POP 22ec2-22ec8 Naked> Σ0 →0x22ecc
<Call 0x22ec2 0x218f4> {}
<MI 22ec6 BRA 0x22ecc> {}
<POP 22ec8-22ecc Naked> Σ0 ↓ ←0x22e96
<Call 0x22ec8 0x2193a> {}
<POP 22ecc-22ed0 Epilogue> Σ0 ←0x22ec2
@ 22ed0
<LVAR 0x008 4(r)>
<POP 22ed0-22f1c Body>
<POP 22ed0-22ee2 Prologue> Σ0 ↓
<POP 22ee2-22f0e Naked> Σ0 ↓ →0x22f14
<POP 22ee2-22ee6 StackAdj> Δ-10 {[-10-]}
<MI 22ee6 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']}
<Const 0x22eea 0x1.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22eee 0x21e66> {[-10-]|[4, '(A6+0x8)']|[##1]}
<MI 22ef2 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x22ef6 0x2.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x22efa 0x21e66> {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 22efe-22f00 StackAdj> Δ+8 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22f00 0x10328> {[-10-]|[4, '(A6+0x8)']|[##1]}
IsSmaller(a, b : Quad) : Bool
<POP 22f06-22f0a StackAdj> Δ+16 {[-2-]}
<MI 22f0a TST.B (A7)+> Δ+2 {}
<MI 22f0c BEQ 0x22f14> {}
<POP 22f0e-22f14 Naked> Σ0 →0x22f18
<Call 0x22f0e 0x218f4> {}
<MI 22f12 BRA 0x22f18> {}
<POP 22f14-22f18 Naked> Σ0 ↓ ←0x22ee2
<Call 0x22f14 0x2193a> {}
<POP 22f18-22f1c Epilogue> Σ0 ←0x22f0e
@ 22f1c
<LVAR 0x008 4(r)>
<POP 22f1c-22f68 Body>
<POP 22f1c-22f2e Prologue> Σ0 ↓
<POP 22f2e-22f5a Naked> Σ0 ↓ →0x22f60
<POP 22f2e-22f32 StackAdj> Δ-10 {[-10-]}
<MI 22f32 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']}
<Const 0x22f36 0x1.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22f3a 0x21e66> {[-10-]|[4, '(A6+0x8)']|[##1]}
<MI 22f3e MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x22f42 0x2.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x22f46 0x21e66> {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 22f4a-22f4c StackAdj> Δ+8 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22f4c 0x10324> {[-10-]|[4, '(A6+0x8)']|[##1]}
IsGreater(a, b : Quad) : Bool
<POP 22f52-22f56 StackAdj> Δ+16 {[-2-]}
<MI 22f56 TST.B (A7)+> Δ+2 {}
<MI 22f58 BEQ 0x22f60> {}
<POP 22f5a-22f60 Naked> Σ0 →0x22f64
<Call 0x22f5a 0x218f4> {}
<MI 22f5e BRA 0x22f64> {}
<POP 22f60-22f64 Naked> Σ0 ↓ ←0x22f2e
<Call 0x22f60 0x2193a> {}
<POP 22f64-22f68 Epilogue> Σ0 ←0x22f5a
@ 22f68
<LVAR 0x008 4(r)>
<POP 22f68-22fb4 Body>
<POP 22f68-22f7a Prologue> Σ0 ↓
<POP 22f7a-22fa6 Naked> Σ0 ↓ →0x22fac
<POP 22f7a-22f7e StackAdj> Δ-10 {[-10-]}
<MI 22f7e MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']}
<Const 0x22f82 0x1.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22f86 0x21e66> {[-10-]|[4, '(A6+0x8)']|[##1]}
<MI 22f8a MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x22f8e 0x2.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x22f92 0x21e66> {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 22f96-22f98 StackAdj> Δ+8 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22f98 0x10324> {[-10-]|[4, '(A6+0x8)']|[##1]}
IsGreater(a, b : Quad) : Bool
<POP 22f9e-22fa2 StackAdj> Δ+16 {[-2-]}
<MI 22fa2 TST.B (A7)+> Δ+2 {}
<MI 22fa4 BNE 0x22fac> {}
<POP 22fa6-22fac Naked> Σ0 →0x22fb0
<Call 0x22fa6 0x218f4> {}
<MI 22faa BRA 0x22fb0> {}
<POP 22fac-22fb0 Naked> Σ0 ↓ ←0x22f7a
<Call 0x22fac 0x2193a> {}
<POP 22fb0-22fb4 Epilogue> Σ0 ←0x22fa6
@ 22fb4
<LVAR 0x008 4(r)>
<POP 22fb4-23000 Body>
<POP 22fb4-22fc6 Prologue> Σ0 ↓
<POP 22fc6-22ff2 Naked> Σ0 ↓ →0x22ff8
<POP 22fc6-22fca StackAdj> Δ-10 {[-10-]}
<MI 22fca MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']}
<Const 0x22fce 0x1.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22fd2 0x21e66> {[-10-]|[4, '(A6+0x8)']|[##1]}
<MI 22fd6 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x22fda 0x2.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x22fde 0x21e66> {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 22fe2-22fe4 StackAdj> Δ+8 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22fe4 0x10328> {[-10-]|[4, '(A6+0x8)']|[##1]}
IsSmaller(a, b : Quad) : Bool
<POP 22fea-22fee StackAdj> Δ+16 {[-2-]}
<MI 22fee TST.B (A7)+> Δ+2 {}
<MI 22ff0 BNE 0x22ff8> {}
<POP 22ff2-22ff8 Naked> Σ0 →0x22ffc
<Call 0x22ff2 0x218f4> {}
<MI 22ff6 BRA 0x22ffc> {}
<POP 22ff8-22ffc Naked> Σ0 ↓ ←0x22fc6
<Call 0x22ff8 0x2193a> {}
<POP 22ffc-23000 Epilogue> Σ0 ←0x22ff2
@ 23000
<LVAR 0x008 4(r)>
<POP 23000-2304a Body>
<POP 23000-23016 Prologue> Σ0 ↓
<POP 23016-23018 RegCacheLoad> Σ0 ↓
<POP 23018-23042 Naked> Σ0 ↓
<POP 23018-2301a StackAdj> Δ-16 {[-16-]}
<MI 2301a MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x2301e 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23022 0x21e66> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 23026 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x2302a 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x2302e 0x21e66> {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 23032-23034 StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23034 0x10314> {[-16-]|[4, '(A6+0x8)']|[##1]}
Add(a, b : Quad) : Quad
<POP 2303a-2303c StackAdj> Δ+16 {[-8-]}
<Call 0x2303c 0x21f5e> {[-8-]}
<POP 23040-23042 StackAdj> Δ+8 {}
<POP 23042-2304a Epilogue> Σ0
@ 2304a
<LVAR 0x008 4(r)>
<POP 2304a-23094 Body>
<POP 2304a-23060 Prologue> Σ0 ↓
<POP 23060-23062 RegCacheLoad> Σ0 ↓
<POP 23062-2308c Naked> Σ0 ↓
<POP 23062-23064 StackAdj> Δ-16 {[-16-]}
<MI 23064 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x23068 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x2306c 0x21e66> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 23070 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x23074 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x23078 0x21e66> {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 2307c-2307e StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x2307e 0x10318> {[-16-]|[4, '(A6+0x8)']|[##1]}
Subtract(a, b : Quad) : Quad
<POP 23084-23086 StackAdj> Δ+16 {[-8-]}
<Call 0x23086 0x21f5e> {[-8-]}
<POP 2308a-2308c StackAdj> Δ+8 {}
<POP 2308c-23094 Epilogue> Σ0
@ 23094
<LVAR 0x008 4(r)>
<POP 23094-230de Body>
<POP 23094-230aa Prologue> Σ0 ↓
<POP 230aa-230ac RegCacheLoad> Σ0 ↓
<POP 230ac-230d6 Naked> Σ0 ↓
<POP 230ac-230ae StackAdj> Δ-16 {[-16-]}
<MI 230ae MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x230b2 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x230b6 0x21e66> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 230ba MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x230be 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x230c2 0x21e66> {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 230c6-230c8 StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x230c8 0x1031c> {[-16-]|[4, '(A6+0x8)']|[##1]}
Multiply(a, b : Quad) : Quad
<POP 230ce-230d0 StackAdj> Δ+16 {[-8-]}
<Call 0x230d0 0x21f5e> {[-8-]}
<POP 230d4-230d6 StackAdj> Δ+8 {}
<POP 230d6-230de Epilogue> Σ0
@ 230de
<LVAR 0x008 4(r)>
<POP 230de-23128 Body>
<POP 230de-230f4 Prologue> Σ0 ↓
<POP 230f4-230f6 RegCacheLoad> Σ0 ↓
<POP 230f6-23120 Naked> Σ0 ↓
<POP 230f6-230f8 StackAdj> Δ-16 {[-16-]}
<MI 230f8 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x230fc 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23100 0x21e66> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 23104 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x23108 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x2310c 0x21e66> {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 23110-23112 StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23112 0x10320> {[-16-]|[4, '(A6+0x8)']|[##1]}
Divide(a, b : Quad) : Quad
<POP 23118-2311a StackAdj> Δ+16 {[-8-]}
<Call 0x2311a 0x21f5e> {[-8-]}
<POP 2311e-23120 StackAdj> Δ+8 {}
<POP 23120-23128 Epilogue> Σ0
@ 23128
<LVAR 0x008 4(r)>
<POP 23128-23172 Body>
<POP 23128-2313e Prologue> Σ0 ↓
<POP 2313e-23140 RegCacheLoad> Σ0 ↓
<POP 23140-2316a Naked> Σ0 ↓
<POP 23140-23142 StackAdj> Δ-16 {[-16-]}
<MI 23142 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x23146 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x2314a 0x21e66> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 2314e MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x23152 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x23156 0x21e66> {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 2315a-2315c StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x2315c 0x10358> {[-16-]|[4, '(A6+0x8)']|[##1]}
Modulus(a, b : Quad) : Quad
<POP 23162-23164 StackAdj> Δ+16 {[-8-]}
<Call 0x23164 0x21f5e> {[-8-]}
<POP 23168-2316a StackAdj> Δ+8 {}
<POP 2316a-23172 Epilogue> Σ0
@ 23172
<LVAR 0x008 4(r)>
<POP 23172-231bc Body>
<POP 23172-23188 Prologue> Σ0 ↓
<POP 23188-2318a RegCacheLoad> Σ0 ↓
<POP 2318a-231b4 Naked> Σ0 ↓
<POP 2318a-2318c StackAdj> Δ-16 {[-16-]}
<MI 2318c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x23190 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23194 0x21e66> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 23198 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x2319c 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x231a0 0x21e66> {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 231a4-231a6 StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x231a6 0x10334> {[-16-]|[4, '(A6+0x8)']|[##1]}
BitOr(a, b : Quad) : Quad
<POP 231ac-231ae StackAdj> Δ+16 {[-8-]}
<Call 0x231ae 0x21f5e> {[-8-]}
<POP 231b2-231b4 StackAdj> Δ+8 {}
<POP 231b4-231bc Epilogue> Σ0
@ 231bc
<LVAR 0x008 4(r)>
<POP 231bc-23206 Body>
<POP 231bc-231d2 Prologue> Σ0 ↓
<POP 231d2-231d4 RegCacheLoad> Σ0 ↓
<POP 231d4-231fe Naked> Σ0 ↓
<POP 231d4-231d6 StackAdj> Δ-16 {[-16-]}
<MI 231d6 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x231da 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x231de 0x21e66> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 231e2 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x231e6 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x231ea 0x21e66> {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 231ee-231f0 StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x231f0 0x10330> {[-16-]|[4, '(A6+0x8)']|[##1]}
BitAnd(a, b : Quad) : Quad
<POP 231f6-231f8 StackAdj> Δ+16 {[-8-]}
<Call 0x231f8 0x21f5e> {[-8-]}
<POP 231fc-231fe StackAdj> Δ+8 {}
<POP 231fe-23206 Epilogue> Σ0
@ 23206
<LVAR 0x008 4(r)>
<POP 23206-23250 Body>
<POP 23206-2321c Prologue> Σ0 ↓
<POP 2321c-2321e RegCacheLoad> Σ0 ↓
<POP 2321e-23248 Naked> Σ0 ↓
<POP 2321e-23220 StackAdj> Δ-16 {[-16-]}
<MI 23220 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x23224 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23228 0x21e66> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 2322c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x23230 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x23234 0x21e66> {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 23238-2323a StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x2323a 0x10340> {[-16-]|[4, '(A6+0x8)']|[##1]}
BitXor(a, b : Quad) : Quad
<POP 23240-23242 StackAdj> Δ+16 {[-8-]}
<Call 0x23242 0x21f5e> {[-8-]}
<POP 23246-23248 StackAdj> Δ+8 {}
<POP 23248-23250 Epilogue> Σ0
@ 23250
<LVAR 0x008 4(r)>
<POP 23250-23294 Body>
<POP 23250-23262 Prologue> Σ0 ↓
<POP 23262-23290 Naked> Σ0 ↓
<POP 23262-23266 StackAdj> Δ-16 {[-16-]}
<MI 23266 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x2326a 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x2326e 0x21e66> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 23272 MOVE.L (A6+0x8),(A7)> {[-16-]|[4, '(A6+0x8)']|[4, '(A6+0x8)']}
<Const 0x23276 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[4, '(A6+0x8)']|[##2]}
<Call 0x2327a 0x21ea2> {[-16-]|[4, '(A6+0x8)']|[4, '(A6+0x8)']|[##2]}
<POP 2327e-23280 StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']}
<Call 0x23280 0x10344> {[-16-]|[4, '(A6+0x8)']}
BitShift(a : Quad ; howmuch : integer) : Quad
<POP 23286-2328a StackAdj> Δ+12 {[-8-]}
<Call 0x2328a 0x21f5e> {[-8-]}
<POP 2328e-23290 StackAdj> Δ+8 {}
<POP 23290-23294 Epilogue> Σ0
@ 23294
<LVAR 0x008 4(r)>
<POP 23294-232da Body>
<POP 23294-232a6 Prologue> Σ0 ↓
<POP 232a6-232d6 Naked> Σ0 ↓
<POP 232a6-232aa StackAdj> Δ-16 {[-16-]}
<MI 232aa MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x232ae 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x232b2 0x21e66> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 232b6 MOVE.L (A6+0x8),(A7)> {[-16-]|[4, '(A6+0x8)']|[4, '(A6+0x8)']}
<Const 0x232ba 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[4, '(A6+0x8)']|[##2]}
<Call 0x232be 0x21ea2> {[-16-]|[4, '(A6+0x8)']|[4, '(A6+0x8)']|[##2]}
<POP 232c2-232c4 StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']}
<MI 232c4 NEG.L (A7)> {[-16-]|[4, '(A6+0x8)']}
<Call 0x232c6 0x10344> {[-16-]|[4, '(A6+0x8)']}
BitShift(a : Quad ; howmuch : integer) : Quad
<POP 232cc-232d0 StackAdj> Δ+12 {[-8-]}
<Call 0x232d0 0x21f5e> {[-8-]}
<POP 232d4-232d6 StackAdj> Δ+8 {}
<POP 232d6-232da Epilogue> Σ0
@ 232da
<LVAR 0x008 4(r)>
<POP 232da-23310 Body>
<POP 232da-232ec Prologue> Σ0 ↓
<POP 232ec-2330c Naked> Σ0 ↓
<POP 232ec-232f0 StackAdj> Δ-16 {[-16-]}
<MI 232f0 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x232f4 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x232f8 0x21e66> {[-16-]|[4, '(A6+0x8)']|[##1]}
<POP 232fc-232fe StackAdj> Δ+8 {[-16-]}
<Call 0x232fe 0x10338> {[-16-]}
BitNot(a : Quad) : Quad
<POP 23304-23306 StackAdj> Δ+8 {[-8-]}
<Call 0x23306 0x21f5e> {[-8-]}
<POP 2330a-2330c StackAdj> Δ+8 {}
<POP 2330c-23310 Epilogue> Σ0
@ 23310
<LVAR 0x008 4(r)>
<LVAR -0x00c 4(rw)>
<LVAR -0x010 4(rw)>
<LVAR -0x014 4(rw)>
<LVAR -0x018 4(rw)>
<POP 23310-233a0 Body>
<POP 23310-23326 Prologue> Σ0 ↓
<POP 23326-2332a RegCacheLoad> Σ0 ↓
<POP 2332a-23398 Naked> Σ0 ↓
<POP 2332a-2332c StackAdj> Δ-8 {[-8-]}
<MI 2332c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<Const 0x2332e 0x1.4> Δ-4 {[-8-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23332 0x21e66> {[-8-]|[4, '(A6+0x8)']|[##1]}
<POP 23336-23338 StackAdj> Δ+8 {[-8-]}
<MI 23338 MOVE.L (A7)+,(A6-0x18)> Δ+4 {[-4-]}
<MI 2333c MOVE.L (A7),(A6-0x14)> {[-4-]}
<POP 23340-23342 StackAdj> Δ-4 {[-8-]}
<MI 23342 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<Const 0x23344 0x2.4> Δ-4 {[-8-]|[4, '(A6+0x8)']|[##2]}
<Call 0x23348 0x21e66> {[-8-]|[4, '(A6+0x8)']|[##2]}
<POP 2334c-2334e StackAdj> Δ+8 {[-8-]}
<MI 2334e MOVE.L (A7)+,(A6-0x10)> Δ+4 {[-4-]}
<MI 23352 MOVE.L (A7),(A6-0xc)> {[-4-]}
<MI 23356 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x23358 0x3.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##3]}
<Call 0x2335c 0x21ea2> {[-4-]|[4, '(A6+0x8)']|[##3]}
<POP 23360-23362 StackAdj> Δ+8 {[-4-]}
<MI 23362 MOVE.L (A7),D7> {[-4-]}
<MI 23364 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x23366 0x4.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##4]}
<Call 0x2336a 0x21ea2> {[-4-]|[4, '(A6+0x8)']|[##4]}
<POP 2336e-23370 StackAdj> Δ+8 {[-4-]}
<MI 23370 MOVE.L (A7),D6> {[-4-]}
<POP 23372-23374 StackAdj> Δ-4 {[-8-]}
<MI 23374 MOVE.L (A6-0x14),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x14)']}
<MI 23378 MOVE.L (A6-0x18),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']}
<MI 2337c MOVE.L (A6-0xc),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']|[4, '(A6-0xc)']}
<MI 23380 MOVE.L (A6-0x10),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<MI 23384 MOVE.L D7,-(A7)> Δ-4 {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D7']}
<MI 23386 MOVE.L D6,-(A7)> Δ-4 {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D7']|[4, 'D6']}
<Call 0x23388 0x10348> {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D7']|[4, 'D6']}
?BitField_something_()
<POP 2338e-23392 StackAdj> Δ+24 {[-8-]}
<Call 0x23392 0x21f5e> {[-8-]}
<POP 23396-23398 StackAdj> Δ+8 {}
<POP 23398-233a0 Epilogue> Σ0
@ 233a0
<LVAR 0x008 4(r)>
<LVAR -0x00c 4(rw)>
<LVAR -0x010 4(rw)>
<POP 233a0-23412 Body>
<POP 233a0-233b6 Prologue> Σ0 ↓
<POP 233b6-233ba RegCacheLoad> Σ0 ↓
<POP 233ba-2340a Naked> Σ0 ↓
<POP 233ba-233bc StackAdj> Δ-8 {[-8-]}
<MI 233bc MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<Const 0x233be 0x1.4> Δ-4 {[-8-]|[4, '(A6+0x8)']|[##1]}
<Call 0x233c2 0x21e66> {[-8-]|[4, '(A6+0x8)']|[##1]}
<POP 233c6-233c8 StackAdj> Δ+8 {[-8-]}
<MI 233c8 MOVE.L (A7)+,(A6-0x10)> Δ+4 {[-4-]}
<MI 233cc MOVE.L (A7),(A6-0xc)> {[-4-]}
<MI 233d0 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x233d2 0x2.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##2]}
<Call 0x233d6 0x21ea2> {[-4-]|[4, '(A6+0x8)']|[##2]}
<POP 233da-233dc StackAdj> Δ+8 {[-4-]}
<MI 233dc MOVE.L (A7),D7> {[-4-]}
<MI 233de MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x233e0 0x3.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##3]}
<Call 0x233e4 0x21ea2> {[-4-]|[4, '(A6+0x8)']|[##3]}
<POP 233e8-233ea StackAdj> Δ+8 {[-4-]}
<MI 233ea MOVE.L (A7),D6> {[-4-]}
<POP 233ec-233ee StackAdj> Δ-4 {[-8-]}
<MI 233ee MOVE.L (A6-0xc),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']}
<MI 233f2 MOVE.L (A6-0x10),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<MI 233f6 MOVE.L D7,-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D7']}
<MI 233f8 MOVE.L D6,-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D7']|[4, 'D6']}
<Call 0x233fa 0x1034c> {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D7']|[4, 'D6']}
FSCALL_1034c
<POP 23400-23404 StackAdj> Δ+16 {[-8-]}
<Call 0x23404 0x21f5e> {[-8-]}
<POP 23408-2340a StackAdj> Δ+8 {}
<POP 2340a-23412 Epilogue> Σ0
@ 23412
<LVAR 0x008 4(r)>
<POP 23412-23484 Body>
<POP 23412-23428 Prologue> Σ0 ↓
<POP 23428-23436 Naked> Σ0 Δ-4 ↓
<POP 23428-2342a StackAdj> Δ-4 {[-4-]}
<MI 2342a MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x2342e 0x21518> {[-4-]|[4, '(A6+0x8)']}
<POP 23432-23434 StackAdj> Δ+4 {[-4-]}
<MI 23434 MOVEQ.L #0x01,D7> {[-4-]}
<POP 23436-2343a Naked> Σ-4 ↓ →0x23460 ←0x2343a
<MI 23436 CMP.L (A7),D7> {[-4-]}
<MI 23438 BGT 0x23460> {[-4-]}
<POP 2343a-23460 Naked> Σ-4 ↓ →0x23436
<POP 2343a-2343c StackAdj> Δ-4 {[-8-]}
<MI 2343c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<MI 23440 MOVE.L D7,-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']|[4, 'D7']}
<Call 0x23442 0x21e34> {[-8-]|[4, '(A6+0x8)']|[4, 'D7']}
<POP 23446-23448 StackAdj> Δ+8 {[-8-]}
<Call 0x23448 0x103d8> {[-8-]}
WriteConsoleString(str : String)
<POP 2344e-23450 StackAdj> Δ+2 {[-6-]}
<POP 23450-23451 StackAdj> Δ+2 {[-4-]}
<Const 0x23451 0x20.2> Δ-2 {[-4-]|[#32]}
<Call 0x23454 0x103d0> {[-4-]|[#32]}
WriteConsoleChar(chr : char)
<POP 2345a-2345c StackAdj> Δ+2 {[-4-]}
<MI 2345c ADDQ.L #0x1,D7> {[-4-]}
<MI 2345e BVC 0x23436> {[-4-]}
<POP 23460-2347c Naked> Σ-4 Δ+4 ↓ ←0x23436
<Const 0x23460 0x1.4> Δ-4 {[-4-]|[##1]}
<Call 0x23464 0x103e4> {[-4-]|[##1]}
AskConsoleString(prompt : String) : String
<POP 2346a-2346c StackAdj> Δ+4 {[-4-]}
<MI 2346c MOVEA.L (A7)+,A4> Δ+4 {}
<MI 2346e MOVE.L A4,-(A7)> Δ-4 {[4, 'A4']}
<Call 0x23470 0x21364> {[4, 'A4']}
<MI 23474 MOVE.L A4,(A7)> {[4, 'A4']}
<Call 0x23476 0x21ed6> {[4, 'A4']}
<POP 2347a-2347c StackAdj> Δ+4 {}
<POP 2347c-23484 Epilogue> Σ0
@ 23484
<LVAR 0x008 4(r)>
<POP 23484-23506 Body>
<POP 23484-2349a Prologue> Σ0 ↓
<POP 2349a-234a0 RegCacheLoad> Σ0 ↓
<POP 234a0-234fe Naked> Σ0 ↓
<POP 234a0-234a2 StackAdj> Δ-4 {[-4-]}
<MI 234a2 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x234a4 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x234a8 0x21e34> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 234ac-234ae StackAdj> Δ+8 {[-4-]}
<MI 234ae MOVEA.L (A7)+,A4> Δ+4 {}
<POP 234b0-234b2 StackAdj> Δ-12 {[-12-]}
<MI 234b2 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']}
<Const 0x234b4 0x2.4> Δ-4 {[-12-]|[4, '(A6+0x8)']|[##2]}
<Call 0x234b8 0x21e66> {[-12-]|[4, '(A6+0x8)']|[##2]}
<POP 234bc-234be StackAdj> Δ+8 {[-12-]}
<Call 0x234be 0x10350> {[-12-]}
Quad2Long(a : Quad) : Long
<POP 234c4-234c6 StackAdj> Δ+8 {[-4-]}
<MI 234c6 MOVE.L (A7),D7> {[-4-]}
<POP 234c8-234ca StackAdj> Δ-8 {[-12-]}
<MI 234ca MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']}
<Const 0x234cc 0x3.4> Δ-4 {[-12-]|[4, '(A6+0x8)']|[##3]}
<Call 0x234d0 0x21e66> {[-12-]|[4, '(A6+0x8)']|[##3]}
<POP 234d4-234d6 StackAdj> Δ+8 {[-12-]}
<Call 0x234d6 0x10350> {[-12-]}
Quad2Long(a : Quad) : Long
<POP 234dc-234de StackAdj> Δ+8 {[-4-]}
<MI 234de MOVE.L (A7),D6> {[-4-]}
<POP 234e0-234e2 StackAdj> Δ-8 {[-12-]}
<MI 234e2 MOVE.L A4,-(A7)> Δ-4 {[-12-]|[4, 'A4']}
<MI 234e4 MOVE.L D7,-(A7)> Δ-4 {[-12-]|[4, 'A4']|[4, 'D7']}
<Call 0x234e6 0x10360> {[-12-]|[4, 'A4']|[4, 'D7']}
?StringToInt64()
<POP 234ec-234ee StackAdj> Δ+4 {[-12-]|[4, 'A4']}
<MI 234ee MOVE.L D6,(A7)> {[-12-]|[4, 'D6']}
<Call 0x234f0 0x1035c> {[-12-]|[4, 'D6']}
Quad2String(a : Quad; radix : Long ) : String
<POP 234f6-234f8 StackAdj> Δ+12 {[-4-]}
<Call 0x234f8 0x21ed6> {[-4-]}
<POP 234fc-234fe StackAdj> Δ+4 {}
<POP 234fe-23506 Epilogue> Σ0
@ 23506
<LVAR 0x008 4(r)>
<LVAR -0x00a 2(r)>
<LVAR -0x00c 4(rw)>
<LVAR -0x010 4(rw)>
<POP 23506-23586 Body>
<POP 23506-2351c Prologue> Σ0 ↓
<POP 2351c-23524 RegCacheLoad> Σ0 ↓
<POP 23524-2353c Naked> Σ0 ↓
<POP 23524-23526 StackAdj> Δ-8 {[-8-]}
<MI 23526 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<Const 0x2352a 0x1.4> Δ-4 {[-8-]|[4, '(A6+0x8)']|[##1]}
<Call 0x2352e 0x21e66> {[-8-]|[4, '(A6+0x8)']|[##1]}
<POP 23532-23534 StackAdj> Δ+8 {[-8-]}
<MI 23534 MOVE.L (A7)+,(A6-0x10)> Δ+4 {[-4-]}
<MI 23536 MOVE.L (A7)+,(A6-0xc)> Δ+4 {}
<MI 23538 MOVEQ.L #0x00,D7> {}
<MI 2353a MOVEQ.L #0x00,D6> {}
<POP 2353c-2356c Naked> Σ0 ↓ →0x2353c ←0x2353c
<MI 2353c MOVE.W (A6-0xa),D0> {}
<MI 23540 ANDI.W #0x0001,D0> {}
<MI 23544 CLR.L D1> {}
<MI 23546 MOVE.W D0,D1> {}
<MI 23548 ADD.L D1,D7> {}
<POP 2354a-2354c StackAdj> Δ-8 {[-8-]}
<MI 2354c MOVE.L (A6-0xc),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']}
<MI 2354e MOVE.L (A6-0x10),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<Const 0x23550 0xffffffff.4> Δ-4 {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[##4294967295]}
<Call 0x23554 0x10344> {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[##4294967295]}
BitShift(a : Quad ; howmuch : integer) : Quad
<POP 2355a-2355e StackAdj> Δ+12 {[-8-]}
<MI 2355e MOVE.L (A7)+,(A6-0x10)> Δ+4 {[-4-]}
<MI 23560 MOVE.L (A7)+,(A6-0xc)> Δ+4 {}
<MI 23562 ADDQ.L #0x1,D6> {}
<MI 23564 CMPI.L #0x0000003f,D6> {}
<MI 2356a BLE 0x2353c> {}
<POP 2356c-2357e Naked> Σ0 ↓
<POP 2356c-2356e StackAdj> Δ-8 {[-8-]}
<MI 2356e MOVE.L D7,-(A7)> Δ-4 {[-8-]|[4, 'D7']}
<Call 0x23570 0x10354> {[-8-]|[4, 'D7']}
Long2Quad(a : Long) : Quad
<POP 23576-23578 StackAdj> Δ+4 {[-8-]}
<Call 0x23578 0x21f5e> {[-8-]}
<POP 2357c-2357e StackAdj> Δ+8 {}
<POP 2357e-23586 Epilogue> Σ0
@ 23586
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 1(r)>
<POP 23586-2364a Body>
<POP 23586-2359c Prologue> Σ0 ↓
<POP 2359c-235a6 RegCacheLoad> Σ0 ↓
<POP 235a6-235aa Naked> Σ0 ↓ →0x235dc
<MI 235a6 TST.B 0x28c50> {}
<MI 235a8 BNE 0x235dc> {}
<POP 235aa-235dc Naked> Σ0 ↓
<Blob 0x235aa [28] @> Δ-28 {[«28""»]}
<POP 235bc-235be StackAdj> Δ-4 {[«28""»]|[-4-]}
<Lit 0x235be 27> {[«28""»]|[$$REPEATing, type ^G to exit.]}
<Call 0x235d0 0x103e0> {[«28""»]|[$$REPEATing, type ^G to exit.]}
WriteConsoleStringCrLf(str : String)
<POP 235d6-235da StackAdj> Δ+32 {}
<MI 235da MOVE.B #0x01,0x28c50> {}
<POP 235dc-23606 Naked> Σ0 ↓ →0x2361c ←0x235a6
<POP 235dc-235de StackAdj> Δ-6 {[-6-]}
<Call 0x235de 0x103f8> {[-6-]}
GetConsoleConfig() : Long
<MI 235e4 MOVE.L (A7)+,D0> Δ+4 {[-2-]}
<POP 0x235e6 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {[-2-]}
<MI 235f0 MOVE.W D0,(A7)> {[2, 'D0']}
<Pointer.fp 0x235f2 <LVAR -0x004 @ 1(r)>> Δ-4 {[2, 'D0']|[@@-4]}
<Call 0x235f6 0x10212> {[2, 'D0']|[@@-4]}
KC09_PortStatus(Port : Word; VAR b: Byte)
<POP 235fc-235fe StackAdj> Δ+6 {}
<MI 235fe MOVE.B (A6-0x4),D0> {}
<MI 23602 CMP.B #0x01,D0> {}
<MI 23604 BEQ 0x2361c> {}
<POP 23606-2361c Naked> Σ0
<MI 23606 MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<Call 0x2360a 0x210ca> {[4, '(A6+0x8)']}
<POP 2360e-23610 StackAdj> Δ+4 {}
<POP 23610-2361c Bailout> {}
<MI 23610 MOVEA.L (A5+0x8),A7>
<MI 23614 MOVEA.W #0x00,A6>
<MI 23616 JMP 0x249ae>
<POP 2361c-2362c Naked> Σ0 ↓ →0x23642 ←0x235dc
<POP 2361c-2361e StackAdj> Δ-2 {[-2-]}
<Call 0x2361e 0x103d4> {[-2-]}
ReadChar() : Byte
<MI 23624 MOVE.B (A7)+,D0> Δ+2 {}
<MI 23626 CMPI.B #0x07,D0> {}
<MI 2362a BEQ 0x23642> {}
<POP 2362c-23642 Naked> Σ0
<MI 2362c MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<Call 0x23630 0x210ca> {[4, '(A6+0x8)']}
<POP 23634-23636 StackAdj> Δ+4 {}
<POP 23636-23642 Bailout> {}
<MI 23636 MOVEA.L (A5+0x8),A7>
<MI 2363a MOVEA.W #0x00,A6>
<MI 2363c JMP 0x249ae>
<POP 23642-2364a Epilogue> Σ0 ←0x2361c
@ 2364a
<POP 2364a-2366a Body>
<POP 2364a-2365c Prologue> Σ0 ↓
<POP 2365c-23666 Naked> Σ0 ↓
<Const 0x2365c 0xc8.4> Δ-4 {[##200]}
<Call 0x23660 0x21f92> {[##200]}
<POP 23664-23666 StackAdj> Δ+4 {}
<POP 23666-2366a Epilogue> Σ0
@ 2366a
<LVAR 0x008 4(r)>
<LVAR -0x00c @ 4(r)>
<POP 2366a-23716 Body>
<POP 2366a-23680 Prologue> Σ0 ↓
<POP 23680-23684 RegCacheLoad> Σ0 ↓
<POP 23684-23698 Naked> Σ0 Δ-4 ↓
<Pointer.fp 0x23684 <LVAR -0x00c @ 4(r)>> Δ-4 {[@@-12]}
<Call 0x23686 0x102b8> {[@@-12]}
NewString(VAR a : String)
<MI 2368c MOVE.L (A6+0x8),-(A7)> Δ-4 {[@@-12]|[4, '(A6+0x8)']}
<Call 0x23690 0x21518> {[@@-12]|[4, '(A6+0x8)']}
<POP 23694-23696 StackAdj> Δ+4 {[@@-12]}
<MI 23696 MOVEQ.L #0x01,D7> {[@@-12]}
<POP 23698-2369c Naked> Σ-4 ↓ →0x23706 ←0x23702
<MI 23698 CMP.L (A7),D7> {[-4-]}
<MI 2369a BGT 0x23706> {[-4-]}
<POP 2369c-236ae Naked> Σ-4 ↓ →0x236ce
<POP 2369c-2369e StackAdj> Δ-4 {[-8-]}
<MI 2369e MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<MI 236a2 MOVE.L D7,-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']|[4, 'D7']}
<Call 0x236a4 0x21ea2> {[-8-]|[4, '(A6+0x8)']|[4, 'D7']}
<POP 236a8-236aa StackAdj> Δ+8 {[-8-]}
<MI 236aa MOVE.L (A7)+,D6> Δ+4 {[-4-]}
<MI 236ac BLT 0x236ce> {[-4-]}
<POP 236ae-236b6 Naked> Σ-4 ↓ →0x236ce
<MI 236ae CMPI.L #0x000000ff,D6> {[-4-]}
<MI 236b4 BGT 0x236ce> {[-4-]}
<POP 236b6-236ce Naked> Σ-4 →0x23702
<MI 236b6 MOVE.L (A6-0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6-0xc)']}
<POP 0x236b8 LimitCheck 0x0 ≤ D6 ≤ 0xff> {[-4-]|[4, '(A6-0xc)']}
<MI 236c2 MOVE.B D6,-(A7)> Δ-2 {[-4-]|[4, '(A6-0xc)']|[2, 'D6']}
<Call 0x236c4 0x102c0> {[-4-]|[4, '(A6-0xc)']|[2, 'D6']}
AppendChar(MOD b : String; a : char)
<POP 236ca-236cc StackAdj> Δ+6 {[-4-]}
<MI 236cc BRA 0x23702> {[-4-]}
<POP 236ce-23702 Naked> Σ-4 ↓ ←0x2369c ←0x236ae
<Pointer.fp 0x236ce <LVAR -0x00c @ 4(r)>> Δ-4 {[-4-]|[@@-12]}
<Call 0x236d0 0x102bc> {[-4-]|[@@-12]}
FreeString(VAR a : String)
<POP 236d6-236d8 StackAdj> Δ+4 {[-4-]}
<Blob 0x236d8 [28] @> Δ-28 {[-4-]|[«28""»]}
<POP 236e4-236e6 StackAdj> Δ-4 {[-4-]|[«28""»]|[-4-]}
<Lit 0x236e6 28> {[-4-]|[«28""»]|[$$ASCII argument out of range.]}
<Call 0x236fa 0x2110c> {[-4-]|[«28""»]|[$$ASCII argument out of range.]}
<POP 236fe-23702 StackAdj> Δ+32 {[-4-]}
<POP 23702-23706 Naked> Σ-4 ↓ →0x23698 ←0x236b6
<MI 23702 ADDQ.L #0x1,D7> {[-4-]}
<MI 23704 BVC 0x23698> {[-4-]}
<POP 23706-2370e Naked> Σ-4 Δ+4 ↓ ←0x23698
<MI 23706 MOVE.L (A6-0xc),(A7)> {[4, '(A6-0xc)']}
<Call 0x23708 0x21ed6> {[4, '(A6-0xc)']}
<POP 2370c-2370e StackAdj> Δ+4 {}
<POP 2370e-23716 Epilogue> Σ0
@ 23716
<LVAR 0x00c 1(rw)>
<LVAR 0x008 4(r)>
<POP 23716-237ce Body> Δ-8
<POP 23716-2372c Prologue> Σ0 ↓
<POP 2372c-2373c Naked> Σ0 Δ-4 ↓
<MI 2372c CLR.B (A6+0xc)> {}
<MI 23730 MOVEA.L (A6+0x8),A0> {}
<MI 23734 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 23736 MOVEQ.L #0x00,D0> {[4, 'A0']}
<MI 23738 ADDQ.W #0x1,D0> {[4, 'A0']}
<MI 2373a MOVE.B D0,D6> {[4, 'A0']}
<POP 2373c-23744 Naked> Σ-4 ↓ →0x237c4 ←0x237be
<MI 2373c CMPI.B #0x2b,D6> {[-4-]}
<MI 23740 BGT 0x237c4> {[-4-]}
<POP 23744-2376a Naked> Σ-4 ↓ →0x237be
<MI 23744 LEA.L 0x20ff8,A0> {[-4-]}
<MI 23748 MOVE.B D6,D0> {[-4-]}
<MI 2374a EXTB.W D0> {[-4-]}
<MI 2374c EXTW.L D0> {[-4-]}
<MI 2374e ROR.L #0x1,D0> {[-4-]}
<MI 23750 ADDA.W D0,A0> {[-4-]}
<MI 23752 SWAP.W D0> {[-4-]}
<MI 23754 ROL.W #0x3,D0> {[-4-]}
<MI 23756 CLR.L D1> {[-4-]}
<MI 23758 MOVE.B (A0),D1> {[-4-]}
<MI 2375a LSL.B D0,D1> {[-4-]}
<MI 2375c LSR.B #0x4,D1> {[-4-]}
<MI 2375e MOVE.L D1,D5> {[-4-]}
<MI 23760 MOVEA.L (A7),A0> {[-4-]}
<MI 23762 MOVE.W (A0),D0> {[-4-]}
<MI 23764 EXTW.L D0> {[-4-]}
<MI 23766 CMP.L D0,D5> {[-4-]}
<MI 23768 BNE 0x237be> {[-4-]}
<POP 2376a-2376e Naked> Σ-4 Δ-4 ↓
<MI 2376a MOVE.L D5,-(A7)> Δ-4 {[-4-]|[4, 'D5']}
<MI 2376c MOVEQ.L #0x01,D7> {[-4-]|[4, 'D5']}
<POP 2376e-23772 Naked> Σ-8 ↓ →0x237b4 ←0x237b0
<MI 2376e CMP.L (A7),D7> {[-8-]}
<MI 23770 BGT 0x237b4> {[-8-]}
<POP 23772-237ac Naked> Σ-8 ↓ →0x237b0
<MI 23772 MOVE.B D6,D0> {[-8-]}
<MI 23774 EXTB.W D0> {[-8-]}
<MI 23776 MULS.W #0xa,D0> {[-8-]}
<MI 2377a MOVE.L D7,D1> {[-8-]}
<MI 2377c SUBQ.L #0x1,D1> {[-8-]}
<POP 0x2377e LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-8-]}
<MI 23788 MOVEA.L (A7+0x4),A0> {[-8-]}
<MI 2378c LEA.L 0x20e40,A1> {[-8-]}
<MI 23790 MOVE.L D7,D2> {[-8-]}
<MI 23792 SUBQ.L #0x1,D2> {[-8-]}
<POP 0x23794 LimitCheck 0x0 ≤ D2 ≤ 0x9> {[-8-]}
<MI 2379e LEA.L (A1+D0.W),A1> {[-8-]}
<MI 237a2 MOVE.B (A0+D1.L+#0x2),D0> {[-8-]}
<MI 237a6 CMP.B (A1+D2.L),D0> {[-8-]}
<MI 237aa BEQ 0x237b0> {[-8-]}
<POP 237ac-237b0 Naked> Σ-8 Δ+4 →0x237be
<POP 237ac-237ae StackAdj> Δ+4 {[-4-]}
<MI 237ae BRA 0x237be> {[-4-]}
<POP 237b0-237b4 Naked> Σ-8 ↓ →0x2376e ←0x23772
<MI 237b0 ADDQ.L #0x1,D7> {[-8-]}
<MI 237b2 BVC 0x2376e> {[-8-]}
<POP 237b4-237be Naked> Σ-8 Δ+8 →0x237c6 ←0x2376e
<POP 237b4-237b6 StackAdj> Δ+4 {[-4-]}
<MI 237b6 MOVE.B D6,(A6+0xc)> {[-4-]}
<POP 237ba-237bc StackAdj> Δ+4 {}
<MI 237bc BRA 0x237c6> {}
<POP 237be-237c4 Naked> Σ-4 ↓ →0x2373c ←0x23744 ←0x237ac
<MI 237be ADDQ.B #0x1,D6> {[-4-]}
<MI 237c0 BVC 0x2373c> {[-4-]}
<POP 237c4-237c6 Naked> Σ-4 Δ+4 ↓ ←0x2373c
<POP 237c4-237c6 StackAdj> Δ+4 {}
<POP 237c6-237ce Epilogue> Σ0 ←0x237b4
@ 237ce
<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 237ce-2390a Body>
<POP 237ce-237e4 Prologue> Σ0 ↓
<POP 237e4-237f2 RegCacheLoad> Σ0 ↓
<POP 237f2-2385e Naked> Σ0 ↓ →0x238a8
<POP 237f2-237f4 StackAdj> Δ-4 {[-4-]}
<MI 237f4 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']}
<Call 0x237f8 0x102cc> {[-4-]|[4, '(A6+0xc)']}
StringDup(a : String) : String
<POP 237fe-23800 StackAdj> Δ+4 {[-4-]}
<MI 23800 MOVE.L (A7)+,(A6-0x10)> Δ+4 {}
<MI 23802 MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0x10)']}
<Const 0x23804 0x2e.2> Δ-2 {[4, '(A6-0x10)']|[#46]}
<Call 0x23808 0x102c0> {[4, '(A6-0x10)']|[#46]}
AppendChar(MOD b : String; a : char)
<POP 2380e-23810 StackAdj> Δ+6 {}
<Blob 0x23810 [10] 0x28c30> Δ-10 {[«10»]}
<POP 2381e-23820 StackAdj> Δ-4 {[«10»]|[-4-]}
<MI 23820 MOVE.L (A6-0x10),-(A7)> Δ-4 {[«10»]|[-4-]|[4, '(A6-0x10)']}
<POP 23822-23824 StackAdj> Δ-4 {[«10»]|[-4-]|[4, '(A6-0x10)']|[-4-]}
<Lit 0x23824> {[«10»]|[-4-]|[4, '(A6-0x10)']|[$$…]}
<Pointer.sp 0x23824 12> Δ-4
<Const 0x23828 0x1.2> Δ-2
<Const 0x2382a 0xa.2> Δ-2
<Call 0x2382e 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 23834-23836 StackAdj> Δ+8
<Call 0x23836 0x102d0> {[«10»]|[-4-]|[4, '(A6-0x10)']|[$$…]}
StringCat2(a, b : String) : String
<POP 2383c-2383e StackAdj> Δ+8 {[«10»]|[-4-]}
<MI 2383e MOVE.L (A7)+,(A6-0x10)> Δ+4 {[«10»]}
<POP 23840-23842 StackAdj> Δ+6 {[-4-]}
<MI 23842 MOVE.L (A6-0x10),(A7)> {[4, '(A6-0x10)']}
<MI 23844 CLR.B -(A7)> Δ-2 {[4, '(A6-0x10)']|[#0]}
<Const 0x23846 0x1.2> Δ-2 {[4, '(A6-0x10)']|[#0]|[#1]}
<Const 0x23848 0x0.4> Δ-4 {[4, '(A6-0x10)']|[#0]|[#1]|[##0]}
<Pointer.fp 0x2384c <LVAR -0x002 @ 1(r)>> Δ-4 {[4, '(A6-0x10)']|[#0]|[#1]|[##0]|[@@-2]}
<Pointer.fp 0x2384e <LVAR -0x00c @ 4(r)>> Δ-4 {[4, '(A6-0x10)']|[#0]|[#1]|[##0]|[@@-2]|[@@-12]}
<Call 0x23850 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 23856-2385a StackAdj> Δ+20 {}
<MI 2385a TST.B (A6-0x2)> {}
<MI 2385c BEQ 0x238a8> {}
<POP 2385e-238a8 Naked> Σ0 ↓
<Pointer.fp 0x2385e <LVAR -0x010 @ 4(rw)>> Δ-4 {[@@-16]}
<Call 0x23860 0x102bc> {[@@-16]}
FreeString(VAR a : String)
<MI 23866 MOVE.L (A6+0x8),(A7)> {[4, '(A6+0x8)']}
<Call 0x2386a 0x210ca> {[4, '(A6+0x8)']}
<POP 2386e-2386f StackAdj> Δ+4 ↓ {}
<Blob 0x2386f [26] @> Δ-26 {[«26""»]}
<POP 23880-23882 StackAdj> Δ-8 {[«26""»]|[-8-]}
<Lit 0x23882 25> {[«26""»]|[-4-]|[$$Not a command or macro :_]}
<POP 23892-23894 StackAdj> Δ-4 {[«26""»]|[-4-]|[$$Not a command or macro :_]|[-4-]}
<MI 23894 MOVE.L (A6+0xc),(A7)> {[«26""»]|[-4-]|[$$Not a command or macro :_]|[4, '(A6+0xc)']}
<Call 0x23898 0x102d0> {[«26""»]|[-4-]|[$$Not a command or macro :_]|[4, '(A6+0xc)']}
StringCat2(a, b : String) : String
<POP 2389e-238a0 StackAdj> Δ+8 {[«26""»]|[-4-]}
<Call 0x238a0 0x2110c> {[«26""»]|[-4-]}
<POP 238a4-238a8 StackAdj> Δ+30 {}
<POP 238a8-238b0 Naked> Σ0 ↓ ←0x237f2
<MI 238a8 MOVE.L 0x28c1e,(A6-0x6)> {}
<POP 238b0-238c8 Naked> Σ0 ↓ →0x238dc ←0x238dc
<MI 238b0 MOVE.L (A6-0xc),-(A7)> Δ-4 {[4, '(A6-0xc)']}
<Pointer.fp 0x238b2 <LVAR -0x010 @ 4(rw)>> Δ-4 {[4, '(A6-0xc)']|[@@-16]}
<Pointer.fp 0x238b4 <LVAR -0x008 @ 1(r)>> Δ-4 {[4, '(A6-0xc)']|[@@-16]|[@@-8]}
<Call 0x238b8 0x1043c> {[4, '(A6-0xc)']|[@@-16]|[@@-8]}
FileReadLine(file : File; VAR a : String; VAR b : Byte)
<POP 238be-238c2 StackAdj> Δ+12 {}
<MI 238c2 MOVEA.L (A6-0x10),A0> {}
<MI 238c4 TST.W (A0)> {}
<MI 238c6 BEQ 0x238dc> {}
<POP 238c8-238dc Naked> Σ0 ↓
<MI 238c8 MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0x10)']}
<Call 0x238ca 0x21364> {[4, '(A6-0x10)']}
<POP 238ce-238d0 StackAdj> Δ+4 {}
<Pointer.fp 0x238d0 <LVAR -0x006 @ 4(w)>> Δ-4 {[@@-6]}
<MI 238d4 MOVE.L (A6-0x10),-(A7)> Δ-4 {[@@-6]|[4, '(A6-0x10)']}
<Call 0x238d6 0x216ea> {[@@-6]|[4, '(A6-0x10)']}
<POP 238da-238dc StackAdj> Δ+8 {}
<POP 238dc-238e2 Naked> Σ0 ↓ →0x238b0 ←0x238b0
<MI 238dc TST.B (A6-0x8)> {}
<MI 238e0 BEQ 0x238b0> {}
<POP 238e2-23902 Naked> Σ0 ↓
<MI 238e2 CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x238e4 0x1.2> Δ-2 {[#0]|[#1]}
<Const 0x238e6 0x1.4> Δ-4 {[#0]|[#1]|[##1]}
<Pointer.fp 0x238ea <LVAR -0x002 @ 1(r)>> Δ-4 {[#0]|[#1]|[##1]|[@@-2]}
<Pointer.fp 0x238ec <LVAR -0x00c @ 4(r)>> Δ-4 {[#0]|[#1]|[##1]|[@@-2]|[@@-12]}
<Call 0x238ee 0x1038c> {[#0]|[#1]|[##1]|[@@-2]|[@@-12]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 238f4-238f8 StackAdj> Δ+16 {}
<Pointer.fp 0x238f8 <LVAR -0x010 @ 4(rw)>> Δ-4 {[@@-16]}
<Call 0x238fa 0x102bc> {[@@-16]}
FreeString(VAR a : String)
<POP 23900-23902 StackAdj> Δ+4 {}
<POP 23902-2390a Epilogue> Σ0
@ 2390a
<LVAR 0x014 1(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 2390a-2394a Body>
<POP 2390a-23920 Prologue> Σ0 ↓
<POP 23920-23942 Naked> Σ0 ↓
<MI 23920 MOVE.L (A6+0xc),D0> {}
<MI 23924 ADD.L (A6+0x8),D0> {}
<MI 23928 SUBQ.L #0x1,D0> {}
<MI 2392a SUBQ.L #0x1,D0> {}
<POP 0x2392c LimitCheck 0x0 ≤ D0 ≤ 0x1fff> {}
<MI 23936 LEA.L 0x26c16,A0> {}
<MI 2393c MOVE.B (A0+D0.L+#0x8),(A6+0x14)> {}
<POP 23942-2394a Epilogue> Σ0
@ 2394a
<LVAR 0x010 4(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 1(r)>
<LVAR -0x008 @ 4(r)>
<POP 2394a-239c6 Body>
<POP 2394a-23960 Prologue> Σ0 ↓
<POP 23960-23988 Naked> Σ0 ↓ →0x239b8
<POP 23960-23962 StackAdj> Δ-4 {[-4-]}
<MI 23962 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']}
<MI 23966 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x2396a 0x21db8> {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 2396e-23970 StackAdj> Δ+8 {[-4-]}
<Pointer.fp 0x23970 <LVAR -0x004 @ 1(r)>> Δ-4 {[-4-]|[@@-4]}
<Pointer.fp 0x23974 <LVAR -0x008 @ 4(r)>> Δ-4 {[-4-]|[@@-4]|[@@-8]}
<Call 0x23978 0x102ec> {[-4-]|[@@-4]|[@@-8]}
String2Long(src : String; VAR status : Bool; VAR retval : Long)
<POP 2397e-23982 StackAdj> Δ+12 {}
<MI 23982 TST.B (A6-0x4)> {}
<MI 23986 BNE 0x239b8> {}
<POP 23988-239b8 Naked> Σ0 ↓
<Blob 0x23988 [24] @> Δ-24 {[«24""»]}
<POP 2399a-2399c StackAdj> Δ-4 {[«24""»]|[-4-]}
<Lit 0x2399c 23> {[«24""»]|[$$Illegal marker argument]}
<Call 0x239b0 0x2110c> {[«24""»]|[$$Illegal marker argument]}
<POP 239b4-239b8 StackAdj> Δ+28 {}
<POP 239b8-239be Naked> Σ0 ↓ ←0x23960
<MI 239b8 MOVE.L (A6-0x8),(A6+0x10)> {}
<POP 239be-239c6 Epilogue> Σ0
@ 239c6
<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 239c6-23aee Body>
<POP 239c6-239dc Prologue> Σ0 ↓
<POP 239dc-239ec RegCacheLoad> Σ0 ↓
<POP 239ec-23a06 Naked> Σ0 Δ-4 ↓
<MI 239ec MOVEQ.L #0x00,D7> {}
<MI 239ee MOVE.L (A6+0x14),(A6-0x20)> {}
<MI 239f2 MOVE.L 0x28c1e,D0> {}
<MI 239f8 SUB.L (A6+0x14),D0> {}
<MI 239fc MOVE.L D0,(A6-0x14)> {}
<MI 239fe MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<MI 23a02 MOVE.L (A6+0x10),D5> {[4, '(A6+0xc)']}
<POP 23a06-23a0a Naked> Σ-4 ↓ →0x23a36 ←0x23a32
<MI 23a06 CMP.L (A7),D5> {[-4-]}
<MI 23a08 BGT 0x23a36> {[-4-]}
<POP 23a0a-23a30 Naked> Σ-4 ↓ →0x23a32
<POP 23a0a-23a0c StackAdj> Δ-8 {[-12-]}
<MI 23a0c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']}
<MI 23a10 MOVE.L D5,-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']|[4, 'D5']}
<Call 0x23a12 0x21d56> {[-12-]|[4, '(A6+0x8)']|[4, 'D5']}
<POP 23a16-23a18 StackAdj> Δ+8 {[-12-]}
<MI 23a18 MOVE.L (A7)+,(A6-0x10)> Δ+4 {[-8-]}
<MI 23a1a MOVE.L (A7),(A6-0xc)> {[-8-]}
<MI 23a1c MOVE.L (A6-0xc),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']}
<MI 23a1e MOVE.L (A6-0x10),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<Call 0x23a20 0x21d1e> {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<POP 23a24-23a26 StackAdj> Δ+8 {[-8-]}
<MI 23a26 MOVE.L (A7)+,D6> Δ+4 {[-4-]}
<MI 23a28 ADD.L D6,D7> {[-4-]}
<MI 23a2a CMP.L (A6+0xc),D5> {[-4-]}
<MI 23a2e BGE 0x23a32> {[-4-]}
<POP 23a30-23a32 Naked> Σ-4 ↓
<MI 23a30 ADDQ.L #0x1,D7> {[-4-]}
<POP 23a32-23a36 Naked> Σ-4 ↓ →0x23a06 ←0x23a0a
<MI 23a32 ADDQ.L #0x1,D5> {[-4-]}
<MI 23a34 BVC 0x23a06> {[-4-]}
<POP 23a36-23a44 Naked> Σ-4 Δ+4 ↓ →0x23a50 ←0x23a06
<POP 23a36-23a38 StackAdj> Δ+4 {}
<MI 23a38 MOVE.L (A6-0x20),D0> {}
<MI 23a3a ADD.L (A6-0x14),D0> {}
<MI 23a3c MOVE.L D0,(A6-0x18)> {}
<MI 23a40 CMP.L (A6-0x14),D7> {}
<MI 23a42 BEQ 0x23a50> {}
<POP 23a44-23a50 Naked> Σ0 ↓
<MI 23a44 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 23a46 MOVE.L (A6-0x14),-(A7)> Δ-4 {[4, 'D0']|[4, '(A6-0x14)']}
<MI 23a48 SUB.L D7,(A7)> {[4, 'D0']|[-4-]}
<Call 0x23a4a 0x21660> {[4, 'D0']|[-4-]}
<POP 23a4e-23a50 StackAdj> Δ+8 {}
<POP 23a50-23a58 Naked> Σ0 Δ-4 ↓ ←0x23a36
<MI 23a50 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<MI 23a54 MOVE.L (A6+0x10),D5> {[4, '(A6+0xc)']}
<POP 23a58-23a5e Naked> Σ-4 ↓ →0x23ae4 ←0x23ade
<MI 23a58 CMP.L (A7),D5> {[-4-]}
<MI 23a5a BGT 0x23ae4> {[-4-]}
<POP 23a5e-23a80 Naked> Σ-4 Δ-4 ↓
<POP 23a5e-23a60 StackAdj> Δ-8 {[-12-]}
<MI 23a60 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']}
<MI 23a64 MOVE.L D5,-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']|[4, 'D5']}
<Call 0x23a66 0x21d56> {[-12-]|[4, '(A6+0x8)']|[4, 'D5']}
<POP 23a6a-23a6c StackAdj> Δ+8 {[-12-]}
<MI 23a6c MOVE.L (A7)+,(A6-0x10)> Δ+4 {[-8-]}
<MI 23a6e MOVE.L (A7),(A6-0xc)> {[-8-]}
<MI 23a70 MOVE.L (A6-0xc),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']}
<MI 23a72 MOVE.L (A6-0x10),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<Call 0x23a74 0x21d1e> {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<POP 23a78-23a7a StackAdj> Δ+8 {[-8-]}
<MI 23a7a MOVE.L (A7)+,D6> Δ+4 {[-4-]}
<MI 23a7c MOVE.L D6,-(A7)> Δ-4 {[-4-]|[4, 'D6']}
<MI 23a7e MOVEQ.L #0x01,D0> {[-4-]|[4, 'D6']}
<POP 23a80-23a84 Naked> Σ-8 ↓ →0x23ab4 ←0x23a84
<MI 23a80 CMP.L (A7),D0> {[-8-]}
<MI 23a82 BGT 0x23ab4> {[-8-]}
<POP 23a84-23ab4 Naked> Σ-8 ↓ →0x23a80
<MI 23a84 MOVE.L (A6-0x20),D1> {[-8-]}
<MI 23a86 ADD.L D0,D1> {[-8-]}
<MI 23a88 SUBQ.L #0x1,D1> {[-8-]}
<MI 23a8a SUBQ.L #0x1,D1> {[-8-]}
<POP 0x23a8c LimitCheck 0x0 ≤ D1 ≤ 0x1fff> {[-8-]}
<MI 23a96 LEA.L 0x26c16,A0> {[-8-]}
<POP 23a9c-23a9e StackAdj> Δ-2 {[-10-]}
<MI 23a9e MOVE.L (A6-0xc),-(A7)> Δ-4 {[-10-]|[4, '(A6-0xc)']}
<MI 23aa0 MOVE.L (A6-0x10),-(A7)> Δ-4 {[-10-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<MI 23aa2 MOVE.L D0,-(A7)> Δ-4 {[-10-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D0']}
<Call 0x23aa4 0x2390a> {[-10-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D0']}
<POP 23aa8-23aac StackAdj> Δ+12 {[-10-]}
<MI 23aac MOVE.B (A7)+,(A0+D1.L+#0x8)> Δ+2 {[-8-]}
<MI 23ab0 ADDQ.L #0x1,D0> {[-8-]}
<MI 23ab2 BVC 0x23a80> {[-8-]}
<POP 23ab4-23abc Naked> Σ-8 Δ+4 ↓ →0x23ade ←0x23a80
<POP 23ab4-23ab6 StackAdj> Δ+4 {[-4-]}
<MI 23ab6 CMP.L (A6+0xc),D5> {[-4-]}
<MI 23aba BGE 0x23ade> {[-4-]}
<POP 23abc-23ade Naked> Σ-4 ↓
<MI 23abc MOVE.L (A6-0x20),D0> {[-4-]}
<MI 23abe ADD.L D6,D0> {[-4-]}
<MI 23ac0 MOVE.L D0,D1> {[-4-]}
<MI 23ac2 SUBQ.L #0x1,D1> {[-4-]}
<POP 0x23ac4 LimitCheck 0x0 ≤ D1 ≤ 0x1fff> {[-4-]}
<MI 23ace LEA.L 0x26c16,A0> {[-4-]}
<MI 23ad4 MOVE.B #0x2c,(A0+D1.L+#0x8)> {[-4-]}
<MI 23ada ADDQ.L #0x1,D0> {[-4-]}
<MI 23adc MOVE.L D0,(A6-0x20)> {[-4-]}
<POP 23ade-23ae4 Naked> Σ-4 ↓ →0x23a58 ←0x23ab4
<MI 23ade ADDQ.L #0x1,D5> {[-4-]}
<MI 23ae0 BVC 0x23a58> {[-4-]}
<POP 23ae4-23ae6 Naked> Σ-4 Δ+4 ↓ ←0x23a58
<POP 23ae4-23ae6 StackAdj> Δ+4 {}
<POP 23ae6-23aee Epilogue> Σ0
@ 23aee
<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 23aee-23be4 Body> Δ-12
<POP 23aee-23b04 Prologue> Σ0 ↓
<POP 23b04-23b1a RegCacheLoad> Σ0 ↓
<POP 23b1a-23b44 Naked> Σ0 Δ-4 ↓
<POP 23b1a-23b1c StackAdj> Δ-4 {[-4-]}
<MI 23b1c MOVE.L (A6+0x14),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']}
<MI 23b1e MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<Call 0x23b20 0x21d1e> {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<POP 23b24-23b26 StackAdj> Δ+8 {[-4-]}
<MI 23b26 MOVE.L (A7),(A6-0xc)> {[-4-]}
<MI 23b28 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']}
<MI 23b2c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x23b30 0x21d1e> {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 23b34-23b36 StackAdj> Δ+8 {[-4-]}
<MI 23b36 MOVE.L (A7)+,(A6-0x8)> Δ+4 {}
<MI 23b38 ADDQ.L #0x1,(A6-0x8)> {}
<MI 23b3a MOVE.L (A6-0xc),D0> {}
<MI 23b3c SUB.L (A6-0x8),D0> {}
<MI 23b3e ADDQ.L #0x1,D0> {}
<MI 23b40 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 23b42 MOVEQ.L #0x01,D0> {[4, 'D0']}
<POP 23b44-23b4a Naked> Σ-4 ↓ →0x23bd6 ←0x23bce
<MI 23b44 CMP.L (A7),D0> {[-4-]}
<MI 23b46 BGT 0x23bd6> {[-4-]}
<POP 23b4a-23b56 Naked> Σ-4 Δ-8 ↓
<MI 23b4a MOVE.L D0,(A6-0x18)> {[-4-]}
<MI 23b4e MOVE.L D0,-(A7)> Δ-4 {[-4-]|[4, 'D0']}
<MI 23b50 MOVEQ.L #0x00,D6> {[-4-]|[4, 'D0']}
<MI 23b52 MOVE.L (A6-0x8),-(A7)> Δ-4 {[-4-]|[4, 'D0']|[4, '(A6-0x8)']}
<MI 23b54 MOVEQ.L #0x01,D5> {[-4-]|[4, 'D0']|[4, '(A6-0x8)']}
<POP 23b56-23b5a Naked> Σ-12 ↓ →0x23b9c ←0x23b96
<MI 23b56 CMP.L (A7),D5> {[-12-]}
<MI 23b58 BGT 0x23b9c> {[-12-]}
<POP 23b5a-23b62 Naked> Σ-12 ↓ →0x23b66
<MI 23b5a CMPI.L #0x00000001,D5> {[-12-]}
<MI 23b60 BNE 0x23b66> {[-12-]}
<POP 23b62-23b66 Naked> Σ-12 →0x23b7a
<MI 23b62 MOVEQ.L #0x2f,D7> {[-12-]}
<MI 23b64 BRA 0x23b7a> {[-12-]}
<POP 23b66-23b7a Naked> Σ-12 ↓ ←0x23b5a
<POP 23b66-23b68 StackAdj> Δ-2 {[-14-]}
<MI 23b68 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-14-]|[4, '(A6+0xc)']}
<MI 23b6c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-14-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<MI 23b70 MOVE.L D5,-(A7)> Δ-4 {[-14-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D5']}
<MI 23b72 SUBQ.L #0x1,(A7)> {[-14-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[-4-]}
<Call 0x23b74 0x2390a> {[-14-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[-4-]}
<POP 23b76-23b78 StackAdj> Δ+12 {[-14-]}
<MI 23b78 MOVE.B (A7)+,D7> Δ+2 {[-12-]}
<POP 23b7a-23b92 Naked> Σ-12 ↓ →0x23b96 ←0x23b62
<POP 23b7a-23b7c StackAdj> Δ-2 {[-14-]}
<MI 23b7c MOVE.L (A6+0x14),-(A7)> Δ-4 {[-14-]|[4, '(A6+0x14)']}
<MI 23b7e MOVE.L (A6+0x10),-(A7)> Δ-4 {[-14-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 23b80 MOVE.L (A7+0xe),D0> {[-14-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 23b84 ADD.L D5,D0> {[-14-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 23b86 SUBQ.L #0x1,D0> {[-14-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 23b88 MOVE.L D0,-(A7)> Δ-4 {[-14-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D0']}
<Call 0x23b8a 0x2390a> {[-14-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D0']}
<POP 23b8c-23b8e StackAdj> Δ+12 {[-14-]}
<MI 23b8e CMP.B (A7)+,D7> Δ+2 {[-12-]}
<MI 23b90 BEQ 0x23b96> {[-12-]}
<POP 23b92-23b96 Naked> Σ-12 Δ+4 →0x23b9e
<POP 23b92-23b94 StackAdj> Δ+4 {[-8-]}
<MI 23b94 BRA 0x23b9e> {[-8-]}
<POP 23b96-23b9c Naked> Σ-12 ↓ →0x23b56 ←0x23b7a
<MI 23b96 MOVE.L D5,D6> {[-12-]}
<MI 23b98 ADDQ.L #0x1,D5> {[-12-]}
<MI 23b9a BVC 0x23b56> {[-12-]}
<POP 23b9c-23b9e Naked> Σ-12 Δ+4 ↓ ←0x23b56
<POP 23b9c-23b9e StackAdj> Δ+4 {[-8-]}
<POP 23b9e-23ba2 Naked> Σ-8 ↓ →0x23bce ←0x23b92
<MI 23b9e CMP.L (A6-0x8),D6> {[-8-]}
<MI 23ba0 BNE 0x23bce> {[-8-]}
<POP 23ba2-23bae Naked> Σ-8 ↓ →0x23bb0
<MI 23ba2 MOVE.L (A7),D0> {[-8-]}
<MI 23ba4 MOVE.L D0,(A6+0x18)> {[-8-]}
<MI 23ba8 ADD.L (A6-0x8),D0> {[-8-]}
<MI 23baa CMP.L (A6-0xc),D0> {[-8-]}
<MI 23bac BLT 0x23bb0> {[-8-]}
<POP 23bae-23bb0 Naked> Σ-8 →0x23bca
<MI 23bae BRA 0x23bca> {[-8-]}
<POP 23bb0-23bc4 Naked> Σ-8 ↓ →0x23bca ←0x23ba2
<POP 23bb0-23bb2 StackAdj> Δ-2 {[-10-]}
<MI 23bb2 MOVE.L (A6+0x14),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x14)']}
<MI 23bb4 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 23bb6 MOVE.L D0,-(A7)> Δ-4 {[-10-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D0']}
<Call 0x23bb8 0x2390a> {[-10-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D0']}
<POP 23bba-23bbc StackAdj> Δ+12 {[-10-]}
<MI 23bbc MOVE.B (A7)+,D7> Δ+2 {[-8-]}
<MI 23bbe CMPI.B #0x2f,D7> {[-8-]}
<MI 23bc2 BEQ 0x23bca> {[-8-]}
<POP 23bc4-23bca Naked> Σ-8 ↓ →0x23bce
<MI 23bc4 CMPI.B #0x3d,D7> {[-8-]}
<MI 23bc8 BNE 0x23bce> {[-8-]}
<POP 23bca-23bce Naked> Σ-8 Δ+8 →0x23bdc ←0x23bae ←0x23bb0
<POP 23bca-23bcc StackAdj> Δ+8 {}
<MI 23bcc BRA 0x23bdc> {}
<POP 23bce-23bd6 Naked> Σ-8 Δ+4 ↓ →0x23b44 ←0x23b9e ←0x23bc4
<MI 23bce MOVE.L (A7)+,D0> Δ+4 {[-4-]}
<MI 23bd0 ADDQ.L #0x1,D0> {[-4-]}
<MI 23bd2 BVC 0x23b44> {[-4-]}
<POP 23bd6-23bdc Naked> Σ-4 Δ+4 ↓ ←0x23b44
<POP 23bd6-23bd8 StackAdj> Δ+4 {}
<MI 23bd8 CLR.L (A6+0x18)> {}
<POP 23bdc-23be4 Epilogue> Σ0 ←0x23bca
@ 23be4
<LVAR 0x018 4(r)>
<LVAR 0x014 4(r)>
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 23be4-23c78 Body> Δ-4
<POP 23be4-23bfa Prologue> Σ0 ↓
<POP 23bfa-23c04 RegCacheLoad> Σ0 ↓
<POP 23c04-23c1e Naked> Σ0 ↓ →0x23c70
<POP 23c04-23c06 StackAdj> Δ-4 {[-4-]}
<MI 23c06 MOVE.L (A6+0x14),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']}
<MI 23c08 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 23c0a MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<MI 23c0e MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x23c12 0x23aee> {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 23c16-23c1a StackAdj> Δ+16 {[-4-]}
<MI 23c1a MOVE.L (A7)+,D5> Δ+4 {}
<MI 23c1c BLE 0x23c70> {}
<POP 23c1e-23c3e Naked> Σ0 Δ-4 ↓
<MI 23c1e MOVE.L (A6+0x18),-(A7)> Δ-4 {[4, '(A6+0x18)']}
<Const 0x23c22 0x2f.2> Δ-2 {[4, '(A6+0x18)']|[#47]}
<Call 0x23c24 0x102c0> {[4, '(A6+0x18)']|[#47]}
AppendChar(MOD b : String; a : char)
<POP 23c2a-23c2c StackAdj> Δ+6 {}
<MI 23c2c MOVE.L D5,D0> {}
<MI 23c2e ADDQ.L #0x1,D0> {}
<POP 23c30-23c32 StackAdj> Δ-4 {[-4-]}
<MI 23c32 MOVE.L (A6+0x14),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']}
<MI 23c34 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<Call 0x23c36 0x21d1e> {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<POP 23c3a-23c3c StackAdj> Δ+8 {[-4-]}
<MI 23c3c MOVE.L D0,D6> {[-4-]}
<POP 23c3e-23c42 Naked> Σ-4 ↓ →0x23c6e ←0x23c5c
<MI 23c3e CMP.L (A7),D6> {[-4-]}
<MI 23c40 BGT 0x23c6e> {[-4-]}
<POP 23c42-23c58 Naked> Σ-4 ↓ →0x23c5c
<POP 23c42-23c44 StackAdj> Δ-2 {[-6-]}
<MI 23c44 MOVE.L (A6+0x14),-(A7)> Δ-4 {[-6-]|[4, '(A6+0x14)']}
<MI 23c46 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-6-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 23c48 MOVE.L D6,-(A7)> Δ-4 {[-6-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D6']}
<Call 0x23c4a 0x2390a> {[-6-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D6']}
<POP 23c4e-23c52 StackAdj> Δ+12 {[-6-]}
<MI 23c52 MOVE.B (A7)+,D7> Δ+2 {[-4-]}
<MI 23c54 CMP.B #0x2f,D7> {[-4-]}
<MI 23c56 BNE 0x23c5c> {[-4-]}
<POP 23c58-23c5c Naked> Σ-4 Δ+4 →0x23c70
<POP 23c58-23c5a StackAdj> Δ+4 {}
<MI 23c5a BRA 0x23c70> {}
<POP 23c5c-23c6e Naked> Σ-4 ↓ →0x23c3e ←0x23c42
<MI 23c5c MOVE.L (A6+0x18),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x18)']}
<MI 23c60 MOVE.B D7,-(A7)> Δ-2 {[-4-]|[4, '(A6+0x18)']|[2, 'D7']}
<Call 0x23c62 0x102c0> {[-4-]|[4, '(A6+0x18)']|[2, 'D7']}
AppendChar(MOD b : String; a : char)
<POP 23c68-23c6a StackAdj> Δ+6 {[-4-]}
<MI 23c6a ADDQ.L #0x1,D6> {[-4-]}
<MI 23c6c BVC 0x23c3e> {[-4-]}
<POP 23c6e-23c70 Naked> Σ-4 Δ+4 ↓ ←0x23c3e
<POP 23c6e-23c70 StackAdj> Δ+4 {}
<POP 23c70-23c78 Epilogue> Σ0 ←0x23c04 ←0x23c58
@ 23c78
<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 23c78-23d2e Body> Δ-8
<POP 23c78-23c8e Prologue> Σ0 ↓
<POP 23c8e-23c9c RegCacheLoad> Σ0 ↓
<POP 23c9c-23cb8 Naked> Σ0 ↓ →0x23d26
<POP 23c9c-23c9e StackAdj> Δ-4 {[-4-]}
<MI 23c9e MOVE.L (A6+0x14),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']}
<MI 23ca0 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 23ca2 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<MI 23ca6 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x23caa 0x23aee> {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 23cae-23cb2 StackAdj> Δ+16 {[-4-]}
<MI 23cb2 MOVE.L (A7)+,(A6-0x14)> Δ+4 {}
<MI 23cb6 BLE 0x23d26> {}
<POP 23cb8-23ccc Naked> Σ0 Δ-4 ↓
<POP 23cb8-23cba StackAdj> Δ-4 {[-4-]}
<MI 23cba MOVE.L (A6+0x14),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']}
<MI 23cbc MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<Call 0x23cbe 0x21d1e> {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<POP 23cc2-23cc4 StackAdj> Δ+8 {[-4-]}
<MI 23cc4 MOVE.L (A7)+,(A6-0x6)> Δ+4 {}
<MI 23cc6 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<MI 23cc8 MOVE.L (A6-0x14),D5> {[4, '(A6-0x6)']}
<POP 23ccc-23cd0 Naked> Σ-4 ↓ →0x23d24 ←0x23d20
<MI 23ccc CMP.L (A7),D5> {[-4-]}
<MI 23cce BGT 0x23d24> {[-4-]}
<POP 23cd0-23ce6 Naked> Σ-4 ↓ →0x23d20
<POP 23cd0-23cd2 StackAdj> Δ-2 {[-6-]}
<MI 23cd2 MOVE.L (A6+0x14),-(A7)> Δ-4 {[-6-]|[4, '(A6+0x14)']}
<MI 23cd4 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-6-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 23cd6 MOVE.L D5,-(A7)> Δ-4 {[-6-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D5']}
<Call 0x23cd8 0x2390a> {[-6-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D5']}
<POP 23cdc-23cde StackAdj> Δ+12 {[-6-]}
<MI 23cde MOVE.B (A7)+,D0> Δ+2 {[-4-]}
<MI 23ce0 CMPI.B #0x3d,D0> {[-4-]}
<MI 23ce4 BNE 0x23d20> {[-4-]}
<POP 23ce6-23cee Naked> Σ-4 Δ-4 ↓
<MI 23ce6 MOVE.L D5,D0> {[-4-]}
<MI 23ce8 ADDQ.L #0x1,D0> {[-4-]}
<MI 23cea MOVE.L (A6-0x6),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x6)']}
<MI 23cec MOVE.L D0,D6> {[-4-]|[4, '(A6-0x6)']}
<POP 23cee-23cf2 Naked> Σ-8 ↓ →0x23d1e ←0x23d0c
<MI 23cee CMP.L (A7),D6> {[-8-]}
<MI 23cf0 BGT 0x23d1e> {[-8-]}
<POP 23cf2-23d08 Naked> Σ-8 ↓ →0x23d0c
<POP 23cf2-23cf4 StackAdj> Δ-2 {[-10-]}
<MI 23cf4 MOVE.L (A6+0x14),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x14)']}
<MI 23cf6 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 23cf8 MOVE.L D6,-(A7)> Δ-4 {[-10-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D6']}
<Call 0x23cfa 0x2390a> {[-10-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D6']}
<POP 23cfe-23d00 StackAdj> Δ+12 {[-10-]}
<MI 23d00 MOVE.B (A7)+,D7> Δ+2 {[-8-]}
<MI 23d02 CMPI.B #0x2f,D7> {[-8-]}
<MI 23d06 BNE 0x23d0c> {[-8-]}
<POP 23d08-23d0c Naked> Σ-8 Δ+8 →0x23d26
<POP 23d08-23d0a StackAdj> Δ+8 {}
<MI 23d0a BRA 0x23d26> {}
<POP 23d0c-23d1e Naked> Σ-8 ↓ →0x23cee ←0x23cf2
<MI 23d0c MOVE.L (A6+0x18),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x18)']}
<MI 23d10 MOVE.B D7,-(A7)> Δ-2 {[-8-]|[4, '(A6+0x18)']|[2, 'D7']}
<Call 0x23d12 0x102c0> {[-8-]|[4, '(A6+0x18)']|[2, 'D7']}
AppendChar(MOD b : String; a : char)
<POP 23d18-23d1a StackAdj> Δ+6 {[-8-]}
<MI 23d1a ADDQ.L #0x1,D6> {[-8-]}
<MI 23d1c BVC 0x23cee> {[-8-]}
<POP 23d1e-23d20 Naked> Σ-8 Δ+4 ↓ ←0x23cee
<POP 23d1e-23d20 StackAdj> Δ+4 {[-4-]}
<POP 23d20-23d24 Naked> Σ-4 ↓ →0x23ccc ←0x23cd0
<MI 23d20 ADDQ.L #0x1,D5> {[-4-]}
<MI 23d22 BVC 0x23ccc> {[-4-]}
<POP 23d24-23d26 Naked> Σ-4 Δ+4 ↓ ←0x23ccc
<POP 23d24-23d26 StackAdj> Δ+4 {}
<POP 23d26-23d2e Epilogue> Σ0 ←0x23c9c ←0x23d08
@ 23d2e
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 23d2e-23db4 Body> Δ-4
<POP 23d2e-23d44 Prologue> Σ0 ↓
<POP 23d44-23d4e RegCacheLoad> Σ0 ↓
<POP 23d4e-23d60 Naked> Σ0 Δ-4 ↓
<POP 23d4e-23d50 StackAdj> Δ-4 {[-4-]}
<MI 23d50 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']}
<MI 23d52 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x23d54 0x21d1e> {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 23d58-23d5a StackAdj> Δ+8 {[-4-]}
<MI 23d5a MOVE.L (A7)+,D5> Δ+4 {}
<MI 23d5c MOVE.L D5,-(A7)> Δ-4 {[4, 'D5']}
<MI 23d5e MOVEQ.L #0x01,D6> {[4, 'D5']}
<POP 23d60-23d64 Naked> Σ-4 ↓ →0x23daa ←0x23da6
<MI 23d60 CMP.L (A7),D6> {[-4-]}
<MI 23d62 BGT 0x23daa> {[-4-]}
<POP 23d64-23d7a Naked> Σ-4 ↓ →0x23da6
<POP 23d64-23d66 StackAdj> Δ-2 {[-6-]}
<MI 23d66 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-6-]|[4, '(A6+0xc)']}
<MI 23d68 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-6-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<MI 23d6a MOVE.L D6,-(A7)> Δ-4 {[-6-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D6']}
<Call 0x23d6c 0x2390a> {[-6-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D6']}
<POP 23d70-23d72 StackAdj> Δ+12 {[-6-]}
<MI 23d72 MOVE.B (A7)+,D0> Δ+2 {[-4-]}
<MI 23d74 CMPI.B #0x2f,D0> {[-4-]}
<MI 23d78 BNE 0x23da6> {[-4-]}
<POP 23d7a-23d7e Naked> Σ-4 Δ-4 ↓
<MI 23d7a MOVE.L D5,-(A7)> Δ-4 {[-4-]|[4, 'D5']}
<MI 23d7c MOVE.L D6,D7> {[-4-]|[4, 'D5']}
<POP 23d7e-23d82 Naked> Σ-8 ↓ →0x23da0 ←0x23d82
<MI 23d7e CMP.L (A7),D7> {[-8-]}
<MI 23d80 BGT 0x23da0> {[-8-]}
<POP 23d82-23da0 Naked> Σ-8 ↓ →0x23d7e
<MI 23d82 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x10)']}
<POP 23d86-23d88 StackAdj> Δ-2 {[-8-]|[4, '(A6+0x10)']|[-2-]}
<MI 23d88 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x10)']|[-2-]|[4, '(A6+0xc)']}
<MI 23d8a MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x10)']|[-2-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<MI 23d8c MOVE.L D7,-(A7)> Δ-4 {[-8-]|[4, '(A6+0x10)']|[-2-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D7']}
<Call 0x23d8e 0x2390a> {[-8-]|[4, '(A6+0x10)']|[-2-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D7']}
<POP 23d92-23d94 StackAdj> Δ+12 {[-8-]|[4, '(A6+0x10)']|[-2-]}
<Call 0x23d94 0x102c0> {[-8-]|[4, '(A6+0x10)']|[-2-]}
AppendChar(MOD b : String; a : char)
<POP 23d9a-23d9c StackAdj> Δ+6 {[-8-]}
<MI 23d9c ADDQ.L #0x1,D7> {[-8-]}
<MI 23d9e BVC 0x23d7e> {[-8-]}
<POP 23da0-23da6 Naked> Σ-8 Δ+8 →0x23dac ←0x23d7e
<POP 23da0-23da2 StackAdj> Δ+4 {[-4-]}
<POP 23da2-23da4 StackAdj> Δ+4 {}
<MI 23da4 BRA 0x23dac> {}
<POP 23da6-23daa Naked> Σ-4 ↓ →0x23d60 ←0x23d64
<MI 23da6 ADDQ.L #0x1,D6> {[-4-]}
<MI 23da8 BVC 0x23d60> {[-4-]}
<POP 23daa-23dac Naked> Σ-4 Δ+4 ↓ ←0x23d60
<POP 23daa-23dac StackAdj> Δ+4 {}
<POP 23dac-23db4 Epilogue> Σ0 ←0x23da0
@ 23db4
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 23db4-23e24 Body> Δ-4
<POP 23db4-23dca Prologue> Σ0 ↓
<POP 23dca-23de2 Naked> Σ0 Δ-4 ↓
<MI 23dca MOVEA.L (A6+0x10),A0> {}
<MI 23dce CLR.W (A0)> {}
<POP 23dd0-23dd2 StackAdj> Δ-4 {[-4-]}
<MI 23dd2 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']}
<MI 23dd6 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x23dda 0x21d1e> {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 23dde-23de0 StackAdj> Δ+8 {[-4-]}
<MI 23de0 MOVEQ.L #0x01,D7> {[-4-]}
<POP 23de2-23de6 Naked> Σ-4 ↓ →0x23e1a ←0x23e16
<MI 23de2 CMP.L (A7),D7> {[-4-]}
<MI 23de4 BGT 0x23e1a> {[-4-]}
<POP 23de6-23e02 Naked> Σ-4 ↓ →0x23e12
<POP 23de6-23de8 StackAdj> Δ-2 {[-6-]}
<MI 23de8 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-6-]|[4, '(A6+0xc)']}
<MI 23dec MOVE.L (A6+0x8),-(A7)> Δ-4 {[-6-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<MI 23df0 MOVE.L D7,-(A7)> Δ-4 {[-6-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D7']}
<Call 0x23df2 0x2390a> {[-6-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D7']}
<POP 23df6-23dfa StackAdj> Δ+12 {[-6-]}
<MI 23dfa MOVE.B (A7)+,D6> Δ+2 {[-4-]}
<MI 23dfc CMPI.B #0x2f,D6> {[-4-]}
<MI 23e00 BEQ 0x23e12> {[-4-]}
<POP 23e02-23e12 Naked> Σ-4 →0x23e16
<MI 23e02 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x10)']}
<MI 23e06 MOVE.B D6,-(A7)> Δ-2 {[-4-]|[4, '(A6+0x10)']|[2, 'D6']}
<Call 0x23e08 0x102c0> {[-4-]|[4, '(A6+0x10)']|[2, 'D6']}
AppendChar(MOD b : String; a : char)
<POP 23e0e-23e10 StackAdj> Δ+6 {[-4-]}
<MI 23e10 BRA 0x23e16> {[-4-]}
<POP 23e12-23e16 Naked> Σ-4 Δ+4 →0x23e1c ←0x23de6
<POP 23e12-23e14 StackAdj> Δ+4 {}
<MI 23e14 BRA 0x23e1c> {}
<POP 23e16-23e1a Naked> Σ-4 ↓ →0x23de2 ←0x23e02
<MI 23e16 ADDQ.L #0x1,D7> {[-4-]}
<MI 23e18 BVC 0x23de2> {[-4-]}
<POP 23e1a-23e1c Naked> Σ-4 Δ+4 ↓ ←0x23de2
<POP 23e1a-23e1c StackAdj> Δ+4 {}
<POP 23e1c-23e24 Epilogue> Σ0 ←0x23e12
@ 23e24
<POP 23e24-23e6c Body>
<POP 23e24-23e3a Prologue> Σ0 ↓
<POP 23e3a-23e64 Naked> Σ0 ↓
<Blob 0x23e3a [34] @> Δ-34 {[«34""»]}
<POP 23e46-23e48 StackAdj> Δ-4 {[«34""»]|[-4-]}
<Lit 0x23e48 34> {[«34""»]|[$$Switch exclusion is unimplemented.]}
<Call 0x23e5c 0x2110c> {[«34""»]|[$$Switch exclusion is unimplemented.]}
<POP 23e60-23e64 StackAdj> Δ+38 {}
<POP 23e64-23e6c Epilogue> Σ0
@ 23e6c
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x006 4(rw)>
<POP 23e6c-23fa6 Body>
<POP 23e6c-23e82 Prologue> Σ0 ↓
<POP 23e82-23e98 RegCacheLoad> Σ0 ↓
<POP 23e98-23ea6 Naked> Σ0 ↓ →0x23eae
<MI 23e98 MOVE.L 0x28c1e,(A6-0x6)> {}
<POP 23e9c-23e9e StackAdj> Δ-2 {[-2-]}
<Call 0x23e9e 0x211a8> {[-2-]}
<MI 23ea0 MOVE.B (A7)+,D7> Δ+2 {}
<MI 23ea2 CMP.B #0x25,D7> {}
<MI 23ea4 BNE 0x23eae> {}
<POP 23ea6-23eae Naked> Σ0 →0x23f8e
<MI 23ea6 MOVEA.L (A6+0xc),A0> {}
<MI 23ea8 CLR.L (A0)> {}
<MI 23eaa BRA 0x23f8e> {}
<POP 23eae-23eb2 Naked> Σ0 ↓ →0x23ebe ←0x23e98
<MI 23eae CMP.B #0x2d,D7> {}
<MI 23eb0 BNE 0x23ebe> {}
<POP 23eb2-23ebe Naked> Σ0 →0x23f8e
<MI 23eb2 MOVEA.L (A6+0xc),A0> {}
<MI 23eb4 MOVE.L #0x1,(A0)> {}
<MI 23eba BRA 0x23f8e> {}
<POP 23ebe-23ec4 Naked> Σ0 ↓ →0x23ed0 ←0x23eae
<MI 23ebe CMPI.B #0x2f,D7> {}
<MI 23ec2 BNE 0x23ed0> {}
<POP 23ec4-23ed0 Naked> Σ0 →0x23f8e
<MI 23ec4 MOVEA.L (A6+0xc),A0> {}
<MI 23ec6 MOVE.L #0x4,(A0)> {}
<MI 23ecc BRA 0x23f8e> {}
<POP 23ed0-23ed6 Naked> Σ0 ↓ →0x23ee2 ←0x23ebe
<MI 23ed0 CMPI.B #0x3d,D7> {}
<MI 23ed4 BNE 0x23ee2> {}
<POP 23ed6-23ee2 Naked> Σ0 →0x23f8e
<MI 23ed6 MOVEA.L (A6+0xc),A0> {}
<MI 23ed8 MOVE.L #0x5,(A0)> {}
<MI 23ede BRA 0x23f8e> {}
<POP 23ee2-23ee8 Naked> Σ0 ↓ →0x23ef4 ←0x23ed0
<MI 23ee2 CMPI.B #0x5c,D7> {}
<MI 23ee6 BNE 0x23ef4> {}
<POP 23ee8-23ef4 Naked> Σ0 →0x23f8e
<MI 23ee8 MOVEA.L (A6+0xc),A0> {}
<MI 23eea MOVE.L #0x6,(A0)> {}
<MI 23ef0 BRA 0x23f8e> {}
<POP 23ef4-23ef8 Naked> Σ0 ↓ →0x23f24 ←0x23ee2
<MI 23ef4 TST.B D7> {}
<MI 23ef6 BNE 0x23f24> {}
<POP 23ef8-23f24 Naked> Σ0 →0x23f8e
<Blob 0x23ef8 [24] @> Δ-24 {[«24""»]}
<POP 23f04-23f06 StackAdj> Δ-4 {[«24""»]|[-4-]}
<Lit 0x23f06 24> {[«24""»]|[$$Illegal argument marker.]}
<Call 0x23f1a 0x2110c> {[«24""»]|[$$Illegal argument marker.]}
<POP 23f1e-23f22 StackAdj> Δ+28 {}
<MI 23f22 BRA 0x23f8e> {}
<POP 23f24-23f28 Naked> Σ0 ↓ →0x23f54 ←0x23ef4
<MI 23f24 CMP.B #0x30,D7> {}
<MI 23f26 BCS 0x23f54> {}
<POP 23f28-23f2c Naked> Σ0 ↓ →0x23f54
<MI 23f28 CMP.B #0x39,D7> {}
<MI 23f2a BHI 0x23f54> {}
<POP 23f2c-23f34 Naked> Σ0 ↓
<MI 23f2c MOVEA.L (A6+0xc),A0> {}
<MI 23f2e MOVE.L #0x2,(A0)> {}
<POP 23f34-23f40 Naked> Σ0 ↓ →0x23f4a ←0x23f4e
<POP 23f34-23f36 StackAdj> Δ-2 {[-2-]}
<Call 0x23f36 0x2116a> {[-2-]}
<MI 23f3a MOVE.B (A7)+,D7> Δ+2 {}
<MI 23f3c CMP.B #0x30,D7> {}
<MI 23f3e BCS 0x23f4a> {}
<POP 23f40-23f44 Naked> Σ0 ↓ →0x23f4a
<MI 23f40 CMP.B #0x39,D7> {}
<MI 23f42 BHI 0x23f4a> {}
<POP 23f44-23f4a Naked> Σ0 ↓
<POP 23f44-23f46 StackAdj> Δ-2 {[-2-]}
<Call 0x23f46 0x211a8> {[-2-]}
<MI 23f48 MOVE.B (A7)+,D6> Δ+2 {}
<POP 23f4a-23f4e Naked> Σ0 ↓ →0x23f52 ←0x23f34 ←0x23f40
<MI 23f4a CMP.B #0x30,D7> {}
<MI 23f4c BCS 0x23f52> {}
<POP 23f4e-23f52 Naked> Σ0 ↓ →0x23f34
<MI 23f4e CMP.B #0x39,D7> {}
<MI 23f50 BLS 0x23f34> {}
<POP 23f52-23f54 Naked> Σ0 →0x23f8e ←0x23f4a
<MI 23f52 BRA 0x23f8e> {}
<POP 23f54-23f5e Naked> Σ0 ↓ ←0x23f24 ←0x23f28
<MI 23f54 MOVEA.L (A6+0xc),A0> {}
<MI 23f56 MOVE.L #0x3,(A0)> {}
<MI 23f5c MOVEQ.L #0x00,D5> {}
<POP 23f5e-23f6a Naked> Σ0 ↓ →0x23f80 ←0x23f8a
<POP 23f5e-23f60 StackAdj> Δ-2 {[-2-]}
<Call 0x23f60 0x2116a> {[-2-]}
<MI 23f64 MOVE.B (A7)+,D7> Δ+2 {}
<MI 23f66 CMP.B #0x25,D7> {}
<MI 23f68 BEQ 0x23f80> {}
<POP 23f6a-23f6e Naked> Σ0 ↓ →0x23f80
<MI 23f6a CMP.B #0x2d,D7> {}
<MI 23f6c BEQ 0x23f80> {}
<POP 23f6e-23f74 Naked> Σ0 ↓ →0x23f80
<MI 23f6e CMPI.B #0x2f,D7> {}
<MI 23f72 BEQ 0x23f80> {}
<POP 23f74-23f7a Naked> Σ0 ↓ →0x23f80
<MI 23f74 CMPI.B #0x3d,D7> {}
<MI 23f78 BEQ 0x23f80> {}
<POP 23f7a-23f80 Naked> Σ0 ↓ →0x23f84
<MI 23f7a CMPI.B #0x5c,D7> {}
<MI 23f7e BNE 0x23f84> {}
<POP 23f80-23f84 Naked> Σ0 →0x23f8a ←0x23f5e ←0x23f6a ←0x23f6e ←0x23f74
<MI 23f80 MOVEQ.L #0x01,D5> {}
<MI 23f82 BRA 0x23f8a> {}
<POP 23f84-23f8a Naked> Σ0 ↓ ←0x23f7a
<POP 23f84-23f86 StackAdj> Δ-2 {[-2-]}
<Call 0x23f86 0x211a8> {[-2-]}
<MI 23f88 MOVE.B (A7)+,D6> Δ+2 {}
<POP 23f8a-23f8e Naked> Σ0 ↓ →0x23f5e ←0x23f80
<MI 23f8a TST.B D5> {}
<MI 23f8c BEQ 0x23f5e> {}
<POP 23f8e-23f9e Naked> Σ0 ↓ ←0x23ea6 ←0x23eb2 ←0x23ec4 ←0x23ed6 ←0x23ee8 ←0x23ef8 ←0x23f52
<MI 23f8e MOVEA.L (A6+0x8),A0> {}
<MI 23f92 MOVE.L (A6-0x6),(A0)> {}
<MI 23f96 MOVE.L 0x28c1e,(A0+0x4)> {}
<MI 23f9a SUBQ.L #0x1,(A0+0x4)> {}
<POP 23f9e-23fa6 Epilogue> Σ0
@ 23fa6
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 23fa6-2402c Body>
<POP 23fa6-23fbc Prologue> Σ0 ↓
<POP 23fbc-23fc0 RegCacheLoad> Σ0 ↓
<POP 23fc0-23fda Naked> Σ0 Δ-4 ↓ →0x23fe6
<MI 23fc0 MOVEA.L (A6+0x8),A0> {}
<MI 23fc4 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 23fc6 MOVE.L 0x28c1e,D6> {[4, 'A0']}
<MI 23fcc SUB.L (A6+0xc),D6> {[4, 'A0']}
<MI 23fce MOVE.L (A6+0xc),D5> {[4, 'A0']}
<MI 23fd0 ADD.L D6,D5> {[4, 'A0']}
<MI 23fd2 MOVE.W (A0),D0> {[4, 'A0']}
<MI 23fd4 EXTW.L D0> {[4, 'A0']}
<MI 23fd6 CMP.L D6,D0> {[4, 'A0']}
<MI 23fd8 BEQ 0x23fe6> {[4, 'A0']}
<POP 23fda-23fe6 Naked> Σ-4 ↓
<MI 23fda MOVE.L D5,-(A7)> Δ-4 {[-4-]|[4, 'D5']}
<MI 23fdc MOVE.L D6,-(A7)> Δ-4 {[-4-]|[4, 'D5']|[4, 'D6']}
<MI 23fde SUB.L D0,(A7)> {[-4-]|[4, 'D5']|[-4-]}
<Call 0x23fe0 0x21660> {[-4-]|[4, 'D5']|[-4-]}
<POP 23fe4-23fe6 StackAdj> Δ+8 {[-4-]}
<POP 23fe6-23fea Naked> Σ-4 Δ-4 ↓ ←0x23fc0
<MI 23fe6 MOVE.L D0,-(A7)> Δ-4 {[-4-]|[4, 'D0']}
<MI 23fe8 MOVEQ.L #0x01,D7> {[-4-]|[4, 'D0']}
<POP 23fea-23fee Naked> Σ-8 ↓ →0x24022 ←0x23fee
<MI 23fea CMP.L (A7),D7> {[-8-]}
<MI 23fec BGT 0x24022> {[-8-]}
<POP 23fee-24022 Naked> Σ-8 ↓ →0x23fea
<MI 23fee MOVE.L (A6+0xc),D0> {[-8-]}
<MI 23ff0 ADD.L D7,D0> {[-8-]}
<MI 23ff2 SUBQ.L #0x1,D0> {[-8-]}
<MI 23ff4 SUBQ.L #0x1,D0> {[-8-]}
<POP 0x23ff6 LimitCheck 0x0 ≤ D0 ≤ 0x1fff> {[-8-]}
<MI 24000 LEA.L 0x26c16,A0> {[-8-]}
<MI 24006 MOVE.L D7,D1> {[-8-]}
<MI 24008 SUBQ.L #0x1,D1> {[-8-]}
<POP 0x2400a LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-8-]}
<MI 24014 MOVEA.L (A7+0x4),A1> {[-8-]}
<MI 24018 MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x8)> {[-8-]}
<MI 2401e ADDQ.L #0x1,D7> {[-8-]}
<MI 24020 BVC 0x23fea> {[-8-]}
<POP 24022-24024 Naked> Σ-8 Δ+8 ↓ ←0x23fea
<POP 24022-24024 StackAdj> Δ+8 {}
<POP 24024-2402c Epilogue> Σ0
@ 2402c
<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 2402c-24274 Body> Δ+56
<POP 2402c-24042 Prologue> Σ0 ↓
<POP 24042-24054 RegCacheLoad> Σ0 ↓
<POP 24054-24078 Naked> Σ0 ↓
<MI 24054 MOVE.L 0x28c1e,(A6-0x28)> {}
<Pointer.fp 0x2405c <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-8]}
<Call 0x2405e 0x102b8> {[@@-8]}
NewString(VAR a : String)
<POP 24064-24066 StackAdj> Δ+4 {}
<Pointer.fp 0x24066 <LVAR -0x00c @ 4(r)>> Δ-4 {[@@-12]}
<Pointer.fp 0x2406a <LVAR -0x014 @ 4(r)>> Δ-4 {[@@-12]|[@@-20]}
<Call 0x2406c 0x23e6c> {[@@-12]|[@@-20]}
<POP 24070-24072 StackAdj> Δ+8 {}
<MI 24072 CLR.L (A6-0x34)> {}
<MI 24076 MOVEQ.L #0x00,D7> {}
<POP 24078-2408c Naked> Σ0 →0x240b6 →0x240c0 →0x240d4 →0x240f0 →0x240f4 →0x24102 →0x24116 →0x2411c →0x2411e →0x24134 →0x24142 →0x2415a →0x2416e →0x24182 →0x24198 →0x2419a →0x241b4 →0x241ca →0x241d8 →0x241da →0x241dc ←0x24250
<MI 24078 MOVE.L (A6-0x34),D0> {}
<POP 0x2407c LimitCheck 0x0 ≤ D0 ≤ 0x14> {}
<MI 24082 ADD.W D0,D0> {}
<MI 24084 SWITCH D0.W> {}
<POP 240b6-240c0 Naked> Σ0 →0x24206 ←0x24078
<MI 240b6 MOVEQ.L #0x00,D6> {}
<MI 240b8 MOVE.L (A6+0x8),D5> {}
<MI 240bc BRA 0x24206> {}
<POP 240c0-240d4 Naked> Σ0 →0x24206 ←0x24078
<POP 240c0-240c2 StackAdj> Δ-4 {[-4-]}
<MI 240c2 MOVE.L (A6-0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x10)']}
<MI 240c6 MOVE.L (A6-0x14),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<Call 0x240c8 0x2394a> {[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<POP 240cc-240ce StackAdj> Δ+8 {[-4-]}
<MI 240ce MOVE.L (A7)+,D6> Δ+4 {}
<MI 240d0 BRA 0x24206> {}
<POP 240d4-240dc Naked> Σ0 Δ-12 ↓ ←0x24078
<MI 240d4 MOVE.L (A6-0x28),-(A7)> Δ-4 {[4, '(A6-0x28)']}
<MI 240d8 MOVE.L D6,-(A7)> Δ-4 {[4, '(A6-0x28)']|[4, 'D6']}
<MI 240da MOVE.L D6,-(A7)> Δ-4 {[4, '(A6-0x28)']|[4, 'D6']|[4, 'D6']}
<POP 240dc-240ec Naked> Σ-12 Δ+12 →0x24262 ←0x240f4
<MI 240dc MOVE.L (A6+0xc),-(A7)> Δ-4 {[-12-]|[4, '(A6+0xc)']}
<Call 0x240e0 0x239c6> {[-12-]|[4, '(A6+0xc)']}
<POP 240e4-240e8 StackAdj> Δ+16 {}
<MI 240e8 BRA 0x24262> {}
<POP 240f0-240f4 Naked> Σ0 →0x24206 ←0x24078
<MI 240f0 BRA 0x24206> {}
<POP 240f4-240fe Naked> Σ0 Δ-12 →0x240dc ←0x24078
<MI 240f4 MOVE.L (A6-0x28),-(A7)> Δ-4 {[4, '(A6-0x28)']}
<MI 240f8 MOVE.L D6,-(A7)> Δ-4 {[4, '(A6-0x28)']|[4, 'D6']}
<MI 240fa MOVE.L D5,-(A7)> Δ-4 {[4, '(A6-0x28)']|[4, 'D6']|[4, 'D5']}
<MI 240fc BRA 0x240dc> {[4, '(A6-0x28)']|[4, 'D6']|[4, 'D5']}
<POP 24102-24116 Naked> Σ0 →0x24206 ←0x24078 ←0x2411c
<POP 24102-24104 StackAdj> Δ-4 {[-4-]}
<MI 24104 MOVE.L (A6-0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x10)']}
<MI 24108 MOVE.L (A6-0x14),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<Call 0x2410a 0x2394a> {[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<POP 2410e-24110 StackAdj> Δ+8 {[-4-]}
<MI 24110 MOVE.L (A7)+,D5> Δ+4 {}
<MI 24112 BRA 0x24206> {}
<POP 24116-2411c Naked> Σ0 →0x24206 ←0x24078
<MI 24116 MOVEQ.L #0x01,D6> {}
<MI 24118 BRA 0x24206> {}
<POP 2411c-2411e Naked> Σ0 →0x24102 ←0x24078
<MI 2411c BRA 0x24102> {}
<POP 2411e-24134 Naked> Σ0 →0x24206 ←0x24078
<POP 2411e-24120 StackAdj> Δ-8 {[-8-]}
<MI 24120 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-8-]|[4, '(A6+0xc)']}
<MI 24124 MOVE.L D6,-(A7)> Δ-4 {[-8-]|[4, '(A6+0xc)']|[4, 'D6']}
<Call 0x24126 0x21d56> {[-8-]|[4, '(A6+0xc)']|[4, 'D6']}
<POP 2412a-2412c StackAdj> Δ+8 {[-8-]}
<MI 2412c MOVE.L (A7)+,(A6-0x24)> Δ+4 {[-4-]}
<MI 2412e MOVE.L (A7)+,(A6-0x20)> Δ+4 {}
<MI 24130 BRA 0x24206> {}
<POP 24134-24142 Naked> Σ0 →0x24206 ←0x24078
<MI 24134 MOVE.L (A6-0x14),(A6-0x1c)> {}
<MI 24138 MOVE.L (A6-0x10),(A6-0x18)> {}
<MI 2413e BRA 0x24206> {}
<POP 24142-24154 Naked> Σ0 Δ-20 ↓ ←0x24078
<MI 24142 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<MI 24144 MOVE.L (A6-0x20),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']}
<MI 24146 MOVE.L (A6-0x24),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']}
<MI 24148 MOVE.L (A6-0x18),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']}
<MI 2414c MOVE.L (A6-0x1c),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<Call 0x24150 0x23c78> {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<POP 24154-2415a Naked> Σ-20 Δ+20 →0x24206 ←0x2415a
<POP 24154-24156 StackAdj> Δ+20 {}
<MI 24156 BRA 0x24206> {}
<POP 2415a-2416e Naked> Σ0 Δ-20 →0x24154 ←0x24078
<MI 2415a MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<MI 2415c MOVE.L (A6-0x20),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']}
<MI 2415e MOVE.L (A6-0x24),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']}
<MI 24160 MOVE.L (A6-0x18),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']}
<MI 24164 MOVE.L (A6-0x1c),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<Call 0x24168 0x23be4> {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<MI 2416c BRA 0x24154> {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<POP 2416e-24178 Naked> Σ0 Δ-12 ↓ ←0x24078
<MI 2416e MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<MI 24170 MOVE.L (A6-0x20),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']}
<MI 24172 MOVE.L (A6-0x24),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']}
<Call 0x24174 0x23d2e> {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']}
<POP 24178-2417c Naked> Σ-12 Δ+12 ↓ ←0x241b4
<POP 24178-2417c StackAdj> Δ+12 {}
<POP 2417c-24182 Naked> Σ0 →0x24206 ←0x24182 ←0x24198 ←0x241da
<MI 2417c MOVEQ.L #0x01,D7> {}
<MI 2417e BRA 0x24206> {}
<POP 24182-24198 Naked> Σ0 →0x2417c ←0x24078
<MI 24182 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<MI 24184 MOVE.L (A6-0x20),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']}
<MI 24186 MOVE.L (A6-0x24),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']}
<MI 24188 MOVE.L (A6-0x18),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']}
<MI 2418c MOVE.L (A6-0x1c),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<Call 0x24190 0x23be4> {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<POP 24194-24196 StackAdj> Δ+20 {}
<MI 24196 BRA 0x2417c> {}
<POP 24198-2419a Naked> Σ0 →0x2417c ←0x24078
<MI 24198 BRA 0x2417c> {}
<POP 2419a-241ae Naked> Σ0 Δ-12 ↓ ←0x24078
<MI 2419a MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<POP 2419c-2419e StackAdj> Δ-8 {[4, '(A6-0x8)']|[-8-]}
<MI 2419e MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6-0x8)']|[-8-]|[4, '(A6+0xc)']}
<MI 241a2 MOVE.L D6,-(A7)> Δ-4 {[4, '(A6-0x8)']|[-8-]|[4, '(A6+0xc)']|[4, 'D6']}
<Call 0x241a4 0x21d56> {[4, '(A6-0x8)']|[-8-]|[4, '(A6+0xc)']|[4, 'D6']}
<POP 241a8-241aa StackAdj> Δ+8 {[4, '(A6-0x8)']|[-8-]}
<Call 0x241aa 0x23d2e> {[4, '(A6-0x8)']|[-8-]}
<POP 241ae-241b4 Naked> Σ-12 Δ+12 →0x24206 ←0x241ca
<POP 241ae-241b2 StackAdj> Δ+12 {}
<MI 241b2 BRA 0x24206> {}
<POP 241b4-241ca Naked> Σ0 Δ-12 →0x24178 ←0x24078
<MI 241b4 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<POP 241b6-241b8 StackAdj> Δ-8 {[4, '(A6-0x8)']|[-8-]}
<MI 241b8 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6-0x8)']|[-8-]|[4, '(A6+0xc)']}
<MI 241bc MOVE.L D6,-(A7)> Δ-4 {[4, '(A6-0x8)']|[-8-]|[4, '(A6+0xc)']|[4, 'D6']}
<Call 0x241be 0x21d56> {[4, '(A6-0x8)']|[-8-]|[4, '(A6+0xc)']|[4, 'D6']}
<POP 241c2-241c4 StackAdj> Δ+8 {[4, '(A6-0x8)']|[-8-]}
<Call 0x241c4 0x23db4> {[4, '(A6-0x8)']|[-8-]}
<MI 241c8 BRA 0x24178> {[4, '(A6-0x8)']|[-8-]}
<POP 241ca-241d8 Naked> Σ0 Δ-12 →0x241ae ←0x24078
<MI 241ca MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<MI 241cc MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x10)']}
<MI 241d0 MOVE.L (A6-0x14),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<Call 0x241d2 0x23e24> {[4, '(A6-0x8)']|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<MI 241d6 BRA 0x241ae> {[4, '(A6-0x8)']|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<POP 241d8-241da Naked> Σ0 →0x24206 ←0x24078
<MI 241d8 BRA 0x24206> {}
<POP 241da-241dc Naked> Σ0 →0x2417c ←0x24078
<MI 241da BRA 0x2417c> {}
<POP 241dc-24206 Naked> Σ0 ↓ ←0x24078
<Blob 0x241dc [24] @> Δ-24 {[«24""»]}
<POP 241e8-241ea StackAdj> Δ-4 {[«24""»]|[-4-]}
<Lit 0x241ea 24> {[«24""»]|[$$Illegal argument marker.]}
<Call 0x241fe 0x2110c> {[«24""»]|[$$Illegal argument marker.]}
<POP 24202-24206 StackAdj> Δ+28 {}
<POP 24206-2420a Naked> Σ0 ↓ →0x24250 ←0x240b6 ←0x240c0 ←0x240f0 ←0x24102 ←0x24116 ←0x2411e ←0x24134 ←0x24154 ←0x2417c ←0x241ae ←0x241d8
<MI 24206 TST.B D7> {}
<MI 24208 BNE 0x24250> {}
<POP 2420a-24250 Naked> Σ0 ↓
<Pointer.fp 0x2420a <LVAR -0x00c @ 4(r)>> Δ-4 {[@@-12]}
<Pointer.fp 0x2420e <LVAR -0x014 @ 4(r)>> Δ-4 {[@@-12]|[@@-20]}
<Call 0x24210 0x23e6c> {[@@-12]|[@@-20]}
<POP 24214-24216 StackAdj> Δ+8 {}
<MI 24216 MOVE.L (A6-0x34),D0> {}
<POP 0x2421a LimitCheck 0x0 ≤ D0 ≤ 0x13> {}
<MI 24224 MOVE.L D0,D4> {}
<MI 24226 MOVEQ.L #0x07,D3> {}
<Call 0x24228 0x1028c> {}
?muls_d3_d4
<MI 2422e LEA.L 0x2103e,A0> {}
<MI 24232 MOVE.L (A6-0xc),D0> {}
<POP 0x24236 LimitCheck 0x0 ≤ D0 ≤ 0x6> {}
<MI 24240 LEA.L (A0+D4.L),A0> {}
<MI 24244 MOVE.B (A0+D0.L),D1> {}
<MI 24248 EXTB.W D1> {}
<MI 2424a EXTW.L D1> {}
<MI 2424c MOVE.L D1,(A6-0x34)> {}
<POP 24250-24256 Naked> Σ0 ↓ →0x24078 ←0x24206
<MI 24250 TST.B D7> {}
<MI 24252 BEQ 0x24078> {}
<POP 24256-24262 Naked> Σ0 ↓
<MI 24256 MOVE.L (A6-0x28),-(A7)> Δ-4 {[4, '(A6-0x28)']}
<MI 2425a MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x28)']|[4, '(A6-0x8)']}
<Call 0x2425c 0x23fa6> {[4, '(A6-0x28)']|[4, '(A6-0x8)']}
<POP 24260-24262 StackAdj> Δ+8 {}
<POP 24262-2426c Naked> Σ0 ↓ ←0x240dc
<Pointer.fp 0x24262 <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-8]}
<Call 0x24264 0x102bc> {[@@-8]}
FreeString(VAR a : String)
<POP 2426a-2426c StackAdj> Δ+4 {}
<POP 2426c-24274 Epilogue> Σ0
@ 24274
<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 24274-2436c Body> Δ-12
<POP 24274-2428a Prologue> Σ0 ↓
<POP 2428a-2429c RegCacheLoad> Σ0 ↓
<POP 2429c-242c4 Naked> Σ0 Δ-4 ↓
<MI 2429c CLR.L (A6+0x14)> {}
<POP 242a0-242a2 StackAdj> Δ-4 {[-4-]}
<MI 242a2 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x10)']}
<MI 242a4 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<Call 0x242a6 0x21d1e> {[-4-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<POP 242aa-242ac StackAdj> Δ+8 {[-4-]}
<MI 242ac MOVE.L (A7)+,(A6-0xc)> Δ+4 {}
<MI 242ae MOVEA.L (A6+0x8),A0> {}
<MI 242b2 MOVE.W (A0),D0> {}
<MI 242b4 EXTW.L D0> {}
<MI 242b6 ADDQ.L #0x1,D0> {}
<MI 242b8 MOVE.L D0,(A6-0x8)> {}
<MI 242ba NEG.L D0> {}
<MI 242bc ADD.L (A6-0xc),D0> {}
<MI 242be ADDQ.L #0x1,D0> {}
<MI 242c0 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 242c2 MOVEQ.L #0x01,D0> {[4, 'D0']}
<POP 242c4-242ca Naked> Σ-4 ↓ →0x24362 ←0x2435a
<MI 242c4 CMP.L (A7),D0> {[-4-]}
<MI 242c6 BGT 0x24362> {[-4-]}
<POP 242ca-242d6 Naked> Σ-4 Δ-8 ↓
<MI 242ca MOVE.L D0,(A6-0x18)> {[-4-]}
<MI 242ce MOVE.L D0,-(A7)> Δ-4 {[-4-]|[4, 'D0']}
<MI 242d0 MOVEQ.L #0x00,D6> {[-4-]|[4, 'D0']}
<MI 242d2 MOVE.L (A6-0x8),-(A7)> Δ-4 {[-4-]|[4, 'D0']|[4, '(A6-0x8)']}
<MI 242d4 MOVEQ.L #0x01,D5> {[-4-]|[4, 'D0']|[4, '(A6-0x8)']}
<POP 242d6-242da Naked> Σ-12 ↓ →0x24322 ←0x2431c
<MI 242d6 CMP.L (A7),D5> {[-12-]}
<MI 242d8 BGT 0x24322> {[-12-]}
<POP 242da-242e2 Naked> Σ-12 ↓ →0x242e6
<MI 242da CMPI.L #0x00000001,D5> {[-12-]}
<MI 242e0 BNE 0x242e6> {[-12-]}
<POP 242e2-242e6 Naked> Σ-12 →0x242fe
<MI 242e2 MOVEQ.L #0x2f,D7> {[-12-]}
<MI 242e4 BRA 0x242fe> {[-12-]}
<POP 242e6-242fe Naked> Σ-12 ↓ ←0x242da
<MI 242e6 MOVEA.L (A6+0x8),A0> {[-12-]}
<MI 242ea MOVE.L D5,D0> {[-12-]}
<MI 242ec SUBQ.L #0x1,D0> {[-12-]}
<MI 242ee SUBQ.L #0x1,D0> {[-12-]}
<POP 0x242f0 LimitCheck 0x0 ≤ D0 ≤ 0x7d> {[-12-]}
<MI 242fa MOVE.B (A0+D0.L+#0x2),D7> {[-12-]}
<POP 242fe-24318 Naked> Σ-12 ↓ →0x2431c ←0x242e2
<POP 242fe-24300 StackAdj> Δ-2 {[-14-]}
<MI 24300 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-14-]|[4, '(A6+0x10)']}
<MI 24302 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-14-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<MI 24304 MOVE.L (A7+0xe),D0> {[-14-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<MI 24308 ADD.L D5,D0> {[-14-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<MI 2430a SUBQ.L #0x1,D0> {[-14-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<MI 2430c MOVE.L D0,-(A7)> Δ-4 {[-14-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, 'D0']}
<Call 0x2430e 0x2390a> {[-14-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, 'D0']}
<POP 24312-24314 StackAdj> Δ+12 {[-14-]}
<MI 24314 CMP.B (A7)+,D7> Δ+2 {[-12-]}
<MI 24316 BEQ 0x2431c> {[-12-]}
<POP 24318-2431c Naked> Σ-12 Δ+4 →0x24324
<POP 24318-2431a StackAdj> Δ+4 {[-8-]}
<MI 2431a BRA 0x24324> {[-8-]}
<POP 2431c-24322 Naked> Σ-12 ↓ →0x242d6 ←0x242fe
<MI 2431c MOVE.L D5,D6> {[-12-]}
<MI 2431e ADDQ.L #0x1,D5> {[-12-]}
<MI 24320 BVC 0x242d6> {[-12-]}
<POP 24322-24324 Naked> Σ-12 Δ+4 ↓ ←0x242d6
<POP 24322-24324 StackAdj> Δ+4 {[-8-]}
<POP 24324-24328 Naked> Σ-8 ↓ →0x2435a ←0x24318
<MI 24324 CMP.L (A6-0x8),D6> {[-8-]}
<MI 24326 BNE 0x2435a> {[-8-]}
<POP 24328-24332 Naked> Σ-8 ↓ →0x24358
<MI 24328 MOVE.L (A7),D0> {[-8-]}
<MI 2432a MOVE.L D0,D1> {[-8-]}
<MI 2432c ADD.L (A6-0x8),D1> {[-8-]}
<MI 2432e CMP.L (A6-0xc),D1> {[-8-]}
<MI 24330 BGE 0x24358> {[-8-]}
<POP 24332-24348 Naked> Σ-8 ↓ →0x2434e
<POP 24332-24334 StackAdj> Δ-2 {[-10-]}
<MI 24334 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x10)']}
<MI 24336 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<MI 24338 MOVE.L D1,-(A7)> Δ-4 {[-10-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, 'D1']}
<Call 0x2433a 0x2390a> {[-10-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, 'D1']}
<POP 2433e-24340 StackAdj> Δ+12 {[-10-]}
<MI 24340 MOVE.B (A7)+,D7> Δ+2 {[-8-]}
<MI 24342 CMPI.B #0x2f,D7> {[-8-]}
<MI 24346 BEQ 0x2434e> {[-8-]}
<POP 24348-2434e Naked> Σ-8 ↓ →0x24356
<MI 24348 CMPI.B #0x3d,D7> {[-8-]}
<MI 2434c BNE 0x24356> {[-8-]}
<POP 2434e-24356 Naked> Σ-8 Δ+8 →0x24364 ←0x24332 ←0x24358
<MI 2434e MOVE.L D0,(A6+0x14)> {[-8-]}
<POP 24352-24354 StackAdj> Δ+8 {}
<MI 24354 BRA 0x24364> {}
<POP 24356-24358 Naked> Σ-8 →0x2435a ←0x24348
<MI 24356 BRA 0x2435a> {[-8-]}
<POP 24358-2435a Naked> Σ-8 →0x2434e ←0x24328
<MI 24358 BRA 0x2434e> {[-8-]}
<POP 2435a-24362 Naked> Σ-8 Δ+4 ↓ →0x242c4 ←0x24324 ←0x24356
<MI 2435a MOVE.L (A7)+,D0> Δ+4 {[-4-]}
<MI 2435c ADDQ.L #0x1,D0> {[-4-]}
<MI 2435e BVC 0x242c4> {[-4-]}
<POP 24362-24364 Naked> Σ-4 Δ+4 ↓ ←0x242c4
<POP 24362-24364 StackAdj> Δ+4 {}
<POP 24364-2436c Epilogue> Σ0 ←0x2434e
@ 2436c
<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 2436c-24454 Body> Δ-12
<POP 2436c-24382 Prologue> Σ0 ↓
<POP 24382-24392 RegCacheLoad> Σ0 ↓
<POP 24392-243b8 Naked> Σ0 ↓ →0x2444c
<MI 24392 MOVEA.L (A6+0x8),A0> {}
<MI 24396 CLR.B (A0)> {}
<MI 24398 MOVEA.L (A6+0xc),A1> {}
<MI 2439c MOVE.L #0x01,(A1)> {}
<POP 2439e-243a0 StackAdj> Δ-8 {[-8-]}
<MI 243a0 MOVE.L (A6+0x18),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x18)']}
<MI 243a4 MOVE.L (A6+0x14),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x18)']|[4, '(A6+0x14)']}
<Call 0x243a8 0x21d56> {[-8-]|[4, '(A6+0x18)']|[4, '(A6+0x14)']}
<POP 243ac-243ae StackAdj> Δ+8 {[-8-]}
<MI 243ae MOVE.L (A7)+,(A6-0x1c)> Δ+4 {[-4-]}
<MI 243b0 MOVE.L (A7)+,(A6-0x18)> Δ+4 {}
<MI 243b2 TST.L (A6-0x1c)> {}
<MI 243b4 BEQ 0x2444c> {}
<POP 243b8-243ce Naked> Σ0 ↓ →0x2444c
<POP 243b8-243ba StackAdj> Δ-4 {[-4-]}
<MI 243ba MOVE.L (A6-0x18),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x18)']}
<MI 243bc MOVE.L (A6-0x1c),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<MI 243be MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, '(A6+0x10)']}
<Call 0x243c2 0x24274> {[-4-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, '(A6+0x10)']}
<POP 243c6-243c8 StackAdj> Δ+12 {[-4-]}
<MI 243c8 MOVE.L (A7)+,(A6-0x14)> Δ+4 {}
<MI 243cc BEQ 0x2444c> {}
<POP 243ce-243ee Naked> Σ0 Δ-4 ↓
<MI 243ce MOVE.B #0x01,(A0)> {}
<MI 243d0 PEA.L (A1)> Δ-4 {[4, '^(A1)']}
<Call 0x243d2 0x102b8> {[4, '^(A1)']}
NewString(VAR a : String)
<MI 243d8 MOVE.L (A6-0x18),-(A7)> Δ-4 {[4, '^(A1)']|[4, '(A6-0x18)']}
<MI 243da MOVE.L (A6-0x1c),-(A7)> Δ-4 {[4, '^(A1)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<Call 0x243dc 0x21d1e> {[4, '^(A1)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<POP 243e0-243e2 StackAdj> Δ+8 {[4, '^(A1)']}
<MI 243e2 MOVE.L (A7)+,(A6-0x8)> Δ+4 {}
<MI 243e4 MOVE.L (A6-0x14),D0> {}
<MI 243e8 ADDQ.L #0x1,D0> {}
<MI 243ea MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<MI 243ec MOVE.L D0,D5> {[4, '(A6-0x8)']}
<POP 243ee-243f2 Naked> Σ-4 ↓ →0x2444a ←0x24446
<MI 243ee CMP.L (A7),D5> {[-4-]}
<MI 243f0 BGT 0x2444a> {[-4-]}
<POP 243f2-24408 Naked> Σ-4 ↓ →0x24446
<POP 243f2-243f4 StackAdj> Δ-2 {[-6-]}
<MI 243f4 MOVE.L (A6-0x18),-(A7)> Δ-4 {[-6-]|[4, '(A6-0x18)']}
<MI 243f6 MOVE.L (A6-0x1c),-(A7)> Δ-4 {[-6-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<MI 243f8 MOVE.L D5,-(A7)> Δ-4 {[-6-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, 'D5']}
<Call 0x243fa 0x2390a> {[-6-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, 'D5']}
<POP 243fe-24400 StackAdj> Δ+12 {[-6-]}
<MI 24400 MOVE.B (A7)+,D0> Δ+2 {[-4-]}
<MI 24402 CMPI.B #0x3d,D0> {[-4-]}
<MI 24406 BNE 0x24446> {[-4-]}
<POP 24408-24410 Naked> Σ-4 Δ-4 ↓
<MI 24408 MOVE.L D5,D0> {[-4-]}
<MI 2440a ADDQ.L #0x1,D0> {[-4-]}
<MI 2440c MOVE.L (A6-0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x8)']}
<MI 2440e MOVE.L D0,D7> {[-4-]|[4, '(A6-0x8)']}
<POP 24410-24414 Naked> Σ-8 ↓ →0x24442 ←0x2442e
<MI 24410 CMP.L (A7),D7> {[-8-]}
<MI 24412 BGT 0x24442> {[-8-]}
<POP 24414-2442a Naked> Σ-8 ↓ →0x2442e
<POP 24414-24416 StackAdj> Δ-2 {[-10-]}
<MI 24416 MOVE.L (A6-0x18),-(A7)> Δ-4 {[-10-]|[4, '(A6-0x18)']}
<MI 24418 MOVE.L (A6-0x1c),-(A7)> Δ-4 {[-10-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<MI 2441a MOVE.L D7,-(A7)> Δ-4 {[-10-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, 'D7']}
<Call 0x2441c 0x2390a> {[-10-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, 'D7']}
<POP 24420-24422 StackAdj> Δ+12 {[-10-]}
<MI 24422 MOVE.B (A7)+,D6> Δ+2 {[-8-]}
<MI 24424 CMPI.B #0x2f,D6> {[-8-]}
<MI 24428 BNE 0x2442e> {[-8-]}
<POP 2442a-2442e Naked> Σ-8 Δ+8 →0x2444c
<POP 2442a-2442c StackAdj> Δ+8 {}
<MI 2442c BRA 0x2444c> {}
<POP 2442e-24442 Naked> Σ-8 ↓ →0x24410 ←0x24414
<MI 2442e MOVEA.L (A6+0xc),A0> {[-8-]}
<MI 24432 MOVE.L (A0),-(A7)> Δ-4 {[-8-]|[4, '(A0)']}
<MI 24434 MOVE.B D6,-(A7)> Δ-2 {[-8-]|[4, '(A0)']|[2, 'D6']}
<Call 0x24436 0x102c0> {[-8-]|[4, '(A0)']|[2, 'D6']}
AppendChar(MOD b : String; a : char)
<POP 2443c-2443e StackAdj> Δ+6 {[-8-]}
<MI 2443e ADDQ.L #0x1,D7> {[-8-]}
<MI 24440 BVC 0x24410> {[-8-]}
<POP 24442-24446 Naked> Σ-8 Δ+8 →0x2444c ←0x24410
<POP 24442-24444 StackAdj> Δ+8 {}
<MI 24444 BRA 0x2444c> {}
<POP 24446-2444a Naked> Σ-4 ↓ →0x243ee ←0x243f2
<MI 24446 ADDQ.L #0x1,D5> {[-4-]}
<MI 24448 BVC 0x243ee> {[-4-]}
<POP 2444a-2444c Naked> Σ-4 Δ+4 ↓ ←0x243ee
<POP 2444a-2444c StackAdj> Δ+4 {}
<POP 2444c-24454 Epilogue> Σ0 ←0x24392 ←0x243b8 ←0x2442a ←0x24442
@ 24454
<LVAR 0x00c @ 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x010 @ 1(r)>
<POP 24454-244f2 Body>
<POP 24454-2446a Prologue> Σ0 ↓
<POP 2446a-24478 RegCacheLoad> Σ0 ↓
<POP 24478-24490 Naked> Σ0 ↓ →0x244e0
<MI 24478 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<MI 2447a MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Pointer.fp 0x2447c <LVAR -0x010 @ 1(r)>> Δ-4 {[4, '(A6+0xc)']|[4, '(A6+0x8)']|[@@-16]}
<Call 0x24480 0x2099e> {[4, '(A6+0xc)']|[4, '(A6+0x8)']|[@@-16]}
<POP 24486-2448a StackAdj> Δ+12 {}
<MI 2448a TST.B (A6-0x10)> {}
<MI 2448e BNE 0x244e0> {}
<POP 24490-244aa Naked> Σ0 ↓
<MI 24490 MOVE.L 0x28c1e,D7> {}
<POP 24492-24494 StackAdj> Δ-4 {[-4-]}
<MI 24494 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x24496 0x21518> {[-4-]|[4, '(A6+0x8)']}
<POP 2449a-2449c StackAdj> Δ+4 {[-4-]}
<MI 2449c MOVE.L (A7)+,D6> Δ+4 {}
<MI 2449e MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<MI 244a0 MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x244a2 0x237ce> {[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 244a6-244a8 StackAdj> Δ+8 {}
<MI 244a8 MOVE.L 0x28c1e,D5> {}
<POP 244aa-244c8 Naked> Σ0 ↓ →0x244d4 ←0x244d4
<MI 244aa MOVE.L D7,D0> {}
<MI 244ac SUBQ.L #0x1,D0> {}
<POP 0x244ae LimitCheck 0x0 ≤ D0 ≤ 0x1fff> {}
<MI 244b8 LEA.L 0x26c16,A0> {}
<MI 244be MOVE.B (A0+D0.L+#0x8),D0> {}
<MI 244c2 CMPI.B #0x25,D0> {}
<MI 244c6 BNE 0x244d4> {}
<POP 244c8-244d4 Naked> Σ0 ↓
<MI 244c8 MOVE.L D7,0x28c1e> {}
<MI 244ca MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<MI 244cc MOVE.L D6,-(A7)> Δ-4 {[4, '(A6+0x8)']|[4, 'D6']}
<Call 0x244ce 0x2402c> {[4, '(A6+0x8)']|[4, 'D6']}
<POP 244d2-244d4 StackAdj> Δ+8 {}
<POP 244d4-244de Naked> Σ0 ↓ →0x244aa ←0x244aa
<MI 244d4 ADDQ.L #0x1,D7> {}
<MI 244d6 CMP.L 0x28c22,D7> {}
<MI 244dc BLE 0x244aa> {}
<POP 244de-244e0 Naked> Σ0 ↓
<MI 244de MOVE.L D5,0x28c1e> {}
<POP 244e0-244ea Naked> Σ0 ↓ ←0x24478
<Pointer.fp 0x244e0 <LVAR 0x00c @ 4(r)>> Δ-4 {[@@12]}
<Call 0x244e2 0x102bc> {[@@12]}
FreeString(VAR a : String)
<POP 244e8-244ea StackAdj> Δ+4 {}
<POP 244ea-244f2 Epilogue> Σ0
@ 244f2
<LVAR -0x006 @ 4(r)>
<LVAR -0x00a @ 4(rw)>
<LVAR -0x00b 1(w)>
<LVAR -0x00c @ 1(r)>
<POP 244f2-24804 Body> Δ+148
<POP 244f2-24508 Prologue> Σ0 ↓
<POP 24508-24516 RegCacheLoad> Σ0 ↓
<POP 24516-2453c Naked> Σ0 ↓ →0x247e6 ←0x247e6
<MI 24516 MOVE.L 0x28c1e,D7> {}
<Pointer.fp 0x24518 <LVAR -0x006 @ 4(r)>> Δ-4 {[@@-6]}
<Pointer.fp 0x2451a <LVAR -0x00c @ 1(r)>> Δ-4 {[@@-6]|[@@-12]}
<Call 0x2451e 0x2146c> {[@@-6]|[@@-12]}
<POP 24522-24524 StackAdj> Δ+8 {}
<MI 24524 MOVE.L 0x28c1e,D6> {}
<POP 24526-24528 StackAdj> Δ-4 {[-4-]}
<MI 24528 MOVE.L (A6-0x6),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x6)']}
<Call 0x2452a 0x21518> {[-4-]|[4, '(A6-0x6)']}
<POP 2452e-24530 StackAdj> Δ+4 {[-4-]}
<MI 24530 MOVE.L (A7)+,D0> Δ+4 {}
<MI 24532 CMPI.L #0xffffffff,D0> {}
<MI 24538 BEQ 0x247e6> {}
<POP 2453c-24566 Naked> Σ0 ↓ →0x24574
<POP 2453c-2453e StackAdj> Δ-4 {[-4-]}
<MI 2453e MOVE.L (A6-0x6),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x6)']}
<Const 0x24540 0x0.4> Δ-4 {[-4-]|[4, '(A6-0x6)']|[##0]}
<Call 0x24544 0x21e34> {[-4-]|[4, '(A6-0x6)']|[##0]}
<POP 24548-2454a StackAdj> Δ+8 {[-4-]}
<MI 2454a MOVE.L (A7),(A6-0xa)> {[-4-]}
<POP 2454c-2454e StackAdj> Δ+2 {[-2-]}
<MI 2454e MOVE.L (A6-0xa),-(A7)> Δ-4 {[-2-]|[4, '(A6-0xa)']}
<Call 0x24550 0x23716> {[-2-]|[4, '(A6-0xa)']}
<POP 24554-24556 StackAdj> Δ+4 {[-2-]}
<MI 24556 MOVE.B (A7)+,D0> Δ+2 {}
<MI 24558 EXTB.W D0> {}
<POP 0x2455a LimitCheck 0x0 ≤ D0 ≤ 0x2b> {}
<MI 2455e MOVE.B D0,(A6-0xb)> {}
<MI 24562 TST.B D0> {}
<MI 24564 BNE 0x24574> {}
<POP 24566-24574 Naked> Σ0 →0x247de
<MI 24566 MOVE.L (A6-0xa),-(A7)> Δ-4 {[4, '(A6-0xa)']}
<MI 24568 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0xa)']|[4, '(A6-0x6)']}
<Call 0x2456a 0x24454> {[4, '(A6-0xa)']|[4, '(A6-0x6)']}
<POP 2456e-24570 StackAdj> Δ+8 {}
<MI 24570 BRA 0x247de> {}
<POP 24574-245aa Naked> Σ0 ↓ →0x245d6 ←0x2453c
<Pointer.fp 0x24574 <LVAR -0x00a @ 4(rw)>> Δ-4 {[@@-10]}
<Call 0x24576 0x102bc> {[@@-10]}
FreeString(VAR a : String)
<POP 2457c-2457e StackAdj> Δ+4 {}
<MI 2457e MOVE.B D0,D1> {}
<MI 24580 EXTB.W D1> {}
<POP 0x24582 LimitCheck 0x0 ≤ D1 ≤ 0x2b> {}
<MI 24586 LEA.L 0x2100e,A0> {}
<MI 2458a MOVE.W D1,D0> {}
<MI 2458c EXTW.L D0> {}
<MI 2458e MOVE.L D0,D2> {}
<MI 24590 ROR.L #0x1,D2> {}
<MI 24592 ADDA.W D2,A0> {}
<MI 24594 SWAP.W D2> {}
<MI 24596 ROL.W #0x3,D2> {}
<MI 24598 CLR.L D3> {}
<MI 2459a MOVE.B (A0),D3> {}
<MI 2459c LSL.B D2,D3> {}
<MI 2459e LSR.B #0x4,D3> {}
<MI 245a0 MOVE.L D3,D5> {}
<MI 245a2 CMPI.L #0x0000000f,D5> {}
<MI 245a8 BEQ 0x245d6> {}
<POP 245aa-245d6 Naked> Σ0 ↓
<MI 245aa MOVE.L D0,D4> {}
<MI 245ac MOVEQ.L #0x0a,D3> {}
<Call 0x245ae 0x1028c> {}
?muls_d3_d4
<MI 245b4 LEA.L 0x20e40,A0> {}
<Blob 0x245b8 [10] (A0+D4.W)> Δ-10 {[«10»]}
<MI 245ca MOVE.L (A6-0x6),-(A7)> Δ-4 {[«10»]|[4, '(A6-0x6)']}
<MI 245cc MOVE.L D5,-(A7)> Δ-4 {[«10»]|[4, '(A6-0x6)']|[4, 'D5']}
<Call 0x245ce 0x2154e> {[«10»]|[4, '(A6-0x6)']|[4, 'D5']}
<POP 245d2-245d6 StackAdj> Δ+18 {}
<POP 245d6-245ea Naked> Σ0 →0x24640 →0x2464c →0x2465e →0x2466c →0x247d0 →0x24674 →0x24678 →0x24680 →0x24688 →0x24690 →0x24698 →0x246a0 →0x246a8 →0x246b0 →0x246b8 →0x246c0 →0x246ca →0x246d4 →0x246de →0x246e8 →0x246f2 →0x246fc →0x24706 →0x24710 →0x2471a →0x24724 →0x2472e →0x24738 →0x24742 →0x2474c →0x24756 →0x24760 →0x2476a →0x24774 →0x2477e →0x24788 →0x24792 →0x2479c →0x247a2 →0x247ac →0x247b6 →0x247c0 →0x247c6 ←0x24574
<MI 245d6 SUBQ.W #0x1,D1> {}
<POP 0x245d8 LimitCheck 0x0 ≤ D1 ≤ 0x2a> {}
<MI 245e0 ADD.W D1,D1> {}
<MI 245e2 SWITCH D1.W> {}
<POP 24640-24646 Naked> Σ0 Δ-4 ↓ ←0x245d6
<MI 24640 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x24642 0x21fbc> {[4, '(A6-0x6)']}
<POP 24646-2464c Naked> Σ-4 Δ+4 →0x247de ←0x2465e ←0x2466c ←0x24678 ←0x24680 ←0x24688 ←0x24690 ←0x24698 ←0x246a0 ←0x246a8 ←0x246b0 ←0x246b8 ←0x246c0 ←0x246ca ←0x246d4 ←0x246de ←0x246e8 ←0x246f2 ←0x246fc ←0x24706 ←0x24710 ←0x2471a ←0x24724 ←0x2472e ←0x24738 ←0x24742 ←0x2474c ←0x24756 ←0x24760 ←0x2476a ←0x24774 ←0x2477e ←0x24788 ←0x24792 ←0x247a2 ←0x247ac ←0x247b6 ←0x247c6
<POP 24646-24648 StackAdj> Δ+4 {}
<MI 24648 BRA 0x247de> {}
<POP 2464c-2465e Naked> Σ0 →0x247de ←0x245d6
<MI 2464c CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x2464e 0x1.4> Δ-4 {[#0]|[##1]}
<Call 0x24652 0x103b8> {[#0]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 24658-2465a StackAdj> Δ+6 {}
<MI 2465a BRA 0x247de> {}
<POP 2465e-2466c Naked> Σ0 Δ-4 →0x24646 ←0x245d6
<POP 2465e-24660 StackAdj> Δ-4 {[-4-]}
<Call 0x24660 0x102ac> {[-4-]}
FSCALL_102ac
<Call 0x24666 0x21f92> {[-4-]}
<MI 2466a BRA 0x24646> {[-4-]}
<POP 2466c-24674 Naked> Σ0 Δ-4 →0x24646 ←0x245d6
<MI 2466c MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x2466e 0x22196> {[4, '(A6-0x6)']}
<MI 24672 BRA 0x24646> {[4, '(A6-0x6)']}
<POP 24674-24678 Naked> Σ0 →0x247de ←0x245d6
<MI 24674 BRA 0x247de> {}
<POP 24678-24680 Naked> Σ0 Δ-4 →0x24646 ←0x245d6
<MI 24678 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x2467a 0x224bc> {[4, '(A6-0x6)']}
<MI 2467e BRA 0x24646> {[4, '(A6-0x6)']}
<POP 24680-24688 Naked> Σ0 Δ-4 →0x24646 ←0x245d6
<MI 24680 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x24682 0x22628> {[4, '(A6-0x6)']}
<MI 24686 BRA 0x24646> {[4, '(A6-0x6)']}
<POP 24688-24690 Naked> Σ0 Δ-4 →0x24646 ←0x245d6
<MI 24688 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x2468a 0x22716> {[4, '(A6-0x6)']}
<MI 2468e BRA 0x24646> {[4, '(A6-0x6)']}
<POP 24690-24698 Naked> Σ0 Δ-4 →0x24646 ←0x245d6
<MI 24690 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x24692 0x22b0a> {[4, '(A6-0x6)']}
<MI 24696 BRA 0x24646> {[4, '(A6-0x6)']}
<POP 24698-246a0 Naked> Σ0 Δ-4 →0x24646 ←0x245d6
<MI 24698 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x2469a 0x22b82> {[4, '(A6-0x6)']}
<MI 2469e BRA 0x24646> {[4, '(A6-0x6)']}
<POP 246a0-246a8 Naked> Σ0 Δ-4 →0x24646 ←0x245d6
<MI 246a0 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x246a2 0x22bfa> {[4, '(A6-0x6)']}
<MI 246a6 BRA 0x24646> {[4, '(A6-0x6)']}
<POP 246a8-246b0 Naked> Σ0 Δ-4 →0x24646 ←0x245d6
<MI 246a8 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x246aa 0x22c26> {[4, '(A6-0x6)']}
<MI 246ae BRA 0x24646> {[4, '(A6-0x6)']}
<POP 246b0-246b8 Naked> Σ0 Δ-4 →0x24646 ←0x245d6
<MI 246b0 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x246b2 0x22d26> {[4, '(A6-0x6)']}
<MI 246b6 BRA 0x24646> {[4, '(A6-0x6)']}
<POP 246b8-246c0 Naked> Σ0 Δ-4 →0x24646 ←0x245d6
<MI 246b8 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x246ba 0x22e0c> {[4, '(A6-0x6)']}
<MI 246be BRA 0x24646> {[4, '(A6-0x6)']}
<POP 246c0-246ca Naked> Σ0 Δ-4 →0x24646 ←0x245d6
<MI 246c0 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x246c2 0x22e38> {[4, '(A6-0x6)']}
<MI 246c6 BRA 0x24646> {[4, '(A6-0x6)']}
<POP 246ca-246d4 Naked> Σ0 Δ-4 →0x24646 ←0x245d6
<MI 246ca MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x246cc 0x22e84> {[4, '(A6-0x6)']}
<MI 246d0 BRA 0x24646> {[4, '(A6-0x6)']}
<POP 246d4-246de Naked> Σ0 Δ-4 →0x24646 ←0x245d6
<MI 246d4 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x246d6 0x22ed0> {[4, '(A6-0x6)']}
<MI 246da BRA 0x24646> {[4, '(A6-0x6)']}
<POP 246de-246e8 Naked> Σ0 Δ-4 →0x24646 ←0x245d6
<MI 246de MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x246e0 0x22f1c> {[4, '(A6-0x6)']}
<MI 246e4 BRA 0x24646> {[4, '(A6-0x6)']}
<POP 246e8-246f2 Naked> Σ0 Δ-4 →0x24646 ←0x245d6
<MI 246e8 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x246ea 0x22f68> {[4, '(A6-0x6)']}
<MI 246ee BRA 0x24646> {[4, '(A6-0x6)']}
<POP 246f2-246fc Naked> Σ0 Δ-4 →0x24646 ←0x245d6
<MI 246f2 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x246f4 0x22fb4> {[4, '(A6-0x6)']}
<MI 246f8 BRA 0x24646> {[4, '(A6-0x6)']}
<POP 246fc-24706 Naked> Σ0 Δ-4 →0x24646 ←0x245d6
<MI 246fc MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x246fe 0x23000> {[4, '(A6-0x6)']}
<MI 24702 BRA 0x24646> {[4, '(A6-0x6)']}
<POP 24706-24710 Naked> Σ0 Δ-4 →0x24646 ←0x245d6
<MI 24706 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x24708 0x2304a> {[4, '(A6-0x6)']}
<MI 2470c BRA 0x24646> {[4, '(A6-0x6)']}
<POP 24710-2471a Naked> Σ0 Δ-4 →0x24646 ←0x245d6
<MI 24710 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x24712 0x23094> {[4, '(A6-0x6)']}
<MI 24716 BRA 0x24646> {[4, '(A6-0x6)']}
<POP 2471a-24724 Naked> Σ0 Δ-4 →0x24646 ←0x245d6
<MI 2471a MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x2471c 0x230de> {[4, '(A6-0x6)']}
<MI 24720 BRA 0x24646> {[4, '(A6-0x6)']}
<POP 24724-2472e Naked> Σ0 Δ-4 →0x24646 ←0x245d6
<MI 24724 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x24726 0x23128> {[4, '(A6-0x6)']}
<MI 2472a BRA 0x24646> {[4, '(A6-0x6)']}
<POP 2472e-24738 Naked> Σ0 Δ-4 →0x24646 ←0x245d6
<MI 2472e MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x24730 0x23172> {[4, '(A6-0x6)']}
<MI 24734 BRA 0x24646> {[4, '(A6-0x6)']}
<POP 24738-24742 Naked> Σ0 Δ-4 →0x24646 ←0x245d6
<MI 24738 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x2473a 0x231bc> {[4, '(A6-0x6)']}
<MI 2473e BRA 0x24646> {[4, '(A6-0x6)']}
<POP 24742-2474c Naked> Σ0 Δ-4 →0x24646 ←0x245d6
<MI 24742 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x24744 0x23206> {[4, '(A6-0x6)']}
<MI 24748 BRA 0x24646> {[4, '(A6-0x6)']}
<POP 2474c-24756 Naked> Σ0 Δ-4 →0x24646 ←0x245d6
<MI 2474c MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x2474e 0x23250> {[4, '(A6-0x6)']}
<MI 24752 BRA 0x24646> {[4, '(A6-0x6)']}
<POP 24756-24760 Naked> Σ0 Δ-4 →0x24646 ←0x245d6
<MI 24756 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x24758 0x23294> {[4, '(A6-0x6)']}
<MI 2475c BRA 0x24646> {[4, '(A6-0x6)']}
<POP 24760-2476a Naked> Σ0 Δ-4 →0x24646 ←0x245d6
<MI 24760 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x24762 0x232da> {[4, '(A6-0x6)']}
<MI 24766 BRA 0x24646> {[4, '(A6-0x6)']}
<POP 2476a-24774 Naked> Σ0 Δ-4 →0x24646 ←0x245d6
<MI 2476a MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x2476c 0x23310> {[4, '(A6-0x6)']}
<MI 24770 BRA 0x24646> {[4, '(A6-0x6)']}
<POP 24774-2477e Naked> Σ0 Δ-4 →0x24646 ←0x245d6
<MI 24774 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x24776 0x233a0> {[4, '(A6-0x6)']}
<MI 2477a BRA 0x24646> {[4, '(A6-0x6)']}
<POP 2477e-24788 Naked> Σ0 Δ-4 →0x24646 ←0x245d6
<MI 2477e MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x24780 0x23412> {[4, '(A6-0x6)']}
<MI 24784 BRA 0x24646> {[4, '(A6-0x6)']}
<POP 24788-24792 Naked> Σ0 Δ-4 →0x24646 ←0x245d6
<MI 24788 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x2478a 0x22778> {[4, '(A6-0x6)']}
<MI 2478e BRA 0x24646> {[4, '(A6-0x6)']}
<POP 24792-2479c Naked> Σ0 Δ-4 →0x24646 ←0x245d6
<MI 24792 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x24794 0x227e2> {[4, '(A6-0x6)']}
<MI 24798 BRA 0x24646> {[4, '(A6-0x6)']}
<POP 2479c-247a2 Naked> Σ0 →0x247de ←0x245d6
<Call 0x2479c 0x227b4> {}
<MI 247a0 BRA 0x247de> {}
<POP 247a2-247ac Naked> Σ0 Δ-4 →0x24646 ←0x245d6
<MI 247a2 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x247a4 0x23484> {[4, '(A6-0x6)']}
<MI 247a8 BRA 0x24646> {[4, '(A6-0x6)']}
<POP 247ac-247b6 Naked> Σ0 Δ-4 →0x24646 ←0x245d6
<MI 247ac MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x247ae 0x23506> {[4, '(A6-0x6)']}
<MI 247b2 BRA 0x24646> {[4, '(A6-0x6)']}
<POP 247b6-247c0 Naked> Σ0 Δ-4 →0x24646 ←0x245d6
<MI 247b6 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x247b8 0x23586> {[4, '(A6-0x6)']}
<MI 247bc BRA 0x24646> {[4, '(A6-0x6)']}
<POP 247c0-247c6 Naked> Σ0 →0x247de ←0x245d6
<Call 0x247c0 0x2364a> {}
<MI 247c4 BRA 0x247de> {}
<POP 247c6-247d0 Naked> Σ0 Δ-4 →0x24646 ←0x245d6
<MI 247c6 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x247c8 0x2366a> {[4, '(A6-0x6)']}
<MI 247cc BRA 0x24646> {[4, '(A6-0x6)']}
<POP 247d0-247de Naked> Σ0 ←0x245d6
<POP 247d0-247de Bailout> {}
<MI 247d0 MOVEA.L (A5+0x8),A7>
<MI 247d4 MOVEA.W #0x0,A6>
<MI 247d8 JMP 0x249e8>
<POP 247de-247e6 Naked> Σ0 ↓ ←0x24566 ←0x24646 ←0x2464c ←0x24674 ←0x2479c ←0x247c0
<MI 247de MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x247e0 0x210ca> {[4, '(A6-0x6)']}
<POP 247e4-247e6 StackAdj> Δ+4 {}
<POP 247e6-247fc Naked> Σ0 ↓ →0x24516 ←0x24516
<MI 247e6 MOVE.L D6,-(A7)> Δ-4 {[4, 'D6']}
<MI 247e8 MOVE.L D6,-(A7)> Δ-4 {[4, 'D6']|[4, 'D6']}
<MI 247ea SUB.L D7,(A7)> {[4, 'D6']|[-4-]}
<Call 0x247ec 0x21660> {[4, 'D6']|[-4-]}
<POP 247f0-247f2 StackAdj> Δ+8 {}
<MI 247f2 MOVE.L D7,0x28c1e> {}
<MI 247f4 TST.B (A6-0xc)> {}
<MI 247f8 BEQ 0x24516> {}
<POP 247fc-24804 Epilogue> Σ0
@ 24804
START
<POP 24804--0001 Body>
<POP 24804-2480e Prologue> Σ0
<POP 2480e-2483e Naked> Σ0 ↓ →0x248a6
<MI 2480e MOVE.L #0x1,0x28c48> {}
<POP 24818-2481a StackAdj> Δ-4 {[-4-]}
<Call 0x2481a 0x103c4> {[-4-]}
GetArgv() : String
<MI 24820 MOVE.L (A7)+,0x28c4c> Δ+4 {}
<Const 0x24826 0x28c26.4> Δ-4 {[##166950]}
<Call 0x2482c 0x20a14> {[##166950]}
<POP 24832-24834 StackAdj> Δ+4 {}
<MI 24834 MOVEA.L 0x28c4c,A0> {}
<MI 2483a TST.W (A0)> {}
<MI 2483c BLE 0x248a6> {}
<POP 2483e-248a6 Naked> Σ0 →0x248e0
<Blob 0x2483e [8] @> Δ-8 {[«8""»]}
<Blob 0x2484e [8] @> Δ-8 {[«8""»]|[«8""»]}
<POP 2485e-24860 StackAdj> Δ-8 {[«8""»]|[«8""»]|[-8-]}
<Lit 0x24860 7> {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]}
<POP 24872-24874 StackAdj> Δ-4 {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]|[-4-]}
<POP 24874-24875 StackAdj> Δ+4 {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]}
<Blob 0x24875 [4] 0x28c4c> Δ-4 {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]|[«4»]}
<POP 2487a-2487c StackAdj> Δ-4 {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]|[«4»]|[-4-]}
<Lit 0x2487c 7> {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]|[«4»]|[$$][BYE];]}
<Call 0x24890 0x102d4> {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]|[«4»]|[$$][BYE];]}
StringCat3(a, b, c : String) : String
<POP 24896-2489a StackAdj> Δ+12 {[«8""»]|[«8""»]|[-4-]}
<MI 2489a MOVE.L (A7)+,0x28c4c> Δ+4 {[«8""»]|[«8""»]}
<POP 248a0-248a4 StackAdj> Δ+16 {}
<MI 248a4 BRA 0x248e0> {}
<POP 248a6-248e0 Naked> Σ0 ↓ ←0x2480e
<Const 0x248a6 0x28c4c.4> Δ-4 {[##166988]}
<Call 0x248ac 0x102bc> {[##166988]}
FreeString(VAR a : String)
<POP 248b2-248b3 StackAdj> Δ+4 ↓ {}
<Blob 0x248b3 [8] @> Δ-8 {[«8""»]}
<POP 248c2-248c4 StackAdj> Δ-4 {[«8""»]|[-4-]}
<Lit 0x248c4 7> {[«8""»]|[$$[INIT];]}
<MI 248d8 MOVE.L (A7)+,0x28c4c> Δ+4 {[«8""»]}
<POP 248de-248e0 StackAdj> Δ+8 {}
<POP 248e0-248e8 Naked> Σ0 ↓ ←0x2483e
<MI 248e0 MOVE.B #0x01,0x28c56> {}
<POP 248e8-248f0 Naked> Σ0 ↓ →0x248fa ←0x249f6
<MI 248e8 TST.B 0x28c56> {}
<MI 248ee BEQ 0x248fa> {}
<POP 248f0-248fa Naked> Σ0 →0x249a8
<MI 248f0 CLR.B 0x28c56> {}
<MI 248f6 BRA 0x249a8> {}
<POP 248fa-249a8 Naked> Σ0 ↓ ←0x248e8
<Blob 0x248fa [10] 0x28c30> Δ-10 {[«10»]}
<Blob 0x24908 [2] @> Δ-2 {[«10»]|[«2""»]}
<POP 2490c-24910 StackAdj> Δ-12 {[«10»]|[«2""»]|[-12-]}
<Lit 0x24910> {[«10»]|[«2""»]|[-8-]|[$$…]}
<Pointer.sp 0x24910 14> Δ-4
<Const 0x24914 0x1.2> Δ-2
<Const 0x24918 0xa.2> Δ-2
<Call 0x2491c 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 24922-24924 StackAdj> Δ+8
<POP 24922-24924 StackAdj> Δ-4 {[«10»]|[«2""»]|[-8-]|[$$…]|[-4-]}
<Lit 0x24924 2> {[«10»]|[«2""»]|[-8-]|[$$…]|[$$>_]}
<Call 0x24938 0x102d0> {[«10»]|[«2""»]|[-8-]|[$$…]|[$$>_]}
StringCat2(a, b : String) : String
<POP 2493e-24940 StackAdj> Δ+8 {[«10»]|[«2""»]|[-8-]}
<Call 0x24940 0x103e4> {[«10»]|[«2""»]|[-8-]}
AskConsoleString(prompt : String) : String
<POP 24946-24948 StackAdj> Δ+4 {[«10»]|[«2""»]|[-4-]}
<MI 24948 MOVE.L (A7)+,0x28c52> Δ+4 {[«10»]|[«2""»]}
<POP 2494e-24950 StackAdj> Δ+8 {[-4-]}
<POP 24950-24951 StackAdj> Δ+4 {}
<Blob 0x24951 [4] 0x28c52> Δ-4 {[«4»]}
<Call 0x24956 0x21364> {[«4»]}
<POP 2495a-2495c StackAdj> Δ+2 {[-2-]}
<POP 2495c-2495d StackAdj> Δ+2 {}
<Blob 0x2495d [2] @> Δ-2 {[«2""»]}
<Blob 0x24960 [2] @> Δ-2 {[«2""»]|[«2""»]}
<POP 24964-24966 StackAdj> Δ-8 {[«2""»]|[«2""»]|[-8-]}
<Lit 0x24966 2> {[«2""»]|[«2""»]|[-4-]|[$$[ ]}
<POP 24978-2497a StackAdj> Δ-4 {[«2""»]|[«2""»]|[-4-]|[$$[ ]|[-4-]}
<POP 2497a-2497b StackAdj> Δ+4 {[«2""»]|[«2""»]|[-4-]|[$$[ ]}
<Blob 0x2497b [4] 0x28c52> Δ-4 {[«2""»]|[«2""»]|[-4-]|[$$[ ]|[«4»]}
<POP 24980-24982 StackAdj> Δ-4 {[«2""»]|[«2""»]|[-4-]|[$$[ ]|[«4»]|[-4-]}
<Lit 0x24982 2> {[«2""»]|[«2""»]|[-4-]|[$$[ ]|[«4»]|[$$];]}
<Call 0x24996 0x102d4> {[«2""»]|[«2""»]|[-4-]|[$$[ ]|[«4»]|[$$];]}
StringCat3(a, b, c : String) : String
<POP 2499c-249a0 StackAdj> Δ+12 {[«2""»]|[«2""»]|[-4-]}
<MI 249a0 MOVE.L (A7)+,0x28c4c> Δ+4 {[«2""»]|[«2""»]}
<POP 249a6-249a8 StackAdj> Δ+4 {}
<POP 249a8-249d4 Naked> Σ0 ↓ ←0x248f0
<MI 249a8 CLR.B 0x28c50> {}
<MI 249ae MOVE.L #0x1,0x28c1e> {}
<MI 249b8 CLR.L 0x28c22> {}
<POP 249be-249c0 StackAdj> Δ-4 {[-4-]}
<Blob 0x249c0 [4] 0x28c4c> Δ-4 {[-4-]|[«4»]}
<Call 0x249c6 0x102cc> {[-4-]|[«4»]}
StringDup(a : String) : String
<POP 249cc-249ce StackAdj> Δ+4 {[-4-]}
<Call 0x249ce 0x21ed6> {[-4-]}
<POP 249d2-249d4 StackAdj> Δ+4 {}
<POP 249d4-249e2 Naked> Σ0 ↓ →0x249e8 ←0x249e2
<MI 249d4 MOVE.L 0x28c1e,D0> {}
<MI 249da CMP.L 0x28c22,D0> {}
<MI 249e0 BGT 0x249e8> {}
<POP 249e2-249e8 Naked> Σ0 →0x249d4
<Call 0x249e2 0x244f2> {}
<MI 249e6 BRA 0x249d4> {}
<POP 249e8-249f6 Naked> Σ0 ↓ ←0x249d4
<Const 0x249e8 0x28c4c.4> Δ-4 {[##166988]}
<Call 0x249ee 0x102bc> {[##166988]}
FreeString(VAR a : String)
<POP 249f4-249f6 StackAdj> Δ+4 {}
<POP 249f6-249fa Naked> Σ0 →0x248e8
<MI 249f6 BRA 0x248e8> {}
@ 24a0e
PROG_FAIL
<LVAR 0x008 1(r)>
<POP 24a0e-24a76 Body>
<POP 24a0e-24a24 Prologue> Σ0 ↓
<POP 24a24-24a6e Naked> Σ0 ↓
<Blob 0x24a24 [14] @> Δ-14 {[«14""»]}
<Const 0x24a30 0x3.2> Δ-2 {[«14""»]|[#3]}
<POP 24a34-24a36 StackAdj> Δ-8 {[«14""»]|[#3]|[-8-]}
<Lit 0x24a36 14> {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
<POP 24a48-24a4a StackAdj> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 24a4a MOVE.B (A6+0x8),D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 24a4e EXTB.W D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 24a50 EXTW.L D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 24a52 MOVE.L D0,-(A7)> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
<Call 0x24a54 0x102e4> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 24a5a-24a5c StackAdj> Δ+4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<Call 0x24a5c 0x102d0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 24a62-24a64 StackAdj> Δ+8 {[«14""»]|[#3]|[-4-]}
<Call 0x24a64 0x103b8> {[«14""»]|[#3]|[-4-]}
PopProgram(status : Byte; msg : String)
<POP 24a6a-24a6e StackAdj> Δ+20 {}
<POP 24a6e-24a76 Epilogue> Σ0
@ 24aca
EXP_FAIL
<LVAR 0x00e 1(r)>
<LVAR 0x00a 4(r)>
<LVAR 0x008 1(r)>
<POP 24aca-24c06 Body>
<POP 24aca-24ae0 Prologue> Σ0 ↓
<POP 24ae0-24af6 RegCacheLoad> Σ0 ↓
<POP 24af6-24b56 Naked> Σ0 ↓ →0x24b9e
<Call 0x24af6 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x24afc [18] @> Δ-18 {[«18""»]}
<POP 24b08-24b0a StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x24b0a 18> {[«18""»]|[$$Experiment error :]}
<Call 0x24b16 0x103e0> {[«18""»]|[$$Experiment error :]}
WriteConsoleStringCrLf(str : String)
<POP 24b18-24b19 StackAdj> Δ+22 ↓ {}
<Blob 0x24b19 [14] @> Δ-14 {[«14""»]}
<POP 24b28-24b2a StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x24b2a 13> {[«14""»]|[-4-]|[$$Board :_]}
<POP 24b34-24b36 StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<MI 24b36 MOVE.B (A6+0xe),(A7)> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<Call 0x24b3a 0x1049c> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
BoardName(address : B) : String
<POP 24b40-24b42 StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
<Call 0x24b42 0x102d0> {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 24b48-24b4a StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x24b4a 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 24b4c-24b4e StackAdj> Δ+18 {}
<MI 24b4e MOVEA.L (A6+0xa),A0> {}
<MI 24b52 CMPA.W #0x01,A0> {}
<MI 24b54 BEQ 0x24b9e> {}
<POP 24b56-24b9e Naked> Σ0 ↓
<Blob 0x24b56 [14] @> Δ-14 {[«14""»]}
<Blob 0x24b66 [30] (A0+0xfc)> Δ-30 {[«14""»]|[«30»]}
<POP 24b76-24b78 StackAdj> Δ-8 {[«14""»]|[«30»]|[-8-]}
<Lit 0x24b78 13> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
<POP 24b82-24b84 StackAdj> Δ-4 {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
<Lit 0x24b84> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
<Pointer.sp 0x24b84 12> Δ-4
<Const 0x24b88 0x1.2> Δ-2
<Const 0x24b8a 0x1e.2> Δ-2
<Call 0x24b8c 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 24b8e-24b90 StackAdj> Δ+8
<Call 0x24b90 0x102d0> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
StringCat2(a, b : String) : String
<POP 24b96-24b98 StackAdj> Δ+8 {[«14""»]|[«30»]|[-4-]}
<Call 0x24b98 0x103e0> {[«14""»]|[«30»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 24b9a-24b9e StackAdj> Δ+48 {}
<POP 24b9e-24bfe Naked> Σ0 ↓ ←0x24af6
<Blob 0x24b9e [14] @> Δ-14 {[«14""»]}
<POP 24bae-24bb0 StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x24bb0 13> {[«14""»]|[-4-]|[$$Status :_]}
<POP 24bba-24bbc StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<MI 24bbc MOVE.B (A6+0x8),(A7)> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<Call 0x24bc0 0x104a2> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
ExpStatus2Text(status.B, &String)
<POP 24bc6-24bc8 StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
<Call 0x24bc8 0x102d0> {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 24bce-24bd0 StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x24bd0 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 24bd2-24bd3 StackAdj> Δ+18 ↓ {}
<Blob 0x24bd3 [24] @> Δ-24 {[«24""»]}
<Const 0x24be2 0x2.2> Δ-2 {[«24""»]|[#2]}
<POP 24be6-24be8 StackAdj> Δ-4 {[«24""»]|[#2]|[-4-]}
<Lit 0x24be8 23> {[«24""»]|[#2]|[$$Fatal experiment error.]}
<Call 0x24bf6 0x103b8> {[«24""»]|[#2]|[$$Fatal experiment error.]}
PopProgram(status : Byte; msg : String)
<POP 24bfc-24bfe StackAdj> Δ+30 {}
<POP 24bfe-24c06 Epilogue> Σ0
00020000 ; -------------------------------------------------------------------------------------- 00020000 ; R1000.Disassembly modules: 00020000 ; import all 00020000 ; import kind.program 00020000 ; no ident.8d5d4f3adfc6f60e 00020000 ; -------------------------------------------------------------------------------------- 00020000 stack.top: 00020000 00 04 00 00 | | .CODE 0x40000 ; STACK.END 00020004 00 02 48 04 | H | .CODE START 00020008 00 01 02 88 | | .CODE FSCALL_10288 0002000c heap.top: 0002000c 00 02 8c 6a | j | .PTR 0x28c6a 00020010 code.end: 00020010 00 02 4c 06 | L | .PTR 0x24c06 00020014 00 00 00 00 | | .CONST 0x00000000 00020018 programfailurehandler: 00020018 00 02 4a 0e | J | .CODE PROG_FAIL 0002001c experimentfailurehandler: 0002001c 00 02 4a ca | J | .CODE EXP_FAIL 00020020 00 00 00 00 | | .CONST 0x00000000 00020024 exp_init_done: 00020024 00 | | .CONST 0x00 00020025 00 | | .CONST 0x00 00020026 00 00 | | .CONST 0x0000 00020028 00 00 | | .CONST 0x0000 0002002a 00 00 | | .XXX[0x2] 0002002c 00 00 | | .CONST 0x0000 0002002e 00 00 | | .CONST 0x0000 00020030 00 00 | | .CONST 0x0000 00020032 00 00 00 00 00 00 | | .XXX[0x6] 00020038 00 00 00 00 00 00 00 00 | | .BLANK 00[0xb0] 000200e8 00 00 00 00 | | .XXX[0x4] 000200ec 00 00 00 00 | | .PTR 0x0 000200f0 is_open_ERROR_LOG: 000200f0 00 | | .CONST 0x0 000200f1 write_error_ERROR_LOG: 000200f1 00 | | .CONST 0x0 000200f2 00 00 00 00 | | .CONST 0x00000000 000200f6 00 00 00 00 | | .CONST 0x00000000 000200fa 00 | | .CONST 0x00 000200fb 00 | | .CONST 0x00 000200fc file_ERROR_LOG: 000200fc 00 00 00 00 | | .CONST 0x00000000 00020100 00 00 00 00 | | .CONST 0x00000000 00020104 00 00 | | .CONST 0x0000 00020106 00 00 | | .CONST 0x0000 00020108 somekindoffsflag: 00020108 00 | | .CONST 0x00 00020109 00 | | .CONST 0x00 0002010a 40 28 23 29 44 49 |@(#)DI | .XXX[0x6] 00020110 53 50 4c 41 59 2c 31 2e |SPLAY,1.| .XXX[0x18] 00020118 31 2c 39 32 2f 30 37 2f |1,92/07/| 00020120 30 39 2c 31 32 3a 30 30 |09,12:00| 00020128 3a 30 30 5c |:00\ | .XXX[0x4] 0002012c 44 65 76 69 63 65 20 61 |Device a| .TXT 'Device already opened ' 00020142 4f 50 45 4e 20 20 20 20 |OPEN | .TXT 'OPEN ' 0002014c 54 41 50 45 |TAPE | .TXT 'TAPE' 00020150 44 49 53 4b |DISK | .TXT 'DISK' 00020154 55 6e 6b 6e 6f 77 6e 20 |Unknown | .TXT 'Unknown device' 00020162 55 4e 49 54 |UNIT | .TXT 'UNIT' 00020166 49 6c 6c 65 |Ille | .TXT 'Ille' 0002016a 67 61 6c 20 |gal | .TXT 'gal ' 0002016e 75 6e 69 74 |unit | .TXT 'unit' 00020172 49 6c 6c 65 |Ille | .TXT 'Ille' 00020176 67 61 6c 20 |gal | .TXT 'gal ' 0002017a 75 6e 69 74 |unit | .TXT 'unit' 0002017e 4e 6f 20 64 65 76 69 63 |No devic| .TXT 'No device open' 0002018c 20 6c 69 6e 65 73 20 73 | lines s| .TXT ' lines same as above. ' 000201a2 42 6c |Bl | .TXT 'Bl' 000201a4 6f 63 |oc | .TXT 'oc' 000201a6 6b 5f |k_ | .TXT 'k_' 000201a8 2c 5f |,_ | .TXT ',_' 000201aa 20 42 79 74 65 73 2e 20 | Bytes. | .TXT ' Bytes. ' 000201b2 3a 5f |:_ | .TXT ':_' 000201b4 5f 5f 5f 5f |____ | .TXT '____' 000201b8 4e 6f 20 64 65 76 69 63 |No devic| .TXT 'No device open' 000201c6 43 61 6e 6e 6f 74 20 72 |Cannot r| .TXT 'Cannot rewind current device' 000201e2 44 49 53 50 4c 41 |DISPLA | .XXX[0x6] 000201e8 59 20 20 20 52 45 57 49 |Y REWI| .XXX[0x50] 000201f0 4e 44 20 20 20 20 4f 50 |ND OP| 000201f8 45 4e 20 20 20 20 20 20 |EN | 00020200 43 4c 4f 53 45 20 20 20 |CLOSE | 00020208 20 20 44 49 53 50 4c 41 | DISPLA| 00020210 59 20 20 20 44 49 53 50 |Y DISP| 00020218 4c 41 59 20 20 20 52 45 |LAY RE| 00020220 57 49 4e 44 20 20 20 20 |WIND | 00020228 4f 50 45 4e 20 20 20 20 |OPEN | 00020230 20 20 43 4c 4f 53 45 20 | CLOSE | 00020238 20 20 20 20 | | .XXX[0x4] 0002023c ; -------------------------------------------------------------------------------------- 0002023c ; OMSI PASCAL Function 0002023c ; <LVAR 0x008 4(r)> 0002023c ; <LVAR -0x004 @ 4(r)> 0002023c ; <LVAR -0x006 @ 1(r)> 0002023c ; <LVAR -0x008 @ 1(r)> 0002023c ; <LVAR -0x00c @ 4(r)> 0002023c ; <LVAR -0x010 @ 4(rw)> 0002023c ; <LVAR -0x014 @ 4(rw)> 0002023c ; <LVAR -0x018 @ 4(rw)> 0002023c ; -------------------------------------------------------------------------------------- 0002023c 4e 56 ff 8e |NV | LINK.W A6,#0xff8e 00020240 bf d5 | | CMPA.L (A5),A7 00020242 62 06 |b | BHI 0x2024a 00020244 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020248 4e 76 |Nv | TRAPV 0002024a de fc 00 56 | V | ADDA.W #0x56,A7 0002024e 48 e7 fe f8 |H | MOVEM.L A4+A3+A2+A1+A0+D6+D5+D4+D3+D2+D1+D0,-(A7) 00020252 45 f9 00 02 4c 0e |E L | LEA.L 0x24c0e,A2 00020258 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 0002025e 49 ee ff e8 |I | LEA.L (A6-0x18),A4 00020262 72 01 |r | MOVEQ.L #0x01,D1 00020264 74 03 |t | MOVEQ.L #0x03,D2 00020266 76 04 |v | MOVEQ.L #0x04,D3 00020268 78 0c |x | MOVEQ.L #0x0c,D4 0002026a 7a 0a |z | MOVEQ.L #0x0a,D5 0002026c 7c 10 || | MOVEQ.L #0x10,D6 0002026e 42 b9 00 02 6c 10 |B l | CLR.L 0x26c10 00020274 4a 12 |J | TST.B (A2) 00020276 67 2c |g, | BEQ 0x202a4 00020278 9e fc 00 16 | | SUBA.W #0x16,A7 0002027c 20 4f | O | MOVEA.L A7,A0 0002027e 43 fa fe ac |C | LEA.L 0x2012c,A1 00020282 70 14 |p | MOVEQ.L #0x14,D0 00020284 10 d9 | | MOVE.B (A1)+,(A0)+ 00020286 51 c8 ff fc |Q | DBF D0,0x20284 0002028a 59 4f |YO | SUBQ.L #0x4,A7 0002028c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020290 3f 01 |? | MOVE.W D1,-(A7) 00020292 3f 3c 00 15 |?< | MOVE.W #0x15,-(A7) 00020296 4e 93 |N | JSR (A3) 00020298 50 4f |PO | ADDQ.L #0x8,A7 0002029a 4e b9 00 02 11 0c |N | JSR 0x2110c 000202a0 de fc 00 1a | | ADDA.W #0x1a,A7 000202a4 41 fa fe a6 |A | LEA.L 0x2014c,A0 000202a8 70 04 |p | MOVEQ.L #0x04,D0 000202aa 3f 20 |? | MOVE.W -(A0),-(A7) 000202ac 51 c8 ff fc |Q | DBF D0,0x202aa 000202b0 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000202b4 48 78 00 01 |Hx | PEA.L 0x1 000202b8 4e b9 00 02 15 4e |N N | JSR 0x2154e 000202be de c5 | | ADDA.W D5,A7 000202c0 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7) 000202c4 48 78 00 01 |Hx | PEA.L 0x1 000202c8 4e b9 00 02 1e 34 |N 4 | JSR 0x21e34 000202ce 50 4f |PO | ADDQ.L #0x8,A7 000202d0 28 9f |( | MOVE.L (A7)+,(A4) 000202d2 2f 3a fe 78 |/: x | MOVE.L 0x2014c,-(A7) 000202d6 59 4f |YO | SUBQ.L #0x4,A7 000202d8 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000202dc 3f 01 |? | MOVE.W D1,-(A7) 000202de 3f 03 |? | MOVE.W D3,-(A7) 000202e0 4e 93 |N | JSR (A3) 000202e2 50 4f |PO | ADDQ.L #0x8,A7 000202e4 2d 5f ff ec |-_ | MOVE.L (A7)+,(A6-0x14) 000202e8 2e ba fe 66 |. f | MOVE.L 0x20150,(A7) 000202ec 59 4f |YO | SUBQ.L #0x4,A7 000202ee 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000202f2 3f 01 |? | MOVE.W D1,-(A7) 000202f4 3f 03 |? | MOVE.W D3,-(A7) 000202f6 4e 93 |N | JSR (A3) 000202f8 50 4f |PO | ADDQ.L #0x8,A7 000202fa 2d 5f ff f0 |-_ | MOVE.L (A7)+,(A6-0x10) 000202fe 54 4f |TO | ADDQ.L #0x2,A7 00020300 2f 14 |/ | MOVE.L (A4),-(A7) 00020302 2f 2e ff ec |/. | MOVE.L (A6-0x14),-(A7) 00020306 4e b9 00 01 02 c8 |N | JSR StringEqual(a, b : String) : Byte 0002030c 50 4f |PO | ADDQ.L #0x8,A7 0002030e 4a 1f |J | TST.B (A7)+ 00020310 67 04 |g | BEQ 0x20316 00020312 14 82 | | MOVE.B D2,(A2) 00020314 60 18 |` | BRA 0x2032e 00020316 55 4f |UO | SUBQ.L #0x2,A7 00020318 2f 14 |/ | MOVE.L (A4),-(A7) 0002031a 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7) 0002031e 4e b9 00 01 02 c8 |N | JSR StringEqual(a, b : String) : Byte 00020324 50 4f |PO | ADDQ.L #0x8,A7 00020326 4a 1f |J | TST.B (A7)+ 00020328 67 04 |g | BEQ 0x2032e 0002032a 14 bc 00 02 | | MOVE.B #0x02,(A2) 0002032e 48 6e ff ec |Hn | PEA.L (A6-0x14) 00020332 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00020338 58 4f |XO | ADDQ.L #0x4,A7 0002033a 48 6e ff f0 |Hn | PEA.L (A6-0x10) 0002033e 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00020344 58 4f |XO | ADDQ.L #0x4,A7 00020346 48 54 |HT | PEA.L (A4) 00020348 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 0002034e 58 4f |XO | ADDQ.L #0x4,A7 00020350 4a 12 |J | TST.B (A2) 00020352 66 26 |f& | BNE 0x2037a 00020354 41 fa fe 0c |A | LEA.L 0x20162,A0 00020358 70 06 |p | MOVEQ.L #0x06,D0 0002035a 3f 20 |? | MOVE.W -(A0),-(A7) 0002035c 51 c8 ff fc |Q | DBF D0,0x2035a 00020360 59 4f |YO | SUBQ.L #0x4,A7 00020362 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020366 3f 01 |? | MOVE.W D1,-(A7) 00020368 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7) 0002036c 4e 93 |N | JSR (A3) 0002036e 50 4f |PO | ADDQ.L #0x8,A7 00020370 4e b9 00 02 11 0c |N | JSR 0x2110c 00020376 de fc 00 12 | | ADDA.W #0x12,A7 0002037a 10 12 | | MOVE.B (A2),D0 0002037c b0 02 | | CMP.B D2,D0 0002037e 66 00 00 ee |f | BNE 0x2046e 00020382 2f 3a fd de |/: | MOVE.L 0x20162,-(A7) 00020386 59 4f |YO | SUBQ.L #0x4,A7 00020388 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002038c 3f 01 |? | MOVE.W D1,-(A7) 0002038e 3f 03 |? | MOVE.W D3,-(A7) 00020390 4e 93 |N | JSR (A3) 00020392 50 4f |PO | ADDQ.L #0x8,A7 00020394 28 9f |( | MOVE.L (A7)+,(A4) 00020396 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7) 0002039a 48 78 00 01 |Hx | PEA.L 0x1 0002039e 2f 14 |/ | MOVE.L (A4),-(A7) 000203a0 48 6e ff f4 |Hn | PEA.L (A6-0xc) 000203a4 48 6e ff fa |Hn | PEA.L (A6-0x6) 000203a8 4e b9 00 02 43 6c |N Cl | JSR 0x2436c 000203ae de fc 00 14 | | ADDA.W #0x14,A7 000203b2 48 54 |HT | PEA.L (A4) 000203b4 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000203ba 58 4f |XO | ADDQ.L #0x4,A7 000203bc 4a 2e ff fa |J. | TST.B (A6-0x6) 000203c0 66 06 |f | BNE 0x203c8 000203c2 42 ae ff fc |B | CLR.L (A6-0x4) 000203c6 60 74 |`t | BRA 0x2043c 000203c8 20 6e ff f4 | n | MOVEA.L (A6-0xc),A0 000203cc b0 c1 | | CMPA.W D1,A0 000203ce 66 02 |f | BNE 0x203d2 000203d0 60 f0 |` | BRA 0x203c2 000203d2 2f 08 |/ | MOVE.L A0,-(A7) 000203d4 48 6e ff fa |Hn | PEA.L (A6-0x6) 000203d8 48 6e ff fc |Hn | PEA.L (A6-0x4) 000203dc 4e b9 00 01 02 ec |N | JSR String2Long(src : String; VAR status : Bool; VAR retval : Long) 000203e2 de c4 | | ADDA.W D4,A7 000203e4 4a 2e ff fa |J. | TST.B (A6-0x6) 000203e8 66 22 |f" | BNE 0x2040c 000203ea 2f 3a fd 82 |/: | MOVE.L 0x2016e,-(A7) 000203ee 2f 3a fd 7a |/: z | MOVE.L 0x2016a,-(A7) 000203f2 2f 3a fd 72 |/: r | MOVE.L 0x20166,-(A7) 000203f6 59 4f |YO | SUBQ.L #0x4,A7 000203f8 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000203fc 3f 01 |? | MOVE.W D1,-(A7) 000203fe 3f 04 |? | MOVE.W D4,-(A7) 00020400 4e 93 |N | JSR (A3) 00020402 50 4f |PO | ADDQ.L #0x8,A7 00020404 4e b9 00 02 11 0c |N | JSR 0x2110c 0002040a de c6 | | ADDA.W D6,A7 0002040c 4a ae ff fc |J | TST.L (A6-0x4) 00020410 6d 08 |m | BLT 0x2041a 00020412 20 2e ff fc | . | MOVE.L (A6-0x4),D0 00020416 b0 82 | | CMP.L D2,D0 00020418 6f 22 |o" | BLE 0x2043c 0002041a 2f 3a fd 5e |/: ^ | MOVE.L 0x2017a,-(A7) 0002041e 2f 3a fd 56 |/: V | MOVE.L 0x20176,-(A7) 00020422 2f 3a fd 4e |/: N | MOVE.L 0x20172,-(A7) 00020426 59 4f |YO | SUBQ.L #0x4,A7 00020428 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002042c 3f 01 |? | MOVE.W D1,-(A7) 0002042e 3f 04 |? | MOVE.W D4,-(A7) 00020430 4e 93 |N | JSR (A3) 00020432 50 4f |PO | ADDQ.L #0x8,A7 00020434 4e b9 00 02 11 0c |N | JSR 0x2110c 0002043a de c6 | | ADDA.W D6,A7 0002043c 20 2e ff fc | . | MOVE.L (A6-0x4),D0 00020440 b0 82 | | CMP.L D2,D0 00020442 63 02 |c | BLS 0x20446 00020444 4e 4f |NO | TRAP #15 00020446 3f 00 |? | MOVE.W D0,-(A7) 00020448 42 27 |B' | CLR.B -(A7) 0002044a 1f 01 | | MOVE.B D1,-(A7) 0002044c 48 6e ff f8 |Hn | PEA.L (A6-0x8) 00020450 4e b9 00 01 04 0c |N | JSR FSCALL_1040c 00020456 de c5 | | ADDA.W D5,A7 00020458 4a 2e ff f8 |J. | TST.B (A6-0x8) 0002045c 67 10 |g | BEQ 0x2046e 0002045e 1f 01 | | MOVE.B D1,-(A7) 00020460 48 6e ff f8 |Hn | PEA.L (A6-0x8) 00020464 4e b9 00 01 04 28 |N ( | JSR FSCALL_10428 0002046a 5c 4f |\O | ADDQ.L #0x6,A7 0002046c 42 12 |B | CLR.B (A2) 0002046e 4c df 1f 7f |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+A0+A1+A2+A3+A4 00020472 4e 5e |N^ | UNLK A6 00020474 4e 75 |Nu | RTS 00020476 ; -------------------------------------------------------------------------------------- 00020476 ; OMSI PASCAL Function 00020476 ; -------------------------------------------------------------------------------------- 00020476 4e 56 ff d6 |NV | LINK.W A6,#0xffd6 0002047a bf d5 | | CMPA.L (A5),A7 0002047c 62 06 |b | BHI 0x20484 0002047e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020482 4e 76 |Nv | TRAPV 00020484 de fc 00 2a | * | ADDA.W #0x2a,A7 00020488 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7) 0002048c 43 f9 00 02 4c 0e |C L | LEA.L 0x24c0e,A1 00020492 4a 11 |J | TST.B (A1) 00020494 66 2e |f. | BNE 0x204c4 00020496 41 fa fc f4 |A | LEA.L 0x2018c,A0 0002049a 70 06 |p | MOVEQ.L #0x06,D0 0002049c 3f 20 |? | MOVE.W -(A0),-(A7) 0002049e 51 c8 ff fc |Q | DBF D0,0x2049c 000204a2 59 4f |YO | SUBQ.L #0x4,A7 000204a4 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000204a8 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000204ac 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7) 000204b0 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000204b6 50 4f |PO | ADDQ.L #0x8,A7 000204b8 4e b9 00 02 11 0c |N | JSR 0x2110c 000204be de fc 00 12 | | ADDA.W #0x12,A7 000204c2 60 0e |` | BRA 0x204d2 000204c4 10 11 | | MOVE.B (A1),D0 000204c6 0c 00 00 03 | | CMPI.B #0x03,D0 000204ca 66 06 |f | BNE 0x204d2 000204cc 4e b9 00 01 04 10 |N | JSR FSCALL_10410 000204d2 42 11 |B | CLR.B (A1) 000204d4 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1 000204d8 4e 5e |N^ | UNLK A6 000204da 4e 75 |Nu | RTS 000204dc ; -------------------------------------------------------------------------------------- 000204dc ; OMSI PASCAL Function 000204dc ; <LVAR 0x008 4(r)> 000204dc ; <LVAR -0x008 @ 4(rw)> 000204dc ; <LVAR -0x00c @ 4(r)> 000204dc ; <LVAR -0x018 4(rw)> 000204dc ; -------------------------------------------------------------------------------------- 000204dc 4e 56 ff 80 |NV | LINK.W A6,#0xff80 000204e0 bf d5 | | CMPA.L (A5),A7 000204e2 62 06 |b | BHI 0x204ea 000204e4 44 fc 00 02 |D | MOVE.W #0x2,CCR 000204e8 4e 76 |Nv | TRAPV 000204ea de fc 00 68 | h | ADDA.W #0x68,A7 000204ee 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 000204f2 45 ee ff f8 |E | LEA.L (A6-0x8),A2 000204f6 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 000204fc 49 ee ff e8 |I | LEA.L (A6-0x18),A4 00020500 74 01 |t | MOVEQ.L #0x01,D2 00020502 3f 3a fc a2 |?: | MOVE.W 0x201a6,-(A7) 00020506 3f 3a fc 9c |?: | MOVE.W 0x201a4,-(A7) 0002050a 3f 3a fc 96 |?: | MOVE.W 0x201a2,-(A7) 0002050e 3f 3a fc 98 |?: | MOVE.W 0x201a8,-(A7) 00020512 51 4f |QO | SUBQ.L #0x8,A7 00020514 20 4f | O | MOVEA.L A7,A0 00020516 43 fa fc 92 |C | LEA.L 0x201aa,A1 0002051a 70 06 |p | MOVEQ.L #0x06,D0 0002051c 10 d9 | | MOVE.B (A1)+,(A0)+ 0002051e 51 c8 ff fc |Q | DBF D0,0x2051c 00020522 51 4f |QO | SUBQ.L #0x8,A7 00020524 48 6f 00 12 |Ho | PEA.L (A7+0x12) 00020528 3f 02 |? | MOVE.W D2,-(A7) 0002052a 3f 3c 00 06 |?< | MOVE.W #0x6,-(A7) 0002052e 4e 93 |N | JSR (A3) 00020530 2e b9 00 02 6c 10 |. l | MOVE.L 0x26c10,(A7) 00020536 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 0002053c 48 6f 00 18 |Ho | PEA.L (A7+0x18) 00020540 3f 02 |? | MOVE.W D2,-(A7) 00020542 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7) 00020546 4e 93 |N | JSR (A3) 00020548 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7) 0002054c 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00020552 48 6f 00 18 |Ho | PEA.L (A7+0x18) 00020556 3f 02 |? | MOVE.W D2,-(A7) 00020558 3f 3c 00 07 |?< | MOVE.W #0x7,-(A7) 0002055c 4e 93 |N | JSR (A3) 0002055e 50 4f |PO | ADDQ.L #0x8,A7 00020560 4e b9 00 01 02 dc |N | JSR StringCat5(a, b, c, d, e : String) : String 00020566 de fc 00 14 | | ADDA.W #0x14,A7 0002056a 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00020570 de fc 00 14 | | ADDA.W #0x14,A7 00020574 52 b9 00 02 6c 10 |R l | ADDQ.L #0x1,0x26c10 0002057a 42 94 |B | CLR.L (A4) 0002057c 7a 00 |z | MOVEQ.L #0x00,D5 0002057e 48 6e ff f4 |Hn | PEA.L (A6-0xc) 00020582 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00020588 58 4f |XO | ADDQ.L #0x4,A7 0002058a 20 2e 00 08 | . | MOVE.L (A6+0x8),D0 0002058e 52 80 |R | ADDQ.L #0x1,D0 00020590 28 00 |( | MOVE.L D0,D4 00020592 76 02 |v | MOVEQ.L #0x02,D3 00020594 4e b9 00 01 02 94 |N | JSR ?divs_d3_d4 0002059a b8 94 | | CMP.L (A4),D4 0002059c 6f 00 01 a4 |o | BLE 0x20742 000205a0 48 52 |HR | PEA.L (A2) 000205a2 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 000205a8 58 4f |XO | ADDQ.L #0x4,A7 000205aa 7c 00 || | MOVEQ.L #0x00,D6 000205ac 59 4f |YO | SUBQ.L #0x4,A7 000205ae 2f 12 |/ | MOVE.L (A2),-(A7) 000205b0 59 4f |YO | SUBQ.L #0x4,A7 000205b2 20 14 | | MOVE.L (A4),D0 000205b4 d0 86 | | ADD.L D6,D0 000205b6 0c 80 00 00 0f ff | | CMPI.L #0x00000fff,D0 000205bc 63 02 |c | BLS 0x205c0 000205be 4e 4f |NO | TRAP #15 000205c0 e3 80 | | ASL.L #0x1,D0 000205c2 41 f9 00 02 4c 06 |A L | LEA.L 0x24c06,A0 000205c8 42 81 |B | CLR.L D1 000205ca 32 30 08 0a |20 | MOVE.W (A0+D0.L+#0xa),D1 000205ce 2f 01 |/ | MOVE.L D1,-(A7) 000205d0 48 78 00 04 |Hx | PEA.L 0x4 000205d4 4e b9 00 01 02 e8 |N | JSR Long2HexString(val : Long; ndig : Long) : String 000205da 50 4f |PO | ADDQ.L #0x8,A7 000205dc 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000205e2 50 4f |PO | ADDQ.L #0x8,A7 000205e4 24 9f |$ | MOVE.L (A7)+,(A2) 000205e6 2f 12 |/ | MOVE.L (A2),-(A7) 000205e8 1f 3c 00 20 | < | MOVE.B #0x20,-(A7) 000205ec 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 000205f2 5c 4f |\O | ADDQ.L #0x6,A7 000205f4 52 86 |R | ADDQ.L #0x1,D6 000205f6 0c 86 00 00 00 07 | | CMPI.L #0x00000007,D6 000205fc 6f ae |o | BLE 0x205ac 000205fe 55 4f |UO | SUBQ.L #0x2,A7 00020600 2f 2e ff f4 |/. | MOVE.L (A6-0xc),-(A7) 00020604 2f 12 |/ | MOVE.L (A2),-(A7) 00020606 4e b9 00 01 02 c8 |N | JSR StringEqual(a, b : String) : Byte 0002060c 50 4f |PO | ADDQ.L #0x8,A7 0002060e 4a 1f |J | TST.B (A7)+ 00020610 67 0e |g | BEQ 0x20620 00020612 52 85 |R | ADDQ.L #0x1,D5 00020614 48 52 |HR | PEA.L (A2) 00020616 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 0002061c 60 00 01 1c |` | BRA 0x2073a 00020620 4a 85 |J | TST.L D5 00020622 67 3c |g< | BEQ 0x20660 00020624 9e fc 00 16 | | SUBA.W #0x16,A7 00020628 20 4f | O | MOVEA.L A7,A0 0002062a 43 fa fb 60 |C ` | LEA.L 0x2018c,A1 0002062e 70 14 |p | MOVEQ.L #0x14,D0 00020630 10 d9 | | MOVE.B (A1)+,(A0)+ 00020632 51 c8 ff fc |Q | DBF D0,0x20630 00020636 51 4f |QO | SUBQ.L #0x8,A7 00020638 2f 05 |/ | MOVE.L D5,-(A7) 0002063a 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00020640 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00020644 3f 02 |? | MOVE.W D2,-(A7) 00020646 3f 3c 00 15 |?< | MOVE.W #0x15,-(A7) 0002064a 4e 93 |N | JSR (A3) 0002064c 50 4f |PO | ADDQ.L #0x8,A7 0002064e 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020654 50 4f |PO | ADDQ.L #0x8,A7 00020656 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002065c de fc 00 1a | | ADDA.W #0x1a,A7 00020660 7a 00 |z | MOVEQ.L #0x00,D5 00020662 20 6e ff f4 | n | MOVEA.L (A6-0xc),A0 00020666 22 52 |"R | MOVEA.L (A2),A1 00020668 70 7f |p | MOVEQ.L #0x7f,D0 0002066a 10 d9 | | MOVE.B (A1)+,(A0)+ 0002066c 51 c8 ff fc |Q | DBF D0,0x2066a 00020670 3f 3a fb 40 |?: @ | MOVE.W 0x201b2,-(A7) 00020674 2f 3a fb 3e |/: > | MOVE.L 0x201b4,-(A7) 00020678 51 4f |QO | SUBQ.L #0x8,A7 0002067a 2f 14 |/ | MOVE.L (A4),-(A7) 0002067c 48 78 00 04 |Hx | PEA.L 0x4 00020680 4e b9 00 01 02 e8 |N | JSR Long2HexString(val : Long; ndig : Long) : String 00020686 58 4f |XO | ADDQ.L #0x4,A7 00020688 48 6f 00 10 |Ho | PEA.L (A7+0x10) 0002068c 3f 02 |? | MOVE.W D2,-(A7) 0002068e 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7) 00020692 4e 93 |N | JSR (A3) 00020694 58 4f |XO | ADDQ.L #0x4,A7 00020696 2e 92 |. | MOVE.L (A2),(A7) 00020698 59 4f |YO | SUBQ.L #0x4,A7 0002069a 48 6f 00 14 |Ho | PEA.L (A7+0x14) 0002069e 3f 02 |? | MOVE.W D2,-(A7) 000206a0 3f 3c 00 04 |?< | MOVE.W #0x4,-(A7) 000206a4 4e 93 |N | JSR (A3) 000206a6 50 4f |PO | ADDQ.L #0x8,A7 000206a8 4e b9 00 01 02 d8 |N | JSR StringCat4(a, b, c, d : String) : String 000206ae de fc 00 10 | | ADDA.W #0x10,A7 000206b2 24 9f |$ | MOVE.L (A7)+,(A2) 000206b4 5c 4f |\O | ADDQ.L #0x6,A7 000206b6 7c 00 || | MOVEQ.L #0x00,D6 000206b8 28 06 |( | MOVE.L D6,D4 000206ba 76 02 |v | MOVEQ.L #0x02,D3 000206bc 4e b9 00 01 02 94 |N | JSR ?divs_d3_d4 000206c2 d8 94 | | ADD.L (A4),D4 000206c4 0c 84 00 00 0f ff | | CMPI.L #0x00000fff,D4 000206ca 63 02 |c | BLS 0x206ce 000206cc 4e 4f |NO | TRAP #15 000206ce e3 84 | | ASL.L #0x1,D4 000206d0 41 f9 00 02 4c 06 |A L | LEA.L 0x24c06,A0 000206d6 42 80 |B | CLR.L D0 000206d8 30 30 48 0a |00H | MOVE.W (A0+D4.L+#0xa),D0 000206dc 2e 00 |. | MOVE.L D0,D7 000206de 20 06 | | MOVE.L D6,D0 000206e0 c0 82 | | AND.L D2,D0 000206e2 66 10 |f | BNE 0x206f4 000206e4 28 07 |( | MOVE.L D7,D4 000206e6 26 3c 00 00 01 00 |&< | MOVE.L #0x100,D3 000206ec 4e b9 00 01 02 94 |N | JSR ?divs_d3_d4 000206f2 2e 04 |. | MOVE.L D4,D7 000206f4 02 87 00 00 00 ff | | ANDI.L #0x000000ff,D7 000206fa 0c 87 00 00 00 20 | | CMPI.L #0x00000020,D7 00020700 6d 08 |m | BLT 0x2070a 00020702 0c 87 00 00 00 7e | ~ | CMPI.L #0x0000007e,D7 00020708 6f 08 |o | BLE 0x20712 0002070a 2f 12 |/ | MOVE.L (A2),-(A7) 0002070c 1f 3c 00 2e | < . | MOVE.B #0x2e,-(A7) 00020710 60 0e |` | BRA 0x20720 00020712 2f 12 |/ | MOVE.L (A2),-(A7) 00020714 0c 87 00 00 00 ff | | CMPI.L #0x000000ff,D7 0002071a 63 02 |c | BLS 0x2071e 0002071c 4e 4f |NO | TRAP #15 0002071e 1f 07 | | MOVE.B D7,-(A7) 00020720 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00020726 5c 4f |\O | ADDQ.L #0x6,A7 00020728 52 86 |R | ADDQ.L #0x1,D6 0002072a 0c 86 00 00 00 0f | | CMPI.L #0x0000000f,D6 00020730 6f 86 |o | BLE 0x206b8 00020732 2f 12 |/ | MOVE.L (A2),-(A7) 00020734 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002073a 58 4f |XO | ADDQ.L #0x4,A7 0002073c 50 94 |P | ADDQ.L #0x8,(A4) 0002073e 60 00 fe 4a |` J | BRA 0x2058a 00020742 4a 85 |J | TST.L D5 00020744 67 3c |g< | BEQ 0x20782 00020746 9e fc 00 16 | | SUBA.W #0x16,A7 0002074a 20 4f | O | MOVEA.L A7,A0 0002074c 43 fa fa 3e |C > | LEA.L 0x2018c,A1 00020750 70 14 |p | MOVEQ.L #0x14,D0 00020752 10 d9 | | MOVE.B (A1)+,(A0)+ 00020754 51 c8 ff fc |Q | DBF D0,0x20752 00020758 51 4f |QO | SUBQ.L #0x8,A7 0002075a 2f 05 |/ | MOVE.L D5,-(A7) 0002075c 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00020762 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00020766 3f 02 |? | MOVE.W D2,-(A7) 00020768 3f 3c 00 15 |?< | MOVE.W #0x15,-(A7) 0002076c 4e 93 |N | JSR (A3) 0002076e 50 4f |PO | ADDQ.L #0x8,A7 00020770 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020776 50 4f |PO | ADDQ.L #0x8,A7 00020778 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002077e de fc 00 1a | | ADDA.W #0x1a,A7 00020782 48 6e ff f4 |Hn | PEA.L (A6-0xc) 00020786 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 0002078c 58 4f |XO | ADDQ.L #0x4,A7 0002078e 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00020792 4e 5e |N^ | UNLK A6 00020794 4e 75 |Nu | RTS 00020796 ; -------------------------------------------------------------------------------------- 00020796 ; OMSI PASCAL Function 00020796 ; <LVAR -0x008 @ 1(r)> 00020796 ; -------------------------------------------------------------------------------------- 00020796 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 0002079a bf d5 | | CMPA.L (A5),A7 0002079c 62 06 |b | BHI 0x207a4 0002079e 44 fc 00 02 |D | MOVE.W #0x2,CCR 000207a2 4e 76 |Nv | TRAPV 000207a4 de fc 00 20 | | ADDA.W #0x20,A7 000207a8 48 e7 c1 c0 |H | MOVEM.L A1+A0+D7+D1+D0,-(A7) 000207ac 43 ee ff f8 |C | LEA.L (A6-0x8),A1 000207b0 22 3c 00 00 20 00 |"< | MOVE.L #0x2000,D1 000207b6 41 f9 00 02 4c 10 |A L | LEA.L 0x24c10,A0 000207bc 2f 08 |/ | MOVE.L A0,-(A7) 000207be 3f 01 |? | MOVE.W D1,-(A7) 000207c0 4e b9 00 01 04 18 |N | JSR FSCALL_10418 000207c6 5c 4f |\O | ADDQ.L #0x6,A7 000207c8 48 51 |HQ | PEA.L (A1) 000207ca 4e b9 00 01 04 08 |N | JSR FSCALL_10408 000207d0 58 4f |XO | ADDQ.L #0x4,A7 000207d2 7e ff |~ | MOVEQ.L #-0x01,D7 000207d4 10 11 | | MOVE.B (A1),D0 000207d6 0c 00 00 07 | | CMPI.B #0x07,D0 000207da 66 0e |f | BNE 0x207ea 000207dc 59 4f |YO | SUBQ.L #0x4,A7 000207de 4e b9 00 01 04 30 |N 0 | JSR FSCALL_10430 000207e4 2e 01 |. | MOVE.L D1,D7 000207e6 9e 9f | | SUB.L (A7)+,D7 000207e8 60 20 |` | BRA 0x2080a 000207ea 0c 00 00 06 | | CMPI.B #0x06,D0 000207ee 66 04 |f | BNE 0x207f4 000207f0 7e 00 |~ | MOVEQ.L #0x00,D7 000207f2 60 16 |` | BRA 0x2080a 000207f4 4a 00 |J | TST.B D0 000207f6 66 04 |f | BNE 0x207fc 000207f8 2e 01 |. | MOVE.L D1,D7 000207fa 60 0e |` | BRA 0x2080a 000207fc 1f 3c 00 01 | < | MOVE.B #0x01,-(A7) 00020800 48 51 |HQ | PEA.L (A1) 00020802 4e b9 00 01 04 28 |N ( | JSR FSCALL_10428 00020808 5c 4f |\O | ADDQ.L #0x6,A7 0002080a 0c 87 ff ff ff ff | | CMPI.L #0xffffffff,D7 00020810 67 08 |g | BEQ 0x2081a 00020812 2f 07 |/ | MOVE.L D7,-(A7) 00020814 4e ba fc c6 |N | JSR 0x204dc 00020818 58 4f |XO | ADDQ.L #0x4,A7 0002081a 4c df 03 83 |L | MOVEM.L (A7)+,D0+D1+D7+A0+A1 0002081e 4e 5e |N^ | UNLK A6 00020820 4e 75 |Nu | RTS 00020822 ; -------------------------------------------------------------------------------------- 00020822 ; OMSI PASCAL Function 00020822 ; <LVAR 0x008 4(r)> 00020822 ; -------------------------------------------------------------------------------------- 00020822 4e 56 ff d6 |NV | LINK.W A6,#0xffd6 00020826 bf d5 | | CMPA.L (A5),A7 00020828 62 06 |b | BHI 0x20830 0002082a 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002082e 4e 76 |Nv | TRAPV 00020830 de fc 00 2a | * | ADDA.W #0x2a,A7 00020834 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7) 00020838 43 f9 00 02 4c 0e |C L | LEA.L 0x24c0e,A1 0002083e 4a 11 |J | TST.B (A1) 00020840 66 2e |f. | BNE 0x20870 00020842 41 fa f9 82 |A | LEA.L 0x201c6,A0 00020846 70 06 |p | MOVEQ.L #0x06,D0 00020848 3f 20 |? | MOVE.W -(A0),-(A7) 0002084a 51 c8 ff fc |Q | DBF D0,0x20848 0002084e 59 4f |YO | SUBQ.L #0x4,A7 00020850 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020854 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00020858 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7) 0002085c 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020862 50 4f |PO | ADDQ.L #0x8,A7 00020864 4e b9 00 02 11 0c |N | JSR 0x2110c 0002086a de fc 00 12 | | ADDA.W #0x12,A7 0002086e 60 12 |` | BRA 0x20882 00020870 10 11 | | MOVE.B (A1),D0 00020872 0c 00 00 03 | | CMPI.B #0x03,D0 00020876 66 0a |f | BNE 0x20882 00020878 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 0002087c 4e ba ff 18 |N | JSR 0x20796 00020880 58 4f |XO | ADDQ.L #0x4,A7 00020882 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1 00020886 4e 5e |N^ | UNLK A6 00020888 4e 75 |Nu | RTS 0002088a ; -------------------------------------------------------------------------------------- 0002088a ; OMSI PASCAL Function 0002088a ; <LVAR -0x004 @ 1(r)> 0002088a ; -------------------------------------------------------------------------------------- 0002088a 4e 56 ff c0 |NV | LINK.W A6,#0xffc0 0002088e bf d5 | | CMPA.L (A5),A7 00020890 62 06 |b | BHI 0x20898 00020892 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020896 4e 76 |Nv | TRAPV 00020898 de fc 00 3c | < | ADDA.W #0x3c,A7 0002089c 48 e7 c0 c0 |H | MOVEM.L A1+A0+D1+D0,-(A7) 000208a0 43 ee ff fc |C | LEA.L (A6-0x4),A1 000208a4 72 01 |r | MOVEQ.L #0x01,D1 000208a6 10 39 00 02 4c 0e | 9 L | MOVE.B 0x24c0e,D0 000208ac 0c 00 00 03 | | CMPI.B #0x03,D0 000208b0 67 2c |g, | BEQ 0x208de 000208b2 41 fa f9 2e |A . | LEA.L 0x201e2,A0 000208b6 70 06 |p | MOVEQ.L #0x06,D0 000208b8 2f 20 |/ | MOVE.L -(A0),-(A7) 000208ba 51 c8 ff fc |Q | DBF D0,0x208b8 000208be 59 4f |YO | SUBQ.L #0x4,A7 000208c0 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000208c4 3f 01 |? | MOVE.W D1,-(A7) 000208c6 3f 3c 00 1c |?< | MOVE.W #0x1c,-(A7) 000208ca 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000208d0 50 4f |PO | ADDQ.L #0x8,A7 000208d2 4e b9 00 02 11 0c |N | JSR 0x2110c 000208d8 de fc 00 20 | | ADDA.W #0x20,A7 000208dc 60 1c |` | BRA 0x208fa 000208de 42 27 |B' | CLR.B -(A7) 000208e0 48 51 |HQ | PEA.L (A1) 000208e2 4e b9 00 01 04 14 |N | JSR FSCALL_10414 000208e8 5c 4f |\O | ADDQ.L #0x6,A7 000208ea 4a 11 |J | TST.B (A1) 000208ec 67 0c |g | BEQ 0x208fa 000208ee 1f 01 | | MOVE.B D1,-(A7) 000208f0 48 51 |HQ | PEA.L (A1) 000208f2 4e b9 00 01 04 28 |N ( | JSR FSCALL_10428 000208f8 5c 4f |\O | ADDQ.L #0x6,A7 000208fa 4c df 03 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1 000208fe 4e 5e |N^ | UNLK A6 00020900 4e 75 |Nu | RTS 00020902 ; -------------------------------------------------------------------------------------- 00020902 ; OMSI PASCAL Function 00020902 ; <LVAR 0x00c 4(w)> 00020902 ; <LVAR 0x008 4(r)> 00020902 ; <LVAR -0x008 @ 4(rw)> 00020902 ; -------------------------------------------------------------------------------------- 00020902 4e 56 ff aa |NV | LINK.W A6,#0xffaa 00020906 bf d5 | | CMPA.L (A5),A7 00020908 62 06 |b | BHI 0x20910 0002090a 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002090e 4e 76 |Nv | TRAPV 00020910 de fc 00 4a | J | ADDA.W #0x4a,A7 00020914 48 e7 ff e0 |H | MOVEM.L A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00020918 45 ee ff f8 |E | LEA.L (A6-0x8),A2 0002091c 72 03 |r | MOVEQ.L #0x03,D1 0002091e 74 0a |t | MOVEQ.L #0x0a,D2 00020920 7a 01 |z | MOVEQ.L #0x01,D5 00020922 2d 7c ff ff ff ff 00 0c |-| | MOVE.L #0xffffffff,(A6+0xc) 0002092a 7e 00 |~ | MOVEQ.L #0x00,D7 0002092c be 81 | | CMP.L D1,D7 0002092e 63 02 |c | BLS 0x20932 00020930 4e 4f |NO | TRAP #15 00020932 28 07 |( | MOVE.L D7,D4 00020934 76 0a |v | MOVEQ.L #0x0a,D3 00020936 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4 0002093c 41 fa f8 d6 |A | LEA.L 0x20214,A0 00020940 9e c2 | | SUBA.W D2,A7 00020942 22 4f |"O | MOVEA.L A7,A1 00020944 41 f0 48 00 |A H | LEA.L (A0+D4.L),A0 00020948 70 09 |p | MOVEQ.L #0x09,D0 0002094a 12 d8 | | MOVE.B (A0)+,(A1)+ 0002094c 51 c8 ff fc |Q | DBF D0,0x2094a 00020950 59 4f |YO | SUBQ.L #0x4,A7 00020952 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020956 3f 05 |? | MOVE.W D5,-(A7) 00020958 3f 02 |? | MOVE.W D2,-(A7) 0002095a 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020960 50 4f |PO | ADDQ.L #0x8,A7 00020962 24 9f |$ | MOVE.L (A7)+,(A2) 00020964 58 4f |XO | ADDQ.L #0x4,A7 00020966 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7) 0002096a 2f 12 |/ | MOVE.L (A2),-(A7) 0002096c 4e b9 00 01 02 c8 |N | JSR StringEqual(a, b : String) : Byte 00020972 50 4f |PO | ADDQ.L #0x8,A7 00020974 10 1f | | MOVE.B (A7)+,D0 00020976 48 80 |H | EXTB.W D0 00020978 41 85 |A | CHK.W D5,D0 0002097a 1c 00 | | MOVE.B D0,D6 0002097c 48 52 |HR | PEA.L (A2) 0002097e 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00020984 58 4f |XO | ADDQ.L #0x4,A7 00020986 4a 06 |J | TST.B D6 00020988 67 06 |g | BEQ 0x20990 0002098a 2d 47 00 0c |-G | MOVE.L D7,(A6+0xc) 0002098e 60 06 |` | BRA 0x20996 00020990 52 87 |R | ADDQ.L #0x1,D7 00020992 be 81 | | CMP.L D1,D7 00020994 6f 96 |o | BLE 0x2092c 00020996 4c df 07 ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2 0002099a 4e 5e |N^ | UNLK A6 0002099c 4e 75 |Nu | RTS 0002099e ; -------------------------------------------------------------------------------------- 0002099e ; OMSI PASCAL Function 0002099e ; <LVAR 0x010 4(r)> 0002099e ; <LVAR 0x00c 4(r)> 0002099e ; <LVAR 0x008 4(r)> 0002099e ; -------------------------------------------------------------------------------------- 0002099e 4e 56 ff e4 |NV | LINK.W A6,#0xffe4 000209a2 bf d5 | | CMPA.L (A5),A7 000209a4 62 06 |b | BHI 0x209ac 000209a6 44 fc 00 02 |D | MOVE.W #0x2,CCR 000209aa 4e 76 |Nv | TRAPV 000209ac de fc 00 1c | | ADDA.W #0x1c,A7 000209b0 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7) 000209b4 43 ee 00 0c |C | LEA.L (A6+0xc),A1 000209b8 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 000209bc 10 bc 00 01 | | MOVE.B #0x01,(A0) 000209c0 59 4f |YO | SUBQ.L #0x4,A7 000209c2 2f 2e 00 10 |/. | MOVE.L (A6+0x10),-(A7) 000209c6 4e ba ff 3a |N : | JSR 0x20902 000209ca 58 4f |XO | ADDQ.L #0x4,A7 000209cc 20 1f | | MOVE.L (A7)+,D0 000209ce 0c 80 00 00 00 03 | | CMPI.L #0x00000003,D0 000209d4 62 34 |b4 | BHI 0x20a0a 000209d6 d0 40 | @ | ADD.W D0,D0 000209d8 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 000209e0 00 08 | | .CONST 0x8 ; [0x0] -> 0x209e8 000209e2 00 12 | | .CONST 0x12 ; [0x1] -> 0x209f2 000209e4 00 1a | | .CONST 0x1a ; [0x2] -> 0x209fa 000209e6 00 22 | " | .CONST 0x22 ; [0x3] -> 0x20a02 000209e8 switch@0x209d8[0x0]: 000209e8 2f 11 |/ | MOVE.L (A1),-(A7) 000209ea 4e ba fe 36 |N 6 | JSR 0x20822 000209ee 58 4f |XO | ADDQ.L #0x4,A7 000209f0 60 1a |` | BRA 0x20a0c 000209f2 switch@0x209d8[0x1]: 000209f2 2f 11 |/ | MOVE.L (A1),-(A7) 000209f4 4e ba fe 94 |N | JSR 0x2088a 000209f8 60 f4 |` | BRA 0x209ee 000209fa switch@0x209d8[0x2]: 000209fa 2f 11 |/ | MOVE.L (A1),-(A7) 000209fc 4e ba f8 3e |N > | JSR 0x2023c 00020a00 60 ec |` | BRA 0x209ee 00020a02 switch@0x209d8[0x3]: 00020a02 2f 11 |/ | MOVE.L (A1),-(A7) 00020a04 4e ba fa 70 |N p | JSR 0x20476 00020a08 60 e4 |` | BRA 0x209ee 00020a0a 42 10 |B | CLR.B (A0) 00020a0c 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1 00020a10 4e 5e |N^ | UNLK A6 00020a12 4e 75 |Nu | RTS 00020a14 ; -------------------------------------------------------------------------------------- 00020a14 ; OMSI PASCAL Function 00020a14 ; <LVAR 0x008 4(r)> 00020a14 ; -------------------------------------------------------------------------------------- 00020a14 4e 56 ff f0 |NV | LINK.W A6,#0xfff0 00020a18 bf d5 | | CMPA.L (A5),A7 00020a1a 62 06 |b | BHI 0x20a22 00020a1c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020a20 4e 76 |Nv | TRAPV 00020a22 de fc 00 10 | | ADDA.W #0x10,A7 00020a26 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7) 00020a2a 4e b9 00 01 03 98 |N | JSR FSCALL_10398 00020a30 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00020a34 43 fa f7 d4 |C | LEA.L 0x2020a,A1 00020a38 70 09 |p | MOVEQ.L #0x09,D0 00020a3a 10 d9 | | MOVE.B (A1)+,(A0)+ 00020a3c 51 c8 ff fc |Q | DBF D0,0x20a3a 00020a40 42 39 00 02 4c 0e |B9 L | CLR.B 0x24c0e 00020a46 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1 00020a4a 4e 5e |N^ | UNLK A6 00020a4c 4e 75 |Nu | RTS 00020a4e ; -------------------------------------------------------------------------------------- 00020a4e ; COMMAND TABLE 00020a4e ; -------------------------------------------------------------------------------------- 00020a4e COMMAND_TABLE_20a4e: 00020a4e 21 40 23 24 25 5e 26 2a |!@#$%^&*| .TXT '!@#$%^&*()' 00020a58 57 52 49 54 45 20 20 20 |WRITE | .TXT 'WRITE ' 00020a62 42 59 45 20 20 20 20 20 |BYE | .TXT 'BYE ' 00020a6c 48 45 41 50 20 20 20 20 |HEAP | .TXT 'HEAP ' 00020a76 48 45 4c 50 20 20 20 20 |HELP | .TXT 'HELP ' 00020a80 41 42 4f 52 54 20 20 20 |ABORT | .TXT 'ABORT ' 00020a8a 43 4f 4d 4d 45 4e 54 20 |COMMENT | .TXT 'COMMENT ' 00020a94 53 45 54 20 20 20 20 20 |SET | .TXT 'SET ' 00020a9e 56 41 52 20 20 20 20 20 |VAR | .TXT 'VAR ' 00020aa8 56 41 52 53 20 20 20 20 |VARS | .TXT 'VARS ' 00020ab2 45 51 20 20 20 20 20 20 |EQ | .TXT 'EQ ' 00020abc 4e 45 20 20 20 20 20 20 |NE | .TXT 'NE ' 00020ac6 43 41 53 45 20 20 20 20 |CASE | .TXT 'CASE ' 00020ad0 49 4e 53 45 52 54 20 20 |INSERT | .TXT 'INSERT ' 00020ada 45 58 54 52 41 43 54 20 |EXTRACT | .TXT 'EXTRACT ' 00020ae4 23 43 41 53 45 20 20 20 |#CASE | .TXT '#CASE ' 00020aee 23 45 51 20 20 20 20 20 |#EQ | .TXT '#EQ ' 00020af8 23 4e 45 20 20 20 20 20 |#NE | .TXT '#NE ' 00020b02 23 4c 54 20 20 20 20 20 |#LT | .TXT '#LT ' 00020b0c 23 47 54 20 20 20 20 20 |#GT | .TXT '#GT ' 00020b16 23 4c 45 20 20 20 20 20 |#LE | .TXT '#LE ' 00020b20 23 47 45 20 20 20 20 20 |#GE | .TXT '#GE ' 00020b2a 41 44 44 20 20 20 20 20 |ADD | .TXT 'ADD ' 00020b34 53 55 42 20 20 20 20 20 |SUB | .TXT 'SUB ' 00020b3e 4d 55 4c 20 20 20 20 20 |MUL | .TXT 'MUL ' 00020b48 44 49 56 20 20 20 20 20 |DIV | .TXT 'DIV ' 00020b52 4d 4f 44 20 20 20 20 20 |MOD | .TXT 'MOD ' 00020b5c 4f 52 20 20 20 20 20 20 |OR | .TXT 'OR ' 00020b66 41 4e 44 20 20 20 20 20 |AND | .TXT 'AND ' 00020b70 58 4f 52 20 20 20 20 20 |XOR | .TXT 'XOR ' 00020b7a 4c 53 48 49 46 54 20 20 |LSHIFT | .TXT 'LSHIFT ' 00020b84 52 53 48 49 46 54 20 20 |RSHIFT | .TXT 'RSHIFT ' 00020b8e 4e 4f 54 20 20 20 20 20 |NOT | .TXT 'NOT ' 00020b98 23 49 4e 53 45 52 54 20 |#INSERT | .TXT '#INSERT ' 00020ba2 23 45 58 54 52 41 43 54 |#EXTRACT| .TXT '#EXTRACT ' 00020bac 52 45 41 44 20 20 20 20 |READ | .TXT 'READ ' 00020bb6 4b 49 4c 4c 20 20 20 20 |KILL | .TXT 'KILL ' 00020bc0 50 55 53 48 20 20 20 20 |PUSH | .TXT 'PUSH ' 00020bca 4c 45 56 45 4c 20 20 20 |LEVEL | .TXT 'LEVEL ' 00020bd4 43 4f 4e 56 45 52 54 20 |CONVERT | .TXT 'CONVERT ' 00020bde 43 4f 55 4e 54 5f 4f 4e |COUNT_ON| .TXT 'COUNT_ONES' 00020be8 52 45 50 45 41 54 20 20 |REPEAT | .TXT 'REPEAT ' 00020bf2 4d 4f 44 45 4c 20 20 20 |MODEL | .TXT 'MODEL ' 00020bfc 41 53 43 49 49 20 20 20 |ASCII | .TXT 'ASCII ' 00020c06 57 72 6f 6e 67 20 6e 75 |Wrong nu| .TXT 'Wrong number of arguments for :_' 00020c26 45 51 |EQ | .XXX[0x2] 00020c28 2c 4e 45 2c 23 45 51 2c |,NE,#EQ,| .XXX[0x38] 00020c30 23 4e 45 2c 23 4c 54 2c |#NE,#LT,| 00020c38 23 47 54 2c 23 4c 45 2c |#GT,#LE,| 00020c40 23 47 45 2c 45 4c 53 45 |#GE,ELSE| 00020c48 5d 45 4e 44 5d 43 41 53 |]END]CAS| 00020c50 45 2c 23 43 41 53 45 2c |E,#CASE,| 00020c58 57 48 45 4e 2c 45 4e 44 |WHEN,END| 00020c60 43 41 53 45 5d 20 |CASE] | .XXX[0x6] 00020c66 45 76 61 6c 75 61 74 69 |Evaluati| .TXT 'Evaluation buffer overflow. ' 00020c82 55 6e 62 61 6c 61 6e 63 |Unbalanc| .TXT 'Unbalanced [ELSE] or [END]! ' 00020c9e 5b 57 48 45 4e 20 5d 20 |[WHEN ] | .TXT '[WHEN ] ' 00020ca8 4e 6f 20 63 61 73 65 20 |No case | .TXT 'No case alternative found!' 00020cc2 4e 6f 20 5b 45 4e 44 43 |No [ENDC| .TXT 'No [ENDCASE] found! ' 00020cd6 4e 6f 20 68 65 6c 70 20 |No help | .TXT 'No help available for_' 00020cec 2e 48 4c 50 |.HLP | .TXT '.HLP' 00020cf0 54 6f 6f 20 66 65 77 20 |Too few | .TXT 'Too few arguments for SET ' 00020d0a 55 6e 6b 6e 6f 77 6e 20 |Unknown | .TXT 'Unknown variable :_ ' 00020d1e 20 69 73 20 6e 6f 74 20 | is not | .TXT ' is not a program.' 00020d30 43 4c |CL | .TXT 'CL' 00020d32 49 20 |I | .XXX[0x2] 00020d34 2e 4d 32 30 30 20 |.M200 | .TXT '.M200 ' 00020d3a 53 54 |ST | .TXT 'ST' 00020d3c 41 54 |AT | .TXT 'AT' 00020d3e 55 53 |US | .TXT 'US' 00020d40 52 45 |RE | .TXT 'RE' 00020d42 53 55 |SU | .TXT 'SU' 00020d44 4c 54 |LT | .TXT 'LT' 00020d46 4f 66 66 73 65 74 2f 4c |Offset/L| .TXT 'Offset/Length error in [INSERT] ' 00020d66 52 45 50 45 41 54 69 6e |REPEATin| .TXT 'REPEATing, type ^G to exit. ' 00020d82 41 53 43 49 49 20 61 72 |ASCII ar| .TXT 'ASCII argument out of range.' 00020d9e 4e 6f 74 20 61 20 63 6f |Not a co| .TXT 'Not a command or macro :_ ' 00020db8 49 6c 6c 65 67 61 6c 20 |Illegal | .TXT 'Illegal marker argument ' 00020dd0 53 77 69 74 63 68 20 65 |Switch e| .TXT 'Switch exclusion is unimplemented.' 00020df2 49 6c 6c 65 67 61 6c 20 |Illegal | .TXT 'Illegal argument marker.' 00020e0a 49 6c 6c 65 67 61 6c 20 |Illegal | .TXT 'Illegal argument marker.' 00020e22 5b 49 4e 49 54 5d 5b 20 |[INIT][ | .TXT '[INIT][ ' 00020e2a 5d 5b 42 59 45 5d 3b 20 |][BYE]; | .TXT '][BYE]; ' 00020e32 5b 49 4e 49 54 5d 3b 20 |[INIT]; | .TXT '[INIT]; ' 00020e3a 3e 5f |>_ | .TXT '>_' 00020e3c 5b 20 |[ | .TXT '[ ' 00020e3e 5d 3b |]; | .TXT '];' 00020e40 ; -------------------------------------------------------------------------------------- 00020e40 ; COMMAND TABLE 00020e40 ; -------------------------------------------------------------------------------------- 00020e40 COMMAND_TABLE_20e40: 00020e40 21 40 23 24 25 5e 26 2a |!@#$%^&*| .TXT '!@#$%^&*()' 00020e4a 57 52 49 54 45 20 20 20 |WRITE | .TXT 'WRITE ' 00020e54 42 59 45 20 20 20 20 20 |BYE | .TXT 'BYE ' 00020e5e 48 45 41 50 20 20 20 20 |HEAP | .TXT 'HEAP ' 00020e68 48 45 4c 50 20 20 20 20 |HELP | .TXT 'HELP ' 00020e72 41 42 4f 52 54 20 20 20 |ABORT | .TXT 'ABORT ' 00020e7c 43 4f 4d 4d 45 4e 54 20 |COMMENT | .TXT 'COMMENT ' 00020e86 53 45 54 20 20 20 20 20 |SET | .TXT 'SET ' 00020e90 56 41 52 20 20 20 20 20 |VAR | .TXT 'VAR ' 00020e9a 56 41 52 53 20 20 20 20 |VARS | .TXT 'VARS ' 00020ea4 45 51 20 20 20 20 20 20 |EQ | .TXT 'EQ ' 00020eae 4e 45 20 20 20 20 20 20 |NE | .TXT 'NE ' 00020eb8 43 41 53 45 20 20 20 20 |CASE | .TXT 'CASE ' 00020ec2 49 4e 53 45 52 54 20 20 |INSERT | .TXT 'INSERT ' 00020ecc 45 58 54 52 41 43 54 20 |EXTRACT | .TXT 'EXTRACT ' 00020ed6 23 43 41 53 45 20 20 20 |#CASE | .TXT '#CASE ' 00020ee0 23 45 51 20 20 20 20 20 |#EQ | .TXT '#EQ ' 00020eea 23 4e 45 20 20 20 20 20 |#NE | .TXT '#NE ' 00020ef4 23 4c 54 20 20 20 20 20 |#LT | .TXT '#LT ' 00020efe 23 47 54 20 20 20 20 20 |#GT | .TXT '#GT ' 00020f08 23 4c 45 20 20 20 20 20 |#LE | .TXT '#LE ' 00020f12 23 47 45 20 20 20 20 20 |#GE | .TXT '#GE ' 00020f1c 41 44 44 20 20 20 20 20 |ADD | .TXT 'ADD ' 00020f26 53 55 42 20 20 20 20 20 |SUB | .TXT 'SUB ' 00020f30 4d 55 4c 20 20 20 20 20 |MUL | .TXT 'MUL ' 00020f3a 44 49 56 20 20 20 20 20 |DIV | .TXT 'DIV ' 00020f44 4d 4f 44 20 20 20 20 20 |MOD | .TXT 'MOD ' 00020f4e 4f 52 20 20 20 20 20 20 |OR | .TXT 'OR ' 00020f58 41 4e 44 20 20 20 20 20 |AND | .TXT 'AND ' 00020f62 58 4f 52 20 20 20 20 20 |XOR | .TXT 'XOR ' 00020f6c 4c 53 48 49 46 54 20 20 |LSHIFT | .TXT 'LSHIFT ' 00020f76 52 53 48 49 46 54 20 20 |RSHIFT | .TXT 'RSHIFT ' 00020f80 4e 4f 54 20 20 20 20 20 |NOT | .TXT 'NOT ' 00020f8a 23 49 4e 53 45 52 54 20 |#INSERT | .TXT '#INSERT ' 00020f94 23 45 58 54 52 41 43 54 |#EXTRACT| .TXT '#EXTRACT ' 00020f9e 52 45 41 44 20 20 20 20 |READ | .TXT 'READ ' 00020fa8 4b 49 4c 4c 20 20 20 20 |KILL | .TXT 'KILL ' 00020fb2 50 55 53 48 20 20 20 20 |PUSH | .TXT 'PUSH ' 00020fbc 4c 45 56 45 4c 20 20 20 |LEVEL | .TXT 'LEVEL ' 00020fc6 43 4f 4e 56 45 52 54 20 |CONVERT | .TXT 'CONVERT ' 00020fd0 43 4f 55 4e 54 5f 4f 4e |COUNT_ON| .TXT 'COUNT_ONES' 00020fda 52 45 50 45 41 54 20 20 |REPEAT | .TXT 'REPEAT ' 00020fe4 4d 4f 44 45 4c 20 20 20 |MODEL | .TXT 'MODEL ' 00020fee 41 53 43 49 49 20 20 20 |ASCII | .TXT 'ASCII ' 00020ff8 a5 34 45 73 34 22 46 75 | 4Es4"Fu| .XXX[0x98] 00021000 33 33 33 33 33 32 33 66 |3333323f| 00021008 37 84 44 57 a6 55 0f 00 |7 DW U | 00021010 f0 ff 10 22 14 31 22 22 | " 1""| 00021018 22 22 22 22 22 22 14 3f |"""""" ?| 00021020 1f 03 10 0f 00 00 00 00 | | 00021028 ff ff ff ff 00 01 01 00 | | 00021030 01 01 00 01 02 00 00 01 | | 00021038 02 00 01 02 00 01 14 06 | | 00021040 01 14 08 14 0f 02 03 14 | | 00021048 14 08 14 0f 14 14 14 14 | | 00021050 14 14 14 04 14 05 14 14 | | 00021058 14 14 14 14 14 14 14 14 | | 00021060 14 04 14 14 14 14 14 14 | | 00021068 04 14 07 14 14 14 14 04 | | 00021070 14 14 14 14 14 14 0c 14 | | 00021078 14 09 14 14 14 0d 14 14 | | 00021080 14 0b 0a 14 0e 14 14 14 | | 00021088 08 14 14 0c 14 14 09 14 | | 00021090 14 14 14 14 14 14 14 14 | | .BLANK 14[0x10] 000210a0 14 14 14 14 14 14 14 10 | | .XXX[0x28] 000210a8 14 14 11 14 14 14 14 14 | | 000210b0 14 14 14 14 14 13 14 14 | | 000210b8 14 14 14 12 14 14 14 11 | | 000210c0 14 14 14 14 14 14 14 14 | | 000210c8 14 14 | | .XXX[0x2] 000210ca ; -------------------------------------------------------------------------------------- 000210ca ; OMSI PASCAL Function 000210ca ; <LVAR 0x008 4(r)> 000210ca ; <LVAR -0x004 @ 4(w)> 000210ca ; -------------------------------------------------------------------------------------- 000210ca 4e 56 ff e8 |NV | LINK.W A6,#0xffe8 000210ce bf d5 | | CMPA.L (A5),A7 000210d0 62 06 |b | BHI 0x210d8 000210d2 44 fc 00 02 |D | MOVE.W #0x2,CCR 000210d6 4e 76 |Nv | TRAPV 000210d8 de fc 00 10 | | ADDA.W #0x10,A7 000210dc 48 e7 00 08 |H | MOVEM.L A4,-(A7) 000210e0 28 6e 00 08 |(n | MOVEA.L (A6+0x8),A4 000210e4 b8 fc 00 01 | | CMPA.W #0x1,A4 000210e8 67 1a |g | BEQ 0x21104 000210ea 2d 4c ff fc |-L | MOVE.L A4,(A6-0x4) 000210ee 28 6c 00 08 |(l | MOVEA.L (A4+0x8),A4 000210f2 48 6e ff fc |Hn | PEA.L (A6-0x4) 000210f6 48 78 00 0c |Hx | PEA.L 0xc 000210fa 4e b9 00 01 02 a8 |N | JSR Free2(a : Pointer; b : Long) 00021100 50 4f |PO | ADDQ.L #0x8,A7 00021102 60 e0 |` | BRA 0x210e4 00021104 4c df 10 00 |L | MOVEM.L (A7)+,A4 00021108 4e 5e |N^ | UNLK A6 0002110a 4e 75 |Nu | RTS 0002110c ; -------------------------------------------------------------------------------------- 0002110c ; OMSI PASCAL Function 0002110c ; <LVAR 0x008 4(r)> 0002110c ; -------------------------------------------------------------------------------------- 0002110c 4e 56 ff f0 |NV | LINK.W A6,#0xfff0 00021110 bf d5 | | CMPA.L (A5),A7 00021112 62 06 |b | BHI 0x2111a 00021114 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021118 4e 76 |Nv | TRAPV 0002111a de fc 00 10 | | ADDA.W #0x10,A7 0002111e 48 e7 00 80 |H | MOVEM.L A0,-(A7) 00021122 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00021126 b0 fc 00 01 | | CMPA.W #0x1,A0 0002112a 67 0a |g | BEQ 0x21136 0002112c 2f 08 |/ | MOVE.L A0,-(A7) 0002112e 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00021134 58 4f |XO | ADDQ.L #0x4,A7 00021136 2e 6d 00 08 |.m | MOVEA.L (A5+0x8),A7 0002113a 3c 7c 00 00 |<| | MOVEA.W #0x0,A6 0002113e 4e f9 00 02 49 e8 |N I | JMP 0x249e8 00021144 4c df 01 00 |L | .XXX[0x4] 00021148 4e 5e 4e 75 4e 56 ff fc |N^NuNV | .XXX[0x20] 00021150 bf d5 62 06 44 fc 00 02 | b D | 00021158 4e 76 de fc 00 04 2d 79 |Nv -y| 00021160 00 02 8c 1e 00 08 4e 5e | N^| 00021168 4e 75 |Nu | .XXX[0x2] 0002116a ; -------------------------------------------------------------------------------------- 0002116a ; OMSI PASCAL Function 0002116a ; <LVAR 0x008 1(rw)> 0002116a ; -------------------------------------------------------------------------------------- 0002116a 4e 56 ff f0 |NV | LINK.W A6,#0xfff0 0002116e bf d5 | | CMPA.L (A5),A7 00021170 62 06 |b | BHI 0x21178 00021172 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021176 4e 76 |Nv | TRAPV 00021178 de fc 00 10 | | ADDA.W #0x10,A7 0002117c 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 00021180 20 39 00 02 8c 1e | 9 | MOVE.L 0x28c1e,D0 00021186 b0 b9 00 02 8c 22 | " | CMP.L 0x28c22,D0 0002118c 6f 06 |o | BLE 0x21194 0002118e 42 2e 00 08 |B. | CLR.B (A6+0x8) 00021192 60 0c |` | BRA 0x211a0 00021194 41 f9 00 02 6c 16 |A l | LEA.L 0x26c16,A0 0002119a 1d 70 08 07 00 08 | p | MOVE.B (A0+D0.L+#0x7),(A6+0x8) 000211a0 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 000211a4 4e 5e |N^ | UNLK A6 000211a6 4e 75 |Nu | RTS 000211a8 ; -------------------------------------------------------------------------------------- 000211a8 ; OMSI PASCAL Function 000211a8 ; <LVAR 0x008 1(rw)> 000211a8 ; -------------------------------------------------------------------------------------- 000211a8 4e 56 ff ec |NV | LINK.W A6,#0xffec 000211ac bf d5 | | CMPA.L (A5),A7 000211ae 62 06 |b | BHI 0x211b6 000211b0 44 fc 00 02 |D | MOVE.W #0x2,CCR 000211b4 4e 76 |Nv | TRAPV 000211b6 de fc 00 14 | | ADDA.W #0x14,A7 000211ba 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7) 000211be 43 f9 00 02 8c 1e |C | LEA.L 0x28c1e,A1 000211c4 20 11 | | MOVE.L (A1),D0 000211c6 b0 b9 00 02 8c 22 | " | CMP.L 0x28c22,D0 000211cc 6f 06 |o | BLE 0x211d4 000211ce 42 2e 00 08 |B. | CLR.B (A6+0x8) 000211d2 60 0c |` | BRA 0x211e0 000211d4 41 f9 00 02 6c 16 |A l | LEA.L 0x26c16,A0 000211da 1d 70 08 07 00 08 | p | MOVE.B (A0+D0.L+#0x7),(A6+0x8) 000211e0 52 80 |R | ADDQ.L #0x1,D0 000211e2 22 80 |" | MOVE.L D0,(A1) 000211e4 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1 000211e8 4e 5e |N^ | UNLK A6 000211ea 4e 75 |Nu | RTS 000211ec ; -------------------------------------------------------------------------------------- 000211ec ; OMSI PASCAL Function 000211ec ; <LVAR 0x00c 4(r)> 000211ec ; <LVAR 0x008 4(r)> 000211ec ; -------------------------------------------------------------------------------------- 000211ec 4e 56 ff c0 |NV | LINK.W A6,#0xffc0 000211f0 bf d5 | | CMPA.L (A5),A7 000211f2 62 06 |b | BHI 0x211fa 000211f4 44 fc 00 02 |D | MOVE.W #0x2,CCR 000211f8 4e 76 |Nv | TRAPV 000211fa de fc 00 38 | 8 | ADDA.W #0x38,A7 000211fe 48 e7 ff f0 |H | MOVEM.L A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00021202 45 ee 00 08 |E | LEA.L (A6+0x8),A2 00021206 47 f9 00 02 8c 1e |G | LEA.L 0x28c1e,A3 0002120c 72 5b |r[ | MOVEQ.L #0x5b,D1 0002120e 74 02 |t | MOVEQ.L #0x02,D2 00021210 76 2c |v, | MOVEQ.L #0x2c,D3 00021212 78 3b |x; | MOVEQ.L #0x3b,D4 00021214 55 4f |UO | SUBQ.L #0x2,A7 00021216 4e ba ff 52 |N R | JSR 0x2116a 0002121a 10 1f | | MOVE.B (A7)+,D0 0002121c b0 01 | | CMP.B D1,D0 0002121e 66 0a |f | BNE 0x2122a 00021220 4e b9 00 02 44 f2 |N D | JSR 0x244f2 00021226 60 00 00 92 |` | BRA 0x212ba 0002122a 2c 13 |, | MOVE.L (A3),D6 0002122c 55 4f |UO | SUBQ.L #0x2,A7 0002122e 4e ba ff 78 |N x | JSR 0x211a8 00021232 1a 1f | | MOVE.B (A7)+,D5 00021234 66 18 |f | BNE 0x2124e 00021236 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 0002123a 43 fa fd e8 |C | LEA.L 0x21024,A1 0002123e 70 07 |p | MOVEQ.L #0x07,D0 00021240 10 d9 | | MOVE.B (A1)+,(A0)+ 00021242 51 c8 ff fc |Q | DBF D0,0x21240 00021246 20 52 | R | MOVEA.L (A2),A0 00021248 10 82 | | MOVE.B D2,(A0) 0002124a 60 72 |`r | BRA 0x212be 0002124c 60 5c |`\ | .XXX[0x2] 0002124e ba 03 | | CMP.B D3,D5 00021250 66 08 |f | BNE 0x2125a 00021252 20 52 | R | MOVEA.L (A2),A0 00021254 10 bc 00 03 | | MOVE.B #0x03,(A0) 00021258 60 50 |`P | BRA 0x212aa 0002125a ba 04 | | CMP.B D4,D5 0002125c 66 08 |f | BNE 0x21266 0002125e 20 52 | R | MOVEA.L (A2),A0 00021260 10 bc 00 01 | | MOVE.B #0x01,(A0) 00021264 60 44 |`D | BRA 0x212aa 00021266 0c 05 00 5d | ] | CMPI.B #0x5d,D5 0002126a 66 06 |f | BNE 0x21272 0002126c 20 52 | R | MOVEA.L (A2),A0 0002126e 10 82 | | MOVE.B D2,(A0) 00021270 60 38 |`8 | BRA 0x212aa 00021272 20 52 | R | MOVEA.L (A2),A0 00021274 42 10 |B | CLR.B (A0) 00021276 55 4f |UO | SUBQ.L #0x2,A7 00021278 4e ba fe f0 |N | JSR 0x2116a 0002127c 1e 1f | | MOVE.B (A7)+,D7 0002127e be 01 | | CMP.B D1,D7 00021280 66 08 |f | BNE 0x2128a 00021282 4e b9 00 02 44 f2 |N D | JSR 0x244f2 00021288 60 1e |` | BRA 0x212a8 0002128a be 04 | | CMP.B D4,D7 0002128c 67 0e |g | BEQ 0x2129c 0002128e be 03 | | CMP.B D3,D7 00021290 67 0a |g | BEQ 0x2129c 00021292 0c 07 00 5d | ] | CMPI.B #0x5d,D7 00021296 67 04 |g | BEQ 0x2129c 00021298 4a 07 |J | TST.B D7 0002129a 66 04 |f | BNE 0x212a0 0002129c 60 0c |` | BRA 0x212aa 0002129e 60 08 |` | .XXX[0x2] 000212a0 55 4f |UO | SUBQ.L #0x2,A7 000212a2 4e ba ff 04 |N | JSR 0x211a8 000212a6 1e 1f | | MOVE.B (A7)+,D7 000212a8 60 cc |` | BRA 0x21276 000212aa 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 000212ae 20 86 | | MOVE.L D6,(A0) 000212b0 21 53 00 04 |!S | MOVE.L (A3),(A0+0x4) 000212b4 53 a8 00 04 |S | SUBQ.L #0x1,(A0+0x4) 000212b8 60 04 |` | BRA 0x212be 000212ba 60 00 ff 58 |` X | BRA 0x21214 000212be 4c df 0f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3 000212c2 4e 5e |N^ | UNLK A6 000212c4 4e 75 |Nu | RTS 000212c6 ; -------------------------------------------------------------------------------------- 000212c6 ; OMSI PASCAL Function 000212c6 ; <LVAR 0x010 4(r)> 000212c6 ; <LVAR 0x00c 4(r)> 000212c6 ; <LVAR 0x008 4(r)> 000212c6 ; <LVAR -0x004 @ 1(rw)> 000212c6 ; <LVAR -0x008 4(w)> 000212c6 ; <LVAR -0x00c @ 4(w)> 000212c6 ; -------------------------------------------------------------------------------------- 000212c6 4e 56 ff ca |NV | LINK.W A6,#0xffca 000212ca bf d5 | | CMPA.L (A5),A7 000212cc 62 06 |b | BHI 0x212d4 000212ce 44 fc 00 02 |D | MOVE.W #0x2,CCR 000212d2 4e 76 |Nv | TRAPV 000212d4 de fc 00 2a | * | ADDA.W #0x2a,A7 000212d8 48 e7 c0 f0 |H | MOVEM.L A3+A2+A1+A0+D1+D0,-(A7) 000212dc 45 ee ff fc |E | LEA.L (A6-0x4),A2 000212e0 47 ee ff f4 |G | LEA.L (A6-0xc),A3 000212e4 72 03 |r | MOVEQ.L #0x03,D1 000212e6 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 000212ea 10 10 | | MOVE.B (A0),D0 000212ec 0c 00 00 01 | | CMPI.B #0x01,D0 000212f0 67 06 |g | BEQ 0x212f8 000212f2 0c 00 00 02 | | CMPI.B #0x02,D0 000212f6 66 0e |f | BNE 0x21306 000212f8 26 ba fd 2a |& * | MOVE.L 0x21024,(A3) 000212fc 2d 7a fd 2a ff f8 |-z * | MOVE.L 0x21028,(A6-0x8) 00021302 14 80 | | MOVE.B D0,(A2) 00021304 60 3c |`< | BRA 0x21342 00021306 48 53 |HS | PEA.L (A3) 00021308 48 52 |HR | PEA.L (A2) 0002130a 4e ba fe e0 |N | JSR 0x211ec 0002130e 50 4f |PO | ADDQ.L #0x8,A7 00021310 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00021314 4a 12 |J | TST.B (A2) 00021316 67 1c |g | BEQ 0x21334 00021318 10 10 | | MOVE.B (A0),D0 0002131a b0 01 | | CMP.B D1,D0 0002131c 66 16 |f | BNE 0x21334 0002131e 10 12 | | MOVE.B (A2),D0 00021320 48 80 |H | EXTB.W D0 00021322 41 81 |A | CHK.W D1,D0 00021324 10 80 | | MOVE.B D0,(A0) 00021326 26 ba fc fc |& | MOVE.L 0x21024,(A3) 0002132a 2d 7a fc fc ff f8 |-z | MOVE.L 0x21028,(A6-0x8) 00021330 42 12 |B | CLR.B (A2) 00021332 60 08 |` | BRA 0x2133c 00021334 10 12 | | MOVE.B (A2),D0 00021336 48 80 |H | EXTB.W D0 00021338 41 81 |A | CHK.W D1,D0 0002133a 10 80 | | MOVE.B D0,(A0) 0002133c 10 12 | | MOVE.B (A2),D0 0002133e b0 01 | | CMP.B D1,D0 00021340 67 c4 |g | BEQ 0x21306 00021342 20 6e 00 10 | n | MOVEA.L (A6+0x10),A0 00021346 22 4b |"K | MOVEA.L A3,A1 00021348 70 07 |p | MOVEQ.L #0x07,D0 0002134a 10 d9 | | MOVE.B (A1)+,(A0)+ 0002134c 51 c8 ff fc |Q | DBF D0,0x2134a 00021350 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 00021354 10 12 | | MOVE.B (A2),D0 00021356 48 80 |H | EXTB.W D0 00021358 41 81 |A | CHK.W D1,D0 0002135a 10 80 | | MOVE.B D0,(A0) 0002135c 4c df 0f 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2+A3 00021360 4e 5e |N^ | UNLK A6 00021362 4e 75 |Nu | RTS 00021364 ; -------------------------------------------------------------------------------------- 00021364 ; OMSI PASCAL Function 00021364 ; <LVAR 0x008 4(rw)> 00021364 ; <LVAR -0x004 1(rw)> 00021364 ; <LVAR -0x010 2(rw)> 00021364 ; -------------------------------------------------------------------------------------- 00021364 4e 56 ff c0 |NV | LINK.W A6,#0xffc0 00021368 bf d5 | | CMPA.L (A5),A7 0002136a 62 06 |b | BHI 0x21372 0002136c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021370 4e 76 |Nv | TRAPV 00021372 de fc 00 30 | 0 | ADDA.W #0x30,A7 00021376 48 e7 c7 f0 |H | MOVEM.L A3+A2+A1+A0+D7+D6+D5+D1+D0,-(A7) 0002137a 43 ee ff f0 |C | LEA.L (A6-0x10),A1 0002137e 45 ee ff fc |E | LEA.L (A6-0x4),A2 00021382 47 ee 00 08 |G | LEA.L (A6+0x8),A3 00021386 72 20 |r | MOVEQ.L #0x20,D1 00021388 7c 01 || | MOVEQ.L #0x01,D6 0002138a 42 51 |BQ | CLR.W (A1) 0002138c 7a 01 |z | MOVEQ.L #0x01,D5 0002138e 59 4f |YO | SUBQ.L #0x4,A7 00021390 2f 13 |/ | MOVE.L (A3),-(A7) 00021392 4e b9 00 01 02 f0 |N | JSR ToUpper(a : String) : String 00021398 58 4f |XO | ADDQ.L #0x4,A7 0002139a 26 9f |& | MOVE.L (A7)+,(A3) 0002139c 20 53 | S | MOVEA.L (A3),A0 0002139e 2f 08 |/ | MOVE.L A0,-(A7) 000213a0 20 57 | W | MOVEA.L (A7),A0 000213a2 30 10 |0 | MOVE.W (A0),D0 000213a4 48 c0 |H | EXTW.L D0 000213a6 bc 80 | | CMP.L D0,D6 000213a8 6e 00 00 b0 |n | BGT 0x2145a 000213ac 42 80 |B | CLR.L D0 000213ae 10 30 68 01 | 0h | MOVE.B (A0+D6.L+#0x1),D0 000213b2 02 40 00 7f | @ | ANDI.W #0x007f,D0 000213b6 14 80 | | MOVE.B D0,(A2) 000213b8 0c 00 00 09 | | CMPI.B #0x09,D0 000213bc 66 02 |f | BNE 0x213c0 000213be 14 81 | | MOVE.B D1,(A2) 000213c0 42 80 |B | CLR.L D0 000213c2 10 12 | | MOVE.B (A2),D0 000213c4 90 41 | A | SUB.W D1,D0 000213c6 0c 40 00 0c | @ | CMPI.W #0x000c,D0 000213ca 62 30 |b0 | BHI switch@0x213ce[0x2] 000213cc d0 40 | @ | ADD.W D0,D0 000213ce 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 000213d6 00 1e | | .CONST 0x1e ; [0x0] -> 0x213f4 000213d8 00 1a | | .CONST 0x1a ; [0x1] -> 0x213f0 000213da 00 26 | & | .CONST 0x26 ; [0x2] -> 0x213fc 000213dc 00 26 | & | .CONST 0x26 ; [0x3] -> 0x213fc 000213de 00 26 | & | .CONST 0x26 ; [0x4] -> 0x213fc 000213e0 00 26 | & | .CONST 0x26 ; [0x5] -> 0x213fc 000213e2 00 26 | & | .CONST 0x26 ; [0x6] -> 0x213fc 000213e4 00 26 | & | .CONST 0x26 ; [0x7] -> 0x213fc 000213e6 00 26 | & | .CONST 0x26 ; [0x8] -> 0x213fc 000213e8 00 26 | & | .CONST 0x26 ; [0x9] -> 0x213fc 000213ea 00 26 | & | .CONST 0x26 ; [0xa] -> 0x213fc 000213ec 00 26 | & | .CONST 0x26 ; [0xb] -> 0x213fc 000213ee 00 22 | " | .CONST 0x22 ; [0xc] -> 0x213f8 000213f0 switch@0x213ce[0x1]: 000213f0 60 68 |`h | BRA 0x2145a 000213f2 60 0a |` | .XXX[0x2] 000213f4 switch@0x213ce[0x0]: 000213f4 7e 00 |~ | MOVEQ.L #0x00,D7 000213f6 60 06 |` | BRA 0x213fe 000213f8 switch@0x213ce[0xc]: 000213f8 7e 01 |~ | MOVEQ.L #0x01,D7 000213fa 60 02 |` | BRA 0x213fe 000213fc switch@0x213ce[0x2]: 000213fc switch@0x213ce[0x3]: 000213fc switch@0x213ce[0x4]: 000213fc switch@0x213ce[0x5]: 000213fc switch@0x213ce[0x6]: 000213fc switch@0x213ce[0x7]: 000213fc switch@0x213ce[0x8]: 000213fc switch@0x213ce[0x9]: 000213fc switch@0x213ce[0xa]: 000213fc switch@0x213ce[0xb]: 000213fc 7e 02 |~ | MOVEQ.L #0x02,D7 000213fe 70 03 |p | MOVEQ.L #0x03,D0 00021400 c1 d1 | | MULS.W (A1),D0 00021402 41 fa fc 28 |A ( | LEA.L 0x2102c,A0 00021406 41 f0 00 00 |A | LEA.L (A0+D0.W),A0 0002140a 42 80 |B | CLR.L D0 0002140c 10 30 70 00 | 0p | MOVE.B (A0+D7.W),D0 00021410 0c 40 00 02 | @ | CMPI.W #0x0002,D0 00021414 63 02 |c | BLS 0x21418 00021416 4e 4e |NN | TRAP #14 00021418 d0 40 | @ | ADD.W D0,D0 0002141a 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 00021422 00 06 | | .CONST 0x6 ; [0x0] -> 0x21428 00021424 00 08 | | .CONST 0x8 ; [0x1] -> 0x2142a 00021426 00 12 | | .CONST 0x12 ; [0x2] -> 0x21434 00021428 switch@0x2141a[0x0]: 00021428 60 16 |` | BRA 0x21440 0002142a switch@0x2141a[0x1]: 0002142a 20 57 | W | MOVEA.L (A7),A0 0002142c 11 92 58 01 | X | MOVE.B (A2),(A0+D5.L+#0x1) 00021430 52 85 |R | ADDQ.L #0x1,D5 00021432 60 0c |` | BRA 0x21440 00021434 switch@0x2141a[0x2]: 00021434 20 57 | W | MOVEA.L (A7),A0 00021436 11 bc 00 2c 58 01 | ,X | MOVE.B #0x2c,(A0+D5.L+#0x1) 0002143c 52 85 |R | ADDQ.L #0x1,D5 0002143e 53 86 |S | SUBQ.L #0x1,D6 00021440 70 03 |p | MOVEQ.L #0x03,D0 00021442 c1 d1 | | MULS.W (A1),D0 00021444 41 fa fb ef |A | LEA.L 0x21035,A0 00021448 41 f0 00 00 |A | LEA.L (A0+D0.W),A0 0002144c 42 80 |B | CLR.L D0 0002144e 10 30 70 00 | 0p | MOVE.B (A0+D7.W),D0 00021452 32 80 |2 | MOVE.W D0,(A1) 00021454 52 86 |R | ADDQ.L #0x1,D6 00021456 60 00 ff 48 |` H | BRA 0x213a0 0002145a 20 57 | W | MOVEA.L (A7),A0 0002145c 20 05 | | MOVE.L D5,D0 0002145e 53 80 |S | SUBQ.L #0x1,D0 00021460 30 80 |0 | MOVE.W D0,(A0) 00021462 58 4f |XO | ADDQ.L #0x4,A7 00021464 4c df 0f e3 |L | MOVEM.L (A7)+,D0+D1+D5+D6+D7+A0+A1+A2+A3 00021468 4e 5e |N^ | UNLK A6 0002146a 4e 75 |Nu | RTS 0002146c ; -------------------------------------------------------------------------------------- 0002146c ; OMSI PASCAL Function 0002146c ; <LVAR 0x00c 4(r)> 0002146c ; <LVAR 0x008 4(r)> 0002146c ; <LVAR -0x002 @ 1(r)> 0002146c ; <LVAR -0x00a @> 0002146c ; <LVAR -0x00e @ 4(r)> 0002146c ; <LVAR -0x014 @ 1(r)> 0002146c ; -------------------------------------------------------------------------------------- 0002146c 4e 56 ff bc |NV | LINK.W A6,#0xffbc 00021470 bf d5 | | CMPA.L (A5),A7 00021472 62 06 |b | BHI 0x2147a 00021474 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021478 4e 76 |Nv | TRAPV 0002147a de fc 00 30 | 0 | ADDA.W #0x30,A7 0002147e 48 e7 c1 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D1+D0,-(A7) 00021482 47 ee ff f2 |G | LEA.L (A6-0xe),A3 00021486 72 01 |r | MOVEQ.L #0x01,D1 00021488 55 4f |UO | SUBQ.L #0x2,A7 0002148a 4e ba fc de |N | JSR 0x2116a 0002148e 10 1f | | MOVE.B (A7)+,D0 00021490 0c 00 00 5b | [ | CMPI.B #0x5b,D0 00021494 66 08 |f | BNE 0x2149e 00021496 55 4f |UO | SUBQ.L #0x2,A7 00021498 4e ba fd 0e |N | JSR 0x211a8 0002149c 1e 1f | | MOVE.B (A7)+,D7 0002149e 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 000214a2 20 81 | | MOVE.L D1,(A0) 000214a4 42 2e ff ec |B. | CLR.B (A6-0x14) 000214a8 48 6e ff f6 |Hn | PEA.L (A6-0xa) 000214ac 48 6e ff fe |Hn | PEA.L (A6-0x2) 000214b0 48 6e ff ec |Hn | PEA.L (A6-0x14) 000214b4 4e ba fe 10 |N | JSR 0x212c6 000214b8 de fc 00 0c | | ADDA.W #0xc,A7 000214bc 4a 2e ff fe |J. | TST.B (A6-0x2) 000214c0 66 36 |f6 | BNE 0x214f8 000214c2 48 53 |HS | PEA.L (A3) 000214c4 48 78 00 0c |Hx | PEA.L 0xc 000214c8 4e b9 00 01 02 9c |N | JSR Malloc1(length : Long) : Pointer 000214ce 50 4f |PO | ADDQ.L #0x8,A7 000214d0 20 53 | S | MOVEA.L (A3),A0 000214d2 22 48 |"H | MOVEA.L A0,A1 000214d4 45 ee ff f6 |E | LEA.L (A6-0xa),A2 000214d8 70 07 |p | MOVEQ.L #0x07,D0 000214da 12 da | | MOVE.B (A2)+,(A1)+ 000214dc 51 c8 ff fc |Q | DBF D0,0x214da 000214e0 21 41 00 08 |!A | MOVE.L D1,(A0+0x8) 000214e4 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 000214e8 22 50 |"P | MOVEA.L (A0),A1 000214ea b2 c1 | | CMPA.W D1,A1 000214ec 66 04 |f | BNE 0x214f2 000214ee 20 93 | | MOVE.L (A3),(A0) 000214f0 60 04 |` | BRA 0x214f6 000214f2 29 53 00 08 |)S | MOVE.L (A3),(A4+0x8) 000214f6 28 53 |(S | MOVEA.L (A3),A4 000214f8 4a 2e ff fe |J. | TST.B (A6-0x2) 000214fc 67 aa |g | BEQ 0x214a8 000214fe 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00021502 42 10 |B | CLR.B (A0) 00021504 10 2e ff fe | . | MOVE.B (A6-0x2),D0 00021508 0c 00 00 02 | | CMPI.B #0x02,D0 0002150c 66 02 |f | BNE 0x21510 0002150e 52 10 |R | ADDQ.B #0x1,(A0) 00021510 4c df 1f 83 |L | MOVEM.L (A7)+,D0+D1+D7+A0+A1+A2+A3+A4 00021514 4e 5e |N^ | UNLK A6 00021516 4e 75 |Nu | RTS 00021518 ; -------------------------------------------------------------------------------------- 00021518 ; OMSI PASCAL Function 00021518 ; <LVAR 0x00c 4(w)> 00021518 ; <LVAR 0x008 4(r)> 00021518 ; -------------------------------------------------------------------------------------- 00021518 4e 56 ff ec |NV | LINK.W A6,#0xffec 0002151c bf d5 | | CMPA.L (A5),A7 0002151e 62 06 |b | BHI 0x21526 00021520 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021524 4e 76 |Nv | TRAPV 00021526 de fc 00 0c | | ADDA.W #0xc,A7 0002152a 48 e7 01 08 |H | MOVEM.L A4+D7,-(A7) 0002152e 7e ff |~ | MOVEQ.L #-0x01,D7 00021530 28 6e 00 08 |(n | MOVEA.L (A6+0x8),A4 00021534 b8 fc 00 01 | | CMPA.W #0x1,A4 00021538 67 08 |g | BEQ 0x21542 0002153a 52 87 |R | ADDQ.L #0x1,D7 0002153c 28 6c 00 08 |(l | MOVEA.L (A4+0x8),A4 00021540 60 f2 |` | BRA 0x21534 00021542 2d 47 00 0c |-G | MOVE.L D7,(A6+0xc) 00021546 4c df 10 80 |L | MOVEM.L (A7)+,D7+A4 0002154a 4e 5e |N^ | UNLK A6 0002154c 4e 75 |Nu | RTS 0002154e ; -------------------------------------------------------------------------------------- 0002154e ; OMSI PASCAL Function 0002154e ; <LVAR 0x00c 4(r)> 0002154e ; <LVAR 0x008 4(r)> 0002154e ; -------------------------------------------------------------------------------------- 0002154e 4e 56 ff b0 |NV | LINK.W A6,#0xffb0 00021552 bf d5 | | CMPA.L (A5),A7 00021554 62 06 |b | BHI 0x2155c 00021556 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002155a 4e 76 |Nv | TRAPV 0002155c de fc 00 4e | N | ADDA.W #0x4e,A7 00021560 48 e7 c0 80 |H | MOVEM.L A0+D1+D0,-(A7) 00021564 72 01 |r | MOVEQ.L #0x01,D1 00021566 59 4f |YO | SUBQ.L #0x4,A7 00021568 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 0002156c 4e ba ff aa |N | JSR 0x21518 00021570 58 4f |XO | ADDQ.L #0x4,A7 00021572 20 1f | | MOVE.L (A7)+,D0 00021574 b0 ae 00 08 | | CMP.L (A6+0x8),D0 00021578 67 58 |gX | BEQ 0x215d2 0002157a 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 0002157e 4e ba fb 4a |N J | JSR 0x210ca 00021582 58 4f |XO | ADDQ.L #0x4,A7 00021584 41 fa f6 a0 |A | LEA.L 0x20c26,A0 00021588 70 07 |p | MOVEQ.L #0x07,D0 0002158a 2f 20 |/ | MOVE.L -(A0),-(A7) 0002158c 51 c8 ff fc |Q | DBF D0,0x2158a 00021590 41 ee 00 1a |A | LEA.L (A6+0x1a),A0 00021594 70 04 |p | MOVEQ.L #0x04,D0 00021596 3f 20 |? | MOVE.W -(A0),-(A7) 00021598 51 c8 ff fc |Q | DBF D0,0x21596 0002159c 51 4f |QO | SUBQ.L #0x8,A7 0002159e 48 6f 00 12 |Ho | PEA.L (A7+0x12) 000215a2 3f 01 |? | MOVE.W D1,-(A7) 000215a4 3f 3c 00 20 |?< | MOVE.W #0x20,-(A7) 000215a8 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000215ae 58 4f |XO | ADDQ.L #0x4,A7 000215b0 48 6f 00 0c |Ho | PEA.L (A7+0xc) 000215b4 3f 01 |? | MOVE.W D1,-(A7) 000215b6 3f 3c 00 0a |?< | MOVE.W #0xa,-(A7) 000215ba 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000215c0 50 4f |PO | ADDQ.L #0x8,A7 000215c2 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000215c8 50 4f |PO | ADDQ.L #0x8,A7 000215ca 4e ba fb 40 |N @ | JSR 0x2110c 000215ce de fc 00 2e | . | ADDA.W #0x2e,A7 000215d2 4c df 01 03 |L | MOVEM.L (A7)+,D0+D1+A0 000215d6 4e 5e |N^ | UNLK A6 000215d8 4e 75 |Nu | RTS 000215da ; -------------------------------------------------------------------------------------- 000215da ; OMSI PASCAL Function 000215da ; <LVAR 0x014 1(rw)> 000215da ; <LVAR 0x010 4(r)> 000215da ; <LVAR 0x00c 4(r)> 000215da ; <LVAR 0x008 4(r)> 000215da ; -------------------------------------------------------------------------------------- 000215da 4e 56 ff dc |NV | LINK.W A6,#0xffdc ; Spelunked 000215de bf d5 | | CMPA.L (A5),A7 000215e0 62 06 |b | BHI 0x215e8 000215e2 44 fc 00 02 |D | MOVE.W #0x2,CCR 000215e6 4e 76 |Nv | TRAPV 000215e8 de fc 00 20 | | ADDA.W #0x20,A7 000215ec 48 e7 c1 c0 |H | MOVEM.L A1+A0+D7+D1+D0,-(A7) 000215f0 42 2e 00 14 |B. | CLR.B (A6+0x14) 000215f4 20 2e 00 10 | . | MOVE.L (A6+0x10),D0 000215f8 d0 ae 00 08 | | ADD.L (A6+0x8),D0 000215fc b0 b9 00 02 8c 22 | " | CMP.L 0x28c22,D0 00021602 6e 4e |nN | BGT 0x21652 00021604 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00021608 7e 01 |~ | MOVEQ.L #0x01,D7 0002160a be 97 | | CMP.L (A7),D7 0002160c 6e 42 |nB | BGT 0x21650 0002160e 20 2e 00 10 | . | MOVE.L (A6+0x10),D0 00021612 d0 87 | | ADD.L D7,D0 00021614 53 80 |S | SUBQ.L #0x1,D0 00021616 0c 80 00 00 1f ff | | CMPI.L #0x00001fff,D0 0002161c 63 02 |c | BLS 0x21620 0002161e 4e 4f |NO | TRAP #15 00021620 41 f9 00 02 6c 16 |A l | LEA.L 0x26c16,A0 00021626 22 2e 00 0c |". | MOVE.L (A6+0xc),D1 0002162a d2 87 | | ADD.L D7,D1 0002162c 53 81 |S | SUBQ.L #0x1,D1 0002162e 53 81 |S | SUBQ.L #0x1,D1 00021630 0c 81 00 00 00 3e | > | CMPI.L #0x0000003e,D1 00021636 63 02 |c | BLS 0x2163a 00021638 4e 4f |NO | TRAP #15 0002163a 43 fa f5 ea |C | LEA.L 0x20c26,A1 0002163e 10 30 08 08 | 0 | MOVE.B (A0+D0.L+#0x8),D0 00021642 b0 31 18 00 | 1 | CMP.B (A1+D1.L),D0 00021646 67 04 |g | BEQ 0x2164c 00021648 58 4f |XO | ADDQ.L #0x4,A7 0002164a 60 0c |` | BRA 0x21658 0002164c 52 87 |R | ADDQ.L #0x1,D7 0002164e 68 ba |h | BVC 0x2160a 00021650 58 4f |XO | ADDQ.L #0x4,A7 00021652 1d 7c 00 01 00 14 | | | MOVE.B #0x01,(A6+0x14) 00021658 4c df 03 83 |L | MOVEM.L (A7)+,D0+D1+D7+A0+A1 0002165c 4e 5e |N^ | UNLK A6 0002165e 4e 75 |Nu | RTS 00021660 ; -------------------------------------------------------------------------------------- 00021660 ; OMSI PASCAL Function 00021660 ; <LVAR 0x00c 4(r)> 00021660 ; <LVAR 0x008 4(r)> 00021660 ; -------------------------------------------------------------------------------------- 00021660 4e 56 ff bc |NV | LINK.W A6,#0xffbc 00021664 bf d5 | | CMPA.L (A5),A7 00021666 62 06 |b | BHI 0x2166e 00021668 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002166c 4e 76 |Nv | TRAPV 0002166e de fc 00 40 | @ | ADDA.W #0x40,A7 00021672 48 e7 80 f0 |H | MOVEM.L A3+A2+A1+A0+D0,-(A7) 00021676 45 f9 00 02 8c 22 |E " | LEA.L 0x28c22,A2 0002167c 47 ee 00 08 |G | LEA.L (A6+0x8),A3 00021680 4a 93 |J | TST.L (A3) 00021682 6c 3e |l> | BGE 0x216c2 00021684 20 13 | | MOVE.L (A3),D0 00021686 44 80 |D | NEG.L D0 00021688 d0 92 | | ADD.L (A2),D0 0002168a 0c 80 00 00 20 00 | | CMPI.L #0x00002000,D0 00021690 6f 30 |o0 | BLE 0x216c2 00021692 9e fc 00 1c | | SUBA.W #0x1c,A7 00021696 20 4f | O | MOVEA.L A7,A0 00021698 43 fa f5 cc |C | LEA.L 0x20c66,A1 0002169c 70 1a |p | MOVEQ.L #0x1a,D0 0002169e 10 d9 | | MOVE.B (A1)+,(A0)+ 000216a0 51 c8 ff fc |Q | DBF D0,0x2169e 000216a4 59 4f |YO | SUBQ.L #0x4,A7 000216a6 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000216aa 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000216ae 3f 3c 00 1b |?< | MOVE.W #0x1b,-(A7) 000216b2 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000216b8 50 4f |PO | ADDQ.L #0x8,A7 000216ba 4e ba fa 50 |N P | JSR 0x2110c 000216be de fc 00 20 | | ADDA.W #0x20,A7 000216c2 41 f9 00 02 6c 1e |A l | LEA.L 0x26c1e,A0 000216c8 2f 08 |/ | MOVE.L A0,-(A7) 000216ca 2f 12 |/ | MOVE.L (A2),-(A7) 000216cc 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 000216d0 2f 13 |/ | MOVE.L (A3),-(A7) 000216d2 4e b9 00 01 03 64 |N d | JSR MovStringTail(Base, Len, Ptr, Delta) 000216d8 de fc 00 10 | | ADDA.W #0x10,A7 000216dc 20 12 | | MOVE.L (A2),D0 000216de 90 93 | | SUB.L (A3),D0 000216e0 24 80 |$ | MOVE.L D0,(A2) 000216e2 4c df 0f 01 |L | MOVEM.L (A7)+,D0+A0+A1+A2+A3 000216e6 4e 5e |N^ | UNLK A6 000216e8 4e 75 |Nu | RTS 000216ea ; -------------------------------------------------------------------------------------- 000216ea ; OMSI PASCAL Function 000216ea ; <LVAR 0x00c 4(r)> 000216ea ; <LVAR 0x008 4(r)> 000216ea ; -------------------------------------------------------------------------------------- 000216ea 4e 56 ff d4 |NV | LINK.W A6,#0xffd4 000216ee bf d5 | | CMPA.L (A5),A7 000216f0 62 06 |b | BHI 0x216f8 000216f2 44 fc 00 02 |D | MOVE.W #0x2,CCR 000216f6 4e 76 |Nv | TRAPV 000216f8 de fc 00 28 | ( | ADDA.W #0x28,A7 000216fc 48 e7 c1 e0 |H | MOVEM.L A2+A1+A0+D7+D1+D0,-(A7) 00021700 45 ee 00 0c |E | LEA.L (A6+0xc),A2 00021704 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00021708 2f 08 |/ | MOVE.L A0,-(A7) 0002170a 22 52 |"R | MOVEA.L (A2),A1 0002170c 2f 11 |/ | MOVE.L (A1),-(A7) 0002170e 30 10 |0 | MOVE.W (A0),D0 00021710 48 c0 |H | EXTW.L D0 00021712 44 80 |D | NEG.L D0 00021714 2f 00 |/ | MOVE.L D0,-(A7) 00021716 4e ba ff 48 |N H | JSR 0x21660 0002171a 50 4f |PO | ADDQ.L #0x8,A7 0002171c 30 10 |0 | MOVE.W (A0),D0 0002171e 48 c0 |H | EXTW.L D0 00021720 2f 00 |/ | MOVE.L D0,-(A7) 00021722 7e 01 |~ | MOVEQ.L #0x01,D7 00021724 be 97 | | CMP.L (A7),D7 00021726 6e 36 |n6 | BGT 0x2175e 00021728 20 52 | R | MOVEA.L (A2),A0 0002172a 20 07 | | MOVE.L D7,D0 0002172c d0 90 | | ADD.L (A0),D0 0002172e 53 80 |S | SUBQ.L #0x1,D0 00021730 53 80 |S | SUBQ.L #0x1,D0 00021732 0c 80 00 00 1f ff | | CMPI.L #0x00001fff,D0 00021738 63 02 |c | BLS 0x2173c 0002173a 4e 4f |NO | TRAP #15 0002173c 41 f9 00 02 6c 16 |A l | LEA.L 0x26c16,A0 00021742 22 07 |" | MOVE.L D7,D1 00021744 53 81 |S | SUBQ.L #0x1,D1 00021746 0c 81 00 00 00 7d | } | CMPI.L #0x0000007d,D1 0002174c 63 02 |c | BLS 0x21750 0002174e 4e 4f |NO | TRAP #15 00021750 22 6f 00 04 |"o | MOVEA.L (A7+0x4),A1 00021754 11 b1 18 02 08 08 | | MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x8) 0002175a 52 87 |R | ADDQ.L #0x1,D7 0002175c 68 c6 |h | BVC 0x21724 0002175e 58 4f |XO | ADDQ.L #0x4,A7 00021760 20 52 | R | MOVEA.L (A2),A0 00021762 22 57 |"W | MOVEA.L (A7),A1 00021764 30 11 |0 | MOVE.W (A1),D0 00021766 48 c0 |H | EXTW.L D0 00021768 d1 90 | | ADD.L D0,(A0) 0002176a 58 4f |XO | ADDQ.L #0x4,A7 0002176c 4c df 07 83 |L | MOVEM.L (A7)+,D0+D1+D7+A0+A1+A2 00021770 4e 5e |N^ | UNLK A6 00021772 4e 75 |Nu | RTS 00021774 ; -------------------------------------------------------------------------------------- 00021774 ; OMSI PASCAL Function 00021774 ; <LVAR 0x00c 4(r)> 00021774 ; <LVAR 0x008 4(r)> 00021774 ; -------------------------------------------------------------------------------------- 00021774 4e 56 ff a8 |NV | LINK.W A6,#0xffa8 00021778 bf d5 | | CMPA.L (A5),A7 0002177a 62 06 |b | BHI 0x21782 0002177c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021780 4e 76 |Nv | TRAPV 00021782 de fc 00 50 | P | ADDA.W #0x50,A7 00021786 48 e7 c3 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D1+D0,-(A7) 0002178a 45 fa fe 4e |E N | LEA.L 0x215da,A2 0002178e 47 f8 00 04 |G | LEA.L 0x4,A3 00021792 49 ee 00 08 |I | LEA.L (A6+0x8),A4 00021796 72 0c |r | MOVEQ.L #0x0c,D1 00021798 7e 00 |~ | MOVEQ.L #0x00,D7 0002179a 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 0002179e 42 90 |B | CLR.L (A0) 000217a0 20 54 | T | MOVEA.L (A4),A0 000217a2 42 90 |B | CLR.L (A0) 000217a4 2c 39 00 02 8c 1e |,9 | MOVE.L 0x28c1e,D6 000217aa 20 06 | | MOVE.L D6,D0 000217ac 53 80 |S | SUBQ.L #0x1,D0 000217ae 0c 80 00 00 1f ff | | CMPI.L #0x00001fff,D0 000217b4 63 02 |c | BLS 0x217b8 000217b6 4e 4f |NO | TRAP #15 000217b8 41 f9 00 02 6c 16 |A l | LEA.L 0x26c16,A0 000217be 10 30 08 08 | 0 | MOVE.B (A0+D0.L+#0x8),D0 000217c2 0c 00 00 5b | [ | CMPI.B #0x5b,D0 000217c6 66 00 00 d4 |f | BNE 0x2189c 000217ca 55 4f |UO | SUBQ.L #0x2,A7 000217cc 2f 06 |/ | MOVE.L D6,-(A7) 000217ce 48 78 00 01 |Hx | PEA.L 0x1 000217d2 48 78 00 03 |Hx | PEA.L 0x3 000217d6 4e 92 |N | JSR (A2) 000217d8 de c1 | | ADDA.W D1,A7 000217da 4a 1f |J | TST.B (A7)+ 000217dc 66 7e |f~ | BNE 0x2185c 000217de 55 4f |UO | SUBQ.L #0x2,A7 000217e0 2f 06 |/ | MOVE.L D6,-(A7) 000217e2 48 53 |HS | PEA.L (A3) 000217e4 48 78 00 03 |Hx | PEA.L 0x3 000217e8 4e 92 |N | JSR (A2) 000217ea de c1 | | ADDA.W D1,A7 000217ec 4a 1f |J | TST.B (A7)+ 000217ee 66 6c |fl | BNE 0x2185c 000217f0 55 4f |UO | SUBQ.L #0x2,A7 000217f2 2f 06 |/ | MOVE.L D6,-(A7) 000217f4 48 78 00 07 |Hx | PEA.L 0x7 000217f8 48 53 |HS | PEA.L (A3) 000217fa 4e 92 |N | JSR (A2) 000217fc de c1 | | ADDA.W D1,A7 000217fe 4a 1f |J | TST.B (A7)+ 00021800 66 5a |fZ | BNE 0x2185c 00021802 55 4f |UO | SUBQ.L #0x2,A7 00021804 2f 06 |/ | MOVE.L D6,-(A7) 00021806 48 78 00 0b |Hx | PEA.L 0xb 0002180a 48 53 |HS | PEA.L (A3) 0002180c 4e 92 |N | JSR (A2) 0002180e de c1 | | ADDA.W D1,A7 00021810 4a 1f |J | TST.B (A7)+ 00021812 66 48 |fH | BNE 0x2185c 00021814 55 4f |UO | SUBQ.L #0x2,A7 00021816 2f 06 |/ | MOVE.L D6,-(A7) 00021818 48 78 00 0f |Hx | PEA.L 0xf 0002181c 48 53 |HS | PEA.L (A3) 0002181e 4e 92 |N | JSR (A2) 00021820 de c1 | | ADDA.W D1,A7 00021822 4a 1f |J | TST.B (A7)+ 00021824 66 36 |f6 | BNE 0x2185c 00021826 55 4f |UO | SUBQ.L #0x2,A7 00021828 2f 06 |/ | MOVE.L D6,-(A7) 0002182a 48 78 00 13 |Hx | PEA.L 0x13 0002182e 48 53 |HS | PEA.L (A3) 00021830 4e 92 |N | JSR (A2) 00021832 de c1 | | ADDA.W D1,A7 00021834 4a 1f |J | TST.B (A7)+ 00021836 66 24 |f$ | BNE 0x2185c 00021838 55 4f |UO | SUBQ.L #0x2,A7 0002183a 2f 06 |/ | MOVE.L D6,-(A7) 0002183c 48 78 00 17 |Hx | PEA.L 0x17 00021840 48 53 |HS | PEA.L (A3) 00021842 4e 92 |N | JSR (A2) 00021844 de c1 | | ADDA.W D1,A7 00021846 4a 1f |J | TST.B (A7)+ 00021848 66 12 |f | BNE 0x2185c 0002184a 55 4f |UO | SUBQ.L #0x2,A7 0002184c 2f 06 |/ | MOVE.L D6,-(A7) 0002184e 48 78 00 1b |Hx | PEA.L 0x1b 00021852 48 53 |HS | PEA.L (A3) 00021854 4e 92 |N | JSR (A2) 00021856 de c1 | | ADDA.W D1,A7 00021858 4a 1f |J | TST.B (A7)+ 0002185a 67 04 |g | BEQ 0x21860 0002185c 52 87 |R | ADDQ.L #0x1,D7 0002185e 60 3c |`< | BRA 0x2189c 00021860 4a 87 |J | TST.L D7 00021862 66 1c |f | BNE 0x21880 00021864 55 4f |UO | SUBQ.L #0x2,A7 00021866 2f 06 |/ | MOVE.L D6,-(A7) 00021868 48 78 00 1f |Hx | PEA.L 0x1f 0002186c 48 78 00 05 |Hx | PEA.L 0x5 00021870 4e 92 |N | JSR (A2) 00021872 de c1 | | ADDA.W D1,A7 00021874 4a 1f |J | TST.B (A7)+ 00021876 67 08 |g | BEQ 0x21880 00021878 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 0002187c 20 86 | | MOVE.L D6,(A0) 0002187e 60 1c |` | BRA 0x2189c 00021880 55 4f |UO | SUBQ.L #0x2,A7 00021882 2f 06 |/ | MOVE.L D6,-(A7) 00021884 48 78 00 24 |Hx $ | PEA.L 0x24 00021888 48 53 |HS | PEA.L (A3) 0002188a 4e 92 |N | JSR (A2) 0002188c de c1 | | ADDA.W D1,A7 0002188e 4a 1f |J | TST.B (A7)+ 00021890 67 0a |g | BEQ 0x2189c 00021892 4a 87 |J | TST.L D7 00021894 66 04 |f | BNE 0x2189a 00021896 20 54 | T | MOVEA.L (A4),A0 00021898 60 e2 |` | BRA 0x2187c 0002189a 53 87 |S | SUBQ.L #0x1,D7 0002189c 52 86 |R | ADDQ.L #0x1,D6 0002189e bc b9 00 02 8c 22 | " | CMP.L 0x28c22,D6 000218a4 6e 0e |n | BGT 0x218b4 000218a6 4a 87 |J | TST.L D7 000218a8 66 00 ff 00 |f | BNE 0x217aa 000218ac 20 54 | T | MOVEA.L (A4),A0 000218ae 4a 90 |J | TST.L (A0) 000218b0 67 00 fe f8 |g | BEQ 0x217aa 000218b4 bc b9 00 02 8c 22 | " | CMP.L 0x28c22,D6 000218ba 6f 30 |o0 | BLE 0x218ec 000218bc 9e fc 00 1c | | SUBA.W #0x1c,A7 000218c0 20 4f | O | MOVEA.L A7,A0 000218c2 43 fa f3 be |C | LEA.L 0x20c82,A1 000218c6 70 1a |p | MOVEQ.L #0x1a,D0 000218c8 10 d9 | | MOVE.B (A1)+,(A0)+ 000218ca 51 c8 ff fc |Q | DBF D0,0x218c8 000218ce 59 4f |YO | SUBQ.L #0x4,A7 000218d0 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000218d4 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000218d8 3f 3c 00 1b |?< | MOVE.W #0x1b,-(A7) 000218dc 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000218e2 50 4f |PO | ADDQ.L #0x8,A7 000218e4 4e ba f8 26 |N & | JSR 0x2110c 000218e8 de fc 00 20 | | ADDA.W #0x20,A7 000218ec 4c df 1f c3 |L | MOVEM.L (A7)+,D0+D1+D6+D7+A0+A1+A2+A3+A4 000218f0 4e 5e |N^ | UNLK A6 000218f2 4e 75 |Nu | RTS 000218f4 ; -------------------------------------------------------------------------------------- 000218f4 ; OMSI PASCAL Function 000218f4 ; <LVAR -0x004 @ 4(r)> 000218f4 ; <LVAR -0x008 @ 4(rw)> 000218f4 ; -------------------------------------------------------------------------------------- 000218f4 4e 56 ff dc |NV | LINK.W A6,#0xffdc 000218f8 bf d5 | | CMPA.L (A5),A7 000218fa 62 06 |b | BHI 0x21902 000218fc 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021900 4e 76 |Nv | TRAPV 00021902 de fc 00 1c | | ADDA.W #0x1c,A7 00021906 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7) 0002190a 41 ee ff f8 |A | LEA.L (A6-0x8),A0 0002190e 43 ee ff fc |C | LEA.L (A6-0x4),A1 00021912 48 50 |HP | PEA.L (A0) 00021914 48 51 |HQ | PEA.L (A1) 00021916 4e ba fe 5c |N \ | JSR 0x21774 0002191a 50 4f |PO | ADDQ.L #0x8,A7 0002191c 4a 90 |J | TST.L (A0) 0002191e 66 02 |f | BNE 0x21922 00021920 20 91 | | MOVE.L (A1),(A0) 00021922 20 11 | | MOVE.L (A1),D0 00021924 5a 80 |Z | ADDQ.L #0x5,D0 00021926 2f 00 |/ | MOVE.L D0,-(A7) 00021928 90 90 | | SUB.L (A0),D0 0002192a 2f 00 |/ | MOVE.L D0,-(A7) 0002192c 4e ba fd 32 |N 2 | JSR 0x21660 00021930 50 4f |PO | ADDQ.L #0x8,A7 00021932 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1 00021936 4e 5e |N^ | UNLK A6 00021938 4e 75 |Nu | RTS 0002193a ; -------------------------------------------------------------------------------------- 0002193a ; OMSI PASCAL Function 0002193a ; <LVAR -0x004 @ 4(r)> 0002193a ; <LVAR -0x008 @ 4(r)> 0002193a ; -------------------------------------------------------------------------------------- 0002193a 4e 56 ff dc |NV | LINK.W A6,#0xffdc 0002193e bf d5 | | CMPA.L (A5),A7 00021940 62 06 |b | BHI 0x21948 00021942 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021946 4e 76 |Nv | TRAPV 00021948 de fc 00 1c | | ADDA.W #0x1c,A7 0002194c 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7) 00021950 41 ee ff f8 |A | LEA.L (A6-0x8),A0 00021954 43 ee ff fc |C | LEA.L (A6-0x4),A1 00021958 48 50 |HP | PEA.L (A0) 0002195a 48 51 |HQ | PEA.L (A1) 0002195c 4e ba fe 16 |N | JSR 0x21774 00021960 50 4f |PO | ADDQ.L #0x8,A7 00021962 4a 90 |J | TST.L (A0) 00021964 66 06 |f | BNE 0x2196c 00021966 20 11 | | MOVE.L (A1),D0 00021968 5a 80 |Z | ADDQ.L #0x5,D0 0002196a 60 12 |` | BRA 0x2197e 0002196c 2f 11 |/ | MOVE.L (A1),-(A7) 0002196e 5a 97 |Z | ADDQ.L #0x5,(A7) 00021970 48 78 00 05 |Hx | PEA.L 0x5 00021974 4e ba fc ea |N | JSR 0x21660 00021978 50 4f |PO | ADDQ.L #0x8,A7 0002197a 20 10 | | MOVE.L (A0),D0 0002197c 5c 80 |\ | ADDQ.L #0x6,D0 0002197e 2f 00 |/ | MOVE.L D0,-(A7) 00021980 90 b9 00 02 8c 1e | | SUB.L 0x28c1e,D0 00021986 2f 00 |/ | MOVE.L D0,-(A7) 00021988 4e ba fc d6 |N | JSR 0x21660 0002198c 50 4f |PO | ADDQ.L #0x8,A7 0002198e 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1 00021992 4e 5e |N^ | UNLK A6 00021994 4e 75 |Nu | RTS 00021996 ; -------------------------------------------------------------------------------------- 00021996 ; OMSI PASCAL Function 00021996 ; <LVAR 0x008 4(r)> 00021996 ; <LVAR -0x004 @> 00021996 ; <LVAR -0x008 @ 4(r)> 00021996 ; <LVAR -0x00c @ 4(rw)> 00021996 ; <LVAR -0x010 4(rw)> 00021996 ; <LVAR -0x014 4(rw)> 00021996 ; -------------------------------------------------------------------------------------- 00021996 4e 56 ff ba |NV | LINK.W A6,#0xffba 0002199a bf d5 | | CMPA.L (A5),A7 0002199c 62 06 |b | BHI 0x219a4 0002199e 44 fc 00 02 |D | MOVE.W #0x2,CCR 000219a2 4e 76 |Nv | TRAPV 000219a4 de fc 00 32 | 2 | ADDA.W #0x32,A7 000219a8 48 e7 c0 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D1+D0,-(A7) 000219ac 43 f9 00 02 8c 30 |C 0 | LEA.L 0x28c30,A1 000219b2 45 f9 00 02 8c 36 |E 6 | LEA.L 0x28c36,A2 000219b8 47 f9 00 02 8c 1e |G | LEA.L 0x28c1e,A3 000219be 49 ee ff f8 |I | LEA.L (A6-0x8),A4 000219c2 72 01 |r | MOVEQ.L #0x01,D1 000219c4 4a 11 |J | TST.B (A1) 000219c6 67 0a |g | BEQ 0x219d2 000219c8 4a 92 |J | TST.L (A2) 000219ca 66 06 |f | BNE 0x219d2 000219cc 24 ae 00 08 |$ | MOVE.L (A6+0x8),(A2) 000219d0 53 92 |S | SUBQ.L #0x1,(A2) 000219d2 4a 11 |J | TST.B (A1) 000219d4 66 00 00 cc |f | BNE 0x21aa2 000219d8 26 ae 00 08 |& | MOVE.L (A6+0x8),(A3) 000219dc 5c 93 |\ | ADDQ.L #0x6,(A3) 000219de 48 54 |HT | PEA.L (A4) 000219e0 48 6e ff fc |Hn | PEA.L (A6-0x4) 000219e4 4e ba fa 86 |N | JSR 0x2146c 000219e8 50 4f |PO | ADDQ.L #0x8,A7 000219ea 41 fa f2 bc |A | LEA.L 0x20ca8,A0 000219ee 70 04 |p | MOVEQ.L #0x04,D0 000219f0 3f 20 |? | MOVE.W -(A0),-(A7) 000219f2 51 c8 ff fc |Q | DBF D0,0x219f0 000219f6 2f 14 |/ | MOVE.L (A4),-(A7) 000219f8 48 78 00 00 |Hx | PEA.L 0x0 000219fc 4e ba fb 50 |N P | JSR 0x2154e 00021a00 de fc 00 12 | | ADDA.W #0x12,A7 00021a04 4a 39 00 02 8c 3a |J9 : | TST.B 0x28c3a 00021a0a 67 1a |g | BEQ 0x21a26 00021a0c 51 4f |QO | SUBQ.L #0x8,A7 00021a0e 2f 14 |/ | MOVE.L (A4),-(A7) 00021a10 48 78 00 00 |Hx | PEA.L 0x0 00021a14 4e b9 00 02 1e 66 |N f | JSR 0x21e66 00021a1a 50 4f |PO | ADDQ.L #0x8,A7 00021a1c 2d 5f ff ec |-_ | MOVE.L (A7)+,(A6-0x14) 00021a20 2d 5f ff f0 |-_ | MOVE.L (A7)+,(A6-0x10) 00021a24 60 14 |` | BRA 0x21a3a 00021a26 59 4f |YO | SUBQ.L #0x4,A7 00021a28 2f 14 |/ | MOVE.L (A4),-(A7) 00021a2a 48 78 00 00 |Hx | PEA.L 0x0 00021a2e 4e b9 00 02 1e 34 |N 4 | JSR 0x21e34 00021a34 50 4f |PO | ADDQ.L #0x8,A7 00021a36 2d 5f ff f4 |-_ | MOVE.L (A7)+,(A6-0xc) 00021a3a 2f 14 |/ | MOVE.L (A4),-(A7) 00021a3c 4e ba f6 8c |N | JSR 0x210ca 00021a40 58 4f |XO | ADDQ.L #0x4,A7 00021a42 23 d3 00 02 8c 32 |# 2 | MOVE.L (A3),0x28c32 00021a48 4a 39 00 02 8c 3a |J9 : | TST.B 0x28c3a 00021a4e 67 2a |g* | BEQ 0x21a7a 00021a50 55 4f |UO | SUBQ.L #0x2,A7 00021a52 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7) 00021a56 2f 2e ff ec |/. | MOVE.L (A6-0x14),-(A7) 00021a5a 2f 39 00 02 8c 44 |/9 D | MOVE.L 0x28c44,-(A7) 00021a60 2f 39 00 02 8c 40 |/9 @ | MOVE.L 0x28c40,-(A7) 00021a66 4e b9 00 01 03 2c |N , | JSR IsEqual(a, b : Quad) : Bool 00021a6c de fc 00 10 | | ADDA.W #0x10,A7 00021a70 10 1f | | MOVE.B (A7)+,D0 00021a72 48 80 |H | EXTB.W D0 00021a74 41 81 |A | CHK.W D1,D0 00021a76 12 80 | | MOVE.B D0,(A1) 00021a78 60 28 |`( | BRA 0x21aa2 00021a7a 55 4f |UO | SUBQ.L #0x2,A7 00021a7c 2f 2e ff f4 |/. | MOVE.L (A6-0xc),-(A7) 00021a80 2f 39 00 02 8c 3c |/9 < | MOVE.L 0x28c3c,-(A7) 00021a86 4e b9 00 01 02 c8 |N | JSR StringEqual(a, b : String) : Byte 00021a8c 50 4f |PO | ADDQ.L #0x8,A7 00021a8e 10 1f | | MOVE.B (A7)+,D0 00021a90 48 80 |H | EXTB.W D0 00021a92 41 81 |A | CHK.W D1,D0 00021a94 12 80 | | MOVE.B D0,(A1) 00021a96 48 6e ff f4 |Hn | PEA.L (A6-0xc) 00021a9a 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00021aa0 58 4f |XO | ADDQ.L #0x4,A7 00021aa2 4c df 1f 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2+A3+A4 00021aa6 4e 5e |N^ | UNLK A6 00021aa8 4e 75 |Nu | RTS 00021aaa ; -------------------------------------------------------------------------------------- 00021aaa ; OMSI PASCAL Function 00021aaa ; <LVAR 0x010 4(r)> 00021aaa ; <LVAR 0x00c 4(r)> 00021aaa ; <LVAR 0x008 4(r)> 00021aaa ; -------------------------------------------------------------------------------------- 00021aaa 4e 56 ff 9e |NV | LINK.W A6,#0xff9e 00021aae bf d5 | | CMPA.L (A5),A7 00021ab0 62 06 |b | BHI 0x21ab8 00021ab2 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021ab6 4e 76 |Nv | TRAPV 00021ab8 de fc 00 56 | V | ADDA.W #0x56,A7 00021abc 48 e7 e7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7) 00021ac0 45 f9 00 02 8c 36 |E 6 | LEA.L 0x28c36,A2 00021ac6 47 fa fb 12 |G | LEA.L 0x215da,A3 00021aca 49 f9 00 02 8c 30 |I 0 | LEA.L 0x28c30,A4 00021ad0 72 0c |r | MOVEQ.L #0x0c,D1 00021ad2 74 01 |t | MOVEQ.L #0x01,D2 00021ad4 42 14 |B | CLR.B (A4) 00021ad6 42 b9 00 02 8c 32 |B 2 | CLR.L 0x28c32 00021adc 42 92 |B | CLR.L (A2) 00021ade 7e 00 |~ | MOVEQ.L #0x00,D7 00021ae0 7c 00 || | MOVEQ.L #0x00,D6 00021ae2 2a 39 00 02 8c 1e |*9 | MOVE.L 0x28c1e,D5 00021ae8 4a 86 |J | TST.L D6 00021aea 66 00 00 a0 |f | BNE 0x21b8c 00021aee ba b9 00 02 8c 22 | " | CMP.L 0x28c22,D5 00021af4 6e 00 00 96 |n | BGT 0x21b8c 00021af8 20 05 | | MOVE.L D5,D0 00021afa 53 80 |S | SUBQ.L #0x1,D0 00021afc 0c 80 00 00 1f ff | | CMPI.L #0x00001fff,D0 00021b02 63 02 |c | BLS 0x21b06 00021b04 4e 4f |NO | TRAP #15 00021b06 41 f9 00 02 6c 16 |A l | LEA.L 0x26c16,A0 00021b0c 10 30 08 08 | 0 | MOVE.B (A0+D0.L+#0x8),D0 00021b10 0c 00 00 5b | [ | CMPI.B #0x5b,D0 00021b14 66 6c |fl | BNE 0x21b82 00021b16 55 4f |UO | SUBQ.L #0x2,A7 00021b18 2f 05 |/ | MOVE.L D5,-(A7) 00021b1a 48 78 00 28 |Hx ( | PEA.L 0x28 00021b1e 48 78 00 05 |Hx | PEA.L 0x5 00021b22 4e 93 |N | JSR (A3) 00021b24 de c1 | | ADDA.W D1,A7 00021b26 4a 1f |J | TST.B (A7)+ 00021b28 66 14 |f | BNE 0x21b3e 00021b2a 55 4f |UO | SUBQ.L #0x2,A7 00021b2c 2f 05 |/ | MOVE.L D5,-(A7) 00021b2e 48 78 00 2d |Hx - | PEA.L 0x2d 00021b32 48 78 00 06 |Hx | PEA.L 0x6 00021b36 4e 93 |N | JSR (A3) 00021b38 de c1 | | ADDA.W D1,A7 00021b3a 4a 1f |J | TST.B (A7)+ 00021b3c 67 04 |g | BEQ 0x21b42 00021b3e 52 87 |R | ADDQ.L #0x1,D7 00021b40 60 40 |`@ | BRA 0x21b82 00021b42 4a 87 |J | TST.L D7 00021b44 66 1e |f | BNE 0x21b64 00021b46 55 4f |UO | SUBQ.L #0x2,A7 00021b48 2f 05 |/ | MOVE.L D5,-(A7) 00021b4a 48 78 00 33 |Hx 3 | PEA.L 0x33 00021b4e 48 78 00 05 |Hx | PEA.L 0x5 00021b52 4e 93 |N | JSR (A3) 00021b54 de c1 | | ADDA.W D1,A7 00021b56 4a 1f |J | TST.B (A7)+ 00021b58 67 0a |g | BEQ 0x21b64 00021b5a 2f 05 |/ | MOVE.L D5,-(A7) 00021b5c 4e ba fe 38 |N 8 | JSR 0x21996 00021b60 58 4f |XO | ADDQ.L #0x4,A7 00021b62 60 1e |` | BRA 0x21b82 00021b64 55 4f |UO | SUBQ.L #0x2,A7 00021b66 2f 05 |/ | MOVE.L D5,-(A7) 00021b68 48 78 00 38 |Hx 8 | PEA.L 0x38 00021b6c 48 78 00 08 |Hx | PEA.L 0x8 00021b70 4e 93 |N | JSR (A3) 00021b72 de c1 | | ADDA.W D1,A7 00021b74 4a 1f |J | TST.B (A7)+ 00021b76 67 0a |g | BEQ 0x21b82 00021b78 4a 87 |J | TST.L D7 00021b7a 66 04 |f | BNE 0x21b80 00021b7c 2c 05 |, | MOVE.L D5,D6 00021b7e 60 02 |` | BRA 0x21b82 00021b80 53 87 |S | SUBQ.L #0x1,D7 00021b82 4a 86 |J | TST.L D6 00021b84 66 02 |f | BNE 0x21b88 00021b86 52 85 |R | ADDQ.L #0x1,D5 00021b88 60 00 ff 5e |` ^ | BRA 0x21ae8 00021b8c 4a 39 00 02 8c 3a |J9 : | TST.B 0x28c3a 00021b92 66 0e |f | BNE 0x21ba2 00021b94 48 79 00 02 8c 3c |Hy < | PEA.L 0x28c3c 00021b9a 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00021ba0 58 4f |XO | ADDQ.L #0x4,A7 00021ba2 4a 14 |J | TST.B (A4) 00021ba4 66 28 |f( | BNE 0x21bce 00021ba6 41 fa f1 1a |A | LEA.L 0x20cc2,A0 00021baa 70 0c |p | MOVEQ.L #0x0c,D0 00021bac 3f 20 |? | MOVE.W -(A0),-(A7) 00021bae 51 c8 ff fc |Q | DBF D0,0x21bac 00021bb2 59 4f |YO | SUBQ.L #0x4,A7 00021bb4 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021bb8 3f 02 |? | MOVE.W D2,-(A7) 00021bba 3f 3c 00 1a |?< | MOVE.W #0x1a,-(A7) 00021bbe 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00021bc4 50 4f |PO | ADDQ.L #0x8,A7 00021bc6 4e ba f5 44 |N D | JSR 0x2110c 00021bca de fc 00 1e | | ADDA.W #0x1e,A7 00021bce 4a 86 |J | TST.L D6 00021bd0 66 2e |f. | BNE 0x21c00 00021bd2 9e fc 00 14 | | SUBA.W #0x14,A7 00021bd6 20 4f | O | MOVEA.L A7,A0 00021bd8 43 fa f0 e8 |C | LEA.L 0x20cc2,A1 00021bdc 70 12 |p | MOVEQ.L #0x12,D0 00021bde 10 d9 | | MOVE.B (A1)+,(A0)+ 00021be0 51 c8 ff fc |Q | DBF D0,0x21bde 00021be4 59 4f |YO | SUBQ.L #0x4,A7 00021be6 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021bea 3f 02 |? | MOVE.W D2,-(A7) 00021bec 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7) 00021bf0 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00021bf6 50 4f |PO | ADDQ.L #0x8,A7 00021bf8 4e ba f5 12 |N | JSR 0x2110c 00021bfc de fc 00 18 | | ADDA.W #0x18,A7 00021c00 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00021c04 20 86 | | MOVE.L D6,(A0) 00021c06 20 6e 00 10 | n | MOVEA.L (A6+0x10),A0 00021c0a 20 b9 00 02 8c 32 | 2 | MOVE.L 0x28c32,(A0) 00021c10 4a 92 |J | TST.L (A2) 00021c12 66 0a |f | BNE 0x21c1e 00021c14 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 00021c18 20 86 | | MOVE.L D6,(A0) 00021c1a 53 90 |S | SUBQ.L #0x1,(A0) 00021c1c 60 06 |` | BRA 0x21c24 00021c1e 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 00021c22 20 92 | | MOVE.L (A2),(A0) 00021c24 4c df 1f e7 |L | MOVEM.L (A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3+A4 00021c28 4e 5e |N^ | UNLK A6 00021c2a 4e 75 |Nu | RTS 00021c2c ; -------------------------------------------------------------------------------------- 00021c2c ; OMSI PASCAL Function 00021c2c ; <LVAR 0x008 4(r)> 00021c2c ; <LVAR -0x008 @ 4(r)> 00021c2c ; <LVAR -0x00c @ 4(r)> 00021c2c ; <LVAR -0x010 @ 4(r)> 00021c2c ; -------------------------------------------------------------------------------------- 00021c2c 4e 56 ff c8 |NV | LINK.W A6,#0xffc8 00021c30 bf d5 | | CMPA.L (A5),A7 00021c32 62 06 |b | BHI 0x21c3a 00021c34 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021c38 4e 76 |Nv | TRAPV 00021c3a de fc 00 24 | $ | ADDA.W #0x24,A7 00021c3e 48 e7 83 c0 |H | MOVEM.L A1+A0+D7+D6+D0,-(A7) 00021c42 41 f9 00 02 8c 1e |A | LEA.L 0x28c1e,A0 00021c48 43 ee ff f0 |C | LEA.L (A6-0x10),A1 00021c4c 2c 10 |, | MOVE.L (A0),D6 00021c4e 42 39 00 02 8c 3a |B9 : | CLR.B 0x28c3a 00021c54 23 ee 00 08 00 02 8c 3c |# <| MOVE.L (A6+0x8),0x28c3c 00021c5c 2e 10 |. | MOVE.L (A0),D7 00021c5e 48 51 |HQ | PEA.L (A1) 00021c60 48 6e ff f4 |Hn | PEA.L (A6-0xc) 00021c64 48 6e ff f8 |Hn | PEA.L (A6-0x8) 00021c68 4e ba fe 40 |N @ | JSR 0x21aaa 00021c6c de fc 00 0c | | ADDA.W #0xc,A7 00021c70 20 86 | | MOVE.L D6,(A0) 00021c72 20 2e ff f8 | . | MOVE.L (A6-0x8),D0 00021c76 06 80 00 00 00 09 | | ADDI.L #0x00000009,D0 00021c7c 2f 00 |/ | MOVE.L D0,-(A7) 00021c7e 90 ae ff f4 | | SUB.L (A6-0xc),D0 00021c82 53 80 |S | SUBQ.L #0x1,D0 00021c84 2f 00 |/ | MOVE.L D0,-(A7) 00021c86 4e ba f9 d8 |N | JSR 0x21660 00021c8a 58 4f |XO | ADDQ.L #0x4,A7 00021c8c 2e 91 |. | MOVE.L (A1),(A7) 00021c8e 2f 11 |/ | MOVE.L (A1),-(A7) 00021c90 9f 97 | | SUB.L D7,(A7) 00021c92 4e ba f9 cc |N | JSR 0x21660 00021c96 50 4f |PO | ADDQ.L #0x8,A7 00021c98 4c df 03 c1 |L | MOVEM.L (A7)+,D0+D6+D7+A0+A1 00021c9c 4e 5e |N^ | UNLK A6 00021c9e 4e 75 |Nu | RTS 00021ca0 ; -------------------------------------------------------------------------------------- 00021ca0 ; OMSI PASCAL Function 00021ca0 ; <LVAR 0x00c 4(r)> 00021ca0 ; <LVAR 0x008 4(r)> 00021ca0 ; <LVAR -0x008 @ 4(r)> 00021ca0 ; <LVAR -0x00c @ 4(r)> 00021ca0 ; <LVAR -0x010 @ 4(r)> 00021ca0 ; -------------------------------------------------------------------------------------- 00021ca0 4e 56 ff c8 |NV | LINK.W A6,#0xffc8 00021ca4 bf d5 | | CMPA.L (A5),A7 00021ca6 62 06 |b | BHI 0x21cae 00021ca8 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021cac 4e 76 |Nv | TRAPV 00021cae de fc 00 24 | $ | ADDA.W #0x24,A7 00021cb2 48 e7 83 c0 |H | MOVEM.L A1+A0+D7+D6+D0,-(A7) 00021cb6 41 f9 00 02 8c 1e |A | LEA.L 0x28c1e,A0 00021cbc 43 ee ff f0 |C | LEA.L (A6-0x10),A1 00021cc0 2c 10 |, | MOVE.L (A0),D6 00021cc2 13 fc 00 01 00 02 8c 3a | :| MOVE.B #0x01,0x28c3a 00021cca 23 ee 00 08 00 02 8c 40 |# @| MOVE.L (A6+0x8),0x28c40 00021cd2 23 ee 00 0c 00 02 8c 44 |# D| MOVE.L (A6+0xc),0x28c44 00021cda 2e 10 |. | MOVE.L (A0),D7 00021cdc 48 51 |HQ | PEA.L (A1) 00021cde 48 6e ff f4 |Hn | PEA.L (A6-0xc) 00021ce2 48 6e ff f8 |Hn | PEA.L (A6-0x8) 00021ce6 4e ba fd c2 |N | JSR 0x21aaa 00021cea de fc 00 0c | | ADDA.W #0xc,A7 00021cee 20 86 | | MOVE.L D6,(A0) 00021cf0 20 2e ff f8 | . | MOVE.L (A6-0x8),D0 00021cf4 06 80 00 00 00 09 | | ADDI.L #0x00000009,D0 00021cfa 2f 00 |/ | MOVE.L D0,-(A7) 00021cfc 90 ae ff f4 | | SUB.L (A6-0xc),D0 00021d00 53 80 |S | SUBQ.L #0x1,D0 00021d02 2f 00 |/ | MOVE.L D0,-(A7) 00021d04 4e ba f9 5a |N Z | JSR 0x21660 00021d08 58 4f |XO | ADDQ.L #0x4,A7 00021d0a 2e 91 |. | MOVE.L (A1),(A7) 00021d0c 2f 11 |/ | MOVE.L (A1),-(A7) 00021d0e 9f 97 | | SUB.L D7,(A7) 00021d10 4e ba f9 4e |N N | JSR 0x21660 00021d14 50 4f |PO | ADDQ.L #0x8,A7 00021d16 4c df 03 c1 |L | MOVEM.L (A7)+,D0+D6+D7+A0+A1 00021d1a 4e 5e |N^ | UNLK A6 00021d1c 4e 75 |Nu | RTS 00021d1e ; -------------------------------------------------------------------------------------- 00021d1e ; OMSI PASCAL Function 00021d1e ; <LVAR 0x010 4(rw)> 00021d1e ; <LVAR 0x00c 4(r)> 00021d1e ; <LVAR 0x008 4(r)> 00021d1e ; -------------------------------------------------------------------------------------- 00021d1e 4e 56 ff f8 |NV | LINK.W A6,#0xfff8 00021d22 bf d5 | | CMPA.L (A5),A7 00021d24 62 06 |b | BHI 0x21d2c 00021d26 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021d2a 4e 76 |Nv | TRAPV 00021d2c de fc 00 08 | | ADDA.W #0x8,A7 00021d30 48 e7 80 00 |H | MOVEM.L D0,-(A7) 00021d34 4a ae 00 08 |J | TST.L (A6+0x8) 00021d38 66 06 |f | BNE 0x21d40 00021d3a 42 ae 00 10 |B | CLR.L (A6+0x10) 00021d3e 60 0e |` | BRA 0x21d4e 00021d40 20 2e 00 0c | . | MOVE.L (A6+0xc),D0 00021d44 90 ae 00 08 | | SUB.L (A6+0x8),D0 00021d48 52 80 |R | ADDQ.L #0x1,D0 00021d4a 2d 40 00 10 |-@ | MOVE.L D0,(A6+0x10) 00021d4e 4c df 00 01 |L | MOVEM.L (A7)+,D0 00021d52 4e 5e |N^ | UNLK A6 00021d54 4e 75 |Nu | RTS 00021d56 ; -------------------------------------------------------------------------------------- 00021d56 ; OMSI PASCAL Function 00021d56 ; <LVAR 0x014 4(w)> 00021d56 ; <LVAR 0x010 @ 4(w)> 00021d56 ; <LVAR 0x00c 4(r)> 00021d56 ; <LVAR 0x008 4(r)> 00021d56 ; -------------------------------------------------------------------------------------- 00021d56 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 00021d5a bf d5 | | CMPA.L (A5),A7 00021d5c 62 06 |b | BHI 0x21d64 00021d5e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021d62 4e 76 |Nv | TRAPV 00021d64 de fc 00 20 | | ADDA.W #0x20,A7 00021d68 48 e7 81 c8 |H | MOVEM.L A4+A1+A0+D7+D0,-(A7) 00021d6c 28 6e 00 0c |(n | MOVEA.L (A6+0xc),A4 00021d70 2d 7a f2 b2 00 10 |-z | MOVE.L 0x21024,(A6+0x10) 00021d76 2d 7a f2 b0 00 14 |-z | MOVE.L 0x21028,(A6+0x14) 00021d7c 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00021d80 7e 00 |~ | MOVEQ.L #0x00,D7 00021d82 be 97 | | CMP.L (A7),D7 00021d84 6e 28 |n( | BGT 0x21dae 00021d86 b8 fc 00 01 | | CMPA.W #0x1,A4 00021d8a 66 04 |f | BNE 0x21d90 00021d8c 58 4f |XO | ADDQ.L #0x4,A7 00021d8e 60 20 |` | BRA 0x21db0 00021d90 be ae 00 08 | | CMP.L (A6+0x8),D7 00021d94 66 10 |f | BNE 0x21da6 00021d96 41 ee 00 10 |A | LEA.L (A6+0x10),A0 00021d9a 22 4c |"L | MOVEA.L A4,A1 00021d9c 70 07 |p | MOVEQ.L #0x07,D0 00021d9e 10 d9 | | MOVE.B (A1)+,(A0)+ 00021da0 51 c8 ff fc |Q | DBF D0,0x21d9e 00021da4 60 04 |` | BRA 0x21daa 00021da6 28 6c 00 08 |(l | MOVEA.L (A4+0x8),A4 00021daa 52 87 |R | ADDQ.L #0x1,D7 00021dac 68 d4 |h | BVC 0x21d82 00021dae 58 4f |XO | ADDQ.L #0x4,A7 00021db0 4c df 13 81 |L | MOVEM.L (A7)+,D0+D7+A0+A1+A4 00021db4 4e 5e |N^ | UNLK A6 00021db6 4e 75 |Nu | RTS 00021db8 ; -------------------------------------------------------------------------------------- 00021db8 ; OMSI PASCAL Function 00021db8 ; <LVAR 0x010 4(w)> 00021db8 ; <LVAR 0x00c 4(r)> 00021db8 ; <LVAR 0x008 4(r)> 00021db8 ; <LVAR -0x008 @ 4(r)> 00021db8 ; -------------------------------------------------------------------------------------- 00021db8 4e 56 ff ce |NV | LINK.W A6,#0xffce 00021dbc bf d5 | | CMPA.L (A5),A7 00021dbe 62 06 |b | BHI 0x21dc6 00021dc0 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021dc4 4e 76 |Nv | TRAPV 00021dc6 de fc 00 26 | & | ADDA.W #0x26,A7 00021dca 48 e7 83 c0 |H | MOVEM.L A1+A0+D7+D6+D0,-(A7) 00021dce 43 ee ff f8 |C | LEA.L (A6-0x8),A1 00021dd2 48 51 |HQ | PEA.L (A1) 00021dd4 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00021dda 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00021dde 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00021de2 4e ba ff 3a |N : | JSR 0x21d1e 00021de6 50 4f |PO | ADDQ.L #0x8,A7 00021de8 7e 01 |~ | MOVEQ.L #0x01,D7 00021dea be 97 | | CMP.L (A7),D7 00021dec 6e 38 |n8 | BGT 0x21e26 00021dee 20 07 | | MOVE.L D7,D0 00021df0 d0 ae 00 08 | | ADD.L (A6+0x8),D0 00021df4 53 80 |S | SUBQ.L #0x1,D0 00021df6 53 80 |S | SUBQ.L #0x1,D0 00021df8 0c 80 00 00 1f ff | | CMPI.L #0x00001fff,D0 00021dfe 63 02 |c | BLS 0x21e02 00021e00 4e 4f |NO | TRAP #15 00021e02 41 f9 00 02 6c 16 |A l | LEA.L 0x26c16,A0 00021e08 1c 30 08 08 | 0 | MOVE.B (A0+D0.L+#0x8),D6 00021e0c 0c 06 00 2f | / | CMPI.B #0x2f,D6 00021e10 66 04 |f | BNE 0x21e16 00021e12 58 4f |XO | ADDQ.L #0x4,A7 00021e14 60 12 |` | BRA 0x21e28 00021e16 2f 11 |/ | MOVE.L (A1),-(A7) 00021e18 1f 06 | | MOVE.B D6,-(A7) 00021e1a 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00021e20 5c 4f |\O | ADDQ.L #0x6,A7 00021e22 52 87 |R | ADDQ.L #0x1,D7 00021e24 68 c4 |h | BVC 0x21dea 00021e26 58 4f |XO | ADDQ.L #0x4,A7 00021e28 2d 51 00 10 |-Q | MOVE.L (A1),(A6+0x10) 00021e2c 4c df 03 c1 |L | MOVEM.L (A7)+,D0+D6+D7+A0+A1 00021e30 4e 5e |N^ | UNLK A6 00021e32 4e 75 |Nu | RTS 00021e34 ; -------------------------------------------------------------------------------------- 00021e34 ; OMSI PASCAL Function 00021e34 ; <LVAR 0x010 4(w)> 00021e34 ; <LVAR 0x00c 4(r)> 00021e34 ; <LVAR 0x008 4(r)> 00021e34 ; -------------------------------------------------------------------------------------- 00021e34 4e 56 ff e8 |NV | LINK.W A6,#0xffe8 00021e38 bf d5 | | CMPA.L (A5),A7 00021e3a 62 06 |b | BHI 0x21e42 00021e3c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021e40 4e 76 |Nv | TRAPV 00021e42 de fc 00 18 | | ADDA.W #0x18,A7 00021e46 9e fc 00 0c | | SUBA.W #0xc,A7 00021e4a 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00021e4e 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00021e52 4e ba ff 02 |N | JSR 0x21d56 00021e56 50 4f |PO | ADDQ.L #0x8,A7 00021e58 4e ba ff 5e |N ^ | JSR 0x21db8 00021e5c 50 4f |PO | ADDQ.L #0x8,A7 00021e5e 2d 5f 00 10 |-_ | MOVE.L (A7)+,(A6+0x10) 00021e62 4e 5e |N^ | UNLK A6 00021e64 4e 75 |Nu | RTS 00021e66 ; -------------------------------------------------------------------------------------- 00021e66 ; OMSI PASCAL Function 00021e66 ; <LVAR 0x014 4(w)> 00021e66 ; <LVAR 0x010 4(w)> 00021e66 ; <LVAR 0x00c 4(r)> 00021e66 ; <LVAR 0x008 4(r)> 00021e66 ; -------------------------------------------------------------------------------------- 00021e66 4e 56 ff e8 |NV | LINK.W A6,#0xffe8 00021e6a bf d5 | | CMPA.L (A5),A7 00021e6c 62 06 |b | BHI 0x21e74 00021e6e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021e72 4e 76 |Nv | TRAPV 00021e74 de fc 00 18 | | ADDA.W #0x18,A7 00021e78 9e fc 00 0c | | SUBA.W #0xc,A7 00021e7c 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00021e80 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00021e84 4e ba ff ae |N | JSR 0x21e34 00021e88 50 4f |PO | ADDQ.L #0x8,A7 00021e8a 48 78 00 10 |Hx | PEA.L 0x10 00021e8e 4e b9 00 01 03 60 |N ` | JSR ?StringToInt64() 00021e94 50 4f |PO | ADDQ.L #0x8,A7 00021e96 2d 5f 00 10 |-_ | MOVE.L (A7)+,(A6+0x10) 00021e9a 2d 5f 00 14 |-_ | MOVE.L (A7)+,(A6+0x14) 00021e9e 4e 5e |N^ | UNLK A6 00021ea0 4e 75 |Nu | RTS 00021ea2 ; -------------------------------------------------------------------------------------- 00021ea2 ; OMSI PASCAL Function 00021ea2 ; <LVAR 0x010 4(w)> 00021ea2 ; <LVAR 0x00c 4(r)> 00021ea2 ; <LVAR 0x008 4(r)> 00021ea2 ; -------------------------------------------------------------------------------------- 00021ea2 4e 56 ff e8 |NV | LINK.W A6,#0xffe8 00021ea6 bf d5 | | CMPA.L (A5),A7 00021ea8 62 06 |b | BHI 0x21eb0 00021eaa 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021eae 4e 76 |Nv | TRAPV 00021eb0 de fc 00 18 | | ADDA.W #0x18,A7 00021eb4 9e fc 00 0c | | SUBA.W #0xc,A7 00021eb8 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00021ebc 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00021ec0 4e ba ff a4 |N | JSR 0x21e66 00021ec4 50 4f |PO | ADDQ.L #0x8,A7 00021ec6 4e b9 00 01 03 50 |N P | JSR Quad2Long(a : Quad) : Long 00021ecc 50 4f |PO | ADDQ.L #0x8,A7 00021ece 2d 5f 00 10 |-_ | MOVE.L (A7)+,(A6+0x10) 00021ed2 4e 5e |N^ | UNLK A6 00021ed4 4e 75 |Nu | RTS 00021ed6 ; -------------------------------------------------------------------------------------- 00021ed6 ; OMSI PASCAL Function 00021ed6 ; <LVAR 0x008 @ 4(r)> 00021ed6 ; -------------------------------------------------------------------------------------- 00021ed6 4e 56 ff d4 |NV | LINK.W A6,#0xffd4 00021eda bf d5 | | CMPA.L (A5),A7 00021edc 62 06 |b | BHI 0x21ee4 00021ede 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021ee2 4e 76 |Nv | TRAPV 00021ee4 de fc 00 28 | ( | ADDA.W #0x28,A7 00021ee8 48 e7 c1 e0 |H | MOVEM.L A2+A1+A0+D7+D1+D0,-(A7) 00021eec 45 f9 00 02 8c 1e |E | LEA.L 0x28c1e,A2 00021ef2 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00021ef6 2f 08 |/ | MOVE.L A0,-(A7) 00021ef8 2f 12 |/ | MOVE.L (A2),-(A7) 00021efa 30 10 |0 | MOVE.W (A0),D0 00021efc 48 c0 |H | EXTW.L D0 00021efe 44 80 |D | NEG.L D0 00021f00 2f 00 |/ | MOVE.L D0,-(A7) 00021f02 4e ba f7 5c |N \ | JSR 0x21660 00021f06 50 4f |PO | ADDQ.L #0x8,A7 00021f08 30 10 |0 | MOVE.W (A0),D0 00021f0a 48 c0 |H | EXTW.L D0 00021f0c 2f 00 |/ | MOVE.L D0,-(A7) 00021f0e 7e 01 |~ | MOVEQ.L #0x01,D7 00021f10 be 97 | | CMP.L (A7),D7 00021f12 6e 34 |n4 | BGT 0x21f48 00021f14 20 07 | | MOVE.L D7,D0 00021f16 d0 92 | | ADD.L (A2),D0 00021f18 53 80 |S | SUBQ.L #0x1,D0 00021f1a 53 80 |S | SUBQ.L #0x1,D0 00021f1c 0c 80 00 00 1f ff | | CMPI.L #0x00001fff,D0 00021f22 63 02 |c | BLS 0x21f26 00021f24 4e 4f |NO | TRAP #15 00021f26 41 f9 00 02 6c 16 |A l | LEA.L 0x26c16,A0 00021f2c 22 07 |" | MOVE.L D7,D1 00021f2e 53 81 |S | SUBQ.L #0x1,D1 00021f30 0c 81 00 00 00 7d | } | CMPI.L #0x0000007d,D1 00021f36 63 02 |c | BLS 0x21f3a 00021f38 4e 4f |NO | TRAP #15 00021f3a 22 6f 00 04 |"o | MOVEA.L (A7+0x4),A1 00021f3e 11 b1 18 02 08 08 | | MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x8) 00021f44 52 87 |R | ADDQ.L #0x1,D7 00021f46 68 c8 |h | BVC 0x21f10 00021f48 50 4f |PO | ADDQ.L #0x8,A7 00021f4a 48 6e 00 08 |Hn | PEA.L (A6+0x8) 00021f4e 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00021f54 58 4f |XO | ADDQ.L #0x4,A7 00021f56 4c df 07 83 |L | MOVEM.L (A7)+,D0+D1+D7+A0+A1+A2 00021f5a 4e 5e |N^ | UNLK A6 00021f5c 4e 75 |Nu | RTS 00021f5e ; -------------------------------------------------------------------------------------- 00021f5e ; OMSI PASCAL Function 00021f5e ; <LVAR 0x00c 4(r)> 00021f5e ; <LVAR 0x008 4(r)> 00021f5e ; -------------------------------------------------------------------------------------- 00021f5e 4e 56 ff ec |NV | LINK.W A6,#0xffec 00021f62 bf d5 | | CMPA.L (A5),A7 00021f64 62 06 |b | BHI 0x21f6c 00021f66 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021f6a 4e 76 |Nv | TRAPV 00021f6c de fc 00 14 | | ADDA.W #0x14,A7 00021f70 59 4f |YO | SUBQ.L #0x4,A7 00021f72 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00021f76 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00021f7a 48 78 00 10 |Hx | PEA.L 0x10 00021f7e 4e b9 00 01 03 5c |N \ | JSR Quad2String(a : Quad; radix : Long ) : String 00021f84 de fc 00 0c | | ADDA.W #0xc,A7 00021f88 4e ba ff 4c |N L | JSR 0x21ed6 00021f8c 58 4f |XO | ADDQ.L #0x4,A7 00021f8e 4e 5e |N^ | UNLK A6 00021f90 4e 75 |Nu | RTS 00021f92 ; -------------------------------------------------------------------------------------- 00021f92 ; OMSI PASCAL Function 00021f92 ; <LVAR 0x008 4(r)> 00021f92 ; -------------------------------------------------------------------------------------- 00021f92 4e 56 ff f4 |NV | LINK.W A6,#0xfff4 00021f96 bf d5 | | CMPA.L (A5),A7 00021f98 62 06 |b | BHI 0x21fa0 00021f9a 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021f9e 4e 76 |Nv | TRAPV 00021fa0 de fc 00 0c | | ADDA.W #0xc,A7 00021fa4 59 4f |YO | SUBQ.L #0x4,A7 00021fa6 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00021faa 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00021fb0 58 4f |XO | ADDQ.L #0x4,A7 00021fb2 4e ba ff 22 |N " | JSR 0x21ed6 00021fb6 58 4f |XO | ADDQ.L #0x4,A7 00021fb8 4e 5e |N^ | UNLK A6 00021fba 4e 75 |Nu | RTS 00021fbc ; -------------------------------------------------------------------------------------- 00021fbc ; OMSI PASCAL Function 00021fbc ; <LVAR 0x008 4(r)> 00021fbc ; <LVAR -0x004 @ 4(r)> 00021fbc ; <LVAR -0x008 4(rw)> 00021fbc ; -------------------------------------------------------------------------------------- 00021fbc 4e 56 ff ca |NV | LINK.W A6,#0xffca 00021fc0 bf d5 | | CMPA.L (A5),A7 00021fc2 62 06 |b | BHI 0x21fca 00021fc4 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021fc8 4e 76 |Nv | TRAPV 00021fca de fc 00 2a | * | ADDA.W #0x2a,A7 00021fce 48 e7 81 e0 |H | MOVEM.L A2+A1+A0+D7+D0,-(A7) 00021fd2 43 ee ff fc |C | LEA.L (A6-0x4),A1 00021fd6 45 ee ff f8 |E | LEA.L (A6-0x8),A2 00021fda 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00021fde 24 a8 00 08 |$ | MOVE.L (A0+0x8),(A2) 00021fe2 48 51 |HQ | PEA.L (A1) 00021fe4 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00021fea 58 4f |XO | ADDQ.L #0x4,A7 00021fec 20 52 | R | MOVEA.L (A2),A0 00021fee b0 fc 00 01 | | CMPA.W #0x1,A0 00021ff2 67 00 00 86 |g | BEQ 0x2207a 00021ff6 4a 90 |J | TST.L (A0) 00021ff8 67 68 |gh | BEQ 0x22062 00021ffa 2f 28 00 04 |/( | MOVE.L (A0+0x4),-(A7) 00021ffe 2e 10 |. | MOVE.L (A0),D7 00022000 be 97 | | CMP.L (A7),D7 00022002 6e 14 |n | BGT 0x22018 00022004 20 17 | | MOVE.L (A7),D0 00022006 0c 87 80 00 00 01 | | CMPI.L #0x80000001,D7 0002200c 6d 08 |m | BLT 0x22016 0002200e 0c 80 7f ff ff ff | | CMPI.L #0x7fffffff,D0 00022014 6f 02 |o | BLE 0x22018 00022016 4e 4f |NO | TRAP #15 00022018 be 97 | | CMP.L (A7),D7 0002201a 6e 44 |nD | BGT 0x22060 0002201c 2f 11 |/ | MOVE.L (A1),-(A7) 0002201e 20 07 | | MOVE.L D7,D0 00022020 53 80 |S | SUBQ.L #0x1,D0 00022022 0c 80 00 00 1f ff | | CMPI.L #0x00001fff,D0 00022028 63 02 |c | BLS 0x2202c 0002202a 4e 4f |NO | TRAP #15 0002202c 41 f9 00 02 6c 16 |A l | LEA.L 0x26c16,A0 00022032 1f 30 08 08 | 0 | MOVE.B (A0+D0.L+#0x8),-(A7) 00022036 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 0002203c 5c 4f |\O | ADDQ.L #0x6,A7 0002203e 20 51 | Q | MOVEA.L (A1),A0 00022040 30 10 |0 | MOVE.W (A0),D0 00022042 0c 40 00 7a | @ z | CMPI.W #0x007a,D0 00022046 6d 14 |m | BLT 0x2205c 00022048 2f 11 |/ | MOVE.L (A1),-(A7) 0002204a 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String) 00022050 58 4f |XO | ADDQ.L #0x4,A7 00022052 48 51 |HQ | PEA.L (A1) 00022054 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 0002205a 58 4f |XO | ADDQ.L #0x4,A7 0002205c 52 87 |R | ADDQ.L #0x1,D7 0002205e 68 b8 |h | BVC 0x22018 00022060 58 4f |XO | ADDQ.L #0x4,A7 00022062 2f 11 |/ | MOVE.L (A1),-(A7) 00022064 1f 3c 00 20 | < | MOVE.B #0x20,-(A7) 00022068 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 0002206e 5c 4f |\O | ADDQ.L #0x6,A7 00022070 20 52 | R | MOVEA.L (A2),A0 00022072 24 a8 00 08 |$ | MOVE.L (A0+0x8),(A2) 00022076 60 00 ff 74 |` t | BRA 0x21fec 0002207a 2f 11 |/ | MOVE.L (A1),-(A7) 0002207c 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00022082 58 4f |XO | ADDQ.L #0x4,A7 00022084 4c df 07 81 |L | MOVEM.L (A7)+,D0+D7+A0+A1+A2 00022088 4e 5e |N^ | UNLK A6 0002208a 4e 75 |Nu | RTS 0002208c ; -------------------------------------------------------------------------------------- 0002208c ; OMSI PASCAL Function 0002208c ; <LVAR 0x008 @ 4(r)> 0002208c ; <LVAR -0x003 @ 1(r)> 0002208c ; <LVAR -0x004 @ 1(r)> 0002208c ; <LVAR -0x008 @ 4(r)> 0002208c ; <LVAR -0x00c @ 4(rw)> 0002208c ; -------------------------------------------------------------------------------------- 0002208c 4e 56 ff ae |NV | LINK.W A6,#0xffae 00022090 bf d5 | | CMPA.L (A5),A7 00022092 62 06 |b | BHI 0x2209a 00022094 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022098 4e 76 |Nv | TRAPV 0002209a de fc 00 46 | F | ADDA.W #0x46,A7 0002209e 48 e7 c0 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D1+D0,-(A7) 000220a2 43 ee 00 08 |C | LEA.L (A6+0x8),A1 000220a6 45 ee ff f4 |E | LEA.L (A6-0xc),A2 000220aa 47 ee ff fc |G | LEA.L (A6-0x4),A3 000220ae 49 ee ff f8 |I | LEA.L (A6-0x8),A4 000220b2 72 01 |r | MOVEQ.L #0x01,D1 000220b4 2f 3a ec 36 |/: 6 | MOVE.L 0x20cec,-(A7) 000220b8 51 4f |QO | SUBQ.L #0x8,A7 000220ba 2f 11 |/ | MOVE.L (A1),-(A7) 000220bc 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 000220c2 48 6f 00 0c |Ho | PEA.L (A7+0xc) 000220c6 3f 01 |? | MOVE.W D1,-(A7) 000220c8 3f 3c 00 04 |?< | MOVE.W #0x4,-(A7) 000220cc 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000220d2 50 4f |PO | ADDQ.L #0x8,A7 000220d4 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000220da 50 4f |PO | ADDQ.L #0x8,A7 000220dc 24 9f |$ | MOVE.L (A7)+,(A2) 000220de 2e 92 |. | MOVE.L (A2),(A7) 000220e0 42 27 |B' | CLR.B -(A7) 000220e2 42 27 |B' | CLR.B -(A7) 000220e4 48 78 00 00 |Hx | PEA.L 0x0 000220e8 48 53 |HS | PEA.L (A3) 000220ea 48 54 |HT | PEA.L (A4) 000220ec 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File) 000220f2 de fc 00 14 | | ADDA.W #0x14,A7 000220f6 4a 13 |J | TST.B (A3) 000220f8 67 36 |g6 | BEQ 0x22130 000220fa 41 fa eb f0 |A | LEA.L 0x20cec,A0 000220fe 70 0a |p | MOVEQ.L #0x0a,D0 00022100 3f 20 |? | MOVE.W -(A0),-(A7) 00022102 51 c8 ff fc |Q | DBF D0,0x22100 00022106 51 4f |QO | SUBQ.L #0x8,A7 00022108 48 6f 00 08 |Ho | PEA.L (A7+0x8) 0002210c 3f 01 |? | MOVE.W D1,-(A7) 0002210e 3f 3c 00 16 |?< | MOVE.W #0x16,-(A7) 00022112 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00022118 58 4f |XO | ADDQ.L #0x4,A7 0002211a 2e 91 |. | MOVE.L (A1),(A7) 0002211c 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00022122 50 4f |PO | ADDQ.L #0x8,A7 00022124 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002212a de fc 00 1a | | ADDA.W #0x1a,A7 0002212e 60 54 |`T | BRA 0x22184 00022130 2f 14 |/ | MOVE.L (A4),-(A7) 00022132 48 51 |HQ | PEA.L (A1) 00022134 48 6e ff fd |Hn | PEA.L (A6-0x3) 00022138 4e b9 00 01 04 3c |N < | JSR FileReadLine(file : File; VAR a : String; VAR b : Byte) 0002213e de fc 00 0c | | ADDA.W #0xc,A7 00022142 4a 2e ff fd |J. | TST.B (A6-0x3) 00022146 66 14 |f | BNE 0x2215c 00022148 59 4f |YO | SUBQ.L #0x4,A7 0002214a 2f 11 |/ | MOVE.L (A1),-(A7) 0002214c 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 00022152 58 4f |XO | ADDQ.L #0x4,A7 00022154 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002215a 58 4f |XO | ADDQ.L #0x4,A7 0002215c 4a 2e ff fd |J. | TST.B (A6-0x3) 00022160 67 ce |g | BEQ 0x22130 00022162 42 27 |B' | CLR.B -(A7) 00022164 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 00022168 48 78 00 01 |Hx | PEA.L 0x1 0002216c 48 53 |HS | PEA.L (A3) 0002216e 48 54 |HT | PEA.L (A4) 00022170 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File) 00022176 de fc 00 10 | | ADDA.W #0x10,A7 0002217a 48 51 |HQ | PEA.L (A1) 0002217c 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00022182 58 4f |XO | ADDQ.L #0x4,A7 00022184 48 52 |HR | PEA.L (A2) 00022186 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 0002218c 58 4f |XO | ADDQ.L #0x4,A7 0002218e 4c df 1f 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2+A3+A4 00022192 4e 5e |N^ | UNLK A6 00022194 4e 75 |Nu | RTS 00022196 ; -------------------------------------------------------------------------------------- 00022196 ; OMSI PASCAL Function 00022196 ; <LVAR 0x008 4(r)> 00022196 ; -------------------------------------------------------------------------------------- 00022196 4e 56 ff c6 |NV | LINK.W A6,#0xffc6 0002219a bf d5 | | CMPA.L (A5),A7 0002219c 62 06 |b | BHI 0x221a4 0002219e 44 fc 00 02 |D | MOVE.W #0x2,CCR 000221a2 4e 76 |Nv | TRAPV 000221a4 de fc 00 2e | . | ADDA.W #0x2e,A7 000221a8 48 e7 83 88 |H | MOVEM.L A4+A0+D7+D6+D0,-(A7) 000221ac 59 4f |YO | SUBQ.L #0x4,A7 000221ae 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000221b2 4e ba f3 64 |N d | JSR 0x21518 000221b6 58 4f |XO | ADDQ.L #0x4,A7 000221b8 2c 1f |, | MOVE.L (A7)+,D6 000221ba 66 2e |f. | BNE 0x221ea 000221bc 41 f9 00 02 8c 30 |A 0 | LEA.L 0x28c30,A0 000221c2 70 04 |p | MOVEQ.L #0x04,D0 000221c4 3f 20 |? | MOVE.W -(A0),-(A7) 000221c6 51 c8 ff fc |Q | DBF D0,0x221c4 000221ca 59 4f |YO | SUBQ.L #0x4,A7 000221cc 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000221d0 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000221d4 3f 3c 00 0a |?< | MOVE.W #0xa,-(A7) 000221d8 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000221de 50 4f |PO | ADDQ.L #0x8,A7 000221e0 4e ba fe aa |N | JSR 0x2208c 000221e4 de fc 00 0e | | ADDA.W #0xe,A7 000221e8 60 26 |`& | BRA 0x22210 000221ea 2f 06 |/ | MOVE.L D6,-(A7) 000221ec 7e 01 |~ | MOVEQ.L #0x01,D7 000221ee be 97 | | CMP.L (A7),D7 000221f0 6e 1c |n | BGT 0x2220e 000221f2 59 4f |YO | SUBQ.L #0x4,A7 000221f4 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000221f8 2f 07 |/ | MOVE.L D7,-(A7) 000221fa 4e ba fc 38 |N 8 | JSR 0x21e34 000221fe 50 4f |PO | ADDQ.L #0x8,A7 00022200 28 5f |(_ | MOVEA.L (A7)+,A4 00022202 2f 0c |/ | MOVE.L A4,-(A7) 00022204 4e ba fe 86 |N | JSR 0x2208c 00022208 58 4f |XO | ADDQ.L #0x4,A7 0002220a 52 87 |R | ADDQ.L #0x1,D7 0002220c 68 e0 |h | BVC 0x221ee 0002220e 58 4f |XO | ADDQ.L #0x4,A7 00022210 4c df 11 c1 |L | MOVEM.L (A7)+,D0+D6+D7+A0+A4 00022214 4e 5e |N^ | UNLK A6 00022216 4e 75 |Nu | RTS 00022218 ; -------------------------------------------------------------------------------------- 00022218 ; OMSI PASCAL Function 00022218 ; <LVAR 0x00c @> 00022218 ; <LVAR 0x008 @ 4(r)> 00022218 ; <LVAR -0x020 @> 00022218 ; -------------------------------------------------------------------------------------- 00022218 4e 56 ff b8 |NV | LINK.W A6,#0xffb8 0002221c bf d5 | | CMPA.L (A5),A7 0002221e 62 06 |b | BHI 0x22226 00022220 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022224 4e 76 |Nv | TRAPV 00022226 de fc 00 24 | $ | ADDA.W #0x24,A7 0002222a 48 e7 e1 c0 |H | MOVEM.L A1+A0+D7+D2+D1+D0,-(A7) 0002222e 74 1d |t | MOVEQ.L #0x1d,D2 00022230 7e 01 |~ | MOVEQ.L #0x01,D7 00022232 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00022236 30 10 |0 | MOVE.W (A0),D0 00022238 48 c0 |H | EXTW.L D0 0002223a be 80 | | CMP.L D0,D7 0002223c 6f 10 |o | BLE 0x2224e 0002223e 20 07 | | MOVE.L D7,D0 00022240 53 80 |S | SUBQ.L #0x1,D0 00022242 b0 82 | | CMP.L D2,D0 00022244 63 02 |c | BLS 0x22248 00022246 4e 4f |NO | TRAP #15 00022248 42 36 08 e0 |B6 | CLR.B (A6+D0.L-#0x20) 0002224c 60 1e |` | BRA 0x2226c 0002224e 20 07 | | MOVE.L D7,D0 00022250 53 80 |S | SUBQ.L #0x1,D0 00022252 b0 82 | | CMP.L D2,D0 00022254 63 02 |c | BLS 0x22258 00022256 4e 4f |NO | TRAP #15 00022258 22 07 |" | MOVE.L D7,D1 0002225a 53 81 |S | SUBQ.L #0x1,D1 0002225c 0c 81 00 00 00 7d | } | CMPI.L #0x0000007d,D1 00022262 63 02 |c | BLS 0x22266 00022264 4e 4f |NO | TRAP #15 00022266 1d b0 18 02 08 e0 | | MOVE.B (A0+D1.L+#0x2),(A6+D0.L-#0x20) 0002226c 52 87 |R | ADDQ.L #0x1,D7 0002226e 0c 87 00 00 00 1e | | CMPI.L #0x0000001e,D7 00022274 6f bc |o | BLE 0x22232 00022276 48 6e 00 08 |Hn | PEA.L (A6+0x8) 0002227a 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00022280 58 4f |XO | ADDQ.L #0x4,A7 00022282 41 ee 00 0c |A | LEA.L (A6+0xc),A0 00022286 43 ee ff e0 |C | LEA.L (A6-0x20),A1 0002228a 70 0e |p | MOVEQ.L #0x0e,D0 0002228c 30 d9 |0 | MOVE.W (A1)+,(A0)+ 0002228e 51 c8 ff fc |Q | DBF D0,0x2228c 00022292 4c df 03 87 |L | MOVEM.L (A7)+,D0+D1+D2+D7+A0+A1 00022296 4e 5e |N^ | UNLK A6 00022298 4e 75 |Nu | RTS 0002229a ; -------------------------------------------------------------------------------------- 0002229a ; OMSI PASCAL Function 0002229a ; <LVAR 0x026 4(w)> 0002229a ; <LVAR 0x008 @> 0002229a ; <LVAR -0x006 4(rw)> 0002229a ; -------------------------------------------------------------------------------------- 0002229a 4e 56 ff d6 |NV | LINK.W A6,#0xffd6 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 24 | $ | ADDA.W #0x24,A7 000222ac 48 e7 c1 f0 |H | MOVEM.L A3+A2+A1+A0+D7+D1+D0,-(A7) 000222b0 47 ee ff fa |G | LEA.L (A6-0x6),A3 000222b4 7e 00 |~ | MOVEQ.L #0x00,D7 000222b6 26 b9 00 02 8c 48 |& H | MOVE.L 0x28c48,(A3) 000222bc 20 53 | S | MOVEA.L (A3),A0 000222be b0 fc 00 01 | | CMPA.W #0x1,A0 000222c2 67 1e |g | BEQ 0x222e2 000222c4 4a 07 |J | TST.B D7 000222c6 66 1a |f | BNE 0x222e2 000222c8 22 48 |"H | MOVEA.L A0,A1 000222ca 45 ee 00 08 |E | LEA.L (A6+0x8),A2 000222ce 70 1d |p | MOVEQ.L #0x1d,D0 000222d0 b5 09 | | CMPM.B (A1)+,(A2)+ 000222d2 56 c8 ff fc |V | DBNE D0,0x222d0 000222d6 66 04 |f | BNE 0x222dc 000222d8 7e 01 |~ | MOVEQ.L #0x01,D7 000222da 60 04 |` | BRA 0x222e0 000222dc 26 a8 00 26 |& & | MOVE.L (A0+0x26),(A3) 000222e0 60 da |` | BRA 0x222bc 000222e2 2d 48 00 26 |-H & | MOVE.L A0,(A6+0x26) 000222e6 4c df 0f 83 |L | MOVEM.L (A7)+,D0+D1+D7+A0+A1+A2+A3 000222ea 4e 5e |N^ | UNLK A6 000222ec 4e 75 |Nu | RTS 000222ee ; -------------------------------------------------------------------------------------- 000222ee ; OMSI PASCAL Function 000222ee ; <LVAR 0x008 @ 4(r)> 000222ee ; -------------------------------------------------------------------------------------- 000222ee 4e 56 ff c8 |NV | LINK.W A6,#0xffc8 000222f2 bf d5 | | CMPA.L (A5),A7 000222f4 62 06 |b | BHI 0x222fc 000222f6 44 fc 00 02 |D | MOVE.W #0x2,CCR 000222fa 4e 76 |Nv | TRAPV 000222fc de fc 00 2c | , | ADDA.W #0x2c,A7 00022300 48 e7 81 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D0,-(A7) 00022304 43 ee 00 08 |C | LEA.L (A6+0x8),A1 00022308 45 f9 00 02 8c 48 |E H | LEA.L 0x28c48,A2 0002230e 70 01 |p | MOVEQ.L #0x01,D0 00022310 20 51 | Q | MOVEA.L (A1),A0 00022312 b0 c0 | | CMPA.W D0,A0 00022314 67 56 |gV | BEQ 0x2236c 00022316 4a a8 00 1e |J | TST.L (A0+0x1e) 0002231a 67 10 |g | BEQ 0x2232c 0002231c 2f 28 00 22 |/( " | MOVE.L (A0+0x22),-(A7) 00022320 2f 28 00 1e |/( | MOVE.L (A0+0x1e),-(A7) 00022324 4e b9 00 01 02 a4 |N | JSR Free1(a : Pointer; b : Long) 0002232a 50 4f |PO | ADDQ.L #0x8,A7 0002232c 7e 00 |~ | MOVEQ.L #0x00,D7 0002232e 38 40 |8@ | MOVEA.W D0,A4 00022330 26 52 |&R | MOVEA.L (A2),A3 00022332 b6 c0 | | CMPA.W D0,A3 00022334 67 14 |g | BEQ 0x2234a 00022336 4a 07 |J | TST.B D7 00022338 66 10 |f | BNE 0x2234a 0002233a b7 d1 | | CMPA.L (A1),A3 0002233c 66 04 |f | BNE 0x22342 0002233e 7e 01 |~ | MOVEQ.L #0x01,D7 00022340 60 06 |` | BRA 0x22348 00022342 28 4b |(K | MOVEA.L A3,A4 00022344 26 6b 00 26 |&k & | MOVEA.L (A3+0x26),A3 00022348 60 e8 |` | BRA 0x22332 0002234a 4a 07 |J | TST.B D7 0002234c 67 1e |g | BEQ 0x2236c 0002234e b8 c0 | | CMPA.W D0,A4 00022350 66 06 |f | BNE 0x22358 00022352 24 ab 00 26 |$ & | MOVE.L (A3+0x26),(A2) 00022356 60 06 |` | BRA 0x2235e 00022358 29 6b 00 26 00 26 |)k & & | MOVE.L (A3+0x26),(A4+0x26) 0002235e 48 51 |HQ | PEA.L (A1) 00022360 48 78 00 2a |Hx * | PEA.L 0x2a 00022364 4e b9 00 01 02 a8 |N | JSR Free2(a : Pointer; b : Long) 0002236a 50 4f |PO | ADDQ.L #0x8,A7 0002236c 4c df 1f 81 |L | MOVEM.L (A7)+,D0+D7+A0+A1+A2+A3+A4 00022370 4e 5e |N^ | UNLK A6 00022372 4e 75 |Nu | RTS 00022374 ; -------------------------------------------------------------------------------------- 00022374 ; OMSI PASCAL Function 00022374 ; <LVAR 0x010 4(w)> 00022374 ; <LVAR 0x00c 4(r)> 00022374 ; <LVAR 0x008 4(r)> 00022374 ; <LVAR -0x006 @ 4(rw)> 00022374 ; <LVAR -0x024 @> 00022374 ; -------------------------------------------------------------------------------------- 00022374 4e 56 ff 9a |NV | LINK.W A6,#0xff9a 00022378 bf d5 | | CMPA.L (A5),A7 0002237a 62 06 |b | BHI 0x22382 0002237c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022380 4e 76 |Nv | TRAPV 00022382 de fc 00 42 | B | ADDA.W #0x42,A7 00022386 48 e7 c0 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D1+D0,-(A7) 0002238a 47 ee ff fa |G | LEA.L (A6-0x6),A3 0002238e 49 ee 00 08 |I | LEA.L (A6+0x8),A4 00022392 72 1e |r | MOVEQ.L #0x1e,D1 00022394 9e c1 | | SUBA.W D1,A7 00022396 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 0002239a 2f 10 |/ | MOVE.L (A0),-(A7) 0002239c 4e ba fe 7a |N z | JSR 0x22218 000223a0 58 4f |XO | ADDQ.L #0x4,A7 000223a2 41 ee ff dc |A | LEA.L (A6-0x24),A0 000223a6 70 0e |p | MOVEQ.L #0x0e,D0 000223a8 30 df |0 | MOVE.W (A7)+,(A0)+ 000223aa 51 c8 ff fc |Q | DBF D0,0x223a8 000223ae 4a 94 |J | TST.L (A4) 000223b0 6c 02 |l | BGE 0x223b4 000223b2 42 94 |B | CLR.L (A4) 000223b4 59 4f |YO | SUBQ.L #0x4,A7 000223b6 20 4b | K | MOVEA.L A3,A0 000223b8 70 0e |p | MOVEQ.L #0x0e,D0 000223ba 3f 20 |? | MOVE.W -(A0),-(A7) 000223bc 51 c8 ff fc |Q | DBF D0,0x223ba 000223c0 4e ba fe d8 |N | JSR 0x2229a 000223c4 de c1 | | ADDA.W D1,A7 000223c6 26 9f |& | MOVE.L (A7)+,(A3) 000223c8 20 53 | S | MOVEA.L (A3),A0 000223ca b0 fc 00 01 | | CMPA.W #0x1,A0 000223ce 67 12 |g | BEQ 0x223e2 000223d0 20 28 00 1e | ( | MOVE.L (A0+0x1e),D0 000223d4 b0 94 | | CMP.L (A4),D0 000223d6 66 02 |f | BNE 0x223da 000223d8 60 4c |`L | BRA 0x22426 000223da 2f 13 |/ | MOVE.L (A3),-(A7) 000223dc 4e ba ff 10 |N | JSR 0x222ee 000223e0 58 4f |XO | ADDQ.L #0x4,A7 000223e2 48 53 |HS | PEA.L (A3) 000223e4 48 78 00 2a |Hx * | PEA.L 0x2a 000223e8 4e b9 00 01 02 9c |N | JSR Malloc1(length : Long) : Pointer 000223ee 50 4f |PO | ADDQ.L #0x8,A7 000223f0 20 53 | S | MOVEA.L (A3),A0 000223f2 21 79 00 02 8c 48 00 26 |!y H &| MOVE.L 0x28c48,(A0+0x26) 000223fa 23 d3 00 02 8c 48 |# H | MOVE.L (A3),0x28c48 00022400 22 48 |"H | MOVEA.L A0,A1 00022402 45 ee ff dc |E | LEA.L (A6-0x24),A2 00022406 70 1d |p | MOVEQ.L #0x1d,D0 00022408 12 da | | MOVE.B (A2)+,(A1)+ 0002240a 51 c8 ff fc |Q | DBF D0,0x22408 0002240e 21 54 00 1e |!T | MOVE.L (A4),(A0+0x1e) 00022412 4a 94 |J | TST.L (A4) 00022414 67 10 |g | BEQ 0x22426 00022416 59 4f |YO | SUBQ.L #0x4,A7 00022418 2f 14 |/ | MOVE.L (A4),-(A7) 0002241a 4e b9 00 01 02 a0 |N | JSR Malloc2(VAR dst : Pointer; length : Word) 00022420 58 4f |XO | ADDQ.L #0x4,A7 00022422 21 5f 00 22 |!_ " | MOVE.L (A7)+,(A0+0x22) 00022426 2d 53 00 10 |-S | MOVE.L (A3),(A6+0x10) 0002242a 4c df 1f 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2+A3+A4 0002242e 4e 5e |N^ | UNLK A6 00022430 4e 75 |Nu | RTS 00022432 ; -------------------------------------------------------------------------------------- 00022432 ; OMSI PASCAL Function 00022432 ; <LVAR 0x00c @> 00022432 ; <LVAR 0x008 @ 4(r)> 00022432 ; <LVAR -0x008 4(rw)> 00022432 ; -------------------------------------------------------------------------------------- 00022432 4e 56 ff c8 |NV | LINK.W A6,#0xffc8 00022436 bf d5 | | CMPA.L (A5),A7 00022438 62 06 |b | BHI 0x22440 0002243a 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002243e 4e 76 |Nv | TRAPV 00022440 de fc 00 2c | , | ADDA.W #0x2c,A7 00022444 48 e7 c3 e0 |H | MOVEM.L A2+A1+A0+D7+D6+D1+D0,-(A7) 00022448 45 ee 00 08 |E | LEA.L (A6+0x8),A2 0002244c 20 52 | R | MOVEA.L (A2),A0 0002244e 30 10 |0 | MOVE.W (A0),D0 00022450 48 c0 |H | EXTW.L D0 00022452 2c 00 |, | MOVE.L D0,D6 00022454 59 4f |YO | SUBQ.L #0x4,A7 00022456 48 6e 00 0c |Hn | PEA.L (A6+0xc) 0002245a 2f 06 |/ | MOVE.L D6,-(A7) 0002245c 4e ba ff 16 |N | JSR 0x22374 00022460 50 4f |PO | ADDQ.L #0x8,A7 00022462 2d 5f ff f8 |-_ | MOVE.L (A7)+,(A6-0x8) 00022466 4a 86 |J | TST.L D6 00022468 67 40 |g@ | BEQ 0x224aa 0002246a 20 6e ff f8 | n | MOVEA.L (A6-0x8),A0 0002246e 20 68 00 22 | h " | MOVEA.L (A0+0x22),A0 00022472 2f 08 |/ | MOVE.L A0,-(A7) 00022474 2f 06 |/ | MOVE.L D6,-(A7) 00022476 7e 01 |~ | MOVEQ.L #0x01,D7 00022478 be 97 | | CMP.L (A7),D7 0002247a 6e 2c |n, | BGT 0x224a8 0002247c 20 07 | | MOVE.L D7,D0 0002247e 53 80 |S | SUBQ.L #0x1,D0 00022480 0c 80 00 00 03 ff | | CMPI.L #0x000003ff,D0 00022486 63 02 |c | BLS 0x2248a 00022488 4e 4f |NO | TRAP #15 0002248a 20 6f 00 04 | o | MOVEA.L (A7+0x4),A0 0002248e 22 52 |"R | MOVEA.L (A2),A1 00022490 22 07 |" | MOVE.L D7,D1 00022492 53 81 |S | SUBQ.L #0x1,D1 00022494 0c 81 00 00 00 7d | } | CMPI.L #0x0000007d,D1 0002249a 63 02 |c | BLS 0x2249e 0002249c 4e 4f |NO | TRAP #15 0002249e 11 b1 18 02 08 00 | | MOVE.B (A1+D1.L+#0x2),(A0+D0.L) 000224a4 52 87 |R | ADDQ.L #0x1,D7 000224a6 68 d0 |h | BVC 0x22478 000224a8 50 4f |PO | ADDQ.L #0x8,A7 000224aa 48 52 |HR | PEA.L (A2) 000224ac 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000224b2 58 4f |XO | ADDQ.L #0x4,A7 000224b4 4c df 07 c3 |L | MOVEM.L (A7)+,D0+D1+D6+D7+A0+A1+A2 000224b8 4e 5e |N^ | UNLK A6 000224ba 4e 75 |Nu | RTS 000224bc ; -------------------------------------------------------------------------------------- 000224bc ; OMSI PASCAL Function 000224bc ; <LVAR 0x008 4(r)> 000224bc ; <LVAR -0x004 @ 4(w)> 000224bc ; <LVAR -0x008 4(rw)> 000224bc ; <LVAR -0x00c 4(rw)> 000224bc ; <LVAR -0x010 4(rw)> 000224bc ; <LVAR -0x01c 4(rw)> 000224bc ; <LVAR -0x020 4(rw)> 000224bc ; -------------------------------------------------------------------------------------- 000224bc 4e 56 ff 82 |NV | LINK.W A6,#0xff82 000224c0 bf d5 | | CMPA.L (A5),A7 000224c2 62 06 |b | BHI 0x224ca 000224c4 44 fc 00 02 |D | MOVE.W #0x2,CCR 000224c8 4e 76 |Nv | TRAPV 000224ca de fc 00 5a | Z | ADDA.W #0x5a,A7 000224ce 48 e7 e7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7) 000224d2 45 ee ff f4 |E | LEA.L (A6-0xc),A2 000224d6 47 ee ff f0 |G | LEA.L (A6-0x10),A3 000224da 49 ee 00 08 |I | LEA.L (A6+0x8),A4 000224de 74 01 |t | MOVEQ.L #0x01,D2 000224e0 59 4f |YO | SUBQ.L #0x4,A7 000224e2 2f 14 |/ | MOVE.L (A4),-(A7) 000224e4 4e ba f0 32 |N 2 | JSR 0x21518 000224e8 58 4f |XO | ADDQ.L #0x4,A7 000224ea 26 9f |& | MOVE.L (A7)+,(A3) 000224ec 20 13 | | MOVE.L (A3),D0 000224ee b0 82 | | CMP.L D2,D0 000224f0 6c 2e |l. | BGE 0x22520 000224f2 9e fc 00 1a | | SUBA.W #0x1a,A7 000224f6 20 4f | O | MOVEA.L A7,A0 000224f8 43 fa e7 f6 |C | LEA.L 0x20cf0,A1 000224fc 72 18 |r | MOVEQ.L #0x18,D1 000224fe 10 d9 | | MOVE.B (A1)+,(A0)+ 00022500 51 c9 ff fc |Q | DBF D1,0x224fe 00022504 59 4f |YO | SUBQ.L #0x4,A7 00022506 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002250a 3f 02 |? | MOVE.W D2,-(A7) 0002250c 3f 3c 00 19 |?< | MOVE.W #0x19,-(A7) 00022510 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00022516 50 4f |PO | ADDQ.L #0x8,A7 00022518 4e ba eb f2 |N | JSR 0x2110c 0002251c de fc 00 1e | | ADDA.W #0x1e,A7 00022520 42 92 |B | CLR.L (A2) 00022522 2f 00 |/ | MOVE.L D0,-(A7) 00022524 7c 02 || | MOVEQ.L #0x02,D6 00022526 bc 97 | | CMP.L (A7),D6 00022528 6e 1e |n | BGT 0x22548 0002252a 9e fc 00 0c | | SUBA.W #0xc,A7 0002252e 2f 14 |/ | MOVE.L (A4),-(A7) 00022530 2f 06 |/ | MOVE.L D6,-(A7) 00022532 4e ba f8 22 |N " | JSR 0x21d56 00022536 50 4f |PO | ADDQ.L #0x8,A7 00022538 4e ba f7 e4 |N | JSR 0x21d1e 0002253c 50 4f |PO | ADDQ.L #0x8,A7 0002253e 20 12 | | MOVE.L (A2),D0 00022540 d0 9f | | ADD.L (A7)+,D0 00022542 24 80 |$ | MOVE.L D0,(A2) 00022544 52 86 |R | ADDQ.L #0x1,D6 00022546 68 de |h | BVC 0x22526 00022548 58 4f |XO | ADDQ.L #0x4,A7 0002254a 20 13 | | MOVE.L (A3),D0 0002254c 55 80 |U | SUBQ.L #0x2,D0 0002254e d1 92 | | ADD.L D0,(A2) 00022550 59 4f |YO | SUBQ.L #0x4,A7 00022552 2f 14 |/ | MOVE.L (A4),-(A7) 00022554 48 78 00 01 |Hx | PEA.L 0x1 00022558 4e ba f8 da |N | JSR 0x21e34 0002255c 50 4f |PO | ADDQ.L #0x8,A7 0002255e 2d 57 ff fc |-W | MOVE.L (A7),(A6-0x4) 00022562 48 6e ff fc |Hn | PEA.L (A6-0x4) 00022566 2f 12 |/ | MOVE.L (A2),-(A7) 00022568 4e ba fe 0a |N | JSR 0x22374 0002256c 50 4f |PO | ADDQ.L #0x8,A7 0002256e 2d 5f ff f8 |-_ | MOVE.L (A7)+,(A6-0x8) 00022572 4a 92 |J | TST.L (A2) 00022574 6f 00 00 aa |o | BLE 0x22620 00022578 20 6e ff f8 | n | MOVEA.L (A6-0x8),A0 0002257c 20 68 00 22 | h " | MOVEA.L (A0+0x22),A0 00022580 2f 08 |/ | MOVE.L A0,-(A7) 00022582 7e 01 |~ | MOVEQ.L #0x01,D7 00022584 2f 13 |/ | MOVE.L (A3),-(A7) 00022586 7c 02 || | MOVEQ.L #0x02,D6 00022588 bc 97 | | CMP.L (A7),D6 0002258a 6e 00 00 92 |n | BGT 0x2261e 0002258e 51 4f |QO | SUBQ.L #0x8,A7 00022590 2f 14 |/ | MOVE.L (A4),-(A7) 00022592 2f 06 |/ | MOVE.L D6,-(A7) 00022594 4e ba f7 c0 |N | JSR 0x21d56 00022598 50 4f |PO | ADDQ.L #0x8,A7 0002259a 2d 5f ff e0 |-_ | MOVE.L (A7)+,(A6-0x20) 0002259e 2d 5f ff e4 |-_ | MOVE.L (A7)+,(A6-0x1c) 000225a2 2f 2e ff e4 |/. | MOVE.L (A6-0x1c),-(A7) 000225a6 2a 2e ff e0 |*. | MOVE.L (A6-0x20),D5 000225aa ba 97 | | CMP.L (A7),D5 000225ac 6e 14 |n | BGT 0x225c2 000225ae 20 17 | | MOVE.L (A7),D0 000225b0 0c 85 80 00 00 01 | | CMPI.L #0x80000001,D5 000225b6 6d 08 |m | BLT 0x225c0 000225b8 0c 80 7f ff ff ff | | CMPI.L #0x7fffffff,D0 000225be 6f 02 |o | BLE 0x225c2 000225c0 4e 4f |NO | TRAP #15 000225c2 ba 97 | | CMP.L (A7),D5 000225c4 6e 32 |n2 | BGT 0x225f8 000225c6 20 07 | | MOVE.L D7,D0 000225c8 53 80 |S | SUBQ.L #0x1,D0 000225ca 0c 80 00 00 03 ff | | CMPI.L #0x000003ff,D0 000225d0 63 02 |c | BLS 0x225d4 000225d2 4e 4f |NO | TRAP #15 000225d4 20 6f 00 08 | o | MOVEA.L (A7+0x8),A0 000225d8 22 05 |" | MOVE.L D5,D1 000225da 53 81 |S | SUBQ.L #0x1,D1 000225dc 0c 81 00 00 1f ff | | CMPI.L #0x00001fff,D1 000225e2 63 02 |c | BLS 0x225e6 000225e4 4e 4f |NO | TRAP #15 000225e6 43 f9 00 02 6c 16 |C l | LEA.L 0x26c16,A1 000225ec 11 b1 18 08 08 00 | | MOVE.B (A1+D1.L+#0x8),(A0+D0.L) 000225f2 52 87 |R | ADDQ.L #0x1,D7 000225f4 52 85 |R | ADDQ.L #0x1,D5 000225f6 68 ca |h | BVC 0x225c2 000225f8 58 4f |XO | ADDQ.L #0x4,A7 000225fa bc 93 | | CMP.L (A3),D6 000225fc 67 1a |g | BEQ 0x22618 000225fe 20 07 | | MOVE.L D7,D0 00022600 53 80 |S | SUBQ.L #0x1,D0 00022602 0c 80 00 00 03 ff | | CMPI.L #0x000003ff,D0 00022608 63 02 |c | BLS 0x2260c 0002260a 4e 4f |NO | TRAP #15 0002260c 20 6f 00 04 | o | MOVEA.L (A7+0x4),A0 00022610 11 bc 00 2c 08 00 | , | MOVE.B #0x2c,(A0+D0.L) 00022616 52 87 |R | ADDQ.L #0x1,D7 00022618 52 86 |R | ADDQ.L #0x1,D6 0002261a 68 00 ff 6c |h l | BVC 0x22588 0002261e 50 4f |PO | ADDQ.L #0x8,A7 00022620 4c df 1f e7 |L | MOVEM.L (A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3+A4 00022624 4e 5e |N^ | UNLK A6 00022626 4e 75 |Nu | RTS 00022628 ; -------------------------------------------------------------------------------------- 00022628 ; OMSI PASCAL Function 00022628 ; <LVAR 0x008 4(r)> 00022628 ; <LVAR -0x00c 4(rw)> 00022628 ; -------------------------------------------------------------------------------------- 00022628 4e 56 ff a0 |NV | LINK.W A6,#0xffa0 0002262c bf d5 | | CMPA.L (A5),A7 0002262e 62 06 |b | BHI 0x22636 00022630 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022634 4e 76 |Nv | TRAPV 00022636 de fc 00 54 | T | ADDA.W #0x54,A7 0002263a 48 e7 e1 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D2+D1+D0,-(A7) 0002263e 47 f9 00 02 8c 1e |G | LEA.L 0x28c1e,A3 00022644 74 01 |t | MOVEQ.L #0x01,D2 00022646 59 4f |YO | SUBQ.L #0x4,A7 00022648 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 0002264c 48 78 00 01 |Hx | PEA.L 0x1 00022650 4e ba f7 e2 |N | JSR 0x21e34 00022654 50 4f |PO | ADDQ.L #0x8,A7 00022656 28 5f |(_ | MOVEA.L (A7)+,A4 00022658 9e fc 00 22 | " | SUBA.W #0x22,A7 0002265c 2f 0c |/ | MOVE.L A4,-(A7) 0002265e 4e ba fb b8 |N | JSR 0x22218 00022662 58 4f |XO | ADDQ.L #0x4,A7 00022664 4e ba fc 34 |N 4 | JSR 0x2229a 00022668 de fc 00 1e | | ADDA.W #0x1e,A7 0002266c 2d 5f ff f4 |-_ | MOVE.L (A7)+,(A6-0xc) 00022670 20 6e ff f4 | n | MOVEA.L (A6-0xc),A0 00022674 b0 c2 | | CMPA.W D2,A0 00022676 66 42 |fB | BNE 0x226ba 00022678 9e fc 00 14 | | SUBA.W #0x14,A7 0002267c 22 4f |"O | MOVEA.L A7,A1 0002267e 45 fa e6 8a |E | LEA.L 0x20d0a,A2 00022682 70 12 |p | MOVEQ.L #0x12,D0 00022684 12 da | | MOVE.B (A2)+,(A1)+ 00022686 51 c8 ff fc |Q | DBF D0,0x22684 0002268a 51 4f |QO | SUBQ.L #0x8,A7 0002268c 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00022690 3f 02 |? | MOVE.W D2,-(A7) 00022692 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7) 00022696 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002269c 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7) 000226a0 48 78 00 01 |Hx | PEA.L 0x1 000226a4 4e ba f7 8e |N | JSR 0x21e34 000226a8 50 4f |PO | ADDQ.L #0x8,A7 000226aa 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000226b0 50 4f |PO | ADDQ.L #0x8,A7 000226b2 4e ba ea 58 |N X | JSR 0x2110c 000226b6 de fc 00 18 | | ADDA.W #0x18,A7 000226ba 2f 08 |/ | MOVE.L A0,-(A7) 000226bc 2f 13 |/ | MOVE.L (A3),-(A7) 000226be 2f 28 00 1e |/( | MOVE.L (A0+0x1e),-(A7) 000226c2 44 97 |D | NEG.L (A7) 000226c4 4e ba ef 9a |N | JSR 0x21660 000226c8 58 4f |XO | ADDQ.L #0x4,A7 000226ca 2e a8 00 1e |. | MOVE.L (A0+0x1e),(A7) 000226ce 7e 01 |~ | MOVEQ.L #0x01,D7 000226d0 be 97 | | CMP.L (A7),D7 000226d2 6e 38 |n8 | BGT 0x2270c 000226d4 20 07 | | MOVE.L D7,D0 000226d6 d0 93 | | ADD.L (A3),D0 000226d8 53 80 |S | SUBQ.L #0x1,D0 000226da 53 80 |S | SUBQ.L #0x1,D0 000226dc 0c 80 00 00 1f ff | | CMPI.L #0x00001fff,D0 000226e2 63 02 |c | BLS 0x226e6 000226e4 4e 4f |NO | TRAP #15 000226e6 41 f9 00 02 6c 16 |A l | LEA.L 0x26c16,A0 000226ec 22 6f 00 04 |"o | MOVEA.L (A7+0x4),A1 000226f0 22 69 00 22 |"i " | MOVEA.L (A1+0x22),A1 000226f4 22 07 |" | MOVE.L D7,D1 000226f6 53 81 |S | SUBQ.L #0x1,D1 000226f8 0c 81 00 00 03 ff | | CMPI.L #0x000003ff,D1 000226fe 63 02 |c | BLS 0x22702 00022700 4e 4f |NO | TRAP #15 00022702 11 b1 18 00 08 08 | | MOVE.B (A1+D1.L),(A0+D0.L+#0x8) 00022708 52 87 |R | ADDQ.L #0x1,D7 0002270a 68 c4 |h | BVC 0x226d0 0002270c 50 4f |PO | ADDQ.L #0x8,A7 0002270e 4c df 1f 87 |L | MOVEM.L (A7)+,D0+D1+D2+D7+A0+A1+A2+A3+A4 00022712 4e 5e |N^ | UNLK A6 00022714 4e 75 |Nu | RTS 00022716 ; -------------------------------------------------------------------------------------- 00022716 ; OMSI PASCAL Function 00022716 ; <LVAR -0x004 4(rw)> 00022716 ; -------------------------------------------------------------------------------------- 00022716 4e 56 ff ae |NV | LINK.W A6,#0xffae 0002271a bf d5 | | CMPA.L (A5),A7 0002271c 62 06 |b | BHI 0x22724 0002271e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022722 4e 76 |Nv | TRAPV 00022724 de fc 00 4e | N | ADDA.W #0x4e,A7 00022728 48 e7 e0 f0 |H | MOVEM.L A3+A2+A1+A0+D2+D1+D0,-(A7) 0002272c 47 ee ff fc |G | LEA.L (A6-0x4),A3 00022730 72 01 |r | MOVEQ.L #0x01,D1 00022732 74 1e |t | MOVEQ.L #0x1e,D2 00022734 26 b9 00 02 8c 48 |& H | MOVE.L 0x28c48,(A3) 0002273a 20 53 | S | MOVEA.L (A3),A0 0002273c b0 c1 | | CMPA.W D1,A0 0002273e 67 30 |g0 | BEQ 0x22770 00022740 9e c2 | | SUBA.W D2,A7 00022742 22 4f |"O | MOVEA.L A7,A1 00022744 24 48 |$H | MOVEA.L A0,A2 00022746 70 1d |p | MOVEQ.L #0x1d,D0 00022748 12 da | | MOVE.B (A2)+,(A1)+ 0002274a 51 c8 ff fc |Q | DBF D0,0x22748 0002274e 59 4f |YO | SUBQ.L #0x4,A7 00022750 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022754 3f 01 |? | MOVE.W D1,-(A7) 00022756 3f 02 |? | MOVE.W D2,-(A7) 00022758 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002275e 50 4f |PO | ADDQ.L #0x8,A7 00022760 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00022766 de fc 00 22 | " | ADDA.W #0x22,A7 0002276a 26 a8 00 26 |& & | MOVE.L (A0+0x26),(A3) 0002276e 60 ca |` | BRA 0x2273a 00022770 4c df 0f 07 |L | MOVEM.L (A7)+,D0+D1+D2+A0+A1+A2+A3 00022774 4e 5e |N^ | UNLK A6 00022776 4e 75 |Nu | RTS 00022778 ; -------------------------------------------------------------------------------------- 00022778 ; OMSI PASCAL Function 00022778 ; <LVAR 0x008 4(r)> 00022778 ; -------------------------------------------------------------------------------------- 00022778 4e 56 ff ce |NV | LINK.W A6,#0xffce 0002277c bf d5 | | CMPA.L (A5),A7 0002277e 62 06 |b | BHI 0x22786 00022780 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022784 4e 76 |Nv | TRAPV 00022786 de fc 00 32 | 2 | ADDA.W #0x32,A7 0002278a 9e fc 00 26 | & | SUBA.W #0x26,A7 0002278e 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022792 48 78 00 01 |Hx | PEA.L 0x1 00022796 4e ba f6 9c |N | JSR 0x21e34 0002279a 50 4f |PO | ADDQ.L #0x8,A7 0002279c 4e ba fa 7a |N z | JSR 0x22218 000227a0 58 4f |XO | ADDQ.L #0x4,A7 000227a2 4e ba fa f6 |N | JSR 0x2229a 000227a6 de fc 00 1e | | ADDA.W #0x1e,A7 000227aa 4e ba fb 42 |N B | JSR 0x222ee 000227ae 58 4f |XO | ADDQ.L #0x4,A7 000227b0 4e 5e |N^ | UNLK A6 000227b2 4e 75 |Nu | RTS 000227b4 ; -------------------------------------------------------------------------------------- 000227b4 ; OMSI PASCAL Function 000227b4 ; -------------------------------------------------------------------------------------- 000227b4 4e 56 ff f4 |NV | LINK.W A6,#0xfff4 000227b8 bf d5 | | CMPA.L (A5),A7 000227ba 62 06 |b | BHI 0x227c2 000227bc 44 fc 00 02 |D | MOVE.W #0x2,CCR 000227c0 4e 76 |Nv | TRAPV 000227c2 de fc 00 0c | | ADDA.W #0xc,A7 000227c6 51 4f |QO | SUBQ.L #0x8,A7 000227c8 4e b9 00 01 03 cc |N | JSR GetPushLevel() : Long 000227ce 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 000227d4 58 4f |XO | ADDQ.L #0x4,A7 000227d6 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000227dc 58 4f |XO | ADDQ.L #0x4,A7 000227de 4e 5e |N^ | UNLK A6 000227e0 4e 75 |Nu | RTS 000227e2 ; -------------------------------------------------------------------------------------- 000227e2 ; OMSI PASCAL Function 000227e2 ; <LVAR 0x008 4(r)> 000227e2 ; <LVAR -0x004 1(rw)> 000227e2 ; <LVAR -0x008 @ 4(rw)> 000227e2 ; <LVAR -0x00c @ 4(r)> 000227e2 ; <LVAR -0x010 @ 4(r)> 000227e2 ; <LVAR -0x012 @ 1(r)> 000227e2 ; <LVAR -0x013 @ 1(r)> 000227e2 ; <LVAR -0x014 @ 1(r)> 000227e2 ; <LVAR -0x024 4(rw)> 000227e2 ; <LVAR -0x028 4(rw)> 000227e2 ; <LVAR -0x02c 4(rw)> 000227e2 ; <LVAR -0x030 @ 4(r)> 000227e2 ; <LVAR -0x032 1(w)> 000227e2 ; <LVAR -0x036 @ 4(r)> 000227e2 ; <LVAR -0x038 @ 1(r)> 000227e2 ; <LVAR -0x03c @ 4(rw)> 000227e2 ; -------------------------------------------------------------------------------------- 000227e2 4e 56 ff 64 |NV d | LINK.W A6,#0xff64 000227e6 bf d5 | | CMPA.L (A5),A7 000227e8 62 06 |b | BHI 0x227f0 000227ea 44 fc 00 02 |D | MOVE.W #0x2,CCR 000227ee 4e 76 |Nv | TRAPV 000227f0 de fc 00 60 | ` | ADDA.W #0x60,A7 000227f4 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 000227f8 45 ee ff c4 |E | LEA.L (A6-0x3c),A2 000227fc 47 ee 00 08 |G | LEA.L (A6+0x8),A3 00022800 49 f9 00 01 02 c4 |I | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A4 00022806 74 01 |t | MOVEQ.L #0x01,D2 00022808 76 14 |v | MOVEQ.L #0x14,D3 0002280a 28 3c ff ff 80 00 |(< | MOVE.L #0xffff8000,D4 00022810 59 4f |YO | SUBQ.L #0x4,A7 00022812 2f 13 |/ | MOVE.L (A3),-(A7) 00022814 4e ba ed 02 |N | JSR 0x21518 00022818 58 4f |XO | ADDQ.L #0x4,A7 0002281a 2d 5f ff d4 |-_ | MOVE.L (A7)+,(A6-0x2c) 0002281e 66 28 |f( | BNE 0x22848 00022820 59 4f |YO | SUBQ.L #0x4,A7 00022822 1e ba e5 0c | | MOVE.B 0x20d30,(A7) 00022826 1f 7a e5 09 00 01 | z | MOVE.B 0x20d31,(A7+0x1) 0002282c 1f 7a e5 04 00 02 | z | MOVE.B 0x20d32,(A7+0x2) 00022832 59 4f |YO | SUBQ.L #0x4,A7 00022834 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022838 3f 02 |? | MOVE.W D2,-(A7) 0002283a 3f 3c 00 03 |?< | MOVE.W #0x3,-(A7) 0002283e 4e 94 |N | JSR (A4) 00022840 50 4f |PO | ADDQ.L #0x8,A7 00022842 24 9f |$ | MOVE.L (A7)+,(A2) 00022844 58 4f |XO | ADDQ.L #0x4,A7 00022846 60 10 |` | BRA 0x22858 00022848 59 4f |YO | SUBQ.L #0x4,A7 0002284a 2f 13 |/ | MOVE.L (A3),-(A7) 0002284c 48 78 00 01 |Hx | PEA.L 0x1 00022850 4e ba f5 e2 |N | JSR 0x21e34 00022854 50 4f |PO | ADDQ.L #0x8,A7 00022856 24 9f |$ | MOVE.L (A7)+,(A2) 00022858 5d 4f |]O | SUBQ.L #0x6,A7 0002285a 20 4f | O | MOVEA.L A7,A0 0002285c 43 fa e4 d6 |C | LEA.L 0x20d34,A1 00022860 70 04 |p | MOVEQ.L #0x04,D0 00022862 10 d9 | | MOVE.B (A1)+,(A0)+ 00022864 51 c8 ff fc |Q | DBF D0,0x22862 00022868 59 4f |YO | SUBQ.L #0x4,A7 0002286a 2f 12 |/ | MOVE.L (A2),-(A7) 0002286c 59 4f |YO | SUBQ.L #0x4,A7 0002286e 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00022872 3f 02 |? | MOVE.W D2,-(A7) 00022874 3f 3c 00 05 |?< | MOVE.W #0x5,-(A7) 00022878 4e 94 |N | JSR (A4) 0002287a 50 4f |PO | ADDQ.L #0x8,A7 0002287c 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00022882 50 4f |PO | ADDQ.L #0x8,A7 00022884 24 9f |$ | MOVE.L (A7)+,(A2) 00022886 54 4f |TO | ADDQ.L #0x2,A7 00022888 2e 92 |. | MOVE.L (A2),(A7) 0002288a 42 27 |B' | CLR.B -(A7) 0002288c 1f 02 | | MOVE.B D2,-(A7) 0002288e 48 78 00 00 |Hx | PEA.L 0x0 00022892 48 6e ff c8 |Hn | PEA.L (A6-0x38) 00022896 48 6e ff ca |Hn | PEA.L (A6-0x36) 0002289a 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File) 000228a0 de c3 | | ADDA.W D3,A7 000228a2 4a 2e ff c8 |J. | TST.B (A6-0x38) 000228a6 67 0e |g | BEQ 0x228b6 000228a8 48 52 |HR | PEA.L (A2) 000228aa 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000228b0 58 4f |XO | ADDQ.L #0x4,A7 000228b2 60 00 02 4e |` N | BRA 0x22b02 000228b6 20 6e ff ca | n | MOVEA.L (A6-0x36),A0 000228ba 10 28 00 3f | ( ? | MOVE.B (A0+0x3f),D0 000228be ed 08 | | LSL.B #0x6,D0 000228c0 ee 08 | | LSR.B #0x7,D0 000228c2 1d 40 ff ce | @ | MOVE.B D0,(A6-0x32) 000228c6 42 27 |B' | CLR.B -(A7) 000228c8 1f 02 | | MOVE.B D2,-(A7) 000228ca 48 78 00 01 |Hx | PEA.L 0x1 000228ce 48 6e ff c8 |Hn | PEA.L (A6-0x38) 000228d2 48 6e ff ca |Hn | PEA.L (A6-0x36) 000228d6 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File) 000228dc de fc 00 10 | | ADDA.W #0x10,A7 000228e0 20 52 | R | MOVEA.L (A2),A0 000228e2 32 10 |2 | MOVE.W (A0),D1 000228e4 48 c1 |H | EXTW.L D1 000228e6 5b 81 |[ | SUBQ.L #0x5,D1 000228e8 92 84 | | SUB.L D4,D1 000228ea 0c 81 00 00 ff ff | | CMPI.L #0x0000ffff,D1 000228f0 63 02 |c | BLS 0x228f4 000228f2 4e 4f |NO | TRAP #15 000228f4 d2 84 | | ADD.L D4,D1 000228f6 30 81 |0 | MOVE.W D1,(A0) 000228f8 4a 00 |J | TST.B D0 000228fa 66 36 |f6 | BNE 0x22932 000228fc 41 fa e4 32 |A 2 | LEA.L 0x20d30,A0 00022900 70 08 |p | MOVEQ.L #0x08,D0 00022902 3f 20 |? | MOVE.W -(A0),-(A7) 00022904 51 c8 ff fc |Q | DBF D0,0x22902 00022908 59 4f |YO | SUBQ.L #0x4,A7 0002290a 2f 12 |/ | MOVE.L (A2),-(A7) 0002290c 59 4f |YO | SUBQ.L #0x4,A7 0002290e 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00022912 3f 02 |? | MOVE.W D2,-(A7) 00022914 3f 3c 00 12 |?< | MOVE.W #0x12,-(A7) 00022918 4e 94 |N | JSR (A4) 0002291a 50 4f |PO | ADDQ.L #0x8,A7 0002291c 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00022922 50 4f |PO | ADDQ.L #0x8,A7 00022924 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002292a de fc 00 16 | | ADDA.W #0x16,A7 0002292e 60 00 01 d2 |` | BRA 0x22b02 00022932 48 6e ff d0 |Hn | PEA.L (A6-0x30) 00022936 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 0002293c 58 4f |XO | ADDQ.L #0x4,A7 0002293e 20 6e ff d0 | n | MOVEA.L (A6-0x30),A0 00022942 2f 08 |/ | MOVE.L A0,-(A7) 00022944 7e 01 |~ | MOVEQ.L #0x01,D7 00022946 2f 2e ff d4 |/. | MOVE.L (A6-0x2c),-(A7) 0002294a 7a 02 |z | MOVEQ.L #0x02,D5 0002294c ba 97 | | CMP.L (A7),D5 0002294e 6e 00 00 94 |n | BGT 0x229e4 00022952 51 4f |QO | SUBQ.L #0x8,A7 00022954 2f 13 |/ | MOVE.L (A3),-(A7) 00022956 2f 05 |/ | MOVE.L D5,-(A7) 00022958 4e ba f3 fc |N | JSR 0x21d56 0002295c 50 4f |PO | ADDQ.L #0x8,A7 0002295e 2d 5f ff d8 |-_ | MOVE.L (A7)+,(A6-0x28) 00022962 2d 5f ff dc |-_ | MOVE.L (A7)+,(A6-0x24) 00022966 2f 2e ff dc |/. | MOVE.L (A6-0x24),-(A7) 0002296a 2c 2e ff d8 |,. | MOVE.L (A6-0x28),D6 0002296e bc 97 | | CMP.L (A7),D6 00022970 6e 14 |n | BGT 0x22986 00022972 20 17 | | MOVE.L (A7),D0 00022974 0c 86 80 00 00 01 | | CMPI.L #0x80000001,D6 0002297a 6d 08 |m | BLT 0x22984 0002297c 0c 80 7f ff ff ff | | CMPI.L #0x7fffffff,D0 00022982 6f 02 |o | BLE 0x22986 00022984 4e 4f |NO | TRAP #15 00022986 bc 97 | | CMP.L (A7),D6 00022988 6e 32 |n2 | BGT 0x229bc 0002298a 20 07 | | MOVE.L D7,D0 0002298c 53 80 |S | SUBQ.L #0x1,D0 0002298e 0c 80 00 00 00 7d | } | CMPI.L #0x0000007d,D0 00022994 63 02 |c | BLS 0x22998 00022996 4e 4f |NO | TRAP #15 00022998 20 6f 00 08 | o | MOVEA.L (A7+0x8),A0 0002299c 22 06 |" | MOVE.L D6,D1 0002299e 53 81 |S | SUBQ.L #0x1,D1 000229a0 0c 81 00 00 1f ff | | CMPI.L #0x00001fff,D1 000229a6 63 02 |c | BLS 0x229aa 000229a8 4e 4f |NO | TRAP #15 000229aa 43 f9 00 02 6c 16 |C l | LEA.L 0x26c16,A1 000229b0 11 b1 18 08 08 02 | | MOVE.B (A1+D1.L+#0x8),(A0+D0.L+#0x2) 000229b6 52 87 |R | ADDQ.L #0x1,D7 000229b8 52 86 |R | ADDQ.L #0x1,D6 000229ba 68 ca |h | BVC 0x22986 000229bc 58 4f |XO | ADDQ.L #0x4,A7 000229be ba ae ff d4 | | CMP.L (A6-0x2c),D5 000229c2 67 1a |g | BEQ 0x229de 000229c4 20 07 | | MOVE.L D7,D0 000229c6 53 80 |S | SUBQ.L #0x1,D0 000229c8 0c 80 00 00 00 7d | } | CMPI.L #0x0000007d,D0 000229ce 63 02 |c | BLS 0x229d2 000229d0 4e 4f |NO | TRAP #15 000229d2 20 6f 00 04 | o | MOVEA.L (A7+0x4),A0 000229d6 11 bc 00 2c 08 02 | , | MOVE.B #0x2c,(A0+D0.L+#0x2) 000229dc 52 87 |R | ADDQ.L #0x1,D7 000229de 52 85 |R | ADDQ.L #0x1,D5 000229e0 68 00 ff 6a |h j | BVC 0x2294c 000229e4 58 4f |XO | ADDQ.L #0x4,A7 000229e6 20 57 | W | MOVEA.L (A7),A0 000229e8 20 07 | | MOVE.L D7,D0 000229ea 53 80 |S | SUBQ.L #0x1,D0 000229ec 90 84 | | SUB.L D4,D0 000229ee 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 000229f4 63 02 |c | BLS 0x229f8 000229f6 4e 4f |NO | TRAP #15 000229f8 d0 84 | | ADD.L D4,D0 000229fa 30 80 |0 | MOVE.W D0,(A0) 000229fc 54 4f |TO | ADDQ.L #0x2,A7 000229fe 3e ba e3 3e |> > | MOVE.W 0x20d3e,(A7) 00022a02 3f 3a e3 38 |?: 8 | MOVE.W 0x20d3c,-(A7) 00022a06 3f 3a e3 32 |?: 2 | MOVE.W 0x20d3a,-(A7) 00022a0a 59 4f |YO | SUBQ.L #0x4,A7 00022a0c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022a10 3f 02 |? | MOVE.W D2,-(A7) 00022a12 3f 3c 00 06 |?< | MOVE.W #0x6,-(A7) 00022a16 4e 94 |N | JSR (A4) 00022a18 50 4f |PO | ADDQ.L #0x8,A7 00022a1a 2d 5f ff f8 |-_ | MOVE.L (A7)+,(A6-0x8) 00022a1e 54 4f |TO | ADDQ.L #0x2,A7 00022a20 2e 93 |. | MOVE.L (A3),(A7) 00022a22 48 78 00 00 |Hx | PEA.L 0x0 00022a26 2f 2e ff f8 |/. | MOVE.L (A6-0x8),-(A7) 00022a2a 48 6e ff f0 |Hn | PEA.L (A6-0x10) 00022a2e 48 6e ff ed |Hn | PEA.L (A6-0x13) 00022a32 4e b9 00 02 43 6c |N Cl | JSR 0x2436c 00022a38 de c3 | | ADDA.W D3,A7 00022a3a 48 6e ff f8 |Hn | PEA.L (A6-0x8) 00022a3e 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00022a44 54 4f |TO | ADDQ.L #0x2,A7 00022a46 3e ba e2 fc |> | MOVE.W 0x20d44,(A7) 00022a4a 3f 3a e2 f6 |?: | MOVE.W 0x20d42,-(A7) 00022a4e 3f 3a e2 f0 |?: | MOVE.W 0x20d40,-(A7) 00022a52 59 4f |YO | SUBQ.L #0x4,A7 00022a54 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022a58 3f 02 |? | MOVE.W D2,-(A7) 00022a5a 3f 3c 00 06 |?< | MOVE.W #0x6,-(A7) 00022a5e 4e 94 |N | JSR (A4) 00022a60 50 4f |PO | ADDQ.L #0x8,A7 00022a62 2d 5f ff f8 |-_ | MOVE.L (A7)+,(A6-0x8) 00022a66 54 4f |TO | ADDQ.L #0x2,A7 00022a68 2e 93 |. | MOVE.L (A3),(A7) 00022a6a 48 78 00 00 |Hx | PEA.L 0x0 00022a6e 2f 2e ff f8 |/. | MOVE.L (A6-0x8),-(A7) 00022a72 48 6e ff f4 |Hn | PEA.L (A6-0xc) 00022a76 48 6e ff ee |Hn | PEA.L (A6-0x12) 00022a7a 4e b9 00 02 43 6c |N Cl | JSR 0x2436c 00022a80 de c3 | | ADDA.W D3,A7 00022a82 48 6e ff f8 |Hn | PEA.L (A6-0x8) 00022a86 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00022a8c 58 4f |XO | ADDQ.L #0x4,A7 00022a8e 4a 2e ff ed |J. | TST.B (A6-0x13) 00022a92 66 06 |f | BNE 0x22a9a 00022a94 4a 2e ff ee |J. | TST.B (A6-0x12) 00022a98 67 06 |g | BEQ 0x22aa0 00022a9a 42 2e ff fc |B. | CLR.B (A6-0x4) 00022a9e 60 04 |` | BRA 0x22aa4 00022aa0 1d 42 ff fc | B | MOVE.B D2,(A6-0x4) 00022aa4 2f 12 |/ | MOVE.L (A2),-(A7) 00022aa6 2f 2e ff d0 |/. | MOVE.L (A6-0x30),-(A7) 00022aaa 10 2e ff fc | . | MOVE.B (A6-0x4),D0 00022aae 48 80 |H | EXTB.W D0 00022ab0 41 bc 00 02 |A | CHK.W #0x2,D0 00022ab4 1f 00 | | MOVE.B D0,-(A7) 00022ab6 48 6e ff ec |Hn | PEA.L (A6-0x14) 00022aba 4e b9 00 01 03 b0 |N | JSR PushProgram(a : String; b : String; MOD c : B; VAR d : Bool) 00022ac0 de fc 00 0e | | ADDA.W #0xe,A7 00022ac4 4a 2e ff ed |J. | TST.B (A6-0x13) 00022ac8 67 20 |g | BEQ 0x22aea 00022aca 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7) 00022ace 59 4f |YO | SUBQ.L #0x4,A7 00022ad0 10 2e ff ec | . | MOVE.B (A6-0x14),D0 00022ad4 48 80 |H | EXTB.W D0 00022ad6 41 bc 00 0e |A | CHK.W #0xe,D0 00022ada 1f 00 | | MOVE.B D0,-(A7) 00022adc 4e b9 00 01 03 c0 |N | JSR ExpErrMsg(a: Byte) : String 00022ae2 54 4f |TO | ADDQ.L #0x2,A7 00022ae4 4e ba f9 4c |N L | JSR 0x22432 00022ae8 50 4f |PO | ADDQ.L #0x8,A7 00022aea 4a 2e ff ee |J. | TST.B (A6-0x12) 00022aee 67 12 |g | BEQ 0x22b02 00022af0 2f 2e ff f4 |/. | MOVE.L (A6-0xc),-(A7) 00022af4 59 4f |YO | SUBQ.L #0x4,A7 00022af6 4e b9 00 01 03 c8 |N | JSR FSCALL_103c8 00022afc 4e ba f9 34 |N 4 | JSR 0x22432 00022b00 50 4f |PO | ADDQ.L #0x8,A7 00022b02 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00022b06 4e 5e |N^ | UNLK A6 00022b08 4e 75 |Nu | RTS 00022b0a ; -------------------------------------------------------------------------------------- 00022b0a ; OMSI PASCAL Function 00022b0a ; <LVAR 0x008 4(r)> 00022b0a ; <LVAR -0x004 @ 4(rw)> 00022b0a ; <LVAR -0x008 @ 4(rw)> 00022b0a ; -------------------------------------------------------------------------------------- 00022b0a 4e 56 ff e0 |NV | LINK.W A6,#0xffe0 00022b0e bf d5 | | CMPA.L (A5),A7 00022b10 62 06 |b | BHI 0x22b18 00022b12 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022b16 4e 76 |Nv | TRAPV 00022b18 de fc 00 18 | | ADDA.W #0x18,A7 00022b1c 48 e7 00 c0 |H | MOVEM.L A1+A0,-(A7) 00022b20 41 ee ff f8 |A | LEA.L (A6-0x8),A0 00022b24 43 ee ff fc |C | LEA.L (A6-0x4),A1 00022b28 59 4f |YO | SUBQ.L #0x4,A7 00022b2a 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022b2e 48 78 00 01 |Hx | PEA.L 0x1 00022b32 4e ba f3 00 |N | JSR 0x21e34 00022b36 50 4f |PO | ADDQ.L #0x8,A7 00022b38 20 97 | | MOVE.L (A7),(A0) 00022b3a 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022b3e 48 78 00 02 |Hx | PEA.L 0x2 00022b42 4e ba f2 f0 |N | JSR 0x21e34 00022b46 50 4f |PO | ADDQ.L #0x8,A7 00022b48 22 97 |" | MOVE.L (A7),(A1) 00022b4a 54 4f |TO | ADDQ.L #0x2,A7 00022b4c 2f 10 |/ | MOVE.L (A0),-(A7) 00022b4e 2f 11 |/ | MOVE.L (A1),-(A7) 00022b50 4e b9 00 01 02 c8 |N | JSR StringEqual(a, b : String) : Byte 00022b56 50 4f |PO | ADDQ.L #0x8,A7 00022b58 4a 1f |J | TST.B (A7)+ 00022b5a 67 06 |g | BEQ 0x22b62 00022b5c 4e ba ed 96 |N | JSR 0x218f4 00022b60 60 04 |` | BRA 0x22b66 00022b62 4e ba ed d6 |N | JSR 0x2193a 00022b66 48 51 |HQ | PEA.L (A1) 00022b68 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00022b6e 58 4f |XO | ADDQ.L #0x4,A7 00022b70 48 50 |HP | PEA.L (A0) 00022b72 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00022b78 58 4f |XO | ADDQ.L #0x4,A7 00022b7a 4c df 03 00 |L | MOVEM.L (A7)+,A0+A1 00022b7e 4e 5e |N^ | UNLK A6 00022b80 4e 75 |Nu | RTS 00022b82 ; -------------------------------------------------------------------------------------- 00022b82 ; OMSI PASCAL Function 00022b82 ; <LVAR 0x008 4(r)> 00022b82 ; <LVAR -0x004 @ 4(rw)> 00022b82 ; <LVAR -0x008 @ 4(rw)> 00022b82 ; -------------------------------------------------------------------------------------- 00022b82 4e 56 ff e0 |NV | LINK.W A6,#0xffe0 00022b86 bf d5 | | CMPA.L (A5),A7 00022b88 62 06 |b | BHI 0x22b90 00022b8a 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022b8e 4e 76 |Nv | TRAPV 00022b90 de fc 00 18 | | ADDA.W #0x18,A7 00022b94 48 e7 00 c0 |H | MOVEM.L A1+A0,-(A7) 00022b98 41 ee ff f8 |A | LEA.L (A6-0x8),A0 00022b9c 43 ee ff fc |C | LEA.L (A6-0x4),A1 00022ba0 59 4f |YO | SUBQ.L #0x4,A7 00022ba2 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022ba6 48 78 00 01 |Hx | PEA.L 0x1 00022baa 4e ba f2 88 |N | JSR 0x21e34 00022bae 50 4f |PO | ADDQ.L #0x8,A7 00022bb0 20 97 | | MOVE.L (A7),(A0) 00022bb2 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022bb6 48 78 00 02 |Hx | PEA.L 0x2 00022bba 4e ba f2 78 |N x | JSR 0x21e34 00022bbe 50 4f |PO | ADDQ.L #0x8,A7 00022bc0 22 97 |" | MOVE.L (A7),(A1) 00022bc2 54 4f |TO | ADDQ.L #0x2,A7 00022bc4 2f 10 |/ | MOVE.L (A0),-(A7) 00022bc6 2f 11 |/ | MOVE.L (A1),-(A7) 00022bc8 4e b9 00 01 02 c8 |N | JSR StringEqual(a, b : String) : Byte 00022bce 50 4f |PO | ADDQ.L #0x8,A7 00022bd0 4a 1f |J | TST.B (A7)+ 00022bd2 66 06 |f | BNE 0x22bda 00022bd4 4e ba ed 1e |N | JSR 0x218f4 00022bd8 60 04 |` | BRA 0x22bde 00022bda 4e ba ed 5e |N ^ | JSR 0x2193a 00022bde 48 51 |HQ | PEA.L (A1) 00022be0 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00022be6 58 4f |XO | ADDQ.L #0x4,A7 00022be8 48 50 |HP | PEA.L (A0) 00022bea 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00022bf0 58 4f |XO | ADDQ.L #0x4,A7 00022bf2 4c df 03 00 |L | MOVEM.L (A7)+,A0+A1 00022bf6 4e 5e |N^ | UNLK A6 00022bf8 4e 75 |Nu | RTS 00022bfa ; -------------------------------------------------------------------------------------- 00022bfa ; OMSI PASCAL Function 00022bfa ; <LVAR 0x008 4(r)> 00022bfa ; -------------------------------------------------------------------------------------- 00022bfa 4e 56 ff f0 |NV | LINK.W A6,#0xfff0 00022bfe bf d5 | | CMPA.L (A5),A7 00022c00 62 06 |b | BHI 0x22c08 00022c02 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022c06 4e 76 |Nv | TRAPV 00022c08 de fc 00 10 | | ADDA.W #0x10,A7 00022c0c 59 4f |YO | SUBQ.L #0x4,A7 00022c0e 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022c12 48 78 00 01 |Hx | PEA.L 0x1 00022c16 4e ba f2 1c |N | JSR 0x21e34 00022c1a 50 4f |PO | ADDQ.L #0x8,A7 00022c1c 4e ba f0 0e |N | JSR 0x21c2c 00022c20 58 4f |XO | ADDQ.L #0x4,A7 00022c22 4e 5e |N^ | UNLK A6 00022c24 4e 75 |Nu | RTS 00022c26 ; -------------------------------------------------------------------------------------- 00022c26 ; OMSI PASCAL Function 00022c26 ; <LVAR 0x008 4(r)> 00022c26 ; <LVAR -0x014 @ 4(rw)> 00022c26 ; -------------------------------------------------------------------------------------- 00022c26 4e 56 ff 90 |NV | LINK.W A6,#0xff90 00022c2a bf d5 | | CMPA.L (A5),A7 00022c2c 62 06 |b | BHI 0x22c34 00022c2e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022c32 4e 76 |Nv | TRAPV 00022c34 de fc 00 5c | \ | ADDA.W #0x5c,A7 00022c38 48 e7 e7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7) 00022c3c 45 ee 00 08 |E | LEA.L (A6+0x8),A2 00022c40 47 ee ff ec |G | LEA.L (A6-0x14),A3 00022c44 74 7d |t} | MOVEQ.L #0x7d,D2 00022c46 59 4f |YO | SUBQ.L #0x4,A7 00022c48 2f 12 |/ | MOVE.L (A2),-(A7) 00022c4a 48 78 00 01 |Hx | PEA.L 0x1 00022c4e 4e ba f1 e4 |N | JSR 0x21e34 00022c52 50 4f |PO | ADDQ.L #0x8,A7 00022c54 26 97 |& | MOVE.L (A7),(A3) 00022c56 2f 12 |/ | MOVE.L (A2),-(A7) 00022c58 48 78 00 02 |Hx | PEA.L 0x2 00022c5c 4e ba f1 d6 |N | JSR 0x21e34 00022c60 50 4f |PO | ADDQ.L #0x8,A7 00022c62 28 5f |(_ | MOVEA.L (A7)+,A4 00022c64 9e fc 00 0c | | SUBA.W #0xc,A7 00022c68 2f 12 |/ | MOVE.L (A2),-(A7) 00022c6a 48 78 00 03 |Hx | PEA.L 0x3 00022c6e 4e ba f1 f6 |N | JSR 0x21e66 00022c72 50 4f |PO | ADDQ.L #0x8,A7 00022c74 4e b9 00 01 03 50 |N P | JSR Quad2Long(a : Quad) : Long 00022c7a 50 4f |PO | ADDQ.L #0x8,A7 00022c7c 2c 17 |, | MOVE.L (A7),D6 00022c7e 51 4f |QO | SUBQ.L #0x8,A7 00022c80 2f 12 |/ | MOVE.L (A2),-(A7) 00022c82 48 78 00 04 |Hx | PEA.L 0x4 00022c86 4e ba f1 de |N | JSR 0x21e66 00022c8a 50 4f |PO | ADDQ.L #0x8,A7 00022c8c 4e b9 00 01 03 50 |N P | JSR Quad2Long(a : Quad) : Long 00022c92 50 4f |PO | ADDQ.L #0x8,A7 00022c94 2a 1f |* | MOVE.L (A7)+,D5 00022c96 20 06 | | MOVE.L D6,D0 00022c98 d0 85 | | ADD.L D5,D0 00022c9a 53 80 |S | SUBQ.L #0x1,D0 00022c9c 32 14 |2 | MOVE.W (A4),D1 00022c9e 48 c1 |H | EXTW.L D1 00022ca0 b0 81 | | CMP.L D1,D0 00022ca2 6f 30 |o0 | BLE 0x22cd4 00022ca4 9e fc 00 20 | | SUBA.W #0x20,A7 00022ca8 20 4f | O | MOVEA.L A7,A0 00022caa 43 fa e0 9a |C | LEA.L 0x20d46,A1 00022cae 70 1e |p | MOVEQ.L #0x1e,D0 00022cb0 10 d9 | | MOVE.B (A1)+,(A0)+ 00022cb2 51 c8 ff fc |Q | DBF D0,0x22cb0 00022cb6 59 4f |YO | SUBQ.L #0x4,A7 00022cb8 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022cbc 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00022cc0 3f 3c 00 1f |?< | MOVE.W #0x1f,-(A7) 00022cc4 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00022cca 50 4f |PO | ADDQ.L #0x8,A7 00022ccc 4e ba e4 3e |N > | JSR 0x2110c 00022cd0 de fc 00 24 | $ | ADDA.W #0x24,A7 00022cd4 20 53 | S | MOVEA.L (A3),A0 00022cd6 2f 08 |/ | MOVE.L A0,-(A7) 00022cd8 30 10 |0 | MOVE.W (A0),D0 00022cda 48 c0 |H | EXTW.L D0 00022cdc 2f 00 |/ | MOVE.L D0,-(A7) 00022cde 7e 01 |~ | MOVEQ.L #0x01,D7 00022ce0 be 97 | | CMP.L (A7),D7 00022ce2 6e 26 |n& | BGT 0x22d0a 00022ce4 20 06 | | MOVE.L D6,D0 00022ce6 d0 87 | | ADD.L D7,D0 00022ce8 53 80 |S | SUBQ.L #0x1,D0 00022cea 53 80 |S | SUBQ.L #0x1,D0 00022cec b0 82 | | CMP.L D2,D0 00022cee 63 02 |c | BLS 0x22cf2 00022cf0 4e 4f |NO | TRAP #15 00022cf2 22 07 |" | MOVE.L D7,D1 00022cf4 53 81 |S | SUBQ.L #0x1,D1 00022cf6 b2 82 | | CMP.L D2,D1 00022cf8 63 02 |c | BLS 0x22cfc 00022cfa 4e 4f |NO | TRAP #15 00022cfc 20 6f 00 04 | o | MOVEA.L (A7+0x4),A0 00022d00 19 b0 18 02 08 02 | | MOVE.B (A0+D1.L+#0x2),(A4+D0.L+#0x2) 00022d06 52 87 |R | ADDQ.L #0x1,D7 00022d08 68 d6 |h | BVC 0x22ce0 00022d0a 58 4f |XO | ADDQ.L #0x4,A7 00022d0c 2e 8c |. | MOVE.L A4,(A7) 00022d0e 4e ba f1 c6 |N | JSR 0x21ed6 00022d12 58 4f |XO | ADDQ.L #0x4,A7 00022d14 48 53 |HS | PEA.L (A3) 00022d16 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00022d1c 58 4f |XO | ADDQ.L #0x4,A7 00022d1e 4c df 1f e7 |L | MOVEM.L (A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3+A4 00022d22 4e 5e |N^ | UNLK A6 00022d24 4e 75 |Nu | RTS 00022d26 ; -------------------------------------------------------------------------------------- 00022d26 ; OMSI PASCAL Function 00022d26 ; <LVAR 0x008 4(r)> 00022d26 ; <LVAR -0x010 @ 4(r)> 00022d26 ; <LVAR -0x014 @ 4(rw)> 00022d26 ; -------------------------------------------------------------------------------------- 00022d26 4e 56 ff a8 |NV | LINK.W A6,#0xffa8 00022d2a bf d5 | | CMPA.L (A5),A7 00022d2c 62 06 |b | BHI 0x22d34 00022d2e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022d32 4e 76 |Nv | TRAPV 00022d34 de fc 00 44 | D | ADDA.W #0x44,A7 00022d38 48 e7 e7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7) 00022d3c 45 ee ff ec |E | LEA.L (A6-0x14),A2 00022d40 47 ee ff f0 |G | LEA.L (A6-0x10),A3 00022d44 49 ee 00 08 |I | LEA.L (A6+0x8),A4 00022d48 74 7d |t} | MOVEQ.L #0x7d,D2 00022d4a 59 4f |YO | SUBQ.L #0x4,A7 00022d4c 2f 14 |/ | MOVE.L (A4),-(A7) 00022d4e 48 78 00 01 |Hx | PEA.L 0x1 00022d52 4e ba f0 e0 |N | JSR 0x21e34 00022d56 50 4f |PO | ADDQ.L #0x8,A7 00022d58 24 9f |$ | MOVE.L (A7)+,(A2) 00022d5a 48 53 |HS | PEA.L (A3) 00022d5c 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00022d62 51 4f |QO | SUBQ.L #0x8,A7 00022d64 2f 14 |/ | MOVE.L (A4),-(A7) 00022d66 48 78 00 02 |Hx | PEA.L 0x2 00022d6a 4e ba f0 fa |N | JSR 0x21e66 00022d6e 50 4f |PO | ADDQ.L #0x8,A7 00022d70 4e b9 00 01 03 50 |N P | JSR Quad2Long(a : Quad) : Long 00022d76 50 4f |PO | ADDQ.L #0x8,A7 00022d78 2a 17 |* | MOVE.L (A7),D5 00022d7a 51 4f |QO | SUBQ.L #0x8,A7 00022d7c 2f 14 |/ | MOVE.L (A4),-(A7) 00022d7e 48 78 00 03 |Hx | PEA.L 0x3 00022d82 4e ba f0 e2 |N | JSR 0x21e66 00022d86 50 4f |PO | ADDQ.L #0x8,A7 00022d88 4e b9 00 01 03 50 |N P | JSR Quad2Long(a : Quad) : Long 00022d8e 50 4f |PO | ADDQ.L #0x8,A7 00022d90 2c 1f |, | MOVE.L (A7)+,D6 00022d92 20 52 | R | MOVEA.L (A2),A0 00022d94 20 05 | | MOVE.L D5,D0 00022d96 d0 86 | | ADD.L D6,D0 00022d98 53 80 |S | SUBQ.L #0x1,D0 00022d9a 32 10 |2 | MOVE.W (A0),D1 00022d9c 48 c1 |H | EXTW.L D1 00022d9e b0 81 | | CMP.L D1,D0 00022da0 6f 06 |o | BLE 0x22da8 00022da2 52 81 |R | ADDQ.L #0x1,D1 00022da4 92 85 | | SUB.L D5,D1 00022da6 2c 01 |, | MOVE.L D1,D6 00022da8 2f 06 |/ | MOVE.L D6,-(A7) 00022daa 7e 01 |~ | MOVEQ.L #0x01,D7 00022dac be 97 | | CMP.L (A7),D7 00022dae 6e 26 |n& | BGT 0x22dd6 00022db0 20 53 | S | MOVEA.L (A3),A0 00022db2 20 07 | | MOVE.L D7,D0 00022db4 53 80 |S | SUBQ.L #0x1,D0 00022db6 b0 82 | | CMP.L D2,D0 00022db8 63 02 |c | BLS 0x22dbc 00022dba 4e 4f |NO | TRAP #15 00022dbc 22 52 |"R | MOVEA.L (A2),A1 00022dbe 22 07 |" | MOVE.L D7,D1 00022dc0 d2 85 | | ADD.L D5,D1 00022dc2 53 81 |S | SUBQ.L #0x1,D1 00022dc4 53 81 |S | SUBQ.L #0x1,D1 00022dc6 b2 82 | | CMP.L D2,D1 00022dc8 63 02 |c | BLS 0x22dcc 00022dca 4e 4f |NO | TRAP #15 00022dcc 11 b1 18 02 08 02 | | MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x2) 00022dd2 52 87 |R | ADDQ.L #0x1,D7 00022dd4 68 d6 |h | BVC 0x22dac 00022dd6 58 4f |XO | ADDQ.L #0x4,A7 00022dd8 20 53 | S | MOVEA.L (A3),A0 00022dda 04 86 ff ff 80 00 | | SUBI.L #0xffff8000,D6 00022de0 0c 86 00 00 ff ff | | CMPI.L #0x0000ffff,D6 00022de6 63 02 |c | BLS 0x22dea 00022de8 4e 4f |NO | TRAP #15 00022dea 06 86 ff ff 80 00 | | ADDI.L #0xffff8000,D6 00022df0 30 86 |0 | MOVE.W D6,(A0) 00022df2 2f 13 |/ | MOVE.L (A3),-(A7) 00022df4 4e ba f0 e0 |N | JSR 0x21ed6 00022df8 58 4f |XO | ADDQ.L #0x4,A7 00022dfa 48 52 |HR | PEA.L (A2) 00022dfc 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00022e02 58 4f |XO | ADDQ.L #0x4,A7 00022e04 4c df 1f e7 |L | MOVEM.L (A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3+A4 00022e08 4e 5e |N^ | UNLK A6 00022e0a 4e 75 |Nu | RTS 00022e0c ; -------------------------------------------------------------------------------------- 00022e0c ; OMSI PASCAL Function 00022e0c ; <LVAR 0x008 4(r)> 00022e0c ; -------------------------------------------------------------------------------------- 00022e0c 4e 56 ff ec |NV | LINK.W A6,#0xffec 00022e10 bf d5 | | CMPA.L (A5),A7 00022e12 62 06 |b | BHI 0x22e1a 00022e14 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022e18 4e 76 |Nv | TRAPV 00022e1a de fc 00 14 | | ADDA.W #0x14,A7 00022e1e 51 4f |QO | SUBQ.L #0x8,A7 00022e20 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022e24 48 78 00 01 |Hx | PEA.L 0x1 00022e28 4e ba f0 3c |N < | JSR 0x21e66 00022e2c 50 4f |PO | ADDQ.L #0x8,A7 00022e2e 4e ba ee 70 |N p | JSR 0x21ca0 00022e32 50 4f |PO | ADDQ.L #0x8,A7 00022e34 4e 5e |N^ | UNLK A6 00022e36 4e 75 |Nu | RTS 00022e38 ; -------------------------------------------------------------------------------------- 00022e38 ; OMSI PASCAL Function 00022e38 ; <LVAR 0x008 4(r)> 00022e38 ; -------------------------------------------------------------------------------------- 00022e38 4e 56 ff e2 |NV | LINK.W A6,#0xffe2 00022e3c bf d5 | | CMPA.L (A5),A7 00022e3e 62 06 |b | BHI 0x22e46 00022e40 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022e44 4e 76 |Nv | TRAPV 00022e46 de fc 00 1e | | ADDA.W #0x1e,A7 00022e4a 9e fc 00 0a | | SUBA.W #0xa,A7 00022e4e 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022e52 48 78 00 01 |Hx | PEA.L 0x1 00022e56 4e ba f0 0e |N | JSR 0x21e66 00022e5a 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022e5e 48 78 00 02 |Hx | PEA.L 0x2 00022e62 4e ba f0 02 |N | JSR 0x21e66 00022e66 50 4f |PO | ADDQ.L #0x8,A7 00022e68 4e b9 00 01 03 2c |N , | JSR IsEqual(a, b : Quad) : Bool 00022e6e de fc 00 10 | | ADDA.W #0x10,A7 00022e72 4a 1f |J | TST.B (A7)+ 00022e74 67 06 |g | BEQ 0x22e7c 00022e76 4e ba ea 7c |N | | JSR 0x218f4 00022e7a 60 04 |` | BRA 0x22e80 00022e7c 4e ba ea bc |N | JSR 0x2193a 00022e80 4e 5e |N^ | UNLK A6 00022e82 4e 75 |Nu | RTS 00022e84 ; -------------------------------------------------------------------------------------- 00022e84 ; OMSI PASCAL Function 00022e84 ; <LVAR 0x008 4(r)> 00022e84 ; -------------------------------------------------------------------------------------- 00022e84 4e 56 ff e2 |NV | LINK.W A6,#0xffe2 00022e88 bf d5 | | CMPA.L (A5),A7 00022e8a 62 06 |b | BHI 0x22e92 00022e8c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022e90 4e 76 |Nv | TRAPV 00022e92 de fc 00 1e | | ADDA.W #0x1e,A7 00022e96 9e fc 00 0a | | SUBA.W #0xa,A7 00022e9a 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022e9e 48 78 00 01 |Hx | PEA.L 0x1 00022ea2 4e ba ef c2 |N | JSR 0x21e66 00022ea6 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022eaa 48 78 00 02 |Hx | PEA.L 0x2 00022eae 4e ba ef b6 |N | JSR 0x21e66 00022eb2 50 4f |PO | ADDQ.L #0x8,A7 00022eb4 4e b9 00 01 03 2c |N , | JSR IsEqual(a, b : Quad) : Bool 00022eba de fc 00 10 | | ADDA.W #0x10,A7 00022ebe 4a 1f |J | TST.B (A7)+ 00022ec0 66 06 |f | BNE 0x22ec8 00022ec2 4e ba ea 30 |N 0 | JSR 0x218f4 00022ec6 60 04 |` | BRA 0x22ecc 00022ec8 4e ba ea 70 |N p | JSR 0x2193a 00022ecc 4e 5e |N^ | UNLK A6 00022ece 4e 75 |Nu | RTS 00022ed0 ; -------------------------------------------------------------------------------------- 00022ed0 ; OMSI PASCAL Function 00022ed0 ; <LVAR 0x008 4(r)> 00022ed0 ; -------------------------------------------------------------------------------------- 00022ed0 4e 56 ff e2 |NV | LINK.W A6,#0xffe2 00022ed4 bf d5 | | CMPA.L (A5),A7 00022ed6 62 06 |b | BHI 0x22ede 00022ed8 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022edc 4e 76 |Nv | TRAPV 00022ede de fc 00 1e | | ADDA.W #0x1e,A7 00022ee2 9e fc 00 0a | | SUBA.W #0xa,A7 00022ee6 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022eea 48 78 00 01 |Hx | PEA.L 0x1 00022eee 4e ba ef 76 |N v | JSR 0x21e66 00022ef2 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022ef6 48 78 00 02 |Hx | PEA.L 0x2 00022efa 4e ba ef 6a |N j | JSR 0x21e66 00022efe 50 4f |PO | ADDQ.L #0x8,A7 00022f00 4e b9 00 01 03 28 |N ( | JSR IsSmaller(a, b : Quad) : Bool 00022f06 de fc 00 10 | | ADDA.W #0x10,A7 00022f0a 4a 1f |J | TST.B (A7)+ 00022f0c 67 06 |g | BEQ 0x22f14 00022f0e 4e ba e9 e4 |N | JSR 0x218f4 00022f12 60 04 |` | BRA 0x22f18 00022f14 4e ba ea 24 |N $ | JSR 0x2193a 00022f18 4e 5e |N^ | UNLK A6 00022f1a 4e 75 |Nu | RTS 00022f1c ; -------------------------------------------------------------------------------------- 00022f1c ; OMSI PASCAL Function 00022f1c ; <LVAR 0x008 4(r)> 00022f1c ; -------------------------------------------------------------------------------------- 00022f1c 4e 56 ff e2 |NV | LINK.W A6,#0xffe2 00022f20 bf d5 | | CMPA.L (A5),A7 00022f22 62 06 |b | BHI 0x22f2a 00022f24 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022f28 4e 76 |Nv | TRAPV 00022f2a de fc 00 1e | | ADDA.W #0x1e,A7 00022f2e 9e fc 00 0a | | SUBA.W #0xa,A7 00022f32 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022f36 48 78 00 01 |Hx | PEA.L 0x1 00022f3a 4e ba ef 2a |N * | JSR 0x21e66 00022f3e 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022f42 48 78 00 02 |Hx | PEA.L 0x2 00022f46 4e ba ef 1e |N | JSR 0x21e66 00022f4a 50 4f |PO | ADDQ.L #0x8,A7 00022f4c 4e b9 00 01 03 24 |N $ | JSR IsGreater(a, b : Quad) : Bool 00022f52 de fc 00 10 | | ADDA.W #0x10,A7 00022f56 4a 1f |J | TST.B (A7)+ 00022f58 67 06 |g | BEQ 0x22f60 00022f5a 4e ba e9 98 |N | JSR 0x218f4 00022f5e 60 04 |` | BRA 0x22f64 00022f60 4e ba e9 d8 |N | JSR 0x2193a 00022f64 4e 5e |N^ | UNLK A6 00022f66 4e 75 |Nu | RTS 00022f68 ; -------------------------------------------------------------------------------------- 00022f68 ; OMSI PASCAL Function 00022f68 ; <LVAR 0x008 4(r)> 00022f68 ; -------------------------------------------------------------------------------------- 00022f68 4e 56 ff e2 |NV | LINK.W A6,#0xffe2 00022f6c bf d5 | | CMPA.L (A5),A7 00022f6e 62 06 |b | BHI 0x22f76 00022f70 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022f74 4e 76 |Nv | TRAPV 00022f76 de fc 00 1e | | ADDA.W #0x1e,A7 00022f7a 9e fc 00 0a | | SUBA.W #0xa,A7 00022f7e 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022f82 48 78 00 01 |Hx | PEA.L 0x1 00022f86 4e ba ee de |N | JSR 0x21e66 00022f8a 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022f8e 48 78 00 02 |Hx | PEA.L 0x2 00022f92 4e ba ee d2 |N | JSR 0x21e66 00022f96 50 4f |PO | ADDQ.L #0x8,A7 00022f98 4e b9 00 01 03 24 |N $ | JSR IsGreater(a, b : Quad) : Bool 00022f9e de fc 00 10 | | ADDA.W #0x10,A7 00022fa2 4a 1f |J | TST.B (A7)+ 00022fa4 66 06 |f | BNE 0x22fac 00022fa6 4e ba e9 4c |N L | JSR 0x218f4 00022faa 60 04 |` | BRA 0x22fb0 00022fac 4e ba e9 8c |N | JSR 0x2193a 00022fb0 4e 5e |N^ | UNLK A6 00022fb2 4e 75 |Nu | RTS 00022fb4 ; -------------------------------------------------------------------------------------- 00022fb4 ; OMSI PASCAL Function 00022fb4 ; <LVAR 0x008 4(r)> 00022fb4 ; -------------------------------------------------------------------------------------- 00022fb4 4e 56 ff e2 |NV | LINK.W A6,#0xffe2 00022fb8 bf d5 | | CMPA.L (A5),A7 00022fba 62 06 |b | BHI 0x22fc2 00022fbc 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022fc0 4e 76 |Nv | TRAPV 00022fc2 de fc 00 1e | | ADDA.W #0x1e,A7 00022fc6 9e fc 00 0a | | SUBA.W #0xa,A7 00022fca 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022fce 48 78 00 01 |Hx | PEA.L 0x1 00022fd2 4e ba ee 92 |N | JSR 0x21e66 00022fd6 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022fda 48 78 00 02 |Hx | PEA.L 0x2 00022fde 4e ba ee 86 |N | JSR 0x21e66 00022fe2 50 4f |PO | ADDQ.L #0x8,A7 00022fe4 4e b9 00 01 03 28 |N ( | JSR IsSmaller(a, b : Quad) : Bool 00022fea de fc 00 10 | | ADDA.W #0x10,A7 00022fee 4a 1f |J | TST.B (A7)+ 00022ff0 66 06 |f | BNE 0x22ff8 00022ff2 4e ba e9 00 |N | JSR 0x218f4 00022ff6 60 04 |` | BRA 0x22ffc 00022ff8 4e ba e9 40 |N @ | JSR 0x2193a 00022ffc 4e 5e |N^ | UNLK A6 00022ffe 4e 75 |Nu | RTS 00023000 ; -------------------------------------------------------------------------------------- 00023000 ; OMSI PASCAL Function 00023000 ; <LVAR 0x008 4(r)> 00023000 ; -------------------------------------------------------------------------------------- 00023000 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 00023004 bf d5 | | CMPA.L (A5),A7 00023006 62 06 |b | BHI 0x2300e 00023008 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002300c 4e 76 |Nv | TRAPV 0002300e de fc 00 28 | ( | ADDA.W #0x28,A7 00023012 48 e7 80 00 |H | MOVEM.L D0,-(A7) 00023016 70 10 |p | MOVEQ.L #0x10,D0 00023018 9e c0 | | SUBA.W D0,A7 0002301a 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 0002301e 48 78 00 01 |Hx | PEA.L 0x1 00023022 4e ba ee 42 |N B | JSR 0x21e66 00023026 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 0002302a 48 78 00 02 |Hx | PEA.L 0x2 0002302e 4e ba ee 36 |N 6 | JSR 0x21e66 00023032 50 4f |PO | ADDQ.L #0x8,A7 00023034 4e b9 00 01 03 14 |N | JSR Add(a, b : Quad) : Quad 0002303a de c0 | | ADDA.W D0,A7 0002303c 4e ba ef 20 |N | JSR 0x21f5e 00023040 50 4f |PO | ADDQ.L #0x8,A7 00023042 4c df 00 01 |L | MOVEM.L (A7)+,D0 00023046 4e 5e |N^ | UNLK A6 00023048 4e 75 |Nu | RTS 0002304a ; -------------------------------------------------------------------------------------- 0002304a ; OMSI PASCAL Function 0002304a ; <LVAR 0x008 4(r)> 0002304a ; -------------------------------------------------------------------------------------- 0002304a 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 0002304e bf d5 | | CMPA.L (A5),A7 00023050 62 06 |b | BHI 0x23058 00023052 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023056 4e 76 |Nv | TRAPV 00023058 de fc 00 28 | ( | ADDA.W #0x28,A7 0002305c 48 e7 80 00 |H | MOVEM.L D0,-(A7) 00023060 70 10 |p | MOVEQ.L #0x10,D0 00023062 9e c0 | | SUBA.W D0,A7 00023064 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023068 48 78 00 01 |Hx | PEA.L 0x1 0002306c 4e ba ed f8 |N | JSR 0x21e66 00023070 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023074 48 78 00 02 |Hx | PEA.L 0x2 00023078 4e ba ed ec |N | JSR 0x21e66 0002307c 50 4f |PO | ADDQ.L #0x8,A7 0002307e 4e b9 00 01 03 18 |N | JSR Subtract(a, b : Quad) : Quad 00023084 de c0 | | ADDA.W D0,A7 00023086 4e ba ee d6 |N | JSR 0x21f5e 0002308a 50 4f |PO | ADDQ.L #0x8,A7 0002308c 4c df 00 01 |L | MOVEM.L (A7)+,D0 00023090 4e 5e |N^ | UNLK A6 00023092 4e 75 |Nu | RTS 00023094 ; -------------------------------------------------------------------------------------- 00023094 ; OMSI PASCAL Function 00023094 ; <LVAR 0x008 4(r)> 00023094 ; -------------------------------------------------------------------------------------- 00023094 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 00023098 bf d5 | | CMPA.L (A5),A7 0002309a 62 06 |b | BHI 0x230a2 0002309c 44 fc 00 02 |D | MOVE.W #0x2,CCR 000230a0 4e 76 |Nv | TRAPV 000230a2 de fc 00 28 | ( | ADDA.W #0x28,A7 000230a6 48 e7 80 00 |H | MOVEM.L D0,-(A7) 000230aa 70 10 |p | MOVEQ.L #0x10,D0 000230ac 9e c0 | | SUBA.W D0,A7 000230ae 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000230b2 48 78 00 01 |Hx | PEA.L 0x1 000230b6 4e ba ed ae |N | JSR 0x21e66 000230ba 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000230be 48 78 00 02 |Hx | PEA.L 0x2 000230c2 4e ba ed a2 |N | JSR 0x21e66 000230c6 50 4f |PO | ADDQ.L #0x8,A7 000230c8 4e b9 00 01 03 1c |N | JSR Multiply(a, b : Quad) : Quad 000230ce de c0 | | ADDA.W D0,A7 000230d0 4e ba ee 8c |N | JSR 0x21f5e 000230d4 50 4f |PO | ADDQ.L #0x8,A7 000230d6 4c df 00 01 |L | MOVEM.L (A7)+,D0 000230da 4e 5e |N^ | UNLK A6 000230dc 4e 75 |Nu | RTS 000230de ; -------------------------------------------------------------------------------------- 000230de ; OMSI PASCAL Function 000230de ; <LVAR 0x008 4(r)> 000230de ; -------------------------------------------------------------------------------------- 000230de 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 000230e2 bf d5 | | CMPA.L (A5),A7 000230e4 62 06 |b | BHI 0x230ec 000230e6 44 fc 00 02 |D | MOVE.W #0x2,CCR 000230ea 4e 76 |Nv | TRAPV 000230ec de fc 00 28 | ( | ADDA.W #0x28,A7 000230f0 48 e7 80 00 |H | MOVEM.L D0,-(A7) 000230f4 70 10 |p | MOVEQ.L #0x10,D0 000230f6 9e c0 | | SUBA.W D0,A7 000230f8 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000230fc 48 78 00 01 |Hx | PEA.L 0x1 00023100 4e ba ed 64 |N d | JSR 0x21e66 00023104 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023108 48 78 00 02 |Hx | PEA.L 0x2 0002310c 4e ba ed 58 |N X | JSR 0x21e66 00023110 50 4f |PO | ADDQ.L #0x8,A7 00023112 4e b9 00 01 03 20 |N | JSR Divide(a, b : Quad) : Quad 00023118 de c0 | | ADDA.W D0,A7 0002311a 4e ba ee 42 |N B | JSR 0x21f5e 0002311e 50 4f |PO | ADDQ.L #0x8,A7 00023120 4c df 00 01 |L | MOVEM.L (A7)+,D0 00023124 4e 5e |N^ | UNLK A6 00023126 4e 75 |Nu | RTS 00023128 ; -------------------------------------------------------------------------------------- 00023128 ; OMSI PASCAL Function 00023128 ; <LVAR 0x008 4(r)> 00023128 ; -------------------------------------------------------------------------------------- 00023128 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 0002312c bf d5 | | CMPA.L (A5),A7 0002312e 62 06 |b | BHI 0x23136 00023130 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023134 4e 76 |Nv | TRAPV 00023136 de fc 00 28 | ( | ADDA.W #0x28,A7 0002313a 48 e7 80 00 |H | MOVEM.L D0,-(A7) 0002313e 70 10 |p | MOVEQ.L #0x10,D0 00023140 9e c0 | | SUBA.W D0,A7 00023142 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023146 48 78 00 01 |Hx | PEA.L 0x1 0002314a 4e ba ed 1a |N | JSR 0x21e66 0002314e 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023152 48 78 00 02 |Hx | PEA.L 0x2 00023156 4e ba ed 0e |N | JSR 0x21e66 0002315a 50 4f |PO | ADDQ.L #0x8,A7 0002315c 4e b9 00 01 03 58 |N X | JSR Modulus(a, b : Quad) : Quad 00023162 de c0 | | ADDA.W D0,A7 00023164 4e ba ed f8 |N | JSR 0x21f5e 00023168 50 4f |PO | ADDQ.L #0x8,A7 0002316a 4c df 00 01 |L | MOVEM.L (A7)+,D0 0002316e 4e 5e |N^ | UNLK A6 00023170 4e 75 |Nu | RTS 00023172 ; -------------------------------------------------------------------------------------- 00023172 ; OMSI PASCAL Function 00023172 ; <LVAR 0x008 4(r)> 00023172 ; -------------------------------------------------------------------------------------- 00023172 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 00023176 bf d5 | | CMPA.L (A5),A7 00023178 62 06 |b | BHI 0x23180 0002317a 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002317e 4e 76 |Nv | TRAPV 00023180 de fc 00 28 | ( | ADDA.W #0x28,A7 00023184 48 e7 80 00 |H | MOVEM.L D0,-(A7) 00023188 70 10 |p | MOVEQ.L #0x10,D0 0002318a 9e c0 | | SUBA.W D0,A7 0002318c 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023190 48 78 00 01 |Hx | PEA.L 0x1 00023194 4e ba ec d0 |N | JSR 0x21e66 00023198 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 0002319c 48 78 00 02 |Hx | PEA.L 0x2 000231a0 4e ba ec c4 |N | JSR 0x21e66 000231a4 50 4f |PO | ADDQ.L #0x8,A7 000231a6 4e b9 00 01 03 34 |N 4 | JSR BitOr(a, b : Quad) : Quad 000231ac de c0 | | ADDA.W D0,A7 000231ae 4e ba ed ae |N | JSR 0x21f5e 000231b2 50 4f |PO | ADDQ.L #0x8,A7 000231b4 4c df 00 01 |L | MOVEM.L (A7)+,D0 000231b8 4e 5e |N^ | UNLK A6 000231ba 4e 75 |Nu | RTS 000231bc ; -------------------------------------------------------------------------------------- 000231bc ; OMSI PASCAL Function 000231bc ; <LVAR 0x008 4(r)> 000231bc ; -------------------------------------------------------------------------------------- 000231bc 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 000231c0 bf d5 | | CMPA.L (A5),A7 000231c2 62 06 |b | BHI 0x231ca 000231c4 44 fc 00 02 |D | MOVE.W #0x2,CCR 000231c8 4e 76 |Nv | TRAPV 000231ca de fc 00 28 | ( | ADDA.W #0x28,A7 000231ce 48 e7 80 00 |H | MOVEM.L D0,-(A7) 000231d2 70 10 |p | MOVEQ.L #0x10,D0 000231d4 9e c0 | | SUBA.W D0,A7 000231d6 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000231da 48 78 00 01 |Hx | PEA.L 0x1 000231de 4e ba ec 86 |N | JSR 0x21e66 000231e2 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000231e6 48 78 00 02 |Hx | PEA.L 0x2 000231ea 4e ba ec 7a |N z | JSR 0x21e66 000231ee 50 4f |PO | ADDQ.L #0x8,A7 000231f0 4e b9 00 01 03 30 |N 0 | JSR BitAnd(a, b : Quad) : Quad 000231f6 de c0 | | ADDA.W D0,A7 000231f8 4e ba ed 64 |N d | JSR 0x21f5e 000231fc 50 4f |PO | ADDQ.L #0x8,A7 000231fe 4c df 00 01 |L | MOVEM.L (A7)+,D0 00023202 4e 5e |N^ | UNLK A6 00023204 4e 75 |Nu | RTS 00023206 ; -------------------------------------------------------------------------------------- 00023206 ; OMSI PASCAL Function 00023206 ; <LVAR 0x008 4(r)> 00023206 ; -------------------------------------------------------------------------------------- 00023206 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 0002320a bf d5 | | CMPA.L (A5),A7 0002320c 62 06 |b | BHI 0x23214 0002320e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023212 4e 76 |Nv | TRAPV 00023214 de fc 00 28 | ( | ADDA.W #0x28,A7 00023218 48 e7 80 00 |H | MOVEM.L D0,-(A7) 0002321c 70 10 |p | MOVEQ.L #0x10,D0 0002321e 9e c0 | | SUBA.W D0,A7 00023220 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023224 48 78 00 01 |Hx | PEA.L 0x1 00023228 4e ba ec 3c |N < | JSR 0x21e66 0002322c 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023230 48 78 00 02 |Hx | PEA.L 0x2 00023234 4e ba ec 30 |N 0 | JSR 0x21e66 00023238 50 4f |PO | ADDQ.L #0x8,A7 0002323a 4e b9 00 01 03 40 |N @ | JSR BitXor(a, b : Quad) : Quad 00023240 de c0 | | ADDA.W D0,A7 00023242 4e ba ed 1a |N | JSR 0x21f5e 00023246 50 4f |PO | ADDQ.L #0x8,A7 00023248 4c df 00 01 |L | MOVEM.L (A7)+,D0 0002324c 4e 5e |N^ | UNLK A6 0002324e 4e 75 |Nu | RTS 00023250 ; -------------------------------------------------------------------------------------- 00023250 ; OMSI PASCAL Function 00023250 ; <LVAR 0x008 4(r)> 00023250 ; -------------------------------------------------------------------------------------- 00023250 4e 56 ff e0 |NV | LINK.W A6,#0xffe0 00023254 bf d5 | | CMPA.L (A5),A7 00023256 62 06 |b | BHI 0x2325e 00023258 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002325c 4e 76 |Nv | TRAPV 0002325e de fc 00 20 | | ADDA.W #0x20,A7 00023262 9e fc 00 10 | | SUBA.W #0x10,A7 00023266 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 0002326a 48 78 00 01 |Hx | PEA.L 0x1 0002326e 4e ba eb f6 |N | JSR 0x21e66 00023272 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7) 00023276 48 78 00 02 |Hx | PEA.L 0x2 0002327a 4e ba ec 26 |N & | JSR 0x21ea2 0002327e 50 4f |PO | ADDQ.L #0x8,A7 00023280 4e b9 00 01 03 44 |N D | JSR BitShift(a : Quad ; howmuch : integer) : Quad 00023286 de fc 00 0c | | ADDA.W #0xc,A7 0002328a 4e ba ec d2 |N | JSR 0x21f5e 0002328e 50 4f |PO | ADDQ.L #0x8,A7 00023290 4e 5e |N^ | UNLK A6 00023292 4e 75 |Nu | RTS 00023294 ; -------------------------------------------------------------------------------------- 00023294 ; OMSI PASCAL Function 00023294 ; <LVAR 0x008 4(r)> 00023294 ; -------------------------------------------------------------------------------------- 00023294 4e 56 ff e0 |NV | LINK.W A6,#0xffe0 00023298 bf d5 | | CMPA.L (A5),A7 0002329a 62 06 |b | BHI 0x232a2 0002329c 44 fc 00 02 |D | MOVE.W #0x2,CCR 000232a0 4e 76 |Nv | TRAPV 000232a2 de fc 00 20 | | ADDA.W #0x20,A7 000232a6 9e fc 00 10 | | SUBA.W #0x10,A7 000232aa 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000232ae 48 78 00 01 |Hx | PEA.L 0x1 000232b2 4e ba eb b2 |N | JSR 0x21e66 000232b6 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7) 000232ba 48 78 00 02 |Hx | PEA.L 0x2 000232be 4e ba eb e2 |N | JSR 0x21ea2 000232c2 50 4f |PO | ADDQ.L #0x8,A7 000232c4 44 97 |D | NEG.L (A7) 000232c6 4e b9 00 01 03 44 |N D | JSR BitShift(a : Quad ; howmuch : integer) : Quad 000232cc de fc 00 0c | | ADDA.W #0xc,A7 000232d0 4e ba ec 8c |N | JSR 0x21f5e 000232d4 50 4f |PO | ADDQ.L #0x8,A7 000232d6 4e 5e |N^ | UNLK A6 000232d8 4e 75 |Nu | RTS 000232da ; -------------------------------------------------------------------------------------- 000232da ; OMSI PASCAL Function 000232da ; <LVAR 0x008 4(r)> 000232da ; -------------------------------------------------------------------------------------- 000232da 4e 56 ff e4 |NV | LINK.W A6,#0xffe4 000232de bf d5 | | CMPA.L (A5),A7 000232e0 62 06 |b | BHI 0x232e8 000232e2 44 fc 00 02 |D | MOVE.W #0x2,CCR 000232e6 4e 76 |Nv | TRAPV 000232e8 de fc 00 1c | | ADDA.W #0x1c,A7 000232ec 9e fc 00 10 | | SUBA.W #0x10,A7 000232f0 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000232f4 48 78 00 01 |Hx | PEA.L 0x1 000232f8 4e ba eb 6c |N l | JSR 0x21e66 000232fc 50 4f |PO | ADDQ.L #0x8,A7 000232fe 4e b9 00 01 03 38 |N 8 | JSR BitNot(a : Quad) : Quad 00023304 50 4f |PO | ADDQ.L #0x8,A7 00023306 4e ba ec 56 |N V | JSR 0x21f5e 0002330a 50 4f |PO | ADDQ.L #0x8,A7 0002330c 4e 5e |N^ | UNLK A6 0002330e 4e 75 |Nu | RTS 00023310 ; -------------------------------------------------------------------------------------- 00023310 ; OMSI PASCAL Function 00023310 ; <LVAR 0x008 4(r)> 00023310 ; <LVAR -0x00c 4(rw)> 00023310 ; <LVAR -0x010 4(rw)> 00023310 ; <LVAR -0x014 4(rw)> 00023310 ; <LVAR -0x018 4(rw)> 00023310 ; -------------------------------------------------------------------------------------- 00023310 4e 56 ff b8 |NV | LINK.W A6,#0xffb8 00023314 bf d5 | | CMPA.L (A5),A7 00023316 62 06 |b | BHI 0x2331e 00023318 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002331c 4e 76 |Nv | TRAPV 0002331e de fc 00 30 | 0 | ADDA.W #0x30,A7 00023322 48 e7 03 80 |H | MOVEM.L A0+D7+D6,-(A7) 00023326 41 ee 00 08 |A | LEA.L (A6+0x8),A0 0002332a 51 4f |QO | SUBQ.L #0x8,A7 0002332c 2f 10 |/ | MOVE.L (A0),-(A7) 0002332e 48 78 00 01 |Hx | PEA.L 0x1 00023332 4e ba eb 32 |N 2 | JSR 0x21e66 00023336 50 4f |PO | ADDQ.L #0x8,A7 00023338 2d 5f ff e8 |-_ | MOVE.L (A7)+,(A6-0x18) 0002333c 2d 57 ff ec |-W | MOVE.L (A7),(A6-0x14) 00023340 59 4f |YO | SUBQ.L #0x4,A7 00023342 2f 10 |/ | MOVE.L (A0),-(A7) 00023344 48 78 00 02 |Hx | PEA.L 0x2 00023348 4e ba eb 1c |N | JSR 0x21e66 0002334c 50 4f |PO | ADDQ.L #0x8,A7 0002334e 2d 5f ff f0 |-_ | MOVE.L (A7)+,(A6-0x10) 00023352 2d 57 ff f4 |-W | MOVE.L (A7),(A6-0xc) 00023356 2f 10 |/ | MOVE.L (A0),-(A7) 00023358 48 78 00 03 |Hx | PEA.L 0x3 0002335c 4e ba eb 44 |N D | JSR 0x21ea2 00023360 50 4f |PO | ADDQ.L #0x8,A7 00023362 2e 17 |. | MOVE.L (A7),D7 00023364 2f 10 |/ | MOVE.L (A0),-(A7) 00023366 48 78 00 04 |Hx | PEA.L 0x4 0002336a 4e ba eb 36 |N 6 | JSR 0x21ea2 0002336e 50 4f |PO | ADDQ.L #0x8,A7 00023370 2c 17 |, | MOVE.L (A7),D6 00023372 59 4f |YO | SUBQ.L #0x4,A7 00023374 2f 2e ff ec |/. | MOVE.L (A6-0x14),-(A7) 00023378 2f 2e ff e8 |/. | MOVE.L (A6-0x18),-(A7) 0002337c 2f 2e ff f4 |/. | MOVE.L (A6-0xc),-(A7) 00023380 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7) 00023384 2f 07 |/ | MOVE.L D7,-(A7) 00023386 2f 06 |/ | MOVE.L D6,-(A7) 00023388 4e b9 00 01 03 48 |N H | JSR ?BitField_something_() 0002338e de fc 00 18 | | ADDA.W #0x18,A7 00023392 4e ba eb ca |N | JSR 0x21f5e 00023396 50 4f |PO | ADDQ.L #0x8,A7 00023398 4c df 01 c0 |L | MOVEM.L (A7)+,D6+D7+A0 0002339c 4e 5e |N^ | UNLK A6 0002339e 4e 75 |Nu | RTS 000233a0 ; -------------------------------------------------------------------------------------- 000233a0 ; OMSI PASCAL Function 000233a0 ; <LVAR 0x008 4(r)> 000233a0 ; <LVAR -0x00c 4(rw)> 000233a0 ; <LVAR -0x010 4(rw)> 000233a0 ; -------------------------------------------------------------------------------------- 000233a0 4e 56 ff c8 |NV | LINK.W A6,#0xffc8 000233a4 bf d5 | | CMPA.L (A5),A7 000233a6 62 06 |b | BHI 0x233ae 000233a8 44 fc 00 02 |D | MOVE.W #0x2,CCR 000233ac 4e 76 |Nv | TRAPV 000233ae de fc 00 28 | ( | ADDA.W #0x28,A7 000233b2 48 e7 03 80 |H | MOVEM.L A0+D7+D6,-(A7) 000233b6 41 ee 00 08 |A | LEA.L (A6+0x8),A0 000233ba 51 4f |QO | SUBQ.L #0x8,A7 000233bc 2f 10 |/ | MOVE.L (A0),-(A7) 000233be 48 78 00 01 |Hx | PEA.L 0x1 000233c2 4e ba ea a2 |N | JSR 0x21e66 000233c6 50 4f |PO | ADDQ.L #0x8,A7 000233c8 2d 5f ff f0 |-_ | MOVE.L (A7)+,(A6-0x10) 000233cc 2d 57 ff f4 |-W | MOVE.L (A7),(A6-0xc) 000233d0 2f 10 |/ | MOVE.L (A0),-(A7) 000233d2 48 78 00 02 |Hx | PEA.L 0x2 000233d6 4e ba ea ca |N | JSR 0x21ea2 000233da 50 4f |PO | ADDQ.L #0x8,A7 000233dc 2e 17 |. | MOVE.L (A7),D7 000233de 2f 10 |/ | MOVE.L (A0),-(A7) 000233e0 48 78 00 03 |Hx | PEA.L 0x3 000233e4 4e ba ea bc |N | JSR 0x21ea2 000233e8 50 4f |PO | ADDQ.L #0x8,A7 000233ea 2c 17 |, | MOVE.L (A7),D6 000233ec 59 4f |YO | SUBQ.L #0x4,A7 000233ee 2f 2e ff f4 |/. | MOVE.L (A6-0xc),-(A7) 000233f2 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7) 000233f6 2f 07 |/ | MOVE.L D7,-(A7) 000233f8 2f 06 |/ | MOVE.L D6,-(A7) 000233fa 4e b9 00 01 03 4c |N L | JSR FSCALL_1034c 00023400 de fc 00 10 | | ADDA.W #0x10,A7 00023404 4e ba eb 58 |N X | JSR 0x21f5e 00023408 50 4f |PO | ADDQ.L #0x8,A7 0002340a 4c df 01 c0 |L | MOVEM.L (A7)+,D6+D7+A0 0002340e 4e 5e |N^ | UNLK A6 00023410 4e 75 |Nu | RTS 00023412 ; -------------------------------------------------------------------------------------- 00023412 ; OMSI PASCAL Function 00023412 ; <LVAR 0x008 4(r)> 00023412 ; -------------------------------------------------------------------------------------- 00023412 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 00023416 bf d5 | | CMPA.L (A5),A7 00023418 62 06 |b | BHI 0x23420 0002341a 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002341e 4e 76 |Nv | TRAPV 00023420 de fc 00 20 | | ADDA.W #0x20,A7 00023424 48 e7 01 08 |H | MOVEM.L A4+D7,-(A7) 00023428 59 4f |YO | SUBQ.L #0x4,A7 0002342a 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 0002342e 4e ba e0 e8 |N | JSR 0x21518 00023432 58 4f |XO | ADDQ.L #0x4,A7 00023434 7e 01 |~ | MOVEQ.L #0x01,D7 00023436 be 97 | | CMP.L (A7),D7 00023438 6e 26 |n& | BGT 0x23460 0002343a 59 4f |YO | SUBQ.L #0x4,A7 0002343c 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023440 2f 07 |/ | MOVE.L D7,-(A7) 00023442 4e ba e9 f0 |N | JSR 0x21e34 00023446 50 4f |PO | ADDQ.L #0x8,A7 00023448 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String) 0002344e 54 4f |TO | ADDQ.L #0x2,A7 00023450 1e bc 00 20 | | MOVE.B #0x20,(A7) 00023454 4e b9 00 01 03 d0 |N | JSR WriteConsoleChar(chr : char) 0002345a 54 4f |TO | ADDQ.L #0x2,A7 0002345c 52 87 |R | ADDQ.L #0x1,D7 0002345e 68 d6 |h | BVC 0x23436 00023460 48 78 00 01 |Hx | PEA.L 0x1 00023464 4e b9 00 01 03 e4 |N | JSR AskConsoleString(prompt : String) : String 0002346a 58 4f |XO | ADDQ.L #0x4,A7 0002346c 28 5f |(_ | MOVEA.L (A7)+,A4 0002346e 2f 0c |/ | MOVE.L A4,-(A7) 00023470 4e ba de f2 |N | JSR 0x21364 00023474 2e 8c |. | MOVE.L A4,(A7) 00023476 4e ba ea 5e |N ^ | JSR 0x21ed6 0002347a 58 4f |XO | ADDQ.L #0x4,A7 0002347c 4c df 10 80 |L | MOVEM.L (A7)+,D7+A4 00023480 4e 5e |N^ | UNLK A6 00023482 4e 75 |Nu | RTS 00023484 ; -------------------------------------------------------------------------------------- 00023484 ; OMSI PASCAL Function 00023484 ; <LVAR 0x008 4(r)> 00023484 ; -------------------------------------------------------------------------------------- 00023484 4e 56 ff c8 |NV | LINK.W A6,#0xffc8 00023488 bf d5 | | CMPA.L (A5),A7 0002348a 62 06 |b | BHI 0x23492 0002348c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023490 4e 76 |Nv | TRAPV 00023492 de fc 00 2c | , | ADDA.W #0x2c,A7 00023496 48 e7 83 88 |H | MOVEM.L A4+A0+D7+D6+D0,-(A7) 0002349a 41 ee 00 08 |A | LEA.L (A6+0x8),A0 0002349e 70 0c |p | MOVEQ.L #0x0c,D0 000234a0 59 4f |YO | SUBQ.L #0x4,A7 000234a2 2f 10 |/ | MOVE.L (A0),-(A7) 000234a4 48 78 00 01 |Hx | PEA.L 0x1 000234a8 4e ba e9 8a |N | JSR 0x21e34 000234ac 50 4f |PO | ADDQ.L #0x8,A7 000234ae 28 5f |(_ | MOVEA.L (A7)+,A4 000234b0 9e c0 | | SUBA.W D0,A7 000234b2 2f 10 |/ | MOVE.L (A0),-(A7) 000234b4 48 78 00 02 |Hx | PEA.L 0x2 000234b8 4e ba e9 ac |N | JSR 0x21e66 000234bc 50 4f |PO | ADDQ.L #0x8,A7 000234be 4e b9 00 01 03 50 |N P | JSR Quad2Long(a : Quad) : Long 000234c4 50 4f |PO | ADDQ.L #0x8,A7 000234c6 2e 17 |. | MOVE.L (A7),D7 000234c8 51 4f |QO | SUBQ.L #0x8,A7 000234ca 2f 10 |/ | MOVE.L (A0),-(A7) 000234cc 48 78 00 03 |Hx | PEA.L 0x3 000234d0 4e ba e9 94 |N | JSR 0x21e66 000234d4 50 4f |PO | ADDQ.L #0x8,A7 000234d6 4e b9 00 01 03 50 |N P | JSR Quad2Long(a : Quad) : Long 000234dc 50 4f |PO | ADDQ.L #0x8,A7 000234de 2c 17 |, | MOVE.L (A7),D6 000234e0 51 4f |QO | SUBQ.L #0x8,A7 000234e2 2f 0c |/ | MOVE.L A4,-(A7) 000234e4 2f 07 |/ | MOVE.L D7,-(A7) 000234e6 4e b9 00 01 03 60 |N ` | JSR ?StringToInt64() 000234ec 58 4f |XO | ADDQ.L #0x4,A7 000234ee 2e 86 |. | MOVE.L D6,(A7) 000234f0 4e b9 00 01 03 5c |N \ | JSR Quad2String(a : Quad; radix : Long ) : String 000234f6 de c0 | | ADDA.W D0,A7 000234f8 4e ba e9 dc |N | JSR 0x21ed6 000234fc 58 4f |XO | ADDQ.L #0x4,A7 000234fe 4c df 11 c1 |L | MOVEM.L (A7)+,D0+D6+D7+A0+A4 00023502 4e 5e |N^ | UNLK A6 00023504 4e 75 |Nu | RTS 00023506 ; -------------------------------------------------------------------------------------- 00023506 ; OMSI PASCAL Function 00023506 ; <LVAR 0x008 4(r)> 00023506 ; <LVAR -0x00a 2(r)> 00023506 ; <LVAR -0x00c 4(rw)> 00023506 ; <LVAR -0x010 4(rw)> 00023506 ; -------------------------------------------------------------------------------------- 00023506 4e 56 ff bc |NV | LINK.W A6,#0xffbc 0002350a bf d5 | | CMPA.L (A5),A7 0002350c 62 06 |b | BHI 0x23514 0002350e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023512 4e 76 |Nv | TRAPV 00023514 de fc 00 34 | 4 | ADDA.W #0x34,A7 00023518 48 e7 c3 c0 |H | MOVEM.L A1+A0+D7+D6+D1+D0,-(A7) 0002351c 41 ee ff f0 |A | LEA.L (A6-0x10),A0 00023520 43 ee ff f4 |C | LEA.L (A6-0xc),A1 00023524 51 4f |QO | SUBQ.L #0x8,A7 00023526 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 0002352a 48 78 00 01 |Hx | PEA.L 0x1 0002352e 4e ba e9 36 |N 6 | JSR 0x21e66 00023532 50 4f |PO | ADDQ.L #0x8,A7 00023534 20 9f | | MOVE.L (A7)+,(A0) 00023536 22 9f |" | MOVE.L (A7)+,(A1) 00023538 7e 00 |~ | MOVEQ.L #0x00,D7 0002353a 7c 00 || | MOVEQ.L #0x00,D6 0002353c 30 2e ff f6 |0. | MOVE.W (A6-0xa),D0 00023540 02 40 00 01 | @ | ANDI.W #0x0001,D0 00023544 42 81 |B | CLR.L D1 00023546 32 00 |2 | MOVE.W D0,D1 00023548 de 81 | | ADD.L D1,D7 0002354a 51 4f |QO | SUBQ.L #0x8,A7 0002354c 2f 11 |/ | MOVE.L (A1),-(A7) 0002354e 2f 10 |/ | MOVE.L (A0),-(A7) 00023550 48 78 ff ff |Hx | PEA.L 0xffffffff 00023554 4e b9 00 01 03 44 |N D | JSR BitShift(a : Quad ; howmuch : integer) : Quad 0002355a de fc 00 0c | | ADDA.W #0xc,A7 0002355e 20 9f | | MOVE.L (A7)+,(A0) 00023560 22 9f |" | MOVE.L (A7)+,(A1) 00023562 52 86 |R | ADDQ.L #0x1,D6 00023564 0c 86 00 00 00 3f | ? | CMPI.L #0x0000003f,D6 0002356a 6f d0 |o | BLE 0x2353c 0002356c 51 4f |QO | SUBQ.L #0x8,A7 0002356e 2f 07 |/ | MOVE.L D7,-(A7) 00023570 4e b9 00 01 03 54 |N T | JSR Long2Quad(a : Long) : Quad 00023576 58 4f |XO | ADDQ.L #0x4,A7 00023578 4e ba e9 e4 |N | JSR 0x21f5e 0002357c 50 4f |PO | ADDQ.L #0x8,A7 0002357e 4c df 03 c3 |L | MOVEM.L (A7)+,D0+D1+D6+D7+A0+A1 00023582 4e 5e |N^ | UNLK A6 00023584 4e 75 |Nu | RTS 00023586 ; -------------------------------------------------------------------------------------- 00023586 ; OMSI PASCAL Function 00023586 ; <LVAR 0x008 4(r)> 00023586 ; <LVAR -0x004 @ 1(r)> 00023586 ; -------------------------------------------------------------------------------------- 00023586 4e 56 ff b8 |NV | LINK.W A6,#0xffb8 0002358a bf d5 | | CMPA.L (A5),A7 0002358c 62 06 |b | BHI 0x23594 0002358e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023592 4e 76 |Nv | TRAPV 00023594 de fc 00 44 | D | ADDA.W #0x44,A7 00023598 48 e7 e0 e0 |H | MOVEM.L A2+A1+A0+D2+D1+D0,-(A7) 0002359c 45 f9 00 02 8c 50 |E P | LEA.L 0x28c50,A2 000235a2 72 01 |r | MOVEQ.L #0x01,D1 000235a4 74 00 |t | MOVEQ.L #0x00,D2 000235a6 4a 12 |J | TST.B (A2) 000235a8 66 32 |f2 | BNE 0x235dc 000235aa 9e fc 00 1c | | SUBA.W #0x1c,A7 000235ae 20 4f | O | MOVEA.L A7,A0 000235b0 43 fa d7 b4 |C | LEA.L 0x20d66,A1 000235b4 70 1a |p | MOVEQ.L #0x1a,D0 000235b6 10 d9 | | MOVE.B (A1)+,(A0)+ 000235b8 51 c8 ff fc |Q | DBF D0,0x235b6 000235bc 59 4f |YO | SUBQ.L #0x4,A7 000235be 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000235c2 3f 01 |? | MOVE.W D1,-(A7) 000235c4 3f 3c 00 1b |?< | MOVE.W #0x1b,-(A7) 000235c8 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000235ce 50 4f |PO | ADDQ.L #0x8,A7 000235d0 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000235d6 de fc 00 20 | | ADDA.W #0x20,A7 000235da 14 81 | | MOVE.B D1,(A2) 000235dc 5d 4f |]O | SUBQ.L #0x6,A7 000235de 4e b9 00 01 03 f8 |N | JSR GetConsoleConfig() : Long 000235e4 20 1f | | MOVE.L (A7)+,D0 000235e6 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 000235ec 63 02 |c | BLS 0x235f0 000235ee 4e 4f |NO | TRAP #15 000235f0 3e 80 |> | MOVE.W D0,(A7) 000235f2 48 6e ff fc |Hn | PEA.L (A6-0x4) 000235f6 4e b9 00 01 02 12 |N | JSR KC09_PortStatus(Port : Word; VAR b: Byte) 000235fc 5c 4f |\O | ADDQ.L #0x6,A7 000235fe 10 2e ff fc | . | MOVE.B (A6-0x4),D0 00023602 b0 01 | | CMP.B D1,D0 00023604 67 16 |g | BEQ 0x2361c 00023606 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 0002360a 4e ba da be |N | JSR 0x210ca 0002360e 58 4f |XO | ADDQ.L #0x4,A7 00023610 2e 6d 00 08 |.m | MOVEA.L (A5+0x8),A7 00023614 3c 42 |<B | MOVEA.W D2,A6 00023616 4e f9 00 02 49 ae |N I | JMP 0x249ae 0002361c 55 4f |UO | SUBQ.L #0x2,A7 0002361e 4e b9 00 01 03 d4 |N | JSR ReadChar() : Byte 00023624 10 1f | | MOVE.B (A7)+,D0 00023626 0c 00 00 07 | | CMPI.B #0x07,D0 0002362a 67 16 |g | BEQ 0x23642 0002362c 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023630 4e ba da 98 |N | JSR 0x210ca 00023634 58 4f |XO | ADDQ.L #0x4,A7 00023636 2e 6d 00 08 |.m | MOVEA.L (A5+0x8),A7 0002363a 3c 42 |<B | MOVEA.W D2,A6 0002363c 4e f9 00 02 49 ae |N I | JMP 0x249ae 00023642 4c df 07 07 |L | MOVEM.L (A7)+,D0+D1+D2+A0+A1+A2 00023646 4e 5e |N^ | UNLK A6 00023648 4e 75 |Nu | RTS 0002364a ; -------------------------------------------------------------------------------------- 0002364a ; OMSI PASCAL Function 0002364a ; -------------------------------------------------------------------------------------- 0002364a 4e 56 ff f8 |NV | LINK.W A6,#0xfff8 0002364e bf d5 | | CMPA.L (A5),A7 00023650 62 06 |b | BHI 0x23658 00023652 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023656 4e 76 |Nv | TRAPV 00023658 de fc 00 08 | | ADDA.W #0x8,A7 0002365c 48 78 00 c8 |Hx | PEA.L 0xc8 00023660 4e ba e9 30 |N 0 | JSR 0x21f92 00023664 58 4f |XO | ADDQ.L #0x4,A7 00023666 4e 5e |N^ | UNLK A6 00023668 4e 75 |Nu | RTS 0002366a ; -------------------------------------------------------------------------------------- 0002366a ; OMSI PASCAL Function 0002366a ; <LVAR 0x008 4(r)> 0002366a ; <LVAR -0x00c @ 4(r)> 0002366a ; -------------------------------------------------------------------------------------- 0002366a 4e 56 ff ac |NV | LINK.W A6,#0xffac 0002366e bf d5 | | CMPA.L (A5),A7 00023670 62 06 |b | BHI 0x23678 00023672 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023676 4e 76 |Nv | TRAPV 00023678 de fc 00 48 | H | ADDA.W #0x48,A7 0002367c 48 e7 83 c0 |H | MOVEM.L A1+A0+D7+D6+D0,-(A7) 00023680 43 ee ff f4 |C | LEA.L (A6-0xc),A1 00023684 48 51 |HQ | PEA.L (A1) 00023686 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 0002368c 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023690 4e ba de 86 |N | JSR 0x21518 00023694 58 4f |XO | ADDQ.L #0x4,A7 00023696 7e 01 |~ | MOVEQ.L #0x01,D7 00023698 be 97 | | CMP.L (A7),D7 0002369a 6e 6a |nj | BGT 0x23706 0002369c 59 4f |YO | SUBQ.L #0x4,A7 0002369e 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000236a2 2f 07 |/ | MOVE.L D7,-(A7) 000236a4 4e ba e7 fc |N | JSR 0x21ea2 000236a8 50 4f |PO | ADDQ.L #0x8,A7 000236aa 2c 1f |, | MOVE.L (A7)+,D6 000236ac 6d 20 |m | BLT 0x236ce 000236ae 0c 86 00 00 00 ff | | CMPI.L #0x000000ff,D6 000236b4 6e 18 |n | BGT 0x236ce 000236b6 2f 11 |/ | MOVE.L (A1),-(A7) 000236b8 0c 86 00 00 00 ff | | CMPI.L #0x000000ff,D6 000236be 63 02 |c | BLS 0x236c2 000236c0 4e 4f |NO | TRAP #15 000236c2 1f 06 | | MOVE.B D6,-(A7) 000236c4 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 000236ca 5c 4f |\O | ADDQ.L #0x6,A7 000236cc 60 34 |`4 | BRA 0x23702 000236ce 48 51 |HQ | PEA.L (A1) 000236d0 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000236d6 58 4f |XO | ADDQ.L #0x4,A7 000236d8 41 fa d6 c4 |A | LEA.L 0x20d9e,A0 000236dc 70 06 |p | MOVEQ.L #0x06,D0 000236de 2f 20 |/ | MOVE.L -(A0),-(A7) 000236e0 51 c8 ff fc |Q | DBF D0,0x236de 000236e4 59 4f |YO | SUBQ.L #0x4,A7 000236e6 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000236ea 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000236ee 3f 3c 00 1c |?< | MOVE.W #0x1c,-(A7) 000236f2 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000236f8 50 4f |PO | ADDQ.L #0x8,A7 000236fa 4e ba da 10 |N | JSR 0x2110c 000236fe de fc 00 20 | | ADDA.W #0x20,A7 00023702 52 87 |R | ADDQ.L #0x1,D7 00023704 68 92 |h | BVC 0x23698 00023706 2e 91 |. | MOVE.L (A1),(A7) 00023708 4e ba e7 cc |N | JSR 0x21ed6 0002370c 58 4f |XO | ADDQ.L #0x4,A7 0002370e 4c df 03 c1 |L | MOVEM.L (A7)+,D0+D6+D7+A0+A1 00023712 4e 5e |N^ | UNLK A6 00023714 4e 75 |Nu | RTS 00023716 ; -------------------------------------------------------------------------------------- 00023716 ; OMSI PASCAL Function 00023716 ; <LVAR 0x00c 1(rw)> 00023716 ; <LVAR 0x008 4(r)> 00023716 ; -------------------------------------------------------------------------------------- 00023716 4e 56 ff c0 |NV | LINK.W A6,#0xffc0 0002371a bf d5 | | CMPA.L (A5),A7 0002371c 62 06 |b | BHI 0x23724 0002371e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023722 4e 76 |Nv | TRAPV 00023724 de fc 00 34 | 4 | ADDA.W #0x34,A7 00023728 48 e7 e7 c0 |H | MOVEM.L A1+A0+D7+D6+D5+D2+D1+D0,-(A7) 0002372c 42 2e 00 0c |B. | CLR.B (A6+0xc) 00023730 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00023734 2f 08 |/ | MOVE.L A0,-(A7) 00023736 70 00 |p | MOVEQ.L #0x00,D0 00023738 52 40 |R@ | ADDQ.W #0x1,D0 0002373a 1c 00 | | MOVE.B D0,D6 0002373c 0c 06 00 2b | + | CMPI.B #0x2b,D6 00023740 6e 00 00 82 |n | BGT 0x237c4 00023744 41 fa d8 b2 |A | LEA.L 0x20ff8,A0 00023748 10 06 | | MOVE.B D6,D0 0002374a 48 80 |H | EXTB.W D0 0002374c 48 c0 |H | EXTW.L D0 0002374e e2 98 | | ROR.L #0x1,D0 00023750 d0 c0 | | ADDA.W D0,A0 00023752 48 40 |H@ | SWAP.W D0 00023754 e7 58 | X | ROL.W #0x3,D0 00023756 42 81 |B | CLR.L D1 00023758 12 10 | | MOVE.B (A0),D1 0002375a e1 29 | ) | LSL.B D0,D1 0002375c e8 09 | | LSR.B #0x4,D1 0002375e 2a 01 |* | MOVE.L D1,D5 00023760 20 57 | W | MOVEA.L (A7),A0 00023762 30 10 |0 | MOVE.W (A0),D0 00023764 48 c0 |H | EXTW.L D0 00023766 ba 80 | | CMP.L D0,D5 00023768 66 54 |fT | BNE 0x237be 0002376a 2f 05 |/ | MOVE.L D5,-(A7) 0002376c 7e 01 |~ | MOVEQ.L #0x01,D7 0002376e be 97 | | CMP.L (A7),D7 00023770 6e 42 |nB | BGT 0x237b4 00023772 10 06 | | MOVE.B D6,D0 00023774 48 80 |H | EXTB.W D0 00023776 c1 fc 00 0a | | MULS.W #0xa,D0 0002377a 22 07 |" | MOVE.L D7,D1 0002377c 53 81 |S | SUBQ.L #0x1,D1 0002377e 0c 81 00 00 00 7d | } | CMPI.L #0x0000007d,D1 00023784 63 02 |c | BLS 0x23788 00023786 4e 4f |NO | TRAP #15 00023788 20 6f 00 04 | o | MOVEA.L (A7+0x4),A0 0002378c 43 fa d6 b2 |C | LEA.L COMMAND_TABLE_20e40,A1 00023790 24 07 |$ | MOVE.L D7,D2 00023792 53 82 |S | SUBQ.L #0x1,D2 00023794 0c 82 00 00 00 09 | | CMPI.L #0x00000009,D2 0002379a 63 02 |c | BLS 0x2379e 0002379c 4e 4f |NO | TRAP #15 0002379e 43 f1 00 00 |C | LEA.L (A1+D0.W),A1 000237a2 10 30 18 02 | 0 | MOVE.B (A0+D1.L+#0x2),D0 000237a6 b0 31 28 00 | 1( | CMP.B (A1+D2.L),D0 000237aa 67 04 |g | BEQ 0x237b0 000237ac 58 4f |XO | ADDQ.L #0x4,A7 000237ae 60 0e |` | BRA 0x237be 000237b0 52 87 |R | ADDQ.L #0x1,D7 000237b2 68 ba |h | BVC 0x2376e 000237b4 58 4f |XO | ADDQ.L #0x4,A7 000237b6 1d 46 00 0c | F | MOVE.B D6,(A6+0xc) 000237ba 58 4f |XO | ADDQ.L #0x4,A7 000237bc 60 08 |` | BRA 0x237c6 000237be 52 06 |R | ADDQ.B #0x1,D6 000237c0 68 00 ff 7a |h z | BVC 0x2373c 000237c4 58 4f |XO | ADDQ.L #0x4,A7 000237c6 4c df 03 e7 |L | MOVEM.L (A7)+,D0+D1+D2+D5+D6+D7+A0+A1 000237ca 4e 5e |N^ | UNLK A6 000237cc 4e 75 |Nu | RTS 000237ce ; -------------------------------------------------------------------------------------- 000237ce ; OMSI PASCAL Function 000237ce ; <LVAR 0x00c 4(r)> 000237ce ; <LVAR 0x008 4(r)> 000237ce ; <LVAR -0x002 @ 1(r)> 000237ce ; <LVAR -0x006 @ 4(w)> 000237ce ; <LVAR -0x008 @ 1(r)> 000237ce ; <LVAR -0x00c @ 4(r)> 000237ce ; <LVAR -0x010 @ 4(rw)> 000237ce ; -------------------------------------------------------------------------------------- 000237ce 4e 56 ff a6 |NV | LINK.W A6,#0xffa6 000237d2 bf d5 | | CMPA.L (A5),A7 000237d4 62 06 |b | BHI 0x237dc 000237d6 44 fc 00 02 |D | MOVE.W #0x2,CCR 000237da 4e 76 |Nv | TRAPV 000237dc de fc 00 4a | J | ADDA.W #0x4a,A7 000237e0 48 e7 c0 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D1+D0,-(A7) 000237e4 45 ee ff f0 |E | LEA.L (A6-0x10),A2 000237e8 47 ee ff fe |G | LEA.L (A6-0x2),A3 000237ec 49 ee ff f4 |I | LEA.L (A6-0xc),A4 000237f0 72 01 |r | MOVEQ.L #0x01,D1 000237f2 59 4f |YO | SUBQ.L #0x4,A7 000237f4 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 000237f8 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 000237fe 58 4f |XO | ADDQ.L #0x4,A7 00023800 24 9f |$ | MOVE.L (A7)+,(A2) 00023802 2f 12 |/ | MOVE.L (A2),-(A7) 00023804 1f 3c 00 2e | < . | MOVE.B #0x2e,-(A7) 00023808 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 0002380e 5c 4f |\O | ADDQ.L #0x6,A7 00023810 41 f9 00 02 8c 30 |A 0 | LEA.L 0x28c30,A0 00023816 70 04 |p | MOVEQ.L #0x04,D0 00023818 3f 20 |? | MOVE.W -(A0),-(A7) 0002381a 51 c8 ff fc |Q | DBF D0,0x23818 0002381e 59 4f |YO | SUBQ.L #0x4,A7 00023820 2f 12 |/ | MOVE.L (A2),-(A7) 00023822 59 4f |YO | SUBQ.L #0x4,A7 00023824 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00023828 3f 01 |? | MOVE.W D1,-(A7) 0002382a 3f 3c 00 0a |?< | MOVE.W #0xa,-(A7) 0002382e 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00023834 50 4f |PO | ADDQ.L #0x8,A7 00023836 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 0002383c 50 4f |PO | ADDQ.L #0x8,A7 0002383e 24 9f |$ | MOVE.L (A7)+,(A2) 00023840 5c 4f |\O | ADDQ.L #0x6,A7 00023842 2e 92 |. | MOVE.L (A2),(A7) 00023844 42 27 |B' | CLR.B -(A7) 00023846 1f 01 | | MOVE.B D1,-(A7) 00023848 48 78 00 00 |Hx | PEA.L 0x0 0002384c 48 53 |HS | PEA.L (A3) 0002384e 48 54 |HT | PEA.L (A4) 00023850 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File) 00023856 de fc 00 14 | | ADDA.W #0x14,A7 0002385a 4a 13 |J | TST.B (A3) 0002385c 67 4a |gJ | BEQ 0x238a8 0002385e 48 52 |HR | PEA.L (A2) 00023860 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00023866 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7) 0002386a 4e ba d8 5e |N ^ | JSR 0x210ca 0002386e 9e fc 00 16 | | SUBA.W #0x16,A7 00023872 20 4f | O | MOVEA.L A7,A0 00023874 43 fa d5 28 |C ( | LEA.L 0x20d9e,A1 00023878 70 18 |p | MOVEQ.L #0x18,D0 0002387a 10 d9 | | MOVE.B (A1)+,(A0)+ 0002387c 51 c8 ff fc |Q | DBF D0,0x2387a 00023880 51 4f |QO | SUBQ.L #0x8,A7 00023882 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00023886 3f 01 |? | MOVE.W D1,-(A7) 00023888 3f 3c 00 19 |?< | MOVE.W #0x19,-(A7) 0002388c 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00023892 58 4f |XO | ADDQ.L #0x4,A7 00023894 2e ae 00 0c |. | MOVE.L (A6+0xc),(A7) 00023898 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 0002389e 50 4f |PO | ADDQ.L #0x8,A7 000238a0 4e ba d8 6a |N j | JSR 0x2110c 000238a4 de fc 00 1e | | ADDA.W #0x1e,A7 000238a8 2d 79 00 02 8c 1e ff fa |-y | MOVE.L 0x28c1e,(A6-0x6) 000238b0 2f 14 |/ | MOVE.L (A4),-(A7) 000238b2 48 52 |HR | PEA.L (A2) 000238b4 48 6e ff f8 |Hn | PEA.L (A6-0x8) 000238b8 4e b9 00 01 04 3c |N < | JSR FileReadLine(file : File; VAR a : String; VAR b : Byte) 000238be de fc 00 0c | | ADDA.W #0xc,A7 000238c2 20 52 | R | MOVEA.L (A2),A0 000238c4 4a 50 |JP | TST.W (A0) 000238c6 67 14 |g | BEQ 0x238dc 000238c8 2f 12 |/ | MOVE.L (A2),-(A7) 000238ca 4e ba da 98 |N | JSR 0x21364 000238ce 58 4f |XO | ADDQ.L #0x4,A7 000238d0 48 6e ff fa |Hn | PEA.L (A6-0x6) 000238d4 2f 12 |/ | MOVE.L (A2),-(A7) 000238d6 4e ba de 12 |N | JSR 0x216ea 000238da 50 4f |PO | ADDQ.L #0x8,A7 000238dc 4a 2e ff f8 |J. | TST.B (A6-0x8) 000238e0 67 ce |g | BEQ 0x238b0 000238e2 42 27 |B' | CLR.B -(A7) 000238e4 1f 01 | | MOVE.B D1,-(A7) 000238e6 48 78 00 01 |Hx | PEA.L 0x1 000238ea 48 53 |HS | PEA.L (A3) 000238ec 48 54 |HT | PEA.L (A4) 000238ee 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File) 000238f4 de fc 00 10 | | ADDA.W #0x10,A7 000238f8 48 52 |HR | PEA.L (A2) 000238fa 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00023900 58 4f |XO | ADDQ.L #0x4,A7 00023902 4c df 1f 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2+A3+A4 00023906 4e 5e |N^ | UNLK A6 00023908 4e 75 |Nu | RTS 0002390a ; -------------------------------------------------------------------------------------- 0002390a ; OMSI PASCAL Function 0002390a ; <LVAR 0x014 1(w)> 0002390a ; <LVAR 0x00c 4(r)> 0002390a ; <LVAR 0x008 4(r)> 0002390a ; -------------------------------------------------------------------------------------- 0002390a 4e 56 ff f4 |NV | LINK.W A6,#0xfff4 0002390e bf d5 | | CMPA.L (A5),A7 00023910 62 06 |b | BHI 0x23918 00023912 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023916 4e 76 |Nv | TRAPV 00023918 de fc 00 0c | | ADDA.W #0xc,A7 0002391c 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 00023920 20 2e 00 0c | . | MOVE.L (A6+0xc),D0 00023924 d0 ae 00 08 | | ADD.L (A6+0x8),D0 00023928 53 80 |S | SUBQ.L #0x1,D0 0002392a 53 80 |S | SUBQ.L #0x1,D0 0002392c 0c 80 00 00 1f ff | | CMPI.L #0x00001fff,D0 00023932 63 02 |c | BLS 0x23936 00023934 4e 4f |NO | TRAP #15 00023936 41 f9 00 02 6c 16 |A l | LEA.L 0x26c16,A0 0002393c 1d 70 08 08 00 14 | p | MOVE.B (A0+D0.L+#0x8),(A6+0x14) 00023942 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 00023946 4e 5e |N^ | UNLK A6 00023948 4e 75 |Nu | RTS 0002394a ; -------------------------------------------------------------------------------------- 0002394a ; OMSI PASCAL Function 0002394a ; <LVAR 0x010 4(w)> 0002394a ; <LVAR 0x00c 4(r)> 0002394a ; <LVAR 0x008 4(r)> 0002394a ; <LVAR -0x004 @ 1(r)> 0002394a ; <LVAR -0x008 @ 4(r)> 0002394a ; -------------------------------------------------------------------------------------- 0002394a 4e 56 ff c4 |NV | LINK.W A6,#0xffc4 0002394e bf d5 | | CMPA.L (A5),A7 00023950 62 06 |b | BHI 0x23958 00023952 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023956 4e 76 |Nv | TRAPV 00023958 de fc 00 34 | 4 | ADDA.W #0x34,A7 0002395c 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7) 00023960 59 4f |YO | SUBQ.L #0x4,A7 00023962 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00023966 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 0002396a 4e ba e4 4c |N L | JSR 0x21db8 0002396e 50 4f |PO | ADDQ.L #0x8,A7 00023970 48 6e ff fc |Hn | PEA.L (A6-0x4) 00023974 48 6e ff f8 |Hn | PEA.L (A6-0x8) 00023978 4e b9 00 01 02 ec |N | JSR String2Long(src : String; VAR status : Bool; VAR retval : Long) 0002397e de fc 00 0c | | ADDA.W #0xc,A7 00023982 4a 2e ff fc |J. | TST.B (A6-0x4) 00023986 66 30 |f0 | BNE 0x239b8 00023988 9e fc 00 18 | | SUBA.W #0x18,A7 0002398c 20 4f | O | MOVEA.L A7,A0 0002398e 43 fa d4 28 |C ( | LEA.L 0x20db8,A1 00023992 70 16 |p | MOVEQ.L #0x16,D0 00023994 10 d9 | | MOVE.B (A1)+,(A0)+ 00023996 51 c8 ff fc |Q | DBF D0,0x23994 0002399a 59 4f |YO | SUBQ.L #0x4,A7 0002399c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000239a0 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000239a4 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7) 000239a8 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000239ae 50 4f |PO | ADDQ.L #0x8,A7 000239b0 4e ba d7 5a |N Z | JSR 0x2110c 000239b4 de fc 00 1c | | ADDA.W #0x1c,A7 000239b8 2d 6e ff f8 00 10 |-n | MOVE.L (A6-0x8),(A6+0x10) 000239be 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1 000239c2 4e 5e |N^ | UNLK A6 000239c4 4e 75 |Nu | RTS 000239c6 ; -------------------------------------------------------------------------------------- 000239c6 ; OMSI PASCAL Function 000239c6 ; <LVAR 0x014 4(r)> 000239c6 ; <LVAR 0x010 4(r)> 000239c6 ; <LVAR 0x00c 4(r)> 000239c6 ; <LVAR 0x008 4(r)> 000239c6 ; <LVAR -0x00c 4(rw)> 000239c6 ; <LVAR -0x010 4(rw)> 000239c6 ; <LVAR -0x014 4(rw)> 000239c6 ; <LVAR -0x018 4(w)> 000239c6 ; <LVAR -0x020 4(rw)> 000239c6 ; -------------------------------------------------------------------------------------- 000239c6 4e 56 ff 8e |NV | LINK.W A6,#0xff8e 000239ca bf d5 | | CMPA.L (A5),A7 000239cc 62 06 |b | BHI 0x239d4 000239ce 44 fc 00 02 |D | MOVE.W #0x2,CCR 000239d2 4e 76 |Nv | TRAPV 000239d4 de fc 00 4e | N | ADDA.W #0x4e,A7 000239d8 48 e7 c7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D1+D0,-(A7) 000239dc 43 ee ff e0 |C | LEA.L (A6-0x20),A1 000239e0 45 ee ff f0 |E | LEA.L (A6-0x10),A2 000239e4 47 ee ff f4 |G | LEA.L (A6-0xc),A3 000239e8 49 ee ff ec |I | LEA.L (A6-0x14),A4 000239ec 7e 00 |~ | MOVEQ.L #0x00,D7 000239ee 22 ae 00 14 |" | MOVE.L (A6+0x14),(A1) 000239f2 20 39 00 02 8c 1e | 9 | MOVE.L 0x28c1e,D0 000239f8 90 ae 00 14 | | SUB.L (A6+0x14),D0 000239fc 28 80 |( | MOVE.L D0,(A4) 000239fe 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00023a02 2a 2e 00 10 |*. | MOVE.L (A6+0x10),D5 00023a06 ba 97 | | CMP.L (A7),D5 00023a08 6e 2c |n, | BGT 0x23a36 00023a0a 51 4f |QO | SUBQ.L #0x8,A7 00023a0c 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023a10 2f 05 |/ | MOVE.L D5,-(A7) 00023a12 4e ba e3 42 |N B | JSR 0x21d56 00023a16 50 4f |PO | ADDQ.L #0x8,A7 00023a18 24 9f |$ | MOVE.L (A7)+,(A2) 00023a1a 26 97 |& | MOVE.L (A7),(A3) 00023a1c 2f 13 |/ | MOVE.L (A3),-(A7) 00023a1e 2f 12 |/ | MOVE.L (A2),-(A7) 00023a20 4e ba e2 fc |N | JSR 0x21d1e 00023a24 50 4f |PO | ADDQ.L #0x8,A7 00023a26 2c 1f |, | MOVE.L (A7)+,D6 00023a28 de 86 | | ADD.L D6,D7 00023a2a ba ae 00 0c | | CMP.L (A6+0xc),D5 00023a2e 6c 02 |l | BGE 0x23a32 00023a30 52 87 |R | ADDQ.L #0x1,D7 00023a32 52 85 |R | ADDQ.L #0x1,D5 00023a34 68 d0 |h | BVC 0x23a06 00023a36 58 4f |XO | ADDQ.L #0x4,A7 00023a38 20 11 | | MOVE.L (A1),D0 00023a3a d0 94 | | ADD.L (A4),D0 00023a3c 2d 40 ff e8 |-@ | MOVE.L D0,(A6-0x18) 00023a40 be 94 | | CMP.L (A4),D7 00023a42 67 0c |g | BEQ 0x23a50 00023a44 2f 00 |/ | MOVE.L D0,-(A7) 00023a46 2f 14 |/ | MOVE.L (A4),-(A7) 00023a48 9f 97 | | SUB.L D7,(A7) 00023a4a 4e ba dc 14 |N | JSR 0x21660 00023a4e 50 4f |PO | ADDQ.L #0x8,A7 00023a50 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00023a54 2a 2e 00 10 |*. | MOVE.L (A6+0x10),D5 00023a58 ba 97 | | CMP.L (A7),D5 00023a5a 6e 00 00 88 |n | BGT 0x23ae4 00023a5e 51 4f |QO | SUBQ.L #0x8,A7 00023a60 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023a64 2f 05 |/ | MOVE.L D5,-(A7) 00023a66 4e ba e2 ee |N | JSR 0x21d56 00023a6a 50 4f |PO | ADDQ.L #0x8,A7 00023a6c 24 9f |$ | MOVE.L (A7)+,(A2) 00023a6e 26 97 |& | MOVE.L (A7),(A3) 00023a70 2f 13 |/ | MOVE.L (A3),-(A7) 00023a72 2f 12 |/ | MOVE.L (A2),-(A7) 00023a74 4e ba e2 a8 |N | JSR 0x21d1e 00023a78 50 4f |PO | ADDQ.L #0x8,A7 00023a7a 2c 1f |, | MOVE.L (A7)+,D6 00023a7c 2f 06 |/ | MOVE.L D6,-(A7) 00023a7e 70 01 |p | MOVEQ.L #0x01,D0 00023a80 b0 97 | | CMP.L (A7),D0 00023a82 6e 30 |n0 | BGT 0x23ab4 00023a84 22 11 |" | MOVE.L (A1),D1 00023a86 d2 80 | | ADD.L D0,D1 00023a88 53 81 |S | SUBQ.L #0x1,D1 00023a8a 53 81 |S | SUBQ.L #0x1,D1 00023a8c 0c 81 00 00 1f ff | | CMPI.L #0x00001fff,D1 00023a92 63 02 |c | BLS 0x23a96 00023a94 4e 4f |NO | TRAP #15 00023a96 41 f9 00 02 6c 16 |A l | LEA.L 0x26c16,A0 00023a9c 55 4f |UO | SUBQ.L #0x2,A7 00023a9e 2f 13 |/ | MOVE.L (A3),-(A7) 00023aa0 2f 12 |/ | MOVE.L (A2),-(A7) 00023aa2 2f 00 |/ | MOVE.L D0,-(A7) 00023aa4 4e ba fe 64 |N d | JSR 0x2390a 00023aa8 de fc 00 0c | | ADDA.W #0xc,A7 00023aac 11 9f 18 08 | | MOVE.B (A7)+,(A0+D1.L+#0x8) 00023ab0 52 80 |R | ADDQ.L #0x1,D0 00023ab2 68 cc |h | BVC 0x23a80 00023ab4 58 4f |XO | ADDQ.L #0x4,A7 00023ab6 ba ae 00 0c | | CMP.L (A6+0xc),D5 00023aba 6c 22 |l" | BGE 0x23ade 00023abc 20 11 | | MOVE.L (A1),D0 00023abe d0 86 | | ADD.L D6,D0 00023ac0 22 00 |" | MOVE.L D0,D1 00023ac2 53 81 |S | SUBQ.L #0x1,D1 00023ac4 0c 81 00 00 1f ff | | CMPI.L #0x00001fff,D1 00023aca 63 02 |c | BLS 0x23ace 00023acc 4e 4f |NO | TRAP #15 00023ace 41 f9 00 02 6c 16 |A l | LEA.L 0x26c16,A0 00023ad4 11 bc 00 2c 18 08 | , | MOVE.B #0x2c,(A0+D1.L+#0x8) 00023ada 52 80 |R | ADDQ.L #0x1,D0 00023adc 22 80 |" | MOVE.L D0,(A1) 00023ade 52 85 |R | ADDQ.L #0x1,D5 00023ae0 68 00 ff 76 |h v | BVC 0x23a58 00023ae4 58 4f |XO | ADDQ.L #0x4,A7 00023ae6 4c df 1f e3 |L | MOVEM.L (A7)+,D0+D1+D5+D6+D7+A0+A1+A2+A3+A4 00023aea 4e 5e |N^ | UNLK A6 00023aec 4e 75 |Nu | RTS 00023aee ; -------------------------------------------------------------------------------------- 00023aee ; OMSI PASCAL Function 00023aee ; <LVAR 0x018 4(rw)> 00023aee ; <LVAR 0x014 4(r)> 00023aee ; <LVAR 0x010 4(r)> 00023aee ; <LVAR 0x00c 4(r)> 00023aee ; <LVAR 0x008 4(r)> 00023aee ; <LVAR -0x008 4(rw)> 00023aee ; <LVAR -0x00c 4(rw)> 00023aee ; <LVAR -0x018 4(w)> 00023aee ; -------------------------------------------------------------------------------------- 00023aee 4e 56 ff 9e |NV | LINK.W A6,#0xff9e 00023af2 bf d5 | | CMPA.L (A5),A7 00023af4 62 06 |b | BHI 0x23afc 00023af6 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023afa 4e 76 |Nv | TRAPV 00023afc de fc 00 4a | J | ADDA.W #0x4a,A7 00023b00 48 e7 c7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D1+D0,-(A7) 00023b04 41 ee ff f8 |A | LEA.L (A6-0x8),A0 00023b08 43 ee 00 14 |C | LEA.L (A6+0x14),A1 00023b0c 45 ee 00 10 |E | LEA.L (A6+0x10),A2 00023b10 47 ee ff f4 |G | LEA.L (A6-0xc),A3 00023b14 49 fa fd f4 |I | LEA.L 0x2390a,A4 00023b18 72 0c |r | MOVEQ.L #0x0c,D1 00023b1a 59 4f |YO | SUBQ.L #0x4,A7 00023b1c 2f 11 |/ | MOVE.L (A1),-(A7) 00023b1e 2f 12 |/ | MOVE.L (A2),-(A7) 00023b20 4e ba e1 fc |N | JSR 0x21d1e 00023b24 50 4f |PO | ADDQ.L #0x8,A7 00023b26 26 97 |& | MOVE.L (A7),(A3) 00023b28 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00023b2c 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023b30 4e ba e1 ec |N | JSR 0x21d1e 00023b34 50 4f |PO | ADDQ.L #0x8,A7 00023b36 20 9f | | MOVE.L (A7)+,(A0) 00023b38 52 90 |R | ADDQ.L #0x1,(A0) 00023b3a 20 13 | | MOVE.L (A3),D0 00023b3c 90 90 | | SUB.L (A0),D0 00023b3e 52 80 |R | ADDQ.L #0x1,D0 00023b40 2f 00 |/ | MOVE.L D0,-(A7) 00023b42 70 01 |p | MOVEQ.L #0x01,D0 00023b44 b0 97 | | CMP.L (A7),D0 00023b46 6e 00 00 8e |n | BGT 0x23bd6 00023b4a 2d 40 ff e8 |-@ | MOVE.L D0,(A6-0x18) 00023b4e 2f 00 |/ | MOVE.L D0,-(A7) 00023b50 7c 00 || | MOVEQ.L #0x00,D6 00023b52 2f 10 |/ | MOVE.L (A0),-(A7) 00023b54 7a 01 |z | MOVEQ.L #0x01,D5 00023b56 ba 97 | | CMP.L (A7),D5 00023b58 6e 42 |nB | BGT 0x23b9c 00023b5a 0c 85 00 00 00 01 | | CMPI.L #0x00000001,D5 00023b60 66 04 |f | BNE 0x23b66 00023b62 7e 2f |~/ | MOVEQ.L #0x2f,D7 00023b64 60 14 |` | BRA 0x23b7a 00023b66 55 4f |UO | SUBQ.L #0x2,A7 00023b68 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00023b6c 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023b70 2f 05 |/ | MOVE.L D5,-(A7) 00023b72 53 97 |S | SUBQ.L #0x1,(A7) 00023b74 4e 94 |N | JSR (A4) 00023b76 de c1 | | ADDA.W D1,A7 00023b78 1e 1f | | MOVE.B (A7)+,D7 00023b7a 55 4f |UO | SUBQ.L #0x2,A7 00023b7c 2f 11 |/ | MOVE.L (A1),-(A7) 00023b7e 2f 12 |/ | MOVE.L (A2),-(A7) 00023b80 20 2f 00 0e | / | MOVE.L (A7+0xe),D0 00023b84 d0 85 | | ADD.L D5,D0 00023b86 53 80 |S | SUBQ.L #0x1,D0 00023b88 2f 00 |/ | MOVE.L D0,-(A7) 00023b8a 4e 94 |N | JSR (A4) 00023b8c de c1 | | ADDA.W D1,A7 00023b8e be 1f | | CMP.B (A7)+,D7 00023b90 67 04 |g | BEQ 0x23b96 00023b92 58 4f |XO | ADDQ.L #0x4,A7 00023b94 60 08 |` | BRA 0x23b9e 00023b96 2c 05 |, | MOVE.L D5,D6 00023b98 52 85 |R | ADDQ.L #0x1,D5 00023b9a 68 ba |h | BVC 0x23b56 00023b9c 58 4f |XO | ADDQ.L #0x4,A7 00023b9e bc 90 | | CMP.L (A0),D6 00023ba0 66 2c |f, | BNE 0x23bce 00023ba2 20 17 | | MOVE.L (A7),D0 00023ba4 2d 40 00 18 |-@ | MOVE.L D0,(A6+0x18) 00023ba8 d0 90 | | ADD.L (A0),D0 00023baa b0 93 | | CMP.L (A3),D0 00023bac 6d 02 |m | BLT 0x23bb0 00023bae 60 1a |` | BRA 0x23bca 00023bb0 55 4f |UO | SUBQ.L #0x2,A7 00023bb2 2f 11 |/ | MOVE.L (A1),-(A7) 00023bb4 2f 12 |/ | MOVE.L (A2),-(A7) 00023bb6 2f 00 |/ | MOVE.L D0,-(A7) 00023bb8 4e 94 |N | JSR (A4) 00023bba de c1 | | ADDA.W D1,A7 00023bbc 1e 1f | | MOVE.B (A7)+,D7 00023bbe 0c 07 00 2f | / | CMPI.B #0x2f,D7 00023bc2 67 06 |g | BEQ 0x23bca 00023bc4 0c 07 00 3d | = | CMPI.B #0x3d,D7 00023bc8 66 04 |f | BNE 0x23bce 00023bca 50 4f |PO | ADDQ.L #0x8,A7 00023bcc 60 0e |` | BRA 0x23bdc 00023bce 20 1f | | MOVE.L (A7)+,D0 00023bd0 52 80 |R | ADDQ.L #0x1,D0 00023bd2 68 00 ff 70 |h p | BVC 0x23b44 00023bd6 58 4f |XO | ADDQ.L #0x4,A7 00023bd8 42 ae 00 18 |B | CLR.L (A6+0x18) 00023bdc 4c df 1f e3 |L | MOVEM.L (A7)+,D0+D1+D5+D6+D7+A0+A1+A2+A3+A4 00023be0 4e 5e |N^ | UNLK A6 00023be2 4e 75 |Nu | RTS 00023be4 ; -------------------------------------------------------------------------------------- 00023be4 ; OMSI PASCAL Function 00023be4 ; <LVAR 0x018 4(r)> 00023be4 ; <LVAR 0x014 4(r)> 00023be4 ; <LVAR 0x010 4(r)> 00023be4 ; <LVAR 0x00c 4(r)> 00023be4 ; <LVAR 0x008 4(r)> 00023be4 ; -------------------------------------------------------------------------------------- 00023be4 4e 56 ff be |NV | LINK.W A6,#0xffbe 00023be8 bf d5 | | CMPA.L (A5),A7 00023bea 62 06 |b | BHI 0x23bf2 00023bec 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023bf0 4e 76 |Nv | TRAPV 00023bf2 de fc 00 36 | 6 | ADDA.W #0x36,A7 00023bf6 48 e7 c7 c0 |H | MOVEM.L A1+A0+D7+D6+D5+D1+D0,-(A7) 00023bfa 41 ee 00 14 |A | LEA.L (A6+0x14),A0 00023bfe 43 ee 00 10 |C | LEA.L (A6+0x10),A1 00023c02 72 2f |r/ | MOVEQ.L #0x2f,D1 00023c04 59 4f |YO | SUBQ.L #0x4,A7 00023c06 2f 10 |/ | MOVE.L (A0),-(A7) 00023c08 2f 11 |/ | MOVE.L (A1),-(A7) 00023c0a 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00023c0e 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023c12 4e ba fe da |N | JSR 0x23aee 00023c16 de fc 00 10 | | ADDA.W #0x10,A7 00023c1a 2a 1f |* | MOVE.L (A7)+,D5 00023c1c 6f 52 |oR | BLE 0x23c70 00023c1e 2f 2e 00 18 |/. | MOVE.L (A6+0x18),-(A7) 00023c22 1f 01 | | MOVE.B D1,-(A7) 00023c24 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00023c2a 5c 4f |\O | ADDQ.L #0x6,A7 00023c2c 20 05 | | MOVE.L D5,D0 00023c2e 52 80 |R | ADDQ.L #0x1,D0 00023c30 59 4f |YO | SUBQ.L #0x4,A7 00023c32 2f 10 |/ | MOVE.L (A0),-(A7) 00023c34 2f 11 |/ | MOVE.L (A1),-(A7) 00023c36 4e ba e0 e6 |N | JSR 0x21d1e 00023c3a 50 4f |PO | ADDQ.L #0x8,A7 00023c3c 2c 00 |, | MOVE.L D0,D6 00023c3e bc 97 | | CMP.L (A7),D6 00023c40 6e 2c |n, | BGT 0x23c6e 00023c42 55 4f |UO | SUBQ.L #0x2,A7 00023c44 2f 10 |/ | MOVE.L (A0),-(A7) 00023c46 2f 11 |/ | MOVE.L (A1),-(A7) 00023c48 2f 06 |/ | MOVE.L D6,-(A7) 00023c4a 4e ba fc be |N | JSR 0x2390a 00023c4e de fc 00 0c | | ADDA.W #0xc,A7 00023c52 1e 1f | | MOVE.B (A7)+,D7 00023c54 be 01 | | CMP.B D1,D7 00023c56 66 04 |f | BNE 0x23c5c 00023c58 58 4f |XO | ADDQ.L #0x4,A7 00023c5a 60 14 |` | BRA 0x23c70 00023c5c 2f 2e 00 18 |/. | MOVE.L (A6+0x18),-(A7) 00023c60 1f 07 | | MOVE.B D7,-(A7) 00023c62 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00023c68 5c 4f |\O | ADDQ.L #0x6,A7 00023c6a 52 86 |R | ADDQ.L #0x1,D6 00023c6c 68 d0 |h | BVC 0x23c3e 00023c6e 58 4f |XO | ADDQ.L #0x4,A7 00023c70 4c df 03 e3 |L | MOVEM.L (A7)+,D0+D1+D5+D6+D7+A0+A1 00023c74 4e 5e |N^ | UNLK A6 00023c76 4e 75 |Nu | RTS 00023c78 ; -------------------------------------------------------------------------------------- 00023c78 ; OMSI PASCAL Function 00023c78 ; <LVAR 0x018 4(r)> 00023c78 ; <LVAR 0x014 4(r)> 00023c78 ; <LVAR 0x010 4(r)> 00023c78 ; <LVAR 0x00c 4(r)> 00023c78 ; <LVAR 0x008 4(r)> 00023c78 ; <LVAR -0x006 4(rw)> 00023c78 ; <LVAR -0x014 4(rw)> 00023c78 ; -------------------------------------------------------------------------------------- 00023c78 4e 56 ff aa |NV | LINK.W A6,#0xffaa 00023c7c bf d5 | | CMPA.L (A5),A7 00023c7e 62 06 |b | BHI 0x23c86 00023c80 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023c84 4e 76 |Nv | TRAPV 00023c86 de fc 00 42 | B | ADDA.W #0x42,A7 00023c8a 48 e7 c7 e0 |H | MOVEM.L A2+A1+A0+D7+D6+D5+D1+D0,-(A7) 00023c8e 41 ee 00 14 |A | LEA.L (A6+0x14),A0 00023c92 43 ee 00 10 |C | LEA.L (A6+0x10),A1 00023c96 45 ee ff fa |E | LEA.L (A6-0x6),A2 00023c9a 72 0c |r | MOVEQ.L #0x0c,D1 00023c9c 59 4f |YO | SUBQ.L #0x4,A7 00023c9e 2f 10 |/ | MOVE.L (A0),-(A7) 00023ca0 2f 11 |/ | MOVE.L (A1),-(A7) 00023ca2 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00023ca6 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023caa 4e ba fe 42 |N B | JSR 0x23aee 00023cae de fc 00 10 | | ADDA.W #0x10,A7 00023cb2 2d 5f ff ec |-_ | MOVE.L (A7)+,(A6-0x14) 00023cb6 6f 6e |on | BLE 0x23d26 00023cb8 59 4f |YO | SUBQ.L #0x4,A7 00023cba 2f 10 |/ | MOVE.L (A0),-(A7) 00023cbc 2f 11 |/ | MOVE.L (A1),-(A7) 00023cbe 4e ba e0 5e |N ^ | JSR 0x21d1e 00023cc2 50 4f |PO | ADDQ.L #0x8,A7 00023cc4 24 9f |$ | MOVE.L (A7)+,(A2) 00023cc6 2f 12 |/ | MOVE.L (A2),-(A7) 00023cc8 2a 2e ff ec |*. | MOVE.L (A6-0x14),D5 00023ccc ba 97 | | CMP.L (A7),D5 00023cce 6e 54 |nT | BGT 0x23d24 00023cd0 55 4f |UO | SUBQ.L #0x2,A7 00023cd2 2f 10 |/ | MOVE.L (A0),-(A7) 00023cd4 2f 11 |/ | MOVE.L (A1),-(A7) 00023cd6 2f 05 |/ | MOVE.L D5,-(A7) 00023cd8 4e ba fc 30 |N 0 | JSR 0x2390a 00023cdc de c1 | | ADDA.W D1,A7 00023cde 10 1f | | MOVE.B (A7)+,D0 00023ce0 0c 00 00 3d | = | CMPI.B #0x3d,D0 00023ce4 66 3a |f: | BNE 0x23d20 00023ce6 20 05 | | MOVE.L D5,D0 00023ce8 52 80 |R | ADDQ.L #0x1,D0 00023cea 2f 12 |/ | MOVE.L (A2),-(A7) 00023cec 2c 00 |, | MOVE.L D0,D6 00023cee bc 97 | | CMP.L (A7),D6 00023cf0 6e 2c |n, | BGT 0x23d1e 00023cf2 55 4f |UO | SUBQ.L #0x2,A7 00023cf4 2f 10 |/ | MOVE.L (A0),-(A7) 00023cf6 2f 11 |/ | MOVE.L (A1),-(A7) 00023cf8 2f 06 |/ | MOVE.L D6,-(A7) 00023cfa 4e ba fc 0e |N | JSR 0x2390a 00023cfe de c1 | | ADDA.W D1,A7 00023d00 1e 1f | | MOVE.B (A7)+,D7 00023d02 0c 07 00 2f | / | CMPI.B #0x2f,D7 00023d06 66 04 |f | BNE 0x23d0c 00023d08 50 4f |PO | ADDQ.L #0x8,A7 00023d0a 60 1a |` | BRA 0x23d26 00023d0c 2f 2e 00 18 |/. | MOVE.L (A6+0x18),-(A7) 00023d10 1f 07 | | MOVE.B D7,-(A7) 00023d12 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00023d18 5c 4f |\O | ADDQ.L #0x6,A7 00023d1a 52 86 |R | ADDQ.L #0x1,D6 00023d1c 68 d0 |h | BVC 0x23cee 00023d1e 58 4f |XO | ADDQ.L #0x4,A7 00023d20 52 85 |R | ADDQ.L #0x1,D5 00023d22 68 a8 |h | BVC 0x23ccc 00023d24 58 4f |XO | ADDQ.L #0x4,A7 00023d26 4c df 07 e3 |L | MOVEM.L (A7)+,D0+D1+D5+D6+D7+A0+A1+A2 00023d2a 4e 5e |N^ | UNLK A6 00023d2c 4e 75 |Nu | RTS 00023d2e ; -------------------------------------------------------------------------------------- 00023d2e ; OMSI PASCAL Function 00023d2e ; <LVAR 0x010 4(r)> 00023d2e ; <LVAR 0x00c 4(r)> 00023d2e ; <LVAR 0x008 4(r)> 00023d2e ; -------------------------------------------------------------------------------------- 00023d2e 4e 56 ff b2 |NV | LINK.W A6,#0xffb2 00023d32 bf d5 | | CMPA.L (A5),A7 00023d34 62 06 |b | BHI 0x23d3c 00023d36 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023d3a 4e 76 |Nv | TRAPV 00023d3c de fc 00 42 | B | ADDA.W #0x42,A7 00023d40 48 e7 c7 c0 |H | MOVEM.L A1+A0+D7+D6+D5+D1+D0,-(A7) 00023d44 41 ee 00 0c |A | LEA.L (A6+0xc),A0 00023d48 43 ee 00 08 |C | LEA.L (A6+0x8),A1 00023d4c 72 0c |r | MOVEQ.L #0x0c,D1 00023d4e 59 4f |YO | SUBQ.L #0x4,A7 00023d50 2f 10 |/ | MOVE.L (A0),-(A7) 00023d52 2f 11 |/ | MOVE.L (A1),-(A7) 00023d54 4e ba df c8 |N | JSR 0x21d1e 00023d58 50 4f |PO | ADDQ.L #0x8,A7 00023d5a 2a 1f |* | MOVE.L (A7)+,D5 00023d5c 2f 05 |/ | MOVE.L D5,-(A7) 00023d5e 7c 01 || | MOVEQ.L #0x01,D6 00023d60 bc 97 | | CMP.L (A7),D6 00023d62 6e 46 |nF | BGT 0x23daa 00023d64 55 4f |UO | SUBQ.L #0x2,A7 00023d66 2f 10 |/ | MOVE.L (A0),-(A7) 00023d68 2f 11 |/ | MOVE.L (A1),-(A7) 00023d6a 2f 06 |/ | MOVE.L D6,-(A7) 00023d6c 4e ba fb 9c |N | JSR 0x2390a 00023d70 de c1 | | ADDA.W D1,A7 00023d72 10 1f | | MOVE.B (A7)+,D0 00023d74 0c 00 00 2f | / | CMPI.B #0x2f,D0 00023d78 66 2c |f, | BNE 0x23da6 00023d7a 2f 05 |/ | MOVE.L D5,-(A7) 00023d7c 2e 06 |. | MOVE.L D6,D7 00023d7e be 97 | | CMP.L (A7),D7 00023d80 6e 1e |n | BGT 0x23da0 00023d82 2f 2e 00 10 |/. | MOVE.L (A6+0x10),-(A7) 00023d86 55 4f |UO | SUBQ.L #0x2,A7 00023d88 2f 10 |/ | MOVE.L (A0),-(A7) 00023d8a 2f 11 |/ | MOVE.L (A1),-(A7) 00023d8c 2f 07 |/ | MOVE.L D7,-(A7) 00023d8e 4e ba fb 7a |N z | JSR 0x2390a 00023d92 de c1 | | ADDA.W D1,A7 00023d94 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00023d9a 5c 4f |\O | ADDQ.L #0x6,A7 00023d9c 52 87 |R | ADDQ.L #0x1,D7 00023d9e 68 de |h | BVC 0x23d7e 00023da0 58 4f |XO | ADDQ.L #0x4,A7 00023da2 58 4f |XO | ADDQ.L #0x4,A7 00023da4 60 06 |` | BRA 0x23dac 00023da6 52 86 |R | ADDQ.L #0x1,D6 00023da8 68 b6 |h | BVC 0x23d60 00023daa 58 4f |XO | ADDQ.L #0x4,A7 00023dac 4c df 03 e3 |L | MOVEM.L (A7)+,D0+D1+D5+D6+D7+A0+A1 00023db0 4e 5e |N^ | UNLK A6 00023db2 4e 75 |Nu | RTS 00023db4 ; -------------------------------------------------------------------------------------- 00023db4 ; OMSI PASCAL Function 00023db4 ; <LVAR 0x010 4(r)> 00023db4 ; <LVAR 0x00c 4(r)> 00023db4 ; <LVAR 0x008 4(r)> 00023db4 ; -------------------------------------------------------------------------------------- 00023db4 4e 56 ff ce |NV | LINK.W A6,#0xffce 00023db8 bf d5 | | CMPA.L (A5),A7 00023dba 62 06 |b | BHI 0x23dc2 00023dbc 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023dc0 4e 76 |Nv | TRAPV 00023dc2 de fc 00 2a | * | ADDA.W #0x2a,A7 00023dc6 48 e7 03 80 |H | MOVEM.L A0+D7+D6,-(A7) 00023dca 20 6e 00 10 | n | MOVEA.L (A6+0x10),A0 00023dce 42 50 |BP | CLR.W (A0) 00023dd0 59 4f |YO | SUBQ.L #0x4,A7 00023dd2 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00023dd6 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023dda 4e ba df 42 |N B | JSR 0x21d1e 00023dde 50 4f |PO | ADDQ.L #0x8,A7 00023de0 7e 01 |~ | MOVEQ.L #0x01,D7 00023de2 be 97 | | CMP.L (A7),D7 00023de4 6e 34 |n4 | BGT 0x23e1a 00023de6 55 4f |UO | SUBQ.L #0x2,A7 00023de8 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00023dec 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023df0 2f 07 |/ | MOVE.L D7,-(A7) 00023df2 4e ba fb 16 |N | JSR 0x2390a 00023df6 de fc 00 0c | | ADDA.W #0xc,A7 00023dfa 1c 1f | | MOVE.B (A7)+,D6 00023dfc 0c 06 00 2f | / | CMPI.B #0x2f,D6 00023e00 67 10 |g | BEQ 0x23e12 00023e02 2f 2e 00 10 |/. | MOVE.L (A6+0x10),-(A7) 00023e06 1f 06 | | MOVE.B D6,-(A7) 00023e08 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00023e0e 5c 4f |\O | ADDQ.L #0x6,A7 00023e10 60 04 |` | BRA 0x23e16 00023e12 58 4f |XO | ADDQ.L #0x4,A7 00023e14 60 06 |` | BRA 0x23e1c 00023e16 52 87 |R | ADDQ.L #0x1,D7 00023e18 68 c8 |h | BVC 0x23de2 00023e1a 58 4f |XO | ADDQ.L #0x4,A7 00023e1c 4c df 01 c0 |L | MOVEM.L (A7)+,D6+D7+A0 00023e20 4e 5e |N^ | UNLK A6 00023e22 4e 75 |Nu | RTS 00023e24 ; -------------------------------------------------------------------------------------- 00023e24 ; OMSI PASCAL Function 00023e24 ; -------------------------------------------------------------------------------------- 00023e24 4e 56 ff c6 |NV | LINK.W A6,#0xffc6 00023e28 bf d5 | | CMPA.L (A5),A7 00023e2a 62 06 |b | BHI 0x23e32 00023e2c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023e30 4e 76 |Nv | TRAPV 00023e32 de fc 00 3a | : | ADDA.W #0x3a,A7 00023e36 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 00023e3a 41 fa cf b6 |A | LEA.L 0x20df2,A0 00023e3e 70 10 |p | MOVEQ.L #0x10,D0 00023e40 3f 20 |? | MOVE.W -(A0),-(A7) 00023e42 51 c8 ff fc |Q | DBF D0,0x23e40 00023e46 59 4f |YO | SUBQ.L #0x4,A7 00023e48 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023e4c 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00023e50 3f 3c 00 22 |?< " | MOVE.W #0x22,-(A7) 00023e54 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00023e5a 50 4f |PO | ADDQ.L #0x8,A7 00023e5c 4e ba d2 ae |N | JSR 0x2110c 00023e60 de fc 00 26 | & | ADDA.W #0x26,A7 00023e64 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 00023e68 4e 5e |N^ | UNLK A6 00023e6a 4e 75 |Nu | RTS 00023e6c ; -------------------------------------------------------------------------------------- 00023e6c ; OMSI PASCAL Function 00023e6c ; <LVAR 0x00c 4(r)> 00023e6c ; <LVAR 0x008 4(r)> 00023e6c ; <LVAR -0x006 4(rw)> 00023e6c ; -------------------------------------------------------------------------------------- 00023e6c 4e 56 ff a0 |NV | LINK.W A6,#0xffa0 00023e70 bf d5 | | CMPA.L (A5),A7 00023e72 62 06 |b | BHI 0x23e7a 00023e74 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023e78 4e 76 |Nv | TRAPV 00023e7a de fc 00 58 | X | ADDA.W #0x58,A7 00023e7e 48 e7 ff f0 |H | MOVEM.L A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00023e82 43 ee 00 0c |C | LEA.L (A6+0xc),A1 00023e86 45 f9 00 02 8c 1e |E | LEA.L 0x28c1e,A2 00023e8c 47 fa d3 1a |G | LEA.L 0x211a8,A3 00023e90 72 30 |r0 | MOVEQ.L #0x30,D1 00023e92 74 39 |t9 | MOVEQ.L #0x39,D2 00023e94 76 25 |v% | MOVEQ.L #0x25,D3 00023e96 78 2d |x- | MOVEQ.L #0x2d,D4 00023e98 2d 52 ff fa |-R | MOVE.L (A2),(A6-0x6) 00023e9c 55 4f |UO | SUBQ.L #0x2,A7 00023e9e 4e 93 |N | JSR (A3) 00023ea0 1e 1f | | MOVE.B (A7)+,D7 00023ea2 be 03 | | CMP.B D3,D7 00023ea4 66 08 |f | BNE 0x23eae 00023ea6 20 51 | Q | MOVEA.L (A1),A0 00023ea8 42 90 |B | CLR.L (A0) 00023eaa 60 00 00 e2 |` | BRA 0x23f8e 00023eae be 04 | | CMP.B D4,D7 00023eb0 66 0c |f | BNE 0x23ebe 00023eb2 20 51 | Q | MOVEA.L (A1),A0 00023eb4 20 bc 00 00 00 01 | | MOVE.L #0x1,(A0) 00023eba 60 00 00 d2 |` | BRA 0x23f8e 00023ebe 0c 07 00 2f | / | CMPI.B #0x2f,D7 00023ec2 66 0c |f | BNE 0x23ed0 00023ec4 20 51 | Q | MOVEA.L (A1),A0 00023ec6 20 bc 00 00 00 04 | | MOVE.L #0x4,(A0) 00023ecc 60 00 00 c0 |` | BRA 0x23f8e 00023ed0 0c 07 00 3d | = | CMPI.B #0x3d,D7 00023ed4 66 0c |f | BNE 0x23ee2 00023ed6 20 51 | Q | MOVEA.L (A1),A0 00023ed8 20 bc 00 00 00 05 | | MOVE.L #0x5,(A0) 00023ede 60 00 00 ae |` | BRA 0x23f8e 00023ee2 0c 07 00 5c | \ | CMPI.B #0x5c,D7 00023ee6 66 0c |f | BNE 0x23ef4 00023ee8 20 51 | Q | MOVEA.L (A1),A0 00023eea 20 bc 00 00 00 06 | | MOVE.L #0x6,(A0) 00023ef0 60 00 00 9c |` | BRA 0x23f8e 00023ef4 4a 07 |J | TST.B D7 00023ef6 66 2c |f, | BNE 0x23f24 00023ef8 41 fa cf 10 |A | LEA.L 0x20e0a,A0 00023efc 70 05 |p | MOVEQ.L #0x05,D0 00023efe 2f 20 |/ | MOVE.L -(A0),-(A7) 00023f00 51 c8 ff fc |Q | DBF D0,0x23efe 00023f04 59 4f |YO | SUBQ.L #0x4,A7 00023f06 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023f0a 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00023f0e 3f 3c 00 18 |?< | MOVE.W #0x18,-(A7) 00023f12 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00023f18 50 4f |PO | ADDQ.L #0x8,A7 00023f1a 4e ba d1 f0 |N | JSR 0x2110c 00023f1e de fc 00 1c | | ADDA.W #0x1c,A7 00023f22 60 6a |`j | BRA 0x23f8e 00023f24 be 01 | | CMP.B D1,D7 00023f26 65 2c |e, | BCS 0x23f54 00023f28 be 02 | | CMP.B D2,D7 00023f2a 62 28 |b( | BHI 0x23f54 00023f2c 20 51 | Q | MOVEA.L (A1),A0 00023f2e 20 bc 00 00 00 02 | | MOVE.L #0x2,(A0) 00023f34 55 4f |UO | SUBQ.L #0x2,A7 00023f36 4e ba d2 32 |N 2 | JSR 0x2116a 00023f3a 1e 1f | | MOVE.B (A7)+,D7 00023f3c be 01 | | CMP.B D1,D7 00023f3e 65 0a |e | BCS 0x23f4a 00023f40 be 02 | | CMP.B D2,D7 00023f42 62 06 |b | BHI 0x23f4a 00023f44 55 4f |UO | SUBQ.L #0x2,A7 00023f46 4e 93 |N | JSR (A3) 00023f48 1c 1f | | MOVE.B (A7)+,D6 00023f4a be 01 | | CMP.B D1,D7 00023f4c 65 04 |e | BCS 0x23f52 00023f4e be 02 | | CMP.B D2,D7 00023f50 63 e2 |c | BLS 0x23f34 00023f52 60 3a |`: | BRA 0x23f8e 00023f54 20 51 | Q | MOVEA.L (A1),A0 00023f56 20 bc 00 00 00 03 | | MOVE.L #0x3,(A0) 00023f5c 7a 00 |z | MOVEQ.L #0x00,D5 00023f5e 55 4f |UO | SUBQ.L #0x2,A7 00023f60 4e ba d2 08 |N | JSR 0x2116a 00023f64 1e 1f | | MOVE.B (A7)+,D7 00023f66 be 03 | | CMP.B D3,D7 00023f68 67 16 |g | BEQ 0x23f80 00023f6a be 04 | | CMP.B D4,D7 00023f6c 67 12 |g | BEQ 0x23f80 00023f6e 0c 07 00 2f | / | CMPI.B #0x2f,D7 00023f72 67 0c |g | BEQ 0x23f80 00023f74 0c 07 00 3d | = | CMPI.B #0x3d,D7 00023f78 67 06 |g | BEQ 0x23f80 00023f7a 0c 07 00 5c | \ | CMPI.B #0x5c,D7 00023f7e 66 04 |f | BNE 0x23f84 00023f80 7a 01 |z | MOVEQ.L #0x01,D5 00023f82 60 06 |` | BRA 0x23f8a 00023f84 55 4f |UO | SUBQ.L #0x2,A7 00023f86 4e 93 |N | JSR (A3) 00023f88 1c 1f | | MOVE.B (A7)+,D6 00023f8a 4a 05 |J | TST.B D5 00023f8c 67 d0 |g | BEQ 0x23f5e 00023f8e 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00023f92 20 ae ff fa | | MOVE.L (A6-0x6),(A0) 00023f96 21 52 00 04 |!R | MOVE.L (A2),(A0+0x4) 00023f9a 53 a8 00 04 |S | SUBQ.L #0x1,(A0+0x4) 00023f9e 4c df 0f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3 00023fa2 4e 5e |N^ | UNLK A6 00023fa4 4e 75 |Nu | RTS 00023fa6 ; -------------------------------------------------------------------------------------- 00023fa6 ; OMSI PASCAL Function 00023fa6 ; <LVAR 0x00c 4(r)> 00023fa6 ; <LVAR 0x008 4(r)> 00023fa6 ; -------------------------------------------------------------------------------------- 00023fa6 4e 56 ff c0 |NV | LINK.W A6,#0xffc0 00023faa bf d5 | | CMPA.L (A5),A7 00023fac 62 06 |b | BHI 0x23fb4 00023fae 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023fb2 4e 76 |Nv | TRAPV 00023fb4 de fc 00 34 | 4 | ADDA.W #0x34,A7 00023fb8 48 e7 c7 e0 |H | MOVEM.L A2+A1+A0+D7+D6+D5+D1+D0,-(A7) 00023fbc 45 ee 00 0c |E | LEA.L (A6+0xc),A2 00023fc0 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00023fc4 2f 08 |/ | MOVE.L A0,-(A7) 00023fc6 2c 39 00 02 8c 1e |,9 | MOVE.L 0x28c1e,D6 00023fcc 9c 92 | | SUB.L (A2),D6 00023fce 2a 12 |* | MOVE.L (A2),D5 00023fd0 da 86 | | ADD.L D6,D5 00023fd2 30 10 |0 | MOVE.W (A0),D0 00023fd4 48 c0 |H | EXTW.L D0 00023fd6 b0 86 | | CMP.L D6,D0 00023fd8 67 0c |g | BEQ 0x23fe6 00023fda 2f 05 |/ | MOVE.L D5,-(A7) 00023fdc 2f 06 |/ | MOVE.L D6,-(A7) 00023fde 91 97 | | SUB.L D0,(A7) 00023fe0 4e ba d6 7e |N ~ | JSR 0x21660 00023fe4 50 4f |PO | ADDQ.L #0x8,A7 00023fe6 2f 00 |/ | MOVE.L D0,-(A7) 00023fe8 7e 01 |~ | MOVEQ.L #0x01,D7 00023fea be 97 | | CMP.L (A7),D7 00023fec 6e 34 |n4 | BGT 0x24022 00023fee 20 12 | | MOVE.L (A2),D0 00023ff0 d0 87 | | ADD.L D7,D0 00023ff2 53 80 |S | SUBQ.L #0x1,D0 00023ff4 53 80 |S | SUBQ.L #0x1,D0 00023ff6 0c 80 00 00 1f ff | | CMPI.L #0x00001fff,D0 00023ffc 63 02 |c | BLS 0x24000 00023ffe 4e 4f |NO | TRAP #15 00024000 41 f9 00 02 6c 16 |A l | LEA.L 0x26c16,A0 00024006 22 07 |" | MOVE.L D7,D1 00024008 53 81 |S | SUBQ.L #0x1,D1 0002400a 0c 81 00 00 00 7d | } | CMPI.L #0x0000007d,D1 00024010 63 02 |c | BLS 0x24014 00024012 4e 4f |NO | TRAP #15 00024014 22 6f 00 04 |"o | MOVEA.L (A7+0x4),A1 00024018 11 b1 18 02 08 08 | | MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x8) 0002401e 52 87 |R | ADDQ.L #0x1,D7 00024020 68 c8 |h | BVC 0x23fea 00024022 50 4f |PO | ADDQ.L #0x8,A7 00024024 4c df 07 e3 |L | MOVEM.L (A7)+,D0+D1+D5+D6+D7+A0+A1+A2 00024028 4e 5e |N^ | UNLK A6 0002402a 4e 75 |Nu | RTS 0002402c ; -------------------------------------------------------------------------------------- 0002402c ; OMSI PASCAL Function 0002402c ; <LVAR 0x00c 4(r)> 0002402c ; <LVAR 0x008 4(r)> 0002402c ; <LVAR -0x008 @ 4(r)> 0002402c ; <LVAR -0x00c @ 4(r)> 0002402c ; <LVAR -0x010 4(r)> 0002402c ; <LVAR -0x014 @ 4(r)> 0002402c ; <LVAR -0x018 4(rw)> 0002402c ; <LVAR -0x01c 4(rw)> 0002402c ; <LVAR -0x020 4(rw)> 0002402c ; <LVAR -0x024 4(rw)> 0002402c ; <LVAR -0x028 4(rw)> 0002402c ; <LVAR -0x034 4(rw)> 0002402c ; -------------------------------------------------------------------------------------- 0002402c 4e 56 ff 70 |NV p | LINK.W A6,#0xff70 00024030 bf d5 | | CMPA.L (A5),A7 00024032 62 06 |b | BHI 0x2403a 00024034 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024038 4e 76 |Nv | TRAPV 0002403a de fc 00 5c | \ | ADDA.W #0x5c,A7 0002403e 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00024042 43 ee ff f8 |C | LEA.L (A6-0x8),A1 00024046 45 ee ff ec |E | LEA.L (A6-0x14),A2 0002404a 47 ee ff dc |G | LEA.L (A6-0x24),A3 0002404e 49 ee ff e0 |I | LEA.L (A6-0x20),A4 00024052 74 14 |t | MOVEQ.L #0x14,D2 00024054 2d 79 00 02 8c 1e ff d8 |-y | MOVE.L 0x28c1e,(A6-0x28) 0002405c 48 51 |HQ | PEA.L (A1) 0002405e 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00024064 58 4f |XO | ADDQ.L #0x4,A7 00024066 48 6e ff f4 |Hn | PEA.L (A6-0xc) 0002406a 48 52 |HR | PEA.L (A2) 0002406c 4e ba fd fe |N | JSR 0x23e6c 00024070 50 4f |PO | ADDQ.L #0x8,A7 00024072 42 ae ff cc |B | CLR.L (A6-0x34) 00024076 7e 00 |~ | MOVEQ.L #0x00,D7 00024078 20 2e ff cc | . | MOVE.L (A6-0x34),D0 0002407c b0 82 | | CMP.L D2,D0 0002407e 63 02 |c | BLS 0x24082 00024080 4e 4e |NN | TRAP #14 00024082 d0 40 | @ | ADD.W D0,D0 00024084 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 0002408c 00 2a | * | .CONST 0x2a ; [0x0] -> 0x240b6 0002408e 00 34 | 4 | .CONST 0x34 ; [0x1] -> 0x240c0 00024090 00 48 | H | .CONST 0x48 ; [0x2] -> 0x240d4 00024092 00 64 | d | .CONST 0x64 ; [0x3] -> 0x240f0 00024094 00 68 | h | .CONST 0x68 ; [0x4] -> 0x240f4 00024096 00 76 | v | .CONST 0x76 ; [0x5] -> 0x24102 00024098 00 8a | | .CONST 0x8a ; [0x6] -> 0x24116 0002409a 00 90 | | .CONST 0x90 ; [0x7] -> 0x2411c 0002409c 00 92 | | .CONST 0x92 ; [0x8] -> 0x2411e 0002409e 00 a8 | | .CONST 0xa8 ; [0x9] -> 0x24134 000240a0 00 b6 | | .CONST 0xb6 ; [0xa] -> 0x24142 000240a2 00 ce | | .CONST 0xce ; [0xb] -> 0x2415a 000240a4 00 e2 | | .CONST 0xe2 ; [0xc] -> 0x2416e 000240a6 00 f6 | | .CONST 0xf6 ; [0xd] -> 0x24182 000240a8 01 0c | | .CONST 0x10c ; [0xe] -> 0x24198 000240aa 01 0e | | .CONST 0x10e ; [0xf] -> 0x2419a 000240ac 01 28 | ( | .CONST 0x128 ; [0x10] -> 0x241b4 000240ae 01 3e | > | .CONST 0x13e ; [0x11] -> 0x241ca 000240b0 01 4c | L | .CONST 0x14c ; [0x12] -> 0x241d8 000240b2 01 4e | N | .CONST 0x14e ; [0x13] -> 0x241da 000240b4 01 50 | P | .CONST 0x150 ; [0x14] -> 0x241dc 000240b6 switch@0x24084[0x0]: 000240b6 7c 00 || | MOVEQ.L #0x00,D6 000240b8 2a 2e 00 08 |*. | MOVE.L (A6+0x8),D5 000240bc 60 00 01 48 |` H | BRA 0x24206 000240c0 switch@0x24084[0x1]: 000240c0 59 4f |YO | SUBQ.L #0x4,A7 000240c2 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7) 000240c6 2f 12 |/ | MOVE.L (A2),-(A7) 000240c8 4e ba f8 80 |N | JSR 0x2394a 000240cc 50 4f |PO | ADDQ.L #0x8,A7 000240ce 2c 1f |, | MOVE.L (A7)+,D6 000240d0 60 00 01 34 |` 4 | BRA 0x24206 000240d4 switch@0x24084[0x2]: 000240d4 2f 2e ff d8 |/. | MOVE.L (A6-0x28),-(A7) 000240d8 2f 06 |/ | MOVE.L D6,-(A7) 000240da 2f 06 |/ | MOVE.L D6,-(A7) 000240dc 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 000240e0 4e ba f8 e4 |N | JSR 0x239c6 000240e4 de fc 00 10 | | ADDA.W #0x10,A7 000240e8 60 00 01 78 |` x | BRA 0x24262 000240ec 60 00 01 18 |` | .XXX[0x4] 000240f0 switch@0x24084[0x3]: 000240f0 60 00 01 14 |` | BRA 0x24206 000240f4 switch@0x24084[0x4]: 000240f4 2f 2e ff d8 |/. | MOVE.L (A6-0x28),-(A7) 000240f8 2f 06 |/ | MOVE.L D6,-(A7) 000240fa 2f 05 |/ | MOVE.L D5,-(A7) 000240fc 60 de |` | BRA 0x240dc 000240fe 60 00 |` | .XXX[0x2] 00024100 01 06 | | .XXX[0x2] 00024102 switch@0x24084[0x5]: 00024102 59 4f |YO | SUBQ.L #0x4,A7 00024104 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7) 00024108 2f 12 |/ | MOVE.L (A2),-(A7) 0002410a 4e ba f8 3e |N > | JSR 0x2394a 0002410e 50 4f |PO | ADDQ.L #0x8,A7 00024110 2a 1f |* | MOVE.L (A7)+,D5 00024112 60 00 00 f2 |` | BRA 0x24206 00024116 switch@0x24084[0x6]: 00024116 7c 01 || | MOVEQ.L #0x01,D6 00024118 60 00 00 ec |` | BRA 0x24206 0002411c switch@0x24084[0x7]: 0002411c 60 e4 |` | BRA switch@0x24084[0x5] 0002411e switch@0x24084[0x8]: 0002411e 51 4f |QO | SUBQ.L #0x8,A7 00024120 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00024124 2f 06 |/ | MOVE.L D6,-(A7) 00024126 4e ba dc 2e |N . | JSR 0x21d56 0002412a 50 4f |PO | ADDQ.L #0x8,A7 0002412c 26 9f |& | MOVE.L (A7)+,(A3) 0002412e 28 9f |( | MOVE.L (A7)+,(A4) 00024130 60 00 00 d4 |` | BRA 0x24206 00024134 switch@0x24084[0x9]: 00024134 2d 52 ff e4 |-R | MOVE.L (A2),(A6-0x1c) 00024138 2d 6e ff f0 ff e8 |-n | MOVE.L (A6-0x10),(A6-0x18) 0002413e 60 00 00 c6 |` | BRA 0x24206 00024142 switch@0x24084[0xa]: 00024142 2f 11 |/ | MOVE.L (A1),-(A7) 00024144 2f 14 |/ | MOVE.L (A4),-(A7) 00024146 2f 13 |/ | MOVE.L (A3),-(A7) 00024148 2f 2e ff e8 |/. | MOVE.L (A6-0x18),-(A7) 0002414c 2f 2e ff e4 |/. | MOVE.L (A6-0x1c),-(A7) 00024150 4e ba fb 26 |N & | JSR 0x23c78 00024154 de c2 | | ADDA.W D2,A7 00024156 60 00 00 ae |` | BRA 0x24206 0002415a switch@0x24084[0xb]: 0002415a 2f 11 |/ | MOVE.L (A1),-(A7) 0002415c 2f 14 |/ | MOVE.L (A4),-(A7) 0002415e 2f 13 |/ | MOVE.L (A3),-(A7) 00024160 2f 2e ff e8 |/. | MOVE.L (A6-0x18),-(A7) 00024164 2f 2e ff e4 |/. | MOVE.L (A6-0x1c),-(A7) 00024168 4e ba fa 7a |N z | JSR 0x23be4 0002416c 60 e6 |` | BRA 0x24154 0002416e switch@0x24084[0xc]: 0002416e 2f 11 |/ | MOVE.L (A1),-(A7) 00024170 2f 14 |/ | MOVE.L (A4),-(A7) 00024172 2f 13 |/ | MOVE.L (A3),-(A7) 00024174 4e ba fb b8 |N | JSR 0x23d2e 00024178 de fc 00 0c | | ADDA.W #0xc,A7 0002417c 7e 01 |~ | MOVEQ.L #0x01,D7 0002417e 60 00 00 86 |` | BRA 0x24206 00024182 switch@0x24084[0xd]: 00024182 2f 11 |/ | MOVE.L (A1),-(A7) 00024184 2f 14 |/ | MOVE.L (A4),-(A7) 00024186 2f 13 |/ | MOVE.L (A3),-(A7) 00024188 2f 2e ff e8 |/. | MOVE.L (A6-0x18),-(A7) 0002418c 2f 2e ff e4 |/. | MOVE.L (A6-0x1c),-(A7) 00024190 4e ba fa 52 |N R | JSR 0x23be4 00024194 de c2 | | ADDA.W D2,A7 00024196 60 e4 |` | BRA 0x2417c 00024198 switch@0x24084[0xe]: 00024198 60 e2 |` | BRA 0x2417c 0002419a switch@0x24084[0xf]: 0002419a 2f 11 |/ | MOVE.L (A1),-(A7) 0002419c 51 4f |QO | SUBQ.L #0x8,A7 0002419e 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 000241a2 2f 06 |/ | MOVE.L D6,-(A7) 000241a4 4e ba db b0 |N | JSR 0x21d56 000241a8 50 4f |PO | ADDQ.L #0x8,A7 000241aa 4e ba fb 82 |N | JSR 0x23d2e 000241ae de fc 00 0c | | ADDA.W #0xc,A7 000241b2 60 52 |`R | BRA 0x24206 000241b4 switch@0x24084[0x10]: 000241b4 2f 11 |/ | MOVE.L (A1),-(A7) 000241b6 51 4f |QO | SUBQ.L #0x8,A7 000241b8 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 000241bc 2f 06 |/ | MOVE.L D6,-(A7) 000241be 4e ba db 96 |N | JSR 0x21d56 000241c2 50 4f |PO | ADDQ.L #0x8,A7 000241c4 4e ba fb ee |N | JSR 0x23db4 000241c8 60 ae |` | BRA 0x24178 000241ca switch@0x24084[0x11]: 000241ca 2f 11 |/ | MOVE.L (A1),-(A7) 000241cc 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7) 000241d0 2f 12 |/ | MOVE.L (A2),-(A7) 000241d2 4e ba fc 50 |N P | JSR 0x23e24 000241d6 60 d6 |` | BRA 0x241ae 000241d8 switch@0x24084[0x12]: 000241d8 60 2c |`, | BRA 0x24206 000241da switch@0x24084[0x13]: 000241da 60 a0 |` | BRA 0x2417c 000241dc switch@0x24084[0x14]: 000241dc 41 fa cc 44 |A D | LEA.L 0x20e22,A0 000241e0 70 05 |p | MOVEQ.L #0x05,D0 000241e2 2f 20 |/ | MOVE.L -(A0),-(A7) 000241e4 51 c8 ff fc |Q | DBF D0,0x241e2 000241e8 59 4f |YO | SUBQ.L #0x4,A7 000241ea 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000241ee 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000241f2 3f 3c 00 18 |?< | MOVE.W #0x18,-(A7) 000241f6 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000241fc 50 4f |PO | ADDQ.L #0x8,A7 000241fe 4e ba cf 0c |N | JSR 0x2110c 00024202 de fc 00 1c | | ADDA.W #0x1c,A7 00024206 4a 07 |J | TST.B D7 00024208 66 46 |fF | BNE 0x24250 0002420a 48 6e ff f4 |Hn | PEA.L (A6-0xc) 0002420e 48 52 |HR | PEA.L (A2) 00024210 4e ba fc 5a |N Z | JSR 0x23e6c 00024214 50 4f |PO | ADDQ.L #0x8,A7 00024216 20 2e ff cc | . | MOVE.L (A6-0x34),D0 0002421a 0c 80 00 00 00 13 | | CMPI.L #0x00000013,D0 00024220 63 02 |c | BLS 0x24224 00024222 4e 4f |NO | TRAP #15 00024224 28 00 |( | MOVE.L D0,D4 00024226 76 07 |v | MOVEQ.L #0x07,D3 00024228 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4 0002422e 41 fa ce 0e |A | LEA.L 0x2103e,A0 00024232 20 2e ff f4 | . | MOVE.L (A6-0xc),D0 00024236 0c 80 00 00 00 06 | | CMPI.L #0x00000006,D0 0002423c 63 02 |c | BLS 0x24240 0002423e 4e 4f |NO | TRAP #15 00024240 41 f0 48 00 |A H | LEA.L (A0+D4.L),A0 00024244 12 30 08 00 | 0 | MOVE.B (A0+D0.L),D1 00024248 48 81 |H | EXTB.W D1 0002424a 48 c1 |H | EXTW.L D1 0002424c 2d 41 ff cc |-A | MOVE.L D1,(A6-0x34) 00024250 4a 07 |J | TST.B D7 00024252 67 00 fe 24 |g $ | BEQ 0x24078 00024256 2f 2e ff d8 |/. | MOVE.L (A6-0x28),-(A7) 0002425a 2f 11 |/ | MOVE.L (A1),-(A7) 0002425c 4e ba fd 48 |N H | JSR 0x23fa6 00024260 50 4f |PO | ADDQ.L #0x8,A7 00024262 48 51 |HQ | PEA.L (A1) 00024264 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 0002426a 58 4f |XO | ADDQ.L #0x4,A7 0002426c 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00024270 4e 5e |N^ | UNLK A6 00024272 4e 75 |Nu | RTS 00024274 ; -------------------------------------------------------------------------------------- 00024274 ; OMSI PASCAL Function 00024274 ; <LVAR 0x014 4(rw)> 00024274 ; <LVAR 0x010 4(r)> 00024274 ; <LVAR 0x00c 4(r)> 00024274 ; <LVAR 0x008 4(r)> 00024274 ; <LVAR -0x008 4(rw)> 00024274 ; <LVAR -0x00c 4(rw)> 00024274 ; <LVAR -0x018 4(w)> 00024274 ; -------------------------------------------------------------------------------------- 00024274 4e 56 ff 96 |NV | LINK.W A6,#0xff96 00024278 bf d5 | | CMPA.L (A5),A7 0002427a 62 06 |b | BHI 0x24282 0002427c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024280 4e 76 |Nv | TRAPV 00024282 de fc 00 52 | R | ADDA.W #0x52,A7 00024286 48 e7 e7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7) 0002428a 43 ee ff f8 |C | LEA.L (A6-0x8),A1 0002428e 45 ee 00 10 |E | LEA.L (A6+0x10),A2 00024292 47 ee 00 0c |G | LEA.L (A6+0xc),A3 00024296 49 ee ff f4 |I | LEA.L (A6-0xc),A4 0002429a 74 0c |t | MOVEQ.L #0x0c,D2 0002429c 42 ae 00 14 |B | CLR.L (A6+0x14) 000242a0 59 4f |YO | SUBQ.L #0x4,A7 000242a2 2f 12 |/ | MOVE.L (A2),-(A7) 000242a4 2f 13 |/ | MOVE.L (A3),-(A7) 000242a6 4e ba da 76 |N v | JSR 0x21d1e 000242aa 50 4f |PO | ADDQ.L #0x8,A7 000242ac 28 9f |( | MOVE.L (A7)+,(A4) 000242ae 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 000242b2 30 10 |0 | MOVE.W (A0),D0 000242b4 48 c0 |H | EXTW.L D0 000242b6 52 80 |R | ADDQ.L #0x1,D0 000242b8 22 80 |" | MOVE.L D0,(A1) 000242ba 44 80 |D | NEG.L D0 000242bc d0 94 | | ADD.L (A4),D0 000242be 52 80 |R | ADDQ.L #0x1,D0 000242c0 2f 00 |/ | MOVE.L D0,-(A7) 000242c2 70 01 |p | MOVEQ.L #0x01,D0 000242c4 b0 97 | | CMP.L (A7),D0 000242c6 6e 00 00 9a |n | BGT 0x24362 000242ca 2d 40 ff e8 |-@ | MOVE.L D0,(A6-0x18) 000242ce 2f 00 |/ | MOVE.L D0,-(A7) 000242d0 7c 00 || | MOVEQ.L #0x00,D6 000242d2 2f 11 |/ | MOVE.L (A1),-(A7) 000242d4 7a 01 |z | MOVEQ.L #0x01,D5 000242d6 ba 97 | | CMP.L (A7),D5 000242d8 6e 48 |nH | BGT 0x24322 000242da 0c 85 00 00 00 01 | | CMPI.L #0x00000001,D5 000242e0 66 04 |f | BNE 0x242e6 000242e2 7e 2f |~/ | MOVEQ.L #0x2f,D7 000242e4 60 18 |` | BRA 0x242fe 000242e6 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 000242ea 20 05 | | MOVE.L D5,D0 000242ec 53 80 |S | SUBQ.L #0x1,D0 000242ee 53 80 |S | SUBQ.L #0x1,D0 000242f0 0c 80 00 00 00 7d | } | CMPI.L #0x0000007d,D0 000242f6 63 02 |c | BLS 0x242fa 000242f8 4e 4f |NO | TRAP #15 000242fa 1e 30 08 02 | 0 | MOVE.B (A0+D0.L+#0x2),D7 000242fe 55 4f |UO | SUBQ.L #0x2,A7 00024300 2f 12 |/ | MOVE.L (A2),-(A7) 00024302 2f 13 |/ | MOVE.L (A3),-(A7) 00024304 20 2f 00 0e | / | MOVE.L (A7+0xe),D0 00024308 d0 85 | | ADD.L D5,D0 0002430a 53 80 |S | SUBQ.L #0x1,D0 0002430c 2f 00 |/ | MOVE.L D0,-(A7) 0002430e 4e ba f5 fa |N | JSR 0x2390a 00024312 de c2 | | ADDA.W D2,A7 00024314 be 1f | | CMP.B (A7)+,D7 00024316 67 04 |g | BEQ 0x2431c 00024318 58 4f |XO | ADDQ.L #0x4,A7 0002431a 60 08 |` | BRA 0x24324 0002431c 2c 05 |, | MOVE.L D5,D6 0002431e 52 85 |R | ADDQ.L #0x1,D5 00024320 68 b4 |h | BVC 0x242d6 00024322 58 4f |XO | ADDQ.L #0x4,A7 00024324 bc 91 | | CMP.L (A1),D6 00024326 66 32 |f2 | BNE 0x2435a 00024328 20 17 | | MOVE.L (A7),D0 0002432a 22 00 |" | MOVE.L D0,D1 0002432c d2 91 | | ADD.L (A1),D1 0002432e b2 94 | | CMP.L (A4),D1 00024330 6c 26 |l& | BGE 0x24358 00024332 55 4f |UO | SUBQ.L #0x2,A7 00024334 2f 12 |/ | MOVE.L (A2),-(A7) 00024336 2f 13 |/ | MOVE.L (A3),-(A7) 00024338 2f 01 |/ | MOVE.L D1,-(A7) 0002433a 4e ba f5 ce |N | JSR 0x2390a 0002433e de c2 | | ADDA.W D2,A7 00024340 1e 1f | | MOVE.B (A7)+,D7 00024342 0c 07 00 2f | / | CMPI.B #0x2f,D7 00024346 67 06 |g | BEQ 0x2434e 00024348 0c 07 00 3d | = | CMPI.B #0x3d,D7 0002434c 66 08 |f | BNE 0x24356 0002434e 2d 40 00 14 |-@ | MOVE.L D0,(A6+0x14) 00024352 50 4f |PO | ADDQ.L #0x8,A7 00024354 60 0e |` | BRA 0x24364 00024356 60 02 |` | BRA 0x2435a 00024358 60 f4 |` | BRA 0x2434e 0002435a 20 1f | | MOVE.L (A7)+,D0 0002435c 52 80 |R | ADDQ.L #0x1,D0 0002435e 68 00 ff 64 |h d | BVC 0x242c4 00024362 58 4f |XO | ADDQ.L #0x4,A7 00024364 4c df 1f e7 |L | MOVEM.L (A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3+A4 00024368 4e 5e |N^ | UNLK A6 0002436a 4e 75 |Nu | RTS 0002436c ; -------------------------------------------------------------------------------------- 0002436c ; OMSI PASCAL Function 0002436c ; <LVAR 0x018 4(r)> 0002436c ; <LVAR 0x014 4(r)> 0002436c ; <LVAR 0x010 4(r)> 0002436c ; <LVAR 0x00c 4(r)> 0002436c ; <LVAR 0x008 4(r)> 0002436c ; <LVAR -0x008 4(rw)> 0002436c ; <LVAR -0x014 4(rw)> 0002436c ; <LVAR -0x018 4(rw)> 0002436c ; <LVAR -0x01c 4(rw)> 0002436c ; -------------------------------------------------------------------------------------- 0002436c 4e 56 ff 8e |NV | LINK.W A6,#0xff8e 00024370 bf d5 | | CMPA.L (A5),A7 00024372 62 06 |b | BHI 0x2437a 00024374 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024378 4e 76 |Nv | TRAPV 0002437a de fc 00 56 | V | ADDA.W #0x56,A7 0002437e 48 e7 e7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7) 00024382 45 ee ff e4 |E | LEA.L (A6-0x1c),A2 00024386 47 ee ff e8 |G | LEA.L (A6-0x18),A3 0002438a 49 ee ff f8 |I | LEA.L (A6-0x8),A4 0002438e 72 0c |r | MOVEQ.L #0x0c,D1 00024390 74 01 |t | MOVEQ.L #0x01,D2 00024392 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00024396 42 10 |B | CLR.B (A0) 00024398 22 6e 00 0c |"n | MOVEA.L (A6+0xc),A1 0002439c 22 82 |" | MOVE.L D2,(A1) 0002439e 51 4f |QO | SUBQ.L #0x8,A7 000243a0 2f 2e 00 18 |/. | MOVE.L (A6+0x18),-(A7) 000243a4 2f 2e 00 14 |/. | MOVE.L (A6+0x14),-(A7) 000243a8 4e ba d9 ac |N | JSR 0x21d56 000243ac 50 4f |PO | ADDQ.L #0x8,A7 000243ae 24 9f |$ | MOVE.L (A7)+,(A2) 000243b0 26 9f |& | MOVE.L (A7)+,(A3) 000243b2 4a 92 |J | TST.L (A2) 000243b4 67 00 00 96 |g | BEQ 0x2444c 000243b8 59 4f |YO | SUBQ.L #0x4,A7 000243ba 2f 13 |/ | MOVE.L (A3),-(A7) 000243bc 2f 12 |/ | MOVE.L (A2),-(A7) 000243be 2f 2e 00 10 |/. | MOVE.L (A6+0x10),-(A7) 000243c2 4e ba fe b0 |N | JSR 0x24274 000243c6 de c1 | | ADDA.W D1,A7 000243c8 2d 5f ff ec |-_ | MOVE.L (A7)+,(A6-0x14) 000243cc 67 7e |g~ | BEQ 0x2444c 000243ce 10 82 | | MOVE.B D2,(A0) 000243d0 48 51 |HQ | PEA.L (A1) 000243d2 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 000243d8 2f 13 |/ | MOVE.L (A3),-(A7) 000243da 2f 12 |/ | MOVE.L (A2),-(A7) 000243dc 4e ba d9 40 |N @ | JSR 0x21d1e 000243e0 50 4f |PO | ADDQ.L #0x8,A7 000243e2 28 9f |( | MOVE.L (A7)+,(A4) 000243e4 20 2e ff ec | . | MOVE.L (A6-0x14),D0 000243e8 52 80 |R | ADDQ.L #0x1,D0 000243ea 2f 14 |/ | MOVE.L (A4),-(A7) 000243ec 2a 00 |* | MOVE.L D0,D5 000243ee ba 97 | | CMP.L (A7),D5 000243f0 6e 58 |nX | BGT 0x2444a 000243f2 55 4f |UO | SUBQ.L #0x2,A7 000243f4 2f 13 |/ | MOVE.L (A3),-(A7) 000243f6 2f 12 |/ | MOVE.L (A2),-(A7) 000243f8 2f 05 |/ | MOVE.L D5,-(A7) 000243fa 4e ba f5 0e |N | JSR 0x2390a 000243fe de c1 | | ADDA.W D1,A7 00024400 10 1f | | MOVE.B (A7)+,D0 00024402 0c 00 00 3d | = | CMPI.B #0x3d,D0 00024406 66 3e |f> | BNE 0x24446 00024408 20 05 | | MOVE.L D5,D0 0002440a 52 80 |R | ADDQ.L #0x1,D0 0002440c 2f 14 |/ | MOVE.L (A4),-(A7) 0002440e 2e 00 |. | MOVE.L D0,D7 00024410 be 97 | | CMP.L (A7),D7 00024412 6e 2e |n. | BGT 0x24442 00024414 55 4f |UO | SUBQ.L #0x2,A7 00024416 2f 13 |/ | MOVE.L (A3),-(A7) 00024418 2f 12 |/ | MOVE.L (A2),-(A7) 0002441a 2f 07 |/ | MOVE.L D7,-(A7) 0002441c 4e ba f4 ec |N | JSR 0x2390a 00024420 de c1 | | ADDA.W D1,A7 00024422 1c 1f | | MOVE.B (A7)+,D6 00024424 0c 06 00 2f | / | CMPI.B #0x2f,D6 00024428 66 04 |f | BNE 0x2442e 0002442a 50 4f |PO | ADDQ.L #0x8,A7 0002442c 60 1e |` | BRA 0x2444c 0002442e 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 00024432 2f 10 |/ | MOVE.L (A0),-(A7) 00024434 1f 06 | | MOVE.B D6,-(A7) 00024436 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 0002443c 5c 4f |\O | ADDQ.L #0x6,A7 0002443e 52 87 |R | ADDQ.L #0x1,D7 00024440 68 ce |h | BVC 0x24410 00024442 50 4f |PO | ADDQ.L #0x8,A7 00024444 60 06 |` | BRA 0x2444c 00024446 52 85 |R | ADDQ.L #0x1,D5 00024448 68 a4 |h | BVC 0x243ee 0002444a 58 4f |XO | ADDQ.L #0x4,A7 0002444c 4c df 1f e7 |L | MOVEM.L (A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3+A4 00024450 4e 5e |N^ | UNLK A6 00024452 4e 75 |Nu | RTS 00024454 ; -------------------------------------------------------------------------------------- 00024454 ; OMSI PASCAL Function 00024454 ; <LVAR 0x00c @ 4(r)> 00024454 ; <LVAR 0x008 4(r)> 00024454 ; <LVAR -0x010 @ 1(r)> 00024454 ; -------------------------------------------------------------------------------------- 00024454 4e 56 ff c0 |NV | LINK.W A6,#0xffc0 00024458 bf d5 | | CMPA.L (A5),A7 0002445a 62 06 |b | BHI 0x24462 0002445c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024460 4e 76 |Nv | TRAPV 00024462 de fc 00 30 | 0 | ADDA.W #0x30,A7 00024466 48 e7 87 f0 |H | MOVEM.L A3+A2+A1+A0+D7+D6+D5+D0,-(A7) 0002446a 43 f9 00 02 8c 1e |C | LEA.L 0x28c1e,A1 00024470 45 ee 00 08 |E | LEA.L (A6+0x8),A2 00024474 47 ee 00 0c |G | LEA.L (A6+0xc),A3 00024478 2f 13 |/ | MOVE.L (A3),-(A7) 0002447a 2f 12 |/ | MOVE.L (A2),-(A7) 0002447c 48 6e ff f0 |Hn | PEA.L (A6-0x10) 00024480 4e b9 00 02 09 9e |N | JSR 0x2099e 00024486 de fc 00 0c | | ADDA.W #0xc,A7 0002448a 4a 2e ff f0 |J. | TST.B (A6-0x10) 0002448e 66 50 |fP | BNE 0x244e0 00024490 2e 11 |. | MOVE.L (A1),D7 00024492 59 4f |YO | SUBQ.L #0x4,A7 00024494 2f 12 |/ | MOVE.L (A2),-(A7) 00024496 4e ba d0 80 |N | JSR 0x21518 0002449a 58 4f |XO | ADDQ.L #0x4,A7 0002449c 2c 1f |, | MOVE.L (A7)+,D6 0002449e 2f 13 |/ | MOVE.L (A3),-(A7) 000244a0 2f 12 |/ | MOVE.L (A2),-(A7) 000244a2 4e ba f3 2a |N * | JSR 0x237ce 000244a6 50 4f |PO | ADDQ.L #0x8,A7 000244a8 2a 11 |* | MOVE.L (A1),D5 000244aa 20 07 | | MOVE.L D7,D0 000244ac 53 80 |S | SUBQ.L #0x1,D0 000244ae 0c 80 00 00 1f ff | | CMPI.L #0x00001fff,D0 000244b4 63 02 |c | BLS 0x244b8 000244b6 4e 4f |NO | TRAP #15 000244b8 41 f9 00 02 6c 16 |A l | LEA.L 0x26c16,A0 000244be 10 30 08 08 | 0 | MOVE.B (A0+D0.L+#0x8),D0 000244c2 0c 00 00 25 | % | CMPI.B #0x25,D0 000244c6 66 0c |f | BNE 0x244d4 000244c8 22 87 |" | MOVE.L D7,(A1) 000244ca 2f 12 |/ | MOVE.L (A2),-(A7) 000244cc 2f 06 |/ | MOVE.L D6,-(A7) 000244ce 4e ba fb 5c |N \ | JSR 0x2402c 000244d2 50 4f |PO | ADDQ.L #0x8,A7 000244d4 52 87 |R | ADDQ.L #0x1,D7 000244d6 be b9 00 02 8c 22 | " | CMP.L 0x28c22,D7 000244dc 6f cc |o | BLE 0x244aa 000244de 22 85 |" | MOVE.L D5,(A1) 000244e0 48 53 |HS | PEA.L (A3) 000244e2 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000244e8 58 4f |XO | ADDQ.L #0x4,A7 000244ea 4c df 0f e1 |L | MOVEM.L (A7)+,D0+D5+D6+D7+A0+A1+A2+A3 000244ee 4e 5e |N^ | UNLK A6 000244f0 4e 75 |Nu | RTS 000244f2 ; -------------------------------------------------------------------------------------- 000244f2 ; OMSI PASCAL Function 000244f2 ; <LVAR -0x006 @ 4(r)> 000244f2 ; <LVAR -0x00a @ 4(rw)> 000244f2 ; <LVAR -0x00b 1(w)> 000244f2 ; <LVAR -0x00c @ 1(r)> 000244f2 ; -------------------------------------------------------------------------------------- 000244f2 4e 56 ff 94 |NV | LINK.W A6,#0xff94 000244f6 bf d5 | | CMPA.L (A5),A7 000244f8 62 06 |b | BHI 0x24500 000244fa 44 fc 00 02 |D | MOVE.W #0x2,CCR 000244fe 4e 76 |Nv | TRAPV 00024500 de fc 00 54 | T | ADDA.W #0x54,A7 00024504 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00024508 45 ee ff fa |E | LEA.L (A6-0x6),A2 0002450c 47 f9 00 02 8c 1e |G | LEA.L 0x28c1e,A3 00024512 49 ee ff f6 |I | LEA.L (A6-0xa),A4 00024516 2e 13 |. | MOVE.L (A3),D7 00024518 48 52 |HR | PEA.L (A2) 0002451a 48 6e ff f4 |Hn | PEA.L (A6-0xc) 0002451e 4e ba cf 4c |N L | JSR 0x2146c 00024522 50 4f |PO | ADDQ.L #0x8,A7 00024524 2c 13 |, | MOVE.L (A3),D6 00024526 59 4f |YO | SUBQ.L #0x4,A7 00024528 2f 12 |/ | MOVE.L (A2),-(A7) 0002452a 4e ba cf ec |N | JSR 0x21518 0002452e 58 4f |XO | ADDQ.L #0x4,A7 00024530 20 1f | | MOVE.L (A7)+,D0 00024532 0c 80 ff ff ff ff | | CMPI.L #0xffffffff,D0 00024538 67 00 02 ac |g | BEQ 0x247e6 0002453c 59 4f |YO | SUBQ.L #0x4,A7 0002453e 2f 12 |/ | MOVE.L (A2),-(A7) 00024540 48 78 00 00 |Hx | PEA.L 0x0 00024544 4e ba d8 ee |N | JSR 0x21e34 00024548 50 4f |PO | ADDQ.L #0x8,A7 0002454a 28 97 |( | MOVE.L (A7),(A4) 0002454c 54 4f |TO | ADDQ.L #0x2,A7 0002454e 2f 14 |/ | MOVE.L (A4),-(A7) 00024550 4e ba f1 c4 |N | JSR 0x23716 00024554 58 4f |XO | ADDQ.L #0x4,A7 00024556 10 1f | | MOVE.B (A7)+,D0 00024558 48 80 |H | EXTB.W D0 0002455a 41 bc 00 2b |A + | CHK.W #0x2b,D0 0002455e 1d 40 ff f5 | @ | MOVE.B D0,(A6-0xb) 00024562 4a 00 |J | TST.B D0 00024564 66 0e |f | BNE 0x24574 00024566 2f 14 |/ | MOVE.L (A4),-(A7) 00024568 2f 12 |/ | MOVE.L (A2),-(A7) 0002456a 4e ba fe e8 |N | JSR 0x24454 0002456e 50 4f |PO | ADDQ.L #0x8,A7 00024570 60 00 02 6c |` l | BRA 0x247de 00024574 48 54 |HT | PEA.L (A4) 00024576 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 0002457c 58 4f |XO | ADDQ.L #0x4,A7 0002457e 12 00 | | MOVE.B D0,D1 00024580 48 81 |H | EXTB.W D1 00024582 43 bc 00 2b |C + | CHK.W #0x2b,D1 00024586 41 fa ca 86 |A | LEA.L 0x2100e,A0 0002458a 30 01 |0 | MOVE.W D1,D0 0002458c 48 c0 |H | EXTW.L D0 0002458e 24 00 |$ | MOVE.L D0,D2 00024590 e2 9a | | ROR.L #0x1,D2 00024592 d0 c2 | | ADDA.W D2,A0 00024594 48 42 |HB | SWAP.W D2 00024596 e7 5a | Z | ROL.W #0x3,D2 00024598 42 83 |B | CLR.L D3 0002459a 16 10 | | MOVE.B (A0),D3 0002459c e5 2b | + | LSL.B D2,D3 0002459e e8 0b | | LSR.B #0x4,D3 000245a0 2a 03 |* | MOVE.L D3,D5 000245a2 0c 85 00 00 00 0f | | CMPI.L #0x0000000f,D5 000245a8 67 2c |g, | BEQ 0x245d6 000245aa 28 00 |( | MOVE.L D0,D4 000245ac 76 0a |v | MOVEQ.L #0x0a,D3 000245ae 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4 000245b4 41 fa c8 8a |A | LEA.L COMMAND_TABLE_20e40,A0 000245b8 9e fc 00 0a | | SUBA.W #0xa,A7 000245bc 22 4f |"O | MOVEA.L A7,A1 000245be 41 f0 40 00 |A @ | LEA.L (A0+D4.W),A0 000245c2 70 09 |p | MOVEQ.L #0x09,D0 000245c4 12 d8 | | MOVE.B (A0)+,(A1)+ 000245c6 51 c8 ff fc |Q | DBF D0,0x245c4 000245ca 2f 12 |/ | MOVE.L (A2),-(A7) 000245cc 2f 05 |/ | MOVE.L D5,-(A7) 000245ce 4e ba cf 7e |N ~ | JSR 0x2154e 000245d2 de fc 00 12 | | ADDA.W #0x12,A7 000245d6 53 41 |SA | SUBQ.W #0x1,D1 000245d8 0c 41 00 2a | A * | CMPI.W #0x002a,D1 000245dc 63 02 |c | BLS 0x245e0 000245de 4e 4e |NN | TRAP #14 000245e0 d2 41 | A | ADD.W D1,D1 000245e2 32 3b 10 06 4e fb 10 02 |2; N | SWITCH D1.W 000245ea 00 56 | V | .CONST 0x56 ; [0x0] -> 0x24640 000245ec 00 62 | b | .CONST 0x62 ; [0x1] -> 0x2464c 000245ee 00 74 | t | .CONST 0x74 ; [0x2] -> 0x2465e 000245f0 00 82 | | .CONST 0x82 ; [0x3] -> 0x2466c 000245f2 01 e6 | | .CONST 0x1e6 ; [0x4] -> 0x247d0 000245f4 00 8a | | .CONST 0x8a ; [0x5] -> 0x24674 000245f6 00 8e | | .CONST 0x8e ; [0x6] -> 0x24678 000245f8 00 96 | | .CONST 0x96 ; [0x7] -> 0x24680 000245fa 00 9e | | .CONST 0x9e ; [0x8] -> 0x24688 000245fc 00 a6 | | .CONST 0xa6 ; [0x9] -> 0x24690 000245fe 00 ae | | .CONST 0xae ; [0xa] -> 0x24698 00024600 00 b6 | | .CONST 0xb6 ; [0xb] -> 0x246a0 00024602 00 be | | .CONST 0xbe ; [0xc] -> 0x246a8 00024604 00 c6 | | .CONST 0xc6 ; [0xd] -> 0x246b0 00024606 00 ce | | .CONST 0xce ; [0xe] -> 0x246b8 00024608 00 d6 | | .CONST 0xd6 ; [0xf] -> 0x246c0 0002460a 00 e0 | | .CONST 0xe0 ; [0x10] -> 0x246ca 0002460c 00 ea | | .CONST 0xea ; [0x11] -> 0x246d4 0002460e 00 f4 | | .CONST 0xf4 ; [0x12] -> 0x246de 00024610 00 fe | | .CONST 0xfe ; [0x13] -> 0x246e8 00024612 01 08 | | .CONST 0x108 ; [0x14] -> 0x246f2 00024614 01 12 | | .CONST 0x112 ; [0x15] -> 0x246fc 00024616 01 1c | | .CONST 0x11c ; [0x16] -> 0x24706 00024618 01 26 | & | .CONST 0x126 ; [0x17] -> 0x24710 0002461a 01 30 | 0 | .CONST 0x130 ; [0x18] -> 0x2471a 0002461c 01 3a | : | .CONST 0x13a ; [0x19] -> 0x24724 0002461e 01 44 | D | .CONST 0x144 ; [0x1a] -> 0x2472e 00024620 01 4e | N | .CONST 0x14e ; [0x1b] -> 0x24738 00024622 01 58 | X | .CONST 0x158 ; [0x1c] -> 0x24742 00024624 01 62 | b | .CONST 0x162 ; [0x1d] -> 0x2474c 00024626 01 6c | l | .CONST 0x16c ; [0x1e] -> 0x24756 00024628 01 76 | v | .CONST 0x176 ; [0x1f] -> 0x24760 0002462a 01 80 | | .CONST 0x180 ; [0x20] -> 0x2476a 0002462c 01 8a | | .CONST 0x18a ; [0x21] -> 0x24774 0002462e 01 94 | | .CONST 0x194 ; [0x22] -> 0x2477e 00024630 01 9e | | .CONST 0x19e ; [0x23] -> 0x24788 00024632 01 a8 | | .CONST 0x1a8 ; [0x24] -> 0x24792 00024634 01 b2 | | .CONST 0x1b2 ; [0x25] -> 0x2479c 00024636 01 b8 | | .CONST 0x1b8 ; [0x26] -> 0x247a2 00024638 01 c2 | | .CONST 0x1c2 ; [0x27] -> 0x247ac 0002463a 01 cc | | .CONST 0x1cc ; [0x28] -> 0x247b6 0002463c 01 d6 | | .CONST 0x1d6 ; [0x29] -> 0x247c0 0002463e 01 dc | | .CONST 0x1dc ; [0x2a] -> 0x247c6 00024640 switch@0x245e2[0x0]: 00024640 2f 12 |/ | MOVE.L (A2),-(A7) 00024642 4e ba d9 78 |N x | JSR 0x21fbc 00024646 58 4f |XO | ADDQ.L #0x4,A7 00024648 60 00 01 94 |` | BRA 0x247de 0002464c switch@0x245e2[0x1]: 0002464c 42 27 |B' | CLR.B -(A7) 0002464e 48 78 00 01 |Hx | PEA.L 0x1 00024652 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00024658 5c 4f |\O | ADDQ.L #0x6,A7 0002465a 60 00 01 82 |` | BRA 0x247de 0002465e switch@0x245e2[0x2]: 0002465e 59 4f |YO | SUBQ.L #0x4,A7 00024660 4e b9 00 01 02 ac |N | JSR FSCALL_102ac 00024666 4e ba d9 2a |N * | JSR 0x21f92 0002466a 60 da |` | BRA 0x24646 0002466c switch@0x245e2[0x3]: 0002466c 2f 12 |/ | MOVE.L (A2),-(A7) 0002466e 4e ba db 26 |N & | JSR 0x22196 00024672 60 d2 |` | BRA 0x24646 00024674 switch@0x245e2[0x5]: 00024674 60 00 01 68 |` h | BRA 0x247de 00024678 switch@0x245e2[0x6]: 00024678 2f 12 |/ | MOVE.L (A2),-(A7) 0002467a 4e ba de 40 |N @ | JSR 0x224bc 0002467e 60 c6 |` | BRA 0x24646 00024680 switch@0x245e2[0x7]: 00024680 2f 12 |/ | MOVE.L (A2),-(A7) 00024682 4e ba df a4 |N | JSR 0x22628 00024686 60 be |` | BRA 0x24646 00024688 switch@0x245e2[0x8]: 00024688 2f 12 |/ | MOVE.L (A2),-(A7) 0002468a 4e ba e0 8a |N | JSR 0x22716 0002468e 60 b6 |` | BRA 0x24646 00024690 switch@0x245e2[0x9]: 00024690 2f 12 |/ | MOVE.L (A2),-(A7) 00024692 4e ba e4 76 |N v | JSR 0x22b0a 00024696 60 ae |` | BRA 0x24646 00024698 switch@0x245e2[0xa]: 00024698 2f 12 |/ | MOVE.L (A2),-(A7) 0002469a 4e ba e4 e6 |N | JSR 0x22b82 0002469e 60 a6 |` | BRA 0x24646 000246a0 switch@0x245e2[0xb]: 000246a0 2f 12 |/ | MOVE.L (A2),-(A7) 000246a2 4e ba e5 56 |N V | JSR 0x22bfa 000246a6 60 9e |` | BRA 0x24646 000246a8 switch@0x245e2[0xc]: 000246a8 2f 12 |/ | MOVE.L (A2),-(A7) 000246aa 4e ba e5 7a |N z | JSR 0x22c26 000246ae 60 96 |` | BRA 0x24646 000246b0 switch@0x245e2[0xd]: 000246b0 2f 12 |/ | MOVE.L (A2),-(A7) 000246b2 4e ba e6 72 |N r | JSR 0x22d26 000246b6 60 8e |` | BRA 0x24646 000246b8 switch@0x245e2[0xe]: 000246b8 2f 12 |/ | MOVE.L (A2),-(A7) 000246ba 4e ba e7 50 |N P | JSR 0x22e0c 000246be 60 86 |` | BRA 0x24646 000246c0 switch@0x245e2[0xf]: 000246c0 2f 12 |/ | MOVE.L (A2),-(A7) 000246c2 4e ba e7 74 |N t | JSR 0x22e38 000246c6 60 00 ff 7e |` ~ | BRA 0x24646 000246ca switch@0x245e2[0x10]: 000246ca 2f 12 |/ | MOVE.L (A2),-(A7) 000246cc 4e ba e7 b6 |N | JSR 0x22e84 000246d0 60 00 ff 74 |` t | BRA 0x24646 000246d4 switch@0x245e2[0x11]: 000246d4 2f 12 |/ | MOVE.L (A2),-(A7) 000246d6 4e ba e7 f8 |N | JSR 0x22ed0 000246da 60 00 ff 6a |` j | BRA 0x24646 000246de switch@0x245e2[0x12]: 000246de 2f 12 |/ | MOVE.L (A2),-(A7) 000246e0 4e ba e8 3a |N : | JSR 0x22f1c 000246e4 60 00 ff 60 |` ` | BRA 0x24646 000246e8 switch@0x245e2[0x13]: 000246e8 2f 12 |/ | MOVE.L (A2),-(A7) 000246ea 4e ba e8 7c |N | | JSR 0x22f68 000246ee 60 00 ff 56 |` V | BRA 0x24646 000246f2 switch@0x245e2[0x14]: 000246f2 2f 12 |/ | MOVE.L (A2),-(A7) 000246f4 4e ba e8 be |N | JSR 0x22fb4 000246f8 60 00 ff 4c |` L | BRA 0x24646 000246fc switch@0x245e2[0x15]: 000246fc 2f 12 |/ | MOVE.L (A2),-(A7) 000246fe 4e ba e9 00 |N | JSR 0x23000 00024702 60 00 ff 42 |` B | BRA 0x24646 00024706 switch@0x245e2[0x16]: 00024706 2f 12 |/ | MOVE.L (A2),-(A7) 00024708 4e ba e9 40 |N @ | JSR 0x2304a 0002470c 60 00 ff 38 |` 8 | BRA 0x24646 00024710 switch@0x245e2[0x17]: 00024710 2f 12 |/ | MOVE.L (A2),-(A7) 00024712 4e ba e9 80 |N | JSR 0x23094 00024716 60 00 ff 2e |` . | BRA 0x24646 0002471a switch@0x245e2[0x18]: 0002471a 2f 12 |/ | MOVE.L (A2),-(A7) 0002471c 4e ba e9 c0 |N | JSR 0x230de 00024720 60 00 ff 24 |` $ | BRA 0x24646 00024724 switch@0x245e2[0x19]: 00024724 2f 12 |/ | MOVE.L (A2),-(A7) 00024726 4e ba ea 00 |N | JSR 0x23128 0002472a 60 00 ff 1a |` | BRA 0x24646 0002472e switch@0x245e2[0x1a]: 0002472e 2f 12 |/ | MOVE.L (A2),-(A7) 00024730 4e ba ea 40 |N @ | JSR 0x23172 00024734 60 00 ff 10 |` | BRA 0x24646 00024738 switch@0x245e2[0x1b]: 00024738 2f 12 |/ | MOVE.L (A2),-(A7) 0002473a 4e ba ea 80 |N | JSR 0x231bc 0002473e 60 00 ff 06 |` | BRA 0x24646 00024742 switch@0x245e2[0x1c]: 00024742 2f 12 |/ | MOVE.L (A2),-(A7) 00024744 4e ba ea c0 |N | JSR 0x23206 00024748 60 00 fe fc |` | BRA 0x24646 0002474c switch@0x245e2[0x1d]: 0002474c 2f 12 |/ | MOVE.L (A2),-(A7) 0002474e 4e ba eb 00 |N | JSR 0x23250 00024752 60 00 fe f2 |` | BRA 0x24646 00024756 switch@0x245e2[0x1e]: 00024756 2f 12 |/ | MOVE.L (A2),-(A7) 00024758 4e ba eb 3a |N : | JSR 0x23294 0002475c 60 00 fe e8 |` | BRA 0x24646 00024760 switch@0x245e2[0x1f]: 00024760 2f 12 |/ | MOVE.L (A2),-(A7) 00024762 4e ba eb 76 |N v | JSR 0x232da 00024766 60 00 fe de |` | BRA 0x24646 0002476a switch@0x245e2[0x20]: 0002476a 2f 12 |/ | MOVE.L (A2),-(A7) 0002476c 4e ba eb a2 |N | JSR 0x23310 00024770 60 00 fe d4 |` | BRA 0x24646 00024774 switch@0x245e2[0x21]: 00024774 2f 12 |/ | MOVE.L (A2),-(A7) 00024776 4e ba ec 28 |N ( | JSR 0x233a0 0002477a 60 00 fe ca |` | BRA 0x24646 0002477e switch@0x245e2[0x22]: 0002477e 2f 12 |/ | MOVE.L (A2),-(A7) 00024780 4e ba ec 90 |N | JSR 0x23412 00024784 60 00 fe c0 |` | BRA 0x24646 00024788 switch@0x245e2[0x23]: 00024788 2f 12 |/ | MOVE.L (A2),-(A7) 0002478a 4e ba df ec |N | JSR 0x22778 0002478e 60 00 fe b6 |` | BRA 0x24646 00024792 switch@0x245e2[0x24]: 00024792 2f 12 |/ | MOVE.L (A2),-(A7) 00024794 4e ba e0 4c |N L | JSR 0x227e2 00024798 60 00 fe ac |` | BRA 0x24646 0002479c switch@0x245e2[0x25]: 0002479c 4e ba e0 16 |N | JSR 0x227b4 000247a0 60 3c |`< | BRA 0x247de 000247a2 switch@0x245e2[0x26]: 000247a2 2f 12 |/ | MOVE.L (A2),-(A7) 000247a4 4e ba ec de |N | JSR 0x23484 000247a8 60 00 fe 9c |` | BRA 0x24646 000247ac switch@0x245e2[0x27]: 000247ac 2f 12 |/ | MOVE.L (A2),-(A7) 000247ae 4e ba ed 56 |N V | JSR 0x23506 000247b2 60 00 fe 92 |` | BRA 0x24646 000247b6 switch@0x245e2[0x28]: 000247b6 2f 12 |/ | MOVE.L (A2),-(A7) 000247b8 4e ba ed cc |N | JSR 0x23586 000247bc 60 00 fe 88 |` | BRA 0x24646 000247c0 switch@0x245e2[0x29]: 000247c0 4e ba ee 88 |N | JSR 0x2364a 000247c4 60 18 |` | BRA 0x247de 000247c6 switch@0x245e2[0x2a]: 000247c6 2f 12 |/ | MOVE.L (A2),-(A7) 000247c8 4e ba ee a0 |N | JSR 0x2366a 000247cc 60 00 fe 78 |` x | BRA 0x24646 000247d0 switch@0x245e2[0x4]: 000247d0 2e 6d 00 08 |.m | MOVEA.L (A5+0x8),A7 000247d4 3c 7c 00 00 |<| | MOVEA.W #0x0,A6 000247d8 4e f9 00 02 49 e8 |N I | JMP 0x249e8 000247de 2f 12 |/ | MOVE.L (A2),-(A7) 000247e0 4e ba c8 e8 |N | JSR 0x210ca 000247e4 58 4f |XO | ADDQ.L #0x4,A7 000247e6 2f 06 |/ | MOVE.L D6,-(A7) 000247e8 2f 06 |/ | MOVE.L D6,-(A7) 000247ea 9f 97 | | SUB.L D7,(A7) 000247ec 4e ba ce 72 |N r | JSR 0x21660 000247f0 50 4f |PO | ADDQ.L #0x8,A7 000247f2 26 87 |& | MOVE.L D7,(A3) 000247f4 4a 2e ff f4 |J. | TST.B (A6-0xc) 000247f8 67 00 fd 1c |g | BEQ 0x24516 000247fc 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00024800 4e 5e |N^ | UNLK A6 00024802 4e 75 |Nu | RTS 00024804 ; -------------------------------------------------------------------------------------- 00024804 ; OMSI PASCAL Function 00024804 ; -------------------------------------------------------------------------------------- 00024804 START: 00024804 4f fa 00 08 |O | LEA.L MAIN,A7 00024808 4e f9 00 01 02 80 |N | JMP ?start_program 0002480e MAIN: 0002480e 23 fc 00 00 00 01 00 02 |# | MOVE.L #0x1,0x28c48 00024816 8c 48 | H | 00024818 59 4f |YO | SUBQ.L #0x4,A7 0002481a 4e b9 00 01 03 c4 |N | JSR GetArgv() : String 00024820 23 df 00 02 8c 4c |# L | MOVE.L (A7)+,0x28c4c 00024826 48 79 00 02 8c 26 |Hy & | PEA.L 0x28c26 0002482c 4e b9 00 02 0a 14 |N | JSR 0x20a14 00024832 58 4f |XO | ADDQ.L #0x4,A7 00024834 20 79 00 02 8c 4c | y L | MOVEA.L 0x28c4c,A0 0002483a 4a 50 |JP | TST.W (A0) 0002483c 6f 68 |oh | BLE 0x248a6 0002483e 51 4f |QO | SUBQ.L #0x8,A7 00024840 20 4f | O | MOVEA.L A7,A0 00024842 43 fa c5 de |C | LEA.L 0x20e22,A1 00024846 70 06 |p | MOVEQ.L #0x06,D0 00024848 10 d9 | | MOVE.B (A1)+,(A0)+ 0002484a 51 c8 ff fc |Q | DBF D0,0x24848 0002484e 51 4f |QO | SUBQ.L #0x8,A7 00024850 20 4f | O | MOVEA.L A7,A0 00024852 43 fa c5 d6 |C | LEA.L 0x20e2a,A1 00024856 70 06 |p | MOVEQ.L #0x06,D0 00024858 10 d9 | | MOVE.B (A1)+,(A0)+ 0002485a 51 c8 ff fc |Q | DBF D0,0x24858 0002485e 51 4f |QO | SUBQ.L #0x8,A7 00024860 48 6f 00 10 |Ho | PEA.L (A7+0x10) 00024864 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00024868 3f 3c 00 07 |?< | MOVE.W #0x7,-(A7) 0002486c 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00024872 58 4f |XO | ADDQ.L #0x4,A7 00024874 2e b9 00 02 8c 4c |. L | MOVE.L 0x28c4c,(A7) 0002487a 59 4f |YO | SUBQ.L #0x4,A7 0002487c 48 6f 00 10 |Ho | PEA.L (A7+0x10) 00024880 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00024884 3f 3c 00 07 |?< | MOVE.W #0x7,-(A7) 00024888 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002488e 50 4f |PO | ADDQ.L #0x8,A7 00024890 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 00024896 de fc 00 0c | | ADDA.W #0xc,A7 0002489a 23 df 00 02 8c 4c |# L | MOVE.L (A7)+,0x28c4c 000248a0 de fc 00 10 | | ADDA.W #0x10,A7 000248a4 60 3a |`: | BRA 0x248e0 000248a6 48 79 00 02 8c 4c |Hy L | PEA.L 0x28c4c 000248ac 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000248b2 59 4f |YO | SUBQ.L #0x4,A7 000248b4 20 4f | O | MOVEA.L A7,A0 000248b6 43 fa c5 7a |C z | LEA.L 0x20e32,A1 000248ba 70 06 |p | MOVEQ.L #0x06,D0 000248bc 10 d9 | | MOVE.B (A1)+,(A0)+ 000248be 51 c8 ff fc |Q | DBF D0,0x248bc 000248c2 59 4f |YO | SUBQ.L #0x4,A7 000248c4 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000248c8 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000248cc 3f 3c 00 07 |?< | MOVE.W #0x7,-(A7) 000248d0 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000248d6 50 4f |PO | ADDQ.L #0x8,A7 000248d8 23 df 00 02 8c 4c |# L | MOVE.L (A7)+,0x28c4c 000248de 50 4f |PO | ADDQ.L #0x8,A7 000248e0 13 fc 00 01 00 02 8c 56 | V| MOVE.B #0x01,0x28c56 000248e8 4a 39 00 02 8c 56 |J9 V | TST.B 0x28c56 000248ee 67 0a |g | BEQ 0x248fa 000248f0 42 39 00 02 8c 56 |B9 V | CLR.B 0x28c56 000248f6 60 00 00 b0 |` | BRA 0x249a8 000248fa 41 f9 00 02 8c 30 |A 0 | LEA.L 0x28c30,A0 00024900 70 04 |p | MOVEQ.L #0x04,D0 00024902 3f 20 |? | MOVE.W -(A0),-(A7) 00024904 51 c8 ff fc |Q | DBF D0,0x24902 00024908 3f 3a c5 30 |?: 0 | MOVE.W 0x20e3a,-(A7) 0002490c 9e fc 00 0c | | SUBA.W #0xc,A7 00024910 48 6f 00 0e |Ho | PEA.L (A7+0xe) 00024914 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00024918 3f 3c 00 0a |?< | MOVE.W #0xa,-(A7) 0002491c 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00024922 58 4f |XO | ADDQ.L #0x4,A7 00024924 48 6f 00 10 |Ho | PEA.L (A7+0x10) 00024928 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 0002492c 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7) 00024930 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00024936 50 4f |PO | ADDQ.L #0x8,A7 00024938 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 0002493e 50 4f |PO | ADDQ.L #0x8,A7 00024940 4e b9 00 01 03 e4 |N | JSR AskConsoleString(prompt : String) : String 00024946 58 4f |XO | ADDQ.L #0x4,A7 00024948 23 df 00 02 8c 52 |# R | MOVE.L (A7)+,0x28c52 0002494e 50 4f |PO | ADDQ.L #0x8,A7 00024950 2e b9 00 02 8c 52 |. R | MOVE.L 0x28c52,(A7) 00024956 4e ba ca 0c |N | JSR 0x21364 0002495a 54 4f |TO | ADDQ.L #0x2,A7 0002495c 3e ba c4 de |> | MOVE.W 0x20e3c,(A7) 00024960 3f 3a c4 dc |?: | MOVE.W 0x20e3e,-(A7) 00024964 51 4f |QO | SUBQ.L #0x8,A7 00024966 48 6f 00 0a |Ho | PEA.L (A7+0xa) 0002496a 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 0002496e 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7) 00024972 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00024978 58 4f |XO | ADDQ.L #0x4,A7 0002497a 2e b9 00 02 8c 52 |. R | MOVE.L 0x28c52,(A7) 00024980 59 4f |YO | SUBQ.L #0x4,A7 00024982 48 6f 00 10 |Ho | PEA.L (A7+0x10) 00024986 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 0002498a 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7) 0002498e 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00024994 50 4f |PO | ADDQ.L #0x8,A7 00024996 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 0002499c de fc 00 0c | | ADDA.W #0xc,A7 000249a0 23 df 00 02 8c 4c |# L | MOVE.L (A7)+,0x28c4c 000249a6 58 4f |XO | ADDQ.L #0x4,A7 000249a8 42 39 00 02 8c 50 |B9 P | CLR.B 0x28c50 000249ae 23 fc 00 00 00 01 00 02 |# | MOVE.L #0x1,0x28c1e 000249b6 8c 1e | | 000249b8 42 b9 00 02 8c 22 |B " | CLR.L 0x28c22 000249be 59 4f |YO | SUBQ.L #0x4,A7 000249c0 2f 39 00 02 8c 4c |/9 L | MOVE.L 0x28c4c,-(A7) 000249c6 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 000249cc 58 4f |XO | ADDQ.L #0x4,A7 000249ce 4e ba d5 06 |N | JSR 0x21ed6 000249d2 58 4f |XO | ADDQ.L #0x4,A7 000249d4 20 39 00 02 8c 1e | 9 | MOVE.L 0x28c1e,D0 000249da b0 b9 00 02 8c 22 | " | CMP.L 0x28c22,D0 000249e0 6e 06 |n | BGT 0x249e8 000249e2 4e ba fb 0e |N | JSR 0x244f2 000249e6 60 ec |` | BRA 0x249d4 000249e8 48 79 00 02 8c 4c |Hy L | PEA.L 0x28c4c 000249ee 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000249f4 58 4f |XO | ADDQ.L #0x4,A7 000249f6 60 00 fe f0 |` | BRA 0x248e8 000249fa 4e b9 00 01 02 84 |N | .XXX[0x6] 00024a00 57 6f 72 64 73 20 65 72 |Words er| .TXT 'Words error :_' 00024a0e ; -------------------------------------------------------------------------------------- 00024a0e ; OMSI PASCAL Function 00024a0e ; <LVAR 0x008 1(r)> 00024a0e ; -------------------------------------------------------------------------------------- 00024a0e PROG_FAIL: 00024a0e 4e 56 ff d2 |NV | LINK.W A6,#0xffd2 00024a12 bf d5 | | CMPA.L (A5),A7 00024a14 62 06 |b | BHI 0x24a1c 00024a16 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024a1a 4e 76 |Nv | TRAPV 00024a1c de fc 00 2c | , | ADDA.W #0x2c,A7 00024a20 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 00024a24 41 fa ff e8 |A | LEA.L PROG_FAIL,A0 00024a28 70 06 |p | MOVEQ.L #0x06,D0 00024a2a 3f 20 |? | MOVE.W -(A0),-(A7) 00024a2c 51 c8 ff fc |Q | DBF D0,0x24a2a 00024a30 1f 3c 00 03 | < | MOVE.B #0x03,-(A7) 00024a34 51 4f |QO | SUBQ.L #0x8,A7 00024a36 48 6f 00 0a |Ho | PEA.L (A7+0xa) 00024a3a 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00024a3e 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7) 00024a42 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00024a48 58 4f |XO | ADDQ.L #0x4,A7 00024a4a 10 2e 00 08 | . | MOVE.B (A6+0x8),D0 00024a4e 48 80 |H | EXTB.W D0 00024a50 48 c0 |H | EXTW.L D0 00024a52 2f 00 |/ | MOVE.L D0,-(A7) 00024a54 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00024a5a 58 4f |XO | ADDQ.L #0x4,A7 00024a5c 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00024a62 50 4f |PO | ADDQ.L #0x8,A7 00024a64 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00024a6a de fc 00 14 | | ADDA.W #0x14,A7 00024a6e 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 00024a72 4e 5e |N^ | UNLK A6 00024a74 4e 75 |Nu | RTS 00024a76 42 6f 61 72 64 20 20 20 |Board | .TXT 'Board :_ ' 00024a84 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment :_ ' 00024a92 53 74 61 74 75 73 20 20 |Status | .TXT 'Status :_ ' 00024aa0 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment error :' 00024ab2 46 61 74 61 6c 20 65 78 |Fatal ex| .TXT 'Fatal experiment error. ' 00024aca ; -------------------------------------------------------------------------------------- 00024aca ; OMSI PASCAL Function 00024aca ; <LVAR 0x00e 1(r)> 00024aca ; <LVAR 0x00a 4(r)> 00024aca ; <LVAR 0x008 1(r)> 00024aca ; -------------------------------------------------------------------------------------- 00024aca EXP_FAIL: 00024aca 4e 56 ff 8c |NV | LINK.W A6,#0xff8c 00024ace bf d5 | | CMPA.L (A5),A7 00024ad0 62 06 |b | BHI 0x24ad8 00024ad2 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024ad6 4e 76 |Nv | TRAPV 00024ad8 de fc 00 74 | t | ADDA.W #0x74,A7 00024adc 48 e7 fc f8 |H | MOVEM.L A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7) 00024ae0 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 00024ae6 49 f9 00 01 03 e0 |I | LEA.L WriteConsoleStringCrLf(str : String),A4 00024aec 72 01 |r | MOVEQ.L #0x01,D1 00024aee 74 0d |t | MOVEQ.L #0x0d,D2 00024af0 76 1e |v | MOVEQ.L #0x1e,D3 00024af2 78 12 |x | MOVEQ.L #0x12,D4 00024af4 7a 0e |z | MOVEQ.L #0x0e,D5 00024af6 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 00024afc 41 fa ff b4 |A | LEA.L 0x24ab2,A0 00024b00 70 08 |p | MOVEQ.L #0x08,D0 00024b02 3f 20 |? | MOVE.W -(A0),-(A7) 00024b04 51 c8 ff fc |Q | DBF D0,0x24b02 00024b08 59 4f |YO | SUBQ.L #0x4,A7 00024b0a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00024b0e 3f 01 |? | MOVE.W D1,-(A7) 00024b10 3f 04 |? | MOVE.W D4,-(A7) 00024b12 4e 93 |N | JSR (A3) 00024b14 50 4f |PO | ADDQ.L #0x8,A7 00024b16 4e 94 |N | JSR (A4) 00024b18 50 4f |PO | ADDQ.L #0x8,A7 00024b1a 20 4f | O | MOVEA.L A7,A0 00024b1c 43 fa ff 58 |C X | LEA.L 0x24a76,A1 00024b20 70 0c |p | MOVEQ.L #0x0c,D0 00024b22 10 d9 | | MOVE.B (A1)+,(A0)+ 00024b24 51 c8 ff fc |Q | DBF D0,0x24b22 00024b28 51 4f |QO | SUBQ.L #0x8,A7 00024b2a 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00024b2e 3f 01 |? | MOVE.W D1,-(A7) 00024b30 3f 02 |? | MOVE.W D2,-(A7) 00024b32 4e 93 |N | JSR (A3) 00024b34 54 4f |TO | ADDQ.L #0x2,A7 00024b36 1e ae 00 0e | | MOVE.B (A6+0xe),(A7) 00024b3a 4e b9 00 01 04 9c |N | JSR BoardName(address : B) : String 00024b40 54 4f |TO | ADDQ.L #0x2,A7 00024b42 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00024b48 50 4f |PO | ADDQ.L #0x8,A7 00024b4a 4e 94 |N | JSR (A4) 00024b4c de c4 | | ADDA.W D4,A7 00024b4e 20 6e 00 0a | n | MOVEA.L (A6+0xa),A0 00024b52 b0 c1 | | CMPA.W D1,A0 00024b54 67 48 |gH | BEQ 0x24b9e 00024b56 9e c5 | | SUBA.W D5,A7 00024b58 22 4f |"O | MOVEA.L A7,A1 00024b5a 45 fa ff 28 |E ( | LEA.L 0x24a84,A2 00024b5e 70 0c |p | MOVEQ.L #0x0c,D0 00024b60 12 da | | MOVE.B (A2)+,(A1)+ 00024b62 51 c8 ff fc |Q | DBF D0,0x24b60 00024b66 9e c3 | | SUBA.W D3,A7 00024b68 22 4f |"O | MOVEA.L A7,A1 00024b6a 41 e8 00 fc |A | LEA.L (A0+0xfc),A0 00024b6e 70 1d |p | MOVEQ.L #0x1d,D0 00024b70 12 d8 | | MOVE.B (A0)+,(A1)+ 00024b72 51 c8 ff fc |Q | DBF D0,0x24b70 00024b76 51 4f |QO | SUBQ.L #0x8,A7 00024b78 48 6f 00 26 |Ho & | PEA.L (A7+0x26) 00024b7c 3f 01 |? | MOVE.W D1,-(A7) 00024b7e 3f 02 |? | MOVE.W D2,-(A7) 00024b80 4e 93 |N | JSR (A3) 00024b82 58 4f |XO | ADDQ.L #0x4,A7 00024b84 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00024b88 3f 01 |? | MOVE.W D1,-(A7) 00024b8a 3f 03 |? | MOVE.W D3,-(A7) 00024b8c 4e 93 |N | JSR (A3) 00024b8e 50 4f |PO | ADDQ.L #0x8,A7 00024b90 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00024b96 50 4f |PO | ADDQ.L #0x8,A7 00024b98 4e 94 |N | JSR (A4) 00024b9a de fc 00 30 | 0 | ADDA.W #0x30,A7 00024b9e 9e c5 | | SUBA.W D5,A7 00024ba0 20 4f | O | MOVEA.L A7,A0 00024ba2 43 fa fe ee |C | LEA.L 0x24a92,A1 00024ba6 70 0c |p | MOVEQ.L #0x0c,D0 00024ba8 10 d9 | | MOVE.B (A1)+,(A0)+ 00024baa 51 c8 ff fc |Q | DBF D0,0x24ba8 00024bae 51 4f |QO | SUBQ.L #0x8,A7 00024bb0 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00024bb4 3f 01 |? | MOVE.W D1,-(A7) 00024bb6 3f 02 |? | MOVE.W D2,-(A7) 00024bb8 4e 93 |N | JSR (A3) 00024bba 54 4f |TO | ADDQ.L #0x2,A7 00024bbc 1e ae 00 08 | | MOVE.B (A6+0x8),(A7) 00024bc0 4e b9 00 01 04 a2 |N | JSR ExpStatus2Text(status.B, &String) 00024bc6 54 4f |TO | ADDQ.L #0x2,A7 00024bc8 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00024bce 50 4f |PO | ADDQ.L #0x8,A7 00024bd0 4e 94 |N | JSR (A4) 00024bd2 5d 4f |]O | SUBQ.L #0x6,A7 00024bd4 20 4f | O | MOVEA.L A7,A0 00024bd6 43 fa fe da |C | LEA.L 0x24ab2,A1 00024bda 70 16 |p | MOVEQ.L #0x16,D0 00024bdc 10 d9 | | MOVE.B (A1)+,(A0)+ 00024bde 51 c8 ff fc |Q | DBF D0,0x24bdc 00024be2 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 00024be6 59 4f |YO | SUBQ.L #0x4,A7 00024be8 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00024bec 3f 01 |? | MOVE.W D1,-(A7) 00024bee 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7) 00024bf2 4e 93 |N | JSR (A3) 00024bf4 50 4f |PO | ADDQ.L #0x8,A7 00024bf6 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00024bfc de c3 | | ADDA.W D3,A7 00024bfe 4c df 1f 3f |L ? | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4 00024c02 4e 5e |N^ | UNLK A6 00024c04 4e 75 |Nu | RTS