|
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: 7680 (0x1e00)
Types: M200
Notes: @(#)TAPEX,2.3,90/12/06,12:52:00, M200_PROGRAM
Names: »TAPEX.M200«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »TAPEX.M200«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »TAPEX.M200«
@ 202d0
<LVAR 0x010 4(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 202d0-2032c Body>
<POP 202d0-202e6 Prologue> Σ0 ↓
<POP 202e6-202ec RegCacheLoad> Σ0 ↓
<POP 202ec-20324 Naked> Σ0 ↓
<MI 202ec MOVE.L 0x243c0,D4> {}
<MI 202ee MOVE.L #0x7ab7,D3> {}
<Call 0x202f4 0x1028c> {}
?muls_d3_d4
<MI 202fa MOVE.L D4,0x243c0> {}
<MI 202fc ADDI.L #0x00003619,0x243c0> {}
<MI 20302 ANDI.L #0x00007fff,0x243c0> {}
<MI 20308 MOVE.L (A6+0x8),D0> {}
<MI 2030c SUB.L (A6+0xc),D0> {}
<MI 20310 ADDQ.L #0x1,D0> {}
<MI 20312 MOVE.L 0x243c0,D4> {}
<MI 20314 MOVE.L D0,D3> {}
<Call 0x20316 0x10294> {}
?divs_d3_d4
<MI 2031c ADD.L (A6+0xc),D3> {}
<MI 20320 MOVE.L D3,(A6+0x10)> {}
<POP 20324-2032c Epilogue> Σ0
@ 2032c
<LVAR 0x008 4(w)>
<POP 2032c-20380 Body>
<POP 2032c-20342 Prologue> Σ0 ↓
<POP 20342-20348 RegCacheLoad> Σ0 ↓
<POP 20348-20354 Naked> Σ0 ↓ →0x2035a
<MI 20348 ADDQ.L #0x1,0x243bc> {}
<MI 2034a MOVE.L 0x243bc,D0> {}
<MI 2034c CMPI.L #0x00000005,D0> {}
<MI 20352 BLE 0x2035a> {}
<POP 20354-2035a Naked> Σ0 ↓
<MI 20354 MOVE.L #0x1,0x243bc> {}
<POP 2035a-20378 Naked> Σ0 ↓ ←0x20348
<MI 2035a MOVE.L 0x243bc,D0> {}
<MI 2035c SUBQ.L #0x1,D0> {}
<POP 0x2035e LimitCheck 0x0 ≤ D0 ≤ 0x4> {}
<MI 20368 ASL.L #0x1,D0> {}
<MI 2036a LEA.L 0x202c6,A0> {}
<MI 2036e CLR.L D1> {}
<MI 20370 MOVE.W (A0+D0.L),D1> {}
<MI 20374 MOVE.L D1,(A6+0x8)> {}
<POP 20378-20380 Epilogue> Σ0
@ 20380
<LVAR 0x00a 1(rw)>
<LVAR 0x008 2(r)>
<LVAR -0x008 2(r)>
<LVAR -0x010 2(r)>
<LVAR -0x014 @ 2(r)>
<LVAR -0x016 @>
<LVAR -0x018 2(r)>
<LVAR -0x01a 2(r)>
<LVAR -0x01c 2(w)>
<LVAR -0x01e 2(r)>
<LVAR -0x020 2(r)>
<LVAR -0x022 2(w)>
<LVAR -0x024 2(r)>
<LVAR -0x026 @ 2(r)>
<POP 20380-20412 Body>
<POP 20380-20396 Prologue> Σ0 ↓
<POP 20396-2039c RegCacheLoad> Σ0 ↓
<POP 2039c-203f2 Naked> Σ0 ↓ →0x2040a
<MI 2039c CLR.W (A6-0x26)> {}
<MI 203a0 CLR.W (A6-0x24)> {}
<MI 203a4 MOVE.W #0x3,(A6-0x22)> {}
<MI 203aa CLR.W (A6-0x20)> {}
<MI 203ae CLR.W (A6-0x1e)> {}
<MI 203b2 MOVE.W (A6+0x8),D0> {}
<MI 203b4 ASL.W #0x8,D0> {}
<MI 203b6 MOVE.W D0,(A6-0x1c)> {}
<MI 203ba CLR.W (A6-0x1a)> {}
<MI 203be CLR.W (A6-0x18)> {}
<Pointer.fp 0x203c2 <LVAR -0x026 @ 2(r)>> Δ-4 {[@@-38]}
<MI 203c6 LEA.L (A6-0x14),A0> {[@@-38]}
<MI 203ca MOVE.L A0,-(A7)> Δ-4 {[@@-38]|[4, 'A0']}
<MI 203cc MOVE.W (A6+0x8),-(A7)> Δ-2 {[@@-38]|[4, 'A0']|[2, '(A6+0x8)']}
<Call 0x203ce 0x10204> {[@@-38]|[4, 'A0']|[2, '(A6+0x8)']}
KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
<POP 203d4-203d6 StackAdj> Δ+8 {[-2-]}
<MI 203d6 MOVE.W (A6+0x8),(A7)> {[2, '(A6+0x8)']}
<Pointer.fp 0x203d8 <LVAR -0x016 @>> Δ-4 {[2, '(A6+0x8)']|[@@-22]}
<Call 0x203dc 0x10206> {[2, '(A6+0x8)']|[@@-22]}
KC03_Wait_Disk_IO(a : W; VAR status : Byte)
<POP 203e2-203e4 StackAdj> Δ+6 {}
<MI 203e4 CLR.B (A6+0xa)> {}
<MI 203e8 MOVE.W (A6-0x14),D0> {}
<MI 203ec AND.W #0x01,D0> {}
<MI 203ee CMP.W #0x01,D0> {}
<MI 203f0 BNE 0x2040a> {}
<POP 203f2-203fc Naked> Σ0 ↓ →0x2040a
<MI 203f2 MOVE.W (A6-0x10),D0> {}
<MI 203f6 ANDI.W #0x0040,D0> {}
<MI 203fa BNE 0x2040a> {}
<POP 203fc-20406 Naked> Σ0 ↓ →0x2040a
<MI 203fc MOVE.W (A6-0x8),D0> {}
<MI 20400 ANDI.W #0x0800,D0> {}
<MI 20404 BNE 0x2040a> {}
<POP 20406-2040a Naked> Σ0 ↓
<MI 20406 ADDQ.B #0x1,(A6+0xa)> {}
<POP 2040a-20412 Epilogue> Σ0 ←0x2039c ←0x203f2 ←0x203fc
@ 20412
<LVAR 0x008 2(r)>
<POP 20412-20476 Body>
<POP 20412-20428 Prologue> Σ0 ↓
<POP 20428-2046e Naked> Σ0 ↓
<MI 20428 MOVE.W #0x9b2,D0> {}
<MI 2042c MULS.W (A6+0x8),D0> {}
<MI 20430 LEA.L 0x21ce8,A0> {}
<MI 20436 CLR.L (A0+D0.W+#0x12)> {}
<MI 2043a CLR.L (A0+D0.W+#0x16)> {}
<MI 2043e CLR.L (A0+D0.W+#0x1a)> {}
<MI 20442 CLR.L (A0+D0.W+#0x26)> {}
<MI 20446 CLR.B (A0+D0.W+#0xd)> {}
<MI 2044a CLR.B (A0+D0.W+#0xf)> {}
<MI 2044e MOVE.B #0x01,(A0+D0.W+#0x10)> {}
<MI 20454 MOVE.L #0xa,(A0+D0.W+#0x2e)> {}
<MI 2045c CLR.L (A0+D0.W+#0x2a)> {}
<MI 20460 LEA.L (A0+D0.W+#0xc),A0> {}
<MI 20464 LEA.L (A0+0x1aa),A1> {}
<MI 20468 MOVE.L A1,-(A7)> Δ-4 {[4, 'A1']}
<MI 2046a MOVE.L (A7)+,(A0+0x1a6)> Δ+4 {}
<POP 2046e-20476 Epilogue> Σ0
@ 20476
<LVAR 0x008 2(r)>
<LVAR -0x006 2(w)>
<LVAR -0x008 2(w)>
<LVAR -0x00e 2(w)>
<LVAR -0x012 @>
<POP 20476-20500 Body>
<POP 20476-2048c Prologue> Σ0 ↓
<POP 2048c-20490 RegCacheLoad> Σ0 ↓
<POP 20490-204f8 Naked> Σ0 ↓
<MI 20490 MOVE.W #0x9b2,D0> {}
<MI 20494 MULS.W (A6+0x8),D0> {}
<MI 20496 LEA.L 0x21ce8,A0> {}
<MI 2049c MOVE.W #0x3,(A6-0xe)> {}
<MI 204a2 MOVE.W (A6+0x8),D1> {}
<MI 204a4 ASL.W #0x8,D1> {}
<MI 204a6 LEA.L (A0+D0.W+#0xc),A0> {}
<MI 204aa MOVE.B (A0+0x9ac),D0> {}
<MI 204ae EXTB.W D0> {}
<MI 204b0 ADD.W D1,D0> {}
<POP 0x204b2 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 204ba MOVE.W D0,(A6-0x8)> {}
<MI 204be MOVE.L (A0+0x9ae),D0> {}
<POP 0x204c2 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 204cc MOVE.W D0,(A6-0x6)> {}
<Pointer.fp 0x204d0 <LVAR -0x012 @>> Δ-4 {[@@-18]}
<POP 204d4-204d6 StackAdj> Δ-4 {[@@-18]|[-4-]}
<MI 204d6 MOVE.B (A0+0x1a6),(A7)> {[@@-18]|[-4-]}
<MI 204da MOVE.B (A0+0x1a7),(A7+0x1)> {[@@-18]|[-4-]}
<MI 204e0 MOVE.B (A0+0x1a8),(A7+0x2)> {[@@-18]|[-4-]}
<MI 204e6 MOVE.B (A0+0x1a9),(A7+0x3)> {[@@-18]|[-4-]}
<MI 204ec MOVE.W (A6+0x8),-(A7)> Δ-2 {[@@-18]|[-4-]|[2, '(A6+0x8)']}
<Call 0x204ee 0x10204> {[@@-18]|[-4-]|[2, '(A6+0x8)']}
KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
<POP 204f4-204f8 StackAdj> Δ+10 {}
<POP 204f8-20500 Epilogue> Σ0
@ 20500
<POP 20500-20614 Body>
<POP 20500-20516 Prologue> Σ0 ↓
<POP 20516-20526 RegCacheLoad> Σ0 ↓
<POP 20526-20528 Naked> Σ0 ↓
<MI 20526 MOVEQ.L #0x00,D7> {}
<POP 20528-20542 Naked> Σ0 ↓ →0x20548 ←0x2059e
<MI 20528 MOVE.W #0x9b2,D0> {}
<MI 2052c MULS.W D7,D0> {}
<MI 2052e LEA.L 0x21ce8,A0> {}
<POP 20534-20536 StackAdj> Δ-2 {[-2-]}
<MI 20536 MOVE.W D7,-(A7)> Δ-2 {[-2-]|[2, 'D7']}
<Call 0x20538 0x20380> {[-2-]|[2, 'D7']}
<POP 2053c-2053e StackAdj> Δ+2 {[-2-]}
<MI 2053e TST.B (A7)+> Δ+2 {}
<MI 20540 BNE 0x20548> {}
<POP 20542-20548 Naked> Σ0 →0x20590
<MI 20542 CLR.B (A0+D0.W+#0xc)> {}
<MI 20546 BRA 0x20590> {}
<POP 20548-20590 Naked> Σ0 ↓ ←0x20528
<Blob 0x20548 [14] @> Δ-14 {[«14""»]}
<POP 20554-20558 StackAdj> Δ-10 {[«14""»]|[-10-]}
<Lit 0x20558 14> {[«14""»]|[-6-]|[$$Exercise unit_]}
<POP 20562-20564 StackAdj> Δ-4 {[«14""»]|[-6-]|[$$Exercise unit_]|[-4-]}
<MI 20564 MOVE.W D7,D1> {[«14""»]|[-6-]|[$$Exercise unit_]|[-4-]}
<MI 20566 EXTW.L D1> {[«14""»]|[-6-]|[$$Exercise unit_]|[-4-]}
<MI 20568 MOVE.L D1,-(A7)> Δ-4 {[«14""»]|[-6-]|[$$Exercise unit_]|[-4-]|[4, 'D1']}
<Call 0x2056a 0x102e4> {[«14""»]|[-6-]|[$$Exercise unit_]|[-4-]|[4, 'D1']}
Long2String(a : Long) : String
<POP 20570-20572 StackAdj> Δ+4 {[«14""»]|[-6-]|[$$Exercise unit_]|[-4-]}
<Call 0x20572 0x102d0> {[«14""»]|[-6-]|[$$Exercise unit_]|[-4-]}
StringCat2(a, b : String) : String
<POP 20578-2057a StackAdj> Δ+6 {[«14""»]|[-6-]|[-2-]}
<POP 2057a-2057b StackAdj> Δ+2 {[«14""»]|[-6-]}
<Const 0x2057b 0x1.2> Δ-2 {[«14""»]|[-6-]|[#1]}
<Call 0x2057c 0x103f0> {[«14""»]|[-6-]|[#1]}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 20582-20584 StackAdj> Δ+6 {[«14""»]|[-2-]}
<MI 20584 MOVE.B (A7)+,D1> Δ+2 {[«14""»]}
<MI 20586 EXTB.W D1> {[«14""»]}
<POP 0x20588 LimitCheck 0x0 ≤ D1 ≤ 0x1> {[«14""»]}
<POP 2058a-2058c StackAdj> Δ+14 {}
<MI 2058c MOVE.B D1,(A0+D0.W+#0xc)> {}
<POP 20590-20596 Naked> Σ0 ↓ →0x2059e ←0x20542
<MI 20590 TST.B (A0+D0.W+#0xc)> {}
<MI 20594 BEQ 0x2059e> {}
<POP 20596-2059e Naked> Σ0 ↓
<MI 20596 MOVE.W D7,-(A7)> Δ-2 {[2, 'D7']}
<Call 0x20598 0x20412> {[2, 'D7']}
<POP 2059c-2059e StackAdj> Δ+2 {}
<POP 2059e-205a6 Naked> Σ0 ↓ →0x20528 ←0x20590
<MI 2059e ADDQ.W #0x1,D7> {}
<MI 205a0 CMPI.W #0x0003,D7> {}
<MI 205a4 BLE 0x20528> {}
<POP 205a6-2060c Naked> Σ0 ↓
<Const 0x205a6 0x21cf0.4> Δ-4 {[##138480]}
<Call 0x205a8 0x10304> {[##138480]}
GetRtc() : TimeStamp
<POP 205ae-205b0 StackAdj> Δ+4 {}
<Blob 0x205b0 [40] @> Δ-40 {[«40""»]}
<POP 205bc-205be StackAdj> Δ-8 {[«40""»]|[-8-]}
<Lit 0x205be 40> {[«40""»]|[-4-]|[$$DFS based tape exerciser, started at => ]}
<POP 205ca-205cb StackAdj> Δ-4 {[«40""»]|[-4-]|[$$DFS based tape exerciser, started at => ]|[-4-]}
<Blob 0x205cb [4] 0x21cf0> Δ-4 {[«40""»]|[-4-]|[$$DFS based tape exerciser, started at => ]|[-4-]|[«4»]}
<Call 0x205cc 0x10308> {[«40""»]|[-4-]|[$$DFS based tape exerciser, started at => ]|[-4-]|[«4»]}
TimeToText()
<POP 205d2-205d4 StackAdj> Δ+4 {[«40""»]|[-4-]|[$$DFS based tape exerciser, started at => ]|[-4-]}
<Call 0x205d4 0x102d0> {[«40""»]|[-4-]|[$$DFS based tape exerciser, started at => ]|[-4-]}
StringCat2(a, b : String) : String
<POP 205da-205dc StackAdj> Δ+8 {[«40""»]|[-4-]}
<Call 0x205dc 0x103e0> {[«40""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 205e2-205e3 StackAdj> Δ+44 ↓ {}
<Blob 0x205e3 [48] @> Δ-48 {[«48""»]}
<POP 205f2-205f4 StackAdj> Δ-4 {[«48""»]|[-4-]}
<Lit 0x205f4 47> {[«48""»]|[$$Type ^G to exit, any other character for status]}
<Call 0x20602 0x103e0> {[«48""»]|[$$Type ^G to exit, any other character for status]}
WriteConsoleStringCrLf(str : String)
<POP 20608-2060c StackAdj> Δ+52 {}
<POP 2060c-20614 Epilogue> Σ0
@ 20614
<LVAR -0x004 @ 4(r)>
<POP 20614-2085c Body>
<POP 20614-2062a Prologue> Σ0 ↓
<POP 2062a-20638 RegCacheLoad> Σ0 ↓
<POP 20638-206a8 Naked> Σ0 ↓
<Pointer.fp 0x20638 <LVAR -0x004 @ 4(r)>> Δ-4 {[@@-4]}
<Call 0x2063c 0x10304> {[@@-4]}
GetRtc() : TimeStamp
<POP 20642-20644 StackAdj> Δ+4 {}
<Blob 0x20644 [10] @> Δ-10 {[«10""»]}
<Blob 0x20650 [18] @> Δ-18 {[«10""»]|[«18""»]}
<POP 2065c-2065e StackAdj> Δ-8 {[«10""»]|[«18""»]|[-8-]}
<Lit 0x2065e 10> {[«10""»]|[«18""»]|[-4-]|[$$Status at_]}
<MI 2066c MOVE.L (A6-0x4),(A7)> {[«10""»]|[«18""»]|[-4-]|[4, '(A6-0x4)']}
<POP 20666-2066c StackAdj> Δ-8 {[«10""»]|[«18""»]|[-4-]|[4, '(A6-0x4)']|[-8-]}
<Call 0x20670 0x10308> {[«10""»]|[«18""»]|[-4-]|[4, '(A6-0x4)']|[-8-]}
TimeToText()
<Lit 0x20676 18> {[«10""»]|[«18""»]|[-4-]|[4, '(A6-0x4)']|[-4-]|[$$, test started at_]}
<POP 20686-20687 StackAdj> Δ-4 {[«10""»]|[«18""»]|[-4-]|[4, '(A6-0x4)']|[-4-]|[$$, test started at_]|[-4-]}
<Blob 0x20687 [4] 0x21cf0> Δ-4 {[«10""»]|[«18""»]|[-4-]|[4, '(A6-0x4)']|[-4-]|[$$, test started at_]|[-4-]|[«4»]}
<Call 0x2068c 0x10308> {[«10""»]|[«18""»]|[-4-]|[4, '(A6-0x4)']|[-4-]|[$$, test started at_]|[-4-]|[«4»]}
TimeToText()
<POP 20692-20694 StackAdj> Δ+4 {[«10""»]|[«18""»]|[-4-]|[4, '(A6-0x4)']|[-4-]|[$$, test started at_]|[-4-]}
<Call 0x20694 0x102d8> {[«10""»]|[«18""»]|[-4-]|[4, '(A6-0x4)']|[-4-]|[$$, test started at_]|[-4-]}
StringCat4(a, b, c, d : String) : String
<POP 2069a-2069c StackAdj> Δ+16 {[«10""»]|[«18""»]|[-4-]}
<Call 0x2069c 0x103e0> {[«10""»]|[«18""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 206a2-206a6 StackAdj> Δ+32 {}
<MI 206a6 MOVEQ.L #0x00,D7> {}
<POP 206a8-206ca Naked> Σ0 ↓ →0x2084c ←0x2084c
<POP 0x206a8 LimitCheck 0x0 ≤ D7 ≤ 0x3> {}
<MI 206ae MOVE.L D7,D4> {}
<MI 206b0 MOVE.L #0x9b2,D3> {}
<Call 0x206b6 0x1028c> {}
?muls_d3_d4
<MI 206bc LEA.L 0x21ce8,A0> {}
<MI 206c2 TST.B (A0+D4.L+#0xc)> {}
<MI 206c6 BEQ 0x2084c> {}
<POP 206ca-2084c Naked> Σ0 ↓
<Blob 0x206ca [8] @> Δ-8 {[«8""»]}
<POP 206da-206dc StackAdj> Δ-8 {[«8""»]|[-8-]}
<Lit 0x206dc 7> {[«8""»]|[-4-]|[$$Unit :_]}
<MI 206ec MOVE.L D7,(A7)> {[«8""»]|[-4-]|[4, 'D7']}
<POP 206e6-206ec StackAdj> Δ-8 {[«8""»]|[-4-]|[4, 'D7']|[-8-]}
<Call 0x206ee 0x102e4> {[«8""»]|[-4-]|[4, 'D7']|[-8-]}
Long2String(a : Long) : String
<POP 206f4-206f6 StackAdj> Δ+4 {[«8""»]|[-4-]|[4, 'D7']|[-4-]}
<Call 0x206f6 0x102d0> {[«8""»]|[-4-]|[4, 'D7']|[-4-]}
StringCat2(a, b : String) : String
<POP 206f8-206fa StackAdj> Δ+8 {[«8""»]|[-4-]}
<MI 206fa MOVEA.L (A7)+,A4> Δ+4 {[«8""»]}
<POP 206fc-206fd StackAdj> Δ+8 ↓ {}
<Blob 0x206fd [12] @> Δ-12 {[«12""»]}
<POP 2070c-2070e StackAdj> Δ-4 {[«12""»]|[-4-]}
<MI 2070e MOVE.L A4,-(A7)> Δ-4 {[«12""»]|[-4-]|[4, 'A4']}
<POP 20710-20712 StackAdj> Δ-4 {[«12""»]|[-4-]|[4, 'A4']|[-4-]}
<Lit 0x20712 11> {[«12""»]|[-4-]|[4, 'A4']|[$$, Bytes =>_]}
<Call 0x20724 0x102d0> {[«12""»]|[-4-]|[4, 'A4']|[$$, Bytes =>_]}
StringCat2(a, b : String) : String
<POP 20726-20728 StackAdj> Δ+8 {[«12""»]|[-4-]}
<MI 20728 MOVEA.L (A7)+,A4> Δ+4 {[«12""»]}
<POP 2072a-2072c StackAdj> Δ+4 {[-8-]}
<MI 2072c MOVE.L A4,(A7)> {[-4-]|[4, 'A4']}
<POP 2072e-2072f StackAdj> Δ-8 ↓ {[-4-]|[4, 'A4']|[-8-]}
<Blob 0x2072f [8] (A0+D4.L+#0x1e)> Δ-8 {[-4-]|[4, 'A4']|[-8-]|[«8»]}
<Const 0x2073e 0xa.4> Δ-4 {[-4-]|[4, 'A4']|[-8-]|[«8»]|[##10]}
<Call 0x20742 0x1035c> {[-4-]|[4, 'A4']|[-8-]|[«8»]|[##10]}
Quad2String(a : Quad; radix : Long ) : String
<POP 20748-2074c StackAdj> Δ+12 {[-4-]|[4, 'A4']|[-8-]}
<Const 0x2074c 0xa.4> Δ-4 {[-4-]|[4, 'A4']|[-8-]|[##10]}
<Call 0x20750 0x102f8> {[-4-]|[4, 'A4']|[-8-]|[##10]}
LeftPad(a : String; b : Long) : String
<POP 20756-20758 StackAdj> Δ+8 {[-4-]|[4, 'A4']|[-4-]}
<Call 0x20758 0x102d0> {[-4-]|[4, 'A4']|[-4-]}
StringCat2(a, b : String) : String
<POP 2075a-2075c StackAdj> Δ+8 {[-4-]}
<MI 2075c MOVEA.L (A7)+,A4> Δ+4 {}
<Blob 0x2075e [10] @> Δ-10 {[«10""»]}
<POP 2076a-2076c StackAdj> Δ-4 {[«10""»]|[-4-]}
<MI 2076c MOVE.L A4,-(A7)> Δ-4 {[«10""»]|[-4-]|[4, 'A4']}
<POP 2076e-20770 StackAdj> Δ-4 {[«10""»]|[-4-]|[4, 'A4']|[-4-]}
<Lit 0x20770 10> {[«10""»]|[-4-]|[4, 'A4']|[$$, soft =>_]}
<Call 0x20780 0x102d0> {[«10""»]|[-4-]|[4, 'A4']|[$$, soft =>_]}
StringCat2(a, b : String) : String
<POP 20782-20784 StackAdj> Δ+8 {[«10""»]|[-4-]}
<MI 20784 MOVEA.L (A7)+,A4> Δ+4 {[«10""»]}
<POP 20786-20788 StackAdj> Δ+2 {[-8-]}
<MI 20788 MOVE.L A4,(A7)> {[-4-]|[4, 'A4']}
<POP 2078a-2078c StackAdj> Δ-8 {[-4-]|[4, 'A4']|[-8-]}
<MI 2078c MOVE.L (A0+D4.L+#0x16),-(A7)> Δ-4 {[-4-]|[4, 'A4']|[-8-]|[4, '(A0+D4.L+#0x16)']}
<Call 0x20790 0x102e4> {[-4-]|[4, 'A4']|[-8-]|[4, '(A0+D4.L+#0x16)']}
Long2String(a : Long) : String
<POP 20796-20798 StackAdj> Δ+4 {[-4-]|[4, 'A4']|[-8-]}
<Const 0x20798 0x5.4> Δ-4 {[-4-]|[4, 'A4']|[-8-]|[##5]}
<Call 0x2079c 0x102f8> {[-4-]|[4, 'A4']|[-8-]|[##5]}
LeftPad(a : String; b : Long) : String
<POP 207a2-207a4 StackAdj> Δ+8 {[-4-]|[4, 'A4']|[-4-]}
<Call 0x207a4 0x102d0> {[-4-]|[4, 'A4']|[-4-]}
StringCat2(a, b : String) : String
<POP 207a6-207a8 StackAdj> Δ+8 {[-4-]}
<MI 207a8 MOVEA.L (A7)+,A4> Δ+4 {}
<Blob 0x207aa [10] @> Δ-10 {[«10""»]}
<POP 207b6-207b8 StackAdj> Δ-4 {[«10""»]|[-4-]}
<MI 207b8 MOVE.L A4,-(A7)> Δ-4 {[«10""»]|[-4-]|[4, 'A4']}
<POP 207ba-207bc StackAdj> Δ-4 {[«10""»]|[-4-]|[4, 'A4']|[-4-]}
<Lit 0x207bc 10> {[«10""»]|[-4-]|[4, 'A4']|[$$, hard =>_]}
<Call 0x207cc 0x102d0> {[«10""»]|[-4-]|[4, 'A4']|[$$, hard =>_]}
StringCat2(a, b : String) : String
<POP 207ce-207d0 StackAdj> Δ+8 {[«10""»]|[-4-]}
<MI 207d0 MOVEA.L (A7)+,A4> Δ+4 {[«10""»]}
<POP 207d2-207d4 StackAdj> Δ+2 {[-8-]}
<MI 207d4 MOVE.L A4,(A7)> {[-4-]|[4, 'A4']}
<POP 207d6-207d8 StackAdj> Δ-8 {[-4-]|[4, 'A4']|[-8-]}
<MI 207d8 MOVE.L (A0+D4.L+#0x12),-(A7)> Δ-4 {[-4-]|[4, 'A4']|[-8-]|[4, '(A0+D4.L+#0x12)']}
<Call 0x207dc 0x102e4> {[-4-]|[4, 'A4']|[-8-]|[4, '(A0+D4.L+#0x12)']}
Long2String(a : Long) : String
<POP 207e2-207e4 StackAdj> Δ+4 {[-4-]|[4, 'A4']|[-8-]}
<Const 0x207e4 0x5.4> Δ-4 {[-4-]|[4, 'A4']|[-8-]|[##5]}
<Call 0x207e8 0x102f8> {[-4-]|[4, 'A4']|[-8-]|[##5]}
LeftPad(a : String; b : Long) : String
<POP 207ee-207f0 StackAdj> Δ+8 {[-4-]|[4, 'A4']|[-4-]}
<Call 0x207f0 0x102d0> {[-4-]|[4, 'A4']|[-4-]}
StringCat2(a, b : String) : String
<POP 207f2-207f4 StackAdj> Δ+8 {[-4-]}
<MI 207f4 MOVEA.L (A7)+,A4> Δ+4 {}
<Blob 0x207f6 [10] @> Δ-10 {[«10""»]}
<POP 20802-20804 StackAdj> Δ-4 {[«10""»]|[-4-]}
<MI 20804 MOVE.L A4,-(A7)> Δ-4 {[«10""»]|[-4-]|[4, 'A4']}
<POP 20806-20808 StackAdj> Δ-4 {[«10""»]|[-4-]|[4, 'A4']|[-4-]}
<Lit 0x20808 10> {[«10""»]|[-4-]|[4, 'A4']|[$$, data =>_]}
<Call 0x20818 0x102d0> {[«10""»]|[-4-]|[4, 'A4']|[$$, data =>_]}
StringCat2(a, b : String) : String
<POP 2081a-2081c StackAdj> Δ+8 {[«10""»]|[-4-]}
<MI 2081c MOVEA.L (A7)+,A4> Δ+4 {[«10""»]}
<POP 2081e-20820 StackAdj> Δ+2 {[-8-]}
<MI 20820 MOVE.L A4,(A7)> {[-4-]|[4, 'A4']}
<POP 20822-20824 StackAdj> Δ-8 {[-4-]|[4, 'A4']|[-8-]}
<MI 20824 MOVE.L (A0+D4.L+#0x1a),-(A7)> Δ-4 {[-4-]|[4, 'A4']|[-8-]|[4, '(A0+D4.L+#0x1a)']}
<Call 0x20828 0x102e4> {[-4-]|[4, 'A4']|[-8-]|[4, '(A0+D4.L+#0x1a)']}
Long2String(a : Long) : String
<POP 2082e-20830 StackAdj> Δ+4 {[-4-]|[4, 'A4']|[-8-]}
<Const 0x20830 0x5.4> Δ-4 {[-4-]|[4, 'A4']|[-8-]|[##5]}
<Call 0x20834 0x102f8> {[-4-]|[4, 'A4']|[-8-]|[##5]}
LeftPad(a : String; b : Long) : String
<POP 2083a-2083c StackAdj> Δ+8 {[-4-]|[4, 'A4']|[-4-]}
<Call 0x2083c 0x102d0> {[-4-]|[4, 'A4']|[-4-]}
StringCat2(a, b : String) : String
<POP 2083e-20840 StackAdj> Δ+8 {[-4-]}
<MI 20840 MOVEA.L (A7)+,A4> Δ+4 {}
<MI 20842 MOVE.L A4,-(A7)> Δ-4 {[4, 'A4']}
<Call 0x20844 0x103e0> {[4, 'A4']}
WriteConsoleStringCrLf(str : String)
<POP 2084a-2084c StackAdj> Δ+4 {}
<POP 2084c-20854 Naked> Σ0 ↓ →0x206a8 ←0x206a8
<MI 2084c ADDQ.L #0x1,D7> {}
<MI 2084e CMP.L #0x03,D7> {}
<MI 20850 BLE 0x206a8> {}
<POP 20854-2085c Epilogue> Σ0
@ 2085c
<LVAR 0x008 1(rw)>
<LVAR -0x002 @ 1(r)>
<LVAR -0x004 @ 2(rw)>
<POP 2085c-208bc Body>
<POP 2085c-20872 Prologue> Σ0 ↓
<POP 20872-20878 RegCacheLoad> Σ0 ↓
<POP 20878-20892 Naked> Σ0 ↓ →0x208b4
<MI 20878 CLR.B (A6+0x8)> {}
<Const 0x2087c 0x1.2> Δ-2 {[#1]}
<Pointer.fp 0x2087e <LVAR -0x002 @ 1(r)>> Δ-4 {[#1]|[@@-2]}
<Call 0x20882 0x10212> {[#1]|[@@-2]}
KC09_PortStatus(Port : Word; VAR b: Byte)
<POP 20888-2088a StackAdj> Δ+6 {}
<MI 2088a MOVE.B (A6-0x2),D0> {}
<MI 2088e CMP.B #0x01,D0> {}
<MI 20890 BNE 0x208b4> {}
<POP 20892-208aa Naked> Σ0 ↓ →0x208b0
<Const 0x20892 0x1.2> Δ-2 {[#1]}
<Pointer.fp 0x20894 <LVAR -0x004 @ 2(rw)>> Δ-4 {[#1]|[@@-4]}
<Call 0x20896 0x1020e> {[#1]|[@@-4]}
KC07_PortGetChar(port : Word ; VAR ret : Word)
<POP 2089c-2089e StackAdj> Δ+6 {}
<MI 2089e ANDI.W #0x007f,(A6-0x4)> {}
<MI 208a2 MOVE.W (A6-0x4),D0> {}
<MI 208a4 CMPI.W #0x0007,D0> {}
<MI 208a8 BNE 0x208b0> {}
<POP 208aa-208b0 Naked> Σ0 →0x208b4
<MI 208aa MOVE.B #0x01,(A6+0x8)> {}
<MI 208ae BRA 0x208b4> {}
<POP 208b0-208b4 Naked> Σ0 ↓ ←0x20892
<Call 0x208b0 0x20614> {}
<POP 208b4-208bc Epilogue> Σ0 ←0x20878 ←0x208aa
@ 208bc
<LVAR 0x00a 4(r)>
<LVAR 0x008 2(r)>
<LVAR -0x006 @ 4(r)>
<POP 208bc-209be Body>
<POP 208bc-208d2 Prologue> Σ0 ↓
<POP 208d2-208dc RegCacheLoad> Σ0 ↓
<POP 208dc-209b6 Naked> Σ0 ↓
<Pointer.fp 0x208dc <LVAR -0x006 @ 4(r)>> Δ-4 {[@@-6]}
<Call 0x208e0 0x10304> {[@@-6]}
GetRtc() : TimeStamp
<POP 208e6-208e8 StackAdj> Δ+4 {}
<Blob 0x208e8 [14] @> Δ-14 {[«14""»]}
<Blob 0x208f4 [4] @> Δ-4 {[«14""»]|[«4""»]}
<Blob 0x208f8 [18] @> Δ-18 {[«14""»]|[«4""»]|[«18""»]}
<POP 20908-2090a StackAdj> Δ-8 {[«14""»]|[«4""»]|[«18""»]|[-8-]}
<Lit 0x2090a 14> {[«14""»]|[«4""»]|[«18""»]|[-4-]|[$$Error on unit_]}
<POP 20916-20918 StackAdj> Δ-4 {[«14""»]|[«4""»]|[«18""»]|[-4-]|[$$Error on unit_]|[-4-]}
<MI 20918 MOVE.W (A6+0x8),D0> {[«14""»]|[«4""»]|[«18""»]|[-4-]|[$$Error on unit_]|[-4-]}
<MI 2091c EXTW.L D0> {[«14""»]|[«4""»]|[«18""»]|[-4-]|[$$Error on unit_]|[-4-]}
<MI 2091e MOVE.L D0,-(A7)> Δ-4 {[«14""»]|[«4""»]|[«18""»]|[-4-]|[$$Error on unit_]|[-4-]|[4, 'D0']}
<Call 0x20920 0x102e4> {[«14""»]|[«4""»]|[«18""»]|[-4-]|[$$Error on unit_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<Lit 0x20926 4> {[«14""»]|[«4""»]|[«18""»]|[-4-]|[$$Error on unit_]|[-4-]|[$$ at_]}
<MI 20932 MOVE.L (A6-0x6),(A7)> {[«14""»]|[«4""»]|[«18""»]|[-4-]|[$$Error on unit_]|[-4-]|[4, '(A6-0x6)']}
<POP 20930-20932 StackAdj> Δ-8 {[«14""»]|[«4""»]|[«18""»]|[-4-]|[$$Error on unit_]|[-4-]|[4, '(A6-0x6)']|[-8-]}
<Call 0x20936 0x10308> {[«14""»]|[«4""»]|[«18""»]|[-4-]|[$$Error on unit_]|[-4-]|[4, '(A6-0x6)']|[-8-]}
TimeToText()
<Lit 0x2093c 17> {[«14""»]|[«4""»]|[«18""»]|[-4-]|[$$Error on unit_]|[-4-]|[4, '(A6-0x6)']|[-4-]|[$$ test started at_]}
<POP 20948-20949 StackAdj> Δ-4 {[«14""»]|[«4""»]|[«18""»]|[-4-]|[$$Error on unit_]|[-4-]|[4, '(A6-0x6)']|[-4-]|[$$ test started at_]|[-4-]}
<Blob 0x20949 [4] 0x21cf0> Δ-4 {[«14""»]|[«4""»]|[«18""»]|[-4-]|[$$Error on unit_]|[-4-]|[4, '(A6-0x6)']|[-4-]|[$$ test started at_]|[-4-]|[«4»]}
<Call 0x2094e 0x10308> {[«14""»]|[«4""»]|[«18""»]|[-4-]|[$$Error on unit_]|[-4-]|[4, '(A6-0x6)']|[-4-]|[$$ test started at_]|[-4-]|[«4»]}
TimeToText()
<POP 20954-20956 StackAdj> Δ+4 {[«14""»]|[«4""»]|[«18""»]|[-4-]|[$$Error on unit_]|[-4-]|[4, '(A6-0x6)']|[-4-]|[$$ test started at_]|[-4-]}
<Call 0x20956 0x102e0> {[«14""»]|[«4""»]|[«18""»]|[-4-]|[$$Error on unit_]|[-4-]|[4, '(A6-0x6)']|[-4-]|[$$ test started at_]|[-4-]}
StringCat6(a, b, c, d, e, f : String) : String
<POP 2095c-20960 StackAdj> Δ+24 {[«14""»]|[«4""»]|[«18""»]|[-4-]}
<Call 0x20960 0x103e0> {[«14""»]|[«4""»]|[«18""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 20966-2096a StackAdj> Δ+40 {}
<MI 2096a MOVE.W #0x9b2,D0> {}
<MI 2096e MULS.W (A6+0x8),D0> {}
<MI 20972 LEA.L 0x21ce8,A0> {}
<Blob 0x20978 [18] @> Δ-18 {[«18""»]}
<POP 20984-20986 StackAdj> Δ-4 {[«18""»]|[-4-]}
<MI 20986 MOVE.L (A6+0xa),-(A7)> Δ-4 {[«18""»]|[-4-]|[4, '(A6+0xa)']}
<POP 2098a-2098c StackAdj> Δ-4 {[«18""»]|[-4-]|[4, '(A6+0xa)']|[-4-]}
<Lit 0x2098c 18> {[«18""»]|[-4-]|[4, '(A6+0xa)']|[$$ error, retries =>]}
<MI 20996 MOVE.L (A0+D0.W+#0x26),(A7)> {[«18""»]|[-4-]|[4, '(A6+0xa)']|[4, '(A0+D0.W+#0x26)']}
<POP 20994-20996 StackAdj> Δ-8 {[«18""»]|[-4-]|[4, '(A6+0xa)']|[4, '(A0+D0.W+#0x26)']|[-8-]}
<Call 0x2099a 0x102e4> {[«18""»]|[-4-]|[4, '(A6+0xa)']|[4, '(A0+D0.W+#0x26)']|[-8-]}
Long2String(a : Long) : String
<POP 209a0-209a2 StackAdj> Δ+4 {[«18""»]|[-4-]|[4, '(A6+0xa)']|[4, '(A0+D0.W+#0x26)']|[-4-]}
<Call 0x209a2 0x102d4> {[«18""»]|[-4-]|[4, '(A6+0xa)']|[4, '(A0+D0.W+#0x26)']|[-4-]}
StringCat3(a, b, c : String) : String
<POP 209a8-209ac StackAdj> Δ+12 {[«18""»]|[-4-]}
<Call 0x209ac 0x103e0> {[«18""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 209b2-209b6 StackAdj> Δ+22 {}
<POP 209b6-209be Epilogue> Σ0
@ 209be
<LVAR 0x008 2(r)>
<POP 209be-20a18 Body>
<POP 209be-209d4 Prologue> Σ0 ↓
<POP 209d4-20a10 Naked> Σ0 ↓
<Blob 0x209d4 [4] @> Δ-4 {[«4""»]}
<POP 209d8-209da StackAdj> Δ-4 {[«4""»]|[-4-]}
<Lit 0x209da 4> {[«4""»]|[$$HARD]}
<POP 209ec-209ee StackAdj> Δ-2 {[«4""»]|[$$HARD]|[-2-]}
<MI 209ee MOVE.W (A6+0x8),(A7)> {[«4""»]|[$$HARD]|[2, '(A6+0x8)']}
<Call 0x209f2 0x208bc> {[«4""»]|[$$HARD]|[2, '(A6+0x8)']}
<POP 209f6-209fa StackAdj> Δ+10 {}
<MI 209fa MOVE.W #0x9b2,D0> {}
<MI 209fe MULS.W (A6+0x8),D0> {}
<MI 20a02 LEA.L 0x21ce8,A0> {}
<MI 20a08 ADDQ.L #0x1,(A0+D0.W+#0x12)> {}
<MI 20a0c CLR.L (A0+D0.W+#0x26)> {}
<POP 20a10-20a18 Epilogue> Σ0
@ 20a18
<LVAR 0x008 2(r)>
<POP 20a18-20a7a Body>
<POP 20a18-20a2e Prologue> Σ0 ↓
<POP 20a2e-20a72 Naked> Σ0 ↓
<Blob 0x20a2e [4] @> Δ-4 {[«4""»]}
<POP 20a32-20a34 StackAdj> Δ-4 {[«4""»]|[-4-]}
<Lit 0x20a34 4> {[«4""»]|[$$SOFT]}
<POP 20a46-20a48 StackAdj> Δ-2 {[«4""»]|[$$SOFT]|[-2-]}
<MI 20a48 MOVE.W (A6+0x8),(A7)> {[«4""»]|[$$SOFT]|[2, '(A6+0x8)']}
<Call 0x20a4c 0x208bc> {[«4""»]|[$$SOFT]|[2, '(A6+0x8)']}
<POP 20a50-20a54 StackAdj> Δ+10 {}
<MI 20a54 MOVE.W #0x9b2,D0> {}
<MI 20a58 MULS.W (A6+0x8),D0> {}
<MI 20a5c LEA.L 0x21ce8,A0> {}
<MI 20a62 MOVE.L (A0+D0.W+#0x16),D1> {}
<MI 20a66 ADD.L (A0+D0.W+#0x26),D1> {}
<MI 20a6a MOVE.L D1,(A0+D0.W+#0x16)> {}
<MI 20a6e CLR.L (A0+D0.W+#0x26)> {}
<POP 20a72-20a7a Epilogue> Σ0
@ 20a7a
<LVAR 0x008 2(r)>
<POP 20a7a-20ad0 Body>
<POP 20a7a-20a90 Prologue> Σ0 ↓
<POP 20a90-20ac8 Naked> Σ0 ↓
<Blob 0x20a90 [4] @> Δ-4 {[«4""»]}
<POP 20a94-20a96 StackAdj> Δ-4 {[«4""»]|[-4-]}
<Lit 0x20a96 4> {[«4""»]|[$$DATA]}
<POP 20aa8-20aaa StackAdj> Δ-2 {[«4""»]|[$$DATA]|[-2-]}
<MI 20aaa MOVE.W (A6+0x8),(A7)> {[«4""»]|[$$DATA]|[2, '(A6+0x8)']}
<Call 0x20aae 0x208bc> {[«4""»]|[$$DATA]|[2, '(A6+0x8)']}
<POP 20ab2-20ab6 StackAdj> Δ+10 {}
<MI 20ab6 MOVE.W #0x9b2,D0> {}
<MI 20aba MULS.W (A6+0x8),D0> {}
<MI 20abe LEA.L 0x21ce8,A0> {}
<MI 20ac4 ADDQ.L #0x1,(A0+D0.W+#0x1a)> {}
<POP 20ac8-20ad0 Epilogue> Σ0
@ 20ad0
<LVAR 0x00c 2(r)>
<LVAR 0x008 4(r)>
<LVAR -0x002 @>
<LVAR -0x004 2(r)>
<LVAR -0x006 2(r)>
<LVAR -0x008 2(w)>
<LVAR -0x00a 2(r)>
<LVAR -0x00c 2(r)>
<LVAR -0x00e 2(w)>
<LVAR -0x010 2(r)>
<LVAR -0x012 @ 2(r)>
<POP 20ad0-20b3c Body>
<POP 20ad0-20ae6 Prologue> Σ0 ↓
<POP 20ae6-20aea RegCacheLoad> Σ0 ↓
<POP 20aea-20b34 Naked> Σ0 ↓
<MI 20aea CLR.W (A6-0x12)> {}
<MI 20aee CLR.W (A6-0x10)> {}
<MI 20af2 MOVE.W #0x3,(A6-0xe)> {}
<MI 20af8 CLR.W (A6-0xc)> {}
<MI 20afc CLR.W (A6-0xa)> {}
<MI 20b00 MOVE.W (A6+0xc),D0> {}
<MI 20b02 ASL.W #0x8,D0> {}
<MI 20b04 ADDQ.W #0x1,D0> {}
<MI 20b06 MOVE.W D0,(A6-0x8)> {}
<MI 20b0a CLR.W (A6-0x6)> {}
<MI 20b0e CLR.W (A6-0x4)> {}
<Pointer.fp 0x20b12 <LVAR -0x012 @ 2(r)>> Δ-4 {[@@-18]}
<MI 20b16 MOVEA.L (A6+0x8),A0> {[@@-18]}
<MI 20b1a MOVE.L A0,-(A7)> Δ-4 {[@@-18]|[4, 'A0']}
<MI 20b1c MOVE.W (A6+0xc),-(A7)> Δ-2 {[@@-18]|[4, 'A0']|[2, '(A6+0xc)']}
<Call 0x20b1e 0x10204> {[@@-18]|[4, 'A0']|[2, '(A6+0xc)']}
KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
<POP 20b24-20b26 StackAdj> Δ+8 {[-2-]}
<MI 20b26 MOVE.W (A6+0xc),(A7)> {[2, '(A6+0xc)']}
<Pointer.fp 0x20b28 <LVAR -0x002 @>> Δ-4 {[2, '(A6+0xc)']|[@@-2]}
<Call 0x20b2c 0x10206> {[2, '(A6+0xc)']|[@@-2]}
KC03_Wait_Disk_IO(a : W; VAR status : Byte)
<POP 20b32-20b34 StackAdj> Δ+6 {}
<POP 20b34-20b3c Epilogue> Σ0
@ 20b3c
<LVAR 0x008 2(r)>
<POP 20b3c-20b80 Body>
<POP 20b3c-20b52 Prologue> Σ0 ↓
<POP 20b52-20b78 Naked> Σ0 ↓
<MI 20b52 MOVE.W #0x9b2,D0> {}
<MI 20b56 MULS.W (A6+0x8),D0> {}
<MI 20b5a LEA.L 0x21ce8,A0> {}
<MI 20b60 LEA.L (A0+D0.W+#0xc),A0> {}
<MI 20b64 MOVE.B #0x0a,(A0+0x9ac)> {}
<MI 20b6a MOVE.W (A6+0x8),-(A7)> Δ-2 {[2, '(A6+0x8)']}
<Call 0x20b6e 0x20476> {[2, '(A6+0x8)']}
<POP 20b72-20b74 StackAdj> Δ+2 {}
<MI 20b74 CLR.B (A0+0x2)> {}
<POP 20b78-20b80 Epilogue> Σ0
@ 20b80
<LVAR 0x010 2(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 20b80-20c62 Body>
<POP 20b80-20b96 Prologue> Σ0 ↓
<POP 20b96-20ba6 RegCacheLoad> Σ0 ↓
<POP 20ba6-20bb2 Naked> Σ0 ↓ →0x20bee
<MI 20ba6 MOVEA.L (A6+0xc),A0> {}
<MI 20baa MOVE.W (A0),D0> {}
<MI 20bac ANDI.W #0x0040,D0> {}
<MI 20bb0 BEQ 0x20bee> {}
<POP 20bb2-20bee Naked> Σ0 →0x20c5a
<Blob 0x20bb2 [12] @> Δ-12 {[«12""»]}
<POP 20bc4-20bc6 StackAdj> Δ-4 {[«12""»]|[-4-]}
<Lit 0x20bc6 11> {[«12""»]|[$$Not on line]}
<POP 20bd2-20bd4 StackAdj> Δ-2 {[«12""»]|[$$Not on line]|[-2-]}
<MI 20bd4 MOVE.W (A6+0x10),(A7)> {[«12""»]|[$$Not on line]|[2, '(A6+0x10)']}
<Call 0x20bd6 0x208bc> {[«12""»]|[$$Not on line]|[2, '(A6+0x10)']}
<POP 20bd8-20bdc StackAdj> Δ+18 {}
<MI 20bdc MOVE.W #0x9b2,D0> {}
<MI 20be0 MULS.W (A6+0x10),D0> {}
<MI 20be2 LEA.L 0x21ce8,A0> {}
<MI 20be8 CLR.B (A0+D0.W+#0xc)> {}
<MI 20bec BRA 0x20c5a> {}
<POP 20bee-20bf8 Naked> Σ0 ↓ →0x20c2c ←0x20ba6
<MI 20bee MOVE.W (A0+0xe),D0> {}
<MI 20bf2 ANDI.W #0x0008,D0> {}
<MI 20bf6 BEQ 0x20c2c> {}
<POP 20bf8-20c22 Naked> Σ0 ↓
<Blob 0x20bf8 [14] @> Δ-14 {[«14""»]}
<POP 20c0a-20c0c StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x20c0c 13> {[«14""»]|[$$Wrong density]}
<POP 20c18-20c1a StackAdj> Δ-2 {[«14""»]|[$$Wrong density]|[-2-]}
<MI 20c1a MOVE.W (A6+0x10),(A7)> {[«14""»]|[$$Wrong density]|[2, '(A6+0x10)']}
<Call 0x20c1c 0x208bc> {[«14""»]|[$$Wrong density]|[2, '(A6+0x10)']}
<POP 20c1e-20c22 StackAdj> Δ+20 {}
<POP 20c22-20c2c Naked> Σ0 →0x20c5a ←0x20c36
<MI 20c22 MOVE.W (A6+0x10),-(A7)> Δ-2 {[2, '(A6+0x10)']}
<Call 0x20c24 0x20b3c> {[2, '(A6+0x10)']}
<POP 20c28-20c2a StackAdj> Δ+2 {}
<MI 20c2a BRA 0x20c5a> {}
<POP 20c2c-20c36 Naked> Σ0 ↓ →0x20c54 ←0x20bee
<MI 20c2c MOVE.W (A0+0xa),D0> {}
<MI 20c30 ANDI.W #0x0020,D0> {}
<MI 20c34 BEQ 0x20c54> {}
<POP 20c36-20c54 Naked> Σ0 →0x20c22
<Blob 0x20c36 [4] @> Δ-4 {[«4""»]}
<POP 20c3a-20c3c StackAdj> Δ-4 {[«4""»]|[-4-]}
<Lit 0x20c3c 4> {[«4""»]|[$$Tape]}
<POP 20c48-20c4a StackAdj> Δ-2 {[«4""»]|[$$Tape]|[-2-]}
<MI 20c4a MOVE.W (A6+0x10),(A7)> {[«4""»]|[$$Tape]|[2, '(A6+0x10)']}
<Call 0x20c4c 0x208bc> {[«4""»]|[$$Tape]|[2, '(A6+0x10)']}
<POP 20c4e-20c52 StackAdj> Δ+10 {}
<MI 20c52 BRA 0x20c22> {}
<POP 20c54-20c5a Naked> Σ0 ↓ ←0x20c2c
<MI 20c54 MOVEA.L (A6+0x8),A0> {}
<MI 20c58 MOVE.B #0x01,(A0)> {}
<POP 20c5a-20c62 Epilogue> Σ0 ←0x20bb2 ←0x20c22
@ 20c62
<LVAR 0x010 2(r)>
<POP 20c62-20ca6 Body>
<POP 20c62-20c74 Prologue> Σ0 ↓
<POP 20c74-20ca2 Naked> Σ0 ↓
<Blob 0x20c74 [4] @> Δ-4 {[«4""»]}
<POP 20c78-20c7a StackAdj> Δ-4 {[«4""»]|[-4-]}
<Lit 0x20c7a 4> {[«4""»]|[$$Tape]}
<POP 20c8c-20c8e StackAdj> Δ-2 {[«4""»]|[$$Tape]|[-2-]}
<MI 20c8e MOVE.W (A6+0x10),(A7)> {[«4""»]|[$$Tape]|[2, '(A6+0x10)']}
<Call 0x20c92 0x208bc> {[«4""»]|[$$Tape]|[2, '(A6+0x10)']}
<POP 20c96-20c98 StackAdj> Δ+8 {[-2-]}
<MI 20c98 MOVE.W (A6+0x10),(A7)> {[2, '(A6+0x10)']}
<Call 0x20c9c 0x20b3c> {[2, '(A6+0x10)']}
<POP 20ca0-20ca2 StackAdj> Δ+2 {}
<POP 20ca2-20ca6 Epilogue> Σ0
@ 20ca6
<LVAR 0x010 2(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 20ca6-20e40 Body>
<POP 20ca6-20cbc Prologue> Σ0 ↓
<POP 20cbc-20cda RegCacheLoad> Σ0 ↓
<POP 20cda-20ce8 Naked> Σ0 ↓ →0x20d48
<MI 20cda MOVEA.L (A6+0xc),A0> {}
<MI 20cde MOVE.W (A0+0x8),D0> {}
<MI 20ce2 ANDI.W #0x1000,D0> {}
<MI 20ce6 BEQ 0x20d48> {}
<POP 20ce8-20cfa Naked> Σ0 ↓ →0x20d24
<MI 20ce8 MOVE.W #0x9b2,D0> {}
<MI 20cea MULS.W (A6+0x10),D0> {}
<MI 20cec LEA.L 0x21ce8,A0> {}
<MI 20cf2 MOVE.B (A0+D0.W+#0xe),D0> {}
<MI 20cf6 CMP.B #0x2003,D0> {}
<MI 20cf8 BNE 0x20d24> {}
<POP 20cfa-20d24 Naked> Σ0 →0x20d3c
<Blob 0x20cfa [12] @> Δ-12 {[«12""»]}
<POP 20d0a-20d0c StackAdj> Δ-4 {[«12""»]|[-4-]}
<Lit 0x20d0c 11> {[«12""»]|[$$Record long]}
<POP 20d18-20d1a StackAdj> Δ-2 {[«12""»]|[$$Record long]|[-2-]}
<MI 20d1a MOVE.W (A6+0x10),(A7)> {[«12""»]|[$$Record long]|[2, '(A6+0x10)']}
<Call 0x20d1c 0x208bc> {[«12""»]|[$$Record long]|[2, '(A6+0x10)']}
<POP 20d1e-20d22 StackAdj> Δ+18 {}
<MI 20d22 BRA 0x20d3c> {}
<POP 20d24-20d3c Naked> Σ0 ↓ ←0x20ce8
<Blob 0x20d24 [4] @> Δ-4 {[«4""»]}
<POP 20d28-20d2a StackAdj> Δ-4 {[«4""»]|[-4-]}
<Lit 0x20d2a 4> {[«4""»]|[$$Tape]}
<POP 20d34-20d36 StackAdj> Δ-2 {[«4""»]|[$$Tape]|[-2-]}
<MI 20d36 MOVE.W (A6+0x10),(A7)> {[«4""»]|[$$Tape]|[2, '(A6+0x10)']}
<Call 0x20d38 0x208bc> {[«4""»]|[$$Tape]|[2, '(A6+0x10)']}
<POP 20d3a-20d3c StackAdj> Δ+10 {}
<POP 20d3c-20d48 Naked> Σ0 →0x20e38 ←0x20cfa
<MI 20d3c MOVE.W (A6+0x10),-(A7)> Δ-2 {[2, '(A6+0x10)']}
<Call 0x20d3e 0x20b3c> {[2, '(A6+0x10)']}
<POP 20d42-20d44 StackAdj> Δ+2 {}
<MI 20d44 BRA 0x20e38> {}
<POP 20d48-20d52 Naked> Σ0 ↓ →0x20db8 ←0x20cda
<MI 20d48 MOVE.W (A0+0x8),D0> {}
<MI 20d4c ANDI.W #0x4000,D0> {}
<MI 20d50 BEQ 0x20db8> {}
<POP 20d52-20d64 Naked> Σ0 ↓ →0x20d6c
<MI 20d52 MOVE.W #0x9b2,D0> {}
<MI 20d54 MULS.W (A6+0x10),D0> {}
<MI 20d56 LEA.L 0x21ce8,A0> {}
<MI 20d5c MOVE.B (A0+D0.W+#0xe),D1> {}
<MI 20d60 CMP.B #0x04,D1> {}
<MI 20d62 BNE 0x20d6c> {}
<POP 20d64-20d6c Naked> Σ0 →0x20db4
<MI 20d64 MOVEA.L (A6+0x8),A0> {}
<MI 20d68 MOVE.B #0x01,(A0)> {}
<MI 20d6a BRA 0x20db4> {}
<POP 20d6c-20d70 Naked> Σ0 ↓ →0x20d94 ←0x20d52
<MI 20d6c CMP.B #0x2003,D1> {}
<MI 20d6e BNE 0x20d94> {}
<POP 20d70-20d94 Naked> Σ0 →0x20dac
<Blob 0x20d70 [4] @> Δ-4 {[«4""»]}
<Blob 0x20d74 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x20d78 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<POP 20d7c-20d7e StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x20d7e 12> {[«4""»]|[«4""»]|[«4""»]|[$$Record short]}
<POP 20d88-20d8a StackAdj> Δ-2 {[«4""»]|[«4""»]|[«4""»]|[$$Record short]|[-2-]}
<MI 20d8a MOVE.W (A6+0x10),(A7)> {[«4""»]|[«4""»]|[«4""»]|[$$Record short]|[2, '(A6+0x10)']}
<Call 0x20d8c 0x208bc> {[«4""»]|[«4""»]|[«4""»]|[$$Record short]|[2, '(A6+0x10)']}
<POP 20d8e-20d92 StackAdj> Δ+18 {}
<MI 20d92 BRA 0x20dac> {}
<POP 20d94-20dac Naked> Σ0 ↓ ←0x20d6c
<Blob 0x20d94 [4] @> Δ-4 {[«4""»]}
<POP 20d98-20d9a StackAdj> Δ-4 {[«4""»]|[-4-]}
<Lit 0x20d9a 4> {[«4""»]|[$$Tape]}
<POP 20da4-20da6 StackAdj> Δ-2 {[«4""»]|[$$Tape]|[-2-]}
<MI 20da6 MOVE.W (A6+0x10),(A7)> {[«4""»]|[$$Tape]|[2, '(A6+0x10)']}
<Call 0x20da8 0x208bc> {[«4""»]|[$$Tape]|[2, '(A6+0x10)']}
<POP 20daa-20dac StackAdj> Δ+10 {}
<POP 20dac-20db4 Naked> Σ0 ↓ ←0x20d70
<MI 20dac MOVE.W (A6+0x10),-(A7)> Δ-2 {[2, '(A6+0x10)']}
<Call 0x20dae 0x20b3c> {[2, '(A6+0x10)']}
<POP 20db2-20db4 StackAdj> Δ+2 {}
<POP 20db4-20db8 Naked> Σ0 →0x20e38 ←0x20d64
<MI 20db4 BRA 0x20e38> {}
<POP 20db8-20dc6 Naked> Σ0 ↓ →0x20e00 ←0x20d48
<MI 20db8 MOVE.W #0x9b2,D0> {}
<MI 20dba MULS.W (A6+0x10),D0> {}
<MI 20dbc MOVE.W (A0+0x8),D1> {}
<MI 20dc0 ANDI.W #0x8000,D1> {}
<MI 20dc4 BEQ 0x20e00> {}
<POP 20dc6-20dd4 Naked> Σ0 ↓ →0x20e00
<MI 20dc6 LEA.L 0x21ce8,A1> {}
<MI 20dcc MOVE.B (A1+D0.W+#0xe),D0> {}
<MI 20dd0 CMP.B #0x2003,D0> {}
<MI 20dd2 BNE 0x20e00> {}
<POP 20dd4-20e00 Naked> Σ0 →0x20e30
<Blob 0x20dd4 [16] @> Δ-16 {[«16""»]}
<POP 20de6-20de8 StackAdj> Δ-4 {[«16""»]|[-4-]}
<Lit 0x20de8 15> {[«16""»]|[$$Unexpected mark]}
<POP 20df4-20df6 StackAdj> Δ-2 {[«16""»]|[$$Unexpected mark]|[-2-]}
<MI 20df6 MOVE.W (A6+0x10),(A7)> {[«16""»]|[$$Unexpected mark]|[2, '(A6+0x10)']}
<Call 0x20df8 0x208bc> {[«16""»]|[$$Unexpected mark]|[2, '(A6+0x10)']}
<POP 20dfa-20dfe StackAdj> Δ+22 {}
<MI 20dfe BRA 0x20e30> {}
<POP 20e00-20e08 Naked> Σ0 ↓ →0x20e10 ←0x20db8 ←0x20dc6
<MI 20e00 MOVE.W (A0+0x8),D0> {}
<MI 20e04 AND.W #0x2003,D0> {}
<MI 20e06 BNE 0x20e10> {}
<POP 20e08-20e10 Naked> Σ0 ↓ →0x20e18
<MI 20e08 MOVE.W (A0+0xe),D0> {}
<MI 20e0c AND.W #0x01,D0> {}
<MI 20e0e BEQ 0x20e18> {}
<POP 20e10-20e18 Naked> Σ0 →0x20e38 ←0x20e00
<MI 20e10 MOVEA.L (A6+0x8),A0> {}
<MI 20e14 MOVE.B #0x01,(A0)> {}
<MI 20e16 BRA 0x20e38> {}
<POP 20e18-20e30 Naked> Σ0 ↓ ←0x20e08
<Blob 0x20e18 [4] @> Δ-4 {[«4""»]}
<POP 20e1c-20e1e StackAdj> Δ-4 {[«4""»]|[-4-]}
<Lit 0x20e1e 4> {[«4""»]|[$$Tape]}
<POP 20e28-20e2a StackAdj> Δ-2 {[«4""»]|[$$Tape]|[-2-]}
<MI 20e2a MOVE.W (A6+0x10),(A7)> {[«4""»]|[$$Tape]|[2, '(A6+0x10)']}
<Call 0x20e2c 0x208bc> {[«4""»]|[$$Tape]|[2, '(A6+0x10)']}
<POP 20e2e-20e30 StackAdj> Δ+10 {}
<POP 20e30-20e38 Naked> Σ0 ↓ ←0x20dd4
<MI 20e30 MOVE.W (A6+0x10),-(A7)> Δ-2 {[2, '(A6+0x10)']}
<Call 0x20e32 0x20b3c> {[2, '(A6+0x10)']}
<POP 20e36-20e38 StackAdj> Δ+2 {}
<POP 20e38-20e40 Epilogue> Σ0 ←0x20d3c ←0x20db4 ←0x20e10
@ 20e40
<LVAR 0x010 2(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 20e40-20f18 Body>
<POP 20e40-20e56 Prologue> Σ0 ↓
<POP 20e56-20e66 RegCacheLoad> Σ0 ↓
<POP 20e66-20e72 Naked> Σ0 ↓ →0x20eac
<MI 20e66 MOVEA.L (A6+0xc),A0> {}
<MI 20e6a MOVE.W (A0),D0> {}
<MI 20e6c ANDI.W #0x0040,D0> {}
<MI 20e70 BEQ 0x20eac> {}
<POP 20e72-20e9a Naked> Σ0 ↓
<Blob 0x20e72 [8] @> Δ-8 {[«8""»]}
<POP 20e82-20e84 StackAdj> Δ-4 {[«8""»]|[-4-]}
<Lit 0x20e84 7> {[«8""»]|[$$On line]}
<POP 20e90-20e92 StackAdj> Δ-2 {[«8""»]|[$$On line]|[-2-]}
<MI 20e92 MOVE.W (A6+0x10),(A7)> {[«8""»]|[$$On line]|[2, '(A6+0x10)']}
<Call 0x20e94 0x208bc> {[«8""»]|[$$On line]|[2, '(A6+0x10)']}
<POP 20e96-20e9a StackAdj> Δ+14 {}
<POP 20e9a-20eac Naked> Σ0 →0x20f10 ←0x20eb6
<MI 20e9a MOVE.W #0x9b2,D0> {}
<MI 20e9e MULS.W (A6+0x10),D0> {}
<MI 20ea0 LEA.L 0x21ce8,A0> {}
<MI 20ea6 CLR.B (A0+D0.W+#0xc)> {}
<MI 20eaa BRA 0x20f10> {}
<POP 20eac-20eb6 Naked> Σ0 ↓ →0x20edc ←0x20e66
<MI 20eac MOVE.W (A0+0x8),D0> {}
<MI 20eb0 ANDI.W #0x0800,D0> {}
<MI 20eb4 BEQ 0x20edc> {}
<POP 20eb6-20edc Naked> Σ0 →0x20e9a
<Blob 0x20eb6 [10] @> Δ-10 {[«10""»]}
<POP 20ec2-20ec4 StackAdj> Δ-4 {[«10""»]|[-4-]}
<Lit 0x20ec4 10> {[«10""»]|[$$Write lock]}
<POP 20ed0-20ed2 StackAdj> Δ-2 {[«10""»]|[$$Write lock]|[-2-]}
<MI 20ed2 MOVE.W (A6+0x10),(A7)> {[«10""»]|[$$Write lock]|[2, '(A6+0x10)']}
<Call 0x20ed4 0x208bc> {[«10""»]|[$$Write lock]|[2, '(A6+0x10)']}
<POP 20ed6-20eda StackAdj> Δ+16 {}
<MI 20eda BRA 0x20e9a> {}
<POP 20edc-20ee6 Naked> Σ0 ↓ →0x20eee ←0x20eac
<MI 20edc MOVE.W (A0+0x8),D0> {}
<MI 20ee0 ANDI.W #0x0002,D0> {}
<MI 20ee4 BEQ 0x20eee> {}
<POP 20ee6-20eee Naked> Σ0 →0x20f10
<MI 20ee6 MOVEA.L (A6+0x8),A0> {}
<MI 20eea MOVE.B #0x01,(A0)> {}
<MI 20eec BRA 0x20f10> {}
<POP 20eee-20f10 Naked> Σ0 ↓ ←0x20edc
<Blob 0x20eee [4] @> Δ-4 {[«4""»]}
<POP 20ef2-20ef4 StackAdj> Δ-4 {[«4""»]|[-4-]}
<Lit 0x20ef4 4> {[«4""»]|[$$Tape]}
<POP 20f00-20f02 StackAdj> Δ-2 {[«4""»]|[$$Tape]|[-2-]}
<MI 20f02 MOVE.W (A6+0x10),(A7)> {[«4""»]|[$$Tape]|[2, '(A6+0x10)']}
<Call 0x20f04 0x208bc> {[«4""»]|[$$Tape]|[2, '(A6+0x10)']}
<POP 20f06-20f08 StackAdj> Δ+8 {[-2-]}
<MI 20f08 MOVE.W (A6+0x10),(A7)> {[2, '(A6+0x10)']}
<Call 0x20f0a 0x20b3c> {[2, '(A6+0x10)']}
<POP 20f0e-20f10 StackAdj> Δ+2 {}
<POP 20f10-20f18 Epilogue> Σ0 ←0x20e9a ←0x20ee6
@ 20f18
<LVAR 0x010 2(r)>
<LVAR 0x00c 4(r)>
<POP 20f18-20fcc Body>
<POP 20f18-20f2e Prologue> Σ0 ↓
<POP 20f2e-20f36 RegCacheLoad> Σ0 ↓
<POP 20f36-20f4a Naked> Σ0 ↓ →0x20f4e
<MI 20f36 MOVE.W #0x9b2,D0> {}
<MI 20f3a MULS.W (A6+0x10),D0> {}
<MI 20f3c LEA.L 0x21ce8,A0> {}
<MI 20f42 MOVE.B (A0+D0.W+#0xe),D1> {}
<MI 20f46 CMP.B #0x03,D1> {}
<MI 20f48 BEQ 0x20f4e> {}
<POP 20f4a-20f4e Naked> Σ0 ↓ →0x20f9a
<MI 20f4a CMP.B #0x02,D1> {}
<MI 20f4c BNE 0x20f9a> {}
<POP 20f4e-20f5a Naked> Σ0 ↓ →0x20f6a ←0x20f36
<MI 20f4e MOVE.L (A0+D0.W+#0x26),D2> {}
<MI 20f52 CMPI.L #0x0000000a,D2> {}
<MI 20f58 BLE 0x20f6a> {}
<POP 20f5a-20f6a Naked> Σ0 →0x20f98
<MI 20f5a MOVE.W (A6+0x10),-(A7)> Δ-2 {[2, '(A6+0x10)']}
<Call 0x20f5c 0x209be> {[2, '(A6+0x10)']}
<MI 20f60 MOVE.W (A6+0x10),(A7)> {[2, '(A6+0x10)']}
<Call 0x20f62 0x20b3c> {[2, '(A6+0x10)']}
<POP 20f66-20f68 StackAdj> Δ+2 {}
<MI 20f68 BRA 0x20f98> {}
<POP 20f6a-20f74 Naked> Σ0 ↓ →0x20f8c ←0x20f4e
<MI 20f6a MOVEA.L (A6+0xc),A1> {}
<MI 20f6e MOVE.W (A1),D2> {}
<MI 20f70 AND.W #0x02,D2> {}
<MI 20f72 BNE 0x20f8c> {}
<POP 20f74-20f78 Naked> Σ0 ↓ →0x20f82
<MI 20f74 CMP.B #0x03,D1> {}
<MI 20f76 BNE 0x20f82> {}
<POP 20f78-20f82 Naked> Σ0 →0x20f8c
<MI 20f78 LEA.L (A0+D0.W+#0xc),A1> {}
<MI 20f7c MOVE.B #0x03,(A1+0x9ac)> {}
<MI 20f80 BRA 0x20f8c> {}
<POP 20f82-20f8c Naked> Σ0 ↓ ←0x20f74
<MI 20f82 LEA.L (A0+D0.W+#0xc),A1> {}
<MI 20f86 MOVE.B #0x05,(A1+0x9ac)> {}
<POP 20f8c-20f98 Naked> Σ0 ↓ ←0x20f6a ←0x20f78
<MI 20f8c MOVE.W (A6+0x10),-(A7)> Δ-2 {[2, '(A6+0x10)']}
<Call 0x20f8e 0x20476> {[2, '(A6+0x10)']}
<POP 20f92-20f94 StackAdj> Δ+2 {}
<MI 20f94 ADDQ.L #0x1,(A0+D0.W+#0x26)> {}
<POP 20f98-20f9a Naked> Σ0 →0x20fc4 ←0x20f5a
<MI 20f98 BRA 0x20fc4> {}
<POP 20f9a-20fc4 Naked> Σ0 ↓ ←0x20f4a
<Blob 0x20f9a [4] @> Δ-4 {[«4""»]}
<POP 20f9e-20fa0 StackAdj> Δ-4 {[«4""»]|[-4-]}
<Lit 0x20fa0 4> {[«4""»]|[$$Tape]}
<POP 20fb2-20fb4 StackAdj> Δ-2 {[«4""»]|[$$Tape]|[-2-]}
<MI 20fb4 MOVE.W (A6+0x10),(A7)> {[«4""»]|[$$Tape]|[2, '(A6+0x10)']}
<Call 0x20fb6 0x208bc> {[«4""»]|[$$Tape]|[2, '(A6+0x10)']}
<POP 20fba-20fbc StackAdj> Δ+8 {[-2-]}
<MI 20fbc MOVE.W (A6+0x10),(A7)> {[2, '(A6+0x10)']}
<Call 0x20fbe 0x20b3c> {[2, '(A6+0x10)']}
<POP 20fc2-20fc4 StackAdj> Δ+2 {}
<POP 20fc4-20fcc Epilogue> Σ0 ←0x20f98
@ 20fcc
<LVAR 0x010 2(r)>
<POP 20fcc-21010 Body>
<POP 20fcc-20fde Prologue> Σ0 ↓
<POP 20fde-2100c Naked> Σ0 ↓
<Blob 0x20fde [4] @> Δ-4 {[«4""»]}
<POP 20fe2-20fe4 StackAdj> Δ-4 {[«4""»]|[-4-]}
<Lit 0x20fe4 4> {[«4""»]|[$$Tape]}
<POP 20ff6-20ff8 StackAdj> Δ-2 {[«4""»]|[$$Tape]|[-2-]}
<MI 20ff8 MOVE.W (A6+0x10),(A7)> {[«4""»]|[$$Tape]|[2, '(A6+0x10)']}
<Call 0x20ffc 0x208bc> {[«4""»]|[$$Tape]|[2, '(A6+0x10)']}
<POP 21000-21002 StackAdj> Δ+8 {[-2-]}
<MI 21002 MOVE.W (A6+0x10),(A7)> {[2, '(A6+0x10)']}
<Call 0x21006 0x20b3c> {[2, '(A6+0x10)']}
<POP 2100a-2100c StackAdj> Δ+2 {}
<POP 2100c-21010 Epilogue> Σ0
@ 21010
<LVAR 0x010 2(r)>
<POP 21010-21066 Body>
<POP 21010-21026 Prologue> Σ0 ↓
<POP 21026-2105e Naked> Σ0 ↓
<Blob 0x21026 [4] @> Δ-4 {[«4""»]}
<POP 2102a-2102c StackAdj> Δ-4 {[«4""»]|[-4-]}
<Lit 0x2102c 4> {[«4""»]|[$$Unit]}
<POP 2103e-21040 StackAdj> Δ-2 {[«4""»]|[$$Unit]|[-2-]}
<MI 21040 MOVE.W (A6+0x10),(A7)> {[«4""»]|[$$Unit]|[2, '(A6+0x10)']}
<Call 0x21044 0x208bc> {[«4""»]|[$$Unit]|[2, '(A6+0x10)']}
<POP 21048-2104c StackAdj> Δ+10 {}
<MI 2104c MOVE.W #0x9b2,D0> {}
<MI 21050 MULS.W (A6+0x10),D0> {}
<MI 21054 LEA.L 0x21ce8,A0> {}
<MI 2105a CLR.B (A0+D0.W+#0xc)> {}
<POP 2105e-21066 Epilogue> Σ0
@ 21066
<LVAR 0x00c 2(r)>
<LVAR 0x008 4(r)>
<LVAR -0x00e 2(r)>
<LVAR -0x016 @ 2(r)>
<POP 21066-21164 Body> Δ+46
<POP 21066-2107c Prologue> Σ0 ↓
<POP 2107c-21088 RegCacheLoad> Σ0 ↓
<POP 21088-210a2 Naked> Σ0 Δ-4 ↓ →0x210b2
<MI 21088 MOVEA.L (A6+0x8),A0> {}
<MI 2108c MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 2108e CLR.B (A0)> {[4, 'A0']}
<MI 21090 MOVE.W (A6+0xc),-(A7)> Δ-2 {[4, 'A0']|[2, '(A6+0xc)']}
<Pointer.fp 0x21092 <LVAR -0x016 @ 2(r)>> Δ-4 {[4, 'A0']|[2, '(A6+0xc)']|[@@-22]}
<Call 0x21094 0x20ad0> {[4, 'A0']|[2, '(A6+0xc)']|[@@-22]}
<POP 21098-2109a StackAdj> Δ+6 {[4, 'A0']}
<MI 2109a MOVE.W (A6-0xe),D0> {[4, 'A0']}
<MI 2109e AND.W #0x01,D0> {[4, 'A0']}
<MI 210a0 BEQ 0x210b2> {[4, 'A0']}
<POP 210a2-210b2 Naked> Σ-4 ↓
<MI 210a2 MOVE.W #0x9b2,D0> {[-4-]}
<MI 210a6 MULS.W (A6+0xc),D0> {[-4-]}
<MI 210a8 LEA.L 0x21ce8,A0> {[-4-]}
<MI 210ae MOVE.B #0x01,(A0+D0.W+#0xd)> {[-4-]}
<POP 210b2-210d4 Naked> Σ-4 →0x210e4 →0x210fa →0x2110a →0x2111a →0x2112a →0x2113a →0x2113c →0x2114c ←0x21088
<MI 210b2 MOVE.W (A6-0x16),D0> {[-4-]}
<MI 210b4 AND.W #0x0e,D0> {[-4-]}
<MI 210b6 LSR.W #0x1,D0> {[-4-]}
<MI 210b8 CLR.L D1> {[-4-]}
<MI 210ba MOVE.W D0,D1> {[-4-]}
<MI 210bc MOVE.L D1,D7> {[-4-]}
<MI 210be MOVE.L D7,D0> {[-4-]}
<POP 0x210c0 LimitCheck 0x0 ≤ D0 ≤ 0x7> {[-4-]}
<MI 210ca ADD.W D0,D0> {[-4-]}
<MI 210cc SWITCH D0.W> {[-4-]}
<POP 210e4-210f2 Naked> Σ-4 Δ-10 ↓ ←0x210b2
<MI 210e4 MOVE.W (A6+0xc),-(A7)> Δ-2 {[-4-]|[2, '(A6+0xc)']}
<Pointer.fp 0x210e6 <LVAR -0x016 @ 2(r)>> Δ-4 {[-4-]|[2, '(A6+0xc)']|[@@-22]}
<MI 210e8 MOVEA.L (A7+0x6),A0> {[-4-]|[2, '(A6+0xc)']|[@@-22]}
<MI 210ec PEA.L (A0)> Δ-4 {[-4-]|[2, '(A6+0xc)']|[@@-22]|[4, '^(A0)']}
<Call 0x210ee 0x20b80> {[-4-]|[2, '(A6+0xc)']|[@@-22]|[4, '^(A0)']}
<POP 210f2-210fa Naked> Σ-14 Δ+14 →0x2115c ←0x210fa ←0x2110a ←0x2111a ←0x2112a ←0x2113c
<POP 210f2-210f6 StackAdj> Δ+10 {[-4-]}
<POP 210f6-210f8 StackAdj> Δ+4 {}
<MI 210f8 BRA 0x2115c> {}
<POP 210fa-2110a Naked> Σ-4 Δ-10 →0x210f2 ←0x210b2
<MI 210fa MOVE.W (A6+0xc),-(A7)> Δ-2 {[-4-]|[2, '(A6+0xc)']}
<Pointer.fp 0x210fc <LVAR -0x016 @ 2(r)>> Δ-4 {[-4-]|[2, '(A6+0xc)']|[@@-22]}
<MI 210fe MOVEA.L (A7+0x6),A0> {[-4-]|[2, '(A6+0xc)']|[@@-22]}
<MI 21102 PEA.L (A0)> Δ-4 {[-4-]|[2, '(A6+0xc)']|[@@-22]|[4, '^(A0)']}
<Call 0x21104 0x20c62> {[-4-]|[2, '(A6+0xc)']|[@@-22]|[4, '^(A0)']}
<MI 21108 BRA 0x210f2> {[-4-]|[2, '(A6+0xc)']|[@@-22]|[4, '^(A0)']}
<POP 2110a-2111a Naked> Σ-4 Δ-10 →0x210f2 ←0x210b2
<MI 2110a MOVE.W (A6+0xc),-(A7)> Δ-2 {[-4-]|[2, '(A6+0xc)']}
<Pointer.fp 0x2110c <LVAR -0x016 @ 2(r)>> Δ-4 {[-4-]|[2, '(A6+0xc)']|[@@-22]}
<MI 2110e MOVEA.L (A7+0x6),A0> {[-4-]|[2, '(A6+0xc)']|[@@-22]}
<MI 21112 PEA.L (A0)> Δ-4 {[-4-]|[2, '(A6+0xc)']|[@@-22]|[4, '^(A0)']}
<Call 0x21114 0x20ca6> {[-4-]|[2, '(A6+0xc)']|[@@-22]|[4, '^(A0)']}
<MI 21118 BRA 0x210f2> {[-4-]|[2, '(A6+0xc)']|[@@-22]|[4, '^(A0)']}
<POP 2111a-2112a Naked> Σ-4 Δ-10 →0x210f2 ←0x210b2
<MI 2111a MOVE.W (A6+0xc),-(A7)> Δ-2 {[-4-]|[2, '(A6+0xc)']}
<Pointer.fp 0x2111c <LVAR -0x016 @ 2(r)>> Δ-4 {[-4-]|[2, '(A6+0xc)']|[@@-22]}
<MI 2111e MOVEA.L (A7+0x6),A0> {[-4-]|[2, '(A6+0xc)']|[@@-22]}
<MI 21122 PEA.L (A0)> Δ-4 {[-4-]|[2, '(A6+0xc)']|[@@-22]|[4, '^(A0)']}
<Call 0x21124 0x20e40> {[-4-]|[2, '(A6+0xc)']|[@@-22]|[4, '^(A0)']}
<MI 21128 BRA 0x210f2> {[-4-]|[2, '(A6+0xc)']|[@@-22]|[4, '^(A0)']}
<POP 2112a-2113a Naked> Σ-4 Δ-10 →0x210f2 ←0x210b2 ←0x2113a
<MI 2112a MOVE.W (A6+0xc),-(A7)> Δ-2 {[-4-]|[2, '(A6+0xc)']}
<Pointer.fp 0x2112c <LVAR -0x016 @ 2(r)>> Δ-4 {[-4-]|[2, '(A6+0xc)']|[@@-22]}
<MI 2112e MOVEA.L (A7+0x6),A0> {[-4-]|[2, '(A6+0xc)']|[@@-22]}
<MI 21132 PEA.L (A0)> Δ-4 {[-4-]|[2, '(A6+0xc)']|[@@-22]|[4, '^(A0)']}
<Call 0x21134 0x20f18> {[-4-]|[2, '(A6+0xc)']|[@@-22]|[4, '^(A0)']}
<MI 21138 BRA 0x210f2> {[-4-]|[2, '(A6+0xc)']|[@@-22]|[4, '^(A0)']}
<POP 2113a-2113c Naked> Σ-4 →0x2112a ←0x210b2
<MI 2113a BRA 0x2112a> {[-4-]}
<POP 2113c-2114c Naked> Σ-4 Δ-10 →0x210f2 ←0x210b2
<MI 2113c MOVE.W (A6+0xc),-(A7)> Δ-2 {[-4-]|[2, '(A6+0xc)']}
<Pointer.fp 0x2113e <LVAR -0x016 @ 2(r)>> Δ-4 {[-4-]|[2, '(A6+0xc)']|[@@-22]}
<MI 21140 MOVEA.L (A7+0x6),A0> {[-4-]|[2, '(A6+0xc)']|[@@-22]}
<MI 21144 PEA.L (A0)> Δ-4 {[-4-]|[2, '(A6+0xc)']|[@@-22]|[4, '^(A0)']}
<Call 0x21146 0x20fcc> {[-4-]|[2, '(A6+0xc)']|[@@-22]|[4, '^(A0)']}
<MI 2114a BRA 0x210f2> {[-4-]|[2, '(A6+0xc)']|[@@-22]|[4, '^(A0)']}
<POP 2114c-2115c Naked> Σ-4 Δ+4 ↓ ←0x210b2
<MI 2114c MOVE.W (A6+0xc),-(A7)> Δ-2 {[-4-]|[2, '(A6+0xc)']}
<Pointer.fp 0x2114e <LVAR -0x016 @ 2(r)>> Δ-4 {[-4-]|[2, '(A6+0xc)']|[@@-22]}
<MI 21150 MOVEA.L (A7+0x6),A0> {[-4-]|[2, '(A6+0xc)']|[@@-22]}
<MI 21154 PEA.L (A0)> Δ-4 {[-4-]|[2, '(A6+0xc)']|[@@-22]|[4, '^(A0)']}
<Call 0x21156 0x21010> {[-4-]|[2, '(A6+0xc)']|[@@-22]|[4, '^(A0)']}
<POP 2115a-2115c StackAdj> Δ+14 {}
<POP 2115c-21164 Epilogue> Σ0 ←0x210f2
@ 21164
<LVAR 0x008 2(r)>
<POP 21164-211aa Body>
<POP 21164-2117a Prologue> Σ0 ↓
<POP 2117a-211a2 Naked> Σ0 ↓
<MI 2117a MOVE.W #0x9b2,D0> {}
<MI 2117e MULS.W (A6+0x8),D0> {}
<MI 21182 LEA.L 0x21ce8,A0> {}
<MI 21188 LEA.L (A0+D0.W+#0xc),A0> {}
<MI 2118c MOVE.B #0x0b,(A0+0x9ac)> {}
<MI 21192 MOVE.W (A6+0x8),-(A7)> Δ-2 {[2, '(A6+0x8)']}
<Call 0x21196 0x20476> {[2, '(A6+0x8)']}
<POP 2119a-2119c StackAdj> Δ+2 {}
<MI 2119c MOVE.B #0x01,(A0+0x2)> {}
<POP 211a2-211aa Epilogue> Σ0
@ 211aa
<LVAR 0x008 2(r)>
<POP 211aa-211fc Body>
<POP 211aa-211c0 Prologue> Σ0 ↓
<POP 211c0-211f4 Naked> Σ0 ↓
<MI 211c0 MOVE.W #0x9b2,D0> {}
<MI 211c4 MULS.W (A6+0x8),D0> {}
<MI 211c8 LEA.L 0x21ce8,A0> {}
<MI 211ce LEA.L (A0+D0.W+#0xc),A0> {}
<MI 211d2 MOVE.B #0x09,(A0+0x9ac)> {}
<MI 211d8 MOVE.L #0x1,(A0+0x9ae)> {}
<MI 211e0 MOVE.W (A6+0x8),-(A7)> Δ-2 {[2, '(A6+0x8)']}
<Call 0x211e4 0x20476> {[2, '(A6+0x8)']}
<POP 211e8-211ea StackAdj> Δ+2 {}
<MI 211ea CLR.L (A0+0x1e)> {}
<MI 211ee MOVE.B #0x05,(A0+0x2)> {}
<POP 211f4-211fc Epilogue> Σ0
@ 211fc
<LVAR 0x008 2(r)>
<POP 211fc-2124a Body>
<POP 211fc-21212 Prologue> Σ0 ↓
<POP 21212-21242 Naked> Σ0 ↓
<MI 21212 MOVE.W #0x9b2,D0> {}
<MI 21216 MULS.W (A6+0x8),D0> {}
<MI 2121a LEA.L 0x21ce8,A0> {}
<MI 21220 LEA.L (A0+D0.W+#0xc),A0> {}
<MI 21224 MOVE.B #0x08,(A0+0x9ac)> {}
<MI 2122a MOVE.L #0x1,(A0+0x9ae)> {}
<MI 21232 MOVE.W (A6+0x8),-(A7)> Δ-2 {[2, '(A6+0x8)']}
<Call 0x21236 0x20476> {[2, '(A6+0x8)']}
<POP 2123a-2123c StackAdj> Δ+2 {}
<MI 2123c MOVE.B #0x06,(A0+0x2)> {}
<POP 21242-2124a Epilogue> Σ0
@ 2124a
<LVAR 0x008 2(r)>
<POP 2124a-2133c Body>
<POP 2124a-21260 Prologue> Σ0 ↓
<POP 21260-21262 RegCacheLoad> Σ0 ↓
<POP 21262-21292 Naked> Σ0 ↓ →0x21294
<POP 21262-21264 StackAdj> Δ-4 {[-4-]}
<Call 0x21264 0x2032c> {[-4-]}
<MI 21268 MOVE.L (A7)+,D0> Δ+4 {}
<POP 0x2126a LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 21274 MOVE.W D0,D6> {}
<POP 21276-21278 StackAdj> Δ-4 {[-4-]}
<Const 0x21278 0x12.4> Δ-4 {[-4-]|[##18]}
<Const 0x2127c 0x800.4> Δ-4 {[-4-]|[##18]|[##2048]}
<Call 0x21280 0x202d0> {[-4-]|[##18]|[##2048]}
<POP 21284-21286 StackAdj> Δ+8 {[-4-]}
<MI 21286 MOVE.L (A7)+,D7> Δ+4 {}
<MI 21288 MOVE.L D7,D0> {}
<MI 2128a ANDI.L #0x00000001,D0> {}
<MI 21290 BEQ 0x21294> {}
<POP 21292-21294 Naked> Σ0 ↓
<MI 21292 ADDQ.L #0x1,D7> {}
<POP 21294-21334 Naked> Σ0 ↓ ←0x21262
<MI 21294 MOVE.W #0x9b2,D0> {}
<MI 21298 MULS.W (A6+0x8),D0> {}
<MI 2129c LEA.L 0x21ce8,A0> {}
<MI 212a2 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 212a4 LEA.L (A0+D0.W+#0xc),A0> {[4, 'A0']}
<POP 212a8-212aa StackAdj> Δ-4 {[4, 'A0']|[-4-]}
<MI 212aa MOVE.B (A0+0x1a6),(A7)> {[4, 'A0']|[-4-]}
<MI 212ae MOVE.B (A0+0x1a7),(A7+0x1)> {[4, 'A0']|[-4-]}
<MI 212b4 MOVE.B (A0+0x1a8),(A7+0x2)> {[4, 'A0']|[-4-]}
<MI 212ba MOVE.B (A0+0x1a9),(A7+0x3)> {[4, 'A0']|[-4-]}
<MI 212c0 MOVE.W D6,-(A7)> Δ-2 {[4, 'A0']|[-4-]|[2, 'D6']}
<MI 212c2 MOVE.L D7,D4> {[4, 'A0']|[-4-]|[2, 'D6']}
<MI 212c4 MOVEQ.L #0x02,D3> {[4, 'A0']|[-4-]|[2, 'D6']}
<Call 0x212c6 0x10294> {[4, 'A0']|[-4-]|[2, 'D6']}
?divs_d3_d4
<POP 212cc-212ce StackAdj> Δ-2 {[4, 'A0']|[-4-]|[2, 'D6']|[-2-]}
<POP 0x212ce LimitCheck 0x0 ≤ D4 ≤ 0xffff> {[4, 'A0']|[-4-]|[2, 'D6']|[-2-]}
<MI 212d8 MOVE.W D4,(A7)> {[4, 'A0']|[-4-]|[2, 'D6']|[2, 'D4']}
<Call 0x212da 0x104ea> {[4, 'A0']|[-4-]|[2, 'D6']|[2, 'D4']}
FillWords(dst : Pointer; x : Word; length : Word)
<POP 212e0-212e2 StackAdj> Δ+8 {[4, 'A0']}
<MI 212e2 MOVEA.L (A7),A0> {[4, 'A0']}
<MI 212e4 LEA.L (A0+D0.W+#0xc),A0> {[4, 'A0']}
<MI 212e8 MOVE.B #0x04,(A0+0x9ac)> {[4, 'A0']}
<MI 212ee MOVE.L D7,(A0+0x9ae)> {[4, 'A0']}
<MI 212f2 MOVE.W (A6+0x8),-(A7)> Δ-2 {[4, 'A0']|[2, '(A6+0x8)']}
<Call 0x212f6 0x20476> {[4, 'A0']|[2, '(A6+0x8)']}
<POP 212fa-212fc StackAdj> Δ+2 {[4, 'A0']}
<MI 212fc MOVE.B #0x02,(A0+0x2)> {[4, 'A0']}
<MI 21302 MOVE.L (A0+0x1e),D0> {[4, 'A0']}
<POP 0x21306 LimitCheck 0x0 ≤ D0 ≤ 0x3f> {[4, 'A0']}
<MI 2130c MOVE.L D0,D4> {[4, 'A0']}
<MI 2130e MOVEQ.L #0x06,D3> {[4, 'A0']}
<Call 0x21310 0x1028c> {[4, 'A0']}
?muls_d3_d4
<MI 21316 MOVE.W D6,(A0+D4.L+#0x26)> {[4, 'A0']}
<MI 2131a MOVE.L (A0+0x1e),D0> {[4, 'A0']}
<POP 0x2131e LimitCheck 0x0 ≤ D0 ≤ 0x3f> {[4, 'A0']}
<MI 21324 MOVE.L D0,D4> {[4, 'A0']}
<MI 21326 MOVEQ.L #0x06,D3> {[4, 'A0']}
<Call 0x21328 0x1028c> {[4, 'A0']}
?muls_d3_d4
<MI 2132e MOVE.L D7,(A0+D4.L+#0x28)> {[4, 'A0']}
<POP 21332-21334 StackAdj> Δ+4 {}
<POP 21334-2133c Epilogue> Σ0
@ 2133c
<LVAR 0x008 2(r)>
<POP 2133c-2139c Body>
<POP 2133c-21352 Prologue> Σ0 ↓
<POP 21352-21394 Naked> Σ0 ↓
<MI 21352 MOVE.W #0x9b2,D0> {}
<MI 21356 MULS.W (A6+0x8),D0> {}
<MI 2135a LEA.L 0x21ce8,A0> {}
<POP 21360-21362 StackAdj> Δ-4 {[-4-]}
<Const 0x21362 0x1.4> Δ-4 {[-4-]|[##1]}
<MI 21366 MOVE.L (A0+D0.W+#0x2e),-(A7)> Δ-4 {[-4-]|[##1]|[4, '(A0+D0.W+#0x2e)']}
<Call 0x2136a 0x202d0> {[-4-]|[##1]|[4, '(A0+D0.W+#0x2e)']}
<POP 2136e-21370 StackAdj> Δ+8 {[-4-]}
<MI 21370 MOVE.L (A7)+,D7> Δ+4 {}
<MI 21372 LEA.L (A0+D0.W+#0xc),A0> {}
<MI 21376 MOVE.B #0x07,(A0+0x9ac)> {}
<MI 2137c MOVE.L D7,(A0+0x9ae)> {}
<MI 21380 MOVE.W (A6+0x8),-(A7)> Δ-2 {[2, '(A6+0x8)']}
<Call 0x21384 0x20476> {[2, '(A6+0x8)']}
<POP 21388-2138a StackAdj> Δ+2 {}
<MI 2138a SUB.L D7,(A0+0x1e)> {}
<MI 2138e MOVE.B #0x04,(A0+0x2)> {}
<POP 21394-2139c Epilogue> Σ0
@ 2139c
<LVAR 0x00a 2(r)>
<LVAR 0x008 1(r)>
<LVAR -0x004 @ 1(rw)>
<POP 2139c-2146e Body> Δ+2
<POP 2139c-213b2 Prologue> Σ0 ↓
<POP 213b2-213bc RegCacheLoad> Σ0 ↓
<POP 213bc-213ce Naked> Σ0 ↓ →0x213d4
<MI 213bc MOVE.W #0x9b2,D0> {}
<MI 213c0 MULS.W (A6+0xa),D0> {}
<MI 213c2 LEA.L 0x21ce8,A0> {}
<MI 213c8 TST.B (A6+0x8)> {}
<MI 213cc BEQ 0x213d4> {}
<POP 213ce-213d4 Naked> Σ0 →0x213de
<MI 213ce MOVE.B #0x01,(A6-0x4)> {}
<MI 213d2 BRA 0x213de> {}
<POP 213d4-213de Naked> Σ0 ↓ ←0x213bc
<MI 213d4 MOVE.W (A6+0xa),-(A7)> Δ-2 {[2, '(A6+0xa)']}
<Pointer.fp 0x213d6 <LVAR -0x004 @ 1(rw)>> Δ-4 {[2, '(A6+0xa)']|[@@-4]}
<Call 0x213d8 0x21066> {[2, '(A6+0xa)']|[@@-4]}
<POP 213dc-213de StackAdj> Δ+6 {}
<POP 213de-213e4 Naked> Σ0 ↓ →0x21466 ←0x213ce
<MI 213de TST.B (A6-0x4)> {}
<MI 213e0 BEQ 0x21466> {}
<POP 213e4-21440 Naked> Σ0 ↓ →0x21448
<MI 213e4 MOVE.L (A0+D0.W+#0x2a),D1> {}
<POP 0x213e8 LimitCheck 0x0 ≤ D1 ≤ 0x3f> {}
<MI 213f2 MOVE.L D1,D4> {}
<MI 213f4 MOVEQ.L #0x06,D3> {}
<Call 0x213f6 0x1028c> {}
?muls_d3_d4
<POP 213fc-213fd StackAdj> Δ-8 ↓ {[-8-]}
<Blob 0x213fd [8] (A0+D0.W+#0x1e)> Δ-8 {[-8-]|[«8»]}
<POP 2140c-2140e StackAdj> Δ-8 {[-8-]|[«8»]|[-8-]}
<MI 2140e LEA.L (A0+D0.W+#0xc),A1> {[-8-]|[«8»]|[-8-]}
<MI 21412 MOVE.L (A1+D4.L+#0x28),D1> {[-8-]|[«8»]|[-8-]}
<MI 21416 ASL.L #0x1,D1> {[-8-]|[«8»]|[-8-]}
<MI 21418 MOVE.L D1,-(A7)> Δ-4 {[-8-]|[«8»]|[-8-]|[4, 'D1']}
<Call 0x2141a 0x10354> {[-8-]|[«8»]|[-8-]|[4, 'D1']}
Long2Quad(a : Long) : Quad
<POP 21420-21422 StackAdj> Δ+4 {[-8-]|[«8»]|[-8-]}
<Call 0x21422 0x10314> {[-8-]|[«8»]|[-8-]}
Add(a, b : Quad) : Quad
<POP 21428-2142a StackAdj> Δ+16 {[-8-]}
<MI 2142a LEA.L (A0+D0.W+#0x1e),A1> {[-8-]}
<MI 2142e MOVEA.L A7,A2> {[-8-]}
<BlockMove 8,A2,A1> {[-8-]}
<POP 21438-2143a StackAdj> Δ+8 {}
<MI 2143a TST.L (A0+D0.W+#0x26)> {}
<MI 2143e BEQ 0x21448> {}
<POP 21440-21448 Naked> Σ0 ↓
<MI 21440 MOVE.W (A6+0xa),-(A7)> Δ-2 {[2, '(A6+0xa)']}
<Call 0x21442 0x20a18> {[2, '(A6+0xa)']}
<POP 21446-21448 StackAdj> Δ+2 {}
<POP 21448-21456 Naked> Σ0 ↓ →0x2145e ←0x213e4
<MI 21448 ADDQ.L #0x1,(A0+D0.W+#0x2a)> {}
<MI 2144c MOVE.L (A0+D0.W+#0x2a),D1> {}
<MI 21450 CMP.L (A0+D0.W+#0x2e),D1> {}
<MI 21454 BGT 0x2145e> {}
<POP 21456-2145e Naked> Σ0 Δ-2 →0x21464
<MI 21456 MOVE.W (A6+0xa),-(A7)> Δ-2 {[2, '(A6+0xa)']}
<Call 0x21458 0x2124a> {[2, '(A6+0xa)']}
<MI 2145c BRA 0x21464> {[2, '(A6+0xa)']}
<POP 2145e-21464 Naked> Σ0 Δ-2 ↓ ←0x21448
<MI 2145e MOVE.W (A6+0xa),-(A7)> Δ-2 {[2, '(A6+0xa)']}
<Call 0x21460 0x2133c> {[2, '(A6+0xa)']}
<POP 21464-21466 Naked> Σ-2 Δ+2 ↓ ←0x21456
<POP 21464-21466 StackAdj> Δ+2 {}
<POP 21466-2146e Epilogue> Σ0 ←0x213de
@ 2146e
<LVAR 0x008 2(r)>
<POP 2146e-214d2 Body>
<POP 2146e-21484 Prologue> Σ0 ↓
<POP 21484-214ca Naked> Σ0 ↓
<MI 21484 MOVE.W #0x9b2,D0> {}
<MI 21488 MULS.W (A6+0x8),D0> {}
<MI 2148c LEA.L 0x21ce8,A0> {}
<MI 21492 LEA.L (A0+D0.W+#0xc),A0> {}
<MI 21496 MOVE.B #0x02,(A0+0x9ac)> {}
<MI 2149c MOVE.L (A0+0x1e),D0> {}
<POP 0x214a0 LimitCheck 0x0 ≤ D0 ≤ 0x3f> {}
<MI 214aa MOVE.L D0,D4> {}
<MI 214ac MOVEQ.L #0x06,D3> {}
<Call 0x214ae 0x1028c> {}
?muls_d3_d4
<MI 214b4 MOVE.L (A0+D4.L+#0x28),(A0+0x9ae)> {}
<MI 214ba MOVE.W (A6+0x8),-(A7)> Δ-2 {[2, '(A6+0x8)']}
<Call 0x214be 0x20476> {[2, '(A6+0x8)']}
<POP 214c2-214c4 StackAdj> Δ+2 {}
<MI 214c4 MOVE.B #0x03,(A0+0x2)> {}
<POP 214ca-214d2 Epilogue> Σ0
@ 214d2
<LVAR 0x008 2(r)>
<LVAR -0x002 @ 1(r)>
<POP 214d2-2156e Body>
<POP 214d2-214e8 Prologue> Σ0 ↓
<POP 214e8-214ee RegCacheLoad> Σ0 ↓
<POP 214ee-2150e Naked> Σ0 ↓ →0x21518
<MI 214ee MOVE.W #0x9b2,D0> {}
<MI 214f2 MULS.W (A6+0x8),D0> {}
<MI 214f4 LEA.L 0x21ce8,A0> {}
<POP 214fa-214fc StackAdj> Δ-4 {[-4-]}
<Const 0x214fc 0x0.4> Δ-4 {[-4-]|[##0]}
<Const 0x21500 0x1.4> Δ-4 {[-4-]|[##0]|[##1]}
<Call 0x21504 0x202d0> {[-4-]|[##0]|[##1]}
<POP 21508-2150a StackAdj> Δ+8 {[-4-]}
<MI 2150a TST.L (A7)+> Δ+4 {}
<MI 2150c BNE 0x21518> {}
<POP 2150e-21518 Naked> Σ0 →0x21522
<MI 2150e LEA.L (A0+D0.W+#0xc),A0> {}
<MI 21512 MOVE.B #0x14,(A0+0x9ac)> {}
<MI 21516 BRA 0x21522> {}
<POP 21518-21522 Naked> Σ0 ↓ ←0x214ee
<MI 21518 LEA.L (A0+D0.W+#0xc),A0> {}
<MI 2151c MOVE.B #0x15,(A0+0x9ac)> {}
<POP 21522-2153c Naked> Σ0 ↓ →0x21566 ←0x2150e
<MI 21522 MOVE.W (A6+0x8),-(A7)> Δ-2 {[2, '(A6+0x8)']}
<Call 0x21524 0x20476> {[2, '(A6+0x8)']}
<MI 21528 MOVE.W (A6+0x8),(A7)> {[2, '(A6+0x8)']}
<Pointer.fp 0x2152a <LVAR -0x002 @ 1(r)>> Δ-4 {[2, '(A6+0x8)']|[@@-2]}
<Call 0x2152e 0x10206> {[2, '(A6+0x8)']|[@@-2]}
KC03_Wait_Disk_IO(a : W; VAR status : Byte)
<POP 21534-21536 StackAdj> Δ+6 {}
<MI 21536 TST.B (A6-0x2)> {}
<MI 2153a BNE 0x21566> {}
<POP 2153c-21566 Naked> Σ0 ↓
<Blob 0x2153c [14] @> Δ-14 {[«14""»]}
<POP 21548-2154a StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x2154a 14> {[«14""»]|[$$Density select]}
<POP 2155c-2155e StackAdj> Δ-2 {[«14""»]|[$$Density select]|[-2-]}
<MI 2155e MOVE.W (A6+0x8),(A7)> {[«14""»]|[$$Density select]|[2, '(A6+0x8)']}
<Call 0x21560 0x208bc> {[«14""»]|[$$Density select]|[2, '(A6+0x8)']}
<POP 21564-21566 StackAdj> Δ+20 {}
<POP 21566-2156e Epilogue> Σ0 ←0x21522
@ 2156e
<LVAR 0x008 2(r)>
<LVAR -0x002 @ 1(r)>
<POP 2156e-2160a Body>
<POP 2156e-21584 Prologue> Σ0 ↓
<POP 21584-2158a RegCacheLoad> Σ0 ↓
<POP 2158a-215aa Naked> Σ0 ↓ →0x215b4
<MI 2158a MOVE.W #0x9b2,D0> {}
<MI 2158e MULS.W (A6+0x8),D0> {}
<MI 21590 LEA.L 0x21ce8,A0> {}
<POP 21596-21598 StackAdj> Δ-4 {[-4-]}
<Const 0x21598 0x0.4> Δ-4 {[-4-]|[##0]}
<Const 0x2159c 0x1.4> Δ-4 {[-4-]|[##0]|[##1]}
<Call 0x215a0 0x202d0> {[-4-]|[##0]|[##1]}
<POP 215a4-215a6 StackAdj> Δ+8 {[-4-]}
<MI 215a6 TST.L (A7)+> Δ+4 {}
<MI 215a8 BNE 0x215b4> {}
<POP 215aa-215b4 Naked> Σ0 →0x215be
<MI 215aa LEA.L (A0+D0.W+#0xc),A0> {}
<MI 215ae MOVE.B #0x12,(A0+0x9ac)> {}
<MI 215b2 BRA 0x215be> {}
<POP 215b4-215be Naked> Σ0 ↓ ←0x2158a
<MI 215b4 LEA.L (A0+D0.W+#0xc),A0> {}
<MI 215b8 MOVE.B #0x13,(A0+0x9ac)> {}
<POP 215be-215d8 Naked> Σ0 ↓ →0x21602 ←0x215aa
<MI 215be MOVE.W (A6+0x8),-(A7)> Δ-2 {[2, '(A6+0x8)']}
<Call 0x215c0 0x20476> {[2, '(A6+0x8)']}
<MI 215c4 MOVE.W (A6+0x8),(A7)> {[2, '(A6+0x8)']}
<Pointer.fp 0x215c6 <LVAR -0x002 @ 1(r)>> Δ-4 {[2, '(A6+0x8)']|[@@-2]}
<Call 0x215ca 0x10206> {[2, '(A6+0x8)']|[@@-2]}
KC03_Wait_Disk_IO(a : W; VAR status : Byte)
<POP 215d0-215d2 StackAdj> Δ+6 {}
<MI 215d2 TST.B (A6-0x2)> {}
<MI 215d6 BNE 0x21602> {}
<POP 215d8-21602 Naked> Σ0 ↓
<Blob 0x215d8 [4] @> Δ-4 {[«4""»]}
<Blob 0x215dc [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x215e0 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<POP 215e4-215e6 StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x215e6 12> {[«4""»]|[«4""»]|[«4""»]|[$$Speed select]}
<POP 215f8-215fa StackAdj> Δ-2 {[«4""»]|[«4""»]|[«4""»]|[$$Speed select]|[-2-]}
<MI 215fa MOVE.W (A6+0x8),(A7)> {[«4""»]|[«4""»]|[«4""»]|[$$Speed select]|[2, '(A6+0x8)']}
<Call 0x215fc 0x208bc> {[«4""»]|[«4""»]|[«4""»]|[$$Speed select]|[2, '(A6+0x8)']}
<POP 21600-21602 StackAdj> Δ+18 {}
<POP 21602-2160a Epilogue> Σ0 ←0x215be
@ 2160a
<LVAR 0x00a 2(r)>
<LVAR 0x008 1(r)>
<LVAR -0x004 @ 1(rw)>
<POP 2160a-2176a Body> Δ+4
<POP 2160a-21620 Prologue> Σ0 ↓
<POP 21620-2162c RegCacheLoad> Σ0 ↓
<POP 2162c-2163e Naked> Σ0 ↓ →0x21644
<MI 2162c MOVE.W #0x9b2,D0> {}
<MI 21630 MULS.W (A6+0xa),D0> {}
<MI 21632 LEA.L 0x21ce8,A0> {}
<MI 21638 TST.B (A6+0x8)> {}
<MI 2163c BEQ 0x21644> {}
<POP 2163e-21644 Naked> Σ0 →0x2164e
<MI 2163e MOVE.B #0x01,(A6-0x4)> {}
<MI 21642 BRA 0x2164e> {}
<POP 21644-2164e Naked> Σ0 ↓ ←0x2162c
<MI 21644 MOVE.W (A6+0xa),-(A7)> Δ-2 {[2, '(A6+0xa)']}
<Pointer.fp 0x21646 <LVAR -0x004 @ 1(rw)>> Δ-4 {[2, '(A6+0xa)']|[@@-4]}
<Call 0x21648 0x21066> {[2, '(A6+0xa)']|[@@-4]}
<POP 2164c-2164e StackAdj> Δ+6 {}
<POP 2164e-21654 Naked> Σ0 ↓ →0x21762 ←0x2163e
<MI 2164e TST.B (A6-0x4)> {}
<MI 21650 BEQ 0x21762> {}
<POP 21654-216ac Naked> Σ0 ↓ →0x216b4
<MI 21654 MOVE.L (A0+D0.W+#0x2a),D1> {}
<POP 0x21658 LimitCheck 0x0 ≤ D1 ≤ 0x3f> {}
<MI 2165e MOVE.L D1,D4> {}
<MI 21660 MOVEQ.L #0x06,D3> {}
<Call 0x21662 0x1028c> {}
?muls_d3_d4
<POP 21668-21669 StackAdj> Δ-8 ↓ {[-8-]}
<Blob 0x21669 [8] (A0+D0.W+#0x1e)> Δ-8 {[-8-]|[«8»]}
<POP 21678-2167a StackAdj> Δ-8 {[-8-]|[«8»]|[-8-]}
<MI 2167a LEA.L (A0+D0.W+#0xc),A1> {[-8-]|[«8»]|[-8-]}
<MI 2167e MOVE.L (A1+D4.L+#0x28),D1> {[-8-]|[«8»]|[-8-]}
<MI 21682 ASL.L #0x1,D1> {[-8-]|[«8»]|[-8-]}
<MI 21684 MOVE.L D1,-(A7)> Δ-4 {[-8-]|[«8»]|[-8-]|[4, 'D1']}
<Call 0x21686 0x10354> {[-8-]|[«8»]|[-8-]|[4, 'D1']}
Long2Quad(a : Long) : Quad
<POP 2168c-2168e StackAdj> Δ+4 {[-8-]|[«8»]|[-8-]}
<Call 0x2168e 0x10314> {[-8-]|[«8»]|[-8-]}
Add(a, b : Quad) : Quad
<POP 21694-21696 StackAdj> Δ+16 {[-8-]}
<MI 21696 LEA.L (A0+D0.W+#0x1e),A1> {[-8-]}
<MI 2169a MOVEA.L A7,A2> {[-8-]}
<BlockMove 8,A2,A1> {[-8-]}
<POP 216a4-216a6 StackAdj> Δ+8 {}
<MI 216a6 TST.L (A0+D0.W+#0x26)> {}
<MI 216aa BEQ 0x216b4> {}
<POP 216ac-216b4 Naked> Σ0 ↓
<MI 216ac MOVE.W (A6+0xa),-(A7)> Δ-2 {[2, '(A6+0xa)']}
<Call 0x216ae 0x20a18> {[2, '(A6+0xa)']}
<POP 216b2-216b4 StackAdj> Δ+2 {}
<POP 216b4-21714 Naked> Σ0 Δ-4 ↓ →0x2171c ←0x21654
<MI 216b4 MOVE.L (A0+D0.W+#0x2a),D1> {}
<POP 0x216b8 LimitCheck 0x0 ≤ D1 ≤ 0x3f> {}
<MI 216be MOVE.L D1,D4> {}
<MI 216c0 MOVEQ.L #0x06,D3> {}
<Call 0x216c2 0x1028c> {}
?muls_d3_d4
<MI 216c8 MOVE.L D4,-(A7)> Δ-4 {[4, 'D4']}
<MI 216ca LEA.L (A0+D0.W+#0xc),A1> {[4, 'D4']}
<POP 216ce-216d0 StackAdj> Δ-6 {[4, 'D4']|[-6-]}
<MI 216d0 MOVE.B (A1+0x1a6),(A7)> {[4, 'D4']|[-6-]}
<MI 216d4 MOVE.B (A1+0x1a7),(A7+0x1)> {[4, 'D4']|[-6-]}
<MI 216da MOVE.B (A1+0x1a8),(A7+0x2)> {[4, 'D4']|[-6-]}
<MI 216e0 MOVE.B (A1+0x1a9),(A7+0x3)> {[4, 'D4']|[-6-]}
<MI 216e6 MOVE.W (A1+D4.L+#0x26),-(A7)> Δ-2 {[4, 'D4']|[-6-]|[2, '(A1+D4.L+#0x26)']}
<MI 216ea MOVE.L (A7+0x8),D4> {[4, 'D4']|[-6-]|[2, '(A1+D4.L+#0x26)']}
<MI 216ee MOVE.L (A1+D4.L+#0x28),D4> {[4, 'D4']|[-6-]|[2, '(A1+D4.L+#0x26)']}
<MI 216f2 MOVEQ.L #0x02,D3> {[4, 'D4']|[-6-]|[2, '(A1+D4.L+#0x26)']}
<Call 0x216f4 0x10294> {[4, 'D4']|[-6-]|[2, '(A1+D4.L+#0x26)']}
?divs_d3_d4
<POP 216fa-216fc StackAdj> Δ-2 {[4, 'D4']|[-6-]|[2, '(A1+D4.L+#0x26)']|[-2-]}
<POP 0x216fc LimitCheck 0x0 ≤ D4 ≤ 0xffff> {[4, 'D4']|[-6-]|[2, '(A1+D4.L+#0x26)']|[-2-]}
<MI 21706 MOVE.W D4,(A7)> {[4, 'D4']|[-6-]|[2, '(A1+D4.L+#0x26)']|[2, 'D4']}
<Call 0x21708 0x104e4> {[4, 'D4']|[-6-]|[2, '(A1+D4.L+#0x26)']|[2, 'D4']}
FindWord(src : Pointer; x : Word; length : Word) : Bool
<POP 2170e-21710 StackAdj> Δ+8 {[4, 'D4']|[-2-]}
<MI 21710 TST.B (A7)+> Δ+2 {[4, 'D4']}
<MI 21712 BNE 0x2171c> {[4, 'D4']}
<POP 21714-2171c Naked> Σ-4 ↓
<MI 21714 MOVE.W (A6+0xa),-(A7)> Δ-2 {[-4-]|[2, '(A6+0xa)']}
<Call 0x21716 0x20a7a> {[-4-]|[2, '(A6+0xa)']}
<POP 2171a-2171c StackAdj> Δ+2 {[-4-]}
<POP 2171c-2172a Naked> Σ-4 ↓ →0x21732 ←0x216b4
<MI 2171c ADDQ.L #0x1,(A0+D0.W+#0x2a)> {[-4-]}
<MI 21720 MOVE.L (A0+D0.W+#0x2a),D1> {[-4-]}
<MI 21724 CMP.L (A1+0x22),D1> {[-4-]}
<MI 21728 BGT 0x21732> {[-4-]}
<POP 2172a-21732 Naked> Σ-4 Δ-2 →0x2175e
<MI 2172a MOVE.W (A6+0xa),-(A7)> Δ-2 {[-4-]|[2, '(A6+0xa)']}
<Call 0x2172c 0x2146e> {[-4-]|[2, '(A6+0xa)']}
<MI 21730 BRA 0x2175e> {[-4-]|[2, '(A6+0xa)']}
<POP 21732-21750 Naked> Σ-4 ↓ →0x21758 ←0x2171c
<MI 21732 CLR.L (A0+D0.W+#0x2a)> {[-4-]}
<POP 21736-21738 StackAdj> Δ-4 {[-8-]}
<Const 0x21738 0x10.4> Δ-4 {[-8-]|[##16]}
<Const 0x2173c 0x3f.4> Δ-4 {[-8-]|[##16]|[##63]}
<Call 0x21740 0x202d0> {[-8-]|[##16]|[##63]}
<POP 21744-21746 StackAdj> Δ+8 {[-8-]}
<MI 21746 MOVE.L (A7)+,(A1+0x22)> Δ+4 {[-4-]}
<MI 2174a TST.B (A1+0x1)> {[-4-]}
<MI 2174e BEQ 0x21758> {[-4-]}
<POP 21750-21758 Naked> Σ-4 Δ-2 →0x2175e
<MI 21750 MOVE.W (A6+0xa),-(A7)> Δ-2 {[-4-]|[2, '(A6+0xa)']}
<Call 0x21752 0x20b3c> {[-4-]|[2, '(A6+0xa)']}
<MI 21756 BRA 0x2175e> {[-4-]|[2, '(A6+0xa)']}
<POP 21758-2175e Naked> Σ-4 Δ-2 ↓ ←0x21732
<MI 21758 MOVE.W (A6+0xa),-(A7)> Δ-2 {[-4-]|[2, '(A6+0xa)']}
<Call 0x2175a 0x21164> {[-4-]|[2, '(A6+0xa)']}
<POP 2175e-21762 Naked> Σ-6 Δ+6 ↓ ←0x2172a ←0x21750
<POP 2175e-21760 StackAdj> Δ+2 {[-4-]}
<POP 21760-21762 StackAdj> Δ+4 {}
<POP 21762-2176a Epilogue> Σ0 ←0x2164e
@ 2176a
<LVAR 0x00a 2(r)>
<LVAR 0x008 1(r)>
<LVAR -0x004 @ 1(rw)>
<POP 2176a-217cc Body>
<POP 2176a-21780 Prologue> Σ0 ↓
<POP 21780-21788 RegCacheLoad> Σ0 ↓
<POP 21788-2179a Naked> Σ0 ↓ →0x217a0
<MI 21788 MOVE.W #0x9b2,D0> {}
<MI 2178c MULS.W (A6+0xa),D0> {}
<MI 2178e LEA.L 0x21ce8,A0> {}
<MI 21794 TST.B (A6+0x8)> {}
<MI 21798 BEQ 0x217a0> {}
<POP 2179a-217a0 Naked> Σ0 →0x217aa
<MI 2179a MOVE.B #0x01,(A6-0x4)> {}
<MI 2179e BRA 0x217aa> {}
<POP 217a0-217aa Naked> Σ0 ↓ ←0x21788
<MI 217a0 MOVE.W (A6+0xa),-(A7)> Δ-2 {[2, '(A6+0xa)']}
<Pointer.fp 0x217a2 <LVAR -0x004 @ 1(rw)>> Δ-4 {[2, '(A6+0xa)']|[@@-4]}
<Call 0x217a4 0x21066> {[2, '(A6+0xa)']|[@@-4]}
<POP 217a8-217aa StackAdj> Δ+6 {}
<POP 217aa-217ae Naked> Σ0 ↓ →0x217c4 ←0x2179a
<MI 217aa TST.B (A6-0x4)> {}
<MI 217ac BEQ 0x217c4> {}
<POP 217ae-217b4 Naked> Σ0 ↓ →0x217bc
<MI 217ae TST.L (A0+D0.W+#0x26)> {}
<MI 217b2 BEQ 0x217bc> {}
<POP 217b4-217bc Naked> Σ0 ↓
<MI 217b4 MOVE.W (A6+0xa),-(A7)> Δ-2 {[2, '(A6+0xa)']}
<Call 0x217b6 0x20a18> {[2, '(A6+0xa)']}
<POP 217ba-217bc StackAdj> Δ+2 {}
<POP 217bc-217c4 Naked> Σ0 ↓ ←0x217ae
<MI 217bc MOVE.W (A6+0xa),-(A7)> Δ-2 {[2, '(A6+0xa)']}
<Call 0x217be 0x2146e> {[2, '(A6+0xa)']}
<POP 217c2-217c4 StackAdj> Δ+2 {}
<POP 217c4-217cc Epilogue> Σ0 ←0x217aa
@ 217cc
<LVAR 0x00a 2(r)>
<LVAR 0x008 1(r)>
<LVAR -0x004 @ 1(rw)>
<POP 217cc-2182e Body>
<POP 217cc-217e2 Prologue> Σ0 ↓
<POP 217e2-217ea RegCacheLoad> Σ0 ↓
<POP 217ea-217fc Naked> Σ0 ↓ →0x21802
<MI 217ea MOVE.W #0x9b2,D0> {}
<MI 217ee MULS.W (A6+0xa),D0> {}
<MI 217f0 LEA.L 0x21ce8,A0> {}
<MI 217f6 TST.B (A6+0x8)> {}
<MI 217fa BEQ 0x21802> {}
<POP 217fc-21802 Naked> Σ0 →0x2180c
<MI 217fc MOVE.B #0x01,(A6-0x4)> {}
<MI 21800 BRA 0x2180c> {}
<POP 21802-2180c Naked> Σ0 ↓ ←0x217ea
<MI 21802 MOVE.W (A6+0xa),-(A7)> Δ-2 {[2, '(A6+0xa)']}
<Pointer.fp 0x21804 <LVAR -0x004 @ 1(rw)>> Δ-4 {[2, '(A6+0xa)']|[@@-4]}
<Call 0x21806 0x21066> {[2, '(A6+0xa)']|[@@-4]}
<POP 2180a-2180c StackAdj> Δ+6 {}
<POP 2180c-21810 Naked> Σ0 ↓ →0x21826 ←0x217fc
<MI 2180c TST.B (A6-0x4)> {}
<MI 2180e BEQ 0x21826> {}
<POP 21810-21816 Naked> Σ0 ↓ →0x2181e
<MI 21810 TST.L (A0+D0.W+#0x26)> {}
<MI 21814 BEQ 0x2181e> {}
<POP 21816-2181e Naked> Σ0 ↓
<MI 21816 MOVE.W (A6+0xa),-(A7)> Δ-2 {[2, '(A6+0xa)']}
<Call 0x21818 0x20a18> {[2, '(A6+0xa)']}
<POP 2181c-2181e StackAdj> Δ+2 {}
<POP 2181e-21826 Naked> Σ0 ↓ ←0x21810
<MI 2181e MOVE.W (A6+0xa),-(A7)> Δ-2 {[2, '(A6+0xa)']}
<Call 0x21820 0x211fc> {[2, '(A6+0xa)']}
<POP 21824-21826 StackAdj> Δ+2 {}
<POP 21826-2182e Epilogue> Σ0 ←0x2180c
@ 2182e
<LVAR 0x00a 2(r)>
<LVAR 0x008 1(r)>
<LVAR -0x004 @ 1(rw)>
<POP 2182e-21890 Body>
<POP 2182e-21844 Prologue> Σ0 ↓
<POP 21844-2184c RegCacheLoad> Σ0 ↓
<POP 2184c-2185e Naked> Σ0 ↓ →0x21864
<MI 2184c MOVE.W #0x9b2,D0> {}
<MI 21850 MULS.W (A6+0xa),D0> {}
<MI 21852 LEA.L 0x21ce8,A0> {}
<MI 21858 TST.B (A6+0x8)> {}
<MI 2185c BEQ 0x21864> {}
<POP 2185e-21864 Naked> Σ0 →0x2186e
<MI 2185e MOVE.B #0x01,(A6-0x4)> {}
<MI 21862 BRA 0x2186e> {}
<POP 21864-2186e Naked> Σ0 ↓ ←0x2184c
<MI 21864 MOVE.W (A6+0xa),-(A7)> Δ-2 {[2, '(A6+0xa)']}
<Pointer.fp 0x21866 <LVAR -0x004 @ 1(rw)>> Δ-4 {[2, '(A6+0xa)']|[@@-4]}
<Call 0x21868 0x21066> {[2, '(A6+0xa)']|[@@-4]}
<POP 2186c-2186e StackAdj> Δ+6 {}
<POP 2186e-21872 Naked> Σ0 ↓ →0x21888 ←0x2185e
<MI 2186e TST.B (A6-0x4)> {}
<MI 21870 BEQ 0x21888> {}
<POP 21872-21878 Naked> Σ0 ↓ →0x21880
<MI 21872 TST.L (A0+D0.W+#0x26)> {}
<MI 21876 BEQ 0x21880> {}
<POP 21878-21880 Naked> Σ0 ↓
<MI 21878 MOVE.W (A6+0xa),-(A7)> Δ-2 {[2, '(A6+0xa)']}
<Call 0x2187a 0x20a18> {[2, '(A6+0xa)']}
<POP 2187e-21880 StackAdj> Δ+2 {}
<POP 21880-21888 Naked> Σ0 ↓ ←0x21872
<MI 21880 MOVE.W (A6+0xa),-(A7)> Δ-2 {[2, '(A6+0xa)']}
<Call 0x21882 0x2146e> {[2, '(A6+0xa)']}
<POP 21886-21888 StackAdj> Δ+2 {}
<POP 21888-21890 Epilogue> Σ0 ←0x2186e
@ 21890
<LVAR 0x00a 2(r)>
<LVAR 0x008 1(r)>
<LVAR -0x004 @ 1(rw)>
<POP 21890-218ec Body>
<POP 21890-218a6 Prologue> Σ0 ↓
<POP 218a6-218ae RegCacheLoad> Σ0 ↓
<POP 218ae-218c0 Naked> Σ0 ↓ →0x218c6
<MI 218ae MOVE.W #0x9b2,D0> {}
<MI 218b2 MULS.W (A6+0xa),D0> {}
<MI 218b4 LEA.L 0x21ce8,A0> {}
<MI 218ba TST.B (A6+0x8)> {}
<MI 218be BEQ 0x218c6> {}
<POP 218c0-218c6 Naked> Σ0 →0x218d0
<MI 218c0 MOVE.B #0x01,(A6-0x4)> {}
<MI 218c4 BRA 0x218d0> {}
<POP 218c6-218d0 Naked> Σ0 ↓ ←0x218ae
<MI 218c6 MOVE.W (A6+0xa),-(A7)> Δ-2 {[2, '(A6+0xa)']}
<Pointer.fp 0x218c8 <LVAR -0x004 @ 1(rw)>> Δ-4 {[2, '(A6+0xa)']|[@@-4]}
<Call 0x218ca 0x21066> {[2, '(A6+0xa)']|[@@-4]}
<POP 218ce-218d0 StackAdj> Δ+6 {}
<POP 218d0-218d4 Naked> Σ0 ↓ →0x218e4 ←0x218c0
<MI 218d0 TST.B (A6-0x4)> {}
<MI 218d2 BEQ 0x218e4> {}
<POP 218d4-218e4 Naked> Σ0 ↓
<MI 218d4 CLR.B (A0+D0.W+#0xd)> {}
<MI 218d8 CLR.L (A0+D0.W+#0x2a)> {}
<MI 218dc MOVE.W (A6+0xa),-(A7)> Δ-2 {[2, '(A6+0xa)']}
<Call 0x218de 0x2124a> {[2, '(A6+0xa)']}
<POP 218e2-218e4 StackAdj> Δ+2 {}
<POP 218e4-218ec Epilogue> Σ0 ←0x218d0
@ 218ec
<LVAR 0x00a 2(r)>
<LVAR 0x008 1(r)>
<LVAR -0x004 @ 1(rw)>
<POP 218ec-21948 Body>
<POP 218ec-21902 Prologue> Σ0 ↓
<POP 21902-2190a RegCacheLoad> Σ0 ↓
<POP 2190a-2191c Naked> Σ0 ↓ →0x21922
<MI 2190a MOVE.W #0x9b2,D0> {}
<MI 2190e MULS.W (A6+0xa),D0> {}
<MI 21910 LEA.L 0x21ce8,A0> {}
<MI 21916 TST.B (A6+0x8)> {}
<MI 2191a BEQ 0x21922> {}
<POP 2191c-21922 Naked> Σ0 →0x2192c
<MI 2191c MOVE.B #0x01,(A6-0x4)> {}
<MI 21920 BRA 0x2192c> {}
<POP 21922-2192c Naked> Σ0 ↓ ←0x2190a
<MI 21922 MOVE.W (A6+0xa),-(A7)> Δ-2 {[2, '(A6+0xa)']}
<Pointer.fp 0x21924 <LVAR -0x004 @ 1(rw)>> Δ-4 {[2, '(A6+0xa)']|[@@-4]}
<Call 0x21926 0x21066> {[2, '(A6+0xa)']|[@@-4]}
<POP 2192a-2192c StackAdj> Δ+6 {}
<POP 2192c-21930 Naked> Σ0 ↓ →0x21940 ←0x2191c
<MI 2192c TST.B (A6-0x4)> {}
<MI 2192e BEQ 0x21940> {}
<POP 21930-21940 Naked> Σ0 ↓
<MI 21930 CLR.B (A0+D0.W+#0xd)> {}
<MI 21934 CLR.L (A0+D0.W+#0x2a)> {}
<MI 21938 MOVE.W (A6+0xa),-(A7)> Δ-2 {[2, '(A6+0xa)']}
<Call 0x2193a 0x2124a> {[2, '(A6+0xa)']}
<POP 2193e-21940 StackAdj> Δ+2 {}
<POP 21940-21948 Epilogue> Σ0 ←0x2192c
@ 21948
<LVAR -0x001 @ 1(r)>
<LVAR -0x002 @ 1(r)>
<POP 21948-21a90 Body> Δ+24
<POP 21948-2195e Prologue> Σ0 ↓
<POP 2195e-21970 RegCacheLoad> Σ0 ↓
<POP 21970-21972 Naked> Σ0 ↓
<MI 21970 MOVEQ.L #0x00,D7> {}
<POP 21972-2197e Naked> Σ0 ↓ →0x21986 ←0x21986
<MI 21972 MOVE.W #0x9b2,D0> {}
<MI 21974 MULS.W D7,D0> {}
<MI 21976 LEA.L 0x21ce8,A0> {}
<MI 21978 TST.B (A0+D0.W+#0xc)> {}
<MI 2197c BEQ 0x21986> {}
<POP 2197e-21986 Naked> Σ0 ↓
<MI 2197e MOVE.W D7,-(A7)> Δ-2 {[2, 'D7']}
<Call 0x21980 0x20b3c> {[2, 'D7']}
<POP 21984-21986 StackAdj> Δ+2 {}
<POP 21986-2198c Naked> Σ0 ↓ →0x21972 ←0x21972
<MI 21986 ADDQ.W #0x1,D7> {}
<MI 21988 CMP.W #0x03,D7> {}
<MI 2198a BLE 0x21972> {}
<POP 2198c-21990 Naked> Σ0 ↓ ←0x21a62
<MI 2198c MOVEQ.L #0x00,D6> {}
<MI 2198e MOVEQ.L #0x00,D7> {}
<POP 21990-2199e Naked> Σ0 ↓ →0x21a50 ←0x21a50
<MI 21990 MOVE.W #0x9b2,D0> {}
<MI 21992 MULS.W D7,D0> {}
<MI 21994 LEA.L 0x21ce8,A0> {}
<MI 21996 TST.B (A0+D0.W+#0xc)> {}
<MI 2199a BEQ 0x21a50> {}
<POP 2199e-219ba Naked> Σ0 ↓ →0x21a50
<MI 2199e ADDQ.L #0x1,D6> {}
<MI 219a0 MOVE.W D7,-(A7)> Δ-2 {[2, 'D7']}
<Pointer.fp 0x219a2 <LVAR -0x002 @ 1(r)>> Δ-4 {[2, 'D7']|[@@-2]}
<Pointer.fp 0x219a6 <LVAR -0x001 @ 1(r)>> Δ-4 {[2, 'D7']|[@@-2]|[@@-1]}
<Call 0x219a8 0x10208> {[2, 'D7']|[@@-2]|[@@-1]}
KERNCALL_04
<POP 219ae-219b2 StackAdj> Δ+10 {}
<MI 219b2 TST.B (A6-0x2)> {}
<MI 219b6 BEQ 0x21a50> {}
<POP 219ba-219d2 Naked> Σ0 →0x21a40 →0x219e0 →0x219f0 →0x21a30 →0x21a00 →0x21a10 →0x21a20
<MI 219ba MOVE.B (A0+D0.W+#0xe),D1> {}
<MI 219be EXTB.W D1> {}
<POP 0x219c0 LimitCheck 0x0 ≤ D1 ≤ 0x6> {}
<MI 219c8 ADD.W D1,D1> {}
<MI 219ca SWITCH D1.W> {}
<POP 219e0-219f0 Naked> Σ0 Δ-4 →0x21a4e ←0x219ba
<MI 219e0 MOVE.W D7,-(A7)> Δ-2 {[2, 'D7']}
<MI 219e2 MOVE.B (A6-0x1),D0> {[2, 'D7']}
<MI 219e4 EXTB.W D0> {[2, 'D7']}
<POP 0x219e6 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[2, 'D7']}
<MI 219e8 MOVE.B D0,-(A7)> Δ-2 {[2, 'D7']|[2, 'D0']}
<Call 0x219ea 0x218ec> {[2, 'D7']|[2, 'D0']}
<MI 219ee BRA 0x21a4e> {[2, 'D7']|[2, 'D0']}
<POP 219f0-21a00 Naked> Σ0 Δ-4 →0x21a4e ←0x219ba
<MI 219f0 MOVE.W D7,-(A7)> Δ-2 {[2, 'D7']}
<MI 219f2 MOVE.B (A6-0x1),D0> {[2, 'D7']}
<MI 219f4 EXTB.W D0> {[2, 'D7']}
<POP 0x219f6 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[2, 'D7']}
<MI 219f8 MOVE.B D0,-(A7)> Δ-2 {[2, 'D7']|[2, 'D0']}
<Call 0x219fa 0x2139c> {[2, 'D7']|[2, 'D0']}
<MI 219fe BRA 0x21a4e> {[2, 'D7']|[2, 'D0']}
<POP 21a00-21a10 Naked> Σ0 Δ-4 →0x21a4e ←0x219ba
<MI 21a00 MOVE.W D7,-(A7)> Δ-2 {[2, 'D7']}
<MI 21a02 MOVE.B (A6-0x1),D0> {[2, 'D7']}
<MI 21a04 EXTB.W D0> {[2, 'D7']}
<POP 0x21a06 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[2, 'D7']}
<MI 21a08 MOVE.B D0,-(A7)> Δ-2 {[2, 'D7']|[2, 'D0']}
<Call 0x21a0a 0x2176a> {[2, 'D7']|[2, 'D0']}
<MI 21a0e BRA 0x21a4e> {[2, 'D7']|[2, 'D0']}
<POP 21a10-21a20 Naked> Σ0 Δ-4 →0x21a4e ←0x219ba
<MI 21a10 MOVE.W D7,-(A7)> Δ-2 {[2, 'D7']}
<MI 21a12 MOVE.B (A6-0x1),D0> {[2, 'D7']}
<MI 21a14 EXTB.W D0> {[2, 'D7']}
<POP 0x21a16 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[2, 'D7']}
<MI 21a18 MOVE.B D0,-(A7)> Δ-2 {[2, 'D7']|[2, 'D0']}
<Call 0x21a1a 0x217cc> {[2, 'D7']|[2, 'D0']}
<MI 21a1e BRA 0x21a4e> {[2, 'D7']|[2, 'D0']}
<POP 21a20-21a30 Naked> Σ0 Δ-4 →0x21a4e ←0x219ba
<MI 21a20 MOVE.W D7,-(A7)> Δ-2 {[2, 'D7']}
<MI 21a22 MOVE.B (A6-0x1),D0> {[2, 'D7']}
<MI 21a24 EXTB.W D0> {[2, 'D7']}
<POP 0x21a26 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[2, 'D7']}
<MI 21a28 MOVE.B D0,-(A7)> Δ-2 {[2, 'D7']|[2, 'D0']}
<Call 0x21a2a 0x2182e> {[2, 'D7']|[2, 'D0']}
<MI 21a2e BRA 0x21a4e> {[2, 'D7']|[2, 'D0']}
<POP 21a30-21a40 Naked> Σ0 Δ-4 →0x21a4e ←0x219ba
<MI 21a30 MOVE.W D7,-(A7)> Δ-2 {[2, 'D7']}
<MI 21a32 MOVE.B (A6-0x1),D0> {[2, 'D7']}
<MI 21a34 EXTB.W D0> {[2, 'D7']}
<POP 0x21a36 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[2, 'D7']}
<MI 21a38 MOVE.B D0,-(A7)> Δ-2 {[2, 'D7']|[2, 'D0']}
<Call 0x21a3a 0x2160a> {[2, 'D7']|[2, 'D0']}
<MI 21a3e BRA 0x21a4e> {[2, 'D7']|[2, 'D0']}
<POP 21a40-21a4e Naked> Σ0 Δ-4 ↓ ←0x219ba
<MI 21a40 MOVE.W D7,-(A7)> Δ-2 {[2, 'D7']}
<MI 21a42 MOVE.B (A6-0x1),D0> {[2, 'D7']}
<MI 21a44 EXTB.W D0> {[2, 'D7']}
<POP 0x21a46 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[2, 'D7']}
<MI 21a48 MOVE.B D0,-(A7)> Δ-2 {[2, 'D7']|[2, 'D0']}
<Call 0x21a4a 0x21890> {[2, 'D7']|[2, 'D0']}
<POP 21a4e-21a50 Naked> Σ-4 Δ+4 ↓ ←0x219e0 ←0x219f0 ←0x21a00 ←0x21a10 ←0x21a20 ←0x21a30
<POP 21a4e-21a50 StackAdj> Δ+4 {}
<POP 21a50-21a58 Naked> Σ0 ↓ →0x21990 ←0x21990 ←0x2199e
<MI 21a50 ADDQ.W #0x1,D7> {}
<MI 21a52 CMP.W #0x03,D7> {}
<MI 21a54 BLE 0x21990> {}
<POP 21a58-21a62 Naked> Σ0 ↓ →0x21a68
<POP 21a58-21a5a StackAdj> Δ-2 {[-2-]}
<Call 0x21a5a 0x2085c> {[-2-]}
<MI 21a5e TST.B (A7)+> Δ+2 {}
<MI 21a60 BNE 0x21a68> {}
<POP 21a62-21a68 Naked> Σ0 ↓ →0x2198c
<MI 21a62 TST.L D6> {}
<MI 21a64 BNE 0x2198c> {}
<POP 21a68-21a6a Naked> Σ0 ↓ ←0x21a58
<MI 21a68 MOVEQ.L #0x00,D7> {}
<POP 21a6a-21a76 Naked> Σ0 ↓ →0x21a82 ←0x21a82
<MI 21a6a MOVE.W #0x9b2,D0> {}
<MI 21a6c MULS.W D7,D0> {}
<MI 21a6e LEA.L 0x21ce8,A0> {}
<MI 21a70 TST.B (A0+D0.W+#0xc)> {}
<MI 21a74 BEQ 0x21a82> {}
<POP 21a76-21a82 Naked> Σ0 ↓
<MI 21a76 MOVE.W D7,-(A7)> Δ-2 {[2, 'D7']}
<Pointer.fp 0x21a78 <LVAR -0x001 @ 1(r)>> Δ-4 {[2, 'D7']|[@@-1]}
<Call 0x21a7a 0x10206> {[2, 'D7']|[@@-1]}
KC03_Wait_Disk_IO(a : W; VAR status : Byte)
<POP 21a80-21a82 StackAdj> Δ+6 {}
<POP 21a82-21a88 Naked> Σ0 ↓ →0x21a6a ←0x21a6a
<MI 21a82 ADDQ.W #0x1,D7> {}
<MI 21a84 CMP.W #0x03,D7> {}
<MI 21a86 BLE 0x21a6a> {}
<POP 21a88-21a90 Epilogue> Σ0
@ 21a90
START
<POP 21a90--0001 Body>
<POP 21a90-21a9a Prologue> Σ0
<POP 21a9a-21a9c RegCacheLoad> Σ0 ↓
<POP 21a9c-21adc Naked> Σ0 ↓
<Call 0x21a9c 0x10398> {}
FSCALL_10398
<MI 21aa2 MOVE.L #0x01,0x243bc> {}
<Call 0x21aa8 0x20500> {}
<Call 0x21aac 0x21948> {}
<Blob 0x21ab0 [20] @> Δ-20 {[«20""»]}
<MI 21abc CLR.B -(A7)> Δ-2 {[«20""»]|[#0]}
<POP 21abe-21ac0 StackAdj> Δ-4 {[«20""»]|[#0]|[-4-]}
<Lit 0x21ac0 20> {[«20""»]|[#0]|[$$Tape exerciser done.]}
<Call 0x21ad2 0x103b8> {[«20""»]|[#0]|[$$Tape exerciser done.]}
PopProgram(status : Byte; msg : String)
<POP 21ad8-21adc StackAdj> Δ+26 {}
<POP 21adc-21ae2 Naked> Σ0
<Call 0x21adc 0x10284> {}
?exit
@ 21af0
PROG_FAIL
<LVAR 0x008 1(r)>
<POP 21af0-21b58 Body>
<POP 21af0-21b06 Prologue> Σ0 ↓
<POP 21b06-21b50 Naked> Σ0 ↓
<Blob 0x21b06 [14] @> Δ-14 {[«14""»]}
<Const 0x21b12 0x3.2> Δ-2 {[«14""»]|[#3]}
<POP 21b16-21b18 StackAdj> Δ-8 {[«14""»]|[#3]|[-8-]}
<Lit 0x21b18 14> {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
<POP 21b2a-21b2c StackAdj> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 21b2c MOVE.B (A6+0x8),D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 21b30 EXTB.W D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 21b32 EXTW.L D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 21b34 MOVE.L D0,-(A7)> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
<Call 0x21b36 0x102e4> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 21b3c-21b3e StackAdj> Δ+4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<Call 0x21b3e 0x102d0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 21b44-21b46 StackAdj> Δ+8 {[«14""»]|[#3]|[-4-]}
<Call 0x21b46 0x103b8> {[«14""»]|[#3]|[-4-]}
PopProgram(status : Byte; msg : String)
<POP 21b4c-21b50 StackAdj> Δ+20 {}
<POP 21b50-21b58 Epilogue> Σ0
@ 21bac
EXP_FAIL
<LVAR 0x00e 1(r)>
<LVAR 0x00a 4(r)>
<LVAR 0x008 1(r)>
<POP 21bac-21ce8 Body>
<POP 21bac-21bc2 Prologue> Σ0 ↓
<POP 21bc2-21bd8 RegCacheLoad> Σ0 ↓
<POP 21bd8-21c38 Naked> Σ0 ↓ →0x21c80
<Call 0x21bd8 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x21bde [18] @> Δ-18 {[«18""»]}
<POP 21bea-21bec StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x21bec 18> {[«18""»]|[$$Experiment error :]}
<Call 0x21bf8 0x103e0> {[«18""»]|[$$Experiment error :]}
WriteConsoleStringCrLf(str : String)
<POP 21bfa-21bfb StackAdj> Δ+22 ↓ {}
<Blob 0x21bfb [14] @> Δ-14 {[«14""»]}
<POP 21c0a-21c0c StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x21c0c 13> {[«14""»]|[-4-]|[$$Board :_]}
<POP 21c16-21c18 StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<MI 21c18 MOVE.B (A6+0xe),(A7)> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<Call 0x21c1c 0x1049c> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
BoardName(address : B) : String
<POP 21c22-21c24 StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
<Call 0x21c24 0x102d0> {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 21c2a-21c2c StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x21c2c 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 21c2e-21c30 StackAdj> Δ+18 {}
<MI 21c30 MOVEA.L (A6+0xa),A0> {}
<MI 21c34 CMPA.W #0x01,A0> {}
<MI 21c36 BEQ 0x21c80> {}
<POP 21c38-21c80 Naked> Σ0 ↓
<Blob 0x21c38 [14] @> Δ-14 {[«14""»]}
<Blob 0x21c48 [30] (A0+0xfc)> Δ-30 {[«14""»]|[«30»]}
<POP 21c58-21c5a StackAdj> Δ-8 {[«14""»]|[«30»]|[-8-]}
<Lit 0x21c5a 13> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
<POP 21c64-21c66 StackAdj> Δ-4 {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
<Lit 0x21c66> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
<Pointer.sp 0x21c66 12> Δ-4
<Const 0x21c6a 0x1.2> Δ-2
<Const 0x21c6c 0x1e.2> Δ-2
<Call 0x21c6e 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 21c70-21c72 StackAdj> Δ+8
<Call 0x21c72 0x102d0> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
StringCat2(a, b : String) : String
<POP 21c78-21c7a StackAdj> Δ+8 {[«14""»]|[«30»]|[-4-]}
<Call 0x21c7a 0x103e0> {[«14""»]|[«30»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 21c7c-21c80 StackAdj> Δ+48 {}
<POP 21c80-21ce0 Naked> Σ0 ↓ ←0x21bd8
<Blob 0x21c80 [14] @> Δ-14 {[«14""»]}
<POP 21c90-21c92 StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x21c92 13> {[«14""»]|[-4-]|[$$Status :_]}
<POP 21c9c-21c9e StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<MI 21c9e MOVE.B (A6+0x8),(A7)> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<Call 0x21ca2 0x104a2> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
ExpStatus2Text(status.B, &String)
<POP 21ca8-21caa StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
<Call 0x21caa 0x102d0> {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 21cb0-21cb2 StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x21cb2 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 21cb4-21cb5 StackAdj> Δ+18 ↓ {}
<Blob 0x21cb5 [24] @> Δ-24 {[«24""»]}
<Const 0x21cc4 0x2.2> Δ-2 {[«24""»]|[#2]}
<POP 21cc8-21cca StackAdj> Δ-4 {[«24""»]|[#2]|[-4-]}
<Lit 0x21cca 23> {[«24""»]|[#2]|[$$Fatal experiment error.]}
<Call 0x21cd8 0x103b8> {[«24""»]|[#2]|[$$Fatal experiment error.]}
PopProgram(status : Byte; msg : String)
<POP 21cde-21ce0 StackAdj> Δ+30 {}
<POP 21ce0-21ce8 Epilogue> Σ0
00020000 ; -------------------------------------------------------------------------------------- 00020000 ; R1000.Disassembly modules: 00020000 ; import all 00020000 ; import kind.program 00020000 ; no ident.855439add131f7c0 00020000 ; -------------------------------------------------------------------------------------- 00020000 stack.top: 00020000 00 04 00 00 | | .CODE 0x40000 ; STACK.END 00020004 00 02 1a 90 | | .CODE START 00020008 00 01 02 88 | | .CODE FSCALL_10288 0002000c heap.top: 0002000c 00 02 43 d4 | C | .PTR 0x243d4 00020010 code.end: 00020010 00 02 1c e8 | | .PTR 0x21ce8 00020014 00 00 00 00 | | .CONST 0x00000000 00020018 programfailurehandler: 00020018 00 02 1a f0 | | .CODE PROG_FAIL 0002001c experimentfailurehandler: 0002001c 00 02 1b ac | | .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 54 41 |@(#)TA | .XXX[0x6] 00020110 50 45 58 2c 32 2e 33 2c |PEX,2.3,| .XXX[0x18] 00020118 39 30 2f 31 32 2f 30 36 |90/12/06| 00020120 2c 31 32 3a 35 32 3a 30 |,12:52:0| 00020128 30 5c |0\ | .XXX[0x2] 0002012a 45 78 65 72 63 69 73 65 |Exercise| .TXT 'Exercise unit_' 00020138 44 46 53 20 62 61 73 65 |DFS base| .TXT 'DFS based tape exerciser, started at => ' 00020160 54 79 70 65 20 5e 47 20 |Type ^G | .TXT 'Type ^G to exit, any other character for status ' 00020190 53 74 61 74 75 73 20 61 |Status a| .TXT 'Status at_' 0002019a 2c 20 74 65 73 74 20 73 |, test s| .TXT ', test started at_' 000201ac 55 6e 69 74 20 3a 5f 20 |Unit :_ | .TXT 'Unit :_ ' 000201b4 2c 20 42 79 74 65 73 20 |, Bytes | .TXT ', Bytes =>_ ' 000201c0 2c 20 73 6f 66 74 20 3d |, soft =| .TXT ', soft =>_' 000201ca 2c 20 68 61 72 64 20 3d |, hard =| .TXT ', hard =>_' 000201d4 2c 20 64 61 74 61 20 3d |, data =| .TXT ', data =>_' 000201de 45 72 72 6f 72 20 6f 6e |Error on| .TXT 'Error on unit_' 000201ec 20 61 74 5f | at_ | .TXT ' at_' 000201f0 20 74 65 73 74 20 73 74 | test st| .TXT ' test started at_ ' 00020202 20 65 72 72 6f 72 2c 20 | error, | .TXT ' error, retries =>' 00020214 48 41 52 44 |HARD | .TXT 'HARD' 00020218 53 4f 46 54 |SOFT | .TXT 'SOFT' 0002021c 44 41 54 41 |DATA | .TXT 'DATA' 00020220 4e 6f 74 20 6f 6e 20 6c |Not on l| .TXT 'Not on line ' 0002022c 57 72 6f 6e 67 20 64 65 |Wrong de| .TXT 'Wrong density ' 0002023a 54 61 70 65 |Tape | .TXT 'Tape' 0002023e 54 61 70 65 |Tape | .TXT 'Tape' 00020242 52 65 63 6f 72 64 20 6c |Record l| .TXT 'Record long ' 0002024e 54 61 70 65 |Tape | .TXT 'Tape' 00020252 52 65 63 6f |Reco | .TXT 'Reco' 00020256 72 64 20 73 |rd s | .TXT 'rd s' 0002025a 68 6f 72 74 |hort | .TXT 'hort' 0002025e 54 61 70 65 |Tape | .TXT 'Tape' 00020262 55 6e 65 78 70 65 63 74 |Unexpect| .TXT 'Unexpected mark ' 00020272 54 61 70 65 |Tape | .TXT 'Tape' 00020276 4f 6e 20 6c 69 6e 65 20 |On line | .TXT 'On line ' 0002027e 57 72 69 74 65 20 6c 6f |Write lo| .TXT 'Write lock' 00020288 54 61 70 65 |Tape | .TXT 'Tape' 0002028c 54 61 70 65 |Tape | .TXT 'Tape' 00020290 54 61 70 65 |Tape | .TXT 'Tape' 00020294 55 6e 69 74 |Unit | .TXT 'Unit' 00020298 44 65 6e 73 69 74 79 20 |Density | .TXT 'Density select' 000202a6 53 70 65 65 |Spee | .TXT 'Spee' 000202aa 64 20 73 65 |d se | .TXT 'd se' 000202ae 6c 65 63 74 |lect | .TXT 'lect' 000202b2 54 61 70 65 20 65 78 65 |Tape exe| .TXT 'Tape exerciser done.' 000202c6 00 00 | | .XXX[0x2] 000202c8 ff ff b6 db ed b6 aa aa | | .XXX[0x8] 000202d0 ; -------------------------------------------------------------------------------------- 000202d0 ; OMSI PASCAL Function 000202d0 ; <LVAR 0x010 4(w)> 000202d0 ; <LVAR 0x00c 4(r)> 000202d0 ; <LVAR 0x008 4(r)> 000202d0 ; -------------------------------------------------------------------------------------- 000202d0 4e 56 ff e8 |NV | LINK.W A6,#0xffe8 000202d4 bf d5 | | CMPA.L (A5),A7 000202d6 62 06 |b | BHI 0x202de 000202d8 44 fc 00 02 |D | MOVE.W #0x2,CCR 000202dc 4e 76 |Nv | TRAPV 000202de de fc 00 18 | | ADDA.W #0x18,A7 000202e2 48 e7 98 80 |H | MOVEM.L A0+D4+D3+D0,-(A7) 000202e6 41 f9 00 02 43 c0 |A C | LEA.L 0x243c0,A0 000202ec 28 10 |( | MOVE.L (A0),D4 000202ee 26 3c 00 00 7a b7 |&< z | MOVE.L #0x7ab7,D3 000202f4 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4 000202fa 20 84 | | MOVE.L D4,(A0) 000202fc 06 90 00 00 36 19 | 6 | ADDI.L #0x00003619,(A0) 00020302 02 90 00 00 7f ff | | ANDI.L #0x00007fff,(A0) 00020308 20 2e 00 08 | . | MOVE.L (A6+0x8),D0 0002030c 90 ae 00 0c | | SUB.L (A6+0xc),D0 00020310 52 80 |R | ADDQ.L #0x1,D0 00020312 28 10 |( | MOVE.L (A0),D4 00020314 26 00 |& | MOVE.L D0,D3 00020316 4e b9 00 01 02 94 |N | JSR ?divs_d3_d4 0002031c d6 ae 00 0c | | ADD.L (A6+0xc),D3 00020320 2d 43 00 10 |-C | MOVE.L D3,(A6+0x10) 00020324 4c df 01 19 |L | MOVEM.L (A7)+,D0+D3+D4+A0 00020328 4e 5e |N^ | UNLK A6 0002032a 4e 75 |Nu | RTS 0002032c ; -------------------------------------------------------------------------------------- 0002032c ; OMSI PASCAL Function 0002032c ; <LVAR 0x008 4(w)> 0002032c ; -------------------------------------------------------------------------------------- 0002032c 4e 56 ff ec |NV | LINK.W A6,#0xffec 00020330 bf d5 | | CMPA.L (A5),A7 00020332 62 06 |b | BHI 0x2033a 00020334 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020338 4e 76 |Nv | TRAPV 0002033a de fc 00 14 | | ADDA.W #0x14,A7 0002033e 48 e7 c0 c0 |H | MOVEM.L A1+A0+D1+D0,-(A7) 00020342 43 f9 00 02 43 bc |C C | LEA.L 0x243bc,A1 00020348 52 91 |R | ADDQ.L #0x1,(A1) 0002034a 20 11 | | MOVE.L (A1),D0 0002034c 0c 80 00 00 00 05 | | CMPI.L #0x00000005,D0 00020352 6f 06 |o | BLE 0x2035a 00020354 22 bc 00 00 00 01 |" | MOVE.L #0x1,(A1) 0002035a 20 11 | | MOVE.L (A1),D0 0002035c 53 80 |S | SUBQ.L #0x1,D0 0002035e 0c 80 00 00 00 04 | | CMPI.L #0x00000004,D0 00020364 63 02 |c | BLS 0x20368 00020366 4e 4f |NO | TRAP #15 00020368 e3 80 | | ASL.L #0x1,D0 0002036a 41 fa ff 5a |A Z | LEA.L 0x202c6,A0 0002036e 42 81 |B | CLR.L D1 00020370 32 30 08 00 |20 | MOVE.W (A0+D0.L),D1 00020374 2d 41 00 08 |-A | MOVE.L D1,(A6+0x8) 00020378 4c df 03 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1 0002037c 4e 5e |N^ | UNLK A6 0002037e 4e 75 |Nu | RTS 00020380 ; -------------------------------------------------------------------------------------- 00020380 ; OMSI PASCAL Function 00020380 ; <LVAR 0x00a 1(rw)> 00020380 ; <LVAR 0x008 2(r)> 00020380 ; <LVAR -0x008 2(r)> 00020380 ; <LVAR -0x010 2(r)> 00020380 ; <LVAR -0x014 @ 2(r)> 00020380 ; <LVAR -0x016 @> 00020380 ; <LVAR -0x018 2(r)> 00020380 ; <LVAR -0x01a 2(r)> 00020380 ; <LVAR -0x01c 2(w)> 00020380 ; <LVAR -0x01e 2(r)> 00020380 ; <LVAR -0x020 2(r)> 00020380 ; <LVAR -0x022 2(w)> 00020380 ; <LVAR -0x024 2(r)> 00020380 ; <LVAR -0x026 @ 2(r)> 00020380 ; -------------------------------------------------------------------------------------- 00020380 4e 56 ff bc |NV | LINK.W A6,#0xffbc 00020384 bf d5 | | CMPA.L (A5),A7 00020386 62 06 |b | BHI 0x2038e 00020388 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002038c 4e 76 |Nv | TRAPV 0002038e de fc 00 1e | | ADDA.W #0x1e,A7 00020392 48 e7 c0 c0 |H | MOVEM.L A1+A0+D1+D0,-(A7) 00020396 43 ee 00 08 |C | LEA.L (A6+0x8),A1 0002039a 72 01 |r | MOVEQ.L #0x01,D1 0002039c 42 6e ff da |Bn | CLR.W (A6-0x26) 000203a0 42 6e ff dc |Bn | CLR.W (A6-0x24) 000203a4 3d 7c 00 03 ff de |=| | MOVE.W #0x3,(A6-0x22) 000203aa 42 6e ff e0 |Bn | CLR.W (A6-0x20) 000203ae 42 6e ff e2 |Bn | CLR.W (A6-0x1e) 000203b2 30 11 |0 | MOVE.W (A1),D0 000203b4 e1 40 | @ | ASL.W #0x8,D0 000203b6 3d 40 ff e4 |=@ | MOVE.W D0,(A6-0x1c) 000203ba 42 6e ff e6 |Bn | CLR.W (A6-0x1a) 000203be 42 6e ff e8 |Bn | CLR.W (A6-0x18) 000203c2 48 6e ff da |Hn | PEA.L (A6-0x26) 000203c6 41 ee ff ec |A | LEA.L (A6-0x14),A0 000203ca 2f 08 |/ | MOVE.L A0,-(A7) 000203cc 3f 11 |? | MOVE.W (A1),-(A7) 000203ce 4e b9 00 01 02 04 |N | JSR KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W) 000203d4 50 4f |PO | ADDQ.L #0x8,A7 000203d6 3e 91 |> | MOVE.W (A1),(A7) 000203d8 48 6e ff ea |Hn | PEA.L (A6-0x16) 000203dc 4e b9 00 01 02 06 |N | JSR KC03_Wait_Disk_IO(a : W; VAR status : Byte) 000203e2 5c 4f |\O | ADDQ.L #0x6,A7 000203e4 42 2e 00 0a |B. | CLR.B (A6+0xa) 000203e8 30 2e ff ec |0. | MOVE.W (A6-0x14),D0 000203ec c0 41 | A | AND.W D1,D0 000203ee b0 41 | A | CMP.W D1,D0 000203f0 66 18 |f | BNE 0x2040a 000203f2 30 2e ff f0 |0. | MOVE.W (A6-0x10),D0 000203f6 02 40 00 40 | @ @ | ANDI.W #0x0040,D0 000203fa 66 0e |f | BNE 0x2040a 000203fc 30 2e ff f8 |0. | MOVE.W (A6-0x8),D0 00020400 02 40 08 00 | @ | ANDI.W #0x0800,D0 00020404 66 04 |f | BNE 0x2040a 00020406 52 2e 00 0a |R. | ADDQ.B #0x1,(A6+0xa) 0002040a 4c df 03 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1 0002040e 4e 5e |N^ | UNLK A6 00020410 4e 75 |Nu | RTS 00020412 ; -------------------------------------------------------------------------------------- 00020412 ; OMSI PASCAL Function 00020412 ; <LVAR 0x008 2(r)> 00020412 ; -------------------------------------------------------------------------------------- 00020412 4e 56 ff e4 |NV | LINK.W A6,#0xffe4 00020416 bf d5 | | CMPA.L (A5),A7 00020418 62 06 |b | BHI 0x20420 0002041a 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002041e 4e 76 |Nv | TRAPV 00020420 de fc 00 1a | | ADDA.W #0x1a,A7 00020424 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7) 00020428 30 3c 09 b2 |0< | MOVE.W #0x9b2,D0 0002042c c1 ee 00 08 | | MULS.W (A6+0x8),D0 00020430 41 f9 00 02 1c e8 |A | LEA.L 0x21ce8,A0 00020436 42 b0 00 12 |B | CLR.L (A0+D0.W+#0x12) 0002043a 42 b0 00 16 |B | CLR.L (A0+D0.W+#0x16) 0002043e 42 b0 00 1a |B | CLR.L (A0+D0.W+#0x1a) 00020442 42 b0 00 26 |B & | CLR.L (A0+D0.W+#0x26) 00020446 42 30 00 0d |B0 | CLR.B (A0+D0.W+#0xd) 0002044a 42 30 00 0f |B0 | CLR.B (A0+D0.W+#0xf) 0002044e 11 bc 00 01 00 10 | | MOVE.B #0x01,(A0+D0.W+#0x10) 00020454 21 bc 00 00 00 0a 00 2e |! .| MOVE.L #0xa,(A0+D0.W+#0x2e) 0002045c 42 b0 00 2a |B * | CLR.L (A0+D0.W+#0x2a) 00020460 41 f0 00 0c |A | LEA.L (A0+D0.W+#0xc),A0 00020464 43 e8 01 aa |C | LEA.L (A0+0x1aa),A1 00020468 2f 09 |/ | MOVE.L A1,-(A7) 0002046a 21 5f 01 a6 |!_ | MOVE.L (A7)+,(A0+0x1a6) 0002046e 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1 00020472 4e 5e |N^ | UNLK A6 00020474 4e 75 |Nu | RTS 00020476 ; -------------------------------------------------------------------------------------- 00020476 ; OMSI PASCAL Function 00020476 ; <LVAR 0x008 2(r)> 00020476 ; <LVAR -0x006 2(w)> 00020476 ; <LVAR -0x008 2(w)> 00020476 ; <LVAR -0x00e 2(w)> 00020476 ; <LVAR -0x012 @> 00020476 ; -------------------------------------------------------------------------------------- 00020476 4e 56 ff c6 |NV | LINK.W A6,#0xffc6 0002047a bf d5 | | CMPA.L (A5),A7 0002047c 62 06 |b | BHI 0x20484 0002047e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020482 4e 76 |Nv | TRAPV 00020484 de fc 00 28 | ( | ADDA.W #0x28,A7 00020488 48 e7 c0 c0 |H | MOVEM.L A1+A0+D1+D0,-(A7) 0002048c 43 ee 00 08 |C | LEA.L (A6+0x8),A1 00020490 30 3c 09 b2 |0< | MOVE.W #0x9b2,D0 00020494 c1 d1 | | MULS.W (A1),D0 00020496 41 f9 00 02 1c e8 |A | LEA.L 0x21ce8,A0 0002049c 3d 7c 00 03 ff f2 |=| | MOVE.W #0x3,(A6-0xe) 000204a2 32 11 |2 | MOVE.W (A1),D1 000204a4 e1 41 | A | ASL.W #0x8,D1 000204a6 41 f0 00 0c |A | LEA.L (A0+D0.W+#0xc),A0 000204aa 10 28 09 ac | ( | MOVE.B (A0+0x9ac),D0 000204ae 48 80 |H | EXTB.W D0 000204b0 d0 41 | A | ADD.W D1,D0 000204b2 0c 40 ff ff | @ | CMPI.W #0xffff,D0 000204b6 63 02 |c | BLS 0x204ba 000204b8 4e 4f |NO | TRAP #15 000204ba 3d 40 ff f8 |=@ | MOVE.W D0,(A6-0x8) 000204be 20 28 09 ae | ( | MOVE.L (A0+0x9ae),D0 000204c2 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 000204c8 63 02 |c | BLS 0x204cc 000204ca 4e 4f |NO | TRAP #15 000204cc 3d 40 ff fa |=@ | MOVE.W D0,(A6-0x6) 000204d0 48 6e ff ee |Hn | PEA.L (A6-0x12) 000204d4 59 4f |YO | SUBQ.L #0x4,A7 000204d6 1e a8 01 a6 | | MOVE.B (A0+0x1a6),(A7) 000204da 1f 68 01 a7 00 01 | h | MOVE.B (A0+0x1a7),(A7+0x1) 000204e0 1f 68 01 a8 00 02 | h | MOVE.B (A0+0x1a8),(A7+0x2) 000204e6 1f 68 01 a9 00 03 | h | MOVE.B (A0+0x1a9),(A7+0x3) 000204ec 3f 11 |? | MOVE.W (A1),-(A7) 000204ee 4e b9 00 01 02 04 |N | JSR KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W) 000204f4 de fc 00 0a | | ADDA.W #0xa,A7 000204f8 4c df 03 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1 000204fc 4e 5e |N^ | UNLK A6 000204fe 4e 75 |Nu | RTS 00020500 ; -------------------------------------------------------------------------------------- 00020500 ; OMSI PASCAL Function 00020500 ; -------------------------------------------------------------------------------------- 00020500 4e 56 ff 98 |NV | LINK.W A6,#0xff98 00020504 bf d5 | | CMPA.L (A5),A7 00020506 62 06 |b | BHI 0x2050e 00020508 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002050c 4e 76 |Nv | TRAPV 0002050e de fc 00 64 | d | ADDA.W #0x64,A7 00020512 48 e7 f1 f0 |H | MOVEM.L A3+A2+A1+A0+D7+D3+D2+D1+D0,-(A7) 00020516 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 0002051c 47 f9 00 02 1c f0 |G | LEA.L 0x21cf0,A3 00020522 74 01 |t | MOVEQ.L #0x01,D2 00020524 76 0e |v | MOVEQ.L #0x0e,D3 00020526 7e 00 |~ | MOVEQ.L #0x00,D7 00020528 30 3c 09 b2 |0< | MOVE.W #0x9b2,D0 0002052c c1 c7 | | MULS.W D7,D0 0002052e 41 f9 00 02 1c e8 |A | LEA.L 0x21ce8,A0 00020534 55 4f |UO | SUBQ.L #0x2,A7 00020536 3f 07 |? | MOVE.W D7,-(A7) 00020538 4e ba fe 46 |N F | JSR 0x20380 0002053c 54 4f |TO | ADDQ.L #0x2,A7 0002053e 4a 1f |J | TST.B (A7)+ 00020540 66 06 |f | BNE 0x20548 00020542 42 30 00 0c |B0 | CLR.B (A0+D0.W+#0xc) 00020546 60 48 |`H | BRA 0x20590 00020548 43 fa fb ee |C | LEA.L 0x20138,A1 0002054c 72 06 |r | MOVEQ.L #0x06,D1 0002054e 3f 21 |?! | MOVE.W -(A1),-(A7) 00020550 51 c9 ff fc |Q | DBF D1,0x2054e 00020554 9e fc 00 0a | | SUBA.W #0xa,A7 00020558 48 6f 00 0a |Ho | PEA.L (A7+0xa) 0002055c 3f 02 |? | MOVE.W D2,-(A7) 0002055e 3f 03 |? | MOVE.W D3,-(A7) 00020560 4e 92 |N | JSR (A2) 00020562 58 4f |XO | ADDQ.L #0x4,A7 00020564 32 07 |2 | MOVE.W D7,D1 00020566 48 c1 |H | EXTW.L D1 00020568 2f 01 |/ | MOVE.L D1,-(A7) 0002056a 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00020570 58 4f |XO | ADDQ.L #0x4,A7 00020572 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020578 5c 4f |\O | ADDQ.L #0x6,A7 0002057a 1e 82 | | MOVE.B D2,(A7) 0002057c 4e b9 00 01 03 f0 |N | JSR AskOnConsoleYesNo(prompt : String; default : Bool) : Bool 00020582 5c 4f |\O | ADDQ.L #0x6,A7 00020584 12 1f | | MOVE.B (A7)+,D1 00020586 48 81 |H | EXTB.W D1 00020588 43 82 |C | CHK.W D2,D1 0002058a de c3 | | ADDA.W D3,A7 0002058c 11 81 00 0c | | MOVE.B D1,(A0+D0.W+#0xc) 00020590 4a 30 00 0c |J0 | TST.B (A0+D0.W+#0xc) 00020594 67 08 |g | BEQ 0x2059e 00020596 3f 07 |? | MOVE.W D7,-(A7) 00020598 4e ba fe 78 |N x | JSR 0x20412 0002059c 54 4f |TO | ADDQ.L #0x2,A7 0002059e 52 47 |RG | ADDQ.W #0x1,D7 000205a0 0c 47 00 03 | G | CMPI.W #0x0003,D7 000205a4 6f 82 |o | BLE 0x20528 000205a6 48 53 |HS | PEA.L (A3) 000205a8 4e b9 00 01 03 04 |N | JSR GetRtc() : TimeStamp 000205ae 58 4f |XO | ADDQ.L #0x4,A7 000205b0 41 fa fb ae |A | LEA.L 0x20160,A0 000205b4 70 09 |p | MOVEQ.L #0x09,D0 000205b6 2f 20 |/ | MOVE.L -(A0),-(A7) 000205b8 51 c8 ff fc |Q | DBF D0,0x205b6 000205bc 51 4f |QO | SUBQ.L #0x8,A7 000205be 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000205c2 3f 02 |? | MOVE.W D2,-(A7) 000205c4 3f 3c 00 28 |?< ( | MOVE.W #0x28,-(A7) 000205c8 4e 92 |N | JSR (A2) 000205ca 2e 93 |. | MOVE.L (A3),(A7) 000205cc 4e b9 00 01 03 08 |N | JSR TimeToText() 000205d2 58 4f |XO | ADDQ.L #0x4,A7 000205d4 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000205da 50 4f |PO | ADDQ.L #0x8,A7 000205dc 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000205e2 59 4f |YO | SUBQ.L #0x4,A7 000205e4 20 4f | O | MOVEA.L A7,A0 000205e6 43 fa fb 78 |C x | LEA.L 0x20160,A1 000205ea 70 2e |p. | MOVEQ.L #0x2e,D0 000205ec 10 d9 | | MOVE.B (A1)+,(A0)+ 000205ee 51 c8 ff fc |Q | DBF D0,0x205ec 000205f2 59 4f |YO | SUBQ.L #0x4,A7 000205f4 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000205f8 3f 02 |? | MOVE.W D2,-(A7) 000205fa 3f 3c 00 2f |?< / | MOVE.W #0x2f,-(A7) 000205fe 4e 92 |N | JSR (A2) 00020600 50 4f |PO | ADDQ.L #0x8,A7 00020602 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00020608 de fc 00 34 | 4 | ADDA.W #0x34,A7 0002060c 4c df 0f 8f |L | MOVEM.L (A7)+,D0+D1+D2+D3+D7+A0+A1+A2+A3 00020610 4e 5e |N^ | UNLK A6 00020612 4e 75 |Nu | RTS 00020614 ; -------------------------------------------------------------------------------------- 00020614 ; OMSI PASCAL Function 00020614 ; <LVAR -0x004 @ 4(r)> 00020614 ; -------------------------------------------------------------------------------------- 00020614 4e 56 ff 88 |NV | LINK.W A6,#0xff88 00020618 bf d5 | | CMPA.L (A5),A7 0002061a 62 06 |b | BHI 0x20622 0002061c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020620 4e 76 |Nv | TRAPV 00020622 de fc 00 6c | l | ADDA.W #0x6c,A7 00020626 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 0002062a 47 f9 00 01 02 d0 |G | LEA.L StringCat2(a, b : String) : String,A3 00020630 72 01 |r | MOVEQ.L #0x01,D1 00020632 74 0a |t | MOVEQ.L #0x0a,D2 00020634 7a 10 |z | MOVEQ.L #0x10,D5 00020636 7c 03 || | MOVEQ.L #0x03,D6 00020638 48 6e ff fc |Hn | PEA.L (A6-0x4) 0002063c 4e b9 00 01 03 04 |N | JSR GetRtc() : TimeStamp 00020642 58 4f |XO | ADDQ.L #0x4,A7 00020644 41 fa fb 54 |A T | LEA.L 0x2019a,A0 00020648 70 04 |p | MOVEQ.L #0x04,D0 0002064a 3f 20 |? | MOVE.W -(A0),-(A7) 0002064c 51 c8 ff fc |Q | DBF D0,0x2064a 00020650 41 fa fb 5a |A Z | LEA.L 0x201ac,A0 00020654 70 08 |p | MOVEQ.L #0x08,D0 00020656 3f 20 |? | MOVE.W -(A0),-(A7) 00020658 51 c8 ff fc |Q | DBF D0,0x20656 0002065c 51 4f |QO | SUBQ.L #0x8,A7 0002065e 48 6f 00 1a |Ho | PEA.L (A7+0x1a) 00020662 3f 01 |? | MOVE.W D1,-(A7) 00020664 3f 02 |? | MOVE.W D2,-(A7) 00020666 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002066c 2e ae ff fc |. | MOVE.L (A6-0x4),(A7) 00020670 4e b9 00 01 03 08 |N | JSR TimeToText() 00020676 48 6f 00 10 |Ho | PEA.L (A7+0x10) 0002067a 3f 01 |? | MOVE.W D1,-(A7) 0002067c 3f 3c 00 12 |?< | MOVE.W #0x12,-(A7) 00020680 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020686 2e b9 00 02 1c f0 |. | MOVE.L 0x21cf0,(A7) 0002068c 4e b9 00 01 03 08 |N | JSR TimeToText() 00020692 58 4f |XO | ADDQ.L #0x4,A7 00020694 4e b9 00 01 02 d8 |N | JSR StringCat4(a, b, c, d : String) : String 0002069a de c5 | | ADDA.W D5,A7 0002069c 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000206a2 de fc 00 20 | | ADDA.W #0x20,A7 000206a6 7e 00 |~ | MOVEQ.L #0x00,D7 000206a8 be 86 | | CMP.L D6,D7 000206aa 63 02 |c | BLS 0x206ae 000206ac 4e 4f |NO | TRAP #15 000206ae 28 07 |( | MOVE.L D7,D4 000206b0 26 3c 00 00 09 b2 |&< | MOVE.L #0x9b2,D3 000206b6 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4 000206bc 41 f9 00 02 1c e8 |A | LEA.L 0x21ce8,A0 000206c2 4a 30 48 0c |J0H | TST.B (A0+D4.L+#0xc) 000206c6 67 00 01 84 |g | BEQ 0x2084c 000206ca 51 4f |QO | SUBQ.L #0x8,A7 000206cc 22 4f |"O | MOVEA.L A7,A1 000206ce 45 fa fa dc |E | LEA.L 0x201ac,A2 000206d2 70 06 |p | MOVEQ.L #0x06,D0 000206d4 12 da | | MOVE.B (A2)+,(A1)+ 000206d6 51 c8 ff fc |Q | DBF D0,0x206d4 000206da 51 4f |QO | SUBQ.L #0x8,A7 000206dc 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000206e0 3f 01 |? | MOVE.W D1,-(A7) 000206e2 3f 3c 00 07 |?< | MOVE.W #0x7,-(A7) 000206e6 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000206ec 2e 87 |. | MOVE.L D7,(A7) 000206ee 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 000206f4 58 4f |XO | ADDQ.L #0x4,A7 000206f6 4e 93 |N | JSR (A3) 000206f8 50 4f |PO | ADDQ.L #0x8,A7 000206fa 28 5f |(_ | MOVEA.L (A7)+,A4 000206fc 59 4f |YO | SUBQ.L #0x4,A7 000206fe 22 4f |"O | MOVEA.L A7,A1 00020700 45 fa fa b2 |E | LEA.L 0x201b4,A2 00020704 70 0a |p | MOVEQ.L #0x0a,D0 00020706 12 da | | MOVE.B (A2)+,(A1)+ 00020708 51 c8 ff fc |Q | DBF D0,0x20706 0002070c 59 4f |YO | SUBQ.L #0x4,A7 0002070e 2f 0c |/ | MOVE.L A4,-(A7) 00020710 59 4f |YO | SUBQ.L #0x4,A7 00020712 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00020716 3f 01 |? | MOVE.W D1,-(A7) 00020718 3f 3c 00 0b |?< | MOVE.W #0xb,-(A7) 0002071c 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020722 50 4f |PO | ADDQ.L #0x8,A7 00020724 4e 93 |N | JSR (A3) 00020726 50 4f |PO | ADDQ.L #0x8,A7 00020728 28 5f |(_ | MOVEA.L (A7)+,A4 0002072a 58 4f |XO | ADDQ.L #0x4,A7 0002072c 2e 8c |. | MOVE.L A4,(A7) 0002072e 9e c5 | | SUBA.W D5,A7 00020730 22 4f |"O | MOVEA.L A7,A1 00020732 45 f0 48 1e |E H | LEA.L (A0+D4.L+#0x1e),A2 00020736 70 07 |p | MOVEQ.L #0x07,D0 00020738 12 da | | MOVE.B (A2)+,(A1)+ 0002073a 51 c8 ff fc |Q | DBF D0,0x20738 0002073e 48 78 00 0a |Hx | PEA.L 0xa 00020742 4e b9 00 01 03 5c |N \ | JSR Quad2String(a : Quad; radix : Long ) : String 00020748 de fc 00 0c | | ADDA.W #0xc,A7 0002074c 48 78 00 0a |Hx | PEA.L 0xa 00020750 4e b9 00 01 02 f8 |N | JSR LeftPad(a : String; b : Long) : String 00020756 50 4f |PO | ADDQ.L #0x8,A7 00020758 4e 93 |N | JSR (A3) 0002075a 50 4f |PO | ADDQ.L #0x8,A7 0002075c 28 5f |(_ | MOVEA.L (A7)+,A4 0002075e 43 fa fa 6a |C j | LEA.L 0x201ca,A1 00020762 70 04 |p | MOVEQ.L #0x04,D0 00020764 3f 21 |?! | MOVE.W -(A1),-(A7) 00020766 51 c8 ff fc |Q | DBF D0,0x20764 0002076a 59 4f |YO | SUBQ.L #0x4,A7 0002076c 2f 0c |/ | MOVE.L A4,-(A7) 0002076e 59 4f |YO | SUBQ.L #0x4,A7 00020770 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00020774 3f 01 |? | MOVE.W D1,-(A7) 00020776 3f 02 |? | MOVE.W D2,-(A7) 00020778 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002077e 50 4f |PO | ADDQ.L #0x8,A7 00020780 4e 93 |N | JSR (A3) 00020782 50 4f |PO | ADDQ.L #0x8,A7 00020784 28 5f |(_ | MOVEA.L (A7)+,A4 00020786 54 4f |TO | ADDQ.L #0x2,A7 00020788 2e 8c |. | MOVE.L A4,(A7) 0002078a 51 4f |QO | SUBQ.L #0x8,A7 0002078c 2f 30 48 16 |/0H | MOVE.L (A0+D4.L+#0x16),-(A7) 00020790 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00020796 58 4f |XO | ADDQ.L #0x4,A7 00020798 48 78 00 05 |Hx | PEA.L 0x5 0002079c 4e b9 00 01 02 f8 |N | JSR LeftPad(a : String; b : Long) : String 000207a2 50 4f |PO | ADDQ.L #0x8,A7 000207a4 4e 93 |N | JSR (A3) 000207a6 50 4f |PO | ADDQ.L #0x8,A7 000207a8 28 5f |(_ | MOVEA.L (A7)+,A4 000207aa 43 fa fa 28 |C ( | LEA.L 0x201d4,A1 000207ae 70 04 |p | MOVEQ.L #0x04,D0 000207b0 3f 21 |?! | MOVE.W -(A1),-(A7) 000207b2 51 c8 ff fc |Q | DBF D0,0x207b0 000207b6 59 4f |YO | SUBQ.L #0x4,A7 000207b8 2f 0c |/ | MOVE.L A4,-(A7) 000207ba 59 4f |YO | SUBQ.L #0x4,A7 000207bc 48 6f 00 0c |Ho | PEA.L (A7+0xc) 000207c0 3f 01 |? | MOVE.W D1,-(A7) 000207c2 3f 02 |? | MOVE.W D2,-(A7) 000207c4 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000207ca 50 4f |PO | ADDQ.L #0x8,A7 000207cc 4e 93 |N | JSR (A3) 000207ce 50 4f |PO | ADDQ.L #0x8,A7 000207d0 28 5f |(_ | MOVEA.L (A7)+,A4 000207d2 54 4f |TO | ADDQ.L #0x2,A7 000207d4 2e 8c |. | MOVE.L A4,(A7) 000207d6 51 4f |QO | SUBQ.L #0x8,A7 000207d8 2f 30 48 12 |/0H | MOVE.L (A0+D4.L+#0x12),-(A7) 000207dc 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 000207e2 58 4f |XO | ADDQ.L #0x4,A7 000207e4 48 78 00 05 |Hx | PEA.L 0x5 000207e8 4e b9 00 01 02 f8 |N | JSR LeftPad(a : String; b : Long) : String 000207ee 50 4f |PO | ADDQ.L #0x8,A7 000207f0 4e 93 |N | JSR (A3) 000207f2 50 4f |PO | ADDQ.L #0x8,A7 000207f4 28 5f |(_ | MOVEA.L (A7)+,A4 000207f6 43 fa f9 e6 |C | LEA.L 0x201de,A1 000207fa 70 04 |p | MOVEQ.L #0x04,D0 000207fc 3f 21 |?! | MOVE.W -(A1),-(A7) 000207fe 51 c8 ff fc |Q | DBF D0,0x207fc 00020802 59 4f |YO | SUBQ.L #0x4,A7 00020804 2f 0c |/ | MOVE.L A4,-(A7) 00020806 59 4f |YO | SUBQ.L #0x4,A7 00020808 48 6f 00 0c |Ho | PEA.L (A7+0xc) 0002080c 3f 01 |? | MOVE.W D1,-(A7) 0002080e 3f 02 |? | MOVE.W D2,-(A7) 00020810 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020816 50 4f |PO | ADDQ.L #0x8,A7 00020818 4e 93 |N | JSR (A3) 0002081a 50 4f |PO | ADDQ.L #0x8,A7 0002081c 28 5f |(_ | MOVEA.L (A7)+,A4 0002081e 54 4f |TO | ADDQ.L #0x2,A7 00020820 2e 8c |. | MOVE.L A4,(A7) 00020822 51 4f |QO | SUBQ.L #0x8,A7 00020824 2f 30 48 1a |/0H | MOVE.L (A0+D4.L+#0x1a),-(A7) 00020828 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 0002082e 58 4f |XO | ADDQ.L #0x4,A7 00020830 48 78 00 05 |Hx | PEA.L 0x5 00020834 4e b9 00 01 02 f8 |N | JSR LeftPad(a : String; b : Long) : String 0002083a 50 4f |PO | ADDQ.L #0x8,A7 0002083c 4e 93 |N | JSR (A3) 0002083e 50 4f |PO | ADDQ.L #0x8,A7 00020840 28 5f |(_ | MOVEA.L (A7)+,A4 00020842 2f 0c |/ | MOVE.L A4,-(A7) 00020844 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002084a 58 4f |XO | ADDQ.L #0x4,A7 0002084c 52 87 |R | ADDQ.L #0x1,D7 0002084e be 86 | | CMP.L D6,D7 00020850 6f 00 fe 56 |o V | BLE 0x206a8 00020854 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00020858 4e 5e |N^ | UNLK A6 0002085a 4e 75 |Nu | RTS 0002085c ; -------------------------------------------------------------------------------------- 0002085c ; OMSI PASCAL Function 0002085c ; <LVAR 0x008 1(rw)> 0002085c ; <LVAR -0x002 @ 1(r)> 0002085c ; <LVAR -0x004 @ 2(rw)> 0002085c ; -------------------------------------------------------------------------------------- 0002085c 4e 56 ff e6 |NV | LINK.W A6,#0xffe6 00020860 bf d5 | | CMPA.L (A5),A7 00020862 62 06 |b | BHI 0x2086a 00020864 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020868 4e 76 |Nv | TRAPV 0002086a de fc 00 16 | | ADDA.W #0x16,A7 0002086e 48 e7 c0 80 |H | MOVEM.L A0+D1+D0,-(A7) 00020872 41 ee ff fc |A | LEA.L (A6-0x4),A0 00020876 72 01 |r | MOVEQ.L #0x01,D1 00020878 42 2e 00 08 |B. | CLR.B (A6+0x8) 0002087c 3f 01 |? | MOVE.W D1,-(A7) 0002087e 48 6e ff fe |Hn | PEA.L (A6-0x2) 00020882 4e b9 00 01 02 12 |N | JSR KC09_PortStatus(Port : Word; VAR b: Byte) 00020888 5c 4f |\O | ADDQ.L #0x6,A7 0002088a 10 2e ff fe | . | MOVE.B (A6-0x2),D0 0002088e b0 01 | | CMP.B D1,D0 00020890 66 22 |f" | BNE 0x208b4 00020892 3f 01 |? | MOVE.W D1,-(A7) 00020894 48 50 |HP | PEA.L (A0) 00020896 4e b9 00 01 02 0e |N | JSR KC07_PortGetChar(port : Word ; VAR ret : Word) 0002089c 5c 4f |\O | ADDQ.L #0x6,A7 0002089e 02 50 00 7f | P | ANDI.W #0x007f,(A0) 000208a2 30 10 |0 | MOVE.W (A0),D0 000208a4 0c 40 00 07 | @ | CMPI.W #0x0007,D0 000208a8 66 06 |f | BNE 0x208b0 000208aa 1d 41 00 08 | A | MOVE.B D1,(A6+0x8) 000208ae 60 04 |` | BRA 0x208b4 000208b0 4e ba fd 62 |N b | JSR 0x20614 000208b4 4c df 01 03 |L | MOVEM.L (A7)+,D0+D1+A0 000208b8 4e 5e |N^ | UNLK A6 000208ba 4e 75 |Nu | RTS 000208bc ; -------------------------------------------------------------------------------------- 000208bc ; OMSI PASCAL Function 000208bc ; <LVAR 0x00a 4(r)> 000208bc ; <LVAR 0x008 2(r)> 000208bc ; <LVAR -0x006 @ 4(r)> 000208bc ; -------------------------------------------------------------------------------------- 000208bc 4e 56 ff 96 |NV | LINK.W A6,#0xff96 000208c0 bf d5 | | CMPA.L (A5),A7 000208c2 62 06 |b | BHI 0x208ca 000208c4 44 fc 00 02 |D | MOVE.W #0x2,CCR 000208c8 4e 76 |Nv | TRAPV 000208ca de fc 00 64 | d | ADDA.W #0x64,A7 000208ce 48 e7 f0 e0 |H | MOVEM.L A2+A1+A0+D3+D2+D1+D0,-(A7) 000208d2 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 000208d8 74 01 |t | MOVEQ.L #0x01,D2 000208da 76 12 |v | MOVEQ.L #0x12,D3 000208dc 48 6e ff fa |Hn | PEA.L (A6-0x6) 000208e0 4e b9 00 01 03 04 |N | JSR GetRtc() : TimeStamp 000208e6 58 4f |XO | ADDQ.L #0x4,A7 000208e8 41 fa f9 02 |A | LEA.L 0x201ec,A0 000208ec 70 06 |p | MOVEQ.L #0x06,D0 000208ee 3f 20 |? | MOVE.W -(A0),-(A7) 000208f0 51 c8 ff fc |Q | DBF D0,0x208ee 000208f4 2f 3a f8 f6 |/: | MOVE.L 0x201ec,-(A7) 000208f8 9e c3 | | SUBA.W D3,A7 000208fa 20 4f | O | MOVEA.L A7,A0 000208fc 43 fa f8 f2 |C | LEA.L 0x201f0,A1 00020900 70 10 |p | MOVEQ.L #0x10,D0 00020902 10 d9 | | MOVE.B (A1)+,(A0)+ 00020904 51 c8 ff fc |Q | DBF D0,0x20902 00020908 51 4f |QO | SUBQ.L #0x8,A7 0002090a 48 6f 00 1e |Ho | PEA.L (A7+0x1e) 0002090e 3f 02 |? | MOVE.W D2,-(A7) 00020910 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7) 00020914 4e 92 |N | JSR (A2) 00020916 58 4f |XO | ADDQ.L #0x4,A7 00020918 30 2e 00 08 |0. | MOVE.W (A6+0x8),D0 0002091c 48 c0 |H | EXTW.L D0 0002091e 2f 00 |/ | MOVE.L D0,-(A7) 00020920 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00020926 48 6f 00 22 |Ho " | PEA.L (A7+0x22) 0002092a 3f 02 |? | MOVE.W D2,-(A7) 0002092c 3f 3c 00 04 |?< | MOVE.W #0x4,-(A7) 00020930 4e 92 |N | JSR (A2) 00020932 2e ae ff fa |. | MOVE.L (A6-0x6),(A7) 00020936 4e b9 00 01 03 08 |N | JSR TimeToText() 0002093c 48 6f 00 18 |Ho | PEA.L (A7+0x18) 00020940 3f 02 |? | MOVE.W D2,-(A7) 00020942 3f 3c 00 11 |?< | MOVE.W #0x11,-(A7) 00020946 4e 92 |N | JSR (A2) 00020948 2e b9 00 02 1c f0 |. | MOVE.L 0x21cf0,(A7) 0002094e 4e b9 00 01 03 08 |N | JSR TimeToText() 00020954 58 4f |XO | ADDQ.L #0x4,A7 00020956 4e b9 00 01 02 e0 |N | JSR StringCat6(a, b, c, d, e, f : String) : String 0002095c de fc 00 18 | | ADDA.W #0x18,A7 00020960 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00020966 de fc 00 28 | ( | ADDA.W #0x28,A7 0002096a 30 3c 09 b2 |0< | MOVE.W #0x9b2,D0 0002096e c1 ee 00 08 | | MULS.W (A6+0x8),D0 00020972 41 f9 00 02 1c e8 |A | LEA.L 0x21ce8,A0 00020978 43 fa f8 9a |C | LEA.L 0x20214,A1 0002097c 72 08 |r | MOVEQ.L #0x08,D1 0002097e 3f 21 |?! | MOVE.W -(A1),-(A7) 00020980 51 c9 ff fc |Q | DBF D1,0x2097e 00020984 59 4f |YO | SUBQ.L #0x4,A7 00020986 2f 2e 00 0a |/. | MOVE.L (A6+0xa),-(A7) 0002098a 59 4f |YO | SUBQ.L #0x4,A7 0002098c 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00020990 3f 02 |? | MOVE.W D2,-(A7) 00020992 3f 03 |? | MOVE.W D3,-(A7) 00020994 4e 92 |N | JSR (A2) 00020996 2e b0 00 26 |. & | MOVE.L (A0+D0.W+#0x26),(A7) 0002099a 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 000209a0 58 4f |XO | ADDQ.L #0x4,A7 000209a2 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 000209a8 de fc 00 0c | | ADDA.W #0xc,A7 000209ac 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000209b2 de fc 00 16 | | ADDA.W #0x16,A7 000209b6 4c df 07 0f |L | MOVEM.L (A7)+,D0+D1+D2+D3+A0+A1+A2 000209ba 4e 5e |N^ | UNLK A6 000209bc 4e 75 |Nu | RTS 000209be ; -------------------------------------------------------------------------------------- 000209be ; OMSI PASCAL Function 000209be ; <LVAR 0x008 2(r)> 000209be ; -------------------------------------------------------------------------------------- 000209be 4e 56 ff de |NV | LINK.W A6,#0xffde 000209c2 bf d5 | | CMPA.L (A5),A7 000209c4 62 06 |b | BHI 0x209cc 000209c6 44 fc 00 02 |D | MOVE.W #0x2,CCR 000209ca 4e 76 |Nv | TRAPV 000209cc de fc 00 1c | | ADDA.W #0x1c,A7 000209d0 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 000209d4 2f 3a f8 3e |/: > | MOVE.L 0x20214,-(A7) 000209d8 59 4f |YO | SUBQ.L #0x4,A7 000209da 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000209de 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000209e2 3f 3c 00 04 |?< | MOVE.W #0x4,-(A7) 000209e6 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000209ec 5c 4f |\O | ADDQ.L #0x6,A7 000209ee 3e ae 00 08 |> | MOVE.W (A6+0x8),(A7) 000209f2 4e ba fe c8 |N | JSR 0x208bc 000209f6 de fc 00 0a | | ADDA.W #0xa,A7 000209fa 30 3c 09 b2 |0< | MOVE.W #0x9b2,D0 000209fe c1 ee 00 08 | | MULS.W (A6+0x8),D0 00020a02 41 f9 00 02 1c e8 |A | LEA.L 0x21ce8,A0 00020a08 52 b0 00 12 |R | ADDQ.L #0x1,(A0+D0.W+#0x12) 00020a0c 42 b0 00 26 |B & | CLR.L (A0+D0.W+#0x26) 00020a10 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 00020a14 4e 5e |N^ | UNLK A6 00020a16 4e 75 |Nu | RTS 00020a18 ; -------------------------------------------------------------------------------------- 00020a18 ; OMSI PASCAL Function 00020a18 ; <LVAR 0x008 2(r)> 00020a18 ; -------------------------------------------------------------------------------------- 00020a18 4e 56 ff de |NV | LINK.W A6,#0xffde 00020a1c bf d5 | | CMPA.L (A5),A7 00020a1e 62 06 |b | BHI 0x20a26 00020a20 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020a24 4e 76 |Nv | TRAPV 00020a26 de fc 00 20 | | ADDA.W #0x20,A7 00020a2a 48 e7 c0 80 |H | MOVEM.L A0+D1+D0,-(A7) 00020a2e 2f 3a f7 e8 |/: | MOVE.L 0x20218,-(A7) 00020a32 59 4f |YO | SUBQ.L #0x4,A7 00020a34 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020a38 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00020a3c 3f 3c 00 04 |?< | MOVE.W #0x4,-(A7) 00020a40 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020a46 5c 4f |\O | ADDQ.L #0x6,A7 00020a48 3e ae 00 08 |> | MOVE.W (A6+0x8),(A7) 00020a4c 4e ba fe 6e |N n | JSR 0x208bc 00020a50 de fc 00 0a | | ADDA.W #0xa,A7 00020a54 30 3c 09 b2 |0< | MOVE.W #0x9b2,D0 00020a58 c1 ee 00 08 | | MULS.W (A6+0x8),D0 00020a5c 41 f9 00 02 1c e8 |A | LEA.L 0x21ce8,A0 00020a62 22 30 00 16 |"0 | MOVE.L (A0+D0.W+#0x16),D1 00020a66 d2 b0 00 26 | & | ADD.L (A0+D0.W+#0x26),D1 00020a6a 21 81 00 16 |! | MOVE.L D1,(A0+D0.W+#0x16) 00020a6e 42 b0 00 26 |B & | CLR.L (A0+D0.W+#0x26) 00020a72 4c df 01 03 |L | MOVEM.L (A7)+,D0+D1+A0 00020a76 4e 5e |N^ | UNLK A6 00020a78 4e 75 |Nu | RTS 00020a7a ; -------------------------------------------------------------------------------------- 00020a7a ; OMSI PASCAL Function 00020a7a ; <LVAR 0x008 2(r)> 00020a7a ; -------------------------------------------------------------------------------------- 00020a7a 4e 56 ff e2 |NV | LINK.W A6,#0xffe2 00020a7e bf d5 | | CMPA.L (A5),A7 00020a80 62 06 |b | BHI 0x20a88 00020a82 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020a86 4e 76 |Nv | TRAPV 00020a88 de fc 00 1c | | ADDA.W #0x1c,A7 00020a8c 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 00020a90 2f 3a f7 8a |/: | MOVE.L 0x2021c,-(A7) 00020a94 59 4f |YO | SUBQ.L #0x4,A7 00020a96 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020a9a 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00020a9e 3f 3c 00 04 |?< | MOVE.W #0x4,-(A7) 00020aa2 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020aa8 5c 4f |\O | ADDQ.L #0x6,A7 00020aaa 3e ae 00 08 |> | MOVE.W (A6+0x8),(A7) 00020aae 4e ba fe 0c |N | JSR 0x208bc 00020ab2 de fc 00 0a | | ADDA.W #0xa,A7 00020ab6 30 3c 09 b2 |0< | MOVE.W #0x9b2,D0 00020aba c1 ee 00 08 | | MULS.W (A6+0x8),D0 00020abe 41 f9 00 02 1c e8 |A | LEA.L 0x21ce8,A0 00020ac4 52 b0 00 1a |R | ADDQ.L #0x1,(A0+D0.W+#0x1a) 00020ac8 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 00020acc 4e 5e |N^ | UNLK A6 00020ace 4e 75 |Nu | RTS 00020ad0 ; -------------------------------------------------------------------------------------- 00020ad0 ; OMSI PASCAL Function 00020ad0 ; <LVAR 0x00c 2(r)> 00020ad0 ; <LVAR 0x008 4(r)> 00020ad0 ; <LVAR -0x002 @> 00020ad0 ; <LVAR -0x004 2(r)> 00020ad0 ; <LVAR -0x006 2(r)> 00020ad0 ; <LVAR -0x008 2(w)> 00020ad0 ; <LVAR -0x00a 2(r)> 00020ad0 ; <LVAR -0x00c 2(r)> 00020ad0 ; <LVAR -0x00e 2(w)> 00020ad0 ; <LVAR -0x010 2(r)> 00020ad0 ; <LVAR -0x012 @ 2(r)> 00020ad0 ; -------------------------------------------------------------------------------------- 00020ad0 4e 56 ff d4 |NV | LINK.W A6,#0xffd4 00020ad4 bf d5 | | CMPA.L (A5),A7 00020ad6 62 06 |b | BHI 0x20ade 00020ad8 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020adc 4e 76 |Nv | TRAPV 00020ade de fc 00 1a | | ADDA.W #0x1a,A7 00020ae2 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7) 00020ae6 43 ee 00 0c |C | LEA.L (A6+0xc),A1 00020aea 42 6e ff ee |Bn | CLR.W (A6-0x12) 00020aee 42 6e ff f0 |Bn | CLR.W (A6-0x10) 00020af2 3d 7c 00 03 ff f2 |=| | MOVE.W #0x3,(A6-0xe) 00020af8 42 6e ff f4 |Bn | CLR.W (A6-0xc) 00020afc 42 6e ff f6 |Bn | CLR.W (A6-0xa) 00020b00 30 11 |0 | MOVE.W (A1),D0 00020b02 e1 40 | @ | ASL.W #0x8,D0 00020b04 52 40 |R@ | ADDQ.W #0x1,D0 00020b06 3d 40 ff f8 |=@ | MOVE.W D0,(A6-0x8) 00020b0a 42 6e ff fa |Bn | CLR.W (A6-0x6) 00020b0e 42 6e ff fc |Bn | CLR.W (A6-0x4) 00020b12 48 6e ff ee |Hn | PEA.L (A6-0x12) 00020b16 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00020b1a 2f 08 |/ | MOVE.L A0,-(A7) 00020b1c 3f 11 |? | MOVE.W (A1),-(A7) 00020b1e 4e b9 00 01 02 04 |N | JSR KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W) 00020b24 50 4f |PO | ADDQ.L #0x8,A7 00020b26 3e 91 |> | MOVE.W (A1),(A7) 00020b28 48 6e ff fe |Hn | PEA.L (A6-0x2) 00020b2c 4e b9 00 01 02 06 |N | JSR KC03_Wait_Disk_IO(a : W; VAR status : Byte) 00020b32 5c 4f |\O | ADDQ.L #0x6,A7 00020b34 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1 00020b38 4e 5e |N^ | UNLK A6 00020b3a 4e 75 |Nu | RTS 00020b3c ; -------------------------------------------------------------------------------------- 00020b3c ; OMSI PASCAL Function 00020b3c ; <LVAR 0x008 2(r)> 00020b3c ; -------------------------------------------------------------------------------------- 00020b3c 4e 56 ff e6 |NV | LINK.W A6,#0xffe6 00020b40 bf d5 | | CMPA.L (A5),A7 00020b42 62 06 |b | BHI 0x20b4a 00020b44 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020b48 4e 76 |Nv | TRAPV 00020b4a de fc 00 18 | | ADDA.W #0x18,A7 00020b4e 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 00020b52 30 3c 09 b2 |0< | MOVE.W #0x9b2,D0 00020b56 c1 ee 00 08 | | MULS.W (A6+0x8),D0 00020b5a 41 f9 00 02 1c e8 |A | LEA.L 0x21ce8,A0 00020b60 41 f0 00 0c |A | LEA.L (A0+D0.W+#0xc),A0 00020b64 11 7c 00 0a 09 ac | | | MOVE.B #0x0a,(A0+0x9ac) 00020b6a 3f 2e 00 08 |?. | MOVE.W (A6+0x8),-(A7) 00020b6e 4e ba f9 06 |N | JSR 0x20476 00020b72 54 4f |TO | ADDQ.L #0x2,A7 00020b74 42 28 00 02 |B( | CLR.B (A0+0x2) 00020b78 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 00020b7c 4e 5e |N^ | UNLK A6 00020b7e 4e 75 |Nu | RTS 00020b80 ; -------------------------------------------------------------------------------------- 00020b80 ; OMSI PASCAL Function 00020b80 ; <LVAR 0x010 2(r)> 00020b80 ; <LVAR 0x00c 4(r)> 00020b80 ; <LVAR 0x008 4(r)> 00020b80 ; -------------------------------------------------------------------------------------- 00020b80 4e 56 ff c0 |NV | LINK.W A6,#0xffc0 00020b84 bf d5 | | CMPA.L (A5),A7 00020b86 62 06 |b | BHI 0x20b8e 00020b88 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020b8c 4e 76 |Nv | TRAPV 00020b8e de fc 00 3e | > | ADDA.W #0x3e,A7 00020b92 48 e7 c0 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D1+D0,-(A7) 00020b96 45 ee 00 10 |E | LEA.L (A6+0x10),A2 00020b9a 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 00020ba0 49 fa fd 1a |I | LEA.L 0x208bc,A4 00020ba4 72 01 |r | MOVEQ.L #0x01,D1 00020ba6 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 00020baa 30 10 |0 | MOVE.W (A0),D0 00020bac 02 40 00 40 | @ @ | ANDI.W #0x0040,D0 00020bb0 67 3c |g< | BEQ 0x20bee 00020bb2 9e fc 00 0c | | SUBA.W #0xc,A7 00020bb6 20 4f | O | MOVEA.L A7,A0 00020bb8 43 fa f6 66 |C f | LEA.L 0x20220,A1 00020bbc 70 0a |p | MOVEQ.L #0x0a,D0 00020bbe 10 d9 | | MOVE.B (A1)+,(A0)+ 00020bc0 51 c8 ff fc |Q | DBF D0,0x20bbe 00020bc4 59 4f |YO | SUBQ.L #0x4,A7 00020bc6 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020bca 3f 01 |? | MOVE.W D1,-(A7) 00020bcc 3f 3c 00 0b |?< | MOVE.W #0xb,-(A7) 00020bd0 4e 93 |N | JSR (A3) 00020bd2 5c 4f |\O | ADDQ.L #0x6,A7 00020bd4 3e 92 |> | MOVE.W (A2),(A7) 00020bd6 4e 94 |N | JSR (A4) 00020bd8 de fc 00 12 | | ADDA.W #0x12,A7 00020bdc 30 3c 09 b2 |0< | MOVE.W #0x9b2,D0 00020be0 c1 d2 | | MULS.W (A2),D0 00020be2 41 f9 00 02 1c e8 |A | LEA.L 0x21ce8,A0 00020be8 42 30 00 0c |B0 | CLR.B (A0+D0.W+#0xc) 00020bec 60 6c |`l | BRA 0x20c5a 00020bee 30 28 00 0e |0( | MOVE.W (A0+0xe),D0 00020bf2 02 40 00 08 | @ | ANDI.W #0x0008,D0 00020bf6 67 34 |g4 | BEQ 0x20c2c 00020bf8 9e fc 00 0e | | SUBA.W #0xe,A7 00020bfc 20 4f | O | MOVEA.L A7,A0 00020bfe 43 fa f6 2c |C , | LEA.L 0x2022c,A1 00020c02 70 0c |p | MOVEQ.L #0x0c,D0 00020c04 10 d9 | | MOVE.B (A1)+,(A0)+ 00020c06 51 c8 ff fc |Q | DBF D0,0x20c04 00020c0a 59 4f |YO | SUBQ.L #0x4,A7 00020c0c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020c10 3f 01 |? | MOVE.W D1,-(A7) 00020c12 3f 3c 00 0d |?< | MOVE.W #0xd,-(A7) 00020c16 4e 93 |N | JSR (A3) 00020c18 5c 4f |\O | ADDQ.L #0x6,A7 00020c1a 3e 92 |> | MOVE.W (A2),(A7) 00020c1c 4e 94 |N | JSR (A4) 00020c1e de fc 00 14 | | ADDA.W #0x14,A7 00020c22 3f 12 |? | MOVE.W (A2),-(A7) 00020c24 4e ba ff 16 |N | JSR 0x20b3c 00020c28 54 4f |TO | ADDQ.L #0x2,A7 00020c2a 60 2e |`. | BRA 0x20c5a 00020c2c 30 28 00 0a |0( | MOVE.W (A0+0xa),D0 00020c30 02 40 00 20 | @ | ANDI.W #0x0020,D0 00020c34 67 1e |g | BEQ 0x20c54 00020c36 2f 3a f6 02 |/: | MOVE.L 0x2023a,-(A7) 00020c3a 59 4f |YO | SUBQ.L #0x4,A7 00020c3c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020c40 3f 01 |? | MOVE.W D1,-(A7) 00020c42 3f 3c 00 04 |?< | MOVE.W #0x4,-(A7) 00020c46 4e 93 |N | JSR (A3) 00020c48 5c 4f |\O | ADDQ.L #0x6,A7 00020c4a 3e 92 |> | MOVE.W (A2),(A7) 00020c4c 4e 94 |N | JSR (A4) 00020c4e de fc 00 0a | | ADDA.W #0xa,A7 00020c52 60 ce |` | BRA 0x20c22 00020c54 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00020c58 10 81 | | MOVE.B D1,(A0) 00020c5a 4c df 1f 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2+A3+A4 00020c5e 4e 5e |N^ | UNLK A6 00020c60 4e 75 |Nu | RTS 00020c62 ; -------------------------------------------------------------------------------------- 00020c62 ; OMSI PASCAL Function 00020c62 ; <LVAR 0x010 2(r)> 00020c62 ; -------------------------------------------------------------------------------------- 00020c62 4e 56 ff ea |NV | LINK.W A6,#0xffea 00020c66 bf d5 | | CMPA.L (A5),A7 00020c68 62 06 |b | BHI 0x20c70 00020c6a 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020c6e 4e 76 |Nv | TRAPV 00020c70 de fc 00 14 | | ADDA.W #0x14,A7 00020c74 2f 3a f5 c8 |/: | MOVE.L 0x2023e,-(A7) 00020c78 59 4f |YO | SUBQ.L #0x4,A7 00020c7a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020c7e 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00020c82 3f 3c 00 04 |?< | MOVE.W #0x4,-(A7) 00020c86 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020c8c 5c 4f |\O | ADDQ.L #0x6,A7 00020c8e 3e ae 00 10 |> | MOVE.W (A6+0x10),(A7) 00020c92 4e ba fc 28 |N ( | JSR 0x208bc 00020c96 50 4f |PO | ADDQ.L #0x8,A7 00020c98 3e ae 00 10 |> | MOVE.W (A6+0x10),(A7) 00020c9c 4e ba fe 9e |N | JSR 0x20b3c 00020ca0 54 4f |TO | ADDQ.L #0x2,A7 00020ca2 4e 5e |N^ | UNLK A6 00020ca4 4e 75 |Nu | RTS 00020ca6 ; -------------------------------------------------------------------------------------- 00020ca6 ; OMSI PASCAL Function 00020ca6 ; <LVAR 0x010 2(r)> 00020ca6 ; <LVAR 0x00c 4(r)> 00020ca6 ; <LVAR 0x008 4(r)> 00020ca6 ; -------------------------------------------------------------------------------------- 00020ca6 4e 56 ff a2 |NV | LINK.W A6,#0xffa2 00020caa bf d5 | | CMPA.L (A5),A7 00020cac 62 06 |b | BHI 0x20cb4 00020cae 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020cb2 4e 76 |Nv | TRAPV 00020cb4 de fc 00 5c | \ | ADDA.W #0x5c,A7 00020cb8 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00020cbc 45 ee 00 10 |E | LEA.L (A6+0x10),A2 00020cc0 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 00020cc6 49 fa fb f4 |I | LEA.L 0x208bc,A4 00020cca 74 01 |t | MOVEQ.L #0x01,D2 00020ccc 76 04 |v | MOVEQ.L #0x04,D3 00020cce 38 3c 20 03 |8< | MOVE.W #0x2003,D4 00020cd2 7a 0a |z | MOVEQ.L #0x0a,D5 00020cd4 3c 3c 09 b2 |<< | MOVE.W #0x9b2,D6 00020cd8 7e 0c |~ | MOVEQ.L #0x0c,D7 00020cda 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 00020cde 30 28 00 08 |0( | MOVE.W (A0+0x8),D0 00020ce2 02 40 10 00 | @ | ANDI.W #0x1000,D0 00020ce6 67 60 |g` | BEQ 0x20d48 00020ce8 30 06 |0 | MOVE.W D6,D0 00020cea c1 d2 | | MULS.W (A2),D0 00020cec 41 f9 00 02 1c e8 |A | LEA.L 0x21ce8,A0 00020cf2 10 30 00 0e | 0 | MOVE.B (A0+D0.W+#0xe),D0 00020cf6 b0 04 | | CMP.B D4,D0 00020cf8 66 2a |f* | BNE 0x20d24 00020cfa 9e c7 | | SUBA.W D7,A7 00020cfc 20 4f | O | MOVEA.L A7,A0 00020cfe 43 fa f5 42 |C B | LEA.L 0x20242,A1 00020d02 70 0a |p | MOVEQ.L #0x0a,D0 00020d04 10 d9 | | MOVE.B (A1)+,(A0)+ 00020d06 51 c8 ff fc |Q | DBF D0,0x20d04 00020d0a 59 4f |YO | SUBQ.L #0x4,A7 00020d0c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020d10 3f 02 |? | MOVE.W D2,-(A7) 00020d12 3f 3c 00 0b |?< | MOVE.W #0xb,-(A7) 00020d16 4e 93 |N | JSR (A3) 00020d18 5c 4f |\O | ADDQ.L #0x6,A7 00020d1a 3e 92 |> | MOVE.W (A2),(A7) 00020d1c 4e 94 |N | JSR (A4) 00020d1e de fc 00 12 | | ADDA.W #0x12,A7 00020d22 60 18 |` | BRA 0x20d3c 00020d24 2f 3a f5 28 |/: ( | MOVE.L 0x2024e,-(A7) 00020d28 59 4f |YO | SUBQ.L #0x4,A7 00020d2a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020d2e 3f 02 |? | MOVE.W D2,-(A7) 00020d30 3f 03 |? | MOVE.W D3,-(A7) 00020d32 4e 93 |N | JSR (A3) 00020d34 5c 4f |\O | ADDQ.L #0x6,A7 00020d36 3e 92 |> | MOVE.W (A2),(A7) 00020d38 4e 94 |N | JSR (A4) 00020d3a de c5 | | ADDA.W D5,A7 00020d3c 3f 12 |? | MOVE.W (A2),-(A7) 00020d3e 4e ba fd fc |N | JSR 0x20b3c 00020d42 54 4f |TO | ADDQ.L #0x2,A7 00020d44 60 00 00 f2 |` | BRA 0x20e38 00020d48 30 28 00 08 |0( | MOVE.W (A0+0x8),D0 00020d4c 02 40 40 00 | @@ | ANDI.W #0x4000,D0 00020d50 67 66 |gf | BEQ 0x20db8 00020d52 30 06 |0 | MOVE.W D6,D0 00020d54 c1 d2 | | MULS.W (A2),D0 00020d56 41 f9 00 02 1c e8 |A | LEA.L 0x21ce8,A0 00020d5c 12 30 00 0e | 0 | MOVE.B (A0+D0.W+#0xe),D1 00020d60 b2 03 | | CMP.B D3,D1 00020d62 66 08 |f | BNE 0x20d6c 00020d64 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00020d68 10 82 | | MOVE.B D2,(A0) 00020d6a 60 48 |`H | BRA 0x20db4 00020d6c b2 04 | | CMP.B D4,D1 00020d6e 66 24 |f$ | BNE 0x20d94 00020d70 2f 3a f4 e8 |/: | MOVE.L 0x2025a,-(A7) 00020d74 2f 3a f4 e0 |/: | MOVE.L 0x20256,-(A7) 00020d78 2f 3a f4 d8 |/: | MOVE.L 0x20252,-(A7) 00020d7c 59 4f |YO | SUBQ.L #0x4,A7 00020d7e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020d82 3f 02 |? | MOVE.W D2,-(A7) 00020d84 3f 07 |? | MOVE.W D7,-(A7) 00020d86 4e 93 |N | JSR (A3) 00020d88 5c 4f |\O | ADDQ.L #0x6,A7 00020d8a 3e 92 |> | MOVE.W (A2),(A7) 00020d8c 4e 94 |N | JSR (A4) 00020d8e de fc 00 12 | | ADDA.W #0x12,A7 00020d92 60 18 |` | BRA 0x20dac 00020d94 2f 3a f4 c8 |/: | MOVE.L 0x2025e,-(A7) 00020d98 59 4f |YO | SUBQ.L #0x4,A7 00020d9a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020d9e 3f 02 |? | MOVE.W D2,-(A7) 00020da0 3f 03 |? | MOVE.W D3,-(A7) 00020da2 4e 93 |N | JSR (A3) 00020da4 5c 4f |\O | ADDQ.L #0x6,A7 00020da6 3e 92 |> | MOVE.W (A2),(A7) 00020da8 4e 94 |N | JSR (A4) 00020daa de c5 | | ADDA.W D5,A7 00020dac 3f 12 |? | MOVE.W (A2),-(A7) 00020dae 4e ba fd 8c |N | JSR 0x20b3c 00020db2 54 4f |TO | ADDQ.L #0x2,A7 00020db4 60 00 00 82 |` | BRA 0x20e38 00020db8 30 06 |0 | MOVE.W D6,D0 00020dba c1 d2 | | MULS.W (A2),D0 00020dbc 32 28 00 08 |2( | MOVE.W (A0+0x8),D1 00020dc0 02 41 80 00 | A | ANDI.W #0x8000,D1 00020dc4 67 3a |g: | BEQ 0x20e00 00020dc6 43 f9 00 02 1c e8 |C | LEA.L 0x21ce8,A1 00020dcc 10 31 00 0e | 1 | MOVE.B (A1+D0.W+#0xe),D0 00020dd0 b0 04 | | CMP.B D4,D0 00020dd2 66 2c |f, | BNE 0x20e00 00020dd4 9e fc 00 10 | | SUBA.W #0x10,A7 00020dd8 20 4f | O | MOVEA.L A7,A0 00020dda 43 fa f4 86 |C | LEA.L 0x20262,A1 00020dde 70 0e |p | MOVEQ.L #0x0e,D0 00020de0 10 d9 | | MOVE.B (A1)+,(A0)+ 00020de2 51 c8 ff fc |Q | DBF D0,0x20de0 00020de6 59 4f |YO | SUBQ.L #0x4,A7 00020de8 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020dec 3f 02 |? | MOVE.W D2,-(A7) 00020dee 3f 3c 00 0f |?< | MOVE.W #0xf,-(A7) 00020df2 4e 93 |N | JSR (A3) 00020df4 5c 4f |\O | ADDQ.L #0x6,A7 00020df6 3e 92 |> | MOVE.W (A2),(A7) 00020df8 4e 94 |N | JSR (A4) 00020dfa de fc 00 16 | | ADDA.W #0x16,A7 00020dfe 60 30 |`0 | BRA 0x20e30 00020e00 30 28 00 08 |0( | MOVE.W (A0+0x8),D0 00020e04 c0 44 | D | AND.W D4,D0 00020e06 66 08 |f | BNE 0x20e10 00020e08 30 28 00 0e |0( | MOVE.W (A0+0xe),D0 00020e0c c0 42 | B | AND.W D2,D0 00020e0e 67 08 |g | BEQ 0x20e18 00020e10 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00020e14 10 82 | | MOVE.B D2,(A0) 00020e16 60 20 |` | BRA 0x20e38 00020e18 2f 3a f4 58 |/: X | MOVE.L 0x20272,-(A7) 00020e1c 59 4f |YO | SUBQ.L #0x4,A7 00020e1e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020e22 3f 02 |? | MOVE.W D2,-(A7) 00020e24 3f 03 |? | MOVE.W D3,-(A7) 00020e26 4e 93 |N | JSR (A3) 00020e28 5c 4f |\O | ADDQ.L #0x6,A7 00020e2a 3e 92 |> | MOVE.W (A2),(A7) 00020e2c 4e 94 |N | JSR (A4) 00020e2e de c5 | | ADDA.W D5,A7 00020e30 3f 12 |? | MOVE.W (A2),-(A7) 00020e32 4e ba fd 08 |N | JSR 0x20b3c 00020e36 54 4f |TO | ADDQ.L #0x2,A7 00020e38 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00020e3c 4e 5e |N^ | UNLK A6 00020e3e 4e 75 |Nu | RTS 00020e40 ; -------------------------------------------------------------------------------------- 00020e40 ; OMSI PASCAL Function 00020e40 ; <LVAR 0x010 2(r)> 00020e40 ; <LVAR 0x00c 4(r)> 00020e40 ; <LVAR 0x008 4(r)> 00020e40 ; -------------------------------------------------------------------------------------- 00020e40 4e 56 ff c4 |NV | LINK.W A6,#0xffc4 00020e44 bf d5 | | CMPA.L (A5),A7 00020e46 62 06 |b | BHI 0x20e4e 00020e48 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020e4c 4e 76 |Nv | TRAPV 00020e4e de fc 00 3a | : | ADDA.W #0x3a,A7 00020e52 48 e7 c0 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D1+D0,-(A7) 00020e56 45 ee 00 10 |E | LEA.L (A6+0x10),A2 00020e5a 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 00020e60 49 fa fa 5a |I Z | LEA.L 0x208bc,A4 00020e64 72 01 |r | MOVEQ.L #0x01,D1 00020e66 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 00020e6a 30 10 |0 | MOVE.W (A0),D0 00020e6c 02 40 00 40 | @ @ | ANDI.W #0x0040,D0 00020e70 67 3a |g: | BEQ 0x20eac 00020e72 51 4f |QO | SUBQ.L #0x8,A7 00020e74 20 4f | O | MOVEA.L A7,A0 00020e76 43 fa f3 fe |C | LEA.L 0x20276,A1 00020e7a 70 06 |p | MOVEQ.L #0x06,D0 00020e7c 10 d9 | | MOVE.B (A1)+,(A0)+ 00020e7e 51 c8 ff fc |Q | DBF D0,0x20e7c 00020e82 59 4f |YO | SUBQ.L #0x4,A7 00020e84 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020e88 3f 01 |? | MOVE.W D1,-(A7) 00020e8a 3f 3c 00 07 |?< | MOVE.W #0x7,-(A7) 00020e8e 4e 93 |N | JSR (A3) 00020e90 5c 4f |\O | ADDQ.L #0x6,A7 00020e92 3e 92 |> | MOVE.W (A2),(A7) 00020e94 4e 94 |N | JSR (A4) 00020e96 de fc 00 0e | | ADDA.W #0xe,A7 00020e9a 30 3c 09 b2 |0< | MOVE.W #0x9b2,D0 00020e9e c1 d2 | | MULS.W (A2),D0 00020ea0 41 f9 00 02 1c e8 |A | LEA.L 0x21ce8,A0 00020ea6 42 30 00 0c |B0 | CLR.B (A0+D0.W+#0xc) 00020eaa 60 64 |`d | BRA 0x20f10 00020eac 30 28 00 08 |0( | MOVE.W (A0+0x8),D0 00020eb0 02 40 08 00 | @ | ANDI.W #0x0800,D0 00020eb4 67 26 |g& | BEQ 0x20edc 00020eb6 41 fa f3 d0 |A | LEA.L 0x20288,A0 00020eba 70 04 |p | MOVEQ.L #0x04,D0 00020ebc 3f 20 |? | MOVE.W -(A0),-(A7) 00020ebe 51 c8 ff fc |Q | DBF D0,0x20ebc 00020ec2 59 4f |YO | SUBQ.L #0x4,A7 00020ec4 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020ec8 3f 01 |? | MOVE.W D1,-(A7) 00020eca 3f 3c 00 0a |?< | MOVE.W #0xa,-(A7) 00020ece 4e 93 |N | JSR (A3) 00020ed0 5c 4f |\O | ADDQ.L #0x6,A7 00020ed2 3e 92 |> | MOVE.W (A2),(A7) 00020ed4 4e 94 |N | JSR (A4) 00020ed6 de fc 00 10 | | ADDA.W #0x10,A7 00020eda 60 be |` | BRA 0x20e9a 00020edc 30 28 00 08 |0( | MOVE.W (A0+0x8),D0 00020ee0 02 40 00 02 | @ | ANDI.W #0x0002,D0 00020ee4 67 08 |g | BEQ 0x20eee 00020ee6 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00020eea 10 81 | | MOVE.B D1,(A0) 00020eec 60 22 |`" | BRA 0x20f10 00020eee 2f 3a f3 98 |/: | MOVE.L 0x20288,-(A7) 00020ef2 59 4f |YO | SUBQ.L #0x4,A7 00020ef4 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020ef8 3f 01 |? | MOVE.W D1,-(A7) 00020efa 3f 3c 00 04 |?< | MOVE.W #0x4,-(A7) 00020efe 4e 93 |N | JSR (A3) 00020f00 5c 4f |\O | ADDQ.L #0x6,A7 00020f02 3e 92 |> | MOVE.W (A2),(A7) 00020f04 4e 94 |N | JSR (A4) 00020f06 50 4f |PO | ADDQ.L #0x8,A7 00020f08 3e 92 |> | MOVE.W (A2),(A7) 00020f0a 4e ba fc 30 |N 0 | JSR 0x20b3c 00020f0e 54 4f |TO | ADDQ.L #0x2,A7 00020f10 4c df 1f 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2+A3+A4 00020f14 4e 5e |N^ | UNLK A6 00020f16 4e 75 |Nu | RTS 00020f18 ; -------------------------------------------------------------------------------------- 00020f18 ; OMSI PASCAL Function 00020f18 ; <LVAR 0x010 2(r)> 00020f18 ; <LVAR 0x00c 4(r)> 00020f18 ; -------------------------------------------------------------------------------------- 00020f18 4e 56 ff c2 |NV | LINK.W A6,#0xffc2 00020f1c bf d5 | | CMPA.L (A5),A7 00020f1e 62 06 |b | BHI 0x20f26 00020f20 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020f24 4e 76 |Nv | TRAPV 00020f26 de fc 00 3c | < | ADDA.W #0x3c,A7 00020f2a 48 e7 f8 e0 |H | MOVEM.L A2+A1+A0+D4+D3+D2+D1+D0,-(A7) 00020f2e 45 ee 00 10 |E | LEA.L (A6+0x10),A2 00020f32 76 03 |v | MOVEQ.L #0x03,D3 00020f34 78 02 |x | MOVEQ.L #0x02,D4 00020f36 30 3c 09 b2 |0< | MOVE.W #0x9b2,D0 00020f3a c1 d2 | | MULS.W (A2),D0 00020f3c 41 f9 00 02 1c e8 |A | LEA.L 0x21ce8,A0 00020f42 12 30 00 0e | 0 | MOVE.B (A0+D0.W+#0xe),D1 00020f46 b2 03 | | CMP.B D3,D1 00020f48 67 04 |g | BEQ 0x20f4e 00020f4a b2 04 | | CMP.B D4,D1 00020f4c 66 4c |fL | BNE 0x20f9a 00020f4e 24 30 00 26 |$0 & | MOVE.L (A0+D0.W+#0x26),D2 00020f52 0c 82 00 00 00 0a | | CMPI.L #0x0000000a,D2 00020f58 6f 10 |o | BLE 0x20f6a 00020f5a 3f 12 |? | MOVE.W (A2),-(A7) 00020f5c 4e ba fa 60 |N ` | JSR 0x209be 00020f60 3e 92 |> | MOVE.W (A2),(A7) 00020f62 4e ba fb d8 |N | JSR 0x20b3c 00020f66 54 4f |TO | ADDQ.L #0x2,A7 00020f68 60 2e |`. | BRA 0x20f98 00020f6a 22 6e 00 0c |"n | MOVEA.L (A6+0xc),A1 00020f6e 34 11 |4 | MOVE.W (A1),D2 00020f70 c4 44 | D | AND.W D4,D2 00020f72 66 18 |f | BNE 0x20f8c 00020f74 b2 03 | | CMP.B D3,D1 00020f76 66 0a |f | BNE 0x20f82 00020f78 43 f0 00 0c |C | LEA.L (A0+D0.W+#0xc),A1 00020f7c 13 43 09 ac | C | MOVE.B D3,(A1+0x9ac) 00020f80 60 0a |` | BRA 0x20f8c 00020f82 43 f0 00 0c |C | LEA.L (A0+D0.W+#0xc),A1 00020f86 13 7c 00 05 09 ac | | | MOVE.B #0x05,(A1+0x9ac) 00020f8c 3f 12 |? | MOVE.W (A2),-(A7) 00020f8e 4e ba f4 e6 |N | JSR 0x20476 00020f92 54 4f |TO | ADDQ.L #0x2,A7 00020f94 52 b0 00 26 |R & | ADDQ.L #0x1,(A0+D0.W+#0x26) 00020f98 60 2a |`* | BRA 0x20fc4 00020f9a 2f 3a f2 f0 |/: | MOVE.L 0x2028c,-(A7) 00020f9e 59 4f |YO | SUBQ.L #0x4,A7 00020fa0 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020fa4 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00020fa8 3f 3c 00 04 |?< | MOVE.W #0x4,-(A7) 00020fac 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020fb2 5c 4f |\O | ADDQ.L #0x6,A7 00020fb4 3e 92 |> | MOVE.W (A2),(A7) 00020fb6 4e ba f9 04 |N | JSR 0x208bc 00020fba 50 4f |PO | ADDQ.L #0x8,A7 00020fbc 3e 92 |> | MOVE.W (A2),(A7) 00020fbe 4e ba fb 7c |N | | JSR 0x20b3c 00020fc2 54 4f |TO | ADDQ.L #0x2,A7 00020fc4 4c df 07 1f |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+A0+A1+A2 00020fc8 4e 5e |N^ | UNLK A6 00020fca 4e 75 |Nu | RTS 00020fcc ; -------------------------------------------------------------------------------------- 00020fcc ; OMSI PASCAL Function 00020fcc ; <LVAR 0x010 2(r)> 00020fcc ; -------------------------------------------------------------------------------------- 00020fcc 4e 56 ff ea |NV | LINK.W A6,#0xffea 00020fd0 bf d5 | | CMPA.L (A5),A7 00020fd2 62 06 |b | BHI 0x20fda 00020fd4 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020fd8 4e 76 |Nv | TRAPV 00020fda de fc 00 14 | | ADDA.W #0x14,A7 00020fde 2f 3a f2 b0 |/: | MOVE.L 0x20290,-(A7) 00020fe2 59 4f |YO | SUBQ.L #0x4,A7 00020fe4 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020fe8 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00020fec 3f 3c 00 04 |?< | MOVE.W #0x4,-(A7) 00020ff0 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020ff6 5c 4f |\O | ADDQ.L #0x6,A7 00020ff8 3e ae 00 10 |> | MOVE.W (A6+0x10),(A7) 00020ffc 4e ba f8 be |N | JSR 0x208bc 00021000 50 4f |PO | ADDQ.L #0x8,A7 00021002 3e ae 00 10 |> | MOVE.W (A6+0x10),(A7) 00021006 4e ba fb 34 |N 4 | JSR 0x20b3c 0002100a 54 4f |TO | ADDQ.L #0x2,A7 0002100c 4e 5e |N^ | UNLK A6 0002100e 4e 75 |Nu | RTS 00021010 ; -------------------------------------------------------------------------------------- 00021010 ; OMSI PASCAL Function 00021010 ; <LVAR 0x010 2(r)> 00021010 ; -------------------------------------------------------------------------------------- 00021010 4e 56 ff e2 |NV | LINK.W A6,#0xffe2 00021014 bf d5 | | CMPA.L (A5),A7 00021016 62 06 |b | BHI 0x2101e 00021018 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002101c 4e 76 |Nv | TRAPV 0002101e de fc 00 1c | | ADDA.W #0x1c,A7 00021022 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 00021026 2f 3a f2 6c |/: l | MOVE.L 0x20294,-(A7) 0002102a 59 4f |YO | SUBQ.L #0x4,A7 0002102c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021030 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00021034 3f 3c 00 04 |?< | MOVE.W #0x4,-(A7) 00021038 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002103e 5c 4f |\O | ADDQ.L #0x6,A7 00021040 3e ae 00 10 |> | MOVE.W (A6+0x10),(A7) 00021044 4e ba f8 76 |N v | JSR 0x208bc 00021048 de fc 00 0a | | ADDA.W #0xa,A7 0002104c 30 3c 09 b2 |0< | MOVE.W #0x9b2,D0 00021050 c1 ee 00 10 | | MULS.W (A6+0x10),D0 00021054 41 f9 00 02 1c e8 |A | LEA.L 0x21ce8,A0 0002105a 42 30 00 0c |B0 | CLR.B (A0+D0.W+#0xc) 0002105e 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 00021062 4e 5e |N^ | UNLK A6 00021064 4e 75 |Nu | RTS 00021066 ; -------------------------------------------------------------------------------------- 00021066 ; OMSI PASCAL Function 00021066 ; <LVAR 0x00c 2(r)> 00021066 ; <LVAR 0x008 4(r)> 00021066 ; <LVAR -0x00e 2(r)> 00021066 ; <LVAR -0x016 @ 2(r)> 00021066 ; -------------------------------------------------------------------------------------- 00021066 4e 56 ff b8 |NV | LINK.W A6,#0xffb8 0002106a bf d5 | | CMPA.L (A5),A7 0002106c 62 06 |b | BHI 0x21074 0002106e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021072 4e 76 |Nv | TRAPV 00021074 de fc 00 32 | 2 | ADDA.W #0x32,A7 00021078 48 e7 f1 e0 |H | MOVEM.L A2+A1+A0+D7+D3+D2+D1+D0,-(A7) 0002107c 43 ee 00 0c |C | LEA.L (A6+0xc),A1 00021080 45 ee ff ea |E | LEA.L (A6-0x16),A2 00021084 74 01 |t | MOVEQ.L #0x01,D2 00021086 76 0e |v | MOVEQ.L #0x0e,D3 00021088 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 0002108c 2f 08 |/ | MOVE.L A0,-(A7) 0002108e 42 10 |B | CLR.B (A0) 00021090 3f 11 |? | MOVE.W (A1),-(A7) 00021092 48 52 |HR | PEA.L (A2) 00021094 4e ba fa 3a |N : | JSR 0x20ad0 00021098 5c 4f |\O | ADDQ.L #0x6,A7 0002109a 30 2e ff f2 |0. | MOVE.W (A6-0xe),D0 0002109e c0 42 | B | AND.W D2,D0 000210a0 67 10 |g | BEQ 0x210b2 000210a2 30 3c 09 b2 |0< | MOVE.W #0x9b2,D0 000210a6 c1 d1 | | MULS.W (A1),D0 000210a8 41 f9 00 02 1c e8 |A | LEA.L 0x21ce8,A0 000210ae 11 82 00 0d | | MOVE.B D2,(A0+D0.W+#0xd) 000210b2 30 12 |0 | MOVE.W (A2),D0 000210b4 c0 43 | C | AND.W D3,D0 000210b6 e2 48 | H | LSR.W #0x1,D0 000210b8 42 81 |B | CLR.L D1 000210ba 32 00 |2 | MOVE.W D0,D1 000210bc 2e 01 |. | MOVE.L D1,D7 000210be 20 07 | | MOVE.L D7,D0 000210c0 0c 80 00 00 00 07 | | CMPI.L #0x00000007,D0 000210c6 63 02 |c | BLS 0x210ca 000210c8 4e 4e |NN | TRAP #14 000210ca d0 40 | @ | ADD.W D0,D0 000210cc 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 000210d4 00 10 | | .CONST 0x10 ; [0x0] -> 0x210e4 000210d6 00 26 | & | .CONST 0x26 ; [0x1] -> 0x210fa 000210d8 00 36 | 6 | .CONST 0x36 ; [0x2] -> 0x2110a 000210da 00 46 | F | .CONST 0x46 ; [0x3] -> 0x2111a 000210dc 00 56 | V | .CONST 0x56 ; [0x4] -> 0x2112a 000210de 00 66 | f | .CONST 0x66 ; [0x5] -> 0x2113a 000210e0 00 68 | h | .CONST 0x68 ; [0x6] -> 0x2113c 000210e2 00 78 | x | .CONST 0x78 ; [0x7] -> 0x2114c 000210e4 switch@0x210cc[0x0]: 000210e4 3f 11 |? | MOVE.W (A1),-(A7) 000210e6 48 52 |HR | PEA.L (A2) 000210e8 20 6f 00 06 | o | MOVEA.L (A7+0x6),A0 000210ec 48 50 |HP | PEA.L (A0) 000210ee 4e ba fa 90 |N | JSR 0x20b80 000210f2 de fc 00 0a | | ADDA.W #0xa,A7 000210f6 58 4f |XO | ADDQ.L #0x4,A7 000210f8 60 62 |`b | BRA 0x2115c 000210fa switch@0x210cc[0x1]: 000210fa 3f 11 |? | MOVE.W (A1),-(A7) 000210fc 48 52 |HR | PEA.L (A2) 000210fe 20 6f 00 06 | o | MOVEA.L (A7+0x6),A0 00021102 48 50 |HP | PEA.L (A0) 00021104 4e ba fb 5c |N \ | JSR 0x20c62 00021108 60 e8 |` | BRA 0x210f2 0002110a switch@0x210cc[0x2]: 0002110a 3f 11 |? | MOVE.W (A1),-(A7) 0002110c 48 52 |HR | PEA.L (A2) 0002110e 20 6f 00 06 | o | MOVEA.L (A7+0x6),A0 00021112 48 50 |HP | PEA.L (A0) 00021114 4e ba fb 90 |N | JSR 0x20ca6 00021118 60 d8 |` | BRA 0x210f2 0002111a switch@0x210cc[0x3]: 0002111a 3f 11 |? | MOVE.W (A1),-(A7) 0002111c 48 52 |HR | PEA.L (A2) 0002111e 20 6f 00 06 | o | MOVEA.L (A7+0x6),A0 00021122 48 50 |HP | PEA.L (A0) 00021124 4e ba fd 1a |N | JSR 0x20e40 00021128 60 c8 |` | BRA 0x210f2 0002112a switch@0x210cc[0x4]: 0002112a 3f 11 |? | MOVE.W (A1),-(A7) 0002112c 48 52 |HR | PEA.L (A2) 0002112e 20 6f 00 06 | o | MOVEA.L (A7+0x6),A0 00021132 48 50 |HP | PEA.L (A0) 00021134 4e ba fd e2 |N | JSR 0x20f18 00021138 60 b8 |` | BRA 0x210f2 0002113a switch@0x210cc[0x5]: 0002113a 60 ee |` | BRA switch@0x210cc[0x4] 0002113c switch@0x210cc[0x6]: 0002113c 3f 11 |? | MOVE.W (A1),-(A7) 0002113e 48 52 |HR | PEA.L (A2) 00021140 20 6f 00 06 | o | MOVEA.L (A7+0x6),A0 00021144 48 50 |HP | PEA.L (A0) 00021146 4e ba fe 84 |N | JSR 0x20fcc 0002114a 60 a6 |` | BRA 0x210f2 0002114c switch@0x210cc[0x7]: 0002114c 3f 11 |? | MOVE.W (A1),-(A7) 0002114e 48 52 |HR | PEA.L (A2) 00021150 20 6f 00 06 | o | MOVEA.L (A7+0x6),A0 00021154 48 50 |HP | PEA.L (A0) 00021156 4e ba fe b8 |N | JSR 0x21010 0002115a de c3 | | ADDA.W D3,A7 0002115c 4c df 07 8f |L | MOVEM.L (A7)+,D0+D1+D2+D3+D7+A0+A1+A2 00021160 4e 5e |N^ | UNLK A6 00021162 4e 75 |Nu | RTS 00021164 ; -------------------------------------------------------------------------------------- 00021164 ; OMSI PASCAL Function 00021164 ; <LVAR 0x008 2(r)> 00021164 ; -------------------------------------------------------------------------------------- 00021164 4e 56 ff e6 |NV | LINK.W A6,#0xffe6 00021168 bf d5 | | CMPA.L (A5),A7 0002116a 62 06 |b | BHI 0x21172 0002116c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021170 4e 76 |Nv | TRAPV 00021172 de fc 00 18 | | ADDA.W #0x18,A7 00021176 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 0002117a 30 3c 09 b2 |0< | MOVE.W #0x9b2,D0 0002117e c1 ee 00 08 | | MULS.W (A6+0x8),D0 00021182 41 f9 00 02 1c e8 |A | LEA.L 0x21ce8,A0 00021188 41 f0 00 0c |A | LEA.L (A0+D0.W+#0xc),A0 0002118c 11 7c 00 0b 09 ac | | | MOVE.B #0x0b,(A0+0x9ac) 00021192 3f 2e 00 08 |?. | MOVE.W (A6+0x8),-(A7) 00021196 4e ba f2 de |N | JSR 0x20476 0002119a 54 4f |TO | ADDQ.L #0x2,A7 0002119c 11 7c 00 01 00 02 | | | MOVE.B #0x01,(A0+0x2) 000211a2 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 000211a6 4e 5e |N^ | UNLK A6 000211a8 4e 75 |Nu | RTS 000211aa ; -------------------------------------------------------------------------------------- 000211aa ; OMSI PASCAL Function 000211aa ; <LVAR 0x008 2(r)> 000211aa ; -------------------------------------------------------------------------------------- 000211aa 4e 56 ff e2 |NV | LINK.W A6,#0xffe2 ; Spelunked 000211ae bf d5 | | CMPA.L (A5),A7 000211b0 62 06 |b | BHI 0x211b8 000211b2 44 fc 00 02 |D | MOVE.W #0x2,CCR 000211b6 4e 76 |Nv | TRAPV 000211b8 de fc 00 18 | | ADDA.W #0x18,A7 000211bc 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 000211c0 30 3c 09 b2 |0< | MOVE.W #0x9b2,D0 000211c4 c1 ee 00 08 | | MULS.W (A6+0x8),D0 000211c8 41 f9 00 02 1c e8 |A | LEA.L 0x21ce8,A0 000211ce 41 f0 00 0c |A | LEA.L (A0+D0.W+#0xc),A0 000211d2 11 7c 00 09 09 ac | | | MOVE.B #0x09,(A0+0x9ac) 000211d8 21 7c 00 00 00 01 09 ae |!| | MOVE.L #0x1,(A0+0x9ae) 000211e0 3f 2e 00 08 |?. | MOVE.W (A6+0x8),-(A7) 000211e4 4e ba f2 90 |N | JSR 0x20476 000211e8 54 4f |TO | ADDQ.L #0x2,A7 000211ea 42 a8 00 1e |B | CLR.L (A0+0x1e) 000211ee 11 7c 00 05 00 02 | | | MOVE.B #0x05,(A0+0x2) 000211f4 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 000211f8 4e 5e |N^ | UNLK A6 000211fa 4e 75 |Nu | RTS 000211fc ; -------------------------------------------------------------------------------------- 000211fc ; OMSI PASCAL Function 000211fc ; <LVAR 0x008 2(r)> 000211fc ; -------------------------------------------------------------------------------------- 000211fc 4e 56 ff e2 |NV | LINK.W A6,#0xffe2 00021200 bf d5 | | CMPA.L (A5),A7 00021202 62 06 |b | BHI 0x2120a 00021204 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021208 4e 76 |Nv | TRAPV 0002120a de fc 00 18 | | ADDA.W #0x18,A7 0002120e 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 00021212 30 3c 09 b2 |0< | MOVE.W #0x9b2,D0 00021216 c1 ee 00 08 | | MULS.W (A6+0x8),D0 0002121a 41 f9 00 02 1c e8 |A | LEA.L 0x21ce8,A0 00021220 41 f0 00 0c |A | LEA.L (A0+D0.W+#0xc),A0 00021224 11 7c 00 08 09 ac | | | MOVE.B #0x08,(A0+0x9ac) 0002122a 21 7c 00 00 00 01 09 ae |!| | MOVE.L #0x1,(A0+0x9ae) 00021232 3f 2e 00 08 |?. | MOVE.W (A6+0x8),-(A7) 00021236 4e ba f2 3e |N > | JSR 0x20476 0002123a 54 4f |TO | ADDQ.L #0x2,A7 0002123c 11 7c 00 06 00 02 | | | MOVE.B #0x06,(A0+0x2) 00021242 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 00021246 4e 5e |N^ | UNLK A6 00021248 4e 75 |Nu | RTS 0002124a ; -------------------------------------------------------------------------------------- 0002124a ; OMSI PASCAL Function 0002124a ; <LVAR 0x008 2(r)> 0002124a ; -------------------------------------------------------------------------------------- 0002124a 4e 56 ff c8 |NV | LINK.W A6,#0xffc8 0002124e bf d5 | | CMPA.L (A5),A7 00021250 62 06 |b | BHI 0x21258 00021252 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021256 4e 76 |Nv | TRAPV 00021258 de fc 00 32 | 2 | ADDA.W #0x32,A7 0002125c 48 e7 db 80 |H | MOVEM.L A0+D7+D6+D4+D3+D1+D0,-(A7) 00021260 72 3f |r? | MOVEQ.L #0x3f,D1 00021262 59 4f |YO | SUBQ.L #0x4,A7 00021264 4e ba f0 c6 |N | JSR 0x2032c 00021268 20 1f | | MOVE.L (A7)+,D0 0002126a 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 00021270 63 02 |c | BLS 0x21274 00021272 4e 4f |NO | TRAP #15 00021274 3c 00 |< | MOVE.W D0,D6 00021276 59 4f |YO | SUBQ.L #0x4,A7 00021278 48 78 00 12 |Hx | PEA.L 0x12 0002127c 48 78 08 00 |Hx | PEA.L 0x800 00021280 4e ba f0 4e |N N | JSR 0x202d0 00021284 50 4f |PO | ADDQ.L #0x8,A7 00021286 2e 1f |. | MOVE.L (A7)+,D7 00021288 20 07 | | MOVE.L D7,D0 0002128a 02 80 00 00 00 01 | | ANDI.L #0x00000001,D0 00021290 67 02 |g | BEQ 0x21294 00021292 52 87 |R | ADDQ.L #0x1,D7 00021294 30 3c 09 b2 |0< | MOVE.W #0x9b2,D0 00021298 c1 ee 00 08 | | MULS.W (A6+0x8),D0 0002129c 41 f9 00 02 1c e8 |A | LEA.L 0x21ce8,A0 000212a2 2f 08 |/ | MOVE.L A0,-(A7) 000212a4 41 f0 00 0c |A | LEA.L (A0+D0.W+#0xc),A0 000212a8 59 4f |YO | SUBQ.L #0x4,A7 000212aa 1e a8 01 a6 | | MOVE.B (A0+0x1a6),(A7) 000212ae 1f 68 01 a7 00 01 | h | MOVE.B (A0+0x1a7),(A7+0x1) 000212b4 1f 68 01 a8 00 02 | h | MOVE.B (A0+0x1a8),(A7+0x2) 000212ba 1f 68 01 a9 00 03 | h | MOVE.B (A0+0x1a9),(A7+0x3) 000212c0 3f 06 |? | MOVE.W D6,-(A7) 000212c2 28 07 |( | MOVE.L D7,D4 000212c4 76 02 |v | MOVEQ.L #0x02,D3 000212c6 4e b9 00 01 02 94 |N | JSR ?divs_d3_d4 000212cc 55 4f |UO | SUBQ.L #0x2,A7 000212ce 0c 84 00 00 ff ff | | CMPI.L #0x0000ffff,D4 000212d4 63 02 |c | BLS 0x212d8 000212d6 4e 4f |NO | TRAP #15 000212d8 3e 84 |> | MOVE.W D4,(A7) 000212da 4e b9 00 01 04 ea |N | JSR FillWords(dst : Pointer; x : Word; length : Word) 000212e0 50 4f |PO | ADDQ.L #0x8,A7 000212e2 20 57 | W | MOVEA.L (A7),A0 000212e4 41 f0 00 0c |A | LEA.L (A0+D0.W+#0xc),A0 000212e8 11 7c 00 04 09 ac | | | MOVE.B #0x04,(A0+0x9ac) 000212ee 21 47 09 ae |!G | MOVE.L D7,(A0+0x9ae) 000212f2 3f 2e 00 08 |?. | MOVE.W (A6+0x8),-(A7) 000212f6 4e ba f1 7e |N ~ | JSR 0x20476 000212fa 54 4f |TO | ADDQ.L #0x2,A7 000212fc 11 7c 00 02 00 02 | | | MOVE.B #0x02,(A0+0x2) 00021302 20 28 00 1e | ( | MOVE.L (A0+0x1e),D0 00021306 b0 81 | | CMP.L D1,D0 00021308 63 02 |c | BLS 0x2130c 0002130a 4e 4f |NO | TRAP #15 0002130c 28 00 |( | MOVE.L D0,D4 0002130e 76 06 |v | MOVEQ.L #0x06,D3 00021310 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4 00021316 31 86 48 26 |1 H& | MOVE.W D6,(A0+D4.L+#0x26) 0002131a 20 28 00 1e | ( | MOVE.L (A0+0x1e),D0 0002131e b0 81 | | CMP.L D1,D0 00021320 63 02 |c | BLS 0x21324 00021322 4e 4f |NO | TRAP #15 00021324 28 00 |( | MOVE.L D0,D4 00021326 76 06 |v | MOVEQ.L #0x06,D3 00021328 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4 0002132e 21 87 48 28 |! H( | MOVE.L D7,(A0+D4.L+#0x28) 00021332 58 4f |XO | ADDQ.L #0x4,A7 00021334 4c df 01 db |L | MOVEM.L (A7)+,D0+D1+D3+D4+D6+D7+A0 00021338 4e 5e |N^ | UNLK A6 0002133a 4e 75 |Nu | RTS 0002133c ; -------------------------------------------------------------------------------------- 0002133c ; OMSI PASCAL Function 0002133c ; <LVAR 0x008 2(r)> 0002133c ; -------------------------------------------------------------------------------------- 0002133c 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 00021340 bf d5 | | CMPA.L (A5),A7 00021342 62 06 |b | BHI 0x2134a 00021344 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021348 4e 76 |Nv | TRAPV 0002134a de fc 00 22 | " | ADDA.W #0x22,A7 0002134e 48 e7 81 80 |H | MOVEM.L A0+D7+D0,-(A7) 00021352 30 3c 09 b2 |0< | MOVE.W #0x9b2,D0 00021356 c1 ee 00 08 | | MULS.W (A6+0x8),D0 0002135a 41 f9 00 02 1c e8 |A | LEA.L 0x21ce8,A0 00021360 59 4f |YO | SUBQ.L #0x4,A7 00021362 48 78 00 01 |Hx | PEA.L 0x1 00021366 2f 30 00 2e |/0 . | MOVE.L (A0+D0.W+#0x2e),-(A7) 0002136a 4e ba ef 64 |N d | JSR 0x202d0 0002136e 50 4f |PO | ADDQ.L #0x8,A7 00021370 2e 1f |. | MOVE.L (A7)+,D7 00021372 41 f0 00 0c |A | LEA.L (A0+D0.W+#0xc),A0 00021376 11 7c 00 07 09 ac | | | MOVE.B #0x07,(A0+0x9ac) 0002137c 21 47 09 ae |!G | MOVE.L D7,(A0+0x9ae) 00021380 3f 2e 00 08 |?. | MOVE.W (A6+0x8),-(A7) 00021384 4e ba f0 f0 |N | JSR 0x20476 00021388 54 4f |TO | ADDQ.L #0x2,A7 0002138a 9f a8 00 1e | | SUB.L D7,(A0+0x1e) 0002138e 11 7c 00 04 00 02 | | | MOVE.B #0x04,(A0+0x2) 00021394 4c df 01 81 |L | MOVEM.L (A7)+,D0+D7+A0 00021398 4e 5e |N^ | UNLK A6 0002139a 4e 75 |Nu | RTS 0002139c ; -------------------------------------------------------------------------------------- 0002139c ; OMSI PASCAL Function 0002139c ; <LVAR 0x00a 2(r)> 0002139c ; <LVAR 0x008 1(r)> 0002139c ; <LVAR -0x004 @ 1(rw)> 0002139c ; -------------------------------------------------------------------------------------- 0002139c 4e 56 ff aa |NV | LINK.W A6,#0xffaa 000213a0 bf d5 | | CMPA.L (A5),A7 000213a2 62 06 |b | BHI 0x213aa 000213a4 44 fc 00 02 |D | MOVE.W #0x2,CCR 000213a8 4e 76 |Nv | TRAPV 000213aa de fc 00 52 | R | ADDA.W #0x52,A7 000213ae 48 e7 f8 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D4+D3+D2+D1+D0,-(A7) 000213b2 47 ee 00 0a |G | LEA.L (A6+0xa),A3 000213b6 49 ee ff fc |I | LEA.L (A6-0x4),A4 000213ba 74 10 |t | MOVEQ.L #0x10,D2 000213bc 30 3c 09 b2 |0< | MOVE.W #0x9b2,D0 000213c0 c1 d3 | | MULS.W (A3),D0 000213c2 41 f9 00 02 1c e8 |A | LEA.L 0x21ce8,A0 000213c8 4a 2e 00 08 |J. | TST.B (A6+0x8) 000213cc 67 06 |g | BEQ 0x213d4 000213ce 18 bc 00 01 | | MOVE.B #0x01,(A4) 000213d2 60 0a |` | BRA 0x213de 000213d4 3f 13 |? | MOVE.W (A3),-(A7) 000213d6 48 54 |HT | PEA.L (A4) 000213d8 4e ba fc 8c |N | JSR 0x21066 000213dc 5c 4f |\O | ADDQ.L #0x6,A7 000213de 4a 14 |J | TST.B (A4) 000213e0 67 00 00 84 |g | BEQ 0x21466 000213e4 22 30 00 2a |"0 * | MOVE.L (A0+D0.W+#0x2a),D1 000213e8 0c 81 00 00 00 3f | ? | CMPI.L #0x0000003f,D1 000213ee 63 02 |c | BLS 0x213f2 000213f0 4e 4f |NO | TRAP #15 000213f2 28 01 |( | MOVE.L D1,D4 000213f4 76 06 |v | MOVEQ.L #0x06,D3 000213f6 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4 000213fc 9e c2 | | SUBA.W D2,A7 000213fe 22 4f |"O | MOVEA.L A7,A1 00021400 45 f0 00 1e |E | LEA.L (A0+D0.W+#0x1e),A2 00021404 72 07 |r | MOVEQ.L #0x07,D1 00021406 12 da | | MOVE.B (A2)+,(A1)+ 00021408 51 c9 ff fc |Q | DBF D1,0x21406 0002140c 51 4f |QO | SUBQ.L #0x8,A7 0002140e 43 f0 00 0c |C | LEA.L (A0+D0.W+#0xc),A1 00021412 22 31 48 28 |"1H( | MOVE.L (A1+D4.L+#0x28),D1 00021416 e3 81 | | ASL.L #0x1,D1 00021418 2f 01 |/ | MOVE.L D1,-(A7) 0002141a 4e b9 00 01 03 54 |N T | JSR Long2Quad(a : Long) : Quad 00021420 58 4f |XO | ADDQ.L #0x4,A7 00021422 4e b9 00 01 03 14 |N | JSR Add(a, b : Quad) : Quad 00021428 de c2 | | ADDA.W D2,A7 0002142a 43 f0 00 1e |C | LEA.L (A0+D0.W+#0x1e),A1 0002142e 24 4f |$O | MOVEA.L A7,A2 00021430 72 07 |r | MOVEQ.L #0x07,D1 00021432 12 da | | MOVE.B (A2)+,(A1)+ 00021434 51 c9 ff fc |Q | DBF D1,0x21432 00021438 50 4f |PO | ADDQ.L #0x8,A7 0002143a 4a b0 00 26 |J & | TST.L (A0+D0.W+#0x26) 0002143e 67 08 |g | BEQ 0x21448 00021440 3f 13 |? | MOVE.W (A3),-(A7) 00021442 4e ba f5 d4 |N | JSR 0x20a18 00021446 54 4f |TO | ADDQ.L #0x2,A7 00021448 52 b0 00 2a |R * | ADDQ.L #0x1,(A0+D0.W+#0x2a) 0002144c 22 30 00 2a |"0 * | MOVE.L (A0+D0.W+#0x2a),D1 00021450 b2 b0 00 2e | . | CMP.L (A0+D0.W+#0x2e),D1 00021454 6e 08 |n | BGT 0x2145e 00021456 3f 13 |? | MOVE.W (A3),-(A7) 00021458 4e ba fd f0 |N | JSR 0x2124a 0002145c 60 06 |` | BRA 0x21464 0002145e 3f 13 |? | MOVE.W (A3),-(A7) 00021460 4e ba fe da |N | JSR 0x2133c 00021464 54 4f |TO | ADDQ.L #0x2,A7 00021466 4c df 1f 1f |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+A0+A1+A2+A3+A4 0002146a 4e 5e |N^ | UNLK A6 0002146c 4e 75 |Nu | RTS 0002146e ; -------------------------------------------------------------------------------------- 0002146e ; OMSI PASCAL Function 0002146e ; <LVAR 0x008 2(r)> 0002146e ; -------------------------------------------------------------------------------------- 0002146e 4e 56 ff dc |NV | LINK.W A6,#0xffdc 00021472 bf d5 | | CMPA.L (A5),A7 00021474 62 06 |b | BHI 0x2147c 00021476 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002147a 4e 76 |Nv | TRAPV 0002147c de fc 00 22 | " | ADDA.W #0x22,A7 00021480 48 e7 98 80 |H | MOVEM.L A0+D4+D3+D0,-(A7) 00021484 30 3c 09 b2 |0< | MOVE.W #0x9b2,D0 00021488 c1 ee 00 08 | | MULS.W (A6+0x8),D0 0002148c 41 f9 00 02 1c e8 |A | LEA.L 0x21ce8,A0 00021492 41 f0 00 0c |A | LEA.L (A0+D0.W+#0xc),A0 00021496 11 7c 00 02 09 ac | | | MOVE.B #0x02,(A0+0x9ac) 0002149c 20 28 00 1e | ( | MOVE.L (A0+0x1e),D0 000214a0 0c 80 00 00 00 3f | ? | CMPI.L #0x0000003f,D0 000214a6 63 02 |c | BLS 0x214aa 000214a8 4e 4f |NO | TRAP #15 000214aa 28 00 |( | MOVE.L D0,D4 000214ac 76 06 |v | MOVEQ.L #0x06,D3 000214ae 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4 000214b4 21 70 48 28 09 ae |!pH( | MOVE.L (A0+D4.L+#0x28),(A0+0x9ae) 000214ba 3f 2e 00 08 |?. | MOVE.W (A6+0x8),-(A7) 000214be 4e ba ef b6 |N | JSR 0x20476 000214c2 54 4f |TO | ADDQ.L #0x2,A7 000214c4 11 7c 00 03 00 02 | | | MOVE.B #0x03,(A0+0x2) 000214ca 4c df 01 19 |L | MOVEM.L (A7)+,D0+D3+D4+A0 000214ce 4e 5e |N^ | UNLK A6 000214d0 4e 75 |Nu | RTS 000214d2 ; -------------------------------------------------------------------------------------- 000214d2 ; OMSI PASCAL Function 000214d2 ; <LVAR 0x008 2(r)> 000214d2 ; <LVAR -0x002 @ 1(r)> 000214d2 ; -------------------------------------------------------------------------------------- 000214d2 4e 56 ff ca |NV | LINK.W A6,#0xffca ; Spelunked 000214d6 bf d5 | | CMPA.L (A5),A7 000214d8 62 06 |b | BHI 0x214e0 000214da 44 fc 00 02 |D | MOVE.W #0x2,CCR 000214de 4e 76 |Nv | TRAPV 000214e0 de fc 00 34 | 4 | ADDA.W #0x34,A7 000214e4 48 e7 c0 c0 |H | MOVEM.L A1+A0+D1+D0,-(A7) 000214e8 43 ee 00 08 |C | LEA.L (A6+0x8),A1 000214ec 72 14 |r | MOVEQ.L #0x14,D1 000214ee 30 3c 09 b2 |0< | MOVE.W #0x9b2,D0 000214f2 c1 d1 | | MULS.W (A1),D0 000214f4 41 f9 00 02 1c e8 |A | LEA.L 0x21ce8,A0 000214fa 59 4f |YO | SUBQ.L #0x4,A7 000214fc 48 78 00 00 |Hx | PEA.L 0x0 00021500 48 78 00 01 |Hx | PEA.L 0x1 00021504 4e ba ed ca |N | JSR 0x202d0 00021508 50 4f |PO | ADDQ.L #0x8,A7 0002150a 4a 9f |J | TST.L (A7)+ 0002150c 66 0a |f | BNE 0x21518 0002150e 41 f0 00 0c |A | LEA.L (A0+D0.W+#0xc),A0 00021512 11 41 09 ac | A | MOVE.B D1,(A0+0x9ac) 00021516 60 0a |` | BRA 0x21522 00021518 41 f0 00 0c |A | LEA.L (A0+D0.W+#0xc),A0 0002151c 11 7c 00 15 09 ac | | | MOVE.B #0x15,(A0+0x9ac) 00021522 3f 11 |? | MOVE.W (A1),-(A7) 00021524 4e ba ef 50 |N P | JSR 0x20476 00021528 3e 91 |> | MOVE.W (A1),(A7) 0002152a 48 6e ff fe |Hn | PEA.L (A6-0x2) 0002152e 4e b9 00 01 02 06 |N | JSR KC03_Wait_Disk_IO(a : W; VAR status : Byte) 00021534 5c 4f |\O | ADDQ.L #0x6,A7 00021536 4a 2e ff fe |J. | TST.B (A6-0x2) 0002153a 66 2a |f* | BNE 0x21566 0002153c 41 fa ed 68 |A h | LEA.L 0x202a6,A0 00021540 70 06 |p | MOVEQ.L #0x06,D0 00021542 3f 20 |? | MOVE.W -(A0),-(A7) 00021544 51 c8 ff fc |Q | DBF D0,0x21542 00021548 59 4f |YO | SUBQ.L #0x4,A7 0002154a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002154e 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00021552 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7) 00021556 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002155c 5c 4f |\O | ADDQ.L #0x6,A7 0002155e 3e 91 |> | MOVE.W (A1),(A7) 00021560 4e ba f3 5a |N Z | JSR 0x208bc 00021564 de c1 | | ADDA.W D1,A7 00021566 4c df 03 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1 0002156a 4e 5e |N^ | UNLK A6 0002156c 4e 75 |Nu | RTS 0002156e ; -------------------------------------------------------------------------------------- 0002156e ; OMSI PASCAL Function 0002156e ; <LVAR 0x008 2(r)> 0002156e ; <LVAR -0x002 @ 1(r)> 0002156e ; -------------------------------------------------------------------------------------- 0002156e 4e 56 ff cc |NV | LINK.W A6,#0xffcc ; Spelunked 00021572 bf d5 | | CMPA.L (A5),A7 00021574 62 06 |b | BHI 0x2157c 00021576 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002157a 4e 76 |Nv | TRAPV 0002157c de fc 00 32 | 2 | ADDA.W #0x32,A7 00021580 48 e7 c0 c0 |H | MOVEM.L A1+A0+D1+D0,-(A7) 00021584 43 ee 00 08 |C | LEA.L (A6+0x8),A1 00021588 72 12 |r | MOVEQ.L #0x12,D1 0002158a 30 3c 09 b2 |0< | MOVE.W #0x9b2,D0 0002158e c1 d1 | | MULS.W (A1),D0 00021590 41 f9 00 02 1c e8 |A | LEA.L 0x21ce8,A0 00021596 59 4f |YO | SUBQ.L #0x4,A7 00021598 48 78 00 00 |Hx | PEA.L 0x0 0002159c 48 78 00 01 |Hx | PEA.L 0x1 000215a0 4e ba ed 2e |N . | JSR 0x202d0 000215a4 50 4f |PO | ADDQ.L #0x8,A7 000215a6 4a 9f |J | TST.L (A7)+ 000215a8 66 0a |f | BNE 0x215b4 000215aa 41 f0 00 0c |A | LEA.L (A0+D0.W+#0xc),A0 000215ae 11 41 09 ac | A | MOVE.B D1,(A0+0x9ac) 000215b2 60 0a |` | BRA 0x215be 000215b4 41 f0 00 0c |A | LEA.L (A0+D0.W+#0xc),A0 000215b8 11 7c 00 13 09 ac | | | MOVE.B #0x13,(A0+0x9ac) 000215be 3f 11 |? | MOVE.W (A1),-(A7) 000215c0 4e ba ee b4 |N | JSR 0x20476 000215c4 3e 91 |> | MOVE.W (A1),(A7) 000215c6 48 6e ff fe |Hn | PEA.L (A6-0x2) 000215ca 4e b9 00 01 02 06 |N | JSR KC03_Wait_Disk_IO(a : W; VAR status : Byte) 000215d0 5c 4f |\O | ADDQ.L #0x6,A7 000215d2 4a 2e ff fe |J. | TST.B (A6-0x2) 000215d6 66 2a |f* | BNE 0x21602 000215d8 2f 3a ec d4 |/: | MOVE.L 0x202ae,-(A7) 000215dc 2f 3a ec cc |/: | MOVE.L 0x202aa,-(A7) 000215e0 2f 3a ec c4 |/: | MOVE.L 0x202a6,-(A7) 000215e4 59 4f |YO | SUBQ.L #0x4,A7 000215e6 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000215ea 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000215ee 3f 3c 00 0c |?< | MOVE.W #0xc,-(A7) 000215f2 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000215f8 5c 4f |\O | ADDQ.L #0x6,A7 000215fa 3e 91 |> | MOVE.W (A1),(A7) 000215fc 4e ba f2 be |N | JSR 0x208bc 00021600 de c1 | | ADDA.W D1,A7 00021602 4c df 03 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1 00021606 4e 5e |N^ | UNLK A6 00021608 4e 75 |Nu | RTS 0002160a ; -------------------------------------------------------------------------------------- 0002160a ; OMSI PASCAL Function 0002160a ; <LVAR 0x00a 2(r)> 0002160a ; <LVAR 0x008 1(r)> 0002160a ; <LVAR -0x004 @ 1(rw)> 0002160a ; -------------------------------------------------------------------------------------- 0002160a 4e 56 ff a6 |NV | LINK.W A6,#0xffa6 0002160e bf d5 | | CMPA.L (A5),A7 00021610 62 06 |b | BHI 0x21618 00021612 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021616 4e 76 |Nv | TRAPV 00021618 de fc 00 56 | V | ADDA.W #0x56,A7 0002161c 48 e7 fc f8 |H | MOVEM.L A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7) 00021620 47 ee 00 0a |G | LEA.L (A6+0xa),A3 00021624 49 ee ff fc |I | LEA.L (A6-0x4),A4 00021628 74 3f |t? | MOVEQ.L #0x3f,D2 0002162a 7a 10 |z | MOVEQ.L #0x10,D5 0002162c 30 3c 09 b2 |0< | MOVE.W #0x9b2,D0 00021630 c1 d3 | | MULS.W (A3),D0 00021632 41 f9 00 02 1c e8 |A | LEA.L 0x21ce8,A0 00021638 4a 2e 00 08 |J. | TST.B (A6+0x8) 0002163c 67 06 |g | BEQ 0x21644 0002163e 18 bc 00 01 | | MOVE.B #0x01,(A4) 00021642 60 0a |` | BRA 0x2164e 00021644 3f 13 |? | MOVE.W (A3),-(A7) 00021646 48 54 |HT | PEA.L (A4) 00021648 4e ba fa 1c |N | JSR 0x21066 0002164c 5c 4f |\O | ADDQ.L #0x6,A7 0002164e 4a 14 |J | TST.B (A4) 00021650 67 00 01 10 |g | BEQ 0x21762 00021654 22 30 00 2a |"0 * | MOVE.L (A0+D0.W+#0x2a),D1 00021658 b2 82 | | CMP.L D2,D1 0002165a 63 02 |c | BLS 0x2165e 0002165c 4e 4f |NO | TRAP #15 0002165e 28 01 |( | MOVE.L D1,D4 00021660 76 06 |v | MOVEQ.L #0x06,D3 00021662 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4 00021668 9e c5 | | SUBA.W D5,A7 0002166a 22 4f |"O | MOVEA.L A7,A1 0002166c 45 f0 00 1e |E | LEA.L (A0+D0.W+#0x1e),A2 00021670 72 07 |r | MOVEQ.L #0x07,D1 00021672 12 da | | MOVE.B (A2)+,(A1)+ 00021674 51 c9 ff fc |Q | DBF D1,0x21672 00021678 51 4f |QO | SUBQ.L #0x8,A7 0002167a 43 f0 00 0c |C | LEA.L (A0+D0.W+#0xc),A1 0002167e 22 31 48 28 |"1H( | MOVE.L (A1+D4.L+#0x28),D1 00021682 e3 81 | | ASL.L #0x1,D1 00021684 2f 01 |/ | MOVE.L D1,-(A7) 00021686 4e b9 00 01 03 54 |N T | JSR Long2Quad(a : Long) : Quad 0002168c 58 4f |XO | ADDQ.L #0x4,A7 0002168e 4e b9 00 01 03 14 |N | JSR Add(a, b : Quad) : Quad 00021694 de c5 | | ADDA.W D5,A7 00021696 43 f0 00 1e |C | LEA.L (A0+D0.W+#0x1e),A1 0002169a 24 4f |$O | MOVEA.L A7,A2 0002169c 72 07 |r | MOVEQ.L #0x07,D1 0002169e 12 da | | MOVE.B (A2)+,(A1)+ 000216a0 51 c9 ff fc |Q | DBF D1,0x2169e 000216a4 50 4f |PO | ADDQ.L #0x8,A7 000216a6 4a b0 00 26 |J & | TST.L (A0+D0.W+#0x26) 000216aa 67 08 |g | BEQ 0x216b4 000216ac 3f 13 |? | MOVE.W (A3),-(A7) 000216ae 4e ba f3 68 |N h | JSR 0x20a18 000216b2 54 4f |TO | ADDQ.L #0x2,A7 000216b4 22 30 00 2a |"0 * | MOVE.L (A0+D0.W+#0x2a),D1 000216b8 b2 82 | | CMP.L D2,D1 000216ba 63 02 |c | BLS 0x216be 000216bc 4e 4f |NO | TRAP #15 000216be 28 01 |( | MOVE.L D1,D4 000216c0 76 06 |v | MOVEQ.L #0x06,D3 000216c2 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4 000216c8 2f 04 |/ | MOVE.L D4,-(A7) 000216ca 43 f0 00 0c |C | LEA.L (A0+D0.W+#0xc),A1 000216ce 5d 4f |]O | SUBQ.L #0x6,A7 000216d0 1e a9 01 a6 | | MOVE.B (A1+0x1a6),(A7) 000216d4 1f 69 01 a7 00 01 | i | MOVE.B (A1+0x1a7),(A7+0x1) 000216da 1f 69 01 a8 00 02 | i | MOVE.B (A1+0x1a8),(A7+0x2) 000216e0 1f 69 01 a9 00 03 | i | MOVE.B (A1+0x1a9),(A7+0x3) 000216e6 3f 31 48 26 |?1H& | MOVE.W (A1+D4.L+#0x26),-(A7) 000216ea 28 2f 00 08 |(/ | MOVE.L (A7+0x8),D4 000216ee 28 31 48 28 |(1H( | MOVE.L (A1+D4.L+#0x28),D4 000216f2 76 02 |v | MOVEQ.L #0x02,D3 000216f4 4e b9 00 01 02 94 |N | JSR ?divs_d3_d4 000216fa 55 4f |UO | SUBQ.L #0x2,A7 000216fc 0c 84 00 00 ff ff | | CMPI.L #0x0000ffff,D4 00021702 63 02 |c | BLS 0x21706 00021704 4e 4f |NO | TRAP #15 00021706 3e 84 |> | MOVE.W D4,(A7) 00021708 4e b9 00 01 04 e4 |N | JSR FindWord(src : Pointer; x : Word; length : Word) : Bool 0002170e 50 4f |PO | ADDQ.L #0x8,A7 00021710 4a 1f |J | TST.B (A7)+ 00021712 66 08 |f | BNE 0x2171c 00021714 3f 13 |? | MOVE.W (A3),-(A7) 00021716 4e ba f3 62 |N b | JSR 0x20a7a 0002171a 54 4f |TO | ADDQ.L #0x2,A7 0002171c 52 b0 00 2a |R * | ADDQ.L #0x1,(A0+D0.W+#0x2a) 00021720 22 30 00 2a |"0 * | MOVE.L (A0+D0.W+#0x2a),D1 00021724 b2 a9 00 22 | " | CMP.L (A1+0x22),D1 00021728 6e 08 |n | BGT 0x21732 0002172a 3f 13 |? | MOVE.W (A3),-(A7) 0002172c 4e ba fd 40 |N @ | JSR 0x2146e 00021730 60 2c |`, | BRA 0x2175e 00021732 42 b0 00 2a |B * | CLR.L (A0+D0.W+#0x2a) 00021736 59 4f |YO | SUBQ.L #0x4,A7 00021738 48 78 00 10 |Hx | PEA.L 0x10 0002173c 48 78 00 3f |Hx ? | PEA.L 0x3f 00021740 4e ba eb 8e |N | JSR 0x202d0 00021744 50 4f |PO | ADDQ.L #0x8,A7 00021746 23 5f 00 22 |#_ " | MOVE.L (A7)+,(A1+0x22) 0002174a 4a 29 00 01 |J) | TST.B (A1+0x1) 0002174e 67 08 |g | BEQ 0x21758 00021750 3f 13 |? | MOVE.W (A3),-(A7) 00021752 4e ba f3 e8 |N | JSR 0x20b3c 00021756 60 06 |` | BRA 0x2175e 00021758 3f 13 |? | MOVE.W (A3),-(A7) 0002175a 4e ba fa 08 |N | JSR 0x21164 0002175e 54 4f |TO | ADDQ.L #0x2,A7 00021760 58 4f |XO | ADDQ.L #0x4,A7 00021762 4c df 1f 3f |L ? | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4 00021766 4e 5e |N^ | UNLK A6 00021768 4e 75 |Nu | RTS 0002176a ; -------------------------------------------------------------------------------------- 0002176a ; OMSI PASCAL Function 0002176a ; <LVAR 0x00a 2(r)> 0002176a ; <LVAR 0x008 1(r)> 0002176a ; <LVAR -0x004 @ 1(rw)> 0002176a ; -------------------------------------------------------------------------------------- 0002176a 4e 56 ff dc |NV | LINK.W A6,#0xffdc 0002176e bf d5 | | CMPA.L (A5),A7 00021770 62 06 |b | BHI 0x21778 00021772 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021776 4e 76 |Nv | TRAPV 00021778 de fc 00 20 | | ADDA.W #0x20,A7 0002177c 48 e7 80 e0 |H | MOVEM.L A2+A1+A0+D0,-(A7) 00021780 43 ee 00 0a |C | LEA.L (A6+0xa),A1 00021784 45 ee ff fc |E | LEA.L (A6-0x4),A2 00021788 30 3c 09 b2 |0< | MOVE.W #0x9b2,D0 0002178c c1 d1 | | MULS.W (A1),D0 0002178e 41 f9 00 02 1c e8 |A | LEA.L 0x21ce8,A0 00021794 4a 2e 00 08 |J. | TST.B (A6+0x8) 00021798 67 06 |g | BEQ 0x217a0 0002179a 14 bc 00 01 | | MOVE.B #0x01,(A2) 0002179e 60 0a |` | BRA 0x217aa 000217a0 3f 11 |? | MOVE.W (A1),-(A7) 000217a2 48 52 |HR | PEA.L (A2) 000217a4 4e ba f8 c0 |N | JSR 0x21066 000217a8 5c 4f |\O | ADDQ.L #0x6,A7 000217aa 4a 12 |J | TST.B (A2) 000217ac 67 16 |g | BEQ 0x217c4 000217ae 4a b0 00 26 |J & | TST.L (A0+D0.W+#0x26) 000217b2 67 08 |g | BEQ 0x217bc 000217b4 3f 11 |? | MOVE.W (A1),-(A7) 000217b6 4e ba f2 60 |N ` | JSR 0x20a18 000217ba 54 4f |TO | ADDQ.L #0x2,A7 000217bc 3f 11 |? | MOVE.W (A1),-(A7) 000217be 4e ba fc ae |N | JSR 0x2146e 000217c2 54 4f |TO | ADDQ.L #0x2,A7 000217c4 4c df 07 01 |L | MOVEM.L (A7)+,D0+A0+A1+A2 000217c8 4e 5e |N^ | UNLK A6 000217ca 4e 75 |Nu | RTS 000217cc ; -------------------------------------------------------------------------------------- 000217cc ; OMSI PASCAL Function 000217cc ; <LVAR 0x00a 2(r)> 000217cc ; <LVAR 0x008 1(r)> 000217cc ; <LVAR -0x004 @ 1(rw)> 000217cc ; -------------------------------------------------------------------------------------- 000217cc 4e 56 ff dc |NV | LINK.W A6,#0xffdc 000217d0 bf d5 | | CMPA.L (A5),A7 000217d2 62 06 |b | BHI 0x217da 000217d4 44 fc 00 02 |D | MOVE.W #0x2,CCR 000217d8 4e 76 |Nv | TRAPV 000217da de fc 00 20 | | ADDA.W #0x20,A7 000217de 48 e7 80 e0 |H | MOVEM.L A2+A1+A0+D0,-(A7) 000217e2 43 ee 00 0a |C | LEA.L (A6+0xa),A1 000217e6 45 ee ff fc |E | LEA.L (A6-0x4),A2 000217ea 30 3c 09 b2 |0< | MOVE.W #0x9b2,D0 000217ee c1 d1 | | MULS.W (A1),D0 000217f0 41 f9 00 02 1c e8 |A | LEA.L 0x21ce8,A0 000217f6 4a 2e 00 08 |J. | TST.B (A6+0x8) 000217fa 67 06 |g | BEQ 0x21802 000217fc 14 bc 00 01 | | MOVE.B #0x01,(A2) 00021800 60 0a |` | BRA 0x2180c 00021802 3f 11 |? | MOVE.W (A1),-(A7) 00021804 48 52 |HR | PEA.L (A2) 00021806 4e ba f8 5e |N ^ | JSR 0x21066 0002180a 5c 4f |\O | ADDQ.L #0x6,A7 0002180c 4a 12 |J | TST.B (A2) 0002180e 67 16 |g | BEQ 0x21826 00021810 4a b0 00 26 |J & | TST.L (A0+D0.W+#0x26) 00021814 67 08 |g | BEQ 0x2181e 00021816 3f 11 |? | MOVE.W (A1),-(A7) 00021818 4e ba f1 fe |N | JSR 0x20a18 0002181c 54 4f |TO | ADDQ.L #0x2,A7 0002181e 3f 11 |? | MOVE.W (A1),-(A7) 00021820 4e ba f9 da |N | JSR 0x211fc 00021824 54 4f |TO | ADDQ.L #0x2,A7 00021826 4c df 07 01 |L | MOVEM.L (A7)+,D0+A0+A1+A2 0002182a 4e 5e |N^ | UNLK A6 0002182c 4e 75 |Nu | RTS 0002182e ; -------------------------------------------------------------------------------------- 0002182e ; OMSI PASCAL Function 0002182e ; <LVAR 0x00a 2(r)> 0002182e ; <LVAR 0x008 1(r)> 0002182e ; <LVAR -0x004 @ 1(rw)> 0002182e ; -------------------------------------------------------------------------------------- 0002182e 4e 56 ff dc |NV | LINK.W A6,#0xffdc 00021832 bf d5 | | CMPA.L (A5),A7 00021834 62 06 |b | BHI 0x2183c 00021836 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002183a 4e 76 |Nv | TRAPV 0002183c de fc 00 20 | | ADDA.W #0x20,A7 00021840 48 e7 80 e0 |H | MOVEM.L A2+A1+A0+D0,-(A7) 00021844 43 ee 00 0a |C | LEA.L (A6+0xa),A1 00021848 45 ee ff fc |E | LEA.L (A6-0x4),A2 0002184c 30 3c 09 b2 |0< | MOVE.W #0x9b2,D0 00021850 c1 d1 | | MULS.W (A1),D0 00021852 41 f9 00 02 1c e8 |A | LEA.L 0x21ce8,A0 00021858 4a 2e 00 08 |J. | TST.B (A6+0x8) 0002185c 67 06 |g | BEQ 0x21864 0002185e 14 bc 00 01 | | MOVE.B #0x01,(A2) 00021862 60 0a |` | BRA 0x2186e 00021864 3f 11 |? | MOVE.W (A1),-(A7) 00021866 48 52 |HR | PEA.L (A2) 00021868 4e ba f7 fc |N | JSR 0x21066 0002186c 5c 4f |\O | ADDQ.L #0x6,A7 0002186e 4a 12 |J | TST.B (A2) 00021870 67 16 |g | BEQ 0x21888 00021872 4a b0 00 26 |J & | TST.L (A0+D0.W+#0x26) 00021876 67 08 |g | BEQ 0x21880 00021878 3f 11 |? | MOVE.W (A1),-(A7) 0002187a 4e ba f1 9c |N | JSR 0x20a18 0002187e 54 4f |TO | ADDQ.L #0x2,A7 00021880 3f 11 |? | MOVE.W (A1),-(A7) 00021882 4e ba fb ea |N | JSR 0x2146e 00021886 54 4f |TO | ADDQ.L #0x2,A7 00021888 4c df 07 01 |L | MOVEM.L (A7)+,D0+A0+A1+A2 0002188c 4e 5e |N^ | UNLK A6 0002188e 4e 75 |Nu | RTS 00021890 ; -------------------------------------------------------------------------------------- 00021890 ; OMSI PASCAL Function 00021890 ; <LVAR 0x00a 2(r)> 00021890 ; <LVAR 0x008 1(r)> 00021890 ; <LVAR -0x004 @ 1(rw)> 00021890 ; -------------------------------------------------------------------------------------- 00021890 4e 56 ff dc |NV | LINK.W A6,#0xffdc 00021894 bf d5 | | CMPA.L (A5),A7 00021896 62 06 |b | BHI 0x2189e 00021898 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002189c 4e 76 |Nv | TRAPV 0002189e de fc 00 20 | | ADDA.W #0x20,A7 000218a2 48 e7 80 e0 |H | MOVEM.L A2+A1+A0+D0,-(A7) 000218a6 43 ee 00 0a |C | LEA.L (A6+0xa),A1 000218aa 45 ee ff fc |E | LEA.L (A6-0x4),A2 000218ae 30 3c 09 b2 |0< | MOVE.W #0x9b2,D0 000218b2 c1 d1 | | MULS.W (A1),D0 000218b4 41 f9 00 02 1c e8 |A | LEA.L 0x21ce8,A0 000218ba 4a 2e 00 08 |J. | TST.B (A6+0x8) 000218be 67 06 |g | BEQ 0x218c6 000218c0 14 bc 00 01 | | MOVE.B #0x01,(A2) 000218c4 60 0a |` | BRA 0x218d0 000218c6 3f 11 |? | MOVE.W (A1),-(A7) 000218c8 48 52 |HR | PEA.L (A2) 000218ca 4e ba f7 9a |N | JSR 0x21066 000218ce 5c 4f |\O | ADDQ.L #0x6,A7 000218d0 4a 12 |J | TST.B (A2) 000218d2 67 10 |g | BEQ 0x218e4 000218d4 42 30 00 0d |B0 | CLR.B (A0+D0.W+#0xd) 000218d8 42 b0 00 2a |B * | CLR.L (A0+D0.W+#0x2a) 000218dc 3f 11 |? | MOVE.W (A1),-(A7) 000218de 4e ba f9 6a |N j | JSR 0x2124a 000218e2 54 4f |TO | ADDQ.L #0x2,A7 000218e4 4c df 07 01 |L | MOVEM.L (A7)+,D0+A0+A1+A2 000218e8 4e 5e |N^ | UNLK A6 000218ea 4e 75 |Nu | RTS 000218ec ; -------------------------------------------------------------------------------------- 000218ec ; OMSI PASCAL Function 000218ec ; <LVAR 0x00a 2(r)> 000218ec ; <LVAR 0x008 1(r)> 000218ec ; <LVAR -0x004 @ 1(rw)> 000218ec ; -------------------------------------------------------------------------------------- 000218ec 4e 56 ff dc |NV | LINK.W A6,#0xffdc 000218f0 bf d5 | | CMPA.L (A5),A7 000218f2 62 06 |b | BHI 0x218fa 000218f4 44 fc 00 02 |D | MOVE.W #0x2,CCR 000218f8 4e 76 |Nv | TRAPV 000218fa de fc 00 20 | | ADDA.W #0x20,A7 000218fe 48 e7 80 e0 |H | MOVEM.L A2+A1+A0+D0,-(A7) 00021902 43 ee 00 0a |C | LEA.L (A6+0xa),A1 00021906 45 ee ff fc |E | LEA.L (A6-0x4),A2 0002190a 30 3c 09 b2 |0< | MOVE.W #0x9b2,D0 0002190e c1 d1 | | MULS.W (A1),D0 00021910 41 f9 00 02 1c e8 |A | LEA.L 0x21ce8,A0 00021916 4a 2e 00 08 |J. | TST.B (A6+0x8) 0002191a 67 06 |g | BEQ 0x21922 0002191c 14 bc 00 01 | | MOVE.B #0x01,(A2) 00021920 60 0a |` | BRA 0x2192c 00021922 3f 11 |? | MOVE.W (A1),-(A7) 00021924 48 52 |HR | PEA.L (A2) 00021926 4e ba f7 3e |N > | JSR 0x21066 0002192a 5c 4f |\O | ADDQ.L #0x6,A7 0002192c 4a 12 |J | TST.B (A2) 0002192e 67 10 |g | BEQ 0x21940 00021930 42 30 00 0d |B0 | CLR.B (A0+D0.W+#0xd) 00021934 42 b0 00 2a |B * | CLR.L (A0+D0.W+#0x2a) 00021938 3f 11 |? | MOVE.W (A1),-(A7) 0002193a 4e ba f9 0e |N | JSR 0x2124a 0002193e 54 4f |TO | ADDQ.L #0x2,A7 00021940 4c df 07 01 |L | MOVEM.L (A7)+,D0+A0+A1+A2 00021944 4e 5e |N^ | UNLK A6 00021946 4e 75 |Nu | RTS 00021948 ; -------------------------------------------------------------------------------------- 00021948 ; OMSI PASCAL Function 00021948 ; <LVAR -0x001 @ 1(r)> 00021948 ; <LVAR -0x002 @ 1(r)> 00021948 ; -------------------------------------------------------------------------------------- 00021948 4e 56 ff b8 |NV | LINK.W A6,#0xffb8 0002194c bf d5 | | CMPA.L (A5),A7 0002194e 62 06 |b | BHI 0x21956 00021950 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021954 4e 76 |Nv | TRAPV 00021956 de fc 00 40 | @ | ADDA.W #0x40,A7 0002195a 48 e7 fb e0 |H | MOVEM.L A2+A1+A0+D7+D6+D4+D3+D2+D1+D0,-(A7) 0002195e 43 ee ff ff |C | LEA.L (A6-0x1),A1 00021962 45 f9 00 02 1c e8 |E | LEA.L 0x21ce8,A2 00021968 74 01 |t | MOVEQ.L #0x01,D2 0002196a 76 03 |v | MOVEQ.L #0x03,D3 0002196c 38 3c 09 b2 |8< | MOVE.W #0x9b2,D4 00021970 7e 00 |~ | MOVEQ.L #0x00,D7 00021972 30 04 |0 | MOVE.W D4,D0 00021974 c1 c7 | | MULS.W D7,D0 00021976 20 4a | J | MOVEA.L A2,A0 00021978 4a 30 00 0c |J0 | TST.B (A0+D0.W+#0xc) 0002197c 67 08 |g | BEQ 0x21986 0002197e 3f 07 |? | MOVE.W D7,-(A7) 00021980 4e ba f1 ba |N | JSR 0x20b3c 00021984 54 4f |TO | ADDQ.L #0x2,A7 00021986 52 47 |RG | ADDQ.W #0x1,D7 00021988 be 43 | C | CMP.W D3,D7 0002198a 6f e6 |o | BLE 0x21972 0002198c 7c 00 || | MOVEQ.L #0x00,D6 0002198e 7e 00 |~ | MOVEQ.L #0x00,D7 00021990 30 04 |0 | MOVE.W D4,D0 00021992 c1 c7 | | MULS.W D7,D0 00021994 20 4a | J | MOVEA.L A2,A0 00021996 4a 30 00 0c |J0 | TST.B (A0+D0.W+#0xc) 0002199a 67 00 00 b4 |g | BEQ 0x21a50 0002199e 52 86 |R | ADDQ.L #0x1,D6 000219a0 3f 07 |? | MOVE.W D7,-(A7) 000219a2 48 6e ff fe |Hn | PEA.L (A6-0x2) 000219a6 48 51 |HQ | PEA.L (A1) 000219a8 4e b9 00 01 02 08 |N | JSR KERNCALL_04 000219ae de fc 00 0a | | ADDA.W #0xa,A7 000219b2 4a 2e ff fe |J. | TST.B (A6-0x2) 000219b6 67 00 00 98 |g | BEQ 0x21a50 000219ba 12 30 00 0e | 0 | MOVE.B (A0+D0.W+#0xe),D1 000219be 48 81 |H | EXTB.W D1 000219c0 0c 41 00 06 | A | CMPI.W #0x0006,D1 000219c4 63 02 |c | BLS 0x219c8 000219c6 4e 4e |NN | TRAP #14 000219c8 d2 41 | A | ADD.W D1,D1 000219ca 32 3b 10 06 4e fb 10 02 |2; N | SWITCH D1.W 000219d2 00 6e | n | .CONST 0x6e ; [0x0] -> 0x21a40 000219d4 00 0e | | .CONST 0xe ; [0x1] -> 0x219e0 000219d6 00 1e | | .CONST 0x1e ; [0x2] -> 0x219f0 000219d8 00 5e | ^ | .CONST 0x5e ; [0x3] -> 0x21a30 000219da 00 2e | . | .CONST 0x2e ; [0x4] -> 0x21a00 000219dc 00 3e | > | .CONST 0x3e ; [0x5] -> 0x21a10 000219de 00 4e | N | .CONST 0x4e ; [0x6] -> 0x21a20 000219e0 switch@0x219ca[0x1]: 000219e0 3f 07 |? | MOVE.W D7,-(A7) 000219e2 10 11 | | MOVE.B (A1),D0 000219e4 48 80 |H | EXTB.W D0 000219e6 41 82 |A | CHK.W D2,D0 000219e8 1f 00 | | MOVE.B D0,-(A7) 000219ea 4e ba ff 00 |N | JSR 0x218ec 000219ee 60 5e |`^ | BRA 0x21a4e 000219f0 switch@0x219ca[0x2]: 000219f0 3f 07 |? | MOVE.W D7,-(A7) 000219f2 10 11 | | MOVE.B (A1),D0 000219f4 48 80 |H | EXTB.W D0 000219f6 41 82 |A | CHK.W D2,D0 000219f8 1f 00 | | MOVE.B D0,-(A7) 000219fa 4e ba f9 a0 |N | JSR 0x2139c 000219fe 60 4e |`N | BRA 0x21a4e 00021a00 switch@0x219ca[0x4]: 00021a00 3f 07 |? | MOVE.W D7,-(A7) 00021a02 10 11 | | MOVE.B (A1),D0 00021a04 48 80 |H | EXTB.W D0 00021a06 41 82 |A | CHK.W D2,D0 00021a08 1f 00 | | MOVE.B D0,-(A7) 00021a0a 4e ba fd 5e |N ^ | JSR 0x2176a 00021a0e 60 3e |`> | BRA 0x21a4e 00021a10 switch@0x219ca[0x5]: 00021a10 3f 07 |? | MOVE.W D7,-(A7) 00021a12 10 11 | | MOVE.B (A1),D0 00021a14 48 80 |H | EXTB.W D0 00021a16 41 82 |A | CHK.W D2,D0 00021a18 1f 00 | | MOVE.B D0,-(A7) 00021a1a 4e ba fd b0 |N | JSR 0x217cc 00021a1e 60 2e |`. | BRA 0x21a4e 00021a20 switch@0x219ca[0x6]: 00021a20 3f 07 |? | MOVE.W D7,-(A7) 00021a22 10 11 | | MOVE.B (A1),D0 00021a24 48 80 |H | EXTB.W D0 00021a26 41 82 |A | CHK.W D2,D0 00021a28 1f 00 | | MOVE.B D0,-(A7) 00021a2a 4e ba fe 02 |N | JSR 0x2182e 00021a2e 60 1e |` | BRA 0x21a4e 00021a30 switch@0x219ca[0x3]: 00021a30 3f 07 |? | MOVE.W D7,-(A7) 00021a32 10 11 | | MOVE.B (A1),D0 00021a34 48 80 |H | EXTB.W D0 00021a36 41 82 |A | CHK.W D2,D0 00021a38 1f 00 | | MOVE.B D0,-(A7) 00021a3a 4e ba fb ce |N | JSR 0x2160a 00021a3e 60 0e |` | BRA 0x21a4e 00021a40 switch@0x219ca[0x0]: 00021a40 3f 07 |? | MOVE.W D7,-(A7) 00021a42 10 11 | | MOVE.B (A1),D0 00021a44 48 80 |H | EXTB.W D0 00021a46 41 82 |A | CHK.W D2,D0 00021a48 1f 00 | | MOVE.B D0,-(A7) 00021a4a 4e ba fe 44 |N D | JSR 0x21890 00021a4e 58 4f |XO | ADDQ.L #0x4,A7 00021a50 52 47 |RG | ADDQ.W #0x1,D7 00021a52 be 43 | C | CMP.W D3,D7 00021a54 6f 00 ff 3a |o : | BLE 0x21990 00021a58 55 4f |UO | SUBQ.L #0x2,A7 00021a5a 4e ba ee 00 |N | JSR 0x2085c 00021a5e 4a 1f |J | TST.B (A7)+ 00021a60 66 06 |f | BNE 0x21a68 00021a62 4a 86 |J | TST.L D6 00021a64 66 00 ff 26 |f & | BNE 0x2198c 00021a68 7e 00 |~ | MOVEQ.L #0x00,D7 00021a6a 30 04 |0 | MOVE.W D4,D0 00021a6c c1 c7 | | MULS.W D7,D0 00021a6e 20 4a | J | MOVEA.L A2,A0 00021a70 4a 30 00 0c |J0 | TST.B (A0+D0.W+#0xc) 00021a74 67 0c |g | BEQ 0x21a82 00021a76 3f 07 |? | MOVE.W D7,-(A7) 00021a78 48 51 |HQ | PEA.L (A1) 00021a7a 4e b9 00 01 02 06 |N | JSR KC03_Wait_Disk_IO(a : W; VAR status : Byte) 00021a80 5c 4f |\O | ADDQ.L #0x6,A7 00021a82 52 47 |RG | ADDQ.W #0x1,D7 00021a84 be 43 | C | CMP.W D3,D7 00021a86 6f e2 |o | BLE 0x21a6a 00021a88 4c df 07 df |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D6+D7+A0+A1+A2 00021a8c 4e 5e |N^ | UNLK A6 00021a8e 4e 75 |Nu | RTS 00021a90 ; -------------------------------------------------------------------------------------- 00021a90 ; OMSI PASCAL Function 00021a90 ; -------------------------------------------------------------------------------------- 00021a90 START: 00021a90 4f fa 00 08 |O | LEA.L MAIN,A7 00021a94 4e f9 00 01 02 80 |N | JMP ?start_program 00021a9a MAIN: 00021a9a 72 01 |r | MOVEQ.L #0x01,D1 00021a9c 4e b9 00 01 03 98 |N | JSR FSCALL_10398 00021aa2 23 c1 00 02 43 bc |# C | MOVE.L D1,0x243bc 00021aa8 4e ba ea 56 |N V | JSR 0x20500 00021aac 4e ba fe 9a |N | JSR 0x21948 00021ab0 41 fa e8 14 |A | LEA.L 0x202c6,A0 00021ab4 70 04 |p | MOVEQ.L #0x04,D0 00021ab6 2f 20 |/ | MOVE.L -(A0),-(A7) 00021ab8 51 c8 ff fc |Q | DBF D0,0x21ab6 00021abc 42 27 |B' | CLR.B -(A7) 00021abe 59 4f |YO | SUBQ.L #0x4,A7 00021ac0 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00021ac4 3f 01 |? | MOVE.W D1,-(A7) 00021ac6 3f 3c 00 14 |?< | MOVE.W #0x14,-(A7) 00021aca 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00021ad0 50 4f |PO | ADDQ.L #0x8,A7 00021ad2 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00021ad8 de fc 00 1a | | ADDA.W #0x1a,A7 00021adc 4e b9 00 01 02 84 |N | JSR ?exit 00021ae2 57 6f 72 64 73 20 65 72 |Words er| .TXT 'Words error :_' 00021af0 ; -------------------------------------------------------------------------------------- 00021af0 ; OMSI PASCAL Function 00021af0 ; <LVAR 0x008 1(r)> 00021af0 ; -------------------------------------------------------------------------------------- 00021af0 PROG_FAIL: 00021af0 4e 56 ff d2 |NV | LINK.W A6,#0xffd2 00021af4 bf d5 | | CMPA.L (A5),A7 00021af6 62 06 |b | BHI 0x21afe 00021af8 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021afc 4e 76 |Nv | TRAPV 00021afe de fc 00 2c | , | ADDA.W #0x2c,A7 00021b02 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 00021b06 41 fa ff e8 |A | LEA.L PROG_FAIL,A0 00021b0a 70 06 |p | MOVEQ.L #0x06,D0 00021b0c 3f 20 |? | MOVE.W -(A0),-(A7) 00021b0e 51 c8 ff fc |Q | DBF D0,0x21b0c 00021b12 1f 3c 00 03 | < | MOVE.B #0x03,-(A7) 00021b16 51 4f |QO | SUBQ.L #0x8,A7 00021b18 48 6f 00 0a |Ho | PEA.L (A7+0xa) 00021b1c 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00021b20 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7) 00021b24 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00021b2a 58 4f |XO | ADDQ.L #0x4,A7 00021b2c 10 2e 00 08 | . | MOVE.B (A6+0x8),D0 00021b30 48 80 |H | EXTB.W D0 00021b32 48 c0 |H | EXTW.L D0 00021b34 2f 00 |/ | MOVE.L D0,-(A7) 00021b36 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00021b3c 58 4f |XO | ADDQ.L #0x4,A7 00021b3e 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00021b44 50 4f |PO | ADDQ.L #0x8,A7 00021b46 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00021b4c de fc 00 14 | | ADDA.W #0x14,A7 00021b50 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 00021b54 4e 5e |N^ | UNLK A6 00021b56 4e 75 |Nu | RTS 00021b58 42 6f 61 72 64 20 20 20 |Board | .TXT 'Board :_ ' 00021b66 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment :_ ' 00021b74 53 74 61 74 75 73 20 20 |Status | .TXT 'Status :_ ' 00021b82 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment error :' 00021b94 46 61 74 61 6c 20 65 78 |Fatal ex| .TXT 'Fatal experiment error. ' 00021bac ; -------------------------------------------------------------------------------------- 00021bac ; OMSI PASCAL Function 00021bac ; <LVAR 0x00e 1(r)> 00021bac ; <LVAR 0x00a 4(r)> 00021bac ; <LVAR 0x008 1(r)> 00021bac ; -------------------------------------------------------------------------------------- 00021bac EXP_FAIL: 00021bac 4e 56 ff 8c |NV | LINK.W A6,#0xff8c 00021bb0 bf d5 | | CMPA.L (A5),A7 00021bb2 62 06 |b | BHI 0x21bba 00021bb4 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021bb8 4e 76 |Nv | TRAPV 00021bba de fc 00 74 | t | ADDA.W #0x74,A7 00021bbe 48 e7 fc f8 |H | MOVEM.L A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7) 00021bc2 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 00021bc8 49 f9 00 01 03 e0 |I | LEA.L WriteConsoleStringCrLf(str : String),A4 00021bce 72 01 |r | MOVEQ.L #0x01,D1 00021bd0 74 0d |t | MOVEQ.L #0x0d,D2 00021bd2 76 1e |v | MOVEQ.L #0x1e,D3 00021bd4 78 12 |x | MOVEQ.L #0x12,D4 00021bd6 7a 0e |z | MOVEQ.L #0x0e,D5 00021bd8 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 00021bde 41 fa ff b4 |A | LEA.L 0x21b94,A0 00021be2 70 08 |p | MOVEQ.L #0x08,D0 00021be4 3f 20 |? | MOVE.W -(A0),-(A7) 00021be6 51 c8 ff fc |Q | DBF D0,0x21be4 00021bea 59 4f |YO | SUBQ.L #0x4,A7 00021bec 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021bf0 3f 01 |? | MOVE.W D1,-(A7) 00021bf2 3f 04 |? | MOVE.W D4,-(A7) 00021bf4 4e 93 |N | JSR (A3) 00021bf6 50 4f |PO | ADDQ.L #0x8,A7 00021bf8 4e 94 |N | JSR (A4) 00021bfa 50 4f |PO | ADDQ.L #0x8,A7 00021bfc 20 4f | O | MOVEA.L A7,A0 00021bfe 43 fa ff 58 |C X | LEA.L 0x21b58,A1 00021c02 70 0c |p | MOVEQ.L #0x0c,D0 00021c04 10 d9 | | MOVE.B (A1)+,(A0)+ 00021c06 51 c8 ff fc |Q | DBF D0,0x21c04 00021c0a 51 4f |QO | SUBQ.L #0x8,A7 00021c0c 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00021c10 3f 01 |? | MOVE.W D1,-(A7) 00021c12 3f 02 |? | MOVE.W D2,-(A7) 00021c14 4e 93 |N | JSR (A3) 00021c16 54 4f |TO | ADDQ.L #0x2,A7 00021c18 1e ae 00 0e | | MOVE.B (A6+0xe),(A7) 00021c1c 4e b9 00 01 04 9c |N | JSR BoardName(address : B) : String 00021c22 54 4f |TO | ADDQ.L #0x2,A7 00021c24 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00021c2a 50 4f |PO | ADDQ.L #0x8,A7 00021c2c 4e 94 |N | JSR (A4) 00021c2e de c4 | | ADDA.W D4,A7 00021c30 20 6e 00 0a | n | MOVEA.L (A6+0xa),A0 00021c34 b0 c1 | | CMPA.W D1,A0 00021c36 67 48 |gH | BEQ 0x21c80 00021c38 9e c5 | | SUBA.W D5,A7 00021c3a 22 4f |"O | MOVEA.L A7,A1 00021c3c 45 fa ff 28 |E ( | LEA.L 0x21b66,A2 00021c40 70 0c |p | MOVEQ.L #0x0c,D0 00021c42 12 da | | MOVE.B (A2)+,(A1)+ 00021c44 51 c8 ff fc |Q | DBF D0,0x21c42 00021c48 9e c3 | | SUBA.W D3,A7 00021c4a 22 4f |"O | MOVEA.L A7,A1 00021c4c 41 e8 00 fc |A | LEA.L (A0+0xfc),A0 00021c50 70 1d |p | MOVEQ.L #0x1d,D0 00021c52 12 d8 | | MOVE.B (A0)+,(A1)+ 00021c54 51 c8 ff fc |Q | DBF D0,0x21c52 00021c58 51 4f |QO | SUBQ.L #0x8,A7 00021c5a 48 6f 00 26 |Ho & | PEA.L (A7+0x26) 00021c5e 3f 01 |? | MOVE.W D1,-(A7) 00021c60 3f 02 |? | MOVE.W D2,-(A7) 00021c62 4e 93 |N | JSR (A3) 00021c64 58 4f |XO | ADDQ.L #0x4,A7 00021c66 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00021c6a 3f 01 |? | MOVE.W D1,-(A7) 00021c6c 3f 03 |? | MOVE.W D3,-(A7) 00021c6e 4e 93 |N | JSR (A3) 00021c70 50 4f |PO | ADDQ.L #0x8,A7 00021c72 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00021c78 50 4f |PO | ADDQ.L #0x8,A7 00021c7a 4e 94 |N | JSR (A4) 00021c7c de fc 00 30 | 0 | ADDA.W #0x30,A7 00021c80 9e c5 | | SUBA.W D5,A7 00021c82 20 4f | O | MOVEA.L A7,A0 00021c84 43 fa fe ee |C | LEA.L 0x21b74,A1 00021c88 70 0c |p | MOVEQ.L #0x0c,D0 00021c8a 10 d9 | | MOVE.B (A1)+,(A0)+ 00021c8c 51 c8 ff fc |Q | DBF D0,0x21c8a 00021c90 51 4f |QO | SUBQ.L #0x8,A7 00021c92 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00021c96 3f 01 |? | MOVE.W D1,-(A7) 00021c98 3f 02 |? | MOVE.W D2,-(A7) 00021c9a 4e 93 |N | JSR (A3) 00021c9c 54 4f |TO | ADDQ.L #0x2,A7 00021c9e 1e ae 00 08 | | MOVE.B (A6+0x8),(A7) 00021ca2 4e b9 00 01 04 a2 |N | JSR ExpStatus2Text(status.B, &String) 00021ca8 54 4f |TO | ADDQ.L #0x2,A7 00021caa 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00021cb0 50 4f |PO | ADDQ.L #0x8,A7 00021cb2 4e 94 |N | JSR (A4) 00021cb4 5d 4f |]O | SUBQ.L #0x6,A7 00021cb6 20 4f | O | MOVEA.L A7,A0 00021cb8 43 fa fe da |C | LEA.L 0x21b94,A1 00021cbc 70 16 |p | MOVEQ.L #0x16,D0 00021cbe 10 d9 | | MOVE.B (A1)+,(A0)+ 00021cc0 51 c8 ff fc |Q | DBF D0,0x21cbe 00021cc4 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 00021cc8 59 4f |YO | SUBQ.L #0x4,A7 00021cca 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00021cce 3f 01 |? | MOVE.W D1,-(A7) 00021cd0 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7) 00021cd4 4e 93 |N | JSR (A3) 00021cd6 50 4f |PO | ADDQ.L #0x8,A7 00021cd8 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00021cde de c3 | | ADDA.W D3,A7 00021ce0 4c df 1f 3f |L ? | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4 00021ce4 4e 5e |N^ | UNLK A6 00021ce6 4e 75 |Nu | RTS