|
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: 2560 (0xa00)
Types: M200
Notes: M200_PROGRAM
Names: »LOOK.M200«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »LOOK.M200«
@ 20136
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 1(r)>
<LVAR -0x008 @ 4(rw)>
<LVAR -0x00c @ 4(r)>
<LVAR -0x010 @ 4(rw)>
<POP 20136-202ae Body>
<POP 20136-2014c Prologue> Σ0 ↓
<POP 2014c-2015e RegCacheLoad> Σ0 ↓
<POP 2015e-20190 Naked> Σ0 ↓
<POP 2015e-20160 StackAdj> Δ-4 {[-4-]}
<POP 20160-20161 StackAdj> Δ+2 {[-2-]}
<Blob 0x20161 [2] @> Δ-2 {[-2-]|[«2""»]}
<MI 20164 MOVE.B 0x2010b,(A7+0x1)> {[-2-]|[«2""»]}
<MI 2016a MOVE.B 0x2010c,(A7+0x2)> {[-2-]|[«2""»]}
<POP 20170-20172 StackAdj> Δ-4 {[-2-]|[«2""»]|[-4-]}
<Lit 0x20172> {[-2-]|[«2""»]|[$$…]}
<Pointer.sp 0x20172 4> Δ-4
<Const 0x20176 0x1.2> Δ-2
<Const 0x20178 0x3.2> Δ-2
<Call 0x2017c 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 20182-20184 StackAdj> Δ+8
<MI 20184 MOVE.L (A7)+,(A6-0x8)> Δ+4 {[-2-]|[«2""»]}
<POP 20188-2018a StackAdj> Δ+4 {}
<MI 2018a MOVEA.L (A6+0x8),A0> {}
<MI 2018e CLR.B (A0)> {}
<POP 20190-201d6 Naked> Σ0 ↓ →0x201e0 ←0x20264
<Blob 0x20190 [2] @> Δ-2 {[«2""»]}
<POP 20194-20196 StackAdj> Δ-12 {[«2""»]|[-12-]}
<Lit 0x20196 2> {[«2""»]|[-8-]|[$$> ]}
<Call 0x201a6 0x103e4> {[«2""»]|[-8-]|[$$> ]}
AskConsoleString(prompt : String) : String
<POP 201ac-201ae StackAdj> Δ+4 {[«2""»]|[-8-]}
<Call 0x201ae 0x102f0> {[«2""»]|[-8-]}
ToUpper(a : String) : String
<POP 201b4-201b6 StackAdj> Δ+4 {[«2""»]|[-4-]}
<MI 201b6 MOVE.L (A7)+,(A6-0x10)> Δ+4 {[«2""»]}
<POP 201b8-201ba StackAdj> Δ+2 {}
<Pointer.fp 0x201ba <LVAR -0x00c @ 4(r)>> Δ-4 {[@@-12]}
<Call 0x201bc 0x102b8> {[@@-12]}
NewString(VAR a : String)
<POP 201c2-201c4 StackAdj> Δ+2 {[-2-]}
<MI 201c4 MOVE.L (A6-0x10),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x10)']}
<MI 201c6 MOVE.L (A6-0x8),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x10)']|[4, '(A6-0x8)']}
<Call 0x201ca 0x102c8> {[-2-]|[4, '(A6-0x10)']|[4, '(A6-0x8)']}
StringEqual(a, b : String) : Byte
<POP 201d0-201d2 StackAdj> Δ+8 {[-2-]}
<MI 201d2 TST.B (A7)+> Δ+2 {}
<MI 201d4 BEQ 0x201e0> {}
<POP 201d6-201e0 Naked> Σ0 →0x20290
<MI 201d6 MOVEA.L (A6+0x8),A0> {}
<MI 201da MOVE.B #0x01,(A0)> {}
<MI 201dc BRA 0x20290> {}
<POP 201e0-201f2 Naked> Σ0 ↓ →0x201f4 ←0x20190
<MI 201e0 MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0x10)']}
<MI 201e2 MOVE.L (A6-0xc),-(A7)> Δ-4 {[4, '(A6-0x10)']|[4, '(A6-0xc)']}
<Pointer.fp 0x201e4 <LVAR -0x004 @ 1(r)>> Δ-4 {[4, '(A6-0x10)']|[4, '(A6-0xc)']|[@@-4]}
<Call 0x201e6 0x102fc> {[4, '(A6-0x10)']|[4, '(A6-0xc)']|[@@-4]}
FirstField(MOD input : String; MOD output : String; VAR c : Bool
<POP 201ec-201ee StackAdj> Δ+12 {}
<MI 201ee TST.B (A6-0x4)> {}
<MI 201f0 BNE 0x201f4> {}
<POP 201f2-201f4 Naked> Σ0 →0x20264
<MI 201f2 BRA 0x20264> {}
<POP 201f4-20238 Naked> Σ0 ↓ →0x20240 ←0x201e0
<MI 201f4 MOVEA.L (A6+0x10),A0> {}
<POP 201f8-201fa StackAdj> Δ-12 {[-12-]}
<MI 201fa MOVE.L (A6-0xc),-(A7)> Δ-4 {[-12-]|[4, '(A6-0xc)']}
<Call 0x201fc 0x102cc> {[-12-]|[4, '(A6-0xc)']}
StringDup(a : String) : String
<POP 20202-20204 StackAdj> Δ+4 {[-12-]}
<Const 0x20204 0x10.4> Δ-4 {[-12-]|[##16]}
<Call 0x20208 0x10360> {[-12-]|[##16]}
?StringToInt64()
<POP 2020e-20210 StackAdj> Δ+8 {[-8-]}
<MI 20210 MOVEA.L A7,A1> {[-8-]}
<BlockMove 8,A1,A0> {[-8-]}
<POP 2021a-2021c StackAdj> Δ+4 {[-4-]}
<MI 2021c MOVE.L (A6-0x10),(A7)> {[4, '(A6-0x10)']}
<MI 2021e MOVE.L (A6-0xc),-(A7)> Δ-4 {[4, '(A6-0x10)']|[4, '(A6-0xc)']}
<Pointer.fp 0x20220 <LVAR -0x004 @ 1(r)>> Δ-4 {[4, '(A6-0x10)']|[4, '(A6-0xc)']|[@@-4]}
<Call 0x20222 0x102fc> {[4, '(A6-0x10)']|[4, '(A6-0xc)']|[@@-4]}
FirstField(MOD input : String; MOD output : String; VAR c : Bool
<POP 20228-2022a StackAdj> Δ+12 {}
<Pointer.fp 0x2022a <LVAR -0x010 @ 4(rw)>> Δ-4 {[@@-16]}
<Call 0x2022c 0x102bc> {[@@-16]}
FreeString(VAR a : String)
<POP 20232-20234 StackAdj> Δ+4 {}
<MI 20234 TST.B (A6-0x4)> {}
<MI 20236 BNE 0x20240> {}
<POP 20238-20240 Naked> Σ0 →0x20262
<MI 20238 MOVEA.L (A6+0xc),A0> {}
<MI 2023c MOVE.L #0x01,(A0)> {}
<MI 2023e BRA 0x20262> {}
<POP 20240-20260 Naked> Σ0 ↓ →0x20262 ←0x201f4
<POP 20240-20242 StackAdj> Δ-4 {[-4-]}
<MI 20242 MOVE.L (A6-0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6-0xc)']}
<Call 0x20244 0x102cc> {[-4-]|[4, '(A6-0xc)']}
StringDup(a : String) : String
<POP 2024a-2024c StackAdj> Δ+4 {[-4-]}
<Pointer.fp 0x2024c <LVAR -0x004 @ 1(r)>> Δ-4 {[-4-]|[@@-4]}
<MI 2024e MOVEA.L (A6+0xc),A0> {[-4-]|[@@-4]}
<MI 20252 PEA.L (A0)> Δ-4 {[-4-]|[@@-4]|[4, '^(A0)']}
<Call 0x20254 0x102ec> {[-4-]|[@@-4]|[4, '^(A0)']}
String2Long(src : String; VAR status : Bool; VAR retval : Long)
<POP 2025a-2025c StackAdj> Δ+12 {}
<MI 2025c TST.B (A6-0x4)> {}
<MI 2025e BNE 0x20262> {}
<POP 20260-20262 Naked> Σ0 →0x20264
<MI 20260 BRA 0x20264> {}
<POP 20262-20264 Naked> Σ0 →0x20290 ←0x20238 ←0x20240
<MI 20262 BRA 0x20290> {}
<POP 20264-20290 Naked> Σ0 →0x20190 ←0x201f2 ←0x20260
<Blob 0x20264 [2] @> Δ-2 {[«2""»]}
<POP 20268-2026a StackAdj> Δ-4 {[«2""»]|[-4-]}
<Lit 0x2026a 2> {[«2""»]|[$$??]}
<Call 0x2027a 0x103e0> {[«2""»]|[$$??]}
WriteConsoleStringCrLf(str : String)
<POP 20280-20282 StackAdj> Δ+6 {}
<Pointer.fp 0x20282 <LVAR -0x00c @ 4(r)>> Δ-4 {[@@-12]}
<Call 0x20284 0x102bc> {[@@-12]}
FreeString(VAR a : String)
<POP 2028a-2028c StackAdj> Δ+4 {}
<MI 2028c BRA 0x20190> {}
<POP 20290-202a6 Naked> Σ0 ↓ ←0x201d6 ←0x20262
<Pointer.fp 0x20290 <LVAR -0x00c @ 4(r)>> Δ-4 {[@@-12]}
<Call 0x20292 0x102bc> {[@@-12]}
FreeString(VAR a : String)
<POP 20298-2029a StackAdj> Δ+4 {}
<Pointer.fp 0x2029a <LVAR -0x008 @ 4(rw)>> Δ-4 {[@@-8]}
<Call 0x2029e 0x102bc> {[@@-8]}
FreeString(VAR a : String)
<POP 202a4-202a6 StackAdj> Δ+4 {}
<POP 202a6-202ae Epilogue> Σ0
@ 202ae
<LVAR 0x014 2(w)>
<LVAR 0x010 4(r)>
<LVAR 0x00e 2(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 1(r)>
<POP 202ae-20358 Body>
<POP 202ae-202c4 Prologue> Σ0 ↓
<POP 202c4-202cc RegCacheLoad> Σ0 ↓
<POP 202cc-202f0 Naked> Σ0 ↓ →0x20330
<POP 202cc-202ce StackAdj> Δ-12 {[-12-]}
<MI 202ce MOVE.L (A6+0xc),-(A7)> Δ-4 {[-12-]|[4, '(A6+0xc)']}
<MI 202d2 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Const 0x202d6 0xfffffff6.4> Δ-4 {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[##4294967286]}
<Call 0x202da 0x10344> {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[##4294967286]}
BitShift(a : Quad ; howmuch : integer) : Quad
<POP 202e0-202e2 StackAdj> Δ+12 {[-12-]}
<Call 0x202e2 0x10350> {[-12-]}
Quad2Long(a : Quad) : Long
<POP 202e8-202ea StackAdj> Δ+8 {[-4-]}
<MI 202ea MOVE.L (A7)+,D7> Δ+4 {}
<MI 202ec CMP.L 0x20908,D7> {}
<MI 202ee BEQ 0x20330> {}
<POP 202f0-20326 Naked> Σ0 ↓ →0x2032a
<MI 202f0 MOVE.L (A6+0x10),-(A7)> Δ-4 {[4, '(A6+0x10)']}
<POP 0x202f4 LimitCheck 0x0 ≤ D7 ≤ 0x4000> {[4, '(A6+0x10)']}
<MI 202fe MOVE.W D7,-(A7)> Δ-2 {[4, '(A6+0x10)']|[2, 'D7']}
<MI 20300 CLR.W -(A7)> Δ-2 {[4, '(A6+0x10)']|[2, 'D7']|[#0]}
<Const 0x20302 0x200.2> Δ-2 {[4, '(A6+0x10)']|[2, 'D7']|[#0]|[#512]}
<Const 0x20306 0x1.2> Δ-2 {[4, '(A6+0x10)']|[2, 'D7']|[#0]|[#512]|[#1]}
<MI 2030a LEA.L 0x2090c,A0> {[4, '(A6+0x10)']|[2, 'D7']|[#0]|[#512]|[#1]}
<MI 20310 MOVE.L A0,-(A7)> Δ-4 {[4, '(A6+0x10)']|[2, 'D7']|[#0]|[#512]|[#1]|[4, 'A0']}
<Pointer.fp 0x20312 <LVAR -0x004 @ 1(r)>> Δ-4 {[4, '(A6+0x10)']|[2, 'D7']|[#0]|[#512]|[#1]|[4, 'A0']|[@@-4]}
<Call 0x20316 0x10384> {[4, '(A6+0x10)']|[2, 'D7']|[#0]|[#512]|[#1]|[4, 'A0']|[@@-4]}
ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
<POP 2031c-20320 StackAdj> Δ+20 {}
<MI 20320 TST.B (A6-0x4)> {}
<MI 20324 BNE 0x2032a> {}
<POP 20326-2032a Naked> Σ0 →0x20330
<MI 20326 MOVE.L D7,0x20908> {}
<MI 20328 BRA 0x20330> {}
<POP 2032a-20330 Naked> Σ0 ↓ ←0x202f0
<MI 2032a MOVE.L #0xffffffff,0x20908> {}
<POP 20330-20350 Naked> Σ0 ↓ ←0x202cc ←0x20326
<MI 20330 MOVE.W (A6+0xe),D6> {}
<MI 20334 ANDI.W #0x03ff,D6> {}
<MI 20338 LSR.W #0x1,D6> {}
<POP 0x2033a LimitCheck 0x0 ≤ D6 ≤ 0x1ff> {}
<MI 2033e CLR.L D0> {}
<MI 20340 MOVE.W D6,D0> {}
<MI 20342 ASL.L #0x1,D0> {}
<MI 20344 LEA.L 0x20900,A0> {}
<MI 2034a MOVE.W (A0+D0.L+#0xc),(A6+0x14)> {}
<POP 20350-20358 Epilogue> Σ0
@ 20358
<LVAR 0x00a 4(w)>
<LVAR 0x008 2(r)>
<LVAR -0x00a @ 4(r)>
<POP 20358-203f8 Body> Δ+4
<POP 20358-2036e Prologue> Σ0 ↓
<POP 2036e-20374 RegCacheLoad> Σ0 ↓
<POP 20374-20386 Naked> Σ0 ↓
<Pointer.fp 0x20374 <LVAR -0x00a @ 4(r)>> Δ-4 {[@@-10]}
<Call 0x20376 0x102b8> {[@@-10]}
NewString(VAR a : String)
<POP 2037c-2037e StackAdj> Δ+4 {}
<MI 2037e MOVE.L #0x1000,D7> {}
<MI 20384 MOVEQ.L #0x00,D6> {}
<POP 20386-203a0 Naked> Σ0 ↓ →0x203b6 ←0x203cc
<MI 20386 CLR.L D4> {}
<MI 20388 MOVE.W (A6+0x8),D4> {}
<MI 2038c MOVE.L D7,D3> {}
<Call 0x2038e 0x10298> {}
?divu_d3_d4
<MI 20394 ANDI.L #0x0000000f,D4> {}
<MI 2039a MOVE.L D4,D5> {}
<MI 2039c CMP.L #0x0a,D5> {}
<MI 2039e BGE 0x203b6> {}
<POP 203a0-203b6 Naked> Σ0 Δ-4 →0x203cc
<MI 203a0 MOVE.L (A6-0xa),-(A7)> Δ-4 {[4, '(A6-0xa)']}
<MI 203a2 MOVE.L D5,D0> {[4, '(A6-0xa)']}
<MI 203a4 ADDI.L #0x00000030,D0> {[4, '(A6-0xa)']}
<POP 0x203aa LimitCheck 0x0 ≤ D0 ≤ 0xff> {[4, '(A6-0xa)']}
<MI 203b4 BRA 0x203cc> {[4, '(A6-0xa)']}
<POP 203b6-203cc Naked> Σ0 Δ-4 ↓ ←0x20386
<MI 203b6 MOVE.L (A6-0xa),-(A7)> Δ-4 {[4, '(A6-0xa)']}
<MI 203b8 MOVE.L D5,D0> {[4, '(A6-0xa)']}
<MI 203ba SUB.L #0x0a,D0> {[4, '(A6-0xa)']}
<MI 203bc ADDI.L #0x00000041,D0> {[4, '(A6-0xa)']}
<POP 0x203c2 LimitCheck 0x0 ≤ D0 ≤ 0xff> {[4, '(A6-0xa)']}
<POP 203cc-203ec Naked> Σ-4 Δ+4 ↓ →0x20386 ←0x203a0
<MI 203cc MOVE.B D0,-(A7)> Δ-2 {[-4-]|[2, 'D0']}
<Call 0x203ce 0x102c0> {[-4-]|[2, 'D0']}
AppendChar(MOD b : String; a : char)
<POP 203d4-203d6 StackAdj> Δ+6 {}
<MI 203d6 MOVE.L D7,D4> {}
<MI 203d8 MOVEQ.L #0x10,D3> {}
<Call 0x203da 0x10294> {}
?divs_d3_d4
<MI 203e0 MOVE.L D4,D7> {}
<MI 203e2 ADDQ.L #0x1,D6> {}
<MI 203e4 CMPI.L #0x00000003,D6> {}
<MI 203ea BLE 0x20386> {}
<POP 203ec-203f0 Naked> Σ0 ↓
<MI 203ec MOVE.L (A6-0xa),(A6+0xa)> {}
<POP 203f0-203f8 Epilogue> Σ0
@ 203f8
<LVAR 0x008 4(r)>
<LVAR -0x012 @ 1(r)>
<LVAR -0x016 @ 4(rw)>
<LVAR -0x018 2(w)>
<LVAR -0x01a 4(rw)>
<LVAR -0x01e @ 4(rw)>
<POP 203f8-20612 Body> Δ+12
<POP 203f8-2040e Prologue> Σ0 ↓
<POP 2040e-20422 RegCacheLoad> Σ0 ↓
<POP 20422-2042c Naked> Σ0 ↓
<MI 20422 MOVE.L #0xffffffff,0x20908> {}
<POP 2042c-2044a Naked> Σ0 ↓ →0x20452 ←0x20602
<Pointer.fp 0x2042c <LVAR -0x01e @ 4(rw)>> Δ-4 {[@@-30]}
<Pointer.fp 0x2042e <LVAR -0x016 @ 4(rw)>> Δ-4 {[@@-30]|[@@-22]}
<Pointer.fp 0x20430 <LVAR -0x012 @ 1(r)>> Δ-4 {[@@-30]|[@@-22]|[@@-18]}
<Call 0x20434 0x20136> {[@@-30]|[@@-22]|[@@-18]}
<POP 20438-2043a StackAdj> Δ+12 {}
<MI 2043a ANDI.W #0xfff0,(A6-0x18)> {}
<MI 20440 MOVE.L (A6-0x16),D0> {}
<MI 20442 CMPI.L #0x00000008,D0> {}
<MI 20448 BGE 0x20452> {}
<POP 2044a-20452 Naked> Σ0 →0x2045c
<MI 2044a MOVE.L #0x8,(A6-0x16)> {}
<MI 20450 BRA 0x2045c> {}
<POP 20452-2045c Naked> Σ0 ↓ ←0x2042c
<MI 20452 ADDQ.L #0x7,D0> {}
<MI 20454 ANDI.L #0x0000fff8,D0> {}
<MI 2045a MOVE.L D0,(A6-0x16)> {}
<POP 2045c-20464 Naked> Σ0 ↓ →0x20602 ←0x2044a
<MI 2045c TST.B (A6-0x12)> {}
<MI 20460 BNE 0x20602> {}
<POP 20464-20476 Naked> Σ0 Δ-4 ↓
<MI 20464 MOVE.L (A6-0x16),-(A7)> Δ-4 {[4, '(A6-0x16)']}
<MI 20466 SUBQ.L #0x1,(A7)> {[-4-]}
<MI 20468 MOVE.L (A7),D4> {[-4-]}
<MI 2046a MOVEQ.L #0x08,D3> {[-4-]}
<Call 0x2046c 0x10294> {[-4-]}
?divs_d3_d4
<MI 20472 MOVE.L D4,(A7)> {[4, 'D4']}
<MI 20474 MOVEQ.L #0x00,D0> {[4, 'D4']}
<POP 20476-2047a Naked> Σ-4 ↓ →0x20480 ←0x205fa
<MI 20476 CMP.L (A7),D0> {[-4-]}
<MI 20478 BLE 0x20480> {[-4-]}
<POP 2047a-20480 Naked> Σ-4 Δ-4 →0x20600
<POP 2047a-2047c StackAdj> Δ-4 {[-8-]}
<MI 2047c BRA 0x20600> {[-8-]}
<POP 20480-204ae Naked> Σ-4 Δ-4 ↓ ←0x20476
<MI 20480 MOVE.L D0,-(A7)> Δ-4 {[-4-]|[4, 'D0']}
<POP 20482-20484 StackAdj> Δ-8 {[-4-]|[4, 'D0']|[-8-]}
<MI 20484 MOVE.L (A6-0x1a),-(A7)> Δ-4 {[-4-]|[4, 'D0']|[-8-]|[4, '(A6-0x1a)']}
<MI 20486 MOVE.L (A6-0x1e),-(A7)> Δ-4 {[-4-]|[4, 'D0']|[-8-]|[4, '(A6-0x1a)']|[4, '(A6-0x1e)']}
<Const 0x20488 0x10.4> Δ-4 {[-4-]|[4, 'D0']|[-8-]|[4, '(A6-0x1a)']|[4, '(A6-0x1e)']|[##16]}
<Call 0x2048c 0x1035c> {[-4-]|[4, 'D0']|[-8-]|[4, '(A6-0x1a)']|[4, '(A6-0x1e)']|[##16]}
Quad2String(a : Quad; radix : Long ) : String
<POP 20492-20494 StackAdj> Δ+12 {[-4-]|[4, 'D0']|[-8-]}
<Const 0x20494 0x5.4> Δ-4 {[-4-]|[4, 'D0']|[-8-]|[##5]}
<Call 0x20498 0x102f4> {[-4-]|[4, 'D0']|[-8-]|[##5]}
RightPad(a : String; b : Long) : String
<POP 2049e-204a0 StackAdj> Δ+8 {[-4-]|[4, 'D0']|[-4-]}
<MI 204a0 MOVEA.L (A7)+,A4> Δ+4 {[-4-]|[4, 'D0']}
<MI 204a2 MOVE.L A4,-(A7)> Δ-4 {[-4-]|[4, 'D0']|[4, 'A4']}
<Const 0x204a4 0x3d.2> Δ-2 {[-4-]|[4, 'D0']|[4, 'A4']|[#61]}
<Call 0x204a8 0x102c0> {[-4-]|[4, 'D0']|[4, 'A4']|[#61]}
AppendChar(MOD b : String; a : char)
<POP 204aa-204ac StackAdj> Δ+6 {[-4-]|[4, 'D0']}
<MI 204ac MOVEQ.L #0x00,D7> {[-4-]|[4, 'D0']}
<POP 204ae-204fc Naked> Σ-8 ↓ →0x20506 ←0x20506
<POP 204ae-204b0 StackAdj> Δ-4 {[-12-]}
<MI 204b0 MOVE.L A4,-(A7)> Δ-4 {[-12-]|[4, 'A4']}
<POP 204b2-204b4 StackAdj> Δ-6 {[-12-]|[4, 'A4']|[-6-]}
<MI 204b4 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, 'A4']|[-6-]|[4, '(A6+0x8)']}
<MI 204b8 MOVE.L (A6-0x1a),-(A7)> Δ-4 {[-12-]|[4, 'A4']|[-6-]|[4, '(A6+0x8)']|[4, '(A6-0x1a)']}
<MI 204ba MOVE.L (A6-0x1e),-(A7)> Δ-4 {[-12-]|[4, 'A4']|[-6-]|[4, '(A6+0x8)']|[4, '(A6-0x1a)']|[4, '(A6-0x1e)']}
<Call 0x204bc 0x202ae> {[-12-]|[4, 'A4']|[-6-]|[4, '(A6+0x8)']|[4, '(A6-0x1a)']|[4, '(A6-0x1e)']}
<POP 204c0-204c2 StackAdj> Δ+12 {[-12-]|[4, 'A4']|[-6-]}
<Call 0x204c2 0x20358> {[-12-]|[4, 'A4']|[-6-]}
<POP 204c6-204c8 StackAdj> Δ+2 {[-12-]|[4, 'A4']|[-4-]}
<Call 0x204c8 0x102d0> {[-12-]|[4, 'A4']|[-4-]}
StringCat2(a, b : String) : String
<POP 204ce-204d0 StackAdj> Δ+8 {[-12-]}
<MI 204d0 MOVEA.L (A7)+,A4> Δ+4 {[-8-]}
<POP 204d2-204d4 StackAdj> Δ-8 {[-16-]}
<MI 204d4 MOVE.L (A6-0x1a),-(A7)> Δ-4 {[-16-]|[4, '(A6-0x1a)']}
<MI 204d6 MOVE.L (A6-0x1e),-(A7)> Δ-4 {[-16-]|[4, '(A6-0x1a)']|[4, '(A6-0x1e)']}
<POP 204d8-204da StackAdj> Δ-8 {[-16-]|[4, '(A6-0x1a)']|[4, '(A6-0x1e)']|[-8-]}
<Const 0x204da 0x2.4> Δ-4 {[-16-]|[4, '(A6-0x1a)']|[4, '(A6-0x1e)']|[-8-]|[##2]}
<Call 0x204de 0x10354> {[-16-]|[4, '(A6-0x1a)']|[4, '(A6-0x1e)']|[-8-]|[##2]}
Long2Quad(a : Long) : Quad
<POP 204e4-204e6 StackAdj> Δ+4 {[-16-]|[4, '(A6-0x1a)']|[4, '(A6-0x1e)']|[-8-]}
<Call 0x204e6 0x10314> {[-16-]|[4, '(A6-0x1a)']|[4, '(A6-0x1e)']|[-8-]}
Add(a, b : Quad) : Quad
<POP 204ec-204f0 StackAdj> Δ+16 {[-16-]}
<MI 204f0 MOVE.L (A7)+,(A6-0x1e)> Δ+4 {[-12-]}
<MI 204f2 MOVE.L (A7)+,(A6-0x1a)> Δ+4 {[-8-]}
<MI 204f4 CMPI.L #0x00000007,D7> {[-8-]}
<MI 204fa BEQ 0x20506> {[-8-]}
<POP 204fc-20506 Naked> Σ-8 ↓
<MI 204fc MOVE.L A4,-(A7)> Δ-4 {[-8-]|[4, 'A4']}
<Const 0x204fe 0x20.2> Δ-2 {[-8-]|[4, 'A4']|[#32]}
<Call 0x20502 0x102c0> {[-8-]|[4, 'A4']|[#32]}
AppendChar(MOD b : String; a : char)
<POP 20504-20506 StackAdj> Δ+6 {[-8-]}
<POP 20506-20510 Naked> Σ-8 ↓ →0x204ae ←0x204ae
<MI 20506 ADDQ.L #0x1,D7> {[-8-]}
<MI 20508 CMPI.L #0x00000007,D7> {[-8-]}
<MI 2050e BLE 0x204ae> {[-8-]}
<POP 20510-2053c Naked> Σ-8 ↓
<MI 20510 MOVE.L A4,-(A7)> Δ-4 {[-8-]|[4, 'A4']}
<Const 0x20512 0x3d.2> Δ-2 {[-8-]|[4, 'A4']|[#61]}
<Call 0x20516 0x102c0> {[-8-]|[4, 'A4']|[#61]}
AppendChar(MOD b : String; a : char)
<POP 20518-2051a StackAdj> Δ-2 {[-8-]|[4, 'A4']|[#61]|[-2-]}
<MI 2051a MOVE.L (A6-0x1a),-(A7)> Δ-4 {[-8-]|[4, 'A4']|[#61]|[-2-]|[4, '(A6-0x1a)']}
<MI 2051c MOVE.L (A6-0x1e),-(A7)> Δ-4 {[-8-]|[4, 'A4']|[#61]|[-2-]|[4, '(A6-0x1a)']|[4, '(A6-0x1e)']}
<POP 2051e-20520 StackAdj> Δ-8 {[-8-]|[4, 'A4']|[#61]|[-2-]|[4, '(A6-0x1a)']|[4, '(A6-0x1e)']|[-8-]}
<Const 0x20520 0x10.4> Δ-4 {[-8-]|[4, 'A4']|[#61]|[-2-]|[4, '(A6-0x1a)']|[4, '(A6-0x1e)']|[-8-]|[##16]}
<Call 0x20524 0x10354> {[-8-]|[4, 'A4']|[#61]|[-2-]|[4, '(A6-0x1a)']|[4, '(A6-0x1e)']|[-8-]|[##16]}
Long2Quad(a : Long) : Quad
<POP 2052a-2052c StackAdj> Δ+4 {[-8-]|[4, 'A4']|[#61]|[-2-]|[4, '(A6-0x1a)']|[4, '(A6-0x1e)']|[-8-]}
<Call 0x2052c 0x10318> {[-8-]|[4, 'A4']|[#61]|[-2-]|[4, '(A6-0x1a)']|[4, '(A6-0x1e)']|[-8-]}
Subtract(a, b : Quad) : Quad
<POP 20532-20536 StackAdj> Δ+16 {[-8-]|[4, 'A4']|[#61]|[-2-]}
<MI 20536 MOVE.L (A7)+,(A6-0x1e)> Δ+4 {[-8-]|[4, 'A4']}
<MI 20538 MOVE.L (A7)+,(A6-0x1a)> Δ+4 {[-8-]}
<MI 2053a MOVEQ.L #0x00,D7> {[-8-]}
<POP 2053c-20564 Naked> Σ-8 ↓ →0x2057c ←0x205b8
<POP 2053c-2053e StackAdj> Δ-2 {[-10-]}
<MI 2053e MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']}
<MI 20542 MOVE.L (A6-0x1a),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']|[4, '(A6-0x1a)']}
<MI 20544 MOVE.L (A6-0x1e),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']|[4, '(A6-0x1a)']|[4, '(A6-0x1e)']}
<Call 0x20546 0x202ae> {[-10-]|[4, '(A6+0x8)']|[4, '(A6-0x1a)']|[4, '(A6-0x1e)']}
<POP 2054a-2054c StackAdj> Δ+12 {[-10-]}
<MI 2054c MOVE.W (A7)+,D5> Δ+2 {[-8-]}
<MI 2054e MOVE.W D5,D0> {[-8-]}
<MI 20550 LSR.W #0x8,D0> {[-8-]}
<MI 20552 ANDI.W #0x00ff,D0> {[-8-]}
<MI 20556 CLR.L D1> {[-8-]}
<MI 20558 MOVE.W D0,D1> {[-8-]}
<MI 2055a MOVE.L D1,D6> {[-8-]}
<MI 2055c CMPI.L #0x0000007f,D6> {[-8-]}
<MI 20562 BGE 0x2057c> {[-8-]}
<POP 20564-2056c Naked> Σ-8 ↓ →0x2057c
<MI 20564 CMPI.L #0x0000001f,D6> {[-8-]}
<MI 2056a BLE 0x2057c> {[-8-]}
<POP 2056c-2057c Naked> Σ-8 Δ-6 →0x20582
<MI 2056c MOVE.L A4,-(A7)> Δ-4 {[-8-]|[4, 'A4']}
<POP 0x2056e LimitCheck 0x0 ≤ D6 ≤ 0xff> {[-8-]|[4, 'A4']}
<MI 20578 MOVE.B D6,-(A7)> Δ-2 {[-8-]|[4, 'A4']|[2, 'D6']}
<MI 2057a BRA 0x20582> {[-8-]|[4, 'A4']|[2, 'D6']}
<POP 2057c-20582 Naked> Σ-8 Δ-6 ↓ ←0x2053c ←0x20564
<MI 2057c MOVE.L A4,-(A7)> Δ-4 {[-8-]|[4, 'A4']}
<Const 0x2057e 0x20.2> Δ-2 {[-8-]|[4, 'A4']|[#32]}
<POP 20582-2059a Naked> Σ-14 Δ+6 ↓ →0x205b2 ←0x2056c
<Call 0x20582 0x102c0> {[-14-]}
AppendChar(MOD b : String; a : char)
<POP 20584-20586 StackAdj> Δ+6 {[-8-]}
<MI 20586 MOVE.W D5,D0> {[-8-]}
<MI 20588 ANDI.W #0x00ff,D0> {[-8-]}
<MI 2058c CLR.L D1> {[-8-]}
<MI 2058e MOVE.W D0,D1> {[-8-]}
<MI 20590 MOVE.L D1,D6> {[-8-]}
<MI 20592 CMPI.L #0x0000007f,D6> {[-8-]}
<MI 20598 BGE 0x205b2> {[-8-]}
<POP 2059a-205a2 Naked> Σ-8 ↓ →0x205b2
<MI 2059a CMPI.L #0x0000001f,D6> {[-8-]}
<MI 205a0 BLE 0x205b2> {[-8-]}
<POP 205a2-205b2 Naked> Σ-8 Δ-6 →0x205b8
<MI 205a2 MOVE.L A4,-(A7)> Δ-4 {[-8-]|[4, 'A4']}
<POP 0x205a4 LimitCheck 0x0 ≤ D6 ≤ 0xff> {[-8-]|[4, 'A4']}
<MI 205ae MOVE.B D6,-(A7)> Δ-2 {[-8-]|[4, 'A4']|[2, 'D6']}
<MI 205b0 BRA 0x205b8> {[-8-]|[4, 'A4']|[2, 'D6']}
<POP 205b2-205b8 Naked> Σ-8 Δ-6 ↓ ←0x20582 ←0x2059a
<MI 205b2 MOVE.L A4,-(A7)> Δ-4 {[-8-]|[4, 'A4']}
<Const 0x205b4 0x20.2> Δ-2 {[-8-]|[4, 'A4']|[#32]}
<POP 205b8-205ea Naked> Σ-14 Δ+6 ↓ →0x2053c ←0x205a2
<Call 0x205b8 0x102c0> {[-14-]}
AppendChar(MOD b : String; a : char)
<POP 205ba-205bc StackAdj> Δ+6 {[-8-]}
<POP 205bc-205be StackAdj> Δ-8 {[-16-]}
<MI 205be MOVE.L (A6-0x1a),-(A7)> Δ-4 {[-16-]|[4, '(A6-0x1a)']}
<MI 205c0 MOVE.L (A6-0x1e),-(A7)> Δ-4 {[-16-]|[4, '(A6-0x1a)']|[4, '(A6-0x1e)']}
<POP 205c2-205c4 StackAdj> Δ-8 {[-16-]|[4, '(A6-0x1a)']|[4, '(A6-0x1e)']|[-8-]}
<Const 0x205c4 0x2.4> Δ-4 {[-16-]|[4, '(A6-0x1a)']|[4, '(A6-0x1e)']|[-8-]|[##2]}
<Call 0x205c8 0x10354> {[-16-]|[4, '(A6-0x1a)']|[4, '(A6-0x1e)']|[-8-]|[##2]}
Long2Quad(a : Long) : Quad
<POP 205ce-205d0 StackAdj> Δ+4 {[-16-]|[4, '(A6-0x1a)']|[4, '(A6-0x1e)']|[-8-]}
<Call 0x205d0 0x10314> {[-16-]|[4, '(A6-0x1a)']|[4, '(A6-0x1e)']|[-8-]}
Add(a, b : Quad) : Quad
<POP 205d6-205da StackAdj> Δ+16 {[-16-]}
<MI 205da MOVE.L (A7)+,(A6-0x1e)> Δ+4 {[-12-]}
<MI 205dc MOVE.L (A7)+,(A6-0x1a)> Δ+4 {[-8-]}
<MI 205de ADDQ.L #0x1,D7> {[-8-]}
<MI 205e0 CMPI.L #0x00000007,D7> {[-8-]}
<MI 205e6 BLE 0x2053c> {[-8-]}
<POP 205ea-205fa Naked> Σ-8 ↓ →0x20600
<MI 205ea MOVE.L A4,-(A7)> Δ-4 {[-8-]|[4, 'A4']}
<Call 0x205ec 0x103e0> {[-8-]|[4, 'A4']}
WriteConsoleStringCrLf(str : String)
<POP 205f2-205f4 StackAdj> Δ+4 {[-8-]}
<MI 205f4 MOVE.L (A7),D0> {[-8-]}
<MI 205f6 ADDQ.L #0x1,D0> {[-8-]}
<MI 205f8 BVS 0x20600> {[-8-]}
<POP 205fa-20600 Naked> Σ-8 Δ+4 →0x20476
<POP 205fa-205fc StackAdj> Δ+4 {[-4-]}
<MI 205fc BRA 0x20476> {[-4-]}
<POP 20600-20602 Naked> Σ-8 Δ+8 ↓ ←0x2047a ←0x205ea
<POP 20600-20602 StackAdj> Δ+8 {}
<POP 20602-2060a Naked> Σ0 ↓ →0x2042c ←0x2045c
<MI 20602 TST.B (A6-0x12)> {}
<MI 20606 BEQ 0x2042c> {}
<POP 2060a-20612 Epilogue> Σ0
@ 20612
<LVAR 0x008 4(r)>
<POP 20612-2067e Body>
<POP 20612-20628 Prologue> Σ0 ↓
<POP 20628-2063c Naked> Σ0 ↓ →0x20676
<MI 20628 MOVEA.L (A6+0x8),A0> {}
<POP 2062c-2062e StackAdj> Δ-4 {[-4-]}
<Call 0x2062e 0x103c4> {[-4-]}
GetArgv() : String
<MI 20634 MOVE.L (A7)+,(A0)> Δ+4 {}
<MI 20636 MOVEA.L (A0),A1> {}
<MI 20638 TST.W (A1)> {}
<MI 2063a BNE 0x20676> {}
<POP 2063c-20676 Naked> Σ0 ↓
<MI 2063c PEA.L (A0)> Δ-4 {[4, '^(A0)']}
<Call 0x2063e 0x102bc> {[4, '^(A0)']}
FreeString(VAR a : String)
<POP 20644-20645 StackAdj> Δ+4 ↓ {}
<Blob 0x20645 [8] @> Δ-8 {[«8""»]}
<POP 20654-20656 StackAdj> Δ-8 {[«8""»]|[-8-]}
<Lit 0x20656 7> {[«8""»]|[-4-]|[$$File :_]}
<Call 0x2066a 0x103e4> {[«8""»]|[-4-]|[$$File :_]}
AskConsoleString(prompt : String) : String
<POP 20670-20672 StackAdj> Δ+4 {[«8""»]|[-4-]}
<MI 20672 MOVE.L (A7)+,(A0)> Δ+4 {[«8""»]}
<POP 20674-20676 StackAdj> Δ+8 {}
<POP 20676-2067e Epilogue> Σ0 ←0x20628
@ 2067e
START
<POP 2067e--0001 Body>
<POP 2067e-20688 Prologue> Σ0
<POP 20688-2069e RegCacheLoad> Σ0 ↓
<POP 2069e-206f4 Naked> Σ0 ↓
<Call 0x2069e 0x10398> {}
FSCALL_10398
<Const 0x206a4 0x20d0c.4> Δ-4 {[##134412]}
<Call 0x206a6 0x20612> {[##134412]}
<POP 206aa-206ab StackAdj> Δ+4 {}
<Blob 0x206ab [4] 0x20d0c> Δ-4 {[«4»]}
<MI 206ac CLR.B -(A7)> Δ-2 {[«4»]|[#0]}
<Const 0x206ae 0x2.2> Δ-2 {[«4»]|[#0]|[#2]}
<Const 0x206b0 0x0.4> Δ-4 {[«4»]|[#0]|[#2]|[##0]}
<Const 0x206b4 0x20d10.4> Δ-4 {[«4»]|[#0]|[#2]|[##0]|[##134416]}
<Const 0x206b6 0x20d12.4> Δ-4 {[«4»]|[#0]|[#2]|[##0]|[##134416]|[##134418]}
<Call 0x206b8 0x10380> {[«4»]|[#0]|[#2]|[##0]|[##134416]|[##134418]}
OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
<POP 206be-206c0 StackAdj> Δ+16 {[«4»]}
<POP 206c0-206c1 StackAdj> Δ+4 {}
<Blob 0x206c1 [4] 0x20d12> Δ-4 {[«4»]}
<Call 0x206c2 0x203f8> {[«4»]}
<POP 206c6-206c8 StackAdj> Δ+2 {[-2-]}
<MI 206c8 CLR.B (A7)> {[-2-]}
<Const 0x206ca 0x2.2> Δ-2 {[-2-]|[#2]}
<Const 0x206cc 0x1.4> Δ-4 {[-2-]|[#2]|[##1]}
<Const 0x206d0 0x20d10.4> Δ-4 {[-2-]|[#2]|[##1]|[##134416]}
<Const 0x206d2 0x20d12.4> Δ-4 {[-2-]|[#2]|[##1]|[##134416]|[##134418]}
<Call 0x206d4 0x1038c> {[-2-]|[#2]|[##1]|[##134416]|[##134418]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 206da-206dc StackAdj> Δ+16 {}
<Const 0x206dc 0x20d0c.4> Δ-4 {[##134412]}
<Call 0x206de 0x102bc> {[##134412]}
FreeString(VAR a : String)
<POP 206e4-206e6 StackAdj> Δ+2 {[-2-]}
<MI 206e6 CLR.B (A7)> {[-2-]}
<Const 0x206e8 0x1.4> Δ-4 {[-2-]|[##1]}
<Call 0x206ec 0x103b8> {[-2-]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 206f2-206f4 StackAdj> Δ+6 {}
<POP 206f4-206fa Naked> Σ0
<Call 0x206f4 0x10284> {}
?exit
@ 20708
PROG_FAIL
<LVAR 0x008 1(r)>
<POP 20708-20770 Body>
<POP 20708-2071e Prologue> Σ0 ↓
<POP 2071e-20768 Naked> Σ0 ↓
<Blob 0x2071e [14] @> Δ-14 {[«14""»]}
<Const 0x2072a 0x3.2> Δ-2 {[«14""»]|[#3]}
<POP 2072e-20730 StackAdj> Δ-8 {[«14""»]|[#3]|[-8-]}
<Lit 0x20730 14> {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
<POP 20742-20744 StackAdj> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 20744 MOVE.B (A6+0x8),D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 20748 EXTB.W D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 2074a EXTW.L D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 2074c MOVE.L D0,-(A7)> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
<Call 0x2074e 0x102e4> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 20754-20756 StackAdj> Δ+4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<Call 0x20756 0x102d0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 2075c-2075e StackAdj> Δ+8 {[«14""»]|[#3]|[-4-]}
<Call 0x2075e 0x103b8> {[«14""»]|[#3]|[-4-]}
PopProgram(status : Byte; msg : String)
<POP 20764-20768 StackAdj> Δ+20 {}
<POP 20768-20770 Epilogue> Σ0
@ 207c4
EXP_FAIL
<LVAR 0x00e 1(r)>
<LVAR 0x00a 4(r)>
<LVAR 0x008 1(r)>
<POP 207c4-20900 Body>
<POP 207c4-207da Prologue> Σ0 ↓
<POP 207da-207f0 RegCacheLoad> Σ0 ↓
<POP 207f0-20850 Naked> Σ0 ↓ →0x20898
<Call 0x207f0 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x207f6 [18] @> Δ-18 {[«18""»]}
<POP 20802-20804 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x20804 18> {[«18""»]|[$$Experiment error :]}
<Call 0x20810 0x103e0> {[«18""»]|[$$Experiment error :]}
WriteConsoleStringCrLf(str : String)
<POP 20812-20813 StackAdj> Δ+22 ↓ {}
<Blob 0x20813 [14] @> Δ-14 {[«14""»]}
<POP 20822-20824 StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x20824 13> {[«14""»]|[-4-]|[$$Board :_]}
<POP 2082e-20830 StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<MI 20830 MOVE.B (A6+0xe),(A7)> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<Call 0x20834 0x1049c> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
BoardName(address : B) : String
<POP 2083a-2083c StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
<Call 0x2083c 0x102d0> {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 20842-20844 StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x20844 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 20846-20848 StackAdj> Δ+18 {}
<MI 20848 MOVEA.L (A6+0xa),A0> {}
<MI 2084c CMPA.W #0x01,A0> {}
<MI 2084e BEQ 0x20898> {}
<POP 20850-20898 Naked> Σ0 ↓
<Blob 0x20850 [14] @> Δ-14 {[«14""»]}
<Blob 0x20860 [30] (A0+0xfc)> Δ-30 {[«14""»]|[«30»]}
<POP 20870-20872 StackAdj> Δ-8 {[«14""»]|[«30»]|[-8-]}
<Lit 0x20872 13> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
<POP 2087c-2087e StackAdj> Δ-4 {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
<Lit 0x2087e> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
<Pointer.sp 0x2087e 12> Δ-4
<Const 0x20882 0x1.2> Δ-2
<Const 0x20884 0x1e.2> Δ-2
<Call 0x20886 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 20888-2088a StackAdj> Δ+8
<Call 0x2088a 0x102d0> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
StringCat2(a, b : String) : String
<POP 20890-20892 StackAdj> Δ+8 {[«14""»]|[«30»]|[-4-]}
<Call 0x20892 0x103e0> {[«14""»]|[«30»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 20894-20898 StackAdj> Δ+48 {}
<POP 20898-208f8 Naked> Σ0 ↓ ←0x207f0
<Blob 0x20898 [14] @> Δ-14 {[«14""»]}
<POP 208a8-208aa StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x208aa 13> {[«14""»]|[-4-]|[$$Status :_]}
<POP 208b4-208b6 StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<MI 208b6 MOVE.B (A6+0x8),(A7)> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<Call 0x208ba 0x104a2> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
ExpStatus2Text(status.B, &String)
<POP 208c0-208c2 StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
<Call 0x208c2 0x102d0> {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 208c8-208ca StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x208ca 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 208cc-208cd StackAdj> Δ+18 ↓ {}
<Blob 0x208cd [24] @> Δ-24 {[«24""»]}
<Const 0x208dc 0x2.2> Δ-2 {[«24""»]|[#2]}
<POP 208e0-208e2 StackAdj> Δ-4 {[«24""»]|[#2]|[-4-]}
<Lit 0x208e2 23> {[«24""»]|[#2]|[$$Fatal experiment error.]}
<Call 0x208f0 0x103b8> {[«24""»]|[#2]|[$$Fatal experiment error.]}
PopProgram(status : Byte; msg : String)
<POP 208f6-208f8 StackAdj> Δ+30 {}
<POP 208f8-20900 Epilogue> Σ0
00020000 ; -------------------------------------------------------------------------------------- 00020000 ; R1000.Disassembly modules: 00020000 ; import all 00020000 ; import kind.program 00020000 ; no ident.9c497dae74a108e9 00020000 ; -------------------------------------------------------------------------------------- 00020000 stack.top: 00020000 00 04 00 00 | | .CODE 0x40000 ; STACK.END 00020004 00 02 06 7e | ~ | .CODE START 00020008 00 01 02 88 | | .CODE FSCALL_10288 0002000c heap.top: 0002000c 00 02 0d 28 | ( | .PTR 0x20d28 00020010 code.end: 00020010 00 02 09 00 | | .PTR 0x20900 00020014 00 00 00 00 | | .CONST 0x00000000 00020018 programfailurehandler: 00020018 00 02 07 08 | | .CODE PROG_FAIL 0002001c experimentfailurehandler: 0002001c 00 02 07 c4 | | .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 42 59 |BY | .TXT 'BY' 0002010c 45 20 |E | .XXX[0x2] 0002010e 3e 20 |> | .TXT '> ' 00020110 3f 3f |?? | .TXT '??' 00020112 46 69 6c 65 20 3a 5f 20 |File :_ | .TXT 'File :_ ' 0002011a 00 00 00 00 00 00 | | .XXX[0x6] 00020120 ff ff 70 00 0e 00 01 c0 | p | .XXX[0x10] 00020128 00 38 00 07 10 00 02 00 | 8 | 00020130 00 40 00 08 00 01 | @ | .XXX[0x6] 00020136 ; -------------------------------------------------------------------------------------- 00020136 ; OMSI PASCAL Function 00020136 ; <LVAR 0x010 4(r)> 00020136 ; <LVAR 0x00c 4(r)> 00020136 ; <LVAR 0x008 4(r)> 00020136 ; <LVAR -0x004 @ 1(r)> 00020136 ; <LVAR -0x008 @ 4(rw)> 00020136 ; <LVAR -0x00c @ 4(r)> 00020136 ; <LVAR -0x010 @ 4(rw)> 00020136 ; -------------------------------------------------------------------------------------- 00020136 4e 56 ff b2 |NV | LINK.W A6,#0xffb2 0002013a bf d5 | | CMPA.L (A5),A7 0002013c 62 06 |b | BHI 0x20144 0002013e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020142 4e 76 |Nv | TRAPV 00020144 de fc 00 3e | > | ADDA.W #0x3e,A7 00020148 48 e7 f0 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D3+D2+D1+D0,-(A7) 0002014c 45 ee ff f4 |E | LEA.L (A6-0xc),A2 00020150 47 ee ff fc |G | LEA.L (A6-0x4),A3 00020154 49 ee ff f0 |I | LEA.L (A6-0x10),A4 00020158 72 01 |r | MOVEQ.L #0x01,D1 0002015a 74 0c |t | MOVEQ.L #0x0c,D2 0002015c 76 02 |v | MOVEQ.L #0x02,D3 0002015e 59 4f |YO | SUBQ.L #0x4,A7 00020160 1e ba ff a8 | | MOVE.B 0x2010a,(A7) 00020164 1f 7a ff a5 00 01 | z | MOVE.B 0x2010b,(A7+0x1) 0002016a 1f 7a ff a0 00 02 | z | MOVE.B 0x2010c,(A7+0x2) 00020170 59 4f |YO | SUBQ.L #0x4,A7 00020172 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020176 3f 01 |? | MOVE.W D1,-(A7) 00020178 3f 3c 00 03 |?< | MOVE.W #0x3,-(A7) 0002017c 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020182 50 4f |PO | ADDQ.L #0x8,A7 00020184 2d 5f ff f8 |-_ | MOVE.L (A7)+,(A6-0x8) 00020188 58 4f |XO | ADDQ.L #0x4,A7 0002018a 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 0002018e 42 10 |B | CLR.B (A0) 00020190 3f 3a ff 7c |?: | | MOVE.W 0x2010e,-(A7) 00020194 9e c2 | | SUBA.W D2,A7 00020196 48 6f 00 0c |Ho | PEA.L (A7+0xc) 0002019a 3f 01 |? | MOVE.W D1,-(A7) 0002019c 3f 03 |? | MOVE.W D3,-(A7) 0002019e 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000201a4 50 4f |PO | ADDQ.L #0x8,A7 000201a6 4e b9 00 01 03 e4 |N | JSR AskConsoleString(prompt : String) : String 000201ac 58 4f |XO | ADDQ.L #0x4,A7 000201ae 4e b9 00 01 02 f0 |N | JSR ToUpper(a : String) : String 000201b4 58 4f |XO | ADDQ.L #0x4,A7 000201b6 28 9f |( | MOVE.L (A7)+,(A4) 000201b8 54 4f |TO | ADDQ.L #0x2,A7 000201ba 48 52 |HR | PEA.L (A2) 000201bc 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 000201c2 54 4f |TO | ADDQ.L #0x2,A7 000201c4 2f 14 |/ | MOVE.L (A4),-(A7) 000201c6 2f 2e ff f8 |/. | MOVE.L (A6-0x8),-(A7) 000201ca 4e b9 00 01 02 c8 |N | JSR StringEqual(a, b : String) : Byte 000201d0 50 4f |PO | ADDQ.L #0x8,A7 000201d2 4a 1f |J | TST.B (A7)+ 000201d4 67 0a |g | BEQ 0x201e0 000201d6 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 000201da 10 81 | | MOVE.B D1,(A0) 000201dc 60 00 00 b2 |` | BRA 0x20290 000201e0 2f 14 |/ | MOVE.L (A4),-(A7) 000201e2 2f 12 |/ | MOVE.L (A2),-(A7) 000201e4 48 53 |HS | PEA.L (A3) 000201e6 4e b9 00 01 02 fc |N | JSR FirstField(MOD input : String; MOD output : String; VAR c : Bool 000201ec de c2 | | ADDA.W D2,A7 000201ee 4a 13 |J | TST.B (A3) 000201f0 66 02 |f | BNE 0x201f4 000201f2 60 70 |`p | BRA 0x20264 000201f4 20 6e 00 10 | n | MOVEA.L (A6+0x10),A0 000201f8 9e c2 | | SUBA.W D2,A7 000201fa 2f 12 |/ | MOVE.L (A2),-(A7) 000201fc 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 00020202 58 4f |XO | ADDQ.L #0x4,A7 00020204 48 78 00 10 |Hx | PEA.L 0x10 00020208 4e b9 00 01 03 60 |N ` | JSR ?StringToInt64() 0002020e 50 4f |PO | ADDQ.L #0x8,A7 00020210 22 4f |"O | MOVEA.L A7,A1 00020212 70 07 |p | MOVEQ.L #0x07,D0 00020214 10 d9 | | MOVE.B (A1)+,(A0)+ 00020216 51 c8 ff fc |Q | DBF D0,0x20214 0002021a 58 4f |XO | ADDQ.L #0x4,A7 0002021c 2e 94 |. | MOVE.L (A4),(A7) 0002021e 2f 12 |/ | MOVE.L (A2),-(A7) 00020220 48 53 |HS | PEA.L (A3) 00020222 4e b9 00 01 02 fc |N | JSR FirstField(MOD input : String; MOD output : String; VAR c : Bool 00020228 de c2 | | ADDA.W D2,A7 0002022a 48 54 |HT | PEA.L (A4) 0002022c 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00020232 58 4f |XO | ADDQ.L #0x4,A7 00020234 4a 13 |J | TST.B (A3) 00020236 66 08 |f | BNE 0x20240 00020238 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 0002023c 20 81 | | MOVE.L D1,(A0) 0002023e 60 22 |`" | BRA 0x20262 00020240 59 4f |YO | SUBQ.L #0x4,A7 00020242 2f 12 |/ | MOVE.L (A2),-(A7) 00020244 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 0002024a 58 4f |XO | ADDQ.L #0x4,A7 0002024c 48 53 |HS | PEA.L (A3) 0002024e 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 00020252 48 50 |HP | PEA.L (A0) 00020254 4e b9 00 01 02 ec |N | JSR String2Long(src : String; VAR status : Bool; VAR retval : Long) 0002025a de c2 | | ADDA.W D2,A7 0002025c 4a 13 |J | TST.B (A3) 0002025e 66 02 |f | BNE 0x20262 00020260 60 02 |` | BRA 0x20264 00020262 60 2c |`, | BRA 0x20290 00020264 3f 3a fe aa |?: | MOVE.W 0x20110,-(A7) 00020268 59 4f |YO | SUBQ.L #0x4,A7 0002026a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002026e 3f 01 |? | MOVE.W D1,-(A7) 00020270 3f 03 |? | MOVE.W D3,-(A7) 00020272 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020278 50 4f |PO | ADDQ.L #0x8,A7 0002027a 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00020280 5c 4f |\O | ADDQ.L #0x6,A7 00020282 48 52 |HR | PEA.L (A2) 00020284 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 0002028a 58 4f |XO | ADDQ.L #0x4,A7 0002028c 60 00 ff 02 |` | BRA 0x20190 00020290 48 52 |HR | PEA.L (A2) 00020292 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00020298 58 4f |XO | ADDQ.L #0x4,A7 0002029a 48 6e ff f8 |Hn | PEA.L (A6-0x8) 0002029e 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000202a4 58 4f |XO | ADDQ.L #0x4,A7 000202a6 4c df 1f 0f |L | MOVEM.L (A7)+,D0+D1+D2+D3+A0+A1+A2+A3+A4 000202aa 4e 5e |N^ | UNLK A6 000202ac 4e 75 |Nu | RTS 000202ae ; -------------------------------------------------------------------------------------- 000202ae ; OMSI PASCAL Function 000202ae ; <LVAR 0x014 2(w)> 000202ae ; <LVAR 0x010 4(r)> 000202ae ; <LVAR 0x00e 2(r)> 000202ae ; <LVAR 0x00c 4(r)> 000202ae ; <LVAR 0x008 4(r)> 000202ae ; <LVAR -0x004 @ 1(r)> 000202ae ; -------------------------------------------------------------------------------------- 000202ae 4e 56 ff c4 |NV | LINK.W A6,#0xffc4 000202b2 bf d5 | | CMPA.L (A5),A7 000202b4 62 06 |b | BHI 0x202bc 000202b6 44 fc 00 02 |D | MOVE.W #0x2,CCR 000202ba 4e 76 |Nv | TRAPV 000202bc de fc 00 34 | 4 | ADDA.W #0x34,A7 000202c0 48 e7 c3 c0 |H | MOVEM.L A1+A0+D7+D6+D1+D0,-(A7) 000202c4 43 f9 00 02 09 08 |C | LEA.L 0x20908,A1 000202ca 72 0c |r | MOVEQ.L #0x0c,D1 000202cc 9e c1 | | SUBA.W D1,A7 000202ce 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 000202d2 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000202d6 48 78 ff f6 |Hx | PEA.L 0xfffffff6 000202da 4e b9 00 01 03 44 |N D | JSR BitShift(a : Quad ; howmuch : integer) : Quad 000202e0 de c1 | | ADDA.W D1,A7 000202e2 4e b9 00 01 03 50 |N P | JSR Quad2Long(a : Quad) : Long 000202e8 50 4f |PO | ADDQ.L #0x8,A7 000202ea 2e 1f |. | MOVE.L (A7)+,D7 000202ec be 91 | | CMP.L (A1),D7 000202ee 67 40 |g@ | BEQ 0x20330 000202f0 2f 2e 00 10 |/. | MOVE.L (A6+0x10),-(A7) 000202f4 0c 87 00 00 40 00 | @ | CMPI.L #0x00004000,D7 000202fa 63 02 |c | BLS 0x202fe 000202fc 4e 4f |NO | TRAP #15 000202fe 3f 07 |? | MOVE.W D7,-(A7) 00020300 42 67 |Bg | CLR.W -(A7) 00020302 3f 3c 02 00 |?< | MOVE.W #0x200,-(A7) 00020306 1f 3c 00 01 | < | MOVE.B #0x01,-(A7) 0002030a 41 f9 00 02 09 0c |A | LEA.L 0x2090c,A0 00020310 2f 08 |/ | MOVE.L A0,-(A7) 00020312 48 6e ff fc |Hn | PEA.L (A6-0x4) 00020316 4e b9 00 01 03 84 |N | JSR ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L) 0002031c de fc 00 14 | | ADDA.W #0x14,A7 00020320 4a 2e ff fc |J. | TST.B (A6-0x4) 00020324 66 04 |f | BNE 0x2032a 00020326 22 87 |" | MOVE.L D7,(A1) 00020328 60 06 |` | BRA 0x20330 0002032a 22 bc ff ff ff ff |" | MOVE.L #0xffffffff,(A1) 00020330 3c 2e 00 0e |<. | MOVE.W (A6+0xe),D6 00020334 02 46 03 ff | F | ANDI.W #0x03ff,D6 00020338 e2 4e | N | LSR.W #0x1,D6 0002033a 4d bc 01 ff |M | CHK.W #0x1ff,D6 0002033e 42 80 |B | CLR.L D0 00020340 30 06 |0 | MOVE.W D6,D0 00020342 e3 80 | | ASL.L #0x1,D0 00020344 41 f9 00 02 09 00 |A | LEA.L 0x20900,A0 0002034a 3d 70 08 0c 00 14 |=p | MOVE.W (A0+D0.L+#0xc),(A6+0x14) 00020350 4c df 03 c3 |L | MOVEM.L (A7)+,D0+D1+D6+D7+A0+A1 00020354 4e 5e |N^ | UNLK A6 00020356 4e 75 |Nu | RTS 00020358 ; -------------------------------------------------------------------------------------- 00020358 ; OMSI PASCAL Function 00020358 ; <LVAR 0x00a 4(w)> 00020358 ; <LVAR 0x008 2(r)> 00020358 ; <LVAR -0x00a @ 4(r)> 00020358 ; -------------------------------------------------------------------------------------- 00020358 4e 56 ff c0 |NV | LINK.W A6,#0xffc0 0002035c bf d5 | | CMPA.L (A5),A7 0002035e 62 06 |b | BHI 0x20366 00020360 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020364 4e 76 |Nv | TRAPV 00020366 de fc 00 2e | . | ADDA.W #0x2e,A7 0002036a 48 e7 df 80 |H | MOVEM.L A0+D7+D6+D5+D4+D3+D1+D0,-(A7) 0002036e 41 ee ff f6 |A | LEA.L (A6-0xa),A0 00020372 72 0a |r | MOVEQ.L #0x0a,D1 00020374 48 50 |HP | PEA.L (A0) 00020376 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 0002037c 58 4f |XO | ADDQ.L #0x4,A7 0002037e 2e 3c 00 00 10 00 |.< | MOVE.L #0x1000,D7 00020384 7c 00 || | MOVEQ.L #0x00,D6 00020386 42 84 |B | CLR.L D4 00020388 38 2e 00 08 |8. | MOVE.W (A6+0x8),D4 0002038c 26 07 |& | MOVE.L D7,D3 0002038e 4e b9 00 01 02 98 |N | JSR ?divu_d3_d4 00020394 02 84 00 00 00 0f | | ANDI.L #0x0000000f,D4 0002039a 2a 04 |* | MOVE.L D4,D5 0002039c ba 81 | | CMP.L D1,D5 0002039e 6c 16 |l | BGE 0x203b6 000203a0 2f 10 |/ | MOVE.L (A0),-(A7) 000203a2 20 05 | | MOVE.L D5,D0 000203a4 06 80 00 00 00 30 | 0 | ADDI.L #0x00000030,D0 000203aa 0c 80 00 00 00 ff | | CMPI.L #0x000000ff,D0 000203b0 63 02 |c | BLS 0x203b4 000203b2 4e 4f |NO | TRAP #15 000203b4 60 16 |` | BRA 0x203cc 000203b6 2f 10 |/ | MOVE.L (A0),-(A7) 000203b8 20 05 | | MOVE.L D5,D0 000203ba 90 81 | | SUB.L D1,D0 000203bc 06 80 00 00 00 41 | A | ADDI.L #0x00000041,D0 000203c2 0c 80 00 00 00 ff | | CMPI.L #0x000000ff,D0 000203c8 63 02 |c | BLS 0x203cc 000203ca 4e 4f |NO | TRAP #15 000203cc 1f 00 | | MOVE.B D0,-(A7) 000203ce 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 000203d4 5c 4f |\O | ADDQ.L #0x6,A7 000203d6 28 07 |( | MOVE.L D7,D4 000203d8 76 10 |v | MOVEQ.L #0x10,D3 000203da 4e b9 00 01 02 94 |N | JSR ?divs_d3_d4 000203e0 2e 04 |. | MOVE.L D4,D7 000203e2 52 86 |R | ADDQ.L #0x1,D6 000203e4 0c 86 00 00 00 03 | | CMPI.L #0x00000003,D6 000203ea 6f 9a |o | BLE 0x20386 000203ec 2d 50 00 0a |-P | MOVE.L (A0),(A6+0xa) 000203f0 4c df 01 fb |L | MOVEM.L (A7)+,D0+D1+D3+D4+D5+D6+D7+A0 000203f4 4e 5e |N^ | UNLK A6 000203f6 4e 75 |Nu | RTS 000203f8 ; -------------------------------------------------------------------------------------- 000203f8 ; OMSI PASCAL Function 000203f8 ; <LVAR 0x008 4(r)> 000203f8 ; <LVAR -0x012 @ 1(r)> 000203f8 ; <LVAR -0x016 @ 4(rw)> 000203f8 ; <LVAR -0x018 2(w)> 000203f8 ; <LVAR -0x01a 4(rw)> 000203f8 ; <LVAR -0x01e @ 4(rw)> 000203f8 ; -------------------------------------------------------------------------------------- 000203f8 4e 56 ff 74 |NV t | LINK.W A6,#0xff74 000203fc bf d5 | | CMPA.L (A5),A7 000203fe 62 06 |b | BHI 0x20406 00020400 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020404 4e 76 |Nv | TRAPV 00020406 de fc 00 64 | d | ADDA.W #0x64,A7 0002040a 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 0002040e 41 ee ff e2 |A | LEA.L (A6-0x1e),A0 00020412 43 ee ff e6 |C | LEA.L (A6-0x1a),A1 00020416 45 ee ff ea |E | LEA.L (A6-0x16),A2 0002041a 47 f9 00 01 02 c0 |G | LEA.L AppendChar(MOD b : String; a : char),A3 00020420 74 0c |t | MOVEQ.L #0x0c,D2 00020422 23 fc ff ff ff ff 00 02 |# | MOVE.L #0xffffffff,0x20908 0002042a 09 08 | | 0002042c 48 50 |HP | PEA.L (A0) 0002042e 48 52 |HR | PEA.L (A2) 00020430 48 6e ff ee |Hn | PEA.L (A6-0x12) 00020434 4e ba fd 00 |N | JSR 0x20136 00020438 de c2 | | ADDA.W D2,A7 0002043a 02 6e ff f0 ff e8 | n | ANDI.W #0xfff0,(A6-0x18) 00020440 20 12 | | MOVE.L (A2),D0 00020442 0c 80 00 00 00 08 | | CMPI.L #0x00000008,D0 00020448 6c 08 |l | BGE 0x20452 0002044a 24 bc 00 00 00 08 |$ | MOVE.L #0x8,(A2) 00020450 60 0a |` | BRA 0x2045c 00020452 5e 80 |^ | ADDQ.L #0x7,D0 00020454 02 80 00 00 ff f8 | | ANDI.L #0x0000fff8,D0 0002045a 24 80 |$ | MOVE.L D0,(A2) 0002045c 4a 2e ff ee |J. | TST.B (A6-0x12) 00020460 66 00 01 a0 |f | BNE 0x20602 00020464 2f 12 |/ | MOVE.L (A2),-(A7) 00020466 53 97 |S | SUBQ.L #0x1,(A7) 00020468 28 17 |( | MOVE.L (A7),D4 0002046a 76 08 |v | MOVEQ.L #0x08,D3 0002046c 4e b9 00 01 02 94 |N | JSR ?divs_d3_d4 00020472 2e 84 |. | MOVE.L D4,(A7) 00020474 70 00 |p | MOVEQ.L #0x00,D0 00020476 b0 97 | | CMP.L (A7),D0 00020478 6f 06 |o | BLE 0x20480 0002047a 59 4f |YO | SUBQ.L #0x4,A7 0002047c 60 00 01 82 |` | BRA 0x20600 00020480 2f 00 |/ | MOVE.L D0,-(A7) 00020482 51 4f |QO | SUBQ.L #0x8,A7 00020484 2f 11 |/ | MOVE.L (A1),-(A7) 00020486 2f 10 |/ | MOVE.L (A0),-(A7) 00020488 48 78 00 10 |Hx | PEA.L 0x10 0002048c 4e b9 00 01 03 5c |N \ | JSR Quad2String(a : Quad; radix : Long ) : String 00020492 de c2 | | ADDA.W D2,A7 00020494 48 78 00 05 |Hx | PEA.L 0x5 00020498 4e b9 00 01 02 f4 |N | JSR RightPad(a : String; b : Long) : String 0002049e 50 4f |PO | ADDQ.L #0x8,A7 000204a0 28 5f |(_ | MOVEA.L (A7)+,A4 000204a2 2f 0c |/ | MOVE.L A4,-(A7) 000204a4 1f 3c 00 3d | < = | MOVE.B #0x3d,-(A7) 000204a8 4e 93 |N | JSR (A3) 000204aa 5c 4f |\O | ADDQ.L #0x6,A7 000204ac 7e 00 |~ | MOVEQ.L #0x00,D7 000204ae 59 4f |YO | SUBQ.L #0x4,A7 000204b0 2f 0c |/ | MOVE.L A4,-(A7) 000204b2 5d 4f |]O | SUBQ.L #0x6,A7 000204b4 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000204b8 2f 11 |/ | MOVE.L (A1),-(A7) 000204ba 2f 10 |/ | MOVE.L (A0),-(A7) 000204bc 4e ba fd f0 |N | JSR 0x202ae 000204c0 de c2 | | ADDA.W D2,A7 000204c2 4e ba fe 94 |N | JSR 0x20358 000204c6 54 4f |TO | ADDQ.L #0x2,A7 000204c8 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000204ce 50 4f |PO | ADDQ.L #0x8,A7 000204d0 28 5f |(_ | MOVEA.L (A7)+,A4 000204d2 51 4f |QO | SUBQ.L #0x8,A7 000204d4 2f 11 |/ | MOVE.L (A1),-(A7) 000204d6 2f 10 |/ | MOVE.L (A0),-(A7) 000204d8 51 4f |QO | SUBQ.L #0x8,A7 000204da 48 78 00 02 |Hx | PEA.L 0x2 000204de 4e b9 00 01 03 54 |N T | JSR Long2Quad(a : Long) : Quad 000204e4 58 4f |XO | ADDQ.L #0x4,A7 000204e6 4e b9 00 01 03 14 |N | JSR Add(a, b : Quad) : Quad 000204ec de fc 00 10 | | ADDA.W #0x10,A7 000204f0 20 9f | | MOVE.L (A7)+,(A0) 000204f2 22 9f |" | MOVE.L (A7)+,(A1) 000204f4 0c 87 00 00 00 07 | | CMPI.L #0x00000007,D7 000204fa 67 0a |g | BEQ 0x20506 000204fc 2f 0c |/ | MOVE.L A4,-(A7) 000204fe 1f 3c 00 20 | < | MOVE.B #0x20,-(A7) 00020502 4e 93 |N | JSR (A3) 00020504 5c 4f |\O | ADDQ.L #0x6,A7 00020506 52 87 |R | ADDQ.L #0x1,D7 00020508 0c 87 00 00 00 07 | | CMPI.L #0x00000007,D7 0002050e 6f 9e |o | BLE 0x204ae 00020510 2f 0c |/ | MOVE.L A4,-(A7) 00020512 1f 3c 00 3d | < = | MOVE.B #0x3d,-(A7) 00020516 4e 93 |N | JSR (A3) 00020518 55 4f |UO | SUBQ.L #0x2,A7 0002051a 2f 11 |/ | MOVE.L (A1),-(A7) 0002051c 2f 10 |/ | MOVE.L (A0),-(A7) 0002051e 51 4f |QO | SUBQ.L #0x8,A7 00020520 48 78 00 10 |Hx | PEA.L 0x10 00020524 4e b9 00 01 03 54 |N T | JSR Long2Quad(a : Long) : Quad 0002052a 58 4f |XO | ADDQ.L #0x4,A7 0002052c 4e b9 00 01 03 18 |N | JSR Subtract(a, b : Quad) : Quad 00020532 de fc 00 10 | | ADDA.W #0x10,A7 00020536 20 9f | | MOVE.L (A7)+,(A0) 00020538 22 9f |" | MOVE.L (A7)+,(A1) 0002053a 7e 00 |~ | MOVEQ.L #0x00,D7 0002053c 55 4f |UO | SUBQ.L #0x2,A7 0002053e 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00020542 2f 11 |/ | MOVE.L (A1),-(A7) 00020544 2f 10 |/ | MOVE.L (A0),-(A7) 00020546 4e ba fd 66 |N f | JSR 0x202ae 0002054a de c2 | | ADDA.W D2,A7 0002054c 3a 1f |: | MOVE.W (A7)+,D5 0002054e 30 05 |0 | MOVE.W D5,D0 00020550 e0 48 | H | LSR.W #0x8,D0 00020552 02 40 00 ff | @ | ANDI.W #0x00ff,D0 00020556 42 81 |B | CLR.L D1 00020558 32 00 |2 | MOVE.W D0,D1 0002055a 2c 01 |, | MOVE.L D1,D6 0002055c 0c 86 00 00 00 7f | | CMPI.L #0x0000007f,D6 00020562 6c 18 |l | BGE 0x2057c 00020564 0c 86 00 00 00 1f | | CMPI.L #0x0000001f,D6 0002056a 6f 10 |o | BLE 0x2057c 0002056c 2f 0c |/ | MOVE.L A4,-(A7) 0002056e 0c 86 00 00 00 ff | | CMPI.L #0x000000ff,D6 00020574 63 02 |c | BLS 0x20578 00020576 4e 4f |NO | TRAP #15 00020578 1f 06 | | MOVE.B D6,-(A7) 0002057a 60 06 |` | BRA 0x20582 0002057c 2f 0c |/ | MOVE.L A4,-(A7) 0002057e 1f 3c 00 20 | < | MOVE.B #0x20,-(A7) 00020582 4e 93 |N | JSR (A3) 00020584 5c 4f |\O | ADDQ.L #0x6,A7 00020586 30 05 |0 | MOVE.W D5,D0 00020588 02 40 00 ff | @ | ANDI.W #0x00ff,D0 0002058c 42 81 |B | CLR.L D1 0002058e 32 00 |2 | MOVE.W D0,D1 00020590 2c 01 |, | MOVE.L D1,D6 00020592 0c 86 00 00 00 7f | | CMPI.L #0x0000007f,D6 00020598 6c 18 |l | BGE 0x205b2 0002059a 0c 86 00 00 00 1f | | CMPI.L #0x0000001f,D6 000205a0 6f 10 |o | BLE 0x205b2 000205a2 2f 0c |/ | MOVE.L A4,-(A7) 000205a4 0c 86 00 00 00 ff | | CMPI.L #0x000000ff,D6 000205aa 63 02 |c | BLS 0x205ae 000205ac 4e 4f |NO | TRAP #15 000205ae 1f 06 | | MOVE.B D6,-(A7) 000205b0 60 06 |` | BRA 0x205b8 000205b2 2f 0c |/ | MOVE.L A4,-(A7) 000205b4 1f 3c 00 20 | < | MOVE.B #0x20,-(A7) 000205b8 4e 93 |N | JSR (A3) 000205ba 5c 4f |\O | ADDQ.L #0x6,A7 000205bc 51 4f |QO | SUBQ.L #0x8,A7 000205be 2f 11 |/ | MOVE.L (A1),-(A7) 000205c0 2f 10 |/ | MOVE.L (A0),-(A7) 000205c2 51 4f |QO | SUBQ.L #0x8,A7 000205c4 48 78 00 02 |Hx | PEA.L 0x2 000205c8 4e b9 00 01 03 54 |N T | JSR Long2Quad(a : Long) : Quad 000205ce 58 4f |XO | ADDQ.L #0x4,A7 000205d0 4e b9 00 01 03 14 |N | JSR Add(a, b : Quad) : Quad 000205d6 de fc 00 10 | | ADDA.W #0x10,A7 000205da 20 9f | | MOVE.L (A7)+,(A0) 000205dc 22 9f |" | MOVE.L (A7)+,(A1) 000205de 52 87 |R | ADDQ.L #0x1,D7 000205e0 0c 87 00 00 00 07 | | CMPI.L #0x00000007,D7 000205e6 6f 00 ff 54 |o T | BLE 0x2053c 000205ea 2f 0c |/ | MOVE.L A4,-(A7) 000205ec 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000205f2 58 4f |XO | ADDQ.L #0x4,A7 000205f4 20 17 | | MOVE.L (A7),D0 000205f6 52 80 |R | ADDQ.L #0x1,D0 000205f8 69 06 |i | BVS 0x20600 000205fa 58 4f |XO | ADDQ.L #0x4,A7 000205fc 60 00 fe 78 |` x | BRA 0x20476 00020600 50 4f |PO | ADDQ.L #0x8,A7 00020602 4a 2e ff ee |J. | TST.B (A6-0x12) 00020606 67 00 fe 24 |g $ | BEQ 0x2042c 0002060a 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 0002060e 4e 5e |N^ | UNLK A6 00020610 4e 75 |Nu | RTS 00020612 ; -------------------------------------------------------------------------------------- 00020612 ; OMSI PASCAL Function 00020612 ; <LVAR 0x008 4(r)> 00020612 ; -------------------------------------------------------------------------------------- 00020612 4e 56 ff d0 |NV | LINK.W A6,#0xffd0 00020616 bf d5 | | CMPA.L (A5),A7 00020618 62 06 |b | BHI 0x20620 0002061a 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002061e 4e 76 |Nv | TRAPV 00020620 de fc 00 30 | 0 | ADDA.W #0x30,A7 00020624 48 e7 80 e0 |H | MOVEM.L A2+A1+A0+D0,-(A7) 00020628 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 0002062c 59 4f |YO | SUBQ.L #0x4,A7 0002062e 4e b9 00 01 03 c4 |N | JSR GetArgv() : String 00020634 20 9f | | MOVE.L (A7)+,(A0) 00020636 22 50 |"P | MOVEA.L (A0),A1 00020638 4a 51 |JQ | TST.W (A1) 0002063a 66 3a |f: | BNE 0x20676 0002063c 48 50 |HP | PEA.L (A0) 0002063e 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00020644 59 4f |YO | SUBQ.L #0x4,A7 00020646 22 4f |"O | MOVEA.L A7,A1 00020648 45 fa fa c8 |E | LEA.L 0x20112,A2 0002064c 70 06 |p | MOVEQ.L #0x06,D0 0002064e 12 da | | MOVE.B (A2)+,(A1)+ 00020650 51 c8 ff fc |Q | DBF D0,0x2064e 00020654 51 4f |QO | SUBQ.L #0x8,A7 00020656 48 6f 00 08 |Ho | PEA.L (A7+0x8) 0002065a 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 0002065e 3f 3c 00 07 |?< | MOVE.W #0x7,-(A7) 00020662 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020668 50 4f |PO | ADDQ.L #0x8,A7 0002066a 4e b9 00 01 03 e4 |N | JSR AskConsoleString(prompt : String) : String 00020670 58 4f |XO | ADDQ.L #0x4,A7 00020672 20 9f | | MOVE.L (A7)+,(A0) 00020674 50 4f |PO | ADDQ.L #0x8,A7 00020676 4c df 07 01 |L | MOVEM.L (A7)+,D0+A0+A1+A2 0002067a 4e 5e |N^ | UNLK A6 0002067c 4e 75 |Nu | RTS 0002067e ; -------------------------------------------------------------------------------------- 0002067e ; OMSI PASCAL Function 0002067e ; -------------------------------------------------------------------------------------- 0002067e START: 0002067e 4f fa 00 08 |O | LEA.L MAIN,A7 00020682 4e f9 00 01 02 80 |N | JMP ?start_program 00020688 MAIN: 00020688 41 f9 00 02 0d 0c |A | LEA.L 0x20d0c,A0 0002068e 43 f9 00 02 0d 12 |C | LEA.L 0x20d12,A1 00020694 45 f9 00 02 0d 10 |E | LEA.L 0x20d10,A2 0002069a 70 02 |p | MOVEQ.L #0x02,D0 0002069c 72 10 |r | MOVEQ.L #0x10,D1 0002069e 4e b9 00 01 03 98 |N | JSR FSCALL_10398 000206a4 48 50 |HP | PEA.L (A0) 000206a6 4e ba ff 6a |N j | JSR 0x20612 000206aa 2e 90 |. | MOVE.L (A0),(A7) 000206ac 42 27 |B' | CLR.B -(A7) 000206ae 1f 00 | | MOVE.B D0,-(A7) 000206b0 48 78 00 00 |Hx | PEA.L 0x0 000206b4 48 52 |HR | PEA.L (A2) 000206b6 48 51 |HQ | PEA.L (A1) 000206b8 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File) 000206be de c1 | | ADDA.W D1,A7 000206c0 2e 91 |. | MOVE.L (A1),(A7) 000206c2 4e ba fd 34 |N 4 | JSR 0x203f8 000206c6 54 4f |TO | ADDQ.L #0x2,A7 000206c8 42 17 |B | CLR.B (A7) 000206ca 1f 00 | | MOVE.B D0,-(A7) 000206cc 48 78 00 01 |Hx | PEA.L 0x1 000206d0 48 52 |HR | PEA.L (A2) 000206d2 48 51 |HQ | PEA.L (A1) 000206d4 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File) 000206da de c1 | | ADDA.W D1,A7 000206dc 48 50 |HP | PEA.L (A0) 000206de 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000206e4 54 4f |TO | ADDQ.L #0x2,A7 000206e6 42 17 |B | CLR.B (A7) 000206e8 48 78 00 01 |Hx | PEA.L 0x1 000206ec 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 000206f2 5c 4f |\O | ADDQ.L #0x6,A7 000206f4 4e b9 00 01 02 84 |N | JSR ?exit 000206fa 57 6f 72 64 73 20 65 72 |Words er| .TXT 'Words error :_' 00020708 ; -------------------------------------------------------------------------------------- 00020708 ; OMSI PASCAL Function 00020708 ; <LVAR 0x008 1(r)> 00020708 ; -------------------------------------------------------------------------------------- 00020708 PROG_FAIL: 00020708 4e 56 ff d2 |NV | LINK.W A6,#0xffd2 0002070c bf d5 | | CMPA.L (A5),A7 0002070e 62 06 |b | BHI 0x20716 00020710 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020714 4e 76 |Nv | TRAPV 00020716 de fc 00 2c | , | ADDA.W #0x2c,A7 0002071a 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 0002071e 41 fa ff e8 |A | LEA.L PROG_FAIL,A0 00020722 70 06 |p | MOVEQ.L #0x06,D0 00020724 3f 20 |? | MOVE.W -(A0),-(A7) 00020726 51 c8 ff fc |Q | DBF D0,0x20724 0002072a 1f 3c 00 03 | < | MOVE.B #0x03,-(A7) 0002072e 51 4f |QO | SUBQ.L #0x8,A7 00020730 48 6f 00 0a |Ho | PEA.L (A7+0xa) 00020734 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00020738 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7) 0002073c 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020742 58 4f |XO | ADDQ.L #0x4,A7 00020744 10 2e 00 08 | . | MOVE.B (A6+0x8),D0 00020748 48 80 |H | EXTB.W D0 0002074a 48 c0 |H | EXTW.L D0 0002074c 2f 00 |/ | MOVE.L D0,-(A7) 0002074e 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00020754 58 4f |XO | ADDQ.L #0x4,A7 00020756 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 0002075c 50 4f |PO | ADDQ.L #0x8,A7 0002075e 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00020764 de fc 00 14 | | ADDA.W #0x14,A7 00020768 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 0002076c 4e 5e |N^ | UNLK A6 0002076e 4e 75 |Nu | RTS 00020770 42 6f 61 72 64 20 20 20 |Board | .TXT 'Board :_ ' 0002077e 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment :_ ' 0002078c 53 74 61 74 75 73 20 20 |Status | .TXT 'Status :_ ' 0002079a 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment error :' 000207ac 46 61 74 61 6c 20 65 78 |Fatal ex| .TXT 'Fatal experiment error. ' 000207c4 ; -------------------------------------------------------------------------------------- 000207c4 ; OMSI PASCAL Function 000207c4 ; <LVAR 0x00e 1(r)> 000207c4 ; <LVAR 0x00a 4(r)> 000207c4 ; <LVAR 0x008 1(r)> 000207c4 ; -------------------------------------------------------------------------------------- 000207c4 EXP_FAIL: 000207c4 4e 56 ff 8c |NV | LINK.W A6,#0xff8c 000207c8 bf d5 | | CMPA.L (A5),A7 000207ca 62 06 |b | BHI 0x207d2 000207cc 44 fc 00 02 |D | MOVE.W #0x2,CCR 000207d0 4e 76 |Nv | TRAPV 000207d2 de fc 00 74 | t | ADDA.W #0x74,A7 000207d6 48 e7 fc f8 |H | MOVEM.L A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7) 000207da 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 000207e0 49 f9 00 01 03 e0 |I | LEA.L WriteConsoleStringCrLf(str : String),A4 000207e6 72 01 |r | MOVEQ.L #0x01,D1 000207e8 74 0d |t | MOVEQ.L #0x0d,D2 000207ea 76 1e |v | MOVEQ.L #0x1e,D3 000207ec 78 12 |x | MOVEQ.L #0x12,D4 000207ee 7a 0e |z | MOVEQ.L #0x0e,D5 000207f0 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 000207f6 41 fa ff b4 |A | LEA.L 0x207ac,A0 000207fa 70 08 |p | MOVEQ.L #0x08,D0 000207fc 3f 20 |? | MOVE.W -(A0),-(A7) 000207fe 51 c8 ff fc |Q | DBF D0,0x207fc 00020802 59 4f |YO | SUBQ.L #0x4,A7 00020804 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020808 3f 01 |? | MOVE.W D1,-(A7) 0002080a 3f 04 |? | MOVE.W D4,-(A7) 0002080c 4e 93 |N | JSR (A3) 0002080e 50 4f |PO | ADDQ.L #0x8,A7 00020810 4e 94 |N | JSR (A4) 00020812 50 4f |PO | ADDQ.L #0x8,A7 00020814 20 4f | O | MOVEA.L A7,A0 00020816 43 fa ff 58 |C X | LEA.L 0x20770,A1 0002081a 70 0c |p | MOVEQ.L #0x0c,D0 0002081c 10 d9 | | MOVE.B (A1)+,(A0)+ 0002081e 51 c8 ff fc |Q | DBF D0,0x2081c 00020822 51 4f |QO | SUBQ.L #0x8,A7 00020824 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00020828 3f 01 |? | MOVE.W D1,-(A7) 0002082a 3f 02 |? | MOVE.W D2,-(A7) 0002082c 4e 93 |N | JSR (A3) 0002082e 54 4f |TO | ADDQ.L #0x2,A7 00020830 1e ae 00 0e | | MOVE.B (A6+0xe),(A7) 00020834 4e b9 00 01 04 9c |N | JSR BoardName(address : B) : String 0002083a 54 4f |TO | ADDQ.L #0x2,A7 0002083c 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020842 50 4f |PO | ADDQ.L #0x8,A7 00020844 4e 94 |N | JSR (A4) 00020846 de c4 | | ADDA.W D4,A7 00020848 20 6e 00 0a | n | MOVEA.L (A6+0xa),A0 0002084c b0 c1 | | CMPA.W D1,A0 0002084e 67 48 |gH | BEQ 0x20898 00020850 9e c5 | | SUBA.W D5,A7 00020852 22 4f |"O | MOVEA.L A7,A1 00020854 45 fa ff 28 |E ( | LEA.L 0x2077e,A2 00020858 70 0c |p | MOVEQ.L #0x0c,D0 0002085a 12 da | | MOVE.B (A2)+,(A1)+ 0002085c 51 c8 ff fc |Q | DBF D0,0x2085a 00020860 9e c3 | | SUBA.W D3,A7 00020862 22 4f |"O | MOVEA.L A7,A1 00020864 41 e8 00 fc |A | LEA.L (A0+0xfc),A0 00020868 70 1d |p | MOVEQ.L #0x1d,D0 0002086a 12 d8 | | MOVE.B (A0)+,(A1)+ 0002086c 51 c8 ff fc |Q | DBF D0,0x2086a 00020870 51 4f |QO | SUBQ.L #0x8,A7 00020872 48 6f 00 26 |Ho & | PEA.L (A7+0x26) 00020876 3f 01 |? | MOVE.W D1,-(A7) 00020878 3f 02 |? | MOVE.W D2,-(A7) 0002087a 4e 93 |N | JSR (A3) 0002087c 58 4f |XO | ADDQ.L #0x4,A7 0002087e 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00020882 3f 01 |? | MOVE.W D1,-(A7) 00020884 3f 03 |? | MOVE.W D3,-(A7) 00020886 4e 93 |N | JSR (A3) 00020888 50 4f |PO | ADDQ.L #0x8,A7 0002088a 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020890 50 4f |PO | ADDQ.L #0x8,A7 00020892 4e 94 |N | JSR (A4) 00020894 de fc 00 30 | 0 | ADDA.W #0x30,A7 00020898 9e c5 | | SUBA.W D5,A7 0002089a 20 4f | O | MOVEA.L A7,A0 0002089c 43 fa fe ee |C | LEA.L 0x2078c,A1 000208a0 70 0c |p | MOVEQ.L #0x0c,D0 000208a2 10 d9 | | MOVE.B (A1)+,(A0)+ 000208a4 51 c8 ff fc |Q | DBF D0,0x208a2 000208a8 51 4f |QO | SUBQ.L #0x8,A7 000208aa 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000208ae 3f 01 |? | MOVE.W D1,-(A7) 000208b0 3f 02 |? | MOVE.W D2,-(A7) 000208b2 4e 93 |N | JSR (A3) 000208b4 54 4f |TO | ADDQ.L #0x2,A7 000208b6 1e ae 00 08 | | MOVE.B (A6+0x8),(A7) 000208ba 4e b9 00 01 04 a2 |N | JSR ExpStatus2Text(status.B, &String) 000208c0 54 4f |TO | ADDQ.L #0x2,A7 000208c2 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000208c8 50 4f |PO | ADDQ.L #0x8,A7 000208ca 4e 94 |N | JSR (A4) 000208cc 5d 4f |]O | SUBQ.L #0x6,A7 000208ce 20 4f | O | MOVEA.L A7,A0 000208d0 43 fa fe da |C | LEA.L 0x207ac,A1 000208d4 70 16 |p | MOVEQ.L #0x16,D0 000208d6 10 d9 | | MOVE.B (A1)+,(A0)+ 000208d8 51 c8 ff fc |Q | DBF D0,0x208d6 000208dc 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 000208e0 59 4f |YO | SUBQ.L #0x4,A7 000208e2 48 6f 00 06 |Ho | PEA.L (A7+0x6) 000208e6 3f 01 |? | MOVE.W D1,-(A7) 000208e8 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7) 000208ec 4e 93 |N | JSR (A3) 000208ee 50 4f |PO | ADDQ.L #0x8,A7 000208f0 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 000208f6 de c3 | | ADDA.W D3,A7 000208f8 4c df 1f 3f |L ? | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4 000208fc 4e 5e |N^ | UNLK A6 000208fe 4e 75 |Nu | RTS