|
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: @(#)SCAN,1.1,92/07/09,12:00:00, M200_PROGRAM
Names: »SCAN.M200«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »SCAN.M200«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »SCAN.M200«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »SCAN.M200«
@ 2016c
<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 2016c-20272 Body>
<POP 2016c-20182 Prologue> Σ0 ↓
<POP 20182-2018e RegCacheLoad> Σ0 ↓
<POP 2018e-201ae Naked> Σ0 ↓
<MI 2018e MOVEQ.L #0x00,D7> {}
<Pointer.fp 0x20190 <LVAR -0x00c @ 4(rw)>> Δ-4 {[@@-12]}
<Call 0x20192 0x102b8> {[@@-12]}
NewString(VAR a : String)
<POP 20198-2019a StackAdj> Δ+2 {[-2-]}
<POP 2019a-2019b StackAdj> Δ+2 {}
<Const 0x2019b 0x1.2> Δ-2 {[#1]}
<MI 2019c MOVEA.L (A6+0xc),A0> {[#1]}
<MI 201a0 MOVE.L (A0),-(A7)> Δ-4 {[#1]|[4, '(A0)']}
<Pointer.fp 0x201a2 <LVAR -0x010 @ 4(r)>> Δ-4 {[#1]|[4, '(A0)']|[@@-16]}
<Call 0x201a4 0x10458> {[#1]|[4, '(A0)']|[@@-16]}
DirFirst(MOD c : Bool; a : String; VAR b : File)
<POP 201aa-201ae StackAdj> Δ+10 {}
<POP 201ae-201b6 Naked> Σ0 ↓ →0x2025c ←0x2024c
<MI 201ae MOVEA.L (A6-0x10),A0> {}
<MI 201b0 CMPA.W #0x01,A0> {}
<MI 201b2 BEQ 0x2025c> {}
<POP 201b6-201e4 Naked> Σ0 ↓ →0x20244 ←0x20244
<MI 201b6 MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0x10)']}
<Pointer.fp 0x201b8 <LVAR -0x00c @ 4(rw)>> Δ-4 {[4, '(A6-0x10)']|[@@-12]}
<Pointer.fp 0x201ba <LVAR -0x008 @ 1(r)>> Δ-4 {[4, '(A6-0x10)']|[@@-12]|[@@-8]}
<Call 0x201be 0x1043c> {[4, '(A6-0x10)']|[@@-12]|[@@-8]}
FileReadLine(file : File; VAR a : String; VAR b : Byte)
<POP 201c4-201c6 StackAdj> Δ+4 {[4, '(A6-0x10)']|[@@-12]}
<MI 201c6 MOVE.L (A6-0xc),(A7)> {[4, '(A6-0x10)']|[4, '(A6-0xc)']}
<Call 0x201c8 0x102f0> {[4, '(A6-0x10)']|[4, '(A6-0xc)']}
ToUpper(a : String) : String
<POP 201ce-201d0 StackAdj> Δ+4 {[4, '(A6-0x10)']}
<MI 201d0 MOVE.L (A7),(A6-0xc)> {[4, '(A6-0x10)']}
<MI 201d2 MOVE.L (A6-0xc),-(A7)> Δ-4 {[4, '(A6-0x10)']|[4, '(A6-0xc)']}
<MI 201d4 MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6-0x10)']|[4, '(A6-0xc)']|[4, '(A6+0x8)']}
<Call 0x201d8 0x10300> {[4, '(A6-0x10)']|[4, '(A6-0xc)']|[4, '(A6+0x8)']}
FSCALL_10300
<POP 201de-201e0 StackAdj> Δ+8 {[4, '(A6-0x10)']}
<MI 201e0 TST.L (A7)+> Δ+4 {}
<MI 201e2 BEQ 0x20244> {}
<POP 201e4-201e8 Naked> Σ0 ↓ →0x20212
<MI 201e4 TST.L D7> {}
<MI 201e6 BNE 0x20212> {}
<POP 201e8-20212 Naked> Σ0 ↓
<MI 201e8 MOVEA.L (A6-0x10),A0> {}
<POP 201ea-201ec StackAdj> Δ-30 {[-30-]}
<MI 201ec MOVEA.L A7,A1> {[-30-]}
<BlockMove 30,A0,A1> {[-30-]}
<POP 201f6-201f8 StackAdj> Δ-4 {[-34-]}
<Lit 0x201f8> {[-30-]|[$$…]}
<Pointer.sp 0x201f8 4> Δ-4
<Const 0x201fc 0x1.2> Δ-2
<Const 0x201fe 0x1e.2> Δ-2
<Call 0x20200 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 20206-20208 StackAdj> Δ+8
<Call 0x20208 0x103e0> {[-30-]|[$$…]}
WriteConsoleStringCrLf(str : String)
<POP 2020e-20212 StackAdj> Δ+34 {}
<POP 20212-20244 Naked> Σ0 ↓ ←0x201e4
<Blob 0x20212 [4] @> Δ-4 {[«4""»]}
<POP 20216-20218 StackAdj> Δ-8 {[«4""»]|[-8-]}
<Lit 0x20218 4> {[«4""»]|[-4-]|[$$ _]}
<MI 20228 MOVE.L (A6-0xc),(A7)> {[«4""»]|[-4-]|[4, '(A6-0xc)']}
<POP 20222-20228 StackAdj> Δ-8 {[«4""»]|[-4-]|[4, '(A6-0xc)']|[-8-]}
<Call 0x2022a 0x102cc> {[«4""»]|[-4-]|[4, '(A6-0xc)']|[-8-]}
StringDup(a : String) : String
<POP 20230-20232 StackAdj> Δ+4 {[«4""»]|[-4-]|[4, '(A6-0xc)']|[-4-]}
<Call 0x20232 0x102d0> {[«4""»]|[-4-]|[4, '(A6-0xc)']|[-4-]}
StringCat2(a, b : String) : String
<POP 20238-2023a StackAdj> Δ+8 {[«4""»]|[-4-]}
<Call 0x2023a 0x103e0> {[«4""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 20240-20242 StackAdj> Δ+8 {}
<MI 20242 ADDQ.L #0x1,D7> {}
<POP 20244-2024c Naked> Σ0 ↓ →0x201b6 ←0x201b6
<MI 20244 TST.B (A6-0x8)> {}
<MI 20248 BEQ 0x201b6> {}
<POP 2024c-2025c Naked> Σ0 →0x201ae
<MI 2024c CLR.B -(A7)> Δ-2 {[#0]}
<Pointer.fp 0x2024e <LVAR -0x010 @ 4(r)>> Δ-4 {[#0]|[@@-16]}
<Call 0x20250 0x1045c> {[#0]|[@@-16]}
DirNext(MOD a : Bool; VAR b : File)
<POP 20256-20258 StackAdj> Δ+6 {}
<MI 20258 BRA 0x201ae> {}
<POP 2025c-2026a Naked> Σ0 ↓ ←0x201ae
<Pointer.fp 0x2025c <LVAR -0x00c @ 4(rw)>> Δ-4 {[@@-12]}
<Call 0x2025e 0x102bc> {[@@-12]}
FreeString(VAR a : String)
<POP 20264-20266 StackAdj> Δ+4 {}
<MI 20266 MOVE.L D7,(A6+0x10)> {}
<POP 2026a-20272 Epilogue> Σ0
@ 20272
<LVAR 0x008 4(r)>
<LVAR -0x00c @>
<LVAR -0x010 @ 4(w)>
<LVAR -0x014 @ 4(rw)>
<LVAR -0x018 @ 4(rw)>
<POP 20272-203c8 Body>
<POP 20272-20288 Prologue> Σ0 ↓
<POP 20288-2029c RegCacheLoad> Σ0 ↓
<POP 2029c-202e8 Naked> Σ0 ↓ →0x2030c
<POP 2029c-2029e StackAdj> Δ-4 {[-4-]}
<POP 2029e-2029f StackAdj> Δ+2 {[-2-]}
<Blob 0x2029f [2] @> Δ-2 {[-2-]|[«2""»]}
<MI 202a2 MOVE.B 0x2012f,(A7+0x1)> {[-2-]|[«2""»]}
<MI 202a8 MOVE.B 0x20130,(A7+0x2)> {[-2-]|[«2""»]}
<POP 202ae-202b0 StackAdj> Δ-4 {[-2-]|[«2""»]|[-4-]}
<Lit 0x202b0> {[-2-]|[«2""»]|[$$…]}
<Pointer.sp 0x202b0 4> Δ-4
<Const 0x202b4 0x1.2> Δ-2
<Const 0x202b6 0x3.2> Δ-2
<Call 0x202ba 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 202bc-202be StackAdj> Δ+8
<MI 202be MOVE.L (A7)+,(A6-0x18)> Δ+4 {[-2-]|[«2""»]}
<MI 202c0 MOVE.L (A6+0x8),(A7)> {[4, '(A6+0x8)']}
<Const 0x202c4 0x0.4> Δ-4 {[4, '(A6+0x8)']|[##0]}
<MI 202c8 MOVE.L (A6-0x18),-(A7)> Δ-4 {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x18)']}
<Pointer.fp 0x202ca <LVAR -0x014 @ 4(rw)>> Δ-4 {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x18)']|[@@-20]}
<Pointer.fp 0x202cc <LVAR -0x00c @>> Δ-4 {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x18)']|[@@-20]|[@@-12]}
<Call 0x202d0 0x23d8a> {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x18)']|[@@-20]|[@@-12]}
<POP 202d6-202d8 StackAdj> Δ+20 {}
<Pointer.fp 0x202d8 <LVAR -0x018 @ 4(rw)>> Δ-4 {[@@-24]}
<Call 0x202da 0x102bc> {[@@-24]}
FreeString(VAR a : String)
<POP 202e0-202e2 StackAdj> Δ+4 {}
<MI 202e2 MOVEA.L (A6-0x14),A0> {}
<MI 202e4 CMPA.W #0x01,A0> {}
<MI 202e6 BNE 0x2030c> {}
<POP 202e8-2030c Naked> Σ0 ↓
<Blob 0x202e8 [14] @> Δ-14 {[«14""»]}
<Const 0x202f4 0xe.2> Δ-2 {[«14""»]|[#14]}
<POP 202f6-202f8 StackAdj> Δ-4 {[«14""»]|[#14]|[-4-]}
<Lit 0x202f8 14> {[«14""»]|[#14]|[$$No /KEY switch]}
<Call 0x20304 0x103b8> {[«14""»]|[#14]|[$$No /KEY switch]}
PopProgram(status : Byte; msg : String)
<POP 2030a-2030c StackAdj> Δ+20 {}
<POP 2030c-2032c Naked> Σ0 Δ-4 ↓ ←0x2029c
<POP 2030c-2030e StackAdj> Δ-4 {[-4-]}
<MI 2030e MOVE.L A0,-(A7)> Δ-4 {[-4-]|[4, 'A0']}
<Call 0x20310 0x102f0> {[-4-]|[4, 'A0']}
ToUpper(a : String) : String
<POP 20316-20318 StackAdj> Δ+4 {[-4-]}
<MI 20318 MOVE.L (A7)+,(A6-0x14)> Δ+4 {}
<MI 2031a MOVEQ.L #0x00,D7> {}
<POP 2031c-2031e StackAdj> Δ-4 {[-4-]}
<MI 2031e MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x20322 0x20f36> {[-4-]|[4, '(A6+0x8)']}
<POP 20328-2032a StackAdj> Δ+4 {[-4-]}
<MI 2032a MOVEQ.L #0x01,D6> {[-4-]}
<POP 2032c-20330 Naked> Σ-4 ↓ →0x20356 ←0x20330
<MI 2032c CMP.L (A7),D6> {[-4-]}
<MI 2032e BGT 0x20356> {[-4-]}
<POP 20330-20356 Naked> Σ-4 ↓ →0x2032c
<POP 20330-20332 StackAdj> Δ-4 {[-8-]}
<MI 20332 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<MI 20336 MOVE.L D6,-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']|[4, 'D6']}
<Call 0x20338 0x21852> {[-8-]|[4, '(A6+0x8)']|[4, 'D6']}
<POP 2033e-20340 StackAdj> Δ+8 {[-8-]}
<MI 20340 MOVE.L (A7),(A6-0x10)> {[-8-]}
<Pointer.fp 0x20344 <LVAR -0x010 @ 4(w)>> Δ-4 {[-8-]|[@@-16]}
<MI 20348 MOVE.L (A6-0x14),-(A7)> Δ-4 {[-8-]|[@@-16]|[4, '(A6-0x14)']}
<Call 0x2034a 0x2016c> {[-8-]|[@@-16]|[4, '(A6-0x14)']}
<POP 2034e-20350 StackAdj> Δ+8 {[-8-]}
<MI 20350 ADD.L (A7)+,D7> Δ+4 {[-4-]}
<MI 20352 ADDQ.L #0x1,D6> {[-4-]}
<MI 20354 BVC 0x2032c> {[-4-]}
<POP 20356-2035c Naked> Σ-4 Δ+4 ↓ →0x203b6 ←0x2032c
<POP 20356-20358 StackAdj> Δ+4 {}
<MI 20358 CMP.L #0x01,D7> {}
<MI 2035a BLE 0x203b6> {}
<POP 2035c-203b6 Naked> Σ0 ↓
<Blob 0x2035c [10] @> Δ-10 {[«10""»]}
<Blob 0x2036e [20] @> Δ-20 {[«10""»]|[«20""»]}
<POP 2037e-20380 StackAdj> Δ-8 {[«10""»]|[«20""»]|[-8-]}
<Lit 0x20380 9> {[«10""»]|[«20""»]|[-4-]|[$$Total of_]}
<MI 2038c MOVE.L D7,(A7)> {[«10""»]|[«20""»]|[-4-]|[4, 'D7']}
<POP 2038a-2038c StackAdj> Δ-8 {[«10""»]|[«20""»]|[-4-]|[4, 'D7']|[-8-]}
<Call 0x2038e 0x102e4> {[«10""»]|[«20""»]|[-4-]|[4, 'D7']|[-8-]}
Long2String(a : Long) : String
<Lit 0x20394 19> {[«10""»]|[«20""»]|[-4-]|[4, 'D7']|[-4-]|[$$ occurrences found.]}
<Call 0x203a2 0x102d4> {[«10""»]|[«20""»]|[-4-]|[4, 'D7']|[-4-]|[$$ occurrences found.]}
StringCat3(a, b, c : String) : String
<POP 203a8-203ac StackAdj> Δ+12 {[«10""»]|[«20""»]|[-4-]}
<Call 0x203ac 0x103e0> {[«10""»]|[«20""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 203b2-203b6 StackAdj> Δ+34 {}
<POP 203b6-203c0 Naked> Σ0 ↓ ←0x20356
<Pointer.fp 0x203b6 <LVAR -0x014 @ 4(rw)>> Δ-4 {[@@-20]}
<Call 0x203b8 0x102bc> {[@@-20]}
FreeString(VAR a : String)
<POP 203be-203c0 StackAdj> Δ+4 {}
<POP 203c0-203c8 Epilogue> Σ0
@ 203c8
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 4(rw)>
<POP 203c8-20438 Body>
<POP 203c8-203de Prologue> Σ0 ↓
<POP 203de-203e4 RegCacheLoad> Σ0 ↓
<POP 203e4-20418 Naked> Σ0 ↓ →0x20424
<MI 203e4 MOVEA.L (A6+0x8),A0> {}
<MI 203e8 MOVE.B #0x01,(A0)> {}
<Blob 0x203ea [4] @> Δ-4 {[«4""»]}
<POP 203ee-203f0 StackAdj> Δ-4 {[«4""»]|[-4-]}
<Lit 0x203f0 4> {[«4""»]|[$$FIND]}
<MI 20402 MOVE.L (A7)+,(A6-0x4)> Δ+4 {[«4""»]}
<POP 20404-20406 StackAdj> Δ+2 {[-2-]}
<MI 20406 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-2-]|[4, '(A6+0x10)']}
<MI 2040a MOVE.L (A6-0x4),-(A7)> Δ-4 {[-2-]|[4, '(A6+0x10)']|[4, '(A6-0x4)']}
<Call 0x2040c 0x102c8> {[-2-]|[4, '(A6+0x10)']|[4, '(A6-0x4)']}
StringEqual(a, b : String) : Byte
<POP 20412-20414 StackAdj> Δ+8 {[-2-]}
<MI 20414 TST.B (A7)+> Δ+2 {}
<MI 20416 BEQ 0x20424> {}
<POP 20418-20424 Naked> Σ0 →0x20426
<MI 20418 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<Call 0x2041c 0x20272> {[4, '(A6+0xc)']}
<POP 20420-20422 StackAdj> Δ+4 {}
<MI 20422 BRA 0x20426> {}
<POP 20424-20426 Naked> Σ0 ↓ ←0x203e4
<MI 20424 CLR.B (A0)> {}
<POP 20426-20430 Naked> Σ0 ↓ ←0x20418
<Pointer.fp 0x20426 <LVAR -0x004 @ 4(rw)>> Δ-4 {[@@-4]}
<Call 0x20428 0x102bc> {[@@-4]}
FreeString(VAR a : String)
<POP 2042e-20430 StackAdj> Δ+4 {}
<POP 20430-20438 Epilogue> Σ0
@ 20438
<LVAR 0x008 4(r)>
<POP 20438-2046c Body>
<POP 20438-2044e Prologue> Σ0 ↓
<POP 2044e-20464 Naked> Σ0 ↓
<Call 0x2044e 0x10398> {}
FSCALL_10398
<MI 20454 MOVEA.L (A6+0x8),A0> {}
<MI 20458 LEA.L 0x20162,A1> {}
<BlockMove 10,A1,A0> {}
<POP 20464-2046c Epilogue> Σ0
@ 20ae8
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 4(w)>
<POP 20ae8-20b2a Body>
<POP 20ae8-20afe Prologue> Σ0 ↓
<POP 20afe-20b02 Naked> Σ0 ↓
<MI 20afe MOVEA.L (A6+0x8),A4> {}
<POP 20b02-20b08 Naked> Σ0 ↓ →0x20b22 ←0x20b08
<MI 20b02 CMPA.W #0x1,A4> {}
<MI 20b06 BEQ 0x20b22> {}
<POP 20b08-20b22 Naked> Σ0 →0x20b02
<MI 20b08 MOVE.L A4,(A6-0x4)> {}
<MI 20b0c MOVEA.L (A4+0x8),A4> {}
<Pointer.fp 0x20b10 <LVAR -0x004 @ 4(w)>> Δ-4 {[@@-4]}
<Const 0x20b14 0xc.4> Δ-4 {[@@-4]|[##12]}
<Call 0x20b18 0x102a8> {[@@-4]|[##12]}
Free2(a : Pointer; b : Long)
<POP 20b1e-20b20 StackAdj> Δ+8 {}
<MI 20b20 BRA 0x20b02> {}
<POP 20b22-20b2a Epilogue> Σ0 ←0x20b02
@ 20b2a
<LVAR 0x008 4(r)>
<POP 20b2a--0001 Body>
<POP 20b2a-20b40 Prologue> Σ0 ↓
<POP 20b40-20b4a Naked> Σ0 ↓ →0x20b54
<MI 20b40 MOVEA.L (A6+0x8),A0> {}
<MI 20b44 CMPA.W #0x1,A0> {}
<MI 20b48 BEQ 0x20b54> {}
<POP 20b4a-20b54 Naked> Σ0 ↓
<MI 20b4a MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Call 0x20b4c 0x103e0> {[4, 'A0']}
WriteConsoleStringCrLf(str : String)
<POP 20b52-20b54 StackAdj> Δ+4 {}
<POP 20b54-20b62 Naked> Σ0 ←0x20b40
<POP 20b54-20b62 Bailout> {}
<MI 20b54 MOVEA.L (A5+0x8),A7>
<MI 20b58 MOVEA.W #0x0,A6>
<MI 20b5c JMP 0x24406>
@ 20b88
<LVAR 0x008 1(rw)>
<POP 20b88-20bc6 Body>
<POP 20b88-20b9e Prologue> Σ0 ↓
<POP 20b9e-20bac Naked> Σ0 ↓ →0x20bb2
<MI 20b9e MOVE.L 0x26634,D0> {}
<MI 20ba4 CMP.L 0x26638,D0> {}
<MI 20baa BLE 0x20bb2> {}
<POP 20bac-20bb2 Naked> Σ0 →0x20bbe
<MI 20bac CLR.B (A6+0x8)> {}
<MI 20bb0 BRA 0x20bbe> {}
<POP 20bb2-20bbe Naked> Σ0 ↓ ←0x20b9e
<MI 20bb2 LEA.L 0x2462c,A0> {}
<MI 20bb8 MOVE.B (A0+D0.L+#0x7),(A6+0x8)> {}
<POP 20bbe-20bc6 Epilogue> Σ0 ←0x20bac
@ 20bc6
<LVAR 0x008 1(rw)>
<POP 20bc6-20c0a Body>
<POP 20bc6-20bdc Prologue> Σ0 ↓
<POP 20bdc-20be2 RegCacheLoad> Σ0 ↓
<POP 20be2-20bec Naked> Σ0 ↓ →0x20bf2
<MI 20be2 MOVE.L 0x26634,D0> {}
<MI 20be4 CMP.L 0x26638,D0> {}
<MI 20bea BLE 0x20bf2> {}
<POP 20bec-20bf2 Naked> Σ0 →0x20bfe
<MI 20bec CLR.B (A6+0x8)> {}
<MI 20bf0 BRA 0x20bfe> {}
<POP 20bf2-20bfe Naked> Σ0 ↓ ←0x20be2
<MI 20bf2 LEA.L 0x2462c,A0> {}
<MI 20bf8 MOVE.B (A0+D0.L+#0x7),(A6+0x8)> {}
<POP 20bfe-20c02 Naked> Σ0 ↓ ←0x20bec
<MI 20bfe ADDQ.L #0x1,D0> {}
<MI 20c00 MOVE.L D0,0x26634> {}
<POP 20c02-20c0a Epilogue> Σ0
@ 20c0a
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 20c0a-20ce4 Body>
<POP 20c0a-20c20 Prologue> Σ0 ↓
<POP 20c20-20c32 RegCacheLoad> Σ0 ↓
<POP 20c32-20c3e Naked> Σ0 ↓ →0x20c48 ←0x20cd8
<POP 20c32-20c34 StackAdj> Δ-2 {[-2-]}
<Call 0x20c34 0x20b88> {[-2-]}
<MI 20c38 MOVE.B (A7)+,D0> Δ+2 {}
<MI 20c3a CMP.B #0x5b,D0> {}
<MI 20c3c BNE 0x20c48> {}
<POP 20c3e-20c48 Naked> Σ0 →0x20cd8
<Call 0x20c3e 0x23f10> {}
<MI 20c44 BRA 0x20cd8> {}
<POP 20c48-20c54 Naked> Σ0 ↓ →0x20c6c ←0x20c32
<MI 20c48 MOVE.L 0x26634,D6> {}
<POP 20c4a-20c4c StackAdj> Δ-2 {[-2-]}
<Call 0x20c4c 0x20bc6> {[-2-]}
<MI 20c50 MOVE.B (A7)+,D5> Δ+2 {}
<MI 20c52 BNE 0x20c6c> {}
<POP 20c54-20c6a Naked> Σ0 →0x20cdc
<MI 20c54 MOVEA.L (A6+0xc),A0> {}
<MI 20c58 LEA.L 0x20a42,A1> {}
<BlockMove 8,A1,A0> {}
<MI 20c64 MOVEA.L (A6+0x8),A0> {}
<MI 20c66 MOVE.B #0x02,(A0)> {}
<MI 20c68 BRA 0x20cdc> {}
<POP 20c6c-20c70 Naked> Σ0 ↓ →0x20c78 ←0x20c48
<MI 20c6c CMP.B #0x2c,D5> {}
<MI 20c6e BNE 0x20c78> {}
<POP 20c70-20c78 Naked> Σ0 →0x20cc8
<MI 20c70 MOVEA.L (A6+0x8),A0> {}
<MI 20c72 MOVE.B #0x03,(A0)> {}
<MI 20c76 BRA 0x20cc8> {}
<POP 20c78-20c7c Naked> Σ0 ↓ →0x20c84 ←0x20c6c
<MI 20c78 CMP.B #0x3b,D5> {}
<MI 20c7a BNE 0x20c84> {}
<POP 20c7c-20c84 Naked> Σ0 →0x20cc8
<MI 20c7c MOVEA.L (A6+0x8),A0> {}
<MI 20c7e MOVE.B #0x01,(A0)> {}
<MI 20c82 BRA 0x20cc8> {}
<POP 20c84-20c8a Naked> Σ0 ↓ →0x20c90 ←0x20c78
<MI 20c84 CMPI.B #0x5d,D5> {}
<MI 20c88 BNE 0x20c90> {}
<POP 20c8a-20c90 Naked> Σ0 →0x20cc8
<MI 20c8a MOVEA.L (A6+0x8),A0> {}
<MI 20c8c MOVE.B #0x02,(A0)> {}
<MI 20c8e BRA 0x20cc8> {}
<POP 20c90-20c94 Naked> Σ0 ↓ ←0x20c84
<MI 20c90 MOVEA.L (A6+0x8),A0> {}
<MI 20c92 CLR.B (A0)> {}
<POP 20c94-20ca0 Naked> Σ0 ↓ →0x20ca8 ←0x20cc6
<POP 20c94-20c96 StackAdj> Δ-2 {[-2-]}
<Call 0x20c96 0x20b88> {[-2-]}
<MI 20c9a MOVE.B (A7)+,D7> Δ+2 {}
<MI 20c9c CMP.B #0x5b,D7> {}
<MI 20c9e BNE 0x20ca8> {}
<POP 20ca0-20ca8 Naked> Σ0 →0x20cc6
<Call 0x20ca0 0x23f10> {}
<MI 20ca6 BRA 0x20cc6> {}
<POP 20ca8-20cac Naked> Σ0 ↓ →0x20cba ←0x20c94
<MI 20ca8 CMP.B #0x3b,D7> {}
<MI 20caa BEQ 0x20cba> {}
<POP 20cac-20cb0 Naked> Σ0 ↓ →0x20cba
<MI 20cac CMP.B #0x2c,D7> {}
<MI 20cae BEQ 0x20cba> {}
<POP 20cb0-20cb6 Naked> Σ0 ↓ →0x20cba
<MI 20cb0 CMPI.B #0x5d,D7> {}
<MI 20cb4 BEQ 0x20cba> {}
<POP 20cb6-20cba Naked> Σ0 ↓ →0x20cbe
<MI 20cb6 TST.B D7> {}
<MI 20cb8 BNE 0x20cbe> {}
<POP 20cba-20cbc Naked> Σ0 →0x20cc8 ←0x20ca8 ←0x20cac ←0x20cb0
<MI 20cba BRA 0x20cc8> {}
<POP 20cbe-20cc6 Naked> Σ0 ↓ ←0x20cb6
<POP 20cbe-20cc0 StackAdj> Δ-2 {[-2-]}
<Call 0x20cc0 0x20bc6> {[-2-]}
<MI 20cc4 MOVE.B (A7)+,D7> Δ+2 {}
<POP 20cc6-20cc8 Naked> Σ0 →0x20c94 ←0x20ca0
<MI 20cc6 BRA 0x20c94> {}
<POP 20cc8-20cd8 Naked> Σ0 →0x20cdc ←0x20c70 ←0x20c7c ←0x20c8a ←0x20cba
<MI 20cc8 MOVEA.L (A6+0xc),A0> {}
<MI 20ccc MOVE.L D6,(A0)> {}
<MI 20cce MOVE.L 0x26634,(A0+0x4)> {}
<MI 20cd2 SUBQ.L #0x1,(A0+0x4)> {}
<MI 20cd6 BRA 0x20cdc> {}
<POP 20cd8-20cdc Naked> Σ0 →0x20c32 ←0x20c3e
<MI 20cd8 BRA 0x20c32> {}
<POP 20cdc-20ce4 Epilogue> Σ0 ←0x20c54 ←0x20cc8
@ 20ce4
<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 20ce4-20d82 Body>
<POP 20ce4-20cfa Prologue> Σ0 ↓
<POP 20cfa-20d04 RegCacheLoad> Σ0 ↓
<POP 20d04-20d10 Naked> Σ0 ↓ →0x20d16
<MI 20d04 MOVEA.L (A6+0x8),A0> {}
<MI 20d08 MOVE.B (A0),D0> {}
<MI 20d0a CMPI.B #0x01,D0> {}
<MI 20d0e BEQ 0x20d16> {}
<POP 20d10-20d16 Naked> Σ0 ↓ →0x20d24
<MI 20d10 CMPI.B #0x02,D0> {}
<MI 20d14 BNE 0x20d24> {}
<POP 20d16-20d24 Naked> Σ0 →0x20d60 ←0x20d04
<MI 20d16 MOVE.L 0x20a42,(A6-0xc)> {}
<MI 20d1a MOVE.L 0x20a46,(A6-0x8)> {}
<MI 20d20 MOVE.B D0,(A6-0x4)> {}
<MI 20d22 BRA 0x20d60> {}
<POP 20d24-20d36 Naked> Σ0 ↓ →0x20d52 ←0x20d10 ←0x20d5a
<Pointer.fp 0x20d24 <LVAR -0x00c @ 4(w)>> Δ-4 {[@@-12]}
<Pointer.fp 0x20d26 <LVAR -0x004 @ 1(rw)>> Δ-4 {[@@-12]|[@@-4]}
<Call 0x20d28 0x20c0a> {[@@-12]|[@@-4]}
<POP 20d2c-20d2e StackAdj> Δ+8 {}
<MI 20d2e MOVEA.L (A6+0x8),A0> {}
<MI 20d32 TST.B (A6-0x4)> {}
<MI 20d34 BEQ 0x20d52> {}
<POP 20d36-20d3c Naked> Σ0 ↓ →0x20d52
<MI 20d36 MOVE.B (A0),D0> {}
<MI 20d38 CMP.B #0x03,D0> {}
<MI 20d3a BNE 0x20d52> {}
<POP 20d3c-20d52 Naked> Σ0 →0x20d5a
<MI 20d3c MOVE.B (A6-0x4),D0> {}
<MI 20d3e EXTB.W D0> {}
<POP 0x20d40 LimitCheck 0x0 ≤ D0 ≤ 0x3> {}
<MI 20d42 MOVE.B D0,(A0)> {}
<MI 20d44 MOVE.L 0x20a42,(A6-0xc)> {}
<MI 20d48 MOVE.L 0x20a46,(A6-0x8)> {}
<MI 20d4e CLR.B (A6-0x4)> {}
<MI 20d50 BRA 0x20d5a> {}
<POP 20d52-20d5a Naked> Σ0 ↓ ←0x20d24 ←0x20d36
<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-20d60 Naked> Σ0 ↓ →0x20d24 ←0x20d3c
<MI 20d5a MOVE.B (A6-0x4),D0> {}
<MI 20d5c CMP.B #0x03,D0> {}
<MI 20d5e BEQ 0x20d24> {}
<POP 20d60-20d7a Naked> Σ0 ↓ ←0x20d16
<MI 20d60 MOVEA.L (A6+0x10),A0> {}
<MI 20d64 LEA.L (A6-0xc),A1> {}
<BlockMove 8,A1,A0> {}
<MI 20d6e MOVEA.L (A6+0xc),A0> {}
<MI 20d72 MOVE.B (A6-0x4),D0> {}
<MI 20d74 EXTB.W D0> {}
<POP 0x20d76 LimitCheck 0x0 ≤ D0 ≤ 0x3> {}
<MI 20d78 MOVE.B D0,(A0)> {}
<POP 20d7a-20d82 Epilogue> Σ0
@ 20d82
<LVAR 0x008 4(rw)>
<LVAR -0x004 1(rw)>
<LVAR -0x010 2(rw)>
<POP 20d82-20e8a Body>
<POP 20d82-20d98 Prologue> Σ0 ↓
<POP 20d98-20da6 RegCacheLoad> Σ0 ↓
<POP 20da6-20dbe Naked> Σ0 Δ-4 ↓
<MI 20da6 MOVEQ.L #0x01,D6> {}
<MI 20da8 CLR.W (A6-0x10)> {}
<MI 20daa MOVEQ.L #0x01,D5> {}
<POP 20dac-20dae StackAdj> Δ-4 {[-4-]}
<MI 20dae MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x20db0 0x102f0> {[-4-]|[4, '(A6+0x8)']}
ToUpper(a : String) : String
<POP 20db6-20db8 StackAdj> Δ+4 {[-4-]}
<MI 20db8 MOVE.L (A7)+,(A6+0x8)> Δ+4 {}
<MI 20dba MOVEA.L (A6+0x8),A0> {}
<MI 20dbc MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<POP 20dbe-20dca Naked> Σ-4 ↓ →0x20e78 ←0x20e5e
<MI 20dbe MOVEA.L (A7),A0> {[-4-]}
<MI 20dc0 MOVE.W (A0),D0> {[-4-]}
<MI 20dc2 EXTW.L D0> {[-4-]}
<MI 20dc4 CMP.L D0,D6> {[-4-]}
<MI 20dc6 BGT 0x20e78> {[-4-]}
<POP 20dca-20ddc Naked> Σ-4 ↓ →0x20dde
<MI 20dca CLR.L D0> {[-4-]}
<MI 20dcc MOVE.B (A0+D6.L+#0x1),D0> {[-4-]}
<MI 20dd0 ANDI.W #0x007f,D0> {[-4-]}
<MI 20dd4 MOVE.B D0,(A6-0x4)> {[-4-]}
<MI 20dd6 CMPI.B #0x09,D0> {[-4-]}
<MI 20dda BNE 0x20dde> {[-4-]}
<POP 20ddc-20dde Naked> Σ-4 ↓
<MI 20ddc MOVE.B #0x20,(A6-0x4)> {[-4-]}
<POP 20dde-20dea Naked> Σ-4 ↓ →0x20e1a ←0x20dca
<MI 20dde CLR.L D0> {[-4-]}
<MI 20de0 MOVE.B (A6-0x4),D0> {[-4-]}
<MI 20de2 SUB.W #0x20,D0> {[-4-]}
<MI 20de4 CMPI.W #0x000c,D0> {[-4-]}
<MI 20de8 BHI 0x20e1a> {[-4-]}
<POP 20dea-20df4 Naked> Σ-4 →0x20e12 →0x20e0e →0x20e1a →0x20e1a →0x20e1a →0x20e1a →0x20e1a →0x20e1a →0x20e1a →0x20e1a →0x20e1a →0x20e1a →0x20e16
<MI 20dea ADD.W D0,D0> {[-4-]}
<MI 20dec SWITCH D0.W> {[-4-]}
<POP 20e0e-20e10 Naked> Σ-4 →0x20e78 ←0x20dea
<MI 20e0e BRA 0x20e78> {[-4-]}
<POP 20e12-20e16 Naked> Σ-4 →0x20e1c ←0x20dea
<MI 20e12 MOVEQ.L #0x00,D7> {[-4-]}
<MI 20e14 BRA 0x20e1c> {[-4-]}
<POP 20e16-20e1a Naked> Σ-4 →0x20e1c ←0x20dea
<MI 20e16 MOVEQ.L #0x01,D7> {[-4-]}
<MI 20e18 BRA 0x20e1c> {[-4-]}
<POP 20e1a-20e1c Naked> Σ-4 ↓ ←0x20dde ←0x20dea ←0x20dea ←0x20dea ←0x20dea ←0x20dea ←0x20dea ←0x20dea ←0x20dea ←0x20dea ←0x20dea
<MI 20e1a MOVEQ.L #0x02,D7> {[-4-]}
<POP 20e1c-20e40 Naked> Σ-4 →0x20e46 →0x20e48 →0x20e52 ←0x20e12 ←0x20e16
<MI 20e1c MOVEQ.L #0x03,D0> {[-4-]}
<MI 20e1e MULS.W (A6-0x10),D0> {[-4-]}
<MI 20e20 LEA.L 0x20a4a,A0> {[-4-]}
<MI 20e24 LEA.L (A0+D0.W),A0> {[-4-]}
<MI 20e28 CLR.L D0> {[-4-]}
<MI 20e2a MOVE.B (A0+D7.W),D0> {[-4-]}
<POP 0x20e2e LimitCheck 0x0 ≤ D0 ≤ 0x2> {[-4-]}
<MI 20e36 ADD.W D0,D0> {[-4-]}
<MI 20e38 SWITCH D0.W> {[-4-]}
<POP 20e46-20e48 Naked> Σ-4 →0x20e5e ←0x20e1c
<MI 20e46 BRA 0x20e5e> {[-4-]}
<POP 20e48-20e52 Naked> Σ-4 →0x20e5e ←0x20e1c
<MI 20e48 MOVEA.L (A7),A0> {[-4-]}
<MI 20e4a MOVE.B (A6-0x4),(A0+D5.L+#0x1)> {[-4-]}
<MI 20e4e ADDQ.L #0x1,D5> {[-4-]}
<MI 20e50 BRA 0x20e5e> {[-4-]}
<POP 20e52-20e5e Naked> Σ-4 ↓ ←0x20e1c
<MI 20e52 MOVEA.L (A7),A0> {[-4-]}
<MI 20e54 MOVE.B #0x2c,(A0+D5.L+#0x1)> {[-4-]}
<MI 20e5a ADDQ.L #0x1,D5> {[-4-]}
<MI 20e5c SUBQ.L #0x1,D6> {[-4-]}
<POP 20e5e-20e78 Naked> Σ-4 →0x20dbe ←0x20e46 ←0x20e48
<MI 20e5e MOVEQ.L #0x03,D0> {[-4-]}
<MI 20e60 MULS.W (A6-0x10),D0> {[-4-]}
<MI 20e62 LEA.L 0x20a53,A0> {[-4-]}
<MI 20e66 LEA.L (A0+D0.W),A0> {[-4-]}
<MI 20e6a CLR.L D0> {[-4-]}
<MI 20e6c MOVE.B (A0+D7.W),D0> {[-4-]}
<MI 20e70 MOVE.W D0,(A6-0x10)> {[-4-]}
<MI 20e72 ADDQ.L #0x1,D6> {[-4-]}
<MI 20e74 BRA 0x20dbe> {[-4-]}
<POP 20e78-20e82 Naked> Σ-4 Δ+4 ↓ ←0x20dbe ←0x20e0e
<MI 20e78 MOVEA.L (A7),A0> {[-4-]}
<MI 20e7a MOVE.L D5,D0> {[-4-]}
<MI 20e7c SUBQ.L #0x1,D0> {[-4-]}
<MI 20e7e MOVE.W D0,(A0)> {[-4-]}
<POP 20e80-20e82 StackAdj> Δ+4 {}
<POP 20e82-20e8a Epilogue> Σ0
@ 20e8a
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x002 @ 1(r)>
<LVAR -0x00a @>
<LVAR -0x00e @ 4(r)>
<LVAR -0x014 @ 1(r)>
<POP 20e8a-20f36 Body>
<POP 20e8a-20ea0 Prologue> Σ0 ↓
<POP 20ea0-20ea6 RegCacheLoad> Σ0 ↓
<POP 20ea6-20eb4 Naked> Σ0 ↓ →0x20ebc
<POP 20ea6-20ea8 StackAdj> Δ-2 {[-2-]}
<Call 0x20ea8 0x20b88> {[-2-]}
<MI 20eac MOVE.B (A7)+,D0> Δ+2 {}
<MI 20eae CMPI.B #0x5b,D0> {}
<MI 20eb2 BNE 0x20ebc> {}
<POP 20eb4-20ebc Naked> Σ0 ↓
<POP 20eb4-20eb6 StackAdj> Δ-2 {[-2-]}
<Call 0x20eb6 0x20bc6> {[-2-]}
<MI 20eba MOVE.B (A7)+,D7> Δ+2 {}
<POP 20ebc-20ec6 Naked> Σ0 ↓ ←0x20ea6
<MI 20ebc MOVEA.L (A6+0xc),A0> {}
<MI 20ec0 MOVE.L #0x01,(A0)> {}
<MI 20ec2 CLR.B (A6-0x14)> {}
<POP 20ec6-20ee0 Naked> Σ0 ↓ →0x20f16 ←0x20f16
<Pointer.fp 0x20ec6 <LVAR -0x00a @>> Δ-4 {[@@-10]}
<Pointer.fp 0x20eca <LVAR -0x002 @ 1(r)>> Δ-4 {[@@-10]|[@@-2]}
<Pointer.fp 0x20ece <LVAR -0x014 @ 1(r)>> Δ-4 {[@@-10]|[@@-2]|[@@-20]}
<Call 0x20ed2 0x20ce4> {[@@-10]|[@@-2]|[@@-20]}
<POP 20ed6-20eda StackAdj> Δ+12 {}
<MI 20eda TST.B (A6-0x2)> {}
<MI 20ede BNE 0x20f16> {}
<POP 20ee0-20f0c Naked> Σ0 ↓ →0x20f10
<Pointer.fp 0x20ee0 <LVAR -0x00e @ 4(r)>> Δ-4 {[@@-14]}
<Const 0x20ee2 0xc.4> Δ-4 {[@@-14]|[##12]}
<Call 0x20ee6 0x1029c> {[@@-14]|[##12]}
Malloc1(length : Long) : Pointer
<POP 20eec-20eee StackAdj> Δ+8 {}
<MI 20eee MOVEA.L (A6-0xe),A0> {}
<MI 20ef0 MOVEA.L A0,A1> {}
<MI 20ef2 LEA.L (A6-0xa),A2> {}
<BlockMove 8,A2,A1> {}
<MI 20efe MOVE.L #0x01,(A0+0x8)> {}
<MI 20f02 MOVEA.L (A6+0xc),A0> {}
<MI 20f06 MOVEA.L (A0),A1> {}
<MI 20f08 CMPA.W #0x01,A1> {}
<MI 20f0a BNE 0x20f10> {}
<POP 20f0c-20f10 Naked> Σ0 →0x20f14
<MI 20f0c MOVE.L (A6-0xe),(A0)> {}
<MI 20f0e BRA 0x20f14> {}
<POP 20f10-20f14 Naked> Σ0 ↓ ←0x20ee0
<MI 20f10 MOVE.L (A6-0xe),(A4+0x8)> {}
<POP 20f14-20f16 Naked> Σ0 ↓ ←0x20f0c
<MI 20f14 MOVEA.L (A6-0xe),A4> {}
<POP 20f16-20f1c Naked> Σ0 ↓ →0x20ec6 ←0x20ec6
<MI 20f16 TST.B (A6-0x2)> {}
<MI 20f1a BEQ 0x20ec6> {}
<POP 20f1c-20f2c Naked> Σ0 ↓ →0x20f2e
<MI 20f1c MOVEA.L (A6+0x8),A0> {}
<MI 20f20 CLR.B (A0)> {}
<MI 20f22 MOVE.B (A6-0x2),D0> {}
<MI 20f26 CMPI.B #0x02,D0> {}
<MI 20f2a BNE 0x20f2e> {}
<POP 20f2c-20f2e Naked> Σ0 ↓
<MI 20f2c ADDQ.B #0x1,(A0)> {}
<POP 20f2e-20f36 Epilogue> Σ0 ←0x20f1c
@ 20f36
<LVAR 0x00c 4(w)>
<LVAR 0x008 4(r)>
<POP 20f36-20f6c Body>
<POP 20f36-20f4c Prologue> Σ0 ↓
<POP 20f4c-20f52 Naked> Σ0 ↓
<MI 20f4c MOVEQ.L #-0x01,D7> {}
<MI 20f4e MOVEA.L (A6+0x8),A4> {}
<POP 20f52-20f58 Naked> Σ0 ↓ →0x20f60 ←0x20f58
<MI 20f52 CMPA.W #0x1,A4> {}
<MI 20f56 BEQ 0x20f60> {}
<POP 20f58-20f60 Naked> Σ0 →0x20f52
<MI 20f58 ADDQ.L #0x1,D7> {}
<MI 20f5a MOVEA.L (A4+0x8),A4> {}
<MI 20f5e BRA 0x20f52> {}
<POP 20f60-20f64 Naked> Σ0 ↓ ←0x20f52
<MI 20f60 MOVE.L D7,(A6+0xc)> {}
<POP 20f64-20f6c Epilogue> Σ0
@ 20f6c
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 20f6c-20ff8 Body>
<POP 20f6c-20f82 Prologue> Σ0 ↓
<POP 20f82-20f84 RegCacheLoad> Σ0 ↓
<POP 20f84-20f98 Naked> Σ0 ↓ →0x20ff0
<POP 20f84-20f86 StackAdj> Δ-4 {[-4-]}
<MI 20f86 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']}
<Call 0x20f8a 0x20f36> {[-4-]|[4, '(A6+0xc)']}
<POP 20f8e-20f90 StackAdj> Δ+4 {[-4-]}
<MI 20f90 MOVE.L (A7)+,D0> Δ+4 {}
<MI 20f92 CMP.L (A6+0x8),D0> {}
<MI 20f96 BEQ 0x20ff0> {}
<POP 20f98-20ff0 Naked> Σ0 ↓
<MI 20f98 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<Call 0x20f9c 0x20ae8> {[4, '(A6+0xc)']}
<POP 20fa0-20fa2 StackAdj> Δ+4 {}
<Blob 0x20fa2 [32] @> Δ-32 {[«32""»]}
<Blob 0x20fae [10] (A6+0x1a)> Δ-10 {[«32""»]|[«10»]}
<POP 20fba-20fbc StackAdj> Δ-8 {[«32""»]|[«10»]|[-8-]}
<Lit 0x20fbc 32> {[«32""»]|[«10»]|[-4-]|[$$Wrong number of arguments for :_]}
<POP 20fcc-20fce StackAdj> Δ-4 {[«32""»]|[«10»]|[-4-]|[$$Wrong number of arguments for :_]|[-4-]}
<Lit 0x20fce> {[«32""»]|[«10»]|[-4-]|[$$Wrong number of arguments for :_]|[$$…]}
<Pointer.sp 0x20fce 12> Δ-4
<Const 0x20fd2 0x1.2> Δ-2
<Const 0x20fd4 0xa.2> Δ-2
<Call 0x20fd8 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 20fde-20fe0 StackAdj> Δ+8
<Call 0x20fe0 0x102d0> {[«32""»]|[«10»]|[-4-]|[$$Wrong number of arguments for :_]|[$$…]}
StringCat2(a, b : String) : String
<POP 20fe6-20fe8 StackAdj> Δ+8 {[«32""»]|[«10»]|[-4-]}
<Call 0x20fe8 0x20b2a> {[«32""»]|[«10»]|[-4-]}
<POP 20fec-20ff0 StackAdj> Δ+46 {}
<POP 20ff0-20ff8 Epilogue> Σ0 ←0x20f84
@ 20ff8
<LVAR 0x014 1(rw)>
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 20ff8-2107e Body> Δ-4
<POP 20ff8-2100e Prologue> Σ0 ↓
<POP 2100e-21022 Naked> Σ0 ↓ →0x21070
<MI 2100e CLR.B (A6+0x14)> {}
<MI 21012 MOVE.L (A6+0x10),D0> {}
<MI 21016 ADD.L (A6+0x8),D0> {}
<MI 2101a CMP.L 0x26638,D0> {}
<MI 21020 BGT 0x21070> {}
<POP 21022-21028 Naked> Σ0 Δ-4 ↓
<MI 21022 MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<MI 21026 MOVEQ.L #0x01,D7> {[4, '(A6+0x8)']}
<POP 21028-2102c Naked> Σ-4 ↓ →0x2106e ←0x2106a
<MI 21028 CMP.L (A7),D7> {[-4-]}
<MI 2102a BGT 0x2106e> {[-4-]}
<POP 2102c-21066 Naked> Σ-4 ↓ →0x2106a
<MI 2102c MOVE.L (A6+0x10),D0> {[-4-]}
<MI 21030 ADD.L D7,D0> {[-4-]}
<MI 21032 SUBQ.L #0x1,D0> {[-4-]}
<POP 0x21034 LimitCheck 0x0 ≤ D0 ≤ 0x1fff> {[-4-]}
<MI 2103e LEA.L 0x2462c,A0> {[-4-]}
<MI 21044 MOVE.L (A6+0xc),D1> {[-4-]}
<MI 21048 ADD.L D7,D1> {[-4-]}
<MI 2104a SUBQ.L #0x1,D1> {[-4-]}
<MI 2104c SUBQ.L #0x1,D1> {[-4-]}
<POP 0x2104e LimitCheck 0x0 ≤ D1 ≤ 0x3e> {[-4-]}
<MI 21058 LEA.L 0x20644,A1> {[-4-]}
<MI 2105c MOVE.B (A0+D0.L+#0x8),D0> {[-4-]}
<MI 21060 CMP.B (A1+D1.L),D0> {[-4-]}
<MI 21064 BEQ 0x2106a> {[-4-]}
<POP 21066-2106a Naked> Σ-4 Δ+4 →0x21076
<POP 21066-21068 StackAdj> Δ+4 {}
<MI 21068 BRA 0x21076> {}
<POP 2106a-2106e Naked> Σ-4 ↓ →0x21028 ←0x2102c
<MI 2106a ADDQ.L #0x1,D7> {[-4-]}
<MI 2106c BVC 0x21028> {[-4-]}
<POP 2106e-21070 Naked> Σ-4 Δ+4 ↓ ←0x21028
<POP 2106e-21070 StackAdj> Δ+4 {}
<POP 21070-21076 Naked> Σ0 ↓ ←0x2100e
<MI 21070 MOVE.B #0x01,(A6+0x14)> {}
<POP 21076-2107e Epilogue> Σ0 ←0x21066
@ 2107e
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 2107e-21108 Body>
<POP 2107e-21094 Prologue> Σ0 ↓
<POP 21094-2109e RegCacheLoad> Σ0 ↓
<POP 2109e-210a2 Naked> Σ0 ↓ →0x210e0
<MI 2109e TST.L (A6+0x8)> {}
<MI 210a0 BGE 0x210e0> {}
<POP 210a2-210b0 Naked> Σ0 ↓ →0x210e0
<MI 210a2 MOVE.L (A6+0x8),D0> {}
<MI 210a4 NEG.L D0> {}
<MI 210a6 ADD.L 0x26638,D0> {}
<MI 210a8 CMPI.L #0x00002000,D0> {}
<MI 210ae BLE 0x210e0> {}
<POP 210b0-210e0 Naked> Σ0 ↓
<Blob 0x210b0 [28] @> Δ-28 {[«28""»]}
<POP 210c2-210c4 StackAdj> Δ-4 {[«28""»]|[-4-]}
<Lit 0x210c4 27> {[«28""»]|[$$Evaluation buffer overflow.]}
<Call 0x210d8 0x20b2a> {[«28""»]|[$$Evaluation buffer overflow.]}
<POP 210dc-210e0 StackAdj> Δ+32 {}
<POP 210e0-21100 Naked> Σ0 ↓ ←0x2109e ←0x210a2
<MI 210e0 LEA.L 0x24634,A0> {}
<MI 210e6 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Blob 0x210e8 [4] 0x26638> Δ-4 {[4, 'A0']|[«4»]}
<MI 210ea MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, 'A0']|[«4»]|[4, '(A6+0xc)']}
<MI 210ee MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, 'A0']|[«4»]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x210f0 0x10364> {[4, 'A0']|[«4»]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
MovStringTail(Base, Len, Ptr, Delta)
<POP 210f6-210fa StackAdj> Δ+16 {}
<MI 210fa MOVE.L 0x26638,D0> {}
<MI 210fc SUB.L (A6+0x8),D0> {}
<MI 210fe MOVE.L D0,0x26638> {}
<POP 21100-21108 Epilogue> Σ0
@ 21108
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 21108-21192 Body>
<POP 21108-2111e Prologue> Σ0 ↓
<POP 2111e-21122 RegCacheLoad> Σ0 ↓
<POP 21122-21142 Naked> Σ0 Δ-8 ↓
<MI 21122 MOVEA.L (A6+0x8),A0> {}
<MI 21126 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 21128 MOVEA.L (A6+0xc),A1> {[4, 'A0']}
<MI 2112a MOVE.L (A1),-(A7)> Δ-4 {[4, 'A0']|[4, '(A1)']}
<MI 2112c MOVE.W (A0),D0> {[4, 'A0']|[4, '(A1)']}
<MI 2112e EXTW.L D0> {[4, 'A0']|[4, '(A1)']}
<MI 21130 NEG.L D0> {[4, 'A0']|[4, '(A1)']}
<MI 21132 MOVE.L D0,-(A7)> Δ-4 {[4, 'A0']|[4, '(A1)']|[4, 'D0']}
<Call 0x21134 0x2107e> {[4, 'A0']|[4, '(A1)']|[4, 'D0']}
<POP 21138-2113a StackAdj> Δ+8 {[4, 'A0']}
<MI 2113a MOVE.W (A0),D0> {[4, 'A0']}
<MI 2113c EXTW.L D0> {[4, 'A0']}
<MI 2113e MOVE.L D0,-(A7)> Δ-4 {[4, 'A0']|[4, 'D0']}
<MI 21140 MOVEQ.L #0x01,D7> {[4, 'A0']|[4, 'D0']}
<POP 21142-21146 Naked> Σ-8 ↓ →0x2117c ←0x21146
<MI 21142 CMP.L (A7),D7> {[-8-]}
<MI 21144 BGT 0x2117c> {[-8-]}
<POP 21146-2117c Naked> Σ-8 ↓ →0x21142
<MI 21146 MOVEA.L (A6+0xc),A0> {[-8-]}
<MI 21148 MOVE.L D7,D0> {[-8-]}
<MI 2114a ADD.L (A0),D0> {[-8-]}
<MI 2114c SUBQ.L #0x1,D0> {[-8-]}
<MI 2114e SUBQ.L #0x1,D0> {[-8-]}
<POP 0x21150 LimitCheck 0x0 ≤ D0 ≤ 0x1fff> {[-8-]}
<MI 2115a LEA.L 0x2462c,A0> {[-8-]}
<MI 21160 MOVE.L D7,D1> {[-8-]}
<MI 21162 SUBQ.L #0x1,D1> {[-8-]}
<POP 0x21164 LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-8-]}
<MI 2116e MOVEA.L (A7+0x4),A1> {[-8-]}
<MI 21172 MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x8)> {[-8-]}
<MI 21178 ADDQ.L #0x1,D7> {[-8-]}
<MI 2117a BVC 0x21142> {[-8-]}
<POP 2117c-2118a Naked> Σ-8 Δ+8 ↓ ←0x21142
<POP 2117c-2117e StackAdj> Δ+4 {[-4-]}
<MI 2117e MOVEA.L (A6+0xc),A0> {[-4-]}
<MI 21180 MOVEA.L (A7),A1> {[-4-]}
<MI 21182 MOVE.W (A1),D0> {[-4-]}
<MI 21184 EXTW.L D0> {[-4-]}
<MI 21186 ADD.L D0,(A0)> {[-4-]}
<POP 21188-2118a StackAdj> Δ+4 {}
<POP 2118a-21192 Epilogue> Σ0
@ 21192
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 21192-21312 Body>
<POP 21192-211a8 Prologue> Σ0 ↓
<POP 211a8-211b6 RegCacheLoad> Σ0 ↓
<POP 211b6-211c8 Naked> Σ0 ↓
<MI 211b6 MOVEQ.L #0x00,D7> {}
<MI 211b8 MOVEA.L (A6+0xc),A0> {}
<MI 211bc CLR.L (A0)> {}
<MI 211be MOVEA.L (A6+0x8),A0> {}
<MI 211c0 CLR.L (A0)> {}
<MI 211c2 MOVE.L 0x26634,D6> {}
<POP 211c8-211e8 Naked> Σ0 ↓ →0x212ba ←0x212c4 ←0x212ca
<MI 211c8 MOVE.L D6,D0> {}
<MI 211ca SUBQ.L #0x1,D0> {}
<POP 0x211cc LimitCheck 0x0 ≤ D0 ≤ 0x1fff> {}
<MI 211d6 LEA.L 0x2462c,A0> {}
<MI 211dc MOVE.B (A0+D0.L+#0x8),D0> {}
<MI 211e0 CMPI.B #0x5b,D0> {}
<MI 211e4 BNE 0x212ba> {}
<POP 211e8-211fc Naked> Σ0 ↓ →0x2127a
<POP 211e8-211ea StackAdj> Δ-2 {[-2-]}
<MI 211ea MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x211ec 0x1.4> Δ-4 {[-2-]|[4, 'D6']|[##1]}
<Const 0x211f0 0x3.4> Δ-4 {[-2-]|[4, 'D6']|[##1]|[##3]}
<Call 0x211f4 0x20ff8> {[-2-]|[4, 'D6']|[##1]|[##3]}
<POP 211f6-211f8 StackAdj> Δ+12 {[-2-]}
<MI 211f8 TST.B (A7)+> Δ+2 {}
<MI 211fa BNE 0x2127a> {}
<POP 211fc-2120e Naked> Σ0 ↓ →0x2127a
<POP 211fc-211fe StackAdj> Δ-2 {[-2-]}
<MI 211fe MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x21200 0x4.4> Δ-4 {[-2-]|[4, 'D6']|[##4]}
<Const 0x21202 0x3.4> Δ-4 {[-2-]|[4, 'D6']|[##4]|[##3]}
<Call 0x21206 0x20ff8> {[-2-]|[4, 'D6']|[##4]|[##3]}
<POP 21208-2120a StackAdj> Δ+12 {[-2-]}
<MI 2120a TST.B (A7)+> Δ+2 {}
<MI 2120c BNE 0x2127a> {}
<POP 2120e-21220 Naked> Σ0 ↓ →0x2127a
<POP 2120e-21210 StackAdj> Δ-2 {[-2-]}
<MI 21210 MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x21212 0x7.4> Δ-4 {[-2-]|[4, 'D6']|[##7]}
<Const 0x21216 0x4.4> Δ-4 {[-2-]|[4, 'D6']|[##7]|[##4]}
<Call 0x21218 0x20ff8> {[-2-]|[4, 'D6']|[##7]|[##4]}
<POP 2121a-2121c StackAdj> Δ+12 {[-2-]}
<MI 2121c TST.B (A7)+> Δ+2 {}
<MI 2121e BNE 0x2127a> {}
<POP 21220-21232 Naked> Σ0 ↓ →0x2127a
<POP 21220-21222 StackAdj> Δ-2 {[-2-]}
<MI 21222 MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x21224 0xb.4> Δ-4 {[-2-]|[4, 'D6']|[##11]}
<Const 0x21228 0x4.4> Δ-4 {[-2-]|[4, 'D6']|[##11]|[##4]}
<Call 0x2122a 0x20ff8> {[-2-]|[4, 'D6']|[##11]|[##4]}
<POP 2122c-2122e StackAdj> Δ+12 {[-2-]}
<MI 2122e TST.B (A7)+> Δ+2 {}
<MI 21230 BNE 0x2127a> {}
<POP 21232-21244 Naked> Σ0 ↓ →0x2127a
<POP 21232-21234 StackAdj> Δ-2 {[-2-]}
<MI 21234 MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x21236 0xf.4> Δ-4 {[-2-]|[4, 'D6']|[##15]}
<Const 0x2123a 0x4.4> Δ-4 {[-2-]|[4, 'D6']|[##15]|[##4]}
<Call 0x2123c 0x20ff8> {[-2-]|[4, 'D6']|[##15]|[##4]}
<POP 2123e-21240 StackAdj> Δ+12 {[-2-]}
<MI 21240 TST.B (A7)+> Δ+2 {}
<MI 21242 BNE 0x2127a> {}
<POP 21244-21256 Naked> Σ0 ↓ →0x2127a
<POP 21244-21246 StackAdj> Δ-2 {[-2-]}
<MI 21246 MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x21248 0x13.4> Δ-4 {[-2-]|[4, 'D6']|[##19]}
<Const 0x2124c 0x4.4> Δ-4 {[-2-]|[4, 'D6']|[##19]|[##4]}
<Call 0x2124e 0x20ff8> {[-2-]|[4, 'D6']|[##19]|[##4]}
<POP 21250-21252 StackAdj> Δ+12 {[-2-]}
<MI 21252 TST.B (A7)+> Δ+2 {}
<MI 21254 BNE 0x2127a> {}
<POP 21256-21268 Naked> Σ0 ↓ →0x2127a
<POP 21256-21258 StackAdj> Δ-2 {[-2-]}
<MI 21258 MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x2125a 0x17.4> Δ-4 {[-2-]|[4, 'D6']|[##23]}
<Const 0x2125e 0x4.4> Δ-4 {[-2-]|[4, 'D6']|[##23]|[##4]}
<Call 0x21260 0x20ff8> {[-2-]|[4, 'D6']|[##23]|[##4]}
<POP 21262-21264 StackAdj> Δ+12 {[-2-]}
<MI 21264 TST.B (A7)+> Δ+2 {}
<MI 21266 BNE 0x2127a> {}
<POP 21268-2127a Naked> Σ0 ↓ →0x2127e
<POP 21268-2126a StackAdj> Δ-2 {[-2-]}
<MI 2126a MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x2126c 0x1b.4> Δ-4 {[-2-]|[4, 'D6']|[##27]}
<Const 0x21270 0x4.4> Δ-4 {[-2-]|[4, 'D6']|[##27]|[##4]}
<Call 0x21272 0x20ff8> {[-2-]|[4, 'D6']|[##27]|[##4]}
<POP 21274-21276 StackAdj> Δ+12 {[-2-]}
<MI 21276 TST.B (A7)+> Δ+2 {}
<MI 21278 BEQ 0x2127e> {}
<POP 2127a-2127e Naked> Σ0 →0x212ba ←0x211e8 ←0x211fc ←0x2120e ←0x21220 ←0x21232 ←0x21244 ←0x21256
<MI 2127a ADDQ.L #0x1,D7> {}
<MI 2127c BRA 0x212ba> {}
<POP 2127e-21282 Naked> Σ0 ↓ →0x2129e ←0x21268
<MI 2127e TST.L D7> {}
<MI 21280 BNE 0x2129e> {}
<POP 21282-21296 Naked> Σ0 ↓ →0x2129e
<POP 21282-21284 StackAdj> Δ-2 {[-2-]}
<MI 21284 MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x21286 0x1f.4> Δ-4 {[-2-]|[4, 'D6']|[##31]}
<Const 0x2128a 0x5.4> Δ-4 {[-2-]|[4, 'D6']|[##31]|[##5]}
<Call 0x2128e 0x20ff8> {[-2-]|[4, 'D6']|[##31]|[##5]}
<POP 21290-21292 StackAdj> Δ+12 {[-2-]}
<MI 21292 TST.B (A7)+> Δ+2 {}
<MI 21294 BEQ 0x2129e> {}
<POP 21296-2129a Naked> Σ0 ↓
<MI 21296 MOVEA.L (A6+0xc),A0> {}
<POP 2129a-2129e Naked> Σ0 →0x212ba ←0x212b4
<MI 2129a MOVE.L D6,(A0)> {}
<MI 2129c BRA 0x212ba> {}
<POP 2129e-212b0 Naked> Σ0 ↓ →0x212ba ←0x2127e ←0x21282
<POP 2129e-212a0 StackAdj> Δ-2 {[-2-]}
<MI 212a0 MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x212a2 0x24.4> Δ-4 {[-2-]|[4, 'D6']|[##36]}
<Const 0x212a6 0x4.4> Δ-4 {[-2-]|[4, 'D6']|[##36]|[##4]}
<Call 0x212a8 0x20ff8> {[-2-]|[4, 'D6']|[##36]|[##4]}
<POP 212aa-212ac StackAdj> Δ+12 {[-2-]}
<MI 212ac TST.B (A7)+> Δ+2 {}
<MI 212ae BEQ 0x212ba> {}
<POP 212b0-212b4 Naked> Σ0 ↓ →0x212b8
<MI 212b0 TST.L D7> {}
<MI 212b2 BNE 0x212b8> {}
<POP 212b4-212b8 Naked> Σ0 →0x2129a
<MI 212b4 MOVEA.L (A6+0x8),A0> {}
<MI 212b6 BRA 0x2129a> {}
<POP 212b8-212ba Naked> Σ0 ↓ ←0x212b0
<MI 212b8 SUBQ.L #0x1,D7> {}
<POP 212ba-212c4 Naked> Σ0 ↓ →0x212d2 ←0x211c8 ←0x2127a ←0x2129a ←0x2129e
<MI 212ba ADDQ.L #0x1,D6> {}
<MI 212bc CMP.L 0x26638,D6> {}
<MI 212c2 BGT 0x212d2> {}
<POP 212c4-212ca Naked> Σ0 ↓ →0x211c8
<MI 212c4 TST.L D7> {}
<MI 212c6 BNE 0x211c8> {}
<POP 212ca-212d2 Naked> Σ0 ↓ →0x211c8
<MI 212ca MOVEA.L (A6+0x8),A0> {}
<MI 212cc TST.L (A0)> {}
<MI 212ce BEQ 0x211c8> {}
<POP 212d2-212da Naked> Σ0 ↓ →0x2130a ←0x212ba
<MI 212d2 CMP.L 0x26638,D6> {}
<MI 212d8 BLE 0x2130a> {}
<POP 212da-2130a Naked> Σ0 ↓
<Blob 0x212da [28] @> Δ-28 {[«28""»]}
<POP 212ec-212ee StackAdj> Δ-4 {[«28""»]|[-4-]}
<Lit 0x212ee 27> {[«28""»]|[$$Unbalanced [ELSE] or [END]!]}
<Call 0x21302 0x20b2a> {[«28""»]|[$$Unbalanced [ELSE] or [END]!]}
<POP 21306-2130a StackAdj> Δ+32 {}
<POP 2130a-21312 Epilogue> Σ0 ←0x212d2
@ 21312
<LVAR -0x004 @ 4(r)>
<LVAR -0x008 @ 4(rw)>
<POP 21312-21358 Body>
<POP 21312-21328 Prologue> Σ0 ↓
<POP 21328-21330 RegCacheLoad> Σ0 ↓
<POP 21330-2133e Naked> Σ0 ↓ →0x21340
<Pointer.fp 0x21330 <LVAR -0x008 @ 4(rw)>> Δ-4 {[@@-8]}
<Pointer.fp 0x21332 <LVAR -0x004 @ 4(r)>> Δ-4 {[@@-8]|[@@-4]}
<Call 0x21334 0x21192> {[@@-8]|[@@-4]}
<POP 21338-2133a StackAdj> Δ+8 {}
<MI 2133a TST.L (A6-0x8)> {}
<MI 2133c BNE 0x21340> {}
<POP 2133e-21340 Naked> Σ0 ↓
<MI 2133e MOVE.L (A6-0x4),(A6-0x8)> {}
<POP 21340-21350 Naked> Σ0 ↓ ←0x21330
<MI 21340 MOVE.L (A6-0x4),D0> {}
<MI 21342 ADDQ.L #0x5,D0> {}
<MI 21344 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 21346 SUB.L (A6-0x8),D0> {[4, 'D0']}
<MI 21348 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']|[4, 'D0']}
<Call 0x2134a 0x2107e> {[4, 'D0']|[4, 'D0']}
<POP 2134e-21350 StackAdj> Δ+8 {}
<POP 21350-21358 Epilogue> Σ0
@ 21358
<LVAR -0x004 @ 4(r)>
<LVAR -0x008 @ 4(r)>
<POP 21358-213b4 Body>
<POP 21358-2136e Prologue> Σ0 ↓
<POP 2136e-21376 RegCacheLoad> Σ0 ↓
<POP 21376-21384 Naked> Σ0 ↓ →0x2138a
<Pointer.fp 0x21376 <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-8]}
<Pointer.fp 0x21378 <LVAR -0x004 @ 4(r)>> Δ-4 {[@@-8]|[@@-4]}
<Call 0x2137a 0x21192> {[@@-8]|[@@-4]}
<POP 2137e-21380 StackAdj> Δ+8 {}
<MI 21380 TST.L (A6-0x8)> {}
<MI 21382 BNE 0x2138a> {}
<POP 21384-2138a Naked> Σ0 →0x2139c
<MI 21384 MOVE.L (A6-0x4),D0> {}
<MI 21386 ADDQ.L #0x5,D0> {}
<MI 21388 BRA 0x2139c> {}
<POP 2138a-2139c Naked> Σ0 ↓ ←0x21376
<MI 2138a MOVE.L (A6-0x4),-(A7)> Δ-4 {[4, '(A6-0x4)']}
<MI 2138c ADDQ.L #0x5,(A7)> {[-4-]}
<Const 0x2138e 0x5.4> Δ-4 {[-4-]|[##5]}
<Call 0x21392 0x2107e> {[-4-]|[##5]}
<POP 21396-21398 StackAdj> Δ+8 {}
<MI 21398 MOVE.L (A6-0x8),D0> {}
<MI 2139a ADDQ.L #0x6,D0> {}
<POP 2139c-213ac Naked> Σ0 ↓ ←0x21384
<MI 2139c MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 2139e SUB.L 0x26634,D0> {[4, 'D0']}
<MI 213a4 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']|[4, 'D0']}
<Call 0x213a6 0x2107e> {[4, 'D0']|[4, 'D0']}
<POP 213aa-213ac StackAdj> Δ+8 {}
<POP 213ac-213b4 Epilogue> Σ0
@ 213b4
<LVAR 0x008 4(r)>
<LVAR -0x004 @>
<LVAR -0x008 @ 4(r)>
<LVAR -0x00c @ 4(rw)>
<LVAR -0x010 4(rw)>
<LVAR -0x014 4(rw)>
<POP 213b4-214c8 Body>
<POP 213b4-213ca Prologue> Σ0 ↓
<POP 213ca-213e2 RegCacheLoad> Σ0 ↓
<POP 213e2-213e6 Naked> Σ0 ↓ →0x213f0
<MI 213e2 TST.B 0x26646> {}
<MI 213e4 BEQ 0x213f0> {}
<POP 213e6-213ea Naked> Σ0 ↓ →0x213f0
<MI 213e6 TST.L 0x2664c> {}
<MI 213e8 BNE 0x213f0> {}
<POP 213ea-213f0 Naked> Σ0 ↓
<MI 213ea MOVE.L (A6+0x8),0x2664c> {}
<MI 213ee SUBQ.L #0x1,0x2664c> {}
<POP 213f0-213f6 Naked> Σ0 ↓ →0x214c0 ←0x213e2 ←0x213e6
<MI 213f0 TST.B 0x26646> {}
<MI 213f2 BNE 0x214c0> {}
<POP 213f6-2142a Naked> Σ0 ↓ →0x21444
<MI 213f6 MOVE.L (A6+0x8),0x26634> {}
<MI 213fa ADDQ.L #0x6,0x26634> {}
<Pointer.fp 0x213fc <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-8]}
<Pointer.fp 0x213fe <LVAR -0x004 @>> Δ-4 {[@@-8]|[@@-4]}
<Call 0x21402 0x20e8a> {[@@-8]|[@@-4]}
<POP 21406-21408 StackAdj> Δ+8 {}
<Blob 0x21408 [10] @> Δ-10 {[«10""»]}
<MI 21414 MOVE.L (A6-0x8),-(A7)> Δ-4 {[«10""»]|[4, '(A6-0x8)']}
<Const 0x21416 0x0.4> Δ-4 {[«10""»]|[4, '(A6-0x8)']|[##0]}
<Call 0x2141a 0x20f6c> {[«10""»]|[4, '(A6-0x8)']|[##0]}
<POP 2141e-21422 StackAdj> Δ+18 {}
<MI 21422 TST.B 0x26650> {}
<MI 21428 BEQ 0x21444> {}
<POP 2142a-21444 Naked> Σ0 →0x21458
<POP 2142a-2142c StackAdj> Δ-8 {[-8-]}
<MI 2142c MOVE.L (A6-0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x8)']}
<Const 0x2142e 0x0.4> Δ-4 {[-8-]|[4, '(A6-0x8)']|[##0]}
<Call 0x21432 0x21884> {[-8-]|[4, '(A6-0x8)']|[##0]}
<POP 21438-2143a StackAdj> Δ+8 {[-8-]}
<MI 2143a MOVE.L (A7)+,(A6-0x14)> Δ+4 {[-4-]}
<MI 2143e MOVE.L (A7)+,(A6-0x10)> Δ+4 {}
<MI 21442 BRA 0x21458> {}
<POP 21444-21458 Naked> Σ0 ↓ ←0x213f6
<POP 21444-21446 StackAdj> Δ-4 {[-4-]}
<MI 21446 MOVE.L (A6-0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x8)']}
<Const 0x21448 0x0.4> Δ-4 {[-4-]|[4, '(A6-0x8)']|[##0]}
<Call 0x2144c 0x21852> {[-4-]|[4, '(A6-0x8)']|[##0]}
<POP 21452-21454 StackAdj> Δ+8 {[-4-]}
<MI 21454 MOVE.L (A7)+,(A6-0xc)> Δ+4 {}
<POP 21458-2146e Naked> Σ0 ↓ →0x21498 ←0x2142a
<MI 21458 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<Call 0x2145a 0x20ae8> {[4, '(A6-0x8)']}
<POP 2145e-21460 StackAdj> Δ+4 {}
<MI 21460 MOVE.L 0x26634,0x26648> {}
<MI 21466 TST.B 0x26650> {}
<MI 2146c BEQ 0x21498> {}
<POP 2146e-21498 Naked> Σ0 →0x214c0
<POP 2146e-21470 StackAdj> Δ-2 {[-2-]}
<MI 21470 MOVE.L (A6-0x10),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x10)']}
<MI 21474 MOVE.L (A6-0x14),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<Blob 0x21478 [4] 0x2665a> Δ-4 {[-2-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']|[«4»]}
<Blob 0x2147e [4] 0x26656> Δ-4 {[-2-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']|[«4»]|[«4»]}
<Call 0x21484 0x1032c> {[-2-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']|[«4»]|[«4»]}
IsEqual(a, b : Quad) : Bool
<POP 2148a-2148e StackAdj> Δ+16 {[-2-]}
<MI 2148e MOVE.B (A7)+,D0> Δ+2 {}
<MI 21490 EXTB.W D0> {}
<POP 0x21492 LimitCheck 0x0 ≤ D0 ≤ 0x1> {}
<MI 21494 MOVE.B D0,0x26646> {}
<MI 21496 BRA 0x214c0> {}
<POP 21498-214c0 Naked> Σ0 ↓ ←0x21458
<POP 21498-2149a StackAdj> Δ-2 {[-2-]}
<MI 2149a MOVE.L (A6-0xc),-(A7)> Δ-4 {[-2-]|[4, '(A6-0xc)']}
<Blob 0x2149e [4] 0x26652> Δ-4 {[-2-]|[4, '(A6-0xc)']|[«4»]}
<Call 0x214a4 0x102c8> {[-2-]|[4, '(A6-0xc)']|[«4»]}
StringEqual(a, b : String) : Byte
<POP 214aa-214ac StackAdj> Δ+8 {[-2-]}
<MI 214ac MOVE.B (A7)+,D0> Δ+2 {}
<MI 214ae EXTB.W D0> {}
<POP 0x214b0 LimitCheck 0x0 ≤ D0 ≤ 0x1> {}
<MI 214b2 MOVE.B D0,0x26646> {}
<Pointer.fp 0x214b4 <LVAR -0x00c @ 4(rw)>> Δ-4 {[@@-12]}
<Call 0x214b8 0x102bc> {[@@-12]}
FreeString(VAR a : String)
<POP 214be-214c0 StackAdj> Δ+4 {}
<POP 214c0-214c8 Epilogue> Σ0 ←0x213f0 ←0x2146e
@ 214c8
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 214c8-2164a Body>
<POP 214c8-214de Prologue> Σ0 ↓
<POP 214de-214f2 RegCacheLoad> Σ0 ↓
<POP 214f2-21506 Naked> Σ0 ↓
<MI 214f2 CLR.B 0x26646> {}
<MI 214f4 CLR.L 0x26648> {}
<MI 214fa CLR.L 0x2664c> {}
<MI 214fc MOVEQ.L #0x00,D7> {}
<MI 214fe MOVEQ.L #0x00,D6> {}
<MI 21500 MOVE.L 0x26634,D5> {}
<POP 21506-2150c Naked> Σ0 ↓ →0x215aa ←0x215a6
<MI 21506 TST.L D6> {}
<MI 21508 BNE 0x215aa> {}
<POP 2150c-21516 Naked> Σ0 ↓ →0x215aa
<MI 2150c CMP.L 0x26638,D5> {}
<MI 21512 BGT 0x215aa> {}
<POP 21516-21534 Naked> Σ0 ↓ →0x215a0
<MI 21516 MOVE.L D5,D0> {}
<MI 21518 SUBQ.L #0x1,D0> {}
<POP 0x2151a LimitCheck 0x0 ≤ D0 ≤ 0x1fff> {}
<MI 21524 LEA.L 0x2462c,A0> {}
<MI 2152a MOVE.B (A0+D0.L+#0x8),D0> {}
<MI 2152e CMPI.B #0x5b,D0> {}
<MI 21532 BNE 0x215a0> {}
<POP 21534-21548 Naked> Σ0 ↓ →0x2155c
<POP 21534-21536 StackAdj> Δ-2 {[-2-]}
<MI 21536 MOVE.L D5,-(A7)> Δ-4 {[-2-]|[4, 'D5']}
<Const 0x21538 0x28.4> Δ-4 {[-2-]|[4, 'D5']|[##40]}
<Const 0x2153c 0x5.4> Δ-4 {[-2-]|[4, 'D5']|[##40]|[##5]}
<Call 0x21540 0x20ff8> {[-2-]|[4, 'D5']|[##40]|[##5]}
<POP 21542-21544 StackAdj> Δ+12 {[-2-]}
<MI 21544 TST.B (A7)+> Δ+2 {}
<MI 21546 BNE 0x2155c> {}
<POP 21548-2155c Naked> Σ0 ↓ →0x21560
<POP 21548-2154a StackAdj> Δ-2 {[-2-]}
<MI 2154a MOVE.L D5,-(A7)> Δ-4 {[-2-]|[4, 'D5']}
<Const 0x2154c 0x2d.4> Δ-4 {[-2-]|[4, 'D5']|[##45]}
<Const 0x21550 0x6.4> Δ-4 {[-2-]|[4, 'D5']|[##45]|[##6]}
<Call 0x21554 0x20ff8> {[-2-]|[4, 'D5']|[##45]|[##6]}
<POP 21556-21558 StackAdj> Δ+12 {[-2-]}
<MI 21558 TST.B (A7)+> Δ+2 {}
<MI 2155a BEQ 0x21560> {}
<POP 2155c-21560 Naked> Σ0 →0x215a0 ←0x21534
<MI 2155c ADDQ.L #0x1,D7> {}
<MI 2155e BRA 0x215a0> {}
<POP 21560-21564 Naked> Σ0 ↓ →0x21582 ←0x21548
<MI 21560 TST.L D7> {}
<MI 21562 BNE 0x21582> {}
<POP 21564-21578 Naked> Σ0 ↓ →0x21582
<POP 21564-21566 StackAdj> Δ-2 {[-2-]}
<MI 21566 MOVE.L D5,-(A7)> Δ-4 {[-2-]|[4, 'D5']}
<Const 0x21568 0x33.4> Δ-4 {[-2-]|[4, 'D5']|[##51]}
<Const 0x2156c 0x5.4> Δ-4 {[-2-]|[4, 'D5']|[##51]|[##5]}
<Call 0x21570 0x20ff8> {[-2-]|[4, 'D5']|[##51]|[##5]}
<POP 21572-21574 StackAdj> Δ+12 {[-2-]}
<MI 21574 TST.B (A7)+> Δ+2 {}
<MI 21576 BEQ 0x21582> {}
<POP 21578-21582 Naked> Σ0 →0x215a0
<MI 21578 MOVE.L D5,-(A7)> Δ-4 {[4, 'D5']}
<Call 0x2157a 0x213b4> {[4, 'D5']}
<POP 2157e-21580 StackAdj> Δ+4 {}
<MI 21580 BRA 0x215a0> {}
<POP 21582-21596 Naked> Σ0 ↓ →0x215a0 ←0x21560 ←0x21564
<POP 21582-21584 StackAdj> Δ-2 {[-2-]}
<MI 21584 MOVE.L D5,-(A7)> Δ-4 {[-2-]|[4, 'D5']}
<Const 0x21586 0x38.4> Δ-4 {[-2-]|[4, 'D5']|[##56]}
<Const 0x2158a 0x8.4> Δ-4 {[-2-]|[4, 'D5']|[##56]|[##8]}
<Call 0x2158e 0x20ff8> {[-2-]|[4, 'D5']|[##56]|[##8]}
<POP 21590-21592 StackAdj> Δ+12 {[-2-]}
<MI 21592 TST.B (A7)+> Δ+2 {}
<MI 21594 BEQ 0x215a0> {}
<POP 21596-2159a Naked> Σ0 ↓ →0x2159e
<MI 21596 TST.L D7> {}
<MI 21598 BNE 0x2159e> {}
<POP 2159a-2159e Naked> Σ0 →0x215a0
<MI 2159a MOVE.L D5,D6> {}
<MI 2159c BRA 0x215a0> {}
<POP 2159e-215a0 Naked> Σ0 ↓ ←0x21596
<MI 2159e SUBQ.L #0x1,D7> {}
<POP 215a0-215a4 Naked> Σ0 ↓ →0x215a6 ←0x21516 ←0x2155c ←0x21578 ←0x21582 ←0x2159a
<MI 215a0 TST.L D6> {}
<MI 215a2 BNE 0x215a6> {}
<POP 215a4-215a6 Naked> Σ0 ↓
<MI 215a4 ADDQ.L #0x1,D5> {}
<POP 215a6-215aa Naked> Σ0 →0x21506 ←0x215a0
<MI 215a6 BRA 0x21506> {}
<POP 215aa-215b2 Naked> Σ0 ↓ →0x215c0 ←0x21506 ←0x2150c
<MI 215aa TST.B 0x26650> {}
<MI 215b0 BNE 0x215c0> {}
<POP 215b2-215c0 Naked> Σ0 ↓
<Const 0x215b2 0x26652.4> Δ-4 {[##157266]}
<Call 0x215b8 0x102bc> {[##157266]}
FreeString(VAR a : String)
<POP 215be-215c0 StackAdj> Δ+4 {}
<POP 215c0-215c4 Naked> Σ0 ↓ →0x215ec ←0x215aa
<MI 215c0 TST.B 0x26646> {}
<MI 215c2 BNE 0x215ec> {}
<POP 215c4-215ec Naked> Σ0 ↓
<Blob 0x215c4 [26] @> Δ-26 {[«26""»]}
<POP 215d0-215d2 StackAdj> Δ-4 {[«26""»]|[-4-]}
<Lit 0x215d2 26> {[«26""»]|[$$No case alternative found!]}
<Call 0x215e4 0x20b2a> {[«26""»]|[$$No case alternative found!]}
<POP 215e8-215ec StackAdj> Δ+30 {}
<POP 215ec-215f0 Naked> Σ0 ↓ →0x2161e ←0x215c0
<MI 215ec TST.L D6> {}
<MI 215ee BNE 0x2161e> {}
<POP 215f0-2161e Naked> Σ0 ↓
<Blob 0x215f0 [20] @> Δ-20 {[«20""»]}
<POP 21602-21604 StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x21604 19> {[«20""»]|[$$No [ENDCASE] found!]}
<Call 0x21616 0x20b2a> {[«20""»]|[$$No [ENDCASE] found!]}
<POP 2161a-2161e StackAdj> Δ+24 {}
<POP 2161e-21632 Naked> Σ0 ↓ →0x2163c ←0x215ec
<MI 2161e MOVEA.L (A6+0x8),A0> {}
<MI 21622 MOVE.L D6,(A0)> {}
<MI 21624 MOVEA.L (A6+0x10),A0> {}
<MI 21628 MOVE.L 0x26648,(A0)> {}
<MI 2162e TST.L 0x2664c> {}
<MI 21630 BNE 0x2163c> {}
<POP 21632-2163c Naked> Σ0 →0x21642
<MI 21632 MOVEA.L (A6+0xc),A0> {}
<MI 21636 MOVE.L D6,(A0)> {}
<MI 21638 SUBQ.L #0x1,(A0)> {}
<MI 2163a BRA 0x21642> {}
<POP 2163c-21642 Naked> Σ0 ↓ ←0x2161e
<MI 2163c MOVEA.L (A6+0xc),A0> {}
<MI 21640 MOVE.L 0x2664c,(A0)> {}
<POP 21642-2164a Epilogue> Σ0 ←0x21632
@ 2164a
<LVAR 0x008 4(r)>
<LVAR -0x008 @ 4(r)>
<LVAR -0x00c @ 4(r)>
<LVAR -0x010 @ 4(r)>
<POP 2164a-216be Body>
<POP 2164a-21660 Prologue> Σ0 ↓
<POP 21660-2166a RegCacheLoad> Σ0 ↓
<POP 2166a-216b6 Naked> Σ0 ↓
<MI 2166a MOVE.L 0x26634,D6> {}
<MI 2166c CLR.B 0x26650> {}
<MI 21672 MOVE.L (A6+0x8),0x26652> {}
<MI 2167a MOVE.L 0x26634,D7> {}
<Pointer.fp 0x2167c <LVAR -0x010 @ 4(r)>> Δ-4 {[@@-16]}
<Pointer.fp 0x2167e <LVAR -0x00c @ 4(r)>> Δ-4 {[@@-16]|[@@-12]}
<Pointer.fp 0x21682 <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-16]|[@@-12]|[@@-8]}
<Call 0x21686 0x214c8> {[@@-16]|[@@-12]|[@@-8]}
<POP 2168a-2168e StackAdj> Δ+12 {}
<MI 2168e MOVE.L D6,0x26634> {}
<MI 21690 MOVE.L (A6-0x8),D0> {}
<MI 21694 ADDI.L #0x00000009,D0> {}
<MI 2169a MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 2169c SUB.L (A6-0xc),D0> {[4, 'D0']}
<MI 216a0 SUBQ.L #0x1,D0> {[4, 'D0']}
<MI 216a2 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']|[4, 'D0']}
<Call 0x216a4 0x2107e> {[4, 'D0']|[4, 'D0']}
<POP 216a8-216aa StackAdj> Δ+4 {[4, 'D0']}
<MI 216aa MOVE.L (A6-0x10),(A7)> {[4, '(A6-0x10)']}
<MI 216ac MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0x10)']|[4, '(A6-0x10)']}
<MI 216ae SUB.L D7,(A7)> {[4, '(A6-0x10)']|[-4-]}
<Call 0x216b0 0x2107e> {[4, '(A6-0x10)']|[-4-]}
<POP 216b4-216b6 StackAdj> Δ+8 {}
<POP 216b6-216be Epilogue> Σ0
@ 216be
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x008 @ 4(r)>
<LVAR -0x00c @ 4(r)>
<LVAR -0x010 @ 4(r)>
<POP 216be-2173c Body>
<POP 216be-216d4 Prologue> Σ0 ↓
<POP 216d4-216de RegCacheLoad> Σ0 ↓
<POP 216de-21734 Naked> Σ0 ↓
<MI 216de MOVE.L 0x26634,D6> {}
<MI 216e0 MOVE.B #0x01,0x26650> {}
<MI 216e8 MOVE.L (A6+0x8),0x26656> {}
<MI 216f0 MOVE.L (A6+0xc),0x2665a> {}
<MI 216f8 MOVE.L 0x26634,D7> {}
<Pointer.fp 0x216fa <LVAR -0x010 @ 4(r)>> Δ-4 {[@@-16]}
<Pointer.fp 0x216fc <LVAR -0x00c @ 4(r)>> Δ-4 {[@@-16]|[@@-12]}
<Pointer.fp 0x21700 <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-16]|[@@-12]|[@@-8]}
<Call 0x21704 0x214c8> {[@@-16]|[@@-12]|[@@-8]}
<POP 21708-2170c StackAdj> Δ+12 {}
<MI 2170c MOVE.L D6,0x26634> {}
<MI 2170e MOVE.L (A6-0x8),D0> {}
<MI 21712 ADDI.L #0x00000009,D0> {}
<MI 21718 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 2171a SUB.L (A6-0xc),D0> {[4, 'D0']}
<MI 2171e SUBQ.L #0x1,D0> {[4, 'D0']}
<MI 21720 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']|[4, 'D0']}
<Call 0x21722 0x2107e> {[4, 'D0']|[4, 'D0']}
<POP 21726-21728 StackAdj> Δ+4 {[4, 'D0']}
<MI 21728 MOVE.L (A6-0x10),(A7)> {[4, '(A6-0x10)']}
<MI 2172a MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0x10)']|[4, '(A6-0x10)']}
<MI 2172c SUB.L D7,(A7)> {[4, '(A6-0x10)']|[-4-]}
<Call 0x2172e 0x2107e> {[4, '(A6-0x10)']|[-4-]}
<POP 21732-21734 StackAdj> Δ+8 {}
<POP 21734-2173c Epilogue> Σ0
@ 2173c
<LVAR 0x010 4(rw)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 2173c-21774 Body>
<POP 2173c-21752 Prologue> Σ0 ↓
<POP 21752-21758 Naked> Σ0 ↓ →0x2175e
<MI 21752 TST.L (A6+0x8)> {}
<MI 21756 BNE 0x2175e> {}
<POP 21758-2175e Naked> Σ0 →0x2176c
<MI 21758 CLR.L (A6+0x10)> {}
<MI 2175c BRA 0x2176c> {}
<POP 2175e-2176c Naked> Σ0 ↓ ←0x21752
<MI 2175e MOVE.L (A6+0xc),D0> {}
<MI 21762 SUB.L (A6+0x8),D0> {}
<MI 21766 ADDQ.L #0x1,D0> {}
<MI 21768 MOVE.L D0,(A6+0x10)> {}
<POP 2176c-21774 Epilogue> Σ0 ←0x21758
@ 21774
<LVAR 0x014 4(w)>
<LVAR 0x010 @ 4(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 21774-217d6 Body> Δ-4
<POP 21774-2178a Prologue> Σ0 ↓
<POP 2178a-217a0 Naked> Σ0 Δ-4 ↓
<MI 2178a MOVEA.L (A6+0xc),A4> {}
<MI 2178e MOVE.L 0x20a42,(A6+0x10)> {}
<MI 21794 MOVE.L 0x20a46,(A6+0x14)> {}
<MI 2179a MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<MI 2179e MOVEQ.L #0x00,D7> {[4, '(A6+0x8)']}
<POP 217a0-217a4 Naked> Σ-4 ↓ →0x217cc ←0x217c8
<MI 217a0 CMP.L (A7),D7> {[-4-]}
<MI 217a2 BGT 0x217cc> {[-4-]}
<POP 217a4-217aa Naked> Σ-4 ↓ →0x217ae
<MI 217a4 CMPA.W #0x1,A4> {[-4-]}
<MI 217a8 BNE 0x217ae> {[-4-]}
<POP 217aa-217ae Naked> Σ-4 Δ+4 →0x217ce
<POP 217aa-217ac StackAdj> Δ+4 {}
<MI 217ac BRA 0x217ce> {}
<POP 217ae-217b4 Naked> Σ-4 ↓ →0x217c4 ←0x217a4
<MI 217ae CMP.L (A6+0x8),D7> {[-4-]}
<MI 217b2 BNE 0x217c4> {[-4-]}
<POP 217b4-217c4 Naked> Σ-4 →0x217c8
<MI 217b4 LEA.L (A6+0x10),A0> {[-4-]}
<MI 217b8 MOVEA.L A4,A1> {[-4-]}
<BlockMove 8,A1,A0> {[-4-]}
<MI 217c2 BRA 0x217c8> {[-4-]}
<POP 217c4-217c8 Naked> Σ-4 ↓ ←0x217ae
<MI 217c4 MOVEA.L (A4+0x8),A4> {[-4-]}
<POP 217c8-217cc Naked> Σ-4 ↓ →0x217a0 ←0x217b4
<MI 217c8 ADDQ.L #0x1,D7> {[-4-]}
<MI 217ca BVC 0x217a0> {[-4-]}
<POP 217cc-217ce Naked> Σ-4 Δ+4 ↓ ←0x217a0
<POP 217cc-217ce StackAdj> Δ+4 {}
<POP 217ce-217d6 Epilogue> Σ0 ←0x217aa
@ 217d6
<LVAR 0x010 4(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x008 @ 4(r)>
<POP 217d6-21852 Body> Δ-4
<POP 217d6-217ec Prologue> Σ0 ↓
<POP 217ec-217f0 RegCacheLoad> Σ0 ↓
<POP 217f0-21808 Naked> Σ0 Δ-4 ↓
<Pointer.fp 0x217f0 <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-8]}
<Call 0x217f2 0x102b8> {[@@-8]}
NewString(VAR a : String)
<MI 217f8 MOVE.L (A6+0xc),-(A7)> Δ-4 {[@@-8]|[4, '(A6+0xc)']}
<MI 217fc MOVE.L (A6+0x8),-(A7)> Δ-4 {[@@-8]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x21800 0x2173c> {[@@-8]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 21804-21806 StackAdj> Δ+8 {[@@-8]}
<MI 21806 MOVEQ.L #0x01,D7> {[@@-8]}
<POP 21808-2180c Naked> Σ-4 ↓ →0x21844 ←0x21834
<MI 21808 CMP.L (A7),D7> {[-4-]}
<MI 2180a BGT 0x21844> {[-4-]}
<POP 2180c-21830 Naked> Σ-4 ↓ →0x21834
<MI 2180c MOVE.L D7,D0> {[-4-]}
<MI 2180e ADD.L (A6+0x8),D0> {[-4-]}
<MI 21812 SUBQ.L #0x1,D0> {[-4-]}
<MI 21814 SUBQ.L #0x1,D0> {[-4-]}
<POP 0x21816 LimitCheck 0x0 ≤ D0 ≤ 0x1fff> {[-4-]}
<MI 21820 LEA.L 0x2462c,A0> {[-4-]}
<MI 21826 MOVE.B (A0+D0.L+#0x8),D6> {[-4-]}
<MI 2182a CMPI.B #0x2f,D6> {[-4-]}
<MI 2182e BNE 0x21834> {[-4-]}
<POP 21830-21834 Naked> Σ-4 Δ+4 →0x21846
<POP 21830-21832 StackAdj> Δ+4 {}
<MI 21832 BRA 0x21846> {}
<POP 21834-21844 Naked> Σ-4 ↓ →0x21808 ←0x2180c
<MI 21834 MOVE.L (A6-0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x8)']}
<MI 21836 MOVE.B D6,-(A7)> Δ-2 {[-4-]|[4, '(A6-0x8)']|[2, 'D6']}
<Call 0x21838 0x102c0> {[-4-]|[4, '(A6-0x8)']|[2, 'D6']}
AppendChar(MOD b : String; a : char)
<POP 2183e-21840 StackAdj> Δ+6 {[-4-]}
<MI 21840 ADDQ.L #0x1,D7> {[-4-]}
<MI 21842 BVC 0x21808> {[-4-]}
<POP 21844-21846 Naked> Σ-4 Δ+4 ↓ ←0x21808
<POP 21844-21846 StackAdj> Δ+4 {}
<POP 21846-2184a Naked> Σ0 ↓ ←0x21830
<MI 21846 MOVE.L (A6-0x8),(A6+0x10)> {}
<POP 2184a-21852 Epilogue> Σ0
@ 21852
<LVAR 0x010 4(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 21852-21884 Body>
<POP 21852-21864 Prologue> Σ0 ↓
<POP 21864-21880 Naked> Σ0 ↓
<POP 21864-21868 StackAdj> Δ-12 {[-12-]}
<MI 21868 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-12-]|[4, '(A6+0xc)']}
<MI 2186c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x21870 0x21774> {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 21874-21876 StackAdj> Δ+8 {[-12-]}
<Call 0x21876 0x217d6> {[-12-]}
<POP 2187a-2187c StackAdj> Δ+8 {[-4-]}
<MI 2187c MOVE.L (A7)+,(A6+0x10)> Δ+4 {}
<POP 21880-21884 Epilogue> Σ0
@ 21884
<LVAR 0x014 4(w)>
<LVAR 0x010 4(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 21884-218c0 Body>
<POP 21884-21896 Prologue> Σ0 ↓
<POP 21896-218bc Naked> Σ0 ↓
<POP 21896-2189a StackAdj> Δ-12 {[-12-]}
<MI 2189a MOVE.L (A6+0xc),-(A7)> Δ-4 {[-12-]|[4, '(A6+0xc)']}
<MI 2189e MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x218a2 0x21852> {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 218a6-218a8 StackAdj> Δ+8 {[-12-]}
<Const 0x218a8 0x10.4> Δ-4 {[-12-]|[##16]}
<Call 0x218ac 0x10360> {[-12-]|[##16]}
?StringToInt64()
<POP 218b2-218b4 StackAdj> Δ+8 {[-8-]}
<MI 218b4 MOVE.L (A7)+,(A6+0x10)> Δ+4 {[-4-]}
<MI 218b8 MOVE.L (A7)+,(A6+0x14)> Δ+4 {}
<POP 218bc-218c0 Epilogue> Σ0
@ 218c0
<LVAR 0x010 4(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 218c0-218f4 Body>
<POP 218c0-218d2 Prologue> Σ0 ↓
<POP 218d2-218f0 Naked> Σ0 ↓
<POP 218d2-218d6 StackAdj> Δ-12 {[-12-]}
<MI 218d6 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-12-]|[4, '(A6+0xc)']}
<MI 218da MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x218de 0x21884> {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 218e2-218e4 StackAdj> Δ+8 {[-12-]}
<Call 0x218e4 0x10350> {[-12-]}
Quad2Long(a : Quad) : Long
<POP 218ea-218ec StackAdj> Δ+8 {[-4-]}
<MI 218ec MOVE.L (A7)+,(A6+0x10)> Δ+4 {}
<POP 218f0-218f4 Epilogue> Σ0
@ 218f4
<LVAR 0x008 @ 4(r)>
<POP 218f4-2197c Body>
<POP 218f4-2190a Prologue> Σ0 ↓
<POP 2190a-21910 RegCacheLoad> Σ0 ↓
<POP 21910-2192e Naked> Σ0 Δ-8 ↓
<MI 21910 MOVEA.L (A6+0x8),A0> {}
<MI 21914 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Blob 0x21916 [4] 0x26634> Δ-4 {[4, 'A0']|[«4»]}
<MI 21918 MOVE.W (A0),D0> {[4, 'A0']|[«4»]}
<MI 2191a EXTW.L D0> {[4, 'A0']|[«4»]}
<MI 2191c NEG.L D0> {[4, 'A0']|[«4»]}
<MI 2191e MOVE.L D0,-(A7)> Δ-4 {[4, 'A0']|[«4»]|[4, 'D0']}
<Call 0x21920 0x2107e> {[4, 'A0']|[«4»]|[4, 'D0']}
<POP 21924-21926 StackAdj> Δ+8 {[4, 'A0']}
<MI 21926 MOVE.W (A0),D0> {[4, 'A0']}
<MI 21928 EXTW.L D0> {[4, 'A0']}
<MI 2192a MOVE.L D0,-(A7)> Δ-4 {[4, 'A0']|[4, 'D0']}
<MI 2192c MOVEQ.L #0x01,D7> {[4, 'A0']|[4, 'D0']}
<POP 2192e-21932 Naked> Σ-8 ↓ →0x21966 ←0x21932
<MI 2192e CMP.L (A7),D7> {[-8-]}
<MI 21930 BGT 0x21966> {[-8-]}
<POP 21932-21966 Naked> Σ-8 ↓ →0x2192e
<MI 21932 MOVE.L D7,D0> {[-8-]}
<MI 21934 ADD.L 0x26634,D0> {[-8-]}
<MI 21936 SUBQ.L #0x1,D0> {[-8-]}
<MI 21938 SUBQ.L #0x1,D0> {[-8-]}
<POP 0x2193a LimitCheck 0x0 ≤ D0 ≤ 0x1fff> {[-8-]}
<MI 21944 LEA.L 0x2462c,A0> {[-8-]}
<MI 2194a MOVE.L D7,D1> {[-8-]}
<MI 2194c SUBQ.L #0x1,D1> {[-8-]}
<POP 0x2194e LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-8-]}
<MI 21958 MOVEA.L (A7+0x4),A1> {[-8-]}
<MI 2195c MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x8)> {[-8-]}
<MI 21962 ADDQ.L #0x1,D7> {[-8-]}
<MI 21964 BVC 0x2192e> {[-8-]}
<POP 21966-21974 Naked> Σ-8 Δ+8 ↓ ←0x2192e
<POP 21966-21968 StackAdj> Δ+8 {}
<Pointer.fp 0x21968 <LVAR 0x008 @ 4(r)>> Δ-4 {[@@8]}
<Call 0x2196c 0x102bc> {[@@8]}
FreeString(VAR a : String)
<POP 21972-21974 StackAdj> Δ+4 {}
<POP 21974-2197c Epilogue> Σ0
@ 2197c
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 2197c-219b0 Body>
<POP 2197c-2198e Prologue> Σ0 ↓
<POP 2198e-219ac Naked> Σ0 ↓
<POP 2198e-21990 StackAdj> Δ-4 {[-4-]}
<MI 21990 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']}
<MI 21994 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Const 0x21998 0x10.4> Δ-4 {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[##16]}
<Call 0x2199c 0x1035c> {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[##16]}
Quad2String(a : Quad; radix : Long ) : String
<POP 219a2-219a6 StackAdj> Δ+12 {[-4-]}
<Call 0x219a6 0x218f4> {[-4-]}
<POP 219aa-219ac StackAdj> Δ+4 {}
<POP 219ac-219b0 Epilogue> Σ0
@ 219b0
<LVAR 0x008 4(r)>
<POP 219b0-219da Body>
<POP 219b0-219c2 Prologue> Σ0 ↓
<POP 219c2-219d6 Naked> Σ0 ↓
<POP 219c2-219c4 StackAdj> Δ-4 {[-4-]}
<MI 219c4 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x219c8 0x102e4> {[-4-]|[4, '(A6+0x8)']}
Long2String(a : Long) : String
<POP 219ce-219d0 StackAdj> Δ+4 {[-4-]}
<Call 0x219d0 0x218f4> {[-4-]}
<POP 219d4-219d6 StackAdj> Δ+4 {}
<POP 219d6-219da Epilogue> Σ0
@ 219da
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 4(r)>
<LVAR -0x008 4(rw)>
<POP 219da-21aaa Body>
<POP 219da-219f0 Prologue> Σ0 ↓
<POP 219f0-219f8 RegCacheLoad> Σ0 ↓
<POP 219f8-21a0a Naked> Σ0 ↓
<MI 219f8 MOVEA.L (A6+0x8),A0> {}
<MI 219fc MOVE.L (A0+0x8),(A6-0x8)> {}
<Pointer.fp 0x21a00 <LVAR -0x004 @ 4(r)>> Δ-4 {[@@-4]}
<Call 0x21a02 0x102b8> {[@@-4]}
NewString(VAR a : String)
<POP 21a08-21a0a StackAdj> Δ+4 {}
<POP 21a0a-21a14 Naked> Σ0 ↓ →0x21a98 ←0x21a80
<MI 21a0a MOVEA.L (A6-0x8),A0> {}
<MI 21a0c CMPA.W #0x1,A0> {}
<MI 21a10 BEQ 0x21a98> {}
<POP 21a14-21a18 Naked> Σ0 ↓ →0x21a80
<MI 21a14 TST.L (A0)> {}
<MI 21a16 BEQ 0x21a80> {}
<POP 21a18-21a22 Naked> Σ0 Δ-4 ↓ →0x21a36
<MI 21a18 MOVE.L (A0+0x4),-(A7)> Δ-4 {[4, '(A0+0x4)']}
<MI 21a1c MOVE.L (A0),D7> {[4, '(A0+0x4)']}
<MI 21a1e CMP.L (A7),D7> {[4, '(A0+0x4)']}
<MI 21a20 BGT 0x21a36> {[4, '(A0+0x4)']}
<POP 21a22-21a36 Naked> Σ-4 ↓
<MI 21a22 MOVE.L (A7),D0> {[-4-]}
<POP 0x21a24 LimitCheck -0x7fffffff ≤ D7> {[-4-]}
<MI 21a24 CMPI.L #0x80000001,D7>
<MI 21a2a BLT 0x21a34>
<POP 0x21a2c LimitCheck D0 ≤ 0x7fffffff> {[-4-]}
<MI 21a2c CMPI.L #0x7fffffff,D0>
<MI 21a32 BLE 0x21a36>
<MI 21a34 TRAP #15>
<POP 21a36-21a3a Naked> Σ-4 ↓ →0x21a7e ←0x21a18 ←0x21a7a
<MI 21a36 CMP.L (A7),D7> {[-4-]}
<MI 21a38 BGT 0x21a7e> {[-4-]}
<POP 21a3a-21a66 Naked> Σ-4 ↓ →0x21a7a
<MI 21a3a MOVE.L (A6-0x4),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x4)']}
<MI 21a3c MOVE.L D7,D0> {[-4-]|[4, '(A6-0x4)']}
<MI 21a3e SUBQ.L #0x1,D0> {[-4-]|[4, '(A6-0x4)']}
<POP 0x21a40 LimitCheck 0x0 ≤ D0 ≤ 0x1fff> {[-4-]|[4, '(A6-0x4)']}
<MI 21a4a LEA.L 0x2462c,A0> {[-4-]|[4, '(A6-0x4)']}
<MI 21a50 MOVE.B (A0+D0.L+#0x8),-(A7)> Δ-2 {[-4-]|[4, '(A6-0x4)']|[2, '(A0+D0.L+#0x8)']}
<Call 0x21a54 0x102c0> {[-4-]|[4, '(A6-0x4)']|[2, '(A0+D0.L+#0x8)']}
AppendChar(MOD b : String; a : char)
<POP 21a5a-21a5c StackAdj> Δ+6 {[-4-]}
<MI 21a5c MOVEA.L (A6-0x4),A0> {[-4-]}
<MI 21a5e MOVE.W (A0),D0> {[-4-]}
<MI 21a60 CMPI.W #0x007a,D0> {[-4-]}
<MI 21a64 BLT 0x21a7a> {[-4-]}
<POP 21a66-21a7a Naked> Σ-4 ↓
<MI 21a66 MOVE.L (A6-0x4),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x4)']}
<Call 0x21a68 0x103d8> {[-4-]|[4, '(A6-0x4)']}
WriteConsoleString(str : String)
<POP 21a6e-21a70 StackAdj> Δ+4 {[-4-]}
<Pointer.fp 0x21a70 <LVAR -0x004 @ 4(r)>> Δ-4 {[-4-]|[@@-4]}
<Call 0x21a72 0x102b8> {[-4-]|[@@-4]}
NewString(VAR a : String)
<POP 21a78-21a7a StackAdj> Δ+4 {[-4-]}
<POP 21a7a-21a7e Naked> Σ-4 ↓ →0x21a36 ←0x21a3a
<MI 21a7a ADDQ.L #0x1,D7> {[-4-]}
<MI 21a7c BVC 0x21a36> {[-4-]}
<POP 21a7e-21a80 Naked> Σ-4 Δ+4 ↓ ←0x21a36
<POP 21a7e-21a80 StackAdj> Δ+4 {}
<POP 21a80-21a98 Naked> Σ0 →0x21a0a ←0x21a14
<MI 21a80 MOVE.L (A6-0x4),-(A7)> Δ-4 {[4, '(A6-0x4)']}
<Const 0x21a82 0x20.2> Δ-2 {[4, '(A6-0x4)']|[#32]}
<Call 0x21a86 0x102c0> {[4, '(A6-0x4)']|[#32]}
AppendChar(MOD b : String; a : char)
<POP 21a8c-21a8e StackAdj> Δ+6 {}
<MI 21a8e MOVEA.L (A6-0x8),A0> {}
<MI 21a90 MOVE.L (A0+0x8),(A6-0x8)> {}
<MI 21a94 BRA 0x21a0a> {}
<POP 21a98-21aa2 Naked> Σ0 ↓ ←0x21a0a
<MI 21a98 MOVE.L (A6-0x4),-(A7)> Δ-4 {[4, '(A6-0x4)']}
<Call 0x21a9a 0x103e0> {[4, '(A6-0x4)']}
WriteConsoleStringCrLf(str : String)
<POP 21aa0-21aa2 StackAdj> Δ+4 {}
<POP 21aa2-21aaa Epilogue> Σ0
@ 21aaa
<LVAR 0x008 @ 4(r)>
<LVAR -0x003 @ 1(r)>
<LVAR -0x004 @ 1(r)>
<LVAR -0x008 @ 4(r)>
<LVAR -0x00c @ 4(rw)>
<POP 21aaa-21bb4 Body>
<POP 21aaa-21ac0 Prologue> Σ0 ↓
<POP 21ac0-21ad2 RegCacheLoad> Σ0 ↓
<POP 21ad2-21b18 Naked> Σ0 ↓ →0x21b4e
<Blob 0x21ad2 [4] @> Δ-4 {[«4""»]}
<POP 21ad6-21ad8 StackAdj> Δ-8 {[«4""»]|[-8-]}
<MI 21ad8 MOVE.L (A6+0x8),-(A7)> Δ-4 {[«4""»]|[-8-]|[4, '(A6+0x8)']}
<Call 0x21ada 0x102cc> {[«4""»]|[-8-]|[4, '(A6+0x8)']}
StringDup(a : String) : String
<Lit 0x21ae0 4> {[«4""»]|[-8-]|[$$.HLP]}
<Call 0x21af2 0x102d0> {[«4""»]|[-8-]|[$$.HLP]}
StringCat2(a, b : String) : String
<POP 21af8-21afa StackAdj> Δ+8 {[«4""»]|[-4-]}
<MI 21afa MOVE.L (A7)+,(A6-0xc)> Δ+4 {[«4""»]}
<MI 21afc MOVE.L (A6-0xc),(A7)> {[4, '(A6-0xc)']}
<MI 21afe CLR.B -(A7)> Δ-2 {[4, '(A6-0xc)']|[#0]}
<MI 21b00 CLR.B -(A7)> Δ-2 {[4, '(A6-0xc)']|[#0]|[#0]}
<Const 0x21b02 0x0.4> Δ-4 {[4, '(A6-0xc)']|[#0]|[#0]|[##0]}
<Pointer.fp 0x21b06 <LVAR -0x004 @ 1(r)>> Δ-4 {[4, '(A6-0xc)']|[#0]|[#0]|[##0]|[@@-4]}
<Pointer.fp 0x21b08 <LVAR -0x008 @ 4(r)>> Δ-4 {[4, '(A6-0xc)']|[#0]|[#0]|[##0]|[@@-4]|[@@-8]}
<Call 0x21b0a 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 21b10-21b14 StackAdj> Δ+20 {}
<MI 21b14 TST.B (A6-0x4)> {}
<MI 21b16 BEQ 0x21b4e> {}
<POP 21b18-21b4e Naked> Σ0 →0x21ba2
<Blob 0x21b18 [22] @> Δ-22 {[«22""»]}
<POP 21b24-21b26 StackAdj> Δ-8 {[«22""»]|[-8-]}
<Lit 0x21b26 22> {[«22""»]|[-4-]|[$$No help available for_]}
<POP 21b36-21b38 StackAdj> Δ-4 {[«22""»]|[-4-]|[$$No help available for_]|[-4-]}
<MI 21b38 MOVE.L (A6+0x8),(A7)> {[«22""»]|[-4-]|[$$No help available for_]|[4, '(A6+0x8)']}
<Call 0x21b3a 0x102d0> {[«22""»]|[-4-]|[$$No help available for_]|[4, '(A6+0x8)']}
StringCat2(a, b : String) : String
<POP 21b40-21b42 StackAdj> Δ+8 {[«22""»]|[-4-]}
<Call 0x21b42 0x103e0> {[«22""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 21b48-21b4c StackAdj> Δ+26 {}
<MI 21b4c BRA 0x21ba2> {}
<POP 21b4e-21b66 Naked> Σ0 ↓ →0x21b7a ←0x21ad2 ←0x21b7a
<MI 21b4e MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<Pointer.fp 0x21b50 <LVAR 0x008 @ 4(r)>> Δ-4 {[4, '(A6-0x8)']|[@@8]}
<Pointer.fp 0x21b52 <LVAR -0x003 @ 1(r)>> Δ-4 {[4, '(A6-0x8)']|[@@8]|[@@-3]}
<Call 0x21b56 0x1043c> {[4, '(A6-0x8)']|[@@8]|[@@-3]}
FileReadLine(file : File; VAR a : String; VAR b : Byte)
<POP 21b5c-21b60 StackAdj> Δ+12 {}
<MI 21b60 TST.B (A6-0x3)> {}
<MI 21b64 BNE 0x21b7a> {}
<POP 21b66-21b7a Naked> Σ0 ↓
<POP 21b66-21b68 StackAdj> Δ-4 {[-4-]}
<MI 21b68 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x21b6a 0x102cc> {[-4-]|[4, '(A6+0x8)']}
StringDup(a : String) : String
<POP 21b70-21b72 StackAdj> Δ+4 {[-4-]}
<Call 0x21b72 0x103e0> {[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 21b78-21b7a StackAdj> Δ+4 {}
<POP 21b7a-21b80 Naked> Σ0 ↓ →0x21b4e ←0x21b4e
<MI 21b7a TST.B (A6-0x3)> {}
<MI 21b7e BEQ 0x21b4e> {}
<POP 21b80-21ba2 Naked> Σ0 ↓
<MI 21b80 CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x21b82 0x2.2> Δ-2 {[#0]|[#2]}
<Const 0x21b86 0x1.4> Δ-4 {[#0]|[#2]|[##1]}
<Pointer.fp 0x21b8a <LVAR -0x004 @ 1(r)>> Δ-4 {[#0]|[#2]|[##1]|[@@-4]}
<Pointer.fp 0x21b8c <LVAR -0x008 @ 4(r)>> Δ-4 {[#0]|[#2]|[##1]|[@@-4]|[@@-8]}
<Call 0x21b8e 0x1038c> {[#0]|[#2]|[##1]|[@@-4]|[@@-8]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 21b94-21b98 StackAdj> Δ+16 {}
<Pointer.fp 0x21b98 <LVAR 0x008 @ 4(r)>> Δ-4 {[@@8]}
<Call 0x21b9a 0x102bc> {[@@8]}
FreeString(VAR a : String)
<POP 21ba0-21ba2 StackAdj> Δ+4 {}
<POP 21ba2-21bac Naked> Σ0 ↓ ←0x21b18
<Pointer.fp 0x21ba2 <LVAR -0x00c @ 4(rw)>> Δ-4 {[@@-12]}
<Call 0x21ba4 0x102bc> {[@@-12]}
FreeString(VAR a : String)
<POP 21baa-21bac StackAdj> Δ+4 {}
<POP 21bac-21bb4 Epilogue> Σ0
@ 21bb4
<LVAR 0x008 4(r)>
<POP 21bb4-21c36 Body>
<POP 21bb4-21bca Prologue> Σ0 ↓
<POP 21bca-21bda Naked> Σ0 ↓ →0x21c08
<POP 21bca-21bcc StackAdj> Δ-4 {[-4-]}
<MI 21bcc MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x21bd0 0x20f36> {[-4-]|[4, '(A6+0x8)']}
<POP 21bd4-21bd6 StackAdj> Δ+4 {[-4-]}
<MI 21bd6 MOVE.L (A7)+,D6> Δ+4 {}
<MI 21bd8 BNE 0x21c08> {}
<POP 21bda-21c08 Naked> Σ0 →0x21c2e
<Blob 0x21bda [10] 0x26646> Δ-10 {[«10»]}
<POP 21be8-21bea StackAdj> Δ-4 {[«10»]|[-4-]}
<Lit 0x21bea> {[«10»]|[$$…]}
<Pointer.sp 0x21bea 4> Δ-4
<Const 0x21bee 0x1.2> Δ-2
<Const 0x21bf2 0xa.2> Δ-2
<Call 0x21bf6 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 21bfc-21bfe StackAdj> Δ+8
<Call 0x21bfe 0x21aaa> {[«10»]|[$$…]}
<POP 21c02-21c06 StackAdj> Δ+14 {}
<MI 21c06 BRA 0x21c2e> {}
<POP 21c08-21c0c Naked> Σ0 Δ-4 ↓ ←0x21bca
<MI 21c08 MOVE.L D6,-(A7)> Δ-4 {[4, 'D6']}
<MI 21c0a MOVEQ.L #0x01,D7> {[4, 'D6']}
<POP 21c0c-21c10 Naked> Σ-4 ↓ →0x21c2c ←0x21c10
<MI 21c0c CMP.L (A7),D7> {[-4-]}
<MI 21c0e BGT 0x21c2c> {[-4-]}
<POP 21c10-21c2c Naked> Σ-4 ↓ →0x21c0c
<POP 21c10-21c12 StackAdj> Δ-4 {[-8-]}
<MI 21c12 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<MI 21c16 MOVE.L D7,-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']|[4, 'D7']}
<Call 0x21c18 0x21852> {[-8-]|[4, '(A6+0x8)']|[4, 'D7']}
<POP 21c1c-21c1e StackAdj> Δ+8 {[-8-]}
<MI 21c1e MOVEA.L (A7)+,A4> Δ+4 {[-4-]}
<MI 21c20 MOVE.L A4,-(A7)> Δ-4 {[-4-]|[4, 'A4']}
<Call 0x21c22 0x21aaa> {[-4-]|[4, 'A4']}
<POP 21c26-21c28 StackAdj> Δ+4 {[-4-]}
<MI 21c28 ADDQ.L #0x1,D7> {[-4-]}
<MI 21c2a BVC 0x21c0c> {[-4-]}
<POP 21c2c-21c2e Naked> Σ-4 Δ+4 ↓ ←0x21c0c
<POP 21c2c-21c2e StackAdj> Δ+4 {}
<POP 21c2e-21c36 Epilogue> Σ0 ←0x21bda
@ 21c36
<LVAR 0x00c @>
<LVAR 0x008 @ 4(r)>
<LVAR -0x020 @>
<POP 21c36-21cb8 Body>
<POP 21c36-21c4c Prologue> Σ0 ↓
<POP 21c4c-21c4e RegCacheLoad> Σ0 ↓
<POP 21c4e-21c50 Naked> Σ0 ↓
<MI 21c4e MOVEQ.L #0x01,D7> {}
<POP 21c50-21c5c Naked> Σ0 ↓ →0x21c6c ←0x21c8a
<MI 21c50 MOVEA.L (A6+0x8),A0> {}
<MI 21c54 MOVE.W (A0),D0> {}
<MI 21c56 EXTW.L D0> {}
<MI 21c58 CMP.L D0,D7> {}
<MI 21c5a BLE 0x21c6c> {}
<POP 21c5c-21c6c Naked> Σ0 →0x21c8a
<MI 21c5c MOVE.L D7,D0> {}
<MI 21c5e SUBQ.L #0x1,D0> {}
<POP 0x21c60 LimitCheck 0x0 ≤ D0 ≤ 0x1d> {}
<MI 21c66 CLR.B (A6+D0.L-#0x20)> {}
<MI 21c6a BRA 0x21c8a> {}
<POP 21c6c-21c8a Naked> Σ0 ↓ ←0x21c50
<MI 21c6c MOVE.L D7,D0> {}
<MI 21c6e SUBQ.L #0x1,D0> {}
<POP 0x21c70 LimitCheck 0x0 ≤ D0 ≤ 0x1d> {}
<MI 21c76 MOVE.L D7,D1> {}
<MI 21c78 SUBQ.L #0x1,D1> {}
<POP 0x21c7a LimitCheck 0x0 ≤ D1 ≤ 0x7d> {}
<MI 21c84 MOVE.B (A0+D1.L+#0x2),(A6+D0.L-#0x20)> {}
<POP 21c8a-21c94 Naked> Σ0 ↓ →0x21c50 ←0x21c5c
<MI 21c8a ADDQ.L #0x1,D7> {}
<MI 21c8c CMPI.L #0x0000001e,D7> {}
<MI 21c92 BLE 0x21c50> {}
<POP 21c94-21cb0 Naked> Σ0 ↓
<Pointer.fp 0x21c94 <LVAR 0x008 @ 4(r)>> Δ-4 {[@@8]}
<Call 0x21c98 0x102bc> {[@@8]}
FreeString(VAR a : String)
<POP 21c9e-21ca0 StackAdj> Δ+4 {}
<MI 21ca0 LEA.L (A6+0xc),A0> {}
<MI 21ca4 LEA.L (A6-0x20),A1> {}
<BlockMove 30,A1,A0> {}
<POP 21cb0-21cb8 Epilogue> Σ0
@ 21cb8
<LVAR 0x026 4(w)>
<LVAR 0x008 @>
<LVAR -0x006 4(rw)>
<POP 21cb8-21d0c Body>
<POP 21cb8-21cce Prologue> Σ0 ↓
<POP 21cce-21cd2 RegCacheLoad> Σ0 ↓
<POP 21cd2-21cda Naked> Σ0 ↓
<MI 21cd2 MOVEQ.L #0x00,D7> {}
<MI 21cd4 MOVE.L 0x2665e,(A6-0x6)> {}
<POP 21cda-21ce2 Naked> Σ0 ↓ →0x21d00 ←0x21cfe
<MI 21cda MOVEA.L (A6-0x6),A0> {}
<MI 21cdc CMPA.W #0x1,A0> {}
<MI 21ce0 BEQ 0x21d00> {}
<POP 21ce2-21ce6 Naked> Σ0 ↓ →0x21d00
<MI 21ce2 TST.B D7> {}
<MI 21ce4 BNE 0x21d00> {}
<POP 21ce6-21cee Naked> Σ0 ↓
<MI 21ce6 MOVEA.L A0,A1> {}
<MI 21ce8 LEA.L (A6+0x8),A2> {}
<MI 21cec MOVEQ.L #0x1d,D0> {}
<POP 21cee-21cf4 Naked> Σ0 ↓ →0x21cee ←0x21cee
<MI 21cee CMPM.B (A1)+,(A2)+> {}
<MI 21cf0 DBNE D0,0x21cee> {}
<POP 21cf4-21cf6 Naked> Σ0 ↓ →0x21cfa
<MI 21cf4 BNE 0x21cfa> {}
<POP 21cf6-21cfa Naked> Σ0 →0x21cfe
<MI 21cf6 MOVEQ.L #0x01,D7> {}
<MI 21cf8 BRA 0x21cfe> {}
<POP 21cfa-21cfe Naked> Σ0 ↓ ←0x21cf4
<MI 21cfa MOVE.L (A0+0x26),(A6-0x6)> {}
<POP 21cfe-21d00 Naked> Σ0 →0x21cda ←0x21cf6
<MI 21cfe BRA 0x21cda> {}
<POP 21d00-21d04 Naked> Σ0 ↓ ←0x21cda ←0x21ce2
<MI 21d00 MOVE.L A0,(A6+0x26)> {}
<POP 21d04-21d0c Epilogue> Σ0
@ 21d0c
<LVAR 0x008 @ 4(r)>
<POP 21d0c-21d92 Body>
<POP 21d0c-21d22 Prologue> Σ0 ↓
<POP 21d22-21d2e RegCacheLoad> Σ0 ↓
<POP 21d2e-21d34 Naked> Σ0 ↓ →0x21d8a
<MI 21d2e MOVEA.L (A6+0x8),A0> {}
<MI 21d30 CMPA.W #0x01,A0> {}
<MI 21d32 BEQ 0x21d8a> {}
<POP 21d34-21d3a Naked> Σ0 ↓ →0x21d4a
<MI 21d34 TST.L (A0+0x1e)> {}
<MI 21d38 BEQ 0x21d4a> {}
<POP 21d3a-21d4a Naked> Σ0 ↓
<MI 21d3a MOVE.L (A0+0x22),-(A7)> Δ-4 {[4, '(A0+0x22)']}
<MI 21d3e MOVE.L (A0+0x1e),-(A7)> Δ-4 {[4, '(A0+0x22)']|[4, '(A0+0x1e)']}
<Call 0x21d42 0x102a4> {[4, '(A0+0x22)']|[4, '(A0+0x1e)']}
Free1(a : Pointer; b : Long)
<POP 21d48-21d4a StackAdj> Δ+8 {}
<POP 21d4a-21d50 Naked> Σ0 ↓ ←0x21d34
<MI 21d4a MOVEQ.L #0x00,D7> {}
<MI 21d4c MOVEA.W #0x01,A4> {}
<MI 21d4e MOVEA.L 0x2665e,A3> {}
<POP 21d50-21d54 Naked> Σ0 ↓ →0x21d68 ←0x21d66
<MI 21d50 CMPA.W #0x01,A3> {}
<MI 21d52 BEQ 0x21d68> {}
<POP 21d54-21d58 Naked> Σ0 ↓ →0x21d68
<MI 21d54 TST.B D7> {}
<MI 21d56 BNE 0x21d68> {}
<POP 21d58-21d5c Naked> Σ0 ↓ →0x21d60
<MI 21d58 CMPA.L (A6+0x8),A3> {}
<MI 21d5a BNE 0x21d60> {}
<POP 21d5c-21d60 Naked> Σ0 →0x21d66
<MI 21d5c MOVEQ.L #0x01,D7> {}
<MI 21d5e BRA 0x21d66> {}
<POP 21d60-21d66 Naked> Σ0 ↓ ←0x21d58
<MI 21d60 MOVEA.L A3,A4> {}
<MI 21d62 MOVEA.L (A3+0x26),A3> {}
<POP 21d66-21d68 Naked> Σ0 →0x21d50 ←0x21d5c
<MI 21d66 BRA 0x21d50> {}
<POP 21d68-21d6c Naked> Σ0 ↓ →0x21d8a ←0x21d50 ←0x21d54
<MI 21d68 TST.B D7> {}
<MI 21d6a BEQ 0x21d8a> {}
<POP 21d6c-21d70 Naked> Σ0 ↓ →0x21d76
<MI 21d6c CMPA.W #0x01,A4> {}
<MI 21d6e BNE 0x21d76> {}
<POP 21d70-21d76 Naked> Σ0 →0x21d7c
<MI 21d70 MOVE.L (A3+0x26),0x2665e> {}
<MI 21d74 BRA 0x21d7c> {}
<POP 21d76-21d7c Naked> Σ0 ↓ ←0x21d6c
<MI 21d76 MOVE.L (A3+0x26),(A4+0x26)> {}
<POP 21d7c-21d8a Naked> Σ0 ↓ ←0x21d70
<Pointer.fp 0x21d7c <LVAR 0x008 @ 4(r)>> Δ-4 {[@@8]}
<Const 0x21d7e 0x2a.4> Δ-4 {[@@8]|[##42]}
<Call 0x21d82 0x102a8> {[@@8]|[##42]}
Free2(a : Pointer; b : Long)
<POP 21d88-21d8a StackAdj> Δ+8 {}
<POP 21d8a-21d92 Epilogue> Σ0 ←0x21d2e ←0x21d68
@ 21d92
<LVAR 0x010 4(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x006 @ 4(rw)>
<LVAR -0x024 @>
<POP 21d92-21e50 Body>
<POP 21d92-21da8 Prologue> Σ0 ↓
<POP 21da8-21db2 RegCacheLoad> Σ0 ↓
<POP 21db2-21dd0 Naked> Σ0 ↓ →0x21dd2
<POP 21db2-21db4 StackAdj> Δ-30 {[-30-]}
<MI 21db4 MOVEA.L (A6+0xc),A0> {[-30-]}
<MI 21db8 MOVE.L (A0),-(A7)> Δ-4 {[-30-]|[4, '(A0)']}
<Call 0x21dba 0x21c36> {[-30-]|[4, '(A0)']}
<POP 21dbe-21dc0 StackAdj> Δ+4 {[-30-]}
<MI 21dc0 LEA.L (A6-0x24),A0> {[-30-]}
<POP 21dc4-21dcc StackPop> Δ+30 {[-30-]}
<BlockMove 30,A7,A0> Δ+30
<MI 21dcc TST.L (A6+0x8)> {[-30-]}
<MI 21dce BGE 0x21dd2> {[-30-]}
<POP 21dd0-21dd2 Naked> Σ0 ↓
<MI 21dd0 CLR.L (A6+0x8)> {}
<POP 21dd2-21dee Naked> Σ0 ↓ →0x21e00 ←0x21db2
<POP 21dd2-21dd4 StackAdj> Δ-4 {[-4-]}
<Blob 0x21dd4 [30] (A6-0x6)> Δ-30 {[-4-]|[«30»]}
<Call 0x21dde 0x21cb8> {[-4-]|[«30»]}
<POP 21de2-21de4 StackAdj> Δ+30 {[-4-]}
<MI 21de4 MOVE.L (A7)+,(A6-0x6)> Δ+4 {}
<MI 21de6 MOVEA.L (A6-0x6),A0> {}
<MI 21de8 CMPA.W #0x1,A0> {}
<MI 21dec BEQ 0x21e00> {}
<POP 21dee-21df6 Naked> Σ0 ↓ →0x21df8
<MI 21dee MOVE.L (A0+0x1e),D0> {}
<MI 21df2 CMP.L (A6+0x8),D0> {}
<MI 21df4 BNE 0x21df8> {}
<POP 21df6-21df8 Naked> Σ0 →0x21e44
<MI 21df6 BRA 0x21e44> {}
<POP 21df8-21e00 Naked> Σ0 ↓ ←0x21dee
<MI 21df8 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x21dfa 0x21d0c> {[4, '(A6-0x6)']}
<POP 21dfe-21e00 StackAdj> Δ+4 {}
<POP 21e00-21e34 Naked> Σ0 ↓ →0x21e44 ←0x21dd2
<Pointer.fp 0x21e00 <LVAR -0x006 @ 4(rw)>> Δ-4 {[@@-6]}
<Const 0x21e02 0x2a.4> Δ-4 {[@@-6]|[##42]}
<Call 0x21e06 0x1029c> {[@@-6]|[##42]}
Malloc1(length : Long) : Pointer
<POP 21e0c-21e0e StackAdj> Δ+8 {}
<MI 21e0e MOVEA.L (A6-0x6),A0> {}
<MI 21e10 MOVE.L 0x2665e,(A0+0x26)> {}
<MI 21e18 MOVE.L (A6-0x6),0x2665e> {}
<MI 21e1e MOVEA.L A0,A1> {}
<MI 21e20 LEA.L (A6-0x24),A2> {}
<BlockMove 30,A2,A1> {}
<MI 21e2c MOVE.L (A6+0x8),(A0+0x1e)> {}
<MI 21e30 TST.L (A6+0x8)> {}
<MI 21e32 BEQ 0x21e44> {}
<POP 21e34-21e44 Naked> Σ0 ↓
<POP 21e34-21e36 StackAdj> Δ-4 {[-4-]}
<MI 21e36 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x21e38 0x102a0> {[-4-]|[4, '(A6+0x8)']}
Malloc2(VAR dst : Pointer; length : Word)
<POP 21e3e-21e40 StackAdj> Δ+4 {[-4-]}
<MI 21e40 MOVE.L (A7)+,(A0+0x22)> Δ+4 {}
<POP 21e44-21e48 Naked> Σ0 ↓ ←0x21df6 ←0x21e00
<MI 21e44 MOVE.L (A6-0x6),(A6+0x10)> {}
<POP 21e48-21e50 Epilogue> Σ0
@ 21e50
<LVAR 0x00c @>
<LVAR 0x008 @ 4(r)>
<LVAR -0x008 4(rw)>
<POP 21e50-21eda Body>
<POP 21e50-21e66 Prologue> Σ0 ↓
<POP 21e66-21e6a RegCacheLoad> Σ0 ↓
<POP 21e6a-21e88 Naked> Σ0 ↓ →0x21ec8
<MI 21e6a MOVEA.L (A6+0x8),A0> {}
<MI 21e6c MOVE.W (A0),D0> {}
<MI 21e6e EXTW.L D0> {}
<MI 21e70 MOVE.L D0,D6> {}
<POP 21e72-21e74 StackAdj> Δ-4 {[-4-]}
<Pointer.fp 0x21e74 <LVAR 0x00c @>> Δ-4 {[-4-]|[@@12]}
<MI 21e78 MOVE.L D6,-(A7)> Δ-4 {[-4-]|[@@12]|[4, 'D6']}
<Call 0x21e7a 0x21d92> {[-4-]|[@@12]|[4, 'D6']}
<POP 21e7e-21e80 StackAdj> Δ+8 {[-4-]}
<MI 21e80 MOVE.L (A7)+,(A6-0x8)> Δ+4 {}
<MI 21e84 TST.L D6> {}
<MI 21e86 BEQ 0x21ec8> {}
<POP 21e88-21e96 Naked> Σ0 Δ-8 ↓
<MI 21e88 MOVEA.L (A6-0x8),A0> {}
<MI 21e8c MOVEA.L (A0+0x22),A0> {}
<MI 21e90 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 21e92 MOVE.L D6,-(A7)> Δ-4 {[4, 'A0']|[4, 'D6']}
<MI 21e94 MOVEQ.L #0x01,D7> {[4, 'A0']|[4, 'D6']}
<POP 21e96-21e9a Naked> Σ-8 ↓ →0x21ec6 ←0x21e9a
<MI 21e96 CMP.L (A7),D7> {[-8-]}
<MI 21e98 BGT 0x21ec6> {[-8-]}
<POP 21e9a-21ec6 Naked> Σ-8 ↓ →0x21e96
<MI 21e9a MOVE.L D7,D0> {[-8-]}
<MI 21e9c SUBQ.L #0x1,D0> {[-8-]}
<POP 0x21e9e LimitCheck 0x0 ≤ D0 ≤ 0x3ff> {[-8-]}
<MI 21ea8 MOVEA.L (A7+0x4),A0> {[-8-]}
<MI 21eac MOVEA.L (A6+0x8),A1> {[-8-]}
<MI 21eae MOVE.L D7,D1> {[-8-]}
<MI 21eb0 SUBQ.L #0x1,D1> {[-8-]}
<POP 0x21eb2 LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-8-]}
<MI 21ebc MOVE.B (A1+D1.L+#0x2),(A0+D0.L)> {[-8-]}
<MI 21ec2 ADDQ.L #0x1,D7> {[-8-]}
<MI 21ec4 BVC 0x21e96> {[-8-]}
<POP 21ec6-21ec8 Naked> Σ-8 Δ+8 ↓ ←0x21e96
<POP 21ec6-21ec8 StackAdj> Δ+8 {}
<POP 21ec8-21ed2 Naked> Σ0 ↓ ←0x21e6a
<Pointer.fp 0x21ec8 <LVAR 0x008 @ 4(r)>> Δ-4 {[@@8]}
<Call 0x21eca 0x102bc> {[@@8]}
FreeString(VAR a : String)
<POP 21ed0-21ed2 StackAdj> Δ+4 {}
<POP 21ed2-21eda Epilogue> Σ0
@ 21eda
<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 21eda-22046 Body>
<POP 21eda-21ef0 Prologue> Σ0 ↓
<POP 21ef0-21efe RegCacheLoad> Σ0 ↓
<POP 21efe-21f10 Naked> Σ0 ↓ →0x21f3e
<POP 21efe-21f00 StackAdj> Δ-4 {[-4-]}
<MI 21f00 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x21f02 0x20f36> {[-4-]|[4, '(A6+0x8)']}
<POP 21f06-21f08 StackAdj> Δ+4 {[-4-]}
<MI 21f08 MOVE.L (A7)+,(A6-0x10)> Δ+4 {}
<MI 21f0a MOVE.L (A6-0x10),D0> {}
<MI 21f0c CMP.L #0x01,D0> {}
<MI 21f0e BGE 0x21f3e> {}
<POP 21f10-21f3e Naked> Σ0 ↓
<Blob 0x21f10 [26] @> Δ-26 {[«26""»]}
<POP 21f22-21f24 StackAdj> Δ-4 {[«26""»]|[-4-]}
<Lit 0x21f24 25> {[«26""»]|[$$Too few arguments for SET]}
<Call 0x21f36 0x20b2a> {[«26""»]|[$$Too few arguments for SET]}
<POP 21f3a-21f3e StackAdj> Δ+30 {}
<POP 21f3e-21f44 Naked> Σ0 Δ-4 ↓ ←0x21efe
<MI 21f3e CLR.L (A6-0xc)> {}
<MI 21f40 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 21f42 MOVEQ.L #0x02,D6> {[4, 'D0']}
<POP 21f44-21f48 Naked> Σ-4 ↓ →0x21f66 ←0x21f48
<MI 21f44 CMP.L (A7),D6> {[-4-]}
<MI 21f46 BGT 0x21f66> {[-4-]}
<POP 21f48-21f66 Naked> Σ-4 ↓ →0x21f44
<POP 21f48-21f4c StackAdj> Δ-12 {[-16-]}
<MI 21f4c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<MI 21f4e MOVE.L D6,-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[4, 'D6']}
<Call 0x21f50 0x21774> {[-16-]|[4, '(A6+0x8)']|[4, 'D6']}
<POP 21f54-21f56 StackAdj> Δ+8 {[-16-]}
<Call 0x21f56 0x2173c> {[-16-]}
<POP 21f5a-21f5c StackAdj> Δ+8 {[-8-]}
<MI 21f5c MOVE.L (A6-0xc),D0> {[-8-]}
<MI 21f5e ADD.L (A7)+,D0> Δ+4 {[-4-]}
<MI 21f60 MOVE.L D0,(A6-0xc)> {[-4-]}
<MI 21f62 ADDQ.L #0x1,D6> {[-4-]}
<MI 21f64 BVC 0x21f44> {[-4-]}
<POP 21f66-21f96 Naked> Σ-4 Δ+4 ↓ →0x2203e ←0x21f44
<POP 21f66-21f68 StackAdj> Δ+4 {}
<MI 21f68 MOVE.L (A6-0x10),D0> {}
<MI 21f6a SUBQ.L #0x2,D0> {}
<MI 21f6c ADD.L D0,(A6-0xc)> {}
<POP 21f6e-21f70 StackAdj> Δ-4 {[-4-]}
<MI 21f70 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x21f72 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x21f76 0x21852> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 21f7a-21f7c StackAdj> Δ+8 {[-4-]}
<MI 21f7c MOVE.L (A7),(A6-0x4)> {[-4-]}
<Pointer.fp 0x21f80 <LVAR -0x004 @ 4(w)>> Δ-4 {[-4-]|[@@-4]}
<MI 21f84 MOVE.L (A6-0xc),-(A7)> Δ-4 {[-4-]|[@@-4]|[4, '(A6-0xc)']}
<Call 0x21f86 0x21d92> {[-4-]|[@@-4]|[4, '(A6-0xc)']}
<POP 21f8a-21f8c StackAdj> Δ+8 {[-4-]}
<MI 21f8c MOVE.L (A7)+,(A6-0x8)> Δ+4 {}
<MI 21f90 TST.L (A6-0xc)> {}
<MI 21f92 BLE 0x2203e> {}
<POP 21f96-21fa6 Naked> Σ0 Δ-8 ↓
<MI 21f96 MOVEA.L (A6-0x8),A0> {}
<MI 21f9a MOVEA.L (A0+0x22),A0> {}
<MI 21f9e MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 21fa0 MOVEQ.L #0x01,D7> {[4, 'A0']}
<MI 21fa2 MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, 'A0']|[4, '(A6-0x10)']}
<MI 21fa4 MOVEQ.L #0x02,D6> {[4, 'A0']|[4, '(A6-0x10)']}
<POP 21fa6-21fac Naked> Σ-8 ↓ →0x2203c ←0x22036
<MI 21fa6 CMP.L (A7),D6> {[-8-]}
<MI 21fa8 BGT 0x2203c> {[-8-]}
<POP 21fac-21fcc Naked> Σ-8 Δ-4 ↓ →0x21fe0
<POP 21fac-21fae StackAdj> Δ-8 {[-16-]}
<MI 21fae MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<MI 21fb0 MOVE.L D6,-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[4, 'D6']}
<Call 0x21fb2 0x21774> {[-16-]|[4, '(A6+0x8)']|[4, 'D6']}
<POP 21fb6-21fb8 StackAdj> Δ+8 {[-16-]}
<MI 21fb8 MOVE.L (A7)+,(A6-0x20)> Δ+4 {[-12-]}
<MI 21fbc MOVE.L (A7)+,(A6-0x1c)> Δ+4 {[-8-]}
<MI 21fc0 MOVE.L (A6-0x1c),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x1c)']}
<MI 21fc4 MOVE.L (A6-0x20),D5> {[-8-]|[4, '(A6-0x1c)']}
<MI 21fc8 CMP.L (A7),D5> {[-8-]|[4, '(A6-0x1c)']}
<MI 21fca BGT 0x21fe0> {[-8-]|[4, '(A6-0x1c)']}
<POP 21fcc-21fe0 Naked> Σ-12 ↓
<MI 21fcc MOVE.L (A7),D0> {[-12-]}
<POP 0x21fce LimitCheck -0x7fffffff ≤ D5> {[-12-]}
<MI 21fce CMPI.L #0x80000001,D5>
<MI 21fd4 BLT 0x21fde>
<POP 0x21fd6 LimitCheck D0 ≤ 0x7fffffff> {[-12-]}
<MI 21fd6 CMPI.L #0x7fffffff,D0>
<MI 21fdc BLE 0x21fe0>
<MI 21fde TRAP #15>
<POP 21fe0-21fe4 Naked> Σ-12 ↓ →0x22016 ←0x21fac ←0x21fe4
<MI 21fe0 CMP.L (A7),D5> {[-12-]}
<MI 21fe2 BGT 0x22016> {[-12-]}
<POP 21fe4-22016 Naked> Σ-12 ↓ →0x21fe0
<MI 21fe4 MOVE.L D7,D0> {[-12-]}
<MI 21fe6 SUBQ.L #0x1,D0> {[-12-]}
<POP 0x21fe8 LimitCheck 0x0 ≤ D0 ≤ 0x3ff> {[-12-]}
<MI 21ff2 MOVEA.L (A7+0x8),A0> {[-12-]}
<MI 21ff6 MOVE.L D5,D1> {[-12-]}
<MI 21ff8 SUBQ.L #0x1,D1> {[-12-]}
<POP 0x21ffa LimitCheck 0x0 ≤ D1 ≤ 0x1fff> {[-12-]}
<MI 22004 LEA.L 0x2462c,A1> {[-12-]}
<MI 2200a MOVE.B (A1+D1.L+#0x8),(A0+D0.L)> {[-12-]}
<MI 22010 ADDQ.L #0x1,D7> {[-12-]}
<MI 22012 ADDQ.L #0x1,D5> {[-12-]}
<MI 22014 BVC 0x21fe0> {[-12-]}
<POP 22016-2201c Naked> Σ-12 Δ+4 ↓ →0x22036 ←0x21fe0
<POP 22016-22018 StackAdj> Δ+4 {[-8-]}
<MI 22018 CMP.L (A6-0x10),D6> {[-8-]}
<MI 2201a BEQ 0x22036> {[-8-]}
<POP 2201c-22036 Naked> Σ-8 ↓
<MI 2201c MOVE.L D7,D0> {[-8-]}
<MI 2201e SUBQ.L #0x1,D0> {[-8-]}
<POP 0x22020 LimitCheck 0x0 ≤ D0 ≤ 0x3ff> {[-8-]}
<MI 2202a MOVEA.L (A7+0x4),A0> {[-8-]}
<MI 2202e MOVE.B #0x2c,(A0+D0.L)> {[-8-]}
<MI 22034 ADDQ.L #0x1,D7> {[-8-]}
<POP 22036-2203c Naked> Σ-8 ↓ →0x21fa6 ←0x22016
<MI 22036 ADDQ.L #0x1,D6> {[-8-]}
<MI 22038 BVC 0x21fa6> {[-8-]}
<POP 2203c-2203e Naked> Σ-8 Δ+8 ↓ ←0x21fa6
<POP 2203c-2203e StackAdj> Δ+8 {}
<POP 2203e-22046 Epilogue> Σ0 ←0x21f66
@ 22046
<LVAR 0x008 4(r)>
<LVAR -0x00c 4(rw)>
<POP 22046-22134 Body>
<POP 22046-2205c Prologue> Σ0 ↓
<POP 2205c-22064 RegCacheLoad> Σ0 ↓
<POP 22064-22096 Naked> Σ0 ↓ →0x220d8
<POP 22064-22066 StackAdj> Δ-4 {[-4-]}
<MI 22066 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x2206a 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x2206e 0x21852> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 22072-22074 StackAdj> Δ+8 {[-4-]}
<MI 22074 MOVEA.L (A7)+,A4> Δ+4 {}
<POP 22076-2207a StackAdj> Δ-34 {[-34-]}
<MI 2207a MOVE.L A4,-(A7)> Δ-4 {[-34-]|[4, 'A4']}
<Call 0x2207c 0x21c36> {[-34-]|[4, 'A4']}
<POP 22080-22082 StackAdj> Δ+4 {[-34-]}
<Call 0x22082 0x21cb8> {[-34-]}
<POP 22086-2208a StackAdj> Δ+30 {[-4-]}
<MI 2208a MOVE.L (A7)+,(A6-0xc)> Δ+4 {}
<MI 2208e MOVEA.L (A6-0xc),A0> {}
<MI 22092 CMPA.W #0x01,A0> {}
<MI 22094 BNE 0x220d8> {}
<POP 22096-220d8 Naked> Σ0 ↓
<Blob 0x22096 [20] @> Δ-20 {[«20""»]}
<POP 220a8-220aa StackAdj> Δ-8 {[«20""»]|[-8-]}
<Lit 0x220aa 19> {[«20""»]|[-4-]|[$$Unknown variable :_]}
<MI 220ba MOVE.L (A6+0x8),(A7)> {[«20""»]|[-4-]|[4, '(A6+0x8)']}
<POP 220b4-220ba StackAdj> Δ-8 {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-8-]}
<Const 0x220be 0x1.4> Δ-4 {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-8-]|[##1]}
<Call 0x220c2 0x21852> {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-8-]|[##1]}
<POP 220c6-220c8 StackAdj> Δ+8 {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-4-]}
<Call 0x220c8 0x102d0> {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-4-]}
StringCat2(a, b : String) : String
<POP 220ce-220d0 StackAdj> Δ+8 {[«20""»]|[-4-]}
<Call 0x220d0 0x20b2a> {[«20""»]|[-4-]}
<POP 220d4-220d8 StackAdj> Δ+24 {}
<POP 220d8-220ee Naked> Σ0 Δ-8 ↓ ←0x22064
<MI 220d8 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Blob 0x220da [4] 0x26634> Δ-4 {[4, 'A0']|[«4»]}
<MI 220dc MOVE.L (A0+0x1e),-(A7)> Δ-4 {[4, 'A0']|[«4»]|[4, '(A0+0x1e)']}
<MI 220e0 NEG.L (A7)> {[4, 'A0']|[«4»]|[4, '(A0+0x1e)']}
<Call 0x220e2 0x2107e> {[4, 'A0']|[«4»]|[4, '(A0+0x1e)']}
<POP 220e6-220e8 StackAdj> Δ+4 {[4, 'A0']|[«4»]}
<MI 220e8 MOVE.L (A0+0x1e),(A7)> {[4, 'A0']|[4, '(A0+0x1e)']}
<MI 220ec MOVEQ.L #0x01,D7> {[4, 'A0']|[4, '(A0+0x1e)']}
<POP 220ee-220f2 Naked> Σ-8 ↓ →0x2212a ←0x220f2
<MI 220ee CMP.L (A7),D7> {[-8-]}
<MI 220f0 BGT 0x2212a> {[-8-]}
<POP 220f2-2212a Naked> Σ-8 ↓ →0x220ee
<MI 220f2 MOVE.L D7,D0> {[-8-]}
<MI 220f4 ADD.L 0x26634,D0> {[-8-]}
<MI 220f6 SUBQ.L #0x1,D0> {[-8-]}
<MI 220f8 SUBQ.L #0x1,D0> {[-8-]}
<POP 0x220fa LimitCheck 0x0 ≤ D0 ≤ 0x1fff> {[-8-]}
<MI 22104 LEA.L 0x2462c,A0> {[-8-]}
<MI 2210a MOVEA.L (A7+0x4),A1> {[-8-]}
<MI 2210e MOVEA.L (A1+0x22),A1> {[-8-]}
<MI 22112 MOVE.L D7,D1> {[-8-]}
<MI 22114 SUBQ.L #0x1,D1> {[-8-]}
<POP 0x22116 LimitCheck 0x0 ≤ D1 ≤ 0x3ff> {[-8-]}
<MI 22120 MOVE.B (A1+D1.L),(A0+D0.L+#0x8)> {[-8-]}
<MI 22126 ADDQ.L #0x1,D7> {[-8-]}
<MI 22128 BVC 0x220ee> {[-8-]}
<POP 2212a-2212c Naked> Σ-8 Δ+8 ↓ ←0x220ee
<POP 2212a-2212c StackAdj> Δ+8 {}
<POP 2212c-22134 Epilogue> Σ0
@ 22134
<LVAR -0x004 4(rw)>
<POP 22134-22196 Body>
<POP 22134-2214a Prologue> Σ0 ↓
<POP 2214a-22152 RegCacheLoad> Σ0 ↓
<POP 22152-22158 Naked> Σ0 ↓
<MI 22152 MOVE.L 0x2665e,(A6-0x4)> {}
<POP 22158-2215e Naked> Σ0 ↓ →0x2218e ←0x2215e
<MI 22158 MOVEA.L (A6-0x4),A0> {}
<MI 2215a CMPA.W #0x01,A0> {}
<MI 2215c BEQ 0x2218e> {}
<POP 2215e-2218e Naked> Σ0 →0x22158
<POP 2215e-22160 StackAdj> Δ-30 {[-30-]}
<MI 22160 MOVEA.L A7,A1> {[-30-]}
<MI 22162 MOVEA.L A0,A2> {[-30-]}
<BlockMove 30,A2,A1> {[-30-]}
<POP 2216c-2216e StackAdj> Δ-4 {[-34-]}
<Lit 0x2216e> {[-30-]|[$$…]}
<Pointer.sp 0x2216e 4> Δ-4
<Const 0x22172 0x1.2> Δ-2
<Const 0x22174 0x1e.2> Δ-2
<Call 0x22176 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 2217c-2217e StackAdj> Δ+8
<Call 0x2217e 0x103e0> {[-30-]|[$$…]}
WriteConsoleStringCrLf(str : String)
<POP 22184-22188 StackAdj> Δ+34 {}
<MI 22188 MOVE.L (A0+0x26),(A6-0x4)> {}
<MI 2218c BRA 0x22158> {}
<POP 2218e-22196 Epilogue> Σ0 ←0x22158
@ 22196
<LVAR 0x008 4(r)>
<POP 22196-221d2 Body>
<POP 22196-221a8 Prologue> Σ0 ↓
<POP 221a8-221ce Naked> Σ0 ↓
<POP 221a8-221ac StackAdj> Δ-38 {[-38-]}
<MI 221ac MOVE.L (A6+0x8),-(A7)> Δ-4 {[-38-]|[4, '(A6+0x8)']}
<Const 0x221b0 0x1.4> Δ-4 {[-38-]|[4, '(A6+0x8)']|[##1]}
<Call 0x221b4 0x21852> {[-38-]|[4, '(A6+0x8)']|[##1]}
<POP 221b8-221ba StackAdj> Δ+8 {[-38-]}
<Call 0x221ba 0x21c36> {[-38-]}
<POP 221be-221c0 StackAdj> Δ+4 {[-34-]}
<Call 0x221c0 0x21cb8> {[-34-]}
<POP 221c4-221c8 StackAdj> Δ+30 {[-4-]}
<Call 0x221c8 0x21d0c> {[-4-]}
<POP 221cc-221ce StackAdj> Δ+4 {}
<POP 221ce-221d2 Epilogue> Σ0
@ 221d2
<POP 221d2-22200 Body>
<POP 221d2-221e4 Prologue> Σ0 ↓
<POP 221e4-221fc Naked> Σ0 ↓
<POP 221e4-221e6 StackAdj> Δ-8 {[-8-]}
<Call 0x221e6 0x103cc> {[-8-]}
GetPushLevel() : Long
<Call 0x221ec 0x102e4> {[-8-]}
Long2String(a : Long) : String
<POP 221f2-221f4 StackAdj> Δ+4 {[-4-]}
<Call 0x221f4 0x103e0> {[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 221fa-221fc StackAdj> Δ+4 {}
<POP 221fc-22200 Epilogue> Σ0
@ 22200
<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 22200-22528 Body>
<POP 22200-22216 Prologue> Σ0 ↓
<POP 22216-2222e RegCacheLoad> Σ0 ↓
<POP 2222e-2223e Naked> Σ0 ↓ →0x22266
<POP 2222e-22230 StackAdj> Δ-4 {[-4-]}
<MI 22230 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x22232 0x20f36> {[-4-]|[4, '(A6+0x8)']}
<POP 22236-22238 StackAdj> Δ+4 {[-4-]}
<MI 22238 MOVE.L (A7)+,(A6-0x2c)> Δ+4 {}
<MI 2223c BNE 0x22266> {}
<POP 2223e-22266 Naked> Σ0 →0x22276
<POP 2223e-22240 StackAdj> Δ-4 {[-4-]}
<POP 22240-22241 StackAdj> Δ+2 {[-2-]}
<Blob 0x22241 [2] @> Δ-2 {[-2-]|[«2""»]}
<MI 22244 MOVE.B 0x2074f,(A7+0x1)> {[-2-]|[«2""»]}
<MI 2224a MOVE.B 0x20750,(A7+0x2)> {[-2-]|[«2""»]}
<POP 22250-22252 StackAdj> Δ-4 {[-2-]|[«2""»]|[-4-]}
<Lit 0x22252> {[-2-]|[«2""»]|[$$…]}
<Pointer.sp 0x22252 4> Δ-4
<Const 0x22256 0x1.2> Δ-2
<Const 0x22258 0x3.2> Δ-2
<Call 0x2225c 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 2225e-22260 StackAdj> Δ+8
<MI 22260 MOVE.L (A7)+,(A6-0x3c)> Δ+4 {[-2-]|[«2""»]}
<POP 22262-22264 StackAdj> Δ+4 {}
<MI 22264 BRA 0x22276> {}
<POP 22266-22276 Naked> Σ0 ↓ ←0x2222e
<POP 22266-22268 StackAdj> Δ-4 {[-4-]}
<MI 22268 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x2226a 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x2226e 0x21852> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 22272-22274 StackAdj> Δ+8 {[-4-]}
<MI 22274 MOVE.L (A7)+,(A6-0x3c)> Δ+4 {}
<POP 22276-222c6 Naked> Σ0 ↓ →0x222d4 ←0x2223e
<Blob 0x22276 [6] @> Δ-6 {[«6""»]}
<POP 22286-22288 StackAdj> Δ-4 {[«6""»]|[-4-]}
<MI 22288 MOVE.L (A6-0x3c),-(A7)> Δ-4 {[«6""»]|[-4-]|[4, '(A6-0x3c)']}
<POP 2228a-2228c StackAdj> Δ-4 {[«6""»]|[-4-]|[4, '(A6-0x3c)']|[-4-]}
<Lit 0x2228c 5> {[«6""»]|[-4-]|[4, '(A6-0x3c)']|[$$.M200]}
<Call 0x2229a 0x102d0> {[«6""»]|[-4-]|[4, '(A6-0x3c)']|[$$.M200]}
StringCat2(a, b : String) : String
<POP 222a0-222a2 StackAdj> Δ+8 {[«6""»]|[-4-]}
<MI 222a2 MOVE.L (A7)+,(A6-0x3c)> Δ+4 {[«6""»]}
<POP 222a4-222a6 StackAdj> Δ+2 {[-4-]}
<MI 222a6 MOVE.L (A6-0x3c),(A7)> {[4, '(A6-0x3c)']}
<MI 222a8 CLR.B -(A7)> Δ-2 {[4, '(A6-0x3c)']|[#0]}
<Const 0x222aa 0x1.2> Δ-2 {[4, '(A6-0x3c)']|[#0]|[#1]}
<Const 0x222ac 0x0.4> Δ-4 {[4, '(A6-0x3c)']|[#0]|[#1]|[##0]}
<Pointer.fp 0x222b0 <LVAR -0x038 @ 1(r)>> Δ-4 {[4, '(A6-0x3c)']|[#0]|[#1]|[##0]|[@@-56]}
<Pointer.fp 0x222b4 <LVAR -0x036 @ 4(r)>> Δ-4 {[4, '(A6-0x3c)']|[#0]|[#1]|[##0]|[@@-56]|[@@-54]}
<Call 0x222b8 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 222be-222c0 StackAdj> Δ+20 {}
<MI 222c0 TST.B (A6-0x38)> {}
<MI 222c4 BEQ 0x222d4> {}
<POP 222c6-222d4 Naked> Σ0 →0x22520
<Pointer.fp 0x222c6 <LVAR -0x03c @ 4(rw)>> Δ-4 {[@@-60]}
<Call 0x222c8 0x102bc> {[@@-60]}
FreeString(VAR a : String)
<POP 222ce-222d0 StackAdj> Δ+4 {}
<MI 222d0 BRA 0x22520> {}
<POP 222d4-2231a Naked> Σ0 ↓ →0x22350 ←0x22276
<MI 222d4 MOVEA.L (A6-0x36),A0> {}
<MI 222d8 MOVE.B (A0+0x3f),D0> {}
<MI 222dc LSL.B #0x6,D0> {}
<MI 222de LSR.B #0x7,D0> {}
<MI 222e0 MOVE.B D0,(A6-0x32)> {}
<MI 222e4 CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x222e6 0x1.2> Δ-2 {[#0]|[#1]}
<Const 0x222e8 0x1.4> Δ-4 {[#0]|[#1]|[##1]}
<Pointer.fp 0x222ec <LVAR -0x038 @ 1(r)>> Δ-4 {[#0]|[#1]|[##1]|[@@-56]}
<Pointer.fp 0x222f0 <LVAR -0x036 @ 4(r)>> Δ-4 {[#0]|[#1]|[##1]|[@@-56]|[@@-54]}
<Call 0x222f4 0x1038c> {[#0]|[#1]|[##1]|[@@-56]|[@@-54]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 222fa-222fe StackAdj> Δ+16 {}
<MI 222fe MOVEA.L (A6-0x3c),A0> {}
<MI 22300 MOVE.W (A0),D1> {}
<MI 22302 EXTW.L D1> {}
<MI 22304 SUBQ.L #0x5,D1> {}
<POP 0x22306 LimitCheck -0x8000 ≤ D1 ≤ 0x7fff> {}
<MI 22314 MOVE.W D1,(A0)> {}
<MI 22316 TST.B D0> {}
<MI 22318 BNE 0x22350> {}
<POP 2231a-22350 Naked> Σ0 →0x22520
<Blob 0x2231a [18] @> Δ-18 {[«18""»]}
<POP 22326-22328 StackAdj> Δ-4 {[«18""»]|[-4-]}
<MI 22328 MOVE.L (A6-0x3c),-(A7)> Δ-4 {[«18""»]|[-4-]|[4, '(A6-0x3c)']}
<POP 2232a-2232c StackAdj> Δ-4 {[«18""»]|[-4-]|[4, '(A6-0x3c)']|[-4-]}
<Lit 0x2232c 18> {[«18""»]|[-4-]|[4, '(A6-0x3c)']|[$$ is not a program.]}
<Call 0x2233a 0x102d0> {[«18""»]|[-4-]|[4, '(A6-0x3c)']|[$$ is not a program.]}
StringCat2(a, b : String) : String
<POP 22340-22342 StackAdj> Δ+8 {[«18""»]|[-4-]}
<Call 0x22342 0x103e0> {[«18""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 22348-2234c StackAdj> Δ+22 {}
<MI 2234c BRA 0x22520> {}
<POP 22350-2236a Naked> Σ0 Δ-8 ↓ ←0x222d4
<Pointer.fp 0x22350 <LVAR -0x030 @ 4(r)>> Δ-4 {[@@-48]}
<Call 0x22354 0x102b8> {[@@-48]}
NewString(VAR a : String)
<POP 2235a-2235c StackAdj> Δ+4 {}
<MI 2235c MOVEA.L (A6-0x30),A0> {}
<MI 22360 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 22362 MOVEQ.L #0x01,D7> {[4, 'A0']}
<MI 22364 MOVE.L (A6-0x2c),-(A7)> Δ-4 {[4, 'A0']|[4, '(A6-0x2c)']}
<MI 22368 MOVEQ.L #0x02,D5> {[4, 'A0']|[4, '(A6-0x2c)']}
<POP 2236a-22370 Naked> Σ-8 ↓ →0x22402 ←0x223fc
<MI 2236a CMP.L (A7),D5> {[-8-]}
<MI 2236c BGT 0x22402> {[-8-]}
<POP 22370-22390 Naked> Σ-8 Δ-4 ↓ →0x223a4
<POP 22370-22372 StackAdj> Δ-8 {[-16-]}
<MI 22372 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<MI 22374 MOVE.L D5,-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[4, 'D5']}
<Call 0x22376 0x21774> {[-16-]|[4, '(A6+0x8)']|[4, 'D5']}
<POP 2237a-2237c StackAdj> Δ+8 {[-16-]}
<MI 2237c MOVE.L (A7)+,(A6-0x28)> Δ+4 {[-12-]}
<MI 22380 MOVE.L (A7)+,(A6-0x24)> Δ+4 {[-8-]}
<MI 22384 MOVE.L (A6-0x24),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x24)']}
<MI 22388 MOVE.L (A6-0x28),D6> {[-8-]|[4, '(A6-0x24)']}
<MI 2238c CMP.L (A7),D6> {[-8-]|[4, '(A6-0x24)']}
<MI 2238e BGT 0x223a4> {[-8-]|[4, '(A6-0x24)']}
<POP 22390-223a4 Naked> Σ-12 ↓
<MI 22390 MOVE.L (A7),D0> {[-12-]}
<POP 0x22392 LimitCheck -0x7fffffff ≤ D6> {[-12-]}
<MI 22392 CMPI.L #0x80000001,D6>
<MI 22398 BLT 0x223a2>
<POP 0x2239a LimitCheck D0 ≤ 0x7fffffff> {[-12-]}
<MI 2239a CMPI.L #0x7fffffff,D0>
<MI 223a0 BLE 0x223a4>
<MI 223a2 TRAP #15>
<POP 223a4-223a8 Naked> Σ-12 ↓ →0x223da ←0x22370 ←0x223a8
<MI 223a4 CMP.L (A7),D6> {[-12-]}
<MI 223a6 BGT 0x223da> {[-12-]}
<POP 223a8-223da Naked> Σ-12 ↓ →0x223a4
<MI 223a8 MOVE.L D7,D0> {[-12-]}
<MI 223aa SUBQ.L #0x1,D0> {[-12-]}
<POP 0x223ac LimitCheck 0x0 ≤ D0 ≤ 0x7d> {[-12-]}
<MI 223b6 MOVEA.L (A7+0x8),A0> {[-12-]}
<MI 223ba MOVE.L D6,D1> {[-12-]}
<MI 223bc SUBQ.L #0x1,D1> {[-12-]}
<POP 0x223be LimitCheck 0x0 ≤ D1 ≤ 0x1fff> {[-12-]}
<MI 223c8 LEA.L 0x2462c,A1> {[-12-]}
<MI 223ce MOVE.B (A1+D1.L+#0x8),(A0+D0.L+#0x2)> {[-12-]}
<MI 223d4 ADDQ.L #0x1,D7> {[-12-]}
<MI 223d6 ADDQ.L #0x1,D6> {[-12-]}
<MI 223d8 BVC 0x223a4> {[-12-]}
<POP 223da-223e2 Naked> Σ-12 Δ+4 ↓ →0x223fc ←0x223a4
<POP 223da-223dc StackAdj> Δ+4 {[-8-]}
<MI 223dc CMP.L (A6-0x2c),D5> {[-8-]}
<MI 223e0 BEQ 0x223fc> {[-8-]}
<POP 223e2-223fc Naked> Σ-8 ↓
<MI 223e2 MOVE.L D7,D0> {[-8-]}
<MI 223e4 SUBQ.L #0x1,D0> {[-8-]}
<POP 0x223e6 LimitCheck 0x0 ≤ D0 ≤ 0x7d> {[-8-]}
<MI 223f0 MOVEA.L (A7+0x4),A0> {[-8-]}
<MI 223f4 MOVE.B #0x2c,(A0+D0.L+#0x2)> {[-8-]}
<MI 223fa ADDQ.L #0x1,D7> {[-8-]}
<POP 223fc-22402 Naked> Σ-8 ↓ →0x2236a ←0x223da
<MI 223fc ADDQ.L #0x1,D5> {[-8-]}
<MI 223fe BVC 0x2236a> {[-8-]}
<POP 22402-224b2 Naked> Σ-8 Δ+8 ↓ →0x224b8 ←0x2236a
<POP 22402-22404 StackAdj> Δ+4 {[-4-]}
<MI 22404 MOVEA.L (A7),A0> {[-4-]}
<MI 22406 MOVE.L D7,D0> {[-4-]}
<MI 22408 SUBQ.L #0x1,D0> {[-4-]}
<POP 0x2240a LimitCheck -0x8000 ≤ D0 ≤ 0x7fff> {[-4-]}
<MI 22418 MOVE.W D0,(A0)> {[-4-]}
<POP 2241a-2241c StackAdj> Δ+2 {[-2-]}
<POP 2241c-2241d StackAdj> Δ+2 {}
<Blob 0x2241d [2] @> Δ-2 {[«2""»]}
<Blob 0x22420 [2] @> Δ-2 {[«2""»]|[«2""»]}
<Blob 0x22424 [2] @> Δ-2 {[«2""»]|[«2""»]|[«2""»]}
<POP 22428-2242a StackAdj> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[-4-]}
<Lit 0x2242a 6> {[«2""»]|[«2""»]|[«2""»]|[$$STATUS]}
<MI 22438 MOVE.L (A7)+,(A6-0x8)> Δ+4 {[«2""»]|[«2""»]|[«2""»]}
<POP 2243c-2243e StackAdj> Δ+2 {[«2""»]|[«2""»]}
<MI 2243e MOVE.L (A6+0x8),(A7)> {[4, '(A6+0x8)']}
<Const 0x22440 0x0.4> Δ-4 {[4, '(A6+0x8)']|[##0]}
<MI 22444 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']}
<Pointer.fp 0x22448 <LVAR -0x010 @ 4(r)>> Δ-4 {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']|[@@-16]}
<Pointer.fp 0x2244c <LVAR -0x013 @ 1(r)>> Δ-4 {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']|[@@-16]|[@@-19]}
<Call 0x22450 0x23d8a> {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']|[@@-16]|[@@-19]}
<POP 22456-22458 StackAdj> Δ+20 {}
<Pointer.fp 0x22458 <LVAR -0x008 @ 4(rw)>> Δ-4 {[@@-8]}
<Call 0x2245c 0x102bc> {[@@-8]}
FreeString(VAR a : String)
<POP 22462-22464 StackAdj> Δ+2 {[-2-]}
<POP 22464-22465 StackAdj> Δ+2 {}
<Blob 0x22465 [2] @> Δ-2 {[«2""»]}
<Blob 0x22468 [2] @> Δ-2 {[«2""»]|[«2""»]}
<Blob 0x2246c [2] @> Δ-2 {[«2""»]|[«2""»]|[«2""»]}
<POP 22470-22472 StackAdj> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[-4-]}
<Lit 0x22472 6> {[«2""»]|[«2""»]|[«2""»]|[$$RESULT]}
<MI 22480 MOVE.L (A7)+,(A6-0x8)> Δ+4 {[«2""»]|[«2""»]|[«2""»]}
<POP 22484-22486 StackAdj> Δ+2 {[«2""»]|[«2""»]}
<MI 22486 MOVE.L (A6+0x8),(A7)> {[4, '(A6+0x8)']}
<Const 0x22488 0x0.4> Δ-4 {[4, '(A6+0x8)']|[##0]}
<MI 2248c MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']}
<Pointer.fp 0x22490 <LVAR -0x00c @ 4(r)>> Δ-4 {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']|[@@-12]}
<Pointer.fp 0x22494 <LVAR -0x012 @ 1(r)>> Δ-4 {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']|[@@-12]|[@@-18]}
<Call 0x22498 0x23d8a> {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']|[@@-12]|[@@-18]}
<POP 2249e-224a0 StackAdj> Δ+20 {}
<Pointer.fp 0x224a0 <LVAR -0x008 @ 4(rw)>> Δ-4 {[@@-8]}
<Call 0x224a4 0x102bc> {[@@-8]}
FreeString(VAR a : String)
<POP 224aa-224ac StackAdj> Δ+4 {}
<MI 224ac TST.B (A6-0x13)> {}
<MI 224b0 BNE 0x224b8> {}
<POP 224b2-224b8 Naked> Σ0 ↓ →0x224be
<MI 224b2 TST.B (A6-0x12)> {}
<MI 224b6 BEQ 0x224be> {}
<POP 224b8-224be Naked> Σ0 →0x224c2 ←0x22402
<MI 224b8 CLR.B (A6-0x4)> {}
<MI 224bc BRA 0x224c2> {}
<POP 224be-224c2 Naked> Σ0 ↓ ←0x224b2
<MI 224be MOVE.B #0x01,(A6-0x4)> {}
<POP 224c2-224e8 Naked> Σ0 ↓ →0x22508 ←0x224b8
<MI 224c2 MOVE.L (A6-0x3c),-(A7)> Δ-4 {[4, '(A6-0x3c)']}
<MI 224c4 MOVE.L (A6-0x30),-(A7)> Δ-4 {[4, '(A6-0x3c)']|[4, '(A6-0x30)']}
<MI 224c8 MOVE.B (A6-0x4),D0> {[4, '(A6-0x3c)']|[4, '(A6-0x30)']}
<MI 224cc EXTB.W D0> {[4, '(A6-0x3c)']|[4, '(A6-0x30)']}
<POP 0x224ce LimitCheck 0x0 ≤ D0 ≤ 0x2> {[4, '(A6-0x3c)']|[4, '(A6-0x30)']}
<MI 224d2 MOVE.B D0,-(A7)> Δ-2 {[4, '(A6-0x3c)']|[4, '(A6-0x30)']|[2, 'D0']}
<Pointer.fp 0x224d4 <LVAR -0x014 @ 1(r)>> Δ-4 {[4, '(A6-0x3c)']|[4, '(A6-0x30)']|[2, 'D0']|[@@-20]}
<Call 0x224d8 0x103b0> {[4, '(A6-0x3c)']|[4, '(A6-0x30)']|[2, 'D0']|[@@-20]}
PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
<POP 224de-224e2 StackAdj> Δ+14 {}
<MI 224e2 TST.B (A6-0x13)> {}
<MI 224e6 BEQ 0x22508> {}
<POP 224e8-22508 Naked> Σ0 ↓
<MI 224e8 MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0x10)']}
<POP 224ec-224ee StackAdj> Δ-4 {[4, '(A6-0x10)']|[-4-]}
<MI 224ee MOVE.B (A6-0x14),D0> {[4, '(A6-0x10)']|[-4-]}
<MI 224f2 EXTB.W D0> {[4, '(A6-0x10)']|[-4-]}
<POP 0x224f4 LimitCheck 0x0 ≤ D0 ≤ 0xe> {[4, '(A6-0x10)']|[-4-]}
<MI 224f8 MOVE.B D0,-(A7)> Δ-2 {[4, '(A6-0x10)']|[-4-]|[2, 'D0']}
<Call 0x224fa 0x103c0> {[4, '(A6-0x10)']|[-4-]|[2, 'D0']}
ExpErrMsg(a: Byte) : String
<POP 22500-22502 StackAdj> Δ+2 {[4, '(A6-0x10)']|[-4-]}
<Call 0x22502 0x21e50> {[4, '(A6-0x10)']|[-4-]}
<POP 22506-22508 StackAdj> Δ+8 {}
<POP 22508-2250e Naked> Σ0 ↓ →0x22520 ←0x224c2
<MI 22508 TST.B (A6-0x12)> {}
<MI 2250c BEQ 0x22520> {}
<POP 2250e-22520 Naked> Σ0 ↓
<MI 2250e MOVE.L (A6-0xc),-(A7)> Δ-4 {[4, '(A6-0xc)']}
<POP 22512-22514 StackAdj> Δ-4 {[4, '(A6-0xc)']|[-4-]}
<Call 0x22514 0x103c8> {[4, '(A6-0xc)']|[-4-]}
FSCALL_103c8
<Call 0x2251a 0x21e50> {[4, '(A6-0xc)']|[-4-]}
<POP 2251e-22520 StackAdj> Δ+8 {}
<POP 22520-22528 Epilogue> Σ0 ←0x222c6 ←0x2231a ←0x22508
@ 22528
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 4(rw)>
<LVAR -0x008 @ 4(rw)>
<POP 22528-225a0 Body>
<POP 22528-2253e Prologue> Σ0 ↓
<POP 2253e-22546 RegCacheLoad> Σ0 ↓
<POP 22546-2257a Naked> Σ0 ↓ →0x22580
<POP 22546-22548 StackAdj> Δ-4 {[-4-]}
<MI 22548 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x2254c 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22550 0x21852> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 22554-22556 StackAdj> Δ+8 {[-4-]}
<MI 22556 MOVE.L (A7),(A6-0x8)> {[-4-]}
<MI 22558 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x2255c 0x2.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##2]}
<Call 0x22560 0x21852> {[-4-]|[4, '(A6+0x8)']|[##2]}
<POP 22564-22566 StackAdj> Δ+8 {[-4-]}
<MI 22566 MOVE.L (A7),(A6-0x4)> {[-4-]}
<POP 22568-2256a StackAdj> Δ+2 {[-2-]}
<MI 2256a MOVE.L (A6-0x8),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x8)']}
<MI 2256c MOVE.L (A6-0x4),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x8)']|[4, '(A6-0x4)']}
<Call 0x2256e 0x102c8> {[-2-]|[4, '(A6-0x8)']|[4, '(A6-0x4)']}
StringEqual(a, b : String) : Byte
<POP 22574-22576 StackAdj> Δ+8 {[-2-]}
<MI 22576 TST.B (A7)+> Δ+2 {}
<MI 22578 BEQ 0x22580> {}
<POP 2257a-22580 Naked> Σ0 →0x22584
<Call 0x2257a 0x21312> {}
<MI 2257e BRA 0x22584> {}
<POP 22580-22584 Naked> Σ0 ↓ ←0x22546
<Call 0x22580 0x21358> {}
<POP 22584-22598 Naked> Σ0 ↓ ←0x2257a
<Pointer.fp 0x22584 <LVAR -0x004 @ 4(rw)>> Δ-4 {[@@-4]}
<Call 0x22586 0x102bc> {[@@-4]}
FreeString(VAR a : String)
<POP 2258c-2258e StackAdj> Δ+4 {}
<Pointer.fp 0x2258e <LVAR -0x008 @ 4(rw)>> Δ-4 {[@@-8]}
<Call 0x22590 0x102bc> {[@@-8]}
FreeString(VAR a : String)
<POP 22596-22598 StackAdj> Δ+4 {}
<POP 22598-225a0 Epilogue> Σ0
@ 225a0
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 4(rw)>
<LVAR -0x008 @ 4(rw)>
<POP 225a0-22618 Body>
<POP 225a0-225b6 Prologue> Σ0 ↓
<POP 225b6-225be RegCacheLoad> Σ0 ↓
<POP 225be-225f2 Naked> Σ0 ↓ →0x225f8
<POP 225be-225c0 StackAdj> Δ-4 {[-4-]}
<MI 225c0 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x225c4 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x225c8 0x21852> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 225cc-225ce StackAdj> Δ+8 {[-4-]}
<MI 225ce MOVE.L (A7),(A6-0x8)> {[-4-]}
<MI 225d0 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x225d4 0x2.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##2]}
<Call 0x225d8 0x21852> {[-4-]|[4, '(A6+0x8)']|[##2]}
<POP 225dc-225de StackAdj> Δ+8 {[-4-]}
<MI 225de MOVE.L (A7),(A6-0x4)> {[-4-]}
<POP 225e0-225e2 StackAdj> Δ+2 {[-2-]}
<MI 225e2 MOVE.L (A6-0x8),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x8)']}
<MI 225e4 MOVE.L (A6-0x4),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x8)']|[4, '(A6-0x4)']}
<Call 0x225e6 0x102c8> {[-2-]|[4, '(A6-0x8)']|[4, '(A6-0x4)']}
StringEqual(a, b : String) : Byte
<POP 225ec-225ee StackAdj> Δ+8 {[-2-]}
<MI 225ee TST.B (A7)+> Δ+2 {}
<MI 225f0 BNE 0x225f8> {}
<POP 225f2-225f8 Naked> Σ0 →0x225fc
<Call 0x225f2 0x21312> {}
<MI 225f6 BRA 0x225fc> {}
<POP 225f8-225fc Naked> Σ0 ↓ ←0x225be
<Call 0x225f8 0x21358> {}
<POP 225fc-22610 Naked> Σ0 ↓ ←0x225f2
<Pointer.fp 0x225fc <LVAR -0x004 @ 4(rw)>> Δ-4 {[@@-4]}
<Call 0x225fe 0x102bc> {[@@-4]}
FreeString(VAR a : String)
<POP 22604-22606 StackAdj> Δ+4 {}
<Pointer.fp 0x22606 <LVAR -0x008 @ 4(rw)>> Δ-4 {[@@-8]}
<Call 0x22608 0x102bc> {[@@-8]}
FreeString(VAR a : String)
<POP 2260e-22610 StackAdj> Δ+4 {}
<POP 22610-22618 Epilogue> Σ0
@ 22618
<LVAR 0x008 4(r)>
<POP 22618-22644 Body>
<POP 22618-2262a Prologue> Σ0 ↓
<POP 2262a-22640 Naked> Σ0 ↓
<POP 2262a-2262c StackAdj> Δ-4 {[-4-]}
<MI 2262c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x22630 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22634 0x21852> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 22638-2263a StackAdj> Δ+8 {[-4-]}
<Call 0x2263a 0x2164a> {[-4-]}
<POP 2263e-22640 StackAdj> Δ+4 {}
<POP 22640-22644 Epilogue> Σ0
@ 22644
<LVAR 0x008 4(r)>
<LVAR -0x014 @ 4(rw)>
<POP 22644-22744 Body>
<POP 22644-2265a Prologue> Σ0 ↓
<POP 2265a-22664 RegCacheLoad> Σ0 ↓
<POP 22664-226c2 Naked> Σ0 ↓ →0x226f2
<POP 22664-22666 StackAdj> Δ-4 {[-4-]}
<MI 22666 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x22668 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x2266c 0x21852> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 22670-22672 StackAdj> Δ+8 {[-4-]}
<MI 22672 MOVE.L (A7),(A6-0x14)> {[-4-]}
<MI 22674 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x22676 0x2.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##2]}
<Call 0x2267a 0x21852> {[-4-]|[4, '(A6+0x8)']|[##2]}
<POP 2267e-22680 StackAdj> Δ+8 {[-4-]}
<MI 22680 MOVEA.L (A7)+,A4> Δ+4 {}
<POP 22682-22686 StackAdj> Δ-12 {[-12-]}
<MI 22686 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']}
<Const 0x22688 0x3.4> Δ-4 {[-12-]|[4, '(A6+0x8)']|[##3]}
<Call 0x2268c 0x21884> {[-12-]|[4, '(A6+0x8)']|[##3]}
<POP 22690-22692 StackAdj> Δ+8 {[-12-]}
<Call 0x22692 0x10350> {[-12-]}
Quad2Long(a : Quad) : Long
<POP 22698-2269a StackAdj> Δ+8 {[-4-]}
<MI 2269a MOVE.L (A7),D6> {[-4-]}
<POP 2269c-2269e StackAdj> Δ-8 {[-12-]}
<MI 2269e MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']}
<Const 0x226a0 0x4.4> Δ-4 {[-12-]|[4, '(A6+0x8)']|[##4]}
<Call 0x226a4 0x21884> {[-12-]|[4, '(A6+0x8)']|[##4]}
<POP 226a8-226aa StackAdj> Δ+8 {[-12-]}
<Call 0x226aa 0x10350> {[-12-]}
Quad2Long(a : Quad) : Long
<POP 226b0-226b2 StackAdj> Δ+8 {[-4-]}
<MI 226b2 MOVE.L (A7)+,D5> Δ+4 {}
<MI 226b4 MOVE.L D6,D0> {}
<MI 226b6 ADD.L D5,D0> {}
<MI 226b8 SUBQ.L #0x1,D0> {}
<MI 226ba MOVE.W (A4),D1> {}
<MI 226bc EXTW.L D1> {}
<MI 226be CMP.L D1,D0> {}
<MI 226c0 BLE 0x226f2> {}
<POP 226c2-226f2 Naked> Σ0 ↓
<Blob 0x226c2 [32] @> Δ-32 {[«32""»]}
<POP 226d4-226d6 StackAdj> Δ-4 {[«32""»]|[-4-]}
<Lit 0x226d6 31> {[«32""»]|[$$Offset/Length error in [INSERT]]}
<Call 0x226ea 0x20b2a> {[«32""»]|[$$Offset/Length error in [INSERT]]}
<POP 226ee-226f2 StackAdj> Δ+36 {}
<POP 226f2-226fe Naked> Σ0 Δ-8 ↓ ←0x22664
<MI 226f2 MOVEA.L (A6-0x14),A0> {}
<MI 226f4 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 226f6 MOVE.W (A0),D0> {[4, 'A0']}
<MI 226f8 EXTW.L D0> {[4, 'A0']}
<MI 226fa MOVE.L D0,-(A7)> Δ-4 {[4, 'A0']|[4, 'D0']}
<MI 226fc MOVEQ.L #0x01,D7> {[4, 'A0']|[4, 'D0']}
<POP 226fe-22702 Naked> Σ-8 ↓ →0x22728 ←0x22702
<MI 226fe CMP.L (A7),D7> {[-8-]}
<MI 22700 BGT 0x22728> {[-8-]}
<POP 22702-22728 Naked> Σ-8 ↓ →0x226fe
<MI 22702 MOVE.L D6,D0> {[-8-]}
<MI 22704 ADD.L D7,D0> {[-8-]}
<MI 22706 SUBQ.L #0x1,D0> {[-8-]}
<MI 22708 SUBQ.L #0x1,D0> {[-8-]}
<POP 0x2270a LimitCheck 0x0 ≤ D0 ≤ 0x7d> {[-8-]}
<MI 22710 MOVE.L D7,D1> {[-8-]}
<MI 22712 SUBQ.L #0x1,D1> {[-8-]}
<POP 0x22714 LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-8-]}
<MI 2271a MOVEA.L (A7+0x4),A0> {[-8-]}
<MI 2271e MOVE.B (A0+D1.L+#0x2),(A4+D0.L+#0x2)> {[-8-]}
<MI 22724 ADDQ.L #0x1,D7> {[-8-]}
<MI 22726 BVC 0x226fe> {[-8-]}
<POP 22728-2273c Naked> Σ-8 Δ+8 ↓ ←0x226fe
<POP 22728-2272a StackAdj> Δ+4 {[-4-]}
<MI 2272a MOVE.L A4,(A7)> {[4, 'A4']}
<Call 0x2272c 0x218f4> {[4, 'A4']}
<POP 22730-22732 StackAdj> Δ+4 {}
<Pointer.fp 0x22732 <LVAR -0x014 @ 4(rw)>> Δ-4 {[@@-20]}
<Call 0x22734 0x102bc> {[@@-20]}
FreeString(VAR a : String)
<POP 2273a-2273c StackAdj> Δ+4 {}
<POP 2273c-22744 Epilogue> Σ0
@ 22744
<LVAR 0x008 4(r)>
<LVAR -0x010 @ 4(r)>
<LVAR -0x014 @ 4(rw)>
<POP 22744-2282a Body>
<POP 22744-2275a Prologue> Σ0 ↓
<POP 2275a-22768 RegCacheLoad> Σ0 ↓
<POP 22768-227c0 Naked> Σ0 ↓ →0x227c6
<POP 22768-2276a StackAdj> Δ-4 {[-4-]}
<MI 2276a MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x2276c 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22770 0x21852> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 22774-22776 StackAdj> Δ+8 {[-4-]}
<MI 22776 MOVE.L (A7)+,(A6-0x14)> Δ+4 {}
<Pointer.fp 0x22778 <LVAR -0x010 @ 4(r)>> Δ-4 {[@@-16]}
<Call 0x2277a 0x102b8> {[@@-16]}
NewString(VAR a : String)
<POP 22780-22782 StackAdj> Δ-8 {[@@-16]|[-8-]}
<MI 22782 MOVE.L (A6+0x8),-(A7)> Δ-4 {[@@-16]|[-8-]|[4, '(A6+0x8)']}
<Const 0x22784 0x2.4> Δ-4 {[@@-16]|[-8-]|[4, '(A6+0x8)']|[##2]}
<Call 0x22788 0x21884> {[@@-16]|[-8-]|[4, '(A6+0x8)']|[##2]}
<POP 2278c-2278e StackAdj> Δ+8 {[@@-16]|[-8-]}
<Call 0x2278e 0x10350> {[@@-16]|[-8-]}
Quad2Long(a : Quad) : Long
<POP 22794-22796 StackAdj> Δ+8 {[@@-16]}
<MI 22796 MOVE.L (A7),D5> {[@@-16]}
<POP 22798-2279a StackAdj> Δ-8 {[@@-16]|[-8-]}
<MI 2279a MOVE.L (A6+0x8),-(A7)> Δ-4 {[@@-16]|[-8-]|[4, '(A6+0x8)']}
<Const 0x2279c 0x3.4> Δ-4 {[@@-16]|[-8-]|[4, '(A6+0x8)']|[##3]}
<Call 0x227a0 0x21884> {[@@-16]|[-8-]|[4, '(A6+0x8)']|[##3]}
<POP 227a4-227a6 StackAdj> Δ+8 {[@@-16]|[-8-]}
<Call 0x227a6 0x10350> {[@@-16]|[-8-]}
Quad2Long(a : Quad) : Long
<POP 227ac-227ae StackAdj> Δ+8 {[@@-16]}
<MI 227ae MOVE.L (A7)+,D6> Δ+4 {}
<MI 227b0 MOVEA.L (A6-0x14),A0> {}
<MI 227b2 MOVE.L D5,D0> {}
<MI 227b4 ADD.L D6,D0> {}
<MI 227b6 SUBQ.L #0x1,D0> {}
<MI 227b8 MOVE.W (A0),D1> {}
<MI 227ba EXTW.L D1> {}
<MI 227bc CMP.L D1,D0> {}
<MI 227be BLE 0x227c6> {}
<POP 227c0-227c6 Naked> Σ0 ↓
<MI 227c0 ADDQ.L #0x1,D1> {}
<MI 227c2 SUB.L D5,D1> {}
<MI 227c4 MOVE.L D1,D6> {}
<POP 227c6-227ca Naked> Σ0 Δ-4 ↓ ←0x22768
<MI 227c6 MOVE.L D6,-(A7)> Δ-4 {[4, 'D6']}
<MI 227c8 MOVEQ.L #0x01,D7> {[4, 'D6']}
<POP 227ca-227ce Naked> Σ-4 ↓ →0x227f4 ←0x227ce
<MI 227ca CMP.L (A7),D7> {[-4-]}
<MI 227cc BGT 0x227f4> {[-4-]}
<POP 227ce-227f4 Naked> Σ-4 ↓ →0x227ca
<MI 227ce MOVEA.L (A6-0x10),A0> {[-4-]}
<MI 227d0 MOVE.L D7,D0> {[-4-]}
<MI 227d2 SUBQ.L #0x1,D0> {[-4-]}
<POP 0x227d4 LimitCheck 0x0 ≤ D0 ≤ 0x7d> {[-4-]}
<MI 227da MOVEA.L (A6-0x14),A1> {[-4-]}
<MI 227dc MOVE.L D7,D1> {[-4-]}
<MI 227de ADD.L D5,D1> {[-4-]}
<MI 227e0 SUBQ.L #0x1,D1> {[-4-]}
<MI 227e2 SUBQ.L #0x1,D1> {[-4-]}
<POP 0x227e4 LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-4-]}
<MI 227ea MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x2)> {[-4-]}
<MI 227f0 ADDQ.L #0x1,D7> {[-4-]}
<MI 227f2 BVC 0x227ca> {[-4-]}
<POP 227f4-22822 Naked> Σ-4 Δ+4 ↓ ←0x227ca
<POP 227f4-227f6 StackAdj> Δ+4 {}
<MI 227f6 MOVEA.L (A6-0x10),A0> {}
<POP 0x227f8 LimitCheck -0x8000 ≤ D6 ≤ 0x7fff> {}
<MI 2280e MOVE.W D6,(A0)> {}
<MI 22810 MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0x10)']}
<Call 0x22812 0x218f4> {[4, '(A6-0x10)']}
<POP 22816-22818 StackAdj> Δ+4 {}
<Pointer.fp 0x22818 <LVAR -0x014 @ 4(rw)>> Δ-4 {[@@-20]}
<Call 0x2281a 0x102bc> {[@@-20]}
FreeString(VAR a : String)
<POP 22820-22822 StackAdj> Δ+4 {}
<POP 22822-2282a Epilogue> Σ0
@ 2282a
<LVAR 0x008 4(r)>
<POP 2282a-22856 Body>
<POP 2282a-2283c Prologue> Σ0 ↓
<POP 2283c-22852 Naked> Σ0 ↓
<POP 2283c-2283e StackAdj> Δ-8 {[-8-]}
<MI 2283e MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<Const 0x22842 0x1.4> Δ-4 {[-8-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22846 0x21884> {[-8-]|[4, '(A6+0x8)']|[##1]}
<POP 2284a-2284c StackAdj> Δ+8 {[-8-]}
<Call 0x2284c 0x216be> {[-8-]}
<POP 22850-22852 StackAdj> Δ+8 {}
<POP 22852-22856 Epilogue> Σ0
@ 22856
<LVAR 0x008 4(r)>
<POP 22856-228a2 Body>
<POP 22856-22868 Prologue> Σ0 ↓
<POP 22868-22894 Naked> Σ0 ↓ →0x2289a
<POP 22868-2286c StackAdj> Δ-10 {[-10-]}
<MI 2286c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']}
<Const 0x22870 0x1.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22874 0x21884> {[-10-]|[4, '(A6+0x8)']|[##1]}
<MI 22878 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x2287c 0x2.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x22880 0x21884> {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 22884-22886 StackAdj> Δ+8 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22886 0x1032c> {[-10-]|[4, '(A6+0x8)']|[##1]}
IsEqual(a, b : Quad) : Bool
<POP 2288c-22890 StackAdj> Δ+16 {[-2-]}
<MI 22890 TST.B (A7)+> Δ+2 {}
<MI 22892 BEQ 0x2289a> {}
<POP 22894-2289a Naked> Σ0 →0x2289e
<Call 0x22894 0x21312> {}
<MI 22898 BRA 0x2289e> {}
<POP 2289a-2289e Naked> Σ0 ↓ ←0x22868
<Call 0x2289a 0x21358> {}
<POP 2289e-228a2 Epilogue> Σ0 ←0x22894
@ 228a2
<LVAR 0x008 4(r)>
<POP 228a2-228ee Body>
<POP 228a2-228b4 Prologue> Σ0 ↓
<POP 228b4-228e0 Naked> Σ0 ↓ →0x228e6
<POP 228b4-228b8 StackAdj> Δ-10 {[-10-]}
<MI 228b8 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']}
<Const 0x228bc 0x1.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x228c0 0x21884> {[-10-]|[4, '(A6+0x8)']|[##1]}
<MI 228c4 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x228c8 0x2.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x228cc 0x21884> {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 228d0-228d2 StackAdj> Δ+8 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x228d2 0x1032c> {[-10-]|[4, '(A6+0x8)']|[##1]}
IsEqual(a, b : Quad) : Bool
<POP 228d8-228dc StackAdj> Δ+16 {[-2-]}
<MI 228dc TST.B (A7)+> Δ+2 {}
<MI 228de BNE 0x228e6> {}
<POP 228e0-228e6 Naked> Σ0 →0x228ea
<Call 0x228e0 0x21312> {}
<MI 228e4 BRA 0x228ea> {}
<POP 228e6-228ea Naked> Σ0 ↓ ←0x228b4
<Call 0x228e6 0x21358> {}
<POP 228ea-228ee Epilogue> Σ0 ←0x228e0
@ 228ee
<LVAR 0x008 4(r)>
<POP 228ee-2293a Body>
<POP 228ee-22900 Prologue> Σ0 ↓
<POP 22900-2292c Naked> Σ0 ↓ →0x22932
<POP 22900-22904 StackAdj> Δ-10 {[-10-]}
<MI 22904 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']}
<Const 0x22908 0x1.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x2290c 0x21884> {[-10-]|[4, '(A6+0x8)']|[##1]}
<MI 22910 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x22914 0x2.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x22918 0x21884> {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 2291c-2291e StackAdj> Δ+8 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x2291e 0x10328> {[-10-]|[4, '(A6+0x8)']|[##1]}
IsSmaller(a, b : Quad) : Bool
<POP 22924-22928 StackAdj> Δ+16 {[-2-]}
<MI 22928 TST.B (A7)+> Δ+2 {}
<MI 2292a BEQ 0x22932> {}
<POP 2292c-22932 Naked> Σ0 →0x22936
<Call 0x2292c 0x21312> {}
<MI 22930 BRA 0x22936> {}
<POP 22932-22936 Naked> Σ0 ↓ ←0x22900
<Call 0x22932 0x21358> {}
<POP 22936-2293a Epilogue> Σ0 ←0x2292c
@ 2293a
<LVAR 0x008 4(r)>
<POP 2293a-22986 Body>
<POP 2293a-2294c Prologue> Σ0 ↓
<POP 2294c-22978 Naked> Σ0 ↓ →0x2297e
<POP 2294c-22950 StackAdj> Δ-10 {[-10-]}
<MI 22950 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']}
<Const 0x22954 0x1.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22958 0x21884> {[-10-]|[4, '(A6+0x8)']|[##1]}
<MI 2295c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x22960 0x2.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x22964 0x21884> {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 22968-2296a StackAdj> Δ+8 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x2296a 0x10324> {[-10-]|[4, '(A6+0x8)']|[##1]}
IsGreater(a, b : Quad) : Bool
<POP 22970-22974 StackAdj> Δ+16 {[-2-]}
<MI 22974 TST.B (A7)+> Δ+2 {}
<MI 22976 BEQ 0x2297e> {}
<POP 22978-2297e Naked> Σ0 →0x22982
<Call 0x22978 0x21312> {}
<MI 2297c BRA 0x22982> {}
<POP 2297e-22982 Naked> Σ0 ↓ ←0x2294c
<Call 0x2297e 0x21358> {}
<POP 22982-22986 Epilogue> Σ0 ←0x22978
@ 22986
<LVAR 0x008 4(r)>
<POP 22986-229d2 Body>
<POP 22986-22998 Prologue> Σ0 ↓
<POP 22998-229c4 Naked> Σ0 ↓ →0x229ca
<POP 22998-2299c StackAdj> Δ-10 {[-10-]}
<MI 2299c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']}
<Const 0x229a0 0x1.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x229a4 0x21884> {[-10-]|[4, '(A6+0x8)']|[##1]}
<MI 229a8 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x229ac 0x2.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x229b0 0x21884> {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 229b4-229b6 StackAdj> Δ+8 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x229b6 0x10324> {[-10-]|[4, '(A6+0x8)']|[##1]}
IsGreater(a, b : Quad) : Bool
<POP 229bc-229c0 StackAdj> Δ+16 {[-2-]}
<MI 229c0 TST.B (A7)+> Δ+2 {}
<MI 229c2 BNE 0x229ca> {}
<POP 229c4-229ca Naked> Σ0 →0x229ce
<Call 0x229c4 0x21312> {}
<MI 229c8 BRA 0x229ce> {}
<POP 229ca-229ce Naked> Σ0 ↓ ←0x22998
<Call 0x229ca 0x21358> {}
<POP 229ce-229d2 Epilogue> Σ0 ←0x229c4
@ 229d2
<LVAR 0x008 4(r)>
<POP 229d2-22a1e Body>
<POP 229d2-229e4 Prologue> Σ0 ↓
<POP 229e4-22a10 Naked> Σ0 ↓ →0x22a16
<POP 229e4-229e8 StackAdj> Δ-10 {[-10-]}
<MI 229e8 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']}
<Const 0x229ec 0x1.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x229f0 0x21884> {[-10-]|[4, '(A6+0x8)']|[##1]}
<MI 229f4 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x229f8 0x2.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x229fc 0x21884> {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 22a00-22a02 StackAdj> Δ+8 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22a02 0x10328> {[-10-]|[4, '(A6+0x8)']|[##1]}
IsSmaller(a, b : Quad) : Bool
<POP 22a08-22a0c StackAdj> Δ+16 {[-2-]}
<MI 22a0c TST.B (A7)+> Δ+2 {}
<MI 22a0e BNE 0x22a16> {}
<POP 22a10-22a16 Naked> Σ0 →0x22a1a
<Call 0x22a10 0x21312> {}
<MI 22a14 BRA 0x22a1a> {}
<POP 22a16-22a1a Naked> Σ0 ↓ ←0x229e4
<Call 0x22a16 0x21358> {}
<POP 22a1a-22a1e Epilogue> Σ0 ←0x22a10
@ 22a1e
<LVAR 0x008 4(r)>
<POP 22a1e-22a68 Body>
<POP 22a1e-22a34 Prologue> Σ0 ↓
<POP 22a34-22a36 RegCacheLoad> Σ0 ↓
<POP 22a36-22a60 Naked> Σ0 ↓
<POP 22a36-22a38 StackAdj> Δ-16 {[-16-]}
<MI 22a38 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x22a3c 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22a40 0x21884> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 22a44 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x22a48 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x22a4c 0x21884> {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 22a50-22a52 StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22a52 0x10314> {[-16-]|[4, '(A6+0x8)']|[##1]}
Add(a, b : Quad) : Quad
<POP 22a58-22a5a StackAdj> Δ+16 {[-8-]}
<Call 0x22a5a 0x2197c> {[-8-]}
<POP 22a5e-22a60 StackAdj> Δ+8 {}
<POP 22a60-22a68 Epilogue> Σ0
@ 22a68
<LVAR 0x008 4(r)>
<POP 22a68-22ab2 Body>
<POP 22a68-22a7e Prologue> Σ0 ↓
<POP 22a7e-22a80 RegCacheLoad> Σ0 ↓
<POP 22a80-22aaa Naked> Σ0 ↓
<POP 22a80-22a82 StackAdj> Δ-16 {[-16-]}
<MI 22a82 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x22a86 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22a8a 0x21884> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 22a8e MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x22a92 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x22a96 0x21884> {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 22a9a-22a9c StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22a9c 0x10318> {[-16-]|[4, '(A6+0x8)']|[##1]}
Subtract(a, b : Quad) : Quad
<POP 22aa2-22aa4 StackAdj> Δ+16 {[-8-]}
<Call 0x22aa4 0x2197c> {[-8-]}
<POP 22aa8-22aaa StackAdj> Δ+8 {}
<POP 22aaa-22ab2 Epilogue> Σ0
@ 22ab2
<LVAR 0x008 4(r)>
<POP 22ab2-22afc Body>
<POP 22ab2-22ac8 Prologue> Σ0 ↓
<POP 22ac8-22aca RegCacheLoad> Σ0 ↓
<POP 22aca-22af4 Naked> Σ0 ↓
<POP 22aca-22acc StackAdj> Δ-16 {[-16-]}
<MI 22acc MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x22ad0 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22ad4 0x21884> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 22ad8 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x22adc 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x22ae0 0x21884> {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 22ae4-22ae6 StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22ae6 0x1031c> {[-16-]|[4, '(A6+0x8)']|[##1]}
Multiply(a, b : Quad) : Quad
<POP 22aec-22aee StackAdj> Δ+16 {[-8-]}
<Call 0x22aee 0x2197c> {[-8-]}
<POP 22af2-22af4 StackAdj> Δ+8 {}
<POP 22af4-22afc Epilogue> Σ0
@ 22afc
<LVAR 0x008 4(r)>
<POP 22afc-22b46 Body>
<POP 22afc-22b12 Prologue> Σ0 ↓
<POP 22b12-22b14 RegCacheLoad> Σ0 ↓
<POP 22b14-22b3e Naked> Σ0 ↓
<POP 22b14-22b16 StackAdj> Δ-16 {[-16-]}
<MI 22b16 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x22b1a 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22b1e 0x21884> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 22b22 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x22b26 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x22b2a 0x21884> {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 22b2e-22b30 StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22b30 0x10320> {[-16-]|[4, '(A6+0x8)']|[##1]}
Divide(a, b : Quad) : Quad
<POP 22b36-22b38 StackAdj> Δ+16 {[-8-]}
<Call 0x22b38 0x2197c> {[-8-]}
<POP 22b3c-22b3e StackAdj> Δ+8 {}
<POP 22b3e-22b46 Epilogue> Σ0
@ 22b46
<LVAR 0x008 4(r)>
<POP 22b46-22b90 Body>
<POP 22b46-22b5c Prologue> Σ0 ↓
<POP 22b5c-22b5e RegCacheLoad> Σ0 ↓
<POP 22b5e-22b88 Naked> Σ0 ↓
<POP 22b5e-22b60 StackAdj> Δ-16 {[-16-]}
<MI 22b60 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x22b64 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22b68 0x21884> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 22b6c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x22b70 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x22b74 0x21884> {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 22b78-22b7a StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22b7a 0x10358> {[-16-]|[4, '(A6+0x8)']|[##1]}
Modulus(a, b : Quad) : Quad
<POP 22b80-22b82 StackAdj> Δ+16 {[-8-]}
<Call 0x22b82 0x2197c> {[-8-]}
<POP 22b86-22b88 StackAdj> Δ+8 {}
<POP 22b88-22b90 Epilogue> Σ0
@ 22b90
<LVAR 0x008 4(r)>
<POP 22b90-22bda Body>
<POP 22b90-22ba6 Prologue> Σ0 ↓
<POP 22ba6-22ba8 RegCacheLoad> Σ0 ↓
<POP 22ba8-22bd2 Naked> Σ0 ↓
<POP 22ba8-22baa StackAdj> Δ-16 {[-16-]}
<MI 22baa MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x22bae 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22bb2 0x21884> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 22bb6 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x22bba 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x22bbe 0x21884> {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 22bc2-22bc4 StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22bc4 0x10334> {[-16-]|[4, '(A6+0x8)']|[##1]}
BitOr(a, b : Quad) : Quad
<POP 22bca-22bcc StackAdj> Δ+16 {[-8-]}
<Call 0x22bcc 0x2197c> {[-8-]}
<POP 22bd0-22bd2 StackAdj> Δ+8 {}
<POP 22bd2-22bda Epilogue> Σ0
@ 22bda
<LVAR 0x008 4(r)>
<POP 22bda-22c24 Body>
<POP 22bda-22bf0 Prologue> Σ0 ↓
<POP 22bf0-22bf2 RegCacheLoad> Σ0 ↓
<POP 22bf2-22c1c Naked> Σ0 ↓
<POP 22bf2-22bf4 StackAdj> Δ-16 {[-16-]}
<MI 22bf4 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x22bf8 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22bfc 0x21884> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 22c00 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x22c04 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x22c08 0x21884> {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 22c0c-22c0e StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22c0e 0x10330> {[-16-]|[4, '(A6+0x8)']|[##1]}
BitAnd(a, b : Quad) : Quad
<POP 22c14-22c16 StackAdj> Δ+16 {[-8-]}
<Call 0x22c16 0x2197c> {[-8-]}
<POP 22c1a-22c1c StackAdj> Δ+8 {}
<POP 22c1c-22c24 Epilogue> Σ0
@ 22c24
<LVAR 0x008 4(r)>
<POP 22c24-22c6e Body>
<POP 22c24-22c3a Prologue> Σ0 ↓
<POP 22c3a-22c3c RegCacheLoad> Σ0 ↓
<POP 22c3c-22c66 Naked> Σ0 ↓
<POP 22c3c-22c3e StackAdj> Δ-16 {[-16-]}
<MI 22c3e MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x22c42 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22c46 0x21884> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 22c4a MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x22c4e 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x22c52 0x21884> {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 22c56-22c58 StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22c58 0x10340> {[-16-]|[4, '(A6+0x8)']|[##1]}
BitXor(a, b : Quad) : Quad
<POP 22c5e-22c60 StackAdj> Δ+16 {[-8-]}
<Call 0x22c60 0x2197c> {[-8-]}
<POP 22c64-22c66 StackAdj> Δ+8 {}
<POP 22c66-22c6e Epilogue> Σ0
@ 22c6e
<LVAR 0x008 4(r)>
<POP 22c6e-22cb2 Body>
<POP 22c6e-22c80 Prologue> Σ0 ↓
<POP 22c80-22cae Naked> Σ0 ↓
<POP 22c80-22c84 StackAdj> Δ-16 {[-16-]}
<MI 22c84 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x22c88 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22c8c 0x21884> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 22c90 MOVE.L (A6+0x8),(A7)> {[-16-]|[4, '(A6+0x8)']|[4, '(A6+0x8)']}
<Const 0x22c94 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[4, '(A6+0x8)']|[##2]}
<Call 0x22c98 0x218c0> {[-16-]|[4, '(A6+0x8)']|[4, '(A6+0x8)']|[##2]}
<POP 22c9c-22c9e StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']}
<Call 0x22c9e 0x10344> {[-16-]|[4, '(A6+0x8)']}
BitShift(a : Quad ; howmuch : integer) : Quad
<POP 22ca4-22ca8 StackAdj> Δ+12 {[-8-]}
<Call 0x22ca8 0x2197c> {[-8-]}
<POP 22cac-22cae StackAdj> Δ+8 {}
<POP 22cae-22cb2 Epilogue> Σ0
@ 22cb2
<LVAR 0x008 4(r)>
<POP 22cb2-22cf8 Body>
<POP 22cb2-22cc4 Prologue> Σ0 ↓
<POP 22cc4-22cf4 Naked> Σ0 ↓
<POP 22cc4-22cc8 StackAdj> Δ-16 {[-16-]}
<MI 22cc8 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x22ccc 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22cd0 0x21884> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 22cd4 MOVE.L (A6+0x8),(A7)> {[-16-]|[4, '(A6+0x8)']|[4, '(A6+0x8)']}
<Const 0x22cd8 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[4, '(A6+0x8)']|[##2]}
<Call 0x22cdc 0x218c0> {[-16-]|[4, '(A6+0x8)']|[4, '(A6+0x8)']|[##2]}
<POP 22ce0-22ce2 StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']}
<MI 22ce2 NEG.L (A7)> {[-16-]|[4, '(A6+0x8)']}
<Call 0x22ce4 0x10344> {[-16-]|[4, '(A6+0x8)']}
BitShift(a : Quad ; howmuch : integer) : Quad
<POP 22cea-22cee StackAdj> Δ+12 {[-8-]}
<Call 0x22cee 0x2197c> {[-8-]}
<POP 22cf2-22cf4 StackAdj> Δ+8 {}
<POP 22cf4-22cf8 Epilogue> Σ0
@ 22cf8
<LVAR 0x008 4(r)>
<POP 22cf8-22d2e Body>
<POP 22cf8-22d0a Prologue> Σ0 ↓
<POP 22d0a-22d2a Naked> Σ0 ↓
<POP 22d0a-22d0e StackAdj> Δ-16 {[-16-]}
<MI 22d0e MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x22d12 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22d16 0x21884> {[-16-]|[4, '(A6+0x8)']|[##1]}
<POP 22d1a-22d1c StackAdj> Δ+8 {[-16-]}
<Call 0x22d1c 0x10338> {[-16-]}
BitNot(a : Quad) : Quad
<POP 22d22-22d24 StackAdj> Δ+8 {[-8-]}
<Call 0x22d24 0x2197c> {[-8-]}
<POP 22d28-22d2a StackAdj> Δ+8 {}
<POP 22d2a-22d2e Epilogue> Σ0
@ 22d2e
<LVAR 0x008 4(r)>
<LVAR -0x00c 4(rw)>
<LVAR -0x010 4(rw)>
<LVAR -0x014 4(rw)>
<LVAR -0x018 4(rw)>
<POP 22d2e-22dbe Body>
<POP 22d2e-22d44 Prologue> Σ0 ↓
<POP 22d44-22d48 RegCacheLoad> Σ0 ↓
<POP 22d48-22db6 Naked> Σ0 ↓
<POP 22d48-22d4a StackAdj> Δ-8 {[-8-]}
<MI 22d4a MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<Const 0x22d4c 0x1.4> Δ-4 {[-8-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22d50 0x21884> {[-8-]|[4, '(A6+0x8)']|[##1]}
<POP 22d54-22d56 StackAdj> Δ+8 {[-8-]}
<MI 22d56 MOVE.L (A7)+,(A6-0x18)> Δ+4 {[-4-]}
<MI 22d5a MOVE.L (A7),(A6-0x14)> {[-4-]}
<POP 22d5e-22d60 StackAdj> Δ-4 {[-8-]}
<MI 22d60 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<Const 0x22d62 0x2.4> Δ-4 {[-8-]|[4, '(A6+0x8)']|[##2]}
<Call 0x22d66 0x21884> {[-8-]|[4, '(A6+0x8)']|[##2]}
<POP 22d6a-22d6c StackAdj> Δ+8 {[-8-]}
<MI 22d6c MOVE.L (A7)+,(A6-0x10)> Δ+4 {[-4-]}
<MI 22d70 MOVE.L (A7),(A6-0xc)> {[-4-]}
<MI 22d74 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x22d76 0x3.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##3]}
<Call 0x22d7a 0x218c0> {[-4-]|[4, '(A6+0x8)']|[##3]}
<POP 22d7e-22d80 StackAdj> Δ+8 {[-4-]}
<MI 22d80 MOVE.L (A7),D7> {[-4-]}
<MI 22d82 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x22d84 0x4.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##4]}
<Call 0x22d88 0x218c0> {[-4-]|[4, '(A6+0x8)']|[##4]}
<POP 22d8c-22d8e StackAdj> Δ+8 {[-4-]}
<MI 22d8e MOVE.L (A7),D6> {[-4-]}
<POP 22d90-22d92 StackAdj> Δ-4 {[-8-]}
<MI 22d92 MOVE.L (A6-0x14),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x14)']}
<MI 22d96 MOVE.L (A6-0x18),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']}
<MI 22d9a MOVE.L (A6-0xc),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']|[4, '(A6-0xc)']}
<MI 22d9e MOVE.L (A6-0x10),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<MI 22da2 MOVE.L D7,-(A7)> Δ-4 {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D7']}
<MI 22da4 MOVE.L D6,-(A7)> Δ-4 {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D7']|[4, 'D6']}
<Call 0x22da6 0x10348> {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D7']|[4, 'D6']}
?BitField_something_()
<POP 22dac-22db0 StackAdj> Δ+24 {[-8-]}
<Call 0x22db0 0x2197c> {[-8-]}
<POP 22db4-22db6 StackAdj> Δ+8 {}
<POP 22db6-22dbe Epilogue> Σ0
@ 22dbe
<LVAR 0x008 4(r)>
<LVAR -0x00c 4(rw)>
<LVAR -0x010 4(rw)>
<POP 22dbe-22e30 Body>
<POP 22dbe-22dd4 Prologue> Σ0 ↓
<POP 22dd4-22dd8 RegCacheLoad> Σ0 ↓
<POP 22dd8-22e28 Naked> Σ0 ↓
<POP 22dd8-22dda StackAdj> Δ-8 {[-8-]}
<MI 22dda MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<Const 0x22ddc 0x1.4> Δ-4 {[-8-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22de0 0x21884> {[-8-]|[4, '(A6+0x8)']|[##1]}
<POP 22de4-22de6 StackAdj> Δ+8 {[-8-]}
<MI 22de6 MOVE.L (A7)+,(A6-0x10)> Δ+4 {[-4-]}
<MI 22dea MOVE.L (A7),(A6-0xc)> {[-4-]}
<MI 22dee MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x22df0 0x2.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##2]}
<Call 0x22df4 0x218c0> {[-4-]|[4, '(A6+0x8)']|[##2]}
<POP 22df8-22dfa StackAdj> Δ+8 {[-4-]}
<MI 22dfa MOVE.L (A7),D7> {[-4-]}
<MI 22dfc MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x22dfe 0x3.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##3]}
<Call 0x22e02 0x218c0> {[-4-]|[4, '(A6+0x8)']|[##3]}
<POP 22e06-22e08 StackAdj> Δ+8 {[-4-]}
<MI 22e08 MOVE.L (A7),D6> {[-4-]}
<POP 22e0a-22e0c StackAdj> Δ-4 {[-8-]}
<MI 22e0c MOVE.L (A6-0xc),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']}
<MI 22e10 MOVE.L (A6-0x10),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<MI 22e14 MOVE.L D7,-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D7']}
<MI 22e16 MOVE.L D6,-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D7']|[4, 'D6']}
<Call 0x22e18 0x1034c> {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D7']|[4, 'D6']}
FSCALL_1034c
<POP 22e1e-22e22 StackAdj> Δ+16 {[-8-]}
<Call 0x22e22 0x2197c> {[-8-]}
<POP 22e26-22e28 StackAdj> Δ+8 {}
<POP 22e28-22e30 Epilogue> Σ0
@ 22e30
<LVAR 0x008 4(r)>
<POP 22e30-22ea2 Body>
<POP 22e30-22e46 Prologue> Σ0 ↓
<POP 22e46-22e54 Naked> Σ0 Δ-4 ↓
<POP 22e46-22e48 StackAdj> Δ-4 {[-4-]}
<MI 22e48 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x22e4c 0x20f36> {[-4-]|[4, '(A6+0x8)']}
<POP 22e50-22e52 StackAdj> Δ+4 {[-4-]}
<MI 22e52 MOVEQ.L #0x01,D7> {[-4-]}
<POP 22e54-22e58 Naked> Σ-4 ↓ →0x22e7e ←0x22e58
<MI 22e54 CMP.L (A7),D7> {[-4-]}
<MI 22e56 BGT 0x22e7e> {[-4-]}
<POP 22e58-22e7e Naked> Σ-4 ↓ →0x22e54
<POP 22e58-22e5a StackAdj> Δ-4 {[-8-]}
<MI 22e5a MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<MI 22e5e MOVE.L D7,-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']|[4, 'D7']}
<Call 0x22e60 0x21852> {[-8-]|[4, '(A6+0x8)']|[4, 'D7']}
<POP 22e64-22e66 StackAdj> Δ+8 {[-8-]}
<Call 0x22e66 0x103d8> {[-8-]}
WriteConsoleString(str : String)
<POP 22e6c-22e6e StackAdj> Δ+2 {[-6-]}
<POP 22e6e-22e6f StackAdj> Δ+2 {[-4-]}
<Const 0x22e6f 0x20.2> Δ-2 {[-4-]|[#32]}
<Call 0x22e72 0x103d0> {[-4-]|[#32]}
WriteConsoleChar(chr : char)
<POP 22e78-22e7a StackAdj> Δ+2 {[-4-]}
<MI 22e7a ADDQ.L #0x1,D7> {[-4-]}
<MI 22e7c BVC 0x22e54> {[-4-]}
<POP 22e7e-22e9a Naked> Σ-4 Δ+4 ↓ ←0x22e54
<Const 0x22e7e 0x1.4> Δ-4 {[-4-]|[##1]}
<Call 0x22e82 0x103e4> {[-4-]|[##1]}
AskConsoleString(prompt : String) : String
<POP 22e88-22e8a StackAdj> Δ+4 {[-4-]}
<MI 22e8a MOVEA.L (A7)+,A4> Δ+4 {}
<MI 22e8c MOVE.L A4,-(A7)> Δ-4 {[4, 'A4']}
<Call 0x22e8e 0x20d82> {[4, 'A4']}
<MI 22e92 MOVE.L A4,(A7)> {[4, 'A4']}
<Call 0x22e94 0x218f4> {[4, 'A4']}
<POP 22e98-22e9a StackAdj> Δ+4 {}
<POP 22e9a-22ea2 Epilogue> Σ0
@ 22ea2
<LVAR 0x008 4(r)>
<POP 22ea2-22f24 Body>
<POP 22ea2-22eb8 Prologue> Σ0 ↓
<POP 22eb8-22ebe RegCacheLoad> Σ0 ↓
<POP 22ebe-22f1c Naked> Σ0 ↓
<POP 22ebe-22ec0 StackAdj> Δ-4 {[-4-]}
<MI 22ec0 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x22ec2 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22ec6 0x21852> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 22eca-22ecc StackAdj> Δ+8 {[-4-]}
<MI 22ecc MOVEA.L (A7)+,A4> Δ+4 {}
<POP 22ece-22ed0 StackAdj> Δ-12 {[-12-]}
<MI 22ed0 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']}
<Const 0x22ed2 0x2.4> Δ-4 {[-12-]|[4, '(A6+0x8)']|[##2]}
<Call 0x22ed6 0x21884> {[-12-]|[4, '(A6+0x8)']|[##2]}
<POP 22eda-22edc StackAdj> Δ+8 {[-12-]}
<Call 0x22edc 0x10350> {[-12-]}
Quad2Long(a : Quad) : Long
<POP 22ee2-22ee4 StackAdj> Δ+8 {[-4-]}
<MI 22ee4 MOVE.L (A7),D7> {[-4-]}
<POP 22ee6-22ee8 StackAdj> Δ-8 {[-12-]}
<MI 22ee8 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']}
<Const 0x22eea 0x3.4> Δ-4 {[-12-]|[4, '(A6+0x8)']|[##3]}
<Call 0x22eee 0x21884> {[-12-]|[4, '(A6+0x8)']|[##3]}
<POP 22ef2-22ef4 StackAdj> Δ+8 {[-12-]}
<Call 0x22ef4 0x10350> {[-12-]}
Quad2Long(a : Quad) : Long
<POP 22efa-22efc StackAdj> Δ+8 {[-4-]}
<MI 22efc MOVE.L (A7),D6> {[-4-]}
<POP 22efe-22f00 StackAdj> Δ-8 {[-12-]}
<MI 22f00 MOVE.L A4,-(A7)> Δ-4 {[-12-]|[4, 'A4']}
<MI 22f02 MOVE.L D7,-(A7)> Δ-4 {[-12-]|[4, 'A4']|[4, 'D7']}
<Call 0x22f04 0x10360> {[-12-]|[4, 'A4']|[4, 'D7']}
?StringToInt64()
<POP 22f0a-22f0c StackAdj> Δ+4 {[-12-]|[4, 'A4']}
<MI 22f0c MOVE.L D6,(A7)> {[-12-]|[4, 'D6']}
<Call 0x22f0e 0x1035c> {[-12-]|[4, 'D6']}
Quad2String(a : Quad; radix : Long ) : String
<POP 22f14-22f16 StackAdj> Δ+12 {[-4-]}
<Call 0x22f16 0x218f4> {[-4-]}
<POP 22f1a-22f1c StackAdj> Δ+4 {}
<POP 22f1c-22f24 Epilogue> Σ0
@ 22f24
<LVAR 0x008 4(r)>
<LVAR -0x00a 2(r)>
<LVAR -0x00c 4(rw)>
<LVAR -0x010 4(rw)>
<POP 22f24-22fa4 Body>
<POP 22f24-22f3a Prologue> Σ0 ↓
<POP 22f3a-22f42 RegCacheLoad> Σ0 ↓
<POP 22f42-22f5a Naked> Σ0 ↓
<POP 22f42-22f44 StackAdj> Δ-8 {[-8-]}
<MI 22f44 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<Const 0x22f48 0x1.4> Δ-4 {[-8-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22f4c 0x21884> {[-8-]|[4, '(A6+0x8)']|[##1]}
<POP 22f50-22f52 StackAdj> Δ+8 {[-8-]}
<MI 22f52 MOVE.L (A7)+,(A6-0x10)> Δ+4 {[-4-]}
<MI 22f54 MOVE.L (A7)+,(A6-0xc)> Δ+4 {}
<MI 22f56 MOVEQ.L #0x00,D7> {}
<MI 22f58 MOVEQ.L #0x00,D6> {}
<POP 22f5a-22f8a Naked> Σ0 ↓ →0x22f5a ←0x22f5a
<MI 22f5a MOVE.W (A6-0xa),D0> {}
<MI 22f5e ANDI.W #0x0001,D0> {}
<MI 22f62 CLR.L D1> {}
<MI 22f64 MOVE.W D0,D1> {}
<MI 22f66 ADD.L D1,D7> {}
<POP 22f68-22f6a StackAdj> Δ-8 {[-8-]}
<MI 22f6a MOVE.L (A6-0xc),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']}
<MI 22f6c MOVE.L (A6-0x10),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<Const 0x22f6e 0xffffffff.4> Δ-4 {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[##4294967295]}
<Call 0x22f72 0x10344> {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[##4294967295]}
BitShift(a : Quad ; howmuch : integer) : Quad
<POP 22f78-22f7c StackAdj> Δ+12 {[-8-]}
<MI 22f7c MOVE.L (A7)+,(A6-0x10)> Δ+4 {[-4-]}
<MI 22f7e MOVE.L (A7)+,(A6-0xc)> Δ+4 {}
<MI 22f80 ADDQ.L #0x1,D6> {}
<MI 22f82 CMPI.L #0x0000003f,D6> {}
<MI 22f88 BLE 0x22f5a> {}
<POP 22f8a-22f9c Naked> Σ0 ↓
<POP 22f8a-22f8c StackAdj> Δ-8 {[-8-]}
<MI 22f8c MOVE.L D7,-(A7)> Δ-4 {[-8-]|[4, 'D7']}
<Call 0x22f8e 0x10354> {[-8-]|[4, 'D7']}
Long2Quad(a : Long) : Quad
<POP 22f94-22f96 StackAdj> Δ+4 {[-8-]}
<Call 0x22f96 0x2197c> {[-8-]}
<POP 22f9a-22f9c StackAdj> Δ+8 {}
<POP 22f9c-22fa4 Epilogue> Σ0
@ 22fa4
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 1(r)>
<POP 22fa4-23068 Body>
<POP 22fa4-22fba Prologue> Σ0 ↓
<POP 22fba-22fc4 RegCacheLoad> Σ0 ↓
<POP 22fc4-22fc8 Naked> Σ0 ↓ →0x22ffa
<MI 22fc4 TST.B 0x26666> {}
<MI 22fc6 BNE 0x22ffa> {}
<POP 22fc8-22ffa Naked> Σ0 ↓
<Blob 0x22fc8 [28] @> Δ-28 {[«28""»]}
<POP 22fda-22fdc StackAdj> Δ-4 {[«28""»]|[-4-]}
<Lit 0x22fdc 27> {[«28""»]|[$$REPEATing, type ^G to exit.]}
<Call 0x22fee 0x103e0> {[«28""»]|[$$REPEATing, type ^G to exit.]}
WriteConsoleStringCrLf(str : String)
<POP 22ff4-22ff8 StackAdj> Δ+32 {}
<MI 22ff8 MOVE.B #0x01,0x26666> {}
<POP 22ffa-23024 Naked> Σ0 ↓ →0x2303a ←0x22fc4
<POP 22ffa-22ffc StackAdj> Δ-6 {[-6-]}
<Call 0x22ffc 0x103f8> {[-6-]}
GetConsoleConfig() : Long
<MI 23002 MOVE.L (A7)+,D0> Δ+4 {[-2-]}
<POP 0x23004 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {[-2-]}
<MI 2300e MOVE.W D0,(A7)> {[2, 'D0']}
<Pointer.fp 0x23010 <LVAR -0x004 @ 1(r)>> Δ-4 {[2, 'D0']|[@@-4]}
<Call 0x23014 0x10212> {[2, 'D0']|[@@-4]}
KC09_PortStatus(Port : Word; VAR b: Byte)
<POP 2301a-2301c StackAdj> Δ+6 {}
<MI 2301c MOVE.B (A6-0x4),D0> {}
<MI 23020 CMP.B #0x01,D0> {}
<MI 23022 BEQ 0x2303a> {}
<POP 23024-2303a Naked> Σ0
<MI 23024 MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<Call 0x23028 0x20ae8> {[4, '(A6+0x8)']}
<POP 2302c-2302e StackAdj> Δ+4 {}
<POP 2302e-2303a Bailout> {}
<MI 2302e MOVEA.L (A5+0x8),A7>
<MI 23032 MOVEA.W #0x00,A6>
<MI 23034 JMP 0x243cc>
<POP 2303a-2304a Naked> Σ0 ↓ →0x23060 ←0x22ffa
<POP 2303a-2303c StackAdj> Δ-2 {[-2-]}
<Call 0x2303c 0x103d4> {[-2-]}
ReadChar() : Byte
<MI 23042 MOVE.B (A7)+,D0> Δ+2 {}
<MI 23044 CMPI.B #0x07,D0> {}
<MI 23048 BEQ 0x23060> {}
<POP 2304a-23060 Naked> Σ0
<MI 2304a MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<Call 0x2304e 0x20ae8> {[4, '(A6+0x8)']}
<POP 23052-23054 StackAdj> Δ+4 {}
<POP 23054-23060 Bailout> {}
<MI 23054 MOVEA.L (A5+0x8),A7>
<MI 23058 MOVEA.W #0x00,A6>
<MI 2305a JMP 0x243cc>
<POP 23060-23068 Epilogue> Σ0 ←0x2303a
@ 23068
<POP 23068-23088 Body>
<POP 23068-2307a Prologue> Σ0 ↓
<POP 2307a-23084 Naked> Σ0 ↓
<Const 0x2307a 0xc8.4> Δ-4 {[##200]}
<Call 0x2307e 0x219b0> {[##200]}
<POP 23082-23084 StackAdj> Δ+4 {}
<POP 23084-23088 Epilogue> Σ0
@ 23088
<LVAR 0x008 4(r)>
<LVAR -0x00c @ 4(r)>
<POP 23088-23134 Body>
<POP 23088-2309e Prologue> Σ0 ↓
<POP 2309e-230a2 RegCacheLoad> Σ0 ↓
<POP 230a2-230b6 Naked> Σ0 Δ-4 ↓
<Pointer.fp 0x230a2 <LVAR -0x00c @ 4(r)>> Δ-4 {[@@-12]}
<Call 0x230a4 0x102b8> {[@@-12]}
NewString(VAR a : String)
<MI 230aa MOVE.L (A6+0x8),-(A7)> Δ-4 {[@@-12]|[4, '(A6+0x8)']}
<Call 0x230ae 0x20f36> {[@@-12]|[4, '(A6+0x8)']}
<POP 230b2-230b4 StackAdj> Δ+4 {[@@-12]}
<MI 230b4 MOVEQ.L #0x01,D7> {[@@-12]}
<POP 230b6-230ba Naked> Σ-4 ↓ →0x23124 ←0x23120
<MI 230b6 CMP.L (A7),D7> {[-4-]}
<MI 230b8 BGT 0x23124> {[-4-]}
<POP 230ba-230cc Naked> Σ-4 ↓ →0x230ec
<POP 230ba-230bc StackAdj> Δ-4 {[-8-]}
<MI 230bc MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<MI 230c0 MOVE.L D7,-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']|[4, 'D7']}
<Call 0x230c2 0x218c0> {[-8-]|[4, '(A6+0x8)']|[4, 'D7']}
<POP 230c6-230c8 StackAdj> Δ+8 {[-8-]}
<MI 230c8 MOVE.L (A7)+,D6> Δ+4 {[-4-]}
<MI 230ca BLT 0x230ec> {[-4-]}
<POP 230cc-230d4 Naked> Σ-4 ↓ →0x230ec
<MI 230cc CMPI.L #0x000000ff,D6> {[-4-]}
<MI 230d2 BGT 0x230ec> {[-4-]}
<POP 230d4-230ec Naked> Σ-4 →0x23120
<MI 230d4 MOVE.L (A6-0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6-0xc)']}
<POP 0x230d6 LimitCheck 0x0 ≤ D6 ≤ 0xff> {[-4-]|[4, '(A6-0xc)']}
<MI 230e0 MOVE.B D6,-(A7)> Δ-2 {[-4-]|[4, '(A6-0xc)']|[2, 'D6']}
<Call 0x230e2 0x102c0> {[-4-]|[4, '(A6-0xc)']|[2, 'D6']}
AppendChar(MOD b : String; a : char)
<POP 230e8-230ea StackAdj> Δ+6 {[-4-]}
<MI 230ea BRA 0x23120> {[-4-]}
<POP 230ec-23120 Naked> Σ-4 ↓ ←0x230ba ←0x230cc
<Pointer.fp 0x230ec <LVAR -0x00c @ 4(r)>> Δ-4 {[-4-]|[@@-12]}
<Call 0x230ee 0x102bc> {[-4-]|[@@-12]}
FreeString(VAR a : String)
<POP 230f4-230f6 StackAdj> Δ+4 {[-4-]}
<Blob 0x230f6 [28] @> Δ-28 {[-4-]|[«28""»]}
<POP 23102-23104 StackAdj> Δ-4 {[-4-]|[«28""»]|[-4-]}
<Lit 0x23104 28> {[-4-]|[«28""»]|[$$ASCII argument out of range.]}
<Call 0x23118 0x20b2a> {[-4-]|[«28""»]|[$$ASCII argument out of range.]}
<POP 2311c-23120 StackAdj> Δ+32 {[-4-]}
<POP 23120-23124 Naked> Σ-4 ↓ →0x230b6 ←0x230d4
<MI 23120 ADDQ.L #0x1,D7> {[-4-]}
<MI 23122 BVC 0x230b6> {[-4-]}
<POP 23124-2312c Naked> Σ-4 Δ+4 ↓ ←0x230b6
<MI 23124 MOVE.L (A6-0xc),(A7)> {[4, '(A6-0xc)']}
<Call 0x23126 0x218f4> {[4, '(A6-0xc)']}
<POP 2312a-2312c StackAdj> Δ+4 {}
<POP 2312c-23134 Epilogue> Σ0
@ 23134
<LVAR 0x00c 1(rw)>
<LVAR 0x008 4(r)>
<POP 23134-231ec Body> Δ-8
<POP 23134-2314a Prologue> Σ0 ↓
<POP 2314a-2315a Naked> Σ0 Δ-4 ↓
<MI 2314a CLR.B (A6+0xc)> {}
<MI 2314e MOVEA.L (A6+0x8),A0> {}
<MI 23152 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 23154 MOVEQ.L #0x00,D0> {[4, 'A0']}
<MI 23156 ADDQ.W #0x1,D0> {[4, 'A0']}
<MI 23158 MOVE.B D0,D6> {[4, 'A0']}
<POP 2315a-23162 Naked> Σ-4 ↓ →0x231e2 ←0x231dc
<MI 2315a CMPI.B #0x2b,D6> {[-4-]}
<MI 2315e BGT 0x231e2> {[-4-]}
<POP 23162-23188 Naked> Σ-4 ↓ →0x231dc
<MI 23162 LEA.L 0x20a16,A0> {[-4-]}
<MI 23166 MOVE.B D6,D0> {[-4-]}
<MI 23168 EXTB.W D0> {[-4-]}
<MI 2316a EXTW.L D0> {[-4-]}
<MI 2316c ROR.L #0x1,D0> {[-4-]}
<MI 2316e ADDA.W D0,A0> {[-4-]}
<MI 23170 SWAP.W D0> {[-4-]}
<MI 23172 ROL.W #0x3,D0> {[-4-]}
<MI 23174 CLR.L D1> {[-4-]}
<MI 23176 MOVE.B (A0),D1> {[-4-]}
<MI 23178 LSL.B D0,D1> {[-4-]}
<MI 2317a LSR.B #0x4,D1> {[-4-]}
<MI 2317c MOVE.L D1,D5> {[-4-]}
<MI 2317e MOVEA.L (A7),A0> {[-4-]}
<MI 23180 MOVE.W (A0),D0> {[-4-]}
<MI 23182 EXTW.L D0> {[-4-]}
<MI 23184 CMP.L D0,D5> {[-4-]}
<MI 23186 BNE 0x231dc> {[-4-]}
<POP 23188-2318c Naked> Σ-4 Δ-4 ↓
<MI 23188 MOVE.L D5,-(A7)> Δ-4 {[-4-]|[4, 'D5']}
<MI 2318a MOVEQ.L #0x01,D7> {[-4-]|[4, 'D5']}
<POP 2318c-23190 Naked> Σ-8 ↓ →0x231d2 ←0x231ce
<MI 2318c CMP.L (A7),D7> {[-8-]}
<MI 2318e BGT 0x231d2> {[-8-]}
<POP 23190-231ca Naked> Σ-8 ↓ →0x231ce
<MI 23190 MOVE.B D6,D0> {[-8-]}
<MI 23192 EXTB.W D0> {[-8-]}
<MI 23194 MULS.W #0xa,D0> {[-8-]}
<MI 23198 MOVE.L D7,D1> {[-8-]}
<MI 2319a SUBQ.L #0x1,D1> {[-8-]}
<POP 0x2319c LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-8-]}
<MI 231a6 MOVEA.L (A7+0x4),A0> {[-8-]}
<MI 231aa LEA.L 0x2085e,A1> {[-8-]}
<MI 231ae MOVE.L D7,D2> {[-8-]}
<MI 231b0 SUBQ.L #0x1,D2> {[-8-]}
<POP 0x231b2 LimitCheck 0x0 ≤ D2 ≤ 0x9> {[-8-]}
<MI 231bc LEA.L (A1+D0.W),A1> {[-8-]}
<MI 231c0 MOVE.B (A0+D1.L+#0x2),D0> {[-8-]}
<MI 231c4 CMP.B (A1+D2.L),D0> {[-8-]}
<MI 231c8 BEQ 0x231ce> {[-8-]}
<POP 231ca-231ce Naked> Σ-8 Δ+4 →0x231dc
<POP 231ca-231cc StackAdj> Δ+4 {[-4-]}
<MI 231cc BRA 0x231dc> {[-4-]}
<POP 231ce-231d2 Naked> Σ-8 ↓ →0x2318c ←0x23190
<MI 231ce ADDQ.L #0x1,D7> {[-8-]}
<MI 231d0 BVC 0x2318c> {[-8-]}
<POP 231d2-231dc Naked> Σ-8 Δ+8 →0x231e4 ←0x2318c
<POP 231d2-231d4 StackAdj> Δ+4 {[-4-]}
<MI 231d4 MOVE.B D6,(A6+0xc)> {[-4-]}
<POP 231d8-231da StackAdj> Δ+4 {}
<MI 231da BRA 0x231e4> {}
<POP 231dc-231e2 Naked> Σ-4 ↓ →0x2315a ←0x23162 ←0x231ca
<MI 231dc ADDQ.B #0x1,D6> {[-4-]}
<MI 231de BVC 0x2315a> {[-4-]}
<POP 231e2-231e4 Naked> Σ-4 Δ+4 ↓ ←0x2315a
<POP 231e2-231e4 StackAdj> Δ+4 {}
<POP 231e4-231ec Epilogue> Σ0 ←0x231d2
@ 231ec
<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 231ec-23328 Body>
<POP 231ec-23202 Prologue> Σ0 ↓
<POP 23202-23210 RegCacheLoad> Σ0 ↓
<POP 23210-2327c Naked> Σ0 ↓ →0x232c6
<POP 23210-23212 StackAdj> Δ-4 {[-4-]}
<MI 23212 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']}
<Call 0x23216 0x102cc> {[-4-]|[4, '(A6+0xc)']}
StringDup(a : String) : String
<POP 2321c-2321e StackAdj> Δ+4 {[-4-]}
<MI 2321e MOVE.L (A7)+,(A6-0x10)> Δ+4 {}
<MI 23220 MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0x10)']}
<Const 0x23222 0x2e.2> Δ-2 {[4, '(A6-0x10)']|[#46]}
<Call 0x23226 0x102c0> {[4, '(A6-0x10)']|[#46]}
AppendChar(MOD b : String; a : char)
<POP 2322c-2322e StackAdj> Δ+6 {}
<Blob 0x2322e [10] 0x26646> Δ-10 {[«10»]}
<POP 2323c-2323e StackAdj> Δ-4 {[«10»]|[-4-]}
<MI 2323e MOVE.L (A6-0x10),-(A7)> Δ-4 {[«10»]|[-4-]|[4, '(A6-0x10)']}
<POP 23240-23242 StackAdj> Δ-4 {[«10»]|[-4-]|[4, '(A6-0x10)']|[-4-]}
<Lit 0x23242> {[«10»]|[-4-]|[4, '(A6-0x10)']|[$$…]}
<Pointer.sp 0x23242 12> Δ-4
<Const 0x23246 0x1.2> Δ-2
<Const 0x23248 0xa.2> Δ-2
<Call 0x2324c 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 23252-23254 StackAdj> Δ+8
<Call 0x23254 0x102d0> {[«10»]|[-4-]|[4, '(A6-0x10)']|[$$…]}
StringCat2(a, b : String) : String
<POP 2325a-2325c StackAdj> Δ+8 {[«10»]|[-4-]}
<MI 2325c MOVE.L (A7)+,(A6-0x10)> Δ+4 {[«10»]}
<POP 2325e-23260 StackAdj> Δ+6 {[-4-]}
<MI 23260 MOVE.L (A6-0x10),(A7)> {[4, '(A6-0x10)']}
<MI 23262 CLR.B -(A7)> Δ-2 {[4, '(A6-0x10)']|[#0]}
<Const 0x23264 0x1.2> Δ-2 {[4, '(A6-0x10)']|[#0]|[#1]}
<Const 0x23266 0x0.4> Δ-4 {[4, '(A6-0x10)']|[#0]|[#1]|[##0]}
<Pointer.fp 0x2326a <LVAR -0x002 @ 1(r)>> Δ-4 {[4, '(A6-0x10)']|[#0]|[#1]|[##0]|[@@-2]}
<Pointer.fp 0x2326c <LVAR -0x00c @ 4(r)>> Δ-4 {[4, '(A6-0x10)']|[#0]|[#1]|[##0]|[@@-2]|[@@-12]}
<Call 0x2326e 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 23274-23278 StackAdj> Δ+20 {}
<MI 23278 TST.B (A6-0x2)> {}
<MI 2327a BEQ 0x232c6> {}
<POP 2327c-232c6 Naked> Σ0 ↓
<Pointer.fp 0x2327c <LVAR -0x010 @ 4(rw)>> Δ-4 {[@@-16]}
<Call 0x2327e 0x102bc> {[@@-16]}
FreeString(VAR a : String)
<MI 23284 MOVE.L (A6+0x8),(A7)> {[4, '(A6+0x8)']}
<Call 0x23288 0x20ae8> {[4, '(A6+0x8)']}
<POP 2328c-2328d StackAdj> Δ+4 ↓ {}
<Blob 0x2328d [26] @> Δ-26 {[«26""»]}
<POP 2329e-232a0 StackAdj> Δ-8 {[«26""»]|[-8-]}
<Lit 0x232a0 25> {[«26""»]|[-4-]|[$$Not a command or macro :_]}
<POP 232b0-232b2 StackAdj> Δ-4 {[«26""»]|[-4-]|[$$Not a command or macro :_]|[-4-]}
<MI 232b2 MOVE.L (A6+0xc),(A7)> {[«26""»]|[-4-]|[$$Not a command or macro :_]|[4, '(A6+0xc)']}
<Call 0x232b6 0x102d0> {[«26""»]|[-4-]|[$$Not a command or macro :_]|[4, '(A6+0xc)']}
StringCat2(a, b : String) : String
<POP 232bc-232be StackAdj> Δ+8 {[«26""»]|[-4-]}
<Call 0x232be 0x20b2a> {[«26""»]|[-4-]}
<POP 232c2-232c6 StackAdj> Δ+30 {}
<POP 232c6-232ce Naked> Σ0 ↓ ←0x23210
<MI 232c6 MOVE.L 0x26634,(A6-0x6)> {}
<POP 232ce-232e6 Naked> Σ0 ↓ →0x232fa ←0x232fa
<MI 232ce MOVE.L (A6-0xc),-(A7)> Δ-4 {[4, '(A6-0xc)']}
<Pointer.fp 0x232d0 <LVAR -0x010 @ 4(rw)>> Δ-4 {[4, '(A6-0xc)']|[@@-16]}
<Pointer.fp 0x232d2 <LVAR -0x008 @ 1(r)>> Δ-4 {[4, '(A6-0xc)']|[@@-16]|[@@-8]}
<Call 0x232d6 0x1043c> {[4, '(A6-0xc)']|[@@-16]|[@@-8]}
FileReadLine(file : File; VAR a : String; VAR b : Byte)
<POP 232dc-232e0 StackAdj> Δ+12 {}
<MI 232e0 MOVEA.L (A6-0x10),A0> {}
<MI 232e2 TST.W (A0)> {}
<MI 232e4 BEQ 0x232fa> {}
<POP 232e6-232fa Naked> Σ0 ↓
<MI 232e6 MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0x10)']}
<Call 0x232e8 0x20d82> {[4, '(A6-0x10)']}
<POP 232ec-232ee StackAdj> Δ+4 {}
<Pointer.fp 0x232ee <LVAR -0x006 @ 4(w)>> Δ-4 {[@@-6]}
<MI 232f2 MOVE.L (A6-0x10),-(A7)> Δ-4 {[@@-6]|[4, '(A6-0x10)']}
<Call 0x232f4 0x21108> {[@@-6]|[4, '(A6-0x10)']}
<POP 232f8-232fa StackAdj> Δ+8 {}
<POP 232fa-23300 Naked> Σ0 ↓ →0x232ce ←0x232ce
<MI 232fa TST.B (A6-0x8)> {}
<MI 232fe BEQ 0x232ce> {}
<POP 23300-23320 Naked> Σ0 ↓
<MI 23300 CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x23302 0x1.2> Δ-2 {[#0]|[#1]}
<Const 0x23304 0x1.4> Δ-4 {[#0]|[#1]|[##1]}
<Pointer.fp 0x23308 <LVAR -0x002 @ 1(r)>> Δ-4 {[#0]|[#1]|[##1]|[@@-2]}
<Pointer.fp 0x2330a <LVAR -0x00c @ 4(r)>> Δ-4 {[#0]|[#1]|[##1]|[@@-2]|[@@-12]}
<Call 0x2330c 0x1038c> {[#0]|[#1]|[##1]|[@@-2]|[@@-12]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 23312-23316 StackAdj> Δ+16 {}
<Pointer.fp 0x23316 <LVAR -0x010 @ 4(rw)>> Δ-4 {[@@-16]}
<Call 0x23318 0x102bc> {[@@-16]}
FreeString(VAR a : String)
<POP 2331e-23320 StackAdj> Δ+4 {}
<POP 23320-23328 Epilogue> Σ0
@ 23328
<LVAR 0x014 1(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 23328-23368 Body>
<POP 23328-2333e Prologue> Σ0 ↓
<POP 2333e-23360 Naked> Σ0 ↓
<MI 2333e MOVE.L (A6+0xc),D0> {}
<MI 23342 ADD.L (A6+0x8),D0> {}
<MI 23346 SUBQ.L #0x1,D0> {}
<MI 23348 SUBQ.L #0x1,D0> {}
<POP 0x2334a LimitCheck 0x0 ≤ D0 ≤ 0x1fff> {}
<MI 23354 LEA.L 0x2462c,A0> {}
<MI 2335a MOVE.B (A0+D0.L+#0x8),(A6+0x14)> {}
<POP 23360-23368 Epilogue> Σ0
@ 23368
<LVAR 0x010 4(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 1(r)>
<LVAR -0x008 @ 4(r)>
<POP 23368-233e4 Body>
<POP 23368-2337e Prologue> Σ0 ↓
<POP 2337e-233a6 Naked> Σ0 ↓ →0x233d6
<POP 2337e-23380 StackAdj> Δ-4 {[-4-]}
<MI 23380 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']}
<MI 23384 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x23388 0x217d6> {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 2338c-2338e StackAdj> Δ+8 {[-4-]}
<Pointer.fp 0x2338e <LVAR -0x004 @ 1(r)>> Δ-4 {[-4-]|[@@-4]}
<Pointer.fp 0x23392 <LVAR -0x008 @ 4(r)>> Δ-4 {[-4-]|[@@-4]|[@@-8]}
<Call 0x23396 0x102ec> {[-4-]|[@@-4]|[@@-8]}
String2Long(src : String; VAR status : Bool; VAR retval : Long)
<POP 2339c-233a0 StackAdj> Δ+12 {}
<MI 233a0 TST.B (A6-0x4)> {}
<MI 233a4 BNE 0x233d6> {}
<POP 233a6-233d6 Naked> Σ0 ↓
<Blob 0x233a6 [24] @> Δ-24 {[«24""»]}
<POP 233b8-233ba StackAdj> Δ-4 {[«24""»]|[-4-]}
<Lit 0x233ba 23> {[«24""»]|[$$Illegal marker argument]}
<Call 0x233ce 0x20b2a> {[«24""»]|[$$Illegal marker argument]}
<POP 233d2-233d6 StackAdj> Δ+28 {}
<POP 233d6-233dc Naked> Σ0 ↓ ←0x2337e
<MI 233d6 MOVE.L (A6-0x8),(A6+0x10)> {}
<POP 233dc-233e4 Epilogue> Σ0
@ 233e4
<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 233e4-2350c Body>
<POP 233e4-233fa Prologue> Σ0 ↓
<POP 233fa-2340a RegCacheLoad> Σ0 ↓
<POP 2340a-23424 Naked> Σ0 Δ-4 ↓
<MI 2340a MOVEQ.L #0x00,D7> {}
<MI 2340c MOVE.L (A6+0x14),(A6-0x20)> {}
<MI 23410 MOVE.L 0x26634,D0> {}
<MI 23416 SUB.L (A6+0x14),D0> {}
<MI 2341a MOVE.L D0,(A6-0x14)> {}
<MI 2341c MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<MI 23420 MOVE.L (A6+0x10),D5> {[4, '(A6+0xc)']}
<POP 23424-23428 Naked> Σ-4 ↓ →0x23454 ←0x23450
<MI 23424 CMP.L (A7),D5> {[-4-]}
<MI 23426 BGT 0x23454> {[-4-]}
<POP 23428-2344e Naked> Σ-4 ↓ →0x23450
<POP 23428-2342a StackAdj> Δ-8 {[-12-]}
<MI 2342a MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']}
<MI 2342e MOVE.L D5,-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']|[4, 'D5']}
<Call 0x23430 0x21774> {[-12-]|[4, '(A6+0x8)']|[4, 'D5']}
<POP 23434-23436 StackAdj> Δ+8 {[-12-]}
<MI 23436 MOVE.L (A7)+,(A6-0x10)> Δ+4 {[-8-]}
<MI 23438 MOVE.L (A7),(A6-0xc)> {[-8-]}
<MI 2343a MOVE.L (A6-0xc),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']}
<MI 2343c MOVE.L (A6-0x10),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<Call 0x2343e 0x2173c> {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<POP 23442-23444 StackAdj> Δ+8 {[-8-]}
<MI 23444 MOVE.L (A7)+,D6> Δ+4 {[-4-]}
<MI 23446 ADD.L D6,D7> {[-4-]}
<MI 23448 CMP.L (A6+0xc),D5> {[-4-]}
<MI 2344c BGE 0x23450> {[-4-]}
<POP 2344e-23450 Naked> Σ-4 ↓
<MI 2344e ADDQ.L #0x1,D7> {[-4-]}
<POP 23450-23454 Naked> Σ-4 ↓ →0x23424 ←0x23428
<MI 23450 ADDQ.L #0x1,D5> {[-4-]}
<MI 23452 BVC 0x23424> {[-4-]}
<POP 23454-23462 Naked> Σ-4 Δ+4 ↓ →0x2346e ←0x23424
<POP 23454-23456 StackAdj> Δ+4 {}
<MI 23456 MOVE.L (A6-0x20),D0> {}
<MI 23458 ADD.L (A6-0x14),D0> {}
<MI 2345a MOVE.L D0,(A6-0x18)> {}
<MI 2345e CMP.L (A6-0x14),D7> {}
<MI 23460 BEQ 0x2346e> {}
<POP 23462-2346e Naked> Σ0 ↓
<MI 23462 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 23464 MOVE.L (A6-0x14),-(A7)> Δ-4 {[4, 'D0']|[4, '(A6-0x14)']}
<MI 23466 SUB.L D7,(A7)> {[4, 'D0']|[-4-]}
<Call 0x23468 0x2107e> {[4, 'D0']|[-4-]}
<POP 2346c-2346e StackAdj> Δ+8 {}
<POP 2346e-23476 Naked> Σ0 Δ-4 ↓ ←0x23454
<MI 2346e MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<MI 23472 MOVE.L (A6+0x10),D5> {[4, '(A6+0xc)']}
<POP 23476-2347c Naked> Σ-4 ↓ →0x23502 ←0x234fc
<MI 23476 CMP.L (A7),D5> {[-4-]}
<MI 23478 BGT 0x23502> {[-4-]}
<POP 2347c-2349e Naked> Σ-4 Δ-4 ↓
<POP 2347c-2347e StackAdj> Δ-8 {[-12-]}
<MI 2347e MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']}
<MI 23482 MOVE.L D5,-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']|[4, 'D5']}
<Call 0x23484 0x21774> {[-12-]|[4, '(A6+0x8)']|[4, 'D5']}
<POP 23488-2348a StackAdj> Δ+8 {[-12-]}
<MI 2348a MOVE.L (A7)+,(A6-0x10)> Δ+4 {[-8-]}
<MI 2348c MOVE.L (A7),(A6-0xc)> {[-8-]}
<MI 2348e MOVE.L (A6-0xc),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']}
<MI 23490 MOVE.L (A6-0x10),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<Call 0x23492 0x2173c> {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<POP 23496-23498 StackAdj> Δ+8 {[-8-]}
<MI 23498 MOVE.L (A7)+,D6> Δ+4 {[-4-]}
<MI 2349a MOVE.L D6,-(A7)> Δ-4 {[-4-]|[4, 'D6']}
<MI 2349c MOVEQ.L #0x01,D0> {[-4-]|[4, 'D6']}
<POP 2349e-234a2 Naked> Σ-8 ↓ →0x234d2 ←0x234a2
<MI 2349e CMP.L (A7),D0> {[-8-]}
<MI 234a0 BGT 0x234d2> {[-8-]}
<POP 234a2-234d2 Naked> Σ-8 ↓ →0x2349e
<MI 234a2 MOVE.L (A6-0x20),D1> {[-8-]}
<MI 234a4 ADD.L D0,D1> {[-8-]}
<MI 234a6 SUBQ.L #0x1,D1> {[-8-]}
<MI 234a8 SUBQ.L #0x1,D1> {[-8-]}
<POP 0x234aa LimitCheck 0x0 ≤ D1 ≤ 0x1fff> {[-8-]}
<MI 234b4 LEA.L 0x2462c,A0> {[-8-]}
<POP 234ba-234bc StackAdj> Δ-2 {[-10-]}
<MI 234bc MOVE.L (A6-0xc),-(A7)> Δ-4 {[-10-]|[4, '(A6-0xc)']}
<MI 234be MOVE.L (A6-0x10),-(A7)> Δ-4 {[-10-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<MI 234c0 MOVE.L D0,-(A7)> Δ-4 {[-10-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D0']}
<Call 0x234c2 0x23328> {[-10-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D0']}
<POP 234c6-234ca StackAdj> Δ+12 {[-10-]}
<MI 234ca MOVE.B (A7)+,(A0+D1.L+#0x8)> Δ+2 {[-8-]}
<MI 234ce ADDQ.L #0x1,D0> {[-8-]}
<MI 234d0 BVC 0x2349e> {[-8-]}
<POP 234d2-234da Naked> Σ-8 Δ+4 ↓ →0x234fc ←0x2349e
<POP 234d2-234d4 StackAdj> Δ+4 {[-4-]}
<MI 234d4 CMP.L (A6+0xc),D5> {[-4-]}
<MI 234d8 BGE 0x234fc> {[-4-]}
<POP 234da-234fc Naked> Σ-4 ↓
<MI 234da MOVE.L (A6-0x20),D0> {[-4-]}
<MI 234dc ADD.L D6,D0> {[-4-]}
<MI 234de MOVE.L D0,D1> {[-4-]}
<MI 234e0 SUBQ.L #0x1,D1> {[-4-]}
<POP 0x234e2 LimitCheck 0x0 ≤ D1 ≤ 0x1fff> {[-4-]}
<MI 234ec LEA.L 0x2462c,A0> {[-4-]}
<MI 234f2 MOVE.B #0x2c,(A0+D1.L+#0x8)> {[-4-]}
<MI 234f8 ADDQ.L #0x1,D0> {[-4-]}
<MI 234fa MOVE.L D0,(A6-0x20)> {[-4-]}
<POP 234fc-23502 Naked> Σ-4 ↓ →0x23476 ←0x234d2
<MI 234fc ADDQ.L #0x1,D5> {[-4-]}
<MI 234fe BVC 0x23476> {[-4-]}
<POP 23502-23504 Naked> Σ-4 Δ+4 ↓ ←0x23476
<POP 23502-23504 StackAdj> Δ+4 {}
<POP 23504-2350c Epilogue> Σ0
@ 2350c
<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 2350c-23602 Body> Δ-12
<POP 2350c-23522 Prologue> Σ0 ↓
<POP 23522-23538 RegCacheLoad> Σ0 ↓
<POP 23538-23562 Naked> Σ0 Δ-4 ↓
<POP 23538-2353a StackAdj> Δ-4 {[-4-]}
<MI 2353a MOVE.L (A6+0x14),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']}
<MI 2353c MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<Call 0x2353e 0x2173c> {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<POP 23542-23544 StackAdj> Δ+8 {[-4-]}
<MI 23544 MOVE.L (A7),(A6-0xc)> {[-4-]}
<MI 23546 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']}
<MI 2354a MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x2354e 0x2173c> {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 23552-23554 StackAdj> Δ+8 {[-4-]}
<MI 23554 MOVE.L (A7)+,(A6-0x8)> Δ+4 {}
<MI 23556 ADDQ.L #0x1,(A6-0x8)> {}
<MI 23558 MOVE.L (A6-0xc),D0> {}
<MI 2355a SUB.L (A6-0x8),D0> {}
<MI 2355c ADDQ.L #0x1,D0> {}
<MI 2355e MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 23560 MOVEQ.L #0x01,D0> {[4, 'D0']}
<POP 23562-23568 Naked> Σ-4 ↓ →0x235f4 ←0x235ec
<MI 23562 CMP.L (A7),D0> {[-4-]}
<MI 23564 BGT 0x235f4> {[-4-]}
<POP 23568-23574 Naked> Σ-4 Δ-8 ↓
<MI 23568 MOVE.L D0,(A6-0x18)> {[-4-]}
<MI 2356c MOVE.L D0,-(A7)> Δ-4 {[-4-]|[4, 'D0']}
<MI 2356e MOVEQ.L #0x00,D6> {[-4-]|[4, 'D0']}
<MI 23570 MOVE.L (A6-0x8),-(A7)> Δ-4 {[-4-]|[4, 'D0']|[4, '(A6-0x8)']}
<MI 23572 MOVEQ.L #0x01,D5> {[-4-]|[4, 'D0']|[4, '(A6-0x8)']}
<POP 23574-23578 Naked> Σ-12 ↓ →0x235ba ←0x235b4
<MI 23574 CMP.L (A7),D5> {[-12-]}
<MI 23576 BGT 0x235ba> {[-12-]}
<POP 23578-23580 Naked> Σ-12 ↓ →0x23584
<MI 23578 CMPI.L #0x00000001,D5> {[-12-]}
<MI 2357e BNE 0x23584> {[-12-]}
<POP 23580-23584 Naked> Σ-12 →0x23598
<MI 23580 MOVEQ.L #0x2f,D7> {[-12-]}
<MI 23582 BRA 0x23598> {[-12-]}
<POP 23584-23598 Naked> Σ-12 ↓ ←0x23578
<POP 23584-23586 StackAdj> Δ-2 {[-14-]}
<MI 23586 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-14-]|[4, '(A6+0xc)']}
<MI 2358a MOVE.L (A6+0x8),-(A7)> Δ-4 {[-14-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<MI 2358e MOVE.L D5,-(A7)> Δ-4 {[-14-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D5']}
<MI 23590 SUBQ.L #0x1,(A7)> {[-14-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[-4-]}
<Call 0x23592 0x23328> {[-14-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[-4-]}
<POP 23594-23596 StackAdj> Δ+12 {[-14-]}
<MI 23596 MOVE.B (A7)+,D7> Δ+2 {[-12-]}
<POP 23598-235b0 Naked> Σ-12 ↓ →0x235b4 ←0x23580
<POP 23598-2359a StackAdj> Δ-2 {[-14-]}
<MI 2359a MOVE.L (A6+0x14),-(A7)> Δ-4 {[-14-]|[4, '(A6+0x14)']}
<MI 2359c MOVE.L (A6+0x10),-(A7)> Δ-4 {[-14-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 2359e MOVE.L (A7+0xe),D0> {[-14-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 235a2 ADD.L D5,D0> {[-14-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 235a4 SUBQ.L #0x1,D0> {[-14-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 235a6 MOVE.L D0,-(A7)> Δ-4 {[-14-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D0']}
<Call 0x235a8 0x23328> {[-14-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D0']}
<POP 235aa-235ac StackAdj> Δ+12 {[-14-]}
<MI 235ac CMP.B (A7)+,D7> Δ+2 {[-12-]}
<MI 235ae BEQ 0x235b4> {[-12-]}
<POP 235b0-235b4 Naked> Σ-12 Δ+4 →0x235bc
<POP 235b0-235b2 StackAdj> Δ+4 {[-8-]}
<MI 235b2 BRA 0x235bc> {[-8-]}
<POP 235b4-235ba Naked> Σ-12 ↓ →0x23574 ←0x23598
<MI 235b4 MOVE.L D5,D6> {[-12-]}
<MI 235b6 ADDQ.L #0x1,D5> {[-12-]}
<MI 235b8 BVC 0x23574> {[-12-]}
<POP 235ba-235bc Naked> Σ-12 Δ+4 ↓ ←0x23574
<POP 235ba-235bc StackAdj> Δ+4 {[-8-]}
<POP 235bc-235c0 Naked> Σ-8 ↓ →0x235ec ←0x235b0
<MI 235bc CMP.L (A6-0x8),D6> {[-8-]}
<MI 235be BNE 0x235ec> {[-8-]}
<POP 235c0-235cc Naked> Σ-8 ↓ →0x235ce
<MI 235c0 MOVE.L (A7),D0> {[-8-]}
<MI 235c2 MOVE.L D0,(A6+0x18)> {[-8-]}
<MI 235c6 ADD.L (A6-0x8),D0> {[-8-]}
<MI 235c8 CMP.L (A6-0xc),D0> {[-8-]}
<MI 235ca BLT 0x235ce> {[-8-]}
<POP 235cc-235ce Naked> Σ-8 →0x235e8
<MI 235cc BRA 0x235e8> {[-8-]}
<POP 235ce-235e2 Naked> Σ-8 ↓ →0x235e8 ←0x235c0
<POP 235ce-235d0 StackAdj> Δ-2 {[-10-]}
<MI 235d0 MOVE.L (A6+0x14),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x14)']}
<MI 235d2 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 235d4 MOVE.L D0,-(A7)> Δ-4 {[-10-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D0']}
<Call 0x235d6 0x23328> {[-10-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D0']}
<POP 235d8-235da StackAdj> Δ+12 {[-10-]}
<MI 235da MOVE.B (A7)+,D7> Δ+2 {[-8-]}
<MI 235dc CMPI.B #0x2f,D7> {[-8-]}
<MI 235e0 BEQ 0x235e8> {[-8-]}
<POP 235e2-235e8 Naked> Σ-8 ↓ →0x235ec
<MI 235e2 CMPI.B #0x3d,D7> {[-8-]}
<MI 235e6 BNE 0x235ec> {[-8-]}
<POP 235e8-235ec Naked> Σ-8 Δ+8 →0x235fa ←0x235cc ←0x235ce
<POP 235e8-235ea StackAdj> Δ+8 {}
<MI 235ea BRA 0x235fa> {}
<POP 235ec-235f4 Naked> Σ-8 Δ+4 ↓ →0x23562 ←0x235bc ←0x235e2
<MI 235ec MOVE.L (A7)+,D0> Δ+4 {[-4-]}
<MI 235ee ADDQ.L #0x1,D0> {[-4-]}
<MI 235f0 BVC 0x23562> {[-4-]}
<POP 235f4-235fa Naked> Σ-4 Δ+4 ↓ ←0x23562
<POP 235f4-235f6 StackAdj> Δ+4 {}
<MI 235f6 CLR.L (A6+0x18)> {}
<POP 235fa-23602 Epilogue> Σ0 ←0x235e8
@ 23602
<LVAR 0x018 4(r)>
<LVAR 0x014 4(r)>
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 23602-23696 Body> Δ-4
<POP 23602-23618 Prologue> Σ0 ↓
<POP 23618-23622 RegCacheLoad> Σ0 ↓
<POP 23622-2363c Naked> Σ0 ↓ →0x2368e
<POP 23622-23624 StackAdj> Δ-4 {[-4-]}
<MI 23624 MOVE.L (A6+0x14),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']}
<MI 23626 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 23628 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<MI 2362c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x23630 0x2350c> {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 23634-23638 StackAdj> Δ+16 {[-4-]}
<MI 23638 MOVE.L (A7)+,D5> Δ+4 {}
<MI 2363a BLE 0x2368e> {}
<POP 2363c-2365c Naked> Σ0 Δ-4 ↓
<MI 2363c MOVE.L (A6+0x18),-(A7)> Δ-4 {[4, '(A6+0x18)']}
<Const 0x23640 0x2f.2> Δ-2 {[4, '(A6+0x18)']|[#47]}
<Call 0x23642 0x102c0> {[4, '(A6+0x18)']|[#47]}
AppendChar(MOD b : String; a : char)
<POP 23648-2364a StackAdj> Δ+6 {}
<MI 2364a MOVE.L D5,D0> {}
<MI 2364c ADDQ.L #0x1,D0> {}
<POP 2364e-23650 StackAdj> Δ-4 {[-4-]}
<MI 23650 MOVE.L (A6+0x14),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']}
<MI 23652 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<Call 0x23654 0x2173c> {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<POP 23658-2365a StackAdj> Δ+8 {[-4-]}
<MI 2365a MOVE.L D0,D6> {[-4-]}
<POP 2365c-23660 Naked> Σ-4 ↓ →0x2368c ←0x2367a
<MI 2365c CMP.L (A7),D6> {[-4-]}
<MI 2365e BGT 0x2368c> {[-4-]}
<POP 23660-23676 Naked> Σ-4 ↓ →0x2367a
<POP 23660-23662 StackAdj> Δ-2 {[-6-]}
<MI 23662 MOVE.L (A6+0x14),-(A7)> Δ-4 {[-6-]|[4, '(A6+0x14)']}
<MI 23664 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-6-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 23666 MOVE.L D6,-(A7)> Δ-4 {[-6-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D6']}
<Call 0x23668 0x23328> {[-6-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D6']}
<POP 2366c-23670 StackAdj> Δ+12 {[-6-]}
<MI 23670 MOVE.B (A7)+,D7> Δ+2 {[-4-]}
<MI 23672 CMP.B #0x2f,D7> {[-4-]}
<MI 23674 BNE 0x2367a> {[-4-]}
<POP 23676-2367a Naked> Σ-4 Δ+4 →0x2368e
<POP 23676-23678 StackAdj> Δ+4 {}
<MI 23678 BRA 0x2368e> {}
<POP 2367a-2368c Naked> Σ-4 ↓ →0x2365c ←0x23660
<MI 2367a MOVE.L (A6+0x18),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x18)']}
<MI 2367e MOVE.B D7,-(A7)> Δ-2 {[-4-]|[4, '(A6+0x18)']|[2, 'D7']}
<Call 0x23680 0x102c0> {[-4-]|[4, '(A6+0x18)']|[2, 'D7']}
AppendChar(MOD b : String; a : char)
<POP 23686-23688 StackAdj> Δ+6 {[-4-]}
<MI 23688 ADDQ.L #0x1,D6> {[-4-]}
<MI 2368a BVC 0x2365c> {[-4-]}
<POP 2368c-2368e Naked> Σ-4 Δ+4 ↓ ←0x2365c
<POP 2368c-2368e StackAdj> Δ+4 {}
<POP 2368e-23696 Epilogue> Σ0 ←0x23622 ←0x23676
@ 23696
<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 23696-2374c Body> Δ-8
<POP 23696-236ac Prologue> Σ0 ↓
<POP 236ac-236ba RegCacheLoad> Σ0 ↓
<POP 236ba-236d6 Naked> Σ0 ↓ →0x23744
<POP 236ba-236bc StackAdj> Δ-4 {[-4-]}
<MI 236bc MOVE.L (A6+0x14),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']}
<MI 236be MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 236c0 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<MI 236c4 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x236c8 0x2350c> {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 236cc-236d0 StackAdj> Δ+16 {[-4-]}
<MI 236d0 MOVE.L (A7)+,(A6-0x14)> Δ+4 {}
<MI 236d4 BLE 0x23744> {}
<POP 236d6-236ea Naked> Σ0 Δ-4 ↓
<POP 236d6-236d8 StackAdj> Δ-4 {[-4-]}
<MI 236d8 MOVE.L (A6+0x14),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']}
<MI 236da MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<Call 0x236dc 0x2173c> {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<POP 236e0-236e2 StackAdj> Δ+8 {[-4-]}
<MI 236e2 MOVE.L (A7)+,(A6-0x6)> Δ+4 {}
<MI 236e4 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<MI 236e6 MOVE.L (A6-0x14),D5> {[4, '(A6-0x6)']}
<POP 236ea-236ee Naked> Σ-4 ↓ →0x23742 ←0x2373e
<MI 236ea CMP.L (A7),D5> {[-4-]}
<MI 236ec BGT 0x23742> {[-4-]}
<POP 236ee-23704 Naked> Σ-4 ↓ →0x2373e
<POP 236ee-236f0 StackAdj> Δ-2 {[-6-]}
<MI 236f0 MOVE.L (A6+0x14),-(A7)> Δ-4 {[-6-]|[4, '(A6+0x14)']}
<MI 236f2 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-6-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 236f4 MOVE.L D5,-(A7)> Δ-4 {[-6-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D5']}
<Call 0x236f6 0x23328> {[-6-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D5']}
<POP 236fa-236fc StackAdj> Δ+12 {[-6-]}
<MI 236fc MOVE.B (A7)+,D0> Δ+2 {[-4-]}
<MI 236fe CMPI.B #0x3d,D0> {[-4-]}
<MI 23702 BNE 0x2373e> {[-4-]}
<POP 23704-2370c Naked> Σ-4 Δ-4 ↓
<MI 23704 MOVE.L D5,D0> {[-4-]}
<MI 23706 ADDQ.L #0x1,D0> {[-4-]}
<MI 23708 MOVE.L (A6-0x6),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x6)']}
<MI 2370a MOVE.L D0,D6> {[-4-]|[4, '(A6-0x6)']}
<POP 2370c-23710 Naked> Σ-8 ↓ →0x2373c ←0x2372a
<MI 2370c CMP.L (A7),D6> {[-8-]}
<MI 2370e BGT 0x2373c> {[-8-]}
<POP 23710-23726 Naked> Σ-8 ↓ →0x2372a
<POP 23710-23712 StackAdj> Δ-2 {[-10-]}
<MI 23712 MOVE.L (A6+0x14),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x14)']}
<MI 23714 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 23716 MOVE.L D6,-(A7)> Δ-4 {[-10-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D6']}
<Call 0x23718 0x23328> {[-10-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D6']}
<POP 2371c-2371e StackAdj> Δ+12 {[-10-]}
<MI 2371e MOVE.B (A7)+,D7> Δ+2 {[-8-]}
<MI 23720 CMPI.B #0x2f,D7> {[-8-]}
<MI 23724 BNE 0x2372a> {[-8-]}
<POP 23726-2372a Naked> Σ-8 Δ+8 →0x23744
<POP 23726-23728 StackAdj> Δ+8 {}
<MI 23728 BRA 0x23744> {}
<POP 2372a-2373c Naked> Σ-8 ↓ →0x2370c ←0x23710
<MI 2372a MOVE.L (A6+0x18),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x18)']}
<MI 2372e MOVE.B D7,-(A7)> Δ-2 {[-8-]|[4, '(A6+0x18)']|[2, 'D7']}
<Call 0x23730 0x102c0> {[-8-]|[4, '(A6+0x18)']|[2, 'D7']}
AppendChar(MOD b : String; a : char)
<POP 23736-23738 StackAdj> Δ+6 {[-8-]}
<MI 23738 ADDQ.L #0x1,D6> {[-8-]}
<MI 2373a BVC 0x2370c> {[-8-]}
<POP 2373c-2373e Naked> Σ-8 Δ+4 ↓ ←0x2370c
<POP 2373c-2373e StackAdj> Δ+4 {[-4-]}
<POP 2373e-23742 Naked> Σ-4 ↓ →0x236ea ←0x236ee
<MI 2373e ADDQ.L #0x1,D5> {[-4-]}
<MI 23740 BVC 0x236ea> {[-4-]}
<POP 23742-23744 Naked> Σ-4 Δ+4 ↓ ←0x236ea
<POP 23742-23744 StackAdj> Δ+4 {}
<POP 23744-2374c Epilogue> Σ0 ←0x236ba ←0x23726
@ 2374c
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 2374c-237d2 Body> Δ-4
<POP 2374c-23762 Prologue> Σ0 ↓
<POP 23762-2376c RegCacheLoad> Σ0 ↓
<POP 2376c-2377e Naked> Σ0 Δ-4 ↓
<POP 2376c-2376e StackAdj> Δ-4 {[-4-]}
<MI 2376e MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']}
<MI 23770 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x23772 0x2173c> {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 23776-23778 StackAdj> Δ+8 {[-4-]}
<MI 23778 MOVE.L (A7)+,D5> Δ+4 {}
<MI 2377a MOVE.L D5,-(A7)> Δ-4 {[4, 'D5']}
<MI 2377c MOVEQ.L #0x01,D6> {[4, 'D5']}
<POP 2377e-23782 Naked> Σ-4 ↓ →0x237c8 ←0x237c4
<MI 2377e CMP.L (A7),D6> {[-4-]}
<MI 23780 BGT 0x237c8> {[-4-]}
<POP 23782-23798 Naked> Σ-4 ↓ →0x237c4
<POP 23782-23784 StackAdj> Δ-2 {[-6-]}
<MI 23784 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-6-]|[4, '(A6+0xc)']}
<MI 23786 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-6-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<MI 23788 MOVE.L D6,-(A7)> Δ-4 {[-6-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D6']}
<Call 0x2378a 0x23328> {[-6-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D6']}
<POP 2378e-23790 StackAdj> Δ+12 {[-6-]}
<MI 23790 MOVE.B (A7)+,D0> Δ+2 {[-4-]}
<MI 23792 CMPI.B #0x2f,D0> {[-4-]}
<MI 23796 BNE 0x237c4> {[-4-]}
<POP 23798-2379c Naked> Σ-4 Δ-4 ↓
<MI 23798 MOVE.L D5,-(A7)> Δ-4 {[-4-]|[4, 'D5']}
<MI 2379a MOVE.L D6,D7> {[-4-]|[4, 'D5']}
<POP 2379c-237a0 Naked> Σ-8 ↓ →0x237be ←0x237a0
<MI 2379c CMP.L (A7),D7> {[-8-]}
<MI 2379e BGT 0x237be> {[-8-]}
<POP 237a0-237be Naked> Σ-8 ↓ →0x2379c
<MI 237a0 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x10)']}
<POP 237a4-237a6 StackAdj> Δ-2 {[-8-]|[4, '(A6+0x10)']|[-2-]}
<MI 237a6 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x10)']|[-2-]|[4, '(A6+0xc)']}
<MI 237a8 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x10)']|[-2-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<MI 237aa MOVE.L D7,-(A7)> Δ-4 {[-8-]|[4, '(A6+0x10)']|[-2-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D7']}
<Call 0x237ac 0x23328> {[-8-]|[4, '(A6+0x10)']|[-2-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D7']}
<POP 237b0-237b2 StackAdj> Δ+12 {[-8-]|[4, '(A6+0x10)']|[-2-]}
<Call 0x237b2 0x102c0> {[-8-]|[4, '(A6+0x10)']|[-2-]}
AppendChar(MOD b : String; a : char)
<POP 237b8-237ba StackAdj> Δ+6 {[-8-]}
<MI 237ba ADDQ.L #0x1,D7> {[-8-]}
<MI 237bc BVC 0x2379c> {[-8-]}
<POP 237be-237c4 Naked> Σ-8 Δ+8 →0x237ca ←0x2379c
<POP 237be-237c0 StackAdj> Δ+4 {[-4-]}
<POP 237c0-237c2 StackAdj> Δ+4 {}
<MI 237c2 BRA 0x237ca> {}
<POP 237c4-237c8 Naked> Σ-4 ↓ →0x2377e ←0x23782
<MI 237c4 ADDQ.L #0x1,D6> {[-4-]}
<MI 237c6 BVC 0x2377e> {[-4-]}
<POP 237c8-237ca Naked> Σ-4 Δ+4 ↓ ←0x2377e
<POP 237c8-237ca StackAdj> Δ+4 {}
<POP 237ca-237d2 Epilogue> Σ0 ←0x237be
@ 237d2
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 237d2-23842 Body> Δ-4
<POP 237d2-237e8 Prologue> Σ0 ↓
<POP 237e8-23800 Naked> Σ0 Δ-4 ↓
<MI 237e8 MOVEA.L (A6+0x10),A0> {}
<MI 237ec CLR.W (A0)> {}
<POP 237ee-237f0 StackAdj> Δ-4 {[-4-]}
<MI 237f0 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']}
<MI 237f4 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x237f8 0x2173c> {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 237fc-237fe StackAdj> Δ+8 {[-4-]}
<MI 237fe MOVEQ.L #0x01,D7> {[-4-]}
<POP 23800-23804 Naked> Σ-4 ↓ →0x23838 ←0x23834
<MI 23800 CMP.L (A7),D7> {[-4-]}
<MI 23802 BGT 0x23838> {[-4-]}
<POP 23804-23820 Naked> Σ-4 ↓ →0x23830
<POP 23804-23806 StackAdj> Δ-2 {[-6-]}
<MI 23806 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-6-]|[4, '(A6+0xc)']}
<MI 2380a MOVE.L (A6+0x8),-(A7)> Δ-4 {[-6-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<MI 2380e MOVE.L D7,-(A7)> Δ-4 {[-6-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D7']}
<Call 0x23810 0x23328> {[-6-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D7']}
<POP 23814-23818 StackAdj> Δ+12 {[-6-]}
<MI 23818 MOVE.B (A7)+,D6> Δ+2 {[-4-]}
<MI 2381a CMPI.B #0x2f,D6> {[-4-]}
<MI 2381e BEQ 0x23830> {[-4-]}
<POP 23820-23830 Naked> Σ-4 →0x23834
<MI 23820 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x10)']}
<MI 23824 MOVE.B D6,-(A7)> Δ-2 {[-4-]|[4, '(A6+0x10)']|[2, 'D6']}
<Call 0x23826 0x102c0> {[-4-]|[4, '(A6+0x10)']|[2, 'D6']}
AppendChar(MOD b : String; a : char)
<POP 2382c-2382e StackAdj> Δ+6 {[-4-]}
<MI 2382e BRA 0x23834> {[-4-]}
<POP 23830-23834 Naked> Σ-4 Δ+4 →0x2383a ←0x23804
<POP 23830-23832 StackAdj> Δ+4 {}
<MI 23832 BRA 0x2383a> {}
<POP 23834-23838 Naked> Σ-4 ↓ →0x23800 ←0x23820
<MI 23834 ADDQ.L #0x1,D7> {[-4-]}
<MI 23836 BVC 0x23800> {[-4-]}
<POP 23838-2383a Naked> Σ-4 Δ+4 ↓ ←0x23800
<POP 23838-2383a StackAdj> Δ+4 {}
<POP 2383a-23842 Epilogue> Σ0 ←0x23830
@ 23842
<POP 23842-2388a Body>
<POP 23842-23858 Prologue> Σ0 ↓
<POP 23858-23882 Naked> Σ0 ↓
<Blob 0x23858 [34] @> Δ-34 {[«34""»]}
<POP 23864-23866 StackAdj> Δ-4 {[«34""»]|[-4-]}
<Lit 0x23866 34> {[«34""»]|[$$Switch exclusion is unimplemented.]}
<Call 0x2387a 0x20b2a> {[«34""»]|[$$Switch exclusion is unimplemented.]}
<POP 2387e-23882 StackAdj> Δ+38 {}
<POP 23882-2388a Epilogue> Σ0
@ 2388a
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x006 4(rw)>
<POP 2388a-239c4 Body>
<POP 2388a-238a0 Prologue> Σ0 ↓
<POP 238a0-238b6 RegCacheLoad> Σ0 ↓
<POP 238b6-238c4 Naked> Σ0 ↓ →0x238cc
<MI 238b6 MOVE.L 0x26634,(A6-0x6)> {}
<POP 238ba-238bc StackAdj> Δ-2 {[-2-]}
<Call 0x238bc 0x20bc6> {[-2-]}
<MI 238be MOVE.B (A7)+,D7> Δ+2 {}
<MI 238c0 CMP.B #0x25,D7> {}
<MI 238c2 BNE 0x238cc> {}
<POP 238c4-238cc Naked> Σ0 →0x239ac
<MI 238c4 MOVEA.L (A6+0xc),A0> {}
<MI 238c6 CLR.L (A0)> {}
<MI 238c8 BRA 0x239ac> {}
<POP 238cc-238d0 Naked> Σ0 ↓ →0x238dc ←0x238b6
<MI 238cc CMP.B #0x2d,D7> {}
<MI 238ce BNE 0x238dc> {}
<POP 238d0-238dc Naked> Σ0 →0x239ac
<MI 238d0 MOVEA.L (A6+0xc),A0> {}
<MI 238d2 MOVE.L #0x1,(A0)> {}
<MI 238d8 BRA 0x239ac> {}
<POP 238dc-238e2 Naked> Σ0 ↓ →0x238ee ←0x238cc
<MI 238dc CMPI.B #0x2f,D7> {}
<MI 238e0 BNE 0x238ee> {}
<POP 238e2-238ee Naked> Σ0 →0x239ac
<MI 238e2 MOVEA.L (A6+0xc),A0> {}
<MI 238e4 MOVE.L #0x4,(A0)> {}
<MI 238ea BRA 0x239ac> {}
<POP 238ee-238f4 Naked> Σ0 ↓ →0x23900 ←0x238dc
<MI 238ee CMPI.B #0x3d,D7> {}
<MI 238f2 BNE 0x23900> {}
<POP 238f4-23900 Naked> Σ0 →0x239ac
<MI 238f4 MOVEA.L (A6+0xc),A0> {}
<MI 238f6 MOVE.L #0x5,(A0)> {}
<MI 238fc BRA 0x239ac> {}
<POP 23900-23906 Naked> Σ0 ↓ →0x23912 ←0x238ee
<MI 23900 CMPI.B #0x5c,D7> {}
<MI 23904 BNE 0x23912> {}
<POP 23906-23912 Naked> Σ0 →0x239ac
<MI 23906 MOVEA.L (A6+0xc),A0> {}
<MI 23908 MOVE.L #0x6,(A0)> {}
<MI 2390e BRA 0x239ac> {}
<POP 23912-23916 Naked> Σ0 ↓ →0x23942 ←0x23900
<MI 23912 TST.B D7> {}
<MI 23914 BNE 0x23942> {}
<POP 23916-23942 Naked> Σ0 →0x239ac
<Blob 0x23916 [24] @> Δ-24 {[«24""»]}
<POP 23922-23924 StackAdj> Δ-4 {[«24""»]|[-4-]}
<Lit 0x23924 24> {[«24""»]|[$$Illegal argument marker.]}
<Call 0x23938 0x20b2a> {[«24""»]|[$$Illegal argument marker.]}
<POP 2393c-23940 StackAdj> Δ+28 {}
<MI 23940 BRA 0x239ac> {}
<POP 23942-23946 Naked> Σ0 ↓ →0x23972 ←0x23912
<MI 23942 CMP.B #0x30,D7> {}
<MI 23944 BCS 0x23972> {}
<POP 23946-2394a Naked> Σ0 ↓ →0x23972
<MI 23946 CMP.B #0x39,D7> {}
<MI 23948 BHI 0x23972> {}
<POP 2394a-23952 Naked> Σ0 ↓
<MI 2394a MOVEA.L (A6+0xc),A0> {}
<MI 2394c MOVE.L #0x2,(A0)> {}
<POP 23952-2395e Naked> Σ0 ↓ →0x23968 ←0x2396c
<POP 23952-23954 StackAdj> Δ-2 {[-2-]}
<Call 0x23954 0x20b88> {[-2-]}
<MI 23958 MOVE.B (A7)+,D7> Δ+2 {}
<MI 2395a CMP.B #0x30,D7> {}
<MI 2395c BCS 0x23968> {}
<POP 2395e-23962 Naked> Σ0 ↓ →0x23968
<MI 2395e CMP.B #0x39,D7> {}
<MI 23960 BHI 0x23968> {}
<POP 23962-23968 Naked> Σ0 ↓
<POP 23962-23964 StackAdj> Δ-2 {[-2-]}
<Call 0x23964 0x20bc6> {[-2-]}
<MI 23966 MOVE.B (A7)+,D6> Δ+2 {}
<POP 23968-2396c Naked> Σ0 ↓ →0x23970 ←0x23952 ←0x2395e
<MI 23968 CMP.B #0x30,D7> {}
<MI 2396a BCS 0x23970> {}
<POP 2396c-23970 Naked> Σ0 ↓ →0x23952
<MI 2396c CMP.B #0x39,D7> {}
<MI 2396e BLS 0x23952> {}
<POP 23970-23972 Naked> Σ0 →0x239ac ←0x23968
<MI 23970 BRA 0x239ac> {}
<POP 23972-2397c Naked> Σ0 ↓ ←0x23942 ←0x23946
<MI 23972 MOVEA.L (A6+0xc),A0> {}
<MI 23974 MOVE.L #0x3,(A0)> {}
<MI 2397a MOVEQ.L #0x00,D5> {}
<POP 2397c-23988 Naked> Σ0 ↓ →0x2399e ←0x239a8
<POP 2397c-2397e StackAdj> Δ-2 {[-2-]}
<Call 0x2397e 0x20b88> {[-2-]}
<MI 23982 MOVE.B (A7)+,D7> Δ+2 {}
<MI 23984 CMP.B #0x25,D7> {}
<MI 23986 BEQ 0x2399e> {}
<POP 23988-2398c Naked> Σ0 ↓ →0x2399e
<MI 23988 CMP.B #0x2d,D7> {}
<MI 2398a BEQ 0x2399e> {}
<POP 2398c-23992 Naked> Σ0 ↓ →0x2399e
<MI 2398c CMPI.B #0x2f,D7> {}
<MI 23990 BEQ 0x2399e> {}
<POP 23992-23998 Naked> Σ0 ↓ →0x2399e
<MI 23992 CMPI.B #0x3d,D7> {}
<MI 23996 BEQ 0x2399e> {}
<POP 23998-2399e Naked> Σ0 ↓ →0x239a2
<MI 23998 CMPI.B #0x5c,D7> {}
<MI 2399c BNE 0x239a2> {}
<POP 2399e-239a2 Naked> Σ0 →0x239a8 ←0x2397c ←0x23988 ←0x2398c ←0x23992
<MI 2399e MOVEQ.L #0x01,D5> {}
<MI 239a0 BRA 0x239a8> {}
<POP 239a2-239a8 Naked> Σ0 ↓ ←0x23998
<POP 239a2-239a4 StackAdj> Δ-2 {[-2-]}
<Call 0x239a4 0x20bc6> {[-2-]}
<MI 239a6 MOVE.B (A7)+,D6> Δ+2 {}
<POP 239a8-239ac Naked> Σ0 ↓ →0x2397c ←0x2399e
<MI 239a8 TST.B D5> {}
<MI 239aa BEQ 0x2397c> {}
<POP 239ac-239bc Naked> Σ0 ↓ ←0x238c4 ←0x238d0 ←0x238e2 ←0x238f4 ←0x23906 ←0x23916 ←0x23970
<MI 239ac MOVEA.L (A6+0x8),A0> {}
<MI 239b0 MOVE.L (A6-0x6),(A0)> {}
<MI 239b4 MOVE.L 0x26634,(A0+0x4)> {}
<MI 239b8 SUBQ.L #0x1,(A0+0x4)> {}
<POP 239bc-239c4 Epilogue> Σ0
@ 239c4
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 239c4-23a4a Body>
<POP 239c4-239da Prologue> Σ0 ↓
<POP 239da-239de RegCacheLoad> Σ0 ↓
<POP 239de-239f8 Naked> Σ0 Δ-4 ↓ →0x23a04
<MI 239de MOVEA.L (A6+0x8),A0> {}
<MI 239e2 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 239e4 MOVE.L 0x26634,D6> {[4, 'A0']}
<MI 239ea SUB.L (A6+0xc),D6> {[4, 'A0']}
<MI 239ec MOVE.L (A6+0xc),D5> {[4, 'A0']}
<MI 239ee ADD.L D6,D5> {[4, 'A0']}
<MI 239f0 MOVE.W (A0),D0> {[4, 'A0']}
<MI 239f2 EXTW.L D0> {[4, 'A0']}
<MI 239f4 CMP.L D6,D0> {[4, 'A0']}
<MI 239f6 BEQ 0x23a04> {[4, 'A0']}
<POP 239f8-23a04 Naked> Σ-4 ↓
<MI 239f8 MOVE.L D5,-(A7)> Δ-4 {[-4-]|[4, 'D5']}
<MI 239fa MOVE.L D6,-(A7)> Δ-4 {[-4-]|[4, 'D5']|[4, 'D6']}
<MI 239fc SUB.L D0,(A7)> {[-4-]|[4, 'D5']|[-4-]}
<Call 0x239fe 0x2107e> {[-4-]|[4, 'D5']|[-4-]}
<POP 23a02-23a04 StackAdj> Δ+8 {[-4-]}
<POP 23a04-23a08 Naked> Σ-4 Δ-4 ↓ ←0x239de
<MI 23a04 MOVE.L D0,-(A7)> Δ-4 {[-4-]|[4, 'D0']}
<MI 23a06 MOVEQ.L #0x01,D7> {[-4-]|[4, 'D0']}
<POP 23a08-23a0c Naked> Σ-8 ↓ →0x23a40 ←0x23a0c
<MI 23a08 CMP.L (A7),D7> {[-8-]}
<MI 23a0a BGT 0x23a40> {[-8-]}
<POP 23a0c-23a40 Naked> Σ-8 ↓ →0x23a08
<MI 23a0c MOVE.L (A6+0xc),D0> {[-8-]}
<MI 23a0e ADD.L D7,D0> {[-8-]}
<MI 23a10 SUBQ.L #0x1,D0> {[-8-]}
<MI 23a12 SUBQ.L #0x1,D0> {[-8-]}
<POP 0x23a14 LimitCheck 0x0 ≤ D0 ≤ 0x1fff> {[-8-]}
<MI 23a1e LEA.L 0x2462c,A0> {[-8-]}
<MI 23a24 MOVE.L D7,D1> {[-8-]}
<MI 23a26 SUBQ.L #0x1,D1> {[-8-]}
<POP 0x23a28 LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-8-]}
<MI 23a32 MOVEA.L (A7+0x4),A1> {[-8-]}
<MI 23a36 MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x8)> {[-8-]}
<MI 23a3c ADDQ.L #0x1,D7> {[-8-]}
<MI 23a3e BVC 0x23a08> {[-8-]}
<POP 23a40-23a42 Naked> Σ-8 Δ+8 ↓ ←0x23a08
<POP 23a40-23a42 StackAdj> Δ+8 {}
<POP 23a42-23a4a Epilogue> Σ0
@ 23a4a
<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 23a4a-23c92 Body> Δ+56
<POP 23a4a-23a60 Prologue> Σ0 ↓
<POP 23a60-23a72 RegCacheLoad> Σ0 ↓
<POP 23a72-23a96 Naked> Σ0 ↓
<MI 23a72 MOVE.L 0x26634,(A6-0x28)> {}
<Pointer.fp 0x23a7a <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-8]}
<Call 0x23a7c 0x102b8> {[@@-8]}
NewString(VAR a : String)
<POP 23a82-23a84 StackAdj> Δ+4 {}
<Pointer.fp 0x23a84 <LVAR -0x00c @ 4(r)>> Δ-4 {[@@-12]}
<Pointer.fp 0x23a88 <LVAR -0x014 @ 4(r)>> Δ-4 {[@@-12]|[@@-20]}
<Call 0x23a8a 0x2388a> {[@@-12]|[@@-20]}
<POP 23a8e-23a90 StackAdj> Δ+8 {}
<MI 23a90 CLR.L (A6-0x34)> {}
<MI 23a94 MOVEQ.L #0x00,D7> {}
<POP 23a96-23aaa Naked> Σ0 →0x23ad4 →0x23ade →0x23af2 →0x23b0e →0x23b12 →0x23b20 →0x23b34 →0x23b3a →0x23b3c →0x23b52 →0x23b60 →0x23b78 →0x23b8c →0x23ba0 →0x23bb6 →0x23bb8 →0x23bd2 →0x23be8 →0x23bf6 →0x23bf8 →0x23bfa ←0x23c6e
<MI 23a96 MOVE.L (A6-0x34),D0> {}
<POP 0x23a9a LimitCheck 0x0 ≤ D0 ≤ 0x14> {}
<MI 23aa0 ADD.W D0,D0> {}
<MI 23aa2 SWITCH D0.W> {}
<POP 23ad4-23ade Naked> Σ0 →0x23c24 ←0x23a96
<MI 23ad4 MOVEQ.L #0x00,D6> {}
<MI 23ad6 MOVE.L (A6+0x8),D5> {}
<MI 23ada BRA 0x23c24> {}
<POP 23ade-23af2 Naked> Σ0 →0x23c24 ←0x23a96
<POP 23ade-23ae0 StackAdj> Δ-4 {[-4-]}
<MI 23ae0 MOVE.L (A6-0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x10)']}
<MI 23ae4 MOVE.L (A6-0x14),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<Call 0x23ae6 0x23368> {[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<POP 23aea-23aec StackAdj> Δ+8 {[-4-]}
<MI 23aec MOVE.L (A7)+,D6> Δ+4 {}
<MI 23aee BRA 0x23c24> {}
<POP 23af2-23afa Naked> Σ0 Δ-12 ↓ ←0x23a96
<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 D6,-(A7)> Δ-4 {[4, '(A6-0x28)']|[4, 'D6']|[4, 'D6']}
<POP 23afa-23b0a Naked> Σ-12 Δ+12 →0x23c80 ←0x23b12
<MI 23afa MOVE.L (A6+0xc),-(A7)> Δ-4 {[-12-]|[4, '(A6+0xc)']}
<Call 0x23afe 0x233e4> {[-12-]|[4, '(A6+0xc)']}
<POP 23b02-23b06 StackAdj> Δ+16 {}
<MI 23b06 BRA 0x23c80> {}
<POP 23b0e-23b12 Naked> Σ0 →0x23c24 ←0x23a96
<MI 23b0e BRA 0x23c24> {}
<POP 23b12-23b1c Naked> Σ0 Δ-12 →0x23afa ←0x23a96
<MI 23b12 MOVE.L (A6-0x28),-(A7)> Δ-4 {[4, '(A6-0x28)']}
<MI 23b16 MOVE.L D6,-(A7)> Δ-4 {[4, '(A6-0x28)']|[4, 'D6']}
<MI 23b18 MOVE.L D5,-(A7)> Δ-4 {[4, '(A6-0x28)']|[4, 'D6']|[4, 'D5']}
<MI 23b1a BRA 0x23afa> {[4, '(A6-0x28)']|[4, 'D6']|[4, 'D5']}
<POP 23b20-23b34 Naked> Σ0 →0x23c24 ←0x23a96 ←0x23b3a
<POP 23b20-23b22 StackAdj> Δ-4 {[-4-]}
<MI 23b22 MOVE.L (A6-0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x10)']}
<MI 23b26 MOVE.L (A6-0x14),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<Call 0x23b28 0x23368> {[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<POP 23b2c-23b2e StackAdj> Δ+8 {[-4-]}
<MI 23b2e MOVE.L (A7)+,D5> Δ+4 {}
<MI 23b30 BRA 0x23c24> {}
<POP 23b34-23b3a Naked> Σ0 →0x23c24 ←0x23a96
<MI 23b34 MOVEQ.L #0x01,D6> {}
<MI 23b36 BRA 0x23c24> {}
<POP 23b3a-23b3c Naked> Σ0 →0x23b20 ←0x23a96
<MI 23b3a BRA 0x23b20> {}
<POP 23b3c-23b52 Naked> Σ0 →0x23c24 ←0x23a96
<POP 23b3c-23b3e StackAdj> Δ-8 {[-8-]}
<MI 23b3e MOVE.L (A6+0xc),-(A7)> Δ-4 {[-8-]|[4, '(A6+0xc)']}
<MI 23b42 MOVE.L D6,-(A7)> Δ-4 {[-8-]|[4, '(A6+0xc)']|[4, 'D6']}
<Call 0x23b44 0x21774> {[-8-]|[4, '(A6+0xc)']|[4, 'D6']}
<POP 23b48-23b4a StackAdj> Δ+8 {[-8-]}
<MI 23b4a MOVE.L (A7)+,(A6-0x24)> Δ+4 {[-4-]}
<MI 23b4c MOVE.L (A7)+,(A6-0x20)> Δ+4 {}
<MI 23b4e BRA 0x23c24> {}
<POP 23b52-23b60 Naked> Σ0 →0x23c24 ←0x23a96
<MI 23b52 MOVE.L (A6-0x14),(A6-0x1c)> {}
<MI 23b56 MOVE.L (A6-0x10),(A6-0x18)> {}
<MI 23b5c BRA 0x23c24> {}
<POP 23b60-23b72 Naked> Σ0 Δ-20 ↓ ←0x23a96
<MI 23b60 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<MI 23b62 MOVE.L (A6-0x20),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']}
<MI 23b64 MOVE.L (A6-0x24),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']}
<MI 23b66 MOVE.L (A6-0x18),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']}
<MI 23b6a MOVE.L (A6-0x1c),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<Call 0x23b6e 0x23696> {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<POP 23b72-23b78 Naked> Σ-20 Δ+20 →0x23c24 ←0x23b78
<POP 23b72-23b74 StackAdj> Δ+20 {}
<MI 23b74 BRA 0x23c24> {}
<POP 23b78-23b8c Naked> Σ0 Δ-20 →0x23b72 ←0x23a96
<MI 23b78 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<MI 23b7a MOVE.L (A6-0x20),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']}
<MI 23b7c MOVE.L (A6-0x24),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']}
<MI 23b7e MOVE.L (A6-0x18),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']}
<MI 23b82 MOVE.L (A6-0x1c),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<Call 0x23b86 0x23602> {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<MI 23b8a BRA 0x23b72> {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<POP 23b8c-23b96 Naked> Σ0 Δ-12 ↓ ←0x23a96
<MI 23b8c MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<MI 23b8e MOVE.L (A6-0x20),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']}
<MI 23b90 MOVE.L (A6-0x24),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']}
<Call 0x23b92 0x2374c> {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']}
<POP 23b96-23b9a Naked> Σ-12 Δ+12 ↓ ←0x23bd2
<POP 23b96-23b9a StackAdj> Δ+12 {}
<POP 23b9a-23ba0 Naked> Σ0 →0x23c24 ←0x23ba0 ←0x23bb6 ←0x23bf8
<MI 23b9a MOVEQ.L #0x01,D7> {}
<MI 23b9c BRA 0x23c24> {}
<POP 23ba0-23bb6 Naked> Σ0 →0x23b9a ←0x23a96
<MI 23ba0 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<MI 23ba2 MOVE.L (A6-0x20),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']}
<MI 23ba4 MOVE.L (A6-0x24),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']}
<MI 23ba6 MOVE.L (A6-0x18),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']}
<MI 23baa MOVE.L (A6-0x1c),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<Call 0x23bae 0x23602> {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<POP 23bb2-23bb4 StackAdj> Δ+20 {}
<MI 23bb4 BRA 0x23b9a> {}
<POP 23bb6-23bb8 Naked> Σ0 →0x23b9a ←0x23a96
<MI 23bb6 BRA 0x23b9a> {}
<POP 23bb8-23bcc Naked> Σ0 Δ-12 ↓ ←0x23a96
<MI 23bb8 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<POP 23bba-23bbc StackAdj> Δ-8 {[4, '(A6-0x8)']|[-8-]}
<MI 23bbc MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6-0x8)']|[-8-]|[4, '(A6+0xc)']}
<MI 23bc0 MOVE.L D6,-(A7)> Δ-4 {[4, '(A6-0x8)']|[-8-]|[4, '(A6+0xc)']|[4, 'D6']}
<Call 0x23bc2 0x21774> {[4, '(A6-0x8)']|[-8-]|[4, '(A6+0xc)']|[4, 'D6']}
<POP 23bc6-23bc8 StackAdj> Δ+8 {[4, '(A6-0x8)']|[-8-]}
<Call 0x23bc8 0x2374c> {[4, '(A6-0x8)']|[-8-]}
<POP 23bcc-23bd2 Naked> Σ-12 Δ+12 →0x23c24 ←0x23be8
<POP 23bcc-23bd0 StackAdj> Δ+12 {}
<MI 23bd0 BRA 0x23c24> {}
<POP 23bd2-23be8 Naked> Σ0 Δ-12 →0x23b96 ←0x23a96
<MI 23bd2 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<POP 23bd4-23bd6 StackAdj> Δ-8 {[4, '(A6-0x8)']|[-8-]}
<MI 23bd6 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6-0x8)']|[-8-]|[4, '(A6+0xc)']}
<MI 23bda MOVE.L D6,-(A7)> Δ-4 {[4, '(A6-0x8)']|[-8-]|[4, '(A6+0xc)']|[4, 'D6']}
<Call 0x23bdc 0x21774> {[4, '(A6-0x8)']|[-8-]|[4, '(A6+0xc)']|[4, 'D6']}
<POP 23be0-23be2 StackAdj> Δ+8 {[4, '(A6-0x8)']|[-8-]}
<Call 0x23be2 0x237d2> {[4, '(A6-0x8)']|[-8-]}
<MI 23be6 BRA 0x23b96> {[4, '(A6-0x8)']|[-8-]}
<POP 23be8-23bf6 Naked> Σ0 Δ-12 →0x23bcc ←0x23a96
<MI 23be8 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<MI 23bea MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x10)']}
<MI 23bee MOVE.L (A6-0x14),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<Call 0x23bf0 0x23842> {[4, '(A6-0x8)']|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<MI 23bf4 BRA 0x23bcc> {[4, '(A6-0x8)']|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<POP 23bf6-23bf8 Naked> Σ0 →0x23c24 ←0x23a96
<MI 23bf6 BRA 0x23c24> {}
<POP 23bf8-23bfa Naked> Σ0 →0x23b9a ←0x23a96
<MI 23bf8 BRA 0x23b9a> {}
<POP 23bfa-23c24 Naked> Σ0 ↓ ←0x23a96
<Blob 0x23bfa [24] @> Δ-24 {[«24""»]}
<POP 23c06-23c08 StackAdj> Δ-4 {[«24""»]|[-4-]}
<Lit 0x23c08 24> {[«24""»]|[$$Illegal argument marker.]}
<Call 0x23c1c 0x20b2a> {[«24""»]|[$$Illegal argument marker.]}
<POP 23c20-23c24 StackAdj> Δ+28 {}
<POP 23c24-23c28 Naked> Σ0 ↓ →0x23c6e ←0x23ad4 ←0x23ade ←0x23b0e ←0x23b20 ←0x23b34 ←0x23b3c ←0x23b52 ←0x23b72 ←0x23b9a ←0x23bcc ←0x23bf6
<MI 23c24 TST.B D7> {}
<MI 23c26 BNE 0x23c6e> {}
<POP 23c28-23c6e Naked> Σ0 ↓
<Pointer.fp 0x23c28 <LVAR -0x00c @ 4(r)>> Δ-4 {[@@-12]}
<Pointer.fp 0x23c2c <LVAR -0x014 @ 4(r)>> Δ-4 {[@@-12]|[@@-20]}
<Call 0x23c2e 0x2388a> {[@@-12]|[@@-20]}
<POP 23c32-23c34 StackAdj> Δ+8 {}
<MI 23c34 MOVE.L (A6-0x34),D0> {}
<POP 0x23c38 LimitCheck 0x0 ≤ D0 ≤ 0x13> {}
<MI 23c42 MOVE.L D0,D4> {}
<MI 23c44 MOVEQ.L #0x07,D3> {}
<Call 0x23c46 0x1028c> {}
?muls_d3_d4
<MI 23c4c LEA.L 0x20a5c,A0> {}
<MI 23c50 MOVE.L (A6-0xc),D0> {}
<POP 0x23c54 LimitCheck 0x0 ≤ D0 ≤ 0x6> {}
<MI 23c5e LEA.L (A0+D4.L),A0> {}
<MI 23c62 MOVE.B (A0+D0.L),D1> {}
<MI 23c66 EXTB.W D1> {}
<MI 23c68 EXTW.L D1> {}
<MI 23c6a MOVE.L D1,(A6-0x34)> {}
<POP 23c6e-23c74 Naked> Σ0 ↓ →0x23a96 ←0x23c24
<MI 23c6e TST.B D7> {}
<MI 23c70 BEQ 0x23a96> {}
<POP 23c74-23c80 Naked> Σ0 ↓
<MI 23c74 MOVE.L (A6-0x28),-(A7)> Δ-4 {[4, '(A6-0x28)']}
<MI 23c78 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x28)']|[4, '(A6-0x8)']}
<Call 0x23c7a 0x239c4> {[4, '(A6-0x28)']|[4, '(A6-0x8)']}
<POP 23c7e-23c80 StackAdj> Δ+8 {}
<POP 23c80-23c8a Naked> Σ0 ↓ ←0x23afa
<Pointer.fp 0x23c80 <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-8]}
<Call 0x23c82 0x102bc> {[@@-8]}
FreeString(VAR a : String)
<POP 23c88-23c8a StackAdj> Δ+4 {}
<POP 23c8a-23c92 Epilogue> Σ0
@ 23c92
<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 23c92-23d8a Body> Δ-12
<POP 23c92-23ca8 Prologue> Σ0 ↓
<POP 23ca8-23cba RegCacheLoad> Σ0 ↓
<POP 23cba-23ce2 Naked> Σ0 Δ-4 ↓
<MI 23cba CLR.L (A6+0x14)> {}
<POP 23cbe-23cc0 StackAdj> Δ-4 {[-4-]}
<MI 23cc0 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x10)']}
<MI 23cc2 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<Call 0x23cc4 0x2173c> {[-4-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<POP 23cc8-23cca StackAdj> Δ+8 {[-4-]}
<MI 23cca MOVE.L (A7)+,(A6-0xc)> Δ+4 {}
<MI 23ccc MOVEA.L (A6+0x8),A0> {}
<MI 23cd0 MOVE.W (A0),D0> {}
<MI 23cd2 EXTW.L D0> {}
<MI 23cd4 ADDQ.L #0x1,D0> {}
<MI 23cd6 MOVE.L D0,(A6-0x8)> {}
<MI 23cd8 NEG.L D0> {}
<MI 23cda ADD.L (A6-0xc),D0> {}
<MI 23cdc ADDQ.L #0x1,D0> {}
<MI 23cde MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 23ce0 MOVEQ.L #0x01,D0> {[4, 'D0']}
<POP 23ce2-23ce8 Naked> Σ-4 ↓ →0x23d80 ←0x23d78
<MI 23ce2 CMP.L (A7),D0> {[-4-]}
<MI 23ce4 BGT 0x23d80> {[-4-]}
<POP 23ce8-23cf4 Naked> Σ-4 Δ-8 ↓
<MI 23ce8 MOVE.L D0,(A6-0x18)> {[-4-]}
<MI 23cec MOVE.L D0,-(A7)> Δ-4 {[-4-]|[4, 'D0']}
<MI 23cee MOVEQ.L #0x00,D6> {[-4-]|[4, 'D0']}
<MI 23cf0 MOVE.L (A6-0x8),-(A7)> Δ-4 {[-4-]|[4, 'D0']|[4, '(A6-0x8)']}
<MI 23cf2 MOVEQ.L #0x01,D5> {[-4-]|[4, 'D0']|[4, '(A6-0x8)']}
<POP 23cf4-23cf8 Naked> Σ-12 ↓ →0x23d40 ←0x23d3a
<MI 23cf4 CMP.L (A7),D5> {[-12-]}
<MI 23cf6 BGT 0x23d40> {[-12-]}
<POP 23cf8-23d00 Naked> Σ-12 ↓ →0x23d04
<MI 23cf8 CMPI.L #0x00000001,D5> {[-12-]}
<MI 23cfe BNE 0x23d04> {[-12-]}
<POP 23d00-23d04 Naked> Σ-12 →0x23d1c
<MI 23d00 MOVEQ.L #0x2f,D7> {[-12-]}
<MI 23d02 BRA 0x23d1c> {[-12-]}
<POP 23d04-23d1c Naked> Σ-12 ↓ ←0x23cf8
<MI 23d04 MOVEA.L (A6+0x8),A0> {[-12-]}
<MI 23d08 MOVE.L D5,D0> {[-12-]}
<MI 23d0a SUBQ.L #0x1,D0> {[-12-]}
<MI 23d0c SUBQ.L #0x1,D0> {[-12-]}
<POP 0x23d0e LimitCheck 0x0 ≤ D0 ≤ 0x7d> {[-12-]}
<MI 23d18 MOVE.B (A0+D0.L+#0x2),D7> {[-12-]}
<POP 23d1c-23d36 Naked> Σ-12 ↓ →0x23d3a ←0x23d00
<POP 23d1c-23d1e StackAdj> Δ-2 {[-14-]}
<MI 23d1e MOVE.L (A6+0x10),-(A7)> Δ-4 {[-14-]|[4, '(A6+0x10)']}
<MI 23d20 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-14-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<MI 23d22 MOVE.L (A7+0xe),D0> {[-14-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<MI 23d26 ADD.L D5,D0> {[-14-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<MI 23d28 SUBQ.L #0x1,D0> {[-14-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<MI 23d2a MOVE.L D0,-(A7)> Δ-4 {[-14-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, 'D0']}
<Call 0x23d2c 0x23328> {[-14-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, 'D0']}
<POP 23d30-23d32 StackAdj> Δ+12 {[-14-]}
<MI 23d32 CMP.B (A7)+,D7> Δ+2 {[-12-]}
<MI 23d34 BEQ 0x23d3a> {[-12-]}
<POP 23d36-23d3a Naked> Σ-12 Δ+4 →0x23d42
<POP 23d36-23d38 StackAdj> Δ+4 {[-8-]}
<MI 23d38 BRA 0x23d42> {[-8-]}
<POP 23d3a-23d40 Naked> Σ-12 ↓ →0x23cf4 ←0x23d1c
<MI 23d3a MOVE.L D5,D6> {[-12-]}
<MI 23d3c ADDQ.L #0x1,D5> {[-12-]}
<MI 23d3e BVC 0x23cf4> {[-12-]}
<POP 23d40-23d42 Naked> Σ-12 Δ+4 ↓ ←0x23cf4
<POP 23d40-23d42 StackAdj> Δ+4 {[-8-]}
<POP 23d42-23d46 Naked> Σ-8 ↓ →0x23d78 ←0x23d36
<MI 23d42 CMP.L (A6-0x8),D6> {[-8-]}
<MI 23d44 BNE 0x23d78> {[-8-]}
<POP 23d46-23d50 Naked> Σ-8 ↓ →0x23d76
<MI 23d46 MOVE.L (A7),D0> {[-8-]}
<MI 23d48 MOVE.L D0,D1> {[-8-]}
<MI 23d4a ADD.L (A6-0x8),D1> {[-8-]}
<MI 23d4c CMP.L (A6-0xc),D1> {[-8-]}
<MI 23d4e BGE 0x23d76> {[-8-]}
<POP 23d50-23d66 Naked> Σ-8 ↓ →0x23d6c
<POP 23d50-23d52 StackAdj> Δ-2 {[-10-]}
<MI 23d52 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x10)']}
<MI 23d54 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<MI 23d56 MOVE.L D1,-(A7)> Δ-4 {[-10-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, 'D1']}
<Call 0x23d58 0x23328> {[-10-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, 'D1']}
<POP 23d5c-23d5e StackAdj> Δ+12 {[-10-]}
<MI 23d5e MOVE.B (A7)+,D7> Δ+2 {[-8-]}
<MI 23d60 CMPI.B #0x2f,D7> {[-8-]}
<MI 23d64 BEQ 0x23d6c> {[-8-]}
<POP 23d66-23d6c Naked> Σ-8 ↓ →0x23d74
<MI 23d66 CMPI.B #0x3d,D7> {[-8-]}
<MI 23d6a BNE 0x23d74> {[-8-]}
<POP 23d6c-23d74 Naked> Σ-8 Δ+8 →0x23d82 ←0x23d50 ←0x23d76
<MI 23d6c MOVE.L D0,(A6+0x14)> {[-8-]}
<POP 23d70-23d72 StackAdj> Δ+8 {}
<MI 23d72 BRA 0x23d82> {}
<POP 23d74-23d76 Naked> Σ-8 →0x23d78 ←0x23d66
<MI 23d74 BRA 0x23d78> {[-8-]}
<POP 23d76-23d78 Naked> Σ-8 →0x23d6c ←0x23d46
<MI 23d76 BRA 0x23d6c> {[-8-]}
<POP 23d78-23d80 Naked> Σ-8 Δ+4 ↓ →0x23ce2 ←0x23d42 ←0x23d74
<MI 23d78 MOVE.L (A7)+,D0> Δ+4 {[-4-]}
<MI 23d7a ADDQ.L #0x1,D0> {[-4-]}
<MI 23d7c BVC 0x23ce2> {[-4-]}
<POP 23d80-23d82 Naked> Σ-4 Δ+4 ↓ ←0x23ce2
<POP 23d80-23d82 StackAdj> Δ+4 {}
<POP 23d82-23d8a Epilogue> Σ0 ←0x23d6c
@ 23d8a
<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 23d8a-23e72 Body> Δ-12
<POP 23d8a-23da0 Prologue> Σ0 ↓
<POP 23da0-23db0 RegCacheLoad> Σ0 ↓
<POP 23db0-23dd6 Naked> Σ0 ↓ →0x23e6a
<MI 23db0 MOVEA.L (A6+0x8),A0> {}
<MI 23db4 CLR.B (A0)> {}
<MI 23db6 MOVEA.L (A6+0xc),A1> {}
<MI 23dba MOVE.L #0x01,(A1)> {}
<POP 23dbc-23dbe StackAdj> Δ-8 {[-8-]}
<MI 23dbe MOVE.L (A6+0x18),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x18)']}
<MI 23dc2 MOVE.L (A6+0x14),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x18)']|[4, '(A6+0x14)']}
<Call 0x23dc6 0x21774> {[-8-]|[4, '(A6+0x18)']|[4, '(A6+0x14)']}
<POP 23dca-23dcc StackAdj> Δ+8 {[-8-]}
<MI 23dcc MOVE.L (A7)+,(A6-0x1c)> Δ+4 {[-4-]}
<MI 23dce MOVE.L (A7)+,(A6-0x18)> Δ+4 {}
<MI 23dd0 TST.L (A6-0x1c)> {}
<MI 23dd2 BEQ 0x23e6a> {}
<POP 23dd6-23dec Naked> Σ0 ↓ →0x23e6a
<POP 23dd6-23dd8 StackAdj> Δ-4 {[-4-]}
<MI 23dd8 MOVE.L (A6-0x18),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x18)']}
<MI 23dda MOVE.L (A6-0x1c),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<MI 23ddc MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, '(A6+0x10)']}
<Call 0x23de0 0x23c92> {[-4-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, '(A6+0x10)']}
<POP 23de4-23de6 StackAdj> Δ+12 {[-4-]}
<MI 23de6 MOVE.L (A7)+,(A6-0x14)> Δ+4 {}
<MI 23dea BEQ 0x23e6a> {}
<POP 23dec-23e0c Naked> Σ0 Δ-4 ↓
<MI 23dec MOVE.B #0x01,(A0)> {}
<MI 23dee PEA.L (A1)> Δ-4 {[4, '^(A1)']}
<Call 0x23df0 0x102b8> {[4, '^(A1)']}
NewString(VAR a : String)
<MI 23df6 MOVE.L (A6-0x18),-(A7)> Δ-4 {[4, '^(A1)']|[4, '(A6-0x18)']}
<MI 23df8 MOVE.L (A6-0x1c),-(A7)> Δ-4 {[4, '^(A1)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<Call 0x23dfa 0x2173c> {[4, '^(A1)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<POP 23dfe-23e00 StackAdj> Δ+8 {[4, '^(A1)']}
<MI 23e00 MOVE.L (A7)+,(A6-0x8)> Δ+4 {}
<MI 23e02 MOVE.L (A6-0x14),D0> {}
<MI 23e06 ADDQ.L #0x1,D0> {}
<MI 23e08 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<MI 23e0a MOVE.L D0,D5> {[4, '(A6-0x8)']}
<POP 23e0c-23e10 Naked> Σ-4 ↓ →0x23e68 ←0x23e64
<MI 23e0c CMP.L (A7),D5> {[-4-]}
<MI 23e0e BGT 0x23e68> {[-4-]}
<POP 23e10-23e26 Naked> Σ-4 ↓ →0x23e64
<POP 23e10-23e12 StackAdj> Δ-2 {[-6-]}
<MI 23e12 MOVE.L (A6-0x18),-(A7)> Δ-4 {[-6-]|[4, '(A6-0x18)']}
<MI 23e14 MOVE.L (A6-0x1c),-(A7)> Δ-4 {[-6-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<MI 23e16 MOVE.L D5,-(A7)> Δ-4 {[-6-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, 'D5']}
<Call 0x23e18 0x23328> {[-6-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, 'D5']}
<POP 23e1c-23e1e StackAdj> Δ+12 {[-6-]}
<MI 23e1e MOVE.B (A7)+,D0> Δ+2 {[-4-]}
<MI 23e20 CMPI.B #0x3d,D0> {[-4-]}
<MI 23e24 BNE 0x23e64> {[-4-]}
<POP 23e26-23e2e Naked> Σ-4 Δ-4 ↓
<MI 23e26 MOVE.L D5,D0> {[-4-]}
<MI 23e28 ADDQ.L #0x1,D0> {[-4-]}
<MI 23e2a MOVE.L (A6-0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x8)']}
<MI 23e2c MOVE.L D0,D7> {[-4-]|[4, '(A6-0x8)']}
<POP 23e2e-23e32 Naked> Σ-8 ↓ →0x23e60 ←0x23e4c
<MI 23e2e CMP.L (A7),D7> {[-8-]}
<MI 23e30 BGT 0x23e60> {[-8-]}
<POP 23e32-23e48 Naked> Σ-8 ↓ →0x23e4c
<POP 23e32-23e34 StackAdj> Δ-2 {[-10-]}
<MI 23e34 MOVE.L (A6-0x18),-(A7)> Δ-4 {[-10-]|[4, '(A6-0x18)']}
<MI 23e36 MOVE.L (A6-0x1c),-(A7)> Δ-4 {[-10-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<MI 23e38 MOVE.L D7,-(A7)> Δ-4 {[-10-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, 'D7']}
<Call 0x23e3a 0x23328> {[-10-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, 'D7']}
<POP 23e3e-23e40 StackAdj> Δ+12 {[-10-]}
<MI 23e40 MOVE.B (A7)+,D6> Δ+2 {[-8-]}
<MI 23e42 CMPI.B #0x2f,D6> {[-8-]}
<MI 23e46 BNE 0x23e4c> {[-8-]}
<POP 23e48-23e4c Naked> Σ-8 Δ+8 →0x23e6a
<POP 23e48-23e4a StackAdj> Δ+8 {}
<MI 23e4a BRA 0x23e6a> {}
<POP 23e4c-23e60 Naked> Σ-8 ↓ →0x23e2e ←0x23e32
<MI 23e4c MOVEA.L (A6+0xc),A0> {[-8-]}
<MI 23e50 MOVE.L (A0),-(A7)> Δ-4 {[-8-]|[4, '(A0)']}
<MI 23e52 MOVE.B D6,-(A7)> Δ-2 {[-8-]|[4, '(A0)']|[2, 'D6']}
<Call 0x23e54 0x102c0> {[-8-]|[4, '(A0)']|[2, 'D6']}
AppendChar(MOD b : String; a : char)
<POP 23e5a-23e5c StackAdj> Δ+6 {[-8-]}
<MI 23e5c ADDQ.L #0x1,D7> {[-8-]}
<MI 23e5e BVC 0x23e2e> {[-8-]}
<POP 23e60-23e64 Naked> Σ-8 Δ+8 →0x23e6a ←0x23e2e
<POP 23e60-23e62 StackAdj> Δ+8 {}
<MI 23e62 BRA 0x23e6a> {}
<POP 23e64-23e68 Naked> Σ-4 ↓ →0x23e0c ←0x23e10
<MI 23e64 ADDQ.L #0x1,D5> {[-4-]}
<MI 23e66 BVC 0x23e0c> {[-4-]}
<POP 23e68-23e6a Naked> Σ-4 Δ+4 ↓ ←0x23e0c
<POP 23e68-23e6a StackAdj> Δ+4 {}
<POP 23e6a-23e72 Epilogue> Σ0 ←0x23db0 ←0x23dd6 ←0x23e48 ←0x23e60
@ 23e72
<LVAR 0x00c @ 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x010 @ 1(r)>
<POP 23e72-23f10 Body>
<POP 23e72-23e88 Prologue> Σ0 ↓
<POP 23e88-23e96 RegCacheLoad> Σ0 ↓
<POP 23e96-23eae Naked> Σ0 ↓ →0x23efe
<MI 23e96 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<MI 23e98 MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Pointer.fp 0x23e9a <LVAR -0x010 @ 1(r)>> Δ-4 {[4, '(A6+0xc)']|[4, '(A6+0x8)']|[@@-16]}
<Call 0x23e9e 0x203c8> {[4, '(A6+0xc)']|[4, '(A6+0x8)']|[@@-16]}
<POP 23ea4-23ea8 StackAdj> Δ+12 {}
<MI 23ea8 TST.B (A6-0x10)> {}
<MI 23eac BNE 0x23efe> {}
<POP 23eae-23ec8 Naked> Σ0 ↓
<MI 23eae MOVE.L 0x26634,D7> {}
<POP 23eb0-23eb2 StackAdj> Δ-4 {[-4-]}
<MI 23eb2 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x23eb4 0x20f36> {[-4-]|[4, '(A6+0x8)']}
<POP 23eb8-23eba StackAdj> Δ+4 {[-4-]}
<MI 23eba MOVE.L (A7)+,D6> Δ+4 {}
<MI 23ebc MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<MI 23ebe MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x23ec0 0x231ec> {[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 23ec4-23ec6 StackAdj> Δ+8 {}
<MI 23ec6 MOVE.L 0x26634,D5> {}
<POP 23ec8-23ee6 Naked> Σ0 ↓ →0x23ef2 ←0x23ef2
<MI 23ec8 MOVE.L D7,D0> {}
<MI 23eca SUBQ.L #0x1,D0> {}
<POP 0x23ecc LimitCheck 0x0 ≤ D0 ≤ 0x1fff> {}
<MI 23ed6 LEA.L 0x2462c,A0> {}
<MI 23edc MOVE.B (A0+D0.L+#0x8),D0> {}
<MI 23ee0 CMPI.B #0x25,D0> {}
<MI 23ee4 BNE 0x23ef2> {}
<POP 23ee6-23ef2 Naked> Σ0 ↓
<MI 23ee6 MOVE.L D7,0x26634> {}
<MI 23ee8 MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<MI 23eea MOVE.L D6,-(A7)> Δ-4 {[4, '(A6+0x8)']|[4, 'D6']}
<Call 0x23eec 0x23a4a> {[4, '(A6+0x8)']|[4, 'D6']}
<POP 23ef0-23ef2 StackAdj> Δ+8 {}
<POP 23ef2-23efc Naked> Σ0 ↓ →0x23ec8 ←0x23ec8
<MI 23ef2 ADDQ.L #0x1,D7> {}
<MI 23ef4 CMP.L 0x26638,D7> {}
<MI 23efa BLE 0x23ec8> {}
<POP 23efc-23efe Naked> Σ0 ↓
<MI 23efc MOVE.L D5,0x26634> {}
<POP 23efe-23f08 Naked> Σ0 ↓ ←0x23e96
<Pointer.fp 0x23efe <LVAR 0x00c @ 4(r)>> Δ-4 {[@@12]}
<Call 0x23f00 0x102bc> {[@@12]}
FreeString(VAR a : String)
<POP 23f06-23f08 StackAdj> Δ+4 {}
<POP 23f08-23f10 Epilogue> Σ0
@ 23f10
<LVAR -0x006 @ 4(r)>
<LVAR -0x00a @ 4(rw)>
<LVAR -0x00b 1(w)>
<LVAR -0x00c @ 1(r)>
<POP 23f10-24222 Body> Δ+148
<POP 23f10-23f26 Prologue> Σ0 ↓
<POP 23f26-23f34 RegCacheLoad> Σ0 ↓
<POP 23f34-23f5a Naked> Σ0 ↓ →0x24204 ←0x24204
<MI 23f34 MOVE.L 0x26634,D7> {}
<Pointer.fp 0x23f36 <LVAR -0x006 @ 4(r)>> Δ-4 {[@@-6]}
<Pointer.fp 0x23f38 <LVAR -0x00c @ 1(r)>> Δ-4 {[@@-6]|[@@-12]}
<Call 0x23f3c 0x20e8a> {[@@-6]|[@@-12]}
<POP 23f40-23f42 StackAdj> Δ+8 {}
<MI 23f42 MOVE.L 0x26634,D6> {}
<POP 23f44-23f46 StackAdj> Δ-4 {[-4-]}
<MI 23f46 MOVE.L (A6-0x6),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x6)']}
<Call 0x23f48 0x20f36> {[-4-]|[4, '(A6-0x6)']}
<POP 23f4c-23f4e StackAdj> Δ+4 {[-4-]}
<MI 23f4e MOVE.L (A7)+,D0> Δ+4 {}
<MI 23f50 CMPI.L #0xffffffff,D0> {}
<MI 23f56 BEQ 0x24204> {}
<POP 23f5a-23f84 Naked> Σ0 ↓ →0x23f92
<POP 23f5a-23f5c StackAdj> Δ-4 {[-4-]}
<MI 23f5c MOVE.L (A6-0x6),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x6)']}
<Const 0x23f5e 0x0.4> Δ-4 {[-4-]|[4, '(A6-0x6)']|[##0]}
<Call 0x23f62 0x21852> {[-4-]|[4, '(A6-0x6)']|[##0]}
<POP 23f66-23f68 StackAdj> Δ+8 {[-4-]}
<MI 23f68 MOVE.L (A7),(A6-0xa)> {[-4-]}
<POP 23f6a-23f6c StackAdj> Δ+2 {[-2-]}
<MI 23f6c MOVE.L (A6-0xa),-(A7)> Δ-4 {[-2-]|[4, '(A6-0xa)']}
<Call 0x23f6e 0x23134> {[-2-]|[4, '(A6-0xa)']}
<POP 23f72-23f74 StackAdj> Δ+4 {[-2-]}
<MI 23f74 MOVE.B (A7)+,D0> Δ+2 {}
<MI 23f76 EXTB.W D0> {}
<POP 0x23f78 LimitCheck 0x0 ≤ D0 ≤ 0x2b> {}
<MI 23f7c MOVE.B D0,(A6-0xb)> {}
<MI 23f80 TST.B D0> {}
<MI 23f82 BNE 0x23f92> {}
<POP 23f84-23f92 Naked> Σ0 →0x241fc
<MI 23f84 MOVE.L (A6-0xa),-(A7)> Δ-4 {[4, '(A6-0xa)']}
<MI 23f86 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0xa)']|[4, '(A6-0x6)']}
<Call 0x23f88 0x23e72> {[4, '(A6-0xa)']|[4, '(A6-0x6)']}
<POP 23f8c-23f8e StackAdj> Δ+8 {}
<MI 23f8e BRA 0x241fc> {}
<POP 23f92-23fc8 Naked> Σ0 ↓ →0x23ff4 ←0x23f5a
<Pointer.fp 0x23f92 <LVAR -0x00a @ 4(rw)>> Δ-4 {[@@-10]}
<Call 0x23f94 0x102bc> {[@@-10]}
FreeString(VAR a : String)
<POP 23f9a-23f9c StackAdj> Δ+4 {}
<MI 23f9c MOVE.B D0,D1> {}
<MI 23f9e EXTB.W D1> {}
<POP 0x23fa0 LimitCheck 0x0 ≤ D1 ≤ 0x2b> {}
<MI 23fa4 LEA.L 0x20a2c,A0> {}
<MI 23fa8 MOVE.W D1,D0> {}
<MI 23faa EXTW.L D0> {}
<MI 23fac MOVE.L D0,D2> {}
<MI 23fae ROR.L #0x1,D2> {}
<MI 23fb0 ADDA.W D2,A0> {}
<MI 23fb2 SWAP.W D2> {}
<MI 23fb4 ROL.W #0x3,D2> {}
<MI 23fb6 CLR.L D3> {}
<MI 23fb8 MOVE.B (A0),D3> {}
<MI 23fba LSL.B D2,D3> {}
<MI 23fbc LSR.B #0x4,D3> {}
<MI 23fbe MOVE.L D3,D5> {}
<MI 23fc0 CMPI.L #0x0000000f,D5> {}
<MI 23fc6 BEQ 0x23ff4> {}
<POP 23fc8-23ff4 Naked> Σ0 ↓
<MI 23fc8 MOVE.L D0,D4> {}
<MI 23fca MOVEQ.L #0x0a,D3> {}
<Call 0x23fcc 0x1028c> {}
?muls_d3_d4
<MI 23fd2 LEA.L 0x2085e,A0> {}
<Blob 0x23fd6 [10] (A0+D4.W)> Δ-10 {[«10»]}
<MI 23fe8 MOVE.L (A6-0x6),-(A7)> Δ-4 {[«10»]|[4, '(A6-0x6)']}
<MI 23fea MOVE.L D5,-(A7)> Δ-4 {[«10»]|[4, '(A6-0x6)']|[4, 'D5']}
<Call 0x23fec 0x20f6c> {[«10»]|[4, '(A6-0x6)']|[4, 'D5']}
<POP 23ff0-23ff4 StackAdj> Δ+18 {}
<POP 23ff4-24008 Naked> Σ0 →0x2405e →0x2406a →0x2407c →0x2408a →0x241ee →0x24092 →0x24096 →0x2409e →0x240a6 →0x240ae →0x240b6 →0x240be →0x240c6 →0x240ce →0x240d6 →0x240de →0x240e8 →0x240f2 →0x240fc →0x24106 →0x24110 →0x2411a →0x24124 →0x2412e →0x24138 →0x24142 →0x2414c →0x24156 →0x24160 →0x2416a →0x24174 →0x2417e →0x24188 →0x24192 →0x2419c →0x241a6 →0x241b0 →0x241ba →0x241c0 →0x241ca →0x241d4 →0x241de →0x241e4 ←0x23f92
<MI 23ff4 SUBQ.W #0x1,D1> {}
<POP 0x23ff6 LimitCheck 0x0 ≤ D1 ≤ 0x2a> {}
<MI 23ffe ADD.W D1,D1> {}
<MI 24000 SWITCH D1.W> {}
<POP 2405e-24064 Naked> Σ0 Δ-4 ↓ ←0x23ff4
<MI 2405e MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x24060 0x219da> {[4, '(A6-0x6)']}
<POP 24064-2406a Naked> Σ-4 Δ+4 →0x241fc ←0x2407c ←0x2408a ←0x24096 ←0x2409e ←0x240a6 ←0x240ae ←0x240b6 ←0x240be ←0x240c6 ←0x240ce ←0x240d6 ←0x240de ←0x240e8 ←0x240f2 ←0x240fc ←0x24106 ←0x24110 ←0x2411a ←0x24124 ←0x2412e ←0x24138 ←0x24142 ←0x2414c ←0x24156 ←0x24160 ←0x2416a ←0x24174 ←0x2417e ←0x24188 ←0x24192 ←0x2419c ←0x241a6 ←0x241b0 ←0x241c0 ←0x241ca ←0x241d4 ←0x241e4
<POP 24064-24066 StackAdj> Δ+4 {}
<MI 24066 BRA 0x241fc> {}
<POP 2406a-2407c Naked> Σ0 →0x241fc ←0x23ff4
<MI 2406a CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x2406c 0x1.4> Δ-4 {[#0]|[##1]}
<Call 0x24070 0x103b8> {[#0]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 24076-24078 StackAdj> Δ+6 {}
<MI 24078 BRA 0x241fc> {}
<POP 2407c-2408a Naked> Σ0 Δ-4 →0x24064 ←0x23ff4
<POP 2407c-2407e StackAdj> Δ-4 {[-4-]}
<Call 0x2407e 0x102ac> {[-4-]}
FSCALL_102ac
<Call 0x24084 0x219b0> {[-4-]}
<MI 24088 BRA 0x24064> {[-4-]}
<POP 2408a-24092 Naked> Σ0 Δ-4 →0x24064 ←0x23ff4
<MI 2408a MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x2408c 0x21bb4> {[4, '(A6-0x6)']}
<MI 24090 BRA 0x24064> {[4, '(A6-0x6)']}
<POP 24092-24096 Naked> Σ0 →0x241fc ←0x23ff4
<MI 24092 BRA 0x241fc> {}
<POP 24096-2409e Naked> Σ0 Δ-4 →0x24064 ←0x23ff4
<MI 24096 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x24098 0x21eda> {[4, '(A6-0x6)']}
<MI 2409c BRA 0x24064> {[4, '(A6-0x6)']}
<POP 2409e-240a6 Naked> Σ0 Δ-4 →0x24064 ←0x23ff4
<MI 2409e MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x240a0 0x22046> {[4, '(A6-0x6)']}
<MI 240a4 BRA 0x24064> {[4, '(A6-0x6)']}
<POP 240a6-240ae Naked> Σ0 Δ-4 →0x24064 ←0x23ff4
<MI 240a6 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x240a8 0x22134> {[4, '(A6-0x6)']}
<MI 240ac BRA 0x24064> {[4, '(A6-0x6)']}
<POP 240ae-240b6 Naked> Σ0 Δ-4 →0x24064 ←0x23ff4
<MI 240ae MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x240b0 0x22528> {[4, '(A6-0x6)']}
<MI 240b4 BRA 0x24064> {[4, '(A6-0x6)']}
<POP 240b6-240be Naked> Σ0 Δ-4 →0x24064 ←0x23ff4
<MI 240b6 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x240b8 0x225a0> {[4, '(A6-0x6)']}
<MI 240bc BRA 0x24064> {[4, '(A6-0x6)']}
<POP 240be-240c6 Naked> Σ0 Δ-4 →0x24064 ←0x23ff4
<MI 240be MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x240c0 0x22618> {[4, '(A6-0x6)']}
<MI 240c4 BRA 0x24064> {[4, '(A6-0x6)']}
<POP 240c6-240ce Naked> Σ0 Δ-4 →0x24064 ←0x23ff4
<MI 240c6 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x240c8 0x22644> {[4, '(A6-0x6)']}
<MI 240cc BRA 0x24064> {[4, '(A6-0x6)']}
<POP 240ce-240d6 Naked> Σ0 Δ-4 →0x24064 ←0x23ff4
<MI 240ce MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x240d0 0x22744> {[4, '(A6-0x6)']}
<MI 240d4 BRA 0x24064> {[4, '(A6-0x6)']}
<POP 240d6-240de Naked> Σ0 Δ-4 →0x24064 ←0x23ff4
<MI 240d6 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x240d8 0x2282a> {[4, '(A6-0x6)']}
<MI 240dc BRA 0x24064> {[4, '(A6-0x6)']}
<POP 240de-240e8 Naked> Σ0 Δ-4 →0x24064 ←0x23ff4
<MI 240de MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x240e0 0x22856> {[4, '(A6-0x6)']}
<MI 240e4 BRA 0x24064> {[4, '(A6-0x6)']}
<POP 240e8-240f2 Naked> Σ0 Δ-4 →0x24064 ←0x23ff4
<MI 240e8 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x240ea 0x228a2> {[4, '(A6-0x6)']}
<MI 240ee BRA 0x24064> {[4, '(A6-0x6)']}
<POP 240f2-240fc Naked> Σ0 Δ-4 →0x24064 ←0x23ff4
<MI 240f2 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x240f4 0x228ee> {[4, '(A6-0x6)']}
<MI 240f8 BRA 0x24064> {[4, '(A6-0x6)']}
<POP 240fc-24106 Naked> Σ0 Δ-4 →0x24064 ←0x23ff4
<MI 240fc MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x240fe 0x2293a> {[4, '(A6-0x6)']}
<MI 24102 BRA 0x24064> {[4, '(A6-0x6)']}
<POP 24106-24110 Naked> Σ0 Δ-4 →0x24064 ←0x23ff4
<MI 24106 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x24108 0x22986> {[4, '(A6-0x6)']}
<MI 2410c BRA 0x24064> {[4, '(A6-0x6)']}
<POP 24110-2411a Naked> Σ0 Δ-4 →0x24064 ←0x23ff4
<MI 24110 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x24112 0x229d2> {[4, '(A6-0x6)']}
<MI 24116 BRA 0x24064> {[4, '(A6-0x6)']}
<POP 2411a-24124 Naked> Σ0 Δ-4 →0x24064 ←0x23ff4
<MI 2411a MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x2411c 0x22a1e> {[4, '(A6-0x6)']}
<MI 24120 BRA 0x24064> {[4, '(A6-0x6)']}
<POP 24124-2412e Naked> Σ0 Δ-4 →0x24064 ←0x23ff4
<MI 24124 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x24126 0x22a68> {[4, '(A6-0x6)']}
<MI 2412a BRA 0x24064> {[4, '(A6-0x6)']}
<POP 2412e-24138 Naked> Σ0 Δ-4 →0x24064 ←0x23ff4
<MI 2412e MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x24130 0x22ab2> {[4, '(A6-0x6)']}
<MI 24134 BRA 0x24064> {[4, '(A6-0x6)']}
<POP 24138-24142 Naked> Σ0 Δ-4 →0x24064 ←0x23ff4
<MI 24138 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x2413a 0x22afc> {[4, '(A6-0x6)']}
<MI 2413e BRA 0x24064> {[4, '(A6-0x6)']}
<POP 24142-2414c Naked> Σ0 Δ-4 →0x24064 ←0x23ff4
<MI 24142 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x24144 0x22b46> {[4, '(A6-0x6)']}
<MI 24148 BRA 0x24064> {[4, '(A6-0x6)']}
<POP 2414c-24156 Naked> Σ0 Δ-4 →0x24064 ←0x23ff4
<MI 2414c MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x2414e 0x22b90> {[4, '(A6-0x6)']}
<MI 24152 BRA 0x24064> {[4, '(A6-0x6)']}
<POP 24156-24160 Naked> Σ0 Δ-4 →0x24064 ←0x23ff4
<MI 24156 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x24158 0x22bda> {[4, '(A6-0x6)']}
<MI 2415c BRA 0x24064> {[4, '(A6-0x6)']}
<POP 24160-2416a Naked> Σ0 Δ-4 →0x24064 ←0x23ff4
<MI 24160 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x24162 0x22c24> {[4, '(A6-0x6)']}
<MI 24166 BRA 0x24064> {[4, '(A6-0x6)']}
<POP 2416a-24174 Naked> Σ0 Δ-4 →0x24064 ←0x23ff4
<MI 2416a MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x2416c 0x22c6e> {[4, '(A6-0x6)']}
<MI 24170 BRA 0x24064> {[4, '(A6-0x6)']}
<POP 24174-2417e Naked> Σ0 Δ-4 →0x24064 ←0x23ff4
<MI 24174 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x24176 0x22cb2> {[4, '(A6-0x6)']}
<MI 2417a BRA 0x24064> {[4, '(A6-0x6)']}
<POP 2417e-24188 Naked> Σ0 Δ-4 →0x24064 ←0x23ff4
<MI 2417e MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x24180 0x22cf8> {[4, '(A6-0x6)']}
<MI 24184 BRA 0x24064> {[4, '(A6-0x6)']}
<POP 24188-24192 Naked> Σ0 Δ-4 →0x24064 ←0x23ff4
<MI 24188 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x2418a 0x22d2e> {[4, '(A6-0x6)']}
<MI 2418e BRA 0x24064> {[4, '(A6-0x6)']}
<POP 24192-2419c Naked> Σ0 Δ-4 →0x24064 ←0x23ff4
<MI 24192 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x24194 0x22dbe> {[4, '(A6-0x6)']}
<MI 24198 BRA 0x24064> {[4, '(A6-0x6)']}
<POP 2419c-241a6 Naked> Σ0 Δ-4 →0x24064 ←0x23ff4
<MI 2419c MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x2419e 0x22e30> {[4, '(A6-0x6)']}
<MI 241a2 BRA 0x24064> {[4, '(A6-0x6)']}
<POP 241a6-241b0 Naked> Σ0 Δ-4 →0x24064 ←0x23ff4
<MI 241a6 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x241a8 0x22196> {[4, '(A6-0x6)']}
<MI 241ac BRA 0x24064> {[4, '(A6-0x6)']}
<POP 241b0-241ba Naked> Σ0 Δ-4 →0x24064 ←0x23ff4
<MI 241b0 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x241b2 0x22200> {[4, '(A6-0x6)']}
<MI 241b6 BRA 0x24064> {[4, '(A6-0x6)']}
<POP 241ba-241c0 Naked> Σ0 →0x241fc ←0x23ff4
<Call 0x241ba 0x221d2> {}
<MI 241be BRA 0x241fc> {}
<POP 241c0-241ca Naked> Σ0 Δ-4 →0x24064 ←0x23ff4
<MI 241c0 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x241c2 0x22ea2> {[4, '(A6-0x6)']}
<MI 241c6 BRA 0x24064> {[4, '(A6-0x6)']}
<POP 241ca-241d4 Naked> Σ0 Δ-4 →0x24064 ←0x23ff4
<MI 241ca MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x241cc 0x22f24> {[4, '(A6-0x6)']}
<MI 241d0 BRA 0x24064> {[4, '(A6-0x6)']}
<POP 241d4-241de Naked> Σ0 Δ-4 →0x24064 ←0x23ff4
<MI 241d4 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x241d6 0x22fa4> {[4, '(A6-0x6)']}
<MI 241da BRA 0x24064> {[4, '(A6-0x6)']}
<POP 241de-241e4 Naked> Σ0 →0x241fc ←0x23ff4
<Call 0x241de 0x23068> {}
<MI 241e2 BRA 0x241fc> {}
<POP 241e4-241ee Naked> Σ0 Δ-4 →0x24064 ←0x23ff4
<MI 241e4 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x241e6 0x23088> {[4, '(A6-0x6)']}
<MI 241ea BRA 0x24064> {[4, '(A6-0x6)']}
<POP 241ee-241fc Naked> Σ0 ←0x23ff4
<POP 241ee-241fc Bailout> {}
<MI 241ee MOVEA.L (A5+0x8),A7>
<MI 241f2 MOVEA.W #0x0,A6>
<MI 241f6 JMP 0x24406>
<POP 241fc-24204 Naked> Σ0 ↓ ←0x23f84 ←0x24064 ←0x2406a ←0x24092 ←0x241ba ←0x241de
<MI 241fc MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x241fe 0x20ae8> {[4, '(A6-0x6)']}
<POP 24202-24204 StackAdj> Δ+4 {}
<POP 24204-2421a Naked> Σ0 ↓ →0x23f34 ←0x23f34
<MI 24204 MOVE.L D6,-(A7)> Δ-4 {[4, 'D6']}
<MI 24206 MOVE.L D6,-(A7)> Δ-4 {[4, 'D6']|[4, 'D6']}
<MI 24208 SUB.L D7,(A7)> {[4, 'D6']|[-4-]}
<Call 0x2420a 0x2107e> {[4, 'D6']|[-4-]}
<POP 2420e-24210 StackAdj> Δ+8 {}
<MI 24210 MOVE.L D7,0x26634> {}
<MI 24212 TST.B (A6-0xc)> {}
<MI 24216 BEQ 0x23f34> {}
<POP 2421a-24222 Epilogue> Σ0
@ 24222
START
<POP 24222--0001 Body>
<POP 24222-2422c Prologue> Σ0
<POP 2422c-2425c Naked> Σ0 ↓ →0x242c4
<MI 2422c MOVE.L #0x1,0x2665e> {}
<POP 24236-24238 StackAdj> Δ-4 {[-4-]}
<Call 0x24238 0x103c4> {[-4-]}
GetArgv() : String
<MI 2423e MOVE.L (A7)+,0x26662> Δ+4 {}
<Const 0x24244 0x2663c.4> Δ-4 {[##157244]}
<Call 0x2424a 0x20438> {[##157244]}
<POP 24250-24252 StackAdj> Δ+4 {}
<MI 24252 MOVEA.L 0x26662,A0> {}
<MI 24258 TST.W (A0)> {}
<MI 2425a BLE 0x242c4> {}
<POP 2425c-242c4 Naked> Σ0 →0x242fe
<Blob 0x2425c [8] @> Δ-8 {[«8""»]}
<Blob 0x2426c [8] @> Δ-8 {[«8""»]|[«8""»]}
<POP 2427c-2427e StackAdj> Δ-8 {[«8""»]|[«8""»]|[-8-]}
<Lit 0x2427e 7> {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]}
<POP 24290-24292 StackAdj> Δ-4 {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]|[-4-]}
<POP 24292-24293 StackAdj> Δ+4 {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]}
<Blob 0x24293 [4] 0x26662> Δ-4 {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]|[«4»]}
<POP 24298-2429a StackAdj> Δ-4 {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]|[«4»]|[-4-]}
<Lit 0x2429a 7> {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]|[«4»]|[$$][BYE];]}
<Call 0x242ae 0x102d4> {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]|[«4»]|[$$][BYE];]}
StringCat3(a, b, c : String) : String
<POP 242b4-242b8 StackAdj> Δ+12 {[«8""»]|[«8""»]|[-4-]}
<MI 242b8 MOVE.L (A7)+,0x26662> Δ+4 {[«8""»]|[«8""»]}
<POP 242be-242c2 StackAdj> Δ+16 {}
<MI 242c2 BRA 0x242fe> {}
<POP 242c4-242fe Naked> Σ0 ↓ ←0x2422c
<Const 0x242c4 0x26662.4> Δ-4 {[##157282]}
<Call 0x242ca 0x102bc> {[##157282]}
FreeString(VAR a : String)
<POP 242d0-242d1 StackAdj> Δ+4 ↓ {}
<Blob 0x242d1 [8] @> Δ-8 {[«8""»]}
<POP 242e0-242e2 StackAdj> Δ-4 {[«8""»]|[-4-]}
<Lit 0x242e2 7> {[«8""»]|[$$[INIT];]}
<MI 242f6 MOVE.L (A7)+,0x26662> Δ+4 {[«8""»]}
<POP 242fc-242fe StackAdj> Δ+8 {}
<POP 242fe-24306 Naked> Σ0 ↓ ←0x2425c
<MI 242fe MOVE.B #0x01,0x2666c> {}
<POP 24306-2430e Naked> Σ0 ↓ →0x24318 ←0x24414
<MI 24306 TST.B 0x2666c> {}
<MI 2430c BEQ 0x24318> {}
<POP 2430e-24318 Naked> Σ0 →0x243c6
<MI 2430e CLR.B 0x2666c> {}
<MI 24314 BRA 0x243c6> {}
<POP 24318-243c6 Naked> Σ0 ↓ ←0x24306
<Blob 0x24318 [10] 0x26646> Δ-10 {[«10»]}
<Blob 0x24326 [2] @> Δ-2 {[«10»]|[«2""»]}
<POP 2432a-2432e StackAdj> Δ-12 {[«10»]|[«2""»]|[-12-]}
<Lit 0x2432e> {[«10»]|[«2""»]|[-8-]|[$$…]}
<Pointer.sp 0x2432e 14> Δ-4
<Const 0x24332 0x1.2> Δ-2
<Const 0x24336 0xa.2> Δ-2
<Call 0x2433a 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 24340-24342 StackAdj> Δ+8
<POP 24340-24342 StackAdj> Δ-4 {[«10»]|[«2""»]|[-8-]|[$$…]|[-4-]}
<Lit 0x24342 2> {[«10»]|[«2""»]|[-8-]|[$$…]|[$$>_]}
<Call 0x24356 0x102d0> {[«10»]|[«2""»]|[-8-]|[$$…]|[$$>_]}
StringCat2(a, b : String) : String
<POP 2435c-2435e StackAdj> Δ+8 {[«10»]|[«2""»]|[-8-]}
<Call 0x2435e 0x103e4> {[«10»]|[«2""»]|[-8-]}
AskConsoleString(prompt : String) : String
<POP 24364-24366 StackAdj> Δ+4 {[«10»]|[«2""»]|[-4-]}
<MI 24366 MOVE.L (A7)+,0x26668> Δ+4 {[«10»]|[«2""»]}
<POP 2436c-2436e StackAdj> Δ+8 {[-4-]}
<POP 2436e-2436f StackAdj> Δ+4 {}
<Blob 0x2436f [4] 0x26668> Δ-4 {[«4»]}
<Call 0x24374 0x20d82> {[«4»]}
<POP 24378-2437a StackAdj> Δ+2 {[-2-]}
<POP 2437a-2437b StackAdj> Δ+2 {}
<Blob 0x2437b [2] @> Δ-2 {[«2""»]}
<Blob 0x2437e [2] @> Δ-2 {[«2""»]|[«2""»]}
<POP 24382-24384 StackAdj> Δ-8 {[«2""»]|[«2""»]|[-8-]}
<Lit 0x24384 2> {[«2""»]|[«2""»]|[-4-]|[$$[ ]}
<POP 24396-24398 StackAdj> Δ-4 {[«2""»]|[«2""»]|[-4-]|[$$[ ]|[-4-]}
<POP 24398-24399 StackAdj> Δ+4 {[«2""»]|[«2""»]|[-4-]|[$$[ ]}
<Blob 0x24399 [4] 0x26668> Δ-4 {[«2""»]|[«2""»]|[-4-]|[$$[ ]|[«4»]}
<POP 2439e-243a0 StackAdj> Δ-4 {[«2""»]|[«2""»]|[-4-]|[$$[ ]|[«4»]|[-4-]}
<Lit 0x243a0 2> {[«2""»]|[«2""»]|[-4-]|[$$[ ]|[«4»]|[$$];]}
<Call 0x243b4 0x102d4> {[«2""»]|[«2""»]|[-4-]|[$$[ ]|[«4»]|[$$];]}
StringCat3(a, b, c : String) : String
<POP 243ba-243be StackAdj> Δ+12 {[«2""»]|[«2""»]|[-4-]}
<MI 243be MOVE.L (A7)+,0x26662> Δ+4 {[«2""»]|[«2""»]}
<POP 243c4-243c6 StackAdj> Δ+4 {}
<POP 243c6-243f2 Naked> Σ0 ↓ ←0x2430e
<MI 243c6 CLR.B 0x26666> {}
<MI 243cc MOVE.L #0x1,0x26634> {}
<MI 243d6 CLR.L 0x26638> {}
<POP 243dc-243de StackAdj> Δ-4 {[-4-]}
<Blob 0x243de [4] 0x26662> Δ-4 {[-4-]|[«4»]}
<Call 0x243e4 0x102cc> {[-4-]|[«4»]}
StringDup(a : String) : String
<POP 243ea-243ec StackAdj> Δ+4 {[-4-]}
<Call 0x243ec 0x218f4> {[-4-]}
<POP 243f0-243f2 StackAdj> Δ+4 {}
<POP 243f2-24400 Naked> Σ0 ↓ →0x24406 ←0x24400
<MI 243f2 MOVE.L 0x26634,D0> {}
<MI 243f8 CMP.L 0x26638,D0> {}
<MI 243fe BGT 0x24406> {}
<POP 24400-24406 Naked> Σ0 →0x243f2
<Call 0x24400 0x23f10> {}
<MI 24404 BRA 0x243f2> {}
<POP 24406-24414 Naked> Σ0 ↓ ←0x243f2
<Const 0x24406 0x26662.4> Δ-4 {[##157282]}
<Call 0x2440c 0x102bc> {[##157282]}
FreeString(VAR a : String)
<POP 24412-24414 StackAdj> Δ+4 {}
<POP 24414-24418 Naked> Σ0 →0x24306
<MI 24414 BRA 0x24306> {}
@ 2442c
PROG_FAIL
<LVAR 0x008 1(r)>
<POP 2442c-24494 Body>
<POP 2442c-24442 Prologue> Σ0 ↓
<POP 24442-2448c Naked> Σ0 ↓
<Blob 0x24442 [14] @> Δ-14 {[«14""»]}
<Const 0x2444e 0x3.2> Δ-2 {[«14""»]|[#3]}
<POP 24452-24454 StackAdj> Δ-8 {[«14""»]|[#3]|[-8-]}
<Lit 0x24454 14> {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
<POP 24466-24468 StackAdj> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 24468 MOVE.B (A6+0x8),D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 2446c EXTB.W D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 2446e EXTW.L D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 24470 MOVE.L D0,-(A7)> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
<Call 0x24472 0x102e4> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 24478-2447a StackAdj> Δ+4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<Call 0x2447a 0x102d0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 24480-24482 StackAdj> Δ+8 {[«14""»]|[#3]|[-4-]}
<Call 0x24482 0x103b8> {[«14""»]|[#3]|[-4-]}
PopProgram(status : Byte; msg : String)
<POP 24488-2448c StackAdj> Δ+20 {}
<POP 2448c-24494 Epilogue> Σ0
@ 244e8
EXP_FAIL
<LVAR 0x00e 1(r)>
<LVAR 0x00a 4(r)>
<LVAR 0x008 1(r)>
<POP 244e8-24624 Body>
<POP 244e8-244fe Prologue> Σ0 ↓
<POP 244fe-24514 RegCacheLoad> Σ0 ↓
<POP 24514-24574 Naked> Σ0 ↓ →0x245bc
<Call 0x24514 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x2451a [18] @> Δ-18 {[«18""»]}
<POP 24526-24528 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x24528 18> {[«18""»]|[$$Experiment error :]}
<Call 0x24534 0x103e0> {[«18""»]|[$$Experiment error :]}
WriteConsoleStringCrLf(str : String)
<POP 24536-24537 StackAdj> Δ+22 ↓ {}
<Blob 0x24537 [14] @> Δ-14 {[«14""»]}
<POP 24546-24548 StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x24548 13> {[«14""»]|[-4-]|[$$Board :_]}
<POP 24552-24554 StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<MI 24554 MOVE.B (A6+0xe),(A7)> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<Call 0x24558 0x1049c> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
BoardName(address : B) : String
<POP 2455e-24560 StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
<Call 0x24560 0x102d0> {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 24566-24568 StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x24568 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 2456a-2456c StackAdj> Δ+18 {}
<MI 2456c MOVEA.L (A6+0xa),A0> {}
<MI 24570 CMPA.W #0x01,A0> {}
<MI 24572 BEQ 0x245bc> {}
<POP 24574-245bc Naked> Σ0 ↓
<Blob 0x24574 [14] @> Δ-14 {[«14""»]}
<Blob 0x24584 [30] (A0+0xfc)> Δ-30 {[«14""»]|[«30»]}
<POP 24594-24596 StackAdj> Δ-8 {[«14""»]|[«30»]|[-8-]}
<Lit 0x24596 13> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
<POP 245a0-245a2 StackAdj> Δ-4 {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
<Lit 0x245a2> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
<Pointer.sp 0x245a2 12> Δ-4
<Const 0x245a6 0x1.2> Δ-2
<Const 0x245a8 0x1e.2> Δ-2
<Call 0x245aa 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 245ac-245ae StackAdj> Δ+8
<Call 0x245ae 0x102d0> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
StringCat2(a, b : String) : String
<POP 245b4-245b6 StackAdj> Δ+8 {[«14""»]|[«30»]|[-4-]}
<Call 0x245b6 0x103e0> {[«14""»]|[«30»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 245b8-245bc StackAdj> Δ+48 {}
<POP 245bc-2461c Naked> Σ0 ↓ ←0x24514
<Blob 0x245bc [14] @> Δ-14 {[«14""»]}
<POP 245cc-245ce StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x245ce 13> {[«14""»]|[-4-]|[$$Status :_]}
<POP 245d8-245da StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<MI 245da MOVE.B (A6+0x8),(A7)> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<Call 0x245de 0x104a2> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
ExpStatus2Text(status.B, &String)
<POP 245e4-245e6 StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
<Call 0x245e6 0x102d0> {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 245ec-245ee StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x245ee 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 245f0-245f1 StackAdj> Δ+18 ↓ {}
<Blob 0x245f1 [24] @> Δ-24 {[«24""»]}
<Const 0x24600 0x2.2> Δ-2 {[«24""»]|[#2]}
<POP 24604-24606 StackAdj> Δ-4 {[«24""»]|[#2]|[-4-]}
<Lit 0x24606 23> {[«24""»]|[#2]|[$$Fatal experiment error.]}
<Call 0x24614 0x103b8> {[«24""»]|[#2]|[$$Fatal experiment error.]}
PopProgram(status : Byte; msg : String)
<POP 2461a-2461c StackAdj> Δ+30 {}
<POP 2461c-24624 Epilogue> Σ0
00020000 ; -------------------------------------------------------------------------------------- 00020000 ; R1000.Disassembly modules: 00020000 ; import all 00020000 ; import kind.program 00020000 ; no ident.09b193071b6e33e4 00020000 ; -------------------------------------------------------------------------------------- 00020000 stack.top: 00020000 00 04 00 00 | | .CODE 0x40000 ; STACK.END 00020004 00 02 42 22 | B" | .CODE START 00020008 00 01 02 88 | | .CODE FSCALL_10288 0002000c heap.top: 0002000c 00 02 66 80 | f | .PTR 0x26680 00020010 code.end: 00020010 00 02 46 24 | F$ | .PTR 0x24624 00020014 00 00 00 00 | | .CONST 0x00000000 00020018 programfailurehandler: 00020018 00 02 44 2c | D, | .CODE PROG_FAIL 0002001c experimentfailurehandler: 0002001c 00 02 44 e8 | 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 40 28 23 29 53 43 |@(#)SC | .XXX[0x6] 00020110 41 4e 2c 31 2e 31 2c 39 |AN,1.1,9| .XXX[0x18] 00020118 32 2f 30 37 2f 30 39 2c |2/07/09,| 00020120 31 32 3a 30 30 3a 30 30 |12:00:00| 00020128 5c 20 |\ | .XXX[0x2] 0002012a 20 20 20 5f | _ | .TXT ' _' 0002012e 4b 45 |KE | .TXT 'KE' 00020130 59 20 |Y | .XXX[0x2] 00020132 4e 6f 20 2f 4b 45 59 20 |No /KEY | .TXT 'No /KEY switch' 00020140 54 6f 74 61 6c 20 6f 66 |Total of| .TXT 'Total of_ ' 0002014a 20 6f 63 63 75 72 72 65 | occurre| .TXT ' occurrences found. ' 0002015e 46 49 4e 44 |FIND | .TXT 'FIND' 00020162 53 43 41 4e 20 20 |SCAN | .XXX[0x6] 00020168 20 20 20 20 | | .XXX[0x4] 0002016c ; -------------------------------------------------------------------------------------- 0002016c ; OMSI PASCAL Function 0002016c ; <LVAR 0x010 4(w)> 0002016c ; <LVAR 0x00c 4(r)> 0002016c ; <LVAR 0x008 4(r)> 0002016c ; <LVAR -0x008 @ 1(r)> 0002016c ; <LVAR -0x00c @ 4(rw)> 0002016c ; <LVAR -0x010 @ 4(r)> 0002016c ; -------------------------------------------------------------------------------------- 0002016c 4e 56 ff a2 |NV | LINK.W A6,#0xffa2 00020170 bf d5 | | CMPA.L (A5),A7 00020172 62 06 |b | BHI 0x2017a 00020174 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020178 4e 76 |Nv | TRAPV 0002017a de fc 00 4e | N | ADDA.W #0x4e,A7 0002017e 48 e7 e1 f0 |H | MOVEM.L A3+A2+A1+A0+D7+D2+D1+D0,-(A7) 00020182 45 ee ff f4 |E | LEA.L (A6-0xc),A2 00020186 47 ee ff f0 |G | LEA.L (A6-0x10),A3 0002018a 72 01 |r | MOVEQ.L #0x01,D1 0002018c 74 1e |t | MOVEQ.L #0x1e,D2 0002018e 7e 00 |~ | MOVEQ.L #0x00,D7 00020190 48 52 |HR | PEA.L (A2) 00020192 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00020198 54 4f |TO | ADDQ.L #0x2,A7 0002019a 1e 81 | | MOVE.B D1,(A7) 0002019c 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 000201a0 2f 10 |/ | MOVE.L (A0),-(A7) 000201a2 48 53 |HS | PEA.L (A3) 000201a4 4e b9 00 01 04 58 |N X | JSR DirFirst(MOD c : Bool; a : String; VAR b : File) 000201aa de fc 00 0a | | ADDA.W #0xa,A7 000201ae 20 53 | S | MOVEA.L (A3),A0 000201b0 b0 c1 | | CMPA.W D1,A0 000201b2 67 00 00 a8 |g | BEQ 0x2025c 000201b6 2f 13 |/ | MOVE.L (A3),-(A7) 000201b8 48 52 |HR | PEA.L (A2) 000201ba 48 6e ff f8 |Hn | PEA.L (A6-0x8) 000201be 4e b9 00 01 04 3c |N < | JSR FileReadLine(file : File; VAR a : String; VAR b : Byte) 000201c4 58 4f |XO | ADDQ.L #0x4,A7 000201c6 2e 92 |. | MOVE.L (A2),(A7) 000201c8 4e b9 00 01 02 f0 |N | JSR ToUpper(a : String) : String 000201ce 58 4f |XO | ADDQ.L #0x4,A7 000201d0 24 97 |$ | MOVE.L (A7),(A2) 000201d2 2f 12 |/ | MOVE.L (A2),-(A7) 000201d4 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000201d8 4e b9 00 01 03 00 |N | JSR FSCALL_10300 000201de 50 4f |PO | ADDQ.L #0x8,A7 000201e0 4a 9f |J | TST.L (A7)+ 000201e2 67 60 |g` | BEQ 0x20244 000201e4 4a 87 |J | TST.L D7 000201e6 66 2a |f* | BNE 0x20212 000201e8 20 53 | S | MOVEA.L (A3),A0 000201ea 9e c2 | | SUBA.W D2,A7 000201ec 22 4f |"O | MOVEA.L A7,A1 000201ee 70 1d |p | MOVEQ.L #0x1d,D0 000201f0 12 d8 | | MOVE.B (A0)+,(A1)+ 000201f2 51 c8 ff fc |Q | DBF D0,0x201f0 000201f6 59 4f |YO | SUBQ.L #0x4,A7 000201f8 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000201fc 3f 01 |? | MOVE.W D1,-(A7) 000201fe 3f 02 |? | MOVE.W D2,-(A7) 00020200 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020206 50 4f |PO | ADDQ.L #0x8,A7 00020208 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002020e de fc 00 22 | " | ADDA.W #0x22,A7 00020212 2f 3a ff 16 |/: | MOVE.L 0x2012a,-(A7) 00020216 51 4f |QO | SUBQ.L #0x8,A7 00020218 48 6f 00 08 |Ho | PEA.L (A7+0x8) 0002021c 3f 01 |? | MOVE.W D1,-(A7) 0002021e 3f 3c 00 04 |?< | MOVE.W #0x4,-(A7) 00020222 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020228 2e 92 |. | MOVE.L (A2),(A7) 0002022a 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 00020230 58 4f |XO | ADDQ.L #0x4,A7 00020232 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020238 50 4f |PO | ADDQ.L #0x8,A7 0002023a 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00020240 50 4f |PO | ADDQ.L #0x8,A7 00020242 52 87 |R | ADDQ.L #0x1,D7 00020244 4a 2e ff f8 |J. | TST.B (A6-0x8) 00020248 67 00 ff 6c |g l | BEQ 0x201b6 0002024c 42 27 |B' | CLR.B -(A7) 0002024e 48 53 |HS | PEA.L (A3) 00020250 4e b9 00 01 04 5c |N \ | JSR DirNext(MOD a : Bool; VAR b : File) 00020256 5c 4f |\O | ADDQ.L #0x6,A7 00020258 60 00 ff 54 |` T | BRA 0x201ae 0002025c 48 52 |HR | PEA.L (A2) 0002025e 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00020264 58 4f |XO | ADDQ.L #0x4,A7 00020266 2d 47 00 10 |-G | MOVE.L D7,(A6+0x10) 0002026a 4c df 0f 87 |L | MOVEM.L (A7)+,D0+D1+D2+D7+A0+A1+A2+A3 0002026e 4e 5e |N^ | UNLK A6 00020270 4e 75 |Nu | RTS 00020272 ; -------------------------------------------------------------------------------------- 00020272 ; OMSI PASCAL Function 00020272 ; <LVAR 0x008 4(r)> 00020272 ; <LVAR -0x00c @> 00020272 ; <LVAR -0x010 @ 4(w)> 00020272 ; <LVAR -0x014 @ 4(rw)> 00020272 ; <LVAR -0x018 @ 4(rw)> 00020272 ; -------------------------------------------------------------------------------------- 00020272 4e 56 ff 82 |NV | LINK.W A6,#0xff82 00020276 bf d5 | | CMPA.L (A5),A7 00020278 62 06 |b | BHI 0x20280 0002027a 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002027e 4e 76 |Nv | TRAPV 00020280 de fc 00 66 | f | ADDA.W #0x66,A7 00020284 48 e7 f3 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D3+D2+D1+D0,-(A7) 00020288 45 ee ff ec |E | LEA.L (A6-0x14),A2 0002028c 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 00020292 49 ee ff e8 |I | LEA.L (A6-0x18),A4 00020296 72 01 |r | MOVEQ.L #0x01,D1 00020298 74 14 |t | MOVEQ.L #0x14,D2 0002029a 76 0e |v | MOVEQ.L #0x0e,D3 0002029c 59 4f |YO | SUBQ.L #0x4,A7 0002029e 1e ba fe 8e | | MOVE.B 0x2012e,(A7) 000202a2 1f 7a fe 8b 00 01 | z | MOVE.B 0x2012f,(A7+0x1) 000202a8 1f 7a fe 86 00 02 | z | MOVE.B 0x20130,(A7+0x2) 000202ae 59 4f |YO | SUBQ.L #0x4,A7 000202b0 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000202b4 3f 01 |? | MOVE.W D1,-(A7) 000202b6 3f 3c 00 03 |?< | MOVE.W #0x3,-(A7) 000202ba 4e 93 |N | JSR (A3) 000202bc 50 4f |PO | ADDQ.L #0x8,A7 000202be 28 9f |( | MOVE.L (A7)+,(A4) 000202c0 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7) 000202c4 48 78 00 00 |Hx | PEA.L 0x0 000202c8 2f 14 |/ | MOVE.L (A4),-(A7) 000202ca 48 52 |HR | PEA.L (A2) 000202cc 48 6e ff f4 |Hn | PEA.L (A6-0xc) 000202d0 4e b9 00 02 3d 8a |N = | JSR 0x23d8a 000202d6 de c2 | | ADDA.W D2,A7 000202d8 48 54 |HT | PEA.L (A4) 000202da 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000202e0 58 4f |XO | ADDQ.L #0x4,A7 000202e2 20 52 | R | MOVEA.L (A2),A0 000202e4 b0 c1 | | CMPA.W D1,A0 000202e6 66 24 |f$ | BNE 0x2030c 000202e8 43 fa fe 56 |C V | LEA.L 0x20140,A1 000202ec 70 06 |p | MOVEQ.L #0x06,D0 000202ee 3f 21 |?! | MOVE.W -(A1),-(A7) 000202f0 51 c8 ff fc |Q | DBF D0,0x202ee 000202f4 1f 03 | | MOVE.B D3,-(A7) 000202f6 59 4f |YO | SUBQ.L #0x4,A7 000202f8 48 6f 00 06 |Ho | PEA.L (A7+0x6) 000202fc 3f 01 |? | MOVE.W D1,-(A7) 000202fe 3f 03 |? | MOVE.W D3,-(A7) 00020300 4e 93 |N | JSR (A3) 00020302 50 4f |PO | ADDQ.L #0x8,A7 00020304 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 0002030a de c2 | | ADDA.W D2,A7 0002030c 59 4f |YO | SUBQ.L #0x4,A7 0002030e 2f 08 |/ | MOVE.L A0,-(A7) 00020310 4e b9 00 01 02 f0 |N | JSR ToUpper(a : String) : String 00020316 58 4f |XO | ADDQ.L #0x4,A7 00020318 24 9f |$ | MOVE.L (A7)+,(A2) 0002031a 7e 00 |~ | MOVEQ.L #0x00,D7 0002031c 59 4f |YO | SUBQ.L #0x4,A7 0002031e 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00020322 4e b9 00 02 0f 36 |N 6 | JSR 0x20f36 00020328 58 4f |XO | ADDQ.L #0x4,A7 0002032a 7c 01 || | MOVEQ.L #0x01,D6 0002032c bc 97 | | CMP.L (A7),D6 0002032e 6e 26 |n& | BGT 0x20356 00020330 59 4f |YO | SUBQ.L #0x4,A7 00020332 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00020336 2f 06 |/ | MOVE.L D6,-(A7) 00020338 4e b9 00 02 18 52 |N R | JSR 0x21852 0002033e 50 4f |PO | ADDQ.L #0x8,A7 00020340 2d 57 ff f0 |-W | MOVE.L (A7),(A6-0x10) 00020344 48 6e ff f0 |Hn | PEA.L (A6-0x10) 00020348 2f 12 |/ | MOVE.L (A2),-(A7) 0002034a 4e ba fe 20 |N | JSR 0x2016c 0002034e 50 4f |PO | ADDQ.L #0x8,A7 00020350 de 9f | | ADD.L (A7)+,D7 00020352 52 86 |R | ADDQ.L #0x1,D6 00020354 68 d6 |h | BVC 0x2032c 00020356 58 4f |XO | ADDQ.L #0x4,A7 00020358 be 81 | | CMP.L D1,D7 0002035a 6f 5a |oZ | BLE 0x203b6 0002035c 9e fc 00 0a | | SUBA.W #0xa,A7 00020360 20 4f | O | MOVEA.L A7,A0 00020362 43 fa fd dc |C | LEA.L 0x20140,A1 00020366 70 08 |p | MOVEQ.L #0x08,D0 00020368 10 d9 | | MOVE.B (A1)+,(A0)+ 0002036a 51 c8 ff fc |Q | DBF D0,0x20368 0002036e 9e c2 | | SUBA.W D2,A7 00020370 20 4f | O | MOVEA.L A7,A0 00020372 43 fa fd d6 |C | LEA.L 0x2014a,A1 00020376 70 12 |p | MOVEQ.L #0x12,D0 00020378 10 d9 | | MOVE.B (A1)+,(A0)+ 0002037a 51 c8 ff fc |Q | DBF D0,0x20378 0002037e 51 4f |QO | SUBQ.L #0x8,A7 00020380 48 6f 00 1c |Ho | PEA.L (A7+0x1c) 00020384 3f 01 |? | MOVE.W D1,-(A7) 00020386 3f 3c 00 09 |?< | MOVE.W #0x9,-(A7) 0002038a 4e 93 |N | JSR (A3) 0002038c 2e 87 |. | MOVE.L D7,(A7) 0002038e 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00020394 48 6f 00 10 |Ho | PEA.L (A7+0x10) 00020398 3f 01 |? | MOVE.W D1,-(A7) 0002039a 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7) 0002039e 4e 93 |N | JSR (A3) 000203a0 50 4f |PO | ADDQ.L #0x8,A7 000203a2 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 000203a8 de fc 00 0c | | ADDA.W #0xc,A7 000203ac 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000203b2 de fc 00 22 | " | ADDA.W #0x22,A7 000203b6 48 52 |HR | PEA.L (A2) 000203b8 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000203be 58 4f |XO | ADDQ.L #0x4,A7 000203c0 4c df 1f cf |L | MOVEM.L (A7)+,D0+D1+D2+D3+D6+D7+A0+A1+A2+A3+A4 000203c4 4e 5e |N^ | UNLK A6 000203c6 4e 75 |Nu | RTS 000203c8 ; -------------------------------------------------------------------------------------- 000203c8 ; OMSI PASCAL Function 000203c8 ; <LVAR 0x010 4(r)> 000203c8 ; <LVAR 0x00c 4(r)> 000203c8 ; <LVAR 0x008 4(r)> 000203c8 ; <LVAR -0x004 @ 4(rw)> 000203c8 ; -------------------------------------------------------------------------------------- 000203c8 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 000203cc bf d5 | | CMPA.L (A5),A7 000203ce 62 06 |b | BHI 0x203d6 000203d0 44 fc 00 02 |D | MOVE.W #0x2,CCR 000203d4 4e 76 |Nv | TRAPV 000203d6 de fc 00 24 | $ | ADDA.W #0x24,A7 000203da 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7) 000203de 43 ee ff fc |C | LEA.L (A6-0x4),A1 000203e2 70 01 |p | MOVEQ.L #0x01,D0 000203e4 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 000203e8 10 80 | | MOVE.B D0,(A0) 000203ea 2f 3a fd 72 |/: r | MOVE.L 0x2015e,-(A7) 000203ee 59 4f |YO | SUBQ.L #0x4,A7 000203f0 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000203f4 3f 00 |? | MOVE.W D0,-(A7) 000203f6 3f 3c 00 04 |?< | MOVE.W #0x4,-(A7) 000203fa 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020400 50 4f |PO | ADDQ.L #0x8,A7 00020402 22 9f |" | MOVE.L (A7)+,(A1) 00020404 54 4f |TO | ADDQ.L #0x2,A7 00020406 2f 2e 00 10 |/. | MOVE.L (A6+0x10),-(A7) 0002040a 2f 11 |/ | MOVE.L (A1),-(A7) 0002040c 4e b9 00 01 02 c8 |N | JSR StringEqual(a, b : String) : Byte 00020412 50 4f |PO | ADDQ.L #0x8,A7 00020414 4a 1f |J | TST.B (A7)+ 00020416 67 0c |g | BEQ 0x20424 00020418 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 0002041c 4e ba fe 54 |N T | JSR 0x20272 00020420 58 4f |XO | ADDQ.L #0x4,A7 00020422 60 02 |` | BRA 0x20426 00020424 42 10 |B | CLR.B (A0) 00020426 48 51 |HQ | PEA.L (A1) 00020428 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 0002042e 58 4f |XO | ADDQ.L #0x4,A7 00020430 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1 00020434 4e 5e |N^ | UNLK A6 00020436 4e 75 |Nu | RTS 00020438 ; -------------------------------------------------------------------------------------- 00020438 ; OMSI PASCAL Function 00020438 ; <LVAR 0x008 4(r)> 00020438 ; -------------------------------------------------------------------------------------- 00020438 4e 56 ff f0 |NV | LINK.W A6,#0xfff0 0002043c bf d5 | | CMPA.L (A5),A7 0002043e 62 06 |b | BHI 0x20446 00020440 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020444 4e 76 |Nv | TRAPV 00020446 de fc 00 10 | | ADDA.W #0x10,A7 0002044a 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7) 0002044e 4e b9 00 01 03 98 |N | JSR FSCALL_10398 00020454 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00020458 43 fa fd 08 |C | LEA.L 0x20162,A1 0002045c 70 09 |p | MOVEQ.L #0x09,D0 0002045e 10 d9 | | MOVE.B (A1)+,(A0)+ 00020460 51 c8 ff fc |Q | DBF D0,0x2045e 00020464 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1 00020468 4e 5e |N^ | UNLK A6 0002046a 4e 75 |Nu | RTS 0002046c ; -------------------------------------------------------------------------------------- 0002046c ; COMMAND TABLE 0002046c ; -------------------------------------------------------------------------------------- 0002046c COMMAND_TABLE_2046c: 0002046c 21 40 23 24 25 5e 26 2a |!@#$%^&*| .TXT '!@#$%^&*()' 00020476 57 52 49 54 45 20 20 20 |WRITE | .TXT 'WRITE ' 00020480 42 59 45 20 20 20 20 20 |BYE | .TXT 'BYE ' 0002048a 48 45 41 50 20 20 20 20 |HEAP | .TXT 'HEAP ' 00020494 48 45 4c 50 20 20 20 20 |HELP | .TXT 'HELP ' 0002049e 41 42 4f 52 54 20 20 20 |ABORT | .TXT 'ABORT ' 000204a8 43 4f 4d 4d 45 4e 54 20 |COMMENT | .TXT 'COMMENT ' 000204b2 53 45 54 20 20 20 20 20 |SET | .TXT 'SET ' 000204bc 56 41 52 20 20 20 20 20 |VAR | .TXT 'VAR ' 000204c6 56 41 52 53 20 20 20 20 |VARS | .TXT 'VARS ' 000204d0 45 51 20 20 20 20 20 20 |EQ | .TXT 'EQ ' 000204da 4e 45 20 20 20 20 20 20 |NE | .TXT 'NE ' 000204e4 43 41 53 45 20 20 20 20 |CASE | .TXT 'CASE ' 000204ee 49 4e 53 45 52 54 20 20 |INSERT | .TXT 'INSERT ' 000204f8 45 58 54 52 41 43 54 20 |EXTRACT | .TXT 'EXTRACT ' 00020502 23 43 41 53 45 20 20 20 |#CASE | .TXT '#CASE ' 0002050c 23 45 51 20 20 20 20 20 |#EQ | .TXT '#EQ ' 00020516 23 4e 45 20 20 20 20 20 |#NE | .TXT '#NE ' 00020520 23 4c 54 20 20 20 20 20 |#LT | .TXT '#LT ' 0002052a 23 47 54 20 20 20 20 20 |#GT | .TXT '#GT ' 00020534 23 4c 45 20 20 20 20 20 |#LE | .TXT '#LE ' 0002053e 23 47 45 20 20 20 20 20 |#GE | .TXT '#GE ' 00020548 41 44 44 20 20 20 20 20 |ADD | .TXT 'ADD ' 00020552 53 55 42 20 20 20 20 20 |SUB | .TXT 'SUB ' 0002055c 4d 55 4c 20 20 20 20 20 |MUL | .TXT 'MUL ' 00020566 44 49 56 20 20 20 20 20 |DIV | .TXT 'DIV ' 00020570 4d 4f 44 20 20 20 20 20 |MOD | .TXT 'MOD ' 0002057a 4f 52 20 20 20 20 20 20 |OR | .TXT 'OR ' 00020584 41 4e 44 20 20 20 20 20 |AND | .TXT 'AND ' 0002058e 58 4f 52 20 20 20 20 20 |XOR | .TXT 'XOR ' 00020598 4c 53 48 49 46 54 20 20 |LSHIFT | .TXT 'LSHIFT ' 000205a2 52 53 48 49 46 54 20 20 |RSHIFT | .TXT 'RSHIFT ' 000205ac 4e 4f 54 20 20 20 20 20 |NOT | .TXT 'NOT ' 000205b6 23 49 4e 53 45 52 54 20 |#INSERT | .TXT '#INSERT ' 000205c0 23 45 58 54 52 41 43 54 |#EXTRACT| .TXT '#EXTRACT ' 000205ca 52 45 41 44 20 20 20 20 |READ | .TXT 'READ ' 000205d4 4b 49 4c 4c 20 20 20 20 |KILL | .TXT 'KILL ' 000205de 50 55 53 48 20 20 20 20 |PUSH | .TXT 'PUSH ' 000205e8 4c 45 56 45 4c 20 20 20 |LEVEL | .TXT 'LEVEL ' 000205f2 43 4f 4e 56 45 52 54 20 |CONVERT | .TXT 'CONVERT ' 000205fc 43 4f 55 4e 54 5f 4f 4e |COUNT_ON| .TXT 'COUNT_ONES' 00020606 52 45 50 45 41 54 20 20 |REPEAT | .TXT 'REPEAT ' 00020610 4d 4f 44 45 4c 20 20 20 |MODEL | .TXT 'MODEL ' 0002061a 41 53 43 49 49 20 20 20 |ASCII | .TXT 'ASCII ' 00020624 57 72 6f 6e 67 20 6e 75 |Wrong nu| .TXT 'Wrong number of arguments for :_' 00020644 45 51 2c 4e |EQ,N | .XXX[0x4] 00020648 45 2c 23 45 51 2c 23 4e |E,#EQ,#N| .XXX[0x38] 00020650 45 2c 23 4c 54 2c 23 47 |E,#LT,#G| 00020658 54 2c 23 4c 45 2c 23 47 |T,#LE,#G| 00020660 45 2c 45 4c 53 45 5d 45 |E,ELSE]E| 00020668 4e 44 5d 43 41 53 45 2c |ND]CASE,| 00020670 23 43 41 53 45 2c 57 48 |#CASE,WH| 00020678 45 4e 2c 45 4e 44 43 41 |EN,ENDCA| 00020680 53 45 5d 20 |SE] | .XXX[0x4] 00020684 45 76 61 6c 75 61 74 69 |Evaluati| .TXT 'Evaluation buffer overflow. ' 000206a0 55 6e 62 61 6c 61 6e 63 |Unbalanc| .TXT 'Unbalanced [ELSE] or [END]! ' 000206bc 5b 57 48 45 4e 20 5d 20 |[WHEN ] | .TXT '[WHEN ] ' 000206c6 4e 6f 20 63 61 73 65 20 |No case | .TXT 'No case alternative found!' 000206e0 4e 6f 20 5b 45 4e 44 43 |No [ENDC| .TXT 'No [ENDCASE] found! ' 000206f4 4e 6f 20 68 65 6c 70 20 |No help | .TXT 'No help available for_' 0002070a 2e 48 4c 50 |.HLP | .TXT '.HLP' 0002070e 54 6f 6f 20 66 65 77 20 |Too few | .TXT 'Too few arguments for SET ' 00020728 55 6e 6b 6e 6f 77 6e 20 |Unknown | .TXT 'Unknown variable :_ ' 0002073c 20 69 73 20 6e 6f 74 20 | is not | .TXT ' is not a program.' 0002074e 43 4c |CL | .TXT 'CL' 00020750 49 20 |I | .XXX[0x2] 00020752 2e 4d 32 30 30 20 |.M200 | .TXT '.M200 ' 00020758 53 54 |ST | .TXT 'ST' 0002075a 41 54 |AT | .TXT 'AT' 0002075c 55 53 |US | .TXT 'US' 0002075e 52 45 |RE | .TXT 'RE' 00020760 53 55 |SU | .TXT 'SU' 00020762 4c 54 |LT | .TXT 'LT' 00020764 4f 66 66 73 65 74 2f 4c |Offset/L| .TXT 'Offset/Length error in [INSERT] ' 00020784 52 45 50 45 41 54 69 6e |REPEATin| .TXT 'REPEATing, type ^G to exit. ' 000207a0 41 53 43 49 49 20 61 72 |ASCII ar| .TXT 'ASCII argument out of range.' 000207bc 4e 6f 74 20 61 20 63 6f |Not a co| .TXT 'Not a command or macro :_ ' 000207d6 49 6c 6c 65 67 61 6c 20 |Illegal | .TXT 'Illegal marker argument ' 000207ee 53 77 69 74 63 68 20 65 |Switch e| .TXT 'Switch exclusion is unimplemented.' 00020810 49 6c 6c 65 67 61 6c 20 |Illegal | .TXT 'Illegal argument marker.' 00020828 49 6c 6c 65 67 61 6c 20 |Illegal | .TXT 'Illegal argument marker.' 00020840 5b 49 4e 49 54 5d 5b 20 |[INIT][ | .TXT '[INIT][ ' 00020848 5d 5b 42 59 45 5d 3b 20 |][BYE]; | .TXT '][BYE]; ' 00020850 5b 49 4e 49 54 5d 3b 20 |[INIT]; | .TXT '[INIT]; ' 00020858 3e 5f |>_ | .TXT '>_' 0002085a 5b 20 |[ | .TXT '[ ' 0002085c 5d 3b |]; | .TXT '];' 0002085e ; -------------------------------------------------------------------------------------- 0002085e ; COMMAND TABLE 0002085e ; -------------------------------------------------------------------------------------- 0002085e COMMAND_TABLE_2085e: 0002085e 21 40 23 24 25 5e 26 2a |!@#$%^&*| .TXT '!@#$%^&*()' 00020868 57 52 49 54 45 20 20 20 |WRITE | .TXT 'WRITE ' 00020872 42 59 45 20 20 20 20 20 |BYE | .TXT 'BYE ' 0002087c 48 45 41 50 20 20 20 20 |HEAP | .TXT 'HEAP ' 00020886 48 45 4c 50 20 20 20 20 |HELP | .TXT 'HELP ' 00020890 41 42 4f 52 54 20 20 20 |ABORT | .TXT 'ABORT ' 0002089a 43 4f 4d 4d 45 4e 54 20 |COMMENT | .TXT 'COMMENT ' 000208a4 53 45 54 20 20 20 20 20 |SET | .TXT 'SET ' 000208ae 56 41 52 20 20 20 20 20 |VAR | .TXT 'VAR ' 000208b8 56 41 52 53 20 20 20 20 |VARS | .TXT 'VARS ' 000208c2 45 51 20 20 20 20 20 20 |EQ | .TXT 'EQ ' 000208cc 4e 45 20 20 20 20 20 20 |NE | .TXT 'NE ' 000208d6 43 41 53 45 20 20 20 20 |CASE | .TXT 'CASE ' 000208e0 49 4e 53 45 52 54 20 20 |INSERT | .TXT 'INSERT ' 000208ea 45 58 54 52 41 43 54 20 |EXTRACT | .TXT 'EXTRACT ' 000208f4 23 43 41 53 45 20 20 20 |#CASE | .TXT '#CASE ' 000208fe 23 45 51 20 20 20 20 20 |#EQ | .TXT '#EQ ' 00020908 23 4e 45 20 20 20 20 20 |#NE | .TXT '#NE ' 00020912 23 4c 54 20 20 20 20 20 |#LT | .TXT '#LT ' 0002091c 23 47 54 20 20 20 20 20 |#GT | .TXT '#GT ' 00020926 23 4c 45 20 20 20 20 20 |#LE | .TXT '#LE ' 00020930 23 47 45 20 20 20 20 20 |#GE | .TXT '#GE ' 0002093a 41 44 44 20 20 20 20 20 |ADD | .TXT 'ADD ' 00020944 53 55 42 20 20 20 20 20 |SUB | .TXT 'SUB ' 0002094e 4d 55 4c 20 20 20 20 20 |MUL | .TXT 'MUL ' 00020958 44 49 56 20 20 20 20 20 |DIV | .TXT 'DIV ' 00020962 4d 4f 44 20 20 20 20 20 |MOD | .TXT 'MOD ' 0002096c 4f 52 20 20 20 20 20 20 |OR | .TXT 'OR ' 00020976 41 4e 44 20 20 20 20 20 |AND | .TXT 'AND ' 00020980 58 4f 52 20 20 20 20 20 |XOR | .TXT 'XOR ' 0002098a 4c 53 48 49 46 54 20 20 |LSHIFT | .TXT 'LSHIFT ' 00020994 52 53 48 49 46 54 20 20 |RSHIFT | .TXT 'RSHIFT ' 0002099e 4e 4f 54 20 20 20 20 20 |NOT | .TXT 'NOT ' 000209a8 23 49 4e 53 45 52 54 20 |#INSERT | .TXT '#INSERT ' 000209b2 23 45 58 54 52 41 43 54 |#EXTRACT| .TXT '#EXTRACT ' 000209bc 52 45 41 44 20 20 20 20 |READ | .TXT 'READ ' 000209c6 4b 49 4c 4c 20 20 20 20 |KILL | .TXT 'KILL ' 000209d0 50 55 53 48 20 20 20 20 |PUSH | .TXT 'PUSH ' 000209da 4c 45 56 45 4c 20 20 20 |LEVEL | .TXT 'LEVEL ' 000209e4 43 4f 4e 56 45 52 54 20 |CONVERT | .TXT 'CONVERT ' 000209ee 43 4f 55 4e 54 5f 4f 4e |COUNT_ON| .TXT 'COUNT_ONES' 000209f8 52 45 50 45 41 54 20 20 |REPEAT | .TXT 'REPEAT ' 00020a02 4d 4f 44 45 4c 20 20 20 |MODEL | .TXT 'MODEL ' 00020a0c 41 53 43 49 49 20 20 20 |ASCII | .TXT 'ASCII ' 00020a16 a5 34 | 4 | .XXX[0x2] 00020a18 45 73 34 22 46 75 33 33 |Es4"Fu33| .XXX[0x98] 00020a20 33 33 33 32 33 66 37 84 |33323f7 | 00020a28 44 57 a6 55 0f 00 f0 ff |DW U | 00020a30 10 22 14 31 22 22 22 22 | " 1""""| 00020a38 22 22 22 22 14 3f 1f 03 |"""" ? | 00020a40 10 0f 00 00 00 00 ff ff | | 00020a48 ff ff 00 01 01 00 01 01 | | 00020a50 00 01 02 00 00 01 02 00 | | 00020a58 01 02 00 01 14 06 01 14 | | 00020a60 08 14 0f 02 03 14 14 08 | | 00020a68 14 0f 14 14 14 14 14 14 | | 00020a70 14 04 14 05 14 14 14 14 | | 00020a78 14 14 14 14 14 14 14 04 | | 00020a80 14 14 14 14 14 14 04 14 | | 00020a88 07 14 14 14 14 04 14 14 | | 00020a90 14 14 14 14 0c 14 14 09 | | 00020a98 14 14 14 0d 14 14 14 0b | | 00020aa0 0a 14 0e 14 14 14 08 14 | | 00020aa8 14 0c 14 14 09 14 14 14 | | 00020ab0 14 14 14 14 14 14 14 14 | | .BLANK 14[0x10] 00020ac0 14 14 14 14 14 10 14 14 | | .XXX[0x28] 00020ac8 11 14 14 14 14 14 14 14 | | 00020ad0 14 14 14 13 14 14 14 14 | | 00020ad8 14 12 14 14 14 11 14 14 | | 00020ae0 14 14 14 14 14 14 14 14 | | 00020ae8 ; -------------------------------------------------------------------------------------- 00020ae8 ; OMSI PASCAL Function 00020ae8 ; <LVAR 0x008 4(r)> 00020ae8 ; <LVAR -0x004 @ 4(w)> 00020ae8 ; -------------------------------------------------------------------------------------- 00020ae8 4e 56 ff e8 |NV | LINK.W A6,#0xffe8 00020aec bf d5 | | CMPA.L (A5),A7 00020aee 62 06 |b | BHI 0x20af6 00020af0 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020af4 4e 76 |Nv | TRAPV 00020af6 de fc 00 10 | | ADDA.W #0x10,A7 00020afa 48 e7 00 08 |H | MOVEM.L A4,-(A7) 00020afe 28 6e 00 08 |(n | MOVEA.L (A6+0x8),A4 00020b02 b8 fc 00 01 | | CMPA.W #0x1,A4 00020b06 67 1a |g | BEQ 0x20b22 00020b08 2d 4c ff fc |-L | MOVE.L A4,(A6-0x4) 00020b0c 28 6c 00 08 |(l | MOVEA.L (A4+0x8),A4 00020b10 48 6e ff fc |Hn | PEA.L (A6-0x4) 00020b14 48 78 00 0c |Hx | PEA.L 0xc 00020b18 4e b9 00 01 02 a8 |N | JSR Free2(a : Pointer; b : Long) 00020b1e 50 4f |PO | ADDQ.L #0x8,A7 00020b20 60 e0 |` | BRA 0x20b02 00020b22 4c df 10 00 |L | MOVEM.L (A7)+,A4 00020b26 4e 5e |N^ | UNLK A6 00020b28 4e 75 |Nu | RTS 00020b2a ; -------------------------------------------------------------------------------------- 00020b2a ; OMSI PASCAL Function 00020b2a ; <LVAR 0x008 4(r)> 00020b2a ; -------------------------------------------------------------------------------------- 00020b2a 4e 56 ff f0 |NV | LINK.W A6,#0xfff0 00020b2e bf d5 | | CMPA.L (A5),A7 00020b30 62 06 |b | BHI 0x20b38 00020b32 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020b36 4e 76 |Nv | TRAPV 00020b38 de fc 00 10 | | ADDA.W #0x10,A7 00020b3c 48 e7 00 80 |H | MOVEM.L A0,-(A7) 00020b40 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00020b44 b0 fc 00 01 | | CMPA.W #0x1,A0 00020b48 67 0a |g | BEQ 0x20b54 00020b4a 2f 08 |/ | MOVE.L A0,-(A7) 00020b4c 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00020b52 58 4f |XO | ADDQ.L #0x4,A7 00020b54 2e 6d 00 08 |.m | MOVEA.L (A5+0x8),A7 00020b58 3c 7c 00 00 |<| | MOVEA.W #0x0,A6 00020b5c 4e f9 00 02 44 06 |N D | JMP 0x24406 00020b62 4c df 01 00 4e 5e |L N^ | .XXX[0x6] 00020b68 4e 75 4e 56 ff fc bf d5 |NuNV | .XXX[0x20] 00020b70 62 06 44 fc 00 02 4e 76 |b D Nv| 00020b78 de fc 00 04 2d 79 00 02 | -y | 00020b80 66 34 00 08 4e 5e 4e 75 |f4 N^Nu| 00020b88 ; -------------------------------------------------------------------------------------- 00020b88 ; OMSI PASCAL Function 00020b88 ; <LVAR 0x008 1(rw)> 00020b88 ; -------------------------------------------------------------------------------------- 00020b88 4e 56 ff f0 |NV | LINK.W A6,#0xfff0 00020b8c bf d5 | | CMPA.L (A5),A7 00020b8e 62 06 |b | BHI 0x20b96 00020b90 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020b94 4e 76 |Nv | TRAPV 00020b96 de fc 00 10 | | ADDA.W #0x10,A7 00020b9a 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 00020b9e 20 39 00 02 66 34 | 9 f4 | MOVE.L 0x26634,D0 00020ba4 b0 b9 00 02 66 38 | f8 | CMP.L 0x26638,D0 00020baa 6f 06 |o | BLE 0x20bb2 00020bac 42 2e 00 08 |B. | CLR.B (A6+0x8) 00020bb0 60 0c |` | BRA 0x20bbe 00020bb2 41 f9 00 02 46 2c |A F, | LEA.L 0x2462c,A0 00020bb8 1d 70 08 07 00 08 | p | MOVE.B (A0+D0.L+#0x7),(A6+0x8) 00020bbe 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 00020bc2 4e 5e |N^ | UNLK A6 00020bc4 4e 75 |Nu | RTS 00020bc6 ; -------------------------------------------------------------------------------------- 00020bc6 ; OMSI PASCAL Function 00020bc6 ; <LVAR 0x008 1(rw)> 00020bc6 ; -------------------------------------------------------------------------------------- 00020bc6 4e 56 ff ec |NV | LINK.W A6,#0xffec 00020bca bf d5 | | CMPA.L (A5),A7 00020bcc 62 06 |b | BHI 0x20bd4 00020bce 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020bd2 4e 76 |Nv | TRAPV 00020bd4 de fc 00 14 | | ADDA.W #0x14,A7 00020bd8 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7) 00020bdc 43 f9 00 02 66 34 |C f4 | LEA.L 0x26634,A1 00020be2 20 11 | | MOVE.L (A1),D0 00020be4 b0 b9 00 02 66 38 | f8 | CMP.L 0x26638,D0 00020bea 6f 06 |o | BLE 0x20bf2 00020bec 42 2e 00 08 |B. | CLR.B (A6+0x8) 00020bf0 60 0c |` | BRA 0x20bfe 00020bf2 41 f9 00 02 46 2c |A F, | LEA.L 0x2462c,A0 00020bf8 1d 70 08 07 00 08 | p | MOVE.B (A0+D0.L+#0x7),(A6+0x8) 00020bfe 52 80 |R | ADDQ.L #0x1,D0 00020c00 22 80 |" | MOVE.L D0,(A1) 00020c02 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1 00020c06 4e 5e |N^ | UNLK A6 00020c08 4e 75 |Nu | RTS 00020c0a ; -------------------------------------------------------------------------------------- 00020c0a ; OMSI PASCAL Function 00020c0a ; <LVAR 0x00c 4(r)> 00020c0a ; <LVAR 0x008 4(r)> 00020c0a ; -------------------------------------------------------------------------------------- 00020c0a 4e 56 ff c0 |NV | LINK.W A6,#0xffc0 00020c0e bf d5 | | CMPA.L (A5),A7 00020c10 62 06 |b | BHI 0x20c18 00020c12 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020c16 4e 76 |Nv | TRAPV 00020c18 de fc 00 38 | 8 | ADDA.W #0x38,A7 00020c1c 48 e7 ff f0 |H | MOVEM.L A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00020c20 45 ee 00 08 |E | LEA.L (A6+0x8),A2 00020c24 47 f9 00 02 66 34 |G f4 | LEA.L 0x26634,A3 00020c2a 72 5b |r[ | MOVEQ.L #0x5b,D1 00020c2c 74 02 |t | MOVEQ.L #0x02,D2 00020c2e 76 2c |v, | MOVEQ.L #0x2c,D3 00020c30 78 3b |x; | MOVEQ.L #0x3b,D4 00020c32 55 4f |UO | SUBQ.L #0x2,A7 00020c34 4e ba ff 52 |N R | JSR 0x20b88 00020c38 10 1f | | MOVE.B (A7)+,D0 00020c3a b0 01 | | CMP.B D1,D0 00020c3c 66 0a |f | BNE 0x20c48 00020c3e 4e b9 00 02 3f 10 |N ? | JSR 0x23f10 00020c44 60 00 00 92 |` | BRA 0x20cd8 00020c48 2c 13 |, | MOVE.L (A3),D6 00020c4a 55 4f |UO | SUBQ.L #0x2,A7 00020c4c 4e ba ff 78 |N x | JSR 0x20bc6 00020c50 1a 1f | | MOVE.B (A7)+,D5 00020c52 66 18 |f | BNE 0x20c6c 00020c54 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 00020c58 43 fa fd e8 |C | LEA.L 0x20a42,A1 00020c5c 70 07 |p | MOVEQ.L #0x07,D0 00020c5e 10 d9 | | MOVE.B (A1)+,(A0)+ 00020c60 51 c8 ff fc |Q | DBF D0,0x20c5e 00020c64 20 52 | R | MOVEA.L (A2),A0 00020c66 10 82 | | MOVE.B D2,(A0) 00020c68 60 72 |`r | BRA 0x20cdc 00020c6a 60 5c |`\ | .XXX[0x2] 00020c6c ba 03 | | CMP.B D3,D5 00020c6e 66 08 |f | BNE 0x20c78 00020c70 20 52 | R | MOVEA.L (A2),A0 00020c72 10 bc 00 03 | | MOVE.B #0x03,(A0) 00020c76 60 50 |`P | BRA 0x20cc8 00020c78 ba 04 | | CMP.B D4,D5 00020c7a 66 08 |f | BNE 0x20c84 00020c7c 20 52 | R | MOVEA.L (A2),A0 00020c7e 10 bc 00 01 | | MOVE.B #0x01,(A0) 00020c82 60 44 |`D | BRA 0x20cc8 00020c84 0c 05 00 5d | ] | CMPI.B #0x5d,D5 00020c88 66 06 |f | BNE 0x20c90 00020c8a 20 52 | R | MOVEA.L (A2),A0 00020c8c 10 82 | | MOVE.B D2,(A0) 00020c8e 60 38 |`8 | BRA 0x20cc8 00020c90 20 52 | R | MOVEA.L (A2),A0 00020c92 42 10 |B | CLR.B (A0) 00020c94 55 4f |UO | SUBQ.L #0x2,A7 00020c96 4e ba fe f0 |N | JSR 0x20b88 00020c9a 1e 1f | | MOVE.B (A7)+,D7 00020c9c be 01 | | CMP.B D1,D7 00020c9e 66 08 |f | BNE 0x20ca8 00020ca0 4e b9 00 02 3f 10 |N ? | JSR 0x23f10 00020ca6 60 1e |` | BRA 0x20cc6 00020ca8 be 04 | | CMP.B D4,D7 00020caa 67 0e |g | BEQ 0x20cba 00020cac be 03 | | CMP.B D3,D7 00020cae 67 0a |g | BEQ 0x20cba 00020cb0 0c 07 00 5d | ] | CMPI.B #0x5d,D7 00020cb4 67 04 |g | BEQ 0x20cba 00020cb6 4a 07 |J | TST.B D7 00020cb8 66 04 |f | BNE 0x20cbe 00020cba 60 0c |` | BRA 0x20cc8 00020cbc 60 08 |` | .XXX[0x2] 00020cbe 55 4f |UO | SUBQ.L #0x2,A7 00020cc0 4e ba ff 04 |N | JSR 0x20bc6 00020cc4 1e 1f | | MOVE.B (A7)+,D7 00020cc6 60 cc |` | BRA 0x20c94 00020cc8 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 00020ccc 20 86 | | MOVE.L D6,(A0) 00020cce 21 53 00 04 |!S | MOVE.L (A3),(A0+0x4) 00020cd2 53 a8 00 04 |S | SUBQ.L #0x1,(A0+0x4) 00020cd6 60 04 |` | BRA 0x20cdc 00020cd8 60 00 ff 58 |` X | BRA 0x20c32 00020cdc 4c df 0f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3 00020ce0 4e 5e |N^ | UNLK A6 00020ce2 4e 75 |Nu | RTS 00020ce4 ; -------------------------------------------------------------------------------------- 00020ce4 ; OMSI PASCAL Function 00020ce4 ; <LVAR 0x010 4(r)> 00020ce4 ; <LVAR 0x00c 4(r)> 00020ce4 ; <LVAR 0x008 4(r)> 00020ce4 ; <LVAR -0x004 @ 1(rw)> 00020ce4 ; <LVAR -0x008 4(w)> 00020ce4 ; <LVAR -0x00c @ 4(w)> 00020ce4 ; -------------------------------------------------------------------------------------- 00020ce4 4e 56 ff ca |NV | LINK.W A6,#0xffca 00020ce8 bf d5 | | CMPA.L (A5),A7 00020cea 62 06 |b | BHI 0x20cf2 00020cec 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020cf0 4e 76 |Nv | TRAPV 00020cf2 de fc 00 2a | * | ADDA.W #0x2a,A7 00020cf6 48 e7 c0 f0 |H | MOVEM.L A3+A2+A1+A0+D1+D0,-(A7) 00020cfa 45 ee ff fc |E | LEA.L (A6-0x4),A2 00020cfe 47 ee ff f4 |G | LEA.L (A6-0xc),A3 00020d02 72 03 |r | MOVEQ.L #0x03,D1 00020d04 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00020d08 10 10 | | MOVE.B (A0),D0 00020d0a 0c 00 00 01 | | CMPI.B #0x01,D0 00020d0e 67 06 |g | BEQ 0x20d16 00020d10 0c 00 00 02 | | CMPI.B #0x02,D0 00020d14 66 0e |f | BNE 0x20d24 00020d16 26 ba fd 2a |& * | MOVE.L 0x20a42,(A3) 00020d1a 2d 7a fd 2a ff f8 |-z * | MOVE.L 0x20a46,(A6-0x8) 00020d20 14 80 | | MOVE.B D0,(A2) 00020d22 60 3c |`< | BRA 0x20d60 00020d24 48 53 |HS | PEA.L (A3) 00020d26 48 52 |HR | PEA.L (A2) 00020d28 4e ba fe e0 |N | JSR 0x20c0a 00020d2c 50 4f |PO | ADDQ.L #0x8,A7 00020d2e 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00020d32 4a 12 |J | TST.B (A2) 00020d34 67 1c |g | BEQ 0x20d52 00020d36 10 10 | | MOVE.B (A0),D0 00020d38 b0 01 | | CMP.B D1,D0 00020d3a 66 16 |f | BNE 0x20d52 00020d3c 10 12 | | MOVE.B (A2),D0 00020d3e 48 80 |H | EXTB.W D0 00020d40 41 81 |A | CHK.W D1,D0 00020d42 10 80 | | MOVE.B D0,(A0) 00020d44 26 ba fc fc |& | MOVE.L 0x20a42,(A3) 00020d48 2d 7a fc fc ff f8 |-z | MOVE.L 0x20a46,(A6-0x8) 00020d4e 42 12 |B | CLR.B (A2) 00020d50 60 08 |` | BRA 0x20d5a 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 10 12 | | MOVE.B (A2),D0 00020d5c b0 01 | | CMP.B D1,D0 00020d5e 67 c4 |g | BEQ 0x20d24 00020d60 20 6e 00 10 | n | MOVEA.L (A6+0x10),A0 00020d64 22 4b |"K | MOVEA.L A3,A1 00020d66 70 07 |p | MOVEQ.L #0x07,D0 00020d68 10 d9 | | MOVE.B (A1)+,(A0)+ 00020d6a 51 c8 ff fc |Q | DBF D0,0x20d68 00020d6e 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 00020d72 10 12 | | MOVE.B (A2),D0 00020d74 48 80 |H | EXTB.W D0 00020d76 41 81 |A | CHK.W D1,D0 00020d78 10 80 | | MOVE.B D0,(A0) 00020d7a 4c df 0f 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2+A3 00020d7e 4e 5e |N^ | UNLK A6 00020d80 4e 75 |Nu | RTS 00020d82 ; -------------------------------------------------------------------------------------- 00020d82 ; OMSI PASCAL Function 00020d82 ; <LVAR 0x008 4(rw)> 00020d82 ; <LVAR -0x004 1(rw)> 00020d82 ; <LVAR -0x010 2(rw)> 00020d82 ; -------------------------------------------------------------------------------------- 00020d82 4e 56 ff c0 |NV | LINK.W A6,#0xffc0 00020d86 bf d5 | | CMPA.L (A5),A7 00020d88 62 06 |b | BHI 0x20d90 00020d8a 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020d8e 4e 76 |Nv | TRAPV 00020d90 de fc 00 30 | 0 | ADDA.W #0x30,A7 00020d94 48 e7 c7 f0 |H | MOVEM.L A3+A2+A1+A0+D7+D6+D5+D1+D0,-(A7) 00020d98 43 ee ff f0 |C | LEA.L (A6-0x10),A1 00020d9c 45 ee ff fc |E | LEA.L (A6-0x4),A2 00020da0 47 ee 00 08 |G | LEA.L (A6+0x8),A3 00020da4 72 20 |r | MOVEQ.L #0x20,D1 00020da6 7c 01 || | MOVEQ.L #0x01,D6 00020da8 42 51 |BQ | CLR.W (A1) 00020daa 7a 01 |z | MOVEQ.L #0x01,D5 00020dac 59 4f |YO | SUBQ.L #0x4,A7 00020dae 2f 13 |/ | MOVE.L (A3),-(A7) 00020db0 4e b9 00 01 02 f0 |N | JSR ToUpper(a : String) : String 00020db6 58 4f |XO | ADDQ.L #0x4,A7 00020db8 26 9f |& | MOVE.L (A7)+,(A3) 00020dba 20 53 | S | MOVEA.L (A3),A0 00020dbc 2f 08 |/ | MOVE.L A0,-(A7) 00020dbe 20 57 | W | MOVEA.L (A7),A0 00020dc0 30 10 |0 | MOVE.W (A0),D0 00020dc2 48 c0 |H | EXTW.L D0 00020dc4 bc 80 | | CMP.L D0,D6 00020dc6 6e 00 00 b0 |n | BGT 0x20e78 00020dca 42 80 |B | CLR.L D0 00020dcc 10 30 68 01 | 0h | MOVE.B (A0+D6.L+#0x1),D0 00020dd0 02 40 00 7f | @ | ANDI.W #0x007f,D0 00020dd4 14 80 | | MOVE.B D0,(A2) 00020dd6 0c 00 00 09 | | CMPI.B #0x09,D0 00020dda 66 02 |f | BNE 0x20dde 00020ddc 14 81 | | MOVE.B D1,(A2) 00020dde 42 80 |B | CLR.L D0 00020de0 10 12 | | MOVE.B (A2),D0 00020de2 90 41 | A | SUB.W D1,D0 00020de4 0c 40 00 0c | @ | CMPI.W #0x000c,D0 00020de8 62 30 |b0 | BHI switch@0x20dec[0x2] 00020dea d0 40 | @ | ADD.W D0,D0 00020dec 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 00020df4 00 1e | | .CONST 0x1e ; [0x0] -> 0x20e12 00020df6 00 1a | | .CONST 0x1a ; [0x1] -> 0x20e0e 00020df8 00 26 | & | .CONST 0x26 ; [0x2] -> 0x20e1a 00020dfa 00 26 | & | .CONST 0x26 ; [0x3] -> 0x20e1a 00020dfc 00 26 | & | .CONST 0x26 ; [0x4] -> 0x20e1a 00020dfe 00 26 | & | .CONST 0x26 ; [0x5] -> 0x20e1a 00020e00 00 26 | & | .CONST 0x26 ; [0x6] -> 0x20e1a 00020e02 00 26 | & | .CONST 0x26 ; [0x7] -> 0x20e1a 00020e04 00 26 | & | .CONST 0x26 ; [0x8] -> 0x20e1a 00020e06 00 26 | & | .CONST 0x26 ; [0x9] -> 0x20e1a 00020e08 00 26 | & | .CONST 0x26 ; [0xa] -> 0x20e1a 00020e0a 00 26 | & | .CONST 0x26 ; [0xb] -> 0x20e1a 00020e0c 00 22 | " | .CONST 0x22 ; [0xc] -> 0x20e16 00020e0e switch@0x20dec[0x1]: 00020e0e 60 68 |`h | BRA 0x20e78 00020e10 60 0a |` | .XXX[0x2] 00020e12 switch@0x20dec[0x0]: 00020e12 7e 00 |~ | MOVEQ.L #0x00,D7 00020e14 60 06 |` | BRA 0x20e1c 00020e16 switch@0x20dec[0xc]: 00020e16 7e 01 |~ | MOVEQ.L #0x01,D7 00020e18 60 02 |` | BRA 0x20e1c 00020e1a switch@0x20dec[0x2]: 00020e1a switch@0x20dec[0x3]: 00020e1a switch@0x20dec[0x4]: 00020e1a switch@0x20dec[0x5]: 00020e1a switch@0x20dec[0x6]: 00020e1a switch@0x20dec[0x7]: 00020e1a switch@0x20dec[0x8]: 00020e1a switch@0x20dec[0x9]: 00020e1a switch@0x20dec[0xa]: 00020e1a switch@0x20dec[0xb]: 00020e1a 7e 02 |~ | MOVEQ.L #0x02,D7 00020e1c 70 03 |p | MOVEQ.L #0x03,D0 00020e1e c1 d1 | | MULS.W (A1),D0 00020e20 41 fa fc 28 |A ( | LEA.L 0x20a4a,A0 00020e24 41 f0 00 00 |A | LEA.L (A0+D0.W),A0 00020e28 42 80 |B | CLR.L D0 00020e2a 10 30 70 00 | 0p | MOVE.B (A0+D7.W),D0 00020e2e 0c 40 00 02 | @ | CMPI.W #0x0002,D0 00020e32 63 02 |c | BLS 0x20e36 00020e34 4e 4e |NN | TRAP #14 00020e36 d0 40 | @ | ADD.W D0,D0 00020e38 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 00020e40 00 06 | | .CONST 0x6 ; [0x0] -> 0x20e46 00020e42 00 08 | | .CONST 0x8 ; [0x1] -> 0x20e48 00020e44 00 12 | | .CONST 0x12 ; [0x2] -> 0x20e52 00020e46 switch@0x20e38[0x0]: 00020e46 60 16 |` | BRA 0x20e5e 00020e48 switch@0x20e38[0x1]: 00020e48 20 57 | W | MOVEA.L (A7),A0 00020e4a 11 92 58 01 | X | MOVE.B (A2),(A0+D5.L+#0x1) 00020e4e 52 85 |R | ADDQ.L #0x1,D5 00020e50 60 0c |` | BRA 0x20e5e 00020e52 switch@0x20e38[0x2]: 00020e52 20 57 | W | MOVEA.L (A7),A0 00020e54 11 bc 00 2c 58 01 | ,X | MOVE.B #0x2c,(A0+D5.L+#0x1) 00020e5a 52 85 |R | ADDQ.L #0x1,D5 00020e5c 53 86 |S | SUBQ.L #0x1,D6 00020e5e 70 03 |p | MOVEQ.L #0x03,D0 00020e60 c1 d1 | | MULS.W (A1),D0 00020e62 41 fa fb ef |A | LEA.L 0x20a53,A0 00020e66 41 f0 00 00 |A | LEA.L (A0+D0.W),A0 00020e6a 42 80 |B | CLR.L D0 00020e6c 10 30 70 00 | 0p | MOVE.B (A0+D7.W),D0 00020e70 32 80 |2 | MOVE.W D0,(A1) 00020e72 52 86 |R | ADDQ.L #0x1,D6 00020e74 60 00 ff 48 |` H | BRA 0x20dbe 00020e78 20 57 | W | MOVEA.L (A7),A0 00020e7a 20 05 | | MOVE.L D5,D0 00020e7c 53 80 |S | SUBQ.L #0x1,D0 00020e7e 30 80 |0 | MOVE.W D0,(A0) 00020e80 58 4f |XO | ADDQ.L #0x4,A7 00020e82 4c df 0f e3 |L | MOVEM.L (A7)+,D0+D1+D5+D6+D7+A0+A1+A2+A3 00020e86 4e 5e |N^ | UNLK A6 00020e88 4e 75 |Nu | RTS 00020e8a ; -------------------------------------------------------------------------------------- 00020e8a ; OMSI PASCAL Function 00020e8a ; <LVAR 0x00c 4(r)> 00020e8a ; <LVAR 0x008 4(r)> 00020e8a ; <LVAR -0x002 @ 1(r)> 00020e8a ; <LVAR -0x00a @> 00020e8a ; <LVAR -0x00e @ 4(r)> 00020e8a ; <LVAR -0x014 @ 1(r)> 00020e8a ; -------------------------------------------------------------------------------------- 00020e8a 4e 56 ff bc |NV | LINK.W A6,#0xffbc 00020e8e bf d5 | | CMPA.L (A5),A7 00020e90 62 06 |b | BHI 0x20e98 00020e92 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020e96 4e 76 |Nv | TRAPV 00020e98 de fc 00 30 | 0 | ADDA.W #0x30,A7 00020e9c 48 e7 c1 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D1+D0,-(A7) 00020ea0 47 ee ff f2 |G | LEA.L (A6-0xe),A3 00020ea4 72 01 |r | MOVEQ.L #0x01,D1 00020ea6 55 4f |UO | SUBQ.L #0x2,A7 00020ea8 4e ba fc de |N | JSR 0x20b88 00020eac 10 1f | | MOVE.B (A7)+,D0 00020eae 0c 00 00 5b | [ | CMPI.B #0x5b,D0 00020eb2 66 08 |f | BNE 0x20ebc 00020eb4 55 4f |UO | SUBQ.L #0x2,A7 00020eb6 4e ba fd 0e |N | JSR 0x20bc6 00020eba 1e 1f | | MOVE.B (A7)+,D7 00020ebc 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 00020ec0 20 81 | | MOVE.L D1,(A0) 00020ec2 42 2e ff ec |B. | CLR.B (A6-0x14) 00020ec6 48 6e ff f6 |Hn | PEA.L (A6-0xa) 00020eca 48 6e ff fe |Hn | PEA.L (A6-0x2) 00020ece 48 6e ff ec |Hn | PEA.L (A6-0x14) 00020ed2 4e ba fe 10 |N | JSR 0x20ce4 00020ed6 de fc 00 0c | | ADDA.W #0xc,A7 00020eda 4a 2e ff fe |J. | TST.B (A6-0x2) 00020ede 66 36 |f6 | BNE 0x20f16 00020ee0 48 53 |HS | PEA.L (A3) 00020ee2 48 78 00 0c |Hx | PEA.L 0xc 00020ee6 4e b9 00 01 02 9c |N | JSR Malloc1(length : Long) : Pointer 00020eec 50 4f |PO | ADDQ.L #0x8,A7 00020eee 20 53 | S | MOVEA.L (A3),A0 00020ef0 22 48 |"H | MOVEA.L A0,A1 00020ef2 45 ee ff f6 |E | LEA.L (A6-0xa),A2 00020ef6 70 07 |p | MOVEQ.L #0x07,D0 00020ef8 12 da | | MOVE.B (A2)+,(A1)+ 00020efa 51 c8 ff fc |Q | DBF D0,0x20ef8 00020efe 21 41 00 08 |!A | MOVE.L D1,(A0+0x8) 00020f02 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 00020f06 22 50 |"P | MOVEA.L (A0),A1 00020f08 b2 c1 | | CMPA.W D1,A1 00020f0a 66 04 |f | BNE 0x20f10 00020f0c 20 93 | | MOVE.L (A3),(A0) 00020f0e 60 04 |` | BRA 0x20f14 00020f10 29 53 00 08 |)S | MOVE.L (A3),(A4+0x8) 00020f14 28 53 |(S | MOVEA.L (A3),A4 00020f16 4a 2e ff fe |J. | TST.B (A6-0x2) 00020f1a 67 aa |g | BEQ 0x20ec6 00020f1c 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00020f20 42 10 |B | CLR.B (A0) 00020f22 10 2e ff fe | . | MOVE.B (A6-0x2),D0 00020f26 0c 00 00 02 | | CMPI.B #0x02,D0 00020f2a 66 02 |f | BNE 0x20f2e 00020f2c 52 10 |R | ADDQ.B #0x1,(A0) 00020f2e 4c df 1f 83 |L | MOVEM.L (A7)+,D0+D1+D7+A0+A1+A2+A3+A4 00020f32 4e 5e |N^ | UNLK A6 00020f34 4e 75 |Nu | RTS 00020f36 ; -------------------------------------------------------------------------------------- 00020f36 ; OMSI PASCAL Function 00020f36 ; <LVAR 0x00c 4(w)> 00020f36 ; <LVAR 0x008 4(r)> 00020f36 ; -------------------------------------------------------------------------------------- 00020f36 4e 56 ff ec |NV | LINK.W A6,#0xffec 00020f3a bf d5 | | CMPA.L (A5),A7 00020f3c 62 06 |b | BHI 0x20f44 00020f3e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020f42 4e 76 |Nv | TRAPV 00020f44 de fc 00 0c | | ADDA.W #0xc,A7 00020f48 48 e7 01 08 |H | MOVEM.L A4+D7,-(A7) 00020f4c 7e ff |~ | MOVEQ.L #-0x01,D7 00020f4e 28 6e 00 08 |(n | MOVEA.L (A6+0x8),A4 00020f52 b8 fc 00 01 | | CMPA.W #0x1,A4 00020f56 67 08 |g | BEQ 0x20f60 00020f58 52 87 |R | ADDQ.L #0x1,D7 00020f5a 28 6c 00 08 |(l | MOVEA.L (A4+0x8),A4 00020f5e 60 f2 |` | BRA 0x20f52 00020f60 2d 47 00 0c |-G | MOVE.L D7,(A6+0xc) 00020f64 4c df 10 80 |L | MOVEM.L (A7)+,D7+A4 00020f68 4e 5e |N^ | UNLK A6 00020f6a 4e 75 |Nu | RTS 00020f6c ; -------------------------------------------------------------------------------------- 00020f6c ; OMSI PASCAL Function 00020f6c ; <LVAR 0x00c 4(r)> 00020f6c ; <LVAR 0x008 4(r)> 00020f6c ; -------------------------------------------------------------------------------------- 00020f6c 4e 56 ff b0 |NV | LINK.W A6,#0xffb0 00020f70 bf d5 | | CMPA.L (A5),A7 00020f72 62 06 |b | BHI 0x20f7a 00020f74 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020f78 4e 76 |Nv | TRAPV 00020f7a de fc 00 4e | N | ADDA.W #0x4e,A7 00020f7e 48 e7 c0 80 |H | MOVEM.L A0+D1+D0,-(A7) 00020f82 72 01 |r | MOVEQ.L #0x01,D1 00020f84 59 4f |YO | SUBQ.L #0x4,A7 00020f86 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00020f8a 4e ba ff aa |N | JSR 0x20f36 00020f8e 58 4f |XO | ADDQ.L #0x4,A7 00020f90 20 1f | | MOVE.L (A7)+,D0 00020f92 b0 ae 00 08 | | CMP.L (A6+0x8),D0 00020f96 67 58 |gX | BEQ 0x20ff0 00020f98 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00020f9c 4e ba fb 4a |N J | JSR 0x20ae8 00020fa0 58 4f |XO | ADDQ.L #0x4,A7 00020fa2 41 fa f6 a0 |A | LEA.L 0x20644,A0 00020fa6 70 07 |p | MOVEQ.L #0x07,D0 00020fa8 2f 20 |/ | MOVE.L -(A0),-(A7) 00020faa 51 c8 ff fc |Q | DBF D0,0x20fa8 00020fae 41 ee 00 1a |A | LEA.L (A6+0x1a),A0 00020fb2 70 04 |p | MOVEQ.L #0x04,D0 00020fb4 3f 20 |? | MOVE.W -(A0),-(A7) 00020fb6 51 c8 ff fc |Q | DBF D0,0x20fb4 00020fba 51 4f |QO | SUBQ.L #0x8,A7 00020fbc 48 6f 00 12 |Ho | PEA.L (A7+0x12) 00020fc0 3f 01 |? | MOVE.W D1,-(A7) 00020fc2 3f 3c 00 20 |?< | MOVE.W #0x20,-(A7) 00020fc6 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020fcc 58 4f |XO | ADDQ.L #0x4,A7 00020fce 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00020fd2 3f 01 |? | MOVE.W D1,-(A7) 00020fd4 3f 3c 00 0a |?< | MOVE.W #0xa,-(A7) 00020fd8 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020fde 50 4f |PO | ADDQ.L #0x8,A7 00020fe0 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020fe6 50 4f |PO | ADDQ.L #0x8,A7 00020fe8 4e ba fb 40 |N @ | JSR 0x20b2a 00020fec de fc 00 2e | . | ADDA.W #0x2e,A7 00020ff0 4c df 01 03 |L | MOVEM.L (A7)+,D0+D1+A0 00020ff4 4e 5e |N^ | UNLK A6 00020ff6 4e 75 |Nu | RTS 00020ff8 ; -------------------------------------------------------------------------------------- 00020ff8 ; OMSI PASCAL Function 00020ff8 ; <LVAR 0x014 1(rw)> 00020ff8 ; <LVAR 0x010 4(r)> 00020ff8 ; <LVAR 0x00c 4(r)> 00020ff8 ; <LVAR 0x008 4(r)> 00020ff8 ; -------------------------------------------------------------------------------------- 00020ff8 4e 56 ff dc |NV | LINK.W A6,#0xffdc ; Spelunked 00020ffc bf d5 | | CMPA.L (A5),A7 00020ffe 62 06 |b | BHI 0x21006 00021000 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021004 4e 76 |Nv | TRAPV 00021006 de fc 00 20 | | ADDA.W #0x20,A7 0002100a 48 e7 c1 c0 |H | MOVEM.L A1+A0+D7+D1+D0,-(A7) 0002100e 42 2e 00 14 |B. | CLR.B (A6+0x14) 00021012 20 2e 00 10 | . | MOVE.L (A6+0x10),D0 00021016 d0 ae 00 08 | | ADD.L (A6+0x8),D0 0002101a b0 b9 00 02 66 38 | f8 | CMP.L 0x26638,D0 00021020 6e 4e |nN | BGT 0x21070 00021022 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00021026 7e 01 |~ | MOVEQ.L #0x01,D7 00021028 be 97 | | CMP.L (A7),D7 0002102a 6e 42 |nB | BGT 0x2106e 0002102c 20 2e 00 10 | . | MOVE.L (A6+0x10),D0 00021030 d0 87 | | ADD.L D7,D0 00021032 53 80 |S | SUBQ.L #0x1,D0 00021034 0c 80 00 00 1f ff | | CMPI.L #0x00001fff,D0 0002103a 63 02 |c | BLS 0x2103e 0002103c 4e 4f |NO | TRAP #15 0002103e 41 f9 00 02 46 2c |A F, | LEA.L 0x2462c,A0 00021044 22 2e 00 0c |". | MOVE.L (A6+0xc),D1 00021048 d2 87 | | ADD.L D7,D1 0002104a 53 81 |S | SUBQ.L #0x1,D1 0002104c 53 81 |S | SUBQ.L #0x1,D1 0002104e 0c 81 00 00 00 3e | > | CMPI.L #0x0000003e,D1 00021054 63 02 |c | BLS 0x21058 00021056 4e 4f |NO | TRAP #15 00021058 43 fa f5 ea |C | LEA.L 0x20644,A1 0002105c 10 30 08 08 | 0 | MOVE.B (A0+D0.L+#0x8),D0 00021060 b0 31 18 00 | 1 | CMP.B (A1+D1.L),D0 00021064 67 04 |g | BEQ 0x2106a 00021066 58 4f |XO | ADDQ.L #0x4,A7 00021068 60 0c |` | BRA 0x21076 0002106a 52 87 |R | ADDQ.L #0x1,D7 0002106c 68 ba |h | BVC 0x21028 0002106e 58 4f |XO | ADDQ.L #0x4,A7 00021070 1d 7c 00 01 00 14 | | | MOVE.B #0x01,(A6+0x14) 00021076 4c df 03 83 |L | MOVEM.L (A7)+,D0+D1+D7+A0+A1 0002107a 4e 5e |N^ | UNLK A6 0002107c 4e 75 |Nu | RTS 0002107e ; -------------------------------------------------------------------------------------- 0002107e ; OMSI PASCAL Function 0002107e ; <LVAR 0x00c 4(r)> 0002107e ; <LVAR 0x008 4(r)> 0002107e ; -------------------------------------------------------------------------------------- 0002107e 4e 56 ff bc |NV | LINK.W A6,#0xffbc 00021082 bf d5 | | CMPA.L (A5),A7 00021084 62 06 |b | BHI 0x2108c 00021086 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002108a 4e 76 |Nv | TRAPV 0002108c de fc 00 40 | @ | ADDA.W #0x40,A7 00021090 48 e7 80 f0 |H | MOVEM.L A3+A2+A1+A0+D0,-(A7) 00021094 45 f9 00 02 66 38 |E f8 | LEA.L 0x26638,A2 0002109a 47 ee 00 08 |G | LEA.L (A6+0x8),A3 0002109e 4a 93 |J | TST.L (A3) 000210a0 6c 3e |l> | BGE 0x210e0 000210a2 20 13 | | MOVE.L (A3),D0 000210a4 44 80 |D | NEG.L D0 000210a6 d0 92 | | ADD.L (A2),D0 000210a8 0c 80 00 00 20 00 | | CMPI.L #0x00002000,D0 000210ae 6f 30 |o0 | BLE 0x210e0 000210b0 9e fc 00 1c | | SUBA.W #0x1c,A7 000210b4 20 4f | O | MOVEA.L A7,A0 000210b6 43 fa f5 cc |C | LEA.L 0x20684,A1 000210ba 70 1a |p | MOVEQ.L #0x1a,D0 000210bc 10 d9 | | MOVE.B (A1)+,(A0)+ 000210be 51 c8 ff fc |Q | DBF D0,0x210bc 000210c2 59 4f |YO | SUBQ.L #0x4,A7 000210c4 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000210c8 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000210cc 3f 3c 00 1b |?< | MOVE.W #0x1b,-(A7) 000210d0 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000210d6 50 4f |PO | ADDQ.L #0x8,A7 000210d8 4e ba fa 50 |N P | JSR 0x20b2a 000210dc de fc 00 20 | | ADDA.W #0x20,A7 000210e0 41 f9 00 02 46 34 |A F4 | LEA.L 0x24634,A0 000210e6 2f 08 |/ | MOVE.L A0,-(A7) 000210e8 2f 12 |/ | MOVE.L (A2),-(A7) 000210ea 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 000210ee 2f 13 |/ | MOVE.L (A3),-(A7) 000210f0 4e b9 00 01 03 64 |N d | JSR MovStringTail(Base, Len, Ptr, Delta) 000210f6 de fc 00 10 | | ADDA.W #0x10,A7 000210fa 20 12 | | MOVE.L (A2),D0 000210fc 90 93 | | SUB.L (A3),D0 000210fe 24 80 |$ | MOVE.L D0,(A2) 00021100 4c df 0f 01 |L | MOVEM.L (A7)+,D0+A0+A1+A2+A3 00021104 4e 5e |N^ | UNLK A6 00021106 4e 75 |Nu | RTS 00021108 ; -------------------------------------------------------------------------------------- 00021108 ; OMSI PASCAL Function 00021108 ; <LVAR 0x00c 4(r)> 00021108 ; <LVAR 0x008 4(r)> 00021108 ; -------------------------------------------------------------------------------------- 00021108 4e 56 ff d4 |NV | LINK.W A6,#0xffd4 0002110c bf d5 | | CMPA.L (A5),A7 0002110e 62 06 |b | BHI 0x21116 00021110 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021114 4e 76 |Nv | TRAPV 00021116 de fc 00 28 | ( | ADDA.W #0x28,A7 0002111a 48 e7 c1 e0 |H | MOVEM.L A2+A1+A0+D7+D1+D0,-(A7) 0002111e 45 ee 00 0c |E | LEA.L (A6+0xc),A2 00021122 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00021126 2f 08 |/ | MOVE.L A0,-(A7) 00021128 22 52 |"R | MOVEA.L (A2),A1 0002112a 2f 11 |/ | MOVE.L (A1),-(A7) 0002112c 30 10 |0 | MOVE.W (A0),D0 0002112e 48 c0 |H | EXTW.L D0 00021130 44 80 |D | NEG.L D0 00021132 2f 00 |/ | MOVE.L D0,-(A7) 00021134 4e ba ff 48 |N H | JSR 0x2107e 00021138 50 4f |PO | ADDQ.L #0x8,A7 0002113a 30 10 |0 | MOVE.W (A0),D0 0002113c 48 c0 |H | EXTW.L D0 0002113e 2f 00 |/ | MOVE.L D0,-(A7) 00021140 7e 01 |~ | MOVEQ.L #0x01,D7 00021142 be 97 | | CMP.L (A7),D7 00021144 6e 36 |n6 | BGT 0x2117c 00021146 20 52 | R | MOVEA.L (A2),A0 00021148 20 07 | | MOVE.L D7,D0 0002114a d0 90 | | ADD.L (A0),D0 0002114c 53 80 |S | SUBQ.L #0x1,D0 0002114e 53 80 |S | SUBQ.L #0x1,D0 00021150 0c 80 00 00 1f ff | | CMPI.L #0x00001fff,D0 00021156 63 02 |c | BLS 0x2115a 00021158 4e 4f |NO | TRAP #15 0002115a 41 f9 00 02 46 2c |A F, | LEA.L 0x2462c,A0 00021160 22 07 |" | MOVE.L D7,D1 00021162 53 81 |S | SUBQ.L #0x1,D1 00021164 0c 81 00 00 00 7d | } | CMPI.L #0x0000007d,D1 0002116a 63 02 |c | BLS 0x2116e 0002116c 4e 4f |NO | TRAP #15 0002116e 22 6f 00 04 |"o | MOVEA.L (A7+0x4),A1 00021172 11 b1 18 02 08 08 | | MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x8) 00021178 52 87 |R | ADDQ.L #0x1,D7 0002117a 68 c6 |h | BVC 0x21142 0002117c 58 4f |XO | ADDQ.L #0x4,A7 0002117e 20 52 | R | MOVEA.L (A2),A0 00021180 22 57 |"W | MOVEA.L (A7),A1 00021182 30 11 |0 | MOVE.W (A1),D0 00021184 48 c0 |H | EXTW.L D0 00021186 d1 90 | | ADD.L D0,(A0) 00021188 58 4f |XO | ADDQ.L #0x4,A7 0002118a 4c df 07 83 |L | MOVEM.L (A7)+,D0+D1+D7+A0+A1+A2 0002118e 4e 5e |N^ | UNLK A6 00021190 4e 75 |Nu | RTS 00021192 ; -------------------------------------------------------------------------------------- 00021192 ; OMSI PASCAL Function 00021192 ; <LVAR 0x00c 4(r)> 00021192 ; <LVAR 0x008 4(r)> 00021192 ; -------------------------------------------------------------------------------------- 00021192 4e 56 ff a8 |NV | LINK.W A6,#0xffa8 00021196 bf d5 | | CMPA.L (A5),A7 00021198 62 06 |b | BHI 0x211a0 0002119a 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002119e 4e 76 |Nv | TRAPV 000211a0 de fc 00 50 | P | ADDA.W #0x50,A7 000211a4 48 e7 c3 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D1+D0,-(A7) 000211a8 45 fa fe 4e |E N | LEA.L 0x20ff8,A2 000211ac 47 f8 00 04 |G | LEA.L 0x4,A3 000211b0 49 ee 00 08 |I | LEA.L (A6+0x8),A4 000211b4 72 0c |r | MOVEQ.L #0x0c,D1 000211b6 7e 00 |~ | MOVEQ.L #0x00,D7 000211b8 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 000211bc 42 90 |B | CLR.L (A0) 000211be 20 54 | T | MOVEA.L (A4),A0 000211c0 42 90 |B | CLR.L (A0) 000211c2 2c 39 00 02 66 34 |,9 f4 | MOVE.L 0x26634,D6 000211c8 20 06 | | MOVE.L D6,D0 000211ca 53 80 |S | SUBQ.L #0x1,D0 000211cc 0c 80 00 00 1f ff | | CMPI.L #0x00001fff,D0 000211d2 63 02 |c | BLS 0x211d6 000211d4 4e 4f |NO | TRAP #15 000211d6 41 f9 00 02 46 2c |A F, | LEA.L 0x2462c,A0 000211dc 10 30 08 08 | 0 | MOVE.B (A0+D0.L+#0x8),D0 000211e0 0c 00 00 5b | [ | CMPI.B #0x5b,D0 000211e4 66 00 00 d4 |f | BNE 0x212ba 000211e8 55 4f |UO | SUBQ.L #0x2,A7 000211ea 2f 06 |/ | MOVE.L D6,-(A7) 000211ec 48 78 00 01 |Hx | PEA.L 0x1 000211f0 48 78 00 03 |Hx | PEA.L 0x3 000211f4 4e 92 |N | JSR (A2) 000211f6 de c1 | | ADDA.W D1,A7 000211f8 4a 1f |J | TST.B (A7)+ 000211fa 66 7e |f~ | BNE 0x2127a 000211fc 55 4f |UO | SUBQ.L #0x2,A7 000211fe 2f 06 |/ | MOVE.L D6,-(A7) 00021200 48 53 |HS | PEA.L (A3) 00021202 48 78 00 03 |Hx | PEA.L 0x3 00021206 4e 92 |N | JSR (A2) 00021208 de c1 | | ADDA.W D1,A7 0002120a 4a 1f |J | TST.B (A7)+ 0002120c 66 6c |fl | BNE 0x2127a 0002120e 55 4f |UO | SUBQ.L #0x2,A7 00021210 2f 06 |/ | MOVE.L D6,-(A7) 00021212 48 78 00 07 |Hx | PEA.L 0x7 00021216 48 53 |HS | PEA.L (A3) 00021218 4e 92 |N | JSR (A2) 0002121a de c1 | | ADDA.W D1,A7 0002121c 4a 1f |J | TST.B (A7)+ 0002121e 66 5a |fZ | BNE 0x2127a 00021220 55 4f |UO | SUBQ.L #0x2,A7 00021222 2f 06 |/ | MOVE.L D6,-(A7) 00021224 48 78 00 0b |Hx | PEA.L 0xb 00021228 48 53 |HS | PEA.L (A3) 0002122a 4e 92 |N | JSR (A2) 0002122c de c1 | | ADDA.W D1,A7 0002122e 4a 1f |J | TST.B (A7)+ 00021230 66 48 |fH | BNE 0x2127a 00021232 55 4f |UO | SUBQ.L #0x2,A7 00021234 2f 06 |/ | MOVE.L D6,-(A7) 00021236 48 78 00 0f |Hx | PEA.L 0xf 0002123a 48 53 |HS | PEA.L (A3) 0002123c 4e 92 |N | JSR (A2) 0002123e de c1 | | ADDA.W D1,A7 00021240 4a 1f |J | TST.B (A7)+ 00021242 66 36 |f6 | BNE 0x2127a 00021244 55 4f |UO | SUBQ.L #0x2,A7 00021246 2f 06 |/ | MOVE.L D6,-(A7) 00021248 48 78 00 13 |Hx | PEA.L 0x13 0002124c 48 53 |HS | PEA.L (A3) 0002124e 4e 92 |N | JSR (A2) 00021250 de c1 | | ADDA.W D1,A7 00021252 4a 1f |J | TST.B (A7)+ 00021254 66 24 |f$ | BNE 0x2127a 00021256 55 4f |UO | SUBQ.L #0x2,A7 00021258 2f 06 |/ | MOVE.L D6,-(A7) 0002125a 48 78 00 17 |Hx | PEA.L 0x17 0002125e 48 53 |HS | PEA.L (A3) 00021260 4e 92 |N | JSR (A2) 00021262 de c1 | | ADDA.W D1,A7 00021264 4a 1f |J | TST.B (A7)+ 00021266 66 12 |f | BNE 0x2127a 00021268 55 4f |UO | SUBQ.L #0x2,A7 0002126a 2f 06 |/ | MOVE.L D6,-(A7) 0002126c 48 78 00 1b |Hx | PEA.L 0x1b 00021270 48 53 |HS | PEA.L (A3) 00021272 4e 92 |N | JSR (A2) 00021274 de c1 | | ADDA.W D1,A7 00021276 4a 1f |J | TST.B (A7)+ 00021278 67 04 |g | BEQ 0x2127e 0002127a 52 87 |R | ADDQ.L #0x1,D7 0002127c 60 3c |`< | BRA 0x212ba 0002127e 4a 87 |J | TST.L D7 00021280 66 1c |f | BNE 0x2129e 00021282 55 4f |UO | SUBQ.L #0x2,A7 00021284 2f 06 |/ | MOVE.L D6,-(A7) 00021286 48 78 00 1f |Hx | PEA.L 0x1f 0002128a 48 78 00 05 |Hx | PEA.L 0x5 0002128e 4e 92 |N | JSR (A2) 00021290 de c1 | | ADDA.W D1,A7 00021292 4a 1f |J | TST.B (A7)+ 00021294 67 08 |g | BEQ 0x2129e 00021296 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 0002129a 20 86 | | MOVE.L D6,(A0) 0002129c 60 1c |` | BRA 0x212ba 0002129e 55 4f |UO | SUBQ.L #0x2,A7 000212a0 2f 06 |/ | MOVE.L D6,-(A7) 000212a2 48 78 00 24 |Hx $ | PEA.L 0x24 000212a6 48 53 |HS | PEA.L (A3) 000212a8 4e 92 |N | JSR (A2) 000212aa de c1 | | ADDA.W D1,A7 000212ac 4a 1f |J | TST.B (A7)+ 000212ae 67 0a |g | BEQ 0x212ba 000212b0 4a 87 |J | TST.L D7 000212b2 66 04 |f | BNE 0x212b8 000212b4 20 54 | T | MOVEA.L (A4),A0 000212b6 60 e2 |` | BRA 0x2129a 000212b8 53 87 |S | SUBQ.L #0x1,D7 000212ba 52 86 |R | ADDQ.L #0x1,D6 000212bc bc b9 00 02 66 38 | f8 | CMP.L 0x26638,D6 000212c2 6e 0e |n | BGT 0x212d2 000212c4 4a 87 |J | TST.L D7 000212c6 66 00 ff 00 |f | BNE 0x211c8 000212ca 20 54 | T | MOVEA.L (A4),A0 000212cc 4a 90 |J | TST.L (A0) 000212ce 67 00 fe f8 |g | BEQ 0x211c8 000212d2 bc b9 00 02 66 38 | f8 | CMP.L 0x26638,D6 000212d8 6f 30 |o0 | BLE 0x2130a 000212da 9e fc 00 1c | | SUBA.W #0x1c,A7 000212de 20 4f | O | MOVEA.L A7,A0 000212e0 43 fa f3 be |C | LEA.L 0x206a0,A1 000212e4 70 1a |p | MOVEQ.L #0x1a,D0 000212e6 10 d9 | | MOVE.B (A1)+,(A0)+ 000212e8 51 c8 ff fc |Q | DBF D0,0x212e6 000212ec 59 4f |YO | SUBQ.L #0x4,A7 000212ee 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000212f2 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000212f6 3f 3c 00 1b |?< | MOVE.W #0x1b,-(A7) 000212fa 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00021300 50 4f |PO | ADDQ.L #0x8,A7 00021302 4e ba f8 26 |N & | JSR 0x20b2a 00021306 de fc 00 20 | | ADDA.W #0x20,A7 0002130a 4c df 1f c3 |L | MOVEM.L (A7)+,D0+D1+D6+D7+A0+A1+A2+A3+A4 0002130e 4e 5e |N^ | UNLK A6 00021310 4e 75 |Nu | RTS 00021312 ; -------------------------------------------------------------------------------------- 00021312 ; OMSI PASCAL Function 00021312 ; <LVAR -0x004 @ 4(r)> 00021312 ; <LVAR -0x008 @ 4(rw)> 00021312 ; -------------------------------------------------------------------------------------- 00021312 4e 56 ff dc |NV | LINK.W A6,#0xffdc 00021316 bf d5 | | CMPA.L (A5),A7 00021318 62 06 |b | BHI 0x21320 0002131a 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002131e 4e 76 |Nv | TRAPV 00021320 de fc 00 1c | | ADDA.W #0x1c,A7 00021324 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7) 00021328 41 ee ff f8 |A | LEA.L (A6-0x8),A0 0002132c 43 ee ff fc |C | LEA.L (A6-0x4),A1 00021330 48 50 |HP | PEA.L (A0) 00021332 48 51 |HQ | PEA.L (A1) 00021334 4e ba fe 5c |N \ | JSR 0x21192 00021338 50 4f |PO | ADDQ.L #0x8,A7 0002133a 4a 90 |J | TST.L (A0) 0002133c 66 02 |f | BNE 0x21340 0002133e 20 91 | | MOVE.L (A1),(A0) 00021340 20 11 | | MOVE.L (A1),D0 00021342 5a 80 |Z | ADDQ.L #0x5,D0 00021344 2f 00 |/ | MOVE.L D0,-(A7) 00021346 90 90 | | SUB.L (A0),D0 00021348 2f 00 |/ | MOVE.L D0,-(A7) 0002134a 4e ba fd 32 |N 2 | JSR 0x2107e 0002134e 50 4f |PO | ADDQ.L #0x8,A7 00021350 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1 00021354 4e 5e |N^ | UNLK A6 00021356 4e 75 |Nu | RTS 00021358 ; -------------------------------------------------------------------------------------- 00021358 ; OMSI PASCAL Function 00021358 ; <LVAR -0x004 @ 4(r)> 00021358 ; <LVAR -0x008 @ 4(r)> 00021358 ; -------------------------------------------------------------------------------------- 00021358 4e 56 ff dc |NV | LINK.W A6,#0xffdc 0002135c bf d5 | | CMPA.L (A5),A7 0002135e 62 06 |b | BHI 0x21366 00021360 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021364 4e 76 |Nv | TRAPV 00021366 de fc 00 1c | | ADDA.W #0x1c,A7 0002136a 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7) 0002136e 41 ee ff f8 |A | LEA.L (A6-0x8),A0 00021372 43 ee ff fc |C | LEA.L (A6-0x4),A1 00021376 48 50 |HP | PEA.L (A0) 00021378 48 51 |HQ | PEA.L (A1) 0002137a 4e ba fe 16 |N | JSR 0x21192 0002137e 50 4f |PO | ADDQ.L #0x8,A7 00021380 4a 90 |J | TST.L (A0) 00021382 66 06 |f | BNE 0x2138a 00021384 20 11 | | MOVE.L (A1),D0 00021386 5a 80 |Z | ADDQ.L #0x5,D0 00021388 60 12 |` | BRA 0x2139c 0002138a 2f 11 |/ | MOVE.L (A1),-(A7) 0002138c 5a 97 |Z | ADDQ.L #0x5,(A7) 0002138e 48 78 00 05 |Hx | PEA.L 0x5 00021392 4e ba fc ea |N | JSR 0x2107e 00021396 50 4f |PO | ADDQ.L #0x8,A7 00021398 20 10 | | MOVE.L (A0),D0 0002139a 5c 80 |\ | ADDQ.L #0x6,D0 0002139c 2f 00 |/ | MOVE.L D0,-(A7) 0002139e 90 b9 00 02 66 34 | f4 | SUB.L 0x26634,D0 000213a4 2f 00 |/ | MOVE.L D0,-(A7) 000213a6 4e ba fc d6 |N | JSR 0x2107e 000213aa 50 4f |PO | ADDQ.L #0x8,A7 000213ac 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1 000213b0 4e 5e |N^ | UNLK A6 000213b2 4e 75 |Nu | RTS 000213b4 ; -------------------------------------------------------------------------------------- 000213b4 ; OMSI PASCAL Function 000213b4 ; <LVAR 0x008 4(r)> 000213b4 ; <LVAR -0x004 @> 000213b4 ; <LVAR -0x008 @ 4(r)> 000213b4 ; <LVAR -0x00c @ 4(rw)> 000213b4 ; <LVAR -0x010 4(rw)> 000213b4 ; <LVAR -0x014 4(rw)> 000213b4 ; -------------------------------------------------------------------------------------- 000213b4 4e 56 ff ba |NV | LINK.W A6,#0xffba 000213b8 bf d5 | | CMPA.L (A5),A7 000213ba 62 06 |b | BHI 0x213c2 000213bc 44 fc 00 02 |D | MOVE.W #0x2,CCR 000213c0 4e 76 |Nv | TRAPV 000213c2 de fc 00 32 | 2 | ADDA.W #0x32,A7 000213c6 48 e7 c0 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D1+D0,-(A7) 000213ca 43 f9 00 02 66 46 |C fF | LEA.L 0x26646,A1 000213d0 45 f9 00 02 66 4c |E fL | LEA.L 0x2664c,A2 000213d6 47 f9 00 02 66 34 |G f4 | LEA.L 0x26634,A3 000213dc 49 ee ff f8 |I | LEA.L (A6-0x8),A4 000213e0 72 01 |r | MOVEQ.L #0x01,D1 000213e2 4a 11 |J | TST.B (A1) 000213e4 67 0a |g | BEQ 0x213f0 000213e6 4a 92 |J | TST.L (A2) 000213e8 66 06 |f | BNE 0x213f0 000213ea 24 ae 00 08 |$ | MOVE.L (A6+0x8),(A2) 000213ee 53 92 |S | SUBQ.L #0x1,(A2) 000213f0 4a 11 |J | TST.B (A1) 000213f2 66 00 00 cc |f | BNE 0x214c0 000213f6 26 ae 00 08 |& | MOVE.L (A6+0x8),(A3) 000213fa 5c 93 |\ | ADDQ.L #0x6,(A3) 000213fc 48 54 |HT | PEA.L (A4) 000213fe 48 6e ff fc |Hn | PEA.L (A6-0x4) 00021402 4e ba fa 86 |N | JSR 0x20e8a 00021406 50 4f |PO | ADDQ.L #0x8,A7 00021408 41 fa f2 bc |A | LEA.L 0x206c6,A0 0002140c 70 04 |p | MOVEQ.L #0x04,D0 0002140e 3f 20 |? | MOVE.W -(A0),-(A7) 00021410 51 c8 ff fc |Q | DBF D0,0x2140e 00021414 2f 14 |/ | MOVE.L (A4),-(A7) 00021416 48 78 00 00 |Hx | PEA.L 0x0 0002141a 4e ba fb 50 |N P | JSR 0x20f6c 0002141e de fc 00 12 | | ADDA.W #0x12,A7 00021422 4a 39 00 02 66 50 |J9 fP | TST.B 0x26650 00021428 67 1a |g | BEQ 0x21444 0002142a 51 4f |QO | SUBQ.L #0x8,A7 0002142c 2f 14 |/ | MOVE.L (A4),-(A7) 0002142e 48 78 00 00 |Hx | PEA.L 0x0 00021432 4e b9 00 02 18 84 |N | JSR 0x21884 00021438 50 4f |PO | ADDQ.L #0x8,A7 0002143a 2d 5f ff ec |-_ | MOVE.L (A7)+,(A6-0x14) 0002143e 2d 5f ff f0 |-_ | MOVE.L (A7)+,(A6-0x10) 00021442 60 14 |` | BRA 0x21458 00021444 59 4f |YO | SUBQ.L #0x4,A7 00021446 2f 14 |/ | MOVE.L (A4),-(A7) 00021448 48 78 00 00 |Hx | PEA.L 0x0 0002144c 4e b9 00 02 18 52 |N R | JSR 0x21852 00021452 50 4f |PO | ADDQ.L #0x8,A7 00021454 2d 5f ff f4 |-_ | MOVE.L (A7)+,(A6-0xc) 00021458 2f 14 |/ | MOVE.L (A4),-(A7) 0002145a 4e ba f6 8c |N | JSR 0x20ae8 0002145e 58 4f |XO | ADDQ.L #0x4,A7 00021460 23 d3 00 02 66 48 |# fH | MOVE.L (A3),0x26648 00021466 4a 39 00 02 66 50 |J9 fP | TST.B 0x26650 0002146c 67 2a |g* | BEQ 0x21498 0002146e 55 4f |UO | SUBQ.L #0x2,A7 00021470 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7) 00021474 2f 2e ff ec |/. | MOVE.L (A6-0x14),-(A7) 00021478 2f 39 00 02 66 5a |/9 fZ | MOVE.L 0x2665a,-(A7) 0002147e 2f 39 00 02 66 56 |/9 fV | MOVE.L 0x26656,-(A7) 00021484 4e b9 00 01 03 2c |N , | JSR IsEqual(a, b : Quad) : Bool 0002148a de fc 00 10 | | ADDA.W #0x10,A7 0002148e 10 1f | | MOVE.B (A7)+,D0 00021490 48 80 |H | EXTB.W D0 00021492 41 81 |A | CHK.W D1,D0 00021494 12 80 | | MOVE.B D0,(A1) 00021496 60 28 |`( | BRA 0x214c0 00021498 55 4f |UO | SUBQ.L #0x2,A7 0002149a 2f 2e ff f4 |/. | MOVE.L (A6-0xc),-(A7) 0002149e 2f 39 00 02 66 52 |/9 fR | MOVE.L 0x26652,-(A7) 000214a4 4e b9 00 01 02 c8 |N | JSR StringEqual(a, b : String) : Byte 000214aa 50 4f |PO | ADDQ.L #0x8,A7 000214ac 10 1f | | MOVE.B (A7)+,D0 000214ae 48 80 |H | EXTB.W D0 000214b0 41 81 |A | CHK.W D1,D0 000214b2 12 80 | | MOVE.B D0,(A1) 000214b4 48 6e ff f4 |Hn | PEA.L (A6-0xc) 000214b8 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000214be 58 4f |XO | ADDQ.L #0x4,A7 000214c0 4c df 1f 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2+A3+A4 000214c4 4e 5e |N^ | UNLK A6 000214c6 4e 75 |Nu | RTS 000214c8 ; -------------------------------------------------------------------------------------- 000214c8 ; OMSI PASCAL Function 000214c8 ; <LVAR 0x010 4(r)> 000214c8 ; <LVAR 0x00c 4(r)> 000214c8 ; <LVAR 0x008 4(r)> 000214c8 ; -------------------------------------------------------------------------------------- 000214c8 4e 56 ff 9e |NV | LINK.W A6,#0xff9e 000214cc bf d5 | | CMPA.L (A5),A7 000214ce 62 06 |b | BHI 0x214d6 000214d0 44 fc 00 02 |D | MOVE.W #0x2,CCR 000214d4 4e 76 |Nv | TRAPV 000214d6 de fc 00 56 | V | ADDA.W #0x56,A7 000214da 48 e7 e7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7) 000214de 45 f9 00 02 66 4c |E fL | LEA.L 0x2664c,A2 000214e4 47 fa fb 12 |G | LEA.L 0x20ff8,A3 000214e8 49 f9 00 02 66 46 |I fF | LEA.L 0x26646,A4 000214ee 72 0c |r | MOVEQ.L #0x0c,D1 000214f0 74 01 |t | MOVEQ.L #0x01,D2 000214f2 42 14 |B | CLR.B (A4) 000214f4 42 b9 00 02 66 48 |B fH | CLR.L 0x26648 000214fa 42 92 |B | CLR.L (A2) 000214fc 7e 00 |~ | MOVEQ.L #0x00,D7 000214fe 7c 00 || | MOVEQ.L #0x00,D6 00021500 2a 39 00 02 66 34 |*9 f4 | MOVE.L 0x26634,D5 00021506 4a 86 |J | TST.L D6 00021508 66 00 00 a0 |f | BNE 0x215aa 0002150c ba b9 00 02 66 38 | f8 | CMP.L 0x26638,D5 00021512 6e 00 00 96 |n | BGT 0x215aa 00021516 20 05 | | MOVE.L D5,D0 00021518 53 80 |S | SUBQ.L #0x1,D0 0002151a 0c 80 00 00 1f ff | | CMPI.L #0x00001fff,D0 00021520 63 02 |c | BLS 0x21524 00021522 4e 4f |NO | TRAP #15 00021524 41 f9 00 02 46 2c |A F, | LEA.L 0x2462c,A0 0002152a 10 30 08 08 | 0 | MOVE.B (A0+D0.L+#0x8),D0 0002152e 0c 00 00 5b | [ | CMPI.B #0x5b,D0 00021532 66 6c |fl | BNE 0x215a0 00021534 55 4f |UO | SUBQ.L #0x2,A7 00021536 2f 05 |/ | MOVE.L D5,-(A7) 00021538 48 78 00 28 |Hx ( | PEA.L 0x28 0002153c 48 78 00 05 |Hx | PEA.L 0x5 00021540 4e 93 |N | JSR (A3) 00021542 de c1 | | ADDA.W D1,A7 00021544 4a 1f |J | TST.B (A7)+ 00021546 66 14 |f | BNE 0x2155c 00021548 55 4f |UO | SUBQ.L #0x2,A7 0002154a 2f 05 |/ | MOVE.L D5,-(A7) 0002154c 48 78 00 2d |Hx - | PEA.L 0x2d 00021550 48 78 00 06 |Hx | PEA.L 0x6 00021554 4e 93 |N | JSR (A3) 00021556 de c1 | | ADDA.W D1,A7 00021558 4a 1f |J | TST.B (A7)+ 0002155a 67 04 |g | BEQ 0x21560 0002155c 52 87 |R | ADDQ.L #0x1,D7 0002155e 60 40 |`@ | BRA 0x215a0 00021560 4a 87 |J | TST.L D7 00021562 66 1e |f | BNE 0x21582 00021564 55 4f |UO | SUBQ.L #0x2,A7 00021566 2f 05 |/ | MOVE.L D5,-(A7) 00021568 48 78 00 33 |Hx 3 | PEA.L 0x33 0002156c 48 78 00 05 |Hx | PEA.L 0x5 00021570 4e 93 |N | JSR (A3) 00021572 de c1 | | ADDA.W D1,A7 00021574 4a 1f |J | TST.B (A7)+ 00021576 67 0a |g | BEQ 0x21582 00021578 2f 05 |/ | MOVE.L D5,-(A7) 0002157a 4e ba fe 38 |N 8 | JSR 0x213b4 0002157e 58 4f |XO | ADDQ.L #0x4,A7 00021580 60 1e |` | BRA 0x215a0 00021582 55 4f |UO | SUBQ.L #0x2,A7 00021584 2f 05 |/ | MOVE.L D5,-(A7) 00021586 48 78 00 38 |Hx 8 | PEA.L 0x38 0002158a 48 78 00 08 |Hx | PEA.L 0x8 0002158e 4e 93 |N | JSR (A3) 00021590 de c1 | | ADDA.W D1,A7 00021592 4a 1f |J | TST.B (A7)+ 00021594 67 0a |g | BEQ 0x215a0 00021596 4a 87 |J | TST.L D7 00021598 66 04 |f | BNE 0x2159e 0002159a 2c 05 |, | MOVE.L D5,D6 0002159c 60 02 |` | BRA 0x215a0 0002159e 53 87 |S | SUBQ.L #0x1,D7 000215a0 4a 86 |J | TST.L D6 000215a2 66 02 |f | BNE 0x215a6 000215a4 52 85 |R | ADDQ.L #0x1,D5 000215a6 60 00 ff 5e |` ^ | BRA 0x21506 000215aa 4a 39 00 02 66 50 |J9 fP | TST.B 0x26650 000215b0 66 0e |f | BNE 0x215c0 000215b2 48 79 00 02 66 52 |Hy fR | PEA.L 0x26652 000215b8 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000215be 58 4f |XO | ADDQ.L #0x4,A7 000215c0 4a 14 |J | TST.B (A4) 000215c2 66 28 |f( | BNE 0x215ec 000215c4 41 fa f1 1a |A | LEA.L 0x206e0,A0 000215c8 70 0c |p | MOVEQ.L #0x0c,D0 000215ca 3f 20 |? | MOVE.W -(A0),-(A7) 000215cc 51 c8 ff fc |Q | DBF D0,0x215ca 000215d0 59 4f |YO | SUBQ.L #0x4,A7 000215d2 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000215d6 3f 02 |? | MOVE.W D2,-(A7) 000215d8 3f 3c 00 1a |?< | MOVE.W #0x1a,-(A7) 000215dc 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000215e2 50 4f |PO | ADDQ.L #0x8,A7 000215e4 4e ba f5 44 |N D | JSR 0x20b2a 000215e8 de fc 00 1e | | ADDA.W #0x1e,A7 000215ec 4a 86 |J | TST.L D6 000215ee 66 2e |f. | BNE 0x2161e 000215f0 9e fc 00 14 | | SUBA.W #0x14,A7 000215f4 20 4f | O | MOVEA.L A7,A0 000215f6 43 fa f0 e8 |C | LEA.L 0x206e0,A1 000215fa 70 12 |p | MOVEQ.L #0x12,D0 000215fc 10 d9 | | MOVE.B (A1)+,(A0)+ 000215fe 51 c8 ff fc |Q | DBF D0,0x215fc 00021602 59 4f |YO | SUBQ.L #0x4,A7 00021604 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021608 3f 02 |? | MOVE.W D2,-(A7) 0002160a 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7) 0002160e 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00021614 50 4f |PO | ADDQ.L #0x8,A7 00021616 4e ba f5 12 |N | JSR 0x20b2a 0002161a de fc 00 18 | | ADDA.W #0x18,A7 0002161e 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00021622 20 86 | | MOVE.L D6,(A0) 00021624 20 6e 00 10 | n | MOVEA.L (A6+0x10),A0 00021628 20 b9 00 02 66 48 | fH | MOVE.L 0x26648,(A0) 0002162e 4a 92 |J | TST.L (A2) 00021630 66 0a |f | BNE 0x2163c 00021632 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 00021636 20 86 | | MOVE.L D6,(A0) 00021638 53 90 |S | SUBQ.L #0x1,(A0) 0002163a 60 06 |` | BRA 0x21642 0002163c 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 00021640 20 92 | | MOVE.L (A2),(A0) 00021642 4c df 1f e7 |L | MOVEM.L (A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3+A4 00021646 4e 5e |N^ | UNLK A6 00021648 4e 75 |Nu | RTS 0002164a ; -------------------------------------------------------------------------------------- 0002164a ; OMSI PASCAL Function 0002164a ; <LVAR 0x008 4(r)> 0002164a ; <LVAR -0x008 @ 4(r)> 0002164a ; <LVAR -0x00c @ 4(r)> 0002164a ; <LVAR -0x010 @ 4(r)> 0002164a ; -------------------------------------------------------------------------------------- 0002164a 4e 56 ff c8 |NV | LINK.W A6,#0xffc8 0002164e bf d5 | | CMPA.L (A5),A7 00021650 62 06 |b | BHI 0x21658 00021652 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021656 4e 76 |Nv | TRAPV 00021658 de fc 00 24 | $ | ADDA.W #0x24,A7 0002165c 48 e7 83 c0 |H | MOVEM.L A1+A0+D7+D6+D0,-(A7) 00021660 41 f9 00 02 66 34 |A f4 | LEA.L 0x26634,A0 00021666 43 ee ff f0 |C | LEA.L (A6-0x10),A1 0002166a 2c 10 |, | MOVE.L (A0),D6 0002166c 42 39 00 02 66 50 |B9 fP | CLR.B 0x26650 00021672 23 ee 00 08 00 02 66 52 |# fR| MOVE.L (A6+0x8),0x26652 0002167a 2e 10 |. | MOVE.L (A0),D7 0002167c 48 51 |HQ | PEA.L (A1) 0002167e 48 6e ff f4 |Hn | PEA.L (A6-0xc) 00021682 48 6e ff f8 |Hn | PEA.L (A6-0x8) 00021686 4e ba fe 40 |N @ | JSR 0x214c8 0002168a de fc 00 0c | | ADDA.W #0xc,A7 0002168e 20 86 | | MOVE.L D6,(A0) 00021690 20 2e ff f8 | . | MOVE.L (A6-0x8),D0 00021694 06 80 00 00 00 09 | | ADDI.L #0x00000009,D0 0002169a 2f 00 |/ | MOVE.L D0,-(A7) 0002169c 90 ae ff f4 | | SUB.L (A6-0xc),D0 000216a0 53 80 |S | SUBQ.L #0x1,D0 000216a2 2f 00 |/ | MOVE.L D0,-(A7) 000216a4 4e ba f9 d8 |N | JSR 0x2107e 000216a8 58 4f |XO | ADDQ.L #0x4,A7 000216aa 2e 91 |. | MOVE.L (A1),(A7) 000216ac 2f 11 |/ | MOVE.L (A1),-(A7) 000216ae 9f 97 | | SUB.L D7,(A7) 000216b0 4e ba f9 cc |N | JSR 0x2107e 000216b4 50 4f |PO | ADDQ.L #0x8,A7 000216b6 4c df 03 c1 |L | MOVEM.L (A7)+,D0+D6+D7+A0+A1 000216ba 4e 5e |N^ | UNLK A6 000216bc 4e 75 |Nu | RTS 000216be ; -------------------------------------------------------------------------------------- 000216be ; OMSI PASCAL Function 000216be ; <LVAR 0x00c 4(r)> 000216be ; <LVAR 0x008 4(r)> 000216be ; <LVAR -0x008 @ 4(r)> 000216be ; <LVAR -0x00c @ 4(r)> 000216be ; <LVAR -0x010 @ 4(r)> 000216be ; -------------------------------------------------------------------------------------- 000216be 4e 56 ff c8 |NV | LINK.W A6,#0xffc8 000216c2 bf d5 | | CMPA.L (A5),A7 000216c4 62 06 |b | BHI 0x216cc 000216c6 44 fc 00 02 |D | MOVE.W #0x2,CCR 000216ca 4e 76 |Nv | TRAPV 000216cc de fc 00 24 | $ | ADDA.W #0x24,A7 000216d0 48 e7 83 c0 |H | MOVEM.L A1+A0+D7+D6+D0,-(A7) 000216d4 41 f9 00 02 66 34 |A f4 | LEA.L 0x26634,A0 000216da 43 ee ff f0 |C | LEA.L (A6-0x10),A1 000216de 2c 10 |, | MOVE.L (A0),D6 000216e0 13 fc 00 01 00 02 66 50 | fP| MOVE.B #0x01,0x26650 000216e8 23 ee 00 08 00 02 66 56 |# fV| MOVE.L (A6+0x8),0x26656 000216f0 23 ee 00 0c 00 02 66 5a |# fZ| MOVE.L (A6+0xc),0x2665a 000216f8 2e 10 |. | MOVE.L (A0),D7 000216fa 48 51 |HQ | PEA.L (A1) 000216fc 48 6e ff f4 |Hn | PEA.L (A6-0xc) 00021700 48 6e ff f8 |Hn | PEA.L (A6-0x8) 00021704 4e ba fd c2 |N | JSR 0x214c8 00021708 de fc 00 0c | | ADDA.W #0xc,A7 0002170c 20 86 | | MOVE.L D6,(A0) 0002170e 20 2e ff f8 | . | MOVE.L (A6-0x8),D0 00021712 06 80 00 00 00 09 | | ADDI.L #0x00000009,D0 00021718 2f 00 |/ | MOVE.L D0,-(A7) 0002171a 90 ae ff f4 | | SUB.L (A6-0xc),D0 0002171e 53 80 |S | SUBQ.L #0x1,D0 00021720 2f 00 |/ | MOVE.L D0,-(A7) 00021722 4e ba f9 5a |N Z | JSR 0x2107e 00021726 58 4f |XO | ADDQ.L #0x4,A7 00021728 2e 91 |. | MOVE.L (A1),(A7) 0002172a 2f 11 |/ | MOVE.L (A1),-(A7) 0002172c 9f 97 | | SUB.L D7,(A7) 0002172e 4e ba f9 4e |N N | JSR 0x2107e 00021732 50 4f |PO | ADDQ.L #0x8,A7 00021734 4c df 03 c1 |L | MOVEM.L (A7)+,D0+D6+D7+A0+A1 00021738 4e 5e |N^ | UNLK A6 0002173a 4e 75 |Nu | RTS 0002173c ; -------------------------------------------------------------------------------------- 0002173c ; OMSI PASCAL Function 0002173c ; <LVAR 0x010 4(rw)> 0002173c ; <LVAR 0x00c 4(r)> 0002173c ; <LVAR 0x008 4(r)> 0002173c ; -------------------------------------------------------------------------------------- 0002173c 4e 56 ff f8 |NV | LINK.W A6,#0xfff8 00021740 bf d5 | | CMPA.L (A5),A7 00021742 62 06 |b | BHI 0x2174a 00021744 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021748 4e 76 |Nv | TRAPV 0002174a de fc 00 08 | | ADDA.W #0x8,A7 0002174e 48 e7 80 00 |H | MOVEM.L D0,-(A7) 00021752 4a ae 00 08 |J | TST.L (A6+0x8) 00021756 66 06 |f | BNE 0x2175e 00021758 42 ae 00 10 |B | CLR.L (A6+0x10) 0002175c 60 0e |` | BRA 0x2176c 0002175e 20 2e 00 0c | . | MOVE.L (A6+0xc),D0 00021762 90 ae 00 08 | | SUB.L (A6+0x8),D0 00021766 52 80 |R | ADDQ.L #0x1,D0 00021768 2d 40 00 10 |-@ | MOVE.L D0,(A6+0x10) 0002176c 4c df 00 01 |L | MOVEM.L (A7)+,D0 00021770 4e 5e |N^ | UNLK A6 00021772 4e 75 |Nu | RTS 00021774 ; -------------------------------------------------------------------------------------- 00021774 ; OMSI PASCAL Function 00021774 ; <LVAR 0x014 4(w)> 00021774 ; <LVAR 0x010 @ 4(w)> 00021774 ; <LVAR 0x00c 4(r)> 00021774 ; <LVAR 0x008 4(r)> 00021774 ; -------------------------------------------------------------------------------------- 00021774 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 00021778 bf d5 | | CMPA.L (A5),A7 0002177a 62 06 |b | BHI 0x21782 0002177c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021780 4e 76 |Nv | TRAPV 00021782 de fc 00 20 | | ADDA.W #0x20,A7 00021786 48 e7 81 c8 |H | MOVEM.L A4+A1+A0+D7+D0,-(A7) 0002178a 28 6e 00 0c |(n | MOVEA.L (A6+0xc),A4 0002178e 2d 7a f2 b2 00 10 |-z | MOVE.L 0x20a42,(A6+0x10) 00021794 2d 7a f2 b0 00 14 |-z | MOVE.L 0x20a46,(A6+0x14) 0002179a 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 0002179e 7e 00 |~ | MOVEQ.L #0x00,D7 000217a0 be 97 | | CMP.L (A7),D7 000217a2 6e 28 |n( | BGT 0x217cc 000217a4 b8 fc 00 01 | | CMPA.W #0x1,A4 000217a8 66 04 |f | BNE 0x217ae 000217aa 58 4f |XO | ADDQ.L #0x4,A7 000217ac 60 20 |` | BRA 0x217ce 000217ae be ae 00 08 | | CMP.L (A6+0x8),D7 000217b2 66 10 |f | BNE 0x217c4 000217b4 41 ee 00 10 |A | LEA.L (A6+0x10),A0 000217b8 22 4c |"L | MOVEA.L A4,A1 000217ba 70 07 |p | MOVEQ.L #0x07,D0 000217bc 10 d9 | | MOVE.B (A1)+,(A0)+ 000217be 51 c8 ff fc |Q | DBF D0,0x217bc 000217c2 60 04 |` | BRA 0x217c8 000217c4 28 6c 00 08 |(l | MOVEA.L (A4+0x8),A4 000217c8 52 87 |R | ADDQ.L #0x1,D7 000217ca 68 d4 |h | BVC 0x217a0 000217cc 58 4f |XO | ADDQ.L #0x4,A7 000217ce 4c df 13 81 |L | MOVEM.L (A7)+,D0+D7+A0+A1+A4 000217d2 4e 5e |N^ | UNLK A6 000217d4 4e 75 |Nu | RTS 000217d6 ; -------------------------------------------------------------------------------------- 000217d6 ; OMSI PASCAL Function 000217d6 ; <LVAR 0x010 4(w)> 000217d6 ; <LVAR 0x00c 4(r)> 000217d6 ; <LVAR 0x008 4(r)> 000217d6 ; <LVAR -0x008 @ 4(r)> 000217d6 ; -------------------------------------------------------------------------------------- 000217d6 4e 56 ff ce |NV | LINK.W A6,#0xffce 000217da bf d5 | | CMPA.L (A5),A7 000217dc 62 06 |b | BHI 0x217e4 000217de 44 fc 00 02 |D | MOVE.W #0x2,CCR 000217e2 4e 76 |Nv | TRAPV 000217e4 de fc 00 26 | & | ADDA.W #0x26,A7 000217e8 48 e7 83 c0 |H | MOVEM.L A1+A0+D7+D6+D0,-(A7) 000217ec 43 ee ff f8 |C | LEA.L (A6-0x8),A1 000217f0 48 51 |HQ | PEA.L (A1) 000217f2 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 000217f8 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 000217fc 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00021800 4e ba ff 3a |N : | JSR 0x2173c 00021804 50 4f |PO | ADDQ.L #0x8,A7 00021806 7e 01 |~ | MOVEQ.L #0x01,D7 00021808 be 97 | | CMP.L (A7),D7 0002180a 6e 38 |n8 | BGT 0x21844 0002180c 20 07 | | MOVE.L D7,D0 0002180e d0 ae 00 08 | | ADD.L (A6+0x8),D0 00021812 53 80 |S | SUBQ.L #0x1,D0 00021814 53 80 |S | SUBQ.L #0x1,D0 00021816 0c 80 00 00 1f ff | | CMPI.L #0x00001fff,D0 0002181c 63 02 |c | BLS 0x21820 0002181e 4e 4f |NO | TRAP #15 00021820 41 f9 00 02 46 2c |A F, | LEA.L 0x2462c,A0 00021826 1c 30 08 08 | 0 | MOVE.B (A0+D0.L+#0x8),D6 0002182a 0c 06 00 2f | / | CMPI.B #0x2f,D6 0002182e 66 04 |f | BNE 0x21834 00021830 58 4f |XO | ADDQ.L #0x4,A7 00021832 60 12 |` | BRA 0x21846 00021834 2f 11 |/ | MOVE.L (A1),-(A7) 00021836 1f 06 | | MOVE.B D6,-(A7) 00021838 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 0002183e 5c 4f |\O | ADDQ.L #0x6,A7 00021840 52 87 |R | ADDQ.L #0x1,D7 00021842 68 c4 |h | BVC 0x21808 00021844 58 4f |XO | ADDQ.L #0x4,A7 00021846 2d 51 00 10 |-Q | MOVE.L (A1),(A6+0x10) 0002184a 4c df 03 c1 |L | MOVEM.L (A7)+,D0+D6+D7+A0+A1 0002184e 4e 5e |N^ | UNLK A6 00021850 4e 75 |Nu | RTS 00021852 ; -------------------------------------------------------------------------------------- 00021852 ; OMSI PASCAL Function 00021852 ; <LVAR 0x010 4(w)> 00021852 ; <LVAR 0x00c 4(r)> 00021852 ; <LVAR 0x008 4(r)> 00021852 ; -------------------------------------------------------------------------------------- 00021852 4e 56 ff e8 |NV | LINK.W A6,#0xffe8 00021856 bf d5 | | CMPA.L (A5),A7 00021858 62 06 |b | BHI 0x21860 0002185a 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002185e 4e 76 |Nv | TRAPV 00021860 de fc 00 18 | | ADDA.W #0x18,A7 00021864 9e fc 00 0c | | SUBA.W #0xc,A7 00021868 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 0002186c 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00021870 4e ba ff 02 |N | JSR 0x21774 00021874 50 4f |PO | ADDQ.L #0x8,A7 00021876 4e ba ff 5e |N ^ | JSR 0x217d6 0002187a 50 4f |PO | ADDQ.L #0x8,A7 0002187c 2d 5f 00 10 |-_ | MOVE.L (A7)+,(A6+0x10) 00021880 4e 5e |N^ | UNLK A6 00021882 4e 75 |Nu | RTS 00021884 ; -------------------------------------------------------------------------------------- 00021884 ; OMSI PASCAL Function 00021884 ; <LVAR 0x014 4(w)> 00021884 ; <LVAR 0x010 4(w)> 00021884 ; <LVAR 0x00c 4(r)> 00021884 ; <LVAR 0x008 4(r)> 00021884 ; -------------------------------------------------------------------------------------- 00021884 4e 56 ff e8 |NV | LINK.W A6,#0xffe8 00021888 bf d5 | | CMPA.L (A5),A7 0002188a 62 06 |b | BHI 0x21892 0002188c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021890 4e 76 |Nv | TRAPV 00021892 de fc 00 18 | | ADDA.W #0x18,A7 00021896 9e fc 00 0c | | SUBA.W #0xc,A7 0002189a 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 0002189e 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000218a2 4e ba ff ae |N | JSR 0x21852 000218a6 50 4f |PO | ADDQ.L #0x8,A7 000218a8 48 78 00 10 |Hx | PEA.L 0x10 000218ac 4e b9 00 01 03 60 |N ` | JSR ?StringToInt64() 000218b2 50 4f |PO | ADDQ.L #0x8,A7 000218b4 2d 5f 00 10 |-_ | MOVE.L (A7)+,(A6+0x10) 000218b8 2d 5f 00 14 |-_ | MOVE.L (A7)+,(A6+0x14) 000218bc 4e 5e |N^ | UNLK A6 000218be 4e 75 |Nu | RTS 000218c0 ; -------------------------------------------------------------------------------------- 000218c0 ; OMSI PASCAL Function 000218c0 ; <LVAR 0x010 4(w)> 000218c0 ; <LVAR 0x00c 4(r)> 000218c0 ; <LVAR 0x008 4(r)> 000218c0 ; -------------------------------------------------------------------------------------- 000218c0 4e 56 ff e8 |NV | LINK.W A6,#0xffe8 000218c4 bf d5 | | CMPA.L (A5),A7 000218c6 62 06 |b | BHI 0x218ce 000218c8 44 fc 00 02 |D | MOVE.W #0x2,CCR 000218cc 4e 76 |Nv | TRAPV 000218ce de fc 00 18 | | ADDA.W #0x18,A7 000218d2 9e fc 00 0c | | SUBA.W #0xc,A7 000218d6 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 000218da 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000218de 4e ba ff a4 |N | JSR 0x21884 000218e2 50 4f |PO | ADDQ.L #0x8,A7 000218e4 4e b9 00 01 03 50 |N P | JSR Quad2Long(a : Quad) : Long 000218ea 50 4f |PO | ADDQ.L #0x8,A7 000218ec 2d 5f 00 10 |-_ | MOVE.L (A7)+,(A6+0x10) 000218f0 4e 5e |N^ | UNLK A6 000218f2 4e 75 |Nu | RTS 000218f4 ; -------------------------------------------------------------------------------------- 000218f4 ; OMSI PASCAL Function 000218f4 ; <LVAR 0x008 @ 4(r)> 000218f4 ; -------------------------------------------------------------------------------------- 000218f4 4e 56 ff d4 |NV | LINK.W A6,#0xffd4 000218f8 bf d5 | | CMPA.L (A5),A7 000218fa 62 06 |b | BHI 0x21902 000218fc 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021900 4e 76 |Nv | TRAPV 00021902 de fc 00 28 | ( | ADDA.W #0x28,A7 00021906 48 e7 c1 e0 |H | MOVEM.L A2+A1+A0+D7+D1+D0,-(A7) 0002190a 45 f9 00 02 66 34 |E f4 | LEA.L 0x26634,A2 00021910 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00021914 2f 08 |/ | MOVE.L A0,-(A7) 00021916 2f 12 |/ | MOVE.L (A2),-(A7) 00021918 30 10 |0 | MOVE.W (A0),D0 0002191a 48 c0 |H | EXTW.L D0 0002191c 44 80 |D | NEG.L D0 0002191e 2f 00 |/ | MOVE.L D0,-(A7) 00021920 4e ba f7 5c |N \ | JSR 0x2107e 00021924 50 4f |PO | ADDQ.L #0x8,A7 00021926 30 10 |0 | MOVE.W (A0),D0 00021928 48 c0 |H | EXTW.L D0 0002192a 2f 00 |/ | MOVE.L D0,-(A7) 0002192c 7e 01 |~ | MOVEQ.L #0x01,D7 0002192e be 97 | | CMP.L (A7),D7 00021930 6e 34 |n4 | BGT 0x21966 00021932 20 07 | | MOVE.L D7,D0 00021934 d0 92 | | ADD.L (A2),D0 00021936 53 80 |S | SUBQ.L #0x1,D0 00021938 53 80 |S | SUBQ.L #0x1,D0 0002193a 0c 80 00 00 1f ff | | CMPI.L #0x00001fff,D0 00021940 63 02 |c | BLS 0x21944 00021942 4e 4f |NO | TRAP #15 00021944 41 f9 00 02 46 2c |A F, | LEA.L 0x2462c,A0 0002194a 22 07 |" | MOVE.L D7,D1 0002194c 53 81 |S | SUBQ.L #0x1,D1 0002194e 0c 81 00 00 00 7d | } | CMPI.L #0x0000007d,D1 00021954 63 02 |c | BLS 0x21958 00021956 4e 4f |NO | TRAP #15 00021958 22 6f 00 04 |"o | MOVEA.L (A7+0x4),A1 0002195c 11 b1 18 02 08 08 | | MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x8) 00021962 52 87 |R | ADDQ.L #0x1,D7 00021964 68 c8 |h | BVC 0x2192e 00021966 50 4f |PO | ADDQ.L #0x8,A7 00021968 48 6e 00 08 |Hn | PEA.L (A6+0x8) 0002196c 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00021972 58 4f |XO | ADDQ.L #0x4,A7 00021974 4c df 07 83 |L | MOVEM.L (A7)+,D0+D1+D7+A0+A1+A2 00021978 4e 5e |N^ | UNLK A6 0002197a 4e 75 |Nu | RTS 0002197c ; -------------------------------------------------------------------------------------- 0002197c ; OMSI PASCAL Function 0002197c ; <LVAR 0x00c 4(r)> 0002197c ; <LVAR 0x008 4(r)> 0002197c ; -------------------------------------------------------------------------------------- 0002197c 4e 56 ff ec |NV | LINK.W A6,#0xffec 00021980 bf d5 | | CMPA.L (A5),A7 00021982 62 06 |b | BHI 0x2198a 00021984 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021988 4e 76 |Nv | TRAPV 0002198a de fc 00 14 | | ADDA.W #0x14,A7 0002198e 59 4f |YO | SUBQ.L #0x4,A7 00021990 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00021994 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00021998 48 78 00 10 |Hx | PEA.L 0x10 0002199c 4e b9 00 01 03 5c |N \ | JSR Quad2String(a : Quad; radix : Long ) : String 000219a2 de fc 00 0c | | ADDA.W #0xc,A7 000219a6 4e ba ff 4c |N L | JSR 0x218f4 000219aa 58 4f |XO | ADDQ.L #0x4,A7 000219ac 4e 5e |N^ | UNLK A6 000219ae 4e 75 |Nu | RTS 000219b0 ; -------------------------------------------------------------------------------------- 000219b0 ; OMSI PASCAL Function 000219b0 ; <LVAR 0x008 4(r)> 000219b0 ; -------------------------------------------------------------------------------------- 000219b0 4e 56 ff f4 |NV | LINK.W A6,#0xfff4 000219b4 bf d5 | | CMPA.L (A5),A7 000219b6 62 06 |b | BHI 0x219be 000219b8 44 fc 00 02 |D | MOVE.W #0x2,CCR 000219bc 4e 76 |Nv | TRAPV 000219be de fc 00 0c | | ADDA.W #0xc,A7 000219c2 59 4f |YO | SUBQ.L #0x4,A7 000219c4 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000219c8 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 000219ce 58 4f |XO | ADDQ.L #0x4,A7 000219d0 4e ba ff 22 |N " | JSR 0x218f4 000219d4 58 4f |XO | ADDQ.L #0x4,A7 000219d6 4e 5e |N^ | UNLK A6 000219d8 4e 75 |Nu | RTS 000219da ; -------------------------------------------------------------------------------------- 000219da ; OMSI PASCAL Function 000219da ; <LVAR 0x008 4(r)> 000219da ; <LVAR -0x004 @ 4(r)> 000219da ; <LVAR -0x008 4(rw)> 000219da ; -------------------------------------------------------------------------------------- 000219da 4e 56 ff ca |NV | LINK.W A6,#0xffca 000219de bf d5 | | CMPA.L (A5),A7 000219e0 62 06 |b | BHI 0x219e8 000219e2 44 fc 00 02 |D | MOVE.W #0x2,CCR 000219e6 4e 76 |Nv | TRAPV 000219e8 de fc 00 2a | * | ADDA.W #0x2a,A7 000219ec 48 e7 81 e0 |H | MOVEM.L A2+A1+A0+D7+D0,-(A7) 000219f0 43 ee ff fc |C | LEA.L (A6-0x4),A1 000219f4 45 ee ff f8 |E | LEA.L (A6-0x8),A2 000219f8 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 000219fc 24 a8 00 08 |$ | MOVE.L (A0+0x8),(A2) 00021a00 48 51 |HQ | PEA.L (A1) 00021a02 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00021a08 58 4f |XO | ADDQ.L #0x4,A7 00021a0a 20 52 | R | MOVEA.L (A2),A0 00021a0c b0 fc 00 01 | | CMPA.W #0x1,A0 00021a10 67 00 00 86 |g | BEQ 0x21a98 00021a14 4a 90 |J | TST.L (A0) 00021a16 67 68 |gh | BEQ 0x21a80 00021a18 2f 28 00 04 |/( | MOVE.L (A0+0x4),-(A7) 00021a1c 2e 10 |. | MOVE.L (A0),D7 00021a1e be 97 | | CMP.L (A7),D7 00021a20 6e 14 |n | BGT 0x21a36 00021a22 20 17 | | MOVE.L (A7),D0 00021a24 0c 87 80 00 00 01 | | CMPI.L #0x80000001,D7 00021a2a 6d 08 |m | BLT 0x21a34 00021a2c 0c 80 7f ff ff ff | | CMPI.L #0x7fffffff,D0 00021a32 6f 02 |o | BLE 0x21a36 00021a34 4e 4f |NO | TRAP #15 00021a36 be 97 | | CMP.L (A7),D7 00021a38 6e 44 |nD | BGT 0x21a7e 00021a3a 2f 11 |/ | MOVE.L (A1),-(A7) 00021a3c 20 07 | | MOVE.L D7,D0 00021a3e 53 80 |S | SUBQ.L #0x1,D0 00021a40 0c 80 00 00 1f ff | | CMPI.L #0x00001fff,D0 00021a46 63 02 |c | BLS 0x21a4a 00021a48 4e 4f |NO | TRAP #15 00021a4a 41 f9 00 02 46 2c |A F, | LEA.L 0x2462c,A0 00021a50 1f 30 08 08 | 0 | MOVE.B (A0+D0.L+#0x8),-(A7) 00021a54 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00021a5a 5c 4f |\O | ADDQ.L #0x6,A7 00021a5c 20 51 | Q | MOVEA.L (A1),A0 00021a5e 30 10 |0 | MOVE.W (A0),D0 00021a60 0c 40 00 7a | @ z | CMPI.W #0x007a,D0 00021a64 6d 14 |m | BLT 0x21a7a 00021a66 2f 11 |/ | MOVE.L (A1),-(A7) 00021a68 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String) 00021a6e 58 4f |XO | ADDQ.L #0x4,A7 00021a70 48 51 |HQ | PEA.L (A1) 00021a72 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00021a78 58 4f |XO | ADDQ.L #0x4,A7 00021a7a 52 87 |R | ADDQ.L #0x1,D7 00021a7c 68 b8 |h | BVC 0x21a36 00021a7e 58 4f |XO | ADDQ.L #0x4,A7 00021a80 2f 11 |/ | MOVE.L (A1),-(A7) 00021a82 1f 3c 00 20 | < | MOVE.B #0x20,-(A7) 00021a86 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00021a8c 5c 4f |\O | ADDQ.L #0x6,A7 00021a8e 20 52 | R | MOVEA.L (A2),A0 00021a90 24 a8 00 08 |$ | MOVE.L (A0+0x8),(A2) 00021a94 60 00 ff 74 |` t | BRA 0x21a0a 00021a98 2f 11 |/ | MOVE.L (A1),-(A7) 00021a9a 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00021aa0 58 4f |XO | ADDQ.L #0x4,A7 00021aa2 4c df 07 81 |L | MOVEM.L (A7)+,D0+D7+A0+A1+A2 00021aa6 4e 5e |N^ | UNLK A6 00021aa8 4e 75 |Nu | RTS 00021aaa ; -------------------------------------------------------------------------------------- 00021aaa ; OMSI PASCAL Function 00021aaa ; <LVAR 0x008 @ 4(r)> 00021aaa ; <LVAR -0x003 @ 1(r)> 00021aaa ; <LVAR -0x004 @ 1(r)> 00021aaa ; <LVAR -0x008 @ 4(r)> 00021aaa ; <LVAR -0x00c @ 4(rw)> 00021aaa ; -------------------------------------------------------------------------------------- 00021aaa 4e 56 ff ae |NV | LINK.W A6,#0xffae 00021aae bf d5 | | CMPA.L (A5),A7 00021ab0 62 06 |b | BHI 0x21ab8 00021ab2 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021ab6 4e 76 |Nv | TRAPV 00021ab8 de fc 00 46 | F | ADDA.W #0x46,A7 00021abc 48 e7 c0 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D1+D0,-(A7) 00021ac0 43 ee 00 08 |C | LEA.L (A6+0x8),A1 00021ac4 45 ee ff f4 |E | LEA.L (A6-0xc),A2 00021ac8 47 ee ff fc |G | LEA.L (A6-0x4),A3 00021acc 49 ee ff f8 |I | LEA.L (A6-0x8),A4 00021ad0 72 01 |r | MOVEQ.L #0x01,D1 00021ad2 2f 3a ec 36 |/: 6 | MOVE.L 0x2070a,-(A7) 00021ad6 51 4f |QO | SUBQ.L #0x8,A7 00021ad8 2f 11 |/ | MOVE.L (A1),-(A7) 00021ada 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 00021ae0 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00021ae4 3f 01 |? | MOVE.W D1,-(A7) 00021ae6 3f 3c 00 04 |?< | MOVE.W #0x4,-(A7) 00021aea 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00021af0 50 4f |PO | ADDQ.L #0x8,A7 00021af2 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00021af8 50 4f |PO | ADDQ.L #0x8,A7 00021afa 24 9f |$ | MOVE.L (A7)+,(A2) 00021afc 2e 92 |. | MOVE.L (A2),(A7) 00021afe 42 27 |B' | CLR.B -(A7) 00021b00 42 27 |B' | CLR.B -(A7) 00021b02 48 78 00 00 |Hx | PEA.L 0x0 00021b06 48 53 |HS | PEA.L (A3) 00021b08 48 54 |HT | PEA.L (A4) 00021b0a 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File) 00021b10 de fc 00 14 | | ADDA.W #0x14,A7 00021b14 4a 13 |J | TST.B (A3) 00021b16 67 36 |g6 | BEQ 0x21b4e 00021b18 41 fa eb f0 |A | LEA.L 0x2070a,A0 00021b1c 70 0a |p | MOVEQ.L #0x0a,D0 00021b1e 3f 20 |? | MOVE.W -(A0),-(A7) 00021b20 51 c8 ff fc |Q | DBF D0,0x21b1e 00021b24 51 4f |QO | SUBQ.L #0x8,A7 00021b26 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00021b2a 3f 01 |? | MOVE.W D1,-(A7) 00021b2c 3f 3c 00 16 |?< | MOVE.W #0x16,-(A7) 00021b30 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00021b36 58 4f |XO | ADDQ.L #0x4,A7 00021b38 2e 91 |. | MOVE.L (A1),(A7) 00021b3a 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00021b40 50 4f |PO | ADDQ.L #0x8,A7 00021b42 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00021b48 de fc 00 1a | | ADDA.W #0x1a,A7 00021b4c 60 54 |`T | BRA 0x21ba2 00021b4e 2f 14 |/ | MOVE.L (A4),-(A7) 00021b50 48 51 |HQ | PEA.L (A1) 00021b52 48 6e ff fd |Hn | PEA.L (A6-0x3) 00021b56 4e b9 00 01 04 3c |N < | JSR FileReadLine(file : File; VAR a : String; VAR b : Byte) 00021b5c de fc 00 0c | | ADDA.W #0xc,A7 00021b60 4a 2e ff fd |J. | TST.B (A6-0x3) 00021b64 66 14 |f | BNE 0x21b7a 00021b66 59 4f |YO | SUBQ.L #0x4,A7 00021b68 2f 11 |/ | MOVE.L (A1),-(A7) 00021b6a 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 00021b70 58 4f |XO | ADDQ.L #0x4,A7 00021b72 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00021b78 58 4f |XO | ADDQ.L #0x4,A7 00021b7a 4a 2e ff fd |J. | TST.B (A6-0x3) 00021b7e 67 ce |g | BEQ 0x21b4e 00021b80 42 27 |B' | CLR.B -(A7) 00021b82 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 00021b86 48 78 00 01 |Hx | PEA.L 0x1 00021b8a 48 53 |HS | PEA.L (A3) 00021b8c 48 54 |HT | PEA.L (A4) 00021b8e 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File) 00021b94 de fc 00 10 | | ADDA.W #0x10,A7 00021b98 48 51 |HQ | PEA.L (A1) 00021b9a 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00021ba0 58 4f |XO | ADDQ.L #0x4,A7 00021ba2 48 52 |HR | PEA.L (A2) 00021ba4 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00021baa 58 4f |XO | ADDQ.L #0x4,A7 00021bac 4c df 1f 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2+A3+A4 00021bb0 4e 5e |N^ | UNLK A6 00021bb2 4e 75 |Nu | RTS 00021bb4 ; -------------------------------------------------------------------------------------- 00021bb4 ; OMSI PASCAL Function 00021bb4 ; <LVAR 0x008 4(r)> 00021bb4 ; -------------------------------------------------------------------------------------- 00021bb4 4e 56 ff c6 |NV | LINK.W A6,#0xffc6 00021bb8 bf d5 | | CMPA.L (A5),A7 00021bba 62 06 |b | BHI 0x21bc2 00021bbc 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021bc0 4e 76 |Nv | TRAPV 00021bc2 de fc 00 2e | . | ADDA.W #0x2e,A7 00021bc6 48 e7 83 88 |H | MOVEM.L A4+A0+D7+D6+D0,-(A7) 00021bca 59 4f |YO | SUBQ.L #0x4,A7 00021bcc 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00021bd0 4e ba f3 64 |N d | JSR 0x20f36 00021bd4 58 4f |XO | ADDQ.L #0x4,A7 00021bd6 2c 1f |, | MOVE.L (A7)+,D6 00021bd8 66 2e |f. | BNE 0x21c08 00021bda 41 f9 00 02 66 46 |A fF | LEA.L 0x26646,A0 00021be0 70 04 |p | MOVEQ.L #0x04,D0 00021be2 3f 20 |? | MOVE.W -(A0),-(A7) 00021be4 51 c8 ff fc |Q | DBF D0,0x21be2 00021be8 59 4f |YO | SUBQ.L #0x4,A7 00021bea 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021bee 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00021bf2 3f 3c 00 0a |?< | MOVE.W #0xa,-(A7) 00021bf6 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00021bfc 50 4f |PO | ADDQ.L #0x8,A7 00021bfe 4e ba fe aa |N | JSR 0x21aaa 00021c02 de fc 00 0e | | ADDA.W #0xe,A7 00021c06 60 26 |`& | BRA 0x21c2e 00021c08 2f 06 |/ | MOVE.L D6,-(A7) 00021c0a 7e 01 |~ | MOVEQ.L #0x01,D7 00021c0c be 97 | | CMP.L (A7),D7 00021c0e 6e 1c |n | BGT 0x21c2c 00021c10 59 4f |YO | SUBQ.L #0x4,A7 00021c12 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00021c16 2f 07 |/ | MOVE.L D7,-(A7) 00021c18 4e ba fc 38 |N 8 | JSR 0x21852 00021c1c 50 4f |PO | ADDQ.L #0x8,A7 00021c1e 28 5f |(_ | MOVEA.L (A7)+,A4 00021c20 2f 0c |/ | MOVE.L A4,-(A7) 00021c22 4e ba fe 86 |N | JSR 0x21aaa 00021c26 58 4f |XO | ADDQ.L #0x4,A7 00021c28 52 87 |R | ADDQ.L #0x1,D7 00021c2a 68 e0 |h | BVC 0x21c0c 00021c2c 58 4f |XO | ADDQ.L #0x4,A7 00021c2e 4c df 11 c1 |L | MOVEM.L (A7)+,D0+D6+D7+A0+A4 00021c32 4e 5e |N^ | UNLK A6 00021c34 4e 75 |Nu | RTS 00021c36 ; -------------------------------------------------------------------------------------- 00021c36 ; OMSI PASCAL Function 00021c36 ; <LVAR 0x00c @> 00021c36 ; <LVAR 0x008 @ 4(r)> 00021c36 ; <LVAR -0x020 @> 00021c36 ; -------------------------------------------------------------------------------------- 00021c36 4e 56 ff b8 |NV | LINK.W A6,#0xffb8 00021c3a bf d5 | | CMPA.L (A5),A7 00021c3c 62 06 |b | BHI 0x21c44 00021c3e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021c42 4e 76 |Nv | TRAPV 00021c44 de fc 00 24 | $ | ADDA.W #0x24,A7 00021c48 48 e7 e1 c0 |H | MOVEM.L A1+A0+D7+D2+D1+D0,-(A7) 00021c4c 74 1d |t | MOVEQ.L #0x1d,D2 00021c4e 7e 01 |~ | MOVEQ.L #0x01,D7 00021c50 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00021c54 30 10 |0 | MOVE.W (A0),D0 00021c56 48 c0 |H | EXTW.L D0 00021c58 be 80 | | CMP.L D0,D7 00021c5a 6f 10 |o | BLE 0x21c6c 00021c5c 20 07 | | MOVE.L D7,D0 00021c5e 53 80 |S | SUBQ.L #0x1,D0 00021c60 b0 82 | | CMP.L D2,D0 00021c62 63 02 |c | BLS 0x21c66 00021c64 4e 4f |NO | TRAP #15 00021c66 42 36 08 e0 |B6 | CLR.B (A6+D0.L-#0x20) 00021c6a 60 1e |` | BRA 0x21c8a 00021c6c 20 07 | | MOVE.L D7,D0 00021c6e 53 80 |S | SUBQ.L #0x1,D0 00021c70 b0 82 | | CMP.L D2,D0 00021c72 63 02 |c | BLS 0x21c76 00021c74 4e 4f |NO | TRAP #15 00021c76 22 07 |" | MOVE.L D7,D1 00021c78 53 81 |S | SUBQ.L #0x1,D1 00021c7a 0c 81 00 00 00 7d | } | CMPI.L #0x0000007d,D1 00021c80 63 02 |c | BLS 0x21c84 00021c82 4e 4f |NO | TRAP #15 00021c84 1d b0 18 02 08 e0 | | MOVE.B (A0+D1.L+#0x2),(A6+D0.L-#0x20) 00021c8a 52 87 |R | ADDQ.L #0x1,D7 00021c8c 0c 87 00 00 00 1e | | CMPI.L #0x0000001e,D7 00021c92 6f bc |o | BLE 0x21c50 00021c94 48 6e 00 08 |Hn | PEA.L (A6+0x8) 00021c98 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00021c9e 58 4f |XO | ADDQ.L #0x4,A7 00021ca0 41 ee 00 0c |A | LEA.L (A6+0xc),A0 00021ca4 43 ee ff e0 |C | LEA.L (A6-0x20),A1 00021ca8 70 0e |p | MOVEQ.L #0x0e,D0 00021caa 30 d9 |0 | MOVE.W (A1)+,(A0)+ 00021cac 51 c8 ff fc |Q | DBF D0,0x21caa 00021cb0 4c df 03 87 |L | MOVEM.L (A7)+,D0+D1+D2+D7+A0+A1 00021cb4 4e 5e |N^ | UNLK A6 00021cb6 4e 75 |Nu | RTS 00021cb8 ; -------------------------------------------------------------------------------------- 00021cb8 ; OMSI PASCAL Function 00021cb8 ; <LVAR 0x026 4(w)> 00021cb8 ; <LVAR 0x008 @> 00021cb8 ; <LVAR -0x006 4(rw)> 00021cb8 ; -------------------------------------------------------------------------------------- 00021cb8 4e 56 ff d6 |NV | LINK.W A6,#0xffd6 00021cbc bf d5 | | CMPA.L (A5),A7 00021cbe 62 06 |b | BHI 0x21cc6 00021cc0 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021cc4 4e 76 |Nv | TRAPV 00021cc6 de fc 00 24 | $ | ADDA.W #0x24,A7 00021cca 48 e7 c1 f0 |H | MOVEM.L A3+A2+A1+A0+D7+D1+D0,-(A7) 00021cce 47 ee ff fa |G | LEA.L (A6-0x6),A3 00021cd2 7e 00 |~ | MOVEQ.L #0x00,D7 00021cd4 26 b9 00 02 66 5e |& f^ | MOVE.L 0x2665e,(A3) 00021cda 20 53 | S | MOVEA.L (A3),A0 00021cdc b0 fc 00 01 | | CMPA.W #0x1,A0 00021ce0 67 1e |g | BEQ 0x21d00 00021ce2 4a 07 |J | TST.B D7 00021ce4 66 1a |f | BNE 0x21d00 00021ce6 22 48 |"H | MOVEA.L A0,A1 00021ce8 45 ee 00 08 |E | LEA.L (A6+0x8),A2 00021cec 70 1d |p | MOVEQ.L #0x1d,D0 00021cee b5 09 | | CMPM.B (A1)+,(A2)+ 00021cf0 56 c8 ff fc |V | DBNE D0,0x21cee 00021cf4 66 04 |f | BNE 0x21cfa 00021cf6 7e 01 |~ | MOVEQ.L #0x01,D7 00021cf8 60 04 |` | BRA 0x21cfe 00021cfa 26 a8 00 26 |& & | MOVE.L (A0+0x26),(A3) 00021cfe 60 da |` | BRA 0x21cda 00021d00 2d 48 00 26 |-H & | MOVE.L A0,(A6+0x26) 00021d04 4c df 0f 83 |L | MOVEM.L (A7)+,D0+D1+D7+A0+A1+A2+A3 00021d08 4e 5e |N^ | UNLK A6 00021d0a 4e 75 |Nu | RTS 00021d0c ; -------------------------------------------------------------------------------------- 00021d0c ; OMSI PASCAL Function 00021d0c ; <LVAR 0x008 @ 4(r)> 00021d0c ; -------------------------------------------------------------------------------------- 00021d0c 4e 56 ff c8 |NV | LINK.W A6,#0xffc8 00021d10 bf d5 | | CMPA.L (A5),A7 00021d12 62 06 |b | BHI 0x21d1a 00021d14 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021d18 4e 76 |Nv | TRAPV 00021d1a de fc 00 2c | , | ADDA.W #0x2c,A7 00021d1e 48 e7 81 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D0,-(A7) 00021d22 43 ee 00 08 |C | LEA.L (A6+0x8),A1 00021d26 45 f9 00 02 66 5e |E f^ | LEA.L 0x2665e,A2 00021d2c 70 01 |p | MOVEQ.L #0x01,D0 00021d2e 20 51 | Q | MOVEA.L (A1),A0 00021d30 b0 c0 | | CMPA.W D0,A0 00021d32 67 56 |gV | BEQ 0x21d8a 00021d34 4a a8 00 1e |J | TST.L (A0+0x1e) 00021d38 67 10 |g | BEQ 0x21d4a 00021d3a 2f 28 00 22 |/( " | MOVE.L (A0+0x22),-(A7) 00021d3e 2f 28 00 1e |/( | MOVE.L (A0+0x1e),-(A7) 00021d42 4e b9 00 01 02 a4 |N | JSR Free1(a : Pointer; b : Long) 00021d48 50 4f |PO | ADDQ.L #0x8,A7 00021d4a 7e 00 |~ | MOVEQ.L #0x00,D7 00021d4c 38 40 |8@ | MOVEA.W D0,A4 00021d4e 26 52 |&R | MOVEA.L (A2),A3 00021d50 b6 c0 | | CMPA.W D0,A3 00021d52 67 14 |g | BEQ 0x21d68 00021d54 4a 07 |J | TST.B D7 00021d56 66 10 |f | BNE 0x21d68 00021d58 b7 d1 | | CMPA.L (A1),A3 00021d5a 66 04 |f | BNE 0x21d60 00021d5c 7e 01 |~ | MOVEQ.L #0x01,D7 00021d5e 60 06 |` | BRA 0x21d66 00021d60 28 4b |(K | MOVEA.L A3,A4 00021d62 26 6b 00 26 |&k & | MOVEA.L (A3+0x26),A3 00021d66 60 e8 |` | BRA 0x21d50 00021d68 4a 07 |J | TST.B D7 00021d6a 67 1e |g | BEQ 0x21d8a 00021d6c b8 c0 | | CMPA.W D0,A4 00021d6e 66 06 |f | BNE 0x21d76 00021d70 24 ab 00 26 |$ & | MOVE.L (A3+0x26),(A2) 00021d74 60 06 |` | BRA 0x21d7c 00021d76 29 6b 00 26 00 26 |)k & & | MOVE.L (A3+0x26),(A4+0x26) 00021d7c 48 51 |HQ | PEA.L (A1) 00021d7e 48 78 00 2a |Hx * | PEA.L 0x2a 00021d82 4e b9 00 01 02 a8 |N | JSR Free2(a : Pointer; b : Long) 00021d88 50 4f |PO | ADDQ.L #0x8,A7 00021d8a 4c df 1f 81 |L | MOVEM.L (A7)+,D0+D7+A0+A1+A2+A3+A4 00021d8e 4e 5e |N^ | UNLK A6 00021d90 4e 75 |Nu | RTS 00021d92 ; -------------------------------------------------------------------------------------- 00021d92 ; OMSI PASCAL Function 00021d92 ; <LVAR 0x010 4(w)> 00021d92 ; <LVAR 0x00c 4(r)> 00021d92 ; <LVAR 0x008 4(r)> 00021d92 ; <LVAR -0x006 @ 4(rw)> 00021d92 ; <LVAR -0x024 @> 00021d92 ; -------------------------------------------------------------------------------------- 00021d92 4e 56 ff 9a |NV | LINK.W A6,#0xff9a 00021d96 bf d5 | | CMPA.L (A5),A7 00021d98 62 06 |b | BHI 0x21da0 00021d9a 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021d9e 4e 76 |Nv | TRAPV 00021da0 de fc 00 42 | B | ADDA.W #0x42,A7 00021da4 48 e7 c0 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D1+D0,-(A7) 00021da8 47 ee ff fa |G | LEA.L (A6-0x6),A3 00021dac 49 ee 00 08 |I | LEA.L (A6+0x8),A4 00021db0 72 1e |r | MOVEQ.L #0x1e,D1 00021db2 9e c1 | | SUBA.W D1,A7 00021db4 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 00021db8 2f 10 |/ | MOVE.L (A0),-(A7) 00021dba 4e ba fe 7a |N z | JSR 0x21c36 00021dbe 58 4f |XO | ADDQ.L #0x4,A7 00021dc0 41 ee ff dc |A | LEA.L (A6-0x24),A0 00021dc4 70 0e |p | MOVEQ.L #0x0e,D0 00021dc6 30 df |0 | MOVE.W (A7)+,(A0)+ 00021dc8 51 c8 ff fc |Q | DBF D0,0x21dc6 00021dcc 4a 94 |J | TST.L (A4) 00021dce 6c 02 |l | BGE 0x21dd2 00021dd0 42 94 |B | CLR.L (A4) 00021dd2 59 4f |YO | SUBQ.L #0x4,A7 00021dd4 20 4b | K | MOVEA.L A3,A0 00021dd6 70 0e |p | MOVEQ.L #0x0e,D0 00021dd8 3f 20 |? | MOVE.W -(A0),-(A7) 00021dda 51 c8 ff fc |Q | DBF D0,0x21dd8 00021dde 4e ba fe d8 |N | JSR 0x21cb8 00021de2 de c1 | | ADDA.W D1,A7 00021de4 26 9f |& | MOVE.L (A7)+,(A3) 00021de6 20 53 | S | MOVEA.L (A3),A0 00021de8 b0 fc 00 01 | | CMPA.W #0x1,A0 00021dec 67 12 |g | BEQ 0x21e00 00021dee 20 28 00 1e | ( | MOVE.L (A0+0x1e),D0 00021df2 b0 94 | | CMP.L (A4),D0 00021df4 66 02 |f | BNE 0x21df8 00021df6 60 4c |`L | BRA 0x21e44 00021df8 2f 13 |/ | MOVE.L (A3),-(A7) 00021dfa 4e ba ff 10 |N | JSR 0x21d0c 00021dfe 58 4f |XO | ADDQ.L #0x4,A7 00021e00 48 53 |HS | PEA.L (A3) 00021e02 48 78 00 2a |Hx * | PEA.L 0x2a 00021e06 4e b9 00 01 02 9c |N | JSR Malloc1(length : Long) : Pointer 00021e0c 50 4f |PO | ADDQ.L #0x8,A7 00021e0e 20 53 | S | MOVEA.L (A3),A0 00021e10 21 79 00 02 66 5e 00 26 |!y f^ &| MOVE.L 0x2665e,(A0+0x26) 00021e18 23 d3 00 02 66 5e |# f^ | MOVE.L (A3),0x2665e 00021e1e 22 48 |"H | MOVEA.L A0,A1 00021e20 45 ee ff dc |E | LEA.L (A6-0x24),A2 00021e24 70 1d |p | MOVEQ.L #0x1d,D0 00021e26 12 da | | MOVE.B (A2)+,(A1)+ 00021e28 51 c8 ff fc |Q | DBF D0,0x21e26 00021e2c 21 54 00 1e |!T | MOVE.L (A4),(A0+0x1e) 00021e30 4a 94 |J | TST.L (A4) 00021e32 67 10 |g | BEQ 0x21e44 00021e34 59 4f |YO | SUBQ.L #0x4,A7 00021e36 2f 14 |/ | MOVE.L (A4),-(A7) 00021e38 4e b9 00 01 02 a0 |N | JSR Malloc2(VAR dst : Pointer; length : Word) 00021e3e 58 4f |XO | ADDQ.L #0x4,A7 00021e40 21 5f 00 22 |!_ " | MOVE.L (A7)+,(A0+0x22) 00021e44 2d 53 00 10 |-S | MOVE.L (A3),(A6+0x10) 00021e48 4c df 1f 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2+A3+A4 00021e4c 4e 5e |N^ | UNLK A6 00021e4e 4e 75 |Nu | RTS 00021e50 ; -------------------------------------------------------------------------------------- 00021e50 ; OMSI PASCAL Function 00021e50 ; <LVAR 0x00c @> 00021e50 ; <LVAR 0x008 @ 4(r)> 00021e50 ; <LVAR -0x008 4(rw)> 00021e50 ; -------------------------------------------------------------------------------------- 00021e50 4e 56 ff c8 |NV | LINK.W A6,#0xffc8 00021e54 bf d5 | | CMPA.L (A5),A7 00021e56 62 06 |b | BHI 0x21e5e 00021e58 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021e5c 4e 76 |Nv | TRAPV 00021e5e de fc 00 2c | , | ADDA.W #0x2c,A7 00021e62 48 e7 c3 e0 |H | MOVEM.L A2+A1+A0+D7+D6+D1+D0,-(A7) 00021e66 45 ee 00 08 |E | LEA.L (A6+0x8),A2 00021e6a 20 52 | R | MOVEA.L (A2),A0 00021e6c 30 10 |0 | MOVE.W (A0),D0 00021e6e 48 c0 |H | EXTW.L D0 00021e70 2c 00 |, | MOVE.L D0,D6 00021e72 59 4f |YO | SUBQ.L #0x4,A7 00021e74 48 6e 00 0c |Hn | PEA.L (A6+0xc) 00021e78 2f 06 |/ | MOVE.L D6,-(A7) 00021e7a 4e ba ff 16 |N | JSR 0x21d92 00021e7e 50 4f |PO | ADDQ.L #0x8,A7 00021e80 2d 5f ff f8 |-_ | MOVE.L (A7)+,(A6-0x8) 00021e84 4a 86 |J | TST.L D6 00021e86 67 40 |g@ | BEQ 0x21ec8 00021e88 20 6e ff f8 | n | MOVEA.L (A6-0x8),A0 00021e8c 20 68 00 22 | h " | MOVEA.L (A0+0x22),A0 00021e90 2f 08 |/ | MOVE.L A0,-(A7) 00021e92 2f 06 |/ | MOVE.L D6,-(A7) 00021e94 7e 01 |~ | MOVEQ.L #0x01,D7 00021e96 be 97 | | CMP.L (A7),D7 00021e98 6e 2c |n, | BGT 0x21ec6 00021e9a 20 07 | | MOVE.L D7,D0 00021e9c 53 80 |S | SUBQ.L #0x1,D0 00021e9e 0c 80 00 00 03 ff | | CMPI.L #0x000003ff,D0 00021ea4 63 02 |c | BLS 0x21ea8 00021ea6 4e 4f |NO | TRAP #15 00021ea8 20 6f 00 04 | o | MOVEA.L (A7+0x4),A0 00021eac 22 52 |"R | MOVEA.L (A2),A1 00021eae 22 07 |" | MOVE.L D7,D1 00021eb0 53 81 |S | SUBQ.L #0x1,D1 00021eb2 0c 81 00 00 00 7d | } | CMPI.L #0x0000007d,D1 00021eb8 63 02 |c | BLS 0x21ebc 00021eba 4e 4f |NO | TRAP #15 00021ebc 11 b1 18 02 08 00 | | MOVE.B (A1+D1.L+#0x2),(A0+D0.L) 00021ec2 52 87 |R | ADDQ.L #0x1,D7 00021ec4 68 d0 |h | BVC 0x21e96 00021ec6 50 4f |PO | ADDQ.L #0x8,A7 00021ec8 48 52 |HR | PEA.L (A2) 00021eca 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00021ed0 58 4f |XO | ADDQ.L #0x4,A7 00021ed2 4c df 07 c3 |L | MOVEM.L (A7)+,D0+D1+D6+D7+A0+A1+A2 00021ed6 4e 5e |N^ | UNLK A6 00021ed8 4e 75 |Nu | RTS 00021eda ; -------------------------------------------------------------------------------------- 00021eda ; OMSI PASCAL Function 00021eda ; <LVAR 0x008 4(r)> 00021eda ; <LVAR -0x004 @ 4(w)> 00021eda ; <LVAR -0x008 4(rw)> 00021eda ; <LVAR -0x00c 4(rw)> 00021eda ; <LVAR -0x010 4(rw)> 00021eda ; <LVAR -0x01c 4(rw)> 00021eda ; <LVAR -0x020 4(rw)> 00021eda ; -------------------------------------------------------------------------------------- 00021eda 4e 56 ff 82 |NV | LINK.W A6,#0xff82 00021ede bf d5 | | CMPA.L (A5),A7 00021ee0 62 06 |b | BHI 0x21ee8 00021ee2 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021ee6 4e 76 |Nv | TRAPV 00021ee8 de fc 00 5a | Z | ADDA.W #0x5a,A7 00021eec 48 e7 e7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7) 00021ef0 45 ee ff f4 |E | LEA.L (A6-0xc),A2 00021ef4 47 ee ff f0 |G | LEA.L (A6-0x10),A3 00021ef8 49 ee 00 08 |I | LEA.L (A6+0x8),A4 00021efc 74 01 |t | MOVEQ.L #0x01,D2 00021efe 59 4f |YO | SUBQ.L #0x4,A7 00021f00 2f 14 |/ | MOVE.L (A4),-(A7) 00021f02 4e ba f0 32 |N 2 | JSR 0x20f36 00021f06 58 4f |XO | ADDQ.L #0x4,A7 00021f08 26 9f |& | MOVE.L (A7)+,(A3) 00021f0a 20 13 | | MOVE.L (A3),D0 00021f0c b0 82 | | CMP.L D2,D0 00021f0e 6c 2e |l. | BGE 0x21f3e 00021f10 9e fc 00 1a | | SUBA.W #0x1a,A7 00021f14 20 4f | O | MOVEA.L A7,A0 00021f16 43 fa e7 f6 |C | LEA.L 0x2070e,A1 00021f1a 72 18 |r | MOVEQ.L #0x18,D1 00021f1c 10 d9 | | MOVE.B (A1)+,(A0)+ 00021f1e 51 c9 ff fc |Q | DBF D1,0x21f1c 00021f22 59 4f |YO | SUBQ.L #0x4,A7 00021f24 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021f28 3f 02 |? | MOVE.W D2,-(A7) 00021f2a 3f 3c 00 19 |?< | MOVE.W #0x19,-(A7) 00021f2e 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00021f34 50 4f |PO | ADDQ.L #0x8,A7 00021f36 4e ba eb f2 |N | JSR 0x20b2a 00021f3a de fc 00 1e | | ADDA.W #0x1e,A7 00021f3e 42 92 |B | CLR.L (A2) 00021f40 2f 00 |/ | MOVE.L D0,-(A7) 00021f42 7c 02 || | MOVEQ.L #0x02,D6 00021f44 bc 97 | | CMP.L (A7),D6 00021f46 6e 1e |n | BGT 0x21f66 00021f48 9e fc 00 0c | | SUBA.W #0xc,A7 00021f4c 2f 14 |/ | MOVE.L (A4),-(A7) 00021f4e 2f 06 |/ | MOVE.L D6,-(A7) 00021f50 4e ba f8 22 |N " | JSR 0x21774 00021f54 50 4f |PO | ADDQ.L #0x8,A7 00021f56 4e ba f7 e4 |N | JSR 0x2173c 00021f5a 50 4f |PO | ADDQ.L #0x8,A7 00021f5c 20 12 | | MOVE.L (A2),D0 00021f5e d0 9f | | ADD.L (A7)+,D0 00021f60 24 80 |$ | MOVE.L D0,(A2) 00021f62 52 86 |R | ADDQ.L #0x1,D6 00021f64 68 de |h | BVC 0x21f44 00021f66 58 4f |XO | ADDQ.L #0x4,A7 00021f68 20 13 | | MOVE.L (A3),D0 00021f6a 55 80 |U | SUBQ.L #0x2,D0 00021f6c d1 92 | | ADD.L D0,(A2) 00021f6e 59 4f |YO | SUBQ.L #0x4,A7 00021f70 2f 14 |/ | MOVE.L (A4),-(A7) 00021f72 48 78 00 01 |Hx | PEA.L 0x1 00021f76 4e ba f8 da |N | JSR 0x21852 00021f7a 50 4f |PO | ADDQ.L #0x8,A7 00021f7c 2d 57 ff fc |-W | MOVE.L (A7),(A6-0x4) 00021f80 48 6e ff fc |Hn | PEA.L (A6-0x4) 00021f84 2f 12 |/ | MOVE.L (A2),-(A7) 00021f86 4e ba fe 0a |N | JSR 0x21d92 00021f8a 50 4f |PO | ADDQ.L #0x8,A7 00021f8c 2d 5f ff f8 |-_ | MOVE.L (A7)+,(A6-0x8) 00021f90 4a 92 |J | TST.L (A2) 00021f92 6f 00 00 aa |o | BLE 0x2203e 00021f96 20 6e ff f8 | n | MOVEA.L (A6-0x8),A0 00021f9a 20 68 00 22 | h " | MOVEA.L (A0+0x22),A0 00021f9e 2f 08 |/ | MOVE.L A0,-(A7) 00021fa0 7e 01 |~ | MOVEQ.L #0x01,D7 00021fa2 2f 13 |/ | MOVE.L (A3),-(A7) 00021fa4 7c 02 || | MOVEQ.L #0x02,D6 00021fa6 bc 97 | | CMP.L (A7),D6 00021fa8 6e 00 00 92 |n | BGT 0x2203c 00021fac 51 4f |QO | SUBQ.L #0x8,A7 00021fae 2f 14 |/ | MOVE.L (A4),-(A7) 00021fb0 2f 06 |/ | MOVE.L D6,-(A7) 00021fb2 4e ba f7 c0 |N | JSR 0x21774 00021fb6 50 4f |PO | ADDQ.L #0x8,A7 00021fb8 2d 5f ff e0 |-_ | MOVE.L (A7)+,(A6-0x20) 00021fbc 2d 5f ff e4 |-_ | MOVE.L (A7)+,(A6-0x1c) 00021fc0 2f 2e ff e4 |/. | MOVE.L (A6-0x1c),-(A7) 00021fc4 2a 2e ff e0 |*. | MOVE.L (A6-0x20),D5 00021fc8 ba 97 | | CMP.L (A7),D5 00021fca 6e 14 |n | BGT 0x21fe0 00021fcc 20 17 | | MOVE.L (A7),D0 00021fce 0c 85 80 00 00 01 | | CMPI.L #0x80000001,D5 00021fd4 6d 08 |m | BLT 0x21fde 00021fd6 0c 80 7f ff ff ff | | CMPI.L #0x7fffffff,D0 00021fdc 6f 02 |o | BLE 0x21fe0 00021fde 4e 4f |NO | TRAP #15 00021fe0 ba 97 | | CMP.L (A7),D5 00021fe2 6e 32 |n2 | BGT 0x22016 00021fe4 20 07 | | MOVE.L D7,D0 00021fe6 53 80 |S | SUBQ.L #0x1,D0 00021fe8 0c 80 00 00 03 ff | | CMPI.L #0x000003ff,D0 00021fee 63 02 |c | BLS 0x21ff2 00021ff0 4e 4f |NO | TRAP #15 00021ff2 20 6f 00 08 | o | MOVEA.L (A7+0x8),A0 00021ff6 22 05 |" | MOVE.L D5,D1 00021ff8 53 81 |S | SUBQ.L #0x1,D1 00021ffa 0c 81 00 00 1f ff | | CMPI.L #0x00001fff,D1 00022000 63 02 |c | BLS 0x22004 00022002 4e 4f |NO | TRAP #15 00022004 43 f9 00 02 46 2c |C F, | LEA.L 0x2462c,A1 0002200a 11 b1 18 08 08 00 | | MOVE.B (A1+D1.L+#0x8),(A0+D0.L) 00022010 52 87 |R | ADDQ.L #0x1,D7 00022012 52 85 |R | ADDQ.L #0x1,D5 00022014 68 ca |h | BVC 0x21fe0 00022016 58 4f |XO | ADDQ.L #0x4,A7 00022018 bc 93 | | CMP.L (A3),D6 0002201a 67 1a |g | BEQ 0x22036 0002201c 20 07 | | MOVE.L D7,D0 0002201e 53 80 |S | SUBQ.L #0x1,D0 00022020 0c 80 00 00 03 ff | | CMPI.L #0x000003ff,D0 00022026 63 02 |c | BLS 0x2202a 00022028 4e 4f |NO | TRAP #15 0002202a 20 6f 00 04 | o | MOVEA.L (A7+0x4),A0 0002202e 11 bc 00 2c 08 00 | , | MOVE.B #0x2c,(A0+D0.L) 00022034 52 87 |R | ADDQ.L #0x1,D7 00022036 52 86 |R | ADDQ.L #0x1,D6 00022038 68 00 ff 6c |h l | BVC 0x21fa6 0002203c 50 4f |PO | ADDQ.L #0x8,A7 0002203e 4c df 1f e7 |L | MOVEM.L (A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3+A4 00022042 4e 5e |N^ | UNLK A6 00022044 4e 75 |Nu | RTS 00022046 ; -------------------------------------------------------------------------------------- 00022046 ; OMSI PASCAL Function 00022046 ; <LVAR 0x008 4(r)> 00022046 ; <LVAR -0x00c 4(rw)> 00022046 ; -------------------------------------------------------------------------------------- 00022046 4e 56 ff a0 |NV | LINK.W A6,#0xffa0 0002204a bf d5 | | CMPA.L (A5),A7 0002204c 62 06 |b | BHI 0x22054 0002204e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022052 4e 76 |Nv | TRAPV 00022054 de fc 00 54 | T | ADDA.W #0x54,A7 00022058 48 e7 e1 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D2+D1+D0,-(A7) 0002205c 47 f9 00 02 66 34 |G f4 | LEA.L 0x26634,A3 00022062 74 01 |t | MOVEQ.L #0x01,D2 00022064 59 4f |YO | SUBQ.L #0x4,A7 00022066 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 0002206a 48 78 00 01 |Hx | PEA.L 0x1 0002206e 4e ba f7 e2 |N | JSR 0x21852 00022072 50 4f |PO | ADDQ.L #0x8,A7 00022074 28 5f |(_ | MOVEA.L (A7)+,A4 00022076 9e fc 00 22 | " | SUBA.W #0x22,A7 0002207a 2f 0c |/ | MOVE.L A4,-(A7) 0002207c 4e ba fb b8 |N | JSR 0x21c36 00022080 58 4f |XO | ADDQ.L #0x4,A7 00022082 4e ba fc 34 |N 4 | JSR 0x21cb8 00022086 de fc 00 1e | | ADDA.W #0x1e,A7 0002208a 2d 5f ff f4 |-_ | MOVE.L (A7)+,(A6-0xc) 0002208e 20 6e ff f4 | n | MOVEA.L (A6-0xc),A0 00022092 b0 c2 | | CMPA.W D2,A0 00022094 66 42 |fB | BNE 0x220d8 00022096 9e fc 00 14 | | SUBA.W #0x14,A7 0002209a 22 4f |"O | MOVEA.L A7,A1 0002209c 45 fa e6 8a |E | LEA.L 0x20728,A2 000220a0 70 12 |p | MOVEQ.L #0x12,D0 000220a2 12 da | | MOVE.B (A2)+,(A1)+ 000220a4 51 c8 ff fc |Q | DBF D0,0x220a2 000220a8 51 4f |QO | SUBQ.L #0x8,A7 000220aa 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000220ae 3f 02 |? | MOVE.W D2,-(A7) 000220b0 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7) 000220b4 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000220ba 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7) 000220be 48 78 00 01 |Hx | PEA.L 0x1 000220c2 4e ba f7 8e |N | JSR 0x21852 000220c6 50 4f |PO | ADDQ.L #0x8,A7 000220c8 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000220ce 50 4f |PO | ADDQ.L #0x8,A7 000220d0 4e ba ea 58 |N X | JSR 0x20b2a 000220d4 de fc 00 18 | | ADDA.W #0x18,A7 000220d8 2f 08 |/ | MOVE.L A0,-(A7) 000220da 2f 13 |/ | MOVE.L (A3),-(A7) 000220dc 2f 28 00 1e |/( | MOVE.L (A0+0x1e),-(A7) 000220e0 44 97 |D | NEG.L (A7) 000220e2 4e ba ef 9a |N | JSR 0x2107e 000220e6 58 4f |XO | ADDQ.L #0x4,A7 000220e8 2e a8 00 1e |. | MOVE.L (A0+0x1e),(A7) 000220ec 7e 01 |~ | MOVEQ.L #0x01,D7 000220ee be 97 | | CMP.L (A7),D7 000220f0 6e 38 |n8 | BGT 0x2212a 000220f2 20 07 | | MOVE.L D7,D0 000220f4 d0 93 | | ADD.L (A3),D0 000220f6 53 80 |S | SUBQ.L #0x1,D0 000220f8 53 80 |S | SUBQ.L #0x1,D0 000220fa 0c 80 00 00 1f ff | | CMPI.L #0x00001fff,D0 00022100 63 02 |c | BLS 0x22104 00022102 4e 4f |NO | TRAP #15 00022104 41 f9 00 02 46 2c |A F, | LEA.L 0x2462c,A0 0002210a 22 6f 00 04 |"o | MOVEA.L (A7+0x4),A1 0002210e 22 69 00 22 |"i " | MOVEA.L (A1+0x22),A1 00022112 22 07 |" | MOVE.L D7,D1 00022114 53 81 |S | SUBQ.L #0x1,D1 00022116 0c 81 00 00 03 ff | | CMPI.L #0x000003ff,D1 0002211c 63 02 |c | BLS 0x22120 0002211e 4e 4f |NO | TRAP #15 00022120 11 b1 18 00 08 08 | | MOVE.B (A1+D1.L),(A0+D0.L+#0x8) 00022126 52 87 |R | ADDQ.L #0x1,D7 00022128 68 c4 |h | BVC 0x220ee 0002212a 50 4f |PO | ADDQ.L #0x8,A7 0002212c 4c df 1f 87 |L | MOVEM.L (A7)+,D0+D1+D2+D7+A0+A1+A2+A3+A4 00022130 4e 5e |N^ | UNLK A6 00022132 4e 75 |Nu | RTS 00022134 ; -------------------------------------------------------------------------------------- 00022134 ; OMSI PASCAL Function 00022134 ; <LVAR -0x004 4(rw)> 00022134 ; -------------------------------------------------------------------------------------- 00022134 4e 56 ff ae |NV | LINK.W A6,#0xffae 00022138 bf d5 | | CMPA.L (A5),A7 0002213a 62 06 |b | BHI 0x22142 0002213c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022140 4e 76 |Nv | TRAPV 00022142 de fc 00 4e | N | ADDA.W #0x4e,A7 00022146 48 e7 e0 f0 |H | MOVEM.L A3+A2+A1+A0+D2+D1+D0,-(A7) 0002214a 47 ee ff fc |G | LEA.L (A6-0x4),A3 0002214e 72 01 |r | MOVEQ.L #0x01,D1 00022150 74 1e |t | MOVEQ.L #0x1e,D2 00022152 26 b9 00 02 66 5e |& f^ | MOVE.L 0x2665e,(A3) 00022158 20 53 | S | MOVEA.L (A3),A0 0002215a b0 c1 | | CMPA.W D1,A0 0002215c 67 30 |g0 | BEQ 0x2218e 0002215e 9e c2 | | SUBA.W D2,A7 00022160 22 4f |"O | MOVEA.L A7,A1 00022162 24 48 |$H | MOVEA.L A0,A2 00022164 70 1d |p | MOVEQ.L #0x1d,D0 00022166 12 da | | MOVE.B (A2)+,(A1)+ 00022168 51 c8 ff fc |Q | DBF D0,0x22166 0002216c 59 4f |YO | SUBQ.L #0x4,A7 0002216e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022172 3f 01 |? | MOVE.W D1,-(A7) 00022174 3f 02 |? | MOVE.W D2,-(A7) 00022176 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002217c 50 4f |PO | ADDQ.L #0x8,A7 0002217e 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00022184 de fc 00 22 | " | ADDA.W #0x22,A7 00022188 26 a8 00 26 |& & | MOVE.L (A0+0x26),(A3) 0002218c 60 ca |` | BRA 0x22158 0002218e 4c df 0f 07 |L | MOVEM.L (A7)+,D0+D1+D2+A0+A1+A2+A3 00022192 4e 5e |N^ | UNLK A6 00022194 4e 75 |Nu | RTS 00022196 ; -------------------------------------------------------------------------------------- 00022196 ; OMSI PASCAL Function 00022196 ; <LVAR 0x008 4(r)> 00022196 ; -------------------------------------------------------------------------------------- 00022196 4e 56 ff ce |NV | LINK.W A6,#0xffce 0002219a bf d5 | | CMPA.L (A5),A7 0002219c 62 06 |b | BHI 0x221a4 0002219e 44 fc 00 02 |D | MOVE.W #0x2,CCR 000221a2 4e 76 |Nv | TRAPV 000221a4 de fc 00 32 | 2 | ADDA.W #0x32,A7 000221a8 9e fc 00 26 | & | SUBA.W #0x26,A7 000221ac 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000221b0 48 78 00 01 |Hx | PEA.L 0x1 000221b4 4e ba f6 9c |N | JSR 0x21852 000221b8 50 4f |PO | ADDQ.L #0x8,A7 000221ba 4e ba fa 7a |N z | JSR 0x21c36 000221be 58 4f |XO | ADDQ.L #0x4,A7 000221c0 4e ba fa f6 |N | JSR 0x21cb8 000221c4 de fc 00 1e | | ADDA.W #0x1e,A7 000221c8 4e ba fb 42 |N B | JSR 0x21d0c 000221cc 58 4f |XO | ADDQ.L #0x4,A7 000221ce 4e 5e |N^ | UNLK A6 000221d0 4e 75 |Nu | RTS 000221d2 ; -------------------------------------------------------------------------------------- 000221d2 ; OMSI PASCAL Function 000221d2 ; -------------------------------------------------------------------------------------- 000221d2 4e 56 ff f4 |NV | LINK.W A6,#0xfff4 000221d6 bf d5 | | CMPA.L (A5),A7 000221d8 62 06 |b | BHI 0x221e0 000221da 44 fc 00 02 |D | MOVE.W #0x2,CCR 000221de 4e 76 |Nv | TRAPV 000221e0 de fc 00 0c | | ADDA.W #0xc,A7 000221e4 51 4f |QO | SUBQ.L #0x8,A7 000221e6 4e b9 00 01 03 cc |N | JSR GetPushLevel() : Long 000221ec 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 000221f2 58 4f |XO | ADDQ.L #0x4,A7 000221f4 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000221fa 58 4f |XO | ADDQ.L #0x4,A7 000221fc 4e 5e |N^ | UNLK A6 000221fe 4e 75 |Nu | RTS 00022200 ; -------------------------------------------------------------------------------------- 00022200 ; OMSI PASCAL Function 00022200 ; <LVAR 0x008 4(r)> 00022200 ; <LVAR -0x004 1(rw)> 00022200 ; <LVAR -0x008 @ 4(rw)> 00022200 ; <LVAR -0x00c @ 4(r)> 00022200 ; <LVAR -0x010 @ 4(r)> 00022200 ; <LVAR -0x012 @ 1(r)> 00022200 ; <LVAR -0x013 @ 1(r)> 00022200 ; <LVAR -0x014 @ 1(r)> 00022200 ; <LVAR -0x024 4(rw)> 00022200 ; <LVAR -0x028 4(rw)> 00022200 ; <LVAR -0x02c 4(rw)> 00022200 ; <LVAR -0x030 @ 4(r)> 00022200 ; <LVAR -0x032 1(w)> 00022200 ; <LVAR -0x036 @ 4(r)> 00022200 ; <LVAR -0x038 @ 1(r)> 00022200 ; <LVAR -0x03c @ 4(rw)> 00022200 ; -------------------------------------------------------------------------------------- 00022200 4e 56 ff 64 |NV d | LINK.W A6,#0xff64 00022204 bf d5 | | CMPA.L (A5),A7 00022206 62 06 |b | BHI 0x2220e 00022208 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002220c 4e 76 |Nv | TRAPV 0002220e de fc 00 60 | ` | ADDA.W #0x60,A7 00022212 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00022216 45 ee ff c4 |E | LEA.L (A6-0x3c),A2 0002221a 47 ee 00 08 |G | LEA.L (A6+0x8),A3 0002221e 49 f9 00 01 02 c4 |I | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A4 00022224 74 01 |t | MOVEQ.L #0x01,D2 00022226 76 14 |v | MOVEQ.L #0x14,D3 00022228 28 3c ff ff 80 00 |(< | MOVE.L #0xffff8000,D4 0002222e 59 4f |YO | SUBQ.L #0x4,A7 00022230 2f 13 |/ | MOVE.L (A3),-(A7) 00022232 4e ba ed 02 |N | JSR 0x20f36 00022236 58 4f |XO | ADDQ.L #0x4,A7 00022238 2d 5f ff d4 |-_ | MOVE.L (A7)+,(A6-0x2c) 0002223c 66 28 |f( | BNE 0x22266 0002223e 59 4f |YO | SUBQ.L #0x4,A7 00022240 1e ba e5 0c | | MOVE.B 0x2074e,(A7) 00022244 1f 7a e5 09 00 01 | z | MOVE.B 0x2074f,(A7+0x1) 0002224a 1f 7a e5 04 00 02 | z | MOVE.B 0x20750,(A7+0x2) 00022250 59 4f |YO | SUBQ.L #0x4,A7 00022252 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022256 3f 02 |? | MOVE.W D2,-(A7) 00022258 3f 3c 00 03 |?< | MOVE.W #0x3,-(A7) 0002225c 4e 94 |N | JSR (A4) 0002225e 50 4f |PO | ADDQ.L #0x8,A7 00022260 24 9f |$ | MOVE.L (A7)+,(A2) 00022262 58 4f |XO | ADDQ.L #0x4,A7 00022264 60 10 |` | BRA 0x22276 00022266 59 4f |YO | SUBQ.L #0x4,A7 00022268 2f 13 |/ | MOVE.L (A3),-(A7) 0002226a 48 78 00 01 |Hx | PEA.L 0x1 0002226e 4e ba f5 e2 |N | JSR 0x21852 00022272 50 4f |PO | ADDQ.L #0x8,A7 00022274 24 9f |$ | MOVE.L (A7)+,(A2) 00022276 5d 4f |]O | SUBQ.L #0x6,A7 00022278 20 4f | O | MOVEA.L A7,A0 0002227a 43 fa e4 d6 |C | LEA.L 0x20752,A1 0002227e 70 04 |p | MOVEQ.L #0x04,D0 00022280 10 d9 | | MOVE.B (A1)+,(A0)+ 00022282 51 c8 ff fc |Q | DBF D0,0x22280 00022286 59 4f |YO | SUBQ.L #0x4,A7 00022288 2f 12 |/ | MOVE.L (A2),-(A7) 0002228a 59 4f |YO | SUBQ.L #0x4,A7 0002228c 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00022290 3f 02 |? | MOVE.W D2,-(A7) 00022292 3f 3c 00 05 |?< | MOVE.W #0x5,-(A7) 00022296 4e 94 |N | JSR (A4) 00022298 50 4f |PO | ADDQ.L #0x8,A7 0002229a 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000222a0 50 4f |PO | ADDQ.L #0x8,A7 000222a2 24 9f |$ | MOVE.L (A7)+,(A2) 000222a4 54 4f |TO | ADDQ.L #0x2,A7 000222a6 2e 92 |. | MOVE.L (A2),(A7) 000222a8 42 27 |B' | CLR.B -(A7) 000222aa 1f 02 | | MOVE.B D2,-(A7) 000222ac 48 78 00 00 |Hx | PEA.L 0x0 000222b0 48 6e ff c8 |Hn | PEA.L (A6-0x38) 000222b4 48 6e ff ca |Hn | PEA.L (A6-0x36) 000222b8 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File) 000222be de c3 | | ADDA.W D3,A7 000222c0 4a 2e ff c8 |J. | TST.B (A6-0x38) 000222c4 67 0e |g | BEQ 0x222d4 000222c6 48 52 |HR | PEA.L (A2) 000222c8 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000222ce 58 4f |XO | ADDQ.L #0x4,A7 000222d0 60 00 02 4e |` N | BRA 0x22520 000222d4 20 6e ff ca | n | MOVEA.L (A6-0x36),A0 000222d8 10 28 00 3f | ( ? | MOVE.B (A0+0x3f),D0 000222dc ed 08 | | LSL.B #0x6,D0 000222de ee 08 | | LSR.B #0x7,D0 000222e0 1d 40 ff ce | @ | MOVE.B D0,(A6-0x32) 000222e4 42 27 |B' | CLR.B -(A7) 000222e6 1f 02 | | MOVE.B D2,-(A7) 000222e8 48 78 00 01 |Hx | PEA.L 0x1 000222ec 48 6e ff c8 |Hn | PEA.L (A6-0x38) 000222f0 48 6e ff ca |Hn | PEA.L (A6-0x36) 000222f4 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File) 000222fa de fc 00 10 | | ADDA.W #0x10,A7 000222fe 20 52 | R | MOVEA.L (A2),A0 00022300 32 10 |2 | MOVE.W (A0),D1 00022302 48 c1 |H | EXTW.L D1 00022304 5b 81 |[ | SUBQ.L #0x5,D1 00022306 92 84 | | SUB.L D4,D1 00022308 0c 81 00 00 ff ff | | CMPI.L #0x0000ffff,D1 0002230e 63 02 |c | BLS 0x22312 00022310 4e 4f |NO | TRAP #15 00022312 d2 84 | | ADD.L D4,D1 00022314 30 81 |0 | MOVE.W D1,(A0) 00022316 4a 00 |J | TST.B D0 00022318 66 36 |f6 | BNE 0x22350 0002231a 41 fa e4 32 |A 2 | LEA.L 0x2074e,A0 0002231e 70 08 |p | MOVEQ.L #0x08,D0 00022320 3f 20 |? | MOVE.W -(A0),-(A7) 00022322 51 c8 ff fc |Q | DBF D0,0x22320 00022326 59 4f |YO | SUBQ.L #0x4,A7 00022328 2f 12 |/ | MOVE.L (A2),-(A7) 0002232a 59 4f |YO | SUBQ.L #0x4,A7 0002232c 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00022330 3f 02 |? | MOVE.W D2,-(A7) 00022332 3f 3c 00 12 |?< | MOVE.W #0x12,-(A7) 00022336 4e 94 |N | JSR (A4) 00022338 50 4f |PO | ADDQ.L #0x8,A7 0002233a 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00022340 50 4f |PO | ADDQ.L #0x8,A7 00022342 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00022348 de fc 00 16 | | ADDA.W #0x16,A7 0002234c 60 00 01 d2 |` | BRA 0x22520 00022350 48 6e ff d0 |Hn | PEA.L (A6-0x30) 00022354 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 0002235a 58 4f |XO | ADDQ.L #0x4,A7 0002235c 20 6e ff d0 | n | MOVEA.L (A6-0x30),A0 00022360 2f 08 |/ | MOVE.L A0,-(A7) 00022362 7e 01 |~ | MOVEQ.L #0x01,D7 00022364 2f 2e ff d4 |/. | MOVE.L (A6-0x2c),-(A7) 00022368 7a 02 |z | MOVEQ.L #0x02,D5 0002236a ba 97 | | CMP.L (A7),D5 0002236c 6e 00 00 94 |n | BGT 0x22402 00022370 51 4f |QO | SUBQ.L #0x8,A7 00022372 2f 13 |/ | MOVE.L (A3),-(A7) 00022374 2f 05 |/ | MOVE.L D5,-(A7) 00022376 4e ba f3 fc |N | JSR 0x21774 0002237a 50 4f |PO | ADDQ.L #0x8,A7 0002237c 2d 5f ff d8 |-_ | MOVE.L (A7)+,(A6-0x28) 00022380 2d 5f ff dc |-_ | MOVE.L (A7)+,(A6-0x24) 00022384 2f 2e ff dc |/. | MOVE.L (A6-0x24),-(A7) 00022388 2c 2e ff d8 |,. | MOVE.L (A6-0x28),D6 0002238c bc 97 | | CMP.L (A7),D6 0002238e 6e 14 |n | BGT 0x223a4 00022390 20 17 | | MOVE.L (A7),D0 00022392 0c 86 80 00 00 01 | | CMPI.L #0x80000001,D6 00022398 6d 08 |m | BLT 0x223a2 0002239a 0c 80 7f ff ff ff | | CMPI.L #0x7fffffff,D0 000223a0 6f 02 |o | BLE 0x223a4 000223a2 4e 4f |NO | TRAP #15 000223a4 bc 97 | | CMP.L (A7),D6 000223a6 6e 32 |n2 | BGT 0x223da 000223a8 20 07 | | MOVE.L D7,D0 000223aa 53 80 |S | SUBQ.L #0x1,D0 000223ac 0c 80 00 00 00 7d | } | CMPI.L #0x0000007d,D0 000223b2 63 02 |c | BLS 0x223b6 000223b4 4e 4f |NO | TRAP #15 000223b6 20 6f 00 08 | o | MOVEA.L (A7+0x8),A0 000223ba 22 06 |" | MOVE.L D6,D1 000223bc 53 81 |S | SUBQ.L #0x1,D1 000223be 0c 81 00 00 1f ff | | CMPI.L #0x00001fff,D1 000223c4 63 02 |c | BLS 0x223c8 000223c6 4e 4f |NO | TRAP #15 000223c8 43 f9 00 02 46 2c |C F, | LEA.L 0x2462c,A1 000223ce 11 b1 18 08 08 02 | | MOVE.B (A1+D1.L+#0x8),(A0+D0.L+#0x2) 000223d4 52 87 |R | ADDQ.L #0x1,D7 000223d6 52 86 |R | ADDQ.L #0x1,D6 000223d8 68 ca |h | BVC 0x223a4 000223da 58 4f |XO | ADDQ.L #0x4,A7 000223dc ba ae ff d4 | | CMP.L (A6-0x2c),D5 000223e0 67 1a |g | BEQ 0x223fc 000223e2 20 07 | | MOVE.L D7,D0 000223e4 53 80 |S | SUBQ.L #0x1,D0 000223e6 0c 80 00 00 00 7d | } | CMPI.L #0x0000007d,D0 000223ec 63 02 |c | BLS 0x223f0 000223ee 4e 4f |NO | TRAP #15 000223f0 20 6f 00 04 | o | MOVEA.L (A7+0x4),A0 000223f4 11 bc 00 2c 08 02 | , | MOVE.B #0x2c,(A0+D0.L+#0x2) 000223fa 52 87 |R | ADDQ.L #0x1,D7 000223fc 52 85 |R | ADDQ.L #0x1,D5 000223fe 68 00 ff 6a |h j | BVC 0x2236a 00022402 58 4f |XO | ADDQ.L #0x4,A7 00022404 20 57 | W | MOVEA.L (A7),A0 00022406 20 07 | | MOVE.L D7,D0 00022408 53 80 |S | SUBQ.L #0x1,D0 0002240a 90 84 | | SUB.L D4,D0 0002240c 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 00022412 63 02 |c | BLS 0x22416 00022414 4e 4f |NO | TRAP #15 00022416 d0 84 | | ADD.L D4,D0 00022418 30 80 |0 | MOVE.W D0,(A0) 0002241a 54 4f |TO | ADDQ.L #0x2,A7 0002241c 3e ba e3 3e |> > | MOVE.W 0x2075c,(A7) 00022420 3f 3a e3 38 |?: 8 | MOVE.W 0x2075a,-(A7) 00022424 3f 3a e3 32 |?: 2 | MOVE.W 0x20758,-(A7) 00022428 59 4f |YO | SUBQ.L #0x4,A7 0002242a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002242e 3f 02 |? | MOVE.W D2,-(A7) 00022430 3f 3c 00 06 |?< | MOVE.W #0x6,-(A7) 00022434 4e 94 |N | JSR (A4) 00022436 50 4f |PO | ADDQ.L #0x8,A7 00022438 2d 5f ff f8 |-_ | MOVE.L (A7)+,(A6-0x8) 0002243c 54 4f |TO | ADDQ.L #0x2,A7 0002243e 2e 93 |. | MOVE.L (A3),(A7) 00022440 48 78 00 00 |Hx | PEA.L 0x0 00022444 2f 2e ff f8 |/. | MOVE.L (A6-0x8),-(A7) 00022448 48 6e ff f0 |Hn | PEA.L (A6-0x10) 0002244c 48 6e ff ed |Hn | PEA.L (A6-0x13) 00022450 4e b9 00 02 3d 8a |N = | JSR 0x23d8a 00022456 de c3 | | ADDA.W D3,A7 00022458 48 6e ff f8 |Hn | PEA.L (A6-0x8) 0002245c 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00022462 54 4f |TO | ADDQ.L #0x2,A7 00022464 3e ba e2 fc |> | MOVE.W 0x20762,(A7) 00022468 3f 3a e2 f6 |?: | MOVE.W 0x20760,-(A7) 0002246c 3f 3a e2 f0 |?: | MOVE.W 0x2075e,-(A7) 00022470 59 4f |YO | SUBQ.L #0x4,A7 00022472 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022476 3f 02 |? | MOVE.W D2,-(A7) 00022478 3f 3c 00 06 |?< | MOVE.W #0x6,-(A7) 0002247c 4e 94 |N | JSR (A4) 0002247e 50 4f |PO | ADDQ.L #0x8,A7 00022480 2d 5f ff f8 |-_ | MOVE.L (A7)+,(A6-0x8) 00022484 54 4f |TO | ADDQ.L #0x2,A7 00022486 2e 93 |. | MOVE.L (A3),(A7) 00022488 48 78 00 00 |Hx | PEA.L 0x0 0002248c 2f 2e ff f8 |/. | MOVE.L (A6-0x8),-(A7) 00022490 48 6e ff f4 |Hn | PEA.L (A6-0xc) 00022494 48 6e ff ee |Hn | PEA.L (A6-0x12) 00022498 4e b9 00 02 3d 8a |N = | JSR 0x23d8a 0002249e de c3 | | ADDA.W D3,A7 000224a0 48 6e ff f8 |Hn | PEA.L (A6-0x8) 000224a4 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000224aa 58 4f |XO | ADDQ.L #0x4,A7 000224ac 4a 2e ff ed |J. | TST.B (A6-0x13) 000224b0 66 06 |f | BNE 0x224b8 000224b2 4a 2e ff ee |J. | TST.B (A6-0x12) 000224b6 67 06 |g | BEQ 0x224be 000224b8 42 2e ff fc |B. | CLR.B (A6-0x4) 000224bc 60 04 |` | BRA 0x224c2 000224be 1d 42 ff fc | B | MOVE.B D2,(A6-0x4) 000224c2 2f 12 |/ | MOVE.L (A2),-(A7) 000224c4 2f 2e ff d0 |/. | MOVE.L (A6-0x30),-(A7) 000224c8 10 2e ff fc | . | MOVE.B (A6-0x4),D0 000224cc 48 80 |H | EXTB.W D0 000224ce 41 bc 00 02 |A | CHK.W #0x2,D0 000224d2 1f 00 | | MOVE.B D0,-(A7) 000224d4 48 6e ff ec |Hn | PEA.L (A6-0x14) 000224d8 4e b9 00 01 03 b0 |N | JSR PushProgram(a : String; b : String; MOD c : B; VAR d : Bool) 000224de de fc 00 0e | | ADDA.W #0xe,A7 000224e2 4a 2e ff ed |J. | TST.B (A6-0x13) 000224e6 67 20 |g | BEQ 0x22508 000224e8 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7) 000224ec 59 4f |YO | SUBQ.L #0x4,A7 000224ee 10 2e ff ec | . | MOVE.B (A6-0x14),D0 000224f2 48 80 |H | EXTB.W D0 000224f4 41 bc 00 0e |A | CHK.W #0xe,D0 000224f8 1f 00 | | MOVE.B D0,-(A7) 000224fa 4e b9 00 01 03 c0 |N | JSR ExpErrMsg(a: Byte) : String 00022500 54 4f |TO | ADDQ.L #0x2,A7 00022502 4e ba f9 4c |N L | JSR 0x21e50 00022506 50 4f |PO | ADDQ.L #0x8,A7 00022508 4a 2e ff ee |J. | TST.B (A6-0x12) 0002250c 67 12 |g | BEQ 0x22520 0002250e 2f 2e ff f4 |/. | MOVE.L (A6-0xc),-(A7) 00022512 59 4f |YO | SUBQ.L #0x4,A7 00022514 4e b9 00 01 03 c8 |N | JSR FSCALL_103c8 0002251a 4e ba f9 34 |N 4 | JSR 0x21e50 0002251e 50 4f |PO | ADDQ.L #0x8,A7 00022520 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00022524 4e 5e |N^ | UNLK A6 00022526 4e 75 |Nu | RTS 00022528 ; -------------------------------------------------------------------------------------- 00022528 ; OMSI PASCAL Function 00022528 ; <LVAR 0x008 4(r)> 00022528 ; <LVAR -0x004 @ 4(rw)> 00022528 ; <LVAR -0x008 @ 4(rw)> 00022528 ; -------------------------------------------------------------------------------------- 00022528 4e 56 ff e0 |NV | LINK.W A6,#0xffe0 0002252c bf d5 | | CMPA.L (A5),A7 0002252e 62 06 |b | BHI 0x22536 00022530 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022534 4e 76 |Nv | TRAPV 00022536 de fc 00 18 | | ADDA.W #0x18,A7 0002253a 48 e7 00 c0 |H | MOVEM.L A1+A0,-(A7) 0002253e 41 ee ff f8 |A | LEA.L (A6-0x8),A0 00022542 43 ee ff fc |C | LEA.L (A6-0x4),A1 00022546 59 4f |YO | SUBQ.L #0x4,A7 00022548 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 0002254c 48 78 00 01 |Hx | PEA.L 0x1 00022550 4e ba f3 00 |N | JSR 0x21852 00022554 50 4f |PO | ADDQ.L #0x8,A7 00022556 20 97 | | MOVE.L (A7),(A0) 00022558 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 0002255c 48 78 00 02 |Hx | PEA.L 0x2 00022560 4e ba f2 f0 |N | JSR 0x21852 00022564 50 4f |PO | ADDQ.L #0x8,A7 00022566 22 97 |" | MOVE.L (A7),(A1) 00022568 54 4f |TO | ADDQ.L #0x2,A7 0002256a 2f 10 |/ | MOVE.L (A0),-(A7) 0002256c 2f 11 |/ | MOVE.L (A1),-(A7) 0002256e 4e b9 00 01 02 c8 |N | JSR StringEqual(a, b : String) : Byte 00022574 50 4f |PO | ADDQ.L #0x8,A7 00022576 4a 1f |J | TST.B (A7)+ 00022578 67 06 |g | BEQ 0x22580 0002257a 4e ba ed 96 |N | JSR 0x21312 0002257e 60 04 |` | BRA 0x22584 00022580 4e ba ed d6 |N | JSR 0x21358 00022584 48 51 |HQ | PEA.L (A1) 00022586 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 0002258c 58 4f |XO | ADDQ.L #0x4,A7 0002258e 48 50 |HP | PEA.L (A0) 00022590 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00022596 58 4f |XO | ADDQ.L #0x4,A7 00022598 4c df 03 00 |L | MOVEM.L (A7)+,A0+A1 0002259c 4e 5e |N^ | UNLK A6 0002259e 4e 75 |Nu | RTS 000225a0 ; -------------------------------------------------------------------------------------- 000225a0 ; OMSI PASCAL Function 000225a0 ; <LVAR 0x008 4(r)> 000225a0 ; <LVAR -0x004 @ 4(rw)> 000225a0 ; <LVAR -0x008 @ 4(rw)> 000225a0 ; -------------------------------------------------------------------------------------- 000225a0 4e 56 ff e0 |NV | LINK.W A6,#0xffe0 000225a4 bf d5 | | CMPA.L (A5),A7 000225a6 62 06 |b | BHI 0x225ae 000225a8 44 fc 00 02 |D | MOVE.W #0x2,CCR 000225ac 4e 76 |Nv | TRAPV 000225ae de fc 00 18 | | ADDA.W #0x18,A7 000225b2 48 e7 00 c0 |H | MOVEM.L A1+A0,-(A7) 000225b6 41 ee ff f8 |A | LEA.L (A6-0x8),A0 000225ba 43 ee ff fc |C | LEA.L (A6-0x4),A1 000225be 59 4f |YO | SUBQ.L #0x4,A7 000225c0 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000225c4 48 78 00 01 |Hx | PEA.L 0x1 000225c8 4e ba f2 88 |N | JSR 0x21852 000225cc 50 4f |PO | ADDQ.L #0x8,A7 000225ce 20 97 | | MOVE.L (A7),(A0) 000225d0 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000225d4 48 78 00 02 |Hx | PEA.L 0x2 000225d8 4e ba f2 78 |N x | JSR 0x21852 000225dc 50 4f |PO | ADDQ.L #0x8,A7 000225de 22 97 |" | MOVE.L (A7),(A1) 000225e0 54 4f |TO | ADDQ.L #0x2,A7 000225e2 2f 10 |/ | MOVE.L (A0),-(A7) 000225e4 2f 11 |/ | MOVE.L (A1),-(A7) 000225e6 4e b9 00 01 02 c8 |N | JSR StringEqual(a, b : String) : Byte 000225ec 50 4f |PO | ADDQ.L #0x8,A7 000225ee 4a 1f |J | TST.B (A7)+ 000225f0 66 06 |f | BNE 0x225f8 000225f2 4e ba ed 1e |N | JSR 0x21312 000225f6 60 04 |` | BRA 0x225fc 000225f8 4e ba ed 5e |N ^ | JSR 0x21358 000225fc 48 51 |HQ | PEA.L (A1) 000225fe 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00022604 58 4f |XO | ADDQ.L #0x4,A7 00022606 48 50 |HP | PEA.L (A0) 00022608 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 0002260e 58 4f |XO | ADDQ.L #0x4,A7 00022610 4c df 03 00 |L | MOVEM.L (A7)+,A0+A1 00022614 4e 5e |N^ | UNLK A6 00022616 4e 75 |Nu | RTS 00022618 ; -------------------------------------------------------------------------------------- 00022618 ; OMSI PASCAL Function 00022618 ; <LVAR 0x008 4(r)> 00022618 ; -------------------------------------------------------------------------------------- 00022618 4e 56 ff f0 |NV | LINK.W A6,#0xfff0 0002261c bf d5 | | CMPA.L (A5),A7 0002261e 62 06 |b | BHI 0x22626 00022620 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022624 4e 76 |Nv | TRAPV 00022626 de fc 00 10 | | ADDA.W #0x10,A7 0002262a 59 4f |YO | SUBQ.L #0x4,A7 0002262c 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022630 48 78 00 01 |Hx | PEA.L 0x1 00022634 4e ba f2 1c |N | JSR 0x21852 00022638 50 4f |PO | ADDQ.L #0x8,A7 0002263a 4e ba f0 0e |N | JSR 0x2164a 0002263e 58 4f |XO | ADDQ.L #0x4,A7 00022640 4e 5e |N^ | UNLK A6 00022642 4e 75 |Nu | RTS 00022644 ; -------------------------------------------------------------------------------------- 00022644 ; OMSI PASCAL Function 00022644 ; <LVAR 0x008 4(r)> 00022644 ; <LVAR -0x014 @ 4(rw)> 00022644 ; -------------------------------------------------------------------------------------- 00022644 4e 56 ff 90 |NV | LINK.W A6,#0xff90 00022648 bf d5 | | CMPA.L (A5),A7 0002264a 62 06 |b | BHI 0x22652 0002264c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022650 4e 76 |Nv | TRAPV 00022652 de fc 00 5c | \ | ADDA.W #0x5c,A7 00022656 48 e7 e7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7) 0002265a 45 ee 00 08 |E | LEA.L (A6+0x8),A2 0002265e 47 ee ff ec |G | LEA.L (A6-0x14),A3 00022662 74 7d |t} | MOVEQ.L #0x7d,D2 00022664 59 4f |YO | SUBQ.L #0x4,A7 00022666 2f 12 |/ | MOVE.L (A2),-(A7) 00022668 48 78 00 01 |Hx | PEA.L 0x1 0002266c 4e ba f1 e4 |N | JSR 0x21852 00022670 50 4f |PO | ADDQ.L #0x8,A7 00022672 26 97 |& | MOVE.L (A7),(A3) 00022674 2f 12 |/ | MOVE.L (A2),-(A7) 00022676 48 78 00 02 |Hx | PEA.L 0x2 0002267a 4e ba f1 d6 |N | JSR 0x21852 0002267e 50 4f |PO | ADDQ.L #0x8,A7 00022680 28 5f |(_ | MOVEA.L (A7)+,A4 00022682 9e fc 00 0c | | SUBA.W #0xc,A7 00022686 2f 12 |/ | MOVE.L (A2),-(A7) 00022688 48 78 00 03 |Hx | PEA.L 0x3 0002268c 4e ba f1 f6 |N | JSR 0x21884 00022690 50 4f |PO | ADDQ.L #0x8,A7 00022692 4e b9 00 01 03 50 |N P | JSR Quad2Long(a : Quad) : Long 00022698 50 4f |PO | ADDQ.L #0x8,A7 0002269a 2c 17 |, | MOVE.L (A7),D6 0002269c 51 4f |QO | SUBQ.L #0x8,A7 0002269e 2f 12 |/ | MOVE.L (A2),-(A7) 000226a0 48 78 00 04 |Hx | PEA.L 0x4 000226a4 4e ba f1 de |N | JSR 0x21884 000226a8 50 4f |PO | ADDQ.L #0x8,A7 000226aa 4e b9 00 01 03 50 |N P | JSR Quad2Long(a : Quad) : Long 000226b0 50 4f |PO | ADDQ.L #0x8,A7 000226b2 2a 1f |* | MOVE.L (A7)+,D5 000226b4 20 06 | | MOVE.L D6,D0 000226b6 d0 85 | | ADD.L D5,D0 000226b8 53 80 |S | SUBQ.L #0x1,D0 000226ba 32 14 |2 | MOVE.W (A4),D1 000226bc 48 c1 |H | EXTW.L D1 000226be b0 81 | | CMP.L D1,D0 000226c0 6f 30 |o0 | BLE 0x226f2 000226c2 9e fc 00 20 | | SUBA.W #0x20,A7 000226c6 20 4f | O | MOVEA.L A7,A0 000226c8 43 fa e0 9a |C | LEA.L 0x20764,A1 000226cc 70 1e |p | MOVEQ.L #0x1e,D0 000226ce 10 d9 | | MOVE.B (A1)+,(A0)+ 000226d0 51 c8 ff fc |Q | DBF D0,0x226ce 000226d4 59 4f |YO | SUBQ.L #0x4,A7 000226d6 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000226da 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000226de 3f 3c 00 1f |?< | MOVE.W #0x1f,-(A7) 000226e2 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000226e8 50 4f |PO | ADDQ.L #0x8,A7 000226ea 4e ba e4 3e |N > | JSR 0x20b2a 000226ee de fc 00 24 | $ | ADDA.W #0x24,A7 000226f2 20 53 | S | MOVEA.L (A3),A0 000226f4 2f 08 |/ | MOVE.L A0,-(A7) 000226f6 30 10 |0 | MOVE.W (A0),D0 000226f8 48 c0 |H | EXTW.L D0 000226fa 2f 00 |/ | MOVE.L D0,-(A7) 000226fc 7e 01 |~ | MOVEQ.L #0x01,D7 000226fe be 97 | | CMP.L (A7),D7 00022700 6e 26 |n& | BGT 0x22728 00022702 20 06 | | MOVE.L D6,D0 00022704 d0 87 | | ADD.L D7,D0 00022706 53 80 |S | SUBQ.L #0x1,D0 00022708 53 80 |S | SUBQ.L #0x1,D0 0002270a b0 82 | | CMP.L D2,D0 0002270c 63 02 |c | BLS 0x22710 0002270e 4e 4f |NO | TRAP #15 00022710 22 07 |" | MOVE.L D7,D1 00022712 53 81 |S | SUBQ.L #0x1,D1 00022714 b2 82 | | CMP.L D2,D1 00022716 63 02 |c | BLS 0x2271a 00022718 4e 4f |NO | TRAP #15 0002271a 20 6f 00 04 | o | MOVEA.L (A7+0x4),A0 0002271e 19 b0 18 02 08 02 | | MOVE.B (A0+D1.L+#0x2),(A4+D0.L+#0x2) 00022724 52 87 |R | ADDQ.L #0x1,D7 00022726 68 d6 |h | BVC 0x226fe 00022728 58 4f |XO | ADDQ.L #0x4,A7 0002272a 2e 8c |. | MOVE.L A4,(A7) 0002272c 4e ba f1 c6 |N | JSR 0x218f4 00022730 58 4f |XO | ADDQ.L #0x4,A7 00022732 48 53 |HS | PEA.L (A3) 00022734 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 0002273a 58 4f |XO | ADDQ.L #0x4,A7 0002273c 4c df 1f e7 |L | MOVEM.L (A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3+A4 00022740 4e 5e |N^ | UNLK A6 00022742 4e 75 |Nu | RTS 00022744 ; -------------------------------------------------------------------------------------- 00022744 ; OMSI PASCAL Function 00022744 ; <LVAR 0x008 4(r)> 00022744 ; <LVAR -0x010 @ 4(r)> 00022744 ; <LVAR -0x014 @ 4(rw)> 00022744 ; -------------------------------------------------------------------------------------- 00022744 4e 56 ff a8 |NV | LINK.W A6,#0xffa8 00022748 bf d5 | | CMPA.L (A5),A7 0002274a 62 06 |b | BHI 0x22752 0002274c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022750 4e 76 |Nv | TRAPV 00022752 de fc 00 44 | D | ADDA.W #0x44,A7 00022756 48 e7 e7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7) 0002275a 45 ee ff ec |E | LEA.L (A6-0x14),A2 0002275e 47 ee ff f0 |G | LEA.L (A6-0x10),A3 00022762 49 ee 00 08 |I | LEA.L (A6+0x8),A4 00022766 74 7d |t} | MOVEQ.L #0x7d,D2 00022768 59 4f |YO | SUBQ.L #0x4,A7 0002276a 2f 14 |/ | MOVE.L (A4),-(A7) 0002276c 48 78 00 01 |Hx | PEA.L 0x1 00022770 4e ba f0 e0 |N | JSR 0x21852 00022774 50 4f |PO | ADDQ.L #0x8,A7 00022776 24 9f |$ | MOVE.L (A7)+,(A2) 00022778 48 53 |HS | PEA.L (A3) 0002277a 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00022780 51 4f |QO | SUBQ.L #0x8,A7 00022782 2f 14 |/ | MOVE.L (A4),-(A7) 00022784 48 78 00 02 |Hx | PEA.L 0x2 00022788 4e ba f0 fa |N | JSR 0x21884 0002278c 50 4f |PO | ADDQ.L #0x8,A7 0002278e 4e b9 00 01 03 50 |N P | JSR Quad2Long(a : Quad) : Long 00022794 50 4f |PO | ADDQ.L #0x8,A7 00022796 2a 17 |* | MOVE.L (A7),D5 00022798 51 4f |QO | SUBQ.L #0x8,A7 0002279a 2f 14 |/ | MOVE.L (A4),-(A7) 0002279c 48 78 00 03 |Hx | PEA.L 0x3 000227a0 4e ba f0 e2 |N | JSR 0x21884 000227a4 50 4f |PO | ADDQ.L #0x8,A7 000227a6 4e b9 00 01 03 50 |N P | JSR Quad2Long(a : Quad) : Long 000227ac 50 4f |PO | ADDQ.L #0x8,A7 000227ae 2c 1f |, | MOVE.L (A7)+,D6 000227b0 20 52 | R | MOVEA.L (A2),A0 000227b2 20 05 | | MOVE.L D5,D0 000227b4 d0 86 | | ADD.L D6,D0 000227b6 53 80 |S | SUBQ.L #0x1,D0 000227b8 32 10 |2 | MOVE.W (A0),D1 000227ba 48 c1 |H | EXTW.L D1 000227bc b0 81 | | CMP.L D1,D0 000227be 6f 06 |o | BLE 0x227c6 000227c0 52 81 |R | ADDQ.L #0x1,D1 000227c2 92 85 | | SUB.L D5,D1 000227c4 2c 01 |, | MOVE.L D1,D6 000227c6 2f 06 |/ | MOVE.L D6,-(A7) 000227c8 7e 01 |~ | MOVEQ.L #0x01,D7 000227ca be 97 | | CMP.L (A7),D7 000227cc 6e 26 |n& | BGT 0x227f4 000227ce 20 53 | S | MOVEA.L (A3),A0 000227d0 20 07 | | MOVE.L D7,D0 000227d2 53 80 |S | SUBQ.L #0x1,D0 000227d4 b0 82 | | CMP.L D2,D0 000227d6 63 02 |c | BLS 0x227da 000227d8 4e 4f |NO | TRAP #15 000227da 22 52 |"R | MOVEA.L (A2),A1 000227dc 22 07 |" | MOVE.L D7,D1 000227de d2 85 | | ADD.L D5,D1 000227e0 53 81 |S | SUBQ.L #0x1,D1 000227e2 53 81 |S | SUBQ.L #0x1,D1 000227e4 b2 82 | | CMP.L D2,D1 000227e6 63 02 |c | BLS 0x227ea 000227e8 4e 4f |NO | TRAP #15 000227ea 11 b1 18 02 08 02 | | MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x2) 000227f0 52 87 |R | ADDQ.L #0x1,D7 000227f2 68 d6 |h | BVC 0x227ca 000227f4 58 4f |XO | ADDQ.L #0x4,A7 000227f6 20 53 | S | MOVEA.L (A3),A0 000227f8 04 86 ff ff 80 00 | | SUBI.L #0xffff8000,D6 000227fe 0c 86 00 00 ff ff | | CMPI.L #0x0000ffff,D6 00022804 63 02 |c | BLS 0x22808 00022806 4e 4f |NO | TRAP #15 00022808 06 86 ff ff 80 00 | | ADDI.L #0xffff8000,D6 0002280e 30 86 |0 | MOVE.W D6,(A0) 00022810 2f 13 |/ | MOVE.L (A3),-(A7) 00022812 4e ba f0 e0 |N | JSR 0x218f4 00022816 58 4f |XO | ADDQ.L #0x4,A7 00022818 48 52 |HR | PEA.L (A2) 0002281a 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00022820 58 4f |XO | ADDQ.L #0x4,A7 00022822 4c df 1f e7 |L | MOVEM.L (A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3+A4 00022826 4e 5e |N^ | UNLK A6 00022828 4e 75 |Nu | RTS 0002282a ; -------------------------------------------------------------------------------------- 0002282a ; OMSI PASCAL Function 0002282a ; <LVAR 0x008 4(r)> 0002282a ; -------------------------------------------------------------------------------------- 0002282a 4e 56 ff ec |NV | LINK.W A6,#0xffec 0002282e bf d5 | | CMPA.L (A5),A7 00022830 62 06 |b | BHI 0x22838 00022832 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022836 4e 76 |Nv | TRAPV 00022838 de fc 00 14 | | ADDA.W #0x14,A7 0002283c 51 4f |QO | SUBQ.L #0x8,A7 0002283e 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022842 48 78 00 01 |Hx | PEA.L 0x1 00022846 4e ba f0 3c |N < | JSR 0x21884 0002284a 50 4f |PO | ADDQ.L #0x8,A7 0002284c 4e ba ee 70 |N p | JSR 0x216be 00022850 50 4f |PO | ADDQ.L #0x8,A7 00022852 4e 5e |N^ | UNLK A6 00022854 4e 75 |Nu | RTS 00022856 ; -------------------------------------------------------------------------------------- 00022856 ; OMSI PASCAL Function 00022856 ; <LVAR 0x008 4(r)> 00022856 ; -------------------------------------------------------------------------------------- 00022856 4e 56 ff e2 |NV | LINK.W A6,#0xffe2 0002285a bf d5 | | CMPA.L (A5),A7 0002285c 62 06 |b | BHI 0x22864 0002285e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022862 4e 76 |Nv | TRAPV 00022864 de fc 00 1e | | ADDA.W #0x1e,A7 00022868 9e fc 00 0a | | SUBA.W #0xa,A7 0002286c 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022870 48 78 00 01 |Hx | PEA.L 0x1 00022874 4e ba f0 0e |N | JSR 0x21884 00022878 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 0002287c 48 78 00 02 |Hx | PEA.L 0x2 00022880 4e ba f0 02 |N | JSR 0x21884 00022884 50 4f |PO | ADDQ.L #0x8,A7 00022886 4e b9 00 01 03 2c |N , | JSR IsEqual(a, b : Quad) : Bool 0002288c de fc 00 10 | | ADDA.W #0x10,A7 00022890 4a 1f |J | TST.B (A7)+ 00022892 67 06 |g | BEQ 0x2289a 00022894 4e ba ea 7c |N | | JSR 0x21312 00022898 60 04 |` | BRA 0x2289e 0002289a 4e ba ea bc |N | JSR 0x21358 0002289e 4e 5e |N^ | UNLK A6 000228a0 4e 75 |Nu | RTS 000228a2 ; -------------------------------------------------------------------------------------- 000228a2 ; OMSI PASCAL Function 000228a2 ; <LVAR 0x008 4(r)> 000228a2 ; -------------------------------------------------------------------------------------- 000228a2 4e 56 ff e2 |NV | LINK.W A6,#0xffe2 000228a6 bf d5 | | CMPA.L (A5),A7 000228a8 62 06 |b | BHI 0x228b0 000228aa 44 fc 00 02 |D | MOVE.W #0x2,CCR 000228ae 4e 76 |Nv | TRAPV 000228b0 de fc 00 1e | | ADDA.W #0x1e,A7 000228b4 9e fc 00 0a | | SUBA.W #0xa,A7 000228b8 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000228bc 48 78 00 01 |Hx | PEA.L 0x1 000228c0 4e ba ef c2 |N | JSR 0x21884 000228c4 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000228c8 48 78 00 02 |Hx | PEA.L 0x2 000228cc 4e ba ef b6 |N | JSR 0x21884 000228d0 50 4f |PO | ADDQ.L #0x8,A7 000228d2 4e b9 00 01 03 2c |N , | JSR IsEqual(a, b : Quad) : Bool 000228d8 de fc 00 10 | | ADDA.W #0x10,A7 000228dc 4a 1f |J | TST.B (A7)+ 000228de 66 06 |f | BNE 0x228e6 000228e0 4e ba ea 30 |N 0 | JSR 0x21312 000228e4 60 04 |` | BRA 0x228ea 000228e6 4e ba ea 70 |N p | JSR 0x21358 000228ea 4e 5e |N^ | UNLK A6 000228ec 4e 75 |Nu | RTS 000228ee ; -------------------------------------------------------------------------------------- 000228ee ; OMSI PASCAL Function 000228ee ; <LVAR 0x008 4(r)> 000228ee ; -------------------------------------------------------------------------------------- 000228ee 4e 56 ff e2 |NV | LINK.W A6,#0xffe2 000228f2 bf d5 | | CMPA.L (A5),A7 000228f4 62 06 |b | BHI 0x228fc 000228f6 44 fc 00 02 |D | MOVE.W #0x2,CCR 000228fa 4e 76 |Nv | TRAPV 000228fc de fc 00 1e | | ADDA.W #0x1e,A7 00022900 9e fc 00 0a | | SUBA.W #0xa,A7 00022904 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022908 48 78 00 01 |Hx | PEA.L 0x1 0002290c 4e ba ef 76 |N v | JSR 0x21884 00022910 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022914 48 78 00 02 |Hx | PEA.L 0x2 00022918 4e ba ef 6a |N j | JSR 0x21884 0002291c 50 4f |PO | ADDQ.L #0x8,A7 0002291e 4e b9 00 01 03 28 |N ( | JSR IsSmaller(a, b : Quad) : Bool 00022924 de fc 00 10 | | ADDA.W #0x10,A7 00022928 4a 1f |J | TST.B (A7)+ 0002292a 67 06 |g | BEQ 0x22932 0002292c 4e ba e9 e4 |N | JSR 0x21312 00022930 60 04 |` | BRA 0x22936 00022932 4e ba ea 24 |N $ | JSR 0x21358 00022936 4e 5e |N^ | UNLK A6 00022938 4e 75 |Nu | RTS 0002293a ; -------------------------------------------------------------------------------------- 0002293a ; OMSI PASCAL Function 0002293a ; <LVAR 0x008 4(r)> 0002293a ; -------------------------------------------------------------------------------------- 0002293a 4e 56 ff e2 |NV | LINK.W A6,#0xffe2 0002293e bf d5 | | CMPA.L (A5),A7 00022940 62 06 |b | BHI 0x22948 00022942 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022946 4e 76 |Nv | TRAPV 00022948 de fc 00 1e | | ADDA.W #0x1e,A7 0002294c 9e fc 00 0a | | SUBA.W #0xa,A7 00022950 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022954 48 78 00 01 |Hx | PEA.L 0x1 00022958 4e ba ef 2a |N * | JSR 0x21884 0002295c 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022960 48 78 00 02 |Hx | PEA.L 0x2 00022964 4e ba ef 1e |N | JSR 0x21884 00022968 50 4f |PO | ADDQ.L #0x8,A7 0002296a 4e b9 00 01 03 24 |N $ | JSR IsGreater(a, b : Quad) : Bool 00022970 de fc 00 10 | | ADDA.W #0x10,A7 00022974 4a 1f |J | TST.B (A7)+ 00022976 67 06 |g | BEQ 0x2297e 00022978 4e ba e9 98 |N | JSR 0x21312 0002297c 60 04 |` | BRA 0x22982 0002297e 4e ba e9 d8 |N | JSR 0x21358 00022982 4e 5e |N^ | UNLK A6 00022984 4e 75 |Nu | RTS 00022986 ; -------------------------------------------------------------------------------------- 00022986 ; OMSI PASCAL Function 00022986 ; <LVAR 0x008 4(r)> 00022986 ; -------------------------------------------------------------------------------------- 00022986 4e 56 ff e2 |NV | LINK.W A6,#0xffe2 0002298a bf d5 | | CMPA.L (A5),A7 0002298c 62 06 |b | BHI 0x22994 0002298e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022992 4e 76 |Nv | TRAPV 00022994 de fc 00 1e | | ADDA.W #0x1e,A7 00022998 9e fc 00 0a | | SUBA.W #0xa,A7 0002299c 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000229a0 48 78 00 01 |Hx | PEA.L 0x1 000229a4 4e ba ee de |N | JSR 0x21884 000229a8 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000229ac 48 78 00 02 |Hx | PEA.L 0x2 000229b0 4e ba ee d2 |N | JSR 0x21884 000229b4 50 4f |PO | ADDQ.L #0x8,A7 000229b6 4e b9 00 01 03 24 |N $ | JSR IsGreater(a, b : Quad) : Bool 000229bc de fc 00 10 | | ADDA.W #0x10,A7 000229c0 4a 1f |J | TST.B (A7)+ 000229c2 66 06 |f | BNE 0x229ca 000229c4 4e ba e9 4c |N L | JSR 0x21312 000229c8 60 04 |` | BRA 0x229ce 000229ca 4e ba e9 8c |N | JSR 0x21358 000229ce 4e 5e |N^ | UNLK A6 000229d0 4e 75 |Nu | RTS 000229d2 ; -------------------------------------------------------------------------------------- 000229d2 ; OMSI PASCAL Function 000229d2 ; <LVAR 0x008 4(r)> 000229d2 ; -------------------------------------------------------------------------------------- 000229d2 4e 56 ff e2 |NV | LINK.W A6,#0xffe2 000229d6 bf d5 | | CMPA.L (A5),A7 000229d8 62 06 |b | BHI 0x229e0 000229da 44 fc 00 02 |D | MOVE.W #0x2,CCR 000229de 4e 76 |Nv | TRAPV 000229e0 de fc 00 1e | | ADDA.W #0x1e,A7 000229e4 9e fc 00 0a | | SUBA.W #0xa,A7 000229e8 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000229ec 48 78 00 01 |Hx | PEA.L 0x1 000229f0 4e ba ee 92 |N | JSR 0x21884 000229f4 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000229f8 48 78 00 02 |Hx | PEA.L 0x2 000229fc 4e ba ee 86 |N | JSR 0x21884 00022a00 50 4f |PO | ADDQ.L #0x8,A7 00022a02 4e b9 00 01 03 28 |N ( | JSR IsSmaller(a, b : Quad) : Bool 00022a08 de fc 00 10 | | ADDA.W #0x10,A7 00022a0c 4a 1f |J | TST.B (A7)+ 00022a0e 66 06 |f | BNE 0x22a16 00022a10 4e ba e9 00 |N | JSR 0x21312 00022a14 60 04 |` | BRA 0x22a1a 00022a16 4e ba e9 40 |N @ | JSR 0x21358 00022a1a 4e 5e |N^ | UNLK A6 00022a1c 4e 75 |Nu | RTS 00022a1e ; -------------------------------------------------------------------------------------- 00022a1e ; OMSI PASCAL Function 00022a1e ; <LVAR 0x008 4(r)> 00022a1e ; -------------------------------------------------------------------------------------- 00022a1e 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 00022a22 bf d5 | | CMPA.L (A5),A7 00022a24 62 06 |b | BHI 0x22a2c 00022a26 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022a2a 4e 76 |Nv | TRAPV 00022a2c de fc 00 28 | ( | ADDA.W #0x28,A7 00022a30 48 e7 80 00 |H | MOVEM.L D0,-(A7) 00022a34 70 10 |p | MOVEQ.L #0x10,D0 00022a36 9e c0 | | SUBA.W D0,A7 00022a38 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022a3c 48 78 00 01 |Hx | PEA.L 0x1 00022a40 4e ba ee 42 |N B | JSR 0x21884 00022a44 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022a48 48 78 00 02 |Hx | PEA.L 0x2 00022a4c 4e ba ee 36 |N 6 | JSR 0x21884 00022a50 50 4f |PO | ADDQ.L #0x8,A7 00022a52 4e b9 00 01 03 14 |N | JSR Add(a, b : Quad) : Quad 00022a58 de c0 | | ADDA.W D0,A7 00022a5a 4e ba ef 20 |N | JSR 0x2197c 00022a5e 50 4f |PO | ADDQ.L #0x8,A7 00022a60 4c df 00 01 |L | MOVEM.L (A7)+,D0 00022a64 4e 5e |N^ | UNLK A6 00022a66 4e 75 |Nu | RTS 00022a68 ; -------------------------------------------------------------------------------------- 00022a68 ; OMSI PASCAL Function 00022a68 ; <LVAR 0x008 4(r)> 00022a68 ; -------------------------------------------------------------------------------------- 00022a68 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 00022a6c bf d5 | | CMPA.L (A5),A7 00022a6e 62 06 |b | BHI 0x22a76 00022a70 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022a74 4e 76 |Nv | TRAPV 00022a76 de fc 00 28 | ( | ADDA.W #0x28,A7 00022a7a 48 e7 80 00 |H | MOVEM.L D0,-(A7) 00022a7e 70 10 |p | MOVEQ.L #0x10,D0 00022a80 9e c0 | | SUBA.W D0,A7 00022a82 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022a86 48 78 00 01 |Hx | PEA.L 0x1 00022a8a 4e ba ed f8 |N | JSR 0x21884 00022a8e 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022a92 48 78 00 02 |Hx | PEA.L 0x2 00022a96 4e ba ed ec |N | JSR 0x21884 00022a9a 50 4f |PO | ADDQ.L #0x8,A7 00022a9c 4e b9 00 01 03 18 |N | JSR Subtract(a, b : Quad) : Quad 00022aa2 de c0 | | ADDA.W D0,A7 00022aa4 4e ba ee d6 |N | JSR 0x2197c 00022aa8 50 4f |PO | ADDQ.L #0x8,A7 00022aaa 4c df 00 01 |L | MOVEM.L (A7)+,D0 00022aae 4e 5e |N^ | UNLK A6 00022ab0 4e 75 |Nu | RTS 00022ab2 ; -------------------------------------------------------------------------------------- 00022ab2 ; OMSI PASCAL Function 00022ab2 ; <LVAR 0x008 4(r)> 00022ab2 ; -------------------------------------------------------------------------------------- 00022ab2 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 00022ab6 bf d5 | | CMPA.L (A5),A7 00022ab8 62 06 |b | BHI 0x22ac0 00022aba 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022abe 4e 76 |Nv | TRAPV 00022ac0 de fc 00 28 | ( | ADDA.W #0x28,A7 00022ac4 48 e7 80 00 |H | MOVEM.L D0,-(A7) 00022ac8 70 10 |p | MOVEQ.L #0x10,D0 00022aca 9e c0 | | SUBA.W D0,A7 00022acc 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022ad0 48 78 00 01 |Hx | PEA.L 0x1 00022ad4 4e ba ed ae |N | JSR 0x21884 00022ad8 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022adc 48 78 00 02 |Hx | PEA.L 0x2 00022ae0 4e ba ed a2 |N | JSR 0x21884 00022ae4 50 4f |PO | ADDQ.L #0x8,A7 00022ae6 4e b9 00 01 03 1c |N | JSR Multiply(a, b : Quad) : Quad 00022aec de c0 | | ADDA.W D0,A7 00022aee 4e ba ee 8c |N | JSR 0x2197c 00022af2 50 4f |PO | ADDQ.L #0x8,A7 00022af4 4c df 00 01 |L | MOVEM.L (A7)+,D0 00022af8 4e 5e |N^ | UNLK A6 00022afa 4e 75 |Nu | RTS 00022afc ; -------------------------------------------------------------------------------------- 00022afc ; OMSI PASCAL Function 00022afc ; <LVAR 0x008 4(r)> 00022afc ; -------------------------------------------------------------------------------------- 00022afc 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 00022b00 bf d5 | | CMPA.L (A5),A7 00022b02 62 06 |b | BHI 0x22b0a 00022b04 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022b08 4e 76 |Nv | TRAPV 00022b0a de fc 00 28 | ( | ADDA.W #0x28,A7 00022b0e 48 e7 80 00 |H | MOVEM.L D0,-(A7) 00022b12 70 10 |p | MOVEQ.L #0x10,D0 00022b14 9e c0 | | SUBA.W D0,A7 00022b16 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022b1a 48 78 00 01 |Hx | PEA.L 0x1 00022b1e 4e ba ed 64 |N d | JSR 0x21884 00022b22 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022b26 48 78 00 02 |Hx | PEA.L 0x2 00022b2a 4e ba ed 58 |N X | JSR 0x21884 00022b2e 50 4f |PO | ADDQ.L #0x8,A7 00022b30 4e b9 00 01 03 20 |N | JSR Divide(a, b : Quad) : Quad 00022b36 de c0 | | ADDA.W D0,A7 00022b38 4e ba ee 42 |N B | JSR 0x2197c 00022b3c 50 4f |PO | ADDQ.L #0x8,A7 00022b3e 4c df 00 01 |L | MOVEM.L (A7)+,D0 00022b42 4e 5e |N^ | UNLK A6 00022b44 4e 75 |Nu | RTS 00022b46 ; -------------------------------------------------------------------------------------- 00022b46 ; OMSI PASCAL Function 00022b46 ; <LVAR 0x008 4(r)> 00022b46 ; -------------------------------------------------------------------------------------- 00022b46 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 00022b4a bf d5 | | CMPA.L (A5),A7 00022b4c 62 06 |b | BHI 0x22b54 00022b4e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022b52 4e 76 |Nv | TRAPV 00022b54 de fc 00 28 | ( | ADDA.W #0x28,A7 00022b58 48 e7 80 00 |H | MOVEM.L D0,-(A7) 00022b5c 70 10 |p | MOVEQ.L #0x10,D0 00022b5e 9e c0 | | SUBA.W D0,A7 00022b60 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022b64 48 78 00 01 |Hx | PEA.L 0x1 00022b68 4e ba ed 1a |N | JSR 0x21884 00022b6c 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022b70 48 78 00 02 |Hx | PEA.L 0x2 00022b74 4e ba ed 0e |N | JSR 0x21884 00022b78 50 4f |PO | ADDQ.L #0x8,A7 00022b7a 4e b9 00 01 03 58 |N X | JSR Modulus(a, b : Quad) : Quad 00022b80 de c0 | | ADDA.W D0,A7 00022b82 4e ba ed f8 |N | JSR 0x2197c 00022b86 50 4f |PO | ADDQ.L #0x8,A7 00022b88 4c df 00 01 |L | MOVEM.L (A7)+,D0 00022b8c 4e 5e |N^ | UNLK A6 00022b8e 4e 75 |Nu | RTS 00022b90 ; -------------------------------------------------------------------------------------- 00022b90 ; OMSI PASCAL Function 00022b90 ; <LVAR 0x008 4(r)> 00022b90 ; -------------------------------------------------------------------------------------- 00022b90 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 00022b94 bf d5 | | CMPA.L (A5),A7 00022b96 62 06 |b | BHI 0x22b9e 00022b98 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022b9c 4e 76 |Nv | TRAPV 00022b9e de fc 00 28 | ( | ADDA.W #0x28,A7 00022ba2 48 e7 80 00 |H | MOVEM.L D0,-(A7) 00022ba6 70 10 |p | MOVEQ.L #0x10,D0 00022ba8 9e c0 | | SUBA.W D0,A7 00022baa 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022bae 48 78 00 01 |Hx | PEA.L 0x1 00022bb2 4e ba ec d0 |N | JSR 0x21884 00022bb6 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022bba 48 78 00 02 |Hx | PEA.L 0x2 00022bbe 4e ba ec c4 |N | JSR 0x21884 00022bc2 50 4f |PO | ADDQ.L #0x8,A7 00022bc4 4e b9 00 01 03 34 |N 4 | JSR BitOr(a, b : Quad) : Quad 00022bca de c0 | | ADDA.W D0,A7 00022bcc 4e ba ed ae |N | JSR 0x2197c 00022bd0 50 4f |PO | ADDQ.L #0x8,A7 00022bd2 4c df 00 01 |L | MOVEM.L (A7)+,D0 00022bd6 4e 5e |N^ | UNLK A6 00022bd8 4e 75 |Nu | RTS 00022bda ; -------------------------------------------------------------------------------------- 00022bda ; OMSI PASCAL Function 00022bda ; <LVAR 0x008 4(r)> 00022bda ; -------------------------------------------------------------------------------------- 00022bda 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 00022bde bf d5 | | CMPA.L (A5),A7 00022be0 62 06 |b | BHI 0x22be8 00022be2 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022be6 4e 76 |Nv | TRAPV 00022be8 de fc 00 28 | ( | ADDA.W #0x28,A7 00022bec 48 e7 80 00 |H | MOVEM.L D0,-(A7) 00022bf0 70 10 |p | MOVEQ.L #0x10,D0 00022bf2 9e c0 | | SUBA.W D0,A7 00022bf4 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022bf8 48 78 00 01 |Hx | PEA.L 0x1 00022bfc 4e ba ec 86 |N | JSR 0x21884 00022c00 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022c04 48 78 00 02 |Hx | PEA.L 0x2 00022c08 4e ba ec 7a |N z | JSR 0x21884 00022c0c 50 4f |PO | ADDQ.L #0x8,A7 00022c0e 4e b9 00 01 03 30 |N 0 | JSR BitAnd(a, b : Quad) : Quad 00022c14 de c0 | | ADDA.W D0,A7 00022c16 4e ba ed 64 |N d | JSR 0x2197c 00022c1a 50 4f |PO | ADDQ.L #0x8,A7 00022c1c 4c df 00 01 |L | MOVEM.L (A7)+,D0 00022c20 4e 5e |N^ | UNLK A6 00022c22 4e 75 |Nu | RTS 00022c24 ; -------------------------------------------------------------------------------------- 00022c24 ; OMSI PASCAL Function 00022c24 ; <LVAR 0x008 4(r)> 00022c24 ; -------------------------------------------------------------------------------------- 00022c24 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 00022c28 bf d5 | | CMPA.L (A5),A7 00022c2a 62 06 |b | BHI 0x22c32 00022c2c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022c30 4e 76 |Nv | TRAPV 00022c32 de fc 00 28 | ( | ADDA.W #0x28,A7 00022c36 48 e7 80 00 |H | MOVEM.L D0,-(A7) 00022c3a 70 10 |p | MOVEQ.L #0x10,D0 00022c3c 9e c0 | | SUBA.W D0,A7 00022c3e 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022c42 48 78 00 01 |Hx | PEA.L 0x1 00022c46 4e ba ec 3c |N < | JSR 0x21884 00022c4a 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022c4e 48 78 00 02 |Hx | PEA.L 0x2 00022c52 4e ba ec 30 |N 0 | JSR 0x21884 00022c56 50 4f |PO | ADDQ.L #0x8,A7 00022c58 4e b9 00 01 03 40 |N @ | JSR BitXor(a, b : Quad) : Quad 00022c5e de c0 | | ADDA.W D0,A7 00022c60 4e ba ed 1a |N | JSR 0x2197c 00022c64 50 4f |PO | ADDQ.L #0x8,A7 00022c66 4c df 00 01 |L | MOVEM.L (A7)+,D0 00022c6a 4e 5e |N^ | UNLK A6 00022c6c 4e 75 |Nu | RTS 00022c6e ; -------------------------------------------------------------------------------------- 00022c6e ; OMSI PASCAL Function 00022c6e ; <LVAR 0x008 4(r)> 00022c6e ; -------------------------------------------------------------------------------------- 00022c6e 4e 56 ff e0 |NV | LINK.W A6,#0xffe0 00022c72 bf d5 | | CMPA.L (A5),A7 00022c74 62 06 |b | BHI 0x22c7c 00022c76 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022c7a 4e 76 |Nv | TRAPV 00022c7c de fc 00 20 | | ADDA.W #0x20,A7 00022c80 9e fc 00 10 | | SUBA.W #0x10,A7 00022c84 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022c88 48 78 00 01 |Hx | PEA.L 0x1 00022c8c 4e ba eb f6 |N | JSR 0x21884 00022c90 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7) 00022c94 48 78 00 02 |Hx | PEA.L 0x2 00022c98 4e ba ec 26 |N & | JSR 0x218c0 00022c9c 50 4f |PO | ADDQ.L #0x8,A7 00022c9e 4e b9 00 01 03 44 |N D | JSR BitShift(a : Quad ; howmuch : integer) : Quad 00022ca4 de fc 00 0c | | ADDA.W #0xc,A7 00022ca8 4e ba ec d2 |N | JSR 0x2197c 00022cac 50 4f |PO | ADDQ.L #0x8,A7 00022cae 4e 5e |N^ | UNLK A6 00022cb0 4e 75 |Nu | RTS 00022cb2 ; -------------------------------------------------------------------------------------- 00022cb2 ; OMSI PASCAL Function 00022cb2 ; <LVAR 0x008 4(r)> 00022cb2 ; -------------------------------------------------------------------------------------- 00022cb2 4e 56 ff e0 |NV | LINK.W A6,#0xffe0 00022cb6 bf d5 | | CMPA.L (A5),A7 00022cb8 62 06 |b | BHI 0x22cc0 00022cba 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022cbe 4e 76 |Nv | TRAPV 00022cc0 de fc 00 20 | | ADDA.W #0x20,A7 00022cc4 9e fc 00 10 | | SUBA.W #0x10,A7 00022cc8 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022ccc 48 78 00 01 |Hx | PEA.L 0x1 00022cd0 4e ba eb b2 |N | JSR 0x21884 00022cd4 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7) 00022cd8 48 78 00 02 |Hx | PEA.L 0x2 00022cdc 4e ba eb e2 |N | JSR 0x218c0 00022ce0 50 4f |PO | ADDQ.L #0x8,A7 00022ce2 44 97 |D | NEG.L (A7) 00022ce4 4e b9 00 01 03 44 |N D | JSR BitShift(a : Quad ; howmuch : integer) : Quad 00022cea de fc 00 0c | | ADDA.W #0xc,A7 00022cee 4e ba ec 8c |N | JSR 0x2197c 00022cf2 50 4f |PO | ADDQ.L #0x8,A7 00022cf4 4e 5e |N^ | UNLK A6 00022cf6 4e 75 |Nu | RTS 00022cf8 ; -------------------------------------------------------------------------------------- 00022cf8 ; OMSI PASCAL Function 00022cf8 ; <LVAR 0x008 4(r)> 00022cf8 ; -------------------------------------------------------------------------------------- 00022cf8 4e 56 ff e4 |NV | LINK.W A6,#0xffe4 00022cfc bf d5 | | CMPA.L (A5),A7 00022cfe 62 06 |b | BHI 0x22d06 00022d00 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022d04 4e 76 |Nv | TRAPV 00022d06 de fc 00 1c | | ADDA.W #0x1c,A7 00022d0a 9e fc 00 10 | | SUBA.W #0x10,A7 00022d0e 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022d12 48 78 00 01 |Hx | PEA.L 0x1 00022d16 4e ba eb 6c |N l | JSR 0x21884 00022d1a 50 4f |PO | ADDQ.L #0x8,A7 00022d1c 4e b9 00 01 03 38 |N 8 | JSR BitNot(a : Quad) : Quad 00022d22 50 4f |PO | ADDQ.L #0x8,A7 00022d24 4e ba ec 56 |N V | JSR 0x2197c 00022d28 50 4f |PO | ADDQ.L #0x8,A7 00022d2a 4e 5e |N^ | UNLK A6 00022d2c 4e 75 |Nu | RTS 00022d2e ; -------------------------------------------------------------------------------------- 00022d2e ; OMSI PASCAL Function 00022d2e ; <LVAR 0x008 4(r)> 00022d2e ; <LVAR -0x00c 4(rw)> 00022d2e ; <LVAR -0x010 4(rw)> 00022d2e ; <LVAR -0x014 4(rw)> 00022d2e ; <LVAR -0x018 4(rw)> 00022d2e ; -------------------------------------------------------------------------------------- 00022d2e 4e 56 ff b8 |NV | LINK.W A6,#0xffb8 00022d32 bf d5 | | CMPA.L (A5),A7 00022d34 62 06 |b | BHI 0x22d3c 00022d36 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022d3a 4e 76 |Nv | TRAPV 00022d3c de fc 00 30 | 0 | ADDA.W #0x30,A7 00022d40 48 e7 03 80 |H | MOVEM.L A0+D7+D6,-(A7) 00022d44 41 ee 00 08 |A | LEA.L (A6+0x8),A0 00022d48 51 4f |QO | SUBQ.L #0x8,A7 00022d4a 2f 10 |/ | MOVE.L (A0),-(A7) 00022d4c 48 78 00 01 |Hx | PEA.L 0x1 00022d50 4e ba eb 32 |N 2 | JSR 0x21884 00022d54 50 4f |PO | ADDQ.L #0x8,A7 00022d56 2d 5f ff e8 |-_ | MOVE.L (A7)+,(A6-0x18) 00022d5a 2d 57 ff ec |-W | MOVE.L (A7),(A6-0x14) 00022d5e 59 4f |YO | SUBQ.L #0x4,A7 00022d60 2f 10 |/ | MOVE.L (A0),-(A7) 00022d62 48 78 00 02 |Hx | PEA.L 0x2 00022d66 4e ba eb 1c |N | JSR 0x21884 00022d6a 50 4f |PO | ADDQ.L #0x8,A7 00022d6c 2d 5f ff f0 |-_ | MOVE.L (A7)+,(A6-0x10) 00022d70 2d 57 ff f4 |-W | MOVE.L (A7),(A6-0xc) 00022d74 2f 10 |/ | MOVE.L (A0),-(A7) 00022d76 48 78 00 03 |Hx | PEA.L 0x3 00022d7a 4e ba eb 44 |N D | JSR 0x218c0 00022d7e 50 4f |PO | ADDQ.L #0x8,A7 00022d80 2e 17 |. | MOVE.L (A7),D7 00022d82 2f 10 |/ | MOVE.L (A0),-(A7) 00022d84 48 78 00 04 |Hx | PEA.L 0x4 00022d88 4e ba eb 36 |N 6 | JSR 0x218c0 00022d8c 50 4f |PO | ADDQ.L #0x8,A7 00022d8e 2c 17 |, | MOVE.L (A7),D6 00022d90 59 4f |YO | SUBQ.L #0x4,A7 00022d92 2f 2e ff ec |/. | MOVE.L (A6-0x14),-(A7) 00022d96 2f 2e ff e8 |/. | MOVE.L (A6-0x18),-(A7) 00022d9a 2f 2e ff f4 |/. | MOVE.L (A6-0xc),-(A7) 00022d9e 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7) 00022da2 2f 07 |/ | MOVE.L D7,-(A7) 00022da4 2f 06 |/ | MOVE.L D6,-(A7) 00022da6 4e b9 00 01 03 48 |N H | JSR ?BitField_something_() 00022dac de fc 00 18 | | ADDA.W #0x18,A7 00022db0 4e ba eb ca |N | JSR 0x2197c 00022db4 50 4f |PO | ADDQ.L #0x8,A7 00022db6 4c df 01 c0 |L | MOVEM.L (A7)+,D6+D7+A0 00022dba 4e 5e |N^ | UNLK A6 00022dbc 4e 75 |Nu | RTS 00022dbe ; -------------------------------------------------------------------------------------- 00022dbe ; OMSI PASCAL Function 00022dbe ; <LVAR 0x008 4(r)> 00022dbe ; <LVAR -0x00c 4(rw)> 00022dbe ; <LVAR -0x010 4(rw)> 00022dbe ; -------------------------------------------------------------------------------------- 00022dbe 4e 56 ff c8 |NV | LINK.W A6,#0xffc8 00022dc2 bf d5 | | CMPA.L (A5),A7 00022dc4 62 06 |b | BHI 0x22dcc 00022dc6 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022dca 4e 76 |Nv | TRAPV 00022dcc de fc 00 28 | ( | ADDA.W #0x28,A7 00022dd0 48 e7 03 80 |H | MOVEM.L A0+D7+D6,-(A7) 00022dd4 41 ee 00 08 |A | LEA.L (A6+0x8),A0 00022dd8 51 4f |QO | SUBQ.L #0x8,A7 00022dda 2f 10 |/ | MOVE.L (A0),-(A7) 00022ddc 48 78 00 01 |Hx | PEA.L 0x1 00022de0 4e ba ea a2 |N | JSR 0x21884 00022de4 50 4f |PO | ADDQ.L #0x8,A7 00022de6 2d 5f ff f0 |-_ | MOVE.L (A7)+,(A6-0x10) 00022dea 2d 57 ff f4 |-W | MOVE.L (A7),(A6-0xc) 00022dee 2f 10 |/ | MOVE.L (A0),-(A7) 00022df0 48 78 00 02 |Hx | PEA.L 0x2 00022df4 4e ba ea ca |N | JSR 0x218c0 00022df8 50 4f |PO | ADDQ.L #0x8,A7 00022dfa 2e 17 |. | MOVE.L (A7),D7 00022dfc 2f 10 |/ | MOVE.L (A0),-(A7) 00022dfe 48 78 00 03 |Hx | PEA.L 0x3 00022e02 4e ba ea bc |N | JSR 0x218c0 00022e06 50 4f |PO | ADDQ.L #0x8,A7 00022e08 2c 17 |, | MOVE.L (A7),D6 00022e0a 59 4f |YO | SUBQ.L #0x4,A7 00022e0c 2f 2e ff f4 |/. | MOVE.L (A6-0xc),-(A7) 00022e10 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7) 00022e14 2f 07 |/ | MOVE.L D7,-(A7) 00022e16 2f 06 |/ | MOVE.L D6,-(A7) 00022e18 4e b9 00 01 03 4c |N L | JSR FSCALL_1034c 00022e1e de fc 00 10 | | ADDA.W #0x10,A7 00022e22 4e ba eb 58 |N X | JSR 0x2197c 00022e26 50 4f |PO | ADDQ.L #0x8,A7 00022e28 4c df 01 c0 |L | MOVEM.L (A7)+,D6+D7+A0 00022e2c 4e 5e |N^ | UNLK A6 00022e2e 4e 75 |Nu | RTS 00022e30 ; -------------------------------------------------------------------------------------- 00022e30 ; OMSI PASCAL Function 00022e30 ; <LVAR 0x008 4(r)> 00022e30 ; -------------------------------------------------------------------------------------- 00022e30 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 00022e34 bf d5 | | CMPA.L (A5),A7 00022e36 62 06 |b | BHI 0x22e3e 00022e38 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022e3c 4e 76 |Nv | TRAPV 00022e3e de fc 00 20 | | ADDA.W #0x20,A7 00022e42 48 e7 01 08 |H | MOVEM.L A4+D7,-(A7) 00022e46 59 4f |YO | SUBQ.L #0x4,A7 00022e48 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022e4c 4e ba e0 e8 |N | JSR 0x20f36 00022e50 58 4f |XO | ADDQ.L #0x4,A7 00022e52 7e 01 |~ | MOVEQ.L #0x01,D7 00022e54 be 97 | | CMP.L (A7),D7 00022e56 6e 26 |n& | BGT 0x22e7e 00022e58 59 4f |YO | SUBQ.L #0x4,A7 00022e5a 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022e5e 2f 07 |/ | MOVE.L D7,-(A7) 00022e60 4e ba e9 f0 |N | JSR 0x21852 00022e64 50 4f |PO | ADDQ.L #0x8,A7 00022e66 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String) 00022e6c 54 4f |TO | ADDQ.L #0x2,A7 00022e6e 1e bc 00 20 | | MOVE.B #0x20,(A7) 00022e72 4e b9 00 01 03 d0 |N | JSR WriteConsoleChar(chr : char) 00022e78 54 4f |TO | ADDQ.L #0x2,A7 00022e7a 52 87 |R | ADDQ.L #0x1,D7 00022e7c 68 d6 |h | BVC 0x22e54 00022e7e 48 78 00 01 |Hx | PEA.L 0x1 00022e82 4e b9 00 01 03 e4 |N | JSR AskConsoleString(prompt : String) : String 00022e88 58 4f |XO | ADDQ.L #0x4,A7 00022e8a 28 5f |(_ | MOVEA.L (A7)+,A4 00022e8c 2f 0c |/ | MOVE.L A4,-(A7) 00022e8e 4e ba de f2 |N | JSR 0x20d82 00022e92 2e 8c |. | MOVE.L A4,(A7) 00022e94 4e ba ea 5e |N ^ | JSR 0x218f4 00022e98 58 4f |XO | ADDQ.L #0x4,A7 00022e9a 4c df 10 80 |L | MOVEM.L (A7)+,D7+A4 00022e9e 4e 5e |N^ | UNLK A6 00022ea0 4e 75 |Nu | RTS 00022ea2 ; -------------------------------------------------------------------------------------- 00022ea2 ; OMSI PASCAL Function 00022ea2 ; <LVAR 0x008 4(r)> 00022ea2 ; -------------------------------------------------------------------------------------- 00022ea2 4e 56 ff c8 |NV | LINK.W A6,#0xffc8 00022ea6 bf d5 | | CMPA.L (A5),A7 00022ea8 62 06 |b | BHI 0x22eb0 00022eaa 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022eae 4e 76 |Nv | TRAPV 00022eb0 de fc 00 2c | , | ADDA.W #0x2c,A7 00022eb4 48 e7 83 88 |H | MOVEM.L A4+A0+D7+D6+D0,-(A7) 00022eb8 41 ee 00 08 |A | LEA.L (A6+0x8),A0 00022ebc 70 0c |p | MOVEQ.L #0x0c,D0 00022ebe 59 4f |YO | SUBQ.L #0x4,A7 00022ec0 2f 10 |/ | MOVE.L (A0),-(A7) 00022ec2 48 78 00 01 |Hx | PEA.L 0x1 00022ec6 4e ba e9 8a |N | JSR 0x21852 00022eca 50 4f |PO | ADDQ.L #0x8,A7 00022ecc 28 5f |(_ | MOVEA.L (A7)+,A4 00022ece 9e c0 | | SUBA.W D0,A7 00022ed0 2f 10 |/ | MOVE.L (A0),-(A7) 00022ed2 48 78 00 02 |Hx | PEA.L 0x2 00022ed6 4e ba e9 ac |N | JSR 0x21884 00022eda 50 4f |PO | ADDQ.L #0x8,A7 00022edc 4e b9 00 01 03 50 |N P | JSR Quad2Long(a : Quad) : Long 00022ee2 50 4f |PO | ADDQ.L #0x8,A7 00022ee4 2e 17 |. | MOVE.L (A7),D7 00022ee6 51 4f |QO | SUBQ.L #0x8,A7 00022ee8 2f 10 |/ | MOVE.L (A0),-(A7) 00022eea 48 78 00 03 |Hx | PEA.L 0x3 00022eee 4e ba e9 94 |N | JSR 0x21884 00022ef2 50 4f |PO | ADDQ.L #0x8,A7 00022ef4 4e b9 00 01 03 50 |N P | JSR Quad2Long(a : Quad) : Long 00022efa 50 4f |PO | ADDQ.L #0x8,A7 00022efc 2c 17 |, | MOVE.L (A7),D6 00022efe 51 4f |QO | SUBQ.L #0x8,A7 00022f00 2f 0c |/ | MOVE.L A4,-(A7) 00022f02 2f 07 |/ | MOVE.L D7,-(A7) 00022f04 4e b9 00 01 03 60 |N ` | JSR ?StringToInt64() 00022f0a 58 4f |XO | ADDQ.L #0x4,A7 00022f0c 2e 86 |. | MOVE.L D6,(A7) 00022f0e 4e b9 00 01 03 5c |N \ | JSR Quad2String(a : Quad; radix : Long ) : String 00022f14 de c0 | | ADDA.W D0,A7 00022f16 4e ba e9 dc |N | JSR 0x218f4 00022f1a 58 4f |XO | ADDQ.L #0x4,A7 00022f1c 4c df 11 c1 |L | MOVEM.L (A7)+,D0+D6+D7+A0+A4 00022f20 4e 5e |N^ | UNLK A6 00022f22 4e 75 |Nu | RTS 00022f24 ; -------------------------------------------------------------------------------------- 00022f24 ; OMSI PASCAL Function 00022f24 ; <LVAR 0x008 4(r)> 00022f24 ; <LVAR -0x00a 2(r)> 00022f24 ; <LVAR -0x00c 4(rw)> 00022f24 ; <LVAR -0x010 4(rw)> 00022f24 ; -------------------------------------------------------------------------------------- 00022f24 4e 56 ff bc |NV | LINK.W A6,#0xffbc 00022f28 bf d5 | | CMPA.L (A5),A7 00022f2a 62 06 |b | BHI 0x22f32 00022f2c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022f30 4e 76 |Nv | TRAPV 00022f32 de fc 00 34 | 4 | ADDA.W #0x34,A7 00022f36 48 e7 c3 c0 |H | MOVEM.L A1+A0+D7+D6+D1+D0,-(A7) 00022f3a 41 ee ff f0 |A | LEA.L (A6-0x10),A0 00022f3e 43 ee ff f4 |C | LEA.L (A6-0xc),A1 00022f42 51 4f |QO | SUBQ.L #0x8,A7 00022f44 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022f48 48 78 00 01 |Hx | PEA.L 0x1 00022f4c 4e ba e9 36 |N 6 | JSR 0x21884 00022f50 50 4f |PO | ADDQ.L #0x8,A7 00022f52 20 9f | | MOVE.L (A7)+,(A0) 00022f54 22 9f |" | MOVE.L (A7)+,(A1) 00022f56 7e 00 |~ | MOVEQ.L #0x00,D7 00022f58 7c 00 || | MOVEQ.L #0x00,D6 00022f5a 30 2e ff f6 |0. | MOVE.W (A6-0xa),D0 00022f5e 02 40 00 01 | @ | ANDI.W #0x0001,D0 00022f62 42 81 |B | CLR.L D1 00022f64 32 00 |2 | MOVE.W D0,D1 00022f66 de 81 | | ADD.L D1,D7 00022f68 51 4f |QO | SUBQ.L #0x8,A7 00022f6a 2f 11 |/ | MOVE.L (A1),-(A7) 00022f6c 2f 10 |/ | MOVE.L (A0),-(A7) 00022f6e 48 78 ff ff |Hx | PEA.L 0xffffffff 00022f72 4e b9 00 01 03 44 |N D | JSR BitShift(a : Quad ; howmuch : integer) : Quad 00022f78 de fc 00 0c | | ADDA.W #0xc,A7 00022f7c 20 9f | | MOVE.L (A7)+,(A0) 00022f7e 22 9f |" | MOVE.L (A7)+,(A1) 00022f80 52 86 |R | ADDQ.L #0x1,D6 00022f82 0c 86 00 00 00 3f | ? | CMPI.L #0x0000003f,D6 00022f88 6f d0 |o | BLE 0x22f5a 00022f8a 51 4f |QO | SUBQ.L #0x8,A7 00022f8c 2f 07 |/ | MOVE.L D7,-(A7) 00022f8e 4e b9 00 01 03 54 |N T | JSR Long2Quad(a : Long) : Quad 00022f94 58 4f |XO | ADDQ.L #0x4,A7 00022f96 4e ba e9 e4 |N | JSR 0x2197c 00022f9a 50 4f |PO | ADDQ.L #0x8,A7 00022f9c 4c df 03 c3 |L | MOVEM.L (A7)+,D0+D1+D6+D7+A0+A1 00022fa0 4e 5e |N^ | UNLK A6 00022fa2 4e 75 |Nu | RTS 00022fa4 ; -------------------------------------------------------------------------------------- 00022fa4 ; OMSI PASCAL Function 00022fa4 ; <LVAR 0x008 4(r)> 00022fa4 ; <LVAR -0x004 @ 1(r)> 00022fa4 ; -------------------------------------------------------------------------------------- 00022fa4 4e 56 ff b8 |NV | LINK.W A6,#0xffb8 00022fa8 bf d5 | | CMPA.L (A5),A7 00022faa 62 06 |b | BHI 0x22fb2 00022fac 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022fb0 4e 76 |Nv | TRAPV 00022fb2 de fc 00 44 | D | ADDA.W #0x44,A7 00022fb6 48 e7 e0 e0 |H | MOVEM.L A2+A1+A0+D2+D1+D0,-(A7) 00022fba 45 f9 00 02 66 66 |E ff | LEA.L 0x26666,A2 00022fc0 72 01 |r | MOVEQ.L #0x01,D1 00022fc2 74 00 |t | MOVEQ.L #0x00,D2 00022fc4 4a 12 |J | TST.B (A2) 00022fc6 66 32 |f2 | BNE 0x22ffa 00022fc8 9e fc 00 1c | | SUBA.W #0x1c,A7 00022fcc 20 4f | O | MOVEA.L A7,A0 00022fce 43 fa d7 b4 |C | LEA.L 0x20784,A1 00022fd2 70 1a |p | MOVEQ.L #0x1a,D0 00022fd4 10 d9 | | MOVE.B (A1)+,(A0)+ 00022fd6 51 c8 ff fc |Q | DBF D0,0x22fd4 00022fda 59 4f |YO | SUBQ.L #0x4,A7 00022fdc 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022fe0 3f 01 |? | MOVE.W D1,-(A7) 00022fe2 3f 3c 00 1b |?< | MOVE.W #0x1b,-(A7) 00022fe6 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00022fec 50 4f |PO | ADDQ.L #0x8,A7 00022fee 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00022ff4 de fc 00 20 | | ADDA.W #0x20,A7 00022ff8 14 81 | | MOVE.B D1,(A2) 00022ffa 5d 4f |]O | SUBQ.L #0x6,A7 00022ffc 4e b9 00 01 03 f8 |N | JSR GetConsoleConfig() : Long 00023002 20 1f | | MOVE.L (A7)+,D0 00023004 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 0002300a 63 02 |c | BLS 0x2300e 0002300c 4e 4f |NO | TRAP #15 0002300e 3e 80 |> | MOVE.W D0,(A7) 00023010 48 6e ff fc |Hn | PEA.L (A6-0x4) 00023014 4e b9 00 01 02 12 |N | JSR KC09_PortStatus(Port : Word; VAR b: Byte) 0002301a 5c 4f |\O | ADDQ.L #0x6,A7 0002301c 10 2e ff fc | . | MOVE.B (A6-0x4),D0 00023020 b0 01 | | CMP.B D1,D0 00023022 67 16 |g | BEQ 0x2303a 00023024 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023028 4e ba da be |N | JSR 0x20ae8 0002302c 58 4f |XO | ADDQ.L #0x4,A7 0002302e 2e 6d 00 08 |.m | MOVEA.L (A5+0x8),A7 00023032 3c 42 |<B | MOVEA.W D2,A6 00023034 4e f9 00 02 43 cc |N C | JMP 0x243cc 0002303a 55 4f |UO | SUBQ.L #0x2,A7 0002303c 4e b9 00 01 03 d4 |N | JSR ReadChar() : Byte 00023042 10 1f | | MOVE.B (A7)+,D0 00023044 0c 00 00 07 | | CMPI.B #0x07,D0 00023048 67 16 |g | BEQ 0x23060 0002304a 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 0002304e 4e ba da 98 |N | JSR 0x20ae8 00023052 58 4f |XO | ADDQ.L #0x4,A7 00023054 2e 6d 00 08 |.m | MOVEA.L (A5+0x8),A7 00023058 3c 42 |<B | MOVEA.W D2,A6 0002305a 4e f9 00 02 43 cc |N C | JMP 0x243cc 00023060 4c df 07 07 |L | MOVEM.L (A7)+,D0+D1+D2+A0+A1+A2 00023064 4e 5e |N^ | UNLK A6 00023066 4e 75 |Nu | RTS 00023068 ; -------------------------------------------------------------------------------------- 00023068 ; OMSI PASCAL Function 00023068 ; -------------------------------------------------------------------------------------- 00023068 4e 56 ff f8 |NV | LINK.W A6,#0xfff8 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 08 | | ADDA.W #0x8,A7 0002307a 48 78 00 c8 |Hx | PEA.L 0xc8 0002307e 4e ba e9 30 |N 0 | JSR 0x219b0 00023082 58 4f |XO | ADDQ.L #0x4,A7 00023084 4e 5e |N^ | UNLK A6 00023086 4e 75 |Nu | RTS 00023088 ; -------------------------------------------------------------------------------------- 00023088 ; OMSI PASCAL Function 00023088 ; <LVAR 0x008 4(r)> 00023088 ; <LVAR -0x00c @ 4(r)> 00023088 ; -------------------------------------------------------------------------------------- 00023088 4e 56 ff ac |NV | LINK.W A6,#0xffac 0002308c bf d5 | | CMPA.L (A5),A7 0002308e 62 06 |b | BHI 0x23096 00023090 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023094 4e 76 |Nv | TRAPV 00023096 de fc 00 48 | H | ADDA.W #0x48,A7 0002309a 48 e7 83 c0 |H | MOVEM.L A1+A0+D7+D6+D0,-(A7) 0002309e 43 ee ff f4 |C | LEA.L (A6-0xc),A1 000230a2 48 51 |HQ | PEA.L (A1) 000230a4 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 000230aa 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000230ae 4e ba de 86 |N | JSR 0x20f36 000230b2 58 4f |XO | ADDQ.L #0x4,A7 000230b4 7e 01 |~ | MOVEQ.L #0x01,D7 000230b6 be 97 | | CMP.L (A7),D7 000230b8 6e 6a |nj | BGT 0x23124 000230ba 59 4f |YO | SUBQ.L #0x4,A7 000230bc 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000230c0 2f 07 |/ | MOVE.L D7,-(A7) 000230c2 4e ba e7 fc |N | JSR 0x218c0 000230c6 50 4f |PO | ADDQ.L #0x8,A7 000230c8 2c 1f |, | MOVE.L (A7)+,D6 000230ca 6d 20 |m | BLT 0x230ec 000230cc 0c 86 00 00 00 ff | | CMPI.L #0x000000ff,D6 000230d2 6e 18 |n | BGT 0x230ec 000230d4 2f 11 |/ | MOVE.L (A1),-(A7) 000230d6 0c 86 00 00 00 ff | | CMPI.L #0x000000ff,D6 000230dc 63 02 |c | BLS 0x230e0 000230de 4e 4f |NO | TRAP #15 000230e0 1f 06 | | MOVE.B D6,-(A7) 000230e2 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 000230e8 5c 4f |\O | ADDQ.L #0x6,A7 000230ea 60 34 |`4 | BRA 0x23120 000230ec 48 51 |HQ | PEA.L (A1) 000230ee 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000230f4 58 4f |XO | ADDQ.L #0x4,A7 000230f6 41 fa d6 c4 |A | LEA.L 0x207bc,A0 000230fa 70 06 |p | MOVEQ.L #0x06,D0 000230fc 2f 20 |/ | MOVE.L -(A0),-(A7) 000230fe 51 c8 ff fc |Q | DBF D0,0x230fc 00023102 59 4f |YO | SUBQ.L #0x4,A7 00023104 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023108 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 0002310c 3f 3c 00 1c |?< | MOVE.W #0x1c,-(A7) 00023110 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00023116 50 4f |PO | ADDQ.L #0x8,A7 00023118 4e ba da 10 |N | JSR 0x20b2a 0002311c de fc 00 20 | | ADDA.W #0x20,A7 00023120 52 87 |R | ADDQ.L #0x1,D7 00023122 68 92 |h | BVC 0x230b6 00023124 2e 91 |. | MOVE.L (A1),(A7) 00023126 4e ba e7 cc |N | JSR 0x218f4 0002312a 58 4f |XO | ADDQ.L #0x4,A7 0002312c 4c df 03 c1 |L | MOVEM.L (A7)+,D0+D6+D7+A0+A1 00023130 4e 5e |N^ | UNLK A6 00023132 4e 75 |Nu | RTS 00023134 ; -------------------------------------------------------------------------------------- 00023134 ; OMSI PASCAL Function 00023134 ; <LVAR 0x00c 1(rw)> 00023134 ; <LVAR 0x008 4(r)> 00023134 ; -------------------------------------------------------------------------------------- 00023134 4e 56 ff c0 |NV | LINK.W A6,#0xffc0 00023138 bf d5 | | CMPA.L (A5),A7 0002313a 62 06 |b | BHI 0x23142 0002313c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023140 4e 76 |Nv | TRAPV 00023142 de fc 00 34 | 4 | ADDA.W #0x34,A7 00023146 48 e7 e7 c0 |H | MOVEM.L A1+A0+D7+D6+D5+D2+D1+D0,-(A7) 0002314a 42 2e 00 0c |B. | CLR.B (A6+0xc) 0002314e 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00023152 2f 08 |/ | MOVE.L A0,-(A7) 00023154 70 00 |p | MOVEQ.L #0x00,D0 00023156 52 40 |R@ | ADDQ.W #0x1,D0 00023158 1c 00 | | MOVE.B D0,D6 0002315a 0c 06 00 2b | + | CMPI.B #0x2b,D6 0002315e 6e 00 00 82 |n | BGT 0x231e2 00023162 41 fa d8 b2 |A | LEA.L 0x20a16,A0 00023166 10 06 | | MOVE.B D6,D0 00023168 48 80 |H | EXTB.W D0 0002316a 48 c0 |H | EXTW.L D0 0002316c e2 98 | | ROR.L #0x1,D0 0002316e d0 c0 | | ADDA.W D0,A0 00023170 48 40 |H@ | SWAP.W D0 00023172 e7 58 | X | ROL.W #0x3,D0 00023174 42 81 |B | CLR.L D1 00023176 12 10 | | MOVE.B (A0),D1 00023178 e1 29 | ) | LSL.B D0,D1 0002317a e8 09 | | LSR.B #0x4,D1 0002317c 2a 01 |* | MOVE.L D1,D5 0002317e 20 57 | W | MOVEA.L (A7),A0 00023180 30 10 |0 | MOVE.W (A0),D0 00023182 48 c0 |H | EXTW.L D0 00023184 ba 80 | | CMP.L D0,D5 00023186 66 54 |fT | BNE 0x231dc 00023188 2f 05 |/ | MOVE.L D5,-(A7) 0002318a 7e 01 |~ | MOVEQ.L #0x01,D7 0002318c be 97 | | CMP.L (A7),D7 0002318e 6e 42 |nB | BGT 0x231d2 00023190 10 06 | | MOVE.B D6,D0 00023192 48 80 |H | EXTB.W D0 00023194 c1 fc 00 0a | | MULS.W #0xa,D0 00023198 22 07 |" | MOVE.L D7,D1 0002319a 53 81 |S | SUBQ.L #0x1,D1 0002319c 0c 81 00 00 00 7d | } | CMPI.L #0x0000007d,D1 000231a2 63 02 |c | BLS 0x231a6 000231a4 4e 4f |NO | TRAP #15 000231a6 20 6f 00 04 | o | MOVEA.L (A7+0x4),A0 000231aa 43 fa d6 b2 |C | LEA.L COMMAND_TABLE_2085e,A1 000231ae 24 07 |$ | MOVE.L D7,D2 000231b0 53 82 |S | SUBQ.L #0x1,D2 000231b2 0c 82 00 00 00 09 | | CMPI.L #0x00000009,D2 000231b8 63 02 |c | BLS 0x231bc 000231ba 4e 4f |NO | TRAP #15 000231bc 43 f1 00 00 |C | LEA.L (A1+D0.W),A1 000231c0 10 30 18 02 | 0 | MOVE.B (A0+D1.L+#0x2),D0 000231c4 b0 31 28 00 | 1( | CMP.B (A1+D2.L),D0 000231c8 67 04 |g | BEQ 0x231ce 000231ca 58 4f |XO | ADDQ.L #0x4,A7 000231cc 60 0e |` | BRA 0x231dc 000231ce 52 87 |R | ADDQ.L #0x1,D7 000231d0 68 ba |h | BVC 0x2318c 000231d2 58 4f |XO | ADDQ.L #0x4,A7 000231d4 1d 46 00 0c | F | MOVE.B D6,(A6+0xc) 000231d8 58 4f |XO | ADDQ.L #0x4,A7 000231da 60 08 |` | BRA 0x231e4 000231dc 52 06 |R | ADDQ.B #0x1,D6 000231de 68 00 ff 7a |h z | BVC 0x2315a 000231e2 58 4f |XO | ADDQ.L #0x4,A7 000231e4 4c df 03 e7 |L | MOVEM.L (A7)+,D0+D1+D2+D5+D6+D7+A0+A1 000231e8 4e 5e |N^ | UNLK A6 000231ea 4e 75 |Nu | RTS 000231ec ; -------------------------------------------------------------------------------------- 000231ec ; OMSI PASCAL Function 000231ec ; <LVAR 0x00c 4(r)> 000231ec ; <LVAR 0x008 4(r)> 000231ec ; <LVAR -0x002 @ 1(r)> 000231ec ; <LVAR -0x006 @ 4(w)> 000231ec ; <LVAR -0x008 @ 1(r)> 000231ec ; <LVAR -0x00c @ 4(r)> 000231ec ; <LVAR -0x010 @ 4(rw)> 000231ec ; -------------------------------------------------------------------------------------- 000231ec 4e 56 ff a6 |NV | LINK.W A6,#0xffa6 000231f0 bf d5 | | CMPA.L (A5),A7 000231f2 62 06 |b | BHI 0x231fa 000231f4 44 fc 00 02 |D | MOVE.W #0x2,CCR 000231f8 4e 76 |Nv | TRAPV 000231fa de fc 00 4a | J | ADDA.W #0x4a,A7 000231fe 48 e7 c0 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D1+D0,-(A7) 00023202 45 ee ff f0 |E | LEA.L (A6-0x10),A2 00023206 47 ee ff fe |G | LEA.L (A6-0x2),A3 0002320a 49 ee ff f4 |I | LEA.L (A6-0xc),A4 0002320e 72 01 |r | MOVEQ.L #0x01,D1 00023210 59 4f |YO | SUBQ.L #0x4,A7 00023212 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00023216 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 0002321c 58 4f |XO | ADDQ.L #0x4,A7 0002321e 24 9f |$ | MOVE.L (A7)+,(A2) 00023220 2f 12 |/ | MOVE.L (A2),-(A7) 00023222 1f 3c 00 2e | < . | MOVE.B #0x2e,-(A7) 00023226 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 0002322c 5c 4f |\O | ADDQ.L #0x6,A7 0002322e 41 f9 00 02 66 46 |A fF | LEA.L 0x26646,A0 00023234 70 04 |p | MOVEQ.L #0x04,D0 00023236 3f 20 |? | MOVE.W -(A0),-(A7) 00023238 51 c8 ff fc |Q | DBF D0,0x23236 0002323c 59 4f |YO | SUBQ.L #0x4,A7 0002323e 2f 12 |/ | MOVE.L (A2),-(A7) 00023240 59 4f |YO | SUBQ.L #0x4,A7 00023242 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00023246 3f 01 |? | MOVE.W D1,-(A7) 00023248 3f 3c 00 0a |?< | MOVE.W #0xa,-(A7) 0002324c 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00023252 50 4f |PO | ADDQ.L #0x8,A7 00023254 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 0002325a 50 4f |PO | ADDQ.L #0x8,A7 0002325c 24 9f |$ | MOVE.L (A7)+,(A2) 0002325e 5c 4f |\O | ADDQ.L #0x6,A7 00023260 2e 92 |. | MOVE.L (A2),(A7) 00023262 42 27 |B' | CLR.B -(A7) 00023264 1f 01 | | MOVE.B D1,-(A7) 00023266 48 78 00 00 |Hx | PEA.L 0x0 0002326a 48 53 |HS | PEA.L (A3) 0002326c 48 54 |HT | PEA.L (A4) 0002326e 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File) 00023274 de fc 00 14 | | ADDA.W #0x14,A7 00023278 4a 13 |J | TST.B (A3) 0002327a 67 4a |gJ | BEQ 0x232c6 0002327c 48 52 |HR | PEA.L (A2) 0002327e 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00023284 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7) 00023288 4e ba d8 5e |N ^ | JSR 0x20ae8 0002328c 9e fc 00 16 | | SUBA.W #0x16,A7 00023290 20 4f | O | MOVEA.L A7,A0 00023292 43 fa d5 28 |C ( | LEA.L 0x207bc,A1 00023296 70 18 |p | MOVEQ.L #0x18,D0 00023298 10 d9 | | MOVE.B (A1)+,(A0)+ 0002329a 51 c8 ff fc |Q | DBF D0,0x23298 0002329e 51 4f |QO | SUBQ.L #0x8,A7 000232a0 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000232a4 3f 01 |? | MOVE.W D1,-(A7) 000232a6 3f 3c 00 19 |?< | MOVE.W #0x19,-(A7) 000232aa 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000232b0 58 4f |XO | ADDQ.L #0x4,A7 000232b2 2e ae 00 0c |. | MOVE.L (A6+0xc),(A7) 000232b6 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000232bc 50 4f |PO | ADDQ.L #0x8,A7 000232be 4e ba d8 6a |N j | JSR 0x20b2a 000232c2 de fc 00 1e | | ADDA.W #0x1e,A7 000232c6 2d 79 00 02 66 34 ff fa |-y f4 | MOVE.L 0x26634,(A6-0x6) 000232ce 2f 14 |/ | MOVE.L (A4),-(A7) 000232d0 48 52 |HR | PEA.L (A2) 000232d2 48 6e ff f8 |Hn | PEA.L (A6-0x8) 000232d6 4e b9 00 01 04 3c |N < | JSR FileReadLine(file : File; VAR a : String; VAR b : Byte) 000232dc de fc 00 0c | | ADDA.W #0xc,A7 000232e0 20 52 | R | MOVEA.L (A2),A0 000232e2 4a 50 |JP | TST.W (A0) 000232e4 67 14 |g | BEQ 0x232fa 000232e6 2f 12 |/ | MOVE.L (A2),-(A7) 000232e8 4e ba da 98 |N | JSR 0x20d82 000232ec 58 4f |XO | ADDQ.L #0x4,A7 000232ee 48 6e ff fa |Hn | PEA.L (A6-0x6) 000232f2 2f 12 |/ | MOVE.L (A2),-(A7) 000232f4 4e ba de 12 |N | JSR 0x21108 000232f8 50 4f |PO | ADDQ.L #0x8,A7 000232fa 4a 2e ff f8 |J. | TST.B (A6-0x8) 000232fe 67 ce |g | BEQ 0x232ce 00023300 42 27 |B' | CLR.B -(A7) 00023302 1f 01 | | MOVE.B D1,-(A7) 00023304 48 78 00 01 |Hx | PEA.L 0x1 00023308 48 53 |HS | PEA.L (A3) 0002330a 48 54 |HT | PEA.L (A4) 0002330c 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File) 00023312 de fc 00 10 | | ADDA.W #0x10,A7 00023316 48 52 |HR | PEA.L (A2) 00023318 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 0002331e 58 4f |XO | ADDQ.L #0x4,A7 00023320 4c df 1f 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2+A3+A4 00023324 4e 5e |N^ | UNLK A6 00023326 4e 75 |Nu | RTS 00023328 ; -------------------------------------------------------------------------------------- 00023328 ; OMSI PASCAL Function 00023328 ; <LVAR 0x014 1(w)> 00023328 ; <LVAR 0x00c 4(r)> 00023328 ; <LVAR 0x008 4(r)> 00023328 ; -------------------------------------------------------------------------------------- 00023328 4e 56 ff f4 |NV | LINK.W A6,#0xfff4 0002332c bf d5 | | CMPA.L (A5),A7 0002332e 62 06 |b | BHI 0x23336 00023330 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023334 4e 76 |Nv | TRAPV 00023336 de fc 00 0c | | ADDA.W #0xc,A7 0002333a 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 0002333e 20 2e 00 0c | . | MOVE.L (A6+0xc),D0 00023342 d0 ae 00 08 | | ADD.L (A6+0x8),D0 00023346 53 80 |S | SUBQ.L #0x1,D0 00023348 53 80 |S | SUBQ.L #0x1,D0 0002334a 0c 80 00 00 1f ff | | CMPI.L #0x00001fff,D0 00023350 63 02 |c | BLS 0x23354 00023352 4e 4f |NO | TRAP #15 00023354 41 f9 00 02 46 2c |A F, | LEA.L 0x2462c,A0 0002335a 1d 70 08 08 00 14 | p | MOVE.B (A0+D0.L+#0x8),(A6+0x14) 00023360 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 00023364 4e 5e |N^ | UNLK A6 00023366 4e 75 |Nu | RTS 00023368 ; -------------------------------------------------------------------------------------- 00023368 ; OMSI PASCAL Function 00023368 ; <LVAR 0x010 4(w)> 00023368 ; <LVAR 0x00c 4(r)> 00023368 ; <LVAR 0x008 4(r)> 00023368 ; <LVAR -0x004 @ 1(r)> 00023368 ; <LVAR -0x008 @ 4(r)> 00023368 ; -------------------------------------------------------------------------------------- 00023368 4e 56 ff c4 |NV | LINK.W A6,#0xffc4 0002336c bf d5 | | CMPA.L (A5),A7 0002336e 62 06 |b | BHI 0x23376 00023370 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023374 4e 76 |Nv | TRAPV 00023376 de fc 00 34 | 4 | ADDA.W #0x34,A7 0002337a 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7) 0002337e 59 4f |YO | SUBQ.L #0x4,A7 00023380 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00023384 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023388 4e ba e4 4c |N L | JSR 0x217d6 0002338c 50 4f |PO | ADDQ.L #0x8,A7 0002338e 48 6e ff fc |Hn | PEA.L (A6-0x4) 00023392 48 6e ff f8 |Hn | PEA.L (A6-0x8) 00023396 4e b9 00 01 02 ec |N | JSR String2Long(src : String; VAR status : Bool; VAR retval : Long) 0002339c de fc 00 0c | | ADDA.W #0xc,A7 000233a0 4a 2e ff fc |J. | TST.B (A6-0x4) 000233a4 66 30 |f0 | BNE 0x233d6 000233a6 9e fc 00 18 | | SUBA.W #0x18,A7 000233aa 20 4f | O | MOVEA.L A7,A0 000233ac 43 fa d4 28 |C ( | LEA.L 0x207d6,A1 000233b0 70 16 |p | MOVEQ.L #0x16,D0 000233b2 10 d9 | | MOVE.B (A1)+,(A0)+ 000233b4 51 c8 ff fc |Q | DBF D0,0x233b2 000233b8 59 4f |YO | SUBQ.L #0x4,A7 000233ba 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000233be 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000233c2 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7) 000233c6 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000233cc 50 4f |PO | ADDQ.L #0x8,A7 000233ce 4e ba d7 5a |N Z | JSR 0x20b2a 000233d2 de fc 00 1c | | ADDA.W #0x1c,A7 000233d6 2d 6e ff f8 00 10 |-n | MOVE.L (A6-0x8),(A6+0x10) 000233dc 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1 000233e0 4e 5e |N^ | UNLK A6 000233e2 4e 75 |Nu | RTS 000233e4 ; -------------------------------------------------------------------------------------- 000233e4 ; OMSI PASCAL Function 000233e4 ; <LVAR 0x014 4(r)> 000233e4 ; <LVAR 0x010 4(r)> 000233e4 ; <LVAR 0x00c 4(r)> 000233e4 ; <LVAR 0x008 4(r)> 000233e4 ; <LVAR -0x00c 4(rw)> 000233e4 ; <LVAR -0x010 4(rw)> 000233e4 ; <LVAR -0x014 4(rw)> 000233e4 ; <LVAR -0x018 4(w)> 000233e4 ; <LVAR -0x020 4(rw)> 000233e4 ; -------------------------------------------------------------------------------------- 000233e4 4e 56 ff 8e |NV | LINK.W A6,#0xff8e 000233e8 bf d5 | | CMPA.L (A5),A7 000233ea 62 06 |b | BHI 0x233f2 000233ec 44 fc 00 02 |D | MOVE.W #0x2,CCR 000233f0 4e 76 |Nv | TRAPV 000233f2 de fc 00 4e | N | ADDA.W #0x4e,A7 000233f6 48 e7 c7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D1+D0,-(A7) 000233fa 43 ee ff e0 |C | LEA.L (A6-0x20),A1 000233fe 45 ee ff f0 |E | LEA.L (A6-0x10),A2 00023402 47 ee ff f4 |G | LEA.L (A6-0xc),A3 00023406 49 ee ff ec |I | LEA.L (A6-0x14),A4 0002340a 7e 00 |~ | MOVEQ.L #0x00,D7 0002340c 22 ae 00 14 |" | MOVE.L (A6+0x14),(A1) 00023410 20 39 00 02 66 34 | 9 f4 | MOVE.L 0x26634,D0 00023416 90 ae 00 14 | | SUB.L (A6+0x14),D0 0002341a 28 80 |( | MOVE.L D0,(A4) 0002341c 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00023420 2a 2e 00 10 |*. | MOVE.L (A6+0x10),D5 00023424 ba 97 | | CMP.L (A7),D5 00023426 6e 2c |n, | BGT 0x23454 00023428 51 4f |QO | SUBQ.L #0x8,A7 0002342a 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 0002342e 2f 05 |/ | MOVE.L D5,-(A7) 00023430 4e ba e3 42 |N B | JSR 0x21774 00023434 50 4f |PO | ADDQ.L #0x8,A7 00023436 24 9f |$ | MOVE.L (A7)+,(A2) 00023438 26 97 |& | MOVE.L (A7),(A3) 0002343a 2f 13 |/ | MOVE.L (A3),-(A7) 0002343c 2f 12 |/ | MOVE.L (A2),-(A7) 0002343e 4e ba e2 fc |N | JSR 0x2173c 00023442 50 4f |PO | ADDQ.L #0x8,A7 00023444 2c 1f |, | MOVE.L (A7)+,D6 00023446 de 86 | | ADD.L D6,D7 00023448 ba ae 00 0c | | CMP.L (A6+0xc),D5 0002344c 6c 02 |l | BGE 0x23450 0002344e 52 87 |R | ADDQ.L #0x1,D7 00023450 52 85 |R | ADDQ.L #0x1,D5 00023452 68 d0 |h | BVC 0x23424 00023454 58 4f |XO | ADDQ.L #0x4,A7 00023456 20 11 | | MOVE.L (A1),D0 00023458 d0 94 | | ADD.L (A4),D0 0002345a 2d 40 ff e8 |-@ | MOVE.L D0,(A6-0x18) 0002345e be 94 | | CMP.L (A4),D7 00023460 67 0c |g | BEQ 0x2346e 00023462 2f 00 |/ | MOVE.L D0,-(A7) 00023464 2f 14 |/ | MOVE.L (A4),-(A7) 00023466 9f 97 | | SUB.L D7,(A7) 00023468 4e ba dc 14 |N | JSR 0x2107e 0002346c 50 4f |PO | ADDQ.L #0x8,A7 0002346e 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00023472 2a 2e 00 10 |*. | MOVE.L (A6+0x10),D5 00023476 ba 97 | | CMP.L (A7),D5 00023478 6e 00 00 88 |n | BGT 0x23502 0002347c 51 4f |QO | SUBQ.L #0x8,A7 0002347e 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023482 2f 05 |/ | MOVE.L D5,-(A7) 00023484 4e ba e2 ee |N | JSR 0x21774 00023488 50 4f |PO | ADDQ.L #0x8,A7 0002348a 24 9f |$ | MOVE.L (A7)+,(A2) 0002348c 26 97 |& | MOVE.L (A7),(A3) 0002348e 2f 13 |/ | MOVE.L (A3),-(A7) 00023490 2f 12 |/ | MOVE.L (A2),-(A7) 00023492 4e ba e2 a8 |N | JSR 0x2173c 00023496 50 4f |PO | ADDQ.L #0x8,A7 00023498 2c 1f |, | MOVE.L (A7)+,D6 0002349a 2f 06 |/ | MOVE.L D6,-(A7) 0002349c 70 01 |p | MOVEQ.L #0x01,D0 0002349e b0 97 | | CMP.L (A7),D0 000234a0 6e 30 |n0 | BGT 0x234d2 000234a2 22 11 |" | MOVE.L (A1),D1 000234a4 d2 80 | | ADD.L D0,D1 000234a6 53 81 |S | SUBQ.L #0x1,D1 000234a8 53 81 |S | SUBQ.L #0x1,D1 000234aa 0c 81 00 00 1f ff | | CMPI.L #0x00001fff,D1 000234b0 63 02 |c | BLS 0x234b4 000234b2 4e 4f |NO | TRAP #15 000234b4 41 f9 00 02 46 2c |A F, | LEA.L 0x2462c,A0 000234ba 55 4f |UO | SUBQ.L #0x2,A7 000234bc 2f 13 |/ | MOVE.L (A3),-(A7) 000234be 2f 12 |/ | MOVE.L (A2),-(A7) 000234c0 2f 00 |/ | MOVE.L D0,-(A7) 000234c2 4e ba fe 64 |N d | JSR 0x23328 000234c6 de fc 00 0c | | ADDA.W #0xc,A7 000234ca 11 9f 18 08 | | MOVE.B (A7)+,(A0+D1.L+#0x8) 000234ce 52 80 |R | ADDQ.L #0x1,D0 000234d0 68 cc |h | BVC 0x2349e 000234d2 58 4f |XO | ADDQ.L #0x4,A7 000234d4 ba ae 00 0c | | CMP.L (A6+0xc),D5 000234d8 6c 22 |l" | BGE 0x234fc 000234da 20 11 | | MOVE.L (A1),D0 000234dc d0 86 | | ADD.L D6,D0 000234de 22 00 |" | MOVE.L D0,D1 000234e0 53 81 |S | SUBQ.L #0x1,D1 000234e2 0c 81 00 00 1f ff | | CMPI.L #0x00001fff,D1 000234e8 63 02 |c | BLS 0x234ec 000234ea 4e 4f |NO | TRAP #15 000234ec 41 f9 00 02 46 2c |A F, | LEA.L 0x2462c,A0 000234f2 11 bc 00 2c 18 08 | , | MOVE.B #0x2c,(A0+D1.L+#0x8) 000234f8 52 80 |R | ADDQ.L #0x1,D0 000234fa 22 80 |" | MOVE.L D0,(A1) 000234fc 52 85 |R | ADDQ.L #0x1,D5 000234fe 68 00 ff 76 |h v | BVC 0x23476 00023502 58 4f |XO | ADDQ.L #0x4,A7 00023504 4c df 1f e3 |L | MOVEM.L (A7)+,D0+D1+D5+D6+D7+A0+A1+A2+A3+A4 00023508 4e 5e |N^ | UNLK A6 0002350a 4e 75 |Nu | RTS 0002350c ; -------------------------------------------------------------------------------------- 0002350c ; OMSI PASCAL Function 0002350c ; <LVAR 0x018 4(rw)> 0002350c ; <LVAR 0x014 4(r)> 0002350c ; <LVAR 0x010 4(r)> 0002350c ; <LVAR 0x00c 4(r)> 0002350c ; <LVAR 0x008 4(r)> 0002350c ; <LVAR -0x008 4(rw)> 0002350c ; <LVAR -0x00c 4(rw)> 0002350c ; <LVAR -0x018 4(w)> 0002350c ; -------------------------------------------------------------------------------------- 0002350c 4e 56 ff 9e |NV | LINK.W A6,#0xff9e 00023510 bf d5 | | CMPA.L (A5),A7 00023512 62 06 |b | BHI 0x2351a 00023514 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023518 4e 76 |Nv | TRAPV 0002351a de fc 00 4a | J | ADDA.W #0x4a,A7 0002351e 48 e7 c7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D1+D0,-(A7) 00023522 41 ee ff f8 |A | LEA.L (A6-0x8),A0 00023526 43 ee 00 14 |C | LEA.L (A6+0x14),A1 0002352a 45 ee 00 10 |E | LEA.L (A6+0x10),A2 0002352e 47 ee ff f4 |G | LEA.L (A6-0xc),A3 00023532 49 fa fd f4 |I | LEA.L 0x23328,A4 00023536 72 0c |r | MOVEQ.L #0x0c,D1 00023538 59 4f |YO | SUBQ.L #0x4,A7 0002353a 2f 11 |/ | MOVE.L (A1),-(A7) 0002353c 2f 12 |/ | MOVE.L (A2),-(A7) 0002353e 4e ba e1 fc |N | JSR 0x2173c 00023542 50 4f |PO | ADDQ.L #0x8,A7 00023544 26 97 |& | MOVE.L (A7),(A3) 00023546 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 0002354a 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 0002354e 4e ba e1 ec |N | JSR 0x2173c 00023552 50 4f |PO | ADDQ.L #0x8,A7 00023554 20 9f | | MOVE.L (A7)+,(A0) 00023556 52 90 |R | ADDQ.L #0x1,(A0) 00023558 20 13 | | MOVE.L (A3),D0 0002355a 90 90 | | SUB.L (A0),D0 0002355c 52 80 |R | ADDQ.L #0x1,D0 0002355e 2f 00 |/ | MOVE.L D0,-(A7) 00023560 70 01 |p | MOVEQ.L #0x01,D0 00023562 b0 97 | | CMP.L (A7),D0 00023564 6e 00 00 8e |n | BGT 0x235f4 00023568 2d 40 ff e8 |-@ | MOVE.L D0,(A6-0x18) 0002356c 2f 00 |/ | MOVE.L D0,-(A7) 0002356e 7c 00 || | MOVEQ.L #0x00,D6 00023570 2f 10 |/ | MOVE.L (A0),-(A7) 00023572 7a 01 |z | MOVEQ.L #0x01,D5 00023574 ba 97 | | CMP.L (A7),D5 00023576 6e 42 |nB | BGT 0x235ba 00023578 0c 85 00 00 00 01 | | CMPI.L #0x00000001,D5 0002357e 66 04 |f | BNE 0x23584 00023580 7e 2f |~/ | MOVEQ.L #0x2f,D7 00023582 60 14 |` | BRA 0x23598 00023584 55 4f |UO | SUBQ.L #0x2,A7 00023586 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 0002358a 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 0002358e 2f 05 |/ | MOVE.L D5,-(A7) 00023590 53 97 |S | SUBQ.L #0x1,(A7) 00023592 4e 94 |N | JSR (A4) 00023594 de c1 | | ADDA.W D1,A7 00023596 1e 1f | | MOVE.B (A7)+,D7 00023598 55 4f |UO | SUBQ.L #0x2,A7 0002359a 2f 11 |/ | MOVE.L (A1),-(A7) 0002359c 2f 12 |/ | MOVE.L (A2),-(A7) 0002359e 20 2f 00 0e | / | MOVE.L (A7+0xe),D0 000235a2 d0 85 | | ADD.L D5,D0 000235a4 53 80 |S | SUBQ.L #0x1,D0 000235a6 2f 00 |/ | MOVE.L D0,-(A7) 000235a8 4e 94 |N | JSR (A4) 000235aa de c1 | | ADDA.W D1,A7 000235ac be 1f | | CMP.B (A7)+,D7 000235ae 67 04 |g | BEQ 0x235b4 000235b0 58 4f |XO | ADDQ.L #0x4,A7 000235b2 60 08 |` | BRA 0x235bc 000235b4 2c 05 |, | MOVE.L D5,D6 000235b6 52 85 |R | ADDQ.L #0x1,D5 000235b8 68 ba |h | BVC 0x23574 000235ba 58 4f |XO | ADDQ.L #0x4,A7 000235bc bc 90 | | CMP.L (A0),D6 000235be 66 2c |f, | BNE 0x235ec 000235c0 20 17 | | MOVE.L (A7),D0 000235c2 2d 40 00 18 |-@ | MOVE.L D0,(A6+0x18) 000235c6 d0 90 | | ADD.L (A0),D0 000235c8 b0 93 | | CMP.L (A3),D0 000235ca 6d 02 |m | BLT 0x235ce 000235cc 60 1a |` | BRA 0x235e8 000235ce 55 4f |UO | SUBQ.L #0x2,A7 000235d0 2f 11 |/ | MOVE.L (A1),-(A7) 000235d2 2f 12 |/ | MOVE.L (A2),-(A7) 000235d4 2f 00 |/ | MOVE.L D0,-(A7) 000235d6 4e 94 |N | JSR (A4) 000235d8 de c1 | | ADDA.W D1,A7 000235da 1e 1f | | MOVE.B (A7)+,D7 000235dc 0c 07 00 2f | / | CMPI.B #0x2f,D7 000235e0 67 06 |g | BEQ 0x235e8 000235e2 0c 07 00 3d | = | CMPI.B #0x3d,D7 000235e6 66 04 |f | BNE 0x235ec 000235e8 50 4f |PO | ADDQ.L #0x8,A7 000235ea 60 0e |` | BRA 0x235fa 000235ec 20 1f | | MOVE.L (A7)+,D0 000235ee 52 80 |R | ADDQ.L #0x1,D0 000235f0 68 00 ff 70 |h p | BVC 0x23562 000235f4 58 4f |XO | ADDQ.L #0x4,A7 000235f6 42 ae 00 18 |B | CLR.L (A6+0x18) 000235fa 4c df 1f e3 |L | MOVEM.L (A7)+,D0+D1+D5+D6+D7+A0+A1+A2+A3+A4 000235fe 4e 5e |N^ | UNLK A6 00023600 4e 75 |Nu | RTS 00023602 ; -------------------------------------------------------------------------------------- 00023602 ; OMSI PASCAL Function 00023602 ; <LVAR 0x018 4(r)> 00023602 ; <LVAR 0x014 4(r)> 00023602 ; <LVAR 0x010 4(r)> 00023602 ; <LVAR 0x00c 4(r)> 00023602 ; <LVAR 0x008 4(r)> 00023602 ; -------------------------------------------------------------------------------------- 00023602 4e 56 ff be |NV | LINK.W A6,#0xffbe 00023606 bf d5 | | CMPA.L (A5),A7 00023608 62 06 |b | BHI 0x23610 0002360a 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002360e 4e 76 |Nv | TRAPV 00023610 de fc 00 36 | 6 | ADDA.W #0x36,A7 00023614 48 e7 c7 c0 |H | MOVEM.L A1+A0+D7+D6+D5+D1+D0,-(A7) 00023618 41 ee 00 14 |A | LEA.L (A6+0x14),A0 0002361c 43 ee 00 10 |C | LEA.L (A6+0x10),A1 00023620 72 2f |r/ | MOVEQ.L #0x2f,D1 00023622 59 4f |YO | SUBQ.L #0x4,A7 00023624 2f 10 |/ | MOVE.L (A0),-(A7) 00023626 2f 11 |/ | MOVE.L (A1),-(A7) 00023628 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 0002362c 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023630 4e ba fe da |N | JSR 0x2350c 00023634 de fc 00 10 | | ADDA.W #0x10,A7 00023638 2a 1f |* | MOVE.L (A7)+,D5 0002363a 6f 52 |oR | BLE 0x2368e 0002363c 2f 2e 00 18 |/. | MOVE.L (A6+0x18),-(A7) 00023640 1f 01 | | MOVE.B D1,-(A7) 00023642 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00023648 5c 4f |\O | ADDQ.L #0x6,A7 0002364a 20 05 | | MOVE.L D5,D0 0002364c 52 80 |R | ADDQ.L #0x1,D0 0002364e 59 4f |YO | SUBQ.L #0x4,A7 00023650 2f 10 |/ | MOVE.L (A0),-(A7) 00023652 2f 11 |/ | MOVE.L (A1),-(A7) 00023654 4e ba e0 e6 |N | JSR 0x2173c 00023658 50 4f |PO | ADDQ.L #0x8,A7 0002365a 2c 00 |, | MOVE.L D0,D6 0002365c bc 97 | | CMP.L (A7),D6 0002365e 6e 2c |n, | BGT 0x2368c 00023660 55 4f |UO | SUBQ.L #0x2,A7 00023662 2f 10 |/ | MOVE.L (A0),-(A7) 00023664 2f 11 |/ | MOVE.L (A1),-(A7) 00023666 2f 06 |/ | MOVE.L D6,-(A7) 00023668 4e ba fc be |N | JSR 0x23328 0002366c de fc 00 0c | | ADDA.W #0xc,A7 00023670 1e 1f | | MOVE.B (A7)+,D7 00023672 be 01 | | CMP.B D1,D7 00023674 66 04 |f | BNE 0x2367a 00023676 58 4f |XO | ADDQ.L #0x4,A7 00023678 60 14 |` | BRA 0x2368e 0002367a 2f 2e 00 18 |/. | MOVE.L (A6+0x18),-(A7) 0002367e 1f 07 | | MOVE.B D7,-(A7) 00023680 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00023686 5c 4f |\O | ADDQ.L #0x6,A7 00023688 52 86 |R | ADDQ.L #0x1,D6 0002368a 68 d0 |h | BVC 0x2365c 0002368c 58 4f |XO | ADDQ.L #0x4,A7 0002368e 4c df 03 e3 |L | MOVEM.L (A7)+,D0+D1+D5+D6+D7+A0+A1 00023692 4e 5e |N^ | UNLK A6 00023694 4e 75 |Nu | RTS 00023696 ; -------------------------------------------------------------------------------------- 00023696 ; OMSI PASCAL Function 00023696 ; <LVAR 0x018 4(r)> 00023696 ; <LVAR 0x014 4(r)> 00023696 ; <LVAR 0x010 4(r)> 00023696 ; <LVAR 0x00c 4(r)> 00023696 ; <LVAR 0x008 4(r)> 00023696 ; <LVAR -0x006 4(rw)> 00023696 ; <LVAR -0x014 4(rw)> 00023696 ; -------------------------------------------------------------------------------------- 00023696 4e 56 ff aa |NV | LINK.W A6,#0xffaa 0002369a bf d5 | | CMPA.L (A5),A7 0002369c 62 06 |b | BHI 0x236a4 0002369e 44 fc 00 02 |D | MOVE.W #0x2,CCR 000236a2 4e 76 |Nv | TRAPV 000236a4 de fc 00 42 | B | ADDA.W #0x42,A7 000236a8 48 e7 c7 e0 |H | MOVEM.L A2+A1+A0+D7+D6+D5+D1+D0,-(A7) 000236ac 41 ee 00 14 |A | LEA.L (A6+0x14),A0 000236b0 43 ee 00 10 |C | LEA.L (A6+0x10),A1 000236b4 45 ee ff fa |E | LEA.L (A6-0x6),A2 000236b8 72 0c |r | MOVEQ.L #0x0c,D1 000236ba 59 4f |YO | SUBQ.L #0x4,A7 000236bc 2f 10 |/ | MOVE.L (A0),-(A7) 000236be 2f 11 |/ | MOVE.L (A1),-(A7) 000236c0 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 000236c4 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000236c8 4e ba fe 42 |N B | JSR 0x2350c 000236cc de fc 00 10 | | ADDA.W #0x10,A7 000236d0 2d 5f ff ec |-_ | MOVE.L (A7)+,(A6-0x14) 000236d4 6f 6e |on | BLE 0x23744 000236d6 59 4f |YO | SUBQ.L #0x4,A7 000236d8 2f 10 |/ | MOVE.L (A0),-(A7) 000236da 2f 11 |/ | MOVE.L (A1),-(A7) 000236dc 4e ba e0 5e |N ^ | JSR 0x2173c 000236e0 50 4f |PO | ADDQ.L #0x8,A7 000236e2 24 9f |$ | MOVE.L (A7)+,(A2) 000236e4 2f 12 |/ | MOVE.L (A2),-(A7) 000236e6 2a 2e ff ec |*. | MOVE.L (A6-0x14),D5 000236ea ba 97 | | CMP.L (A7),D5 000236ec 6e 54 |nT | BGT 0x23742 000236ee 55 4f |UO | SUBQ.L #0x2,A7 000236f0 2f 10 |/ | MOVE.L (A0),-(A7) 000236f2 2f 11 |/ | MOVE.L (A1),-(A7) 000236f4 2f 05 |/ | MOVE.L D5,-(A7) 000236f6 4e ba fc 30 |N 0 | JSR 0x23328 000236fa de c1 | | ADDA.W D1,A7 000236fc 10 1f | | MOVE.B (A7)+,D0 000236fe 0c 00 00 3d | = | CMPI.B #0x3d,D0 00023702 66 3a |f: | BNE 0x2373e 00023704 20 05 | | MOVE.L D5,D0 00023706 52 80 |R | ADDQ.L #0x1,D0 00023708 2f 12 |/ | MOVE.L (A2),-(A7) 0002370a 2c 00 |, | MOVE.L D0,D6 0002370c bc 97 | | CMP.L (A7),D6 0002370e 6e 2c |n, | BGT 0x2373c 00023710 55 4f |UO | SUBQ.L #0x2,A7 00023712 2f 10 |/ | MOVE.L (A0),-(A7) 00023714 2f 11 |/ | MOVE.L (A1),-(A7) 00023716 2f 06 |/ | MOVE.L D6,-(A7) 00023718 4e ba fc 0e |N | JSR 0x23328 0002371c de c1 | | ADDA.W D1,A7 0002371e 1e 1f | | MOVE.B (A7)+,D7 00023720 0c 07 00 2f | / | CMPI.B #0x2f,D7 00023724 66 04 |f | BNE 0x2372a 00023726 50 4f |PO | ADDQ.L #0x8,A7 00023728 60 1a |` | BRA 0x23744 0002372a 2f 2e 00 18 |/. | MOVE.L (A6+0x18),-(A7) 0002372e 1f 07 | | MOVE.B D7,-(A7) 00023730 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00023736 5c 4f |\O | ADDQ.L #0x6,A7 00023738 52 86 |R | ADDQ.L #0x1,D6 0002373a 68 d0 |h | BVC 0x2370c 0002373c 58 4f |XO | ADDQ.L #0x4,A7 0002373e 52 85 |R | ADDQ.L #0x1,D5 00023740 68 a8 |h | BVC 0x236ea 00023742 58 4f |XO | ADDQ.L #0x4,A7 00023744 4c df 07 e3 |L | MOVEM.L (A7)+,D0+D1+D5+D6+D7+A0+A1+A2 00023748 4e 5e |N^ | UNLK A6 0002374a 4e 75 |Nu | RTS 0002374c ; -------------------------------------------------------------------------------------- 0002374c ; OMSI PASCAL Function 0002374c ; <LVAR 0x010 4(r)> 0002374c ; <LVAR 0x00c 4(r)> 0002374c ; <LVAR 0x008 4(r)> 0002374c ; -------------------------------------------------------------------------------------- 0002374c 4e 56 ff b2 |NV | LINK.W A6,#0xffb2 00023750 bf d5 | | CMPA.L (A5),A7 00023752 62 06 |b | BHI 0x2375a 00023754 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023758 4e 76 |Nv | TRAPV 0002375a de fc 00 42 | B | ADDA.W #0x42,A7 0002375e 48 e7 c7 c0 |H | MOVEM.L A1+A0+D7+D6+D5+D1+D0,-(A7) 00023762 41 ee 00 0c |A | LEA.L (A6+0xc),A0 00023766 43 ee 00 08 |C | LEA.L (A6+0x8),A1 0002376a 72 0c |r | MOVEQ.L #0x0c,D1 0002376c 59 4f |YO | SUBQ.L #0x4,A7 0002376e 2f 10 |/ | MOVE.L (A0),-(A7) 00023770 2f 11 |/ | MOVE.L (A1),-(A7) 00023772 4e ba df c8 |N | JSR 0x2173c 00023776 50 4f |PO | ADDQ.L #0x8,A7 00023778 2a 1f |* | MOVE.L (A7)+,D5 0002377a 2f 05 |/ | MOVE.L D5,-(A7) 0002377c 7c 01 || | MOVEQ.L #0x01,D6 0002377e bc 97 | | CMP.L (A7),D6 00023780 6e 46 |nF | BGT 0x237c8 00023782 55 4f |UO | SUBQ.L #0x2,A7 00023784 2f 10 |/ | MOVE.L (A0),-(A7) 00023786 2f 11 |/ | MOVE.L (A1),-(A7) 00023788 2f 06 |/ | MOVE.L D6,-(A7) 0002378a 4e ba fb 9c |N | JSR 0x23328 0002378e de c1 | | ADDA.W D1,A7 00023790 10 1f | | MOVE.B (A7)+,D0 00023792 0c 00 00 2f | / | CMPI.B #0x2f,D0 00023796 66 2c |f, | BNE 0x237c4 00023798 2f 05 |/ | MOVE.L D5,-(A7) 0002379a 2e 06 |. | MOVE.L D6,D7 0002379c be 97 | | CMP.L (A7),D7 0002379e 6e 1e |n | BGT 0x237be 000237a0 2f 2e 00 10 |/. | MOVE.L (A6+0x10),-(A7) 000237a4 55 4f |UO | SUBQ.L #0x2,A7 000237a6 2f 10 |/ | MOVE.L (A0),-(A7) 000237a8 2f 11 |/ | MOVE.L (A1),-(A7) 000237aa 2f 07 |/ | MOVE.L D7,-(A7) 000237ac 4e ba fb 7a |N z | JSR 0x23328 000237b0 de c1 | | ADDA.W D1,A7 000237b2 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 000237b8 5c 4f |\O | ADDQ.L #0x6,A7 000237ba 52 87 |R | ADDQ.L #0x1,D7 000237bc 68 de |h | BVC 0x2379c 000237be 58 4f |XO | ADDQ.L #0x4,A7 000237c0 58 4f |XO | ADDQ.L #0x4,A7 000237c2 60 06 |` | BRA 0x237ca 000237c4 52 86 |R | ADDQ.L #0x1,D6 000237c6 68 b6 |h | BVC 0x2377e 000237c8 58 4f |XO | ADDQ.L #0x4,A7 000237ca 4c df 03 e3 |L | MOVEM.L (A7)+,D0+D1+D5+D6+D7+A0+A1 000237ce 4e 5e |N^ | UNLK A6 000237d0 4e 75 |Nu | RTS 000237d2 ; -------------------------------------------------------------------------------------- 000237d2 ; OMSI PASCAL Function 000237d2 ; <LVAR 0x010 4(r)> 000237d2 ; <LVAR 0x00c 4(r)> 000237d2 ; <LVAR 0x008 4(r)> 000237d2 ; -------------------------------------------------------------------------------------- 000237d2 4e 56 ff ce |NV | LINK.W A6,#0xffce 000237d6 bf d5 | | CMPA.L (A5),A7 000237d8 62 06 |b | BHI 0x237e0 000237da 44 fc 00 02 |D | MOVE.W #0x2,CCR 000237de 4e 76 |Nv | TRAPV 000237e0 de fc 00 2a | * | ADDA.W #0x2a,A7 000237e4 48 e7 03 80 |H | MOVEM.L A0+D7+D6,-(A7) 000237e8 20 6e 00 10 | n | MOVEA.L (A6+0x10),A0 000237ec 42 50 |BP | CLR.W (A0) 000237ee 59 4f |YO | SUBQ.L #0x4,A7 000237f0 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 000237f4 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000237f8 4e ba df 42 |N B | JSR 0x2173c 000237fc 50 4f |PO | ADDQ.L #0x8,A7 000237fe 7e 01 |~ | MOVEQ.L #0x01,D7 00023800 be 97 | | CMP.L (A7),D7 00023802 6e 34 |n4 | BGT 0x23838 00023804 55 4f |UO | SUBQ.L #0x2,A7 00023806 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 0002380a 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 0002380e 2f 07 |/ | MOVE.L D7,-(A7) 00023810 4e ba fb 16 |N | JSR 0x23328 00023814 de fc 00 0c | | ADDA.W #0xc,A7 00023818 1c 1f | | MOVE.B (A7)+,D6 0002381a 0c 06 00 2f | / | CMPI.B #0x2f,D6 0002381e 67 10 |g | BEQ 0x23830 00023820 2f 2e 00 10 |/. | MOVE.L (A6+0x10),-(A7) 00023824 1f 06 | | MOVE.B D6,-(A7) 00023826 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 0002382c 5c 4f |\O | ADDQ.L #0x6,A7 0002382e 60 04 |` | BRA 0x23834 00023830 58 4f |XO | ADDQ.L #0x4,A7 00023832 60 06 |` | BRA 0x2383a 00023834 52 87 |R | ADDQ.L #0x1,D7 00023836 68 c8 |h | BVC 0x23800 00023838 58 4f |XO | ADDQ.L #0x4,A7 0002383a 4c df 01 c0 |L | MOVEM.L (A7)+,D6+D7+A0 0002383e 4e 5e |N^ | UNLK A6 00023840 4e 75 |Nu | RTS 00023842 ; -------------------------------------------------------------------------------------- 00023842 ; OMSI PASCAL Function 00023842 ; -------------------------------------------------------------------------------------- 00023842 4e 56 ff c6 |NV | LINK.W A6,#0xffc6 00023846 bf d5 | | CMPA.L (A5),A7 00023848 62 06 |b | BHI 0x23850 0002384a 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002384e 4e 76 |Nv | TRAPV 00023850 de fc 00 3a | : | ADDA.W #0x3a,A7 00023854 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 00023858 41 fa cf b6 |A | LEA.L 0x20810,A0 0002385c 70 10 |p | MOVEQ.L #0x10,D0 0002385e 3f 20 |? | MOVE.W -(A0),-(A7) 00023860 51 c8 ff fc |Q | DBF D0,0x2385e 00023864 59 4f |YO | SUBQ.L #0x4,A7 00023866 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002386a 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 0002386e 3f 3c 00 22 |?< " | MOVE.W #0x22,-(A7) 00023872 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00023878 50 4f |PO | ADDQ.L #0x8,A7 0002387a 4e ba d2 ae |N | JSR 0x20b2a 0002387e de fc 00 26 | & | ADDA.W #0x26,A7 00023882 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 00023886 4e 5e |N^ | UNLK A6 00023888 4e 75 |Nu | RTS 0002388a ; -------------------------------------------------------------------------------------- 0002388a ; OMSI PASCAL Function 0002388a ; <LVAR 0x00c 4(r)> 0002388a ; <LVAR 0x008 4(r)> 0002388a ; <LVAR -0x006 4(rw)> 0002388a ; -------------------------------------------------------------------------------------- 0002388a 4e 56 ff a0 |NV | LINK.W A6,#0xffa0 0002388e bf d5 | | CMPA.L (A5),A7 00023890 62 06 |b | BHI 0x23898 00023892 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023896 4e 76 |Nv | TRAPV 00023898 de fc 00 58 | X | ADDA.W #0x58,A7 0002389c 48 e7 ff f0 |H | MOVEM.L A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 000238a0 43 ee 00 0c |C | LEA.L (A6+0xc),A1 000238a4 45 f9 00 02 66 34 |E f4 | LEA.L 0x26634,A2 000238aa 47 fa d3 1a |G | LEA.L 0x20bc6,A3 000238ae 72 30 |r0 | MOVEQ.L #0x30,D1 000238b0 74 39 |t9 | MOVEQ.L #0x39,D2 000238b2 76 25 |v% | MOVEQ.L #0x25,D3 000238b4 78 2d |x- | MOVEQ.L #0x2d,D4 000238b6 2d 52 ff fa |-R | MOVE.L (A2),(A6-0x6) 000238ba 55 4f |UO | SUBQ.L #0x2,A7 000238bc 4e 93 |N | JSR (A3) 000238be 1e 1f | | MOVE.B (A7)+,D7 000238c0 be 03 | | CMP.B D3,D7 000238c2 66 08 |f | BNE 0x238cc 000238c4 20 51 | Q | MOVEA.L (A1),A0 000238c6 42 90 |B | CLR.L (A0) 000238c8 60 00 00 e2 |` | BRA 0x239ac 000238cc be 04 | | CMP.B D4,D7 000238ce 66 0c |f | BNE 0x238dc 000238d0 20 51 | Q | MOVEA.L (A1),A0 000238d2 20 bc 00 00 00 01 | | MOVE.L #0x1,(A0) 000238d8 60 00 00 d2 |` | BRA 0x239ac 000238dc 0c 07 00 2f | / | CMPI.B #0x2f,D7 000238e0 66 0c |f | BNE 0x238ee 000238e2 20 51 | Q | MOVEA.L (A1),A0 000238e4 20 bc 00 00 00 04 | | MOVE.L #0x4,(A0) 000238ea 60 00 00 c0 |` | BRA 0x239ac 000238ee 0c 07 00 3d | = | CMPI.B #0x3d,D7 000238f2 66 0c |f | BNE 0x23900 000238f4 20 51 | Q | MOVEA.L (A1),A0 000238f6 20 bc 00 00 00 05 | | MOVE.L #0x5,(A0) 000238fc 60 00 00 ae |` | BRA 0x239ac 00023900 0c 07 00 5c | \ | CMPI.B #0x5c,D7 00023904 66 0c |f | BNE 0x23912 00023906 20 51 | Q | MOVEA.L (A1),A0 00023908 20 bc 00 00 00 06 | | MOVE.L #0x6,(A0) 0002390e 60 00 00 9c |` | BRA 0x239ac 00023912 4a 07 |J | TST.B D7 00023914 66 2c |f, | BNE 0x23942 00023916 41 fa cf 10 |A | LEA.L 0x20828,A0 0002391a 70 05 |p | MOVEQ.L #0x05,D0 0002391c 2f 20 |/ | MOVE.L -(A0),-(A7) 0002391e 51 c8 ff fc |Q | DBF D0,0x2391c 00023922 59 4f |YO | SUBQ.L #0x4,A7 00023924 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023928 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 0002392c 3f 3c 00 18 |?< | MOVE.W #0x18,-(A7) 00023930 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00023936 50 4f |PO | ADDQ.L #0x8,A7 00023938 4e ba d1 f0 |N | JSR 0x20b2a 0002393c de fc 00 1c | | ADDA.W #0x1c,A7 00023940 60 6a |`j | BRA 0x239ac 00023942 be 01 | | CMP.B D1,D7 00023944 65 2c |e, | BCS 0x23972 00023946 be 02 | | CMP.B D2,D7 00023948 62 28 |b( | BHI 0x23972 0002394a 20 51 | Q | MOVEA.L (A1),A0 0002394c 20 bc 00 00 00 02 | | MOVE.L #0x2,(A0) 00023952 55 4f |UO | SUBQ.L #0x2,A7 00023954 4e ba d2 32 |N 2 | JSR 0x20b88 00023958 1e 1f | | MOVE.B (A7)+,D7 0002395a be 01 | | CMP.B D1,D7 0002395c 65 0a |e | BCS 0x23968 0002395e be 02 | | CMP.B D2,D7 00023960 62 06 |b | BHI 0x23968 00023962 55 4f |UO | SUBQ.L #0x2,A7 00023964 4e 93 |N | JSR (A3) 00023966 1c 1f | | MOVE.B (A7)+,D6 00023968 be 01 | | CMP.B D1,D7 0002396a 65 04 |e | BCS 0x23970 0002396c be 02 | | CMP.B D2,D7 0002396e 63 e2 |c | BLS 0x23952 00023970 60 3a |`: | BRA 0x239ac 00023972 20 51 | Q | MOVEA.L (A1),A0 00023974 20 bc 00 00 00 03 | | MOVE.L #0x3,(A0) 0002397a 7a 00 |z | MOVEQ.L #0x00,D5 0002397c 55 4f |UO | SUBQ.L #0x2,A7 0002397e 4e ba d2 08 |N | JSR 0x20b88 00023982 1e 1f | | MOVE.B (A7)+,D7 00023984 be 03 | | CMP.B D3,D7 00023986 67 16 |g | BEQ 0x2399e 00023988 be 04 | | CMP.B D4,D7 0002398a 67 12 |g | BEQ 0x2399e 0002398c 0c 07 00 2f | / | CMPI.B #0x2f,D7 00023990 67 0c |g | BEQ 0x2399e 00023992 0c 07 00 3d | = | CMPI.B #0x3d,D7 00023996 67 06 |g | BEQ 0x2399e 00023998 0c 07 00 5c | \ | CMPI.B #0x5c,D7 0002399c 66 04 |f | BNE 0x239a2 0002399e 7a 01 |z | MOVEQ.L #0x01,D5 000239a0 60 06 |` | BRA 0x239a8 000239a2 55 4f |UO | SUBQ.L #0x2,A7 000239a4 4e 93 |N | JSR (A3) 000239a6 1c 1f | | MOVE.B (A7)+,D6 000239a8 4a 05 |J | TST.B D5 000239aa 67 d0 |g | BEQ 0x2397c 000239ac 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 000239b0 20 ae ff fa | | MOVE.L (A6-0x6),(A0) 000239b4 21 52 00 04 |!R | MOVE.L (A2),(A0+0x4) 000239b8 53 a8 00 04 |S | SUBQ.L #0x1,(A0+0x4) 000239bc 4c df 0f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3 000239c0 4e 5e |N^ | UNLK A6 000239c2 4e 75 |Nu | RTS 000239c4 ; -------------------------------------------------------------------------------------- 000239c4 ; OMSI PASCAL Function 000239c4 ; <LVAR 0x00c 4(r)> 000239c4 ; <LVAR 0x008 4(r)> 000239c4 ; -------------------------------------------------------------------------------------- 000239c4 4e 56 ff c0 |NV | LINK.W A6,#0xffc0 000239c8 bf d5 | | CMPA.L (A5),A7 000239ca 62 06 |b | BHI 0x239d2 000239cc 44 fc 00 02 |D | MOVE.W #0x2,CCR 000239d0 4e 76 |Nv | TRAPV 000239d2 de fc 00 34 | 4 | ADDA.W #0x34,A7 000239d6 48 e7 c7 e0 |H | MOVEM.L A2+A1+A0+D7+D6+D5+D1+D0,-(A7) 000239da 45 ee 00 0c |E | LEA.L (A6+0xc),A2 000239de 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 000239e2 2f 08 |/ | MOVE.L A0,-(A7) 000239e4 2c 39 00 02 66 34 |,9 f4 | MOVE.L 0x26634,D6 000239ea 9c 92 | | SUB.L (A2),D6 000239ec 2a 12 |* | MOVE.L (A2),D5 000239ee da 86 | | ADD.L D6,D5 000239f0 30 10 |0 | MOVE.W (A0),D0 000239f2 48 c0 |H | EXTW.L D0 000239f4 b0 86 | | CMP.L D6,D0 000239f6 67 0c |g | BEQ 0x23a04 000239f8 2f 05 |/ | MOVE.L D5,-(A7) 000239fa 2f 06 |/ | MOVE.L D6,-(A7) 000239fc 91 97 | | SUB.L D0,(A7) 000239fe 4e ba d6 7e |N ~ | JSR 0x2107e 00023a02 50 4f |PO | ADDQ.L #0x8,A7 00023a04 2f 00 |/ | MOVE.L D0,-(A7) 00023a06 7e 01 |~ | MOVEQ.L #0x01,D7 00023a08 be 97 | | CMP.L (A7),D7 00023a0a 6e 34 |n4 | BGT 0x23a40 00023a0c 20 12 | | MOVE.L (A2),D0 00023a0e d0 87 | | ADD.L D7,D0 00023a10 53 80 |S | SUBQ.L #0x1,D0 00023a12 53 80 |S | SUBQ.L #0x1,D0 00023a14 0c 80 00 00 1f ff | | CMPI.L #0x00001fff,D0 00023a1a 63 02 |c | BLS 0x23a1e 00023a1c 4e 4f |NO | TRAP #15 00023a1e 41 f9 00 02 46 2c |A F, | LEA.L 0x2462c,A0 00023a24 22 07 |" | MOVE.L D7,D1 00023a26 53 81 |S | SUBQ.L #0x1,D1 00023a28 0c 81 00 00 00 7d | } | CMPI.L #0x0000007d,D1 00023a2e 63 02 |c | BLS 0x23a32 00023a30 4e 4f |NO | TRAP #15 00023a32 22 6f 00 04 |"o | MOVEA.L (A7+0x4),A1 00023a36 11 b1 18 02 08 08 | | MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x8) 00023a3c 52 87 |R | ADDQ.L #0x1,D7 00023a3e 68 c8 |h | BVC 0x23a08 00023a40 50 4f |PO | ADDQ.L #0x8,A7 00023a42 4c df 07 e3 |L | MOVEM.L (A7)+,D0+D1+D5+D6+D7+A0+A1+A2 00023a46 4e 5e |N^ | UNLK A6 00023a48 4e 75 |Nu | RTS 00023a4a ; -------------------------------------------------------------------------------------- 00023a4a ; OMSI PASCAL Function 00023a4a ; <LVAR 0x00c 4(r)> 00023a4a ; <LVAR 0x008 4(r)> 00023a4a ; <LVAR -0x008 @ 4(r)> 00023a4a ; <LVAR -0x00c @ 4(r)> 00023a4a ; <LVAR -0x010 4(r)> 00023a4a ; <LVAR -0x014 @ 4(r)> 00023a4a ; <LVAR -0x018 4(rw)> 00023a4a ; <LVAR -0x01c 4(rw)> 00023a4a ; <LVAR -0x020 4(rw)> 00023a4a ; <LVAR -0x024 4(rw)> 00023a4a ; <LVAR -0x028 4(rw)> 00023a4a ; <LVAR -0x034 4(rw)> 00023a4a ; -------------------------------------------------------------------------------------- 00023a4a 4e 56 ff 70 |NV p | LINK.W A6,#0xff70 00023a4e bf d5 | | CMPA.L (A5),A7 00023a50 62 06 |b | BHI 0x23a58 00023a52 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023a56 4e 76 |Nv | TRAPV 00023a58 de fc 00 5c | \ | ADDA.W #0x5c,A7 00023a5c 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00023a60 43 ee ff f8 |C | LEA.L (A6-0x8),A1 00023a64 45 ee ff ec |E | LEA.L (A6-0x14),A2 00023a68 47 ee ff dc |G | LEA.L (A6-0x24),A3 00023a6c 49 ee ff e0 |I | LEA.L (A6-0x20),A4 00023a70 74 14 |t | MOVEQ.L #0x14,D2 00023a72 2d 79 00 02 66 34 ff d8 |-y f4 | MOVE.L 0x26634,(A6-0x28) 00023a7a 48 51 |HQ | PEA.L (A1) 00023a7c 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00023a82 58 4f |XO | ADDQ.L #0x4,A7 00023a84 48 6e ff f4 |Hn | PEA.L (A6-0xc) 00023a88 48 52 |HR | PEA.L (A2) 00023a8a 4e ba fd fe |N | JSR 0x2388a 00023a8e 50 4f |PO | ADDQ.L #0x8,A7 00023a90 42 ae ff cc |B | CLR.L (A6-0x34) 00023a94 7e 00 |~ | MOVEQ.L #0x00,D7 00023a96 20 2e ff cc | . | MOVE.L (A6-0x34),D0 00023a9a b0 82 | | CMP.L D2,D0 00023a9c 63 02 |c | BLS 0x23aa0 00023a9e 4e 4e |NN | TRAP #14 00023aa0 d0 40 | @ | ADD.W D0,D0 00023aa2 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 00023aaa 00 2a | * | .CONST 0x2a ; [0x0] -> 0x23ad4 00023aac 00 34 | 4 | .CONST 0x34 ; [0x1] -> 0x23ade 00023aae 00 48 | H | .CONST 0x48 ; [0x2] -> 0x23af2 00023ab0 00 64 | d | .CONST 0x64 ; [0x3] -> 0x23b0e 00023ab2 00 68 | h | .CONST 0x68 ; [0x4] -> 0x23b12 00023ab4 00 76 | v | .CONST 0x76 ; [0x5] -> 0x23b20 00023ab6 00 8a | | .CONST 0x8a ; [0x6] -> 0x23b34 00023ab8 00 90 | | .CONST 0x90 ; [0x7] -> 0x23b3a 00023aba 00 92 | | .CONST 0x92 ; [0x8] -> 0x23b3c 00023abc 00 a8 | | .CONST 0xa8 ; [0x9] -> 0x23b52 00023abe 00 b6 | | .CONST 0xb6 ; [0xa] -> 0x23b60 00023ac0 00 ce | | .CONST 0xce ; [0xb] -> 0x23b78 00023ac2 00 e2 | | .CONST 0xe2 ; [0xc] -> 0x23b8c 00023ac4 00 f6 | | .CONST 0xf6 ; [0xd] -> 0x23ba0 00023ac6 01 0c | | .CONST 0x10c ; [0xe] -> 0x23bb6 00023ac8 01 0e | | .CONST 0x10e ; [0xf] -> 0x23bb8 00023aca 01 28 | ( | .CONST 0x128 ; [0x10] -> 0x23bd2 00023acc 01 3e | > | .CONST 0x13e ; [0x11] -> 0x23be8 00023ace 01 4c | L | .CONST 0x14c ; [0x12] -> 0x23bf6 00023ad0 01 4e | N | .CONST 0x14e ; [0x13] -> 0x23bf8 00023ad2 01 50 | P | .CONST 0x150 ; [0x14] -> 0x23bfa 00023ad4 switch@0x23aa2[0x0]: 00023ad4 7c 00 || | MOVEQ.L #0x00,D6 00023ad6 2a 2e 00 08 |*. | MOVE.L (A6+0x8),D5 00023ada 60 00 01 48 |` H | BRA 0x23c24 00023ade switch@0x23aa2[0x1]: 00023ade 59 4f |YO | SUBQ.L #0x4,A7 00023ae0 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7) 00023ae4 2f 12 |/ | MOVE.L (A2),-(A7) 00023ae6 4e ba f8 80 |N | JSR 0x23368 00023aea 50 4f |PO | ADDQ.L #0x8,A7 00023aec 2c 1f |, | MOVE.L (A7)+,D6 00023aee 60 00 01 34 |` 4 | BRA 0x23c24 00023af2 switch@0x23aa2[0x2]: 00023af2 2f 2e ff d8 |/. | MOVE.L (A6-0x28),-(A7) 00023af6 2f 06 |/ | MOVE.L D6,-(A7) 00023af8 2f 06 |/ | MOVE.L D6,-(A7) 00023afa 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00023afe 4e ba f8 e4 |N | JSR 0x233e4 00023b02 de fc 00 10 | | ADDA.W #0x10,A7 00023b06 60 00 01 78 |` x | BRA 0x23c80 00023b0a 60 00 01 18 |` | .XXX[0x4] 00023b0e switch@0x23aa2[0x3]: 00023b0e 60 00 01 14 |` | BRA 0x23c24 00023b12 switch@0x23aa2[0x4]: 00023b12 2f 2e ff d8 |/. | MOVE.L (A6-0x28),-(A7) 00023b16 2f 06 |/ | MOVE.L D6,-(A7) 00023b18 2f 05 |/ | MOVE.L D5,-(A7) 00023b1a 60 de |` | BRA 0x23afa 00023b1c 60 00 01 06 |` | .XXX[0x4] 00023b20 switch@0x23aa2[0x5]: 00023b20 59 4f |YO | SUBQ.L #0x4,A7 00023b22 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7) 00023b26 2f 12 |/ | MOVE.L (A2),-(A7) 00023b28 4e ba f8 3e |N > | JSR 0x23368 00023b2c 50 4f |PO | ADDQ.L #0x8,A7 00023b2e 2a 1f |* | MOVE.L (A7)+,D5 00023b30 60 00 00 f2 |` | BRA 0x23c24 00023b34 switch@0x23aa2[0x6]: 00023b34 7c 01 || | MOVEQ.L #0x01,D6 00023b36 60 00 00 ec |` | BRA 0x23c24 00023b3a switch@0x23aa2[0x7]: 00023b3a 60 e4 |` | BRA switch@0x23aa2[0x5] 00023b3c switch@0x23aa2[0x8]: 00023b3c 51 4f |QO | SUBQ.L #0x8,A7 00023b3e 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00023b42 2f 06 |/ | MOVE.L D6,-(A7) 00023b44 4e ba dc 2e |N . | JSR 0x21774 00023b48 50 4f |PO | ADDQ.L #0x8,A7 00023b4a 26 9f |& | MOVE.L (A7)+,(A3) 00023b4c 28 9f |( | MOVE.L (A7)+,(A4) 00023b4e 60 00 00 d4 |` | BRA 0x23c24 00023b52 switch@0x23aa2[0x9]: 00023b52 2d 52 ff e4 |-R | MOVE.L (A2),(A6-0x1c) 00023b56 2d 6e ff f0 ff e8 |-n | MOVE.L (A6-0x10),(A6-0x18) 00023b5c 60 00 00 c6 |` | BRA 0x23c24 00023b60 switch@0x23aa2[0xa]: 00023b60 2f 11 |/ | MOVE.L (A1),-(A7) 00023b62 2f 14 |/ | MOVE.L (A4),-(A7) 00023b64 2f 13 |/ | MOVE.L (A3),-(A7) 00023b66 2f 2e ff e8 |/. | MOVE.L (A6-0x18),-(A7) 00023b6a 2f 2e ff e4 |/. | MOVE.L (A6-0x1c),-(A7) 00023b6e 4e ba fb 26 |N & | JSR 0x23696 00023b72 de c2 | | ADDA.W D2,A7 00023b74 60 00 00 ae |` | BRA 0x23c24 00023b78 switch@0x23aa2[0xb]: 00023b78 2f 11 |/ | MOVE.L (A1),-(A7) 00023b7a 2f 14 |/ | MOVE.L (A4),-(A7) 00023b7c 2f 13 |/ | MOVE.L (A3),-(A7) 00023b7e 2f 2e ff e8 |/. | MOVE.L (A6-0x18),-(A7) 00023b82 2f 2e ff e4 |/. | MOVE.L (A6-0x1c),-(A7) 00023b86 4e ba fa 7a |N z | JSR 0x23602 00023b8a 60 e6 |` | BRA 0x23b72 00023b8c switch@0x23aa2[0xc]: 00023b8c 2f 11 |/ | MOVE.L (A1),-(A7) 00023b8e 2f 14 |/ | MOVE.L (A4),-(A7) 00023b90 2f 13 |/ | MOVE.L (A3),-(A7) 00023b92 4e ba fb b8 |N | JSR 0x2374c 00023b96 de fc 00 0c | | ADDA.W #0xc,A7 00023b9a 7e 01 |~ | MOVEQ.L #0x01,D7 00023b9c 60 00 00 86 |` | BRA 0x23c24 00023ba0 switch@0x23aa2[0xd]: 00023ba0 2f 11 |/ | MOVE.L (A1),-(A7) 00023ba2 2f 14 |/ | MOVE.L (A4),-(A7) 00023ba4 2f 13 |/ | MOVE.L (A3),-(A7) 00023ba6 2f 2e ff e8 |/. | MOVE.L (A6-0x18),-(A7) 00023baa 2f 2e ff e4 |/. | MOVE.L (A6-0x1c),-(A7) 00023bae 4e ba fa 52 |N R | JSR 0x23602 00023bb2 de c2 | | ADDA.W D2,A7 00023bb4 60 e4 |` | BRA 0x23b9a 00023bb6 switch@0x23aa2[0xe]: 00023bb6 60 e2 |` | BRA 0x23b9a 00023bb8 switch@0x23aa2[0xf]: 00023bb8 2f 11 |/ | MOVE.L (A1),-(A7) 00023bba 51 4f |QO | SUBQ.L #0x8,A7 00023bbc 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00023bc0 2f 06 |/ | MOVE.L D6,-(A7) 00023bc2 4e ba db b0 |N | JSR 0x21774 00023bc6 50 4f |PO | ADDQ.L #0x8,A7 00023bc8 4e ba fb 82 |N | JSR 0x2374c 00023bcc de fc 00 0c | | ADDA.W #0xc,A7 00023bd0 60 52 |`R | BRA 0x23c24 00023bd2 switch@0x23aa2[0x10]: 00023bd2 2f 11 |/ | MOVE.L (A1),-(A7) 00023bd4 51 4f |QO | SUBQ.L #0x8,A7 00023bd6 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00023bda 2f 06 |/ | MOVE.L D6,-(A7) 00023bdc 4e ba db 96 |N | JSR 0x21774 00023be0 50 4f |PO | ADDQ.L #0x8,A7 00023be2 4e ba fb ee |N | JSR 0x237d2 00023be6 60 ae |` | BRA 0x23b96 00023be8 switch@0x23aa2[0x11]: 00023be8 2f 11 |/ | MOVE.L (A1),-(A7) 00023bea 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7) 00023bee 2f 12 |/ | MOVE.L (A2),-(A7) 00023bf0 4e ba fc 50 |N P | JSR 0x23842 00023bf4 60 d6 |` | BRA 0x23bcc 00023bf6 switch@0x23aa2[0x12]: 00023bf6 60 2c |`, | BRA 0x23c24 00023bf8 switch@0x23aa2[0x13]: 00023bf8 60 a0 |` | BRA 0x23b9a 00023bfa switch@0x23aa2[0x14]: 00023bfa 41 fa cc 44 |A D | LEA.L 0x20840,A0 00023bfe 70 05 |p | MOVEQ.L #0x05,D0 00023c00 2f 20 |/ | MOVE.L -(A0),-(A7) 00023c02 51 c8 ff fc |Q | DBF D0,0x23c00 00023c06 59 4f |YO | SUBQ.L #0x4,A7 00023c08 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023c0c 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00023c10 3f 3c 00 18 |?< | MOVE.W #0x18,-(A7) 00023c14 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00023c1a 50 4f |PO | ADDQ.L #0x8,A7 00023c1c 4e ba cf 0c |N | JSR 0x20b2a 00023c20 de fc 00 1c | | ADDA.W #0x1c,A7 00023c24 4a 07 |J | TST.B D7 00023c26 66 46 |fF | BNE 0x23c6e 00023c28 48 6e ff f4 |Hn | PEA.L (A6-0xc) 00023c2c 48 52 |HR | PEA.L (A2) 00023c2e 4e ba fc 5a |N Z | JSR 0x2388a 00023c32 50 4f |PO | ADDQ.L #0x8,A7 00023c34 20 2e ff cc | . | MOVE.L (A6-0x34),D0 00023c38 0c 80 00 00 00 13 | | CMPI.L #0x00000013,D0 00023c3e 63 02 |c | BLS 0x23c42 00023c40 4e 4f |NO | TRAP #15 00023c42 28 00 |( | MOVE.L D0,D4 00023c44 76 07 |v | MOVEQ.L #0x07,D3 00023c46 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4 00023c4c 41 fa ce 0e |A | LEA.L 0x20a5c,A0 00023c50 20 2e ff f4 | . | MOVE.L (A6-0xc),D0 00023c54 0c 80 00 00 00 06 | | CMPI.L #0x00000006,D0 00023c5a 63 02 |c | BLS 0x23c5e 00023c5c 4e 4f |NO | TRAP #15 00023c5e 41 f0 48 00 |A H | LEA.L (A0+D4.L),A0 00023c62 12 30 08 00 | 0 | MOVE.B (A0+D0.L),D1 00023c66 48 81 |H | EXTB.W D1 00023c68 48 c1 |H | EXTW.L D1 00023c6a 2d 41 ff cc |-A | MOVE.L D1,(A6-0x34) 00023c6e 4a 07 |J | TST.B D7 00023c70 67 00 fe 24 |g $ | BEQ 0x23a96 00023c74 2f 2e ff d8 |/. | MOVE.L (A6-0x28),-(A7) 00023c78 2f 11 |/ | MOVE.L (A1),-(A7) 00023c7a 4e ba fd 48 |N H | JSR 0x239c4 00023c7e 50 4f |PO | ADDQ.L #0x8,A7 00023c80 48 51 |HQ | PEA.L (A1) 00023c82 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00023c88 58 4f |XO | ADDQ.L #0x4,A7 00023c8a 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00023c8e 4e 5e |N^ | UNLK A6 00023c90 4e 75 |Nu | RTS 00023c92 ; -------------------------------------------------------------------------------------- 00023c92 ; OMSI PASCAL Function 00023c92 ; <LVAR 0x014 4(rw)> 00023c92 ; <LVAR 0x010 4(r)> 00023c92 ; <LVAR 0x00c 4(r)> 00023c92 ; <LVAR 0x008 4(r)> 00023c92 ; <LVAR -0x008 4(rw)> 00023c92 ; <LVAR -0x00c 4(rw)> 00023c92 ; <LVAR -0x018 4(w)> 00023c92 ; -------------------------------------------------------------------------------------- 00023c92 4e 56 ff 96 |NV | LINK.W A6,#0xff96 00023c96 bf d5 | | CMPA.L (A5),A7 00023c98 62 06 |b | BHI 0x23ca0 00023c9a 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023c9e 4e 76 |Nv | TRAPV 00023ca0 de fc 00 52 | R | ADDA.W #0x52,A7 00023ca4 48 e7 e7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7) 00023ca8 43 ee ff f8 |C | LEA.L (A6-0x8),A1 00023cac 45 ee 00 10 |E | LEA.L (A6+0x10),A2 00023cb0 47 ee 00 0c |G | LEA.L (A6+0xc),A3 00023cb4 49 ee ff f4 |I | LEA.L (A6-0xc),A4 00023cb8 74 0c |t | MOVEQ.L #0x0c,D2 00023cba 42 ae 00 14 |B | CLR.L (A6+0x14) 00023cbe 59 4f |YO | SUBQ.L #0x4,A7 00023cc0 2f 12 |/ | MOVE.L (A2),-(A7) 00023cc2 2f 13 |/ | MOVE.L (A3),-(A7) 00023cc4 4e ba da 76 |N v | JSR 0x2173c 00023cc8 50 4f |PO | ADDQ.L #0x8,A7 00023cca 28 9f |( | MOVE.L (A7)+,(A4) 00023ccc 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00023cd0 30 10 |0 | MOVE.W (A0),D0 00023cd2 48 c0 |H | EXTW.L D0 00023cd4 52 80 |R | ADDQ.L #0x1,D0 00023cd6 22 80 |" | MOVE.L D0,(A1) 00023cd8 44 80 |D | NEG.L D0 00023cda d0 94 | | ADD.L (A4),D0 00023cdc 52 80 |R | ADDQ.L #0x1,D0 00023cde 2f 00 |/ | MOVE.L D0,-(A7) 00023ce0 70 01 |p | MOVEQ.L #0x01,D0 00023ce2 b0 97 | | CMP.L (A7),D0 00023ce4 6e 00 00 9a |n | BGT 0x23d80 00023ce8 2d 40 ff e8 |-@ | MOVE.L D0,(A6-0x18) 00023cec 2f 00 |/ | MOVE.L D0,-(A7) 00023cee 7c 00 || | MOVEQ.L #0x00,D6 00023cf0 2f 11 |/ | MOVE.L (A1),-(A7) 00023cf2 7a 01 |z | MOVEQ.L #0x01,D5 00023cf4 ba 97 | | CMP.L (A7),D5 00023cf6 6e 48 |nH | BGT 0x23d40 00023cf8 0c 85 00 00 00 01 | | CMPI.L #0x00000001,D5 00023cfe 66 04 |f | BNE 0x23d04 00023d00 7e 2f |~/ | MOVEQ.L #0x2f,D7 00023d02 60 18 |` | BRA 0x23d1c 00023d04 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00023d08 20 05 | | MOVE.L D5,D0 00023d0a 53 80 |S | SUBQ.L #0x1,D0 00023d0c 53 80 |S | SUBQ.L #0x1,D0 00023d0e 0c 80 00 00 00 7d | } | CMPI.L #0x0000007d,D0 00023d14 63 02 |c | BLS 0x23d18 00023d16 4e 4f |NO | TRAP #15 00023d18 1e 30 08 02 | 0 | MOVE.B (A0+D0.L+#0x2),D7 00023d1c 55 4f |UO | SUBQ.L #0x2,A7 00023d1e 2f 12 |/ | MOVE.L (A2),-(A7) 00023d20 2f 13 |/ | MOVE.L (A3),-(A7) 00023d22 20 2f 00 0e | / | MOVE.L (A7+0xe),D0 00023d26 d0 85 | | ADD.L D5,D0 00023d28 53 80 |S | SUBQ.L #0x1,D0 00023d2a 2f 00 |/ | MOVE.L D0,-(A7) 00023d2c 4e ba f5 fa |N | JSR 0x23328 00023d30 de c2 | | ADDA.W D2,A7 00023d32 be 1f | | CMP.B (A7)+,D7 00023d34 67 04 |g | BEQ 0x23d3a 00023d36 58 4f |XO | ADDQ.L #0x4,A7 00023d38 60 08 |` | BRA 0x23d42 00023d3a 2c 05 |, | MOVE.L D5,D6 00023d3c 52 85 |R | ADDQ.L #0x1,D5 00023d3e 68 b4 |h | BVC 0x23cf4 00023d40 58 4f |XO | ADDQ.L #0x4,A7 00023d42 bc 91 | | CMP.L (A1),D6 00023d44 66 32 |f2 | BNE 0x23d78 00023d46 20 17 | | MOVE.L (A7),D0 00023d48 22 00 |" | MOVE.L D0,D1 00023d4a d2 91 | | ADD.L (A1),D1 00023d4c b2 94 | | CMP.L (A4),D1 00023d4e 6c 26 |l& | BGE 0x23d76 00023d50 55 4f |UO | SUBQ.L #0x2,A7 00023d52 2f 12 |/ | MOVE.L (A2),-(A7) 00023d54 2f 13 |/ | MOVE.L (A3),-(A7) 00023d56 2f 01 |/ | MOVE.L D1,-(A7) 00023d58 4e ba f5 ce |N | JSR 0x23328 00023d5c de c2 | | ADDA.W D2,A7 00023d5e 1e 1f | | MOVE.B (A7)+,D7 00023d60 0c 07 00 2f | / | CMPI.B #0x2f,D7 00023d64 67 06 |g | BEQ 0x23d6c 00023d66 0c 07 00 3d | = | CMPI.B #0x3d,D7 00023d6a 66 08 |f | BNE 0x23d74 00023d6c 2d 40 00 14 |-@ | MOVE.L D0,(A6+0x14) 00023d70 50 4f |PO | ADDQ.L #0x8,A7 00023d72 60 0e |` | BRA 0x23d82 00023d74 60 02 |` | BRA 0x23d78 00023d76 60 f4 |` | BRA 0x23d6c 00023d78 20 1f | | MOVE.L (A7)+,D0 00023d7a 52 80 |R | ADDQ.L #0x1,D0 00023d7c 68 00 ff 64 |h d | BVC 0x23ce2 00023d80 58 4f |XO | ADDQ.L #0x4,A7 00023d82 4c df 1f e7 |L | MOVEM.L (A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3+A4 00023d86 4e 5e |N^ | UNLK A6 00023d88 4e 75 |Nu | RTS 00023d8a ; -------------------------------------------------------------------------------------- 00023d8a ; OMSI PASCAL Function 00023d8a ; <LVAR 0x018 4(r)> 00023d8a ; <LVAR 0x014 4(r)> 00023d8a ; <LVAR 0x010 4(r)> 00023d8a ; <LVAR 0x00c 4(r)> 00023d8a ; <LVAR 0x008 4(r)> 00023d8a ; <LVAR -0x008 4(rw)> 00023d8a ; <LVAR -0x014 4(rw)> 00023d8a ; <LVAR -0x018 4(rw)> 00023d8a ; <LVAR -0x01c 4(rw)> 00023d8a ; -------------------------------------------------------------------------------------- 00023d8a 4e 56 ff 8e |NV | LINK.W A6,#0xff8e 00023d8e bf d5 | | CMPA.L (A5),A7 00023d90 62 06 |b | BHI 0x23d98 00023d92 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023d96 4e 76 |Nv | TRAPV 00023d98 de fc 00 56 | V | ADDA.W #0x56,A7 00023d9c 48 e7 e7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7) 00023da0 45 ee ff e4 |E | LEA.L (A6-0x1c),A2 00023da4 47 ee ff e8 |G | LEA.L (A6-0x18),A3 00023da8 49 ee ff f8 |I | LEA.L (A6-0x8),A4 00023dac 72 0c |r | MOVEQ.L #0x0c,D1 00023dae 74 01 |t | MOVEQ.L #0x01,D2 00023db0 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00023db4 42 10 |B | CLR.B (A0) 00023db6 22 6e 00 0c |"n | MOVEA.L (A6+0xc),A1 00023dba 22 82 |" | MOVE.L D2,(A1) 00023dbc 51 4f |QO | SUBQ.L #0x8,A7 00023dbe 2f 2e 00 18 |/. | MOVE.L (A6+0x18),-(A7) 00023dc2 2f 2e 00 14 |/. | MOVE.L (A6+0x14),-(A7) 00023dc6 4e ba d9 ac |N | JSR 0x21774 00023dca 50 4f |PO | ADDQ.L #0x8,A7 00023dcc 24 9f |$ | MOVE.L (A7)+,(A2) 00023dce 26 9f |& | MOVE.L (A7)+,(A3) 00023dd0 4a 92 |J | TST.L (A2) 00023dd2 67 00 00 96 |g | BEQ 0x23e6a 00023dd6 59 4f |YO | SUBQ.L #0x4,A7 00023dd8 2f 13 |/ | MOVE.L (A3),-(A7) 00023dda 2f 12 |/ | MOVE.L (A2),-(A7) 00023ddc 2f 2e 00 10 |/. | MOVE.L (A6+0x10),-(A7) 00023de0 4e ba fe b0 |N | JSR 0x23c92 00023de4 de c1 | | ADDA.W D1,A7 00023de6 2d 5f ff ec |-_ | MOVE.L (A7)+,(A6-0x14) 00023dea 67 7e |g~ | BEQ 0x23e6a 00023dec 10 82 | | MOVE.B D2,(A0) 00023dee 48 51 |HQ | PEA.L (A1) 00023df0 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00023df6 2f 13 |/ | MOVE.L (A3),-(A7) 00023df8 2f 12 |/ | MOVE.L (A2),-(A7) 00023dfa 4e ba d9 40 |N @ | JSR 0x2173c 00023dfe 50 4f |PO | ADDQ.L #0x8,A7 00023e00 28 9f |( | MOVE.L (A7)+,(A4) 00023e02 20 2e ff ec | . | MOVE.L (A6-0x14),D0 00023e06 52 80 |R | ADDQ.L #0x1,D0 00023e08 2f 14 |/ | MOVE.L (A4),-(A7) 00023e0a 2a 00 |* | MOVE.L D0,D5 00023e0c ba 97 | | CMP.L (A7),D5 00023e0e 6e 58 |nX | BGT 0x23e68 00023e10 55 4f |UO | SUBQ.L #0x2,A7 00023e12 2f 13 |/ | MOVE.L (A3),-(A7) 00023e14 2f 12 |/ | MOVE.L (A2),-(A7) 00023e16 2f 05 |/ | MOVE.L D5,-(A7) 00023e18 4e ba f5 0e |N | JSR 0x23328 00023e1c de c1 | | ADDA.W D1,A7 00023e1e 10 1f | | MOVE.B (A7)+,D0 00023e20 0c 00 00 3d | = | CMPI.B #0x3d,D0 00023e24 66 3e |f> | BNE 0x23e64 00023e26 20 05 | | MOVE.L D5,D0 00023e28 52 80 |R | ADDQ.L #0x1,D0 00023e2a 2f 14 |/ | MOVE.L (A4),-(A7) 00023e2c 2e 00 |. | MOVE.L D0,D7 00023e2e be 97 | | CMP.L (A7),D7 00023e30 6e 2e |n. | BGT 0x23e60 00023e32 55 4f |UO | SUBQ.L #0x2,A7 00023e34 2f 13 |/ | MOVE.L (A3),-(A7) 00023e36 2f 12 |/ | MOVE.L (A2),-(A7) 00023e38 2f 07 |/ | MOVE.L D7,-(A7) 00023e3a 4e ba f4 ec |N | JSR 0x23328 00023e3e de c1 | | ADDA.W D1,A7 00023e40 1c 1f | | MOVE.B (A7)+,D6 00023e42 0c 06 00 2f | / | CMPI.B #0x2f,D6 00023e46 66 04 |f | BNE 0x23e4c 00023e48 50 4f |PO | ADDQ.L #0x8,A7 00023e4a 60 1e |` | BRA 0x23e6a 00023e4c 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 00023e50 2f 10 |/ | MOVE.L (A0),-(A7) 00023e52 1f 06 | | MOVE.B D6,-(A7) 00023e54 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00023e5a 5c 4f |\O | ADDQ.L #0x6,A7 00023e5c 52 87 |R | ADDQ.L #0x1,D7 00023e5e 68 ce |h | BVC 0x23e2e 00023e60 50 4f |PO | ADDQ.L #0x8,A7 00023e62 60 06 |` | BRA 0x23e6a 00023e64 52 85 |R | ADDQ.L #0x1,D5 00023e66 68 a4 |h | BVC 0x23e0c 00023e68 58 4f |XO | ADDQ.L #0x4,A7 00023e6a 4c df 1f e7 |L | MOVEM.L (A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3+A4 00023e6e 4e 5e |N^ | UNLK A6 00023e70 4e 75 |Nu | RTS 00023e72 ; -------------------------------------------------------------------------------------- 00023e72 ; OMSI PASCAL Function 00023e72 ; <LVAR 0x00c @ 4(r)> 00023e72 ; <LVAR 0x008 4(r)> 00023e72 ; <LVAR -0x010 @ 1(r)> 00023e72 ; -------------------------------------------------------------------------------------- 00023e72 4e 56 ff c0 |NV | LINK.W A6,#0xffc0 00023e76 bf d5 | | CMPA.L (A5),A7 00023e78 62 06 |b | BHI 0x23e80 00023e7a 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023e7e 4e 76 |Nv | TRAPV 00023e80 de fc 00 30 | 0 | ADDA.W #0x30,A7 00023e84 48 e7 87 f0 |H | MOVEM.L A3+A2+A1+A0+D7+D6+D5+D0,-(A7) 00023e88 43 f9 00 02 66 34 |C f4 | LEA.L 0x26634,A1 00023e8e 45 ee 00 08 |E | LEA.L (A6+0x8),A2 00023e92 47 ee 00 0c |G | LEA.L (A6+0xc),A3 00023e96 2f 13 |/ | MOVE.L (A3),-(A7) 00023e98 2f 12 |/ | MOVE.L (A2),-(A7) 00023e9a 48 6e ff f0 |Hn | PEA.L (A6-0x10) 00023e9e 4e b9 00 02 03 c8 |N | JSR 0x203c8 00023ea4 de fc 00 0c | | ADDA.W #0xc,A7 00023ea8 4a 2e ff f0 |J. | TST.B (A6-0x10) 00023eac 66 50 |fP | BNE 0x23efe 00023eae 2e 11 |. | MOVE.L (A1),D7 00023eb0 59 4f |YO | SUBQ.L #0x4,A7 00023eb2 2f 12 |/ | MOVE.L (A2),-(A7) 00023eb4 4e ba d0 80 |N | JSR 0x20f36 00023eb8 58 4f |XO | ADDQ.L #0x4,A7 00023eba 2c 1f |, | MOVE.L (A7)+,D6 00023ebc 2f 13 |/ | MOVE.L (A3),-(A7) 00023ebe 2f 12 |/ | MOVE.L (A2),-(A7) 00023ec0 4e ba f3 2a |N * | JSR 0x231ec 00023ec4 50 4f |PO | ADDQ.L #0x8,A7 00023ec6 2a 11 |* | MOVE.L (A1),D5 00023ec8 20 07 | | MOVE.L D7,D0 00023eca 53 80 |S | SUBQ.L #0x1,D0 00023ecc 0c 80 00 00 1f ff | | CMPI.L #0x00001fff,D0 00023ed2 63 02 |c | BLS 0x23ed6 00023ed4 4e 4f |NO | TRAP #15 00023ed6 41 f9 00 02 46 2c |A F, | LEA.L 0x2462c,A0 00023edc 10 30 08 08 | 0 | MOVE.B (A0+D0.L+#0x8),D0 00023ee0 0c 00 00 25 | % | CMPI.B #0x25,D0 00023ee4 66 0c |f | BNE 0x23ef2 00023ee6 22 87 |" | MOVE.L D7,(A1) 00023ee8 2f 12 |/ | MOVE.L (A2),-(A7) 00023eea 2f 06 |/ | MOVE.L D6,-(A7) 00023eec 4e ba fb 5c |N \ | JSR 0x23a4a 00023ef0 50 4f |PO | ADDQ.L #0x8,A7 00023ef2 52 87 |R | ADDQ.L #0x1,D7 00023ef4 be b9 00 02 66 38 | f8 | CMP.L 0x26638,D7 00023efa 6f cc |o | BLE 0x23ec8 00023efc 22 85 |" | MOVE.L D5,(A1) 00023efe 48 53 |HS | PEA.L (A3) 00023f00 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00023f06 58 4f |XO | ADDQ.L #0x4,A7 00023f08 4c df 0f e1 |L | MOVEM.L (A7)+,D0+D5+D6+D7+A0+A1+A2+A3 00023f0c 4e 5e |N^ | UNLK A6 00023f0e 4e 75 |Nu | RTS 00023f10 ; -------------------------------------------------------------------------------------- 00023f10 ; OMSI PASCAL Function 00023f10 ; <LVAR -0x006 @ 4(r)> 00023f10 ; <LVAR -0x00a @ 4(rw)> 00023f10 ; <LVAR -0x00b 1(w)> 00023f10 ; <LVAR -0x00c @ 1(r)> 00023f10 ; -------------------------------------------------------------------------------------- 00023f10 4e 56 ff 94 |NV | LINK.W A6,#0xff94 00023f14 bf d5 | | CMPA.L (A5),A7 00023f16 62 06 |b | BHI 0x23f1e 00023f18 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023f1c 4e 76 |Nv | TRAPV 00023f1e de fc 00 54 | T | ADDA.W #0x54,A7 00023f22 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00023f26 45 ee ff fa |E | LEA.L (A6-0x6),A2 00023f2a 47 f9 00 02 66 34 |G f4 | LEA.L 0x26634,A3 00023f30 49 ee ff f6 |I | LEA.L (A6-0xa),A4 00023f34 2e 13 |. | MOVE.L (A3),D7 00023f36 48 52 |HR | PEA.L (A2) 00023f38 48 6e ff f4 |Hn | PEA.L (A6-0xc) 00023f3c 4e ba cf 4c |N L | JSR 0x20e8a 00023f40 50 4f |PO | ADDQ.L #0x8,A7 00023f42 2c 13 |, | MOVE.L (A3),D6 00023f44 59 4f |YO | SUBQ.L #0x4,A7 00023f46 2f 12 |/ | MOVE.L (A2),-(A7) 00023f48 4e ba cf ec |N | JSR 0x20f36 00023f4c 58 4f |XO | ADDQ.L #0x4,A7 00023f4e 20 1f | | MOVE.L (A7)+,D0 00023f50 0c 80 ff ff ff ff | | CMPI.L #0xffffffff,D0 00023f56 67 00 02 ac |g | BEQ 0x24204 00023f5a 59 4f |YO | SUBQ.L #0x4,A7 00023f5c 2f 12 |/ | MOVE.L (A2),-(A7) 00023f5e 48 78 00 00 |Hx | PEA.L 0x0 00023f62 4e ba d8 ee |N | JSR 0x21852 00023f66 50 4f |PO | ADDQ.L #0x8,A7 00023f68 28 97 |( | MOVE.L (A7),(A4) 00023f6a 54 4f |TO | ADDQ.L #0x2,A7 00023f6c 2f 14 |/ | MOVE.L (A4),-(A7) 00023f6e 4e ba f1 c4 |N | JSR 0x23134 00023f72 58 4f |XO | ADDQ.L #0x4,A7 00023f74 10 1f | | MOVE.B (A7)+,D0 00023f76 48 80 |H | EXTB.W D0 00023f78 41 bc 00 2b |A + | CHK.W #0x2b,D0 00023f7c 1d 40 ff f5 | @ | MOVE.B D0,(A6-0xb) 00023f80 4a 00 |J | TST.B D0 00023f82 66 0e |f | BNE 0x23f92 00023f84 2f 14 |/ | MOVE.L (A4),-(A7) 00023f86 2f 12 |/ | MOVE.L (A2),-(A7) 00023f88 4e ba fe e8 |N | JSR 0x23e72 00023f8c 50 4f |PO | ADDQ.L #0x8,A7 00023f8e 60 00 02 6c |` l | BRA 0x241fc 00023f92 48 54 |HT | PEA.L (A4) 00023f94 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00023f9a 58 4f |XO | ADDQ.L #0x4,A7 00023f9c 12 00 | | MOVE.B D0,D1 00023f9e 48 81 |H | EXTB.W D1 00023fa0 43 bc 00 2b |C + | CHK.W #0x2b,D1 00023fa4 41 fa ca 86 |A | LEA.L 0x20a2c,A0 00023fa8 30 01 |0 | MOVE.W D1,D0 00023faa 48 c0 |H | EXTW.L D0 00023fac 24 00 |$ | MOVE.L D0,D2 00023fae e2 9a | | ROR.L #0x1,D2 00023fb0 d0 c2 | | ADDA.W D2,A0 00023fb2 48 42 |HB | SWAP.W D2 00023fb4 e7 5a | Z | ROL.W #0x3,D2 00023fb6 42 83 |B | CLR.L D3 00023fb8 16 10 | | MOVE.B (A0),D3 00023fba e5 2b | + | LSL.B D2,D3 00023fbc e8 0b | | LSR.B #0x4,D3 00023fbe 2a 03 |* | MOVE.L D3,D5 00023fc0 0c 85 00 00 00 0f | | CMPI.L #0x0000000f,D5 00023fc6 67 2c |g, | BEQ 0x23ff4 00023fc8 28 00 |( | MOVE.L D0,D4 00023fca 76 0a |v | MOVEQ.L #0x0a,D3 00023fcc 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4 00023fd2 41 fa c8 8a |A | LEA.L COMMAND_TABLE_2085e,A0 00023fd6 9e fc 00 0a | | SUBA.W #0xa,A7 00023fda 22 4f |"O | MOVEA.L A7,A1 00023fdc 41 f0 40 00 |A @ | LEA.L (A0+D4.W),A0 00023fe0 70 09 |p | MOVEQ.L #0x09,D0 00023fe2 12 d8 | | MOVE.B (A0)+,(A1)+ 00023fe4 51 c8 ff fc |Q | DBF D0,0x23fe2 00023fe8 2f 12 |/ | MOVE.L (A2),-(A7) 00023fea 2f 05 |/ | MOVE.L D5,-(A7) 00023fec 4e ba cf 7e |N ~ | JSR 0x20f6c 00023ff0 de fc 00 12 | | ADDA.W #0x12,A7 00023ff4 53 41 |SA | SUBQ.W #0x1,D1 00023ff6 0c 41 00 2a | A * | CMPI.W #0x002a,D1 00023ffa 63 02 |c | BLS 0x23ffe 00023ffc 4e 4e |NN | TRAP #14 00023ffe d2 41 | A | ADD.W D1,D1 00024000 32 3b 10 06 4e fb 10 02 |2; N | SWITCH D1.W 00024008 00 56 | V | .CONST 0x56 ; [0x0] -> 0x2405e 0002400a 00 62 | b | .CONST 0x62 ; [0x1] -> 0x2406a 0002400c 00 74 | t | .CONST 0x74 ; [0x2] -> 0x2407c 0002400e 00 82 | | .CONST 0x82 ; [0x3] -> 0x2408a 00024010 01 e6 | | .CONST 0x1e6 ; [0x4] -> 0x241ee 00024012 00 8a | | .CONST 0x8a ; [0x5] -> 0x24092 00024014 00 8e | | .CONST 0x8e ; [0x6] -> 0x24096 00024016 00 96 | | .CONST 0x96 ; [0x7] -> 0x2409e 00024018 00 9e | | .CONST 0x9e ; [0x8] -> 0x240a6 0002401a 00 a6 | | .CONST 0xa6 ; [0x9] -> 0x240ae 0002401c 00 ae | | .CONST 0xae ; [0xa] -> 0x240b6 0002401e 00 b6 | | .CONST 0xb6 ; [0xb] -> 0x240be 00024020 00 be | | .CONST 0xbe ; [0xc] -> 0x240c6 00024022 00 c6 | | .CONST 0xc6 ; [0xd] -> 0x240ce 00024024 00 ce | | .CONST 0xce ; [0xe] -> 0x240d6 00024026 00 d6 | | .CONST 0xd6 ; [0xf] -> 0x240de 00024028 00 e0 | | .CONST 0xe0 ; [0x10] -> 0x240e8 0002402a 00 ea | | .CONST 0xea ; [0x11] -> 0x240f2 0002402c 00 f4 | | .CONST 0xf4 ; [0x12] -> 0x240fc 0002402e 00 fe | | .CONST 0xfe ; [0x13] -> 0x24106 00024030 01 08 | | .CONST 0x108 ; [0x14] -> 0x24110 00024032 01 12 | | .CONST 0x112 ; [0x15] -> 0x2411a 00024034 01 1c | | .CONST 0x11c ; [0x16] -> 0x24124 00024036 01 26 | & | .CONST 0x126 ; [0x17] -> 0x2412e 00024038 01 30 | 0 | .CONST 0x130 ; [0x18] -> 0x24138 0002403a 01 3a | : | .CONST 0x13a ; [0x19] -> 0x24142 0002403c 01 44 | D | .CONST 0x144 ; [0x1a] -> 0x2414c 0002403e 01 4e | N | .CONST 0x14e ; [0x1b] -> 0x24156 00024040 01 58 | X | .CONST 0x158 ; [0x1c] -> 0x24160 00024042 01 62 | b | .CONST 0x162 ; [0x1d] -> 0x2416a 00024044 01 6c | l | .CONST 0x16c ; [0x1e] -> 0x24174 00024046 01 76 | v | .CONST 0x176 ; [0x1f] -> 0x2417e 00024048 01 80 | | .CONST 0x180 ; [0x20] -> 0x24188 0002404a 01 8a | | .CONST 0x18a ; [0x21] -> 0x24192 0002404c 01 94 | | .CONST 0x194 ; [0x22] -> 0x2419c 0002404e 01 9e | | .CONST 0x19e ; [0x23] -> 0x241a6 00024050 01 a8 | | .CONST 0x1a8 ; [0x24] -> 0x241b0 00024052 01 b2 | | .CONST 0x1b2 ; [0x25] -> 0x241ba 00024054 01 b8 | | .CONST 0x1b8 ; [0x26] -> 0x241c0 00024056 01 c2 | | .CONST 0x1c2 ; [0x27] -> 0x241ca 00024058 01 cc | | .CONST 0x1cc ; [0x28] -> 0x241d4 0002405a 01 d6 | | .CONST 0x1d6 ; [0x29] -> 0x241de 0002405c 01 dc | | .CONST 0x1dc ; [0x2a] -> 0x241e4 0002405e switch@0x24000[0x0]: 0002405e 2f 12 |/ | MOVE.L (A2),-(A7) 00024060 4e ba d9 78 |N x | JSR 0x219da 00024064 58 4f |XO | ADDQ.L #0x4,A7 00024066 60 00 01 94 |` | BRA 0x241fc 0002406a switch@0x24000[0x1]: 0002406a 42 27 |B' | CLR.B -(A7) 0002406c 48 78 00 01 |Hx | PEA.L 0x1 00024070 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00024076 5c 4f |\O | ADDQ.L #0x6,A7 00024078 60 00 01 82 |` | BRA 0x241fc 0002407c switch@0x24000[0x2]: 0002407c 59 4f |YO | SUBQ.L #0x4,A7 0002407e 4e b9 00 01 02 ac |N | JSR FSCALL_102ac 00024084 4e ba d9 2a |N * | JSR 0x219b0 00024088 60 da |` | BRA 0x24064 0002408a switch@0x24000[0x3]: 0002408a 2f 12 |/ | MOVE.L (A2),-(A7) 0002408c 4e ba db 26 |N & | JSR 0x21bb4 00024090 60 d2 |` | BRA 0x24064 00024092 switch@0x24000[0x5]: 00024092 60 00 01 68 |` h | BRA 0x241fc 00024096 switch@0x24000[0x6]: 00024096 2f 12 |/ | MOVE.L (A2),-(A7) 00024098 4e ba de 40 |N @ | JSR 0x21eda 0002409c 60 c6 |` | BRA 0x24064 0002409e switch@0x24000[0x7]: 0002409e 2f 12 |/ | MOVE.L (A2),-(A7) 000240a0 4e ba df a4 |N | JSR 0x22046 000240a4 60 be |` | BRA 0x24064 000240a6 switch@0x24000[0x8]: 000240a6 2f 12 |/ | MOVE.L (A2),-(A7) 000240a8 4e ba e0 8a |N | JSR 0x22134 000240ac 60 b6 |` | BRA 0x24064 000240ae switch@0x24000[0x9]: 000240ae 2f 12 |/ | MOVE.L (A2),-(A7) 000240b0 4e ba e4 76 |N v | JSR 0x22528 000240b4 60 ae |` | BRA 0x24064 000240b6 switch@0x24000[0xa]: 000240b6 2f 12 |/ | MOVE.L (A2),-(A7) 000240b8 4e ba e4 e6 |N | JSR 0x225a0 000240bc 60 a6 |` | BRA 0x24064 000240be switch@0x24000[0xb]: 000240be 2f 12 |/ | MOVE.L (A2),-(A7) 000240c0 4e ba e5 56 |N V | JSR 0x22618 000240c4 60 9e |` | BRA 0x24064 000240c6 switch@0x24000[0xc]: 000240c6 2f 12 |/ | MOVE.L (A2),-(A7) 000240c8 4e ba e5 7a |N z | JSR 0x22644 000240cc 60 96 |` | BRA 0x24064 000240ce switch@0x24000[0xd]: 000240ce 2f 12 |/ | MOVE.L (A2),-(A7) 000240d0 4e ba e6 72 |N r | JSR 0x22744 000240d4 60 8e |` | BRA 0x24064 000240d6 switch@0x24000[0xe]: 000240d6 2f 12 |/ | MOVE.L (A2),-(A7) 000240d8 4e ba e7 50 |N P | JSR 0x2282a 000240dc 60 86 |` | BRA 0x24064 000240de switch@0x24000[0xf]: 000240de 2f 12 |/ | MOVE.L (A2),-(A7) 000240e0 4e ba e7 74 |N t | JSR 0x22856 000240e4 60 00 ff 7e |` ~ | BRA 0x24064 000240e8 switch@0x24000[0x10]: 000240e8 2f 12 |/ | MOVE.L (A2),-(A7) 000240ea 4e ba e7 b6 |N | JSR 0x228a2 000240ee 60 00 ff 74 |` t | BRA 0x24064 000240f2 switch@0x24000[0x11]: 000240f2 2f 12 |/ | MOVE.L (A2),-(A7) 000240f4 4e ba e7 f8 |N | JSR 0x228ee 000240f8 60 00 ff 6a |` j | BRA 0x24064 000240fc switch@0x24000[0x12]: 000240fc 2f 12 |/ | MOVE.L (A2),-(A7) 000240fe 4e ba e8 3a |N : | JSR 0x2293a 00024102 60 00 ff 60 |` ` | BRA 0x24064 00024106 switch@0x24000[0x13]: 00024106 2f 12 |/ | MOVE.L (A2),-(A7) 00024108 4e ba e8 7c |N | | JSR 0x22986 0002410c 60 00 ff 56 |` V | BRA 0x24064 00024110 switch@0x24000[0x14]: 00024110 2f 12 |/ | MOVE.L (A2),-(A7) 00024112 4e ba e8 be |N | JSR 0x229d2 00024116 60 00 ff 4c |` L | BRA 0x24064 0002411a switch@0x24000[0x15]: 0002411a 2f 12 |/ | MOVE.L (A2),-(A7) 0002411c 4e ba e9 00 |N | JSR 0x22a1e 00024120 60 00 ff 42 |` B | BRA 0x24064 00024124 switch@0x24000[0x16]: 00024124 2f 12 |/ | MOVE.L (A2),-(A7) 00024126 4e ba e9 40 |N @ | JSR 0x22a68 0002412a 60 00 ff 38 |` 8 | BRA 0x24064 0002412e switch@0x24000[0x17]: 0002412e 2f 12 |/ | MOVE.L (A2),-(A7) 00024130 4e ba e9 80 |N | JSR 0x22ab2 00024134 60 00 ff 2e |` . | BRA 0x24064 00024138 switch@0x24000[0x18]: 00024138 2f 12 |/ | MOVE.L (A2),-(A7) 0002413a 4e ba e9 c0 |N | JSR 0x22afc 0002413e 60 00 ff 24 |` $ | BRA 0x24064 00024142 switch@0x24000[0x19]: 00024142 2f 12 |/ | MOVE.L (A2),-(A7) 00024144 4e ba ea 00 |N | JSR 0x22b46 00024148 60 00 ff 1a |` | BRA 0x24064 0002414c switch@0x24000[0x1a]: 0002414c 2f 12 |/ | MOVE.L (A2),-(A7) 0002414e 4e ba ea 40 |N @ | JSR 0x22b90 00024152 60 00 ff 10 |` | BRA 0x24064 00024156 switch@0x24000[0x1b]: 00024156 2f 12 |/ | MOVE.L (A2),-(A7) 00024158 4e ba ea 80 |N | JSR 0x22bda 0002415c 60 00 ff 06 |` | BRA 0x24064 00024160 switch@0x24000[0x1c]: 00024160 2f 12 |/ | MOVE.L (A2),-(A7) 00024162 4e ba ea c0 |N | JSR 0x22c24 00024166 60 00 fe fc |` | BRA 0x24064 0002416a switch@0x24000[0x1d]: 0002416a 2f 12 |/ | MOVE.L (A2),-(A7) 0002416c 4e ba eb 00 |N | JSR 0x22c6e 00024170 60 00 fe f2 |` | BRA 0x24064 00024174 switch@0x24000[0x1e]: 00024174 2f 12 |/ | MOVE.L (A2),-(A7) 00024176 4e ba eb 3a |N : | JSR 0x22cb2 0002417a 60 00 fe e8 |` | BRA 0x24064 0002417e switch@0x24000[0x1f]: 0002417e 2f 12 |/ | MOVE.L (A2),-(A7) 00024180 4e ba eb 76 |N v | JSR 0x22cf8 00024184 60 00 fe de |` | BRA 0x24064 00024188 switch@0x24000[0x20]: 00024188 2f 12 |/ | MOVE.L (A2),-(A7) 0002418a 4e ba eb a2 |N | JSR 0x22d2e 0002418e 60 00 fe d4 |` | BRA 0x24064 00024192 switch@0x24000[0x21]: 00024192 2f 12 |/ | MOVE.L (A2),-(A7) 00024194 4e ba ec 28 |N ( | JSR 0x22dbe 00024198 60 00 fe ca |` | BRA 0x24064 0002419c switch@0x24000[0x22]: 0002419c 2f 12 |/ | MOVE.L (A2),-(A7) 0002419e 4e ba ec 90 |N | JSR 0x22e30 000241a2 60 00 fe c0 |` | BRA 0x24064 000241a6 switch@0x24000[0x23]: 000241a6 2f 12 |/ | MOVE.L (A2),-(A7) 000241a8 4e ba df ec |N | JSR 0x22196 000241ac 60 00 fe b6 |` | BRA 0x24064 000241b0 switch@0x24000[0x24]: 000241b0 2f 12 |/ | MOVE.L (A2),-(A7) 000241b2 4e ba e0 4c |N L | JSR 0x22200 000241b6 60 00 fe ac |` | BRA 0x24064 000241ba switch@0x24000[0x25]: 000241ba 4e ba e0 16 |N | JSR 0x221d2 000241be 60 3c |`< | BRA 0x241fc 000241c0 switch@0x24000[0x26]: 000241c0 2f 12 |/ | MOVE.L (A2),-(A7) 000241c2 4e ba ec de |N | JSR 0x22ea2 000241c6 60 00 fe 9c |` | BRA 0x24064 000241ca switch@0x24000[0x27]: 000241ca 2f 12 |/ | MOVE.L (A2),-(A7) 000241cc 4e ba ed 56 |N V | JSR 0x22f24 000241d0 60 00 fe 92 |` | BRA 0x24064 000241d4 switch@0x24000[0x28]: 000241d4 2f 12 |/ | MOVE.L (A2),-(A7) 000241d6 4e ba ed cc |N | JSR 0x22fa4 000241da 60 00 fe 88 |` | BRA 0x24064 000241de switch@0x24000[0x29]: 000241de 4e ba ee 88 |N | JSR 0x23068 000241e2 60 18 |` | BRA 0x241fc 000241e4 switch@0x24000[0x2a]: 000241e4 2f 12 |/ | MOVE.L (A2),-(A7) 000241e6 4e ba ee a0 |N | JSR 0x23088 000241ea 60 00 fe 78 |` x | BRA 0x24064 000241ee switch@0x24000[0x4]: 000241ee 2e 6d 00 08 |.m | MOVEA.L (A5+0x8),A7 000241f2 3c 7c 00 00 |<| | MOVEA.W #0x0,A6 000241f6 4e f9 00 02 44 06 |N D | JMP 0x24406 000241fc 2f 12 |/ | MOVE.L (A2),-(A7) 000241fe 4e ba c8 e8 |N | JSR 0x20ae8 00024202 58 4f |XO | ADDQ.L #0x4,A7 00024204 2f 06 |/ | MOVE.L D6,-(A7) 00024206 2f 06 |/ | MOVE.L D6,-(A7) 00024208 9f 97 | | SUB.L D7,(A7) 0002420a 4e ba ce 72 |N r | JSR 0x2107e 0002420e 50 4f |PO | ADDQ.L #0x8,A7 00024210 26 87 |& | MOVE.L D7,(A3) 00024212 4a 2e ff f4 |J. | TST.B (A6-0xc) 00024216 67 00 fd 1c |g | BEQ 0x23f34 0002421a 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 0002421e 4e 5e |N^ | UNLK A6 00024220 4e 75 |Nu | RTS 00024222 ; -------------------------------------------------------------------------------------- 00024222 ; OMSI PASCAL Function 00024222 ; -------------------------------------------------------------------------------------- 00024222 START: 00024222 4f fa 00 08 |O | LEA.L MAIN,A7 00024226 4e f9 00 01 02 80 |N | JMP ?start_program 0002422c MAIN: 0002422c 23 fc 00 00 00 01 00 02 |# | MOVE.L #0x1,0x2665e 00024234 66 5e |f^ | 00024236 59 4f |YO | SUBQ.L #0x4,A7 00024238 4e b9 00 01 03 c4 |N | JSR GetArgv() : String 0002423e 23 df 00 02 66 62 |# fb | MOVE.L (A7)+,0x26662 00024244 48 79 00 02 66 3c |Hy f< | PEA.L 0x2663c 0002424a 4e b9 00 02 04 38 |N 8 | JSR 0x20438 00024250 58 4f |XO | ADDQ.L #0x4,A7 00024252 20 79 00 02 66 62 | y fb | MOVEA.L 0x26662,A0 00024258 4a 50 |JP | TST.W (A0) 0002425a 6f 68 |oh | BLE 0x242c4 0002425c 51 4f |QO | SUBQ.L #0x8,A7 0002425e 20 4f | O | MOVEA.L A7,A0 00024260 43 fa c5 de |C | LEA.L 0x20840,A1 00024264 70 06 |p | MOVEQ.L #0x06,D0 00024266 10 d9 | | MOVE.B (A1)+,(A0)+ 00024268 51 c8 ff fc |Q | DBF D0,0x24266 0002426c 51 4f |QO | SUBQ.L #0x8,A7 0002426e 20 4f | O | MOVEA.L A7,A0 00024270 43 fa c5 d6 |C | LEA.L 0x20848,A1 00024274 70 06 |p | MOVEQ.L #0x06,D0 00024276 10 d9 | | MOVE.B (A1)+,(A0)+ 00024278 51 c8 ff fc |Q | DBF D0,0x24276 0002427c 51 4f |QO | SUBQ.L #0x8,A7 0002427e 48 6f 00 10 |Ho | PEA.L (A7+0x10) 00024282 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00024286 3f 3c 00 07 |?< | MOVE.W #0x7,-(A7) 0002428a 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00024290 58 4f |XO | ADDQ.L #0x4,A7 00024292 2e b9 00 02 66 62 |. fb | MOVE.L 0x26662,(A7) 00024298 59 4f |YO | SUBQ.L #0x4,A7 0002429a 48 6f 00 10 |Ho | PEA.L (A7+0x10) 0002429e 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000242a2 3f 3c 00 07 |?< | MOVE.W #0x7,-(A7) 000242a6 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000242ac 50 4f |PO | ADDQ.L #0x8,A7 000242ae 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 000242b4 de fc 00 0c | | ADDA.W #0xc,A7 000242b8 23 df 00 02 66 62 |# fb | MOVE.L (A7)+,0x26662 000242be de fc 00 10 | | ADDA.W #0x10,A7 000242c2 60 3a |`: | BRA 0x242fe 000242c4 48 79 00 02 66 62 |Hy fb | PEA.L 0x26662 000242ca 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000242d0 59 4f |YO | SUBQ.L #0x4,A7 000242d2 20 4f | O | MOVEA.L A7,A0 000242d4 43 fa c5 7a |C z | LEA.L 0x20850,A1 000242d8 70 06 |p | MOVEQ.L #0x06,D0 000242da 10 d9 | | MOVE.B (A1)+,(A0)+ 000242dc 51 c8 ff fc |Q | DBF D0,0x242da 000242e0 59 4f |YO | SUBQ.L #0x4,A7 000242e2 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000242e6 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000242ea 3f 3c 00 07 |?< | MOVE.W #0x7,-(A7) 000242ee 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000242f4 50 4f |PO | ADDQ.L #0x8,A7 000242f6 23 df 00 02 66 62 |# fb | MOVE.L (A7)+,0x26662 000242fc 50 4f |PO | ADDQ.L #0x8,A7 000242fe 13 fc 00 01 00 02 66 6c | fl| MOVE.B #0x01,0x2666c 00024306 4a 39 00 02 66 6c |J9 fl | TST.B 0x2666c 0002430c 67 0a |g | BEQ 0x24318 0002430e 42 39 00 02 66 6c |B9 fl | CLR.B 0x2666c 00024314 60 00 00 b0 |` | BRA 0x243c6 00024318 41 f9 00 02 66 46 |A fF | LEA.L 0x26646,A0 0002431e 70 04 |p | MOVEQ.L #0x04,D0 00024320 3f 20 |? | MOVE.W -(A0),-(A7) 00024322 51 c8 ff fc |Q | DBF D0,0x24320 00024326 3f 3a c5 30 |?: 0 | MOVE.W 0x20858,-(A7) 0002432a 9e fc 00 0c | | SUBA.W #0xc,A7 0002432e 48 6f 00 0e |Ho | PEA.L (A7+0xe) 00024332 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00024336 3f 3c 00 0a |?< | MOVE.W #0xa,-(A7) 0002433a 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00024340 58 4f |XO | ADDQ.L #0x4,A7 00024342 48 6f 00 10 |Ho | PEA.L (A7+0x10) 00024346 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 0002434a 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7) 0002434e 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00024354 50 4f |PO | ADDQ.L #0x8,A7 00024356 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 0002435c 50 4f |PO | ADDQ.L #0x8,A7 0002435e 4e b9 00 01 03 e4 |N | JSR AskConsoleString(prompt : String) : String 00024364 58 4f |XO | ADDQ.L #0x4,A7 00024366 23 df 00 02 66 68 |# fh | MOVE.L (A7)+,0x26668 0002436c 50 4f |PO | ADDQ.L #0x8,A7 0002436e 2e b9 00 02 66 68 |. fh | MOVE.L 0x26668,(A7) 00024374 4e ba ca 0c |N | JSR 0x20d82 00024378 54 4f |TO | ADDQ.L #0x2,A7 0002437a 3e ba c4 de |> | MOVE.W 0x2085a,(A7) 0002437e 3f 3a c4 dc |?: | MOVE.W 0x2085c,-(A7) 00024382 51 4f |QO | SUBQ.L #0x8,A7 00024384 48 6f 00 0a |Ho | PEA.L (A7+0xa) 00024388 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 0002438c 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7) 00024390 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00024396 58 4f |XO | ADDQ.L #0x4,A7 00024398 2e b9 00 02 66 68 |. fh | MOVE.L 0x26668,(A7) 0002439e 59 4f |YO | SUBQ.L #0x4,A7 000243a0 48 6f 00 10 |Ho | PEA.L (A7+0x10) 000243a4 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000243a8 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7) 000243ac 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000243b2 50 4f |PO | ADDQ.L #0x8,A7 000243b4 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 000243ba de fc 00 0c | | ADDA.W #0xc,A7 000243be 23 df 00 02 66 62 |# fb | MOVE.L (A7)+,0x26662 000243c4 58 4f |XO | ADDQ.L #0x4,A7 000243c6 42 39 00 02 66 66 |B9 ff | CLR.B 0x26666 000243cc 23 fc 00 00 00 01 00 02 |# | MOVE.L #0x1,0x26634 000243d4 66 34 |f4 | 000243d6 42 b9 00 02 66 38 |B f8 | CLR.L 0x26638 000243dc 59 4f |YO | SUBQ.L #0x4,A7 000243de 2f 39 00 02 66 62 |/9 fb | MOVE.L 0x26662,-(A7) 000243e4 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 000243ea 58 4f |XO | ADDQ.L #0x4,A7 000243ec 4e ba d5 06 |N | JSR 0x218f4 000243f0 58 4f |XO | ADDQ.L #0x4,A7 000243f2 20 39 00 02 66 34 | 9 f4 | MOVE.L 0x26634,D0 000243f8 b0 b9 00 02 66 38 | f8 | CMP.L 0x26638,D0 000243fe 6e 06 |n | BGT 0x24406 00024400 4e ba fb 0e |N | JSR 0x23f10 00024404 60 ec |` | BRA 0x243f2 00024406 48 79 00 02 66 62 |Hy fb | PEA.L 0x26662 0002440c 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00024412 58 4f |XO | ADDQ.L #0x4,A7 00024414 60 00 fe f0 |` | BRA 0x24306 00024418 4e b9 00 01 02 84 |N | .XXX[0x6] 0002441e 57 6f 72 64 73 20 65 72 |Words er| .TXT 'Words error :_' 0002442c ; -------------------------------------------------------------------------------------- 0002442c ; OMSI PASCAL Function 0002442c ; <LVAR 0x008 1(r)> 0002442c ; -------------------------------------------------------------------------------------- 0002442c PROG_FAIL: 0002442c 4e 56 ff d2 |NV | LINK.W A6,#0xffd2 00024430 bf d5 | | CMPA.L (A5),A7 00024432 62 06 |b | BHI 0x2443a 00024434 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024438 4e 76 |Nv | TRAPV 0002443a de fc 00 2c | , | ADDA.W #0x2c,A7 0002443e 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 00024442 41 fa ff e8 |A | LEA.L PROG_FAIL,A0 00024446 70 06 |p | MOVEQ.L #0x06,D0 00024448 3f 20 |? | MOVE.W -(A0),-(A7) 0002444a 51 c8 ff fc |Q | DBF D0,0x24448 0002444e 1f 3c 00 03 | < | MOVE.B #0x03,-(A7) 00024452 51 4f |QO | SUBQ.L #0x8,A7 00024454 48 6f 00 0a |Ho | PEA.L (A7+0xa) 00024458 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 0002445c 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7) 00024460 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00024466 58 4f |XO | ADDQ.L #0x4,A7 00024468 10 2e 00 08 | . | MOVE.B (A6+0x8),D0 0002446c 48 80 |H | EXTB.W D0 0002446e 48 c0 |H | EXTW.L D0 00024470 2f 00 |/ | MOVE.L D0,-(A7) 00024472 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00024478 58 4f |XO | ADDQ.L #0x4,A7 0002447a 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00024480 50 4f |PO | ADDQ.L #0x8,A7 00024482 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00024488 de fc 00 14 | | ADDA.W #0x14,A7 0002448c 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 00024490 4e 5e |N^ | UNLK A6 00024492 4e 75 |Nu | RTS 00024494 42 6f 61 72 64 20 20 20 |Board | .TXT 'Board :_ ' 000244a2 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment :_ ' 000244b0 53 74 61 74 75 73 20 20 |Status | .TXT 'Status :_ ' 000244be 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment error :' 000244d0 46 61 74 61 6c 20 65 78 |Fatal ex| .TXT 'Fatal experiment error. ' 000244e8 ; -------------------------------------------------------------------------------------- 000244e8 ; OMSI PASCAL Function 000244e8 ; <LVAR 0x00e 1(r)> 000244e8 ; <LVAR 0x00a 4(r)> 000244e8 ; <LVAR 0x008 1(r)> 000244e8 ; -------------------------------------------------------------------------------------- 000244e8 EXP_FAIL: 000244e8 4e 56 ff 8c |NV | LINK.W A6,#0xff8c 000244ec bf d5 | | CMPA.L (A5),A7 000244ee 62 06 |b | BHI 0x244f6 000244f0 44 fc 00 02 |D | MOVE.W #0x2,CCR 000244f4 4e 76 |Nv | TRAPV 000244f6 de fc 00 74 | t | ADDA.W #0x74,A7 000244fa 48 e7 fc f8 |H | MOVEM.L A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7) 000244fe 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 00024504 49 f9 00 01 03 e0 |I | LEA.L WriteConsoleStringCrLf(str : String),A4 0002450a 72 01 |r | MOVEQ.L #0x01,D1 0002450c 74 0d |t | MOVEQ.L #0x0d,D2 0002450e 76 1e |v | MOVEQ.L #0x1e,D3 00024510 78 12 |x | MOVEQ.L #0x12,D4 00024512 7a 0e |z | MOVEQ.L #0x0e,D5 00024514 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 0002451a 41 fa ff b4 |A | LEA.L 0x244d0,A0 0002451e 70 08 |p | MOVEQ.L #0x08,D0 00024520 3f 20 |? | MOVE.W -(A0),-(A7) 00024522 51 c8 ff fc |Q | DBF D0,0x24520 00024526 59 4f |YO | SUBQ.L #0x4,A7 00024528 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002452c 3f 01 |? | MOVE.W D1,-(A7) 0002452e 3f 04 |? | MOVE.W D4,-(A7) 00024530 4e 93 |N | JSR (A3) 00024532 50 4f |PO | ADDQ.L #0x8,A7 00024534 4e 94 |N | JSR (A4) 00024536 50 4f |PO | ADDQ.L #0x8,A7 00024538 20 4f | O | MOVEA.L A7,A0 0002453a 43 fa ff 58 |C X | LEA.L 0x24494,A1 0002453e 70 0c |p | MOVEQ.L #0x0c,D0 00024540 10 d9 | | MOVE.B (A1)+,(A0)+ 00024542 51 c8 ff fc |Q | DBF D0,0x24540 00024546 51 4f |QO | SUBQ.L #0x8,A7 00024548 48 6f 00 08 |Ho | PEA.L (A7+0x8) 0002454c 3f 01 |? | MOVE.W D1,-(A7) 0002454e 3f 02 |? | MOVE.W D2,-(A7) 00024550 4e 93 |N | JSR (A3) 00024552 54 4f |TO | ADDQ.L #0x2,A7 00024554 1e ae 00 0e | | MOVE.B (A6+0xe),(A7) 00024558 4e b9 00 01 04 9c |N | JSR BoardName(address : B) : String 0002455e 54 4f |TO | ADDQ.L #0x2,A7 00024560 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00024566 50 4f |PO | ADDQ.L #0x8,A7 00024568 4e 94 |N | JSR (A4) 0002456a de c4 | | ADDA.W D4,A7 0002456c 20 6e 00 0a | n | MOVEA.L (A6+0xa),A0 00024570 b0 c1 | | CMPA.W D1,A0 00024572 67 48 |gH | BEQ 0x245bc 00024574 9e c5 | | SUBA.W D5,A7 00024576 22 4f |"O | MOVEA.L A7,A1 00024578 45 fa ff 28 |E ( | LEA.L 0x244a2,A2 0002457c 70 0c |p | MOVEQ.L #0x0c,D0 0002457e 12 da | | MOVE.B (A2)+,(A1)+ 00024580 51 c8 ff fc |Q | DBF D0,0x2457e 00024584 9e c3 | | SUBA.W D3,A7 00024586 22 4f |"O | MOVEA.L A7,A1 00024588 41 e8 00 fc |A | LEA.L (A0+0xfc),A0 0002458c 70 1d |p | MOVEQ.L #0x1d,D0 0002458e 12 d8 | | MOVE.B (A0)+,(A1)+ 00024590 51 c8 ff fc |Q | DBF D0,0x2458e 00024594 51 4f |QO | SUBQ.L #0x8,A7 00024596 48 6f 00 26 |Ho & | PEA.L (A7+0x26) 0002459a 3f 01 |? | MOVE.W D1,-(A7) 0002459c 3f 02 |? | MOVE.W D2,-(A7) 0002459e 4e 93 |N | JSR (A3) 000245a0 58 4f |XO | ADDQ.L #0x4,A7 000245a2 48 6f 00 0c |Ho | PEA.L (A7+0xc) 000245a6 3f 01 |? | MOVE.W D1,-(A7) 000245a8 3f 03 |? | MOVE.W D3,-(A7) 000245aa 4e 93 |N | JSR (A3) 000245ac 50 4f |PO | ADDQ.L #0x8,A7 000245ae 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000245b4 50 4f |PO | ADDQ.L #0x8,A7 000245b6 4e 94 |N | JSR (A4) 000245b8 de fc 00 30 | 0 | ADDA.W #0x30,A7 000245bc 9e c5 | | SUBA.W D5,A7 000245be 20 4f | O | MOVEA.L A7,A0 000245c0 43 fa fe ee |C | LEA.L 0x244b0,A1 000245c4 70 0c |p | MOVEQ.L #0x0c,D0 000245c6 10 d9 | | MOVE.B (A1)+,(A0)+ 000245c8 51 c8 ff fc |Q | DBF D0,0x245c6 000245cc 51 4f |QO | SUBQ.L #0x8,A7 000245ce 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000245d2 3f 01 |? | MOVE.W D1,-(A7) 000245d4 3f 02 |? | MOVE.W D2,-(A7) 000245d6 4e 93 |N | JSR (A3) 000245d8 54 4f |TO | ADDQ.L #0x2,A7 000245da 1e ae 00 08 | | MOVE.B (A6+0x8),(A7) 000245de 4e b9 00 01 04 a2 |N | JSR ExpStatus2Text(status.B, &String) 000245e4 54 4f |TO | ADDQ.L #0x2,A7 000245e6 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000245ec 50 4f |PO | ADDQ.L #0x8,A7 000245ee 4e 94 |N | JSR (A4) 000245f0 5d 4f |]O | SUBQ.L #0x6,A7 000245f2 20 4f | O | MOVEA.L A7,A0 000245f4 43 fa fe da |C | LEA.L 0x244d0,A1 000245f8 70 16 |p | MOVEQ.L #0x16,D0 000245fa 10 d9 | | MOVE.B (A1)+,(A0)+ 000245fc 51 c8 ff fc |Q | DBF D0,0x245fa 00024600 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 00024604 59 4f |YO | SUBQ.L #0x4,A7 00024606 48 6f 00 06 |Ho | PEA.L (A7+0x6) 0002460a 3f 01 |? | MOVE.W D1,-(A7) 0002460c 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7) 00024610 4e 93 |N | JSR (A3) 00024612 50 4f |PO | ADDQ.L #0x8,A7 00024614 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 0002461a de c3 | | ADDA.W D3,A7 0002461c 4c df 1f 3f |L ? | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4 00024620 4e 5e |N^ | UNLK A6 00024622 4e 75 |Nu | RTS