|
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 - metrics - download
Length: 19456 (0x4c00)
Types: M200
Notes: M200_PROGRAM
Names: »DISPLAY.M200«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─⟦this⟧ »DISPLAY.M200«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─⟦this⟧ »DISPLAY.M200«
└─⟦this⟧ »DISPLAY.M200«
@ 2021a
<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 2021a-20454 Body>
<POP 2021a-20230 Prologue> Σ0 ↓
<POP 20230-2024c RegCacheLoad> Σ0 ↓
<POP 2024c-20256 Naked> Σ0 ↓ →0x20282
<MI 2024c CLR.L 0x26bee> {}
<MI 20252 TST.B 0x24bec> {}
<MI 20254 BEQ 0x20282> {}
<POP 20256-20282 Naked> Σ0 ↓
<Blob 0x20256 [22] @> Δ-22 {[«22""»]}
<POP 20268-2026a StackAdj> Δ-4 {[«22""»]|[-4-]}
<Lit 0x2026a 21> {[«22""»]|[$$Device already opened]}
<Call 0x20278 0x210ea> {[«22""»]|[$$Device already opened]}
<POP 2027e-20282 StackAdj> Δ+26 {}
<POP 20282-202f0 Naked> Σ0 ↓ →0x202f4 ←0x2024c
<Blob 0x20282 [10] @> Δ-10 {[«10""»]}
<MI 2028e MOVE.L (A6+0x8),-(A7)> Δ-4 {[«10""»]|[4, '(A6+0x8)']}
<Const 0x20292 0x1.4> Δ-4 {[«10""»]|[4, '(A6+0x8)']|[##1]}
<Call 0x20296 0x2152c> {[«10""»]|[4, '(A6+0x8)']|[##1]}
<POP 2029c-2029e StackAdj> Δ+10 {[-8-]}
<MI 2029e MOVE.L (A6+0x8),(A7)> {[-4-]|[4, '(A6+0x8)']}
<Const 0x202a2 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x202a6 0x21e12> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 202ac-202ae StackAdj> Δ+8 {[-4-]}
<MI 202ae MOVE.L (A7)+,(A6-0x18)> Δ+4 {}
<Blob 0x202b0 [4] @> Δ-4 {[«4""»]}
<POP 202b4-202b6 StackAdj> Δ-4 {[«4""»]|[-4-]}
<Lit 0x202b6 4> {[«4""»]|[$$TAPE]}
<MI 202c2 MOVE.L (A7)+,(A6-0x14)> Δ+4 {[«4""»]}
<POP 202c6-202c7 StackAdj> Δ+4 {}
<Blob 0x202c7 [4] @> Δ-4 {[«4""»]}
<POP 202ca-202cc StackAdj> Δ-4 {[«4""»]|[-4-]}
<Lit 0x202cc 4> {[«4""»]|[$$DISK]}
<MI 202d8 MOVE.L (A7)+,(A6-0x10)> Δ+4 {[«4""»]}
<POP 202dc-202de StackAdj> Δ+2 {[-2-]}
<MI 202de MOVE.L (A6-0x18),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x18)']}
<MI 202e0 MOVE.L (A6-0x14),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x18)']|[4, '(A6-0x14)']}
<Call 0x202e4 0x102c8> {[-2-]|[4, '(A6-0x18)']|[4, '(A6-0x14)']}
StringEqual(a, b : String) : Byte
<POP 202ea-202ec StackAdj> Δ+8 {[-2-]}
<MI 202ec TST.B (A7)+> Δ+2 {}
<MI 202ee BEQ 0x202f4> {}
<POP 202f0-202f4 Naked> Σ0 →0x2030c
<MI 202f0 MOVE.B #0x03,0x24bec> {}
<MI 202f2 BRA 0x2030c> {}
<POP 202f4-20308 Naked> Σ0 ↓ →0x2030c ←0x20282
<POP 202f4-202f6 StackAdj> Δ-2 {[-2-]}
<MI 202f6 MOVE.L (A6-0x18),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x18)']}
<MI 202f8 MOVE.L (A6-0x10),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x18)']|[4, '(A6-0x10)']}
<Call 0x202fc 0x102c8> {[-2-]|[4, '(A6-0x18)']|[4, '(A6-0x10)']}
StringEqual(a, b : String) : Byte
<POP 20302-20304 StackAdj> Δ+8 {[-2-]}
<MI 20304 TST.B (A7)+> Δ+2 {}
<MI 20306 BEQ 0x2030c> {}
<POP 20308-2030c Naked> Σ0 ↓
<MI 20308 MOVE.B #0x02,0x24bec> {}
<POP 2030c-20332 Naked> Σ0 ↓ →0x20358 ←0x202f0 ←0x202f4
<Pointer.fp 0x2030c <LVAR -0x014 @ 4(rw)>> Δ-4 {[@@-20]}
<Call 0x20310 0x102bc> {[@@-20]}
FreeString(VAR a : String)
<POP 20316-20318 StackAdj> Δ+4 {}
<Pointer.fp 0x20318 <LVAR -0x010 @ 4(rw)>> Δ-4 {[@@-16]}
<Call 0x2031c 0x102bc> {[@@-16]}
FreeString(VAR a : String)
<POP 20322-20324 StackAdj> Δ+4 {}
<Pointer.fp 0x20324 <LVAR -0x018 @ 4(rw)>> Δ-4 {[@@-24]}
<Call 0x20326 0x102bc> {[@@-24]}
FreeString(VAR a : String)
<POP 2032c-2032e StackAdj> Δ+4 {}
<MI 2032e TST.B 0x24bec> {}
<MI 20330 BNE 0x20358> {}
<POP 20332-20358 Naked> Σ0 ↓
<Blob 0x20332 [14] @> Δ-14 {[«14""»]}
<POP 2033e-20340 StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x20340 14> {[«14""»]|[$$Unknown device]}
<Call 0x2034e 0x210ea> {[«14""»]|[$$Unknown device]}
<POP 20354-20358 StackAdj> Δ+18 {}
<POP 20358-20360 Naked> Σ0 ↓ →0x2044c ←0x2030c
<MI 20358 MOVE.B 0x24bec,D0> {}
<MI 2035a CMP.B #0x03,D0> {}
<MI 2035c BNE 0x2044c> {}
<POP 20360-203a0 Naked> Σ0 ↓ →0x203a6
<Blob 0x20360 [4] @> Δ-4 {[«4""»]}
<POP 20364-20366 StackAdj> Δ-4 {[«4""»]|[-4-]}
<Lit 0x20366 4> {[«4""»]|[$$UNIT]}
<MI 20372 MOVE.L (A7)+,(A6-0x18)> Δ+4 {[«4""»]}
<MI 20374 MOVE.L (A6+0x8),(A7)> {[4, '(A6+0x8)']}
<Const 0x20378 0x1.4> Δ-4 {[4, '(A6+0x8)']|[##1]}
<MI 2037c MOVE.L (A6-0x18),-(A7)> Δ-4 {[4, '(A6+0x8)']|[##1]|[4, '(A6-0x18)']}
<Pointer.fp 0x2037e <LVAR -0x00c @ 4(r)>> Δ-4 {[4, '(A6+0x8)']|[##1]|[4, '(A6-0x18)']|[@@-12]}
<Pointer.fp 0x20382 <LVAR -0x006 @ 1(r)>> Δ-4 {[4, '(A6+0x8)']|[##1]|[4, '(A6-0x18)']|[@@-12]|[@@-6]}
<Call 0x20386 0x2434a> {[4, '(A6+0x8)']|[##1]|[4, '(A6-0x18)']|[@@-12]|[@@-6]}
<POP 2038c-20390 StackAdj> Δ+20 {}
<Pointer.fp 0x20390 <LVAR -0x018 @ 4(rw)>> Δ-4 {[@@-24]}
<Call 0x20392 0x102bc> {[@@-24]}
FreeString(VAR a : String)
<POP 20398-2039a StackAdj> Δ+4 {}
<MI 2039a TST.B (A6-0x6)> {}
<MI 2039e BNE 0x203a6> {}
<POP 203a0-203a6 Naked> Σ0 →0x2041a ←0x203ae
<MI 203a0 CLR.L (A6-0x4)> {}
<MI 203a4 BRA 0x2041a> {}
<POP 203a6-203ae Naked> Σ0 ↓ →0x203b0 ←0x20360
<MI 203a6 MOVEA.L (A6-0xc),A0> {}
<MI 203aa CMPA.W #0x01,A0> {}
<MI 203ac BNE 0x203b0> {}
<POP 203ae-203b0 Naked> Σ0 →0x203a0
<MI 203ae BRA 0x203a0> {}
<POP 203b0-203c8 Naked> Σ0 ↓ →0x203ea ←0x203a6
<MI 203b0 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Pointer.fp 0x203b2 <LVAR -0x006 @ 1(r)>> Δ-4 {[4, 'A0']|[@@-6]}
<Pointer.fp 0x203b6 <LVAR -0x004 @ 4(r)>> Δ-4 {[4, 'A0']|[@@-6]|[@@-4]}
<Call 0x203ba 0x102ec> {[4, 'A0']|[@@-6]|[@@-4]}
String2Long(src : String; VAR status : Bool; VAR retval : Long)
<POP 203c0-203c2 StackAdj> Δ+12 {}
<MI 203c2 TST.B (A6-0x6)> {}
<MI 203c6 BNE 0x203ea> {}
<POP 203c8-203ea Naked> Σ0 ↓
<Blob 0x203c8 [4] @> Δ-4 {[«4""»]}
<Blob 0x203cc [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x203d0 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<POP 203d4-203d6 StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x203d6 12> {[«4""»]|[«4""»]|[«4""»]|[$$Illegal unit]}
<Call 0x203e2 0x210ea> {[«4""»]|[«4""»]|[«4""»]|[$$Illegal unit]}
<POP 203e8-203ea StackAdj> Δ+16 {}
<POP 203ea-203f0 Naked> Σ0 ↓ →0x203f8 ←0x203b0
<MI 203ea TST.L (A6-0x4)> {}
<MI 203ee BLT 0x203f8> {}
<POP 203f0-203f8 Naked> Σ0 ↓ →0x2041a
<MI 203f0 MOVE.L (A6-0x4),D0> {}
<MI 203f4 CMP.L #0x03,D0> {}
<MI 203f6 BLE 0x2041a> {}
<POP 203f8-2041a Naked> Σ0 ↓ ←0x203ea
<Blob 0x203f8 [4] @> Δ-4 {[«4""»]}
<Blob 0x203fc [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x20400 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<POP 20404-20406 StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x20406 12> {[«4""»]|[«4""»]|[«4""»]|[$$Illegal unit]}
<Call 0x20412 0x210ea> {[«4""»]|[«4""»]|[«4""»]|[$$Illegal unit]}
<POP 20418-2041a StackAdj> Δ+16 {}
<POP 2041a-2043c Naked> Σ0 ↓ →0x2044c ←0x203a0 ←0x203f0
<MI 2041a MOVE.L (A6-0x4),D0> {}
<POP 0x2041e LimitCheck 0x0 ≤ D0 ≤ 0x3> {}
<MI 20424 MOVE.W D0,-(A7)> Δ-2 {[2, 'D0']}
<MI 20426 CLR.B -(A7)> Δ-2 {[2, 'D0']|[#0]}
<Const 0x20428 0x1.2> Δ-2 {[2, 'D0']|[#0]|[#1]}
<Pointer.fp 0x2042a <LVAR -0x008 @ 1(r)>> Δ-4 {[2, 'D0']|[#0]|[#1]|[@@-8]}
<Call 0x2042e 0x1040c> {[2, 'D0']|[#0]|[#1]|[@@-8]}
FSCALL_1040c
<POP 20434-20436 StackAdj> Δ+10 {}
<MI 20436 TST.B (A6-0x8)> {}
<MI 2043a BEQ 0x2044c> {}
<POP 2043c-2044c Naked> Σ0 ↓
<Const 0x2043c 0x1.2> Δ-2 {[#1]}
<Pointer.fp 0x2043e <LVAR -0x008 @ 1(r)>> Δ-4 {[#1]|[@@-8]}
<Call 0x20442 0x10428> {[#1]|[@@-8]}
FSCALL_10428
<POP 20448-2044a StackAdj> Δ+6 {}
<MI 2044a CLR.B 0x24bec> {}
<POP 2044c-20454 Epilogue> Σ0 ←0x20358 ←0x2041a
@ 20454
<POP 20454-204ba Body>
<POP 20454-2046a Prologue> Σ0 ↓
<POP 2046a-20470 RegCacheLoad> Σ0 ↓
<POP 20470-20474 Naked> Σ0 ↓ →0x204a2
<MI 20470 TST.B 0x24bec> {}
<MI 20472 BNE 0x204a2> {}
<POP 20474-204a2 Naked> Σ0 →0x204b0
<Blob 0x20474 [14] @> Δ-14 {[«14""»]}
<POP 20480-20482 StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x20482 14> {[«14""»]|[$$No device open]}
<Call 0x20496 0x210ea> {[«14""»]|[$$No device open]}
<POP 2049c-204a0 StackAdj> Δ+18 {}
<MI 204a0 BRA 0x204b0> {}
<POP 204a2-204aa Naked> Σ0 ↓ →0x204b0 ←0x20470
<MI 204a2 MOVE.B 0x24bec,D0> {}
<MI 204a4 CMPI.B #0x03,D0> {}
<MI 204a8 BNE 0x204b0> {}
<POP 204aa-204b0 Naked> Σ0 ↓
<Call 0x204aa 0x10410> {}
FSCALL_10410
<POP 204b0-204b2 Naked> Σ0 ↓ ←0x20474 ←0x204a2
<MI 204b0 CLR.B 0x24bec> {}
<POP 204b2-204ba Epilogue> Σ0
@ 204ba
<LVAR 0x008 4(r)>
<LVAR -0x008 @ 4(rw)>
<LVAR -0x00c @ 4(r)>
<LVAR -0x018 4(rw)>
<POP 204ba-20774 Body> Δ+10
<POP 204ba-204d0 Prologue> Σ0 ↓
<POP 204d0-204e0 RegCacheLoad> Σ0 ↓
<POP 204e0-20568 Naked> Σ0 ↓
<Blob 0x204e0 [2] @> Δ-2 {[«2""»]}
<Blob 0x204e4 [2] @> Δ-2 {[«2""»]|[«2""»]}
<Blob 0x204e8 [2] @> Δ-2 {[«2""»]|[«2""»]|[«2""»]}
<Blob 0x204ec [2] @> Δ-2 {[«2""»]|[«2""»]|[«2""»]|[«2""»]}
<Blob 0x204f0 [8] @> Δ-8 {[«2""»]|[«2""»]|[«2""»]|[«2""»]|[«8""»]}
<POP 20500-20502 StackAdj> Δ-8 {[«2""»]|[«2""»]|[«2""»]|[«2""»]|[«8""»]|[-8-]}
<Lit 0x20502 6> {[«2""»]|[«2""»]|[«2""»]|[«2""»]|[«8""»]|[-4-]|[$$Block_]}
<POP 2050e-2050f StackAdj> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[«2""»]|[«8""»]|[-4-]|[$$Block_]|[-4-]}
<Blob 0x2050f [4] 0x26bee> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[«2""»]|[«8""»]|[-4-]|[$$Block_]|[-4-]|[«4»]}
<Call 0x20514 0x102e4> {[«2""»]|[«2""»]|[«2""»]|[«2""»]|[«8""»]|[-4-]|[$$Block_]|[-4-]|[«4»]}
Long2String(a : Long) : String
<Lit 0x2051a 2> {[«2""»]|[«2""»]|[«2""»]|[«2""»]|[«8""»]|[-4-]|[$$Block_]|[-4-]|[$$,_]}
<MI 20526 MOVE.L (A6+0x8),(A7)> {[«2""»]|[«2""»]|[«2""»]|[«2""»]|[«8""»]|[-4-]|[$$Block_]|[-4-]|[4, '(A6+0x8)']}
<POP 20524-20526 StackAdj> Δ-8 {[«2""»]|[«2""»]|[«2""»]|[«2""»]|[«8""»]|[-4-]|[$$Block_]|[-4-]|[4, '(A6+0x8)']|[-8-]}
<Call 0x2052a 0x102e4> {[«2""»]|[«2""»]|[«2""»]|[«2""»]|[«8""»]|[-4-]|[$$Block_]|[-4-]|[4, '(A6+0x8)']|[-8-]}
Long2String(a : Long) : String
<Lit 0x20530 7> {[«2""»]|[«2""»]|[«2""»]|[«2""»]|[«8""»]|[-4-]|[$$Block_]|[-4-]|[4, '(A6+0x8)']|[-4-]|[$$ Bytes.]}
<Call 0x2053e 0x102dc> {[«2""»]|[«2""»]|[«2""»]|[«2""»]|[«8""»]|[-4-]|[$$Block_]|[-4-]|[4, '(A6+0x8)']|[-4-]|[$$ Bytes.]}
StringCat5(a, b, c, d, e : String) : String
<POP 20544-20548 StackAdj> Δ+20 {[«2""»]|[«2""»]|[«2""»]|[«2""»]|[«8""»]|[-4-]}
<Call 0x20548 0x103e0> {[«2""»]|[«2""»]|[«2""»]|[«2""»]|[«8""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 2054e-20552 StackAdj> Δ+20 {}
<MI 20552 ADDQ.L #0x1,0x26bee> {}
<MI 20558 CLR.L (A6-0x18)> {}
<MI 2055a MOVEQ.L #0x00,D5> {}
<Pointer.fp 0x2055c <LVAR -0x00c @ 4(r)>> Δ-4 {[@@-12]}
<Call 0x20560 0x102b8> {[@@-12]}
NewString(VAR a : String)
<POP 20566-20568 StackAdj> Δ+4 {}
<POP 20568-2057e Naked> Σ0 ↓ →0x20720 ←0x20718
<MI 20568 MOVE.L (A6+0x8),D0> {}
<MI 2056c ADDQ.L #0x1,D0> {}
<MI 2056e MOVE.L D0,D4> {}
<MI 20570 MOVEQ.L #0x02,D3> {}
<Call 0x20572 0x10294> {}
?divs_d3_d4
<MI 20578 CMP.L (A6-0x18),D4> {}
<MI 2057a BLE 0x20720> {}
<POP 2057e-2058a Naked> Σ0 ↓
<Pointer.fp 0x2057e <LVAR -0x008 @ 4(rw)>> Δ-4 {[@@-8]}
<Call 0x20580 0x102b8> {[@@-8]}
NewString(VAR a : String)
<POP 20586-20588 StackAdj> Δ+4 {}
<MI 20588 MOVEQ.L #0x00,D6> {}
<POP 2058a-205dc Naked> Σ0 ↓ →0x2058a ←0x2058a
<POP 2058a-2058c StackAdj> Δ-4 {[-4-]}
<MI 2058c MOVE.L (A6-0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x8)']}
<POP 2058e-20590 StackAdj> Δ-4 {[-4-]|[4, '(A6-0x8)']|[-4-]}
<MI 20590 MOVE.L (A6-0x18),D0> {[-4-]|[4, '(A6-0x8)']|[-4-]}
<MI 20592 ADD.L D6,D0> {[-4-]|[4, '(A6-0x8)']|[-4-]}
<POP 0x20594 LimitCheck 0x0 ≤ D0 ≤ 0xfff> {[-4-]|[4, '(A6-0x8)']|[-4-]}
<MI 2059e ASL.L #0x1,D0> {[-4-]|[4, '(A6-0x8)']|[-4-]}
<MI 205a0 LEA.L 0x24be4,A0> {[-4-]|[4, '(A6-0x8)']|[-4-]}
<MI 205a6 CLR.L D1> {[-4-]|[4, '(A6-0x8)']|[-4-]}
<MI 205a8 MOVE.W (A0+D0.L+#0xa),D1> {[-4-]|[4, '(A6-0x8)']|[-4-]}
<MI 205ac MOVE.L D1,-(A7)> Δ-4 {[-4-]|[4, '(A6-0x8)']|[-4-]|[4, 'D1']}
<Const 0x205ae 0x4.4> Δ-4 {[-4-]|[4, '(A6-0x8)']|[-4-]|[4, 'D1']|[##4]}
<Call 0x205b2 0x102e8> {[-4-]|[4, '(A6-0x8)']|[-4-]|[4, 'D1']|[##4]}
Long2HexString(val : Long; ndig : Long) : String
<POP 205b8-205ba StackAdj> Δ+8 {[-4-]|[4, '(A6-0x8)']|[-4-]}
<Call 0x205ba 0x102d0> {[-4-]|[4, '(A6-0x8)']|[-4-]}
StringCat2(a, b : String) : String
<POP 205c0-205c2 StackAdj> Δ+8 {[-4-]}
<MI 205c2 MOVE.L (A7)+,(A6-0x8)> Δ+4 {}
<MI 205c4 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<Const 0x205c6 0x20.2> Δ-2 {[4, '(A6-0x8)']|[#32]}
<Call 0x205ca 0x102c0> {[4, '(A6-0x8)']|[#32]}
AppendChar(MOD b : String; a : char)
<POP 205d0-205d2 StackAdj> Δ+6 {}
<MI 205d2 ADDQ.L #0x1,D6> {}
<MI 205d4 CMPI.L #0x00000007,D6> {}
<MI 205da BLE 0x2058a> {}
<POP 205dc-205f0 Naked> Σ0 ↓ →0x205fe
<POP 205dc-205de StackAdj> Δ-2 {[-2-]}
<MI 205de MOVE.L (A6-0xc),-(A7)> Δ-4 {[-2-]|[4, '(A6-0xc)']}
<MI 205e2 MOVE.L (A6-0x8),-(A7)> Δ-4 {[-2-]|[4, '(A6-0xc)']|[4, '(A6-0x8)']}
<Call 0x205e4 0x102c8> {[-2-]|[4, '(A6-0xc)']|[4, '(A6-0x8)']}
StringEqual(a, b : String) : Byte
<POP 205ea-205ec StackAdj> Δ+8 {[-2-]}
<MI 205ec TST.B (A7)+> Δ+2 {}
<MI 205ee BEQ 0x205fe> {}
<POP 205f0-205fe Naked> Σ0 Δ-4 →0x20718
<MI 205f0 ADDQ.L #0x1,D5> {}
<Pointer.fp 0x205f2 <LVAR -0x008 @ 4(rw)>> Δ-4 {[@@-8]}
<Call 0x205f4 0x102bc> {[@@-8]}
FreeString(VAR a : String)
<MI 205fa BRA 0x20718> {[@@-8]}
<POP 205fe-20602 Naked> Σ0 ↓ →0x2063e ←0x205dc
<MI 205fe TST.L D5> {}
<MI 20600 BEQ 0x2063e> {}
<POP 20602-2063e Naked> Σ0 ↓
<Blob 0x20602 [22] @> Δ-22 {[«22""»]}
<POP 20614-20616 StackAdj> Δ-8 {[«22""»]|[-8-]}
<MI 20616 MOVE.L D5,-(A7)> Δ-4 {[«22""»]|[-8-]|[4, 'D5']}
<Call 0x20618 0x102e4> {[«22""»]|[-8-]|[4, 'D5']}
Long2String(a : Long) : String
<Lit 0x2061e 21> {[«22""»]|[-8-]|[$$ lines same as above.]}
<Call 0x2062c 0x102d0> {[«22""»]|[-8-]|[$$ lines same as above.]}
StringCat2(a, b : String) : String
<POP 20632-20634 StackAdj> Δ+8 {[«22""»]|[-4-]}
<Call 0x20634 0x103e0> {[«22""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 2063a-2063e StackAdj> Δ+26 {}
<POP 2063e-20696 Naked> Σ0 ↓ ←0x205fe
<MI 2063e MOVEQ.L #0x00,D5> {}
<MI 20640 MOVEA.L (A6-0xc),A0> {}
<MI 20644 MOVEA.L (A6-0x8),A1> {}
<BlockMove 128,A1,A0> {}
<Blob 0x2064e [2] @> Δ-2 {[«2""»]}
<Blob 0x20652 [4] @> Δ-4 {[«2""»]|[«4""»]}
<POP 20656-20658 StackAdj> Δ-8 {[«2""»]|[«4""»]|[-8-]}
<MI 20658 MOVE.L (A6-0x18),-(A7)> Δ-4 {[«2""»]|[«4""»]|[-8-]|[4, '(A6-0x18)']}
<Const 0x2065a 0x4.4> Δ-4 {[«2""»]|[«4""»]|[-8-]|[4, '(A6-0x18)']|[##4]}
<Call 0x2065e 0x102e8> {[«2""»]|[«4""»]|[-8-]|[4, '(A6-0x18)']|[##4]}
Long2HexString(val : Long; ndig : Long) : String
<POP 20664-20666 StackAdj> Δ+4 {[«2""»]|[«4""»]|[-8-]|[4, '(A6-0x18)']}
<Lit 0x20666 2> {[«2""»]|[«4""»]|[-8-]|[$$:_]}
<POP 20672-20674 StackAdj> Δ-4 {[«2""»]|[«4""»]|[-8-]|[$$:_]|[-4-]}
<MI 20674 MOVE.L (A6-0x8),(A7)> {[«2""»]|[«4""»]|[-8-]|[$$:_]|[4, '(A6-0x8)']}
<POP 20676-20678 StackAdj> Δ-4 {[«2""»]|[«4""»]|[-8-]|[$$:_]|[4, '(A6-0x8)']|[-4-]}
<Lit 0x20678 4> {[«2""»]|[«4""»]|[-8-]|[$$:_]|[4, '(A6-0x8)']|[$$____]}
<Call 0x20686 0x102d8> {[«2""»]|[«4""»]|[-8-]|[$$:_]|[4, '(A6-0x8)']|[$$____]}
StringCat4(a, b, c, d : String) : String
<POP 2068c-20690 StackAdj> Δ+16 {[«2""»]|[«4""»]|[-4-]}
<MI 20690 MOVE.L (A7)+,(A6-0x8)> Δ+4 {[«2""»]|[«4""»]}
<POP 20692-20694 StackAdj> Δ+6 {}
<MI 20694 MOVEQ.L #0x00,D6> {}
<POP 20696-206c2 Naked> Σ0 ↓ →0x206d2 ←0x206fe
<MI 20696 MOVE.L D6,D4> {}
<MI 20698 MOVEQ.L #0x02,D3> {}
<Call 0x2069a 0x10294> {}
?divs_d3_d4
<MI 206a0 ADD.L (A6-0x18),D4> {}
<POP 0x206a2 LimitCheck 0x0 ≤ D4 ≤ 0xfff> {}
<MI 206ac ASL.L #0x1,D4> {}
<MI 206ae LEA.L 0x24be4,A0> {}
<MI 206b4 CLR.L D0> {}
<MI 206b6 MOVE.W (A0+D4.L+#0xa),D0> {}
<MI 206ba MOVE.L D0,D7> {}
<MI 206bc MOVE.L D6,D0> {}
<MI 206be AND.L #0x01,D0> {}
<MI 206c0 BNE 0x206d2> {}
<POP 206c2-206d2 Naked> Σ0 ↓
<MI 206c2 MOVE.L D7,D4> {}
<MI 206c4 MOVE.L #0x100,D3> {}
<Call 0x206ca 0x10294> {}
?divs_d3_d4
<MI 206d0 MOVE.L D4,D7> {}
<POP 206d2-206e0 Naked> Σ0 ↓ →0x206e8 ←0x20696
<MI 206d2 ANDI.L #0x000000ff,D7> {}
<MI 206d8 CMPI.L #0x00000020,D7> {}
<MI 206de BLT 0x206e8> {}
<POP 206e0-206e8 Naked> Σ0 ↓ →0x206f0
<MI 206e0 CMPI.L #0x0000007e,D7> {}
<MI 206e6 BLE 0x206f0> {}
<POP 206e8-206f0 Naked> Σ0 Δ-6 →0x206fe ←0x206d2
<MI 206e8 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<Const 0x206ea 0x2e.2> Δ-2 {[4, '(A6-0x8)']|[#46]}
<MI 206ee BRA 0x206fe> {[4, '(A6-0x8)']|[#46]}
<POP 206f0-206fe Naked> Σ0 Δ-6 ↓ ←0x206e0
<MI 206f0 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<POP 0x206f2 LimitCheck 0x0 ≤ D7 ≤ 0xff> {[4, '(A6-0x8)']}
<MI 206fc MOVE.B D7,-(A7)> Δ-2 {[4, '(A6-0x8)']|[2, 'D7']}
<POP 206fe-20710 Naked> Σ-6 Δ+6 ↓ →0x20696 ←0x206e8
<Call 0x206fe 0x102c0> {[-6-]}
AppendChar(MOD b : String; a : char)
<POP 20704-20706 StackAdj> Δ+6 {}
<MI 20706 ADDQ.L #0x1,D6> {}
<MI 20708 CMPI.L #0x0000000f,D6> {}
<MI 2070e BLE 0x20696> {}
<POP 20710-20718 Naked> Σ0 Δ-4 ↓
<MI 20710 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<Call 0x20712 0x103e0> {[4, '(A6-0x8)']}
WriteConsoleStringCrLf(str : String)
<POP 20718-20720 Naked> Σ-4 Δ+4 →0x20568 ←0x205f0
<POP 20718-2071a StackAdj> Δ+4 {}
<MI 2071a ADDQ.L #0x8,(A6-0x18)> {}
<MI 2071c BRA 0x20568> {}
<POP 20720-20724 Naked> Σ0 ↓ →0x20760 ←0x20568
<MI 20720 TST.L D5> {}
<MI 20722 BEQ 0x20760> {}
<POP 20724-20760 Naked> Σ0 ↓
<Blob 0x20724 [22] @> Δ-22 {[«22""»]}
<POP 20736-20738 StackAdj> Δ-8 {[«22""»]|[-8-]}
<MI 20738 MOVE.L D5,-(A7)> Δ-4 {[«22""»]|[-8-]|[4, 'D5']}
<Call 0x2073a 0x102e4> {[«22""»]|[-8-]|[4, 'D5']}
Long2String(a : Long) : String
<Lit 0x20740 21> {[«22""»]|[-8-]|[$$ lines same as above.]}
<Call 0x2074e 0x102d0> {[«22""»]|[-8-]|[$$ lines same as above.]}
StringCat2(a, b : String) : String
<POP 20754-20756 StackAdj> Δ+8 {[«22""»]|[-4-]}
<Call 0x20756 0x103e0> {[«22""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 2075c-20760 StackAdj> Δ+26 {}
<POP 20760-2076c Naked> Σ0 ↓ ←0x20720
<Pointer.fp 0x20760 <LVAR -0x00c @ 4(r)>> Δ-4 {[@@-12]}
<Call 0x20764 0x102bc> {[@@-12]}
FreeString(VAR a : String)
<POP 2076a-2076c StackAdj> Δ+4 {}
<POP 2076c-20774 Epilogue> Σ0
@ 20774
<LVAR -0x008 @ 1(r)>
<POP 20774-20800 Body>
<POP 20774-2078a Prologue> Σ0 ↓
<POP 2078a-20794 RegCacheLoad> Σ0 ↓
<POP 20794-207ba Naked> Σ0 ↓ →0x207c8
<MI 20794 LEA.L 0x24bee,A0> {}
<MI 2079a MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Const 0x2079c 0x2000.2> Δ-2 {[4, 'A0']|[#8192]}
<Call 0x2079e 0x10418> {[4, 'A0']|[#8192]}
FSCALL_10418
<POP 207a4-207a6 StackAdj> Δ+6 {}
<Pointer.fp 0x207a6 <LVAR -0x008 @ 1(r)>> Δ-4 {[@@-8]}
<Call 0x207a8 0x10408> {[@@-8]}
FSCALL_10408
<POP 207ae-207b0 StackAdj> Δ+4 {}
<MI 207b0 MOVEQ.L #-0x01,D7> {}
<MI 207b2 MOVE.B (A6-0x8),D0> {}
<MI 207b4 CMPI.B #0x07,D0> {}
<MI 207b8 BNE 0x207c8> {}
<POP 207ba-207c8 Naked> Σ0 →0x207e8
<POP 207ba-207bc StackAdj> Δ-4 {[-4-]}
<Call 0x207bc 0x10430> {[-4-]}
FSCALL_10430
<MI 207c2 MOVE.L #0x2000,D7> {[-4-]}
<MI 207c4 SUB.L (A7)+,D7> Δ+4 {}
<MI 207c6 BRA 0x207e8> {}
<POP 207c8-207ce Naked> Σ0 ↓ →0x207d2 ←0x20794
<MI 207c8 CMPI.B #0x06,D0> {}
<MI 207cc BNE 0x207d2> {}
<POP 207ce-207d2 Naked> Σ0 →0x207e8
<MI 207ce MOVEQ.L #0x00,D7> {}
<MI 207d0 BRA 0x207e8> {}
<POP 207d2-207d6 Naked> Σ0 ↓ →0x207da ←0x207c8
<MI 207d2 TST.B D0> {}
<MI 207d4 BNE 0x207da> {}
<POP 207d6-207da Naked> Σ0 →0x207e8
<MI 207d6 MOVE.L #0x2000,D7> {}
<MI 207d8 BRA 0x207e8> {}
<POP 207da-207e8 Naked> Σ0 ↓ ←0x207d2
<Const 0x207da 0x1.2> Δ-2 {[#1]}
<Pointer.fp 0x207de <LVAR -0x008 @ 1(r)>> Δ-4 {[#1]|[@@-8]}
<Call 0x207e0 0x10428> {[#1]|[@@-8]}
FSCALL_10428
<POP 207e6-207e8 StackAdj> Δ+6 {}
<POP 207e8-207f0 Naked> Σ0 ↓ →0x207f8 ←0x207ba ←0x207ce ←0x207d6
<MI 207e8 CMPI.L #0xffffffff,D7> {}
<MI 207ee BEQ 0x207f8> {}
<POP 207f0-207f8 Naked> Σ0 ↓
<MI 207f0 MOVE.L D7,-(A7)> Δ-4 {[4, 'D7']}
<Call 0x207f2 0x204ba> {[4, 'D7']}
<POP 207f6-207f8 StackAdj> Δ+4 {}
<POP 207f8-20800 Epilogue> Σ0 ←0x207e8
@ 20800
<LVAR 0x008 4(r)>
<POP 20800-20868 Body>
<POP 20800-20816 Prologue> Σ0 ↓
<POP 20816-2081c RegCacheLoad> Σ0 ↓
<POP 2081c-20820 Naked> Σ0 ↓ →0x2084e
<MI 2081c TST.B 0x24bec> {}
<MI 2081e BNE 0x2084e> {}
<POP 20820-2084e Naked> Σ0 →0x20860
<Blob 0x20820 [14] @> Δ-14 {[«14""»]}
<POP 2082c-2082e StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x2082e 14> {[«14""»]|[$$No device open]}
<Call 0x20842 0x210ea> {[«14""»]|[$$No device open]}
<POP 20848-2084c StackAdj> Δ+18 {}
<MI 2084c BRA 0x20860> {}
<POP 2084e-20856 Naked> Σ0 ↓ →0x20860 ←0x2081c
<MI 2084e MOVE.B 0x24bec,D0> {}
<MI 20850 CMPI.B #0x03,D0> {}
<MI 20854 BNE 0x20860> {}
<POP 20856-20860 Naked> Σ0 ↓
<MI 20856 MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<Call 0x2085a 0x20774> {[4, '(A6+0x8)']}
<POP 2085e-20860 StackAdj> Δ+4 {}
<POP 20860-20868 Epilogue> Σ0 ←0x20820 ←0x2084e
@ 20868
<LVAR -0x004 @ 1(r)>
<POP 20868-208e0 Body>
<POP 20868-2087e Prologue> Σ0 ↓
<POP 2087e-20884 RegCacheLoad> Σ0 ↓
<POP 20884-20890 Naked> Σ0 ↓ →0x208bc
<MI 20884 MOVE.B 0x24bec,D0> {}
<MI 2088a CMPI.B #0x03,D0> {}
<MI 2088e BEQ 0x208bc> {}
<POP 20890-208bc Naked> Σ0 →0x208d8
<Blob 0x20890 [28] @> Δ-28 {[«28""»]}
<POP 2089c-2089e StackAdj> Δ-4 {[«28""»]|[-4-]}
<Lit 0x2089e 28> {[«28""»]|[$$Cannot rewind current device]}
<Call 0x208b0 0x210ea> {[«28""»]|[$$Cannot rewind current device]}
<POP 208b6-208ba StackAdj> Δ+32 {}
<MI 208ba BRA 0x208d8> {}
<POP 208bc-208cc Naked> Σ0 ↓ →0x208d8 ←0x20884
<MI 208bc CLR.B -(A7)> Δ-2 {[#0]}
<Pointer.fp 0x208be <LVAR -0x004 @ 1(r)>> Δ-4 {[#0]|[@@-4]}
<Call 0x208c0 0x10414> {[#0]|[@@-4]}
FSCALL_10414
<POP 208c6-208c8 StackAdj> Δ+6 {}
<MI 208c8 TST.B (A6-0x4)> {}
<MI 208ca BEQ 0x208d8> {}
<POP 208cc-208d8 Naked> Σ0 ↓
<Const 0x208cc 0x1.2> Δ-2 {[#1]}
<Pointer.fp 0x208ce <LVAR -0x004 @ 1(r)>> Δ-4 {[#1]|[@@-4]}
<Call 0x208d0 0x10428> {[#1]|[@@-4]}
FSCALL_10428
<POP 208d6-208d8 StackAdj> Δ+6 {}
<POP 208d8-208e0 Epilogue> Σ0 ←0x20890 ←0x208bc
@ 208e0
<LVAR 0x00c 4(w)>
<LVAR 0x008 4(r)>
<LVAR -0x008 @ 4(rw)>
<POP 208e0-2097c Body>
<POP 208e0-208f6 Prologue> Σ0 ↓
<POP 208f6-20900 RegCacheLoad> Σ0 ↓
<POP 20900-2090a Naked> Σ0 ↓
<MI 20900 MOVE.L #0xffffffff,(A6+0xc)> {}
<MI 20908 MOVEQ.L #0x00,D7> {}
<POP 2090a-20968 Naked> Σ0 ↓ →0x2096e ←0x2096e
<POP 0x2090a LimitCheck 0x0 ≤ D7 ≤ 0x3> {}
<MI 20910 MOVE.L D7,D4> {}
<MI 20912 MOVEQ.L #0x0a,D3> {}
<Call 0x20914 0x1028c> {}
?muls_d3_d4
<MI 2091a LEA.L 0x201f2,A0> {}
<Blob 0x2091e [10] (A0+D4.L)> Δ-10 {[«10»]}
<POP 2092e-20930 StackAdj> Δ-4 {[«10»]|[-4-]}
<Lit 0x20930> {[«10»]|[$$…]}
<Pointer.sp 0x20930 4> Δ-4
<Const 0x20934 0x1.2> Δ-2
<Const 0x20936 0xa.2> Δ-2
<Call 0x20938 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 2093e-20940 StackAdj> Δ+8
<MI 20940 MOVE.L (A7)+,(A6-0x8)> Δ+4 {[«10»]}
<POP 20942-20944 StackAdj> Δ+4 {[-6-]}
<MI 20944 MOVE.L (A6+0x8),(A7)> {[-2-]|[4, '(A6+0x8)']}
<MI 20948 MOVE.L (A6-0x8),-(A7)> Δ-4 {[-2-]|[4, '(A6+0x8)']|[4, '(A6-0x8)']}
<Call 0x2094a 0x102c8> {[-2-]|[4, '(A6+0x8)']|[4, '(A6-0x8)']}
StringEqual(a, b : String) : Byte
<POP 20950-20952 StackAdj> Δ+8 {[-2-]}
<MI 20952 MOVE.B (A7)+,D0> Δ+2 {}
<MI 20954 EXTB.W D0> {}
<POP 0x20956 LimitCheck 0x0 ≤ D0 ≤ 0x1> {}
<MI 20958 MOVE.B D0,D6> {}
<Pointer.fp 0x2095a <LVAR -0x008 @ 4(rw)>> Δ-4 {[@@-8]}
<Call 0x2095c 0x102bc> {[@@-8]}
FreeString(VAR a : String)
<POP 20962-20964 StackAdj> Δ+4 {}
<MI 20964 TST.B D6> {}
<MI 20966 BEQ 0x2096e> {}
<POP 20968-2096e Naked> Σ0 →0x20974
<MI 20968 MOVE.L D7,(A6+0xc)> {}
<MI 2096c BRA 0x20974> {}
<POP 2096e-20974 Naked> Σ0 ↓ →0x2090a ←0x2090a
<MI 2096e ADDQ.L #0x1,D7> {}
<MI 20970 CMP.L #0x03,D7> {}
<MI 20972 BLE 0x2090a> {}
<POP 20974-2097c Epilogue> Σ0 ←0x20968
@ 2097c
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 2097c-209f2 Body> Δ+12
<POP 2097c-20992 Prologue> Σ0 ↓
<POP 20992-20996 RegCacheLoad> Σ0 ↓
<POP 20996-209b4 Naked> Σ0 ↓ →0x209e8
<MI 20996 MOVEA.L (A6+0x8),A0> {}
<MI 2099a MOVE.B #0x01,(A0)> {}
<POP 2099e-209a0 StackAdj> Δ-4 {[-4-]}
<MI 209a0 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x10)']}
<Call 0x209a4 0x208e0> {[-4-]|[4, '(A6+0x10)']}
<POP 209a8-209aa StackAdj> Δ+4 {[-4-]}
<MI 209aa MOVE.L (A7)+,D0> Δ+4 {}
<MI 209ac CMPI.L #0x00000003,D0> {}
<MI 209b2 BHI 0x209e8> {}
<POP 209b4-209be Naked> Σ0 →0x209c6 →0x209d0 →0x209d8 →0x209e0
<MI 209b4 ADD.W D0,D0> {}
<MI 209b6 SWITCH D0.W> {}
<POP 209c6-209cc Naked> Σ0 Δ-4 ↓ ←0x209b4
<MI 209c6 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<Call 0x209c8 0x20800> {[4, '(A6+0xc)']}
<POP 209cc-209d0 Naked> Σ-4 Δ+4 →0x209ea ←0x209d0 ←0x209d8 ←0x209e0
<POP 209cc-209ce StackAdj> Δ+4 {}
<MI 209ce BRA 0x209ea> {}
<POP 209d0-209d8 Naked> Σ0 Δ-4 →0x209cc ←0x209b4
<MI 209d0 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<Call 0x209d2 0x20868> {[4, '(A6+0xc)']}
<MI 209d6 BRA 0x209cc> {[4, '(A6+0xc)']}
<POP 209d8-209e0 Naked> Σ0 Δ-4 →0x209cc ←0x209b4
<MI 209d8 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<Call 0x209da 0x2021a> {[4, '(A6+0xc)']}
<MI 209de BRA 0x209cc> {[4, '(A6+0xc)']}
<POP 209e0-209e8 Naked> Σ0 Δ-4 →0x209cc ←0x209b4
<MI 209e0 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<Call 0x209e2 0x20454> {[4, '(A6+0xc)']}
<MI 209e6 BRA 0x209cc> {[4, '(A6+0xc)']}
<POP 209e8-209ea Naked> Σ0 ↓ ←0x20996
<MI 209e8 CLR.B (A0)> {}
<POP 209ea-209f2 Epilogue> Σ0 ←0x209cc
@ 209f2
<LVAR 0x008 4(r)>
<POP 209f2-20a2c Body>
<POP 209f2-20a08 Prologue> Σ0 ↓
<POP 20a08-20a24 Naked> Σ0 ↓
<Call 0x20a08 0x10398> {}
FSCALL_10398
<MI 20a0e MOVEA.L (A6+0x8),A0> {}
<MI 20a12 LEA.L 0x201e8,A1> {}
<BlockMove 10,A1,A0> {}
<MI 20a1e CLR.B 0x24bec> {}
<POP 20a24-20a2c Epilogue> Σ0
@ 210a8
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 4(w)>
<POP 210a8-210ea Body>
<POP 210a8-210be Prologue> Σ0 ↓
<POP 210be-210c2 Naked> Σ0 ↓
<MI 210be MOVEA.L (A6+0x8),A4> {}
<POP 210c2-210c8 Naked> Σ0 ↓ →0x210e2 ←0x210c8
<MI 210c2 CMPA.W #0x1,A4> {}
<MI 210c6 BEQ 0x210e2> {}
<POP 210c8-210e2 Naked> Σ0 →0x210c2
<MI 210c8 MOVE.L A4,(A6-0x4)> {}
<MI 210cc MOVEA.L (A4+0x8),A4> {}
<Pointer.fp 0x210d0 <LVAR -0x004 @ 4(w)>> Δ-4 {[@@-4]}
<Const 0x210d4 0xc.4> Δ-4 {[@@-4]|[##12]}
<Call 0x210d8 0x102a8> {[@@-4]|[##12]}
Free2(a : Pointer; b : Long)
<POP 210de-210e0 StackAdj> Δ+8 {}
<MI 210e0 BRA 0x210c2> {}
<POP 210e2-210ea Epilogue> Σ0 ←0x210c2
@ 210ea
<LVAR 0x008 4(r)>
<POP 210ea--0001 Body>
<POP 210ea-21100 Prologue> Σ0 ↓
<POP 21100-2110a Naked> Σ0 ↓ →0x21114
<MI 21100 MOVEA.L (A6+0x8),A0> {}
<MI 21104 CMPA.W #0x1,A0> {}
<MI 21108 BEQ 0x21114> {}
<POP 2110a-21114 Naked> Σ0 ↓
<MI 2110a MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Call 0x2110c 0x103e0> {[4, 'A0']}
WriteConsoleStringCrLf(str : String)
<POP 21112-21114 StackAdj> Δ+4 {}
<POP 21114-21122 Naked> Σ0 ←0x21100
<POP 21114-21122 Bailout> {}
<MI 21114 MOVEA.L (A5+0x8),A7>
<MI 21118 MOVEA.W #0x0,A6>
<MI 2111c JMP 0x249c6>
@ 21148
<LVAR 0x008 1(rw)>
<POP 21148-21186 Body>
<POP 21148-2115e Prologue> Σ0 ↓
<POP 2115e-2116c Naked> Σ0 ↓ →0x21172
<MI 2115e MOVE.L 0x27bfc,D0> {}
<MI 21164 CMP.L 0x27c00,D0> {}
<MI 2116a BLE 0x21172> {}
<POP 2116c-21172 Naked> Σ0 →0x2117e
<MI 2116c CLR.B (A6+0x8)> {}
<MI 21170 BRA 0x2117e> {}
<POP 21172-2117e Naked> Σ0 ↓ ←0x2115e
<MI 21172 LEA.L 0x26bf4,A0> {}
<MI 21178 MOVE.B (A0+D0.L+#0x7),(A6+0x8)> {}
<POP 2117e-21186 Epilogue> Σ0 ←0x2116c
@ 21186
<LVAR 0x008 1(rw)>
<POP 21186-211ca Body>
<POP 21186-2119c Prologue> Σ0 ↓
<POP 2119c-211a2 RegCacheLoad> Σ0 ↓
<POP 211a2-211ac Naked> Σ0 ↓ →0x211b2
<MI 211a2 MOVE.L 0x27bfc,D0> {}
<MI 211a4 CMP.L 0x27c00,D0> {}
<MI 211aa BLE 0x211b2> {}
<POP 211ac-211b2 Naked> Σ0 →0x211be
<MI 211ac CLR.B (A6+0x8)> {}
<MI 211b0 BRA 0x211be> {}
<POP 211b2-211be Naked> Σ0 ↓ ←0x211a2
<MI 211b2 LEA.L 0x26bf4,A0> {}
<MI 211b8 MOVE.B (A0+D0.L+#0x7),(A6+0x8)> {}
<POP 211be-211c2 Naked> Σ0 ↓ ←0x211ac
<MI 211be ADDQ.L #0x1,D0> {}
<MI 211c0 MOVE.L D0,0x27bfc> {}
<POP 211c2-211ca Epilogue> Σ0
@ 211ca
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 211ca-212a4 Body>
<POP 211ca-211e0 Prologue> Σ0 ↓
<POP 211e0-211f2 RegCacheLoad> Σ0 ↓
<POP 211f2-211fe Naked> Σ0 ↓ →0x21208 ←0x21298
<POP 211f2-211f4 StackAdj> Δ-2 {[-2-]}
<Call 0x211f4 0x21148> {[-2-]}
<MI 211f8 MOVE.B (A7)+,D0> Δ+2 {}
<MI 211fa CMP.B #0x5b,D0> {}
<MI 211fc BNE 0x21208> {}
<POP 211fe-21208 Naked> Σ0 →0x21298
<Call 0x211fe 0x244d0> {}
<MI 21204 BRA 0x21298> {}
<POP 21208-21214 Naked> Σ0 ↓ →0x2122c ←0x211f2
<MI 21208 MOVE.L 0x27bfc,D6> {}
<POP 2120a-2120c StackAdj> Δ-2 {[-2-]}
<Call 0x2120c 0x21186> {[-2-]}
<MI 21210 MOVE.B (A7)+,D5> Δ+2 {}
<MI 21212 BNE 0x2122c> {}
<POP 21214-2122a Naked> Σ0 →0x2129c
<MI 21214 MOVEA.L (A6+0xc),A0> {}
<MI 21218 LEA.L 0x21002,A1> {}
<BlockMove 8,A1,A0> {}
<MI 21224 MOVEA.L (A6+0x8),A0> {}
<MI 21226 MOVE.B #0x02,(A0)> {}
<MI 21228 BRA 0x2129c> {}
<POP 2122c-21230 Naked> Σ0 ↓ →0x21238 ←0x21208
<MI 2122c CMP.B #0x2c,D5> {}
<MI 2122e BNE 0x21238> {}
<POP 21230-21238 Naked> Σ0 →0x21288
<MI 21230 MOVEA.L (A6+0x8),A0> {}
<MI 21232 MOVE.B #0x03,(A0)> {}
<MI 21236 BRA 0x21288> {}
<POP 21238-2123c Naked> Σ0 ↓ →0x21244 ←0x2122c
<MI 21238 CMP.B #0x3b,D5> {}
<MI 2123a BNE 0x21244> {}
<POP 2123c-21244 Naked> Σ0 →0x21288
<MI 2123c MOVEA.L (A6+0x8),A0> {}
<MI 2123e MOVE.B #0x01,(A0)> {}
<MI 21242 BRA 0x21288> {}
<POP 21244-2124a Naked> Σ0 ↓ →0x21250 ←0x21238
<MI 21244 CMPI.B #0x5d,D5> {}
<MI 21248 BNE 0x21250> {}
<POP 2124a-21250 Naked> Σ0 →0x21288
<MI 2124a MOVEA.L (A6+0x8),A0> {}
<MI 2124c MOVE.B #0x02,(A0)> {}
<MI 2124e BRA 0x21288> {}
<POP 21250-21254 Naked> Σ0 ↓ ←0x21244
<MI 21250 MOVEA.L (A6+0x8),A0> {}
<MI 21252 CLR.B (A0)> {}
<POP 21254-21260 Naked> Σ0 ↓ →0x21268 ←0x21286
<POP 21254-21256 StackAdj> Δ-2 {[-2-]}
<Call 0x21256 0x21148> {[-2-]}
<MI 2125a MOVE.B (A7)+,D7> Δ+2 {}
<MI 2125c CMP.B #0x5b,D7> {}
<MI 2125e BNE 0x21268> {}
<POP 21260-21268 Naked> Σ0 →0x21286
<Call 0x21260 0x244d0> {}
<MI 21266 BRA 0x21286> {}
<POP 21268-2126c Naked> Σ0 ↓ →0x2127a ←0x21254
<MI 21268 CMP.B #0x3b,D7> {}
<MI 2126a BEQ 0x2127a> {}
<POP 2126c-21270 Naked> Σ0 ↓ →0x2127a
<MI 2126c CMP.B #0x2c,D7> {}
<MI 2126e BEQ 0x2127a> {}
<POP 21270-21276 Naked> Σ0 ↓ →0x2127a
<MI 21270 CMPI.B #0x5d,D7> {}
<MI 21274 BEQ 0x2127a> {}
<POP 21276-2127a Naked> Σ0 ↓ →0x2127e
<MI 21276 TST.B D7> {}
<MI 21278 BNE 0x2127e> {}
<POP 2127a-2127c Naked> Σ0 →0x21288 ←0x21268 ←0x2126c ←0x21270
<MI 2127a BRA 0x21288> {}
<POP 2127e-21286 Naked> Σ0 ↓ ←0x21276
<POP 2127e-21280 StackAdj> Δ-2 {[-2-]}
<Call 0x21280 0x21186> {[-2-]}
<MI 21284 MOVE.B (A7)+,D7> Δ+2 {}
<POP 21286-21288 Naked> Σ0 →0x21254 ←0x21260
<MI 21286 BRA 0x21254> {}
<POP 21288-21298 Naked> Σ0 →0x2129c ←0x21230 ←0x2123c ←0x2124a ←0x2127a
<MI 21288 MOVEA.L (A6+0xc),A0> {}
<MI 2128c MOVE.L D6,(A0)> {}
<MI 2128e MOVE.L 0x27bfc,(A0+0x4)> {}
<MI 21292 SUBQ.L #0x1,(A0+0x4)> {}
<MI 21296 BRA 0x2129c> {}
<POP 21298-2129c Naked> Σ0 →0x211f2 ←0x211fe
<MI 21298 BRA 0x211f2> {}
<POP 2129c-212a4 Epilogue> Σ0 ←0x21214 ←0x21288
@ 212a4
<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 212a4-21342 Body>
<POP 212a4-212ba Prologue> Σ0 ↓
<POP 212ba-212c4 RegCacheLoad> Σ0 ↓
<POP 212c4-212d0 Naked> Σ0 ↓ →0x212d6
<MI 212c4 MOVEA.L (A6+0x8),A0> {}
<MI 212c8 MOVE.B (A0),D0> {}
<MI 212ca CMPI.B #0x01,D0> {}
<MI 212ce BEQ 0x212d6> {}
<POP 212d0-212d6 Naked> Σ0 ↓ →0x212e4
<MI 212d0 CMPI.B #0x02,D0> {}
<MI 212d4 BNE 0x212e4> {}
<POP 212d6-212e4 Naked> Σ0 →0x21320 ←0x212c4
<MI 212d6 MOVE.L 0x21002,(A6-0xc)> {}
<MI 212da MOVE.L 0x21006,(A6-0x8)> {}
<MI 212e0 MOVE.B D0,(A6-0x4)> {}
<MI 212e2 BRA 0x21320> {}
<POP 212e4-212f6 Naked> Σ0 ↓ →0x21312 ←0x212d0 ←0x2131a
<Pointer.fp 0x212e4 <LVAR -0x00c @ 4(w)>> Δ-4 {[@@-12]}
<Pointer.fp 0x212e6 <LVAR -0x004 @ 1(rw)>> Δ-4 {[@@-12]|[@@-4]}
<Call 0x212e8 0x211ca> {[@@-12]|[@@-4]}
<POP 212ec-212ee StackAdj> Δ+8 {}
<MI 212ee MOVEA.L (A6+0x8),A0> {}
<MI 212f2 TST.B (A6-0x4)> {}
<MI 212f4 BEQ 0x21312> {}
<POP 212f6-212fc Naked> Σ0 ↓ →0x21312
<MI 212f6 MOVE.B (A0),D0> {}
<MI 212f8 CMP.B #0x03,D0> {}
<MI 212fa BNE 0x21312> {}
<POP 212fc-21312 Naked> Σ0 →0x2131a
<MI 212fc MOVE.B (A6-0x4),D0> {}
<MI 212fe EXTB.W D0> {}
<POP 0x21300 LimitCheck 0x0 ≤ D0 ≤ 0x3> {}
<MI 21302 MOVE.B D0,(A0)> {}
<MI 21304 MOVE.L 0x21002,(A6-0xc)> {}
<MI 21308 MOVE.L 0x21006,(A6-0x8)> {}
<MI 2130e CLR.B (A6-0x4)> {}
<MI 21310 BRA 0x2131a> {}
<POP 21312-2131a Naked> Σ0 ↓ ←0x212e4 ←0x212f6
<MI 21312 MOVE.B (A6-0x4),D0> {}
<MI 21314 EXTB.W D0> {}
<POP 0x21316 LimitCheck 0x0 ≤ D0 ≤ 0x3> {}
<MI 21318 MOVE.B D0,(A0)> {}
<POP 2131a-21320 Naked> Σ0 ↓ →0x212e4 ←0x212fc
<MI 2131a MOVE.B (A6-0x4),D0> {}
<MI 2131c CMP.B #0x03,D0> {}
<MI 2131e BEQ 0x212e4> {}
<POP 21320-2133a Naked> Σ0 ↓ ←0x212d6
<MI 21320 MOVEA.L (A6+0x10),A0> {}
<MI 21324 LEA.L (A6-0xc),A1> {}
<BlockMove 8,A1,A0> {}
<MI 2132e MOVEA.L (A6+0xc),A0> {}
<MI 21332 MOVE.B (A6-0x4),D0> {}
<MI 21334 EXTB.W D0> {}
<POP 0x21336 LimitCheck 0x0 ≤ D0 ≤ 0x3> {}
<MI 21338 MOVE.B D0,(A0)> {}
<POP 2133a-21342 Epilogue> Σ0
@ 21342
<LVAR 0x008 4(rw)>
<LVAR -0x004 1(rw)>
<LVAR -0x010 2(rw)>
<POP 21342-2144a Body>
<POP 21342-21358 Prologue> Σ0 ↓
<POP 21358-21366 RegCacheLoad> Σ0 ↓
<POP 21366-2137e Naked> Σ0 Δ-4 ↓
<MI 21366 MOVEQ.L #0x01,D6> {}
<MI 21368 CLR.W (A6-0x10)> {}
<MI 2136a MOVEQ.L #0x01,D5> {}
<POP 2136c-2136e StackAdj> Δ-4 {[-4-]}
<MI 2136e MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x21370 0x102f0> {[-4-]|[4, '(A6+0x8)']}
ToUpper(a : String) : String
<POP 21376-21378 StackAdj> Δ+4 {[-4-]}
<MI 21378 MOVE.L (A7)+,(A6+0x8)> Δ+4 {}
<MI 2137a MOVEA.L (A6+0x8),A0> {}
<MI 2137c MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<POP 2137e-2138a Naked> Σ-4 ↓ →0x21438 ←0x2141e
<MI 2137e MOVEA.L (A7),A0> {[-4-]}
<MI 21380 MOVE.W (A0),D0> {[-4-]}
<MI 21382 EXTW.L D0> {[-4-]}
<MI 21384 CMP.L D0,D6> {[-4-]}
<MI 21386 BGT 0x21438> {[-4-]}
<POP 2138a-2139c Naked> Σ-4 ↓ →0x2139e
<MI 2138a CLR.L D0> {[-4-]}
<MI 2138c MOVE.B (A0+D6.L+#0x1),D0> {[-4-]}
<MI 21390 ANDI.W #0x007f,D0> {[-4-]}
<MI 21394 MOVE.B D0,(A6-0x4)> {[-4-]}
<MI 21396 CMPI.B #0x09,D0> {[-4-]}
<MI 2139a BNE 0x2139e> {[-4-]}
<POP 2139c-2139e Naked> Σ-4 ↓
<MI 2139c MOVE.B #0x20,(A6-0x4)> {[-4-]}
<POP 2139e-213aa Naked> Σ-4 ↓ →0x213da ←0x2138a
<MI 2139e CLR.L D0> {[-4-]}
<MI 213a0 MOVE.B (A6-0x4),D0> {[-4-]}
<MI 213a2 SUB.W #0x20,D0> {[-4-]}
<MI 213a4 CMPI.W #0x000c,D0> {[-4-]}
<MI 213a8 BHI 0x213da> {[-4-]}
<POP 213aa-213b4 Naked> Σ-4 →0x213d2 →0x213ce →0x213da →0x213da →0x213da →0x213da →0x213da →0x213da →0x213da →0x213da →0x213da →0x213da →0x213d6
<MI 213aa ADD.W D0,D0> {[-4-]}
<MI 213ac SWITCH D0.W> {[-4-]}
<POP 213ce-213d0 Naked> Σ-4 →0x21438 ←0x213aa
<MI 213ce BRA 0x21438> {[-4-]}
<POP 213d2-213d6 Naked> Σ-4 →0x213dc ←0x213aa
<MI 213d2 MOVEQ.L #0x00,D7> {[-4-]}
<MI 213d4 BRA 0x213dc> {[-4-]}
<POP 213d6-213da Naked> Σ-4 →0x213dc ←0x213aa
<MI 213d6 MOVEQ.L #0x01,D7> {[-4-]}
<MI 213d8 BRA 0x213dc> {[-4-]}
<POP 213da-213dc Naked> Σ-4 ↓ ←0x2139e ←0x213aa ←0x213aa ←0x213aa ←0x213aa ←0x213aa ←0x213aa ←0x213aa ←0x213aa ←0x213aa ←0x213aa
<MI 213da MOVEQ.L #0x02,D7> {[-4-]}
<POP 213dc-21400 Naked> Σ-4 →0x21406 →0x21408 →0x21412 ←0x213d2 ←0x213d6
<MI 213dc MOVEQ.L #0x03,D0> {[-4-]}
<MI 213de MULS.W (A6-0x10),D0> {[-4-]}
<MI 213e0 LEA.L 0x2100a,A0> {[-4-]}
<MI 213e4 LEA.L (A0+D0.W),A0> {[-4-]}
<MI 213e8 CLR.L D0> {[-4-]}
<MI 213ea MOVE.B (A0+D7.W),D0> {[-4-]}
<POP 0x213ee LimitCheck 0x0 ≤ D0 ≤ 0x2> {[-4-]}
<MI 213f6 ADD.W D0,D0> {[-4-]}
<MI 213f8 SWITCH D0.W> {[-4-]}
<POP 21406-21408 Naked> Σ-4 →0x2141e ←0x213dc
<MI 21406 BRA 0x2141e> {[-4-]}
<POP 21408-21412 Naked> Σ-4 →0x2141e ←0x213dc
<MI 21408 MOVEA.L (A7),A0> {[-4-]}
<MI 2140a MOVE.B (A6-0x4),(A0+D5.L+#0x1)> {[-4-]}
<MI 2140e ADDQ.L #0x1,D5> {[-4-]}
<MI 21410 BRA 0x2141e> {[-4-]}
<POP 21412-2141e Naked> Σ-4 ↓ ←0x213dc
<MI 21412 MOVEA.L (A7),A0> {[-4-]}
<MI 21414 MOVE.B #0x2c,(A0+D5.L+#0x1)> {[-4-]}
<MI 2141a ADDQ.L #0x1,D5> {[-4-]}
<MI 2141c SUBQ.L #0x1,D6> {[-4-]}
<POP 2141e-21438 Naked> Σ-4 →0x2137e ←0x21406 ←0x21408
<MI 2141e MOVEQ.L #0x03,D0> {[-4-]}
<MI 21420 MULS.W (A6-0x10),D0> {[-4-]}
<MI 21422 LEA.L 0x21013,A0> {[-4-]}
<MI 21426 LEA.L (A0+D0.W),A0> {[-4-]}
<MI 2142a CLR.L D0> {[-4-]}
<MI 2142c MOVE.B (A0+D7.W),D0> {[-4-]}
<MI 21430 MOVE.W D0,(A6-0x10)> {[-4-]}
<MI 21432 ADDQ.L #0x1,D6> {[-4-]}
<MI 21434 BRA 0x2137e> {[-4-]}
<POP 21438-21442 Naked> Σ-4 Δ+4 ↓ ←0x2137e ←0x213ce
<MI 21438 MOVEA.L (A7),A0> {[-4-]}
<MI 2143a MOVE.L D5,D0> {[-4-]}
<MI 2143c SUBQ.L #0x1,D0> {[-4-]}
<MI 2143e MOVE.W D0,(A0)> {[-4-]}
<POP 21440-21442 StackAdj> Δ+4 {}
<POP 21442-2144a Epilogue> Σ0
@ 2144a
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x002 @ 1(r)>
<LVAR -0x00a @>
<LVAR -0x00e @ 4(r)>
<LVAR -0x014 @ 1(r)>
<POP 2144a-214f6 Body>
<POP 2144a-21460 Prologue> Σ0 ↓
<POP 21460-21466 RegCacheLoad> Σ0 ↓
<POP 21466-21474 Naked> Σ0 ↓ →0x2147c
<POP 21466-21468 StackAdj> Δ-2 {[-2-]}
<Call 0x21468 0x21148> {[-2-]}
<MI 2146c MOVE.B (A7)+,D0> Δ+2 {}
<MI 2146e CMPI.B #0x5b,D0> {}
<MI 21472 BNE 0x2147c> {}
<POP 21474-2147c Naked> Σ0 ↓
<POP 21474-21476 StackAdj> Δ-2 {[-2-]}
<Call 0x21476 0x21186> {[-2-]}
<MI 2147a MOVE.B (A7)+,D7> Δ+2 {}
<POP 2147c-21486 Naked> Σ0 ↓ ←0x21466
<MI 2147c MOVEA.L (A6+0xc),A0> {}
<MI 21480 MOVE.L #0x01,(A0)> {}
<MI 21482 CLR.B (A6-0x14)> {}
<POP 21486-214a0 Naked> Σ0 ↓ →0x214d6 ←0x214d6
<Pointer.fp 0x21486 <LVAR -0x00a @>> Δ-4 {[@@-10]}
<Pointer.fp 0x2148a <LVAR -0x002 @ 1(r)>> Δ-4 {[@@-10]|[@@-2]}
<Pointer.fp 0x2148e <LVAR -0x014 @ 1(r)>> Δ-4 {[@@-10]|[@@-2]|[@@-20]}
<Call 0x21492 0x212a4> {[@@-10]|[@@-2]|[@@-20]}
<POP 21496-2149a StackAdj> Δ+12 {}
<MI 2149a TST.B (A6-0x2)> {}
<MI 2149e BNE 0x214d6> {}
<POP 214a0-214cc Naked> Σ0 ↓ →0x214d0
<Pointer.fp 0x214a0 <LVAR -0x00e @ 4(r)>> Δ-4 {[@@-14]}
<Const 0x214a2 0xc.4> Δ-4 {[@@-14]|[##12]}
<Call 0x214a6 0x1029c> {[@@-14]|[##12]}
Malloc1(length : Long) : Pointer
<POP 214ac-214ae StackAdj> Δ+8 {}
<MI 214ae MOVEA.L (A6-0xe),A0> {}
<MI 214b0 MOVEA.L A0,A1> {}
<MI 214b2 LEA.L (A6-0xa),A2> {}
<BlockMove 8,A2,A1> {}
<MI 214be MOVE.L #0x01,(A0+0x8)> {}
<MI 214c2 MOVEA.L (A6+0xc),A0> {}
<MI 214c6 MOVEA.L (A0),A1> {}
<MI 214c8 CMPA.W #0x01,A1> {}
<MI 214ca BNE 0x214d0> {}
<POP 214cc-214d0 Naked> Σ0 →0x214d4
<MI 214cc MOVE.L (A6-0xe),(A0)> {}
<MI 214ce BRA 0x214d4> {}
<POP 214d0-214d4 Naked> Σ0 ↓ ←0x214a0
<MI 214d0 MOVE.L (A6-0xe),(A4+0x8)> {}
<POP 214d4-214d6 Naked> Σ0 ↓ ←0x214cc
<MI 214d4 MOVEA.L (A6-0xe),A4> {}
<POP 214d6-214dc Naked> Σ0 ↓ →0x21486 ←0x21486
<MI 214d6 TST.B (A6-0x2)> {}
<MI 214da BEQ 0x21486> {}
<POP 214dc-214ec Naked> Σ0 ↓ →0x214ee
<MI 214dc MOVEA.L (A6+0x8),A0> {}
<MI 214e0 CLR.B (A0)> {}
<MI 214e2 MOVE.B (A6-0x2),D0> {}
<MI 214e6 CMPI.B #0x02,D0> {}
<MI 214ea BNE 0x214ee> {}
<POP 214ec-214ee Naked> Σ0 ↓
<MI 214ec ADDQ.B #0x1,(A0)> {}
<POP 214ee-214f6 Epilogue> Σ0 ←0x214dc
@ 214f6
<LVAR 0x00c 4(w)>
<LVAR 0x008 4(r)>
<POP 214f6-2152c Body>
<POP 214f6-2150c Prologue> Σ0 ↓
<POP 2150c-21512 Naked> Σ0 ↓
<MI 2150c MOVEQ.L #-0x01,D7> {}
<MI 2150e MOVEA.L (A6+0x8),A4> {}
<POP 21512-21518 Naked> Σ0 ↓ →0x21520 ←0x21518
<MI 21512 CMPA.W #0x1,A4> {}
<MI 21516 BEQ 0x21520> {}
<POP 21518-21520 Naked> Σ0 →0x21512
<MI 21518 ADDQ.L #0x1,D7> {}
<MI 2151a MOVEA.L (A4+0x8),A4> {}
<MI 2151e BRA 0x21512> {}
<POP 21520-21524 Naked> Σ0 ↓ ←0x21512
<MI 21520 MOVE.L D7,(A6+0xc)> {}
<POP 21524-2152c Epilogue> Σ0
@ 2152c
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 2152c-215b8 Body>
<POP 2152c-21542 Prologue> Σ0 ↓
<POP 21542-21544 RegCacheLoad> Σ0 ↓
<POP 21544-21558 Naked> Σ0 ↓ →0x215b0
<POP 21544-21546 StackAdj> Δ-4 {[-4-]}
<MI 21546 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']}
<Call 0x2154a 0x214f6> {[-4-]|[4, '(A6+0xc)']}
<POP 2154e-21550 StackAdj> Δ+4 {[-4-]}
<MI 21550 MOVE.L (A7)+,D0> Δ+4 {}
<MI 21552 CMP.L (A6+0x8),D0> {}
<MI 21556 BEQ 0x215b0> {}
<POP 21558-215b0 Naked> Σ0 ↓
<MI 21558 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<Call 0x2155c 0x210a8> {[4, '(A6+0xc)']}
<POP 21560-21562 StackAdj> Δ+4 {}
<Blob 0x21562 [32] @> Δ-32 {[«32""»]}
<Blob 0x2156e [10] (A6+0x1a)> Δ-10 {[«32""»]|[«10»]}
<POP 2157a-2157c StackAdj> Δ-8 {[«32""»]|[«10»]|[-8-]}
<Lit 0x2157c 32> {[«32""»]|[«10»]|[-4-]|[$$Wrong number of arguments for :_]}
<POP 2158c-2158e StackAdj> Δ-4 {[«32""»]|[«10»]|[-4-]|[$$Wrong number of arguments for :_]|[-4-]}
<Lit 0x2158e> {[«32""»]|[«10»]|[-4-]|[$$Wrong number of arguments for :_]|[$$…]}
<Pointer.sp 0x2158e 12> Δ-4
<Const 0x21592 0x1.2> Δ-2
<Const 0x21594 0xa.2> Δ-2
<Call 0x21598 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 2159e-215a0 StackAdj> Δ+8
<Call 0x215a0 0x102d0> {[«32""»]|[«10»]|[-4-]|[$$Wrong number of arguments for :_]|[$$…]}
StringCat2(a, b : String) : String
<POP 215a6-215a8 StackAdj> Δ+8 {[«32""»]|[«10»]|[-4-]}
<Call 0x215a8 0x210ea> {[«32""»]|[«10»]|[-4-]}
<POP 215ac-215b0 StackAdj> Δ+46 {}
<POP 215b0-215b8 Epilogue> Σ0 ←0x21544
@ 215b8
<LVAR 0x014 1(rw)>
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 215b8-2163e Body> Δ-4
<POP 215b8-215ce Prologue> Σ0 ↓
<POP 215ce-215e2 Naked> Σ0 ↓ →0x21630
<MI 215ce CLR.B (A6+0x14)> {}
<MI 215d2 MOVE.L (A6+0x10),D0> {}
<MI 215d6 ADD.L (A6+0x8),D0> {}
<MI 215da CMP.L 0x27c00,D0> {}
<MI 215e0 BGT 0x21630> {}
<POP 215e2-215e8 Naked> Σ0 Δ-4 ↓
<MI 215e2 MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<MI 215e6 MOVEQ.L #0x01,D7> {[4, '(A6+0x8)']}
<POP 215e8-215ec Naked> Σ-4 ↓ →0x2162e ←0x2162a
<MI 215e8 CMP.L (A7),D7> {[-4-]}
<MI 215ea BGT 0x2162e> {[-4-]}
<POP 215ec-21626 Naked> Σ-4 ↓ →0x2162a
<MI 215ec MOVE.L (A6+0x10),D0> {[-4-]}
<MI 215f0 ADD.L D7,D0> {[-4-]}
<MI 215f2 SUBQ.L #0x1,D0> {[-4-]}
<POP 0x215f4 LimitCheck 0x0 ≤ D0 ≤ 0xfff> {[-4-]}
<MI 215fe LEA.L 0x26bf4,A0> {[-4-]}
<MI 21604 MOVE.L (A6+0xc),D1> {[-4-]}
<MI 21608 ADD.L D7,D1> {[-4-]}
<MI 2160a SUBQ.L #0x1,D1> {[-4-]}
<MI 2160c SUBQ.L #0x1,D1> {[-4-]}
<POP 0x2160e LimitCheck 0x0 ≤ D1 ≤ 0x3e> {[-4-]}
<MI 21618 LEA.L 0x20c04,A1> {[-4-]}
<MI 2161c MOVE.B (A0+D0.L+#0x8),D0> {[-4-]}
<MI 21620 CMP.B (A1+D1.L),D0> {[-4-]}
<MI 21624 BEQ 0x2162a> {[-4-]}
<POP 21626-2162a Naked> Σ-4 Δ+4 →0x21636
<POP 21626-21628 StackAdj> Δ+4 {}
<MI 21628 BRA 0x21636> {}
<POP 2162a-2162e Naked> Σ-4 ↓ →0x215e8 ←0x215ec
<MI 2162a ADDQ.L #0x1,D7> {[-4-]}
<MI 2162c BVC 0x215e8> {[-4-]}
<POP 2162e-21630 Naked> Σ-4 Δ+4 ↓ ←0x215e8
<POP 2162e-21630 StackAdj> Δ+4 {}
<POP 21630-21636 Naked> Σ0 ↓ ←0x215ce
<MI 21630 MOVE.B #0x01,(A6+0x14)> {}
<POP 21636-2163e Epilogue> Σ0 ←0x21626
@ 2163e
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 2163e-216c8 Body>
<POP 2163e-21654 Prologue> Σ0 ↓
<POP 21654-2165e RegCacheLoad> Σ0 ↓
<POP 2165e-21662 Naked> Σ0 ↓ →0x216a0
<MI 2165e TST.L (A6+0x8)> {}
<MI 21660 BGE 0x216a0> {}
<POP 21662-21670 Naked> Σ0 ↓ →0x216a0
<MI 21662 MOVE.L (A6+0x8),D0> {}
<MI 21664 NEG.L D0> {}
<MI 21666 ADD.L 0x27c00,D0> {}
<MI 21668 CMPI.L #0x00001000,D0> {}
<MI 2166e BLE 0x216a0> {}
<POP 21670-216a0 Naked> Σ0 ↓
<Blob 0x21670 [28] @> Δ-28 {[«28""»]}
<POP 21682-21684 StackAdj> Δ-4 {[«28""»]|[-4-]}
<Lit 0x21684 27> {[«28""»]|[$$Evaluation buffer overflow.]}
<Call 0x21698 0x210ea> {[«28""»]|[$$Evaluation buffer overflow.]}
<POP 2169c-216a0 StackAdj> Δ+32 {}
<POP 216a0-216c0 Naked> Σ0 ↓ ←0x2165e ←0x21662
<MI 216a0 LEA.L 0x26bfc,A0> {}
<MI 216a6 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Blob 0x216a8 [4] 0x27c00> Δ-4 {[4, 'A0']|[«4»]}
<MI 216aa MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, 'A0']|[«4»]|[4, '(A6+0xc)']}
<MI 216ae MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, 'A0']|[«4»]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x216b0 0x10364> {[4, 'A0']|[«4»]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
MovStringTail(Base, Len, Ptr, Delta)
<POP 216b6-216ba StackAdj> Δ+16 {}
<MI 216ba MOVE.L 0x27c00,D0> {}
<MI 216bc SUB.L (A6+0x8),D0> {}
<MI 216be MOVE.L D0,0x27c00> {}
<POP 216c0-216c8 Epilogue> Σ0
@ 216c8
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 216c8-21752 Body>
<POP 216c8-216de Prologue> Σ0 ↓
<POP 216de-216e2 RegCacheLoad> Σ0 ↓
<POP 216e2-21702 Naked> Σ0 Δ-8 ↓
<MI 216e2 MOVEA.L (A6+0x8),A0> {}
<MI 216e6 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 216e8 MOVEA.L (A6+0xc),A1> {[4, 'A0']}
<MI 216ea MOVE.L (A1),-(A7)> Δ-4 {[4, 'A0']|[4, '(A1)']}
<MI 216ec MOVE.W (A0),D0> {[4, 'A0']|[4, '(A1)']}
<MI 216ee EXTW.L D0> {[4, 'A0']|[4, '(A1)']}
<MI 216f0 NEG.L D0> {[4, 'A0']|[4, '(A1)']}
<MI 216f2 MOVE.L D0,-(A7)> Δ-4 {[4, 'A0']|[4, '(A1)']|[4, 'D0']}
<Call 0x216f4 0x2163e> {[4, 'A0']|[4, '(A1)']|[4, 'D0']}
<POP 216f8-216fa StackAdj> Δ+8 {[4, 'A0']}
<MI 216fa MOVE.W (A0),D0> {[4, 'A0']}
<MI 216fc EXTW.L D0> {[4, 'A0']}
<MI 216fe MOVE.L D0,-(A7)> Δ-4 {[4, 'A0']|[4, 'D0']}
<MI 21700 MOVEQ.L #0x01,D7> {[4, 'A0']|[4, 'D0']}
<POP 21702-21706 Naked> Σ-8 ↓ →0x2173c ←0x21706
<MI 21702 CMP.L (A7),D7> {[-8-]}
<MI 21704 BGT 0x2173c> {[-8-]}
<POP 21706-2173c Naked> Σ-8 ↓ →0x21702
<MI 21706 MOVEA.L (A6+0xc),A0> {[-8-]}
<MI 21708 MOVE.L D7,D0> {[-8-]}
<MI 2170a ADD.L (A0),D0> {[-8-]}
<MI 2170c SUBQ.L #0x1,D0> {[-8-]}
<MI 2170e SUBQ.L #0x1,D0> {[-8-]}
<POP 0x21710 LimitCheck 0x0 ≤ D0 ≤ 0xfff> {[-8-]}
<MI 2171a LEA.L 0x26bf4,A0> {[-8-]}
<MI 21720 MOVE.L D7,D1> {[-8-]}
<MI 21722 SUBQ.L #0x1,D1> {[-8-]}
<POP 0x21724 LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-8-]}
<MI 2172e MOVEA.L (A7+0x4),A1> {[-8-]}
<MI 21732 MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x8)> {[-8-]}
<MI 21738 ADDQ.L #0x1,D7> {[-8-]}
<MI 2173a BVC 0x21702> {[-8-]}
<POP 2173c-2174a Naked> Σ-8 Δ+8 ↓ ←0x21702
<POP 2173c-2173e StackAdj> Δ+4 {[-4-]}
<MI 2173e MOVEA.L (A6+0xc),A0> {[-4-]}
<MI 21740 MOVEA.L (A7),A1> {[-4-]}
<MI 21742 MOVE.W (A1),D0> {[-4-]}
<MI 21744 EXTW.L D0> {[-4-]}
<MI 21746 ADD.L D0,(A0)> {[-4-]}
<POP 21748-2174a StackAdj> Δ+4 {}
<POP 2174a-21752 Epilogue> Σ0
@ 21752
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 21752-218d2 Body>
<POP 21752-21768 Prologue> Σ0 ↓
<POP 21768-21776 RegCacheLoad> Σ0 ↓
<POP 21776-21788 Naked> Σ0 ↓
<MI 21776 MOVEQ.L #0x00,D7> {}
<MI 21778 MOVEA.L (A6+0xc),A0> {}
<MI 2177c CLR.L (A0)> {}
<MI 2177e MOVEA.L (A6+0x8),A0> {}
<MI 21780 CLR.L (A0)> {}
<MI 21782 MOVE.L 0x27bfc,D6> {}
<POP 21788-217a8 Naked> Σ0 ↓ →0x2187a ←0x21884 ←0x2188a
<MI 21788 MOVE.L D6,D0> {}
<MI 2178a SUBQ.L #0x1,D0> {}
<POP 0x2178c LimitCheck 0x0 ≤ D0 ≤ 0xfff> {}
<MI 21796 LEA.L 0x26bf4,A0> {}
<MI 2179c MOVE.B (A0+D0.L+#0x8),D0> {}
<MI 217a0 CMPI.B #0x5b,D0> {}
<MI 217a4 BNE 0x2187a> {}
<POP 217a8-217bc Naked> Σ0 ↓ →0x2183a
<POP 217a8-217aa StackAdj> Δ-2 {[-2-]}
<MI 217aa MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x217ac 0x1.4> Δ-4 {[-2-]|[4, 'D6']|[##1]}
<Const 0x217b0 0x3.4> Δ-4 {[-2-]|[4, 'D6']|[##1]|[##3]}
<Call 0x217b4 0x215b8> {[-2-]|[4, 'D6']|[##1]|[##3]}
<POP 217b6-217b8 StackAdj> Δ+12 {[-2-]}
<MI 217b8 TST.B (A7)+> Δ+2 {}
<MI 217ba BNE 0x2183a> {}
<POP 217bc-217ce Naked> Σ0 ↓ →0x2183a
<POP 217bc-217be StackAdj> Δ-2 {[-2-]}
<MI 217be MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x217c0 0x4.4> Δ-4 {[-2-]|[4, 'D6']|[##4]}
<Const 0x217c2 0x3.4> Δ-4 {[-2-]|[4, 'D6']|[##4]|[##3]}
<Call 0x217c6 0x215b8> {[-2-]|[4, 'D6']|[##4]|[##3]}
<POP 217c8-217ca StackAdj> Δ+12 {[-2-]}
<MI 217ca TST.B (A7)+> Δ+2 {}
<MI 217cc BNE 0x2183a> {}
<POP 217ce-217e0 Naked> Σ0 ↓ →0x2183a
<POP 217ce-217d0 StackAdj> Δ-2 {[-2-]}
<MI 217d0 MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x217d2 0x7.4> Δ-4 {[-2-]|[4, 'D6']|[##7]}
<Const 0x217d6 0x4.4> Δ-4 {[-2-]|[4, 'D6']|[##7]|[##4]}
<Call 0x217d8 0x215b8> {[-2-]|[4, 'D6']|[##7]|[##4]}
<POP 217da-217dc StackAdj> Δ+12 {[-2-]}
<MI 217dc TST.B (A7)+> Δ+2 {}
<MI 217de BNE 0x2183a> {}
<POP 217e0-217f2 Naked> Σ0 ↓ →0x2183a
<POP 217e0-217e2 StackAdj> Δ-2 {[-2-]}
<MI 217e2 MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x217e4 0xb.4> Δ-4 {[-2-]|[4, 'D6']|[##11]}
<Const 0x217e8 0x4.4> Δ-4 {[-2-]|[4, 'D6']|[##11]|[##4]}
<Call 0x217ea 0x215b8> {[-2-]|[4, 'D6']|[##11]|[##4]}
<POP 217ec-217ee StackAdj> Δ+12 {[-2-]}
<MI 217ee TST.B (A7)+> Δ+2 {}
<MI 217f0 BNE 0x2183a> {}
<POP 217f2-21804 Naked> Σ0 ↓ →0x2183a
<POP 217f2-217f4 StackAdj> Δ-2 {[-2-]}
<MI 217f4 MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x217f6 0xf.4> Δ-4 {[-2-]|[4, 'D6']|[##15]}
<Const 0x217fa 0x4.4> Δ-4 {[-2-]|[4, 'D6']|[##15]|[##4]}
<Call 0x217fc 0x215b8> {[-2-]|[4, 'D6']|[##15]|[##4]}
<POP 217fe-21800 StackAdj> Δ+12 {[-2-]}
<MI 21800 TST.B (A7)+> Δ+2 {}
<MI 21802 BNE 0x2183a> {}
<POP 21804-21816 Naked> Σ0 ↓ →0x2183a
<POP 21804-21806 StackAdj> Δ-2 {[-2-]}
<MI 21806 MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x21808 0x13.4> Δ-4 {[-2-]|[4, 'D6']|[##19]}
<Const 0x2180c 0x4.4> Δ-4 {[-2-]|[4, 'D6']|[##19]|[##4]}
<Call 0x2180e 0x215b8> {[-2-]|[4, 'D6']|[##19]|[##4]}
<POP 21810-21812 StackAdj> Δ+12 {[-2-]}
<MI 21812 TST.B (A7)+> Δ+2 {}
<MI 21814 BNE 0x2183a> {}
<POP 21816-21828 Naked> Σ0 ↓ →0x2183a
<POP 21816-21818 StackAdj> Δ-2 {[-2-]}
<MI 21818 MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x2181a 0x17.4> Δ-4 {[-2-]|[4, 'D6']|[##23]}
<Const 0x2181e 0x4.4> Δ-4 {[-2-]|[4, 'D6']|[##23]|[##4]}
<Call 0x21820 0x215b8> {[-2-]|[4, 'D6']|[##23]|[##4]}
<POP 21822-21824 StackAdj> Δ+12 {[-2-]}
<MI 21824 TST.B (A7)+> Δ+2 {}
<MI 21826 BNE 0x2183a> {}
<POP 21828-2183a Naked> Σ0 ↓ →0x2183e
<POP 21828-2182a StackAdj> Δ-2 {[-2-]}
<MI 2182a MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x2182c 0x1b.4> Δ-4 {[-2-]|[4, 'D6']|[##27]}
<Const 0x21830 0x4.4> Δ-4 {[-2-]|[4, 'D6']|[##27]|[##4]}
<Call 0x21832 0x215b8> {[-2-]|[4, 'D6']|[##27]|[##4]}
<POP 21834-21836 StackAdj> Δ+12 {[-2-]}
<MI 21836 TST.B (A7)+> Δ+2 {}
<MI 21838 BEQ 0x2183e> {}
<POP 2183a-2183e Naked> Σ0 →0x2187a ←0x217a8 ←0x217bc ←0x217ce ←0x217e0 ←0x217f2 ←0x21804 ←0x21816
<MI 2183a ADDQ.L #0x1,D7> {}
<MI 2183c BRA 0x2187a> {}
<POP 2183e-21842 Naked> Σ0 ↓ →0x2185e ←0x21828
<MI 2183e TST.L D7> {}
<MI 21840 BNE 0x2185e> {}
<POP 21842-21856 Naked> Σ0 ↓ →0x2185e
<POP 21842-21844 StackAdj> Δ-2 {[-2-]}
<MI 21844 MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x21846 0x1f.4> Δ-4 {[-2-]|[4, 'D6']|[##31]}
<Const 0x2184a 0x5.4> Δ-4 {[-2-]|[4, 'D6']|[##31]|[##5]}
<Call 0x2184e 0x215b8> {[-2-]|[4, 'D6']|[##31]|[##5]}
<POP 21850-21852 StackAdj> Δ+12 {[-2-]}
<MI 21852 TST.B (A7)+> Δ+2 {}
<MI 21854 BEQ 0x2185e> {}
<POP 21856-2185a Naked> Σ0 ↓
<MI 21856 MOVEA.L (A6+0xc),A0> {}
<POP 2185a-2185e Naked> Σ0 →0x2187a ←0x21874
<MI 2185a MOVE.L D6,(A0)> {}
<MI 2185c BRA 0x2187a> {}
<POP 2185e-21870 Naked> Σ0 ↓ →0x2187a ←0x2183e ←0x21842
<POP 2185e-21860 StackAdj> Δ-2 {[-2-]}
<MI 21860 MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x21862 0x24.4> Δ-4 {[-2-]|[4, 'D6']|[##36]}
<Const 0x21866 0x4.4> Δ-4 {[-2-]|[4, 'D6']|[##36]|[##4]}
<Call 0x21868 0x215b8> {[-2-]|[4, 'D6']|[##36]|[##4]}
<POP 2186a-2186c StackAdj> Δ+12 {[-2-]}
<MI 2186c TST.B (A7)+> Δ+2 {}
<MI 2186e BEQ 0x2187a> {}
<POP 21870-21874 Naked> Σ0 ↓ →0x21878
<MI 21870 TST.L D7> {}
<MI 21872 BNE 0x21878> {}
<POP 21874-21878 Naked> Σ0 →0x2185a
<MI 21874 MOVEA.L (A6+0x8),A0> {}
<MI 21876 BRA 0x2185a> {}
<POP 21878-2187a Naked> Σ0 ↓ ←0x21870
<MI 21878 SUBQ.L #0x1,D7> {}
<POP 2187a-21884 Naked> Σ0 ↓ →0x21892 ←0x21788 ←0x2183a ←0x2185a ←0x2185e
<MI 2187a ADDQ.L #0x1,D6> {}
<MI 2187c CMP.L 0x27c00,D6> {}
<MI 21882 BGT 0x21892> {}
<POP 21884-2188a Naked> Σ0 ↓ →0x21788
<MI 21884 TST.L D7> {}
<MI 21886 BNE 0x21788> {}
<POP 2188a-21892 Naked> Σ0 ↓ →0x21788
<MI 2188a MOVEA.L (A6+0x8),A0> {}
<MI 2188c TST.L (A0)> {}
<MI 2188e BEQ 0x21788> {}
<POP 21892-2189a Naked> Σ0 ↓ →0x218ca ←0x2187a
<MI 21892 CMP.L 0x27c00,D6> {}
<MI 21898 BLE 0x218ca> {}
<POP 2189a-218ca Naked> Σ0 ↓
<Blob 0x2189a [28] @> Δ-28 {[«28""»]}
<POP 218ac-218ae StackAdj> Δ-4 {[«28""»]|[-4-]}
<Lit 0x218ae 27> {[«28""»]|[$$Unbalanced [ELSE] or [END]!]}
<Call 0x218c2 0x210ea> {[«28""»]|[$$Unbalanced [ELSE] or [END]!]}
<POP 218c6-218ca StackAdj> Δ+32 {}
<POP 218ca-218d2 Epilogue> Σ0 ←0x21892
@ 218d2
<LVAR -0x004 @ 4(r)>
<LVAR -0x008 @ 4(rw)>
<POP 218d2-21918 Body>
<POP 218d2-218e8 Prologue> Σ0 ↓
<POP 218e8-218f0 RegCacheLoad> Σ0 ↓
<POP 218f0-218fe Naked> Σ0 ↓ →0x21900
<Pointer.fp 0x218f0 <LVAR -0x008 @ 4(rw)>> Δ-4 {[@@-8]}
<Pointer.fp 0x218f2 <LVAR -0x004 @ 4(r)>> Δ-4 {[@@-8]|[@@-4]}
<Call 0x218f4 0x21752> {[@@-8]|[@@-4]}
<POP 218f8-218fa StackAdj> Δ+8 {}
<MI 218fa TST.L (A6-0x8)> {}
<MI 218fc BNE 0x21900> {}
<POP 218fe-21900 Naked> Σ0 ↓
<MI 218fe MOVE.L (A6-0x4),(A6-0x8)> {}
<POP 21900-21910 Naked> Σ0 ↓ ←0x218f0
<MI 21900 MOVE.L (A6-0x4),D0> {}
<MI 21902 ADDQ.L #0x5,D0> {}
<MI 21904 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 21906 SUB.L (A6-0x8),D0> {[4, 'D0']}
<MI 21908 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']|[4, 'D0']}
<Call 0x2190a 0x2163e> {[4, 'D0']|[4, 'D0']}
<POP 2190e-21910 StackAdj> Δ+8 {}
<POP 21910-21918 Epilogue> Σ0
@ 21918
<LVAR -0x004 @ 4(r)>
<LVAR -0x008 @ 4(r)>
<POP 21918-21974 Body>
<POP 21918-2192e Prologue> Σ0 ↓
<POP 2192e-21936 RegCacheLoad> Σ0 ↓
<POP 21936-21944 Naked> Σ0 ↓ →0x2194a
<Pointer.fp 0x21936 <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-8]}
<Pointer.fp 0x21938 <LVAR -0x004 @ 4(r)>> Δ-4 {[@@-8]|[@@-4]}
<Call 0x2193a 0x21752> {[@@-8]|[@@-4]}
<POP 2193e-21940 StackAdj> Δ+8 {}
<MI 21940 TST.L (A6-0x8)> {}
<MI 21942 BNE 0x2194a> {}
<POP 21944-2194a Naked> Σ0 →0x2195c
<MI 21944 MOVE.L (A6-0x4),D0> {}
<MI 21946 ADDQ.L #0x5,D0> {}
<MI 21948 BRA 0x2195c> {}
<POP 2194a-2195c Naked> Σ0 ↓ ←0x21936
<MI 2194a MOVE.L (A6-0x4),-(A7)> Δ-4 {[4, '(A6-0x4)']}
<MI 2194c ADDQ.L #0x5,(A7)> {[-4-]}
<Const 0x2194e 0x5.4> Δ-4 {[-4-]|[##5]}
<Call 0x21952 0x2163e> {[-4-]|[##5]}
<POP 21956-21958 StackAdj> Δ+8 {}
<MI 21958 MOVE.L (A6-0x8),D0> {}
<MI 2195a ADDQ.L #0x6,D0> {}
<POP 2195c-2196c Naked> Σ0 ↓ ←0x21944
<MI 2195c MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 2195e SUB.L 0x27bfc,D0> {[4, 'D0']}
<MI 21964 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']|[4, 'D0']}
<Call 0x21966 0x2163e> {[4, 'D0']|[4, 'D0']}
<POP 2196a-2196c StackAdj> Δ+8 {}
<POP 2196c-21974 Epilogue> Σ0
@ 21974
<LVAR 0x008 4(r)>
<LVAR -0x004 @>
<LVAR -0x008 @ 4(r)>
<LVAR -0x00c @ 4(rw)>
<LVAR -0x010 4(rw)>
<LVAR -0x014 4(rw)>
<POP 21974-21a88 Body>
<POP 21974-2198a Prologue> Σ0 ↓
<POP 2198a-219a2 RegCacheLoad> Σ0 ↓
<POP 219a2-219a6 Naked> Σ0 ↓ →0x219b0
<MI 219a2 TST.B 0x27c0e> {}
<MI 219a4 BEQ 0x219b0> {}
<POP 219a6-219aa Naked> Σ0 ↓ →0x219b0
<MI 219a6 TST.L 0x27c14> {}
<MI 219a8 BNE 0x219b0> {}
<POP 219aa-219b0 Naked> Σ0 ↓
<MI 219aa MOVE.L (A6+0x8),0x27c14> {}
<MI 219ae SUBQ.L #0x1,0x27c14> {}
<POP 219b0-219b6 Naked> Σ0 ↓ →0x21a80 ←0x219a2 ←0x219a6
<MI 219b0 TST.B 0x27c0e> {}
<MI 219b2 BNE 0x21a80> {}
<POP 219b6-219ea Naked> Σ0 ↓ →0x21a04
<MI 219b6 MOVE.L (A6+0x8),0x27bfc> {}
<MI 219ba ADDQ.L #0x6,0x27bfc> {}
<Pointer.fp 0x219bc <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-8]}
<Pointer.fp 0x219be <LVAR -0x004 @>> Δ-4 {[@@-8]|[@@-4]}
<Call 0x219c2 0x2144a> {[@@-8]|[@@-4]}
<POP 219c6-219c8 StackAdj> Δ+8 {}
<Blob 0x219c8 [10] @> Δ-10 {[«10""»]}
<MI 219d4 MOVE.L (A6-0x8),-(A7)> Δ-4 {[«10""»]|[4, '(A6-0x8)']}
<Const 0x219d6 0x0.4> Δ-4 {[«10""»]|[4, '(A6-0x8)']|[##0]}
<Call 0x219da 0x2152c> {[«10""»]|[4, '(A6-0x8)']|[##0]}
<POP 219de-219e2 StackAdj> Δ+18 {}
<MI 219e2 TST.B 0x27c18> {}
<MI 219e8 BEQ 0x21a04> {}
<POP 219ea-21a04 Naked> Σ0 →0x21a18
<POP 219ea-219ec StackAdj> Δ-8 {[-8-]}
<MI 219ec MOVE.L (A6-0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x8)']}
<Const 0x219ee 0x0.4> Δ-4 {[-8-]|[4, '(A6-0x8)']|[##0]}
<Call 0x219f2 0x21e44> {[-8-]|[4, '(A6-0x8)']|[##0]}
<POP 219f8-219fa StackAdj> Δ+8 {[-8-]}
<MI 219fa MOVE.L (A7)+,(A6-0x14)> Δ+4 {[-4-]}
<MI 219fe MOVE.L (A7)+,(A6-0x10)> Δ+4 {}
<MI 21a02 BRA 0x21a18> {}
<POP 21a04-21a18 Naked> Σ0 ↓ ←0x219b6
<POP 21a04-21a06 StackAdj> Δ-4 {[-4-]}
<MI 21a06 MOVE.L (A6-0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x8)']}
<Const 0x21a08 0x0.4> Δ-4 {[-4-]|[4, '(A6-0x8)']|[##0]}
<Call 0x21a0c 0x21e12> {[-4-]|[4, '(A6-0x8)']|[##0]}
<POP 21a12-21a14 StackAdj> Δ+8 {[-4-]}
<MI 21a14 MOVE.L (A7)+,(A6-0xc)> Δ+4 {}
<POP 21a18-21a2e Naked> Σ0 ↓ →0x21a58 ←0x219ea
<MI 21a18 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<Call 0x21a1a 0x210a8> {[4, '(A6-0x8)']}
<POP 21a1e-21a20 StackAdj> Δ+4 {}
<MI 21a20 MOVE.L 0x27bfc,0x27c10> {}
<MI 21a26 TST.B 0x27c18> {}
<MI 21a2c BEQ 0x21a58> {}
<POP 21a2e-21a58 Naked> Σ0 →0x21a80
<POP 21a2e-21a30 StackAdj> Δ-2 {[-2-]}
<MI 21a30 MOVE.L (A6-0x10),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x10)']}
<MI 21a34 MOVE.L (A6-0x14),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<Blob 0x21a38 [4] 0x27c22> Δ-4 {[-2-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']|[«4»]}
<Blob 0x21a3e [4] 0x27c1e> Δ-4 {[-2-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']|[«4»]|[«4»]}
<Call 0x21a44 0x1032c> {[-2-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']|[«4»]|[«4»]}
IsEqual(a, b : Quad) : Bool
<POP 21a4a-21a4e StackAdj> Δ+16 {[-2-]}
<MI 21a4e MOVE.B (A7)+,D0> Δ+2 {}
<MI 21a50 EXTB.W D0> {}
<POP 0x21a52 LimitCheck 0x0 ≤ D0 ≤ 0x1> {}
<MI 21a54 MOVE.B D0,0x27c0e> {}
<MI 21a56 BRA 0x21a80> {}
<POP 21a58-21a80 Naked> Σ0 ↓ ←0x21a18
<POP 21a58-21a5a StackAdj> Δ-2 {[-2-]}
<MI 21a5a MOVE.L (A6-0xc),-(A7)> Δ-4 {[-2-]|[4, '(A6-0xc)']}
<Blob 0x21a5e [4] 0x27c1a> Δ-4 {[-2-]|[4, '(A6-0xc)']|[«4»]}
<Call 0x21a64 0x102c8> {[-2-]|[4, '(A6-0xc)']|[«4»]}
StringEqual(a, b : String) : Byte
<POP 21a6a-21a6c StackAdj> Δ+8 {[-2-]}
<MI 21a6c MOVE.B (A7)+,D0> Δ+2 {}
<MI 21a6e EXTB.W D0> {}
<POP 0x21a70 LimitCheck 0x0 ≤ D0 ≤ 0x1> {}
<MI 21a72 MOVE.B D0,0x27c0e> {}
<Pointer.fp 0x21a74 <LVAR -0x00c @ 4(rw)>> Δ-4 {[@@-12]}
<Call 0x21a78 0x102bc> {[@@-12]}
FreeString(VAR a : String)
<POP 21a7e-21a80 StackAdj> Δ+4 {}
<POP 21a80-21a88 Epilogue> Σ0 ←0x219b0 ←0x21a2e
@ 21a88
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 21a88-21c0a Body>
<POP 21a88-21a9e Prologue> Σ0 ↓
<POP 21a9e-21ab2 RegCacheLoad> Σ0 ↓
<POP 21ab2-21ac6 Naked> Σ0 ↓
<MI 21ab2 CLR.B 0x27c0e> {}
<MI 21ab4 CLR.L 0x27c10> {}
<MI 21aba CLR.L 0x27c14> {}
<MI 21abc MOVEQ.L #0x00,D7> {}
<MI 21abe MOVEQ.L #0x00,D6> {}
<MI 21ac0 MOVE.L 0x27bfc,D5> {}
<POP 21ac6-21acc Naked> Σ0 ↓ →0x21b6a ←0x21b66
<MI 21ac6 TST.L D6> {}
<MI 21ac8 BNE 0x21b6a> {}
<POP 21acc-21ad6 Naked> Σ0 ↓ →0x21b6a
<MI 21acc CMP.L 0x27c00,D5> {}
<MI 21ad2 BGT 0x21b6a> {}
<POP 21ad6-21af4 Naked> Σ0 ↓ →0x21b60
<MI 21ad6 MOVE.L D5,D0> {}
<MI 21ad8 SUBQ.L #0x1,D0> {}
<POP 0x21ada LimitCheck 0x0 ≤ D0 ≤ 0xfff> {}
<MI 21ae4 LEA.L 0x26bf4,A0> {}
<MI 21aea MOVE.B (A0+D0.L+#0x8),D0> {}
<MI 21aee CMPI.B #0x5b,D0> {}
<MI 21af2 BNE 0x21b60> {}
<POP 21af4-21b08 Naked> Σ0 ↓ →0x21b1c
<POP 21af4-21af6 StackAdj> Δ-2 {[-2-]}
<MI 21af6 MOVE.L D5,-(A7)> Δ-4 {[-2-]|[4, 'D5']}
<Const 0x21af8 0x28.4> Δ-4 {[-2-]|[4, 'D5']|[##40]}
<Const 0x21afc 0x5.4> Δ-4 {[-2-]|[4, 'D5']|[##40]|[##5]}
<Call 0x21b00 0x215b8> {[-2-]|[4, 'D5']|[##40]|[##5]}
<POP 21b02-21b04 StackAdj> Δ+12 {[-2-]}
<MI 21b04 TST.B (A7)+> Δ+2 {}
<MI 21b06 BNE 0x21b1c> {}
<POP 21b08-21b1c Naked> Σ0 ↓ →0x21b20
<POP 21b08-21b0a StackAdj> Δ-2 {[-2-]}
<MI 21b0a MOVE.L D5,-(A7)> Δ-4 {[-2-]|[4, 'D5']}
<Const 0x21b0c 0x2d.4> Δ-4 {[-2-]|[4, 'D5']|[##45]}
<Const 0x21b10 0x6.4> Δ-4 {[-2-]|[4, 'D5']|[##45]|[##6]}
<Call 0x21b14 0x215b8> {[-2-]|[4, 'D5']|[##45]|[##6]}
<POP 21b16-21b18 StackAdj> Δ+12 {[-2-]}
<MI 21b18 TST.B (A7)+> Δ+2 {}
<MI 21b1a BEQ 0x21b20> {}
<POP 21b1c-21b20 Naked> Σ0 →0x21b60 ←0x21af4
<MI 21b1c ADDQ.L #0x1,D7> {}
<MI 21b1e BRA 0x21b60> {}
<POP 21b20-21b24 Naked> Σ0 ↓ →0x21b42 ←0x21b08
<MI 21b20 TST.L D7> {}
<MI 21b22 BNE 0x21b42> {}
<POP 21b24-21b38 Naked> Σ0 ↓ →0x21b42
<POP 21b24-21b26 StackAdj> Δ-2 {[-2-]}
<MI 21b26 MOVE.L D5,-(A7)> Δ-4 {[-2-]|[4, 'D5']}
<Const 0x21b28 0x33.4> Δ-4 {[-2-]|[4, 'D5']|[##51]}
<Const 0x21b2c 0x5.4> Δ-4 {[-2-]|[4, 'D5']|[##51]|[##5]}
<Call 0x21b30 0x215b8> {[-2-]|[4, 'D5']|[##51]|[##5]}
<POP 21b32-21b34 StackAdj> Δ+12 {[-2-]}
<MI 21b34 TST.B (A7)+> Δ+2 {}
<MI 21b36 BEQ 0x21b42> {}
<POP 21b38-21b42 Naked> Σ0 →0x21b60
<MI 21b38 MOVE.L D5,-(A7)> Δ-4 {[4, 'D5']}
<Call 0x21b3a 0x21974> {[4, 'D5']}
<POP 21b3e-21b40 StackAdj> Δ+4 {}
<MI 21b40 BRA 0x21b60> {}
<POP 21b42-21b56 Naked> Σ0 ↓ →0x21b60 ←0x21b20 ←0x21b24
<POP 21b42-21b44 StackAdj> Δ-2 {[-2-]}
<MI 21b44 MOVE.L D5,-(A7)> Δ-4 {[-2-]|[4, 'D5']}
<Const 0x21b46 0x38.4> Δ-4 {[-2-]|[4, 'D5']|[##56]}
<Const 0x21b4a 0x8.4> Δ-4 {[-2-]|[4, 'D5']|[##56]|[##8]}
<Call 0x21b4e 0x215b8> {[-2-]|[4, 'D5']|[##56]|[##8]}
<POP 21b50-21b52 StackAdj> Δ+12 {[-2-]}
<MI 21b52 TST.B (A7)+> Δ+2 {}
<MI 21b54 BEQ 0x21b60> {}
<POP 21b56-21b5a Naked> Σ0 ↓ →0x21b5e
<MI 21b56 TST.L D7> {}
<MI 21b58 BNE 0x21b5e> {}
<POP 21b5a-21b5e Naked> Σ0 →0x21b60
<MI 21b5a MOVE.L D5,D6> {}
<MI 21b5c BRA 0x21b60> {}
<POP 21b5e-21b60 Naked> Σ0 ↓ ←0x21b56
<MI 21b5e SUBQ.L #0x1,D7> {}
<POP 21b60-21b64 Naked> Σ0 ↓ →0x21b66 ←0x21ad6 ←0x21b1c ←0x21b38 ←0x21b42 ←0x21b5a
<MI 21b60 TST.L D6> {}
<MI 21b62 BNE 0x21b66> {}
<POP 21b64-21b66 Naked> Σ0 ↓
<MI 21b64 ADDQ.L #0x1,D5> {}
<POP 21b66-21b6a Naked> Σ0 →0x21ac6 ←0x21b60
<MI 21b66 BRA 0x21ac6> {}
<POP 21b6a-21b72 Naked> Σ0 ↓ →0x21b80 ←0x21ac6 ←0x21acc
<MI 21b6a TST.B 0x27c18> {}
<MI 21b70 BNE 0x21b80> {}
<POP 21b72-21b80 Naked> Σ0 ↓
<Const 0x21b72 0x27c1a.4> Δ-4 {[##162842]}
<Call 0x21b78 0x102bc> {[##162842]}
FreeString(VAR a : String)
<POP 21b7e-21b80 StackAdj> Δ+4 {}
<POP 21b80-21b84 Naked> Σ0 ↓ →0x21bac ←0x21b6a
<MI 21b80 TST.B 0x27c0e> {}
<MI 21b82 BNE 0x21bac> {}
<POP 21b84-21bac Naked> Σ0 ↓
<Blob 0x21b84 [26] @> Δ-26 {[«26""»]}
<POP 21b90-21b92 StackAdj> Δ-4 {[«26""»]|[-4-]}
<Lit 0x21b92 26> {[«26""»]|[$$No case alternative found!]}
<Call 0x21ba4 0x210ea> {[«26""»]|[$$No case alternative found!]}
<POP 21ba8-21bac StackAdj> Δ+30 {}
<POP 21bac-21bb0 Naked> Σ0 ↓ →0x21bde ←0x21b80
<MI 21bac TST.L D6> {}
<MI 21bae BNE 0x21bde> {}
<POP 21bb0-21bde Naked> Σ0 ↓
<Blob 0x21bb0 [20] @> Δ-20 {[«20""»]}
<POP 21bc2-21bc4 StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x21bc4 19> {[«20""»]|[$$No [ENDCASE] found!]}
<Call 0x21bd6 0x210ea> {[«20""»]|[$$No [ENDCASE] found!]}
<POP 21bda-21bde StackAdj> Δ+24 {}
<POP 21bde-21bf2 Naked> Σ0 ↓ →0x21bfc ←0x21bac
<MI 21bde MOVEA.L (A6+0x8),A0> {}
<MI 21be2 MOVE.L D6,(A0)> {}
<MI 21be4 MOVEA.L (A6+0x10),A0> {}
<MI 21be8 MOVE.L 0x27c10,(A0)> {}
<MI 21bee TST.L 0x27c14> {}
<MI 21bf0 BNE 0x21bfc> {}
<POP 21bf2-21bfc Naked> Σ0 →0x21c02
<MI 21bf2 MOVEA.L (A6+0xc),A0> {}
<MI 21bf6 MOVE.L D6,(A0)> {}
<MI 21bf8 SUBQ.L #0x1,(A0)> {}
<MI 21bfa BRA 0x21c02> {}
<POP 21bfc-21c02 Naked> Σ0 ↓ ←0x21bde
<MI 21bfc MOVEA.L (A6+0xc),A0> {}
<MI 21c00 MOVE.L 0x27c14,(A0)> {}
<POP 21c02-21c0a Epilogue> Σ0 ←0x21bf2
@ 21c0a
<LVAR 0x008 4(r)>
<LVAR -0x008 @ 4(r)>
<LVAR -0x00c @ 4(r)>
<LVAR -0x010 @ 4(r)>
<POP 21c0a-21c7e Body>
<POP 21c0a-21c20 Prologue> Σ0 ↓
<POP 21c20-21c2a RegCacheLoad> Σ0 ↓
<POP 21c2a-21c76 Naked> Σ0 ↓
<MI 21c2a MOVE.L 0x27bfc,D6> {}
<MI 21c2c CLR.B 0x27c18> {}
<MI 21c32 MOVE.L (A6+0x8),0x27c1a> {}
<MI 21c3a MOVE.L 0x27bfc,D7> {}
<Pointer.fp 0x21c3c <LVAR -0x010 @ 4(r)>> Δ-4 {[@@-16]}
<Pointer.fp 0x21c3e <LVAR -0x00c @ 4(r)>> Δ-4 {[@@-16]|[@@-12]}
<Pointer.fp 0x21c42 <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-16]|[@@-12]|[@@-8]}
<Call 0x21c46 0x21a88> {[@@-16]|[@@-12]|[@@-8]}
<POP 21c4a-21c4e StackAdj> Δ+12 {}
<MI 21c4e MOVE.L D6,0x27bfc> {}
<MI 21c50 MOVE.L (A6-0x8),D0> {}
<MI 21c54 ADDI.L #0x00000009,D0> {}
<MI 21c5a MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 21c5c SUB.L (A6-0xc),D0> {[4, 'D0']}
<MI 21c60 SUBQ.L #0x1,D0> {[4, 'D0']}
<MI 21c62 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']|[4, 'D0']}
<Call 0x21c64 0x2163e> {[4, 'D0']|[4, 'D0']}
<POP 21c68-21c6a StackAdj> Δ+4 {[4, 'D0']}
<MI 21c6a MOVE.L (A6-0x10),(A7)> {[4, '(A6-0x10)']}
<MI 21c6c MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0x10)']|[4, '(A6-0x10)']}
<MI 21c6e SUB.L D7,(A7)> {[4, '(A6-0x10)']|[-4-]}
<Call 0x21c70 0x2163e> {[4, '(A6-0x10)']|[-4-]}
<POP 21c74-21c76 StackAdj> Δ+8 {}
<POP 21c76-21c7e Epilogue> Σ0
@ 21c7e
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x008 @ 4(r)>
<LVAR -0x00c @ 4(r)>
<LVAR -0x010 @ 4(r)>
<POP 21c7e-21cfc Body>
<POP 21c7e-21c94 Prologue> Σ0 ↓
<POP 21c94-21c9e RegCacheLoad> Σ0 ↓
<POP 21c9e-21cf4 Naked> Σ0 ↓
<MI 21c9e MOVE.L 0x27bfc,D6> {}
<MI 21ca0 MOVE.B #0x01,0x27c18> {}
<MI 21ca8 MOVE.L (A6+0x8),0x27c1e> {}
<MI 21cb0 MOVE.L (A6+0xc),0x27c22> {}
<MI 21cb8 MOVE.L 0x27bfc,D7> {}
<Pointer.fp 0x21cba <LVAR -0x010 @ 4(r)>> Δ-4 {[@@-16]}
<Pointer.fp 0x21cbc <LVAR -0x00c @ 4(r)>> Δ-4 {[@@-16]|[@@-12]}
<Pointer.fp 0x21cc0 <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-16]|[@@-12]|[@@-8]}
<Call 0x21cc4 0x21a88> {[@@-16]|[@@-12]|[@@-8]}
<POP 21cc8-21ccc StackAdj> Δ+12 {}
<MI 21ccc MOVE.L D6,0x27bfc> {}
<MI 21cce MOVE.L (A6-0x8),D0> {}
<MI 21cd2 ADDI.L #0x00000009,D0> {}
<MI 21cd8 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 21cda SUB.L (A6-0xc),D0> {[4, 'D0']}
<MI 21cde SUBQ.L #0x1,D0> {[4, 'D0']}
<MI 21ce0 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']|[4, 'D0']}
<Call 0x21ce2 0x2163e> {[4, 'D0']|[4, 'D0']}
<POP 21ce6-21ce8 StackAdj> Δ+4 {[4, 'D0']}
<MI 21ce8 MOVE.L (A6-0x10),(A7)> {[4, '(A6-0x10)']}
<MI 21cea MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0x10)']|[4, '(A6-0x10)']}
<MI 21cec SUB.L D7,(A7)> {[4, '(A6-0x10)']|[-4-]}
<Call 0x21cee 0x2163e> {[4, '(A6-0x10)']|[-4-]}
<POP 21cf2-21cf4 StackAdj> Δ+8 {}
<POP 21cf4-21cfc Epilogue> Σ0
@ 21cfc
<LVAR 0x010 4(rw)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 21cfc-21d34 Body>
<POP 21cfc-21d12 Prologue> Σ0 ↓
<POP 21d12-21d18 Naked> Σ0 ↓ →0x21d1e
<MI 21d12 TST.L (A6+0x8)> {}
<MI 21d16 BNE 0x21d1e> {}
<POP 21d18-21d1e Naked> Σ0 →0x21d2c
<MI 21d18 CLR.L (A6+0x10)> {}
<MI 21d1c BRA 0x21d2c> {}
<POP 21d1e-21d2c Naked> Σ0 ↓ ←0x21d12
<MI 21d1e MOVE.L (A6+0xc),D0> {}
<MI 21d22 SUB.L (A6+0x8),D0> {}
<MI 21d26 ADDQ.L #0x1,D0> {}
<MI 21d28 MOVE.L D0,(A6+0x10)> {}
<POP 21d2c-21d34 Epilogue> Σ0 ←0x21d18
@ 21d34
<LVAR 0x014 4(w)>
<LVAR 0x010 @ 4(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 21d34-21d96 Body> Δ-4
<POP 21d34-21d4a Prologue> Σ0 ↓
<POP 21d4a-21d60 Naked> Σ0 Δ-4 ↓
<MI 21d4a MOVEA.L (A6+0xc),A4> {}
<MI 21d4e MOVE.L 0x21002,(A6+0x10)> {}
<MI 21d54 MOVE.L 0x21006,(A6+0x14)> {}
<MI 21d5a MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<MI 21d5e MOVEQ.L #0x00,D7> {[4, '(A6+0x8)']}
<POP 21d60-21d64 Naked> Σ-4 ↓ →0x21d8c ←0x21d88
<MI 21d60 CMP.L (A7),D7> {[-4-]}
<MI 21d62 BGT 0x21d8c> {[-4-]}
<POP 21d64-21d6a Naked> Σ-4 ↓ →0x21d6e
<MI 21d64 CMPA.W #0x1,A4> {[-4-]}
<MI 21d68 BNE 0x21d6e> {[-4-]}
<POP 21d6a-21d6e Naked> Σ-4 Δ+4 →0x21d8e
<POP 21d6a-21d6c StackAdj> Δ+4 {}
<MI 21d6c BRA 0x21d8e> {}
<POP 21d6e-21d74 Naked> Σ-4 ↓ →0x21d84 ←0x21d64
<MI 21d6e CMP.L (A6+0x8),D7> {[-4-]}
<MI 21d72 BNE 0x21d84> {[-4-]}
<POP 21d74-21d84 Naked> Σ-4 →0x21d88
<MI 21d74 LEA.L (A6+0x10),A0> {[-4-]}
<MI 21d78 MOVEA.L A4,A1> {[-4-]}
<BlockMove 8,A1,A0> {[-4-]}
<MI 21d82 BRA 0x21d88> {[-4-]}
<POP 21d84-21d88 Naked> Σ-4 ↓ ←0x21d6e
<MI 21d84 MOVEA.L (A4+0x8),A4> {[-4-]}
<POP 21d88-21d8c Naked> Σ-4 ↓ →0x21d60 ←0x21d74
<MI 21d88 ADDQ.L #0x1,D7> {[-4-]}
<MI 21d8a BVC 0x21d60> {[-4-]}
<POP 21d8c-21d8e Naked> Σ-4 Δ+4 ↓ ←0x21d60
<POP 21d8c-21d8e StackAdj> Δ+4 {}
<POP 21d8e-21d96 Epilogue> Σ0 ←0x21d6a
@ 21d96
<LVAR 0x010 4(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x008 @ 4(r)>
<POP 21d96-21e12 Body> Δ-4
<POP 21d96-21dac Prologue> Σ0 ↓
<POP 21dac-21db0 RegCacheLoad> Σ0 ↓
<POP 21db0-21dc8 Naked> Σ0 Δ-4 ↓
<Pointer.fp 0x21db0 <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-8]}
<Call 0x21db2 0x102b8> {[@@-8]}
NewString(VAR a : String)
<MI 21db8 MOVE.L (A6+0xc),-(A7)> Δ-4 {[@@-8]|[4, '(A6+0xc)']}
<MI 21dbc MOVE.L (A6+0x8),-(A7)> Δ-4 {[@@-8]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x21dc0 0x21cfc> {[@@-8]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 21dc4-21dc6 StackAdj> Δ+8 {[@@-8]}
<MI 21dc6 MOVEQ.L #0x01,D7> {[@@-8]}
<POP 21dc8-21dcc Naked> Σ-4 ↓ →0x21e04 ←0x21df4
<MI 21dc8 CMP.L (A7),D7> {[-4-]}
<MI 21dca BGT 0x21e04> {[-4-]}
<POP 21dcc-21df0 Naked> Σ-4 ↓ →0x21df4
<MI 21dcc MOVE.L D7,D0> {[-4-]}
<MI 21dce ADD.L (A6+0x8),D0> {[-4-]}
<MI 21dd2 SUBQ.L #0x1,D0> {[-4-]}
<MI 21dd4 SUBQ.L #0x1,D0> {[-4-]}
<POP 0x21dd6 LimitCheck 0x0 ≤ D0 ≤ 0xfff> {[-4-]}
<MI 21de0 LEA.L 0x26bf4,A0> {[-4-]}
<MI 21de6 MOVE.B (A0+D0.L+#0x8),D6> {[-4-]}
<MI 21dea CMPI.B #0x2f,D6> {[-4-]}
<MI 21dee BNE 0x21df4> {[-4-]}
<POP 21df0-21df4 Naked> Σ-4 Δ+4 →0x21e06
<POP 21df0-21df2 StackAdj> Δ+4 {}
<MI 21df2 BRA 0x21e06> {}
<POP 21df4-21e04 Naked> Σ-4 ↓ →0x21dc8 ←0x21dcc
<MI 21df4 MOVE.L (A6-0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x8)']}
<MI 21df6 MOVE.B D6,-(A7)> Δ-2 {[-4-]|[4, '(A6-0x8)']|[2, 'D6']}
<Call 0x21df8 0x102c0> {[-4-]|[4, '(A6-0x8)']|[2, 'D6']}
AppendChar(MOD b : String; a : char)
<POP 21dfe-21e00 StackAdj> Δ+6 {[-4-]}
<MI 21e00 ADDQ.L #0x1,D7> {[-4-]}
<MI 21e02 BVC 0x21dc8> {[-4-]}
<POP 21e04-21e06 Naked> Σ-4 Δ+4 ↓ ←0x21dc8
<POP 21e04-21e06 StackAdj> Δ+4 {}
<POP 21e06-21e0a Naked> Σ0 ↓ ←0x21df0
<MI 21e06 MOVE.L (A6-0x8),(A6+0x10)> {}
<POP 21e0a-21e12 Epilogue> Σ0
@ 21e12
<LVAR 0x010 4(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 21e12-21e44 Body>
<POP 21e12-21e24 Prologue> Σ0 ↓
<POP 21e24-21e40 Naked> Σ0 ↓
<POP 21e24-21e28 StackAdj> Δ-12 {[-12-]}
<MI 21e28 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-12-]|[4, '(A6+0xc)']}
<MI 21e2c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x21e30 0x21d34> {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 21e34-21e36 StackAdj> Δ+8 {[-12-]}
<Call 0x21e36 0x21d96> {[-12-]}
<POP 21e3a-21e3c StackAdj> Δ+8 {[-4-]}
<MI 21e3c MOVE.L (A7)+,(A6+0x10)> Δ+4 {}
<POP 21e40-21e44 Epilogue> Σ0
@ 21e44
<LVAR 0x014 4(w)>
<LVAR 0x010 4(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 21e44-21e80 Body>
<POP 21e44-21e56 Prologue> Σ0 ↓
<POP 21e56-21e7c Naked> Σ0 ↓
<POP 21e56-21e5a StackAdj> Δ-12 {[-12-]}
<MI 21e5a MOVE.L (A6+0xc),-(A7)> Δ-4 {[-12-]|[4, '(A6+0xc)']}
<MI 21e5e MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x21e62 0x21e12> {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 21e66-21e68 StackAdj> Δ+8 {[-12-]}
<Const 0x21e68 0x10.4> Δ-4 {[-12-]|[##16]}
<Call 0x21e6c 0x10360> {[-12-]|[##16]}
?StringToInt64()
<POP 21e72-21e74 StackAdj> Δ+8 {[-8-]}
<MI 21e74 MOVE.L (A7)+,(A6+0x10)> Δ+4 {[-4-]}
<MI 21e78 MOVE.L (A7)+,(A6+0x14)> Δ+4 {}
<POP 21e7c-21e80 Epilogue> Σ0
@ 21e80
<LVAR 0x010 4(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 21e80-21eb4 Body>
<POP 21e80-21e92 Prologue> Σ0 ↓
<POP 21e92-21eb0 Naked> Σ0 ↓
<POP 21e92-21e96 StackAdj> Δ-12 {[-12-]}
<MI 21e96 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-12-]|[4, '(A6+0xc)']}
<MI 21e9a MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x21e9e 0x21e44> {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 21ea2-21ea4 StackAdj> Δ+8 {[-12-]}
<Call 0x21ea4 0x10350> {[-12-]}
Quad2Long(a : Quad) : Long
<POP 21eaa-21eac StackAdj> Δ+8 {[-4-]}
<MI 21eac MOVE.L (A7)+,(A6+0x10)> Δ+4 {}
<POP 21eb0-21eb4 Epilogue> Σ0
@ 21eb4
<LVAR 0x008 @ 4(r)>
<POP 21eb4-21f3c Body>
<POP 21eb4-21eca Prologue> Σ0 ↓
<POP 21eca-21ed0 RegCacheLoad> Σ0 ↓
<POP 21ed0-21eee Naked> Σ0 Δ-8 ↓
<MI 21ed0 MOVEA.L (A6+0x8),A0> {}
<MI 21ed4 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Blob 0x21ed6 [4] 0x27bfc> Δ-4 {[4, 'A0']|[«4»]}
<MI 21ed8 MOVE.W (A0),D0> {[4, 'A0']|[«4»]}
<MI 21eda EXTW.L D0> {[4, 'A0']|[«4»]}
<MI 21edc NEG.L D0> {[4, 'A0']|[«4»]}
<MI 21ede MOVE.L D0,-(A7)> Δ-4 {[4, 'A0']|[«4»]|[4, 'D0']}
<Call 0x21ee0 0x2163e> {[4, 'A0']|[«4»]|[4, 'D0']}
<POP 21ee4-21ee6 StackAdj> Δ+8 {[4, 'A0']}
<MI 21ee6 MOVE.W (A0),D0> {[4, 'A0']}
<MI 21ee8 EXTW.L D0> {[4, 'A0']}
<MI 21eea MOVE.L D0,-(A7)> Δ-4 {[4, 'A0']|[4, 'D0']}
<MI 21eec MOVEQ.L #0x01,D7> {[4, 'A0']|[4, 'D0']}
<POP 21eee-21ef2 Naked> Σ-8 ↓ →0x21f26 ←0x21ef2
<MI 21eee CMP.L (A7),D7> {[-8-]}
<MI 21ef0 BGT 0x21f26> {[-8-]}
<POP 21ef2-21f26 Naked> Σ-8 ↓ →0x21eee
<MI 21ef2 MOVE.L D7,D0> {[-8-]}
<MI 21ef4 ADD.L 0x27bfc,D0> {[-8-]}
<MI 21ef6 SUBQ.L #0x1,D0> {[-8-]}
<MI 21ef8 SUBQ.L #0x1,D0> {[-8-]}
<POP 0x21efa LimitCheck 0x0 ≤ D0 ≤ 0xfff> {[-8-]}
<MI 21f04 LEA.L 0x26bf4,A0> {[-8-]}
<MI 21f0a MOVE.L D7,D1> {[-8-]}
<MI 21f0c SUBQ.L #0x1,D1> {[-8-]}
<POP 0x21f0e LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-8-]}
<MI 21f18 MOVEA.L (A7+0x4),A1> {[-8-]}
<MI 21f1c MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x8)> {[-8-]}
<MI 21f22 ADDQ.L #0x1,D7> {[-8-]}
<MI 21f24 BVC 0x21eee> {[-8-]}
<POP 21f26-21f34 Naked> Σ-8 Δ+8 ↓ ←0x21eee
<POP 21f26-21f28 StackAdj> Δ+8 {}
<Pointer.fp 0x21f28 <LVAR 0x008 @ 4(r)>> Δ-4 {[@@8]}
<Call 0x21f2c 0x102bc> {[@@8]}
FreeString(VAR a : String)
<POP 21f32-21f34 StackAdj> Δ+4 {}
<POP 21f34-21f3c Epilogue> Σ0
@ 21f3c
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 21f3c-21f70 Body>
<POP 21f3c-21f4e Prologue> Σ0 ↓
<POP 21f4e-21f6c Naked> Σ0 ↓
<POP 21f4e-21f50 StackAdj> Δ-4 {[-4-]}
<MI 21f50 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']}
<MI 21f54 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Const 0x21f58 0x10.4> Δ-4 {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[##16]}
<Call 0x21f5c 0x1035c> {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[##16]}
Quad2String(a : Quad; radix : Long ) : String
<POP 21f62-21f66 StackAdj> Δ+12 {[-4-]}
<Call 0x21f66 0x21eb4> {[-4-]}
<POP 21f6a-21f6c StackAdj> Δ+4 {}
<POP 21f6c-21f70 Epilogue> Σ0
@ 21f70
<LVAR 0x008 4(r)>
<POP 21f70-21f9a Body>
<POP 21f70-21f82 Prologue> Σ0 ↓
<POP 21f82-21f96 Naked> Σ0 ↓
<POP 21f82-21f84 StackAdj> Δ-4 {[-4-]}
<MI 21f84 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x21f88 0x102e4> {[-4-]|[4, '(A6+0x8)']}
Long2String(a : Long) : String
<POP 21f8e-21f90 StackAdj> Δ+4 {[-4-]}
<Call 0x21f90 0x21eb4> {[-4-]}
<POP 21f94-21f96 StackAdj> Δ+4 {}
<POP 21f96-21f9a Epilogue> Σ0
@ 21f9a
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 4(r)>
<LVAR -0x008 4(rw)>
<POP 21f9a-2206a Body>
<POP 21f9a-21fb0 Prologue> Σ0 ↓
<POP 21fb0-21fb8 RegCacheLoad> Σ0 ↓
<POP 21fb8-21fca Naked> Σ0 ↓
<MI 21fb8 MOVEA.L (A6+0x8),A0> {}
<MI 21fbc MOVE.L (A0+0x8),(A6-0x8)> {}
<Pointer.fp 0x21fc0 <LVAR -0x004 @ 4(r)>> Δ-4 {[@@-4]}
<Call 0x21fc2 0x102b8> {[@@-4]}
NewString(VAR a : String)
<POP 21fc8-21fca StackAdj> Δ+4 {}
<POP 21fca-21fd4 Naked> Σ0 ↓ →0x22058 ←0x22040
<MI 21fca MOVEA.L (A6-0x8),A0> {}
<MI 21fcc CMPA.W #0x1,A0> {}
<MI 21fd0 BEQ 0x22058> {}
<POP 21fd4-21fd8 Naked> Σ0 ↓ →0x22040
<MI 21fd4 TST.L (A0)> {}
<MI 21fd6 BEQ 0x22040> {}
<POP 21fd8-21fe2 Naked> Σ0 Δ-4 ↓ →0x21ff6
<MI 21fd8 MOVE.L (A0+0x4),-(A7)> Δ-4 {[4, '(A0+0x4)']}
<MI 21fdc MOVE.L (A0),D7> {[4, '(A0+0x4)']}
<MI 21fde CMP.L (A7),D7> {[4, '(A0+0x4)']}
<MI 21fe0 BGT 0x21ff6> {[4, '(A0+0x4)']}
<POP 21fe2-21ff6 Naked> Σ-4 ↓
<MI 21fe2 MOVE.L (A7),D0> {[-4-]}
<POP 0x21fe4 LimitCheck -0x7fffffff ≤ D7> {[-4-]}
<MI 21fe4 CMPI.L #0x80000001,D7>
<MI 21fea BLT 0x21ff4>
<POP 0x21fec LimitCheck D0 ≤ 0x7fffffff> {[-4-]}
<MI 21fec CMPI.L #0x7fffffff,D0>
<MI 21ff2 BLE 0x21ff6>
<MI 21ff4 TRAP #15>
<POP 21ff6-21ffa Naked> Σ-4 ↓ →0x2203e ←0x21fd8 ←0x2203a
<MI 21ff6 CMP.L (A7),D7> {[-4-]}
<MI 21ff8 BGT 0x2203e> {[-4-]}
<POP 21ffa-22026 Naked> Σ-4 ↓ →0x2203a
<MI 21ffa MOVE.L (A6-0x4),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x4)']}
<MI 21ffc MOVE.L D7,D0> {[-4-]|[4, '(A6-0x4)']}
<MI 21ffe SUBQ.L #0x1,D0> {[-4-]|[4, '(A6-0x4)']}
<POP 0x22000 LimitCheck 0x0 ≤ D0 ≤ 0xfff> {[-4-]|[4, '(A6-0x4)']}
<MI 2200a LEA.L 0x26bf4,A0> {[-4-]|[4, '(A6-0x4)']}
<MI 22010 MOVE.B (A0+D0.L+#0x8),-(A7)> Δ-2 {[-4-]|[4, '(A6-0x4)']|[2, '(A0+D0.L+#0x8)']}
<Call 0x22014 0x102c0> {[-4-]|[4, '(A6-0x4)']|[2, '(A0+D0.L+#0x8)']}
AppendChar(MOD b : String; a : char)
<POP 2201a-2201c StackAdj> Δ+6 {[-4-]}
<MI 2201c MOVEA.L (A6-0x4),A0> {[-4-]}
<MI 2201e MOVE.W (A0),D0> {[-4-]}
<MI 22020 CMPI.W #0x007a,D0> {[-4-]}
<MI 22024 BLT 0x2203a> {[-4-]}
<POP 22026-2203a Naked> Σ-4 ↓
<MI 22026 MOVE.L (A6-0x4),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x4)']}
<Call 0x22028 0x103d8> {[-4-]|[4, '(A6-0x4)']}
WriteConsoleString(str : String)
<POP 2202e-22030 StackAdj> Δ+4 {[-4-]}
<Pointer.fp 0x22030 <LVAR -0x004 @ 4(r)>> Δ-4 {[-4-]|[@@-4]}
<Call 0x22032 0x102b8> {[-4-]|[@@-4]}
NewString(VAR a : String)
<POP 22038-2203a StackAdj> Δ+4 {[-4-]}
<POP 2203a-2203e Naked> Σ-4 ↓ →0x21ff6 ←0x21ffa
<MI 2203a ADDQ.L #0x1,D7> {[-4-]}
<MI 2203c BVC 0x21ff6> {[-4-]}
<POP 2203e-22040 Naked> Σ-4 Δ+4 ↓ ←0x21ff6
<POP 2203e-22040 StackAdj> Δ+4 {}
<POP 22040-22058 Naked> Σ0 →0x21fca ←0x21fd4
<MI 22040 MOVE.L (A6-0x4),-(A7)> Δ-4 {[4, '(A6-0x4)']}
<Const 0x22042 0x20.2> Δ-2 {[4, '(A6-0x4)']|[#32]}
<Call 0x22046 0x102c0> {[4, '(A6-0x4)']|[#32]}
AppendChar(MOD b : String; a : char)
<POP 2204c-2204e StackAdj> Δ+6 {}
<MI 2204e MOVEA.L (A6-0x8),A0> {}
<MI 22050 MOVE.L (A0+0x8),(A6-0x8)> {}
<MI 22054 BRA 0x21fca> {}
<POP 22058-22062 Naked> Σ0 ↓ ←0x21fca
<MI 22058 MOVE.L (A6-0x4),-(A7)> Δ-4 {[4, '(A6-0x4)']}
<Call 0x2205a 0x103e0> {[4, '(A6-0x4)']}
WriteConsoleStringCrLf(str : String)
<POP 22060-22062 StackAdj> Δ+4 {}
<POP 22062-2206a Epilogue> Σ0
@ 2206a
<LVAR 0x008 @ 4(r)>
<LVAR -0x003 @ 1(r)>
<LVAR -0x004 @ 1(r)>
<LVAR -0x008 @ 4(r)>
<LVAR -0x00c @ 4(rw)>
<POP 2206a-22174 Body>
<POP 2206a-22080 Prologue> Σ0 ↓
<POP 22080-22092 RegCacheLoad> Σ0 ↓
<POP 22092-220d8 Naked> Σ0 ↓ →0x2210e
<Blob 0x22092 [4] @> Δ-4 {[«4""»]}
<POP 22096-22098 StackAdj> Δ-8 {[«4""»]|[-8-]}
<MI 22098 MOVE.L (A6+0x8),-(A7)> Δ-4 {[«4""»]|[-8-]|[4, '(A6+0x8)']}
<Call 0x2209a 0x102cc> {[«4""»]|[-8-]|[4, '(A6+0x8)']}
StringDup(a : String) : String
<Lit 0x220a0 4> {[«4""»]|[-8-]|[$$.HLP]}
<Call 0x220b2 0x102d0> {[«4""»]|[-8-]|[$$.HLP]}
StringCat2(a, b : String) : String
<POP 220b8-220ba StackAdj> Δ+8 {[«4""»]|[-4-]}
<MI 220ba MOVE.L (A7)+,(A6-0xc)> Δ+4 {[«4""»]}
<MI 220bc MOVE.L (A6-0xc),(A7)> {[4, '(A6-0xc)']}
<MI 220be CLR.B -(A7)> Δ-2 {[4, '(A6-0xc)']|[#0]}
<MI 220c0 CLR.B -(A7)> Δ-2 {[4, '(A6-0xc)']|[#0]|[#0]}
<Const 0x220c2 0x0.4> Δ-4 {[4, '(A6-0xc)']|[#0]|[#0]|[##0]}
<Pointer.fp 0x220c6 <LVAR -0x004 @ 1(r)>> Δ-4 {[4, '(A6-0xc)']|[#0]|[#0]|[##0]|[@@-4]}
<Pointer.fp 0x220c8 <LVAR -0x008 @ 4(r)>> Δ-4 {[4, '(A6-0xc)']|[#0]|[#0]|[##0]|[@@-4]|[@@-8]}
<Call 0x220ca 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 220d0-220d4 StackAdj> Δ+20 {}
<MI 220d4 TST.B (A6-0x4)> {}
<MI 220d6 BEQ 0x2210e> {}
<POP 220d8-2210e Naked> Σ0 →0x22162
<Blob 0x220d8 [22] @> Δ-22 {[«22""»]}
<POP 220e4-220e6 StackAdj> Δ-8 {[«22""»]|[-8-]}
<Lit 0x220e6 22> {[«22""»]|[-4-]|[$$No help available for_]}
<POP 220f6-220f8 StackAdj> Δ-4 {[«22""»]|[-4-]|[$$No help available for_]|[-4-]}
<MI 220f8 MOVE.L (A6+0x8),(A7)> {[«22""»]|[-4-]|[$$No help available for_]|[4, '(A6+0x8)']}
<Call 0x220fa 0x102d0> {[«22""»]|[-4-]|[$$No help available for_]|[4, '(A6+0x8)']}
StringCat2(a, b : String) : String
<POP 22100-22102 StackAdj> Δ+8 {[«22""»]|[-4-]}
<Call 0x22102 0x103e0> {[«22""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 22108-2210c StackAdj> Δ+26 {}
<MI 2210c BRA 0x22162> {}
<POP 2210e-22126 Naked> Σ0 ↓ →0x2213a ←0x22092 ←0x2213a
<MI 2210e MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<Pointer.fp 0x22110 <LVAR 0x008 @ 4(r)>> Δ-4 {[4, '(A6-0x8)']|[@@8]}
<Pointer.fp 0x22112 <LVAR -0x003 @ 1(r)>> Δ-4 {[4, '(A6-0x8)']|[@@8]|[@@-3]}
<Call 0x22116 0x1043c> {[4, '(A6-0x8)']|[@@8]|[@@-3]}
FileReadLine(file : File; VAR a : String; VAR b : Byte)
<POP 2211c-22120 StackAdj> Δ+12 {}
<MI 22120 TST.B (A6-0x3)> {}
<MI 22124 BNE 0x2213a> {}
<POP 22126-2213a Naked> Σ0 ↓
<POP 22126-22128 StackAdj> Δ-4 {[-4-]}
<MI 22128 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x2212a 0x102cc> {[-4-]|[4, '(A6+0x8)']}
StringDup(a : String) : String
<POP 22130-22132 StackAdj> Δ+4 {[-4-]}
<Call 0x22132 0x103e0> {[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 22138-2213a StackAdj> Δ+4 {}
<POP 2213a-22140 Naked> Σ0 ↓ →0x2210e ←0x2210e
<MI 2213a TST.B (A6-0x3)> {}
<MI 2213e BEQ 0x2210e> {}
<POP 22140-22162 Naked> Σ0 ↓
<MI 22140 CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x22142 0x2.2> Δ-2 {[#0]|[#2]}
<Const 0x22146 0x1.4> Δ-4 {[#0]|[#2]|[##1]}
<Pointer.fp 0x2214a <LVAR -0x004 @ 1(r)>> Δ-4 {[#0]|[#2]|[##1]|[@@-4]}
<Pointer.fp 0x2214c <LVAR -0x008 @ 4(r)>> Δ-4 {[#0]|[#2]|[##1]|[@@-4]|[@@-8]}
<Call 0x2214e 0x1038c> {[#0]|[#2]|[##1]|[@@-4]|[@@-8]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 22154-22158 StackAdj> Δ+16 {}
<Pointer.fp 0x22158 <LVAR 0x008 @ 4(r)>> Δ-4 {[@@8]}
<Call 0x2215a 0x102bc> {[@@8]}
FreeString(VAR a : String)
<POP 22160-22162 StackAdj> Δ+4 {}
<POP 22162-2216c Naked> Σ0 ↓ ←0x220d8
<Pointer.fp 0x22162 <LVAR -0x00c @ 4(rw)>> Δ-4 {[@@-12]}
<Call 0x22164 0x102bc> {[@@-12]}
FreeString(VAR a : String)
<POP 2216a-2216c StackAdj> Δ+4 {}
<POP 2216c-22174 Epilogue> Σ0
@ 22174
<LVAR 0x008 4(r)>
<POP 22174-221f6 Body>
<POP 22174-2218a Prologue> Σ0 ↓
<POP 2218a-2219a Naked> Σ0 ↓ →0x221c8
<POP 2218a-2218c StackAdj> Δ-4 {[-4-]}
<MI 2218c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x22190 0x214f6> {[-4-]|[4, '(A6+0x8)']}
<POP 22194-22196 StackAdj> Δ+4 {[-4-]}
<MI 22196 MOVE.L (A7)+,D6> Δ+4 {}
<MI 22198 BNE 0x221c8> {}
<POP 2219a-221c8 Naked> Σ0 →0x221ee
<Blob 0x2219a [10] 0x27c0e> Δ-10 {[«10»]}
<POP 221a8-221aa StackAdj> Δ-4 {[«10»]|[-4-]}
<Lit 0x221aa> {[«10»]|[$$…]}
<Pointer.sp 0x221aa 4> Δ-4
<Const 0x221ae 0x1.2> Δ-2
<Const 0x221b2 0xa.2> Δ-2
<Call 0x221b6 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 221bc-221be StackAdj> Δ+8
<Call 0x221be 0x2206a> {[«10»]|[$$…]}
<POP 221c2-221c6 StackAdj> Δ+14 {}
<MI 221c6 BRA 0x221ee> {}
<POP 221c8-221cc Naked> Σ0 Δ-4 ↓ ←0x2218a
<MI 221c8 MOVE.L D6,-(A7)> Δ-4 {[4, 'D6']}
<MI 221ca MOVEQ.L #0x01,D7> {[4, 'D6']}
<POP 221cc-221d0 Naked> Σ-4 ↓ →0x221ec ←0x221d0
<MI 221cc CMP.L (A7),D7> {[-4-]}
<MI 221ce BGT 0x221ec> {[-4-]}
<POP 221d0-221ec Naked> Σ-4 ↓ →0x221cc
<POP 221d0-221d2 StackAdj> Δ-4 {[-8-]}
<MI 221d2 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<MI 221d6 MOVE.L D7,-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']|[4, 'D7']}
<Call 0x221d8 0x21e12> {[-8-]|[4, '(A6+0x8)']|[4, 'D7']}
<POP 221dc-221de StackAdj> Δ+8 {[-8-]}
<MI 221de MOVEA.L (A7)+,A4> Δ+4 {[-4-]}
<MI 221e0 MOVE.L A4,-(A7)> Δ-4 {[-4-]|[4, 'A4']}
<Call 0x221e2 0x2206a> {[-4-]|[4, 'A4']}
<POP 221e6-221e8 StackAdj> Δ+4 {[-4-]}
<MI 221e8 ADDQ.L #0x1,D7> {[-4-]}
<MI 221ea BVC 0x221cc> {[-4-]}
<POP 221ec-221ee Naked> Σ-4 Δ+4 ↓ ←0x221cc
<POP 221ec-221ee StackAdj> Δ+4 {}
<POP 221ee-221f6 Epilogue> Σ0 ←0x2219a
@ 221f6
<LVAR 0x00c @>
<LVAR 0x008 @ 4(r)>
<LVAR -0x020 @>
<POP 221f6-22278 Body>
<POP 221f6-2220c Prologue> Σ0 ↓
<POP 2220c-2220e RegCacheLoad> Σ0 ↓
<POP 2220e-22210 Naked> Σ0 ↓
<MI 2220e MOVEQ.L #0x01,D7> {}
<POP 22210-2221c Naked> Σ0 ↓ →0x2222c ←0x2224a
<MI 22210 MOVEA.L (A6+0x8),A0> {}
<MI 22214 MOVE.W (A0),D0> {}
<MI 22216 EXTW.L D0> {}
<MI 22218 CMP.L D0,D7> {}
<MI 2221a BLE 0x2222c> {}
<POP 2221c-2222c Naked> Σ0 →0x2224a
<MI 2221c MOVE.L D7,D0> {}
<MI 2221e SUBQ.L #0x1,D0> {}
<POP 0x22220 LimitCheck 0x0 ≤ D0 ≤ 0x1d> {}
<MI 22226 CLR.B (A6+D0.L-#0x20)> {}
<MI 2222a BRA 0x2224a> {}
<POP 2222c-2224a Naked> Σ0 ↓ ←0x22210
<MI 2222c MOVE.L D7,D0> {}
<MI 2222e SUBQ.L #0x1,D0> {}
<POP 0x22230 LimitCheck 0x0 ≤ D0 ≤ 0x1d> {}
<MI 22236 MOVE.L D7,D1> {}
<MI 22238 SUBQ.L #0x1,D1> {}
<POP 0x2223a LimitCheck 0x0 ≤ D1 ≤ 0x7d> {}
<MI 22244 MOVE.B (A0+D1.L+#0x2),(A6+D0.L-#0x20)> {}
<POP 2224a-22254 Naked> Σ0 ↓ →0x22210 ←0x2221c
<MI 2224a ADDQ.L #0x1,D7> {}
<MI 2224c CMPI.L #0x0000001e,D7> {}
<MI 22252 BLE 0x22210> {}
<POP 22254-22270 Naked> Σ0 ↓
<Pointer.fp 0x22254 <LVAR 0x008 @ 4(r)>> Δ-4 {[@@8]}
<Call 0x22258 0x102bc> {[@@8]}
FreeString(VAR a : String)
<POP 2225e-22260 StackAdj> Δ+4 {}
<MI 22260 LEA.L (A6+0xc),A0> {}
<MI 22264 LEA.L (A6-0x20),A1> {}
<BlockMove 30,A1,A0> {}
<POP 22270-22278 Epilogue> Σ0
@ 22278
<LVAR 0x026 4(w)>
<LVAR 0x008 @>
<LVAR -0x006 4(rw)>
<POP 22278-222cc Body>
<POP 22278-2228e Prologue> Σ0 ↓
<POP 2228e-22292 RegCacheLoad> Σ0 ↓
<POP 22292-2229a Naked> Σ0 ↓
<MI 22292 MOVEQ.L #0x00,D7> {}
<MI 22294 MOVE.L 0x27c26,(A6-0x6)> {}
<POP 2229a-222a2 Naked> Σ0 ↓ →0x222c0 ←0x222be
<MI 2229a MOVEA.L (A6-0x6),A0> {}
<MI 2229c CMPA.W #0x1,A0> {}
<MI 222a0 BEQ 0x222c0> {}
<POP 222a2-222a6 Naked> Σ0 ↓ →0x222c0
<MI 222a2 TST.B D7> {}
<MI 222a4 BNE 0x222c0> {}
<POP 222a6-222ae Naked> Σ0 ↓
<MI 222a6 MOVEA.L A0,A1> {}
<MI 222a8 LEA.L (A6+0x8),A2> {}
<MI 222ac MOVEQ.L #0x1d,D0> {}
<POP 222ae-222b4 Naked> Σ0 ↓ →0x222ae ←0x222ae
<MI 222ae CMPM.B (A1)+,(A2)+> {}
<MI 222b0 DBNE D0,0x222ae> {}
<POP 222b4-222b6 Naked> Σ0 ↓ →0x222ba
<MI 222b4 BNE 0x222ba> {}
<POP 222b6-222ba Naked> Σ0 →0x222be
<MI 222b6 MOVEQ.L #0x01,D7> {}
<MI 222b8 BRA 0x222be> {}
<POP 222ba-222be Naked> Σ0 ↓ ←0x222b4
<MI 222ba MOVE.L (A0+0x26),(A6-0x6)> {}
<POP 222be-222c0 Naked> Σ0 →0x2229a ←0x222b6
<MI 222be BRA 0x2229a> {}
<POP 222c0-222c4 Naked> Σ0 ↓ ←0x2229a ←0x222a2
<MI 222c0 MOVE.L A0,(A6+0x26)> {}
<POP 222c4-222cc Epilogue> Σ0
@ 222cc
<LVAR 0x008 @ 4(r)>
<POP 222cc-22352 Body>
<POP 222cc-222e2 Prologue> Σ0 ↓
<POP 222e2-222ee RegCacheLoad> Σ0 ↓
<POP 222ee-222f4 Naked> Σ0 ↓ →0x2234a
<MI 222ee MOVEA.L (A6+0x8),A0> {}
<MI 222f0 CMPA.W #0x01,A0> {}
<MI 222f2 BEQ 0x2234a> {}
<POP 222f4-222fa Naked> Σ0 ↓ →0x2230a
<MI 222f4 TST.L (A0+0x1e)> {}
<MI 222f8 BEQ 0x2230a> {}
<POP 222fa-2230a Naked> Σ0 ↓
<MI 222fa MOVE.L (A0+0x22),-(A7)> Δ-4 {[4, '(A0+0x22)']}
<MI 222fe MOVE.L (A0+0x1e),-(A7)> Δ-4 {[4, '(A0+0x22)']|[4, '(A0+0x1e)']}
<Call 0x22302 0x102a4> {[4, '(A0+0x22)']|[4, '(A0+0x1e)']}
Free1(a : Pointer; b : Long)
<POP 22308-2230a StackAdj> Δ+8 {}
<POP 2230a-22310 Naked> Σ0 ↓ ←0x222f4
<MI 2230a MOVEQ.L #0x00,D7> {}
<MI 2230c MOVEA.W #0x01,A4> {}
<MI 2230e MOVEA.L 0x27c26,A3> {}
<POP 22310-22314 Naked> Σ0 ↓ →0x22328 ←0x22326
<MI 22310 CMPA.W #0x01,A3> {}
<MI 22312 BEQ 0x22328> {}
<POP 22314-22318 Naked> Σ0 ↓ →0x22328
<MI 22314 TST.B D7> {}
<MI 22316 BNE 0x22328> {}
<POP 22318-2231c Naked> Σ0 ↓ →0x22320
<MI 22318 CMPA.L (A6+0x8),A3> {}
<MI 2231a BNE 0x22320> {}
<POP 2231c-22320 Naked> Σ0 →0x22326
<MI 2231c MOVEQ.L #0x01,D7> {}
<MI 2231e BRA 0x22326> {}
<POP 22320-22326 Naked> Σ0 ↓ ←0x22318
<MI 22320 MOVEA.L A3,A4> {}
<MI 22322 MOVEA.L (A3+0x26),A3> {}
<POP 22326-22328 Naked> Σ0 →0x22310 ←0x2231c
<MI 22326 BRA 0x22310> {}
<POP 22328-2232c Naked> Σ0 ↓ →0x2234a ←0x22310 ←0x22314
<MI 22328 TST.B D7> {}
<MI 2232a BEQ 0x2234a> {}
<POP 2232c-22330 Naked> Σ0 ↓ →0x22336
<MI 2232c CMPA.W #0x01,A4> {}
<MI 2232e BNE 0x22336> {}
<POP 22330-22336 Naked> Σ0 →0x2233c
<MI 22330 MOVE.L (A3+0x26),0x27c26> {}
<MI 22334 BRA 0x2233c> {}
<POP 22336-2233c Naked> Σ0 ↓ ←0x2232c
<MI 22336 MOVE.L (A3+0x26),(A4+0x26)> {}
<POP 2233c-2234a Naked> Σ0 ↓ ←0x22330
<Pointer.fp 0x2233c <LVAR 0x008 @ 4(r)>> Δ-4 {[@@8]}
<Const 0x2233e 0x2a.4> Δ-4 {[@@8]|[##42]}
<Call 0x22342 0x102a8> {[@@8]|[##42]}
Free2(a : Pointer; b : Long)
<POP 22348-2234a StackAdj> Δ+8 {}
<POP 2234a-22352 Epilogue> Σ0 ←0x222ee ←0x22328
@ 22352
<LVAR 0x010 4(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x006 @ 4(rw)>
<LVAR -0x024 @>
<POP 22352-22410 Body>
<POP 22352-22368 Prologue> Σ0 ↓
<POP 22368-22372 RegCacheLoad> Σ0 ↓
<POP 22372-22390 Naked> Σ0 ↓ →0x22392
<POP 22372-22374 StackAdj> Δ-30 {[-30-]}
<MI 22374 MOVEA.L (A6+0xc),A0> {[-30-]}
<MI 22378 MOVE.L (A0),-(A7)> Δ-4 {[-30-]|[4, '(A0)']}
<Call 0x2237a 0x221f6> {[-30-]|[4, '(A0)']}
<POP 2237e-22380 StackAdj> Δ+4 {[-30-]}
<MI 22380 LEA.L (A6-0x24),A0> {[-30-]}
<POP 22384-2238c StackPop> Δ+30 {[-30-]}
<BlockMove 30,A7,A0> Δ+30
<MI 2238c TST.L (A6+0x8)> {[-30-]}
<MI 2238e BGE 0x22392> {[-30-]}
<POP 22390-22392 Naked> Σ0 ↓
<MI 22390 CLR.L (A6+0x8)> {}
<POP 22392-223ae Naked> Σ0 ↓ →0x223c0 ←0x22372
<POP 22392-22394 StackAdj> Δ-4 {[-4-]}
<Blob 0x22394 [30] (A6-0x6)> Δ-30 {[-4-]|[«30»]}
<Call 0x2239e 0x22278> {[-4-]|[«30»]}
<POP 223a2-223a4 StackAdj> Δ+30 {[-4-]}
<MI 223a4 MOVE.L (A7)+,(A6-0x6)> Δ+4 {}
<MI 223a6 MOVEA.L (A6-0x6),A0> {}
<MI 223a8 CMPA.W #0x1,A0> {}
<MI 223ac BEQ 0x223c0> {}
<POP 223ae-223b6 Naked> Σ0 ↓ →0x223b8
<MI 223ae MOVE.L (A0+0x1e),D0> {}
<MI 223b2 CMP.L (A6+0x8),D0> {}
<MI 223b4 BNE 0x223b8> {}
<POP 223b6-223b8 Naked> Σ0 →0x22404
<MI 223b6 BRA 0x22404> {}
<POP 223b8-223c0 Naked> Σ0 ↓ ←0x223ae
<MI 223b8 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x223ba 0x222cc> {[4, '(A6-0x6)']}
<POP 223be-223c0 StackAdj> Δ+4 {}
<POP 223c0-223f4 Naked> Σ0 ↓ →0x22404 ←0x22392
<Pointer.fp 0x223c0 <LVAR -0x006 @ 4(rw)>> Δ-4 {[@@-6]}
<Const 0x223c2 0x2a.4> Δ-4 {[@@-6]|[##42]}
<Call 0x223c6 0x1029c> {[@@-6]|[##42]}
Malloc1(length : Long) : Pointer
<POP 223cc-223ce StackAdj> Δ+8 {}
<MI 223ce MOVEA.L (A6-0x6),A0> {}
<MI 223d0 MOVE.L 0x27c26,(A0+0x26)> {}
<MI 223d8 MOVE.L (A6-0x6),0x27c26> {}
<MI 223de MOVEA.L A0,A1> {}
<MI 223e0 LEA.L (A6-0x24),A2> {}
<BlockMove 30,A2,A1> {}
<MI 223ec MOVE.L (A6+0x8),(A0+0x1e)> {}
<MI 223f0 TST.L (A6+0x8)> {}
<MI 223f2 BEQ 0x22404> {}
<POP 223f4-22404 Naked> Σ0 ↓
<POP 223f4-223f6 StackAdj> Δ-4 {[-4-]}
<MI 223f6 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x223f8 0x102a0> {[-4-]|[4, '(A6+0x8)']}
Malloc2(VAR dst : Pointer; length : Word)
<POP 223fe-22400 StackAdj> Δ+4 {[-4-]}
<MI 22400 MOVE.L (A7)+,(A0+0x22)> Δ+4 {}
<POP 22404-22408 Naked> Σ0 ↓ ←0x223b6 ←0x223c0
<MI 22404 MOVE.L (A6-0x6),(A6+0x10)> {}
<POP 22408-22410 Epilogue> Σ0
@ 22410
<LVAR 0x00c @>
<LVAR 0x008 @ 4(r)>
<LVAR -0x008 4(rw)>
<POP 22410-2249a Body>
<POP 22410-22426 Prologue> Σ0 ↓
<POP 22426-2242a RegCacheLoad> Σ0 ↓
<POP 2242a-22448 Naked> Σ0 ↓ →0x22488
<MI 2242a MOVEA.L (A6+0x8),A0> {}
<MI 2242c MOVE.W (A0),D0> {}
<MI 2242e EXTW.L D0> {}
<MI 22430 MOVE.L D0,D6> {}
<POP 22432-22434 StackAdj> Δ-4 {[-4-]}
<Pointer.fp 0x22434 <LVAR 0x00c @>> Δ-4 {[-4-]|[@@12]}
<MI 22438 MOVE.L D6,-(A7)> Δ-4 {[-4-]|[@@12]|[4, 'D6']}
<Call 0x2243a 0x22352> {[-4-]|[@@12]|[4, 'D6']}
<POP 2243e-22440 StackAdj> Δ+8 {[-4-]}
<MI 22440 MOVE.L (A7)+,(A6-0x8)> Δ+4 {}
<MI 22444 TST.L D6> {}
<MI 22446 BEQ 0x22488> {}
<POP 22448-22456 Naked> Σ0 Δ-8 ↓
<MI 22448 MOVEA.L (A6-0x8),A0> {}
<MI 2244c MOVEA.L (A0+0x22),A0> {}
<MI 22450 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 22452 MOVE.L D6,-(A7)> Δ-4 {[4, 'A0']|[4, 'D6']}
<MI 22454 MOVEQ.L #0x01,D7> {[4, 'A0']|[4, 'D6']}
<POP 22456-2245a Naked> Σ-8 ↓ →0x22486 ←0x2245a
<MI 22456 CMP.L (A7),D7> {[-8-]}
<MI 22458 BGT 0x22486> {[-8-]}
<POP 2245a-22486 Naked> Σ-8 ↓ →0x22456
<MI 2245a MOVE.L D7,D0> {[-8-]}
<MI 2245c SUBQ.L #0x1,D0> {[-8-]}
<POP 0x2245e LimitCheck 0x0 ≤ D0 ≤ 0x3ff> {[-8-]}
<MI 22468 MOVEA.L (A7+0x4),A0> {[-8-]}
<MI 2246c MOVEA.L (A6+0x8),A1> {[-8-]}
<MI 2246e MOVE.L D7,D1> {[-8-]}
<MI 22470 SUBQ.L #0x1,D1> {[-8-]}
<POP 0x22472 LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-8-]}
<MI 2247c MOVE.B (A1+D1.L+#0x2),(A0+D0.L)> {[-8-]}
<MI 22482 ADDQ.L #0x1,D7> {[-8-]}
<MI 22484 BVC 0x22456> {[-8-]}
<POP 22486-22488 Naked> Σ-8 Δ+8 ↓ ←0x22456
<POP 22486-22488 StackAdj> Δ+8 {}
<POP 22488-22492 Naked> Σ0 ↓ ←0x2242a
<Pointer.fp 0x22488 <LVAR 0x008 @ 4(r)>> Δ-4 {[@@8]}
<Call 0x2248a 0x102bc> {[@@8]}
FreeString(VAR a : String)
<POP 22490-22492 StackAdj> Δ+4 {}
<POP 22492-2249a Epilogue> Σ0
@ 2249a
<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 2249a-22606 Body>
<POP 2249a-224b0 Prologue> Σ0 ↓
<POP 224b0-224be RegCacheLoad> Σ0 ↓
<POP 224be-224d0 Naked> Σ0 ↓ →0x224fe
<POP 224be-224c0 StackAdj> Δ-4 {[-4-]}
<MI 224c0 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x224c2 0x214f6> {[-4-]|[4, '(A6+0x8)']}
<POP 224c6-224c8 StackAdj> Δ+4 {[-4-]}
<MI 224c8 MOVE.L (A7)+,(A6-0x10)> Δ+4 {}
<MI 224ca MOVE.L (A6-0x10),D0> {}
<MI 224cc CMP.L #0x01,D0> {}
<MI 224ce BGE 0x224fe> {}
<POP 224d0-224fe Naked> Σ0 ↓
<Blob 0x224d0 [26] @> Δ-26 {[«26""»]}
<POP 224e2-224e4 StackAdj> Δ-4 {[«26""»]|[-4-]}
<Lit 0x224e4 25> {[«26""»]|[$$Too few arguments for SET]}
<Call 0x224f6 0x210ea> {[«26""»]|[$$Too few arguments for SET]}
<POP 224fa-224fe StackAdj> Δ+30 {}
<POP 224fe-22504 Naked> Σ0 Δ-4 ↓ ←0x224be
<MI 224fe CLR.L (A6-0xc)> {}
<MI 22500 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 22502 MOVEQ.L #0x02,D6> {[4, 'D0']}
<POP 22504-22508 Naked> Σ-4 ↓ →0x22526 ←0x22508
<MI 22504 CMP.L (A7),D6> {[-4-]}
<MI 22506 BGT 0x22526> {[-4-]}
<POP 22508-22526 Naked> Σ-4 ↓ →0x22504
<POP 22508-2250c StackAdj> Δ-12 {[-16-]}
<MI 2250c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<MI 2250e MOVE.L D6,-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[4, 'D6']}
<Call 0x22510 0x21d34> {[-16-]|[4, '(A6+0x8)']|[4, 'D6']}
<POP 22514-22516 StackAdj> Δ+8 {[-16-]}
<Call 0x22516 0x21cfc> {[-16-]}
<POP 2251a-2251c StackAdj> Δ+8 {[-8-]}
<MI 2251c MOVE.L (A6-0xc),D0> {[-8-]}
<MI 2251e ADD.L (A7)+,D0> Δ+4 {[-4-]}
<MI 22520 MOVE.L D0,(A6-0xc)> {[-4-]}
<MI 22522 ADDQ.L #0x1,D6> {[-4-]}
<MI 22524 BVC 0x22504> {[-4-]}
<POP 22526-22556 Naked> Σ-4 Δ+4 ↓ →0x225fe ←0x22504
<POP 22526-22528 StackAdj> Δ+4 {}
<MI 22528 MOVE.L (A6-0x10),D0> {}
<MI 2252a SUBQ.L #0x2,D0> {}
<MI 2252c ADD.L D0,(A6-0xc)> {}
<POP 2252e-22530 StackAdj> Δ-4 {[-4-]}
<MI 22530 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x22532 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22536 0x21e12> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 2253a-2253c StackAdj> Δ+8 {[-4-]}
<MI 2253c MOVE.L (A7),(A6-0x4)> {[-4-]}
<Pointer.fp 0x22540 <LVAR -0x004 @ 4(w)>> Δ-4 {[-4-]|[@@-4]}
<MI 22544 MOVE.L (A6-0xc),-(A7)> Δ-4 {[-4-]|[@@-4]|[4, '(A6-0xc)']}
<Call 0x22546 0x22352> {[-4-]|[@@-4]|[4, '(A6-0xc)']}
<POP 2254a-2254c StackAdj> Δ+8 {[-4-]}
<MI 2254c MOVE.L (A7)+,(A6-0x8)> Δ+4 {}
<MI 22550 TST.L (A6-0xc)> {}
<MI 22552 BLE 0x225fe> {}
<POP 22556-22566 Naked> Σ0 Δ-8 ↓
<MI 22556 MOVEA.L (A6-0x8),A0> {}
<MI 2255a MOVEA.L (A0+0x22),A0> {}
<MI 2255e MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 22560 MOVEQ.L #0x01,D7> {[4, 'A0']}
<MI 22562 MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, 'A0']|[4, '(A6-0x10)']}
<MI 22564 MOVEQ.L #0x02,D6> {[4, 'A0']|[4, '(A6-0x10)']}
<POP 22566-2256c Naked> Σ-8 ↓ →0x225fc ←0x225f6
<MI 22566 CMP.L (A7),D6> {[-8-]}
<MI 22568 BGT 0x225fc> {[-8-]}
<POP 2256c-2258c Naked> Σ-8 Δ-4 ↓ →0x225a0
<POP 2256c-2256e StackAdj> Δ-8 {[-16-]}
<MI 2256e MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<MI 22570 MOVE.L D6,-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[4, 'D6']}
<Call 0x22572 0x21d34> {[-16-]|[4, '(A6+0x8)']|[4, 'D6']}
<POP 22576-22578 StackAdj> Δ+8 {[-16-]}
<MI 22578 MOVE.L (A7)+,(A6-0x20)> Δ+4 {[-12-]}
<MI 2257c MOVE.L (A7)+,(A6-0x1c)> Δ+4 {[-8-]}
<MI 22580 MOVE.L (A6-0x1c),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x1c)']}
<MI 22584 MOVE.L (A6-0x20),D5> {[-8-]|[4, '(A6-0x1c)']}
<MI 22588 CMP.L (A7),D5> {[-8-]|[4, '(A6-0x1c)']}
<MI 2258a BGT 0x225a0> {[-8-]|[4, '(A6-0x1c)']}
<POP 2258c-225a0 Naked> Σ-12 ↓
<MI 2258c MOVE.L (A7),D0> {[-12-]}
<POP 0x2258e LimitCheck -0x7fffffff ≤ D5> {[-12-]}
<MI 2258e CMPI.L #0x80000001,D5>
<MI 22594 BLT 0x2259e>
<POP 0x22596 LimitCheck D0 ≤ 0x7fffffff> {[-12-]}
<MI 22596 CMPI.L #0x7fffffff,D0>
<MI 2259c BLE 0x225a0>
<MI 2259e TRAP #15>
<POP 225a0-225a4 Naked> Σ-12 ↓ →0x225d6 ←0x2256c ←0x225a4
<MI 225a0 CMP.L (A7),D5> {[-12-]}
<MI 225a2 BGT 0x225d6> {[-12-]}
<POP 225a4-225d6 Naked> Σ-12 ↓ →0x225a0
<MI 225a4 MOVE.L D7,D0> {[-12-]}
<MI 225a6 SUBQ.L #0x1,D0> {[-12-]}
<POP 0x225a8 LimitCheck 0x0 ≤ D0 ≤ 0x3ff> {[-12-]}
<MI 225b2 MOVEA.L (A7+0x8),A0> {[-12-]}
<MI 225b6 MOVE.L D5,D1> {[-12-]}
<MI 225b8 SUBQ.L #0x1,D1> {[-12-]}
<POP 0x225ba LimitCheck 0x0 ≤ D1 ≤ 0xfff> {[-12-]}
<MI 225c4 LEA.L 0x26bf4,A1> {[-12-]}
<MI 225ca MOVE.B (A1+D1.L+#0x8),(A0+D0.L)> {[-12-]}
<MI 225d0 ADDQ.L #0x1,D7> {[-12-]}
<MI 225d2 ADDQ.L #0x1,D5> {[-12-]}
<MI 225d4 BVC 0x225a0> {[-12-]}
<POP 225d6-225dc Naked> Σ-12 Δ+4 ↓ →0x225f6 ←0x225a0
<POP 225d6-225d8 StackAdj> Δ+4 {[-8-]}
<MI 225d8 CMP.L (A6-0x10),D6> {[-8-]}
<MI 225da BEQ 0x225f6> {[-8-]}
<POP 225dc-225f6 Naked> Σ-8 ↓
<MI 225dc MOVE.L D7,D0> {[-8-]}
<MI 225de SUBQ.L #0x1,D0> {[-8-]}
<POP 0x225e0 LimitCheck 0x0 ≤ D0 ≤ 0x3ff> {[-8-]}
<MI 225ea MOVEA.L (A7+0x4),A0> {[-8-]}
<MI 225ee MOVE.B #0x2c,(A0+D0.L)> {[-8-]}
<MI 225f4 ADDQ.L #0x1,D7> {[-8-]}
<POP 225f6-225fc Naked> Σ-8 ↓ →0x22566 ←0x225d6
<MI 225f6 ADDQ.L #0x1,D6> {[-8-]}
<MI 225f8 BVC 0x22566> {[-8-]}
<POP 225fc-225fe Naked> Σ-8 Δ+8 ↓ ←0x22566
<POP 225fc-225fe StackAdj> Δ+8 {}
<POP 225fe-22606 Epilogue> Σ0 ←0x22526
@ 22606
<LVAR 0x008 4(r)>
<LVAR -0x00c 4(rw)>
<POP 22606-226f4 Body>
<POP 22606-2261c Prologue> Σ0 ↓
<POP 2261c-22624 RegCacheLoad> Σ0 ↓
<POP 22624-22656 Naked> Σ0 ↓ →0x22698
<POP 22624-22626 StackAdj> Δ-4 {[-4-]}
<MI 22626 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x2262a 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x2262e 0x21e12> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 22632-22634 StackAdj> Δ+8 {[-4-]}
<MI 22634 MOVEA.L (A7)+,A4> Δ+4 {}
<POP 22636-2263a StackAdj> Δ-34 {[-34-]}
<MI 2263a MOVE.L A4,-(A7)> Δ-4 {[-34-]|[4, 'A4']}
<Call 0x2263c 0x221f6> {[-34-]|[4, 'A4']}
<POP 22640-22642 StackAdj> Δ+4 {[-34-]}
<Call 0x22642 0x22278> {[-34-]}
<POP 22646-2264a StackAdj> Δ+30 {[-4-]}
<MI 2264a MOVE.L (A7)+,(A6-0xc)> Δ+4 {}
<MI 2264e MOVEA.L (A6-0xc),A0> {}
<MI 22652 CMPA.W #0x01,A0> {}
<MI 22654 BNE 0x22698> {}
<POP 22656-22698 Naked> Σ0 ↓
<Blob 0x22656 [20] @> Δ-20 {[«20""»]}
<POP 22668-2266a StackAdj> Δ-8 {[«20""»]|[-8-]}
<Lit 0x2266a 19> {[«20""»]|[-4-]|[$$Unknown variable :_]}
<MI 2267a MOVE.L (A6+0x8),(A7)> {[«20""»]|[-4-]|[4, '(A6+0x8)']}
<POP 22674-2267a StackAdj> Δ-8 {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-8-]}
<Const 0x2267e 0x1.4> Δ-4 {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-8-]|[##1]}
<Call 0x22682 0x21e12> {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-8-]|[##1]}
<POP 22686-22688 StackAdj> Δ+8 {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-4-]}
<Call 0x22688 0x102d0> {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-4-]}
StringCat2(a, b : String) : String
<POP 2268e-22690 StackAdj> Δ+8 {[«20""»]|[-4-]}
<Call 0x22690 0x210ea> {[«20""»]|[-4-]}
<POP 22694-22698 StackAdj> Δ+24 {}
<POP 22698-226ae Naked> Σ0 Δ-8 ↓ ←0x22624
<MI 22698 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Blob 0x2269a [4] 0x27bfc> Δ-4 {[4, 'A0']|[«4»]}
<MI 2269c MOVE.L (A0+0x1e),-(A7)> Δ-4 {[4, 'A0']|[«4»]|[4, '(A0+0x1e)']}
<MI 226a0 NEG.L (A7)> {[4, 'A0']|[«4»]|[4, '(A0+0x1e)']}
<Call 0x226a2 0x2163e> {[4, 'A0']|[«4»]|[4, '(A0+0x1e)']}
<POP 226a6-226a8 StackAdj> Δ+4 {[4, 'A0']|[«4»]}
<MI 226a8 MOVE.L (A0+0x1e),(A7)> {[4, 'A0']|[4, '(A0+0x1e)']}
<MI 226ac MOVEQ.L #0x01,D7> {[4, 'A0']|[4, '(A0+0x1e)']}
<POP 226ae-226b2 Naked> Σ-8 ↓ →0x226ea ←0x226b2
<MI 226ae CMP.L (A7),D7> {[-8-]}
<MI 226b0 BGT 0x226ea> {[-8-]}
<POP 226b2-226ea Naked> Σ-8 ↓ →0x226ae
<MI 226b2 MOVE.L D7,D0> {[-8-]}
<MI 226b4 ADD.L 0x27bfc,D0> {[-8-]}
<MI 226b6 SUBQ.L #0x1,D0> {[-8-]}
<MI 226b8 SUBQ.L #0x1,D0> {[-8-]}
<POP 0x226ba LimitCheck 0x0 ≤ D0 ≤ 0xfff> {[-8-]}
<MI 226c4 LEA.L 0x26bf4,A0> {[-8-]}
<MI 226ca MOVEA.L (A7+0x4),A1> {[-8-]}
<MI 226ce MOVEA.L (A1+0x22),A1> {[-8-]}
<MI 226d2 MOVE.L D7,D1> {[-8-]}
<MI 226d4 SUBQ.L #0x1,D1> {[-8-]}
<POP 0x226d6 LimitCheck 0x0 ≤ D1 ≤ 0x3ff> {[-8-]}
<MI 226e0 MOVE.B (A1+D1.L),(A0+D0.L+#0x8)> {[-8-]}
<MI 226e6 ADDQ.L #0x1,D7> {[-8-]}
<MI 226e8 BVC 0x226ae> {[-8-]}
<POP 226ea-226ec Naked> Σ-8 Δ+8 ↓ ←0x226ae
<POP 226ea-226ec StackAdj> Δ+8 {}
<POP 226ec-226f4 Epilogue> Σ0
@ 226f4
<LVAR -0x004 4(rw)>
<POP 226f4-22756 Body>
<POP 226f4-2270a Prologue> Σ0 ↓
<POP 2270a-22712 RegCacheLoad> Σ0 ↓
<POP 22712-22718 Naked> Σ0 ↓
<MI 22712 MOVE.L 0x27c26,(A6-0x4)> {}
<POP 22718-2271e Naked> Σ0 ↓ →0x2274e ←0x2271e
<MI 22718 MOVEA.L (A6-0x4),A0> {}
<MI 2271a CMPA.W #0x01,A0> {}
<MI 2271c BEQ 0x2274e> {}
<POP 2271e-2274e Naked> Σ0 →0x22718
<POP 2271e-22720 StackAdj> Δ-30 {[-30-]}
<MI 22720 MOVEA.L A7,A1> {[-30-]}
<MI 22722 MOVEA.L A0,A2> {[-30-]}
<BlockMove 30,A2,A1> {[-30-]}
<POP 2272c-2272e StackAdj> Δ-4 {[-34-]}
<Lit 0x2272e> {[-30-]|[$$…]}
<Pointer.sp 0x2272e 4> Δ-4
<Const 0x22732 0x1.2> Δ-2
<Const 0x22734 0x1e.2> Δ-2
<Call 0x22736 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 2273c-2273e StackAdj> Δ+8
<Call 0x2273e 0x103e0> {[-30-]|[$$…]}
WriteConsoleStringCrLf(str : String)
<POP 22744-22748 StackAdj> Δ+34 {}
<MI 22748 MOVE.L (A0+0x26),(A6-0x4)> {}
<MI 2274c BRA 0x22718> {}
<POP 2274e-22756 Epilogue> Σ0 ←0x22718
@ 22756
<LVAR 0x008 4(r)>
<POP 22756-22792 Body>
<POP 22756-22768 Prologue> Σ0 ↓
<POP 22768-2278e Naked> Σ0 ↓
<POP 22768-2276c StackAdj> Δ-38 {[-38-]}
<MI 2276c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-38-]|[4, '(A6+0x8)']}
<Const 0x22770 0x1.4> Δ-4 {[-38-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22774 0x21e12> {[-38-]|[4, '(A6+0x8)']|[##1]}
<POP 22778-2277a StackAdj> Δ+8 {[-38-]}
<Call 0x2277a 0x221f6> {[-38-]}
<POP 2277e-22780 StackAdj> Δ+4 {[-34-]}
<Call 0x22780 0x22278> {[-34-]}
<POP 22784-22788 StackAdj> Δ+30 {[-4-]}
<Call 0x22788 0x222cc> {[-4-]}
<POP 2278c-2278e StackAdj> Δ+4 {}
<POP 2278e-22792 Epilogue> Σ0
@ 22792
<POP 22792-227c0 Body>
<POP 22792-227a4 Prologue> Σ0 ↓
<POP 227a4-227bc Naked> Σ0 ↓
<POP 227a4-227a6 StackAdj> Δ-8 {[-8-]}
<Call 0x227a6 0x103cc> {[-8-]}
GetPushLevel() : Long
<Call 0x227ac 0x102e4> {[-8-]}
Long2String(a : Long) : String
<POP 227b2-227b4 StackAdj> Δ+4 {[-4-]}
<Call 0x227b4 0x103e0> {[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 227ba-227bc StackAdj> Δ+4 {}
<POP 227bc-227c0 Epilogue> Σ0
@ 227c0
<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 227c0-22ae8 Body>
<POP 227c0-227d6 Prologue> Σ0 ↓
<POP 227d6-227ee RegCacheLoad> Σ0 ↓
<POP 227ee-227fe Naked> Σ0 ↓ →0x22826
<POP 227ee-227f0 StackAdj> Δ-4 {[-4-]}
<MI 227f0 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x227f2 0x214f6> {[-4-]|[4, '(A6+0x8)']}
<POP 227f6-227f8 StackAdj> Δ+4 {[-4-]}
<MI 227f8 MOVE.L (A7)+,(A6-0x2c)> Δ+4 {}
<MI 227fc BNE 0x22826> {}
<POP 227fe-22826 Naked> Σ0 →0x22836
<POP 227fe-22800 StackAdj> Δ-4 {[-4-]}
<POP 22800-22801 StackAdj> Δ+2 {[-2-]}
<Blob 0x22801 [2] @> Δ-2 {[-2-]|[«2""»]}
<MI 22804 MOVE.B 0x20d0f,(A7+0x1)> {[-2-]|[«2""»]}
<MI 2280a MOVE.B 0x20d10,(A7+0x2)> {[-2-]|[«2""»]}
<POP 22810-22812 StackAdj> Δ-4 {[-2-]|[«2""»]|[-4-]}
<Lit 0x22812> {[-2-]|[«2""»]|[$$…]}
<Pointer.sp 0x22812 4> Δ-4
<Const 0x22816 0x1.2> Δ-2
<Const 0x22818 0x3.2> Δ-2
<Call 0x2281c 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 2281e-22820 StackAdj> Δ+8
<MI 22820 MOVE.L (A7)+,(A6-0x3c)> Δ+4 {[-2-]|[«2""»]}
<POP 22822-22824 StackAdj> Δ+4 {}
<MI 22824 BRA 0x22836> {}
<POP 22826-22836 Naked> Σ0 ↓ ←0x227ee
<POP 22826-22828 StackAdj> Δ-4 {[-4-]}
<MI 22828 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x2282a 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x2282e 0x21e12> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 22832-22834 StackAdj> Δ+8 {[-4-]}
<MI 22834 MOVE.L (A7)+,(A6-0x3c)> Δ+4 {}
<POP 22836-22886 Naked> Σ0 ↓ →0x22894 ←0x227fe
<Blob 0x22836 [6] @> Δ-6 {[«6""»]}
<POP 22846-22848 StackAdj> Δ-4 {[«6""»]|[-4-]}
<MI 22848 MOVE.L (A6-0x3c),-(A7)> Δ-4 {[«6""»]|[-4-]|[4, '(A6-0x3c)']}
<POP 2284a-2284c StackAdj> Δ-4 {[«6""»]|[-4-]|[4, '(A6-0x3c)']|[-4-]}
<Lit 0x2284c 5> {[«6""»]|[-4-]|[4, '(A6-0x3c)']|[$$.M200]}
<Call 0x2285a 0x102d0> {[«6""»]|[-4-]|[4, '(A6-0x3c)']|[$$.M200]}
StringCat2(a, b : String) : String
<POP 22860-22862 StackAdj> Δ+8 {[«6""»]|[-4-]}
<MI 22862 MOVE.L (A7)+,(A6-0x3c)> Δ+4 {[«6""»]}
<POP 22864-22866 StackAdj> Δ+2 {[-4-]}
<MI 22866 MOVE.L (A6-0x3c),(A7)> {[4, '(A6-0x3c)']}
<MI 22868 CLR.B -(A7)> Δ-2 {[4, '(A6-0x3c)']|[#0]}
<Const 0x2286a 0x1.2> Δ-2 {[4, '(A6-0x3c)']|[#0]|[#1]}
<Const 0x2286c 0x0.4> Δ-4 {[4, '(A6-0x3c)']|[#0]|[#1]|[##0]}
<Pointer.fp 0x22870 <LVAR -0x038 @ 1(r)>> Δ-4 {[4, '(A6-0x3c)']|[#0]|[#1]|[##0]|[@@-56]}
<Pointer.fp 0x22874 <LVAR -0x036 @ 4(r)>> Δ-4 {[4, '(A6-0x3c)']|[#0]|[#1]|[##0]|[@@-56]|[@@-54]}
<Call 0x22878 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 2287e-22880 StackAdj> Δ+20 {}
<MI 22880 TST.B (A6-0x38)> {}
<MI 22884 BEQ 0x22894> {}
<POP 22886-22894 Naked> Σ0 →0x22ae0
<Pointer.fp 0x22886 <LVAR -0x03c @ 4(rw)>> Δ-4 {[@@-60]}
<Call 0x22888 0x102bc> {[@@-60]}
FreeString(VAR a : String)
<POP 2288e-22890 StackAdj> Δ+4 {}
<MI 22890 BRA 0x22ae0> {}
<POP 22894-228da Naked> Σ0 ↓ →0x22910 ←0x22836
<MI 22894 MOVEA.L (A6-0x36),A0> {}
<MI 22898 MOVE.B (A0+0x3f),D0> {}
<MI 2289c LSL.B #0x6,D0> {}
<MI 2289e LSR.B #0x7,D0> {}
<MI 228a0 MOVE.B D0,(A6-0x32)> {}
<MI 228a4 CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x228a6 0x1.2> Δ-2 {[#0]|[#1]}
<Const 0x228a8 0x1.4> Δ-4 {[#0]|[#1]|[##1]}
<Pointer.fp 0x228ac <LVAR -0x038 @ 1(r)>> Δ-4 {[#0]|[#1]|[##1]|[@@-56]}
<Pointer.fp 0x228b0 <LVAR -0x036 @ 4(r)>> Δ-4 {[#0]|[#1]|[##1]|[@@-56]|[@@-54]}
<Call 0x228b4 0x1038c> {[#0]|[#1]|[##1]|[@@-56]|[@@-54]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 228ba-228be StackAdj> Δ+16 {}
<MI 228be MOVEA.L (A6-0x3c),A0> {}
<MI 228c0 MOVE.W (A0),D1> {}
<MI 228c2 EXTW.L D1> {}
<MI 228c4 SUBQ.L #0x5,D1> {}
<POP 0x228c6 LimitCheck -0x8000 ≤ D1 ≤ 0x7fff> {}
<MI 228d4 MOVE.W D1,(A0)> {}
<MI 228d6 TST.B D0> {}
<MI 228d8 BNE 0x22910> {}
<POP 228da-22910 Naked> Σ0 →0x22ae0
<Blob 0x228da [18] @> Δ-18 {[«18""»]}
<POP 228e6-228e8 StackAdj> Δ-4 {[«18""»]|[-4-]}
<MI 228e8 MOVE.L (A6-0x3c),-(A7)> Δ-4 {[«18""»]|[-4-]|[4, '(A6-0x3c)']}
<POP 228ea-228ec StackAdj> Δ-4 {[«18""»]|[-4-]|[4, '(A6-0x3c)']|[-4-]}
<Lit 0x228ec 18> {[«18""»]|[-4-]|[4, '(A6-0x3c)']|[$$ is not a program.]}
<Call 0x228fa 0x102d0> {[«18""»]|[-4-]|[4, '(A6-0x3c)']|[$$ is not a program.]}
StringCat2(a, b : String) : String
<POP 22900-22902 StackAdj> Δ+8 {[«18""»]|[-4-]}
<Call 0x22902 0x103e0> {[«18""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 22908-2290c StackAdj> Δ+22 {}
<MI 2290c BRA 0x22ae0> {}
<POP 22910-2292a Naked> Σ0 Δ-8 ↓ ←0x22894
<Pointer.fp 0x22910 <LVAR -0x030 @ 4(r)>> Δ-4 {[@@-48]}
<Call 0x22914 0x102b8> {[@@-48]}
NewString(VAR a : String)
<POP 2291a-2291c StackAdj> Δ+4 {}
<MI 2291c MOVEA.L (A6-0x30),A0> {}
<MI 22920 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 22922 MOVEQ.L #0x01,D7> {[4, 'A0']}
<MI 22924 MOVE.L (A6-0x2c),-(A7)> Δ-4 {[4, 'A0']|[4, '(A6-0x2c)']}
<MI 22928 MOVEQ.L #0x02,D5> {[4, 'A0']|[4, '(A6-0x2c)']}
<POP 2292a-22930 Naked> Σ-8 ↓ →0x229c2 ←0x229bc
<MI 2292a CMP.L (A7),D5> {[-8-]}
<MI 2292c BGT 0x229c2> {[-8-]}
<POP 22930-22950 Naked> Σ-8 Δ-4 ↓ →0x22964
<POP 22930-22932 StackAdj> Δ-8 {[-16-]}
<MI 22932 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<MI 22934 MOVE.L D5,-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[4, 'D5']}
<Call 0x22936 0x21d34> {[-16-]|[4, '(A6+0x8)']|[4, 'D5']}
<POP 2293a-2293c StackAdj> Δ+8 {[-16-]}
<MI 2293c MOVE.L (A7)+,(A6-0x28)> Δ+4 {[-12-]}
<MI 22940 MOVE.L (A7)+,(A6-0x24)> Δ+4 {[-8-]}
<MI 22944 MOVE.L (A6-0x24),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x24)']}
<MI 22948 MOVE.L (A6-0x28),D6> {[-8-]|[4, '(A6-0x24)']}
<MI 2294c CMP.L (A7),D6> {[-8-]|[4, '(A6-0x24)']}
<MI 2294e BGT 0x22964> {[-8-]|[4, '(A6-0x24)']}
<POP 22950-22964 Naked> Σ-12 ↓
<MI 22950 MOVE.L (A7),D0> {[-12-]}
<POP 0x22952 LimitCheck -0x7fffffff ≤ D6> {[-12-]}
<MI 22952 CMPI.L #0x80000001,D6>
<MI 22958 BLT 0x22962>
<POP 0x2295a LimitCheck D0 ≤ 0x7fffffff> {[-12-]}
<MI 2295a CMPI.L #0x7fffffff,D0>
<MI 22960 BLE 0x22964>
<MI 22962 TRAP #15>
<POP 22964-22968 Naked> Σ-12 ↓ →0x2299a ←0x22930 ←0x22968
<MI 22964 CMP.L (A7),D6> {[-12-]}
<MI 22966 BGT 0x2299a> {[-12-]}
<POP 22968-2299a Naked> Σ-12 ↓ →0x22964
<MI 22968 MOVE.L D7,D0> {[-12-]}
<MI 2296a SUBQ.L #0x1,D0> {[-12-]}
<POP 0x2296c LimitCheck 0x0 ≤ D0 ≤ 0x7d> {[-12-]}
<MI 22976 MOVEA.L (A7+0x8),A0> {[-12-]}
<MI 2297a MOVE.L D6,D1> {[-12-]}
<MI 2297c SUBQ.L #0x1,D1> {[-12-]}
<POP 0x2297e LimitCheck 0x0 ≤ D1 ≤ 0xfff> {[-12-]}
<MI 22988 LEA.L 0x26bf4,A1> {[-12-]}
<MI 2298e MOVE.B (A1+D1.L+#0x8),(A0+D0.L+#0x2)> {[-12-]}
<MI 22994 ADDQ.L #0x1,D7> {[-12-]}
<MI 22996 ADDQ.L #0x1,D6> {[-12-]}
<MI 22998 BVC 0x22964> {[-12-]}
<POP 2299a-229a2 Naked> Σ-12 Δ+4 ↓ →0x229bc ←0x22964
<POP 2299a-2299c StackAdj> Δ+4 {[-8-]}
<MI 2299c CMP.L (A6-0x2c),D5> {[-8-]}
<MI 229a0 BEQ 0x229bc> {[-8-]}
<POP 229a2-229bc Naked> Σ-8 ↓
<MI 229a2 MOVE.L D7,D0> {[-8-]}
<MI 229a4 SUBQ.L #0x1,D0> {[-8-]}
<POP 0x229a6 LimitCheck 0x0 ≤ D0 ≤ 0x7d> {[-8-]}
<MI 229b0 MOVEA.L (A7+0x4),A0> {[-8-]}
<MI 229b4 MOVE.B #0x2c,(A0+D0.L+#0x2)> {[-8-]}
<MI 229ba ADDQ.L #0x1,D7> {[-8-]}
<POP 229bc-229c2 Naked> Σ-8 ↓ →0x2292a ←0x2299a
<MI 229bc ADDQ.L #0x1,D5> {[-8-]}
<MI 229be BVC 0x2292a> {[-8-]}
<POP 229c2-22a72 Naked> Σ-8 Δ+8 ↓ →0x22a78 ←0x2292a
<POP 229c2-229c4 StackAdj> Δ+4 {[-4-]}
<MI 229c4 MOVEA.L (A7),A0> {[-4-]}
<MI 229c6 MOVE.L D7,D0> {[-4-]}
<MI 229c8 SUBQ.L #0x1,D0> {[-4-]}
<POP 0x229ca LimitCheck -0x8000 ≤ D0 ≤ 0x7fff> {[-4-]}
<MI 229d8 MOVE.W D0,(A0)> {[-4-]}
<POP 229da-229dc StackAdj> Δ+2 {[-2-]}
<POP 229dc-229dd StackAdj> Δ+2 {}
<Blob 0x229dd [2] @> Δ-2 {[«2""»]}
<Blob 0x229e0 [2] @> Δ-2 {[«2""»]|[«2""»]}
<Blob 0x229e4 [2] @> Δ-2 {[«2""»]|[«2""»]|[«2""»]}
<POP 229e8-229ea StackAdj> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[-4-]}
<Lit 0x229ea 6> {[«2""»]|[«2""»]|[«2""»]|[$$STATUS]}
<MI 229f8 MOVE.L (A7)+,(A6-0x8)> Δ+4 {[«2""»]|[«2""»]|[«2""»]}
<POP 229fc-229fe StackAdj> Δ+2 {[«2""»]|[«2""»]}
<MI 229fe MOVE.L (A6+0x8),(A7)> {[4, '(A6+0x8)']}
<Const 0x22a00 0x0.4> Δ-4 {[4, '(A6+0x8)']|[##0]}
<MI 22a04 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']}
<Pointer.fp 0x22a08 <LVAR -0x010 @ 4(r)>> Δ-4 {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']|[@@-16]}
<Pointer.fp 0x22a0c <LVAR -0x013 @ 1(r)>> Δ-4 {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']|[@@-16]|[@@-19]}
<Call 0x22a10 0x2434a> {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']|[@@-16]|[@@-19]}
<POP 22a16-22a18 StackAdj> Δ+20 {}
<Pointer.fp 0x22a18 <LVAR -0x008 @ 4(rw)>> Δ-4 {[@@-8]}
<Call 0x22a1c 0x102bc> {[@@-8]}
FreeString(VAR a : String)
<POP 22a22-22a24 StackAdj> Δ+2 {[-2-]}
<POP 22a24-22a25 StackAdj> Δ+2 {}
<Blob 0x22a25 [2] @> Δ-2 {[«2""»]}
<Blob 0x22a28 [2] @> Δ-2 {[«2""»]|[«2""»]}
<Blob 0x22a2c [2] @> Δ-2 {[«2""»]|[«2""»]|[«2""»]}
<POP 22a30-22a32 StackAdj> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[-4-]}
<Lit 0x22a32 6> {[«2""»]|[«2""»]|[«2""»]|[$$RESULT]}
<MI 22a40 MOVE.L (A7)+,(A6-0x8)> Δ+4 {[«2""»]|[«2""»]|[«2""»]}
<POP 22a44-22a46 StackAdj> Δ+2 {[«2""»]|[«2""»]}
<MI 22a46 MOVE.L (A6+0x8),(A7)> {[4, '(A6+0x8)']}
<Const 0x22a48 0x0.4> Δ-4 {[4, '(A6+0x8)']|[##0]}
<MI 22a4c MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']}
<Pointer.fp 0x22a50 <LVAR -0x00c @ 4(r)>> Δ-4 {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']|[@@-12]}
<Pointer.fp 0x22a54 <LVAR -0x012 @ 1(r)>> Δ-4 {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']|[@@-12]|[@@-18]}
<Call 0x22a58 0x2434a> {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']|[@@-12]|[@@-18]}
<POP 22a5e-22a60 StackAdj> Δ+20 {}
<Pointer.fp 0x22a60 <LVAR -0x008 @ 4(rw)>> Δ-4 {[@@-8]}
<Call 0x22a64 0x102bc> {[@@-8]}
FreeString(VAR a : String)
<POP 22a6a-22a6c StackAdj> Δ+4 {}
<MI 22a6c TST.B (A6-0x13)> {}
<MI 22a70 BNE 0x22a78> {}
<POP 22a72-22a78 Naked> Σ0 ↓ →0x22a7e
<MI 22a72 TST.B (A6-0x12)> {}
<MI 22a76 BEQ 0x22a7e> {}
<POP 22a78-22a7e Naked> Σ0 →0x22a82 ←0x229c2
<MI 22a78 CLR.B (A6-0x4)> {}
<MI 22a7c BRA 0x22a82> {}
<POP 22a7e-22a82 Naked> Σ0 ↓ ←0x22a72
<MI 22a7e MOVE.B #0x01,(A6-0x4)> {}
<POP 22a82-22aa8 Naked> Σ0 ↓ →0x22ac8 ←0x22a78
<MI 22a82 MOVE.L (A6-0x3c),-(A7)> Δ-4 {[4, '(A6-0x3c)']}
<MI 22a84 MOVE.L (A6-0x30),-(A7)> Δ-4 {[4, '(A6-0x3c)']|[4, '(A6-0x30)']}
<MI 22a88 MOVE.B (A6-0x4),D0> {[4, '(A6-0x3c)']|[4, '(A6-0x30)']}
<MI 22a8c EXTB.W D0> {[4, '(A6-0x3c)']|[4, '(A6-0x30)']}
<POP 0x22a8e LimitCheck 0x0 ≤ D0 ≤ 0x2> {[4, '(A6-0x3c)']|[4, '(A6-0x30)']}
<MI 22a92 MOVE.B D0,-(A7)> Δ-2 {[4, '(A6-0x3c)']|[4, '(A6-0x30)']|[2, 'D0']}
<Pointer.fp 0x22a94 <LVAR -0x014 @ 1(r)>> Δ-4 {[4, '(A6-0x3c)']|[4, '(A6-0x30)']|[2, 'D0']|[@@-20]}
<Call 0x22a98 0x103b0> {[4, '(A6-0x3c)']|[4, '(A6-0x30)']|[2, 'D0']|[@@-20]}
PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
<POP 22a9e-22aa2 StackAdj> Δ+14 {}
<MI 22aa2 TST.B (A6-0x13)> {}
<MI 22aa6 BEQ 0x22ac8> {}
<POP 22aa8-22ac8 Naked> Σ0 ↓
<MI 22aa8 MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0x10)']}
<POP 22aac-22aae StackAdj> Δ-4 {[4, '(A6-0x10)']|[-4-]}
<MI 22aae MOVE.B (A6-0x14),D0> {[4, '(A6-0x10)']|[-4-]}
<MI 22ab2 EXTB.W D0> {[4, '(A6-0x10)']|[-4-]}
<POP 0x22ab4 LimitCheck 0x0 ≤ D0 ≤ 0xe> {[4, '(A6-0x10)']|[-4-]}
<MI 22ab8 MOVE.B D0,-(A7)> Δ-2 {[4, '(A6-0x10)']|[-4-]|[2, 'D0']}
<Call 0x22aba 0x103c0> {[4, '(A6-0x10)']|[-4-]|[2, 'D0']}
ExpErrMsg(a: Byte) : String
<POP 22ac0-22ac2 StackAdj> Δ+2 {[4, '(A6-0x10)']|[-4-]}
<Call 0x22ac2 0x22410> {[4, '(A6-0x10)']|[-4-]}
<POP 22ac6-22ac8 StackAdj> Δ+8 {}
<POP 22ac8-22ace Naked> Σ0 ↓ →0x22ae0 ←0x22a82
<MI 22ac8 TST.B (A6-0x12)> {}
<MI 22acc BEQ 0x22ae0> {}
<POP 22ace-22ae0 Naked> Σ0 ↓
<MI 22ace MOVE.L (A6-0xc),-(A7)> Δ-4 {[4, '(A6-0xc)']}
<POP 22ad2-22ad4 StackAdj> Δ-4 {[4, '(A6-0xc)']|[-4-]}
<Call 0x22ad4 0x103c8> {[4, '(A6-0xc)']|[-4-]}
FSCALL_103c8
<Call 0x22ada 0x22410> {[4, '(A6-0xc)']|[-4-]}
<POP 22ade-22ae0 StackAdj> Δ+8 {}
<POP 22ae0-22ae8 Epilogue> Σ0 ←0x22886 ←0x228da ←0x22ac8
@ 22ae8
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 4(rw)>
<LVAR -0x008 @ 4(rw)>
<POP 22ae8-22b60 Body>
<POP 22ae8-22afe Prologue> Σ0 ↓
<POP 22afe-22b06 RegCacheLoad> Σ0 ↓
<POP 22b06-22b3a Naked> Σ0 ↓ →0x22b40
<POP 22b06-22b08 StackAdj> Δ-4 {[-4-]}
<MI 22b08 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x22b0c 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22b10 0x21e12> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 22b14-22b16 StackAdj> Δ+8 {[-4-]}
<MI 22b16 MOVE.L (A7),(A6-0x8)> {[-4-]}
<MI 22b18 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x22b1c 0x2.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##2]}
<Call 0x22b20 0x21e12> {[-4-]|[4, '(A6+0x8)']|[##2]}
<POP 22b24-22b26 StackAdj> Δ+8 {[-4-]}
<MI 22b26 MOVE.L (A7),(A6-0x4)> {[-4-]}
<POP 22b28-22b2a StackAdj> Δ+2 {[-2-]}
<MI 22b2a MOVE.L (A6-0x8),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x8)']}
<MI 22b2c MOVE.L (A6-0x4),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x8)']|[4, '(A6-0x4)']}
<Call 0x22b2e 0x102c8> {[-2-]|[4, '(A6-0x8)']|[4, '(A6-0x4)']}
StringEqual(a, b : String) : Byte
<POP 22b34-22b36 StackAdj> Δ+8 {[-2-]}
<MI 22b36 TST.B (A7)+> Δ+2 {}
<MI 22b38 BEQ 0x22b40> {}
<POP 22b3a-22b40 Naked> Σ0 →0x22b44
<Call 0x22b3a 0x218d2> {}
<MI 22b3e BRA 0x22b44> {}
<POP 22b40-22b44 Naked> Σ0 ↓ ←0x22b06
<Call 0x22b40 0x21918> {}
<POP 22b44-22b58 Naked> Σ0 ↓ ←0x22b3a
<Pointer.fp 0x22b44 <LVAR -0x004 @ 4(rw)>> Δ-4 {[@@-4]}
<Call 0x22b46 0x102bc> {[@@-4]}
FreeString(VAR a : String)
<POP 22b4c-22b4e StackAdj> Δ+4 {}
<Pointer.fp 0x22b4e <LVAR -0x008 @ 4(rw)>> Δ-4 {[@@-8]}
<Call 0x22b50 0x102bc> {[@@-8]}
FreeString(VAR a : String)
<POP 22b56-22b58 StackAdj> Δ+4 {}
<POP 22b58-22b60 Epilogue> Σ0
@ 22b60
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 4(rw)>
<LVAR -0x008 @ 4(rw)>
<POP 22b60-22bd8 Body>
<POP 22b60-22b76 Prologue> Σ0 ↓
<POP 22b76-22b7e RegCacheLoad> Σ0 ↓
<POP 22b7e-22bb2 Naked> Σ0 ↓ →0x22bb8
<POP 22b7e-22b80 StackAdj> Δ-4 {[-4-]}
<MI 22b80 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x22b84 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22b88 0x21e12> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 22b8c-22b8e StackAdj> Δ+8 {[-4-]}
<MI 22b8e MOVE.L (A7),(A6-0x8)> {[-4-]}
<MI 22b90 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x22b94 0x2.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##2]}
<Call 0x22b98 0x21e12> {[-4-]|[4, '(A6+0x8)']|[##2]}
<POP 22b9c-22b9e StackAdj> Δ+8 {[-4-]}
<MI 22b9e MOVE.L (A7),(A6-0x4)> {[-4-]}
<POP 22ba0-22ba2 StackAdj> Δ+2 {[-2-]}
<MI 22ba2 MOVE.L (A6-0x8),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x8)']}
<MI 22ba4 MOVE.L (A6-0x4),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x8)']|[4, '(A6-0x4)']}
<Call 0x22ba6 0x102c8> {[-2-]|[4, '(A6-0x8)']|[4, '(A6-0x4)']}
StringEqual(a, b : String) : Byte
<POP 22bac-22bae StackAdj> Δ+8 {[-2-]}
<MI 22bae TST.B (A7)+> Δ+2 {}
<MI 22bb0 BNE 0x22bb8> {}
<POP 22bb2-22bb8 Naked> Σ0 →0x22bbc
<Call 0x22bb2 0x218d2> {}
<MI 22bb6 BRA 0x22bbc> {}
<POP 22bb8-22bbc Naked> Σ0 ↓ ←0x22b7e
<Call 0x22bb8 0x21918> {}
<POP 22bbc-22bd0 Naked> Σ0 ↓ ←0x22bb2
<Pointer.fp 0x22bbc <LVAR -0x004 @ 4(rw)>> Δ-4 {[@@-4]}
<Call 0x22bbe 0x102bc> {[@@-4]}
FreeString(VAR a : String)
<POP 22bc4-22bc6 StackAdj> Δ+4 {}
<Pointer.fp 0x22bc6 <LVAR -0x008 @ 4(rw)>> Δ-4 {[@@-8]}
<Call 0x22bc8 0x102bc> {[@@-8]}
FreeString(VAR a : String)
<POP 22bce-22bd0 StackAdj> Δ+4 {}
<POP 22bd0-22bd8 Epilogue> Σ0
@ 22bd8
<LVAR 0x008 4(r)>
<POP 22bd8-22c04 Body>
<POP 22bd8-22bea Prologue> Σ0 ↓
<POP 22bea-22c00 Naked> Σ0 ↓
<POP 22bea-22bec StackAdj> Δ-4 {[-4-]}
<MI 22bec MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x22bf0 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22bf4 0x21e12> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 22bf8-22bfa StackAdj> Δ+8 {[-4-]}
<Call 0x22bfa 0x21c0a> {[-4-]}
<POP 22bfe-22c00 StackAdj> Δ+4 {}
<POP 22c00-22c04 Epilogue> Σ0
@ 22c04
<LVAR 0x008 4(r)>
<LVAR -0x014 @ 4(rw)>
<POP 22c04-22d04 Body>
<POP 22c04-22c1a Prologue> Σ0 ↓
<POP 22c1a-22c24 RegCacheLoad> Σ0 ↓
<POP 22c24-22c82 Naked> Σ0 ↓ →0x22cb2
<POP 22c24-22c26 StackAdj> Δ-4 {[-4-]}
<MI 22c26 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x22c28 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22c2c 0x21e12> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 22c30-22c32 StackAdj> Δ+8 {[-4-]}
<MI 22c32 MOVE.L (A7),(A6-0x14)> {[-4-]}
<MI 22c34 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x22c36 0x2.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##2]}
<Call 0x22c3a 0x21e12> {[-4-]|[4, '(A6+0x8)']|[##2]}
<POP 22c3e-22c40 StackAdj> Δ+8 {[-4-]}
<MI 22c40 MOVEA.L (A7)+,A4> Δ+4 {}
<POP 22c42-22c46 StackAdj> Δ-12 {[-12-]}
<MI 22c46 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']}
<Const 0x22c48 0x3.4> Δ-4 {[-12-]|[4, '(A6+0x8)']|[##3]}
<Call 0x22c4c 0x21e44> {[-12-]|[4, '(A6+0x8)']|[##3]}
<POP 22c50-22c52 StackAdj> Δ+8 {[-12-]}
<Call 0x22c52 0x10350> {[-12-]}
Quad2Long(a : Quad) : Long
<POP 22c58-22c5a StackAdj> Δ+8 {[-4-]}
<MI 22c5a MOVE.L (A7),D6> {[-4-]}
<POP 22c5c-22c5e StackAdj> Δ-8 {[-12-]}
<MI 22c5e MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']}
<Const 0x22c60 0x4.4> Δ-4 {[-12-]|[4, '(A6+0x8)']|[##4]}
<Call 0x22c64 0x21e44> {[-12-]|[4, '(A6+0x8)']|[##4]}
<POP 22c68-22c6a StackAdj> Δ+8 {[-12-]}
<Call 0x22c6a 0x10350> {[-12-]}
Quad2Long(a : Quad) : Long
<POP 22c70-22c72 StackAdj> Δ+8 {[-4-]}
<MI 22c72 MOVE.L (A7)+,D5> Δ+4 {}
<MI 22c74 MOVE.L D6,D0> {}
<MI 22c76 ADD.L D5,D0> {}
<MI 22c78 SUBQ.L #0x1,D0> {}
<MI 22c7a MOVE.W (A4),D1> {}
<MI 22c7c EXTW.L D1> {}
<MI 22c7e CMP.L D1,D0> {}
<MI 22c80 BLE 0x22cb2> {}
<POP 22c82-22cb2 Naked> Σ0 ↓
<Blob 0x22c82 [32] @> Δ-32 {[«32""»]}
<POP 22c94-22c96 StackAdj> Δ-4 {[«32""»]|[-4-]}
<Lit 0x22c96 31> {[«32""»]|[$$Offset/Length error in [INSERT]]}
<Call 0x22caa 0x210ea> {[«32""»]|[$$Offset/Length error in [INSERT]]}
<POP 22cae-22cb2 StackAdj> Δ+36 {}
<POP 22cb2-22cbe Naked> Σ0 Δ-8 ↓ ←0x22c24
<MI 22cb2 MOVEA.L (A6-0x14),A0> {}
<MI 22cb4 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 22cb6 MOVE.W (A0),D0> {[4, 'A0']}
<MI 22cb8 EXTW.L D0> {[4, 'A0']}
<MI 22cba MOVE.L D0,-(A7)> Δ-4 {[4, 'A0']|[4, 'D0']}
<MI 22cbc MOVEQ.L #0x01,D7> {[4, 'A0']|[4, 'D0']}
<POP 22cbe-22cc2 Naked> Σ-8 ↓ →0x22ce8 ←0x22cc2
<MI 22cbe CMP.L (A7),D7> {[-8-]}
<MI 22cc0 BGT 0x22ce8> {[-8-]}
<POP 22cc2-22ce8 Naked> Σ-8 ↓ →0x22cbe
<MI 22cc2 MOVE.L D6,D0> {[-8-]}
<MI 22cc4 ADD.L D7,D0> {[-8-]}
<MI 22cc6 SUBQ.L #0x1,D0> {[-8-]}
<MI 22cc8 SUBQ.L #0x1,D0> {[-8-]}
<POP 0x22cca LimitCheck 0x0 ≤ D0 ≤ 0x7d> {[-8-]}
<MI 22cd0 MOVE.L D7,D1> {[-8-]}
<MI 22cd2 SUBQ.L #0x1,D1> {[-8-]}
<POP 0x22cd4 LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-8-]}
<MI 22cda MOVEA.L (A7+0x4),A0> {[-8-]}
<MI 22cde MOVE.B (A0+D1.L+#0x2),(A4+D0.L+#0x2)> {[-8-]}
<MI 22ce4 ADDQ.L #0x1,D7> {[-8-]}
<MI 22ce6 BVC 0x22cbe> {[-8-]}
<POP 22ce8-22cfc Naked> Σ-8 Δ+8 ↓ ←0x22cbe
<POP 22ce8-22cea StackAdj> Δ+4 {[-4-]}
<MI 22cea MOVE.L A4,(A7)> {[4, 'A4']}
<Call 0x22cec 0x21eb4> {[4, 'A4']}
<POP 22cf0-22cf2 StackAdj> Δ+4 {}
<Pointer.fp 0x22cf2 <LVAR -0x014 @ 4(rw)>> Δ-4 {[@@-20]}
<Call 0x22cf4 0x102bc> {[@@-20]}
FreeString(VAR a : String)
<POP 22cfa-22cfc StackAdj> Δ+4 {}
<POP 22cfc-22d04 Epilogue> Σ0
@ 22d04
<LVAR 0x008 4(r)>
<LVAR -0x010 @ 4(r)>
<LVAR -0x014 @ 4(rw)>
<POP 22d04-22dea Body>
<POP 22d04-22d1a Prologue> Σ0 ↓
<POP 22d1a-22d28 RegCacheLoad> Σ0 ↓
<POP 22d28-22d80 Naked> Σ0 ↓ →0x22d86
<POP 22d28-22d2a StackAdj> Δ-4 {[-4-]}
<MI 22d2a MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x22d2c 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22d30 0x21e12> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 22d34-22d36 StackAdj> Δ+8 {[-4-]}
<MI 22d36 MOVE.L (A7)+,(A6-0x14)> Δ+4 {}
<Pointer.fp 0x22d38 <LVAR -0x010 @ 4(r)>> Δ-4 {[@@-16]}
<Call 0x22d3a 0x102b8> {[@@-16]}
NewString(VAR a : String)
<POP 22d40-22d42 StackAdj> Δ-8 {[@@-16]|[-8-]}
<MI 22d42 MOVE.L (A6+0x8),-(A7)> Δ-4 {[@@-16]|[-8-]|[4, '(A6+0x8)']}
<Const 0x22d44 0x2.4> Δ-4 {[@@-16]|[-8-]|[4, '(A6+0x8)']|[##2]}
<Call 0x22d48 0x21e44> {[@@-16]|[-8-]|[4, '(A6+0x8)']|[##2]}
<POP 22d4c-22d4e StackAdj> Δ+8 {[@@-16]|[-8-]}
<Call 0x22d4e 0x10350> {[@@-16]|[-8-]}
Quad2Long(a : Quad) : Long
<POP 22d54-22d56 StackAdj> Δ+8 {[@@-16]}
<MI 22d56 MOVE.L (A7),D5> {[@@-16]}
<POP 22d58-22d5a StackAdj> Δ-8 {[@@-16]|[-8-]}
<MI 22d5a MOVE.L (A6+0x8),-(A7)> Δ-4 {[@@-16]|[-8-]|[4, '(A6+0x8)']}
<Const 0x22d5c 0x3.4> Δ-4 {[@@-16]|[-8-]|[4, '(A6+0x8)']|[##3]}
<Call 0x22d60 0x21e44> {[@@-16]|[-8-]|[4, '(A6+0x8)']|[##3]}
<POP 22d64-22d66 StackAdj> Δ+8 {[@@-16]|[-8-]}
<Call 0x22d66 0x10350> {[@@-16]|[-8-]}
Quad2Long(a : Quad) : Long
<POP 22d6c-22d6e StackAdj> Δ+8 {[@@-16]}
<MI 22d6e MOVE.L (A7)+,D6> Δ+4 {}
<MI 22d70 MOVEA.L (A6-0x14),A0> {}
<MI 22d72 MOVE.L D5,D0> {}
<MI 22d74 ADD.L D6,D0> {}
<MI 22d76 SUBQ.L #0x1,D0> {}
<MI 22d78 MOVE.W (A0),D1> {}
<MI 22d7a EXTW.L D1> {}
<MI 22d7c CMP.L D1,D0> {}
<MI 22d7e BLE 0x22d86> {}
<POP 22d80-22d86 Naked> Σ0 ↓
<MI 22d80 ADDQ.L #0x1,D1> {}
<MI 22d82 SUB.L D5,D1> {}
<MI 22d84 MOVE.L D1,D6> {}
<POP 22d86-22d8a Naked> Σ0 Δ-4 ↓ ←0x22d28
<MI 22d86 MOVE.L D6,-(A7)> Δ-4 {[4, 'D6']}
<MI 22d88 MOVEQ.L #0x01,D7> {[4, 'D6']}
<POP 22d8a-22d8e Naked> Σ-4 ↓ →0x22db4 ←0x22d8e
<MI 22d8a CMP.L (A7),D7> {[-4-]}
<MI 22d8c BGT 0x22db4> {[-4-]}
<POP 22d8e-22db4 Naked> Σ-4 ↓ →0x22d8a
<MI 22d8e MOVEA.L (A6-0x10),A0> {[-4-]}
<MI 22d90 MOVE.L D7,D0> {[-4-]}
<MI 22d92 SUBQ.L #0x1,D0> {[-4-]}
<POP 0x22d94 LimitCheck 0x0 ≤ D0 ≤ 0x7d> {[-4-]}
<MI 22d9a MOVEA.L (A6-0x14),A1> {[-4-]}
<MI 22d9c MOVE.L D7,D1> {[-4-]}
<MI 22d9e ADD.L D5,D1> {[-4-]}
<MI 22da0 SUBQ.L #0x1,D1> {[-4-]}
<MI 22da2 SUBQ.L #0x1,D1> {[-4-]}
<POP 0x22da4 LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-4-]}
<MI 22daa MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x2)> {[-4-]}
<MI 22db0 ADDQ.L #0x1,D7> {[-4-]}
<MI 22db2 BVC 0x22d8a> {[-4-]}
<POP 22db4-22de2 Naked> Σ-4 Δ+4 ↓ ←0x22d8a
<POP 22db4-22db6 StackAdj> Δ+4 {}
<MI 22db6 MOVEA.L (A6-0x10),A0> {}
<POP 0x22db8 LimitCheck -0x8000 ≤ D6 ≤ 0x7fff> {}
<MI 22dce MOVE.W D6,(A0)> {}
<MI 22dd0 MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0x10)']}
<Call 0x22dd2 0x21eb4> {[4, '(A6-0x10)']}
<POP 22dd6-22dd8 StackAdj> Δ+4 {}
<Pointer.fp 0x22dd8 <LVAR -0x014 @ 4(rw)>> Δ-4 {[@@-20]}
<Call 0x22dda 0x102bc> {[@@-20]}
FreeString(VAR a : String)
<POP 22de0-22de2 StackAdj> Δ+4 {}
<POP 22de2-22dea Epilogue> Σ0
@ 22dea
<LVAR 0x008 4(r)>
<POP 22dea-22e16 Body>
<POP 22dea-22dfc Prologue> Σ0 ↓
<POP 22dfc-22e12 Naked> Σ0 ↓
<POP 22dfc-22dfe StackAdj> Δ-8 {[-8-]}
<MI 22dfe MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<Const 0x22e02 0x1.4> Δ-4 {[-8-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22e06 0x21e44> {[-8-]|[4, '(A6+0x8)']|[##1]}
<POP 22e0a-22e0c StackAdj> Δ+8 {[-8-]}
<Call 0x22e0c 0x21c7e> {[-8-]}
<POP 22e10-22e12 StackAdj> Δ+8 {}
<POP 22e12-22e16 Epilogue> Σ0
@ 22e16
<LVAR 0x008 4(r)>
<POP 22e16-22e62 Body>
<POP 22e16-22e28 Prologue> Σ0 ↓
<POP 22e28-22e54 Naked> Σ0 ↓ →0x22e5a
<POP 22e28-22e2c StackAdj> Δ-10 {[-10-]}
<MI 22e2c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']}
<Const 0x22e30 0x1.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22e34 0x21e44> {[-10-]|[4, '(A6+0x8)']|[##1]}
<MI 22e38 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x22e3c 0x2.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x22e40 0x21e44> {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 22e44-22e46 StackAdj> Δ+8 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22e46 0x1032c> {[-10-]|[4, '(A6+0x8)']|[##1]}
IsEqual(a, b : Quad) : Bool
<POP 22e4c-22e50 StackAdj> Δ+16 {[-2-]}
<MI 22e50 TST.B (A7)+> Δ+2 {}
<MI 22e52 BEQ 0x22e5a> {}
<POP 22e54-22e5a Naked> Σ0 →0x22e5e
<Call 0x22e54 0x218d2> {}
<MI 22e58 BRA 0x22e5e> {}
<POP 22e5a-22e5e Naked> Σ0 ↓ ←0x22e28
<Call 0x22e5a 0x21918> {}
<POP 22e5e-22e62 Epilogue> Σ0 ←0x22e54
@ 22e62
<LVAR 0x008 4(r)>
<POP 22e62-22eae Body>
<POP 22e62-22e74 Prologue> Σ0 ↓
<POP 22e74-22ea0 Naked> Σ0 ↓ →0x22ea6
<POP 22e74-22e78 StackAdj> Δ-10 {[-10-]}
<MI 22e78 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']}
<Const 0x22e7c 0x1.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22e80 0x21e44> {[-10-]|[4, '(A6+0x8)']|[##1]}
<MI 22e84 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x22e88 0x2.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x22e8c 0x21e44> {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 22e90-22e92 StackAdj> Δ+8 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22e92 0x1032c> {[-10-]|[4, '(A6+0x8)']|[##1]}
IsEqual(a, b : Quad) : Bool
<POP 22e98-22e9c StackAdj> Δ+16 {[-2-]}
<MI 22e9c TST.B (A7)+> Δ+2 {}
<MI 22e9e BNE 0x22ea6> {}
<POP 22ea0-22ea6 Naked> Σ0 →0x22eaa
<Call 0x22ea0 0x218d2> {}
<MI 22ea4 BRA 0x22eaa> {}
<POP 22ea6-22eaa Naked> Σ0 ↓ ←0x22e74
<Call 0x22ea6 0x21918> {}
<POP 22eaa-22eae Epilogue> Σ0 ←0x22ea0
@ 22eae
<LVAR 0x008 4(r)>
<POP 22eae-22efa Body>
<POP 22eae-22ec0 Prologue> Σ0 ↓
<POP 22ec0-22eec Naked> Σ0 ↓ →0x22ef2
<POP 22ec0-22ec4 StackAdj> Δ-10 {[-10-]}
<MI 22ec4 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']}
<Const 0x22ec8 0x1.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22ecc 0x21e44> {[-10-]|[4, '(A6+0x8)']|[##1]}
<MI 22ed0 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x22ed4 0x2.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x22ed8 0x21e44> {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 22edc-22ede StackAdj> Δ+8 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22ede 0x10328> {[-10-]|[4, '(A6+0x8)']|[##1]}
IsSmaller(a, b : Quad) : Bool
<POP 22ee4-22ee8 StackAdj> Δ+16 {[-2-]}
<MI 22ee8 TST.B (A7)+> Δ+2 {}
<MI 22eea BEQ 0x22ef2> {}
<POP 22eec-22ef2 Naked> Σ0 →0x22ef6
<Call 0x22eec 0x218d2> {}
<MI 22ef0 BRA 0x22ef6> {}
<POP 22ef2-22ef6 Naked> Σ0 ↓ ←0x22ec0
<Call 0x22ef2 0x21918> {}
<POP 22ef6-22efa Epilogue> Σ0 ←0x22eec
@ 22efa
<LVAR 0x008 4(r)>
<POP 22efa-22f46 Body>
<POP 22efa-22f0c Prologue> Σ0 ↓
<POP 22f0c-22f38 Naked> Σ0 ↓ →0x22f3e
<POP 22f0c-22f10 StackAdj> Δ-10 {[-10-]}
<MI 22f10 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']}
<Const 0x22f14 0x1.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22f18 0x21e44> {[-10-]|[4, '(A6+0x8)']|[##1]}
<MI 22f1c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x22f20 0x2.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x22f24 0x21e44> {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 22f28-22f2a StackAdj> Δ+8 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22f2a 0x10324> {[-10-]|[4, '(A6+0x8)']|[##1]}
IsGreater(a, b : Quad) : Bool
<POP 22f30-22f34 StackAdj> Δ+16 {[-2-]}
<MI 22f34 TST.B (A7)+> Δ+2 {}
<MI 22f36 BEQ 0x22f3e> {}
<POP 22f38-22f3e Naked> Σ0 →0x22f42
<Call 0x22f38 0x218d2> {}
<MI 22f3c BRA 0x22f42> {}
<POP 22f3e-22f42 Naked> Σ0 ↓ ←0x22f0c
<Call 0x22f3e 0x21918> {}
<POP 22f42-22f46 Epilogue> Σ0 ←0x22f38
@ 22f46
<LVAR 0x008 4(r)>
<POP 22f46-22f92 Body>
<POP 22f46-22f58 Prologue> Σ0 ↓
<POP 22f58-22f84 Naked> Σ0 ↓ →0x22f8a
<POP 22f58-22f5c StackAdj> Δ-10 {[-10-]}
<MI 22f5c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']}
<Const 0x22f60 0x1.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22f64 0x21e44> {[-10-]|[4, '(A6+0x8)']|[##1]}
<MI 22f68 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x22f6c 0x2.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x22f70 0x21e44> {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 22f74-22f76 StackAdj> Δ+8 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22f76 0x10324> {[-10-]|[4, '(A6+0x8)']|[##1]}
IsGreater(a, b : Quad) : Bool
<POP 22f7c-22f80 StackAdj> Δ+16 {[-2-]}
<MI 22f80 TST.B (A7)+> Δ+2 {}
<MI 22f82 BNE 0x22f8a> {}
<POP 22f84-22f8a Naked> Σ0 →0x22f8e
<Call 0x22f84 0x218d2> {}
<MI 22f88 BRA 0x22f8e> {}
<POP 22f8a-22f8e Naked> Σ0 ↓ ←0x22f58
<Call 0x22f8a 0x21918> {}
<POP 22f8e-22f92 Epilogue> Σ0 ←0x22f84
@ 22f92
<LVAR 0x008 4(r)>
<POP 22f92-22fde Body>
<POP 22f92-22fa4 Prologue> Σ0 ↓
<POP 22fa4-22fd0 Naked> Σ0 ↓ →0x22fd6
<POP 22fa4-22fa8 StackAdj> Δ-10 {[-10-]}
<MI 22fa8 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']}
<Const 0x22fac 0x1.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22fb0 0x21e44> {[-10-]|[4, '(A6+0x8)']|[##1]}
<MI 22fb4 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x22fb8 0x2.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x22fbc 0x21e44> {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 22fc0-22fc2 StackAdj> Δ+8 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22fc2 0x10328> {[-10-]|[4, '(A6+0x8)']|[##1]}
IsSmaller(a, b : Quad) : Bool
<POP 22fc8-22fcc StackAdj> Δ+16 {[-2-]}
<MI 22fcc TST.B (A7)+> Δ+2 {}
<MI 22fce BNE 0x22fd6> {}
<POP 22fd0-22fd6 Naked> Σ0 →0x22fda
<Call 0x22fd0 0x218d2> {}
<MI 22fd4 BRA 0x22fda> {}
<POP 22fd6-22fda Naked> Σ0 ↓ ←0x22fa4
<Call 0x22fd6 0x21918> {}
<POP 22fda-22fde Epilogue> Σ0 ←0x22fd0
@ 22fde
<LVAR 0x008 4(r)>
<POP 22fde-23028 Body>
<POP 22fde-22ff4 Prologue> Σ0 ↓
<POP 22ff4-22ff6 RegCacheLoad> Σ0 ↓
<POP 22ff6-23020 Naked> Σ0 ↓
<POP 22ff6-22ff8 StackAdj> Δ-16 {[-16-]}
<MI 22ff8 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x22ffc 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23000 0x21e44> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 23004 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x23008 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x2300c 0x21e44> {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 23010-23012 StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23012 0x10314> {[-16-]|[4, '(A6+0x8)']|[##1]}
Add(a, b : Quad) : Quad
<POP 23018-2301a StackAdj> Δ+16 {[-8-]}
<Call 0x2301a 0x21f3c> {[-8-]}
<POP 2301e-23020 StackAdj> Δ+8 {}
<POP 23020-23028 Epilogue> Σ0
@ 23028
<LVAR 0x008 4(r)>
<POP 23028-23072 Body>
<POP 23028-2303e Prologue> Σ0 ↓
<POP 2303e-23040 RegCacheLoad> Σ0 ↓
<POP 23040-2306a Naked> Σ0 ↓
<POP 23040-23042 StackAdj> Δ-16 {[-16-]}
<MI 23042 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x23046 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x2304a 0x21e44> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 2304e MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x23052 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x23056 0x21e44> {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 2305a-2305c StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x2305c 0x10318> {[-16-]|[4, '(A6+0x8)']|[##1]}
Subtract(a, b : Quad) : Quad
<POP 23062-23064 StackAdj> Δ+16 {[-8-]}
<Call 0x23064 0x21f3c> {[-8-]}
<POP 23068-2306a StackAdj> Δ+8 {}
<POP 2306a-23072 Epilogue> Σ0
@ 23072
<LVAR 0x008 4(r)>
<POP 23072-230bc Body>
<POP 23072-23088 Prologue> Σ0 ↓
<POP 23088-2308a RegCacheLoad> Σ0 ↓
<POP 2308a-230b4 Naked> Σ0 ↓
<POP 2308a-2308c StackAdj> Δ-16 {[-16-]}
<MI 2308c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x23090 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23094 0x21e44> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 23098 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x2309c 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x230a0 0x21e44> {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 230a4-230a6 StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x230a6 0x1031c> {[-16-]|[4, '(A6+0x8)']|[##1]}
Multiply(a, b : Quad) : Quad
<POP 230ac-230ae StackAdj> Δ+16 {[-8-]}
<Call 0x230ae 0x21f3c> {[-8-]}
<POP 230b2-230b4 StackAdj> Δ+8 {}
<POP 230b4-230bc Epilogue> Σ0
@ 230bc
<LVAR 0x008 4(r)>
<POP 230bc-23106 Body>
<POP 230bc-230d2 Prologue> Σ0 ↓
<POP 230d2-230d4 RegCacheLoad> Σ0 ↓
<POP 230d4-230fe Naked> Σ0 ↓
<POP 230d4-230d6 StackAdj> Δ-16 {[-16-]}
<MI 230d6 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x230da 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x230de 0x21e44> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 230e2 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x230e6 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x230ea 0x21e44> {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 230ee-230f0 StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x230f0 0x10320> {[-16-]|[4, '(A6+0x8)']|[##1]}
Divide(a, b : Quad) : Quad
<POP 230f6-230f8 StackAdj> Δ+16 {[-8-]}
<Call 0x230f8 0x21f3c> {[-8-]}
<POP 230fc-230fe StackAdj> Δ+8 {}
<POP 230fe-23106 Epilogue> Σ0
@ 23106
<LVAR 0x008 4(r)>
<POP 23106-23150 Body>
<POP 23106-2311c Prologue> Σ0 ↓
<POP 2311c-2311e RegCacheLoad> Σ0 ↓
<POP 2311e-23148 Naked> Σ0 ↓
<POP 2311e-23120 StackAdj> Δ-16 {[-16-]}
<MI 23120 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x23124 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23128 0x21e44> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 2312c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x23130 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x23134 0x21e44> {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 23138-2313a StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x2313a 0x10358> {[-16-]|[4, '(A6+0x8)']|[##1]}
Modulus(a, b : Quad) : Quad
<POP 23140-23142 StackAdj> Δ+16 {[-8-]}
<Call 0x23142 0x21f3c> {[-8-]}
<POP 23146-23148 StackAdj> Δ+8 {}
<POP 23148-23150 Epilogue> Σ0
@ 23150
<LVAR 0x008 4(r)>
<POP 23150-2319a Body>
<POP 23150-23166 Prologue> Σ0 ↓
<POP 23166-23168 RegCacheLoad> Σ0 ↓
<POP 23168-23192 Naked> Σ0 ↓
<POP 23168-2316a StackAdj> Δ-16 {[-16-]}
<MI 2316a MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x2316e 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23172 0x21e44> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 23176 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x2317a 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x2317e 0x21e44> {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 23182-23184 StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23184 0x10334> {[-16-]|[4, '(A6+0x8)']|[##1]}
BitOr(a, b : Quad) : Quad
<POP 2318a-2318c StackAdj> Δ+16 {[-8-]}
<Call 0x2318c 0x21f3c> {[-8-]}
<POP 23190-23192 StackAdj> Δ+8 {}
<POP 23192-2319a Epilogue> Σ0
@ 2319a
<LVAR 0x008 4(r)>
<POP 2319a-231e4 Body>
<POP 2319a-231b0 Prologue> Σ0 ↓
<POP 231b0-231b2 RegCacheLoad> Σ0 ↓
<POP 231b2-231dc Naked> Σ0 ↓
<POP 231b2-231b4 StackAdj> Δ-16 {[-16-]}
<MI 231b4 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x231b8 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x231bc 0x21e44> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 231c0 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x231c4 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x231c8 0x21e44> {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 231cc-231ce StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x231ce 0x10330> {[-16-]|[4, '(A6+0x8)']|[##1]}
BitAnd(a, b : Quad) : Quad
<POP 231d4-231d6 StackAdj> Δ+16 {[-8-]}
<Call 0x231d6 0x21f3c> {[-8-]}
<POP 231da-231dc StackAdj> Δ+8 {}
<POP 231dc-231e4 Epilogue> Σ0
@ 231e4
<LVAR 0x008 4(r)>
<POP 231e4-2322e Body>
<POP 231e4-231fa Prologue> Σ0 ↓
<POP 231fa-231fc RegCacheLoad> Σ0 ↓
<POP 231fc-23226 Naked> Σ0 ↓
<POP 231fc-231fe StackAdj> Δ-16 {[-16-]}
<MI 231fe MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x23202 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23206 0x21e44> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 2320a MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x2320e 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x23212 0x21e44> {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 23216-23218 StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23218 0x10340> {[-16-]|[4, '(A6+0x8)']|[##1]}
BitXor(a, b : Quad) : Quad
<POP 2321e-23220 StackAdj> Δ+16 {[-8-]}
<Call 0x23220 0x21f3c> {[-8-]}
<POP 23224-23226 StackAdj> Δ+8 {}
<POP 23226-2322e Epilogue> Σ0
@ 2322e
<LVAR 0x008 4(r)>
<POP 2322e-23272 Body>
<POP 2322e-23240 Prologue> Σ0 ↓
<POP 23240-2326e Naked> Σ0 ↓
<POP 23240-23244 StackAdj> Δ-16 {[-16-]}
<MI 23244 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x23248 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x2324c 0x21e44> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 23250 MOVE.L (A6+0x8),(A7)> {[-16-]|[4, '(A6+0x8)']|[4, '(A6+0x8)']}
<Const 0x23254 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[4, '(A6+0x8)']|[##2]}
<Call 0x23258 0x21e80> {[-16-]|[4, '(A6+0x8)']|[4, '(A6+0x8)']|[##2]}
<POP 2325c-2325e StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']}
<Call 0x2325e 0x10344> {[-16-]|[4, '(A6+0x8)']}
BitShift(a : Quad ; howmuch : integer) : Quad
<POP 23264-23268 StackAdj> Δ+12 {[-8-]}
<Call 0x23268 0x21f3c> {[-8-]}
<POP 2326c-2326e StackAdj> Δ+8 {}
<POP 2326e-23272 Epilogue> Σ0
@ 23272
<LVAR 0x008 4(r)>
<POP 23272-232b8 Body>
<POP 23272-23284 Prologue> Σ0 ↓
<POP 23284-232b4 Naked> Σ0 ↓
<POP 23284-23288 StackAdj> Δ-16 {[-16-]}
<MI 23288 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x2328c 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23290 0x21e44> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 23294 MOVE.L (A6+0x8),(A7)> {[-16-]|[4, '(A6+0x8)']|[4, '(A6+0x8)']}
<Const 0x23298 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[4, '(A6+0x8)']|[##2]}
<Call 0x2329c 0x21e80> {[-16-]|[4, '(A6+0x8)']|[4, '(A6+0x8)']|[##2]}
<POP 232a0-232a2 StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']}
<MI 232a2 NEG.L (A7)> {[-16-]|[4, '(A6+0x8)']}
<Call 0x232a4 0x10344> {[-16-]|[4, '(A6+0x8)']}
BitShift(a : Quad ; howmuch : integer) : Quad
<POP 232aa-232ae StackAdj> Δ+12 {[-8-]}
<Call 0x232ae 0x21f3c> {[-8-]}
<POP 232b2-232b4 StackAdj> Δ+8 {}
<POP 232b4-232b8 Epilogue> Σ0
@ 232b8
<LVAR 0x008 4(r)>
<POP 232b8-232ee Body>
<POP 232b8-232ca Prologue> Σ0 ↓
<POP 232ca-232ea Naked> Σ0 ↓
<POP 232ca-232ce StackAdj> Δ-16 {[-16-]}
<MI 232ce MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x232d2 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x232d6 0x21e44> {[-16-]|[4, '(A6+0x8)']|[##1]}
<POP 232da-232dc StackAdj> Δ+8 {[-16-]}
<Call 0x232dc 0x10338> {[-16-]}
BitNot(a : Quad) : Quad
<POP 232e2-232e4 StackAdj> Δ+8 {[-8-]}
<Call 0x232e4 0x21f3c> {[-8-]}
<POP 232e8-232ea StackAdj> Δ+8 {}
<POP 232ea-232ee Epilogue> Σ0
@ 232ee
<LVAR 0x008 4(r)>
<LVAR -0x00c 4(rw)>
<LVAR -0x010 4(rw)>
<LVAR -0x014 4(rw)>
<LVAR -0x018 4(rw)>
<POP 232ee-2337e Body>
<POP 232ee-23304 Prologue> Σ0 ↓
<POP 23304-23308 RegCacheLoad> Σ0 ↓
<POP 23308-23376 Naked> Σ0 ↓
<POP 23308-2330a StackAdj> Δ-8 {[-8-]}
<MI 2330a MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<Const 0x2330c 0x1.4> Δ-4 {[-8-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23310 0x21e44> {[-8-]|[4, '(A6+0x8)']|[##1]}
<POP 23314-23316 StackAdj> Δ+8 {[-8-]}
<MI 23316 MOVE.L (A7)+,(A6-0x18)> Δ+4 {[-4-]}
<MI 2331a MOVE.L (A7),(A6-0x14)> {[-4-]}
<POP 2331e-23320 StackAdj> Δ-4 {[-8-]}
<MI 23320 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<Const 0x23322 0x2.4> Δ-4 {[-8-]|[4, '(A6+0x8)']|[##2]}
<Call 0x23326 0x21e44> {[-8-]|[4, '(A6+0x8)']|[##2]}
<POP 2332a-2332c StackAdj> Δ+8 {[-8-]}
<MI 2332c MOVE.L (A7)+,(A6-0x10)> Δ+4 {[-4-]}
<MI 23330 MOVE.L (A7),(A6-0xc)> {[-4-]}
<MI 23334 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x23336 0x3.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##3]}
<Call 0x2333a 0x21e80> {[-4-]|[4, '(A6+0x8)']|[##3]}
<POP 2333e-23340 StackAdj> Δ+8 {[-4-]}
<MI 23340 MOVE.L (A7),D7> {[-4-]}
<MI 23342 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x23344 0x4.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##4]}
<Call 0x23348 0x21e80> {[-4-]|[4, '(A6+0x8)']|[##4]}
<POP 2334c-2334e StackAdj> Δ+8 {[-4-]}
<MI 2334e MOVE.L (A7),D6> {[-4-]}
<POP 23350-23352 StackAdj> Δ-4 {[-8-]}
<MI 23352 MOVE.L (A6-0x14),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x14)']}
<MI 23356 MOVE.L (A6-0x18),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']}
<MI 2335a MOVE.L (A6-0xc),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']|[4, '(A6-0xc)']}
<MI 2335e MOVE.L (A6-0x10),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<MI 23362 MOVE.L D7,-(A7)> Δ-4 {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D7']}
<MI 23364 MOVE.L D6,-(A7)> Δ-4 {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D7']|[4, 'D6']}
<Call 0x23366 0x10348> {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D7']|[4, 'D6']}
?BitField_something_()
<POP 2336c-23370 StackAdj> Δ+24 {[-8-]}
<Call 0x23370 0x21f3c> {[-8-]}
<POP 23374-23376 StackAdj> Δ+8 {}
<POP 23376-2337e Epilogue> Σ0
@ 2337e
<LVAR 0x008 4(r)>
<LVAR -0x00c 4(rw)>
<LVAR -0x010 4(rw)>
<POP 2337e-233f0 Body>
<POP 2337e-23394 Prologue> Σ0 ↓
<POP 23394-23398 RegCacheLoad> Σ0 ↓
<POP 23398-233e8 Naked> Σ0 ↓
<POP 23398-2339a StackAdj> Δ-8 {[-8-]}
<MI 2339a MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<Const 0x2339c 0x1.4> Δ-4 {[-8-]|[4, '(A6+0x8)']|[##1]}
<Call 0x233a0 0x21e44> {[-8-]|[4, '(A6+0x8)']|[##1]}
<POP 233a4-233a6 StackAdj> Δ+8 {[-8-]}
<MI 233a6 MOVE.L (A7)+,(A6-0x10)> Δ+4 {[-4-]}
<MI 233aa MOVE.L (A7),(A6-0xc)> {[-4-]}
<MI 233ae MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x233b0 0x2.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##2]}
<Call 0x233b4 0x21e80> {[-4-]|[4, '(A6+0x8)']|[##2]}
<POP 233b8-233ba StackAdj> Δ+8 {[-4-]}
<MI 233ba MOVE.L (A7),D7> {[-4-]}
<MI 233bc MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x233be 0x3.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##3]}
<Call 0x233c2 0x21e80> {[-4-]|[4, '(A6+0x8)']|[##3]}
<POP 233c6-233c8 StackAdj> Δ+8 {[-4-]}
<MI 233c8 MOVE.L (A7),D6> {[-4-]}
<POP 233ca-233cc StackAdj> Δ-4 {[-8-]}
<MI 233cc MOVE.L (A6-0xc),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']}
<MI 233d0 MOVE.L (A6-0x10),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<MI 233d4 MOVE.L D7,-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D7']}
<MI 233d6 MOVE.L D6,-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D7']|[4, 'D6']}
<Call 0x233d8 0x1034c> {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D7']|[4, 'D6']}
FSCALL_1034c
<POP 233de-233e2 StackAdj> Δ+16 {[-8-]}
<Call 0x233e2 0x21f3c> {[-8-]}
<POP 233e6-233e8 StackAdj> Δ+8 {}
<POP 233e8-233f0 Epilogue> Σ0
@ 233f0
<LVAR 0x008 4(r)>
<POP 233f0-23462 Body>
<POP 233f0-23406 Prologue> Σ0 ↓
<POP 23406-23414 Naked> Σ0 Δ-4 ↓
<POP 23406-23408 StackAdj> Δ-4 {[-4-]}
<MI 23408 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x2340c 0x214f6> {[-4-]|[4, '(A6+0x8)']}
<POP 23410-23412 StackAdj> Δ+4 {[-4-]}
<MI 23412 MOVEQ.L #0x01,D7> {[-4-]}
<POP 23414-23418 Naked> Σ-4 ↓ →0x2343e ←0x23418
<MI 23414 CMP.L (A7),D7> {[-4-]}
<MI 23416 BGT 0x2343e> {[-4-]}
<POP 23418-2343e Naked> Σ-4 ↓ →0x23414
<POP 23418-2341a StackAdj> Δ-4 {[-8-]}
<MI 2341a MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<MI 2341e MOVE.L D7,-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']|[4, 'D7']}
<Call 0x23420 0x21e12> {[-8-]|[4, '(A6+0x8)']|[4, 'D7']}
<POP 23424-23426 StackAdj> Δ+8 {[-8-]}
<Call 0x23426 0x103d8> {[-8-]}
WriteConsoleString(str : String)
<POP 2342c-2342e StackAdj> Δ+2 {[-6-]}
<POP 2342e-2342f StackAdj> Δ+2 {[-4-]}
<Const 0x2342f 0x20.2> Δ-2 {[-4-]|[#32]}
<Call 0x23432 0x103d0> {[-4-]|[#32]}
WriteConsoleChar(chr : char)
<POP 23438-2343a StackAdj> Δ+2 {[-4-]}
<MI 2343a ADDQ.L #0x1,D7> {[-4-]}
<MI 2343c BVC 0x23414> {[-4-]}
<POP 2343e-2345a Naked> Σ-4 Δ+4 ↓ ←0x23414
<Const 0x2343e 0x1.4> Δ-4 {[-4-]|[##1]}
<Call 0x23442 0x103e4> {[-4-]|[##1]}
AskConsoleString(prompt : String) : String
<POP 23448-2344a StackAdj> Δ+4 {[-4-]}
<MI 2344a MOVEA.L (A7)+,A4> Δ+4 {}
<MI 2344c MOVE.L A4,-(A7)> Δ-4 {[4, 'A4']}
<Call 0x2344e 0x21342> {[4, 'A4']}
<MI 23452 MOVE.L A4,(A7)> {[4, 'A4']}
<Call 0x23454 0x21eb4> {[4, 'A4']}
<POP 23458-2345a StackAdj> Δ+4 {}
<POP 2345a-23462 Epilogue> Σ0
@ 23462
<LVAR 0x008 4(r)>
<POP 23462-234e4 Body>
<POP 23462-23478 Prologue> Σ0 ↓
<POP 23478-2347e RegCacheLoad> Σ0 ↓
<POP 2347e-234dc Naked> Σ0 ↓
<POP 2347e-23480 StackAdj> Δ-4 {[-4-]}
<MI 23480 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x23482 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23486 0x21e12> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 2348a-2348c StackAdj> Δ+8 {[-4-]}
<MI 2348c MOVEA.L (A7)+,A4> Δ+4 {}
<POP 2348e-23490 StackAdj> Δ-12 {[-12-]}
<MI 23490 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']}
<Const 0x23492 0x2.4> Δ-4 {[-12-]|[4, '(A6+0x8)']|[##2]}
<Call 0x23496 0x21e44> {[-12-]|[4, '(A6+0x8)']|[##2]}
<POP 2349a-2349c StackAdj> Δ+8 {[-12-]}
<Call 0x2349c 0x10350> {[-12-]}
Quad2Long(a : Quad) : Long
<POP 234a2-234a4 StackAdj> Δ+8 {[-4-]}
<MI 234a4 MOVE.L (A7),D7> {[-4-]}
<POP 234a6-234a8 StackAdj> Δ-8 {[-12-]}
<MI 234a8 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']}
<Const 0x234aa 0x3.4> Δ-4 {[-12-]|[4, '(A6+0x8)']|[##3]}
<Call 0x234ae 0x21e44> {[-12-]|[4, '(A6+0x8)']|[##3]}
<POP 234b2-234b4 StackAdj> Δ+8 {[-12-]}
<Call 0x234b4 0x10350> {[-12-]}
Quad2Long(a : Quad) : Long
<POP 234ba-234bc StackAdj> Δ+8 {[-4-]}
<MI 234bc MOVE.L (A7),D6> {[-4-]}
<POP 234be-234c0 StackAdj> Δ-8 {[-12-]}
<MI 234c0 MOVE.L A4,-(A7)> Δ-4 {[-12-]|[4, 'A4']}
<MI 234c2 MOVE.L D7,-(A7)> Δ-4 {[-12-]|[4, 'A4']|[4, 'D7']}
<Call 0x234c4 0x10360> {[-12-]|[4, 'A4']|[4, 'D7']}
?StringToInt64()
<POP 234ca-234cc StackAdj> Δ+4 {[-12-]|[4, 'A4']}
<MI 234cc MOVE.L D6,(A7)> {[-12-]|[4, 'D6']}
<Call 0x234ce 0x1035c> {[-12-]|[4, 'D6']}
Quad2String(a : Quad; radix : Long ) : String
<POP 234d4-234d6 StackAdj> Δ+12 {[-4-]}
<Call 0x234d6 0x21eb4> {[-4-]}
<POP 234da-234dc StackAdj> Δ+4 {}
<POP 234dc-234e4 Epilogue> Σ0
@ 234e4
<LVAR 0x008 4(r)>
<LVAR -0x00a 2(r)>
<LVAR -0x00c 4(rw)>
<LVAR -0x010 4(rw)>
<POP 234e4-23564 Body>
<POP 234e4-234fa Prologue> Σ0 ↓
<POP 234fa-23502 RegCacheLoad> Σ0 ↓
<POP 23502-2351a Naked> Σ0 ↓
<POP 23502-23504 StackAdj> Δ-8 {[-8-]}
<MI 23504 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<Const 0x23508 0x1.4> Δ-4 {[-8-]|[4, '(A6+0x8)']|[##1]}
<Call 0x2350c 0x21e44> {[-8-]|[4, '(A6+0x8)']|[##1]}
<POP 23510-23512 StackAdj> Δ+8 {[-8-]}
<MI 23512 MOVE.L (A7)+,(A6-0x10)> Δ+4 {[-4-]}
<MI 23514 MOVE.L (A7)+,(A6-0xc)> Δ+4 {}
<MI 23516 MOVEQ.L #0x00,D7> {}
<MI 23518 MOVEQ.L #0x00,D6> {}
<POP 2351a-2354a Naked> Σ0 ↓ →0x2351a ←0x2351a
<MI 2351a MOVE.W (A6-0xa),D0> {}
<MI 2351e ANDI.W #0x0001,D0> {}
<MI 23522 CLR.L D1> {}
<MI 23524 MOVE.W D0,D1> {}
<MI 23526 ADD.L D1,D7> {}
<POP 23528-2352a StackAdj> Δ-8 {[-8-]}
<MI 2352a MOVE.L (A6-0xc),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']}
<MI 2352c MOVE.L (A6-0x10),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<Const 0x2352e 0xffffffff.4> Δ-4 {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[##4294967295]}
<Call 0x23532 0x10344> {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[##4294967295]}
BitShift(a : Quad ; howmuch : integer) : Quad
<POP 23538-2353c StackAdj> Δ+12 {[-8-]}
<MI 2353c MOVE.L (A7)+,(A6-0x10)> Δ+4 {[-4-]}
<MI 2353e MOVE.L (A7)+,(A6-0xc)> Δ+4 {}
<MI 23540 ADDQ.L #0x1,D6> {}
<MI 23542 CMPI.L #0x0000003f,D6> {}
<MI 23548 BLE 0x2351a> {}
<POP 2354a-2355c Naked> Σ0 ↓
<POP 2354a-2354c StackAdj> Δ-8 {[-8-]}
<MI 2354c MOVE.L D7,-(A7)> Δ-4 {[-8-]|[4, 'D7']}
<Call 0x2354e 0x10354> {[-8-]|[4, 'D7']}
Long2Quad(a : Long) : Quad
<POP 23554-23556 StackAdj> Δ+4 {[-8-]}
<Call 0x23556 0x21f3c> {[-8-]}
<POP 2355a-2355c StackAdj> Δ+8 {}
<POP 2355c-23564 Epilogue> Σ0
@ 23564
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 1(r)>
<POP 23564-23628 Body>
<POP 23564-2357a Prologue> Σ0 ↓
<POP 2357a-23584 RegCacheLoad> Σ0 ↓
<POP 23584-23588 Naked> Σ0 ↓ →0x235ba
<MI 23584 TST.B 0x27c2e> {}
<MI 23586 BNE 0x235ba> {}
<POP 23588-235ba Naked> Σ0 ↓
<Blob 0x23588 [28] @> Δ-28 {[«28""»]}
<POP 2359a-2359c StackAdj> Δ-4 {[«28""»]|[-4-]}
<Lit 0x2359c 27> {[«28""»]|[$$REPEATing, type ^G to exit.]}
<Call 0x235ae 0x103e0> {[«28""»]|[$$REPEATing, type ^G to exit.]}
WriteConsoleStringCrLf(str : String)
<POP 235b4-235b8 StackAdj> Δ+32 {}
<MI 235b8 MOVE.B #0x01,0x27c2e> {}
<POP 235ba-235e4 Naked> Σ0 ↓ →0x235fa ←0x23584
<POP 235ba-235bc StackAdj> Δ-6 {[-6-]}
<Call 0x235bc 0x103f8> {[-6-]}
GetConsoleConfig() : Long
<MI 235c2 MOVE.L (A7)+,D0> Δ+4 {[-2-]}
<POP 0x235c4 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {[-2-]}
<MI 235ce MOVE.W D0,(A7)> {[2, 'D0']}
<Pointer.fp 0x235d0 <LVAR -0x004 @ 1(r)>> Δ-4 {[2, 'D0']|[@@-4]}
<Call 0x235d4 0x10212> {[2, 'D0']|[@@-4]}
KC09_PortStatus(Port : Word; VAR b: Byte)
<POP 235da-235dc StackAdj> Δ+6 {}
<MI 235dc MOVE.B (A6-0x4),D0> {}
<MI 235e0 CMP.B #0x01,D0> {}
<MI 235e2 BEQ 0x235fa> {}
<POP 235e4-235fa Naked> Σ0
<MI 235e4 MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<Call 0x235e8 0x210a8> {[4, '(A6+0x8)']}
<POP 235ec-235ee StackAdj> Δ+4 {}
<POP 235ee-235fa Bailout> {}
<MI 235ee MOVEA.L (A5+0x8),A7>
<MI 235f2 MOVEA.W #0x00,A6>
<MI 235f4 JMP 0x2498c>
<POP 235fa-2360a Naked> Σ0 ↓ →0x23620 ←0x235ba
<POP 235fa-235fc StackAdj> Δ-2 {[-2-]}
<Call 0x235fc 0x103d4> {[-2-]}
ReadChar() : Byte
<MI 23602 MOVE.B (A7)+,D0> Δ+2 {}
<MI 23604 CMPI.B #0x07,D0> {}
<MI 23608 BEQ 0x23620> {}
<POP 2360a-23620 Naked> Σ0
<MI 2360a MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<Call 0x2360e 0x210a8> {[4, '(A6+0x8)']}
<POP 23612-23614 StackAdj> Δ+4 {}
<POP 23614-23620 Bailout> {}
<MI 23614 MOVEA.L (A5+0x8),A7>
<MI 23618 MOVEA.W #0x00,A6>
<MI 2361a JMP 0x2498c>
<POP 23620-23628 Epilogue> Σ0 ←0x235fa
@ 23628
<POP 23628-23648 Body>
<POP 23628-2363a Prologue> Σ0 ↓
<POP 2363a-23644 Naked> Σ0 ↓
<Const 0x2363a 0xc8.4> Δ-4 {[##200]}
<Call 0x2363e 0x21f70> {[##200]}
<POP 23642-23644 StackAdj> Δ+4 {}
<POP 23644-23648 Epilogue> Σ0
@ 23648
<LVAR 0x008 4(r)>
<LVAR -0x00c @ 4(r)>
<POP 23648-236f4 Body>
<POP 23648-2365e Prologue> Σ0 ↓
<POP 2365e-23662 RegCacheLoad> Σ0 ↓
<POP 23662-23676 Naked> Σ0 Δ-4 ↓
<Pointer.fp 0x23662 <LVAR -0x00c @ 4(r)>> Δ-4 {[@@-12]}
<Call 0x23664 0x102b8> {[@@-12]}
NewString(VAR a : String)
<MI 2366a MOVE.L (A6+0x8),-(A7)> Δ-4 {[@@-12]|[4, '(A6+0x8)']}
<Call 0x2366e 0x214f6> {[@@-12]|[4, '(A6+0x8)']}
<POP 23672-23674 StackAdj> Δ+4 {[@@-12]}
<MI 23674 MOVEQ.L #0x01,D7> {[@@-12]}
<POP 23676-2367a Naked> Σ-4 ↓ →0x236e4 ←0x236e0
<MI 23676 CMP.L (A7),D7> {[-4-]}
<MI 23678 BGT 0x236e4> {[-4-]}
<POP 2367a-2368c Naked> Σ-4 ↓ →0x236ac
<POP 2367a-2367c StackAdj> Δ-4 {[-8-]}
<MI 2367c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<MI 23680 MOVE.L D7,-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']|[4, 'D7']}
<Call 0x23682 0x21e80> {[-8-]|[4, '(A6+0x8)']|[4, 'D7']}
<POP 23686-23688 StackAdj> Δ+8 {[-8-]}
<MI 23688 MOVE.L (A7)+,D6> Δ+4 {[-4-]}
<MI 2368a BLT 0x236ac> {[-4-]}
<POP 2368c-23694 Naked> Σ-4 ↓ →0x236ac
<MI 2368c CMPI.L #0x000000ff,D6> {[-4-]}
<MI 23692 BGT 0x236ac> {[-4-]}
<POP 23694-236ac Naked> Σ-4 →0x236e0
<MI 23694 MOVE.L (A6-0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6-0xc)']}
<POP 0x23696 LimitCheck 0x0 ≤ D6 ≤ 0xff> {[-4-]|[4, '(A6-0xc)']}
<MI 236a0 MOVE.B D6,-(A7)> Δ-2 {[-4-]|[4, '(A6-0xc)']|[2, 'D6']}
<Call 0x236a2 0x102c0> {[-4-]|[4, '(A6-0xc)']|[2, 'D6']}
AppendChar(MOD b : String; a : char)
<POP 236a8-236aa StackAdj> Δ+6 {[-4-]}
<MI 236aa BRA 0x236e0> {[-4-]}
<POP 236ac-236e0 Naked> Σ-4 ↓ ←0x2367a ←0x2368c
<Pointer.fp 0x236ac <LVAR -0x00c @ 4(r)>> Δ-4 {[-4-]|[@@-12]}
<Call 0x236ae 0x102bc> {[-4-]|[@@-12]}
FreeString(VAR a : String)
<POP 236b4-236b6 StackAdj> Δ+4 {[-4-]}
<Blob 0x236b6 [28] @> Δ-28 {[-4-]|[«28""»]}
<POP 236c2-236c4 StackAdj> Δ-4 {[-4-]|[«28""»]|[-4-]}
<Lit 0x236c4 28> {[-4-]|[«28""»]|[$$ASCII argument out of range.]}
<Call 0x236d8 0x210ea> {[-4-]|[«28""»]|[$$ASCII argument out of range.]}
<POP 236dc-236e0 StackAdj> Δ+32 {[-4-]}
<POP 236e0-236e4 Naked> Σ-4 ↓ →0x23676 ←0x23694
<MI 236e0 ADDQ.L #0x1,D7> {[-4-]}
<MI 236e2 BVC 0x23676> {[-4-]}
<POP 236e4-236ec Naked> Σ-4 Δ+4 ↓ ←0x23676
<MI 236e4 MOVE.L (A6-0xc),(A7)> {[4, '(A6-0xc)']}
<Call 0x236e6 0x21eb4> {[4, '(A6-0xc)']}
<POP 236ea-236ec StackAdj> Δ+4 {}
<POP 236ec-236f4 Epilogue> Σ0
@ 236f4
<LVAR 0x00c 1(rw)>
<LVAR 0x008 4(r)>
<POP 236f4-237ac Body> Δ-8
<POP 236f4-2370a Prologue> Σ0 ↓
<POP 2370a-2371a Naked> Σ0 Δ-4 ↓
<MI 2370a CLR.B (A6+0xc)> {}
<MI 2370e MOVEA.L (A6+0x8),A0> {}
<MI 23712 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 23714 MOVEQ.L #0x00,D0> {[4, 'A0']}
<MI 23716 ADDQ.W #0x1,D0> {[4, 'A0']}
<MI 23718 MOVE.B D0,D6> {[4, 'A0']}
<POP 2371a-23722 Naked> Σ-4 ↓ →0x237a2 ←0x2379c
<MI 2371a CMPI.B #0x2b,D6> {[-4-]}
<MI 2371e BGT 0x237a2> {[-4-]}
<POP 23722-23748 Naked> Σ-4 ↓ →0x2379c
<MI 23722 LEA.L 0x20fd6,A0> {[-4-]}
<MI 23726 MOVE.B D6,D0> {[-4-]}
<MI 23728 EXTB.W D0> {[-4-]}
<MI 2372a EXTW.L D0> {[-4-]}
<MI 2372c ROR.L #0x1,D0> {[-4-]}
<MI 2372e ADDA.W D0,A0> {[-4-]}
<MI 23730 SWAP.W D0> {[-4-]}
<MI 23732 ROL.W #0x3,D0> {[-4-]}
<MI 23734 CLR.L D1> {[-4-]}
<MI 23736 MOVE.B (A0),D1> {[-4-]}
<MI 23738 LSL.B D0,D1> {[-4-]}
<MI 2373a LSR.B #0x4,D1> {[-4-]}
<MI 2373c MOVE.L D1,D5> {[-4-]}
<MI 2373e MOVEA.L (A7),A0> {[-4-]}
<MI 23740 MOVE.W (A0),D0> {[-4-]}
<MI 23742 EXTW.L D0> {[-4-]}
<MI 23744 CMP.L D0,D5> {[-4-]}
<MI 23746 BNE 0x2379c> {[-4-]}
<POP 23748-2374c Naked> Σ-4 Δ-4 ↓
<MI 23748 MOVE.L D5,-(A7)> Δ-4 {[-4-]|[4, 'D5']}
<MI 2374a MOVEQ.L #0x01,D7> {[-4-]|[4, 'D5']}
<POP 2374c-23750 Naked> Σ-8 ↓ →0x23792 ←0x2378e
<MI 2374c CMP.L (A7),D7> {[-8-]}
<MI 2374e BGT 0x23792> {[-8-]}
<POP 23750-2378a Naked> Σ-8 ↓ →0x2378e
<MI 23750 MOVE.B D6,D0> {[-8-]}
<MI 23752 EXTB.W D0> {[-8-]}
<MI 23754 MULS.W #0xa,D0> {[-8-]}
<MI 23758 MOVE.L D7,D1> {[-8-]}
<MI 2375a SUBQ.L #0x1,D1> {[-8-]}
<POP 0x2375c LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-8-]}
<MI 23766 MOVEA.L (A7+0x4),A0> {[-8-]}
<MI 2376a LEA.L 0x20e1e,A1> {[-8-]}
<MI 2376e MOVE.L D7,D2> {[-8-]}
<MI 23770 SUBQ.L #0x1,D2> {[-8-]}
<POP 0x23772 LimitCheck 0x0 ≤ D2 ≤ 0x9> {[-8-]}
<MI 2377c LEA.L (A1+D0.W),A1> {[-8-]}
<MI 23780 MOVE.B (A0+D1.L+#0x2),D0> {[-8-]}
<MI 23784 CMP.B (A1+D2.L),D0> {[-8-]}
<MI 23788 BEQ 0x2378e> {[-8-]}
<POP 2378a-2378e Naked> Σ-8 Δ+4 →0x2379c
<POP 2378a-2378c StackAdj> Δ+4 {[-4-]}
<MI 2378c BRA 0x2379c> {[-4-]}
<POP 2378e-23792 Naked> Σ-8 ↓ →0x2374c ←0x23750
<MI 2378e ADDQ.L #0x1,D7> {[-8-]}
<MI 23790 BVC 0x2374c> {[-8-]}
<POP 23792-2379c Naked> Σ-8 Δ+8 →0x237a4 ←0x2374c
<POP 23792-23794 StackAdj> Δ+4 {[-4-]}
<MI 23794 MOVE.B D6,(A6+0xc)> {[-4-]}
<POP 23798-2379a StackAdj> Δ+4 {}
<MI 2379a BRA 0x237a4> {}
<POP 2379c-237a2 Naked> Σ-4 ↓ →0x2371a ←0x23722 ←0x2378a
<MI 2379c ADDQ.B #0x1,D6> {[-4-]}
<MI 2379e BVC 0x2371a> {[-4-]}
<POP 237a2-237a4 Naked> Σ-4 Δ+4 ↓ ←0x2371a
<POP 237a2-237a4 StackAdj> Δ+4 {}
<POP 237a4-237ac Epilogue> Σ0 ←0x23792
@ 237ac
<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 237ac-238e8 Body>
<POP 237ac-237c2 Prologue> Σ0 ↓
<POP 237c2-237d0 RegCacheLoad> Σ0 ↓
<POP 237d0-2383c Naked> Σ0 ↓ →0x23886
<POP 237d0-237d2 StackAdj> Δ-4 {[-4-]}
<MI 237d2 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']}
<Call 0x237d6 0x102cc> {[-4-]|[4, '(A6+0xc)']}
StringDup(a : String) : String
<POP 237dc-237de StackAdj> Δ+4 {[-4-]}
<MI 237de MOVE.L (A7)+,(A6-0x10)> Δ+4 {}
<MI 237e0 MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0x10)']}
<Const 0x237e2 0x2e.2> Δ-2 {[4, '(A6-0x10)']|[#46]}
<Call 0x237e6 0x102c0> {[4, '(A6-0x10)']|[#46]}
AppendChar(MOD b : String; a : char)
<POP 237ec-237ee StackAdj> Δ+6 {}
<Blob 0x237ee [10] 0x27c0e> Δ-10 {[«10»]}
<POP 237fc-237fe StackAdj> Δ-4 {[«10»]|[-4-]}
<MI 237fe MOVE.L (A6-0x10),-(A7)> Δ-4 {[«10»]|[-4-]|[4, '(A6-0x10)']}
<POP 23800-23802 StackAdj> Δ-4 {[«10»]|[-4-]|[4, '(A6-0x10)']|[-4-]}
<Lit 0x23802> {[«10»]|[-4-]|[4, '(A6-0x10)']|[$$…]}
<Pointer.sp 0x23802 12> Δ-4
<Const 0x23806 0x1.2> Δ-2
<Const 0x23808 0xa.2> Δ-2
<Call 0x2380c 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 23812-23814 StackAdj> Δ+8
<Call 0x23814 0x102d0> {[«10»]|[-4-]|[4, '(A6-0x10)']|[$$…]}
StringCat2(a, b : String) : String
<POP 2381a-2381c StackAdj> Δ+8 {[«10»]|[-4-]}
<MI 2381c MOVE.L (A7)+,(A6-0x10)> Δ+4 {[«10»]}
<POP 2381e-23820 StackAdj> Δ+6 {[-4-]}
<MI 23820 MOVE.L (A6-0x10),(A7)> {[4, '(A6-0x10)']}
<MI 23822 CLR.B -(A7)> Δ-2 {[4, '(A6-0x10)']|[#0]}
<Const 0x23824 0x1.2> Δ-2 {[4, '(A6-0x10)']|[#0]|[#1]}
<Const 0x23826 0x0.4> Δ-4 {[4, '(A6-0x10)']|[#0]|[#1]|[##0]}
<Pointer.fp 0x2382a <LVAR -0x002 @ 1(r)>> Δ-4 {[4, '(A6-0x10)']|[#0]|[#1]|[##0]|[@@-2]}
<Pointer.fp 0x2382c <LVAR -0x00c @ 4(r)>> Δ-4 {[4, '(A6-0x10)']|[#0]|[#1]|[##0]|[@@-2]|[@@-12]}
<Call 0x2382e 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 23834-23838 StackAdj> Δ+20 {}
<MI 23838 TST.B (A6-0x2)> {}
<MI 2383a BEQ 0x23886> {}
<POP 2383c-23886 Naked> Σ0 ↓
<Pointer.fp 0x2383c <LVAR -0x010 @ 4(rw)>> Δ-4 {[@@-16]}
<Call 0x2383e 0x102bc> {[@@-16]}
FreeString(VAR a : String)
<MI 23844 MOVE.L (A6+0x8),(A7)> {[4, '(A6+0x8)']}
<Call 0x23848 0x210a8> {[4, '(A6+0x8)']}
<POP 2384c-2384d StackAdj> Δ+4 ↓ {}
<Blob 0x2384d [26] @> Δ-26 {[«26""»]}
<POP 2385e-23860 StackAdj> Δ-8 {[«26""»]|[-8-]}
<Lit 0x23860 25> {[«26""»]|[-4-]|[$$Not a command or macro :_]}
<POP 23870-23872 StackAdj> Δ-4 {[«26""»]|[-4-]|[$$Not a command or macro :_]|[-4-]}
<MI 23872 MOVE.L (A6+0xc),(A7)> {[«26""»]|[-4-]|[$$Not a command or macro :_]|[4, '(A6+0xc)']}
<Call 0x23876 0x102d0> {[«26""»]|[-4-]|[$$Not a command or macro :_]|[4, '(A6+0xc)']}
StringCat2(a, b : String) : String
<POP 2387c-2387e StackAdj> Δ+8 {[«26""»]|[-4-]}
<Call 0x2387e 0x210ea> {[«26""»]|[-4-]}
<POP 23882-23886 StackAdj> Δ+30 {}
<POP 23886-2388e Naked> Σ0 ↓ ←0x237d0
<MI 23886 MOVE.L 0x27bfc,(A6-0x6)> {}
<POP 2388e-238a6 Naked> Σ0 ↓ →0x238ba ←0x238ba
<MI 2388e MOVE.L (A6-0xc),-(A7)> Δ-4 {[4, '(A6-0xc)']}
<Pointer.fp 0x23890 <LVAR -0x010 @ 4(rw)>> Δ-4 {[4, '(A6-0xc)']|[@@-16]}
<Pointer.fp 0x23892 <LVAR -0x008 @ 1(r)>> Δ-4 {[4, '(A6-0xc)']|[@@-16]|[@@-8]}
<Call 0x23896 0x1043c> {[4, '(A6-0xc)']|[@@-16]|[@@-8]}
FileReadLine(file : File; VAR a : String; VAR b : Byte)
<POP 2389c-238a0 StackAdj> Δ+12 {}
<MI 238a0 MOVEA.L (A6-0x10),A0> {}
<MI 238a2 TST.W (A0)> {}
<MI 238a4 BEQ 0x238ba> {}
<POP 238a6-238ba Naked> Σ0 ↓
<MI 238a6 MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0x10)']}
<Call 0x238a8 0x21342> {[4, '(A6-0x10)']}
<POP 238ac-238ae StackAdj> Δ+4 {}
<Pointer.fp 0x238ae <LVAR -0x006 @ 4(w)>> Δ-4 {[@@-6]}
<MI 238b2 MOVE.L (A6-0x10),-(A7)> Δ-4 {[@@-6]|[4, '(A6-0x10)']}
<Call 0x238b4 0x216c8> {[@@-6]|[4, '(A6-0x10)']}
<POP 238b8-238ba StackAdj> Δ+8 {}
<POP 238ba-238c0 Naked> Σ0 ↓ →0x2388e ←0x2388e
<MI 238ba TST.B (A6-0x8)> {}
<MI 238be BEQ 0x2388e> {}
<POP 238c0-238e0 Naked> Σ0 ↓
<MI 238c0 CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x238c2 0x1.2> Δ-2 {[#0]|[#1]}
<Const 0x238c4 0x1.4> Δ-4 {[#0]|[#1]|[##1]}
<Pointer.fp 0x238c8 <LVAR -0x002 @ 1(r)>> Δ-4 {[#0]|[#1]|[##1]|[@@-2]}
<Pointer.fp 0x238ca <LVAR -0x00c @ 4(r)>> Δ-4 {[#0]|[#1]|[##1]|[@@-2]|[@@-12]}
<Call 0x238cc 0x1038c> {[#0]|[#1]|[##1]|[@@-2]|[@@-12]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 238d2-238d6 StackAdj> Δ+16 {}
<Pointer.fp 0x238d6 <LVAR -0x010 @ 4(rw)>> Δ-4 {[@@-16]}
<Call 0x238d8 0x102bc> {[@@-16]}
FreeString(VAR a : String)
<POP 238de-238e0 StackAdj> Δ+4 {}
<POP 238e0-238e8 Epilogue> Σ0
@ 238e8
<LVAR 0x014 1(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 238e8-23928 Body>
<POP 238e8-238fe Prologue> Σ0 ↓
<POP 238fe-23920 Naked> Σ0 ↓
<MI 238fe MOVE.L (A6+0xc),D0> {}
<MI 23902 ADD.L (A6+0x8),D0> {}
<MI 23906 SUBQ.L #0x1,D0> {}
<MI 23908 SUBQ.L #0x1,D0> {}
<POP 0x2390a LimitCheck 0x0 ≤ D0 ≤ 0xfff> {}
<MI 23914 LEA.L 0x26bf4,A0> {}
<MI 2391a MOVE.B (A0+D0.L+#0x8),(A6+0x14)> {}
<POP 23920-23928 Epilogue> Σ0
@ 23928
<LVAR 0x010 4(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 1(r)>
<LVAR -0x008 @ 4(r)>
<POP 23928-239a4 Body>
<POP 23928-2393e Prologue> Σ0 ↓
<POP 2393e-23966 Naked> Σ0 ↓ →0x23996
<POP 2393e-23940 StackAdj> Δ-4 {[-4-]}
<MI 23940 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']}
<MI 23944 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x23948 0x21d96> {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 2394c-2394e StackAdj> Δ+8 {[-4-]}
<Pointer.fp 0x2394e <LVAR -0x004 @ 1(r)>> Δ-4 {[-4-]|[@@-4]}
<Pointer.fp 0x23952 <LVAR -0x008 @ 4(r)>> Δ-4 {[-4-]|[@@-4]|[@@-8]}
<Call 0x23956 0x102ec> {[-4-]|[@@-4]|[@@-8]}
String2Long(src : String; VAR status : Bool; VAR retval : Long)
<POP 2395c-23960 StackAdj> Δ+12 {}
<MI 23960 TST.B (A6-0x4)> {}
<MI 23964 BNE 0x23996> {}
<POP 23966-23996 Naked> Σ0 ↓
<Blob 0x23966 [24] @> Δ-24 {[«24""»]}
<POP 23978-2397a StackAdj> Δ-4 {[«24""»]|[-4-]}
<Lit 0x2397a 23> {[«24""»]|[$$Illegal marker argument]}
<Call 0x2398e 0x210ea> {[«24""»]|[$$Illegal marker argument]}
<POP 23992-23996 StackAdj> Δ+28 {}
<POP 23996-2399c Naked> Σ0 ↓ ←0x2393e
<MI 23996 MOVE.L (A6-0x8),(A6+0x10)> {}
<POP 2399c-239a4 Epilogue> Σ0
@ 239a4
<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 239a4-23acc Body>
<POP 239a4-239ba Prologue> Σ0 ↓
<POP 239ba-239ca RegCacheLoad> Σ0 ↓
<POP 239ca-239e4 Naked> Σ0 Δ-4 ↓
<MI 239ca MOVEQ.L #0x00,D7> {}
<MI 239cc MOVE.L (A6+0x14),(A6-0x20)> {}
<MI 239d0 MOVE.L 0x27bfc,D0> {}
<MI 239d6 SUB.L (A6+0x14),D0> {}
<MI 239da MOVE.L D0,(A6-0x14)> {}
<MI 239dc MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<MI 239e0 MOVE.L (A6+0x10),D5> {[4, '(A6+0xc)']}
<POP 239e4-239e8 Naked> Σ-4 ↓ →0x23a14 ←0x23a10
<MI 239e4 CMP.L (A7),D5> {[-4-]}
<MI 239e6 BGT 0x23a14> {[-4-]}
<POP 239e8-23a0e Naked> Σ-4 ↓ →0x23a10
<POP 239e8-239ea StackAdj> Δ-8 {[-12-]}
<MI 239ea MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']}
<MI 239ee MOVE.L D5,-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']|[4, 'D5']}
<Call 0x239f0 0x21d34> {[-12-]|[4, '(A6+0x8)']|[4, 'D5']}
<POP 239f4-239f6 StackAdj> Δ+8 {[-12-]}
<MI 239f6 MOVE.L (A7)+,(A6-0x10)> Δ+4 {[-8-]}
<MI 239f8 MOVE.L (A7),(A6-0xc)> {[-8-]}
<MI 239fa MOVE.L (A6-0xc),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']}
<MI 239fc MOVE.L (A6-0x10),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<Call 0x239fe 0x21cfc> {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<POP 23a02-23a04 StackAdj> Δ+8 {[-8-]}
<MI 23a04 MOVE.L (A7)+,D6> Δ+4 {[-4-]}
<MI 23a06 ADD.L D6,D7> {[-4-]}
<MI 23a08 CMP.L (A6+0xc),D5> {[-4-]}
<MI 23a0c BGE 0x23a10> {[-4-]}
<POP 23a0e-23a10 Naked> Σ-4 ↓
<MI 23a0e ADDQ.L #0x1,D7> {[-4-]}
<POP 23a10-23a14 Naked> Σ-4 ↓ →0x239e4 ←0x239e8
<MI 23a10 ADDQ.L #0x1,D5> {[-4-]}
<MI 23a12 BVC 0x239e4> {[-4-]}
<POP 23a14-23a22 Naked> Σ-4 Δ+4 ↓ →0x23a2e ←0x239e4
<POP 23a14-23a16 StackAdj> Δ+4 {}
<MI 23a16 MOVE.L (A6-0x20),D0> {}
<MI 23a18 ADD.L (A6-0x14),D0> {}
<MI 23a1a MOVE.L D0,(A6-0x18)> {}
<MI 23a1e CMP.L (A6-0x14),D7> {}
<MI 23a20 BEQ 0x23a2e> {}
<POP 23a22-23a2e Naked> Σ0 ↓
<MI 23a22 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 23a24 MOVE.L (A6-0x14),-(A7)> Δ-4 {[4, 'D0']|[4, '(A6-0x14)']}
<MI 23a26 SUB.L D7,(A7)> {[4, 'D0']|[-4-]}
<Call 0x23a28 0x2163e> {[4, 'D0']|[-4-]}
<POP 23a2c-23a2e StackAdj> Δ+8 {}
<POP 23a2e-23a36 Naked> Σ0 Δ-4 ↓ ←0x23a14
<MI 23a2e MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<MI 23a32 MOVE.L (A6+0x10),D5> {[4, '(A6+0xc)']}
<POP 23a36-23a3c Naked> Σ-4 ↓ →0x23ac2 ←0x23abc
<MI 23a36 CMP.L (A7),D5> {[-4-]}
<MI 23a38 BGT 0x23ac2> {[-4-]}
<POP 23a3c-23a5e Naked> Σ-4 Δ-4 ↓
<POP 23a3c-23a3e StackAdj> Δ-8 {[-12-]}
<MI 23a3e MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']}
<MI 23a42 MOVE.L D5,-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']|[4, 'D5']}
<Call 0x23a44 0x21d34> {[-12-]|[4, '(A6+0x8)']|[4, 'D5']}
<POP 23a48-23a4a StackAdj> Δ+8 {[-12-]}
<MI 23a4a MOVE.L (A7)+,(A6-0x10)> Δ+4 {[-8-]}
<MI 23a4c MOVE.L (A7),(A6-0xc)> {[-8-]}
<MI 23a4e MOVE.L (A6-0xc),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']}
<MI 23a50 MOVE.L (A6-0x10),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<Call 0x23a52 0x21cfc> {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<POP 23a56-23a58 StackAdj> Δ+8 {[-8-]}
<MI 23a58 MOVE.L (A7)+,D6> Δ+4 {[-4-]}
<MI 23a5a MOVE.L D6,-(A7)> Δ-4 {[-4-]|[4, 'D6']}
<MI 23a5c MOVEQ.L #0x01,D0> {[-4-]|[4, 'D6']}
<POP 23a5e-23a62 Naked> Σ-8 ↓ →0x23a92 ←0x23a62
<MI 23a5e CMP.L (A7),D0> {[-8-]}
<MI 23a60 BGT 0x23a92> {[-8-]}
<POP 23a62-23a92 Naked> Σ-8 ↓ →0x23a5e
<MI 23a62 MOVE.L (A6-0x20),D1> {[-8-]}
<MI 23a64 ADD.L D0,D1> {[-8-]}
<MI 23a66 SUBQ.L #0x1,D1> {[-8-]}
<MI 23a68 SUBQ.L #0x1,D1> {[-8-]}
<POP 0x23a6a LimitCheck 0x0 ≤ D1 ≤ 0xfff> {[-8-]}
<MI 23a74 LEA.L 0x26bf4,A0> {[-8-]}
<POP 23a7a-23a7c StackAdj> Δ-2 {[-10-]}
<MI 23a7c MOVE.L (A6-0xc),-(A7)> Δ-4 {[-10-]|[4, '(A6-0xc)']}
<MI 23a7e MOVE.L (A6-0x10),-(A7)> Δ-4 {[-10-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<MI 23a80 MOVE.L D0,-(A7)> Δ-4 {[-10-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D0']}
<Call 0x23a82 0x238e8> {[-10-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D0']}
<POP 23a86-23a8a StackAdj> Δ+12 {[-10-]}
<MI 23a8a MOVE.B (A7)+,(A0+D1.L+#0x8)> Δ+2 {[-8-]}
<MI 23a8e ADDQ.L #0x1,D0> {[-8-]}
<MI 23a90 BVC 0x23a5e> {[-8-]}
<POP 23a92-23a9a Naked> Σ-8 Δ+4 ↓ →0x23abc ←0x23a5e
<POP 23a92-23a94 StackAdj> Δ+4 {[-4-]}
<MI 23a94 CMP.L (A6+0xc),D5> {[-4-]}
<MI 23a98 BGE 0x23abc> {[-4-]}
<POP 23a9a-23abc Naked> Σ-4 ↓
<MI 23a9a MOVE.L (A6-0x20),D0> {[-4-]}
<MI 23a9c ADD.L D6,D0> {[-4-]}
<MI 23a9e MOVE.L D0,D1> {[-4-]}
<MI 23aa0 SUBQ.L #0x1,D1> {[-4-]}
<POP 0x23aa2 LimitCheck 0x0 ≤ D1 ≤ 0xfff> {[-4-]}
<MI 23aac LEA.L 0x26bf4,A0> {[-4-]}
<MI 23ab2 MOVE.B #0x2c,(A0+D1.L+#0x8)> {[-4-]}
<MI 23ab8 ADDQ.L #0x1,D0> {[-4-]}
<MI 23aba MOVE.L D0,(A6-0x20)> {[-4-]}
<POP 23abc-23ac2 Naked> Σ-4 ↓ →0x23a36 ←0x23a92
<MI 23abc ADDQ.L #0x1,D5> {[-4-]}
<MI 23abe BVC 0x23a36> {[-4-]}
<POP 23ac2-23ac4 Naked> Σ-4 Δ+4 ↓ ←0x23a36
<POP 23ac2-23ac4 StackAdj> Δ+4 {}
<POP 23ac4-23acc Epilogue> Σ0
@ 23acc
<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 23acc-23bc2 Body> Δ-12
<POP 23acc-23ae2 Prologue> Σ0 ↓
<POP 23ae2-23af8 RegCacheLoad> Σ0 ↓
<POP 23af8-23b22 Naked> Σ0 Δ-4 ↓
<POP 23af8-23afa StackAdj> Δ-4 {[-4-]}
<MI 23afa MOVE.L (A6+0x14),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']}
<MI 23afc MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<Call 0x23afe 0x21cfc> {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<POP 23b02-23b04 StackAdj> Δ+8 {[-4-]}
<MI 23b04 MOVE.L (A7),(A6-0xc)> {[-4-]}
<MI 23b06 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']}
<MI 23b0a MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x23b0e 0x21cfc> {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 23b12-23b14 StackAdj> Δ+8 {[-4-]}
<MI 23b14 MOVE.L (A7)+,(A6-0x8)> Δ+4 {}
<MI 23b16 ADDQ.L #0x1,(A6-0x8)> {}
<MI 23b18 MOVE.L (A6-0xc),D0> {}
<MI 23b1a SUB.L (A6-0x8),D0> {}
<MI 23b1c ADDQ.L #0x1,D0> {}
<MI 23b1e MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 23b20 MOVEQ.L #0x01,D0> {[4, 'D0']}
<POP 23b22-23b28 Naked> Σ-4 ↓ →0x23bb4 ←0x23bac
<MI 23b22 CMP.L (A7),D0> {[-4-]}
<MI 23b24 BGT 0x23bb4> {[-4-]}
<POP 23b28-23b34 Naked> Σ-4 Δ-8 ↓
<MI 23b28 MOVE.L D0,(A6-0x18)> {[-4-]}
<MI 23b2c MOVE.L D0,-(A7)> Δ-4 {[-4-]|[4, 'D0']}
<MI 23b2e MOVEQ.L #0x00,D6> {[-4-]|[4, 'D0']}
<MI 23b30 MOVE.L (A6-0x8),-(A7)> Δ-4 {[-4-]|[4, 'D0']|[4, '(A6-0x8)']}
<MI 23b32 MOVEQ.L #0x01,D5> {[-4-]|[4, 'D0']|[4, '(A6-0x8)']}
<POP 23b34-23b38 Naked> Σ-12 ↓ →0x23b7a ←0x23b74
<MI 23b34 CMP.L (A7),D5> {[-12-]}
<MI 23b36 BGT 0x23b7a> {[-12-]}
<POP 23b38-23b40 Naked> Σ-12 ↓ →0x23b44
<MI 23b38 CMPI.L #0x00000001,D5> {[-12-]}
<MI 23b3e BNE 0x23b44> {[-12-]}
<POP 23b40-23b44 Naked> Σ-12 →0x23b58
<MI 23b40 MOVEQ.L #0x2f,D7> {[-12-]}
<MI 23b42 BRA 0x23b58> {[-12-]}
<POP 23b44-23b58 Naked> Σ-12 ↓ ←0x23b38
<POP 23b44-23b46 StackAdj> Δ-2 {[-14-]}
<MI 23b46 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-14-]|[4, '(A6+0xc)']}
<MI 23b4a MOVE.L (A6+0x8),-(A7)> Δ-4 {[-14-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<MI 23b4e MOVE.L D5,-(A7)> Δ-4 {[-14-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D5']}
<MI 23b50 SUBQ.L #0x1,(A7)> {[-14-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[-4-]}
<Call 0x23b52 0x238e8> {[-14-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[-4-]}
<POP 23b54-23b56 StackAdj> Δ+12 {[-14-]}
<MI 23b56 MOVE.B (A7)+,D7> Δ+2 {[-12-]}
<POP 23b58-23b70 Naked> Σ-12 ↓ →0x23b74 ←0x23b40
<POP 23b58-23b5a StackAdj> Δ-2 {[-14-]}
<MI 23b5a MOVE.L (A6+0x14),-(A7)> Δ-4 {[-14-]|[4, '(A6+0x14)']}
<MI 23b5c MOVE.L (A6+0x10),-(A7)> Δ-4 {[-14-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 23b5e MOVE.L (A7+0xe),D0> {[-14-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 23b62 ADD.L D5,D0> {[-14-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 23b64 SUBQ.L #0x1,D0> {[-14-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 23b66 MOVE.L D0,-(A7)> Δ-4 {[-14-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D0']}
<Call 0x23b68 0x238e8> {[-14-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D0']}
<POP 23b6a-23b6c StackAdj> Δ+12 {[-14-]}
<MI 23b6c CMP.B (A7)+,D7> Δ+2 {[-12-]}
<MI 23b6e BEQ 0x23b74> {[-12-]}
<POP 23b70-23b74 Naked> Σ-12 Δ+4 →0x23b7c
<POP 23b70-23b72 StackAdj> Δ+4 {[-8-]}
<MI 23b72 BRA 0x23b7c> {[-8-]}
<POP 23b74-23b7a Naked> Σ-12 ↓ →0x23b34 ←0x23b58
<MI 23b74 MOVE.L D5,D6> {[-12-]}
<MI 23b76 ADDQ.L #0x1,D5> {[-12-]}
<MI 23b78 BVC 0x23b34> {[-12-]}
<POP 23b7a-23b7c Naked> Σ-12 Δ+4 ↓ ←0x23b34
<POP 23b7a-23b7c StackAdj> Δ+4 {[-8-]}
<POP 23b7c-23b80 Naked> Σ-8 ↓ →0x23bac ←0x23b70
<MI 23b7c CMP.L (A6-0x8),D6> {[-8-]}
<MI 23b7e BNE 0x23bac> {[-8-]}
<POP 23b80-23b8c Naked> Σ-8 ↓ →0x23b8e
<MI 23b80 MOVE.L (A7),D0> {[-8-]}
<MI 23b82 MOVE.L D0,(A6+0x18)> {[-8-]}
<MI 23b86 ADD.L (A6-0x8),D0> {[-8-]}
<MI 23b88 CMP.L (A6-0xc),D0> {[-8-]}
<MI 23b8a BLT 0x23b8e> {[-8-]}
<POP 23b8c-23b8e Naked> Σ-8 →0x23ba8
<MI 23b8c BRA 0x23ba8> {[-8-]}
<POP 23b8e-23ba2 Naked> Σ-8 ↓ →0x23ba8 ←0x23b80
<POP 23b8e-23b90 StackAdj> Δ-2 {[-10-]}
<MI 23b90 MOVE.L (A6+0x14),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x14)']}
<MI 23b92 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 23b94 MOVE.L D0,-(A7)> Δ-4 {[-10-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D0']}
<Call 0x23b96 0x238e8> {[-10-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D0']}
<POP 23b98-23b9a StackAdj> Δ+12 {[-10-]}
<MI 23b9a MOVE.B (A7)+,D7> Δ+2 {[-8-]}
<MI 23b9c CMPI.B #0x2f,D7> {[-8-]}
<MI 23ba0 BEQ 0x23ba8> {[-8-]}
<POP 23ba2-23ba8 Naked> Σ-8 ↓ →0x23bac
<MI 23ba2 CMPI.B #0x3d,D7> {[-8-]}
<MI 23ba6 BNE 0x23bac> {[-8-]}
<POP 23ba8-23bac Naked> Σ-8 Δ+8 →0x23bba ←0x23b8c ←0x23b8e
<POP 23ba8-23baa StackAdj> Δ+8 {}
<MI 23baa BRA 0x23bba> {}
<POP 23bac-23bb4 Naked> Σ-8 Δ+4 ↓ →0x23b22 ←0x23b7c ←0x23ba2
<MI 23bac MOVE.L (A7)+,D0> Δ+4 {[-4-]}
<MI 23bae ADDQ.L #0x1,D0> {[-4-]}
<MI 23bb0 BVC 0x23b22> {[-4-]}
<POP 23bb4-23bba Naked> Σ-4 Δ+4 ↓ ←0x23b22
<POP 23bb4-23bb6 StackAdj> Δ+4 {}
<MI 23bb6 CLR.L (A6+0x18)> {}
<POP 23bba-23bc2 Epilogue> Σ0 ←0x23ba8
@ 23bc2
<LVAR 0x018 4(r)>
<LVAR 0x014 4(r)>
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 23bc2-23c56 Body> Δ-4
<POP 23bc2-23bd8 Prologue> Σ0 ↓
<POP 23bd8-23be2 RegCacheLoad> Σ0 ↓
<POP 23be2-23bfc Naked> Σ0 ↓ →0x23c4e
<POP 23be2-23be4 StackAdj> Δ-4 {[-4-]}
<MI 23be4 MOVE.L (A6+0x14),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']}
<MI 23be6 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 23be8 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<MI 23bec MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x23bf0 0x23acc> {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 23bf4-23bf8 StackAdj> Δ+16 {[-4-]}
<MI 23bf8 MOVE.L (A7)+,D5> Δ+4 {}
<MI 23bfa BLE 0x23c4e> {}
<POP 23bfc-23c1c Naked> Σ0 Δ-4 ↓
<MI 23bfc MOVE.L (A6+0x18),-(A7)> Δ-4 {[4, '(A6+0x18)']}
<Const 0x23c00 0x2f.2> Δ-2 {[4, '(A6+0x18)']|[#47]}
<Call 0x23c02 0x102c0> {[4, '(A6+0x18)']|[#47]}
AppendChar(MOD b : String; a : char)
<POP 23c08-23c0a StackAdj> Δ+6 {}
<MI 23c0a MOVE.L D5,D0> {}
<MI 23c0c ADDQ.L #0x1,D0> {}
<POP 23c0e-23c10 StackAdj> Δ-4 {[-4-]}
<MI 23c10 MOVE.L (A6+0x14),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']}
<MI 23c12 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<Call 0x23c14 0x21cfc> {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<POP 23c18-23c1a StackAdj> Δ+8 {[-4-]}
<MI 23c1a MOVE.L D0,D6> {[-4-]}
<POP 23c1c-23c20 Naked> Σ-4 ↓ →0x23c4c ←0x23c3a
<MI 23c1c CMP.L (A7),D6> {[-4-]}
<MI 23c1e BGT 0x23c4c> {[-4-]}
<POP 23c20-23c36 Naked> Σ-4 ↓ →0x23c3a
<POP 23c20-23c22 StackAdj> Δ-2 {[-6-]}
<MI 23c22 MOVE.L (A6+0x14),-(A7)> Δ-4 {[-6-]|[4, '(A6+0x14)']}
<MI 23c24 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-6-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 23c26 MOVE.L D6,-(A7)> Δ-4 {[-6-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D6']}
<Call 0x23c28 0x238e8> {[-6-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D6']}
<POP 23c2c-23c30 StackAdj> Δ+12 {[-6-]}
<MI 23c30 MOVE.B (A7)+,D7> Δ+2 {[-4-]}
<MI 23c32 CMP.B #0x2f,D7> {[-4-]}
<MI 23c34 BNE 0x23c3a> {[-4-]}
<POP 23c36-23c3a Naked> Σ-4 Δ+4 →0x23c4e
<POP 23c36-23c38 StackAdj> Δ+4 {}
<MI 23c38 BRA 0x23c4e> {}
<POP 23c3a-23c4c Naked> Σ-4 ↓ →0x23c1c ←0x23c20
<MI 23c3a MOVE.L (A6+0x18),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x18)']}
<MI 23c3e MOVE.B D7,-(A7)> Δ-2 {[-4-]|[4, '(A6+0x18)']|[2, 'D7']}
<Call 0x23c40 0x102c0> {[-4-]|[4, '(A6+0x18)']|[2, 'D7']}
AppendChar(MOD b : String; a : char)
<POP 23c46-23c48 StackAdj> Δ+6 {[-4-]}
<MI 23c48 ADDQ.L #0x1,D6> {[-4-]}
<MI 23c4a BVC 0x23c1c> {[-4-]}
<POP 23c4c-23c4e Naked> Σ-4 Δ+4 ↓ ←0x23c1c
<POP 23c4c-23c4e StackAdj> Δ+4 {}
<POP 23c4e-23c56 Epilogue> Σ0 ←0x23be2 ←0x23c36
@ 23c56
<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 23c56-23d0c Body> Δ-8
<POP 23c56-23c6c Prologue> Σ0 ↓
<POP 23c6c-23c7a RegCacheLoad> Σ0 ↓
<POP 23c7a-23c96 Naked> Σ0 ↓ →0x23d04
<POP 23c7a-23c7c StackAdj> Δ-4 {[-4-]}
<MI 23c7c MOVE.L (A6+0x14),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']}
<MI 23c7e MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 23c80 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<MI 23c84 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x23c88 0x23acc> {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 23c8c-23c90 StackAdj> Δ+16 {[-4-]}
<MI 23c90 MOVE.L (A7)+,(A6-0x14)> Δ+4 {}
<MI 23c94 BLE 0x23d04> {}
<POP 23c96-23caa Naked> Σ0 Δ-4 ↓
<POP 23c96-23c98 StackAdj> Δ-4 {[-4-]}
<MI 23c98 MOVE.L (A6+0x14),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']}
<MI 23c9a MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<Call 0x23c9c 0x21cfc> {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<POP 23ca0-23ca2 StackAdj> Δ+8 {[-4-]}
<MI 23ca2 MOVE.L (A7)+,(A6-0x6)> Δ+4 {}
<MI 23ca4 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<MI 23ca6 MOVE.L (A6-0x14),D5> {[4, '(A6-0x6)']}
<POP 23caa-23cae Naked> Σ-4 ↓ →0x23d02 ←0x23cfe
<MI 23caa CMP.L (A7),D5> {[-4-]}
<MI 23cac BGT 0x23d02> {[-4-]}
<POP 23cae-23cc4 Naked> Σ-4 ↓ →0x23cfe
<POP 23cae-23cb0 StackAdj> Δ-2 {[-6-]}
<MI 23cb0 MOVE.L (A6+0x14),-(A7)> Δ-4 {[-6-]|[4, '(A6+0x14)']}
<MI 23cb2 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-6-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 23cb4 MOVE.L D5,-(A7)> Δ-4 {[-6-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D5']}
<Call 0x23cb6 0x238e8> {[-6-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D5']}
<POP 23cba-23cbc StackAdj> Δ+12 {[-6-]}
<MI 23cbc MOVE.B (A7)+,D0> Δ+2 {[-4-]}
<MI 23cbe CMPI.B #0x3d,D0> {[-4-]}
<MI 23cc2 BNE 0x23cfe> {[-4-]}
<POP 23cc4-23ccc Naked> Σ-4 Δ-4 ↓
<MI 23cc4 MOVE.L D5,D0> {[-4-]}
<MI 23cc6 ADDQ.L #0x1,D0> {[-4-]}
<MI 23cc8 MOVE.L (A6-0x6),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x6)']}
<MI 23cca MOVE.L D0,D6> {[-4-]|[4, '(A6-0x6)']}
<POP 23ccc-23cd0 Naked> Σ-8 ↓ →0x23cfc ←0x23cea
<MI 23ccc CMP.L (A7),D6> {[-8-]}
<MI 23cce BGT 0x23cfc> {[-8-]}
<POP 23cd0-23ce6 Naked> Σ-8 ↓ →0x23cea
<POP 23cd0-23cd2 StackAdj> Δ-2 {[-10-]}
<MI 23cd2 MOVE.L (A6+0x14),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x14)']}
<MI 23cd4 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 23cd6 MOVE.L D6,-(A7)> Δ-4 {[-10-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D6']}
<Call 0x23cd8 0x238e8> {[-10-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D6']}
<POP 23cdc-23cde StackAdj> Δ+12 {[-10-]}
<MI 23cde MOVE.B (A7)+,D7> Δ+2 {[-8-]}
<MI 23ce0 CMPI.B #0x2f,D7> {[-8-]}
<MI 23ce4 BNE 0x23cea> {[-8-]}
<POP 23ce6-23cea Naked> Σ-8 Δ+8 →0x23d04
<POP 23ce6-23ce8 StackAdj> Δ+8 {}
<MI 23ce8 BRA 0x23d04> {}
<POP 23cea-23cfc Naked> Σ-8 ↓ →0x23ccc ←0x23cd0
<MI 23cea MOVE.L (A6+0x18),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x18)']}
<MI 23cee MOVE.B D7,-(A7)> Δ-2 {[-8-]|[4, '(A6+0x18)']|[2, 'D7']}
<Call 0x23cf0 0x102c0> {[-8-]|[4, '(A6+0x18)']|[2, 'D7']}
AppendChar(MOD b : String; a : char)
<POP 23cf6-23cf8 StackAdj> Δ+6 {[-8-]}
<MI 23cf8 ADDQ.L #0x1,D6> {[-8-]}
<MI 23cfa BVC 0x23ccc> {[-8-]}
<POP 23cfc-23cfe Naked> Σ-8 Δ+4 ↓ ←0x23ccc
<POP 23cfc-23cfe StackAdj> Δ+4 {[-4-]}
<POP 23cfe-23d02 Naked> Σ-4 ↓ →0x23caa ←0x23cae
<MI 23cfe ADDQ.L #0x1,D5> {[-4-]}
<MI 23d00 BVC 0x23caa> {[-4-]}
<POP 23d02-23d04 Naked> Σ-4 Δ+4 ↓ ←0x23caa
<POP 23d02-23d04 StackAdj> Δ+4 {}
<POP 23d04-23d0c Epilogue> Σ0 ←0x23c7a ←0x23ce6
@ 23d0c
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 23d0c-23d92 Body> Δ-4
<POP 23d0c-23d22 Prologue> Σ0 ↓
<POP 23d22-23d2c RegCacheLoad> Σ0 ↓
<POP 23d2c-23d3e Naked> Σ0 Δ-4 ↓
<POP 23d2c-23d2e StackAdj> Δ-4 {[-4-]}
<MI 23d2e MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']}
<MI 23d30 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x23d32 0x21cfc> {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 23d36-23d38 StackAdj> Δ+8 {[-4-]}
<MI 23d38 MOVE.L (A7)+,D5> Δ+4 {}
<MI 23d3a MOVE.L D5,-(A7)> Δ-4 {[4, 'D5']}
<MI 23d3c MOVEQ.L #0x01,D6> {[4, 'D5']}
<POP 23d3e-23d42 Naked> Σ-4 ↓ →0x23d88 ←0x23d84
<MI 23d3e CMP.L (A7),D6> {[-4-]}
<MI 23d40 BGT 0x23d88> {[-4-]}
<POP 23d42-23d58 Naked> Σ-4 ↓ →0x23d84
<POP 23d42-23d44 StackAdj> Δ-2 {[-6-]}
<MI 23d44 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-6-]|[4, '(A6+0xc)']}
<MI 23d46 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-6-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<MI 23d48 MOVE.L D6,-(A7)> Δ-4 {[-6-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D6']}
<Call 0x23d4a 0x238e8> {[-6-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D6']}
<POP 23d4e-23d50 StackAdj> Δ+12 {[-6-]}
<MI 23d50 MOVE.B (A7)+,D0> Δ+2 {[-4-]}
<MI 23d52 CMPI.B #0x2f,D0> {[-4-]}
<MI 23d56 BNE 0x23d84> {[-4-]}
<POP 23d58-23d5c Naked> Σ-4 Δ-4 ↓
<MI 23d58 MOVE.L D5,-(A7)> Δ-4 {[-4-]|[4, 'D5']}
<MI 23d5a MOVE.L D6,D7> {[-4-]|[4, 'D5']}
<POP 23d5c-23d60 Naked> Σ-8 ↓ →0x23d7e ←0x23d60
<MI 23d5c CMP.L (A7),D7> {[-8-]}
<MI 23d5e BGT 0x23d7e> {[-8-]}
<POP 23d60-23d7e Naked> Σ-8 ↓ →0x23d5c
<MI 23d60 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x10)']}
<POP 23d64-23d66 StackAdj> Δ-2 {[-8-]|[4, '(A6+0x10)']|[-2-]}
<MI 23d66 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x10)']|[-2-]|[4, '(A6+0xc)']}
<MI 23d68 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x10)']|[-2-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<MI 23d6a MOVE.L D7,-(A7)> Δ-4 {[-8-]|[4, '(A6+0x10)']|[-2-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D7']}
<Call 0x23d6c 0x238e8> {[-8-]|[4, '(A6+0x10)']|[-2-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D7']}
<POP 23d70-23d72 StackAdj> Δ+12 {[-8-]|[4, '(A6+0x10)']|[-2-]}
<Call 0x23d72 0x102c0> {[-8-]|[4, '(A6+0x10)']|[-2-]}
AppendChar(MOD b : String; a : char)
<POP 23d78-23d7a StackAdj> Δ+6 {[-8-]}
<MI 23d7a ADDQ.L #0x1,D7> {[-8-]}
<MI 23d7c BVC 0x23d5c> {[-8-]}
<POP 23d7e-23d84 Naked> Σ-8 Δ+8 →0x23d8a ←0x23d5c
<POP 23d7e-23d80 StackAdj> Δ+4 {[-4-]}
<POP 23d80-23d82 StackAdj> Δ+4 {}
<MI 23d82 BRA 0x23d8a> {}
<POP 23d84-23d88 Naked> Σ-4 ↓ →0x23d3e ←0x23d42
<MI 23d84 ADDQ.L #0x1,D6> {[-4-]}
<MI 23d86 BVC 0x23d3e> {[-4-]}
<POP 23d88-23d8a Naked> Σ-4 Δ+4 ↓ ←0x23d3e
<POP 23d88-23d8a StackAdj> Δ+4 {}
<POP 23d8a-23d92 Epilogue> Σ0 ←0x23d7e
@ 23d92
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 23d92-23e02 Body> Δ-4
<POP 23d92-23da8 Prologue> Σ0 ↓
<POP 23da8-23dc0 Naked> Σ0 Δ-4 ↓
<MI 23da8 MOVEA.L (A6+0x10),A0> {}
<MI 23dac CLR.W (A0)> {}
<POP 23dae-23db0 StackAdj> Δ-4 {[-4-]}
<MI 23db0 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']}
<MI 23db4 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x23db8 0x21cfc> {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 23dbc-23dbe StackAdj> Δ+8 {[-4-]}
<MI 23dbe MOVEQ.L #0x01,D7> {[-4-]}
<POP 23dc0-23dc4 Naked> Σ-4 ↓ →0x23df8 ←0x23df4
<MI 23dc0 CMP.L (A7),D7> {[-4-]}
<MI 23dc2 BGT 0x23df8> {[-4-]}
<POP 23dc4-23de0 Naked> Σ-4 ↓ →0x23df0
<POP 23dc4-23dc6 StackAdj> Δ-2 {[-6-]}
<MI 23dc6 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-6-]|[4, '(A6+0xc)']}
<MI 23dca MOVE.L (A6+0x8),-(A7)> Δ-4 {[-6-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<MI 23dce MOVE.L D7,-(A7)> Δ-4 {[-6-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D7']}
<Call 0x23dd0 0x238e8> {[-6-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D7']}
<POP 23dd4-23dd8 StackAdj> Δ+12 {[-6-]}
<MI 23dd8 MOVE.B (A7)+,D6> Δ+2 {[-4-]}
<MI 23dda CMPI.B #0x2f,D6> {[-4-]}
<MI 23dde BEQ 0x23df0> {[-4-]}
<POP 23de0-23df0 Naked> Σ-4 →0x23df4
<MI 23de0 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x10)']}
<MI 23de4 MOVE.B D6,-(A7)> Δ-2 {[-4-]|[4, '(A6+0x10)']|[2, 'D6']}
<Call 0x23de6 0x102c0> {[-4-]|[4, '(A6+0x10)']|[2, 'D6']}
AppendChar(MOD b : String; a : char)
<POP 23dec-23dee StackAdj> Δ+6 {[-4-]}
<MI 23dee BRA 0x23df4> {[-4-]}
<POP 23df0-23df4 Naked> Σ-4 Δ+4 →0x23dfa ←0x23dc4
<POP 23df0-23df2 StackAdj> Δ+4 {}
<MI 23df2 BRA 0x23dfa> {}
<POP 23df4-23df8 Naked> Σ-4 ↓ →0x23dc0 ←0x23de0
<MI 23df4 ADDQ.L #0x1,D7> {[-4-]}
<MI 23df6 BVC 0x23dc0> {[-4-]}
<POP 23df8-23dfa Naked> Σ-4 Δ+4 ↓ ←0x23dc0
<POP 23df8-23dfa StackAdj> Δ+4 {}
<POP 23dfa-23e02 Epilogue> Σ0 ←0x23df0
@ 23e02
<POP 23e02-23e4a Body>
<POP 23e02-23e18 Prologue> Σ0 ↓
<POP 23e18-23e42 Naked> Σ0 ↓
<Blob 0x23e18 [34] @> Δ-34 {[«34""»]}
<POP 23e24-23e26 StackAdj> Δ-4 {[«34""»]|[-4-]}
<Lit 0x23e26 34> {[«34""»]|[$$Switch exclusion is unimplemented.]}
<Call 0x23e3a 0x210ea> {[«34""»]|[$$Switch exclusion is unimplemented.]}
<POP 23e3e-23e42 StackAdj> Δ+38 {}
<POP 23e42-23e4a Epilogue> Σ0
@ 23e4a
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x006 4(rw)>
<POP 23e4a-23f84 Body>
<POP 23e4a-23e60 Prologue> Σ0 ↓
<POP 23e60-23e76 RegCacheLoad> Σ0 ↓
<POP 23e76-23e84 Naked> Σ0 ↓ →0x23e8c
<MI 23e76 MOVE.L 0x27bfc,(A6-0x6)> {}
<POP 23e7a-23e7c StackAdj> Δ-2 {[-2-]}
<Call 0x23e7c 0x21186> {[-2-]}
<MI 23e7e MOVE.B (A7)+,D7> Δ+2 {}
<MI 23e80 CMP.B #0x25,D7> {}
<MI 23e82 BNE 0x23e8c> {}
<POP 23e84-23e8c Naked> Σ0 →0x23f6c
<MI 23e84 MOVEA.L (A6+0xc),A0> {}
<MI 23e86 CLR.L (A0)> {}
<MI 23e88 BRA 0x23f6c> {}
<POP 23e8c-23e90 Naked> Σ0 ↓ →0x23e9c ←0x23e76
<MI 23e8c CMP.B #0x2d,D7> {}
<MI 23e8e BNE 0x23e9c> {}
<POP 23e90-23e9c Naked> Σ0 →0x23f6c
<MI 23e90 MOVEA.L (A6+0xc),A0> {}
<MI 23e92 MOVE.L #0x1,(A0)> {}
<MI 23e98 BRA 0x23f6c> {}
<POP 23e9c-23ea2 Naked> Σ0 ↓ →0x23eae ←0x23e8c
<MI 23e9c CMPI.B #0x2f,D7> {}
<MI 23ea0 BNE 0x23eae> {}
<POP 23ea2-23eae Naked> Σ0 →0x23f6c
<MI 23ea2 MOVEA.L (A6+0xc),A0> {}
<MI 23ea4 MOVE.L #0x4,(A0)> {}
<MI 23eaa BRA 0x23f6c> {}
<POP 23eae-23eb4 Naked> Σ0 ↓ →0x23ec0 ←0x23e9c
<MI 23eae CMPI.B #0x3d,D7> {}
<MI 23eb2 BNE 0x23ec0> {}
<POP 23eb4-23ec0 Naked> Σ0 →0x23f6c
<MI 23eb4 MOVEA.L (A6+0xc),A0> {}
<MI 23eb6 MOVE.L #0x5,(A0)> {}
<MI 23ebc BRA 0x23f6c> {}
<POP 23ec0-23ec6 Naked> Σ0 ↓ →0x23ed2 ←0x23eae
<MI 23ec0 CMPI.B #0x5c,D7> {}
<MI 23ec4 BNE 0x23ed2> {}
<POP 23ec6-23ed2 Naked> Σ0 →0x23f6c
<MI 23ec6 MOVEA.L (A6+0xc),A0> {}
<MI 23ec8 MOVE.L #0x6,(A0)> {}
<MI 23ece BRA 0x23f6c> {}
<POP 23ed2-23ed6 Naked> Σ0 ↓ →0x23f02 ←0x23ec0
<MI 23ed2 TST.B D7> {}
<MI 23ed4 BNE 0x23f02> {}
<POP 23ed6-23f02 Naked> Σ0 →0x23f6c
<Blob 0x23ed6 [24] @> Δ-24 {[«24""»]}
<POP 23ee2-23ee4 StackAdj> Δ-4 {[«24""»]|[-4-]}
<Lit 0x23ee4 24> {[«24""»]|[$$Illegal argument marker.]}
<Call 0x23ef8 0x210ea> {[«24""»]|[$$Illegal argument marker.]}
<POP 23efc-23f00 StackAdj> Δ+28 {}
<MI 23f00 BRA 0x23f6c> {}
<POP 23f02-23f06 Naked> Σ0 ↓ →0x23f32 ←0x23ed2
<MI 23f02 CMP.B #0x30,D7> {}
<MI 23f04 BCS 0x23f32> {}
<POP 23f06-23f0a Naked> Σ0 ↓ →0x23f32
<MI 23f06 CMP.B #0x39,D7> {}
<MI 23f08 BHI 0x23f32> {}
<POP 23f0a-23f12 Naked> Σ0 ↓
<MI 23f0a MOVEA.L (A6+0xc),A0> {}
<MI 23f0c MOVE.L #0x2,(A0)> {}
<POP 23f12-23f1e Naked> Σ0 ↓ →0x23f28 ←0x23f2c
<POP 23f12-23f14 StackAdj> Δ-2 {[-2-]}
<Call 0x23f14 0x21148> {[-2-]}
<MI 23f18 MOVE.B (A7)+,D7> Δ+2 {}
<MI 23f1a CMP.B #0x30,D7> {}
<MI 23f1c BCS 0x23f28> {}
<POP 23f1e-23f22 Naked> Σ0 ↓ →0x23f28
<MI 23f1e CMP.B #0x39,D7> {}
<MI 23f20 BHI 0x23f28> {}
<POP 23f22-23f28 Naked> Σ0 ↓
<POP 23f22-23f24 StackAdj> Δ-2 {[-2-]}
<Call 0x23f24 0x21186> {[-2-]}
<MI 23f26 MOVE.B (A7)+,D6> Δ+2 {}
<POP 23f28-23f2c Naked> Σ0 ↓ →0x23f30 ←0x23f12 ←0x23f1e
<MI 23f28 CMP.B #0x30,D7> {}
<MI 23f2a BCS 0x23f30> {}
<POP 23f2c-23f30 Naked> Σ0 ↓ →0x23f12
<MI 23f2c CMP.B #0x39,D7> {}
<MI 23f2e BLS 0x23f12> {}
<POP 23f30-23f32 Naked> Σ0 →0x23f6c ←0x23f28
<MI 23f30 BRA 0x23f6c> {}
<POP 23f32-23f3c Naked> Σ0 ↓ ←0x23f02 ←0x23f06
<MI 23f32 MOVEA.L (A6+0xc),A0> {}
<MI 23f34 MOVE.L #0x3,(A0)> {}
<MI 23f3a MOVEQ.L #0x00,D5> {}
<POP 23f3c-23f48 Naked> Σ0 ↓ →0x23f5e ←0x23f68
<POP 23f3c-23f3e StackAdj> Δ-2 {[-2-]}
<Call 0x23f3e 0x21148> {[-2-]}
<MI 23f42 MOVE.B (A7)+,D7> Δ+2 {}
<MI 23f44 CMP.B #0x25,D7> {}
<MI 23f46 BEQ 0x23f5e> {}
<POP 23f48-23f4c Naked> Σ0 ↓ →0x23f5e
<MI 23f48 CMP.B #0x2d,D7> {}
<MI 23f4a BEQ 0x23f5e> {}
<POP 23f4c-23f52 Naked> Σ0 ↓ →0x23f5e
<MI 23f4c CMPI.B #0x2f,D7> {}
<MI 23f50 BEQ 0x23f5e> {}
<POP 23f52-23f58 Naked> Σ0 ↓ →0x23f5e
<MI 23f52 CMPI.B #0x3d,D7> {}
<MI 23f56 BEQ 0x23f5e> {}
<POP 23f58-23f5e Naked> Σ0 ↓ →0x23f62
<MI 23f58 CMPI.B #0x5c,D7> {}
<MI 23f5c BNE 0x23f62> {}
<POP 23f5e-23f62 Naked> Σ0 →0x23f68 ←0x23f3c ←0x23f48 ←0x23f4c ←0x23f52
<MI 23f5e MOVEQ.L #0x01,D5> {}
<MI 23f60 BRA 0x23f68> {}
<POP 23f62-23f68 Naked> Σ0 ↓ ←0x23f58
<POP 23f62-23f64 StackAdj> Δ-2 {[-2-]}
<Call 0x23f64 0x21186> {[-2-]}
<MI 23f66 MOVE.B (A7)+,D6> Δ+2 {}
<POP 23f68-23f6c Naked> Σ0 ↓ →0x23f3c ←0x23f5e
<MI 23f68 TST.B D5> {}
<MI 23f6a BEQ 0x23f3c> {}
<POP 23f6c-23f7c Naked> Σ0 ↓ ←0x23e84 ←0x23e90 ←0x23ea2 ←0x23eb4 ←0x23ec6 ←0x23ed6 ←0x23f30
<MI 23f6c MOVEA.L (A6+0x8),A0> {}
<MI 23f70 MOVE.L (A6-0x6),(A0)> {}
<MI 23f74 MOVE.L 0x27bfc,(A0+0x4)> {}
<MI 23f78 SUBQ.L #0x1,(A0+0x4)> {}
<POP 23f7c-23f84 Epilogue> Σ0
@ 23f84
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 23f84-2400a Body>
<POP 23f84-23f9a Prologue> Σ0 ↓
<POP 23f9a-23f9e RegCacheLoad> Σ0 ↓
<POP 23f9e-23fb8 Naked> Σ0 Δ-4 ↓ →0x23fc4
<MI 23f9e MOVEA.L (A6+0x8),A0> {}
<MI 23fa2 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 23fa4 MOVE.L 0x27bfc,D6> {[4, 'A0']}
<MI 23faa SUB.L (A6+0xc),D6> {[4, 'A0']}
<MI 23fac MOVE.L (A6+0xc),D5> {[4, 'A0']}
<MI 23fae ADD.L D6,D5> {[4, 'A0']}
<MI 23fb0 MOVE.W (A0),D0> {[4, 'A0']}
<MI 23fb2 EXTW.L D0> {[4, 'A0']}
<MI 23fb4 CMP.L D6,D0> {[4, 'A0']}
<MI 23fb6 BEQ 0x23fc4> {[4, 'A0']}
<POP 23fb8-23fc4 Naked> Σ-4 ↓
<MI 23fb8 MOVE.L D5,-(A7)> Δ-4 {[-4-]|[4, 'D5']}
<MI 23fba MOVE.L D6,-(A7)> Δ-4 {[-4-]|[4, 'D5']|[4, 'D6']}
<MI 23fbc SUB.L D0,(A7)> {[-4-]|[4, 'D5']|[-4-]}
<Call 0x23fbe 0x2163e> {[-4-]|[4, 'D5']|[-4-]}
<POP 23fc2-23fc4 StackAdj> Δ+8 {[-4-]}
<POP 23fc4-23fc8 Naked> Σ-4 Δ-4 ↓ ←0x23f9e
<MI 23fc4 MOVE.L D0,-(A7)> Δ-4 {[-4-]|[4, 'D0']}
<MI 23fc6 MOVEQ.L #0x01,D7> {[-4-]|[4, 'D0']}
<POP 23fc8-23fcc Naked> Σ-8 ↓ →0x24000 ←0x23fcc
<MI 23fc8 CMP.L (A7),D7> {[-8-]}
<MI 23fca BGT 0x24000> {[-8-]}
<POP 23fcc-24000 Naked> Σ-8 ↓ →0x23fc8
<MI 23fcc MOVE.L (A6+0xc),D0> {[-8-]}
<MI 23fce ADD.L D7,D0> {[-8-]}
<MI 23fd0 SUBQ.L #0x1,D0> {[-8-]}
<MI 23fd2 SUBQ.L #0x1,D0> {[-8-]}
<POP 0x23fd4 LimitCheck 0x0 ≤ D0 ≤ 0xfff> {[-8-]}
<MI 23fde LEA.L 0x26bf4,A0> {[-8-]}
<MI 23fe4 MOVE.L D7,D1> {[-8-]}
<MI 23fe6 SUBQ.L #0x1,D1> {[-8-]}
<POP 0x23fe8 LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-8-]}
<MI 23ff2 MOVEA.L (A7+0x4),A1> {[-8-]}
<MI 23ff6 MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x8)> {[-8-]}
<MI 23ffc ADDQ.L #0x1,D7> {[-8-]}
<MI 23ffe BVC 0x23fc8> {[-8-]}
<POP 24000-24002 Naked> Σ-8 Δ+8 ↓ ←0x23fc8
<POP 24000-24002 StackAdj> Δ+8 {}
<POP 24002-2400a Epilogue> Σ0
@ 2400a
<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 2400a-24252 Body> Δ+56
<POP 2400a-24020 Prologue> Σ0 ↓
<POP 24020-24032 RegCacheLoad> Σ0 ↓
<POP 24032-24056 Naked> Σ0 ↓
<MI 24032 MOVE.L 0x27bfc,(A6-0x28)> {}
<Pointer.fp 0x2403a <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-8]}
<Call 0x2403c 0x102b8> {[@@-8]}
NewString(VAR a : String)
<POP 24042-24044 StackAdj> Δ+4 {}
<Pointer.fp 0x24044 <LVAR -0x00c @ 4(r)>> Δ-4 {[@@-12]}
<Pointer.fp 0x24048 <LVAR -0x014 @ 4(r)>> Δ-4 {[@@-12]|[@@-20]}
<Call 0x2404a 0x23e4a> {[@@-12]|[@@-20]}
<POP 2404e-24050 StackAdj> Δ+8 {}
<MI 24050 CLR.L (A6-0x34)> {}
<MI 24054 MOVEQ.L #0x00,D7> {}
<POP 24056-2406a Naked> Σ0 →0x24094 →0x2409e →0x240b2 →0x240ce →0x240d2 →0x240e0 →0x240f4 →0x240fa →0x240fc →0x24112 →0x24120 →0x24138 →0x2414c →0x24160 →0x24176 →0x24178 →0x24192 →0x241a8 →0x241b6 →0x241b8 →0x241ba ←0x2422e
<MI 24056 MOVE.L (A6-0x34),D0> {}
<POP 0x2405a LimitCheck 0x0 ≤ D0 ≤ 0x14> {}
<MI 24060 ADD.W D0,D0> {}
<MI 24062 SWITCH D0.W> {}
<POP 24094-2409e Naked> Σ0 →0x241e4 ←0x24056
<MI 24094 MOVEQ.L #0x00,D6> {}
<MI 24096 MOVE.L (A6+0x8),D5> {}
<MI 2409a BRA 0x241e4> {}
<POP 2409e-240b2 Naked> Σ0 →0x241e4 ←0x24056
<POP 2409e-240a0 StackAdj> Δ-4 {[-4-]}
<MI 240a0 MOVE.L (A6-0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x10)']}
<MI 240a4 MOVE.L (A6-0x14),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<Call 0x240a6 0x23928> {[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<POP 240aa-240ac StackAdj> Δ+8 {[-4-]}
<MI 240ac MOVE.L (A7)+,D6> Δ+4 {}
<MI 240ae BRA 0x241e4> {}
<POP 240b2-240ba Naked> Σ0 Δ-12 ↓ ←0x24056
<MI 240b2 MOVE.L (A6-0x28),-(A7)> Δ-4 {[4, '(A6-0x28)']}
<MI 240b6 MOVE.L D6,-(A7)> Δ-4 {[4, '(A6-0x28)']|[4, 'D6']}
<MI 240b8 MOVE.L D6,-(A7)> Δ-4 {[4, '(A6-0x28)']|[4, 'D6']|[4, 'D6']}
<POP 240ba-240ca Naked> Σ-12 Δ+12 →0x24240 ←0x240d2
<MI 240ba MOVE.L (A6+0xc),-(A7)> Δ-4 {[-12-]|[4, '(A6+0xc)']}
<Call 0x240be 0x239a4> {[-12-]|[4, '(A6+0xc)']}
<POP 240c2-240c6 StackAdj> Δ+16 {}
<MI 240c6 BRA 0x24240> {}
<POP 240ce-240d2 Naked> Σ0 →0x241e4 ←0x24056
<MI 240ce BRA 0x241e4> {}
<POP 240d2-240dc Naked> Σ0 Δ-12 →0x240ba ←0x24056
<MI 240d2 MOVE.L (A6-0x28),-(A7)> Δ-4 {[4, '(A6-0x28)']}
<MI 240d6 MOVE.L D6,-(A7)> Δ-4 {[4, '(A6-0x28)']|[4, 'D6']}
<MI 240d8 MOVE.L D5,-(A7)> Δ-4 {[4, '(A6-0x28)']|[4, 'D6']|[4, 'D5']}
<MI 240da BRA 0x240ba> {[4, '(A6-0x28)']|[4, 'D6']|[4, 'D5']}
<POP 240e0-240f4 Naked> Σ0 →0x241e4 ←0x24056 ←0x240fa
<POP 240e0-240e2 StackAdj> Δ-4 {[-4-]}
<MI 240e2 MOVE.L (A6-0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x10)']}
<MI 240e6 MOVE.L (A6-0x14),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<Call 0x240e8 0x23928> {[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<POP 240ec-240ee StackAdj> Δ+8 {[-4-]}
<MI 240ee MOVE.L (A7)+,D5> Δ+4 {}
<MI 240f0 BRA 0x241e4> {}
<POP 240f4-240fa Naked> Σ0 →0x241e4 ←0x24056
<MI 240f4 MOVEQ.L #0x01,D6> {}
<MI 240f6 BRA 0x241e4> {}
<POP 240fa-240fc Naked> Σ0 →0x240e0 ←0x24056
<MI 240fa BRA 0x240e0> {}
<POP 240fc-24112 Naked> Σ0 →0x241e4 ←0x24056
<POP 240fc-240fe StackAdj> Δ-8 {[-8-]}
<MI 240fe MOVE.L (A6+0xc),-(A7)> Δ-4 {[-8-]|[4, '(A6+0xc)']}
<MI 24102 MOVE.L D6,-(A7)> Δ-4 {[-8-]|[4, '(A6+0xc)']|[4, 'D6']}
<Call 0x24104 0x21d34> {[-8-]|[4, '(A6+0xc)']|[4, 'D6']}
<POP 24108-2410a StackAdj> Δ+8 {[-8-]}
<MI 2410a MOVE.L (A7)+,(A6-0x24)> Δ+4 {[-4-]}
<MI 2410c MOVE.L (A7)+,(A6-0x20)> Δ+4 {}
<MI 2410e BRA 0x241e4> {}
<POP 24112-24120 Naked> Σ0 →0x241e4 ←0x24056
<MI 24112 MOVE.L (A6-0x14),(A6-0x1c)> {}
<MI 24116 MOVE.L (A6-0x10),(A6-0x18)> {}
<MI 2411c BRA 0x241e4> {}
<POP 24120-24132 Naked> Σ0 Δ-20 ↓ ←0x24056
<MI 24120 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<MI 24122 MOVE.L (A6-0x20),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']}
<MI 24124 MOVE.L (A6-0x24),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']}
<MI 24126 MOVE.L (A6-0x18),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']}
<MI 2412a MOVE.L (A6-0x1c),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<Call 0x2412e 0x23c56> {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<POP 24132-24138 Naked> Σ-20 Δ+20 →0x241e4 ←0x24138
<POP 24132-24134 StackAdj> Δ+20 {}
<MI 24134 BRA 0x241e4> {}
<POP 24138-2414c Naked> Σ0 Δ-20 →0x24132 ←0x24056
<MI 24138 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<MI 2413a MOVE.L (A6-0x20),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']}
<MI 2413c MOVE.L (A6-0x24),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']}
<MI 2413e MOVE.L (A6-0x18),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']}
<MI 24142 MOVE.L (A6-0x1c),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<Call 0x24146 0x23bc2> {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<MI 2414a BRA 0x24132> {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<POP 2414c-24156 Naked> Σ0 Δ-12 ↓ ←0x24056
<MI 2414c MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<MI 2414e MOVE.L (A6-0x20),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']}
<MI 24150 MOVE.L (A6-0x24),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']}
<Call 0x24152 0x23d0c> {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']}
<POP 24156-2415a Naked> Σ-12 Δ+12 ↓ ←0x24192
<POP 24156-2415a StackAdj> Δ+12 {}
<POP 2415a-24160 Naked> Σ0 →0x241e4 ←0x24160 ←0x24176 ←0x241b8
<MI 2415a MOVEQ.L #0x01,D7> {}
<MI 2415c BRA 0x241e4> {}
<POP 24160-24176 Naked> Σ0 →0x2415a ←0x24056
<MI 24160 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<MI 24162 MOVE.L (A6-0x20),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']}
<MI 24164 MOVE.L (A6-0x24),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']}
<MI 24166 MOVE.L (A6-0x18),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']}
<MI 2416a MOVE.L (A6-0x1c),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<Call 0x2416e 0x23bc2> {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<POP 24172-24174 StackAdj> Δ+20 {}
<MI 24174 BRA 0x2415a> {}
<POP 24176-24178 Naked> Σ0 →0x2415a ←0x24056
<MI 24176 BRA 0x2415a> {}
<POP 24178-2418c Naked> Σ0 Δ-12 ↓ ←0x24056
<MI 24178 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<POP 2417a-2417c StackAdj> Δ-8 {[4, '(A6-0x8)']|[-8-]}
<MI 2417c MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6-0x8)']|[-8-]|[4, '(A6+0xc)']}
<MI 24180 MOVE.L D6,-(A7)> Δ-4 {[4, '(A6-0x8)']|[-8-]|[4, '(A6+0xc)']|[4, 'D6']}
<Call 0x24182 0x21d34> {[4, '(A6-0x8)']|[-8-]|[4, '(A6+0xc)']|[4, 'D6']}
<POP 24186-24188 StackAdj> Δ+8 {[4, '(A6-0x8)']|[-8-]}
<Call 0x24188 0x23d0c> {[4, '(A6-0x8)']|[-8-]}
<POP 2418c-24192 Naked> Σ-12 Δ+12 →0x241e4 ←0x241a8
<POP 2418c-24190 StackAdj> Δ+12 {}
<MI 24190 BRA 0x241e4> {}
<POP 24192-241a8 Naked> Σ0 Δ-12 →0x24156 ←0x24056
<MI 24192 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<POP 24194-24196 StackAdj> Δ-8 {[4, '(A6-0x8)']|[-8-]}
<MI 24196 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6-0x8)']|[-8-]|[4, '(A6+0xc)']}
<MI 2419a MOVE.L D6,-(A7)> Δ-4 {[4, '(A6-0x8)']|[-8-]|[4, '(A6+0xc)']|[4, 'D6']}
<Call 0x2419c 0x21d34> {[4, '(A6-0x8)']|[-8-]|[4, '(A6+0xc)']|[4, 'D6']}
<POP 241a0-241a2 StackAdj> Δ+8 {[4, '(A6-0x8)']|[-8-]}
<Call 0x241a2 0x23d92> {[4, '(A6-0x8)']|[-8-]}
<MI 241a6 BRA 0x24156> {[4, '(A6-0x8)']|[-8-]}
<POP 241a8-241b6 Naked> Σ0 Δ-12 →0x2418c ←0x24056
<MI 241a8 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<MI 241aa MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x10)']}
<MI 241ae MOVE.L (A6-0x14),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<Call 0x241b0 0x23e02> {[4, '(A6-0x8)']|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<MI 241b4 BRA 0x2418c> {[4, '(A6-0x8)']|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<POP 241b6-241b8 Naked> Σ0 →0x241e4 ←0x24056
<MI 241b6 BRA 0x241e4> {}
<POP 241b8-241ba Naked> Σ0 →0x2415a ←0x24056
<MI 241b8 BRA 0x2415a> {}
<POP 241ba-241e4 Naked> Σ0 ↓ ←0x24056
<Blob 0x241ba [24] @> Δ-24 {[«24""»]}
<POP 241c6-241c8 StackAdj> Δ-4 {[«24""»]|[-4-]}
<Lit 0x241c8 24> {[«24""»]|[$$Illegal argument marker.]}
<Call 0x241dc 0x210ea> {[«24""»]|[$$Illegal argument marker.]}
<POP 241e0-241e4 StackAdj> Δ+28 {}
<POP 241e4-241e8 Naked> Σ0 ↓ →0x2422e ←0x24094 ←0x2409e ←0x240ce ←0x240e0 ←0x240f4 ←0x240fc ←0x24112 ←0x24132 ←0x2415a ←0x2418c ←0x241b6
<MI 241e4 TST.B D7> {}
<MI 241e6 BNE 0x2422e> {}
<POP 241e8-2422e Naked> Σ0 ↓
<Pointer.fp 0x241e8 <LVAR -0x00c @ 4(r)>> Δ-4 {[@@-12]}
<Pointer.fp 0x241ec <LVAR -0x014 @ 4(r)>> Δ-4 {[@@-12]|[@@-20]}
<Call 0x241ee 0x23e4a> {[@@-12]|[@@-20]}
<POP 241f2-241f4 StackAdj> Δ+8 {}
<MI 241f4 MOVE.L (A6-0x34),D0> {}
<POP 0x241f8 LimitCheck 0x0 ≤ D0 ≤ 0x13> {}
<MI 24202 MOVE.L D0,D4> {}
<MI 24204 MOVEQ.L #0x07,D3> {}
<Call 0x24206 0x1028c> {}
?muls_d3_d4
<MI 2420c LEA.L 0x2101c,A0> {}
<MI 24210 MOVE.L (A6-0xc),D0> {}
<POP 0x24214 LimitCheck 0x0 ≤ D0 ≤ 0x6> {}
<MI 2421e LEA.L (A0+D4.L),A0> {}
<MI 24222 MOVE.B (A0+D0.L),D1> {}
<MI 24226 EXTB.W D1> {}
<MI 24228 EXTW.L D1> {}
<MI 2422a MOVE.L D1,(A6-0x34)> {}
<POP 2422e-24234 Naked> Σ0 ↓ →0x24056 ←0x241e4
<MI 2422e TST.B D7> {}
<MI 24230 BEQ 0x24056> {}
<POP 24234-24240 Naked> Σ0 ↓
<MI 24234 MOVE.L (A6-0x28),-(A7)> Δ-4 {[4, '(A6-0x28)']}
<MI 24238 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x28)']|[4, '(A6-0x8)']}
<Call 0x2423a 0x23f84> {[4, '(A6-0x28)']|[4, '(A6-0x8)']}
<POP 2423e-24240 StackAdj> Δ+8 {}
<POP 24240-2424a Naked> Σ0 ↓ ←0x240ba
<Pointer.fp 0x24240 <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-8]}
<Call 0x24242 0x102bc> {[@@-8]}
FreeString(VAR a : String)
<POP 24248-2424a StackAdj> Δ+4 {}
<POP 2424a-24252 Epilogue> Σ0
@ 24252
<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 24252-2434a Body> Δ-12
<POP 24252-24268 Prologue> Σ0 ↓
<POP 24268-2427a RegCacheLoad> Σ0 ↓
<POP 2427a-242a2 Naked> Σ0 Δ-4 ↓
<MI 2427a CLR.L (A6+0x14)> {}
<POP 2427e-24280 StackAdj> Δ-4 {[-4-]}
<MI 24280 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x10)']}
<MI 24282 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<Call 0x24284 0x21cfc> {[-4-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<POP 24288-2428a StackAdj> Δ+8 {[-4-]}
<MI 2428a MOVE.L (A7)+,(A6-0xc)> Δ+4 {}
<MI 2428c MOVEA.L (A6+0x8),A0> {}
<MI 24290 MOVE.W (A0),D0> {}
<MI 24292 EXTW.L D0> {}
<MI 24294 ADDQ.L #0x1,D0> {}
<MI 24296 MOVE.L D0,(A6-0x8)> {}
<MI 24298 NEG.L D0> {}
<MI 2429a ADD.L (A6-0xc),D0> {}
<MI 2429c ADDQ.L #0x1,D0> {}
<MI 2429e MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 242a0 MOVEQ.L #0x01,D0> {[4, 'D0']}
<POP 242a2-242a8 Naked> Σ-4 ↓ →0x24340 ←0x24338
<MI 242a2 CMP.L (A7),D0> {[-4-]}
<MI 242a4 BGT 0x24340> {[-4-]}
<POP 242a8-242b4 Naked> Σ-4 Δ-8 ↓
<MI 242a8 MOVE.L D0,(A6-0x18)> {[-4-]}
<MI 242ac MOVE.L D0,-(A7)> Δ-4 {[-4-]|[4, 'D0']}
<MI 242ae MOVEQ.L #0x00,D6> {[-4-]|[4, 'D0']}
<MI 242b0 MOVE.L (A6-0x8),-(A7)> Δ-4 {[-4-]|[4, 'D0']|[4, '(A6-0x8)']}
<MI 242b2 MOVEQ.L #0x01,D5> {[-4-]|[4, 'D0']|[4, '(A6-0x8)']}
<POP 242b4-242b8 Naked> Σ-12 ↓ →0x24300 ←0x242fa
<MI 242b4 CMP.L (A7),D5> {[-12-]}
<MI 242b6 BGT 0x24300> {[-12-]}
<POP 242b8-242c0 Naked> Σ-12 ↓ →0x242c4
<MI 242b8 CMPI.L #0x00000001,D5> {[-12-]}
<MI 242be BNE 0x242c4> {[-12-]}
<POP 242c0-242c4 Naked> Σ-12 →0x242dc
<MI 242c0 MOVEQ.L #0x2f,D7> {[-12-]}
<MI 242c2 BRA 0x242dc> {[-12-]}
<POP 242c4-242dc Naked> Σ-12 ↓ ←0x242b8
<MI 242c4 MOVEA.L (A6+0x8),A0> {[-12-]}
<MI 242c8 MOVE.L D5,D0> {[-12-]}
<MI 242ca SUBQ.L #0x1,D0> {[-12-]}
<MI 242cc SUBQ.L #0x1,D0> {[-12-]}
<POP 0x242ce LimitCheck 0x0 ≤ D0 ≤ 0x7d> {[-12-]}
<MI 242d8 MOVE.B (A0+D0.L+#0x2),D7> {[-12-]}
<POP 242dc-242f6 Naked> Σ-12 ↓ →0x242fa ←0x242c0
<POP 242dc-242de StackAdj> Δ-2 {[-14-]}
<MI 242de MOVE.L (A6+0x10),-(A7)> Δ-4 {[-14-]|[4, '(A6+0x10)']}
<MI 242e0 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-14-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<MI 242e2 MOVE.L (A7+0xe),D0> {[-14-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<MI 242e6 ADD.L D5,D0> {[-14-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<MI 242e8 SUBQ.L #0x1,D0> {[-14-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<MI 242ea MOVE.L D0,-(A7)> Δ-4 {[-14-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, 'D0']}
<Call 0x242ec 0x238e8> {[-14-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, 'D0']}
<POP 242f0-242f2 StackAdj> Δ+12 {[-14-]}
<MI 242f2 CMP.B (A7)+,D7> Δ+2 {[-12-]}
<MI 242f4 BEQ 0x242fa> {[-12-]}
<POP 242f6-242fa Naked> Σ-12 Δ+4 →0x24302
<POP 242f6-242f8 StackAdj> Δ+4 {[-8-]}
<MI 242f8 BRA 0x24302> {[-8-]}
<POP 242fa-24300 Naked> Σ-12 ↓ →0x242b4 ←0x242dc
<MI 242fa MOVE.L D5,D6> {[-12-]}
<MI 242fc ADDQ.L #0x1,D5> {[-12-]}
<MI 242fe BVC 0x242b4> {[-12-]}
<POP 24300-24302 Naked> Σ-12 Δ+4 ↓ ←0x242b4
<POP 24300-24302 StackAdj> Δ+4 {[-8-]}
<POP 24302-24306 Naked> Σ-8 ↓ →0x24338 ←0x242f6
<MI 24302 CMP.L (A6-0x8),D6> {[-8-]}
<MI 24304 BNE 0x24338> {[-8-]}
<POP 24306-24310 Naked> Σ-8 ↓ →0x24336
<MI 24306 MOVE.L (A7),D0> {[-8-]}
<MI 24308 MOVE.L D0,D1> {[-8-]}
<MI 2430a ADD.L (A6-0x8),D1> {[-8-]}
<MI 2430c CMP.L (A6-0xc),D1> {[-8-]}
<MI 2430e BGE 0x24336> {[-8-]}
<POP 24310-24326 Naked> Σ-8 ↓ →0x2432c
<POP 24310-24312 StackAdj> Δ-2 {[-10-]}
<MI 24312 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x10)']}
<MI 24314 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<MI 24316 MOVE.L D1,-(A7)> Δ-4 {[-10-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, 'D1']}
<Call 0x24318 0x238e8> {[-10-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, 'D1']}
<POP 2431c-2431e StackAdj> Δ+12 {[-10-]}
<MI 2431e MOVE.B (A7)+,D7> Δ+2 {[-8-]}
<MI 24320 CMPI.B #0x2f,D7> {[-8-]}
<MI 24324 BEQ 0x2432c> {[-8-]}
<POP 24326-2432c Naked> Σ-8 ↓ →0x24334
<MI 24326 CMPI.B #0x3d,D7> {[-8-]}
<MI 2432a BNE 0x24334> {[-8-]}
<POP 2432c-24334 Naked> Σ-8 Δ+8 →0x24342 ←0x24310 ←0x24336
<MI 2432c MOVE.L D0,(A6+0x14)> {[-8-]}
<POP 24330-24332 StackAdj> Δ+8 {}
<MI 24332 BRA 0x24342> {}
<POP 24334-24336 Naked> Σ-8 →0x24338 ←0x24326
<MI 24334 BRA 0x24338> {[-8-]}
<POP 24336-24338 Naked> Σ-8 →0x2432c ←0x24306
<MI 24336 BRA 0x2432c> {[-8-]}
<POP 24338-24340 Naked> Σ-8 Δ+4 ↓ →0x242a2 ←0x24302 ←0x24334
<MI 24338 MOVE.L (A7)+,D0> Δ+4 {[-4-]}
<MI 2433a ADDQ.L #0x1,D0> {[-4-]}
<MI 2433c BVC 0x242a2> {[-4-]}
<POP 24340-24342 Naked> Σ-4 Δ+4 ↓ ←0x242a2
<POP 24340-24342 StackAdj> Δ+4 {}
<POP 24342-2434a Epilogue> Σ0 ←0x2432c
@ 2434a
<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 2434a-24432 Body> Δ-12
<POP 2434a-24360 Prologue> Σ0 ↓
<POP 24360-24370 RegCacheLoad> Σ0 ↓
<POP 24370-24396 Naked> Σ0 ↓ →0x2442a
<MI 24370 MOVEA.L (A6+0x8),A0> {}
<MI 24374 CLR.B (A0)> {}
<MI 24376 MOVEA.L (A6+0xc),A1> {}
<MI 2437a MOVE.L #0x01,(A1)> {}
<POP 2437c-2437e StackAdj> Δ-8 {[-8-]}
<MI 2437e MOVE.L (A6+0x18),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x18)']}
<MI 24382 MOVE.L (A6+0x14),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x18)']|[4, '(A6+0x14)']}
<Call 0x24386 0x21d34> {[-8-]|[4, '(A6+0x18)']|[4, '(A6+0x14)']}
<POP 2438a-2438c StackAdj> Δ+8 {[-8-]}
<MI 2438c MOVE.L (A7)+,(A6-0x1c)> Δ+4 {[-4-]}
<MI 2438e MOVE.L (A7)+,(A6-0x18)> Δ+4 {}
<MI 24390 TST.L (A6-0x1c)> {}
<MI 24392 BEQ 0x2442a> {}
<POP 24396-243ac Naked> Σ0 ↓ →0x2442a
<POP 24396-24398 StackAdj> Δ-4 {[-4-]}
<MI 24398 MOVE.L (A6-0x18),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x18)']}
<MI 2439a MOVE.L (A6-0x1c),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<MI 2439c MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, '(A6+0x10)']}
<Call 0x243a0 0x24252> {[-4-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, '(A6+0x10)']}
<POP 243a4-243a6 StackAdj> Δ+12 {[-4-]}
<MI 243a6 MOVE.L (A7)+,(A6-0x14)> Δ+4 {}
<MI 243aa BEQ 0x2442a> {}
<POP 243ac-243cc Naked> Σ0 Δ-4 ↓
<MI 243ac MOVE.B #0x01,(A0)> {}
<MI 243ae PEA.L (A1)> Δ-4 {[4, '^(A1)']}
<Call 0x243b0 0x102b8> {[4, '^(A1)']}
NewString(VAR a : String)
<MI 243b6 MOVE.L (A6-0x18),-(A7)> Δ-4 {[4, '^(A1)']|[4, '(A6-0x18)']}
<MI 243b8 MOVE.L (A6-0x1c),-(A7)> Δ-4 {[4, '^(A1)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<Call 0x243ba 0x21cfc> {[4, '^(A1)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<POP 243be-243c0 StackAdj> Δ+8 {[4, '^(A1)']}
<MI 243c0 MOVE.L (A7)+,(A6-0x8)> Δ+4 {}
<MI 243c2 MOVE.L (A6-0x14),D0> {}
<MI 243c6 ADDQ.L #0x1,D0> {}
<MI 243c8 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<MI 243ca MOVE.L D0,D5> {[4, '(A6-0x8)']}
<POP 243cc-243d0 Naked> Σ-4 ↓ →0x24428 ←0x24424
<MI 243cc CMP.L (A7),D5> {[-4-]}
<MI 243ce BGT 0x24428> {[-4-]}
<POP 243d0-243e6 Naked> Σ-4 ↓ →0x24424
<POP 243d0-243d2 StackAdj> Δ-2 {[-6-]}
<MI 243d2 MOVE.L (A6-0x18),-(A7)> Δ-4 {[-6-]|[4, '(A6-0x18)']}
<MI 243d4 MOVE.L (A6-0x1c),-(A7)> Δ-4 {[-6-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<MI 243d6 MOVE.L D5,-(A7)> Δ-4 {[-6-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, 'D5']}
<Call 0x243d8 0x238e8> {[-6-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, 'D5']}
<POP 243dc-243de StackAdj> Δ+12 {[-6-]}
<MI 243de MOVE.B (A7)+,D0> Δ+2 {[-4-]}
<MI 243e0 CMPI.B #0x3d,D0> {[-4-]}
<MI 243e4 BNE 0x24424> {[-4-]}
<POP 243e6-243ee Naked> Σ-4 Δ-4 ↓
<MI 243e6 MOVE.L D5,D0> {[-4-]}
<MI 243e8 ADDQ.L #0x1,D0> {[-4-]}
<MI 243ea MOVE.L (A6-0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x8)']}
<MI 243ec MOVE.L D0,D7> {[-4-]|[4, '(A6-0x8)']}
<POP 243ee-243f2 Naked> Σ-8 ↓ →0x24420 ←0x2440c
<MI 243ee CMP.L (A7),D7> {[-8-]}
<MI 243f0 BGT 0x24420> {[-8-]}
<POP 243f2-24408 Naked> Σ-8 ↓ →0x2440c
<POP 243f2-243f4 StackAdj> Δ-2 {[-10-]}
<MI 243f4 MOVE.L (A6-0x18),-(A7)> Δ-4 {[-10-]|[4, '(A6-0x18)']}
<MI 243f6 MOVE.L (A6-0x1c),-(A7)> Δ-4 {[-10-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<MI 243f8 MOVE.L D7,-(A7)> Δ-4 {[-10-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, 'D7']}
<Call 0x243fa 0x238e8> {[-10-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, 'D7']}
<POP 243fe-24400 StackAdj> Δ+12 {[-10-]}
<MI 24400 MOVE.B (A7)+,D6> Δ+2 {[-8-]}
<MI 24402 CMPI.B #0x2f,D6> {[-8-]}
<MI 24406 BNE 0x2440c> {[-8-]}
<POP 24408-2440c Naked> Σ-8 Δ+8 →0x2442a
<POP 24408-2440a StackAdj> Δ+8 {}
<MI 2440a BRA 0x2442a> {}
<POP 2440c-24420 Naked> Σ-8 ↓ →0x243ee ←0x243f2
<MI 2440c MOVEA.L (A6+0xc),A0> {[-8-]}
<MI 24410 MOVE.L (A0),-(A7)> Δ-4 {[-8-]|[4, '(A0)']}
<MI 24412 MOVE.B D6,-(A7)> Δ-2 {[-8-]|[4, '(A0)']|[2, 'D6']}
<Call 0x24414 0x102c0> {[-8-]|[4, '(A0)']|[2, 'D6']}
AppendChar(MOD b : String; a : char)
<POP 2441a-2441c StackAdj> Δ+6 {[-8-]}
<MI 2441c ADDQ.L #0x1,D7> {[-8-]}
<MI 2441e BVC 0x243ee> {[-8-]}
<POP 24420-24424 Naked> Σ-8 Δ+8 →0x2442a ←0x243ee
<POP 24420-24422 StackAdj> Δ+8 {}
<MI 24422 BRA 0x2442a> {}
<POP 24424-24428 Naked> Σ-4 ↓ →0x243cc ←0x243d0
<MI 24424 ADDQ.L #0x1,D5> {[-4-]}
<MI 24426 BVC 0x243cc> {[-4-]}
<POP 24428-2442a Naked> Σ-4 Δ+4 ↓ ←0x243cc
<POP 24428-2442a StackAdj> Δ+4 {}
<POP 2442a-24432 Epilogue> Σ0 ←0x24370 ←0x24396 ←0x24408 ←0x24420
@ 24432
<LVAR 0x00c @ 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x010 @ 1(r)>
<POP 24432-244d0 Body>
<POP 24432-24448 Prologue> Σ0 ↓
<POP 24448-24456 RegCacheLoad> Σ0 ↓
<POP 24456-2446e Naked> Σ0 ↓ →0x244be
<MI 24456 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<MI 24458 MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Pointer.fp 0x2445a <LVAR -0x010 @ 1(r)>> Δ-4 {[4, '(A6+0xc)']|[4, '(A6+0x8)']|[@@-16]}
<Call 0x2445e 0x2097c> {[4, '(A6+0xc)']|[4, '(A6+0x8)']|[@@-16]}
<POP 24464-24468 StackAdj> Δ+12 {}
<MI 24468 TST.B (A6-0x10)> {}
<MI 2446c BNE 0x244be> {}
<POP 2446e-24488 Naked> Σ0 ↓
<MI 2446e MOVE.L 0x27bfc,D7> {}
<POP 24470-24472 StackAdj> Δ-4 {[-4-]}
<MI 24472 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x24474 0x214f6> {[-4-]|[4, '(A6+0x8)']}
<POP 24478-2447a StackAdj> Δ+4 {[-4-]}
<MI 2447a MOVE.L (A7)+,D6> Δ+4 {}
<MI 2447c MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<MI 2447e MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x24480 0x237ac> {[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 24484-24486 StackAdj> Δ+8 {}
<MI 24486 MOVE.L 0x27bfc,D5> {}
<POP 24488-244a6 Naked> Σ0 ↓ →0x244b2 ←0x244b2
<MI 24488 MOVE.L D7,D0> {}
<MI 2448a SUBQ.L #0x1,D0> {}
<POP 0x2448c LimitCheck 0x0 ≤ D0 ≤ 0xfff> {}
<MI 24496 LEA.L 0x26bf4,A0> {}
<MI 2449c MOVE.B (A0+D0.L+#0x8),D0> {}
<MI 244a0 CMPI.B #0x25,D0> {}
<MI 244a4 BNE 0x244b2> {}
<POP 244a6-244b2 Naked> Σ0 ↓
<MI 244a6 MOVE.L D7,0x27bfc> {}
<MI 244a8 MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<MI 244aa MOVE.L D6,-(A7)> Δ-4 {[4, '(A6+0x8)']|[4, 'D6']}
<Call 0x244ac 0x2400a> {[4, '(A6+0x8)']|[4, 'D6']}
<POP 244b0-244b2 StackAdj> Δ+8 {}
<POP 244b2-244bc Naked> Σ0 ↓ →0x24488 ←0x24488
<MI 244b2 ADDQ.L #0x1,D7> {}
<MI 244b4 CMP.L 0x27c00,D7> {}
<MI 244ba BLE 0x24488> {}
<POP 244bc-244be Naked> Σ0 ↓
<MI 244bc MOVE.L D5,0x27bfc> {}
<POP 244be-244c8 Naked> Σ0 ↓ ←0x24456
<Pointer.fp 0x244be <LVAR 0x00c @ 4(r)>> Δ-4 {[@@12]}
<Call 0x244c0 0x102bc> {[@@12]}
FreeString(VAR a : String)
<POP 244c6-244c8 StackAdj> Δ+4 {}
<POP 244c8-244d0 Epilogue> Σ0
@ 244d0
<LVAR -0x006 @ 4(r)>
<LVAR -0x00a @ 4(rw)>
<LVAR -0x00b 1(w)>
<LVAR -0x00c @ 1(r)>
<POP 244d0-247e2 Body> Δ+148
<POP 244d0-244e6 Prologue> Σ0 ↓
<POP 244e6-244f4 RegCacheLoad> Σ0 ↓
<POP 244f4-2451a Naked> Σ0 ↓ →0x247c4 ←0x247c4
<MI 244f4 MOVE.L 0x27bfc,D7> {}
<Pointer.fp 0x244f6 <LVAR -0x006 @ 4(r)>> Δ-4 {[@@-6]}
<Pointer.fp 0x244f8 <LVAR -0x00c @ 1(r)>> Δ-4 {[@@-6]|[@@-12]}
<Call 0x244fc 0x2144a> {[@@-6]|[@@-12]}
<POP 24500-24502 StackAdj> Δ+8 {}
<MI 24502 MOVE.L 0x27bfc,D6> {}
<POP 24504-24506 StackAdj> Δ-4 {[-4-]}
<MI 24506 MOVE.L (A6-0x6),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x6)']}
<Call 0x24508 0x214f6> {[-4-]|[4, '(A6-0x6)']}
<POP 2450c-2450e StackAdj> Δ+4 {[-4-]}
<MI 2450e MOVE.L (A7)+,D0> Δ+4 {}
<MI 24510 CMPI.L #0xffffffff,D0> {}
<MI 24516 BEQ 0x247c4> {}
<POP 2451a-24544 Naked> Σ0 ↓ →0x24552
<POP 2451a-2451c StackAdj> Δ-4 {[-4-]}
<MI 2451c MOVE.L (A6-0x6),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x6)']}
<Const 0x2451e 0x0.4> Δ-4 {[-4-]|[4, '(A6-0x6)']|[##0]}
<Call 0x24522 0x21e12> {[-4-]|[4, '(A6-0x6)']|[##0]}
<POP 24526-24528 StackAdj> Δ+8 {[-4-]}
<MI 24528 MOVE.L (A7),(A6-0xa)> {[-4-]}
<POP 2452a-2452c StackAdj> Δ+2 {[-2-]}
<MI 2452c MOVE.L (A6-0xa),-(A7)> Δ-4 {[-2-]|[4, '(A6-0xa)']}
<Call 0x2452e 0x236f4> {[-2-]|[4, '(A6-0xa)']}
<POP 24532-24534 StackAdj> Δ+4 {[-2-]}
<MI 24534 MOVE.B (A7)+,D0> Δ+2 {}
<MI 24536 EXTB.W D0> {}
<POP 0x24538 LimitCheck 0x0 ≤ D0 ≤ 0x2b> {}
<MI 2453c MOVE.B D0,(A6-0xb)> {}
<MI 24540 TST.B D0> {}
<MI 24542 BNE 0x24552> {}
<POP 24544-24552 Naked> Σ0 →0x247bc
<MI 24544 MOVE.L (A6-0xa),-(A7)> Δ-4 {[4, '(A6-0xa)']}
<MI 24546 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0xa)']|[4, '(A6-0x6)']}
<Call 0x24548 0x24432> {[4, '(A6-0xa)']|[4, '(A6-0x6)']}
<POP 2454c-2454e StackAdj> Δ+8 {}
<MI 2454e BRA 0x247bc> {}
<POP 24552-24588 Naked> Σ0 ↓ →0x245b4 ←0x2451a
<Pointer.fp 0x24552 <LVAR -0x00a @ 4(rw)>> Δ-4 {[@@-10]}
<Call 0x24554 0x102bc> {[@@-10]}
FreeString(VAR a : String)
<POP 2455a-2455c StackAdj> Δ+4 {}
<MI 2455c MOVE.B D0,D1> {}
<MI 2455e EXTB.W D1> {}
<POP 0x24560 LimitCheck 0x0 ≤ D1 ≤ 0x2b> {}
<MI 24564 LEA.L 0x20fec,A0> {}
<MI 24568 MOVE.W D1,D0> {}
<MI 2456a EXTW.L D0> {}
<MI 2456c MOVE.L D0,D2> {}
<MI 2456e ROR.L #0x1,D2> {}
<MI 24570 ADDA.W D2,A0> {}
<MI 24572 SWAP.W D2> {}
<MI 24574 ROL.W #0x3,D2> {}
<MI 24576 CLR.L D3> {}
<MI 24578 MOVE.B (A0),D3> {}
<MI 2457a LSL.B D2,D3> {}
<MI 2457c LSR.B #0x4,D3> {}
<MI 2457e MOVE.L D3,D5> {}
<MI 24580 CMPI.L #0x0000000f,D5> {}
<MI 24586 BEQ 0x245b4> {}
<POP 24588-245b4 Naked> Σ0 ↓
<MI 24588 MOVE.L D0,D4> {}
<MI 2458a MOVEQ.L #0x0a,D3> {}
<Call 0x2458c 0x1028c> {}
?muls_d3_d4
<MI 24592 LEA.L 0x20e1e,A0> {}
<Blob 0x24596 [10] (A0+D4.W)> Δ-10 {[«10»]}
<MI 245a8 MOVE.L (A6-0x6),-(A7)> Δ-4 {[«10»]|[4, '(A6-0x6)']}
<MI 245aa MOVE.L D5,-(A7)> Δ-4 {[«10»]|[4, '(A6-0x6)']|[4, 'D5']}
<Call 0x245ac 0x2152c> {[«10»]|[4, '(A6-0x6)']|[4, 'D5']}
<POP 245b0-245b4 StackAdj> Δ+18 {}
<POP 245b4-245c8 Naked> Σ0 →0x2461e →0x2462a →0x2463c →0x2464a →0x247ae →0x24652 →0x24656 →0x2465e →0x24666 →0x2466e →0x24676 →0x2467e →0x24686 →0x2468e →0x24696 →0x2469e →0x246a8 →0x246b2 →0x246bc →0x246c6 →0x246d0 →0x246da →0x246e4 →0x246ee →0x246f8 →0x24702 →0x2470c →0x24716 →0x24720 →0x2472a →0x24734 →0x2473e →0x24748 →0x24752 →0x2475c →0x24766 →0x24770 →0x2477a →0x24780 →0x2478a →0x24794 →0x2479e →0x247a4 ←0x24552
<MI 245b4 SUBQ.W #0x1,D1> {}
<POP 0x245b6 LimitCheck 0x0 ≤ D1 ≤ 0x2a> {}
<MI 245be ADD.W D1,D1> {}
<MI 245c0 SWITCH D1.W> {}
<POP 2461e-24624 Naked> Σ0 Δ-4 ↓ ←0x245b4
<MI 2461e MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x24620 0x21f9a> {[4, '(A6-0x6)']}
<POP 24624-2462a Naked> Σ-4 Δ+4 →0x247bc ←0x2463c ←0x2464a ←0x24656 ←0x2465e ←0x24666 ←0x2466e ←0x24676 ←0x2467e ←0x24686 ←0x2468e ←0x24696 ←0x2469e ←0x246a8 ←0x246b2 ←0x246bc ←0x246c6 ←0x246d0 ←0x246da ←0x246e4 ←0x246ee ←0x246f8 ←0x24702 ←0x2470c ←0x24716 ←0x24720 ←0x2472a ←0x24734 ←0x2473e ←0x24748 ←0x24752 ←0x2475c ←0x24766 ←0x24770 ←0x24780 ←0x2478a ←0x24794 ←0x247a4
<POP 24624-24626 StackAdj> Δ+4 {}
<MI 24626 BRA 0x247bc> {}
<POP 2462a-2463c Naked> Σ0 →0x247bc ←0x245b4
<MI 2462a CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x2462c 0x1.4> Δ-4 {[#0]|[##1]}
<Call 0x24630 0x103b8> {[#0]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 24636-24638 StackAdj> Δ+6 {}
<MI 24638 BRA 0x247bc> {}
<POP 2463c-2464a Naked> Σ0 Δ-4 →0x24624 ←0x245b4
<POP 2463c-2463e StackAdj> Δ-4 {[-4-]}
<Call 0x2463e 0x102ac> {[-4-]}
FSCALL_102ac
<Call 0x24644 0x21f70> {[-4-]}
<MI 24648 BRA 0x24624> {[-4-]}
<POP 2464a-24652 Naked> Σ0 Δ-4 →0x24624 ←0x245b4
<MI 2464a MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x2464c 0x22174> {[4, '(A6-0x6)']}
<MI 24650 BRA 0x24624> {[4, '(A6-0x6)']}
<POP 24652-24656 Naked> Σ0 →0x247bc ←0x245b4
<MI 24652 BRA 0x247bc> {}
<POP 24656-2465e Naked> Σ0 Δ-4 →0x24624 ←0x245b4
<MI 24656 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x24658 0x2249a> {[4, '(A6-0x6)']}
<MI 2465c BRA 0x24624> {[4, '(A6-0x6)']}
<POP 2465e-24666 Naked> Σ0 Δ-4 →0x24624 ←0x245b4
<MI 2465e MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x24660 0x22606> {[4, '(A6-0x6)']}
<MI 24664 BRA 0x24624> {[4, '(A6-0x6)']}
<POP 24666-2466e Naked> Σ0 Δ-4 →0x24624 ←0x245b4
<MI 24666 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x24668 0x226f4> {[4, '(A6-0x6)']}
<MI 2466c BRA 0x24624> {[4, '(A6-0x6)']}
<POP 2466e-24676 Naked> Σ0 Δ-4 →0x24624 ←0x245b4
<MI 2466e MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x24670 0x22ae8> {[4, '(A6-0x6)']}
<MI 24674 BRA 0x24624> {[4, '(A6-0x6)']}
<POP 24676-2467e Naked> Σ0 Δ-4 →0x24624 ←0x245b4
<MI 24676 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x24678 0x22b60> {[4, '(A6-0x6)']}
<MI 2467c BRA 0x24624> {[4, '(A6-0x6)']}
<POP 2467e-24686 Naked> Σ0 Δ-4 →0x24624 ←0x245b4
<MI 2467e MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x24680 0x22bd8> {[4, '(A6-0x6)']}
<MI 24684 BRA 0x24624> {[4, '(A6-0x6)']}
<POP 24686-2468e Naked> Σ0 Δ-4 →0x24624 ←0x245b4
<MI 24686 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x24688 0x22c04> {[4, '(A6-0x6)']}
<MI 2468c BRA 0x24624> {[4, '(A6-0x6)']}
<POP 2468e-24696 Naked> Σ0 Δ-4 →0x24624 ←0x245b4
<MI 2468e MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x24690 0x22d04> {[4, '(A6-0x6)']}
<MI 24694 BRA 0x24624> {[4, '(A6-0x6)']}
<POP 24696-2469e Naked> Σ0 Δ-4 →0x24624 ←0x245b4
<MI 24696 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x24698 0x22dea> {[4, '(A6-0x6)']}
<MI 2469c BRA 0x24624> {[4, '(A6-0x6)']}
<POP 2469e-246a8 Naked> Σ0 Δ-4 →0x24624 ←0x245b4
<MI 2469e MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x246a0 0x22e16> {[4, '(A6-0x6)']}
<MI 246a4 BRA 0x24624> {[4, '(A6-0x6)']}
<POP 246a8-246b2 Naked> Σ0 Δ-4 →0x24624 ←0x245b4
<MI 246a8 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x246aa 0x22e62> {[4, '(A6-0x6)']}
<MI 246ae BRA 0x24624> {[4, '(A6-0x6)']}
<POP 246b2-246bc Naked> Σ0 Δ-4 →0x24624 ←0x245b4
<MI 246b2 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x246b4 0x22eae> {[4, '(A6-0x6)']}
<MI 246b8 BRA 0x24624> {[4, '(A6-0x6)']}
<POP 246bc-246c6 Naked> Σ0 Δ-4 →0x24624 ←0x245b4
<MI 246bc MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x246be 0x22efa> {[4, '(A6-0x6)']}
<MI 246c2 BRA 0x24624> {[4, '(A6-0x6)']}
<POP 246c6-246d0 Naked> Σ0 Δ-4 →0x24624 ←0x245b4
<MI 246c6 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x246c8 0x22f46> {[4, '(A6-0x6)']}
<MI 246cc BRA 0x24624> {[4, '(A6-0x6)']}
<POP 246d0-246da Naked> Σ0 Δ-4 →0x24624 ←0x245b4
<MI 246d0 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x246d2 0x22f92> {[4, '(A6-0x6)']}
<MI 246d6 BRA 0x24624> {[4, '(A6-0x6)']}
<POP 246da-246e4 Naked> Σ0 Δ-4 →0x24624 ←0x245b4
<MI 246da MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x246dc 0x22fde> {[4, '(A6-0x6)']}
<MI 246e0 BRA 0x24624> {[4, '(A6-0x6)']}
<POP 246e4-246ee Naked> Σ0 Δ-4 →0x24624 ←0x245b4
<MI 246e4 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x246e6 0x23028> {[4, '(A6-0x6)']}
<MI 246ea BRA 0x24624> {[4, '(A6-0x6)']}
<POP 246ee-246f8 Naked> Σ0 Δ-4 →0x24624 ←0x245b4
<MI 246ee MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x246f0 0x23072> {[4, '(A6-0x6)']}
<MI 246f4 BRA 0x24624> {[4, '(A6-0x6)']}
<POP 246f8-24702 Naked> Σ0 Δ-4 →0x24624 ←0x245b4
<MI 246f8 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x246fa 0x230bc> {[4, '(A6-0x6)']}
<MI 246fe BRA 0x24624> {[4, '(A6-0x6)']}
<POP 24702-2470c Naked> Σ0 Δ-4 →0x24624 ←0x245b4
<MI 24702 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x24704 0x23106> {[4, '(A6-0x6)']}
<MI 24708 BRA 0x24624> {[4, '(A6-0x6)']}
<POP 2470c-24716 Naked> Σ0 Δ-4 →0x24624 ←0x245b4
<MI 2470c MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x2470e 0x23150> {[4, '(A6-0x6)']}
<MI 24712 BRA 0x24624> {[4, '(A6-0x6)']}
<POP 24716-24720 Naked> Σ0 Δ-4 →0x24624 ←0x245b4
<MI 24716 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x24718 0x2319a> {[4, '(A6-0x6)']}
<MI 2471c BRA 0x24624> {[4, '(A6-0x6)']}
<POP 24720-2472a Naked> Σ0 Δ-4 →0x24624 ←0x245b4
<MI 24720 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x24722 0x231e4> {[4, '(A6-0x6)']}
<MI 24726 BRA 0x24624> {[4, '(A6-0x6)']}
<POP 2472a-24734 Naked> Σ0 Δ-4 →0x24624 ←0x245b4
<MI 2472a MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x2472c 0x2322e> {[4, '(A6-0x6)']}
<MI 24730 BRA 0x24624> {[4, '(A6-0x6)']}
<POP 24734-2473e Naked> Σ0 Δ-4 →0x24624 ←0x245b4
<MI 24734 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x24736 0x23272> {[4, '(A6-0x6)']}
<MI 2473a BRA 0x24624> {[4, '(A6-0x6)']}
<POP 2473e-24748 Naked> Σ0 Δ-4 →0x24624 ←0x245b4
<MI 2473e MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x24740 0x232b8> {[4, '(A6-0x6)']}
<MI 24744 BRA 0x24624> {[4, '(A6-0x6)']}
<POP 24748-24752 Naked> Σ0 Δ-4 →0x24624 ←0x245b4
<MI 24748 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x2474a 0x232ee> {[4, '(A6-0x6)']}
<MI 2474e BRA 0x24624> {[4, '(A6-0x6)']}
<POP 24752-2475c Naked> Σ0 Δ-4 →0x24624 ←0x245b4
<MI 24752 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x24754 0x2337e> {[4, '(A6-0x6)']}
<MI 24758 BRA 0x24624> {[4, '(A6-0x6)']}
<POP 2475c-24766 Naked> Σ0 Δ-4 →0x24624 ←0x245b4
<MI 2475c MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x2475e 0x233f0> {[4, '(A6-0x6)']}
<MI 24762 BRA 0x24624> {[4, '(A6-0x6)']}
<POP 24766-24770 Naked> Σ0 Δ-4 →0x24624 ←0x245b4
<MI 24766 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x24768 0x22756> {[4, '(A6-0x6)']}
<MI 2476c BRA 0x24624> {[4, '(A6-0x6)']}
<POP 24770-2477a Naked> Σ0 Δ-4 →0x24624 ←0x245b4
<MI 24770 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x24772 0x227c0> {[4, '(A6-0x6)']}
<MI 24776 BRA 0x24624> {[4, '(A6-0x6)']}
<POP 2477a-24780 Naked> Σ0 →0x247bc ←0x245b4
<Call 0x2477a 0x22792> {}
<MI 2477e BRA 0x247bc> {}
<POP 24780-2478a Naked> Σ0 Δ-4 →0x24624 ←0x245b4
<MI 24780 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x24782 0x23462> {[4, '(A6-0x6)']}
<MI 24786 BRA 0x24624> {[4, '(A6-0x6)']}
<POP 2478a-24794 Naked> Σ0 Δ-4 →0x24624 ←0x245b4
<MI 2478a MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x2478c 0x234e4> {[4, '(A6-0x6)']}
<MI 24790 BRA 0x24624> {[4, '(A6-0x6)']}
<POP 24794-2479e Naked> Σ0 Δ-4 →0x24624 ←0x245b4
<MI 24794 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x24796 0x23564> {[4, '(A6-0x6)']}
<MI 2479a BRA 0x24624> {[4, '(A6-0x6)']}
<POP 2479e-247a4 Naked> Σ0 →0x247bc ←0x245b4
<Call 0x2479e 0x23628> {}
<MI 247a2 BRA 0x247bc> {}
<POP 247a4-247ae Naked> Σ0 Δ-4 →0x24624 ←0x245b4
<MI 247a4 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x247a6 0x23648> {[4, '(A6-0x6)']}
<MI 247aa BRA 0x24624> {[4, '(A6-0x6)']}
<POP 247ae-247bc Naked> Σ0 ←0x245b4
<POP 247ae-247bc Bailout> {}
<MI 247ae MOVEA.L (A5+0x8),A7>
<MI 247b2 MOVEA.W #0x0,A6>
<MI 247b6 JMP 0x249c6>
<POP 247bc-247c4 Naked> Σ0 ↓ ←0x24544 ←0x24624 ←0x2462a ←0x24652 ←0x2477a ←0x2479e
<MI 247bc MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x247be 0x210a8> {[4, '(A6-0x6)']}
<POP 247c2-247c4 StackAdj> Δ+4 {}
<POP 247c4-247da Naked> Σ0 ↓ →0x244f4 ←0x244f4
<MI 247c4 MOVE.L D6,-(A7)> Δ-4 {[4, 'D6']}
<MI 247c6 MOVE.L D6,-(A7)> Δ-4 {[4, 'D6']|[4, 'D6']}
<MI 247c8 SUB.L D7,(A7)> {[4, 'D6']|[-4-]}
<Call 0x247ca 0x2163e> {[4, 'D6']|[-4-]}
<POP 247ce-247d0 StackAdj> Δ+8 {}
<MI 247d0 MOVE.L D7,0x27bfc> {}
<MI 247d2 TST.B (A6-0xc)> {}
<MI 247d6 BEQ 0x244f4> {}
<POP 247da-247e2 Epilogue> Σ0
@ 247e2
START
<POP 247e2--0001 Body>
<POP 247e2-247ec Prologue> Σ0
<POP 247ec-2481c Naked> Σ0 ↓ →0x24884
<MI 247ec MOVE.L #0x1,0x27c26> {}
<POP 247f6-247f8 StackAdj> Δ-4 {[-4-]}
<Call 0x247f8 0x103c4> {[-4-]}
GetArgv() : String
<MI 247fe MOVE.L (A7)+,0x27c2a> Δ+4 {}
<Const 0x24804 0x27c04.4> Δ-4 {[##162820]}
<Call 0x2480a 0x209f2> {[##162820]}
<POP 24810-24812 StackAdj> Δ+4 {}
<MI 24812 MOVEA.L 0x27c2a,A0> {}
<MI 24818 TST.W (A0)> {}
<MI 2481a BLE 0x24884> {}
<POP 2481c-24884 Naked> Σ0 →0x248be
<Blob 0x2481c [8] @> Δ-8 {[«8""»]}
<Blob 0x2482c [8] @> Δ-8 {[«8""»]|[«8""»]}
<POP 2483c-2483e StackAdj> Δ-8 {[«8""»]|[«8""»]|[-8-]}
<Lit 0x2483e 7> {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]}
<POP 24850-24852 StackAdj> Δ-4 {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]|[-4-]}
<POP 24852-24853 StackAdj> Δ+4 {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]}
<Blob 0x24853 [4] 0x27c2a> Δ-4 {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]|[«4»]}
<POP 24858-2485a StackAdj> Δ-4 {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]|[«4»]|[-4-]}
<Lit 0x2485a 7> {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]|[«4»]|[$$][BYE];]}
<Call 0x2486e 0x102d4> {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]|[«4»]|[$$][BYE];]}
StringCat3(a, b, c : String) : String
<POP 24874-24878 StackAdj> Δ+12 {[«8""»]|[«8""»]|[-4-]}
<MI 24878 MOVE.L (A7)+,0x27c2a> Δ+4 {[«8""»]|[«8""»]}
<POP 2487e-24882 StackAdj> Δ+16 {}
<MI 24882 BRA 0x248be> {}
<POP 24884-248be Naked> Σ0 ↓ ←0x247ec
<Const 0x24884 0x27c2a.4> Δ-4 {[##162858]}
<Call 0x2488a 0x102bc> {[##162858]}
FreeString(VAR a : String)
<POP 24890-24891 StackAdj> Δ+4 ↓ {}
<Blob 0x24891 [8] @> Δ-8 {[«8""»]}
<POP 248a0-248a2 StackAdj> Δ-4 {[«8""»]|[-4-]}
<Lit 0x248a2 7> {[«8""»]|[$$[INIT];]}
<MI 248b6 MOVE.L (A7)+,0x27c2a> Δ+4 {[«8""»]}
<POP 248bc-248be StackAdj> Δ+8 {}
<POP 248be-248c6 Naked> Σ0 ↓ ←0x2481c
<MI 248be MOVE.B #0x01,0x27c34> {}
<POP 248c6-248ce Naked> Σ0 ↓ →0x248d8 ←0x249d4
<MI 248c6 TST.B 0x27c34> {}
<MI 248cc BEQ 0x248d8> {}
<POP 248ce-248d8 Naked> Σ0 →0x24986
<MI 248ce CLR.B 0x27c34> {}
<MI 248d4 BRA 0x24986> {}
<POP 248d8-24986 Naked> Σ0 ↓ ←0x248c6
<Blob 0x248d8 [10] 0x27c0e> Δ-10 {[«10»]}
<Blob 0x248e6 [2] @> Δ-2 {[«10»]|[«2""»]}
<POP 248ea-248ee StackAdj> Δ-12 {[«10»]|[«2""»]|[-12-]}
<Lit 0x248ee> {[«10»]|[«2""»]|[-8-]|[$$…]}
<Pointer.sp 0x248ee 14> Δ-4
<Const 0x248f2 0x1.2> Δ-2
<Const 0x248f6 0xa.2> Δ-2
<Call 0x248fa 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 24900-24902 StackAdj> Δ+8
<POP 24900-24902 StackAdj> Δ-4 {[«10»]|[«2""»]|[-8-]|[$$…]|[-4-]}
<Lit 0x24902 2> {[«10»]|[«2""»]|[-8-]|[$$…]|[$$>_]}
<Call 0x24916 0x102d0> {[«10»]|[«2""»]|[-8-]|[$$…]|[$$>_]}
StringCat2(a, b : String) : String
<POP 2491c-2491e StackAdj> Δ+8 {[«10»]|[«2""»]|[-8-]}
<Call 0x2491e 0x103e4> {[«10»]|[«2""»]|[-8-]}
AskConsoleString(prompt : String) : String
<POP 24924-24926 StackAdj> Δ+4 {[«10»]|[«2""»]|[-4-]}
<MI 24926 MOVE.L (A7)+,0x27c30> Δ+4 {[«10»]|[«2""»]}
<POP 2492c-2492e StackAdj> Δ+8 {[-4-]}
<POP 2492e-2492f StackAdj> Δ+4 {}
<Blob 0x2492f [4] 0x27c30> Δ-4 {[«4»]}
<Call 0x24934 0x21342> {[«4»]}
<POP 24938-2493a StackAdj> Δ+2 {[-2-]}
<POP 2493a-2493b StackAdj> Δ+2 {}
<Blob 0x2493b [2] @> Δ-2 {[«2""»]}
<Blob 0x2493e [2] @> Δ-2 {[«2""»]|[«2""»]}
<POP 24942-24944 StackAdj> Δ-8 {[«2""»]|[«2""»]|[-8-]}
<Lit 0x24944 2> {[«2""»]|[«2""»]|[-4-]|[$$[ ]}
<POP 24956-24958 StackAdj> Δ-4 {[«2""»]|[«2""»]|[-4-]|[$$[ ]|[-4-]}
<POP 24958-24959 StackAdj> Δ+4 {[«2""»]|[«2""»]|[-4-]|[$$[ ]}
<Blob 0x24959 [4] 0x27c30> Δ-4 {[«2""»]|[«2""»]|[-4-]|[$$[ ]|[«4»]}
<POP 2495e-24960 StackAdj> Δ-4 {[«2""»]|[«2""»]|[-4-]|[$$[ ]|[«4»]|[-4-]}
<Lit 0x24960 2> {[«2""»]|[«2""»]|[-4-]|[$$[ ]|[«4»]|[$$];]}
<Call 0x24974 0x102d4> {[«2""»]|[«2""»]|[-4-]|[$$[ ]|[«4»]|[$$];]}
StringCat3(a, b, c : String) : String
<POP 2497a-2497e StackAdj> Δ+12 {[«2""»]|[«2""»]|[-4-]}
<MI 2497e MOVE.L (A7)+,0x27c2a> Δ+4 {[«2""»]|[«2""»]}
<POP 24984-24986 StackAdj> Δ+4 {}
<POP 24986-249b2 Naked> Σ0 ↓ ←0x248ce
<MI 24986 CLR.B 0x27c2e> {}
<MI 2498c MOVE.L #0x1,0x27bfc> {}
<MI 24996 CLR.L 0x27c00> {}
<POP 2499c-2499e StackAdj> Δ-4 {[-4-]}
<Blob 0x2499e [4] 0x27c2a> Δ-4 {[-4-]|[«4»]}
<Call 0x249a4 0x102cc> {[-4-]|[«4»]}
StringDup(a : String) : String
<POP 249aa-249ac StackAdj> Δ+4 {[-4-]}
<Call 0x249ac 0x21eb4> {[-4-]}
<POP 249b0-249b2 StackAdj> Δ+4 {}
<POP 249b2-249c0 Naked> Σ0 ↓ →0x249c6 ←0x249c0
<MI 249b2 MOVE.L 0x27bfc,D0> {}
<MI 249b8 CMP.L 0x27c00,D0> {}
<MI 249be BGT 0x249c6> {}
<POP 249c0-249c6 Naked> Σ0 →0x249b2
<Call 0x249c0 0x244d0> {}
<MI 249c4 BRA 0x249b2> {}
<POP 249c6-249d4 Naked> Σ0 ↓ ←0x249b2
<Const 0x249c6 0x27c2a.4> Δ-4 {[##162858]}
<Call 0x249cc 0x102bc> {[##162858]}
FreeString(VAR a : String)
<POP 249d2-249d4 StackAdj> Δ+4 {}
<POP 249d4-249d8 Naked> Σ0 →0x248c6
<MI 249d4 BRA 0x248c6> {}
@ 249ec
PROG_FAIL
<LVAR 0x008 1(r)>
<POP 249ec-24a54 Body>
<POP 249ec-24a02 Prologue> Σ0 ↓
<POP 24a02-24a4c Naked> Σ0 ↓
<Blob 0x24a02 [14] @> Δ-14 {[«14""»]}
<Const 0x24a0e 0x3.2> Δ-2 {[«14""»]|[#3]}
<POP 24a12-24a14 StackAdj> Δ-8 {[«14""»]|[#3]|[-8-]}
<Lit 0x24a14 14> {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
<POP 24a26-24a28 StackAdj> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 24a28 MOVE.B (A6+0x8),D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 24a2c EXTB.W D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 24a2e EXTW.L D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 24a30 MOVE.L D0,-(A7)> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
<Call 0x24a32 0x102e4> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 24a38-24a3a StackAdj> Δ+4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<Call 0x24a3a 0x102d0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 24a40-24a42 StackAdj> Δ+8 {[«14""»]|[#3]|[-4-]}
<Call 0x24a42 0x103b8> {[«14""»]|[#3]|[-4-]}
PopProgram(status : Byte; msg : String)
<POP 24a48-24a4c StackAdj> Δ+20 {}
<POP 24a4c-24a54 Epilogue> Σ0
@ 24aa8
EXP_FAIL
<LVAR 0x00e 1(r)>
<LVAR 0x00a 4(r)>
<LVAR 0x008 1(r)>
<POP 24aa8-24be4 Body>
<POP 24aa8-24abe Prologue> Σ0 ↓
<POP 24abe-24ad4 RegCacheLoad> Σ0 ↓
<POP 24ad4-24b34 Naked> Σ0 ↓ →0x24b7c
<Call 0x24ad4 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x24ada [18] @> Δ-18 {[«18""»]}
<POP 24ae6-24ae8 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x24ae8 18> {[«18""»]|[$$Experiment error :]}
<Call 0x24af4 0x103e0> {[«18""»]|[$$Experiment error :]}
WriteConsoleStringCrLf(str : String)
<POP 24af6-24af7 StackAdj> Δ+22 ↓ {}
<Blob 0x24af7 [14] @> Δ-14 {[«14""»]}
<POP 24b06-24b08 StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x24b08 13> {[«14""»]|[-4-]|[$$Board :_]}
<POP 24b12-24b14 StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<MI 24b14 MOVE.B (A6+0xe),(A7)> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<Call 0x24b18 0x1049c> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
BoardName(address : B) : String
<POP 24b1e-24b20 StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
<Call 0x24b20 0x102d0> {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 24b26-24b28 StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x24b28 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 24b2a-24b2c StackAdj> Δ+18 {}
<MI 24b2c MOVEA.L (A6+0xa),A0> {}
<MI 24b30 CMPA.W #0x01,A0> {}
<MI 24b32 BEQ 0x24b7c> {}
<POP 24b34-24b7c Naked> Σ0 ↓
<Blob 0x24b34 [14] @> Δ-14 {[«14""»]}
<Blob 0x24b44 [30] (A0+0xfc)> Δ-30 {[«14""»]|[«30»]}
<POP 24b54-24b56 StackAdj> Δ-8 {[«14""»]|[«30»]|[-8-]}
<Lit 0x24b56 13> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
<POP 24b60-24b62 StackAdj> Δ-4 {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
<Lit 0x24b62> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
<Pointer.sp 0x24b62 12> Δ-4
<Const 0x24b66 0x1.2> Δ-2
<Const 0x24b68 0x1e.2> Δ-2
<Call 0x24b6a 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 24b6c-24b6e StackAdj> Δ+8
<Call 0x24b6e 0x102d0> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
StringCat2(a, b : String) : String
<POP 24b74-24b76 StackAdj> Δ+8 {[«14""»]|[«30»]|[-4-]}
<Call 0x24b76 0x103e0> {[«14""»]|[«30»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 24b78-24b7c StackAdj> Δ+48 {}
<POP 24b7c-24bdc Naked> Σ0 ↓ ←0x24ad4
<Blob 0x24b7c [14] @> Δ-14 {[«14""»]}
<POP 24b8c-24b8e StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x24b8e 13> {[«14""»]|[-4-]|[$$Status :_]}
<POP 24b98-24b9a StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<MI 24b9a MOVE.B (A6+0x8),(A7)> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<Call 0x24b9e 0x104a2> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
ExpStatus2Text(status.B, &String)
<POP 24ba4-24ba6 StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
<Call 0x24ba6 0x102d0> {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 24bac-24bae StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x24bae 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 24bb0-24bb1 StackAdj> Δ+18 ↓ {}
<Blob 0x24bb1 [24] @> Δ-24 {[«24""»]}
<Const 0x24bc0 0x2.2> Δ-2 {[«24""»]|[#2]}
<POP 24bc4-24bc6 StackAdj> Δ-4 {[«24""»]|[#2]|[-4-]}
<Lit 0x24bc6 23> {[«24""»]|[#2]|[$$Fatal experiment error.]}
<Call 0x24bd4 0x103b8> {[«24""»]|[#2]|[$$Fatal experiment error.]}
PopProgram(status : Byte; msg : String)
<POP 24bda-24bdc StackAdj> Δ+30 {}
<POP 24bdc-24be4 Epilogue> Σ0
00020000 ; --------------------------------------------------------------------------------------
00020000 ; R1000.Disassembly modules:
00020000 ; import all
00020000 ; import kind.program
00020000 ; no ident.659c2c5185c344d3
00020000 ; --------------------------------------------------------------------------------------
00020000 stack.top:
00020000 00 04 00 00 | | .CODE 0x40000 ; STACK.END
00020004 00 02 47 e2 | G | .CODE START
00020008 00 01 02 88 | | .CODE FSCALL_10288
0002000c heap.top:
0002000c 00 02 7c 48 | |H | .PTR 0x27c48
00020010 code.end:
00020010 00 02 4b e4 | K | .PTR 0x24be4
00020014 00 00 00 00 | | .CONST 0x00000000
00020018 programfailurehandler:
00020018 00 02 49 ec | I | .CODE PROG_FAIL
0002001c experimentfailurehandler:
0002001c 00 02 4a a8 | 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 44 65 76 69 63 65 20 61 |Device a| .TXT 'Device already opened '
00020120 4f 50 45 4e 20 20 20 20 |OPEN | .TXT 'OPEN '
0002012a 54 41 50 45 |TAPE | .TXT 'TAPE'
0002012e 44 49 53 4b |DISK | .TXT 'DISK'
00020132 55 6e 6b 6e 6f 77 6e 20 |Unknown | .TXT 'Unknown device'
00020140 55 4e 49 54 |UNIT | .TXT 'UNIT'
00020144 49 6c 6c 65 |Ille | .TXT 'Ille'
00020148 67 61 6c 20 |gal | .TXT 'gal '
0002014c 75 6e 69 74 |unit | .TXT 'unit'
00020150 49 6c 6c 65 |Ille | .TXT 'Ille'
00020154 67 61 6c 20 |gal | .TXT 'gal '
00020158 75 6e 69 74 |unit | .TXT 'unit'
0002015c 4e 6f 20 64 65 76 69 63 |No devic| .TXT 'No device open'
0002016a 20 6c 69 6e 65 73 20 73 | lines s| .TXT ' lines same as above. '
00020180 42 6c |Bl | .TXT 'Bl'
00020182 6f 63 |oc | .TXT 'oc'
00020184 6b 5f |k_ | .TXT 'k_'
00020186 2c 5f |,_ | .TXT ',_'
00020188 20 42 79 74 65 73 2e 20 | Bytes. | .TXT ' Bytes. '
00020190 3a 5f |:_ | .TXT ':_'
00020192 5f 5f 5f 5f |____ | .TXT '____'
00020196 4e 6f 20 64 65 76 69 63 |No devic| .TXT 'No device open'
000201a4 43 61 6e 6e 6f 74 20 72 |Cannot r| .TXT 'Cannot rewind current device'
000201c0 44 49 53 50 4c 41 59 20 |DISPLAY | .XXX[0x58]
000201c8 20 20 52 45 57 49 4e 44 | REWIND|
000201d0 20 20 20 20 4f 50 45 4e | OPEN|
000201d8 20 20 20 20 20 20 43 4c | CL|
000201e0 4f 53 45 20 20 20 20 20 |OSE |
000201e8 44 49 53 50 4c 41 59 20 |DISPLAY |
000201f0 20 20 44 49 53 50 4c 41 | DISPLA|
000201f8 59 20 20 20 52 45 57 49 |Y REWI|
00020200 4e 44 20 20 20 20 4f 50 |ND OP|
00020208 45 4e 20 20 20 20 20 20 |EN |
00020210 43 4c 4f 53 45 20 20 20 |CLOSE |
00020218 20 20 | | .XXX[0x2]
0002021a ; --------------------------------------------------------------------------------------
0002021a ; OMSI PASCAL Function
0002021a ; <LVAR 0x008 4(r)>
0002021a ; <LVAR -0x004 @ 4(r)>
0002021a ; <LVAR -0x006 @ 1(r)>
0002021a ; <LVAR -0x008 @ 1(r)>
0002021a ; <LVAR -0x00c @ 4(r)>
0002021a ; <LVAR -0x010 @ 4(rw)>
0002021a ; <LVAR -0x014 @ 4(rw)>
0002021a ; <LVAR -0x018 @ 4(rw)>
0002021a ; --------------------------------------------------------------------------------------
0002021a 4e 56 ff 8e |NV | LINK.W A6,#0xff8e
0002021e bf d5 | | CMPA.L (A5),A7
00020220 62 06 |b | BHI 0x20228
00020222 44 fc 00 02 |D | MOVE.W #0x2,CCR
00020226 4e 76 |Nv | TRAPV
00020228 de fc 00 56 | V | ADDA.W #0x56,A7
0002022c 48 e7 fe f8 |H | MOVEM.L A4+A3+A2+A1+A0+D6+D5+D4+D3+D2+D1+D0,-(A7)
00020230 45 f9 00 02 4b ec |E K | LEA.L 0x24bec,A2
00020236 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
0002023c 49 ee ff e8 |I | LEA.L (A6-0x18),A4
00020240 72 01 |r | MOVEQ.L #0x01,D1
00020242 74 03 |t | MOVEQ.L #0x03,D2
00020244 76 04 |v | MOVEQ.L #0x04,D3
00020246 78 0c |x | MOVEQ.L #0x0c,D4
00020248 7a 0a |z | MOVEQ.L #0x0a,D5
0002024a 7c 10 || | MOVEQ.L #0x10,D6
0002024c 42 b9 00 02 6b ee |B k | CLR.L 0x26bee
00020252 4a 12 |J | TST.B (A2)
00020254 67 2c |g, | BEQ 0x20282
00020256 9e fc 00 16 | | SUBA.W #0x16,A7
0002025a 20 4f | O | MOVEA.L A7,A0
0002025c 43 fa fe ac |C | LEA.L 0x2010a,A1
00020260 70 14 |p | MOVEQ.L #0x14,D0
00020262 10 d9 | | MOVE.B (A1)+,(A0)+
00020264 51 c8 ff fc |Q | DBF D0,0x20262
00020268 59 4f |YO | SUBQ.L #0x4,A7
0002026a 48 6f 00 04 |Ho | PEA.L (A7+0x4)
0002026e 3f 01 |? | MOVE.W D1,-(A7)
00020270 3f 3c 00 15 |?< | MOVE.W #0x15,-(A7)
00020274 4e 93 |N | JSR (A3)
00020276 50 4f |PO | ADDQ.L #0x8,A7
00020278 4e b9 00 02 10 ea |N | JSR 0x210ea
0002027e de fc 00 1a | | ADDA.W #0x1a,A7
00020282 41 fa fe a6 |A | LEA.L 0x2012a,A0
00020286 70 04 |p | MOVEQ.L #0x04,D0
00020288 3f 20 |? | MOVE.W -(A0),-(A7)
0002028a 51 c8 ff fc |Q | DBF D0,0x20288
0002028e 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00020292 48 78 00 01 |Hx | PEA.L 0x1
00020296 4e b9 00 02 15 2c |N , | JSR 0x2152c
0002029c de c5 | | ADDA.W D5,A7
0002029e 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7)
000202a2 48 78 00 01 |Hx | PEA.L 0x1
000202a6 4e b9 00 02 1e 12 |N | JSR 0x21e12
000202ac 50 4f |PO | ADDQ.L #0x8,A7
000202ae 28 9f |( | MOVE.L (A7)+,(A4)
000202b0 2f 3a fe 78 |/: x | MOVE.L 0x2012a,-(A7)
000202b4 59 4f |YO | SUBQ.L #0x4,A7
000202b6 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000202ba 3f 01 |? | MOVE.W D1,-(A7)
000202bc 3f 03 |? | MOVE.W D3,-(A7)
000202be 4e 93 |N | JSR (A3)
000202c0 50 4f |PO | ADDQ.L #0x8,A7
000202c2 2d 5f ff ec |-_ | MOVE.L (A7)+,(A6-0x14)
000202c6 2e ba fe 66 |. f | MOVE.L 0x2012e,(A7)
000202ca 59 4f |YO | SUBQ.L #0x4,A7
000202cc 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000202d0 3f 01 |? | MOVE.W D1,-(A7)
000202d2 3f 03 |? | MOVE.W D3,-(A7)
000202d4 4e 93 |N | JSR (A3)
000202d6 50 4f |PO | ADDQ.L #0x8,A7
000202d8 2d 5f ff f0 |-_ | MOVE.L (A7)+,(A6-0x10)
000202dc 54 4f |TO | ADDQ.L #0x2,A7
000202de 2f 14 |/ | MOVE.L (A4),-(A7)
000202e0 2f 2e ff ec |/. | MOVE.L (A6-0x14),-(A7)
000202e4 4e b9 00 01 02 c8 |N | JSR StringEqual(a, b : String) : Byte
000202ea 50 4f |PO | ADDQ.L #0x8,A7
000202ec 4a 1f |J | TST.B (A7)+
000202ee 67 04 |g | BEQ 0x202f4
000202f0 14 82 | | MOVE.B D2,(A2)
000202f2 60 18 |` | BRA 0x2030c
000202f4 55 4f |UO | SUBQ.L #0x2,A7
000202f6 2f 14 |/ | MOVE.L (A4),-(A7)
000202f8 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7)
000202fc 4e b9 00 01 02 c8 |N | JSR StringEqual(a, b : String) : Byte
00020302 50 4f |PO | ADDQ.L #0x8,A7
00020304 4a 1f |J | TST.B (A7)+
00020306 67 04 |g | BEQ 0x2030c
00020308 14 bc 00 02 | | MOVE.B #0x02,(A2)
0002030c 48 6e ff ec |Hn | PEA.L (A6-0x14)
00020310 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String)
00020316 58 4f |XO | ADDQ.L #0x4,A7
00020318 48 6e ff f0 |Hn | PEA.L (A6-0x10)
0002031c 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String)
00020322 58 4f |XO | ADDQ.L #0x4,A7
00020324 48 54 |HT | PEA.L (A4)
00020326 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String)
0002032c 58 4f |XO | ADDQ.L #0x4,A7
0002032e 4a 12 |J | TST.B (A2)
00020330 66 26 |f& | BNE 0x20358
00020332 41 fa fe 0c |A | LEA.L 0x20140,A0
00020336 70 06 |p | MOVEQ.L #0x06,D0
00020338 3f 20 |? | MOVE.W -(A0),-(A7)
0002033a 51 c8 ff fc |Q | DBF D0,0x20338
0002033e 59 4f |YO | SUBQ.L #0x4,A7
00020340 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00020344 3f 01 |? | MOVE.W D1,-(A7)
00020346 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7)
0002034a 4e 93 |N | JSR (A3)
0002034c 50 4f |PO | ADDQ.L #0x8,A7
0002034e 4e b9 00 02 10 ea |N | JSR 0x210ea
00020354 de fc 00 12 | | ADDA.W #0x12,A7
00020358 10 12 | | MOVE.B (A2),D0
0002035a b0 02 | | CMP.B D2,D0
0002035c 66 00 00 ee |f | BNE 0x2044c
00020360 2f 3a fd de |/: | MOVE.L 0x20140,-(A7)
00020364 59 4f |YO | SUBQ.L #0x4,A7
00020366 48 6f 00 04 |Ho | PEA.L (A7+0x4)
0002036a 3f 01 |? | MOVE.W D1,-(A7)
0002036c 3f 03 |? | MOVE.W D3,-(A7)
0002036e 4e 93 |N | JSR (A3)
00020370 50 4f |PO | ADDQ.L #0x8,A7
00020372 28 9f |( | MOVE.L (A7)+,(A4)
00020374 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7)
00020378 48 78 00 01 |Hx | PEA.L 0x1
0002037c 2f 14 |/ | MOVE.L (A4),-(A7)
0002037e 48 6e ff f4 |Hn | PEA.L (A6-0xc)
00020382 48 6e ff fa |Hn | PEA.L (A6-0x6)
00020386 4e b9 00 02 43 4a |N CJ | JSR 0x2434a
0002038c de fc 00 14 | | ADDA.W #0x14,A7
00020390 48 54 |HT | PEA.L (A4)
00020392 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String)
00020398 58 4f |XO | ADDQ.L #0x4,A7
0002039a 4a 2e ff fa |J. | TST.B (A6-0x6)
0002039e 66 06 |f | BNE 0x203a6
000203a0 42 ae ff fc |B | CLR.L (A6-0x4)
000203a4 60 74 |`t | BRA 0x2041a
000203a6 20 6e ff f4 | n | MOVEA.L (A6-0xc),A0
000203aa b0 c1 | | CMPA.W D1,A0
000203ac 66 02 |f | BNE 0x203b0
000203ae 60 f0 |` | BRA 0x203a0
000203b0 2f 08 |/ | MOVE.L A0,-(A7)
000203b2 48 6e ff fa |Hn | PEA.L (A6-0x6)
000203b6 48 6e ff fc |Hn | PEA.L (A6-0x4)
000203ba 4e b9 00 01 02 ec |N | JSR String2Long(src : String; VAR status : Bool; VAR retval : Long)
000203c0 de c4 | | ADDA.W D4,A7
000203c2 4a 2e ff fa |J. | TST.B (A6-0x6)
000203c6 66 22 |f" | BNE 0x203ea
000203c8 2f 3a fd 82 |/: | MOVE.L 0x2014c,-(A7)
000203cc 2f 3a fd 7a |/: z | MOVE.L 0x20148,-(A7)
000203d0 2f 3a fd 72 |/: r | MOVE.L 0x20144,-(A7)
000203d4 59 4f |YO | SUBQ.L #0x4,A7
000203d6 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000203da 3f 01 |? | MOVE.W D1,-(A7)
000203dc 3f 04 |? | MOVE.W D4,-(A7)
000203de 4e 93 |N | JSR (A3)
000203e0 50 4f |PO | ADDQ.L #0x8,A7
000203e2 4e b9 00 02 10 ea |N | JSR 0x210ea
000203e8 de c6 | | ADDA.W D6,A7
000203ea 4a ae ff fc |J | TST.L (A6-0x4)
000203ee 6d 08 |m | BLT 0x203f8
000203f0 20 2e ff fc | . | MOVE.L (A6-0x4),D0
000203f4 b0 82 | | CMP.L D2,D0
000203f6 6f 22 |o" | BLE 0x2041a
000203f8 2f 3a fd 5e |/: ^ | MOVE.L 0x20158,-(A7)
000203fc 2f 3a fd 56 |/: V | MOVE.L 0x20154,-(A7)
00020400 2f 3a fd 4e |/: N | MOVE.L 0x20150,-(A7)
00020404 59 4f |YO | SUBQ.L #0x4,A7
00020406 48 6f 00 04 |Ho | PEA.L (A7+0x4)
0002040a 3f 01 |? | MOVE.W D1,-(A7)
0002040c 3f 04 |? | MOVE.W D4,-(A7)
0002040e 4e 93 |N | JSR (A3)
00020410 50 4f |PO | ADDQ.L #0x8,A7
00020412 4e b9 00 02 10 ea |N | JSR 0x210ea
00020418 de c6 | | ADDA.W D6,A7
0002041a 20 2e ff fc | . | MOVE.L (A6-0x4),D0
0002041e b0 82 | | CMP.L D2,D0
00020420 63 02 |c | BLS 0x20424
00020422 4e 4f |NO | TRAP #15
00020424 3f 00 |? | MOVE.W D0,-(A7)
00020426 42 27 |B' | CLR.B -(A7)
00020428 1f 01 | | MOVE.B D1,-(A7)
0002042a 48 6e ff f8 |Hn | PEA.L (A6-0x8)
0002042e 4e b9 00 01 04 0c |N | JSR FSCALL_1040c
00020434 de c5 | | ADDA.W D5,A7
00020436 4a 2e ff f8 |J. | TST.B (A6-0x8)
0002043a 67 10 |g | BEQ 0x2044c
0002043c 1f 01 | | MOVE.B D1,-(A7)
0002043e 48 6e ff f8 |Hn | PEA.L (A6-0x8)
00020442 4e b9 00 01 04 28 |N ( | JSR FSCALL_10428
00020448 5c 4f |\O | ADDQ.L #0x6,A7
0002044a 42 12 |B | CLR.B (A2)
0002044c 4c df 1f 7f |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+A0+A1+A2+A3+A4
00020450 4e 5e |N^ | UNLK A6
00020452 4e 75 |Nu | RTS
00020454 ; --------------------------------------------------------------------------------------
00020454 ; OMSI PASCAL Function
00020454 ; --------------------------------------------------------------------------------------
00020454 4e 56 ff d6 |NV | LINK.W A6,#0xffd6
00020458 bf d5 | | CMPA.L (A5),A7
0002045a 62 06 |b | BHI 0x20462
0002045c 44 fc 00 02 |D | MOVE.W #0x2,CCR
00020460 4e 76 |Nv | TRAPV
00020462 de fc 00 2a | * | ADDA.W #0x2a,A7
00020466 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7)
0002046a 43 f9 00 02 4b ec |C K | LEA.L 0x24bec,A1
00020470 4a 11 |J | TST.B (A1)
00020472 66 2e |f. | BNE 0x204a2
00020474 41 fa fc f4 |A | LEA.L 0x2016a,A0
00020478 70 06 |p | MOVEQ.L #0x06,D0
0002047a 3f 20 |? | MOVE.W -(A0),-(A7)
0002047c 51 c8 ff fc |Q | DBF D0,0x2047a
00020480 59 4f |YO | SUBQ.L #0x4,A7
00020482 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00020486 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
0002048a 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7)
0002048e 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00020494 50 4f |PO | ADDQ.L #0x8,A7
00020496 4e b9 00 02 10 ea |N | JSR 0x210ea
0002049c de fc 00 12 | | ADDA.W #0x12,A7
000204a0 60 0e |` | BRA 0x204b0
000204a2 10 11 | | MOVE.B (A1),D0
000204a4 0c 00 00 03 | | CMPI.B #0x03,D0
000204a8 66 06 |f | BNE 0x204b0
000204aa 4e b9 00 01 04 10 |N | JSR FSCALL_10410
000204b0 42 11 |B | CLR.B (A1)
000204b2 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1
000204b6 4e 5e |N^ | UNLK A6
000204b8 4e 75 |Nu | RTS
000204ba ; --------------------------------------------------------------------------------------
000204ba ; OMSI PASCAL Function
000204ba ; <LVAR 0x008 4(r)>
000204ba ; <LVAR -0x008 @ 4(rw)>
000204ba ; <LVAR -0x00c @ 4(r)>
000204ba ; <LVAR -0x018 4(rw)>
000204ba ; --------------------------------------------------------------------------------------
000204ba 4e 56 ff 80 |NV | LINK.W A6,#0xff80
000204be bf d5 | | CMPA.L (A5),A7
000204c0 62 06 |b | BHI 0x204c8
000204c2 44 fc 00 02 |D | MOVE.W #0x2,CCR
000204c6 4e 76 |Nv | TRAPV
000204c8 de fc 00 68 | h | ADDA.W #0x68,A7
000204cc 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
000204d0 45 ee ff f8 |E | LEA.L (A6-0x8),A2
000204d4 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
000204da 49 ee ff e8 |I | LEA.L (A6-0x18),A4
000204de 74 01 |t | MOVEQ.L #0x01,D2
000204e0 3f 3a fc a2 |?: | MOVE.W 0x20184,-(A7)
000204e4 3f 3a fc 9c |?: | MOVE.W 0x20182,-(A7)
000204e8 3f 3a fc 96 |?: | MOVE.W 0x20180,-(A7)
000204ec 3f 3a fc 98 |?: | MOVE.W 0x20186,-(A7)
000204f0 51 4f |QO | SUBQ.L #0x8,A7
000204f2 20 4f | O | MOVEA.L A7,A0
000204f4 43 fa fc 92 |C | LEA.L 0x20188,A1
000204f8 70 06 |p | MOVEQ.L #0x06,D0
000204fa 10 d9 | | MOVE.B (A1)+,(A0)+
000204fc 51 c8 ff fc |Q | DBF D0,0x204fa
00020500 51 4f |QO | SUBQ.L #0x8,A7
00020502 48 6f 00 12 |Ho | PEA.L (A7+0x12)
00020506 3f 02 |? | MOVE.W D2,-(A7)
00020508 3f 3c 00 06 |?< | MOVE.W #0x6,-(A7)
0002050c 4e 93 |N | JSR (A3)
0002050e 2e b9 00 02 6b ee |. k | MOVE.L 0x26bee,(A7)
00020514 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String
0002051a 48 6f 00 18 |Ho | PEA.L (A7+0x18)
0002051e 3f 02 |? | MOVE.W D2,-(A7)
00020520 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7)
00020524 4e 93 |N | JSR (A3)
00020526 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7)
0002052a 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String
00020530 48 6f 00 18 |Ho | PEA.L (A7+0x18)
00020534 3f 02 |? | MOVE.W D2,-(A7)
00020536 3f 3c 00 07 |?< | MOVE.W #0x7,-(A7)
0002053a 4e 93 |N | JSR (A3)
0002053c 50 4f |PO | ADDQ.L #0x8,A7
0002053e 4e b9 00 01 02 dc |N | JSR StringCat5(a, b, c, d, e : String) : String
00020544 de fc 00 14 | | ADDA.W #0x14,A7
00020548 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
0002054e de fc 00 14 | | ADDA.W #0x14,A7
00020552 52 b9 00 02 6b ee |R k | ADDQ.L #0x1,0x26bee
00020558 42 94 |B | CLR.L (A4)
0002055a 7a 00 |z | MOVEQ.L #0x00,D5
0002055c 48 6e ff f4 |Hn | PEA.L (A6-0xc)
00020560 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String)
00020566 58 4f |XO | ADDQ.L #0x4,A7
00020568 20 2e 00 08 | . | MOVE.L (A6+0x8),D0
0002056c 52 80 |R | ADDQ.L #0x1,D0
0002056e 28 00 |( | MOVE.L D0,D4
00020570 76 02 |v | MOVEQ.L #0x02,D3
00020572 4e b9 00 01 02 94 |N | JSR ?divs_d3_d4
00020578 b8 94 | | CMP.L (A4),D4
0002057a 6f 00 01 a4 |o | BLE 0x20720
0002057e 48 52 |HR | PEA.L (A2)
00020580 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String)
00020586 58 4f |XO | ADDQ.L #0x4,A7
00020588 7c 00 || | MOVEQ.L #0x00,D6
0002058a 59 4f |YO | SUBQ.L #0x4,A7
0002058c 2f 12 |/ | MOVE.L (A2),-(A7)
0002058e 59 4f |YO | SUBQ.L #0x4,A7
00020590 20 14 | | MOVE.L (A4),D0
00020592 d0 86 | | ADD.L D6,D0
00020594 0c 80 00 00 0f ff | | CMPI.L #0x00000fff,D0
0002059a 63 02 |c | BLS 0x2059e
0002059c 4e 4f |NO | TRAP #15
0002059e e3 80 | | ASL.L #0x1,D0
000205a0 41 f9 00 02 4b e4 |A K | LEA.L 0x24be4,A0
000205a6 42 81 |B | CLR.L D1
000205a8 32 30 08 0a |20 | MOVE.W (A0+D0.L+#0xa),D1
000205ac 2f 01 |/ | MOVE.L D1,-(A7)
000205ae 48 78 00 04 |Hx | PEA.L 0x4
000205b2 4e b9 00 01 02 e8 |N | JSR Long2HexString(val : Long; ndig : Long) : String
000205b8 50 4f |PO | ADDQ.L #0x8,A7
000205ba 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
000205c0 50 4f |PO | ADDQ.L #0x8,A7
000205c2 24 9f |$ | MOVE.L (A7)+,(A2)
000205c4 2f 12 |/ | MOVE.L (A2),-(A7)
000205c6 1f 3c 00 20 | < | MOVE.B #0x20,-(A7)
000205ca 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char)
000205d0 5c 4f |\O | ADDQ.L #0x6,A7
000205d2 52 86 |R | ADDQ.L #0x1,D6
000205d4 0c 86 00 00 00 07 | | CMPI.L #0x00000007,D6
000205da 6f ae |o | BLE 0x2058a
000205dc 55 4f |UO | SUBQ.L #0x2,A7
000205de 2f 2e ff f4 |/. | MOVE.L (A6-0xc),-(A7)
000205e2 2f 12 |/ | MOVE.L (A2),-(A7)
000205e4 4e b9 00 01 02 c8 |N | JSR StringEqual(a, b : String) : Byte
000205ea 50 4f |PO | ADDQ.L #0x8,A7
000205ec 4a 1f |J | TST.B (A7)+
000205ee 67 0e |g | BEQ 0x205fe
000205f0 52 85 |R | ADDQ.L #0x1,D5
000205f2 48 52 |HR | PEA.L (A2)
000205f4 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String)
000205fa 60 00 01 1c |` | BRA 0x20718
000205fe 4a 85 |J | TST.L D5
00020600 67 3c |g< | BEQ 0x2063e
00020602 9e fc 00 16 | | SUBA.W #0x16,A7
00020606 20 4f | O | MOVEA.L A7,A0
00020608 43 fa fb 60 |C ` | LEA.L 0x2016a,A1
0002060c 70 14 |p | MOVEQ.L #0x14,D0
0002060e 10 d9 | | MOVE.B (A1)+,(A0)+
00020610 51 c8 ff fc |Q | DBF D0,0x2060e
00020614 51 4f |QO | SUBQ.L #0x8,A7
00020616 2f 05 |/ | MOVE.L D5,-(A7)
00020618 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String
0002061e 48 6f 00 0c |Ho | PEA.L (A7+0xc)
00020622 3f 02 |? | MOVE.W D2,-(A7)
00020624 3f 3c 00 15 |?< | MOVE.W #0x15,-(A7)
00020628 4e 93 |N | JSR (A3)
0002062a 50 4f |PO | ADDQ.L #0x8,A7
0002062c 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00020632 50 4f |PO | ADDQ.L #0x8,A7
00020634 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
0002063a de fc 00 1a | | ADDA.W #0x1a,A7
0002063e 7a 00 |z | MOVEQ.L #0x00,D5
00020640 20 6e ff f4 | n | MOVEA.L (A6-0xc),A0
00020644 22 52 |"R | MOVEA.L (A2),A1
00020646 70 7f |p | MOVEQ.L #0x7f,D0
00020648 10 d9 | | MOVE.B (A1)+,(A0)+
0002064a 51 c8 ff fc |Q | DBF D0,0x20648
0002064e 3f 3a fb 40 |?: @ | MOVE.W 0x20190,-(A7)
00020652 2f 3a fb 3e |/: > | MOVE.L 0x20192,-(A7)
00020656 51 4f |QO | SUBQ.L #0x8,A7
00020658 2f 14 |/ | MOVE.L (A4),-(A7)
0002065a 48 78 00 04 |Hx | PEA.L 0x4
0002065e 4e b9 00 01 02 e8 |N | JSR Long2HexString(val : Long; ndig : Long) : String
00020664 58 4f |XO | ADDQ.L #0x4,A7
00020666 48 6f 00 10 |Ho | PEA.L (A7+0x10)
0002066a 3f 02 |? | MOVE.W D2,-(A7)
0002066c 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7)
00020670 4e 93 |N | JSR (A3)
00020672 58 4f |XO | ADDQ.L #0x4,A7
00020674 2e 92 |. | MOVE.L (A2),(A7)
00020676 59 4f |YO | SUBQ.L #0x4,A7
00020678 48 6f 00 14 |Ho | PEA.L (A7+0x14)
0002067c 3f 02 |? | MOVE.W D2,-(A7)
0002067e 3f 3c 00 04 |?< | MOVE.W #0x4,-(A7)
00020682 4e 93 |N | JSR (A3)
00020684 50 4f |PO | ADDQ.L #0x8,A7
00020686 4e b9 00 01 02 d8 |N | JSR StringCat4(a, b, c, d : String) : String
0002068c de fc 00 10 | | ADDA.W #0x10,A7
00020690 24 9f |$ | MOVE.L (A7)+,(A2)
00020692 5c 4f |\O | ADDQ.L #0x6,A7
00020694 7c 00 || | MOVEQ.L #0x00,D6
00020696 28 06 |( | MOVE.L D6,D4
00020698 76 02 |v | MOVEQ.L #0x02,D3
0002069a 4e b9 00 01 02 94 |N | JSR ?divs_d3_d4
000206a0 d8 94 | | ADD.L (A4),D4
000206a2 0c 84 00 00 0f ff | | CMPI.L #0x00000fff,D4
000206a8 63 02 |c | BLS 0x206ac
000206aa 4e 4f |NO | TRAP #15
000206ac e3 84 | | ASL.L #0x1,D4
000206ae 41 f9 00 02 4b e4 |A K | LEA.L 0x24be4,A0
000206b4 42 80 |B | CLR.L D0
000206b6 30 30 48 0a |00H | MOVE.W (A0+D4.L+#0xa),D0
000206ba 2e 00 |. | MOVE.L D0,D7
000206bc 20 06 | | MOVE.L D6,D0
000206be c0 82 | | AND.L D2,D0
000206c0 66 10 |f | BNE 0x206d2
000206c2 28 07 |( | MOVE.L D7,D4
000206c4 26 3c 00 00 01 00 |&< | MOVE.L #0x100,D3
000206ca 4e b9 00 01 02 94 |N | JSR ?divs_d3_d4
000206d0 2e 04 |. | MOVE.L D4,D7
000206d2 02 87 00 00 00 ff | | ANDI.L #0x000000ff,D7
000206d8 0c 87 00 00 00 20 | | CMPI.L #0x00000020,D7
000206de 6d 08 |m | BLT 0x206e8
000206e0 0c 87 00 00 00 7e | ~ | CMPI.L #0x0000007e,D7
000206e6 6f 08 |o | BLE 0x206f0
000206e8 2f 12 |/ | MOVE.L (A2),-(A7)
000206ea 1f 3c 00 2e | < . | MOVE.B #0x2e,-(A7)
000206ee 60 0e |` | BRA 0x206fe
000206f0 2f 12 |/ | MOVE.L (A2),-(A7)
000206f2 0c 87 00 00 00 ff | | CMPI.L #0x000000ff,D7
000206f8 63 02 |c | BLS 0x206fc
000206fa 4e 4f |NO | TRAP #15
000206fc 1f 07 | | MOVE.B D7,-(A7)
000206fe 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char)
00020704 5c 4f |\O | ADDQ.L #0x6,A7
00020706 52 86 |R | ADDQ.L #0x1,D6
00020708 0c 86 00 00 00 0f | | CMPI.L #0x0000000f,D6
0002070e 6f 86 |o | BLE 0x20696
00020710 2f 12 |/ | MOVE.L (A2),-(A7)
00020712 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00020718 58 4f |XO | ADDQ.L #0x4,A7
0002071a 50 94 |P | ADDQ.L #0x8,(A4)
0002071c 60 00 fe 4a |` J | BRA 0x20568
00020720 4a 85 |J | TST.L D5
00020722 67 3c |g< | BEQ 0x20760
00020724 9e fc 00 16 | | SUBA.W #0x16,A7
00020728 20 4f | O | MOVEA.L A7,A0
0002072a 43 fa fa 3e |C > | LEA.L 0x2016a,A1
0002072e 70 14 |p | MOVEQ.L #0x14,D0
00020730 10 d9 | | MOVE.B (A1)+,(A0)+
00020732 51 c8 ff fc |Q | DBF D0,0x20730
00020736 51 4f |QO | SUBQ.L #0x8,A7
00020738 2f 05 |/ | MOVE.L D5,-(A7)
0002073a 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String
00020740 48 6f 00 0c |Ho | PEA.L (A7+0xc)
00020744 3f 02 |? | MOVE.W D2,-(A7)
00020746 3f 3c 00 15 |?< | MOVE.W #0x15,-(A7)
0002074a 4e 93 |N | JSR (A3)
0002074c 50 4f |PO | ADDQ.L #0x8,A7
0002074e 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00020754 50 4f |PO | ADDQ.L #0x8,A7
00020756 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
0002075c de fc 00 1a | | ADDA.W #0x1a,A7
00020760 48 6e ff f4 |Hn | PEA.L (A6-0xc)
00020764 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String)
0002076a 58 4f |XO | ADDQ.L #0x4,A7
0002076c 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00020770 4e 5e |N^ | UNLK A6
00020772 4e 75 |Nu | RTS
00020774 ; --------------------------------------------------------------------------------------
00020774 ; OMSI PASCAL Function
00020774 ; <LVAR -0x008 @ 1(r)>
00020774 ; --------------------------------------------------------------------------------------
00020774 4e 56 ff d8 |NV | LINK.W A6,#0xffd8
00020778 bf d5 | | CMPA.L (A5),A7
0002077a 62 06 |b | BHI 0x20782
0002077c 44 fc 00 02 |D | MOVE.W #0x2,CCR
00020780 4e 76 |Nv | TRAPV
00020782 de fc 00 20 | | ADDA.W #0x20,A7
00020786 48 e7 c1 c0 |H | MOVEM.L A1+A0+D7+D1+D0,-(A7)
0002078a 43 ee ff f8 |C | LEA.L (A6-0x8),A1
0002078e 22 3c 00 00 20 00 |"< | MOVE.L #0x2000,D1
00020794 41 f9 00 02 4b ee |A K | LEA.L 0x24bee,A0
0002079a 2f 08 |/ | MOVE.L A0,-(A7)
0002079c 3f 01 |? | MOVE.W D1,-(A7)
0002079e 4e b9 00 01 04 18 |N | JSR FSCALL_10418
000207a4 5c 4f |\O | ADDQ.L #0x6,A7
000207a6 48 51 |HQ | PEA.L (A1)
000207a8 4e b9 00 01 04 08 |N | JSR FSCALL_10408
000207ae 58 4f |XO | ADDQ.L #0x4,A7
000207b0 7e ff |~ | MOVEQ.L #-0x01,D7
000207b2 10 11 | | MOVE.B (A1),D0
000207b4 0c 00 00 07 | | CMPI.B #0x07,D0
000207b8 66 0e |f | BNE 0x207c8
000207ba 59 4f |YO | SUBQ.L #0x4,A7
000207bc 4e b9 00 01 04 30 |N 0 | JSR FSCALL_10430
000207c2 2e 01 |. | MOVE.L D1,D7
000207c4 9e 9f | | SUB.L (A7)+,D7
000207c6 60 20 |` | BRA 0x207e8
000207c8 0c 00 00 06 | | CMPI.B #0x06,D0
000207cc 66 04 |f | BNE 0x207d2
000207ce 7e 00 |~ | MOVEQ.L #0x00,D7
000207d0 60 16 |` | BRA 0x207e8
000207d2 4a 00 |J | TST.B D0
000207d4 66 04 |f | BNE 0x207da
000207d6 2e 01 |. | MOVE.L D1,D7
000207d8 60 0e |` | BRA 0x207e8
000207da 1f 3c 00 01 | < | MOVE.B #0x01,-(A7)
000207de 48 51 |HQ | PEA.L (A1)
000207e0 4e b9 00 01 04 28 |N ( | JSR FSCALL_10428
000207e6 5c 4f |\O | ADDQ.L #0x6,A7
000207e8 0c 87 ff ff ff ff | | CMPI.L #0xffffffff,D7
000207ee 67 08 |g | BEQ 0x207f8
000207f0 2f 07 |/ | MOVE.L D7,-(A7)
000207f2 4e ba fc c6 |N | JSR 0x204ba
000207f6 58 4f |XO | ADDQ.L #0x4,A7
000207f8 4c df 03 83 |L | MOVEM.L (A7)+,D0+D1+D7+A0+A1
000207fc 4e 5e |N^ | UNLK A6
000207fe 4e 75 |Nu | RTS
00020800 ; --------------------------------------------------------------------------------------
00020800 ; OMSI PASCAL Function
00020800 ; <LVAR 0x008 4(r)>
00020800 ; --------------------------------------------------------------------------------------
00020800 4e 56 ff d6 |NV | LINK.W A6,#0xffd6
00020804 bf d5 | | CMPA.L (A5),A7
00020806 62 06 |b | BHI 0x2080e
00020808 44 fc 00 02 |D | MOVE.W #0x2,CCR
0002080c 4e 76 |Nv | TRAPV
0002080e de fc 00 2a | * | ADDA.W #0x2a,A7
00020812 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7)
00020816 43 f9 00 02 4b ec |C K | LEA.L 0x24bec,A1
0002081c 4a 11 |J | TST.B (A1)
0002081e 66 2e |f. | BNE 0x2084e
00020820 41 fa f9 82 |A | LEA.L 0x201a4,A0
00020824 70 06 |p | MOVEQ.L #0x06,D0
00020826 3f 20 |? | MOVE.W -(A0),-(A7)
00020828 51 c8 ff fc |Q | DBF D0,0x20826
0002082c 59 4f |YO | SUBQ.L #0x4,A7
0002082e 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00020832 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
00020836 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7)
0002083a 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00020840 50 4f |PO | ADDQ.L #0x8,A7
00020842 4e b9 00 02 10 ea |N | JSR 0x210ea
00020848 de fc 00 12 | | ADDA.W #0x12,A7
0002084c 60 12 |` | BRA 0x20860
0002084e 10 11 | | MOVE.B (A1),D0
00020850 0c 00 00 03 | | CMPI.B #0x03,D0
00020854 66 0a |f | BNE 0x20860
00020856 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
0002085a 4e ba ff 18 |N | JSR 0x20774
0002085e 58 4f |XO | ADDQ.L #0x4,A7
00020860 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1
00020864 4e 5e |N^ | UNLK A6
00020866 4e 75 |Nu | RTS
00020868 ; --------------------------------------------------------------------------------------
00020868 ; OMSI PASCAL Function
00020868 ; <LVAR -0x004 @ 1(r)>
00020868 ; --------------------------------------------------------------------------------------
00020868 4e 56 ff c0 |NV | LINK.W A6,#0xffc0
0002086c bf d5 | | CMPA.L (A5),A7
0002086e 62 06 |b | BHI 0x20876
00020870 44 fc 00 02 |D | MOVE.W #0x2,CCR
00020874 4e 76 |Nv | TRAPV
00020876 de fc 00 3c | < | ADDA.W #0x3c,A7
0002087a 48 e7 c0 c0 |H | MOVEM.L A1+A0+D1+D0,-(A7)
0002087e 43 ee ff fc |C | LEA.L (A6-0x4),A1
00020882 72 01 |r | MOVEQ.L #0x01,D1
00020884 10 39 00 02 4b ec | 9 K | MOVE.B 0x24bec,D0
0002088a 0c 00 00 03 | | CMPI.B #0x03,D0
0002088e 67 2c |g, | BEQ 0x208bc
00020890 41 fa f9 2e |A . | LEA.L 0x201c0,A0
00020894 70 06 |p | MOVEQ.L #0x06,D0
00020896 2f 20 |/ | MOVE.L -(A0),-(A7)
00020898 51 c8 ff fc |Q | DBF D0,0x20896
0002089c 59 4f |YO | SUBQ.L #0x4,A7
0002089e 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000208a2 3f 01 |? | MOVE.W D1,-(A7)
000208a4 3f 3c 00 1c |?< | MOVE.W #0x1c,-(A7)
000208a8 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
000208ae 50 4f |PO | ADDQ.L #0x8,A7
000208b0 4e b9 00 02 10 ea |N | JSR 0x210ea
000208b6 de fc 00 20 | | ADDA.W #0x20,A7
000208ba 60 1c |` | BRA 0x208d8
000208bc 42 27 |B' | CLR.B -(A7)
000208be 48 51 |HQ | PEA.L (A1)
000208c0 4e b9 00 01 04 14 |N | JSR FSCALL_10414
000208c6 5c 4f |\O | ADDQ.L #0x6,A7
000208c8 4a 11 |J | TST.B (A1)
000208ca 67 0c |g | BEQ 0x208d8
000208cc 1f 01 | | MOVE.B D1,-(A7)
000208ce 48 51 |HQ | PEA.L (A1)
000208d0 4e b9 00 01 04 28 |N ( | JSR FSCALL_10428
000208d6 5c 4f |\O | ADDQ.L #0x6,A7
000208d8 4c df 03 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1
000208dc 4e 5e |N^ | UNLK A6
000208de 4e 75 |Nu | RTS
000208e0 ; --------------------------------------------------------------------------------------
000208e0 ; OMSI PASCAL Function
000208e0 ; <LVAR 0x00c 4(w)>
000208e0 ; <LVAR 0x008 4(r)>
000208e0 ; <LVAR -0x008 @ 4(rw)>
000208e0 ; --------------------------------------------------------------------------------------
000208e0 4e 56 ff aa |NV | LINK.W A6,#0xffaa
000208e4 bf d5 | | CMPA.L (A5),A7
000208e6 62 06 |b | BHI 0x208ee
000208e8 44 fc 00 02 |D | MOVE.W #0x2,CCR
000208ec 4e 76 |Nv | TRAPV
000208ee de fc 00 4a | J | ADDA.W #0x4a,A7
000208f2 48 e7 ff e0 |H | MOVEM.L A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
000208f6 45 ee ff f8 |E | LEA.L (A6-0x8),A2
000208fa 72 03 |r | MOVEQ.L #0x03,D1
000208fc 74 0a |t | MOVEQ.L #0x0a,D2
000208fe 7a 01 |z | MOVEQ.L #0x01,D5
00020900 2d 7c ff ff ff ff 00 0c |-| | MOVE.L #0xffffffff,(A6+0xc)
00020908 7e 00 |~ | MOVEQ.L #0x00,D7
0002090a be 81 | | CMP.L D1,D7
0002090c 63 02 |c | BLS 0x20910
0002090e 4e 4f |NO | TRAP #15
00020910 28 07 |( | MOVE.L D7,D4
00020912 76 0a |v | MOVEQ.L #0x0a,D3
00020914 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4
0002091a 41 fa f8 d6 |A | LEA.L 0x201f2,A0
0002091e 9e c2 | | SUBA.W D2,A7
00020920 22 4f |"O | MOVEA.L A7,A1
00020922 41 f0 48 00 |A H | LEA.L (A0+D4.L),A0
00020926 70 09 |p | MOVEQ.L #0x09,D0
00020928 12 d8 | | MOVE.B (A0)+,(A1)+
0002092a 51 c8 ff fc |Q | DBF D0,0x20928
0002092e 59 4f |YO | SUBQ.L #0x4,A7
00020930 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00020934 3f 05 |? | MOVE.W D5,-(A7)
00020936 3f 02 |? | MOVE.W D2,-(A7)
00020938 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
0002093e 50 4f |PO | ADDQ.L #0x8,A7
00020940 24 9f |$ | MOVE.L (A7)+,(A2)
00020942 58 4f |XO | ADDQ.L #0x4,A7
00020944 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7)
00020948 2f 12 |/ | MOVE.L (A2),-(A7)
0002094a 4e b9 00 01 02 c8 |N | JSR StringEqual(a, b : String) : Byte
00020950 50 4f |PO | ADDQ.L #0x8,A7
00020952 10 1f | | MOVE.B (A7)+,D0
00020954 48 80 |H | EXTB.W D0
00020956 41 85 |A | CHK.W D5,D0
00020958 1c 00 | | MOVE.B D0,D6
0002095a 48 52 |HR | PEA.L (A2)
0002095c 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String)
00020962 58 4f |XO | ADDQ.L #0x4,A7
00020964 4a 06 |J | TST.B D6
00020966 67 06 |g | BEQ 0x2096e
00020968 2d 47 00 0c |-G | MOVE.L D7,(A6+0xc)
0002096c 60 06 |` | BRA 0x20974
0002096e 52 87 |R | ADDQ.L #0x1,D7
00020970 be 81 | | CMP.L D1,D7
00020972 6f 96 |o | BLE 0x2090a
00020974 4c df 07 ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2
00020978 4e 5e |N^ | UNLK A6
0002097a 4e 75 |Nu | RTS
0002097c ; --------------------------------------------------------------------------------------
0002097c ; OMSI PASCAL Function
0002097c ; <LVAR 0x010 4(r)>
0002097c ; <LVAR 0x00c 4(r)>
0002097c ; <LVAR 0x008 4(r)>
0002097c ; --------------------------------------------------------------------------------------
0002097c 4e 56 ff e4 |NV | LINK.W A6,#0xffe4
00020980 bf d5 | | CMPA.L (A5),A7
00020982 62 06 |b | BHI 0x2098a
00020984 44 fc 00 02 |D | MOVE.W #0x2,CCR
00020988 4e 76 |Nv | TRAPV
0002098a de fc 00 1c | | ADDA.W #0x1c,A7
0002098e 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7)
00020992 43 ee 00 0c |C | LEA.L (A6+0xc),A1
00020996 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0
0002099a 10 bc 00 01 | | MOVE.B #0x01,(A0)
0002099e 59 4f |YO | SUBQ.L #0x4,A7
000209a0 2f 2e 00 10 |/. | MOVE.L (A6+0x10),-(A7)
000209a4 4e ba ff 3a |N : | JSR 0x208e0
000209a8 58 4f |XO | ADDQ.L #0x4,A7
000209aa 20 1f | | MOVE.L (A7)+,D0
000209ac 0c 80 00 00 00 03 | | CMPI.L #0x00000003,D0
000209b2 62 34 |b4 | BHI 0x209e8
000209b4 d0 40 | @ | ADD.W D0,D0
000209b6 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W
000209be 00 08 | | .CONST 0x8 ; [0x0] -> 0x209c6
000209c0 00 12 | | .CONST 0x12 ; [0x1] -> 0x209d0
000209c2 00 1a | | .CONST 0x1a ; [0x2] -> 0x209d8
000209c4 00 22 | " | .CONST 0x22 ; [0x3] -> 0x209e0
000209c6 switch@0x209b6[0x0]:
000209c6 2f 11 |/ | MOVE.L (A1),-(A7)
000209c8 4e ba fe 36 |N 6 | JSR 0x20800
000209cc 58 4f |XO | ADDQ.L #0x4,A7
000209ce 60 1a |` | BRA 0x209ea
000209d0 switch@0x209b6[0x1]:
000209d0 2f 11 |/ | MOVE.L (A1),-(A7)
000209d2 4e ba fe 94 |N | JSR 0x20868
000209d6 60 f4 |` | BRA 0x209cc
000209d8 switch@0x209b6[0x2]:
000209d8 2f 11 |/ | MOVE.L (A1),-(A7)
000209da 4e ba f8 3e |N > | JSR 0x2021a
000209de 60 ec |` | BRA 0x209cc
000209e0 switch@0x209b6[0x3]:
000209e0 2f 11 |/ | MOVE.L (A1),-(A7)
000209e2 4e ba fa 70 |N p | JSR 0x20454
000209e6 60 e4 |` | BRA 0x209cc
000209e8 42 10 |B | CLR.B (A0)
000209ea 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1
000209ee 4e 5e |N^ | UNLK A6
000209f0 4e 75 |Nu | RTS
000209f2 ; --------------------------------------------------------------------------------------
000209f2 ; OMSI PASCAL Function
000209f2 ; <LVAR 0x008 4(r)>
000209f2 ; --------------------------------------------------------------------------------------
000209f2 4e 56 ff f0 |NV | LINK.W A6,#0xfff0
000209f6 bf d5 | | CMPA.L (A5),A7
000209f8 62 06 |b | BHI 0x20a00
000209fa 44 fc 00 02 |D | MOVE.W #0x2,CCR
000209fe 4e 76 |Nv | TRAPV
00020a00 de fc 00 10 | | ADDA.W #0x10,A7
00020a04 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7)
00020a08 4e b9 00 01 03 98 |N | JSR FSCALL_10398
00020a0e 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0
00020a12 43 fa f7 d4 |C | LEA.L 0x201e8,A1
00020a16 70 09 |p | MOVEQ.L #0x09,D0
00020a18 10 d9 | | MOVE.B (A1)+,(A0)+
00020a1a 51 c8 ff fc |Q | DBF D0,0x20a18
00020a1e 42 39 00 02 4b ec |B9 K | CLR.B 0x24bec
00020a24 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1
00020a28 4e 5e |N^ | UNLK A6
00020a2a 4e 75 |Nu | RTS
00020a2c ; --------------------------------------------------------------------------------------
00020a2c ; COMMAND TABLE
00020a2c ; --------------------------------------------------------------------------------------
00020a2c COMMAND_TABLE_20a2c:
00020a2c 21 40 23 24 25 5e 26 2a |!@#$%^&*| .TXT '!@#$%^&*()'
00020a36 57 52 49 54 45 20 20 20 |WRITE | .TXT 'WRITE '
00020a40 42 59 45 20 20 20 20 20 |BYE | .TXT 'BYE '
00020a4a 48 45 41 50 20 20 20 20 |HEAP | .TXT 'HEAP '
00020a54 48 45 4c 50 20 20 20 20 |HELP | .TXT 'HELP '
00020a5e 41 42 4f 52 54 20 20 20 |ABORT | .TXT 'ABORT '
00020a68 43 4f 4d 4d 45 4e 54 20 |COMMENT | .TXT 'COMMENT '
00020a72 53 45 54 20 20 20 20 20 |SET | .TXT 'SET '
00020a7c 56 41 52 20 20 20 20 20 |VAR | .TXT 'VAR '
00020a86 56 41 52 53 20 20 20 20 |VARS | .TXT 'VARS '
00020a90 45 51 20 20 20 20 20 20 |EQ | .TXT 'EQ '
00020a9a 4e 45 20 20 20 20 20 20 |NE | .TXT 'NE '
00020aa4 43 41 53 45 20 20 20 20 |CASE | .TXT 'CASE '
00020aae 49 4e 53 45 52 54 20 20 |INSERT | .TXT 'INSERT '
00020ab8 45 58 54 52 41 43 54 20 |EXTRACT | .TXT 'EXTRACT '
00020ac2 23 43 41 53 45 20 20 20 |#CASE | .TXT '#CASE '
00020acc 23 45 51 20 20 20 20 20 |#EQ | .TXT '#EQ '
00020ad6 23 4e 45 20 20 20 20 20 |#NE | .TXT '#NE '
00020ae0 23 4c 54 20 20 20 20 20 |#LT | .TXT '#LT '
00020aea 23 47 54 20 20 20 20 20 |#GT | .TXT '#GT '
00020af4 23 4c 45 20 20 20 20 20 |#LE | .TXT '#LE '
00020afe 23 47 45 20 20 20 20 20 |#GE | .TXT '#GE '
00020b08 41 44 44 20 20 20 20 20 |ADD | .TXT 'ADD '
00020b12 53 55 42 20 20 20 20 20 |SUB | .TXT 'SUB '
00020b1c 4d 55 4c 20 20 20 20 20 |MUL | .TXT 'MUL '
00020b26 44 49 56 20 20 20 20 20 |DIV | .TXT 'DIV '
00020b30 4d 4f 44 20 20 20 20 20 |MOD | .TXT 'MOD '
00020b3a 4f 52 20 20 20 20 20 20 |OR | .TXT 'OR '
00020b44 41 4e 44 20 20 20 20 20 |AND | .TXT 'AND '
00020b4e 58 4f 52 20 20 20 20 20 |XOR | .TXT 'XOR '
00020b58 4c 53 48 49 46 54 20 20 |LSHIFT | .TXT 'LSHIFT '
00020b62 52 53 48 49 46 54 20 20 |RSHIFT | .TXT 'RSHIFT '
00020b6c 4e 4f 54 20 20 20 20 20 |NOT | .TXT 'NOT '
00020b76 23 49 4e 53 45 52 54 20 |#INSERT | .TXT '#INSERT '
00020b80 23 45 58 54 52 41 43 54 |#EXTRACT| .TXT '#EXTRACT '
00020b8a 52 45 41 44 20 20 20 20 |READ | .TXT 'READ '
00020b94 4b 49 4c 4c 20 20 20 20 |KILL | .TXT 'KILL '
00020b9e 50 55 53 48 20 20 20 20 |PUSH | .TXT 'PUSH '
00020ba8 4c 45 56 45 4c 20 20 20 |LEVEL | .TXT 'LEVEL '
00020bb2 43 4f 4e 56 45 52 54 20 |CONVERT | .TXT 'CONVERT '
00020bbc 43 4f 55 4e 54 5f 4f 4e |COUNT_ON| .TXT 'COUNT_ONES'
00020bc6 52 45 50 45 41 54 20 20 |REPEAT | .TXT 'REPEAT '
00020bd0 4d 4f 44 45 4c 20 20 20 |MODEL | .TXT 'MODEL '
00020bda 41 53 43 49 49 20 20 20 |ASCII | .TXT 'ASCII '
00020be4 57 72 6f 6e 67 20 6e 75 |Wrong nu| .TXT 'Wrong number of arguments for :_'
00020c04 45 51 2c 4e |EQ,N | .XXX[0x4]
00020c08 45 2c 23 45 51 2c 23 4e |E,#EQ,#N| .XXX[0x38]
00020c10 45 2c 23 4c 54 2c 23 47 |E,#LT,#G|
00020c18 54 2c 23 4c 45 2c 23 47 |T,#LE,#G|
00020c20 45 2c 45 4c 53 45 5d 45 |E,ELSE]E|
00020c28 4e 44 5d 43 41 53 45 2c |ND]CASE,|
00020c30 23 43 41 53 45 2c 57 48 |#CASE,WH|
00020c38 45 4e 2c 45 4e 44 43 41 |EN,ENDCA|
00020c40 53 45 5d 20 |SE] | .XXX[0x4]
00020c44 45 76 61 6c 75 61 74 69 |Evaluati| .TXT 'Evaluation buffer overflow. '
00020c60 55 6e 62 61 6c 61 6e 63 |Unbalanc| .TXT 'Unbalanced [ELSE] or [END]! '
00020c7c 5b 57 48 45 4e 20 5d 20 |[WHEN ] | .TXT '[WHEN ] '
00020c86 4e 6f 20 63 61 73 65 20 |No case | .TXT 'No case alternative found!'
00020ca0 4e 6f 20 5b 45 4e 44 43 |No [ENDC| .TXT 'No [ENDCASE] found! '
00020cb4 4e 6f 20 68 65 6c 70 20 |No help | .TXT 'No help available for_'
00020cca 2e 48 4c 50 |.HLP | .TXT '.HLP'
00020cce 54 6f 6f 20 66 65 77 20 |Too few | .TXT 'Too few arguments for SET '
00020ce8 55 6e 6b 6e 6f 77 6e 20 |Unknown | .TXT 'Unknown variable :_ '
00020cfc 20 69 73 20 6e 6f 74 20 | is not | .TXT ' is not a program.'
00020d0e 43 4c |CL | .TXT 'CL'
00020d10 49 20 |I | .XXX[0x2]
00020d12 2e 4d 32 30 30 20 |.M200 | .TXT '.M200 '
00020d18 53 54 |ST | .TXT 'ST'
00020d1a 41 54 |AT | .TXT 'AT'
00020d1c 55 53 |US | .TXT 'US'
00020d1e 52 45 |RE | .TXT 'RE'
00020d20 53 55 |SU | .TXT 'SU'
00020d22 4c 54 |LT | .TXT 'LT'
00020d24 4f 66 66 73 65 74 2f 4c |Offset/L| .TXT 'Offset/Length error in [INSERT] '
00020d44 52 45 50 45 41 54 69 6e |REPEATin| .TXT 'REPEATing, type ^G to exit. '
00020d60 41 53 43 49 49 20 61 72 |ASCII ar| .TXT 'ASCII argument out of range.'
00020d7c 4e 6f 74 20 61 20 63 6f |Not a co| .TXT 'Not a command or macro :_ '
00020d96 49 6c 6c 65 67 61 6c 20 |Illegal | .TXT 'Illegal marker argument '
00020dae 53 77 69 74 63 68 20 65 |Switch e| .TXT 'Switch exclusion is unimplemented.'
00020dd0 49 6c 6c 65 67 61 6c 20 |Illegal | .TXT 'Illegal argument marker.'
00020de8 49 6c 6c 65 67 61 6c 20 |Illegal | .TXT 'Illegal argument marker.'
00020e00 5b 49 4e 49 54 5d 5b 20 |[INIT][ | .TXT '[INIT][ '
00020e08 5d 5b 42 59 45 5d 3b 20 |][BYE]; | .TXT '][BYE]; '
00020e10 5b 49 4e 49 54 5d 3b 20 |[INIT]; | .TXT '[INIT]; '
00020e18 3e 5f |>_ | .TXT '>_'
00020e1a 5b 20 |[ | .TXT '[ '
00020e1c 5d 3b |]; | .TXT '];'
00020e1e ; --------------------------------------------------------------------------------------
00020e1e ; COMMAND TABLE
00020e1e ; --------------------------------------------------------------------------------------
00020e1e COMMAND_TABLE_20e1e:
00020e1e 21 40 23 24 25 5e 26 2a |!@#$%^&*| .TXT '!@#$%^&*()'
00020e28 57 52 49 54 45 20 20 20 |WRITE | .TXT 'WRITE '
00020e32 42 59 45 20 20 20 20 20 |BYE | .TXT 'BYE '
00020e3c 48 45 41 50 20 20 20 20 |HEAP | .TXT 'HEAP '
00020e46 48 45 4c 50 20 20 20 20 |HELP | .TXT 'HELP '
00020e50 41 42 4f 52 54 20 20 20 |ABORT | .TXT 'ABORT '
00020e5a 43 4f 4d 4d 45 4e 54 20 |COMMENT | .TXT 'COMMENT '
00020e64 53 45 54 20 20 20 20 20 |SET | .TXT 'SET '
00020e6e 56 41 52 20 20 20 20 20 |VAR | .TXT 'VAR '
00020e78 56 41 52 53 20 20 20 20 |VARS | .TXT 'VARS '
00020e82 45 51 20 20 20 20 20 20 |EQ | .TXT 'EQ '
00020e8c 4e 45 20 20 20 20 20 20 |NE | .TXT 'NE '
00020e96 43 41 53 45 20 20 20 20 |CASE | .TXT 'CASE '
00020ea0 49 4e 53 45 52 54 20 20 |INSERT | .TXT 'INSERT '
00020eaa 45 58 54 52 41 43 54 20 |EXTRACT | .TXT 'EXTRACT '
00020eb4 23 43 41 53 45 20 20 20 |#CASE | .TXT '#CASE '
00020ebe 23 45 51 20 20 20 20 20 |#EQ | .TXT '#EQ '
00020ec8 23 4e 45 20 20 20 20 20 |#NE | .TXT '#NE '
00020ed2 23 4c 54 20 20 20 20 20 |#LT | .TXT '#LT '
00020edc 23 47 54 20 20 20 20 20 |#GT | .TXT '#GT '
00020ee6 23 4c 45 20 20 20 20 20 |#LE | .TXT '#LE '
00020ef0 23 47 45 20 20 20 20 20 |#GE | .TXT '#GE '
00020efa 41 44 44 20 20 20 20 20 |ADD | .TXT 'ADD '
00020f04 53 55 42 20 20 20 20 20 |SUB | .TXT 'SUB '
00020f0e 4d 55 4c 20 20 20 20 20 |MUL | .TXT 'MUL '
00020f18 44 49 56 20 20 20 20 20 |DIV | .TXT 'DIV '
00020f22 4d 4f 44 20 20 20 20 20 |MOD | .TXT 'MOD '
00020f2c 4f 52 20 20 20 20 20 20 |OR | .TXT 'OR '
00020f36 41 4e 44 20 20 20 20 20 |AND | .TXT 'AND '
00020f40 58 4f 52 20 20 20 20 20 |XOR | .TXT 'XOR '
00020f4a 4c 53 48 49 46 54 20 20 |LSHIFT | .TXT 'LSHIFT '
00020f54 52 53 48 49 46 54 20 20 |RSHIFT | .TXT 'RSHIFT '
00020f5e 4e 4f 54 20 20 20 20 20 |NOT | .TXT 'NOT '
00020f68 23 49 4e 53 45 52 54 20 |#INSERT | .TXT '#INSERT '
00020f72 23 45 58 54 52 41 43 54 |#EXTRACT| .TXT '#EXTRACT '
00020f7c 52 45 41 44 20 20 20 20 |READ | .TXT 'READ '
00020f86 4b 49 4c 4c 20 20 20 20 |KILL | .TXT 'KILL '
00020f90 50 55 53 48 20 20 20 20 |PUSH | .TXT 'PUSH '
00020f9a 4c 45 56 45 4c 20 20 20 |LEVEL | .TXT 'LEVEL '
00020fa4 43 4f 4e 56 45 52 54 20 |CONVERT | .TXT 'CONVERT '
00020fae 43 4f 55 4e 54 5f 4f 4e |COUNT_ON| .TXT 'COUNT_ONES'
00020fb8 52 45 50 45 41 54 20 20 |REPEAT | .TXT 'REPEAT '
00020fc2 4d 4f 44 45 4c 20 20 20 |MODEL | .TXT 'MODEL '
00020fcc 41 53 43 49 49 20 20 20 |ASCII | .TXT 'ASCII '
00020fd6 a5 34 | 4 | .XXX[0x2]
00020fd8 45 73 34 22 46 75 33 33 |Es4"Fu33| .XXX[0x98]
00020fe0 33 33 33 32 33 66 37 84 |33323f7 |
00020fe8 44 57 a6 55 0f 00 f0 ff |DW U |
00020ff0 10 22 14 31 22 22 22 22 | " 1""""|
00020ff8 22 22 22 22 14 3f 1f 03 |"""" ? |
00021000 10 0f 00 00 00 00 ff ff | |
00021008 ff ff 00 01 01 00 01 01 | |
00021010 00 01 02 00 00 01 02 00 | |
00021018 01 02 00 01 14 06 01 14 | |
00021020 08 14 0f 02 03 14 14 08 | |
00021028 14 0f 14 14 14 14 14 14 | |
00021030 14 04 14 05 14 14 14 14 | |
00021038 14 14 14 14 14 14 14 04 | |
00021040 14 14 14 14 14 14 04 14 | |
00021048 07 14 14 14 14 04 14 14 | |
00021050 14 14 14 14 0c 14 14 09 | |
00021058 14 14 14 0d 14 14 14 0b | |
00021060 0a 14 0e 14 14 14 08 14 | |
00021068 14 0c 14 14 09 14 14 14 | |
00021070 14 14 14 14 14 14 14 14 | | .BLANK 14[0x10]
00021080 14 14 14 14 14 10 14 14 | | .XXX[0x28]
00021088 11 14 14 14 14 14 14 14 | |
00021090 14 14 14 13 14 14 14 14 | |
00021098 14 12 14 14 14 11 14 14 | |
000210a0 14 14 14 14 14 14 14 14 | |
000210a8 ; --------------------------------------------------------------------------------------
000210a8 ; OMSI PASCAL Function
000210a8 ; <LVAR 0x008 4(r)>
000210a8 ; <LVAR -0x004 @ 4(w)>
000210a8 ; --------------------------------------------------------------------------------------
000210a8 4e 56 ff e8 |NV | LINK.W A6,#0xffe8
000210ac bf d5 | | CMPA.L (A5),A7
000210ae 62 06 |b | BHI 0x210b6
000210b0 44 fc 00 02 |D | MOVE.W #0x2,CCR
000210b4 4e 76 |Nv | TRAPV
000210b6 de fc 00 10 | | ADDA.W #0x10,A7
000210ba 48 e7 00 08 |H | MOVEM.L A4,-(A7)
000210be 28 6e 00 08 |(n | MOVEA.L (A6+0x8),A4
000210c2 b8 fc 00 01 | | CMPA.W #0x1,A4
000210c6 67 1a |g | BEQ 0x210e2
000210c8 2d 4c ff fc |-L | MOVE.L A4,(A6-0x4)
000210cc 28 6c 00 08 |(l | MOVEA.L (A4+0x8),A4
000210d0 48 6e ff fc |Hn | PEA.L (A6-0x4)
000210d4 48 78 00 0c |Hx | PEA.L 0xc
000210d8 4e b9 00 01 02 a8 |N | JSR Free2(a : Pointer; b : Long)
000210de 50 4f |PO | ADDQ.L #0x8,A7
000210e0 60 e0 |` | BRA 0x210c2
000210e2 4c df 10 00 |L | MOVEM.L (A7)+,A4
000210e6 4e 5e |N^ | UNLK A6
000210e8 4e 75 |Nu | RTS
000210ea ; --------------------------------------------------------------------------------------
000210ea ; OMSI PASCAL Function
000210ea ; <LVAR 0x008 4(r)>
000210ea ; --------------------------------------------------------------------------------------
000210ea 4e 56 ff f0 |NV | LINK.W A6,#0xfff0
000210ee bf d5 | | CMPA.L (A5),A7
000210f0 62 06 |b | BHI 0x210f8
000210f2 44 fc 00 02 |D | MOVE.W #0x2,CCR
000210f6 4e 76 |Nv | TRAPV
000210f8 de fc 00 10 | | ADDA.W #0x10,A7
000210fc 48 e7 00 80 |H | MOVEM.L A0,-(A7)
00021100 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0
00021104 b0 fc 00 01 | | CMPA.W #0x1,A0
00021108 67 0a |g | BEQ 0x21114
0002110a 2f 08 |/ | MOVE.L A0,-(A7)
0002110c 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00021112 58 4f |XO | ADDQ.L #0x4,A7
00021114 2e 6d 00 08 |.m | MOVEA.L (A5+0x8),A7
00021118 3c 7c 00 00 |<| | MOVEA.W #0x0,A6
0002111c 4e f9 00 02 49 c6 |N I | JMP 0x249c6
00021122 4c df 01 00 4e 5e |L N^ | .XXX[0x6]
00021128 4e 75 4e 56 ff fc bf d5 |NuNV | .XXX[0x20]
00021130 62 06 44 fc 00 02 4e 76 |b D Nv|
00021138 de fc 00 04 2d 79 00 02 | -y |
00021140 7b fc 00 08 4e 5e 4e 75 |{ N^Nu|
00021148 ; --------------------------------------------------------------------------------------
00021148 ; OMSI PASCAL Function
00021148 ; <LVAR 0x008 1(rw)>
00021148 ; --------------------------------------------------------------------------------------
00021148 4e 56 ff f0 |NV | LINK.W A6,#0xfff0
0002114c bf d5 | | CMPA.L (A5),A7
0002114e 62 06 |b | BHI 0x21156
00021150 44 fc 00 02 |D | MOVE.W #0x2,CCR
00021154 4e 76 |Nv | TRAPV
00021156 de fc 00 10 | | ADDA.W #0x10,A7
0002115a 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7)
0002115e 20 39 00 02 7b fc | 9 { | MOVE.L 0x27bfc,D0
00021164 b0 b9 00 02 7c 00 | | | CMP.L 0x27c00,D0
0002116a 6f 06 |o | BLE 0x21172
0002116c 42 2e 00 08 |B. | CLR.B (A6+0x8)
00021170 60 0c |` | BRA 0x2117e
00021172 41 f9 00 02 6b f4 |A k | LEA.L 0x26bf4,A0
00021178 1d 70 08 07 00 08 | p | MOVE.B (A0+D0.L+#0x7),(A6+0x8)
0002117e 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0
00021182 4e 5e |N^ | UNLK A6
00021184 4e 75 |Nu | RTS
00021186 ; --------------------------------------------------------------------------------------
00021186 ; OMSI PASCAL Function
00021186 ; <LVAR 0x008 1(rw)>
00021186 ; --------------------------------------------------------------------------------------
00021186 4e 56 ff ec |NV | LINK.W A6,#0xffec
0002118a bf d5 | | CMPA.L (A5),A7
0002118c 62 06 |b | BHI 0x21194
0002118e 44 fc 00 02 |D | MOVE.W #0x2,CCR
00021192 4e 76 |Nv | TRAPV
00021194 de fc 00 14 | | ADDA.W #0x14,A7
00021198 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7)
0002119c 43 f9 00 02 7b fc |C { | LEA.L 0x27bfc,A1
000211a2 20 11 | | MOVE.L (A1),D0
000211a4 b0 b9 00 02 7c 00 | | | CMP.L 0x27c00,D0
000211aa 6f 06 |o | BLE 0x211b2
000211ac 42 2e 00 08 |B. | CLR.B (A6+0x8)
000211b0 60 0c |` | BRA 0x211be
000211b2 41 f9 00 02 6b f4 |A k | LEA.L 0x26bf4,A0
000211b8 1d 70 08 07 00 08 | p | MOVE.B (A0+D0.L+#0x7),(A6+0x8)
000211be 52 80 |R | ADDQ.L #0x1,D0
000211c0 22 80 |" | MOVE.L D0,(A1)
000211c2 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1
000211c6 4e 5e |N^ | UNLK A6
000211c8 4e 75 |Nu | RTS
000211ca ; --------------------------------------------------------------------------------------
000211ca ; OMSI PASCAL Function
000211ca ; <LVAR 0x00c 4(r)>
000211ca ; <LVAR 0x008 4(r)>
000211ca ; --------------------------------------------------------------------------------------
000211ca 4e 56 ff c0 |NV | LINK.W A6,#0xffc0
000211ce bf d5 | | CMPA.L (A5),A7
000211d0 62 06 |b | BHI 0x211d8
000211d2 44 fc 00 02 |D | MOVE.W #0x2,CCR
000211d6 4e 76 |Nv | TRAPV
000211d8 de fc 00 38 | 8 | ADDA.W #0x38,A7
000211dc 48 e7 ff f0 |H | MOVEM.L A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
000211e0 45 ee 00 08 |E | LEA.L (A6+0x8),A2
000211e4 47 f9 00 02 7b fc |G { | LEA.L 0x27bfc,A3
000211ea 72 5b |r[ | MOVEQ.L #0x5b,D1
000211ec 74 02 |t | MOVEQ.L #0x02,D2
000211ee 76 2c |v, | MOVEQ.L #0x2c,D3
000211f0 78 3b |x; | MOVEQ.L #0x3b,D4
000211f2 55 4f |UO | SUBQ.L #0x2,A7
000211f4 4e ba ff 52 |N R | JSR 0x21148
000211f8 10 1f | | MOVE.B (A7)+,D0
000211fa b0 01 | | CMP.B D1,D0
000211fc 66 0a |f | BNE 0x21208
000211fe 4e b9 00 02 44 d0 |N D | JSR 0x244d0
00021204 60 00 00 92 |` | BRA 0x21298
00021208 2c 13 |, | MOVE.L (A3),D6
0002120a 55 4f |UO | SUBQ.L #0x2,A7
0002120c 4e ba ff 78 |N x | JSR 0x21186
00021210 1a 1f | | MOVE.B (A7)+,D5
00021212 66 18 |f | BNE 0x2122c
00021214 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0
00021218 43 fa fd e8 |C | LEA.L 0x21002,A1
0002121c 70 07 |p | MOVEQ.L #0x07,D0
0002121e 10 d9 | | MOVE.B (A1)+,(A0)+
00021220 51 c8 ff fc |Q | DBF D0,0x2121e
00021224 20 52 | R | MOVEA.L (A2),A0
00021226 10 82 | | MOVE.B D2,(A0)
00021228 60 72 |`r | BRA 0x2129c
0002122a 60 5c |`\ | .XXX[0x2]
0002122c ba 03 | | CMP.B D3,D5
0002122e 66 08 |f | BNE 0x21238
00021230 20 52 | R | MOVEA.L (A2),A0
00021232 10 bc 00 03 | | MOVE.B #0x03,(A0)
00021236 60 50 |`P | BRA 0x21288
00021238 ba 04 | | CMP.B D4,D5
0002123a 66 08 |f | BNE 0x21244
0002123c 20 52 | R | MOVEA.L (A2),A0
0002123e 10 bc 00 01 | | MOVE.B #0x01,(A0)
00021242 60 44 |`D | BRA 0x21288
00021244 0c 05 00 5d | ] | CMPI.B #0x5d,D5
00021248 66 06 |f | BNE 0x21250
0002124a 20 52 | R | MOVEA.L (A2),A0
0002124c 10 82 | | MOVE.B D2,(A0)
0002124e 60 38 |`8 | BRA 0x21288
00021250 20 52 | R | MOVEA.L (A2),A0
00021252 42 10 |B | CLR.B (A0)
00021254 55 4f |UO | SUBQ.L #0x2,A7
00021256 4e ba fe f0 |N | JSR 0x21148
0002125a 1e 1f | | MOVE.B (A7)+,D7
0002125c be 01 | | CMP.B D1,D7
0002125e 66 08 |f | BNE 0x21268
00021260 4e b9 00 02 44 d0 |N D | JSR 0x244d0
00021266 60 1e |` | BRA 0x21286
00021268 be 04 | | CMP.B D4,D7
0002126a 67 0e |g | BEQ 0x2127a
0002126c be 03 | | CMP.B D3,D7
0002126e 67 0a |g | BEQ 0x2127a
00021270 0c 07 00 5d | ] | CMPI.B #0x5d,D7
00021274 67 04 |g | BEQ 0x2127a
00021276 4a 07 |J | TST.B D7
00021278 66 04 |f | BNE 0x2127e
0002127a 60 0c |` | BRA 0x21288
0002127c 60 08 |` | .XXX[0x2]
0002127e 55 4f |UO | SUBQ.L #0x2,A7
00021280 4e ba ff 04 |N | JSR 0x21186
00021284 1e 1f | | MOVE.B (A7)+,D7
00021286 60 cc |` | BRA 0x21254
00021288 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0
0002128c 20 86 | | MOVE.L D6,(A0)
0002128e 21 53 00 04 |!S | MOVE.L (A3),(A0+0x4)
00021292 53 a8 00 04 |S | SUBQ.L #0x1,(A0+0x4)
00021296 60 04 |` | BRA 0x2129c
00021298 60 00 ff 58 |` X | BRA 0x211f2
0002129c 4c df 0f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3
000212a0 4e 5e |N^ | UNLK A6
000212a2 4e 75 |Nu | RTS
000212a4 ; --------------------------------------------------------------------------------------
000212a4 ; OMSI PASCAL Function
000212a4 ; <LVAR 0x010 4(r)>
000212a4 ; <LVAR 0x00c 4(r)>
000212a4 ; <LVAR 0x008 4(r)>
000212a4 ; <LVAR -0x004 @ 1(rw)>
000212a4 ; <LVAR -0x008 4(w)>
000212a4 ; <LVAR -0x00c @ 4(w)>
000212a4 ; --------------------------------------------------------------------------------------
000212a4 4e 56 ff ca |NV | LINK.W A6,#0xffca
000212a8 bf d5 | | CMPA.L (A5),A7
000212aa 62 06 |b | BHI 0x212b2
000212ac 44 fc 00 02 |D | MOVE.W #0x2,CCR
000212b0 4e 76 |Nv | TRAPV
000212b2 de fc 00 2a | * | ADDA.W #0x2a,A7
000212b6 48 e7 c0 f0 |H | MOVEM.L A3+A2+A1+A0+D1+D0,-(A7)
000212ba 45 ee ff fc |E | LEA.L (A6-0x4),A2
000212be 47 ee ff f4 |G | LEA.L (A6-0xc),A3
000212c2 72 03 |r | MOVEQ.L #0x03,D1
000212c4 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0
000212c8 10 10 | | MOVE.B (A0),D0
000212ca 0c 00 00 01 | | CMPI.B #0x01,D0
000212ce 67 06 |g | BEQ 0x212d6
000212d0 0c 00 00 02 | | CMPI.B #0x02,D0
000212d4 66 0e |f | BNE 0x212e4
000212d6 26 ba fd 2a |& * | MOVE.L 0x21002,(A3)
000212da 2d 7a fd 2a ff f8 |-z * | MOVE.L 0x21006,(A6-0x8)
000212e0 14 80 | | MOVE.B D0,(A2)
000212e2 60 3c |`< | BRA 0x21320
000212e4 48 53 |HS | PEA.L (A3)
000212e6 48 52 |HR | PEA.L (A2)
000212e8 4e ba fe e0 |N | JSR 0x211ca
000212ec 50 4f |PO | ADDQ.L #0x8,A7
000212ee 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0
000212f2 4a 12 |J | TST.B (A2)
000212f4 67 1c |g | BEQ 0x21312
000212f6 10 10 | | MOVE.B (A0),D0
000212f8 b0 01 | | CMP.B D1,D0
000212fa 66 16 |f | BNE 0x21312
000212fc 10 12 | | MOVE.B (A2),D0
000212fe 48 80 |H | EXTB.W D0
00021300 41 81 |A | CHK.W D1,D0
00021302 10 80 | | MOVE.B D0,(A0)
00021304 26 ba fc fc |& | MOVE.L 0x21002,(A3)
00021308 2d 7a fc fc ff f8 |-z | MOVE.L 0x21006,(A6-0x8)
0002130e 42 12 |B | CLR.B (A2)
00021310 60 08 |` | BRA 0x2131a
00021312 10 12 | | MOVE.B (A2),D0
00021314 48 80 |H | EXTB.W D0
00021316 41 81 |A | CHK.W D1,D0
00021318 10 80 | | MOVE.B D0,(A0)
0002131a 10 12 | | MOVE.B (A2),D0
0002131c b0 01 | | CMP.B D1,D0
0002131e 67 c4 |g | BEQ 0x212e4
00021320 20 6e 00 10 | n | MOVEA.L (A6+0x10),A0
00021324 22 4b |"K | MOVEA.L A3,A1
00021326 70 07 |p | MOVEQ.L #0x07,D0
00021328 10 d9 | | MOVE.B (A1)+,(A0)+
0002132a 51 c8 ff fc |Q | DBF D0,0x21328
0002132e 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0
00021332 10 12 | | MOVE.B (A2),D0
00021334 48 80 |H | EXTB.W D0
00021336 41 81 |A | CHK.W D1,D0
00021338 10 80 | | MOVE.B D0,(A0)
0002133a 4c df 0f 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2+A3
0002133e 4e 5e |N^ | UNLK A6
00021340 4e 75 |Nu | RTS
00021342 ; --------------------------------------------------------------------------------------
00021342 ; OMSI PASCAL Function
00021342 ; <LVAR 0x008 4(rw)>
00021342 ; <LVAR -0x004 1(rw)>
00021342 ; <LVAR -0x010 2(rw)>
00021342 ; --------------------------------------------------------------------------------------
00021342 4e 56 ff c0 |NV | LINK.W A6,#0xffc0
00021346 bf d5 | | CMPA.L (A5),A7
00021348 62 06 |b | BHI 0x21350
0002134a 44 fc 00 02 |D | MOVE.W #0x2,CCR
0002134e 4e 76 |Nv | TRAPV
00021350 de fc 00 30 | 0 | ADDA.W #0x30,A7
00021354 48 e7 c7 f0 |H | MOVEM.L A3+A2+A1+A0+D7+D6+D5+D1+D0,-(A7)
00021358 43 ee ff f0 |C | LEA.L (A6-0x10),A1
0002135c 45 ee ff fc |E | LEA.L (A6-0x4),A2
00021360 47 ee 00 08 |G | LEA.L (A6+0x8),A3
00021364 72 20 |r | MOVEQ.L #0x20,D1
00021366 7c 01 || | MOVEQ.L #0x01,D6
00021368 42 51 |BQ | CLR.W (A1)
0002136a 7a 01 |z | MOVEQ.L #0x01,D5
0002136c 59 4f |YO | SUBQ.L #0x4,A7
0002136e 2f 13 |/ | MOVE.L (A3),-(A7)
00021370 4e b9 00 01 02 f0 |N | JSR ToUpper(a : String) : String
00021376 58 4f |XO | ADDQ.L #0x4,A7
00021378 26 9f |& | MOVE.L (A7)+,(A3)
0002137a 20 53 | S | MOVEA.L (A3),A0
0002137c 2f 08 |/ | MOVE.L A0,-(A7)
0002137e 20 57 | W | MOVEA.L (A7),A0
00021380 30 10 |0 | MOVE.W (A0),D0
00021382 48 c0 |H | EXTW.L D0
00021384 bc 80 | | CMP.L D0,D6
00021386 6e 00 00 b0 |n | BGT 0x21438
0002138a 42 80 |B | CLR.L D0
0002138c 10 30 68 01 | 0h | MOVE.B (A0+D6.L+#0x1),D0
00021390 02 40 00 7f | @ | ANDI.W #0x007f,D0
00021394 14 80 | | MOVE.B D0,(A2)
00021396 0c 00 00 09 | | CMPI.B #0x09,D0
0002139a 66 02 |f | BNE 0x2139e
0002139c 14 81 | | MOVE.B D1,(A2)
0002139e 42 80 |B | CLR.L D0
000213a0 10 12 | | MOVE.B (A2),D0
000213a2 90 41 | A | SUB.W D1,D0
000213a4 0c 40 00 0c | @ | CMPI.W #0x000c,D0
000213a8 62 30 |b0 | BHI switch@0x213ac[0x2]
000213aa d0 40 | @ | ADD.W D0,D0
000213ac 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W
000213b4 00 1e | | .CONST 0x1e ; [0x0] -> 0x213d2
000213b6 00 1a | | .CONST 0x1a ; [0x1] -> 0x213ce
000213b8 00 26 | & | .CONST 0x26 ; [0x2] -> 0x213da
000213ba 00 26 | & | .CONST 0x26 ; [0x3] -> 0x213da
000213bc 00 26 | & | .CONST 0x26 ; [0x4] -> 0x213da
000213be 00 26 | & | .CONST 0x26 ; [0x5] -> 0x213da
000213c0 00 26 | & | .CONST 0x26 ; [0x6] -> 0x213da
000213c2 00 26 | & | .CONST 0x26 ; [0x7] -> 0x213da
000213c4 00 26 | & | .CONST 0x26 ; [0x8] -> 0x213da
000213c6 00 26 | & | .CONST 0x26 ; [0x9] -> 0x213da
000213c8 00 26 | & | .CONST 0x26 ; [0xa] -> 0x213da
000213ca 00 26 | & | .CONST 0x26 ; [0xb] -> 0x213da
000213cc 00 22 | " | .CONST 0x22 ; [0xc] -> 0x213d6
000213ce switch@0x213ac[0x1]:
000213ce 60 68 |`h | BRA 0x21438
000213d0 60 0a |` | .XXX[0x2]
000213d2 switch@0x213ac[0x0]:
000213d2 7e 00 |~ | MOVEQ.L #0x00,D7
000213d4 60 06 |` | BRA 0x213dc
000213d6 switch@0x213ac[0xc]:
000213d6 7e 01 |~ | MOVEQ.L #0x01,D7
000213d8 60 02 |` | BRA 0x213dc
000213da switch@0x213ac[0x2]:
000213da switch@0x213ac[0x3]:
000213da switch@0x213ac[0x4]:
000213da switch@0x213ac[0x5]:
000213da switch@0x213ac[0x6]:
000213da switch@0x213ac[0x7]:
000213da switch@0x213ac[0x8]:
000213da switch@0x213ac[0x9]:
000213da switch@0x213ac[0xa]:
000213da switch@0x213ac[0xb]:
000213da 7e 02 |~ | MOVEQ.L #0x02,D7
000213dc 70 03 |p | MOVEQ.L #0x03,D0
000213de c1 d1 | | MULS.W (A1),D0
000213e0 41 fa fc 28 |A ( | LEA.L 0x2100a,A0
000213e4 41 f0 00 00 |A | LEA.L (A0+D0.W),A0
000213e8 42 80 |B | CLR.L D0
000213ea 10 30 70 00 | 0p | MOVE.B (A0+D7.W),D0
000213ee 0c 40 00 02 | @ | CMPI.W #0x0002,D0
000213f2 63 02 |c | BLS 0x213f6
000213f4 4e 4e |NN | TRAP #14
000213f6 d0 40 | @ | ADD.W D0,D0
000213f8 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W
00021400 00 06 | | .CONST 0x6 ; [0x0] -> 0x21406
00021402 00 08 | | .CONST 0x8 ; [0x1] -> 0x21408
00021404 00 12 | | .CONST 0x12 ; [0x2] -> 0x21412
00021406 switch@0x213f8[0x0]:
00021406 60 16 |` | BRA 0x2141e
00021408 switch@0x213f8[0x1]:
00021408 20 57 | W | MOVEA.L (A7),A0
0002140a 11 92 58 01 | X | MOVE.B (A2),(A0+D5.L+#0x1)
0002140e 52 85 |R | ADDQ.L #0x1,D5
00021410 60 0c |` | BRA 0x2141e
00021412 switch@0x213f8[0x2]:
00021412 20 57 | W | MOVEA.L (A7),A0
00021414 11 bc 00 2c 58 01 | ,X | MOVE.B #0x2c,(A0+D5.L+#0x1)
0002141a 52 85 |R | ADDQ.L #0x1,D5
0002141c 53 86 |S | SUBQ.L #0x1,D6
0002141e 70 03 |p | MOVEQ.L #0x03,D0
00021420 c1 d1 | | MULS.W (A1),D0
00021422 41 fa fb ef |A | LEA.L 0x21013,A0
00021426 41 f0 00 00 |A | LEA.L (A0+D0.W),A0
0002142a 42 80 |B | CLR.L D0
0002142c 10 30 70 00 | 0p | MOVE.B (A0+D7.W),D0
00021430 32 80 |2 | MOVE.W D0,(A1)
00021432 52 86 |R | ADDQ.L #0x1,D6
00021434 60 00 ff 48 |` H | BRA 0x2137e
00021438 20 57 | W | MOVEA.L (A7),A0
0002143a 20 05 | | MOVE.L D5,D0
0002143c 53 80 |S | SUBQ.L #0x1,D0
0002143e 30 80 |0 | MOVE.W D0,(A0)
00021440 58 4f |XO | ADDQ.L #0x4,A7
00021442 4c df 0f e3 |L | MOVEM.L (A7)+,D0+D1+D5+D6+D7+A0+A1+A2+A3
00021446 4e 5e |N^ | UNLK A6
00021448 4e 75 |Nu | RTS
0002144a ; --------------------------------------------------------------------------------------
0002144a ; OMSI PASCAL Function
0002144a ; <LVAR 0x00c 4(r)>
0002144a ; <LVAR 0x008 4(r)>
0002144a ; <LVAR -0x002 @ 1(r)>
0002144a ; <LVAR -0x00a @>
0002144a ; <LVAR -0x00e @ 4(r)>
0002144a ; <LVAR -0x014 @ 1(r)>
0002144a ; --------------------------------------------------------------------------------------
0002144a 4e 56 ff bc |NV | LINK.W A6,#0xffbc
0002144e bf d5 | | CMPA.L (A5),A7
00021450 62 06 |b | BHI 0x21458
00021452 44 fc 00 02 |D | MOVE.W #0x2,CCR
00021456 4e 76 |Nv | TRAPV
00021458 de fc 00 30 | 0 | ADDA.W #0x30,A7
0002145c 48 e7 c1 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D1+D0,-(A7)
00021460 47 ee ff f2 |G | LEA.L (A6-0xe),A3
00021464 72 01 |r | MOVEQ.L #0x01,D1
00021466 55 4f |UO | SUBQ.L #0x2,A7
00021468 4e ba fc de |N | JSR 0x21148
0002146c 10 1f | | MOVE.B (A7)+,D0
0002146e 0c 00 00 5b | [ | CMPI.B #0x5b,D0
00021472 66 08 |f | BNE 0x2147c
00021474 55 4f |UO | SUBQ.L #0x2,A7
00021476 4e ba fd 0e |N | JSR 0x21186
0002147a 1e 1f | | MOVE.B (A7)+,D7
0002147c 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0
00021480 20 81 | | MOVE.L D1,(A0)
00021482 42 2e ff ec |B. | CLR.B (A6-0x14)
00021486 48 6e ff f6 |Hn | PEA.L (A6-0xa)
0002148a 48 6e ff fe |Hn | PEA.L (A6-0x2)
0002148e 48 6e ff ec |Hn | PEA.L (A6-0x14)
00021492 4e ba fe 10 |N | JSR 0x212a4
00021496 de fc 00 0c | | ADDA.W #0xc,A7
0002149a 4a 2e ff fe |J. | TST.B (A6-0x2)
0002149e 66 36 |f6 | BNE 0x214d6
000214a0 48 53 |HS | PEA.L (A3)
000214a2 48 78 00 0c |Hx | PEA.L 0xc
000214a6 4e b9 00 01 02 9c |N | JSR Malloc1(length : Long) : Pointer
000214ac 50 4f |PO | ADDQ.L #0x8,A7
000214ae 20 53 | S | MOVEA.L (A3),A0
000214b0 22 48 |"H | MOVEA.L A0,A1
000214b2 45 ee ff f6 |E | LEA.L (A6-0xa),A2
000214b6 70 07 |p | MOVEQ.L #0x07,D0
000214b8 12 da | | MOVE.B (A2)+,(A1)+
000214ba 51 c8 ff fc |Q | DBF D0,0x214b8
000214be 21 41 00 08 |!A | MOVE.L D1,(A0+0x8)
000214c2 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0
000214c6 22 50 |"P | MOVEA.L (A0),A1
000214c8 b2 c1 | | CMPA.W D1,A1
000214ca 66 04 |f | BNE 0x214d0
000214cc 20 93 | | MOVE.L (A3),(A0)
000214ce 60 04 |` | BRA 0x214d4
000214d0 29 53 00 08 |)S | MOVE.L (A3),(A4+0x8)
000214d4 28 53 |(S | MOVEA.L (A3),A4
000214d6 4a 2e ff fe |J. | TST.B (A6-0x2)
000214da 67 aa |g | BEQ 0x21486
000214dc 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0
000214e0 42 10 |B | CLR.B (A0)
000214e2 10 2e ff fe | . | MOVE.B (A6-0x2),D0
000214e6 0c 00 00 02 | | CMPI.B #0x02,D0
000214ea 66 02 |f | BNE 0x214ee
000214ec 52 10 |R | ADDQ.B #0x1,(A0)
000214ee 4c df 1f 83 |L | MOVEM.L (A7)+,D0+D1+D7+A0+A1+A2+A3+A4
000214f2 4e 5e |N^ | UNLK A6
000214f4 4e 75 |Nu | RTS
000214f6 ; --------------------------------------------------------------------------------------
000214f6 ; OMSI PASCAL Function
000214f6 ; <LVAR 0x00c 4(w)>
000214f6 ; <LVAR 0x008 4(r)>
000214f6 ; --------------------------------------------------------------------------------------
000214f6 4e 56 ff ec |NV | LINK.W A6,#0xffec
000214fa bf d5 | | CMPA.L (A5),A7
000214fc 62 06 |b | BHI 0x21504
000214fe 44 fc 00 02 |D | MOVE.W #0x2,CCR
00021502 4e 76 |Nv | TRAPV
00021504 de fc 00 0c | | ADDA.W #0xc,A7
00021508 48 e7 01 08 |H | MOVEM.L A4+D7,-(A7)
0002150c 7e ff |~ | MOVEQ.L #-0x01,D7
0002150e 28 6e 00 08 |(n | MOVEA.L (A6+0x8),A4
00021512 b8 fc 00 01 | | CMPA.W #0x1,A4
00021516 67 08 |g | BEQ 0x21520
00021518 52 87 |R | ADDQ.L #0x1,D7
0002151a 28 6c 00 08 |(l | MOVEA.L (A4+0x8),A4
0002151e 60 f2 |` | BRA 0x21512
00021520 2d 47 00 0c |-G | MOVE.L D7,(A6+0xc)
00021524 4c df 10 80 |L | MOVEM.L (A7)+,D7+A4
00021528 4e 5e |N^ | UNLK A6
0002152a 4e 75 |Nu | RTS
0002152c ; --------------------------------------------------------------------------------------
0002152c ; OMSI PASCAL Function
0002152c ; <LVAR 0x00c 4(r)>
0002152c ; <LVAR 0x008 4(r)>
0002152c ; --------------------------------------------------------------------------------------
0002152c 4e 56 ff b0 |NV | LINK.W A6,#0xffb0
00021530 bf d5 | | CMPA.L (A5),A7
00021532 62 06 |b | BHI 0x2153a
00021534 44 fc 00 02 |D | MOVE.W #0x2,CCR
00021538 4e 76 |Nv | TRAPV
0002153a de fc 00 4e | N | ADDA.W #0x4e,A7
0002153e 48 e7 c0 80 |H | MOVEM.L A0+D1+D0,-(A7)
00021542 72 01 |r | MOVEQ.L #0x01,D1
00021544 59 4f |YO | SUBQ.L #0x4,A7
00021546 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7)
0002154a 4e ba ff aa |N | JSR 0x214f6
0002154e 58 4f |XO | ADDQ.L #0x4,A7
00021550 20 1f | | MOVE.L (A7)+,D0
00021552 b0 ae 00 08 | | CMP.L (A6+0x8),D0
00021556 67 58 |gX | BEQ 0x215b0
00021558 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7)
0002155c 4e ba fb 4a |N J | JSR 0x210a8
00021560 58 4f |XO | ADDQ.L #0x4,A7
00021562 41 fa f6 a0 |A | LEA.L 0x20c04,A0
00021566 70 07 |p | MOVEQ.L #0x07,D0
00021568 2f 20 |/ | MOVE.L -(A0),-(A7)
0002156a 51 c8 ff fc |Q | DBF D0,0x21568
0002156e 41 ee 00 1a |A | LEA.L (A6+0x1a),A0
00021572 70 04 |p | MOVEQ.L #0x04,D0
00021574 3f 20 |? | MOVE.W -(A0),-(A7)
00021576 51 c8 ff fc |Q | DBF D0,0x21574
0002157a 51 4f |QO | SUBQ.L #0x8,A7
0002157c 48 6f 00 12 |Ho | PEA.L (A7+0x12)
00021580 3f 01 |? | MOVE.W D1,-(A7)
00021582 3f 3c 00 20 |?< | MOVE.W #0x20,-(A7)
00021586 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
0002158c 58 4f |XO | ADDQ.L #0x4,A7
0002158e 48 6f 00 0c |Ho | PEA.L (A7+0xc)
00021592 3f 01 |? | MOVE.W D1,-(A7)
00021594 3f 3c 00 0a |?< | MOVE.W #0xa,-(A7)
00021598 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
0002159e 50 4f |PO | ADDQ.L #0x8,A7
000215a0 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
000215a6 50 4f |PO | ADDQ.L #0x8,A7
000215a8 4e ba fb 40 |N @ | JSR 0x210ea
000215ac de fc 00 2e | . | ADDA.W #0x2e,A7
000215b0 4c df 01 03 |L | MOVEM.L (A7)+,D0+D1+A0
000215b4 4e 5e |N^ | UNLK A6
000215b6 4e 75 |Nu | RTS
000215b8 ; --------------------------------------------------------------------------------------
000215b8 ; OMSI PASCAL Function
000215b8 ; <LVAR 0x014 1(rw)>
000215b8 ; <LVAR 0x010 4(r)>
000215b8 ; <LVAR 0x00c 4(r)>
000215b8 ; <LVAR 0x008 4(r)>
000215b8 ; --------------------------------------------------------------------------------------
000215b8 4e 56 ff dc |NV | LINK.W A6,#0xffdc ; Spelunked
000215bc bf d5 | | CMPA.L (A5),A7
000215be 62 06 |b | BHI 0x215c6
000215c0 44 fc 00 02 |D | MOVE.W #0x2,CCR
000215c4 4e 76 |Nv | TRAPV
000215c6 de fc 00 20 | | ADDA.W #0x20,A7
000215ca 48 e7 c1 c0 |H | MOVEM.L A1+A0+D7+D1+D0,-(A7)
000215ce 42 2e 00 14 |B. | CLR.B (A6+0x14)
000215d2 20 2e 00 10 | . | MOVE.L (A6+0x10),D0
000215d6 d0 ae 00 08 | | ADD.L (A6+0x8),D0
000215da b0 b9 00 02 7c 00 | | | CMP.L 0x27c00,D0
000215e0 6e 4e |nN | BGT 0x21630
000215e2 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
000215e6 7e 01 |~ | MOVEQ.L #0x01,D7
000215e8 be 97 | | CMP.L (A7),D7
000215ea 6e 42 |nB | BGT 0x2162e
000215ec 20 2e 00 10 | . | MOVE.L (A6+0x10),D0
000215f0 d0 87 | | ADD.L D7,D0
000215f2 53 80 |S | SUBQ.L #0x1,D0
000215f4 0c 80 00 00 0f ff | | CMPI.L #0x00000fff,D0
000215fa 63 02 |c | BLS 0x215fe
000215fc 4e 4f |NO | TRAP #15
000215fe 41 f9 00 02 6b f4 |A k | LEA.L 0x26bf4,A0
00021604 22 2e 00 0c |". | MOVE.L (A6+0xc),D1
00021608 d2 87 | | ADD.L D7,D1
0002160a 53 81 |S | SUBQ.L #0x1,D1
0002160c 53 81 |S | SUBQ.L #0x1,D1
0002160e 0c 81 00 00 00 3e | > | CMPI.L #0x0000003e,D1
00021614 63 02 |c | BLS 0x21618
00021616 4e 4f |NO | TRAP #15
00021618 43 fa f5 ea |C | LEA.L 0x20c04,A1
0002161c 10 30 08 08 | 0 | MOVE.B (A0+D0.L+#0x8),D0
00021620 b0 31 18 00 | 1 | CMP.B (A1+D1.L),D0
00021624 67 04 |g | BEQ 0x2162a
00021626 58 4f |XO | ADDQ.L #0x4,A7
00021628 60 0c |` | BRA 0x21636
0002162a 52 87 |R | ADDQ.L #0x1,D7
0002162c 68 ba |h | BVC 0x215e8
0002162e 58 4f |XO | ADDQ.L #0x4,A7
00021630 1d 7c 00 01 00 14 | | | MOVE.B #0x01,(A6+0x14)
00021636 4c df 03 83 |L | MOVEM.L (A7)+,D0+D1+D7+A0+A1
0002163a 4e 5e |N^ | UNLK A6
0002163c 4e 75 |Nu | RTS
0002163e ; --------------------------------------------------------------------------------------
0002163e ; OMSI PASCAL Function
0002163e ; <LVAR 0x00c 4(r)>
0002163e ; <LVAR 0x008 4(r)>
0002163e ; --------------------------------------------------------------------------------------
0002163e 4e 56 ff bc |NV | LINK.W A6,#0xffbc
00021642 bf d5 | | CMPA.L (A5),A7
00021644 62 06 |b | BHI 0x2164c
00021646 44 fc 00 02 |D | MOVE.W #0x2,CCR
0002164a 4e 76 |Nv | TRAPV
0002164c de fc 00 40 | @ | ADDA.W #0x40,A7
00021650 48 e7 80 f0 |H | MOVEM.L A3+A2+A1+A0+D0,-(A7)
00021654 45 f9 00 02 7c 00 |E | | LEA.L 0x27c00,A2
0002165a 47 ee 00 08 |G | LEA.L (A6+0x8),A3
0002165e 4a 93 |J | TST.L (A3)
00021660 6c 3e |l> | BGE 0x216a0
00021662 20 13 | | MOVE.L (A3),D0
00021664 44 80 |D | NEG.L D0
00021666 d0 92 | | ADD.L (A2),D0
00021668 0c 80 00 00 10 00 | | CMPI.L #0x00001000,D0
0002166e 6f 30 |o0 | BLE 0x216a0
00021670 9e fc 00 1c | | SUBA.W #0x1c,A7
00021674 20 4f | O | MOVEA.L A7,A0
00021676 43 fa f5 cc |C | LEA.L 0x20c44,A1
0002167a 70 1a |p | MOVEQ.L #0x1a,D0
0002167c 10 d9 | | MOVE.B (A1)+,(A0)+
0002167e 51 c8 ff fc |Q | DBF D0,0x2167c
00021682 59 4f |YO | SUBQ.L #0x4,A7
00021684 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021688 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
0002168c 3f 3c 00 1b |?< | MOVE.W #0x1b,-(A7)
00021690 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00021696 50 4f |PO | ADDQ.L #0x8,A7
00021698 4e ba fa 50 |N P | JSR 0x210ea
0002169c de fc 00 20 | | ADDA.W #0x20,A7
000216a0 41 f9 00 02 6b fc |A k | LEA.L 0x26bfc,A0
000216a6 2f 08 |/ | MOVE.L A0,-(A7)
000216a8 2f 12 |/ | MOVE.L (A2),-(A7)
000216aa 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7)
000216ae 2f 13 |/ | MOVE.L (A3),-(A7)
000216b0 4e b9 00 01 03 64 |N d | JSR MovStringTail(Base, Len, Ptr, Delta)
000216b6 de fc 00 10 | | ADDA.W #0x10,A7
000216ba 20 12 | | MOVE.L (A2),D0
000216bc 90 93 | | SUB.L (A3),D0
000216be 24 80 |$ | MOVE.L D0,(A2)
000216c0 4c df 0f 01 |L | MOVEM.L (A7)+,D0+A0+A1+A2+A3
000216c4 4e 5e |N^ | UNLK A6
000216c6 4e 75 |Nu | RTS
000216c8 ; --------------------------------------------------------------------------------------
000216c8 ; OMSI PASCAL Function
000216c8 ; <LVAR 0x00c 4(r)>
000216c8 ; <LVAR 0x008 4(r)>
000216c8 ; --------------------------------------------------------------------------------------
000216c8 4e 56 ff d4 |NV | LINK.W A6,#0xffd4
000216cc bf d5 | | CMPA.L (A5),A7
000216ce 62 06 |b | BHI 0x216d6
000216d0 44 fc 00 02 |D | MOVE.W #0x2,CCR
000216d4 4e 76 |Nv | TRAPV
000216d6 de fc 00 28 | ( | ADDA.W #0x28,A7
000216da 48 e7 c1 e0 |H | MOVEM.L A2+A1+A0+D7+D1+D0,-(A7)
000216de 45 ee 00 0c |E | LEA.L (A6+0xc),A2
000216e2 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0
000216e6 2f 08 |/ | MOVE.L A0,-(A7)
000216e8 22 52 |"R | MOVEA.L (A2),A1
000216ea 2f 11 |/ | MOVE.L (A1),-(A7)
000216ec 30 10 |0 | MOVE.W (A0),D0
000216ee 48 c0 |H | EXTW.L D0
000216f0 44 80 |D | NEG.L D0
000216f2 2f 00 |/ | MOVE.L D0,-(A7)
000216f4 4e ba ff 48 |N H | JSR 0x2163e
000216f8 50 4f |PO | ADDQ.L #0x8,A7
000216fa 30 10 |0 | MOVE.W (A0),D0
000216fc 48 c0 |H | EXTW.L D0
000216fe 2f 00 |/ | MOVE.L D0,-(A7)
00021700 7e 01 |~ | MOVEQ.L #0x01,D7
00021702 be 97 | | CMP.L (A7),D7
00021704 6e 36 |n6 | BGT 0x2173c
00021706 20 52 | R | MOVEA.L (A2),A0
00021708 20 07 | | MOVE.L D7,D0
0002170a d0 90 | | ADD.L (A0),D0
0002170c 53 80 |S | SUBQ.L #0x1,D0
0002170e 53 80 |S | SUBQ.L #0x1,D0
00021710 0c 80 00 00 0f ff | | CMPI.L #0x00000fff,D0
00021716 63 02 |c | BLS 0x2171a
00021718 4e 4f |NO | TRAP #15
0002171a 41 f9 00 02 6b f4 |A k | LEA.L 0x26bf4,A0
00021720 22 07 |" | MOVE.L D7,D1
00021722 53 81 |S | SUBQ.L #0x1,D1
00021724 0c 81 00 00 00 7d | } | CMPI.L #0x0000007d,D1
0002172a 63 02 |c | BLS 0x2172e
0002172c 4e 4f |NO | TRAP #15
0002172e 22 6f 00 04 |"o | MOVEA.L (A7+0x4),A1
00021732 11 b1 18 02 08 08 | | MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x8)
00021738 52 87 |R | ADDQ.L #0x1,D7
0002173a 68 c6 |h | BVC 0x21702
0002173c 58 4f |XO | ADDQ.L #0x4,A7
0002173e 20 52 | R | MOVEA.L (A2),A0
00021740 22 57 |"W | MOVEA.L (A7),A1
00021742 30 11 |0 | MOVE.W (A1),D0
00021744 48 c0 |H | EXTW.L D0
00021746 d1 90 | | ADD.L D0,(A0)
00021748 58 4f |XO | ADDQ.L #0x4,A7
0002174a 4c df 07 83 |L | MOVEM.L (A7)+,D0+D1+D7+A0+A1+A2
0002174e 4e 5e |N^ | UNLK A6
00021750 4e 75 |Nu | RTS
00021752 ; --------------------------------------------------------------------------------------
00021752 ; OMSI PASCAL Function
00021752 ; <LVAR 0x00c 4(r)>
00021752 ; <LVAR 0x008 4(r)>
00021752 ; --------------------------------------------------------------------------------------
00021752 4e 56 ff a8 |NV | LINK.W A6,#0xffa8
00021756 bf d5 | | CMPA.L (A5),A7
00021758 62 06 |b | BHI 0x21760
0002175a 44 fc 00 02 |D | MOVE.W #0x2,CCR
0002175e 4e 76 |Nv | TRAPV
00021760 de fc 00 50 | P | ADDA.W #0x50,A7
00021764 48 e7 c3 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D1+D0,-(A7)
00021768 45 fa fe 4e |E N | LEA.L 0x215b8,A2
0002176c 47 f8 00 04 |G | LEA.L 0x4,A3
00021770 49 ee 00 08 |I | LEA.L (A6+0x8),A4
00021774 72 0c |r | MOVEQ.L #0x0c,D1
00021776 7e 00 |~ | MOVEQ.L #0x00,D7
00021778 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0
0002177c 42 90 |B | CLR.L (A0)
0002177e 20 54 | T | MOVEA.L (A4),A0
00021780 42 90 |B | CLR.L (A0)
00021782 2c 39 00 02 7b fc |,9 { | MOVE.L 0x27bfc,D6
00021788 20 06 | | MOVE.L D6,D0
0002178a 53 80 |S | SUBQ.L #0x1,D0
0002178c 0c 80 00 00 0f ff | | CMPI.L #0x00000fff,D0
00021792 63 02 |c | BLS 0x21796
00021794 4e 4f |NO | TRAP #15
00021796 41 f9 00 02 6b f4 |A k | LEA.L 0x26bf4,A0
0002179c 10 30 08 08 | 0 | MOVE.B (A0+D0.L+#0x8),D0
000217a0 0c 00 00 5b | [ | CMPI.B #0x5b,D0
000217a4 66 00 00 d4 |f | BNE 0x2187a
000217a8 55 4f |UO | SUBQ.L #0x2,A7
000217aa 2f 06 |/ | MOVE.L D6,-(A7)
000217ac 48 78 00 01 |Hx | PEA.L 0x1
000217b0 48 78 00 03 |Hx | PEA.L 0x3
000217b4 4e 92 |N | JSR (A2)
000217b6 de c1 | | ADDA.W D1,A7
000217b8 4a 1f |J | TST.B (A7)+
000217ba 66 7e |f~ | BNE 0x2183a
000217bc 55 4f |UO | SUBQ.L #0x2,A7
000217be 2f 06 |/ | MOVE.L D6,-(A7)
000217c0 48 53 |HS | PEA.L (A3)
000217c2 48 78 00 03 |Hx | PEA.L 0x3
000217c6 4e 92 |N | JSR (A2)
000217c8 de c1 | | ADDA.W D1,A7
000217ca 4a 1f |J | TST.B (A7)+
000217cc 66 6c |fl | BNE 0x2183a
000217ce 55 4f |UO | SUBQ.L #0x2,A7
000217d0 2f 06 |/ | MOVE.L D6,-(A7)
000217d2 48 78 00 07 |Hx | PEA.L 0x7
000217d6 48 53 |HS | PEA.L (A3)
000217d8 4e 92 |N | JSR (A2)
000217da de c1 | | ADDA.W D1,A7
000217dc 4a 1f |J | TST.B (A7)+
000217de 66 5a |fZ | BNE 0x2183a
000217e0 55 4f |UO | SUBQ.L #0x2,A7
000217e2 2f 06 |/ | MOVE.L D6,-(A7)
000217e4 48 78 00 0b |Hx | PEA.L 0xb
000217e8 48 53 |HS | PEA.L (A3)
000217ea 4e 92 |N | JSR (A2)
000217ec de c1 | | ADDA.W D1,A7
000217ee 4a 1f |J | TST.B (A7)+
000217f0 66 48 |fH | BNE 0x2183a
000217f2 55 4f |UO | SUBQ.L #0x2,A7
000217f4 2f 06 |/ | MOVE.L D6,-(A7)
000217f6 48 78 00 0f |Hx | PEA.L 0xf
000217fa 48 53 |HS | PEA.L (A3)
000217fc 4e 92 |N | JSR (A2)
000217fe de c1 | | ADDA.W D1,A7
00021800 4a 1f |J | TST.B (A7)+
00021802 66 36 |f6 | BNE 0x2183a
00021804 55 4f |UO | SUBQ.L #0x2,A7
00021806 2f 06 |/ | MOVE.L D6,-(A7)
00021808 48 78 00 13 |Hx | PEA.L 0x13
0002180c 48 53 |HS | PEA.L (A3)
0002180e 4e 92 |N | JSR (A2)
00021810 de c1 | | ADDA.W D1,A7
00021812 4a 1f |J | TST.B (A7)+
00021814 66 24 |f$ | BNE 0x2183a
00021816 55 4f |UO | SUBQ.L #0x2,A7
00021818 2f 06 |/ | MOVE.L D6,-(A7)
0002181a 48 78 00 17 |Hx | PEA.L 0x17
0002181e 48 53 |HS | PEA.L (A3)
00021820 4e 92 |N | JSR (A2)
00021822 de c1 | | ADDA.W D1,A7
00021824 4a 1f |J | TST.B (A7)+
00021826 66 12 |f | BNE 0x2183a
00021828 55 4f |UO | SUBQ.L #0x2,A7
0002182a 2f 06 |/ | MOVE.L D6,-(A7)
0002182c 48 78 00 1b |Hx | PEA.L 0x1b
00021830 48 53 |HS | PEA.L (A3)
00021832 4e 92 |N | JSR (A2)
00021834 de c1 | | ADDA.W D1,A7
00021836 4a 1f |J | TST.B (A7)+
00021838 67 04 |g | BEQ 0x2183e
0002183a 52 87 |R | ADDQ.L #0x1,D7
0002183c 60 3c |`< | BRA 0x2187a
0002183e 4a 87 |J | TST.L D7
00021840 66 1c |f | BNE 0x2185e
00021842 55 4f |UO | SUBQ.L #0x2,A7
00021844 2f 06 |/ | MOVE.L D6,-(A7)
00021846 48 78 00 1f |Hx | PEA.L 0x1f
0002184a 48 78 00 05 |Hx | PEA.L 0x5
0002184e 4e 92 |N | JSR (A2)
00021850 de c1 | | ADDA.W D1,A7
00021852 4a 1f |J | TST.B (A7)+
00021854 67 08 |g | BEQ 0x2185e
00021856 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0
0002185a 20 86 | | MOVE.L D6,(A0)
0002185c 60 1c |` | BRA 0x2187a
0002185e 55 4f |UO | SUBQ.L #0x2,A7
00021860 2f 06 |/ | MOVE.L D6,-(A7)
00021862 48 78 00 24 |Hx $ | PEA.L 0x24
00021866 48 53 |HS | PEA.L (A3)
00021868 4e 92 |N | JSR (A2)
0002186a de c1 | | ADDA.W D1,A7
0002186c 4a 1f |J | TST.B (A7)+
0002186e 67 0a |g | BEQ 0x2187a
00021870 4a 87 |J | TST.L D7
00021872 66 04 |f | BNE 0x21878
00021874 20 54 | T | MOVEA.L (A4),A0
00021876 60 e2 |` | BRA 0x2185a
00021878 53 87 |S | SUBQ.L #0x1,D7
0002187a 52 86 |R | ADDQ.L #0x1,D6
0002187c bc b9 00 02 7c 00 | | | CMP.L 0x27c00,D6
00021882 6e 0e |n | BGT 0x21892
00021884 4a 87 |J | TST.L D7
00021886 66 00 ff 00 |f | BNE 0x21788
0002188a 20 54 | T | MOVEA.L (A4),A0
0002188c 4a 90 |J | TST.L (A0)
0002188e 67 00 fe f8 |g | BEQ 0x21788
00021892 bc b9 00 02 7c 00 | | | CMP.L 0x27c00,D6
00021898 6f 30 |o0 | BLE 0x218ca
0002189a 9e fc 00 1c | | SUBA.W #0x1c,A7
0002189e 20 4f | O | MOVEA.L A7,A0
000218a0 43 fa f3 be |C | LEA.L 0x20c60,A1
000218a4 70 1a |p | MOVEQ.L #0x1a,D0
000218a6 10 d9 | | MOVE.B (A1)+,(A0)+
000218a8 51 c8 ff fc |Q | DBF D0,0x218a6
000218ac 59 4f |YO | SUBQ.L #0x4,A7
000218ae 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000218b2 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
000218b6 3f 3c 00 1b |?< | MOVE.W #0x1b,-(A7)
000218ba 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
000218c0 50 4f |PO | ADDQ.L #0x8,A7
000218c2 4e ba f8 26 |N & | JSR 0x210ea
000218c6 de fc 00 20 | | ADDA.W #0x20,A7
000218ca 4c df 1f c3 |L | MOVEM.L (A7)+,D0+D1+D6+D7+A0+A1+A2+A3+A4
000218ce 4e 5e |N^ | UNLK A6
000218d0 4e 75 |Nu | RTS
000218d2 ; --------------------------------------------------------------------------------------
000218d2 ; OMSI PASCAL Function
000218d2 ; <LVAR -0x004 @ 4(r)>
000218d2 ; <LVAR -0x008 @ 4(rw)>
000218d2 ; --------------------------------------------------------------------------------------
000218d2 4e 56 ff dc |NV | LINK.W A6,#0xffdc
000218d6 bf d5 | | CMPA.L (A5),A7
000218d8 62 06 |b | BHI 0x218e0
000218da 44 fc 00 02 |D | MOVE.W #0x2,CCR
000218de 4e 76 |Nv | TRAPV
000218e0 de fc 00 1c | | ADDA.W #0x1c,A7
000218e4 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7)
000218e8 41 ee ff f8 |A | LEA.L (A6-0x8),A0
000218ec 43 ee ff fc |C | LEA.L (A6-0x4),A1
000218f0 48 50 |HP | PEA.L (A0)
000218f2 48 51 |HQ | PEA.L (A1)
000218f4 4e ba fe 5c |N \ | JSR 0x21752
000218f8 50 4f |PO | ADDQ.L #0x8,A7
000218fa 4a 90 |J | TST.L (A0)
000218fc 66 02 |f | BNE 0x21900
000218fe 20 91 | | MOVE.L (A1),(A0)
00021900 20 11 | | MOVE.L (A1),D0
00021902 5a 80 |Z | ADDQ.L #0x5,D0
00021904 2f 00 |/ | MOVE.L D0,-(A7)
00021906 90 90 | | SUB.L (A0),D0
00021908 2f 00 |/ | MOVE.L D0,-(A7)
0002190a 4e ba fd 32 |N 2 | JSR 0x2163e
0002190e 50 4f |PO | ADDQ.L #0x8,A7
00021910 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1
00021914 4e 5e |N^ | UNLK A6
00021916 4e 75 |Nu | RTS
00021918 ; --------------------------------------------------------------------------------------
00021918 ; OMSI PASCAL Function
00021918 ; <LVAR -0x004 @ 4(r)>
00021918 ; <LVAR -0x008 @ 4(r)>
00021918 ; --------------------------------------------------------------------------------------
00021918 4e 56 ff dc |NV | LINK.W A6,#0xffdc
0002191c bf d5 | | CMPA.L (A5),A7
0002191e 62 06 |b | BHI 0x21926
00021920 44 fc 00 02 |D | MOVE.W #0x2,CCR
00021924 4e 76 |Nv | TRAPV
00021926 de fc 00 1c | | ADDA.W #0x1c,A7
0002192a 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7)
0002192e 41 ee ff f8 |A | LEA.L (A6-0x8),A0
00021932 43 ee ff fc |C | LEA.L (A6-0x4),A1
00021936 48 50 |HP | PEA.L (A0)
00021938 48 51 |HQ | PEA.L (A1)
0002193a 4e ba fe 16 |N | JSR 0x21752
0002193e 50 4f |PO | ADDQ.L #0x8,A7
00021940 4a 90 |J | TST.L (A0)
00021942 66 06 |f | BNE 0x2194a
00021944 20 11 | | MOVE.L (A1),D0
00021946 5a 80 |Z | ADDQ.L #0x5,D0
00021948 60 12 |` | BRA 0x2195c
0002194a 2f 11 |/ | MOVE.L (A1),-(A7)
0002194c 5a 97 |Z | ADDQ.L #0x5,(A7)
0002194e 48 78 00 05 |Hx | PEA.L 0x5
00021952 4e ba fc ea |N | JSR 0x2163e
00021956 50 4f |PO | ADDQ.L #0x8,A7
00021958 20 10 | | MOVE.L (A0),D0
0002195a 5c 80 |\ | ADDQ.L #0x6,D0
0002195c 2f 00 |/ | MOVE.L D0,-(A7)
0002195e 90 b9 00 02 7b fc | { | SUB.L 0x27bfc,D0
00021964 2f 00 |/ | MOVE.L D0,-(A7)
00021966 4e ba fc d6 |N | JSR 0x2163e
0002196a 50 4f |PO | ADDQ.L #0x8,A7
0002196c 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1
00021970 4e 5e |N^ | UNLK A6
00021972 4e 75 |Nu | RTS
00021974 ; --------------------------------------------------------------------------------------
00021974 ; OMSI PASCAL Function
00021974 ; <LVAR 0x008 4(r)>
00021974 ; <LVAR -0x004 @>
00021974 ; <LVAR -0x008 @ 4(r)>
00021974 ; <LVAR -0x00c @ 4(rw)>
00021974 ; <LVAR -0x010 4(rw)>
00021974 ; <LVAR -0x014 4(rw)>
00021974 ; --------------------------------------------------------------------------------------
00021974 4e 56 ff ba |NV | LINK.W A6,#0xffba
00021978 bf d5 | | CMPA.L (A5),A7
0002197a 62 06 |b | BHI 0x21982
0002197c 44 fc 00 02 |D | MOVE.W #0x2,CCR
00021980 4e 76 |Nv | TRAPV
00021982 de fc 00 32 | 2 | ADDA.W #0x32,A7
00021986 48 e7 c0 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D1+D0,-(A7)
0002198a 43 f9 00 02 7c 0e |C | | LEA.L 0x27c0e,A1
00021990 45 f9 00 02 7c 14 |E | | LEA.L 0x27c14,A2
00021996 47 f9 00 02 7b fc |G { | LEA.L 0x27bfc,A3
0002199c 49 ee ff f8 |I | LEA.L (A6-0x8),A4
000219a0 72 01 |r | MOVEQ.L #0x01,D1
000219a2 4a 11 |J | TST.B (A1)
000219a4 67 0a |g | BEQ 0x219b0
000219a6 4a 92 |J | TST.L (A2)
000219a8 66 06 |f | BNE 0x219b0
000219aa 24 ae 00 08 |$ | MOVE.L (A6+0x8),(A2)
000219ae 53 92 |S | SUBQ.L #0x1,(A2)
000219b0 4a 11 |J | TST.B (A1)
000219b2 66 00 00 cc |f | BNE 0x21a80
000219b6 26 ae 00 08 |& | MOVE.L (A6+0x8),(A3)
000219ba 5c 93 |\ | ADDQ.L #0x6,(A3)
000219bc 48 54 |HT | PEA.L (A4)
000219be 48 6e ff fc |Hn | PEA.L (A6-0x4)
000219c2 4e ba fa 86 |N | JSR 0x2144a
000219c6 50 4f |PO | ADDQ.L #0x8,A7
000219c8 41 fa f2 bc |A | LEA.L 0x20c86,A0
000219cc 70 04 |p | MOVEQ.L #0x04,D0
000219ce 3f 20 |? | MOVE.W -(A0),-(A7)
000219d0 51 c8 ff fc |Q | DBF D0,0x219ce
000219d4 2f 14 |/ | MOVE.L (A4),-(A7)
000219d6 48 78 00 00 |Hx | PEA.L 0x0
000219da 4e ba fb 50 |N P | JSR 0x2152c
000219de de fc 00 12 | | ADDA.W #0x12,A7
000219e2 4a 39 00 02 7c 18 |J9 | | TST.B 0x27c18
000219e8 67 1a |g | BEQ 0x21a04
000219ea 51 4f |QO | SUBQ.L #0x8,A7
000219ec 2f 14 |/ | MOVE.L (A4),-(A7)
000219ee 48 78 00 00 |Hx | PEA.L 0x0
000219f2 4e b9 00 02 1e 44 |N D | JSR 0x21e44
000219f8 50 4f |PO | ADDQ.L #0x8,A7
000219fa 2d 5f ff ec |-_ | MOVE.L (A7)+,(A6-0x14)
000219fe 2d 5f ff f0 |-_ | MOVE.L (A7)+,(A6-0x10)
00021a02 60 14 |` | BRA 0x21a18
00021a04 59 4f |YO | SUBQ.L #0x4,A7
00021a06 2f 14 |/ | MOVE.L (A4),-(A7)
00021a08 48 78 00 00 |Hx | PEA.L 0x0
00021a0c 4e b9 00 02 1e 12 |N | JSR 0x21e12
00021a12 50 4f |PO | ADDQ.L #0x8,A7
00021a14 2d 5f ff f4 |-_ | MOVE.L (A7)+,(A6-0xc)
00021a18 2f 14 |/ | MOVE.L (A4),-(A7)
00021a1a 4e ba f6 8c |N | JSR 0x210a8
00021a1e 58 4f |XO | ADDQ.L #0x4,A7
00021a20 23 d3 00 02 7c 10 |# | | MOVE.L (A3),0x27c10
00021a26 4a 39 00 02 7c 18 |J9 | | TST.B 0x27c18
00021a2c 67 2a |g* | BEQ 0x21a58
00021a2e 55 4f |UO | SUBQ.L #0x2,A7
00021a30 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7)
00021a34 2f 2e ff ec |/. | MOVE.L (A6-0x14),-(A7)
00021a38 2f 39 00 02 7c 22 |/9 |" | MOVE.L 0x27c22,-(A7)
00021a3e 2f 39 00 02 7c 1e |/9 | | MOVE.L 0x27c1e,-(A7)
00021a44 4e b9 00 01 03 2c |N , | JSR IsEqual(a, b : Quad) : Bool
00021a4a de fc 00 10 | | ADDA.W #0x10,A7
00021a4e 10 1f | | MOVE.B (A7)+,D0
00021a50 48 80 |H | EXTB.W D0
00021a52 41 81 |A | CHK.W D1,D0
00021a54 12 80 | | MOVE.B D0,(A1)
00021a56 60 28 |`( | BRA 0x21a80
00021a58 55 4f |UO | SUBQ.L #0x2,A7
00021a5a 2f 2e ff f4 |/. | MOVE.L (A6-0xc),-(A7)
00021a5e 2f 39 00 02 7c 1a |/9 | | MOVE.L 0x27c1a,-(A7)
00021a64 4e b9 00 01 02 c8 |N | JSR StringEqual(a, b : String) : Byte
00021a6a 50 4f |PO | ADDQ.L #0x8,A7
00021a6c 10 1f | | MOVE.B (A7)+,D0
00021a6e 48 80 |H | EXTB.W D0
00021a70 41 81 |A | CHK.W D1,D0
00021a72 12 80 | | MOVE.B D0,(A1)
00021a74 48 6e ff f4 |Hn | PEA.L (A6-0xc)
00021a78 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String)
00021a7e 58 4f |XO | ADDQ.L #0x4,A7
00021a80 4c df 1f 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2+A3+A4
00021a84 4e 5e |N^ | UNLK A6
00021a86 4e 75 |Nu | RTS
00021a88 ; --------------------------------------------------------------------------------------
00021a88 ; OMSI PASCAL Function
00021a88 ; <LVAR 0x010 4(r)>
00021a88 ; <LVAR 0x00c 4(r)>
00021a88 ; <LVAR 0x008 4(r)>
00021a88 ; --------------------------------------------------------------------------------------
00021a88 4e 56 ff 9e |NV | LINK.W A6,#0xff9e
00021a8c bf d5 | | CMPA.L (A5),A7
00021a8e 62 06 |b | BHI 0x21a96
00021a90 44 fc 00 02 |D | MOVE.W #0x2,CCR
00021a94 4e 76 |Nv | TRAPV
00021a96 de fc 00 56 | V | ADDA.W #0x56,A7
00021a9a 48 e7 e7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7)
00021a9e 45 f9 00 02 7c 14 |E | | LEA.L 0x27c14,A2
00021aa4 47 fa fb 12 |G | LEA.L 0x215b8,A3
00021aa8 49 f9 00 02 7c 0e |I | | LEA.L 0x27c0e,A4
00021aae 72 0c |r | MOVEQ.L #0x0c,D1
00021ab0 74 01 |t | MOVEQ.L #0x01,D2
00021ab2 42 14 |B | CLR.B (A4)
00021ab4 42 b9 00 02 7c 10 |B | | CLR.L 0x27c10
00021aba 42 92 |B | CLR.L (A2)
00021abc 7e 00 |~ | MOVEQ.L #0x00,D7
00021abe 7c 00 || | MOVEQ.L #0x00,D6
00021ac0 2a 39 00 02 7b fc |*9 { | MOVE.L 0x27bfc,D5
00021ac6 4a 86 |J | TST.L D6
00021ac8 66 00 00 a0 |f | BNE 0x21b6a
00021acc ba b9 00 02 7c 00 | | | CMP.L 0x27c00,D5
00021ad2 6e 00 00 96 |n | BGT 0x21b6a
00021ad6 20 05 | | MOVE.L D5,D0
00021ad8 53 80 |S | SUBQ.L #0x1,D0
00021ada 0c 80 00 00 0f ff | | CMPI.L #0x00000fff,D0
00021ae0 63 02 |c | BLS 0x21ae4
00021ae2 4e 4f |NO | TRAP #15
00021ae4 41 f9 00 02 6b f4 |A k | LEA.L 0x26bf4,A0
00021aea 10 30 08 08 | 0 | MOVE.B (A0+D0.L+#0x8),D0
00021aee 0c 00 00 5b | [ | CMPI.B #0x5b,D0
00021af2 66 6c |fl | BNE 0x21b60
00021af4 55 4f |UO | SUBQ.L #0x2,A7
00021af6 2f 05 |/ | MOVE.L D5,-(A7)
00021af8 48 78 00 28 |Hx ( | PEA.L 0x28
00021afc 48 78 00 05 |Hx | PEA.L 0x5
00021b00 4e 93 |N | JSR (A3)
00021b02 de c1 | | ADDA.W D1,A7
00021b04 4a 1f |J | TST.B (A7)+
00021b06 66 14 |f | BNE 0x21b1c
00021b08 55 4f |UO | SUBQ.L #0x2,A7
00021b0a 2f 05 |/ | MOVE.L D5,-(A7)
00021b0c 48 78 00 2d |Hx - | PEA.L 0x2d
00021b10 48 78 00 06 |Hx | PEA.L 0x6
00021b14 4e 93 |N | JSR (A3)
00021b16 de c1 | | ADDA.W D1,A7
00021b18 4a 1f |J | TST.B (A7)+
00021b1a 67 04 |g | BEQ 0x21b20
00021b1c 52 87 |R | ADDQ.L #0x1,D7
00021b1e 60 40 |`@ | BRA 0x21b60
00021b20 4a 87 |J | TST.L D7
00021b22 66 1e |f | BNE 0x21b42
00021b24 55 4f |UO | SUBQ.L #0x2,A7
00021b26 2f 05 |/ | MOVE.L D5,-(A7)
00021b28 48 78 00 33 |Hx 3 | PEA.L 0x33
00021b2c 48 78 00 05 |Hx | PEA.L 0x5
00021b30 4e 93 |N | JSR (A3)
00021b32 de c1 | | ADDA.W D1,A7
00021b34 4a 1f |J | TST.B (A7)+
00021b36 67 0a |g | BEQ 0x21b42
00021b38 2f 05 |/ | MOVE.L D5,-(A7)
00021b3a 4e ba fe 38 |N 8 | JSR 0x21974
00021b3e 58 4f |XO | ADDQ.L #0x4,A7
00021b40 60 1e |` | BRA 0x21b60
00021b42 55 4f |UO | SUBQ.L #0x2,A7
00021b44 2f 05 |/ | MOVE.L D5,-(A7)
00021b46 48 78 00 38 |Hx 8 | PEA.L 0x38
00021b4a 48 78 00 08 |Hx | PEA.L 0x8
00021b4e 4e 93 |N | JSR (A3)
00021b50 de c1 | | ADDA.W D1,A7
00021b52 4a 1f |J | TST.B (A7)+
00021b54 67 0a |g | BEQ 0x21b60
00021b56 4a 87 |J | TST.L D7
00021b58 66 04 |f | BNE 0x21b5e
00021b5a 2c 05 |, | MOVE.L D5,D6
00021b5c 60 02 |` | BRA 0x21b60
00021b5e 53 87 |S | SUBQ.L #0x1,D7
00021b60 4a 86 |J | TST.L D6
00021b62 66 02 |f | BNE 0x21b66
00021b64 52 85 |R | ADDQ.L #0x1,D5
00021b66 60 00 ff 5e |` ^ | BRA 0x21ac6
00021b6a 4a 39 00 02 7c 18 |J9 | | TST.B 0x27c18
00021b70 66 0e |f | BNE 0x21b80
00021b72 48 79 00 02 7c 1a |Hy | | PEA.L 0x27c1a
00021b78 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String)
00021b7e 58 4f |XO | ADDQ.L #0x4,A7
00021b80 4a 14 |J | TST.B (A4)
00021b82 66 28 |f( | BNE 0x21bac
00021b84 41 fa f1 1a |A | LEA.L 0x20ca0,A0
00021b88 70 0c |p | MOVEQ.L #0x0c,D0
00021b8a 3f 20 |? | MOVE.W -(A0),-(A7)
00021b8c 51 c8 ff fc |Q | DBF D0,0x21b8a
00021b90 59 4f |YO | SUBQ.L #0x4,A7
00021b92 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021b96 3f 02 |? | MOVE.W D2,-(A7)
00021b98 3f 3c 00 1a |?< | MOVE.W #0x1a,-(A7)
00021b9c 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00021ba2 50 4f |PO | ADDQ.L #0x8,A7
00021ba4 4e ba f5 44 |N D | JSR 0x210ea
00021ba8 de fc 00 1e | | ADDA.W #0x1e,A7
00021bac 4a 86 |J | TST.L D6
00021bae 66 2e |f. | BNE 0x21bde
00021bb0 9e fc 00 14 | | SUBA.W #0x14,A7
00021bb4 20 4f | O | MOVEA.L A7,A0
00021bb6 43 fa f0 e8 |C | LEA.L 0x20ca0,A1
00021bba 70 12 |p | MOVEQ.L #0x12,D0
00021bbc 10 d9 | | MOVE.B (A1)+,(A0)+
00021bbe 51 c8 ff fc |Q | DBF D0,0x21bbc
00021bc2 59 4f |YO | SUBQ.L #0x4,A7
00021bc4 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021bc8 3f 02 |? | MOVE.W D2,-(A7)
00021bca 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7)
00021bce 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00021bd4 50 4f |PO | ADDQ.L #0x8,A7
00021bd6 4e ba f5 12 |N | JSR 0x210ea
00021bda de fc 00 18 | | ADDA.W #0x18,A7
00021bde 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0
00021be2 20 86 | | MOVE.L D6,(A0)
00021be4 20 6e 00 10 | n | MOVEA.L (A6+0x10),A0
00021be8 20 b9 00 02 7c 10 | | | MOVE.L 0x27c10,(A0)
00021bee 4a 92 |J | TST.L (A2)
00021bf0 66 0a |f | BNE 0x21bfc
00021bf2 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0
00021bf6 20 86 | | MOVE.L D6,(A0)
00021bf8 53 90 |S | SUBQ.L #0x1,(A0)
00021bfa 60 06 |` | BRA 0x21c02
00021bfc 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0
00021c00 20 92 | | MOVE.L (A2),(A0)
00021c02 4c df 1f e7 |L | MOVEM.L (A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3+A4
00021c06 4e 5e |N^ | UNLK A6
00021c08 4e 75 |Nu | RTS
00021c0a ; --------------------------------------------------------------------------------------
00021c0a ; OMSI PASCAL Function
00021c0a ; <LVAR 0x008 4(r)>
00021c0a ; <LVAR -0x008 @ 4(r)>
00021c0a ; <LVAR -0x00c @ 4(r)>
00021c0a ; <LVAR -0x010 @ 4(r)>
00021c0a ; --------------------------------------------------------------------------------------
00021c0a 4e 56 ff c8 |NV | LINK.W A6,#0xffc8
00021c0e bf d5 | | CMPA.L (A5),A7
00021c10 62 06 |b | BHI 0x21c18
00021c12 44 fc 00 02 |D | MOVE.W #0x2,CCR
00021c16 4e 76 |Nv | TRAPV
00021c18 de fc 00 24 | $ | ADDA.W #0x24,A7
00021c1c 48 e7 83 c0 |H | MOVEM.L A1+A0+D7+D6+D0,-(A7)
00021c20 41 f9 00 02 7b fc |A { | LEA.L 0x27bfc,A0
00021c26 43 ee ff f0 |C | LEA.L (A6-0x10),A1
00021c2a 2c 10 |, | MOVE.L (A0),D6
00021c2c 42 39 00 02 7c 18 |B9 | | CLR.B 0x27c18
00021c32 23 ee 00 08 00 02 7c 1a |# | | MOVE.L (A6+0x8),0x27c1a
00021c3a 2e 10 |. | MOVE.L (A0),D7
00021c3c 48 51 |HQ | PEA.L (A1)
00021c3e 48 6e ff f4 |Hn | PEA.L (A6-0xc)
00021c42 48 6e ff f8 |Hn | PEA.L (A6-0x8)
00021c46 4e ba fe 40 |N @ | JSR 0x21a88
00021c4a de fc 00 0c | | ADDA.W #0xc,A7
00021c4e 20 86 | | MOVE.L D6,(A0)
00021c50 20 2e ff f8 | . | MOVE.L (A6-0x8),D0
00021c54 06 80 00 00 00 09 | | ADDI.L #0x00000009,D0
00021c5a 2f 00 |/ | MOVE.L D0,-(A7)
00021c5c 90 ae ff f4 | | SUB.L (A6-0xc),D0
00021c60 53 80 |S | SUBQ.L #0x1,D0
00021c62 2f 00 |/ | MOVE.L D0,-(A7)
00021c64 4e ba f9 d8 |N | JSR 0x2163e
00021c68 58 4f |XO | ADDQ.L #0x4,A7
00021c6a 2e 91 |. | MOVE.L (A1),(A7)
00021c6c 2f 11 |/ | MOVE.L (A1),-(A7)
00021c6e 9f 97 | | SUB.L D7,(A7)
00021c70 4e ba f9 cc |N | JSR 0x2163e
00021c74 50 4f |PO | ADDQ.L #0x8,A7
00021c76 4c df 03 c1 |L | MOVEM.L (A7)+,D0+D6+D7+A0+A1
00021c7a 4e 5e |N^ | UNLK A6
00021c7c 4e 75 |Nu | RTS
00021c7e ; --------------------------------------------------------------------------------------
00021c7e ; OMSI PASCAL Function
00021c7e ; <LVAR 0x00c 4(r)>
00021c7e ; <LVAR 0x008 4(r)>
00021c7e ; <LVAR -0x008 @ 4(r)>
00021c7e ; <LVAR -0x00c @ 4(r)>
00021c7e ; <LVAR -0x010 @ 4(r)>
00021c7e ; --------------------------------------------------------------------------------------
00021c7e 4e 56 ff c8 |NV | LINK.W A6,#0xffc8
00021c82 bf d5 | | CMPA.L (A5),A7
00021c84 62 06 |b | BHI 0x21c8c
00021c86 44 fc 00 02 |D | MOVE.W #0x2,CCR
00021c8a 4e 76 |Nv | TRAPV
00021c8c de fc 00 24 | $ | ADDA.W #0x24,A7
00021c90 48 e7 83 c0 |H | MOVEM.L A1+A0+D7+D6+D0,-(A7)
00021c94 41 f9 00 02 7b fc |A { | LEA.L 0x27bfc,A0
00021c9a 43 ee ff f0 |C | LEA.L (A6-0x10),A1
00021c9e 2c 10 |, | MOVE.L (A0),D6
00021ca0 13 fc 00 01 00 02 7c 18 | | | MOVE.B #0x01,0x27c18
00021ca8 23 ee 00 08 00 02 7c 1e |# | | MOVE.L (A6+0x8),0x27c1e
00021cb0 23 ee 00 0c 00 02 7c 22 |# |"| MOVE.L (A6+0xc),0x27c22
00021cb8 2e 10 |. | MOVE.L (A0),D7
00021cba 48 51 |HQ | PEA.L (A1)
00021cbc 48 6e ff f4 |Hn | PEA.L (A6-0xc)
00021cc0 48 6e ff f8 |Hn | PEA.L (A6-0x8)
00021cc4 4e ba fd c2 |N | JSR 0x21a88
00021cc8 de fc 00 0c | | ADDA.W #0xc,A7
00021ccc 20 86 | | MOVE.L D6,(A0)
00021cce 20 2e ff f8 | . | MOVE.L (A6-0x8),D0
00021cd2 06 80 00 00 00 09 | | ADDI.L #0x00000009,D0
00021cd8 2f 00 |/ | MOVE.L D0,-(A7)
00021cda 90 ae ff f4 | | SUB.L (A6-0xc),D0
00021cde 53 80 |S | SUBQ.L #0x1,D0
00021ce0 2f 00 |/ | MOVE.L D0,-(A7)
00021ce2 4e ba f9 5a |N Z | JSR 0x2163e
00021ce6 58 4f |XO | ADDQ.L #0x4,A7
00021ce8 2e 91 |. | MOVE.L (A1),(A7)
00021cea 2f 11 |/ | MOVE.L (A1),-(A7)
00021cec 9f 97 | | SUB.L D7,(A7)
00021cee 4e ba f9 4e |N N | JSR 0x2163e
00021cf2 50 4f |PO | ADDQ.L #0x8,A7
00021cf4 4c df 03 c1 |L | MOVEM.L (A7)+,D0+D6+D7+A0+A1
00021cf8 4e 5e |N^ | UNLK A6
00021cfa 4e 75 |Nu | RTS
00021cfc ; --------------------------------------------------------------------------------------
00021cfc ; OMSI PASCAL Function
00021cfc ; <LVAR 0x010 4(rw)>
00021cfc ; <LVAR 0x00c 4(r)>
00021cfc ; <LVAR 0x008 4(r)>
00021cfc ; --------------------------------------------------------------------------------------
00021cfc 4e 56 ff f8 |NV | LINK.W A6,#0xfff8
00021d00 bf d5 | | CMPA.L (A5),A7
00021d02 62 06 |b | BHI 0x21d0a
00021d04 44 fc 00 02 |D | MOVE.W #0x2,CCR
00021d08 4e 76 |Nv | TRAPV
00021d0a de fc 00 08 | | ADDA.W #0x8,A7
00021d0e 48 e7 80 00 |H | MOVEM.L D0,-(A7)
00021d12 4a ae 00 08 |J | TST.L (A6+0x8)
00021d16 66 06 |f | BNE 0x21d1e
00021d18 42 ae 00 10 |B | CLR.L (A6+0x10)
00021d1c 60 0e |` | BRA 0x21d2c
00021d1e 20 2e 00 0c | . | MOVE.L (A6+0xc),D0
00021d22 90 ae 00 08 | | SUB.L (A6+0x8),D0
00021d26 52 80 |R | ADDQ.L #0x1,D0
00021d28 2d 40 00 10 |-@ | MOVE.L D0,(A6+0x10)
00021d2c 4c df 00 01 |L | MOVEM.L (A7)+,D0
00021d30 4e 5e |N^ | UNLK A6
00021d32 4e 75 |Nu | RTS
00021d34 ; --------------------------------------------------------------------------------------
00021d34 ; OMSI PASCAL Function
00021d34 ; <LVAR 0x014 4(w)>
00021d34 ; <LVAR 0x010 @ 4(w)>
00021d34 ; <LVAR 0x00c 4(r)>
00021d34 ; <LVAR 0x008 4(r)>
00021d34 ; --------------------------------------------------------------------------------------
00021d34 4e 56 ff d8 |NV | LINK.W A6,#0xffd8
00021d38 bf d5 | | CMPA.L (A5),A7
00021d3a 62 06 |b | BHI 0x21d42
00021d3c 44 fc 00 02 |D | MOVE.W #0x2,CCR
00021d40 4e 76 |Nv | TRAPV
00021d42 de fc 00 20 | | ADDA.W #0x20,A7
00021d46 48 e7 81 c8 |H | MOVEM.L A4+A1+A0+D7+D0,-(A7)
00021d4a 28 6e 00 0c |(n | MOVEA.L (A6+0xc),A4
00021d4e 2d 7a f2 b2 00 10 |-z | MOVE.L 0x21002,(A6+0x10)
00021d54 2d 7a f2 b0 00 14 |-z | MOVE.L 0x21006,(A6+0x14)
00021d5a 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00021d5e 7e 00 |~ | MOVEQ.L #0x00,D7
00021d60 be 97 | | CMP.L (A7),D7
00021d62 6e 28 |n( | BGT 0x21d8c
00021d64 b8 fc 00 01 | | CMPA.W #0x1,A4
00021d68 66 04 |f | BNE 0x21d6e
00021d6a 58 4f |XO | ADDQ.L #0x4,A7
00021d6c 60 20 |` | BRA 0x21d8e
00021d6e be ae 00 08 | | CMP.L (A6+0x8),D7
00021d72 66 10 |f | BNE 0x21d84
00021d74 41 ee 00 10 |A | LEA.L (A6+0x10),A0
00021d78 22 4c |"L | MOVEA.L A4,A1
00021d7a 70 07 |p | MOVEQ.L #0x07,D0
00021d7c 10 d9 | | MOVE.B (A1)+,(A0)+
00021d7e 51 c8 ff fc |Q | DBF D0,0x21d7c
00021d82 60 04 |` | BRA 0x21d88
00021d84 28 6c 00 08 |(l | MOVEA.L (A4+0x8),A4
00021d88 52 87 |R | ADDQ.L #0x1,D7
00021d8a 68 d4 |h | BVC 0x21d60
00021d8c 58 4f |XO | ADDQ.L #0x4,A7
00021d8e 4c df 13 81 |L | MOVEM.L (A7)+,D0+D7+A0+A1+A4
00021d92 4e 5e |N^ | UNLK A6
00021d94 4e 75 |Nu | RTS
00021d96 ; --------------------------------------------------------------------------------------
00021d96 ; OMSI PASCAL Function
00021d96 ; <LVAR 0x010 4(w)>
00021d96 ; <LVAR 0x00c 4(r)>
00021d96 ; <LVAR 0x008 4(r)>
00021d96 ; <LVAR -0x008 @ 4(r)>
00021d96 ; --------------------------------------------------------------------------------------
00021d96 4e 56 ff ce |NV | LINK.W A6,#0xffce
00021d9a bf d5 | | CMPA.L (A5),A7
00021d9c 62 06 |b | BHI 0x21da4
00021d9e 44 fc 00 02 |D | MOVE.W #0x2,CCR
00021da2 4e 76 |Nv | TRAPV
00021da4 de fc 00 26 | & | ADDA.W #0x26,A7
00021da8 48 e7 83 c0 |H | MOVEM.L A1+A0+D7+D6+D0,-(A7)
00021dac 43 ee ff f8 |C | LEA.L (A6-0x8),A1
00021db0 48 51 |HQ | PEA.L (A1)
00021db2 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String)
00021db8 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7)
00021dbc 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00021dc0 4e ba ff 3a |N : | JSR 0x21cfc
00021dc4 50 4f |PO | ADDQ.L #0x8,A7
00021dc6 7e 01 |~ | MOVEQ.L #0x01,D7
00021dc8 be 97 | | CMP.L (A7),D7
00021dca 6e 38 |n8 | BGT 0x21e04
00021dcc 20 07 | | MOVE.L D7,D0
00021dce d0 ae 00 08 | | ADD.L (A6+0x8),D0
00021dd2 53 80 |S | SUBQ.L #0x1,D0
00021dd4 53 80 |S | SUBQ.L #0x1,D0
00021dd6 0c 80 00 00 0f ff | | CMPI.L #0x00000fff,D0
00021ddc 63 02 |c | BLS 0x21de0
00021dde 4e 4f |NO | TRAP #15
00021de0 41 f9 00 02 6b f4 |A k | LEA.L 0x26bf4,A0
00021de6 1c 30 08 08 | 0 | MOVE.B (A0+D0.L+#0x8),D6
00021dea 0c 06 00 2f | / | CMPI.B #0x2f,D6
00021dee 66 04 |f | BNE 0x21df4
00021df0 58 4f |XO | ADDQ.L #0x4,A7
00021df2 60 12 |` | BRA 0x21e06
00021df4 2f 11 |/ | MOVE.L (A1),-(A7)
00021df6 1f 06 | | MOVE.B D6,-(A7)
00021df8 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char)
00021dfe 5c 4f |\O | ADDQ.L #0x6,A7
00021e00 52 87 |R | ADDQ.L #0x1,D7
00021e02 68 c4 |h | BVC 0x21dc8
00021e04 58 4f |XO | ADDQ.L #0x4,A7
00021e06 2d 51 00 10 |-Q | MOVE.L (A1),(A6+0x10)
00021e0a 4c df 03 c1 |L | MOVEM.L (A7)+,D0+D6+D7+A0+A1
00021e0e 4e 5e |N^ | UNLK A6
00021e10 4e 75 |Nu | RTS
00021e12 ; --------------------------------------------------------------------------------------
00021e12 ; OMSI PASCAL Function
00021e12 ; <LVAR 0x010 4(w)>
00021e12 ; <LVAR 0x00c 4(r)>
00021e12 ; <LVAR 0x008 4(r)>
00021e12 ; --------------------------------------------------------------------------------------
00021e12 4e 56 ff e8 |NV | LINK.W A6,#0xffe8
00021e16 bf d5 | | CMPA.L (A5),A7
00021e18 62 06 |b | BHI 0x21e20
00021e1a 44 fc 00 02 |D | MOVE.W #0x2,CCR
00021e1e 4e 76 |Nv | TRAPV
00021e20 de fc 00 18 | | ADDA.W #0x18,A7
00021e24 9e fc 00 0c | | SUBA.W #0xc,A7
00021e28 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7)
00021e2c 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00021e30 4e ba ff 02 |N | JSR 0x21d34
00021e34 50 4f |PO | ADDQ.L #0x8,A7
00021e36 4e ba ff 5e |N ^ | JSR 0x21d96
00021e3a 50 4f |PO | ADDQ.L #0x8,A7
00021e3c 2d 5f 00 10 |-_ | MOVE.L (A7)+,(A6+0x10)
00021e40 4e 5e |N^ | UNLK A6
00021e42 4e 75 |Nu | RTS
00021e44 ; --------------------------------------------------------------------------------------
00021e44 ; OMSI PASCAL Function
00021e44 ; <LVAR 0x014 4(w)>
00021e44 ; <LVAR 0x010 4(w)>
00021e44 ; <LVAR 0x00c 4(r)>
00021e44 ; <LVAR 0x008 4(r)>
00021e44 ; --------------------------------------------------------------------------------------
00021e44 4e 56 ff e8 |NV | LINK.W A6,#0xffe8
00021e48 bf d5 | | CMPA.L (A5),A7
00021e4a 62 06 |b | BHI 0x21e52
00021e4c 44 fc 00 02 |D | MOVE.W #0x2,CCR
00021e50 4e 76 |Nv | TRAPV
00021e52 de fc 00 18 | | ADDA.W #0x18,A7
00021e56 9e fc 00 0c | | SUBA.W #0xc,A7
00021e5a 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7)
00021e5e 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00021e62 4e ba ff ae |N | JSR 0x21e12
00021e66 50 4f |PO | ADDQ.L #0x8,A7
00021e68 48 78 00 10 |Hx | PEA.L 0x10
00021e6c 4e b9 00 01 03 60 |N ` | JSR ?StringToInt64()
00021e72 50 4f |PO | ADDQ.L #0x8,A7
00021e74 2d 5f 00 10 |-_ | MOVE.L (A7)+,(A6+0x10)
00021e78 2d 5f 00 14 |-_ | MOVE.L (A7)+,(A6+0x14)
00021e7c 4e 5e |N^ | UNLK A6
00021e7e 4e 75 |Nu | RTS
00021e80 ; --------------------------------------------------------------------------------------
00021e80 ; OMSI PASCAL Function
00021e80 ; <LVAR 0x010 4(w)>
00021e80 ; <LVAR 0x00c 4(r)>
00021e80 ; <LVAR 0x008 4(r)>
00021e80 ; --------------------------------------------------------------------------------------
00021e80 4e 56 ff e8 |NV | LINK.W A6,#0xffe8
00021e84 bf d5 | | CMPA.L (A5),A7
00021e86 62 06 |b | BHI 0x21e8e
00021e88 44 fc 00 02 |D | MOVE.W #0x2,CCR
00021e8c 4e 76 |Nv | TRAPV
00021e8e de fc 00 18 | | ADDA.W #0x18,A7
00021e92 9e fc 00 0c | | SUBA.W #0xc,A7
00021e96 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7)
00021e9a 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00021e9e 4e ba ff a4 |N | JSR 0x21e44
00021ea2 50 4f |PO | ADDQ.L #0x8,A7
00021ea4 4e b9 00 01 03 50 |N P | JSR Quad2Long(a : Quad) : Long
00021eaa 50 4f |PO | ADDQ.L #0x8,A7
00021eac 2d 5f 00 10 |-_ | MOVE.L (A7)+,(A6+0x10)
00021eb0 4e 5e |N^ | UNLK A6
00021eb2 4e 75 |Nu | RTS
00021eb4 ; --------------------------------------------------------------------------------------
00021eb4 ; OMSI PASCAL Function
00021eb4 ; <LVAR 0x008 @ 4(r)>
00021eb4 ; --------------------------------------------------------------------------------------
00021eb4 4e 56 ff d4 |NV | LINK.W A6,#0xffd4
00021eb8 bf d5 | | CMPA.L (A5),A7
00021eba 62 06 |b | BHI 0x21ec2
00021ebc 44 fc 00 02 |D | MOVE.W #0x2,CCR
00021ec0 4e 76 |Nv | TRAPV
00021ec2 de fc 00 28 | ( | ADDA.W #0x28,A7
00021ec6 48 e7 c1 e0 |H | MOVEM.L A2+A1+A0+D7+D1+D0,-(A7)
00021eca 45 f9 00 02 7b fc |E { | LEA.L 0x27bfc,A2
00021ed0 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0
00021ed4 2f 08 |/ | MOVE.L A0,-(A7)
00021ed6 2f 12 |/ | MOVE.L (A2),-(A7)
00021ed8 30 10 |0 | MOVE.W (A0),D0
00021eda 48 c0 |H | EXTW.L D0
00021edc 44 80 |D | NEG.L D0
00021ede 2f 00 |/ | MOVE.L D0,-(A7)
00021ee0 4e ba f7 5c |N \ | JSR 0x2163e
00021ee4 50 4f |PO | ADDQ.L #0x8,A7
00021ee6 30 10 |0 | MOVE.W (A0),D0
00021ee8 48 c0 |H | EXTW.L D0
00021eea 2f 00 |/ | MOVE.L D0,-(A7)
00021eec 7e 01 |~ | MOVEQ.L #0x01,D7
00021eee be 97 | | CMP.L (A7),D7
00021ef0 6e 34 |n4 | BGT 0x21f26
00021ef2 20 07 | | MOVE.L D7,D0
00021ef4 d0 92 | | ADD.L (A2),D0
00021ef6 53 80 |S | SUBQ.L #0x1,D0
00021ef8 53 80 |S | SUBQ.L #0x1,D0
00021efa 0c 80 00 00 0f ff | | CMPI.L #0x00000fff,D0
00021f00 63 02 |c | BLS 0x21f04
00021f02 4e 4f |NO | TRAP #15
00021f04 41 f9 00 02 6b f4 |A k | LEA.L 0x26bf4,A0
00021f0a 22 07 |" | MOVE.L D7,D1
00021f0c 53 81 |S | SUBQ.L #0x1,D1
00021f0e 0c 81 00 00 00 7d | } | CMPI.L #0x0000007d,D1
00021f14 63 02 |c | BLS 0x21f18
00021f16 4e 4f |NO | TRAP #15
00021f18 22 6f 00 04 |"o | MOVEA.L (A7+0x4),A1
00021f1c 11 b1 18 02 08 08 | | MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x8)
00021f22 52 87 |R | ADDQ.L #0x1,D7
00021f24 68 c8 |h | BVC 0x21eee
00021f26 50 4f |PO | ADDQ.L #0x8,A7
00021f28 48 6e 00 08 |Hn | PEA.L (A6+0x8)
00021f2c 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String)
00021f32 58 4f |XO | ADDQ.L #0x4,A7
00021f34 4c df 07 83 |L | MOVEM.L (A7)+,D0+D1+D7+A0+A1+A2
00021f38 4e 5e |N^ | UNLK A6
00021f3a 4e 75 |Nu | RTS
00021f3c ; --------------------------------------------------------------------------------------
00021f3c ; OMSI PASCAL Function
00021f3c ; <LVAR 0x00c 4(r)>
00021f3c ; <LVAR 0x008 4(r)>
00021f3c ; --------------------------------------------------------------------------------------
00021f3c 4e 56 ff ec |NV | LINK.W A6,#0xffec
00021f40 bf d5 | | CMPA.L (A5),A7
00021f42 62 06 |b | BHI 0x21f4a
00021f44 44 fc 00 02 |D | MOVE.W #0x2,CCR
00021f48 4e 76 |Nv | TRAPV
00021f4a de fc 00 14 | | ADDA.W #0x14,A7
00021f4e 59 4f |YO | SUBQ.L #0x4,A7
00021f50 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7)
00021f54 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00021f58 48 78 00 10 |Hx | PEA.L 0x10
00021f5c 4e b9 00 01 03 5c |N \ | JSR Quad2String(a : Quad; radix : Long ) : String
00021f62 de fc 00 0c | | ADDA.W #0xc,A7
00021f66 4e ba ff 4c |N L | JSR 0x21eb4
00021f6a 58 4f |XO | ADDQ.L #0x4,A7
00021f6c 4e 5e |N^ | UNLK A6
00021f6e 4e 75 |Nu | RTS
00021f70 ; --------------------------------------------------------------------------------------
00021f70 ; OMSI PASCAL Function
00021f70 ; <LVAR 0x008 4(r)>
00021f70 ; --------------------------------------------------------------------------------------
00021f70 4e 56 ff f4 |NV | LINK.W A6,#0xfff4
00021f74 bf d5 | | CMPA.L (A5),A7
00021f76 62 06 |b | BHI 0x21f7e
00021f78 44 fc 00 02 |D | MOVE.W #0x2,CCR
00021f7c 4e 76 |Nv | TRAPV
00021f7e de fc 00 0c | | ADDA.W #0xc,A7
00021f82 59 4f |YO | SUBQ.L #0x4,A7
00021f84 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00021f88 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String
00021f8e 58 4f |XO | ADDQ.L #0x4,A7
00021f90 4e ba ff 22 |N " | JSR 0x21eb4
00021f94 58 4f |XO | ADDQ.L #0x4,A7
00021f96 4e 5e |N^ | UNLK A6
00021f98 4e 75 |Nu | RTS
00021f9a ; --------------------------------------------------------------------------------------
00021f9a ; OMSI PASCAL Function
00021f9a ; <LVAR 0x008 4(r)>
00021f9a ; <LVAR -0x004 @ 4(r)>
00021f9a ; <LVAR -0x008 4(rw)>
00021f9a ; --------------------------------------------------------------------------------------
00021f9a 4e 56 ff ca |NV | LINK.W A6,#0xffca
00021f9e bf d5 | | CMPA.L (A5),A7
00021fa0 62 06 |b | BHI 0x21fa8
00021fa2 44 fc 00 02 |D | MOVE.W #0x2,CCR
00021fa6 4e 76 |Nv | TRAPV
00021fa8 de fc 00 2a | * | ADDA.W #0x2a,A7
00021fac 48 e7 81 e0 |H | MOVEM.L A2+A1+A0+D7+D0,-(A7)
00021fb0 43 ee ff fc |C | LEA.L (A6-0x4),A1
00021fb4 45 ee ff f8 |E | LEA.L (A6-0x8),A2
00021fb8 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0
00021fbc 24 a8 00 08 |$ | MOVE.L (A0+0x8),(A2)
00021fc0 48 51 |HQ | PEA.L (A1)
00021fc2 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String)
00021fc8 58 4f |XO | ADDQ.L #0x4,A7
00021fca 20 52 | R | MOVEA.L (A2),A0
00021fcc b0 fc 00 01 | | CMPA.W #0x1,A0
00021fd0 67 00 00 86 |g | BEQ 0x22058
00021fd4 4a 90 |J | TST.L (A0)
00021fd6 67 68 |gh | BEQ 0x22040
00021fd8 2f 28 00 04 |/( | MOVE.L (A0+0x4),-(A7)
00021fdc 2e 10 |. | MOVE.L (A0),D7
00021fde be 97 | | CMP.L (A7),D7
00021fe0 6e 14 |n | BGT 0x21ff6
00021fe2 20 17 | | MOVE.L (A7),D0
00021fe4 0c 87 80 00 00 01 | | CMPI.L #0x80000001,D7
00021fea 6d 08 |m | BLT 0x21ff4
00021fec 0c 80 7f ff ff ff | | CMPI.L #0x7fffffff,D0
00021ff2 6f 02 |o | BLE 0x21ff6
00021ff4 4e 4f |NO | TRAP #15
00021ff6 be 97 | | CMP.L (A7),D7
00021ff8 6e 44 |nD | BGT 0x2203e
00021ffa 2f 11 |/ | MOVE.L (A1),-(A7)
00021ffc 20 07 | | MOVE.L D7,D0
00021ffe 53 80 |S | SUBQ.L #0x1,D0
00022000 0c 80 00 00 0f ff | | CMPI.L #0x00000fff,D0
00022006 63 02 |c | BLS 0x2200a
00022008 4e 4f |NO | TRAP #15
0002200a 41 f9 00 02 6b f4 |A k | LEA.L 0x26bf4,A0
00022010 1f 30 08 08 | 0 | MOVE.B (A0+D0.L+#0x8),-(A7)
00022014 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char)
0002201a 5c 4f |\O | ADDQ.L #0x6,A7
0002201c 20 51 | Q | MOVEA.L (A1),A0
0002201e 30 10 |0 | MOVE.W (A0),D0
00022020 0c 40 00 7a | @ z | CMPI.W #0x007a,D0
00022024 6d 14 |m | BLT 0x2203a
00022026 2f 11 |/ | MOVE.L (A1),-(A7)
00022028 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String)
0002202e 58 4f |XO | ADDQ.L #0x4,A7
00022030 48 51 |HQ | PEA.L (A1)
00022032 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String)
00022038 58 4f |XO | ADDQ.L #0x4,A7
0002203a 52 87 |R | ADDQ.L #0x1,D7
0002203c 68 b8 |h | BVC 0x21ff6
0002203e 58 4f |XO | ADDQ.L #0x4,A7
00022040 2f 11 |/ | MOVE.L (A1),-(A7)
00022042 1f 3c 00 20 | < | MOVE.B #0x20,-(A7)
00022046 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char)
0002204c 5c 4f |\O | ADDQ.L #0x6,A7
0002204e 20 52 | R | MOVEA.L (A2),A0
00022050 24 a8 00 08 |$ | MOVE.L (A0+0x8),(A2)
00022054 60 00 ff 74 |` t | BRA 0x21fca
00022058 2f 11 |/ | MOVE.L (A1),-(A7)
0002205a 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00022060 58 4f |XO | ADDQ.L #0x4,A7
00022062 4c df 07 81 |L | MOVEM.L (A7)+,D0+D7+A0+A1+A2
00022066 4e 5e |N^ | UNLK A6
00022068 4e 75 |Nu | RTS
0002206a ; --------------------------------------------------------------------------------------
0002206a ; OMSI PASCAL Function
0002206a ; <LVAR 0x008 @ 4(r)>
0002206a ; <LVAR -0x003 @ 1(r)>
0002206a ; <LVAR -0x004 @ 1(r)>
0002206a ; <LVAR -0x008 @ 4(r)>
0002206a ; <LVAR -0x00c @ 4(rw)>
0002206a ; --------------------------------------------------------------------------------------
0002206a 4e 56 ff ae |NV | LINK.W A6,#0xffae
0002206e bf d5 | | CMPA.L (A5),A7
00022070 62 06 |b | BHI 0x22078
00022072 44 fc 00 02 |D | MOVE.W #0x2,CCR
00022076 4e 76 |Nv | TRAPV
00022078 de fc 00 46 | F | ADDA.W #0x46,A7
0002207c 48 e7 c0 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D1+D0,-(A7)
00022080 43 ee 00 08 |C | LEA.L (A6+0x8),A1
00022084 45 ee ff f4 |E | LEA.L (A6-0xc),A2
00022088 47 ee ff fc |G | LEA.L (A6-0x4),A3
0002208c 49 ee ff f8 |I | LEA.L (A6-0x8),A4
00022090 72 01 |r | MOVEQ.L #0x01,D1
00022092 2f 3a ec 36 |/: 6 | MOVE.L 0x20cca,-(A7)
00022096 51 4f |QO | SUBQ.L #0x8,A7
00022098 2f 11 |/ | MOVE.L (A1),-(A7)
0002209a 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String
000220a0 48 6f 00 0c |Ho | PEA.L (A7+0xc)
000220a4 3f 01 |? | MOVE.W D1,-(A7)
000220a6 3f 3c 00 04 |?< | MOVE.W #0x4,-(A7)
000220aa 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
000220b0 50 4f |PO | ADDQ.L #0x8,A7
000220b2 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
000220b8 50 4f |PO | ADDQ.L #0x8,A7
000220ba 24 9f |$ | MOVE.L (A7)+,(A2)
000220bc 2e 92 |. | MOVE.L (A2),(A7)
000220be 42 27 |B' | CLR.B -(A7)
000220c0 42 27 |B' | CLR.B -(A7)
000220c2 48 78 00 00 |Hx | PEA.L 0x0
000220c6 48 53 |HS | PEA.L (A3)
000220c8 48 54 |HT | PEA.L (A4)
000220ca 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
000220d0 de fc 00 14 | | ADDA.W #0x14,A7
000220d4 4a 13 |J | TST.B (A3)
000220d6 67 36 |g6 | BEQ 0x2210e
000220d8 41 fa eb f0 |A | LEA.L 0x20cca,A0
000220dc 70 0a |p | MOVEQ.L #0x0a,D0
000220de 3f 20 |? | MOVE.W -(A0),-(A7)
000220e0 51 c8 ff fc |Q | DBF D0,0x220de
000220e4 51 4f |QO | SUBQ.L #0x8,A7
000220e6 48 6f 00 08 |Ho | PEA.L (A7+0x8)
000220ea 3f 01 |? | MOVE.W D1,-(A7)
000220ec 3f 3c 00 16 |?< | MOVE.W #0x16,-(A7)
000220f0 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
000220f6 58 4f |XO | ADDQ.L #0x4,A7
000220f8 2e 91 |. | MOVE.L (A1),(A7)
000220fa 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00022100 50 4f |PO | ADDQ.L #0x8,A7
00022102 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00022108 de fc 00 1a | | ADDA.W #0x1a,A7
0002210c 60 54 |`T | BRA 0x22162
0002210e 2f 14 |/ | MOVE.L (A4),-(A7)
00022110 48 51 |HQ | PEA.L (A1)
00022112 48 6e ff fd |Hn | PEA.L (A6-0x3)
00022116 4e b9 00 01 04 3c |N < | JSR FileReadLine(file : File; VAR a : String; VAR b : Byte)
0002211c de fc 00 0c | | ADDA.W #0xc,A7
00022120 4a 2e ff fd |J. | TST.B (A6-0x3)
00022124 66 14 |f | BNE 0x2213a
00022126 59 4f |YO | SUBQ.L #0x4,A7
00022128 2f 11 |/ | MOVE.L (A1),-(A7)
0002212a 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String
00022130 58 4f |XO | ADDQ.L #0x4,A7
00022132 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00022138 58 4f |XO | ADDQ.L #0x4,A7
0002213a 4a 2e ff fd |J. | TST.B (A6-0x3)
0002213e 67 ce |g | BEQ 0x2210e
00022140 42 27 |B' | CLR.B -(A7)
00022142 1f 3c 00 02 | < | MOVE.B #0x02,-(A7)
00022146 48 78 00 01 |Hx | PEA.L 0x1
0002214a 48 53 |HS | PEA.L (A3)
0002214c 48 54 |HT | PEA.L (A4)
0002214e 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File)
00022154 de fc 00 10 | | ADDA.W #0x10,A7
00022158 48 51 |HQ | PEA.L (A1)
0002215a 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String)
00022160 58 4f |XO | ADDQ.L #0x4,A7
00022162 48 52 |HR | PEA.L (A2)
00022164 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String)
0002216a 58 4f |XO | ADDQ.L #0x4,A7
0002216c 4c df 1f 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2+A3+A4
00022170 4e 5e |N^ | UNLK A6
00022172 4e 75 |Nu | RTS
00022174 ; --------------------------------------------------------------------------------------
00022174 ; OMSI PASCAL Function
00022174 ; <LVAR 0x008 4(r)>
00022174 ; --------------------------------------------------------------------------------------
00022174 4e 56 ff c6 |NV | LINK.W A6,#0xffc6
00022178 bf d5 | | CMPA.L (A5),A7
0002217a 62 06 |b | BHI 0x22182
0002217c 44 fc 00 02 |D | MOVE.W #0x2,CCR
00022180 4e 76 |Nv | TRAPV
00022182 de fc 00 2e | . | ADDA.W #0x2e,A7
00022186 48 e7 83 88 |H | MOVEM.L A4+A0+D7+D6+D0,-(A7)
0002218a 59 4f |YO | SUBQ.L #0x4,A7
0002218c 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00022190 4e ba f3 64 |N d | JSR 0x214f6
00022194 58 4f |XO | ADDQ.L #0x4,A7
00022196 2c 1f |, | MOVE.L (A7)+,D6
00022198 66 2e |f. | BNE 0x221c8
0002219a 41 f9 00 02 7c 0e |A | | LEA.L 0x27c0e,A0
000221a0 70 04 |p | MOVEQ.L #0x04,D0
000221a2 3f 20 |? | MOVE.W -(A0),-(A7)
000221a4 51 c8 ff fc |Q | DBF D0,0x221a2
000221a8 59 4f |YO | SUBQ.L #0x4,A7
000221aa 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000221ae 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
000221b2 3f 3c 00 0a |?< | MOVE.W #0xa,-(A7)
000221b6 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
000221bc 50 4f |PO | ADDQ.L #0x8,A7
000221be 4e ba fe aa |N | JSR 0x2206a
000221c2 de fc 00 0e | | ADDA.W #0xe,A7
000221c6 60 26 |`& | BRA 0x221ee
000221c8 2f 06 |/ | MOVE.L D6,-(A7)
000221ca 7e 01 |~ | MOVEQ.L #0x01,D7
000221cc be 97 | | CMP.L (A7),D7
000221ce 6e 1c |n | BGT 0x221ec
000221d0 59 4f |YO | SUBQ.L #0x4,A7
000221d2 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
000221d6 2f 07 |/ | MOVE.L D7,-(A7)
000221d8 4e ba fc 38 |N 8 | JSR 0x21e12
000221dc 50 4f |PO | ADDQ.L #0x8,A7
000221de 28 5f |(_ | MOVEA.L (A7)+,A4
000221e0 2f 0c |/ | MOVE.L A4,-(A7)
000221e2 4e ba fe 86 |N | JSR 0x2206a
000221e6 58 4f |XO | ADDQ.L #0x4,A7
000221e8 52 87 |R | ADDQ.L #0x1,D7
000221ea 68 e0 |h | BVC 0x221cc
000221ec 58 4f |XO | ADDQ.L #0x4,A7
000221ee 4c df 11 c1 |L | MOVEM.L (A7)+,D0+D6+D7+A0+A4
000221f2 4e 5e |N^ | UNLK A6
000221f4 4e 75 |Nu | RTS
000221f6 ; --------------------------------------------------------------------------------------
000221f6 ; OMSI PASCAL Function
000221f6 ; <LVAR 0x00c @>
000221f6 ; <LVAR 0x008 @ 4(r)>
000221f6 ; <LVAR -0x020 @>
000221f6 ; --------------------------------------------------------------------------------------
000221f6 4e 56 ff b8 |NV | LINK.W A6,#0xffb8
000221fa bf d5 | | CMPA.L (A5),A7
000221fc 62 06 |b | BHI 0x22204
000221fe 44 fc 00 02 |D | MOVE.W #0x2,CCR
00022202 4e 76 |Nv | TRAPV
00022204 de fc 00 24 | $ | ADDA.W #0x24,A7
00022208 48 e7 e1 c0 |H | MOVEM.L A1+A0+D7+D2+D1+D0,-(A7)
0002220c 74 1d |t | MOVEQ.L #0x1d,D2
0002220e 7e 01 |~ | MOVEQ.L #0x01,D7
00022210 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0
00022214 30 10 |0 | MOVE.W (A0),D0
00022216 48 c0 |H | EXTW.L D0
00022218 be 80 | | CMP.L D0,D7
0002221a 6f 10 |o | BLE 0x2222c
0002221c 20 07 | | MOVE.L D7,D0
0002221e 53 80 |S | SUBQ.L #0x1,D0
00022220 b0 82 | | CMP.L D2,D0
00022222 63 02 |c | BLS 0x22226
00022224 4e 4f |NO | TRAP #15
00022226 42 36 08 e0 |B6 | CLR.B (A6+D0.L-#0x20)
0002222a 60 1e |` | BRA 0x2224a
0002222c 20 07 | | MOVE.L D7,D0
0002222e 53 80 |S | SUBQ.L #0x1,D0
00022230 b0 82 | | CMP.L D2,D0
00022232 63 02 |c | BLS 0x22236
00022234 4e 4f |NO | TRAP #15
00022236 22 07 |" | MOVE.L D7,D1
00022238 53 81 |S | SUBQ.L #0x1,D1
0002223a 0c 81 00 00 00 7d | } | CMPI.L #0x0000007d,D1
00022240 63 02 |c | BLS 0x22244
00022242 4e 4f |NO | TRAP #15
00022244 1d b0 18 02 08 e0 | | MOVE.B (A0+D1.L+#0x2),(A6+D0.L-#0x20)
0002224a 52 87 |R | ADDQ.L #0x1,D7
0002224c 0c 87 00 00 00 1e | | CMPI.L #0x0000001e,D7
00022252 6f bc |o | BLE 0x22210
00022254 48 6e 00 08 |Hn | PEA.L (A6+0x8)
00022258 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String)
0002225e 58 4f |XO | ADDQ.L #0x4,A7
00022260 41 ee 00 0c |A | LEA.L (A6+0xc),A0
00022264 43 ee ff e0 |C | LEA.L (A6-0x20),A1
00022268 70 0e |p | MOVEQ.L #0x0e,D0
0002226a 30 d9 |0 | MOVE.W (A1)+,(A0)+
0002226c 51 c8 ff fc |Q | DBF D0,0x2226a
00022270 4c df 03 87 |L | MOVEM.L (A7)+,D0+D1+D2+D7+A0+A1
00022274 4e 5e |N^ | UNLK A6
00022276 4e 75 |Nu | RTS
00022278 ; --------------------------------------------------------------------------------------
00022278 ; OMSI PASCAL Function
00022278 ; <LVAR 0x026 4(w)>
00022278 ; <LVAR 0x008 @>
00022278 ; <LVAR -0x006 4(rw)>
00022278 ; --------------------------------------------------------------------------------------
00022278 4e 56 ff d6 |NV | LINK.W A6,#0xffd6
0002227c bf d5 | | CMPA.L (A5),A7
0002227e 62 06 |b | BHI 0x22286
00022280 44 fc 00 02 |D | MOVE.W #0x2,CCR
00022284 4e 76 |Nv | TRAPV
00022286 de fc 00 24 | $ | ADDA.W #0x24,A7
0002228a 48 e7 c1 f0 |H | MOVEM.L A3+A2+A1+A0+D7+D1+D0,-(A7)
0002228e 47 ee ff fa |G | LEA.L (A6-0x6),A3
00022292 7e 00 |~ | MOVEQ.L #0x00,D7
00022294 26 b9 00 02 7c 26 |& |& | MOVE.L 0x27c26,(A3)
0002229a 20 53 | S | MOVEA.L (A3),A0
0002229c b0 fc 00 01 | | CMPA.W #0x1,A0
000222a0 67 1e |g | BEQ 0x222c0
000222a2 4a 07 |J | TST.B D7
000222a4 66 1a |f | BNE 0x222c0
000222a6 22 48 |"H | MOVEA.L A0,A1
000222a8 45 ee 00 08 |E | LEA.L (A6+0x8),A2
000222ac 70 1d |p | MOVEQ.L #0x1d,D0
000222ae b5 09 | | CMPM.B (A1)+,(A2)+
000222b0 56 c8 ff fc |V | DBNE D0,0x222ae
000222b4 66 04 |f | BNE 0x222ba
000222b6 7e 01 |~ | MOVEQ.L #0x01,D7
000222b8 60 04 |` | BRA 0x222be
000222ba 26 a8 00 26 |& & | MOVE.L (A0+0x26),(A3)
000222be 60 da |` | BRA 0x2229a
000222c0 2d 48 00 26 |-H & | MOVE.L A0,(A6+0x26)
000222c4 4c df 0f 83 |L | MOVEM.L (A7)+,D0+D1+D7+A0+A1+A2+A3
000222c8 4e 5e |N^ | UNLK A6
000222ca 4e 75 |Nu | RTS
000222cc ; --------------------------------------------------------------------------------------
000222cc ; OMSI PASCAL Function
000222cc ; <LVAR 0x008 @ 4(r)>
000222cc ; --------------------------------------------------------------------------------------
000222cc 4e 56 ff c8 |NV | LINK.W A6,#0xffc8
000222d0 bf d5 | | CMPA.L (A5),A7
000222d2 62 06 |b | BHI 0x222da
000222d4 44 fc 00 02 |D | MOVE.W #0x2,CCR
000222d8 4e 76 |Nv | TRAPV
000222da de fc 00 2c | , | ADDA.W #0x2c,A7
000222de 48 e7 81 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D0,-(A7)
000222e2 43 ee 00 08 |C | LEA.L (A6+0x8),A1
000222e6 45 f9 00 02 7c 26 |E |& | LEA.L 0x27c26,A2
000222ec 70 01 |p | MOVEQ.L #0x01,D0
000222ee 20 51 | Q | MOVEA.L (A1),A0
000222f0 b0 c0 | | CMPA.W D0,A0
000222f2 67 56 |gV | BEQ 0x2234a
000222f4 4a a8 00 1e |J | TST.L (A0+0x1e)
000222f8 67 10 |g | BEQ 0x2230a
000222fa 2f 28 00 22 |/( " | MOVE.L (A0+0x22),-(A7)
000222fe 2f 28 00 1e |/( | MOVE.L (A0+0x1e),-(A7)
00022302 4e b9 00 01 02 a4 |N | JSR Free1(a : Pointer; b : Long)
00022308 50 4f |PO | ADDQ.L #0x8,A7
0002230a 7e 00 |~ | MOVEQ.L #0x00,D7
0002230c 38 40 |8@ | MOVEA.W D0,A4
0002230e 26 52 |&R | MOVEA.L (A2),A3
00022310 b6 c0 | | CMPA.W D0,A3
00022312 67 14 |g | BEQ 0x22328
00022314 4a 07 |J | TST.B D7
00022316 66 10 |f | BNE 0x22328
00022318 b7 d1 | | CMPA.L (A1),A3
0002231a 66 04 |f | BNE 0x22320
0002231c 7e 01 |~ | MOVEQ.L #0x01,D7
0002231e 60 06 |` | BRA 0x22326
00022320 28 4b |(K | MOVEA.L A3,A4
00022322 26 6b 00 26 |&k & | MOVEA.L (A3+0x26),A3
00022326 60 e8 |` | BRA 0x22310
00022328 4a 07 |J | TST.B D7
0002232a 67 1e |g | BEQ 0x2234a
0002232c b8 c0 | | CMPA.W D0,A4
0002232e 66 06 |f | BNE 0x22336
00022330 24 ab 00 26 |$ & | MOVE.L (A3+0x26),(A2)
00022334 60 06 |` | BRA 0x2233c
00022336 29 6b 00 26 00 26 |)k & & | MOVE.L (A3+0x26),(A4+0x26)
0002233c 48 51 |HQ | PEA.L (A1)
0002233e 48 78 00 2a |Hx * | PEA.L 0x2a
00022342 4e b9 00 01 02 a8 |N | JSR Free2(a : Pointer; b : Long)
00022348 50 4f |PO | ADDQ.L #0x8,A7
0002234a 4c df 1f 81 |L | MOVEM.L (A7)+,D0+D7+A0+A1+A2+A3+A4
0002234e 4e 5e |N^ | UNLK A6
00022350 4e 75 |Nu | RTS
00022352 ; --------------------------------------------------------------------------------------
00022352 ; OMSI PASCAL Function
00022352 ; <LVAR 0x010 4(w)>
00022352 ; <LVAR 0x00c 4(r)>
00022352 ; <LVAR 0x008 4(r)>
00022352 ; <LVAR -0x006 @ 4(rw)>
00022352 ; <LVAR -0x024 @>
00022352 ; --------------------------------------------------------------------------------------
00022352 4e 56 ff 9a |NV | LINK.W A6,#0xff9a
00022356 bf d5 | | CMPA.L (A5),A7
00022358 62 06 |b | BHI 0x22360
0002235a 44 fc 00 02 |D | MOVE.W #0x2,CCR
0002235e 4e 76 |Nv | TRAPV
00022360 de fc 00 42 | B | ADDA.W #0x42,A7
00022364 48 e7 c0 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D1+D0,-(A7)
00022368 47 ee ff fa |G | LEA.L (A6-0x6),A3
0002236c 49 ee 00 08 |I | LEA.L (A6+0x8),A4
00022370 72 1e |r | MOVEQ.L #0x1e,D1
00022372 9e c1 | | SUBA.W D1,A7
00022374 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0
00022378 2f 10 |/ | MOVE.L (A0),-(A7)
0002237a 4e ba fe 7a |N z | JSR 0x221f6
0002237e 58 4f |XO | ADDQ.L #0x4,A7
00022380 41 ee ff dc |A | LEA.L (A6-0x24),A0
00022384 70 0e |p | MOVEQ.L #0x0e,D0
00022386 30 df |0 | MOVE.W (A7)+,(A0)+
00022388 51 c8 ff fc |Q | DBF D0,0x22386
0002238c 4a 94 |J | TST.L (A4)
0002238e 6c 02 |l | BGE 0x22392
00022390 42 94 |B | CLR.L (A4)
00022392 59 4f |YO | SUBQ.L #0x4,A7
00022394 20 4b | K | MOVEA.L A3,A0
00022396 70 0e |p | MOVEQ.L #0x0e,D0
00022398 3f 20 |? | MOVE.W -(A0),-(A7)
0002239a 51 c8 ff fc |Q | DBF D0,0x22398
0002239e 4e ba fe d8 |N | JSR 0x22278
000223a2 de c1 | | ADDA.W D1,A7
000223a4 26 9f |& | MOVE.L (A7)+,(A3)
000223a6 20 53 | S | MOVEA.L (A3),A0
000223a8 b0 fc 00 01 | | CMPA.W #0x1,A0
000223ac 67 12 |g | BEQ 0x223c0
000223ae 20 28 00 1e | ( | MOVE.L (A0+0x1e),D0
000223b2 b0 94 | | CMP.L (A4),D0
000223b4 66 02 |f | BNE 0x223b8
000223b6 60 4c |`L | BRA 0x22404
000223b8 2f 13 |/ | MOVE.L (A3),-(A7)
000223ba 4e ba ff 10 |N | JSR 0x222cc
000223be 58 4f |XO | ADDQ.L #0x4,A7
000223c0 48 53 |HS | PEA.L (A3)
000223c2 48 78 00 2a |Hx * | PEA.L 0x2a
000223c6 4e b9 00 01 02 9c |N | JSR Malloc1(length : Long) : Pointer
000223cc 50 4f |PO | ADDQ.L #0x8,A7
000223ce 20 53 | S | MOVEA.L (A3),A0
000223d0 21 79 00 02 7c 26 00 26 |!y |& &| MOVE.L 0x27c26,(A0+0x26)
000223d8 23 d3 00 02 7c 26 |# |& | MOVE.L (A3),0x27c26
000223de 22 48 |"H | MOVEA.L A0,A1
000223e0 45 ee ff dc |E | LEA.L (A6-0x24),A2
000223e4 70 1d |p | MOVEQ.L #0x1d,D0
000223e6 12 da | | MOVE.B (A2)+,(A1)+
000223e8 51 c8 ff fc |Q | DBF D0,0x223e6
000223ec 21 54 00 1e |!T | MOVE.L (A4),(A0+0x1e)
000223f0 4a 94 |J | TST.L (A4)
000223f2 67 10 |g | BEQ 0x22404
000223f4 59 4f |YO | SUBQ.L #0x4,A7
000223f6 2f 14 |/ | MOVE.L (A4),-(A7)
000223f8 4e b9 00 01 02 a0 |N | JSR Malloc2(VAR dst : Pointer; length : Word)
000223fe 58 4f |XO | ADDQ.L #0x4,A7
00022400 21 5f 00 22 |!_ " | MOVE.L (A7)+,(A0+0x22)
00022404 2d 53 00 10 |-S | MOVE.L (A3),(A6+0x10)
00022408 4c df 1f 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2+A3+A4
0002240c 4e 5e |N^ | UNLK A6
0002240e 4e 75 |Nu | RTS
00022410 ; --------------------------------------------------------------------------------------
00022410 ; OMSI PASCAL Function
00022410 ; <LVAR 0x00c @>
00022410 ; <LVAR 0x008 @ 4(r)>
00022410 ; <LVAR -0x008 4(rw)>
00022410 ; --------------------------------------------------------------------------------------
00022410 4e 56 ff c8 |NV | LINK.W A6,#0xffc8
00022414 bf d5 | | CMPA.L (A5),A7
00022416 62 06 |b | BHI 0x2241e
00022418 44 fc 00 02 |D | MOVE.W #0x2,CCR
0002241c 4e 76 |Nv | TRAPV
0002241e de fc 00 2c | , | ADDA.W #0x2c,A7
00022422 48 e7 c3 e0 |H | MOVEM.L A2+A1+A0+D7+D6+D1+D0,-(A7)
00022426 45 ee 00 08 |E | LEA.L (A6+0x8),A2
0002242a 20 52 | R | MOVEA.L (A2),A0
0002242c 30 10 |0 | MOVE.W (A0),D0
0002242e 48 c0 |H | EXTW.L D0
00022430 2c 00 |, | MOVE.L D0,D6
00022432 59 4f |YO | SUBQ.L #0x4,A7
00022434 48 6e 00 0c |Hn | PEA.L (A6+0xc)
00022438 2f 06 |/ | MOVE.L D6,-(A7)
0002243a 4e ba ff 16 |N | JSR 0x22352
0002243e 50 4f |PO | ADDQ.L #0x8,A7
00022440 2d 5f ff f8 |-_ | MOVE.L (A7)+,(A6-0x8)
00022444 4a 86 |J | TST.L D6
00022446 67 40 |g@ | BEQ 0x22488
00022448 20 6e ff f8 | n | MOVEA.L (A6-0x8),A0
0002244c 20 68 00 22 | h " | MOVEA.L (A0+0x22),A0
00022450 2f 08 |/ | MOVE.L A0,-(A7)
00022452 2f 06 |/ | MOVE.L D6,-(A7)
00022454 7e 01 |~ | MOVEQ.L #0x01,D7
00022456 be 97 | | CMP.L (A7),D7
00022458 6e 2c |n, | BGT 0x22486
0002245a 20 07 | | MOVE.L D7,D0
0002245c 53 80 |S | SUBQ.L #0x1,D0
0002245e 0c 80 00 00 03 ff | | CMPI.L #0x000003ff,D0
00022464 63 02 |c | BLS 0x22468
00022466 4e 4f |NO | TRAP #15
00022468 20 6f 00 04 | o | MOVEA.L (A7+0x4),A0
0002246c 22 52 |"R | MOVEA.L (A2),A1
0002246e 22 07 |" | MOVE.L D7,D1
00022470 53 81 |S | SUBQ.L #0x1,D1
00022472 0c 81 00 00 00 7d | } | CMPI.L #0x0000007d,D1
00022478 63 02 |c | BLS 0x2247c
0002247a 4e 4f |NO | TRAP #15
0002247c 11 b1 18 02 08 00 | | MOVE.B (A1+D1.L+#0x2),(A0+D0.L)
00022482 52 87 |R | ADDQ.L #0x1,D7
00022484 68 d0 |h | BVC 0x22456
00022486 50 4f |PO | ADDQ.L #0x8,A7
00022488 48 52 |HR | PEA.L (A2)
0002248a 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String)
00022490 58 4f |XO | ADDQ.L #0x4,A7
00022492 4c df 07 c3 |L | MOVEM.L (A7)+,D0+D1+D6+D7+A0+A1+A2
00022496 4e 5e |N^ | UNLK A6
00022498 4e 75 |Nu | RTS
0002249a ; --------------------------------------------------------------------------------------
0002249a ; OMSI PASCAL Function
0002249a ; <LVAR 0x008 4(r)>
0002249a ; <LVAR -0x004 @ 4(w)>
0002249a ; <LVAR -0x008 4(rw)>
0002249a ; <LVAR -0x00c 4(rw)>
0002249a ; <LVAR -0x010 4(rw)>
0002249a ; <LVAR -0x01c 4(rw)>
0002249a ; <LVAR -0x020 4(rw)>
0002249a ; --------------------------------------------------------------------------------------
0002249a 4e 56 ff 82 |NV | LINK.W A6,#0xff82
0002249e bf d5 | | CMPA.L (A5),A7
000224a0 62 06 |b | BHI 0x224a8
000224a2 44 fc 00 02 |D | MOVE.W #0x2,CCR
000224a6 4e 76 |Nv | TRAPV
000224a8 de fc 00 5a | Z | ADDA.W #0x5a,A7
000224ac 48 e7 e7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7)
000224b0 45 ee ff f4 |E | LEA.L (A6-0xc),A2
000224b4 47 ee ff f0 |G | LEA.L (A6-0x10),A3
000224b8 49 ee 00 08 |I | LEA.L (A6+0x8),A4
000224bc 74 01 |t | MOVEQ.L #0x01,D2
000224be 59 4f |YO | SUBQ.L #0x4,A7
000224c0 2f 14 |/ | MOVE.L (A4),-(A7)
000224c2 4e ba f0 32 |N 2 | JSR 0x214f6
000224c6 58 4f |XO | ADDQ.L #0x4,A7
000224c8 26 9f |& | MOVE.L (A7)+,(A3)
000224ca 20 13 | | MOVE.L (A3),D0
000224cc b0 82 | | CMP.L D2,D0
000224ce 6c 2e |l. | BGE 0x224fe
000224d0 9e fc 00 1a | | SUBA.W #0x1a,A7
000224d4 20 4f | O | MOVEA.L A7,A0
000224d6 43 fa e7 f6 |C | LEA.L 0x20cce,A1
000224da 72 18 |r | MOVEQ.L #0x18,D1
000224dc 10 d9 | | MOVE.B (A1)+,(A0)+
000224de 51 c9 ff fc |Q | DBF D1,0x224dc
000224e2 59 4f |YO | SUBQ.L #0x4,A7
000224e4 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000224e8 3f 02 |? | MOVE.W D2,-(A7)
000224ea 3f 3c 00 19 |?< | MOVE.W #0x19,-(A7)
000224ee 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
000224f4 50 4f |PO | ADDQ.L #0x8,A7
000224f6 4e ba eb f2 |N | JSR 0x210ea
000224fa de fc 00 1e | | ADDA.W #0x1e,A7
000224fe 42 92 |B | CLR.L (A2)
00022500 2f 00 |/ | MOVE.L D0,-(A7)
00022502 7c 02 || | MOVEQ.L #0x02,D6
00022504 bc 97 | | CMP.L (A7),D6
00022506 6e 1e |n | BGT 0x22526
00022508 9e fc 00 0c | | SUBA.W #0xc,A7
0002250c 2f 14 |/ | MOVE.L (A4),-(A7)
0002250e 2f 06 |/ | MOVE.L D6,-(A7)
00022510 4e ba f8 22 |N " | JSR 0x21d34
00022514 50 4f |PO | ADDQ.L #0x8,A7
00022516 4e ba f7 e4 |N | JSR 0x21cfc
0002251a 50 4f |PO | ADDQ.L #0x8,A7
0002251c 20 12 | | MOVE.L (A2),D0
0002251e d0 9f | | ADD.L (A7)+,D0
00022520 24 80 |$ | MOVE.L D0,(A2)
00022522 52 86 |R | ADDQ.L #0x1,D6
00022524 68 de |h | BVC 0x22504
00022526 58 4f |XO | ADDQ.L #0x4,A7
00022528 20 13 | | MOVE.L (A3),D0
0002252a 55 80 |U | SUBQ.L #0x2,D0
0002252c d1 92 | | ADD.L D0,(A2)
0002252e 59 4f |YO | SUBQ.L #0x4,A7
00022530 2f 14 |/ | MOVE.L (A4),-(A7)
00022532 48 78 00 01 |Hx | PEA.L 0x1
00022536 4e ba f8 da |N | JSR 0x21e12
0002253a 50 4f |PO | ADDQ.L #0x8,A7
0002253c 2d 57 ff fc |-W | MOVE.L (A7),(A6-0x4)
00022540 48 6e ff fc |Hn | PEA.L (A6-0x4)
00022544 2f 12 |/ | MOVE.L (A2),-(A7)
00022546 4e ba fe 0a |N | JSR 0x22352
0002254a 50 4f |PO | ADDQ.L #0x8,A7
0002254c 2d 5f ff f8 |-_ | MOVE.L (A7)+,(A6-0x8)
00022550 4a 92 |J | TST.L (A2)
00022552 6f 00 00 aa |o | BLE 0x225fe
00022556 20 6e ff f8 | n | MOVEA.L (A6-0x8),A0
0002255a 20 68 00 22 | h " | MOVEA.L (A0+0x22),A0
0002255e 2f 08 |/ | MOVE.L A0,-(A7)
00022560 7e 01 |~ | MOVEQ.L #0x01,D7
00022562 2f 13 |/ | MOVE.L (A3),-(A7)
00022564 7c 02 || | MOVEQ.L #0x02,D6
00022566 bc 97 | | CMP.L (A7),D6
00022568 6e 00 00 92 |n | BGT 0x225fc
0002256c 51 4f |QO | SUBQ.L #0x8,A7
0002256e 2f 14 |/ | MOVE.L (A4),-(A7)
00022570 2f 06 |/ | MOVE.L D6,-(A7)
00022572 4e ba f7 c0 |N | JSR 0x21d34
00022576 50 4f |PO | ADDQ.L #0x8,A7
00022578 2d 5f ff e0 |-_ | MOVE.L (A7)+,(A6-0x20)
0002257c 2d 5f ff e4 |-_ | MOVE.L (A7)+,(A6-0x1c)
00022580 2f 2e ff e4 |/. | MOVE.L (A6-0x1c),-(A7)
00022584 2a 2e ff e0 |*. | MOVE.L (A6-0x20),D5
00022588 ba 97 | | CMP.L (A7),D5
0002258a 6e 14 |n | BGT 0x225a0
0002258c 20 17 | | MOVE.L (A7),D0
0002258e 0c 85 80 00 00 01 | | CMPI.L #0x80000001,D5
00022594 6d 08 |m | BLT 0x2259e
00022596 0c 80 7f ff ff ff | | CMPI.L #0x7fffffff,D0
0002259c 6f 02 |o | BLE 0x225a0
0002259e 4e 4f |NO | TRAP #15
000225a0 ba 97 | | CMP.L (A7),D5
000225a2 6e 32 |n2 | BGT 0x225d6
000225a4 20 07 | | MOVE.L D7,D0
000225a6 53 80 |S | SUBQ.L #0x1,D0
000225a8 0c 80 00 00 03 ff | | CMPI.L #0x000003ff,D0
000225ae 63 02 |c | BLS 0x225b2
000225b0 4e 4f |NO | TRAP #15
000225b2 20 6f 00 08 | o | MOVEA.L (A7+0x8),A0
000225b6 22 05 |" | MOVE.L D5,D1
000225b8 53 81 |S | SUBQ.L #0x1,D1
000225ba 0c 81 00 00 0f ff | | CMPI.L #0x00000fff,D1
000225c0 63 02 |c | BLS 0x225c4
000225c2 4e 4f |NO | TRAP #15
000225c4 43 f9 00 02 6b f4 |C k | LEA.L 0x26bf4,A1
000225ca 11 b1 18 08 08 00 | | MOVE.B (A1+D1.L+#0x8),(A0+D0.L)
000225d0 52 87 |R | ADDQ.L #0x1,D7
000225d2 52 85 |R | ADDQ.L #0x1,D5
000225d4 68 ca |h | BVC 0x225a0
000225d6 58 4f |XO | ADDQ.L #0x4,A7
000225d8 bc 93 | | CMP.L (A3),D6
000225da 67 1a |g | BEQ 0x225f6
000225dc 20 07 | | MOVE.L D7,D0
000225de 53 80 |S | SUBQ.L #0x1,D0
000225e0 0c 80 00 00 03 ff | | CMPI.L #0x000003ff,D0
000225e6 63 02 |c | BLS 0x225ea
000225e8 4e 4f |NO | TRAP #15
000225ea 20 6f 00 04 | o | MOVEA.L (A7+0x4),A0
000225ee 11 bc 00 2c 08 00 | , | MOVE.B #0x2c,(A0+D0.L)
000225f4 52 87 |R | ADDQ.L #0x1,D7
000225f6 52 86 |R | ADDQ.L #0x1,D6
000225f8 68 00 ff 6c |h l | BVC 0x22566
000225fc 50 4f |PO | ADDQ.L #0x8,A7
000225fe 4c df 1f e7 |L | MOVEM.L (A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3+A4
00022602 4e 5e |N^ | UNLK A6
00022604 4e 75 |Nu | RTS
00022606 ; --------------------------------------------------------------------------------------
00022606 ; OMSI PASCAL Function
00022606 ; <LVAR 0x008 4(r)>
00022606 ; <LVAR -0x00c 4(rw)>
00022606 ; --------------------------------------------------------------------------------------
00022606 4e 56 ff a0 |NV | LINK.W A6,#0xffa0
0002260a bf d5 | | CMPA.L (A5),A7
0002260c 62 06 |b | BHI 0x22614
0002260e 44 fc 00 02 |D | MOVE.W #0x2,CCR
00022612 4e 76 |Nv | TRAPV
00022614 de fc 00 54 | T | ADDA.W #0x54,A7
00022618 48 e7 e1 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D2+D1+D0,-(A7)
0002261c 47 f9 00 02 7b fc |G { | LEA.L 0x27bfc,A3
00022622 74 01 |t | MOVEQ.L #0x01,D2
00022624 59 4f |YO | SUBQ.L #0x4,A7
00022626 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
0002262a 48 78 00 01 |Hx | PEA.L 0x1
0002262e 4e ba f7 e2 |N | JSR 0x21e12
00022632 50 4f |PO | ADDQ.L #0x8,A7
00022634 28 5f |(_ | MOVEA.L (A7)+,A4
00022636 9e fc 00 22 | " | SUBA.W #0x22,A7
0002263a 2f 0c |/ | MOVE.L A4,-(A7)
0002263c 4e ba fb b8 |N | JSR 0x221f6
00022640 58 4f |XO | ADDQ.L #0x4,A7
00022642 4e ba fc 34 |N 4 | JSR 0x22278
00022646 de fc 00 1e | | ADDA.W #0x1e,A7
0002264a 2d 5f ff f4 |-_ | MOVE.L (A7)+,(A6-0xc)
0002264e 20 6e ff f4 | n | MOVEA.L (A6-0xc),A0
00022652 b0 c2 | | CMPA.W D2,A0
00022654 66 42 |fB | BNE 0x22698
00022656 9e fc 00 14 | | SUBA.W #0x14,A7
0002265a 22 4f |"O | MOVEA.L A7,A1
0002265c 45 fa e6 8a |E | LEA.L 0x20ce8,A2
00022660 70 12 |p | MOVEQ.L #0x12,D0
00022662 12 da | | MOVE.B (A2)+,(A1)+
00022664 51 c8 ff fc |Q | DBF D0,0x22662
00022668 51 4f |QO | SUBQ.L #0x8,A7
0002266a 48 6f 00 08 |Ho | PEA.L (A7+0x8)
0002266e 3f 02 |? | MOVE.W D2,-(A7)
00022670 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7)
00022674 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
0002267a 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7)
0002267e 48 78 00 01 |Hx | PEA.L 0x1
00022682 4e ba f7 8e |N | JSR 0x21e12
00022686 50 4f |PO | ADDQ.L #0x8,A7
00022688 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
0002268e 50 4f |PO | ADDQ.L #0x8,A7
00022690 4e ba ea 58 |N X | JSR 0x210ea
00022694 de fc 00 18 | | ADDA.W #0x18,A7
00022698 2f 08 |/ | MOVE.L A0,-(A7)
0002269a 2f 13 |/ | MOVE.L (A3),-(A7)
0002269c 2f 28 00 1e |/( | MOVE.L (A0+0x1e),-(A7)
000226a0 44 97 |D | NEG.L (A7)
000226a2 4e ba ef 9a |N | JSR 0x2163e
000226a6 58 4f |XO | ADDQ.L #0x4,A7
000226a8 2e a8 00 1e |. | MOVE.L (A0+0x1e),(A7)
000226ac 7e 01 |~ | MOVEQ.L #0x01,D7
000226ae be 97 | | CMP.L (A7),D7
000226b0 6e 38 |n8 | BGT 0x226ea
000226b2 20 07 | | MOVE.L D7,D0
000226b4 d0 93 | | ADD.L (A3),D0
000226b6 53 80 |S | SUBQ.L #0x1,D0
000226b8 53 80 |S | SUBQ.L #0x1,D0
000226ba 0c 80 00 00 0f ff | | CMPI.L #0x00000fff,D0
000226c0 63 02 |c | BLS 0x226c4
000226c2 4e 4f |NO | TRAP #15
000226c4 41 f9 00 02 6b f4 |A k | LEA.L 0x26bf4,A0
000226ca 22 6f 00 04 |"o | MOVEA.L (A7+0x4),A1
000226ce 22 69 00 22 |"i " | MOVEA.L (A1+0x22),A1
000226d2 22 07 |" | MOVE.L D7,D1
000226d4 53 81 |S | SUBQ.L #0x1,D1
000226d6 0c 81 00 00 03 ff | | CMPI.L #0x000003ff,D1
000226dc 63 02 |c | BLS 0x226e0
000226de 4e 4f |NO | TRAP #15
000226e0 11 b1 18 00 08 08 | | MOVE.B (A1+D1.L),(A0+D0.L+#0x8)
000226e6 52 87 |R | ADDQ.L #0x1,D7
000226e8 68 c4 |h | BVC 0x226ae
000226ea 50 4f |PO | ADDQ.L #0x8,A7
000226ec 4c df 1f 87 |L | MOVEM.L (A7)+,D0+D1+D2+D7+A0+A1+A2+A3+A4
000226f0 4e 5e |N^ | UNLK A6
000226f2 4e 75 |Nu | RTS
000226f4 ; --------------------------------------------------------------------------------------
000226f4 ; OMSI PASCAL Function
000226f4 ; <LVAR -0x004 4(rw)>
000226f4 ; --------------------------------------------------------------------------------------
000226f4 4e 56 ff ae |NV | LINK.W A6,#0xffae
000226f8 bf d5 | | CMPA.L (A5),A7
000226fa 62 06 |b | BHI 0x22702
000226fc 44 fc 00 02 |D | MOVE.W #0x2,CCR
00022700 4e 76 |Nv | TRAPV
00022702 de fc 00 4e | N | ADDA.W #0x4e,A7
00022706 48 e7 e0 f0 |H | MOVEM.L A3+A2+A1+A0+D2+D1+D0,-(A7)
0002270a 47 ee ff fc |G | LEA.L (A6-0x4),A3
0002270e 72 01 |r | MOVEQ.L #0x01,D1
00022710 74 1e |t | MOVEQ.L #0x1e,D2
00022712 26 b9 00 02 7c 26 |& |& | MOVE.L 0x27c26,(A3)
00022718 20 53 | S | MOVEA.L (A3),A0
0002271a b0 c1 | | CMPA.W D1,A0
0002271c 67 30 |g0 | BEQ 0x2274e
0002271e 9e c2 | | SUBA.W D2,A7
00022720 22 4f |"O | MOVEA.L A7,A1
00022722 24 48 |$H | MOVEA.L A0,A2
00022724 70 1d |p | MOVEQ.L #0x1d,D0
00022726 12 da | | MOVE.B (A2)+,(A1)+
00022728 51 c8 ff fc |Q | DBF D0,0x22726
0002272c 59 4f |YO | SUBQ.L #0x4,A7
0002272e 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00022732 3f 01 |? | MOVE.W D1,-(A7)
00022734 3f 02 |? | MOVE.W D2,-(A7)
00022736 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
0002273c 50 4f |PO | ADDQ.L #0x8,A7
0002273e 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00022744 de fc 00 22 | " | ADDA.W #0x22,A7
00022748 26 a8 00 26 |& & | MOVE.L (A0+0x26),(A3)
0002274c 60 ca |` | BRA 0x22718
0002274e 4c df 0f 07 |L | MOVEM.L (A7)+,D0+D1+D2+A0+A1+A2+A3
00022752 4e 5e |N^ | UNLK A6
00022754 4e 75 |Nu | RTS
00022756 ; --------------------------------------------------------------------------------------
00022756 ; OMSI PASCAL Function
00022756 ; <LVAR 0x008 4(r)>
00022756 ; --------------------------------------------------------------------------------------
00022756 4e 56 ff ce |NV | LINK.W A6,#0xffce
0002275a bf d5 | | CMPA.L (A5),A7
0002275c 62 06 |b | BHI 0x22764
0002275e 44 fc 00 02 |D | MOVE.W #0x2,CCR
00022762 4e 76 |Nv | TRAPV
00022764 de fc 00 32 | 2 | ADDA.W #0x32,A7
00022768 9e fc 00 26 | & | SUBA.W #0x26,A7
0002276c 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00022770 48 78 00 01 |Hx | PEA.L 0x1
00022774 4e ba f6 9c |N | JSR 0x21e12
00022778 50 4f |PO | ADDQ.L #0x8,A7
0002277a 4e ba fa 7a |N z | JSR 0x221f6
0002277e 58 4f |XO | ADDQ.L #0x4,A7
00022780 4e ba fa f6 |N | JSR 0x22278
00022784 de fc 00 1e | | ADDA.W #0x1e,A7
00022788 4e ba fb 42 |N B | JSR 0x222cc
0002278c 58 4f |XO | ADDQ.L #0x4,A7
0002278e 4e 5e |N^ | UNLK A6
00022790 4e 75 |Nu | RTS
00022792 ; --------------------------------------------------------------------------------------
00022792 ; OMSI PASCAL Function
00022792 ; --------------------------------------------------------------------------------------
00022792 4e 56 ff f4 |NV | LINK.W A6,#0xfff4
00022796 bf d5 | | CMPA.L (A5),A7
00022798 62 06 |b | BHI 0x227a0
0002279a 44 fc 00 02 |D | MOVE.W #0x2,CCR
0002279e 4e 76 |Nv | TRAPV
000227a0 de fc 00 0c | | ADDA.W #0xc,A7
000227a4 51 4f |QO | SUBQ.L #0x8,A7
000227a6 4e b9 00 01 03 cc |N | JSR GetPushLevel() : Long
000227ac 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String
000227b2 58 4f |XO | ADDQ.L #0x4,A7
000227b4 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
000227ba 58 4f |XO | ADDQ.L #0x4,A7
000227bc 4e 5e |N^ | UNLK A6
000227be 4e 75 |Nu | RTS
000227c0 ; --------------------------------------------------------------------------------------
000227c0 ; OMSI PASCAL Function
000227c0 ; <LVAR 0x008 4(r)>
000227c0 ; <LVAR -0x004 1(rw)>
000227c0 ; <LVAR -0x008 @ 4(rw)>
000227c0 ; <LVAR -0x00c @ 4(r)>
000227c0 ; <LVAR -0x010 @ 4(r)>
000227c0 ; <LVAR -0x012 @ 1(r)>
000227c0 ; <LVAR -0x013 @ 1(r)>
000227c0 ; <LVAR -0x014 @ 1(r)>
000227c0 ; <LVAR -0x024 4(rw)>
000227c0 ; <LVAR -0x028 4(rw)>
000227c0 ; <LVAR -0x02c 4(rw)>
000227c0 ; <LVAR -0x030 @ 4(r)>
000227c0 ; <LVAR -0x032 1(w)>
000227c0 ; <LVAR -0x036 @ 4(r)>
000227c0 ; <LVAR -0x038 @ 1(r)>
000227c0 ; <LVAR -0x03c @ 4(rw)>
000227c0 ; --------------------------------------------------------------------------------------
000227c0 4e 56 ff 64 |NV d | LINK.W A6,#0xff64
000227c4 bf d5 | | CMPA.L (A5),A7
000227c6 62 06 |b | BHI 0x227ce
000227c8 44 fc 00 02 |D | MOVE.W #0x2,CCR
000227cc 4e 76 |Nv | TRAPV
000227ce de fc 00 60 | ` | ADDA.W #0x60,A7
000227d2 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
000227d6 45 ee ff c4 |E | LEA.L (A6-0x3c),A2
000227da 47 ee 00 08 |G | LEA.L (A6+0x8),A3
000227de 49 f9 00 01 02 c4 |I | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A4
000227e4 74 01 |t | MOVEQ.L #0x01,D2
000227e6 76 14 |v | MOVEQ.L #0x14,D3
000227e8 28 3c ff ff 80 00 |(< | MOVE.L #0xffff8000,D4
000227ee 59 4f |YO | SUBQ.L #0x4,A7
000227f0 2f 13 |/ | MOVE.L (A3),-(A7)
000227f2 4e ba ed 02 |N | JSR 0x214f6
000227f6 58 4f |XO | ADDQ.L #0x4,A7
000227f8 2d 5f ff d4 |-_ | MOVE.L (A7)+,(A6-0x2c)
000227fc 66 28 |f( | BNE 0x22826
000227fe 59 4f |YO | SUBQ.L #0x4,A7
00022800 1e ba e5 0c | | MOVE.B 0x20d0e,(A7)
00022804 1f 7a e5 09 00 01 | z | MOVE.B 0x20d0f,(A7+0x1)
0002280a 1f 7a e5 04 00 02 | z | MOVE.B 0x20d10,(A7+0x2)
00022810 59 4f |YO | SUBQ.L #0x4,A7
00022812 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00022816 3f 02 |? | MOVE.W D2,-(A7)
00022818 3f 3c 00 03 |?< | MOVE.W #0x3,-(A7)
0002281c 4e 94 |N | JSR (A4)
0002281e 50 4f |PO | ADDQ.L #0x8,A7
00022820 24 9f |$ | MOVE.L (A7)+,(A2)
00022822 58 4f |XO | ADDQ.L #0x4,A7
00022824 60 10 |` | BRA 0x22836
00022826 59 4f |YO | SUBQ.L #0x4,A7
00022828 2f 13 |/ | MOVE.L (A3),-(A7)
0002282a 48 78 00 01 |Hx | PEA.L 0x1
0002282e 4e ba f5 e2 |N | JSR 0x21e12
00022832 50 4f |PO | ADDQ.L #0x8,A7
00022834 24 9f |$ | MOVE.L (A7)+,(A2)
00022836 5d 4f |]O | SUBQ.L #0x6,A7
00022838 20 4f | O | MOVEA.L A7,A0
0002283a 43 fa e4 d6 |C | LEA.L 0x20d12,A1
0002283e 70 04 |p | MOVEQ.L #0x04,D0
00022840 10 d9 | | MOVE.B (A1)+,(A0)+
00022842 51 c8 ff fc |Q | DBF D0,0x22840
00022846 59 4f |YO | SUBQ.L #0x4,A7
00022848 2f 12 |/ | MOVE.L (A2),-(A7)
0002284a 59 4f |YO | SUBQ.L #0x4,A7
0002284c 48 6f 00 0c |Ho | PEA.L (A7+0xc)
00022850 3f 02 |? | MOVE.W D2,-(A7)
00022852 3f 3c 00 05 |?< | MOVE.W #0x5,-(A7)
00022856 4e 94 |N | JSR (A4)
00022858 50 4f |PO | ADDQ.L #0x8,A7
0002285a 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00022860 50 4f |PO | ADDQ.L #0x8,A7
00022862 24 9f |$ | MOVE.L (A7)+,(A2)
00022864 54 4f |TO | ADDQ.L #0x2,A7
00022866 2e 92 |. | MOVE.L (A2),(A7)
00022868 42 27 |B' | CLR.B -(A7)
0002286a 1f 02 | | MOVE.B D2,-(A7)
0002286c 48 78 00 00 |Hx | PEA.L 0x0
00022870 48 6e ff c8 |Hn | PEA.L (A6-0x38)
00022874 48 6e ff ca |Hn | PEA.L (A6-0x36)
00022878 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
0002287e de c3 | | ADDA.W D3,A7
00022880 4a 2e ff c8 |J. | TST.B (A6-0x38)
00022884 67 0e |g | BEQ 0x22894
00022886 48 52 |HR | PEA.L (A2)
00022888 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String)
0002288e 58 4f |XO | ADDQ.L #0x4,A7
00022890 60 00 02 4e |` N | BRA 0x22ae0
00022894 20 6e ff ca | n | MOVEA.L (A6-0x36),A0
00022898 10 28 00 3f | ( ? | MOVE.B (A0+0x3f),D0
0002289c ed 08 | | LSL.B #0x6,D0
0002289e ee 08 | | LSR.B #0x7,D0
000228a0 1d 40 ff ce | @ | MOVE.B D0,(A6-0x32)
000228a4 42 27 |B' | CLR.B -(A7)
000228a6 1f 02 | | MOVE.B D2,-(A7)
000228a8 48 78 00 01 |Hx | PEA.L 0x1
000228ac 48 6e ff c8 |Hn | PEA.L (A6-0x38)
000228b0 48 6e ff ca |Hn | PEA.L (A6-0x36)
000228b4 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File)
000228ba de fc 00 10 | | ADDA.W #0x10,A7
000228be 20 52 | R | MOVEA.L (A2),A0
000228c0 32 10 |2 | MOVE.W (A0),D1
000228c2 48 c1 |H | EXTW.L D1
000228c4 5b 81 |[ | SUBQ.L #0x5,D1
000228c6 92 84 | | SUB.L D4,D1
000228c8 0c 81 00 00 ff ff | | CMPI.L #0x0000ffff,D1
000228ce 63 02 |c | BLS 0x228d2
000228d0 4e 4f |NO | TRAP #15
000228d2 d2 84 | | ADD.L D4,D1
000228d4 30 81 |0 | MOVE.W D1,(A0)
000228d6 4a 00 |J | TST.B D0
000228d8 66 36 |f6 | BNE 0x22910
000228da 41 fa e4 32 |A 2 | LEA.L 0x20d0e,A0
000228de 70 08 |p | MOVEQ.L #0x08,D0
000228e0 3f 20 |? | MOVE.W -(A0),-(A7)
000228e2 51 c8 ff fc |Q | DBF D0,0x228e0
000228e6 59 4f |YO | SUBQ.L #0x4,A7
000228e8 2f 12 |/ | MOVE.L (A2),-(A7)
000228ea 59 4f |YO | SUBQ.L #0x4,A7
000228ec 48 6f 00 0c |Ho | PEA.L (A7+0xc)
000228f0 3f 02 |? | MOVE.W D2,-(A7)
000228f2 3f 3c 00 12 |?< | MOVE.W #0x12,-(A7)
000228f6 4e 94 |N | JSR (A4)
000228f8 50 4f |PO | ADDQ.L #0x8,A7
000228fa 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00022900 50 4f |PO | ADDQ.L #0x8,A7
00022902 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00022908 de fc 00 16 | | ADDA.W #0x16,A7
0002290c 60 00 01 d2 |` | BRA 0x22ae0
00022910 48 6e ff d0 |Hn | PEA.L (A6-0x30)
00022914 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String)
0002291a 58 4f |XO | ADDQ.L #0x4,A7
0002291c 20 6e ff d0 | n | MOVEA.L (A6-0x30),A0
00022920 2f 08 |/ | MOVE.L A0,-(A7)
00022922 7e 01 |~ | MOVEQ.L #0x01,D7
00022924 2f 2e ff d4 |/. | MOVE.L (A6-0x2c),-(A7)
00022928 7a 02 |z | MOVEQ.L #0x02,D5
0002292a ba 97 | | CMP.L (A7),D5
0002292c 6e 00 00 94 |n | BGT 0x229c2
00022930 51 4f |QO | SUBQ.L #0x8,A7
00022932 2f 13 |/ | MOVE.L (A3),-(A7)
00022934 2f 05 |/ | MOVE.L D5,-(A7)
00022936 4e ba f3 fc |N | JSR 0x21d34
0002293a 50 4f |PO | ADDQ.L #0x8,A7
0002293c 2d 5f ff d8 |-_ | MOVE.L (A7)+,(A6-0x28)
00022940 2d 5f ff dc |-_ | MOVE.L (A7)+,(A6-0x24)
00022944 2f 2e ff dc |/. | MOVE.L (A6-0x24),-(A7)
00022948 2c 2e ff d8 |,. | MOVE.L (A6-0x28),D6
0002294c bc 97 | | CMP.L (A7),D6
0002294e 6e 14 |n | BGT 0x22964
00022950 20 17 | | MOVE.L (A7),D0
00022952 0c 86 80 00 00 01 | | CMPI.L #0x80000001,D6
00022958 6d 08 |m | BLT 0x22962
0002295a 0c 80 7f ff ff ff | | CMPI.L #0x7fffffff,D0
00022960 6f 02 |o | BLE 0x22964
00022962 4e 4f |NO | TRAP #15
00022964 bc 97 | | CMP.L (A7),D6
00022966 6e 32 |n2 | BGT 0x2299a
00022968 20 07 | | MOVE.L D7,D0
0002296a 53 80 |S | SUBQ.L #0x1,D0
0002296c 0c 80 00 00 00 7d | } | CMPI.L #0x0000007d,D0
00022972 63 02 |c | BLS 0x22976
00022974 4e 4f |NO | TRAP #15
00022976 20 6f 00 08 | o | MOVEA.L (A7+0x8),A0
0002297a 22 06 |" | MOVE.L D6,D1
0002297c 53 81 |S | SUBQ.L #0x1,D1
0002297e 0c 81 00 00 0f ff | | CMPI.L #0x00000fff,D1
00022984 63 02 |c | BLS 0x22988
00022986 4e 4f |NO | TRAP #15
00022988 43 f9 00 02 6b f4 |C k | LEA.L 0x26bf4,A1
0002298e 11 b1 18 08 08 02 | | MOVE.B (A1+D1.L+#0x8),(A0+D0.L+#0x2)
00022994 52 87 |R | ADDQ.L #0x1,D7
00022996 52 86 |R | ADDQ.L #0x1,D6
00022998 68 ca |h | BVC 0x22964
0002299a 58 4f |XO | ADDQ.L #0x4,A7
0002299c ba ae ff d4 | | CMP.L (A6-0x2c),D5
000229a0 67 1a |g | BEQ 0x229bc
000229a2 20 07 | | MOVE.L D7,D0
000229a4 53 80 |S | SUBQ.L #0x1,D0
000229a6 0c 80 00 00 00 7d | } | CMPI.L #0x0000007d,D0
000229ac 63 02 |c | BLS 0x229b0
000229ae 4e 4f |NO | TRAP #15
000229b0 20 6f 00 04 | o | MOVEA.L (A7+0x4),A0
000229b4 11 bc 00 2c 08 02 | , | MOVE.B #0x2c,(A0+D0.L+#0x2)
000229ba 52 87 |R | ADDQ.L #0x1,D7
000229bc 52 85 |R | ADDQ.L #0x1,D5
000229be 68 00 ff 6a |h j | BVC 0x2292a
000229c2 58 4f |XO | ADDQ.L #0x4,A7
000229c4 20 57 | W | MOVEA.L (A7),A0
000229c6 20 07 | | MOVE.L D7,D0
000229c8 53 80 |S | SUBQ.L #0x1,D0
000229ca 90 84 | | SUB.L D4,D0
000229cc 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0
000229d2 63 02 |c | BLS 0x229d6
000229d4 4e 4f |NO | TRAP #15
000229d6 d0 84 | | ADD.L D4,D0
000229d8 30 80 |0 | MOVE.W D0,(A0)
000229da 54 4f |TO | ADDQ.L #0x2,A7
000229dc 3e ba e3 3e |> > | MOVE.W 0x20d1c,(A7)
000229e0 3f 3a e3 38 |?: 8 | MOVE.W 0x20d1a,-(A7)
000229e4 3f 3a e3 32 |?: 2 | MOVE.W 0x20d18,-(A7)
000229e8 59 4f |YO | SUBQ.L #0x4,A7
000229ea 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000229ee 3f 02 |? | MOVE.W D2,-(A7)
000229f0 3f 3c 00 06 |?< | MOVE.W #0x6,-(A7)
000229f4 4e 94 |N | JSR (A4)
000229f6 50 4f |PO | ADDQ.L #0x8,A7
000229f8 2d 5f ff f8 |-_ | MOVE.L (A7)+,(A6-0x8)
000229fc 54 4f |TO | ADDQ.L #0x2,A7
000229fe 2e 93 |. | MOVE.L (A3),(A7)
00022a00 48 78 00 00 |Hx | PEA.L 0x0
00022a04 2f 2e ff f8 |/. | MOVE.L (A6-0x8),-(A7)
00022a08 48 6e ff f0 |Hn | PEA.L (A6-0x10)
00022a0c 48 6e ff ed |Hn | PEA.L (A6-0x13)
00022a10 4e b9 00 02 43 4a |N CJ | JSR 0x2434a
00022a16 de c3 | | ADDA.W D3,A7
00022a18 48 6e ff f8 |Hn | PEA.L (A6-0x8)
00022a1c 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String)
00022a22 54 4f |TO | ADDQ.L #0x2,A7
00022a24 3e ba e2 fc |> | MOVE.W 0x20d22,(A7)
00022a28 3f 3a e2 f6 |?: | MOVE.W 0x20d20,-(A7)
00022a2c 3f 3a e2 f0 |?: | MOVE.W 0x20d1e,-(A7)
00022a30 59 4f |YO | SUBQ.L #0x4,A7
00022a32 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00022a36 3f 02 |? | MOVE.W D2,-(A7)
00022a38 3f 3c 00 06 |?< | MOVE.W #0x6,-(A7)
00022a3c 4e 94 |N | JSR (A4)
00022a3e 50 4f |PO | ADDQ.L #0x8,A7
00022a40 2d 5f ff f8 |-_ | MOVE.L (A7)+,(A6-0x8)
00022a44 54 4f |TO | ADDQ.L #0x2,A7
00022a46 2e 93 |. | MOVE.L (A3),(A7)
00022a48 48 78 00 00 |Hx | PEA.L 0x0
00022a4c 2f 2e ff f8 |/. | MOVE.L (A6-0x8),-(A7)
00022a50 48 6e ff f4 |Hn | PEA.L (A6-0xc)
00022a54 48 6e ff ee |Hn | PEA.L (A6-0x12)
00022a58 4e b9 00 02 43 4a |N CJ | JSR 0x2434a
00022a5e de c3 | | ADDA.W D3,A7
00022a60 48 6e ff f8 |Hn | PEA.L (A6-0x8)
00022a64 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String)
00022a6a 58 4f |XO | ADDQ.L #0x4,A7
00022a6c 4a 2e ff ed |J. | TST.B (A6-0x13)
00022a70 66 06 |f | BNE 0x22a78
00022a72 4a 2e ff ee |J. | TST.B (A6-0x12)
00022a76 67 06 |g | BEQ 0x22a7e
00022a78 42 2e ff fc |B. | CLR.B (A6-0x4)
00022a7c 60 04 |` | BRA 0x22a82
00022a7e 1d 42 ff fc | B | MOVE.B D2,(A6-0x4)
00022a82 2f 12 |/ | MOVE.L (A2),-(A7)
00022a84 2f 2e ff d0 |/. | MOVE.L (A6-0x30),-(A7)
00022a88 10 2e ff fc | . | MOVE.B (A6-0x4),D0
00022a8c 48 80 |H | EXTB.W D0
00022a8e 41 bc 00 02 |A | CHK.W #0x2,D0
00022a92 1f 00 | | MOVE.B D0,-(A7)
00022a94 48 6e ff ec |Hn | PEA.L (A6-0x14)
00022a98 4e b9 00 01 03 b0 |N | JSR PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
00022a9e de fc 00 0e | | ADDA.W #0xe,A7
00022aa2 4a 2e ff ed |J. | TST.B (A6-0x13)
00022aa6 67 20 |g | BEQ 0x22ac8
00022aa8 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7)
00022aac 59 4f |YO | SUBQ.L #0x4,A7
00022aae 10 2e ff ec | . | MOVE.B (A6-0x14),D0
00022ab2 48 80 |H | EXTB.W D0
00022ab4 41 bc 00 0e |A | CHK.W #0xe,D0
00022ab8 1f 00 | | MOVE.B D0,-(A7)
00022aba 4e b9 00 01 03 c0 |N | JSR ExpErrMsg(a: Byte) : String
00022ac0 54 4f |TO | ADDQ.L #0x2,A7
00022ac2 4e ba f9 4c |N L | JSR 0x22410
00022ac6 50 4f |PO | ADDQ.L #0x8,A7
00022ac8 4a 2e ff ee |J. | TST.B (A6-0x12)
00022acc 67 12 |g | BEQ 0x22ae0
00022ace 2f 2e ff f4 |/. | MOVE.L (A6-0xc),-(A7)
00022ad2 59 4f |YO | SUBQ.L #0x4,A7
00022ad4 4e b9 00 01 03 c8 |N | JSR FSCALL_103c8
00022ada 4e ba f9 34 |N 4 | JSR 0x22410
00022ade 50 4f |PO | ADDQ.L #0x8,A7
00022ae0 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00022ae4 4e 5e |N^ | UNLK A6
00022ae6 4e 75 |Nu | RTS
00022ae8 ; --------------------------------------------------------------------------------------
00022ae8 ; OMSI PASCAL Function
00022ae8 ; <LVAR 0x008 4(r)>
00022ae8 ; <LVAR -0x004 @ 4(rw)>
00022ae8 ; <LVAR -0x008 @ 4(rw)>
00022ae8 ; --------------------------------------------------------------------------------------
00022ae8 4e 56 ff e0 |NV | LINK.W A6,#0xffe0
00022aec bf d5 | | CMPA.L (A5),A7
00022aee 62 06 |b | BHI 0x22af6
00022af0 44 fc 00 02 |D | MOVE.W #0x2,CCR
00022af4 4e 76 |Nv | TRAPV
00022af6 de fc 00 18 | | ADDA.W #0x18,A7
00022afa 48 e7 00 c0 |H | MOVEM.L A1+A0,-(A7)
00022afe 41 ee ff f8 |A | LEA.L (A6-0x8),A0
00022b02 43 ee ff fc |C | LEA.L (A6-0x4),A1
00022b06 59 4f |YO | SUBQ.L #0x4,A7
00022b08 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00022b0c 48 78 00 01 |Hx | PEA.L 0x1
00022b10 4e ba f3 00 |N | JSR 0x21e12
00022b14 50 4f |PO | ADDQ.L #0x8,A7
00022b16 20 97 | | MOVE.L (A7),(A0)
00022b18 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00022b1c 48 78 00 02 |Hx | PEA.L 0x2
00022b20 4e ba f2 f0 |N | JSR 0x21e12
00022b24 50 4f |PO | ADDQ.L #0x8,A7
00022b26 22 97 |" | MOVE.L (A7),(A1)
00022b28 54 4f |TO | ADDQ.L #0x2,A7
00022b2a 2f 10 |/ | MOVE.L (A0),-(A7)
00022b2c 2f 11 |/ | MOVE.L (A1),-(A7)
00022b2e 4e b9 00 01 02 c8 |N | JSR StringEqual(a, b : String) : Byte
00022b34 50 4f |PO | ADDQ.L #0x8,A7
00022b36 4a 1f |J | TST.B (A7)+
00022b38 67 06 |g | BEQ 0x22b40
00022b3a 4e ba ed 96 |N | JSR 0x218d2
00022b3e 60 04 |` | BRA 0x22b44
00022b40 4e ba ed d6 |N | JSR 0x21918
00022b44 48 51 |HQ | PEA.L (A1)
00022b46 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String)
00022b4c 58 4f |XO | ADDQ.L #0x4,A7
00022b4e 48 50 |HP | PEA.L (A0)
00022b50 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String)
00022b56 58 4f |XO | ADDQ.L #0x4,A7
00022b58 4c df 03 00 |L | MOVEM.L (A7)+,A0+A1
00022b5c 4e 5e |N^ | UNLK A6
00022b5e 4e 75 |Nu | RTS
00022b60 ; --------------------------------------------------------------------------------------
00022b60 ; OMSI PASCAL Function
00022b60 ; <LVAR 0x008 4(r)>
00022b60 ; <LVAR -0x004 @ 4(rw)>
00022b60 ; <LVAR -0x008 @ 4(rw)>
00022b60 ; --------------------------------------------------------------------------------------
00022b60 4e 56 ff e0 |NV | LINK.W A6,#0xffe0
00022b64 bf d5 | | CMPA.L (A5),A7
00022b66 62 06 |b | BHI 0x22b6e
00022b68 44 fc 00 02 |D | MOVE.W #0x2,CCR
00022b6c 4e 76 |Nv | TRAPV
00022b6e de fc 00 18 | | ADDA.W #0x18,A7
00022b72 48 e7 00 c0 |H | MOVEM.L A1+A0,-(A7)
00022b76 41 ee ff f8 |A | LEA.L (A6-0x8),A0
00022b7a 43 ee ff fc |C | LEA.L (A6-0x4),A1
00022b7e 59 4f |YO | SUBQ.L #0x4,A7
00022b80 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00022b84 48 78 00 01 |Hx | PEA.L 0x1
00022b88 4e ba f2 88 |N | JSR 0x21e12
00022b8c 50 4f |PO | ADDQ.L #0x8,A7
00022b8e 20 97 | | MOVE.L (A7),(A0)
00022b90 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00022b94 48 78 00 02 |Hx | PEA.L 0x2
00022b98 4e ba f2 78 |N x | JSR 0x21e12
00022b9c 50 4f |PO | ADDQ.L #0x8,A7
00022b9e 22 97 |" | MOVE.L (A7),(A1)
00022ba0 54 4f |TO | ADDQ.L #0x2,A7
00022ba2 2f 10 |/ | MOVE.L (A0),-(A7)
00022ba4 2f 11 |/ | MOVE.L (A1),-(A7)
00022ba6 4e b9 00 01 02 c8 |N | JSR StringEqual(a, b : String) : Byte
00022bac 50 4f |PO | ADDQ.L #0x8,A7
00022bae 4a 1f |J | TST.B (A7)+
00022bb0 66 06 |f | BNE 0x22bb8
00022bb2 4e ba ed 1e |N | JSR 0x218d2
00022bb6 60 04 |` | BRA 0x22bbc
00022bb8 4e ba ed 5e |N ^ | JSR 0x21918
00022bbc 48 51 |HQ | PEA.L (A1)
00022bbe 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String)
00022bc4 58 4f |XO | ADDQ.L #0x4,A7
00022bc6 48 50 |HP | PEA.L (A0)
00022bc8 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String)
00022bce 58 4f |XO | ADDQ.L #0x4,A7
00022bd0 4c df 03 00 |L | MOVEM.L (A7)+,A0+A1
00022bd4 4e 5e |N^ | UNLK A6
00022bd6 4e 75 |Nu | RTS
00022bd8 ; --------------------------------------------------------------------------------------
00022bd8 ; OMSI PASCAL Function
00022bd8 ; <LVAR 0x008 4(r)>
00022bd8 ; --------------------------------------------------------------------------------------
00022bd8 4e 56 ff f0 |NV | LINK.W A6,#0xfff0
00022bdc bf d5 | | CMPA.L (A5),A7
00022bde 62 06 |b | BHI 0x22be6
00022be0 44 fc 00 02 |D | MOVE.W #0x2,CCR
00022be4 4e 76 |Nv | TRAPV
00022be6 de fc 00 10 | | ADDA.W #0x10,A7
00022bea 59 4f |YO | SUBQ.L #0x4,A7
00022bec 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00022bf0 48 78 00 01 |Hx | PEA.L 0x1
00022bf4 4e ba f2 1c |N | JSR 0x21e12
00022bf8 50 4f |PO | ADDQ.L #0x8,A7
00022bfa 4e ba f0 0e |N | JSR 0x21c0a
00022bfe 58 4f |XO | ADDQ.L #0x4,A7
00022c00 4e 5e |N^ | UNLK A6
00022c02 4e 75 |Nu | RTS
00022c04 ; --------------------------------------------------------------------------------------
00022c04 ; OMSI PASCAL Function
00022c04 ; <LVAR 0x008 4(r)>
00022c04 ; <LVAR -0x014 @ 4(rw)>
00022c04 ; --------------------------------------------------------------------------------------
00022c04 4e 56 ff 90 |NV | LINK.W A6,#0xff90
00022c08 bf d5 | | CMPA.L (A5),A7
00022c0a 62 06 |b | BHI 0x22c12
00022c0c 44 fc 00 02 |D | MOVE.W #0x2,CCR
00022c10 4e 76 |Nv | TRAPV
00022c12 de fc 00 5c | \ | ADDA.W #0x5c,A7
00022c16 48 e7 e7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7)
00022c1a 45 ee 00 08 |E | LEA.L (A6+0x8),A2
00022c1e 47 ee ff ec |G | LEA.L (A6-0x14),A3
00022c22 74 7d |t} | MOVEQ.L #0x7d,D2
00022c24 59 4f |YO | SUBQ.L #0x4,A7
00022c26 2f 12 |/ | MOVE.L (A2),-(A7)
00022c28 48 78 00 01 |Hx | PEA.L 0x1
00022c2c 4e ba f1 e4 |N | JSR 0x21e12
00022c30 50 4f |PO | ADDQ.L #0x8,A7
00022c32 26 97 |& | MOVE.L (A7),(A3)
00022c34 2f 12 |/ | MOVE.L (A2),-(A7)
00022c36 48 78 00 02 |Hx | PEA.L 0x2
00022c3a 4e ba f1 d6 |N | JSR 0x21e12
00022c3e 50 4f |PO | ADDQ.L #0x8,A7
00022c40 28 5f |(_ | MOVEA.L (A7)+,A4
00022c42 9e fc 00 0c | | SUBA.W #0xc,A7
00022c46 2f 12 |/ | MOVE.L (A2),-(A7)
00022c48 48 78 00 03 |Hx | PEA.L 0x3
00022c4c 4e ba f1 f6 |N | JSR 0x21e44
00022c50 50 4f |PO | ADDQ.L #0x8,A7
00022c52 4e b9 00 01 03 50 |N P | JSR Quad2Long(a : Quad) : Long
00022c58 50 4f |PO | ADDQ.L #0x8,A7
00022c5a 2c 17 |, | MOVE.L (A7),D6
00022c5c 51 4f |QO | SUBQ.L #0x8,A7
00022c5e 2f 12 |/ | MOVE.L (A2),-(A7)
00022c60 48 78 00 04 |Hx | PEA.L 0x4
00022c64 4e ba f1 de |N | JSR 0x21e44
00022c68 50 4f |PO | ADDQ.L #0x8,A7
00022c6a 4e b9 00 01 03 50 |N P | JSR Quad2Long(a : Quad) : Long
00022c70 50 4f |PO | ADDQ.L #0x8,A7
00022c72 2a 1f |* | MOVE.L (A7)+,D5
00022c74 20 06 | | MOVE.L D6,D0
00022c76 d0 85 | | ADD.L D5,D0
00022c78 53 80 |S | SUBQ.L #0x1,D0
00022c7a 32 14 |2 | MOVE.W (A4),D1
00022c7c 48 c1 |H | EXTW.L D1
00022c7e b0 81 | | CMP.L D1,D0
00022c80 6f 30 |o0 | BLE 0x22cb2
00022c82 9e fc 00 20 | | SUBA.W #0x20,A7
00022c86 20 4f | O | MOVEA.L A7,A0
00022c88 43 fa e0 9a |C | LEA.L 0x20d24,A1
00022c8c 70 1e |p | MOVEQ.L #0x1e,D0
00022c8e 10 d9 | | MOVE.B (A1)+,(A0)+
00022c90 51 c8 ff fc |Q | DBF D0,0x22c8e
00022c94 59 4f |YO | SUBQ.L #0x4,A7
00022c96 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00022c9a 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
00022c9e 3f 3c 00 1f |?< | MOVE.W #0x1f,-(A7)
00022ca2 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00022ca8 50 4f |PO | ADDQ.L #0x8,A7
00022caa 4e ba e4 3e |N > | JSR 0x210ea
00022cae de fc 00 24 | $ | ADDA.W #0x24,A7
00022cb2 20 53 | S | MOVEA.L (A3),A0
00022cb4 2f 08 |/ | MOVE.L A0,-(A7)
00022cb6 30 10 |0 | MOVE.W (A0),D0
00022cb8 48 c0 |H | EXTW.L D0
00022cba 2f 00 |/ | MOVE.L D0,-(A7)
00022cbc 7e 01 |~ | MOVEQ.L #0x01,D7
00022cbe be 97 | | CMP.L (A7),D7
00022cc0 6e 26 |n& | BGT 0x22ce8
00022cc2 20 06 | | MOVE.L D6,D0
00022cc4 d0 87 | | ADD.L D7,D0
00022cc6 53 80 |S | SUBQ.L #0x1,D0
00022cc8 53 80 |S | SUBQ.L #0x1,D0
00022cca b0 82 | | CMP.L D2,D0
00022ccc 63 02 |c | BLS 0x22cd0
00022cce 4e 4f |NO | TRAP #15
00022cd0 22 07 |" | MOVE.L D7,D1
00022cd2 53 81 |S | SUBQ.L #0x1,D1
00022cd4 b2 82 | | CMP.L D2,D1
00022cd6 63 02 |c | BLS 0x22cda
00022cd8 4e 4f |NO | TRAP #15
00022cda 20 6f 00 04 | o | MOVEA.L (A7+0x4),A0
00022cde 19 b0 18 02 08 02 | | MOVE.B (A0+D1.L+#0x2),(A4+D0.L+#0x2)
00022ce4 52 87 |R | ADDQ.L #0x1,D7
00022ce6 68 d6 |h | BVC 0x22cbe
00022ce8 58 4f |XO | ADDQ.L #0x4,A7
00022cea 2e 8c |. | MOVE.L A4,(A7)
00022cec 4e ba f1 c6 |N | JSR 0x21eb4
00022cf0 58 4f |XO | ADDQ.L #0x4,A7
00022cf2 48 53 |HS | PEA.L (A3)
00022cf4 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String)
00022cfa 58 4f |XO | ADDQ.L #0x4,A7
00022cfc 4c df 1f e7 |L | MOVEM.L (A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3+A4
00022d00 4e 5e |N^ | UNLK A6
00022d02 4e 75 |Nu | RTS
00022d04 ; --------------------------------------------------------------------------------------
00022d04 ; OMSI PASCAL Function
00022d04 ; <LVAR 0x008 4(r)>
00022d04 ; <LVAR -0x010 @ 4(r)>
00022d04 ; <LVAR -0x014 @ 4(rw)>
00022d04 ; --------------------------------------------------------------------------------------
00022d04 4e 56 ff a8 |NV | LINK.W A6,#0xffa8
00022d08 bf d5 | | CMPA.L (A5),A7
00022d0a 62 06 |b | BHI 0x22d12
00022d0c 44 fc 00 02 |D | MOVE.W #0x2,CCR
00022d10 4e 76 |Nv | TRAPV
00022d12 de fc 00 44 | D | ADDA.W #0x44,A7
00022d16 48 e7 e7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7)
00022d1a 45 ee ff ec |E | LEA.L (A6-0x14),A2
00022d1e 47 ee ff f0 |G | LEA.L (A6-0x10),A3
00022d22 49 ee 00 08 |I | LEA.L (A6+0x8),A4
00022d26 74 7d |t} | MOVEQ.L #0x7d,D2
00022d28 59 4f |YO | SUBQ.L #0x4,A7
00022d2a 2f 14 |/ | MOVE.L (A4),-(A7)
00022d2c 48 78 00 01 |Hx | PEA.L 0x1
00022d30 4e ba f0 e0 |N | JSR 0x21e12
00022d34 50 4f |PO | ADDQ.L #0x8,A7
00022d36 24 9f |$ | MOVE.L (A7)+,(A2)
00022d38 48 53 |HS | PEA.L (A3)
00022d3a 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String)
00022d40 51 4f |QO | SUBQ.L #0x8,A7
00022d42 2f 14 |/ | MOVE.L (A4),-(A7)
00022d44 48 78 00 02 |Hx | PEA.L 0x2
00022d48 4e ba f0 fa |N | JSR 0x21e44
00022d4c 50 4f |PO | ADDQ.L #0x8,A7
00022d4e 4e b9 00 01 03 50 |N P | JSR Quad2Long(a : Quad) : Long
00022d54 50 4f |PO | ADDQ.L #0x8,A7
00022d56 2a 17 |* | MOVE.L (A7),D5
00022d58 51 4f |QO | SUBQ.L #0x8,A7
00022d5a 2f 14 |/ | MOVE.L (A4),-(A7)
00022d5c 48 78 00 03 |Hx | PEA.L 0x3
00022d60 4e ba f0 e2 |N | JSR 0x21e44
00022d64 50 4f |PO | ADDQ.L #0x8,A7
00022d66 4e b9 00 01 03 50 |N P | JSR Quad2Long(a : Quad) : Long
00022d6c 50 4f |PO | ADDQ.L #0x8,A7
00022d6e 2c 1f |, | MOVE.L (A7)+,D6
00022d70 20 52 | R | MOVEA.L (A2),A0
00022d72 20 05 | | MOVE.L D5,D0
00022d74 d0 86 | | ADD.L D6,D0
00022d76 53 80 |S | SUBQ.L #0x1,D0
00022d78 32 10 |2 | MOVE.W (A0),D1
00022d7a 48 c1 |H | EXTW.L D1
00022d7c b0 81 | | CMP.L D1,D0
00022d7e 6f 06 |o | BLE 0x22d86
00022d80 52 81 |R | ADDQ.L #0x1,D1
00022d82 92 85 | | SUB.L D5,D1
00022d84 2c 01 |, | MOVE.L D1,D6
00022d86 2f 06 |/ | MOVE.L D6,-(A7)
00022d88 7e 01 |~ | MOVEQ.L #0x01,D7
00022d8a be 97 | | CMP.L (A7),D7
00022d8c 6e 26 |n& | BGT 0x22db4
00022d8e 20 53 | S | MOVEA.L (A3),A0
00022d90 20 07 | | MOVE.L D7,D0
00022d92 53 80 |S | SUBQ.L #0x1,D0
00022d94 b0 82 | | CMP.L D2,D0
00022d96 63 02 |c | BLS 0x22d9a
00022d98 4e 4f |NO | TRAP #15
00022d9a 22 52 |"R | MOVEA.L (A2),A1
00022d9c 22 07 |" | MOVE.L D7,D1
00022d9e d2 85 | | ADD.L D5,D1
00022da0 53 81 |S | SUBQ.L #0x1,D1
00022da2 53 81 |S | SUBQ.L #0x1,D1
00022da4 b2 82 | | CMP.L D2,D1
00022da6 63 02 |c | BLS 0x22daa
00022da8 4e 4f |NO | TRAP #15
00022daa 11 b1 18 02 08 02 | | MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x2)
00022db0 52 87 |R | ADDQ.L #0x1,D7
00022db2 68 d6 |h | BVC 0x22d8a
00022db4 58 4f |XO | ADDQ.L #0x4,A7
00022db6 20 53 | S | MOVEA.L (A3),A0
00022db8 04 86 ff ff 80 00 | | SUBI.L #0xffff8000,D6
00022dbe 0c 86 00 00 ff ff | | CMPI.L #0x0000ffff,D6
00022dc4 63 02 |c | BLS 0x22dc8
00022dc6 4e 4f |NO | TRAP #15
00022dc8 06 86 ff ff 80 00 | | ADDI.L #0xffff8000,D6
00022dce 30 86 |0 | MOVE.W D6,(A0)
00022dd0 2f 13 |/ | MOVE.L (A3),-(A7)
00022dd2 4e ba f0 e0 |N | JSR 0x21eb4
00022dd6 58 4f |XO | ADDQ.L #0x4,A7
00022dd8 48 52 |HR | PEA.L (A2)
00022dda 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String)
00022de0 58 4f |XO | ADDQ.L #0x4,A7
00022de2 4c df 1f e7 |L | MOVEM.L (A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3+A4
00022de6 4e 5e |N^ | UNLK A6
00022de8 4e 75 |Nu | RTS
00022dea ; --------------------------------------------------------------------------------------
00022dea ; OMSI PASCAL Function
00022dea ; <LVAR 0x008 4(r)>
00022dea ; --------------------------------------------------------------------------------------
00022dea 4e 56 ff ec |NV | LINK.W A6,#0xffec
00022dee bf d5 | | CMPA.L (A5),A7
00022df0 62 06 |b | BHI 0x22df8
00022df2 44 fc 00 02 |D | MOVE.W #0x2,CCR
00022df6 4e 76 |Nv | TRAPV
00022df8 de fc 00 14 | | ADDA.W #0x14,A7
00022dfc 51 4f |QO | SUBQ.L #0x8,A7
00022dfe 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00022e02 48 78 00 01 |Hx | PEA.L 0x1
00022e06 4e ba f0 3c |N < | JSR 0x21e44
00022e0a 50 4f |PO | ADDQ.L #0x8,A7
00022e0c 4e ba ee 70 |N p | JSR 0x21c7e
00022e10 50 4f |PO | ADDQ.L #0x8,A7
00022e12 4e 5e |N^ | UNLK A6
00022e14 4e 75 |Nu | RTS
00022e16 ; --------------------------------------------------------------------------------------
00022e16 ; OMSI PASCAL Function
00022e16 ; <LVAR 0x008 4(r)>
00022e16 ; --------------------------------------------------------------------------------------
00022e16 4e 56 ff e2 |NV | LINK.W A6,#0xffe2
00022e1a bf d5 | | CMPA.L (A5),A7
00022e1c 62 06 |b | BHI 0x22e24
00022e1e 44 fc 00 02 |D | MOVE.W #0x2,CCR
00022e22 4e 76 |Nv | TRAPV
00022e24 de fc 00 1e | | ADDA.W #0x1e,A7
00022e28 9e fc 00 0a | | SUBA.W #0xa,A7
00022e2c 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00022e30 48 78 00 01 |Hx | PEA.L 0x1
00022e34 4e ba f0 0e |N | JSR 0x21e44
00022e38 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00022e3c 48 78 00 02 |Hx | PEA.L 0x2
00022e40 4e ba f0 02 |N | JSR 0x21e44
00022e44 50 4f |PO | ADDQ.L #0x8,A7
00022e46 4e b9 00 01 03 2c |N , | JSR IsEqual(a, b : Quad) : Bool
00022e4c de fc 00 10 | | ADDA.W #0x10,A7
00022e50 4a 1f |J | TST.B (A7)+
00022e52 67 06 |g | BEQ 0x22e5a
00022e54 4e ba ea 7c |N | | JSR 0x218d2
00022e58 60 04 |` | BRA 0x22e5e
00022e5a 4e ba ea bc |N | JSR 0x21918
00022e5e 4e 5e |N^ | UNLK A6
00022e60 4e 75 |Nu | RTS
00022e62 ; --------------------------------------------------------------------------------------
00022e62 ; OMSI PASCAL Function
00022e62 ; <LVAR 0x008 4(r)>
00022e62 ; --------------------------------------------------------------------------------------
00022e62 4e 56 ff e2 |NV | LINK.W A6,#0xffe2
00022e66 bf d5 | | CMPA.L (A5),A7
00022e68 62 06 |b | BHI 0x22e70
00022e6a 44 fc 00 02 |D | MOVE.W #0x2,CCR
00022e6e 4e 76 |Nv | TRAPV
00022e70 de fc 00 1e | | ADDA.W #0x1e,A7
00022e74 9e fc 00 0a | | SUBA.W #0xa,A7
00022e78 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00022e7c 48 78 00 01 |Hx | PEA.L 0x1
00022e80 4e ba ef c2 |N | JSR 0x21e44
00022e84 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00022e88 48 78 00 02 |Hx | PEA.L 0x2
00022e8c 4e ba ef b6 |N | JSR 0x21e44
00022e90 50 4f |PO | ADDQ.L #0x8,A7
00022e92 4e b9 00 01 03 2c |N , | JSR IsEqual(a, b : Quad) : Bool
00022e98 de fc 00 10 | | ADDA.W #0x10,A7
00022e9c 4a 1f |J | TST.B (A7)+
00022e9e 66 06 |f | BNE 0x22ea6
00022ea0 4e ba ea 30 |N 0 | JSR 0x218d2
00022ea4 60 04 |` | BRA 0x22eaa
00022ea6 4e ba ea 70 |N p | JSR 0x21918
00022eaa 4e 5e |N^ | UNLK A6
00022eac 4e 75 |Nu | RTS
00022eae ; --------------------------------------------------------------------------------------
00022eae ; OMSI PASCAL Function
00022eae ; <LVAR 0x008 4(r)>
00022eae ; --------------------------------------------------------------------------------------
00022eae 4e 56 ff e2 |NV | LINK.W A6,#0xffe2
00022eb2 bf d5 | | CMPA.L (A5),A7
00022eb4 62 06 |b | BHI 0x22ebc
00022eb6 44 fc 00 02 |D | MOVE.W #0x2,CCR
00022eba 4e 76 |Nv | TRAPV
00022ebc de fc 00 1e | | ADDA.W #0x1e,A7
00022ec0 9e fc 00 0a | | SUBA.W #0xa,A7
00022ec4 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00022ec8 48 78 00 01 |Hx | PEA.L 0x1
00022ecc 4e ba ef 76 |N v | JSR 0x21e44
00022ed0 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00022ed4 48 78 00 02 |Hx | PEA.L 0x2
00022ed8 4e ba ef 6a |N j | JSR 0x21e44
00022edc 50 4f |PO | ADDQ.L #0x8,A7
00022ede 4e b9 00 01 03 28 |N ( | JSR IsSmaller(a, b : Quad) : Bool
00022ee4 de fc 00 10 | | ADDA.W #0x10,A7
00022ee8 4a 1f |J | TST.B (A7)+
00022eea 67 06 |g | BEQ 0x22ef2
00022eec 4e ba e9 e4 |N | JSR 0x218d2
00022ef0 60 04 |` | BRA 0x22ef6
00022ef2 4e ba ea 24 |N $ | JSR 0x21918
00022ef6 4e 5e |N^ | UNLK A6
00022ef8 4e 75 |Nu | RTS
00022efa ; --------------------------------------------------------------------------------------
00022efa ; OMSI PASCAL Function
00022efa ; <LVAR 0x008 4(r)>
00022efa ; --------------------------------------------------------------------------------------
00022efa 4e 56 ff e2 |NV | LINK.W A6,#0xffe2
00022efe bf d5 | | CMPA.L (A5),A7
00022f00 62 06 |b | BHI 0x22f08
00022f02 44 fc 00 02 |D | MOVE.W #0x2,CCR
00022f06 4e 76 |Nv | TRAPV
00022f08 de fc 00 1e | | ADDA.W #0x1e,A7
00022f0c 9e fc 00 0a | | SUBA.W #0xa,A7
00022f10 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00022f14 48 78 00 01 |Hx | PEA.L 0x1
00022f18 4e ba ef 2a |N * | JSR 0x21e44
00022f1c 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00022f20 48 78 00 02 |Hx | PEA.L 0x2
00022f24 4e ba ef 1e |N | JSR 0x21e44
00022f28 50 4f |PO | ADDQ.L #0x8,A7
00022f2a 4e b9 00 01 03 24 |N $ | JSR IsGreater(a, b : Quad) : Bool
00022f30 de fc 00 10 | | ADDA.W #0x10,A7
00022f34 4a 1f |J | TST.B (A7)+
00022f36 67 06 |g | BEQ 0x22f3e
00022f38 4e ba e9 98 |N | JSR 0x218d2
00022f3c 60 04 |` | BRA 0x22f42
00022f3e 4e ba e9 d8 |N | JSR 0x21918
00022f42 4e 5e |N^ | UNLK A6
00022f44 4e 75 |Nu | RTS
00022f46 ; --------------------------------------------------------------------------------------
00022f46 ; OMSI PASCAL Function
00022f46 ; <LVAR 0x008 4(r)>
00022f46 ; --------------------------------------------------------------------------------------
00022f46 4e 56 ff e2 |NV | LINK.W A6,#0xffe2
00022f4a bf d5 | | CMPA.L (A5),A7
00022f4c 62 06 |b | BHI 0x22f54
00022f4e 44 fc 00 02 |D | MOVE.W #0x2,CCR
00022f52 4e 76 |Nv | TRAPV
00022f54 de fc 00 1e | | ADDA.W #0x1e,A7
00022f58 9e fc 00 0a | | SUBA.W #0xa,A7
00022f5c 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00022f60 48 78 00 01 |Hx | PEA.L 0x1
00022f64 4e ba ee de |N | JSR 0x21e44
00022f68 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00022f6c 48 78 00 02 |Hx | PEA.L 0x2
00022f70 4e ba ee d2 |N | JSR 0x21e44
00022f74 50 4f |PO | ADDQ.L #0x8,A7
00022f76 4e b9 00 01 03 24 |N $ | JSR IsGreater(a, b : Quad) : Bool
00022f7c de fc 00 10 | | ADDA.W #0x10,A7
00022f80 4a 1f |J | TST.B (A7)+
00022f82 66 06 |f | BNE 0x22f8a
00022f84 4e ba e9 4c |N L | JSR 0x218d2
00022f88 60 04 |` | BRA 0x22f8e
00022f8a 4e ba e9 8c |N | JSR 0x21918
00022f8e 4e 5e |N^ | UNLK A6
00022f90 4e 75 |Nu | RTS
00022f92 ; --------------------------------------------------------------------------------------
00022f92 ; OMSI PASCAL Function
00022f92 ; <LVAR 0x008 4(r)>
00022f92 ; --------------------------------------------------------------------------------------
00022f92 4e 56 ff e2 |NV | LINK.W A6,#0xffe2
00022f96 bf d5 | | CMPA.L (A5),A7
00022f98 62 06 |b | BHI 0x22fa0
00022f9a 44 fc 00 02 |D | MOVE.W #0x2,CCR
00022f9e 4e 76 |Nv | TRAPV
00022fa0 de fc 00 1e | | ADDA.W #0x1e,A7
00022fa4 9e fc 00 0a | | SUBA.W #0xa,A7
00022fa8 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00022fac 48 78 00 01 |Hx | PEA.L 0x1
00022fb0 4e ba ee 92 |N | JSR 0x21e44
00022fb4 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00022fb8 48 78 00 02 |Hx | PEA.L 0x2
00022fbc 4e ba ee 86 |N | JSR 0x21e44
00022fc0 50 4f |PO | ADDQ.L #0x8,A7
00022fc2 4e b9 00 01 03 28 |N ( | JSR IsSmaller(a, b : Quad) : Bool
00022fc8 de fc 00 10 | | ADDA.W #0x10,A7
00022fcc 4a 1f |J | TST.B (A7)+
00022fce 66 06 |f | BNE 0x22fd6
00022fd0 4e ba e9 00 |N | JSR 0x218d2
00022fd4 60 04 |` | BRA 0x22fda
00022fd6 4e ba e9 40 |N @ | JSR 0x21918
00022fda 4e 5e |N^ | UNLK A6
00022fdc 4e 75 |Nu | RTS
00022fde ; --------------------------------------------------------------------------------------
00022fde ; OMSI PASCAL Function
00022fde ; <LVAR 0x008 4(r)>
00022fde ; --------------------------------------------------------------------------------------
00022fde 4e 56 ff d8 |NV | LINK.W A6,#0xffd8
00022fe2 bf d5 | | CMPA.L (A5),A7
00022fe4 62 06 |b | BHI 0x22fec
00022fe6 44 fc 00 02 |D | MOVE.W #0x2,CCR
00022fea 4e 76 |Nv | TRAPV
00022fec de fc 00 28 | ( | ADDA.W #0x28,A7
00022ff0 48 e7 80 00 |H | MOVEM.L D0,-(A7)
00022ff4 70 10 |p | MOVEQ.L #0x10,D0
00022ff6 9e c0 | | SUBA.W D0,A7
00022ff8 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00022ffc 48 78 00 01 |Hx | PEA.L 0x1
00023000 4e ba ee 42 |N B | JSR 0x21e44
00023004 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00023008 48 78 00 02 |Hx | PEA.L 0x2
0002300c 4e ba ee 36 |N 6 | JSR 0x21e44
00023010 50 4f |PO | ADDQ.L #0x8,A7
00023012 4e b9 00 01 03 14 |N | JSR Add(a, b : Quad) : Quad
00023018 de c0 | | ADDA.W D0,A7
0002301a 4e ba ef 20 |N | JSR 0x21f3c
0002301e 50 4f |PO | ADDQ.L #0x8,A7
00023020 4c df 00 01 |L | MOVEM.L (A7)+,D0
00023024 4e 5e |N^ | UNLK A6
00023026 4e 75 |Nu | RTS
00023028 ; --------------------------------------------------------------------------------------
00023028 ; OMSI PASCAL Function
00023028 ; <LVAR 0x008 4(r)>
00023028 ; --------------------------------------------------------------------------------------
00023028 4e 56 ff d8 |NV | LINK.W A6,#0xffd8
0002302c bf d5 | | CMPA.L (A5),A7
0002302e 62 06 |b | BHI 0x23036
00023030 44 fc 00 02 |D | MOVE.W #0x2,CCR
00023034 4e 76 |Nv | TRAPV
00023036 de fc 00 28 | ( | ADDA.W #0x28,A7
0002303a 48 e7 80 00 |H | MOVEM.L D0,-(A7)
0002303e 70 10 |p | MOVEQ.L #0x10,D0
00023040 9e c0 | | SUBA.W D0,A7
00023042 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00023046 48 78 00 01 |Hx | PEA.L 0x1
0002304a 4e ba ed f8 |N | JSR 0x21e44
0002304e 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00023052 48 78 00 02 |Hx | PEA.L 0x2
00023056 4e ba ed ec |N | JSR 0x21e44
0002305a 50 4f |PO | ADDQ.L #0x8,A7
0002305c 4e b9 00 01 03 18 |N | JSR Subtract(a, b : Quad) : Quad
00023062 de c0 | | ADDA.W D0,A7
00023064 4e ba ee d6 |N | JSR 0x21f3c
00023068 50 4f |PO | ADDQ.L #0x8,A7
0002306a 4c df 00 01 |L | MOVEM.L (A7)+,D0
0002306e 4e 5e |N^ | UNLK A6
00023070 4e 75 |Nu | RTS
00023072 ; --------------------------------------------------------------------------------------
00023072 ; OMSI PASCAL Function
00023072 ; <LVAR 0x008 4(r)>
00023072 ; --------------------------------------------------------------------------------------
00023072 4e 56 ff d8 |NV | LINK.W A6,#0xffd8
00023076 bf d5 | | CMPA.L (A5),A7
00023078 62 06 |b | BHI 0x23080
0002307a 44 fc 00 02 |D | MOVE.W #0x2,CCR
0002307e 4e 76 |Nv | TRAPV
00023080 de fc 00 28 | ( | ADDA.W #0x28,A7
00023084 48 e7 80 00 |H | MOVEM.L D0,-(A7)
00023088 70 10 |p | MOVEQ.L #0x10,D0
0002308a 9e c0 | | SUBA.W D0,A7
0002308c 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00023090 48 78 00 01 |Hx | PEA.L 0x1
00023094 4e ba ed ae |N | JSR 0x21e44
00023098 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
0002309c 48 78 00 02 |Hx | PEA.L 0x2
000230a0 4e ba ed a2 |N | JSR 0x21e44
000230a4 50 4f |PO | ADDQ.L #0x8,A7
000230a6 4e b9 00 01 03 1c |N | JSR Multiply(a, b : Quad) : Quad
000230ac de c0 | | ADDA.W D0,A7
000230ae 4e ba ee 8c |N | JSR 0x21f3c
000230b2 50 4f |PO | ADDQ.L #0x8,A7
000230b4 4c df 00 01 |L | MOVEM.L (A7)+,D0
000230b8 4e 5e |N^ | UNLK A6
000230ba 4e 75 |Nu | RTS
000230bc ; --------------------------------------------------------------------------------------
000230bc ; OMSI PASCAL Function
000230bc ; <LVAR 0x008 4(r)>
000230bc ; --------------------------------------------------------------------------------------
000230bc 4e 56 ff d8 |NV | LINK.W A6,#0xffd8
000230c0 bf d5 | | CMPA.L (A5),A7
000230c2 62 06 |b | BHI 0x230ca
000230c4 44 fc 00 02 |D | MOVE.W #0x2,CCR
000230c8 4e 76 |Nv | TRAPV
000230ca de fc 00 28 | ( | ADDA.W #0x28,A7
000230ce 48 e7 80 00 |H | MOVEM.L D0,-(A7)
000230d2 70 10 |p | MOVEQ.L #0x10,D0
000230d4 9e c0 | | SUBA.W D0,A7
000230d6 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
000230da 48 78 00 01 |Hx | PEA.L 0x1
000230de 4e ba ed 64 |N d | JSR 0x21e44
000230e2 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
000230e6 48 78 00 02 |Hx | PEA.L 0x2
000230ea 4e ba ed 58 |N X | JSR 0x21e44
000230ee 50 4f |PO | ADDQ.L #0x8,A7
000230f0 4e b9 00 01 03 20 |N | JSR Divide(a, b : Quad) : Quad
000230f6 de c0 | | ADDA.W D0,A7
000230f8 4e ba ee 42 |N B | JSR 0x21f3c
000230fc 50 4f |PO | ADDQ.L #0x8,A7
000230fe 4c df 00 01 |L | MOVEM.L (A7)+,D0
00023102 4e 5e |N^ | UNLK A6
00023104 4e 75 |Nu | RTS
00023106 ; --------------------------------------------------------------------------------------
00023106 ; OMSI PASCAL Function
00023106 ; <LVAR 0x008 4(r)>
00023106 ; --------------------------------------------------------------------------------------
00023106 4e 56 ff d8 |NV | LINK.W A6,#0xffd8
0002310a bf d5 | | CMPA.L (A5),A7
0002310c 62 06 |b | BHI 0x23114
0002310e 44 fc 00 02 |D | MOVE.W #0x2,CCR
00023112 4e 76 |Nv | TRAPV
00023114 de fc 00 28 | ( | ADDA.W #0x28,A7
00023118 48 e7 80 00 |H | MOVEM.L D0,-(A7)
0002311c 70 10 |p | MOVEQ.L #0x10,D0
0002311e 9e c0 | | SUBA.W D0,A7
00023120 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00023124 48 78 00 01 |Hx | PEA.L 0x1
00023128 4e ba ed 1a |N | JSR 0x21e44
0002312c 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00023130 48 78 00 02 |Hx | PEA.L 0x2
00023134 4e ba ed 0e |N | JSR 0x21e44
00023138 50 4f |PO | ADDQ.L #0x8,A7
0002313a 4e b9 00 01 03 58 |N X | JSR Modulus(a, b : Quad) : Quad
00023140 de c0 | | ADDA.W D0,A7
00023142 4e ba ed f8 |N | JSR 0x21f3c
00023146 50 4f |PO | ADDQ.L #0x8,A7
00023148 4c df 00 01 |L | MOVEM.L (A7)+,D0
0002314c 4e 5e |N^ | UNLK A6
0002314e 4e 75 |Nu | RTS
00023150 ; --------------------------------------------------------------------------------------
00023150 ; OMSI PASCAL Function
00023150 ; <LVAR 0x008 4(r)>
00023150 ; --------------------------------------------------------------------------------------
00023150 4e 56 ff d8 |NV | LINK.W A6,#0xffd8
00023154 bf d5 | | CMPA.L (A5),A7
00023156 62 06 |b | BHI 0x2315e
00023158 44 fc 00 02 |D | MOVE.W #0x2,CCR
0002315c 4e 76 |Nv | TRAPV
0002315e de fc 00 28 | ( | ADDA.W #0x28,A7
00023162 48 e7 80 00 |H | MOVEM.L D0,-(A7)
00023166 70 10 |p | MOVEQ.L #0x10,D0
00023168 9e c0 | | SUBA.W D0,A7
0002316a 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
0002316e 48 78 00 01 |Hx | PEA.L 0x1
00023172 4e ba ec d0 |N | JSR 0x21e44
00023176 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
0002317a 48 78 00 02 |Hx | PEA.L 0x2
0002317e 4e ba ec c4 |N | JSR 0x21e44
00023182 50 4f |PO | ADDQ.L #0x8,A7
00023184 4e b9 00 01 03 34 |N 4 | JSR BitOr(a, b : Quad) : Quad
0002318a de c0 | | ADDA.W D0,A7
0002318c 4e ba ed ae |N | JSR 0x21f3c
00023190 50 4f |PO | ADDQ.L #0x8,A7
00023192 4c df 00 01 |L | MOVEM.L (A7)+,D0
00023196 4e 5e |N^ | UNLK A6
00023198 4e 75 |Nu | RTS
0002319a ; --------------------------------------------------------------------------------------
0002319a ; OMSI PASCAL Function
0002319a ; <LVAR 0x008 4(r)>
0002319a ; --------------------------------------------------------------------------------------
0002319a 4e 56 ff d8 |NV | LINK.W A6,#0xffd8
0002319e bf d5 | | CMPA.L (A5),A7
000231a0 62 06 |b | BHI 0x231a8
000231a2 44 fc 00 02 |D | MOVE.W #0x2,CCR
000231a6 4e 76 |Nv | TRAPV
000231a8 de fc 00 28 | ( | ADDA.W #0x28,A7
000231ac 48 e7 80 00 |H | MOVEM.L D0,-(A7)
000231b0 70 10 |p | MOVEQ.L #0x10,D0
000231b2 9e c0 | | SUBA.W D0,A7
000231b4 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
000231b8 48 78 00 01 |Hx | PEA.L 0x1
000231bc 4e ba ec 86 |N | JSR 0x21e44
000231c0 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
000231c4 48 78 00 02 |Hx | PEA.L 0x2
000231c8 4e ba ec 7a |N z | JSR 0x21e44
000231cc 50 4f |PO | ADDQ.L #0x8,A7
000231ce 4e b9 00 01 03 30 |N 0 | JSR BitAnd(a, b : Quad) : Quad
000231d4 de c0 | | ADDA.W D0,A7
000231d6 4e ba ed 64 |N d | JSR 0x21f3c
000231da 50 4f |PO | ADDQ.L #0x8,A7
000231dc 4c df 00 01 |L | MOVEM.L (A7)+,D0
000231e0 4e 5e |N^ | UNLK A6
000231e2 4e 75 |Nu | RTS
000231e4 ; --------------------------------------------------------------------------------------
000231e4 ; OMSI PASCAL Function
000231e4 ; <LVAR 0x008 4(r)>
000231e4 ; --------------------------------------------------------------------------------------
000231e4 4e 56 ff d8 |NV | LINK.W A6,#0xffd8
000231e8 bf d5 | | CMPA.L (A5),A7
000231ea 62 06 |b | BHI 0x231f2
000231ec 44 fc 00 02 |D | MOVE.W #0x2,CCR
000231f0 4e 76 |Nv | TRAPV
000231f2 de fc 00 28 | ( | ADDA.W #0x28,A7
000231f6 48 e7 80 00 |H | MOVEM.L D0,-(A7)
000231fa 70 10 |p | MOVEQ.L #0x10,D0
000231fc 9e c0 | | SUBA.W D0,A7
000231fe 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00023202 48 78 00 01 |Hx | PEA.L 0x1
00023206 4e ba ec 3c |N < | JSR 0x21e44
0002320a 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
0002320e 48 78 00 02 |Hx | PEA.L 0x2
00023212 4e ba ec 30 |N 0 | JSR 0x21e44
00023216 50 4f |PO | ADDQ.L #0x8,A7
00023218 4e b9 00 01 03 40 |N @ | JSR BitXor(a, b : Quad) : Quad
0002321e de c0 | | ADDA.W D0,A7
00023220 4e ba ed 1a |N | JSR 0x21f3c
00023224 50 4f |PO | ADDQ.L #0x8,A7
00023226 4c df 00 01 |L | MOVEM.L (A7)+,D0
0002322a 4e 5e |N^ | UNLK A6
0002322c 4e 75 |Nu | RTS
0002322e ; --------------------------------------------------------------------------------------
0002322e ; OMSI PASCAL Function
0002322e ; <LVAR 0x008 4(r)>
0002322e ; --------------------------------------------------------------------------------------
0002322e 4e 56 ff e0 |NV | LINK.W A6,#0xffe0
00023232 bf d5 | | CMPA.L (A5),A7
00023234 62 06 |b | BHI 0x2323c
00023236 44 fc 00 02 |D | MOVE.W #0x2,CCR
0002323a 4e 76 |Nv | TRAPV
0002323c de fc 00 20 | | ADDA.W #0x20,A7
00023240 9e fc 00 10 | | SUBA.W #0x10,A7
00023244 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00023248 48 78 00 01 |Hx | PEA.L 0x1
0002324c 4e ba eb f6 |N | JSR 0x21e44
00023250 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7)
00023254 48 78 00 02 |Hx | PEA.L 0x2
00023258 4e ba ec 26 |N & | JSR 0x21e80
0002325c 50 4f |PO | ADDQ.L #0x8,A7
0002325e 4e b9 00 01 03 44 |N D | JSR BitShift(a : Quad ; howmuch : integer) : Quad
00023264 de fc 00 0c | | ADDA.W #0xc,A7
00023268 4e ba ec d2 |N | JSR 0x21f3c
0002326c 50 4f |PO | ADDQ.L #0x8,A7
0002326e 4e 5e |N^ | UNLK A6
00023270 4e 75 |Nu | RTS
00023272 ; --------------------------------------------------------------------------------------
00023272 ; OMSI PASCAL Function
00023272 ; <LVAR 0x008 4(r)>
00023272 ; --------------------------------------------------------------------------------------
00023272 4e 56 ff e0 |NV | LINK.W A6,#0xffe0
00023276 bf d5 | | CMPA.L (A5),A7
00023278 62 06 |b | BHI 0x23280
0002327a 44 fc 00 02 |D | MOVE.W #0x2,CCR
0002327e 4e 76 |Nv | TRAPV
00023280 de fc 00 20 | | ADDA.W #0x20,A7
00023284 9e fc 00 10 | | SUBA.W #0x10,A7
00023288 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
0002328c 48 78 00 01 |Hx | PEA.L 0x1
00023290 4e ba eb b2 |N | JSR 0x21e44
00023294 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7)
00023298 48 78 00 02 |Hx | PEA.L 0x2
0002329c 4e ba eb e2 |N | JSR 0x21e80
000232a0 50 4f |PO | ADDQ.L #0x8,A7
000232a2 44 97 |D | NEG.L (A7)
000232a4 4e b9 00 01 03 44 |N D | JSR BitShift(a : Quad ; howmuch : integer) : Quad
000232aa de fc 00 0c | | ADDA.W #0xc,A7
000232ae 4e ba ec 8c |N | JSR 0x21f3c
000232b2 50 4f |PO | ADDQ.L #0x8,A7
000232b4 4e 5e |N^ | UNLK A6
000232b6 4e 75 |Nu | RTS
000232b8 ; --------------------------------------------------------------------------------------
000232b8 ; OMSI PASCAL Function
000232b8 ; <LVAR 0x008 4(r)>
000232b8 ; --------------------------------------------------------------------------------------
000232b8 4e 56 ff e4 |NV | LINK.W A6,#0xffe4
000232bc bf d5 | | CMPA.L (A5),A7
000232be 62 06 |b | BHI 0x232c6
000232c0 44 fc 00 02 |D | MOVE.W #0x2,CCR
000232c4 4e 76 |Nv | TRAPV
000232c6 de fc 00 1c | | ADDA.W #0x1c,A7
000232ca 9e fc 00 10 | | SUBA.W #0x10,A7
000232ce 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
000232d2 48 78 00 01 |Hx | PEA.L 0x1
000232d6 4e ba eb 6c |N l | JSR 0x21e44
000232da 50 4f |PO | ADDQ.L #0x8,A7
000232dc 4e b9 00 01 03 38 |N 8 | JSR BitNot(a : Quad) : Quad
000232e2 50 4f |PO | ADDQ.L #0x8,A7
000232e4 4e ba ec 56 |N V | JSR 0x21f3c
000232e8 50 4f |PO | ADDQ.L #0x8,A7
000232ea 4e 5e |N^ | UNLK A6
000232ec 4e 75 |Nu | RTS
000232ee ; --------------------------------------------------------------------------------------
000232ee ; OMSI PASCAL Function
000232ee ; <LVAR 0x008 4(r)>
000232ee ; <LVAR -0x00c 4(rw)>
000232ee ; <LVAR -0x010 4(rw)>
000232ee ; <LVAR -0x014 4(rw)>
000232ee ; <LVAR -0x018 4(rw)>
000232ee ; --------------------------------------------------------------------------------------
000232ee 4e 56 ff b8 |NV | LINK.W A6,#0xffb8
000232f2 bf d5 | | CMPA.L (A5),A7
000232f4 62 06 |b | BHI 0x232fc
000232f6 44 fc 00 02 |D | MOVE.W #0x2,CCR
000232fa 4e 76 |Nv | TRAPV
000232fc de fc 00 30 | 0 | ADDA.W #0x30,A7
00023300 48 e7 03 80 |H | MOVEM.L A0+D7+D6,-(A7)
00023304 41 ee 00 08 |A | LEA.L (A6+0x8),A0
00023308 51 4f |QO | SUBQ.L #0x8,A7
0002330a 2f 10 |/ | MOVE.L (A0),-(A7)
0002330c 48 78 00 01 |Hx | PEA.L 0x1
00023310 4e ba eb 32 |N 2 | JSR 0x21e44
00023314 50 4f |PO | ADDQ.L #0x8,A7
00023316 2d 5f ff e8 |-_ | MOVE.L (A7)+,(A6-0x18)
0002331a 2d 57 ff ec |-W | MOVE.L (A7),(A6-0x14)
0002331e 59 4f |YO | SUBQ.L #0x4,A7
00023320 2f 10 |/ | MOVE.L (A0),-(A7)
00023322 48 78 00 02 |Hx | PEA.L 0x2
00023326 4e ba eb 1c |N | JSR 0x21e44
0002332a 50 4f |PO | ADDQ.L #0x8,A7
0002332c 2d 5f ff f0 |-_ | MOVE.L (A7)+,(A6-0x10)
00023330 2d 57 ff f4 |-W | MOVE.L (A7),(A6-0xc)
00023334 2f 10 |/ | MOVE.L (A0),-(A7)
00023336 48 78 00 03 |Hx | PEA.L 0x3
0002333a 4e ba eb 44 |N D | JSR 0x21e80
0002333e 50 4f |PO | ADDQ.L #0x8,A7
00023340 2e 17 |. | MOVE.L (A7),D7
00023342 2f 10 |/ | MOVE.L (A0),-(A7)
00023344 48 78 00 04 |Hx | PEA.L 0x4
00023348 4e ba eb 36 |N 6 | JSR 0x21e80
0002334c 50 4f |PO | ADDQ.L #0x8,A7
0002334e 2c 17 |, | MOVE.L (A7),D6
00023350 59 4f |YO | SUBQ.L #0x4,A7
00023352 2f 2e ff ec |/. | MOVE.L (A6-0x14),-(A7)
00023356 2f 2e ff e8 |/. | MOVE.L (A6-0x18),-(A7)
0002335a 2f 2e ff f4 |/. | MOVE.L (A6-0xc),-(A7)
0002335e 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7)
00023362 2f 07 |/ | MOVE.L D7,-(A7)
00023364 2f 06 |/ | MOVE.L D6,-(A7)
00023366 4e b9 00 01 03 48 |N H | JSR ?BitField_something_()
0002336c de fc 00 18 | | ADDA.W #0x18,A7
00023370 4e ba eb ca |N | JSR 0x21f3c
00023374 50 4f |PO | ADDQ.L #0x8,A7
00023376 4c df 01 c0 |L | MOVEM.L (A7)+,D6+D7+A0
0002337a 4e 5e |N^ | UNLK A6
0002337c 4e 75 |Nu | RTS
0002337e ; --------------------------------------------------------------------------------------
0002337e ; OMSI PASCAL Function
0002337e ; <LVAR 0x008 4(r)>
0002337e ; <LVAR -0x00c 4(rw)>
0002337e ; <LVAR -0x010 4(rw)>
0002337e ; --------------------------------------------------------------------------------------
0002337e 4e 56 ff c8 |NV | LINK.W A6,#0xffc8
00023382 bf d5 | | CMPA.L (A5),A7
00023384 62 06 |b | BHI 0x2338c
00023386 44 fc 00 02 |D | MOVE.W #0x2,CCR
0002338a 4e 76 |Nv | TRAPV
0002338c de fc 00 28 | ( | ADDA.W #0x28,A7
00023390 48 e7 03 80 |H | MOVEM.L A0+D7+D6,-(A7)
00023394 41 ee 00 08 |A | LEA.L (A6+0x8),A0
00023398 51 4f |QO | SUBQ.L #0x8,A7
0002339a 2f 10 |/ | MOVE.L (A0),-(A7)
0002339c 48 78 00 01 |Hx | PEA.L 0x1
000233a0 4e ba ea a2 |N | JSR 0x21e44
000233a4 50 4f |PO | ADDQ.L #0x8,A7
000233a6 2d 5f ff f0 |-_ | MOVE.L (A7)+,(A6-0x10)
000233aa 2d 57 ff f4 |-W | MOVE.L (A7),(A6-0xc)
000233ae 2f 10 |/ | MOVE.L (A0),-(A7)
000233b0 48 78 00 02 |Hx | PEA.L 0x2
000233b4 4e ba ea ca |N | JSR 0x21e80
000233b8 50 4f |PO | ADDQ.L #0x8,A7
000233ba 2e 17 |. | MOVE.L (A7),D7
000233bc 2f 10 |/ | MOVE.L (A0),-(A7)
000233be 48 78 00 03 |Hx | PEA.L 0x3
000233c2 4e ba ea bc |N | JSR 0x21e80
000233c6 50 4f |PO | ADDQ.L #0x8,A7
000233c8 2c 17 |, | MOVE.L (A7),D6
000233ca 59 4f |YO | SUBQ.L #0x4,A7
000233cc 2f 2e ff f4 |/. | MOVE.L (A6-0xc),-(A7)
000233d0 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7)
000233d4 2f 07 |/ | MOVE.L D7,-(A7)
000233d6 2f 06 |/ | MOVE.L D6,-(A7)
000233d8 4e b9 00 01 03 4c |N L | JSR FSCALL_1034c
000233de de fc 00 10 | | ADDA.W #0x10,A7
000233e2 4e ba eb 58 |N X | JSR 0x21f3c
000233e6 50 4f |PO | ADDQ.L #0x8,A7
000233e8 4c df 01 c0 |L | MOVEM.L (A7)+,D6+D7+A0
000233ec 4e 5e |N^ | UNLK A6
000233ee 4e 75 |Nu | RTS
000233f0 ; --------------------------------------------------------------------------------------
000233f0 ; OMSI PASCAL Function
000233f0 ; <LVAR 0x008 4(r)>
000233f0 ; --------------------------------------------------------------------------------------
000233f0 4e 56 ff d8 |NV | LINK.W A6,#0xffd8
000233f4 bf d5 | | CMPA.L (A5),A7
000233f6 62 06 |b | BHI 0x233fe
000233f8 44 fc 00 02 |D | MOVE.W #0x2,CCR
000233fc 4e 76 |Nv | TRAPV
000233fe de fc 00 20 | | ADDA.W #0x20,A7
00023402 48 e7 01 08 |H | MOVEM.L A4+D7,-(A7)
00023406 59 4f |YO | SUBQ.L #0x4,A7
00023408 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
0002340c 4e ba e0 e8 |N | JSR 0x214f6
00023410 58 4f |XO | ADDQ.L #0x4,A7
00023412 7e 01 |~ | MOVEQ.L #0x01,D7
00023414 be 97 | | CMP.L (A7),D7
00023416 6e 26 |n& | BGT 0x2343e
00023418 59 4f |YO | SUBQ.L #0x4,A7
0002341a 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
0002341e 2f 07 |/ | MOVE.L D7,-(A7)
00023420 4e ba e9 f0 |N | JSR 0x21e12
00023424 50 4f |PO | ADDQ.L #0x8,A7
00023426 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String)
0002342c 54 4f |TO | ADDQ.L #0x2,A7
0002342e 1e bc 00 20 | | MOVE.B #0x20,(A7)
00023432 4e b9 00 01 03 d0 |N | JSR WriteConsoleChar(chr : char)
00023438 54 4f |TO | ADDQ.L #0x2,A7
0002343a 52 87 |R | ADDQ.L #0x1,D7
0002343c 68 d6 |h | BVC 0x23414
0002343e 48 78 00 01 |Hx | PEA.L 0x1
00023442 4e b9 00 01 03 e4 |N | JSR AskConsoleString(prompt : String) : String
00023448 58 4f |XO | ADDQ.L #0x4,A7
0002344a 28 5f |(_ | MOVEA.L (A7)+,A4
0002344c 2f 0c |/ | MOVE.L A4,-(A7)
0002344e 4e ba de f2 |N | JSR 0x21342
00023452 2e 8c |. | MOVE.L A4,(A7)
00023454 4e ba ea 5e |N ^ | JSR 0x21eb4
00023458 58 4f |XO | ADDQ.L #0x4,A7
0002345a 4c df 10 80 |L | MOVEM.L (A7)+,D7+A4
0002345e 4e 5e |N^ | UNLK A6
00023460 4e 75 |Nu | RTS
00023462 ; --------------------------------------------------------------------------------------
00023462 ; OMSI PASCAL Function
00023462 ; <LVAR 0x008 4(r)>
00023462 ; --------------------------------------------------------------------------------------
00023462 4e 56 ff c8 |NV | LINK.W A6,#0xffc8
00023466 bf d5 | | CMPA.L (A5),A7
00023468 62 06 |b | BHI 0x23470
0002346a 44 fc 00 02 |D | MOVE.W #0x2,CCR
0002346e 4e 76 |Nv | TRAPV
00023470 de fc 00 2c | , | ADDA.W #0x2c,A7
00023474 48 e7 83 88 |H | MOVEM.L A4+A0+D7+D6+D0,-(A7)
00023478 41 ee 00 08 |A | LEA.L (A6+0x8),A0
0002347c 70 0c |p | MOVEQ.L #0x0c,D0
0002347e 59 4f |YO | SUBQ.L #0x4,A7
00023480 2f 10 |/ | MOVE.L (A0),-(A7)
00023482 48 78 00 01 |Hx | PEA.L 0x1
00023486 4e ba e9 8a |N | JSR 0x21e12
0002348a 50 4f |PO | ADDQ.L #0x8,A7
0002348c 28 5f |(_ | MOVEA.L (A7)+,A4
0002348e 9e c0 | | SUBA.W D0,A7
00023490 2f 10 |/ | MOVE.L (A0),-(A7)
00023492 48 78 00 02 |Hx | PEA.L 0x2
00023496 4e ba e9 ac |N | JSR 0x21e44
0002349a 50 4f |PO | ADDQ.L #0x8,A7
0002349c 4e b9 00 01 03 50 |N P | JSR Quad2Long(a : Quad) : Long
000234a2 50 4f |PO | ADDQ.L #0x8,A7
000234a4 2e 17 |. | MOVE.L (A7),D7
000234a6 51 4f |QO | SUBQ.L #0x8,A7
000234a8 2f 10 |/ | MOVE.L (A0),-(A7)
000234aa 48 78 00 03 |Hx | PEA.L 0x3
000234ae 4e ba e9 94 |N | JSR 0x21e44
000234b2 50 4f |PO | ADDQ.L #0x8,A7
000234b4 4e b9 00 01 03 50 |N P | JSR Quad2Long(a : Quad) : Long
000234ba 50 4f |PO | ADDQ.L #0x8,A7
000234bc 2c 17 |, | MOVE.L (A7),D6
000234be 51 4f |QO | SUBQ.L #0x8,A7
000234c0 2f 0c |/ | MOVE.L A4,-(A7)
000234c2 2f 07 |/ | MOVE.L D7,-(A7)
000234c4 4e b9 00 01 03 60 |N ` | JSR ?StringToInt64()
000234ca 58 4f |XO | ADDQ.L #0x4,A7
000234cc 2e 86 |. | MOVE.L D6,(A7)
000234ce 4e b9 00 01 03 5c |N \ | JSR Quad2String(a : Quad; radix : Long ) : String
000234d4 de c0 | | ADDA.W D0,A7
000234d6 4e ba e9 dc |N | JSR 0x21eb4
000234da 58 4f |XO | ADDQ.L #0x4,A7
000234dc 4c df 11 c1 |L | MOVEM.L (A7)+,D0+D6+D7+A0+A4
000234e0 4e 5e |N^ | UNLK A6
000234e2 4e 75 |Nu | RTS
000234e4 ; --------------------------------------------------------------------------------------
000234e4 ; OMSI PASCAL Function
000234e4 ; <LVAR 0x008 4(r)>
000234e4 ; <LVAR -0x00a 2(r)>
000234e4 ; <LVAR -0x00c 4(rw)>
000234e4 ; <LVAR -0x010 4(rw)>
000234e4 ; --------------------------------------------------------------------------------------
000234e4 4e 56 ff bc |NV | LINK.W A6,#0xffbc
000234e8 bf d5 | | CMPA.L (A5),A7
000234ea 62 06 |b | BHI 0x234f2
000234ec 44 fc 00 02 |D | MOVE.W #0x2,CCR
000234f0 4e 76 |Nv | TRAPV
000234f2 de fc 00 34 | 4 | ADDA.W #0x34,A7
000234f6 48 e7 c3 c0 |H | MOVEM.L A1+A0+D7+D6+D1+D0,-(A7)
000234fa 41 ee ff f0 |A | LEA.L (A6-0x10),A0
000234fe 43 ee ff f4 |C | LEA.L (A6-0xc),A1
00023502 51 4f |QO | SUBQ.L #0x8,A7
00023504 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00023508 48 78 00 01 |Hx | PEA.L 0x1
0002350c 4e ba e9 36 |N 6 | JSR 0x21e44
00023510 50 4f |PO | ADDQ.L #0x8,A7
00023512 20 9f | | MOVE.L (A7)+,(A0)
00023514 22 9f |" | MOVE.L (A7)+,(A1)
00023516 7e 00 |~ | MOVEQ.L #0x00,D7
00023518 7c 00 || | MOVEQ.L #0x00,D6
0002351a 30 2e ff f6 |0. | MOVE.W (A6-0xa),D0
0002351e 02 40 00 01 | @ | ANDI.W #0x0001,D0
00023522 42 81 |B | CLR.L D1
00023524 32 00 |2 | MOVE.W D0,D1
00023526 de 81 | | ADD.L D1,D7
00023528 51 4f |QO | SUBQ.L #0x8,A7
0002352a 2f 11 |/ | MOVE.L (A1),-(A7)
0002352c 2f 10 |/ | MOVE.L (A0),-(A7)
0002352e 48 78 ff ff |Hx | PEA.L 0xffffffff
00023532 4e b9 00 01 03 44 |N D | JSR BitShift(a : Quad ; howmuch : integer) : Quad
00023538 de fc 00 0c | | ADDA.W #0xc,A7
0002353c 20 9f | | MOVE.L (A7)+,(A0)
0002353e 22 9f |" | MOVE.L (A7)+,(A1)
00023540 52 86 |R | ADDQ.L #0x1,D6
00023542 0c 86 00 00 00 3f | ? | CMPI.L #0x0000003f,D6
00023548 6f d0 |o | BLE 0x2351a
0002354a 51 4f |QO | SUBQ.L #0x8,A7
0002354c 2f 07 |/ | MOVE.L D7,-(A7)
0002354e 4e b9 00 01 03 54 |N T | JSR Long2Quad(a : Long) : Quad
00023554 58 4f |XO | ADDQ.L #0x4,A7
00023556 4e ba e9 e4 |N | JSR 0x21f3c
0002355a 50 4f |PO | ADDQ.L #0x8,A7
0002355c 4c df 03 c3 |L | MOVEM.L (A7)+,D0+D1+D6+D7+A0+A1
00023560 4e 5e |N^ | UNLK A6
00023562 4e 75 |Nu | RTS
00023564 ; --------------------------------------------------------------------------------------
00023564 ; OMSI PASCAL Function
00023564 ; <LVAR 0x008 4(r)>
00023564 ; <LVAR -0x004 @ 1(r)>
00023564 ; --------------------------------------------------------------------------------------
00023564 4e 56 ff b8 |NV | LINK.W A6,#0xffb8
00023568 bf d5 | | CMPA.L (A5),A7
0002356a 62 06 |b | BHI 0x23572
0002356c 44 fc 00 02 |D | MOVE.W #0x2,CCR
00023570 4e 76 |Nv | TRAPV
00023572 de fc 00 44 | D | ADDA.W #0x44,A7
00023576 48 e7 e0 e0 |H | MOVEM.L A2+A1+A0+D2+D1+D0,-(A7)
0002357a 45 f9 00 02 7c 2e |E |. | LEA.L 0x27c2e,A2
00023580 72 01 |r | MOVEQ.L #0x01,D1
00023582 74 00 |t | MOVEQ.L #0x00,D2
00023584 4a 12 |J | TST.B (A2)
00023586 66 32 |f2 | BNE 0x235ba
00023588 9e fc 00 1c | | SUBA.W #0x1c,A7
0002358c 20 4f | O | MOVEA.L A7,A0
0002358e 43 fa d7 b4 |C | LEA.L 0x20d44,A1
00023592 70 1a |p | MOVEQ.L #0x1a,D0
00023594 10 d9 | | MOVE.B (A1)+,(A0)+
00023596 51 c8 ff fc |Q | DBF D0,0x23594
0002359a 59 4f |YO | SUBQ.L #0x4,A7
0002359c 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000235a0 3f 01 |? | MOVE.W D1,-(A7)
000235a2 3f 3c 00 1b |?< | MOVE.W #0x1b,-(A7)
000235a6 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
000235ac 50 4f |PO | ADDQ.L #0x8,A7
000235ae 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
000235b4 de fc 00 20 | | ADDA.W #0x20,A7
000235b8 14 81 | | MOVE.B D1,(A2)
000235ba 5d 4f |]O | SUBQ.L #0x6,A7
000235bc 4e b9 00 01 03 f8 |N | JSR GetConsoleConfig() : Long
000235c2 20 1f | | MOVE.L (A7)+,D0
000235c4 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0
000235ca 63 02 |c | BLS 0x235ce
000235cc 4e 4f |NO | TRAP #15
000235ce 3e 80 |> | MOVE.W D0,(A7)
000235d0 48 6e ff fc |Hn | PEA.L (A6-0x4)
000235d4 4e b9 00 01 02 12 |N | JSR KC09_PortStatus(Port : Word; VAR b: Byte)
000235da 5c 4f |\O | ADDQ.L #0x6,A7
000235dc 10 2e ff fc | . | MOVE.B (A6-0x4),D0
000235e0 b0 01 | | CMP.B D1,D0
000235e2 67 16 |g | BEQ 0x235fa
000235e4 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
000235e8 4e ba da be |N | JSR 0x210a8
000235ec 58 4f |XO | ADDQ.L #0x4,A7
000235ee 2e 6d 00 08 |.m | MOVEA.L (A5+0x8),A7
000235f2 3c 42 |<B | MOVEA.W D2,A6
000235f4 4e f9 00 02 49 8c |N I | JMP 0x2498c
000235fa 55 4f |UO | SUBQ.L #0x2,A7
000235fc 4e b9 00 01 03 d4 |N | JSR ReadChar() : Byte
00023602 10 1f | | MOVE.B (A7)+,D0
00023604 0c 00 00 07 | | CMPI.B #0x07,D0
00023608 67 16 |g | BEQ 0x23620
0002360a 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
0002360e 4e ba da 98 |N | JSR 0x210a8
00023612 58 4f |XO | ADDQ.L #0x4,A7
00023614 2e 6d 00 08 |.m | MOVEA.L (A5+0x8),A7
00023618 3c 42 |<B | MOVEA.W D2,A6
0002361a 4e f9 00 02 49 8c |N I | JMP 0x2498c
00023620 4c df 07 07 |L | MOVEM.L (A7)+,D0+D1+D2+A0+A1+A2
00023624 4e 5e |N^ | UNLK A6
00023626 4e 75 |Nu | RTS
00023628 ; --------------------------------------------------------------------------------------
00023628 ; OMSI PASCAL Function
00023628 ; --------------------------------------------------------------------------------------
00023628 4e 56 ff f8 |NV | LINK.W A6,#0xfff8
0002362c bf d5 | | CMPA.L (A5),A7
0002362e 62 06 |b | BHI 0x23636
00023630 44 fc 00 02 |D | MOVE.W #0x2,CCR
00023634 4e 76 |Nv | TRAPV
00023636 de fc 00 08 | | ADDA.W #0x8,A7
0002363a 48 78 00 c8 |Hx | PEA.L 0xc8
0002363e 4e ba e9 30 |N 0 | JSR 0x21f70
00023642 58 4f |XO | ADDQ.L #0x4,A7
00023644 4e 5e |N^ | UNLK A6
00023646 4e 75 |Nu | RTS
00023648 ; --------------------------------------------------------------------------------------
00023648 ; OMSI PASCAL Function
00023648 ; <LVAR 0x008 4(r)>
00023648 ; <LVAR -0x00c @ 4(r)>
00023648 ; --------------------------------------------------------------------------------------
00023648 4e 56 ff ac |NV | LINK.W A6,#0xffac
0002364c bf d5 | | CMPA.L (A5),A7
0002364e 62 06 |b | BHI 0x23656
00023650 44 fc 00 02 |D | MOVE.W #0x2,CCR
00023654 4e 76 |Nv | TRAPV
00023656 de fc 00 48 | H | ADDA.W #0x48,A7
0002365a 48 e7 83 c0 |H | MOVEM.L A1+A0+D7+D6+D0,-(A7)
0002365e 43 ee ff f4 |C | LEA.L (A6-0xc),A1
00023662 48 51 |HQ | PEA.L (A1)
00023664 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String)
0002366a 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
0002366e 4e ba de 86 |N | JSR 0x214f6
00023672 58 4f |XO | ADDQ.L #0x4,A7
00023674 7e 01 |~ | MOVEQ.L #0x01,D7
00023676 be 97 | | CMP.L (A7),D7
00023678 6e 6a |nj | BGT 0x236e4
0002367a 59 4f |YO | SUBQ.L #0x4,A7
0002367c 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00023680 2f 07 |/ | MOVE.L D7,-(A7)
00023682 4e ba e7 fc |N | JSR 0x21e80
00023686 50 4f |PO | ADDQ.L #0x8,A7
00023688 2c 1f |, | MOVE.L (A7)+,D6
0002368a 6d 20 |m | BLT 0x236ac
0002368c 0c 86 00 00 00 ff | | CMPI.L #0x000000ff,D6
00023692 6e 18 |n | BGT 0x236ac
00023694 2f 11 |/ | MOVE.L (A1),-(A7)
00023696 0c 86 00 00 00 ff | | CMPI.L #0x000000ff,D6
0002369c 63 02 |c | BLS 0x236a0
0002369e 4e 4f |NO | TRAP #15
000236a0 1f 06 | | MOVE.B D6,-(A7)
000236a2 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char)
000236a8 5c 4f |\O | ADDQ.L #0x6,A7
000236aa 60 34 |`4 | BRA 0x236e0
000236ac 48 51 |HQ | PEA.L (A1)
000236ae 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String)
000236b4 58 4f |XO | ADDQ.L #0x4,A7
000236b6 41 fa d6 c4 |A | LEA.L 0x20d7c,A0
000236ba 70 06 |p | MOVEQ.L #0x06,D0
000236bc 2f 20 |/ | MOVE.L -(A0),-(A7)
000236be 51 c8 ff fc |Q | DBF D0,0x236bc
000236c2 59 4f |YO | SUBQ.L #0x4,A7
000236c4 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000236c8 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
000236cc 3f 3c 00 1c |?< | MOVE.W #0x1c,-(A7)
000236d0 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
000236d6 50 4f |PO | ADDQ.L #0x8,A7
000236d8 4e ba da 10 |N | JSR 0x210ea
000236dc de fc 00 20 | | ADDA.W #0x20,A7
000236e0 52 87 |R | ADDQ.L #0x1,D7
000236e2 68 92 |h | BVC 0x23676
000236e4 2e 91 |. | MOVE.L (A1),(A7)
000236e6 4e ba e7 cc |N | JSR 0x21eb4
000236ea 58 4f |XO | ADDQ.L #0x4,A7
000236ec 4c df 03 c1 |L | MOVEM.L (A7)+,D0+D6+D7+A0+A1
000236f0 4e 5e |N^ | UNLK A6
000236f2 4e 75 |Nu | RTS
000236f4 ; --------------------------------------------------------------------------------------
000236f4 ; OMSI PASCAL Function
000236f4 ; <LVAR 0x00c 1(rw)>
000236f4 ; <LVAR 0x008 4(r)>
000236f4 ; --------------------------------------------------------------------------------------
000236f4 4e 56 ff c0 |NV | LINK.W A6,#0xffc0
000236f8 bf d5 | | CMPA.L (A5),A7
000236fa 62 06 |b | BHI 0x23702
000236fc 44 fc 00 02 |D | MOVE.W #0x2,CCR
00023700 4e 76 |Nv | TRAPV
00023702 de fc 00 34 | 4 | ADDA.W #0x34,A7
00023706 48 e7 e7 c0 |H | MOVEM.L A1+A0+D7+D6+D5+D2+D1+D0,-(A7)
0002370a 42 2e 00 0c |B. | CLR.B (A6+0xc)
0002370e 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0
00023712 2f 08 |/ | MOVE.L A0,-(A7)
00023714 70 00 |p | MOVEQ.L #0x00,D0
00023716 52 40 |R@ | ADDQ.W #0x1,D0
00023718 1c 00 | | MOVE.B D0,D6
0002371a 0c 06 00 2b | + | CMPI.B #0x2b,D6
0002371e 6e 00 00 82 |n | BGT 0x237a2
00023722 41 fa d8 b2 |A | LEA.L 0x20fd6,A0
00023726 10 06 | | MOVE.B D6,D0
00023728 48 80 |H | EXTB.W D0
0002372a 48 c0 |H | EXTW.L D0
0002372c e2 98 | | ROR.L #0x1,D0
0002372e d0 c0 | | ADDA.W D0,A0
00023730 48 40 |H@ | SWAP.W D0
00023732 e7 58 | X | ROL.W #0x3,D0
00023734 42 81 |B | CLR.L D1
00023736 12 10 | | MOVE.B (A0),D1
00023738 e1 29 | ) | LSL.B D0,D1
0002373a e8 09 | | LSR.B #0x4,D1
0002373c 2a 01 |* | MOVE.L D1,D5
0002373e 20 57 | W | MOVEA.L (A7),A0
00023740 30 10 |0 | MOVE.W (A0),D0
00023742 48 c0 |H | EXTW.L D0
00023744 ba 80 | | CMP.L D0,D5
00023746 66 54 |fT | BNE 0x2379c
00023748 2f 05 |/ | MOVE.L D5,-(A7)
0002374a 7e 01 |~ | MOVEQ.L #0x01,D7
0002374c be 97 | | CMP.L (A7),D7
0002374e 6e 42 |nB | BGT 0x23792
00023750 10 06 | | MOVE.B D6,D0
00023752 48 80 |H | EXTB.W D0
00023754 c1 fc 00 0a | | MULS.W #0xa,D0
00023758 22 07 |" | MOVE.L D7,D1
0002375a 53 81 |S | SUBQ.L #0x1,D1
0002375c 0c 81 00 00 00 7d | } | CMPI.L #0x0000007d,D1
00023762 63 02 |c | BLS 0x23766
00023764 4e 4f |NO | TRAP #15
00023766 20 6f 00 04 | o | MOVEA.L (A7+0x4),A0
0002376a 43 fa d6 b2 |C | LEA.L COMMAND_TABLE_20e1e,A1
0002376e 24 07 |$ | MOVE.L D7,D2
00023770 53 82 |S | SUBQ.L #0x1,D2
00023772 0c 82 00 00 00 09 | | CMPI.L #0x00000009,D2
00023778 63 02 |c | BLS 0x2377c
0002377a 4e 4f |NO | TRAP #15
0002377c 43 f1 00 00 |C | LEA.L (A1+D0.W),A1
00023780 10 30 18 02 | 0 | MOVE.B (A0+D1.L+#0x2),D0
00023784 b0 31 28 00 | 1( | CMP.B (A1+D2.L),D0
00023788 67 04 |g | BEQ 0x2378e
0002378a 58 4f |XO | ADDQ.L #0x4,A7
0002378c 60 0e |` | BRA 0x2379c
0002378e 52 87 |R | ADDQ.L #0x1,D7
00023790 68 ba |h | BVC 0x2374c
00023792 58 4f |XO | ADDQ.L #0x4,A7
00023794 1d 46 00 0c | F | MOVE.B D6,(A6+0xc)
00023798 58 4f |XO | ADDQ.L #0x4,A7
0002379a 60 08 |` | BRA 0x237a4
0002379c 52 06 |R | ADDQ.B #0x1,D6
0002379e 68 00 ff 7a |h z | BVC 0x2371a
000237a2 58 4f |XO | ADDQ.L #0x4,A7
000237a4 4c df 03 e7 |L | MOVEM.L (A7)+,D0+D1+D2+D5+D6+D7+A0+A1
000237a8 4e 5e |N^ | UNLK A6
000237aa 4e 75 |Nu | RTS
000237ac ; --------------------------------------------------------------------------------------
000237ac ; OMSI PASCAL Function
000237ac ; <LVAR 0x00c 4(r)>
000237ac ; <LVAR 0x008 4(r)>
000237ac ; <LVAR -0x002 @ 1(r)>
000237ac ; <LVAR -0x006 @ 4(w)>
000237ac ; <LVAR -0x008 @ 1(r)>
000237ac ; <LVAR -0x00c @ 4(r)>
000237ac ; <LVAR -0x010 @ 4(rw)>
000237ac ; --------------------------------------------------------------------------------------
000237ac 4e 56 ff a6 |NV | LINK.W A6,#0xffa6
000237b0 bf d5 | | CMPA.L (A5),A7
000237b2 62 06 |b | BHI 0x237ba
000237b4 44 fc 00 02 |D | MOVE.W #0x2,CCR
000237b8 4e 76 |Nv | TRAPV
000237ba de fc 00 4a | J | ADDA.W #0x4a,A7
000237be 48 e7 c0 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D1+D0,-(A7)
000237c2 45 ee ff f0 |E | LEA.L (A6-0x10),A2
000237c6 47 ee ff fe |G | LEA.L (A6-0x2),A3
000237ca 49 ee ff f4 |I | LEA.L (A6-0xc),A4
000237ce 72 01 |r | MOVEQ.L #0x01,D1
000237d0 59 4f |YO | SUBQ.L #0x4,A7
000237d2 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7)
000237d6 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String
000237dc 58 4f |XO | ADDQ.L #0x4,A7
000237de 24 9f |$ | MOVE.L (A7)+,(A2)
000237e0 2f 12 |/ | MOVE.L (A2),-(A7)
000237e2 1f 3c 00 2e | < . | MOVE.B #0x2e,-(A7)
000237e6 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char)
000237ec 5c 4f |\O | ADDQ.L #0x6,A7
000237ee 41 f9 00 02 7c 0e |A | | LEA.L 0x27c0e,A0
000237f4 70 04 |p | MOVEQ.L #0x04,D0
000237f6 3f 20 |? | MOVE.W -(A0),-(A7)
000237f8 51 c8 ff fc |Q | DBF D0,0x237f6
000237fc 59 4f |YO | SUBQ.L #0x4,A7
000237fe 2f 12 |/ | MOVE.L (A2),-(A7)
00023800 59 4f |YO | SUBQ.L #0x4,A7
00023802 48 6f 00 0c |Ho | PEA.L (A7+0xc)
00023806 3f 01 |? | MOVE.W D1,-(A7)
00023808 3f 3c 00 0a |?< | MOVE.W #0xa,-(A7)
0002380c 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00023812 50 4f |PO | ADDQ.L #0x8,A7
00023814 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
0002381a 50 4f |PO | ADDQ.L #0x8,A7
0002381c 24 9f |$ | MOVE.L (A7)+,(A2)
0002381e 5c 4f |\O | ADDQ.L #0x6,A7
00023820 2e 92 |. | MOVE.L (A2),(A7)
00023822 42 27 |B' | CLR.B -(A7)
00023824 1f 01 | | MOVE.B D1,-(A7)
00023826 48 78 00 00 |Hx | PEA.L 0x0
0002382a 48 53 |HS | PEA.L (A3)
0002382c 48 54 |HT | PEA.L (A4)
0002382e 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
00023834 de fc 00 14 | | ADDA.W #0x14,A7
00023838 4a 13 |J | TST.B (A3)
0002383a 67 4a |gJ | BEQ 0x23886
0002383c 48 52 |HR | PEA.L (A2)
0002383e 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String)
00023844 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7)
00023848 4e ba d8 5e |N ^ | JSR 0x210a8
0002384c 9e fc 00 16 | | SUBA.W #0x16,A7
00023850 20 4f | O | MOVEA.L A7,A0
00023852 43 fa d5 28 |C ( | LEA.L 0x20d7c,A1
00023856 70 18 |p | MOVEQ.L #0x18,D0
00023858 10 d9 | | MOVE.B (A1)+,(A0)+
0002385a 51 c8 ff fc |Q | DBF D0,0x23858
0002385e 51 4f |QO | SUBQ.L #0x8,A7
00023860 48 6f 00 08 |Ho | PEA.L (A7+0x8)
00023864 3f 01 |? | MOVE.W D1,-(A7)
00023866 3f 3c 00 19 |?< | MOVE.W #0x19,-(A7)
0002386a 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00023870 58 4f |XO | ADDQ.L #0x4,A7
00023872 2e ae 00 0c |. | MOVE.L (A6+0xc),(A7)
00023876 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
0002387c 50 4f |PO | ADDQ.L #0x8,A7
0002387e 4e ba d8 6a |N j | JSR 0x210ea
00023882 de fc 00 1e | | ADDA.W #0x1e,A7
00023886 2d 79 00 02 7b fc ff fa |-y { | MOVE.L 0x27bfc,(A6-0x6)
0002388e 2f 14 |/ | MOVE.L (A4),-(A7)
00023890 48 52 |HR | PEA.L (A2)
00023892 48 6e ff f8 |Hn | PEA.L (A6-0x8)
00023896 4e b9 00 01 04 3c |N < | JSR FileReadLine(file : File; VAR a : String; VAR b : Byte)
0002389c de fc 00 0c | | ADDA.W #0xc,A7
000238a0 20 52 | R | MOVEA.L (A2),A0
000238a2 4a 50 |JP | TST.W (A0)
000238a4 67 14 |g | BEQ 0x238ba
000238a6 2f 12 |/ | MOVE.L (A2),-(A7)
000238a8 4e ba da 98 |N | JSR 0x21342
000238ac 58 4f |XO | ADDQ.L #0x4,A7
000238ae 48 6e ff fa |Hn | PEA.L (A6-0x6)
000238b2 2f 12 |/ | MOVE.L (A2),-(A7)
000238b4 4e ba de 12 |N | JSR 0x216c8
000238b8 50 4f |PO | ADDQ.L #0x8,A7
000238ba 4a 2e ff f8 |J. | TST.B (A6-0x8)
000238be 67 ce |g | BEQ 0x2388e
000238c0 42 27 |B' | CLR.B -(A7)
000238c2 1f 01 | | MOVE.B D1,-(A7)
000238c4 48 78 00 01 |Hx | PEA.L 0x1
000238c8 48 53 |HS | PEA.L (A3)
000238ca 48 54 |HT | PEA.L (A4)
000238cc 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File)
000238d2 de fc 00 10 | | ADDA.W #0x10,A7
000238d6 48 52 |HR | PEA.L (A2)
000238d8 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String)
000238de 58 4f |XO | ADDQ.L #0x4,A7
000238e0 4c df 1f 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2+A3+A4
000238e4 4e 5e |N^ | UNLK A6
000238e6 4e 75 |Nu | RTS
000238e8 ; --------------------------------------------------------------------------------------
000238e8 ; OMSI PASCAL Function
000238e8 ; <LVAR 0x014 1(w)>
000238e8 ; <LVAR 0x00c 4(r)>
000238e8 ; <LVAR 0x008 4(r)>
000238e8 ; --------------------------------------------------------------------------------------
000238e8 4e 56 ff f4 |NV | LINK.W A6,#0xfff4
000238ec bf d5 | | CMPA.L (A5),A7
000238ee 62 06 |b | BHI 0x238f6
000238f0 44 fc 00 02 |D | MOVE.W #0x2,CCR
000238f4 4e 76 |Nv | TRAPV
000238f6 de fc 00 0c | | ADDA.W #0xc,A7
000238fa 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7)
000238fe 20 2e 00 0c | . | MOVE.L (A6+0xc),D0
00023902 d0 ae 00 08 | | ADD.L (A6+0x8),D0
00023906 53 80 |S | SUBQ.L #0x1,D0
00023908 53 80 |S | SUBQ.L #0x1,D0
0002390a 0c 80 00 00 0f ff | | CMPI.L #0x00000fff,D0
00023910 63 02 |c | BLS 0x23914
00023912 4e 4f |NO | TRAP #15
00023914 41 f9 00 02 6b f4 |A k | LEA.L 0x26bf4,A0
0002391a 1d 70 08 08 00 14 | p | MOVE.B (A0+D0.L+#0x8),(A6+0x14)
00023920 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0
00023924 4e 5e |N^ | UNLK A6
00023926 4e 75 |Nu | RTS
00023928 ; --------------------------------------------------------------------------------------
00023928 ; OMSI PASCAL Function
00023928 ; <LVAR 0x010 4(w)>
00023928 ; <LVAR 0x00c 4(r)>
00023928 ; <LVAR 0x008 4(r)>
00023928 ; <LVAR -0x004 @ 1(r)>
00023928 ; <LVAR -0x008 @ 4(r)>
00023928 ; --------------------------------------------------------------------------------------
00023928 4e 56 ff c4 |NV | LINK.W A6,#0xffc4
0002392c bf d5 | | CMPA.L (A5),A7
0002392e 62 06 |b | BHI 0x23936
00023930 44 fc 00 02 |D | MOVE.W #0x2,CCR
00023934 4e 76 |Nv | TRAPV
00023936 de fc 00 34 | 4 | ADDA.W #0x34,A7
0002393a 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7)
0002393e 59 4f |YO | SUBQ.L #0x4,A7
00023940 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7)
00023944 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00023948 4e ba e4 4c |N L | JSR 0x21d96
0002394c 50 4f |PO | ADDQ.L #0x8,A7
0002394e 48 6e ff fc |Hn | PEA.L (A6-0x4)
00023952 48 6e ff f8 |Hn | PEA.L (A6-0x8)
00023956 4e b9 00 01 02 ec |N | JSR String2Long(src : String; VAR status : Bool; VAR retval : Long)
0002395c de fc 00 0c | | ADDA.W #0xc,A7
00023960 4a 2e ff fc |J. | TST.B (A6-0x4)
00023964 66 30 |f0 | BNE 0x23996
00023966 9e fc 00 18 | | SUBA.W #0x18,A7
0002396a 20 4f | O | MOVEA.L A7,A0
0002396c 43 fa d4 28 |C ( | LEA.L 0x20d96,A1
00023970 70 16 |p | MOVEQ.L #0x16,D0
00023972 10 d9 | | MOVE.B (A1)+,(A0)+
00023974 51 c8 ff fc |Q | DBF D0,0x23972
00023978 59 4f |YO | SUBQ.L #0x4,A7
0002397a 48 6f 00 04 |Ho | PEA.L (A7+0x4)
0002397e 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
00023982 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7)
00023986 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
0002398c 50 4f |PO | ADDQ.L #0x8,A7
0002398e 4e ba d7 5a |N Z | JSR 0x210ea
00023992 de fc 00 1c | | ADDA.W #0x1c,A7
00023996 2d 6e ff f8 00 10 |-n | MOVE.L (A6-0x8),(A6+0x10)
0002399c 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1
000239a0 4e 5e |N^ | UNLK A6
000239a2 4e 75 |Nu | RTS
000239a4 ; --------------------------------------------------------------------------------------
000239a4 ; OMSI PASCAL Function
000239a4 ; <LVAR 0x014 4(r)>
000239a4 ; <LVAR 0x010 4(r)>
000239a4 ; <LVAR 0x00c 4(r)>
000239a4 ; <LVAR 0x008 4(r)>
000239a4 ; <LVAR -0x00c 4(rw)>
000239a4 ; <LVAR -0x010 4(rw)>
000239a4 ; <LVAR -0x014 4(rw)>
000239a4 ; <LVAR -0x018 4(w)>
000239a4 ; <LVAR -0x020 4(rw)>
000239a4 ; --------------------------------------------------------------------------------------
000239a4 4e 56 ff 8e |NV | LINK.W A6,#0xff8e
000239a8 bf d5 | | CMPA.L (A5),A7
000239aa 62 06 |b | BHI 0x239b2
000239ac 44 fc 00 02 |D | MOVE.W #0x2,CCR
000239b0 4e 76 |Nv | TRAPV
000239b2 de fc 00 4e | N | ADDA.W #0x4e,A7
000239b6 48 e7 c7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D1+D0,-(A7)
000239ba 43 ee ff e0 |C | LEA.L (A6-0x20),A1
000239be 45 ee ff f0 |E | LEA.L (A6-0x10),A2
000239c2 47 ee ff f4 |G | LEA.L (A6-0xc),A3
000239c6 49 ee ff ec |I | LEA.L (A6-0x14),A4
000239ca 7e 00 |~ | MOVEQ.L #0x00,D7
000239cc 22 ae 00 14 |" | MOVE.L (A6+0x14),(A1)
000239d0 20 39 00 02 7b fc | 9 { | MOVE.L 0x27bfc,D0
000239d6 90 ae 00 14 | | SUB.L (A6+0x14),D0
000239da 28 80 |( | MOVE.L D0,(A4)
000239dc 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7)
000239e0 2a 2e 00 10 |*. | MOVE.L (A6+0x10),D5
000239e4 ba 97 | | CMP.L (A7),D5
000239e6 6e 2c |n, | BGT 0x23a14
000239e8 51 4f |QO | SUBQ.L #0x8,A7
000239ea 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
000239ee 2f 05 |/ | MOVE.L D5,-(A7)
000239f0 4e ba e3 42 |N B | JSR 0x21d34
000239f4 50 4f |PO | ADDQ.L #0x8,A7
000239f6 24 9f |$ | MOVE.L (A7)+,(A2)
000239f8 26 97 |& | MOVE.L (A7),(A3)
000239fa 2f 13 |/ | MOVE.L (A3),-(A7)
000239fc 2f 12 |/ | MOVE.L (A2),-(A7)
000239fe 4e ba e2 fc |N | JSR 0x21cfc
00023a02 50 4f |PO | ADDQ.L #0x8,A7
00023a04 2c 1f |, | MOVE.L (A7)+,D6
00023a06 de 86 | | ADD.L D6,D7
00023a08 ba ae 00 0c | | CMP.L (A6+0xc),D5
00023a0c 6c 02 |l | BGE 0x23a10
00023a0e 52 87 |R | ADDQ.L #0x1,D7
00023a10 52 85 |R | ADDQ.L #0x1,D5
00023a12 68 d0 |h | BVC 0x239e4
00023a14 58 4f |XO | ADDQ.L #0x4,A7
00023a16 20 11 | | MOVE.L (A1),D0
00023a18 d0 94 | | ADD.L (A4),D0
00023a1a 2d 40 ff e8 |-@ | MOVE.L D0,(A6-0x18)
00023a1e be 94 | | CMP.L (A4),D7
00023a20 67 0c |g | BEQ 0x23a2e
00023a22 2f 00 |/ | MOVE.L D0,-(A7)
00023a24 2f 14 |/ | MOVE.L (A4),-(A7)
00023a26 9f 97 | | SUB.L D7,(A7)
00023a28 4e ba dc 14 |N | JSR 0x2163e
00023a2c 50 4f |PO | ADDQ.L #0x8,A7
00023a2e 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7)
00023a32 2a 2e 00 10 |*. | MOVE.L (A6+0x10),D5
00023a36 ba 97 | | CMP.L (A7),D5
00023a38 6e 00 00 88 |n | BGT 0x23ac2
00023a3c 51 4f |QO | SUBQ.L #0x8,A7
00023a3e 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00023a42 2f 05 |/ | MOVE.L D5,-(A7)
00023a44 4e ba e2 ee |N | JSR 0x21d34
00023a48 50 4f |PO | ADDQ.L #0x8,A7
00023a4a 24 9f |$ | MOVE.L (A7)+,(A2)
00023a4c 26 97 |& | MOVE.L (A7),(A3)
00023a4e 2f 13 |/ | MOVE.L (A3),-(A7)
00023a50 2f 12 |/ | MOVE.L (A2),-(A7)
00023a52 4e ba e2 a8 |N | JSR 0x21cfc
00023a56 50 4f |PO | ADDQ.L #0x8,A7
00023a58 2c 1f |, | MOVE.L (A7)+,D6
00023a5a 2f 06 |/ | MOVE.L D6,-(A7)
00023a5c 70 01 |p | MOVEQ.L #0x01,D0
00023a5e b0 97 | | CMP.L (A7),D0
00023a60 6e 30 |n0 | BGT 0x23a92
00023a62 22 11 |" | MOVE.L (A1),D1
00023a64 d2 80 | | ADD.L D0,D1
00023a66 53 81 |S | SUBQ.L #0x1,D1
00023a68 53 81 |S | SUBQ.L #0x1,D1
00023a6a 0c 81 00 00 0f ff | | CMPI.L #0x00000fff,D1
00023a70 63 02 |c | BLS 0x23a74
00023a72 4e 4f |NO | TRAP #15
00023a74 41 f9 00 02 6b f4 |A k | LEA.L 0x26bf4,A0
00023a7a 55 4f |UO | SUBQ.L #0x2,A7
00023a7c 2f 13 |/ | MOVE.L (A3),-(A7)
00023a7e 2f 12 |/ | MOVE.L (A2),-(A7)
00023a80 2f 00 |/ | MOVE.L D0,-(A7)
00023a82 4e ba fe 64 |N d | JSR 0x238e8
00023a86 de fc 00 0c | | ADDA.W #0xc,A7
00023a8a 11 9f 18 08 | | MOVE.B (A7)+,(A0+D1.L+#0x8)
00023a8e 52 80 |R | ADDQ.L #0x1,D0
00023a90 68 cc |h | BVC 0x23a5e
00023a92 58 4f |XO | ADDQ.L #0x4,A7
00023a94 ba ae 00 0c | | CMP.L (A6+0xc),D5
00023a98 6c 22 |l" | BGE 0x23abc
00023a9a 20 11 | | MOVE.L (A1),D0
00023a9c d0 86 | | ADD.L D6,D0
00023a9e 22 00 |" | MOVE.L D0,D1
00023aa0 53 81 |S | SUBQ.L #0x1,D1
00023aa2 0c 81 00 00 0f ff | | CMPI.L #0x00000fff,D1
00023aa8 63 02 |c | BLS 0x23aac
00023aaa 4e 4f |NO | TRAP #15
00023aac 41 f9 00 02 6b f4 |A k | LEA.L 0x26bf4,A0
00023ab2 11 bc 00 2c 18 08 | , | MOVE.B #0x2c,(A0+D1.L+#0x8)
00023ab8 52 80 |R | ADDQ.L #0x1,D0
00023aba 22 80 |" | MOVE.L D0,(A1)
00023abc 52 85 |R | ADDQ.L #0x1,D5
00023abe 68 00 ff 76 |h v | BVC 0x23a36
00023ac2 58 4f |XO | ADDQ.L #0x4,A7
00023ac4 4c df 1f e3 |L | MOVEM.L (A7)+,D0+D1+D5+D6+D7+A0+A1+A2+A3+A4
00023ac8 4e 5e |N^ | UNLK A6
00023aca 4e 75 |Nu | RTS
00023acc ; --------------------------------------------------------------------------------------
00023acc ; OMSI PASCAL Function
00023acc ; <LVAR 0x018 4(rw)>
00023acc ; <LVAR 0x014 4(r)>
00023acc ; <LVAR 0x010 4(r)>
00023acc ; <LVAR 0x00c 4(r)>
00023acc ; <LVAR 0x008 4(r)>
00023acc ; <LVAR -0x008 4(rw)>
00023acc ; <LVAR -0x00c 4(rw)>
00023acc ; <LVAR -0x018 4(w)>
00023acc ; --------------------------------------------------------------------------------------
00023acc 4e 56 ff 9e |NV | LINK.W A6,#0xff9e
00023ad0 bf d5 | | CMPA.L (A5),A7
00023ad2 62 06 |b | BHI 0x23ada
00023ad4 44 fc 00 02 |D | MOVE.W #0x2,CCR
00023ad8 4e 76 |Nv | TRAPV
00023ada de fc 00 4a | J | ADDA.W #0x4a,A7
00023ade 48 e7 c7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D1+D0,-(A7)
00023ae2 41 ee ff f8 |A | LEA.L (A6-0x8),A0
00023ae6 43 ee 00 14 |C | LEA.L (A6+0x14),A1
00023aea 45 ee 00 10 |E | LEA.L (A6+0x10),A2
00023aee 47 ee ff f4 |G | LEA.L (A6-0xc),A3
00023af2 49 fa fd f4 |I | LEA.L 0x238e8,A4
00023af6 72 0c |r | MOVEQ.L #0x0c,D1
00023af8 59 4f |YO | SUBQ.L #0x4,A7
00023afa 2f 11 |/ | MOVE.L (A1),-(A7)
00023afc 2f 12 |/ | MOVE.L (A2),-(A7)
00023afe 4e ba e1 fc |N | JSR 0x21cfc
00023b02 50 4f |PO | ADDQ.L #0x8,A7
00023b04 26 97 |& | MOVE.L (A7),(A3)
00023b06 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7)
00023b0a 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00023b0e 4e ba e1 ec |N | JSR 0x21cfc
00023b12 50 4f |PO | ADDQ.L #0x8,A7
00023b14 20 9f | | MOVE.L (A7)+,(A0)
00023b16 52 90 |R | ADDQ.L #0x1,(A0)
00023b18 20 13 | | MOVE.L (A3),D0
00023b1a 90 90 | | SUB.L (A0),D0
00023b1c 52 80 |R | ADDQ.L #0x1,D0
00023b1e 2f 00 |/ | MOVE.L D0,-(A7)
00023b20 70 01 |p | MOVEQ.L #0x01,D0
00023b22 b0 97 | | CMP.L (A7),D0
00023b24 6e 00 00 8e |n | BGT 0x23bb4
00023b28 2d 40 ff e8 |-@ | MOVE.L D0,(A6-0x18)
00023b2c 2f 00 |/ | MOVE.L D0,-(A7)
00023b2e 7c 00 || | MOVEQ.L #0x00,D6
00023b30 2f 10 |/ | MOVE.L (A0),-(A7)
00023b32 7a 01 |z | MOVEQ.L #0x01,D5
00023b34 ba 97 | | CMP.L (A7),D5
00023b36 6e 42 |nB | BGT 0x23b7a
00023b38 0c 85 00 00 00 01 | | CMPI.L #0x00000001,D5
00023b3e 66 04 |f | BNE 0x23b44
00023b40 7e 2f |~/ | MOVEQ.L #0x2f,D7
00023b42 60 14 |` | BRA 0x23b58
00023b44 55 4f |UO | SUBQ.L #0x2,A7
00023b46 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7)
00023b4a 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00023b4e 2f 05 |/ | MOVE.L D5,-(A7)
00023b50 53 97 |S | SUBQ.L #0x1,(A7)
00023b52 4e 94 |N | JSR (A4)
00023b54 de c1 | | ADDA.W D1,A7
00023b56 1e 1f | | MOVE.B (A7)+,D7
00023b58 55 4f |UO | SUBQ.L #0x2,A7
00023b5a 2f 11 |/ | MOVE.L (A1),-(A7)
00023b5c 2f 12 |/ | MOVE.L (A2),-(A7)
00023b5e 20 2f 00 0e | / | MOVE.L (A7+0xe),D0
00023b62 d0 85 | | ADD.L D5,D0
00023b64 53 80 |S | SUBQ.L #0x1,D0
00023b66 2f 00 |/ | MOVE.L D0,-(A7)
00023b68 4e 94 |N | JSR (A4)
00023b6a de c1 | | ADDA.W D1,A7
00023b6c be 1f | | CMP.B (A7)+,D7
00023b6e 67 04 |g | BEQ 0x23b74
00023b70 58 4f |XO | ADDQ.L #0x4,A7
00023b72 60 08 |` | BRA 0x23b7c
00023b74 2c 05 |, | MOVE.L D5,D6
00023b76 52 85 |R | ADDQ.L #0x1,D5
00023b78 68 ba |h | BVC 0x23b34
00023b7a 58 4f |XO | ADDQ.L #0x4,A7
00023b7c bc 90 | | CMP.L (A0),D6
00023b7e 66 2c |f, | BNE 0x23bac
00023b80 20 17 | | MOVE.L (A7),D0
00023b82 2d 40 00 18 |-@ | MOVE.L D0,(A6+0x18)
00023b86 d0 90 | | ADD.L (A0),D0
00023b88 b0 93 | | CMP.L (A3),D0
00023b8a 6d 02 |m | BLT 0x23b8e
00023b8c 60 1a |` | BRA 0x23ba8
00023b8e 55 4f |UO | SUBQ.L #0x2,A7
00023b90 2f 11 |/ | MOVE.L (A1),-(A7)
00023b92 2f 12 |/ | MOVE.L (A2),-(A7)
00023b94 2f 00 |/ | MOVE.L D0,-(A7)
00023b96 4e 94 |N | JSR (A4)
00023b98 de c1 | | ADDA.W D1,A7
00023b9a 1e 1f | | MOVE.B (A7)+,D7
00023b9c 0c 07 00 2f | / | CMPI.B #0x2f,D7
00023ba0 67 06 |g | BEQ 0x23ba8
00023ba2 0c 07 00 3d | = | CMPI.B #0x3d,D7
00023ba6 66 04 |f | BNE 0x23bac
00023ba8 50 4f |PO | ADDQ.L #0x8,A7
00023baa 60 0e |` | BRA 0x23bba
00023bac 20 1f | | MOVE.L (A7)+,D0
00023bae 52 80 |R | ADDQ.L #0x1,D0
00023bb0 68 00 ff 70 |h p | BVC 0x23b22
00023bb4 58 4f |XO | ADDQ.L #0x4,A7
00023bb6 42 ae 00 18 |B | CLR.L (A6+0x18)
00023bba 4c df 1f e3 |L | MOVEM.L (A7)+,D0+D1+D5+D6+D7+A0+A1+A2+A3+A4
00023bbe 4e 5e |N^ | UNLK A6
00023bc0 4e 75 |Nu | RTS
00023bc2 ; --------------------------------------------------------------------------------------
00023bc2 ; OMSI PASCAL Function
00023bc2 ; <LVAR 0x018 4(r)>
00023bc2 ; <LVAR 0x014 4(r)>
00023bc2 ; <LVAR 0x010 4(r)>
00023bc2 ; <LVAR 0x00c 4(r)>
00023bc2 ; <LVAR 0x008 4(r)>
00023bc2 ; --------------------------------------------------------------------------------------
00023bc2 4e 56 ff be |NV | LINK.W A6,#0xffbe
00023bc6 bf d5 | | CMPA.L (A5),A7
00023bc8 62 06 |b | BHI 0x23bd0
00023bca 44 fc 00 02 |D | MOVE.W #0x2,CCR
00023bce 4e 76 |Nv | TRAPV
00023bd0 de fc 00 36 | 6 | ADDA.W #0x36,A7
00023bd4 48 e7 c7 c0 |H | MOVEM.L A1+A0+D7+D6+D5+D1+D0,-(A7)
00023bd8 41 ee 00 14 |A | LEA.L (A6+0x14),A0
00023bdc 43 ee 00 10 |C | LEA.L (A6+0x10),A1
00023be0 72 2f |r/ | MOVEQ.L #0x2f,D1
00023be2 59 4f |YO | SUBQ.L #0x4,A7
00023be4 2f 10 |/ | MOVE.L (A0),-(A7)
00023be6 2f 11 |/ | MOVE.L (A1),-(A7)
00023be8 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7)
00023bec 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00023bf0 4e ba fe da |N | JSR 0x23acc
00023bf4 de fc 00 10 | | ADDA.W #0x10,A7
00023bf8 2a 1f |* | MOVE.L (A7)+,D5
00023bfa 6f 52 |oR | BLE 0x23c4e
00023bfc 2f 2e 00 18 |/. | MOVE.L (A6+0x18),-(A7)
00023c00 1f 01 | | MOVE.B D1,-(A7)
00023c02 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char)
00023c08 5c 4f |\O | ADDQ.L #0x6,A7
00023c0a 20 05 | | MOVE.L D5,D0
00023c0c 52 80 |R | ADDQ.L #0x1,D0
00023c0e 59 4f |YO | SUBQ.L #0x4,A7
00023c10 2f 10 |/ | MOVE.L (A0),-(A7)
00023c12 2f 11 |/ | MOVE.L (A1),-(A7)
00023c14 4e ba e0 e6 |N | JSR 0x21cfc
00023c18 50 4f |PO | ADDQ.L #0x8,A7
00023c1a 2c 00 |, | MOVE.L D0,D6
00023c1c bc 97 | | CMP.L (A7),D6
00023c1e 6e 2c |n, | BGT 0x23c4c
00023c20 55 4f |UO | SUBQ.L #0x2,A7
00023c22 2f 10 |/ | MOVE.L (A0),-(A7)
00023c24 2f 11 |/ | MOVE.L (A1),-(A7)
00023c26 2f 06 |/ | MOVE.L D6,-(A7)
00023c28 4e ba fc be |N | JSR 0x238e8
00023c2c de fc 00 0c | | ADDA.W #0xc,A7
00023c30 1e 1f | | MOVE.B (A7)+,D7
00023c32 be 01 | | CMP.B D1,D7
00023c34 66 04 |f | BNE 0x23c3a
00023c36 58 4f |XO | ADDQ.L #0x4,A7
00023c38 60 14 |` | BRA 0x23c4e
00023c3a 2f 2e 00 18 |/. | MOVE.L (A6+0x18),-(A7)
00023c3e 1f 07 | | MOVE.B D7,-(A7)
00023c40 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char)
00023c46 5c 4f |\O | ADDQ.L #0x6,A7
00023c48 52 86 |R | ADDQ.L #0x1,D6
00023c4a 68 d0 |h | BVC 0x23c1c
00023c4c 58 4f |XO | ADDQ.L #0x4,A7
00023c4e 4c df 03 e3 |L | MOVEM.L (A7)+,D0+D1+D5+D6+D7+A0+A1
00023c52 4e 5e |N^ | UNLK A6
00023c54 4e 75 |Nu | RTS
00023c56 ; --------------------------------------------------------------------------------------
00023c56 ; OMSI PASCAL Function
00023c56 ; <LVAR 0x018 4(r)>
00023c56 ; <LVAR 0x014 4(r)>
00023c56 ; <LVAR 0x010 4(r)>
00023c56 ; <LVAR 0x00c 4(r)>
00023c56 ; <LVAR 0x008 4(r)>
00023c56 ; <LVAR -0x006 4(rw)>
00023c56 ; <LVAR -0x014 4(rw)>
00023c56 ; --------------------------------------------------------------------------------------
00023c56 4e 56 ff aa |NV | LINK.W A6,#0xffaa
00023c5a bf d5 | | CMPA.L (A5),A7
00023c5c 62 06 |b | BHI 0x23c64
00023c5e 44 fc 00 02 |D | MOVE.W #0x2,CCR
00023c62 4e 76 |Nv | TRAPV
00023c64 de fc 00 42 | B | ADDA.W #0x42,A7
00023c68 48 e7 c7 e0 |H | MOVEM.L A2+A1+A0+D7+D6+D5+D1+D0,-(A7)
00023c6c 41 ee 00 14 |A | LEA.L (A6+0x14),A0
00023c70 43 ee 00 10 |C | LEA.L (A6+0x10),A1
00023c74 45 ee ff fa |E | LEA.L (A6-0x6),A2
00023c78 72 0c |r | MOVEQ.L #0x0c,D1
00023c7a 59 4f |YO | SUBQ.L #0x4,A7
00023c7c 2f 10 |/ | MOVE.L (A0),-(A7)
00023c7e 2f 11 |/ | MOVE.L (A1),-(A7)
00023c80 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7)
00023c84 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00023c88 4e ba fe 42 |N B | JSR 0x23acc
00023c8c de fc 00 10 | | ADDA.W #0x10,A7
00023c90 2d 5f ff ec |-_ | MOVE.L (A7)+,(A6-0x14)
00023c94 6f 6e |on | BLE 0x23d04
00023c96 59 4f |YO | SUBQ.L #0x4,A7
00023c98 2f 10 |/ | MOVE.L (A0),-(A7)
00023c9a 2f 11 |/ | MOVE.L (A1),-(A7)
00023c9c 4e ba e0 5e |N ^ | JSR 0x21cfc
00023ca0 50 4f |PO | ADDQ.L #0x8,A7
00023ca2 24 9f |$ | MOVE.L (A7)+,(A2)
00023ca4 2f 12 |/ | MOVE.L (A2),-(A7)
00023ca6 2a 2e ff ec |*. | MOVE.L (A6-0x14),D5
00023caa ba 97 | | CMP.L (A7),D5
00023cac 6e 54 |nT | BGT 0x23d02
00023cae 55 4f |UO | SUBQ.L #0x2,A7
00023cb0 2f 10 |/ | MOVE.L (A0),-(A7)
00023cb2 2f 11 |/ | MOVE.L (A1),-(A7)
00023cb4 2f 05 |/ | MOVE.L D5,-(A7)
00023cb6 4e ba fc 30 |N 0 | JSR 0x238e8
00023cba de c1 | | ADDA.W D1,A7
00023cbc 10 1f | | MOVE.B (A7)+,D0
00023cbe 0c 00 00 3d | = | CMPI.B #0x3d,D0
00023cc2 66 3a |f: | BNE 0x23cfe
00023cc4 20 05 | | MOVE.L D5,D0
00023cc6 52 80 |R | ADDQ.L #0x1,D0
00023cc8 2f 12 |/ | MOVE.L (A2),-(A7)
00023cca 2c 00 |, | MOVE.L D0,D6
00023ccc bc 97 | | CMP.L (A7),D6
00023cce 6e 2c |n, | BGT 0x23cfc
00023cd0 55 4f |UO | SUBQ.L #0x2,A7
00023cd2 2f 10 |/ | MOVE.L (A0),-(A7)
00023cd4 2f 11 |/ | MOVE.L (A1),-(A7)
00023cd6 2f 06 |/ | MOVE.L D6,-(A7)
00023cd8 4e ba fc 0e |N | JSR 0x238e8
00023cdc de c1 | | ADDA.W D1,A7
00023cde 1e 1f | | MOVE.B (A7)+,D7
00023ce0 0c 07 00 2f | / | CMPI.B #0x2f,D7
00023ce4 66 04 |f | BNE 0x23cea
00023ce6 50 4f |PO | ADDQ.L #0x8,A7
00023ce8 60 1a |` | BRA 0x23d04
00023cea 2f 2e 00 18 |/. | MOVE.L (A6+0x18),-(A7)
00023cee 1f 07 | | MOVE.B D7,-(A7)
00023cf0 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char)
00023cf6 5c 4f |\O | ADDQ.L #0x6,A7
00023cf8 52 86 |R | ADDQ.L #0x1,D6
00023cfa 68 d0 |h | BVC 0x23ccc
00023cfc 58 4f |XO | ADDQ.L #0x4,A7
00023cfe 52 85 |R | ADDQ.L #0x1,D5
00023d00 68 a8 |h | BVC 0x23caa
00023d02 58 4f |XO | ADDQ.L #0x4,A7
00023d04 4c df 07 e3 |L | MOVEM.L (A7)+,D0+D1+D5+D6+D7+A0+A1+A2
00023d08 4e 5e |N^ | UNLK A6
00023d0a 4e 75 |Nu | RTS
00023d0c ; --------------------------------------------------------------------------------------
00023d0c ; OMSI PASCAL Function
00023d0c ; <LVAR 0x010 4(r)>
00023d0c ; <LVAR 0x00c 4(r)>
00023d0c ; <LVAR 0x008 4(r)>
00023d0c ; --------------------------------------------------------------------------------------
00023d0c 4e 56 ff b2 |NV | LINK.W A6,#0xffb2
00023d10 bf d5 | | CMPA.L (A5),A7
00023d12 62 06 |b | BHI 0x23d1a
00023d14 44 fc 00 02 |D | MOVE.W #0x2,CCR
00023d18 4e 76 |Nv | TRAPV
00023d1a de fc 00 42 | B | ADDA.W #0x42,A7
00023d1e 48 e7 c7 c0 |H | MOVEM.L A1+A0+D7+D6+D5+D1+D0,-(A7)
00023d22 41 ee 00 0c |A | LEA.L (A6+0xc),A0
00023d26 43 ee 00 08 |C | LEA.L (A6+0x8),A1
00023d2a 72 0c |r | MOVEQ.L #0x0c,D1
00023d2c 59 4f |YO | SUBQ.L #0x4,A7
00023d2e 2f 10 |/ | MOVE.L (A0),-(A7)
00023d30 2f 11 |/ | MOVE.L (A1),-(A7)
00023d32 4e ba df c8 |N | JSR 0x21cfc
00023d36 50 4f |PO | ADDQ.L #0x8,A7
00023d38 2a 1f |* | MOVE.L (A7)+,D5
00023d3a 2f 05 |/ | MOVE.L D5,-(A7)
00023d3c 7c 01 || | MOVEQ.L #0x01,D6
00023d3e bc 97 | | CMP.L (A7),D6
00023d40 6e 46 |nF | BGT 0x23d88
00023d42 55 4f |UO | SUBQ.L #0x2,A7
00023d44 2f 10 |/ | MOVE.L (A0),-(A7)
00023d46 2f 11 |/ | MOVE.L (A1),-(A7)
00023d48 2f 06 |/ | MOVE.L D6,-(A7)
00023d4a 4e ba fb 9c |N | JSR 0x238e8
00023d4e de c1 | | ADDA.W D1,A7
00023d50 10 1f | | MOVE.B (A7)+,D0
00023d52 0c 00 00 2f | / | CMPI.B #0x2f,D0
00023d56 66 2c |f, | BNE 0x23d84
00023d58 2f 05 |/ | MOVE.L D5,-(A7)
00023d5a 2e 06 |. | MOVE.L D6,D7
00023d5c be 97 | | CMP.L (A7),D7
00023d5e 6e 1e |n | BGT 0x23d7e
00023d60 2f 2e 00 10 |/. | MOVE.L (A6+0x10),-(A7)
00023d64 55 4f |UO | SUBQ.L #0x2,A7
00023d66 2f 10 |/ | MOVE.L (A0),-(A7)
00023d68 2f 11 |/ | MOVE.L (A1),-(A7)
00023d6a 2f 07 |/ | MOVE.L D7,-(A7)
00023d6c 4e ba fb 7a |N z | JSR 0x238e8
00023d70 de c1 | | ADDA.W D1,A7
00023d72 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char)
00023d78 5c 4f |\O | ADDQ.L #0x6,A7
00023d7a 52 87 |R | ADDQ.L #0x1,D7
00023d7c 68 de |h | BVC 0x23d5c
00023d7e 58 4f |XO | ADDQ.L #0x4,A7
00023d80 58 4f |XO | ADDQ.L #0x4,A7
00023d82 60 06 |` | BRA 0x23d8a
00023d84 52 86 |R | ADDQ.L #0x1,D6
00023d86 68 b6 |h | BVC 0x23d3e
00023d88 58 4f |XO | ADDQ.L #0x4,A7
00023d8a 4c df 03 e3 |L | MOVEM.L (A7)+,D0+D1+D5+D6+D7+A0+A1
00023d8e 4e 5e |N^ | UNLK A6
00023d90 4e 75 |Nu | RTS
00023d92 ; --------------------------------------------------------------------------------------
00023d92 ; OMSI PASCAL Function
00023d92 ; <LVAR 0x010 4(r)>
00023d92 ; <LVAR 0x00c 4(r)>
00023d92 ; <LVAR 0x008 4(r)>
00023d92 ; --------------------------------------------------------------------------------------
00023d92 4e 56 ff ce |NV | LINK.W A6,#0xffce
00023d96 bf d5 | | CMPA.L (A5),A7
00023d98 62 06 |b | BHI 0x23da0
00023d9a 44 fc 00 02 |D | MOVE.W #0x2,CCR
00023d9e 4e 76 |Nv | TRAPV
00023da0 de fc 00 2a | * | ADDA.W #0x2a,A7
00023da4 48 e7 03 80 |H | MOVEM.L A0+D7+D6,-(A7)
00023da8 20 6e 00 10 | n | MOVEA.L (A6+0x10),A0
00023dac 42 50 |BP | CLR.W (A0)
00023dae 59 4f |YO | SUBQ.L #0x4,A7
00023db0 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7)
00023db4 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00023db8 4e ba df 42 |N B | JSR 0x21cfc
00023dbc 50 4f |PO | ADDQ.L #0x8,A7
00023dbe 7e 01 |~ | MOVEQ.L #0x01,D7
00023dc0 be 97 | | CMP.L (A7),D7
00023dc2 6e 34 |n4 | BGT 0x23df8
00023dc4 55 4f |UO | SUBQ.L #0x2,A7
00023dc6 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7)
00023dca 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00023dce 2f 07 |/ | MOVE.L D7,-(A7)
00023dd0 4e ba fb 16 |N | JSR 0x238e8
00023dd4 de fc 00 0c | | ADDA.W #0xc,A7
00023dd8 1c 1f | | MOVE.B (A7)+,D6
00023dda 0c 06 00 2f | / | CMPI.B #0x2f,D6
00023dde 67 10 |g | BEQ 0x23df0
00023de0 2f 2e 00 10 |/. | MOVE.L (A6+0x10),-(A7)
00023de4 1f 06 | | MOVE.B D6,-(A7)
00023de6 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char)
00023dec 5c 4f |\O | ADDQ.L #0x6,A7
00023dee 60 04 |` | BRA 0x23df4
00023df0 58 4f |XO | ADDQ.L #0x4,A7
00023df2 60 06 |` | BRA 0x23dfa
00023df4 52 87 |R | ADDQ.L #0x1,D7
00023df6 68 c8 |h | BVC 0x23dc0
00023df8 58 4f |XO | ADDQ.L #0x4,A7
00023dfa 4c df 01 c0 |L | MOVEM.L (A7)+,D6+D7+A0
00023dfe 4e 5e |N^ | UNLK A6
00023e00 4e 75 |Nu | RTS
00023e02 ; --------------------------------------------------------------------------------------
00023e02 ; OMSI PASCAL Function
00023e02 ; --------------------------------------------------------------------------------------
00023e02 4e 56 ff c6 |NV | LINK.W A6,#0xffc6
00023e06 bf d5 | | CMPA.L (A5),A7
00023e08 62 06 |b | BHI 0x23e10
00023e0a 44 fc 00 02 |D | MOVE.W #0x2,CCR
00023e0e 4e 76 |Nv | TRAPV
00023e10 de fc 00 3a | : | ADDA.W #0x3a,A7
00023e14 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7)
00023e18 41 fa cf b6 |A | LEA.L 0x20dd0,A0
00023e1c 70 10 |p | MOVEQ.L #0x10,D0
00023e1e 3f 20 |? | MOVE.W -(A0),-(A7)
00023e20 51 c8 ff fc |Q | DBF D0,0x23e1e
00023e24 59 4f |YO | SUBQ.L #0x4,A7
00023e26 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00023e2a 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
00023e2e 3f 3c 00 22 |?< " | MOVE.W #0x22,-(A7)
00023e32 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00023e38 50 4f |PO | ADDQ.L #0x8,A7
00023e3a 4e ba d2 ae |N | JSR 0x210ea
00023e3e de fc 00 26 | & | ADDA.W #0x26,A7
00023e42 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0
00023e46 4e 5e |N^ | UNLK A6
00023e48 4e 75 |Nu | RTS
00023e4a ; --------------------------------------------------------------------------------------
00023e4a ; OMSI PASCAL Function
00023e4a ; <LVAR 0x00c 4(r)>
00023e4a ; <LVAR 0x008 4(r)>
00023e4a ; <LVAR -0x006 4(rw)>
00023e4a ; --------------------------------------------------------------------------------------
00023e4a 4e 56 ff a0 |NV | LINK.W A6,#0xffa0
00023e4e bf d5 | | CMPA.L (A5),A7
00023e50 62 06 |b | BHI 0x23e58
00023e52 44 fc 00 02 |D | MOVE.W #0x2,CCR
00023e56 4e 76 |Nv | TRAPV
00023e58 de fc 00 58 | X | ADDA.W #0x58,A7
00023e5c 48 e7 ff f0 |H | MOVEM.L A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00023e60 43 ee 00 0c |C | LEA.L (A6+0xc),A1
00023e64 45 f9 00 02 7b fc |E { | LEA.L 0x27bfc,A2
00023e6a 47 fa d3 1a |G | LEA.L 0x21186,A3
00023e6e 72 30 |r0 | MOVEQ.L #0x30,D1
00023e70 74 39 |t9 | MOVEQ.L #0x39,D2
00023e72 76 25 |v% | MOVEQ.L #0x25,D3
00023e74 78 2d |x- | MOVEQ.L #0x2d,D4
00023e76 2d 52 ff fa |-R | MOVE.L (A2),(A6-0x6)
00023e7a 55 4f |UO | SUBQ.L #0x2,A7
00023e7c 4e 93 |N | JSR (A3)
00023e7e 1e 1f | | MOVE.B (A7)+,D7
00023e80 be 03 | | CMP.B D3,D7
00023e82 66 08 |f | BNE 0x23e8c
00023e84 20 51 | Q | MOVEA.L (A1),A0
00023e86 42 90 |B | CLR.L (A0)
00023e88 60 00 00 e2 |` | BRA 0x23f6c
00023e8c be 04 | | CMP.B D4,D7
00023e8e 66 0c |f | BNE 0x23e9c
00023e90 20 51 | Q | MOVEA.L (A1),A0
00023e92 20 bc 00 00 00 01 | | MOVE.L #0x1,(A0)
00023e98 60 00 00 d2 |` | BRA 0x23f6c
00023e9c 0c 07 00 2f | / | CMPI.B #0x2f,D7
00023ea0 66 0c |f | BNE 0x23eae
00023ea2 20 51 | Q | MOVEA.L (A1),A0
00023ea4 20 bc 00 00 00 04 | | MOVE.L #0x4,(A0)
00023eaa 60 00 00 c0 |` | BRA 0x23f6c
00023eae 0c 07 00 3d | = | CMPI.B #0x3d,D7
00023eb2 66 0c |f | BNE 0x23ec0
00023eb4 20 51 | Q | MOVEA.L (A1),A0
00023eb6 20 bc 00 00 00 05 | | MOVE.L #0x5,(A0)
00023ebc 60 00 00 ae |` | BRA 0x23f6c
00023ec0 0c 07 00 5c | \ | CMPI.B #0x5c,D7
00023ec4 66 0c |f | BNE 0x23ed2
00023ec6 20 51 | Q | MOVEA.L (A1),A0
00023ec8 20 bc 00 00 00 06 | | MOVE.L #0x6,(A0)
00023ece 60 00 00 9c |` | BRA 0x23f6c
00023ed2 4a 07 |J | TST.B D7
00023ed4 66 2c |f, | BNE 0x23f02
00023ed6 41 fa cf 10 |A | LEA.L 0x20de8,A0
00023eda 70 05 |p | MOVEQ.L #0x05,D0
00023edc 2f 20 |/ | MOVE.L -(A0),-(A7)
00023ede 51 c8 ff fc |Q | DBF D0,0x23edc
00023ee2 59 4f |YO | SUBQ.L #0x4,A7
00023ee4 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00023ee8 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
00023eec 3f 3c 00 18 |?< | MOVE.W #0x18,-(A7)
00023ef0 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00023ef6 50 4f |PO | ADDQ.L #0x8,A7
00023ef8 4e ba d1 f0 |N | JSR 0x210ea
00023efc de fc 00 1c | | ADDA.W #0x1c,A7
00023f00 60 6a |`j | BRA 0x23f6c
00023f02 be 01 | | CMP.B D1,D7
00023f04 65 2c |e, | BCS 0x23f32
00023f06 be 02 | | CMP.B D2,D7
00023f08 62 28 |b( | BHI 0x23f32
00023f0a 20 51 | Q | MOVEA.L (A1),A0
00023f0c 20 bc 00 00 00 02 | | MOVE.L #0x2,(A0)
00023f12 55 4f |UO | SUBQ.L #0x2,A7
00023f14 4e ba d2 32 |N 2 | JSR 0x21148
00023f18 1e 1f | | MOVE.B (A7)+,D7
00023f1a be 01 | | CMP.B D1,D7
00023f1c 65 0a |e | BCS 0x23f28
00023f1e be 02 | | CMP.B D2,D7
00023f20 62 06 |b | BHI 0x23f28
00023f22 55 4f |UO | SUBQ.L #0x2,A7
00023f24 4e 93 |N | JSR (A3)
00023f26 1c 1f | | MOVE.B (A7)+,D6
00023f28 be 01 | | CMP.B D1,D7
00023f2a 65 04 |e | BCS 0x23f30
00023f2c be 02 | | CMP.B D2,D7
00023f2e 63 e2 |c | BLS 0x23f12
00023f30 60 3a |`: | BRA 0x23f6c
00023f32 20 51 | Q | MOVEA.L (A1),A0
00023f34 20 bc 00 00 00 03 | | MOVE.L #0x3,(A0)
00023f3a 7a 00 |z | MOVEQ.L #0x00,D5
00023f3c 55 4f |UO | SUBQ.L #0x2,A7
00023f3e 4e ba d2 08 |N | JSR 0x21148
00023f42 1e 1f | | MOVE.B (A7)+,D7
00023f44 be 03 | | CMP.B D3,D7
00023f46 67 16 |g | BEQ 0x23f5e
00023f48 be 04 | | CMP.B D4,D7
00023f4a 67 12 |g | BEQ 0x23f5e
00023f4c 0c 07 00 2f | / | CMPI.B #0x2f,D7
00023f50 67 0c |g | BEQ 0x23f5e
00023f52 0c 07 00 3d | = | CMPI.B #0x3d,D7
00023f56 67 06 |g | BEQ 0x23f5e
00023f58 0c 07 00 5c | \ | CMPI.B #0x5c,D7
00023f5c 66 04 |f | BNE 0x23f62
00023f5e 7a 01 |z | MOVEQ.L #0x01,D5
00023f60 60 06 |` | BRA 0x23f68
00023f62 55 4f |UO | SUBQ.L #0x2,A7
00023f64 4e 93 |N | JSR (A3)
00023f66 1c 1f | | MOVE.B (A7)+,D6
00023f68 4a 05 |J | TST.B D5
00023f6a 67 d0 |g | BEQ 0x23f3c
00023f6c 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0
00023f70 20 ae ff fa | | MOVE.L (A6-0x6),(A0)
00023f74 21 52 00 04 |!R | MOVE.L (A2),(A0+0x4)
00023f78 53 a8 00 04 |S | SUBQ.L #0x1,(A0+0x4)
00023f7c 4c df 0f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3
00023f80 4e 5e |N^ | UNLK A6
00023f82 4e 75 |Nu | RTS
00023f84 ; --------------------------------------------------------------------------------------
00023f84 ; OMSI PASCAL Function
00023f84 ; <LVAR 0x00c 4(r)>
00023f84 ; <LVAR 0x008 4(r)>
00023f84 ; --------------------------------------------------------------------------------------
00023f84 4e 56 ff c0 |NV | LINK.W A6,#0xffc0
00023f88 bf d5 | | CMPA.L (A5),A7
00023f8a 62 06 |b | BHI 0x23f92
00023f8c 44 fc 00 02 |D | MOVE.W #0x2,CCR
00023f90 4e 76 |Nv | TRAPV
00023f92 de fc 00 34 | 4 | ADDA.W #0x34,A7
00023f96 48 e7 c7 e0 |H | MOVEM.L A2+A1+A0+D7+D6+D5+D1+D0,-(A7)
00023f9a 45 ee 00 0c |E | LEA.L (A6+0xc),A2
00023f9e 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0
00023fa2 2f 08 |/ | MOVE.L A0,-(A7)
00023fa4 2c 39 00 02 7b fc |,9 { | MOVE.L 0x27bfc,D6
00023faa 9c 92 | | SUB.L (A2),D6
00023fac 2a 12 |* | MOVE.L (A2),D5
00023fae da 86 | | ADD.L D6,D5
00023fb0 30 10 |0 | MOVE.W (A0),D0
00023fb2 48 c0 |H | EXTW.L D0
00023fb4 b0 86 | | CMP.L D6,D0
00023fb6 67 0c |g | BEQ 0x23fc4
00023fb8 2f 05 |/ | MOVE.L D5,-(A7)
00023fba 2f 06 |/ | MOVE.L D6,-(A7)
00023fbc 91 97 | | SUB.L D0,(A7)
00023fbe 4e ba d6 7e |N ~ | JSR 0x2163e
00023fc2 50 4f |PO | ADDQ.L #0x8,A7
00023fc4 2f 00 |/ | MOVE.L D0,-(A7)
00023fc6 7e 01 |~ | MOVEQ.L #0x01,D7
00023fc8 be 97 | | CMP.L (A7),D7
00023fca 6e 34 |n4 | BGT 0x24000
00023fcc 20 12 | | MOVE.L (A2),D0
00023fce d0 87 | | ADD.L D7,D0
00023fd0 53 80 |S | SUBQ.L #0x1,D0
00023fd2 53 80 |S | SUBQ.L #0x1,D0
00023fd4 0c 80 00 00 0f ff | | CMPI.L #0x00000fff,D0
00023fda 63 02 |c | BLS 0x23fde
00023fdc 4e 4f |NO | TRAP #15
00023fde 41 f9 00 02 6b f4 |A k | LEA.L 0x26bf4,A0
00023fe4 22 07 |" | MOVE.L D7,D1
00023fe6 53 81 |S | SUBQ.L #0x1,D1
00023fe8 0c 81 00 00 00 7d | } | CMPI.L #0x0000007d,D1
00023fee 63 02 |c | BLS 0x23ff2
00023ff0 4e 4f |NO | TRAP #15
00023ff2 22 6f 00 04 |"o | MOVEA.L (A7+0x4),A1
00023ff6 11 b1 18 02 08 08 | | MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x8)
00023ffc 52 87 |R | ADDQ.L #0x1,D7
00023ffe 68 c8 |h | BVC 0x23fc8
00024000 50 4f |PO | ADDQ.L #0x8,A7
00024002 4c df 07 e3 |L | MOVEM.L (A7)+,D0+D1+D5+D6+D7+A0+A1+A2
00024006 4e 5e |N^ | UNLK A6
00024008 4e 75 |Nu | RTS
0002400a ; --------------------------------------------------------------------------------------
0002400a ; OMSI PASCAL Function
0002400a ; <LVAR 0x00c 4(r)>
0002400a ; <LVAR 0x008 4(r)>
0002400a ; <LVAR -0x008 @ 4(r)>
0002400a ; <LVAR -0x00c @ 4(r)>
0002400a ; <LVAR -0x010 4(r)>
0002400a ; <LVAR -0x014 @ 4(r)>
0002400a ; <LVAR -0x018 4(rw)>
0002400a ; <LVAR -0x01c 4(rw)>
0002400a ; <LVAR -0x020 4(rw)>
0002400a ; <LVAR -0x024 4(rw)>
0002400a ; <LVAR -0x028 4(rw)>
0002400a ; <LVAR -0x034 4(rw)>
0002400a ; --------------------------------------------------------------------------------------
0002400a 4e 56 ff 70 |NV p | LINK.W A6,#0xff70
0002400e bf d5 | | CMPA.L (A5),A7
00024010 62 06 |b | BHI 0x24018
00024012 44 fc 00 02 |D | MOVE.W #0x2,CCR
00024016 4e 76 |Nv | TRAPV
00024018 de fc 00 5c | \ | ADDA.W #0x5c,A7
0002401c 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00024020 43 ee ff f8 |C | LEA.L (A6-0x8),A1
00024024 45 ee ff ec |E | LEA.L (A6-0x14),A2
00024028 47 ee ff dc |G | LEA.L (A6-0x24),A3
0002402c 49 ee ff e0 |I | LEA.L (A6-0x20),A4
00024030 74 14 |t | MOVEQ.L #0x14,D2
00024032 2d 79 00 02 7b fc ff d8 |-y { | MOVE.L 0x27bfc,(A6-0x28)
0002403a 48 51 |HQ | PEA.L (A1)
0002403c 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String)
00024042 58 4f |XO | ADDQ.L #0x4,A7
00024044 48 6e ff f4 |Hn | PEA.L (A6-0xc)
00024048 48 52 |HR | PEA.L (A2)
0002404a 4e ba fd fe |N | JSR 0x23e4a
0002404e 50 4f |PO | ADDQ.L #0x8,A7
00024050 42 ae ff cc |B | CLR.L (A6-0x34)
00024054 7e 00 |~ | MOVEQ.L #0x00,D7
00024056 20 2e ff cc | . | MOVE.L (A6-0x34),D0
0002405a b0 82 | | CMP.L D2,D0
0002405c 63 02 |c | BLS 0x24060
0002405e 4e 4e |NN | TRAP #14
00024060 d0 40 | @ | ADD.W D0,D0
00024062 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W
0002406a 00 2a | * | .CONST 0x2a ; [0x0] -> 0x24094
0002406c 00 34 | 4 | .CONST 0x34 ; [0x1] -> 0x2409e
0002406e 00 48 | H | .CONST 0x48 ; [0x2] -> 0x240b2
00024070 00 64 | d | .CONST 0x64 ; [0x3] -> 0x240ce
00024072 00 68 | h | .CONST 0x68 ; [0x4] -> 0x240d2
00024074 00 76 | v | .CONST 0x76 ; [0x5] -> 0x240e0
00024076 00 8a | | .CONST 0x8a ; [0x6] -> 0x240f4
00024078 00 90 | | .CONST 0x90 ; [0x7] -> 0x240fa
0002407a 00 92 | | .CONST 0x92 ; [0x8] -> 0x240fc
0002407c 00 a8 | | .CONST 0xa8 ; [0x9] -> 0x24112
0002407e 00 b6 | | .CONST 0xb6 ; [0xa] -> 0x24120
00024080 00 ce | | .CONST 0xce ; [0xb] -> 0x24138
00024082 00 e2 | | .CONST 0xe2 ; [0xc] -> 0x2414c
00024084 00 f6 | | .CONST 0xf6 ; [0xd] -> 0x24160
00024086 01 0c | | .CONST 0x10c ; [0xe] -> 0x24176
00024088 01 0e | | .CONST 0x10e ; [0xf] -> 0x24178
0002408a 01 28 | ( | .CONST 0x128 ; [0x10] -> 0x24192
0002408c 01 3e | > | .CONST 0x13e ; [0x11] -> 0x241a8
0002408e 01 4c | L | .CONST 0x14c ; [0x12] -> 0x241b6
00024090 01 4e | N | .CONST 0x14e ; [0x13] -> 0x241b8
00024092 01 50 | P | .CONST 0x150 ; [0x14] -> 0x241ba
00024094 switch@0x24062[0x0]:
00024094 7c 00 || | MOVEQ.L #0x00,D6
00024096 2a 2e 00 08 |*. | MOVE.L (A6+0x8),D5
0002409a 60 00 01 48 |` H | BRA 0x241e4
0002409e switch@0x24062[0x1]:
0002409e 59 4f |YO | SUBQ.L #0x4,A7
000240a0 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7)
000240a4 2f 12 |/ | MOVE.L (A2),-(A7)
000240a6 4e ba f8 80 |N | JSR 0x23928
000240aa 50 4f |PO | ADDQ.L #0x8,A7
000240ac 2c 1f |, | MOVE.L (A7)+,D6
000240ae 60 00 01 34 |` 4 | BRA 0x241e4
000240b2 switch@0x24062[0x2]:
000240b2 2f 2e ff d8 |/. | MOVE.L (A6-0x28),-(A7)
000240b6 2f 06 |/ | MOVE.L D6,-(A7)
000240b8 2f 06 |/ | MOVE.L D6,-(A7)
000240ba 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7)
000240be 4e ba f8 e4 |N | JSR 0x239a4
000240c2 de fc 00 10 | | ADDA.W #0x10,A7
000240c6 60 00 01 78 |` x | BRA 0x24240
000240ca 60 00 01 18 |` | .XXX[0x4]
000240ce switch@0x24062[0x3]:
000240ce 60 00 01 14 |` | BRA 0x241e4
000240d2 switch@0x24062[0x4]:
000240d2 2f 2e ff d8 |/. | MOVE.L (A6-0x28),-(A7)
000240d6 2f 06 |/ | MOVE.L D6,-(A7)
000240d8 2f 05 |/ | MOVE.L D5,-(A7)
000240da 60 de |` | BRA 0x240ba
000240dc 60 00 01 06 |` | .XXX[0x4]
000240e0 switch@0x24062[0x5]:
000240e0 59 4f |YO | SUBQ.L #0x4,A7
000240e2 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7)
000240e6 2f 12 |/ | MOVE.L (A2),-(A7)
000240e8 4e ba f8 3e |N > | JSR 0x23928
000240ec 50 4f |PO | ADDQ.L #0x8,A7
000240ee 2a 1f |* | MOVE.L (A7)+,D5
000240f0 60 00 00 f2 |` | BRA 0x241e4
000240f4 switch@0x24062[0x6]:
000240f4 7c 01 || | MOVEQ.L #0x01,D6
000240f6 60 00 00 ec |` | BRA 0x241e4
000240fa switch@0x24062[0x7]:
000240fa 60 e4 |` | BRA switch@0x24062[0x5]
000240fc switch@0x24062[0x8]:
000240fc 51 4f |QO | SUBQ.L #0x8,A7
000240fe 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7)
00024102 2f 06 |/ | MOVE.L D6,-(A7)
00024104 4e ba dc 2e |N . | JSR 0x21d34
00024108 50 4f |PO | ADDQ.L #0x8,A7
0002410a 26 9f |& | MOVE.L (A7)+,(A3)
0002410c 28 9f |( | MOVE.L (A7)+,(A4)
0002410e 60 00 00 d4 |` | BRA 0x241e4
00024112 switch@0x24062[0x9]:
00024112 2d 52 ff e4 |-R | MOVE.L (A2),(A6-0x1c)
00024116 2d 6e ff f0 ff e8 |-n | MOVE.L (A6-0x10),(A6-0x18)
0002411c 60 00 00 c6 |` | BRA 0x241e4
00024120 switch@0x24062[0xa]:
00024120 2f 11 |/ | MOVE.L (A1),-(A7)
00024122 2f 14 |/ | MOVE.L (A4),-(A7)
00024124 2f 13 |/ | MOVE.L (A3),-(A7)
00024126 2f 2e ff e8 |/. | MOVE.L (A6-0x18),-(A7)
0002412a 2f 2e ff e4 |/. | MOVE.L (A6-0x1c),-(A7)
0002412e 4e ba fb 26 |N & | JSR 0x23c56
00024132 de c2 | | ADDA.W D2,A7
00024134 60 00 00 ae |` | BRA 0x241e4
00024138 switch@0x24062[0xb]:
00024138 2f 11 |/ | MOVE.L (A1),-(A7)
0002413a 2f 14 |/ | MOVE.L (A4),-(A7)
0002413c 2f 13 |/ | MOVE.L (A3),-(A7)
0002413e 2f 2e ff e8 |/. | MOVE.L (A6-0x18),-(A7)
00024142 2f 2e ff e4 |/. | MOVE.L (A6-0x1c),-(A7)
00024146 4e ba fa 7a |N z | JSR 0x23bc2
0002414a 60 e6 |` | BRA 0x24132
0002414c switch@0x24062[0xc]:
0002414c 2f 11 |/ | MOVE.L (A1),-(A7)
0002414e 2f 14 |/ | MOVE.L (A4),-(A7)
00024150 2f 13 |/ | MOVE.L (A3),-(A7)
00024152 4e ba fb b8 |N | JSR 0x23d0c
00024156 de fc 00 0c | | ADDA.W #0xc,A7
0002415a 7e 01 |~ | MOVEQ.L #0x01,D7
0002415c 60 00 00 86 |` | BRA 0x241e4
00024160 switch@0x24062[0xd]:
00024160 2f 11 |/ | MOVE.L (A1),-(A7)
00024162 2f 14 |/ | MOVE.L (A4),-(A7)
00024164 2f 13 |/ | MOVE.L (A3),-(A7)
00024166 2f 2e ff e8 |/. | MOVE.L (A6-0x18),-(A7)
0002416a 2f 2e ff e4 |/. | MOVE.L (A6-0x1c),-(A7)
0002416e 4e ba fa 52 |N R | JSR 0x23bc2
00024172 de c2 | | ADDA.W D2,A7
00024174 60 e4 |` | BRA 0x2415a
00024176 switch@0x24062[0xe]:
00024176 60 e2 |` | BRA 0x2415a
00024178 switch@0x24062[0xf]:
00024178 2f 11 |/ | MOVE.L (A1),-(A7)
0002417a 51 4f |QO | SUBQ.L #0x8,A7
0002417c 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7)
00024180 2f 06 |/ | MOVE.L D6,-(A7)
00024182 4e ba db b0 |N | JSR 0x21d34
00024186 50 4f |PO | ADDQ.L #0x8,A7
00024188 4e ba fb 82 |N | JSR 0x23d0c
0002418c de fc 00 0c | | ADDA.W #0xc,A7
00024190 60 52 |`R | BRA 0x241e4
00024192 switch@0x24062[0x10]:
00024192 2f 11 |/ | MOVE.L (A1),-(A7)
00024194 51 4f |QO | SUBQ.L #0x8,A7
00024196 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7)
0002419a 2f 06 |/ | MOVE.L D6,-(A7)
0002419c 4e ba db 96 |N | JSR 0x21d34
000241a0 50 4f |PO | ADDQ.L #0x8,A7
000241a2 4e ba fb ee |N | JSR 0x23d92
000241a6 60 ae |` | BRA 0x24156
000241a8 switch@0x24062[0x11]:
000241a8 2f 11 |/ | MOVE.L (A1),-(A7)
000241aa 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7)
000241ae 2f 12 |/ | MOVE.L (A2),-(A7)
000241b0 4e ba fc 50 |N P | JSR 0x23e02
000241b4 60 d6 |` | BRA 0x2418c
000241b6 switch@0x24062[0x12]:
000241b6 60 2c |`, | BRA 0x241e4
000241b8 switch@0x24062[0x13]:
000241b8 60 a0 |` | BRA 0x2415a
000241ba switch@0x24062[0x14]:
000241ba 41 fa cc 44 |A D | LEA.L 0x20e00,A0
000241be 70 05 |p | MOVEQ.L #0x05,D0
000241c0 2f 20 |/ | MOVE.L -(A0),-(A7)
000241c2 51 c8 ff fc |Q | DBF D0,0x241c0
000241c6 59 4f |YO | SUBQ.L #0x4,A7
000241c8 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000241cc 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
000241d0 3f 3c 00 18 |?< | MOVE.W #0x18,-(A7)
000241d4 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
000241da 50 4f |PO | ADDQ.L #0x8,A7
000241dc 4e ba cf 0c |N | JSR 0x210ea
000241e0 de fc 00 1c | | ADDA.W #0x1c,A7
000241e4 4a 07 |J | TST.B D7
000241e6 66 46 |fF | BNE 0x2422e
000241e8 48 6e ff f4 |Hn | PEA.L (A6-0xc)
000241ec 48 52 |HR | PEA.L (A2)
000241ee 4e ba fc 5a |N Z | JSR 0x23e4a
000241f2 50 4f |PO | ADDQ.L #0x8,A7
000241f4 20 2e ff cc | . | MOVE.L (A6-0x34),D0
000241f8 0c 80 00 00 00 13 | | CMPI.L #0x00000013,D0
000241fe 63 02 |c | BLS 0x24202
00024200 4e 4f |NO | TRAP #15
00024202 28 00 |( | MOVE.L D0,D4
00024204 76 07 |v | MOVEQ.L #0x07,D3
00024206 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4
0002420c 41 fa ce 0e |A | LEA.L 0x2101c,A0
00024210 20 2e ff f4 | . | MOVE.L (A6-0xc),D0
00024214 0c 80 00 00 00 06 | | CMPI.L #0x00000006,D0
0002421a 63 02 |c | BLS 0x2421e
0002421c 4e 4f |NO | TRAP #15
0002421e 41 f0 48 00 |A H | LEA.L (A0+D4.L),A0
00024222 12 30 08 00 | 0 | MOVE.B (A0+D0.L),D1
00024226 48 81 |H | EXTB.W D1
00024228 48 c1 |H | EXTW.L D1
0002422a 2d 41 ff cc |-A | MOVE.L D1,(A6-0x34)
0002422e 4a 07 |J | TST.B D7
00024230 67 00 fe 24 |g $ | BEQ 0x24056
00024234 2f 2e ff d8 |/. | MOVE.L (A6-0x28),-(A7)
00024238 2f 11 |/ | MOVE.L (A1),-(A7)
0002423a 4e ba fd 48 |N H | JSR 0x23f84
0002423e 50 4f |PO | ADDQ.L #0x8,A7
00024240 48 51 |HQ | PEA.L (A1)
00024242 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String)
00024248 58 4f |XO | ADDQ.L #0x4,A7
0002424a 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
0002424e 4e 5e |N^ | UNLK A6
00024250 4e 75 |Nu | RTS
00024252 ; --------------------------------------------------------------------------------------
00024252 ; OMSI PASCAL Function
00024252 ; <LVAR 0x014 4(rw)>
00024252 ; <LVAR 0x010 4(r)>
00024252 ; <LVAR 0x00c 4(r)>
00024252 ; <LVAR 0x008 4(r)>
00024252 ; <LVAR -0x008 4(rw)>
00024252 ; <LVAR -0x00c 4(rw)>
00024252 ; <LVAR -0x018 4(w)>
00024252 ; --------------------------------------------------------------------------------------
00024252 4e 56 ff 96 |NV | LINK.W A6,#0xff96
00024256 bf d5 | | CMPA.L (A5),A7
00024258 62 06 |b | BHI 0x24260
0002425a 44 fc 00 02 |D | MOVE.W #0x2,CCR
0002425e 4e 76 |Nv | TRAPV
00024260 de fc 00 52 | R | ADDA.W #0x52,A7
00024264 48 e7 e7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7)
00024268 43 ee ff f8 |C | LEA.L (A6-0x8),A1
0002426c 45 ee 00 10 |E | LEA.L (A6+0x10),A2
00024270 47 ee 00 0c |G | LEA.L (A6+0xc),A3
00024274 49 ee ff f4 |I | LEA.L (A6-0xc),A4
00024278 74 0c |t | MOVEQ.L #0x0c,D2
0002427a 42 ae 00 14 |B | CLR.L (A6+0x14)
0002427e 59 4f |YO | SUBQ.L #0x4,A7
00024280 2f 12 |/ | MOVE.L (A2),-(A7)
00024282 2f 13 |/ | MOVE.L (A3),-(A7)
00024284 4e ba da 76 |N v | JSR 0x21cfc
00024288 50 4f |PO | ADDQ.L #0x8,A7
0002428a 28 9f |( | MOVE.L (A7)+,(A4)
0002428c 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0
00024290 30 10 |0 | MOVE.W (A0),D0
00024292 48 c0 |H | EXTW.L D0
00024294 52 80 |R | ADDQ.L #0x1,D0
00024296 22 80 |" | MOVE.L D0,(A1)
00024298 44 80 |D | NEG.L D0
0002429a d0 94 | | ADD.L (A4),D0
0002429c 52 80 |R | ADDQ.L #0x1,D0
0002429e 2f 00 |/ | MOVE.L D0,-(A7)
000242a0 70 01 |p | MOVEQ.L #0x01,D0
000242a2 b0 97 | | CMP.L (A7),D0
000242a4 6e 00 00 9a |n | BGT 0x24340
000242a8 2d 40 ff e8 |-@ | MOVE.L D0,(A6-0x18)
000242ac 2f 00 |/ | MOVE.L D0,-(A7)
000242ae 7c 00 || | MOVEQ.L #0x00,D6
000242b0 2f 11 |/ | MOVE.L (A1),-(A7)
000242b2 7a 01 |z | MOVEQ.L #0x01,D5
000242b4 ba 97 | | CMP.L (A7),D5
000242b6 6e 48 |nH | BGT 0x24300
000242b8 0c 85 00 00 00 01 | | CMPI.L #0x00000001,D5
000242be 66 04 |f | BNE 0x242c4
000242c0 7e 2f |~/ | MOVEQ.L #0x2f,D7
000242c2 60 18 |` | BRA 0x242dc
000242c4 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0
000242c8 20 05 | | MOVE.L D5,D0
000242ca 53 80 |S | SUBQ.L #0x1,D0
000242cc 53 80 |S | SUBQ.L #0x1,D0
000242ce 0c 80 00 00 00 7d | } | CMPI.L #0x0000007d,D0
000242d4 63 02 |c | BLS 0x242d8
000242d6 4e 4f |NO | TRAP #15
000242d8 1e 30 08 02 | 0 | MOVE.B (A0+D0.L+#0x2),D7
000242dc 55 4f |UO | SUBQ.L #0x2,A7
000242de 2f 12 |/ | MOVE.L (A2),-(A7)
000242e0 2f 13 |/ | MOVE.L (A3),-(A7)
000242e2 20 2f 00 0e | / | MOVE.L (A7+0xe),D0
000242e6 d0 85 | | ADD.L D5,D0
000242e8 53 80 |S | SUBQ.L #0x1,D0
000242ea 2f 00 |/ | MOVE.L D0,-(A7)
000242ec 4e ba f5 fa |N | JSR 0x238e8
000242f0 de c2 | | ADDA.W D2,A7
000242f2 be 1f | | CMP.B (A7)+,D7
000242f4 67 04 |g | BEQ 0x242fa
000242f6 58 4f |XO | ADDQ.L #0x4,A7
000242f8 60 08 |` | BRA 0x24302
000242fa 2c 05 |, | MOVE.L D5,D6
000242fc 52 85 |R | ADDQ.L #0x1,D5
000242fe 68 b4 |h | BVC 0x242b4
00024300 58 4f |XO | ADDQ.L #0x4,A7
00024302 bc 91 | | CMP.L (A1),D6
00024304 66 32 |f2 | BNE 0x24338
00024306 20 17 | | MOVE.L (A7),D0
00024308 22 00 |" | MOVE.L D0,D1
0002430a d2 91 | | ADD.L (A1),D1
0002430c b2 94 | | CMP.L (A4),D1
0002430e 6c 26 |l& | BGE 0x24336
00024310 55 4f |UO | SUBQ.L #0x2,A7
00024312 2f 12 |/ | MOVE.L (A2),-(A7)
00024314 2f 13 |/ | MOVE.L (A3),-(A7)
00024316 2f 01 |/ | MOVE.L D1,-(A7)
00024318 4e ba f5 ce |N | JSR 0x238e8
0002431c de c2 | | ADDA.W D2,A7
0002431e 1e 1f | | MOVE.B (A7)+,D7
00024320 0c 07 00 2f | / | CMPI.B #0x2f,D7
00024324 67 06 |g | BEQ 0x2432c
00024326 0c 07 00 3d | = | CMPI.B #0x3d,D7
0002432a 66 08 |f | BNE 0x24334
0002432c 2d 40 00 14 |-@ | MOVE.L D0,(A6+0x14)
00024330 50 4f |PO | ADDQ.L #0x8,A7
00024332 60 0e |` | BRA 0x24342
00024334 60 02 |` | BRA 0x24338
00024336 60 f4 |` | BRA 0x2432c
00024338 20 1f | | MOVE.L (A7)+,D0
0002433a 52 80 |R | ADDQ.L #0x1,D0
0002433c 68 00 ff 64 |h d | BVC 0x242a2
00024340 58 4f |XO | ADDQ.L #0x4,A7
00024342 4c df 1f e7 |L | MOVEM.L (A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3+A4
00024346 4e 5e |N^ | UNLK A6
00024348 4e 75 |Nu | RTS
0002434a ; --------------------------------------------------------------------------------------
0002434a ; OMSI PASCAL Function
0002434a ; <LVAR 0x018 4(r)>
0002434a ; <LVAR 0x014 4(r)>
0002434a ; <LVAR 0x010 4(r)>
0002434a ; <LVAR 0x00c 4(r)>
0002434a ; <LVAR 0x008 4(r)>
0002434a ; <LVAR -0x008 4(rw)>
0002434a ; <LVAR -0x014 4(rw)>
0002434a ; <LVAR -0x018 4(rw)>
0002434a ; <LVAR -0x01c 4(rw)>
0002434a ; --------------------------------------------------------------------------------------
0002434a 4e 56 ff 8e |NV | LINK.W A6,#0xff8e
0002434e bf d5 | | CMPA.L (A5),A7
00024350 62 06 |b | BHI 0x24358
00024352 44 fc 00 02 |D | MOVE.W #0x2,CCR
00024356 4e 76 |Nv | TRAPV
00024358 de fc 00 56 | V | ADDA.W #0x56,A7
0002435c 48 e7 e7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7)
00024360 45 ee ff e4 |E | LEA.L (A6-0x1c),A2
00024364 47 ee ff e8 |G | LEA.L (A6-0x18),A3
00024368 49 ee ff f8 |I | LEA.L (A6-0x8),A4
0002436c 72 0c |r | MOVEQ.L #0x0c,D1
0002436e 74 01 |t | MOVEQ.L #0x01,D2
00024370 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0
00024374 42 10 |B | CLR.B (A0)
00024376 22 6e 00 0c |"n | MOVEA.L (A6+0xc),A1
0002437a 22 82 |" | MOVE.L D2,(A1)
0002437c 51 4f |QO | SUBQ.L #0x8,A7
0002437e 2f 2e 00 18 |/. | MOVE.L (A6+0x18),-(A7)
00024382 2f 2e 00 14 |/. | MOVE.L (A6+0x14),-(A7)
00024386 4e ba d9 ac |N | JSR 0x21d34
0002438a 50 4f |PO | ADDQ.L #0x8,A7
0002438c 24 9f |$ | MOVE.L (A7)+,(A2)
0002438e 26 9f |& | MOVE.L (A7)+,(A3)
00024390 4a 92 |J | TST.L (A2)
00024392 67 00 00 96 |g | BEQ 0x2442a
00024396 59 4f |YO | SUBQ.L #0x4,A7
00024398 2f 13 |/ | MOVE.L (A3),-(A7)
0002439a 2f 12 |/ | MOVE.L (A2),-(A7)
0002439c 2f 2e 00 10 |/. | MOVE.L (A6+0x10),-(A7)
000243a0 4e ba fe b0 |N | JSR 0x24252
000243a4 de c1 | | ADDA.W D1,A7
000243a6 2d 5f ff ec |-_ | MOVE.L (A7)+,(A6-0x14)
000243aa 67 7e |g~ | BEQ 0x2442a
000243ac 10 82 | | MOVE.B D2,(A0)
000243ae 48 51 |HQ | PEA.L (A1)
000243b0 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String)
000243b6 2f 13 |/ | MOVE.L (A3),-(A7)
000243b8 2f 12 |/ | MOVE.L (A2),-(A7)
000243ba 4e ba d9 40 |N @ | JSR 0x21cfc
000243be 50 4f |PO | ADDQ.L #0x8,A7
000243c0 28 9f |( | MOVE.L (A7)+,(A4)
000243c2 20 2e ff ec | . | MOVE.L (A6-0x14),D0
000243c6 52 80 |R | ADDQ.L #0x1,D0
000243c8 2f 14 |/ | MOVE.L (A4),-(A7)
000243ca 2a 00 |* | MOVE.L D0,D5
000243cc ba 97 | | CMP.L (A7),D5
000243ce 6e 58 |nX | BGT 0x24428
000243d0 55 4f |UO | SUBQ.L #0x2,A7
000243d2 2f 13 |/ | MOVE.L (A3),-(A7)
000243d4 2f 12 |/ | MOVE.L (A2),-(A7)
000243d6 2f 05 |/ | MOVE.L D5,-(A7)
000243d8 4e ba f5 0e |N | JSR 0x238e8
000243dc de c1 | | ADDA.W D1,A7
000243de 10 1f | | MOVE.B (A7)+,D0
000243e0 0c 00 00 3d | = | CMPI.B #0x3d,D0
000243e4 66 3e |f> | BNE 0x24424
000243e6 20 05 | | MOVE.L D5,D0
000243e8 52 80 |R | ADDQ.L #0x1,D0
000243ea 2f 14 |/ | MOVE.L (A4),-(A7)
000243ec 2e 00 |. | MOVE.L D0,D7
000243ee be 97 | | CMP.L (A7),D7
000243f0 6e 2e |n. | BGT 0x24420
000243f2 55 4f |UO | SUBQ.L #0x2,A7
000243f4 2f 13 |/ | MOVE.L (A3),-(A7)
000243f6 2f 12 |/ | MOVE.L (A2),-(A7)
000243f8 2f 07 |/ | MOVE.L D7,-(A7)
000243fa 4e ba f4 ec |N | JSR 0x238e8
000243fe de c1 | | ADDA.W D1,A7
00024400 1c 1f | | MOVE.B (A7)+,D6
00024402 0c 06 00 2f | / | CMPI.B #0x2f,D6
00024406 66 04 |f | BNE 0x2440c
00024408 50 4f |PO | ADDQ.L #0x8,A7
0002440a 60 1e |` | BRA 0x2442a
0002440c 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0
00024410 2f 10 |/ | MOVE.L (A0),-(A7)
00024412 1f 06 | | MOVE.B D6,-(A7)
00024414 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char)
0002441a 5c 4f |\O | ADDQ.L #0x6,A7
0002441c 52 87 |R | ADDQ.L #0x1,D7
0002441e 68 ce |h | BVC 0x243ee
00024420 50 4f |PO | ADDQ.L #0x8,A7
00024422 60 06 |` | BRA 0x2442a
00024424 52 85 |R | ADDQ.L #0x1,D5
00024426 68 a4 |h | BVC 0x243cc
00024428 58 4f |XO | ADDQ.L #0x4,A7
0002442a 4c df 1f e7 |L | MOVEM.L (A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3+A4
0002442e 4e 5e |N^ | UNLK A6
00024430 4e 75 |Nu | RTS
00024432 ; --------------------------------------------------------------------------------------
00024432 ; OMSI PASCAL Function
00024432 ; <LVAR 0x00c @ 4(r)>
00024432 ; <LVAR 0x008 4(r)>
00024432 ; <LVAR -0x010 @ 1(r)>
00024432 ; --------------------------------------------------------------------------------------
00024432 4e 56 ff c0 |NV | LINK.W A6,#0xffc0
00024436 bf d5 | | CMPA.L (A5),A7
00024438 62 06 |b | BHI 0x24440
0002443a 44 fc 00 02 |D | MOVE.W #0x2,CCR
0002443e 4e 76 |Nv | TRAPV
00024440 de fc 00 30 | 0 | ADDA.W #0x30,A7
00024444 48 e7 87 f0 |H | MOVEM.L A3+A2+A1+A0+D7+D6+D5+D0,-(A7)
00024448 43 f9 00 02 7b fc |C { | LEA.L 0x27bfc,A1
0002444e 45 ee 00 08 |E | LEA.L (A6+0x8),A2
00024452 47 ee 00 0c |G | LEA.L (A6+0xc),A3
00024456 2f 13 |/ | MOVE.L (A3),-(A7)
00024458 2f 12 |/ | MOVE.L (A2),-(A7)
0002445a 48 6e ff f0 |Hn | PEA.L (A6-0x10)
0002445e 4e b9 00 02 09 7c |N | | JSR 0x2097c
00024464 de fc 00 0c | | ADDA.W #0xc,A7
00024468 4a 2e ff f0 |J. | TST.B (A6-0x10)
0002446c 66 50 |fP | BNE 0x244be
0002446e 2e 11 |. | MOVE.L (A1),D7
00024470 59 4f |YO | SUBQ.L #0x4,A7
00024472 2f 12 |/ | MOVE.L (A2),-(A7)
00024474 4e ba d0 80 |N | JSR 0x214f6
00024478 58 4f |XO | ADDQ.L #0x4,A7
0002447a 2c 1f |, | MOVE.L (A7)+,D6
0002447c 2f 13 |/ | MOVE.L (A3),-(A7)
0002447e 2f 12 |/ | MOVE.L (A2),-(A7)
00024480 4e ba f3 2a |N * | JSR 0x237ac
00024484 50 4f |PO | ADDQ.L #0x8,A7
00024486 2a 11 |* | MOVE.L (A1),D5
00024488 20 07 | | MOVE.L D7,D0
0002448a 53 80 |S | SUBQ.L #0x1,D0
0002448c 0c 80 00 00 0f ff | | CMPI.L #0x00000fff,D0
00024492 63 02 |c | BLS 0x24496
00024494 4e 4f |NO | TRAP #15
00024496 41 f9 00 02 6b f4 |A k | LEA.L 0x26bf4,A0
0002449c 10 30 08 08 | 0 | MOVE.B (A0+D0.L+#0x8),D0
000244a0 0c 00 00 25 | % | CMPI.B #0x25,D0
000244a4 66 0c |f | BNE 0x244b2
000244a6 22 87 |" | MOVE.L D7,(A1)
000244a8 2f 12 |/ | MOVE.L (A2),-(A7)
000244aa 2f 06 |/ | MOVE.L D6,-(A7)
000244ac 4e ba fb 5c |N \ | JSR 0x2400a
000244b0 50 4f |PO | ADDQ.L #0x8,A7
000244b2 52 87 |R | ADDQ.L #0x1,D7
000244b4 be b9 00 02 7c 00 | | | CMP.L 0x27c00,D7
000244ba 6f cc |o | BLE 0x24488
000244bc 22 85 |" | MOVE.L D5,(A1)
000244be 48 53 |HS | PEA.L (A3)
000244c0 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String)
000244c6 58 4f |XO | ADDQ.L #0x4,A7
000244c8 4c df 0f e1 |L | MOVEM.L (A7)+,D0+D5+D6+D7+A0+A1+A2+A3
000244cc 4e 5e |N^ | UNLK A6
000244ce 4e 75 |Nu | RTS
000244d0 ; --------------------------------------------------------------------------------------
000244d0 ; OMSI PASCAL Function
000244d0 ; <LVAR -0x006 @ 4(r)>
000244d0 ; <LVAR -0x00a @ 4(rw)>
000244d0 ; <LVAR -0x00b 1(w)>
000244d0 ; <LVAR -0x00c @ 1(r)>
000244d0 ; --------------------------------------------------------------------------------------
000244d0 4e 56 ff 94 |NV | LINK.W A6,#0xff94
000244d4 bf d5 | | CMPA.L (A5),A7
000244d6 62 06 |b | BHI 0x244de
000244d8 44 fc 00 02 |D | MOVE.W #0x2,CCR
000244dc 4e 76 |Nv | TRAPV
000244de de fc 00 54 | T | ADDA.W #0x54,A7
000244e2 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
000244e6 45 ee ff fa |E | LEA.L (A6-0x6),A2
000244ea 47 f9 00 02 7b fc |G { | LEA.L 0x27bfc,A3
000244f0 49 ee ff f6 |I | LEA.L (A6-0xa),A4
000244f4 2e 13 |. | MOVE.L (A3),D7
000244f6 48 52 |HR | PEA.L (A2)
000244f8 48 6e ff f4 |Hn | PEA.L (A6-0xc)
000244fc 4e ba cf 4c |N L | JSR 0x2144a
00024500 50 4f |PO | ADDQ.L #0x8,A7
00024502 2c 13 |, | MOVE.L (A3),D6
00024504 59 4f |YO | SUBQ.L #0x4,A7
00024506 2f 12 |/ | MOVE.L (A2),-(A7)
00024508 4e ba cf ec |N | JSR 0x214f6
0002450c 58 4f |XO | ADDQ.L #0x4,A7
0002450e 20 1f | | MOVE.L (A7)+,D0
00024510 0c 80 ff ff ff ff | | CMPI.L #0xffffffff,D0
00024516 67 00 02 ac |g | BEQ 0x247c4
0002451a 59 4f |YO | SUBQ.L #0x4,A7
0002451c 2f 12 |/ | MOVE.L (A2),-(A7)
0002451e 48 78 00 00 |Hx | PEA.L 0x0
00024522 4e ba d8 ee |N | JSR 0x21e12
00024526 50 4f |PO | ADDQ.L #0x8,A7
00024528 28 97 |( | MOVE.L (A7),(A4)
0002452a 54 4f |TO | ADDQ.L #0x2,A7
0002452c 2f 14 |/ | MOVE.L (A4),-(A7)
0002452e 4e ba f1 c4 |N | JSR 0x236f4
00024532 58 4f |XO | ADDQ.L #0x4,A7
00024534 10 1f | | MOVE.B (A7)+,D0
00024536 48 80 |H | EXTB.W D0
00024538 41 bc 00 2b |A + | CHK.W #0x2b,D0
0002453c 1d 40 ff f5 | @ | MOVE.B D0,(A6-0xb)
00024540 4a 00 |J | TST.B D0
00024542 66 0e |f | BNE 0x24552
00024544 2f 14 |/ | MOVE.L (A4),-(A7)
00024546 2f 12 |/ | MOVE.L (A2),-(A7)
00024548 4e ba fe e8 |N | JSR 0x24432
0002454c 50 4f |PO | ADDQ.L #0x8,A7
0002454e 60 00 02 6c |` l | BRA 0x247bc
00024552 48 54 |HT | PEA.L (A4)
00024554 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String)
0002455a 58 4f |XO | ADDQ.L #0x4,A7
0002455c 12 00 | | MOVE.B D0,D1
0002455e 48 81 |H | EXTB.W D1
00024560 43 bc 00 2b |C + | CHK.W #0x2b,D1
00024564 41 fa ca 86 |A | LEA.L 0x20fec,A0
00024568 30 01 |0 | MOVE.W D1,D0
0002456a 48 c0 |H | EXTW.L D0
0002456c 24 00 |$ | MOVE.L D0,D2
0002456e e2 9a | | ROR.L #0x1,D2
00024570 d0 c2 | | ADDA.W D2,A0
00024572 48 42 |HB | SWAP.W D2
00024574 e7 5a | Z | ROL.W #0x3,D2
00024576 42 83 |B | CLR.L D3
00024578 16 10 | | MOVE.B (A0),D3
0002457a e5 2b | + | LSL.B D2,D3
0002457c e8 0b | | LSR.B #0x4,D3
0002457e 2a 03 |* | MOVE.L D3,D5
00024580 0c 85 00 00 00 0f | | CMPI.L #0x0000000f,D5
00024586 67 2c |g, | BEQ 0x245b4
00024588 28 00 |( | MOVE.L D0,D4
0002458a 76 0a |v | MOVEQ.L #0x0a,D3
0002458c 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4
00024592 41 fa c8 8a |A | LEA.L COMMAND_TABLE_20e1e,A0
00024596 9e fc 00 0a | | SUBA.W #0xa,A7
0002459a 22 4f |"O | MOVEA.L A7,A1
0002459c 41 f0 40 00 |A @ | LEA.L (A0+D4.W),A0
000245a0 70 09 |p | MOVEQ.L #0x09,D0
000245a2 12 d8 | | MOVE.B (A0)+,(A1)+
000245a4 51 c8 ff fc |Q | DBF D0,0x245a2
000245a8 2f 12 |/ | MOVE.L (A2),-(A7)
000245aa 2f 05 |/ | MOVE.L D5,-(A7)
000245ac 4e ba cf 7e |N ~ | JSR 0x2152c
000245b0 de fc 00 12 | | ADDA.W #0x12,A7
000245b4 53 41 |SA | SUBQ.W #0x1,D1
000245b6 0c 41 00 2a | A * | CMPI.W #0x002a,D1
000245ba 63 02 |c | BLS 0x245be
000245bc 4e 4e |NN | TRAP #14
000245be d2 41 | A | ADD.W D1,D1
000245c0 32 3b 10 06 4e fb 10 02 |2; N | SWITCH D1.W
000245c8 00 56 | V | .CONST 0x56 ; [0x0] -> 0x2461e
000245ca 00 62 | b | .CONST 0x62 ; [0x1] -> 0x2462a
000245cc 00 74 | t | .CONST 0x74 ; [0x2] -> 0x2463c
000245ce 00 82 | | .CONST 0x82 ; [0x3] -> 0x2464a
000245d0 01 e6 | | .CONST 0x1e6 ; [0x4] -> 0x247ae
000245d2 00 8a | | .CONST 0x8a ; [0x5] -> 0x24652
000245d4 00 8e | | .CONST 0x8e ; [0x6] -> 0x24656
000245d6 00 96 | | .CONST 0x96 ; [0x7] -> 0x2465e
000245d8 00 9e | | .CONST 0x9e ; [0x8] -> 0x24666
000245da 00 a6 | | .CONST 0xa6 ; [0x9] -> 0x2466e
000245dc 00 ae | | .CONST 0xae ; [0xa] -> 0x24676
000245de 00 b6 | | .CONST 0xb6 ; [0xb] -> 0x2467e
000245e0 00 be | | .CONST 0xbe ; [0xc] -> 0x24686
000245e2 00 c6 | | .CONST 0xc6 ; [0xd] -> 0x2468e
000245e4 00 ce | | .CONST 0xce ; [0xe] -> 0x24696
000245e6 00 d6 | | .CONST 0xd6 ; [0xf] -> 0x2469e
000245e8 00 e0 | | .CONST 0xe0 ; [0x10] -> 0x246a8
000245ea 00 ea | | .CONST 0xea ; [0x11] -> 0x246b2
000245ec 00 f4 | | .CONST 0xf4 ; [0x12] -> 0x246bc
000245ee 00 fe | | .CONST 0xfe ; [0x13] -> 0x246c6
000245f0 01 08 | | .CONST 0x108 ; [0x14] -> 0x246d0
000245f2 01 12 | | .CONST 0x112 ; [0x15] -> 0x246da
000245f4 01 1c | | .CONST 0x11c ; [0x16] -> 0x246e4
000245f6 01 26 | & | .CONST 0x126 ; [0x17] -> 0x246ee
000245f8 01 30 | 0 | .CONST 0x130 ; [0x18] -> 0x246f8
000245fa 01 3a | : | .CONST 0x13a ; [0x19] -> 0x24702
000245fc 01 44 | D | .CONST 0x144 ; [0x1a] -> 0x2470c
000245fe 01 4e | N | .CONST 0x14e ; [0x1b] -> 0x24716
00024600 01 58 | X | .CONST 0x158 ; [0x1c] -> 0x24720
00024602 01 62 | b | .CONST 0x162 ; [0x1d] -> 0x2472a
00024604 01 6c | l | .CONST 0x16c ; [0x1e] -> 0x24734
00024606 01 76 | v | .CONST 0x176 ; [0x1f] -> 0x2473e
00024608 01 80 | | .CONST 0x180 ; [0x20] -> 0x24748
0002460a 01 8a | | .CONST 0x18a ; [0x21] -> 0x24752
0002460c 01 94 | | .CONST 0x194 ; [0x22] -> 0x2475c
0002460e 01 9e | | .CONST 0x19e ; [0x23] -> 0x24766
00024610 01 a8 | | .CONST 0x1a8 ; [0x24] -> 0x24770
00024612 01 b2 | | .CONST 0x1b2 ; [0x25] -> 0x2477a
00024614 01 b8 | | .CONST 0x1b8 ; [0x26] -> 0x24780
00024616 01 c2 | | .CONST 0x1c2 ; [0x27] -> 0x2478a
00024618 01 cc | | .CONST 0x1cc ; [0x28] -> 0x24794
0002461a 01 d6 | | .CONST 0x1d6 ; [0x29] -> 0x2479e
0002461c 01 dc | | .CONST 0x1dc ; [0x2a] -> 0x247a4
0002461e switch@0x245c0[0x0]:
0002461e 2f 12 |/ | MOVE.L (A2),-(A7)
00024620 4e ba d9 78 |N x | JSR 0x21f9a
00024624 58 4f |XO | ADDQ.L #0x4,A7
00024626 60 00 01 94 |` | BRA 0x247bc
0002462a switch@0x245c0[0x1]:
0002462a 42 27 |B' | CLR.B -(A7)
0002462c 48 78 00 01 |Hx | PEA.L 0x1
00024630 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String)
00024636 5c 4f |\O | ADDQ.L #0x6,A7
00024638 60 00 01 82 |` | BRA 0x247bc
0002463c switch@0x245c0[0x2]:
0002463c 59 4f |YO | SUBQ.L #0x4,A7
0002463e 4e b9 00 01 02 ac |N | JSR FSCALL_102ac
00024644 4e ba d9 2a |N * | JSR 0x21f70
00024648 60 da |` | BRA 0x24624
0002464a switch@0x245c0[0x3]:
0002464a 2f 12 |/ | MOVE.L (A2),-(A7)
0002464c 4e ba db 26 |N & | JSR 0x22174
00024650 60 d2 |` | BRA 0x24624
00024652 switch@0x245c0[0x5]:
00024652 60 00 01 68 |` h | BRA 0x247bc
00024656 switch@0x245c0[0x6]:
00024656 2f 12 |/ | MOVE.L (A2),-(A7)
00024658 4e ba de 40 |N @ | JSR 0x2249a
0002465c 60 c6 |` | BRA 0x24624
0002465e switch@0x245c0[0x7]:
0002465e 2f 12 |/ | MOVE.L (A2),-(A7)
00024660 4e ba df a4 |N | JSR 0x22606
00024664 60 be |` | BRA 0x24624
00024666 switch@0x245c0[0x8]:
00024666 2f 12 |/ | MOVE.L (A2),-(A7)
00024668 4e ba e0 8a |N | JSR 0x226f4
0002466c 60 b6 |` | BRA 0x24624
0002466e switch@0x245c0[0x9]:
0002466e 2f 12 |/ | MOVE.L (A2),-(A7)
00024670 4e ba e4 76 |N v | JSR 0x22ae8
00024674 60 ae |` | BRA 0x24624
00024676 switch@0x245c0[0xa]:
00024676 2f 12 |/ | MOVE.L (A2),-(A7)
00024678 4e ba e4 e6 |N | JSR 0x22b60
0002467c 60 a6 |` | BRA 0x24624
0002467e switch@0x245c0[0xb]:
0002467e 2f 12 |/ | MOVE.L (A2),-(A7)
00024680 4e ba e5 56 |N V | JSR 0x22bd8
00024684 60 9e |` | BRA 0x24624
00024686 switch@0x245c0[0xc]:
00024686 2f 12 |/ | MOVE.L (A2),-(A7)
00024688 4e ba e5 7a |N z | JSR 0x22c04
0002468c 60 96 |` | BRA 0x24624
0002468e switch@0x245c0[0xd]:
0002468e 2f 12 |/ | MOVE.L (A2),-(A7)
00024690 4e ba e6 72 |N r | JSR 0x22d04
00024694 60 8e |` | BRA 0x24624
00024696 switch@0x245c0[0xe]:
00024696 2f 12 |/ | MOVE.L (A2),-(A7)
00024698 4e ba e7 50 |N P | JSR 0x22dea
0002469c 60 86 |` | BRA 0x24624
0002469e switch@0x245c0[0xf]:
0002469e 2f 12 |/ | MOVE.L (A2),-(A7)
000246a0 4e ba e7 74 |N t | JSR 0x22e16
000246a4 60 00 ff 7e |` ~ | BRA 0x24624
000246a8 switch@0x245c0[0x10]:
000246a8 2f 12 |/ | MOVE.L (A2),-(A7)
000246aa 4e ba e7 b6 |N | JSR 0x22e62
000246ae 60 00 ff 74 |` t | BRA 0x24624
000246b2 switch@0x245c0[0x11]:
000246b2 2f 12 |/ | MOVE.L (A2),-(A7)
000246b4 4e ba e7 f8 |N | JSR 0x22eae
000246b8 60 00 ff 6a |` j | BRA 0x24624
000246bc switch@0x245c0[0x12]:
000246bc 2f 12 |/ | MOVE.L (A2),-(A7)
000246be 4e ba e8 3a |N : | JSR 0x22efa
000246c2 60 00 ff 60 |` ` | BRA 0x24624
000246c6 switch@0x245c0[0x13]:
000246c6 2f 12 |/ | MOVE.L (A2),-(A7)
000246c8 4e ba e8 7c |N | | JSR 0x22f46
000246cc 60 00 ff 56 |` V | BRA 0x24624
000246d0 switch@0x245c0[0x14]:
000246d0 2f 12 |/ | MOVE.L (A2),-(A7)
000246d2 4e ba e8 be |N | JSR 0x22f92
000246d6 60 00 ff 4c |` L | BRA 0x24624
000246da switch@0x245c0[0x15]:
000246da 2f 12 |/ | MOVE.L (A2),-(A7)
000246dc 4e ba e9 00 |N | JSR 0x22fde
000246e0 60 00 ff 42 |` B | BRA 0x24624
000246e4 switch@0x245c0[0x16]:
000246e4 2f 12 |/ | MOVE.L (A2),-(A7)
000246e6 4e ba e9 40 |N @ | JSR 0x23028
000246ea 60 00 ff 38 |` 8 | BRA 0x24624
000246ee switch@0x245c0[0x17]:
000246ee 2f 12 |/ | MOVE.L (A2),-(A7)
000246f0 4e ba e9 80 |N | JSR 0x23072
000246f4 60 00 ff 2e |` . | BRA 0x24624
000246f8 switch@0x245c0[0x18]:
000246f8 2f 12 |/ | MOVE.L (A2),-(A7)
000246fa 4e ba e9 c0 |N | JSR 0x230bc
000246fe 60 00 ff 24 |` $ | BRA 0x24624
00024702 switch@0x245c0[0x19]:
00024702 2f 12 |/ | MOVE.L (A2),-(A7)
00024704 4e ba ea 00 |N | JSR 0x23106
00024708 60 00 ff 1a |` | BRA 0x24624
0002470c switch@0x245c0[0x1a]:
0002470c 2f 12 |/ | MOVE.L (A2),-(A7)
0002470e 4e ba ea 40 |N @ | JSR 0x23150
00024712 60 00 ff 10 |` | BRA 0x24624
00024716 switch@0x245c0[0x1b]:
00024716 2f 12 |/ | MOVE.L (A2),-(A7)
00024718 4e ba ea 80 |N | JSR 0x2319a
0002471c 60 00 ff 06 |` | BRA 0x24624
00024720 switch@0x245c0[0x1c]:
00024720 2f 12 |/ | MOVE.L (A2),-(A7)
00024722 4e ba ea c0 |N | JSR 0x231e4
00024726 60 00 fe fc |` | BRA 0x24624
0002472a switch@0x245c0[0x1d]:
0002472a 2f 12 |/ | MOVE.L (A2),-(A7)
0002472c 4e ba eb 00 |N | JSR 0x2322e
00024730 60 00 fe f2 |` | BRA 0x24624
00024734 switch@0x245c0[0x1e]:
00024734 2f 12 |/ | MOVE.L (A2),-(A7)
00024736 4e ba eb 3a |N : | JSR 0x23272
0002473a 60 00 fe e8 |` | BRA 0x24624
0002473e switch@0x245c0[0x1f]:
0002473e 2f 12 |/ | MOVE.L (A2),-(A7)
00024740 4e ba eb 76 |N v | JSR 0x232b8
00024744 60 00 fe de |` | BRA 0x24624
00024748 switch@0x245c0[0x20]:
00024748 2f 12 |/ | MOVE.L (A2),-(A7)
0002474a 4e ba eb a2 |N | JSR 0x232ee
0002474e 60 00 fe d4 |` | BRA 0x24624
00024752 switch@0x245c0[0x21]:
00024752 2f 12 |/ | MOVE.L (A2),-(A7)
00024754 4e ba ec 28 |N ( | JSR 0x2337e
00024758 60 00 fe ca |` | BRA 0x24624
0002475c switch@0x245c0[0x22]:
0002475c 2f 12 |/ | MOVE.L (A2),-(A7)
0002475e 4e ba ec 90 |N | JSR 0x233f0
00024762 60 00 fe c0 |` | BRA 0x24624
00024766 switch@0x245c0[0x23]:
00024766 2f 12 |/ | MOVE.L (A2),-(A7)
00024768 4e ba df ec |N | JSR 0x22756
0002476c 60 00 fe b6 |` | BRA 0x24624
00024770 switch@0x245c0[0x24]:
00024770 2f 12 |/ | MOVE.L (A2),-(A7)
00024772 4e ba e0 4c |N L | JSR 0x227c0
00024776 60 00 fe ac |` | BRA 0x24624
0002477a switch@0x245c0[0x25]:
0002477a 4e ba e0 16 |N | JSR 0x22792
0002477e 60 3c |`< | BRA 0x247bc
00024780 switch@0x245c0[0x26]:
00024780 2f 12 |/ | MOVE.L (A2),-(A7)
00024782 4e ba ec de |N | JSR 0x23462
00024786 60 00 fe 9c |` | BRA 0x24624
0002478a switch@0x245c0[0x27]:
0002478a 2f 12 |/ | MOVE.L (A2),-(A7)
0002478c 4e ba ed 56 |N V | JSR 0x234e4
00024790 60 00 fe 92 |` | BRA 0x24624
00024794 switch@0x245c0[0x28]:
00024794 2f 12 |/ | MOVE.L (A2),-(A7)
00024796 4e ba ed cc |N | JSR 0x23564
0002479a 60 00 fe 88 |` | BRA 0x24624
0002479e switch@0x245c0[0x29]:
0002479e 4e ba ee 88 |N | JSR 0x23628
000247a2 60 18 |` | BRA 0x247bc
000247a4 switch@0x245c0[0x2a]:
000247a4 2f 12 |/ | MOVE.L (A2),-(A7)
000247a6 4e ba ee a0 |N | JSR 0x23648
000247aa 60 00 fe 78 |` x | BRA 0x24624
000247ae switch@0x245c0[0x4]:
000247ae 2e 6d 00 08 |.m | MOVEA.L (A5+0x8),A7
000247b2 3c 7c 00 00 |<| | MOVEA.W #0x0,A6
000247b6 4e f9 00 02 49 c6 |N I | JMP 0x249c6
000247bc 2f 12 |/ | MOVE.L (A2),-(A7)
000247be 4e ba c8 e8 |N | JSR 0x210a8
000247c2 58 4f |XO | ADDQ.L #0x4,A7
000247c4 2f 06 |/ | MOVE.L D6,-(A7)
000247c6 2f 06 |/ | MOVE.L D6,-(A7)
000247c8 9f 97 | | SUB.L D7,(A7)
000247ca 4e ba ce 72 |N r | JSR 0x2163e
000247ce 50 4f |PO | ADDQ.L #0x8,A7
000247d0 26 87 |& | MOVE.L D7,(A3)
000247d2 4a 2e ff f4 |J. | TST.B (A6-0xc)
000247d6 67 00 fd 1c |g | BEQ 0x244f4
000247da 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
000247de 4e 5e |N^ | UNLK A6
000247e0 4e 75 |Nu | RTS
000247e2 ; --------------------------------------------------------------------------------------
000247e2 ; OMSI PASCAL Function
000247e2 ; --------------------------------------------------------------------------------------
000247e2 START:
000247e2 4f fa 00 08 |O | LEA.L MAIN,A7
000247e6 4e f9 00 01 02 80 |N | JMP ?start_program
000247ec MAIN:
000247ec 23 fc 00 00 00 01 00 02 |# | MOVE.L #0x1,0x27c26
000247f4 7c 26 ||& |
000247f6 59 4f |YO | SUBQ.L #0x4,A7
000247f8 4e b9 00 01 03 c4 |N | JSR GetArgv() : String
000247fe 23 df 00 02 7c 2a |# |* | MOVE.L (A7)+,0x27c2a
00024804 48 79 00 02 7c 04 |Hy | | PEA.L 0x27c04
0002480a 4e b9 00 02 09 f2 |N | JSR 0x209f2
00024810 58 4f |XO | ADDQ.L #0x4,A7
00024812 20 79 00 02 7c 2a | y |* | MOVEA.L 0x27c2a,A0
00024818 4a 50 |JP | TST.W (A0)
0002481a 6f 68 |oh | BLE 0x24884
0002481c 51 4f |QO | SUBQ.L #0x8,A7
0002481e 20 4f | O | MOVEA.L A7,A0
00024820 43 fa c5 de |C | LEA.L 0x20e00,A1
00024824 70 06 |p | MOVEQ.L #0x06,D0
00024826 10 d9 | | MOVE.B (A1)+,(A0)+
00024828 51 c8 ff fc |Q | DBF D0,0x24826
0002482c 51 4f |QO | SUBQ.L #0x8,A7
0002482e 20 4f | O | MOVEA.L A7,A0
00024830 43 fa c5 d6 |C | LEA.L 0x20e08,A1
00024834 70 06 |p | MOVEQ.L #0x06,D0
00024836 10 d9 | | MOVE.B (A1)+,(A0)+
00024838 51 c8 ff fc |Q | DBF D0,0x24836
0002483c 51 4f |QO | SUBQ.L #0x8,A7
0002483e 48 6f 00 10 |Ho | PEA.L (A7+0x10)
00024842 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
00024846 3f 3c 00 07 |?< | MOVE.W #0x7,-(A7)
0002484a 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00024850 58 4f |XO | ADDQ.L #0x4,A7
00024852 2e b9 00 02 7c 2a |. |* | MOVE.L 0x27c2a,(A7)
00024858 59 4f |YO | SUBQ.L #0x4,A7
0002485a 48 6f 00 10 |Ho | PEA.L (A7+0x10)
0002485e 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
00024862 3f 3c 00 07 |?< | MOVE.W #0x7,-(A7)
00024866 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
0002486c 50 4f |PO | ADDQ.L #0x8,A7
0002486e 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String
00024874 de fc 00 0c | | ADDA.W #0xc,A7
00024878 23 df 00 02 7c 2a |# |* | MOVE.L (A7)+,0x27c2a
0002487e de fc 00 10 | | ADDA.W #0x10,A7
00024882 60 3a |`: | BRA 0x248be
00024884 48 79 00 02 7c 2a |Hy |* | PEA.L 0x27c2a
0002488a 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String)
00024890 59 4f |YO | SUBQ.L #0x4,A7
00024892 20 4f | O | MOVEA.L A7,A0
00024894 43 fa c5 7a |C z | LEA.L 0x20e10,A1
00024898 70 06 |p | MOVEQ.L #0x06,D0
0002489a 10 d9 | | MOVE.B (A1)+,(A0)+
0002489c 51 c8 ff fc |Q | DBF D0,0x2489a
000248a0 59 4f |YO | SUBQ.L #0x4,A7
000248a2 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000248a6 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
000248aa 3f 3c 00 07 |?< | MOVE.W #0x7,-(A7)
000248ae 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
000248b4 50 4f |PO | ADDQ.L #0x8,A7
000248b6 23 df 00 02 7c 2a |# |* | MOVE.L (A7)+,0x27c2a
000248bc 50 4f |PO | ADDQ.L #0x8,A7
000248be 13 fc 00 01 00 02 7c 34 | |4| MOVE.B #0x01,0x27c34
000248c6 4a 39 00 02 7c 34 |J9 |4 | TST.B 0x27c34
000248cc 67 0a |g | BEQ 0x248d8
000248ce 42 39 00 02 7c 34 |B9 |4 | CLR.B 0x27c34
000248d4 60 00 00 b0 |` | BRA 0x24986
000248d8 41 f9 00 02 7c 0e |A | | LEA.L 0x27c0e,A0
000248de 70 04 |p | MOVEQ.L #0x04,D0
000248e0 3f 20 |? | MOVE.W -(A0),-(A7)
000248e2 51 c8 ff fc |Q | DBF D0,0x248e0
000248e6 3f 3a c5 30 |?: 0 | MOVE.W 0x20e18,-(A7)
000248ea 9e fc 00 0c | | SUBA.W #0xc,A7
000248ee 48 6f 00 0e |Ho | PEA.L (A7+0xe)
000248f2 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
000248f6 3f 3c 00 0a |?< | MOVE.W #0xa,-(A7)
000248fa 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00024900 58 4f |XO | ADDQ.L #0x4,A7
00024902 48 6f 00 10 |Ho | PEA.L (A7+0x10)
00024906 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
0002490a 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7)
0002490e 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00024914 50 4f |PO | ADDQ.L #0x8,A7
00024916 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
0002491c 50 4f |PO | ADDQ.L #0x8,A7
0002491e 4e b9 00 01 03 e4 |N | JSR AskConsoleString(prompt : String) : String
00024924 58 4f |XO | ADDQ.L #0x4,A7
00024926 23 df 00 02 7c 30 |# |0 | MOVE.L (A7)+,0x27c30
0002492c 50 4f |PO | ADDQ.L #0x8,A7
0002492e 2e b9 00 02 7c 30 |. |0 | MOVE.L 0x27c30,(A7)
00024934 4e ba ca 0c |N | JSR 0x21342
00024938 54 4f |TO | ADDQ.L #0x2,A7
0002493a 3e ba c4 de |> | MOVE.W 0x20e1a,(A7)
0002493e 3f 3a c4 dc |?: | MOVE.W 0x20e1c,-(A7)
00024942 51 4f |QO | SUBQ.L #0x8,A7
00024944 48 6f 00 0a |Ho | PEA.L (A7+0xa)
00024948 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
0002494c 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7)
00024950 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00024956 58 4f |XO | ADDQ.L #0x4,A7
00024958 2e b9 00 02 7c 30 |. |0 | MOVE.L 0x27c30,(A7)
0002495e 59 4f |YO | SUBQ.L #0x4,A7
00024960 48 6f 00 10 |Ho | PEA.L (A7+0x10)
00024964 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
00024968 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7)
0002496c 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00024972 50 4f |PO | ADDQ.L #0x8,A7
00024974 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String
0002497a de fc 00 0c | | ADDA.W #0xc,A7
0002497e 23 df 00 02 7c 2a |# |* | MOVE.L (A7)+,0x27c2a
00024984 58 4f |XO | ADDQ.L #0x4,A7
00024986 42 39 00 02 7c 2e |B9 |. | CLR.B 0x27c2e
0002498c 23 fc 00 00 00 01 00 02 |# | MOVE.L #0x1,0x27bfc
00024994 7b fc |{ |
00024996 42 b9 00 02 7c 00 |B | | CLR.L 0x27c00
0002499c 59 4f |YO | SUBQ.L #0x4,A7
0002499e 2f 39 00 02 7c 2a |/9 |* | MOVE.L 0x27c2a,-(A7)
000249a4 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String
000249aa 58 4f |XO | ADDQ.L #0x4,A7
000249ac 4e ba d5 06 |N | JSR 0x21eb4
000249b0 58 4f |XO | ADDQ.L #0x4,A7
000249b2 20 39 00 02 7b fc | 9 { | MOVE.L 0x27bfc,D0
000249b8 b0 b9 00 02 7c 00 | | | CMP.L 0x27c00,D0
000249be 6e 06 |n | BGT 0x249c6
000249c0 4e ba fb 0e |N | JSR 0x244d0
000249c4 60 ec |` | BRA 0x249b2
000249c6 48 79 00 02 7c 2a |Hy |* | PEA.L 0x27c2a
000249cc 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String)
000249d2 58 4f |XO | ADDQ.L #0x4,A7
000249d4 60 00 fe f0 |` | BRA 0x248c6
000249d8 4e b9 00 01 02 84 |N | .XXX[0x6]
000249de 57 6f 72 64 73 20 65 72 |Words er| .TXT 'Words error :_'
000249ec ; --------------------------------------------------------------------------------------
000249ec ; OMSI PASCAL Function
000249ec ; <LVAR 0x008 1(r)>
000249ec ; --------------------------------------------------------------------------------------
000249ec PROG_FAIL:
000249ec 4e 56 ff d2 |NV | LINK.W A6,#0xffd2
000249f0 bf d5 | | CMPA.L (A5),A7
000249f2 62 06 |b | BHI 0x249fa
000249f4 44 fc 00 02 |D | MOVE.W #0x2,CCR
000249f8 4e 76 |Nv | TRAPV
000249fa de fc 00 2c | , | ADDA.W #0x2c,A7
000249fe 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7)
00024a02 41 fa ff e8 |A | LEA.L PROG_FAIL,A0
00024a06 70 06 |p | MOVEQ.L #0x06,D0
00024a08 3f 20 |? | MOVE.W -(A0),-(A7)
00024a0a 51 c8 ff fc |Q | DBF D0,0x24a08
00024a0e 1f 3c 00 03 | < | MOVE.B #0x03,-(A7)
00024a12 51 4f |QO | SUBQ.L #0x8,A7
00024a14 48 6f 00 0a |Ho | PEA.L (A7+0xa)
00024a18 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
00024a1c 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7)
00024a20 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00024a26 58 4f |XO | ADDQ.L #0x4,A7
00024a28 10 2e 00 08 | . | MOVE.B (A6+0x8),D0
00024a2c 48 80 |H | EXTB.W D0
00024a2e 48 c0 |H | EXTW.L D0
00024a30 2f 00 |/ | MOVE.L D0,-(A7)
00024a32 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String
00024a38 58 4f |XO | ADDQ.L #0x4,A7
00024a3a 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00024a40 50 4f |PO | ADDQ.L #0x8,A7
00024a42 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String)
00024a48 de fc 00 14 | | ADDA.W #0x14,A7
00024a4c 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0
00024a50 4e 5e |N^ | UNLK A6
00024a52 4e 75 |Nu | RTS
00024a54 42 6f 61 72 64 20 20 20 |Board | .TXT 'Board :_ '
00024a62 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment :_ '
00024a70 53 74 61 74 75 73 20 20 |Status | .TXT 'Status :_ '
00024a7e 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment error :'
00024a90 46 61 74 61 6c 20 65 78 |Fatal ex| .TXT 'Fatal experiment error. '
00024aa8 ; --------------------------------------------------------------------------------------
00024aa8 ; OMSI PASCAL Function
00024aa8 ; <LVAR 0x00e 1(r)>
00024aa8 ; <LVAR 0x00a 4(r)>
00024aa8 ; <LVAR 0x008 1(r)>
00024aa8 ; --------------------------------------------------------------------------------------
00024aa8 EXP_FAIL:
00024aa8 4e 56 ff 8c |NV | LINK.W A6,#0xff8c
00024aac bf d5 | | CMPA.L (A5),A7
00024aae 62 06 |b | BHI 0x24ab6
00024ab0 44 fc 00 02 |D | MOVE.W #0x2,CCR
00024ab4 4e 76 |Nv | TRAPV
00024ab6 de fc 00 74 | t | ADDA.W #0x74,A7
00024aba 48 e7 fc f8 |H | MOVEM.L A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7)
00024abe 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
00024ac4 49 f9 00 01 03 e0 |I | LEA.L WriteConsoleStringCrLf(str : String),A4
00024aca 72 01 |r | MOVEQ.L #0x01,D1
00024acc 74 0d |t | MOVEQ.L #0x0d,D2
00024ace 76 1e |v | MOVEQ.L #0x1e,D3
00024ad0 78 12 |x | MOVEQ.L #0x12,D4
00024ad2 7a 0e |z | MOVEQ.L #0x0e,D5
00024ad4 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void)
00024ada 41 fa ff b4 |A | LEA.L 0x24a90,A0
00024ade 70 08 |p | MOVEQ.L #0x08,D0
00024ae0 3f 20 |? | MOVE.W -(A0),-(A7)
00024ae2 51 c8 ff fc |Q | DBF D0,0x24ae0
00024ae6 59 4f |YO | SUBQ.L #0x4,A7
00024ae8 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00024aec 3f 01 |? | MOVE.W D1,-(A7)
00024aee 3f 04 |? | MOVE.W D4,-(A7)
00024af0 4e 93 |N | JSR (A3)
00024af2 50 4f |PO | ADDQ.L #0x8,A7
00024af4 4e 94 |N | JSR (A4)
00024af6 50 4f |PO | ADDQ.L #0x8,A7
00024af8 20 4f | O | MOVEA.L A7,A0
00024afa 43 fa ff 58 |C X | LEA.L 0x24a54,A1
00024afe 70 0c |p | MOVEQ.L #0x0c,D0
00024b00 10 d9 | | MOVE.B (A1)+,(A0)+
00024b02 51 c8 ff fc |Q | DBF D0,0x24b00
00024b06 51 4f |QO | SUBQ.L #0x8,A7
00024b08 48 6f 00 08 |Ho | PEA.L (A7+0x8)
00024b0c 3f 01 |? | MOVE.W D1,-(A7)
00024b0e 3f 02 |? | MOVE.W D2,-(A7)
00024b10 4e 93 |N | JSR (A3)
00024b12 54 4f |TO | ADDQ.L #0x2,A7
00024b14 1e ae 00 0e | | MOVE.B (A6+0xe),(A7)
00024b18 4e b9 00 01 04 9c |N | JSR BoardName(address : B) : String
00024b1e 54 4f |TO | ADDQ.L #0x2,A7
00024b20 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00024b26 50 4f |PO | ADDQ.L #0x8,A7
00024b28 4e 94 |N | JSR (A4)
00024b2a de c4 | | ADDA.W D4,A7
00024b2c 20 6e 00 0a | n | MOVEA.L (A6+0xa),A0
00024b30 b0 c1 | | CMPA.W D1,A0
00024b32 67 48 |gH | BEQ 0x24b7c
00024b34 9e c5 | | SUBA.W D5,A7
00024b36 22 4f |"O | MOVEA.L A7,A1
00024b38 45 fa ff 28 |E ( | LEA.L 0x24a62,A2
00024b3c 70 0c |p | MOVEQ.L #0x0c,D0
00024b3e 12 da | | MOVE.B (A2)+,(A1)+
00024b40 51 c8 ff fc |Q | DBF D0,0x24b3e
00024b44 9e c3 | | SUBA.W D3,A7
00024b46 22 4f |"O | MOVEA.L A7,A1
00024b48 41 e8 00 fc |A | LEA.L (A0+0xfc),A0
00024b4c 70 1d |p | MOVEQ.L #0x1d,D0
00024b4e 12 d8 | | MOVE.B (A0)+,(A1)+
00024b50 51 c8 ff fc |Q | DBF D0,0x24b4e
00024b54 51 4f |QO | SUBQ.L #0x8,A7
00024b56 48 6f 00 26 |Ho & | PEA.L (A7+0x26)
00024b5a 3f 01 |? | MOVE.W D1,-(A7)
00024b5c 3f 02 |? | MOVE.W D2,-(A7)
00024b5e 4e 93 |N | JSR (A3)
00024b60 58 4f |XO | ADDQ.L #0x4,A7
00024b62 48 6f 00 0c |Ho | PEA.L (A7+0xc)
00024b66 3f 01 |? | MOVE.W D1,-(A7)
00024b68 3f 03 |? | MOVE.W D3,-(A7)
00024b6a 4e 93 |N | JSR (A3)
00024b6c 50 4f |PO | ADDQ.L #0x8,A7
00024b6e 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00024b74 50 4f |PO | ADDQ.L #0x8,A7
00024b76 4e 94 |N | JSR (A4)
00024b78 de fc 00 30 | 0 | ADDA.W #0x30,A7
00024b7c 9e c5 | | SUBA.W D5,A7
00024b7e 20 4f | O | MOVEA.L A7,A0
00024b80 43 fa fe ee |C | LEA.L 0x24a70,A1
00024b84 70 0c |p | MOVEQ.L #0x0c,D0
00024b86 10 d9 | | MOVE.B (A1)+,(A0)+
00024b88 51 c8 ff fc |Q | DBF D0,0x24b86
00024b8c 51 4f |QO | SUBQ.L #0x8,A7
00024b8e 48 6f 00 08 |Ho | PEA.L (A7+0x8)
00024b92 3f 01 |? | MOVE.W D1,-(A7)
00024b94 3f 02 |? | MOVE.W D2,-(A7)
00024b96 4e 93 |N | JSR (A3)
00024b98 54 4f |TO | ADDQ.L #0x2,A7
00024b9a 1e ae 00 08 | | MOVE.B (A6+0x8),(A7)
00024b9e 4e b9 00 01 04 a2 |N | JSR ExpStatus2Text(status.B, &String)
00024ba4 54 4f |TO | ADDQ.L #0x2,A7
00024ba6 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00024bac 50 4f |PO | ADDQ.L #0x8,A7
00024bae 4e 94 |N | JSR (A4)
00024bb0 5d 4f |]O | SUBQ.L #0x6,A7
00024bb2 20 4f | O | MOVEA.L A7,A0
00024bb4 43 fa fe da |C | LEA.L 0x24a90,A1
00024bb8 70 16 |p | MOVEQ.L #0x16,D0
00024bba 10 d9 | | MOVE.B (A1)+,(A0)+
00024bbc 51 c8 ff fc |Q | DBF D0,0x24bba
00024bc0 1f 3c 00 02 | < | MOVE.B #0x02,-(A7)
00024bc4 59 4f |YO | SUBQ.L #0x4,A7
00024bc6 48 6f 00 06 |Ho | PEA.L (A7+0x6)
00024bca 3f 01 |? | MOVE.W D1,-(A7)
00024bcc 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7)
00024bd0 4e 93 |N | JSR (A3)
00024bd2 50 4f |PO | ADDQ.L #0x8,A7
00024bd4 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String)
00024bda de c3 | | ADDA.W D3,A7
00024bdc 4c df 1f 3f |L ? | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4
00024be0 4e 5e |N^ | UNLK A6
00024be2 4e 75 |Nu | RTS