|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 DFS Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 DFS Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 18432 (0x4800)
Types: M200
Notes: M200_PROGRAM
Names: »SCAN.M200«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »SCAN.M200«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »SCAN.M200«
└─ ⟦this⟧ »SCAN.M200«
@ 2014c
<LVAR 0x010 4(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x008 @ 1(r)>
<LVAR -0x00c @ 4(rw)>
<LVAR -0x010 @ 4(r)>
<POP 2014c-20252 Body>
<POP 2014c-20162 Prologue> Σ0 ↓
<POP 20162-2016e RegCacheLoad> Σ0 ↓
<POP 2016e-2018e Naked> Σ0 ↓
<MI 2016e MOVEQ.L #0x00,D7> {}
<Pointer.fp 0x20170 <LVAR -0x00c @ 4(rw)>> Δ-4 {[@@-12]}
<Call 0x20172 0x102b8> {[@@-12]}
NewString(VAR a : String)
<POP 20178-2017a StackAdj> Δ+2 {[-2-]}
<POP 2017a-2017b StackAdj> Δ+2 {}
<Const 0x2017b 0x1.2> Δ-2 {[#1]}
<MI 2017c MOVEA.L (A6+0xc),A0> {[#1]}
<MI 20180 MOVE.L (A0),-(A7)> Δ-4 {[#1]|[4, '(A0)']}
<Pointer.fp 0x20182 <LVAR -0x010 @ 4(r)>> Δ-4 {[#1]|[4, '(A0)']|[@@-16]}
<Call 0x20184 0x10458> {[#1]|[4, '(A0)']|[@@-16]}
DirFirst(MOD c : Bool; a : String; VAR b : File)
<POP 2018a-2018e StackAdj> Δ+10 {}
<POP 2018e-20196 Naked> Σ0 ↓ →0x2023c ←0x2022c
<MI 2018e MOVEA.L (A6-0x10),A0> {}
<MI 20190 CMPA.W #0x01,A0> {}
<MI 20192 BEQ 0x2023c> {}
<POP 20196-201c4 Naked> Σ0 ↓ →0x20224 ←0x20224
<MI 20196 MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0x10)']}
<Pointer.fp 0x20198 <LVAR -0x00c @ 4(rw)>> Δ-4 {[4, '(A6-0x10)']|[@@-12]}
<Pointer.fp 0x2019a <LVAR -0x008 @ 1(r)>> Δ-4 {[4, '(A6-0x10)']|[@@-12]|[@@-8]}
<Call 0x2019e 0x1043c> {[4, '(A6-0x10)']|[@@-12]|[@@-8]}
FileReadLine(file : File; VAR a : String; VAR b : Byte)
<POP 201a4-201a6 StackAdj> Δ+4 {[4, '(A6-0x10)']|[@@-12]}
<MI 201a6 MOVE.L (A6-0xc),(A7)> {[4, '(A6-0x10)']|[4, '(A6-0xc)']}
<Call 0x201a8 0x102f0> {[4, '(A6-0x10)']|[4, '(A6-0xc)']}
ToUpper(a : String) : String
<POP 201ae-201b0 StackAdj> Δ+4 {[4, '(A6-0x10)']}
<MI 201b0 MOVE.L (A7),(A6-0xc)> {[4, '(A6-0x10)']}
<MI 201b2 MOVE.L (A6-0xc),-(A7)> Δ-4 {[4, '(A6-0x10)']|[4, '(A6-0xc)']}
<MI 201b4 MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6-0x10)']|[4, '(A6-0xc)']|[4, '(A6+0x8)']}
<Call 0x201b8 0x10300> {[4, '(A6-0x10)']|[4, '(A6-0xc)']|[4, '(A6+0x8)']}
FSCALL_10300
<POP 201be-201c0 StackAdj> Δ+8 {[4, '(A6-0x10)']}
<MI 201c0 TST.L (A7)+> Δ+4 {}
<MI 201c2 BEQ 0x20224> {}
<POP 201c4-201c8 Naked> Σ0 ↓ →0x201f2
<MI 201c4 TST.L D7> {}
<MI 201c6 BNE 0x201f2> {}
<POP 201c8-201f2 Naked> Σ0 ↓
<MI 201c8 MOVEA.L (A6-0x10),A0> {}
<POP 201ca-201cc StackAdj> Δ-30 {[-30-]}
<MI 201cc MOVEA.L A7,A1> {[-30-]}
<BlockMove 30,A0,A1> {[-30-]}
<POP 201d6-201d8 StackAdj> Δ-4 {[-34-]}
<Lit 0x201d8> {[-30-]|[$$…]}
<Pointer.sp 0x201d8 4> Δ-4
<Const 0x201dc 0x1.2> Δ-2
<Const 0x201de 0x1e.2> Δ-2
<Call 0x201e0 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 201e6-201e8 StackAdj> Δ+8
<Call 0x201e8 0x103e0> {[-30-]|[$$…]}
WriteConsoleStringCrLf(str : String)
<POP 201ee-201f2 StackAdj> Δ+34 {}
<POP 201f2-20224 Naked> Σ0 ↓ ←0x201c4
<Blob 0x201f2 [4] @> Δ-4 {[«4""»]}
<POP 201f6-201f8 StackAdj> Δ-8 {[«4""»]|[-8-]}
<Lit 0x201f8 4> {[«4""»]|[-4-]|[$$ _]}
<MI 20208 MOVE.L (A6-0xc),(A7)> {[«4""»]|[-4-]|[4, '(A6-0xc)']}
<POP 20202-20208 StackAdj> Δ-8 {[«4""»]|[-4-]|[4, '(A6-0xc)']|[-8-]}
<Call 0x2020a 0x102cc> {[«4""»]|[-4-]|[4, '(A6-0xc)']|[-8-]}
StringDup(a : String) : String
<POP 20210-20212 StackAdj> Δ+4 {[«4""»]|[-4-]|[4, '(A6-0xc)']|[-4-]}
<Call 0x20212 0x102d0> {[«4""»]|[-4-]|[4, '(A6-0xc)']|[-4-]}
StringCat2(a, b : String) : String
<POP 20218-2021a StackAdj> Δ+8 {[«4""»]|[-4-]}
<Call 0x2021a 0x103e0> {[«4""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 20220-20222 StackAdj> Δ+8 {}
<MI 20222 ADDQ.L #0x1,D7> {}
<POP 20224-2022c Naked> Σ0 ↓ →0x20196 ←0x20196
<MI 20224 TST.B (A6-0x8)> {}
<MI 20228 BEQ 0x20196> {}
<POP 2022c-2023c Naked> Σ0 →0x2018e
<MI 2022c CLR.B -(A7)> Δ-2 {[#0]}
<Pointer.fp 0x2022e <LVAR -0x010 @ 4(r)>> Δ-4 {[#0]|[@@-16]}
<Call 0x20230 0x1045c> {[#0]|[@@-16]}
DirNext(MOD a : Bool; VAR b : File)
<POP 20236-20238 StackAdj> Δ+6 {}
<MI 20238 BRA 0x2018e> {}
<POP 2023c-2024a Naked> Σ0 ↓ ←0x2018e
<Pointer.fp 0x2023c <LVAR -0x00c @ 4(rw)>> Δ-4 {[@@-12]}
<Call 0x2023e 0x102bc> {[@@-12]}
FreeString(VAR a : String)
<POP 20244-20246 StackAdj> Δ+4 {}
<MI 20246 MOVE.L D7,(A6+0x10)> {}
<POP 2024a-20252 Epilogue> Σ0
@ 20252
<LVAR 0x008 4(r)>
<LVAR -0x00c @>
<LVAR -0x010 @ 4(w)>
<LVAR -0x014 @ 4(rw)>
<LVAR -0x018 @ 4(rw)>
<POP 20252-203a8 Body>
<POP 20252-20268 Prologue> Σ0 ↓
<POP 20268-2027c RegCacheLoad> Σ0 ↓
<POP 2027c-202c8 Naked> Σ0 ↓ →0x202ec
<POP 2027c-2027e StackAdj> Δ-4 {[-4-]}
<POP 2027e-2027f StackAdj> Δ+2 {[-2-]}
<Blob 0x2027f [2] @> Δ-2 {[-2-]|[«2""»]}
<MI 20282 MOVE.B 0x2010f,(A7+0x1)> {[-2-]|[«2""»]}
<MI 20288 MOVE.B 0x20110,(A7+0x2)> {[-2-]|[«2""»]}
<POP 2028e-20290 StackAdj> Δ-4 {[-2-]|[«2""»]|[-4-]}
<Lit 0x20290> {[-2-]|[«2""»]|[$$…]}
<Pointer.sp 0x20290 4> Δ-4
<Const 0x20294 0x1.2> Δ-2
<Const 0x20296 0x3.2> Δ-2
<Call 0x2029a 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 2029c-2029e StackAdj> Δ+8
<MI 2029e MOVE.L (A7)+,(A6-0x18)> Δ+4 {[-2-]|[«2""»]}
<MI 202a0 MOVE.L (A6+0x8),(A7)> {[4, '(A6+0x8)']}
<Const 0x202a4 0x0.4> Δ-4 {[4, '(A6+0x8)']|[##0]}
<MI 202a8 MOVE.L (A6-0x18),-(A7)> Δ-4 {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x18)']}
<Pointer.fp 0x202aa <LVAR -0x014 @ 4(rw)>> Δ-4 {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x18)']|[@@-20]}
<Pointer.fp 0x202ac <LVAR -0x00c @>> Δ-4 {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x18)']|[@@-20]|[@@-12]}
<Call 0x202b0 0x23d6a> {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x18)']|[@@-20]|[@@-12]}
<POP 202b6-202b8 StackAdj> Δ+20 {}
<Pointer.fp 0x202b8 <LVAR -0x018 @ 4(rw)>> Δ-4 {[@@-24]}
<Call 0x202ba 0x102bc> {[@@-24]}
FreeString(VAR a : String)
<POP 202c0-202c2 StackAdj> Δ+4 {}
<MI 202c2 MOVEA.L (A6-0x14),A0> {}
<MI 202c4 CMPA.W #0x01,A0> {}
<MI 202c6 BNE 0x202ec> {}
<POP 202c8-202ec Naked> Σ0 ↓
<Blob 0x202c8 [14] @> Δ-14 {[«14""»]}
<Const 0x202d4 0xe.2> Δ-2 {[«14""»]|[#14]}
<POP 202d6-202d8 StackAdj> Δ-4 {[«14""»]|[#14]|[-4-]}
<Lit 0x202d8 14> {[«14""»]|[#14]|[$$No /KEY switch]}
<Call 0x202e4 0x103b8> {[«14""»]|[#14]|[$$No /KEY switch]}
PopProgram(status : Byte; msg : String)
<POP 202ea-202ec StackAdj> Δ+20 {}
<POP 202ec-2030c Naked> Σ0 Δ-4 ↓ ←0x2027c
<POP 202ec-202ee StackAdj> Δ-4 {[-4-]}
<MI 202ee MOVE.L A0,-(A7)> Δ-4 {[-4-]|[4, 'A0']}
<Call 0x202f0 0x102f0> {[-4-]|[4, 'A0']}
ToUpper(a : String) : String
<POP 202f6-202f8 StackAdj> Δ+4 {[-4-]}
<MI 202f8 MOVE.L (A7)+,(A6-0x14)> Δ+4 {}
<MI 202fa MOVEQ.L #0x00,D7> {}
<POP 202fc-202fe StackAdj> Δ-4 {[-4-]}
<MI 202fe MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x20302 0x20f16> {[-4-]|[4, '(A6+0x8)']}
<POP 20308-2030a StackAdj> Δ+4 {[-4-]}
<MI 2030a MOVEQ.L #0x01,D6> {[-4-]}
<POP 2030c-20310 Naked> Σ-4 ↓ →0x20336 ←0x20310
<MI 2030c CMP.L (A7),D6> {[-4-]}
<MI 2030e BGT 0x20336> {[-4-]}
<POP 20310-20336 Naked> Σ-4 ↓ →0x2030c
<POP 20310-20312 StackAdj> Δ-4 {[-8-]}
<MI 20312 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<MI 20316 MOVE.L D6,-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']|[4, 'D6']}
<Call 0x20318 0x21832> {[-8-]|[4, '(A6+0x8)']|[4, 'D6']}
<POP 2031e-20320 StackAdj> Δ+8 {[-8-]}
<MI 20320 MOVE.L (A7),(A6-0x10)> {[-8-]}
<Pointer.fp 0x20324 <LVAR -0x010 @ 4(w)>> Δ-4 {[-8-]|[@@-16]}
<MI 20328 MOVE.L (A6-0x14),-(A7)> Δ-4 {[-8-]|[@@-16]|[4, '(A6-0x14)']}
<Call 0x2032a 0x2014c> {[-8-]|[@@-16]|[4, '(A6-0x14)']}
<POP 2032e-20330 StackAdj> Δ+8 {[-8-]}
<MI 20330 ADD.L (A7)+,D7> Δ+4 {[-4-]}
<MI 20332 ADDQ.L #0x1,D6> {[-4-]}
<MI 20334 BVC 0x2030c> {[-4-]}
<POP 20336-2033c Naked> Σ-4 Δ+4 ↓ →0x20396 ←0x2030c
<POP 20336-20338 StackAdj> Δ+4 {}
<MI 20338 CMP.L #0x01,D7> {}
<MI 2033a BLE 0x20396> {}
<POP 2033c-20396 Naked> Σ0 ↓
<Blob 0x2033c [10] @> Δ-10 {[«10""»]}
<Blob 0x2034e [20] @> Δ-20 {[«10""»]|[«20""»]}
<POP 2035e-20360 StackAdj> Δ-8 {[«10""»]|[«20""»]|[-8-]}
<Lit 0x20360 9> {[«10""»]|[«20""»]|[-4-]|[$$Total of_]}
<MI 2036c MOVE.L D7,(A7)> {[«10""»]|[«20""»]|[-4-]|[4, 'D7']}
<POP 2036a-2036c StackAdj> Δ-8 {[«10""»]|[«20""»]|[-4-]|[4, 'D7']|[-8-]}
<Call 0x2036e 0x102e4> {[«10""»]|[«20""»]|[-4-]|[4, 'D7']|[-8-]}
Long2String(a : Long) : String
<Lit 0x20374 19> {[«10""»]|[«20""»]|[-4-]|[4, 'D7']|[-4-]|[$$ occurrences found.]}
<Call 0x20382 0x102d4> {[«10""»]|[«20""»]|[-4-]|[4, 'D7']|[-4-]|[$$ occurrences found.]}
StringCat3(a, b, c : String) : String
<POP 20388-2038c StackAdj> Δ+12 {[«10""»]|[«20""»]|[-4-]}
<Call 0x2038c 0x103e0> {[«10""»]|[«20""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 20392-20396 StackAdj> Δ+34 {}
<POP 20396-203a0 Naked> Σ0 ↓ ←0x20336
<Pointer.fp 0x20396 <LVAR -0x014 @ 4(rw)>> Δ-4 {[@@-20]}
<Call 0x20398 0x102bc> {[@@-20]}
FreeString(VAR a : String)
<POP 2039e-203a0 StackAdj> Δ+4 {}
<POP 203a0-203a8 Epilogue> Σ0
@ 203a8
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 4(rw)>
<POP 203a8-20418 Body>
<POP 203a8-203be Prologue> Σ0 ↓
<POP 203be-203c4 RegCacheLoad> Σ0 ↓
<POP 203c4-203f8 Naked> Σ0 ↓ →0x20404
<MI 203c4 MOVEA.L (A6+0x8),A0> {}
<MI 203c8 MOVE.B #0x01,(A0)> {}
<Blob 0x203ca [4] @> Δ-4 {[«4""»]}
<POP 203ce-203d0 StackAdj> Δ-4 {[«4""»]|[-4-]}
<Lit 0x203d0 4> {[«4""»]|[$$FIND]}
<MI 203e2 MOVE.L (A7)+,(A6-0x4)> Δ+4 {[«4""»]}
<POP 203e4-203e6 StackAdj> Δ+2 {[-2-]}
<MI 203e6 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-2-]|[4, '(A6+0x10)']}
<MI 203ea MOVE.L (A6-0x4),-(A7)> Δ-4 {[-2-]|[4, '(A6+0x10)']|[4, '(A6-0x4)']}
<Call 0x203ec 0x102c8> {[-2-]|[4, '(A6+0x10)']|[4, '(A6-0x4)']}
StringEqual(a, b : String) : Byte
<POP 203f2-203f4 StackAdj> Δ+8 {[-2-]}
<MI 203f4 TST.B (A7)+> Δ+2 {}
<MI 203f6 BEQ 0x20404> {}
<POP 203f8-20404 Naked> Σ0 →0x20406
<MI 203f8 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<Call 0x203fc 0x20252> {[4, '(A6+0xc)']}
<POP 20400-20402 StackAdj> Δ+4 {}
<MI 20402 BRA 0x20406> {}
<POP 20404-20406 Naked> Σ0 ↓ ←0x203c4
<MI 20404 CLR.B (A0)> {}
<POP 20406-20410 Naked> Σ0 ↓ ←0x203f8
<Pointer.fp 0x20406 <LVAR -0x004 @ 4(rw)>> Δ-4 {[@@-4]}
<Call 0x20408 0x102bc> {[@@-4]}
FreeString(VAR a : String)
<POP 2040e-20410 StackAdj> Δ+4 {}
<POP 20410-20418 Epilogue> Σ0
@ 20418
<LVAR 0x008 4(r)>
<POP 20418-2044c Body>
<POP 20418-2042e Prologue> Σ0 ↓
<POP 2042e-20444 Naked> Σ0 ↓
<Call 0x2042e 0x10398> {}
FSCALL_10398
<MI 20434 MOVEA.L (A6+0x8),A0> {}
<MI 20438 LEA.L 0x20142,A1> {}
<BlockMove 10,A1,A0> {}
<POP 20444-2044c Epilogue> Σ0
@ 20ac8
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 4(w)>
<POP 20ac8-20b0a Body>
<POP 20ac8-20ade Prologue> Σ0 ↓
<POP 20ade-20ae2 Naked> Σ0 ↓
<MI 20ade MOVEA.L (A6+0x8),A4> {}
<POP 20ae2-20ae8 Naked> Σ0 ↓ →0x20b02 ←0x20ae8
<MI 20ae2 CMPA.W #0x1,A4> {}
<MI 20ae6 BEQ 0x20b02> {}
<POP 20ae8-20b02 Naked> Σ0 →0x20ae2
<MI 20ae8 MOVE.L A4,(A6-0x4)> {}
<MI 20aec MOVEA.L (A4+0x8),A4> {}
<Pointer.fp 0x20af0 <LVAR -0x004 @ 4(w)>> Δ-4 {[@@-4]}
<Const 0x20af4 0xc.4> Δ-4 {[@@-4]|[##12]}
<Call 0x20af8 0x102a8> {[@@-4]|[##12]}
Free2(a : Pointer; b : Long)
<POP 20afe-20b00 StackAdj> Δ+8 {}
<MI 20b00 BRA 0x20ae2> {}
<POP 20b02-20b0a Epilogue> Σ0 ←0x20ae2
@ 20b0a
<LVAR 0x008 4(r)>
<POP 20b0a--0001 Body>
<POP 20b0a-20b20 Prologue> Σ0 ↓
<POP 20b20-20b2a Naked> Σ0 ↓ →0x20b34
<MI 20b20 MOVEA.L (A6+0x8),A0> {}
<MI 20b24 CMPA.W #0x1,A0> {}
<MI 20b28 BEQ 0x20b34> {}
<POP 20b2a-20b34 Naked> Σ0 ↓
<MI 20b2a MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Call 0x20b2c 0x103e0> {[4, 'A0']}
WriteConsoleStringCrLf(str : String)
<POP 20b32-20b34 StackAdj> Δ+4 {}
<POP 20b34-20b42 Naked> Σ0 ←0x20b20
<POP 20b34-20b42 Bailout> {}
<MI 20b34 MOVEA.L (A5+0x8),A7>
<MI 20b38 MOVEA.W #0x0,A6>
<MI 20b3c JMP 0x243e6>
@ 20b68
<LVAR 0x008 1(rw)>
<POP 20b68-20ba6 Body>
<POP 20b68-20b7e Prologue> Σ0 ↓
<POP 20b7e-20b8c Naked> Σ0 ↓ →0x20b92
<MI 20b7e MOVE.L 0x25614,D0> {}
<MI 20b84 CMP.L 0x25618,D0> {}
<MI 20b8a BLE 0x20b92> {}
<POP 20b8c-20b92 Naked> Σ0 →0x20b9e
<MI 20b8c CLR.B (A6+0x8)> {}
<MI 20b90 BRA 0x20b9e> {}
<POP 20b92-20b9e Naked> Σ0 ↓ ←0x20b7e
<MI 20b92 LEA.L 0x2460c,A0> {}
<MI 20b98 MOVE.B (A0+D0.L+#0x7),(A6+0x8)> {}
<POP 20b9e-20ba6 Epilogue> Σ0 ←0x20b8c
@ 20ba6
<LVAR 0x008 1(rw)>
<POP 20ba6-20bea Body>
<POP 20ba6-20bbc Prologue> Σ0 ↓
<POP 20bbc-20bc2 RegCacheLoad> Σ0 ↓
<POP 20bc2-20bcc Naked> Σ0 ↓ →0x20bd2
<MI 20bc2 MOVE.L 0x25614,D0> {}
<MI 20bc4 CMP.L 0x25618,D0> {}
<MI 20bca BLE 0x20bd2> {}
<POP 20bcc-20bd2 Naked> Σ0 →0x20bde
<MI 20bcc CLR.B (A6+0x8)> {}
<MI 20bd0 BRA 0x20bde> {}
<POP 20bd2-20bde Naked> Σ0 ↓ ←0x20bc2
<MI 20bd2 LEA.L 0x2460c,A0> {}
<MI 20bd8 MOVE.B (A0+D0.L+#0x7),(A6+0x8)> {}
<POP 20bde-20be2 Naked> Σ0 ↓ ←0x20bcc
<MI 20bde ADDQ.L #0x1,D0> {}
<MI 20be0 MOVE.L D0,0x25614> {}
<POP 20be2-20bea Epilogue> Σ0
@ 20bea
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 20bea-20cc4 Body>
<POP 20bea-20c00 Prologue> Σ0 ↓
<POP 20c00-20c12 RegCacheLoad> Σ0 ↓
<POP 20c12-20c1e Naked> Σ0 ↓ →0x20c28 ←0x20cb8
<POP 20c12-20c14 StackAdj> Δ-2 {[-2-]}
<Call 0x20c14 0x20b68> {[-2-]}
<MI 20c18 MOVE.B (A7)+,D0> Δ+2 {}
<MI 20c1a CMP.B #0x5b,D0> {}
<MI 20c1c BNE 0x20c28> {}
<POP 20c1e-20c28 Naked> Σ0 →0x20cb8
<Call 0x20c1e 0x23ef0> {}
<MI 20c24 BRA 0x20cb8> {}
<POP 20c28-20c34 Naked> Σ0 ↓ →0x20c4c ←0x20c12
<MI 20c28 MOVE.L 0x25614,D6> {}
<POP 20c2a-20c2c StackAdj> Δ-2 {[-2-]}
<Call 0x20c2c 0x20ba6> {[-2-]}
<MI 20c30 MOVE.B (A7)+,D5> Δ+2 {}
<MI 20c32 BNE 0x20c4c> {}
<POP 20c34-20c4a Naked> Σ0 →0x20cbc
<MI 20c34 MOVEA.L (A6+0xc),A0> {}
<MI 20c38 LEA.L 0x20a22,A1> {}
<BlockMove 8,A1,A0> {}
<MI 20c44 MOVEA.L (A6+0x8),A0> {}
<MI 20c46 MOVE.B #0x02,(A0)> {}
<MI 20c48 BRA 0x20cbc> {}
<POP 20c4c-20c50 Naked> Σ0 ↓ →0x20c58 ←0x20c28
<MI 20c4c CMP.B #0x2c,D5> {}
<MI 20c4e BNE 0x20c58> {}
<POP 20c50-20c58 Naked> Σ0 →0x20ca8
<MI 20c50 MOVEA.L (A6+0x8),A0> {}
<MI 20c52 MOVE.B #0x03,(A0)> {}
<MI 20c56 BRA 0x20ca8> {}
<POP 20c58-20c5c Naked> Σ0 ↓ →0x20c64 ←0x20c4c
<MI 20c58 CMP.B #0x3b,D5> {}
<MI 20c5a BNE 0x20c64> {}
<POP 20c5c-20c64 Naked> Σ0 →0x20ca8
<MI 20c5c MOVEA.L (A6+0x8),A0> {}
<MI 20c5e MOVE.B #0x01,(A0)> {}
<MI 20c62 BRA 0x20ca8> {}
<POP 20c64-20c6a Naked> Σ0 ↓ →0x20c70 ←0x20c58
<MI 20c64 CMPI.B #0x5d,D5> {}
<MI 20c68 BNE 0x20c70> {}
<POP 20c6a-20c70 Naked> Σ0 →0x20ca8
<MI 20c6a MOVEA.L (A6+0x8),A0> {}
<MI 20c6c MOVE.B #0x02,(A0)> {}
<MI 20c6e BRA 0x20ca8> {}
<POP 20c70-20c74 Naked> Σ0 ↓ ←0x20c64
<MI 20c70 MOVEA.L (A6+0x8),A0> {}
<MI 20c72 CLR.B (A0)> {}
<POP 20c74-20c80 Naked> Σ0 ↓ →0x20c88 ←0x20ca6
<POP 20c74-20c76 StackAdj> Δ-2 {[-2-]}
<Call 0x20c76 0x20b68> {[-2-]}
<MI 20c7a MOVE.B (A7)+,D7> Δ+2 {}
<MI 20c7c CMP.B #0x5b,D7> {}
<MI 20c7e BNE 0x20c88> {}
<POP 20c80-20c88 Naked> Σ0 →0x20ca6
<Call 0x20c80 0x23ef0> {}
<MI 20c86 BRA 0x20ca6> {}
<POP 20c88-20c8c Naked> Σ0 ↓ →0x20c9a ←0x20c74
<MI 20c88 CMP.B #0x3b,D7> {}
<MI 20c8a BEQ 0x20c9a> {}
<POP 20c8c-20c90 Naked> Σ0 ↓ →0x20c9a
<MI 20c8c CMP.B #0x2c,D7> {}
<MI 20c8e BEQ 0x20c9a> {}
<POP 20c90-20c96 Naked> Σ0 ↓ →0x20c9a
<MI 20c90 CMPI.B #0x5d,D7> {}
<MI 20c94 BEQ 0x20c9a> {}
<POP 20c96-20c9a Naked> Σ0 ↓ →0x20c9e
<MI 20c96 TST.B D7> {}
<MI 20c98 BNE 0x20c9e> {}
<POP 20c9a-20c9c Naked> Σ0 →0x20ca8 ←0x20c88 ←0x20c8c ←0x20c90
<MI 20c9a BRA 0x20ca8> {}
<POP 20c9e-20ca6 Naked> Σ0 ↓ ←0x20c96
<POP 20c9e-20ca0 StackAdj> Δ-2 {[-2-]}
<Call 0x20ca0 0x20ba6> {[-2-]}
<MI 20ca4 MOVE.B (A7)+,D7> Δ+2 {}
<POP 20ca6-20ca8 Naked> Σ0 →0x20c74 ←0x20c80
<MI 20ca6 BRA 0x20c74> {}
<POP 20ca8-20cb8 Naked> Σ0 →0x20cbc ←0x20c50 ←0x20c5c ←0x20c6a ←0x20c9a
<MI 20ca8 MOVEA.L (A6+0xc),A0> {}
<MI 20cac MOVE.L D6,(A0)> {}
<MI 20cae MOVE.L 0x25614,(A0+0x4)> {}
<MI 20cb2 SUBQ.L #0x1,(A0+0x4)> {}
<MI 20cb6 BRA 0x20cbc> {}
<POP 20cb8-20cbc Naked> Σ0 →0x20c12 ←0x20c1e
<MI 20cb8 BRA 0x20c12> {}
<POP 20cbc-20cc4 Epilogue> Σ0 ←0x20c34 ←0x20ca8
@ 20cc4
<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 20cc4-20d62 Body>
<POP 20cc4-20cda Prologue> Σ0 ↓
<POP 20cda-20ce4 RegCacheLoad> Σ0 ↓
<POP 20ce4-20cf0 Naked> Σ0 ↓ →0x20cf6
<MI 20ce4 MOVEA.L (A6+0x8),A0> {}
<MI 20ce8 MOVE.B (A0),D0> {}
<MI 20cea CMPI.B #0x01,D0> {}
<MI 20cee BEQ 0x20cf6> {}
<POP 20cf0-20cf6 Naked> Σ0 ↓ →0x20d04
<MI 20cf0 CMPI.B #0x02,D0> {}
<MI 20cf4 BNE 0x20d04> {}
<POP 20cf6-20d04 Naked> Σ0 →0x20d40 ←0x20ce4
<MI 20cf6 MOVE.L 0x20a22,(A6-0xc)> {}
<MI 20cfa MOVE.L 0x20a26,(A6-0x8)> {}
<MI 20d00 MOVE.B D0,(A6-0x4)> {}
<MI 20d02 BRA 0x20d40> {}
<POP 20d04-20d16 Naked> Σ0 ↓ →0x20d32 ←0x20cf0 ←0x20d3a
<Pointer.fp 0x20d04 <LVAR -0x00c @ 4(w)>> Δ-4 {[@@-12]}
<Pointer.fp 0x20d06 <LVAR -0x004 @ 1(rw)>> Δ-4 {[@@-12]|[@@-4]}
<Call 0x20d08 0x20bea> {[@@-12]|[@@-4]}
<POP 20d0c-20d0e StackAdj> Δ+8 {}
<MI 20d0e MOVEA.L (A6+0x8),A0> {}
<MI 20d12 TST.B (A6-0x4)> {}
<MI 20d14 BEQ 0x20d32> {}
<POP 20d16-20d1c Naked> Σ0 ↓ →0x20d32
<MI 20d16 MOVE.B (A0),D0> {}
<MI 20d18 CMP.B #0x03,D0> {}
<MI 20d1a BNE 0x20d32> {}
<POP 20d1c-20d32 Naked> Σ0 →0x20d3a
<MI 20d1c MOVE.B (A6-0x4),D0> {}
<MI 20d1e EXTB.W D0> {}
<POP 0x20d20 LimitCheck 0x0 ≤ D0 ≤ 0x3> {}
<MI 20d22 MOVE.B D0,(A0)> {}
<MI 20d24 MOVE.L 0x20a22,(A6-0xc)> {}
<MI 20d28 MOVE.L 0x20a26,(A6-0x8)> {}
<MI 20d2e CLR.B (A6-0x4)> {}
<MI 20d30 BRA 0x20d3a> {}
<POP 20d32-20d3a Naked> Σ0 ↓ ←0x20d04 ←0x20d16
<MI 20d32 MOVE.B (A6-0x4),D0> {}
<MI 20d34 EXTB.W D0> {}
<POP 0x20d36 LimitCheck 0x0 ≤ D0 ≤ 0x3> {}
<MI 20d38 MOVE.B D0,(A0)> {}
<POP 20d3a-20d40 Naked> Σ0 ↓ →0x20d04 ←0x20d1c
<MI 20d3a MOVE.B (A6-0x4),D0> {}
<MI 20d3c CMP.B #0x03,D0> {}
<MI 20d3e BEQ 0x20d04> {}
<POP 20d40-20d5a Naked> Σ0 ↓ ←0x20cf6
<MI 20d40 MOVEA.L (A6+0x10),A0> {}
<MI 20d44 LEA.L (A6-0xc),A1> {}
<BlockMove 8,A1,A0> {}
<MI 20d4e MOVEA.L (A6+0xc),A0> {}
<MI 20d52 MOVE.B (A6-0x4),D0> {}
<MI 20d54 EXTB.W D0> {}
<POP 0x20d56 LimitCheck 0x0 ≤ D0 ≤ 0x3> {}
<MI 20d58 MOVE.B D0,(A0)> {}
<POP 20d5a-20d62 Epilogue> Σ0
@ 20d62
<LVAR 0x008 4(rw)>
<LVAR -0x004 1(rw)>
<LVAR -0x010 2(rw)>
<POP 20d62-20e6a Body>
<POP 20d62-20d78 Prologue> Σ0 ↓
<POP 20d78-20d86 RegCacheLoad> Σ0 ↓
<POP 20d86-20d9e Naked> Σ0 Δ-4 ↓
<MI 20d86 MOVEQ.L #0x01,D6> {}
<MI 20d88 CLR.W (A6-0x10)> {}
<MI 20d8a MOVEQ.L #0x01,D5> {}
<POP 20d8c-20d8e StackAdj> Δ-4 {[-4-]}
<MI 20d8e MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x20d90 0x102f0> {[-4-]|[4, '(A6+0x8)']}
ToUpper(a : String) : String
<POP 20d96-20d98 StackAdj> Δ+4 {[-4-]}
<MI 20d98 MOVE.L (A7)+,(A6+0x8)> Δ+4 {}
<MI 20d9a MOVEA.L (A6+0x8),A0> {}
<MI 20d9c MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<POP 20d9e-20daa Naked> Σ-4 ↓ →0x20e58 ←0x20e3e
<MI 20d9e MOVEA.L (A7),A0> {[-4-]}
<MI 20da0 MOVE.W (A0),D0> {[-4-]}
<MI 20da2 EXTW.L D0> {[-4-]}
<MI 20da4 CMP.L D0,D6> {[-4-]}
<MI 20da6 BGT 0x20e58> {[-4-]}
<POP 20daa-20dbc Naked> Σ-4 ↓ →0x20dbe
<MI 20daa CLR.L D0> {[-4-]}
<MI 20dac MOVE.B (A0+D6.L+#0x1),D0> {[-4-]}
<MI 20db0 ANDI.W #0x007f,D0> {[-4-]}
<MI 20db4 MOVE.B D0,(A6-0x4)> {[-4-]}
<MI 20db6 CMPI.B #0x09,D0> {[-4-]}
<MI 20dba BNE 0x20dbe> {[-4-]}
<POP 20dbc-20dbe Naked> Σ-4 ↓
<MI 20dbc MOVE.B #0x20,(A6-0x4)> {[-4-]}
<POP 20dbe-20dca Naked> Σ-4 ↓ →0x20dfa ←0x20daa
<MI 20dbe CLR.L D0> {[-4-]}
<MI 20dc0 MOVE.B (A6-0x4),D0> {[-4-]}
<MI 20dc2 SUB.W #0x20,D0> {[-4-]}
<MI 20dc4 CMPI.W #0x000c,D0> {[-4-]}
<MI 20dc8 BHI 0x20dfa> {[-4-]}
<POP 20dca-20dd4 Naked> Σ-4 →0x20df2 →0x20dee →0x20dfa →0x20dfa →0x20dfa →0x20dfa →0x20dfa →0x20dfa →0x20dfa →0x20dfa →0x20dfa →0x20dfa →0x20df6
<MI 20dca ADD.W D0,D0> {[-4-]}
<MI 20dcc SWITCH D0.W> {[-4-]}
<POP 20dee-20df0 Naked> Σ-4 →0x20e58 ←0x20dca
<MI 20dee BRA 0x20e58> {[-4-]}
<POP 20df2-20df6 Naked> Σ-4 →0x20dfc ←0x20dca
<MI 20df2 MOVEQ.L #0x00,D7> {[-4-]}
<MI 20df4 BRA 0x20dfc> {[-4-]}
<POP 20df6-20dfa Naked> Σ-4 →0x20dfc ←0x20dca
<MI 20df6 MOVEQ.L #0x01,D7> {[-4-]}
<MI 20df8 BRA 0x20dfc> {[-4-]}
<POP 20dfa-20dfc Naked> Σ-4 ↓ ←0x20dbe ←0x20dca ←0x20dca ←0x20dca ←0x20dca ←0x20dca ←0x20dca ←0x20dca ←0x20dca ←0x20dca ←0x20dca
<MI 20dfa MOVEQ.L #0x02,D7> {[-4-]}
<POP 20dfc-20e20 Naked> Σ-4 →0x20e26 →0x20e28 →0x20e32 ←0x20df2 ←0x20df6
<MI 20dfc MOVEQ.L #0x03,D0> {[-4-]}
<MI 20dfe MULS.W (A6-0x10),D0> {[-4-]}
<MI 20e00 LEA.L 0x20a2a,A0> {[-4-]}
<MI 20e04 LEA.L (A0+D0.W),A0> {[-4-]}
<MI 20e08 CLR.L D0> {[-4-]}
<MI 20e0a MOVE.B (A0+D7.W),D0> {[-4-]}
<POP 0x20e0e LimitCheck 0x0 ≤ D0 ≤ 0x2> {[-4-]}
<MI 20e16 ADD.W D0,D0> {[-4-]}
<MI 20e18 SWITCH D0.W> {[-4-]}
<POP 20e26-20e28 Naked> Σ-4 →0x20e3e ←0x20dfc
<MI 20e26 BRA 0x20e3e> {[-4-]}
<POP 20e28-20e32 Naked> Σ-4 →0x20e3e ←0x20dfc
<MI 20e28 MOVEA.L (A7),A0> {[-4-]}
<MI 20e2a MOVE.B (A6-0x4),(A0+D5.L+#0x1)> {[-4-]}
<MI 20e2e ADDQ.L #0x1,D5> {[-4-]}
<MI 20e30 BRA 0x20e3e> {[-4-]}
<POP 20e32-20e3e Naked> Σ-4 ↓ ←0x20dfc
<MI 20e32 MOVEA.L (A7),A0> {[-4-]}
<MI 20e34 MOVE.B #0x2c,(A0+D5.L+#0x1)> {[-4-]}
<MI 20e3a ADDQ.L #0x1,D5> {[-4-]}
<MI 20e3c SUBQ.L #0x1,D6> {[-4-]}
<POP 20e3e-20e58 Naked> Σ-4 →0x20d9e ←0x20e26 ←0x20e28
<MI 20e3e MOVEQ.L #0x03,D0> {[-4-]}
<MI 20e40 MULS.W (A6-0x10),D0> {[-4-]}
<MI 20e42 LEA.L 0x20a33,A0> {[-4-]}
<MI 20e46 LEA.L (A0+D0.W),A0> {[-4-]}
<MI 20e4a CLR.L D0> {[-4-]}
<MI 20e4c MOVE.B (A0+D7.W),D0> {[-4-]}
<MI 20e50 MOVE.W D0,(A6-0x10)> {[-4-]}
<MI 20e52 ADDQ.L #0x1,D6> {[-4-]}
<MI 20e54 BRA 0x20d9e> {[-4-]}
<POP 20e58-20e62 Naked> Σ-4 Δ+4 ↓ ←0x20d9e ←0x20dee
<MI 20e58 MOVEA.L (A7),A0> {[-4-]}
<MI 20e5a MOVE.L D5,D0> {[-4-]}
<MI 20e5c SUBQ.L #0x1,D0> {[-4-]}
<MI 20e5e MOVE.W D0,(A0)> {[-4-]}
<POP 20e60-20e62 StackAdj> Δ+4 {}
<POP 20e62-20e6a Epilogue> Σ0
@ 20e6a
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x002 @ 1(r)>
<LVAR -0x00a @>
<LVAR -0x00e @ 4(r)>
<LVAR -0x014 @ 1(r)>
<POP 20e6a-20f16 Body>
<POP 20e6a-20e80 Prologue> Σ0 ↓
<POP 20e80-20e86 RegCacheLoad> Σ0 ↓
<POP 20e86-20e94 Naked> Σ0 ↓ →0x20e9c
<POP 20e86-20e88 StackAdj> Δ-2 {[-2-]}
<Call 0x20e88 0x20b68> {[-2-]}
<MI 20e8c MOVE.B (A7)+,D0> Δ+2 {}
<MI 20e8e CMPI.B #0x5b,D0> {}
<MI 20e92 BNE 0x20e9c> {}
<POP 20e94-20e9c Naked> Σ0 ↓
<POP 20e94-20e96 StackAdj> Δ-2 {[-2-]}
<Call 0x20e96 0x20ba6> {[-2-]}
<MI 20e9a MOVE.B (A7)+,D7> Δ+2 {}
<POP 20e9c-20ea6 Naked> Σ0 ↓ ←0x20e86
<MI 20e9c MOVEA.L (A6+0xc),A0> {}
<MI 20ea0 MOVE.L #0x01,(A0)> {}
<MI 20ea2 CLR.B (A6-0x14)> {}
<POP 20ea6-20ec0 Naked> Σ0 ↓ →0x20ef6 ←0x20ef6
<Pointer.fp 0x20ea6 <LVAR -0x00a @>> Δ-4 {[@@-10]}
<Pointer.fp 0x20eaa <LVAR -0x002 @ 1(r)>> Δ-4 {[@@-10]|[@@-2]}
<Pointer.fp 0x20eae <LVAR -0x014 @ 1(r)>> Δ-4 {[@@-10]|[@@-2]|[@@-20]}
<Call 0x20eb2 0x20cc4> {[@@-10]|[@@-2]|[@@-20]}
<POP 20eb6-20eba StackAdj> Δ+12 {}
<MI 20eba TST.B (A6-0x2)> {}
<MI 20ebe BNE 0x20ef6> {}
<POP 20ec0-20eec Naked> Σ0 ↓ →0x20ef0
<Pointer.fp 0x20ec0 <LVAR -0x00e @ 4(r)>> Δ-4 {[@@-14]}
<Const 0x20ec2 0xc.4> Δ-4 {[@@-14]|[##12]}
<Call 0x20ec6 0x1029c> {[@@-14]|[##12]}
Malloc1(length : Long) : Pointer
<POP 20ecc-20ece StackAdj> Δ+8 {}
<MI 20ece MOVEA.L (A6-0xe),A0> {}
<MI 20ed0 MOVEA.L A0,A1> {}
<MI 20ed2 LEA.L (A6-0xa),A2> {}
<BlockMove 8,A2,A1> {}
<MI 20ede MOVE.L #0x01,(A0+0x8)> {}
<MI 20ee2 MOVEA.L (A6+0xc),A0> {}
<MI 20ee6 MOVEA.L (A0),A1> {}
<MI 20ee8 CMPA.W #0x01,A1> {}
<MI 20eea BNE 0x20ef0> {}
<POP 20eec-20ef0 Naked> Σ0 →0x20ef4
<MI 20eec MOVE.L (A6-0xe),(A0)> {}
<MI 20eee BRA 0x20ef4> {}
<POP 20ef0-20ef4 Naked> Σ0 ↓ ←0x20ec0
<MI 20ef0 MOVE.L (A6-0xe),(A4+0x8)> {}
<POP 20ef4-20ef6 Naked> Σ0 ↓ ←0x20eec
<MI 20ef4 MOVEA.L (A6-0xe),A4> {}
<POP 20ef6-20efc Naked> Σ0 ↓ →0x20ea6 ←0x20ea6
<MI 20ef6 TST.B (A6-0x2)> {}
<MI 20efa BEQ 0x20ea6> {}
<POP 20efc-20f0c Naked> Σ0 ↓ →0x20f0e
<MI 20efc MOVEA.L (A6+0x8),A0> {}
<MI 20f00 CLR.B (A0)> {}
<MI 20f02 MOVE.B (A6-0x2),D0> {}
<MI 20f06 CMPI.B #0x02,D0> {}
<MI 20f0a BNE 0x20f0e> {}
<POP 20f0c-20f0e Naked> Σ0 ↓
<MI 20f0c ADDQ.B #0x1,(A0)> {}
<POP 20f0e-20f16 Epilogue> Σ0 ←0x20efc
@ 20f16
<LVAR 0x00c 4(w)>
<LVAR 0x008 4(r)>
<POP 20f16-20f4c Body>
<POP 20f16-20f2c Prologue> Σ0 ↓
<POP 20f2c-20f32 Naked> Σ0 ↓
<MI 20f2c MOVEQ.L #-0x01,D7> {}
<MI 20f2e MOVEA.L (A6+0x8),A4> {}
<POP 20f32-20f38 Naked> Σ0 ↓ →0x20f40 ←0x20f38
<MI 20f32 CMPA.W #0x1,A4> {}
<MI 20f36 BEQ 0x20f40> {}
<POP 20f38-20f40 Naked> Σ0 →0x20f32
<MI 20f38 ADDQ.L #0x1,D7> {}
<MI 20f3a MOVEA.L (A4+0x8),A4> {}
<MI 20f3e BRA 0x20f32> {}
<POP 20f40-20f44 Naked> Σ0 ↓ ←0x20f32
<MI 20f40 MOVE.L D7,(A6+0xc)> {}
<POP 20f44-20f4c Epilogue> Σ0
@ 20f4c
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 20f4c-20fd8 Body>
<POP 20f4c-20f62 Prologue> Σ0 ↓
<POP 20f62-20f64 RegCacheLoad> Σ0 ↓
<POP 20f64-20f78 Naked> Σ0 ↓ →0x20fd0
<POP 20f64-20f66 StackAdj> Δ-4 {[-4-]}
<MI 20f66 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']}
<Call 0x20f6a 0x20f16> {[-4-]|[4, '(A6+0xc)']}
<POP 20f6e-20f70 StackAdj> Δ+4 {[-4-]}
<MI 20f70 MOVE.L (A7)+,D0> Δ+4 {}
<MI 20f72 CMP.L (A6+0x8),D0> {}
<MI 20f76 BEQ 0x20fd0> {}
<POP 20f78-20fd0 Naked> Σ0 ↓
<MI 20f78 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<Call 0x20f7c 0x20ac8> {[4, '(A6+0xc)']}
<POP 20f80-20f82 StackAdj> Δ+4 {}
<Blob 0x20f82 [32] @> Δ-32 {[«32""»]}
<Blob 0x20f8e [10] (A6+0x1a)> Δ-10 {[«32""»]|[«10»]}
<POP 20f9a-20f9c StackAdj> Δ-8 {[«32""»]|[«10»]|[-8-]}
<Lit 0x20f9c 32> {[«32""»]|[«10»]|[-4-]|[$$Wrong number of arguments for :_]}
<POP 20fac-20fae StackAdj> Δ-4 {[«32""»]|[«10»]|[-4-]|[$$Wrong number of arguments for :_]|[-4-]}
<Lit 0x20fae> {[«32""»]|[«10»]|[-4-]|[$$Wrong number of arguments for :_]|[$$…]}
<Pointer.sp 0x20fae 12> Δ-4
<Const 0x20fb2 0x1.2> Δ-2
<Const 0x20fb4 0xa.2> Δ-2
<Call 0x20fb8 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 20fbe-20fc0 StackAdj> Δ+8
<Call 0x20fc0 0x102d0> {[«32""»]|[«10»]|[-4-]|[$$Wrong number of arguments for :_]|[$$…]}
StringCat2(a, b : String) : String
<POP 20fc6-20fc8 StackAdj> Δ+8 {[«32""»]|[«10»]|[-4-]}
<Call 0x20fc8 0x20b0a> {[«32""»]|[«10»]|[-4-]}
<POP 20fcc-20fd0 StackAdj> Δ+46 {}
<POP 20fd0-20fd8 Epilogue> Σ0 ←0x20f64
@ 20fd8
<LVAR 0x014 1(rw)>
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 20fd8-2105e Body> Δ-4
<POP 20fd8-20fee Prologue> Σ0 ↓
<POP 20fee-21002 Naked> Σ0 ↓ →0x21050
<MI 20fee CLR.B (A6+0x14)> {}
<MI 20ff2 MOVE.L (A6+0x10),D0> {}
<MI 20ff6 ADD.L (A6+0x8),D0> {}
<MI 20ffa CMP.L 0x25618,D0> {}
<MI 21000 BGT 0x21050> {}
<POP 21002-21008 Naked> Σ0 Δ-4 ↓
<MI 21002 MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<MI 21006 MOVEQ.L #0x01,D7> {[4, '(A6+0x8)']}
<POP 21008-2100c Naked> Σ-4 ↓ →0x2104e ←0x2104a
<MI 21008 CMP.L (A7),D7> {[-4-]}
<MI 2100a BGT 0x2104e> {[-4-]}
<POP 2100c-21046 Naked> Σ-4 ↓ →0x2104a
<MI 2100c MOVE.L (A6+0x10),D0> {[-4-]}
<MI 21010 ADD.L D7,D0> {[-4-]}
<MI 21012 SUBQ.L #0x1,D0> {[-4-]}
<POP 0x21014 LimitCheck 0x0 ≤ D0 ≤ 0xfff> {[-4-]}
<MI 2101e LEA.L 0x2460c,A0> {[-4-]}
<MI 21024 MOVE.L (A6+0xc),D1> {[-4-]}
<MI 21028 ADD.L D7,D1> {[-4-]}
<MI 2102a SUBQ.L #0x1,D1> {[-4-]}
<MI 2102c SUBQ.L #0x1,D1> {[-4-]}
<POP 0x2102e LimitCheck 0x0 ≤ D1 ≤ 0x3e> {[-4-]}
<MI 21038 LEA.L 0x20624,A1> {[-4-]}
<MI 2103c MOVE.B (A0+D0.L+#0x8),D0> {[-4-]}
<MI 21040 CMP.B (A1+D1.L),D0> {[-4-]}
<MI 21044 BEQ 0x2104a> {[-4-]}
<POP 21046-2104a Naked> Σ-4 Δ+4 →0x21056
<POP 21046-21048 StackAdj> Δ+4 {}
<MI 21048 BRA 0x21056> {}
<POP 2104a-2104e Naked> Σ-4 ↓ →0x21008 ←0x2100c
<MI 2104a ADDQ.L #0x1,D7> {[-4-]}
<MI 2104c BVC 0x21008> {[-4-]}
<POP 2104e-21050 Naked> Σ-4 Δ+4 ↓ ←0x21008
<POP 2104e-21050 StackAdj> Δ+4 {}
<POP 21050-21056 Naked> Σ0 ↓ ←0x20fee
<MI 21050 MOVE.B #0x01,(A6+0x14)> {}
<POP 21056-2105e Epilogue> Σ0 ←0x21046
@ 2105e
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 2105e-210e8 Body>
<POP 2105e-21074 Prologue> Σ0 ↓
<POP 21074-2107e RegCacheLoad> Σ0 ↓
<POP 2107e-21082 Naked> Σ0 ↓ →0x210c0
<MI 2107e TST.L (A6+0x8)> {}
<MI 21080 BGE 0x210c0> {}
<POP 21082-21090 Naked> Σ0 ↓ →0x210c0
<MI 21082 MOVE.L (A6+0x8),D0> {}
<MI 21084 NEG.L D0> {}
<MI 21086 ADD.L 0x25618,D0> {}
<MI 21088 CMPI.L #0x00001000,D0> {}
<MI 2108e BLE 0x210c0> {}
<POP 21090-210c0 Naked> Σ0 ↓
<Blob 0x21090 [28] @> Δ-28 {[«28""»]}
<POP 210a2-210a4 StackAdj> Δ-4 {[«28""»]|[-4-]}
<Lit 0x210a4 27> {[«28""»]|[$$Evaluation buffer overflow.]}
<Call 0x210b8 0x20b0a> {[«28""»]|[$$Evaluation buffer overflow.]}
<POP 210bc-210c0 StackAdj> Δ+32 {}
<POP 210c0-210e0 Naked> Σ0 ↓ ←0x2107e ←0x21082
<MI 210c0 LEA.L 0x24614,A0> {}
<MI 210c6 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Blob 0x210c8 [4] 0x25618> Δ-4 {[4, 'A0']|[«4»]}
<MI 210ca MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, 'A0']|[«4»]|[4, '(A6+0xc)']}
<MI 210ce MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, 'A0']|[«4»]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x210d0 0x10364> {[4, 'A0']|[«4»]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
MovStringTail(Base, Len, Ptr, Delta)
<POP 210d6-210da StackAdj> Δ+16 {}
<MI 210da MOVE.L 0x25618,D0> {}
<MI 210dc SUB.L (A6+0x8),D0> {}
<MI 210de MOVE.L D0,0x25618> {}
<POP 210e0-210e8 Epilogue> Σ0
@ 210e8
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 210e8-21172 Body>
<POP 210e8-210fe Prologue> Σ0 ↓
<POP 210fe-21102 RegCacheLoad> Σ0 ↓
<POP 21102-21122 Naked> Σ0 Δ-8 ↓
<MI 21102 MOVEA.L (A6+0x8),A0> {}
<MI 21106 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 21108 MOVEA.L (A6+0xc),A1> {[4, 'A0']}
<MI 2110a MOVE.L (A1),-(A7)> Δ-4 {[4, 'A0']|[4, '(A1)']}
<MI 2110c MOVE.W (A0),D0> {[4, 'A0']|[4, '(A1)']}
<MI 2110e EXTW.L D0> {[4, 'A0']|[4, '(A1)']}
<MI 21110 NEG.L D0> {[4, 'A0']|[4, '(A1)']}
<MI 21112 MOVE.L D0,-(A7)> Δ-4 {[4, 'A0']|[4, '(A1)']|[4, 'D0']}
<Call 0x21114 0x2105e> {[4, 'A0']|[4, '(A1)']|[4, 'D0']}
<POP 21118-2111a StackAdj> Δ+8 {[4, 'A0']}
<MI 2111a MOVE.W (A0),D0> {[4, 'A0']}
<MI 2111c EXTW.L D0> {[4, 'A0']}
<MI 2111e MOVE.L D0,-(A7)> Δ-4 {[4, 'A0']|[4, 'D0']}
<MI 21120 MOVEQ.L #0x01,D7> {[4, 'A0']|[4, 'D0']}
<POP 21122-21126 Naked> Σ-8 ↓ →0x2115c ←0x21126
<MI 21122 CMP.L (A7),D7> {[-8-]}
<MI 21124 BGT 0x2115c> {[-8-]}
<POP 21126-2115c Naked> Σ-8 ↓ →0x21122
<MI 21126 MOVEA.L (A6+0xc),A0> {[-8-]}
<MI 21128 MOVE.L D7,D0> {[-8-]}
<MI 2112a ADD.L (A0),D0> {[-8-]}
<MI 2112c SUBQ.L #0x1,D0> {[-8-]}
<MI 2112e SUBQ.L #0x1,D0> {[-8-]}
<POP 0x21130 LimitCheck 0x0 ≤ D0 ≤ 0xfff> {[-8-]}
<MI 2113a LEA.L 0x2460c,A0> {[-8-]}
<MI 21140 MOVE.L D7,D1> {[-8-]}
<MI 21142 SUBQ.L #0x1,D1> {[-8-]}
<POP 0x21144 LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-8-]}
<MI 2114e MOVEA.L (A7+0x4),A1> {[-8-]}
<MI 21152 MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x8)> {[-8-]}
<MI 21158 ADDQ.L #0x1,D7> {[-8-]}
<MI 2115a BVC 0x21122> {[-8-]}
<POP 2115c-2116a Naked> Σ-8 Δ+8 ↓ ←0x21122
<POP 2115c-2115e StackAdj> Δ+4 {[-4-]}
<MI 2115e MOVEA.L (A6+0xc),A0> {[-4-]}
<MI 21160 MOVEA.L (A7),A1> {[-4-]}
<MI 21162 MOVE.W (A1),D0> {[-4-]}
<MI 21164 EXTW.L D0> {[-4-]}
<MI 21166 ADD.L D0,(A0)> {[-4-]}
<POP 21168-2116a StackAdj> Δ+4 {}
<POP 2116a-21172 Epilogue> Σ0
@ 21172
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 21172-212f2 Body>
<POP 21172-21188 Prologue> Σ0 ↓
<POP 21188-21196 RegCacheLoad> Σ0 ↓
<POP 21196-211a8 Naked> Σ0 ↓
<MI 21196 MOVEQ.L #0x00,D7> {}
<MI 21198 MOVEA.L (A6+0xc),A0> {}
<MI 2119c CLR.L (A0)> {}
<MI 2119e MOVEA.L (A6+0x8),A0> {}
<MI 211a0 CLR.L (A0)> {}
<MI 211a2 MOVE.L 0x25614,D6> {}
<POP 211a8-211c8 Naked> Σ0 ↓ →0x2129a ←0x212a4 ←0x212aa
<MI 211a8 MOVE.L D6,D0> {}
<MI 211aa SUBQ.L #0x1,D0> {}
<POP 0x211ac LimitCheck 0x0 ≤ D0 ≤ 0xfff> {}
<MI 211b6 LEA.L 0x2460c,A0> {}
<MI 211bc MOVE.B (A0+D0.L+#0x8),D0> {}
<MI 211c0 CMPI.B #0x5b,D0> {}
<MI 211c4 BNE 0x2129a> {}
<POP 211c8-211dc Naked> Σ0 ↓ →0x2125a
<POP 211c8-211ca StackAdj> Δ-2 {[-2-]}
<MI 211ca MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x211cc 0x1.4> Δ-4 {[-2-]|[4, 'D6']|[##1]}
<Const 0x211d0 0x3.4> Δ-4 {[-2-]|[4, 'D6']|[##1]|[##3]}
<Call 0x211d4 0x20fd8> {[-2-]|[4, 'D6']|[##1]|[##3]}
<POP 211d6-211d8 StackAdj> Δ+12 {[-2-]}
<MI 211d8 TST.B (A7)+> Δ+2 {}
<MI 211da BNE 0x2125a> {}
<POP 211dc-211ee Naked> Σ0 ↓ →0x2125a
<POP 211dc-211de StackAdj> Δ-2 {[-2-]}
<MI 211de MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x211e0 0x4.4> Δ-4 {[-2-]|[4, 'D6']|[##4]}
<Const 0x211e2 0x3.4> Δ-4 {[-2-]|[4, 'D6']|[##4]|[##3]}
<Call 0x211e6 0x20fd8> {[-2-]|[4, 'D6']|[##4]|[##3]}
<POP 211e8-211ea StackAdj> Δ+12 {[-2-]}
<MI 211ea TST.B (A7)+> Δ+2 {}
<MI 211ec BNE 0x2125a> {}
<POP 211ee-21200 Naked> Σ0 ↓ →0x2125a
<POP 211ee-211f0 StackAdj> Δ-2 {[-2-]}
<MI 211f0 MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x211f2 0x7.4> Δ-4 {[-2-]|[4, 'D6']|[##7]}
<Const 0x211f6 0x4.4> Δ-4 {[-2-]|[4, 'D6']|[##7]|[##4]}
<Call 0x211f8 0x20fd8> {[-2-]|[4, 'D6']|[##7]|[##4]}
<POP 211fa-211fc StackAdj> Δ+12 {[-2-]}
<MI 211fc TST.B (A7)+> Δ+2 {}
<MI 211fe BNE 0x2125a> {}
<POP 21200-21212 Naked> Σ0 ↓ →0x2125a
<POP 21200-21202 StackAdj> Δ-2 {[-2-]}
<MI 21202 MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x21204 0xb.4> Δ-4 {[-2-]|[4, 'D6']|[##11]}
<Const 0x21208 0x4.4> Δ-4 {[-2-]|[4, 'D6']|[##11]|[##4]}
<Call 0x2120a 0x20fd8> {[-2-]|[4, 'D6']|[##11]|[##4]}
<POP 2120c-2120e StackAdj> Δ+12 {[-2-]}
<MI 2120e TST.B (A7)+> Δ+2 {}
<MI 21210 BNE 0x2125a> {}
<POP 21212-21224 Naked> Σ0 ↓ →0x2125a
<POP 21212-21214 StackAdj> Δ-2 {[-2-]}
<MI 21214 MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x21216 0xf.4> Δ-4 {[-2-]|[4, 'D6']|[##15]}
<Const 0x2121a 0x4.4> Δ-4 {[-2-]|[4, 'D6']|[##15]|[##4]}
<Call 0x2121c 0x20fd8> {[-2-]|[4, 'D6']|[##15]|[##4]}
<POP 2121e-21220 StackAdj> Δ+12 {[-2-]}
<MI 21220 TST.B (A7)+> Δ+2 {}
<MI 21222 BNE 0x2125a> {}
<POP 21224-21236 Naked> Σ0 ↓ →0x2125a
<POP 21224-21226 StackAdj> Δ-2 {[-2-]}
<MI 21226 MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x21228 0x13.4> Δ-4 {[-2-]|[4, 'D6']|[##19]}
<Const 0x2122c 0x4.4> Δ-4 {[-2-]|[4, 'D6']|[##19]|[##4]}
<Call 0x2122e 0x20fd8> {[-2-]|[4, 'D6']|[##19]|[##4]}
<POP 21230-21232 StackAdj> Δ+12 {[-2-]}
<MI 21232 TST.B (A7)+> Δ+2 {}
<MI 21234 BNE 0x2125a> {}
<POP 21236-21248 Naked> Σ0 ↓ →0x2125a
<POP 21236-21238 StackAdj> Δ-2 {[-2-]}
<MI 21238 MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x2123a 0x17.4> Δ-4 {[-2-]|[4, 'D6']|[##23]}
<Const 0x2123e 0x4.4> Δ-4 {[-2-]|[4, 'D6']|[##23]|[##4]}
<Call 0x21240 0x20fd8> {[-2-]|[4, 'D6']|[##23]|[##4]}
<POP 21242-21244 StackAdj> Δ+12 {[-2-]}
<MI 21244 TST.B (A7)+> Δ+2 {}
<MI 21246 BNE 0x2125a> {}
<POP 21248-2125a Naked> Σ0 ↓ →0x2125e
<POP 21248-2124a StackAdj> Δ-2 {[-2-]}
<MI 2124a MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x2124c 0x1b.4> Δ-4 {[-2-]|[4, 'D6']|[##27]}
<Const 0x21250 0x4.4> Δ-4 {[-2-]|[4, 'D6']|[##27]|[##4]}
<Call 0x21252 0x20fd8> {[-2-]|[4, 'D6']|[##27]|[##4]}
<POP 21254-21256 StackAdj> Δ+12 {[-2-]}
<MI 21256 TST.B (A7)+> Δ+2 {}
<MI 21258 BEQ 0x2125e> {}
<POP 2125a-2125e Naked> Σ0 →0x2129a ←0x211c8 ←0x211dc ←0x211ee ←0x21200 ←0x21212 ←0x21224 ←0x21236
<MI 2125a ADDQ.L #0x1,D7> {}
<MI 2125c BRA 0x2129a> {}
<POP 2125e-21262 Naked> Σ0 ↓ →0x2127e ←0x21248
<MI 2125e TST.L D7> {}
<MI 21260 BNE 0x2127e> {}
<POP 21262-21276 Naked> Σ0 ↓ →0x2127e
<POP 21262-21264 StackAdj> Δ-2 {[-2-]}
<MI 21264 MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x21266 0x1f.4> Δ-4 {[-2-]|[4, 'D6']|[##31]}
<Const 0x2126a 0x5.4> Δ-4 {[-2-]|[4, 'D6']|[##31]|[##5]}
<Call 0x2126e 0x20fd8> {[-2-]|[4, 'D6']|[##31]|[##5]}
<POP 21270-21272 StackAdj> Δ+12 {[-2-]}
<MI 21272 TST.B (A7)+> Δ+2 {}
<MI 21274 BEQ 0x2127e> {}
<POP 21276-2127a Naked> Σ0 ↓
<MI 21276 MOVEA.L (A6+0xc),A0> {}
<POP 2127a-2127e Naked> Σ0 →0x2129a ←0x21294
<MI 2127a MOVE.L D6,(A0)> {}
<MI 2127c BRA 0x2129a> {}
<POP 2127e-21290 Naked> Σ0 ↓ →0x2129a ←0x2125e ←0x21262
<POP 2127e-21280 StackAdj> Δ-2 {[-2-]}
<MI 21280 MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x21282 0x24.4> Δ-4 {[-2-]|[4, 'D6']|[##36]}
<Const 0x21286 0x4.4> Δ-4 {[-2-]|[4, 'D6']|[##36]|[##4]}
<Call 0x21288 0x20fd8> {[-2-]|[4, 'D6']|[##36]|[##4]}
<POP 2128a-2128c StackAdj> Δ+12 {[-2-]}
<MI 2128c TST.B (A7)+> Δ+2 {}
<MI 2128e BEQ 0x2129a> {}
<POP 21290-21294 Naked> Σ0 ↓ →0x21298
<MI 21290 TST.L D7> {}
<MI 21292 BNE 0x21298> {}
<POP 21294-21298 Naked> Σ0 →0x2127a
<MI 21294 MOVEA.L (A6+0x8),A0> {}
<MI 21296 BRA 0x2127a> {}
<POP 21298-2129a Naked> Σ0 ↓ ←0x21290
<MI 21298 SUBQ.L #0x1,D7> {}
<POP 2129a-212a4 Naked> Σ0 ↓ →0x212b2 ←0x211a8 ←0x2125a ←0x2127a ←0x2127e
<MI 2129a ADDQ.L #0x1,D6> {}
<MI 2129c CMP.L 0x25618,D6> {}
<MI 212a2 BGT 0x212b2> {}
<POP 212a4-212aa Naked> Σ0 ↓ →0x211a8
<MI 212a4 TST.L D7> {}
<MI 212a6 BNE 0x211a8> {}
<POP 212aa-212b2 Naked> Σ0 ↓ →0x211a8
<MI 212aa MOVEA.L (A6+0x8),A0> {}
<MI 212ac TST.L (A0)> {}
<MI 212ae BEQ 0x211a8> {}
<POP 212b2-212ba Naked> Σ0 ↓ →0x212ea ←0x2129a
<MI 212b2 CMP.L 0x25618,D6> {}
<MI 212b8 BLE 0x212ea> {}
<POP 212ba-212ea Naked> Σ0 ↓
<Blob 0x212ba [28] @> Δ-28 {[«28""»]}
<POP 212cc-212ce StackAdj> Δ-4 {[«28""»]|[-4-]}
<Lit 0x212ce 27> {[«28""»]|[$$Unbalanced [ELSE] or [END]!]}
<Call 0x212e2 0x20b0a> {[«28""»]|[$$Unbalanced [ELSE] or [END]!]}
<POP 212e6-212ea StackAdj> Δ+32 {}
<POP 212ea-212f2 Epilogue> Σ0 ←0x212b2
@ 212f2
<LVAR -0x004 @ 4(r)>
<LVAR -0x008 @ 4(rw)>
<POP 212f2-21338 Body>
<POP 212f2-21308 Prologue> Σ0 ↓
<POP 21308-21310 RegCacheLoad> Σ0 ↓
<POP 21310-2131e Naked> Σ0 ↓ →0x21320
<Pointer.fp 0x21310 <LVAR -0x008 @ 4(rw)>> Δ-4 {[@@-8]}
<Pointer.fp 0x21312 <LVAR -0x004 @ 4(r)>> Δ-4 {[@@-8]|[@@-4]}
<Call 0x21314 0x21172> {[@@-8]|[@@-4]}
<POP 21318-2131a StackAdj> Δ+8 {}
<MI 2131a TST.L (A6-0x8)> {}
<MI 2131c BNE 0x21320> {}
<POP 2131e-21320 Naked> Σ0 ↓
<MI 2131e MOVE.L (A6-0x4),(A6-0x8)> {}
<POP 21320-21330 Naked> Σ0 ↓ ←0x21310
<MI 21320 MOVE.L (A6-0x4),D0> {}
<MI 21322 ADDQ.L #0x5,D0> {}
<MI 21324 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 21326 SUB.L (A6-0x8),D0> {[4, 'D0']}
<MI 21328 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']|[4, 'D0']}
<Call 0x2132a 0x2105e> {[4, 'D0']|[4, 'D0']}
<POP 2132e-21330 StackAdj> Δ+8 {}
<POP 21330-21338 Epilogue> Σ0
@ 21338
<LVAR -0x004 @ 4(r)>
<LVAR -0x008 @ 4(r)>
<POP 21338-21394 Body>
<POP 21338-2134e Prologue> Σ0 ↓
<POP 2134e-21356 RegCacheLoad> Σ0 ↓
<POP 21356-21364 Naked> Σ0 ↓ →0x2136a
<Pointer.fp 0x21356 <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-8]}
<Pointer.fp 0x21358 <LVAR -0x004 @ 4(r)>> Δ-4 {[@@-8]|[@@-4]}
<Call 0x2135a 0x21172> {[@@-8]|[@@-4]}
<POP 2135e-21360 StackAdj> Δ+8 {}
<MI 21360 TST.L (A6-0x8)> {}
<MI 21362 BNE 0x2136a> {}
<POP 21364-2136a Naked> Σ0 →0x2137c
<MI 21364 MOVE.L (A6-0x4),D0> {}
<MI 21366 ADDQ.L #0x5,D0> {}
<MI 21368 BRA 0x2137c> {}
<POP 2136a-2137c Naked> Σ0 ↓ ←0x21356
<MI 2136a MOVE.L (A6-0x4),-(A7)> Δ-4 {[4, '(A6-0x4)']}
<MI 2136c ADDQ.L #0x5,(A7)> {[-4-]}
<Const 0x2136e 0x5.4> Δ-4 {[-4-]|[##5]}
<Call 0x21372 0x2105e> {[-4-]|[##5]}
<POP 21376-21378 StackAdj> Δ+8 {}
<MI 21378 MOVE.L (A6-0x8),D0> {}
<MI 2137a ADDQ.L #0x6,D0> {}
<POP 2137c-2138c Naked> Σ0 ↓ ←0x21364
<MI 2137c MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 2137e SUB.L 0x25614,D0> {[4, 'D0']}
<MI 21384 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']|[4, 'D0']}
<Call 0x21386 0x2105e> {[4, 'D0']|[4, 'D0']}
<POP 2138a-2138c StackAdj> Δ+8 {}
<POP 2138c-21394 Epilogue> Σ0
@ 21394
<LVAR 0x008 4(r)>
<LVAR -0x004 @>
<LVAR -0x008 @ 4(r)>
<LVAR -0x00c @ 4(rw)>
<LVAR -0x010 4(rw)>
<LVAR -0x014 4(rw)>
<POP 21394-214a8 Body>
<POP 21394-213aa Prologue> Σ0 ↓
<POP 213aa-213c2 RegCacheLoad> Σ0 ↓
<POP 213c2-213c6 Naked> Σ0 ↓ →0x213d0
<MI 213c2 TST.B 0x25626> {}
<MI 213c4 BEQ 0x213d0> {}
<POP 213c6-213ca Naked> Σ0 ↓ →0x213d0
<MI 213c6 TST.L 0x2562c> {}
<MI 213c8 BNE 0x213d0> {}
<POP 213ca-213d0 Naked> Σ0 ↓
<MI 213ca MOVE.L (A6+0x8),0x2562c> {}
<MI 213ce SUBQ.L #0x1,0x2562c> {}
<POP 213d0-213d6 Naked> Σ0 ↓ →0x214a0 ←0x213c2 ←0x213c6
<MI 213d0 TST.B 0x25626> {}
<MI 213d2 BNE 0x214a0> {}
<POP 213d6-2140a Naked> Σ0 ↓ →0x21424
<MI 213d6 MOVE.L (A6+0x8),0x25614> {}
<MI 213da ADDQ.L #0x6,0x25614> {}
<Pointer.fp 0x213dc <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-8]}
<Pointer.fp 0x213de <LVAR -0x004 @>> Δ-4 {[@@-8]|[@@-4]}
<Call 0x213e2 0x20e6a> {[@@-8]|[@@-4]}
<POP 213e6-213e8 StackAdj> Δ+8 {}
<Blob 0x213e8 [10] @> Δ-10 {[«10""»]}
<MI 213f4 MOVE.L (A6-0x8),-(A7)> Δ-4 {[«10""»]|[4, '(A6-0x8)']}
<Const 0x213f6 0x0.4> Δ-4 {[«10""»]|[4, '(A6-0x8)']|[##0]}
<Call 0x213fa 0x20f4c> {[«10""»]|[4, '(A6-0x8)']|[##0]}
<POP 213fe-21402 StackAdj> Δ+18 {}
<MI 21402 TST.B 0x25630> {}
<MI 21408 BEQ 0x21424> {}
<POP 2140a-21424 Naked> Σ0 →0x21438
<POP 2140a-2140c StackAdj> Δ-8 {[-8-]}
<MI 2140c MOVE.L (A6-0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x8)']}
<Const 0x2140e 0x0.4> Δ-4 {[-8-]|[4, '(A6-0x8)']|[##0]}
<Call 0x21412 0x21864> {[-8-]|[4, '(A6-0x8)']|[##0]}
<POP 21418-2141a StackAdj> Δ+8 {[-8-]}
<MI 2141a MOVE.L (A7)+,(A6-0x14)> Δ+4 {[-4-]}
<MI 2141e MOVE.L (A7)+,(A6-0x10)> Δ+4 {}
<MI 21422 BRA 0x21438> {}
<POP 21424-21438 Naked> Σ0 ↓ ←0x213d6
<POP 21424-21426 StackAdj> Δ-4 {[-4-]}
<MI 21426 MOVE.L (A6-0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x8)']}
<Const 0x21428 0x0.4> Δ-4 {[-4-]|[4, '(A6-0x8)']|[##0]}
<Call 0x2142c 0x21832> {[-4-]|[4, '(A6-0x8)']|[##0]}
<POP 21432-21434 StackAdj> Δ+8 {[-4-]}
<MI 21434 MOVE.L (A7)+,(A6-0xc)> Δ+4 {}
<POP 21438-2144e Naked> Σ0 ↓ →0x21478 ←0x2140a
<MI 21438 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<Call 0x2143a 0x20ac8> {[4, '(A6-0x8)']}
<POP 2143e-21440 StackAdj> Δ+4 {}
<MI 21440 MOVE.L 0x25614,0x25628> {}
<MI 21446 TST.B 0x25630> {}
<MI 2144c BEQ 0x21478> {}
<POP 2144e-21478 Naked> Σ0 →0x214a0
<POP 2144e-21450 StackAdj> Δ-2 {[-2-]}
<MI 21450 MOVE.L (A6-0x10),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x10)']}
<MI 21454 MOVE.L (A6-0x14),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<Blob 0x21458 [4] 0x2563a> Δ-4 {[-2-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']|[«4»]}
<Blob 0x2145e [4] 0x25636> Δ-4 {[-2-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']|[«4»]|[«4»]}
<Call 0x21464 0x1032c> {[-2-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']|[«4»]|[«4»]}
IsEqual(a, b : Quad) : Bool
<POP 2146a-2146e StackAdj> Δ+16 {[-2-]}
<MI 2146e MOVE.B (A7)+,D0> Δ+2 {}
<MI 21470 EXTB.W D0> {}
<POP 0x21472 LimitCheck 0x0 ≤ D0 ≤ 0x1> {}
<MI 21474 MOVE.B D0,0x25626> {}
<MI 21476 BRA 0x214a0> {}
<POP 21478-214a0 Naked> Σ0 ↓ ←0x21438
<POP 21478-2147a StackAdj> Δ-2 {[-2-]}
<MI 2147a MOVE.L (A6-0xc),-(A7)> Δ-4 {[-2-]|[4, '(A6-0xc)']}
<Blob 0x2147e [4] 0x25632> Δ-4 {[-2-]|[4, '(A6-0xc)']|[«4»]}
<Call 0x21484 0x102c8> {[-2-]|[4, '(A6-0xc)']|[«4»]}
StringEqual(a, b : String) : Byte
<POP 2148a-2148c StackAdj> Δ+8 {[-2-]}
<MI 2148c MOVE.B (A7)+,D0> Δ+2 {}
<MI 2148e EXTB.W D0> {}
<POP 0x21490 LimitCheck 0x0 ≤ D0 ≤ 0x1> {}
<MI 21492 MOVE.B D0,0x25626> {}
<Pointer.fp 0x21494 <LVAR -0x00c @ 4(rw)>> Δ-4 {[@@-12]}
<Call 0x21498 0x102bc> {[@@-12]}
FreeString(VAR a : String)
<POP 2149e-214a0 StackAdj> Δ+4 {}
<POP 214a0-214a8 Epilogue> Σ0 ←0x213d0 ←0x2144e
@ 214a8
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 214a8-2162a Body>
<POP 214a8-214be Prologue> Σ0 ↓
<POP 214be-214d2 RegCacheLoad> Σ0 ↓
<POP 214d2-214e6 Naked> Σ0 ↓
<MI 214d2 CLR.B 0x25626> {}
<MI 214d4 CLR.L 0x25628> {}
<MI 214da CLR.L 0x2562c> {}
<MI 214dc MOVEQ.L #0x00,D7> {}
<MI 214de MOVEQ.L #0x00,D6> {}
<MI 214e0 MOVE.L 0x25614,D5> {}
<POP 214e6-214ec Naked> Σ0 ↓ →0x2158a ←0x21586
<MI 214e6 TST.L D6> {}
<MI 214e8 BNE 0x2158a> {}
<POP 214ec-214f6 Naked> Σ0 ↓ →0x2158a
<MI 214ec CMP.L 0x25618,D5> {}
<MI 214f2 BGT 0x2158a> {}
<POP 214f6-21514 Naked> Σ0 ↓ →0x21580
<MI 214f6 MOVE.L D5,D0> {}
<MI 214f8 SUBQ.L #0x1,D0> {}
<POP 0x214fa LimitCheck 0x0 ≤ D0 ≤ 0xfff> {}
<MI 21504 LEA.L 0x2460c,A0> {}
<MI 2150a MOVE.B (A0+D0.L+#0x8),D0> {}
<MI 2150e CMPI.B #0x5b,D0> {}
<MI 21512 BNE 0x21580> {}
<POP 21514-21528 Naked> Σ0 ↓ →0x2153c
<POP 21514-21516 StackAdj> Δ-2 {[-2-]}
<MI 21516 MOVE.L D5,-(A7)> Δ-4 {[-2-]|[4, 'D5']}
<Const 0x21518 0x28.4> Δ-4 {[-2-]|[4, 'D5']|[##40]}
<Const 0x2151c 0x5.4> Δ-4 {[-2-]|[4, 'D5']|[##40]|[##5]}
<Call 0x21520 0x20fd8> {[-2-]|[4, 'D5']|[##40]|[##5]}
<POP 21522-21524 StackAdj> Δ+12 {[-2-]}
<MI 21524 TST.B (A7)+> Δ+2 {}
<MI 21526 BNE 0x2153c> {}
<POP 21528-2153c Naked> Σ0 ↓ →0x21540
<POP 21528-2152a StackAdj> Δ-2 {[-2-]}
<MI 2152a MOVE.L D5,-(A7)> Δ-4 {[-2-]|[4, 'D5']}
<Const 0x2152c 0x2d.4> Δ-4 {[-2-]|[4, 'D5']|[##45]}
<Const 0x21530 0x6.4> Δ-4 {[-2-]|[4, 'D5']|[##45]|[##6]}
<Call 0x21534 0x20fd8> {[-2-]|[4, 'D5']|[##45]|[##6]}
<POP 21536-21538 StackAdj> Δ+12 {[-2-]}
<MI 21538 TST.B (A7)+> Δ+2 {}
<MI 2153a BEQ 0x21540> {}
<POP 2153c-21540 Naked> Σ0 →0x21580 ←0x21514
<MI 2153c ADDQ.L #0x1,D7> {}
<MI 2153e BRA 0x21580> {}
<POP 21540-21544 Naked> Σ0 ↓ →0x21562 ←0x21528
<MI 21540 TST.L D7> {}
<MI 21542 BNE 0x21562> {}
<POP 21544-21558 Naked> Σ0 ↓ →0x21562
<POP 21544-21546 StackAdj> Δ-2 {[-2-]}
<MI 21546 MOVE.L D5,-(A7)> Δ-4 {[-2-]|[4, 'D5']}
<Const 0x21548 0x33.4> Δ-4 {[-2-]|[4, 'D5']|[##51]}
<Const 0x2154c 0x5.4> Δ-4 {[-2-]|[4, 'D5']|[##51]|[##5]}
<Call 0x21550 0x20fd8> {[-2-]|[4, 'D5']|[##51]|[##5]}
<POP 21552-21554 StackAdj> Δ+12 {[-2-]}
<MI 21554 TST.B (A7)+> Δ+2 {}
<MI 21556 BEQ 0x21562> {}
<POP 21558-21562 Naked> Σ0 →0x21580
<MI 21558 MOVE.L D5,-(A7)> Δ-4 {[4, 'D5']}
<Call 0x2155a 0x21394> {[4, 'D5']}
<POP 2155e-21560 StackAdj> Δ+4 {}
<MI 21560 BRA 0x21580> {}
<POP 21562-21576 Naked> Σ0 ↓ →0x21580 ←0x21540 ←0x21544
<POP 21562-21564 StackAdj> Δ-2 {[-2-]}
<MI 21564 MOVE.L D5,-(A7)> Δ-4 {[-2-]|[4, 'D5']}
<Const 0x21566 0x38.4> Δ-4 {[-2-]|[4, 'D5']|[##56]}
<Const 0x2156a 0x8.4> Δ-4 {[-2-]|[4, 'D5']|[##56]|[##8]}
<Call 0x2156e 0x20fd8> {[-2-]|[4, 'D5']|[##56]|[##8]}
<POP 21570-21572 StackAdj> Δ+12 {[-2-]}
<MI 21572 TST.B (A7)+> Δ+2 {}
<MI 21574 BEQ 0x21580> {}
<POP 21576-2157a Naked> Σ0 ↓ →0x2157e
<MI 21576 TST.L D7> {}
<MI 21578 BNE 0x2157e> {}
<POP 2157a-2157e Naked> Σ0 →0x21580
<MI 2157a MOVE.L D5,D6> {}
<MI 2157c BRA 0x21580> {}
<POP 2157e-21580 Naked> Σ0 ↓ ←0x21576
<MI 2157e SUBQ.L #0x1,D7> {}
<POP 21580-21584 Naked> Σ0 ↓ →0x21586 ←0x214f6 ←0x2153c ←0x21558 ←0x21562 ←0x2157a
<MI 21580 TST.L D6> {}
<MI 21582 BNE 0x21586> {}
<POP 21584-21586 Naked> Σ0 ↓
<MI 21584 ADDQ.L #0x1,D5> {}
<POP 21586-2158a Naked> Σ0 →0x214e6 ←0x21580
<MI 21586 BRA 0x214e6> {}
<POP 2158a-21592 Naked> Σ0 ↓ →0x215a0 ←0x214e6 ←0x214ec
<MI 2158a TST.B 0x25630> {}
<MI 21590 BNE 0x215a0> {}
<POP 21592-215a0 Naked> Σ0 ↓
<Const 0x21592 0x25632.4> Δ-4 {[##153138]}
<Call 0x21598 0x102bc> {[##153138]}
FreeString(VAR a : String)
<POP 2159e-215a0 StackAdj> Δ+4 {}
<POP 215a0-215a4 Naked> Σ0 ↓ →0x215cc ←0x2158a
<MI 215a0 TST.B 0x25626> {}
<MI 215a2 BNE 0x215cc> {}
<POP 215a4-215cc Naked> Σ0 ↓
<Blob 0x215a4 [26] @> Δ-26 {[«26""»]}
<POP 215b0-215b2 StackAdj> Δ-4 {[«26""»]|[-4-]}
<Lit 0x215b2 26> {[«26""»]|[$$No case alternative found!]}
<Call 0x215c4 0x20b0a> {[«26""»]|[$$No case alternative found!]}
<POP 215c8-215cc StackAdj> Δ+30 {}
<POP 215cc-215d0 Naked> Σ0 ↓ →0x215fe ←0x215a0
<MI 215cc TST.L D6> {}
<MI 215ce BNE 0x215fe> {}
<POP 215d0-215fe Naked> Σ0 ↓
<Blob 0x215d0 [20] @> Δ-20 {[«20""»]}
<POP 215e2-215e4 StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x215e4 19> {[«20""»]|[$$No [ENDCASE] found!]}
<Call 0x215f6 0x20b0a> {[«20""»]|[$$No [ENDCASE] found!]}
<POP 215fa-215fe StackAdj> Δ+24 {}
<POP 215fe-21612 Naked> Σ0 ↓ →0x2161c ←0x215cc
<MI 215fe MOVEA.L (A6+0x8),A0> {}
<MI 21602 MOVE.L D6,(A0)> {}
<MI 21604 MOVEA.L (A6+0x10),A0> {}
<MI 21608 MOVE.L 0x25628,(A0)> {}
<MI 2160e TST.L 0x2562c> {}
<MI 21610 BNE 0x2161c> {}
<POP 21612-2161c Naked> Σ0 →0x21622
<MI 21612 MOVEA.L (A6+0xc),A0> {}
<MI 21616 MOVE.L D6,(A0)> {}
<MI 21618 SUBQ.L #0x1,(A0)> {}
<MI 2161a BRA 0x21622> {}
<POP 2161c-21622 Naked> Σ0 ↓ ←0x215fe
<MI 2161c MOVEA.L (A6+0xc),A0> {}
<MI 21620 MOVE.L 0x2562c,(A0)> {}
<POP 21622-2162a Epilogue> Σ0 ←0x21612
@ 2162a
<LVAR 0x008 4(r)>
<LVAR -0x008 @ 4(r)>
<LVAR -0x00c @ 4(r)>
<LVAR -0x010 @ 4(r)>
<POP 2162a-2169e Body>
<POP 2162a-21640 Prologue> Σ0 ↓
<POP 21640-2164a RegCacheLoad> Σ0 ↓
<POP 2164a-21696 Naked> Σ0 ↓
<MI 2164a MOVE.L 0x25614,D6> {}
<MI 2164c CLR.B 0x25630> {}
<MI 21652 MOVE.L (A6+0x8),0x25632> {}
<MI 2165a MOVE.L 0x25614,D7> {}
<Pointer.fp 0x2165c <LVAR -0x010 @ 4(r)>> Δ-4 {[@@-16]}
<Pointer.fp 0x2165e <LVAR -0x00c @ 4(r)>> Δ-4 {[@@-16]|[@@-12]}
<Pointer.fp 0x21662 <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-16]|[@@-12]|[@@-8]}
<Call 0x21666 0x214a8> {[@@-16]|[@@-12]|[@@-8]}
<POP 2166a-2166e StackAdj> Δ+12 {}
<MI 2166e MOVE.L D6,0x25614> {}
<MI 21670 MOVE.L (A6-0x8),D0> {}
<MI 21674 ADDI.L #0x00000009,D0> {}
<MI 2167a MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 2167c SUB.L (A6-0xc),D0> {[4, 'D0']}
<MI 21680 SUBQ.L #0x1,D0> {[4, 'D0']}
<MI 21682 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']|[4, 'D0']}
<Call 0x21684 0x2105e> {[4, 'D0']|[4, 'D0']}
<POP 21688-2168a StackAdj> Δ+4 {[4, 'D0']}
<MI 2168a MOVE.L (A6-0x10),(A7)> {[4, '(A6-0x10)']}
<MI 2168c MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0x10)']|[4, '(A6-0x10)']}
<MI 2168e SUB.L D7,(A7)> {[4, '(A6-0x10)']|[-4-]}
<Call 0x21690 0x2105e> {[4, '(A6-0x10)']|[-4-]}
<POP 21694-21696 StackAdj> Δ+8 {}
<POP 21696-2169e Epilogue> Σ0
@ 2169e
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x008 @ 4(r)>
<LVAR -0x00c @ 4(r)>
<LVAR -0x010 @ 4(r)>
<POP 2169e-2171c Body>
<POP 2169e-216b4 Prologue> Σ0 ↓
<POP 216b4-216be RegCacheLoad> Σ0 ↓
<POP 216be-21714 Naked> Σ0 ↓
<MI 216be MOVE.L 0x25614,D6> {}
<MI 216c0 MOVE.B #0x01,0x25630> {}
<MI 216c8 MOVE.L (A6+0x8),0x25636> {}
<MI 216d0 MOVE.L (A6+0xc),0x2563a> {}
<MI 216d8 MOVE.L 0x25614,D7> {}
<Pointer.fp 0x216da <LVAR -0x010 @ 4(r)>> Δ-4 {[@@-16]}
<Pointer.fp 0x216dc <LVAR -0x00c @ 4(r)>> Δ-4 {[@@-16]|[@@-12]}
<Pointer.fp 0x216e0 <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-16]|[@@-12]|[@@-8]}
<Call 0x216e4 0x214a8> {[@@-16]|[@@-12]|[@@-8]}
<POP 216e8-216ec StackAdj> Δ+12 {}
<MI 216ec MOVE.L D6,0x25614> {}
<MI 216ee MOVE.L (A6-0x8),D0> {}
<MI 216f2 ADDI.L #0x00000009,D0> {}
<MI 216f8 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 216fa SUB.L (A6-0xc),D0> {[4, 'D0']}
<MI 216fe SUBQ.L #0x1,D0> {[4, 'D0']}
<MI 21700 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']|[4, 'D0']}
<Call 0x21702 0x2105e> {[4, 'D0']|[4, 'D0']}
<POP 21706-21708 StackAdj> Δ+4 {[4, 'D0']}
<MI 21708 MOVE.L (A6-0x10),(A7)> {[4, '(A6-0x10)']}
<MI 2170a MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0x10)']|[4, '(A6-0x10)']}
<MI 2170c SUB.L D7,(A7)> {[4, '(A6-0x10)']|[-4-]}
<Call 0x2170e 0x2105e> {[4, '(A6-0x10)']|[-4-]}
<POP 21712-21714 StackAdj> Δ+8 {}
<POP 21714-2171c Epilogue> Σ0
@ 2171c
<LVAR 0x010 4(rw)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 2171c-21754 Body>
<POP 2171c-21732 Prologue> Σ0 ↓
<POP 21732-21738 Naked> Σ0 ↓ →0x2173e
<MI 21732 TST.L (A6+0x8)> {}
<MI 21736 BNE 0x2173e> {}
<POP 21738-2173e Naked> Σ0 →0x2174c
<MI 21738 CLR.L (A6+0x10)> {}
<MI 2173c BRA 0x2174c> {}
<POP 2173e-2174c Naked> Σ0 ↓ ←0x21732
<MI 2173e MOVE.L (A6+0xc),D0> {}
<MI 21742 SUB.L (A6+0x8),D0> {}
<MI 21746 ADDQ.L #0x1,D0> {}
<MI 21748 MOVE.L D0,(A6+0x10)> {}
<POP 2174c-21754 Epilogue> Σ0 ←0x21738
@ 21754
<LVAR 0x014 4(w)>
<LVAR 0x010 @ 4(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 21754-217b6 Body> Δ-4
<POP 21754-2176a Prologue> Σ0 ↓
<POP 2176a-21780 Naked> Σ0 Δ-4 ↓
<MI 2176a MOVEA.L (A6+0xc),A4> {}
<MI 2176e MOVE.L 0x20a22,(A6+0x10)> {}
<MI 21774 MOVE.L 0x20a26,(A6+0x14)> {}
<MI 2177a MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<MI 2177e MOVEQ.L #0x00,D7> {[4, '(A6+0x8)']}
<POP 21780-21784 Naked> Σ-4 ↓ →0x217ac ←0x217a8
<MI 21780 CMP.L (A7),D7> {[-4-]}
<MI 21782 BGT 0x217ac> {[-4-]}
<POP 21784-2178a Naked> Σ-4 ↓ →0x2178e
<MI 21784 CMPA.W #0x1,A4> {[-4-]}
<MI 21788 BNE 0x2178e> {[-4-]}
<POP 2178a-2178e Naked> Σ-4 Δ+4 →0x217ae
<POP 2178a-2178c StackAdj> Δ+4 {}
<MI 2178c BRA 0x217ae> {}
<POP 2178e-21794 Naked> Σ-4 ↓ →0x217a4 ←0x21784
<MI 2178e CMP.L (A6+0x8),D7> {[-4-]}
<MI 21792 BNE 0x217a4> {[-4-]}
<POP 21794-217a4 Naked> Σ-4 →0x217a8
<MI 21794 LEA.L (A6+0x10),A0> {[-4-]}
<MI 21798 MOVEA.L A4,A1> {[-4-]}
<BlockMove 8,A1,A0> {[-4-]}
<MI 217a2 BRA 0x217a8> {[-4-]}
<POP 217a4-217a8 Naked> Σ-4 ↓ ←0x2178e
<MI 217a4 MOVEA.L (A4+0x8),A4> {[-4-]}
<POP 217a8-217ac Naked> Σ-4 ↓ →0x21780 ←0x21794
<MI 217a8 ADDQ.L #0x1,D7> {[-4-]}
<MI 217aa BVC 0x21780> {[-4-]}
<POP 217ac-217ae Naked> Σ-4 Δ+4 ↓ ←0x21780
<POP 217ac-217ae StackAdj> Δ+4 {}
<POP 217ae-217b6 Epilogue> Σ0 ←0x2178a
@ 217b6
<LVAR 0x010 4(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x008 @ 4(r)>
<POP 217b6-21832 Body> Δ-4
<POP 217b6-217cc Prologue> Σ0 ↓
<POP 217cc-217d0 RegCacheLoad> Σ0 ↓
<POP 217d0-217e8 Naked> Σ0 Δ-4 ↓
<Pointer.fp 0x217d0 <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-8]}
<Call 0x217d2 0x102b8> {[@@-8]}
NewString(VAR a : String)
<MI 217d8 MOVE.L (A6+0xc),-(A7)> Δ-4 {[@@-8]|[4, '(A6+0xc)']}
<MI 217dc MOVE.L (A6+0x8),-(A7)> Δ-4 {[@@-8]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x217e0 0x2171c> {[@@-8]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 217e4-217e6 StackAdj> Δ+8 {[@@-8]}
<MI 217e6 MOVEQ.L #0x01,D7> {[@@-8]}
<POP 217e8-217ec Naked> Σ-4 ↓ →0x21824 ←0x21814
<MI 217e8 CMP.L (A7),D7> {[-4-]}
<MI 217ea BGT 0x21824> {[-4-]}
<POP 217ec-21810 Naked> Σ-4 ↓ →0x21814
<MI 217ec MOVE.L D7,D0> {[-4-]}
<MI 217ee ADD.L (A6+0x8),D0> {[-4-]}
<MI 217f2 SUBQ.L #0x1,D0> {[-4-]}
<MI 217f4 SUBQ.L #0x1,D0> {[-4-]}
<POP 0x217f6 LimitCheck 0x0 ≤ D0 ≤ 0xfff> {[-4-]}
<MI 21800 LEA.L 0x2460c,A0> {[-4-]}
<MI 21806 MOVE.B (A0+D0.L+#0x8),D6> {[-4-]}
<MI 2180a CMPI.B #0x2f,D6> {[-4-]}
<MI 2180e BNE 0x21814> {[-4-]}
<POP 21810-21814 Naked> Σ-4 Δ+4 →0x21826
<POP 21810-21812 StackAdj> Δ+4 {}
<MI 21812 BRA 0x21826> {}
<POP 21814-21824 Naked> Σ-4 ↓ →0x217e8 ←0x217ec
<MI 21814 MOVE.L (A6-0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x8)']}
<MI 21816 MOVE.B D6,-(A7)> Δ-2 {[-4-]|[4, '(A6-0x8)']|[2, 'D6']}
<Call 0x21818 0x102c0> {[-4-]|[4, '(A6-0x8)']|[2, 'D6']}
AppendChar(MOD b : String; a : char)
<POP 2181e-21820 StackAdj> Δ+6 {[-4-]}
<MI 21820 ADDQ.L #0x1,D7> {[-4-]}
<MI 21822 BVC 0x217e8> {[-4-]}
<POP 21824-21826 Naked> Σ-4 Δ+4 ↓ ←0x217e8
<POP 21824-21826 StackAdj> Δ+4 {}
<POP 21826-2182a Naked> Σ0 ↓ ←0x21810
<MI 21826 MOVE.L (A6-0x8),(A6+0x10)> {}
<POP 2182a-21832 Epilogue> Σ0
@ 21832
<LVAR 0x010 4(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 21832-21864 Body>
<POP 21832-21844 Prologue> Σ0 ↓
<POP 21844-21860 Naked> Σ0 ↓
<POP 21844-21848 StackAdj> Δ-12 {[-12-]}
<MI 21848 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-12-]|[4, '(A6+0xc)']}
<MI 2184c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x21850 0x21754> {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 21854-21856 StackAdj> Δ+8 {[-12-]}
<Call 0x21856 0x217b6> {[-12-]}
<POP 2185a-2185c StackAdj> Δ+8 {[-4-]}
<MI 2185c MOVE.L (A7)+,(A6+0x10)> Δ+4 {}
<POP 21860-21864 Epilogue> Σ0
@ 21864
<LVAR 0x014 4(w)>
<LVAR 0x010 4(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 21864-218a0 Body>
<POP 21864-21876 Prologue> Σ0 ↓
<POP 21876-2189c Naked> Σ0 ↓
<POP 21876-2187a StackAdj> Δ-12 {[-12-]}
<MI 2187a MOVE.L (A6+0xc),-(A7)> Δ-4 {[-12-]|[4, '(A6+0xc)']}
<MI 2187e MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x21882 0x21832> {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 21886-21888 StackAdj> Δ+8 {[-12-]}
<Const 0x21888 0x10.4> Δ-4 {[-12-]|[##16]}
<Call 0x2188c 0x10360> {[-12-]|[##16]}
?StringToInt64()
<POP 21892-21894 StackAdj> Δ+8 {[-8-]}
<MI 21894 MOVE.L (A7)+,(A6+0x10)> Δ+4 {[-4-]}
<MI 21898 MOVE.L (A7)+,(A6+0x14)> Δ+4 {}
<POP 2189c-218a0 Epilogue> Σ0
@ 218a0
<LVAR 0x010 4(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 218a0-218d4 Body>
<POP 218a0-218b2 Prologue> Σ0 ↓
<POP 218b2-218d0 Naked> Σ0 ↓
<POP 218b2-218b6 StackAdj> Δ-12 {[-12-]}
<MI 218b6 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-12-]|[4, '(A6+0xc)']}
<MI 218ba MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x218be 0x21864> {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 218c2-218c4 StackAdj> Δ+8 {[-12-]}
<Call 0x218c4 0x10350> {[-12-]}
Quad2Long(a : Quad) : Long
<POP 218ca-218cc StackAdj> Δ+8 {[-4-]}
<MI 218cc MOVE.L (A7)+,(A6+0x10)> Δ+4 {}
<POP 218d0-218d4 Epilogue> Σ0
@ 218d4
<LVAR 0x008 @ 4(r)>
<POP 218d4-2195c Body>
<POP 218d4-218ea Prologue> Σ0 ↓
<POP 218ea-218f0 RegCacheLoad> Σ0 ↓
<POP 218f0-2190e Naked> Σ0 Δ-8 ↓
<MI 218f0 MOVEA.L (A6+0x8),A0> {}
<MI 218f4 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Blob 0x218f6 [4] 0x25614> Δ-4 {[4, 'A0']|[«4»]}
<MI 218f8 MOVE.W (A0),D0> {[4, 'A0']|[«4»]}
<MI 218fa EXTW.L D0> {[4, 'A0']|[«4»]}
<MI 218fc NEG.L D0> {[4, 'A0']|[«4»]}
<MI 218fe MOVE.L D0,-(A7)> Δ-4 {[4, 'A0']|[«4»]|[4, 'D0']}
<Call 0x21900 0x2105e> {[4, 'A0']|[«4»]|[4, 'D0']}
<POP 21904-21906 StackAdj> Δ+8 {[4, 'A0']}
<MI 21906 MOVE.W (A0),D0> {[4, 'A0']}
<MI 21908 EXTW.L D0> {[4, 'A0']}
<MI 2190a MOVE.L D0,-(A7)> Δ-4 {[4, 'A0']|[4, 'D0']}
<MI 2190c MOVEQ.L #0x01,D7> {[4, 'A0']|[4, 'D0']}
<POP 2190e-21912 Naked> Σ-8 ↓ →0x21946 ←0x21912
<MI 2190e CMP.L (A7),D7> {[-8-]}
<MI 21910 BGT 0x21946> {[-8-]}
<POP 21912-21946 Naked> Σ-8 ↓ →0x2190e
<MI 21912 MOVE.L D7,D0> {[-8-]}
<MI 21914 ADD.L 0x25614,D0> {[-8-]}
<MI 21916 SUBQ.L #0x1,D0> {[-8-]}
<MI 21918 SUBQ.L #0x1,D0> {[-8-]}
<POP 0x2191a LimitCheck 0x0 ≤ D0 ≤ 0xfff> {[-8-]}
<MI 21924 LEA.L 0x2460c,A0> {[-8-]}
<MI 2192a MOVE.L D7,D1> {[-8-]}
<MI 2192c SUBQ.L #0x1,D1> {[-8-]}
<POP 0x2192e LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-8-]}
<MI 21938 MOVEA.L (A7+0x4),A1> {[-8-]}
<MI 2193c MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x8)> {[-8-]}
<MI 21942 ADDQ.L #0x1,D7> {[-8-]}
<MI 21944 BVC 0x2190e> {[-8-]}
<POP 21946-21954 Naked> Σ-8 Δ+8 ↓ ←0x2190e
<POP 21946-21948 StackAdj> Δ+8 {}
<Pointer.fp 0x21948 <LVAR 0x008 @ 4(r)>> Δ-4 {[@@8]}
<Call 0x2194c 0x102bc> {[@@8]}
FreeString(VAR a : String)
<POP 21952-21954 StackAdj> Δ+4 {}
<POP 21954-2195c Epilogue> Σ0
@ 2195c
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 2195c-21990 Body>
<POP 2195c-2196e Prologue> Σ0 ↓
<POP 2196e-2198c Naked> Σ0 ↓
<POP 2196e-21970 StackAdj> Δ-4 {[-4-]}
<MI 21970 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']}
<MI 21974 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Const 0x21978 0x10.4> Δ-4 {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[##16]}
<Call 0x2197c 0x1035c> {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[##16]}
Quad2String(a : Quad; radix : Long ) : String
<POP 21982-21986 StackAdj> Δ+12 {[-4-]}
<Call 0x21986 0x218d4> {[-4-]}
<POP 2198a-2198c StackAdj> Δ+4 {}
<POP 2198c-21990 Epilogue> Σ0
@ 21990
<LVAR 0x008 4(r)>
<POP 21990-219ba Body>
<POP 21990-219a2 Prologue> Σ0 ↓
<POP 219a2-219b6 Naked> Σ0 ↓
<POP 219a2-219a4 StackAdj> Δ-4 {[-4-]}
<MI 219a4 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x219a8 0x102e4> {[-4-]|[4, '(A6+0x8)']}
Long2String(a : Long) : String
<POP 219ae-219b0 StackAdj> Δ+4 {[-4-]}
<Call 0x219b0 0x218d4> {[-4-]}
<POP 219b4-219b6 StackAdj> Δ+4 {}
<POP 219b6-219ba Epilogue> Σ0
@ 219ba
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 4(r)>
<LVAR -0x008 4(rw)>
<POP 219ba-21a8a Body>
<POP 219ba-219d0 Prologue> Σ0 ↓
<POP 219d0-219d8 RegCacheLoad> Σ0 ↓
<POP 219d8-219ea Naked> Σ0 ↓
<MI 219d8 MOVEA.L (A6+0x8),A0> {}
<MI 219dc MOVE.L (A0+0x8),(A6-0x8)> {}
<Pointer.fp 0x219e0 <LVAR -0x004 @ 4(r)>> Δ-4 {[@@-4]}
<Call 0x219e2 0x102b8> {[@@-4]}
NewString(VAR a : String)
<POP 219e8-219ea StackAdj> Δ+4 {}
<POP 219ea-219f4 Naked> Σ0 ↓ →0x21a78 ←0x21a60
<MI 219ea MOVEA.L (A6-0x8),A0> {}
<MI 219ec CMPA.W #0x1,A0> {}
<MI 219f0 BEQ 0x21a78> {}
<POP 219f4-219f8 Naked> Σ0 ↓ →0x21a60
<MI 219f4 TST.L (A0)> {}
<MI 219f6 BEQ 0x21a60> {}
<POP 219f8-21a02 Naked> Σ0 Δ-4 ↓ →0x21a16
<MI 219f8 MOVE.L (A0+0x4),-(A7)> Δ-4 {[4, '(A0+0x4)']}
<MI 219fc MOVE.L (A0),D7> {[4, '(A0+0x4)']}
<MI 219fe CMP.L (A7),D7> {[4, '(A0+0x4)']}
<MI 21a00 BGT 0x21a16> {[4, '(A0+0x4)']}
<POP 21a02-21a16 Naked> Σ-4 ↓
<MI 21a02 MOVE.L (A7),D0> {[-4-]}
<POP 0x21a04 LimitCheck -0x7fffffff ≤ D7> {[-4-]}
<MI 21a04 CMPI.L #0x80000001,D7>
<MI 21a0a BLT 0x21a14>
<POP 0x21a0c LimitCheck D0 ≤ 0x7fffffff> {[-4-]}
<MI 21a0c CMPI.L #0x7fffffff,D0>
<MI 21a12 BLE 0x21a16>
<MI 21a14 TRAP #15>
<POP 21a16-21a1a Naked> Σ-4 ↓ →0x21a5e ←0x219f8 ←0x21a5a
<MI 21a16 CMP.L (A7),D7> {[-4-]}
<MI 21a18 BGT 0x21a5e> {[-4-]}
<POP 21a1a-21a46 Naked> Σ-4 ↓ →0x21a5a
<MI 21a1a MOVE.L (A6-0x4),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x4)']}
<MI 21a1c MOVE.L D7,D0> {[-4-]|[4, '(A6-0x4)']}
<MI 21a1e SUBQ.L #0x1,D0> {[-4-]|[4, '(A6-0x4)']}
<POP 0x21a20 LimitCheck 0x0 ≤ D0 ≤ 0xfff> {[-4-]|[4, '(A6-0x4)']}
<MI 21a2a LEA.L 0x2460c,A0> {[-4-]|[4, '(A6-0x4)']}
<MI 21a30 MOVE.B (A0+D0.L+#0x8),-(A7)> Δ-2 {[-4-]|[4, '(A6-0x4)']|[2, '(A0+D0.L+#0x8)']}
<Call 0x21a34 0x102c0> {[-4-]|[4, '(A6-0x4)']|[2, '(A0+D0.L+#0x8)']}
AppendChar(MOD b : String; a : char)
<POP 21a3a-21a3c StackAdj> Δ+6 {[-4-]}
<MI 21a3c MOVEA.L (A6-0x4),A0> {[-4-]}
<MI 21a3e MOVE.W (A0),D0> {[-4-]}
<MI 21a40 CMPI.W #0x007a,D0> {[-4-]}
<MI 21a44 BLT 0x21a5a> {[-4-]}
<POP 21a46-21a5a Naked> Σ-4 ↓
<MI 21a46 MOVE.L (A6-0x4),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x4)']}
<Call 0x21a48 0x103d8> {[-4-]|[4, '(A6-0x4)']}
WriteConsoleString(str : String)
<POP 21a4e-21a50 StackAdj> Δ+4 {[-4-]}
<Pointer.fp 0x21a50 <LVAR -0x004 @ 4(r)>> Δ-4 {[-4-]|[@@-4]}
<Call 0x21a52 0x102b8> {[-4-]|[@@-4]}
NewString(VAR a : String)
<POP 21a58-21a5a StackAdj> Δ+4 {[-4-]}
<POP 21a5a-21a5e Naked> Σ-4 ↓ →0x21a16 ←0x21a1a
<MI 21a5a ADDQ.L #0x1,D7> {[-4-]}
<MI 21a5c BVC 0x21a16> {[-4-]}
<POP 21a5e-21a60 Naked> Σ-4 Δ+4 ↓ ←0x21a16
<POP 21a5e-21a60 StackAdj> Δ+4 {}
<POP 21a60-21a78 Naked> Σ0 →0x219ea ←0x219f4
<MI 21a60 MOVE.L (A6-0x4),-(A7)> Δ-4 {[4, '(A6-0x4)']}
<Const 0x21a62 0x20.2> Δ-2 {[4, '(A6-0x4)']|[#32]}
<Call 0x21a66 0x102c0> {[4, '(A6-0x4)']|[#32]}
AppendChar(MOD b : String; a : char)
<POP 21a6c-21a6e StackAdj> Δ+6 {}
<MI 21a6e MOVEA.L (A6-0x8),A0> {}
<MI 21a70 MOVE.L (A0+0x8),(A6-0x8)> {}
<MI 21a74 BRA 0x219ea> {}
<POP 21a78-21a82 Naked> Σ0 ↓ ←0x219ea
<MI 21a78 MOVE.L (A6-0x4),-(A7)> Δ-4 {[4, '(A6-0x4)']}
<Call 0x21a7a 0x103e0> {[4, '(A6-0x4)']}
WriteConsoleStringCrLf(str : String)
<POP 21a80-21a82 StackAdj> Δ+4 {}
<POP 21a82-21a8a Epilogue> Σ0
@ 21a8a
<LVAR 0x008 @ 4(r)>
<LVAR -0x003 @ 1(r)>
<LVAR -0x004 @ 1(r)>
<LVAR -0x008 @ 4(r)>
<LVAR -0x00c @ 4(rw)>
<POP 21a8a-21b94 Body>
<POP 21a8a-21aa0 Prologue> Σ0 ↓
<POP 21aa0-21ab2 RegCacheLoad> Σ0 ↓
<POP 21ab2-21af8 Naked> Σ0 ↓ →0x21b2e
<Blob 0x21ab2 [4] @> Δ-4 {[«4""»]}
<POP 21ab6-21ab8 StackAdj> Δ-8 {[«4""»]|[-8-]}
<MI 21ab8 MOVE.L (A6+0x8),-(A7)> Δ-4 {[«4""»]|[-8-]|[4, '(A6+0x8)']}
<Call 0x21aba 0x102cc> {[«4""»]|[-8-]|[4, '(A6+0x8)']}
StringDup(a : String) : String
<Lit 0x21ac0 4> {[«4""»]|[-8-]|[$$.HLP]}
<Call 0x21ad2 0x102d0> {[«4""»]|[-8-]|[$$.HLP]}
StringCat2(a, b : String) : String
<POP 21ad8-21ada StackAdj> Δ+8 {[«4""»]|[-4-]}
<MI 21ada MOVE.L (A7)+,(A6-0xc)> Δ+4 {[«4""»]}
<MI 21adc MOVE.L (A6-0xc),(A7)> {[4, '(A6-0xc)']}
<MI 21ade CLR.B -(A7)> Δ-2 {[4, '(A6-0xc)']|[#0]}
<MI 21ae0 CLR.B -(A7)> Δ-2 {[4, '(A6-0xc)']|[#0]|[#0]}
<Const 0x21ae2 0x0.4> Δ-4 {[4, '(A6-0xc)']|[#0]|[#0]|[##0]}
<Pointer.fp 0x21ae6 <LVAR -0x004 @ 1(r)>> Δ-4 {[4, '(A6-0xc)']|[#0]|[#0]|[##0]|[@@-4]}
<Pointer.fp 0x21ae8 <LVAR -0x008 @ 4(r)>> Δ-4 {[4, '(A6-0xc)']|[#0]|[#0]|[##0]|[@@-4]|[@@-8]}
<Call 0x21aea 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 21af0-21af4 StackAdj> Δ+20 {}
<MI 21af4 TST.B (A6-0x4)> {}
<MI 21af6 BEQ 0x21b2e> {}
<POP 21af8-21b2e Naked> Σ0 →0x21b82
<Blob 0x21af8 [22] @> Δ-22 {[«22""»]}
<POP 21b04-21b06 StackAdj> Δ-8 {[«22""»]|[-8-]}
<Lit 0x21b06 22> {[«22""»]|[-4-]|[$$No help available for_]}
<POP 21b16-21b18 StackAdj> Δ-4 {[«22""»]|[-4-]|[$$No help available for_]|[-4-]}
<MI 21b18 MOVE.L (A6+0x8),(A7)> {[«22""»]|[-4-]|[$$No help available for_]|[4, '(A6+0x8)']}
<Call 0x21b1a 0x102d0> {[«22""»]|[-4-]|[$$No help available for_]|[4, '(A6+0x8)']}
StringCat2(a, b : String) : String
<POP 21b20-21b22 StackAdj> Δ+8 {[«22""»]|[-4-]}
<Call 0x21b22 0x103e0> {[«22""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 21b28-21b2c StackAdj> Δ+26 {}
<MI 21b2c BRA 0x21b82> {}
<POP 21b2e-21b46 Naked> Σ0 ↓ →0x21b5a ←0x21ab2 ←0x21b5a
<MI 21b2e MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<Pointer.fp 0x21b30 <LVAR 0x008 @ 4(r)>> Δ-4 {[4, '(A6-0x8)']|[@@8]}
<Pointer.fp 0x21b32 <LVAR -0x003 @ 1(r)>> Δ-4 {[4, '(A6-0x8)']|[@@8]|[@@-3]}
<Call 0x21b36 0x1043c> {[4, '(A6-0x8)']|[@@8]|[@@-3]}
FileReadLine(file : File; VAR a : String; VAR b : Byte)
<POP 21b3c-21b40 StackAdj> Δ+12 {}
<MI 21b40 TST.B (A6-0x3)> {}
<MI 21b44 BNE 0x21b5a> {}
<POP 21b46-21b5a Naked> Σ0 ↓
<POP 21b46-21b48 StackAdj> Δ-4 {[-4-]}
<MI 21b48 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x21b4a 0x102cc> {[-4-]|[4, '(A6+0x8)']}
StringDup(a : String) : String
<POP 21b50-21b52 StackAdj> Δ+4 {[-4-]}
<Call 0x21b52 0x103e0> {[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 21b58-21b5a StackAdj> Δ+4 {}
<POP 21b5a-21b60 Naked> Σ0 ↓ →0x21b2e ←0x21b2e
<MI 21b5a TST.B (A6-0x3)> {}
<MI 21b5e BEQ 0x21b2e> {}
<POP 21b60-21b82 Naked> Σ0 ↓
<MI 21b60 CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x21b62 0x2.2> Δ-2 {[#0]|[#2]}
<Const 0x21b66 0x1.4> Δ-4 {[#0]|[#2]|[##1]}
<Pointer.fp 0x21b6a <LVAR -0x004 @ 1(r)>> Δ-4 {[#0]|[#2]|[##1]|[@@-4]}
<Pointer.fp 0x21b6c <LVAR -0x008 @ 4(r)>> Δ-4 {[#0]|[#2]|[##1]|[@@-4]|[@@-8]}
<Call 0x21b6e 0x1038c> {[#0]|[#2]|[##1]|[@@-4]|[@@-8]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 21b74-21b78 StackAdj> Δ+16 {}
<Pointer.fp 0x21b78 <LVAR 0x008 @ 4(r)>> Δ-4 {[@@8]}
<Call 0x21b7a 0x102bc> {[@@8]}
FreeString(VAR a : String)
<POP 21b80-21b82 StackAdj> Δ+4 {}
<POP 21b82-21b8c Naked> Σ0 ↓ ←0x21af8
<Pointer.fp 0x21b82 <LVAR -0x00c @ 4(rw)>> Δ-4 {[@@-12]}
<Call 0x21b84 0x102bc> {[@@-12]}
FreeString(VAR a : String)
<POP 21b8a-21b8c StackAdj> Δ+4 {}
<POP 21b8c-21b94 Epilogue> Σ0
@ 21b94
<LVAR 0x008 4(r)>
<POP 21b94-21c16 Body>
<POP 21b94-21baa Prologue> Σ0 ↓
<POP 21baa-21bba Naked> Σ0 ↓ →0x21be8
<POP 21baa-21bac StackAdj> Δ-4 {[-4-]}
<MI 21bac MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x21bb0 0x20f16> {[-4-]|[4, '(A6+0x8)']}
<POP 21bb4-21bb6 StackAdj> Δ+4 {[-4-]}
<MI 21bb6 MOVE.L (A7)+,D6> Δ+4 {}
<MI 21bb8 BNE 0x21be8> {}
<POP 21bba-21be8 Naked> Σ0 →0x21c0e
<Blob 0x21bba [10] 0x25626> Δ-10 {[«10»]}
<POP 21bc8-21bca StackAdj> Δ-4 {[«10»]|[-4-]}
<Lit 0x21bca> {[«10»]|[$$…]}
<Pointer.sp 0x21bca 4> Δ-4
<Const 0x21bce 0x1.2> Δ-2
<Const 0x21bd2 0xa.2> Δ-2
<Call 0x21bd6 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 21bdc-21bde StackAdj> Δ+8
<Call 0x21bde 0x21a8a> {[«10»]|[$$…]}
<POP 21be2-21be6 StackAdj> Δ+14 {}
<MI 21be6 BRA 0x21c0e> {}
<POP 21be8-21bec Naked> Σ0 Δ-4 ↓ ←0x21baa
<MI 21be8 MOVE.L D6,-(A7)> Δ-4 {[4, 'D6']}
<MI 21bea MOVEQ.L #0x01,D7> {[4, 'D6']}
<POP 21bec-21bf0 Naked> Σ-4 ↓ →0x21c0c ←0x21bf0
<MI 21bec CMP.L (A7),D7> {[-4-]}
<MI 21bee BGT 0x21c0c> {[-4-]}
<POP 21bf0-21c0c Naked> Σ-4 ↓ →0x21bec
<POP 21bf0-21bf2 StackAdj> Δ-4 {[-8-]}
<MI 21bf2 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<MI 21bf6 MOVE.L D7,-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']|[4, 'D7']}
<Call 0x21bf8 0x21832> {[-8-]|[4, '(A6+0x8)']|[4, 'D7']}
<POP 21bfc-21bfe StackAdj> Δ+8 {[-8-]}
<MI 21bfe MOVEA.L (A7)+,A4> Δ+4 {[-4-]}
<MI 21c00 MOVE.L A4,-(A7)> Δ-4 {[-4-]|[4, 'A4']}
<Call 0x21c02 0x21a8a> {[-4-]|[4, 'A4']}
<POP 21c06-21c08 StackAdj> Δ+4 {[-4-]}
<MI 21c08 ADDQ.L #0x1,D7> {[-4-]}
<MI 21c0a BVC 0x21bec> {[-4-]}
<POP 21c0c-21c0e Naked> Σ-4 Δ+4 ↓ ←0x21bec
<POP 21c0c-21c0e StackAdj> Δ+4 {}
<POP 21c0e-21c16 Epilogue> Σ0 ←0x21bba
@ 21c16
<LVAR 0x00c @>
<LVAR 0x008 @ 4(r)>
<LVAR -0x020 @>
<POP 21c16-21c98 Body>
<POP 21c16-21c2c Prologue> Σ0 ↓
<POP 21c2c-21c2e RegCacheLoad> Σ0 ↓
<POP 21c2e-21c30 Naked> Σ0 ↓
<MI 21c2e MOVEQ.L #0x01,D7> {}
<POP 21c30-21c3c Naked> Σ0 ↓ →0x21c4c ←0x21c6a
<MI 21c30 MOVEA.L (A6+0x8),A0> {}
<MI 21c34 MOVE.W (A0),D0> {}
<MI 21c36 EXTW.L D0> {}
<MI 21c38 CMP.L D0,D7> {}
<MI 21c3a BLE 0x21c4c> {}
<POP 21c3c-21c4c Naked> Σ0 →0x21c6a
<MI 21c3c MOVE.L D7,D0> {}
<MI 21c3e SUBQ.L #0x1,D0> {}
<POP 0x21c40 LimitCheck 0x0 ≤ D0 ≤ 0x1d> {}
<MI 21c46 CLR.B (A6+D0.L-#0x20)> {}
<MI 21c4a BRA 0x21c6a> {}
<POP 21c4c-21c6a Naked> Σ0 ↓ ←0x21c30
<MI 21c4c MOVE.L D7,D0> {}
<MI 21c4e SUBQ.L #0x1,D0> {}
<POP 0x21c50 LimitCheck 0x0 ≤ D0 ≤ 0x1d> {}
<MI 21c56 MOVE.L D7,D1> {}
<MI 21c58 SUBQ.L #0x1,D1> {}
<POP 0x21c5a LimitCheck 0x0 ≤ D1 ≤ 0x7d> {}
<MI 21c64 MOVE.B (A0+D1.L+#0x2),(A6+D0.L-#0x20)> {}
<POP 21c6a-21c74 Naked> Σ0 ↓ →0x21c30 ←0x21c3c
<MI 21c6a ADDQ.L #0x1,D7> {}
<MI 21c6c CMPI.L #0x0000001e,D7> {}
<MI 21c72 BLE 0x21c30> {}
<POP 21c74-21c90 Naked> Σ0 ↓
<Pointer.fp 0x21c74 <LVAR 0x008 @ 4(r)>> Δ-4 {[@@8]}
<Call 0x21c78 0x102bc> {[@@8]}
FreeString(VAR a : String)
<POP 21c7e-21c80 StackAdj> Δ+4 {}
<MI 21c80 LEA.L (A6+0xc),A0> {}
<MI 21c84 LEA.L (A6-0x20),A1> {}
<BlockMove 30,A1,A0> {}
<POP 21c90-21c98 Epilogue> Σ0
@ 21c98
<LVAR 0x026 4(w)>
<LVAR 0x008 @>
<LVAR -0x006 4(rw)>
<POP 21c98-21cec Body>
<POP 21c98-21cae Prologue> Σ0 ↓
<POP 21cae-21cb2 RegCacheLoad> Σ0 ↓
<POP 21cb2-21cba Naked> Σ0 ↓
<MI 21cb2 MOVEQ.L #0x00,D7> {}
<MI 21cb4 MOVE.L 0x2563e,(A6-0x6)> {}
<POP 21cba-21cc2 Naked> Σ0 ↓ →0x21ce0 ←0x21cde
<MI 21cba MOVEA.L (A6-0x6),A0> {}
<MI 21cbc CMPA.W #0x1,A0> {}
<MI 21cc0 BEQ 0x21ce0> {}
<POP 21cc2-21cc6 Naked> Σ0 ↓ →0x21ce0
<MI 21cc2 TST.B D7> {}
<MI 21cc4 BNE 0x21ce0> {}
<POP 21cc6-21cce Naked> Σ0 ↓
<MI 21cc6 MOVEA.L A0,A1> {}
<MI 21cc8 LEA.L (A6+0x8),A2> {}
<MI 21ccc MOVEQ.L #0x1d,D0> {}
<POP 21cce-21cd4 Naked> Σ0 ↓ →0x21cce ←0x21cce
<MI 21cce CMPM.B (A1)+,(A2)+> {}
<MI 21cd0 DBNE D0,0x21cce> {}
<POP 21cd4-21cd6 Naked> Σ0 ↓ →0x21cda
<MI 21cd4 BNE 0x21cda> {}
<POP 21cd6-21cda Naked> Σ0 →0x21cde
<MI 21cd6 MOVEQ.L #0x01,D7> {}
<MI 21cd8 BRA 0x21cde> {}
<POP 21cda-21cde Naked> Σ0 ↓ ←0x21cd4
<MI 21cda MOVE.L (A0+0x26),(A6-0x6)> {}
<POP 21cde-21ce0 Naked> Σ0 →0x21cba ←0x21cd6
<MI 21cde BRA 0x21cba> {}
<POP 21ce0-21ce4 Naked> Σ0 ↓ ←0x21cba ←0x21cc2
<MI 21ce0 MOVE.L A0,(A6+0x26)> {}
<POP 21ce4-21cec Epilogue> Σ0
@ 21cec
<LVAR 0x008 @ 4(r)>
<POP 21cec-21d72 Body>
<POP 21cec-21d02 Prologue> Σ0 ↓
<POP 21d02-21d0e RegCacheLoad> Σ0 ↓
<POP 21d0e-21d14 Naked> Σ0 ↓ →0x21d6a
<MI 21d0e MOVEA.L (A6+0x8),A0> {}
<MI 21d10 CMPA.W #0x01,A0> {}
<MI 21d12 BEQ 0x21d6a> {}
<POP 21d14-21d1a Naked> Σ0 ↓ →0x21d2a
<MI 21d14 TST.L (A0+0x1e)> {}
<MI 21d18 BEQ 0x21d2a> {}
<POP 21d1a-21d2a Naked> Σ0 ↓
<MI 21d1a MOVE.L (A0+0x22),-(A7)> Δ-4 {[4, '(A0+0x22)']}
<MI 21d1e MOVE.L (A0+0x1e),-(A7)> Δ-4 {[4, '(A0+0x22)']|[4, '(A0+0x1e)']}
<Call 0x21d22 0x102a4> {[4, '(A0+0x22)']|[4, '(A0+0x1e)']}
Free1(a : Pointer; b : Long)
<POP 21d28-21d2a StackAdj> Δ+8 {}
<POP 21d2a-21d30 Naked> Σ0 ↓ ←0x21d14
<MI 21d2a MOVEQ.L #0x00,D7> {}
<MI 21d2c MOVEA.W #0x01,A4> {}
<MI 21d2e MOVEA.L 0x2563e,A3> {}
<POP 21d30-21d34 Naked> Σ0 ↓ →0x21d48 ←0x21d46
<MI 21d30 CMPA.W #0x01,A3> {}
<MI 21d32 BEQ 0x21d48> {}
<POP 21d34-21d38 Naked> Σ0 ↓ →0x21d48
<MI 21d34 TST.B D7> {}
<MI 21d36 BNE 0x21d48> {}
<POP 21d38-21d3c Naked> Σ0 ↓ →0x21d40
<MI 21d38 CMPA.L (A6+0x8),A3> {}
<MI 21d3a BNE 0x21d40> {}
<POP 21d3c-21d40 Naked> Σ0 →0x21d46
<MI 21d3c MOVEQ.L #0x01,D7> {}
<MI 21d3e BRA 0x21d46> {}
<POP 21d40-21d46 Naked> Σ0 ↓ ←0x21d38
<MI 21d40 MOVEA.L A3,A4> {}
<MI 21d42 MOVEA.L (A3+0x26),A3> {}
<POP 21d46-21d48 Naked> Σ0 →0x21d30 ←0x21d3c
<MI 21d46 BRA 0x21d30> {}
<POP 21d48-21d4c Naked> Σ0 ↓ →0x21d6a ←0x21d30 ←0x21d34
<MI 21d48 TST.B D7> {}
<MI 21d4a BEQ 0x21d6a> {}
<POP 21d4c-21d50 Naked> Σ0 ↓ →0x21d56
<MI 21d4c CMPA.W #0x01,A4> {}
<MI 21d4e BNE 0x21d56> {}
<POP 21d50-21d56 Naked> Σ0 →0x21d5c
<MI 21d50 MOVE.L (A3+0x26),0x2563e> {}
<MI 21d54 BRA 0x21d5c> {}
<POP 21d56-21d5c Naked> Σ0 ↓ ←0x21d4c
<MI 21d56 MOVE.L (A3+0x26),(A4+0x26)> {}
<POP 21d5c-21d6a Naked> Σ0 ↓ ←0x21d50
<Pointer.fp 0x21d5c <LVAR 0x008 @ 4(r)>> Δ-4 {[@@8]}
<Const 0x21d5e 0x2a.4> Δ-4 {[@@8]|[##42]}
<Call 0x21d62 0x102a8> {[@@8]|[##42]}
Free2(a : Pointer; b : Long)
<POP 21d68-21d6a StackAdj> Δ+8 {}
<POP 21d6a-21d72 Epilogue> Σ0 ←0x21d0e ←0x21d48
@ 21d72
<LVAR 0x010 4(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x006 @ 4(rw)>
<LVAR -0x024 @>
<POP 21d72-21e30 Body>
<POP 21d72-21d88 Prologue> Σ0 ↓
<POP 21d88-21d92 RegCacheLoad> Σ0 ↓
<POP 21d92-21db0 Naked> Σ0 ↓ →0x21db2
<POP 21d92-21d94 StackAdj> Δ-30 {[-30-]}
<MI 21d94 MOVEA.L (A6+0xc),A0> {[-30-]}
<MI 21d98 MOVE.L (A0),-(A7)> Δ-4 {[-30-]|[4, '(A0)']}
<Call 0x21d9a 0x21c16> {[-30-]|[4, '(A0)']}
<POP 21d9e-21da0 StackAdj> Δ+4 {[-30-]}
<MI 21da0 LEA.L (A6-0x24),A0> {[-30-]}
<POP 21da4-21dac StackPop> Δ+30 {[-30-]}
<BlockMove 30,A7,A0> Δ+30
<MI 21dac TST.L (A6+0x8)> {[-30-]}
<MI 21dae BGE 0x21db2> {[-30-]}
<POP 21db0-21db2 Naked> Σ0 ↓
<MI 21db0 CLR.L (A6+0x8)> {}
<POP 21db2-21dce Naked> Σ0 ↓ →0x21de0 ←0x21d92
<POP 21db2-21db4 StackAdj> Δ-4 {[-4-]}
<Blob 0x21db4 [30] (A6-0x6)> Δ-30 {[-4-]|[«30»]}
<Call 0x21dbe 0x21c98> {[-4-]|[«30»]}
<POP 21dc2-21dc4 StackAdj> Δ+30 {[-4-]}
<MI 21dc4 MOVE.L (A7)+,(A6-0x6)> Δ+4 {}
<MI 21dc6 MOVEA.L (A6-0x6),A0> {}
<MI 21dc8 CMPA.W #0x1,A0> {}
<MI 21dcc BEQ 0x21de0> {}
<POP 21dce-21dd6 Naked> Σ0 ↓ →0x21dd8
<MI 21dce MOVE.L (A0+0x1e),D0> {}
<MI 21dd2 CMP.L (A6+0x8),D0> {}
<MI 21dd4 BNE 0x21dd8> {}
<POP 21dd6-21dd8 Naked> Σ0 →0x21e24
<MI 21dd6 BRA 0x21e24> {}
<POP 21dd8-21de0 Naked> Σ0 ↓ ←0x21dce
<MI 21dd8 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x21dda 0x21cec> {[4, '(A6-0x6)']}
<POP 21dde-21de0 StackAdj> Δ+4 {}
<POP 21de0-21e14 Naked> Σ0 ↓ →0x21e24 ←0x21db2
<Pointer.fp 0x21de0 <LVAR -0x006 @ 4(rw)>> Δ-4 {[@@-6]}
<Const 0x21de2 0x2a.4> Δ-4 {[@@-6]|[##42]}
<Call 0x21de6 0x1029c> {[@@-6]|[##42]}
Malloc1(length : Long) : Pointer
<POP 21dec-21dee StackAdj> Δ+8 {}
<MI 21dee MOVEA.L (A6-0x6),A0> {}
<MI 21df0 MOVE.L 0x2563e,(A0+0x26)> {}
<MI 21df8 MOVE.L (A6-0x6),0x2563e> {}
<MI 21dfe MOVEA.L A0,A1> {}
<MI 21e00 LEA.L (A6-0x24),A2> {}
<BlockMove 30,A2,A1> {}
<MI 21e0c MOVE.L (A6+0x8),(A0+0x1e)> {}
<MI 21e10 TST.L (A6+0x8)> {}
<MI 21e12 BEQ 0x21e24> {}
<POP 21e14-21e24 Naked> Σ0 ↓
<POP 21e14-21e16 StackAdj> Δ-4 {[-4-]}
<MI 21e16 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x21e18 0x102a0> {[-4-]|[4, '(A6+0x8)']}
Malloc2(VAR dst : Pointer; length : Word)
<POP 21e1e-21e20 StackAdj> Δ+4 {[-4-]}
<MI 21e20 MOVE.L (A7)+,(A0+0x22)> Δ+4 {}
<POP 21e24-21e28 Naked> Σ0 ↓ ←0x21dd6 ←0x21de0
<MI 21e24 MOVE.L (A6-0x6),(A6+0x10)> {}
<POP 21e28-21e30 Epilogue> Σ0
@ 21e30
<LVAR 0x00c @>
<LVAR 0x008 @ 4(r)>
<LVAR -0x008 4(rw)>
<POP 21e30-21eba Body>
<POP 21e30-21e46 Prologue> Σ0 ↓
<POP 21e46-21e4a RegCacheLoad> Σ0 ↓
<POP 21e4a-21e68 Naked> Σ0 ↓ →0x21ea8
<MI 21e4a MOVEA.L (A6+0x8),A0> {}
<MI 21e4c MOVE.W (A0),D0> {}
<MI 21e4e EXTW.L D0> {}
<MI 21e50 MOVE.L D0,D6> {}
<POP 21e52-21e54 StackAdj> Δ-4 {[-4-]}
<Pointer.fp 0x21e54 <LVAR 0x00c @>> Δ-4 {[-4-]|[@@12]}
<MI 21e58 MOVE.L D6,-(A7)> Δ-4 {[-4-]|[@@12]|[4, 'D6']}
<Call 0x21e5a 0x21d72> {[-4-]|[@@12]|[4, 'D6']}
<POP 21e5e-21e60 StackAdj> Δ+8 {[-4-]}
<MI 21e60 MOVE.L (A7)+,(A6-0x8)> Δ+4 {}
<MI 21e64 TST.L D6> {}
<MI 21e66 BEQ 0x21ea8> {}
<POP 21e68-21e76 Naked> Σ0 Δ-8 ↓
<MI 21e68 MOVEA.L (A6-0x8),A0> {}
<MI 21e6c MOVEA.L (A0+0x22),A0> {}
<MI 21e70 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 21e72 MOVE.L D6,-(A7)> Δ-4 {[4, 'A0']|[4, 'D6']}
<MI 21e74 MOVEQ.L #0x01,D7> {[4, 'A0']|[4, 'D6']}
<POP 21e76-21e7a Naked> Σ-8 ↓ →0x21ea6 ←0x21e7a
<MI 21e76 CMP.L (A7),D7> {[-8-]}
<MI 21e78 BGT 0x21ea6> {[-8-]}
<POP 21e7a-21ea6 Naked> Σ-8 ↓ →0x21e76
<MI 21e7a MOVE.L D7,D0> {[-8-]}
<MI 21e7c SUBQ.L #0x1,D0> {[-8-]}
<POP 0x21e7e LimitCheck 0x0 ≤ D0 ≤ 0x3ff> {[-8-]}
<MI 21e88 MOVEA.L (A7+0x4),A0> {[-8-]}
<MI 21e8c MOVEA.L (A6+0x8),A1> {[-8-]}
<MI 21e8e MOVE.L D7,D1> {[-8-]}
<MI 21e90 SUBQ.L #0x1,D1> {[-8-]}
<POP 0x21e92 LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-8-]}
<MI 21e9c MOVE.B (A1+D1.L+#0x2),(A0+D0.L)> {[-8-]}
<MI 21ea2 ADDQ.L #0x1,D7> {[-8-]}
<MI 21ea4 BVC 0x21e76> {[-8-]}
<POP 21ea6-21ea8 Naked> Σ-8 Δ+8 ↓ ←0x21e76
<POP 21ea6-21ea8 StackAdj> Δ+8 {}
<POP 21ea8-21eb2 Naked> Σ0 ↓ ←0x21e4a
<Pointer.fp 0x21ea8 <LVAR 0x008 @ 4(r)>> Δ-4 {[@@8]}
<Call 0x21eaa 0x102bc> {[@@8]}
FreeString(VAR a : String)
<POP 21eb0-21eb2 StackAdj> Δ+4 {}
<POP 21eb2-21eba Epilogue> Σ0
@ 21eba
<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 21eba-22026 Body>
<POP 21eba-21ed0 Prologue> Σ0 ↓
<POP 21ed0-21ede RegCacheLoad> Σ0 ↓
<POP 21ede-21ef0 Naked> Σ0 ↓ →0x21f1e
<POP 21ede-21ee0 StackAdj> Δ-4 {[-4-]}
<MI 21ee0 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x21ee2 0x20f16> {[-4-]|[4, '(A6+0x8)']}
<POP 21ee6-21ee8 StackAdj> Δ+4 {[-4-]}
<MI 21ee8 MOVE.L (A7)+,(A6-0x10)> Δ+4 {}
<MI 21eea MOVE.L (A6-0x10),D0> {}
<MI 21eec CMP.L #0x01,D0> {}
<MI 21eee BGE 0x21f1e> {}
<POP 21ef0-21f1e Naked> Σ0 ↓
<Blob 0x21ef0 [26] @> Δ-26 {[«26""»]}
<POP 21f02-21f04 StackAdj> Δ-4 {[«26""»]|[-4-]}
<Lit 0x21f04 25> {[«26""»]|[$$Too few arguments for SET]}
<Call 0x21f16 0x20b0a> {[«26""»]|[$$Too few arguments for SET]}
<POP 21f1a-21f1e StackAdj> Δ+30 {}
<POP 21f1e-21f24 Naked> Σ0 Δ-4 ↓ ←0x21ede
<MI 21f1e CLR.L (A6-0xc)> {}
<MI 21f20 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 21f22 MOVEQ.L #0x02,D6> {[4, 'D0']}
<POP 21f24-21f28 Naked> Σ-4 ↓ →0x21f46 ←0x21f28
<MI 21f24 CMP.L (A7),D6> {[-4-]}
<MI 21f26 BGT 0x21f46> {[-4-]}
<POP 21f28-21f46 Naked> Σ-4 ↓ →0x21f24
<POP 21f28-21f2c StackAdj> Δ-12 {[-16-]}
<MI 21f2c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<MI 21f2e MOVE.L D6,-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[4, 'D6']}
<Call 0x21f30 0x21754> {[-16-]|[4, '(A6+0x8)']|[4, 'D6']}
<POP 21f34-21f36 StackAdj> Δ+8 {[-16-]}
<Call 0x21f36 0x2171c> {[-16-]}
<POP 21f3a-21f3c StackAdj> Δ+8 {[-8-]}
<MI 21f3c MOVE.L (A6-0xc),D0> {[-8-]}
<MI 21f3e ADD.L (A7)+,D0> Δ+4 {[-4-]}
<MI 21f40 MOVE.L D0,(A6-0xc)> {[-4-]}
<MI 21f42 ADDQ.L #0x1,D6> {[-4-]}
<MI 21f44 BVC 0x21f24> {[-4-]}
<POP 21f46-21f76 Naked> Σ-4 Δ+4 ↓ →0x2201e ←0x21f24
<POP 21f46-21f48 StackAdj> Δ+4 {}
<MI 21f48 MOVE.L (A6-0x10),D0> {}
<MI 21f4a SUBQ.L #0x2,D0> {}
<MI 21f4c ADD.L D0,(A6-0xc)> {}
<POP 21f4e-21f50 StackAdj> Δ-4 {[-4-]}
<MI 21f50 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x21f52 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x21f56 0x21832> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 21f5a-21f5c StackAdj> Δ+8 {[-4-]}
<MI 21f5c MOVE.L (A7),(A6-0x4)> {[-4-]}
<Pointer.fp 0x21f60 <LVAR -0x004 @ 4(w)>> Δ-4 {[-4-]|[@@-4]}
<MI 21f64 MOVE.L (A6-0xc),-(A7)> Δ-4 {[-4-]|[@@-4]|[4, '(A6-0xc)']}
<Call 0x21f66 0x21d72> {[-4-]|[@@-4]|[4, '(A6-0xc)']}
<POP 21f6a-21f6c StackAdj> Δ+8 {[-4-]}
<MI 21f6c MOVE.L (A7)+,(A6-0x8)> Δ+4 {}
<MI 21f70 TST.L (A6-0xc)> {}
<MI 21f72 BLE 0x2201e> {}
<POP 21f76-21f86 Naked> Σ0 Δ-8 ↓
<MI 21f76 MOVEA.L (A6-0x8),A0> {}
<MI 21f7a MOVEA.L (A0+0x22),A0> {}
<MI 21f7e MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 21f80 MOVEQ.L #0x01,D7> {[4, 'A0']}
<MI 21f82 MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, 'A0']|[4, '(A6-0x10)']}
<MI 21f84 MOVEQ.L #0x02,D6> {[4, 'A0']|[4, '(A6-0x10)']}
<POP 21f86-21f8c Naked> Σ-8 ↓ →0x2201c ←0x22016
<MI 21f86 CMP.L (A7),D6> {[-8-]}
<MI 21f88 BGT 0x2201c> {[-8-]}
<POP 21f8c-21fac Naked> Σ-8 Δ-4 ↓ →0x21fc0
<POP 21f8c-21f8e StackAdj> Δ-8 {[-16-]}
<MI 21f8e MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<MI 21f90 MOVE.L D6,-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[4, 'D6']}
<Call 0x21f92 0x21754> {[-16-]|[4, '(A6+0x8)']|[4, 'D6']}
<POP 21f96-21f98 StackAdj> Δ+8 {[-16-]}
<MI 21f98 MOVE.L (A7)+,(A6-0x20)> Δ+4 {[-12-]}
<MI 21f9c MOVE.L (A7)+,(A6-0x1c)> Δ+4 {[-8-]}
<MI 21fa0 MOVE.L (A6-0x1c),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x1c)']}
<MI 21fa4 MOVE.L (A6-0x20),D5> {[-8-]|[4, '(A6-0x1c)']}
<MI 21fa8 CMP.L (A7),D5> {[-8-]|[4, '(A6-0x1c)']}
<MI 21faa BGT 0x21fc0> {[-8-]|[4, '(A6-0x1c)']}
<POP 21fac-21fc0 Naked> Σ-12 ↓
<MI 21fac MOVE.L (A7),D0> {[-12-]}
<POP 0x21fae LimitCheck -0x7fffffff ≤ D5> {[-12-]}
<MI 21fae CMPI.L #0x80000001,D5>
<MI 21fb4 BLT 0x21fbe>
<POP 0x21fb6 LimitCheck D0 ≤ 0x7fffffff> {[-12-]}
<MI 21fb6 CMPI.L #0x7fffffff,D0>
<MI 21fbc BLE 0x21fc0>
<MI 21fbe TRAP #15>
<POP 21fc0-21fc4 Naked> Σ-12 ↓ →0x21ff6 ←0x21f8c ←0x21fc4
<MI 21fc0 CMP.L (A7),D5> {[-12-]}
<MI 21fc2 BGT 0x21ff6> {[-12-]}
<POP 21fc4-21ff6 Naked> Σ-12 ↓ →0x21fc0
<MI 21fc4 MOVE.L D7,D0> {[-12-]}
<MI 21fc6 SUBQ.L #0x1,D0> {[-12-]}
<POP 0x21fc8 LimitCheck 0x0 ≤ D0 ≤ 0x3ff> {[-12-]}
<MI 21fd2 MOVEA.L (A7+0x8),A0> {[-12-]}
<MI 21fd6 MOVE.L D5,D1> {[-12-]}
<MI 21fd8 SUBQ.L #0x1,D1> {[-12-]}
<POP 0x21fda LimitCheck 0x0 ≤ D1 ≤ 0xfff> {[-12-]}
<MI 21fe4 LEA.L 0x2460c,A1> {[-12-]}
<MI 21fea MOVE.B (A1+D1.L+#0x8),(A0+D0.L)> {[-12-]}
<MI 21ff0 ADDQ.L #0x1,D7> {[-12-]}
<MI 21ff2 ADDQ.L #0x1,D5> {[-12-]}
<MI 21ff4 BVC 0x21fc0> {[-12-]}
<POP 21ff6-21ffc Naked> Σ-12 Δ+4 ↓ →0x22016 ←0x21fc0
<POP 21ff6-21ff8 StackAdj> Δ+4 {[-8-]}
<MI 21ff8 CMP.L (A6-0x10),D6> {[-8-]}
<MI 21ffa BEQ 0x22016> {[-8-]}
<POP 21ffc-22016 Naked> Σ-8 ↓
<MI 21ffc MOVE.L D7,D0> {[-8-]}
<MI 21ffe SUBQ.L #0x1,D0> {[-8-]}
<POP 0x22000 LimitCheck 0x0 ≤ D0 ≤ 0x3ff> {[-8-]}
<MI 2200a MOVEA.L (A7+0x4),A0> {[-8-]}
<MI 2200e MOVE.B #0x2c,(A0+D0.L)> {[-8-]}
<MI 22014 ADDQ.L #0x1,D7> {[-8-]}
<POP 22016-2201c Naked> Σ-8 ↓ →0x21f86 ←0x21ff6
<MI 22016 ADDQ.L #0x1,D6> {[-8-]}
<MI 22018 BVC 0x21f86> {[-8-]}
<POP 2201c-2201e Naked> Σ-8 Δ+8 ↓ ←0x21f86
<POP 2201c-2201e StackAdj> Δ+8 {}
<POP 2201e-22026 Epilogue> Σ0 ←0x21f46
@ 22026
<LVAR 0x008 4(r)>
<LVAR -0x00c 4(rw)>
<POP 22026-22114 Body>
<POP 22026-2203c Prologue> Σ0 ↓
<POP 2203c-22044 RegCacheLoad> Σ0 ↓
<POP 22044-22076 Naked> Σ0 ↓ →0x220b8
<POP 22044-22046 StackAdj> Δ-4 {[-4-]}
<MI 22046 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x2204a 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x2204e 0x21832> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 22052-22054 StackAdj> Δ+8 {[-4-]}
<MI 22054 MOVEA.L (A7)+,A4> Δ+4 {}
<POP 22056-2205a StackAdj> Δ-34 {[-34-]}
<MI 2205a MOVE.L A4,-(A7)> Δ-4 {[-34-]|[4, 'A4']}
<Call 0x2205c 0x21c16> {[-34-]|[4, 'A4']}
<POP 22060-22062 StackAdj> Δ+4 {[-34-]}
<Call 0x22062 0x21c98> {[-34-]}
<POP 22066-2206a StackAdj> Δ+30 {[-4-]}
<MI 2206a MOVE.L (A7)+,(A6-0xc)> Δ+4 {}
<MI 2206e MOVEA.L (A6-0xc),A0> {}
<MI 22072 CMPA.W #0x01,A0> {}
<MI 22074 BNE 0x220b8> {}
<POP 22076-220b8 Naked> Σ0 ↓
<Blob 0x22076 [20] @> Δ-20 {[«20""»]}
<POP 22088-2208a StackAdj> Δ-8 {[«20""»]|[-8-]}
<Lit 0x2208a 19> {[«20""»]|[-4-]|[$$Unknown variable :_]}
<MI 2209a MOVE.L (A6+0x8),(A7)> {[«20""»]|[-4-]|[4, '(A6+0x8)']}
<POP 22094-2209a StackAdj> Δ-8 {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-8-]}
<Const 0x2209e 0x1.4> Δ-4 {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-8-]|[##1]}
<Call 0x220a2 0x21832> {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-8-]|[##1]}
<POP 220a6-220a8 StackAdj> Δ+8 {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-4-]}
<Call 0x220a8 0x102d0> {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-4-]}
StringCat2(a, b : String) : String
<POP 220ae-220b0 StackAdj> Δ+8 {[«20""»]|[-4-]}
<Call 0x220b0 0x20b0a> {[«20""»]|[-4-]}
<POP 220b4-220b8 StackAdj> Δ+24 {}
<POP 220b8-220ce Naked> Σ0 Δ-8 ↓ ←0x22044
<MI 220b8 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Blob 0x220ba [4] 0x25614> Δ-4 {[4, 'A0']|[«4»]}
<MI 220bc MOVE.L (A0+0x1e),-(A7)> Δ-4 {[4, 'A0']|[«4»]|[4, '(A0+0x1e)']}
<MI 220c0 NEG.L (A7)> {[4, 'A0']|[«4»]|[4, '(A0+0x1e)']}
<Call 0x220c2 0x2105e> {[4, 'A0']|[«4»]|[4, '(A0+0x1e)']}
<POP 220c6-220c8 StackAdj> Δ+4 {[4, 'A0']|[«4»]}
<MI 220c8 MOVE.L (A0+0x1e),(A7)> {[4, 'A0']|[4, '(A0+0x1e)']}
<MI 220cc MOVEQ.L #0x01,D7> {[4, 'A0']|[4, '(A0+0x1e)']}
<POP 220ce-220d2 Naked> Σ-8 ↓ →0x2210a ←0x220d2
<MI 220ce CMP.L (A7),D7> {[-8-]}
<MI 220d0 BGT 0x2210a> {[-8-]}
<POP 220d2-2210a Naked> Σ-8 ↓ →0x220ce
<MI 220d2 MOVE.L D7,D0> {[-8-]}
<MI 220d4 ADD.L 0x25614,D0> {[-8-]}
<MI 220d6 SUBQ.L #0x1,D0> {[-8-]}
<MI 220d8 SUBQ.L #0x1,D0> {[-8-]}
<POP 0x220da LimitCheck 0x0 ≤ D0 ≤ 0xfff> {[-8-]}
<MI 220e4 LEA.L 0x2460c,A0> {[-8-]}
<MI 220ea MOVEA.L (A7+0x4),A1> {[-8-]}
<MI 220ee MOVEA.L (A1+0x22),A1> {[-8-]}
<MI 220f2 MOVE.L D7,D1> {[-8-]}
<MI 220f4 SUBQ.L #0x1,D1> {[-8-]}
<POP 0x220f6 LimitCheck 0x0 ≤ D1 ≤ 0x3ff> {[-8-]}
<MI 22100 MOVE.B (A1+D1.L),(A0+D0.L+#0x8)> {[-8-]}
<MI 22106 ADDQ.L #0x1,D7> {[-8-]}
<MI 22108 BVC 0x220ce> {[-8-]}
<POP 2210a-2210c Naked> Σ-8 Δ+8 ↓ ←0x220ce
<POP 2210a-2210c StackAdj> Δ+8 {}
<POP 2210c-22114 Epilogue> Σ0
@ 22114
<LVAR -0x004 4(rw)>
<POP 22114-22176 Body>
<POP 22114-2212a Prologue> Σ0 ↓
<POP 2212a-22132 RegCacheLoad> Σ0 ↓
<POP 22132-22138 Naked> Σ0 ↓
<MI 22132 MOVE.L 0x2563e,(A6-0x4)> {}
<POP 22138-2213e Naked> Σ0 ↓ →0x2216e ←0x2213e
<MI 22138 MOVEA.L (A6-0x4),A0> {}
<MI 2213a CMPA.W #0x01,A0> {}
<MI 2213c BEQ 0x2216e> {}
<POP 2213e-2216e Naked> Σ0 →0x22138
<POP 2213e-22140 StackAdj> Δ-30 {[-30-]}
<MI 22140 MOVEA.L A7,A1> {[-30-]}
<MI 22142 MOVEA.L A0,A2> {[-30-]}
<BlockMove 30,A2,A1> {[-30-]}
<POP 2214c-2214e StackAdj> Δ-4 {[-34-]}
<Lit 0x2214e> {[-30-]|[$$…]}
<Pointer.sp 0x2214e 4> Δ-4
<Const 0x22152 0x1.2> Δ-2
<Const 0x22154 0x1e.2> Δ-2
<Call 0x22156 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 2215c-2215e StackAdj> Δ+8
<Call 0x2215e 0x103e0> {[-30-]|[$$…]}
WriteConsoleStringCrLf(str : String)
<POP 22164-22168 StackAdj> Δ+34 {}
<MI 22168 MOVE.L (A0+0x26),(A6-0x4)> {}
<MI 2216c BRA 0x22138> {}
<POP 2216e-22176 Epilogue> Σ0 ←0x22138
@ 22176
<LVAR 0x008 4(r)>
<POP 22176-221b2 Body>
<POP 22176-22188 Prologue> Σ0 ↓
<POP 22188-221ae Naked> Σ0 ↓
<POP 22188-2218c StackAdj> Δ-38 {[-38-]}
<MI 2218c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-38-]|[4, '(A6+0x8)']}
<Const 0x22190 0x1.4> Δ-4 {[-38-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22194 0x21832> {[-38-]|[4, '(A6+0x8)']|[##1]}
<POP 22198-2219a StackAdj> Δ+8 {[-38-]}
<Call 0x2219a 0x21c16> {[-38-]}
<POP 2219e-221a0 StackAdj> Δ+4 {[-34-]}
<Call 0x221a0 0x21c98> {[-34-]}
<POP 221a4-221a8 StackAdj> Δ+30 {[-4-]}
<Call 0x221a8 0x21cec> {[-4-]}
<POP 221ac-221ae StackAdj> Δ+4 {}
<POP 221ae-221b2 Epilogue> Σ0
@ 221b2
<POP 221b2-221e0 Body>
<POP 221b2-221c4 Prologue> Σ0 ↓
<POP 221c4-221dc Naked> Σ0 ↓
<POP 221c4-221c6 StackAdj> Δ-8 {[-8-]}
<Call 0x221c6 0x103cc> {[-8-]}
GetPushLevel() : Long
<Call 0x221cc 0x102e4> {[-8-]}
Long2String(a : Long) : String
<POP 221d2-221d4 StackAdj> Δ+4 {[-4-]}
<Call 0x221d4 0x103e0> {[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 221da-221dc StackAdj> Δ+4 {}
<POP 221dc-221e0 Epilogue> Σ0
@ 221e0
<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 221e0-22508 Body>
<POP 221e0-221f6 Prologue> Σ0 ↓
<POP 221f6-2220e RegCacheLoad> Σ0 ↓
<POP 2220e-2221e Naked> Σ0 ↓ →0x22246
<POP 2220e-22210 StackAdj> Δ-4 {[-4-]}
<MI 22210 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x22212 0x20f16> {[-4-]|[4, '(A6+0x8)']}
<POP 22216-22218 StackAdj> Δ+4 {[-4-]}
<MI 22218 MOVE.L (A7)+,(A6-0x2c)> Δ+4 {}
<MI 2221c BNE 0x22246> {}
<POP 2221e-22246 Naked> Σ0 →0x22256
<POP 2221e-22220 StackAdj> Δ-4 {[-4-]}
<POP 22220-22221 StackAdj> Δ+2 {[-2-]}
<Blob 0x22221 [2] @> Δ-2 {[-2-]|[«2""»]}
<MI 22224 MOVE.B 0x2072f,(A7+0x1)> {[-2-]|[«2""»]}
<MI 2222a MOVE.B 0x20730,(A7+0x2)> {[-2-]|[«2""»]}
<POP 22230-22232 StackAdj> Δ-4 {[-2-]|[«2""»]|[-4-]}
<Lit 0x22232> {[-2-]|[«2""»]|[$$…]}
<Pointer.sp 0x22232 4> Δ-4
<Const 0x22236 0x1.2> Δ-2
<Const 0x22238 0x3.2> Δ-2
<Call 0x2223c 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 2223e-22240 StackAdj> Δ+8
<MI 22240 MOVE.L (A7)+,(A6-0x3c)> Δ+4 {[-2-]|[«2""»]}
<POP 22242-22244 StackAdj> Δ+4 {}
<MI 22244 BRA 0x22256> {}
<POP 22246-22256 Naked> Σ0 ↓ ←0x2220e
<POP 22246-22248 StackAdj> Δ-4 {[-4-]}
<MI 22248 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x2224a 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x2224e 0x21832> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 22252-22254 StackAdj> Δ+8 {[-4-]}
<MI 22254 MOVE.L (A7)+,(A6-0x3c)> Δ+4 {}
<POP 22256-222a6 Naked> Σ0 ↓ →0x222b4 ←0x2221e
<Blob 0x22256 [6] @> Δ-6 {[«6""»]}
<POP 22266-22268 StackAdj> Δ-4 {[«6""»]|[-4-]}
<MI 22268 MOVE.L (A6-0x3c),-(A7)> Δ-4 {[«6""»]|[-4-]|[4, '(A6-0x3c)']}
<POP 2226a-2226c StackAdj> Δ-4 {[«6""»]|[-4-]|[4, '(A6-0x3c)']|[-4-]}
<Lit 0x2226c 5> {[«6""»]|[-4-]|[4, '(A6-0x3c)']|[$$.M200]}
<Call 0x2227a 0x102d0> {[«6""»]|[-4-]|[4, '(A6-0x3c)']|[$$.M200]}
StringCat2(a, b : String) : String
<POP 22280-22282 StackAdj> Δ+8 {[«6""»]|[-4-]}
<MI 22282 MOVE.L (A7)+,(A6-0x3c)> Δ+4 {[«6""»]}
<POP 22284-22286 StackAdj> Δ+2 {[-4-]}
<MI 22286 MOVE.L (A6-0x3c),(A7)> {[4, '(A6-0x3c)']}
<MI 22288 CLR.B -(A7)> Δ-2 {[4, '(A6-0x3c)']|[#0]}
<Const 0x2228a 0x1.2> Δ-2 {[4, '(A6-0x3c)']|[#0]|[#1]}
<Const 0x2228c 0x0.4> Δ-4 {[4, '(A6-0x3c)']|[#0]|[#1]|[##0]}
<Pointer.fp 0x22290 <LVAR -0x038 @ 1(r)>> Δ-4 {[4, '(A6-0x3c)']|[#0]|[#1]|[##0]|[@@-56]}
<Pointer.fp 0x22294 <LVAR -0x036 @ 4(r)>> Δ-4 {[4, '(A6-0x3c)']|[#0]|[#1]|[##0]|[@@-56]|[@@-54]}
<Call 0x22298 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 2229e-222a0 StackAdj> Δ+20 {}
<MI 222a0 TST.B (A6-0x38)> {}
<MI 222a4 BEQ 0x222b4> {}
<POP 222a6-222b4 Naked> Σ0 →0x22500
<Pointer.fp 0x222a6 <LVAR -0x03c @ 4(rw)>> Δ-4 {[@@-60]}
<Call 0x222a8 0x102bc> {[@@-60]}
FreeString(VAR a : String)
<POP 222ae-222b0 StackAdj> Δ+4 {}
<MI 222b0 BRA 0x22500> {}
<POP 222b4-222fa Naked> Σ0 ↓ →0x22330 ←0x22256
<MI 222b4 MOVEA.L (A6-0x36),A0> {}
<MI 222b8 MOVE.B (A0+0x3f),D0> {}
<MI 222bc LSL.B #0x6,D0> {}
<MI 222be LSR.B #0x7,D0> {}
<MI 222c0 MOVE.B D0,(A6-0x32)> {}
<MI 222c4 CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x222c6 0x1.2> Δ-2 {[#0]|[#1]}
<Const 0x222c8 0x1.4> Δ-4 {[#0]|[#1]|[##1]}
<Pointer.fp 0x222cc <LVAR -0x038 @ 1(r)>> Δ-4 {[#0]|[#1]|[##1]|[@@-56]}
<Pointer.fp 0x222d0 <LVAR -0x036 @ 4(r)>> Δ-4 {[#0]|[#1]|[##1]|[@@-56]|[@@-54]}
<Call 0x222d4 0x1038c> {[#0]|[#1]|[##1]|[@@-56]|[@@-54]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 222da-222de StackAdj> Δ+16 {}
<MI 222de MOVEA.L (A6-0x3c),A0> {}
<MI 222e0 MOVE.W (A0),D1> {}
<MI 222e2 EXTW.L D1> {}
<MI 222e4 SUBQ.L #0x5,D1> {}
<POP 0x222e6 LimitCheck -0x8000 ≤ D1 ≤ 0x7fff> {}
<MI 222f4 MOVE.W D1,(A0)> {}
<MI 222f6 TST.B D0> {}
<MI 222f8 BNE 0x22330> {}
<POP 222fa-22330 Naked> Σ0 →0x22500
<Blob 0x222fa [18] @> Δ-18 {[«18""»]}
<POP 22306-22308 StackAdj> Δ-4 {[«18""»]|[-4-]}
<MI 22308 MOVE.L (A6-0x3c),-(A7)> Δ-4 {[«18""»]|[-4-]|[4, '(A6-0x3c)']}
<POP 2230a-2230c StackAdj> Δ-4 {[«18""»]|[-4-]|[4, '(A6-0x3c)']|[-4-]}
<Lit 0x2230c 18> {[«18""»]|[-4-]|[4, '(A6-0x3c)']|[$$ is not a program.]}
<Call 0x2231a 0x102d0> {[«18""»]|[-4-]|[4, '(A6-0x3c)']|[$$ is not a program.]}
StringCat2(a, b : String) : String
<POP 22320-22322 StackAdj> Δ+8 {[«18""»]|[-4-]}
<Call 0x22322 0x103e0> {[«18""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 22328-2232c StackAdj> Δ+22 {}
<MI 2232c BRA 0x22500> {}
<POP 22330-2234a Naked> Σ0 Δ-8 ↓ ←0x222b4
<Pointer.fp 0x22330 <LVAR -0x030 @ 4(r)>> Δ-4 {[@@-48]}
<Call 0x22334 0x102b8> {[@@-48]}
NewString(VAR a : String)
<POP 2233a-2233c StackAdj> Δ+4 {}
<MI 2233c MOVEA.L (A6-0x30),A0> {}
<MI 22340 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 22342 MOVEQ.L #0x01,D7> {[4, 'A0']}
<MI 22344 MOVE.L (A6-0x2c),-(A7)> Δ-4 {[4, 'A0']|[4, '(A6-0x2c)']}
<MI 22348 MOVEQ.L #0x02,D5> {[4, 'A0']|[4, '(A6-0x2c)']}
<POP 2234a-22350 Naked> Σ-8 ↓ →0x223e2 ←0x223dc
<MI 2234a CMP.L (A7),D5> {[-8-]}
<MI 2234c BGT 0x223e2> {[-8-]}
<POP 22350-22370 Naked> Σ-8 Δ-4 ↓ →0x22384
<POP 22350-22352 StackAdj> Δ-8 {[-16-]}
<MI 22352 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<MI 22354 MOVE.L D5,-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[4, 'D5']}
<Call 0x22356 0x21754> {[-16-]|[4, '(A6+0x8)']|[4, 'D5']}
<POP 2235a-2235c StackAdj> Δ+8 {[-16-]}
<MI 2235c MOVE.L (A7)+,(A6-0x28)> Δ+4 {[-12-]}
<MI 22360 MOVE.L (A7)+,(A6-0x24)> Δ+4 {[-8-]}
<MI 22364 MOVE.L (A6-0x24),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x24)']}
<MI 22368 MOVE.L (A6-0x28),D6> {[-8-]|[4, '(A6-0x24)']}
<MI 2236c CMP.L (A7),D6> {[-8-]|[4, '(A6-0x24)']}
<MI 2236e BGT 0x22384> {[-8-]|[4, '(A6-0x24)']}
<POP 22370-22384 Naked> Σ-12 ↓
<MI 22370 MOVE.L (A7),D0> {[-12-]}
<POP 0x22372 LimitCheck -0x7fffffff ≤ D6> {[-12-]}
<MI 22372 CMPI.L #0x80000001,D6>
<MI 22378 BLT 0x22382>
<POP 0x2237a LimitCheck D0 ≤ 0x7fffffff> {[-12-]}
<MI 2237a CMPI.L #0x7fffffff,D0>
<MI 22380 BLE 0x22384>
<MI 22382 TRAP #15>
<POP 22384-22388 Naked> Σ-12 ↓ →0x223ba ←0x22350 ←0x22388
<MI 22384 CMP.L (A7),D6> {[-12-]}
<MI 22386 BGT 0x223ba> {[-12-]}
<POP 22388-223ba Naked> Σ-12 ↓ →0x22384
<MI 22388 MOVE.L D7,D0> {[-12-]}
<MI 2238a SUBQ.L #0x1,D0> {[-12-]}
<POP 0x2238c LimitCheck 0x0 ≤ D0 ≤ 0x7d> {[-12-]}
<MI 22396 MOVEA.L (A7+0x8),A0> {[-12-]}
<MI 2239a MOVE.L D6,D1> {[-12-]}
<MI 2239c SUBQ.L #0x1,D1> {[-12-]}
<POP 0x2239e LimitCheck 0x0 ≤ D1 ≤ 0xfff> {[-12-]}
<MI 223a8 LEA.L 0x2460c,A1> {[-12-]}
<MI 223ae MOVE.B (A1+D1.L+#0x8),(A0+D0.L+#0x2)> {[-12-]}
<MI 223b4 ADDQ.L #0x1,D7> {[-12-]}
<MI 223b6 ADDQ.L #0x1,D6> {[-12-]}
<MI 223b8 BVC 0x22384> {[-12-]}
<POP 223ba-223c2 Naked> Σ-12 Δ+4 ↓ →0x223dc ←0x22384
<POP 223ba-223bc StackAdj> Δ+4 {[-8-]}
<MI 223bc CMP.L (A6-0x2c),D5> {[-8-]}
<MI 223c0 BEQ 0x223dc> {[-8-]}
<POP 223c2-223dc Naked> Σ-8 ↓
<MI 223c2 MOVE.L D7,D0> {[-8-]}
<MI 223c4 SUBQ.L #0x1,D0> {[-8-]}
<POP 0x223c6 LimitCheck 0x0 ≤ D0 ≤ 0x7d> {[-8-]}
<MI 223d0 MOVEA.L (A7+0x4),A0> {[-8-]}
<MI 223d4 MOVE.B #0x2c,(A0+D0.L+#0x2)> {[-8-]}
<MI 223da ADDQ.L #0x1,D7> {[-8-]}
<POP 223dc-223e2 Naked> Σ-8 ↓ →0x2234a ←0x223ba
<MI 223dc ADDQ.L #0x1,D5> {[-8-]}
<MI 223de BVC 0x2234a> {[-8-]}
<POP 223e2-22492 Naked> Σ-8 Δ+8 ↓ →0x22498 ←0x2234a
<POP 223e2-223e4 StackAdj> Δ+4 {[-4-]}
<MI 223e4 MOVEA.L (A7),A0> {[-4-]}
<MI 223e6 MOVE.L D7,D0> {[-4-]}
<MI 223e8 SUBQ.L #0x1,D0> {[-4-]}
<POP 0x223ea LimitCheck -0x8000 ≤ D0 ≤ 0x7fff> {[-4-]}
<MI 223f8 MOVE.W D0,(A0)> {[-4-]}
<POP 223fa-223fc StackAdj> Δ+2 {[-2-]}
<POP 223fc-223fd StackAdj> Δ+2 {}
<Blob 0x223fd [2] @> Δ-2 {[«2""»]}
<Blob 0x22400 [2] @> Δ-2 {[«2""»]|[«2""»]}
<Blob 0x22404 [2] @> Δ-2 {[«2""»]|[«2""»]|[«2""»]}
<POP 22408-2240a StackAdj> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[-4-]}
<Lit 0x2240a 6> {[«2""»]|[«2""»]|[«2""»]|[$$STATUS]}
<MI 22418 MOVE.L (A7)+,(A6-0x8)> Δ+4 {[«2""»]|[«2""»]|[«2""»]}
<POP 2241c-2241e StackAdj> Δ+2 {[«2""»]|[«2""»]}
<MI 2241e MOVE.L (A6+0x8),(A7)> {[4, '(A6+0x8)']}
<Const 0x22420 0x0.4> Δ-4 {[4, '(A6+0x8)']|[##0]}
<MI 22424 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']}
<Pointer.fp 0x22428 <LVAR -0x010 @ 4(r)>> Δ-4 {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']|[@@-16]}
<Pointer.fp 0x2242c <LVAR -0x013 @ 1(r)>> Δ-4 {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']|[@@-16]|[@@-19]}
<Call 0x22430 0x23d6a> {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']|[@@-16]|[@@-19]}
<POP 22436-22438 StackAdj> Δ+20 {}
<Pointer.fp 0x22438 <LVAR -0x008 @ 4(rw)>> Δ-4 {[@@-8]}
<Call 0x2243c 0x102bc> {[@@-8]}
FreeString(VAR a : String)
<POP 22442-22444 StackAdj> Δ+2 {[-2-]}
<POP 22444-22445 StackAdj> Δ+2 {}
<Blob 0x22445 [2] @> Δ-2 {[«2""»]}
<Blob 0x22448 [2] @> Δ-2 {[«2""»]|[«2""»]}
<Blob 0x2244c [2] @> Δ-2 {[«2""»]|[«2""»]|[«2""»]}
<POP 22450-22452 StackAdj> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[-4-]}
<Lit 0x22452 6> {[«2""»]|[«2""»]|[«2""»]|[$$RESULT]}
<MI 22460 MOVE.L (A7)+,(A6-0x8)> Δ+4 {[«2""»]|[«2""»]|[«2""»]}
<POP 22464-22466 StackAdj> Δ+2 {[«2""»]|[«2""»]}
<MI 22466 MOVE.L (A6+0x8),(A7)> {[4, '(A6+0x8)']}
<Const 0x22468 0x0.4> Δ-4 {[4, '(A6+0x8)']|[##0]}
<MI 2246c MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']}
<Pointer.fp 0x22470 <LVAR -0x00c @ 4(r)>> Δ-4 {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']|[@@-12]}
<Pointer.fp 0x22474 <LVAR -0x012 @ 1(r)>> Δ-4 {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']|[@@-12]|[@@-18]}
<Call 0x22478 0x23d6a> {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']|[@@-12]|[@@-18]}
<POP 2247e-22480 StackAdj> Δ+20 {}
<Pointer.fp 0x22480 <LVAR -0x008 @ 4(rw)>> Δ-4 {[@@-8]}
<Call 0x22484 0x102bc> {[@@-8]}
FreeString(VAR a : String)
<POP 2248a-2248c StackAdj> Δ+4 {}
<MI 2248c TST.B (A6-0x13)> {}
<MI 22490 BNE 0x22498> {}
<POP 22492-22498 Naked> Σ0 ↓ →0x2249e
<MI 22492 TST.B (A6-0x12)> {}
<MI 22496 BEQ 0x2249e> {}
<POP 22498-2249e Naked> Σ0 →0x224a2 ←0x223e2
<MI 22498 CLR.B (A6-0x4)> {}
<MI 2249c BRA 0x224a2> {}
<POP 2249e-224a2 Naked> Σ0 ↓ ←0x22492
<MI 2249e MOVE.B #0x01,(A6-0x4)> {}
<POP 224a2-224c8 Naked> Σ0 ↓ →0x224e8 ←0x22498
<MI 224a2 MOVE.L (A6-0x3c),-(A7)> Δ-4 {[4, '(A6-0x3c)']}
<MI 224a4 MOVE.L (A6-0x30),-(A7)> Δ-4 {[4, '(A6-0x3c)']|[4, '(A6-0x30)']}
<MI 224a8 MOVE.B (A6-0x4),D0> {[4, '(A6-0x3c)']|[4, '(A6-0x30)']}
<MI 224ac EXTB.W D0> {[4, '(A6-0x3c)']|[4, '(A6-0x30)']}
<POP 0x224ae LimitCheck 0x0 ≤ D0 ≤ 0x2> {[4, '(A6-0x3c)']|[4, '(A6-0x30)']}
<MI 224b2 MOVE.B D0,-(A7)> Δ-2 {[4, '(A6-0x3c)']|[4, '(A6-0x30)']|[2, 'D0']}
<Pointer.fp 0x224b4 <LVAR -0x014 @ 1(r)>> Δ-4 {[4, '(A6-0x3c)']|[4, '(A6-0x30)']|[2, 'D0']|[@@-20]}
<Call 0x224b8 0x103b0> {[4, '(A6-0x3c)']|[4, '(A6-0x30)']|[2, 'D0']|[@@-20]}
PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
<POP 224be-224c2 StackAdj> Δ+14 {}
<MI 224c2 TST.B (A6-0x13)> {}
<MI 224c6 BEQ 0x224e8> {}
<POP 224c8-224e8 Naked> Σ0 ↓
<MI 224c8 MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0x10)']}
<POP 224cc-224ce StackAdj> Δ-4 {[4, '(A6-0x10)']|[-4-]}
<MI 224ce MOVE.B (A6-0x14),D0> {[4, '(A6-0x10)']|[-4-]}
<MI 224d2 EXTB.W D0> {[4, '(A6-0x10)']|[-4-]}
<POP 0x224d4 LimitCheck 0x0 ≤ D0 ≤ 0xe> {[4, '(A6-0x10)']|[-4-]}
<MI 224d8 MOVE.B D0,-(A7)> Δ-2 {[4, '(A6-0x10)']|[-4-]|[2, 'D0']}
<Call 0x224da 0x103c0> {[4, '(A6-0x10)']|[-4-]|[2, 'D0']}
ExpErrMsg(a: Byte) : String
<POP 224e0-224e2 StackAdj> Δ+2 {[4, '(A6-0x10)']|[-4-]}
<Call 0x224e2 0x21e30> {[4, '(A6-0x10)']|[-4-]}
<POP 224e6-224e8 StackAdj> Δ+8 {}
<POP 224e8-224ee Naked> Σ0 ↓ →0x22500 ←0x224a2
<MI 224e8 TST.B (A6-0x12)> {}
<MI 224ec BEQ 0x22500> {}
<POP 224ee-22500 Naked> Σ0 ↓
<MI 224ee MOVE.L (A6-0xc),-(A7)> Δ-4 {[4, '(A6-0xc)']}
<POP 224f2-224f4 StackAdj> Δ-4 {[4, '(A6-0xc)']|[-4-]}
<Call 0x224f4 0x103c8> {[4, '(A6-0xc)']|[-4-]}
FSCALL_103c8
<Call 0x224fa 0x21e30> {[4, '(A6-0xc)']|[-4-]}
<POP 224fe-22500 StackAdj> Δ+8 {}
<POP 22500-22508 Epilogue> Σ0 ←0x222a6 ←0x222fa ←0x224e8
@ 22508
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 4(rw)>
<LVAR -0x008 @ 4(rw)>
<POP 22508-22580 Body>
<POP 22508-2251e Prologue> Σ0 ↓
<POP 2251e-22526 RegCacheLoad> Σ0 ↓
<POP 22526-2255a Naked> Σ0 ↓ →0x22560
<POP 22526-22528 StackAdj> Δ-4 {[-4-]}
<MI 22528 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x2252c 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22530 0x21832> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 22534-22536 StackAdj> Δ+8 {[-4-]}
<MI 22536 MOVE.L (A7),(A6-0x8)> {[-4-]}
<MI 22538 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x2253c 0x2.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##2]}
<Call 0x22540 0x21832> {[-4-]|[4, '(A6+0x8)']|[##2]}
<POP 22544-22546 StackAdj> Δ+8 {[-4-]}
<MI 22546 MOVE.L (A7),(A6-0x4)> {[-4-]}
<POP 22548-2254a StackAdj> Δ+2 {[-2-]}
<MI 2254a MOVE.L (A6-0x8),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x8)']}
<MI 2254c MOVE.L (A6-0x4),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x8)']|[4, '(A6-0x4)']}
<Call 0x2254e 0x102c8> {[-2-]|[4, '(A6-0x8)']|[4, '(A6-0x4)']}
StringEqual(a, b : String) : Byte
<POP 22554-22556 StackAdj> Δ+8 {[-2-]}
<MI 22556 TST.B (A7)+> Δ+2 {}
<MI 22558 BEQ 0x22560> {}
<POP 2255a-22560 Naked> Σ0 →0x22564
<Call 0x2255a 0x212f2> {}
<MI 2255e BRA 0x22564> {}
<POP 22560-22564 Naked> Σ0 ↓ ←0x22526
<Call 0x22560 0x21338> {}
<POP 22564-22578 Naked> Σ0 ↓ ←0x2255a
<Pointer.fp 0x22564 <LVAR -0x004 @ 4(rw)>> Δ-4 {[@@-4]}
<Call 0x22566 0x102bc> {[@@-4]}
FreeString(VAR a : String)
<POP 2256c-2256e StackAdj> Δ+4 {}
<Pointer.fp 0x2256e <LVAR -0x008 @ 4(rw)>> Δ-4 {[@@-8]}
<Call 0x22570 0x102bc> {[@@-8]}
FreeString(VAR a : String)
<POP 22576-22578 StackAdj> Δ+4 {}
<POP 22578-22580 Epilogue> Σ0
@ 22580
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 4(rw)>
<LVAR -0x008 @ 4(rw)>
<POP 22580-225f8 Body>
<POP 22580-22596 Prologue> Σ0 ↓
<POP 22596-2259e RegCacheLoad> Σ0 ↓
<POP 2259e-225d2 Naked> Σ0 ↓ →0x225d8
<POP 2259e-225a0 StackAdj> Δ-4 {[-4-]}
<MI 225a0 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x225a4 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x225a8 0x21832> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 225ac-225ae StackAdj> Δ+8 {[-4-]}
<MI 225ae MOVE.L (A7),(A6-0x8)> {[-4-]}
<MI 225b0 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x225b4 0x2.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##2]}
<Call 0x225b8 0x21832> {[-4-]|[4, '(A6+0x8)']|[##2]}
<POP 225bc-225be StackAdj> Δ+8 {[-4-]}
<MI 225be MOVE.L (A7),(A6-0x4)> {[-4-]}
<POP 225c0-225c2 StackAdj> Δ+2 {[-2-]}
<MI 225c2 MOVE.L (A6-0x8),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x8)']}
<MI 225c4 MOVE.L (A6-0x4),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x8)']|[4, '(A6-0x4)']}
<Call 0x225c6 0x102c8> {[-2-]|[4, '(A6-0x8)']|[4, '(A6-0x4)']}
StringEqual(a, b : String) : Byte
<POP 225cc-225ce StackAdj> Δ+8 {[-2-]}
<MI 225ce TST.B (A7)+> Δ+2 {}
<MI 225d0 BNE 0x225d8> {}
<POP 225d2-225d8 Naked> Σ0 →0x225dc
<Call 0x225d2 0x212f2> {}
<MI 225d6 BRA 0x225dc> {}
<POP 225d8-225dc Naked> Σ0 ↓ ←0x2259e
<Call 0x225d8 0x21338> {}
<POP 225dc-225f0 Naked> Σ0 ↓ ←0x225d2
<Pointer.fp 0x225dc <LVAR -0x004 @ 4(rw)>> Δ-4 {[@@-4]}
<Call 0x225de 0x102bc> {[@@-4]}
FreeString(VAR a : String)
<POP 225e4-225e6 StackAdj> Δ+4 {}
<Pointer.fp 0x225e6 <LVAR -0x008 @ 4(rw)>> Δ-4 {[@@-8]}
<Call 0x225e8 0x102bc> {[@@-8]}
FreeString(VAR a : String)
<POP 225ee-225f0 StackAdj> Δ+4 {}
<POP 225f0-225f8 Epilogue> Σ0
@ 225f8
<LVAR 0x008 4(r)>
<POP 225f8-22624 Body>
<POP 225f8-2260a Prologue> Σ0 ↓
<POP 2260a-22620 Naked> Σ0 ↓
<POP 2260a-2260c StackAdj> Δ-4 {[-4-]}
<MI 2260c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x22610 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22614 0x21832> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 22618-2261a StackAdj> Δ+8 {[-4-]}
<Call 0x2261a 0x2162a> {[-4-]}
<POP 2261e-22620 StackAdj> Δ+4 {}
<POP 22620-22624 Epilogue> Σ0
@ 22624
<LVAR 0x008 4(r)>
<LVAR -0x014 @ 4(rw)>
<POP 22624-22724 Body>
<POP 22624-2263a Prologue> Σ0 ↓
<POP 2263a-22644 RegCacheLoad> Σ0 ↓
<POP 22644-226a2 Naked> Σ0 ↓ →0x226d2
<POP 22644-22646 StackAdj> Δ-4 {[-4-]}
<MI 22646 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x22648 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x2264c 0x21832> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 22650-22652 StackAdj> Δ+8 {[-4-]}
<MI 22652 MOVE.L (A7),(A6-0x14)> {[-4-]}
<MI 22654 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x22656 0x2.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##2]}
<Call 0x2265a 0x21832> {[-4-]|[4, '(A6+0x8)']|[##2]}
<POP 2265e-22660 StackAdj> Δ+8 {[-4-]}
<MI 22660 MOVEA.L (A7)+,A4> Δ+4 {}
<POP 22662-22666 StackAdj> Δ-12 {[-12-]}
<MI 22666 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']}
<Const 0x22668 0x3.4> Δ-4 {[-12-]|[4, '(A6+0x8)']|[##3]}
<Call 0x2266c 0x21864> {[-12-]|[4, '(A6+0x8)']|[##3]}
<POP 22670-22672 StackAdj> Δ+8 {[-12-]}
<Call 0x22672 0x10350> {[-12-]}
Quad2Long(a : Quad) : Long
<POP 22678-2267a StackAdj> Δ+8 {[-4-]}
<MI 2267a MOVE.L (A7),D6> {[-4-]}
<POP 2267c-2267e StackAdj> Δ-8 {[-12-]}
<MI 2267e MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']}
<Const 0x22680 0x4.4> Δ-4 {[-12-]|[4, '(A6+0x8)']|[##4]}
<Call 0x22684 0x21864> {[-12-]|[4, '(A6+0x8)']|[##4]}
<POP 22688-2268a StackAdj> Δ+8 {[-12-]}
<Call 0x2268a 0x10350> {[-12-]}
Quad2Long(a : Quad) : Long
<POP 22690-22692 StackAdj> Δ+8 {[-4-]}
<MI 22692 MOVE.L (A7)+,D5> Δ+4 {}
<MI 22694 MOVE.L D6,D0> {}
<MI 22696 ADD.L D5,D0> {}
<MI 22698 SUBQ.L #0x1,D0> {}
<MI 2269a MOVE.W (A4),D1> {}
<MI 2269c EXTW.L D1> {}
<MI 2269e CMP.L D1,D0> {}
<MI 226a0 BLE 0x226d2> {}
<POP 226a2-226d2 Naked> Σ0 ↓
<Blob 0x226a2 [32] @> Δ-32 {[«32""»]}
<POP 226b4-226b6 StackAdj> Δ-4 {[«32""»]|[-4-]}
<Lit 0x226b6 31> {[«32""»]|[$$Offset/Length error in [INSERT]]}
<Call 0x226ca 0x20b0a> {[«32""»]|[$$Offset/Length error in [INSERT]]}
<POP 226ce-226d2 StackAdj> Δ+36 {}
<POP 226d2-226de Naked> Σ0 Δ-8 ↓ ←0x22644
<MI 226d2 MOVEA.L (A6-0x14),A0> {}
<MI 226d4 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 226d6 MOVE.W (A0),D0> {[4, 'A0']}
<MI 226d8 EXTW.L D0> {[4, 'A0']}
<MI 226da MOVE.L D0,-(A7)> Δ-4 {[4, 'A0']|[4, 'D0']}
<MI 226dc MOVEQ.L #0x01,D7> {[4, 'A0']|[4, 'D0']}
<POP 226de-226e2 Naked> Σ-8 ↓ →0x22708 ←0x226e2
<MI 226de CMP.L (A7),D7> {[-8-]}
<MI 226e0 BGT 0x22708> {[-8-]}
<POP 226e2-22708 Naked> Σ-8 ↓ →0x226de
<MI 226e2 MOVE.L D6,D0> {[-8-]}
<MI 226e4 ADD.L D7,D0> {[-8-]}
<MI 226e6 SUBQ.L #0x1,D0> {[-8-]}
<MI 226e8 SUBQ.L #0x1,D0> {[-8-]}
<POP 0x226ea LimitCheck 0x0 ≤ D0 ≤ 0x7d> {[-8-]}
<MI 226f0 MOVE.L D7,D1> {[-8-]}
<MI 226f2 SUBQ.L #0x1,D1> {[-8-]}
<POP 0x226f4 LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-8-]}
<MI 226fa MOVEA.L (A7+0x4),A0> {[-8-]}
<MI 226fe MOVE.B (A0+D1.L+#0x2),(A4+D0.L+#0x2)> {[-8-]}
<MI 22704 ADDQ.L #0x1,D7> {[-8-]}
<MI 22706 BVC 0x226de> {[-8-]}
<POP 22708-2271c Naked> Σ-8 Δ+8 ↓ ←0x226de
<POP 22708-2270a StackAdj> Δ+4 {[-4-]}
<MI 2270a MOVE.L A4,(A7)> {[4, 'A4']}
<Call 0x2270c 0x218d4> {[4, 'A4']}
<POP 22710-22712 StackAdj> Δ+4 {}
<Pointer.fp 0x22712 <LVAR -0x014 @ 4(rw)>> Δ-4 {[@@-20]}
<Call 0x22714 0x102bc> {[@@-20]}
FreeString(VAR a : String)
<POP 2271a-2271c StackAdj> Δ+4 {}
<POP 2271c-22724 Epilogue> Σ0
@ 22724
<LVAR 0x008 4(r)>
<LVAR -0x010 @ 4(r)>
<LVAR -0x014 @ 4(rw)>
<POP 22724-2280a Body>
<POP 22724-2273a Prologue> Σ0 ↓
<POP 2273a-22748 RegCacheLoad> Σ0 ↓
<POP 22748-227a0 Naked> Σ0 ↓ →0x227a6
<POP 22748-2274a StackAdj> Δ-4 {[-4-]}
<MI 2274a MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x2274c 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22750 0x21832> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 22754-22756 StackAdj> Δ+8 {[-4-]}
<MI 22756 MOVE.L (A7)+,(A6-0x14)> Δ+4 {}
<Pointer.fp 0x22758 <LVAR -0x010 @ 4(r)>> Δ-4 {[@@-16]}
<Call 0x2275a 0x102b8> {[@@-16]}
NewString(VAR a : String)
<POP 22760-22762 StackAdj> Δ-8 {[@@-16]|[-8-]}
<MI 22762 MOVE.L (A6+0x8),-(A7)> Δ-4 {[@@-16]|[-8-]|[4, '(A6+0x8)']}
<Const 0x22764 0x2.4> Δ-4 {[@@-16]|[-8-]|[4, '(A6+0x8)']|[##2]}
<Call 0x22768 0x21864> {[@@-16]|[-8-]|[4, '(A6+0x8)']|[##2]}
<POP 2276c-2276e StackAdj> Δ+8 {[@@-16]|[-8-]}
<Call 0x2276e 0x10350> {[@@-16]|[-8-]}
Quad2Long(a : Quad) : Long
<POP 22774-22776 StackAdj> Δ+8 {[@@-16]}
<MI 22776 MOVE.L (A7),D5> {[@@-16]}
<POP 22778-2277a StackAdj> Δ-8 {[@@-16]|[-8-]}
<MI 2277a MOVE.L (A6+0x8),-(A7)> Δ-4 {[@@-16]|[-8-]|[4, '(A6+0x8)']}
<Const 0x2277c 0x3.4> Δ-4 {[@@-16]|[-8-]|[4, '(A6+0x8)']|[##3]}
<Call 0x22780 0x21864> {[@@-16]|[-8-]|[4, '(A6+0x8)']|[##3]}
<POP 22784-22786 StackAdj> Δ+8 {[@@-16]|[-8-]}
<Call 0x22786 0x10350> {[@@-16]|[-8-]}
Quad2Long(a : Quad) : Long
<POP 2278c-2278e StackAdj> Δ+8 {[@@-16]}
<MI 2278e MOVE.L (A7)+,D6> Δ+4 {}
<MI 22790 MOVEA.L (A6-0x14),A0> {}
<MI 22792 MOVE.L D5,D0> {}
<MI 22794 ADD.L D6,D0> {}
<MI 22796 SUBQ.L #0x1,D0> {}
<MI 22798 MOVE.W (A0),D1> {}
<MI 2279a EXTW.L D1> {}
<MI 2279c CMP.L D1,D0> {}
<MI 2279e BLE 0x227a6> {}
<POP 227a0-227a6 Naked> Σ0 ↓
<MI 227a0 ADDQ.L #0x1,D1> {}
<MI 227a2 SUB.L D5,D1> {}
<MI 227a4 MOVE.L D1,D6> {}
<POP 227a6-227aa Naked> Σ0 Δ-4 ↓ ←0x22748
<MI 227a6 MOVE.L D6,-(A7)> Δ-4 {[4, 'D6']}
<MI 227a8 MOVEQ.L #0x01,D7> {[4, 'D6']}
<POP 227aa-227ae Naked> Σ-4 ↓ →0x227d4 ←0x227ae
<MI 227aa CMP.L (A7),D7> {[-4-]}
<MI 227ac BGT 0x227d4> {[-4-]}
<POP 227ae-227d4 Naked> Σ-4 ↓ →0x227aa
<MI 227ae MOVEA.L (A6-0x10),A0> {[-4-]}
<MI 227b0 MOVE.L D7,D0> {[-4-]}
<MI 227b2 SUBQ.L #0x1,D0> {[-4-]}
<POP 0x227b4 LimitCheck 0x0 ≤ D0 ≤ 0x7d> {[-4-]}
<MI 227ba MOVEA.L (A6-0x14),A1> {[-4-]}
<MI 227bc MOVE.L D7,D1> {[-4-]}
<MI 227be ADD.L D5,D1> {[-4-]}
<MI 227c0 SUBQ.L #0x1,D1> {[-4-]}
<MI 227c2 SUBQ.L #0x1,D1> {[-4-]}
<POP 0x227c4 LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-4-]}
<MI 227ca MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x2)> {[-4-]}
<MI 227d0 ADDQ.L #0x1,D7> {[-4-]}
<MI 227d2 BVC 0x227aa> {[-4-]}
<POP 227d4-22802 Naked> Σ-4 Δ+4 ↓ ←0x227aa
<POP 227d4-227d6 StackAdj> Δ+4 {}
<MI 227d6 MOVEA.L (A6-0x10),A0> {}
<POP 0x227d8 LimitCheck -0x8000 ≤ D6 ≤ 0x7fff> {}
<MI 227ee MOVE.W D6,(A0)> {}
<MI 227f0 MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0x10)']}
<Call 0x227f2 0x218d4> {[4, '(A6-0x10)']}
<POP 227f6-227f8 StackAdj> Δ+4 {}
<Pointer.fp 0x227f8 <LVAR -0x014 @ 4(rw)>> Δ-4 {[@@-20]}
<Call 0x227fa 0x102bc> {[@@-20]}
FreeString(VAR a : String)
<POP 22800-22802 StackAdj> Δ+4 {}
<POP 22802-2280a Epilogue> Σ0
@ 2280a
<LVAR 0x008 4(r)>
<POP 2280a-22836 Body>
<POP 2280a-2281c Prologue> Σ0 ↓
<POP 2281c-22832 Naked> Σ0 ↓
<POP 2281c-2281e StackAdj> Δ-8 {[-8-]}
<MI 2281e MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<Const 0x22822 0x1.4> Δ-4 {[-8-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22826 0x21864> {[-8-]|[4, '(A6+0x8)']|[##1]}
<POP 2282a-2282c StackAdj> Δ+8 {[-8-]}
<Call 0x2282c 0x2169e> {[-8-]}
<POP 22830-22832 StackAdj> Δ+8 {}
<POP 22832-22836 Epilogue> Σ0
@ 22836
<LVAR 0x008 4(r)>
<POP 22836-22882 Body>
<POP 22836-22848 Prologue> Σ0 ↓
<POP 22848-22874 Naked> Σ0 ↓ →0x2287a
<POP 22848-2284c StackAdj> Δ-10 {[-10-]}
<MI 2284c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']}
<Const 0x22850 0x1.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22854 0x21864> {[-10-]|[4, '(A6+0x8)']|[##1]}
<MI 22858 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x2285c 0x2.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x22860 0x21864> {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 22864-22866 StackAdj> Δ+8 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22866 0x1032c> {[-10-]|[4, '(A6+0x8)']|[##1]}
IsEqual(a, b : Quad) : Bool
<POP 2286c-22870 StackAdj> Δ+16 {[-2-]}
<MI 22870 TST.B (A7)+> Δ+2 {}
<MI 22872 BEQ 0x2287a> {}
<POP 22874-2287a Naked> Σ0 →0x2287e
<Call 0x22874 0x212f2> {}
<MI 22878 BRA 0x2287e> {}
<POP 2287a-2287e Naked> Σ0 ↓ ←0x22848
<Call 0x2287a 0x21338> {}
<POP 2287e-22882 Epilogue> Σ0 ←0x22874
@ 22882
<LVAR 0x008 4(r)>
<POP 22882-228ce Body>
<POP 22882-22894 Prologue> Σ0 ↓
<POP 22894-228c0 Naked> Σ0 ↓ →0x228c6
<POP 22894-22898 StackAdj> Δ-10 {[-10-]}
<MI 22898 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']}
<Const 0x2289c 0x1.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x228a0 0x21864> {[-10-]|[4, '(A6+0x8)']|[##1]}
<MI 228a4 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x228a8 0x2.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x228ac 0x21864> {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 228b0-228b2 StackAdj> Δ+8 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x228b2 0x1032c> {[-10-]|[4, '(A6+0x8)']|[##1]}
IsEqual(a, b : Quad) : Bool
<POP 228b8-228bc StackAdj> Δ+16 {[-2-]}
<MI 228bc TST.B (A7)+> Δ+2 {}
<MI 228be BNE 0x228c6> {}
<POP 228c0-228c6 Naked> Σ0 →0x228ca
<Call 0x228c0 0x212f2> {}
<MI 228c4 BRA 0x228ca> {}
<POP 228c6-228ca Naked> Σ0 ↓ ←0x22894
<Call 0x228c6 0x21338> {}
<POP 228ca-228ce Epilogue> Σ0 ←0x228c0
@ 228ce
<LVAR 0x008 4(r)>
<POP 228ce-2291a Body>
<POP 228ce-228e0 Prologue> Σ0 ↓
<POP 228e0-2290c Naked> Σ0 ↓ →0x22912
<POP 228e0-228e4 StackAdj> Δ-10 {[-10-]}
<MI 228e4 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']}
<Const 0x228e8 0x1.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x228ec 0x21864> {[-10-]|[4, '(A6+0x8)']|[##1]}
<MI 228f0 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x228f4 0x2.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x228f8 0x21864> {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 228fc-228fe StackAdj> Δ+8 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x228fe 0x10328> {[-10-]|[4, '(A6+0x8)']|[##1]}
IsSmaller(a, b : Quad) : Bool
<POP 22904-22908 StackAdj> Δ+16 {[-2-]}
<MI 22908 TST.B (A7)+> Δ+2 {}
<MI 2290a BEQ 0x22912> {}
<POP 2290c-22912 Naked> Σ0 →0x22916
<Call 0x2290c 0x212f2> {}
<MI 22910 BRA 0x22916> {}
<POP 22912-22916 Naked> Σ0 ↓ ←0x228e0
<Call 0x22912 0x21338> {}
<POP 22916-2291a Epilogue> Σ0 ←0x2290c
@ 2291a
<LVAR 0x008 4(r)>
<POP 2291a-22966 Body>
<POP 2291a-2292c Prologue> Σ0 ↓
<POP 2292c-22958 Naked> Σ0 ↓ →0x2295e
<POP 2292c-22930 StackAdj> Δ-10 {[-10-]}
<MI 22930 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']}
<Const 0x22934 0x1.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22938 0x21864> {[-10-]|[4, '(A6+0x8)']|[##1]}
<MI 2293c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x22940 0x2.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x22944 0x21864> {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 22948-2294a StackAdj> Δ+8 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x2294a 0x10324> {[-10-]|[4, '(A6+0x8)']|[##1]}
IsGreater(a, b : Quad) : Bool
<POP 22950-22954 StackAdj> Δ+16 {[-2-]}
<MI 22954 TST.B (A7)+> Δ+2 {}
<MI 22956 BEQ 0x2295e> {}
<POP 22958-2295e Naked> Σ0 →0x22962
<Call 0x22958 0x212f2> {}
<MI 2295c BRA 0x22962> {}
<POP 2295e-22962 Naked> Σ0 ↓ ←0x2292c
<Call 0x2295e 0x21338> {}
<POP 22962-22966 Epilogue> Σ0 ←0x22958
@ 22966
<LVAR 0x008 4(r)>
<POP 22966-229b2 Body>
<POP 22966-22978 Prologue> Σ0 ↓
<POP 22978-229a4 Naked> Σ0 ↓ →0x229aa
<POP 22978-2297c StackAdj> Δ-10 {[-10-]}
<MI 2297c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']}
<Const 0x22980 0x1.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22984 0x21864> {[-10-]|[4, '(A6+0x8)']|[##1]}
<MI 22988 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x2298c 0x2.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x22990 0x21864> {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 22994-22996 StackAdj> Δ+8 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22996 0x10324> {[-10-]|[4, '(A6+0x8)']|[##1]}
IsGreater(a, b : Quad) : Bool
<POP 2299c-229a0 StackAdj> Δ+16 {[-2-]}
<MI 229a0 TST.B (A7)+> Δ+2 {}
<MI 229a2 BNE 0x229aa> {}
<POP 229a4-229aa Naked> Σ0 →0x229ae
<Call 0x229a4 0x212f2> {}
<MI 229a8 BRA 0x229ae> {}
<POP 229aa-229ae Naked> Σ0 ↓ ←0x22978
<Call 0x229aa 0x21338> {}
<POP 229ae-229b2 Epilogue> Σ0 ←0x229a4
@ 229b2
<LVAR 0x008 4(r)>
<POP 229b2-229fe Body>
<POP 229b2-229c4 Prologue> Σ0 ↓
<POP 229c4-229f0 Naked> Σ0 ↓ →0x229f6
<POP 229c4-229c8 StackAdj> Δ-10 {[-10-]}
<MI 229c8 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']}
<Const 0x229cc 0x1.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x229d0 0x21864> {[-10-]|[4, '(A6+0x8)']|[##1]}
<MI 229d4 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x229d8 0x2.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x229dc 0x21864> {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 229e0-229e2 StackAdj> Δ+8 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x229e2 0x10328> {[-10-]|[4, '(A6+0x8)']|[##1]}
IsSmaller(a, b : Quad) : Bool
<POP 229e8-229ec StackAdj> Δ+16 {[-2-]}
<MI 229ec TST.B (A7)+> Δ+2 {}
<MI 229ee BNE 0x229f6> {}
<POP 229f0-229f6 Naked> Σ0 →0x229fa
<Call 0x229f0 0x212f2> {}
<MI 229f4 BRA 0x229fa> {}
<POP 229f6-229fa Naked> Σ0 ↓ ←0x229c4
<Call 0x229f6 0x21338> {}
<POP 229fa-229fe Epilogue> Σ0 ←0x229f0
@ 229fe
<LVAR 0x008 4(r)>
<POP 229fe-22a48 Body>
<POP 229fe-22a14 Prologue> Σ0 ↓
<POP 22a14-22a16 RegCacheLoad> Σ0 ↓
<POP 22a16-22a40 Naked> Σ0 ↓
<POP 22a16-22a18 StackAdj> Δ-16 {[-16-]}
<MI 22a18 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x22a1c 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22a20 0x21864> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 22a24 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x22a28 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x22a2c 0x21864> {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 22a30-22a32 StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22a32 0x10314> {[-16-]|[4, '(A6+0x8)']|[##1]}
Add(a, b : Quad) : Quad
<POP 22a38-22a3a StackAdj> Δ+16 {[-8-]}
<Call 0x22a3a 0x2195c> {[-8-]}
<POP 22a3e-22a40 StackAdj> Δ+8 {}
<POP 22a40-22a48 Epilogue> Σ0
@ 22a48
<LVAR 0x008 4(r)>
<POP 22a48-22a92 Body>
<POP 22a48-22a5e Prologue> Σ0 ↓
<POP 22a5e-22a60 RegCacheLoad> Σ0 ↓
<POP 22a60-22a8a Naked> Σ0 ↓
<POP 22a60-22a62 StackAdj> Δ-16 {[-16-]}
<MI 22a62 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x22a66 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22a6a 0x21864> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 22a6e MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x22a72 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x22a76 0x21864> {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 22a7a-22a7c StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22a7c 0x10318> {[-16-]|[4, '(A6+0x8)']|[##1]}
Subtract(a, b : Quad) : Quad
<POP 22a82-22a84 StackAdj> Δ+16 {[-8-]}
<Call 0x22a84 0x2195c> {[-8-]}
<POP 22a88-22a8a StackAdj> Δ+8 {}
<POP 22a8a-22a92 Epilogue> Σ0
@ 22a92
<LVAR 0x008 4(r)>
<POP 22a92-22adc Body>
<POP 22a92-22aa8 Prologue> Σ0 ↓
<POP 22aa8-22aaa RegCacheLoad> Σ0 ↓
<POP 22aaa-22ad4 Naked> Σ0 ↓
<POP 22aaa-22aac StackAdj> Δ-16 {[-16-]}
<MI 22aac MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x22ab0 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22ab4 0x21864> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 22ab8 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x22abc 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x22ac0 0x21864> {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 22ac4-22ac6 StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22ac6 0x1031c> {[-16-]|[4, '(A6+0x8)']|[##1]}
Multiply(a, b : Quad) : Quad
<POP 22acc-22ace StackAdj> Δ+16 {[-8-]}
<Call 0x22ace 0x2195c> {[-8-]}
<POP 22ad2-22ad4 StackAdj> Δ+8 {}
<POP 22ad4-22adc Epilogue> Σ0
@ 22adc
<LVAR 0x008 4(r)>
<POP 22adc-22b26 Body>
<POP 22adc-22af2 Prologue> Σ0 ↓
<POP 22af2-22af4 RegCacheLoad> Σ0 ↓
<POP 22af4-22b1e Naked> Σ0 ↓
<POP 22af4-22af6 StackAdj> Δ-16 {[-16-]}
<MI 22af6 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x22afa 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22afe 0x21864> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 22b02 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x22b06 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x22b0a 0x21864> {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 22b0e-22b10 StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22b10 0x10320> {[-16-]|[4, '(A6+0x8)']|[##1]}
Divide(a, b : Quad) : Quad
<POP 22b16-22b18 StackAdj> Δ+16 {[-8-]}
<Call 0x22b18 0x2195c> {[-8-]}
<POP 22b1c-22b1e StackAdj> Δ+8 {}
<POP 22b1e-22b26 Epilogue> Σ0
@ 22b26
<LVAR 0x008 4(r)>
<POP 22b26-22b70 Body>
<POP 22b26-22b3c Prologue> Σ0 ↓
<POP 22b3c-22b3e RegCacheLoad> Σ0 ↓
<POP 22b3e-22b68 Naked> Σ0 ↓
<POP 22b3e-22b40 StackAdj> Δ-16 {[-16-]}
<MI 22b40 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x22b44 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22b48 0x21864> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 22b4c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x22b50 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x22b54 0x21864> {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 22b58-22b5a StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22b5a 0x10358> {[-16-]|[4, '(A6+0x8)']|[##1]}
Modulus(a, b : Quad) : Quad
<POP 22b60-22b62 StackAdj> Δ+16 {[-8-]}
<Call 0x22b62 0x2195c> {[-8-]}
<POP 22b66-22b68 StackAdj> Δ+8 {}
<POP 22b68-22b70 Epilogue> Σ0
@ 22b70
<LVAR 0x008 4(r)>
<POP 22b70-22bba Body>
<POP 22b70-22b86 Prologue> Σ0 ↓
<POP 22b86-22b88 RegCacheLoad> Σ0 ↓
<POP 22b88-22bb2 Naked> Σ0 ↓
<POP 22b88-22b8a StackAdj> Δ-16 {[-16-]}
<MI 22b8a MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x22b8e 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22b92 0x21864> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 22b96 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x22b9a 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x22b9e 0x21864> {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 22ba2-22ba4 StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22ba4 0x10334> {[-16-]|[4, '(A6+0x8)']|[##1]}
BitOr(a, b : Quad) : Quad
<POP 22baa-22bac StackAdj> Δ+16 {[-8-]}
<Call 0x22bac 0x2195c> {[-8-]}
<POP 22bb0-22bb2 StackAdj> Δ+8 {}
<POP 22bb2-22bba Epilogue> Σ0
@ 22bba
<LVAR 0x008 4(r)>
<POP 22bba-22c04 Body>
<POP 22bba-22bd0 Prologue> Σ0 ↓
<POP 22bd0-22bd2 RegCacheLoad> Σ0 ↓
<POP 22bd2-22bfc Naked> Σ0 ↓
<POP 22bd2-22bd4 StackAdj> Δ-16 {[-16-]}
<MI 22bd4 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x22bd8 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22bdc 0x21864> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 22be0 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x22be4 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x22be8 0x21864> {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 22bec-22bee StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22bee 0x10330> {[-16-]|[4, '(A6+0x8)']|[##1]}
BitAnd(a, b : Quad) : Quad
<POP 22bf4-22bf6 StackAdj> Δ+16 {[-8-]}
<Call 0x22bf6 0x2195c> {[-8-]}
<POP 22bfa-22bfc StackAdj> Δ+8 {}
<POP 22bfc-22c04 Epilogue> Σ0
@ 22c04
<LVAR 0x008 4(r)>
<POP 22c04-22c4e Body>
<POP 22c04-22c1a Prologue> Σ0 ↓
<POP 22c1a-22c1c RegCacheLoad> Σ0 ↓
<POP 22c1c-22c46 Naked> Σ0 ↓
<POP 22c1c-22c1e StackAdj> Δ-16 {[-16-]}
<MI 22c1e MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x22c22 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22c26 0x21864> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 22c2a MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x22c2e 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x22c32 0x21864> {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 22c36-22c38 StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22c38 0x10340> {[-16-]|[4, '(A6+0x8)']|[##1]}
BitXor(a, b : Quad) : Quad
<POP 22c3e-22c40 StackAdj> Δ+16 {[-8-]}
<Call 0x22c40 0x2195c> {[-8-]}
<POP 22c44-22c46 StackAdj> Δ+8 {}
<POP 22c46-22c4e Epilogue> Σ0
@ 22c4e
<LVAR 0x008 4(r)>
<POP 22c4e-22c92 Body>
<POP 22c4e-22c60 Prologue> Σ0 ↓
<POP 22c60-22c8e Naked> Σ0 ↓
<POP 22c60-22c64 StackAdj> Δ-16 {[-16-]}
<MI 22c64 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x22c68 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22c6c 0x21864> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 22c70 MOVE.L (A6+0x8),(A7)> {[-16-]|[4, '(A6+0x8)']|[4, '(A6+0x8)']}
<Const 0x22c74 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[4, '(A6+0x8)']|[##2]}
<Call 0x22c78 0x218a0> {[-16-]|[4, '(A6+0x8)']|[4, '(A6+0x8)']|[##2]}
<POP 22c7c-22c7e StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']}
<Call 0x22c7e 0x10344> {[-16-]|[4, '(A6+0x8)']}
BitShift(a : Quad ; howmuch : integer) : Quad
<POP 22c84-22c88 StackAdj> Δ+12 {[-8-]}
<Call 0x22c88 0x2195c> {[-8-]}
<POP 22c8c-22c8e StackAdj> Δ+8 {}
<POP 22c8e-22c92 Epilogue> Σ0
@ 22c92
<LVAR 0x008 4(r)>
<POP 22c92-22cd8 Body>
<POP 22c92-22ca4 Prologue> Σ0 ↓
<POP 22ca4-22cd4 Naked> Σ0 ↓
<POP 22ca4-22ca8 StackAdj> Δ-16 {[-16-]}
<MI 22ca8 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x22cac 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22cb0 0x21864> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 22cb4 MOVE.L (A6+0x8),(A7)> {[-16-]|[4, '(A6+0x8)']|[4, '(A6+0x8)']}
<Const 0x22cb8 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[4, '(A6+0x8)']|[##2]}
<Call 0x22cbc 0x218a0> {[-16-]|[4, '(A6+0x8)']|[4, '(A6+0x8)']|[##2]}
<POP 22cc0-22cc2 StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']}
<MI 22cc2 NEG.L (A7)> {[-16-]|[4, '(A6+0x8)']}
<Call 0x22cc4 0x10344> {[-16-]|[4, '(A6+0x8)']}
BitShift(a : Quad ; howmuch : integer) : Quad
<POP 22cca-22cce StackAdj> Δ+12 {[-8-]}
<Call 0x22cce 0x2195c> {[-8-]}
<POP 22cd2-22cd4 StackAdj> Δ+8 {}
<POP 22cd4-22cd8 Epilogue> Σ0
@ 22cd8
<LVAR 0x008 4(r)>
<POP 22cd8-22d0e Body>
<POP 22cd8-22cea Prologue> Σ0 ↓
<POP 22cea-22d0a Naked> Σ0 ↓
<POP 22cea-22cee StackAdj> Δ-16 {[-16-]}
<MI 22cee MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x22cf2 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22cf6 0x21864> {[-16-]|[4, '(A6+0x8)']|[##1]}
<POP 22cfa-22cfc StackAdj> Δ+8 {[-16-]}
<Call 0x22cfc 0x10338> {[-16-]}
BitNot(a : Quad) : Quad
<POP 22d02-22d04 StackAdj> Δ+8 {[-8-]}
<Call 0x22d04 0x2195c> {[-8-]}
<POP 22d08-22d0a StackAdj> Δ+8 {}
<POP 22d0a-22d0e Epilogue> Σ0
@ 22d0e
<LVAR 0x008 4(r)>
<LVAR -0x00c 4(rw)>
<LVAR -0x010 4(rw)>
<LVAR -0x014 4(rw)>
<LVAR -0x018 4(rw)>
<POP 22d0e-22d9e Body>
<POP 22d0e-22d24 Prologue> Σ0 ↓
<POP 22d24-22d28 RegCacheLoad> Σ0 ↓
<POP 22d28-22d96 Naked> Σ0 ↓
<POP 22d28-22d2a StackAdj> Δ-8 {[-8-]}
<MI 22d2a MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<Const 0x22d2c 0x1.4> Δ-4 {[-8-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22d30 0x21864> {[-8-]|[4, '(A6+0x8)']|[##1]}
<POP 22d34-22d36 StackAdj> Δ+8 {[-8-]}
<MI 22d36 MOVE.L (A7)+,(A6-0x18)> Δ+4 {[-4-]}
<MI 22d3a MOVE.L (A7),(A6-0x14)> {[-4-]}
<POP 22d3e-22d40 StackAdj> Δ-4 {[-8-]}
<MI 22d40 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<Const 0x22d42 0x2.4> Δ-4 {[-8-]|[4, '(A6+0x8)']|[##2]}
<Call 0x22d46 0x21864> {[-8-]|[4, '(A6+0x8)']|[##2]}
<POP 22d4a-22d4c StackAdj> Δ+8 {[-8-]}
<MI 22d4c MOVE.L (A7)+,(A6-0x10)> Δ+4 {[-4-]}
<MI 22d50 MOVE.L (A7),(A6-0xc)> {[-4-]}
<MI 22d54 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x22d56 0x3.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##3]}
<Call 0x22d5a 0x218a0> {[-4-]|[4, '(A6+0x8)']|[##3]}
<POP 22d5e-22d60 StackAdj> Δ+8 {[-4-]}
<MI 22d60 MOVE.L (A7),D7> {[-4-]}
<MI 22d62 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x22d64 0x4.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##4]}
<Call 0x22d68 0x218a0> {[-4-]|[4, '(A6+0x8)']|[##4]}
<POP 22d6c-22d6e StackAdj> Δ+8 {[-4-]}
<MI 22d6e MOVE.L (A7),D6> {[-4-]}
<POP 22d70-22d72 StackAdj> Δ-4 {[-8-]}
<MI 22d72 MOVE.L (A6-0x14),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x14)']}
<MI 22d76 MOVE.L (A6-0x18),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']}
<MI 22d7a MOVE.L (A6-0xc),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']|[4, '(A6-0xc)']}
<MI 22d7e MOVE.L (A6-0x10),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<MI 22d82 MOVE.L D7,-(A7)> Δ-4 {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D7']}
<MI 22d84 MOVE.L D6,-(A7)> Δ-4 {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D7']|[4, 'D6']}
<Call 0x22d86 0x10348> {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D7']|[4, 'D6']}
?BitField_something_()
<POP 22d8c-22d90 StackAdj> Δ+24 {[-8-]}
<Call 0x22d90 0x2195c> {[-8-]}
<POP 22d94-22d96 StackAdj> Δ+8 {}
<POP 22d96-22d9e Epilogue> Σ0
@ 22d9e
<LVAR 0x008 4(r)>
<LVAR -0x00c 4(rw)>
<LVAR -0x010 4(rw)>
<POP 22d9e-22e10 Body>
<POP 22d9e-22db4 Prologue> Σ0 ↓
<POP 22db4-22db8 RegCacheLoad> Σ0 ↓
<POP 22db8-22e08 Naked> Σ0 ↓
<POP 22db8-22dba StackAdj> Δ-8 {[-8-]}
<MI 22dba MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<Const 0x22dbc 0x1.4> Δ-4 {[-8-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22dc0 0x21864> {[-8-]|[4, '(A6+0x8)']|[##1]}
<POP 22dc4-22dc6 StackAdj> Δ+8 {[-8-]}
<MI 22dc6 MOVE.L (A7)+,(A6-0x10)> Δ+4 {[-4-]}
<MI 22dca MOVE.L (A7),(A6-0xc)> {[-4-]}
<MI 22dce MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x22dd0 0x2.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##2]}
<Call 0x22dd4 0x218a0> {[-4-]|[4, '(A6+0x8)']|[##2]}
<POP 22dd8-22dda StackAdj> Δ+8 {[-4-]}
<MI 22dda MOVE.L (A7),D7> {[-4-]}
<MI 22ddc MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x22dde 0x3.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##3]}
<Call 0x22de2 0x218a0> {[-4-]|[4, '(A6+0x8)']|[##3]}
<POP 22de6-22de8 StackAdj> Δ+8 {[-4-]}
<MI 22de8 MOVE.L (A7),D6> {[-4-]}
<POP 22dea-22dec StackAdj> Δ-4 {[-8-]}
<MI 22dec MOVE.L (A6-0xc),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']}
<MI 22df0 MOVE.L (A6-0x10),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<MI 22df4 MOVE.L D7,-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D7']}
<MI 22df6 MOVE.L D6,-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D7']|[4, 'D6']}
<Call 0x22df8 0x1034c> {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D7']|[4, 'D6']}
FSCALL_1034c
<POP 22dfe-22e02 StackAdj> Δ+16 {[-8-]}
<Call 0x22e02 0x2195c> {[-8-]}
<POP 22e06-22e08 StackAdj> Δ+8 {}
<POP 22e08-22e10 Epilogue> Σ0
@ 22e10
<LVAR 0x008 4(r)>
<POP 22e10-22e82 Body>
<POP 22e10-22e26 Prologue> Σ0 ↓
<POP 22e26-22e34 Naked> Σ0 Δ-4 ↓
<POP 22e26-22e28 StackAdj> Δ-4 {[-4-]}
<MI 22e28 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x22e2c 0x20f16> {[-4-]|[4, '(A6+0x8)']}
<POP 22e30-22e32 StackAdj> Δ+4 {[-4-]}
<MI 22e32 MOVEQ.L #0x01,D7> {[-4-]}
<POP 22e34-22e38 Naked> Σ-4 ↓ →0x22e5e ←0x22e38
<MI 22e34 CMP.L (A7),D7> {[-4-]}
<MI 22e36 BGT 0x22e5e> {[-4-]}
<POP 22e38-22e5e Naked> Σ-4 ↓ →0x22e34
<POP 22e38-22e3a StackAdj> Δ-4 {[-8-]}
<MI 22e3a MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<MI 22e3e MOVE.L D7,-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']|[4, 'D7']}
<Call 0x22e40 0x21832> {[-8-]|[4, '(A6+0x8)']|[4, 'D7']}
<POP 22e44-22e46 StackAdj> Δ+8 {[-8-]}
<Call 0x22e46 0x103d8> {[-8-]}
WriteConsoleString(str : String)
<POP 22e4c-22e4e StackAdj> Δ+2 {[-6-]}
<POP 22e4e-22e4f StackAdj> Δ+2 {[-4-]}
<Const 0x22e4f 0x20.2> Δ-2 {[-4-]|[#32]}
<Call 0x22e52 0x103d0> {[-4-]|[#32]}
WriteConsoleChar(chr : char)
<POP 22e58-22e5a StackAdj> Δ+2 {[-4-]}
<MI 22e5a ADDQ.L #0x1,D7> {[-4-]}
<MI 22e5c BVC 0x22e34> {[-4-]}
<POP 22e5e-22e7a Naked> Σ-4 Δ+4 ↓ ←0x22e34
<Const 0x22e5e 0x1.4> Δ-4 {[-4-]|[##1]}
<Call 0x22e62 0x103e4> {[-4-]|[##1]}
AskConsoleString(prompt : String) : String
<POP 22e68-22e6a StackAdj> Δ+4 {[-4-]}
<MI 22e6a MOVEA.L (A7)+,A4> Δ+4 {}
<MI 22e6c MOVE.L A4,-(A7)> Δ-4 {[4, 'A4']}
<Call 0x22e6e 0x20d62> {[4, 'A4']}
<MI 22e72 MOVE.L A4,(A7)> {[4, 'A4']}
<Call 0x22e74 0x218d4> {[4, 'A4']}
<POP 22e78-22e7a StackAdj> Δ+4 {}
<POP 22e7a-22e82 Epilogue> Σ0
@ 22e82
<LVAR 0x008 4(r)>
<POP 22e82-22f04 Body>
<POP 22e82-22e98 Prologue> Σ0 ↓
<POP 22e98-22e9e RegCacheLoad> Σ0 ↓
<POP 22e9e-22efc Naked> Σ0 ↓
<POP 22e9e-22ea0 StackAdj> Δ-4 {[-4-]}
<MI 22ea0 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x22ea2 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22ea6 0x21832> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 22eaa-22eac StackAdj> Δ+8 {[-4-]}
<MI 22eac MOVEA.L (A7)+,A4> Δ+4 {}
<POP 22eae-22eb0 StackAdj> Δ-12 {[-12-]}
<MI 22eb0 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']}
<Const 0x22eb2 0x2.4> Δ-4 {[-12-]|[4, '(A6+0x8)']|[##2]}
<Call 0x22eb6 0x21864> {[-12-]|[4, '(A6+0x8)']|[##2]}
<POP 22eba-22ebc StackAdj> Δ+8 {[-12-]}
<Call 0x22ebc 0x10350> {[-12-]}
Quad2Long(a : Quad) : Long
<POP 22ec2-22ec4 StackAdj> Δ+8 {[-4-]}
<MI 22ec4 MOVE.L (A7),D7> {[-4-]}
<POP 22ec6-22ec8 StackAdj> Δ-8 {[-12-]}
<MI 22ec8 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']}
<Const 0x22eca 0x3.4> Δ-4 {[-12-]|[4, '(A6+0x8)']|[##3]}
<Call 0x22ece 0x21864> {[-12-]|[4, '(A6+0x8)']|[##3]}
<POP 22ed2-22ed4 StackAdj> Δ+8 {[-12-]}
<Call 0x22ed4 0x10350> {[-12-]}
Quad2Long(a : Quad) : Long
<POP 22eda-22edc StackAdj> Δ+8 {[-4-]}
<MI 22edc MOVE.L (A7),D6> {[-4-]}
<POP 22ede-22ee0 StackAdj> Δ-8 {[-12-]}
<MI 22ee0 MOVE.L A4,-(A7)> Δ-4 {[-12-]|[4, 'A4']}
<MI 22ee2 MOVE.L D7,-(A7)> Δ-4 {[-12-]|[4, 'A4']|[4, 'D7']}
<Call 0x22ee4 0x10360> {[-12-]|[4, 'A4']|[4, 'D7']}
?StringToInt64()
<POP 22eea-22eec StackAdj> Δ+4 {[-12-]|[4, 'A4']}
<MI 22eec MOVE.L D6,(A7)> {[-12-]|[4, 'D6']}
<Call 0x22eee 0x1035c> {[-12-]|[4, 'D6']}
Quad2String(a : Quad; radix : Long ) : String
<POP 22ef4-22ef6 StackAdj> Δ+12 {[-4-]}
<Call 0x22ef6 0x218d4> {[-4-]}
<POP 22efa-22efc StackAdj> Δ+4 {}
<POP 22efc-22f04 Epilogue> Σ0
@ 22f04
<LVAR 0x008 4(r)>
<LVAR -0x00a 2(r)>
<LVAR -0x00c 4(rw)>
<LVAR -0x010 4(rw)>
<POP 22f04-22f84 Body>
<POP 22f04-22f1a Prologue> Σ0 ↓
<POP 22f1a-22f22 RegCacheLoad> Σ0 ↓
<POP 22f22-22f3a Naked> Σ0 ↓
<POP 22f22-22f24 StackAdj> Δ-8 {[-8-]}
<MI 22f24 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<Const 0x22f28 0x1.4> Δ-4 {[-8-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22f2c 0x21864> {[-8-]|[4, '(A6+0x8)']|[##1]}
<POP 22f30-22f32 StackAdj> Δ+8 {[-8-]}
<MI 22f32 MOVE.L (A7)+,(A6-0x10)> Δ+4 {[-4-]}
<MI 22f34 MOVE.L (A7)+,(A6-0xc)> Δ+4 {}
<MI 22f36 MOVEQ.L #0x00,D7> {}
<MI 22f38 MOVEQ.L #0x00,D6> {}
<POP 22f3a-22f6a Naked> Σ0 ↓ →0x22f3a ←0x22f3a
<MI 22f3a MOVE.W (A6-0xa),D0> {}
<MI 22f3e ANDI.W #0x0001,D0> {}
<MI 22f42 CLR.L D1> {}
<MI 22f44 MOVE.W D0,D1> {}
<MI 22f46 ADD.L D1,D7> {}
<POP 22f48-22f4a StackAdj> Δ-8 {[-8-]}
<MI 22f4a MOVE.L (A6-0xc),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']}
<MI 22f4c MOVE.L (A6-0x10),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<Const 0x22f4e 0xffffffff.4> Δ-4 {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[##4294967295]}
<Call 0x22f52 0x10344> {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[##4294967295]}
BitShift(a : Quad ; howmuch : integer) : Quad
<POP 22f58-22f5c StackAdj> Δ+12 {[-8-]}
<MI 22f5c MOVE.L (A7)+,(A6-0x10)> Δ+4 {[-4-]}
<MI 22f5e MOVE.L (A7)+,(A6-0xc)> Δ+4 {}
<MI 22f60 ADDQ.L #0x1,D6> {}
<MI 22f62 CMPI.L #0x0000003f,D6> {}
<MI 22f68 BLE 0x22f3a> {}
<POP 22f6a-22f7c Naked> Σ0 ↓
<POP 22f6a-22f6c StackAdj> Δ-8 {[-8-]}
<MI 22f6c MOVE.L D7,-(A7)> Δ-4 {[-8-]|[4, 'D7']}
<Call 0x22f6e 0x10354> {[-8-]|[4, 'D7']}
Long2Quad(a : Long) : Quad
<POP 22f74-22f76 StackAdj> Δ+4 {[-8-]}
<Call 0x22f76 0x2195c> {[-8-]}
<POP 22f7a-22f7c StackAdj> Δ+8 {}
<POP 22f7c-22f84 Epilogue> Σ0
@ 22f84
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 1(r)>
<POP 22f84-23048 Body>
<POP 22f84-22f9a Prologue> Σ0 ↓
<POP 22f9a-22fa4 RegCacheLoad> Σ0 ↓
<POP 22fa4-22fa8 Naked> Σ0 ↓ →0x22fda
<MI 22fa4 TST.B 0x25646> {}
<MI 22fa6 BNE 0x22fda> {}
<POP 22fa8-22fda Naked> Σ0 ↓
<Blob 0x22fa8 [28] @> Δ-28 {[«28""»]}
<POP 22fba-22fbc StackAdj> Δ-4 {[«28""»]|[-4-]}
<Lit 0x22fbc 27> {[«28""»]|[$$REPEATing, type ^G to exit.]}
<Call 0x22fce 0x103e0> {[«28""»]|[$$REPEATing, type ^G to exit.]}
WriteConsoleStringCrLf(str : String)
<POP 22fd4-22fd8 StackAdj> Δ+32 {}
<MI 22fd8 MOVE.B #0x01,0x25646> {}
<POP 22fda-23004 Naked> Σ0 ↓ →0x2301a ←0x22fa4
<POP 22fda-22fdc StackAdj> Δ-6 {[-6-]}
<Call 0x22fdc 0x103f8> {[-6-]}
GetConsoleConfig() : Long
<MI 22fe2 MOVE.L (A7)+,D0> Δ+4 {[-2-]}
<POP 0x22fe4 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {[-2-]}
<MI 22fee MOVE.W D0,(A7)> {[2, 'D0']}
<Pointer.fp 0x22ff0 <LVAR -0x004 @ 1(r)>> Δ-4 {[2, 'D0']|[@@-4]}
<Call 0x22ff4 0x10212> {[2, 'D0']|[@@-4]}
KC09_PortStatus(Port : Word; VAR b: Byte)
<POP 22ffa-22ffc StackAdj> Δ+6 {}
<MI 22ffc MOVE.B (A6-0x4),D0> {}
<MI 23000 CMP.B #0x01,D0> {}
<MI 23002 BEQ 0x2301a> {}
<POP 23004-2301a Naked> Σ0
<MI 23004 MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<Call 0x23008 0x20ac8> {[4, '(A6+0x8)']}
<POP 2300c-2300e StackAdj> Δ+4 {}
<POP 2300e-2301a Bailout> {}
<MI 2300e MOVEA.L (A5+0x8),A7>
<MI 23012 MOVEA.W #0x00,A6>
<MI 23014 JMP 0x243ac>
<POP 2301a-2302a Naked> Σ0 ↓ →0x23040 ←0x22fda
<POP 2301a-2301c StackAdj> Δ-2 {[-2-]}
<Call 0x2301c 0x103d4> {[-2-]}
ReadChar() : Byte
<MI 23022 MOVE.B (A7)+,D0> Δ+2 {}
<MI 23024 CMPI.B #0x07,D0> {}
<MI 23028 BEQ 0x23040> {}
<POP 2302a-23040 Naked> Σ0
<MI 2302a MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<Call 0x2302e 0x20ac8> {[4, '(A6+0x8)']}
<POP 23032-23034 StackAdj> Δ+4 {}
<POP 23034-23040 Bailout> {}
<MI 23034 MOVEA.L (A5+0x8),A7>
<MI 23038 MOVEA.W #0x00,A6>
<MI 2303a JMP 0x243ac>
<POP 23040-23048 Epilogue> Σ0 ←0x2301a
@ 23048
<POP 23048-23068 Body>
<POP 23048-2305a Prologue> Σ0 ↓
<POP 2305a-23064 Naked> Σ0 ↓
<Const 0x2305a 0xc8.4> Δ-4 {[##200]}
<Call 0x2305e 0x21990> {[##200]}
<POP 23062-23064 StackAdj> Δ+4 {}
<POP 23064-23068 Epilogue> Σ0
@ 23068
<LVAR 0x008 4(r)>
<LVAR -0x00c @ 4(r)>
<POP 23068-23114 Body>
<POP 23068-2307e Prologue> Σ0 ↓
<POP 2307e-23082 RegCacheLoad> Σ0 ↓
<POP 23082-23096 Naked> Σ0 Δ-4 ↓
<Pointer.fp 0x23082 <LVAR -0x00c @ 4(r)>> Δ-4 {[@@-12]}
<Call 0x23084 0x102b8> {[@@-12]}
NewString(VAR a : String)
<MI 2308a MOVE.L (A6+0x8),-(A7)> Δ-4 {[@@-12]|[4, '(A6+0x8)']}
<Call 0x2308e 0x20f16> {[@@-12]|[4, '(A6+0x8)']}
<POP 23092-23094 StackAdj> Δ+4 {[@@-12]}
<MI 23094 MOVEQ.L #0x01,D7> {[@@-12]}
<POP 23096-2309a Naked> Σ-4 ↓ →0x23104 ←0x23100
<MI 23096 CMP.L (A7),D7> {[-4-]}
<MI 23098 BGT 0x23104> {[-4-]}
<POP 2309a-230ac Naked> Σ-4 ↓ →0x230cc
<POP 2309a-2309c StackAdj> Δ-4 {[-8-]}
<MI 2309c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<MI 230a0 MOVE.L D7,-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']|[4, 'D7']}
<Call 0x230a2 0x218a0> {[-8-]|[4, '(A6+0x8)']|[4, 'D7']}
<POP 230a6-230a8 StackAdj> Δ+8 {[-8-]}
<MI 230a8 MOVE.L (A7)+,D6> Δ+4 {[-4-]}
<MI 230aa BLT 0x230cc> {[-4-]}
<POP 230ac-230b4 Naked> Σ-4 ↓ →0x230cc
<MI 230ac CMPI.L #0x000000ff,D6> {[-4-]}
<MI 230b2 BGT 0x230cc> {[-4-]}
<POP 230b4-230cc Naked> Σ-4 →0x23100
<MI 230b4 MOVE.L (A6-0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6-0xc)']}
<POP 0x230b6 LimitCheck 0x0 ≤ D6 ≤ 0xff> {[-4-]|[4, '(A6-0xc)']}
<MI 230c0 MOVE.B D6,-(A7)> Δ-2 {[-4-]|[4, '(A6-0xc)']|[2, 'D6']}
<Call 0x230c2 0x102c0> {[-4-]|[4, '(A6-0xc)']|[2, 'D6']}
AppendChar(MOD b : String; a : char)
<POP 230c8-230ca StackAdj> Δ+6 {[-4-]}
<MI 230ca BRA 0x23100> {[-4-]}
<POP 230cc-23100 Naked> Σ-4 ↓ ←0x2309a ←0x230ac
<Pointer.fp 0x230cc <LVAR -0x00c @ 4(r)>> Δ-4 {[-4-]|[@@-12]}
<Call 0x230ce 0x102bc> {[-4-]|[@@-12]}
FreeString(VAR a : String)
<POP 230d4-230d6 StackAdj> Δ+4 {[-4-]}
<Blob 0x230d6 [28] @> Δ-28 {[-4-]|[«28""»]}
<POP 230e2-230e4 StackAdj> Δ-4 {[-4-]|[«28""»]|[-4-]}
<Lit 0x230e4 28> {[-4-]|[«28""»]|[$$ASCII argument out of range.]}
<Call 0x230f8 0x20b0a> {[-4-]|[«28""»]|[$$ASCII argument out of range.]}
<POP 230fc-23100 StackAdj> Δ+32 {[-4-]}
<POP 23100-23104 Naked> Σ-4 ↓ →0x23096 ←0x230b4
<MI 23100 ADDQ.L #0x1,D7> {[-4-]}
<MI 23102 BVC 0x23096> {[-4-]}
<POP 23104-2310c Naked> Σ-4 Δ+4 ↓ ←0x23096
<MI 23104 MOVE.L (A6-0xc),(A7)> {[4, '(A6-0xc)']}
<Call 0x23106 0x218d4> {[4, '(A6-0xc)']}
<POP 2310a-2310c StackAdj> Δ+4 {}
<POP 2310c-23114 Epilogue> Σ0
@ 23114
<LVAR 0x00c 1(rw)>
<LVAR 0x008 4(r)>
<POP 23114-231cc Body> Δ-8
<POP 23114-2312a Prologue> Σ0 ↓
<POP 2312a-2313a Naked> Σ0 Δ-4 ↓
<MI 2312a CLR.B (A6+0xc)> {}
<MI 2312e MOVEA.L (A6+0x8),A0> {}
<MI 23132 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 23134 MOVEQ.L #0x00,D0> {[4, 'A0']}
<MI 23136 ADDQ.W #0x1,D0> {[4, 'A0']}
<MI 23138 MOVE.B D0,D6> {[4, 'A0']}
<POP 2313a-23142 Naked> Σ-4 ↓ →0x231c2 ←0x231bc
<MI 2313a CMPI.B #0x2b,D6> {[-4-]}
<MI 2313e BGT 0x231c2> {[-4-]}
<POP 23142-23168 Naked> Σ-4 ↓ →0x231bc
<MI 23142 LEA.L 0x209f6,A0> {[-4-]}
<MI 23146 MOVE.B D6,D0> {[-4-]}
<MI 23148 EXTB.W D0> {[-4-]}
<MI 2314a EXTW.L D0> {[-4-]}
<MI 2314c ROR.L #0x1,D0> {[-4-]}
<MI 2314e ADDA.W D0,A0> {[-4-]}
<MI 23150 SWAP.W D0> {[-4-]}
<MI 23152 ROL.W #0x3,D0> {[-4-]}
<MI 23154 CLR.L D1> {[-4-]}
<MI 23156 MOVE.B (A0),D1> {[-4-]}
<MI 23158 LSL.B D0,D1> {[-4-]}
<MI 2315a LSR.B #0x4,D1> {[-4-]}
<MI 2315c MOVE.L D1,D5> {[-4-]}
<MI 2315e MOVEA.L (A7),A0> {[-4-]}
<MI 23160 MOVE.W (A0),D0> {[-4-]}
<MI 23162 EXTW.L D0> {[-4-]}
<MI 23164 CMP.L D0,D5> {[-4-]}
<MI 23166 BNE 0x231bc> {[-4-]}
<POP 23168-2316c Naked> Σ-4 Δ-4 ↓
<MI 23168 MOVE.L D5,-(A7)> Δ-4 {[-4-]|[4, 'D5']}
<MI 2316a MOVEQ.L #0x01,D7> {[-4-]|[4, 'D5']}
<POP 2316c-23170 Naked> Σ-8 ↓ →0x231b2 ←0x231ae
<MI 2316c CMP.L (A7),D7> {[-8-]}
<MI 2316e BGT 0x231b2> {[-8-]}
<POP 23170-231aa Naked> Σ-8 ↓ →0x231ae
<MI 23170 MOVE.B D6,D0> {[-8-]}
<MI 23172 EXTB.W D0> {[-8-]}
<MI 23174 MULS.W #0xa,D0> {[-8-]}
<MI 23178 MOVE.L D7,D1> {[-8-]}
<MI 2317a SUBQ.L #0x1,D1> {[-8-]}
<POP 0x2317c LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-8-]}
<MI 23186 MOVEA.L (A7+0x4),A0> {[-8-]}
<MI 2318a LEA.L 0x2083e,A1> {[-8-]}
<MI 2318e MOVE.L D7,D2> {[-8-]}
<MI 23190 SUBQ.L #0x1,D2> {[-8-]}
<POP 0x23192 LimitCheck 0x0 ≤ D2 ≤ 0x9> {[-8-]}
<MI 2319c LEA.L (A1+D0.W),A1> {[-8-]}
<MI 231a0 MOVE.B (A0+D1.L+#0x2),D0> {[-8-]}
<MI 231a4 CMP.B (A1+D2.L),D0> {[-8-]}
<MI 231a8 BEQ 0x231ae> {[-8-]}
<POP 231aa-231ae Naked> Σ-8 Δ+4 →0x231bc
<POP 231aa-231ac StackAdj> Δ+4 {[-4-]}
<MI 231ac BRA 0x231bc> {[-4-]}
<POP 231ae-231b2 Naked> Σ-8 ↓ →0x2316c ←0x23170
<MI 231ae ADDQ.L #0x1,D7> {[-8-]}
<MI 231b0 BVC 0x2316c> {[-8-]}
<POP 231b2-231bc Naked> Σ-8 Δ+8 →0x231c4 ←0x2316c
<POP 231b2-231b4 StackAdj> Δ+4 {[-4-]}
<MI 231b4 MOVE.B D6,(A6+0xc)> {[-4-]}
<POP 231b8-231ba StackAdj> Δ+4 {}
<MI 231ba BRA 0x231c4> {}
<POP 231bc-231c2 Naked> Σ-4 ↓ →0x2313a ←0x23142 ←0x231aa
<MI 231bc ADDQ.B #0x1,D6> {[-4-]}
<MI 231be BVC 0x2313a> {[-4-]}
<POP 231c2-231c4 Naked> Σ-4 Δ+4 ↓ ←0x2313a
<POP 231c2-231c4 StackAdj> Δ+4 {}
<POP 231c4-231cc Epilogue> Σ0 ←0x231b2
@ 231cc
<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 231cc-23308 Body>
<POP 231cc-231e2 Prologue> Σ0 ↓
<POP 231e2-231f0 RegCacheLoad> Σ0 ↓
<POP 231f0-2325c Naked> Σ0 ↓ →0x232a6
<POP 231f0-231f2 StackAdj> Δ-4 {[-4-]}
<MI 231f2 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']}
<Call 0x231f6 0x102cc> {[-4-]|[4, '(A6+0xc)']}
StringDup(a : String) : String
<POP 231fc-231fe StackAdj> Δ+4 {[-4-]}
<MI 231fe MOVE.L (A7)+,(A6-0x10)> Δ+4 {}
<MI 23200 MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0x10)']}
<Const 0x23202 0x2e.2> Δ-2 {[4, '(A6-0x10)']|[#46]}
<Call 0x23206 0x102c0> {[4, '(A6-0x10)']|[#46]}
AppendChar(MOD b : String; a : char)
<POP 2320c-2320e StackAdj> Δ+6 {}
<Blob 0x2320e [10] 0x25626> Δ-10 {[«10»]}
<POP 2321c-2321e StackAdj> Δ-4 {[«10»]|[-4-]}
<MI 2321e MOVE.L (A6-0x10),-(A7)> Δ-4 {[«10»]|[-4-]|[4, '(A6-0x10)']}
<POP 23220-23222 StackAdj> Δ-4 {[«10»]|[-4-]|[4, '(A6-0x10)']|[-4-]}
<Lit 0x23222> {[«10»]|[-4-]|[4, '(A6-0x10)']|[$$…]}
<Pointer.sp 0x23222 12> Δ-4
<Const 0x23226 0x1.2> Δ-2
<Const 0x23228 0xa.2> Δ-2
<Call 0x2322c 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 23232-23234 StackAdj> Δ+8
<Call 0x23234 0x102d0> {[«10»]|[-4-]|[4, '(A6-0x10)']|[$$…]}
StringCat2(a, b : String) : String
<POP 2323a-2323c StackAdj> Δ+8 {[«10»]|[-4-]}
<MI 2323c MOVE.L (A7)+,(A6-0x10)> Δ+4 {[«10»]}
<POP 2323e-23240 StackAdj> Δ+6 {[-4-]}
<MI 23240 MOVE.L (A6-0x10),(A7)> {[4, '(A6-0x10)']}
<MI 23242 CLR.B -(A7)> Δ-2 {[4, '(A6-0x10)']|[#0]}
<Const 0x23244 0x1.2> Δ-2 {[4, '(A6-0x10)']|[#0]|[#1]}
<Const 0x23246 0x0.4> Δ-4 {[4, '(A6-0x10)']|[#0]|[#1]|[##0]}
<Pointer.fp 0x2324a <LVAR -0x002 @ 1(r)>> Δ-4 {[4, '(A6-0x10)']|[#0]|[#1]|[##0]|[@@-2]}
<Pointer.fp 0x2324c <LVAR -0x00c @ 4(r)>> Δ-4 {[4, '(A6-0x10)']|[#0]|[#1]|[##0]|[@@-2]|[@@-12]}
<Call 0x2324e 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 23254-23258 StackAdj> Δ+20 {}
<MI 23258 TST.B (A6-0x2)> {}
<MI 2325a BEQ 0x232a6> {}
<POP 2325c-232a6 Naked> Σ0 ↓
<Pointer.fp 0x2325c <LVAR -0x010 @ 4(rw)>> Δ-4 {[@@-16]}
<Call 0x2325e 0x102bc> {[@@-16]}
FreeString(VAR a : String)
<MI 23264 MOVE.L (A6+0x8),(A7)> {[4, '(A6+0x8)']}
<Call 0x23268 0x20ac8> {[4, '(A6+0x8)']}
<POP 2326c-2326d StackAdj> Δ+4 ↓ {}
<Blob 0x2326d [26] @> Δ-26 {[«26""»]}
<POP 2327e-23280 StackAdj> Δ-8 {[«26""»]|[-8-]}
<Lit 0x23280 25> {[«26""»]|[-4-]|[$$Not a command or macro :_]}
<POP 23290-23292 StackAdj> Δ-4 {[«26""»]|[-4-]|[$$Not a command or macro :_]|[-4-]}
<MI 23292 MOVE.L (A6+0xc),(A7)> {[«26""»]|[-4-]|[$$Not a command or macro :_]|[4, '(A6+0xc)']}
<Call 0x23296 0x102d0> {[«26""»]|[-4-]|[$$Not a command or macro :_]|[4, '(A6+0xc)']}
StringCat2(a, b : String) : String
<POP 2329c-2329e StackAdj> Δ+8 {[«26""»]|[-4-]}
<Call 0x2329e 0x20b0a> {[«26""»]|[-4-]}
<POP 232a2-232a6 StackAdj> Δ+30 {}
<POP 232a6-232ae Naked> Σ0 ↓ ←0x231f0
<MI 232a6 MOVE.L 0x25614,(A6-0x6)> {}
<POP 232ae-232c6 Naked> Σ0 ↓ →0x232da ←0x232da
<MI 232ae MOVE.L (A6-0xc),-(A7)> Δ-4 {[4, '(A6-0xc)']}
<Pointer.fp 0x232b0 <LVAR -0x010 @ 4(rw)>> Δ-4 {[4, '(A6-0xc)']|[@@-16]}
<Pointer.fp 0x232b2 <LVAR -0x008 @ 1(r)>> Δ-4 {[4, '(A6-0xc)']|[@@-16]|[@@-8]}
<Call 0x232b6 0x1043c> {[4, '(A6-0xc)']|[@@-16]|[@@-8]}
FileReadLine(file : File; VAR a : String; VAR b : Byte)
<POP 232bc-232c0 StackAdj> Δ+12 {}
<MI 232c0 MOVEA.L (A6-0x10),A0> {}
<MI 232c2 TST.W (A0)> {}
<MI 232c4 BEQ 0x232da> {}
<POP 232c6-232da Naked> Σ0 ↓
<MI 232c6 MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0x10)']}
<Call 0x232c8 0x20d62> {[4, '(A6-0x10)']}
<POP 232cc-232ce StackAdj> Δ+4 {}
<Pointer.fp 0x232ce <LVAR -0x006 @ 4(w)>> Δ-4 {[@@-6]}
<MI 232d2 MOVE.L (A6-0x10),-(A7)> Δ-4 {[@@-6]|[4, '(A6-0x10)']}
<Call 0x232d4 0x210e8> {[@@-6]|[4, '(A6-0x10)']}
<POP 232d8-232da StackAdj> Δ+8 {}
<POP 232da-232e0 Naked> Σ0 ↓ →0x232ae ←0x232ae
<MI 232da TST.B (A6-0x8)> {}
<MI 232de BEQ 0x232ae> {}
<POP 232e0-23300 Naked> Σ0 ↓
<MI 232e0 CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x232e2 0x1.2> Δ-2 {[#0]|[#1]}
<Const 0x232e4 0x1.4> Δ-4 {[#0]|[#1]|[##1]}
<Pointer.fp 0x232e8 <LVAR -0x002 @ 1(r)>> Δ-4 {[#0]|[#1]|[##1]|[@@-2]}
<Pointer.fp 0x232ea <LVAR -0x00c @ 4(r)>> Δ-4 {[#0]|[#1]|[##1]|[@@-2]|[@@-12]}
<Call 0x232ec 0x1038c> {[#0]|[#1]|[##1]|[@@-2]|[@@-12]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 232f2-232f6 StackAdj> Δ+16 {}
<Pointer.fp 0x232f6 <LVAR -0x010 @ 4(rw)>> Δ-4 {[@@-16]}
<Call 0x232f8 0x102bc> {[@@-16]}
FreeString(VAR a : String)
<POP 232fe-23300 StackAdj> Δ+4 {}
<POP 23300-23308 Epilogue> Σ0
@ 23308
<LVAR 0x014 1(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 23308-23348 Body>
<POP 23308-2331e Prologue> Σ0 ↓
<POP 2331e-23340 Naked> Σ0 ↓
<MI 2331e MOVE.L (A6+0xc),D0> {}
<MI 23322 ADD.L (A6+0x8),D0> {}
<MI 23326 SUBQ.L #0x1,D0> {}
<MI 23328 SUBQ.L #0x1,D0> {}
<POP 0x2332a LimitCheck 0x0 ≤ D0 ≤ 0xfff> {}
<MI 23334 LEA.L 0x2460c,A0> {}
<MI 2333a MOVE.B (A0+D0.L+#0x8),(A6+0x14)> {}
<POP 23340-23348 Epilogue> Σ0
@ 23348
<LVAR 0x010 4(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 1(r)>
<LVAR -0x008 @ 4(r)>
<POP 23348-233c4 Body>
<POP 23348-2335e Prologue> Σ0 ↓
<POP 2335e-23386 Naked> Σ0 ↓ →0x233b6
<POP 2335e-23360 StackAdj> Δ-4 {[-4-]}
<MI 23360 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']}
<MI 23364 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x23368 0x217b6> {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 2336c-2336e StackAdj> Δ+8 {[-4-]}
<Pointer.fp 0x2336e <LVAR -0x004 @ 1(r)>> Δ-4 {[-4-]|[@@-4]}
<Pointer.fp 0x23372 <LVAR -0x008 @ 4(r)>> Δ-4 {[-4-]|[@@-4]|[@@-8]}
<Call 0x23376 0x102ec> {[-4-]|[@@-4]|[@@-8]}
String2Long(src : String; VAR status : Bool; VAR retval : Long)
<POP 2337c-23380 StackAdj> Δ+12 {}
<MI 23380 TST.B (A6-0x4)> {}
<MI 23384 BNE 0x233b6> {}
<POP 23386-233b6 Naked> Σ0 ↓
<Blob 0x23386 [24] @> Δ-24 {[«24""»]}
<POP 23398-2339a StackAdj> Δ-4 {[«24""»]|[-4-]}
<Lit 0x2339a 23> {[«24""»]|[$$Illegal marker argument]}
<Call 0x233ae 0x20b0a> {[«24""»]|[$$Illegal marker argument]}
<POP 233b2-233b6 StackAdj> Δ+28 {}
<POP 233b6-233bc Naked> Σ0 ↓ ←0x2335e
<MI 233b6 MOVE.L (A6-0x8),(A6+0x10)> {}
<POP 233bc-233c4 Epilogue> Σ0
@ 233c4
<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 233c4-234ec Body>
<POP 233c4-233da Prologue> Σ0 ↓
<POP 233da-233ea RegCacheLoad> Σ0 ↓
<POP 233ea-23404 Naked> Σ0 Δ-4 ↓
<MI 233ea MOVEQ.L #0x00,D7> {}
<MI 233ec MOVE.L (A6+0x14),(A6-0x20)> {}
<MI 233f0 MOVE.L 0x25614,D0> {}
<MI 233f6 SUB.L (A6+0x14),D0> {}
<MI 233fa MOVE.L D0,(A6-0x14)> {}
<MI 233fc MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<MI 23400 MOVE.L (A6+0x10),D5> {[4, '(A6+0xc)']}
<POP 23404-23408 Naked> Σ-4 ↓ →0x23434 ←0x23430
<MI 23404 CMP.L (A7),D5> {[-4-]}
<MI 23406 BGT 0x23434> {[-4-]}
<POP 23408-2342e Naked> Σ-4 ↓ →0x23430
<POP 23408-2340a StackAdj> Δ-8 {[-12-]}
<MI 2340a MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']}
<MI 2340e MOVE.L D5,-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']|[4, 'D5']}
<Call 0x23410 0x21754> {[-12-]|[4, '(A6+0x8)']|[4, 'D5']}
<POP 23414-23416 StackAdj> Δ+8 {[-12-]}
<MI 23416 MOVE.L (A7)+,(A6-0x10)> Δ+4 {[-8-]}
<MI 23418 MOVE.L (A7),(A6-0xc)> {[-8-]}
<MI 2341a MOVE.L (A6-0xc),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']}
<MI 2341c MOVE.L (A6-0x10),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<Call 0x2341e 0x2171c> {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<POP 23422-23424 StackAdj> Δ+8 {[-8-]}
<MI 23424 MOVE.L (A7)+,D6> Δ+4 {[-4-]}
<MI 23426 ADD.L D6,D7> {[-4-]}
<MI 23428 CMP.L (A6+0xc),D5> {[-4-]}
<MI 2342c BGE 0x23430> {[-4-]}
<POP 2342e-23430 Naked> Σ-4 ↓
<MI 2342e ADDQ.L #0x1,D7> {[-4-]}
<POP 23430-23434 Naked> Σ-4 ↓ →0x23404 ←0x23408
<MI 23430 ADDQ.L #0x1,D5> {[-4-]}
<MI 23432 BVC 0x23404> {[-4-]}
<POP 23434-23442 Naked> Σ-4 Δ+4 ↓ →0x2344e ←0x23404
<POP 23434-23436 StackAdj> Δ+4 {}
<MI 23436 MOVE.L (A6-0x20),D0> {}
<MI 23438 ADD.L (A6-0x14),D0> {}
<MI 2343a MOVE.L D0,(A6-0x18)> {}
<MI 2343e CMP.L (A6-0x14),D7> {}
<MI 23440 BEQ 0x2344e> {}
<POP 23442-2344e Naked> Σ0 ↓
<MI 23442 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 23444 MOVE.L (A6-0x14),-(A7)> Δ-4 {[4, 'D0']|[4, '(A6-0x14)']}
<MI 23446 SUB.L D7,(A7)> {[4, 'D0']|[-4-]}
<Call 0x23448 0x2105e> {[4, 'D0']|[-4-]}
<POP 2344c-2344e StackAdj> Δ+8 {}
<POP 2344e-23456 Naked> Σ0 Δ-4 ↓ ←0x23434
<MI 2344e MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<MI 23452 MOVE.L (A6+0x10),D5> {[4, '(A6+0xc)']}
<POP 23456-2345c Naked> Σ-4 ↓ →0x234e2 ←0x234dc
<MI 23456 CMP.L (A7),D5> {[-4-]}
<MI 23458 BGT 0x234e2> {[-4-]}
<POP 2345c-2347e Naked> Σ-4 Δ-4 ↓
<POP 2345c-2345e StackAdj> Δ-8 {[-12-]}
<MI 2345e MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']}
<MI 23462 MOVE.L D5,-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']|[4, 'D5']}
<Call 0x23464 0x21754> {[-12-]|[4, '(A6+0x8)']|[4, 'D5']}
<POP 23468-2346a StackAdj> Δ+8 {[-12-]}
<MI 2346a MOVE.L (A7)+,(A6-0x10)> Δ+4 {[-8-]}
<MI 2346c MOVE.L (A7),(A6-0xc)> {[-8-]}
<MI 2346e MOVE.L (A6-0xc),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']}
<MI 23470 MOVE.L (A6-0x10),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<Call 0x23472 0x2171c> {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<POP 23476-23478 StackAdj> Δ+8 {[-8-]}
<MI 23478 MOVE.L (A7)+,D6> Δ+4 {[-4-]}
<MI 2347a MOVE.L D6,-(A7)> Δ-4 {[-4-]|[4, 'D6']}
<MI 2347c MOVEQ.L #0x01,D0> {[-4-]|[4, 'D6']}
<POP 2347e-23482 Naked> Σ-8 ↓ →0x234b2 ←0x23482
<MI 2347e CMP.L (A7),D0> {[-8-]}
<MI 23480 BGT 0x234b2> {[-8-]}
<POP 23482-234b2 Naked> Σ-8 ↓ →0x2347e
<MI 23482 MOVE.L (A6-0x20),D1> {[-8-]}
<MI 23484 ADD.L D0,D1> {[-8-]}
<MI 23486 SUBQ.L #0x1,D1> {[-8-]}
<MI 23488 SUBQ.L #0x1,D1> {[-8-]}
<POP 0x2348a LimitCheck 0x0 ≤ D1 ≤ 0xfff> {[-8-]}
<MI 23494 LEA.L 0x2460c,A0> {[-8-]}
<POP 2349a-2349c StackAdj> Δ-2 {[-10-]}
<MI 2349c MOVE.L (A6-0xc),-(A7)> Δ-4 {[-10-]|[4, '(A6-0xc)']}
<MI 2349e MOVE.L (A6-0x10),-(A7)> Δ-4 {[-10-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<MI 234a0 MOVE.L D0,-(A7)> Δ-4 {[-10-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D0']}
<Call 0x234a2 0x23308> {[-10-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D0']}
<POP 234a6-234aa StackAdj> Δ+12 {[-10-]}
<MI 234aa MOVE.B (A7)+,(A0+D1.L+#0x8)> Δ+2 {[-8-]}
<MI 234ae ADDQ.L #0x1,D0> {[-8-]}
<MI 234b0 BVC 0x2347e> {[-8-]}
<POP 234b2-234ba Naked> Σ-8 Δ+4 ↓ →0x234dc ←0x2347e
<POP 234b2-234b4 StackAdj> Δ+4 {[-4-]}
<MI 234b4 CMP.L (A6+0xc),D5> {[-4-]}
<MI 234b8 BGE 0x234dc> {[-4-]}
<POP 234ba-234dc Naked> Σ-4 ↓
<MI 234ba MOVE.L (A6-0x20),D0> {[-4-]}
<MI 234bc ADD.L D6,D0> {[-4-]}
<MI 234be MOVE.L D0,D1> {[-4-]}
<MI 234c0 SUBQ.L #0x1,D1> {[-4-]}
<POP 0x234c2 LimitCheck 0x0 ≤ D1 ≤ 0xfff> {[-4-]}
<MI 234cc LEA.L 0x2460c,A0> {[-4-]}
<MI 234d2 MOVE.B #0x2c,(A0+D1.L+#0x8)> {[-4-]}
<MI 234d8 ADDQ.L #0x1,D0> {[-4-]}
<MI 234da MOVE.L D0,(A6-0x20)> {[-4-]}
<POP 234dc-234e2 Naked> Σ-4 ↓ →0x23456 ←0x234b2
<MI 234dc ADDQ.L #0x1,D5> {[-4-]}
<MI 234de BVC 0x23456> {[-4-]}
<POP 234e2-234e4 Naked> Σ-4 Δ+4 ↓ ←0x23456
<POP 234e2-234e4 StackAdj> Δ+4 {}
<POP 234e4-234ec Epilogue> Σ0
@ 234ec
<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 234ec-235e2 Body> Δ-12
<POP 234ec-23502 Prologue> Σ0 ↓
<POP 23502-23518 RegCacheLoad> Σ0 ↓
<POP 23518-23542 Naked> Σ0 Δ-4 ↓
<POP 23518-2351a StackAdj> Δ-4 {[-4-]}
<MI 2351a MOVE.L (A6+0x14),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']}
<MI 2351c MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<Call 0x2351e 0x2171c> {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<POP 23522-23524 StackAdj> Δ+8 {[-4-]}
<MI 23524 MOVE.L (A7),(A6-0xc)> {[-4-]}
<MI 23526 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']}
<MI 2352a MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x2352e 0x2171c> {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 23532-23534 StackAdj> Δ+8 {[-4-]}
<MI 23534 MOVE.L (A7)+,(A6-0x8)> Δ+4 {}
<MI 23536 ADDQ.L #0x1,(A6-0x8)> {}
<MI 23538 MOVE.L (A6-0xc),D0> {}
<MI 2353a SUB.L (A6-0x8),D0> {}
<MI 2353c ADDQ.L #0x1,D0> {}
<MI 2353e MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 23540 MOVEQ.L #0x01,D0> {[4, 'D0']}
<POP 23542-23548 Naked> Σ-4 ↓ →0x235d4 ←0x235cc
<MI 23542 CMP.L (A7),D0> {[-4-]}
<MI 23544 BGT 0x235d4> {[-4-]}
<POP 23548-23554 Naked> Σ-4 Δ-8 ↓
<MI 23548 MOVE.L D0,(A6-0x18)> {[-4-]}
<MI 2354c MOVE.L D0,-(A7)> Δ-4 {[-4-]|[4, 'D0']}
<MI 2354e MOVEQ.L #0x00,D6> {[-4-]|[4, 'D0']}
<MI 23550 MOVE.L (A6-0x8),-(A7)> Δ-4 {[-4-]|[4, 'D0']|[4, '(A6-0x8)']}
<MI 23552 MOVEQ.L #0x01,D5> {[-4-]|[4, 'D0']|[4, '(A6-0x8)']}
<POP 23554-23558 Naked> Σ-12 ↓ →0x2359a ←0x23594
<MI 23554 CMP.L (A7),D5> {[-12-]}
<MI 23556 BGT 0x2359a> {[-12-]}
<POP 23558-23560 Naked> Σ-12 ↓ →0x23564
<MI 23558 CMPI.L #0x00000001,D5> {[-12-]}
<MI 2355e BNE 0x23564> {[-12-]}
<POP 23560-23564 Naked> Σ-12 →0x23578
<MI 23560 MOVEQ.L #0x2f,D7> {[-12-]}
<MI 23562 BRA 0x23578> {[-12-]}
<POP 23564-23578 Naked> Σ-12 ↓ ←0x23558
<POP 23564-23566 StackAdj> Δ-2 {[-14-]}
<MI 23566 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-14-]|[4, '(A6+0xc)']}
<MI 2356a MOVE.L (A6+0x8),-(A7)> Δ-4 {[-14-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<MI 2356e MOVE.L D5,-(A7)> Δ-4 {[-14-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D5']}
<MI 23570 SUBQ.L #0x1,(A7)> {[-14-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[-4-]}
<Call 0x23572 0x23308> {[-14-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[-4-]}
<POP 23574-23576 StackAdj> Δ+12 {[-14-]}
<MI 23576 MOVE.B (A7)+,D7> Δ+2 {[-12-]}
<POP 23578-23590 Naked> Σ-12 ↓ →0x23594 ←0x23560
<POP 23578-2357a StackAdj> Δ-2 {[-14-]}
<MI 2357a MOVE.L (A6+0x14),-(A7)> Δ-4 {[-14-]|[4, '(A6+0x14)']}
<MI 2357c MOVE.L (A6+0x10),-(A7)> Δ-4 {[-14-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 2357e MOVE.L (A7+0xe),D0> {[-14-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 23582 ADD.L D5,D0> {[-14-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 23584 SUBQ.L #0x1,D0> {[-14-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 23586 MOVE.L D0,-(A7)> Δ-4 {[-14-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D0']}
<Call 0x23588 0x23308> {[-14-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D0']}
<POP 2358a-2358c StackAdj> Δ+12 {[-14-]}
<MI 2358c CMP.B (A7)+,D7> Δ+2 {[-12-]}
<MI 2358e BEQ 0x23594> {[-12-]}
<POP 23590-23594 Naked> Σ-12 Δ+4 →0x2359c
<POP 23590-23592 StackAdj> Δ+4 {[-8-]}
<MI 23592 BRA 0x2359c> {[-8-]}
<POP 23594-2359a Naked> Σ-12 ↓ →0x23554 ←0x23578
<MI 23594 MOVE.L D5,D6> {[-12-]}
<MI 23596 ADDQ.L #0x1,D5> {[-12-]}
<MI 23598 BVC 0x23554> {[-12-]}
<POP 2359a-2359c Naked> Σ-12 Δ+4 ↓ ←0x23554
<POP 2359a-2359c StackAdj> Δ+4 {[-8-]}
<POP 2359c-235a0 Naked> Σ-8 ↓ →0x235cc ←0x23590
<MI 2359c CMP.L (A6-0x8),D6> {[-8-]}
<MI 2359e BNE 0x235cc> {[-8-]}
<POP 235a0-235ac Naked> Σ-8 ↓ →0x235ae
<MI 235a0 MOVE.L (A7),D0> {[-8-]}
<MI 235a2 MOVE.L D0,(A6+0x18)> {[-8-]}
<MI 235a6 ADD.L (A6-0x8),D0> {[-8-]}
<MI 235a8 CMP.L (A6-0xc),D0> {[-8-]}
<MI 235aa BLT 0x235ae> {[-8-]}
<POP 235ac-235ae Naked> Σ-8 →0x235c8
<MI 235ac BRA 0x235c8> {[-8-]}
<POP 235ae-235c2 Naked> Σ-8 ↓ →0x235c8 ←0x235a0
<POP 235ae-235b0 StackAdj> Δ-2 {[-10-]}
<MI 235b0 MOVE.L (A6+0x14),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x14)']}
<MI 235b2 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 235b4 MOVE.L D0,-(A7)> Δ-4 {[-10-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D0']}
<Call 0x235b6 0x23308> {[-10-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D0']}
<POP 235b8-235ba StackAdj> Δ+12 {[-10-]}
<MI 235ba MOVE.B (A7)+,D7> Δ+2 {[-8-]}
<MI 235bc CMPI.B #0x2f,D7> {[-8-]}
<MI 235c0 BEQ 0x235c8> {[-8-]}
<POP 235c2-235c8 Naked> Σ-8 ↓ →0x235cc
<MI 235c2 CMPI.B #0x3d,D7> {[-8-]}
<MI 235c6 BNE 0x235cc> {[-8-]}
<POP 235c8-235cc Naked> Σ-8 Δ+8 →0x235da ←0x235ac ←0x235ae
<POP 235c8-235ca StackAdj> Δ+8 {}
<MI 235ca BRA 0x235da> {}
<POP 235cc-235d4 Naked> Σ-8 Δ+4 ↓ →0x23542 ←0x2359c ←0x235c2
<MI 235cc MOVE.L (A7)+,D0> Δ+4 {[-4-]}
<MI 235ce ADDQ.L #0x1,D0> {[-4-]}
<MI 235d0 BVC 0x23542> {[-4-]}
<POP 235d4-235da Naked> Σ-4 Δ+4 ↓ ←0x23542
<POP 235d4-235d6 StackAdj> Δ+4 {}
<MI 235d6 CLR.L (A6+0x18)> {}
<POP 235da-235e2 Epilogue> Σ0 ←0x235c8
@ 235e2
<LVAR 0x018 4(r)>
<LVAR 0x014 4(r)>
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 235e2-23676 Body> Δ-4
<POP 235e2-235f8 Prologue> Σ0 ↓
<POP 235f8-23602 RegCacheLoad> Σ0 ↓
<POP 23602-2361c Naked> Σ0 ↓ →0x2366e
<POP 23602-23604 StackAdj> Δ-4 {[-4-]}
<MI 23604 MOVE.L (A6+0x14),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']}
<MI 23606 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 23608 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<MI 2360c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x23610 0x234ec> {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 23614-23618 StackAdj> Δ+16 {[-4-]}
<MI 23618 MOVE.L (A7)+,D5> Δ+4 {}
<MI 2361a BLE 0x2366e> {}
<POP 2361c-2363c Naked> Σ0 Δ-4 ↓
<MI 2361c MOVE.L (A6+0x18),-(A7)> Δ-4 {[4, '(A6+0x18)']}
<Const 0x23620 0x2f.2> Δ-2 {[4, '(A6+0x18)']|[#47]}
<Call 0x23622 0x102c0> {[4, '(A6+0x18)']|[#47]}
AppendChar(MOD b : String; a : char)
<POP 23628-2362a StackAdj> Δ+6 {}
<MI 2362a MOVE.L D5,D0> {}
<MI 2362c ADDQ.L #0x1,D0> {}
<POP 2362e-23630 StackAdj> Δ-4 {[-4-]}
<MI 23630 MOVE.L (A6+0x14),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']}
<MI 23632 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<Call 0x23634 0x2171c> {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<POP 23638-2363a StackAdj> Δ+8 {[-4-]}
<MI 2363a MOVE.L D0,D6> {[-4-]}
<POP 2363c-23640 Naked> Σ-4 ↓ →0x2366c ←0x2365a
<MI 2363c CMP.L (A7),D6> {[-4-]}
<MI 2363e BGT 0x2366c> {[-4-]}
<POP 23640-23656 Naked> Σ-4 ↓ →0x2365a
<POP 23640-23642 StackAdj> Δ-2 {[-6-]}
<MI 23642 MOVE.L (A6+0x14),-(A7)> Δ-4 {[-6-]|[4, '(A6+0x14)']}
<MI 23644 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-6-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 23646 MOVE.L D6,-(A7)> Δ-4 {[-6-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D6']}
<Call 0x23648 0x23308> {[-6-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D6']}
<POP 2364c-23650 StackAdj> Δ+12 {[-6-]}
<MI 23650 MOVE.B (A7)+,D7> Δ+2 {[-4-]}
<MI 23652 CMP.B #0x2f,D7> {[-4-]}
<MI 23654 BNE 0x2365a> {[-4-]}
<POP 23656-2365a Naked> Σ-4 Δ+4 →0x2366e
<POP 23656-23658 StackAdj> Δ+4 {}
<MI 23658 BRA 0x2366e> {}
<POP 2365a-2366c Naked> Σ-4 ↓ →0x2363c ←0x23640
<MI 2365a MOVE.L (A6+0x18),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x18)']}
<MI 2365e MOVE.B D7,-(A7)> Δ-2 {[-4-]|[4, '(A6+0x18)']|[2, 'D7']}
<Call 0x23660 0x102c0> {[-4-]|[4, '(A6+0x18)']|[2, 'D7']}
AppendChar(MOD b : String; a : char)
<POP 23666-23668 StackAdj> Δ+6 {[-4-]}
<MI 23668 ADDQ.L #0x1,D6> {[-4-]}
<MI 2366a BVC 0x2363c> {[-4-]}
<POP 2366c-2366e Naked> Σ-4 Δ+4 ↓ ←0x2363c
<POP 2366c-2366e StackAdj> Δ+4 {}
<POP 2366e-23676 Epilogue> Σ0 ←0x23602 ←0x23656
@ 23676
<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 23676-2372c Body> Δ-8
<POP 23676-2368c Prologue> Σ0 ↓
<POP 2368c-2369a RegCacheLoad> Σ0 ↓
<POP 2369a-236b6 Naked> Σ0 ↓ →0x23724
<POP 2369a-2369c StackAdj> Δ-4 {[-4-]}
<MI 2369c MOVE.L (A6+0x14),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']}
<MI 2369e MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 236a0 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<MI 236a4 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x236a8 0x234ec> {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 236ac-236b0 StackAdj> Δ+16 {[-4-]}
<MI 236b0 MOVE.L (A7)+,(A6-0x14)> Δ+4 {}
<MI 236b4 BLE 0x23724> {}
<POP 236b6-236ca Naked> Σ0 Δ-4 ↓
<POP 236b6-236b8 StackAdj> Δ-4 {[-4-]}
<MI 236b8 MOVE.L (A6+0x14),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']}
<MI 236ba MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<Call 0x236bc 0x2171c> {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<POP 236c0-236c2 StackAdj> Δ+8 {[-4-]}
<MI 236c2 MOVE.L (A7)+,(A6-0x6)> Δ+4 {}
<MI 236c4 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<MI 236c6 MOVE.L (A6-0x14),D5> {[4, '(A6-0x6)']}
<POP 236ca-236ce Naked> Σ-4 ↓ →0x23722 ←0x2371e
<MI 236ca CMP.L (A7),D5> {[-4-]}
<MI 236cc BGT 0x23722> {[-4-]}
<POP 236ce-236e4 Naked> Σ-4 ↓ →0x2371e
<POP 236ce-236d0 StackAdj> Δ-2 {[-6-]}
<MI 236d0 MOVE.L (A6+0x14),-(A7)> Δ-4 {[-6-]|[4, '(A6+0x14)']}
<MI 236d2 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-6-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 236d4 MOVE.L D5,-(A7)> Δ-4 {[-6-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D5']}
<Call 0x236d6 0x23308> {[-6-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D5']}
<POP 236da-236dc StackAdj> Δ+12 {[-6-]}
<MI 236dc MOVE.B (A7)+,D0> Δ+2 {[-4-]}
<MI 236de CMPI.B #0x3d,D0> {[-4-]}
<MI 236e2 BNE 0x2371e> {[-4-]}
<POP 236e4-236ec Naked> Σ-4 Δ-4 ↓
<MI 236e4 MOVE.L D5,D0> {[-4-]}
<MI 236e6 ADDQ.L #0x1,D0> {[-4-]}
<MI 236e8 MOVE.L (A6-0x6),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x6)']}
<MI 236ea MOVE.L D0,D6> {[-4-]|[4, '(A6-0x6)']}
<POP 236ec-236f0 Naked> Σ-8 ↓ →0x2371c ←0x2370a
<MI 236ec CMP.L (A7),D6> {[-8-]}
<MI 236ee BGT 0x2371c> {[-8-]}
<POP 236f0-23706 Naked> Σ-8 ↓ →0x2370a
<POP 236f0-236f2 StackAdj> Δ-2 {[-10-]}
<MI 236f2 MOVE.L (A6+0x14),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x14)']}
<MI 236f4 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 236f6 MOVE.L D6,-(A7)> Δ-4 {[-10-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D6']}
<Call 0x236f8 0x23308> {[-10-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D6']}
<POP 236fc-236fe StackAdj> Δ+12 {[-10-]}
<MI 236fe MOVE.B (A7)+,D7> Δ+2 {[-8-]}
<MI 23700 CMPI.B #0x2f,D7> {[-8-]}
<MI 23704 BNE 0x2370a> {[-8-]}
<POP 23706-2370a Naked> Σ-8 Δ+8 →0x23724
<POP 23706-23708 StackAdj> Δ+8 {}
<MI 23708 BRA 0x23724> {}
<POP 2370a-2371c Naked> Σ-8 ↓ →0x236ec ←0x236f0
<MI 2370a MOVE.L (A6+0x18),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x18)']}
<MI 2370e MOVE.B D7,-(A7)> Δ-2 {[-8-]|[4, '(A6+0x18)']|[2, 'D7']}
<Call 0x23710 0x102c0> {[-8-]|[4, '(A6+0x18)']|[2, 'D7']}
AppendChar(MOD b : String; a : char)
<POP 23716-23718 StackAdj> Δ+6 {[-8-]}
<MI 23718 ADDQ.L #0x1,D6> {[-8-]}
<MI 2371a BVC 0x236ec> {[-8-]}
<POP 2371c-2371e Naked> Σ-8 Δ+4 ↓ ←0x236ec
<POP 2371c-2371e StackAdj> Δ+4 {[-4-]}
<POP 2371e-23722 Naked> Σ-4 ↓ →0x236ca ←0x236ce
<MI 2371e ADDQ.L #0x1,D5> {[-4-]}
<MI 23720 BVC 0x236ca> {[-4-]}
<POP 23722-23724 Naked> Σ-4 Δ+4 ↓ ←0x236ca
<POP 23722-23724 StackAdj> Δ+4 {}
<POP 23724-2372c Epilogue> Σ0 ←0x2369a ←0x23706
@ 2372c
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 2372c-237b2 Body> Δ-4
<POP 2372c-23742 Prologue> Σ0 ↓
<POP 23742-2374c RegCacheLoad> Σ0 ↓
<POP 2374c-2375e Naked> Σ0 Δ-4 ↓
<POP 2374c-2374e StackAdj> Δ-4 {[-4-]}
<MI 2374e MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']}
<MI 23750 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x23752 0x2171c> {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 23756-23758 StackAdj> Δ+8 {[-4-]}
<MI 23758 MOVE.L (A7)+,D5> Δ+4 {}
<MI 2375a MOVE.L D5,-(A7)> Δ-4 {[4, 'D5']}
<MI 2375c MOVEQ.L #0x01,D6> {[4, 'D5']}
<POP 2375e-23762 Naked> Σ-4 ↓ →0x237a8 ←0x237a4
<MI 2375e CMP.L (A7),D6> {[-4-]}
<MI 23760 BGT 0x237a8> {[-4-]}
<POP 23762-23778 Naked> Σ-4 ↓ →0x237a4
<POP 23762-23764 StackAdj> Δ-2 {[-6-]}
<MI 23764 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-6-]|[4, '(A6+0xc)']}
<MI 23766 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-6-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<MI 23768 MOVE.L D6,-(A7)> Δ-4 {[-6-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D6']}
<Call 0x2376a 0x23308> {[-6-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D6']}
<POP 2376e-23770 StackAdj> Δ+12 {[-6-]}
<MI 23770 MOVE.B (A7)+,D0> Δ+2 {[-4-]}
<MI 23772 CMPI.B #0x2f,D0> {[-4-]}
<MI 23776 BNE 0x237a4> {[-4-]}
<POP 23778-2377c Naked> Σ-4 Δ-4 ↓
<MI 23778 MOVE.L D5,-(A7)> Δ-4 {[-4-]|[4, 'D5']}
<MI 2377a MOVE.L D6,D7> {[-4-]|[4, 'D5']}
<POP 2377c-23780 Naked> Σ-8 ↓ →0x2379e ←0x23780
<MI 2377c CMP.L (A7),D7> {[-8-]}
<MI 2377e BGT 0x2379e> {[-8-]}
<POP 23780-2379e Naked> Σ-8 ↓ →0x2377c
<MI 23780 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x10)']}
<POP 23784-23786 StackAdj> Δ-2 {[-8-]|[4, '(A6+0x10)']|[-2-]}
<MI 23786 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x10)']|[-2-]|[4, '(A6+0xc)']}
<MI 23788 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x10)']|[-2-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<MI 2378a MOVE.L D7,-(A7)> Δ-4 {[-8-]|[4, '(A6+0x10)']|[-2-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D7']}
<Call 0x2378c 0x23308> {[-8-]|[4, '(A6+0x10)']|[-2-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D7']}
<POP 23790-23792 StackAdj> Δ+12 {[-8-]|[4, '(A6+0x10)']|[-2-]}
<Call 0x23792 0x102c0> {[-8-]|[4, '(A6+0x10)']|[-2-]}
AppendChar(MOD b : String; a : char)
<POP 23798-2379a StackAdj> Δ+6 {[-8-]}
<MI 2379a ADDQ.L #0x1,D7> {[-8-]}
<MI 2379c BVC 0x2377c> {[-8-]}
<POP 2379e-237a4 Naked> Σ-8 Δ+8 →0x237aa ←0x2377c
<POP 2379e-237a0 StackAdj> Δ+4 {[-4-]}
<POP 237a0-237a2 StackAdj> Δ+4 {}
<MI 237a2 BRA 0x237aa> {}
<POP 237a4-237a8 Naked> Σ-4 ↓ →0x2375e ←0x23762
<MI 237a4 ADDQ.L #0x1,D6> {[-4-]}
<MI 237a6 BVC 0x2375e> {[-4-]}
<POP 237a8-237aa Naked> Σ-4 Δ+4 ↓ ←0x2375e
<POP 237a8-237aa StackAdj> Δ+4 {}
<POP 237aa-237b2 Epilogue> Σ0 ←0x2379e
@ 237b2
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 237b2-23822 Body> Δ-4
<POP 237b2-237c8 Prologue> Σ0 ↓
<POP 237c8-237e0 Naked> Σ0 Δ-4 ↓
<MI 237c8 MOVEA.L (A6+0x10),A0> {}
<MI 237cc CLR.W (A0)> {}
<POP 237ce-237d0 StackAdj> Δ-4 {[-4-]}
<MI 237d0 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']}
<MI 237d4 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x237d8 0x2171c> {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 237dc-237de StackAdj> Δ+8 {[-4-]}
<MI 237de MOVEQ.L #0x01,D7> {[-4-]}
<POP 237e0-237e4 Naked> Σ-4 ↓ →0x23818 ←0x23814
<MI 237e0 CMP.L (A7),D7> {[-4-]}
<MI 237e2 BGT 0x23818> {[-4-]}
<POP 237e4-23800 Naked> Σ-4 ↓ →0x23810
<POP 237e4-237e6 StackAdj> Δ-2 {[-6-]}
<MI 237e6 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-6-]|[4, '(A6+0xc)']}
<MI 237ea MOVE.L (A6+0x8),-(A7)> Δ-4 {[-6-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<MI 237ee MOVE.L D7,-(A7)> Δ-4 {[-6-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D7']}
<Call 0x237f0 0x23308> {[-6-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D7']}
<POP 237f4-237f8 StackAdj> Δ+12 {[-6-]}
<MI 237f8 MOVE.B (A7)+,D6> Δ+2 {[-4-]}
<MI 237fa CMPI.B #0x2f,D6> {[-4-]}
<MI 237fe BEQ 0x23810> {[-4-]}
<POP 23800-23810 Naked> Σ-4 →0x23814
<MI 23800 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x10)']}
<MI 23804 MOVE.B D6,-(A7)> Δ-2 {[-4-]|[4, '(A6+0x10)']|[2, 'D6']}
<Call 0x23806 0x102c0> {[-4-]|[4, '(A6+0x10)']|[2, 'D6']}
AppendChar(MOD b : String; a : char)
<POP 2380c-2380e StackAdj> Δ+6 {[-4-]}
<MI 2380e BRA 0x23814> {[-4-]}
<POP 23810-23814 Naked> Σ-4 Δ+4 →0x2381a ←0x237e4
<POP 23810-23812 StackAdj> Δ+4 {}
<MI 23812 BRA 0x2381a> {}
<POP 23814-23818 Naked> Σ-4 ↓ →0x237e0 ←0x23800
<MI 23814 ADDQ.L #0x1,D7> {[-4-]}
<MI 23816 BVC 0x237e0> {[-4-]}
<POP 23818-2381a Naked> Σ-4 Δ+4 ↓ ←0x237e0
<POP 23818-2381a StackAdj> Δ+4 {}
<POP 2381a-23822 Epilogue> Σ0 ←0x23810
@ 23822
<POP 23822-2386a Body>
<POP 23822-23838 Prologue> Σ0 ↓
<POP 23838-23862 Naked> Σ0 ↓
<Blob 0x23838 [34] @> Δ-34 {[«34""»]}
<POP 23844-23846 StackAdj> Δ-4 {[«34""»]|[-4-]}
<Lit 0x23846 34> {[«34""»]|[$$Switch exclusion is unimplemented.]}
<Call 0x2385a 0x20b0a> {[«34""»]|[$$Switch exclusion is unimplemented.]}
<POP 2385e-23862 StackAdj> Δ+38 {}
<POP 23862-2386a Epilogue> Σ0
@ 2386a
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x006 4(rw)>
<POP 2386a-239a4 Body>
<POP 2386a-23880 Prologue> Σ0 ↓
<POP 23880-23896 RegCacheLoad> Σ0 ↓
<POP 23896-238a4 Naked> Σ0 ↓ →0x238ac
<MI 23896 MOVE.L 0x25614,(A6-0x6)> {}
<POP 2389a-2389c StackAdj> Δ-2 {[-2-]}
<Call 0x2389c 0x20ba6> {[-2-]}
<MI 2389e MOVE.B (A7)+,D7> Δ+2 {}
<MI 238a0 CMP.B #0x25,D7> {}
<MI 238a2 BNE 0x238ac> {}
<POP 238a4-238ac Naked> Σ0 →0x2398c
<MI 238a4 MOVEA.L (A6+0xc),A0> {}
<MI 238a6 CLR.L (A0)> {}
<MI 238a8 BRA 0x2398c> {}
<POP 238ac-238b0 Naked> Σ0 ↓ →0x238bc ←0x23896
<MI 238ac CMP.B #0x2d,D7> {}
<MI 238ae BNE 0x238bc> {}
<POP 238b0-238bc Naked> Σ0 →0x2398c
<MI 238b0 MOVEA.L (A6+0xc),A0> {}
<MI 238b2 MOVE.L #0x1,(A0)> {}
<MI 238b8 BRA 0x2398c> {}
<POP 238bc-238c2 Naked> Σ0 ↓ →0x238ce ←0x238ac
<MI 238bc CMPI.B #0x2f,D7> {}
<MI 238c0 BNE 0x238ce> {}
<POP 238c2-238ce Naked> Σ0 →0x2398c
<MI 238c2 MOVEA.L (A6+0xc),A0> {}
<MI 238c4 MOVE.L #0x4,(A0)> {}
<MI 238ca BRA 0x2398c> {}
<POP 238ce-238d4 Naked> Σ0 ↓ →0x238e0 ←0x238bc
<MI 238ce CMPI.B #0x3d,D7> {}
<MI 238d2 BNE 0x238e0> {}
<POP 238d4-238e0 Naked> Σ0 →0x2398c
<MI 238d4 MOVEA.L (A6+0xc),A0> {}
<MI 238d6 MOVE.L #0x5,(A0)> {}
<MI 238dc BRA 0x2398c> {}
<POP 238e0-238e6 Naked> Σ0 ↓ →0x238f2 ←0x238ce
<MI 238e0 CMPI.B #0x5c,D7> {}
<MI 238e4 BNE 0x238f2> {}
<POP 238e6-238f2 Naked> Σ0 →0x2398c
<MI 238e6 MOVEA.L (A6+0xc),A0> {}
<MI 238e8 MOVE.L #0x6,(A0)> {}
<MI 238ee BRA 0x2398c> {}
<POP 238f2-238f6 Naked> Σ0 ↓ →0x23922 ←0x238e0
<MI 238f2 TST.B D7> {}
<MI 238f4 BNE 0x23922> {}
<POP 238f6-23922 Naked> Σ0 →0x2398c
<Blob 0x238f6 [24] @> Δ-24 {[«24""»]}
<POP 23902-23904 StackAdj> Δ-4 {[«24""»]|[-4-]}
<Lit 0x23904 24> {[«24""»]|[$$Illegal argument marker.]}
<Call 0x23918 0x20b0a> {[«24""»]|[$$Illegal argument marker.]}
<POP 2391c-23920 StackAdj> Δ+28 {}
<MI 23920 BRA 0x2398c> {}
<POP 23922-23926 Naked> Σ0 ↓ →0x23952 ←0x238f2
<MI 23922 CMP.B #0x30,D7> {}
<MI 23924 BCS 0x23952> {}
<POP 23926-2392a Naked> Σ0 ↓ →0x23952
<MI 23926 CMP.B #0x39,D7> {}
<MI 23928 BHI 0x23952> {}
<POP 2392a-23932 Naked> Σ0 ↓
<MI 2392a MOVEA.L (A6+0xc),A0> {}
<MI 2392c MOVE.L #0x2,(A0)> {}
<POP 23932-2393e Naked> Σ0 ↓ →0x23948 ←0x2394c
<POP 23932-23934 StackAdj> Δ-2 {[-2-]}
<Call 0x23934 0x20b68> {[-2-]}
<MI 23938 MOVE.B (A7)+,D7> Δ+2 {}
<MI 2393a CMP.B #0x30,D7> {}
<MI 2393c BCS 0x23948> {}
<POP 2393e-23942 Naked> Σ0 ↓ →0x23948
<MI 2393e CMP.B #0x39,D7> {}
<MI 23940 BHI 0x23948> {}
<POP 23942-23948 Naked> Σ0 ↓
<POP 23942-23944 StackAdj> Δ-2 {[-2-]}
<Call 0x23944 0x20ba6> {[-2-]}
<MI 23946 MOVE.B (A7)+,D6> Δ+2 {}
<POP 23948-2394c Naked> Σ0 ↓ →0x23950 ←0x23932 ←0x2393e
<MI 23948 CMP.B #0x30,D7> {}
<MI 2394a BCS 0x23950> {}
<POP 2394c-23950 Naked> Σ0 ↓ →0x23932
<MI 2394c CMP.B #0x39,D7> {}
<MI 2394e BLS 0x23932> {}
<POP 23950-23952 Naked> Σ0 →0x2398c ←0x23948
<MI 23950 BRA 0x2398c> {}
<POP 23952-2395c Naked> Σ0 ↓ ←0x23922 ←0x23926
<MI 23952 MOVEA.L (A6+0xc),A0> {}
<MI 23954 MOVE.L #0x3,(A0)> {}
<MI 2395a MOVEQ.L #0x00,D5> {}
<POP 2395c-23968 Naked> Σ0 ↓ →0x2397e ←0x23988
<POP 2395c-2395e StackAdj> Δ-2 {[-2-]}
<Call 0x2395e 0x20b68> {[-2-]}
<MI 23962 MOVE.B (A7)+,D7> Δ+2 {}
<MI 23964 CMP.B #0x25,D7> {}
<MI 23966 BEQ 0x2397e> {}
<POP 23968-2396c Naked> Σ0 ↓ →0x2397e
<MI 23968 CMP.B #0x2d,D7> {}
<MI 2396a BEQ 0x2397e> {}
<POP 2396c-23972 Naked> Σ0 ↓ →0x2397e
<MI 2396c CMPI.B #0x2f,D7> {}
<MI 23970 BEQ 0x2397e> {}
<POP 23972-23978 Naked> Σ0 ↓ →0x2397e
<MI 23972 CMPI.B #0x3d,D7> {}
<MI 23976 BEQ 0x2397e> {}
<POP 23978-2397e Naked> Σ0 ↓ →0x23982
<MI 23978 CMPI.B #0x5c,D7> {}
<MI 2397c BNE 0x23982> {}
<POP 2397e-23982 Naked> Σ0 →0x23988 ←0x2395c ←0x23968 ←0x2396c ←0x23972
<MI 2397e MOVEQ.L #0x01,D5> {}
<MI 23980 BRA 0x23988> {}
<POP 23982-23988 Naked> Σ0 ↓ ←0x23978
<POP 23982-23984 StackAdj> Δ-2 {[-2-]}
<Call 0x23984 0x20ba6> {[-2-]}
<MI 23986 MOVE.B (A7)+,D6> Δ+2 {}
<POP 23988-2398c Naked> Σ0 ↓ →0x2395c ←0x2397e
<MI 23988 TST.B D5> {}
<MI 2398a BEQ 0x2395c> {}
<POP 2398c-2399c Naked> Σ0 ↓ ←0x238a4 ←0x238b0 ←0x238c2 ←0x238d4 ←0x238e6 ←0x238f6 ←0x23950
<MI 2398c MOVEA.L (A6+0x8),A0> {}
<MI 23990 MOVE.L (A6-0x6),(A0)> {}
<MI 23994 MOVE.L 0x25614,(A0+0x4)> {}
<MI 23998 SUBQ.L #0x1,(A0+0x4)> {}
<POP 2399c-239a4 Epilogue> Σ0
@ 239a4
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 239a4-23a2a Body>
<POP 239a4-239ba Prologue> Σ0 ↓
<POP 239ba-239be RegCacheLoad> Σ0 ↓
<POP 239be-239d8 Naked> Σ0 Δ-4 ↓ →0x239e4
<MI 239be MOVEA.L (A6+0x8),A0> {}
<MI 239c2 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 239c4 MOVE.L 0x25614,D6> {[4, 'A0']}
<MI 239ca SUB.L (A6+0xc),D6> {[4, 'A0']}
<MI 239cc MOVE.L (A6+0xc),D5> {[4, 'A0']}
<MI 239ce ADD.L D6,D5> {[4, 'A0']}
<MI 239d0 MOVE.W (A0),D0> {[4, 'A0']}
<MI 239d2 EXTW.L D0> {[4, 'A0']}
<MI 239d4 CMP.L D6,D0> {[4, 'A0']}
<MI 239d6 BEQ 0x239e4> {[4, 'A0']}
<POP 239d8-239e4 Naked> Σ-4 ↓
<MI 239d8 MOVE.L D5,-(A7)> Δ-4 {[-4-]|[4, 'D5']}
<MI 239da MOVE.L D6,-(A7)> Δ-4 {[-4-]|[4, 'D5']|[4, 'D6']}
<MI 239dc SUB.L D0,(A7)> {[-4-]|[4, 'D5']|[-4-]}
<Call 0x239de 0x2105e> {[-4-]|[4, 'D5']|[-4-]}
<POP 239e2-239e4 StackAdj> Δ+8 {[-4-]}
<POP 239e4-239e8 Naked> Σ-4 Δ-4 ↓ ←0x239be
<MI 239e4 MOVE.L D0,-(A7)> Δ-4 {[-4-]|[4, 'D0']}
<MI 239e6 MOVEQ.L #0x01,D7> {[-4-]|[4, 'D0']}
<POP 239e8-239ec Naked> Σ-8 ↓ →0x23a20 ←0x239ec
<MI 239e8 CMP.L (A7),D7> {[-8-]}
<MI 239ea BGT 0x23a20> {[-8-]}
<POP 239ec-23a20 Naked> Σ-8 ↓ →0x239e8
<MI 239ec MOVE.L (A6+0xc),D0> {[-8-]}
<MI 239ee ADD.L D7,D0> {[-8-]}
<MI 239f0 SUBQ.L #0x1,D0> {[-8-]}
<MI 239f2 SUBQ.L #0x1,D0> {[-8-]}
<POP 0x239f4 LimitCheck 0x0 ≤ D0 ≤ 0xfff> {[-8-]}
<MI 239fe LEA.L 0x2460c,A0> {[-8-]}
<MI 23a04 MOVE.L D7,D1> {[-8-]}
<MI 23a06 SUBQ.L #0x1,D1> {[-8-]}
<POP 0x23a08 LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-8-]}
<MI 23a12 MOVEA.L (A7+0x4),A1> {[-8-]}
<MI 23a16 MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x8)> {[-8-]}
<MI 23a1c ADDQ.L #0x1,D7> {[-8-]}
<MI 23a1e BVC 0x239e8> {[-8-]}
<POP 23a20-23a22 Naked> Σ-8 Δ+8 ↓ ←0x239e8
<POP 23a20-23a22 StackAdj> Δ+8 {}
<POP 23a22-23a2a Epilogue> Σ0
@ 23a2a
<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 23a2a-23c72 Body> Δ+56
<POP 23a2a-23a40 Prologue> Σ0 ↓
<POP 23a40-23a52 RegCacheLoad> Σ0 ↓
<POP 23a52-23a76 Naked> Σ0 ↓
<MI 23a52 MOVE.L 0x25614,(A6-0x28)> {}
<Pointer.fp 0x23a5a <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-8]}
<Call 0x23a5c 0x102b8> {[@@-8]}
NewString(VAR a : String)
<POP 23a62-23a64 StackAdj> Δ+4 {}
<Pointer.fp 0x23a64 <LVAR -0x00c @ 4(r)>> Δ-4 {[@@-12]}
<Pointer.fp 0x23a68 <LVAR -0x014 @ 4(r)>> Δ-4 {[@@-12]|[@@-20]}
<Call 0x23a6a 0x2386a> {[@@-12]|[@@-20]}
<POP 23a6e-23a70 StackAdj> Δ+8 {}
<MI 23a70 CLR.L (A6-0x34)> {}
<MI 23a74 MOVEQ.L #0x00,D7> {}
<POP 23a76-23a8a Naked> Σ0 →0x23ab4 →0x23abe →0x23ad2 →0x23aee →0x23af2 →0x23b00 →0x23b14 →0x23b1a →0x23b1c →0x23b32 →0x23b40 →0x23b58 →0x23b6c →0x23b80 →0x23b96 →0x23b98 →0x23bb2 →0x23bc8 →0x23bd6 →0x23bd8 →0x23bda ←0x23c4e
<MI 23a76 MOVE.L (A6-0x34),D0> {}
<POP 0x23a7a LimitCheck 0x0 ≤ D0 ≤ 0x14> {}
<MI 23a80 ADD.W D0,D0> {}
<MI 23a82 SWITCH D0.W> {}
<POP 23ab4-23abe Naked> Σ0 →0x23c04 ←0x23a76
<MI 23ab4 MOVEQ.L #0x00,D6> {}
<MI 23ab6 MOVE.L (A6+0x8),D5> {}
<MI 23aba BRA 0x23c04> {}
<POP 23abe-23ad2 Naked> Σ0 →0x23c04 ←0x23a76
<POP 23abe-23ac0 StackAdj> Δ-4 {[-4-]}
<MI 23ac0 MOVE.L (A6-0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x10)']}
<MI 23ac4 MOVE.L (A6-0x14),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<Call 0x23ac6 0x23348> {[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<POP 23aca-23acc StackAdj> Δ+8 {[-4-]}
<MI 23acc MOVE.L (A7)+,D6> Δ+4 {}
<MI 23ace BRA 0x23c04> {}
<POP 23ad2-23ada Naked> Σ0 Δ-12 ↓ ←0x23a76
<MI 23ad2 MOVE.L (A6-0x28),-(A7)> Δ-4 {[4, '(A6-0x28)']}
<MI 23ad6 MOVE.L D6,-(A7)> Δ-4 {[4, '(A6-0x28)']|[4, 'D6']}
<MI 23ad8 MOVE.L D6,-(A7)> Δ-4 {[4, '(A6-0x28)']|[4, 'D6']|[4, 'D6']}
<POP 23ada-23aea Naked> Σ-12 Δ+12 →0x23c60 ←0x23af2
<MI 23ada MOVE.L (A6+0xc),-(A7)> Δ-4 {[-12-]|[4, '(A6+0xc)']}
<Call 0x23ade 0x233c4> {[-12-]|[4, '(A6+0xc)']}
<POP 23ae2-23ae6 StackAdj> Δ+16 {}
<MI 23ae6 BRA 0x23c60> {}
<POP 23aee-23af2 Naked> Σ0 →0x23c04 ←0x23a76
<MI 23aee BRA 0x23c04> {}
<POP 23af2-23afc Naked> Σ0 Δ-12 →0x23ada ←0x23a76
<MI 23af2 MOVE.L (A6-0x28),-(A7)> Δ-4 {[4, '(A6-0x28)']}
<MI 23af6 MOVE.L D6,-(A7)> Δ-4 {[4, '(A6-0x28)']|[4, 'D6']}
<MI 23af8 MOVE.L D5,-(A7)> Δ-4 {[4, '(A6-0x28)']|[4, 'D6']|[4, 'D5']}
<MI 23afa BRA 0x23ada> {[4, '(A6-0x28)']|[4, 'D6']|[4, 'D5']}
<POP 23b00-23b14 Naked> Σ0 →0x23c04 ←0x23a76 ←0x23b1a
<POP 23b00-23b02 StackAdj> Δ-4 {[-4-]}
<MI 23b02 MOVE.L (A6-0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x10)']}
<MI 23b06 MOVE.L (A6-0x14),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<Call 0x23b08 0x23348> {[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<POP 23b0c-23b0e StackAdj> Δ+8 {[-4-]}
<MI 23b0e MOVE.L (A7)+,D5> Δ+4 {}
<MI 23b10 BRA 0x23c04> {}
<POP 23b14-23b1a Naked> Σ0 →0x23c04 ←0x23a76
<MI 23b14 MOVEQ.L #0x01,D6> {}
<MI 23b16 BRA 0x23c04> {}
<POP 23b1a-23b1c Naked> Σ0 →0x23b00 ←0x23a76
<MI 23b1a BRA 0x23b00> {}
<POP 23b1c-23b32 Naked> Σ0 →0x23c04 ←0x23a76
<POP 23b1c-23b1e StackAdj> Δ-8 {[-8-]}
<MI 23b1e MOVE.L (A6+0xc),-(A7)> Δ-4 {[-8-]|[4, '(A6+0xc)']}
<MI 23b22 MOVE.L D6,-(A7)> Δ-4 {[-8-]|[4, '(A6+0xc)']|[4, 'D6']}
<Call 0x23b24 0x21754> {[-8-]|[4, '(A6+0xc)']|[4, 'D6']}
<POP 23b28-23b2a StackAdj> Δ+8 {[-8-]}
<MI 23b2a MOVE.L (A7)+,(A6-0x24)> Δ+4 {[-4-]}
<MI 23b2c MOVE.L (A7)+,(A6-0x20)> Δ+4 {}
<MI 23b2e BRA 0x23c04> {}
<POP 23b32-23b40 Naked> Σ0 →0x23c04 ←0x23a76
<MI 23b32 MOVE.L (A6-0x14),(A6-0x1c)> {}
<MI 23b36 MOVE.L (A6-0x10),(A6-0x18)> {}
<MI 23b3c BRA 0x23c04> {}
<POP 23b40-23b52 Naked> Σ0 Δ-20 ↓ ←0x23a76
<MI 23b40 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<MI 23b42 MOVE.L (A6-0x20),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']}
<MI 23b44 MOVE.L (A6-0x24),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']}
<MI 23b46 MOVE.L (A6-0x18),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']}
<MI 23b4a MOVE.L (A6-0x1c),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<Call 0x23b4e 0x23676> {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<POP 23b52-23b58 Naked> Σ-20 Δ+20 →0x23c04 ←0x23b58
<POP 23b52-23b54 StackAdj> Δ+20 {}
<MI 23b54 BRA 0x23c04> {}
<POP 23b58-23b6c Naked> Σ0 Δ-20 →0x23b52 ←0x23a76
<MI 23b58 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<MI 23b5a MOVE.L (A6-0x20),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']}
<MI 23b5c MOVE.L (A6-0x24),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']}
<MI 23b5e MOVE.L (A6-0x18),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']}
<MI 23b62 MOVE.L (A6-0x1c),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<Call 0x23b66 0x235e2> {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<MI 23b6a BRA 0x23b52> {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<POP 23b6c-23b76 Naked> Σ0 Δ-12 ↓ ←0x23a76
<MI 23b6c MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<MI 23b6e MOVE.L (A6-0x20),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']}
<MI 23b70 MOVE.L (A6-0x24),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']}
<Call 0x23b72 0x2372c> {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']}
<POP 23b76-23b7a Naked> Σ-12 Δ+12 ↓ ←0x23bb2
<POP 23b76-23b7a StackAdj> Δ+12 {}
<POP 23b7a-23b80 Naked> Σ0 →0x23c04 ←0x23b80 ←0x23b96 ←0x23bd8
<MI 23b7a MOVEQ.L #0x01,D7> {}
<MI 23b7c BRA 0x23c04> {}
<POP 23b80-23b96 Naked> Σ0 →0x23b7a ←0x23a76
<MI 23b80 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<MI 23b82 MOVE.L (A6-0x20),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']}
<MI 23b84 MOVE.L (A6-0x24),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']}
<MI 23b86 MOVE.L (A6-0x18),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']}
<MI 23b8a MOVE.L (A6-0x1c),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<Call 0x23b8e 0x235e2> {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<POP 23b92-23b94 StackAdj> Δ+20 {}
<MI 23b94 BRA 0x23b7a> {}
<POP 23b96-23b98 Naked> Σ0 →0x23b7a ←0x23a76
<MI 23b96 BRA 0x23b7a> {}
<POP 23b98-23bac Naked> Σ0 Δ-12 ↓ ←0x23a76
<MI 23b98 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<POP 23b9a-23b9c StackAdj> Δ-8 {[4, '(A6-0x8)']|[-8-]}
<MI 23b9c MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6-0x8)']|[-8-]|[4, '(A6+0xc)']}
<MI 23ba0 MOVE.L D6,-(A7)> Δ-4 {[4, '(A6-0x8)']|[-8-]|[4, '(A6+0xc)']|[4, 'D6']}
<Call 0x23ba2 0x21754> {[4, '(A6-0x8)']|[-8-]|[4, '(A6+0xc)']|[4, 'D6']}
<POP 23ba6-23ba8 StackAdj> Δ+8 {[4, '(A6-0x8)']|[-8-]}
<Call 0x23ba8 0x2372c> {[4, '(A6-0x8)']|[-8-]}
<POP 23bac-23bb2 Naked> Σ-12 Δ+12 →0x23c04 ←0x23bc8
<POP 23bac-23bb0 StackAdj> Δ+12 {}
<MI 23bb0 BRA 0x23c04> {}
<POP 23bb2-23bc8 Naked> Σ0 Δ-12 →0x23b76 ←0x23a76
<MI 23bb2 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<POP 23bb4-23bb6 StackAdj> Δ-8 {[4, '(A6-0x8)']|[-8-]}
<MI 23bb6 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6-0x8)']|[-8-]|[4, '(A6+0xc)']}
<MI 23bba MOVE.L D6,-(A7)> Δ-4 {[4, '(A6-0x8)']|[-8-]|[4, '(A6+0xc)']|[4, 'D6']}
<Call 0x23bbc 0x21754> {[4, '(A6-0x8)']|[-8-]|[4, '(A6+0xc)']|[4, 'D6']}
<POP 23bc0-23bc2 StackAdj> Δ+8 {[4, '(A6-0x8)']|[-8-]}
<Call 0x23bc2 0x237b2> {[4, '(A6-0x8)']|[-8-]}
<MI 23bc6 BRA 0x23b76> {[4, '(A6-0x8)']|[-8-]}
<POP 23bc8-23bd6 Naked> Σ0 Δ-12 →0x23bac ←0x23a76
<MI 23bc8 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<MI 23bca MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x10)']}
<MI 23bce MOVE.L (A6-0x14),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<Call 0x23bd0 0x23822> {[4, '(A6-0x8)']|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<MI 23bd4 BRA 0x23bac> {[4, '(A6-0x8)']|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<POP 23bd6-23bd8 Naked> Σ0 →0x23c04 ←0x23a76
<MI 23bd6 BRA 0x23c04> {}
<POP 23bd8-23bda Naked> Σ0 →0x23b7a ←0x23a76
<MI 23bd8 BRA 0x23b7a> {}
<POP 23bda-23c04 Naked> Σ0 ↓ ←0x23a76
<Blob 0x23bda [24] @> Δ-24 {[«24""»]}
<POP 23be6-23be8 StackAdj> Δ-4 {[«24""»]|[-4-]}
<Lit 0x23be8 24> {[«24""»]|[$$Illegal argument marker.]}
<Call 0x23bfc 0x20b0a> {[«24""»]|[$$Illegal argument marker.]}
<POP 23c00-23c04 StackAdj> Δ+28 {}
<POP 23c04-23c08 Naked> Σ0 ↓ →0x23c4e ←0x23ab4 ←0x23abe ←0x23aee ←0x23b00 ←0x23b14 ←0x23b1c ←0x23b32 ←0x23b52 ←0x23b7a ←0x23bac ←0x23bd6
<MI 23c04 TST.B D7> {}
<MI 23c06 BNE 0x23c4e> {}
<POP 23c08-23c4e Naked> Σ0 ↓
<Pointer.fp 0x23c08 <LVAR -0x00c @ 4(r)>> Δ-4 {[@@-12]}
<Pointer.fp 0x23c0c <LVAR -0x014 @ 4(r)>> Δ-4 {[@@-12]|[@@-20]}
<Call 0x23c0e 0x2386a> {[@@-12]|[@@-20]}
<POP 23c12-23c14 StackAdj> Δ+8 {}
<MI 23c14 MOVE.L (A6-0x34),D0> {}
<POP 0x23c18 LimitCheck 0x0 ≤ D0 ≤ 0x13> {}
<MI 23c22 MOVE.L D0,D4> {}
<MI 23c24 MOVEQ.L #0x07,D3> {}
<Call 0x23c26 0x1028c> {}
?muls_d3_d4
<MI 23c2c LEA.L 0x20a3c,A0> {}
<MI 23c30 MOVE.L (A6-0xc),D0> {}
<POP 0x23c34 LimitCheck 0x0 ≤ D0 ≤ 0x6> {}
<MI 23c3e LEA.L (A0+D4.L),A0> {}
<MI 23c42 MOVE.B (A0+D0.L),D1> {}
<MI 23c46 EXTB.W D1> {}
<MI 23c48 EXTW.L D1> {}
<MI 23c4a MOVE.L D1,(A6-0x34)> {}
<POP 23c4e-23c54 Naked> Σ0 ↓ →0x23a76 ←0x23c04
<MI 23c4e TST.B D7> {}
<MI 23c50 BEQ 0x23a76> {}
<POP 23c54-23c60 Naked> Σ0 ↓
<MI 23c54 MOVE.L (A6-0x28),-(A7)> Δ-4 {[4, '(A6-0x28)']}
<MI 23c58 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x28)']|[4, '(A6-0x8)']}
<Call 0x23c5a 0x239a4> {[4, '(A6-0x28)']|[4, '(A6-0x8)']}
<POP 23c5e-23c60 StackAdj> Δ+8 {}
<POP 23c60-23c6a Naked> Σ0 ↓ ←0x23ada
<Pointer.fp 0x23c60 <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-8]}
<Call 0x23c62 0x102bc> {[@@-8]}
FreeString(VAR a : String)
<POP 23c68-23c6a StackAdj> Δ+4 {}
<POP 23c6a-23c72 Epilogue> Σ0
@ 23c72
<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 23c72-23d6a Body> Δ-12
<POP 23c72-23c88 Prologue> Σ0 ↓
<POP 23c88-23c9a RegCacheLoad> Σ0 ↓
<POP 23c9a-23cc2 Naked> Σ0 Δ-4 ↓
<MI 23c9a CLR.L (A6+0x14)> {}
<POP 23c9e-23ca0 StackAdj> Δ-4 {[-4-]}
<MI 23ca0 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x10)']}
<MI 23ca2 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<Call 0x23ca4 0x2171c> {[-4-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<POP 23ca8-23caa StackAdj> Δ+8 {[-4-]}
<MI 23caa MOVE.L (A7)+,(A6-0xc)> Δ+4 {}
<MI 23cac MOVEA.L (A6+0x8),A0> {}
<MI 23cb0 MOVE.W (A0),D0> {}
<MI 23cb2 EXTW.L D0> {}
<MI 23cb4 ADDQ.L #0x1,D0> {}
<MI 23cb6 MOVE.L D0,(A6-0x8)> {}
<MI 23cb8 NEG.L D0> {}
<MI 23cba ADD.L (A6-0xc),D0> {}
<MI 23cbc ADDQ.L #0x1,D0> {}
<MI 23cbe MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 23cc0 MOVEQ.L #0x01,D0> {[4, 'D0']}
<POP 23cc2-23cc8 Naked> Σ-4 ↓ →0x23d60 ←0x23d58
<MI 23cc2 CMP.L (A7),D0> {[-4-]}
<MI 23cc4 BGT 0x23d60> {[-4-]}
<POP 23cc8-23cd4 Naked> Σ-4 Δ-8 ↓
<MI 23cc8 MOVE.L D0,(A6-0x18)> {[-4-]}
<MI 23ccc MOVE.L D0,-(A7)> Δ-4 {[-4-]|[4, 'D0']}
<MI 23cce MOVEQ.L #0x00,D6> {[-4-]|[4, 'D0']}
<MI 23cd0 MOVE.L (A6-0x8),-(A7)> Δ-4 {[-4-]|[4, 'D0']|[4, '(A6-0x8)']}
<MI 23cd2 MOVEQ.L #0x01,D5> {[-4-]|[4, 'D0']|[4, '(A6-0x8)']}
<POP 23cd4-23cd8 Naked> Σ-12 ↓ →0x23d20 ←0x23d1a
<MI 23cd4 CMP.L (A7),D5> {[-12-]}
<MI 23cd6 BGT 0x23d20> {[-12-]}
<POP 23cd8-23ce0 Naked> Σ-12 ↓ →0x23ce4
<MI 23cd8 CMPI.L #0x00000001,D5> {[-12-]}
<MI 23cde BNE 0x23ce4> {[-12-]}
<POP 23ce0-23ce4 Naked> Σ-12 →0x23cfc
<MI 23ce0 MOVEQ.L #0x2f,D7> {[-12-]}
<MI 23ce2 BRA 0x23cfc> {[-12-]}
<POP 23ce4-23cfc Naked> Σ-12 ↓ ←0x23cd8
<MI 23ce4 MOVEA.L (A6+0x8),A0> {[-12-]}
<MI 23ce8 MOVE.L D5,D0> {[-12-]}
<MI 23cea SUBQ.L #0x1,D0> {[-12-]}
<MI 23cec SUBQ.L #0x1,D0> {[-12-]}
<POP 0x23cee LimitCheck 0x0 ≤ D0 ≤ 0x7d> {[-12-]}
<MI 23cf8 MOVE.B (A0+D0.L+#0x2),D7> {[-12-]}
<POP 23cfc-23d16 Naked> Σ-12 ↓ →0x23d1a ←0x23ce0
<POP 23cfc-23cfe StackAdj> Δ-2 {[-14-]}
<MI 23cfe MOVE.L (A6+0x10),-(A7)> Δ-4 {[-14-]|[4, '(A6+0x10)']}
<MI 23d00 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-14-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<MI 23d02 MOVE.L (A7+0xe),D0> {[-14-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<MI 23d06 ADD.L D5,D0> {[-14-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<MI 23d08 SUBQ.L #0x1,D0> {[-14-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<MI 23d0a MOVE.L D0,-(A7)> Δ-4 {[-14-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, 'D0']}
<Call 0x23d0c 0x23308> {[-14-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, 'D0']}
<POP 23d10-23d12 StackAdj> Δ+12 {[-14-]}
<MI 23d12 CMP.B (A7)+,D7> Δ+2 {[-12-]}
<MI 23d14 BEQ 0x23d1a> {[-12-]}
<POP 23d16-23d1a Naked> Σ-12 Δ+4 →0x23d22
<POP 23d16-23d18 StackAdj> Δ+4 {[-8-]}
<MI 23d18 BRA 0x23d22> {[-8-]}
<POP 23d1a-23d20 Naked> Σ-12 ↓ →0x23cd4 ←0x23cfc
<MI 23d1a MOVE.L D5,D6> {[-12-]}
<MI 23d1c ADDQ.L #0x1,D5> {[-12-]}
<MI 23d1e BVC 0x23cd4> {[-12-]}
<POP 23d20-23d22 Naked> Σ-12 Δ+4 ↓ ←0x23cd4
<POP 23d20-23d22 StackAdj> Δ+4 {[-8-]}
<POP 23d22-23d26 Naked> Σ-8 ↓ →0x23d58 ←0x23d16
<MI 23d22 CMP.L (A6-0x8),D6> {[-8-]}
<MI 23d24 BNE 0x23d58> {[-8-]}
<POP 23d26-23d30 Naked> Σ-8 ↓ →0x23d56
<MI 23d26 MOVE.L (A7),D0> {[-8-]}
<MI 23d28 MOVE.L D0,D1> {[-8-]}
<MI 23d2a ADD.L (A6-0x8),D1> {[-8-]}
<MI 23d2c CMP.L (A6-0xc),D1> {[-8-]}
<MI 23d2e BGE 0x23d56> {[-8-]}
<POP 23d30-23d46 Naked> Σ-8 ↓ →0x23d4c
<POP 23d30-23d32 StackAdj> Δ-2 {[-10-]}
<MI 23d32 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x10)']}
<MI 23d34 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<MI 23d36 MOVE.L D1,-(A7)> Δ-4 {[-10-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, 'D1']}
<Call 0x23d38 0x23308> {[-10-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, 'D1']}
<POP 23d3c-23d3e StackAdj> Δ+12 {[-10-]}
<MI 23d3e MOVE.B (A7)+,D7> Δ+2 {[-8-]}
<MI 23d40 CMPI.B #0x2f,D7> {[-8-]}
<MI 23d44 BEQ 0x23d4c> {[-8-]}
<POP 23d46-23d4c Naked> Σ-8 ↓ →0x23d54
<MI 23d46 CMPI.B #0x3d,D7> {[-8-]}
<MI 23d4a BNE 0x23d54> {[-8-]}
<POP 23d4c-23d54 Naked> Σ-8 Δ+8 →0x23d62 ←0x23d30 ←0x23d56
<MI 23d4c MOVE.L D0,(A6+0x14)> {[-8-]}
<POP 23d50-23d52 StackAdj> Δ+8 {}
<MI 23d52 BRA 0x23d62> {}
<POP 23d54-23d56 Naked> Σ-8 →0x23d58 ←0x23d46
<MI 23d54 BRA 0x23d58> {[-8-]}
<POP 23d56-23d58 Naked> Σ-8 →0x23d4c ←0x23d26
<MI 23d56 BRA 0x23d4c> {[-8-]}
<POP 23d58-23d60 Naked> Σ-8 Δ+4 ↓ →0x23cc2 ←0x23d22 ←0x23d54
<MI 23d58 MOVE.L (A7)+,D0> Δ+4 {[-4-]}
<MI 23d5a ADDQ.L #0x1,D0> {[-4-]}
<MI 23d5c BVC 0x23cc2> {[-4-]}
<POP 23d60-23d62 Naked> Σ-4 Δ+4 ↓ ←0x23cc2
<POP 23d60-23d62 StackAdj> Δ+4 {}
<POP 23d62-23d6a Epilogue> Σ0 ←0x23d4c
@ 23d6a
<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 23d6a-23e52 Body> Δ-12
<POP 23d6a-23d80 Prologue> Σ0 ↓
<POP 23d80-23d90 RegCacheLoad> Σ0 ↓
<POP 23d90-23db6 Naked> Σ0 ↓ →0x23e4a
<MI 23d90 MOVEA.L (A6+0x8),A0> {}
<MI 23d94 CLR.B (A0)> {}
<MI 23d96 MOVEA.L (A6+0xc),A1> {}
<MI 23d9a MOVE.L #0x01,(A1)> {}
<POP 23d9c-23d9e StackAdj> Δ-8 {[-8-]}
<MI 23d9e MOVE.L (A6+0x18),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x18)']}
<MI 23da2 MOVE.L (A6+0x14),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x18)']|[4, '(A6+0x14)']}
<Call 0x23da6 0x21754> {[-8-]|[4, '(A6+0x18)']|[4, '(A6+0x14)']}
<POP 23daa-23dac StackAdj> Δ+8 {[-8-]}
<MI 23dac MOVE.L (A7)+,(A6-0x1c)> Δ+4 {[-4-]}
<MI 23dae MOVE.L (A7)+,(A6-0x18)> Δ+4 {}
<MI 23db0 TST.L (A6-0x1c)> {}
<MI 23db2 BEQ 0x23e4a> {}
<POP 23db6-23dcc Naked> Σ0 ↓ →0x23e4a
<POP 23db6-23db8 StackAdj> Δ-4 {[-4-]}
<MI 23db8 MOVE.L (A6-0x18),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x18)']}
<MI 23dba MOVE.L (A6-0x1c),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<MI 23dbc MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, '(A6+0x10)']}
<Call 0x23dc0 0x23c72> {[-4-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, '(A6+0x10)']}
<POP 23dc4-23dc6 StackAdj> Δ+12 {[-4-]}
<MI 23dc6 MOVE.L (A7)+,(A6-0x14)> Δ+4 {}
<MI 23dca BEQ 0x23e4a> {}
<POP 23dcc-23dec Naked> Σ0 Δ-4 ↓
<MI 23dcc MOVE.B #0x01,(A0)> {}
<MI 23dce PEA.L (A1)> Δ-4 {[4, '^(A1)']}
<Call 0x23dd0 0x102b8> {[4, '^(A1)']}
NewString(VAR a : String)
<MI 23dd6 MOVE.L (A6-0x18),-(A7)> Δ-4 {[4, '^(A1)']|[4, '(A6-0x18)']}
<MI 23dd8 MOVE.L (A6-0x1c),-(A7)> Δ-4 {[4, '^(A1)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<Call 0x23dda 0x2171c> {[4, '^(A1)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<POP 23dde-23de0 StackAdj> Δ+8 {[4, '^(A1)']}
<MI 23de0 MOVE.L (A7)+,(A6-0x8)> Δ+4 {}
<MI 23de2 MOVE.L (A6-0x14),D0> {}
<MI 23de6 ADDQ.L #0x1,D0> {}
<MI 23de8 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<MI 23dea MOVE.L D0,D5> {[4, '(A6-0x8)']}
<POP 23dec-23df0 Naked> Σ-4 ↓ →0x23e48 ←0x23e44
<MI 23dec CMP.L (A7),D5> {[-4-]}
<MI 23dee BGT 0x23e48> {[-4-]}
<POP 23df0-23e06 Naked> Σ-4 ↓ →0x23e44
<POP 23df0-23df2 StackAdj> Δ-2 {[-6-]}
<MI 23df2 MOVE.L (A6-0x18),-(A7)> Δ-4 {[-6-]|[4, '(A6-0x18)']}
<MI 23df4 MOVE.L (A6-0x1c),-(A7)> Δ-4 {[-6-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<MI 23df6 MOVE.L D5,-(A7)> Δ-4 {[-6-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, 'D5']}
<Call 0x23df8 0x23308> {[-6-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, 'D5']}
<POP 23dfc-23dfe StackAdj> Δ+12 {[-6-]}
<MI 23dfe MOVE.B (A7)+,D0> Δ+2 {[-4-]}
<MI 23e00 CMPI.B #0x3d,D0> {[-4-]}
<MI 23e04 BNE 0x23e44> {[-4-]}
<POP 23e06-23e0e Naked> Σ-4 Δ-4 ↓
<MI 23e06 MOVE.L D5,D0> {[-4-]}
<MI 23e08 ADDQ.L #0x1,D0> {[-4-]}
<MI 23e0a MOVE.L (A6-0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x8)']}
<MI 23e0c MOVE.L D0,D7> {[-4-]|[4, '(A6-0x8)']}
<POP 23e0e-23e12 Naked> Σ-8 ↓ →0x23e40 ←0x23e2c
<MI 23e0e CMP.L (A7),D7> {[-8-]}
<MI 23e10 BGT 0x23e40> {[-8-]}
<POP 23e12-23e28 Naked> Σ-8 ↓ →0x23e2c
<POP 23e12-23e14 StackAdj> Δ-2 {[-10-]}
<MI 23e14 MOVE.L (A6-0x18),-(A7)> Δ-4 {[-10-]|[4, '(A6-0x18)']}
<MI 23e16 MOVE.L (A6-0x1c),-(A7)> Δ-4 {[-10-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<MI 23e18 MOVE.L D7,-(A7)> Δ-4 {[-10-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, 'D7']}
<Call 0x23e1a 0x23308> {[-10-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, 'D7']}
<POP 23e1e-23e20 StackAdj> Δ+12 {[-10-]}
<MI 23e20 MOVE.B (A7)+,D6> Δ+2 {[-8-]}
<MI 23e22 CMPI.B #0x2f,D6> {[-8-]}
<MI 23e26 BNE 0x23e2c> {[-8-]}
<POP 23e28-23e2c Naked> Σ-8 Δ+8 →0x23e4a
<POP 23e28-23e2a StackAdj> Δ+8 {}
<MI 23e2a BRA 0x23e4a> {}
<POP 23e2c-23e40 Naked> Σ-8 ↓ →0x23e0e ←0x23e12
<MI 23e2c MOVEA.L (A6+0xc),A0> {[-8-]}
<MI 23e30 MOVE.L (A0),-(A7)> Δ-4 {[-8-]|[4, '(A0)']}
<MI 23e32 MOVE.B D6,-(A7)> Δ-2 {[-8-]|[4, '(A0)']|[2, 'D6']}
<Call 0x23e34 0x102c0> {[-8-]|[4, '(A0)']|[2, 'D6']}
AppendChar(MOD b : String; a : char)
<POP 23e3a-23e3c StackAdj> Δ+6 {[-8-]}
<MI 23e3c ADDQ.L #0x1,D7> {[-8-]}
<MI 23e3e BVC 0x23e0e> {[-8-]}
<POP 23e40-23e44 Naked> Σ-8 Δ+8 →0x23e4a ←0x23e0e
<POP 23e40-23e42 StackAdj> Δ+8 {}
<MI 23e42 BRA 0x23e4a> {}
<POP 23e44-23e48 Naked> Σ-4 ↓ →0x23dec ←0x23df0
<MI 23e44 ADDQ.L #0x1,D5> {[-4-]}
<MI 23e46 BVC 0x23dec> {[-4-]}
<POP 23e48-23e4a Naked> Σ-4 Δ+4 ↓ ←0x23dec
<POP 23e48-23e4a StackAdj> Δ+4 {}
<POP 23e4a-23e52 Epilogue> Σ0 ←0x23d90 ←0x23db6 ←0x23e28 ←0x23e40
@ 23e52
<LVAR 0x00c @ 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x010 @ 1(r)>
<POP 23e52-23ef0 Body>
<POP 23e52-23e68 Prologue> Σ0 ↓
<POP 23e68-23e76 RegCacheLoad> Σ0 ↓
<POP 23e76-23e8e Naked> Σ0 ↓ →0x23ede
<MI 23e76 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<MI 23e78 MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Pointer.fp 0x23e7a <LVAR -0x010 @ 1(r)>> Δ-4 {[4, '(A6+0xc)']|[4, '(A6+0x8)']|[@@-16]}
<Call 0x23e7e 0x203a8> {[4, '(A6+0xc)']|[4, '(A6+0x8)']|[@@-16]}
<POP 23e84-23e88 StackAdj> Δ+12 {}
<MI 23e88 TST.B (A6-0x10)> {}
<MI 23e8c BNE 0x23ede> {}
<POP 23e8e-23ea8 Naked> Σ0 ↓
<MI 23e8e MOVE.L 0x25614,D7> {}
<POP 23e90-23e92 StackAdj> Δ-4 {[-4-]}
<MI 23e92 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x23e94 0x20f16> {[-4-]|[4, '(A6+0x8)']}
<POP 23e98-23e9a StackAdj> Δ+4 {[-4-]}
<MI 23e9a MOVE.L (A7)+,D6> Δ+4 {}
<MI 23e9c MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<MI 23e9e MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x23ea0 0x231cc> {[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 23ea4-23ea6 StackAdj> Δ+8 {}
<MI 23ea6 MOVE.L 0x25614,D5> {}
<POP 23ea8-23ec6 Naked> Σ0 ↓ →0x23ed2 ←0x23ed2
<MI 23ea8 MOVE.L D7,D0> {}
<MI 23eaa SUBQ.L #0x1,D0> {}
<POP 0x23eac LimitCheck 0x0 ≤ D0 ≤ 0xfff> {}
<MI 23eb6 LEA.L 0x2460c,A0> {}
<MI 23ebc MOVE.B (A0+D0.L+#0x8),D0> {}
<MI 23ec0 CMPI.B #0x25,D0> {}
<MI 23ec4 BNE 0x23ed2> {}
<POP 23ec6-23ed2 Naked> Σ0 ↓
<MI 23ec6 MOVE.L D7,0x25614> {}
<MI 23ec8 MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<MI 23eca MOVE.L D6,-(A7)> Δ-4 {[4, '(A6+0x8)']|[4, 'D6']}
<Call 0x23ecc 0x23a2a> {[4, '(A6+0x8)']|[4, 'D6']}
<POP 23ed0-23ed2 StackAdj> Δ+8 {}
<POP 23ed2-23edc Naked> Σ0 ↓ →0x23ea8 ←0x23ea8
<MI 23ed2 ADDQ.L #0x1,D7> {}
<MI 23ed4 CMP.L 0x25618,D7> {}
<MI 23eda BLE 0x23ea8> {}
<POP 23edc-23ede Naked> Σ0 ↓
<MI 23edc MOVE.L D5,0x25614> {}
<POP 23ede-23ee8 Naked> Σ0 ↓ ←0x23e76
<Pointer.fp 0x23ede <LVAR 0x00c @ 4(r)>> Δ-4 {[@@12]}
<Call 0x23ee0 0x102bc> {[@@12]}
FreeString(VAR a : String)
<POP 23ee6-23ee8 StackAdj> Δ+4 {}
<POP 23ee8-23ef0 Epilogue> Σ0
@ 23ef0
<LVAR -0x006 @ 4(r)>
<LVAR -0x00a @ 4(rw)>
<LVAR -0x00b 1(w)>
<LVAR -0x00c @ 1(r)>
<POP 23ef0-24202 Body> Δ+148
<POP 23ef0-23f06 Prologue> Σ0 ↓
<POP 23f06-23f14 RegCacheLoad> Σ0 ↓
<POP 23f14-23f3a Naked> Σ0 ↓ →0x241e4 ←0x241e4
<MI 23f14 MOVE.L 0x25614,D7> {}
<Pointer.fp 0x23f16 <LVAR -0x006 @ 4(r)>> Δ-4 {[@@-6]}
<Pointer.fp 0x23f18 <LVAR -0x00c @ 1(r)>> Δ-4 {[@@-6]|[@@-12]}
<Call 0x23f1c 0x20e6a> {[@@-6]|[@@-12]}
<POP 23f20-23f22 StackAdj> Δ+8 {}
<MI 23f22 MOVE.L 0x25614,D6> {}
<POP 23f24-23f26 StackAdj> Δ-4 {[-4-]}
<MI 23f26 MOVE.L (A6-0x6),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x6)']}
<Call 0x23f28 0x20f16> {[-4-]|[4, '(A6-0x6)']}
<POP 23f2c-23f2e StackAdj> Δ+4 {[-4-]}
<MI 23f2e MOVE.L (A7)+,D0> Δ+4 {}
<MI 23f30 CMPI.L #0xffffffff,D0> {}
<MI 23f36 BEQ 0x241e4> {}
<POP 23f3a-23f64 Naked> Σ0 ↓ →0x23f72
<POP 23f3a-23f3c StackAdj> Δ-4 {[-4-]}
<MI 23f3c MOVE.L (A6-0x6),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x6)']}
<Const 0x23f3e 0x0.4> Δ-4 {[-4-]|[4, '(A6-0x6)']|[##0]}
<Call 0x23f42 0x21832> {[-4-]|[4, '(A6-0x6)']|[##0]}
<POP 23f46-23f48 StackAdj> Δ+8 {[-4-]}
<MI 23f48 MOVE.L (A7),(A6-0xa)> {[-4-]}
<POP 23f4a-23f4c StackAdj> Δ+2 {[-2-]}
<MI 23f4c MOVE.L (A6-0xa),-(A7)> Δ-4 {[-2-]|[4, '(A6-0xa)']}
<Call 0x23f4e 0x23114> {[-2-]|[4, '(A6-0xa)']}
<POP 23f52-23f54 StackAdj> Δ+4 {[-2-]}
<MI 23f54 MOVE.B (A7)+,D0> Δ+2 {}
<MI 23f56 EXTB.W D0> {}
<POP 0x23f58 LimitCheck 0x0 ≤ D0 ≤ 0x2b> {}
<MI 23f5c MOVE.B D0,(A6-0xb)> {}
<MI 23f60 TST.B D0> {}
<MI 23f62 BNE 0x23f72> {}
<POP 23f64-23f72 Naked> Σ0 →0x241dc
<MI 23f64 MOVE.L (A6-0xa),-(A7)> Δ-4 {[4, '(A6-0xa)']}
<MI 23f66 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0xa)']|[4, '(A6-0x6)']}
<Call 0x23f68 0x23e52> {[4, '(A6-0xa)']|[4, '(A6-0x6)']}
<POP 23f6c-23f6e StackAdj> Δ+8 {}
<MI 23f6e BRA 0x241dc> {}
<POP 23f72-23fa8 Naked> Σ0 ↓ →0x23fd4 ←0x23f3a
<Pointer.fp 0x23f72 <LVAR -0x00a @ 4(rw)>> Δ-4 {[@@-10]}
<Call 0x23f74 0x102bc> {[@@-10]}
FreeString(VAR a : String)
<POP 23f7a-23f7c StackAdj> Δ+4 {}
<MI 23f7c MOVE.B D0,D1> {}
<MI 23f7e EXTB.W D1> {}
<POP 0x23f80 LimitCheck 0x0 ≤ D1 ≤ 0x2b> {}
<MI 23f84 LEA.L 0x20a0c,A0> {}
<MI 23f88 MOVE.W D1,D0> {}
<MI 23f8a EXTW.L D0> {}
<MI 23f8c MOVE.L D0,D2> {}
<MI 23f8e ROR.L #0x1,D2> {}
<MI 23f90 ADDA.W D2,A0> {}
<MI 23f92 SWAP.W D2> {}
<MI 23f94 ROL.W #0x3,D2> {}
<MI 23f96 CLR.L D3> {}
<MI 23f98 MOVE.B (A0),D3> {}
<MI 23f9a LSL.B D2,D3> {}
<MI 23f9c LSR.B #0x4,D3> {}
<MI 23f9e MOVE.L D3,D5> {}
<MI 23fa0 CMPI.L #0x0000000f,D5> {}
<MI 23fa6 BEQ 0x23fd4> {}
<POP 23fa8-23fd4 Naked> Σ0 ↓
<MI 23fa8 MOVE.L D0,D4> {}
<MI 23faa MOVEQ.L #0x0a,D3> {}
<Call 0x23fac 0x1028c> {}
?muls_d3_d4
<MI 23fb2 LEA.L 0x2083e,A0> {}
<Blob 0x23fb6 [10] (A0+D4.W)> Δ-10 {[«10»]}
<MI 23fc8 MOVE.L (A6-0x6),-(A7)> Δ-4 {[«10»]|[4, '(A6-0x6)']}
<MI 23fca MOVE.L D5,-(A7)> Δ-4 {[«10»]|[4, '(A6-0x6)']|[4, 'D5']}
<Call 0x23fcc 0x20f4c> {[«10»]|[4, '(A6-0x6)']|[4, 'D5']}
<POP 23fd0-23fd4 StackAdj> Δ+18 {}
<POP 23fd4-23fe8 Naked> Σ0 →0x2403e →0x2404a →0x2405c →0x2406a →0x241ce →0x24072 →0x24076 →0x2407e →0x24086 →0x2408e →0x24096 →0x2409e →0x240a6 →0x240ae →0x240b6 →0x240be →0x240c8 →0x240d2 →0x240dc →0x240e6 →0x240f0 →0x240fa →0x24104 →0x2410e →0x24118 →0x24122 →0x2412c →0x24136 →0x24140 →0x2414a →0x24154 →0x2415e →0x24168 →0x24172 →0x2417c →0x24186 →0x24190 →0x2419a →0x241a0 →0x241aa →0x241b4 →0x241be →0x241c4 ←0x23f72
<MI 23fd4 SUBQ.W #0x1,D1> {}
<POP 0x23fd6 LimitCheck 0x0 ≤ D1 ≤ 0x2a> {}
<MI 23fde ADD.W D1,D1> {}
<MI 23fe0 SWITCH D1.W> {}
<POP 2403e-24044 Naked> Σ0 Δ-4 ↓ ←0x23fd4
<MI 2403e MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x24040 0x219ba> {[4, '(A6-0x6)']}
<POP 24044-2404a Naked> Σ-4 Δ+4 →0x241dc ←0x2405c ←0x2406a ←0x24076 ←0x2407e ←0x24086 ←0x2408e ←0x24096 ←0x2409e ←0x240a6 ←0x240ae ←0x240b6 ←0x240be ←0x240c8 ←0x240d2 ←0x240dc ←0x240e6 ←0x240f0 ←0x240fa ←0x24104 ←0x2410e ←0x24118 ←0x24122 ←0x2412c ←0x24136 ←0x24140 ←0x2414a ←0x24154 ←0x2415e ←0x24168 ←0x24172 ←0x2417c ←0x24186 ←0x24190 ←0x241a0 ←0x241aa ←0x241b4 ←0x241c4
<POP 24044-24046 StackAdj> Δ+4 {}
<MI 24046 BRA 0x241dc> {}
<POP 2404a-2405c Naked> Σ0 →0x241dc ←0x23fd4
<MI 2404a CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x2404c 0x1.4> Δ-4 {[#0]|[##1]}
<Call 0x24050 0x103b8> {[#0]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 24056-24058 StackAdj> Δ+6 {}
<MI 24058 BRA 0x241dc> {}
<POP 2405c-2406a Naked> Σ0 Δ-4 →0x24044 ←0x23fd4
<POP 2405c-2405e StackAdj> Δ-4 {[-4-]}
<Call 0x2405e 0x102ac> {[-4-]}
FSCALL_102ac
<Call 0x24064 0x21990> {[-4-]}
<MI 24068 BRA 0x24044> {[-4-]}
<POP 2406a-24072 Naked> Σ0 Δ-4 →0x24044 ←0x23fd4
<MI 2406a MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x2406c 0x21b94> {[4, '(A6-0x6)']}
<MI 24070 BRA 0x24044> {[4, '(A6-0x6)']}
<POP 24072-24076 Naked> Σ0 →0x241dc ←0x23fd4
<MI 24072 BRA 0x241dc> {}
<POP 24076-2407e Naked> Σ0 Δ-4 →0x24044 ←0x23fd4
<MI 24076 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x24078 0x21eba> {[4, '(A6-0x6)']}
<MI 2407c BRA 0x24044> {[4, '(A6-0x6)']}
<POP 2407e-24086 Naked> Σ0 Δ-4 →0x24044 ←0x23fd4
<MI 2407e MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x24080 0x22026> {[4, '(A6-0x6)']}
<MI 24084 BRA 0x24044> {[4, '(A6-0x6)']}
<POP 24086-2408e Naked> Σ0 Δ-4 →0x24044 ←0x23fd4
<MI 24086 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x24088 0x22114> {[4, '(A6-0x6)']}
<MI 2408c BRA 0x24044> {[4, '(A6-0x6)']}
<POP 2408e-24096 Naked> Σ0 Δ-4 →0x24044 ←0x23fd4
<MI 2408e MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x24090 0x22508> {[4, '(A6-0x6)']}
<MI 24094 BRA 0x24044> {[4, '(A6-0x6)']}
<POP 24096-2409e Naked> Σ0 Δ-4 →0x24044 ←0x23fd4
<MI 24096 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x24098 0x22580> {[4, '(A6-0x6)']}
<MI 2409c BRA 0x24044> {[4, '(A6-0x6)']}
<POP 2409e-240a6 Naked> Σ0 Δ-4 →0x24044 ←0x23fd4
<MI 2409e MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x240a0 0x225f8> {[4, '(A6-0x6)']}
<MI 240a4 BRA 0x24044> {[4, '(A6-0x6)']}
<POP 240a6-240ae Naked> Σ0 Δ-4 →0x24044 ←0x23fd4
<MI 240a6 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x240a8 0x22624> {[4, '(A6-0x6)']}
<MI 240ac BRA 0x24044> {[4, '(A6-0x6)']}
<POP 240ae-240b6 Naked> Σ0 Δ-4 →0x24044 ←0x23fd4
<MI 240ae MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x240b0 0x22724> {[4, '(A6-0x6)']}
<MI 240b4 BRA 0x24044> {[4, '(A6-0x6)']}
<POP 240b6-240be Naked> Σ0 Δ-4 →0x24044 ←0x23fd4
<MI 240b6 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x240b8 0x2280a> {[4, '(A6-0x6)']}
<MI 240bc BRA 0x24044> {[4, '(A6-0x6)']}
<POP 240be-240c8 Naked> Σ0 Δ-4 →0x24044 ←0x23fd4
<MI 240be MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x240c0 0x22836> {[4, '(A6-0x6)']}
<MI 240c4 BRA 0x24044> {[4, '(A6-0x6)']}
<POP 240c8-240d2 Naked> Σ0 Δ-4 →0x24044 ←0x23fd4
<MI 240c8 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x240ca 0x22882> {[4, '(A6-0x6)']}
<MI 240ce BRA 0x24044> {[4, '(A6-0x6)']}
<POP 240d2-240dc Naked> Σ0 Δ-4 →0x24044 ←0x23fd4
<MI 240d2 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x240d4 0x228ce> {[4, '(A6-0x6)']}
<MI 240d8 BRA 0x24044> {[4, '(A6-0x6)']}
<POP 240dc-240e6 Naked> Σ0 Δ-4 →0x24044 ←0x23fd4
<MI 240dc MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x240de 0x2291a> {[4, '(A6-0x6)']}
<MI 240e2 BRA 0x24044> {[4, '(A6-0x6)']}
<POP 240e6-240f0 Naked> Σ0 Δ-4 →0x24044 ←0x23fd4
<MI 240e6 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x240e8 0x22966> {[4, '(A6-0x6)']}
<MI 240ec BRA 0x24044> {[4, '(A6-0x6)']}
<POP 240f0-240fa Naked> Σ0 Δ-4 →0x24044 ←0x23fd4
<MI 240f0 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x240f2 0x229b2> {[4, '(A6-0x6)']}
<MI 240f6 BRA 0x24044> {[4, '(A6-0x6)']}
<POP 240fa-24104 Naked> Σ0 Δ-4 →0x24044 ←0x23fd4
<MI 240fa MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x240fc 0x229fe> {[4, '(A6-0x6)']}
<MI 24100 BRA 0x24044> {[4, '(A6-0x6)']}
<POP 24104-2410e Naked> Σ0 Δ-4 →0x24044 ←0x23fd4
<MI 24104 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x24106 0x22a48> {[4, '(A6-0x6)']}
<MI 2410a BRA 0x24044> {[4, '(A6-0x6)']}
<POP 2410e-24118 Naked> Σ0 Δ-4 →0x24044 ←0x23fd4
<MI 2410e MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x24110 0x22a92> {[4, '(A6-0x6)']}
<MI 24114 BRA 0x24044> {[4, '(A6-0x6)']}
<POP 24118-24122 Naked> Σ0 Δ-4 →0x24044 ←0x23fd4
<MI 24118 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x2411a 0x22adc> {[4, '(A6-0x6)']}
<MI 2411e BRA 0x24044> {[4, '(A6-0x6)']}
<POP 24122-2412c Naked> Σ0 Δ-4 →0x24044 ←0x23fd4
<MI 24122 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x24124 0x22b26> {[4, '(A6-0x6)']}
<MI 24128 BRA 0x24044> {[4, '(A6-0x6)']}
<POP 2412c-24136 Naked> Σ0 Δ-4 →0x24044 ←0x23fd4
<MI 2412c MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x2412e 0x22b70> {[4, '(A6-0x6)']}
<MI 24132 BRA 0x24044> {[4, '(A6-0x6)']}
<POP 24136-24140 Naked> Σ0 Δ-4 →0x24044 ←0x23fd4
<MI 24136 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x24138 0x22bba> {[4, '(A6-0x6)']}
<MI 2413c BRA 0x24044> {[4, '(A6-0x6)']}
<POP 24140-2414a Naked> Σ0 Δ-4 →0x24044 ←0x23fd4
<MI 24140 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x24142 0x22c04> {[4, '(A6-0x6)']}
<MI 24146 BRA 0x24044> {[4, '(A6-0x6)']}
<POP 2414a-24154 Naked> Σ0 Δ-4 →0x24044 ←0x23fd4
<MI 2414a MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x2414c 0x22c4e> {[4, '(A6-0x6)']}
<MI 24150 BRA 0x24044> {[4, '(A6-0x6)']}
<POP 24154-2415e Naked> Σ0 Δ-4 →0x24044 ←0x23fd4
<MI 24154 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x24156 0x22c92> {[4, '(A6-0x6)']}
<MI 2415a BRA 0x24044> {[4, '(A6-0x6)']}
<POP 2415e-24168 Naked> Σ0 Δ-4 →0x24044 ←0x23fd4
<MI 2415e MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x24160 0x22cd8> {[4, '(A6-0x6)']}
<MI 24164 BRA 0x24044> {[4, '(A6-0x6)']}
<POP 24168-24172 Naked> Σ0 Δ-4 →0x24044 ←0x23fd4
<MI 24168 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x2416a 0x22d0e> {[4, '(A6-0x6)']}
<MI 2416e BRA 0x24044> {[4, '(A6-0x6)']}
<POP 24172-2417c Naked> Σ0 Δ-4 →0x24044 ←0x23fd4
<MI 24172 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x24174 0x22d9e> {[4, '(A6-0x6)']}
<MI 24178 BRA 0x24044> {[4, '(A6-0x6)']}
<POP 2417c-24186 Naked> Σ0 Δ-4 →0x24044 ←0x23fd4
<MI 2417c MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x2417e 0x22e10> {[4, '(A6-0x6)']}
<MI 24182 BRA 0x24044> {[4, '(A6-0x6)']}
<POP 24186-24190 Naked> Σ0 Δ-4 →0x24044 ←0x23fd4
<MI 24186 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x24188 0x22176> {[4, '(A6-0x6)']}
<MI 2418c BRA 0x24044> {[4, '(A6-0x6)']}
<POP 24190-2419a Naked> Σ0 Δ-4 →0x24044 ←0x23fd4
<MI 24190 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x24192 0x221e0> {[4, '(A6-0x6)']}
<MI 24196 BRA 0x24044> {[4, '(A6-0x6)']}
<POP 2419a-241a0 Naked> Σ0 →0x241dc ←0x23fd4
<Call 0x2419a 0x221b2> {}
<MI 2419e BRA 0x241dc> {}
<POP 241a0-241aa Naked> Σ0 Δ-4 →0x24044 ←0x23fd4
<MI 241a0 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x241a2 0x22e82> {[4, '(A6-0x6)']}
<MI 241a6 BRA 0x24044> {[4, '(A6-0x6)']}
<POP 241aa-241b4 Naked> Σ0 Δ-4 →0x24044 ←0x23fd4
<MI 241aa MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x241ac 0x22f04> {[4, '(A6-0x6)']}
<MI 241b0 BRA 0x24044> {[4, '(A6-0x6)']}
<POP 241b4-241be Naked> Σ0 Δ-4 →0x24044 ←0x23fd4
<MI 241b4 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x241b6 0x22f84> {[4, '(A6-0x6)']}
<MI 241ba BRA 0x24044> {[4, '(A6-0x6)']}
<POP 241be-241c4 Naked> Σ0 →0x241dc ←0x23fd4
<Call 0x241be 0x23048> {}
<MI 241c2 BRA 0x241dc> {}
<POP 241c4-241ce Naked> Σ0 Δ-4 →0x24044 ←0x23fd4
<MI 241c4 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x241c6 0x23068> {[4, '(A6-0x6)']}
<MI 241ca BRA 0x24044> {[4, '(A6-0x6)']}
<POP 241ce-241dc Naked> Σ0 ←0x23fd4
<POP 241ce-241dc Bailout> {}
<MI 241ce MOVEA.L (A5+0x8),A7>
<MI 241d2 MOVEA.W #0x0,A6>
<MI 241d6 JMP 0x243e6>
<POP 241dc-241e4 Naked> Σ0 ↓ ←0x23f64 ←0x24044 ←0x2404a ←0x24072 ←0x2419a ←0x241be
<MI 241dc MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x241de 0x20ac8> {[4, '(A6-0x6)']}
<POP 241e2-241e4 StackAdj> Δ+4 {}
<POP 241e4-241fa Naked> Σ0 ↓ →0x23f14 ←0x23f14
<MI 241e4 MOVE.L D6,-(A7)> Δ-4 {[4, 'D6']}
<MI 241e6 MOVE.L D6,-(A7)> Δ-4 {[4, 'D6']|[4, 'D6']}
<MI 241e8 SUB.L D7,(A7)> {[4, 'D6']|[-4-]}
<Call 0x241ea 0x2105e> {[4, 'D6']|[-4-]}
<POP 241ee-241f0 StackAdj> Δ+8 {}
<MI 241f0 MOVE.L D7,0x25614> {}
<MI 241f2 TST.B (A6-0xc)> {}
<MI 241f6 BEQ 0x23f14> {}
<POP 241fa-24202 Epilogue> Σ0
@ 24202
START
<POP 24202--0001 Body>
<POP 24202-2420c Prologue> Σ0
<POP 2420c-2423c Naked> Σ0 ↓ →0x242a4
<MI 2420c MOVE.L #0x1,0x2563e> {}
<POP 24216-24218 StackAdj> Δ-4 {[-4-]}
<Call 0x24218 0x103c4> {[-4-]}
GetArgv() : String
<MI 2421e MOVE.L (A7)+,0x25642> Δ+4 {}
<Const 0x24224 0x2561c.4> Δ-4 {[##153116]}
<Call 0x2422a 0x20418> {[##153116]}
<POP 24230-24232 StackAdj> Δ+4 {}
<MI 24232 MOVEA.L 0x25642,A0> {}
<MI 24238 TST.W (A0)> {}
<MI 2423a BLE 0x242a4> {}
<POP 2423c-242a4 Naked> Σ0 →0x242de
<Blob 0x2423c [8] @> Δ-8 {[«8""»]}
<Blob 0x2424c [8] @> Δ-8 {[«8""»]|[«8""»]}
<POP 2425c-2425e StackAdj> Δ-8 {[«8""»]|[«8""»]|[-8-]}
<Lit 0x2425e 7> {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]}
<POP 24270-24272 StackAdj> Δ-4 {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]|[-4-]}
<POP 24272-24273 StackAdj> Δ+4 {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]}
<Blob 0x24273 [4] 0x25642> Δ-4 {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]|[«4»]}
<POP 24278-2427a StackAdj> Δ-4 {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]|[«4»]|[-4-]}
<Lit 0x2427a 7> {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]|[«4»]|[$$][BYE];]}
<Call 0x2428e 0x102d4> {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]|[«4»]|[$$][BYE];]}
StringCat3(a, b, c : String) : String
<POP 24294-24298 StackAdj> Δ+12 {[«8""»]|[«8""»]|[-4-]}
<MI 24298 MOVE.L (A7)+,0x25642> Δ+4 {[«8""»]|[«8""»]}
<POP 2429e-242a2 StackAdj> Δ+16 {}
<MI 242a2 BRA 0x242de> {}
<POP 242a4-242de Naked> Σ0 ↓ ←0x2420c
<Const 0x242a4 0x25642.4> Δ-4 {[##153154]}
<Call 0x242aa 0x102bc> {[##153154]}
FreeString(VAR a : String)
<POP 242b0-242b1 StackAdj> Δ+4 ↓ {}
<Blob 0x242b1 [8] @> Δ-8 {[«8""»]}
<POP 242c0-242c2 StackAdj> Δ-4 {[«8""»]|[-4-]}
<Lit 0x242c2 7> {[«8""»]|[$$[INIT];]}
<MI 242d6 MOVE.L (A7)+,0x25642> Δ+4 {[«8""»]}
<POP 242dc-242de StackAdj> Δ+8 {}
<POP 242de-242e6 Naked> Σ0 ↓ ←0x2423c
<MI 242de MOVE.B #0x01,0x2564c> {}
<POP 242e6-242ee Naked> Σ0 ↓ →0x242f8 ←0x243f4
<MI 242e6 TST.B 0x2564c> {}
<MI 242ec BEQ 0x242f8> {}
<POP 242ee-242f8 Naked> Σ0 →0x243a6
<MI 242ee CLR.B 0x2564c> {}
<MI 242f4 BRA 0x243a6> {}
<POP 242f8-243a6 Naked> Σ0 ↓ ←0x242e6
<Blob 0x242f8 [10] 0x25626> Δ-10 {[«10»]}
<Blob 0x24306 [2] @> Δ-2 {[«10»]|[«2""»]}
<POP 2430a-2430e StackAdj> Δ-12 {[«10»]|[«2""»]|[-12-]}
<Lit 0x2430e> {[«10»]|[«2""»]|[-8-]|[$$…]}
<Pointer.sp 0x2430e 14> Δ-4
<Const 0x24312 0x1.2> Δ-2
<Const 0x24316 0xa.2> Δ-2
<Call 0x2431a 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 24320-24322 StackAdj> Δ+8
<POP 24320-24322 StackAdj> Δ-4 {[«10»]|[«2""»]|[-8-]|[$$…]|[-4-]}
<Lit 0x24322 2> {[«10»]|[«2""»]|[-8-]|[$$…]|[$$>_]}
<Call 0x24336 0x102d0> {[«10»]|[«2""»]|[-8-]|[$$…]|[$$>_]}
StringCat2(a, b : String) : String
<POP 2433c-2433e StackAdj> Δ+8 {[«10»]|[«2""»]|[-8-]}
<Call 0x2433e 0x103e4> {[«10»]|[«2""»]|[-8-]}
AskConsoleString(prompt : String) : String
<POP 24344-24346 StackAdj> Δ+4 {[«10»]|[«2""»]|[-4-]}
<MI 24346 MOVE.L (A7)+,0x25648> Δ+4 {[«10»]|[«2""»]}
<POP 2434c-2434e StackAdj> Δ+8 {[-4-]}
<POP 2434e-2434f StackAdj> Δ+4 {}
<Blob 0x2434f [4] 0x25648> Δ-4 {[«4»]}
<Call 0x24354 0x20d62> {[«4»]}
<POP 24358-2435a StackAdj> Δ+2 {[-2-]}
<POP 2435a-2435b StackAdj> Δ+2 {}
<Blob 0x2435b [2] @> Δ-2 {[«2""»]}
<Blob 0x2435e [2] @> Δ-2 {[«2""»]|[«2""»]}
<POP 24362-24364 StackAdj> Δ-8 {[«2""»]|[«2""»]|[-8-]}
<Lit 0x24364 2> {[«2""»]|[«2""»]|[-4-]|[$$[ ]}
<POP 24376-24378 StackAdj> Δ-4 {[«2""»]|[«2""»]|[-4-]|[$$[ ]|[-4-]}
<POP 24378-24379 StackAdj> Δ+4 {[«2""»]|[«2""»]|[-4-]|[$$[ ]}
<Blob 0x24379 [4] 0x25648> Δ-4 {[«2""»]|[«2""»]|[-4-]|[$$[ ]|[«4»]}
<POP 2437e-24380 StackAdj> Δ-4 {[«2""»]|[«2""»]|[-4-]|[$$[ ]|[«4»]|[-4-]}
<Lit 0x24380 2> {[«2""»]|[«2""»]|[-4-]|[$$[ ]|[«4»]|[$$];]}
<Call 0x24394 0x102d4> {[«2""»]|[«2""»]|[-4-]|[$$[ ]|[«4»]|[$$];]}
StringCat3(a, b, c : String) : String
<POP 2439a-2439e StackAdj> Δ+12 {[«2""»]|[«2""»]|[-4-]}
<MI 2439e MOVE.L (A7)+,0x25642> Δ+4 {[«2""»]|[«2""»]}
<POP 243a4-243a6 StackAdj> Δ+4 {}
<POP 243a6-243d2 Naked> Σ0 ↓ ←0x242ee
<MI 243a6 CLR.B 0x25646> {}
<MI 243ac MOVE.L #0x1,0x25614> {}
<MI 243b6 CLR.L 0x25618> {}
<POP 243bc-243be StackAdj> Δ-4 {[-4-]}
<Blob 0x243be [4] 0x25642> Δ-4 {[-4-]|[«4»]}
<Call 0x243c4 0x102cc> {[-4-]|[«4»]}
StringDup(a : String) : String
<POP 243ca-243cc StackAdj> Δ+4 {[-4-]}
<Call 0x243cc 0x218d4> {[-4-]}
<POP 243d0-243d2 StackAdj> Δ+4 {}
<POP 243d2-243e0 Naked> Σ0 ↓ →0x243e6 ←0x243e0
<MI 243d2 MOVE.L 0x25614,D0> {}
<MI 243d8 CMP.L 0x25618,D0> {}
<MI 243de BGT 0x243e6> {}
<POP 243e0-243e6 Naked> Σ0 →0x243d2
<Call 0x243e0 0x23ef0> {}
<MI 243e4 BRA 0x243d2> {}
<POP 243e6-243f4 Naked> Σ0 ↓ ←0x243d2
<Const 0x243e6 0x25642.4> Δ-4 {[##153154]}
<Call 0x243ec 0x102bc> {[##153154]}
FreeString(VAR a : String)
<POP 243f2-243f4 StackAdj> Δ+4 {}
<POP 243f4-243f8 Naked> Σ0 →0x242e6
<MI 243f4 BRA 0x242e6> {}
@ 2440c
PROG_FAIL
<LVAR 0x008 1(r)>
<POP 2440c-24474 Body>
<POP 2440c-24422 Prologue> Σ0 ↓
<POP 24422-2446c Naked> Σ0 ↓
<Blob 0x24422 [14] @> Δ-14 {[«14""»]}
<Const 0x2442e 0x3.2> Δ-2 {[«14""»]|[#3]}
<POP 24432-24434 StackAdj> Δ-8 {[«14""»]|[#3]|[-8-]}
<Lit 0x24434 14> {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
<POP 24446-24448 StackAdj> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 24448 MOVE.B (A6+0x8),D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 2444c EXTB.W D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 2444e EXTW.L D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 24450 MOVE.L D0,-(A7)> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
<Call 0x24452 0x102e4> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 24458-2445a StackAdj> Δ+4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<Call 0x2445a 0x102d0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 24460-24462 StackAdj> Δ+8 {[«14""»]|[#3]|[-4-]}
<Call 0x24462 0x103b8> {[«14""»]|[#3]|[-4-]}
PopProgram(status : Byte; msg : String)
<POP 24468-2446c StackAdj> Δ+20 {}
<POP 2446c-24474 Epilogue> Σ0
@ 244c8
EXP_FAIL
<LVAR 0x00e 1(r)>
<LVAR 0x00a 4(r)>
<LVAR 0x008 1(r)>
<POP 244c8-24604 Body>
<POP 244c8-244de Prologue> Σ0 ↓
<POP 244de-244f4 RegCacheLoad> Σ0 ↓
<POP 244f4-24554 Naked> Σ0 ↓ →0x2459c
<Call 0x244f4 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x244fa [18] @> Δ-18 {[«18""»]}
<POP 24506-24508 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x24508 18> {[«18""»]|[$$Experiment error :]}
<Call 0x24514 0x103e0> {[«18""»]|[$$Experiment error :]}
WriteConsoleStringCrLf(str : String)
<POP 24516-24517 StackAdj> Δ+22 ↓ {}
<Blob 0x24517 [14] @> Δ-14 {[«14""»]}
<POP 24526-24528 StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x24528 13> {[«14""»]|[-4-]|[$$Board :_]}
<POP 24532-24534 StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<MI 24534 MOVE.B (A6+0xe),(A7)> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<Call 0x24538 0x1049c> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
BoardName(address : B) : String
<POP 2453e-24540 StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
<Call 0x24540 0x102d0> {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 24546-24548 StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x24548 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 2454a-2454c StackAdj> Δ+18 {}
<MI 2454c MOVEA.L (A6+0xa),A0> {}
<MI 24550 CMPA.W #0x01,A0> {}
<MI 24552 BEQ 0x2459c> {}
<POP 24554-2459c Naked> Σ0 ↓
<Blob 0x24554 [14] @> Δ-14 {[«14""»]}
<Blob 0x24564 [30] (A0+0xfc)> Δ-30 {[«14""»]|[«30»]}
<POP 24574-24576 StackAdj> Δ-8 {[«14""»]|[«30»]|[-8-]}
<Lit 0x24576 13> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
<POP 24580-24582 StackAdj> Δ-4 {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
<Lit 0x24582> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
<Pointer.sp 0x24582 12> Δ-4
<Const 0x24586 0x1.2> Δ-2
<Const 0x24588 0x1e.2> Δ-2
<Call 0x2458a 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 2458c-2458e StackAdj> Δ+8
<Call 0x2458e 0x102d0> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
StringCat2(a, b : String) : String
<POP 24594-24596 StackAdj> Δ+8 {[«14""»]|[«30»]|[-4-]}
<Call 0x24596 0x103e0> {[«14""»]|[«30»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 24598-2459c StackAdj> Δ+48 {}
<POP 2459c-245fc Naked> Σ0 ↓ ←0x244f4
<Blob 0x2459c [14] @> Δ-14 {[«14""»]}
<POP 245ac-245ae StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x245ae 13> {[«14""»]|[-4-]|[$$Status :_]}
<POP 245b8-245ba StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<MI 245ba MOVE.B (A6+0x8),(A7)> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<Call 0x245be 0x104a2> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
ExpStatus2Text(status.B, &String)
<POP 245c4-245c6 StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
<Call 0x245c6 0x102d0> {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 245cc-245ce StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x245ce 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 245d0-245d1 StackAdj> Δ+18 ↓ {}
<Blob 0x245d1 [24] @> Δ-24 {[«24""»]}
<Const 0x245e0 0x2.2> Δ-2 {[«24""»]|[#2]}
<POP 245e4-245e6 StackAdj> Δ-4 {[«24""»]|[#2]|[-4-]}
<Lit 0x245e6 23> {[«24""»]|[#2]|[$$Fatal experiment error.]}
<Call 0x245f4 0x103b8> {[«24""»]|[#2]|[$$Fatal experiment error.]}
PopProgram(status : Byte; msg : String)
<POP 245fa-245fc StackAdj> Δ+30 {}
<POP 245fc-24604 Epilogue> Σ0
00020000 ; -------------------------------------------------------------------------------------- 00020000 ; R1000.Disassembly modules: 00020000 ; import all 00020000 ; import kind.program 00020000 ; no ident.5820b66a33a0493f 00020000 ; -------------------------------------------------------------------------------------- 00020000 stack.top: 00020000 00 04 00 00 | | .CODE 0x40000 ; STACK.END 00020004 00 02 42 02 | B | .CODE START 00020008 00 01 02 88 | | .CODE FSCALL_10288 0002000c heap.top: 0002000c 00 02 56 60 | V` | .PTR 0x25660 00020010 code.end: 00020010 00 02 46 04 | F | .PTR 0x24604 00020014 00 00 00 00 | | .CONST 0x00000000 00020018 programfailurehandler: 00020018 00 02 44 0c | D | .CODE PROG_FAIL 0002001c experimentfailurehandler: 0002001c 00 02 44 c8 | D | .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 20 20 20 5f | _ | .TXT ' _' 0002010e 4b 45 |KE | .TXT 'KE' 00020110 59 20 |Y | .XXX[0x2] 00020112 4e 6f 20 2f 4b 45 59 20 |No /KEY | .TXT 'No /KEY switch' 00020120 54 6f 74 61 6c 20 6f 66 |Total of| .TXT 'Total of_ ' 0002012a 20 6f 63 63 75 72 72 65 | occurre| .TXT ' occurrences found. ' 0002013e 46 49 4e 44 |FIND | .TXT 'FIND' 00020142 53 43 41 4e 20 20 |SCAN | .XXX[0x6] 00020148 20 20 20 20 | | .XXX[0x4] 0002014c ; -------------------------------------------------------------------------------------- 0002014c ; OMSI PASCAL Function 0002014c ; <LVAR 0x010 4(w)> 0002014c ; <LVAR 0x00c 4(r)> 0002014c ; <LVAR 0x008 4(r)> 0002014c ; <LVAR -0x008 @ 1(r)> 0002014c ; <LVAR -0x00c @ 4(rw)> 0002014c ; <LVAR -0x010 @ 4(r)> 0002014c ; -------------------------------------------------------------------------------------- 0002014c 4e 56 ff a2 |NV | LINK.W A6,#0xffa2 00020150 bf d5 | | CMPA.L (A5),A7 00020152 62 06 |b | BHI 0x2015a 00020154 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020158 4e 76 |Nv | TRAPV 0002015a de fc 00 4e | N | ADDA.W #0x4e,A7 0002015e 48 e7 e1 f0 |H | MOVEM.L A3+A2+A1+A0+D7+D2+D1+D0,-(A7) 00020162 45 ee ff f4 |E | LEA.L (A6-0xc),A2 00020166 47 ee ff f0 |G | LEA.L (A6-0x10),A3 0002016a 72 01 |r | MOVEQ.L #0x01,D1 0002016c 74 1e |t | MOVEQ.L #0x1e,D2 0002016e 7e 00 |~ | MOVEQ.L #0x00,D7 00020170 48 52 |HR | PEA.L (A2) 00020172 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00020178 54 4f |TO | ADDQ.L #0x2,A7 0002017a 1e 81 | | MOVE.B D1,(A7) 0002017c 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 00020180 2f 10 |/ | MOVE.L (A0),-(A7) 00020182 48 53 |HS | PEA.L (A3) 00020184 4e b9 00 01 04 58 |N X | JSR DirFirst(MOD c : Bool; a : String; VAR b : File) 0002018a de fc 00 0a | | ADDA.W #0xa,A7 0002018e 20 53 | S | MOVEA.L (A3),A0 00020190 b0 c1 | | CMPA.W D1,A0 00020192 67 00 00 a8 |g | BEQ 0x2023c 00020196 2f 13 |/ | MOVE.L (A3),-(A7) 00020198 48 52 |HR | PEA.L (A2) 0002019a 48 6e ff f8 |Hn | PEA.L (A6-0x8) 0002019e 4e b9 00 01 04 3c |N < | JSR FileReadLine(file : File; VAR a : String; VAR b : Byte) 000201a4 58 4f |XO | ADDQ.L #0x4,A7 000201a6 2e 92 |. | MOVE.L (A2),(A7) 000201a8 4e b9 00 01 02 f0 |N | JSR ToUpper(a : String) : String 000201ae 58 4f |XO | ADDQ.L #0x4,A7 000201b0 24 97 |$ | MOVE.L (A7),(A2) 000201b2 2f 12 |/ | MOVE.L (A2),-(A7) 000201b4 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000201b8 4e b9 00 01 03 00 |N | JSR FSCALL_10300 000201be 50 4f |PO | ADDQ.L #0x8,A7 000201c0 4a 9f |J | TST.L (A7)+ 000201c2 67 60 |g` | BEQ 0x20224 000201c4 4a 87 |J | TST.L D7 000201c6 66 2a |f* | BNE 0x201f2 000201c8 20 53 | S | MOVEA.L (A3),A0 000201ca 9e c2 | | SUBA.W D2,A7 000201cc 22 4f |"O | MOVEA.L A7,A1 000201ce 70 1d |p | MOVEQ.L #0x1d,D0 000201d0 12 d8 | | MOVE.B (A0)+,(A1)+ 000201d2 51 c8 ff fc |Q | DBF D0,0x201d0 000201d6 59 4f |YO | SUBQ.L #0x4,A7 000201d8 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000201dc 3f 01 |? | MOVE.W D1,-(A7) 000201de 3f 02 |? | MOVE.W D2,-(A7) 000201e0 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000201e6 50 4f |PO | ADDQ.L #0x8,A7 000201e8 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000201ee de fc 00 22 | " | ADDA.W #0x22,A7 000201f2 2f 3a ff 16 |/: | MOVE.L 0x2010a,-(A7) 000201f6 51 4f |QO | SUBQ.L #0x8,A7 000201f8 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000201fc 3f 01 |? | MOVE.W D1,-(A7) 000201fe 3f 3c 00 04 |?< | MOVE.W #0x4,-(A7) 00020202 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020208 2e 92 |. | MOVE.L (A2),(A7) 0002020a 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 00020210 58 4f |XO | ADDQ.L #0x4,A7 00020212 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020218 50 4f |PO | ADDQ.L #0x8,A7 0002021a 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00020220 50 4f |PO | ADDQ.L #0x8,A7 00020222 52 87 |R | ADDQ.L #0x1,D7 00020224 4a 2e ff f8 |J. | TST.B (A6-0x8) 00020228 67 00 ff 6c |g l | BEQ 0x20196 0002022c 42 27 |B' | CLR.B -(A7) 0002022e 48 53 |HS | PEA.L (A3) 00020230 4e b9 00 01 04 5c |N \ | JSR DirNext(MOD a : Bool; VAR b : File) 00020236 5c 4f |\O | ADDQ.L #0x6,A7 00020238 60 00 ff 54 |` T | BRA 0x2018e 0002023c 48 52 |HR | PEA.L (A2) 0002023e 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00020244 58 4f |XO | ADDQ.L #0x4,A7 00020246 2d 47 00 10 |-G | MOVE.L D7,(A6+0x10) 0002024a 4c df 0f 87 |L | MOVEM.L (A7)+,D0+D1+D2+D7+A0+A1+A2+A3 0002024e 4e 5e |N^ | UNLK A6 00020250 4e 75 |Nu | RTS 00020252 ; -------------------------------------------------------------------------------------- 00020252 ; OMSI PASCAL Function 00020252 ; <LVAR 0x008 4(r)> 00020252 ; <LVAR -0x00c @> 00020252 ; <LVAR -0x010 @ 4(w)> 00020252 ; <LVAR -0x014 @ 4(rw)> 00020252 ; <LVAR -0x018 @ 4(rw)> 00020252 ; -------------------------------------------------------------------------------------- 00020252 4e 56 ff 82 |NV | LINK.W A6,#0xff82 00020256 bf d5 | | CMPA.L (A5),A7 00020258 62 06 |b | BHI 0x20260 0002025a 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002025e 4e 76 |Nv | TRAPV 00020260 de fc 00 66 | f | ADDA.W #0x66,A7 00020264 48 e7 f3 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D3+D2+D1+D0,-(A7) 00020268 45 ee ff ec |E | LEA.L (A6-0x14),A2 0002026c 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 00020272 49 ee ff e8 |I | LEA.L (A6-0x18),A4 00020276 72 01 |r | MOVEQ.L #0x01,D1 00020278 74 14 |t | MOVEQ.L #0x14,D2 0002027a 76 0e |v | MOVEQ.L #0x0e,D3 0002027c 59 4f |YO | SUBQ.L #0x4,A7 0002027e 1e ba fe 8e | | MOVE.B 0x2010e,(A7) 00020282 1f 7a fe 8b 00 01 | z | MOVE.B 0x2010f,(A7+0x1) 00020288 1f 7a fe 86 00 02 | z | MOVE.B 0x20110,(A7+0x2) 0002028e 59 4f |YO | SUBQ.L #0x4,A7 00020290 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020294 3f 01 |? | MOVE.W D1,-(A7) 00020296 3f 3c 00 03 |?< | MOVE.W #0x3,-(A7) 0002029a 4e 93 |N | JSR (A3) 0002029c 50 4f |PO | ADDQ.L #0x8,A7 0002029e 28 9f |( | MOVE.L (A7)+,(A4) 000202a0 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7) 000202a4 48 78 00 00 |Hx | PEA.L 0x0 000202a8 2f 14 |/ | MOVE.L (A4),-(A7) 000202aa 48 52 |HR | PEA.L (A2) 000202ac 48 6e ff f4 |Hn | PEA.L (A6-0xc) 000202b0 4e b9 00 02 3d 6a |N =j | JSR 0x23d6a 000202b6 de c2 | | ADDA.W D2,A7 000202b8 48 54 |HT | PEA.L (A4) 000202ba 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000202c0 58 4f |XO | ADDQ.L #0x4,A7 000202c2 20 52 | R | MOVEA.L (A2),A0 000202c4 b0 c1 | | CMPA.W D1,A0 000202c6 66 24 |f$ | BNE 0x202ec 000202c8 43 fa fe 56 |C V | LEA.L 0x20120,A1 000202cc 70 06 |p | MOVEQ.L #0x06,D0 000202ce 3f 21 |?! | MOVE.W -(A1),-(A7) 000202d0 51 c8 ff fc |Q | DBF D0,0x202ce 000202d4 1f 03 | | MOVE.B D3,-(A7) 000202d6 59 4f |YO | SUBQ.L #0x4,A7 000202d8 48 6f 00 06 |Ho | PEA.L (A7+0x6) 000202dc 3f 01 |? | MOVE.W D1,-(A7) 000202de 3f 03 |? | MOVE.W D3,-(A7) 000202e0 4e 93 |N | JSR (A3) 000202e2 50 4f |PO | ADDQ.L #0x8,A7 000202e4 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 000202ea de c2 | | ADDA.W D2,A7 000202ec 59 4f |YO | SUBQ.L #0x4,A7 000202ee 2f 08 |/ | MOVE.L A0,-(A7) 000202f0 4e b9 00 01 02 f0 |N | JSR ToUpper(a : String) : String 000202f6 58 4f |XO | ADDQ.L #0x4,A7 000202f8 24 9f |$ | MOVE.L (A7)+,(A2) 000202fa 7e 00 |~ | MOVEQ.L #0x00,D7 000202fc 59 4f |YO | SUBQ.L #0x4,A7 000202fe 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00020302 4e b9 00 02 0f 16 |N | JSR 0x20f16 00020308 58 4f |XO | ADDQ.L #0x4,A7 0002030a 7c 01 || | MOVEQ.L #0x01,D6 0002030c bc 97 | | CMP.L (A7),D6 0002030e 6e 26 |n& | BGT 0x20336 00020310 59 4f |YO | SUBQ.L #0x4,A7 00020312 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00020316 2f 06 |/ | MOVE.L D6,-(A7) 00020318 4e b9 00 02 18 32 |N 2 | JSR 0x21832 0002031e 50 4f |PO | ADDQ.L #0x8,A7 00020320 2d 57 ff f0 |-W | MOVE.L (A7),(A6-0x10) 00020324 48 6e ff f0 |Hn | PEA.L (A6-0x10) 00020328 2f 12 |/ | MOVE.L (A2),-(A7) 0002032a 4e ba fe 20 |N | JSR 0x2014c 0002032e 50 4f |PO | ADDQ.L #0x8,A7 00020330 de 9f | | ADD.L (A7)+,D7 00020332 52 86 |R | ADDQ.L #0x1,D6 00020334 68 d6 |h | BVC 0x2030c 00020336 58 4f |XO | ADDQ.L #0x4,A7 00020338 be 81 | | CMP.L D1,D7 0002033a 6f 5a |oZ | BLE 0x20396 0002033c 9e fc 00 0a | | SUBA.W #0xa,A7 00020340 20 4f | O | MOVEA.L A7,A0 00020342 43 fa fd dc |C | LEA.L 0x20120,A1 00020346 70 08 |p | MOVEQ.L #0x08,D0 00020348 10 d9 | | MOVE.B (A1)+,(A0)+ 0002034a 51 c8 ff fc |Q | DBF D0,0x20348 0002034e 9e c2 | | SUBA.W D2,A7 00020350 20 4f | O | MOVEA.L A7,A0 00020352 43 fa fd d6 |C | LEA.L 0x2012a,A1 00020356 70 12 |p | MOVEQ.L #0x12,D0 00020358 10 d9 | | MOVE.B (A1)+,(A0)+ 0002035a 51 c8 ff fc |Q | DBF D0,0x20358 0002035e 51 4f |QO | SUBQ.L #0x8,A7 00020360 48 6f 00 1c |Ho | PEA.L (A7+0x1c) 00020364 3f 01 |? | MOVE.W D1,-(A7) 00020366 3f 3c 00 09 |?< | MOVE.W #0x9,-(A7) 0002036a 4e 93 |N | JSR (A3) 0002036c 2e 87 |. | MOVE.L D7,(A7) 0002036e 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00020374 48 6f 00 10 |Ho | PEA.L (A7+0x10) 00020378 3f 01 |? | MOVE.W D1,-(A7) 0002037a 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7) 0002037e 4e 93 |N | JSR (A3) 00020380 50 4f |PO | ADDQ.L #0x8,A7 00020382 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 00020388 de fc 00 0c | | ADDA.W #0xc,A7 0002038c 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00020392 de fc 00 22 | " | ADDA.W #0x22,A7 00020396 48 52 |HR | PEA.L (A2) 00020398 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 0002039e 58 4f |XO | ADDQ.L #0x4,A7 000203a0 4c df 1f cf |L | MOVEM.L (A7)+,D0+D1+D2+D3+D6+D7+A0+A1+A2+A3+A4 000203a4 4e 5e |N^ | UNLK A6 000203a6 4e 75 |Nu | RTS 000203a8 ; -------------------------------------------------------------------------------------- 000203a8 ; OMSI PASCAL Function 000203a8 ; <LVAR 0x010 4(r)> 000203a8 ; <LVAR 0x00c 4(r)> 000203a8 ; <LVAR 0x008 4(r)> 000203a8 ; <LVAR -0x004 @ 4(rw)> 000203a8 ; -------------------------------------------------------------------------------------- 000203a8 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 000203ac bf d5 | | CMPA.L (A5),A7 000203ae 62 06 |b | BHI 0x203b6 000203b0 44 fc 00 02 |D | MOVE.W #0x2,CCR 000203b4 4e 76 |Nv | TRAPV 000203b6 de fc 00 24 | $ | ADDA.W #0x24,A7 000203ba 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7) 000203be 43 ee ff fc |C | LEA.L (A6-0x4),A1 000203c2 70 01 |p | MOVEQ.L #0x01,D0 000203c4 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 000203c8 10 80 | | MOVE.B D0,(A0) 000203ca 2f 3a fd 72 |/: r | MOVE.L 0x2013e,-(A7) 000203ce 59 4f |YO | SUBQ.L #0x4,A7 000203d0 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000203d4 3f 00 |? | MOVE.W D0,-(A7) 000203d6 3f 3c 00 04 |?< | MOVE.W #0x4,-(A7) 000203da 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000203e0 50 4f |PO | ADDQ.L #0x8,A7 000203e2 22 9f |" | MOVE.L (A7)+,(A1) 000203e4 54 4f |TO | ADDQ.L #0x2,A7 000203e6 2f 2e 00 10 |/. | MOVE.L (A6+0x10),-(A7) 000203ea 2f 11 |/ | MOVE.L (A1),-(A7) 000203ec 4e b9 00 01 02 c8 |N | JSR StringEqual(a, b : String) : Byte 000203f2 50 4f |PO | ADDQ.L #0x8,A7 000203f4 4a 1f |J | TST.B (A7)+ 000203f6 67 0c |g | BEQ 0x20404 000203f8 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 000203fc 4e ba fe 54 |N T | JSR 0x20252 00020400 58 4f |XO | ADDQ.L #0x4,A7 00020402 60 02 |` | BRA 0x20406 00020404 42 10 |B | CLR.B (A0) 00020406 48 51 |HQ | PEA.L (A1) 00020408 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 0002040e 58 4f |XO | ADDQ.L #0x4,A7 00020410 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1 00020414 4e 5e |N^ | UNLK A6 00020416 4e 75 |Nu | RTS 00020418 ; -------------------------------------------------------------------------------------- 00020418 ; OMSI PASCAL Function 00020418 ; <LVAR 0x008 4(r)> 00020418 ; -------------------------------------------------------------------------------------- 00020418 4e 56 ff f0 |NV | LINK.W A6,#0xfff0 0002041c bf d5 | | CMPA.L (A5),A7 0002041e 62 06 |b | BHI 0x20426 00020420 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020424 4e 76 |Nv | TRAPV 00020426 de fc 00 10 | | ADDA.W #0x10,A7 0002042a 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7) 0002042e 4e b9 00 01 03 98 |N | JSR FSCALL_10398 00020434 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00020438 43 fa fd 08 |C | LEA.L 0x20142,A1 0002043c 70 09 |p | MOVEQ.L #0x09,D0 0002043e 10 d9 | | MOVE.B (A1)+,(A0)+ 00020440 51 c8 ff fc |Q | DBF D0,0x2043e 00020444 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1 00020448 4e 5e |N^ | UNLK A6 0002044a 4e 75 |Nu | RTS 0002044c ; -------------------------------------------------------------------------------------- 0002044c ; COMMAND TABLE 0002044c ; -------------------------------------------------------------------------------------- 0002044c COMMAND_TABLE_2044c: 0002044c 21 40 23 24 25 5e 26 2a |!@#$%^&*| .TXT '!@#$%^&*()' 00020456 57 52 49 54 45 20 20 20 |WRITE | .TXT 'WRITE ' 00020460 42 59 45 20 20 20 20 20 |BYE | .TXT 'BYE ' 0002046a 48 45 41 50 20 20 20 20 |HEAP | .TXT 'HEAP ' 00020474 48 45 4c 50 20 20 20 20 |HELP | .TXT 'HELP ' 0002047e 41 42 4f 52 54 20 20 20 |ABORT | .TXT 'ABORT ' 00020488 43 4f 4d 4d 45 4e 54 20 |COMMENT | .TXT 'COMMENT ' 00020492 53 45 54 20 20 20 20 20 |SET | .TXT 'SET ' 0002049c 56 41 52 20 20 20 20 20 |VAR | .TXT 'VAR ' 000204a6 56 41 52 53 20 20 20 20 |VARS | .TXT 'VARS ' 000204b0 45 51 20 20 20 20 20 20 |EQ | .TXT 'EQ ' 000204ba 4e 45 20 20 20 20 20 20 |NE | .TXT 'NE ' 000204c4 43 41 53 45 20 20 20 20 |CASE | .TXT 'CASE ' 000204ce 49 4e 53 45 52 54 20 20 |INSERT | .TXT 'INSERT ' 000204d8 45 58 54 52 41 43 54 20 |EXTRACT | .TXT 'EXTRACT ' 000204e2 23 43 41 53 45 20 20 20 |#CASE | .TXT '#CASE ' 000204ec 23 45 51 20 20 20 20 20 |#EQ | .TXT '#EQ ' 000204f6 23 4e 45 20 20 20 20 20 |#NE | .TXT '#NE ' 00020500 23 4c 54 20 20 20 20 20 |#LT | .TXT '#LT ' 0002050a 23 47 54 20 20 20 20 20 |#GT | .TXT '#GT ' 00020514 23 4c 45 20 20 20 20 20 |#LE | .TXT '#LE ' 0002051e 23 47 45 20 20 20 20 20 |#GE | .TXT '#GE ' 00020528 41 44 44 20 20 20 20 20 |ADD | .TXT 'ADD ' 00020532 53 55 42 20 20 20 20 20 |SUB | .TXT 'SUB ' 0002053c 4d 55 4c 20 20 20 20 20 |MUL | .TXT 'MUL ' 00020546 44 49 56 20 20 20 20 20 |DIV | .TXT 'DIV ' 00020550 4d 4f 44 20 20 20 20 20 |MOD | .TXT 'MOD ' 0002055a 4f 52 20 20 20 20 20 20 |OR | .TXT 'OR ' 00020564 41 4e 44 20 20 20 20 20 |AND | .TXT 'AND ' 0002056e 58 4f 52 20 20 20 20 20 |XOR | .TXT 'XOR ' 00020578 4c 53 48 49 46 54 20 20 |LSHIFT | .TXT 'LSHIFT ' 00020582 52 53 48 49 46 54 20 20 |RSHIFT | .TXT 'RSHIFT ' 0002058c 4e 4f 54 20 20 20 20 20 |NOT | .TXT 'NOT ' 00020596 23 49 4e 53 45 52 54 20 |#INSERT | .TXT '#INSERT ' 000205a0 23 45 58 54 52 41 43 54 |#EXTRACT| .TXT '#EXTRACT ' 000205aa 52 45 41 44 20 20 20 20 |READ | .TXT 'READ ' 000205b4 4b 49 4c 4c 20 20 20 20 |KILL | .TXT 'KILL ' 000205be 50 55 53 48 20 20 20 20 |PUSH | .TXT 'PUSH ' 000205c8 4c 45 56 45 4c 20 20 20 |LEVEL | .TXT 'LEVEL ' 000205d2 43 4f 4e 56 45 52 54 20 |CONVERT | .TXT 'CONVERT ' 000205dc 43 4f 55 4e 54 5f 4f 4e |COUNT_ON| .TXT 'COUNT_ONES' 000205e6 52 45 50 45 41 54 20 20 |REPEAT | .TXT 'REPEAT ' 000205f0 4d 4f 44 45 4c 20 20 20 |MODEL | .TXT 'MODEL ' 000205fa 41 53 43 49 49 20 20 20 |ASCII | .TXT 'ASCII ' 00020604 57 72 6f 6e 67 20 6e 75 |Wrong nu| .TXT 'Wrong number of arguments for :_' 00020624 45 51 2c 4e |EQ,N | .XXX[0x4] 00020628 45 2c 23 45 51 2c 23 4e |E,#EQ,#N| .XXX[0x38] 00020630 45 2c 23 4c 54 2c 23 47 |E,#LT,#G| 00020638 54 2c 23 4c 45 2c 23 47 |T,#LE,#G| 00020640 45 2c 45 4c 53 45 5d 45 |E,ELSE]E| 00020648 4e 44 5d 43 41 53 45 2c |ND]CASE,| 00020650 23 43 41 53 45 2c 57 48 |#CASE,WH| 00020658 45 4e 2c 45 4e 44 43 41 |EN,ENDCA| 00020660 53 45 5d 20 |SE] | .XXX[0x4] 00020664 45 76 61 6c 75 61 74 69 |Evaluati| .TXT 'Evaluation buffer overflow. ' 00020680 55 6e 62 61 6c 61 6e 63 |Unbalanc| .TXT 'Unbalanced [ELSE] or [END]! ' 0002069c 5b 57 48 45 4e 20 5d 20 |[WHEN ] | .TXT '[WHEN ] ' 000206a6 4e 6f 20 63 61 73 65 20 |No case | .TXT 'No case alternative found!' 000206c0 4e 6f 20 5b 45 4e 44 43 |No [ENDC| .TXT 'No [ENDCASE] found! ' 000206d4 4e 6f 20 68 65 6c 70 20 |No help | .TXT 'No help available for_' 000206ea 2e 48 4c 50 |.HLP | .TXT '.HLP' 000206ee 54 6f 6f 20 66 65 77 20 |Too few | .TXT 'Too few arguments for SET ' 00020708 55 6e 6b 6e 6f 77 6e 20 |Unknown | .TXT 'Unknown variable :_ ' 0002071c 20 69 73 20 6e 6f 74 20 | is not | .TXT ' is not a program.' 0002072e 43 4c |CL | .TXT 'CL' 00020730 49 20 |I | .XXX[0x2] 00020732 2e 4d 32 30 30 20 |.M200 | .TXT '.M200 ' 00020738 53 54 |ST | .TXT 'ST' 0002073a 41 54 |AT | .TXT 'AT' 0002073c 55 53 |US | .TXT 'US' 0002073e 52 45 |RE | .TXT 'RE' 00020740 53 55 |SU | .TXT 'SU' 00020742 4c 54 |LT | .TXT 'LT' 00020744 4f 66 66 73 65 74 2f 4c |Offset/L| .TXT 'Offset/Length error in [INSERT] ' 00020764 52 45 50 45 41 54 69 6e |REPEATin| .TXT 'REPEATing, type ^G to exit. ' 00020780 41 53 43 49 49 20 61 72 |ASCII ar| .TXT 'ASCII argument out of range.' 0002079c 4e 6f 74 20 61 20 63 6f |Not a co| .TXT 'Not a command or macro :_ ' 000207b6 49 6c 6c 65 67 61 6c 20 |Illegal | .TXT 'Illegal marker argument ' 000207ce 53 77 69 74 63 68 20 65 |Switch e| .TXT 'Switch exclusion is unimplemented.' 000207f0 49 6c 6c 65 67 61 6c 20 |Illegal | .TXT 'Illegal argument marker.' 00020808 49 6c 6c 65 67 61 6c 20 |Illegal | .TXT 'Illegal argument marker.' 00020820 5b 49 4e 49 54 5d 5b 20 |[INIT][ | .TXT '[INIT][ ' 00020828 5d 5b 42 59 45 5d 3b 20 |][BYE]; | .TXT '][BYE]; ' 00020830 5b 49 4e 49 54 5d 3b 20 |[INIT]; | .TXT '[INIT]; ' 00020838 3e 5f |>_ | .TXT '>_' 0002083a 5b 20 |[ | .TXT '[ ' 0002083c 5d 3b |]; | .TXT '];' 0002083e ; -------------------------------------------------------------------------------------- 0002083e ; COMMAND TABLE 0002083e ; -------------------------------------------------------------------------------------- 0002083e COMMAND_TABLE_2083e: 0002083e 21 40 23 24 25 5e 26 2a |!@#$%^&*| .TXT '!@#$%^&*()' 00020848 57 52 49 54 45 20 20 20 |WRITE | .TXT 'WRITE ' 00020852 42 59 45 20 20 20 20 20 |BYE | .TXT 'BYE ' 0002085c 48 45 41 50 20 20 20 20 |HEAP | .TXT 'HEAP ' 00020866 48 45 4c 50 20 20 20 20 |HELP | .TXT 'HELP ' 00020870 41 42 4f 52 54 20 20 20 |ABORT | .TXT 'ABORT ' 0002087a 43 4f 4d 4d 45 4e 54 20 |COMMENT | .TXT 'COMMENT ' 00020884 53 45 54 20 20 20 20 20 |SET | .TXT 'SET ' 0002088e 56 41 52 20 20 20 20 20 |VAR | .TXT 'VAR ' 00020898 56 41 52 53 20 20 20 20 |VARS | .TXT 'VARS ' 000208a2 45 51 20 20 20 20 20 20 |EQ | .TXT 'EQ ' 000208ac 4e 45 20 20 20 20 20 20 |NE | .TXT 'NE ' 000208b6 43 41 53 45 20 20 20 20 |CASE | .TXT 'CASE ' 000208c0 49 4e 53 45 52 54 20 20 |INSERT | .TXT 'INSERT ' 000208ca 45 58 54 52 41 43 54 20 |EXTRACT | .TXT 'EXTRACT ' 000208d4 23 43 41 53 45 20 20 20 |#CASE | .TXT '#CASE ' 000208de 23 45 51 20 20 20 20 20 |#EQ | .TXT '#EQ ' 000208e8 23 4e 45 20 20 20 20 20 |#NE | .TXT '#NE ' 000208f2 23 4c 54 20 20 20 20 20 |#LT | .TXT '#LT ' 000208fc 23 47 54 20 20 20 20 20 |#GT | .TXT '#GT ' 00020906 23 4c 45 20 20 20 20 20 |#LE | .TXT '#LE ' 00020910 23 47 45 20 20 20 20 20 |#GE | .TXT '#GE ' 0002091a 41 44 44 20 20 20 20 20 |ADD | .TXT 'ADD ' 00020924 53 55 42 20 20 20 20 20 |SUB | .TXT 'SUB ' 0002092e 4d 55 4c 20 20 20 20 20 |MUL | .TXT 'MUL ' 00020938 44 49 56 20 20 20 20 20 |DIV | .TXT 'DIV ' 00020942 4d 4f 44 20 20 20 20 20 |MOD | .TXT 'MOD ' 0002094c 4f 52 20 20 20 20 20 20 |OR | .TXT 'OR ' 00020956 41 4e 44 20 20 20 20 20 |AND | .TXT 'AND ' 00020960 58 4f 52 20 20 20 20 20 |XOR | .TXT 'XOR ' 0002096a 4c 53 48 49 46 54 20 20 |LSHIFT | .TXT 'LSHIFT ' 00020974 52 53 48 49 46 54 20 20 |RSHIFT | .TXT 'RSHIFT ' 0002097e 4e 4f 54 20 20 20 20 20 |NOT | .TXT 'NOT ' 00020988 23 49 4e 53 45 52 54 20 |#INSERT | .TXT '#INSERT ' 00020992 23 45 58 54 52 41 43 54 |#EXTRACT| .TXT '#EXTRACT ' 0002099c 52 45 41 44 20 20 20 20 |READ | .TXT 'READ ' 000209a6 4b 49 4c 4c 20 20 20 20 |KILL | .TXT 'KILL ' 000209b0 50 55 53 48 20 20 20 20 |PUSH | .TXT 'PUSH ' 000209ba 4c 45 56 45 4c 20 20 20 |LEVEL | .TXT 'LEVEL ' 000209c4 43 4f 4e 56 45 52 54 20 |CONVERT | .TXT 'CONVERT ' 000209ce 43 4f 55 4e 54 5f 4f 4e |COUNT_ON| .TXT 'COUNT_ONES' 000209d8 52 45 50 45 41 54 20 20 |REPEAT | .TXT 'REPEAT ' 000209e2 4d 4f 44 45 4c 20 20 20 |MODEL | .TXT 'MODEL ' 000209ec 41 53 43 49 49 20 20 20 |ASCII | .TXT 'ASCII ' 000209f6 a5 34 | 4 | .XXX[0x2] 000209f8 45 73 34 22 46 75 33 33 |Es4"Fu33| .XXX[0x98] 00020a00 33 33 33 32 33 66 37 84 |33323f7 | 00020a08 44 57 a6 55 0f 00 f0 ff |DW U | 00020a10 10 22 14 31 22 22 22 22 | " 1""""| 00020a18 22 22 22 22 14 3f 1f 03 |"""" ? | 00020a20 10 0f 00 00 00 00 ff ff | | 00020a28 ff ff 00 01 01 00 01 01 | | 00020a30 00 01 02 00 00 01 02 00 | | 00020a38 01 02 00 01 14 06 01 14 | | 00020a40 08 14 0f 02 03 14 14 08 | | 00020a48 14 0f 14 14 14 14 14 14 | | 00020a50 14 04 14 05 14 14 14 14 | | 00020a58 14 14 14 14 14 14 14 04 | | 00020a60 14 14 14 14 14 14 04 14 | | 00020a68 07 14 14 14 14 04 14 14 | | 00020a70 14 14 14 14 0c 14 14 09 | | 00020a78 14 14 14 0d 14 14 14 0b | | 00020a80 0a 14 0e 14 14 14 08 14 | | 00020a88 14 0c 14 14 09 14 14 14 | | 00020a90 14 14 14 14 14 14 14 14 | | .BLANK 14[0x10] 00020aa0 14 14 14 14 14 10 14 14 | | .XXX[0x28] 00020aa8 11 14 14 14 14 14 14 14 | | 00020ab0 14 14 14 13 14 14 14 14 | | 00020ab8 14 12 14 14 14 11 14 14 | | 00020ac0 14 14 14 14 14 14 14 14 | | 00020ac8 ; -------------------------------------------------------------------------------------- 00020ac8 ; OMSI PASCAL Function 00020ac8 ; <LVAR 0x008 4(r)> 00020ac8 ; <LVAR -0x004 @ 4(w)> 00020ac8 ; -------------------------------------------------------------------------------------- 00020ac8 4e 56 ff e8 |NV | LINK.W A6,#0xffe8 00020acc bf d5 | | CMPA.L (A5),A7 00020ace 62 06 |b | BHI 0x20ad6 00020ad0 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020ad4 4e 76 |Nv | TRAPV 00020ad6 de fc 00 10 | | ADDA.W #0x10,A7 00020ada 48 e7 00 08 |H | MOVEM.L A4,-(A7) 00020ade 28 6e 00 08 |(n | MOVEA.L (A6+0x8),A4 00020ae2 b8 fc 00 01 | | CMPA.W #0x1,A4 00020ae6 67 1a |g | BEQ 0x20b02 00020ae8 2d 4c ff fc |-L | MOVE.L A4,(A6-0x4) 00020aec 28 6c 00 08 |(l | MOVEA.L (A4+0x8),A4 00020af0 48 6e ff fc |Hn | PEA.L (A6-0x4) 00020af4 48 78 00 0c |Hx | PEA.L 0xc 00020af8 4e b9 00 01 02 a8 |N | JSR Free2(a : Pointer; b : Long) 00020afe 50 4f |PO | ADDQ.L #0x8,A7 00020b00 60 e0 |` | BRA 0x20ae2 00020b02 4c df 10 00 |L | MOVEM.L (A7)+,A4 00020b06 4e 5e |N^ | UNLK A6 00020b08 4e 75 |Nu | RTS 00020b0a ; -------------------------------------------------------------------------------------- 00020b0a ; OMSI PASCAL Function 00020b0a ; <LVAR 0x008 4(r)> 00020b0a ; -------------------------------------------------------------------------------------- 00020b0a 4e 56 ff f0 |NV | LINK.W A6,#0xfff0 00020b0e bf d5 | | CMPA.L (A5),A7 00020b10 62 06 |b | BHI 0x20b18 00020b12 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020b16 4e 76 |Nv | TRAPV 00020b18 de fc 00 10 | | ADDA.W #0x10,A7 00020b1c 48 e7 00 80 |H | MOVEM.L A0,-(A7) 00020b20 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00020b24 b0 fc 00 01 | | CMPA.W #0x1,A0 00020b28 67 0a |g | BEQ 0x20b34 00020b2a 2f 08 |/ | MOVE.L A0,-(A7) 00020b2c 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00020b32 58 4f |XO | ADDQ.L #0x4,A7 00020b34 2e 6d 00 08 |.m | MOVEA.L (A5+0x8),A7 00020b38 3c 7c 00 00 |<| | MOVEA.W #0x0,A6 00020b3c 4e f9 00 02 43 e6 |N C | JMP 0x243e6 00020b42 4c df 01 00 4e 5e |L N^ | .XXX[0x6] 00020b48 4e 75 4e 56 ff fc bf d5 |NuNV | .XXX[0x20] 00020b50 62 06 44 fc 00 02 4e 76 |b D Nv| 00020b58 de fc 00 04 2d 79 00 02 | -y | 00020b60 56 14 00 08 4e 5e 4e 75 |V N^Nu| 00020b68 ; -------------------------------------------------------------------------------------- 00020b68 ; OMSI PASCAL Function 00020b68 ; <LVAR 0x008 1(rw)> 00020b68 ; -------------------------------------------------------------------------------------- 00020b68 4e 56 ff f0 |NV | LINK.W A6,#0xfff0 00020b6c bf d5 | | CMPA.L (A5),A7 00020b6e 62 06 |b | BHI 0x20b76 00020b70 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020b74 4e 76 |Nv | TRAPV 00020b76 de fc 00 10 | | ADDA.W #0x10,A7 00020b7a 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 00020b7e 20 39 00 02 56 14 | 9 V | MOVE.L 0x25614,D0 00020b84 b0 b9 00 02 56 18 | V | CMP.L 0x25618,D0 00020b8a 6f 06 |o | BLE 0x20b92 00020b8c 42 2e 00 08 |B. | CLR.B (A6+0x8) 00020b90 60 0c |` | BRA 0x20b9e 00020b92 41 f9 00 02 46 0c |A F | LEA.L 0x2460c,A0 00020b98 1d 70 08 07 00 08 | p | MOVE.B (A0+D0.L+#0x7),(A6+0x8) 00020b9e 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 00020ba2 4e 5e |N^ | UNLK A6 00020ba4 4e 75 |Nu | RTS 00020ba6 ; -------------------------------------------------------------------------------------- 00020ba6 ; OMSI PASCAL Function 00020ba6 ; <LVAR 0x008 1(rw)> 00020ba6 ; -------------------------------------------------------------------------------------- 00020ba6 4e 56 ff ec |NV | LINK.W A6,#0xffec 00020baa bf d5 | | CMPA.L (A5),A7 00020bac 62 06 |b | BHI 0x20bb4 00020bae 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020bb2 4e 76 |Nv | TRAPV 00020bb4 de fc 00 14 | | ADDA.W #0x14,A7 00020bb8 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7) 00020bbc 43 f9 00 02 56 14 |C V | LEA.L 0x25614,A1 00020bc2 20 11 | | MOVE.L (A1),D0 00020bc4 b0 b9 00 02 56 18 | V | CMP.L 0x25618,D0 00020bca 6f 06 |o | BLE 0x20bd2 00020bcc 42 2e 00 08 |B. | CLR.B (A6+0x8) 00020bd0 60 0c |` | BRA 0x20bde 00020bd2 41 f9 00 02 46 0c |A F | LEA.L 0x2460c,A0 00020bd8 1d 70 08 07 00 08 | p | MOVE.B (A0+D0.L+#0x7),(A6+0x8) 00020bde 52 80 |R | ADDQ.L #0x1,D0 00020be0 22 80 |" | MOVE.L D0,(A1) 00020be2 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1 00020be6 4e 5e |N^ | UNLK A6 00020be8 4e 75 |Nu | RTS 00020bea ; -------------------------------------------------------------------------------------- 00020bea ; OMSI PASCAL Function 00020bea ; <LVAR 0x00c 4(r)> 00020bea ; <LVAR 0x008 4(r)> 00020bea ; -------------------------------------------------------------------------------------- 00020bea 4e 56 ff c0 |NV | LINK.W A6,#0xffc0 00020bee bf d5 | | CMPA.L (A5),A7 00020bf0 62 06 |b | BHI 0x20bf8 00020bf2 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020bf6 4e 76 |Nv | TRAPV 00020bf8 de fc 00 38 | 8 | ADDA.W #0x38,A7 00020bfc 48 e7 ff f0 |H | MOVEM.L A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00020c00 45 ee 00 08 |E | LEA.L (A6+0x8),A2 00020c04 47 f9 00 02 56 14 |G V | LEA.L 0x25614,A3 00020c0a 72 5b |r[ | MOVEQ.L #0x5b,D1 00020c0c 74 02 |t | MOVEQ.L #0x02,D2 00020c0e 76 2c |v, | MOVEQ.L #0x2c,D3 00020c10 78 3b |x; | MOVEQ.L #0x3b,D4 00020c12 55 4f |UO | SUBQ.L #0x2,A7 00020c14 4e ba ff 52 |N R | JSR 0x20b68 00020c18 10 1f | | MOVE.B (A7)+,D0 00020c1a b0 01 | | CMP.B D1,D0 00020c1c 66 0a |f | BNE 0x20c28 00020c1e 4e b9 00 02 3e f0 |N > | JSR 0x23ef0 00020c24 60 00 00 92 |` | BRA 0x20cb8 00020c28 2c 13 |, | MOVE.L (A3),D6 00020c2a 55 4f |UO | SUBQ.L #0x2,A7 00020c2c 4e ba ff 78 |N x | JSR 0x20ba6 00020c30 1a 1f | | MOVE.B (A7)+,D5 00020c32 66 18 |f | BNE 0x20c4c 00020c34 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 00020c38 43 fa fd e8 |C | LEA.L 0x20a22,A1 00020c3c 70 07 |p | MOVEQ.L #0x07,D0 00020c3e 10 d9 | | MOVE.B (A1)+,(A0)+ 00020c40 51 c8 ff fc |Q | DBF D0,0x20c3e 00020c44 20 52 | R | MOVEA.L (A2),A0 00020c46 10 82 | | MOVE.B D2,(A0) 00020c48 60 72 |`r | BRA 0x20cbc 00020c4a 60 5c |`\ | .XXX[0x2] 00020c4c ba 03 | | CMP.B D3,D5 00020c4e 66 08 |f | BNE 0x20c58 00020c50 20 52 | R | MOVEA.L (A2),A0 00020c52 10 bc 00 03 | | MOVE.B #0x03,(A0) 00020c56 60 50 |`P | BRA 0x20ca8 00020c58 ba 04 | | CMP.B D4,D5 00020c5a 66 08 |f | BNE 0x20c64 00020c5c 20 52 | R | MOVEA.L (A2),A0 00020c5e 10 bc 00 01 | | MOVE.B #0x01,(A0) 00020c62 60 44 |`D | BRA 0x20ca8 00020c64 0c 05 00 5d | ] | CMPI.B #0x5d,D5 00020c68 66 06 |f | BNE 0x20c70 00020c6a 20 52 | R | MOVEA.L (A2),A0 00020c6c 10 82 | | MOVE.B D2,(A0) 00020c6e 60 38 |`8 | BRA 0x20ca8 00020c70 20 52 | R | MOVEA.L (A2),A0 00020c72 42 10 |B | CLR.B (A0) 00020c74 55 4f |UO | SUBQ.L #0x2,A7 00020c76 4e ba fe f0 |N | JSR 0x20b68 00020c7a 1e 1f | | MOVE.B (A7)+,D7 00020c7c be 01 | | CMP.B D1,D7 00020c7e 66 08 |f | BNE 0x20c88 00020c80 4e b9 00 02 3e f0 |N > | JSR 0x23ef0 00020c86 60 1e |` | BRA 0x20ca6 00020c88 be 04 | | CMP.B D4,D7 00020c8a 67 0e |g | BEQ 0x20c9a 00020c8c be 03 | | CMP.B D3,D7 00020c8e 67 0a |g | BEQ 0x20c9a 00020c90 0c 07 00 5d | ] | CMPI.B #0x5d,D7 00020c94 67 04 |g | BEQ 0x20c9a 00020c96 4a 07 |J | TST.B D7 00020c98 66 04 |f | BNE 0x20c9e 00020c9a 60 0c |` | BRA 0x20ca8 00020c9c 60 08 |` | .XXX[0x2] 00020c9e 55 4f |UO | SUBQ.L #0x2,A7 00020ca0 4e ba ff 04 |N | JSR 0x20ba6 00020ca4 1e 1f | | MOVE.B (A7)+,D7 00020ca6 60 cc |` | BRA 0x20c74 00020ca8 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 00020cac 20 86 | | MOVE.L D6,(A0) 00020cae 21 53 00 04 |!S | MOVE.L (A3),(A0+0x4) 00020cb2 53 a8 00 04 |S | SUBQ.L #0x1,(A0+0x4) 00020cb6 60 04 |` | BRA 0x20cbc 00020cb8 60 00 ff 58 |` X | BRA 0x20c12 00020cbc 4c df 0f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3 00020cc0 4e 5e |N^ | UNLK A6 00020cc2 4e 75 |Nu | RTS 00020cc4 ; -------------------------------------------------------------------------------------- 00020cc4 ; OMSI PASCAL Function 00020cc4 ; <LVAR 0x010 4(r)> 00020cc4 ; <LVAR 0x00c 4(r)> 00020cc4 ; <LVAR 0x008 4(r)> 00020cc4 ; <LVAR -0x004 @ 1(rw)> 00020cc4 ; <LVAR -0x008 4(w)> 00020cc4 ; <LVAR -0x00c @ 4(w)> 00020cc4 ; -------------------------------------------------------------------------------------- 00020cc4 4e 56 ff ca |NV | LINK.W A6,#0xffca 00020cc8 bf d5 | | CMPA.L (A5),A7 00020cca 62 06 |b | BHI 0x20cd2 00020ccc 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020cd0 4e 76 |Nv | TRAPV 00020cd2 de fc 00 2a | * | ADDA.W #0x2a,A7 00020cd6 48 e7 c0 f0 |H | MOVEM.L A3+A2+A1+A0+D1+D0,-(A7) 00020cda 45 ee ff fc |E | LEA.L (A6-0x4),A2 00020cde 47 ee ff f4 |G | LEA.L (A6-0xc),A3 00020ce2 72 03 |r | MOVEQ.L #0x03,D1 00020ce4 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00020ce8 10 10 | | MOVE.B (A0),D0 00020cea 0c 00 00 01 | | CMPI.B #0x01,D0 00020cee 67 06 |g | BEQ 0x20cf6 00020cf0 0c 00 00 02 | | CMPI.B #0x02,D0 00020cf4 66 0e |f | BNE 0x20d04 00020cf6 26 ba fd 2a |& * | MOVE.L 0x20a22,(A3) 00020cfa 2d 7a fd 2a ff f8 |-z * | MOVE.L 0x20a26,(A6-0x8) 00020d00 14 80 | | MOVE.B D0,(A2) 00020d02 60 3c |`< | BRA 0x20d40 00020d04 48 53 |HS | PEA.L (A3) 00020d06 48 52 |HR | PEA.L (A2) 00020d08 4e ba fe e0 |N | JSR 0x20bea 00020d0c 50 4f |PO | ADDQ.L #0x8,A7 00020d0e 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00020d12 4a 12 |J | TST.B (A2) 00020d14 67 1c |g | BEQ 0x20d32 00020d16 10 10 | | MOVE.B (A0),D0 00020d18 b0 01 | | CMP.B D1,D0 00020d1a 66 16 |f | BNE 0x20d32 00020d1c 10 12 | | MOVE.B (A2),D0 00020d1e 48 80 |H | EXTB.W D0 00020d20 41 81 |A | CHK.W D1,D0 00020d22 10 80 | | MOVE.B D0,(A0) 00020d24 26 ba fc fc |& | MOVE.L 0x20a22,(A3) 00020d28 2d 7a fc fc ff f8 |-z | MOVE.L 0x20a26,(A6-0x8) 00020d2e 42 12 |B | CLR.B (A2) 00020d30 60 08 |` | BRA 0x20d3a 00020d32 10 12 | | MOVE.B (A2),D0 00020d34 48 80 |H | EXTB.W D0 00020d36 41 81 |A | CHK.W D1,D0 00020d38 10 80 | | MOVE.B D0,(A0) 00020d3a 10 12 | | MOVE.B (A2),D0 00020d3c b0 01 | | CMP.B D1,D0 00020d3e 67 c4 |g | BEQ 0x20d04 00020d40 20 6e 00 10 | n | MOVEA.L (A6+0x10),A0 00020d44 22 4b |"K | MOVEA.L A3,A1 00020d46 70 07 |p | MOVEQ.L #0x07,D0 00020d48 10 d9 | | MOVE.B (A1)+,(A0)+ 00020d4a 51 c8 ff fc |Q | DBF D0,0x20d48 00020d4e 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 00020d52 10 12 | | MOVE.B (A2),D0 00020d54 48 80 |H | EXTB.W D0 00020d56 41 81 |A | CHK.W D1,D0 00020d58 10 80 | | MOVE.B D0,(A0) 00020d5a 4c df 0f 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2+A3 00020d5e 4e 5e |N^ | UNLK A6 00020d60 4e 75 |Nu | RTS 00020d62 ; -------------------------------------------------------------------------------------- 00020d62 ; OMSI PASCAL Function 00020d62 ; <LVAR 0x008 4(rw)> 00020d62 ; <LVAR -0x004 1(rw)> 00020d62 ; <LVAR -0x010 2(rw)> 00020d62 ; -------------------------------------------------------------------------------------- 00020d62 4e 56 ff c0 |NV | LINK.W A6,#0xffc0 00020d66 bf d5 | | CMPA.L (A5),A7 00020d68 62 06 |b | BHI 0x20d70 00020d6a 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020d6e 4e 76 |Nv | TRAPV 00020d70 de fc 00 30 | 0 | ADDA.W #0x30,A7 00020d74 48 e7 c7 f0 |H | MOVEM.L A3+A2+A1+A0+D7+D6+D5+D1+D0,-(A7) 00020d78 43 ee ff f0 |C | LEA.L (A6-0x10),A1 00020d7c 45 ee ff fc |E | LEA.L (A6-0x4),A2 00020d80 47 ee 00 08 |G | LEA.L (A6+0x8),A3 00020d84 72 20 |r | MOVEQ.L #0x20,D1 00020d86 7c 01 || | MOVEQ.L #0x01,D6 00020d88 42 51 |BQ | CLR.W (A1) 00020d8a 7a 01 |z | MOVEQ.L #0x01,D5 00020d8c 59 4f |YO | SUBQ.L #0x4,A7 00020d8e 2f 13 |/ | MOVE.L (A3),-(A7) 00020d90 4e b9 00 01 02 f0 |N | JSR ToUpper(a : String) : String 00020d96 58 4f |XO | ADDQ.L #0x4,A7 00020d98 26 9f |& | MOVE.L (A7)+,(A3) 00020d9a 20 53 | S | MOVEA.L (A3),A0 00020d9c 2f 08 |/ | MOVE.L A0,-(A7) 00020d9e 20 57 | W | MOVEA.L (A7),A0 00020da0 30 10 |0 | MOVE.W (A0),D0 00020da2 48 c0 |H | EXTW.L D0 00020da4 bc 80 | | CMP.L D0,D6 00020da6 6e 00 00 b0 |n | BGT 0x20e58 00020daa 42 80 |B | CLR.L D0 00020dac 10 30 68 01 | 0h | MOVE.B (A0+D6.L+#0x1),D0 00020db0 02 40 00 7f | @ | ANDI.W #0x007f,D0 00020db4 14 80 | | MOVE.B D0,(A2) 00020db6 0c 00 00 09 | | CMPI.B #0x09,D0 00020dba 66 02 |f | BNE 0x20dbe 00020dbc 14 81 | | MOVE.B D1,(A2) 00020dbe 42 80 |B | CLR.L D0 00020dc0 10 12 | | MOVE.B (A2),D0 00020dc2 90 41 | A | SUB.W D1,D0 00020dc4 0c 40 00 0c | @ | CMPI.W #0x000c,D0 00020dc8 62 30 |b0 | BHI switch@0x20dcc[0x2] 00020dca d0 40 | @ | ADD.W D0,D0 00020dcc 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 00020dd4 00 1e | | .CONST 0x1e ; [0x0] -> 0x20df2 00020dd6 00 1a | | .CONST 0x1a ; [0x1] -> 0x20dee 00020dd8 00 26 | & | .CONST 0x26 ; [0x2] -> 0x20dfa 00020dda 00 26 | & | .CONST 0x26 ; [0x3] -> 0x20dfa 00020ddc 00 26 | & | .CONST 0x26 ; [0x4] -> 0x20dfa 00020dde 00 26 | & | .CONST 0x26 ; [0x5] -> 0x20dfa 00020de0 00 26 | & | .CONST 0x26 ; [0x6] -> 0x20dfa 00020de2 00 26 | & | .CONST 0x26 ; [0x7] -> 0x20dfa 00020de4 00 26 | & | .CONST 0x26 ; [0x8] -> 0x20dfa 00020de6 00 26 | & | .CONST 0x26 ; [0x9] -> 0x20dfa 00020de8 00 26 | & | .CONST 0x26 ; [0xa] -> 0x20dfa 00020dea 00 26 | & | .CONST 0x26 ; [0xb] -> 0x20dfa 00020dec 00 22 | " | .CONST 0x22 ; [0xc] -> 0x20df6 00020dee switch@0x20dcc[0x1]: 00020dee 60 68 |`h | BRA 0x20e58 00020df0 60 0a |` | .XXX[0x2] 00020df2 switch@0x20dcc[0x0]: 00020df2 7e 00 |~ | MOVEQ.L #0x00,D7 00020df4 60 06 |` | BRA 0x20dfc 00020df6 switch@0x20dcc[0xc]: 00020df6 7e 01 |~ | MOVEQ.L #0x01,D7 00020df8 60 02 |` | BRA 0x20dfc 00020dfa switch@0x20dcc[0x2]: 00020dfa switch@0x20dcc[0x3]: 00020dfa switch@0x20dcc[0x4]: 00020dfa switch@0x20dcc[0x5]: 00020dfa switch@0x20dcc[0x6]: 00020dfa switch@0x20dcc[0x7]: 00020dfa switch@0x20dcc[0x8]: 00020dfa switch@0x20dcc[0x9]: 00020dfa switch@0x20dcc[0xa]: 00020dfa switch@0x20dcc[0xb]: 00020dfa 7e 02 |~ | MOVEQ.L #0x02,D7 00020dfc 70 03 |p | MOVEQ.L #0x03,D0 00020dfe c1 d1 | | MULS.W (A1),D0 00020e00 41 fa fc 28 |A ( | LEA.L 0x20a2a,A0 00020e04 41 f0 00 00 |A | LEA.L (A0+D0.W),A0 00020e08 42 80 |B | CLR.L D0 00020e0a 10 30 70 00 | 0p | MOVE.B (A0+D7.W),D0 00020e0e 0c 40 00 02 | @ | CMPI.W #0x0002,D0 00020e12 63 02 |c | BLS 0x20e16 00020e14 4e 4e |NN | TRAP #14 00020e16 d0 40 | @ | ADD.W D0,D0 00020e18 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 00020e20 00 06 | | .CONST 0x6 ; [0x0] -> 0x20e26 00020e22 00 08 | | .CONST 0x8 ; [0x1] -> 0x20e28 00020e24 00 12 | | .CONST 0x12 ; [0x2] -> 0x20e32 00020e26 switch@0x20e18[0x0]: 00020e26 60 16 |` | BRA 0x20e3e 00020e28 switch@0x20e18[0x1]: 00020e28 20 57 | W | MOVEA.L (A7),A0 00020e2a 11 92 58 01 | X | MOVE.B (A2),(A0+D5.L+#0x1) 00020e2e 52 85 |R | ADDQ.L #0x1,D5 00020e30 60 0c |` | BRA 0x20e3e 00020e32 switch@0x20e18[0x2]: 00020e32 20 57 | W | MOVEA.L (A7),A0 00020e34 11 bc 00 2c 58 01 | ,X | MOVE.B #0x2c,(A0+D5.L+#0x1) 00020e3a 52 85 |R | ADDQ.L #0x1,D5 00020e3c 53 86 |S | SUBQ.L #0x1,D6 00020e3e 70 03 |p | MOVEQ.L #0x03,D0 00020e40 c1 d1 | | MULS.W (A1),D0 00020e42 41 fa fb ef |A | LEA.L 0x20a33,A0 00020e46 41 f0 00 00 |A | LEA.L (A0+D0.W),A0 00020e4a 42 80 |B | CLR.L D0 00020e4c 10 30 70 00 | 0p | MOVE.B (A0+D7.W),D0 00020e50 32 80 |2 | MOVE.W D0,(A1) 00020e52 52 86 |R | ADDQ.L #0x1,D6 00020e54 60 00 ff 48 |` H | BRA 0x20d9e 00020e58 20 57 | W | MOVEA.L (A7),A0 00020e5a 20 05 | | MOVE.L D5,D0 00020e5c 53 80 |S | SUBQ.L #0x1,D0 00020e5e 30 80 |0 | MOVE.W D0,(A0) 00020e60 58 4f |XO | ADDQ.L #0x4,A7 00020e62 4c df 0f e3 |L | MOVEM.L (A7)+,D0+D1+D5+D6+D7+A0+A1+A2+A3 00020e66 4e 5e |N^ | UNLK A6 00020e68 4e 75 |Nu | RTS 00020e6a ; -------------------------------------------------------------------------------------- 00020e6a ; OMSI PASCAL Function 00020e6a ; <LVAR 0x00c 4(r)> 00020e6a ; <LVAR 0x008 4(r)> 00020e6a ; <LVAR -0x002 @ 1(r)> 00020e6a ; <LVAR -0x00a @> 00020e6a ; <LVAR -0x00e @ 4(r)> 00020e6a ; <LVAR -0x014 @ 1(r)> 00020e6a ; -------------------------------------------------------------------------------------- 00020e6a 4e 56 ff bc |NV | LINK.W A6,#0xffbc 00020e6e bf d5 | | CMPA.L (A5),A7 00020e70 62 06 |b | BHI 0x20e78 00020e72 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020e76 4e 76 |Nv | TRAPV 00020e78 de fc 00 30 | 0 | ADDA.W #0x30,A7 00020e7c 48 e7 c1 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D1+D0,-(A7) 00020e80 47 ee ff f2 |G | LEA.L (A6-0xe),A3 00020e84 72 01 |r | MOVEQ.L #0x01,D1 00020e86 55 4f |UO | SUBQ.L #0x2,A7 00020e88 4e ba fc de |N | JSR 0x20b68 00020e8c 10 1f | | MOVE.B (A7)+,D0 00020e8e 0c 00 00 5b | [ | CMPI.B #0x5b,D0 00020e92 66 08 |f | BNE 0x20e9c 00020e94 55 4f |UO | SUBQ.L #0x2,A7 00020e96 4e ba fd 0e |N | JSR 0x20ba6 00020e9a 1e 1f | | MOVE.B (A7)+,D7 00020e9c 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 00020ea0 20 81 | | MOVE.L D1,(A0) 00020ea2 42 2e ff ec |B. | CLR.B (A6-0x14) 00020ea6 48 6e ff f6 |Hn | PEA.L (A6-0xa) 00020eaa 48 6e ff fe |Hn | PEA.L (A6-0x2) 00020eae 48 6e ff ec |Hn | PEA.L (A6-0x14) 00020eb2 4e ba fe 10 |N | JSR 0x20cc4 00020eb6 de fc 00 0c | | ADDA.W #0xc,A7 00020eba 4a 2e ff fe |J. | TST.B (A6-0x2) 00020ebe 66 36 |f6 | BNE 0x20ef6 00020ec0 48 53 |HS | PEA.L (A3) 00020ec2 48 78 00 0c |Hx | PEA.L 0xc 00020ec6 4e b9 00 01 02 9c |N | JSR Malloc1(length : Long) : Pointer 00020ecc 50 4f |PO | ADDQ.L #0x8,A7 00020ece 20 53 | S | MOVEA.L (A3),A0 00020ed0 22 48 |"H | MOVEA.L A0,A1 00020ed2 45 ee ff f6 |E | LEA.L (A6-0xa),A2 00020ed6 70 07 |p | MOVEQ.L #0x07,D0 00020ed8 12 da | | MOVE.B (A2)+,(A1)+ 00020eda 51 c8 ff fc |Q | DBF D0,0x20ed8 00020ede 21 41 00 08 |!A | MOVE.L D1,(A0+0x8) 00020ee2 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 00020ee6 22 50 |"P | MOVEA.L (A0),A1 00020ee8 b2 c1 | | CMPA.W D1,A1 00020eea 66 04 |f | BNE 0x20ef0 00020eec 20 93 | | MOVE.L (A3),(A0) 00020eee 60 04 |` | BRA 0x20ef4 00020ef0 29 53 00 08 |)S | MOVE.L (A3),(A4+0x8) 00020ef4 28 53 |(S | MOVEA.L (A3),A4 00020ef6 4a 2e ff fe |J. | TST.B (A6-0x2) 00020efa 67 aa |g | BEQ 0x20ea6 00020efc 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00020f00 42 10 |B | CLR.B (A0) 00020f02 10 2e ff fe | . | MOVE.B (A6-0x2),D0 00020f06 0c 00 00 02 | | CMPI.B #0x02,D0 00020f0a 66 02 |f | BNE 0x20f0e 00020f0c 52 10 |R | ADDQ.B #0x1,(A0) 00020f0e 4c df 1f 83 |L | MOVEM.L (A7)+,D0+D1+D7+A0+A1+A2+A3+A4 00020f12 4e 5e |N^ | UNLK A6 00020f14 4e 75 |Nu | RTS 00020f16 ; -------------------------------------------------------------------------------------- 00020f16 ; OMSI PASCAL Function 00020f16 ; <LVAR 0x00c 4(w)> 00020f16 ; <LVAR 0x008 4(r)> 00020f16 ; -------------------------------------------------------------------------------------- 00020f16 4e 56 ff ec |NV | LINK.W A6,#0xffec 00020f1a bf d5 | | CMPA.L (A5),A7 00020f1c 62 06 |b | BHI 0x20f24 00020f1e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020f22 4e 76 |Nv | TRAPV 00020f24 de fc 00 0c | | ADDA.W #0xc,A7 00020f28 48 e7 01 08 |H | MOVEM.L A4+D7,-(A7) 00020f2c 7e ff |~ | MOVEQ.L #-0x01,D7 00020f2e 28 6e 00 08 |(n | MOVEA.L (A6+0x8),A4 00020f32 b8 fc 00 01 | | CMPA.W #0x1,A4 00020f36 67 08 |g | BEQ 0x20f40 00020f38 52 87 |R | ADDQ.L #0x1,D7 00020f3a 28 6c 00 08 |(l | MOVEA.L (A4+0x8),A4 00020f3e 60 f2 |` | BRA 0x20f32 00020f40 2d 47 00 0c |-G | MOVE.L D7,(A6+0xc) 00020f44 4c df 10 80 |L | MOVEM.L (A7)+,D7+A4 00020f48 4e 5e |N^ | UNLK A6 00020f4a 4e 75 |Nu | RTS 00020f4c ; -------------------------------------------------------------------------------------- 00020f4c ; OMSI PASCAL Function 00020f4c ; <LVAR 0x00c 4(r)> 00020f4c ; <LVAR 0x008 4(r)> 00020f4c ; -------------------------------------------------------------------------------------- 00020f4c 4e 56 ff b0 |NV | LINK.W A6,#0xffb0 00020f50 bf d5 | | CMPA.L (A5),A7 00020f52 62 06 |b | BHI 0x20f5a 00020f54 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020f58 4e 76 |Nv | TRAPV 00020f5a de fc 00 4e | N | ADDA.W #0x4e,A7 00020f5e 48 e7 c0 80 |H | MOVEM.L A0+D1+D0,-(A7) 00020f62 72 01 |r | MOVEQ.L #0x01,D1 00020f64 59 4f |YO | SUBQ.L #0x4,A7 00020f66 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00020f6a 4e ba ff aa |N | JSR 0x20f16 00020f6e 58 4f |XO | ADDQ.L #0x4,A7 00020f70 20 1f | | MOVE.L (A7)+,D0 00020f72 b0 ae 00 08 | | CMP.L (A6+0x8),D0 00020f76 67 58 |gX | BEQ 0x20fd0 00020f78 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00020f7c 4e ba fb 4a |N J | JSR 0x20ac8 00020f80 58 4f |XO | ADDQ.L #0x4,A7 00020f82 41 fa f6 a0 |A | LEA.L 0x20624,A0 00020f86 70 07 |p | MOVEQ.L #0x07,D0 00020f88 2f 20 |/ | MOVE.L -(A0),-(A7) 00020f8a 51 c8 ff fc |Q | DBF D0,0x20f88 00020f8e 41 ee 00 1a |A | LEA.L (A6+0x1a),A0 00020f92 70 04 |p | MOVEQ.L #0x04,D0 00020f94 3f 20 |? | MOVE.W -(A0),-(A7) 00020f96 51 c8 ff fc |Q | DBF D0,0x20f94 00020f9a 51 4f |QO | SUBQ.L #0x8,A7 00020f9c 48 6f 00 12 |Ho | PEA.L (A7+0x12) 00020fa0 3f 01 |? | MOVE.W D1,-(A7) 00020fa2 3f 3c 00 20 |?< | MOVE.W #0x20,-(A7) 00020fa6 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020fac 58 4f |XO | ADDQ.L #0x4,A7 00020fae 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00020fb2 3f 01 |? | MOVE.W D1,-(A7) 00020fb4 3f 3c 00 0a |?< | MOVE.W #0xa,-(A7) 00020fb8 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020fbe 50 4f |PO | ADDQ.L #0x8,A7 00020fc0 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020fc6 50 4f |PO | ADDQ.L #0x8,A7 00020fc8 4e ba fb 40 |N @ | JSR 0x20b0a 00020fcc de fc 00 2e | . | ADDA.W #0x2e,A7 00020fd0 4c df 01 03 |L | MOVEM.L (A7)+,D0+D1+A0 00020fd4 4e 5e |N^ | UNLK A6 00020fd6 4e 75 |Nu | RTS 00020fd8 ; -------------------------------------------------------------------------------------- 00020fd8 ; OMSI PASCAL Function 00020fd8 ; <LVAR 0x014 1(rw)> 00020fd8 ; <LVAR 0x010 4(r)> 00020fd8 ; <LVAR 0x00c 4(r)> 00020fd8 ; <LVAR 0x008 4(r)> 00020fd8 ; -------------------------------------------------------------------------------------- 00020fd8 4e 56 ff dc |NV | LINK.W A6,#0xffdc ; Spelunked 00020fdc bf d5 | | CMPA.L (A5),A7 00020fde 62 06 |b | BHI 0x20fe6 00020fe0 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020fe4 4e 76 |Nv | TRAPV 00020fe6 de fc 00 20 | | ADDA.W #0x20,A7 00020fea 48 e7 c1 c0 |H | MOVEM.L A1+A0+D7+D1+D0,-(A7) 00020fee 42 2e 00 14 |B. | CLR.B (A6+0x14) 00020ff2 20 2e 00 10 | . | MOVE.L (A6+0x10),D0 00020ff6 d0 ae 00 08 | | ADD.L (A6+0x8),D0 00020ffa b0 b9 00 02 56 18 | V | CMP.L 0x25618,D0 00021000 6e 4e |nN | BGT 0x21050 00021002 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00021006 7e 01 |~ | MOVEQ.L #0x01,D7 00021008 be 97 | | CMP.L (A7),D7 0002100a 6e 42 |nB | BGT 0x2104e 0002100c 20 2e 00 10 | . | MOVE.L (A6+0x10),D0 00021010 d0 87 | | ADD.L D7,D0 00021012 53 80 |S | SUBQ.L #0x1,D0 00021014 0c 80 00 00 0f ff | | CMPI.L #0x00000fff,D0 0002101a 63 02 |c | BLS 0x2101e 0002101c 4e 4f |NO | TRAP #15 0002101e 41 f9 00 02 46 0c |A F | LEA.L 0x2460c,A0 00021024 22 2e 00 0c |". | MOVE.L (A6+0xc),D1 00021028 d2 87 | | ADD.L D7,D1 0002102a 53 81 |S | SUBQ.L #0x1,D1 0002102c 53 81 |S | SUBQ.L #0x1,D1 0002102e 0c 81 00 00 00 3e | > | CMPI.L #0x0000003e,D1 00021034 63 02 |c | BLS 0x21038 00021036 4e 4f |NO | TRAP #15 00021038 43 fa f5 ea |C | LEA.L 0x20624,A1 0002103c 10 30 08 08 | 0 | MOVE.B (A0+D0.L+#0x8),D0 00021040 b0 31 18 00 | 1 | CMP.B (A1+D1.L),D0 00021044 67 04 |g | BEQ 0x2104a 00021046 58 4f |XO | ADDQ.L #0x4,A7 00021048 60 0c |` | BRA 0x21056 0002104a 52 87 |R | ADDQ.L #0x1,D7 0002104c 68 ba |h | BVC 0x21008 0002104e 58 4f |XO | ADDQ.L #0x4,A7 00021050 1d 7c 00 01 00 14 | | | MOVE.B #0x01,(A6+0x14) 00021056 4c df 03 83 |L | MOVEM.L (A7)+,D0+D1+D7+A0+A1 0002105a 4e 5e |N^ | UNLK A6 0002105c 4e 75 |Nu | RTS 0002105e ; -------------------------------------------------------------------------------------- 0002105e ; OMSI PASCAL Function 0002105e ; <LVAR 0x00c 4(r)> 0002105e ; <LVAR 0x008 4(r)> 0002105e ; -------------------------------------------------------------------------------------- 0002105e 4e 56 ff bc |NV | LINK.W A6,#0xffbc 00021062 bf d5 | | CMPA.L (A5),A7 00021064 62 06 |b | BHI 0x2106c 00021066 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002106a 4e 76 |Nv | TRAPV 0002106c de fc 00 40 | @ | ADDA.W #0x40,A7 00021070 48 e7 80 f0 |H | MOVEM.L A3+A2+A1+A0+D0,-(A7) 00021074 45 f9 00 02 56 18 |E V | LEA.L 0x25618,A2 0002107a 47 ee 00 08 |G | LEA.L (A6+0x8),A3 0002107e 4a 93 |J | TST.L (A3) 00021080 6c 3e |l> | BGE 0x210c0 00021082 20 13 | | MOVE.L (A3),D0 00021084 44 80 |D | NEG.L D0 00021086 d0 92 | | ADD.L (A2),D0 00021088 0c 80 00 00 10 00 | | CMPI.L #0x00001000,D0 0002108e 6f 30 |o0 | BLE 0x210c0 00021090 9e fc 00 1c | | SUBA.W #0x1c,A7 00021094 20 4f | O | MOVEA.L A7,A0 00021096 43 fa f5 cc |C | LEA.L 0x20664,A1 0002109a 70 1a |p | MOVEQ.L #0x1a,D0 0002109c 10 d9 | | MOVE.B (A1)+,(A0)+ 0002109e 51 c8 ff fc |Q | DBF D0,0x2109c 000210a2 59 4f |YO | SUBQ.L #0x4,A7 000210a4 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000210a8 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000210ac 3f 3c 00 1b |?< | MOVE.W #0x1b,-(A7) 000210b0 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000210b6 50 4f |PO | ADDQ.L #0x8,A7 000210b8 4e ba fa 50 |N P | JSR 0x20b0a 000210bc de fc 00 20 | | ADDA.W #0x20,A7 000210c0 41 f9 00 02 46 14 |A F | LEA.L 0x24614,A0 000210c6 2f 08 |/ | MOVE.L A0,-(A7) 000210c8 2f 12 |/ | MOVE.L (A2),-(A7) 000210ca 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 000210ce 2f 13 |/ | MOVE.L (A3),-(A7) 000210d0 4e b9 00 01 03 64 |N d | JSR MovStringTail(Base, Len, Ptr, Delta) 000210d6 de fc 00 10 | | ADDA.W #0x10,A7 000210da 20 12 | | MOVE.L (A2),D0 000210dc 90 93 | | SUB.L (A3),D0 000210de 24 80 |$ | MOVE.L D0,(A2) 000210e0 4c df 0f 01 |L | MOVEM.L (A7)+,D0+A0+A1+A2+A3 000210e4 4e 5e |N^ | UNLK A6 000210e6 4e 75 |Nu | RTS 000210e8 ; -------------------------------------------------------------------------------------- 000210e8 ; OMSI PASCAL Function 000210e8 ; <LVAR 0x00c 4(r)> 000210e8 ; <LVAR 0x008 4(r)> 000210e8 ; -------------------------------------------------------------------------------------- 000210e8 4e 56 ff d4 |NV | LINK.W A6,#0xffd4 000210ec bf d5 | | CMPA.L (A5),A7 000210ee 62 06 |b | BHI 0x210f6 000210f0 44 fc 00 02 |D | MOVE.W #0x2,CCR 000210f4 4e 76 |Nv | TRAPV 000210f6 de fc 00 28 | ( | ADDA.W #0x28,A7 000210fa 48 e7 c1 e0 |H | MOVEM.L A2+A1+A0+D7+D1+D0,-(A7) 000210fe 45 ee 00 0c |E | LEA.L (A6+0xc),A2 00021102 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00021106 2f 08 |/ | MOVE.L A0,-(A7) 00021108 22 52 |"R | MOVEA.L (A2),A1 0002110a 2f 11 |/ | MOVE.L (A1),-(A7) 0002110c 30 10 |0 | MOVE.W (A0),D0 0002110e 48 c0 |H | EXTW.L D0 00021110 44 80 |D | NEG.L D0 00021112 2f 00 |/ | MOVE.L D0,-(A7) 00021114 4e ba ff 48 |N H | JSR 0x2105e 00021118 50 4f |PO | ADDQ.L #0x8,A7 0002111a 30 10 |0 | MOVE.W (A0),D0 0002111c 48 c0 |H | EXTW.L D0 0002111e 2f 00 |/ | MOVE.L D0,-(A7) 00021120 7e 01 |~ | MOVEQ.L #0x01,D7 00021122 be 97 | | CMP.L (A7),D7 00021124 6e 36 |n6 | BGT 0x2115c 00021126 20 52 | R | MOVEA.L (A2),A0 00021128 20 07 | | MOVE.L D7,D0 0002112a d0 90 | | ADD.L (A0),D0 0002112c 53 80 |S | SUBQ.L #0x1,D0 0002112e 53 80 |S | SUBQ.L #0x1,D0 00021130 0c 80 00 00 0f ff | | CMPI.L #0x00000fff,D0 00021136 63 02 |c | BLS 0x2113a 00021138 4e 4f |NO | TRAP #15 0002113a 41 f9 00 02 46 0c |A F | LEA.L 0x2460c,A0 00021140 22 07 |" | MOVE.L D7,D1 00021142 53 81 |S | SUBQ.L #0x1,D1 00021144 0c 81 00 00 00 7d | } | CMPI.L #0x0000007d,D1 0002114a 63 02 |c | BLS 0x2114e 0002114c 4e 4f |NO | TRAP #15 0002114e 22 6f 00 04 |"o | MOVEA.L (A7+0x4),A1 00021152 11 b1 18 02 08 08 | | MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x8) 00021158 52 87 |R | ADDQ.L #0x1,D7 0002115a 68 c6 |h | BVC 0x21122 0002115c 58 4f |XO | ADDQ.L #0x4,A7 0002115e 20 52 | R | MOVEA.L (A2),A0 00021160 22 57 |"W | MOVEA.L (A7),A1 00021162 30 11 |0 | MOVE.W (A1),D0 00021164 48 c0 |H | EXTW.L D0 00021166 d1 90 | | ADD.L D0,(A0) 00021168 58 4f |XO | ADDQ.L #0x4,A7 0002116a 4c df 07 83 |L | MOVEM.L (A7)+,D0+D1+D7+A0+A1+A2 0002116e 4e 5e |N^ | UNLK A6 00021170 4e 75 |Nu | RTS 00021172 ; -------------------------------------------------------------------------------------- 00021172 ; OMSI PASCAL Function 00021172 ; <LVAR 0x00c 4(r)> 00021172 ; <LVAR 0x008 4(r)> 00021172 ; -------------------------------------------------------------------------------------- 00021172 4e 56 ff a8 |NV | LINK.W A6,#0xffa8 00021176 bf d5 | | CMPA.L (A5),A7 00021178 62 06 |b | BHI 0x21180 0002117a 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002117e 4e 76 |Nv | TRAPV 00021180 de fc 00 50 | P | ADDA.W #0x50,A7 00021184 48 e7 c3 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D1+D0,-(A7) 00021188 45 fa fe 4e |E N | LEA.L 0x20fd8,A2 0002118c 47 f8 00 04 |G | LEA.L 0x4,A3 00021190 49 ee 00 08 |I | LEA.L (A6+0x8),A4 00021194 72 0c |r | MOVEQ.L #0x0c,D1 00021196 7e 00 |~ | MOVEQ.L #0x00,D7 00021198 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 0002119c 42 90 |B | CLR.L (A0) 0002119e 20 54 | T | MOVEA.L (A4),A0 000211a0 42 90 |B | CLR.L (A0) 000211a2 2c 39 00 02 56 14 |,9 V | MOVE.L 0x25614,D6 000211a8 20 06 | | MOVE.L D6,D0 000211aa 53 80 |S | SUBQ.L #0x1,D0 000211ac 0c 80 00 00 0f ff | | CMPI.L #0x00000fff,D0 000211b2 63 02 |c | BLS 0x211b6 000211b4 4e 4f |NO | TRAP #15 000211b6 41 f9 00 02 46 0c |A F | LEA.L 0x2460c,A0 000211bc 10 30 08 08 | 0 | MOVE.B (A0+D0.L+#0x8),D0 000211c0 0c 00 00 5b | [ | CMPI.B #0x5b,D0 000211c4 66 00 00 d4 |f | BNE 0x2129a 000211c8 55 4f |UO | SUBQ.L #0x2,A7 000211ca 2f 06 |/ | MOVE.L D6,-(A7) 000211cc 48 78 00 01 |Hx | PEA.L 0x1 000211d0 48 78 00 03 |Hx | PEA.L 0x3 000211d4 4e 92 |N | JSR (A2) 000211d6 de c1 | | ADDA.W D1,A7 000211d8 4a 1f |J | TST.B (A7)+ 000211da 66 7e |f~ | BNE 0x2125a 000211dc 55 4f |UO | SUBQ.L #0x2,A7 000211de 2f 06 |/ | MOVE.L D6,-(A7) 000211e0 48 53 |HS | PEA.L (A3) 000211e2 48 78 00 03 |Hx | PEA.L 0x3 000211e6 4e 92 |N | JSR (A2) 000211e8 de c1 | | ADDA.W D1,A7 000211ea 4a 1f |J | TST.B (A7)+ 000211ec 66 6c |fl | BNE 0x2125a 000211ee 55 4f |UO | SUBQ.L #0x2,A7 000211f0 2f 06 |/ | MOVE.L D6,-(A7) 000211f2 48 78 00 07 |Hx | PEA.L 0x7 000211f6 48 53 |HS | PEA.L (A3) 000211f8 4e 92 |N | JSR (A2) 000211fa de c1 | | ADDA.W D1,A7 000211fc 4a 1f |J | TST.B (A7)+ 000211fe 66 5a |fZ | BNE 0x2125a 00021200 55 4f |UO | SUBQ.L #0x2,A7 00021202 2f 06 |/ | MOVE.L D6,-(A7) 00021204 48 78 00 0b |Hx | PEA.L 0xb 00021208 48 53 |HS | PEA.L (A3) 0002120a 4e 92 |N | JSR (A2) 0002120c de c1 | | ADDA.W D1,A7 0002120e 4a 1f |J | TST.B (A7)+ 00021210 66 48 |fH | BNE 0x2125a 00021212 55 4f |UO | SUBQ.L #0x2,A7 00021214 2f 06 |/ | MOVE.L D6,-(A7) 00021216 48 78 00 0f |Hx | PEA.L 0xf 0002121a 48 53 |HS | PEA.L (A3) 0002121c 4e 92 |N | JSR (A2) 0002121e de c1 | | ADDA.W D1,A7 00021220 4a 1f |J | TST.B (A7)+ 00021222 66 36 |f6 | BNE 0x2125a 00021224 55 4f |UO | SUBQ.L #0x2,A7 00021226 2f 06 |/ | MOVE.L D6,-(A7) 00021228 48 78 00 13 |Hx | PEA.L 0x13 0002122c 48 53 |HS | PEA.L (A3) 0002122e 4e 92 |N | JSR (A2) 00021230 de c1 | | ADDA.W D1,A7 00021232 4a 1f |J | TST.B (A7)+ 00021234 66 24 |f$ | BNE 0x2125a 00021236 55 4f |UO | SUBQ.L #0x2,A7 00021238 2f 06 |/ | MOVE.L D6,-(A7) 0002123a 48 78 00 17 |Hx | PEA.L 0x17 0002123e 48 53 |HS | PEA.L (A3) 00021240 4e 92 |N | JSR (A2) 00021242 de c1 | | ADDA.W D1,A7 00021244 4a 1f |J | TST.B (A7)+ 00021246 66 12 |f | BNE 0x2125a 00021248 55 4f |UO | SUBQ.L #0x2,A7 0002124a 2f 06 |/ | MOVE.L D6,-(A7) 0002124c 48 78 00 1b |Hx | PEA.L 0x1b 00021250 48 53 |HS | PEA.L (A3) 00021252 4e 92 |N | JSR (A2) 00021254 de c1 | | ADDA.W D1,A7 00021256 4a 1f |J | TST.B (A7)+ 00021258 67 04 |g | BEQ 0x2125e 0002125a 52 87 |R | ADDQ.L #0x1,D7 0002125c 60 3c |`< | BRA 0x2129a 0002125e 4a 87 |J | TST.L D7 00021260 66 1c |f | BNE 0x2127e 00021262 55 4f |UO | SUBQ.L #0x2,A7 00021264 2f 06 |/ | MOVE.L D6,-(A7) 00021266 48 78 00 1f |Hx | PEA.L 0x1f 0002126a 48 78 00 05 |Hx | PEA.L 0x5 0002126e 4e 92 |N | JSR (A2) 00021270 de c1 | | ADDA.W D1,A7 00021272 4a 1f |J | TST.B (A7)+ 00021274 67 08 |g | BEQ 0x2127e 00021276 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 0002127a 20 86 | | MOVE.L D6,(A0) 0002127c 60 1c |` | BRA 0x2129a 0002127e 55 4f |UO | SUBQ.L #0x2,A7 00021280 2f 06 |/ | MOVE.L D6,-(A7) 00021282 48 78 00 24 |Hx $ | PEA.L 0x24 00021286 48 53 |HS | PEA.L (A3) 00021288 4e 92 |N | JSR (A2) 0002128a de c1 | | ADDA.W D1,A7 0002128c 4a 1f |J | TST.B (A7)+ 0002128e 67 0a |g | BEQ 0x2129a 00021290 4a 87 |J | TST.L D7 00021292 66 04 |f | BNE 0x21298 00021294 20 54 | T | MOVEA.L (A4),A0 00021296 60 e2 |` | BRA 0x2127a 00021298 53 87 |S | SUBQ.L #0x1,D7 0002129a 52 86 |R | ADDQ.L #0x1,D6 0002129c bc b9 00 02 56 18 | V | CMP.L 0x25618,D6 000212a2 6e 0e |n | BGT 0x212b2 000212a4 4a 87 |J | TST.L D7 000212a6 66 00 ff 00 |f | BNE 0x211a8 000212aa 20 54 | T | MOVEA.L (A4),A0 000212ac 4a 90 |J | TST.L (A0) 000212ae 67 00 fe f8 |g | BEQ 0x211a8 000212b2 bc b9 00 02 56 18 | V | CMP.L 0x25618,D6 000212b8 6f 30 |o0 | BLE 0x212ea 000212ba 9e fc 00 1c | | SUBA.W #0x1c,A7 000212be 20 4f | O | MOVEA.L A7,A0 000212c0 43 fa f3 be |C | LEA.L 0x20680,A1 000212c4 70 1a |p | MOVEQ.L #0x1a,D0 000212c6 10 d9 | | MOVE.B (A1)+,(A0)+ 000212c8 51 c8 ff fc |Q | DBF D0,0x212c6 000212cc 59 4f |YO | SUBQ.L #0x4,A7 000212ce 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000212d2 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000212d6 3f 3c 00 1b |?< | MOVE.W #0x1b,-(A7) 000212da 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000212e0 50 4f |PO | ADDQ.L #0x8,A7 000212e2 4e ba f8 26 |N & | JSR 0x20b0a 000212e6 de fc 00 20 | | ADDA.W #0x20,A7 000212ea 4c df 1f c3 |L | MOVEM.L (A7)+,D0+D1+D6+D7+A0+A1+A2+A3+A4 000212ee 4e 5e |N^ | UNLK A6 000212f0 4e 75 |Nu | RTS 000212f2 ; -------------------------------------------------------------------------------------- 000212f2 ; OMSI PASCAL Function 000212f2 ; <LVAR -0x004 @ 4(r)> 000212f2 ; <LVAR -0x008 @ 4(rw)> 000212f2 ; -------------------------------------------------------------------------------------- 000212f2 4e 56 ff dc |NV | LINK.W A6,#0xffdc 000212f6 bf d5 | | CMPA.L (A5),A7 000212f8 62 06 |b | BHI 0x21300 000212fa 44 fc 00 02 |D | MOVE.W #0x2,CCR 000212fe 4e 76 |Nv | TRAPV 00021300 de fc 00 1c | | ADDA.W #0x1c,A7 00021304 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7) 00021308 41 ee ff f8 |A | LEA.L (A6-0x8),A0 0002130c 43 ee ff fc |C | LEA.L (A6-0x4),A1 00021310 48 50 |HP | PEA.L (A0) 00021312 48 51 |HQ | PEA.L (A1) 00021314 4e ba fe 5c |N \ | JSR 0x21172 00021318 50 4f |PO | ADDQ.L #0x8,A7 0002131a 4a 90 |J | TST.L (A0) 0002131c 66 02 |f | BNE 0x21320 0002131e 20 91 | | MOVE.L (A1),(A0) 00021320 20 11 | | MOVE.L (A1),D0 00021322 5a 80 |Z | ADDQ.L #0x5,D0 00021324 2f 00 |/ | MOVE.L D0,-(A7) 00021326 90 90 | | SUB.L (A0),D0 00021328 2f 00 |/ | MOVE.L D0,-(A7) 0002132a 4e ba fd 32 |N 2 | JSR 0x2105e 0002132e 50 4f |PO | ADDQ.L #0x8,A7 00021330 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1 00021334 4e 5e |N^ | UNLK A6 00021336 4e 75 |Nu | RTS 00021338 ; -------------------------------------------------------------------------------------- 00021338 ; OMSI PASCAL Function 00021338 ; <LVAR -0x004 @ 4(r)> 00021338 ; <LVAR -0x008 @ 4(r)> 00021338 ; -------------------------------------------------------------------------------------- 00021338 4e 56 ff dc |NV | LINK.W A6,#0xffdc 0002133c bf d5 | | CMPA.L (A5),A7 0002133e 62 06 |b | BHI 0x21346 00021340 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021344 4e 76 |Nv | TRAPV 00021346 de fc 00 1c | | ADDA.W #0x1c,A7 0002134a 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7) 0002134e 41 ee ff f8 |A | LEA.L (A6-0x8),A0 00021352 43 ee ff fc |C | LEA.L (A6-0x4),A1 00021356 48 50 |HP | PEA.L (A0) 00021358 48 51 |HQ | PEA.L (A1) 0002135a 4e ba fe 16 |N | JSR 0x21172 0002135e 50 4f |PO | ADDQ.L #0x8,A7 00021360 4a 90 |J | TST.L (A0) 00021362 66 06 |f | BNE 0x2136a 00021364 20 11 | | MOVE.L (A1),D0 00021366 5a 80 |Z | ADDQ.L #0x5,D0 00021368 60 12 |` | BRA 0x2137c 0002136a 2f 11 |/ | MOVE.L (A1),-(A7) 0002136c 5a 97 |Z | ADDQ.L #0x5,(A7) 0002136e 48 78 00 05 |Hx | PEA.L 0x5 00021372 4e ba fc ea |N | JSR 0x2105e 00021376 50 4f |PO | ADDQ.L #0x8,A7 00021378 20 10 | | MOVE.L (A0),D0 0002137a 5c 80 |\ | ADDQ.L #0x6,D0 0002137c 2f 00 |/ | MOVE.L D0,-(A7) 0002137e 90 b9 00 02 56 14 | V | SUB.L 0x25614,D0 00021384 2f 00 |/ | MOVE.L D0,-(A7) 00021386 4e ba fc d6 |N | JSR 0x2105e 0002138a 50 4f |PO | ADDQ.L #0x8,A7 0002138c 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1 00021390 4e 5e |N^ | UNLK A6 00021392 4e 75 |Nu | RTS 00021394 ; -------------------------------------------------------------------------------------- 00021394 ; OMSI PASCAL Function 00021394 ; <LVAR 0x008 4(r)> 00021394 ; <LVAR -0x004 @> 00021394 ; <LVAR -0x008 @ 4(r)> 00021394 ; <LVAR -0x00c @ 4(rw)> 00021394 ; <LVAR -0x010 4(rw)> 00021394 ; <LVAR -0x014 4(rw)> 00021394 ; -------------------------------------------------------------------------------------- 00021394 4e 56 ff ba |NV | LINK.W A6,#0xffba 00021398 bf d5 | | CMPA.L (A5),A7 0002139a 62 06 |b | BHI 0x213a2 0002139c 44 fc 00 02 |D | MOVE.W #0x2,CCR 000213a0 4e 76 |Nv | TRAPV 000213a2 de fc 00 32 | 2 | ADDA.W #0x32,A7 000213a6 48 e7 c0 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D1+D0,-(A7) 000213aa 43 f9 00 02 56 26 |C V& | LEA.L 0x25626,A1 000213b0 45 f9 00 02 56 2c |E V, | LEA.L 0x2562c,A2 000213b6 47 f9 00 02 56 14 |G V | LEA.L 0x25614,A3 000213bc 49 ee ff f8 |I | LEA.L (A6-0x8),A4 000213c0 72 01 |r | MOVEQ.L #0x01,D1 000213c2 4a 11 |J | TST.B (A1) 000213c4 67 0a |g | BEQ 0x213d0 000213c6 4a 92 |J | TST.L (A2) 000213c8 66 06 |f | BNE 0x213d0 000213ca 24 ae 00 08 |$ | MOVE.L (A6+0x8),(A2) 000213ce 53 92 |S | SUBQ.L #0x1,(A2) 000213d0 4a 11 |J | TST.B (A1) 000213d2 66 00 00 cc |f | BNE 0x214a0 000213d6 26 ae 00 08 |& | MOVE.L (A6+0x8),(A3) 000213da 5c 93 |\ | ADDQ.L #0x6,(A3) 000213dc 48 54 |HT | PEA.L (A4) 000213de 48 6e ff fc |Hn | PEA.L (A6-0x4) 000213e2 4e ba fa 86 |N | JSR 0x20e6a 000213e6 50 4f |PO | ADDQ.L #0x8,A7 000213e8 41 fa f2 bc |A | LEA.L 0x206a6,A0 000213ec 70 04 |p | MOVEQ.L #0x04,D0 000213ee 3f 20 |? | MOVE.W -(A0),-(A7) 000213f0 51 c8 ff fc |Q | DBF D0,0x213ee 000213f4 2f 14 |/ | MOVE.L (A4),-(A7) 000213f6 48 78 00 00 |Hx | PEA.L 0x0 000213fa 4e ba fb 50 |N P | JSR 0x20f4c 000213fe de fc 00 12 | | ADDA.W #0x12,A7 00021402 4a 39 00 02 56 30 |J9 V0 | TST.B 0x25630 00021408 67 1a |g | BEQ 0x21424 0002140a 51 4f |QO | SUBQ.L #0x8,A7 0002140c 2f 14 |/ | MOVE.L (A4),-(A7) 0002140e 48 78 00 00 |Hx | PEA.L 0x0 00021412 4e b9 00 02 18 64 |N d | JSR 0x21864 00021418 50 4f |PO | ADDQ.L #0x8,A7 0002141a 2d 5f ff ec |-_ | MOVE.L (A7)+,(A6-0x14) 0002141e 2d 5f ff f0 |-_ | MOVE.L (A7)+,(A6-0x10) 00021422 60 14 |` | BRA 0x21438 00021424 59 4f |YO | SUBQ.L #0x4,A7 00021426 2f 14 |/ | MOVE.L (A4),-(A7) 00021428 48 78 00 00 |Hx | PEA.L 0x0 0002142c 4e b9 00 02 18 32 |N 2 | JSR 0x21832 00021432 50 4f |PO | ADDQ.L #0x8,A7 00021434 2d 5f ff f4 |-_ | MOVE.L (A7)+,(A6-0xc) 00021438 2f 14 |/ | MOVE.L (A4),-(A7) 0002143a 4e ba f6 8c |N | JSR 0x20ac8 0002143e 58 4f |XO | ADDQ.L #0x4,A7 00021440 23 d3 00 02 56 28 |# V( | MOVE.L (A3),0x25628 00021446 4a 39 00 02 56 30 |J9 V0 | TST.B 0x25630 0002144c 67 2a |g* | BEQ 0x21478 0002144e 55 4f |UO | SUBQ.L #0x2,A7 00021450 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7) 00021454 2f 2e ff ec |/. | MOVE.L (A6-0x14),-(A7) 00021458 2f 39 00 02 56 3a |/9 V: | MOVE.L 0x2563a,-(A7) 0002145e 2f 39 00 02 56 36 |/9 V6 | MOVE.L 0x25636,-(A7) 00021464 4e b9 00 01 03 2c |N , | JSR IsEqual(a, b : Quad) : Bool 0002146a de fc 00 10 | | ADDA.W #0x10,A7 0002146e 10 1f | | MOVE.B (A7)+,D0 00021470 48 80 |H | EXTB.W D0 00021472 41 81 |A | CHK.W D1,D0 00021474 12 80 | | MOVE.B D0,(A1) 00021476 60 28 |`( | BRA 0x214a0 00021478 55 4f |UO | SUBQ.L #0x2,A7 0002147a 2f 2e ff f4 |/. | MOVE.L (A6-0xc),-(A7) 0002147e 2f 39 00 02 56 32 |/9 V2 | MOVE.L 0x25632,-(A7) 00021484 4e b9 00 01 02 c8 |N | JSR StringEqual(a, b : String) : Byte 0002148a 50 4f |PO | ADDQ.L #0x8,A7 0002148c 10 1f | | MOVE.B (A7)+,D0 0002148e 48 80 |H | EXTB.W D0 00021490 41 81 |A | CHK.W D1,D0 00021492 12 80 | | MOVE.B D0,(A1) 00021494 48 6e ff f4 |Hn | PEA.L (A6-0xc) 00021498 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 0002149e 58 4f |XO | ADDQ.L #0x4,A7 000214a0 4c df 1f 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2+A3+A4 000214a4 4e 5e |N^ | UNLK A6 000214a6 4e 75 |Nu | RTS 000214a8 ; -------------------------------------------------------------------------------------- 000214a8 ; OMSI PASCAL Function 000214a8 ; <LVAR 0x010 4(r)> 000214a8 ; <LVAR 0x00c 4(r)> 000214a8 ; <LVAR 0x008 4(r)> 000214a8 ; -------------------------------------------------------------------------------------- 000214a8 4e 56 ff 9e |NV | LINK.W A6,#0xff9e 000214ac bf d5 | | CMPA.L (A5),A7 000214ae 62 06 |b | BHI 0x214b6 000214b0 44 fc 00 02 |D | MOVE.W #0x2,CCR 000214b4 4e 76 |Nv | TRAPV 000214b6 de fc 00 56 | V | ADDA.W #0x56,A7 000214ba 48 e7 e7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7) 000214be 45 f9 00 02 56 2c |E V, | LEA.L 0x2562c,A2 000214c4 47 fa fb 12 |G | LEA.L 0x20fd8,A3 000214c8 49 f9 00 02 56 26 |I V& | LEA.L 0x25626,A4 000214ce 72 0c |r | MOVEQ.L #0x0c,D1 000214d0 74 01 |t | MOVEQ.L #0x01,D2 000214d2 42 14 |B | CLR.B (A4) 000214d4 42 b9 00 02 56 28 |B V( | CLR.L 0x25628 000214da 42 92 |B | CLR.L (A2) 000214dc 7e 00 |~ | MOVEQ.L #0x00,D7 000214de 7c 00 || | MOVEQ.L #0x00,D6 000214e0 2a 39 00 02 56 14 |*9 V | MOVE.L 0x25614,D5 000214e6 4a 86 |J | TST.L D6 000214e8 66 00 00 a0 |f | BNE 0x2158a 000214ec ba b9 00 02 56 18 | V | CMP.L 0x25618,D5 000214f2 6e 00 00 96 |n | BGT 0x2158a 000214f6 20 05 | | MOVE.L D5,D0 000214f8 53 80 |S | SUBQ.L #0x1,D0 000214fa 0c 80 00 00 0f ff | | CMPI.L #0x00000fff,D0 00021500 63 02 |c | BLS 0x21504 00021502 4e 4f |NO | TRAP #15 00021504 41 f9 00 02 46 0c |A F | LEA.L 0x2460c,A0 0002150a 10 30 08 08 | 0 | MOVE.B (A0+D0.L+#0x8),D0 0002150e 0c 00 00 5b | [ | CMPI.B #0x5b,D0 00021512 66 6c |fl | BNE 0x21580 00021514 55 4f |UO | SUBQ.L #0x2,A7 00021516 2f 05 |/ | MOVE.L D5,-(A7) 00021518 48 78 00 28 |Hx ( | PEA.L 0x28 0002151c 48 78 00 05 |Hx | PEA.L 0x5 00021520 4e 93 |N | JSR (A3) 00021522 de c1 | | ADDA.W D1,A7 00021524 4a 1f |J | TST.B (A7)+ 00021526 66 14 |f | BNE 0x2153c 00021528 55 4f |UO | SUBQ.L #0x2,A7 0002152a 2f 05 |/ | MOVE.L D5,-(A7) 0002152c 48 78 00 2d |Hx - | PEA.L 0x2d 00021530 48 78 00 06 |Hx | PEA.L 0x6 00021534 4e 93 |N | JSR (A3) 00021536 de c1 | | ADDA.W D1,A7 00021538 4a 1f |J | TST.B (A7)+ 0002153a 67 04 |g | BEQ 0x21540 0002153c 52 87 |R | ADDQ.L #0x1,D7 0002153e 60 40 |`@ | BRA 0x21580 00021540 4a 87 |J | TST.L D7 00021542 66 1e |f | BNE 0x21562 00021544 55 4f |UO | SUBQ.L #0x2,A7 00021546 2f 05 |/ | MOVE.L D5,-(A7) 00021548 48 78 00 33 |Hx 3 | PEA.L 0x33 0002154c 48 78 00 05 |Hx | PEA.L 0x5 00021550 4e 93 |N | JSR (A3) 00021552 de c1 | | ADDA.W D1,A7 00021554 4a 1f |J | TST.B (A7)+ 00021556 67 0a |g | BEQ 0x21562 00021558 2f 05 |/ | MOVE.L D5,-(A7) 0002155a 4e ba fe 38 |N 8 | JSR 0x21394 0002155e 58 4f |XO | ADDQ.L #0x4,A7 00021560 60 1e |` | BRA 0x21580 00021562 55 4f |UO | SUBQ.L #0x2,A7 00021564 2f 05 |/ | MOVE.L D5,-(A7) 00021566 48 78 00 38 |Hx 8 | PEA.L 0x38 0002156a 48 78 00 08 |Hx | PEA.L 0x8 0002156e 4e 93 |N | JSR (A3) 00021570 de c1 | | ADDA.W D1,A7 00021572 4a 1f |J | TST.B (A7)+ 00021574 67 0a |g | BEQ 0x21580 00021576 4a 87 |J | TST.L D7 00021578 66 04 |f | BNE 0x2157e 0002157a 2c 05 |, | MOVE.L D5,D6 0002157c 60 02 |` | BRA 0x21580 0002157e 53 87 |S | SUBQ.L #0x1,D7 00021580 4a 86 |J | TST.L D6 00021582 66 02 |f | BNE 0x21586 00021584 52 85 |R | ADDQ.L #0x1,D5 00021586 60 00 ff 5e |` ^ | BRA 0x214e6 0002158a 4a 39 00 02 56 30 |J9 V0 | TST.B 0x25630 00021590 66 0e |f | BNE 0x215a0 00021592 48 79 00 02 56 32 |Hy V2 | PEA.L 0x25632 00021598 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 0002159e 58 4f |XO | ADDQ.L #0x4,A7 000215a0 4a 14 |J | TST.B (A4) 000215a2 66 28 |f( | BNE 0x215cc 000215a4 41 fa f1 1a |A | LEA.L 0x206c0,A0 000215a8 70 0c |p | MOVEQ.L #0x0c,D0 000215aa 3f 20 |? | MOVE.W -(A0),-(A7) 000215ac 51 c8 ff fc |Q | DBF D0,0x215aa 000215b0 59 4f |YO | SUBQ.L #0x4,A7 000215b2 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000215b6 3f 02 |? | MOVE.W D2,-(A7) 000215b8 3f 3c 00 1a |?< | MOVE.W #0x1a,-(A7) 000215bc 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000215c2 50 4f |PO | ADDQ.L #0x8,A7 000215c4 4e ba f5 44 |N D | JSR 0x20b0a 000215c8 de fc 00 1e | | ADDA.W #0x1e,A7 000215cc 4a 86 |J | TST.L D6 000215ce 66 2e |f. | BNE 0x215fe 000215d0 9e fc 00 14 | | SUBA.W #0x14,A7 000215d4 20 4f | O | MOVEA.L A7,A0 000215d6 43 fa f0 e8 |C | LEA.L 0x206c0,A1 000215da 70 12 |p | MOVEQ.L #0x12,D0 000215dc 10 d9 | | MOVE.B (A1)+,(A0)+ 000215de 51 c8 ff fc |Q | DBF D0,0x215dc 000215e2 59 4f |YO | SUBQ.L #0x4,A7 000215e4 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000215e8 3f 02 |? | MOVE.W D2,-(A7) 000215ea 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7) 000215ee 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000215f4 50 4f |PO | ADDQ.L #0x8,A7 000215f6 4e ba f5 12 |N | JSR 0x20b0a 000215fa de fc 00 18 | | ADDA.W #0x18,A7 000215fe 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00021602 20 86 | | MOVE.L D6,(A0) 00021604 20 6e 00 10 | n | MOVEA.L (A6+0x10),A0 00021608 20 b9 00 02 56 28 | V( | MOVE.L 0x25628,(A0) 0002160e 4a 92 |J | TST.L (A2) 00021610 66 0a |f | BNE 0x2161c 00021612 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 00021616 20 86 | | MOVE.L D6,(A0) 00021618 53 90 |S | SUBQ.L #0x1,(A0) 0002161a 60 06 |` | BRA 0x21622 0002161c 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 00021620 20 92 | | MOVE.L (A2),(A0) 00021622 4c df 1f e7 |L | MOVEM.L (A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3+A4 00021626 4e 5e |N^ | UNLK A6 00021628 4e 75 |Nu | RTS 0002162a ; -------------------------------------------------------------------------------------- 0002162a ; OMSI PASCAL Function 0002162a ; <LVAR 0x008 4(r)> 0002162a ; <LVAR -0x008 @ 4(r)> 0002162a ; <LVAR -0x00c @ 4(r)> 0002162a ; <LVAR -0x010 @ 4(r)> 0002162a ; -------------------------------------------------------------------------------------- 0002162a 4e 56 ff c8 |NV | LINK.W A6,#0xffc8 0002162e bf d5 | | CMPA.L (A5),A7 00021630 62 06 |b | BHI 0x21638 00021632 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021636 4e 76 |Nv | TRAPV 00021638 de fc 00 24 | $ | ADDA.W #0x24,A7 0002163c 48 e7 83 c0 |H | MOVEM.L A1+A0+D7+D6+D0,-(A7) 00021640 41 f9 00 02 56 14 |A V | LEA.L 0x25614,A0 00021646 43 ee ff f0 |C | LEA.L (A6-0x10),A1 0002164a 2c 10 |, | MOVE.L (A0),D6 0002164c 42 39 00 02 56 30 |B9 V0 | CLR.B 0x25630 00021652 23 ee 00 08 00 02 56 32 |# V2| MOVE.L (A6+0x8),0x25632 0002165a 2e 10 |. | MOVE.L (A0),D7 0002165c 48 51 |HQ | PEA.L (A1) 0002165e 48 6e ff f4 |Hn | PEA.L (A6-0xc) 00021662 48 6e ff f8 |Hn | PEA.L (A6-0x8) 00021666 4e ba fe 40 |N @ | JSR 0x214a8 0002166a de fc 00 0c | | ADDA.W #0xc,A7 0002166e 20 86 | | MOVE.L D6,(A0) 00021670 20 2e ff f8 | . | MOVE.L (A6-0x8),D0 00021674 06 80 00 00 00 09 | | ADDI.L #0x00000009,D0 0002167a 2f 00 |/ | MOVE.L D0,-(A7) 0002167c 90 ae ff f4 | | SUB.L (A6-0xc),D0 00021680 53 80 |S | SUBQ.L #0x1,D0 00021682 2f 00 |/ | MOVE.L D0,-(A7) 00021684 4e ba f9 d8 |N | JSR 0x2105e 00021688 58 4f |XO | ADDQ.L #0x4,A7 0002168a 2e 91 |. | MOVE.L (A1),(A7) 0002168c 2f 11 |/ | MOVE.L (A1),-(A7) 0002168e 9f 97 | | SUB.L D7,(A7) 00021690 4e ba f9 cc |N | JSR 0x2105e 00021694 50 4f |PO | ADDQ.L #0x8,A7 00021696 4c df 03 c1 |L | MOVEM.L (A7)+,D0+D6+D7+A0+A1 0002169a 4e 5e |N^ | UNLK A6 0002169c 4e 75 |Nu | RTS 0002169e ; -------------------------------------------------------------------------------------- 0002169e ; OMSI PASCAL Function 0002169e ; <LVAR 0x00c 4(r)> 0002169e ; <LVAR 0x008 4(r)> 0002169e ; <LVAR -0x008 @ 4(r)> 0002169e ; <LVAR -0x00c @ 4(r)> 0002169e ; <LVAR -0x010 @ 4(r)> 0002169e ; -------------------------------------------------------------------------------------- 0002169e 4e 56 ff c8 |NV | LINK.W A6,#0xffc8 000216a2 bf d5 | | CMPA.L (A5),A7 000216a4 62 06 |b | BHI 0x216ac 000216a6 44 fc 00 02 |D | MOVE.W #0x2,CCR 000216aa 4e 76 |Nv | TRAPV 000216ac de fc 00 24 | $ | ADDA.W #0x24,A7 000216b0 48 e7 83 c0 |H | MOVEM.L A1+A0+D7+D6+D0,-(A7) 000216b4 41 f9 00 02 56 14 |A V | LEA.L 0x25614,A0 000216ba 43 ee ff f0 |C | LEA.L (A6-0x10),A1 000216be 2c 10 |, | MOVE.L (A0),D6 000216c0 13 fc 00 01 00 02 56 30 | V0| MOVE.B #0x01,0x25630 000216c8 23 ee 00 08 00 02 56 36 |# V6| MOVE.L (A6+0x8),0x25636 000216d0 23 ee 00 0c 00 02 56 3a |# V:| MOVE.L (A6+0xc),0x2563a 000216d8 2e 10 |. | MOVE.L (A0),D7 000216da 48 51 |HQ | PEA.L (A1) 000216dc 48 6e ff f4 |Hn | PEA.L (A6-0xc) 000216e0 48 6e ff f8 |Hn | PEA.L (A6-0x8) 000216e4 4e ba fd c2 |N | JSR 0x214a8 000216e8 de fc 00 0c | | ADDA.W #0xc,A7 000216ec 20 86 | | MOVE.L D6,(A0) 000216ee 20 2e ff f8 | . | MOVE.L (A6-0x8),D0 000216f2 06 80 00 00 00 09 | | ADDI.L #0x00000009,D0 000216f8 2f 00 |/ | MOVE.L D0,-(A7) 000216fa 90 ae ff f4 | | SUB.L (A6-0xc),D0 000216fe 53 80 |S | SUBQ.L #0x1,D0 00021700 2f 00 |/ | MOVE.L D0,-(A7) 00021702 4e ba f9 5a |N Z | JSR 0x2105e 00021706 58 4f |XO | ADDQ.L #0x4,A7 00021708 2e 91 |. | MOVE.L (A1),(A7) 0002170a 2f 11 |/ | MOVE.L (A1),-(A7) 0002170c 9f 97 | | SUB.L D7,(A7) 0002170e 4e ba f9 4e |N N | JSR 0x2105e 00021712 50 4f |PO | ADDQ.L #0x8,A7 00021714 4c df 03 c1 |L | MOVEM.L (A7)+,D0+D6+D7+A0+A1 00021718 4e 5e |N^ | UNLK A6 0002171a 4e 75 |Nu | RTS 0002171c ; -------------------------------------------------------------------------------------- 0002171c ; OMSI PASCAL Function 0002171c ; <LVAR 0x010 4(rw)> 0002171c ; <LVAR 0x00c 4(r)> 0002171c ; <LVAR 0x008 4(r)> 0002171c ; -------------------------------------------------------------------------------------- 0002171c 4e 56 ff f8 |NV | LINK.W A6,#0xfff8 00021720 bf d5 | | CMPA.L (A5),A7 00021722 62 06 |b | BHI 0x2172a 00021724 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021728 4e 76 |Nv | TRAPV 0002172a de fc 00 08 | | ADDA.W #0x8,A7 0002172e 48 e7 80 00 |H | MOVEM.L D0,-(A7) 00021732 4a ae 00 08 |J | TST.L (A6+0x8) 00021736 66 06 |f | BNE 0x2173e 00021738 42 ae 00 10 |B | CLR.L (A6+0x10) 0002173c 60 0e |` | BRA 0x2174c 0002173e 20 2e 00 0c | . | MOVE.L (A6+0xc),D0 00021742 90 ae 00 08 | | SUB.L (A6+0x8),D0 00021746 52 80 |R | ADDQ.L #0x1,D0 00021748 2d 40 00 10 |-@ | MOVE.L D0,(A6+0x10) 0002174c 4c df 00 01 |L | MOVEM.L (A7)+,D0 00021750 4e 5e |N^ | UNLK A6 00021752 4e 75 |Nu | RTS 00021754 ; -------------------------------------------------------------------------------------- 00021754 ; OMSI PASCAL Function 00021754 ; <LVAR 0x014 4(w)> 00021754 ; <LVAR 0x010 @ 4(w)> 00021754 ; <LVAR 0x00c 4(r)> 00021754 ; <LVAR 0x008 4(r)> 00021754 ; -------------------------------------------------------------------------------------- 00021754 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 00021758 bf d5 | | CMPA.L (A5),A7 0002175a 62 06 |b | BHI 0x21762 0002175c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021760 4e 76 |Nv | TRAPV 00021762 de fc 00 20 | | ADDA.W #0x20,A7 00021766 48 e7 81 c8 |H | MOVEM.L A4+A1+A0+D7+D0,-(A7) 0002176a 28 6e 00 0c |(n | MOVEA.L (A6+0xc),A4 0002176e 2d 7a f2 b2 00 10 |-z | MOVE.L 0x20a22,(A6+0x10) 00021774 2d 7a f2 b0 00 14 |-z | MOVE.L 0x20a26,(A6+0x14) 0002177a 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 0002177e 7e 00 |~ | MOVEQ.L #0x00,D7 00021780 be 97 | | CMP.L (A7),D7 00021782 6e 28 |n( | BGT 0x217ac 00021784 b8 fc 00 01 | | CMPA.W #0x1,A4 00021788 66 04 |f | BNE 0x2178e 0002178a 58 4f |XO | ADDQ.L #0x4,A7 0002178c 60 20 |` | BRA 0x217ae 0002178e be ae 00 08 | | CMP.L (A6+0x8),D7 00021792 66 10 |f | BNE 0x217a4 00021794 41 ee 00 10 |A | LEA.L (A6+0x10),A0 00021798 22 4c |"L | MOVEA.L A4,A1 0002179a 70 07 |p | MOVEQ.L #0x07,D0 0002179c 10 d9 | | MOVE.B (A1)+,(A0)+ 0002179e 51 c8 ff fc |Q | DBF D0,0x2179c 000217a2 60 04 |` | BRA 0x217a8 000217a4 28 6c 00 08 |(l | MOVEA.L (A4+0x8),A4 000217a8 52 87 |R | ADDQ.L #0x1,D7 000217aa 68 d4 |h | BVC 0x21780 000217ac 58 4f |XO | ADDQ.L #0x4,A7 000217ae 4c df 13 81 |L | MOVEM.L (A7)+,D0+D7+A0+A1+A4 000217b2 4e 5e |N^ | UNLK A6 000217b4 4e 75 |Nu | RTS 000217b6 ; -------------------------------------------------------------------------------------- 000217b6 ; OMSI PASCAL Function 000217b6 ; <LVAR 0x010 4(w)> 000217b6 ; <LVAR 0x00c 4(r)> 000217b6 ; <LVAR 0x008 4(r)> 000217b6 ; <LVAR -0x008 @ 4(r)> 000217b6 ; -------------------------------------------------------------------------------------- 000217b6 4e 56 ff ce |NV | LINK.W A6,#0xffce 000217ba bf d5 | | CMPA.L (A5),A7 000217bc 62 06 |b | BHI 0x217c4 000217be 44 fc 00 02 |D | MOVE.W #0x2,CCR 000217c2 4e 76 |Nv | TRAPV 000217c4 de fc 00 26 | & | ADDA.W #0x26,A7 000217c8 48 e7 83 c0 |H | MOVEM.L A1+A0+D7+D6+D0,-(A7) 000217cc 43 ee ff f8 |C | LEA.L (A6-0x8),A1 000217d0 48 51 |HQ | PEA.L (A1) 000217d2 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 000217d8 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 000217dc 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000217e0 4e ba ff 3a |N : | JSR 0x2171c 000217e4 50 4f |PO | ADDQ.L #0x8,A7 000217e6 7e 01 |~ | MOVEQ.L #0x01,D7 000217e8 be 97 | | CMP.L (A7),D7 000217ea 6e 38 |n8 | BGT 0x21824 000217ec 20 07 | | MOVE.L D7,D0 000217ee d0 ae 00 08 | | ADD.L (A6+0x8),D0 000217f2 53 80 |S | SUBQ.L #0x1,D0 000217f4 53 80 |S | SUBQ.L #0x1,D0 000217f6 0c 80 00 00 0f ff | | CMPI.L #0x00000fff,D0 000217fc 63 02 |c | BLS 0x21800 000217fe 4e 4f |NO | TRAP #15 00021800 41 f9 00 02 46 0c |A F | LEA.L 0x2460c,A0 00021806 1c 30 08 08 | 0 | MOVE.B (A0+D0.L+#0x8),D6 0002180a 0c 06 00 2f | / | CMPI.B #0x2f,D6 0002180e 66 04 |f | BNE 0x21814 00021810 58 4f |XO | ADDQ.L #0x4,A7 00021812 60 12 |` | BRA 0x21826 00021814 2f 11 |/ | MOVE.L (A1),-(A7) 00021816 1f 06 | | MOVE.B D6,-(A7) 00021818 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 0002181e 5c 4f |\O | ADDQ.L #0x6,A7 00021820 52 87 |R | ADDQ.L #0x1,D7 00021822 68 c4 |h | BVC 0x217e8 00021824 58 4f |XO | ADDQ.L #0x4,A7 00021826 2d 51 00 10 |-Q | MOVE.L (A1),(A6+0x10) 0002182a 4c df 03 c1 |L | MOVEM.L (A7)+,D0+D6+D7+A0+A1 0002182e 4e 5e |N^ | UNLK A6 00021830 4e 75 |Nu | RTS 00021832 ; -------------------------------------------------------------------------------------- 00021832 ; OMSI PASCAL Function 00021832 ; <LVAR 0x010 4(w)> 00021832 ; <LVAR 0x00c 4(r)> 00021832 ; <LVAR 0x008 4(r)> 00021832 ; -------------------------------------------------------------------------------------- 00021832 4e 56 ff e8 |NV | LINK.W A6,#0xffe8 00021836 bf d5 | | CMPA.L (A5),A7 00021838 62 06 |b | BHI 0x21840 0002183a 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002183e 4e 76 |Nv | TRAPV 00021840 de fc 00 18 | | ADDA.W #0x18,A7 00021844 9e fc 00 0c | | SUBA.W #0xc,A7 00021848 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 0002184c 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00021850 4e ba ff 02 |N | JSR 0x21754 00021854 50 4f |PO | ADDQ.L #0x8,A7 00021856 4e ba ff 5e |N ^ | JSR 0x217b6 0002185a 50 4f |PO | ADDQ.L #0x8,A7 0002185c 2d 5f 00 10 |-_ | MOVE.L (A7)+,(A6+0x10) 00021860 4e 5e |N^ | UNLK A6 00021862 4e 75 |Nu | RTS 00021864 ; -------------------------------------------------------------------------------------- 00021864 ; OMSI PASCAL Function 00021864 ; <LVAR 0x014 4(w)> 00021864 ; <LVAR 0x010 4(w)> 00021864 ; <LVAR 0x00c 4(r)> 00021864 ; <LVAR 0x008 4(r)> 00021864 ; -------------------------------------------------------------------------------------- 00021864 4e 56 ff e8 |NV | LINK.W A6,#0xffe8 00021868 bf d5 | | CMPA.L (A5),A7 0002186a 62 06 |b | BHI 0x21872 0002186c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021870 4e 76 |Nv | TRAPV 00021872 de fc 00 18 | | ADDA.W #0x18,A7 00021876 9e fc 00 0c | | SUBA.W #0xc,A7 0002187a 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 0002187e 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00021882 4e ba ff ae |N | JSR 0x21832 00021886 50 4f |PO | ADDQ.L #0x8,A7 00021888 48 78 00 10 |Hx | PEA.L 0x10 0002188c 4e b9 00 01 03 60 |N ` | JSR ?StringToInt64() 00021892 50 4f |PO | ADDQ.L #0x8,A7 00021894 2d 5f 00 10 |-_ | MOVE.L (A7)+,(A6+0x10) 00021898 2d 5f 00 14 |-_ | MOVE.L (A7)+,(A6+0x14) 0002189c 4e 5e |N^ | UNLK A6 0002189e 4e 75 |Nu | RTS 000218a0 ; -------------------------------------------------------------------------------------- 000218a0 ; OMSI PASCAL Function 000218a0 ; <LVAR 0x010 4(w)> 000218a0 ; <LVAR 0x00c 4(r)> 000218a0 ; <LVAR 0x008 4(r)> 000218a0 ; -------------------------------------------------------------------------------------- 000218a0 4e 56 ff e8 |NV | LINK.W A6,#0xffe8 000218a4 bf d5 | | CMPA.L (A5),A7 000218a6 62 06 |b | BHI 0x218ae 000218a8 44 fc 00 02 |D | MOVE.W #0x2,CCR 000218ac 4e 76 |Nv | TRAPV 000218ae de fc 00 18 | | ADDA.W #0x18,A7 000218b2 9e fc 00 0c | | SUBA.W #0xc,A7 000218b6 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 000218ba 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000218be 4e ba ff a4 |N | JSR 0x21864 000218c2 50 4f |PO | ADDQ.L #0x8,A7 000218c4 4e b9 00 01 03 50 |N P | JSR Quad2Long(a : Quad) : Long 000218ca 50 4f |PO | ADDQ.L #0x8,A7 000218cc 2d 5f 00 10 |-_ | MOVE.L (A7)+,(A6+0x10) 000218d0 4e 5e |N^ | UNLK A6 000218d2 4e 75 |Nu | RTS 000218d4 ; -------------------------------------------------------------------------------------- 000218d4 ; OMSI PASCAL Function 000218d4 ; <LVAR 0x008 @ 4(r)> 000218d4 ; -------------------------------------------------------------------------------------- 000218d4 4e 56 ff d4 |NV | LINK.W A6,#0xffd4 000218d8 bf d5 | | CMPA.L (A5),A7 000218da 62 06 |b | BHI 0x218e2 000218dc 44 fc 00 02 |D | MOVE.W #0x2,CCR 000218e0 4e 76 |Nv | TRAPV 000218e2 de fc 00 28 | ( | ADDA.W #0x28,A7 000218e6 48 e7 c1 e0 |H | MOVEM.L A2+A1+A0+D7+D1+D0,-(A7) 000218ea 45 f9 00 02 56 14 |E V | LEA.L 0x25614,A2 000218f0 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 000218f4 2f 08 |/ | MOVE.L A0,-(A7) 000218f6 2f 12 |/ | MOVE.L (A2),-(A7) 000218f8 30 10 |0 | MOVE.W (A0),D0 000218fa 48 c0 |H | EXTW.L D0 000218fc 44 80 |D | NEG.L D0 000218fe 2f 00 |/ | MOVE.L D0,-(A7) 00021900 4e ba f7 5c |N \ | JSR 0x2105e 00021904 50 4f |PO | ADDQ.L #0x8,A7 00021906 30 10 |0 | MOVE.W (A0),D0 00021908 48 c0 |H | EXTW.L D0 0002190a 2f 00 |/ | MOVE.L D0,-(A7) 0002190c 7e 01 |~ | MOVEQ.L #0x01,D7 0002190e be 97 | | CMP.L (A7),D7 00021910 6e 34 |n4 | BGT 0x21946 00021912 20 07 | | MOVE.L D7,D0 00021914 d0 92 | | ADD.L (A2),D0 00021916 53 80 |S | SUBQ.L #0x1,D0 00021918 53 80 |S | SUBQ.L #0x1,D0 0002191a 0c 80 00 00 0f ff | | CMPI.L #0x00000fff,D0 00021920 63 02 |c | BLS 0x21924 00021922 4e 4f |NO | TRAP #15 00021924 41 f9 00 02 46 0c |A F | LEA.L 0x2460c,A0 0002192a 22 07 |" | MOVE.L D7,D1 0002192c 53 81 |S | SUBQ.L #0x1,D1 0002192e 0c 81 00 00 00 7d | } | CMPI.L #0x0000007d,D1 00021934 63 02 |c | BLS 0x21938 00021936 4e 4f |NO | TRAP #15 00021938 22 6f 00 04 |"o | MOVEA.L (A7+0x4),A1 0002193c 11 b1 18 02 08 08 | | MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x8) 00021942 52 87 |R | ADDQ.L #0x1,D7 00021944 68 c8 |h | BVC 0x2190e 00021946 50 4f |PO | ADDQ.L #0x8,A7 00021948 48 6e 00 08 |Hn | PEA.L (A6+0x8) 0002194c 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00021952 58 4f |XO | ADDQ.L #0x4,A7 00021954 4c df 07 83 |L | MOVEM.L (A7)+,D0+D1+D7+A0+A1+A2 00021958 4e 5e |N^ | UNLK A6 0002195a 4e 75 |Nu | RTS 0002195c ; -------------------------------------------------------------------------------------- 0002195c ; OMSI PASCAL Function 0002195c ; <LVAR 0x00c 4(r)> 0002195c ; <LVAR 0x008 4(r)> 0002195c ; -------------------------------------------------------------------------------------- 0002195c 4e 56 ff ec |NV | LINK.W A6,#0xffec 00021960 bf d5 | | CMPA.L (A5),A7 00021962 62 06 |b | BHI 0x2196a 00021964 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021968 4e 76 |Nv | TRAPV 0002196a de fc 00 14 | | ADDA.W #0x14,A7 0002196e 59 4f |YO | SUBQ.L #0x4,A7 00021970 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00021974 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00021978 48 78 00 10 |Hx | PEA.L 0x10 0002197c 4e b9 00 01 03 5c |N \ | JSR Quad2String(a : Quad; radix : Long ) : String 00021982 de fc 00 0c | | ADDA.W #0xc,A7 00021986 4e ba ff 4c |N L | JSR 0x218d4 0002198a 58 4f |XO | ADDQ.L #0x4,A7 0002198c 4e 5e |N^ | UNLK A6 0002198e 4e 75 |Nu | RTS 00021990 ; -------------------------------------------------------------------------------------- 00021990 ; OMSI PASCAL Function 00021990 ; <LVAR 0x008 4(r)> 00021990 ; -------------------------------------------------------------------------------------- 00021990 4e 56 ff f4 |NV | LINK.W A6,#0xfff4 00021994 bf d5 | | CMPA.L (A5),A7 00021996 62 06 |b | BHI 0x2199e 00021998 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002199c 4e 76 |Nv | TRAPV 0002199e de fc 00 0c | | ADDA.W #0xc,A7 000219a2 59 4f |YO | SUBQ.L #0x4,A7 000219a4 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000219a8 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 000219ae 58 4f |XO | ADDQ.L #0x4,A7 000219b0 4e ba ff 22 |N " | JSR 0x218d4 000219b4 58 4f |XO | ADDQ.L #0x4,A7 000219b6 4e 5e |N^ | UNLK A6 000219b8 4e 75 |Nu | RTS 000219ba ; -------------------------------------------------------------------------------------- 000219ba ; OMSI PASCAL Function 000219ba ; <LVAR 0x008 4(r)> 000219ba ; <LVAR -0x004 @ 4(r)> 000219ba ; <LVAR -0x008 4(rw)> 000219ba ; -------------------------------------------------------------------------------------- 000219ba 4e 56 ff ca |NV | LINK.W A6,#0xffca 000219be bf d5 | | CMPA.L (A5),A7 000219c0 62 06 |b | BHI 0x219c8 000219c2 44 fc 00 02 |D | MOVE.W #0x2,CCR 000219c6 4e 76 |Nv | TRAPV 000219c8 de fc 00 2a | * | ADDA.W #0x2a,A7 000219cc 48 e7 81 e0 |H | MOVEM.L A2+A1+A0+D7+D0,-(A7) 000219d0 43 ee ff fc |C | LEA.L (A6-0x4),A1 000219d4 45 ee ff f8 |E | LEA.L (A6-0x8),A2 000219d8 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 000219dc 24 a8 00 08 |$ | MOVE.L (A0+0x8),(A2) 000219e0 48 51 |HQ | PEA.L (A1) 000219e2 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 000219e8 58 4f |XO | ADDQ.L #0x4,A7 000219ea 20 52 | R | MOVEA.L (A2),A0 000219ec b0 fc 00 01 | | CMPA.W #0x1,A0 000219f0 67 00 00 86 |g | BEQ 0x21a78 000219f4 4a 90 |J | TST.L (A0) 000219f6 67 68 |gh | BEQ 0x21a60 000219f8 2f 28 00 04 |/( | MOVE.L (A0+0x4),-(A7) 000219fc 2e 10 |. | MOVE.L (A0),D7 000219fe be 97 | | CMP.L (A7),D7 00021a00 6e 14 |n | BGT 0x21a16 00021a02 20 17 | | MOVE.L (A7),D0 00021a04 0c 87 80 00 00 01 | | CMPI.L #0x80000001,D7 00021a0a 6d 08 |m | BLT 0x21a14 00021a0c 0c 80 7f ff ff ff | | CMPI.L #0x7fffffff,D0 00021a12 6f 02 |o | BLE 0x21a16 00021a14 4e 4f |NO | TRAP #15 00021a16 be 97 | | CMP.L (A7),D7 00021a18 6e 44 |nD | BGT 0x21a5e 00021a1a 2f 11 |/ | MOVE.L (A1),-(A7) 00021a1c 20 07 | | MOVE.L D7,D0 00021a1e 53 80 |S | SUBQ.L #0x1,D0 00021a20 0c 80 00 00 0f ff | | CMPI.L #0x00000fff,D0 00021a26 63 02 |c | BLS 0x21a2a 00021a28 4e 4f |NO | TRAP #15 00021a2a 41 f9 00 02 46 0c |A F | LEA.L 0x2460c,A0 00021a30 1f 30 08 08 | 0 | MOVE.B (A0+D0.L+#0x8),-(A7) 00021a34 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00021a3a 5c 4f |\O | ADDQ.L #0x6,A7 00021a3c 20 51 | Q | MOVEA.L (A1),A0 00021a3e 30 10 |0 | MOVE.W (A0),D0 00021a40 0c 40 00 7a | @ z | CMPI.W #0x007a,D0 00021a44 6d 14 |m | BLT 0x21a5a 00021a46 2f 11 |/ | MOVE.L (A1),-(A7) 00021a48 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String) 00021a4e 58 4f |XO | ADDQ.L #0x4,A7 00021a50 48 51 |HQ | PEA.L (A1) 00021a52 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00021a58 58 4f |XO | ADDQ.L #0x4,A7 00021a5a 52 87 |R | ADDQ.L #0x1,D7 00021a5c 68 b8 |h | BVC 0x21a16 00021a5e 58 4f |XO | ADDQ.L #0x4,A7 00021a60 2f 11 |/ | MOVE.L (A1),-(A7) 00021a62 1f 3c 00 20 | < | MOVE.B #0x20,-(A7) 00021a66 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00021a6c 5c 4f |\O | ADDQ.L #0x6,A7 00021a6e 20 52 | R | MOVEA.L (A2),A0 00021a70 24 a8 00 08 |$ | MOVE.L (A0+0x8),(A2) 00021a74 60 00 ff 74 |` t | BRA 0x219ea 00021a78 2f 11 |/ | MOVE.L (A1),-(A7) 00021a7a 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00021a80 58 4f |XO | ADDQ.L #0x4,A7 00021a82 4c df 07 81 |L | MOVEM.L (A7)+,D0+D7+A0+A1+A2 00021a86 4e 5e |N^ | UNLK A6 00021a88 4e 75 |Nu | RTS 00021a8a ; -------------------------------------------------------------------------------------- 00021a8a ; OMSI PASCAL Function 00021a8a ; <LVAR 0x008 @ 4(r)> 00021a8a ; <LVAR -0x003 @ 1(r)> 00021a8a ; <LVAR -0x004 @ 1(r)> 00021a8a ; <LVAR -0x008 @ 4(r)> 00021a8a ; <LVAR -0x00c @ 4(rw)> 00021a8a ; -------------------------------------------------------------------------------------- 00021a8a 4e 56 ff ae |NV | LINK.W A6,#0xffae 00021a8e bf d5 | | CMPA.L (A5),A7 00021a90 62 06 |b | BHI 0x21a98 00021a92 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021a96 4e 76 |Nv | TRAPV 00021a98 de fc 00 46 | F | ADDA.W #0x46,A7 00021a9c 48 e7 c0 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D1+D0,-(A7) 00021aa0 43 ee 00 08 |C | LEA.L (A6+0x8),A1 00021aa4 45 ee ff f4 |E | LEA.L (A6-0xc),A2 00021aa8 47 ee ff fc |G | LEA.L (A6-0x4),A3 00021aac 49 ee ff f8 |I | LEA.L (A6-0x8),A4 00021ab0 72 01 |r | MOVEQ.L #0x01,D1 00021ab2 2f 3a ec 36 |/: 6 | MOVE.L 0x206ea,-(A7) 00021ab6 51 4f |QO | SUBQ.L #0x8,A7 00021ab8 2f 11 |/ | MOVE.L (A1),-(A7) 00021aba 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 00021ac0 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00021ac4 3f 01 |? | MOVE.W D1,-(A7) 00021ac6 3f 3c 00 04 |?< | MOVE.W #0x4,-(A7) 00021aca 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00021ad0 50 4f |PO | ADDQ.L #0x8,A7 00021ad2 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00021ad8 50 4f |PO | ADDQ.L #0x8,A7 00021ada 24 9f |$ | MOVE.L (A7)+,(A2) 00021adc 2e 92 |. | MOVE.L (A2),(A7) 00021ade 42 27 |B' | CLR.B -(A7) 00021ae0 42 27 |B' | CLR.B -(A7) 00021ae2 48 78 00 00 |Hx | PEA.L 0x0 00021ae6 48 53 |HS | PEA.L (A3) 00021ae8 48 54 |HT | PEA.L (A4) 00021aea 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File) 00021af0 de fc 00 14 | | ADDA.W #0x14,A7 00021af4 4a 13 |J | TST.B (A3) 00021af6 67 36 |g6 | BEQ 0x21b2e 00021af8 41 fa eb f0 |A | LEA.L 0x206ea,A0 00021afc 70 0a |p | MOVEQ.L #0x0a,D0 00021afe 3f 20 |? | MOVE.W -(A0),-(A7) 00021b00 51 c8 ff fc |Q | DBF D0,0x21afe 00021b04 51 4f |QO | SUBQ.L #0x8,A7 00021b06 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00021b0a 3f 01 |? | MOVE.W D1,-(A7) 00021b0c 3f 3c 00 16 |?< | MOVE.W #0x16,-(A7) 00021b10 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00021b16 58 4f |XO | ADDQ.L #0x4,A7 00021b18 2e 91 |. | MOVE.L (A1),(A7) 00021b1a 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00021b20 50 4f |PO | ADDQ.L #0x8,A7 00021b22 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00021b28 de fc 00 1a | | ADDA.W #0x1a,A7 00021b2c 60 54 |`T | BRA 0x21b82 00021b2e 2f 14 |/ | MOVE.L (A4),-(A7) 00021b30 48 51 |HQ | PEA.L (A1) 00021b32 48 6e ff fd |Hn | PEA.L (A6-0x3) 00021b36 4e b9 00 01 04 3c |N < | JSR FileReadLine(file : File; VAR a : String; VAR b : Byte) 00021b3c de fc 00 0c | | ADDA.W #0xc,A7 00021b40 4a 2e ff fd |J. | TST.B (A6-0x3) 00021b44 66 14 |f | BNE 0x21b5a 00021b46 59 4f |YO | SUBQ.L #0x4,A7 00021b48 2f 11 |/ | MOVE.L (A1),-(A7) 00021b4a 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 00021b50 58 4f |XO | ADDQ.L #0x4,A7 00021b52 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00021b58 58 4f |XO | ADDQ.L #0x4,A7 00021b5a 4a 2e ff fd |J. | TST.B (A6-0x3) 00021b5e 67 ce |g | BEQ 0x21b2e 00021b60 42 27 |B' | CLR.B -(A7) 00021b62 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 00021b66 48 78 00 01 |Hx | PEA.L 0x1 00021b6a 48 53 |HS | PEA.L (A3) 00021b6c 48 54 |HT | PEA.L (A4) 00021b6e 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File) 00021b74 de fc 00 10 | | ADDA.W #0x10,A7 00021b78 48 51 |HQ | PEA.L (A1) 00021b7a 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00021b80 58 4f |XO | ADDQ.L #0x4,A7 00021b82 48 52 |HR | PEA.L (A2) 00021b84 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00021b8a 58 4f |XO | ADDQ.L #0x4,A7 00021b8c 4c df 1f 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2+A3+A4 00021b90 4e 5e |N^ | UNLK A6 00021b92 4e 75 |Nu | RTS 00021b94 ; -------------------------------------------------------------------------------------- 00021b94 ; OMSI PASCAL Function 00021b94 ; <LVAR 0x008 4(r)> 00021b94 ; -------------------------------------------------------------------------------------- 00021b94 4e 56 ff c6 |NV | LINK.W A6,#0xffc6 00021b98 bf d5 | | CMPA.L (A5),A7 00021b9a 62 06 |b | BHI 0x21ba2 00021b9c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021ba0 4e 76 |Nv | TRAPV 00021ba2 de fc 00 2e | . | ADDA.W #0x2e,A7 00021ba6 48 e7 83 88 |H | MOVEM.L A4+A0+D7+D6+D0,-(A7) 00021baa 59 4f |YO | SUBQ.L #0x4,A7 00021bac 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00021bb0 4e ba f3 64 |N d | JSR 0x20f16 00021bb4 58 4f |XO | ADDQ.L #0x4,A7 00021bb6 2c 1f |, | MOVE.L (A7)+,D6 00021bb8 66 2e |f. | BNE 0x21be8 00021bba 41 f9 00 02 56 26 |A V& | LEA.L 0x25626,A0 00021bc0 70 04 |p | MOVEQ.L #0x04,D0 00021bc2 3f 20 |? | MOVE.W -(A0),-(A7) 00021bc4 51 c8 ff fc |Q | DBF D0,0x21bc2 00021bc8 59 4f |YO | SUBQ.L #0x4,A7 00021bca 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021bce 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00021bd2 3f 3c 00 0a |?< | MOVE.W #0xa,-(A7) 00021bd6 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00021bdc 50 4f |PO | ADDQ.L #0x8,A7 00021bde 4e ba fe aa |N | JSR 0x21a8a 00021be2 de fc 00 0e | | ADDA.W #0xe,A7 00021be6 60 26 |`& | BRA 0x21c0e 00021be8 2f 06 |/ | MOVE.L D6,-(A7) 00021bea 7e 01 |~ | MOVEQ.L #0x01,D7 00021bec be 97 | | CMP.L (A7),D7 00021bee 6e 1c |n | BGT 0x21c0c 00021bf0 59 4f |YO | SUBQ.L #0x4,A7 00021bf2 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00021bf6 2f 07 |/ | MOVE.L D7,-(A7) 00021bf8 4e ba fc 38 |N 8 | JSR 0x21832 00021bfc 50 4f |PO | ADDQ.L #0x8,A7 00021bfe 28 5f |(_ | MOVEA.L (A7)+,A4 00021c00 2f 0c |/ | MOVE.L A4,-(A7) 00021c02 4e ba fe 86 |N | JSR 0x21a8a 00021c06 58 4f |XO | ADDQ.L #0x4,A7 00021c08 52 87 |R | ADDQ.L #0x1,D7 00021c0a 68 e0 |h | BVC 0x21bec 00021c0c 58 4f |XO | ADDQ.L #0x4,A7 00021c0e 4c df 11 c1 |L | MOVEM.L (A7)+,D0+D6+D7+A0+A4 00021c12 4e 5e |N^ | UNLK A6 00021c14 4e 75 |Nu | RTS 00021c16 ; -------------------------------------------------------------------------------------- 00021c16 ; OMSI PASCAL Function 00021c16 ; <LVAR 0x00c @> 00021c16 ; <LVAR 0x008 @ 4(r)> 00021c16 ; <LVAR -0x020 @> 00021c16 ; -------------------------------------------------------------------------------------- 00021c16 4e 56 ff b8 |NV | LINK.W A6,#0xffb8 00021c1a bf d5 | | CMPA.L (A5),A7 00021c1c 62 06 |b | BHI 0x21c24 00021c1e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021c22 4e 76 |Nv | TRAPV 00021c24 de fc 00 24 | $ | ADDA.W #0x24,A7 00021c28 48 e7 e1 c0 |H | MOVEM.L A1+A0+D7+D2+D1+D0,-(A7) 00021c2c 74 1d |t | MOVEQ.L #0x1d,D2 00021c2e 7e 01 |~ | MOVEQ.L #0x01,D7 00021c30 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00021c34 30 10 |0 | MOVE.W (A0),D0 00021c36 48 c0 |H | EXTW.L D0 00021c38 be 80 | | CMP.L D0,D7 00021c3a 6f 10 |o | BLE 0x21c4c 00021c3c 20 07 | | MOVE.L D7,D0 00021c3e 53 80 |S | SUBQ.L #0x1,D0 00021c40 b0 82 | | CMP.L D2,D0 00021c42 63 02 |c | BLS 0x21c46 00021c44 4e 4f |NO | TRAP #15 00021c46 42 36 08 e0 |B6 | CLR.B (A6+D0.L-#0x20) 00021c4a 60 1e |` | BRA 0x21c6a 00021c4c 20 07 | | MOVE.L D7,D0 00021c4e 53 80 |S | SUBQ.L #0x1,D0 00021c50 b0 82 | | CMP.L D2,D0 00021c52 63 02 |c | BLS 0x21c56 00021c54 4e 4f |NO | TRAP #15 00021c56 22 07 |" | MOVE.L D7,D1 00021c58 53 81 |S | SUBQ.L #0x1,D1 00021c5a 0c 81 00 00 00 7d | } | CMPI.L #0x0000007d,D1 00021c60 63 02 |c | BLS 0x21c64 00021c62 4e 4f |NO | TRAP #15 00021c64 1d b0 18 02 08 e0 | | MOVE.B (A0+D1.L+#0x2),(A6+D0.L-#0x20) 00021c6a 52 87 |R | ADDQ.L #0x1,D7 00021c6c 0c 87 00 00 00 1e | | CMPI.L #0x0000001e,D7 00021c72 6f bc |o | BLE 0x21c30 00021c74 48 6e 00 08 |Hn | PEA.L (A6+0x8) 00021c78 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00021c7e 58 4f |XO | ADDQ.L #0x4,A7 00021c80 41 ee 00 0c |A | LEA.L (A6+0xc),A0 00021c84 43 ee ff e0 |C | LEA.L (A6-0x20),A1 00021c88 70 0e |p | MOVEQ.L #0x0e,D0 00021c8a 30 d9 |0 | MOVE.W (A1)+,(A0)+ 00021c8c 51 c8 ff fc |Q | DBF D0,0x21c8a 00021c90 4c df 03 87 |L | MOVEM.L (A7)+,D0+D1+D2+D7+A0+A1 00021c94 4e 5e |N^ | UNLK A6 00021c96 4e 75 |Nu | RTS 00021c98 ; -------------------------------------------------------------------------------------- 00021c98 ; OMSI PASCAL Function 00021c98 ; <LVAR 0x026 4(w)> 00021c98 ; <LVAR 0x008 @> 00021c98 ; <LVAR -0x006 4(rw)> 00021c98 ; -------------------------------------------------------------------------------------- 00021c98 4e 56 ff d6 |NV | LINK.W A6,#0xffd6 00021c9c bf d5 | | CMPA.L (A5),A7 00021c9e 62 06 |b | BHI 0x21ca6 00021ca0 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021ca4 4e 76 |Nv | TRAPV 00021ca6 de fc 00 24 | $ | ADDA.W #0x24,A7 00021caa 48 e7 c1 f0 |H | MOVEM.L A3+A2+A1+A0+D7+D1+D0,-(A7) 00021cae 47 ee ff fa |G | LEA.L (A6-0x6),A3 00021cb2 7e 00 |~ | MOVEQ.L #0x00,D7 00021cb4 26 b9 00 02 56 3e |& V> | MOVE.L 0x2563e,(A3) 00021cba 20 53 | S | MOVEA.L (A3),A0 00021cbc b0 fc 00 01 | | CMPA.W #0x1,A0 00021cc0 67 1e |g | BEQ 0x21ce0 00021cc2 4a 07 |J | TST.B D7 00021cc4 66 1a |f | BNE 0x21ce0 00021cc6 22 48 |"H | MOVEA.L A0,A1 00021cc8 45 ee 00 08 |E | LEA.L (A6+0x8),A2 00021ccc 70 1d |p | MOVEQ.L #0x1d,D0 00021cce b5 09 | | CMPM.B (A1)+,(A2)+ 00021cd0 56 c8 ff fc |V | DBNE D0,0x21cce 00021cd4 66 04 |f | BNE 0x21cda 00021cd6 7e 01 |~ | MOVEQ.L #0x01,D7 00021cd8 60 04 |` | BRA 0x21cde 00021cda 26 a8 00 26 |& & | MOVE.L (A0+0x26),(A3) 00021cde 60 da |` | BRA 0x21cba 00021ce0 2d 48 00 26 |-H & | MOVE.L A0,(A6+0x26) 00021ce4 4c df 0f 83 |L | MOVEM.L (A7)+,D0+D1+D7+A0+A1+A2+A3 00021ce8 4e 5e |N^ | UNLK A6 00021cea 4e 75 |Nu | RTS 00021cec ; -------------------------------------------------------------------------------------- 00021cec ; OMSI PASCAL Function 00021cec ; <LVAR 0x008 @ 4(r)> 00021cec ; -------------------------------------------------------------------------------------- 00021cec 4e 56 ff c8 |NV | LINK.W A6,#0xffc8 00021cf0 bf d5 | | CMPA.L (A5),A7 00021cf2 62 06 |b | BHI 0x21cfa 00021cf4 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021cf8 4e 76 |Nv | TRAPV 00021cfa de fc 00 2c | , | ADDA.W #0x2c,A7 00021cfe 48 e7 81 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D0,-(A7) 00021d02 43 ee 00 08 |C | LEA.L (A6+0x8),A1 00021d06 45 f9 00 02 56 3e |E V> | LEA.L 0x2563e,A2 00021d0c 70 01 |p | MOVEQ.L #0x01,D0 00021d0e 20 51 | Q | MOVEA.L (A1),A0 00021d10 b0 c0 | | CMPA.W D0,A0 00021d12 67 56 |gV | BEQ 0x21d6a 00021d14 4a a8 00 1e |J | TST.L (A0+0x1e) 00021d18 67 10 |g | BEQ 0x21d2a 00021d1a 2f 28 00 22 |/( " | MOVE.L (A0+0x22),-(A7) 00021d1e 2f 28 00 1e |/( | MOVE.L (A0+0x1e),-(A7) 00021d22 4e b9 00 01 02 a4 |N | JSR Free1(a : Pointer; b : Long) 00021d28 50 4f |PO | ADDQ.L #0x8,A7 00021d2a 7e 00 |~ | MOVEQ.L #0x00,D7 00021d2c 38 40 |8@ | MOVEA.W D0,A4 00021d2e 26 52 |&R | MOVEA.L (A2),A3 00021d30 b6 c0 | | CMPA.W D0,A3 00021d32 67 14 |g | BEQ 0x21d48 00021d34 4a 07 |J | TST.B D7 00021d36 66 10 |f | BNE 0x21d48 00021d38 b7 d1 | | CMPA.L (A1),A3 00021d3a 66 04 |f | BNE 0x21d40 00021d3c 7e 01 |~ | MOVEQ.L #0x01,D7 00021d3e 60 06 |` | BRA 0x21d46 00021d40 28 4b |(K | MOVEA.L A3,A4 00021d42 26 6b 00 26 |&k & | MOVEA.L (A3+0x26),A3 00021d46 60 e8 |` | BRA 0x21d30 00021d48 4a 07 |J | TST.B D7 00021d4a 67 1e |g | BEQ 0x21d6a 00021d4c b8 c0 | | CMPA.W D0,A4 00021d4e 66 06 |f | BNE 0x21d56 00021d50 24 ab 00 26 |$ & | MOVE.L (A3+0x26),(A2) 00021d54 60 06 |` | BRA 0x21d5c 00021d56 29 6b 00 26 00 26 |)k & & | MOVE.L (A3+0x26),(A4+0x26) 00021d5c 48 51 |HQ | PEA.L (A1) 00021d5e 48 78 00 2a |Hx * | PEA.L 0x2a 00021d62 4e b9 00 01 02 a8 |N | JSR Free2(a : Pointer; b : Long) 00021d68 50 4f |PO | ADDQ.L #0x8,A7 00021d6a 4c df 1f 81 |L | MOVEM.L (A7)+,D0+D7+A0+A1+A2+A3+A4 00021d6e 4e 5e |N^ | UNLK A6 00021d70 4e 75 |Nu | RTS 00021d72 ; -------------------------------------------------------------------------------------- 00021d72 ; OMSI PASCAL Function 00021d72 ; <LVAR 0x010 4(w)> 00021d72 ; <LVAR 0x00c 4(r)> 00021d72 ; <LVAR 0x008 4(r)> 00021d72 ; <LVAR -0x006 @ 4(rw)> 00021d72 ; <LVAR -0x024 @> 00021d72 ; -------------------------------------------------------------------------------------- 00021d72 4e 56 ff 9a |NV | LINK.W A6,#0xff9a 00021d76 bf d5 | | CMPA.L (A5),A7 00021d78 62 06 |b | BHI 0x21d80 00021d7a 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021d7e 4e 76 |Nv | TRAPV 00021d80 de fc 00 42 | B | ADDA.W #0x42,A7 00021d84 48 e7 c0 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D1+D0,-(A7) 00021d88 47 ee ff fa |G | LEA.L (A6-0x6),A3 00021d8c 49 ee 00 08 |I | LEA.L (A6+0x8),A4 00021d90 72 1e |r | MOVEQ.L #0x1e,D1 00021d92 9e c1 | | SUBA.W D1,A7 00021d94 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 00021d98 2f 10 |/ | MOVE.L (A0),-(A7) 00021d9a 4e ba fe 7a |N z | JSR 0x21c16 00021d9e 58 4f |XO | ADDQ.L #0x4,A7 00021da0 41 ee ff dc |A | LEA.L (A6-0x24),A0 00021da4 70 0e |p | MOVEQ.L #0x0e,D0 00021da6 30 df |0 | MOVE.W (A7)+,(A0)+ 00021da8 51 c8 ff fc |Q | DBF D0,0x21da6 00021dac 4a 94 |J | TST.L (A4) 00021dae 6c 02 |l | BGE 0x21db2 00021db0 42 94 |B | CLR.L (A4) 00021db2 59 4f |YO | SUBQ.L #0x4,A7 00021db4 20 4b | K | MOVEA.L A3,A0 00021db6 70 0e |p | MOVEQ.L #0x0e,D0 00021db8 3f 20 |? | MOVE.W -(A0),-(A7) 00021dba 51 c8 ff fc |Q | DBF D0,0x21db8 00021dbe 4e ba fe d8 |N | JSR 0x21c98 00021dc2 de c1 | | ADDA.W D1,A7 00021dc4 26 9f |& | MOVE.L (A7)+,(A3) 00021dc6 20 53 | S | MOVEA.L (A3),A0 00021dc8 b0 fc 00 01 | | CMPA.W #0x1,A0 00021dcc 67 12 |g | BEQ 0x21de0 00021dce 20 28 00 1e | ( | MOVE.L (A0+0x1e),D0 00021dd2 b0 94 | | CMP.L (A4),D0 00021dd4 66 02 |f | BNE 0x21dd8 00021dd6 60 4c |`L | BRA 0x21e24 00021dd8 2f 13 |/ | MOVE.L (A3),-(A7) 00021dda 4e ba ff 10 |N | JSR 0x21cec 00021dde 58 4f |XO | ADDQ.L #0x4,A7 00021de0 48 53 |HS | PEA.L (A3) 00021de2 48 78 00 2a |Hx * | PEA.L 0x2a 00021de6 4e b9 00 01 02 9c |N | JSR Malloc1(length : Long) : Pointer 00021dec 50 4f |PO | ADDQ.L #0x8,A7 00021dee 20 53 | S | MOVEA.L (A3),A0 00021df0 21 79 00 02 56 3e 00 26 |!y V> &| MOVE.L 0x2563e,(A0+0x26) 00021df8 23 d3 00 02 56 3e |# V> | MOVE.L (A3),0x2563e 00021dfe 22 48 |"H | MOVEA.L A0,A1 00021e00 45 ee ff dc |E | LEA.L (A6-0x24),A2 00021e04 70 1d |p | MOVEQ.L #0x1d,D0 00021e06 12 da | | MOVE.B (A2)+,(A1)+ 00021e08 51 c8 ff fc |Q | DBF D0,0x21e06 00021e0c 21 54 00 1e |!T | MOVE.L (A4),(A0+0x1e) 00021e10 4a 94 |J | TST.L (A4) 00021e12 67 10 |g | BEQ 0x21e24 00021e14 59 4f |YO | SUBQ.L #0x4,A7 00021e16 2f 14 |/ | MOVE.L (A4),-(A7) 00021e18 4e b9 00 01 02 a0 |N | JSR Malloc2(VAR dst : Pointer; length : Word) 00021e1e 58 4f |XO | ADDQ.L #0x4,A7 00021e20 21 5f 00 22 |!_ " | MOVE.L (A7)+,(A0+0x22) 00021e24 2d 53 00 10 |-S | MOVE.L (A3),(A6+0x10) 00021e28 4c df 1f 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2+A3+A4 00021e2c 4e 5e |N^ | UNLK A6 00021e2e 4e 75 |Nu | RTS 00021e30 ; -------------------------------------------------------------------------------------- 00021e30 ; OMSI PASCAL Function 00021e30 ; <LVAR 0x00c @> 00021e30 ; <LVAR 0x008 @ 4(r)> 00021e30 ; <LVAR -0x008 4(rw)> 00021e30 ; -------------------------------------------------------------------------------------- 00021e30 4e 56 ff c8 |NV | LINK.W A6,#0xffc8 00021e34 bf d5 | | CMPA.L (A5),A7 00021e36 62 06 |b | BHI 0x21e3e 00021e38 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021e3c 4e 76 |Nv | TRAPV 00021e3e de fc 00 2c | , | ADDA.W #0x2c,A7 00021e42 48 e7 c3 e0 |H | MOVEM.L A2+A1+A0+D7+D6+D1+D0,-(A7) 00021e46 45 ee 00 08 |E | LEA.L (A6+0x8),A2 00021e4a 20 52 | R | MOVEA.L (A2),A0 00021e4c 30 10 |0 | MOVE.W (A0),D0 00021e4e 48 c0 |H | EXTW.L D0 00021e50 2c 00 |, | MOVE.L D0,D6 00021e52 59 4f |YO | SUBQ.L #0x4,A7 00021e54 48 6e 00 0c |Hn | PEA.L (A6+0xc) 00021e58 2f 06 |/ | MOVE.L D6,-(A7) 00021e5a 4e ba ff 16 |N | JSR 0x21d72 00021e5e 50 4f |PO | ADDQ.L #0x8,A7 00021e60 2d 5f ff f8 |-_ | MOVE.L (A7)+,(A6-0x8) 00021e64 4a 86 |J | TST.L D6 00021e66 67 40 |g@ | BEQ 0x21ea8 00021e68 20 6e ff f8 | n | MOVEA.L (A6-0x8),A0 00021e6c 20 68 00 22 | h " | MOVEA.L (A0+0x22),A0 00021e70 2f 08 |/ | MOVE.L A0,-(A7) 00021e72 2f 06 |/ | MOVE.L D6,-(A7) 00021e74 7e 01 |~ | MOVEQ.L #0x01,D7 00021e76 be 97 | | CMP.L (A7),D7 00021e78 6e 2c |n, | BGT 0x21ea6 00021e7a 20 07 | | MOVE.L D7,D0 00021e7c 53 80 |S | SUBQ.L #0x1,D0 00021e7e 0c 80 00 00 03 ff | | CMPI.L #0x000003ff,D0 00021e84 63 02 |c | BLS 0x21e88 00021e86 4e 4f |NO | TRAP #15 00021e88 20 6f 00 04 | o | MOVEA.L (A7+0x4),A0 00021e8c 22 52 |"R | MOVEA.L (A2),A1 00021e8e 22 07 |" | MOVE.L D7,D1 00021e90 53 81 |S | SUBQ.L #0x1,D1 00021e92 0c 81 00 00 00 7d | } | CMPI.L #0x0000007d,D1 00021e98 63 02 |c | BLS 0x21e9c 00021e9a 4e 4f |NO | TRAP #15 00021e9c 11 b1 18 02 08 00 | | MOVE.B (A1+D1.L+#0x2),(A0+D0.L) 00021ea2 52 87 |R | ADDQ.L #0x1,D7 00021ea4 68 d0 |h | BVC 0x21e76 00021ea6 50 4f |PO | ADDQ.L #0x8,A7 00021ea8 48 52 |HR | PEA.L (A2) 00021eaa 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00021eb0 58 4f |XO | ADDQ.L #0x4,A7 00021eb2 4c df 07 c3 |L | MOVEM.L (A7)+,D0+D1+D6+D7+A0+A1+A2 00021eb6 4e 5e |N^ | UNLK A6 00021eb8 4e 75 |Nu | RTS 00021eba ; -------------------------------------------------------------------------------------- 00021eba ; OMSI PASCAL Function 00021eba ; <LVAR 0x008 4(r)> 00021eba ; <LVAR -0x004 @ 4(w)> 00021eba ; <LVAR -0x008 4(rw)> 00021eba ; <LVAR -0x00c 4(rw)> 00021eba ; <LVAR -0x010 4(rw)> 00021eba ; <LVAR -0x01c 4(rw)> 00021eba ; <LVAR -0x020 4(rw)> 00021eba ; -------------------------------------------------------------------------------------- 00021eba 4e 56 ff 82 |NV | LINK.W A6,#0xff82 00021ebe bf d5 | | CMPA.L (A5),A7 00021ec0 62 06 |b | BHI 0x21ec8 00021ec2 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021ec6 4e 76 |Nv | TRAPV 00021ec8 de fc 00 5a | Z | ADDA.W #0x5a,A7 00021ecc 48 e7 e7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7) 00021ed0 45 ee ff f4 |E | LEA.L (A6-0xc),A2 00021ed4 47 ee ff f0 |G | LEA.L (A6-0x10),A3 00021ed8 49 ee 00 08 |I | LEA.L (A6+0x8),A4 00021edc 74 01 |t | MOVEQ.L #0x01,D2 00021ede 59 4f |YO | SUBQ.L #0x4,A7 00021ee0 2f 14 |/ | MOVE.L (A4),-(A7) 00021ee2 4e ba f0 32 |N 2 | JSR 0x20f16 00021ee6 58 4f |XO | ADDQ.L #0x4,A7 00021ee8 26 9f |& | MOVE.L (A7)+,(A3) 00021eea 20 13 | | MOVE.L (A3),D0 00021eec b0 82 | | CMP.L D2,D0 00021eee 6c 2e |l. | BGE 0x21f1e 00021ef0 9e fc 00 1a | | SUBA.W #0x1a,A7 00021ef4 20 4f | O | MOVEA.L A7,A0 00021ef6 43 fa e7 f6 |C | LEA.L 0x206ee,A1 00021efa 72 18 |r | MOVEQ.L #0x18,D1 00021efc 10 d9 | | MOVE.B (A1)+,(A0)+ 00021efe 51 c9 ff fc |Q | DBF D1,0x21efc 00021f02 59 4f |YO | SUBQ.L #0x4,A7 00021f04 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021f08 3f 02 |? | MOVE.W D2,-(A7) 00021f0a 3f 3c 00 19 |?< | MOVE.W #0x19,-(A7) 00021f0e 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00021f14 50 4f |PO | ADDQ.L #0x8,A7 00021f16 4e ba eb f2 |N | JSR 0x20b0a 00021f1a de fc 00 1e | | ADDA.W #0x1e,A7 00021f1e 42 92 |B | CLR.L (A2) 00021f20 2f 00 |/ | MOVE.L D0,-(A7) 00021f22 7c 02 || | MOVEQ.L #0x02,D6 00021f24 bc 97 | | CMP.L (A7),D6 00021f26 6e 1e |n | BGT 0x21f46 00021f28 9e fc 00 0c | | SUBA.W #0xc,A7 00021f2c 2f 14 |/ | MOVE.L (A4),-(A7) 00021f2e 2f 06 |/ | MOVE.L D6,-(A7) 00021f30 4e ba f8 22 |N " | JSR 0x21754 00021f34 50 4f |PO | ADDQ.L #0x8,A7 00021f36 4e ba f7 e4 |N | JSR 0x2171c 00021f3a 50 4f |PO | ADDQ.L #0x8,A7 00021f3c 20 12 | | MOVE.L (A2),D0 00021f3e d0 9f | | ADD.L (A7)+,D0 00021f40 24 80 |$ | MOVE.L D0,(A2) 00021f42 52 86 |R | ADDQ.L #0x1,D6 00021f44 68 de |h | BVC 0x21f24 00021f46 58 4f |XO | ADDQ.L #0x4,A7 00021f48 20 13 | | MOVE.L (A3),D0 00021f4a 55 80 |U | SUBQ.L #0x2,D0 00021f4c d1 92 | | ADD.L D0,(A2) 00021f4e 59 4f |YO | SUBQ.L #0x4,A7 00021f50 2f 14 |/ | MOVE.L (A4),-(A7) 00021f52 48 78 00 01 |Hx | PEA.L 0x1 00021f56 4e ba f8 da |N | JSR 0x21832 00021f5a 50 4f |PO | ADDQ.L #0x8,A7 00021f5c 2d 57 ff fc |-W | MOVE.L (A7),(A6-0x4) 00021f60 48 6e ff fc |Hn | PEA.L (A6-0x4) 00021f64 2f 12 |/ | MOVE.L (A2),-(A7) 00021f66 4e ba fe 0a |N | JSR 0x21d72 00021f6a 50 4f |PO | ADDQ.L #0x8,A7 00021f6c 2d 5f ff f8 |-_ | MOVE.L (A7)+,(A6-0x8) 00021f70 4a 92 |J | TST.L (A2) 00021f72 6f 00 00 aa |o | BLE 0x2201e 00021f76 20 6e ff f8 | n | MOVEA.L (A6-0x8),A0 00021f7a 20 68 00 22 | h " | MOVEA.L (A0+0x22),A0 00021f7e 2f 08 |/ | MOVE.L A0,-(A7) 00021f80 7e 01 |~ | MOVEQ.L #0x01,D7 00021f82 2f 13 |/ | MOVE.L (A3),-(A7) 00021f84 7c 02 || | MOVEQ.L #0x02,D6 00021f86 bc 97 | | CMP.L (A7),D6 00021f88 6e 00 00 92 |n | BGT 0x2201c 00021f8c 51 4f |QO | SUBQ.L #0x8,A7 00021f8e 2f 14 |/ | MOVE.L (A4),-(A7) 00021f90 2f 06 |/ | MOVE.L D6,-(A7) 00021f92 4e ba f7 c0 |N | JSR 0x21754 00021f96 50 4f |PO | ADDQ.L #0x8,A7 00021f98 2d 5f ff e0 |-_ | MOVE.L (A7)+,(A6-0x20) 00021f9c 2d 5f ff e4 |-_ | MOVE.L (A7)+,(A6-0x1c) 00021fa0 2f 2e ff e4 |/. | MOVE.L (A6-0x1c),-(A7) 00021fa4 2a 2e ff e0 |*. | MOVE.L (A6-0x20),D5 00021fa8 ba 97 | | CMP.L (A7),D5 00021faa 6e 14 |n | BGT 0x21fc0 00021fac 20 17 | | MOVE.L (A7),D0 00021fae 0c 85 80 00 00 01 | | CMPI.L #0x80000001,D5 00021fb4 6d 08 |m | BLT 0x21fbe 00021fb6 0c 80 7f ff ff ff | | CMPI.L #0x7fffffff,D0 00021fbc 6f 02 |o | BLE 0x21fc0 00021fbe 4e 4f |NO | TRAP #15 00021fc0 ba 97 | | CMP.L (A7),D5 00021fc2 6e 32 |n2 | BGT 0x21ff6 00021fc4 20 07 | | MOVE.L D7,D0 00021fc6 53 80 |S | SUBQ.L #0x1,D0 00021fc8 0c 80 00 00 03 ff | | CMPI.L #0x000003ff,D0 00021fce 63 02 |c | BLS 0x21fd2 00021fd0 4e 4f |NO | TRAP #15 00021fd2 20 6f 00 08 | o | MOVEA.L (A7+0x8),A0 00021fd6 22 05 |" | MOVE.L D5,D1 00021fd8 53 81 |S | SUBQ.L #0x1,D1 00021fda 0c 81 00 00 0f ff | | CMPI.L #0x00000fff,D1 00021fe0 63 02 |c | BLS 0x21fe4 00021fe2 4e 4f |NO | TRAP #15 00021fe4 43 f9 00 02 46 0c |C F | LEA.L 0x2460c,A1 00021fea 11 b1 18 08 08 00 | | MOVE.B (A1+D1.L+#0x8),(A0+D0.L) 00021ff0 52 87 |R | ADDQ.L #0x1,D7 00021ff2 52 85 |R | ADDQ.L #0x1,D5 00021ff4 68 ca |h | BVC 0x21fc0 00021ff6 58 4f |XO | ADDQ.L #0x4,A7 00021ff8 bc 93 | | CMP.L (A3),D6 00021ffa 67 1a |g | BEQ 0x22016 00021ffc 20 07 | | MOVE.L D7,D0 00021ffe 53 80 |S | SUBQ.L #0x1,D0 00022000 0c 80 00 00 03 ff | | CMPI.L #0x000003ff,D0 00022006 63 02 |c | BLS 0x2200a 00022008 4e 4f |NO | TRAP #15 0002200a 20 6f 00 04 | o | MOVEA.L (A7+0x4),A0 0002200e 11 bc 00 2c 08 00 | , | MOVE.B #0x2c,(A0+D0.L) 00022014 52 87 |R | ADDQ.L #0x1,D7 00022016 52 86 |R | ADDQ.L #0x1,D6 00022018 68 00 ff 6c |h l | BVC 0x21f86 0002201c 50 4f |PO | ADDQ.L #0x8,A7 0002201e 4c df 1f e7 |L | MOVEM.L (A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3+A4 00022022 4e 5e |N^ | UNLK A6 00022024 4e 75 |Nu | RTS 00022026 ; -------------------------------------------------------------------------------------- 00022026 ; OMSI PASCAL Function 00022026 ; <LVAR 0x008 4(r)> 00022026 ; <LVAR -0x00c 4(rw)> 00022026 ; -------------------------------------------------------------------------------------- 00022026 4e 56 ff a0 |NV | LINK.W A6,#0xffa0 0002202a bf d5 | | CMPA.L (A5),A7 0002202c 62 06 |b | BHI 0x22034 0002202e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022032 4e 76 |Nv | TRAPV 00022034 de fc 00 54 | T | ADDA.W #0x54,A7 00022038 48 e7 e1 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D2+D1+D0,-(A7) 0002203c 47 f9 00 02 56 14 |G V | LEA.L 0x25614,A3 00022042 74 01 |t | MOVEQ.L #0x01,D2 00022044 59 4f |YO | SUBQ.L #0x4,A7 00022046 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 0002204a 48 78 00 01 |Hx | PEA.L 0x1 0002204e 4e ba f7 e2 |N | JSR 0x21832 00022052 50 4f |PO | ADDQ.L #0x8,A7 00022054 28 5f |(_ | MOVEA.L (A7)+,A4 00022056 9e fc 00 22 | " | SUBA.W #0x22,A7 0002205a 2f 0c |/ | MOVE.L A4,-(A7) 0002205c 4e ba fb b8 |N | JSR 0x21c16 00022060 58 4f |XO | ADDQ.L #0x4,A7 00022062 4e ba fc 34 |N 4 | JSR 0x21c98 00022066 de fc 00 1e | | ADDA.W #0x1e,A7 0002206a 2d 5f ff f4 |-_ | MOVE.L (A7)+,(A6-0xc) 0002206e 20 6e ff f4 | n | MOVEA.L (A6-0xc),A0 00022072 b0 c2 | | CMPA.W D2,A0 00022074 66 42 |fB | BNE 0x220b8 00022076 9e fc 00 14 | | SUBA.W #0x14,A7 0002207a 22 4f |"O | MOVEA.L A7,A1 0002207c 45 fa e6 8a |E | LEA.L 0x20708,A2 00022080 70 12 |p | MOVEQ.L #0x12,D0 00022082 12 da | | MOVE.B (A2)+,(A1)+ 00022084 51 c8 ff fc |Q | DBF D0,0x22082 00022088 51 4f |QO | SUBQ.L #0x8,A7 0002208a 48 6f 00 08 |Ho | PEA.L (A7+0x8) 0002208e 3f 02 |? | MOVE.W D2,-(A7) 00022090 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7) 00022094 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002209a 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7) 0002209e 48 78 00 01 |Hx | PEA.L 0x1 000220a2 4e ba f7 8e |N | JSR 0x21832 000220a6 50 4f |PO | ADDQ.L #0x8,A7 000220a8 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000220ae 50 4f |PO | ADDQ.L #0x8,A7 000220b0 4e ba ea 58 |N X | JSR 0x20b0a 000220b4 de fc 00 18 | | ADDA.W #0x18,A7 000220b8 2f 08 |/ | MOVE.L A0,-(A7) 000220ba 2f 13 |/ | MOVE.L (A3),-(A7) 000220bc 2f 28 00 1e |/( | MOVE.L (A0+0x1e),-(A7) 000220c0 44 97 |D | NEG.L (A7) 000220c2 4e ba ef 9a |N | JSR 0x2105e 000220c6 58 4f |XO | ADDQ.L #0x4,A7 000220c8 2e a8 00 1e |. | MOVE.L (A0+0x1e),(A7) 000220cc 7e 01 |~ | MOVEQ.L #0x01,D7 000220ce be 97 | | CMP.L (A7),D7 000220d0 6e 38 |n8 | BGT 0x2210a 000220d2 20 07 | | MOVE.L D7,D0 000220d4 d0 93 | | ADD.L (A3),D0 000220d6 53 80 |S | SUBQ.L #0x1,D0 000220d8 53 80 |S | SUBQ.L #0x1,D0 000220da 0c 80 00 00 0f ff | | CMPI.L #0x00000fff,D0 000220e0 63 02 |c | BLS 0x220e4 000220e2 4e 4f |NO | TRAP #15 000220e4 41 f9 00 02 46 0c |A F | LEA.L 0x2460c,A0 000220ea 22 6f 00 04 |"o | MOVEA.L (A7+0x4),A1 000220ee 22 69 00 22 |"i " | MOVEA.L (A1+0x22),A1 000220f2 22 07 |" | MOVE.L D7,D1 000220f4 53 81 |S | SUBQ.L #0x1,D1 000220f6 0c 81 00 00 03 ff | | CMPI.L #0x000003ff,D1 000220fc 63 02 |c | BLS 0x22100 000220fe 4e 4f |NO | TRAP #15 00022100 11 b1 18 00 08 08 | | MOVE.B (A1+D1.L),(A0+D0.L+#0x8) 00022106 52 87 |R | ADDQ.L #0x1,D7 00022108 68 c4 |h | BVC 0x220ce 0002210a 50 4f |PO | ADDQ.L #0x8,A7 0002210c 4c df 1f 87 |L | MOVEM.L (A7)+,D0+D1+D2+D7+A0+A1+A2+A3+A4 00022110 4e 5e |N^ | UNLK A6 00022112 4e 75 |Nu | RTS 00022114 ; -------------------------------------------------------------------------------------- 00022114 ; OMSI PASCAL Function 00022114 ; <LVAR -0x004 4(rw)> 00022114 ; -------------------------------------------------------------------------------------- 00022114 4e 56 ff ae |NV | LINK.W A6,#0xffae 00022118 bf d5 | | CMPA.L (A5),A7 0002211a 62 06 |b | BHI 0x22122 0002211c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022120 4e 76 |Nv | TRAPV 00022122 de fc 00 4e | N | ADDA.W #0x4e,A7 00022126 48 e7 e0 f0 |H | MOVEM.L A3+A2+A1+A0+D2+D1+D0,-(A7) 0002212a 47 ee ff fc |G | LEA.L (A6-0x4),A3 0002212e 72 01 |r | MOVEQ.L #0x01,D1 00022130 74 1e |t | MOVEQ.L #0x1e,D2 00022132 26 b9 00 02 56 3e |& V> | MOVE.L 0x2563e,(A3) 00022138 20 53 | S | MOVEA.L (A3),A0 0002213a b0 c1 | | CMPA.W D1,A0 0002213c 67 30 |g0 | BEQ 0x2216e 0002213e 9e c2 | | SUBA.W D2,A7 00022140 22 4f |"O | MOVEA.L A7,A1 00022142 24 48 |$H | MOVEA.L A0,A2 00022144 70 1d |p | MOVEQ.L #0x1d,D0 00022146 12 da | | MOVE.B (A2)+,(A1)+ 00022148 51 c8 ff fc |Q | DBF D0,0x22146 0002214c 59 4f |YO | SUBQ.L #0x4,A7 0002214e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022152 3f 01 |? | MOVE.W D1,-(A7) 00022154 3f 02 |? | MOVE.W D2,-(A7) 00022156 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002215c 50 4f |PO | ADDQ.L #0x8,A7 0002215e 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00022164 de fc 00 22 | " | ADDA.W #0x22,A7 00022168 26 a8 00 26 |& & | MOVE.L (A0+0x26),(A3) 0002216c 60 ca |` | BRA 0x22138 0002216e 4c df 0f 07 |L | MOVEM.L (A7)+,D0+D1+D2+A0+A1+A2+A3 00022172 4e 5e |N^ | UNLK A6 00022174 4e 75 |Nu | RTS 00022176 ; -------------------------------------------------------------------------------------- 00022176 ; OMSI PASCAL Function 00022176 ; <LVAR 0x008 4(r)> 00022176 ; -------------------------------------------------------------------------------------- 00022176 4e 56 ff ce |NV | LINK.W A6,#0xffce 0002217a bf d5 | | CMPA.L (A5),A7 0002217c 62 06 |b | BHI 0x22184 0002217e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022182 4e 76 |Nv | TRAPV 00022184 de fc 00 32 | 2 | ADDA.W #0x32,A7 00022188 9e fc 00 26 | & | SUBA.W #0x26,A7 0002218c 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022190 48 78 00 01 |Hx | PEA.L 0x1 00022194 4e ba f6 9c |N | JSR 0x21832 00022198 50 4f |PO | ADDQ.L #0x8,A7 0002219a 4e ba fa 7a |N z | JSR 0x21c16 0002219e 58 4f |XO | ADDQ.L #0x4,A7 000221a0 4e ba fa f6 |N | JSR 0x21c98 000221a4 de fc 00 1e | | ADDA.W #0x1e,A7 000221a8 4e ba fb 42 |N B | JSR 0x21cec 000221ac 58 4f |XO | ADDQ.L #0x4,A7 000221ae 4e 5e |N^ | UNLK A6 000221b0 4e 75 |Nu | RTS 000221b2 ; -------------------------------------------------------------------------------------- 000221b2 ; OMSI PASCAL Function 000221b2 ; -------------------------------------------------------------------------------------- 000221b2 4e 56 ff f4 |NV | LINK.W A6,#0xfff4 000221b6 bf d5 | | CMPA.L (A5),A7 000221b8 62 06 |b | BHI 0x221c0 000221ba 44 fc 00 02 |D | MOVE.W #0x2,CCR 000221be 4e 76 |Nv | TRAPV 000221c0 de fc 00 0c | | ADDA.W #0xc,A7 000221c4 51 4f |QO | SUBQ.L #0x8,A7 000221c6 4e b9 00 01 03 cc |N | JSR GetPushLevel() : Long 000221cc 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 000221d2 58 4f |XO | ADDQ.L #0x4,A7 000221d4 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000221da 58 4f |XO | ADDQ.L #0x4,A7 000221dc 4e 5e |N^ | UNLK A6 000221de 4e 75 |Nu | RTS 000221e0 ; -------------------------------------------------------------------------------------- 000221e0 ; OMSI PASCAL Function 000221e0 ; <LVAR 0x008 4(r)> 000221e0 ; <LVAR -0x004 1(rw)> 000221e0 ; <LVAR -0x008 @ 4(rw)> 000221e0 ; <LVAR -0x00c @ 4(r)> 000221e0 ; <LVAR -0x010 @ 4(r)> 000221e0 ; <LVAR -0x012 @ 1(r)> 000221e0 ; <LVAR -0x013 @ 1(r)> 000221e0 ; <LVAR -0x014 @ 1(r)> 000221e0 ; <LVAR -0x024 4(rw)> 000221e0 ; <LVAR -0x028 4(rw)> 000221e0 ; <LVAR -0x02c 4(rw)> 000221e0 ; <LVAR -0x030 @ 4(r)> 000221e0 ; <LVAR -0x032 1(w)> 000221e0 ; <LVAR -0x036 @ 4(r)> 000221e0 ; <LVAR -0x038 @ 1(r)> 000221e0 ; <LVAR -0x03c @ 4(rw)> 000221e0 ; -------------------------------------------------------------------------------------- 000221e0 4e 56 ff 64 |NV d | LINK.W A6,#0xff64 000221e4 bf d5 | | CMPA.L (A5),A7 000221e6 62 06 |b | BHI 0x221ee 000221e8 44 fc 00 02 |D | MOVE.W #0x2,CCR 000221ec 4e 76 |Nv | TRAPV 000221ee de fc 00 60 | ` | ADDA.W #0x60,A7 000221f2 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 000221f6 45 ee ff c4 |E | LEA.L (A6-0x3c),A2 000221fa 47 ee 00 08 |G | LEA.L (A6+0x8),A3 000221fe 49 f9 00 01 02 c4 |I | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A4 00022204 74 01 |t | MOVEQ.L #0x01,D2 00022206 76 14 |v | MOVEQ.L #0x14,D3 00022208 28 3c ff ff 80 00 |(< | MOVE.L #0xffff8000,D4 0002220e 59 4f |YO | SUBQ.L #0x4,A7 00022210 2f 13 |/ | MOVE.L (A3),-(A7) 00022212 4e ba ed 02 |N | JSR 0x20f16 00022216 58 4f |XO | ADDQ.L #0x4,A7 00022218 2d 5f ff d4 |-_ | MOVE.L (A7)+,(A6-0x2c) 0002221c 66 28 |f( | BNE 0x22246 0002221e 59 4f |YO | SUBQ.L #0x4,A7 00022220 1e ba e5 0c | | MOVE.B 0x2072e,(A7) 00022224 1f 7a e5 09 00 01 | z | MOVE.B 0x2072f,(A7+0x1) 0002222a 1f 7a e5 04 00 02 | z | MOVE.B 0x20730,(A7+0x2) 00022230 59 4f |YO | SUBQ.L #0x4,A7 00022232 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022236 3f 02 |? | MOVE.W D2,-(A7) 00022238 3f 3c 00 03 |?< | MOVE.W #0x3,-(A7) 0002223c 4e 94 |N | JSR (A4) 0002223e 50 4f |PO | ADDQ.L #0x8,A7 00022240 24 9f |$ | MOVE.L (A7)+,(A2) 00022242 58 4f |XO | ADDQ.L #0x4,A7 00022244 60 10 |` | BRA 0x22256 00022246 59 4f |YO | SUBQ.L #0x4,A7 00022248 2f 13 |/ | MOVE.L (A3),-(A7) 0002224a 48 78 00 01 |Hx | PEA.L 0x1 0002224e 4e ba f5 e2 |N | JSR 0x21832 00022252 50 4f |PO | ADDQ.L #0x8,A7 00022254 24 9f |$ | MOVE.L (A7)+,(A2) 00022256 5d 4f |]O | SUBQ.L #0x6,A7 00022258 20 4f | O | MOVEA.L A7,A0 0002225a 43 fa e4 d6 |C | LEA.L 0x20732,A1 0002225e 70 04 |p | MOVEQ.L #0x04,D0 00022260 10 d9 | | MOVE.B (A1)+,(A0)+ 00022262 51 c8 ff fc |Q | DBF D0,0x22260 00022266 59 4f |YO | SUBQ.L #0x4,A7 00022268 2f 12 |/ | MOVE.L (A2),-(A7) 0002226a 59 4f |YO | SUBQ.L #0x4,A7 0002226c 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00022270 3f 02 |? | MOVE.W D2,-(A7) 00022272 3f 3c 00 05 |?< | MOVE.W #0x5,-(A7) 00022276 4e 94 |N | JSR (A4) 00022278 50 4f |PO | ADDQ.L #0x8,A7 0002227a 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00022280 50 4f |PO | ADDQ.L #0x8,A7 00022282 24 9f |$ | MOVE.L (A7)+,(A2) 00022284 54 4f |TO | ADDQ.L #0x2,A7 00022286 2e 92 |. | MOVE.L (A2),(A7) 00022288 42 27 |B' | CLR.B -(A7) 0002228a 1f 02 | | MOVE.B D2,-(A7) 0002228c 48 78 00 00 |Hx | PEA.L 0x0 00022290 48 6e ff c8 |Hn | PEA.L (A6-0x38) 00022294 48 6e ff ca |Hn | PEA.L (A6-0x36) 00022298 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File) 0002229e de c3 | | ADDA.W D3,A7 000222a0 4a 2e ff c8 |J. | TST.B (A6-0x38) 000222a4 67 0e |g | BEQ 0x222b4 000222a6 48 52 |HR | PEA.L (A2) 000222a8 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000222ae 58 4f |XO | ADDQ.L #0x4,A7 000222b0 60 00 02 4e |` N | BRA 0x22500 000222b4 20 6e ff ca | n | MOVEA.L (A6-0x36),A0 000222b8 10 28 00 3f | ( ? | MOVE.B (A0+0x3f),D0 000222bc ed 08 | | LSL.B #0x6,D0 000222be ee 08 | | LSR.B #0x7,D0 000222c0 1d 40 ff ce | @ | MOVE.B D0,(A6-0x32) 000222c4 42 27 |B' | CLR.B -(A7) 000222c6 1f 02 | | MOVE.B D2,-(A7) 000222c8 48 78 00 01 |Hx | PEA.L 0x1 000222cc 48 6e ff c8 |Hn | PEA.L (A6-0x38) 000222d0 48 6e ff ca |Hn | PEA.L (A6-0x36) 000222d4 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File) 000222da de fc 00 10 | | ADDA.W #0x10,A7 000222de 20 52 | R | MOVEA.L (A2),A0 000222e0 32 10 |2 | MOVE.W (A0),D1 000222e2 48 c1 |H | EXTW.L D1 000222e4 5b 81 |[ | SUBQ.L #0x5,D1 000222e6 92 84 | | SUB.L D4,D1 000222e8 0c 81 00 00 ff ff | | CMPI.L #0x0000ffff,D1 000222ee 63 02 |c | BLS 0x222f2 000222f0 4e 4f |NO | TRAP #15 000222f2 d2 84 | | ADD.L D4,D1 000222f4 30 81 |0 | MOVE.W D1,(A0) 000222f6 4a 00 |J | TST.B D0 000222f8 66 36 |f6 | BNE 0x22330 000222fa 41 fa e4 32 |A 2 | LEA.L 0x2072e,A0 000222fe 70 08 |p | MOVEQ.L #0x08,D0 00022300 3f 20 |? | MOVE.W -(A0),-(A7) 00022302 51 c8 ff fc |Q | DBF D0,0x22300 00022306 59 4f |YO | SUBQ.L #0x4,A7 00022308 2f 12 |/ | MOVE.L (A2),-(A7) 0002230a 59 4f |YO | SUBQ.L #0x4,A7 0002230c 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00022310 3f 02 |? | MOVE.W D2,-(A7) 00022312 3f 3c 00 12 |?< | MOVE.W #0x12,-(A7) 00022316 4e 94 |N | JSR (A4) 00022318 50 4f |PO | ADDQ.L #0x8,A7 0002231a 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00022320 50 4f |PO | ADDQ.L #0x8,A7 00022322 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00022328 de fc 00 16 | | ADDA.W #0x16,A7 0002232c 60 00 01 d2 |` | BRA 0x22500 00022330 48 6e ff d0 |Hn | PEA.L (A6-0x30) 00022334 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 0002233a 58 4f |XO | ADDQ.L #0x4,A7 0002233c 20 6e ff d0 | n | MOVEA.L (A6-0x30),A0 00022340 2f 08 |/ | MOVE.L A0,-(A7) 00022342 7e 01 |~ | MOVEQ.L #0x01,D7 00022344 2f 2e ff d4 |/. | MOVE.L (A6-0x2c),-(A7) 00022348 7a 02 |z | MOVEQ.L #0x02,D5 0002234a ba 97 | | CMP.L (A7),D5 0002234c 6e 00 00 94 |n | BGT 0x223e2 00022350 51 4f |QO | SUBQ.L #0x8,A7 00022352 2f 13 |/ | MOVE.L (A3),-(A7) 00022354 2f 05 |/ | MOVE.L D5,-(A7) 00022356 4e ba f3 fc |N | JSR 0x21754 0002235a 50 4f |PO | ADDQ.L #0x8,A7 0002235c 2d 5f ff d8 |-_ | MOVE.L (A7)+,(A6-0x28) 00022360 2d 5f ff dc |-_ | MOVE.L (A7)+,(A6-0x24) 00022364 2f 2e ff dc |/. | MOVE.L (A6-0x24),-(A7) 00022368 2c 2e ff d8 |,. | MOVE.L (A6-0x28),D6 0002236c bc 97 | | CMP.L (A7),D6 0002236e 6e 14 |n | BGT 0x22384 00022370 20 17 | | MOVE.L (A7),D0 00022372 0c 86 80 00 00 01 | | CMPI.L #0x80000001,D6 00022378 6d 08 |m | BLT 0x22382 0002237a 0c 80 7f ff ff ff | | CMPI.L #0x7fffffff,D0 00022380 6f 02 |o | BLE 0x22384 00022382 4e 4f |NO | TRAP #15 00022384 bc 97 | | CMP.L (A7),D6 00022386 6e 32 |n2 | BGT 0x223ba 00022388 20 07 | | MOVE.L D7,D0 0002238a 53 80 |S | SUBQ.L #0x1,D0 0002238c 0c 80 00 00 00 7d | } | CMPI.L #0x0000007d,D0 00022392 63 02 |c | BLS 0x22396 00022394 4e 4f |NO | TRAP #15 00022396 20 6f 00 08 | o | MOVEA.L (A7+0x8),A0 0002239a 22 06 |" | MOVE.L D6,D1 0002239c 53 81 |S | SUBQ.L #0x1,D1 0002239e 0c 81 00 00 0f ff | | CMPI.L #0x00000fff,D1 000223a4 63 02 |c | BLS 0x223a8 000223a6 4e 4f |NO | TRAP #15 000223a8 43 f9 00 02 46 0c |C F | LEA.L 0x2460c,A1 000223ae 11 b1 18 08 08 02 | | MOVE.B (A1+D1.L+#0x8),(A0+D0.L+#0x2) 000223b4 52 87 |R | ADDQ.L #0x1,D7 000223b6 52 86 |R | ADDQ.L #0x1,D6 000223b8 68 ca |h | BVC 0x22384 000223ba 58 4f |XO | ADDQ.L #0x4,A7 000223bc ba ae ff d4 | | CMP.L (A6-0x2c),D5 000223c0 67 1a |g | BEQ 0x223dc 000223c2 20 07 | | MOVE.L D7,D0 000223c4 53 80 |S | SUBQ.L #0x1,D0 000223c6 0c 80 00 00 00 7d | } | CMPI.L #0x0000007d,D0 000223cc 63 02 |c | BLS 0x223d0 000223ce 4e 4f |NO | TRAP #15 000223d0 20 6f 00 04 | o | MOVEA.L (A7+0x4),A0 000223d4 11 bc 00 2c 08 02 | , | MOVE.B #0x2c,(A0+D0.L+#0x2) 000223da 52 87 |R | ADDQ.L #0x1,D7 000223dc 52 85 |R | ADDQ.L #0x1,D5 000223de 68 00 ff 6a |h j | BVC 0x2234a 000223e2 58 4f |XO | ADDQ.L #0x4,A7 000223e4 20 57 | W | MOVEA.L (A7),A0 000223e6 20 07 | | MOVE.L D7,D0 000223e8 53 80 |S | SUBQ.L #0x1,D0 000223ea 90 84 | | SUB.L D4,D0 000223ec 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 000223f2 63 02 |c | BLS 0x223f6 000223f4 4e 4f |NO | TRAP #15 000223f6 d0 84 | | ADD.L D4,D0 000223f8 30 80 |0 | MOVE.W D0,(A0) 000223fa 54 4f |TO | ADDQ.L #0x2,A7 000223fc 3e ba e3 3e |> > | MOVE.W 0x2073c,(A7) 00022400 3f 3a e3 38 |?: 8 | MOVE.W 0x2073a,-(A7) 00022404 3f 3a e3 32 |?: 2 | MOVE.W 0x20738,-(A7) 00022408 59 4f |YO | SUBQ.L #0x4,A7 0002240a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002240e 3f 02 |? | MOVE.W D2,-(A7) 00022410 3f 3c 00 06 |?< | MOVE.W #0x6,-(A7) 00022414 4e 94 |N | JSR (A4) 00022416 50 4f |PO | ADDQ.L #0x8,A7 00022418 2d 5f ff f8 |-_ | MOVE.L (A7)+,(A6-0x8) 0002241c 54 4f |TO | ADDQ.L #0x2,A7 0002241e 2e 93 |. | MOVE.L (A3),(A7) 00022420 48 78 00 00 |Hx | PEA.L 0x0 00022424 2f 2e ff f8 |/. | MOVE.L (A6-0x8),-(A7) 00022428 48 6e ff f0 |Hn | PEA.L (A6-0x10) 0002242c 48 6e ff ed |Hn | PEA.L (A6-0x13) 00022430 4e b9 00 02 3d 6a |N =j | JSR 0x23d6a 00022436 de c3 | | ADDA.W D3,A7 00022438 48 6e ff f8 |Hn | PEA.L (A6-0x8) 0002243c 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00022442 54 4f |TO | ADDQ.L #0x2,A7 00022444 3e ba e2 fc |> | MOVE.W 0x20742,(A7) 00022448 3f 3a e2 f6 |?: | MOVE.W 0x20740,-(A7) 0002244c 3f 3a e2 f0 |?: | MOVE.W 0x2073e,-(A7) 00022450 59 4f |YO | SUBQ.L #0x4,A7 00022452 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022456 3f 02 |? | MOVE.W D2,-(A7) 00022458 3f 3c 00 06 |?< | MOVE.W #0x6,-(A7) 0002245c 4e 94 |N | JSR (A4) 0002245e 50 4f |PO | ADDQ.L #0x8,A7 00022460 2d 5f ff f8 |-_ | MOVE.L (A7)+,(A6-0x8) 00022464 54 4f |TO | ADDQ.L #0x2,A7 00022466 2e 93 |. | MOVE.L (A3),(A7) 00022468 48 78 00 00 |Hx | PEA.L 0x0 0002246c 2f 2e ff f8 |/. | MOVE.L (A6-0x8),-(A7) 00022470 48 6e ff f4 |Hn | PEA.L (A6-0xc) 00022474 48 6e ff ee |Hn | PEA.L (A6-0x12) 00022478 4e b9 00 02 3d 6a |N =j | JSR 0x23d6a 0002247e de c3 | | ADDA.W D3,A7 00022480 48 6e ff f8 |Hn | PEA.L (A6-0x8) 00022484 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 0002248a 58 4f |XO | ADDQ.L #0x4,A7 0002248c 4a 2e ff ed |J. | TST.B (A6-0x13) 00022490 66 06 |f | BNE 0x22498 00022492 4a 2e ff ee |J. | TST.B (A6-0x12) 00022496 67 06 |g | BEQ 0x2249e 00022498 42 2e ff fc |B. | CLR.B (A6-0x4) 0002249c 60 04 |` | BRA 0x224a2 0002249e 1d 42 ff fc | B | MOVE.B D2,(A6-0x4) 000224a2 2f 12 |/ | MOVE.L (A2),-(A7) 000224a4 2f 2e ff d0 |/. | MOVE.L (A6-0x30),-(A7) 000224a8 10 2e ff fc | . | MOVE.B (A6-0x4),D0 000224ac 48 80 |H | EXTB.W D0 000224ae 41 bc 00 02 |A | CHK.W #0x2,D0 000224b2 1f 00 | | MOVE.B D0,-(A7) 000224b4 48 6e ff ec |Hn | PEA.L (A6-0x14) 000224b8 4e b9 00 01 03 b0 |N | JSR PushProgram(a : String; b : String; MOD c : B; VAR d : Bool) 000224be de fc 00 0e | | ADDA.W #0xe,A7 000224c2 4a 2e ff ed |J. | TST.B (A6-0x13) 000224c6 67 20 |g | BEQ 0x224e8 000224c8 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7) 000224cc 59 4f |YO | SUBQ.L #0x4,A7 000224ce 10 2e ff ec | . | MOVE.B (A6-0x14),D0 000224d2 48 80 |H | EXTB.W D0 000224d4 41 bc 00 0e |A | CHK.W #0xe,D0 000224d8 1f 00 | | MOVE.B D0,-(A7) 000224da 4e b9 00 01 03 c0 |N | JSR ExpErrMsg(a: Byte) : String 000224e0 54 4f |TO | ADDQ.L #0x2,A7 000224e2 4e ba f9 4c |N L | JSR 0x21e30 000224e6 50 4f |PO | ADDQ.L #0x8,A7 000224e8 4a 2e ff ee |J. | TST.B (A6-0x12) 000224ec 67 12 |g | BEQ 0x22500 000224ee 2f 2e ff f4 |/. | MOVE.L (A6-0xc),-(A7) 000224f2 59 4f |YO | SUBQ.L #0x4,A7 000224f4 4e b9 00 01 03 c8 |N | JSR FSCALL_103c8 000224fa 4e ba f9 34 |N 4 | JSR 0x21e30 000224fe 50 4f |PO | ADDQ.L #0x8,A7 00022500 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00022504 4e 5e |N^ | UNLK A6 00022506 4e 75 |Nu | RTS 00022508 ; -------------------------------------------------------------------------------------- 00022508 ; OMSI PASCAL Function 00022508 ; <LVAR 0x008 4(r)> 00022508 ; <LVAR -0x004 @ 4(rw)> 00022508 ; <LVAR -0x008 @ 4(rw)> 00022508 ; -------------------------------------------------------------------------------------- 00022508 4e 56 ff e0 |NV | LINK.W A6,#0xffe0 0002250c bf d5 | | CMPA.L (A5),A7 0002250e 62 06 |b | BHI 0x22516 00022510 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022514 4e 76 |Nv | TRAPV 00022516 de fc 00 18 | | ADDA.W #0x18,A7 0002251a 48 e7 00 c0 |H | MOVEM.L A1+A0,-(A7) 0002251e 41 ee ff f8 |A | LEA.L (A6-0x8),A0 00022522 43 ee ff fc |C | LEA.L (A6-0x4),A1 00022526 59 4f |YO | SUBQ.L #0x4,A7 00022528 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 0002252c 48 78 00 01 |Hx | PEA.L 0x1 00022530 4e ba f3 00 |N | JSR 0x21832 00022534 50 4f |PO | ADDQ.L #0x8,A7 00022536 20 97 | | MOVE.L (A7),(A0) 00022538 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 0002253c 48 78 00 02 |Hx | PEA.L 0x2 00022540 4e ba f2 f0 |N | JSR 0x21832 00022544 50 4f |PO | ADDQ.L #0x8,A7 00022546 22 97 |" | MOVE.L (A7),(A1) 00022548 54 4f |TO | ADDQ.L #0x2,A7 0002254a 2f 10 |/ | MOVE.L (A0),-(A7) 0002254c 2f 11 |/ | MOVE.L (A1),-(A7) 0002254e 4e b9 00 01 02 c8 |N | JSR StringEqual(a, b : String) : Byte 00022554 50 4f |PO | ADDQ.L #0x8,A7 00022556 4a 1f |J | TST.B (A7)+ 00022558 67 06 |g | BEQ 0x22560 0002255a 4e ba ed 96 |N | JSR 0x212f2 0002255e 60 04 |` | BRA 0x22564 00022560 4e ba ed d6 |N | JSR 0x21338 00022564 48 51 |HQ | PEA.L (A1) 00022566 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 0002256c 58 4f |XO | ADDQ.L #0x4,A7 0002256e 48 50 |HP | PEA.L (A0) 00022570 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00022576 58 4f |XO | ADDQ.L #0x4,A7 00022578 4c df 03 00 |L | MOVEM.L (A7)+,A0+A1 0002257c 4e 5e |N^ | UNLK A6 0002257e 4e 75 |Nu | RTS 00022580 ; -------------------------------------------------------------------------------------- 00022580 ; OMSI PASCAL Function 00022580 ; <LVAR 0x008 4(r)> 00022580 ; <LVAR -0x004 @ 4(rw)> 00022580 ; <LVAR -0x008 @ 4(rw)> 00022580 ; -------------------------------------------------------------------------------------- 00022580 4e 56 ff e0 |NV | LINK.W A6,#0xffe0 00022584 bf d5 | | CMPA.L (A5),A7 00022586 62 06 |b | BHI 0x2258e 00022588 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002258c 4e 76 |Nv | TRAPV 0002258e de fc 00 18 | | ADDA.W #0x18,A7 00022592 48 e7 00 c0 |H | MOVEM.L A1+A0,-(A7) 00022596 41 ee ff f8 |A | LEA.L (A6-0x8),A0 0002259a 43 ee ff fc |C | LEA.L (A6-0x4),A1 0002259e 59 4f |YO | SUBQ.L #0x4,A7 000225a0 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000225a4 48 78 00 01 |Hx | PEA.L 0x1 000225a8 4e ba f2 88 |N | JSR 0x21832 000225ac 50 4f |PO | ADDQ.L #0x8,A7 000225ae 20 97 | | MOVE.L (A7),(A0) 000225b0 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000225b4 48 78 00 02 |Hx | PEA.L 0x2 000225b8 4e ba f2 78 |N x | JSR 0x21832 000225bc 50 4f |PO | ADDQ.L #0x8,A7 000225be 22 97 |" | MOVE.L (A7),(A1) 000225c0 54 4f |TO | ADDQ.L #0x2,A7 000225c2 2f 10 |/ | MOVE.L (A0),-(A7) 000225c4 2f 11 |/ | MOVE.L (A1),-(A7) 000225c6 4e b9 00 01 02 c8 |N | JSR StringEqual(a, b : String) : Byte 000225cc 50 4f |PO | ADDQ.L #0x8,A7 000225ce 4a 1f |J | TST.B (A7)+ 000225d0 66 06 |f | BNE 0x225d8 000225d2 4e ba ed 1e |N | JSR 0x212f2 000225d6 60 04 |` | BRA 0x225dc 000225d8 4e ba ed 5e |N ^ | JSR 0x21338 000225dc 48 51 |HQ | PEA.L (A1) 000225de 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000225e4 58 4f |XO | ADDQ.L #0x4,A7 000225e6 48 50 |HP | PEA.L (A0) 000225e8 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000225ee 58 4f |XO | ADDQ.L #0x4,A7 000225f0 4c df 03 00 |L | MOVEM.L (A7)+,A0+A1 000225f4 4e 5e |N^ | UNLK A6 000225f6 4e 75 |Nu | RTS 000225f8 ; -------------------------------------------------------------------------------------- 000225f8 ; OMSI PASCAL Function 000225f8 ; <LVAR 0x008 4(r)> 000225f8 ; -------------------------------------------------------------------------------------- 000225f8 4e 56 ff f0 |NV | LINK.W A6,#0xfff0 000225fc bf d5 | | CMPA.L (A5),A7 000225fe 62 06 |b | BHI 0x22606 00022600 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022604 4e 76 |Nv | TRAPV 00022606 de fc 00 10 | | ADDA.W #0x10,A7 0002260a 59 4f |YO | SUBQ.L #0x4,A7 0002260c 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022610 48 78 00 01 |Hx | PEA.L 0x1 00022614 4e ba f2 1c |N | JSR 0x21832 00022618 50 4f |PO | ADDQ.L #0x8,A7 0002261a 4e ba f0 0e |N | JSR 0x2162a 0002261e 58 4f |XO | ADDQ.L #0x4,A7 00022620 4e 5e |N^ | UNLK A6 00022622 4e 75 |Nu | RTS 00022624 ; -------------------------------------------------------------------------------------- 00022624 ; OMSI PASCAL Function 00022624 ; <LVAR 0x008 4(r)> 00022624 ; <LVAR -0x014 @ 4(rw)> 00022624 ; -------------------------------------------------------------------------------------- 00022624 4e 56 ff 90 |NV | LINK.W A6,#0xff90 00022628 bf d5 | | CMPA.L (A5),A7 0002262a 62 06 |b | BHI 0x22632 0002262c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022630 4e 76 |Nv | TRAPV 00022632 de fc 00 5c | \ | ADDA.W #0x5c,A7 00022636 48 e7 e7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7) 0002263a 45 ee 00 08 |E | LEA.L (A6+0x8),A2 0002263e 47 ee ff ec |G | LEA.L (A6-0x14),A3 00022642 74 7d |t} | MOVEQ.L #0x7d,D2 00022644 59 4f |YO | SUBQ.L #0x4,A7 00022646 2f 12 |/ | MOVE.L (A2),-(A7) 00022648 48 78 00 01 |Hx | PEA.L 0x1 0002264c 4e ba f1 e4 |N | JSR 0x21832 00022650 50 4f |PO | ADDQ.L #0x8,A7 00022652 26 97 |& | MOVE.L (A7),(A3) 00022654 2f 12 |/ | MOVE.L (A2),-(A7) 00022656 48 78 00 02 |Hx | PEA.L 0x2 0002265a 4e ba f1 d6 |N | JSR 0x21832 0002265e 50 4f |PO | ADDQ.L #0x8,A7 00022660 28 5f |(_ | MOVEA.L (A7)+,A4 00022662 9e fc 00 0c | | SUBA.W #0xc,A7 00022666 2f 12 |/ | MOVE.L (A2),-(A7) 00022668 48 78 00 03 |Hx | PEA.L 0x3 0002266c 4e ba f1 f6 |N | JSR 0x21864 00022670 50 4f |PO | ADDQ.L #0x8,A7 00022672 4e b9 00 01 03 50 |N P | JSR Quad2Long(a : Quad) : Long 00022678 50 4f |PO | ADDQ.L #0x8,A7 0002267a 2c 17 |, | MOVE.L (A7),D6 0002267c 51 4f |QO | SUBQ.L #0x8,A7 0002267e 2f 12 |/ | MOVE.L (A2),-(A7) 00022680 48 78 00 04 |Hx | PEA.L 0x4 00022684 4e ba f1 de |N | JSR 0x21864 00022688 50 4f |PO | ADDQ.L #0x8,A7 0002268a 4e b9 00 01 03 50 |N P | JSR Quad2Long(a : Quad) : Long 00022690 50 4f |PO | ADDQ.L #0x8,A7 00022692 2a 1f |* | MOVE.L (A7)+,D5 00022694 20 06 | | MOVE.L D6,D0 00022696 d0 85 | | ADD.L D5,D0 00022698 53 80 |S | SUBQ.L #0x1,D0 0002269a 32 14 |2 | MOVE.W (A4),D1 0002269c 48 c1 |H | EXTW.L D1 0002269e b0 81 | | CMP.L D1,D0 000226a0 6f 30 |o0 | BLE 0x226d2 000226a2 9e fc 00 20 | | SUBA.W #0x20,A7 000226a6 20 4f | O | MOVEA.L A7,A0 000226a8 43 fa e0 9a |C | LEA.L 0x20744,A1 000226ac 70 1e |p | MOVEQ.L #0x1e,D0 000226ae 10 d9 | | MOVE.B (A1)+,(A0)+ 000226b0 51 c8 ff fc |Q | DBF D0,0x226ae 000226b4 59 4f |YO | SUBQ.L #0x4,A7 000226b6 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000226ba 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000226be 3f 3c 00 1f |?< | MOVE.W #0x1f,-(A7) 000226c2 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000226c8 50 4f |PO | ADDQ.L #0x8,A7 000226ca 4e ba e4 3e |N > | JSR 0x20b0a 000226ce de fc 00 24 | $ | ADDA.W #0x24,A7 000226d2 20 53 | S | MOVEA.L (A3),A0 000226d4 2f 08 |/ | MOVE.L A0,-(A7) 000226d6 30 10 |0 | MOVE.W (A0),D0 000226d8 48 c0 |H | EXTW.L D0 000226da 2f 00 |/ | MOVE.L D0,-(A7) 000226dc 7e 01 |~ | MOVEQ.L #0x01,D7 000226de be 97 | | CMP.L (A7),D7 000226e0 6e 26 |n& | BGT 0x22708 000226e2 20 06 | | MOVE.L D6,D0 000226e4 d0 87 | | ADD.L D7,D0 000226e6 53 80 |S | SUBQ.L #0x1,D0 000226e8 53 80 |S | SUBQ.L #0x1,D0 000226ea b0 82 | | CMP.L D2,D0 000226ec 63 02 |c | BLS 0x226f0 000226ee 4e 4f |NO | TRAP #15 000226f0 22 07 |" | MOVE.L D7,D1 000226f2 53 81 |S | SUBQ.L #0x1,D1 000226f4 b2 82 | | CMP.L D2,D1 000226f6 63 02 |c | BLS 0x226fa 000226f8 4e 4f |NO | TRAP #15 000226fa 20 6f 00 04 | o | MOVEA.L (A7+0x4),A0 000226fe 19 b0 18 02 08 02 | | MOVE.B (A0+D1.L+#0x2),(A4+D0.L+#0x2) 00022704 52 87 |R | ADDQ.L #0x1,D7 00022706 68 d6 |h | BVC 0x226de 00022708 58 4f |XO | ADDQ.L #0x4,A7 0002270a 2e 8c |. | MOVE.L A4,(A7) 0002270c 4e ba f1 c6 |N | JSR 0x218d4 00022710 58 4f |XO | ADDQ.L #0x4,A7 00022712 48 53 |HS | PEA.L (A3) 00022714 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 0002271a 58 4f |XO | ADDQ.L #0x4,A7 0002271c 4c df 1f e7 |L | MOVEM.L (A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3+A4 00022720 4e 5e |N^ | UNLK A6 00022722 4e 75 |Nu | RTS 00022724 ; -------------------------------------------------------------------------------------- 00022724 ; OMSI PASCAL Function 00022724 ; <LVAR 0x008 4(r)> 00022724 ; <LVAR -0x010 @ 4(r)> 00022724 ; <LVAR -0x014 @ 4(rw)> 00022724 ; -------------------------------------------------------------------------------------- 00022724 4e 56 ff a8 |NV | LINK.W A6,#0xffa8 00022728 bf d5 | | CMPA.L (A5),A7 0002272a 62 06 |b | BHI 0x22732 0002272c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022730 4e 76 |Nv | TRAPV 00022732 de fc 00 44 | D | ADDA.W #0x44,A7 00022736 48 e7 e7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7) 0002273a 45 ee ff ec |E | LEA.L (A6-0x14),A2 0002273e 47 ee ff f0 |G | LEA.L (A6-0x10),A3 00022742 49 ee 00 08 |I | LEA.L (A6+0x8),A4 00022746 74 7d |t} | MOVEQ.L #0x7d,D2 00022748 59 4f |YO | SUBQ.L #0x4,A7 0002274a 2f 14 |/ | MOVE.L (A4),-(A7) 0002274c 48 78 00 01 |Hx | PEA.L 0x1 00022750 4e ba f0 e0 |N | JSR 0x21832 00022754 50 4f |PO | ADDQ.L #0x8,A7 00022756 24 9f |$ | MOVE.L (A7)+,(A2) 00022758 48 53 |HS | PEA.L (A3) 0002275a 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00022760 51 4f |QO | SUBQ.L #0x8,A7 00022762 2f 14 |/ | MOVE.L (A4),-(A7) 00022764 48 78 00 02 |Hx | PEA.L 0x2 00022768 4e ba f0 fa |N | JSR 0x21864 0002276c 50 4f |PO | ADDQ.L #0x8,A7 0002276e 4e b9 00 01 03 50 |N P | JSR Quad2Long(a : Quad) : Long 00022774 50 4f |PO | ADDQ.L #0x8,A7 00022776 2a 17 |* | MOVE.L (A7),D5 00022778 51 4f |QO | SUBQ.L #0x8,A7 0002277a 2f 14 |/ | MOVE.L (A4),-(A7) 0002277c 48 78 00 03 |Hx | PEA.L 0x3 00022780 4e ba f0 e2 |N | JSR 0x21864 00022784 50 4f |PO | ADDQ.L #0x8,A7 00022786 4e b9 00 01 03 50 |N P | JSR Quad2Long(a : Quad) : Long 0002278c 50 4f |PO | ADDQ.L #0x8,A7 0002278e 2c 1f |, | MOVE.L (A7)+,D6 00022790 20 52 | R | MOVEA.L (A2),A0 00022792 20 05 | | MOVE.L D5,D0 00022794 d0 86 | | ADD.L D6,D0 00022796 53 80 |S | SUBQ.L #0x1,D0 00022798 32 10 |2 | MOVE.W (A0),D1 0002279a 48 c1 |H | EXTW.L D1 0002279c b0 81 | | CMP.L D1,D0 0002279e 6f 06 |o | BLE 0x227a6 000227a0 52 81 |R | ADDQ.L #0x1,D1 000227a2 92 85 | | SUB.L D5,D1 000227a4 2c 01 |, | MOVE.L D1,D6 000227a6 2f 06 |/ | MOVE.L D6,-(A7) 000227a8 7e 01 |~ | MOVEQ.L #0x01,D7 000227aa be 97 | | CMP.L (A7),D7 000227ac 6e 26 |n& | BGT 0x227d4 000227ae 20 53 | S | MOVEA.L (A3),A0 000227b0 20 07 | | MOVE.L D7,D0 000227b2 53 80 |S | SUBQ.L #0x1,D0 000227b4 b0 82 | | CMP.L D2,D0 000227b6 63 02 |c | BLS 0x227ba 000227b8 4e 4f |NO | TRAP #15 000227ba 22 52 |"R | MOVEA.L (A2),A1 000227bc 22 07 |" | MOVE.L D7,D1 000227be d2 85 | | ADD.L D5,D1 000227c0 53 81 |S | SUBQ.L #0x1,D1 000227c2 53 81 |S | SUBQ.L #0x1,D1 000227c4 b2 82 | | CMP.L D2,D1 000227c6 63 02 |c | BLS 0x227ca 000227c8 4e 4f |NO | TRAP #15 000227ca 11 b1 18 02 08 02 | | MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x2) 000227d0 52 87 |R | ADDQ.L #0x1,D7 000227d2 68 d6 |h | BVC 0x227aa 000227d4 58 4f |XO | ADDQ.L #0x4,A7 000227d6 20 53 | S | MOVEA.L (A3),A0 000227d8 04 86 ff ff 80 00 | | SUBI.L #0xffff8000,D6 000227de 0c 86 00 00 ff ff | | CMPI.L #0x0000ffff,D6 000227e4 63 02 |c | BLS 0x227e8 000227e6 4e 4f |NO | TRAP #15 000227e8 06 86 ff ff 80 00 | | ADDI.L #0xffff8000,D6 000227ee 30 86 |0 | MOVE.W D6,(A0) 000227f0 2f 13 |/ | MOVE.L (A3),-(A7) 000227f2 4e ba f0 e0 |N | JSR 0x218d4 000227f6 58 4f |XO | ADDQ.L #0x4,A7 000227f8 48 52 |HR | PEA.L (A2) 000227fa 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00022800 58 4f |XO | ADDQ.L #0x4,A7 00022802 4c df 1f e7 |L | MOVEM.L (A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3+A4 00022806 4e 5e |N^ | UNLK A6 00022808 4e 75 |Nu | RTS 0002280a ; -------------------------------------------------------------------------------------- 0002280a ; OMSI PASCAL Function 0002280a ; <LVAR 0x008 4(r)> 0002280a ; -------------------------------------------------------------------------------------- 0002280a 4e 56 ff ec |NV | LINK.W A6,#0xffec 0002280e bf d5 | | CMPA.L (A5),A7 00022810 62 06 |b | BHI 0x22818 00022812 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022816 4e 76 |Nv | TRAPV 00022818 de fc 00 14 | | ADDA.W #0x14,A7 0002281c 51 4f |QO | SUBQ.L #0x8,A7 0002281e 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022822 48 78 00 01 |Hx | PEA.L 0x1 00022826 4e ba f0 3c |N < | JSR 0x21864 0002282a 50 4f |PO | ADDQ.L #0x8,A7 0002282c 4e ba ee 70 |N p | JSR 0x2169e 00022830 50 4f |PO | ADDQ.L #0x8,A7 00022832 4e 5e |N^ | UNLK A6 00022834 4e 75 |Nu | RTS 00022836 ; -------------------------------------------------------------------------------------- 00022836 ; OMSI PASCAL Function 00022836 ; <LVAR 0x008 4(r)> 00022836 ; -------------------------------------------------------------------------------------- 00022836 4e 56 ff e2 |NV | LINK.W A6,#0xffe2 0002283a bf d5 | | CMPA.L (A5),A7 0002283c 62 06 |b | BHI 0x22844 0002283e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022842 4e 76 |Nv | TRAPV 00022844 de fc 00 1e | | ADDA.W #0x1e,A7 00022848 9e fc 00 0a | | SUBA.W #0xa,A7 0002284c 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022850 48 78 00 01 |Hx | PEA.L 0x1 00022854 4e ba f0 0e |N | JSR 0x21864 00022858 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 0002285c 48 78 00 02 |Hx | PEA.L 0x2 00022860 4e ba f0 02 |N | JSR 0x21864 00022864 50 4f |PO | ADDQ.L #0x8,A7 00022866 4e b9 00 01 03 2c |N , | JSR IsEqual(a, b : Quad) : Bool 0002286c de fc 00 10 | | ADDA.W #0x10,A7 00022870 4a 1f |J | TST.B (A7)+ 00022872 67 06 |g | BEQ 0x2287a 00022874 4e ba ea 7c |N | | JSR 0x212f2 00022878 60 04 |` | BRA 0x2287e 0002287a 4e ba ea bc |N | JSR 0x21338 0002287e 4e 5e |N^ | UNLK A6 00022880 4e 75 |Nu | RTS 00022882 ; -------------------------------------------------------------------------------------- 00022882 ; OMSI PASCAL Function 00022882 ; <LVAR 0x008 4(r)> 00022882 ; -------------------------------------------------------------------------------------- 00022882 4e 56 ff e2 |NV | LINK.W A6,#0xffe2 00022886 bf d5 | | CMPA.L (A5),A7 00022888 62 06 |b | BHI 0x22890 0002288a 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002288e 4e 76 |Nv | TRAPV 00022890 de fc 00 1e | | ADDA.W #0x1e,A7 00022894 9e fc 00 0a | | SUBA.W #0xa,A7 00022898 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 0002289c 48 78 00 01 |Hx | PEA.L 0x1 000228a0 4e ba ef c2 |N | JSR 0x21864 000228a4 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000228a8 48 78 00 02 |Hx | PEA.L 0x2 000228ac 4e ba ef b6 |N | JSR 0x21864 000228b0 50 4f |PO | ADDQ.L #0x8,A7 000228b2 4e b9 00 01 03 2c |N , | JSR IsEqual(a, b : Quad) : Bool 000228b8 de fc 00 10 | | ADDA.W #0x10,A7 000228bc 4a 1f |J | TST.B (A7)+ 000228be 66 06 |f | BNE 0x228c6 000228c0 4e ba ea 30 |N 0 | JSR 0x212f2 000228c4 60 04 |` | BRA 0x228ca 000228c6 4e ba ea 70 |N p | JSR 0x21338 000228ca 4e 5e |N^ | UNLK A6 000228cc 4e 75 |Nu | RTS 000228ce ; -------------------------------------------------------------------------------------- 000228ce ; OMSI PASCAL Function 000228ce ; <LVAR 0x008 4(r)> 000228ce ; -------------------------------------------------------------------------------------- 000228ce 4e 56 ff e2 |NV | LINK.W A6,#0xffe2 000228d2 bf d5 | | CMPA.L (A5),A7 000228d4 62 06 |b | BHI 0x228dc 000228d6 44 fc 00 02 |D | MOVE.W #0x2,CCR 000228da 4e 76 |Nv | TRAPV 000228dc de fc 00 1e | | ADDA.W #0x1e,A7 000228e0 9e fc 00 0a | | SUBA.W #0xa,A7 000228e4 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000228e8 48 78 00 01 |Hx | PEA.L 0x1 000228ec 4e ba ef 76 |N v | JSR 0x21864 000228f0 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000228f4 48 78 00 02 |Hx | PEA.L 0x2 000228f8 4e ba ef 6a |N j | JSR 0x21864 000228fc 50 4f |PO | ADDQ.L #0x8,A7 000228fe 4e b9 00 01 03 28 |N ( | JSR IsSmaller(a, b : Quad) : Bool 00022904 de fc 00 10 | | ADDA.W #0x10,A7 00022908 4a 1f |J | TST.B (A7)+ 0002290a 67 06 |g | BEQ 0x22912 0002290c 4e ba e9 e4 |N | JSR 0x212f2 00022910 60 04 |` | BRA 0x22916 00022912 4e ba ea 24 |N $ | JSR 0x21338 00022916 4e 5e |N^ | UNLK A6 00022918 4e 75 |Nu | RTS 0002291a ; -------------------------------------------------------------------------------------- 0002291a ; OMSI PASCAL Function 0002291a ; <LVAR 0x008 4(r)> 0002291a ; -------------------------------------------------------------------------------------- 0002291a 4e 56 ff e2 |NV | LINK.W A6,#0xffe2 0002291e bf d5 | | CMPA.L (A5),A7 00022920 62 06 |b | BHI 0x22928 00022922 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022926 4e 76 |Nv | TRAPV 00022928 de fc 00 1e | | ADDA.W #0x1e,A7 0002292c 9e fc 00 0a | | SUBA.W #0xa,A7 00022930 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022934 48 78 00 01 |Hx | PEA.L 0x1 00022938 4e ba ef 2a |N * | JSR 0x21864 0002293c 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022940 48 78 00 02 |Hx | PEA.L 0x2 00022944 4e ba ef 1e |N | JSR 0x21864 00022948 50 4f |PO | ADDQ.L #0x8,A7 0002294a 4e b9 00 01 03 24 |N $ | JSR IsGreater(a, b : Quad) : Bool 00022950 de fc 00 10 | | ADDA.W #0x10,A7 00022954 4a 1f |J | TST.B (A7)+ 00022956 67 06 |g | BEQ 0x2295e 00022958 4e ba e9 98 |N | JSR 0x212f2 0002295c 60 04 |` | BRA 0x22962 0002295e 4e ba e9 d8 |N | JSR 0x21338 00022962 4e 5e |N^ | UNLK A6 00022964 4e 75 |Nu | RTS 00022966 ; -------------------------------------------------------------------------------------- 00022966 ; OMSI PASCAL Function 00022966 ; <LVAR 0x008 4(r)> 00022966 ; -------------------------------------------------------------------------------------- 00022966 4e 56 ff e2 |NV | LINK.W A6,#0xffe2 0002296a bf d5 | | CMPA.L (A5),A7 0002296c 62 06 |b | BHI 0x22974 0002296e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022972 4e 76 |Nv | TRAPV 00022974 de fc 00 1e | | ADDA.W #0x1e,A7 00022978 9e fc 00 0a | | SUBA.W #0xa,A7 0002297c 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022980 48 78 00 01 |Hx | PEA.L 0x1 00022984 4e ba ee de |N | JSR 0x21864 00022988 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 0002298c 48 78 00 02 |Hx | PEA.L 0x2 00022990 4e ba ee d2 |N | JSR 0x21864 00022994 50 4f |PO | ADDQ.L #0x8,A7 00022996 4e b9 00 01 03 24 |N $ | JSR IsGreater(a, b : Quad) : Bool 0002299c de fc 00 10 | | ADDA.W #0x10,A7 000229a0 4a 1f |J | TST.B (A7)+ 000229a2 66 06 |f | BNE 0x229aa 000229a4 4e ba e9 4c |N L | JSR 0x212f2 000229a8 60 04 |` | BRA 0x229ae 000229aa 4e ba e9 8c |N | JSR 0x21338 000229ae 4e 5e |N^ | UNLK A6 000229b0 4e 75 |Nu | RTS 000229b2 ; -------------------------------------------------------------------------------------- 000229b2 ; OMSI PASCAL Function 000229b2 ; <LVAR 0x008 4(r)> 000229b2 ; -------------------------------------------------------------------------------------- 000229b2 4e 56 ff e2 |NV | LINK.W A6,#0xffe2 000229b6 bf d5 | | CMPA.L (A5),A7 000229b8 62 06 |b | BHI 0x229c0 000229ba 44 fc 00 02 |D | MOVE.W #0x2,CCR 000229be 4e 76 |Nv | TRAPV 000229c0 de fc 00 1e | | ADDA.W #0x1e,A7 000229c4 9e fc 00 0a | | SUBA.W #0xa,A7 000229c8 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000229cc 48 78 00 01 |Hx | PEA.L 0x1 000229d0 4e ba ee 92 |N | JSR 0x21864 000229d4 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000229d8 48 78 00 02 |Hx | PEA.L 0x2 000229dc 4e ba ee 86 |N | JSR 0x21864 000229e0 50 4f |PO | ADDQ.L #0x8,A7 000229e2 4e b9 00 01 03 28 |N ( | JSR IsSmaller(a, b : Quad) : Bool 000229e8 de fc 00 10 | | ADDA.W #0x10,A7 000229ec 4a 1f |J | TST.B (A7)+ 000229ee 66 06 |f | BNE 0x229f6 000229f0 4e ba e9 00 |N | JSR 0x212f2 000229f4 60 04 |` | BRA 0x229fa 000229f6 4e ba e9 40 |N @ | JSR 0x21338 000229fa 4e 5e |N^ | UNLK A6 000229fc 4e 75 |Nu | RTS 000229fe ; -------------------------------------------------------------------------------------- 000229fe ; OMSI PASCAL Function 000229fe ; <LVAR 0x008 4(r)> 000229fe ; -------------------------------------------------------------------------------------- 000229fe 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 00022a02 bf d5 | | CMPA.L (A5),A7 00022a04 62 06 |b | BHI 0x22a0c 00022a06 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022a0a 4e 76 |Nv | TRAPV 00022a0c de fc 00 28 | ( | ADDA.W #0x28,A7 00022a10 48 e7 80 00 |H | MOVEM.L D0,-(A7) 00022a14 70 10 |p | MOVEQ.L #0x10,D0 00022a16 9e c0 | | SUBA.W D0,A7 00022a18 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022a1c 48 78 00 01 |Hx | PEA.L 0x1 00022a20 4e ba ee 42 |N B | JSR 0x21864 00022a24 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022a28 48 78 00 02 |Hx | PEA.L 0x2 00022a2c 4e ba ee 36 |N 6 | JSR 0x21864 00022a30 50 4f |PO | ADDQ.L #0x8,A7 00022a32 4e b9 00 01 03 14 |N | JSR Add(a, b : Quad) : Quad 00022a38 de c0 | | ADDA.W D0,A7 00022a3a 4e ba ef 20 |N | JSR 0x2195c 00022a3e 50 4f |PO | ADDQ.L #0x8,A7 00022a40 4c df 00 01 |L | MOVEM.L (A7)+,D0 00022a44 4e 5e |N^ | UNLK A6 00022a46 4e 75 |Nu | RTS 00022a48 ; -------------------------------------------------------------------------------------- 00022a48 ; OMSI PASCAL Function 00022a48 ; <LVAR 0x008 4(r)> 00022a48 ; -------------------------------------------------------------------------------------- 00022a48 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 00022a4c bf d5 | | CMPA.L (A5),A7 00022a4e 62 06 |b | BHI 0x22a56 00022a50 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022a54 4e 76 |Nv | TRAPV 00022a56 de fc 00 28 | ( | ADDA.W #0x28,A7 00022a5a 48 e7 80 00 |H | MOVEM.L D0,-(A7) 00022a5e 70 10 |p | MOVEQ.L #0x10,D0 00022a60 9e c0 | | SUBA.W D0,A7 00022a62 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022a66 48 78 00 01 |Hx | PEA.L 0x1 00022a6a 4e ba ed f8 |N | JSR 0x21864 00022a6e 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022a72 48 78 00 02 |Hx | PEA.L 0x2 00022a76 4e ba ed ec |N | JSR 0x21864 00022a7a 50 4f |PO | ADDQ.L #0x8,A7 00022a7c 4e b9 00 01 03 18 |N | JSR Subtract(a, b : Quad) : Quad 00022a82 de c0 | | ADDA.W D0,A7 00022a84 4e ba ee d6 |N | JSR 0x2195c 00022a88 50 4f |PO | ADDQ.L #0x8,A7 00022a8a 4c df 00 01 |L | MOVEM.L (A7)+,D0 00022a8e 4e 5e |N^ | UNLK A6 00022a90 4e 75 |Nu | RTS 00022a92 ; -------------------------------------------------------------------------------------- 00022a92 ; OMSI PASCAL Function 00022a92 ; <LVAR 0x008 4(r)> 00022a92 ; -------------------------------------------------------------------------------------- 00022a92 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 00022a96 bf d5 | | CMPA.L (A5),A7 00022a98 62 06 |b | BHI 0x22aa0 00022a9a 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022a9e 4e 76 |Nv | TRAPV 00022aa0 de fc 00 28 | ( | ADDA.W #0x28,A7 00022aa4 48 e7 80 00 |H | MOVEM.L D0,-(A7) 00022aa8 70 10 |p | MOVEQ.L #0x10,D0 00022aaa 9e c0 | | SUBA.W D0,A7 00022aac 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022ab0 48 78 00 01 |Hx | PEA.L 0x1 00022ab4 4e ba ed ae |N | JSR 0x21864 00022ab8 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022abc 48 78 00 02 |Hx | PEA.L 0x2 00022ac0 4e ba ed a2 |N | JSR 0x21864 00022ac4 50 4f |PO | ADDQ.L #0x8,A7 00022ac6 4e b9 00 01 03 1c |N | JSR Multiply(a, b : Quad) : Quad 00022acc de c0 | | ADDA.W D0,A7 00022ace 4e ba ee 8c |N | JSR 0x2195c 00022ad2 50 4f |PO | ADDQ.L #0x8,A7 00022ad4 4c df 00 01 |L | MOVEM.L (A7)+,D0 00022ad8 4e 5e |N^ | UNLK A6 00022ada 4e 75 |Nu | RTS 00022adc ; -------------------------------------------------------------------------------------- 00022adc ; OMSI PASCAL Function 00022adc ; <LVAR 0x008 4(r)> 00022adc ; -------------------------------------------------------------------------------------- 00022adc 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 00022ae0 bf d5 | | CMPA.L (A5),A7 00022ae2 62 06 |b | BHI 0x22aea 00022ae4 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022ae8 4e 76 |Nv | TRAPV 00022aea de fc 00 28 | ( | ADDA.W #0x28,A7 00022aee 48 e7 80 00 |H | MOVEM.L D0,-(A7) 00022af2 70 10 |p | MOVEQ.L #0x10,D0 00022af4 9e c0 | | SUBA.W D0,A7 00022af6 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022afa 48 78 00 01 |Hx | PEA.L 0x1 00022afe 4e ba ed 64 |N d | JSR 0x21864 00022b02 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022b06 48 78 00 02 |Hx | PEA.L 0x2 00022b0a 4e ba ed 58 |N X | JSR 0x21864 00022b0e 50 4f |PO | ADDQ.L #0x8,A7 00022b10 4e b9 00 01 03 20 |N | JSR Divide(a, b : Quad) : Quad 00022b16 de c0 | | ADDA.W D0,A7 00022b18 4e ba ee 42 |N B | JSR 0x2195c 00022b1c 50 4f |PO | ADDQ.L #0x8,A7 00022b1e 4c df 00 01 |L | MOVEM.L (A7)+,D0 00022b22 4e 5e |N^ | UNLK A6 00022b24 4e 75 |Nu | RTS 00022b26 ; -------------------------------------------------------------------------------------- 00022b26 ; OMSI PASCAL Function 00022b26 ; <LVAR 0x008 4(r)> 00022b26 ; -------------------------------------------------------------------------------------- 00022b26 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 00022b2a bf d5 | | CMPA.L (A5),A7 00022b2c 62 06 |b | BHI 0x22b34 00022b2e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022b32 4e 76 |Nv | TRAPV 00022b34 de fc 00 28 | ( | ADDA.W #0x28,A7 00022b38 48 e7 80 00 |H | MOVEM.L D0,-(A7) 00022b3c 70 10 |p | MOVEQ.L #0x10,D0 00022b3e 9e c0 | | SUBA.W D0,A7 00022b40 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022b44 48 78 00 01 |Hx | PEA.L 0x1 00022b48 4e ba ed 1a |N | JSR 0x21864 00022b4c 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022b50 48 78 00 02 |Hx | PEA.L 0x2 00022b54 4e ba ed 0e |N | JSR 0x21864 00022b58 50 4f |PO | ADDQ.L #0x8,A7 00022b5a 4e b9 00 01 03 58 |N X | JSR Modulus(a, b : Quad) : Quad 00022b60 de c0 | | ADDA.W D0,A7 00022b62 4e ba ed f8 |N | JSR 0x2195c 00022b66 50 4f |PO | ADDQ.L #0x8,A7 00022b68 4c df 00 01 |L | MOVEM.L (A7)+,D0 00022b6c 4e 5e |N^ | UNLK A6 00022b6e 4e 75 |Nu | RTS 00022b70 ; -------------------------------------------------------------------------------------- 00022b70 ; OMSI PASCAL Function 00022b70 ; <LVAR 0x008 4(r)> 00022b70 ; -------------------------------------------------------------------------------------- 00022b70 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 00022b74 bf d5 | | CMPA.L (A5),A7 00022b76 62 06 |b | BHI 0x22b7e 00022b78 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022b7c 4e 76 |Nv | TRAPV 00022b7e de fc 00 28 | ( | ADDA.W #0x28,A7 00022b82 48 e7 80 00 |H | MOVEM.L D0,-(A7) 00022b86 70 10 |p | MOVEQ.L #0x10,D0 00022b88 9e c0 | | SUBA.W D0,A7 00022b8a 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022b8e 48 78 00 01 |Hx | PEA.L 0x1 00022b92 4e ba ec d0 |N | JSR 0x21864 00022b96 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022b9a 48 78 00 02 |Hx | PEA.L 0x2 00022b9e 4e ba ec c4 |N | JSR 0x21864 00022ba2 50 4f |PO | ADDQ.L #0x8,A7 00022ba4 4e b9 00 01 03 34 |N 4 | JSR BitOr(a, b : Quad) : Quad 00022baa de c0 | | ADDA.W D0,A7 00022bac 4e ba ed ae |N | JSR 0x2195c 00022bb0 50 4f |PO | ADDQ.L #0x8,A7 00022bb2 4c df 00 01 |L | MOVEM.L (A7)+,D0 00022bb6 4e 5e |N^ | UNLK A6 00022bb8 4e 75 |Nu | RTS 00022bba ; -------------------------------------------------------------------------------------- 00022bba ; OMSI PASCAL Function 00022bba ; <LVAR 0x008 4(r)> 00022bba ; -------------------------------------------------------------------------------------- 00022bba 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 00022bbe bf d5 | | CMPA.L (A5),A7 00022bc0 62 06 |b | BHI 0x22bc8 00022bc2 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022bc6 4e 76 |Nv | TRAPV 00022bc8 de fc 00 28 | ( | ADDA.W #0x28,A7 00022bcc 48 e7 80 00 |H | MOVEM.L D0,-(A7) 00022bd0 70 10 |p | MOVEQ.L #0x10,D0 00022bd2 9e c0 | | SUBA.W D0,A7 00022bd4 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022bd8 48 78 00 01 |Hx | PEA.L 0x1 00022bdc 4e ba ec 86 |N | JSR 0x21864 00022be0 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022be4 48 78 00 02 |Hx | PEA.L 0x2 00022be8 4e ba ec 7a |N z | JSR 0x21864 00022bec 50 4f |PO | ADDQ.L #0x8,A7 00022bee 4e b9 00 01 03 30 |N 0 | JSR BitAnd(a, b : Quad) : Quad 00022bf4 de c0 | | ADDA.W D0,A7 00022bf6 4e ba ed 64 |N d | JSR 0x2195c 00022bfa 50 4f |PO | ADDQ.L #0x8,A7 00022bfc 4c df 00 01 |L | MOVEM.L (A7)+,D0 00022c00 4e 5e |N^ | UNLK A6 00022c02 4e 75 |Nu | RTS 00022c04 ; -------------------------------------------------------------------------------------- 00022c04 ; OMSI PASCAL Function 00022c04 ; <LVAR 0x008 4(r)> 00022c04 ; -------------------------------------------------------------------------------------- 00022c04 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 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 28 | ( | ADDA.W #0x28,A7 00022c16 48 e7 80 00 |H | MOVEM.L D0,-(A7) 00022c1a 70 10 |p | MOVEQ.L #0x10,D0 00022c1c 9e c0 | | SUBA.W D0,A7 00022c1e 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022c22 48 78 00 01 |Hx | PEA.L 0x1 00022c26 4e ba ec 3c |N < | JSR 0x21864 00022c2a 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022c2e 48 78 00 02 |Hx | PEA.L 0x2 00022c32 4e ba ec 30 |N 0 | JSR 0x21864 00022c36 50 4f |PO | ADDQ.L #0x8,A7 00022c38 4e b9 00 01 03 40 |N @ | JSR BitXor(a, b : Quad) : Quad 00022c3e de c0 | | ADDA.W D0,A7 00022c40 4e ba ed 1a |N | JSR 0x2195c 00022c44 50 4f |PO | ADDQ.L #0x8,A7 00022c46 4c df 00 01 |L | MOVEM.L (A7)+,D0 00022c4a 4e 5e |N^ | UNLK A6 00022c4c 4e 75 |Nu | RTS 00022c4e ; -------------------------------------------------------------------------------------- 00022c4e ; OMSI PASCAL Function 00022c4e ; <LVAR 0x008 4(r)> 00022c4e ; -------------------------------------------------------------------------------------- 00022c4e 4e 56 ff e0 |NV | LINK.W A6,#0xffe0 00022c52 bf d5 | | CMPA.L (A5),A7 00022c54 62 06 |b | BHI 0x22c5c 00022c56 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022c5a 4e 76 |Nv | TRAPV 00022c5c de fc 00 20 | | ADDA.W #0x20,A7 00022c60 9e fc 00 10 | | SUBA.W #0x10,A7 00022c64 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022c68 48 78 00 01 |Hx | PEA.L 0x1 00022c6c 4e ba eb f6 |N | JSR 0x21864 00022c70 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7) 00022c74 48 78 00 02 |Hx | PEA.L 0x2 00022c78 4e ba ec 26 |N & | JSR 0x218a0 00022c7c 50 4f |PO | ADDQ.L #0x8,A7 00022c7e 4e b9 00 01 03 44 |N D | JSR BitShift(a : Quad ; howmuch : integer) : Quad 00022c84 de fc 00 0c | | ADDA.W #0xc,A7 00022c88 4e ba ec d2 |N | JSR 0x2195c 00022c8c 50 4f |PO | ADDQ.L #0x8,A7 00022c8e 4e 5e |N^ | UNLK A6 00022c90 4e 75 |Nu | RTS 00022c92 ; -------------------------------------------------------------------------------------- 00022c92 ; OMSI PASCAL Function 00022c92 ; <LVAR 0x008 4(r)> 00022c92 ; -------------------------------------------------------------------------------------- 00022c92 4e 56 ff e0 |NV | LINK.W A6,#0xffe0 00022c96 bf d5 | | CMPA.L (A5),A7 00022c98 62 06 |b | BHI 0x22ca0 00022c9a 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022c9e 4e 76 |Nv | TRAPV 00022ca0 de fc 00 20 | | ADDA.W #0x20,A7 00022ca4 9e fc 00 10 | | SUBA.W #0x10,A7 00022ca8 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022cac 48 78 00 01 |Hx | PEA.L 0x1 00022cb0 4e ba eb b2 |N | JSR 0x21864 00022cb4 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7) 00022cb8 48 78 00 02 |Hx | PEA.L 0x2 00022cbc 4e ba eb e2 |N | JSR 0x218a0 00022cc0 50 4f |PO | ADDQ.L #0x8,A7 00022cc2 44 97 |D | NEG.L (A7) 00022cc4 4e b9 00 01 03 44 |N D | JSR BitShift(a : Quad ; howmuch : integer) : Quad 00022cca de fc 00 0c | | ADDA.W #0xc,A7 00022cce 4e ba ec 8c |N | JSR 0x2195c 00022cd2 50 4f |PO | ADDQ.L #0x8,A7 00022cd4 4e 5e |N^ | UNLK A6 00022cd6 4e 75 |Nu | RTS 00022cd8 ; -------------------------------------------------------------------------------------- 00022cd8 ; OMSI PASCAL Function 00022cd8 ; <LVAR 0x008 4(r)> 00022cd8 ; -------------------------------------------------------------------------------------- 00022cd8 4e 56 ff e4 |NV | LINK.W A6,#0xffe4 00022cdc bf d5 | | CMPA.L (A5),A7 00022cde 62 06 |b | BHI 0x22ce6 00022ce0 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022ce4 4e 76 |Nv | TRAPV 00022ce6 de fc 00 1c | | ADDA.W #0x1c,A7 00022cea 9e fc 00 10 | | SUBA.W #0x10,A7 00022cee 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022cf2 48 78 00 01 |Hx | PEA.L 0x1 00022cf6 4e ba eb 6c |N l | JSR 0x21864 00022cfa 50 4f |PO | ADDQ.L #0x8,A7 00022cfc 4e b9 00 01 03 38 |N 8 | JSR BitNot(a : Quad) : Quad 00022d02 50 4f |PO | ADDQ.L #0x8,A7 00022d04 4e ba ec 56 |N V | JSR 0x2195c 00022d08 50 4f |PO | ADDQ.L #0x8,A7 00022d0a 4e 5e |N^ | UNLK A6 00022d0c 4e 75 |Nu | RTS 00022d0e ; -------------------------------------------------------------------------------------- 00022d0e ; OMSI PASCAL Function 00022d0e ; <LVAR 0x008 4(r)> 00022d0e ; <LVAR -0x00c 4(rw)> 00022d0e ; <LVAR -0x010 4(rw)> 00022d0e ; <LVAR -0x014 4(rw)> 00022d0e ; <LVAR -0x018 4(rw)> 00022d0e ; -------------------------------------------------------------------------------------- 00022d0e 4e 56 ff b8 |NV | LINK.W A6,#0xffb8 00022d12 bf d5 | | CMPA.L (A5),A7 00022d14 62 06 |b | BHI 0x22d1c 00022d16 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022d1a 4e 76 |Nv | TRAPV 00022d1c de fc 00 30 | 0 | ADDA.W #0x30,A7 00022d20 48 e7 03 80 |H | MOVEM.L A0+D7+D6,-(A7) 00022d24 41 ee 00 08 |A | LEA.L (A6+0x8),A0 00022d28 51 4f |QO | SUBQ.L #0x8,A7 00022d2a 2f 10 |/ | MOVE.L (A0),-(A7) 00022d2c 48 78 00 01 |Hx | PEA.L 0x1 00022d30 4e ba eb 32 |N 2 | JSR 0x21864 00022d34 50 4f |PO | ADDQ.L #0x8,A7 00022d36 2d 5f ff e8 |-_ | MOVE.L (A7)+,(A6-0x18) 00022d3a 2d 57 ff ec |-W | MOVE.L (A7),(A6-0x14) 00022d3e 59 4f |YO | SUBQ.L #0x4,A7 00022d40 2f 10 |/ | MOVE.L (A0),-(A7) 00022d42 48 78 00 02 |Hx | PEA.L 0x2 00022d46 4e ba eb 1c |N | JSR 0x21864 00022d4a 50 4f |PO | ADDQ.L #0x8,A7 00022d4c 2d 5f ff f0 |-_ | MOVE.L (A7)+,(A6-0x10) 00022d50 2d 57 ff f4 |-W | MOVE.L (A7),(A6-0xc) 00022d54 2f 10 |/ | MOVE.L (A0),-(A7) 00022d56 48 78 00 03 |Hx | PEA.L 0x3 00022d5a 4e ba eb 44 |N D | JSR 0x218a0 00022d5e 50 4f |PO | ADDQ.L #0x8,A7 00022d60 2e 17 |. | MOVE.L (A7),D7 00022d62 2f 10 |/ | MOVE.L (A0),-(A7) 00022d64 48 78 00 04 |Hx | PEA.L 0x4 00022d68 4e ba eb 36 |N 6 | JSR 0x218a0 00022d6c 50 4f |PO | ADDQ.L #0x8,A7 00022d6e 2c 17 |, | MOVE.L (A7),D6 00022d70 59 4f |YO | SUBQ.L #0x4,A7 00022d72 2f 2e ff ec |/. | MOVE.L (A6-0x14),-(A7) 00022d76 2f 2e ff e8 |/. | MOVE.L (A6-0x18),-(A7) 00022d7a 2f 2e ff f4 |/. | MOVE.L (A6-0xc),-(A7) 00022d7e 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7) 00022d82 2f 07 |/ | MOVE.L D7,-(A7) 00022d84 2f 06 |/ | MOVE.L D6,-(A7) 00022d86 4e b9 00 01 03 48 |N H | JSR ?BitField_something_() 00022d8c de fc 00 18 | | ADDA.W #0x18,A7 00022d90 4e ba eb ca |N | JSR 0x2195c 00022d94 50 4f |PO | ADDQ.L #0x8,A7 00022d96 4c df 01 c0 |L | MOVEM.L (A7)+,D6+D7+A0 00022d9a 4e 5e |N^ | UNLK A6 00022d9c 4e 75 |Nu | RTS 00022d9e ; -------------------------------------------------------------------------------------- 00022d9e ; OMSI PASCAL Function 00022d9e ; <LVAR 0x008 4(r)> 00022d9e ; <LVAR -0x00c 4(rw)> 00022d9e ; <LVAR -0x010 4(rw)> 00022d9e ; -------------------------------------------------------------------------------------- 00022d9e 4e 56 ff c8 |NV | LINK.W A6,#0xffc8 00022da2 bf d5 | | CMPA.L (A5),A7 00022da4 62 06 |b | BHI 0x22dac 00022da6 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022daa 4e 76 |Nv | TRAPV 00022dac de fc 00 28 | ( | ADDA.W #0x28,A7 00022db0 48 e7 03 80 |H | MOVEM.L A0+D7+D6,-(A7) 00022db4 41 ee 00 08 |A | LEA.L (A6+0x8),A0 00022db8 51 4f |QO | SUBQ.L #0x8,A7 00022dba 2f 10 |/ | MOVE.L (A0),-(A7) 00022dbc 48 78 00 01 |Hx | PEA.L 0x1 00022dc0 4e ba ea a2 |N | JSR 0x21864 00022dc4 50 4f |PO | ADDQ.L #0x8,A7 00022dc6 2d 5f ff f0 |-_ | MOVE.L (A7)+,(A6-0x10) 00022dca 2d 57 ff f4 |-W | MOVE.L (A7),(A6-0xc) 00022dce 2f 10 |/ | MOVE.L (A0),-(A7) 00022dd0 48 78 00 02 |Hx | PEA.L 0x2 00022dd4 4e ba ea ca |N | JSR 0x218a0 00022dd8 50 4f |PO | ADDQ.L #0x8,A7 00022dda 2e 17 |. | MOVE.L (A7),D7 00022ddc 2f 10 |/ | MOVE.L (A0),-(A7) 00022dde 48 78 00 03 |Hx | PEA.L 0x3 00022de2 4e ba ea bc |N | JSR 0x218a0 00022de6 50 4f |PO | ADDQ.L #0x8,A7 00022de8 2c 17 |, | MOVE.L (A7),D6 00022dea 59 4f |YO | SUBQ.L #0x4,A7 00022dec 2f 2e ff f4 |/. | MOVE.L (A6-0xc),-(A7) 00022df0 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7) 00022df4 2f 07 |/ | MOVE.L D7,-(A7) 00022df6 2f 06 |/ | MOVE.L D6,-(A7) 00022df8 4e b9 00 01 03 4c |N L | JSR FSCALL_1034c 00022dfe de fc 00 10 | | ADDA.W #0x10,A7 00022e02 4e ba eb 58 |N X | JSR 0x2195c 00022e06 50 4f |PO | ADDQ.L #0x8,A7 00022e08 4c df 01 c0 |L | MOVEM.L (A7)+,D6+D7+A0 00022e0c 4e 5e |N^ | UNLK A6 00022e0e 4e 75 |Nu | RTS 00022e10 ; -------------------------------------------------------------------------------------- 00022e10 ; OMSI PASCAL Function 00022e10 ; <LVAR 0x008 4(r)> 00022e10 ; -------------------------------------------------------------------------------------- 00022e10 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 00022e14 bf d5 | | CMPA.L (A5),A7 00022e16 62 06 |b | BHI 0x22e1e 00022e18 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022e1c 4e 76 |Nv | TRAPV 00022e1e de fc 00 20 | | ADDA.W #0x20,A7 00022e22 48 e7 01 08 |H | MOVEM.L A4+D7,-(A7) 00022e26 59 4f |YO | SUBQ.L #0x4,A7 00022e28 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022e2c 4e ba e0 e8 |N | JSR 0x20f16 00022e30 58 4f |XO | ADDQ.L #0x4,A7 00022e32 7e 01 |~ | MOVEQ.L #0x01,D7 00022e34 be 97 | | CMP.L (A7),D7 00022e36 6e 26 |n& | BGT 0x22e5e 00022e38 59 4f |YO | SUBQ.L #0x4,A7 00022e3a 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022e3e 2f 07 |/ | MOVE.L D7,-(A7) 00022e40 4e ba e9 f0 |N | JSR 0x21832 00022e44 50 4f |PO | ADDQ.L #0x8,A7 00022e46 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String) 00022e4c 54 4f |TO | ADDQ.L #0x2,A7 00022e4e 1e bc 00 20 | | MOVE.B #0x20,(A7) 00022e52 4e b9 00 01 03 d0 |N | JSR WriteConsoleChar(chr : char) 00022e58 54 4f |TO | ADDQ.L #0x2,A7 00022e5a 52 87 |R | ADDQ.L #0x1,D7 00022e5c 68 d6 |h | BVC 0x22e34 00022e5e 48 78 00 01 |Hx | PEA.L 0x1 00022e62 4e b9 00 01 03 e4 |N | JSR AskConsoleString(prompt : String) : String 00022e68 58 4f |XO | ADDQ.L #0x4,A7 00022e6a 28 5f |(_ | MOVEA.L (A7)+,A4 00022e6c 2f 0c |/ | MOVE.L A4,-(A7) 00022e6e 4e ba de f2 |N | JSR 0x20d62 00022e72 2e 8c |. | MOVE.L A4,(A7) 00022e74 4e ba ea 5e |N ^ | JSR 0x218d4 00022e78 58 4f |XO | ADDQ.L #0x4,A7 00022e7a 4c df 10 80 |L | MOVEM.L (A7)+,D7+A4 00022e7e 4e 5e |N^ | UNLK A6 00022e80 4e 75 |Nu | RTS 00022e82 ; -------------------------------------------------------------------------------------- 00022e82 ; OMSI PASCAL Function 00022e82 ; <LVAR 0x008 4(r)> 00022e82 ; -------------------------------------------------------------------------------------- 00022e82 4e 56 ff c8 |NV | LINK.W A6,#0xffc8 00022e86 bf d5 | | CMPA.L (A5),A7 00022e88 62 06 |b | BHI 0x22e90 00022e8a 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022e8e 4e 76 |Nv | TRAPV 00022e90 de fc 00 2c | , | ADDA.W #0x2c,A7 00022e94 48 e7 83 88 |H | MOVEM.L A4+A0+D7+D6+D0,-(A7) 00022e98 41 ee 00 08 |A | LEA.L (A6+0x8),A0 00022e9c 70 0c |p | MOVEQ.L #0x0c,D0 00022e9e 59 4f |YO | SUBQ.L #0x4,A7 00022ea0 2f 10 |/ | MOVE.L (A0),-(A7) 00022ea2 48 78 00 01 |Hx | PEA.L 0x1 00022ea6 4e ba e9 8a |N | JSR 0x21832 00022eaa 50 4f |PO | ADDQ.L #0x8,A7 00022eac 28 5f |(_ | MOVEA.L (A7)+,A4 00022eae 9e c0 | | SUBA.W D0,A7 00022eb0 2f 10 |/ | MOVE.L (A0),-(A7) 00022eb2 48 78 00 02 |Hx | PEA.L 0x2 00022eb6 4e ba e9 ac |N | JSR 0x21864 00022eba 50 4f |PO | ADDQ.L #0x8,A7 00022ebc 4e b9 00 01 03 50 |N P | JSR Quad2Long(a : Quad) : Long 00022ec2 50 4f |PO | ADDQ.L #0x8,A7 00022ec4 2e 17 |. | MOVE.L (A7),D7 00022ec6 51 4f |QO | SUBQ.L #0x8,A7 00022ec8 2f 10 |/ | MOVE.L (A0),-(A7) 00022eca 48 78 00 03 |Hx | PEA.L 0x3 00022ece 4e ba e9 94 |N | JSR 0x21864 00022ed2 50 4f |PO | ADDQ.L #0x8,A7 00022ed4 4e b9 00 01 03 50 |N P | JSR Quad2Long(a : Quad) : Long 00022eda 50 4f |PO | ADDQ.L #0x8,A7 00022edc 2c 17 |, | MOVE.L (A7),D6 00022ede 51 4f |QO | SUBQ.L #0x8,A7 00022ee0 2f 0c |/ | MOVE.L A4,-(A7) 00022ee2 2f 07 |/ | MOVE.L D7,-(A7) 00022ee4 4e b9 00 01 03 60 |N ` | JSR ?StringToInt64() 00022eea 58 4f |XO | ADDQ.L #0x4,A7 00022eec 2e 86 |. | MOVE.L D6,(A7) 00022eee 4e b9 00 01 03 5c |N \ | JSR Quad2String(a : Quad; radix : Long ) : String 00022ef4 de c0 | | ADDA.W D0,A7 00022ef6 4e ba e9 dc |N | JSR 0x218d4 00022efa 58 4f |XO | ADDQ.L #0x4,A7 00022efc 4c df 11 c1 |L | MOVEM.L (A7)+,D0+D6+D7+A0+A4 00022f00 4e 5e |N^ | UNLK A6 00022f02 4e 75 |Nu | RTS 00022f04 ; -------------------------------------------------------------------------------------- 00022f04 ; OMSI PASCAL Function 00022f04 ; <LVAR 0x008 4(r)> 00022f04 ; <LVAR -0x00a 2(r)> 00022f04 ; <LVAR -0x00c 4(rw)> 00022f04 ; <LVAR -0x010 4(rw)> 00022f04 ; -------------------------------------------------------------------------------------- 00022f04 4e 56 ff bc |NV | LINK.W A6,#0xffbc 00022f08 bf d5 | | CMPA.L (A5),A7 00022f0a 62 06 |b | BHI 0x22f12 00022f0c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022f10 4e 76 |Nv | TRAPV 00022f12 de fc 00 34 | 4 | ADDA.W #0x34,A7 00022f16 48 e7 c3 c0 |H | MOVEM.L A1+A0+D7+D6+D1+D0,-(A7) 00022f1a 41 ee ff f0 |A | LEA.L (A6-0x10),A0 00022f1e 43 ee ff f4 |C | LEA.L (A6-0xc),A1 00022f22 51 4f |QO | SUBQ.L #0x8,A7 00022f24 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022f28 48 78 00 01 |Hx | PEA.L 0x1 00022f2c 4e ba e9 36 |N 6 | JSR 0x21864 00022f30 50 4f |PO | ADDQ.L #0x8,A7 00022f32 20 9f | | MOVE.L (A7)+,(A0) 00022f34 22 9f |" | MOVE.L (A7)+,(A1) 00022f36 7e 00 |~ | MOVEQ.L #0x00,D7 00022f38 7c 00 || | MOVEQ.L #0x00,D6 00022f3a 30 2e ff f6 |0. | MOVE.W (A6-0xa),D0 00022f3e 02 40 00 01 | @ | ANDI.W #0x0001,D0 00022f42 42 81 |B | CLR.L D1 00022f44 32 00 |2 | MOVE.W D0,D1 00022f46 de 81 | | ADD.L D1,D7 00022f48 51 4f |QO | SUBQ.L #0x8,A7 00022f4a 2f 11 |/ | MOVE.L (A1),-(A7) 00022f4c 2f 10 |/ | MOVE.L (A0),-(A7) 00022f4e 48 78 ff ff |Hx | PEA.L 0xffffffff 00022f52 4e b9 00 01 03 44 |N D | JSR BitShift(a : Quad ; howmuch : integer) : Quad 00022f58 de fc 00 0c | | ADDA.W #0xc,A7 00022f5c 20 9f | | MOVE.L (A7)+,(A0) 00022f5e 22 9f |" | MOVE.L (A7)+,(A1) 00022f60 52 86 |R | ADDQ.L #0x1,D6 00022f62 0c 86 00 00 00 3f | ? | CMPI.L #0x0000003f,D6 00022f68 6f d0 |o | BLE 0x22f3a 00022f6a 51 4f |QO | SUBQ.L #0x8,A7 00022f6c 2f 07 |/ | MOVE.L D7,-(A7) 00022f6e 4e b9 00 01 03 54 |N T | JSR Long2Quad(a : Long) : Quad 00022f74 58 4f |XO | ADDQ.L #0x4,A7 00022f76 4e ba e9 e4 |N | JSR 0x2195c 00022f7a 50 4f |PO | ADDQ.L #0x8,A7 00022f7c 4c df 03 c3 |L | MOVEM.L (A7)+,D0+D1+D6+D7+A0+A1 00022f80 4e 5e |N^ | UNLK A6 00022f82 4e 75 |Nu | RTS 00022f84 ; -------------------------------------------------------------------------------------- 00022f84 ; OMSI PASCAL Function 00022f84 ; <LVAR 0x008 4(r)> 00022f84 ; <LVAR -0x004 @ 1(r)> 00022f84 ; -------------------------------------------------------------------------------------- 00022f84 4e 56 ff b8 |NV | LINK.W A6,#0xffb8 00022f88 bf d5 | | CMPA.L (A5),A7 00022f8a 62 06 |b | BHI 0x22f92 00022f8c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022f90 4e 76 |Nv | TRAPV 00022f92 de fc 00 44 | D | ADDA.W #0x44,A7 00022f96 48 e7 e0 e0 |H | MOVEM.L A2+A1+A0+D2+D1+D0,-(A7) 00022f9a 45 f9 00 02 56 46 |E VF | LEA.L 0x25646,A2 00022fa0 72 01 |r | MOVEQ.L #0x01,D1 00022fa2 74 00 |t | MOVEQ.L #0x00,D2 00022fa4 4a 12 |J | TST.B (A2) 00022fa6 66 32 |f2 | BNE 0x22fda 00022fa8 9e fc 00 1c | | SUBA.W #0x1c,A7 00022fac 20 4f | O | MOVEA.L A7,A0 00022fae 43 fa d7 b4 |C | LEA.L 0x20764,A1 00022fb2 70 1a |p | MOVEQ.L #0x1a,D0 00022fb4 10 d9 | | MOVE.B (A1)+,(A0)+ 00022fb6 51 c8 ff fc |Q | DBF D0,0x22fb4 00022fba 59 4f |YO | SUBQ.L #0x4,A7 00022fbc 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022fc0 3f 01 |? | MOVE.W D1,-(A7) 00022fc2 3f 3c 00 1b |?< | MOVE.W #0x1b,-(A7) 00022fc6 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00022fcc 50 4f |PO | ADDQ.L #0x8,A7 00022fce 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00022fd4 de fc 00 20 | | ADDA.W #0x20,A7 00022fd8 14 81 | | MOVE.B D1,(A2) 00022fda 5d 4f |]O | SUBQ.L #0x6,A7 00022fdc 4e b9 00 01 03 f8 |N | JSR GetConsoleConfig() : Long 00022fe2 20 1f | | MOVE.L (A7)+,D0 00022fe4 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 00022fea 63 02 |c | BLS 0x22fee 00022fec 4e 4f |NO | TRAP #15 00022fee 3e 80 |> | MOVE.W D0,(A7) 00022ff0 48 6e ff fc |Hn | PEA.L (A6-0x4) 00022ff4 4e b9 00 01 02 12 |N | JSR KC09_PortStatus(Port : Word; VAR b: Byte) 00022ffa 5c 4f |\O | ADDQ.L #0x6,A7 00022ffc 10 2e ff fc | . | MOVE.B (A6-0x4),D0 00023000 b0 01 | | CMP.B D1,D0 00023002 67 16 |g | BEQ 0x2301a 00023004 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023008 4e ba da be |N | JSR 0x20ac8 0002300c 58 4f |XO | ADDQ.L #0x4,A7 0002300e 2e 6d 00 08 |.m | MOVEA.L (A5+0x8),A7 00023012 3c 42 |<B | MOVEA.W D2,A6 00023014 4e f9 00 02 43 ac |N C | JMP 0x243ac 0002301a 55 4f |UO | SUBQ.L #0x2,A7 0002301c 4e b9 00 01 03 d4 |N | JSR ReadChar() : Byte 00023022 10 1f | | MOVE.B (A7)+,D0 00023024 0c 00 00 07 | | CMPI.B #0x07,D0 00023028 67 16 |g | BEQ 0x23040 0002302a 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 0002302e 4e ba da 98 |N | JSR 0x20ac8 00023032 58 4f |XO | ADDQ.L #0x4,A7 00023034 2e 6d 00 08 |.m | MOVEA.L (A5+0x8),A7 00023038 3c 42 |<B | MOVEA.W D2,A6 0002303a 4e f9 00 02 43 ac |N C | JMP 0x243ac 00023040 4c df 07 07 |L | MOVEM.L (A7)+,D0+D1+D2+A0+A1+A2 00023044 4e 5e |N^ | UNLK A6 00023046 4e 75 |Nu | RTS 00023048 ; -------------------------------------------------------------------------------------- 00023048 ; OMSI PASCAL Function 00023048 ; -------------------------------------------------------------------------------------- 00023048 4e 56 ff f8 |NV | LINK.W A6,#0xfff8 0002304c bf d5 | | CMPA.L (A5),A7 0002304e 62 06 |b | BHI 0x23056 00023050 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023054 4e 76 |Nv | TRAPV 00023056 de fc 00 08 | | ADDA.W #0x8,A7 0002305a 48 78 00 c8 |Hx | PEA.L 0xc8 0002305e 4e ba e9 30 |N 0 | JSR 0x21990 00023062 58 4f |XO | ADDQ.L #0x4,A7 00023064 4e 5e |N^ | UNLK A6 00023066 4e 75 |Nu | RTS 00023068 ; -------------------------------------------------------------------------------------- 00023068 ; OMSI PASCAL Function 00023068 ; <LVAR 0x008 4(r)> 00023068 ; <LVAR -0x00c @ 4(r)> 00023068 ; -------------------------------------------------------------------------------------- 00023068 4e 56 ff ac |NV | LINK.W A6,#0xffac 0002306c bf d5 | | CMPA.L (A5),A7 0002306e 62 06 |b | BHI 0x23076 00023070 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023074 4e 76 |Nv | TRAPV 00023076 de fc 00 48 | H | ADDA.W #0x48,A7 0002307a 48 e7 83 c0 |H | MOVEM.L A1+A0+D7+D6+D0,-(A7) 0002307e 43 ee ff f4 |C | LEA.L (A6-0xc),A1 00023082 48 51 |HQ | PEA.L (A1) 00023084 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 0002308a 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 0002308e 4e ba de 86 |N | JSR 0x20f16 00023092 58 4f |XO | ADDQ.L #0x4,A7 00023094 7e 01 |~ | MOVEQ.L #0x01,D7 00023096 be 97 | | CMP.L (A7),D7 00023098 6e 6a |nj | BGT 0x23104 0002309a 59 4f |YO | SUBQ.L #0x4,A7 0002309c 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000230a0 2f 07 |/ | MOVE.L D7,-(A7) 000230a2 4e ba e7 fc |N | JSR 0x218a0 000230a6 50 4f |PO | ADDQ.L #0x8,A7 000230a8 2c 1f |, | MOVE.L (A7)+,D6 000230aa 6d 20 |m | BLT 0x230cc 000230ac 0c 86 00 00 00 ff | | CMPI.L #0x000000ff,D6 000230b2 6e 18 |n | BGT 0x230cc 000230b4 2f 11 |/ | MOVE.L (A1),-(A7) 000230b6 0c 86 00 00 00 ff | | CMPI.L #0x000000ff,D6 000230bc 63 02 |c | BLS 0x230c0 000230be 4e 4f |NO | TRAP #15 000230c0 1f 06 | | MOVE.B D6,-(A7) 000230c2 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 000230c8 5c 4f |\O | ADDQ.L #0x6,A7 000230ca 60 34 |`4 | BRA 0x23100 000230cc 48 51 |HQ | PEA.L (A1) 000230ce 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000230d4 58 4f |XO | ADDQ.L #0x4,A7 000230d6 41 fa d6 c4 |A | LEA.L 0x2079c,A0 000230da 70 06 |p | MOVEQ.L #0x06,D0 000230dc 2f 20 |/ | MOVE.L -(A0),-(A7) 000230de 51 c8 ff fc |Q | DBF D0,0x230dc 000230e2 59 4f |YO | SUBQ.L #0x4,A7 000230e4 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000230e8 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000230ec 3f 3c 00 1c |?< | MOVE.W #0x1c,-(A7) 000230f0 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000230f6 50 4f |PO | ADDQ.L #0x8,A7 000230f8 4e ba da 10 |N | JSR 0x20b0a 000230fc de fc 00 20 | | ADDA.W #0x20,A7 00023100 52 87 |R | ADDQ.L #0x1,D7 00023102 68 92 |h | BVC 0x23096 00023104 2e 91 |. | MOVE.L (A1),(A7) 00023106 4e ba e7 cc |N | JSR 0x218d4 0002310a 58 4f |XO | ADDQ.L #0x4,A7 0002310c 4c df 03 c1 |L | MOVEM.L (A7)+,D0+D6+D7+A0+A1 00023110 4e 5e |N^ | UNLK A6 00023112 4e 75 |Nu | RTS 00023114 ; -------------------------------------------------------------------------------------- 00023114 ; OMSI PASCAL Function 00023114 ; <LVAR 0x00c 1(rw)> 00023114 ; <LVAR 0x008 4(r)> 00023114 ; -------------------------------------------------------------------------------------- 00023114 4e 56 ff c0 |NV | LINK.W A6,#0xffc0 00023118 bf d5 | | CMPA.L (A5),A7 0002311a 62 06 |b | BHI 0x23122 0002311c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023120 4e 76 |Nv | TRAPV 00023122 de fc 00 34 | 4 | ADDA.W #0x34,A7 00023126 48 e7 e7 c0 |H | MOVEM.L A1+A0+D7+D6+D5+D2+D1+D0,-(A7) 0002312a 42 2e 00 0c |B. | CLR.B (A6+0xc) 0002312e 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00023132 2f 08 |/ | MOVE.L A0,-(A7) 00023134 70 00 |p | MOVEQ.L #0x00,D0 00023136 52 40 |R@ | ADDQ.W #0x1,D0 00023138 1c 00 | | MOVE.B D0,D6 0002313a 0c 06 00 2b | + | CMPI.B #0x2b,D6 0002313e 6e 00 00 82 |n | BGT 0x231c2 00023142 41 fa d8 b2 |A | LEA.L 0x209f6,A0 00023146 10 06 | | MOVE.B D6,D0 00023148 48 80 |H | EXTB.W D0 0002314a 48 c0 |H | EXTW.L D0 0002314c e2 98 | | ROR.L #0x1,D0 0002314e d0 c0 | | ADDA.W D0,A0 00023150 48 40 |H@ | SWAP.W D0 00023152 e7 58 | X | ROL.W #0x3,D0 00023154 42 81 |B | CLR.L D1 00023156 12 10 | | MOVE.B (A0),D1 00023158 e1 29 | ) | LSL.B D0,D1 0002315a e8 09 | | LSR.B #0x4,D1 0002315c 2a 01 |* | MOVE.L D1,D5 0002315e 20 57 | W | MOVEA.L (A7),A0 00023160 30 10 |0 | MOVE.W (A0),D0 00023162 48 c0 |H | EXTW.L D0 00023164 ba 80 | | CMP.L D0,D5 00023166 66 54 |fT | BNE 0x231bc 00023168 2f 05 |/ | MOVE.L D5,-(A7) 0002316a 7e 01 |~ | MOVEQ.L #0x01,D7 0002316c be 97 | | CMP.L (A7),D7 0002316e 6e 42 |nB | BGT 0x231b2 00023170 10 06 | | MOVE.B D6,D0 00023172 48 80 |H | EXTB.W D0 00023174 c1 fc 00 0a | | MULS.W #0xa,D0 00023178 22 07 |" | MOVE.L D7,D1 0002317a 53 81 |S | SUBQ.L #0x1,D1 0002317c 0c 81 00 00 00 7d | } | CMPI.L #0x0000007d,D1 00023182 63 02 |c | BLS 0x23186 00023184 4e 4f |NO | TRAP #15 00023186 20 6f 00 04 | o | MOVEA.L (A7+0x4),A0 0002318a 43 fa d6 b2 |C | LEA.L COMMAND_TABLE_2083e,A1 0002318e 24 07 |$ | MOVE.L D7,D2 00023190 53 82 |S | SUBQ.L #0x1,D2 00023192 0c 82 00 00 00 09 | | CMPI.L #0x00000009,D2 00023198 63 02 |c | BLS 0x2319c 0002319a 4e 4f |NO | TRAP #15 0002319c 43 f1 00 00 |C | LEA.L (A1+D0.W),A1 000231a0 10 30 18 02 | 0 | MOVE.B (A0+D1.L+#0x2),D0 000231a4 b0 31 28 00 | 1( | CMP.B (A1+D2.L),D0 000231a8 67 04 |g | BEQ 0x231ae 000231aa 58 4f |XO | ADDQ.L #0x4,A7 000231ac 60 0e |` | BRA 0x231bc 000231ae 52 87 |R | ADDQ.L #0x1,D7 000231b0 68 ba |h | BVC 0x2316c 000231b2 58 4f |XO | ADDQ.L #0x4,A7 000231b4 1d 46 00 0c | F | MOVE.B D6,(A6+0xc) 000231b8 58 4f |XO | ADDQ.L #0x4,A7 000231ba 60 08 |` | BRA 0x231c4 000231bc 52 06 |R | ADDQ.B #0x1,D6 000231be 68 00 ff 7a |h z | BVC 0x2313a 000231c2 58 4f |XO | ADDQ.L #0x4,A7 000231c4 4c df 03 e7 |L | MOVEM.L (A7)+,D0+D1+D2+D5+D6+D7+A0+A1 000231c8 4e 5e |N^ | UNLK A6 000231ca 4e 75 |Nu | RTS 000231cc ; -------------------------------------------------------------------------------------- 000231cc ; OMSI PASCAL Function 000231cc ; <LVAR 0x00c 4(r)> 000231cc ; <LVAR 0x008 4(r)> 000231cc ; <LVAR -0x002 @ 1(r)> 000231cc ; <LVAR -0x006 @ 4(w)> 000231cc ; <LVAR -0x008 @ 1(r)> 000231cc ; <LVAR -0x00c @ 4(r)> 000231cc ; <LVAR -0x010 @ 4(rw)> 000231cc ; -------------------------------------------------------------------------------------- 000231cc 4e 56 ff a6 |NV | LINK.W A6,#0xffa6 000231d0 bf d5 | | CMPA.L (A5),A7 000231d2 62 06 |b | BHI 0x231da 000231d4 44 fc 00 02 |D | MOVE.W #0x2,CCR 000231d8 4e 76 |Nv | TRAPV 000231da de fc 00 4a | J | ADDA.W #0x4a,A7 000231de 48 e7 c0 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D1+D0,-(A7) 000231e2 45 ee ff f0 |E | LEA.L (A6-0x10),A2 000231e6 47 ee ff fe |G | LEA.L (A6-0x2),A3 000231ea 49 ee ff f4 |I | LEA.L (A6-0xc),A4 000231ee 72 01 |r | MOVEQ.L #0x01,D1 000231f0 59 4f |YO | SUBQ.L #0x4,A7 000231f2 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 000231f6 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 000231fc 58 4f |XO | ADDQ.L #0x4,A7 000231fe 24 9f |$ | MOVE.L (A7)+,(A2) 00023200 2f 12 |/ | MOVE.L (A2),-(A7) 00023202 1f 3c 00 2e | < . | MOVE.B #0x2e,-(A7) 00023206 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 0002320c 5c 4f |\O | ADDQ.L #0x6,A7 0002320e 41 f9 00 02 56 26 |A V& | LEA.L 0x25626,A0 00023214 70 04 |p | MOVEQ.L #0x04,D0 00023216 3f 20 |? | MOVE.W -(A0),-(A7) 00023218 51 c8 ff fc |Q | DBF D0,0x23216 0002321c 59 4f |YO | SUBQ.L #0x4,A7 0002321e 2f 12 |/ | MOVE.L (A2),-(A7) 00023220 59 4f |YO | SUBQ.L #0x4,A7 00023222 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00023226 3f 01 |? | MOVE.W D1,-(A7) 00023228 3f 3c 00 0a |?< | MOVE.W #0xa,-(A7) 0002322c 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00023232 50 4f |PO | ADDQ.L #0x8,A7 00023234 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 0002323a 50 4f |PO | ADDQ.L #0x8,A7 0002323c 24 9f |$ | MOVE.L (A7)+,(A2) 0002323e 5c 4f |\O | ADDQ.L #0x6,A7 00023240 2e 92 |. | MOVE.L (A2),(A7) 00023242 42 27 |B' | CLR.B -(A7) 00023244 1f 01 | | MOVE.B D1,-(A7) 00023246 48 78 00 00 |Hx | PEA.L 0x0 0002324a 48 53 |HS | PEA.L (A3) 0002324c 48 54 |HT | PEA.L (A4) 0002324e 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File) 00023254 de fc 00 14 | | ADDA.W #0x14,A7 00023258 4a 13 |J | TST.B (A3) 0002325a 67 4a |gJ | BEQ 0x232a6 0002325c 48 52 |HR | PEA.L (A2) 0002325e 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00023264 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7) 00023268 4e ba d8 5e |N ^ | JSR 0x20ac8 0002326c 9e fc 00 16 | | SUBA.W #0x16,A7 00023270 20 4f | O | MOVEA.L A7,A0 00023272 43 fa d5 28 |C ( | LEA.L 0x2079c,A1 00023276 70 18 |p | MOVEQ.L #0x18,D0 00023278 10 d9 | | MOVE.B (A1)+,(A0)+ 0002327a 51 c8 ff fc |Q | DBF D0,0x23278 0002327e 51 4f |QO | SUBQ.L #0x8,A7 00023280 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00023284 3f 01 |? | MOVE.W D1,-(A7) 00023286 3f 3c 00 19 |?< | MOVE.W #0x19,-(A7) 0002328a 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00023290 58 4f |XO | ADDQ.L #0x4,A7 00023292 2e ae 00 0c |. | MOVE.L (A6+0xc),(A7) 00023296 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 0002329c 50 4f |PO | ADDQ.L #0x8,A7 0002329e 4e ba d8 6a |N j | JSR 0x20b0a 000232a2 de fc 00 1e | | ADDA.W #0x1e,A7 000232a6 2d 79 00 02 56 14 ff fa |-y V | MOVE.L 0x25614,(A6-0x6) 000232ae 2f 14 |/ | MOVE.L (A4),-(A7) 000232b0 48 52 |HR | PEA.L (A2) 000232b2 48 6e ff f8 |Hn | PEA.L (A6-0x8) 000232b6 4e b9 00 01 04 3c |N < | JSR FileReadLine(file : File; VAR a : String; VAR b : Byte) 000232bc de fc 00 0c | | ADDA.W #0xc,A7 000232c0 20 52 | R | MOVEA.L (A2),A0 000232c2 4a 50 |JP | TST.W (A0) 000232c4 67 14 |g | BEQ 0x232da 000232c6 2f 12 |/ | MOVE.L (A2),-(A7) 000232c8 4e ba da 98 |N | JSR 0x20d62 000232cc 58 4f |XO | ADDQ.L #0x4,A7 000232ce 48 6e ff fa |Hn | PEA.L (A6-0x6) 000232d2 2f 12 |/ | MOVE.L (A2),-(A7) 000232d4 4e ba de 12 |N | JSR 0x210e8 000232d8 50 4f |PO | ADDQ.L #0x8,A7 000232da 4a 2e ff f8 |J. | TST.B (A6-0x8) 000232de 67 ce |g | BEQ 0x232ae 000232e0 42 27 |B' | CLR.B -(A7) 000232e2 1f 01 | | MOVE.B D1,-(A7) 000232e4 48 78 00 01 |Hx | PEA.L 0x1 000232e8 48 53 |HS | PEA.L (A3) 000232ea 48 54 |HT | PEA.L (A4) 000232ec 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File) 000232f2 de fc 00 10 | | ADDA.W #0x10,A7 000232f6 48 52 |HR | PEA.L (A2) 000232f8 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000232fe 58 4f |XO | ADDQ.L #0x4,A7 00023300 4c df 1f 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2+A3+A4 00023304 4e 5e |N^ | UNLK A6 00023306 4e 75 |Nu | RTS 00023308 ; -------------------------------------------------------------------------------------- 00023308 ; OMSI PASCAL Function 00023308 ; <LVAR 0x014 1(w)> 00023308 ; <LVAR 0x00c 4(r)> 00023308 ; <LVAR 0x008 4(r)> 00023308 ; -------------------------------------------------------------------------------------- 00023308 4e 56 ff f4 |NV | LINK.W A6,#0xfff4 0002330c bf d5 | | CMPA.L (A5),A7 0002330e 62 06 |b | BHI 0x23316 00023310 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023314 4e 76 |Nv | TRAPV 00023316 de fc 00 0c | | ADDA.W #0xc,A7 0002331a 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 0002331e 20 2e 00 0c | . | MOVE.L (A6+0xc),D0 00023322 d0 ae 00 08 | | ADD.L (A6+0x8),D0 00023326 53 80 |S | SUBQ.L #0x1,D0 00023328 53 80 |S | SUBQ.L #0x1,D0 0002332a 0c 80 00 00 0f ff | | CMPI.L #0x00000fff,D0 00023330 63 02 |c | BLS 0x23334 00023332 4e 4f |NO | TRAP #15 00023334 41 f9 00 02 46 0c |A F | LEA.L 0x2460c,A0 0002333a 1d 70 08 08 00 14 | p | MOVE.B (A0+D0.L+#0x8),(A6+0x14) 00023340 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 00023344 4e 5e |N^ | UNLK A6 00023346 4e 75 |Nu | RTS 00023348 ; -------------------------------------------------------------------------------------- 00023348 ; OMSI PASCAL Function 00023348 ; <LVAR 0x010 4(w)> 00023348 ; <LVAR 0x00c 4(r)> 00023348 ; <LVAR 0x008 4(r)> 00023348 ; <LVAR -0x004 @ 1(r)> 00023348 ; <LVAR -0x008 @ 4(r)> 00023348 ; -------------------------------------------------------------------------------------- 00023348 4e 56 ff c4 |NV | LINK.W A6,#0xffc4 0002334c bf d5 | | CMPA.L (A5),A7 0002334e 62 06 |b | BHI 0x23356 00023350 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023354 4e 76 |Nv | TRAPV 00023356 de fc 00 34 | 4 | ADDA.W #0x34,A7 0002335a 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7) 0002335e 59 4f |YO | SUBQ.L #0x4,A7 00023360 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00023364 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023368 4e ba e4 4c |N L | JSR 0x217b6 0002336c 50 4f |PO | ADDQ.L #0x8,A7 0002336e 48 6e ff fc |Hn | PEA.L (A6-0x4) 00023372 48 6e ff f8 |Hn | PEA.L (A6-0x8) 00023376 4e b9 00 01 02 ec |N | JSR String2Long(src : String; VAR status : Bool; VAR retval : Long) 0002337c de fc 00 0c | | ADDA.W #0xc,A7 00023380 4a 2e ff fc |J. | TST.B (A6-0x4) 00023384 66 30 |f0 | BNE 0x233b6 00023386 9e fc 00 18 | | SUBA.W #0x18,A7 0002338a 20 4f | O | MOVEA.L A7,A0 0002338c 43 fa d4 28 |C ( | LEA.L 0x207b6,A1 00023390 70 16 |p | MOVEQ.L #0x16,D0 00023392 10 d9 | | MOVE.B (A1)+,(A0)+ 00023394 51 c8 ff fc |Q | DBF D0,0x23392 00023398 59 4f |YO | SUBQ.L #0x4,A7 0002339a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002339e 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000233a2 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7) 000233a6 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000233ac 50 4f |PO | ADDQ.L #0x8,A7 000233ae 4e ba d7 5a |N Z | JSR 0x20b0a 000233b2 de fc 00 1c | | ADDA.W #0x1c,A7 000233b6 2d 6e ff f8 00 10 |-n | MOVE.L (A6-0x8),(A6+0x10) 000233bc 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1 000233c0 4e 5e |N^ | UNLK A6 000233c2 4e 75 |Nu | RTS 000233c4 ; -------------------------------------------------------------------------------------- 000233c4 ; OMSI PASCAL Function 000233c4 ; <LVAR 0x014 4(r)> 000233c4 ; <LVAR 0x010 4(r)> 000233c4 ; <LVAR 0x00c 4(r)> 000233c4 ; <LVAR 0x008 4(r)> 000233c4 ; <LVAR -0x00c 4(rw)> 000233c4 ; <LVAR -0x010 4(rw)> 000233c4 ; <LVAR -0x014 4(rw)> 000233c4 ; <LVAR -0x018 4(w)> 000233c4 ; <LVAR -0x020 4(rw)> 000233c4 ; -------------------------------------------------------------------------------------- 000233c4 4e 56 ff 8e |NV | LINK.W A6,#0xff8e 000233c8 bf d5 | | CMPA.L (A5),A7 000233ca 62 06 |b | BHI 0x233d2 000233cc 44 fc 00 02 |D | MOVE.W #0x2,CCR 000233d0 4e 76 |Nv | TRAPV 000233d2 de fc 00 4e | N | ADDA.W #0x4e,A7 000233d6 48 e7 c7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D1+D0,-(A7) 000233da 43 ee ff e0 |C | LEA.L (A6-0x20),A1 000233de 45 ee ff f0 |E | LEA.L (A6-0x10),A2 000233e2 47 ee ff f4 |G | LEA.L (A6-0xc),A3 000233e6 49 ee ff ec |I | LEA.L (A6-0x14),A4 000233ea 7e 00 |~ | MOVEQ.L #0x00,D7 000233ec 22 ae 00 14 |" | MOVE.L (A6+0x14),(A1) 000233f0 20 39 00 02 56 14 | 9 V | MOVE.L 0x25614,D0 000233f6 90 ae 00 14 | | SUB.L (A6+0x14),D0 000233fa 28 80 |( | MOVE.L D0,(A4) 000233fc 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00023400 2a 2e 00 10 |*. | MOVE.L (A6+0x10),D5 00023404 ba 97 | | CMP.L (A7),D5 00023406 6e 2c |n, | BGT 0x23434 00023408 51 4f |QO | SUBQ.L #0x8,A7 0002340a 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 0002340e 2f 05 |/ | MOVE.L D5,-(A7) 00023410 4e ba e3 42 |N B | JSR 0x21754 00023414 50 4f |PO | ADDQ.L #0x8,A7 00023416 24 9f |$ | MOVE.L (A7)+,(A2) 00023418 26 97 |& | MOVE.L (A7),(A3) 0002341a 2f 13 |/ | MOVE.L (A3),-(A7) 0002341c 2f 12 |/ | MOVE.L (A2),-(A7) 0002341e 4e ba e2 fc |N | JSR 0x2171c 00023422 50 4f |PO | ADDQ.L #0x8,A7 00023424 2c 1f |, | MOVE.L (A7)+,D6 00023426 de 86 | | ADD.L D6,D7 00023428 ba ae 00 0c | | CMP.L (A6+0xc),D5 0002342c 6c 02 |l | BGE 0x23430 0002342e 52 87 |R | ADDQ.L #0x1,D7 00023430 52 85 |R | ADDQ.L #0x1,D5 00023432 68 d0 |h | BVC 0x23404 00023434 58 4f |XO | ADDQ.L #0x4,A7 00023436 20 11 | | MOVE.L (A1),D0 00023438 d0 94 | | ADD.L (A4),D0 0002343a 2d 40 ff e8 |-@ | MOVE.L D0,(A6-0x18) 0002343e be 94 | | CMP.L (A4),D7 00023440 67 0c |g | BEQ 0x2344e 00023442 2f 00 |/ | MOVE.L D0,-(A7) 00023444 2f 14 |/ | MOVE.L (A4),-(A7) 00023446 9f 97 | | SUB.L D7,(A7) 00023448 4e ba dc 14 |N | JSR 0x2105e 0002344c 50 4f |PO | ADDQ.L #0x8,A7 0002344e 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00023452 2a 2e 00 10 |*. | MOVE.L (A6+0x10),D5 00023456 ba 97 | | CMP.L (A7),D5 00023458 6e 00 00 88 |n | BGT 0x234e2 0002345c 51 4f |QO | SUBQ.L #0x8,A7 0002345e 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023462 2f 05 |/ | MOVE.L D5,-(A7) 00023464 4e ba e2 ee |N | JSR 0x21754 00023468 50 4f |PO | ADDQ.L #0x8,A7 0002346a 24 9f |$ | MOVE.L (A7)+,(A2) 0002346c 26 97 |& | MOVE.L (A7),(A3) 0002346e 2f 13 |/ | MOVE.L (A3),-(A7) 00023470 2f 12 |/ | MOVE.L (A2),-(A7) 00023472 4e ba e2 a8 |N | JSR 0x2171c 00023476 50 4f |PO | ADDQ.L #0x8,A7 00023478 2c 1f |, | MOVE.L (A7)+,D6 0002347a 2f 06 |/ | MOVE.L D6,-(A7) 0002347c 70 01 |p | MOVEQ.L #0x01,D0 0002347e b0 97 | | CMP.L (A7),D0 00023480 6e 30 |n0 | BGT 0x234b2 00023482 22 11 |" | MOVE.L (A1),D1 00023484 d2 80 | | ADD.L D0,D1 00023486 53 81 |S | SUBQ.L #0x1,D1 00023488 53 81 |S | SUBQ.L #0x1,D1 0002348a 0c 81 00 00 0f ff | | CMPI.L #0x00000fff,D1 00023490 63 02 |c | BLS 0x23494 00023492 4e 4f |NO | TRAP #15 00023494 41 f9 00 02 46 0c |A F | LEA.L 0x2460c,A0 0002349a 55 4f |UO | SUBQ.L #0x2,A7 0002349c 2f 13 |/ | MOVE.L (A3),-(A7) 0002349e 2f 12 |/ | MOVE.L (A2),-(A7) 000234a0 2f 00 |/ | MOVE.L D0,-(A7) 000234a2 4e ba fe 64 |N d | JSR 0x23308 000234a6 de fc 00 0c | | ADDA.W #0xc,A7 000234aa 11 9f 18 08 | | MOVE.B (A7)+,(A0+D1.L+#0x8) 000234ae 52 80 |R | ADDQ.L #0x1,D0 000234b0 68 cc |h | BVC 0x2347e 000234b2 58 4f |XO | ADDQ.L #0x4,A7 000234b4 ba ae 00 0c | | CMP.L (A6+0xc),D5 000234b8 6c 22 |l" | BGE 0x234dc 000234ba 20 11 | | MOVE.L (A1),D0 000234bc d0 86 | | ADD.L D6,D0 000234be 22 00 |" | MOVE.L D0,D1 000234c0 53 81 |S | SUBQ.L #0x1,D1 000234c2 0c 81 00 00 0f ff | | CMPI.L #0x00000fff,D1 000234c8 63 02 |c | BLS 0x234cc 000234ca 4e 4f |NO | TRAP #15 000234cc 41 f9 00 02 46 0c |A F | LEA.L 0x2460c,A0 000234d2 11 bc 00 2c 18 08 | , | MOVE.B #0x2c,(A0+D1.L+#0x8) 000234d8 52 80 |R | ADDQ.L #0x1,D0 000234da 22 80 |" | MOVE.L D0,(A1) 000234dc 52 85 |R | ADDQ.L #0x1,D5 000234de 68 00 ff 76 |h v | BVC 0x23456 000234e2 58 4f |XO | ADDQ.L #0x4,A7 000234e4 4c df 1f e3 |L | MOVEM.L (A7)+,D0+D1+D5+D6+D7+A0+A1+A2+A3+A4 000234e8 4e 5e |N^ | UNLK A6 000234ea 4e 75 |Nu | RTS 000234ec ; -------------------------------------------------------------------------------------- 000234ec ; OMSI PASCAL Function 000234ec ; <LVAR 0x018 4(rw)> 000234ec ; <LVAR 0x014 4(r)> 000234ec ; <LVAR 0x010 4(r)> 000234ec ; <LVAR 0x00c 4(r)> 000234ec ; <LVAR 0x008 4(r)> 000234ec ; <LVAR -0x008 4(rw)> 000234ec ; <LVAR -0x00c 4(rw)> 000234ec ; <LVAR -0x018 4(w)> 000234ec ; -------------------------------------------------------------------------------------- 000234ec 4e 56 ff 9e |NV | LINK.W A6,#0xff9e 000234f0 bf d5 | | CMPA.L (A5),A7 000234f2 62 06 |b | BHI 0x234fa 000234f4 44 fc 00 02 |D | MOVE.W #0x2,CCR 000234f8 4e 76 |Nv | TRAPV 000234fa de fc 00 4a | J | ADDA.W #0x4a,A7 000234fe 48 e7 c7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D1+D0,-(A7) 00023502 41 ee ff f8 |A | LEA.L (A6-0x8),A0 00023506 43 ee 00 14 |C | LEA.L (A6+0x14),A1 0002350a 45 ee 00 10 |E | LEA.L (A6+0x10),A2 0002350e 47 ee ff f4 |G | LEA.L (A6-0xc),A3 00023512 49 fa fd f4 |I | LEA.L 0x23308,A4 00023516 72 0c |r | MOVEQ.L #0x0c,D1 00023518 59 4f |YO | SUBQ.L #0x4,A7 0002351a 2f 11 |/ | MOVE.L (A1),-(A7) 0002351c 2f 12 |/ | MOVE.L (A2),-(A7) 0002351e 4e ba e1 fc |N | JSR 0x2171c 00023522 50 4f |PO | ADDQ.L #0x8,A7 00023524 26 97 |& | MOVE.L (A7),(A3) 00023526 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 0002352a 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 0002352e 4e ba e1 ec |N | JSR 0x2171c 00023532 50 4f |PO | ADDQ.L #0x8,A7 00023534 20 9f | | MOVE.L (A7)+,(A0) 00023536 52 90 |R | ADDQ.L #0x1,(A0) 00023538 20 13 | | MOVE.L (A3),D0 0002353a 90 90 | | SUB.L (A0),D0 0002353c 52 80 |R | ADDQ.L #0x1,D0 0002353e 2f 00 |/ | MOVE.L D0,-(A7) 00023540 70 01 |p | MOVEQ.L #0x01,D0 00023542 b0 97 | | CMP.L (A7),D0 00023544 6e 00 00 8e |n | BGT 0x235d4 00023548 2d 40 ff e8 |-@ | MOVE.L D0,(A6-0x18) 0002354c 2f 00 |/ | MOVE.L D0,-(A7) 0002354e 7c 00 || | MOVEQ.L #0x00,D6 00023550 2f 10 |/ | MOVE.L (A0),-(A7) 00023552 7a 01 |z | MOVEQ.L #0x01,D5 00023554 ba 97 | | CMP.L (A7),D5 00023556 6e 42 |nB | BGT 0x2359a 00023558 0c 85 00 00 00 01 | | CMPI.L #0x00000001,D5 0002355e 66 04 |f | BNE 0x23564 00023560 7e 2f |~/ | MOVEQ.L #0x2f,D7 00023562 60 14 |` | BRA 0x23578 00023564 55 4f |UO | SUBQ.L #0x2,A7 00023566 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 0002356a 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 0002356e 2f 05 |/ | MOVE.L D5,-(A7) 00023570 53 97 |S | SUBQ.L #0x1,(A7) 00023572 4e 94 |N | JSR (A4) 00023574 de c1 | | ADDA.W D1,A7 00023576 1e 1f | | MOVE.B (A7)+,D7 00023578 55 4f |UO | SUBQ.L #0x2,A7 0002357a 2f 11 |/ | MOVE.L (A1),-(A7) 0002357c 2f 12 |/ | MOVE.L (A2),-(A7) 0002357e 20 2f 00 0e | / | MOVE.L (A7+0xe),D0 00023582 d0 85 | | ADD.L D5,D0 00023584 53 80 |S | SUBQ.L #0x1,D0 00023586 2f 00 |/ | MOVE.L D0,-(A7) 00023588 4e 94 |N | JSR (A4) 0002358a de c1 | | ADDA.W D1,A7 0002358c be 1f | | CMP.B (A7)+,D7 0002358e 67 04 |g | BEQ 0x23594 00023590 58 4f |XO | ADDQ.L #0x4,A7 00023592 60 08 |` | BRA 0x2359c 00023594 2c 05 |, | MOVE.L D5,D6 00023596 52 85 |R | ADDQ.L #0x1,D5 00023598 68 ba |h | BVC 0x23554 0002359a 58 4f |XO | ADDQ.L #0x4,A7 0002359c bc 90 | | CMP.L (A0),D6 0002359e 66 2c |f, | BNE 0x235cc 000235a0 20 17 | | MOVE.L (A7),D0 000235a2 2d 40 00 18 |-@ | MOVE.L D0,(A6+0x18) 000235a6 d0 90 | | ADD.L (A0),D0 000235a8 b0 93 | | CMP.L (A3),D0 000235aa 6d 02 |m | BLT 0x235ae 000235ac 60 1a |` | BRA 0x235c8 000235ae 55 4f |UO | SUBQ.L #0x2,A7 000235b0 2f 11 |/ | MOVE.L (A1),-(A7) 000235b2 2f 12 |/ | MOVE.L (A2),-(A7) 000235b4 2f 00 |/ | MOVE.L D0,-(A7) 000235b6 4e 94 |N | JSR (A4) 000235b8 de c1 | | ADDA.W D1,A7 000235ba 1e 1f | | MOVE.B (A7)+,D7 000235bc 0c 07 00 2f | / | CMPI.B #0x2f,D7 000235c0 67 06 |g | BEQ 0x235c8 000235c2 0c 07 00 3d | = | CMPI.B #0x3d,D7 000235c6 66 04 |f | BNE 0x235cc 000235c8 50 4f |PO | ADDQ.L #0x8,A7 000235ca 60 0e |` | BRA 0x235da 000235cc 20 1f | | MOVE.L (A7)+,D0 000235ce 52 80 |R | ADDQ.L #0x1,D0 000235d0 68 00 ff 70 |h p | BVC 0x23542 000235d4 58 4f |XO | ADDQ.L #0x4,A7 000235d6 42 ae 00 18 |B | CLR.L (A6+0x18) 000235da 4c df 1f e3 |L | MOVEM.L (A7)+,D0+D1+D5+D6+D7+A0+A1+A2+A3+A4 000235de 4e 5e |N^ | UNLK A6 000235e0 4e 75 |Nu | RTS 000235e2 ; -------------------------------------------------------------------------------------- 000235e2 ; OMSI PASCAL Function 000235e2 ; <LVAR 0x018 4(r)> 000235e2 ; <LVAR 0x014 4(r)> 000235e2 ; <LVAR 0x010 4(r)> 000235e2 ; <LVAR 0x00c 4(r)> 000235e2 ; <LVAR 0x008 4(r)> 000235e2 ; -------------------------------------------------------------------------------------- 000235e2 4e 56 ff be |NV | LINK.W A6,#0xffbe 000235e6 bf d5 | | CMPA.L (A5),A7 000235e8 62 06 |b | BHI 0x235f0 000235ea 44 fc 00 02 |D | MOVE.W #0x2,CCR 000235ee 4e 76 |Nv | TRAPV 000235f0 de fc 00 36 | 6 | ADDA.W #0x36,A7 000235f4 48 e7 c7 c0 |H | MOVEM.L A1+A0+D7+D6+D5+D1+D0,-(A7) 000235f8 41 ee 00 14 |A | LEA.L (A6+0x14),A0 000235fc 43 ee 00 10 |C | LEA.L (A6+0x10),A1 00023600 72 2f |r/ | MOVEQ.L #0x2f,D1 00023602 59 4f |YO | SUBQ.L #0x4,A7 00023604 2f 10 |/ | MOVE.L (A0),-(A7) 00023606 2f 11 |/ | MOVE.L (A1),-(A7) 00023608 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 0002360c 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023610 4e ba fe da |N | JSR 0x234ec 00023614 de fc 00 10 | | ADDA.W #0x10,A7 00023618 2a 1f |* | MOVE.L (A7)+,D5 0002361a 6f 52 |oR | BLE 0x2366e 0002361c 2f 2e 00 18 |/. | MOVE.L (A6+0x18),-(A7) 00023620 1f 01 | | MOVE.B D1,-(A7) 00023622 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00023628 5c 4f |\O | ADDQ.L #0x6,A7 0002362a 20 05 | | MOVE.L D5,D0 0002362c 52 80 |R | ADDQ.L #0x1,D0 0002362e 59 4f |YO | SUBQ.L #0x4,A7 00023630 2f 10 |/ | MOVE.L (A0),-(A7) 00023632 2f 11 |/ | MOVE.L (A1),-(A7) 00023634 4e ba e0 e6 |N | JSR 0x2171c 00023638 50 4f |PO | ADDQ.L #0x8,A7 0002363a 2c 00 |, | MOVE.L D0,D6 0002363c bc 97 | | CMP.L (A7),D6 0002363e 6e 2c |n, | BGT 0x2366c 00023640 55 4f |UO | SUBQ.L #0x2,A7 00023642 2f 10 |/ | MOVE.L (A0),-(A7) 00023644 2f 11 |/ | MOVE.L (A1),-(A7) 00023646 2f 06 |/ | MOVE.L D6,-(A7) 00023648 4e ba fc be |N | JSR 0x23308 0002364c de fc 00 0c | | ADDA.W #0xc,A7 00023650 1e 1f | | MOVE.B (A7)+,D7 00023652 be 01 | | CMP.B D1,D7 00023654 66 04 |f | BNE 0x2365a 00023656 58 4f |XO | ADDQ.L #0x4,A7 00023658 60 14 |` | BRA 0x2366e 0002365a 2f 2e 00 18 |/. | MOVE.L (A6+0x18),-(A7) 0002365e 1f 07 | | MOVE.B D7,-(A7) 00023660 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00023666 5c 4f |\O | ADDQ.L #0x6,A7 00023668 52 86 |R | ADDQ.L #0x1,D6 0002366a 68 d0 |h | BVC 0x2363c 0002366c 58 4f |XO | ADDQ.L #0x4,A7 0002366e 4c df 03 e3 |L | MOVEM.L (A7)+,D0+D1+D5+D6+D7+A0+A1 00023672 4e 5e |N^ | UNLK A6 00023674 4e 75 |Nu | RTS 00023676 ; -------------------------------------------------------------------------------------- 00023676 ; OMSI PASCAL Function 00023676 ; <LVAR 0x018 4(r)> 00023676 ; <LVAR 0x014 4(r)> 00023676 ; <LVAR 0x010 4(r)> 00023676 ; <LVAR 0x00c 4(r)> 00023676 ; <LVAR 0x008 4(r)> 00023676 ; <LVAR -0x006 4(rw)> 00023676 ; <LVAR -0x014 4(rw)> 00023676 ; -------------------------------------------------------------------------------------- 00023676 4e 56 ff aa |NV | LINK.W A6,#0xffaa 0002367a bf d5 | | CMPA.L (A5),A7 0002367c 62 06 |b | BHI 0x23684 0002367e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023682 4e 76 |Nv | TRAPV 00023684 de fc 00 42 | B | ADDA.W #0x42,A7 00023688 48 e7 c7 e0 |H | MOVEM.L A2+A1+A0+D7+D6+D5+D1+D0,-(A7) 0002368c 41 ee 00 14 |A | LEA.L (A6+0x14),A0 00023690 43 ee 00 10 |C | LEA.L (A6+0x10),A1 00023694 45 ee ff fa |E | LEA.L (A6-0x6),A2 00023698 72 0c |r | MOVEQ.L #0x0c,D1 0002369a 59 4f |YO | SUBQ.L #0x4,A7 0002369c 2f 10 |/ | MOVE.L (A0),-(A7) 0002369e 2f 11 |/ | MOVE.L (A1),-(A7) 000236a0 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 000236a4 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000236a8 4e ba fe 42 |N B | JSR 0x234ec 000236ac de fc 00 10 | | ADDA.W #0x10,A7 000236b0 2d 5f ff ec |-_ | MOVE.L (A7)+,(A6-0x14) 000236b4 6f 6e |on | BLE 0x23724 000236b6 59 4f |YO | SUBQ.L #0x4,A7 000236b8 2f 10 |/ | MOVE.L (A0),-(A7) 000236ba 2f 11 |/ | MOVE.L (A1),-(A7) 000236bc 4e ba e0 5e |N ^ | JSR 0x2171c 000236c0 50 4f |PO | ADDQ.L #0x8,A7 000236c2 24 9f |$ | MOVE.L (A7)+,(A2) 000236c4 2f 12 |/ | MOVE.L (A2),-(A7) 000236c6 2a 2e ff ec |*. | MOVE.L (A6-0x14),D5 000236ca ba 97 | | CMP.L (A7),D5 000236cc 6e 54 |nT | BGT 0x23722 000236ce 55 4f |UO | SUBQ.L #0x2,A7 000236d0 2f 10 |/ | MOVE.L (A0),-(A7) 000236d2 2f 11 |/ | MOVE.L (A1),-(A7) 000236d4 2f 05 |/ | MOVE.L D5,-(A7) 000236d6 4e ba fc 30 |N 0 | JSR 0x23308 000236da de c1 | | ADDA.W D1,A7 000236dc 10 1f | | MOVE.B (A7)+,D0 000236de 0c 00 00 3d | = | CMPI.B #0x3d,D0 000236e2 66 3a |f: | BNE 0x2371e 000236e4 20 05 | | MOVE.L D5,D0 000236e6 52 80 |R | ADDQ.L #0x1,D0 000236e8 2f 12 |/ | MOVE.L (A2),-(A7) 000236ea 2c 00 |, | MOVE.L D0,D6 000236ec bc 97 | | CMP.L (A7),D6 000236ee 6e 2c |n, | BGT 0x2371c 000236f0 55 4f |UO | SUBQ.L #0x2,A7 000236f2 2f 10 |/ | MOVE.L (A0),-(A7) 000236f4 2f 11 |/ | MOVE.L (A1),-(A7) 000236f6 2f 06 |/ | MOVE.L D6,-(A7) 000236f8 4e ba fc 0e |N | JSR 0x23308 000236fc de c1 | | ADDA.W D1,A7 000236fe 1e 1f | | MOVE.B (A7)+,D7 00023700 0c 07 00 2f | / | CMPI.B #0x2f,D7 00023704 66 04 |f | BNE 0x2370a 00023706 50 4f |PO | ADDQ.L #0x8,A7 00023708 60 1a |` | BRA 0x23724 0002370a 2f 2e 00 18 |/. | MOVE.L (A6+0x18),-(A7) 0002370e 1f 07 | | MOVE.B D7,-(A7) 00023710 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00023716 5c 4f |\O | ADDQ.L #0x6,A7 00023718 52 86 |R | ADDQ.L #0x1,D6 0002371a 68 d0 |h | BVC 0x236ec 0002371c 58 4f |XO | ADDQ.L #0x4,A7 0002371e 52 85 |R | ADDQ.L #0x1,D5 00023720 68 a8 |h | BVC 0x236ca 00023722 58 4f |XO | ADDQ.L #0x4,A7 00023724 4c df 07 e3 |L | MOVEM.L (A7)+,D0+D1+D5+D6+D7+A0+A1+A2 00023728 4e 5e |N^ | UNLK A6 0002372a 4e 75 |Nu | RTS 0002372c ; -------------------------------------------------------------------------------------- 0002372c ; OMSI PASCAL Function 0002372c ; <LVAR 0x010 4(r)> 0002372c ; <LVAR 0x00c 4(r)> 0002372c ; <LVAR 0x008 4(r)> 0002372c ; -------------------------------------------------------------------------------------- 0002372c 4e 56 ff b2 |NV | LINK.W A6,#0xffb2 00023730 bf d5 | | CMPA.L (A5),A7 00023732 62 06 |b | BHI 0x2373a 00023734 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023738 4e 76 |Nv | TRAPV 0002373a de fc 00 42 | B | ADDA.W #0x42,A7 0002373e 48 e7 c7 c0 |H | MOVEM.L A1+A0+D7+D6+D5+D1+D0,-(A7) 00023742 41 ee 00 0c |A | LEA.L (A6+0xc),A0 00023746 43 ee 00 08 |C | LEA.L (A6+0x8),A1 0002374a 72 0c |r | MOVEQ.L #0x0c,D1 0002374c 59 4f |YO | SUBQ.L #0x4,A7 0002374e 2f 10 |/ | MOVE.L (A0),-(A7) 00023750 2f 11 |/ | MOVE.L (A1),-(A7) 00023752 4e ba df c8 |N | JSR 0x2171c 00023756 50 4f |PO | ADDQ.L #0x8,A7 00023758 2a 1f |* | MOVE.L (A7)+,D5 0002375a 2f 05 |/ | MOVE.L D5,-(A7) 0002375c 7c 01 || | MOVEQ.L #0x01,D6 0002375e bc 97 | | CMP.L (A7),D6 00023760 6e 46 |nF | BGT 0x237a8 00023762 55 4f |UO | SUBQ.L #0x2,A7 00023764 2f 10 |/ | MOVE.L (A0),-(A7) 00023766 2f 11 |/ | MOVE.L (A1),-(A7) 00023768 2f 06 |/ | MOVE.L D6,-(A7) 0002376a 4e ba fb 9c |N | JSR 0x23308 0002376e de c1 | | ADDA.W D1,A7 00023770 10 1f | | MOVE.B (A7)+,D0 00023772 0c 00 00 2f | / | CMPI.B #0x2f,D0 00023776 66 2c |f, | BNE 0x237a4 00023778 2f 05 |/ | MOVE.L D5,-(A7) 0002377a 2e 06 |. | MOVE.L D6,D7 0002377c be 97 | | CMP.L (A7),D7 0002377e 6e 1e |n | BGT 0x2379e 00023780 2f 2e 00 10 |/. | MOVE.L (A6+0x10),-(A7) 00023784 55 4f |UO | SUBQ.L #0x2,A7 00023786 2f 10 |/ | MOVE.L (A0),-(A7) 00023788 2f 11 |/ | MOVE.L (A1),-(A7) 0002378a 2f 07 |/ | MOVE.L D7,-(A7) 0002378c 4e ba fb 7a |N z | JSR 0x23308 00023790 de c1 | | ADDA.W D1,A7 00023792 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00023798 5c 4f |\O | ADDQ.L #0x6,A7 0002379a 52 87 |R | ADDQ.L #0x1,D7 0002379c 68 de |h | BVC 0x2377c 0002379e 58 4f |XO | ADDQ.L #0x4,A7 000237a0 58 4f |XO | ADDQ.L #0x4,A7 000237a2 60 06 |` | BRA 0x237aa 000237a4 52 86 |R | ADDQ.L #0x1,D6 000237a6 68 b6 |h | BVC 0x2375e 000237a8 58 4f |XO | ADDQ.L #0x4,A7 000237aa 4c df 03 e3 |L | MOVEM.L (A7)+,D0+D1+D5+D6+D7+A0+A1 000237ae 4e 5e |N^ | UNLK A6 000237b0 4e 75 |Nu | RTS 000237b2 ; -------------------------------------------------------------------------------------- 000237b2 ; OMSI PASCAL Function 000237b2 ; <LVAR 0x010 4(r)> 000237b2 ; <LVAR 0x00c 4(r)> 000237b2 ; <LVAR 0x008 4(r)> 000237b2 ; -------------------------------------------------------------------------------------- 000237b2 4e 56 ff ce |NV | LINK.W A6,#0xffce 000237b6 bf d5 | | CMPA.L (A5),A7 000237b8 62 06 |b | BHI 0x237c0 000237ba 44 fc 00 02 |D | MOVE.W #0x2,CCR 000237be 4e 76 |Nv | TRAPV 000237c0 de fc 00 2a | * | ADDA.W #0x2a,A7 000237c4 48 e7 03 80 |H | MOVEM.L A0+D7+D6,-(A7) 000237c8 20 6e 00 10 | n | MOVEA.L (A6+0x10),A0 000237cc 42 50 |BP | CLR.W (A0) 000237ce 59 4f |YO | SUBQ.L #0x4,A7 000237d0 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 000237d4 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000237d8 4e ba df 42 |N B | JSR 0x2171c 000237dc 50 4f |PO | ADDQ.L #0x8,A7 000237de 7e 01 |~ | MOVEQ.L #0x01,D7 000237e0 be 97 | | CMP.L (A7),D7 000237e2 6e 34 |n4 | BGT 0x23818 000237e4 55 4f |UO | SUBQ.L #0x2,A7 000237e6 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 000237ea 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000237ee 2f 07 |/ | MOVE.L D7,-(A7) 000237f0 4e ba fb 16 |N | JSR 0x23308 000237f4 de fc 00 0c | | ADDA.W #0xc,A7 000237f8 1c 1f | | MOVE.B (A7)+,D6 000237fa 0c 06 00 2f | / | CMPI.B #0x2f,D6 000237fe 67 10 |g | BEQ 0x23810 00023800 2f 2e 00 10 |/. | MOVE.L (A6+0x10),-(A7) 00023804 1f 06 | | MOVE.B D6,-(A7) 00023806 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 0002380c 5c 4f |\O | ADDQ.L #0x6,A7 0002380e 60 04 |` | BRA 0x23814 00023810 58 4f |XO | ADDQ.L #0x4,A7 00023812 60 06 |` | BRA 0x2381a 00023814 52 87 |R | ADDQ.L #0x1,D7 00023816 68 c8 |h | BVC 0x237e0 00023818 58 4f |XO | ADDQ.L #0x4,A7 0002381a 4c df 01 c0 |L | MOVEM.L (A7)+,D6+D7+A0 0002381e 4e 5e |N^ | UNLK A6 00023820 4e 75 |Nu | RTS 00023822 ; -------------------------------------------------------------------------------------- 00023822 ; OMSI PASCAL Function 00023822 ; -------------------------------------------------------------------------------------- 00023822 4e 56 ff c6 |NV | LINK.W A6,#0xffc6 00023826 bf d5 | | CMPA.L (A5),A7 00023828 62 06 |b | BHI 0x23830 0002382a 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002382e 4e 76 |Nv | TRAPV 00023830 de fc 00 3a | : | ADDA.W #0x3a,A7 00023834 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 00023838 41 fa cf b6 |A | LEA.L 0x207f0,A0 0002383c 70 10 |p | MOVEQ.L #0x10,D0 0002383e 3f 20 |? | MOVE.W -(A0),-(A7) 00023840 51 c8 ff fc |Q | DBF D0,0x2383e 00023844 59 4f |YO | SUBQ.L #0x4,A7 00023846 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002384a 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 0002384e 3f 3c 00 22 |?< " | MOVE.W #0x22,-(A7) 00023852 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00023858 50 4f |PO | ADDQ.L #0x8,A7 0002385a 4e ba d2 ae |N | JSR 0x20b0a 0002385e de fc 00 26 | & | ADDA.W #0x26,A7 00023862 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 00023866 4e 5e |N^ | UNLK A6 00023868 4e 75 |Nu | RTS 0002386a ; -------------------------------------------------------------------------------------- 0002386a ; OMSI PASCAL Function 0002386a ; <LVAR 0x00c 4(r)> 0002386a ; <LVAR 0x008 4(r)> 0002386a ; <LVAR -0x006 4(rw)> 0002386a ; -------------------------------------------------------------------------------------- 0002386a 4e 56 ff a0 |NV | LINK.W A6,#0xffa0 0002386e bf d5 | | CMPA.L (A5),A7 00023870 62 06 |b | BHI 0x23878 00023872 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023876 4e 76 |Nv | TRAPV 00023878 de fc 00 58 | X | ADDA.W #0x58,A7 0002387c 48 e7 ff f0 |H | MOVEM.L A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00023880 43 ee 00 0c |C | LEA.L (A6+0xc),A1 00023884 45 f9 00 02 56 14 |E V | LEA.L 0x25614,A2 0002388a 47 fa d3 1a |G | LEA.L 0x20ba6,A3 0002388e 72 30 |r0 | MOVEQ.L #0x30,D1 00023890 74 39 |t9 | MOVEQ.L #0x39,D2 00023892 76 25 |v% | MOVEQ.L #0x25,D3 00023894 78 2d |x- | MOVEQ.L #0x2d,D4 00023896 2d 52 ff fa |-R | MOVE.L (A2),(A6-0x6) 0002389a 55 4f |UO | SUBQ.L #0x2,A7 0002389c 4e 93 |N | JSR (A3) 0002389e 1e 1f | | MOVE.B (A7)+,D7 000238a0 be 03 | | CMP.B D3,D7 000238a2 66 08 |f | BNE 0x238ac 000238a4 20 51 | Q | MOVEA.L (A1),A0 000238a6 42 90 |B | CLR.L (A0) 000238a8 60 00 00 e2 |` | BRA 0x2398c 000238ac be 04 | | CMP.B D4,D7 000238ae 66 0c |f | BNE 0x238bc 000238b0 20 51 | Q | MOVEA.L (A1),A0 000238b2 20 bc 00 00 00 01 | | MOVE.L #0x1,(A0) 000238b8 60 00 00 d2 |` | BRA 0x2398c 000238bc 0c 07 00 2f | / | CMPI.B #0x2f,D7 000238c0 66 0c |f | BNE 0x238ce 000238c2 20 51 | Q | MOVEA.L (A1),A0 000238c4 20 bc 00 00 00 04 | | MOVE.L #0x4,(A0) 000238ca 60 00 00 c0 |` | BRA 0x2398c 000238ce 0c 07 00 3d | = | CMPI.B #0x3d,D7 000238d2 66 0c |f | BNE 0x238e0 000238d4 20 51 | Q | MOVEA.L (A1),A0 000238d6 20 bc 00 00 00 05 | | MOVE.L #0x5,(A0) 000238dc 60 00 00 ae |` | BRA 0x2398c 000238e0 0c 07 00 5c | \ | CMPI.B #0x5c,D7 000238e4 66 0c |f | BNE 0x238f2 000238e6 20 51 | Q | MOVEA.L (A1),A0 000238e8 20 bc 00 00 00 06 | | MOVE.L #0x6,(A0) 000238ee 60 00 00 9c |` | BRA 0x2398c 000238f2 4a 07 |J | TST.B D7 000238f4 66 2c |f, | BNE 0x23922 000238f6 41 fa cf 10 |A | LEA.L 0x20808,A0 000238fa 70 05 |p | MOVEQ.L #0x05,D0 000238fc 2f 20 |/ | MOVE.L -(A0),-(A7) 000238fe 51 c8 ff fc |Q | DBF D0,0x238fc 00023902 59 4f |YO | SUBQ.L #0x4,A7 00023904 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023908 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 0002390c 3f 3c 00 18 |?< | MOVE.W #0x18,-(A7) 00023910 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00023916 50 4f |PO | ADDQ.L #0x8,A7 00023918 4e ba d1 f0 |N | JSR 0x20b0a 0002391c de fc 00 1c | | ADDA.W #0x1c,A7 00023920 60 6a |`j | BRA 0x2398c 00023922 be 01 | | CMP.B D1,D7 00023924 65 2c |e, | BCS 0x23952 00023926 be 02 | | CMP.B D2,D7 00023928 62 28 |b( | BHI 0x23952 0002392a 20 51 | Q | MOVEA.L (A1),A0 0002392c 20 bc 00 00 00 02 | | MOVE.L #0x2,(A0) 00023932 55 4f |UO | SUBQ.L #0x2,A7 00023934 4e ba d2 32 |N 2 | JSR 0x20b68 00023938 1e 1f | | MOVE.B (A7)+,D7 0002393a be 01 | | CMP.B D1,D7 0002393c 65 0a |e | BCS 0x23948 0002393e be 02 | | CMP.B D2,D7 00023940 62 06 |b | BHI 0x23948 00023942 55 4f |UO | SUBQ.L #0x2,A7 00023944 4e 93 |N | JSR (A3) 00023946 1c 1f | | MOVE.B (A7)+,D6 00023948 be 01 | | CMP.B D1,D7 0002394a 65 04 |e | BCS 0x23950 0002394c be 02 | | CMP.B D2,D7 0002394e 63 e2 |c | BLS 0x23932 00023950 60 3a |`: | BRA 0x2398c 00023952 20 51 | Q | MOVEA.L (A1),A0 00023954 20 bc 00 00 00 03 | | MOVE.L #0x3,(A0) 0002395a 7a 00 |z | MOVEQ.L #0x00,D5 0002395c 55 4f |UO | SUBQ.L #0x2,A7 0002395e 4e ba d2 08 |N | JSR 0x20b68 00023962 1e 1f | | MOVE.B (A7)+,D7 00023964 be 03 | | CMP.B D3,D7 00023966 67 16 |g | BEQ 0x2397e 00023968 be 04 | | CMP.B D4,D7 0002396a 67 12 |g | BEQ 0x2397e 0002396c 0c 07 00 2f | / | CMPI.B #0x2f,D7 00023970 67 0c |g | BEQ 0x2397e 00023972 0c 07 00 3d | = | CMPI.B #0x3d,D7 00023976 67 06 |g | BEQ 0x2397e 00023978 0c 07 00 5c | \ | CMPI.B #0x5c,D7 0002397c 66 04 |f | BNE 0x23982 0002397e 7a 01 |z | MOVEQ.L #0x01,D5 00023980 60 06 |` | BRA 0x23988 00023982 55 4f |UO | SUBQ.L #0x2,A7 00023984 4e 93 |N | JSR (A3) 00023986 1c 1f | | MOVE.B (A7)+,D6 00023988 4a 05 |J | TST.B D5 0002398a 67 d0 |g | BEQ 0x2395c 0002398c 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00023990 20 ae ff fa | | MOVE.L (A6-0x6),(A0) 00023994 21 52 00 04 |!R | MOVE.L (A2),(A0+0x4) 00023998 53 a8 00 04 |S | SUBQ.L #0x1,(A0+0x4) 0002399c 4c df 0f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3 000239a0 4e 5e |N^ | UNLK A6 000239a2 4e 75 |Nu | RTS 000239a4 ; -------------------------------------------------------------------------------------- 000239a4 ; OMSI PASCAL Function 000239a4 ; <LVAR 0x00c 4(r)> 000239a4 ; <LVAR 0x008 4(r)> 000239a4 ; -------------------------------------------------------------------------------------- 000239a4 4e 56 ff c0 |NV | LINK.W A6,#0xffc0 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 34 | 4 | ADDA.W #0x34,A7 000239b6 48 e7 c7 e0 |H | MOVEM.L A2+A1+A0+D7+D6+D5+D1+D0,-(A7) 000239ba 45 ee 00 0c |E | LEA.L (A6+0xc),A2 000239be 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 000239c2 2f 08 |/ | MOVE.L A0,-(A7) 000239c4 2c 39 00 02 56 14 |,9 V | MOVE.L 0x25614,D6 000239ca 9c 92 | | SUB.L (A2),D6 000239cc 2a 12 |* | MOVE.L (A2),D5 000239ce da 86 | | ADD.L D6,D5 000239d0 30 10 |0 | MOVE.W (A0),D0 000239d2 48 c0 |H | EXTW.L D0 000239d4 b0 86 | | CMP.L D6,D0 000239d6 67 0c |g | BEQ 0x239e4 000239d8 2f 05 |/ | MOVE.L D5,-(A7) 000239da 2f 06 |/ | MOVE.L D6,-(A7) 000239dc 91 97 | | SUB.L D0,(A7) 000239de 4e ba d6 7e |N ~ | JSR 0x2105e 000239e2 50 4f |PO | ADDQ.L #0x8,A7 000239e4 2f 00 |/ | MOVE.L D0,-(A7) 000239e6 7e 01 |~ | MOVEQ.L #0x01,D7 000239e8 be 97 | | CMP.L (A7),D7 000239ea 6e 34 |n4 | BGT 0x23a20 000239ec 20 12 | | MOVE.L (A2),D0 000239ee d0 87 | | ADD.L D7,D0 000239f0 53 80 |S | SUBQ.L #0x1,D0 000239f2 53 80 |S | SUBQ.L #0x1,D0 000239f4 0c 80 00 00 0f ff | | CMPI.L #0x00000fff,D0 000239fa 63 02 |c | BLS 0x239fe 000239fc 4e 4f |NO | TRAP #15 000239fe 41 f9 00 02 46 0c |A F | LEA.L 0x2460c,A0 00023a04 22 07 |" | MOVE.L D7,D1 00023a06 53 81 |S | SUBQ.L #0x1,D1 00023a08 0c 81 00 00 00 7d | } | CMPI.L #0x0000007d,D1 00023a0e 63 02 |c | BLS 0x23a12 00023a10 4e 4f |NO | TRAP #15 00023a12 22 6f 00 04 |"o | MOVEA.L (A7+0x4),A1 00023a16 11 b1 18 02 08 08 | | MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x8) 00023a1c 52 87 |R | ADDQ.L #0x1,D7 00023a1e 68 c8 |h | BVC 0x239e8 00023a20 50 4f |PO | ADDQ.L #0x8,A7 00023a22 4c df 07 e3 |L | MOVEM.L (A7)+,D0+D1+D5+D6+D7+A0+A1+A2 00023a26 4e 5e |N^ | UNLK A6 00023a28 4e 75 |Nu | RTS 00023a2a ; -------------------------------------------------------------------------------------- 00023a2a ; OMSI PASCAL Function 00023a2a ; <LVAR 0x00c 4(r)> 00023a2a ; <LVAR 0x008 4(r)> 00023a2a ; <LVAR -0x008 @ 4(r)> 00023a2a ; <LVAR -0x00c @ 4(r)> 00023a2a ; <LVAR -0x010 4(r)> 00023a2a ; <LVAR -0x014 @ 4(r)> 00023a2a ; <LVAR -0x018 4(rw)> 00023a2a ; <LVAR -0x01c 4(rw)> 00023a2a ; <LVAR -0x020 4(rw)> 00023a2a ; <LVAR -0x024 4(rw)> 00023a2a ; <LVAR -0x028 4(rw)> 00023a2a ; <LVAR -0x034 4(rw)> 00023a2a ; -------------------------------------------------------------------------------------- 00023a2a 4e 56 ff 70 |NV p | LINK.W A6,#0xff70 00023a2e bf d5 | | CMPA.L (A5),A7 00023a30 62 06 |b | BHI 0x23a38 00023a32 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023a36 4e 76 |Nv | TRAPV 00023a38 de fc 00 5c | \ | ADDA.W #0x5c,A7 00023a3c 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00023a40 43 ee ff f8 |C | LEA.L (A6-0x8),A1 00023a44 45 ee ff ec |E | LEA.L (A6-0x14),A2 00023a48 47 ee ff dc |G | LEA.L (A6-0x24),A3 00023a4c 49 ee ff e0 |I | LEA.L (A6-0x20),A4 00023a50 74 14 |t | MOVEQ.L #0x14,D2 00023a52 2d 79 00 02 56 14 ff d8 |-y V | MOVE.L 0x25614,(A6-0x28) 00023a5a 48 51 |HQ | PEA.L (A1) 00023a5c 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00023a62 58 4f |XO | ADDQ.L #0x4,A7 00023a64 48 6e ff f4 |Hn | PEA.L (A6-0xc) 00023a68 48 52 |HR | PEA.L (A2) 00023a6a 4e ba fd fe |N | JSR 0x2386a 00023a6e 50 4f |PO | ADDQ.L #0x8,A7 00023a70 42 ae ff cc |B | CLR.L (A6-0x34) 00023a74 7e 00 |~ | MOVEQ.L #0x00,D7 00023a76 20 2e ff cc | . | MOVE.L (A6-0x34),D0 00023a7a b0 82 | | CMP.L D2,D0 00023a7c 63 02 |c | BLS 0x23a80 00023a7e 4e 4e |NN | TRAP #14 00023a80 d0 40 | @ | ADD.W D0,D0 00023a82 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 00023a8a 00 2a | * | .CONST 0x2a ; [0x0] -> 0x23ab4 00023a8c 00 34 | 4 | .CONST 0x34 ; [0x1] -> 0x23abe 00023a8e 00 48 | H | .CONST 0x48 ; [0x2] -> 0x23ad2 00023a90 00 64 | d | .CONST 0x64 ; [0x3] -> 0x23aee 00023a92 00 68 | h | .CONST 0x68 ; [0x4] -> 0x23af2 00023a94 00 76 | v | .CONST 0x76 ; [0x5] -> 0x23b00 00023a96 00 8a | | .CONST 0x8a ; [0x6] -> 0x23b14 00023a98 00 90 | | .CONST 0x90 ; [0x7] -> 0x23b1a 00023a9a 00 92 | | .CONST 0x92 ; [0x8] -> 0x23b1c 00023a9c 00 a8 | | .CONST 0xa8 ; [0x9] -> 0x23b32 00023a9e 00 b6 | | .CONST 0xb6 ; [0xa] -> 0x23b40 00023aa0 00 ce | | .CONST 0xce ; [0xb] -> 0x23b58 00023aa2 00 e2 | | .CONST 0xe2 ; [0xc] -> 0x23b6c 00023aa4 00 f6 | | .CONST 0xf6 ; [0xd] -> 0x23b80 00023aa6 01 0c | | .CONST 0x10c ; [0xe] -> 0x23b96 00023aa8 01 0e | | .CONST 0x10e ; [0xf] -> 0x23b98 00023aaa 01 28 | ( | .CONST 0x128 ; [0x10] -> 0x23bb2 00023aac 01 3e | > | .CONST 0x13e ; [0x11] -> 0x23bc8 00023aae 01 4c | L | .CONST 0x14c ; [0x12] -> 0x23bd6 00023ab0 01 4e | N | .CONST 0x14e ; [0x13] -> 0x23bd8 00023ab2 01 50 | P | .CONST 0x150 ; [0x14] -> 0x23bda 00023ab4 switch@0x23a82[0x0]: 00023ab4 7c 00 || | MOVEQ.L #0x00,D6 00023ab6 2a 2e 00 08 |*. | MOVE.L (A6+0x8),D5 00023aba 60 00 01 48 |` H | BRA 0x23c04 00023abe switch@0x23a82[0x1]: 00023abe 59 4f |YO | SUBQ.L #0x4,A7 00023ac0 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7) 00023ac4 2f 12 |/ | MOVE.L (A2),-(A7) 00023ac6 4e ba f8 80 |N | JSR 0x23348 00023aca 50 4f |PO | ADDQ.L #0x8,A7 00023acc 2c 1f |, | MOVE.L (A7)+,D6 00023ace 60 00 01 34 |` 4 | BRA 0x23c04 00023ad2 switch@0x23a82[0x2]: 00023ad2 2f 2e ff d8 |/. | MOVE.L (A6-0x28),-(A7) 00023ad6 2f 06 |/ | MOVE.L D6,-(A7) 00023ad8 2f 06 |/ | MOVE.L D6,-(A7) 00023ada 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00023ade 4e ba f8 e4 |N | JSR 0x233c4 00023ae2 de fc 00 10 | | ADDA.W #0x10,A7 00023ae6 60 00 01 78 |` x | BRA 0x23c60 00023aea 60 00 01 18 |` | .XXX[0x4] 00023aee switch@0x23a82[0x3]: 00023aee 60 00 01 14 |` | BRA 0x23c04 00023af2 switch@0x23a82[0x4]: 00023af2 2f 2e ff d8 |/. | MOVE.L (A6-0x28),-(A7) 00023af6 2f 06 |/ | MOVE.L D6,-(A7) 00023af8 2f 05 |/ | MOVE.L D5,-(A7) 00023afa 60 de |` | BRA 0x23ada 00023afc 60 00 01 06 |` | .XXX[0x4] 00023b00 switch@0x23a82[0x5]: 00023b00 59 4f |YO | SUBQ.L #0x4,A7 00023b02 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7) 00023b06 2f 12 |/ | MOVE.L (A2),-(A7) 00023b08 4e ba f8 3e |N > | JSR 0x23348 00023b0c 50 4f |PO | ADDQ.L #0x8,A7 00023b0e 2a 1f |* | MOVE.L (A7)+,D5 00023b10 60 00 00 f2 |` | BRA 0x23c04 00023b14 switch@0x23a82[0x6]: 00023b14 7c 01 || | MOVEQ.L #0x01,D6 00023b16 60 00 00 ec |` | BRA 0x23c04 00023b1a switch@0x23a82[0x7]: 00023b1a 60 e4 |` | BRA switch@0x23a82[0x5] 00023b1c switch@0x23a82[0x8]: 00023b1c 51 4f |QO | SUBQ.L #0x8,A7 00023b1e 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00023b22 2f 06 |/ | MOVE.L D6,-(A7) 00023b24 4e ba dc 2e |N . | JSR 0x21754 00023b28 50 4f |PO | ADDQ.L #0x8,A7 00023b2a 26 9f |& | MOVE.L (A7)+,(A3) 00023b2c 28 9f |( | MOVE.L (A7)+,(A4) 00023b2e 60 00 00 d4 |` | BRA 0x23c04 00023b32 switch@0x23a82[0x9]: 00023b32 2d 52 ff e4 |-R | MOVE.L (A2),(A6-0x1c) 00023b36 2d 6e ff f0 ff e8 |-n | MOVE.L (A6-0x10),(A6-0x18) 00023b3c 60 00 00 c6 |` | BRA 0x23c04 00023b40 switch@0x23a82[0xa]: 00023b40 2f 11 |/ | MOVE.L (A1),-(A7) 00023b42 2f 14 |/ | MOVE.L (A4),-(A7) 00023b44 2f 13 |/ | MOVE.L (A3),-(A7) 00023b46 2f 2e ff e8 |/. | MOVE.L (A6-0x18),-(A7) 00023b4a 2f 2e ff e4 |/. | MOVE.L (A6-0x1c),-(A7) 00023b4e 4e ba fb 26 |N & | JSR 0x23676 00023b52 de c2 | | ADDA.W D2,A7 00023b54 60 00 00 ae |` | BRA 0x23c04 00023b58 switch@0x23a82[0xb]: 00023b58 2f 11 |/ | MOVE.L (A1),-(A7) 00023b5a 2f 14 |/ | MOVE.L (A4),-(A7) 00023b5c 2f 13 |/ | MOVE.L (A3),-(A7) 00023b5e 2f 2e ff e8 |/. | MOVE.L (A6-0x18),-(A7) 00023b62 2f 2e ff e4 |/. | MOVE.L (A6-0x1c),-(A7) 00023b66 4e ba fa 7a |N z | JSR 0x235e2 00023b6a 60 e6 |` | BRA 0x23b52 00023b6c switch@0x23a82[0xc]: 00023b6c 2f 11 |/ | MOVE.L (A1),-(A7) 00023b6e 2f 14 |/ | MOVE.L (A4),-(A7) 00023b70 2f 13 |/ | MOVE.L (A3),-(A7) 00023b72 4e ba fb b8 |N | JSR 0x2372c 00023b76 de fc 00 0c | | ADDA.W #0xc,A7 00023b7a 7e 01 |~ | MOVEQ.L #0x01,D7 00023b7c 60 00 00 86 |` | BRA 0x23c04 00023b80 switch@0x23a82[0xd]: 00023b80 2f 11 |/ | MOVE.L (A1),-(A7) 00023b82 2f 14 |/ | MOVE.L (A4),-(A7) 00023b84 2f 13 |/ | MOVE.L (A3),-(A7) 00023b86 2f 2e ff e8 |/. | MOVE.L (A6-0x18),-(A7) 00023b8a 2f 2e ff e4 |/. | MOVE.L (A6-0x1c),-(A7) 00023b8e 4e ba fa 52 |N R | JSR 0x235e2 00023b92 de c2 | | ADDA.W D2,A7 00023b94 60 e4 |` | BRA 0x23b7a 00023b96 switch@0x23a82[0xe]: 00023b96 60 e2 |` | BRA 0x23b7a 00023b98 switch@0x23a82[0xf]: 00023b98 2f 11 |/ | MOVE.L (A1),-(A7) 00023b9a 51 4f |QO | SUBQ.L #0x8,A7 00023b9c 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00023ba0 2f 06 |/ | MOVE.L D6,-(A7) 00023ba2 4e ba db b0 |N | JSR 0x21754 00023ba6 50 4f |PO | ADDQ.L #0x8,A7 00023ba8 4e ba fb 82 |N | JSR 0x2372c 00023bac de fc 00 0c | | ADDA.W #0xc,A7 00023bb0 60 52 |`R | BRA 0x23c04 00023bb2 switch@0x23a82[0x10]: 00023bb2 2f 11 |/ | MOVE.L (A1),-(A7) 00023bb4 51 4f |QO | SUBQ.L #0x8,A7 00023bb6 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00023bba 2f 06 |/ | MOVE.L D6,-(A7) 00023bbc 4e ba db 96 |N | JSR 0x21754 00023bc0 50 4f |PO | ADDQ.L #0x8,A7 00023bc2 4e ba fb ee |N | JSR 0x237b2 00023bc6 60 ae |` | BRA 0x23b76 00023bc8 switch@0x23a82[0x11]: 00023bc8 2f 11 |/ | MOVE.L (A1),-(A7) 00023bca 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7) 00023bce 2f 12 |/ | MOVE.L (A2),-(A7) 00023bd0 4e ba fc 50 |N P | JSR 0x23822 00023bd4 60 d6 |` | BRA 0x23bac 00023bd6 switch@0x23a82[0x12]: 00023bd6 60 2c |`, | BRA 0x23c04 00023bd8 switch@0x23a82[0x13]: 00023bd8 60 a0 |` | BRA 0x23b7a 00023bda switch@0x23a82[0x14]: 00023bda 41 fa cc 44 |A D | LEA.L 0x20820,A0 00023bde 70 05 |p | MOVEQ.L #0x05,D0 00023be0 2f 20 |/ | MOVE.L -(A0),-(A7) 00023be2 51 c8 ff fc |Q | DBF D0,0x23be0 00023be6 59 4f |YO | SUBQ.L #0x4,A7 00023be8 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023bec 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00023bf0 3f 3c 00 18 |?< | MOVE.W #0x18,-(A7) 00023bf4 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00023bfa 50 4f |PO | ADDQ.L #0x8,A7 00023bfc 4e ba cf 0c |N | JSR 0x20b0a 00023c00 de fc 00 1c | | ADDA.W #0x1c,A7 00023c04 4a 07 |J | TST.B D7 00023c06 66 46 |fF | BNE 0x23c4e 00023c08 48 6e ff f4 |Hn | PEA.L (A6-0xc) 00023c0c 48 52 |HR | PEA.L (A2) 00023c0e 4e ba fc 5a |N Z | JSR 0x2386a 00023c12 50 4f |PO | ADDQ.L #0x8,A7 00023c14 20 2e ff cc | . | MOVE.L (A6-0x34),D0 00023c18 0c 80 00 00 00 13 | | CMPI.L #0x00000013,D0 00023c1e 63 02 |c | BLS 0x23c22 00023c20 4e 4f |NO | TRAP #15 00023c22 28 00 |( | MOVE.L D0,D4 00023c24 76 07 |v | MOVEQ.L #0x07,D3 00023c26 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4 00023c2c 41 fa ce 0e |A | LEA.L 0x20a3c,A0 00023c30 20 2e ff f4 | . | MOVE.L (A6-0xc),D0 00023c34 0c 80 00 00 00 06 | | CMPI.L #0x00000006,D0 00023c3a 63 02 |c | BLS 0x23c3e 00023c3c 4e 4f |NO | TRAP #15 00023c3e 41 f0 48 00 |A H | LEA.L (A0+D4.L),A0 00023c42 12 30 08 00 | 0 | MOVE.B (A0+D0.L),D1 00023c46 48 81 |H | EXTB.W D1 00023c48 48 c1 |H | EXTW.L D1 00023c4a 2d 41 ff cc |-A | MOVE.L D1,(A6-0x34) 00023c4e 4a 07 |J | TST.B D7 00023c50 67 00 fe 24 |g $ | BEQ 0x23a76 00023c54 2f 2e ff d8 |/. | MOVE.L (A6-0x28),-(A7) 00023c58 2f 11 |/ | MOVE.L (A1),-(A7) 00023c5a 4e ba fd 48 |N H | JSR 0x239a4 00023c5e 50 4f |PO | ADDQ.L #0x8,A7 00023c60 48 51 |HQ | PEA.L (A1) 00023c62 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00023c68 58 4f |XO | ADDQ.L #0x4,A7 00023c6a 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00023c6e 4e 5e |N^ | UNLK A6 00023c70 4e 75 |Nu | RTS 00023c72 ; -------------------------------------------------------------------------------------- 00023c72 ; OMSI PASCAL Function 00023c72 ; <LVAR 0x014 4(rw)> 00023c72 ; <LVAR 0x010 4(r)> 00023c72 ; <LVAR 0x00c 4(r)> 00023c72 ; <LVAR 0x008 4(r)> 00023c72 ; <LVAR -0x008 4(rw)> 00023c72 ; <LVAR -0x00c 4(rw)> 00023c72 ; <LVAR -0x018 4(w)> 00023c72 ; -------------------------------------------------------------------------------------- 00023c72 4e 56 ff 96 |NV | LINK.W A6,#0xff96 00023c76 bf d5 | | CMPA.L (A5),A7 00023c78 62 06 |b | BHI 0x23c80 00023c7a 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023c7e 4e 76 |Nv | TRAPV 00023c80 de fc 00 52 | R | ADDA.W #0x52,A7 00023c84 48 e7 e7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7) 00023c88 43 ee ff f8 |C | LEA.L (A6-0x8),A1 00023c8c 45 ee 00 10 |E | LEA.L (A6+0x10),A2 00023c90 47 ee 00 0c |G | LEA.L (A6+0xc),A3 00023c94 49 ee ff f4 |I | LEA.L (A6-0xc),A4 00023c98 74 0c |t | MOVEQ.L #0x0c,D2 00023c9a 42 ae 00 14 |B | CLR.L (A6+0x14) 00023c9e 59 4f |YO | SUBQ.L #0x4,A7 00023ca0 2f 12 |/ | MOVE.L (A2),-(A7) 00023ca2 2f 13 |/ | MOVE.L (A3),-(A7) 00023ca4 4e ba da 76 |N v | JSR 0x2171c 00023ca8 50 4f |PO | ADDQ.L #0x8,A7 00023caa 28 9f |( | MOVE.L (A7)+,(A4) 00023cac 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00023cb0 30 10 |0 | MOVE.W (A0),D0 00023cb2 48 c0 |H | EXTW.L D0 00023cb4 52 80 |R | ADDQ.L #0x1,D0 00023cb6 22 80 |" | MOVE.L D0,(A1) 00023cb8 44 80 |D | NEG.L D0 00023cba d0 94 | | ADD.L (A4),D0 00023cbc 52 80 |R | ADDQ.L #0x1,D0 00023cbe 2f 00 |/ | MOVE.L D0,-(A7) 00023cc0 70 01 |p | MOVEQ.L #0x01,D0 00023cc2 b0 97 | | CMP.L (A7),D0 00023cc4 6e 00 00 9a |n | BGT 0x23d60 00023cc8 2d 40 ff e8 |-@ | MOVE.L D0,(A6-0x18) 00023ccc 2f 00 |/ | MOVE.L D0,-(A7) 00023cce 7c 00 || | MOVEQ.L #0x00,D6 00023cd0 2f 11 |/ | MOVE.L (A1),-(A7) 00023cd2 7a 01 |z | MOVEQ.L #0x01,D5 00023cd4 ba 97 | | CMP.L (A7),D5 00023cd6 6e 48 |nH | BGT 0x23d20 00023cd8 0c 85 00 00 00 01 | | CMPI.L #0x00000001,D5 00023cde 66 04 |f | BNE 0x23ce4 00023ce0 7e 2f |~/ | MOVEQ.L #0x2f,D7 00023ce2 60 18 |` | BRA 0x23cfc 00023ce4 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00023ce8 20 05 | | MOVE.L D5,D0 00023cea 53 80 |S | SUBQ.L #0x1,D0 00023cec 53 80 |S | SUBQ.L #0x1,D0 00023cee 0c 80 00 00 00 7d | } | CMPI.L #0x0000007d,D0 00023cf4 63 02 |c | BLS 0x23cf8 00023cf6 4e 4f |NO | TRAP #15 00023cf8 1e 30 08 02 | 0 | MOVE.B (A0+D0.L+#0x2),D7 00023cfc 55 4f |UO | SUBQ.L #0x2,A7 00023cfe 2f 12 |/ | MOVE.L (A2),-(A7) 00023d00 2f 13 |/ | MOVE.L (A3),-(A7) 00023d02 20 2f 00 0e | / | MOVE.L (A7+0xe),D0 00023d06 d0 85 | | ADD.L D5,D0 00023d08 53 80 |S | SUBQ.L #0x1,D0 00023d0a 2f 00 |/ | MOVE.L D0,-(A7) 00023d0c 4e ba f5 fa |N | JSR 0x23308 00023d10 de c2 | | ADDA.W D2,A7 00023d12 be 1f | | CMP.B (A7)+,D7 00023d14 67 04 |g | BEQ 0x23d1a 00023d16 58 4f |XO | ADDQ.L #0x4,A7 00023d18 60 08 |` | BRA 0x23d22 00023d1a 2c 05 |, | MOVE.L D5,D6 00023d1c 52 85 |R | ADDQ.L #0x1,D5 00023d1e 68 b4 |h | BVC 0x23cd4 00023d20 58 4f |XO | ADDQ.L #0x4,A7 00023d22 bc 91 | | CMP.L (A1),D6 00023d24 66 32 |f2 | BNE 0x23d58 00023d26 20 17 | | MOVE.L (A7),D0 00023d28 22 00 |" | MOVE.L D0,D1 00023d2a d2 91 | | ADD.L (A1),D1 00023d2c b2 94 | | CMP.L (A4),D1 00023d2e 6c 26 |l& | BGE 0x23d56 00023d30 55 4f |UO | SUBQ.L #0x2,A7 00023d32 2f 12 |/ | MOVE.L (A2),-(A7) 00023d34 2f 13 |/ | MOVE.L (A3),-(A7) 00023d36 2f 01 |/ | MOVE.L D1,-(A7) 00023d38 4e ba f5 ce |N | JSR 0x23308 00023d3c de c2 | | ADDA.W D2,A7 00023d3e 1e 1f | | MOVE.B (A7)+,D7 00023d40 0c 07 00 2f | / | CMPI.B #0x2f,D7 00023d44 67 06 |g | BEQ 0x23d4c 00023d46 0c 07 00 3d | = | CMPI.B #0x3d,D7 00023d4a 66 08 |f | BNE 0x23d54 00023d4c 2d 40 00 14 |-@ | MOVE.L D0,(A6+0x14) 00023d50 50 4f |PO | ADDQ.L #0x8,A7 00023d52 60 0e |` | BRA 0x23d62 00023d54 60 02 |` | BRA 0x23d58 00023d56 60 f4 |` | BRA 0x23d4c 00023d58 20 1f | | MOVE.L (A7)+,D0 00023d5a 52 80 |R | ADDQ.L #0x1,D0 00023d5c 68 00 ff 64 |h d | BVC 0x23cc2 00023d60 58 4f |XO | ADDQ.L #0x4,A7 00023d62 4c df 1f e7 |L | MOVEM.L (A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3+A4 00023d66 4e 5e |N^ | UNLK A6 00023d68 4e 75 |Nu | RTS 00023d6a ; -------------------------------------------------------------------------------------- 00023d6a ; OMSI PASCAL Function 00023d6a ; <LVAR 0x018 4(r)> 00023d6a ; <LVAR 0x014 4(r)> 00023d6a ; <LVAR 0x010 4(r)> 00023d6a ; <LVAR 0x00c 4(r)> 00023d6a ; <LVAR 0x008 4(r)> 00023d6a ; <LVAR -0x008 4(rw)> 00023d6a ; <LVAR -0x014 4(rw)> 00023d6a ; <LVAR -0x018 4(rw)> 00023d6a ; <LVAR -0x01c 4(rw)> 00023d6a ; -------------------------------------------------------------------------------------- 00023d6a 4e 56 ff 8e |NV | LINK.W A6,#0xff8e 00023d6e bf d5 | | CMPA.L (A5),A7 00023d70 62 06 |b | BHI 0x23d78 00023d72 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023d76 4e 76 |Nv | TRAPV 00023d78 de fc 00 56 | V | ADDA.W #0x56,A7 00023d7c 48 e7 e7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7) 00023d80 45 ee ff e4 |E | LEA.L (A6-0x1c),A2 00023d84 47 ee ff e8 |G | LEA.L (A6-0x18),A3 00023d88 49 ee ff f8 |I | LEA.L (A6-0x8),A4 00023d8c 72 0c |r | MOVEQ.L #0x0c,D1 00023d8e 74 01 |t | MOVEQ.L #0x01,D2 00023d90 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00023d94 42 10 |B | CLR.B (A0) 00023d96 22 6e 00 0c |"n | MOVEA.L (A6+0xc),A1 00023d9a 22 82 |" | MOVE.L D2,(A1) 00023d9c 51 4f |QO | SUBQ.L #0x8,A7 00023d9e 2f 2e 00 18 |/. | MOVE.L (A6+0x18),-(A7) 00023da2 2f 2e 00 14 |/. | MOVE.L (A6+0x14),-(A7) 00023da6 4e ba d9 ac |N | JSR 0x21754 00023daa 50 4f |PO | ADDQ.L #0x8,A7 00023dac 24 9f |$ | MOVE.L (A7)+,(A2) 00023dae 26 9f |& | MOVE.L (A7)+,(A3) 00023db0 4a 92 |J | TST.L (A2) 00023db2 67 00 00 96 |g | BEQ 0x23e4a 00023db6 59 4f |YO | SUBQ.L #0x4,A7 00023db8 2f 13 |/ | MOVE.L (A3),-(A7) 00023dba 2f 12 |/ | MOVE.L (A2),-(A7) 00023dbc 2f 2e 00 10 |/. | MOVE.L (A6+0x10),-(A7) 00023dc0 4e ba fe b0 |N | JSR 0x23c72 00023dc4 de c1 | | ADDA.W D1,A7 00023dc6 2d 5f ff ec |-_ | MOVE.L (A7)+,(A6-0x14) 00023dca 67 7e |g~ | BEQ 0x23e4a 00023dcc 10 82 | | MOVE.B D2,(A0) 00023dce 48 51 |HQ | PEA.L (A1) 00023dd0 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00023dd6 2f 13 |/ | MOVE.L (A3),-(A7) 00023dd8 2f 12 |/ | MOVE.L (A2),-(A7) 00023dda 4e ba d9 40 |N @ | JSR 0x2171c 00023dde 50 4f |PO | ADDQ.L #0x8,A7 00023de0 28 9f |( | MOVE.L (A7)+,(A4) 00023de2 20 2e ff ec | . | MOVE.L (A6-0x14),D0 00023de6 52 80 |R | ADDQ.L #0x1,D0 00023de8 2f 14 |/ | MOVE.L (A4),-(A7) 00023dea 2a 00 |* | MOVE.L D0,D5 00023dec ba 97 | | CMP.L (A7),D5 00023dee 6e 58 |nX | BGT 0x23e48 00023df0 55 4f |UO | SUBQ.L #0x2,A7 00023df2 2f 13 |/ | MOVE.L (A3),-(A7) 00023df4 2f 12 |/ | MOVE.L (A2),-(A7) 00023df6 2f 05 |/ | MOVE.L D5,-(A7) 00023df8 4e ba f5 0e |N | JSR 0x23308 00023dfc de c1 | | ADDA.W D1,A7 00023dfe 10 1f | | MOVE.B (A7)+,D0 00023e00 0c 00 00 3d | = | CMPI.B #0x3d,D0 00023e04 66 3e |f> | BNE 0x23e44 00023e06 20 05 | | MOVE.L D5,D0 00023e08 52 80 |R | ADDQ.L #0x1,D0 00023e0a 2f 14 |/ | MOVE.L (A4),-(A7) 00023e0c 2e 00 |. | MOVE.L D0,D7 00023e0e be 97 | | CMP.L (A7),D7 00023e10 6e 2e |n. | BGT 0x23e40 00023e12 55 4f |UO | SUBQ.L #0x2,A7 00023e14 2f 13 |/ | MOVE.L (A3),-(A7) 00023e16 2f 12 |/ | MOVE.L (A2),-(A7) 00023e18 2f 07 |/ | MOVE.L D7,-(A7) 00023e1a 4e ba f4 ec |N | JSR 0x23308 00023e1e de c1 | | ADDA.W D1,A7 00023e20 1c 1f | | MOVE.B (A7)+,D6 00023e22 0c 06 00 2f | / | CMPI.B #0x2f,D6 00023e26 66 04 |f | BNE 0x23e2c 00023e28 50 4f |PO | ADDQ.L #0x8,A7 00023e2a 60 1e |` | BRA 0x23e4a 00023e2c 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 00023e30 2f 10 |/ | MOVE.L (A0),-(A7) 00023e32 1f 06 | | MOVE.B D6,-(A7) 00023e34 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00023e3a 5c 4f |\O | ADDQ.L #0x6,A7 00023e3c 52 87 |R | ADDQ.L #0x1,D7 00023e3e 68 ce |h | BVC 0x23e0e 00023e40 50 4f |PO | ADDQ.L #0x8,A7 00023e42 60 06 |` | BRA 0x23e4a 00023e44 52 85 |R | ADDQ.L #0x1,D5 00023e46 68 a4 |h | BVC 0x23dec 00023e48 58 4f |XO | ADDQ.L #0x4,A7 00023e4a 4c df 1f e7 |L | MOVEM.L (A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3+A4 00023e4e 4e 5e |N^ | UNLK A6 00023e50 4e 75 |Nu | RTS 00023e52 ; -------------------------------------------------------------------------------------- 00023e52 ; OMSI PASCAL Function 00023e52 ; <LVAR 0x00c @ 4(r)> 00023e52 ; <LVAR 0x008 4(r)> 00023e52 ; <LVAR -0x010 @ 1(r)> 00023e52 ; -------------------------------------------------------------------------------------- 00023e52 4e 56 ff c0 |NV | LINK.W A6,#0xffc0 00023e56 bf d5 | | CMPA.L (A5),A7 00023e58 62 06 |b | BHI 0x23e60 00023e5a 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023e5e 4e 76 |Nv | TRAPV 00023e60 de fc 00 30 | 0 | ADDA.W #0x30,A7 00023e64 48 e7 87 f0 |H | MOVEM.L A3+A2+A1+A0+D7+D6+D5+D0,-(A7) 00023e68 43 f9 00 02 56 14 |C V | LEA.L 0x25614,A1 00023e6e 45 ee 00 08 |E | LEA.L (A6+0x8),A2 00023e72 47 ee 00 0c |G | LEA.L (A6+0xc),A3 00023e76 2f 13 |/ | MOVE.L (A3),-(A7) 00023e78 2f 12 |/ | MOVE.L (A2),-(A7) 00023e7a 48 6e ff f0 |Hn | PEA.L (A6-0x10) 00023e7e 4e b9 00 02 03 a8 |N | JSR 0x203a8 00023e84 de fc 00 0c | | ADDA.W #0xc,A7 00023e88 4a 2e ff f0 |J. | TST.B (A6-0x10) 00023e8c 66 50 |fP | BNE 0x23ede 00023e8e 2e 11 |. | MOVE.L (A1),D7 00023e90 59 4f |YO | SUBQ.L #0x4,A7 00023e92 2f 12 |/ | MOVE.L (A2),-(A7) 00023e94 4e ba d0 80 |N | JSR 0x20f16 00023e98 58 4f |XO | ADDQ.L #0x4,A7 00023e9a 2c 1f |, | MOVE.L (A7)+,D6 00023e9c 2f 13 |/ | MOVE.L (A3),-(A7) 00023e9e 2f 12 |/ | MOVE.L (A2),-(A7) 00023ea0 4e ba f3 2a |N * | JSR 0x231cc 00023ea4 50 4f |PO | ADDQ.L #0x8,A7 00023ea6 2a 11 |* | MOVE.L (A1),D5 00023ea8 20 07 | | MOVE.L D7,D0 00023eaa 53 80 |S | SUBQ.L #0x1,D0 00023eac 0c 80 00 00 0f ff | | CMPI.L #0x00000fff,D0 00023eb2 63 02 |c | BLS 0x23eb6 00023eb4 4e 4f |NO | TRAP #15 00023eb6 41 f9 00 02 46 0c |A F | LEA.L 0x2460c,A0 00023ebc 10 30 08 08 | 0 | MOVE.B (A0+D0.L+#0x8),D0 00023ec0 0c 00 00 25 | % | CMPI.B #0x25,D0 00023ec4 66 0c |f | BNE 0x23ed2 00023ec6 22 87 |" | MOVE.L D7,(A1) 00023ec8 2f 12 |/ | MOVE.L (A2),-(A7) 00023eca 2f 06 |/ | MOVE.L D6,-(A7) 00023ecc 4e ba fb 5c |N \ | JSR 0x23a2a 00023ed0 50 4f |PO | ADDQ.L #0x8,A7 00023ed2 52 87 |R | ADDQ.L #0x1,D7 00023ed4 be b9 00 02 56 18 | V | CMP.L 0x25618,D7 00023eda 6f cc |o | BLE 0x23ea8 00023edc 22 85 |" | MOVE.L D5,(A1) 00023ede 48 53 |HS | PEA.L (A3) 00023ee0 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00023ee6 58 4f |XO | ADDQ.L #0x4,A7 00023ee8 4c df 0f e1 |L | MOVEM.L (A7)+,D0+D5+D6+D7+A0+A1+A2+A3 00023eec 4e 5e |N^ | UNLK A6 00023eee 4e 75 |Nu | RTS 00023ef0 ; -------------------------------------------------------------------------------------- 00023ef0 ; OMSI PASCAL Function 00023ef0 ; <LVAR -0x006 @ 4(r)> 00023ef0 ; <LVAR -0x00a @ 4(rw)> 00023ef0 ; <LVAR -0x00b 1(w)> 00023ef0 ; <LVAR -0x00c @ 1(r)> 00023ef0 ; -------------------------------------------------------------------------------------- 00023ef0 4e 56 ff 94 |NV | LINK.W A6,#0xff94 00023ef4 bf d5 | | CMPA.L (A5),A7 00023ef6 62 06 |b | BHI 0x23efe 00023ef8 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023efc 4e 76 |Nv | TRAPV 00023efe de fc 00 54 | T | ADDA.W #0x54,A7 00023f02 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00023f06 45 ee ff fa |E | LEA.L (A6-0x6),A2 00023f0a 47 f9 00 02 56 14 |G V | LEA.L 0x25614,A3 00023f10 49 ee ff f6 |I | LEA.L (A6-0xa),A4 00023f14 2e 13 |. | MOVE.L (A3),D7 00023f16 48 52 |HR | PEA.L (A2) 00023f18 48 6e ff f4 |Hn | PEA.L (A6-0xc) 00023f1c 4e ba cf 4c |N L | JSR 0x20e6a 00023f20 50 4f |PO | ADDQ.L #0x8,A7 00023f22 2c 13 |, | MOVE.L (A3),D6 00023f24 59 4f |YO | SUBQ.L #0x4,A7 00023f26 2f 12 |/ | MOVE.L (A2),-(A7) 00023f28 4e ba cf ec |N | JSR 0x20f16 00023f2c 58 4f |XO | ADDQ.L #0x4,A7 00023f2e 20 1f | | MOVE.L (A7)+,D0 00023f30 0c 80 ff ff ff ff | | CMPI.L #0xffffffff,D0 00023f36 67 00 02 ac |g | BEQ 0x241e4 00023f3a 59 4f |YO | SUBQ.L #0x4,A7 00023f3c 2f 12 |/ | MOVE.L (A2),-(A7) 00023f3e 48 78 00 00 |Hx | PEA.L 0x0 00023f42 4e ba d8 ee |N | JSR 0x21832 00023f46 50 4f |PO | ADDQ.L #0x8,A7 00023f48 28 97 |( | MOVE.L (A7),(A4) 00023f4a 54 4f |TO | ADDQ.L #0x2,A7 00023f4c 2f 14 |/ | MOVE.L (A4),-(A7) 00023f4e 4e ba f1 c4 |N | JSR 0x23114 00023f52 58 4f |XO | ADDQ.L #0x4,A7 00023f54 10 1f | | MOVE.B (A7)+,D0 00023f56 48 80 |H | EXTB.W D0 00023f58 41 bc 00 2b |A + | CHK.W #0x2b,D0 00023f5c 1d 40 ff f5 | @ | MOVE.B D0,(A6-0xb) 00023f60 4a 00 |J | TST.B D0 00023f62 66 0e |f | BNE 0x23f72 00023f64 2f 14 |/ | MOVE.L (A4),-(A7) 00023f66 2f 12 |/ | MOVE.L (A2),-(A7) 00023f68 4e ba fe e8 |N | JSR 0x23e52 00023f6c 50 4f |PO | ADDQ.L #0x8,A7 00023f6e 60 00 02 6c |` l | BRA 0x241dc 00023f72 48 54 |HT | PEA.L (A4) 00023f74 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00023f7a 58 4f |XO | ADDQ.L #0x4,A7 00023f7c 12 00 | | MOVE.B D0,D1 00023f7e 48 81 |H | EXTB.W D1 00023f80 43 bc 00 2b |C + | CHK.W #0x2b,D1 00023f84 41 fa ca 86 |A | LEA.L 0x20a0c,A0 00023f88 30 01 |0 | MOVE.W D1,D0 00023f8a 48 c0 |H | EXTW.L D0 00023f8c 24 00 |$ | MOVE.L D0,D2 00023f8e e2 9a | | ROR.L #0x1,D2 00023f90 d0 c2 | | ADDA.W D2,A0 00023f92 48 42 |HB | SWAP.W D2 00023f94 e7 5a | Z | ROL.W #0x3,D2 00023f96 42 83 |B | CLR.L D3 00023f98 16 10 | | MOVE.B (A0),D3 00023f9a e5 2b | + | LSL.B D2,D3 00023f9c e8 0b | | LSR.B #0x4,D3 00023f9e 2a 03 |* | MOVE.L D3,D5 00023fa0 0c 85 00 00 00 0f | | CMPI.L #0x0000000f,D5 00023fa6 67 2c |g, | BEQ 0x23fd4 00023fa8 28 00 |( | MOVE.L D0,D4 00023faa 76 0a |v | MOVEQ.L #0x0a,D3 00023fac 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4 00023fb2 41 fa c8 8a |A | LEA.L COMMAND_TABLE_2083e,A0 00023fb6 9e fc 00 0a | | SUBA.W #0xa,A7 00023fba 22 4f |"O | MOVEA.L A7,A1 00023fbc 41 f0 40 00 |A @ | LEA.L (A0+D4.W),A0 00023fc0 70 09 |p | MOVEQ.L #0x09,D0 00023fc2 12 d8 | | MOVE.B (A0)+,(A1)+ 00023fc4 51 c8 ff fc |Q | DBF D0,0x23fc2 00023fc8 2f 12 |/ | MOVE.L (A2),-(A7) 00023fca 2f 05 |/ | MOVE.L D5,-(A7) 00023fcc 4e ba cf 7e |N ~ | JSR 0x20f4c 00023fd0 de fc 00 12 | | ADDA.W #0x12,A7 00023fd4 53 41 |SA | SUBQ.W #0x1,D1 00023fd6 0c 41 00 2a | A * | CMPI.W #0x002a,D1 00023fda 63 02 |c | BLS 0x23fde 00023fdc 4e 4e |NN | TRAP #14 00023fde d2 41 | A | ADD.W D1,D1 00023fe0 32 3b 10 06 4e fb 10 02 |2; N | SWITCH D1.W 00023fe8 00 56 | V | .CONST 0x56 ; [0x0] -> 0x2403e 00023fea 00 62 | b | .CONST 0x62 ; [0x1] -> 0x2404a 00023fec 00 74 | t | .CONST 0x74 ; [0x2] -> 0x2405c 00023fee 00 82 | | .CONST 0x82 ; [0x3] -> 0x2406a 00023ff0 01 e6 | | .CONST 0x1e6 ; [0x4] -> 0x241ce 00023ff2 00 8a | | .CONST 0x8a ; [0x5] -> 0x24072 00023ff4 00 8e | | .CONST 0x8e ; [0x6] -> 0x24076 00023ff6 00 96 | | .CONST 0x96 ; [0x7] -> 0x2407e 00023ff8 00 9e | | .CONST 0x9e ; [0x8] -> 0x24086 00023ffa 00 a6 | | .CONST 0xa6 ; [0x9] -> 0x2408e 00023ffc 00 ae | | .CONST 0xae ; [0xa] -> 0x24096 00023ffe 00 b6 | | .CONST 0xb6 ; [0xb] -> 0x2409e 00024000 00 be | | .CONST 0xbe ; [0xc] -> 0x240a6 00024002 00 c6 | | .CONST 0xc6 ; [0xd] -> 0x240ae 00024004 00 ce | | .CONST 0xce ; [0xe] -> 0x240b6 00024006 00 d6 | | .CONST 0xd6 ; [0xf] -> 0x240be 00024008 00 e0 | | .CONST 0xe0 ; [0x10] -> 0x240c8 0002400a 00 ea | | .CONST 0xea ; [0x11] -> 0x240d2 0002400c 00 f4 | | .CONST 0xf4 ; [0x12] -> 0x240dc 0002400e 00 fe | | .CONST 0xfe ; [0x13] -> 0x240e6 00024010 01 08 | | .CONST 0x108 ; [0x14] -> 0x240f0 00024012 01 12 | | .CONST 0x112 ; [0x15] -> 0x240fa 00024014 01 1c | | .CONST 0x11c ; [0x16] -> 0x24104 00024016 01 26 | & | .CONST 0x126 ; [0x17] -> 0x2410e 00024018 01 30 | 0 | .CONST 0x130 ; [0x18] -> 0x24118 0002401a 01 3a | : | .CONST 0x13a ; [0x19] -> 0x24122 0002401c 01 44 | D | .CONST 0x144 ; [0x1a] -> 0x2412c 0002401e 01 4e | N | .CONST 0x14e ; [0x1b] -> 0x24136 00024020 01 58 | X | .CONST 0x158 ; [0x1c] -> 0x24140 00024022 01 62 | b | .CONST 0x162 ; [0x1d] -> 0x2414a 00024024 01 6c | l | .CONST 0x16c ; [0x1e] -> 0x24154 00024026 01 76 | v | .CONST 0x176 ; [0x1f] -> 0x2415e 00024028 01 80 | | .CONST 0x180 ; [0x20] -> 0x24168 0002402a 01 8a | | .CONST 0x18a ; [0x21] -> 0x24172 0002402c 01 94 | | .CONST 0x194 ; [0x22] -> 0x2417c 0002402e 01 9e | | .CONST 0x19e ; [0x23] -> 0x24186 00024030 01 a8 | | .CONST 0x1a8 ; [0x24] -> 0x24190 00024032 01 b2 | | .CONST 0x1b2 ; [0x25] -> 0x2419a 00024034 01 b8 | | .CONST 0x1b8 ; [0x26] -> 0x241a0 00024036 01 c2 | | .CONST 0x1c2 ; [0x27] -> 0x241aa 00024038 01 cc | | .CONST 0x1cc ; [0x28] -> 0x241b4 0002403a 01 d6 | | .CONST 0x1d6 ; [0x29] -> 0x241be 0002403c 01 dc | | .CONST 0x1dc ; [0x2a] -> 0x241c4 0002403e switch@0x23fe0[0x0]: 0002403e 2f 12 |/ | MOVE.L (A2),-(A7) 00024040 4e ba d9 78 |N x | JSR 0x219ba 00024044 58 4f |XO | ADDQ.L #0x4,A7 00024046 60 00 01 94 |` | BRA 0x241dc 0002404a switch@0x23fe0[0x1]: 0002404a 42 27 |B' | CLR.B -(A7) 0002404c 48 78 00 01 |Hx | PEA.L 0x1 00024050 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00024056 5c 4f |\O | ADDQ.L #0x6,A7 00024058 60 00 01 82 |` | BRA 0x241dc 0002405c switch@0x23fe0[0x2]: 0002405c 59 4f |YO | SUBQ.L #0x4,A7 0002405e 4e b9 00 01 02 ac |N | JSR FSCALL_102ac 00024064 4e ba d9 2a |N * | JSR 0x21990 00024068 60 da |` | BRA 0x24044 0002406a switch@0x23fe0[0x3]: 0002406a 2f 12 |/ | MOVE.L (A2),-(A7) 0002406c 4e ba db 26 |N & | JSR 0x21b94 00024070 60 d2 |` | BRA 0x24044 00024072 switch@0x23fe0[0x5]: 00024072 60 00 01 68 |` h | BRA 0x241dc 00024076 switch@0x23fe0[0x6]: 00024076 2f 12 |/ | MOVE.L (A2),-(A7) 00024078 4e ba de 40 |N @ | JSR 0x21eba 0002407c 60 c6 |` | BRA 0x24044 0002407e switch@0x23fe0[0x7]: 0002407e 2f 12 |/ | MOVE.L (A2),-(A7) 00024080 4e ba df a4 |N | JSR 0x22026 00024084 60 be |` | BRA 0x24044 00024086 switch@0x23fe0[0x8]: 00024086 2f 12 |/ | MOVE.L (A2),-(A7) 00024088 4e ba e0 8a |N | JSR 0x22114 0002408c 60 b6 |` | BRA 0x24044 0002408e switch@0x23fe0[0x9]: 0002408e 2f 12 |/ | MOVE.L (A2),-(A7) 00024090 4e ba e4 76 |N v | JSR 0x22508 00024094 60 ae |` | BRA 0x24044 00024096 switch@0x23fe0[0xa]: 00024096 2f 12 |/ | MOVE.L (A2),-(A7) 00024098 4e ba e4 e6 |N | JSR 0x22580 0002409c 60 a6 |` | BRA 0x24044 0002409e switch@0x23fe0[0xb]: 0002409e 2f 12 |/ | MOVE.L (A2),-(A7) 000240a0 4e ba e5 56 |N V | JSR 0x225f8 000240a4 60 9e |` | BRA 0x24044 000240a6 switch@0x23fe0[0xc]: 000240a6 2f 12 |/ | MOVE.L (A2),-(A7) 000240a8 4e ba e5 7a |N z | JSR 0x22624 000240ac 60 96 |` | BRA 0x24044 000240ae switch@0x23fe0[0xd]: 000240ae 2f 12 |/ | MOVE.L (A2),-(A7) 000240b0 4e ba e6 72 |N r | JSR 0x22724 000240b4 60 8e |` | BRA 0x24044 000240b6 switch@0x23fe0[0xe]: 000240b6 2f 12 |/ | MOVE.L (A2),-(A7) 000240b8 4e ba e7 50 |N P | JSR 0x2280a 000240bc 60 86 |` | BRA 0x24044 000240be switch@0x23fe0[0xf]: 000240be 2f 12 |/ | MOVE.L (A2),-(A7) 000240c0 4e ba e7 74 |N t | JSR 0x22836 000240c4 60 00 ff 7e |` ~ | BRA 0x24044 000240c8 switch@0x23fe0[0x10]: 000240c8 2f 12 |/ | MOVE.L (A2),-(A7) 000240ca 4e ba e7 b6 |N | JSR 0x22882 000240ce 60 00 ff 74 |` t | BRA 0x24044 000240d2 switch@0x23fe0[0x11]: 000240d2 2f 12 |/ | MOVE.L (A2),-(A7) 000240d4 4e ba e7 f8 |N | JSR 0x228ce 000240d8 60 00 ff 6a |` j | BRA 0x24044 000240dc switch@0x23fe0[0x12]: 000240dc 2f 12 |/ | MOVE.L (A2),-(A7) 000240de 4e ba e8 3a |N : | JSR 0x2291a 000240e2 60 00 ff 60 |` ` | BRA 0x24044 000240e6 switch@0x23fe0[0x13]: 000240e6 2f 12 |/ | MOVE.L (A2),-(A7) 000240e8 4e ba e8 7c |N | | JSR 0x22966 000240ec 60 00 ff 56 |` V | BRA 0x24044 000240f0 switch@0x23fe0[0x14]: 000240f0 2f 12 |/ | MOVE.L (A2),-(A7) 000240f2 4e ba e8 be |N | JSR 0x229b2 000240f6 60 00 ff 4c |` L | BRA 0x24044 000240fa switch@0x23fe0[0x15]: 000240fa 2f 12 |/ | MOVE.L (A2),-(A7) 000240fc 4e ba e9 00 |N | JSR 0x229fe 00024100 60 00 ff 42 |` B | BRA 0x24044 00024104 switch@0x23fe0[0x16]: 00024104 2f 12 |/ | MOVE.L (A2),-(A7) 00024106 4e ba e9 40 |N @ | JSR 0x22a48 0002410a 60 00 ff 38 |` 8 | BRA 0x24044 0002410e switch@0x23fe0[0x17]: 0002410e 2f 12 |/ | MOVE.L (A2),-(A7) 00024110 4e ba e9 80 |N | JSR 0x22a92 00024114 60 00 ff 2e |` . | BRA 0x24044 00024118 switch@0x23fe0[0x18]: 00024118 2f 12 |/ | MOVE.L (A2),-(A7) 0002411a 4e ba e9 c0 |N | JSR 0x22adc 0002411e 60 00 ff 24 |` $ | BRA 0x24044 00024122 switch@0x23fe0[0x19]: 00024122 2f 12 |/ | MOVE.L (A2),-(A7) 00024124 4e ba ea 00 |N | JSR 0x22b26 00024128 60 00 ff 1a |` | BRA 0x24044 0002412c switch@0x23fe0[0x1a]: 0002412c 2f 12 |/ | MOVE.L (A2),-(A7) 0002412e 4e ba ea 40 |N @ | JSR 0x22b70 00024132 60 00 ff 10 |` | BRA 0x24044 00024136 switch@0x23fe0[0x1b]: 00024136 2f 12 |/ | MOVE.L (A2),-(A7) 00024138 4e ba ea 80 |N | JSR 0x22bba 0002413c 60 00 ff 06 |` | BRA 0x24044 00024140 switch@0x23fe0[0x1c]: 00024140 2f 12 |/ | MOVE.L (A2),-(A7) 00024142 4e ba ea c0 |N | JSR 0x22c04 00024146 60 00 fe fc |` | BRA 0x24044 0002414a switch@0x23fe0[0x1d]: 0002414a 2f 12 |/ | MOVE.L (A2),-(A7) 0002414c 4e ba eb 00 |N | JSR 0x22c4e 00024150 60 00 fe f2 |` | BRA 0x24044 00024154 switch@0x23fe0[0x1e]: 00024154 2f 12 |/ | MOVE.L (A2),-(A7) 00024156 4e ba eb 3a |N : | JSR 0x22c92 0002415a 60 00 fe e8 |` | BRA 0x24044 0002415e switch@0x23fe0[0x1f]: 0002415e 2f 12 |/ | MOVE.L (A2),-(A7) 00024160 4e ba eb 76 |N v | JSR 0x22cd8 00024164 60 00 fe de |` | BRA 0x24044 00024168 switch@0x23fe0[0x20]: 00024168 2f 12 |/ | MOVE.L (A2),-(A7) 0002416a 4e ba eb a2 |N | JSR 0x22d0e 0002416e 60 00 fe d4 |` | BRA 0x24044 00024172 switch@0x23fe0[0x21]: 00024172 2f 12 |/ | MOVE.L (A2),-(A7) 00024174 4e ba ec 28 |N ( | JSR 0x22d9e 00024178 60 00 fe ca |` | BRA 0x24044 0002417c switch@0x23fe0[0x22]: 0002417c 2f 12 |/ | MOVE.L (A2),-(A7) 0002417e 4e ba ec 90 |N | JSR 0x22e10 00024182 60 00 fe c0 |` | BRA 0x24044 00024186 switch@0x23fe0[0x23]: 00024186 2f 12 |/ | MOVE.L (A2),-(A7) 00024188 4e ba df ec |N | JSR 0x22176 0002418c 60 00 fe b6 |` | BRA 0x24044 00024190 switch@0x23fe0[0x24]: 00024190 2f 12 |/ | MOVE.L (A2),-(A7) 00024192 4e ba e0 4c |N L | JSR 0x221e0 00024196 60 00 fe ac |` | BRA 0x24044 0002419a switch@0x23fe0[0x25]: 0002419a 4e ba e0 16 |N | JSR 0x221b2 0002419e 60 3c |`< | BRA 0x241dc 000241a0 switch@0x23fe0[0x26]: 000241a0 2f 12 |/ | MOVE.L (A2),-(A7) 000241a2 4e ba ec de |N | JSR 0x22e82 000241a6 60 00 fe 9c |` | BRA 0x24044 000241aa switch@0x23fe0[0x27]: 000241aa 2f 12 |/ | MOVE.L (A2),-(A7) 000241ac 4e ba ed 56 |N V | JSR 0x22f04 000241b0 60 00 fe 92 |` | BRA 0x24044 000241b4 switch@0x23fe0[0x28]: 000241b4 2f 12 |/ | MOVE.L (A2),-(A7) 000241b6 4e ba ed cc |N | JSR 0x22f84 000241ba 60 00 fe 88 |` | BRA 0x24044 000241be switch@0x23fe0[0x29]: 000241be 4e ba ee 88 |N | JSR 0x23048 000241c2 60 18 |` | BRA 0x241dc 000241c4 switch@0x23fe0[0x2a]: 000241c4 2f 12 |/ | MOVE.L (A2),-(A7) 000241c6 4e ba ee a0 |N | JSR 0x23068 000241ca 60 00 fe 78 |` x | BRA 0x24044 000241ce switch@0x23fe0[0x4]: 000241ce 2e 6d 00 08 |.m | MOVEA.L (A5+0x8),A7 000241d2 3c 7c 00 00 |<| | MOVEA.W #0x0,A6 000241d6 4e f9 00 02 43 e6 |N C | JMP 0x243e6 000241dc 2f 12 |/ | MOVE.L (A2),-(A7) 000241de 4e ba c8 e8 |N | JSR 0x20ac8 000241e2 58 4f |XO | ADDQ.L #0x4,A7 000241e4 2f 06 |/ | MOVE.L D6,-(A7) 000241e6 2f 06 |/ | MOVE.L D6,-(A7) 000241e8 9f 97 | | SUB.L D7,(A7) 000241ea 4e ba ce 72 |N r | JSR 0x2105e 000241ee 50 4f |PO | ADDQ.L #0x8,A7 000241f0 26 87 |& | MOVE.L D7,(A3) 000241f2 4a 2e ff f4 |J. | TST.B (A6-0xc) 000241f6 67 00 fd 1c |g | BEQ 0x23f14 000241fa 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 000241fe 4e 5e |N^ | UNLK A6 00024200 4e 75 |Nu | RTS 00024202 ; -------------------------------------------------------------------------------------- 00024202 ; OMSI PASCAL Function 00024202 ; -------------------------------------------------------------------------------------- 00024202 START: 00024202 4f fa 00 08 |O | LEA.L MAIN,A7 00024206 4e f9 00 01 02 80 |N | JMP ?start_program 0002420c MAIN: 0002420c 23 fc 00 00 00 01 00 02 |# | MOVE.L #0x1,0x2563e 00024214 56 3e |V> | 00024216 59 4f |YO | SUBQ.L #0x4,A7 00024218 4e b9 00 01 03 c4 |N | JSR GetArgv() : String 0002421e 23 df 00 02 56 42 |# VB | MOVE.L (A7)+,0x25642 00024224 48 79 00 02 56 1c |Hy V | PEA.L 0x2561c 0002422a 4e b9 00 02 04 18 |N | JSR 0x20418 00024230 58 4f |XO | ADDQ.L #0x4,A7 00024232 20 79 00 02 56 42 | y VB | MOVEA.L 0x25642,A0 00024238 4a 50 |JP | TST.W (A0) 0002423a 6f 68 |oh | BLE 0x242a4 0002423c 51 4f |QO | SUBQ.L #0x8,A7 0002423e 20 4f | O | MOVEA.L A7,A0 00024240 43 fa c5 de |C | LEA.L 0x20820,A1 00024244 70 06 |p | MOVEQ.L #0x06,D0 00024246 10 d9 | | MOVE.B (A1)+,(A0)+ 00024248 51 c8 ff fc |Q | DBF D0,0x24246 0002424c 51 4f |QO | SUBQ.L #0x8,A7 0002424e 20 4f | O | MOVEA.L A7,A0 00024250 43 fa c5 d6 |C | LEA.L 0x20828,A1 00024254 70 06 |p | MOVEQ.L #0x06,D0 00024256 10 d9 | | MOVE.B (A1)+,(A0)+ 00024258 51 c8 ff fc |Q | DBF D0,0x24256 0002425c 51 4f |QO | SUBQ.L #0x8,A7 0002425e 48 6f 00 10 |Ho | PEA.L (A7+0x10) 00024262 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00024266 3f 3c 00 07 |?< | MOVE.W #0x7,-(A7) 0002426a 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00024270 58 4f |XO | ADDQ.L #0x4,A7 00024272 2e b9 00 02 56 42 |. VB | MOVE.L 0x25642,(A7) 00024278 59 4f |YO | SUBQ.L #0x4,A7 0002427a 48 6f 00 10 |Ho | PEA.L (A7+0x10) 0002427e 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00024282 3f 3c 00 07 |?< | MOVE.W #0x7,-(A7) 00024286 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002428c 50 4f |PO | ADDQ.L #0x8,A7 0002428e 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 00024294 de fc 00 0c | | ADDA.W #0xc,A7 00024298 23 df 00 02 56 42 |# VB | MOVE.L (A7)+,0x25642 0002429e de fc 00 10 | | ADDA.W #0x10,A7 000242a2 60 3a |`: | BRA 0x242de 000242a4 48 79 00 02 56 42 |Hy VB | PEA.L 0x25642 000242aa 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000242b0 59 4f |YO | SUBQ.L #0x4,A7 000242b2 20 4f | O | MOVEA.L A7,A0 000242b4 43 fa c5 7a |C z | LEA.L 0x20830,A1 000242b8 70 06 |p | MOVEQ.L #0x06,D0 000242ba 10 d9 | | MOVE.B (A1)+,(A0)+ 000242bc 51 c8 ff fc |Q | DBF D0,0x242ba 000242c0 59 4f |YO | SUBQ.L #0x4,A7 000242c2 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000242c6 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000242ca 3f 3c 00 07 |?< | MOVE.W #0x7,-(A7) 000242ce 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000242d4 50 4f |PO | ADDQ.L #0x8,A7 000242d6 23 df 00 02 56 42 |# VB | MOVE.L (A7)+,0x25642 000242dc 50 4f |PO | ADDQ.L #0x8,A7 000242de 13 fc 00 01 00 02 56 4c | VL| MOVE.B #0x01,0x2564c 000242e6 4a 39 00 02 56 4c |J9 VL | TST.B 0x2564c 000242ec 67 0a |g | BEQ 0x242f8 000242ee 42 39 00 02 56 4c |B9 VL | CLR.B 0x2564c 000242f4 60 00 00 b0 |` | BRA 0x243a6 000242f8 41 f9 00 02 56 26 |A V& | LEA.L 0x25626,A0 000242fe 70 04 |p | MOVEQ.L #0x04,D0 00024300 3f 20 |? | MOVE.W -(A0),-(A7) 00024302 51 c8 ff fc |Q | DBF D0,0x24300 00024306 3f 3a c5 30 |?: 0 | MOVE.W 0x20838,-(A7) 0002430a 9e fc 00 0c | | SUBA.W #0xc,A7 0002430e 48 6f 00 0e |Ho | PEA.L (A7+0xe) 00024312 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00024316 3f 3c 00 0a |?< | MOVE.W #0xa,-(A7) 0002431a 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00024320 58 4f |XO | ADDQ.L #0x4,A7 00024322 48 6f 00 10 |Ho | PEA.L (A7+0x10) 00024326 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 0002432a 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7) 0002432e 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00024334 50 4f |PO | ADDQ.L #0x8,A7 00024336 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 0002433c 50 4f |PO | ADDQ.L #0x8,A7 0002433e 4e b9 00 01 03 e4 |N | JSR AskConsoleString(prompt : String) : String 00024344 58 4f |XO | ADDQ.L #0x4,A7 00024346 23 df 00 02 56 48 |# VH | MOVE.L (A7)+,0x25648 0002434c 50 4f |PO | ADDQ.L #0x8,A7 0002434e 2e b9 00 02 56 48 |. VH | MOVE.L 0x25648,(A7) 00024354 4e ba ca 0c |N | JSR 0x20d62 00024358 54 4f |TO | ADDQ.L #0x2,A7 0002435a 3e ba c4 de |> | MOVE.W 0x2083a,(A7) 0002435e 3f 3a c4 dc |?: | MOVE.W 0x2083c,-(A7) 00024362 51 4f |QO | SUBQ.L #0x8,A7 00024364 48 6f 00 0a |Ho | PEA.L (A7+0xa) 00024368 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 0002436c 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7) 00024370 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00024376 58 4f |XO | ADDQ.L #0x4,A7 00024378 2e b9 00 02 56 48 |. VH | MOVE.L 0x25648,(A7) 0002437e 59 4f |YO | SUBQ.L #0x4,A7 00024380 48 6f 00 10 |Ho | PEA.L (A7+0x10) 00024384 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00024388 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7) 0002438c 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00024392 50 4f |PO | ADDQ.L #0x8,A7 00024394 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 0002439a de fc 00 0c | | ADDA.W #0xc,A7 0002439e 23 df 00 02 56 42 |# VB | MOVE.L (A7)+,0x25642 000243a4 58 4f |XO | ADDQ.L #0x4,A7 000243a6 42 39 00 02 56 46 |B9 VF | CLR.B 0x25646 000243ac 23 fc 00 00 00 01 00 02 |# | MOVE.L #0x1,0x25614 000243b4 56 14 |V | 000243b6 42 b9 00 02 56 18 |B V | CLR.L 0x25618 000243bc 59 4f |YO | SUBQ.L #0x4,A7 000243be 2f 39 00 02 56 42 |/9 VB | MOVE.L 0x25642,-(A7) 000243c4 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 000243ca 58 4f |XO | ADDQ.L #0x4,A7 000243cc 4e ba d5 06 |N | JSR 0x218d4 000243d0 58 4f |XO | ADDQ.L #0x4,A7 000243d2 20 39 00 02 56 14 | 9 V | MOVE.L 0x25614,D0 000243d8 b0 b9 00 02 56 18 | V | CMP.L 0x25618,D0 000243de 6e 06 |n | BGT 0x243e6 000243e0 4e ba fb 0e |N | JSR 0x23ef0 000243e4 60 ec |` | BRA 0x243d2 000243e6 48 79 00 02 56 42 |Hy VB | PEA.L 0x25642 000243ec 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000243f2 58 4f |XO | ADDQ.L #0x4,A7 000243f4 60 00 fe f0 |` | BRA 0x242e6 000243f8 4e b9 00 01 02 84 |N | .XXX[0x6] 000243fe 57 6f 72 64 73 20 65 72 |Words er| .TXT 'Words error :_' 0002440c ; -------------------------------------------------------------------------------------- 0002440c ; OMSI PASCAL Function 0002440c ; <LVAR 0x008 1(r)> 0002440c ; -------------------------------------------------------------------------------------- 0002440c PROG_FAIL: 0002440c 4e 56 ff d2 |NV | LINK.W A6,#0xffd2 00024410 bf d5 | | CMPA.L (A5),A7 00024412 62 06 |b | BHI 0x2441a 00024414 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024418 4e 76 |Nv | TRAPV 0002441a de fc 00 2c | , | ADDA.W #0x2c,A7 0002441e 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 00024422 41 fa ff e8 |A | LEA.L PROG_FAIL,A0 00024426 70 06 |p | MOVEQ.L #0x06,D0 00024428 3f 20 |? | MOVE.W -(A0),-(A7) 0002442a 51 c8 ff fc |Q | DBF D0,0x24428 0002442e 1f 3c 00 03 | < | MOVE.B #0x03,-(A7) 00024432 51 4f |QO | SUBQ.L #0x8,A7 00024434 48 6f 00 0a |Ho | PEA.L (A7+0xa) 00024438 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 0002443c 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7) 00024440 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00024446 58 4f |XO | ADDQ.L #0x4,A7 00024448 10 2e 00 08 | . | MOVE.B (A6+0x8),D0 0002444c 48 80 |H | EXTB.W D0 0002444e 48 c0 |H | EXTW.L D0 00024450 2f 00 |/ | MOVE.L D0,-(A7) 00024452 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00024458 58 4f |XO | ADDQ.L #0x4,A7 0002445a 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00024460 50 4f |PO | ADDQ.L #0x8,A7 00024462 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00024468 de fc 00 14 | | ADDA.W #0x14,A7 0002446c 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 00024470 4e 5e |N^ | UNLK A6 00024472 4e 75 |Nu | RTS 00024474 42 6f 61 72 64 20 20 20 |Board | .TXT 'Board :_ ' 00024482 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment :_ ' 00024490 53 74 61 74 75 73 20 20 |Status | .TXT 'Status :_ ' 0002449e 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment error :' 000244b0 46 61 74 61 6c 20 65 78 |Fatal ex| .TXT 'Fatal experiment error. ' 000244c8 ; -------------------------------------------------------------------------------------- 000244c8 ; OMSI PASCAL Function 000244c8 ; <LVAR 0x00e 1(r)> 000244c8 ; <LVAR 0x00a 4(r)> 000244c8 ; <LVAR 0x008 1(r)> 000244c8 ; -------------------------------------------------------------------------------------- 000244c8 EXP_FAIL: 000244c8 4e 56 ff 8c |NV | LINK.W A6,#0xff8c 000244cc bf d5 | | CMPA.L (A5),A7 000244ce 62 06 |b | BHI 0x244d6 000244d0 44 fc 00 02 |D | MOVE.W #0x2,CCR 000244d4 4e 76 |Nv | TRAPV 000244d6 de fc 00 74 | t | ADDA.W #0x74,A7 000244da 48 e7 fc f8 |H | MOVEM.L A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7) 000244de 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 000244e4 49 f9 00 01 03 e0 |I | LEA.L WriteConsoleStringCrLf(str : String),A4 000244ea 72 01 |r | MOVEQ.L #0x01,D1 000244ec 74 0d |t | MOVEQ.L #0x0d,D2 000244ee 76 1e |v | MOVEQ.L #0x1e,D3 000244f0 78 12 |x | MOVEQ.L #0x12,D4 000244f2 7a 0e |z | MOVEQ.L #0x0e,D5 000244f4 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 000244fa 41 fa ff b4 |A | LEA.L 0x244b0,A0 000244fe 70 08 |p | MOVEQ.L #0x08,D0 00024500 3f 20 |? | MOVE.W -(A0),-(A7) 00024502 51 c8 ff fc |Q | DBF D0,0x24500 00024506 59 4f |YO | SUBQ.L #0x4,A7 00024508 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002450c 3f 01 |? | MOVE.W D1,-(A7) 0002450e 3f 04 |? | MOVE.W D4,-(A7) 00024510 4e 93 |N | JSR (A3) 00024512 50 4f |PO | ADDQ.L #0x8,A7 00024514 4e 94 |N | JSR (A4) 00024516 50 4f |PO | ADDQ.L #0x8,A7 00024518 20 4f | O | MOVEA.L A7,A0 0002451a 43 fa ff 58 |C X | LEA.L 0x24474,A1 0002451e 70 0c |p | MOVEQ.L #0x0c,D0 00024520 10 d9 | | MOVE.B (A1)+,(A0)+ 00024522 51 c8 ff fc |Q | DBF D0,0x24520 00024526 51 4f |QO | SUBQ.L #0x8,A7 00024528 48 6f 00 08 |Ho | PEA.L (A7+0x8) 0002452c 3f 01 |? | MOVE.W D1,-(A7) 0002452e 3f 02 |? | MOVE.W D2,-(A7) 00024530 4e 93 |N | JSR (A3) 00024532 54 4f |TO | ADDQ.L #0x2,A7 00024534 1e ae 00 0e | | MOVE.B (A6+0xe),(A7) 00024538 4e b9 00 01 04 9c |N | JSR BoardName(address : B) : String 0002453e 54 4f |TO | ADDQ.L #0x2,A7 00024540 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00024546 50 4f |PO | ADDQ.L #0x8,A7 00024548 4e 94 |N | JSR (A4) 0002454a de c4 | | ADDA.W D4,A7 0002454c 20 6e 00 0a | n | MOVEA.L (A6+0xa),A0 00024550 b0 c1 | | CMPA.W D1,A0 00024552 67 48 |gH | BEQ 0x2459c 00024554 9e c5 | | SUBA.W D5,A7 00024556 22 4f |"O | MOVEA.L A7,A1 00024558 45 fa ff 28 |E ( | LEA.L 0x24482,A2 0002455c 70 0c |p | MOVEQ.L #0x0c,D0 0002455e 12 da | | MOVE.B (A2)+,(A1)+ 00024560 51 c8 ff fc |Q | DBF D0,0x2455e 00024564 9e c3 | | SUBA.W D3,A7 00024566 22 4f |"O | MOVEA.L A7,A1 00024568 41 e8 00 fc |A | LEA.L (A0+0xfc),A0 0002456c 70 1d |p | MOVEQ.L #0x1d,D0 0002456e 12 d8 | | MOVE.B (A0)+,(A1)+ 00024570 51 c8 ff fc |Q | DBF D0,0x2456e 00024574 51 4f |QO | SUBQ.L #0x8,A7 00024576 48 6f 00 26 |Ho & | PEA.L (A7+0x26) 0002457a 3f 01 |? | MOVE.W D1,-(A7) 0002457c 3f 02 |? | MOVE.W D2,-(A7) 0002457e 4e 93 |N | JSR (A3) 00024580 58 4f |XO | ADDQ.L #0x4,A7 00024582 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00024586 3f 01 |? | MOVE.W D1,-(A7) 00024588 3f 03 |? | MOVE.W D3,-(A7) 0002458a 4e 93 |N | JSR (A3) 0002458c 50 4f |PO | ADDQ.L #0x8,A7 0002458e 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00024594 50 4f |PO | ADDQ.L #0x8,A7 00024596 4e 94 |N | JSR (A4) 00024598 de fc 00 30 | 0 | ADDA.W #0x30,A7 0002459c 9e c5 | | SUBA.W D5,A7 0002459e 20 4f | O | MOVEA.L A7,A0 000245a0 43 fa fe ee |C | LEA.L 0x24490,A1 000245a4 70 0c |p | MOVEQ.L #0x0c,D0 000245a6 10 d9 | | MOVE.B (A1)+,(A0)+ 000245a8 51 c8 ff fc |Q | DBF D0,0x245a6 000245ac 51 4f |QO | SUBQ.L #0x8,A7 000245ae 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000245b2 3f 01 |? | MOVE.W D1,-(A7) 000245b4 3f 02 |? | MOVE.W D2,-(A7) 000245b6 4e 93 |N | JSR (A3) 000245b8 54 4f |TO | ADDQ.L #0x2,A7 000245ba 1e ae 00 08 | | MOVE.B (A6+0x8),(A7) 000245be 4e b9 00 01 04 a2 |N | JSR ExpStatus2Text(status.B, &String) 000245c4 54 4f |TO | ADDQ.L #0x2,A7 000245c6 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000245cc 50 4f |PO | ADDQ.L #0x8,A7 000245ce 4e 94 |N | JSR (A4) 000245d0 5d 4f |]O | SUBQ.L #0x6,A7 000245d2 20 4f | O | MOVEA.L A7,A0 000245d4 43 fa fe da |C | LEA.L 0x244b0,A1 000245d8 70 16 |p | MOVEQ.L #0x16,D0 000245da 10 d9 | | MOVE.B (A1)+,(A0)+ 000245dc 51 c8 ff fc |Q | DBF D0,0x245da 000245e0 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 000245e4 59 4f |YO | SUBQ.L #0x4,A7 000245e6 48 6f 00 06 |Ho | PEA.L (A7+0x6) 000245ea 3f 01 |? | MOVE.W D1,-(A7) 000245ec 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7) 000245f0 4e 93 |N | JSR (A3) 000245f2 50 4f |PO | ADDQ.L #0x8,A7 000245f4 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 000245fa de c3 | | ADDA.W D3,A7 000245fc 4c df 1f 3f |L ? | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4 00024600 4e 5e |N^ | UNLK A6 00024602 4e 75 |Nu | RTS