|
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: @(#)LOOK,1.1,92/07/09,12:00:00, M200_PROGRAM
Names: »LOOK.M200«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »LOOK.M200«
@ 20156
<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 20156-202ce Body>
<POP 20156-2016c Prologue> Σ0 ↓
<POP 2016c-2017e RegCacheLoad> Σ0 ↓
<POP 2017e-201b0 Naked> Σ0 ↓
<POP 2017e-20180 StackAdj> Δ-4 {[-4-]}
<POP 20180-20181 StackAdj> Δ+2 {[-2-]}
<Blob 0x20181 [2] @> Δ-2 {[-2-]|[«2""»]}
<MI 20184 MOVE.B 0x2012b,(A7+0x1)> {[-2-]|[«2""»]}
<MI 2018a MOVE.B 0x2012c,(A7+0x2)> {[-2-]|[«2""»]}
<POP 20190-20192 StackAdj> Δ-4 {[-2-]|[«2""»]|[-4-]}
<Lit 0x20192> {[-2-]|[«2""»]|[$$…]}
<Pointer.sp 0x20192 4> Δ-4
<Const 0x20196 0x1.2> Δ-2
<Const 0x20198 0x3.2> Δ-2
<Call 0x2019c 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 201a2-201a4 StackAdj> Δ+8
<MI 201a4 MOVE.L (A7)+,(A6-0x8)> Δ+4 {[-2-]|[«2""»]}
<POP 201a8-201aa StackAdj> Δ+4 {}
<MI 201aa MOVEA.L (A6+0x8),A0> {}
<MI 201ae CLR.B (A0)> {}
<POP 201b0-201f6 Naked> Σ0 ↓ →0x20200 ←0x20284
<Blob 0x201b0 [2] @> Δ-2 {[«2""»]}
<POP 201b4-201b6 StackAdj> Δ-12 {[«2""»]|[-12-]}
<Lit 0x201b6 2> {[«2""»]|[-8-]|[$$> ]}
<Call 0x201c6 0x103e4> {[«2""»]|[-8-]|[$$> ]}
AskConsoleString(prompt : String) : String
<POP 201cc-201ce StackAdj> Δ+4 {[«2""»]|[-8-]}
<Call 0x201ce 0x102f0> {[«2""»]|[-8-]}
ToUpper(a : String) : String
<POP 201d4-201d6 StackAdj> Δ+4 {[«2""»]|[-4-]}
<MI 201d6 MOVE.L (A7)+,(A6-0x10)> Δ+4 {[«2""»]}
<POP 201d8-201da StackAdj> Δ+2 {}
<Pointer.fp 0x201da <LVAR -0x00c @ 4(r)>> Δ-4 {[@@-12]}
<Call 0x201dc 0x102b8> {[@@-12]}
NewString(VAR a : String)
<POP 201e2-201e4 StackAdj> Δ+2 {[-2-]}
<MI 201e4 MOVE.L (A6-0x10),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x10)']}
<MI 201e6 MOVE.L (A6-0x8),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x10)']|[4, '(A6-0x8)']}
<Call 0x201ea 0x102c8> {[-2-]|[4, '(A6-0x10)']|[4, '(A6-0x8)']}
StringEqual(a, b : String) : Byte
<POP 201f0-201f2 StackAdj> Δ+8 {[-2-]}
<MI 201f2 TST.B (A7)+> Δ+2 {}
<MI 201f4 BEQ 0x20200> {}
<POP 201f6-20200 Naked> Σ0 →0x202b0
<MI 201f6 MOVEA.L (A6+0x8),A0> {}
<MI 201fa MOVE.B #0x01,(A0)> {}
<MI 201fc BRA 0x202b0> {}
<POP 20200-20212 Naked> Σ0 ↓ →0x20214 ←0x201b0
<MI 20200 MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0x10)']}
<MI 20202 MOVE.L (A6-0xc),-(A7)> Δ-4 {[4, '(A6-0x10)']|[4, '(A6-0xc)']}
<Pointer.fp 0x20204 <LVAR -0x004 @ 1(r)>> Δ-4 {[4, '(A6-0x10)']|[4, '(A6-0xc)']|[@@-4]}
<Call 0x20206 0x102fc> {[4, '(A6-0x10)']|[4, '(A6-0xc)']|[@@-4]}
FirstField(MOD input : String; MOD output : String; VAR c : Bool
<POP 2020c-2020e StackAdj> Δ+12 {}
<MI 2020e TST.B (A6-0x4)> {}
<MI 20210 BNE 0x20214> {}
<POP 20212-20214 Naked> Σ0 →0x20284
<MI 20212 BRA 0x20284> {}
<POP 20214-20258 Naked> Σ0 ↓ →0x20260 ←0x20200
<MI 20214 MOVEA.L (A6+0x10),A0> {}
<POP 20218-2021a StackAdj> Δ-12 {[-12-]}
<MI 2021a MOVE.L (A6-0xc),-(A7)> Δ-4 {[-12-]|[4, '(A6-0xc)']}
<Call 0x2021c 0x102cc> {[-12-]|[4, '(A6-0xc)']}
StringDup(a : String) : String
<POP 20222-20224 StackAdj> Δ+4 {[-12-]}
<Const 0x20224 0x10.4> Δ-4 {[-12-]|[##16]}
<Call 0x20228 0x10360> {[-12-]|[##16]}
?StringToInt64()
<POP 2022e-20230 StackAdj> Δ+8 {[-8-]}
<MI 20230 MOVEA.L A7,A1> {[-8-]}
<BlockMove 8,A1,A0> {[-8-]}
<POP 2023a-2023c StackAdj> Δ+4 {[-4-]}
<MI 2023c MOVE.L (A6-0x10),(A7)> {[4, '(A6-0x10)']}
<MI 2023e MOVE.L (A6-0xc),-(A7)> Δ-4 {[4, '(A6-0x10)']|[4, '(A6-0xc)']}
<Pointer.fp 0x20240 <LVAR -0x004 @ 1(r)>> Δ-4 {[4, '(A6-0x10)']|[4, '(A6-0xc)']|[@@-4]}
<Call 0x20242 0x102fc> {[4, '(A6-0x10)']|[4, '(A6-0xc)']|[@@-4]}
FirstField(MOD input : String; MOD output : String; VAR c : Bool
<POP 20248-2024a StackAdj> Δ+12 {}
<Pointer.fp 0x2024a <LVAR -0x010 @ 4(rw)>> Δ-4 {[@@-16]}
<Call 0x2024c 0x102bc> {[@@-16]}
FreeString(VAR a : String)
<POP 20252-20254 StackAdj> Δ+4 {}
<MI 20254 TST.B (A6-0x4)> {}
<MI 20256 BNE 0x20260> {}
<POP 20258-20260 Naked> Σ0 →0x20282
<MI 20258 MOVEA.L (A6+0xc),A0> {}
<MI 2025c MOVE.L #0x01,(A0)> {}
<MI 2025e BRA 0x20282> {}
<POP 20260-20280 Naked> Σ0 ↓ →0x20282 ←0x20214
<POP 20260-20262 StackAdj> Δ-4 {[-4-]}
<MI 20262 MOVE.L (A6-0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6-0xc)']}
<Call 0x20264 0x102cc> {[-4-]|[4, '(A6-0xc)']}
StringDup(a : String) : String
<POP 2026a-2026c StackAdj> Δ+4 {[-4-]}
<Pointer.fp 0x2026c <LVAR -0x004 @ 1(r)>> Δ-4 {[-4-]|[@@-4]}
<MI 2026e MOVEA.L (A6+0xc),A0> {[-4-]|[@@-4]}
<MI 20272 PEA.L (A0)> Δ-4 {[-4-]|[@@-4]|[4, '^(A0)']}
<Call 0x20274 0x102ec> {[-4-]|[@@-4]|[4, '^(A0)']}
String2Long(src : String; VAR status : Bool; VAR retval : Long)
<POP 2027a-2027c StackAdj> Δ+12 {}
<MI 2027c TST.B (A6-0x4)> {}
<MI 2027e BNE 0x20282> {}
<POP 20280-20282 Naked> Σ0 →0x20284
<MI 20280 BRA 0x20284> {}
<POP 20282-20284 Naked> Σ0 →0x202b0 ←0x20258 ←0x20260
<MI 20282 BRA 0x202b0> {}
<POP 20284-202b0 Naked> Σ0 →0x201b0 ←0x20212 ←0x20280
<Blob 0x20284 [2] @> Δ-2 {[«2""»]}
<POP 20288-2028a StackAdj> Δ-4 {[«2""»]|[-4-]}
<Lit 0x2028a 2> {[«2""»]|[$$??]}
<Call 0x2029a 0x103e0> {[«2""»]|[$$??]}
WriteConsoleStringCrLf(str : String)
<POP 202a0-202a2 StackAdj> Δ+6 {}
<Pointer.fp 0x202a2 <LVAR -0x00c @ 4(r)>> Δ-4 {[@@-12]}
<Call 0x202a4 0x102bc> {[@@-12]}
FreeString(VAR a : String)
<POP 202aa-202ac StackAdj> Δ+4 {}
<MI 202ac BRA 0x201b0> {}
<POP 202b0-202c6 Naked> Σ0 ↓ ←0x201f6 ←0x20282
<Pointer.fp 0x202b0 <LVAR -0x00c @ 4(r)>> Δ-4 {[@@-12]}
<Call 0x202b2 0x102bc> {[@@-12]}
FreeString(VAR a : String)
<POP 202b8-202ba StackAdj> Δ+4 {}
<Pointer.fp 0x202ba <LVAR -0x008 @ 4(rw)>> Δ-4 {[@@-8]}
<Call 0x202be 0x102bc> {[@@-8]}
FreeString(VAR a : String)
<POP 202c4-202c6 StackAdj> Δ+4 {}
<POP 202c6-202ce Epilogue> Σ0
@ 202ce
<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 202ce-20378 Body>
<POP 202ce-202e4 Prologue> Σ0 ↓
<POP 202e4-202ec RegCacheLoad> Σ0 ↓
<POP 202ec-20310 Naked> Σ0 ↓ →0x20350
<POP 202ec-202ee StackAdj> Δ-12 {[-12-]}
<MI 202ee MOVE.L (A6+0xc),-(A7)> Δ-4 {[-12-]|[4, '(A6+0xc)']}
<MI 202f2 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Const 0x202f6 0xfffffff6.4> Δ-4 {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[##4294967286]}
<Call 0x202fa 0x10344> {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[##4294967286]}
BitShift(a : Quad ; howmuch : integer) : Quad
<POP 20300-20302 StackAdj> Δ+12 {[-12-]}
<Call 0x20302 0x10350> {[-12-]}
Quad2Long(a : Quad) : Long
<POP 20308-2030a StackAdj> Δ+8 {[-4-]}
<MI 2030a MOVE.L (A7)+,D7> Δ+4 {}
<MI 2030c CMP.L 0x20928,D7> {}
<MI 2030e BEQ 0x20350> {}
<POP 20310-20346 Naked> Σ0 ↓ →0x2034a
<MI 20310 MOVE.L (A6+0x10),-(A7)> Δ-4 {[4, '(A6+0x10)']}
<POP 0x20314 LimitCheck 0x0 ≤ D7 ≤ 0x4000> {[4, '(A6+0x10)']}
<MI 2031e MOVE.W D7,-(A7)> Δ-2 {[4, '(A6+0x10)']|[2, 'D7']}
<MI 20320 CLR.W -(A7)> Δ-2 {[4, '(A6+0x10)']|[2, 'D7']|[#0]}
<Const 0x20322 0x200.2> Δ-2 {[4, '(A6+0x10)']|[2, 'D7']|[#0]|[#512]}
<Const 0x20326 0x1.2> Δ-2 {[4, '(A6+0x10)']|[2, 'D7']|[#0]|[#512]|[#1]}
<MI 2032a LEA.L 0x2092c,A0> {[4, '(A6+0x10)']|[2, 'D7']|[#0]|[#512]|[#1]}
<MI 20330 MOVE.L A0,-(A7)> Δ-4 {[4, '(A6+0x10)']|[2, 'D7']|[#0]|[#512]|[#1]|[4, 'A0']}
<Pointer.fp 0x20332 <LVAR -0x004 @ 1(r)>> Δ-4 {[4, '(A6+0x10)']|[2, 'D7']|[#0]|[#512]|[#1]|[4, 'A0']|[@@-4]}
<Call 0x20336 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 2033c-20340 StackAdj> Δ+20 {}
<MI 20340 TST.B (A6-0x4)> {}
<MI 20344 BNE 0x2034a> {}
<POP 20346-2034a Naked> Σ0 →0x20350
<MI 20346 MOVE.L D7,0x20928> {}
<MI 20348 BRA 0x20350> {}
<POP 2034a-20350 Naked> Σ0 ↓ ←0x20310
<MI 2034a MOVE.L #0xffffffff,0x20928> {}
<POP 20350-20370 Naked> Σ0 ↓ ←0x202ec ←0x20346
<MI 20350 MOVE.W (A6+0xe),D6> {}
<MI 20354 ANDI.W #0x03ff,D6> {}
<MI 20358 LSR.W #0x1,D6> {}
<POP 0x2035a LimitCheck 0x0 ≤ D6 ≤ 0x1ff> {}
<MI 2035e CLR.L D0> {}
<MI 20360 MOVE.W D6,D0> {}
<MI 20362 ASL.L #0x1,D0> {}
<MI 20364 LEA.L 0x20920,A0> {}
<MI 2036a MOVE.W (A0+D0.L+#0xc),(A6+0x14)> {}
<POP 20370-20378 Epilogue> Σ0
@ 20378
<LVAR 0x00a 4(w)>
<LVAR 0x008 2(r)>
<LVAR -0x00a @ 4(r)>
<POP 20378-20418 Body> Δ+4
<POP 20378-2038e Prologue> Σ0 ↓
<POP 2038e-20394 RegCacheLoad> Σ0 ↓
<POP 20394-203a6 Naked> Σ0 ↓
<Pointer.fp 0x20394 <LVAR -0x00a @ 4(r)>> Δ-4 {[@@-10]}
<Call 0x20396 0x102b8> {[@@-10]}
NewString(VAR a : String)
<POP 2039c-2039e StackAdj> Δ+4 {}
<MI 2039e MOVE.L #0x1000,D7> {}
<MI 203a4 MOVEQ.L #0x00,D6> {}
<POP 203a6-203c0 Naked> Σ0 ↓ →0x203d6 ←0x203ec
<MI 203a6 CLR.L D4> {}
<MI 203a8 MOVE.W (A6+0x8),D4> {}
<MI 203ac MOVE.L D7,D3> {}
<Call 0x203ae 0x10298> {}
?divu_d3_d4
<MI 203b4 ANDI.L #0x0000000f,D4> {}
<MI 203ba MOVE.L D4,D5> {}
<MI 203bc CMP.L #0x0a,D5> {}
<MI 203be BGE 0x203d6> {}
<POP 203c0-203d6 Naked> Σ0 Δ-4 →0x203ec
<MI 203c0 MOVE.L (A6-0xa),-(A7)> Δ-4 {[4, '(A6-0xa)']}
<MI 203c2 MOVE.L D5,D0> {[4, '(A6-0xa)']}
<MI 203c4 ADDI.L #0x00000030,D0> {[4, '(A6-0xa)']}
<POP 0x203ca LimitCheck 0x0 ≤ D0 ≤ 0xff> {[4, '(A6-0xa)']}
<MI 203d4 BRA 0x203ec> {[4, '(A6-0xa)']}
<POP 203d6-203ec Naked> Σ0 Δ-4 ↓ ←0x203a6
<MI 203d6 MOVE.L (A6-0xa),-(A7)> Δ-4 {[4, '(A6-0xa)']}
<MI 203d8 MOVE.L D5,D0> {[4, '(A6-0xa)']}
<MI 203da SUB.L #0x0a,D0> {[4, '(A6-0xa)']}
<MI 203dc ADDI.L #0x00000041,D0> {[4, '(A6-0xa)']}
<POP 0x203e2 LimitCheck 0x0 ≤ D0 ≤ 0xff> {[4, '(A6-0xa)']}
<POP 203ec-2040c Naked> Σ-4 Δ+4 ↓ →0x203a6 ←0x203c0
<MI 203ec MOVE.B D0,-(A7)> Δ-2 {[-4-]|[2, 'D0']}
<Call 0x203ee 0x102c0> {[-4-]|[2, 'D0']}
AppendChar(MOD b : String; a : char)
<POP 203f4-203f6 StackAdj> Δ+6 {}
<MI 203f6 MOVE.L D7,D4> {}
<MI 203f8 MOVEQ.L #0x10,D3> {}
<Call 0x203fa 0x10294> {}
?divs_d3_d4
<MI 20400 MOVE.L D4,D7> {}
<MI 20402 ADDQ.L #0x1,D6> {}
<MI 20404 CMPI.L #0x00000003,D6> {}
<MI 2040a BLE 0x203a6> {}
<POP 2040c-20410 Naked> Σ0 ↓
<MI 2040c MOVE.L (A6-0xa),(A6+0xa)> {}
<POP 20410-20418 Epilogue> Σ0
@ 20418
<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 20418-20632 Body> Δ+12
<POP 20418-2042e Prologue> Σ0 ↓
<POP 2042e-20442 RegCacheLoad> Σ0 ↓
<POP 20442-2044c Naked> Σ0 ↓
<MI 20442 MOVE.L #0xffffffff,0x20928> {}
<POP 2044c-2046a Naked> Σ0 ↓ →0x20472 ←0x20622
<Pointer.fp 0x2044c <LVAR -0x01e @ 4(rw)>> Δ-4 {[@@-30]}
<Pointer.fp 0x2044e <LVAR -0x016 @ 4(rw)>> Δ-4 {[@@-30]|[@@-22]}
<Pointer.fp 0x20450 <LVAR -0x012 @ 1(r)>> Δ-4 {[@@-30]|[@@-22]|[@@-18]}
<Call 0x20454 0x20156> {[@@-30]|[@@-22]|[@@-18]}
<POP 20458-2045a StackAdj> Δ+12 {}
<MI 2045a ANDI.W #0xfff0,(A6-0x18)> {}
<MI 20460 MOVE.L (A6-0x16),D0> {}
<MI 20462 CMPI.L #0x00000008,D0> {}
<MI 20468 BGE 0x20472> {}
<POP 2046a-20472 Naked> Σ0 →0x2047c
<MI 2046a MOVE.L #0x8,(A6-0x16)> {}
<MI 20470 BRA 0x2047c> {}
<POP 20472-2047c Naked> Σ0 ↓ ←0x2044c
<MI 20472 ADDQ.L #0x7,D0> {}
<MI 20474 ANDI.L #0x0000fff8,D0> {}
<MI 2047a MOVE.L D0,(A6-0x16)> {}
<POP 2047c-20484 Naked> Σ0 ↓ →0x20622 ←0x2046a
<MI 2047c TST.B (A6-0x12)> {}
<MI 20480 BNE 0x20622> {}
<POP 20484-20496 Naked> Σ0 Δ-4 ↓
<MI 20484 MOVE.L (A6-0x16),-(A7)> Δ-4 {[4, '(A6-0x16)']}
<MI 20486 SUBQ.L #0x1,(A7)> {[-4-]}
<MI 20488 MOVE.L (A7),D4> {[-4-]}
<MI 2048a MOVEQ.L #0x08,D3> {[-4-]}
<Call 0x2048c 0x10294> {[-4-]}
?divs_d3_d4
<MI 20492 MOVE.L D4,(A7)> {[4, 'D4']}
<MI 20494 MOVEQ.L #0x00,D0> {[4, 'D4']}
<POP 20496-2049a Naked> Σ-4 ↓ →0x204a0 ←0x2061a
<MI 20496 CMP.L (A7),D0> {[-4-]}
<MI 20498 BLE 0x204a0> {[-4-]}
<POP 2049a-204a0 Naked> Σ-4 Δ-4 →0x20620
<POP 2049a-2049c StackAdj> Δ-4 {[-8-]}
<MI 2049c BRA 0x20620> {[-8-]}
<POP 204a0-204ce Naked> Σ-4 Δ-4 ↓ ←0x20496
<MI 204a0 MOVE.L D0,-(A7)> Δ-4 {[-4-]|[4, 'D0']}
<POP 204a2-204a4 StackAdj> Δ-8 {[-4-]|[4, 'D0']|[-8-]}
<MI 204a4 MOVE.L (A6-0x1a),-(A7)> Δ-4 {[-4-]|[4, 'D0']|[-8-]|[4, '(A6-0x1a)']}
<MI 204a6 MOVE.L (A6-0x1e),-(A7)> Δ-4 {[-4-]|[4, 'D0']|[-8-]|[4, '(A6-0x1a)']|[4, '(A6-0x1e)']}
<Const 0x204a8 0x10.4> Δ-4 {[-4-]|[4, 'D0']|[-8-]|[4, '(A6-0x1a)']|[4, '(A6-0x1e)']|[##16]}
<Call 0x204ac 0x1035c> {[-4-]|[4, 'D0']|[-8-]|[4, '(A6-0x1a)']|[4, '(A6-0x1e)']|[##16]}
Quad2String(a : Quad; radix : Long ) : String
<POP 204b2-204b4 StackAdj> Δ+12 {[-4-]|[4, 'D0']|[-8-]}
<Const 0x204b4 0x5.4> Δ-4 {[-4-]|[4, 'D0']|[-8-]|[##5]}
<Call 0x204b8 0x102f4> {[-4-]|[4, 'D0']|[-8-]|[##5]}
RightPad(a : String; b : Long) : String
<POP 204be-204c0 StackAdj> Δ+8 {[-4-]|[4, 'D0']|[-4-]}
<MI 204c0 MOVEA.L (A7)+,A4> Δ+4 {[-4-]|[4, 'D0']}
<MI 204c2 MOVE.L A4,-(A7)> Δ-4 {[-4-]|[4, 'D0']|[4, 'A4']}
<Const 0x204c4 0x3d.2> Δ-2 {[-4-]|[4, 'D0']|[4, 'A4']|[#61]}
<Call 0x204c8 0x102c0> {[-4-]|[4, 'D0']|[4, 'A4']|[#61]}
AppendChar(MOD b : String; a : char)
<POP 204ca-204cc StackAdj> Δ+6 {[-4-]|[4, 'D0']}
<MI 204cc MOVEQ.L #0x00,D7> {[-4-]|[4, 'D0']}
<POP 204ce-2051c Naked> Σ-8 ↓ →0x20526 ←0x20526
<POP 204ce-204d0 StackAdj> Δ-4 {[-12-]}
<MI 204d0 MOVE.L A4,-(A7)> Δ-4 {[-12-]|[4, 'A4']}
<POP 204d2-204d4 StackAdj> Δ-6 {[-12-]|[4, 'A4']|[-6-]}
<MI 204d4 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, 'A4']|[-6-]|[4, '(A6+0x8)']}
<MI 204d8 MOVE.L (A6-0x1a),-(A7)> Δ-4 {[-12-]|[4, 'A4']|[-6-]|[4, '(A6+0x8)']|[4, '(A6-0x1a)']}
<MI 204da MOVE.L (A6-0x1e),-(A7)> Δ-4 {[-12-]|[4, 'A4']|[-6-]|[4, '(A6+0x8)']|[4, '(A6-0x1a)']|[4, '(A6-0x1e)']}
<Call 0x204dc 0x202ce> {[-12-]|[4, 'A4']|[-6-]|[4, '(A6+0x8)']|[4, '(A6-0x1a)']|[4, '(A6-0x1e)']}
<POP 204e0-204e2 StackAdj> Δ+12 {[-12-]|[4, 'A4']|[-6-]}
<Call 0x204e2 0x20378> {[-12-]|[4, 'A4']|[-6-]}
<POP 204e6-204e8 StackAdj> Δ+2 {[-12-]|[4, 'A4']|[-4-]}
<Call 0x204e8 0x102d0> {[-12-]|[4, 'A4']|[-4-]}
StringCat2(a, b : String) : String
<POP 204ee-204f0 StackAdj> Δ+8 {[-12-]}
<MI 204f0 MOVEA.L (A7)+,A4> Δ+4 {[-8-]}
<POP 204f2-204f4 StackAdj> Δ-8 {[-16-]}
<MI 204f4 MOVE.L (A6-0x1a),-(A7)> Δ-4 {[-16-]|[4, '(A6-0x1a)']}
<MI 204f6 MOVE.L (A6-0x1e),-(A7)> Δ-4 {[-16-]|[4, '(A6-0x1a)']|[4, '(A6-0x1e)']}
<POP 204f8-204fa StackAdj> Δ-8 {[-16-]|[4, '(A6-0x1a)']|[4, '(A6-0x1e)']|[-8-]}
<Const 0x204fa 0x2.4> Δ-4 {[-16-]|[4, '(A6-0x1a)']|[4, '(A6-0x1e)']|[-8-]|[##2]}
<Call 0x204fe 0x10354> {[-16-]|[4, '(A6-0x1a)']|[4, '(A6-0x1e)']|[-8-]|[##2]}
Long2Quad(a : Long) : Quad
<POP 20504-20506 StackAdj> Δ+4 {[-16-]|[4, '(A6-0x1a)']|[4, '(A6-0x1e)']|[-8-]}
<Call 0x20506 0x10314> {[-16-]|[4, '(A6-0x1a)']|[4, '(A6-0x1e)']|[-8-]}
Add(a, b : Quad) : Quad
<POP 2050c-20510 StackAdj> Δ+16 {[-16-]}
<MI 20510 MOVE.L (A7)+,(A6-0x1e)> Δ+4 {[-12-]}
<MI 20512 MOVE.L (A7)+,(A6-0x1a)> Δ+4 {[-8-]}
<MI 20514 CMPI.L #0x00000007,D7> {[-8-]}
<MI 2051a BEQ 0x20526> {[-8-]}
<POP 2051c-20526 Naked> Σ-8 ↓
<MI 2051c MOVE.L A4,-(A7)> Δ-4 {[-8-]|[4, 'A4']}
<Const 0x2051e 0x20.2> Δ-2 {[-8-]|[4, 'A4']|[#32]}
<Call 0x20522 0x102c0> {[-8-]|[4, 'A4']|[#32]}
AppendChar(MOD b : String; a : char)
<POP 20524-20526 StackAdj> Δ+6 {[-8-]}
<POP 20526-20530 Naked> Σ-8 ↓ →0x204ce ←0x204ce
<MI 20526 ADDQ.L #0x1,D7> {[-8-]}
<MI 20528 CMPI.L #0x00000007,D7> {[-8-]}
<MI 2052e BLE 0x204ce> {[-8-]}
<POP 20530-2055c Naked> Σ-8 ↓
<MI 20530 MOVE.L A4,-(A7)> Δ-4 {[-8-]|[4, 'A4']}
<Const 0x20532 0x3d.2> Δ-2 {[-8-]|[4, 'A4']|[#61]}
<Call 0x20536 0x102c0> {[-8-]|[4, 'A4']|[#61]}
AppendChar(MOD b : String; a : char)
<POP 20538-2053a StackAdj> Δ-2 {[-8-]|[4, 'A4']|[#61]|[-2-]}
<MI 2053a MOVE.L (A6-0x1a),-(A7)> Δ-4 {[-8-]|[4, 'A4']|[#61]|[-2-]|[4, '(A6-0x1a)']}
<MI 2053c MOVE.L (A6-0x1e),-(A7)> Δ-4 {[-8-]|[4, 'A4']|[#61]|[-2-]|[4, '(A6-0x1a)']|[4, '(A6-0x1e)']}
<POP 2053e-20540 StackAdj> Δ-8 {[-8-]|[4, 'A4']|[#61]|[-2-]|[4, '(A6-0x1a)']|[4, '(A6-0x1e)']|[-8-]}
<Const 0x20540 0x10.4> Δ-4 {[-8-]|[4, 'A4']|[#61]|[-2-]|[4, '(A6-0x1a)']|[4, '(A6-0x1e)']|[-8-]|[##16]}
<Call 0x20544 0x10354> {[-8-]|[4, 'A4']|[#61]|[-2-]|[4, '(A6-0x1a)']|[4, '(A6-0x1e)']|[-8-]|[##16]}
Long2Quad(a : Long) : Quad
<POP 2054a-2054c StackAdj> Δ+4 {[-8-]|[4, 'A4']|[#61]|[-2-]|[4, '(A6-0x1a)']|[4, '(A6-0x1e)']|[-8-]}
<Call 0x2054c 0x10318> {[-8-]|[4, 'A4']|[#61]|[-2-]|[4, '(A6-0x1a)']|[4, '(A6-0x1e)']|[-8-]}
Subtract(a, b : Quad) : Quad
<POP 20552-20556 StackAdj> Δ+16 {[-8-]|[4, 'A4']|[#61]|[-2-]}
<MI 20556 MOVE.L (A7)+,(A6-0x1e)> Δ+4 {[-8-]|[4, 'A4']}
<MI 20558 MOVE.L (A7)+,(A6-0x1a)> Δ+4 {[-8-]}
<MI 2055a MOVEQ.L #0x00,D7> {[-8-]}
<POP 2055c-20584 Naked> Σ-8 ↓ →0x2059c ←0x205d8
<POP 2055c-2055e StackAdj> Δ-2 {[-10-]}
<MI 2055e MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']}
<MI 20562 MOVE.L (A6-0x1a),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']|[4, '(A6-0x1a)']}
<MI 20564 MOVE.L (A6-0x1e),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']|[4, '(A6-0x1a)']|[4, '(A6-0x1e)']}
<Call 0x20566 0x202ce> {[-10-]|[4, '(A6+0x8)']|[4, '(A6-0x1a)']|[4, '(A6-0x1e)']}
<POP 2056a-2056c StackAdj> Δ+12 {[-10-]}
<MI 2056c MOVE.W (A7)+,D5> Δ+2 {[-8-]}
<MI 2056e MOVE.W D5,D0> {[-8-]}
<MI 20570 LSR.W #0x8,D0> {[-8-]}
<MI 20572 ANDI.W #0x00ff,D0> {[-8-]}
<MI 20576 CLR.L D1> {[-8-]}
<MI 20578 MOVE.W D0,D1> {[-8-]}
<MI 2057a MOVE.L D1,D6> {[-8-]}
<MI 2057c CMPI.L #0x0000007f,D6> {[-8-]}
<MI 20582 BGE 0x2059c> {[-8-]}
<POP 20584-2058c Naked> Σ-8 ↓ →0x2059c
<MI 20584 CMPI.L #0x0000001f,D6> {[-8-]}
<MI 2058a BLE 0x2059c> {[-8-]}
<POP 2058c-2059c Naked> Σ-8 Δ-6 →0x205a2
<MI 2058c MOVE.L A4,-(A7)> Δ-4 {[-8-]|[4, 'A4']}
<POP 0x2058e LimitCheck 0x0 ≤ D6 ≤ 0xff> {[-8-]|[4, 'A4']}
<MI 20598 MOVE.B D6,-(A7)> Δ-2 {[-8-]|[4, 'A4']|[2, 'D6']}
<MI 2059a BRA 0x205a2> {[-8-]|[4, 'A4']|[2, 'D6']}
<POP 2059c-205a2 Naked> Σ-8 Δ-6 ↓ ←0x2055c ←0x20584
<MI 2059c MOVE.L A4,-(A7)> Δ-4 {[-8-]|[4, 'A4']}
<Const 0x2059e 0x20.2> Δ-2 {[-8-]|[4, 'A4']|[#32]}
<POP 205a2-205ba Naked> Σ-14 Δ+6 ↓ →0x205d2 ←0x2058c
<Call 0x205a2 0x102c0> {[-14-]}
AppendChar(MOD b : String; a : char)
<POP 205a4-205a6 StackAdj> Δ+6 {[-8-]}
<MI 205a6 MOVE.W D5,D0> {[-8-]}
<MI 205a8 ANDI.W #0x00ff,D0> {[-8-]}
<MI 205ac CLR.L D1> {[-8-]}
<MI 205ae MOVE.W D0,D1> {[-8-]}
<MI 205b0 MOVE.L D1,D6> {[-8-]}
<MI 205b2 CMPI.L #0x0000007f,D6> {[-8-]}
<MI 205b8 BGE 0x205d2> {[-8-]}
<POP 205ba-205c2 Naked> Σ-8 ↓ →0x205d2
<MI 205ba CMPI.L #0x0000001f,D6> {[-8-]}
<MI 205c0 BLE 0x205d2> {[-8-]}
<POP 205c2-205d2 Naked> Σ-8 Δ-6 →0x205d8
<MI 205c2 MOVE.L A4,-(A7)> Δ-4 {[-8-]|[4, 'A4']}
<POP 0x205c4 LimitCheck 0x0 ≤ D6 ≤ 0xff> {[-8-]|[4, 'A4']}
<MI 205ce MOVE.B D6,-(A7)> Δ-2 {[-8-]|[4, 'A4']|[2, 'D6']}
<MI 205d0 BRA 0x205d8> {[-8-]|[4, 'A4']|[2, 'D6']}
<POP 205d2-205d8 Naked> Σ-8 Δ-6 ↓ ←0x205a2 ←0x205ba
<MI 205d2 MOVE.L A4,-(A7)> Δ-4 {[-8-]|[4, 'A4']}
<Const 0x205d4 0x20.2> Δ-2 {[-8-]|[4, 'A4']|[#32]}
<POP 205d8-2060a Naked> Σ-14 Δ+6 ↓ →0x2055c ←0x205c2
<Call 0x205d8 0x102c0> {[-14-]}
AppendChar(MOD b : String; a : char)
<POP 205da-205dc StackAdj> Δ+6 {[-8-]}
<POP 205dc-205de StackAdj> Δ-8 {[-16-]}
<MI 205de MOVE.L (A6-0x1a),-(A7)> Δ-4 {[-16-]|[4, '(A6-0x1a)']}
<MI 205e0 MOVE.L (A6-0x1e),-(A7)> Δ-4 {[-16-]|[4, '(A6-0x1a)']|[4, '(A6-0x1e)']}
<POP 205e2-205e4 StackAdj> Δ-8 {[-16-]|[4, '(A6-0x1a)']|[4, '(A6-0x1e)']|[-8-]}
<Const 0x205e4 0x2.4> Δ-4 {[-16-]|[4, '(A6-0x1a)']|[4, '(A6-0x1e)']|[-8-]|[##2]}
<Call 0x205e8 0x10354> {[-16-]|[4, '(A6-0x1a)']|[4, '(A6-0x1e)']|[-8-]|[##2]}
Long2Quad(a : Long) : Quad
<POP 205ee-205f0 StackAdj> Δ+4 {[-16-]|[4, '(A6-0x1a)']|[4, '(A6-0x1e)']|[-8-]}
<Call 0x205f0 0x10314> {[-16-]|[4, '(A6-0x1a)']|[4, '(A6-0x1e)']|[-8-]}
Add(a, b : Quad) : Quad
<POP 205f6-205fa StackAdj> Δ+16 {[-16-]}
<MI 205fa MOVE.L (A7)+,(A6-0x1e)> Δ+4 {[-12-]}
<MI 205fc MOVE.L (A7)+,(A6-0x1a)> Δ+4 {[-8-]}
<MI 205fe ADDQ.L #0x1,D7> {[-8-]}
<MI 20600 CMPI.L #0x00000007,D7> {[-8-]}
<MI 20606 BLE 0x2055c> {[-8-]}
<POP 2060a-2061a Naked> Σ-8 ↓ →0x20620
<MI 2060a MOVE.L A4,-(A7)> Δ-4 {[-8-]|[4, 'A4']}
<Call 0x2060c 0x103e0> {[-8-]|[4, 'A4']}
WriteConsoleStringCrLf(str : String)
<POP 20612-20614 StackAdj> Δ+4 {[-8-]}
<MI 20614 MOVE.L (A7),D0> {[-8-]}
<MI 20616 ADDQ.L #0x1,D0> {[-8-]}
<MI 20618 BVS 0x20620> {[-8-]}
<POP 2061a-20620 Naked> Σ-8 Δ+4 →0x20496
<POP 2061a-2061c StackAdj> Δ+4 {[-4-]}
<MI 2061c BRA 0x20496> {[-4-]}
<POP 20620-20622 Naked> Σ-8 Δ+8 ↓ ←0x2049a ←0x2060a
<POP 20620-20622 StackAdj> Δ+8 {}
<POP 20622-2062a Naked> Σ0 ↓ →0x2044c ←0x2047c
<MI 20622 TST.B (A6-0x12)> {}
<MI 20626 BEQ 0x2044c> {}
<POP 2062a-20632 Epilogue> Σ0
@ 20632
<LVAR 0x008 4(r)>
<POP 20632-2069e Body>
<POP 20632-20648 Prologue> Σ0 ↓
<POP 20648-2065c Naked> Σ0 ↓ →0x20696
<MI 20648 MOVEA.L (A6+0x8),A0> {}
<POP 2064c-2064e StackAdj> Δ-4 {[-4-]}
<Call 0x2064e 0x103c4> {[-4-]}
GetArgv() : String
<MI 20654 MOVE.L (A7)+,(A0)> Δ+4 {}
<MI 20656 MOVEA.L (A0),A1> {}
<MI 20658 TST.W (A1)> {}
<MI 2065a BNE 0x20696> {}
<POP 2065c-20696 Naked> Σ0 ↓
<MI 2065c PEA.L (A0)> Δ-4 {[4, '^(A0)']}
<Call 0x2065e 0x102bc> {[4, '^(A0)']}
FreeString(VAR a : String)
<POP 20664-20665 StackAdj> Δ+4 ↓ {}
<Blob 0x20665 [8] @> Δ-8 {[«8""»]}
<POP 20674-20676 StackAdj> Δ-8 {[«8""»]|[-8-]}
<Lit 0x20676 7> {[«8""»]|[-4-]|[$$File :_]}
<Call 0x2068a 0x103e4> {[«8""»]|[-4-]|[$$File :_]}
AskConsoleString(prompt : String) : String
<POP 20690-20692 StackAdj> Δ+4 {[«8""»]|[-4-]}
<MI 20692 MOVE.L (A7)+,(A0)> Δ+4 {[«8""»]}
<POP 20694-20696 StackAdj> Δ+8 {}
<POP 20696-2069e Epilogue> Σ0 ←0x20648
@ 2069e
START
<POP 2069e--0001 Body>
<POP 2069e-206a8 Prologue> Σ0
<POP 206a8-206be RegCacheLoad> Σ0 ↓
<POP 206be-20714 Naked> Σ0 ↓
<Call 0x206be 0x10398> {}
FSCALL_10398
<Const 0x206c4 0x20d2c.4> Δ-4 {[##134444]}
<Call 0x206c6 0x20632> {[##134444]}
<POP 206ca-206cb StackAdj> Δ+4 {}
<Blob 0x206cb [4] 0x20d2c> Δ-4 {[«4»]}
<MI 206cc CLR.B -(A7)> Δ-2 {[«4»]|[#0]}
<Const 0x206ce 0x2.2> Δ-2 {[«4»]|[#0]|[#2]}
<Const 0x206d0 0x0.4> Δ-4 {[«4»]|[#0]|[#2]|[##0]}
<Const 0x206d4 0x20d30.4> Δ-4 {[«4»]|[#0]|[#2]|[##0]|[##134448]}
<Const 0x206d6 0x20d32.4> Δ-4 {[«4»]|[#0]|[#2]|[##0]|[##134448]|[##134450]}
<Call 0x206d8 0x10380> {[«4»]|[#0]|[#2]|[##0]|[##134448]|[##134450]}
OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
<POP 206de-206e0 StackAdj> Δ+16 {[«4»]}
<POP 206e0-206e1 StackAdj> Δ+4 {}
<Blob 0x206e1 [4] 0x20d32> Δ-4 {[«4»]}
<Call 0x206e2 0x20418> {[«4»]}
<POP 206e6-206e8 StackAdj> Δ+2 {[-2-]}
<MI 206e8 CLR.B (A7)> {[-2-]}
<Const 0x206ea 0x2.2> Δ-2 {[-2-]|[#2]}
<Const 0x206ec 0x1.4> Δ-4 {[-2-]|[#2]|[##1]}
<Const 0x206f0 0x20d30.4> Δ-4 {[-2-]|[#2]|[##1]|[##134448]}
<Const 0x206f2 0x20d32.4> Δ-4 {[-2-]|[#2]|[##1]|[##134448]|[##134450]}
<Call 0x206f4 0x1038c> {[-2-]|[#2]|[##1]|[##134448]|[##134450]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 206fa-206fc StackAdj> Δ+16 {}
<Const 0x206fc 0x20d2c.4> Δ-4 {[##134444]}
<Call 0x206fe 0x102bc> {[##134444]}
FreeString(VAR a : String)
<POP 20704-20706 StackAdj> Δ+2 {[-2-]}
<MI 20706 CLR.B (A7)> {[-2-]}
<Const 0x20708 0x1.4> Δ-4 {[-2-]|[##1]}
<Call 0x2070c 0x103b8> {[-2-]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 20712-20714 StackAdj> Δ+6 {}
<POP 20714-2071a Naked> Σ0
<Call 0x20714 0x10284> {}
?exit
@ 20728
PROG_FAIL
<LVAR 0x008 1(r)>
<POP 20728-20790 Body>
<POP 20728-2073e Prologue> Σ0 ↓
<POP 2073e-20788 Naked> Σ0 ↓
<Blob 0x2073e [14] @> Δ-14 {[«14""»]}
<Const 0x2074a 0x3.2> Δ-2 {[«14""»]|[#3]}
<POP 2074e-20750 StackAdj> Δ-8 {[«14""»]|[#3]|[-8-]}
<Lit 0x20750 14> {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
<POP 20762-20764 StackAdj> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 20764 MOVE.B (A6+0x8),D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 20768 EXTB.W D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 2076a EXTW.L D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 2076c MOVE.L D0,-(A7)> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
<Call 0x2076e 0x102e4> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 20774-20776 StackAdj> Δ+4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<Call 0x20776 0x102d0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 2077c-2077e StackAdj> Δ+8 {[«14""»]|[#3]|[-4-]}
<Call 0x2077e 0x103b8> {[«14""»]|[#3]|[-4-]}
PopProgram(status : Byte; msg : String)
<POP 20784-20788 StackAdj> Δ+20 {}
<POP 20788-20790 Epilogue> Σ0
@ 207e4
EXP_FAIL
<LVAR 0x00e 1(r)>
<LVAR 0x00a 4(r)>
<LVAR 0x008 1(r)>
<POP 207e4-20920 Body>
<POP 207e4-207fa Prologue> Σ0 ↓
<POP 207fa-20810 RegCacheLoad> Σ0 ↓
<POP 20810-20870 Naked> Σ0 ↓ →0x208b8
<Call 0x20810 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x20816 [18] @> Δ-18 {[«18""»]}
<POP 20822-20824 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x20824 18> {[«18""»]|[$$Experiment error :]}
<Call 0x20830 0x103e0> {[«18""»]|[$$Experiment error :]}
WriteConsoleStringCrLf(str : String)
<POP 20832-20833 StackAdj> Δ+22 ↓ {}
<Blob 0x20833 [14] @> Δ-14 {[«14""»]}
<POP 20842-20844 StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x20844 13> {[«14""»]|[-4-]|[$$Board :_]}
<POP 2084e-20850 StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<MI 20850 MOVE.B (A6+0xe),(A7)> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<Call 0x20854 0x1049c> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
BoardName(address : B) : String
<POP 2085a-2085c StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
<Call 0x2085c 0x102d0> {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 20862-20864 StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x20864 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 20866-20868 StackAdj> Δ+18 {}
<MI 20868 MOVEA.L (A6+0xa),A0> {}
<MI 2086c CMPA.W #0x01,A0> {}
<MI 2086e BEQ 0x208b8> {}
<POP 20870-208b8 Naked> Σ0 ↓
<Blob 0x20870 [14] @> Δ-14 {[«14""»]}
<Blob 0x20880 [30] (A0+0xfc)> Δ-30 {[«14""»]|[«30»]}
<POP 20890-20892 StackAdj> Δ-8 {[«14""»]|[«30»]|[-8-]}
<Lit 0x20892 13> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
<POP 2089c-2089e StackAdj> Δ-4 {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
<Lit 0x2089e> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
<Pointer.sp 0x2089e 12> Δ-4
<Const 0x208a2 0x1.2> Δ-2
<Const 0x208a4 0x1e.2> Δ-2
<Call 0x208a6 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 208a8-208aa StackAdj> Δ+8
<Call 0x208aa 0x102d0> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
StringCat2(a, b : String) : String
<POP 208b0-208b2 StackAdj> Δ+8 {[«14""»]|[«30»]|[-4-]}
<Call 0x208b2 0x103e0> {[«14""»]|[«30»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 208b4-208b8 StackAdj> Δ+48 {}
<POP 208b8-20918 Naked> Σ0 ↓ ←0x20810
<Blob 0x208b8 [14] @> Δ-14 {[«14""»]}
<POP 208c8-208ca StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x208ca 13> {[«14""»]|[-4-]|[$$Status :_]}
<POP 208d4-208d6 StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<MI 208d6 MOVE.B (A6+0x8),(A7)> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<Call 0x208da 0x104a2> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
ExpStatus2Text(status.B, &String)
<POP 208e0-208e2 StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
<Call 0x208e2 0x102d0> {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 208e8-208ea StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x208ea 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 208ec-208ed StackAdj> Δ+18 ↓ {}
<Blob 0x208ed [24] @> Δ-24 {[«24""»]}
<Const 0x208fc 0x2.2> Δ-2 {[«24""»]|[#2]}
<POP 20900-20902 StackAdj> Δ-4 {[«24""»]|[#2]|[-4-]}
<Lit 0x20902 23> {[«24""»]|[#2]|[$$Fatal experiment error.]}
<Call 0x20910 0x103b8> {[«24""»]|[#2]|[$$Fatal experiment error.]}
PopProgram(status : Byte; msg : String)
<POP 20916-20918 StackAdj> Δ+30 {}
<POP 20918-20920 Epilogue> Σ0
00020000 ; -------------------------------------------------------------------------------------- 00020000 ; R1000.Disassembly modules: 00020000 ; import all 00020000 ; import kind.program 00020000 ; no ident.cdffe2c5f7fa91fe 00020000 ; -------------------------------------------------------------------------------------- 00020000 stack.top: 00020000 00 04 00 00 | | .CODE 0x40000 ; STACK.END 00020004 00 02 06 9e | | .CODE START 00020008 00 01 02 88 | | .CODE FSCALL_10288 0002000c heap.top: 0002000c 00 02 0d 48 | H | .PTR 0x20d48 00020010 code.end: 00020010 00 02 09 20 | | .PTR 0x20920 00020014 00 00 00 00 | | .CONST 0x00000000 00020018 programfailurehandler: 00020018 00 02 07 28 | ( | .CODE PROG_FAIL 0002001c experimentfailurehandler: 0002001c 00 02 07 e4 | | .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 4c 4f |@(#)LO | .XXX[0x6] 00020110 4f 4b 2c 31 2e 31 2c 39 |OK,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 42 59 |BY | .TXT 'BY' 0002012c 45 20 |E | .XXX[0x2] 0002012e 3e 20 |> | .TXT '> ' 00020130 3f 3f |?? | .TXT '??' 00020132 46 69 6c 65 20 3a 5f 20 |File :_ | .TXT 'File :_ ' 0002013a 00 00 00 00 00 00 | | .XXX[0x6] 00020140 ff ff 70 00 0e 00 01 c0 | p | .XXX[0x10] 00020148 00 38 00 07 10 00 02 00 | 8 | 00020150 00 40 00 08 00 01 | @ | .XXX[0x6] 00020156 ; -------------------------------------------------------------------------------------- 00020156 ; OMSI PASCAL Function 00020156 ; <LVAR 0x010 4(r)> 00020156 ; <LVAR 0x00c 4(r)> 00020156 ; <LVAR 0x008 4(r)> 00020156 ; <LVAR -0x004 @ 1(r)> 00020156 ; <LVAR -0x008 @ 4(rw)> 00020156 ; <LVAR -0x00c @ 4(r)> 00020156 ; <LVAR -0x010 @ 4(rw)> 00020156 ; -------------------------------------------------------------------------------------- 00020156 4e 56 ff b2 |NV | LINK.W A6,#0xffb2 0002015a bf d5 | | CMPA.L (A5),A7 0002015c 62 06 |b | BHI 0x20164 0002015e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020162 4e 76 |Nv | TRAPV 00020164 de fc 00 3e | > | ADDA.W #0x3e,A7 00020168 48 e7 f0 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D3+D2+D1+D0,-(A7) 0002016c 45 ee ff f4 |E | LEA.L (A6-0xc),A2 00020170 47 ee ff fc |G | LEA.L (A6-0x4),A3 00020174 49 ee ff f0 |I | LEA.L (A6-0x10),A4 00020178 72 01 |r | MOVEQ.L #0x01,D1 0002017a 74 0c |t | MOVEQ.L #0x0c,D2 0002017c 76 02 |v | MOVEQ.L #0x02,D3 0002017e 59 4f |YO | SUBQ.L #0x4,A7 00020180 1e ba ff a8 | | MOVE.B 0x2012a,(A7) 00020184 1f 7a ff a5 00 01 | z | MOVE.B 0x2012b,(A7+0x1) 0002018a 1f 7a ff a0 00 02 | z | MOVE.B 0x2012c,(A7+0x2) 00020190 59 4f |YO | SUBQ.L #0x4,A7 00020192 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020196 3f 01 |? | MOVE.W D1,-(A7) 00020198 3f 3c 00 03 |?< | MOVE.W #0x3,-(A7) 0002019c 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000201a2 50 4f |PO | ADDQ.L #0x8,A7 000201a4 2d 5f ff f8 |-_ | MOVE.L (A7)+,(A6-0x8) 000201a8 58 4f |XO | ADDQ.L #0x4,A7 000201aa 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 000201ae 42 10 |B | CLR.B (A0) 000201b0 3f 3a ff 7c |?: | | MOVE.W 0x2012e,-(A7) 000201b4 9e c2 | | SUBA.W D2,A7 000201b6 48 6f 00 0c |Ho | PEA.L (A7+0xc) 000201ba 3f 01 |? | MOVE.W D1,-(A7) 000201bc 3f 03 |? | MOVE.W D3,-(A7) 000201be 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000201c4 50 4f |PO | ADDQ.L #0x8,A7 000201c6 4e b9 00 01 03 e4 |N | JSR AskConsoleString(prompt : String) : String 000201cc 58 4f |XO | ADDQ.L #0x4,A7 000201ce 4e b9 00 01 02 f0 |N | JSR ToUpper(a : String) : String 000201d4 58 4f |XO | ADDQ.L #0x4,A7 000201d6 28 9f |( | MOVE.L (A7)+,(A4) 000201d8 54 4f |TO | ADDQ.L #0x2,A7 000201da 48 52 |HR | PEA.L (A2) 000201dc 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 000201e2 54 4f |TO | ADDQ.L #0x2,A7 000201e4 2f 14 |/ | MOVE.L (A4),-(A7) 000201e6 2f 2e ff f8 |/. | MOVE.L (A6-0x8),-(A7) 000201ea 4e b9 00 01 02 c8 |N | JSR StringEqual(a, b : String) : Byte 000201f0 50 4f |PO | ADDQ.L #0x8,A7 000201f2 4a 1f |J | TST.B (A7)+ 000201f4 67 0a |g | BEQ 0x20200 000201f6 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 000201fa 10 81 | | MOVE.B D1,(A0) 000201fc 60 00 00 b2 |` | BRA 0x202b0 00020200 2f 14 |/ | MOVE.L (A4),-(A7) 00020202 2f 12 |/ | MOVE.L (A2),-(A7) 00020204 48 53 |HS | PEA.L (A3) 00020206 4e b9 00 01 02 fc |N | JSR FirstField(MOD input : String; MOD output : String; VAR c : Bool 0002020c de c2 | | ADDA.W D2,A7 0002020e 4a 13 |J | TST.B (A3) 00020210 66 02 |f | BNE 0x20214 00020212 60 70 |`p | BRA 0x20284 00020214 20 6e 00 10 | n | MOVEA.L (A6+0x10),A0 00020218 9e c2 | | SUBA.W D2,A7 0002021a 2f 12 |/ | MOVE.L (A2),-(A7) 0002021c 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 00020222 58 4f |XO | ADDQ.L #0x4,A7 00020224 48 78 00 10 |Hx | PEA.L 0x10 00020228 4e b9 00 01 03 60 |N ` | JSR ?StringToInt64() 0002022e 50 4f |PO | ADDQ.L #0x8,A7 00020230 22 4f |"O | MOVEA.L A7,A1 00020232 70 07 |p | MOVEQ.L #0x07,D0 00020234 10 d9 | | MOVE.B (A1)+,(A0)+ 00020236 51 c8 ff fc |Q | DBF D0,0x20234 0002023a 58 4f |XO | ADDQ.L #0x4,A7 0002023c 2e 94 |. | MOVE.L (A4),(A7) 0002023e 2f 12 |/ | MOVE.L (A2),-(A7) 00020240 48 53 |HS | PEA.L (A3) 00020242 4e b9 00 01 02 fc |N | JSR FirstField(MOD input : String; MOD output : String; VAR c : Bool 00020248 de c2 | | ADDA.W D2,A7 0002024a 48 54 |HT | PEA.L (A4) 0002024c 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00020252 58 4f |XO | ADDQ.L #0x4,A7 00020254 4a 13 |J | TST.B (A3) 00020256 66 08 |f | BNE 0x20260 00020258 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 0002025c 20 81 | | MOVE.L D1,(A0) 0002025e 60 22 |`" | BRA 0x20282 00020260 59 4f |YO | SUBQ.L #0x4,A7 00020262 2f 12 |/ | MOVE.L (A2),-(A7) 00020264 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 0002026a 58 4f |XO | ADDQ.L #0x4,A7 0002026c 48 53 |HS | PEA.L (A3) 0002026e 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 00020272 48 50 |HP | PEA.L (A0) 00020274 4e b9 00 01 02 ec |N | JSR String2Long(src : String; VAR status : Bool; VAR retval : Long) 0002027a de c2 | | ADDA.W D2,A7 0002027c 4a 13 |J | TST.B (A3) 0002027e 66 02 |f | BNE 0x20282 00020280 60 02 |` | BRA 0x20284 00020282 60 2c |`, | BRA 0x202b0 00020284 3f 3a fe aa |?: | MOVE.W 0x20130,-(A7) 00020288 59 4f |YO | SUBQ.L #0x4,A7 0002028a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002028e 3f 01 |? | MOVE.W D1,-(A7) 00020290 3f 03 |? | MOVE.W D3,-(A7) 00020292 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020298 50 4f |PO | ADDQ.L #0x8,A7 0002029a 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000202a0 5c 4f |\O | ADDQ.L #0x6,A7 000202a2 48 52 |HR | PEA.L (A2) 000202a4 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000202aa 58 4f |XO | ADDQ.L #0x4,A7 000202ac 60 00 ff 02 |` | BRA 0x201b0 000202b0 48 52 |HR | PEA.L (A2) 000202b2 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000202b8 58 4f |XO | ADDQ.L #0x4,A7 000202ba 48 6e ff f8 |Hn | PEA.L (A6-0x8) 000202be 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000202c4 58 4f |XO | ADDQ.L #0x4,A7 000202c6 4c df 1f 0f |L | MOVEM.L (A7)+,D0+D1+D2+D3+A0+A1+A2+A3+A4 000202ca 4e 5e |N^ | UNLK A6 000202cc 4e 75 |Nu | RTS 000202ce ; -------------------------------------------------------------------------------------- 000202ce ; OMSI PASCAL Function 000202ce ; <LVAR 0x014 2(w)> 000202ce ; <LVAR 0x010 4(r)> 000202ce ; <LVAR 0x00e 2(r)> 000202ce ; <LVAR 0x00c 4(r)> 000202ce ; <LVAR 0x008 4(r)> 000202ce ; <LVAR -0x004 @ 1(r)> 000202ce ; -------------------------------------------------------------------------------------- 000202ce 4e 56 ff c4 |NV | LINK.W A6,#0xffc4 000202d2 bf d5 | | CMPA.L (A5),A7 000202d4 62 06 |b | BHI 0x202dc 000202d6 44 fc 00 02 |D | MOVE.W #0x2,CCR 000202da 4e 76 |Nv | TRAPV 000202dc de fc 00 34 | 4 | ADDA.W #0x34,A7 000202e0 48 e7 c3 c0 |H | MOVEM.L A1+A0+D7+D6+D1+D0,-(A7) 000202e4 43 f9 00 02 09 28 |C ( | LEA.L 0x20928,A1 000202ea 72 0c |r | MOVEQ.L #0x0c,D1 000202ec 9e c1 | | SUBA.W D1,A7 000202ee 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 000202f2 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000202f6 48 78 ff f6 |Hx | PEA.L 0xfffffff6 000202fa 4e b9 00 01 03 44 |N D | JSR BitShift(a : Quad ; howmuch : integer) : Quad 00020300 de c1 | | ADDA.W D1,A7 00020302 4e b9 00 01 03 50 |N P | JSR Quad2Long(a : Quad) : Long 00020308 50 4f |PO | ADDQ.L #0x8,A7 0002030a 2e 1f |. | MOVE.L (A7)+,D7 0002030c be 91 | | CMP.L (A1),D7 0002030e 67 40 |g@ | BEQ 0x20350 00020310 2f 2e 00 10 |/. | MOVE.L (A6+0x10),-(A7) 00020314 0c 87 00 00 40 00 | @ | CMPI.L #0x00004000,D7 0002031a 63 02 |c | BLS 0x2031e 0002031c 4e 4f |NO | TRAP #15 0002031e 3f 07 |? | MOVE.W D7,-(A7) 00020320 42 67 |Bg | CLR.W -(A7) 00020322 3f 3c 02 00 |?< | MOVE.W #0x200,-(A7) 00020326 1f 3c 00 01 | < | MOVE.B #0x01,-(A7) 0002032a 41 f9 00 02 09 2c |A , | LEA.L 0x2092c,A0 00020330 2f 08 |/ | MOVE.L A0,-(A7) 00020332 48 6e ff fc |Hn | PEA.L (A6-0x4) 00020336 4e b9 00 01 03 84 |N | JSR ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L) 0002033c de fc 00 14 | | ADDA.W #0x14,A7 00020340 4a 2e ff fc |J. | TST.B (A6-0x4) 00020344 66 04 |f | BNE 0x2034a 00020346 22 87 |" | MOVE.L D7,(A1) 00020348 60 06 |` | BRA 0x20350 0002034a 22 bc ff ff ff ff |" | MOVE.L #0xffffffff,(A1) 00020350 3c 2e 00 0e |<. | MOVE.W (A6+0xe),D6 00020354 02 46 03 ff | F | ANDI.W #0x03ff,D6 00020358 e2 4e | N | LSR.W #0x1,D6 0002035a 4d bc 01 ff |M | CHK.W #0x1ff,D6 0002035e 42 80 |B | CLR.L D0 00020360 30 06 |0 | MOVE.W D6,D0 00020362 e3 80 | | ASL.L #0x1,D0 00020364 41 f9 00 02 09 20 |A | LEA.L 0x20920,A0 0002036a 3d 70 08 0c 00 14 |=p | MOVE.W (A0+D0.L+#0xc),(A6+0x14) 00020370 4c df 03 c3 |L | MOVEM.L (A7)+,D0+D1+D6+D7+A0+A1 00020374 4e 5e |N^ | UNLK A6 00020376 4e 75 |Nu | RTS 00020378 ; -------------------------------------------------------------------------------------- 00020378 ; OMSI PASCAL Function 00020378 ; <LVAR 0x00a 4(w)> 00020378 ; <LVAR 0x008 2(r)> 00020378 ; <LVAR -0x00a @ 4(r)> 00020378 ; -------------------------------------------------------------------------------------- 00020378 4e 56 ff c0 |NV | LINK.W A6,#0xffc0 0002037c bf d5 | | CMPA.L (A5),A7 0002037e 62 06 |b | BHI 0x20386 00020380 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020384 4e 76 |Nv | TRAPV 00020386 de fc 00 2e | . | ADDA.W #0x2e,A7 0002038a 48 e7 df 80 |H | MOVEM.L A0+D7+D6+D5+D4+D3+D1+D0,-(A7) 0002038e 41 ee ff f6 |A | LEA.L (A6-0xa),A0 00020392 72 0a |r | MOVEQ.L #0x0a,D1 00020394 48 50 |HP | PEA.L (A0) 00020396 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 0002039c 58 4f |XO | ADDQ.L #0x4,A7 0002039e 2e 3c 00 00 10 00 |.< | MOVE.L #0x1000,D7 000203a4 7c 00 || | MOVEQ.L #0x00,D6 000203a6 42 84 |B | CLR.L D4 000203a8 38 2e 00 08 |8. | MOVE.W (A6+0x8),D4 000203ac 26 07 |& | MOVE.L D7,D3 000203ae 4e b9 00 01 02 98 |N | JSR ?divu_d3_d4 000203b4 02 84 00 00 00 0f | | ANDI.L #0x0000000f,D4 000203ba 2a 04 |* | MOVE.L D4,D5 000203bc ba 81 | | CMP.L D1,D5 000203be 6c 16 |l | BGE 0x203d6 000203c0 2f 10 |/ | MOVE.L (A0),-(A7) 000203c2 20 05 | | MOVE.L D5,D0 000203c4 06 80 00 00 00 30 | 0 | ADDI.L #0x00000030,D0 000203ca 0c 80 00 00 00 ff | | CMPI.L #0x000000ff,D0 000203d0 63 02 |c | BLS 0x203d4 000203d2 4e 4f |NO | TRAP #15 000203d4 60 16 |` | BRA 0x203ec 000203d6 2f 10 |/ | MOVE.L (A0),-(A7) 000203d8 20 05 | | MOVE.L D5,D0 000203da 90 81 | | SUB.L D1,D0 000203dc 06 80 00 00 00 41 | A | ADDI.L #0x00000041,D0 000203e2 0c 80 00 00 00 ff | | CMPI.L #0x000000ff,D0 000203e8 63 02 |c | BLS 0x203ec 000203ea 4e 4f |NO | TRAP #15 000203ec 1f 00 | | MOVE.B D0,-(A7) 000203ee 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 000203f4 5c 4f |\O | ADDQ.L #0x6,A7 000203f6 28 07 |( | MOVE.L D7,D4 000203f8 76 10 |v | MOVEQ.L #0x10,D3 000203fa 4e b9 00 01 02 94 |N | JSR ?divs_d3_d4 00020400 2e 04 |. | MOVE.L D4,D7 00020402 52 86 |R | ADDQ.L #0x1,D6 00020404 0c 86 00 00 00 03 | | CMPI.L #0x00000003,D6 0002040a 6f 9a |o | BLE 0x203a6 0002040c 2d 50 00 0a |-P | MOVE.L (A0),(A6+0xa) 00020410 4c df 01 fb |L | MOVEM.L (A7)+,D0+D1+D3+D4+D5+D6+D7+A0 00020414 4e 5e |N^ | UNLK A6 00020416 4e 75 |Nu | RTS 00020418 ; -------------------------------------------------------------------------------------- 00020418 ; OMSI PASCAL Function 00020418 ; <LVAR 0x008 4(r)> 00020418 ; <LVAR -0x012 @ 1(r)> 00020418 ; <LVAR -0x016 @ 4(rw)> 00020418 ; <LVAR -0x018 2(w)> 00020418 ; <LVAR -0x01a 4(rw)> 00020418 ; <LVAR -0x01e @ 4(rw)> 00020418 ; -------------------------------------------------------------------------------------- 00020418 4e 56 ff 74 |NV t | LINK.W A6,#0xff74 0002041c bf d5 | | CMPA.L (A5),A7 0002041e 62 06 |b | BHI 0x20426 00020420 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020424 4e 76 |Nv | TRAPV 00020426 de fc 00 64 | d | ADDA.W #0x64,A7 0002042a 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 0002042e 41 ee ff e2 |A | LEA.L (A6-0x1e),A0 00020432 43 ee ff e6 |C | LEA.L (A6-0x1a),A1 00020436 45 ee ff ea |E | LEA.L (A6-0x16),A2 0002043a 47 f9 00 01 02 c0 |G | LEA.L AppendChar(MOD b : String; a : char),A3 00020440 74 0c |t | MOVEQ.L #0x0c,D2 00020442 23 fc ff ff ff ff 00 02 |# | MOVE.L #0xffffffff,0x20928 0002044a 09 28 | ( | 0002044c 48 50 |HP | PEA.L (A0) 0002044e 48 52 |HR | PEA.L (A2) 00020450 48 6e ff ee |Hn | PEA.L (A6-0x12) 00020454 4e ba fd 00 |N | JSR 0x20156 00020458 de c2 | | ADDA.W D2,A7 0002045a 02 6e ff f0 ff e8 | n | ANDI.W #0xfff0,(A6-0x18) 00020460 20 12 | | MOVE.L (A2),D0 00020462 0c 80 00 00 00 08 | | CMPI.L #0x00000008,D0 00020468 6c 08 |l | BGE 0x20472 0002046a 24 bc 00 00 00 08 |$ | MOVE.L #0x8,(A2) 00020470 60 0a |` | BRA 0x2047c 00020472 5e 80 |^ | ADDQ.L #0x7,D0 00020474 02 80 00 00 ff f8 | | ANDI.L #0x0000fff8,D0 0002047a 24 80 |$ | MOVE.L D0,(A2) 0002047c 4a 2e ff ee |J. | TST.B (A6-0x12) 00020480 66 00 01 a0 |f | BNE 0x20622 00020484 2f 12 |/ | MOVE.L (A2),-(A7) 00020486 53 97 |S | SUBQ.L #0x1,(A7) 00020488 28 17 |( | MOVE.L (A7),D4 0002048a 76 08 |v | MOVEQ.L #0x08,D3 0002048c 4e b9 00 01 02 94 |N | JSR ?divs_d3_d4 00020492 2e 84 |. | MOVE.L D4,(A7) 00020494 70 00 |p | MOVEQ.L #0x00,D0 00020496 b0 97 | | CMP.L (A7),D0 00020498 6f 06 |o | BLE 0x204a0 0002049a 59 4f |YO | SUBQ.L #0x4,A7 0002049c 60 00 01 82 |` | BRA 0x20620 000204a0 2f 00 |/ | MOVE.L D0,-(A7) 000204a2 51 4f |QO | SUBQ.L #0x8,A7 000204a4 2f 11 |/ | MOVE.L (A1),-(A7) 000204a6 2f 10 |/ | MOVE.L (A0),-(A7) 000204a8 48 78 00 10 |Hx | PEA.L 0x10 000204ac 4e b9 00 01 03 5c |N \ | JSR Quad2String(a : Quad; radix : Long ) : String 000204b2 de c2 | | ADDA.W D2,A7 000204b4 48 78 00 05 |Hx | PEA.L 0x5 000204b8 4e b9 00 01 02 f4 |N | JSR RightPad(a : String; b : Long) : String 000204be 50 4f |PO | ADDQ.L #0x8,A7 000204c0 28 5f |(_ | MOVEA.L (A7)+,A4 000204c2 2f 0c |/ | MOVE.L A4,-(A7) 000204c4 1f 3c 00 3d | < = | MOVE.B #0x3d,-(A7) 000204c8 4e 93 |N | JSR (A3) 000204ca 5c 4f |\O | ADDQ.L #0x6,A7 000204cc 7e 00 |~ | MOVEQ.L #0x00,D7 000204ce 59 4f |YO | SUBQ.L #0x4,A7 000204d0 2f 0c |/ | MOVE.L A4,-(A7) 000204d2 5d 4f |]O | SUBQ.L #0x6,A7 000204d4 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000204d8 2f 11 |/ | MOVE.L (A1),-(A7) 000204da 2f 10 |/ | MOVE.L (A0),-(A7) 000204dc 4e ba fd f0 |N | JSR 0x202ce 000204e0 de c2 | | ADDA.W D2,A7 000204e2 4e ba fe 94 |N | JSR 0x20378 000204e6 54 4f |TO | ADDQ.L #0x2,A7 000204e8 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000204ee 50 4f |PO | ADDQ.L #0x8,A7 000204f0 28 5f |(_ | MOVEA.L (A7)+,A4 000204f2 51 4f |QO | SUBQ.L #0x8,A7 000204f4 2f 11 |/ | MOVE.L (A1),-(A7) 000204f6 2f 10 |/ | MOVE.L (A0),-(A7) 000204f8 51 4f |QO | SUBQ.L #0x8,A7 000204fa 48 78 00 02 |Hx | PEA.L 0x2 000204fe 4e b9 00 01 03 54 |N T | JSR Long2Quad(a : Long) : Quad 00020504 58 4f |XO | ADDQ.L #0x4,A7 00020506 4e b9 00 01 03 14 |N | JSR Add(a, b : Quad) : Quad 0002050c de fc 00 10 | | ADDA.W #0x10,A7 00020510 20 9f | | MOVE.L (A7)+,(A0) 00020512 22 9f |" | MOVE.L (A7)+,(A1) 00020514 0c 87 00 00 00 07 | | CMPI.L #0x00000007,D7 0002051a 67 0a |g | BEQ 0x20526 0002051c 2f 0c |/ | MOVE.L A4,-(A7) 0002051e 1f 3c 00 20 | < | MOVE.B #0x20,-(A7) 00020522 4e 93 |N | JSR (A3) 00020524 5c 4f |\O | ADDQ.L #0x6,A7 00020526 52 87 |R | ADDQ.L #0x1,D7 00020528 0c 87 00 00 00 07 | | CMPI.L #0x00000007,D7 0002052e 6f 9e |o | BLE 0x204ce 00020530 2f 0c |/ | MOVE.L A4,-(A7) 00020532 1f 3c 00 3d | < = | MOVE.B #0x3d,-(A7) 00020536 4e 93 |N | JSR (A3) 00020538 55 4f |UO | SUBQ.L #0x2,A7 0002053a 2f 11 |/ | MOVE.L (A1),-(A7) 0002053c 2f 10 |/ | MOVE.L (A0),-(A7) 0002053e 51 4f |QO | SUBQ.L #0x8,A7 00020540 48 78 00 10 |Hx | PEA.L 0x10 00020544 4e b9 00 01 03 54 |N T | JSR Long2Quad(a : Long) : Quad 0002054a 58 4f |XO | ADDQ.L #0x4,A7 0002054c 4e b9 00 01 03 18 |N | JSR Subtract(a, b : Quad) : Quad 00020552 de fc 00 10 | | ADDA.W #0x10,A7 00020556 20 9f | | MOVE.L (A7)+,(A0) 00020558 22 9f |" | MOVE.L (A7)+,(A1) 0002055a 7e 00 |~ | MOVEQ.L #0x00,D7 0002055c 55 4f |UO | SUBQ.L #0x2,A7 0002055e 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00020562 2f 11 |/ | MOVE.L (A1),-(A7) 00020564 2f 10 |/ | MOVE.L (A0),-(A7) 00020566 4e ba fd 66 |N f | JSR 0x202ce 0002056a de c2 | | ADDA.W D2,A7 0002056c 3a 1f |: | MOVE.W (A7)+,D5 0002056e 30 05 |0 | MOVE.W D5,D0 00020570 e0 48 | H | LSR.W #0x8,D0 00020572 02 40 00 ff | @ | ANDI.W #0x00ff,D0 00020576 42 81 |B | CLR.L D1 00020578 32 00 |2 | MOVE.W D0,D1 0002057a 2c 01 |, | MOVE.L D1,D6 0002057c 0c 86 00 00 00 7f | | CMPI.L #0x0000007f,D6 00020582 6c 18 |l | BGE 0x2059c 00020584 0c 86 00 00 00 1f | | CMPI.L #0x0000001f,D6 0002058a 6f 10 |o | BLE 0x2059c 0002058c 2f 0c |/ | MOVE.L A4,-(A7) 0002058e 0c 86 00 00 00 ff | | CMPI.L #0x000000ff,D6 00020594 63 02 |c | BLS 0x20598 00020596 4e 4f |NO | TRAP #15 00020598 1f 06 | | MOVE.B D6,-(A7) 0002059a 60 06 |` | BRA 0x205a2 0002059c 2f 0c |/ | MOVE.L A4,-(A7) 0002059e 1f 3c 00 20 | < | MOVE.B #0x20,-(A7) 000205a2 4e 93 |N | JSR (A3) 000205a4 5c 4f |\O | ADDQ.L #0x6,A7 000205a6 30 05 |0 | MOVE.W D5,D0 000205a8 02 40 00 ff | @ | ANDI.W #0x00ff,D0 000205ac 42 81 |B | CLR.L D1 000205ae 32 00 |2 | MOVE.W D0,D1 000205b0 2c 01 |, | MOVE.L D1,D6 000205b2 0c 86 00 00 00 7f | | CMPI.L #0x0000007f,D6 000205b8 6c 18 |l | BGE 0x205d2 000205ba 0c 86 00 00 00 1f | | CMPI.L #0x0000001f,D6 000205c0 6f 10 |o | BLE 0x205d2 000205c2 2f 0c |/ | MOVE.L A4,-(A7) 000205c4 0c 86 00 00 00 ff | | CMPI.L #0x000000ff,D6 000205ca 63 02 |c | BLS 0x205ce 000205cc 4e 4f |NO | TRAP #15 000205ce 1f 06 | | MOVE.B D6,-(A7) 000205d0 60 06 |` | BRA 0x205d8 000205d2 2f 0c |/ | MOVE.L A4,-(A7) 000205d4 1f 3c 00 20 | < | MOVE.B #0x20,-(A7) 000205d8 4e 93 |N | JSR (A3) 000205da 5c 4f |\O | ADDQ.L #0x6,A7 000205dc 51 4f |QO | SUBQ.L #0x8,A7 000205de 2f 11 |/ | MOVE.L (A1),-(A7) 000205e0 2f 10 |/ | MOVE.L (A0),-(A7) 000205e2 51 4f |QO | SUBQ.L #0x8,A7 000205e4 48 78 00 02 |Hx | PEA.L 0x2 000205e8 4e b9 00 01 03 54 |N T | JSR Long2Quad(a : Long) : Quad 000205ee 58 4f |XO | ADDQ.L #0x4,A7 000205f0 4e b9 00 01 03 14 |N | JSR Add(a, b : Quad) : Quad 000205f6 de fc 00 10 | | ADDA.W #0x10,A7 000205fa 20 9f | | MOVE.L (A7)+,(A0) 000205fc 22 9f |" | MOVE.L (A7)+,(A1) 000205fe 52 87 |R | ADDQ.L #0x1,D7 00020600 0c 87 00 00 00 07 | | CMPI.L #0x00000007,D7 00020606 6f 00 ff 54 |o T | BLE 0x2055c 0002060a 2f 0c |/ | MOVE.L A4,-(A7) 0002060c 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00020612 58 4f |XO | ADDQ.L #0x4,A7 00020614 20 17 | | MOVE.L (A7),D0 00020616 52 80 |R | ADDQ.L #0x1,D0 00020618 69 06 |i | BVS 0x20620 0002061a 58 4f |XO | ADDQ.L #0x4,A7 0002061c 60 00 fe 78 |` x | BRA 0x20496 00020620 50 4f |PO | ADDQ.L #0x8,A7 00020622 4a 2e ff ee |J. | TST.B (A6-0x12) 00020626 67 00 fe 24 |g $ | BEQ 0x2044c 0002062a 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 0002062e 4e 5e |N^ | UNLK A6 00020630 4e 75 |Nu | RTS 00020632 ; -------------------------------------------------------------------------------------- 00020632 ; OMSI PASCAL Function 00020632 ; <LVAR 0x008 4(r)> 00020632 ; -------------------------------------------------------------------------------------- 00020632 4e 56 ff d0 |NV | LINK.W A6,#0xffd0 00020636 bf d5 | | CMPA.L (A5),A7 00020638 62 06 |b | BHI 0x20640 0002063a 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002063e 4e 76 |Nv | TRAPV 00020640 de fc 00 30 | 0 | ADDA.W #0x30,A7 00020644 48 e7 80 e0 |H | MOVEM.L A2+A1+A0+D0,-(A7) 00020648 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 0002064c 59 4f |YO | SUBQ.L #0x4,A7 0002064e 4e b9 00 01 03 c4 |N | JSR GetArgv() : String 00020654 20 9f | | MOVE.L (A7)+,(A0) 00020656 22 50 |"P | MOVEA.L (A0),A1 00020658 4a 51 |JQ | TST.W (A1) 0002065a 66 3a |f: | BNE 0x20696 0002065c 48 50 |HP | PEA.L (A0) 0002065e 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00020664 59 4f |YO | SUBQ.L #0x4,A7 00020666 22 4f |"O | MOVEA.L A7,A1 00020668 45 fa fa c8 |E | LEA.L 0x20132,A2 0002066c 70 06 |p | MOVEQ.L #0x06,D0 0002066e 12 da | | MOVE.B (A2)+,(A1)+ 00020670 51 c8 ff fc |Q | DBF D0,0x2066e 00020674 51 4f |QO | SUBQ.L #0x8,A7 00020676 48 6f 00 08 |Ho | PEA.L (A7+0x8) 0002067a 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 0002067e 3f 3c 00 07 |?< | MOVE.W #0x7,-(A7) 00020682 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020688 50 4f |PO | ADDQ.L #0x8,A7 0002068a 4e b9 00 01 03 e4 |N | JSR AskConsoleString(prompt : String) : String 00020690 58 4f |XO | ADDQ.L #0x4,A7 00020692 20 9f | | MOVE.L (A7)+,(A0) 00020694 50 4f |PO | ADDQ.L #0x8,A7 00020696 4c df 07 01 |L | MOVEM.L (A7)+,D0+A0+A1+A2 0002069a 4e 5e |N^ | UNLK A6 0002069c 4e 75 |Nu | RTS 0002069e ; -------------------------------------------------------------------------------------- 0002069e ; OMSI PASCAL Function 0002069e ; -------------------------------------------------------------------------------------- 0002069e START: 0002069e 4f fa 00 08 |O | LEA.L MAIN,A7 000206a2 4e f9 00 01 02 80 |N | JMP ?start_program 000206a8 MAIN: 000206a8 41 f9 00 02 0d 2c |A , | LEA.L 0x20d2c,A0 000206ae 43 f9 00 02 0d 32 |C 2 | LEA.L 0x20d32,A1 000206b4 45 f9 00 02 0d 30 |E 0 | LEA.L 0x20d30,A2 000206ba 70 02 |p | MOVEQ.L #0x02,D0 000206bc 72 10 |r | MOVEQ.L #0x10,D1 000206be 4e b9 00 01 03 98 |N | JSR FSCALL_10398 000206c4 48 50 |HP | PEA.L (A0) 000206c6 4e ba ff 6a |N j | JSR 0x20632 000206ca 2e 90 |. | MOVE.L (A0),(A7) 000206cc 42 27 |B' | CLR.B -(A7) 000206ce 1f 00 | | MOVE.B D0,-(A7) 000206d0 48 78 00 00 |Hx | PEA.L 0x0 000206d4 48 52 |HR | PEA.L (A2) 000206d6 48 51 |HQ | PEA.L (A1) 000206d8 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File) 000206de de c1 | | ADDA.W D1,A7 000206e0 2e 91 |. | MOVE.L (A1),(A7) 000206e2 4e ba fd 34 |N 4 | JSR 0x20418 000206e6 54 4f |TO | ADDQ.L #0x2,A7 000206e8 42 17 |B | CLR.B (A7) 000206ea 1f 00 | | MOVE.B D0,-(A7) 000206ec 48 78 00 01 |Hx | PEA.L 0x1 000206f0 48 52 |HR | PEA.L (A2) 000206f2 48 51 |HQ | PEA.L (A1) 000206f4 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File) 000206fa de c1 | | ADDA.W D1,A7 000206fc 48 50 |HP | PEA.L (A0) 000206fe 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00020704 54 4f |TO | ADDQ.L #0x2,A7 00020706 42 17 |B | CLR.B (A7) 00020708 48 78 00 01 |Hx | PEA.L 0x1 0002070c 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00020712 5c 4f |\O | ADDQ.L #0x6,A7 00020714 4e b9 00 01 02 84 |N | JSR ?exit 0002071a 57 6f 72 64 73 20 65 72 |Words er| .TXT 'Words error :_' 00020728 ; -------------------------------------------------------------------------------------- 00020728 ; OMSI PASCAL Function 00020728 ; <LVAR 0x008 1(r)> 00020728 ; -------------------------------------------------------------------------------------- 00020728 PROG_FAIL: 00020728 4e 56 ff d2 |NV | LINK.W A6,#0xffd2 0002072c bf d5 | | CMPA.L (A5),A7 0002072e 62 06 |b | BHI 0x20736 00020730 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020734 4e 76 |Nv | TRAPV 00020736 de fc 00 2c | , | ADDA.W #0x2c,A7 0002073a 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 0002073e 41 fa ff e8 |A | LEA.L PROG_FAIL,A0 00020742 70 06 |p | MOVEQ.L #0x06,D0 00020744 3f 20 |? | MOVE.W -(A0),-(A7) 00020746 51 c8 ff fc |Q | DBF D0,0x20744 0002074a 1f 3c 00 03 | < | MOVE.B #0x03,-(A7) 0002074e 51 4f |QO | SUBQ.L #0x8,A7 00020750 48 6f 00 0a |Ho | PEA.L (A7+0xa) 00020754 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00020758 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7) 0002075c 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020762 58 4f |XO | ADDQ.L #0x4,A7 00020764 10 2e 00 08 | . | MOVE.B (A6+0x8),D0 00020768 48 80 |H | EXTB.W D0 0002076a 48 c0 |H | EXTW.L D0 0002076c 2f 00 |/ | MOVE.L D0,-(A7) 0002076e 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00020774 58 4f |XO | ADDQ.L #0x4,A7 00020776 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 0002077c 50 4f |PO | ADDQ.L #0x8,A7 0002077e 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00020784 de fc 00 14 | | ADDA.W #0x14,A7 00020788 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 0002078c 4e 5e |N^ | UNLK A6 0002078e 4e 75 |Nu | RTS 00020790 42 6f 61 72 64 20 20 20 |Board | .TXT 'Board :_ ' 0002079e 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment :_ ' 000207ac 53 74 61 74 75 73 20 20 |Status | .TXT 'Status :_ ' 000207ba 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment error :' 000207cc 46 61 74 61 6c 20 65 78 |Fatal ex| .TXT 'Fatal experiment error. ' 000207e4 ; -------------------------------------------------------------------------------------- 000207e4 ; OMSI PASCAL Function 000207e4 ; <LVAR 0x00e 1(r)> 000207e4 ; <LVAR 0x00a 4(r)> 000207e4 ; <LVAR 0x008 1(r)> 000207e4 ; -------------------------------------------------------------------------------------- 000207e4 EXP_FAIL: 000207e4 4e 56 ff 8c |NV | LINK.W A6,#0xff8c 000207e8 bf d5 | | CMPA.L (A5),A7 000207ea 62 06 |b | BHI 0x207f2 000207ec 44 fc 00 02 |D | MOVE.W #0x2,CCR 000207f0 4e 76 |Nv | TRAPV 000207f2 de fc 00 74 | t | ADDA.W #0x74,A7 000207f6 48 e7 fc f8 |H | MOVEM.L A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7) 000207fa 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 00020800 49 f9 00 01 03 e0 |I | LEA.L WriteConsoleStringCrLf(str : String),A4 00020806 72 01 |r | MOVEQ.L #0x01,D1 00020808 74 0d |t | MOVEQ.L #0x0d,D2 0002080a 76 1e |v | MOVEQ.L #0x1e,D3 0002080c 78 12 |x | MOVEQ.L #0x12,D4 0002080e 7a 0e |z | MOVEQ.L #0x0e,D5 00020810 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 00020816 41 fa ff b4 |A | LEA.L 0x207cc,A0 0002081a 70 08 |p | MOVEQ.L #0x08,D0 0002081c 3f 20 |? | MOVE.W -(A0),-(A7) 0002081e 51 c8 ff fc |Q | DBF D0,0x2081c 00020822 59 4f |YO | SUBQ.L #0x4,A7 00020824 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020828 3f 01 |? | MOVE.W D1,-(A7) 0002082a 3f 04 |? | MOVE.W D4,-(A7) 0002082c 4e 93 |N | JSR (A3) 0002082e 50 4f |PO | ADDQ.L #0x8,A7 00020830 4e 94 |N | JSR (A4) 00020832 50 4f |PO | ADDQ.L #0x8,A7 00020834 20 4f | O | MOVEA.L A7,A0 00020836 43 fa ff 58 |C X | LEA.L 0x20790,A1 0002083a 70 0c |p | MOVEQ.L #0x0c,D0 0002083c 10 d9 | | MOVE.B (A1)+,(A0)+ 0002083e 51 c8 ff fc |Q | DBF D0,0x2083c 00020842 51 4f |QO | SUBQ.L #0x8,A7 00020844 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00020848 3f 01 |? | MOVE.W D1,-(A7) 0002084a 3f 02 |? | MOVE.W D2,-(A7) 0002084c 4e 93 |N | JSR (A3) 0002084e 54 4f |TO | ADDQ.L #0x2,A7 00020850 1e ae 00 0e | | MOVE.B (A6+0xe),(A7) 00020854 4e b9 00 01 04 9c |N | JSR BoardName(address : B) : String 0002085a 54 4f |TO | ADDQ.L #0x2,A7 0002085c 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020862 50 4f |PO | ADDQ.L #0x8,A7 00020864 4e 94 |N | JSR (A4) 00020866 de c4 | | ADDA.W D4,A7 00020868 20 6e 00 0a | n | MOVEA.L (A6+0xa),A0 0002086c b0 c1 | | CMPA.W D1,A0 0002086e 67 48 |gH | BEQ 0x208b8 00020870 9e c5 | | SUBA.W D5,A7 00020872 22 4f |"O | MOVEA.L A7,A1 00020874 45 fa ff 28 |E ( | LEA.L 0x2079e,A2 00020878 70 0c |p | MOVEQ.L #0x0c,D0 0002087a 12 da | | MOVE.B (A2)+,(A1)+ 0002087c 51 c8 ff fc |Q | DBF D0,0x2087a 00020880 9e c3 | | SUBA.W D3,A7 00020882 22 4f |"O | MOVEA.L A7,A1 00020884 41 e8 00 fc |A | LEA.L (A0+0xfc),A0 00020888 70 1d |p | MOVEQ.L #0x1d,D0 0002088a 12 d8 | | MOVE.B (A0)+,(A1)+ 0002088c 51 c8 ff fc |Q | DBF D0,0x2088a 00020890 51 4f |QO | SUBQ.L #0x8,A7 00020892 48 6f 00 26 |Ho & | PEA.L (A7+0x26) 00020896 3f 01 |? | MOVE.W D1,-(A7) 00020898 3f 02 |? | MOVE.W D2,-(A7) 0002089a 4e 93 |N | JSR (A3) 0002089c 58 4f |XO | ADDQ.L #0x4,A7 0002089e 48 6f 00 0c |Ho | PEA.L (A7+0xc) 000208a2 3f 01 |? | MOVE.W D1,-(A7) 000208a4 3f 03 |? | MOVE.W D3,-(A7) 000208a6 4e 93 |N | JSR (A3) 000208a8 50 4f |PO | ADDQ.L #0x8,A7 000208aa 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000208b0 50 4f |PO | ADDQ.L #0x8,A7 000208b2 4e 94 |N | JSR (A4) 000208b4 de fc 00 30 | 0 | ADDA.W #0x30,A7 000208b8 9e c5 | | SUBA.W D5,A7 000208ba 20 4f | O | MOVEA.L A7,A0 000208bc 43 fa fe ee |C | LEA.L 0x207ac,A1 000208c0 70 0c |p | MOVEQ.L #0x0c,D0 000208c2 10 d9 | | MOVE.B (A1)+,(A0)+ 000208c4 51 c8 ff fc |Q | DBF D0,0x208c2 000208c8 51 4f |QO | SUBQ.L #0x8,A7 000208ca 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000208ce 3f 01 |? | MOVE.W D1,-(A7) 000208d0 3f 02 |? | MOVE.W D2,-(A7) 000208d2 4e 93 |N | JSR (A3) 000208d4 54 4f |TO | ADDQ.L #0x2,A7 000208d6 1e ae 00 08 | | MOVE.B (A6+0x8),(A7) 000208da 4e b9 00 01 04 a2 |N | JSR ExpStatus2Text(status.B, &String) 000208e0 54 4f |TO | ADDQ.L #0x2,A7 000208e2 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000208e8 50 4f |PO | ADDQ.L #0x8,A7 000208ea 4e 94 |N | JSR (A4) 000208ec 5d 4f |]O | SUBQ.L #0x6,A7 000208ee 20 4f | O | MOVEA.L A7,A0 000208f0 43 fa fe da |C | LEA.L 0x207cc,A1 000208f4 70 16 |p | MOVEQ.L #0x16,D0 000208f6 10 d9 | | MOVE.B (A1)+,(A0)+ 000208f8 51 c8 ff fc |Q | DBF D0,0x208f6 000208fc 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 00020900 59 4f |YO | SUBQ.L #0x4,A7 00020902 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00020906 3f 01 |? | MOVE.W D1,-(A7) 00020908 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7) 0002090c 4e 93 |N | JSR (A3) 0002090e 50 4f |PO | ADDQ.L #0x8,A7 00020910 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00020916 de c3 | | ADDA.W D3,A7 00020918 4c df 1f 3f |L ? | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4 0002091c 4e 5e |N^ | UNLK A6 0002091e 4e 75 |Nu | RTS