|
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: 8192 (0x2000)
Types: M200
Notes: @(#)DISKX,1.1,92/07/09,12:00:00, M200_PROGRAM
Names: »DISKX.M200«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »DISKX.M200«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »DISKX.M200«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »DISKX.M200«
@ 20578
<LVAR 0x010 4(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 20578-205d2 Body>
<POP 20578-2058e Prologue> Σ0 ↓
<POP 2058e-20594 RegCacheLoad> Σ0 ↓
<POP 20594-205ca Naked> Σ0 ↓
<MI 20594 MOVE.L 0x2633a,D4> {}
<MI 20596 MOVE.L #0x1a5,D3> {}
<Call 0x2059c 0x1028c> {}
?muls_d3_d4
<MI 205a2 MOVE.L D4,0x2633a> {}
<MI 205a4 ADDQ.L #0x1,0x2633a> {}
<MI 205a6 ANDI.L #0x00007fff,0x2633a> {}
<MI 205ac MOVE.L (A6+0x8),D7> {}
<MI 205b0 SUB.L (A6+0xc),D7> {}
<MI 205b4 ADDQ.L #0x1,D7> {}
<MI 205b6 MOVE.L 0x2633a,D4> {}
<MI 205b8 MOVE.L D7,D3> {}
<Call 0x205ba 0x10294> {}
?divs_d3_d4
<MI 205c0 ADD.L (A6+0xc),D3> {}
<MI 205c4 MOVE.L D3,D7> {}
<MI 205c6 MOVE.L D7,(A6+0x10)> {}
<POP 205ca-205d2 Epilogue> Σ0
@ 205d2
<LVAR 0x008 4(w)>
<POP 205d2-20626 Body>
<POP 205d2-205e8 Prologue> Σ0 ↓
<POP 205e8-205ee RegCacheLoad> Σ0 ↓
<POP 205ee-205fa Naked> Σ0 ↓ →0x20600
<MI 205ee ADDQ.L #0x1,0x26336> {}
<MI 205f0 MOVE.L 0x26336,D0> {}
<MI 205f2 CMPI.L #0x00000005,D0> {}
<MI 205f8 BLE 0x20600> {}
<POP 205fa-20600 Naked> Σ0 ↓
<MI 205fa MOVE.L #0x1,0x26336> {}
<POP 20600-2061e Naked> Σ0 ↓ ←0x205ee
<MI 20600 MOVE.L 0x26336,D0> {}
<MI 20602 SUBQ.L #0x1,D0> {}
<POP 0x20604 LimitCheck 0x0 ≤ D0 ≤ 0x4> {}
<MI 2060e ASL.L #0x1,D0> {}
<MI 20610 LEA.L 0x20540,A0> {}
<MI 20614 CLR.L D1> {}
<MI 20616 MOVE.W (A0+D0.L),D1> {}
<MI 2061a MOVE.L D1,(A6+0x8)> {}
<POP 2061e-20626 Epilogue> Σ0
@ 20626
<LVAR 0x00a 1(rw)>
<LVAR 0x008 2(r)>
<LVAR -0x008 @ 2(r)>
<LVAR -0x00a @>
<LVAR -0x00c 2(r)>
<LVAR -0x00e 2(r)>
<LVAR -0x010 2(w)>
<LVAR -0x012 2(r)>
<LVAR -0x014 2(r)>
<LVAR -0x016 2(w)>
<LVAR -0x018 2(r)>
<LVAR -0x01a @ 2(r)>
<POP 20626-206a0 Body>
<POP 20626-2063c Prologue> Σ0 ↓
<POP 2063c-20694 Naked> Σ0 ↓ →0x20698
<MI 2063c CLR.W (A6-0x1a)> {}
<MI 20640 CLR.W (A6-0x18)> {}
<MI 20644 MOVE.W #0x2,(A6-0x16)> {}
<MI 2064a CLR.W (A6-0x14)> {}
<MI 2064e CLR.W (A6-0x12)> {}
<MI 20652 MOVE.W (A6+0x8),D0> {}
<MI 20656 ASL.W #0x8,D0> {}
<MI 20658 MOVE.W D0,(A6-0x10)> {}
<MI 2065c CLR.W (A6-0xe)> {}
<MI 20660 CLR.W (A6-0xc)> {}
<Pointer.fp 0x20664 <LVAR -0x01a @ 2(r)>> Δ-4 {[@@-26]}
<MI 20668 LEA.L (A6-0x8),A0> {[@@-26]}
<MI 2066c MOVE.L A0,-(A7)> Δ-4 {[@@-26]|[4, 'A0']}
<MI 2066e CLR.W -(A7)> Δ-2 {[@@-26]|[4, 'A0']|[#0]}
<Call 0x20670 0x10204> {[@@-26]|[4, 'A0']|[#0]}
KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
<POP 20676-20678 StackAdj> Δ+8 {[-2-]}
<MI 20678 CLR.W (A7)> {[-2-]}
<Pointer.fp 0x2067a <LVAR -0x00a @>> Δ-4 {[-2-]|[@@-10]}
<Call 0x2067e 0x10206> {[-2-]|[@@-10]}
KC03_Wait_Disk_IO(a : W; VAR status : Byte)
<POP 20684-20686 StackAdj> Δ+6 {}
<MI 20686 CLR.B (A6+0xa)> {}
<MI 2068a MOVE.W (A6-0x8),D0> {}
<MI 2068e CMPI.W #0x0001,D0> {}
<MI 20692 BNE 0x20698> {}
<POP 20694-20698 Naked> Σ0 ↓
<MI 20694 ADDQ.B #0x1,(A6+0xa)> {}
<POP 20698-206a0 Epilogue> Σ0 ←0x2063c
@ 206a0
<LVAR 0x008 2(r)>
<LVAR -0x006 @ 1(r)>
<LVAR -0x3d6 2(r)>
<LVAR -0x3da 2(r)>
<LVAR -0x3fb 1(r)>
<LVAR -0x3fc 1(r)>
<LVAR -0x406 @>
<POP 206a0-207bc Body>
<POP 206a0-206b6 Prologue> Σ0 ↓
<POP 206b6-206bc RegCacheLoad> Σ0 ↓
<POP 206bc-206f6 Naked> Σ0 ↓ →0x20742
<MI 206bc MOVE.W 0x10008,D0> {}
<POP 0x206c2 LimitCheck 0x0 ≤ D0 ≤ 0xf> {}
<MI 206c6 MOVE.W D0,D7> {}
<MI 206c8 MOVE.W (A6+0x8),0x10008> {}
<Const 0x206ce 0x2.2> Δ-2 {[#2]}
<Const 0x206d0 0x2.2> Δ-2 {[#2]|[#2]}
<Const 0x206d2 0x1.4> Δ-4 {[#2]|[#2]|[##1]}
<MI 206d6 LEA.L (A6-0x406),A0> {[#2]|[#2]|[##1]}
<MI 206da MOVE.L A0,-(A7)> Δ-4 {[#2]|[#2]|[##1]|[4, 'A0']}
<Pointer.fp 0x206dc <LVAR -0x006 @ 1(r)>> Δ-4 {[#2]|[#2]|[##1]|[4, 'A0']|[@@-6]}
<Call 0x206e0 0x1036c> {[#2]|[#2]|[##1]|[4, 'A0']|[@@-6]}
RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B)
<POP 206e6-206ea StackAdj> Δ+16 {}
<MI 206ea MOVE.W D7,0x10008> {}
<MI 206f0 TST.B (A6-0x6)> {}
<MI 206f4 BNE 0x20742> {}
<POP 206f6-20742 Naked> Σ0 ↓
<Blob 0x206f6 [28] @> Δ-28 {[«28""»]}
<Const 0x20708 0xe.2> Δ-2 {[«28""»]|[#14]}
<POP 2070c-2070e StackAdj> Δ-8 {[«28""»]|[#14]|[-8-]}
<Lit 0x2070e 27> {[«28""»]|[#14]|[-4-]|[$$Disk has no labels, unit :_]}
<POP 20720-20722 StackAdj> Δ-4 {[«28""»]|[#14]|[-4-]|[$$Disk has no labels, unit :_]|[-4-]}
<MI 20722 MOVE.W (A6+0x8),D0> {[«28""»]|[#14]|[-4-]|[$$Disk has no labels, unit :_]|[-4-]}
<MI 20724 EXTW.L D0> {[«28""»]|[#14]|[-4-]|[$$Disk has no labels, unit :_]|[-4-]}
<MI 20726 MOVE.L D0,-(A7)> Δ-4 {[«28""»]|[#14]|[-4-]|[$$Disk has no labels, unit :_]|[-4-]|[4, 'D0']}
<Call 0x20728 0x102e4> {[«28""»]|[#14]|[-4-]|[$$Disk has no labels, unit :_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 2072e-20730 StackAdj> Δ+4 {[«28""»]|[#14]|[-4-]|[$$Disk has no labels, unit :_]|[-4-]}
<Call 0x20730 0x102d0> {[«28""»]|[#14]|[-4-]|[$$Disk has no labels, unit :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 20736-20738 StackAdj> Δ+8 {[«28""»]|[#14]|[-4-]}
<Call 0x20738 0x103b8> {[«28""»]|[#14]|[-4-]}
PopProgram(status : Byte; msg : String)
<POP 2073e-20742 StackAdj> Δ+34 {}
<POP 20742-207b4 Naked> Σ0 ↓ ←0x206bc
<MI 20742 MOVE.W #0x444,D0> {}
<MI 20746 MULS.W (A6+0x8),D0> {}
<MI 20748 LEA.L 0x21eea,A0> {}
<MI 2074e CLR.L (A0+D0.W+#0xe)> {}
<MI 20752 CLR.L (A0+D0.W+#0x12)> {}
<MI 20756 CLR.L (A0+D0.W+#0x16)> {}
<MI 2075a CLR.L D1> {}
<MI 2075c MOVE.W (A6-0x3da),D1> {}
<MI 20760 MOVE.L D1,(A0+D0.W+#0x26)> {}
<MI 20764 CLR.L D1> {}
<MI 20766 MOVE.W (A6-0x3d6),D1> {}
<MI 2076a MOVE.L D1,(A0+D0.W+#0x2a)> {}
<MI 2076e CLR.L D1> {}
<MI 20770 MOVE.B (A6-0x3fb),D1> {}
<MI 20774 ASR.W #0x1,D1> {}
<MI 20776 MOVE.W D1,(A0+D0.W+#0x30)> {}
<MI 2077a CLR.L D1> {}
<MI 2077c MOVE.B (A6-0x3fc),D1> {}
<MI 20780 MOVE.W D1,(A0+D0.W+#0x2e)> {}
<MI 20784 MOVE.L (A0+D0.W+#0x26),(A0+D0.W+#0x22)> {}
<MI 2078a CLR.L (A0+D0.W+#0x1e)> {}
<MI 2078e CLR.L (A0+D0.W+#0x1a)> {}
<MI 20792 LEA.L (A0+D0.W+#0xc),A0> {}
<POP 20796-20798 StackAdj> Δ-8 {[-8-]}
<Const 0x20798 0x0.4> Δ-4 {[-8-]|[##0]}
<Call 0x2079c 0x10354> {[-8-]|[##0]}
Long2Quad(a : Long) : Quad
<POP 207a2-207a4 StackAdj> Δ+4 {[-8-]}
<MI 207a4 LEA.L (A0+0x43c),A0> {[-8-]}
<MI 207a8 MOVEA.L A7,A1> {[-8-]}
<BlockMove 8,A1,A0> {[-8-]}
<POP 207b2-207b4 StackAdj> Δ+8 {}
<POP 207b4-207bc Epilogue> Σ0
@ 207bc
<POP 207bc-20982 Body>
<POP 207bc-207d2 Prologue> Σ0 ↓
<POP 207d2-207e8 RegCacheLoad> Σ0 ↓
<POP 207e8-207ea Naked> Σ0 ↓
<MI 207e8 MOVEQ.L #0x00,D7> {}
<POP 207ea-20804 Naked> Σ0 ↓ →0x2080a ←0x2085c
<MI 207ea MOVE.W #0x444,D0> {}
<MI 207ee MULS.W D7,D0> {}
<MI 207f0 LEA.L 0x21eea,A0> {}
<POP 207f6-207f8 StackAdj> Δ-2 {[-2-]}
<MI 207f8 MOVE.W D7,-(A7)> Δ-2 {[-2-]|[2, 'D7']}
<Call 0x207fa 0x20626> {[-2-]|[2, 'D7']}
<POP 207fe-20800 StackAdj> Δ+2 {[-2-]}
<MI 20800 TST.B (A7)+> Δ+2 {}
<MI 20802 BNE 0x2080a> {}
<POP 20804-2080a Naked> Σ0 →0x2084e
<MI 20804 CLR.B (A0+D0.W+#0xc)> {}
<MI 20808 BRA 0x2084e> {}
<POP 2080a-2084e Naked> Σ0 ↓ ←0x207ea
<Blob 0x2080a [14] @> Δ-14 {[«14""»]}
<POP 20816-2081a StackAdj> Δ-10 {[«14""»]|[-10-]}
<Lit 0x2081a 14> {[«14""»]|[-6-]|[$$Exercize unit_]}
<POP 20824-20826 StackAdj> Δ-4 {[«14""»]|[-6-]|[$$Exercize unit_]|[-4-]}
<MI 20826 MOVE.W D7,D1> {[«14""»]|[-6-]|[$$Exercize unit_]|[-4-]}
<MI 20828 EXTW.L D1> {[«14""»]|[-6-]|[$$Exercize unit_]|[-4-]}
<MI 2082a MOVE.L D1,-(A7)> Δ-4 {[«14""»]|[-6-]|[$$Exercize unit_]|[-4-]|[4, 'D1']}
<Call 0x2082c 0x102e4> {[«14""»]|[-6-]|[$$Exercize unit_]|[-4-]|[4, 'D1']}
Long2String(a : Long) : String
<POP 2082e-20830 StackAdj> Δ+4 {[«14""»]|[-6-]|[$$Exercize unit_]|[-4-]}
<Call 0x20830 0x102d0> {[«14""»]|[-6-]|[$$Exercize unit_]|[-4-]}
StringCat2(a, b : String) : String
<POP 20836-20838 StackAdj> Δ+6 {[«14""»]|[-6-]|[-2-]}
<POP 20838-20839 StackAdj> Δ+2 {[«14""»]|[-6-]}
<Const 0x20839 0x1.2> Δ-2 {[«14""»]|[-6-]|[#1]}
<Call 0x2083a 0x103f0> {[«14""»]|[-6-]|[#1]}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 20840-20842 StackAdj> Δ+6 {[«14""»]|[-2-]}
<MI 20842 MOVE.B (A7)+,D1> Δ+2 {[«14""»]}
<MI 20844 EXTB.W D1> {[«14""»]}
<POP 0x20846 LimitCheck 0x0 ≤ D1 ≤ 0x1> {[«14""»]}
<POP 20848-2084a StackAdj> Δ+14 {}
<MI 2084a MOVE.B D1,(A0+D0.W+#0xc)> {}
<POP 2084e-20854 Naked> Σ0 ↓ →0x2085c ←0x20804
<MI 2084e TST.B (A0+D0.W+#0xc)> {}
<MI 20852 BEQ 0x2085c> {}
<POP 20854-2085c Naked> Σ0 ↓
<MI 20854 MOVE.W D7,-(A7)> Δ-2 {[2, 'D7']}
<Call 0x20856 0x206a0> {[2, 'D7']}
<POP 2085a-2085c StackAdj> Δ+2 {}
<POP 2085c-20862 Naked> Σ0 ↓ →0x207ea ←0x2084e
<MI 2085c ADDQ.W #0x1,D7> {}
<MI 2085e CMP.W #0x0f,D7> {}
<MI 20860 BLE 0x207ea> {}
<POP 20862-20864 Naked> Σ0 ↓
<MI 20862 MOVEQ.L #0x00,D7> {}
<POP 20864-20878 Naked> Σ0 ↓ →0x20904 ←0x20904
<MI 20864 MOVE.W #0x444,D0> {}
<MI 20868 MULS.W D7,D0> {}
<MI 2086a LEA.L 0x21eea,A0> {}
<MI 20870 TST.B (A0+D0.W+#0xc)> {}
<MI 20874 BEQ 0x20904> {}
<POP 20878-20904 Naked> Σ0 ↓
<Blob 0x20878 [14] @> Δ-14 {[«14""»]}
<Blob 0x20888 [20] @> Δ-20 {[«14""»]|[«20""»]}
<Blob 0x2089a [2] @> Δ-2 {[«14""»]|[«20""»]|[«2""»]}
<Blob 0x2089e [2] @> Δ-2 {[«14""»]|[«20""»]|[«2""»]|[«2""»]}
<POP 208a2-208a4 StackAdj> Δ-8 {[«14""»]|[«20""»]|[«2""»]|[«2""»]|[-8-]}
<Lit 0x208a4 13> {[«14""»]|[«20""»]|[«2""»]|[«2""»]|[-4-]|[$$Disk unit =>_]}
<POP 208b0-208b2 StackAdj> Δ-4 {[«14""»]|[«20""»]|[«2""»]|[«2""»]|[-4-]|[$$Disk unit =>_]|[-4-]}
<MI 208b2 MOVE.W D7,D1> {[«14""»]|[«20""»]|[«2""»]|[«2""»]|[-4-]|[$$Disk unit =>_]|[-4-]}
<MI 208b4 EXTW.L D1> {[«14""»]|[«20""»]|[«2""»]|[«2""»]|[-4-]|[$$Disk unit =>_]|[-4-]}
<MI 208b6 MOVE.L D1,-(A7)> Δ-4 {[«14""»]|[«20""»]|[«2""»]|[«2""»]|[-4-]|[$$Disk unit =>_]|[-4-]|[4, 'D1']}
<Call 0x208b8 0x102e4> {[«14""»]|[«20""»]|[«2""»]|[«2""»]|[-4-]|[$$Disk unit =>_]|[-4-]|[4, 'D1']}
Long2String(a : Long) : String
<Lit 0x208ba 19> {[«14""»]|[«20""»]|[«2""»]|[«2""»]|[-4-]|[$$Disk unit =>_]|[-4-]|[$$, using cylinders []}
<MI 208c6 MOVE.L (A0+D0.W+#0x26),(A7)> {[«14""»]|[«20""»]|[«2""»]|[«2""»]|[-4-]|[$$Disk unit =>_]|[-4-]|[4, '(A0+D0.W+#0x26)']}
<POP 208c4-208c6 StackAdj> Δ-8 {[«14""»]|[«20""»]|[«2""»]|[«2""»]|[-4-]|[$$Disk unit =>_]|[-4-]|[4, '(A0+D0.W+#0x26)']|[-8-]}
<Call 0x208ca 0x102e4> {[«14""»]|[«20""»]|[«2""»]|[«2""»]|[-4-]|[$$Disk unit =>_]|[-4-]|[4, '(A0+D0.W+#0x26)']|[-8-]}
Long2String(a : Long) : String
<Lit 0x208cc 2> {[«14""»]|[«20""»]|[«2""»]|[«2""»]|[-4-]|[$$Disk unit =>_]|[-4-]|[4, '(A0+D0.W+#0x26)']|[-4-]|[$$..]}
<MI 208d6 MOVE.L (A0+D0.W+#0x2a),-(A7)> Δ-4 {[«14""»]|[«20""»]|[«2""»]|[«2""»]|[-4-]|[$$Disk unit =>_]|[-4-]|[4, '(A0+D0.W+#0x26)']|[-4-]|[$$..]|[4, '(A0+D0.W+#0x2a)']}
<POP 208d4-208d6 StackAdj> Δ-8 {[«14""»]|[«20""»]|[«2""»]|[«2""»]|[-4-]|[$$Disk unit =>_]|[-4-]|[4, '(A0+D0.W+#0x26)']|[-4-]|[$$..]|[4, '(A0+D0.W+#0x2a)']|[-8-]}
<Call 0x208da 0x102e4> {[«14""»]|[«20""»]|[«2""»]|[«2""»]|[-4-]|[$$Disk unit =>_]|[-4-]|[4, '(A0+D0.W+#0x26)']|[-4-]|[$$..]|[4, '(A0+D0.W+#0x2a)']|[-8-]}
Long2String(a : Long) : String
<Lit 0x208dc 2> {[«14""»]|[«20""»]|[«2""»]|[«2""»]|[-4-]|[$$Disk unit =>_]|[-4-]|[4, '(A0+D0.W+#0x26)']|[-4-]|[$$..]|[4, '(A0+D0.W+#0x2a)']|[-4-]|[$$] ]}
<Call 0x208e8 0x102d0> {[«14""»]|[«20""»]|[«2""»]|[«2""»]|[-4-]|[$$Disk unit =>_]|[-4-]|[4, '(A0+D0.W+#0x26)']|[-4-]|[$$..]|[4, '(A0+D0.W+#0x2a)']|[-4-]|[$$] ]}
StringCat2(a, b : String) : String
<POP 208ee-208f0 StackAdj> Δ+8 {[«14""»]|[«20""»]|[«2""»]|[«2""»]|[-4-]|[$$Disk unit =>_]|[-4-]|[4, '(A0+D0.W+#0x26)']|[-4-]|[$$..]|[4, '(A0+D0.W+#0x2a)']}
<Call 0x208f0 0x102e0> {[«14""»]|[«20""»]|[«2""»]|[«2""»]|[-4-]|[$$Disk unit =>_]|[-4-]|[4, '(A0+D0.W+#0x26)']|[-4-]|[$$..]|[4, '(A0+D0.W+#0x2a)']}
StringCat6(a, b, c, d, e, f : String) : String
<POP 208f6-208fa StackAdj> Δ+24 {[«14""»]|[«20""»]|[«2""»]|[«2""»]|[-4-]}
<Call 0x208fa 0x103e0> {[«14""»]|[«20""»]|[«2""»]|[«2""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 20900-20904 StackAdj> Δ+42 {}
<POP 20904-2090c Naked> Σ0 ↓ →0x20864 ←0x20864
<MI 20904 ADDQ.W #0x1,D7> {}
<MI 20906 CMP.W #0x0f,D7> {}
<MI 20908 BLE 0x20864> {}
<POP 2090c-2097a Naked> Σ0 ↓
<Const 0x2090c 0x21ef2.4> Δ-4 {[##138994]}
<Call 0x20912 0x10304> {[##138994]}
GetRtc() : TimeStamp
<POP 20918-2091a StackAdj> Δ+4 {}
<Blob 0x2091a [40] @> Δ-40 {[«40""»]}
<POP 20926-20928 StackAdj> Δ-8 {[«40""»]|[-8-]}
<Lit 0x20928 40> {[«40""»]|[-4-]|[$$DFS based disk exerciser, started at => ]}
<POP 20934-20935 StackAdj> Δ-4 {[«40""»]|[-4-]|[$$DFS based disk exerciser, started at => ]|[-4-]}
<Blob 0x20935 [4] 0x21ef2> Δ-4 {[«40""»]|[-4-]|[$$DFS based disk exerciser, started at => ]|[-4-]|[«4»]}
<Call 0x2093a 0x10308> {[«40""»]|[-4-]|[$$DFS based disk exerciser, started at => ]|[-4-]|[«4»]}
TimeToText()
<POP 20940-20942 StackAdj> Δ+4 {[«40""»]|[-4-]|[$$DFS based disk exerciser, started at => ]|[-4-]}
<Call 0x20942 0x102d0> {[«40""»]|[-4-]|[$$DFS based disk exerciser, started at => ]|[-4-]}
StringCat2(a, b : String) : String
<POP 20948-2094a StackAdj> Δ+8 {[«40""»]|[-4-]}
<Call 0x2094a 0x103e0> {[«40""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 20950-20951 StackAdj> Δ+44 ↓ {}
<Blob 0x20951 [48] @> Δ-48 {[«48""»]}
<POP 20960-20962 StackAdj> Δ-4 {[«48""»]|[-4-]}
<Lit 0x20962 47> {[«48""»]|[$$Type ^G to exit, any other character for status]}
<Call 0x20970 0x103e0> {[«48""»]|[$$Type ^G to exit, any other character for status]}
WriteConsoleStringCrLf(str : String)
<POP 20976-2097a StackAdj> Δ+52 {}
<POP 2097a-20982 Epilogue> Σ0
@ 20982
<LVAR 0x00c 2(r)>
<LVAR 0x008 4(r)>
<LVAR -0x006 2(w)>
<LVAR -0x00c 2(w)>
<LVAR -0x010 @>
<LVAR -0x012 @>
<POP 20982-209d6 Body>
<POP 20982-20998 Prologue> Σ0 ↓
<POP 20998-2099c RegCacheLoad> Σ0 ↓
<POP 2099c-209ce Naked> Σ0 ↓
<MI 2099c MOVE.W #0x2,(A6-0xc)> {}
<MI 209a2 MOVE.W (A6+0xc),D0> {}
<MI 209a4 ASL.W #0x8,D0> {}
<MI 209a6 ADDQ.W #0x1,D0> {}
<MI 209a8 MOVE.W D0,(A6-0x6)> {}
<Pointer.fp 0x209ac <LVAR -0x010 @>> Δ-4 {[@@-16]}
<MI 209b0 MOVEA.L (A6+0x8),A0> {[@@-16]}
<MI 209b4 MOVE.L A0,-(A7)> Δ-4 {[@@-16]|[4, 'A0']}
<MI 209b6 MOVE.W (A6+0xc),-(A7)> Δ-2 {[@@-16]|[4, 'A0']|[2, '(A6+0xc)']}
<Call 0x209b8 0x10204> {[@@-16]|[4, 'A0']|[2, '(A6+0xc)']}
KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
<POP 209be-209c0 StackAdj> Δ+8 {[-2-]}
<MI 209c0 MOVE.W (A6+0xc),(A7)> {[2, '(A6+0xc)']}
<Pointer.fp 0x209c2 <LVAR -0x012 @>> Δ-4 {[2, '(A6+0xc)']|[@@-18]}
<Call 0x209c6 0x10206> {[2, '(A6+0xc)']|[@@-18]}
KC03_Wait_Disk_IO(a : W; VAR status : Byte)
<POP 209cc-209ce StackAdj> Δ+6 {}
<POP 209ce-209d6 Epilogue> Σ0
@ 209d6
<LVAR 0x008 2(r)>
<LVAR -0x008 2(w)>
<LVAR -0x00a 2(w)>
<LVAR -0x00c 2(w)>
<LVAR -0x012 2(w)>
<LVAR -0x016 @ 2(w)>
<POP 209d6-20acc Body>
<POP 209d6-209ec Prologue> Σ0 ↓
<POP 209ec-209fa RegCacheLoad> Σ0 ↓
<POP 209fa-20a74 Naked> Σ0 ↓ →0x20a7c
<MI 209fa MOVE.W #0x444,D0> {}
<MI 209fe MULS.W (A6+0x8),D0> {}
<MI 20a00 LEA.L 0x21eea,A0> {}
<POP 20a06-20a08 StackAdj> Δ-4 {[-4-]}
<Call 0x20a08 0x205d2> {[-4-]}
<MI 20a0c MOVE.L (A7)+,D1> Δ+4 {}
<POP 0x20a0e LimitCheck 0x0 ≤ D1 ≤ 0xffff> {}
<MI 20a14 MOVE.W D1,(A0+D0.W+#0x32)> {}
<POP 20a18-20a1a StackAdj> Δ-4 {[-4-]}
<Const 0x20a1a 0x0.4> Δ-4 {[-4-]|[##0]}
<MI 20a1e CLR.L D1> {[-4-]|[##0]}
<MI 20a20 MOVE.W (A0+D0.W+#0x30),D1> {[-4-]|[##0]}
<MI 20a24 SUBQ.L #0x1,D1> {[-4-]|[##0]}
<MI 20a26 MOVE.L D1,-(A7)> Δ-4 {[-4-]|[##0]|[4, 'D1']}
<Call 0x20a28 0x20578> {[-4-]|[##0]|[4, 'D1']}
<POP 20a2a-20a2c StackAdj> Δ+8 {[-4-]}
<MI 20a2c MOVE.L (A7)+,D1> Δ+4 {}
<MI 20a2e ASL.L #0x1,D1> {}
<MI 20a30 MOVE.L D1,(A0+D0.W+#0x1a)> {}
<POP 20a34-20a36 StackAdj> Δ-4 {[-4-]}
<Const 0x20a36 0x0.4> Δ-4 {[-4-]|[##0]}
<MI 20a3a CLR.L D1> {[-4-]|[##0]}
<MI 20a3c MOVE.W (A0+D0.W+#0x2e),D1> {[-4-]|[##0]}
<MI 20a40 SUBQ.L #0x1,D1> {[-4-]|[##0]}
<MI 20a42 MOVE.L D1,-(A7)> Δ-4 {[-4-]|[##0]|[4, 'D1']}
<Call 0x20a44 0x20578> {[-4-]|[##0]|[4, 'D1']}
<POP 20a46-20a48 StackAdj> Δ+8 {[-4-]}
<MI 20a48 MOVE.L (A7),(A0+D0.W+#0x1e)> {[-4-]}
<MI 20a4c MOVE.L (A0+D0.W+#0x26),-(A7)> Δ-4 {[-4-]|[4, '(A0+D0.W+#0x26)']}
<MI 20a50 MOVE.L (A0+D0.W+#0x2a),-(A7)> Δ-4 {[-4-]|[4, '(A0+D0.W+#0x26)']|[4, '(A0+D0.W+#0x2a)']}
<Call 0x20a54 0x20578> {[-4-]|[4, '(A0+D0.W+#0x26)']|[4, '(A0+D0.W+#0x2a)']}
<POP 20a56-20a58 StackAdj> Δ+8 {[-4-]}
<MI 20a58 MOVE.L (A7)+,(A0+D0.W+#0x22)> Δ+4 {}
<MI 20a5c MOVE.W #0x100,(A6-0x16)> {}
<MI 20a62 MOVE.W #0x2,(A6-0x12)> {}
<POP 20a68-20a6a StackAdj> Δ-2 {[-2-]}
<Call 0x20a6a 0x1060a> {[-2-]}
Is_machine_type_four() : Bool
<MI 20a70 TST.B (A7)+> Δ+2 {}
<MI 20a72 BEQ 0x20a7c> {}
<POP 20a74-20a7c Naked> Σ0 →0x20a84
<MI 20a74 MOVE.W (A6+0x8),D1> {}
<MI 20a76 ASL.W #0x8,D1> {}
<MI 20a78 ADDQ.W #0x3,D1> {}
<MI 20a7a BRA 0x20a84> {}
<POP 20a7c-20a84 Naked> Σ0 ↓ ←0x209fa
<MI 20a7c MOVE.W (A6+0x8),D1> {}
<MI 20a7e ASL.W #0x8,D1> {}
<MI 20a80 ADDI.W #0x000b,D1> {}
<POP 20a84-20ac4 Naked> Σ0 ↓ ←0x20a74
<MI 20a84 MOVE.W D1,(A6-0xc)> {}
<MI 20a88 MOVE.L (A0+D0.W+#0x22),D1> {}
<POP 0x20a8c LimitCheck 0x0 ≤ D1 ≤ 0xffff> {}
<MI 20a92 MOVE.W D1,(A6-0xa)> {}
<MI 20a96 MOVE.L (A0+D0.W+#0x1e),D1> {}
<MI 20a9a ASL.L #0x8,D1> {}
<MI 20a9c ADD.L (A0+D0.W+#0x1a),D1> {}
<POP 0x20aa0 LimitCheck 0x0 ≤ D1 ≤ 0xffff> {}
<MI 20aa6 MOVE.W D1,(A6-0x8)> {}
<Pointer.fp 0x20aaa <LVAR -0x016 @ 2(w)>> Δ-4 {[@@-22]}
<MI 20aae LEA.L (A0+D0.W+#0x32),A1> {[@@-22]}
<MI 20ab2 MOVE.L A1,-(A7)> Δ-4 {[@@-22]|[4, 'A1']}
<MI 20ab4 MOVE.W (A6+0x8),-(A7)> Δ-2 {[@@-22]|[4, 'A1']|[2, '(A6+0x8)']}
<Call 0x20ab6 0x10204> {[@@-22]|[4, 'A1']|[2, '(A6+0x8)']}
KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
<POP 20abc-20ac0 StackAdj> Δ+10 {}
<MI 20ac0 CLR.B (A0+D0.W+#0xd)> {}
<POP 20ac4-20acc Epilogue> Σ0
@ 20acc
<LVAR 0x008 2(r)>
<LVAR -0x004 2(w)>
<LVAR -0x006 2(w)>
<LVAR -0x008 2(w)>
<LVAR -0x00e 2(w)>
<LVAR -0x012 @ 2(w)>
<POP 20acc-20b9a Body>
<POP 20acc-20ae2 Prologue> Σ0 ↓
<POP 20ae2-20af0 RegCacheLoad> Σ0 ↓
<POP 20af0-20b92 Naked> Σ0 ↓
<MI 20af0 MOVE.W #0x444,D0> {}
<MI 20af4 MULS.W (A6+0x8),D0> {}
<MI 20af6 LEA.L 0x21eea,A0> {}
<POP 20afc-20afe StackAdj> Δ-4 {[-4-]}
<Const 0x20afe 0x0.4> Δ-4 {[-4-]|[##0]}
<MI 20b00 CLR.L D1> {[-4-]|[##0]}
<MI 20b02 MOVE.W (A0+D0.W+#0x30),D1> {[-4-]|[##0]}
<MI 20b06 SUBQ.L #0x1,D1> {[-4-]|[##0]}
<MI 20b08 MOVE.L D1,-(A7)> Δ-4 {[-4-]|[##0]|[4, 'D1']}
<Call 0x20b0a 0x20578> {[-4-]|[##0]|[4, 'D1']}
<POP 20b0c-20b0e StackAdj> Δ+8 {[-4-]}
<MI 20b0e MOVE.L (A7)+,D1> Δ+4 {}
<MI 20b10 ASL.L #0x1,D1> {}
<MI 20b12 MOVE.L D1,(A0+D0.W+#0x1a)> {}
<POP 20b16-20b18 StackAdj> Δ-4 {[-4-]}
<Const 0x20b18 0x0.4> Δ-4 {[-4-]|[##0]}
<MI 20b1a CLR.L D1> {[-4-]|[##0]}
<MI 20b1c MOVE.W (A0+D0.W+#0x2e),D1> {[-4-]|[##0]}
<MI 20b20 SUBQ.L #0x1,D1> {[-4-]|[##0]}
<MI 20b22 MOVE.L D1,-(A7)> Δ-4 {[-4-]|[##0]|[4, 'D1']}
<Call 0x20b24 0x20578> {[-4-]|[##0]|[4, 'D1']}
<POP 20b26-20b28 StackAdj> Δ+8 {[-4-]}
<MI 20b28 MOVE.L (A7),(A0+D0.W+#0x1e)> {[-4-]}
<Const 0x20b2c 0x0.4> Δ-4 {[-4-]|[##0]}
<MI 20b2e MOVE.L (A0+D0.W+#0x2a),-(A7)> Δ-4 {[-4-]|[##0]|[4, '(A0+D0.W+#0x2a)']}
<Call 0x20b32 0x20578> {[-4-]|[##0]|[4, '(A0+D0.W+#0x2a)']}
<POP 20b34-20b36 StackAdj> Δ+8 {[-4-]}
<MI 20b36 MOVE.L (A7)+,(A0+D0.W+#0x22)> Δ+4 {}
<MI 20b3a MOVE.W #0x100,(A6-0x12)> {}
<MI 20b40 MOVE.W #0x02,(A6-0xe)> {}
<MI 20b44 MOVE.W (A6+0x8),D1> {}
<MI 20b46 ASL.W #0x8,D1> {}
<MI 20b48 ADDQ.W #0x2,D1> {}
<MI 20b4a MOVE.W D1,(A6-0x8)> {}
<MI 20b4e MOVE.L (A0+D0.W+#0x22),D1> {}
<POP 0x20b52 LimitCheck 0x0 ≤ D1 ≤ 0xffff> {}
<MI 20b5c MOVE.W D1,(A6-0x6)> {}
<MI 20b60 MOVE.L (A0+D0.W+#0x1e),D1> {}
<MI 20b64 ASL.L #0x8,D1> {}
<MI 20b66 ADD.L (A0+D0.W+#0x1a),D1> {}
<POP 0x20b6a LimitCheck 0x0 ≤ D1 ≤ 0xffff> {}
<MI 20b74 MOVE.W D1,(A6-0x4)> {}
<Pointer.fp 0x20b78 <LVAR -0x012 @ 2(w)>> Δ-4 {[@@-18]}
<MI 20b7c LEA.L (A0+D0.W+#0x32),A1> {[@@-18]}
<MI 20b80 MOVE.L A1,-(A7)> Δ-4 {[@@-18]|[4, 'A1']}
<MI 20b82 MOVE.W (A6+0x8),-(A7)> Δ-2 {[@@-18]|[4, 'A1']|[2, '(A6+0x8)']}
<Call 0x20b84 0x10204> {[@@-18]|[4, 'A1']|[2, '(A6+0x8)']}
KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
<POP 20b8a-20b8e StackAdj> Δ+10 {}
<MI 20b8e MOVE.B #0x02,(A0+D0.W+#0xd)> {}
<POP 20b92-20b9a Epilogue> Σ0
@ 20b9a
<LVAR 0x008 2(r)>
<LVAR -0x004 2(w)>
<LVAR -0x006 2(w)>
<LVAR -0x008 2(w)>
<LVAR -0x00e 2(w)>
<LVAR -0x012 @ 2(w)>
<POP 20b9a-20c3a Body>
<POP 20b9a-20bb0 Prologue> Σ0 ↓
<POP 20bb0-20bb4 RegCacheLoad> Σ0 ↓
<POP 20bb4-20bd8 Naked> Σ0 ↓ →0x20be0
<MI 20bb4 MOVE.W #0x444,D0> {}
<MI 20bb8 MULS.W (A6+0x8),D0> {}
<MI 20bba LEA.L 0x21eea,A0> {}
<MI 20bc0 MOVE.W #0x100,(A6-0x12)> {}
<MI 20bc6 MOVE.W #0x2,(A6-0xe)> {}
<POP 20bcc-20bce StackAdj> Δ-2 {[-2-]}
<Call 0x20bce 0x1060a> {[-2-]}
Is_machine_type_four() : Bool
<MI 20bd4 TST.B (A7)+> Δ+2 {}
<MI 20bd6 BEQ 0x20be0> {}
<POP 20bd8-20be0 Naked> Σ0 →0x20be8
<MI 20bd8 MOVE.W (A6+0x8),D1> {}
<MI 20bda ASL.W #0x8,D1> {}
<MI 20bdc ADDQ.W #0x2,D1> {}
<MI 20bde BRA 0x20be8> {}
<POP 20be0-20be8 Naked> Σ0 ↓ ←0x20bb4
<MI 20be0 MOVE.W (A6+0x8),D1> {}
<MI 20be2 ASL.W #0x8,D1> {}
<MI 20be4 ADDI.W #0x000c,D1> {}
<POP 20be8-20c32 Naked> Σ0 ↓ ←0x20bd8
<MI 20be8 MOVE.W D1,(A6-0x8)> {}
<MI 20bec MOVE.L (A0+D0.W+#0x22),D1> {}
<POP 0x20bf0 LimitCheck 0x0 ≤ D1 ≤ 0xffff> {}
<MI 20bfa MOVE.W D1,(A6-0x6)> {}
<MI 20bfe MOVE.L (A0+D0.W+#0x1e),D1> {}
<MI 20c02 ASL.L #0x8,D1> {}
<MI 20c04 ADD.L (A0+D0.W+#0x1a),D1> {}
<POP 0x20c08 LimitCheck 0x0 ≤ D1 ≤ 0xffff> {}
<MI 20c12 MOVE.W D1,(A6-0x4)> {}
<Pointer.fp 0x20c16 <LVAR -0x012 @ 2(w)>> Δ-4 {[@@-18]}
<MI 20c1a LEA.L (A0+D0.W+#0x32),A1> {[@@-18]}
<MI 20c1e MOVE.L A1,-(A7)> Δ-4 {[@@-18]|[4, 'A1']}
<MI 20c20 MOVE.W (A6+0x8),-(A7)> Δ-2 {[@@-18]|[4, 'A1']|[2, '(A6+0x8)']}
<Call 0x20c22 0x10204> {[@@-18]|[4, 'A1']|[2, '(A6+0x8)']}
KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
<POP 20c28-20c2c StackAdj> Δ+10 {}
<MI 20c2c MOVE.B #0x01,(A0+D0.W+#0xd)> {}
<POP 20c32-20c3a Epilogue> Σ0
@ 20c3a
<LVAR 0x00a 4(r)>
<LVAR 0x008 2(r)>
<LVAR -0x004 @ 4(r)>
<POP 20c3a-2145a Body>
<POP 20c3a-20c50 Prologue> Σ0 ↓
<POP 20c50-20c62 RegCacheLoad> Σ0 ↓
<POP 20c62-20d38 Naked> Σ0 Δ-6 ↓
<Pointer.fp 0x20c62 <LVAR -0x004 @ 4(r)>> Δ-4 {[@@-4]}
<Call 0x20c66 0x10304> {[@@-4]}
GetRtc() : TimeStamp
<POP 20c6c-20c6e StackAdj> Δ+4 {}
<Blob 0x20c6e [14] @> Δ-14 {[«14""»]}
<Blob 0x20c7a [4] @> Δ-4 {[«14""»]|[«4""»]}
<Blob 0x20c7e [18] @> Δ-18 {[«14""»]|[«4""»]|[«18""»]}
<POP 20c8e-20c90 StackAdj> Δ-8 {[«14""»]|[«4""»]|[«18""»]|[-8-]}
<Lit 0x20c90 14> {[«14""»]|[«4""»]|[«18""»]|[-4-]|[$$Error on unit_]}
<POP 20c9c-20c9e StackAdj> Δ-4 {[«14""»]|[«4""»]|[«18""»]|[-4-]|[$$Error on unit_]|[-4-]}
<MI 20c9e MOVE.W (A6+0x8),D0> {[«14""»]|[«4""»]|[«18""»]|[-4-]|[$$Error on unit_]|[-4-]}
<MI 20ca2 EXTW.L D0> {[«14""»]|[«4""»]|[«18""»]|[-4-]|[$$Error on unit_]|[-4-]}
<MI 20ca4 MOVE.L D0,-(A7)> Δ-4 {[«14""»]|[«4""»]|[«18""»]|[-4-]|[$$Error on unit_]|[-4-]|[4, 'D0']}
<Call 0x20ca6 0x102e4> {[«14""»]|[«4""»]|[«18""»]|[-4-]|[$$Error on unit_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<Lit 0x20cac 4> {[«14""»]|[«4""»]|[«18""»]|[-4-]|[$$Error on unit_]|[-4-]|[$$ at_]}
<MI 20cb8 MOVE.L (A6-0x4),(A7)> {[«14""»]|[«4""»]|[«18""»]|[-4-]|[$$Error on unit_]|[-4-]|[4, '(A6-0x4)']}
<POP 20cb6-20cb8 StackAdj> Δ-8 {[«14""»]|[«4""»]|[«18""»]|[-4-]|[$$Error on unit_]|[-4-]|[4, '(A6-0x4)']|[-8-]}
<Call 0x20cbc 0x10308> {[«14""»]|[«4""»]|[«18""»]|[-4-]|[$$Error on unit_]|[-4-]|[4, '(A6-0x4)']|[-8-]}
TimeToText()
<Lit 0x20cc2 17> {[«14""»]|[«4""»]|[«18""»]|[-4-]|[$$Error on unit_]|[-4-]|[4, '(A6-0x4)']|[-4-]|[$$ test started at_]}
<POP 20cce-20ccf StackAdj> Δ-4 {[«14""»]|[«4""»]|[«18""»]|[-4-]|[$$Error on unit_]|[-4-]|[4, '(A6-0x4)']|[-4-]|[$$ test started at_]|[-4-]}
<Blob 0x20ccf [4] 0x21ef2> Δ-4 {[«14""»]|[«4""»]|[«18""»]|[-4-]|[$$Error on unit_]|[-4-]|[4, '(A6-0x4)']|[-4-]|[$$ test started at_]|[-4-]|[«4»]}
<Call 0x20cd4 0x10308> {[«14""»]|[«4""»]|[«18""»]|[-4-]|[$$Error on unit_]|[-4-]|[4, '(A6-0x4)']|[-4-]|[$$ test started at_]|[-4-]|[«4»]}
TimeToText()
<POP 20cda-20cdc StackAdj> Δ+4 {[«14""»]|[«4""»]|[«18""»]|[-4-]|[$$Error on unit_]|[-4-]|[4, '(A6-0x4)']|[-4-]|[$$ test started at_]|[-4-]}
<Call 0x20cdc 0x102e0> {[«14""»]|[«4""»]|[«18""»]|[-4-]|[$$Error on unit_]|[-4-]|[4, '(A6-0x4)']|[-4-]|[$$ test started at_]|[-4-]}
StringCat6(a, b, c, d, e, f : String) : String
<POP 20ce2-20ce6 StackAdj> Δ+24 {[«14""»]|[«4""»]|[«18""»]|[-4-]}
<Call 0x20ce6 0x103e0> {[«14""»]|[«4""»]|[«18""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 20ce8-20cec StackAdj> Δ+40 {}
<MI 20cec MOVE.W #0x444,D0> {}
<MI 20cf0 MULS.W (A6+0x8),D0> {}
<MI 20cf4 LEA.L 0x21eea,A0> {}
<MI 20cfa MOVE.W D0,-(A7)> Δ-2 {[2, 'D0']}
<MI 20cfc MOVE.L A0,-(A7)> Δ-4 {[2, 'D0']|[4, 'A0']}
<Blob 0x20cfe [18] @> Δ-18 {[2, 'D0']|[4, 'A0']|[«18""»]}
<POP 20d0a-20d0c StackAdj> Δ-4 {[2, 'D0']|[4, 'A0']|[«18""»]|[-4-]}
<MI 20d0c MOVE.L (A6+0xa),-(A7)> Δ-4 {[2, 'D0']|[4, 'A0']|[«18""»]|[-4-]|[4, '(A6+0xa)']}
<POP 20d10-20d12 StackAdj> Δ-4 {[2, 'D0']|[4, 'A0']|[«18""»]|[-4-]|[4, '(A6+0xa)']|[-4-]}
<Lit 0x20d12 18> {[2, 'D0']|[4, 'A0']|[«18""»]|[-4-]|[4, '(A6+0xa)']|[$$ error, retries =>]}
<MI 20d1c MOVE.L (A0+D0.W+#0x16),(A7)> {[2, 'D0']|[4, 'A0']|[«18""»]|[-4-]|[4, '(A6+0xa)']|[4, '(A0+D0.W+#0x16)']}
<POP 20d1a-20d1c StackAdj> Δ-8 {[2, 'D0']|[4, 'A0']|[«18""»]|[-4-]|[4, '(A6+0xa)']|[4, '(A0+D0.W+#0x16)']|[-8-]}
<Call 0x20d20 0x102e4> {[2, 'D0']|[4, 'A0']|[«18""»]|[-4-]|[4, '(A6+0xa)']|[4, '(A0+D0.W+#0x16)']|[-8-]}
Long2String(a : Long) : String
<POP 20d26-20d28 StackAdj> Δ+4 {[2, 'D0']|[4, 'A0']|[«18""»]|[-4-]|[4, '(A6+0xa)']|[4, '(A0+D0.W+#0x16)']|[-4-]}
<Call 0x20d28 0x102d4> {[2, 'D0']|[4, 'A0']|[«18""»]|[-4-]|[4, '(A6+0xa)']|[4, '(A0+D0.W+#0x16)']|[-4-]}
StringCat3(a, b, c : String) : String
<POP 20d2e-20d32 StackAdj> Δ+12 {[2, 'D0']|[4, 'A0']|[«18""»]|[-4-]}
<Call 0x20d32 0x103e0> {[2, 'D0']|[4, 'A0']|[«18""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 20d34-20d36 StackAdj> Δ+22 {[2, 'D0']|[4, 'A0']}
<MI 20d36 MOVEQ.L #0x00,D7> {[2, 'D0']|[4, 'A0']}
<POP 20d38-20dc0 Naked> Σ-6 ↓ →0x20d38 ←0x20d38
<POP 0x20d38 LimitCheck 0x0 ≤ D7 ≤ 0x8> {[-6-]}
<MI 20d42 MOVE.L D7,D4> {[-6-]}
<MI 20d44 MOVEQ.L #0x05,D3> {[-6-]}
<Call 0x20d46 0x1028c> {[-6-]}
?muls_d3_d4
<MI 20d4c LEA.L 0x2054a,A0> {[-6-]}
<Blob 0x20d50 [6] (A0+D4.L)> Δ-6 {[-6-]|[«6»]}
<POP 20d60-20d62 StackAdj> Δ-8 {[-6-]|[«6»]|[-8-]}
<Lit 0x20d62> {[-6-]|[«6»]|[-4-]|[$$…]}
<Pointer.sp 0x20d62 8> Δ-4
<Const 0x20d66 0x1.2> Δ-2
<Const 0x20d68 0x5.2> Δ-2
<Call 0x20d6c 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 20d6e-20d70 StackAdj> Δ+8
<POP 20d6e-20d70 StackAdj> Δ-4 {[-6-]|[«6»]|[-4-]|[$$…]|[-4-]}
<POP 0x20d70 LimitCheck 0x0 ≤ D7 ≤ 0xa> {[-6-]|[«6»]|[-4-]|[$$…]|[-4-]}
<MI 20d7a MOVE.L D7,D0> {[-6-]|[«6»]|[-4-]|[$$…]|[-4-]}
<MI 20d7c ASL.L #0x1,D0> {[-6-]|[«6»]|[-4-]|[$$…]|[-4-]}
<MI 20d7e MOVEA.L (A7+0x12),A0> {[-6-]|[«6»]|[-4-]|[$$…]|[-4-]}
<MI 20d82 MOVE.W (A7+0x16),D1> {[-6-]|[«6»]|[-4-]|[$$…]|[-4-]}
<MI 20d86 LEA.L (A0+D1.W+#0xc),A0> {[-6-]|[«6»]|[-4-]|[$$…]|[-4-]}
<MI 20d8a LEA.L (A0+D0.L),A0> {[-6-]|[«6»]|[-4-]|[$$…]|[-4-]}
<MI 20d8e CLR.L D0> {[-6-]|[«6»]|[-4-]|[$$…]|[-4-]}
<MI 20d90 MOVE.W (A0+0x426),D0> {[-6-]|[«6»]|[-4-]|[$$…]|[-4-]}
<MI 20d94 MOVE.L D0,-(A7)> Δ-4 {[-6-]|[«6»]|[-4-]|[$$…]|[-4-]|[4, 'D0']}
<Const 0x20d96 0x4.4> Δ-4 {[-6-]|[«6»]|[-4-]|[$$…]|[-4-]|[4, 'D0']|[##4]}
<Call 0x20d9a 0x102e8> {[-6-]|[«6»]|[-4-]|[$$…]|[-4-]|[4, 'D0']|[##4]}
Long2HexString(val : Long; ndig : Long) : String
<POP 20da0-20da2 StackAdj> Δ+8 {[-6-]|[«6»]|[-4-]|[$$…]|[-4-]}
<Call 0x20da2 0x102d0> {[-6-]|[«6»]|[-4-]|[$$…]|[-4-]}
StringCat2(a, b : String) : String
<POP 20da8-20daa StackAdj> Δ+8 {[-6-]|[«6»]|[-4-]}
<Call 0x20daa 0x103d8> {[-6-]|[«6»]|[-4-]}
WriteConsoleString(str : String)
<POP 20db0-20db4 StackAdj> Δ+10 {[-6-]}
<MI 20db4 ADDQ.L #0x1,D7> {[-6-]}
<MI 20db6 CMPI.L #0x00000008,D7> {[-6-]}
<MI 20dbc BLE 0x20d38> {[-6-]}
<POP 20dc0-20ddc Naked> Σ-6 Δ-4 ↓ →0x20e00
<Call 0x20dc0 0x103dc> {[-6-]}
WriteConsoleCrLf(void)
<MI 20dc6 MOVEA.L (A7),A0> {[-6-]}
<MI 20dc8 MOVE.W (A7+0x4),D0> {[-6-]}
<MI 20dcc LEA.L (A0+D0.W+#0xc),A0> {[-6-]}
<MI 20dd0 MOVE.L A0,-(A7)> Δ-4 {[-6-]|[4, 'A0']}
<MI 20dd2 MOVE.W (A0+0x426),D0> {[-6-]|[4, 'A0']}
<MI 20dd6 ANDI.W #0x8000,D0> {[-6-]|[4, 'A0']}
<MI 20dda BEQ 0x20e00> {[-6-]|[4, 'A0']}
<POP 20ddc-20e00 Naked> Σ-10 ↓
<Blob 0x20ddc [18] @> Δ-18 {[-10-]|[«18""»]}
<POP 20dec-20dee StackAdj> Δ-4 {[-10-]|[«18""»]|[-4-]}
<Lit 0x20dee 17> {[-10-]|[«18""»]|[$$Special condition]}
<Call 0x20dfc 0x103e0> {[-10-]|[«18""»]|[$$Special condition]}
WriteConsoleStringCrLf(str : String)
<POP 20dfe-20e00 StackAdj> Δ+22 {[-10-]}
<POP 20e00-20e0a Naked> Σ-10 ↓ →0x20e2a ←0x20dc0
<MI 20e00 MOVE.W (A0+0x426),D0> {[-10-]}
<MI 20e04 ANDI.W #0x4000,D0> {[-10-]}
<MI 20e08 BEQ 0x20e2a> {[-10-]}
<POP 20e0a-20e2a Naked> Σ-10 ↓
<Blob 0x20e0a [14] @> Δ-14 {[-10-]|[«14""»]}
<POP 20e16-20e18 StackAdj> Δ-4 {[-10-]|[«14""»]|[-4-]}
<Lit 0x20e18 14> {[-10-]|[«14""»]|[$$Transfer error]}
<Call 0x20e26 0x103e0> {[-10-]|[«14""»]|[$$Transfer error]}
WriteConsoleStringCrLf(str : String)
<POP 20e28-20e2a StackAdj> Δ+18 {[-10-]}
<POP 20e2a-20e34 Naked> Σ-10 ↓ →0x20e54 ←0x20e00
<MI 20e2a MOVE.W (A0+0x426),D0> {[-10-]}
<MI 20e2e ANDI.W #0x0800,D0> {[-10-]}
<MI 20e32 BNE 0x20e54> {[-10-]}
<POP 20e34-20e54 Naked> Σ-10 ↓
<Blob 0x20e34 [22] @> Δ-22 {[-10-]|[«22""»]}
<POP 20e40-20e42 StackAdj> Δ-4 {[-10-]|[«22""»]|[-4-]}
<Lit 0x20e42 22> {[-10-]|[«22""»]|[$$Drive is not available]}
<Call 0x20e4e 0x103e0> {[-10-]|[«22""»]|[$$Drive is not available]}
WriteConsoleStringCrLf(str : String)
<POP 20e50-20e54 StackAdj> Δ+26 {[-10-]}
<POP 20e54-20e5e Naked> Σ-10 ↓ →0x20e7c ←0x20e2a
<MI 20e54 MOVE.W (A0+0x426),D0> {[-10-]}
<MI 20e58 ANDI.W #0x0080,D0> {[-10-]}
<MI 20e5c BNE 0x20e7c> {[-10-]}
<POP 20e5e-20e7c Naked> Σ-10 ↓
<Blob 0x20e5e [18] @> Δ-18 {[-10-]|[«18""»]}
<POP 20e6a-20e6c StackAdj> Δ-4 {[-10-]|[«18""»]|[-4-]}
<Lit 0x20e6c 18> {[-10-]|[«18""»]|[$$Drive is not ready]}
<Call 0x20e78 0x103e0> {[-10-]|[«18""»]|[$$Drive is not ready]}
WriteConsoleStringCrLf(str : String)
<POP 20e7a-20e7c StackAdj> Δ+22 {[-10-]}
<POP 20e7c-20e88 Naked> Σ-10 ↓ →0x20eb0 ←0x20e54
<MI 20e7c MOVEA.L (A7),A0> {[-10-]}
<MI 20e7e MOVE.W (A0+0x428),D0> {[-10-]}
<MI 20e82 ANDI.W #0x8000,D0> {[-10-]}
<MI 20e86 BEQ 0x20eb0> {[-10-]}
<POP 20e88-20eb0 Naked> Σ-10 ↓
<Blob 0x20e88 [10] @> Δ-10 {[-10-]|[«10""»]}
<POP 20e9a-20e9c StackAdj> Δ-4 {[-10-]|[«10""»]|[-4-]}
<Lit 0x20e9c 9> {[-10-]|[«10""»]|[$$Data late]}
<Call 0x20eaa 0x103e0> {[-10-]|[«10""»]|[$$Data late]}
WriteConsoleStringCrLf(str : String)
<POP 20eac-20eb0 StackAdj> Δ+14 {[-10-]}
<POP 20eb0-20eba Naked> Σ-10 ↓ →0x20ede ←0x20e7c
<MI 20eb0 MOVE.W (A0+0x428),D0> {[-10-]}
<MI 20eb4 ANDI.W #0x4000,D0> {[-10-]}
<MI 20eb8 BEQ 0x20ede> {[-10-]}
<POP 20eba-20ede Naked> Σ-10 ↓
<Blob 0x20eba [18] @> Δ-18 {[-10-]|[«18""»]}
<POP 20eca-20ecc StackAdj> Δ-4 {[-10-]|[«18""»]|[-4-]}
<Lit 0x20ecc 17> {[-10-]|[«18""»]|[$$Write check error]}
<Call 0x20eda 0x103e0> {[-10-]|[«18""»]|[$$Write check error]}
WriteConsoleStringCrLf(str : String)
<POP 20edc-20ede StackAdj> Δ+22 {[-10-]}
<POP 20ede-20ee8 Naked> Σ-10 ↓ →0x20f06 ←0x20eb0
<MI 20ede MOVE.W (A0+0x428),D0> {[-10-]}
<MI 20ee2 ANDI.W #0x1000,D0> {[-10-]}
<MI 20ee6 BEQ 0x20f06> {[-10-]}
<POP 20ee8-20f06 Naked> Σ-10 ↓
<Blob 0x20ee8 [18] @> Δ-18 {[-10-]|[«18""»]}
<POP 20ef4-20ef6 StackAdj> Δ-4 {[-10-]|[«18""»]|[-4-]}
<Lit 0x20ef6 18> {[-10-]|[«18""»]|[$$Non-existent drive]}
<Call 0x20f02 0x103e0> {[-10-]|[«18""»]|[$$Non-existent drive]}
WriteConsoleStringCrLf(str : String)
<POP 20f04-20f06 StackAdj> Δ+22 {[-10-]}
<POP 20f06-20f10 Naked> Σ-10 ↓ →0x20f38 ←0x20ede
<MI 20f06 MOVE.W (A0+0x428),D0> {[-10-]}
<MI 20f0a ANDI.W #0x0800,D0> {[-10-]}
<MI 20f0e BEQ 0x20f38> {[-10-]}
<POP 20f10-20f38 Naked> Σ-10 ↓
<Blob 0x20f10 [20] @> Δ-20 {[-10-]|[«20""»]}
<POP 20f22-20f24 StackAdj> Δ-4 {[-10-]|[«20""»]|[-4-]}
<Lit 0x20f24 19> {[-10-]|[«20""»]|[$$Non-existent memory]}
<Call 0x20f32 0x103e0> {[-10-]|[«20""»]|[$$Non-existent memory]}
WriteConsoleStringCrLf(str : String)
<POP 20f34-20f38 StackAdj> Δ+24 {[-10-]}
<POP 20f38-20f42 Naked> Σ-10 ↓ →0x20f68 ←0x20f06
<MI 20f38 MOVE.W (A0+0x428),D0> {[-10-]}
<MI 20f3c ANDI.W #0x0400,D0> {[-10-]}
<MI 20f40 BEQ 0x20f68> {[-10-]}
<POP 20f42-20f68 Naked> Σ-10 ↓
<Blob 0x20f42 [14] @> Δ-14 {[-10-]|[«14""»]}
<POP 20f54-20f56 StackAdj> Δ-4 {[-10-]|[«14""»]|[-4-]}
<Lit 0x20f56 13> {[-10-]|[«14""»]|[$$Program error]}
<Call 0x20f64 0x103e0> {[-10-]|[«14""»]|[$$Program error]}
WriteConsoleStringCrLf(str : String)
<POP 20f66-20f68 StackAdj> Δ+18 {[-10-]}
<POP 20f68-20f72 Naked> Σ-10 ↓ →0x20f9a ←0x20f38
<MI 20f68 MOVE.W (A0+0x428),D0> {[-10-]}
<MI 20f6c ANDI.W #0x0200,D0> {[-10-]}
<MI 20f70 BEQ 0x20f9a> {[-10-]}
<POP 20f72-20f9a Naked> Σ-10 ↓
<Blob 0x20f72 [16] @> Δ-16 {[-10-]|[«16""»]}
<POP 20f84-20f86 StackAdj> Δ-4 {[-10-]|[«16""»]|[-4-]}
<Lit 0x20f86 15> {[-10-]|[«16""»]|[$$Missed transfer]}
<Call 0x20f94 0x103e0> {[-10-]|[«16""»]|[$$Missed transfer]}
WriteConsoleStringCrLf(str : String)
<POP 20f96-20f9a StackAdj> Δ+20 {[-10-]}
<POP 20f9a-20fa4 Naked> Σ-10 ↓ →0x20fcc ←0x20f68
<MI 20f9a MOVE.W (A0+0x428),D0> {[-10-]}
<MI 20f9e ANDI.W #0x0040,D0> {[-10-]}
<MI 20fa2 BNE 0x20fcc> {[-10-]}
<POP 20fa4-20fcc Naked> Σ-10 ↓
<Blob 0x20fa4 [16] @> Δ-16 {[-10-]|[«16""»]}
<POP 20fb6-20fb8 StackAdj> Δ-4 {[-10-]|[«16""»]|[-4-]}
<Lit 0x20fb8 15> {[-10-]|[«16""»]|[$$Input not ready]}
<Call 0x20fc6 0x103e0> {[-10-]|[«16""»]|[$$Input not ready]}
WriteConsoleStringCrLf(str : String)
<POP 20fc8-20fcc StackAdj> Δ+20 {[-10-]}
<POP 20fcc-20fd6 Naked> Σ-10 ↓ →0x20ffe ←0x20f9a
<MI 20fcc MOVE.W (A0+0x428),D0> {[-10-]}
<MI 20fd0 ANDI.W #0x0004,D0> {[-10-]}
<MI 20fd4 BEQ 0x20ffe> {[-10-]}
<POP 20fd6-20ffe Naked> Σ-10 ↓
<Blob 0x20fd6 [30] @> Δ-30 {[-10-]|[«30""»]}
<POP 20fe8-20fea StackAdj> Δ-4 {[-10-]|[«30""»]|[-4-]}
<Lit 0x20fea 29> {[-10-]|[«30""»]|[$$Bus address increment inhibit]}
<Call 0x20ff8 0x103e0> {[-10-]|[«30""»]|[$$Bus address increment inhibit]}
WriteConsoleStringCrLf(str : String)
<POP 20ffa-20ffe StackAdj> Δ+34 {[-10-]}
<POP 20ffe-21008 Naked> Σ-10 ↓ →0x21030 ←0x20fcc
<MI 20ffe MOVE.W (A0+0x42a),D0> {[-10-]}
<MI 21002 ANDI.W #0x2000,D0> {[-10-]}
<MI 21006 BEQ 0x21030> {[-10-]}
<POP 21008-21030 Naked> Σ-10 ↓
<Blob 0x21008 [24] @> Δ-24 {[-10-]|[«24""»]}
<POP 2101a-2101c StackAdj> Δ-4 {[-10-]|[«24""»]|[-4-]}
<Lit 0x2101c 23> {[-10-]|[«24""»]|[$$Positioning in progress]}
<Call 0x2102a 0x103e0> {[-10-]|[«24""»]|[$$Positioning in progress]}
WriteConsoleStringCrLf(str : String)
<POP 2102c-21030 StackAdj> Δ+28 {[-10-]}
<POP 21030-2103a Naked> Σ-10 ↓ →0x21058 ←0x20ffe
<MI 21030 MOVE.W (A0+0x42a),D0> {[-10-]}
<MI 21034 ANDI.W #0x1000,D0> {[-10-]}
<MI 21038 BNE 0x21058> {[-10-]}
<POP 2103a-21058 Naked> Σ-10 ↓
<Blob 0x2103a [18] @> Δ-18 {[-10-]|[«18""»]}
<POP 21046-21048 StackAdj> Δ-4 {[-10-]|[«18""»]|[-4-]}
<Lit 0x21048 18> {[-10-]|[«18""»]|[$$Medium not on-line]}
<Call 0x21054 0x103e0> {[-10-]|[«18""»]|[$$Medium not on-line]}
WriteConsoleStringCrLf(str : String)
<POP 21056-21058 StackAdj> Δ+22 {[-10-]}
<POP 21058-21062 Naked> Σ-10 ↓ →0x21084 ←0x21030
<MI 21058 MOVE.W (A0+0x42a),D0> {[-10-]}
<MI 2105c ANDI.W #0x0800,D0> {[-10-]}
<MI 21060 BEQ 0x21084> {[-10-]}
<POP 21062-21084 Naked> Σ-10 ↓
<Blob 0x21062 [4] @> Δ-4 {[-10-]|[«4""»]}
<Blob 0x21066 [4] @> Δ-4 {[-10-]|[«4""»]|[«4""»]}
<Blob 0x2106a [4] @> Δ-4 {[-10-]|[«4""»]|[«4""»]|[«4""»]}
<POP 2106e-21070 StackAdj> Δ-4 {[-10-]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x21070 12> {[-10-]|[«4""»]|[«4""»]|[«4""»]|[$$Write locked]}
<Call 0x2107e 0x103e0> {[-10-]|[«4""»]|[«4""»]|[«4""»]|[$$Write locked]}
WriteConsoleStringCrLf(str : String)
<POP 21080-21084 StackAdj> Δ+16 {[-10-]}
<POP 21084-2108e Naked> Σ-10 ↓ →0x210ae ←0x21058
<MI 21084 MOVE.W (A0+0x42a),D0> {[-10-]}
<MI 21088 ANDI.W #0x0400,D0> {[-10-]}
<MI 2108c BEQ 0x210ae> {[-10-]}
<POP 2108e-210ae Naked> Σ-10 ↓
<Blob 0x2108e [22] @> Δ-22 {[-10-]|[«22""»]}
<POP 2109a-2109c StackAdj> Δ-4 {[-10-]|[«22""»]|[-4-]}
<Lit 0x2109c 22> {[-10-]|[«22""»]|[$$Last sector transfered]}
<Call 0x210a8 0x103e0> {[-10-]|[«22""»]|[$$Last sector transfered]}
WriteConsoleStringCrLf(str : String)
<POP 210aa-210ae StackAdj> Δ+26 {[-10-]}
<POP 210ae-210b8 Naked> Σ-10 ↓ →0x210dc ←0x21084
<MI 210ae MOVE.W (A0+0x42a),D0> {[-10-]}
<MI 210b2 ANDI.W #0x0100,D0> {[-10-]}
<MI 210b6 BNE 0x210dc> {[-10-]}
<POP 210b8-210dc Naked> Σ-10 ↓
<Blob 0x210b8 [18] @> Δ-18 {[-10-]|[«18""»]}
<POP 210c8-210ca StackAdj> Δ-4 {[-10-]|[«18""»]|[-4-]}
<Lit 0x210ca 17> {[-10-]|[«18""»]|[$$Drive not present]}
<Call 0x210d8 0x103e0> {[-10-]|[«18""»]|[$$Drive not present]}
WriteConsoleStringCrLf(str : String)
<POP 210da-210dc StackAdj> Δ+22 {[-10-]}
<POP 210dc-210e6 Naked> Σ-10 ↓ →0x2110e ←0x210ae
<MI 210dc MOVE.W (A0+0x42a),D0> {[-10-]}
<MI 210e0 ANDI.W #0x0080,D0> {[-10-]}
<MI 210e4 BNE 0x2110e> {[-10-]}
<POP 210e6-2110e Naked> Σ-10 ↓
<Blob 0x210e6 [16] @> Δ-16 {[-10-]|[«16""»]}
<POP 210f8-210fa StackAdj> Δ-4 {[-10-]|[«16""»]|[-4-]}
<Lit 0x210fa 15> {[-10-]|[«16""»]|[$$Drive not ready]}
<Call 0x21108 0x103e0> {[-10-]|[«16""»]|[$$Drive not ready]}
WriteConsoleStringCrLf(str : String)
<POP 2110a-2110e StackAdj> Δ+20 {[-10-]}
<POP 2110e-21118 Naked> Σ-10 ↓ →0x2113e ←0x210dc
<MI 2110e MOVE.W (A0+0x42a),D0> {[-10-]}
<MI 21112 ANDI.W #0x0040,D0> {[-10-]}
<MI 21116 BNE 0x2113e> {[-10-]}
<POP 21118-2113e Naked> Σ-10 ↓
<Blob 0x21118 [4] @> Δ-4 {[-10-]|[«4""»]}
<Blob 0x2111c [4] @> Δ-4 {[-10-]|[«4""»]|[«4""»]}
<Blob 0x21120 [4] @> Δ-4 {[-10-]|[«4""»]|[«4""»]|[«4""»]}
<Blob 0x21124 [4] @> Δ-4 {[-10-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 21128-2112a StackAdj> Δ-4 {[-10-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x2112a 16> {[-10-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Volume not valid]}
<Call 0x21138 0x103e0> {[-10-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Volume not valid]}
WriteConsoleStringCrLf(str : String)
<POP 2113a-2113e StackAdj> Δ+20 {[-10-]}
<POP 2113e-21148 Naked> Σ-10 ↓ →0x2116e ←0x2110e
<MI 2113e MOVE.W (A0+0x42c),D0> {[-10-]}
<MI 21142 ANDI.W #0x8000,D0> {[-10-]}
<MI 21146 BEQ 0x2116e> {[-10-]}
<POP 21148-2116e Naked> Σ-10 ↓
<Blob 0x21148 [4] @> Δ-4 {[-10-]|[«4""»]}
<Blob 0x2114c [4] @> Δ-4 {[-10-]|[«4""»]|[«4""»]}
<Blob 0x21150 [4] @> Δ-4 {[-10-]|[«4""»]|[«4""»]|[«4""»]}
<Blob 0x21154 [4] @> Δ-4 {[-10-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 21158-2115a StackAdj> Δ-4 {[-10-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x2115a 16> {[-10-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Data check (ECC)]}
<Call 0x21168 0x103e0> {[-10-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Data check (ECC)]}
WriteConsoleStringCrLf(str : String)
<POP 2116a-2116e StackAdj> Δ+20 {[-10-]}
<POP 2116e-21178 Naked> Σ-10 ↓ →0x2119a ←0x2113e
<MI 2116e MOVE.W (A0+0x42c),D0> {[-10-]}
<MI 21172 ANDI.W #0x4000,D0> {[-10-]}
<MI 21176 BEQ 0x2119a> {[-10-]}
<POP 21178-2119a Naked> Σ-10 ↓
<Blob 0x21178 [2] @> Δ-2 {[-10-]|[«2""»]}
<Blob 0x2117c [2] @> Δ-2 {[-10-]|[«2""»]|[«2""»]}
<Blob 0x21180 [2] @> Δ-2 {[-10-]|[«2""»]|[«2""»]|[«2""»]}
<POP 21184-21186 StackAdj> Δ-4 {[-10-]|[«2""»]|[«2""»]|[«2""»]|[-4-]}
<Lit 0x21186 6> {[-10-]|[«2""»]|[«2""»]|[«2""»]|[$$Unsafe]}
<Call 0x21194 0x103e0> {[-10-]|[«2""»]|[«2""»]|[«2""»]|[$$Unsafe]}
WriteConsoleStringCrLf(str : String)
<POP 21196-2119a StackAdj> Δ+10 {[-10-]}
<POP 2119a-211a4 Naked> Σ-10 ↓ →0x211c6 ←0x2116e
<MI 2119a MOVE.W (A0+0x42c),D0> {[-10-]}
<MI 2119e ANDI.W #0x2000,D0> {[-10-]}
<MI 211a2 BEQ 0x211c6> {[-10-]}
<POP 211a4-211c6 Naked> Σ-10 ↓
<Blob 0x211a4 [20] @> Δ-20 {[-10-]|[«20""»]}
<POP 211b0-211b2 StackAdj> Δ-4 {[-10-]|[«20""»]|[-4-]}
<Lit 0x211b2 20> {[-10-]|[«20""»]|[$$Operation incomplete]}
<Call 0x211c0 0x103e0> {[-10-]|[«20""»]|[$$Operation incomplete]}
WriteConsoleStringCrLf(str : String)
<POP 211c2-211c6 StackAdj> Δ+24 {[-10-]}
<POP 211c6-211d0 Naked> Σ-10 ↓ →0x211ee ←0x2119a
<MI 211c6 MOVE.W (A0+0x42c),D0> {[-10-]}
<MI 211ca ANDI.W #0x1000,D0> {[-10-]}
<MI 211ce BEQ 0x211ee> {[-10-]}
<POP 211d0-211ee Naked> Σ-10 ↓
<Blob 0x211d0 [18] @> Δ-18 {[-10-]|[«18""»]}
<POP 211dc-211de StackAdj> Δ-4 {[-10-]|[«18""»]|[-4-]}
<Lit 0x211de 18> {[-10-]|[«18""»]|[$$Drive timing error]}
<Call 0x211ea 0x103e0> {[-10-]|[«18""»]|[$$Drive timing error]}
WriteConsoleStringCrLf(str : String)
<POP 211ec-211ee StackAdj> Δ+22 {[-10-]}
<POP 211ee-211f8 Naked> Σ-10 ↓ →0x2121e ←0x211c6
<MI 211ee MOVE.W (A0+0x42c),D0> {[-10-]}
<MI 211f2 ANDI.W #0x0800,D0> {[-10-]}
<MI 211f6 BEQ 0x2121e> {[-10-]}
<POP 211f8-2121e Naked> Σ-10 ↓
<Blob 0x211f8 [4] @> Δ-4 {[-10-]|[«4""»]}
<Blob 0x211fc [4] @> Δ-4 {[-10-]|[«4""»]|[«4""»]}
<Blob 0x21200 [4] @> Δ-4 {[-10-]|[«4""»]|[«4""»]|[«4""»]}
<Blob 0x21204 [4] @> Δ-4 {[-10-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 21208-2120a StackAdj> Δ-4 {[-10-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x2120a 16> {[-10-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Write lock error]}
<Call 0x21218 0x103e0> {[-10-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Write lock error]}
WriteConsoleStringCrLf(str : String)
<POP 2121a-2121e StackAdj> Δ+20 {[-10-]}
<POP 2121e-21228 Naked> Σ-10 ↓ →0x2124e ←0x211ee
<MI 2121e MOVE.W (A0+0x42c),D0> {[-10-]}
<MI 21222 ANDI.W #0x0400,D0> {[-10-]}
<MI 21226 BEQ 0x2124e> {[-10-]}
<POP 21228-2124e Naked> Σ-10 ↓
<Blob 0x21228 [22] @> Δ-22 {[-10-]|[«22""»]}
<POP 21238-2123a StackAdj> Δ-4 {[-10-]|[«22""»]|[-4-]}
<Lit 0x2123a 21> {[-10-]|[«22""»]|[$$Invalid address error]}
<Call 0x21248 0x103e0> {[-10-]|[«22""»]|[$$Invalid address error]}
WriteConsoleStringCrLf(str : String)
<POP 2124a-2124e StackAdj> Δ+26 {[-10-]}
<POP 2124e-21258 Naked> Σ-10 ↓ →0x21278 ←0x2121e
<MI 2124e MOVE.W (A0+0x42c),D0> {[-10-]}
<MI 21252 ANDI.W #0x0200,D0> {[-10-]}
<MI 21256 BEQ 0x21278> {[-10-]}
<POP 21258-21278 Naked> Σ-10 ↓
<Blob 0x21258 [22] @> Δ-22 {[-10-]|[«22""»]}
<POP 21264-21266 StackAdj> Δ-4 {[-10-]|[«22""»]|[-4-]}
<Lit 0x21266 22> {[-10-]|[«22""»]|[$$Address overflow error]}
<Call 0x21272 0x103e0> {[-10-]|[«22""»]|[$$Address overflow error]}
WriteConsoleStringCrLf(str : String)
<POP 21274-21278 StackAdj> Δ+26 {[-10-]}
<POP 21278-21282 Naked> Σ-10 ↓ →0x212a8 ←0x2124e
<MI 21278 MOVE.W (A0+0x42c),D0> {[-10-]}
<MI 2127c ANDI.W #0x0100,D0> {[-10-]}
<MI 21280 BEQ 0x212a8> {[-10-]}
<POP 21282-212a8 Naked> Σ-10 ↓
<Blob 0x21282 [4] @> Δ-4 {[-10-]|[«4""»]}
<Blob 0x21286 [4] @> Δ-4 {[-10-]|[«4""»]|[«4""»]}
<Blob 0x2128a [4] @> Δ-4 {[-10-]|[«4""»]|[«4""»]|[«4""»]}
<Blob 0x2128e [4] @> Δ-4 {[-10-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 21292-21294 StackAdj> Δ-4 {[-10-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x21294 16> {[-10-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Header CRC error]}
<Call 0x212a2 0x103e0> {[-10-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Header CRC error]}
WriteConsoleStringCrLf(str : String)
<POP 212a4-212a8 StackAdj> Δ+20 {[-10-]}
<POP 212a8-212b2 Naked> Σ-10 ↓ →0x212d4 ←0x21278
<MI 212a8 MOVE.W (A0+0x42c),D0> {[-10-]}
<MI 212ac ANDI.W #0x0080,D0> {[-10-]}
<MI 212b0 BEQ 0x212d4> {[-10-]}
<POP 212b2-212d4 Naked> Σ-10 ↓
<Blob 0x212b2 [20] @> Δ-20 {[-10-]|[«20""»]}
<POP 212be-212c0 StackAdj> Δ-4 {[-10-]|[«20""»]|[-4-]}
<Lit 0x212c0 20> {[-10-]|[«20""»]|[$$Header compare error]}
<Call 0x212ce 0x103e0> {[-10-]|[«20""»]|[$$Header compare error]}
WriteConsoleStringCrLf(str : String)
<POP 212d0-212d4 StackAdj> Δ+24 {[-10-]}
<POP 212d4-212de Naked> Σ-10 ↓ →0x212fe ←0x212a8
<MI 212d4 MOVE.W (A0+0x42c),D0> {[-10-]}
<MI 212d8 ANDI.W #0x0040,D0> {[-10-]}
<MI 212dc BEQ 0x212fe> {[-10-]}
<POP 212de-212fe Naked> Σ-10 ↓
<Blob 0x212de [14] @> Δ-14 {[-10-]|[«14""»]}
<POP 212ea-212ec StackAdj> Δ-4 {[-10-]|[«14""»]|[-4-]}
<Lit 0x212ec 14> {[-10-]|[«14""»]|[$$Hard ECC error]}
<Call 0x212fa 0x103e0> {[-10-]|[«14""»]|[$$Hard ECC error]}
WriteConsoleStringCrLf(str : String)
<POP 212fc-212fe StackAdj> Δ+18 {[-10-]}
<POP 212fe-21308 Naked> Σ-10 ↓ →0x2132a ←0x212d4
<MI 212fe MOVE.W (A0+0x42c),D0> {[-10-]}
<MI 21302 ANDI.W #0x0010,D0> {[-10-]}
<MI 21306 BEQ 0x2132a> {[-10-]}
<POP 21308-2132a Naked> Σ-10 ↓
<Blob 0x21308 [4] @> Δ-4 {[-10-]|[«4""»]}
<Blob 0x2130c [4] @> Δ-4 {[-10-]|[«4""»]|[«4""»]}
<Blob 0x21310 [4] @> Δ-4 {[-10-]|[«4""»]|[«4""»]|[«4""»]}
<POP 21314-21316 StackAdj> Δ-4 {[-10-]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x21316 12> {[-10-]|[«4""»]|[«4""»]|[«4""»]|[$$Format error]}
<Call 0x21324 0x103e0> {[-10-]|[«4""»]|[«4""»]|[«4""»]|[$$Format error]}
WriteConsoleStringCrLf(str : String)
<POP 21326-2132a StackAdj> Δ+16 {[-10-]}
<POP 2132a-21334 Naked> Σ-10 ↓ →0x2135c ←0x212fe
<MI 2132a MOVE.W (A0+0x42c),D0> {[-10-]}
<MI 2132e ANDI.W #0x0004,D0> {[-10-]}
<MI 21332 BEQ 0x2135c> {[-10-]}
<POP 21334-2135c Naked> Σ-10 ↓
<Blob 0x21334 [30] @> Δ-30 {[-10-]|[«30""»]}
<POP 21346-21348 StackAdj> Δ-4 {[-10-]|[«30""»]|[-4-]}
<Lit 0x21348 29> {[-10-]|[«30""»]|[$$Register modification refused]}
<Call 0x21356 0x103e0> {[-10-]|[«30""»]|[$$Register modification refused]}
WriteConsoleStringCrLf(str : String)
<POP 21358-2135c StackAdj> Δ+34 {[-10-]}
<POP 2135c-21364 Naked> Σ-10 ↓ →0x2138a ←0x2132a
<MI 2135c MOVE.W (A0+0x42c),D0> {[-10-]}
<MI 21360 AND.W #0x01,D0> {[-10-]}
<MI 21362 BEQ 0x2138a> {[-10-]}
<POP 21364-2138a Naked> Σ-10 ↓
<Blob 0x21364 [4] @> Δ-4 {[-10-]|[«4""»]}
<Blob 0x21368 [4] @> Δ-4 {[-10-]|[«4""»]|[«4""»]}
<Blob 0x2136c [4] @> Δ-4 {[-10-]|[«4""»]|[«4""»]|[«4""»]}
<Blob 0x21370 [4] @> Δ-4 {[-10-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 21374-21376 StackAdj> Δ-4 {[-10-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x21376 16> {[-10-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Illegal function]}
<Call 0x21384 0x103e0> {[-10-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Illegal function]}
WriteConsoleStringCrLf(str : String)
<POP 21386-2138a StackAdj> Δ+20 {[-10-]}
<POP 2138a-21394 Naked> Σ-10 ↓ →0x213bc ←0x2135c
<MI 2138a MOVE.W (A0+0x42e),D0> {[-10-]}
<MI 2138e ANDI.W #0x8000,D0> {[-10-]}
<MI 21392 BEQ 0x213bc> {[-10-]}
<POP 21394-213bc Naked> Σ-10 ↓
<Blob 0x21394 [10] @> Δ-10 {[-10-]|[«10""»]}
<POP 213a6-213a8 StackAdj> Δ-4 {[-10-]|[«10""»]|[-4-]}
<Lit 0x213a8 9> {[-10-]|[«10""»]|[$$Bad block]}
<Call 0x213b6 0x103e0> {[-10-]|[«10""»]|[$$Bad block]}
WriteConsoleStringCrLf(str : String)
<POP 213b8-213bc StackAdj> Δ+14 {[-10-]}
<POP 213bc-213c6 Naked> Σ-10 ↓ →0x213ee ←0x2138a
<MI 213bc MOVE.W (A0+0x42e),D0> {[-10-]}
<MI 213c0 ANDI.W #0x4000,D0> {[-10-]}
<MI 213c4 BEQ 0x213ee> {[-10-]}
<POP 213c6-213ee Naked> Σ-10 ↓
<Blob 0x213c6 [16] @> Δ-16 {[-10-]|[«16""»]}
<POP 213d8-213da StackAdj> Δ-4 {[-10-]|[«16""»]|[-4-]}
<Lit 0x213da 15> {[-10-]|[«16""»]|[$$Seek incomplete]}
<Call 0x213e8 0x103e0> {[-10-]|[«16""»]|[$$Seek incomplete]}
WriteConsoleStringCrLf(str : String)
<POP 213ea-213ee StackAdj> Δ+20 {[-10-]}
<POP 213ee-213f8 Naked> Σ-10 ↓ →0x21420 ←0x213bc
<MI 213ee MOVE.W (A0+0x42e),D0> {[-10-]}
<MI 213f2 ANDI.W #0x1000,D0> {[-10-]}
<MI 213f6 BEQ 0x21420> {[-10-]}
<POP 213f8-21420 Naked> Σ-10 ↓
<Blob 0x213f8 [62] @> Δ-62 {[-10-]|[«62""»]}
<POP 2140a-2140c StackAdj> Δ-4 {[-10-]|[«62""»]|[-4-]}
<Lit 0x2140c 61> {[-10-]|[«62""»]|[$$Invalid command (volume not valid, off-line, or off cylinder)]}
<Call 0x2141a 0x103e0> {[-10-]|[«62""»]|[$$Invalid command (volume not valid, off-line, or off cylinder)]}
WriteConsoleStringCrLf(str : String)
<POP 2141c-21420 StackAdj> Δ+66 {[-10-]}
<POP 21420-2142e Naked> Σ-10 Δ+4 ↓ →0x21450 ←0x213ee
<MI 21420 MOVE.W (A0+0x42e),D0> {[-10-]}
<MI 21424 ANDI.W #0x0080,D0> {[-10-]}
<POP 21428-2142a StackAdj> Δ+4 {[-6-]}
<MI 2142a TST.W D0> {[-6-]}
<MI 2142c BEQ 0x21450> {[-6-]}
<POP 2142e-21450 Naked> Σ-6 ↓
<Blob 0x2142e [4] @> Δ-4 {[-6-]|[«4""»]}
<Blob 0x21432 [4] @> Δ-4 {[-6-]|[«4""»]|[«4""»]}
<Blob 0x21436 [4] @> Δ-4 {[-6-]|[«4""»]|[«4""»]|[«4""»]}
<POP 2143a-2143c StackAdj> Δ-4 {[-6-]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x2143c 12> {[-6-]|[«4""»]|[«4""»]|[«4""»]|[$$Device check]}
<Call 0x2144a 0x103e0> {[-6-]|[«4""»]|[«4""»]|[«4""»]|[$$Device check]}
WriteConsoleStringCrLf(str : String)
<POP 2144c-21450 StackAdj> Δ+16 {[-6-]}
<POP 21450-21452 Naked> Σ-6 Δ+6 ↓ ←0x21420
<POP 21450-21452 StackAdj> Δ+6 {}
<POP 21452-2145a Epilogue> Σ0
@ 2145a
<LVAR 0x008 2(r)>
<POP 2145a-214bc Body>
<POP 2145a-21470 Prologue> Σ0 ↓
<POP 21470-21474 RegCacheLoad> Σ0 ↓
<POP 21474-214b4 Naked> Σ0 ↓
<Blob 0x21474 [4] @> Δ-4 {[«4""»]}
<POP 21478-2147a StackAdj> Δ-4 {[«4""»]|[-4-]}
<Lit 0x2147a 4> {[«4""»]|[$$Hard]}
<POP 2148c-2148e StackAdj> Δ-2 {[«4""»]|[$$Hard]|[-2-]}
<MI 2148e MOVE.W (A6+0x8),(A7)> {[«4""»]|[$$Hard]|[2, '(A6+0x8)']}
<Call 0x21490 0x20c3a> {[«4""»]|[$$Hard]|[2, '(A6+0x8)']}
<POP 21494-21498 StackAdj> Δ+10 {}
<MI 21498 MOVE.W #0x444,D0> {}
<MI 2149c MULS.W (A6+0x8),D0> {}
<MI 2149e LEA.L 0x21eea,A0> {}
<MI 214a4 CLR.L (A0+D0.W+#0x16)> {}
<MI 214a8 ADDQ.L #0x1,(A0+D0.W+#0xe)> {}
<MI 214ac MOVE.W (A6+0x8),-(A7)> Δ-2 {[2, '(A6+0x8)']}
<Call 0x214ae 0x209d6> {[2, '(A6+0x8)']}
<POP 214b2-214b4 StackAdj> Δ+2 {}
<POP 214b4-214bc Epilogue> Σ0
@ 214bc
<LVAR 0x008 2(r)>
<POP 214bc-2151e Body>
<POP 214bc-214d2 Prologue> Σ0 ↓
<POP 214d2-21516 Naked> Σ0 ↓
<Blob 0x214d2 [4] @> Δ-4 {[«4""»]}
<POP 214d6-214d8 StackAdj> Δ-4 {[«4""»]|[-4-]}
<Lit 0x214d8 4> {[«4""»]|[$$Soft]}
<POP 214ea-214ec StackAdj> Δ-2 {[«4""»]|[$$Soft]|[-2-]}
<MI 214ec MOVE.W (A6+0x8),(A7)> {[«4""»]|[$$Soft]|[2, '(A6+0x8)']}
<Call 0x214f0 0x20c3a> {[«4""»]|[$$Soft]|[2, '(A6+0x8)']}
<POP 214f4-214f8 StackAdj> Δ+10 {}
<MI 214f8 MOVE.W #0x444,D0> {}
<MI 214fc MULS.W (A6+0x8),D0> {}
<MI 21500 LEA.L 0x21eea,A0> {}
<MI 21506 MOVE.L (A0+D0.W+#0x12),D1> {}
<MI 2150a ADD.L (A0+D0.W+#0x16),D1> {}
<MI 2150e MOVE.L D1,(A0+D0.W+#0x12)> {}
<MI 21512 CLR.L (A0+D0.W+#0x16)> {}
<POP 21516-2151e Epilogue> Σ0
@ 2151e
<LVAR 0x008 2(r)>
<LVAR -0x004 2(w)>
<LVAR -0x006 2(w)>
<LVAR -0x008 2(w)>
<LVAR -0x00e 2(w)>
<LVAR -0x012 @ 2(w)>
<POP 2151e-2163c Body>
<POP 2151e-21534 Prologue> Σ0 ↓
<POP 21534-2153c RegCacheLoad> Σ0 ↓
<POP 2153c-21568 Naked> Σ0 Δ-4 ↓ →0x21574
<MI 2153c MOVE.W #0x444,D0> {}
<MI 21540 MULS.W (A6+0x8),D0> {}
<MI 21542 LEA.L 0x21eea,A0> {}
<MI 21548 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 2154a MOVE.W (A6+0x8),-(A7)> Δ-2 {[4, 'A0']|[2, '(A6+0x8)']}
<MI 2154c LEA.L (A0+D0.W+#0xc),A0> {[4, 'A0']|[2, '(A6+0x8)']}
<MI 21550 PEA.L (A0+0x426)> Δ-4 {[4, 'A0']|[2, '(A6+0x8)']|[4, '^(A0+0x426)']}
<Call 0x21554 0x20982> {[4, 'A0']|[2, '(A6+0x8)']|[4, '^(A0+0x426)']}
<POP 21558-2155a StackAdj> Δ+6 {[4, 'A0']}
<MI 2155a MOVEA.L (A7),A0> {[4, 'A0']}
<MI 2155c ADDQ.L #0x1,(A0+D0.W+#0x16)> {[4, 'A0']}
<MI 21560 MOVE.L (A0+D0.W+#0x16),D1> {[4, 'A0']}
<MI 21564 CMP.L #0x0a,D1> {[4, 'A0']}
<MI 21566 BNE 0x21574> {[4, 'A0']}
<POP 21568-21574 Naked> Σ-4 →0x21632
<MI 21568 MOVE.W (A6+0x8),-(A7)> Δ-2 {[-4-]|[2, '(A6+0x8)']}
<Call 0x2156a 0x2145a> {[-4-]|[2, '(A6+0x8)']}
<POP 2156e-21570 StackAdj> Δ+2 {[-4-]}
<MI 21570 BRA 0x21632> {[-4-]}
<POP 21574-2158a Naked> Σ-4 ↓ →0x215ba ←0x2153c
<MI 21574 MOVE.W #0x100,(A6-0x12)> {[-4-]}
<MI 2157a MOVE.W #0x02,(A6-0xe)> {[-4-]}
<POP 2157e-21580 StackAdj> Δ-2 {[-6-]}
<Call 0x21580 0x1060a> {[-6-]}
Is_machine_type_four() : Bool
<MI 21586 TST.B (A7)+> Δ+2 {[-4-]}
<MI 21588 BEQ 0x215ba> {[-4-]}
<POP 2158a-215a0 Naked> Σ-4 →0x215a6 →0x215ae →0x215ae
<MI 2158a MOVE.B (A0+D0.W+#0xd),D1> {[-4-]}
<MI 2158e EXTB.W D1> {[-4-]}
<POP 0x21590 LimitCheck 0x0 ≤ D1 ≤ 0x2> {[-4-]}
<MI 21596 ADD.W D1,D1> {[-4-]}
<MI 21598 SWITCH D1.W> {[-4-]}
<POP 215a6-215ae Naked> Σ-4 →0x215b4 ←0x2158a
<MI 215a6 MOVE.W (A6+0x8),D1> {[-4-]}
<MI 215a8 ASL.W #0x8,D1> {[-4-]}
<MI 215aa ADDQ.W #0x3,D1> {[-4-]}
<MI 215ac BRA 0x215b4> {[-4-]}
<POP 215ae-215b4 Naked> Σ-4 ↓ ←0x2158a ←0x2158a
<MI 215ae MOVE.W (A6+0x8),D1> {[-4-]}
<MI 215b0 ASL.W #0x8,D1> {[-4-]}
<MI 215b2 ADDQ.W #0x2,D1> {[-4-]}
<POP 215b4-215ba Naked> Σ-4 →0x215f4 ←0x215a6
<MI 215b4 MOVE.W D1,(A6-0x8)> {[-4-]}
<MI 215b8 BRA 0x215f4> {[-4-]}
<POP 215ba-215d0 Naked> Σ-4 →0x215d6 →0x215e0 →0x215ea ←0x21574
<MI 215ba MOVE.B (A0+D0.W+#0xd),D1> {[-4-]}
<MI 215be EXTB.W D1> {[-4-]}
<POP 0x215c0 LimitCheck 0x0 ≤ D1 ≤ 0x2> {[-4-]}
<MI 215c6 ADD.W D1,D1> {[-4-]}
<MI 215c8 SWITCH D1.W> {[-4-]}
<POP 215d6-215e0 Naked> Σ-4 →0x215f0 ←0x215ba
<MI 215d6 MOVE.W (A6+0x8),D1> {[-4-]}
<MI 215d8 ASL.W #0x8,D1> {[-4-]}
<MI 215da ADDI.W #0x000b,D1> {[-4-]}
<MI 215de BRA 0x215f0> {[-4-]}
<POP 215e0-215ea Naked> Σ-4 →0x215f0 ←0x215ba
<MI 215e0 MOVE.W (A6+0x8),D1> {[-4-]}
<MI 215e2 ASL.W #0x8,D1> {[-4-]}
<MI 215e4 ADDI.W #0x000c,D1> {[-4-]}
<MI 215e8 BRA 0x215f0> {[-4-]}
<POP 215ea-215f0 Naked> Σ-4 ↓ ←0x215ba
<MI 215ea MOVE.W (A6+0x8),D1> {[-4-]}
<MI 215ec ASL.W #0x8,D1> {[-4-]}
<MI 215ee ADDQ.W #0x2,D1> {[-4-]}
<POP 215f0-215f4 Naked> Σ-4 ↓ ←0x215d6 ←0x215e0
<MI 215f0 MOVE.W D1,(A6-0x8)> {[-4-]}
<POP 215f4-21632 Naked> Σ-4 ↓ ←0x215b4
<MI 215f4 MOVE.L (A0+D0.W+#0x22),D1> {[-4-]}
<POP 0x215f8 LimitCheck 0x0 ≤ D1 ≤ 0xffff> {[-4-]}
<MI 21602 MOVE.W D1,(A6-0x6)> {[-4-]}
<MI 21606 MOVE.L (A0+D0.W+#0x1e),D1> {[-4-]}
<MI 2160a ASL.L #0x8,D1> {[-4-]}
<MI 2160c ADD.L (A0+D0.W+#0x1a),D1> {[-4-]}
<POP 0x21610 LimitCheck 0x0 ≤ D1 ≤ 0xffff> {[-4-]}
<MI 2161a MOVE.W D1,(A6-0x4)> {[-4-]}
<Pointer.fp 0x2161e <LVAR -0x012 @ 2(w)>> Δ-4 {[-4-]|[@@-18]}
<MI 21622 LEA.L (A0+D0.W+#0x32),A0> {[-4-]|[@@-18]}
<MI 21626 MOVE.L A0,-(A7)> Δ-4 {[-4-]|[@@-18]|[4, 'A0']}
<MI 21628 MOVE.W (A6+0x8),-(A7)> Δ-2 {[-4-]|[@@-18]|[4, 'A0']|[2, '(A6+0x8)']}
<Call 0x2162a 0x10204> {[-4-]|[@@-18]|[4, 'A0']|[2, '(A6+0x8)']}
KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
<POP 21630-21632 StackAdj> Δ+10 {[-4-]}
<POP 21632-21634 Naked> Σ-4 Δ+4 ↓ ←0x21568
<POP 21632-21634 StackAdj> Δ+4 {}
<POP 21634-2163c Epilogue> Σ0
@ 2163c
<LVAR 0x00a 2(r)>
<LVAR 0x008 1(r)>
<POP 2163c-216ca Body> Δ+2
<POP 2163c-21652 Prologue> Σ0 ↓
<POP 21652-21658 RegCacheLoad> Σ0 ↓
<POP 21658-2165e Naked> Σ0 ↓ →0x21666
<MI 21658 TST.B (A6+0x8)> {}
<MI 2165c BNE 0x21666> {}
<POP 2165e-21666 Naked> Σ0 Δ-2 →0x216c0
<MI 2165e MOVE.W (A6+0xa),-(A7)> Δ-2 {[2, '(A6+0xa)']}
<Call 0x21660 0x2151e> {[2, '(A6+0xa)']}
<MI 21664 BRA 0x216c0> {[2, '(A6+0xa)']}
<POP 21666-216b2 Naked> Σ0 ↓ →0x216ba ←0x21658
<MI 21666 MOVE.W #0x444,D0> {}
<MI 2166a MULS.W (A6+0xa),D0> {}
<MI 2166c LEA.L 0x21eea,A0> {}
<MI 21672 LEA.L (A0+D0.W+#0xc),A0> {}
<POP 21676-21677 StackAdj> Δ-8 ↓ {[-8-]}
<Blob 0x21677 [8] (A0+0x43c)> Δ-8 {[-8-]|[«8»]}
<POP 21686-21688 StackAdj> Δ-8 {[-8-]|[«8»]|[-8-]}
<Const 0x21688 0x400.4> Δ-4 {[-8-]|[«8»]|[-8-]|[##1024]}
<Call 0x2168c 0x10354> {[-8-]|[«8»]|[-8-]|[##1024]}
Long2Quad(a : Long) : Quad
<POP 21692-21694 StackAdj> Δ+4 {[-8-]|[«8»]|[-8-]}
<Call 0x21694 0x10314> {[-8-]|[«8»]|[-8-]}
Add(a, b : Quad) : Quad
<POP 2169a-2169c StackAdj> Δ+16 {[-8-]}
<MI 2169c LEA.L (A0+0x43c),A1> {[-8-]}
<MI 216a0 MOVEA.L A7,A2> {[-8-]}
<BlockMove 8,A2,A1> {[-8-]}
<POP 216aa-216ac StackAdj> Δ+8 {}
<MI 216ac TST.L (A0+0xa)> {}
<MI 216b0 BEQ 0x216ba> {}
<POP 216b2-216ba Naked> Σ0 ↓
<MI 216b2 MOVE.W (A6+0xa),-(A7)> Δ-2 {[2, '(A6+0xa)']}
<Call 0x216b4 0x214bc> {[2, '(A6+0xa)']}
<POP 216b8-216ba StackAdj> Δ+2 {}
<POP 216ba-216c0 Naked> Σ0 Δ-2 ↓ ←0x21666
<MI 216ba MOVE.W (A6+0xa),-(A7)> Δ-2 {[2, '(A6+0xa)']}
<Call 0x216bc 0x20acc> {[2, '(A6+0xa)']}
<POP 216c0-216c2 Naked> Σ-2 Δ+2 ↓ ←0x2165e
<POP 216c0-216c2 StackAdj> Δ+2 {}
<POP 216c2-216ca Epilogue> Σ0
@ 216ca
<LVAR 0x00a 2(r)>
<LVAR 0x008 1(r)>
<LVAR -0x010 2(r)>
<LVAR -0x018 @>
<POP 216ca-21778 Body> Δ+2
<POP 216ca-216e0 Prologue> Σ0 ↓
<POP 216e0-216e6 RegCacheLoad> Σ0 ↓
<POP 216e6-216ec Naked> Σ0 ↓ →0x21714
<MI 216e6 TST.B (A6+0x8)> {}
<MI 216ea BNE 0x21714> {}
<POP 216ec-21702 Naked> Σ0 ↓ →0x2170a
<MI 216ec MOVE.W (A6+0xa),-(A7)> Δ-2 {[2, '(A6+0xa)']}
<Pointer.fp 0x216ee <LVAR -0x018 @>> Δ-4 {[2, '(A6+0xa)']|[@@-24]}
<Call 0x216f2 0x20982> {[2, '(A6+0xa)']|[@@-24]}
<POP 216f6-216f8 StackAdj> Δ+6 {}
<MI 216f8 MOVE.W (A6-0x10),D0> {}
<MI 216fc ANDI.W #0x8000,D0> {}
<MI 21700 BEQ 0x2170a> {}
<POP 21702-2170a Naked> Σ0 Δ-2 →0x21710
<MI 21702 MOVE.W (A6+0xa),-(A7)> Δ-2 {[2, '(A6+0xa)']}
<Call 0x21704 0x209d6> {[2, '(A6+0xa)']}
<MI 21708 BRA 0x21710> {[2, '(A6+0xa)']}
<POP 2170a-21710 Naked> Σ0 Δ-2 ↓ ←0x216ec
<MI 2170a MOVE.W (A6+0xa),-(A7)> Δ-2 {[2, '(A6+0xa)']}
<Call 0x2170c 0x2151e> {[2, '(A6+0xa)']}
<POP 21710-21714 Naked> Σ-2 Δ+2 →0x21770 ←0x21702
<POP 21710-21712 StackAdj> Δ+2 {}
<MI 21712 BRA 0x21770> {}
<POP 21714-21760 Naked> Σ0 ↓ →0x21768 ←0x216e6
<MI 21714 MOVE.W #0x444,D0> {}
<MI 21718 MULS.W (A6+0xa),D0> {}
<MI 2171a LEA.L 0x21eea,A0> {}
<MI 21720 LEA.L (A0+D0.W+#0xc),A0> {}
<POP 21724-21725 StackAdj> Δ-8 ↓ {[-8-]}
<Blob 0x21725 [8] (A0+0x43c)> Δ-8 {[-8-]|[«8»]}
<POP 21734-21736 StackAdj> Δ-8 {[-8-]|[«8»]|[-8-]}
<Const 0x21736 0x400.4> Δ-4 {[-8-]|[«8»]|[-8-]|[##1024]}
<Call 0x2173a 0x10354> {[-8-]|[«8»]|[-8-]|[##1024]}
Long2Quad(a : Long) : Quad
<POP 21740-21742 StackAdj> Δ+4 {[-8-]|[«8»]|[-8-]}
<Call 0x21742 0x10314> {[-8-]|[«8»]|[-8-]}
Add(a, b : Quad) : Quad
<POP 21748-2174a StackAdj> Δ+16 {[-8-]}
<MI 2174a LEA.L (A0+0x43c),A1> {[-8-]}
<MI 2174e MOVEA.L A7,A2> {[-8-]}
<BlockMove 8,A2,A1> {[-8-]}
<POP 21758-2175a StackAdj> Δ+8 {}
<MI 2175a TST.L (A0+0xa)> {}
<MI 2175e BEQ 0x21768> {}
<POP 21760-21768 Naked> Σ0 ↓
<MI 21760 MOVE.W (A6+0xa),-(A7)> Δ-2 {[2, '(A6+0xa)']}
<Call 0x21762 0x214bc> {[2, '(A6+0xa)']}
<POP 21766-21768 StackAdj> Δ+2 {}
<POP 21768-21770 Naked> Σ0 ↓ ←0x21714
<MI 21768 MOVE.W (A6+0xa),-(A7)> Δ-2 {[2, '(A6+0xa)']}
<Call 0x2176a 0x20b9a> {[2, '(A6+0xa)']}
<POP 2176e-21770 StackAdj> Δ+2 {}
<POP 21770-21778 Epilogue> Σ0 ←0x21710
@ 21778
<LVAR 0x00a 2(r)>
<LVAR 0x008 1(r)>
<LVAR -0x010 2(r)>
<LVAR -0x018 @>
<POP 21778-21826 Body> Δ+2
<POP 21778-2178e Prologue> Σ0 ↓
<POP 2178e-21794 RegCacheLoad> Σ0 ↓
<POP 21794-2179a Naked> Σ0 ↓ →0x217c2
<MI 21794 TST.B (A6+0x8)> {}
<MI 21798 BNE 0x217c2> {}
<POP 2179a-217b0 Naked> Σ0 ↓ →0x217b8
<MI 2179a MOVE.W (A6+0xa),-(A7)> Δ-2 {[2, '(A6+0xa)']}
<Pointer.fp 0x2179c <LVAR -0x018 @>> Δ-4 {[2, '(A6+0xa)']|[@@-24]}
<Call 0x217a0 0x20982> {[2, '(A6+0xa)']|[@@-24]}
<POP 217a4-217a6 StackAdj> Δ+6 {}
<MI 217a6 MOVE.W (A6-0x10),D0> {}
<MI 217aa ANDI.W #0x8000,D0> {}
<MI 217ae BEQ 0x217b8> {}
<POP 217b0-217b8 Naked> Σ0 Δ-2 →0x217be
<MI 217b0 MOVE.W (A6+0xa),-(A7)> Δ-2 {[2, '(A6+0xa)']}
<Call 0x217b2 0x20acc> {[2, '(A6+0xa)']}
<MI 217b6 BRA 0x217be> {[2, '(A6+0xa)']}
<POP 217b8-217be Naked> Σ0 Δ-2 ↓ ←0x2179a
<MI 217b8 MOVE.W (A6+0xa),-(A7)> Δ-2 {[2, '(A6+0xa)']}
<Call 0x217ba 0x2151e> {[2, '(A6+0xa)']}
<POP 217be-217c2 Naked> Σ-2 Δ+2 →0x2181e ←0x217b0
<POP 217be-217c0 StackAdj> Δ+2 {}
<MI 217c0 BRA 0x2181e> {}
<POP 217c2-2180e Naked> Σ0 ↓ →0x21816 ←0x21794
<MI 217c2 MOVE.W #0x444,D0> {}
<MI 217c6 MULS.W (A6+0xa),D0> {}
<MI 217c8 LEA.L 0x21eea,A0> {}
<MI 217ce LEA.L (A0+D0.W+#0xc),A0> {}
<POP 217d2-217d3 StackAdj> Δ-8 ↓ {[-8-]}
<Blob 0x217d3 [8] (A0+0x43c)> Δ-8 {[-8-]|[«8»]}
<POP 217e2-217e4 StackAdj> Δ-8 {[-8-]|[«8»]|[-8-]}
<Const 0x217e4 0x400.4> Δ-4 {[-8-]|[«8»]|[-8-]|[##1024]}
<Call 0x217e8 0x10354> {[-8-]|[«8»]|[-8-]|[##1024]}
Long2Quad(a : Long) : Quad
<POP 217ee-217f0 StackAdj> Δ+4 {[-8-]|[«8»]|[-8-]}
<Call 0x217f0 0x10314> {[-8-]|[«8»]|[-8-]}
Add(a, b : Quad) : Quad
<POP 217f6-217f8 StackAdj> Δ+16 {[-8-]}
<MI 217f8 LEA.L (A0+0x43c),A1> {[-8-]}
<MI 217fc MOVEA.L A7,A2> {[-8-]}
<BlockMove 8,A2,A1> {[-8-]}
<POP 21806-21808 StackAdj> Δ+8 {}
<MI 21808 TST.L (A0+0xa)> {}
<MI 2180c BEQ 0x21816> {}
<POP 2180e-21816 Naked> Σ0 ↓
<MI 2180e MOVE.W (A6+0xa),-(A7)> Δ-2 {[2, '(A6+0xa)']}
<Call 0x21810 0x214bc> {[2, '(A6+0xa)']}
<POP 21814-21816 StackAdj> Δ+2 {}
<POP 21816-2181e Naked> Σ0 ↓ ←0x217c2
<MI 21816 MOVE.W (A6+0xa),-(A7)> Δ-2 {[2, '(A6+0xa)']}
<Call 0x21818 0x209d6> {[2, '(A6+0xa)']}
<POP 2181c-2181e StackAdj> Δ+2 {}
<POP 2181e-21826 Epilogue> Σ0 ←0x217be
@ 21826
<LVAR -0x004 @ 4(r)>
<POP 21826-21b36 Body>
<POP 21826-2183c Prologue> Σ0 ↓
<POP 2183c-2184a RegCacheLoad> Σ0 ↓
<POP 2184a-218ba Naked> Σ0 ↓
<Pointer.fp 0x2184a <LVAR -0x004 @ 4(r)>> Δ-4 {[@@-4]}
<Call 0x2184e 0x10304> {[@@-4]}
GetRtc() : TimeStamp
<POP 21854-21856 StackAdj> Δ+4 {}
<Blob 0x21856 [10] @> Δ-10 {[«10""»]}
<Blob 0x21862 [18] @> Δ-18 {[«10""»]|[«18""»]}
<POP 2186e-21870 StackAdj> Δ-8 {[«10""»]|[«18""»]|[-8-]}
<Lit 0x21870 10> {[«10""»]|[«18""»]|[-4-]|[$$Status at_]}
<MI 2187e MOVE.L (A6-0x4),(A7)> {[«10""»]|[«18""»]|[-4-]|[4, '(A6-0x4)']}
<POP 21878-2187e StackAdj> Δ-8 {[«10""»]|[«18""»]|[-4-]|[4, '(A6-0x4)']|[-8-]}
<Call 0x21882 0x10308> {[«10""»]|[«18""»]|[-4-]|[4, '(A6-0x4)']|[-8-]}
TimeToText()
<Lit 0x21888 18> {[«10""»]|[«18""»]|[-4-]|[4, '(A6-0x4)']|[-4-]|[$$, test started at_]}
<POP 21898-21899 StackAdj> Δ-4 {[«10""»]|[«18""»]|[-4-]|[4, '(A6-0x4)']|[-4-]|[$$, test started at_]|[-4-]}
<Blob 0x21899 [4] 0x21ef2> Δ-4 {[«10""»]|[«18""»]|[-4-]|[4, '(A6-0x4)']|[-4-]|[$$, test started at_]|[-4-]|[«4»]}
<Call 0x2189e 0x10308> {[«10""»]|[«18""»]|[-4-]|[4, '(A6-0x4)']|[-4-]|[$$, test started at_]|[-4-]|[«4»]}
TimeToText()
<POP 218a4-218a6 StackAdj> Δ+4 {[«10""»]|[«18""»]|[-4-]|[4, '(A6-0x4)']|[-4-]|[$$, test started at_]|[-4-]}
<Call 0x218a6 0x102d8> {[«10""»]|[«18""»]|[-4-]|[4, '(A6-0x4)']|[-4-]|[$$, test started at_]|[-4-]}
StringCat4(a, b, c, d : String) : String
<POP 218ac-218b0 StackAdj> Δ+16 {[«10""»]|[«18""»]|[-4-]}
<Call 0x218b0 0x103e0> {[«10""»]|[«18""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 218b6-218b8 StackAdj> Δ+32 {}
<MI 218b8 MOVEQ.L #0x00,D7> {}
<POP 218ba-218e2 Naked> Σ0 Δ-4 ↓ →0x21b20 ←0x21b20
<POP 0x218ba LimitCheck 0x0 ≤ D7 ≤ 0xf> {}
<MI 218c4 MOVE.L D7,D4> {}
<MI 218c6 MOVE.L #0x444,D3> {}
<Call 0x218cc 0x1028c> {}
?muls_d3_d4
<MI 218d2 LEA.L 0x21eea,A0> {}
<MI 218d8 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 218da TST.B (A0+D4.L+#0xc)> {[4, 'A0']}
<MI 218de BEQ 0x21b20> {[4, 'A0']}
<POP 218e2-2190e Naked> Σ-4 ↓ →0x2191a
<Blob 0x218e2 [2] @> Δ-2 {[-4-]|[«2""»]}
<POP 218e6-218e8 StackAdj> Δ-8 {[-4-]|[«2""»]|[-8-]}
<Lit 0x218e8 2> {[-4-]|[«2""»]|[-4-]|[$$U ]}
<MI 218f8 MOVE.L D7,(A7)> {[-4-]|[«2""»]|[-4-]|[4, 'D7']}
<POP 218f2-218f8 StackAdj> Δ-8 {[-4-]|[«2""»]|[-4-]|[4, 'D7']|[-8-]}
<Call 0x218fa 0x102e4> {[-4-]|[«2""»]|[-4-]|[4, 'D7']|[-8-]}
Long2String(a : Long) : String
<POP 21900-21902 StackAdj> Δ+4 {[-4-]|[«2""»]|[-4-]|[4, 'D7']|[-4-]}
<Call 0x21902 0x102d0> {[-4-]|[«2""»]|[-4-]|[4, 'D7']|[-4-]}
StringCat2(a, b : String) : String
<POP 21904-21906 StackAdj> Δ+8 {[-4-]|[«2""»]|[-4-]}
<MI 21906 MOVEA.L (A7)+,A4> Δ+4 {[-4-]|[«2""»]}
<POP 21908-2190a StackAdj> Δ+2 {[-4-]}
<MI 2190a CMP.L #0x0a,D7> {[-4-]}
<MI 2190c BGE 0x2191a> {[-4-]}
<POP 2190e-2191a Naked> Σ-4 ↓
<MI 2190e MOVE.L A4,-(A7)> Δ-4 {[-4-]|[4, 'A4']}
<Const 0x21910 0x20.2> Δ-2 {[-4-]|[4, 'A4']|[#32]}
<Call 0x21912 0x102c0> {[-4-]|[4, 'A4']|[#32]}
AppendChar(MOD b : String; a : char)
<POP 21918-2191a StackAdj> Δ+6 {[-4-]}
<POP 2191a-21b20 Naked> Σ-4 ↓ ←0x218e2
<Blob 0x2191a [10] @> Δ-10 {[-4-]|[«10""»]}
<POP 2192a-2192c StackAdj> Δ-4 {[-4-]|[«10""»]|[-4-]}
<MI 2192c MOVE.L A4,-(A7)> Δ-4 {[-4-]|[«10""»]|[-4-]|[4, 'A4']}
<POP 2192e-21930 StackAdj> Δ-4 {[-4-]|[«10""»]|[-4-]|[4, 'A4']|[-4-]}
<Lit 0x21930 9> {[-4-]|[«10""»]|[-4-]|[4, 'A4']|[$$ bytes=>_]}
<Call 0x21942 0x102d0> {[-4-]|[«10""»]|[-4-]|[4, 'A4']|[$$ bytes=>_]}
StringCat2(a, b : String) : String
<POP 21944-21946 StackAdj> Δ+8 {[-4-]|[«10""»]|[-4-]}
<MI 21946 MOVEA.L (A7)+,A4> Δ+4 {[-4-]|[«10""»]}
<POP 21948-2194a StackAdj> Δ+2 {[-4-]|[-8-]}
<MI 2194a MOVE.L A4,(A7)> {[-4-]|[-4-]|[4, 'A4']}
<POP 2194c-2194e StackAdj> Δ-8 {[-4-]|[-4-]|[4, 'A4']|[-8-]}
<MI 2194e LEA.L (A0+D4.L+#0xc),A0> {[-4-]|[-4-]|[4, 'A4']|[-8-]}
<Blob 0x21952 [8] (A0+0x43c)> Δ-8 {[-4-]|[-4-]|[4, 'A4']|[-8-]|[«8»]}
<Const 0x21962 0xa.4> Δ-4 {[-4-]|[-4-]|[4, 'A4']|[-8-]|[«8»]|[##10]}
<Call 0x21966 0x1035c> {[-4-]|[-4-]|[4, 'A4']|[-8-]|[«8»]|[##10]}
Quad2String(a : Quad; radix : Long ) : String
<POP 2196c-21970 StackAdj> Δ+12 {[-4-]|[-4-]|[4, 'A4']|[-8-]}
<Const 0x21970 0xa.4> Δ-4 {[-4-]|[-4-]|[4, 'A4']|[-8-]|[##10]}
<Call 0x21974 0x102f8> {[-4-]|[-4-]|[4, 'A4']|[-8-]|[##10]}
LeftPad(a : String; b : Long) : String
<POP 2197a-2197c StackAdj> Δ+8 {[-4-]|[-4-]|[4, 'A4']|[-4-]}
<Call 0x2197c 0x102d0> {[-4-]|[-4-]|[4, 'A4']|[-4-]}
StringCat2(a, b : String) : String
<POP 2197e-21980 StackAdj> Δ+8 {[-4-]|[-4-]}
<MI 21980 MOVEA.L (A7)+,A4> Δ+4 {[-4-]}
<Blob 0x21982 [4] @> Δ-4 {[-4-]|[«4""»]}
<Blob 0x21986 [4] @> Δ-4 {[-4-]|[«4""»]|[«4""»]}
<POP 2198a-2198c StackAdj> Δ-4 {[-4-]|[«4""»]|[«4""»]|[-4-]}
<MI 2198c MOVE.L A4,-(A7)> Δ-4 {[-4-]|[«4""»]|[«4""»]|[-4-]|[4, 'A4']}
<POP 2198e-21990 StackAdj> Δ-4 {[-4-]|[«4""»]|[«4""»]|[-4-]|[4, 'A4']|[-4-]}
<Lit 0x21990 8> {[-4-]|[«4""»]|[«4""»]|[-4-]|[4, 'A4']|[$$ soft=>_]}
<Call 0x219a2 0x102d0> {[-4-]|[«4""»]|[«4""»]|[-4-]|[4, 'A4']|[$$ soft=>_]}
StringCat2(a, b : String) : String
<POP 219a4-219a6 StackAdj> Δ+8 {[-4-]|[«4""»]|[«4""»]|[-4-]}
<MI 219a6 MOVEA.L (A7)+,A4> Δ+4 {[-4-]|[«4""»]|[«4""»]}
<MI 219a8 MOVE.L A4,(A7)> {[-4-]|[«4""»]|[4, 'A4']}
<POP 219aa-219ac StackAdj> Δ-8 {[-4-]|[«4""»]|[4, 'A4']|[-8-]}
<MI 219ac MOVEA.L (A7+0x10),A0> {[-4-]|[«4""»]|[4, 'A4']|[-8-]}
<MI 219b0 MOVE.L (A0+D4.L+#0x12),-(A7)> Δ-4 {[-4-]|[«4""»]|[4, 'A4']|[-8-]|[4, '(A0+D4.L+#0x12)']}
<Call 0x219b4 0x102e4> {[-4-]|[«4""»]|[4, 'A4']|[-8-]|[4, '(A0+D4.L+#0x12)']}
Long2String(a : Long) : String
<POP 219ba-219bc StackAdj> Δ+4 {[-4-]|[«4""»]|[4, 'A4']|[-8-]}
<Const 0x219bc 0x5.4> Δ-4 {[-4-]|[«4""»]|[4, 'A4']|[-8-]|[##5]}
<Call 0x219c0 0x102f8> {[-4-]|[«4""»]|[4, 'A4']|[-8-]|[##5]}
LeftPad(a : String; b : Long) : String
<POP 219c6-219c8 StackAdj> Δ+8 {[-4-]|[«4""»]|[4, 'A4']|[-4-]}
<Call 0x219c8 0x102d0> {[-4-]|[«4""»]|[4, 'A4']|[-4-]}
StringCat2(a, b : String) : String
<POP 219ca-219cc StackAdj> Δ+8 {[-4-]|[«4""»]}
<MI 219cc MOVEA.L (A7)+,A4> Δ+4 {[-4-]}
<Blob 0x219ce [4] @> Δ-4 {[-4-]|[«4""»]}
<Blob 0x219d2 [4] @> Δ-4 {[-4-]|[«4""»]|[«4""»]}
<POP 219d6-219d8 StackAdj> Δ-4 {[-4-]|[«4""»]|[«4""»]|[-4-]}
<MI 219d8 MOVE.L A4,-(A7)> Δ-4 {[-4-]|[«4""»]|[«4""»]|[-4-]|[4, 'A4']}
<POP 219da-219dc StackAdj> Δ-4 {[-4-]|[«4""»]|[«4""»]|[-4-]|[4, 'A4']|[-4-]}
<Lit 0x219dc 8> {[-4-]|[«4""»]|[«4""»]|[-4-]|[4, 'A4']|[$$ hard=>_]}
<Call 0x219ee 0x102d0> {[-4-]|[«4""»]|[«4""»]|[-4-]|[4, 'A4']|[$$ hard=>_]}
StringCat2(a, b : String) : String
<POP 219f0-219f2 StackAdj> Δ+8 {[-4-]|[«4""»]|[«4""»]|[-4-]}
<MI 219f2 MOVEA.L (A7)+,A4> Δ+4 {[-4-]|[«4""»]|[«4""»]}
<MI 219f4 MOVE.L A4,(A7)> {[-4-]|[«4""»]|[4, 'A4']}
<POP 219f6-219f8 StackAdj> Δ-8 {[-4-]|[«4""»]|[4, 'A4']|[-8-]}
<MI 219f8 MOVEA.L (A7+0x10),A0> {[-4-]|[«4""»]|[4, 'A4']|[-8-]}
<MI 219fc MOVE.L (A0+D4.L+#0xe),-(A7)> Δ-4 {[-4-]|[«4""»]|[4, 'A4']|[-8-]|[4, '(A0+D4.L+#0xe)']}
<Call 0x21a00 0x102e4> {[-4-]|[«4""»]|[4, 'A4']|[-8-]|[4, '(A0+D4.L+#0xe)']}
Long2String(a : Long) : String
<POP 21a06-21a08 StackAdj> Δ+4 {[-4-]|[«4""»]|[4, 'A4']|[-8-]}
<Const 0x21a08 0x5.4> Δ-4 {[-4-]|[«4""»]|[4, 'A4']|[-8-]|[##5]}
<Call 0x21a0c 0x102f8> {[-4-]|[«4""»]|[4, 'A4']|[-8-]|[##5]}
LeftPad(a : String; b : Long) : String
<POP 21a12-21a14 StackAdj> Δ+8 {[-4-]|[«4""»]|[4, 'A4']|[-4-]}
<Call 0x21a14 0x102d0> {[-4-]|[«4""»]|[4, 'A4']|[-4-]}
StringCat2(a, b : String) : String
<POP 21a16-21a18 StackAdj> Δ+8 {[-4-]|[«4""»]}
<MI 21a18 MOVEA.L (A7)+,A4> Δ+4 {[-4-]}
<Blob 0x21a1a [6] @> Δ-6 {[-4-]|[«6""»]}
<POP 21a2a-21a2c StackAdj> Δ-4 {[-4-]|[«6""»]|[-4-]}
<MI 21a2c MOVE.L A4,-(A7)> Δ-4 {[-4-]|[«6""»]|[-4-]|[4, 'A4']}
<POP 21a2e-21a30 StackAdj> Δ-4 {[-4-]|[«6""»]|[-4-]|[4, 'A4']|[-4-]}
<Lit 0x21a30 5> {[-4-]|[«6""»]|[-4-]|[4, 'A4']|[$$ C=>_]}
<Call 0x21a40 0x102d0> {[-4-]|[«6""»]|[-4-]|[4, 'A4']|[$$ C=>_]}
StringCat2(a, b : String) : String
<POP 21a42-21a44 StackAdj> Δ+8 {[-4-]|[«6""»]|[-4-]}
<MI 21a44 MOVEA.L (A7)+,A4> Δ+4 {[-4-]|[«6""»]}
<POP 21a46-21a48 StackAdj> Δ+2 {[-4-]|[-4-]}
<MI 21a48 MOVE.L A4,-(A7)> Δ-4 {[-4-]|[-4-]|[4, 'A4']}
<POP 21a4a-21a4c StackAdj> Δ-8 {[-4-]|[-4-]|[4, 'A4']|[-8-]}
<MI 21a4c MOVEA.L (A7+0x10),A0> {[-4-]|[-4-]|[4, 'A4']|[-8-]}
<MI 21a50 MOVE.L (A0+D4.L+#0x22),-(A7)> Δ-4 {[-4-]|[-4-]|[4, 'A4']|[-8-]|[4, '(A0+D4.L+#0x22)']}
<Call 0x21a54 0x102e4> {[-4-]|[-4-]|[4, 'A4']|[-8-]|[4, '(A0+D4.L+#0x22)']}
Long2String(a : Long) : String
<POP 21a5a-21a5c StackAdj> Δ+4 {[-4-]|[-4-]|[4, 'A4']|[-8-]}
<Const 0x21a5c 0x4.4> Δ-4 {[-4-]|[-4-]|[4, 'A4']|[-8-]|[##4]}
<Call 0x21a60 0x102f8> {[-4-]|[-4-]|[4, 'A4']|[-8-]|[##4]}
LeftPad(a : String; b : Long) : String
<POP 21a66-21a68 StackAdj> Δ+8 {[-4-]|[-4-]|[4, 'A4']|[-4-]}
<Call 0x21a68 0x102d0> {[-4-]|[-4-]|[4, 'A4']|[-4-]}
StringCat2(a, b : String) : String
<POP 21a6a-21a6c StackAdj> Δ+8 {[-4-]|[-4-]}
<MI 21a6c MOVEA.L (A7)+,A4> Δ+4 {[-4-]}
<Blob 0x21a6e [6] @> Δ-6 {[-4-]|[«6""»]}
<POP 21a7e-21a80 StackAdj> Δ-4 {[-4-]|[«6""»]|[-4-]}
<MI 21a80 MOVE.L A4,-(A7)> Δ-4 {[-4-]|[«6""»]|[-4-]|[4, 'A4']}
<POP 21a82-21a84 StackAdj> Δ-4 {[-4-]|[«6""»]|[-4-]|[4, 'A4']|[-4-]}
<Lit 0x21a84 5> {[-4-]|[«6""»]|[-4-]|[4, 'A4']|[$$ T=>_]}
<Call 0x21a94 0x102d0> {[-4-]|[«6""»]|[-4-]|[4, 'A4']|[$$ T=>_]}
StringCat2(a, b : String) : String
<POP 21a96-21a98 StackAdj> Δ+8 {[-4-]|[«6""»]|[-4-]}
<MI 21a98 MOVEA.L (A7)+,A4> Δ+4 {[-4-]|[«6""»]}
<POP 21a9a-21a9c StackAdj> Δ+2 {[-4-]|[-4-]}
<MI 21a9c MOVE.L A4,-(A7)> Δ-4 {[-4-]|[-4-]|[4, 'A4']}
<POP 21a9e-21aa0 StackAdj> Δ-8 {[-4-]|[-4-]|[4, 'A4']|[-8-]}
<MI 21aa0 MOVEA.L (A7+0x10),A0> {[-4-]|[-4-]|[4, 'A4']|[-8-]}
<MI 21aa4 MOVE.L (A0+D4.L+#0x1e),-(A7)> Δ-4 {[-4-]|[-4-]|[4, 'A4']|[-8-]|[4, '(A0+D4.L+#0x1e)']}
<Call 0x21aa8 0x102e4> {[-4-]|[-4-]|[4, 'A4']|[-8-]|[4, '(A0+D4.L+#0x1e)']}
Long2String(a : Long) : String
<POP 21aae-21ab0 StackAdj> Δ+4 {[-4-]|[-4-]|[4, 'A4']|[-8-]}
<Const 0x21ab0 0x3.4> Δ-4 {[-4-]|[-4-]|[4, 'A4']|[-8-]|[##3]}
<Call 0x21ab4 0x102f8> {[-4-]|[-4-]|[4, 'A4']|[-8-]|[##3]}
LeftPad(a : String; b : Long) : String
<POP 21aba-21abc StackAdj> Δ+8 {[-4-]|[-4-]|[4, 'A4']|[-4-]}
<Call 0x21abc 0x102d0> {[-4-]|[-4-]|[4, 'A4']|[-4-]}
StringCat2(a, b : String) : String
<POP 21abe-21ac0 StackAdj> Δ+8 {[-4-]|[-4-]}
<MI 21ac0 MOVEA.L (A7)+,A4> Δ+4 {[-4-]}
<Blob 0x21ac2 [6] @> Δ-6 {[-4-]|[«6""»]}
<POP 21ad2-21ad4 StackAdj> Δ-4 {[-4-]|[«6""»]|[-4-]}
<MI 21ad4 MOVE.L A4,-(A7)> Δ-4 {[-4-]|[«6""»]|[-4-]|[4, 'A4']}
<POP 21ad6-21ad8 StackAdj> Δ-4 {[-4-]|[«6""»]|[-4-]|[4, 'A4']|[-4-]}
<Lit 0x21ad8 5> {[-4-]|[«6""»]|[-4-]|[4, 'A4']|[$$ S=>_]}
<Call 0x21ae8 0x102d0> {[-4-]|[«6""»]|[-4-]|[4, 'A4']|[$$ S=>_]}
StringCat2(a, b : String) : String
<POP 21aea-21aec StackAdj> Δ+8 {[-4-]|[«6""»]|[-4-]}
<MI 21aec MOVEA.L (A7)+,A4> Δ+4 {[-4-]|[«6""»]}
<POP 21aee-21af0 StackAdj> Δ+2 {[-4-]|[-4-]}
<MI 21af0 MOVE.L A4,-(A7)> Δ-4 {[-4-]|[-4-]|[4, 'A4']}
<POP 21af2-21af4 StackAdj> Δ-8 {[-4-]|[-4-]|[4, 'A4']|[-8-]}
<MI 21af4 MOVEA.L (A7+0x10),A0> {[-4-]|[-4-]|[4, 'A4']|[-8-]}
<MI 21af8 MOVE.L (A0+D4.L+#0x1a),-(A7)> Δ-4 {[-4-]|[-4-]|[4, 'A4']|[-8-]|[4, '(A0+D4.L+#0x1a)']}
<Call 0x21afc 0x102e4> {[-4-]|[-4-]|[4, 'A4']|[-8-]|[4, '(A0+D4.L+#0x1a)']}
Long2String(a : Long) : String
<POP 21b02-21b04 StackAdj> Δ+4 {[-4-]|[-4-]|[4, 'A4']|[-8-]}
<Const 0x21b04 0x3.4> Δ-4 {[-4-]|[-4-]|[4, 'A4']|[-8-]|[##3]}
<Call 0x21b08 0x102f8> {[-4-]|[-4-]|[4, 'A4']|[-8-]|[##3]}
LeftPad(a : String; b : Long) : String
<POP 21b0e-21b10 StackAdj> Δ+8 {[-4-]|[-4-]|[4, 'A4']|[-4-]}
<Call 0x21b10 0x102d0> {[-4-]|[-4-]|[4, 'A4']|[-4-]}
StringCat2(a, b : String) : String
<POP 21b12-21b14 StackAdj> Δ+8 {[-4-]|[-4-]}
<MI 21b14 MOVEA.L (A7)+,A4> Δ+4 {[-4-]}
<MI 21b16 MOVE.L A4,-(A7)> Δ-4 {[-4-]|[4, 'A4']}
<Call 0x21b18 0x103e0> {[-4-]|[4, 'A4']}
WriteConsoleStringCrLf(str : String)
<POP 21b1e-21b20 StackAdj> Δ+4 {[-4-]}
<POP 21b20-21b2e Naked> Σ-4 Δ+4 ↓ →0x218ba ←0x218ba
<POP 21b20-21b22 StackAdj> Δ+4 {}
<MI 21b22 ADDQ.L #0x1,D7> {}
<MI 21b24 CMPI.L #0x0000000f,D7> {}
<MI 21b2a BLE 0x218ba> {}
<POP 21b2e-21b36 Epilogue> Σ0
@ 21b36
<LVAR 0x008 1(rw)>
<LVAR -0x002 @ 1(r)>
<LVAR -0x004 @ 2(rw)>
<POP 21b36-21b96 Body>
<POP 21b36-21b4c Prologue> Σ0 ↓
<POP 21b4c-21b52 RegCacheLoad> Σ0 ↓
<POP 21b52-21b6c Naked> Σ0 ↓ →0x21b8e
<MI 21b52 CLR.B (A6+0x8)> {}
<Const 0x21b56 0x1.2> Δ-2 {[#1]}
<Pointer.fp 0x21b58 <LVAR -0x002 @ 1(r)>> Δ-4 {[#1]|[@@-2]}
<Call 0x21b5c 0x10212> {[#1]|[@@-2]}
KC09_PortStatus(Port : Word; VAR b: Byte)
<POP 21b62-21b64 StackAdj> Δ+6 {}
<MI 21b64 MOVE.B (A6-0x2),D0> {}
<MI 21b68 CMP.B #0x01,D0> {}
<MI 21b6a BNE 0x21b8e> {}
<POP 21b6c-21b84 Naked> Σ0 ↓ →0x21b8a
<Const 0x21b6c 0x1.2> Δ-2 {[#1]}
<Pointer.fp 0x21b6e <LVAR -0x004 @ 2(rw)>> Δ-4 {[#1]|[@@-4]}
<Call 0x21b70 0x1020e> {[#1]|[@@-4]}
KC07_PortGetChar(port : Word ; VAR ret : Word)
<POP 21b76-21b78 StackAdj> Δ+6 {}
<MI 21b78 ANDI.W #0x007f,(A6-0x4)> {}
<MI 21b7c MOVE.W (A6-0x4),D0> {}
<MI 21b7e CMPI.W #0x0007,D0> {}
<MI 21b82 BNE 0x21b8a> {}
<POP 21b84-21b8a Naked> Σ0 →0x21b8e
<MI 21b84 MOVE.B #0x01,(A6+0x8)> {}
<MI 21b88 BRA 0x21b8e> {}
<POP 21b8a-21b8e Naked> Σ0 ↓ ←0x21b6c
<Call 0x21b8a 0x21826> {}
<POP 21b8e-21b96 Epilogue> Σ0 ←0x21b52 ←0x21b84
@ 21b96
<LVAR -0x001 @ 1(r)>
<LVAR -0x002 @ 1(r)>
<POP 21b96-21c88 Body> Δ+8
<POP 21b96-21bac Prologue> Σ0 ↓
<POP 21bac-21bbe RegCacheLoad> Σ0 ↓
<POP 21bbe-21bc0 Naked> Σ0 ↓
<MI 21bbe MOVEQ.L #0x00,D7> {}
<POP 21bc0-21bcc Naked> Σ0 ↓ →0x21bd4 ←0x21bd4
<MI 21bc0 MOVE.W #0x444,D0> {}
<MI 21bc2 MULS.W D7,D0> {}
<MI 21bc4 LEA.L 0x21eea,A0> {}
<MI 21bc6 TST.B (A0+D0.W+#0xc)> {}
<MI 21bca BEQ 0x21bd4> {}
<POP 21bcc-21bd4 Naked> Σ0 ↓
<MI 21bcc MOVE.W D7,-(A7)> Δ-2 {[2, 'D7']}
<Call 0x21bce 0x209d6> {[2, 'D7']}
<POP 21bd2-21bd4 StackAdj> Δ+2 {}
<POP 21bd4-21bda Naked> Σ0 ↓ →0x21bc0 ←0x21bc0
<MI 21bd4 ADDQ.W #0x1,D7> {}
<MI 21bd6 CMP.W #0x0f,D7> {}
<MI 21bd8 BLE 0x21bc0> {}
<POP 21bda-21bdc Naked> Σ0 ↓ ←0x21c54
<MI 21bda MOVEQ.L #0x00,D7> {}
<POP 21bdc-21be8 Naked> Σ0 ↓ →0x21c4e ←0x21c4e
<MI 21bdc MOVE.W #0x444,D0> {}
<MI 21bde MULS.W D7,D0> {}
<MI 21be0 LEA.L 0x21eea,A0> {}
<MI 21be2 TST.B (A0+D0.W+#0xc)> {}
<MI 21be6 BEQ 0x21c4e> {}
<POP 21be8-21c00 Naked> Σ0 ↓ →0x21c4e
<MI 21be8 MOVE.W D7,-(A7)> Δ-2 {[2, 'D7']}
<Pointer.fp 0x21bea <LVAR -0x002 @ 1(r)>> Δ-4 {[2, 'D7']|[@@-2]}
<Pointer.fp 0x21bee <LVAR -0x001 @ 1(r)>> Δ-4 {[2, 'D7']|[@@-2]|[@@-1]}
<Call 0x21bf0 0x10208> {[2, 'D7']|[@@-2]|[@@-1]}
KERNCALL_04
<POP 21bf6-21bfa StackAdj> Δ+10 {}
<MI 21bfa TST.B (A6-0x2)> {}
<MI 21bfe BEQ 0x21c4e> {}
<POP 21c00-21c18 Naked> Σ0 →0x21c1e →0x21c2e →0x21c3e
<MI 21c00 MOVE.B (A0+D0.W+#0xd),D1> {}
<MI 21c04 EXTB.W D1> {}
<POP 0x21c06 LimitCheck 0x0 ≤ D1 ≤ 0x2> {}
<MI 21c0e ADD.W D1,D1> {}
<MI 21c10 SWITCH D1.W> {}
<POP 21c1e-21c2e Naked> Σ0 Δ-4 →0x21c4c ←0x21c00
<MI 21c1e MOVE.W D7,-(A7)> Δ-2 {[2, 'D7']}
<MI 21c20 MOVE.B (A6-0x1),D0> {[2, 'D7']}
<MI 21c22 EXTB.W D0> {[2, 'D7']}
<POP 0x21c24 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[2, 'D7']}
<MI 21c26 MOVE.B D0,-(A7)> Δ-2 {[2, 'D7']|[2, 'D0']}
<Call 0x21c28 0x216ca> {[2, 'D7']|[2, 'D0']}
<MI 21c2c BRA 0x21c4c> {[2, 'D7']|[2, 'D0']}
<POP 21c2e-21c3e Naked> Σ0 Δ-4 →0x21c4c ←0x21c00
<MI 21c2e MOVE.W D7,-(A7)> Δ-2 {[2, 'D7']}
<MI 21c30 MOVE.B (A6-0x1),D0> {[2, 'D7']}
<MI 21c32 EXTB.W D0> {[2, 'D7']}
<POP 0x21c34 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[2, 'D7']}
<MI 21c36 MOVE.B D0,-(A7)> Δ-2 {[2, 'D7']|[2, 'D0']}
<Call 0x21c38 0x2163c> {[2, 'D7']|[2, 'D0']}
<MI 21c3c BRA 0x21c4c> {[2, 'D7']|[2, 'D0']}
<POP 21c3e-21c4c Naked> Σ0 Δ-4 ↓ ←0x21c00
<MI 21c3e MOVE.W D7,-(A7)> Δ-2 {[2, 'D7']}
<MI 21c40 MOVE.B (A6-0x1),D0> {[2, 'D7']}
<MI 21c42 EXTB.W D0> {[2, 'D7']}
<POP 0x21c44 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[2, 'D7']}
<MI 21c46 MOVE.B D0,-(A7)> Δ-2 {[2, 'D7']|[2, 'D0']}
<Call 0x21c48 0x21778> {[2, 'D7']|[2, 'D0']}
<POP 21c4c-21c4e Naked> Σ-4 Δ+4 ↓ ←0x21c1e ←0x21c2e
<POP 21c4c-21c4e StackAdj> Δ+4 {}
<POP 21c4e-21c54 Naked> Σ0 ↓ →0x21bdc ←0x21bdc ←0x21be8
<MI 21c4e ADDQ.W #0x1,D7> {}
<MI 21c50 CMP.W #0x0f,D7> {}
<MI 21c52 BLE 0x21bdc> {}
<POP 21c54-21c60 Naked> Σ0 ↓ →0x21bda
<POP 21c54-21c56 StackAdj> Δ-2 {[-2-]}
<Call 0x21c56 0x21b36> {[-2-]}
<MI 21c5a TST.B (A7)+> Δ+2 {}
<MI 21c5c BEQ 0x21bda> {}
<POP 21c60-21c62 Naked> Σ0 ↓
<MI 21c60 MOVEQ.L #0x00,D7> {}
<POP 21c62-21c6e Naked> Σ0 ↓ →0x21c7a ←0x21c7a
<MI 21c62 MOVE.W #0x444,D0> {}
<MI 21c64 MULS.W D7,D0> {}
<MI 21c66 LEA.L 0x21eea,A0> {}
<MI 21c68 TST.B (A0+D0.W+#0xc)> {}
<MI 21c6c BEQ 0x21c7a> {}
<POP 21c6e-21c7a Naked> Σ0 ↓
<MI 21c6e MOVE.W D7,-(A7)> Δ-2 {[2, 'D7']}
<Pointer.fp 0x21c70 <LVAR -0x001 @ 1(r)>> Δ-4 {[2, 'D7']|[@@-1]}
<Call 0x21c72 0x10206> {[2, 'D7']|[@@-1]}
KC03_Wait_Disk_IO(a : W; VAR status : Byte)
<POP 21c78-21c7a StackAdj> Δ+6 {}
<POP 21c7a-21c80 Naked> Σ0 ↓ →0x21c62 ←0x21c62
<MI 21c7a ADDQ.W #0x1,D7> {}
<MI 21c7c CMP.W #0x0f,D7> {}
<MI 21c7e BLE 0x21c62> {}
<POP 21c80-21c88 Epilogue> Σ0
@ 21c88
START
<POP 21c88--0001 Body>
<POP 21c88-21c92 Prologue> Σ0
<POP 21c92-21c94 RegCacheLoad> Σ0 ↓
<POP 21c94-21cde Naked> Σ0 ↓
<Call 0x21c94 0x10398> {}
FSCALL_10398
<MI 21c9a MOVE.L #0x7b,0x2633a> {}
<MI 21ca4 MOVE.L #0x01,0x26336> {}
<Call 0x21caa 0x207bc> {}
<Call 0x21cae 0x21b96> {}
<Blob 0x21cb2 [20] @> Δ-20 {[«20""»]}
<MI 21cbe CLR.B -(A7)> Δ-2 {[«20""»]|[#0]}
<POP 21cc0-21cc2 StackAdj> Δ-4 {[«20""»]|[#0]|[-4-]}
<Lit 0x21cc2 20> {[«20""»]|[#0]|[$$Disk exercizer done.]}
<Call 0x21cd4 0x103b8> {[«20""»]|[#0]|[$$Disk exercizer done.]}
PopProgram(status : Byte; msg : String)
<POP 21cda-21cde StackAdj> Δ+26 {}
<POP 21cde-21ce4 Naked> Σ0
<Call 0x21cde 0x10284> {}
?exit
@ 21cf2
PROG_FAIL
<LVAR 0x008 1(r)>
<POP 21cf2-21d5a Body>
<POP 21cf2-21d08 Prologue> Σ0 ↓
<POP 21d08-21d52 Naked> Σ0 ↓
<Blob 0x21d08 [14] @> Δ-14 {[«14""»]}
<Const 0x21d14 0x3.2> Δ-2 {[«14""»]|[#3]}
<POP 21d18-21d1a StackAdj> Δ-8 {[«14""»]|[#3]|[-8-]}
<Lit 0x21d1a 14> {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
<POP 21d2c-21d2e StackAdj> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 21d2e MOVE.B (A6+0x8),D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 21d32 EXTB.W D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 21d34 EXTW.L D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 21d36 MOVE.L D0,-(A7)> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
<Call 0x21d38 0x102e4> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 21d3e-21d40 StackAdj> Δ+4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<Call 0x21d40 0x102d0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 21d46-21d48 StackAdj> Δ+8 {[«14""»]|[#3]|[-4-]}
<Call 0x21d48 0x103b8> {[«14""»]|[#3]|[-4-]}
PopProgram(status : Byte; msg : String)
<POP 21d4e-21d52 StackAdj> Δ+20 {}
<POP 21d52-21d5a Epilogue> Σ0
@ 21dae
EXP_FAIL
<LVAR 0x00e 1(r)>
<LVAR 0x00a 4(r)>
<LVAR 0x008 1(r)>
<POP 21dae-21eea Body>
<POP 21dae-21dc4 Prologue> Σ0 ↓
<POP 21dc4-21dda RegCacheLoad> Σ0 ↓
<POP 21dda-21e3a Naked> Σ0 ↓ →0x21e82
<Call 0x21dda 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x21de0 [18] @> Δ-18 {[«18""»]}
<POP 21dec-21dee StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x21dee 18> {[«18""»]|[$$Experiment error :]}
<Call 0x21dfa 0x103e0> {[«18""»]|[$$Experiment error :]}
WriteConsoleStringCrLf(str : String)
<POP 21dfc-21dfd StackAdj> Δ+22 ↓ {}
<Blob 0x21dfd [14] @> Δ-14 {[«14""»]}
<POP 21e0c-21e0e StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x21e0e 13> {[«14""»]|[-4-]|[$$Board :_]}
<POP 21e18-21e1a StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<MI 21e1a MOVE.B (A6+0xe),(A7)> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<Call 0x21e1e 0x1049c> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
BoardName(address : B) : String
<POP 21e24-21e26 StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
<Call 0x21e26 0x102d0> {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 21e2c-21e2e StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x21e2e 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 21e30-21e32 StackAdj> Δ+18 {}
<MI 21e32 MOVEA.L (A6+0xa),A0> {}
<MI 21e36 CMPA.W #0x01,A0> {}
<MI 21e38 BEQ 0x21e82> {}
<POP 21e3a-21e82 Naked> Σ0 ↓
<Blob 0x21e3a [14] @> Δ-14 {[«14""»]}
<Blob 0x21e4a [30] (A0+0xfc)> Δ-30 {[«14""»]|[«30»]}
<POP 21e5a-21e5c StackAdj> Δ-8 {[«14""»]|[«30»]|[-8-]}
<Lit 0x21e5c 13> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
<POP 21e66-21e68 StackAdj> Δ-4 {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
<Lit 0x21e68> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
<Pointer.sp 0x21e68 12> Δ-4
<Const 0x21e6c 0x1.2> Δ-2
<Const 0x21e6e 0x1e.2> Δ-2
<Call 0x21e70 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 21e72-21e74 StackAdj> Δ+8
<Call 0x21e74 0x102d0> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
StringCat2(a, b : String) : String
<POP 21e7a-21e7c StackAdj> Δ+8 {[«14""»]|[«30»]|[-4-]}
<Call 0x21e7c 0x103e0> {[«14""»]|[«30»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 21e7e-21e82 StackAdj> Δ+48 {}
<POP 21e82-21ee2 Naked> Σ0 ↓ ←0x21dda
<Blob 0x21e82 [14] @> Δ-14 {[«14""»]}
<POP 21e92-21e94 StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x21e94 13> {[«14""»]|[-4-]|[$$Status :_]}
<POP 21e9e-21ea0 StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<MI 21ea0 MOVE.B (A6+0x8),(A7)> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<Call 0x21ea4 0x104a2> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
ExpStatus2Text(status.B, &String)
<POP 21eaa-21eac StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
<Call 0x21eac 0x102d0> {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 21eb2-21eb4 StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x21eb4 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 21eb6-21eb7 StackAdj> Δ+18 ↓ {}
<Blob 0x21eb7 [24] @> Δ-24 {[«24""»]}
<Const 0x21ec6 0x2.2> Δ-2 {[«24""»]|[#2]}
<POP 21eca-21ecc StackAdj> Δ-4 {[«24""»]|[#2]|[-4-]}
<Lit 0x21ecc 23> {[«24""»]|[#2]|[$$Fatal experiment error.]}
<Call 0x21eda 0x103b8> {[«24""»]|[#2]|[$$Fatal experiment error.]}
PopProgram(status : Byte; msg : String)
<POP 21ee0-21ee2 StackAdj> Δ+30 {}
<POP 21ee2-21eea Epilogue> Σ0
00020000 ; --------------------------------------------------------------------------------------
00020000 ; R1000.Disassembly modules:
00020000 ; import all
00020000 ; import kind.program
00020000 ; no ident.94df6ab72fcaf369
00020000 ; --------------------------------------------------------------------------------------
00020000 stack.top:
00020000 00 04 00 00 | | .CODE 0x40000 ; STACK.END
00020004 00 02 1c 88 | | .CODE START
00020008 00 01 02 88 | | .CODE FSCALL_10288
0002000c heap.top:
0002000c 00 02 63 4e | cN | .PTR 0x2634e
00020010 code.end:
00020010 00 02 1e ea | | .PTR 0x21eea
00020014 00 00 00 00 | | .CONST 0x00000000
00020018 programfailurehandler:
00020018 00 02 1c f2 | | .CODE PROG_FAIL
0002001c experimentfailurehandler:
0002001c 00 02 1d ae | | .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 44 49 |@(#)DI | .XXX[0x6]
00020110 53 4b 58 2c 31 2e 31 2c |SKX,1.1,| .XXX[0x18]
00020118 39 32 2f 30 37 2f 30 39 |92/07/09|
00020120 2c 31 32 3a 30 30 3a 30 |,12:00:0|
00020128 30 5c |0\ | .XXX[0x2]
0002012a 44 69 73 6b 20 68 61 73 |Disk has| .TXT 'Disk has no labels, unit :_ '
00020146 45 78 65 72 63 69 7a 65 |Exercize| .TXT 'Exercize unit_'
00020154 44 46 53 20 62 61 73 65 |DFS base| .TXT 'DFS based disk exerciser, started at => '
0002017c 44 69 73 6b 20 75 6e 69 |Disk uni| .TXT 'Disk unit =>_ '
0002018a 2c 20 75 73 69 6e 67 20 |, using | .TXT ', using cylinders [ '
0002019e 2e 2e |.. | .TXT '..'
000201a0 5d 20 |] | .TXT '] '
000201a2 54 79 70 65 20 5e 47 20 |Type ^G | .TXT 'Type ^G to exit, any other character for status '
000201d2 20 43 53 31 3d 20 | CS1= | .XXX[0x6]
000201d8 20 43 53 32 3d 20 20 44 | CS2= D| .XXX[0x30]
000201e0 53 3d 20 20 20 45 52 31 |S= ER1|
000201e8 3d 20 20 45 52 32 3d 20 |= ER2= |
000201f0 20 45 43 31 3d 20 20 45 | EC1= E|
000201f8 43 32 3d 20 20 44 43 3d |C2= DC=|
00020200 20 20 20 44 41 3d 20 20 | DA= |
00020208 53 70 65 63 69 61 6c 20 |Special | .TXT 'Special condition '
0002021a 54 72 61 6e 73 66 65 72 |Transfer| .TXT 'Transfer error'
00020228 44 72 69 76 65 20 69 73 |Drive is| .TXT 'Drive is not available'
0002023e 44 72 69 76 65 20 69 73 |Drive is| .TXT 'Drive is not ready'
00020250 44 61 74 61 20 6c 61 74 |Data lat| .TXT 'Data late '
0002025a 57 72 69 74 65 20 63 68 |Write ch| .TXT 'Write check error '
0002026c 4e 6f 6e 2d 65 78 69 73 |Non-exis| .TXT 'Non-existent drive'
0002027e 4e 6f 6e 2d 65 78 69 73 |Non-exis| .TXT 'Non-existent memory '
00020292 50 72 6f 67 72 61 6d 20 |Program | .TXT 'Program error '
000202a0 4d 69 73 73 65 64 20 74 |Missed t| .TXT 'Missed transfer '
000202b0 49 6e 70 75 74 20 6e 6f |Input no| .TXT 'Input not ready '
000202c0 42 75 73 20 61 64 64 72 |Bus addr| .TXT 'Bus address increment inhibit '
000202de 50 6f 73 69 74 69 6f 6e |Position| .TXT 'Positioning in progress '
000202f6 4d 65 64 69 75 6d 20 6e |Medium n| .TXT 'Medium not on-line'
00020308 57 72 69 74 |Writ | .TXT 'Writ'
0002030c 65 20 6c 6f |e lo | .TXT 'e lo'
00020310 63 6b 65 64 |cked | .TXT 'cked'
00020314 4c 61 73 74 20 73 65 63 |Last sec| .TXT 'Last sector transfered'
0002032a 44 72 69 76 65 20 6e 6f |Drive no| .TXT 'Drive not present '
0002033c 44 72 69 76 65 20 6e 6f |Drive no| .TXT 'Drive not ready '
0002034c 56 6f 6c 75 |Volu | .TXT 'Volu'
00020350 6d 65 20 6e |me n | .TXT 'me n'
00020354 6f 74 20 76 |ot v | .TXT 'ot v'
00020358 61 6c 69 64 |alid | .TXT 'alid'
0002035c 44 61 74 61 |Data | .TXT 'Data'
00020360 20 63 68 65 | che | .TXT ' che'
00020364 63 6b 20 28 |ck ( | .TXT 'ck ('
00020368 45 43 43 29 |ECC) | .TXT 'ECC)'
0002036c 55 6e |Un | .TXT 'Un'
0002036e 73 61 |sa | .TXT 'sa'
00020370 66 65 |fe | .TXT 'fe'
00020372 4f 70 65 72 61 74 69 6f |Operatio| .TXT 'Operation incomplete'
00020386 44 72 69 76 65 20 74 69 |Drive ti| .TXT 'Drive timing error'
00020398 57 72 69 74 |Writ | .TXT 'Writ'
0002039c 65 20 6c 6f |e lo | .TXT 'e lo'
000203a0 63 6b 20 65 |ck e | .TXT 'ck e'
000203a4 72 72 6f 72 |rror | .TXT 'rror'
000203a8 49 6e 76 61 6c 69 64 20 |Invalid | .TXT 'Invalid address error '
000203be 41 64 64 72 65 73 73 20 |Address | .TXT 'Address overflow error'
000203d4 48 65 61 64 |Head | .TXT 'Head'
000203d8 65 72 20 43 |er C | .TXT 'er C'
000203dc 52 43 20 65 |RC e | .TXT 'RC e'
000203e0 72 72 6f 72 |rror | .TXT 'rror'
000203e4 48 65 61 64 65 72 20 63 |Header c| .TXT 'Header compare error'
000203f8 48 61 72 64 20 45 43 43 |Hard ECC| .TXT 'Hard ECC error'
00020406 46 6f 72 6d |Form | .TXT 'Form'
0002040a 61 74 20 65 |at e | .TXT 'at e'
0002040e 72 72 6f 72 |rror | .TXT 'rror'
00020412 52 65 67 69 73 74 65 72 |Register| .TXT 'Register modification refused '
00020430 49 6c 6c 65 |Ille | .TXT 'Ille'
00020434 67 61 6c 20 |gal | .TXT 'gal '
00020438 66 75 6e 63 |func | .TXT 'func'
0002043c 74 69 6f 6e |tion | .TXT 'tion'
00020440 42 61 64 20 62 6c 6f 63 |Bad bloc| .TXT 'Bad block '
0002044a 53 65 65 6b 20 69 6e 63 |Seek inc| .TXT 'Seek incomplete '
0002045a 49 6e 76 61 6c 69 64 20 |Invalid | .TXT 'Invalid command (volume not valid, off-line, or off cylinder) '
00020498 44 65 76 69 |Devi | .TXT 'Devi'
0002049c 63 65 20 63 |ce c | .TXT 'ce c'
000204a0 68 65 63 6b |heck | .TXT 'heck'
000204a4 45 72 72 6f 72 20 6f 6e |Error on| .TXT 'Error on unit_'
000204b2 20 61 74 5f | at_ | .TXT ' at_'
000204b6 20 74 65 73 74 20 73 74 | test st| .TXT ' test started at_ '
000204c8 20 65 72 72 6f 72 2c 20 | error, | .TXT ' error, retries =>'
000204da 48 61 72 64 |Hard | .TXT 'Hard'
000204de 53 6f 66 74 |Soft | .TXT 'Soft'
000204e2 53 74 61 74 75 73 20 61 |Status a| .TXT 'Status at_'
000204ec 2c 20 74 65 73 74 20 73 |, test s| .TXT ', test started at_'
000204fe 55 20 |U | .TXT 'U '
00020500 20 62 79 74 65 73 3d 3e | bytes=>| .TXT ' bytes=>_ '
0002050a 20 73 6f 66 | sof | .TXT ' sof'
0002050e 74 3d 3e 5f |t=>_ | .TXT 't=>_'
00020512 20 68 61 72 | har | .TXT ' har'
00020516 64 3d 3e 5f |d=>_ | .TXT 'd=>_'
0002051a 20 43 3d 3e 5f 20 | C=>_ | .TXT ' C=>_ '
00020520 20 54 3d 3e 5f 20 | T=>_ | .TXT ' T=>_ '
00020526 20 53 3d 3e 5f 20 | S=>_ | .TXT ' S=>_ '
0002052c 44 69 73 6b 20 65 78 65 |Disk exe| .TXT 'Disk exercizer done.'
00020540 00 00 ff ff b6 db ed b6 | | .XXX[0x38]
00020548 aa aa 20 43 53 31 3d 20 | CS1= |
00020550 43 53 32 3d 20 44 53 3d |CS2= DS=|
00020558 20 20 45 52 31 3d 20 45 | ER1= E|
00020560 52 32 3d 20 45 43 31 3d |R2= EC1=|
00020568 20 45 43 32 3d 20 44 43 | EC2= DC|
00020570 3d 20 20 44 41 3d 20 00 |= DA= |
00020578 ; --------------------------------------------------------------------------------------
00020578 ; OMSI PASCAL Function
00020578 ; <LVAR 0x010 4(w)>
00020578 ; <LVAR 0x00c 4(r)>
00020578 ; <LVAR 0x008 4(r)>
00020578 ; --------------------------------------------------------------------------------------
00020578 4e 56 ff e4 |NV | LINK.W A6,#0xffe4
0002057c bf d5 | | CMPA.L (A5),A7
0002057e 62 06 |b | BHI 0x20586
00020580 44 fc 00 02 |D | MOVE.W #0x2,CCR
00020584 4e 76 |Nv | TRAPV
00020586 de fc 00 18 | | ADDA.W #0x18,A7
0002058a 48 e7 19 80 |H | MOVEM.L A0+D7+D4+D3,-(A7)
0002058e 41 f9 00 02 63 3a |A c: | LEA.L 0x2633a,A0
00020594 28 10 |( | MOVE.L (A0),D4
00020596 26 3c 00 00 01 a5 |&< | MOVE.L #0x1a5,D3
0002059c 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4
000205a2 20 84 | | MOVE.L D4,(A0)
000205a4 52 90 |R | ADDQ.L #0x1,(A0)
000205a6 02 90 00 00 7f ff | | ANDI.L #0x00007fff,(A0)
000205ac 2e 2e 00 08 |.. | MOVE.L (A6+0x8),D7
000205b0 9e ae 00 0c | | SUB.L (A6+0xc),D7
000205b4 52 87 |R | ADDQ.L #0x1,D7
000205b6 28 10 |( | MOVE.L (A0),D4
000205b8 26 07 |& | MOVE.L D7,D3
000205ba 4e b9 00 01 02 94 |N | JSR ?divs_d3_d4
000205c0 d6 ae 00 0c | | ADD.L (A6+0xc),D3
000205c4 2e 03 |. | MOVE.L D3,D7
000205c6 2d 47 00 10 |-G | MOVE.L D7,(A6+0x10)
000205ca 4c df 01 98 |L | MOVEM.L (A7)+,D3+D4+D7+A0
000205ce 4e 5e |N^ | UNLK A6
000205d0 4e 75 |Nu | RTS
000205d2 ; --------------------------------------------------------------------------------------
000205d2 ; OMSI PASCAL Function
000205d2 ; <LVAR 0x008 4(w)>
000205d2 ; --------------------------------------------------------------------------------------
000205d2 4e 56 ff ec |NV | LINK.W A6,#0xffec
000205d6 bf d5 | | CMPA.L (A5),A7
000205d8 62 06 |b | BHI 0x205e0
000205da 44 fc 00 02 |D | MOVE.W #0x2,CCR
000205de 4e 76 |Nv | TRAPV
000205e0 de fc 00 14 | | ADDA.W #0x14,A7
000205e4 48 e7 c0 c0 |H | MOVEM.L A1+A0+D1+D0,-(A7)
000205e8 43 f9 00 02 63 36 |C c6 | LEA.L 0x26336,A1
000205ee 52 91 |R | ADDQ.L #0x1,(A1)
000205f0 20 11 | | MOVE.L (A1),D0
000205f2 0c 80 00 00 00 05 | | CMPI.L #0x00000005,D0
000205f8 6f 06 |o | BLE 0x20600
000205fa 22 bc 00 00 00 01 |" | MOVE.L #0x1,(A1)
00020600 20 11 | | MOVE.L (A1),D0
00020602 53 80 |S | SUBQ.L #0x1,D0
00020604 0c 80 00 00 00 04 | | CMPI.L #0x00000004,D0
0002060a 63 02 |c | BLS 0x2060e
0002060c 4e 4f |NO | TRAP #15
0002060e e3 80 | | ASL.L #0x1,D0
00020610 41 fa ff 2e |A . | LEA.L 0x20540,A0
00020614 42 81 |B | CLR.L D1
00020616 32 30 08 00 |20 | MOVE.W (A0+D0.L),D1
0002061a 2d 41 00 08 |-A | MOVE.L D1,(A6+0x8)
0002061e 4c df 03 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1
00020622 4e 5e |N^ | UNLK A6
00020624 4e 75 |Nu | RTS
00020626 ; --------------------------------------------------------------------------------------
00020626 ; OMSI PASCAL Function
00020626 ; <LVAR 0x00a 1(rw)>
00020626 ; <LVAR 0x008 2(r)>
00020626 ; <LVAR -0x008 @ 2(r)>
00020626 ; <LVAR -0x00a @>
00020626 ; <LVAR -0x00c 2(r)>
00020626 ; <LVAR -0x00e 2(r)>
00020626 ; <LVAR -0x010 2(w)>
00020626 ; <LVAR -0x012 2(r)>
00020626 ; <LVAR -0x014 2(r)>
00020626 ; <LVAR -0x016 2(w)>
00020626 ; <LVAR -0x018 2(r)>
00020626 ; <LVAR -0x01a @ 2(r)>
00020626 ; --------------------------------------------------------------------------------------
00020626 4e 56 ff d0 |NV | LINK.W A6,#0xffd0
0002062a bf d5 | | CMPA.L (A5),A7
0002062c 62 06 |b | BHI 0x20634
0002062e 44 fc 00 02 |D | MOVE.W #0x2,CCR
00020632 4e 76 |Nv | TRAPV
00020634 de fc 00 16 | | ADDA.W #0x16,A7
00020638 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7)
0002063c 42 6e ff e6 |Bn | CLR.W (A6-0x1a)
00020640 42 6e ff e8 |Bn | CLR.W (A6-0x18)
00020644 3d 7c 00 02 ff ea |=| | MOVE.W #0x2,(A6-0x16)
0002064a 42 6e ff ec |Bn | CLR.W (A6-0x14)
0002064e 42 6e ff ee |Bn | CLR.W (A6-0x12)
00020652 30 2e 00 08 |0. | MOVE.W (A6+0x8),D0
00020656 e1 40 | @ | ASL.W #0x8,D0
00020658 3d 40 ff f0 |=@ | MOVE.W D0,(A6-0x10)
0002065c 42 6e ff f2 |Bn | CLR.W (A6-0xe)
00020660 42 6e ff f4 |Bn | CLR.W (A6-0xc)
00020664 48 6e ff e6 |Hn | PEA.L (A6-0x1a)
00020668 41 ee ff f8 |A | LEA.L (A6-0x8),A0
0002066c 2f 08 |/ | MOVE.L A0,-(A7)
0002066e 42 67 |Bg | CLR.W -(A7)
00020670 4e b9 00 01 02 04 |N | JSR KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
00020676 50 4f |PO | ADDQ.L #0x8,A7
00020678 42 57 |BW | CLR.W (A7)
0002067a 48 6e ff f6 |Hn | PEA.L (A6-0xa)
0002067e 4e b9 00 01 02 06 |N | JSR KC03_Wait_Disk_IO(a : W; VAR status : Byte)
00020684 5c 4f |\O | ADDQ.L #0x6,A7
00020686 42 2e 00 0a |B. | CLR.B (A6+0xa)
0002068a 30 2e ff f8 |0. | MOVE.W (A6-0x8),D0
0002068e 0c 40 00 01 | @ | CMPI.W #0x0001,D0
00020692 66 04 |f | BNE 0x20698
00020694 52 2e 00 0a |R. | ADDQ.B #0x1,(A6+0xa)
00020698 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0
0002069c 4e 5e |N^ | UNLK A6
0002069e 4e 75 |Nu | RTS
000206a0 ; --------------------------------------------------------------------------------------
000206a0 ; OMSI PASCAL Function
000206a0 ; <LVAR 0x008 2(r)>
000206a0 ; <LVAR -0x006 @ 1(r)>
000206a0 ; <LVAR -0x3d6 2(r)>
000206a0 ; <LVAR -0x3da 2(r)>
000206a0 ; <LVAR -0x3fb 1(r)>
000206a0 ; <LVAR -0x3fc 1(r)>
000206a0 ; <LVAR -0x406 @>
000206a0 ; --------------------------------------------------------------------------------------
000206a0 4e 56 fb ac |NV | LINK.W A6,#0xfbac
000206a4 bf d5 | | CMPA.L (A5),A7
000206a6 62 06 |b | BHI 0x206ae
000206a8 44 fc 00 02 |D | MOVE.W #0x2,CCR
000206ac 4e 76 |Nv | TRAPV
000206ae de fc 00 4e | N | ADDA.W #0x4e,A7
000206b2 48 e7 e1 e0 |H | MOVEM.L A2+A1+A0+D7+D2+D1+D0,-(A7)
000206b6 45 ee 00 08 |E | LEA.L (A6+0x8),A2
000206ba 74 02 |t | MOVEQ.L #0x02,D2
000206bc 30 39 00 01 00 08 |09 | MOVE.W 0x10008,D0
000206c2 41 bc 00 0f |A | CHK.W #0xf,D0
000206c6 3e 00 |> | MOVE.W D0,D7
000206c8 33 d2 00 01 00 08 |3 | MOVE.W (A2),0x10008
000206ce 1f 02 | | MOVE.B D2,-(A7)
000206d0 3f 02 |? | MOVE.W D2,-(A7)
000206d2 48 78 00 01 |Hx | PEA.L 0x1
000206d6 41 ee fb fa |A | LEA.L (A6-0x406),A0
000206da 2f 08 |/ | MOVE.L A0,-(A7)
000206dc 48 6e ff fa |Hn | PEA.L (A6-0x6)
000206e0 4e b9 00 01 03 6c |N l | JSR RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B)
000206e6 de fc 00 10 | | ADDA.W #0x10,A7
000206ea 33 c7 00 01 00 08 |3 | MOVE.W D7,0x10008
000206f0 4a 2e ff fa |J. | TST.B (A6-0x6)
000206f4 66 4c |fL | BNE 0x20742
000206f6 9e fc 00 1c | | SUBA.W #0x1c,A7
000206fa 20 4f | O | MOVEA.L A7,A0
000206fc 43 fa fa 2c |C , | LEA.L 0x2012a,A1
00020700 70 1a |p | MOVEQ.L #0x1a,D0
00020702 10 d9 | | MOVE.B (A1)+,(A0)+
00020704 51 c8 ff fc |Q | DBF D0,0x20702
00020708 1f 3c 00 0e | < | MOVE.B #0x0e,-(A7)
0002070c 51 4f |QO | SUBQ.L #0x8,A7
0002070e 48 6f 00 0a |Ho | PEA.L (A7+0xa)
00020712 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
00020716 3f 3c 00 1b |?< | MOVE.W #0x1b,-(A7)
0002071a 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00020720 58 4f |XO | ADDQ.L #0x4,A7
00020722 30 12 |0 | MOVE.W (A2),D0
00020724 48 c0 |H | EXTW.L D0
00020726 2f 00 |/ | MOVE.L D0,-(A7)
00020728 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String
0002072e 58 4f |XO | ADDQ.L #0x4,A7
00020730 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00020736 50 4f |PO | ADDQ.L #0x8,A7
00020738 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String)
0002073e de fc 00 22 | " | ADDA.W #0x22,A7
00020742 30 3c 04 44 |0< D | MOVE.W #0x444,D0
00020746 c1 d2 | | MULS.W (A2),D0
00020748 41 f9 00 02 1e ea |A | LEA.L 0x21eea,A0
0002074e 42 b0 00 0e |B | CLR.L (A0+D0.W+#0xe)
00020752 42 b0 00 12 |B | CLR.L (A0+D0.W+#0x12)
00020756 42 b0 00 16 |B | CLR.L (A0+D0.W+#0x16)
0002075a 42 81 |B | CLR.L D1
0002075c 32 2e fc 26 |2. & | MOVE.W (A6-0x3da),D1
00020760 21 81 00 26 |! & | MOVE.L D1,(A0+D0.W+#0x26)
00020764 42 81 |B | CLR.L D1
00020766 32 2e fc 2a |2. * | MOVE.W (A6-0x3d6),D1
0002076a 21 81 00 2a |! * | MOVE.L D1,(A0+D0.W+#0x2a)
0002076e 42 81 |B | CLR.L D1
00020770 12 2e fc 05 | . | MOVE.B (A6-0x3fb),D1
00020774 e2 41 | A | ASR.W #0x1,D1
00020776 31 81 00 30 |1 0 | MOVE.W D1,(A0+D0.W+#0x30)
0002077a 42 81 |B | CLR.L D1
0002077c 12 2e fc 04 | . | MOVE.B (A6-0x3fc),D1
00020780 31 81 00 2e |1 . | MOVE.W D1,(A0+D0.W+#0x2e)
00020784 21 b0 00 26 00 22 |! & " | MOVE.L (A0+D0.W+#0x26),(A0+D0.W+#0x22)
0002078a 42 b0 00 1e |B | CLR.L (A0+D0.W+#0x1e)
0002078e 42 b0 00 1a |B | CLR.L (A0+D0.W+#0x1a)
00020792 41 f0 00 0c |A | LEA.L (A0+D0.W+#0xc),A0
00020796 51 4f |QO | SUBQ.L #0x8,A7
00020798 48 78 00 00 |Hx | PEA.L 0x0
0002079c 4e b9 00 01 03 54 |N T | JSR Long2Quad(a : Long) : Quad
000207a2 58 4f |XO | ADDQ.L #0x4,A7
000207a4 41 e8 04 3c |A < | LEA.L (A0+0x43c),A0
000207a8 22 4f |"O | MOVEA.L A7,A1
000207aa 70 07 |p | MOVEQ.L #0x07,D0
000207ac 10 d9 | | MOVE.B (A1)+,(A0)+
000207ae 51 c8 ff fc |Q | DBF D0,0x207ac
000207b2 50 4f |PO | ADDQ.L #0x8,A7
000207b4 4c df 07 87 |L | MOVEM.L (A7)+,D0+D1+D2+D7+A0+A1+A2
000207b8 4e 5e |N^ | UNLK A6
000207ba 4e 75 |Nu | RTS
000207bc ; --------------------------------------------------------------------------------------
000207bc ; OMSI PASCAL Function
000207bc ; --------------------------------------------------------------------------------------
000207bc 4e 56 ff 64 |NV d | LINK.W A6,#0xff64
000207c0 bf d5 | | CMPA.L (A5),A7
000207c2 62 06 |b | BHI 0x207ca
000207c4 44 fc 00 02 |D | MOVE.W #0x2,CCR
000207c8 4e 76 |Nv | TRAPV
000207ca de fc 00 94 | | ADDA.W #0x94,A7
000207ce 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
000207d2 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
000207d8 49 f9 00 01 02 e4 |I | LEA.L Long2String(a : Long) : String,A4
000207de 74 01 |t | MOVEQ.L #0x01,D2
000207e0 76 0e |v | MOVEQ.L #0x0e,D3
000207e2 78 0f |x | MOVEQ.L #0x0f,D4
000207e4 7a 02 |z | MOVEQ.L #0x02,D5
000207e6 7c 00 || | MOVEQ.L #0x00,D6
000207e8 7e 00 |~ | MOVEQ.L #0x00,D7
000207ea 30 3c 04 44 |0< D | MOVE.W #0x444,D0
000207ee c1 c7 | | MULS.W D7,D0
000207f0 41 f9 00 02 1e ea |A | LEA.L 0x21eea,A0
000207f6 55 4f |UO | SUBQ.L #0x2,A7
000207f8 3f 07 |? | MOVE.W D7,-(A7)
000207fa 4e ba fe 2a |N * | JSR 0x20626
000207fe 54 4f |TO | ADDQ.L #0x2,A7
00020800 4a 1f |J | TST.B (A7)+
00020802 66 06 |f | BNE 0x2080a
00020804 42 30 00 0c |B0 | CLR.B (A0+D0.W+#0xc)
00020808 60 44 |`D | BRA 0x2084e
0002080a 43 fa f9 48 |C H | LEA.L 0x20154,A1
0002080e 72 06 |r | MOVEQ.L #0x06,D1
00020810 3f 21 |?! | MOVE.W -(A1),-(A7)
00020812 51 c9 ff fc |Q | DBF D1,0x20810
00020816 9e fc 00 0a | | SUBA.W #0xa,A7
0002081a 48 6f 00 0a |Ho | PEA.L (A7+0xa)
0002081e 3f 02 |? | MOVE.W D2,-(A7)
00020820 3f 03 |? | MOVE.W D3,-(A7)
00020822 4e 93 |N | JSR (A3)
00020824 58 4f |XO | ADDQ.L #0x4,A7
00020826 32 07 |2 | MOVE.W D7,D1
00020828 48 c1 |H | EXTW.L D1
0002082a 2f 01 |/ | MOVE.L D1,-(A7)
0002082c 4e 94 |N | JSR (A4)
0002082e 58 4f |XO | ADDQ.L #0x4,A7
00020830 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00020836 5c 4f |\O | ADDQ.L #0x6,A7
00020838 1e 82 | | MOVE.B D2,(A7)
0002083a 4e b9 00 01 03 f0 |N | JSR AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
00020840 5c 4f |\O | ADDQ.L #0x6,A7
00020842 12 1f | | MOVE.B (A7)+,D1
00020844 48 81 |H | EXTB.W D1
00020846 43 82 |C | CHK.W D2,D1
00020848 de c3 | | ADDA.W D3,A7
0002084a 11 81 00 0c | | MOVE.B D1,(A0+D0.W+#0xc)
0002084e 4a 30 00 0c |J0 | TST.B (A0+D0.W+#0xc)
00020852 67 08 |g | BEQ 0x2085c
00020854 3f 07 |? | MOVE.W D7,-(A7)
00020856 4e ba fe 48 |N H | JSR 0x206a0
0002085a 54 4f |TO | ADDQ.L #0x2,A7
0002085c 52 47 |RG | ADDQ.W #0x1,D7
0002085e be 44 | D | CMP.W D4,D7
00020860 6f 88 |o | BLE 0x207ea
00020862 7e 00 |~ | MOVEQ.L #0x00,D7
00020864 30 3c 04 44 |0< D | MOVE.W #0x444,D0
00020868 c1 c7 | | MULS.W D7,D0
0002086a 41 f9 00 02 1e ea |A | LEA.L 0x21eea,A0
00020870 4a 30 00 0c |J0 | TST.B (A0+D0.W+#0xc)
00020874 67 00 00 8e |g | BEQ 0x20904
00020878 9e c3 | | SUBA.W D3,A7
0002087a 22 4f |"O | MOVEA.L A7,A1
0002087c 45 fa f8 fe |E | LEA.L 0x2017c,A2
00020880 72 0c |r | MOVEQ.L #0x0c,D1
00020882 12 da | | MOVE.B (A2)+,(A1)+
00020884 51 c9 ff fc |Q | DBF D1,0x20882
00020888 9e fc 00 14 | | SUBA.W #0x14,A7
0002088c 22 4f |"O | MOVEA.L A7,A1
0002088e 45 fa f8 fa |E | LEA.L 0x2018a,A2
00020892 72 12 |r | MOVEQ.L #0x12,D1
00020894 12 da | | MOVE.B (A2)+,(A1)+
00020896 51 c9 ff fc |Q | DBF D1,0x20894
0002089a 3f 3a f9 02 |?: | MOVE.W 0x2019e,-(A7)
0002089e 3f 3a f9 00 |?: | MOVE.W 0x201a0,-(A7)
000208a2 51 4f |QO | SUBQ.L #0x8,A7
000208a4 48 6f 00 20 |Ho | PEA.L (A7+0x20)
000208a8 3f 02 |? | MOVE.W D2,-(A7)
000208aa 3f 3c 00 0d |?< | MOVE.W #0xd,-(A7)
000208ae 4e 93 |N | JSR (A3)
000208b0 58 4f |XO | ADDQ.L #0x4,A7
000208b2 32 07 |2 | MOVE.W D7,D1
000208b4 48 c1 |H | EXTW.L D1
000208b6 2f 01 |/ | MOVE.L D1,-(A7)
000208b8 4e 94 |N | JSR (A4)
000208ba 48 6f 00 14 |Ho | PEA.L (A7+0x14)
000208be 3f 02 |? | MOVE.W D2,-(A7)
000208c0 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7)
000208c4 4e 93 |N | JSR (A3)
000208c6 2e b0 00 26 |. & | MOVE.L (A0+D0.W+#0x26),(A7)
000208ca 4e 94 |N | JSR (A4)
000208cc 48 6f 00 1a |Ho | PEA.L (A7+0x1a)
000208d0 3f 02 |? | MOVE.W D2,-(A7)
000208d2 3f 05 |? | MOVE.W D5,-(A7)
000208d4 4e 93 |N | JSR (A3)
000208d6 2f 30 00 2a |/0 * | MOVE.L (A0+D0.W+#0x2a),-(A7)
000208da 4e 94 |N | JSR (A4)
000208dc 48 6f 00 24 |Ho $ | PEA.L (A7+0x24)
000208e0 3f 02 |? | MOVE.W D2,-(A7)
000208e2 3f 05 |? | MOVE.W D5,-(A7)
000208e4 4e 93 |N | JSR (A3)
000208e6 50 4f |PO | ADDQ.L #0x8,A7
000208e8 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
000208ee 50 4f |PO | ADDQ.L #0x8,A7
000208f0 4e b9 00 01 02 e0 |N | JSR StringCat6(a, b, c, d, e, f : String) : String
000208f6 de fc 00 18 | | ADDA.W #0x18,A7
000208fa 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00020900 de fc 00 2a | * | ADDA.W #0x2a,A7
00020904 52 47 |RG | ADDQ.W #0x1,D7
00020906 be 44 | D | CMP.W D4,D7
00020908 6f 00 ff 5a |o Z | BLE 0x20864
0002090c 48 79 00 02 1e f2 |Hy | PEA.L 0x21ef2
00020912 4e b9 00 01 03 04 |N | JSR GetRtc() : TimeStamp
00020918 58 4f |XO | ADDQ.L #0x4,A7
0002091a 41 fa f8 60 |A ` | LEA.L 0x2017c,A0
0002091e 70 09 |p | MOVEQ.L #0x09,D0
00020920 2f 20 |/ | MOVE.L -(A0),-(A7)
00020922 51 c8 ff fc |Q | DBF D0,0x20920
00020926 51 4f |QO | SUBQ.L #0x8,A7
00020928 48 6f 00 08 |Ho | PEA.L (A7+0x8)
0002092c 3f 02 |? | MOVE.W D2,-(A7)
0002092e 3f 3c 00 28 |?< ( | MOVE.W #0x28,-(A7)
00020932 4e 93 |N | JSR (A3)
00020934 2e b9 00 02 1e f2 |. | MOVE.L 0x21ef2,(A7)
0002093a 4e b9 00 01 03 08 |N | JSR TimeToText()
00020940 58 4f |XO | ADDQ.L #0x4,A7
00020942 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00020948 50 4f |PO | ADDQ.L #0x8,A7
0002094a 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00020950 59 4f |YO | SUBQ.L #0x4,A7
00020952 20 4f | O | MOVEA.L A7,A0
00020954 43 fa f8 4c |C L | LEA.L 0x201a2,A1
00020958 70 2e |p. | MOVEQ.L #0x2e,D0
0002095a 10 d9 | | MOVE.B (A1)+,(A0)+
0002095c 51 c8 ff fc |Q | DBF D0,0x2095a
00020960 59 4f |YO | SUBQ.L #0x4,A7
00020962 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00020966 3f 02 |? | MOVE.W D2,-(A7)
00020968 3f 3c 00 2f |?< / | MOVE.W #0x2f,-(A7)
0002096c 4e 93 |N | JSR (A3)
0002096e 50 4f |PO | ADDQ.L #0x8,A7
00020970 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00020976 de fc 00 34 | 4 | ADDA.W #0x34,A7
0002097a 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
0002097e 4e 5e |N^ | UNLK A6
00020980 4e 75 |Nu | RTS
00020982 ; --------------------------------------------------------------------------------------
00020982 ; OMSI PASCAL Function
00020982 ; <LVAR 0x00c 2(r)>
00020982 ; <LVAR 0x008 4(r)>
00020982 ; <LVAR -0x006 2(w)>
00020982 ; <LVAR -0x00c 2(w)>
00020982 ; <LVAR -0x010 @>
00020982 ; <LVAR -0x012 @>
00020982 ; --------------------------------------------------------------------------------------
00020982 4e 56 ff d4 |NV | LINK.W A6,#0xffd4
00020986 bf d5 | | CMPA.L (A5),A7
00020988 62 06 |b | BHI 0x20990
0002098a 44 fc 00 02 |D | MOVE.W #0x2,CCR
0002098e 4e 76 |Nv | TRAPV
00020990 de fc 00 1a | | ADDA.W #0x1a,A7
00020994 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7)
00020998 43 ee 00 0c |C | LEA.L (A6+0xc),A1
0002099c 3d 7c 00 02 ff f4 |=| | MOVE.W #0x2,(A6-0xc)
000209a2 30 11 |0 | MOVE.W (A1),D0
000209a4 e1 40 | @ | ASL.W #0x8,D0
000209a6 52 40 |R@ | ADDQ.W #0x1,D0
000209a8 3d 40 ff fa |=@ | MOVE.W D0,(A6-0x6)
000209ac 48 6e ff f0 |Hn | PEA.L (A6-0x10)
000209b0 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0
000209b4 2f 08 |/ | MOVE.L A0,-(A7)
000209b6 3f 11 |? | MOVE.W (A1),-(A7)
000209b8 4e b9 00 01 02 04 |N | JSR KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
000209be 50 4f |PO | ADDQ.L #0x8,A7
000209c0 3e 91 |> | MOVE.W (A1),(A7)
000209c2 48 6e ff ee |Hn | PEA.L (A6-0x12)
000209c6 4e b9 00 01 02 06 |N | JSR KC03_Wait_Disk_IO(a : W; VAR status : Byte)
000209cc 5c 4f |\O | ADDQ.L #0x6,A7
000209ce 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1
000209d2 4e 5e |N^ | UNLK A6
000209d4 4e 75 |Nu | RTS
000209d6 ; --------------------------------------------------------------------------------------
000209d6 ; OMSI PASCAL Function
000209d6 ; <LVAR 0x008 2(r)>
000209d6 ; <LVAR -0x008 2(w)>
000209d6 ; <LVAR -0x00a 2(w)>
000209d6 ; <LVAR -0x00c 2(w)>
000209d6 ; <LVAR -0x012 2(w)>
000209d6 ; <LVAR -0x016 @ 2(w)>
000209d6 ; --------------------------------------------------------------------------------------
000209d6 4e 56 ff b8 |NV | LINK.W A6,#0xffb8
000209da bf d5 | | CMPA.L (A5),A7
000209dc 62 06 |b | BHI 0x209e4
000209de 44 fc 00 02 |D | MOVE.W #0x2,CCR
000209e2 4e 76 |Nv | TRAPV
000209e4 de fc 00 32 | 2 | ADDA.W #0x32,A7
000209e8 48 e7 e0 f0 |H | MOVEM.L A3+A2+A1+A0+D2+D1+D0,-(A7)
000209ec 45 ee 00 08 |E | LEA.L (A6+0x8),A2
000209f0 47 fa fb 86 |G | LEA.L 0x20578,A3
000209f4 24 3c 00 00 ff ff |$< | MOVE.L #0xffff,D2
000209fa 30 3c 04 44 |0< D | MOVE.W #0x444,D0
000209fe c1 d2 | | MULS.W (A2),D0
00020a00 41 f9 00 02 1e ea |A | LEA.L 0x21eea,A0
00020a06 59 4f |YO | SUBQ.L #0x4,A7
00020a08 4e ba fb c8 |N | JSR 0x205d2
00020a0c 22 1f |" | MOVE.L (A7)+,D1
00020a0e b2 82 | | CMP.L D2,D1
00020a10 63 02 |c | BLS 0x20a14
00020a12 4e 4f |NO | TRAP #15
00020a14 31 81 00 32 |1 2 | MOVE.W D1,(A0+D0.W+#0x32)
00020a18 59 4f |YO | SUBQ.L #0x4,A7
00020a1a 48 78 00 00 |Hx | PEA.L 0x0
00020a1e 42 81 |B | CLR.L D1
00020a20 32 30 00 30 |20 0 | MOVE.W (A0+D0.W+#0x30),D1
00020a24 53 81 |S | SUBQ.L #0x1,D1
00020a26 2f 01 |/ | MOVE.L D1,-(A7)
00020a28 4e 93 |N | JSR (A3)
00020a2a 50 4f |PO | ADDQ.L #0x8,A7
00020a2c 22 1f |" | MOVE.L (A7)+,D1
00020a2e e3 81 | | ASL.L #0x1,D1
00020a30 21 81 00 1a |! | MOVE.L D1,(A0+D0.W+#0x1a)
00020a34 59 4f |YO | SUBQ.L #0x4,A7
00020a36 48 78 00 00 |Hx | PEA.L 0x0
00020a3a 42 81 |B | CLR.L D1
00020a3c 32 30 00 2e |20 . | MOVE.W (A0+D0.W+#0x2e),D1
00020a40 53 81 |S | SUBQ.L #0x1,D1
00020a42 2f 01 |/ | MOVE.L D1,-(A7)
00020a44 4e 93 |N | JSR (A3)
00020a46 50 4f |PO | ADDQ.L #0x8,A7
00020a48 21 97 00 1e |! | MOVE.L (A7),(A0+D0.W+#0x1e)
00020a4c 2f 30 00 26 |/0 & | MOVE.L (A0+D0.W+#0x26),-(A7)
00020a50 2f 30 00 2a |/0 * | MOVE.L (A0+D0.W+#0x2a),-(A7)
00020a54 4e 93 |N | JSR (A3)
00020a56 50 4f |PO | ADDQ.L #0x8,A7
00020a58 21 9f 00 22 |! " | MOVE.L (A7)+,(A0+D0.W+#0x22)
00020a5c 3d 7c 01 00 ff ea |=| | MOVE.W #0x100,(A6-0x16)
00020a62 3d 7c 00 02 ff ee |=| | MOVE.W #0x2,(A6-0x12)
00020a68 55 4f |UO | SUBQ.L #0x2,A7
00020a6a 4e b9 00 01 06 0a |N | JSR Is_machine_type_four() : Bool
00020a70 4a 1f |J | TST.B (A7)+
00020a72 67 08 |g | BEQ 0x20a7c
00020a74 32 12 |2 | MOVE.W (A2),D1
00020a76 e1 41 | A | ASL.W #0x8,D1
00020a78 56 41 |VA | ADDQ.W #0x3,D1
00020a7a 60 08 |` | BRA 0x20a84
00020a7c 32 12 |2 | MOVE.W (A2),D1
00020a7e e1 41 | A | ASL.W #0x8,D1
00020a80 06 41 00 0b | A | ADDI.W #0x000b,D1
00020a84 3d 41 ff f4 |=A | MOVE.W D1,(A6-0xc)
00020a88 22 30 00 22 |"0 " | MOVE.L (A0+D0.W+#0x22),D1
00020a8c b2 82 | | CMP.L D2,D1
00020a8e 63 02 |c | BLS 0x20a92
00020a90 4e 4f |NO | TRAP #15
00020a92 3d 41 ff f6 |=A | MOVE.W D1,(A6-0xa)
00020a96 22 30 00 1e |"0 | MOVE.L (A0+D0.W+#0x1e),D1
00020a9a e1 81 | | ASL.L #0x8,D1
00020a9c d2 b0 00 1a | | ADD.L (A0+D0.W+#0x1a),D1
00020aa0 b2 82 | | CMP.L D2,D1
00020aa2 63 02 |c | BLS 0x20aa6
00020aa4 4e 4f |NO | TRAP #15
00020aa6 3d 41 ff f8 |=A | MOVE.W D1,(A6-0x8)
00020aaa 48 6e ff ea |Hn | PEA.L (A6-0x16)
00020aae 43 f0 00 32 |C 2 | LEA.L (A0+D0.W+#0x32),A1
00020ab2 2f 09 |/ | MOVE.L A1,-(A7)
00020ab4 3f 12 |? | MOVE.W (A2),-(A7)
00020ab6 4e b9 00 01 02 04 |N | JSR KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
00020abc de fc 00 0a | | ADDA.W #0xa,A7
00020ac0 42 30 00 0d |B0 | CLR.B (A0+D0.W+#0xd)
00020ac4 4c df 0f 07 |L | MOVEM.L (A7)+,D0+D1+D2+A0+A1+A2+A3
00020ac8 4e 5e |N^ | UNLK A6
00020aca 4e 75 |Nu | RTS
00020acc ; --------------------------------------------------------------------------------------
00020acc ; OMSI PASCAL Function
00020acc ; <LVAR 0x008 2(r)>
00020acc ; <LVAR -0x004 2(w)>
00020acc ; <LVAR -0x006 2(w)>
00020acc ; <LVAR -0x008 2(w)>
00020acc ; <LVAR -0x00e 2(w)>
00020acc ; <LVAR -0x012 @ 2(w)>
00020acc ; --------------------------------------------------------------------------------------
00020acc 4e 56 ff b8 |NV | LINK.W A6,#0xffb8
00020ad0 bf d5 | | CMPA.L (A5),A7
00020ad2 62 06 |b | BHI 0x20ada
00020ad4 44 fc 00 02 |D | MOVE.W #0x2,CCR
00020ad8 4e 76 |Nv | TRAPV
00020ada de fc 00 36 | 6 | ADDA.W #0x36,A7
00020ade 48 e7 e0 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D2+D1+D0,-(A7)
00020ae2 45 ee 00 08 |E | LEA.L (A6+0x8),A2
00020ae6 47 f8 00 00 |G | LEA.L 0x0,A3
00020aea 49 fa fa 8c |I | LEA.L 0x20578,A4
00020aee 74 02 |t | MOVEQ.L #0x02,D2
00020af0 30 3c 04 44 |0< D | MOVE.W #0x444,D0
00020af4 c1 d2 | | MULS.W (A2),D0
00020af6 41 f9 00 02 1e ea |A | LEA.L 0x21eea,A0
00020afc 59 4f |YO | SUBQ.L #0x4,A7
00020afe 48 53 |HS | PEA.L (A3)
00020b00 42 81 |B | CLR.L D1
00020b02 32 30 00 30 |20 0 | MOVE.W (A0+D0.W+#0x30),D1
00020b06 53 81 |S | SUBQ.L #0x1,D1
00020b08 2f 01 |/ | MOVE.L D1,-(A7)
00020b0a 4e 94 |N | JSR (A4)
00020b0c 50 4f |PO | ADDQ.L #0x8,A7
00020b0e 22 1f |" | MOVE.L (A7)+,D1
00020b10 e3 81 | | ASL.L #0x1,D1
00020b12 21 81 00 1a |! | MOVE.L D1,(A0+D0.W+#0x1a)
00020b16 59 4f |YO | SUBQ.L #0x4,A7
00020b18 48 53 |HS | PEA.L (A3)
00020b1a 42 81 |B | CLR.L D1
00020b1c 32 30 00 2e |20 . | MOVE.W (A0+D0.W+#0x2e),D1
00020b20 53 81 |S | SUBQ.L #0x1,D1
00020b22 2f 01 |/ | MOVE.L D1,-(A7)
00020b24 4e 94 |N | JSR (A4)
00020b26 50 4f |PO | ADDQ.L #0x8,A7
00020b28 21 97 00 1e |! | MOVE.L (A7),(A0+D0.W+#0x1e)
00020b2c 48 53 |HS | PEA.L (A3)
00020b2e 2f 30 00 2a |/0 * | MOVE.L (A0+D0.W+#0x2a),-(A7)
00020b32 4e 94 |N | JSR (A4)
00020b34 50 4f |PO | ADDQ.L #0x8,A7
00020b36 21 9f 00 22 |! " | MOVE.L (A7)+,(A0+D0.W+#0x22)
00020b3a 3d 7c 01 00 ff ee |=| | MOVE.W #0x100,(A6-0x12)
00020b40 3d 42 ff f2 |=B | MOVE.W D2,(A6-0xe)
00020b44 32 12 |2 | MOVE.W (A2),D1
00020b46 e1 41 | A | ASL.W #0x8,D1
00020b48 54 41 |TA | ADDQ.W #0x2,D1
00020b4a 3d 41 ff f8 |=A | MOVE.W D1,(A6-0x8)
00020b4e 22 30 00 22 |"0 " | MOVE.L (A0+D0.W+#0x22),D1
00020b52 0c 81 00 00 ff ff | | CMPI.L #0x0000ffff,D1
00020b58 63 02 |c | BLS 0x20b5c
00020b5a 4e 4f |NO | TRAP #15
00020b5c 3d 41 ff fa |=A | MOVE.W D1,(A6-0x6)
00020b60 22 30 00 1e |"0 | MOVE.L (A0+D0.W+#0x1e),D1
00020b64 e1 81 | | ASL.L #0x8,D1
00020b66 d2 b0 00 1a | | ADD.L (A0+D0.W+#0x1a),D1
00020b6a 0c 81 00 00 ff ff | | CMPI.L #0x0000ffff,D1
00020b70 63 02 |c | BLS 0x20b74
00020b72 4e 4f |NO | TRAP #15
00020b74 3d 41 ff fc |=A | MOVE.W D1,(A6-0x4)
00020b78 48 6e ff ee |Hn | PEA.L (A6-0x12)
00020b7c 43 f0 00 32 |C 2 | LEA.L (A0+D0.W+#0x32),A1
00020b80 2f 09 |/ | MOVE.L A1,-(A7)
00020b82 3f 12 |? | MOVE.W (A2),-(A7)
00020b84 4e b9 00 01 02 04 |N | JSR KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
00020b8a de fc 00 0a | | ADDA.W #0xa,A7
00020b8e 11 82 00 0d | | MOVE.B D2,(A0+D0.W+#0xd)
00020b92 4c df 1f 07 |L | MOVEM.L (A7)+,D0+D1+D2+A0+A1+A2+A3+A4
00020b96 4e 5e |N^ | UNLK A6
00020b98 4e 75 |Nu | RTS
00020b9a ; --------------------------------------------------------------------------------------
00020b9a ; OMSI PASCAL Function
00020b9a ; <LVAR 0x008 2(r)>
00020b9a ; <LVAR -0x004 2(w)>
00020b9a ; <LVAR -0x006 2(w)>
00020b9a ; <LVAR -0x008 2(w)>
00020b9a ; <LVAR -0x00e 2(w)>
00020b9a ; <LVAR -0x012 @ 2(w)>
00020b9a ; --------------------------------------------------------------------------------------
00020b9a 4e 56 ff c6 |NV | LINK.W A6,#0xffc6
00020b9e bf d5 | | CMPA.L (A5),A7
00020ba0 62 06 |b | BHI 0x20ba8
00020ba2 44 fc 00 02 |D | MOVE.W #0x2,CCR
00020ba6 4e 76 |Nv | TRAPV
00020ba8 de fc 00 28 | ( | ADDA.W #0x28,A7
00020bac 48 e7 c0 e0 |H | MOVEM.L A2+A1+A0+D1+D0,-(A7)
00020bb0 45 ee 00 08 |E | LEA.L (A6+0x8),A2
00020bb4 30 3c 04 44 |0< D | MOVE.W #0x444,D0
00020bb8 c1 d2 | | MULS.W (A2),D0
00020bba 41 f9 00 02 1e ea |A | LEA.L 0x21eea,A0
00020bc0 3d 7c 01 00 ff ee |=| | MOVE.W #0x100,(A6-0x12)
00020bc6 3d 7c 00 02 ff f2 |=| | MOVE.W #0x2,(A6-0xe)
00020bcc 55 4f |UO | SUBQ.L #0x2,A7
00020bce 4e b9 00 01 06 0a |N | JSR Is_machine_type_four() : Bool
00020bd4 4a 1f |J | TST.B (A7)+
00020bd6 67 08 |g | BEQ 0x20be0
00020bd8 32 12 |2 | MOVE.W (A2),D1
00020bda e1 41 | A | ASL.W #0x8,D1
00020bdc 54 41 |TA | ADDQ.W #0x2,D1
00020bde 60 08 |` | BRA 0x20be8
00020be0 32 12 |2 | MOVE.W (A2),D1
00020be2 e1 41 | A | ASL.W #0x8,D1
00020be4 06 41 00 0c | A | ADDI.W #0x000c,D1
00020be8 3d 41 ff f8 |=A | MOVE.W D1,(A6-0x8)
00020bec 22 30 00 22 |"0 " | MOVE.L (A0+D0.W+#0x22),D1
00020bf0 0c 81 00 00 ff ff | | CMPI.L #0x0000ffff,D1
00020bf6 63 02 |c | BLS 0x20bfa
00020bf8 4e 4f |NO | TRAP #15
00020bfa 3d 41 ff fa |=A | MOVE.W D1,(A6-0x6)
00020bfe 22 30 00 1e |"0 | MOVE.L (A0+D0.W+#0x1e),D1
00020c02 e1 81 | | ASL.L #0x8,D1
00020c04 d2 b0 00 1a | | ADD.L (A0+D0.W+#0x1a),D1
00020c08 0c 81 00 00 ff ff | | CMPI.L #0x0000ffff,D1
00020c0e 63 02 |c | BLS 0x20c12
00020c10 4e 4f |NO | TRAP #15
00020c12 3d 41 ff fc |=A | MOVE.W D1,(A6-0x4)
00020c16 48 6e ff ee |Hn | PEA.L (A6-0x12)
00020c1a 43 f0 00 32 |C 2 | LEA.L (A0+D0.W+#0x32),A1
00020c1e 2f 09 |/ | MOVE.L A1,-(A7)
00020c20 3f 12 |? | MOVE.W (A2),-(A7)
00020c22 4e b9 00 01 02 04 |N | JSR KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
00020c28 de fc 00 0a | | ADDA.W #0xa,A7
00020c2c 11 bc 00 01 00 0d | | MOVE.B #0x01,(A0+D0.W+#0xd)
00020c32 4c df 07 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2
00020c36 4e 5e |N^ | UNLK A6
00020c38 4e 75 |Nu | RTS
00020c3a ; --------------------------------------------------------------------------------------
00020c3a ; OMSI PASCAL Function
00020c3a ; <LVAR 0x00a 4(r)>
00020c3a ; <LVAR 0x008 2(r)>
00020c3a ; <LVAR -0x004 @ 4(r)>
00020c3a ; --------------------------------------------------------------------------------------
00020c3a 4e 56 ff 56 |NV V | LINK.W A6,#0xff56
00020c3e bf d5 | | CMPA.L (A5),A7
00020c40 62 06 |b | BHI 0x20c48
00020c42 44 fc 00 02 |D | MOVE.W #0x2,CCR
00020c46 4e 76 |Nv | TRAPV
00020c48 de fc 00 8c | | ADDA.W #0x8c,A7
00020c4c 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00020c50 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
00020c56 49 f9 00 01 03 e0 |I | LEA.L WriteConsoleStringCrLf(str : String),A4
00020c5c 74 01 |t | MOVEQ.L #0x01,D2
00020c5e 7a 12 |z | MOVEQ.L #0x12,D5
00020c60 7c 16 || | MOVEQ.L #0x16,D6
00020c62 48 6e ff fc |Hn | PEA.L (A6-0x4)
00020c66 4e b9 00 01 03 04 |N | JSR GetRtc() : TimeStamp
00020c6c 58 4f |XO | ADDQ.L #0x4,A7
00020c6e 41 fa f8 42 |A B | LEA.L 0x204b2,A0
00020c72 70 06 |p | MOVEQ.L #0x06,D0
00020c74 3f 20 |? | MOVE.W -(A0),-(A7)
00020c76 51 c8 ff fc |Q | DBF D0,0x20c74
00020c7a 2f 3a f8 36 |/: 6 | MOVE.L 0x204b2,-(A7)
00020c7e 9e c5 | | SUBA.W D5,A7
00020c80 20 4f | O | MOVEA.L A7,A0
00020c82 43 fa f8 32 |C 2 | LEA.L 0x204b6,A1
00020c86 70 10 |p | MOVEQ.L #0x10,D0
00020c88 10 d9 | | MOVE.B (A1)+,(A0)+
00020c8a 51 c8 ff fc |Q | DBF D0,0x20c88
00020c8e 51 4f |QO | SUBQ.L #0x8,A7
00020c90 48 6f 00 1e |Ho | PEA.L (A7+0x1e)
00020c94 3f 02 |? | MOVE.W D2,-(A7)
00020c96 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7)
00020c9a 4e 93 |N | JSR (A3)
00020c9c 58 4f |XO | ADDQ.L #0x4,A7
00020c9e 30 2e 00 08 |0. | MOVE.W (A6+0x8),D0
00020ca2 48 c0 |H | EXTW.L D0
00020ca4 2f 00 |/ | MOVE.L D0,-(A7)
00020ca6 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String
00020cac 48 6f 00 22 |Ho " | PEA.L (A7+0x22)
00020cb0 3f 02 |? | MOVE.W D2,-(A7)
00020cb2 3f 3c 00 04 |?< | MOVE.W #0x4,-(A7)
00020cb6 4e 93 |N | JSR (A3)
00020cb8 2e ae ff fc |. | MOVE.L (A6-0x4),(A7)
00020cbc 4e b9 00 01 03 08 |N | JSR TimeToText()
00020cc2 48 6f 00 18 |Ho | PEA.L (A7+0x18)
00020cc6 3f 02 |? | MOVE.W D2,-(A7)
00020cc8 3f 3c 00 11 |?< | MOVE.W #0x11,-(A7)
00020ccc 4e 93 |N | JSR (A3)
00020cce 2e b9 00 02 1e f2 |. | MOVE.L 0x21ef2,(A7)
00020cd4 4e b9 00 01 03 08 |N | JSR TimeToText()
00020cda 58 4f |XO | ADDQ.L #0x4,A7
00020cdc 4e b9 00 01 02 e0 |N | JSR StringCat6(a, b, c, d, e, f : String) : String
00020ce2 de fc 00 18 | | ADDA.W #0x18,A7
00020ce6 4e 94 |N | JSR (A4)
00020ce8 de fc 00 28 | ( | ADDA.W #0x28,A7
00020cec 30 3c 04 44 |0< D | MOVE.W #0x444,D0
00020cf0 c1 ee 00 08 | | MULS.W (A6+0x8),D0
00020cf4 41 f9 00 02 1e ea |A | LEA.L 0x21eea,A0
00020cfa 3f 00 |? | MOVE.W D0,-(A7)
00020cfc 2f 08 |/ | MOVE.L A0,-(A7)
00020cfe 43 fa f7 da |C | LEA.L 0x204da,A1
00020d02 72 08 |r | MOVEQ.L #0x08,D1
00020d04 3f 21 |?! | MOVE.W -(A1),-(A7)
00020d06 51 c9 ff fc |Q | DBF D1,0x20d04
00020d0a 59 4f |YO | SUBQ.L #0x4,A7
00020d0c 2f 2e 00 0a |/. | MOVE.L (A6+0xa),-(A7)
00020d10 59 4f |YO | SUBQ.L #0x4,A7
00020d12 48 6f 00 0c |Ho | PEA.L (A7+0xc)
00020d16 3f 02 |? | MOVE.W D2,-(A7)
00020d18 3f 05 |? | MOVE.W D5,-(A7)
00020d1a 4e 93 |N | JSR (A3)
00020d1c 2e b0 00 16 |. | MOVE.L (A0+D0.W+#0x16),(A7)
00020d20 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String
00020d26 58 4f |XO | ADDQ.L #0x4,A7
00020d28 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String
00020d2e de fc 00 0c | | ADDA.W #0xc,A7
00020d32 4e 94 |N | JSR (A4)
00020d34 de c6 | | ADDA.W D6,A7
00020d36 7e 00 |~ | MOVEQ.L #0x00,D7
00020d38 0c 87 00 00 00 08 | | CMPI.L #0x00000008,D7
00020d3e 63 02 |c | BLS 0x20d42
00020d40 4e 4f |NO | TRAP #15
00020d42 28 07 |( | MOVE.L D7,D4
00020d44 76 05 |v | MOVEQ.L #0x05,D3
00020d46 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4
00020d4c 41 fa f7 fc |A | LEA.L 0x2054a,A0
00020d50 5d 4f |]O | SUBQ.L #0x6,A7
00020d52 22 4f |"O | MOVEA.L A7,A1
00020d54 41 f0 48 00 |A H | LEA.L (A0+D4.L),A0
00020d58 70 04 |p | MOVEQ.L #0x04,D0
00020d5a 12 d8 | | MOVE.B (A0)+,(A1)+
00020d5c 51 c8 ff fc |Q | DBF D0,0x20d5a
00020d60 51 4f |QO | SUBQ.L #0x8,A7
00020d62 48 6f 00 08 |Ho | PEA.L (A7+0x8)
00020d66 3f 02 |? | MOVE.W D2,-(A7)
00020d68 3f 3c 00 05 |?< | MOVE.W #0x5,-(A7)
00020d6c 4e 93 |N | JSR (A3)
00020d6e 58 4f |XO | ADDQ.L #0x4,A7
00020d70 0c 87 00 00 00 0a | | CMPI.L #0x0000000a,D7
00020d76 63 02 |c | BLS 0x20d7a
00020d78 4e 4f |NO | TRAP #15
00020d7a 20 07 | | MOVE.L D7,D0
00020d7c e3 80 | | ASL.L #0x1,D0
00020d7e 20 6f 00 12 | o | MOVEA.L (A7+0x12),A0
00020d82 32 2f 00 16 |2/ | MOVE.W (A7+0x16),D1
00020d86 41 f0 10 0c |A | LEA.L (A0+D1.W+#0xc),A0
00020d8a 41 f0 08 00 |A | LEA.L (A0+D0.L),A0
00020d8e 42 80 |B | CLR.L D0
00020d90 30 28 04 26 |0( & | MOVE.W (A0+0x426),D0
00020d94 2f 00 |/ | MOVE.L D0,-(A7)
00020d96 48 78 00 04 |Hx | PEA.L 0x4
00020d9a 4e b9 00 01 02 e8 |N | JSR Long2HexString(val : Long; ndig : Long) : String
00020da0 50 4f |PO | ADDQ.L #0x8,A7
00020da2 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00020da8 50 4f |PO | ADDQ.L #0x8,A7
00020daa 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String)
00020db0 de fc 00 0a | | ADDA.W #0xa,A7
00020db4 52 87 |R | ADDQ.L #0x1,D7
00020db6 0c 87 00 00 00 08 | | CMPI.L #0x00000008,D7
00020dbc 6f 00 ff 7a |o z | BLE 0x20d38
00020dc0 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void)
00020dc6 20 57 | W | MOVEA.L (A7),A0
00020dc8 30 2f 00 04 |0/ | MOVE.W (A7+0x4),D0
00020dcc 41 f0 00 0c |A | LEA.L (A0+D0.W+#0xc),A0
00020dd0 2f 08 |/ | MOVE.L A0,-(A7)
00020dd2 30 28 04 26 |0( & | MOVE.W (A0+0x426),D0
00020dd6 02 40 80 00 | @ | ANDI.W #0x8000,D0
00020dda 67 24 |g$ | BEQ 0x20e00
00020ddc 9e c5 | | SUBA.W D5,A7
00020dde 22 4f |"O | MOVEA.L A7,A1
00020de0 45 fa f4 26 |E & | LEA.L 0x20208,A2
00020de4 70 10 |p | MOVEQ.L #0x10,D0
00020de6 12 da | | MOVE.B (A2)+,(A1)+
00020de8 51 c8 ff fc |Q | DBF D0,0x20de6
00020dec 59 4f |YO | SUBQ.L #0x4,A7
00020dee 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00020df2 3f 02 |? | MOVE.W D2,-(A7)
00020df4 3f 3c 00 11 |?< | MOVE.W #0x11,-(A7)
00020df8 4e 93 |N | JSR (A3)
00020dfa 50 4f |PO | ADDQ.L #0x8,A7
00020dfc 4e 94 |N | JSR (A4)
00020dfe de c6 | | ADDA.W D6,A7
00020e00 30 28 04 26 |0( & | MOVE.W (A0+0x426),D0
00020e04 02 40 40 00 | @@ | ANDI.W #0x4000,D0
00020e08 67 20 |g | BEQ 0x20e2a
00020e0a 43 fa f4 1c |C | LEA.L 0x20228,A1
00020e0e 70 06 |p | MOVEQ.L #0x06,D0
00020e10 3f 21 |?! | MOVE.W -(A1),-(A7)
00020e12 51 c8 ff fc |Q | DBF D0,0x20e10
00020e16 59 4f |YO | SUBQ.L #0x4,A7
00020e18 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00020e1c 3f 02 |? | MOVE.W D2,-(A7)
00020e1e 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7)
00020e22 4e 93 |N | JSR (A3)
00020e24 50 4f |PO | ADDQ.L #0x8,A7
00020e26 4e 94 |N | JSR (A4)
00020e28 de c5 | | ADDA.W D5,A7
00020e2a 30 28 04 26 |0( & | MOVE.W (A0+0x426),D0
00020e2e 02 40 08 00 | @ | ANDI.W #0x0800,D0
00020e32 66 20 |f | BNE 0x20e54
00020e34 43 fa f4 08 |C | LEA.L 0x2023e,A1
00020e38 70 0a |p | MOVEQ.L #0x0a,D0
00020e3a 3f 21 |?! | MOVE.W -(A1),-(A7)
00020e3c 51 c8 ff fc |Q | DBF D0,0x20e3a
00020e40 59 4f |YO | SUBQ.L #0x4,A7
00020e42 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00020e46 3f 02 |? | MOVE.W D2,-(A7)
00020e48 3f 06 |? | MOVE.W D6,-(A7)
00020e4a 4e 93 |N | JSR (A3)
00020e4c 50 4f |PO | ADDQ.L #0x8,A7
00020e4e 4e 94 |N | JSR (A4)
00020e50 de fc 00 1a | | ADDA.W #0x1a,A7
00020e54 30 28 04 26 |0( & | MOVE.W (A0+0x426),D0
00020e58 02 40 00 80 | @ | ANDI.W #0x0080,D0
00020e5c 66 1e |f | BNE 0x20e7c
00020e5e 41 fa f3 f0 |A | LEA.L 0x20250,A0
00020e62 70 08 |p | MOVEQ.L #0x08,D0
00020e64 3f 20 |? | MOVE.W -(A0),-(A7)
00020e66 51 c8 ff fc |Q | DBF D0,0x20e64
00020e6a 59 4f |YO | SUBQ.L #0x4,A7
00020e6c 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00020e70 3f 02 |? | MOVE.W D2,-(A7)
00020e72 3f 05 |? | MOVE.W D5,-(A7)
00020e74 4e 93 |N | JSR (A3)
00020e76 50 4f |PO | ADDQ.L #0x8,A7
00020e78 4e 94 |N | JSR (A4)
00020e7a de c6 | | ADDA.W D6,A7
00020e7c 20 57 | W | MOVEA.L (A7),A0
00020e7e 30 28 04 28 |0( ( | MOVE.W (A0+0x428),D0
00020e82 02 40 80 00 | @ | ANDI.W #0x8000,D0
00020e86 67 28 |g( | BEQ 0x20eb0
00020e88 9e fc 00 0a | | SUBA.W #0xa,A7
00020e8c 22 4f |"O | MOVEA.L A7,A1
00020e8e 45 fa f3 c0 |E | LEA.L 0x20250,A2
00020e92 70 08 |p | MOVEQ.L #0x08,D0
00020e94 12 da | | MOVE.B (A2)+,(A1)+
00020e96 51 c8 ff fc |Q | DBF D0,0x20e94
00020e9a 59 4f |YO | SUBQ.L #0x4,A7
00020e9c 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00020ea0 3f 02 |? | MOVE.W D2,-(A7)
00020ea2 3f 3c 00 09 |?< | MOVE.W #0x9,-(A7)
00020ea6 4e 93 |N | JSR (A3)
00020ea8 50 4f |PO | ADDQ.L #0x8,A7
00020eaa 4e 94 |N | JSR (A4)
00020eac de fc 00 0e | | ADDA.W #0xe,A7
00020eb0 30 28 04 28 |0( ( | MOVE.W (A0+0x428),D0
00020eb4 02 40 40 00 | @@ | ANDI.W #0x4000,D0
00020eb8 67 24 |g$ | BEQ 0x20ede
00020eba 9e c5 | | SUBA.W D5,A7
00020ebc 22 4f |"O | MOVEA.L A7,A1
00020ebe 45 fa f3 9a |E | LEA.L 0x2025a,A2
00020ec2 70 10 |p | MOVEQ.L #0x10,D0
00020ec4 12 da | | MOVE.B (A2)+,(A1)+
00020ec6 51 c8 ff fc |Q | DBF D0,0x20ec4
00020eca 59 4f |YO | SUBQ.L #0x4,A7
00020ecc 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00020ed0 3f 02 |? | MOVE.W D2,-(A7)
00020ed2 3f 3c 00 11 |?< | MOVE.W #0x11,-(A7)
00020ed6 4e 93 |N | JSR (A3)
00020ed8 50 4f |PO | ADDQ.L #0x8,A7
00020eda 4e 94 |N | JSR (A4)
00020edc de c6 | | ADDA.W D6,A7
00020ede 30 28 04 28 |0( ( | MOVE.W (A0+0x428),D0
00020ee2 02 40 10 00 | @ | ANDI.W #0x1000,D0
00020ee6 67 1e |g | BEQ 0x20f06
00020ee8 43 fa f3 94 |C | LEA.L 0x2027e,A1
00020eec 70 08 |p | MOVEQ.L #0x08,D0
00020eee 3f 21 |?! | MOVE.W -(A1),-(A7)
00020ef0 51 c8 ff fc |Q | DBF D0,0x20eee
00020ef4 59 4f |YO | SUBQ.L #0x4,A7
00020ef6 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00020efa 3f 02 |? | MOVE.W D2,-(A7)
00020efc 3f 05 |? | MOVE.W D5,-(A7)
00020efe 4e 93 |N | JSR (A3)
00020f00 50 4f |PO | ADDQ.L #0x8,A7
00020f02 4e 94 |N | JSR (A4)
00020f04 de c6 | | ADDA.W D6,A7
00020f06 30 28 04 28 |0( ( | MOVE.W (A0+0x428),D0
00020f0a 02 40 08 00 | @ | ANDI.W #0x0800,D0
00020f0e 67 28 |g( | BEQ 0x20f38
00020f10 9e fc 00 14 | | SUBA.W #0x14,A7
00020f14 22 4f |"O | MOVEA.L A7,A1
00020f16 45 fa f3 66 |E f | LEA.L 0x2027e,A2
00020f1a 70 12 |p | MOVEQ.L #0x12,D0
00020f1c 12 da | | MOVE.B (A2)+,(A1)+
00020f1e 51 c8 ff fc |Q | DBF D0,0x20f1c
00020f22 59 4f |YO | SUBQ.L #0x4,A7
00020f24 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00020f28 3f 02 |? | MOVE.W D2,-(A7)
00020f2a 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7)
00020f2e 4e 93 |N | JSR (A3)
00020f30 50 4f |PO | ADDQ.L #0x8,A7
00020f32 4e 94 |N | JSR (A4)
00020f34 de fc 00 18 | | ADDA.W #0x18,A7
00020f38 30 28 04 28 |0( ( | MOVE.W (A0+0x428),D0
00020f3c 02 40 04 00 | @ | ANDI.W #0x0400,D0
00020f40 67 26 |g& | BEQ 0x20f68
00020f42 9e fc 00 0e | | SUBA.W #0xe,A7
00020f46 22 4f |"O | MOVEA.L A7,A1
00020f48 45 fa f3 48 |E H | LEA.L 0x20292,A2
00020f4c 70 0c |p | MOVEQ.L #0x0c,D0
00020f4e 12 da | | MOVE.B (A2)+,(A1)+
00020f50 51 c8 ff fc |Q | DBF D0,0x20f4e
00020f54 59 4f |YO | SUBQ.L #0x4,A7
00020f56 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00020f5a 3f 02 |? | MOVE.W D2,-(A7)
00020f5c 3f 3c 00 0d |?< | MOVE.W #0xd,-(A7)
00020f60 4e 93 |N | JSR (A3)
00020f62 50 4f |PO | ADDQ.L #0x8,A7
00020f64 4e 94 |N | JSR (A4)
00020f66 de c5 | | ADDA.W D5,A7
00020f68 30 28 04 28 |0( ( | MOVE.W (A0+0x428),D0
00020f6c 02 40 02 00 | @ | ANDI.W #0x0200,D0
00020f70 67 28 |g( | BEQ 0x20f9a
00020f72 9e fc 00 10 | | SUBA.W #0x10,A7
00020f76 22 4f |"O | MOVEA.L A7,A1
00020f78 45 fa f3 26 |E & | LEA.L 0x202a0,A2
00020f7c 70 0e |p | MOVEQ.L #0x0e,D0
00020f7e 12 da | | MOVE.B (A2)+,(A1)+
00020f80 51 c8 ff fc |Q | DBF D0,0x20f7e
00020f84 59 4f |YO | SUBQ.L #0x4,A7
00020f86 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00020f8a 3f 02 |? | MOVE.W D2,-(A7)
00020f8c 3f 3c 00 0f |?< | MOVE.W #0xf,-(A7)
00020f90 4e 93 |N | JSR (A3)
00020f92 50 4f |PO | ADDQ.L #0x8,A7
00020f94 4e 94 |N | JSR (A4)
00020f96 de fc 00 14 | | ADDA.W #0x14,A7
00020f9a 30 28 04 28 |0( ( | MOVE.W (A0+0x428),D0
00020f9e 02 40 00 40 | @ @ | ANDI.W #0x0040,D0
00020fa2 66 28 |f( | BNE 0x20fcc
00020fa4 9e fc 00 10 | | SUBA.W #0x10,A7
00020fa8 22 4f |"O | MOVEA.L A7,A1
00020faa 45 fa f3 04 |E | LEA.L 0x202b0,A2
00020fae 70 0e |p | MOVEQ.L #0x0e,D0
00020fb0 12 da | | MOVE.B (A2)+,(A1)+
00020fb2 51 c8 ff fc |Q | DBF D0,0x20fb0
00020fb6 59 4f |YO | SUBQ.L #0x4,A7
00020fb8 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00020fbc 3f 02 |? | MOVE.W D2,-(A7)
00020fbe 3f 3c 00 0f |?< | MOVE.W #0xf,-(A7)
00020fc2 4e 93 |N | JSR (A3)
00020fc4 50 4f |PO | ADDQ.L #0x8,A7
00020fc6 4e 94 |N | JSR (A4)
00020fc8 de fc 00 14 | | ADDA.W #0x14,A7
00020fcc 30 28 04 28 |0( ( | MOVE.W (A0+0x428),D0
00020fd0 02 40 00 04 | @ | ANDI.W #0x0004,D0
00020fd4 67 28 |g( | BEQ 0x20ffe
00020fd6 9e fc 00 1e | | SUBA.W #0x1e,A7
00020fda 22 4f |"O | MOVEA.L A7,A1
00020fdc 45 fa f2 e2 |E | LEA.L 0x202c0,A2
00020fe0 70 1c |p | MOVEQ.L #0x1c,D0
00020fe2 12 da | | MOVE.B (A2)+,(A1)+
00020fe4 51 c8 ff fc |Q | DBF D0,0x20fe2
00020fe8 59 4f |YO | SUBQ.L #0x4,A7
00020fea 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00020fee 3f 02 |? | MOVE.W D2,-(A7)
00020ff0 3f 3c 00 1d |?< | MOVE.W #0x1d,-(A7)
00020ff4 4e 93 |N | JSR (A3)
00020ff6 50 4f |PO | ADDQ.L #0x8,A7
00020ff8 4e 94 |N | JSR (A4)
00020ffa de fc 00 22 | " | ADDA.W #0x22,A7
00020ffe 30 28 04 2a |0( * | MOVE.W (A0+0x42a),D0
00021002 02 40 20 00 | @ | ANDI.W #0x2000,D0
00021006 67 28 |g( | BEQ 0x21030
00021008 9e fc 00 18 | | SUBA.W #0x18,A7
0002100c 22 4f |"O | MOVEA.L A7,A1
0002100e 45 fa f2 ce |E | LEA.L 0x202de,A2
00021012 70 16 |p | MOVEQ.L #0x16,D0
00021014 12 da | | MOVE.B (A2)+,(A1)+
00021016 51 c8 ff fc |Q | DBF D0,0x21014
0002101a 59 4f |YO | SUBQ.L #0x4,A7
0002101c 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021020 3f 02 |? | MOVE.W D2,-(A7)
00021022 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7)
00021026 4e 93 |N | JSR (A3)
00021028 50 4f |PO | ADDQ.L #0x8,A7
0002102a 4e 94 |N | JSR (A4)
0002102c de fc 00 1c | | ADDA.W #0x1c,A7
00021030 30 28 04 2a |0( * | MOVE.W (A0+0x42a),D0
00021034 02 40 10 00 | @ | ANDI.W #0x1000,D0
00021038 66 1e |f | BNE 0x21058
0002103a 43 fa f2 cc |C | LEA.L 0x20308,A1
0002103e 70 08 |p | MOVEQ.L #0x08,D0
00021040 3f 21 |?! | MOVE.W -(A1),-(A7)
00021042 51 c8 ff fc |Q | DBF D0,0x21040
00021046 59 4f |YO | SUBQ.L #0x4,A7
00021048 48 6f 00 04 |Ho | PEA.L (A7+0x4)
0002104c 3f 02 |? | MOVE.W D2,-(A7)
0002104e 3f 05 |? | MOVE.W D5,-(A7)
00021050 4e 93 |N | JSR (A3)
00021052 50 4f |PO | ADDQ.L #0x8,A7
00021054 4e 94 |N | JSR (A4)
00021056 de c6 | | ADDA.W D6,A7
00021058 30 28 04 2a |0( * | MOVE.W (A0+0x42a),D0
0002105c 02 40 08 00 | @ | ANDI.W #0x0800,D0
00021060 67 22 |g" | BEQ 0x21084
00021062 2f 3a f2 ac |/: | MOVE.L 0x20310,-(A7)
00021066 2f 3a f2 a4 |/: | MOVE.L 0x2030c,-(A7)
0002106a 2f 3a f2 9c |/: | MOVE.L 0x20308,-(A7)
0002106e 59 4f |YO | SUBQ.L #0x4,A7
00021070 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021074 3f 02 |? | MOVE.W D2,-(A7)
00021076 3f 3c 00 0c |?< | MOVE.W #0xc,-(A7)
0002107a 4e 93 |N | JSR (A3)
0002107c 50 4f |PO | ADDQ.L #0x8,A7
0002107e 4e 94 |N | JSR (A4)
00021080 de fc 00 10 | | ADDA.W #0x10,A7
00021084 30 28 04 2a |0( * | MOVE.W (A0+0x42a),D0
00021088 02 40 04 00 | @ | ANDI.W #0x0400,D0
0002108c 67 20 |g | BEQ 0x210ae
0002108e 43 fa f2 9a |C | LEA.L 0x2032a,A1
00021092 70 0a |p | MOVEQ.L #0x0a,D0
00021094 3f 21 |?! | MOVE.W -(A1),-(A7)
00021096 51 c8 ff fc |Q | DBF D0,0x21094
0002109a 59 4f |YO | SUBQ.L #0x4,A7
0002109c 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000210a0 3f 02 |? | MOVE.W D2,-(A7)
000210a2 3f 06 |? | MOVE.W D6,-(A7)
000210a4 4e 93 |N | JSR (A3)
000210a6 50 4f |PO | ADDQ.L #0x8,A7
000210a8 4e 94 |N | JSR (A4)
000210aa de fc 00 1a | | ADDA.W #0x1a,A7
000210ae 30 28 04 2a |0( * | MOVE.W (A0+0x42a),D0
000210b2 02 40 01 00 | @ | ANDI.W #0x0100,D0
000210b6 66 24 |f$ | BNE 0x210dc
000210b8 9e c5 | | SUBA.W D5,A7
000210ba 22 4f |"O | MOVEA.L A7,A1
000210bc 45 fa f2 6c |E l | LEA.L 0x2032a,A2
000210c0 70 10 |p | MOVEQ.L #0x10,D0
000210c2 12 da | | MOVE.B (A2)+,(A1)+
000210c4 51 c8 ff fc |Q | DBF D0,0x210c2
000210c8 59 4f |YO | SUBQ.L #0x4,A7
000210ca 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000210ce 3f 02 |? | MOVE.W D2,-(A7)
000210d0 3f 3c 00 11 |?< | MOVE.W #0x11,-(A7)
000210d4 4e 93 |N | JSR (A3)
000210d6 50 4f |PO | ADDQ.L #0x8,A7
000210d8 4e 94 |N | JSR (A4)
000210da de c6 | | ADDA.W D6,A7
000210dc 30 28 04 2a |0( * | MOVE.W (A0+0x42a),D0
000210e0 02 40 00 80 | @ | ANDI.W #0x0080,D0
000210e4 66 28 |f( | BNE 0x2110e
000210e6 9e fc 00 10 | | SUBA.W #0x10,A7
000210ea 22 4f |"O | MOVEA.L A7,A1
000210ec 45 fa f2 4e |E N | LEA.L 0x2033c,A2
000210f0 70 0e |p | MOVEQ.L #0x0e,D0
000210f2 12 da | | MOVE.B (A2)+,(A1)+
000210f4 51 c8 ff fc |Q | DBF D0,0x210f2
000210f8 59 4f |YO | SUBQ.L #0x4,A7
000210fa 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000210fe 3f 02 |? | MOVE.W D2,-(A7)
00021100 3f 3c 00 0f |?< | MOVE.W #0xf,-(A7)
00021104 4e 93 |N | JSR (A3)
00021106 50 4f |PO | ADDQ.L #0x8,A7
00021108 4e 94 |N | JSR (A4)
0002110a de fc 00 14 | | ADDA.W #0x14,A7
0002110e 30 28 04 2a |0( * | MOVE.W (A0+0x42a),D0
00021112 02 40 00 40 | @ @ | ANDI.W #0x0040,D0
00021116 66 26 |f& | BNE 0x2113e
00021118 2f 3a f2 3e |/: > | MOVE.L 0x20358,-(A7)
0002111c 2f 3a f2 36 |/: 6 | MOVE.L 0x20354,-(A7)
00021120 2f 3a f2 2e |/: . | MOVE.L 0x20350,-(A7)
00021124 2f 3a f2 26 |/: & | MOVE.L 0x2034c,-(A7)
00021128 59 4f |YO | SUBQ.L #0x4,A7
0002112a 48 6f 00 04 |Ho | PEA.L (A7+0x4)
0002112e 3f 02 |? | MOVE.W D2,-(A7)
00021130 3f 3c 00 10 |?< | MOVE.W #0x10,-(A7)
00021134 4e 93 |N | JSR (A3)
00021136 50 4f |PO | ADDQ.L #0x8,A7
00021138 4e 94 |N | JSR (A4)
0002113a de fc 00 14 | | ADDA.W #0x14,A7
0002113e 30 28 04 2c |0( , | MOVE.W (A0+0x42c),D0
00021142 02 40 80 00 | @ | ANDI.W #0x8000,D0
00021146 67 26 |g& | BEQ 0x2116e
00021148 2f 3a f2 1e |/: | MOVE.L 0x20368,-(A7)
0002114c 2f 3a f2 16 |/: | MOVE.L 0x20364,-(A7)
00021150 2f 3a f2 0e |/: | MOVE.L 0x20360,-(A7)
00021154 2f 3a f2 06 |/: | MOVE.L 0x2035c,-(A7)
00021158 59 4f |YO | SUBQ.L #0x4,A7
0002115a 48 6f 00 04 |Ho | PEA.L (A7+0x4)
0002115e 3f 02 |? | MOVE.W D2,-(A7)
00021160 3f 3c 00 10 |?< | MOVE.W #0x10,-(A7)
00021164 4e 93 |N | JSR (A3)
00021166 50 4f |PO | ADDQ.L #0x8,A7
00021168 4e 94 |N | JSR (A4)
0002116a de fc 00 14 | | ADDA.W #0x14,A7
0002116e 30 28 04 2c |0( , | MOVE.W (A0+0x42c),D0
00021172 02 40 40 00 | @@ | ANDI.W #0x4000,D0
00021176 67 22 |g" | BEQ 0x2119a
00021178 3f 3a f1 f6 |?: | MOVE.W 0x20370,-(A7)
0002117c 3f 3a f1 f0 |?: | MOVE.W 0x2036e,-(A7)
00021180 3f 3a f1 ea |?: | MOVE.W 0x2036c,-(A7)
00021184 59 4f |YO | SUBQ.L #0x4,A7
00021186 48 6f 00 04 |Ho | PEA.L (A7+0x4)
0002118a 3f 02 |? | MOVE.W D2,-(A7)
0002118c 3f 3c 00 06 |?< | MOVE.W #0x6,-(A7)
00021190 4e 93 |N | JSR (A3)
00021192 50 4f |PO | ADDQ.L #0x8,A7
00021194 4e 94 |N | JSR (A4)
00021196 de fc 00 0a | | ADDA.W #0xa,A7
0002119a 30 28 04 2c |0( , | MOVE.W (A0+0x42c),D0
0002119e 02 40 20 00 | @ | ANDI.W #0x2000,D0
000211a2 67 22 |g" | BEQ 0x211c6
000211a4 43 fa f1 e0 |C | LEA.L 0x20386,A1
000211a8 70 04 |p | MOVEQ.L #0x04,D0
000211aa 2f 21 |/! | MOVE.L -(A1),-(A7)
000211ac 51 c8 ff fc |Q | DBF D0,0x211aa
000211b0 59 4f |YO | SUBQ.L #0x4,A7
000211b2 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000211b6 3f 02 |? | MOVE.W D2,-(A7)
000211b8 3f 3c 00 14 |?< | MOVE.W #0x14,-(A7)
000211bc 4e 93 |N | JSR (A3)
000211be 50 4f |PO | ADDQ.L #0x8,A7
000211c0 4e 94 |N | JSR (A4)
000211c2 de fc 00 18 | | ADDA.W #0x18,A7
000211c6 30 28 04 2c |0( , | MOVE.W (A0+0x42c),D0
000211ca 02 40 10 00 | @ | ANDI.W #0x1000,D0
000211ce 67 1e |g | BEQ 0x211ee
000211d0 43 fa f1 c6 |C | LEA.L 0x20398,A1
000211d4 70 08 |p | MOVEQ.L #0x08,D0
000211d6 3f 21 |?! | MOVE.W -(A1),-(A7)
000211d8 51 c8 ff fc |Q | DBF D0,0x211d6
000211dc 59 4f |YO | SUBQ.L #0x4,A7
000211de 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000211e2 3f 02 |? | MOVE.W D2,-(A7)
000211e4 3f 05 |? | MOVE.W D5,-(A7)
000211e6 4e 93 |N | JSR (A3)
000211e8 50 4f |PO | ADDQ.L #0x8,A7
000211ea 4e 94 |N | JSR (A4)
000211ec de c6 | | ADDA.W D6,A7
000211ee 30 28 04 2c |0( , | MOVE.W (A0+0x42c),D0
000211f2 02 40 08 00 | @ | ANDI.W #0x0800,D0
000211f6 67 26 |g& | BEQ 0x2121e
000211f8 2f 3a f1 aa |/: | MOVE.L 0x203a4,-(A7)
000211fc 2f 3a f1 a2 |/: | MOVE.L 0x203a0,-(A7)
00021200 2f 3a f1 9a |/: | MOVE.L 0x2039c,-(A7)
00021204 2f 3a f1 92 |/: | MOVE.L 0x20398,-(A7)
00021208 59 4f |YO | SUBQ.L #0x4,A7
0002120a 48 6f 00 04 |Ho | PEA.L (A7+0x4)
0002120e 3f 02 |? | MOVE.W D2,-(A7)
00021210 3f 3c 00 10 |?< | MOVE.W #0x10,-(A7)
00021214 4e 93 |N | JSR (A3)
00021216 50 4f |PO | ADDQ.L #0x8,A7
00021218 4e 94 |N | JSR (A4)
0002121a de fc 00 14 | | ADDA.W #0x14,A7
0002121e 30 28 04 2c |0( , | MOVE.W (A0+0x42c),D0
00021222 02 40 04 00 | @ | ANDI.W #0x0400,D0
00021226 67 26 |g& | BEQ 0x2124e
00021228 9e c6 | | SUBA.W D6,A7
0002122a 22 4f |"O | MOVEA.L A7,A1
0002122c 45 fa f1 7a |E z | LEA.L 0x203a8,A2
00021230 70 14 |p | MOVEQ.L #0x14,D0
00021232 12 da | | MOVE.B (A2)+,(A1)+
00021234 51 c8 ff fc |Q | DBF D0,0x21232
00021238 59 4f |YO | SUBQ.L #0x4,A7
0002123a 48 6f 00 04 |Ho | PEA.L (A7+0x4)
0002123e 3f 02 |? | MOVE.W D2,-(A7)
00021240 3f 3c 00 15 |?< | MOVE.W #0x15,-(A7)
00021244 4e 93 |N | JSR (A3)
00021246 50 4f |PO | ADDQ.L #0x8,A7
00021248 4e 94 |N | JSR (A4)
0002124a de fc 00 1a | | ADDA.W #0x1a,A7
0002124e 30 28 04 2c |0( , | MOVE.W (A0+0x42c),D0
00021252 02 40 02 00 | @ | ANDI.W #0x0200,D0
00021256 67 20 |g | BEQ 0x21278
00021258 43 fa f1 7a |C z | LEA.L 0x203d4,A1
0002125c 70 0a |p | MOVEQ.L #0x0a,D0
0002125e 3f 21 |?! | MOVE.W -(A1),-(A7)
00021260 51 c8 ff fc |Q | DBF D0,0x2125e
00021264 59 4f |YO | SUBQ.L #0x4,A7
00021266 48 6f 00 04 |Ho | PEA.L (A7+0x4)
0002126a 3f 02 |? | MOVE.W D2,-(A7)
0002126c 3f 06 |? | MOVE.W D6,-(A7)
0002126e 4e 93 |N | JSR (A3)
00021270 50 4f |PO | ADDQ.L #0x8,A7
00021272 4e 94 |N | JSR (A4)
00021274 de fc 00 1a | | ADDA.W #0x1a,A7
00021278 30 28 04 2c |0( , | MOVE.W (A0+0x42c),D0
0002127c 02 40 01 00 | @ | ANDI.W #0x0100,D0
00021280 67 26 |g& | BEQ 0x212a8
00021282 2f 3a f1 5c |/: \ | MOVE.L 0x203e0,-(A7)
00021286 2f 3a f1 54 |/: T | MOVE.L 0x203dc,-(A7)
0002128a 2f 3a f1 4c |/: L | MOVE.L 0x203d8,-(A7)
0002128e 2f 3a f1 44 |/: D | MOVE.L 0x203d4,-(A7)
00021292 59 4f |YO | SUBQ.L #0x4,A7
00021294 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021298 3f 02 |? | MOVE.W D2,-(A7)
0002129a 3f 3c 00 10 |?< | MOVE.W #0x10,-(A7)
0002129e 4e 93 |N | JSR (A3)
000212a0 50 4f |PO | ADDQ.L #0x8,A7
000212a2 4e 94 |N | JSR (A4)
000212a4 de fc 00 14 | | ADDA.W #0x14,A7
000212a8 30 28 04 2c |0( , | MOVE.W (A0+0x42c),D0
000212ac 02 40 00 80 | @ | ANDI.W #0x0080,D0
000212b0 67 22 |g" | BEQ 0x212d4
000212b2 43 fa f1 44 |C D | LEA.L 0x203f8,A1
000212b6 70 04 |p | MOVEQ.L #0x04,D0
000212b8 2f 21 |/! | MOVE.L -(A1),-(A7)
000212ba 51 c8 ff fc |Q | DBF D0,0x212b8
000212be 59 4f |YO | SUBQ.L #0x4,A7
000212c0 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000212c4 3f 02 |? | MOVE.W D2,-(A7)
000212c6 3f 3c 00 14 |?< | MOVE.W #0x14,-(A7)
000212ca 4e 93 |N | JSR (A3)
000212cc 50 4f |PO | ADDQ.L #0x8,A7
000212ce 4e 94 |N | JSR (A4)
000212d0 de fc 00 18 | | ADDA.W #0x18,A7
000212d4 30 28 04 2c |0( , | MOVE.W (A0+0x42c),D0
000212d8 02 40 00 40 | @ @ | ANDI.W #0x0040,D0
000212dc 67 20 |g | BEQ 0x212fe
000212de 43 fa f1 26 |C & | LEA.L 0x20406,A1
000212e2 70 06 |p | MOVEQ.L #0x06,D0
000212e4 3f 21 |?! | MOVE.W -(A1),-(A7)
000212e6 51 c8 ff fc |Q | DBF D0,0x212e4
000212ea 59 4f |YO | SUBQ.L #0x4,A7
000212ec 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000212f0 3f 02 |? | MOVE.W D2,-(A7)
000212f2 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7)
000212f6 4e 93 |N | JSR (A3)
000212f8 50 4f |PO | ADDQ.L #0x8,A7
000212fa 4e 94 |N | JSR (A4)
000212fc de c5 | | ADDA.W D5,A7
000212fe 30 28 04 2c |0( , | MOVE.W (A0+0x42c),D0
00021302 02 40 00 10 | @ | ANDI.W #0x0010,D0
00021306 67 22 |g" | BEQ 0x2132a
00021308 2f 3a f1 04 |/: | MOVE.L 0x2040e,-(A7)
0002130c 2f 3a f0 fc |/: | MOVE.L 0x2040a,-(A7)
00021310 2f 3a f0 f4 |/: | MOVE.L 0x20406,-(A7)
00021314 59 4f |YO | SUBQ.L #0x4,A7
00021316 48 6f 00 04 |Ho | PEA.L (A7+0x4)
0002131a 3f 02 |? | MOVE.W D2,-(A7)
0002131c 3f 3c 00 0c |?< | MOVE.W #0xc,-(A7)
00021320 4e 93 |N | JSR (A3)
00021322 50 4f |PO | ADDQ.L #0x8,A7
00021324 4e 94 |N | JSR (A4)
00021326 de fc 00 10 | | ADDA.W #0x10,A7
0002132a 30 28 04 2c |0( , | MOVE.W (A0+0x42c),D0
0002132e 02 40 00 04 | @ | ANDI.W #0x0004,D0
00021332 67 28 |g( | BEQ 0x2135c
00021334 9e fc 00 1e | | SUBA.W #0x1e,A7
00021338 22 4f |"O | MOVEA.L A7,A1
0002133a 45 fa f0 d6 |E | LEA.L 0x20412,A2
0002133e 70 1c |p | MOVEQ.L #0x1c,D0
00021340 12 da | | MOVE.B (A2)+,(A1)+
00021342 51 c8 ff fc |Q | DBF D0,0x21340
00021346 59 4f |YO | SUBQ.L #0x4,A7
00021348 48 6f 00 04 |Ho | PEA.L (A7+0x4)
0002134c 3f 02 |? | MOVE.W D2,-(A7)
0002134e 3f 3c 00 1d |?< | MOVE.W #0x1d,-(A7)
00021352 4e 93 |N | JSR (A3)
00021354 50 4f |PO | ADDQ.L #0x8,A7
00021356 4e 94 |N | JSR (A4)
00021358 de fc 00 22 | " | ADDA.W #0x22,A7
0002135c 30 28 04 2c |0( , | MOVE.W (A0+0x42c),D0
00021360 c0 42 | B | AND.W D2,D0
00021362 67 26 |g& | BEQ 0x2138a
00021364 2f 3a f0 d6 |/: | MOVE.L 0x2043c,-(A7)
00021368 2f 3a f0 ce |/: | MOVE.L 0x20438,-(A7)
0002136c 2f 3a f0 c6 |/: | MOVE.L 0x20434,-(A7)
00021370 2f 3a f0 be |/: | MOVE.L 0x20430,-(A7)
00021374 59 4f |YO | SUBQ.L #0x4,A7
00021376 48 6f 00 04 |Ho | PEA.L (A7+0x4)
0002137a 3f 02 |? | MOVE.W D2,-(A7)
0002137c 3f 3c 00 10 |?< | MOVE.W #0x10,-(A7)
00021380 4e 93 |N | JSR (A3)
00021382 50 4f |PO | ADDQ.L #0x8,A7
00021384 4e 94 |N | JSR (A4)
00021386 de fc 00 14 | | ADDA.W #0x14,A7
0002138a 30 28 04 2e |0( . | MOVE.W (A0+0x42e),D0
0002138e 02 40 80 00 | @ | ANDI.W #0x8000,D0
00021392 67 28 |g( | BEQ 0x213bc
00021394 9e fc 00 0a | | SUBA.W #0xa,A7
00021398 22 4f |"O | MOVEA.L A7,A1
0002139a 45 fa f0 a4 |E | LEA.L 0x20440,A2
0002139e 70 08 |p | MOVEQ.L #0x08,D0
000213a0 12 da | | MOVE.B (A2)+,(A1)+
000213a2 51 c8 ff fc |Q | DBF D0,0x213a0
000213a6 59 4f |YO | SUBQ.L #0x4,A7
000213a8 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000213ac 3f 02 |? | MOVE.W D2,-(A7)
000213ae 3f 3c 00 09 |?< | MOVE.W #0x9,-(A7)
000213b2 4e 93 |N | JSR (A3)
000213b4 50 4f |PO | ADDQ.L #0x8,A7
000213b6 4e 94 |N | JSR (A4)
000213b8 de fc 00 0e | | ADDA.W #0xe,A7
000213bc 30 28 04 2e |0( . | MOVE.W (A0+0x42e),D0
000213c0 02 40 40 00 | @@ | ANDI.W #0x4000,D0
000213c4 67 28 |g( | BEQ 0x213ee
000213c6 9e fc 00 10 | | SUBA.W #0x10,A7
000213ca 22 4f |"O | MOVEA.L A7,A1
000213cc 45 fa f0 7c |E | | LEA.L 0x2044a,A2
000213d0 70 0e |p | MOVEQ.L #0x0e,D0
000213d2 12 da | | MOVE.B (A2)+,(A1)+
000213d4 51 c8 ff fc |Q | DBF D0,0x213d2
000213d8 59 4f |YO | SUBQ.L #0x4,A7
000213da 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000213de 3f 02 |? | MOVE.W D2,-(A7)
000213e0 3f 3c 00 0f |?< | MOVE.W #0xf,-(A7)
000213e4 4e 93 |N | JSR (A3)
000213e6 50 4f |PO | ADDQ.L #0x8,A7
000213e8 4e 94 |N | JSR (A4)
000213ea de fc 00 14 | | ADDA.W #0x14,A7
000213ee 30 28 04 2e |0( . | MOVE.W (A0+0x42e),D0
000213f2 02 40 10 00 | @ | ANDI.W #0x1000,D0
000213f6 67 28 |g( | BEQ 0x21420
000213f8 9e fc 00 3e | > | SUBA.W #0x3e,A7
000213fc 22 4f |"O | MOVEA.L A7,A1
000213fe 45 fa f0 5a |E Z | LEA.L 0x2045a,A2
00021402 70 3c |p< | MOVEQ.L #0x3c,D0
00021404 12 da | | MOVE.B (A2)+,(A1)+
00021406 51 c8 ff fc |Q | DBF D0,0x21404
0002140a 59 4f |YO | SUBQ.L #0x4,A7
0002140c 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021410 3f 02 |? | MOVE.W D2,-(A7)
00021412 3f 3c 00 3d |?< = | MOVE.W #0x3d,-(A7)
00021416 4e 93 |N | JSR (A3)
00021418 50 4f |PO | ADDQ.L #0x8,A7
0002141a 4e 94 |N | JSR (A4)
0002141c de fc 00 42 | B | ADDA.W #0x42,A7
00021420 30 28 04 2e |0( . | MOVE.W (A0+0x42e),D0
00021424 02 40 00 80 | @ | ANDI.W #0x0080,D0
00021428 58 4f |XO | ADDQ.L #0x4,A7
0002142a 4a 40 |J@ | TST.W D0
0002142c 67 22 |g" | BEQ 0x21450
0002142e 2f 3a f0 70 |/: p | MOVE.L 0x204a0,-(A7)
00021432 2f 3a f0 68 |/: h | MOVE.L 0x2049c,-(A7)
00021436 2f 3a f0 60 |/: ` | MOVE.L 0x20498,-(A7)
0002143a 59 4f |YO | SUBQ.L #0x4,A7
0002143c 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021440 3f 02 |? | MOVE.W D2,-(A7)
00021442 3f 3c 00 0c |?< | MOVE.W #0xc,-(A7)
00021446 4e 93 |N | JSR (A3)
00021448 50 4f |PO | ADDQ.L #0x8,A7
0002144a 4e 94 |N | JSR (A4)
0002144c de fc 00 10 | | ADDA.W #0x10,A7
00021450 5c 4f |\O | ADDQ.L #0x6,A7
00021452 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00021456 4e 5e |N^ | UNLK A6
00021458 4e 75 |Nu | RTS
0002145a ; --------------------------------------------------------------------------------------
0002145a ; OMSI PASCAL Function
0002145a ; <LVAR 0x008 2(r)>
0002145a ; --------------------------------------------------------------------------------------
0002145a 4e 56 ff da |NV | LINK.W A6,#0xffda
0002145e bf d5 | | CMPA.L (A5),A7
00021460 62 06 |b | BHI 0x21468
00021462 44 fc 00 02 |D | MOVE.W #0x2,CCR
00021466 4e 76 |Nv | TRAPV
00021468 de fc 00 20 | | ADDA.W #0x20,A7
0002146c 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7)
00021470 43 ee 00 08 |C | LEA.L (A6+0x8),A1
00021474 2f 3a f0 64 |/: d | MOVE.L 0x204da,-(A7)
00021478 59 4f |YO | SUBQ.L #0x4,A7
0002147a 48 6f 00 04 |Ho | PEA.L (A7+0x4)
0002147e 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
00021482 3f 3c 00 04 |?< | MOVE.W #0x4,-(A7)
00021486 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
0002148c 5c 4f |\O | ADDQ.L #0x6,A7
0002148e 3e 91 |> | MOVE.W (A1),(A7)
00021490 4e ba f7 a8 |N | JSR 0x20c3a
00021494 de fc 00 0a | | ADDA.W #0xa,A7
00021498 30 3c 04 44 |0< D | MOVE.W #0x444,D0
0002149c c1 d1 | | MULS.W (A1),D0
0002149e 41 f9 00 02 1e ea |A | LEA.L 0x21eea,A0
000214a4 42 b0 00 16 |B | CLR.L (A0+D0.W+#0x16)
000214a8 52 b0 00 0e |R | ADDQ.L #0x1,(A0+D0.W+#0xe)
000214ac 3f 11 |? | MOVE.W (A1),-(A7)
000214ae 4e ba f5 26 |N & | JSR 0x209d6
000214b2 54 4f |TO | ADDQ.L #0x2,A7
000214b4 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1
000214b8 4e 5e |N^ | UNLK A6
000214ba 4e 75 |Nu | RTS
000214bc ; --------------------------------------------------------------------------------------
000214bc ; OMSI PASCAL Function
000214bc ; <LVAR 0x008 2(r)>
000214bc ; --------------------------------------------------------------------------------------
000214bc 4e 56 ff de |NV | LINK.W A6,#0xffde
000214c0 bf d5 | | CMPA.L (A5),A7
000214c2 62 06 |b | BHI 0x214ca
000214c4 44 fc 00 02 |D | MOVE.W #0x2,CCR
000214c8 4e 76 |Nv | TRAPV
000214ca de fc 00 20 | | ADDA.W #0x20,A7
000214ce 48 e7 c0 80 |H | MOVEM.L A0+D1+D0,-(A7)
000214d2 2f 3a f0 0a |/: | MOVE.L 0x204de,-(A7)
000214d6 59 4f |YO | SUBQ.L #0x4,A7
000214d8 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000214dc 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
000214e0 3f 3c 00 04 |?< | MOVE.W #0x4,-(A7)
000214e4 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
000214ea 5c 4f |\O | ADDQ.L #0x6,A7
000214ec 3e ae 00 08 |> | MOVE.W (A6+0x8),(A7)
000214f0 4e ba f7 48 |N H | JSR 0x20c3a
000214f4 de fc 00 0a | | ADDA.W #0xa,A7
000214f8 30 3c 04 44 |0< D | MOVE.W #0x444,D0
000214fc c1 ee 00 08 | | MULS.W (A6+0x8),D0
00021500 41 f9 00 02 1e ea |A | LEA.L 0x21eea,A0
00021506 22 30 00 12 |"0 | MOVE.L (A0+D0.W+#0x12),D1
0002150a d2 b0 00 16 | | ADD.L (A0+D0.W+#0x16),D1
0002150e 21 81 00 12 |! | MOVE.L D1,(A0+D0.W+#0x12)
00021512 42 b0 00 16 |B | CLR.L (A0+D0.W+#0x16)
00021516 4c df 01 03 |L | MOVEM.L (A7)+,D0+D1+A0
0002151a 4e 5e |N^ | UNLK A6
0002151c 4e 75 |Nu | RTS
0002151e ; --------------------------------------------------------------------------------------
0002151e ; OMSI PASCAL Function
0002151e ; <LVAR 0x008 2(r)>
0002151e ; <LVAR -0x004 2(w)>
0002151e ; <LVAR -0x006 2(w)>
0002151e ; <LVAR -0x008 2(w)>
0002151e ; <LVAR -0x00e 2(w)>
0002151e ; <LVAR -0x012 @ 2(w)>
0002151e ; --------------------------------------------------------------------------------------
0002151e 4e 56 ff c2 |NV | LINK.W A6,#0xffc2
00021522 bf d5 | | CMPA.L (A5),A7
00021524 62 06 |b | BHI 0x2152c
00021526 44 fc 00 02 |D | MOVE.W #0x2,CCR
0002152a 4e 76 |Nv | TRAPV
0002152c de fc 00 2c | , | ADDA.W #0x2c,A7
00021530 48 e7 f0 c0 |H | MOVEM.L A1+A0+D3+D2+D1+D0,-(A7)
00021534 43 ee 00 08 |C | LEA.L (A6+0x8),A1
00021538 74 02 |t | MOVEQ.L #0x02,D2
0002153a 76 0a |v | MOVEQ.L #0x0a,D3
0002153c 30 3c 04 44 |0< D | MOVE.W #0x444,D0
00021540 c1 d1 | | MULS.W (A1),D0
00021542 41 f9 00 02 1e ea |A | LEA.L 0x21eea,A0
00021548 2f 08 |/ | MOVE.L A0,-(A7)
0002154a 3f 11 |? | MOVE.W (A1),-(A7)
0002154c 41 f0 00 0c |A | LEA.L (A0+D0.W+#0xc),A0
00021550 48 68 04 26 |Hh & | PEA.L (A0+0x426)
00021554 4e ba f4 2c |N , | JSR 0x20982
00021558 5c 4f |\O | ADDQ.L #0x6,A7
0002155a 20 57 | W | MOVEA.L (A7),A0
0002155c 52 b0 00 16 |R | ADDQ.L #0x1,(A0+D0.W+#0x16)
00021560 22 30 00 16 |"0 | MOVE.L (A0+D0.W+#0x16),D1
00021564 b2 83 | | CMP.L D3,D1
00021566 66 0c |f | BNE 0x21574
00021568 3f 11 |? | MOVE.W (A1),-(A7)
0002156a 4e ba fe ee |N | JSR 0x2145a
0002156e 54 4f |TO | ADDQ.L #0x2,A7
00021570 60 00 00 c0 |` | BRA 0x21632
00021574 3d 7c 01 00 ff ee |=| | MOVE.W #0x100,(A6-0x12)
0002157a 3d 42 ff f2 |=B | MOVE.W D2,(A6-0xe)
0002157e 55 4f |UO | SUBQ.L #0x2,A7
00021580 4e b9 00 01 06 0a |N | JSR Is_machine_type_four() : Bool
00021586 4a 1f |J | TST.B (A7)+
00021588 67 30 |g0 | BEQ 0x215ba
0002158a 12 30 00 0d | 0 | MOVE.B (A0+D0.W+#0xd),D1
0002158e 48 81 |H | EXTB.W D1
00021590 b2 42 | B | CMP.W D2,D1
00021592 63 02 |c | BLS 0x21596
00021594 4e 4e |NN | TRAP #14
00021596 d2 41 | A | ADD.W D1,D1
00021598 32 3b 10 06 4e fb 10 02 |2; N | SWITCH D1.W
000215a0 00 06 | | .CONST 0x6 ; [0x0] -> 0x215a6
000215a2 00 0e | | .CONST 0xe ; [0x1] -> 0x215ae
000215a4 00 0e | | .CONST 0xe ; [0x2] -> 0x215ae
000215a6 switch@0x21598[0x0]:
000215a6 32 11 |2 | MOVE.W (A1),D1
000215a8 e1 41 | A | ASL.W #0x8,D1
000215aa 56 41 |VA | ADDQ.W #0x3,D1
000215ac 60 06 |` | BRA 0x215b4
000215ae switch@0x21598[0x1]:
000215ae switch@0x21598[0x2]:
000215ae 32 11 |2 | MOVE.W (A1),D1
000215b0 e1 41 | A | ASL.W #0x8,D1
000215b2 54 41 |TA | ADDQ.W #0x2,D1
000215b4 3d 41 ff f8 |=A | MOVE.W D1,(A6-0x8)
000215b8 60 3a |`: | BRA 0x215f4
000215ba 12 30 00 0d | 0 | MOVE.B (A0+D0.W+#0xd),D1
000215be 48 81 |H | EXTB.W D1
000215c0 b2 42 | B | CMP.W D2,D1
000215c2 63 02 |c | BLS 0x215c6
000215c4 4e 4e |NN | TRAP #14
000215c6 d2 41 | A | ADD.W D1,D1
000215c8 32 3b 10 06 4e fb 10 02 |2; N | SWITCH D1.W
000215d0 00 06 | | .CONST 0x6 ; [0x0] -> 0x215d6
000215d2 00 10 | | .CONST 0x10 ; [0x1] -> 0x215e0
000215d4 00 1a | | .CONST 0x1a ; [0x2] -> 0x215ea
000215d6 switch@0x215c8[0x0]:
000215d6 32 11 |2 | MOVE.W (A1),D1
000215d8 e1 41 | A | ASL.W #0x8,D1
000215da 06 41 00 0b | A | ADDI.W #0x000b,D1
000215de 60 10 |` | BRA 0x215f0
000215e0 switch@0x215c8[0x1]:
000215e0 32 11 |2 | MOVE.W (A1),D1
000215e2 e1 41 | A | ASL.W #0x8,D1
000215e4 06 41 00 0c | A | ADDI.W #0x000c,D1
000215e8 60 06 |` | BRA 0x215f0
000215ea switch@0x215c8[0x2]:
000215ea 32 11 |2 | MOVE.W (A1),D1
000215ec e1 41 | A | ASL.W #0x8,D1
000215ee 54 41 |TA | ADDQ.W #0x2,D1
000215f0 3d 41 ff f8 |=A | MOVE.W D1,(A6-0x8)
000215f4 22 30 00 22 |"0 " | MOVE.L (A0+D0.W+#0x22),D1
000215f8 0c 81 00 00 ff ff | | CMPI.L #0x0000ffff,D1
000215fe 63 02 |c | BLS 0x21602
00021600 4e 4f |NO | TRAP #15
00021602 3d 41 ff fa |=A | MOVE.W D1,(A6-0x6)
00021606 22 30 00 1e |"0 | MOVE.L (A0+D0.W+#0x1e),D1
0002160a e1 81 | | ASL.L #0x8,D1
0002160c d2 b0 00 1a | | ADD.L (A0+D0.W+#0x1a),D1
00021610 0c 81 00 00 ff ff | | CMPI.L #0x0000ffff,D1
00021616 63 02 |c | BLS 0x2161a
00021618 4e 4f |NO | TRAP #15
0002161a 3d 41 ff fc |=A | MOVE.W D1,(A6-0x4)
0002161e 48 6e ff ee |Hn | PEA.L (A6-0x12)
00021622 41 f0 00 32 |A 2 | LEA.L (A0+D0.W+#0x32),A0
00021626 2f 08 |/ | MOVE.L A0,-(A7)
00021628 3f 11 |? | MOVE.W (A1),-(A7)
0002162a 4e b9 00 01 02 04 |N | JSR KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
00021630 de c3 | | ADDA.W D3,A7
00021632 58 4f |XO | ADDQ.L #0x4,A7
00021634 4c df 03 0f |L | MOVEM.L (A7)+,D0+D1+D2+D3+A0+A1
00021638 4e 5e |N^ | UNLK A6
0002163a 4e 75 |Nu | RTS
0002163c ; --------------------------------------------------------------------------------------
0002163c ; OMSI PASCAL Function
0002163c ; <LVAR 0x00a 2(r)>
0002163c ; <LVAR 0x008 1(r)>
0002163c ; --------------------------------------------------------------------------------------
0002163c 4e 56 ff be |NV | LINK.W A6,#0xffbe
00021640 bf d5 | | CMPA.L (A5),A7
00021642 62 06 |b | BHI 0x2164a
00021644 44 fc 00 02 |D | MOVE.W #0x2,CCR
00021648 4e 76 |Nv | TRAPV
0002164a de fc 00 42 | B | ADDA.W #0x42,A7
0002164e 48 e7 c0 f0 |H | MOVEM.L A3+A2+A1+A0+D1+D0,-(A7)
00021652 47 ee 00 0a |G | LEA.L (A6+0xa),A3
00021656 72 10 |r | MOVEQ.L #0x10,D1
00021658 4a 2e 00 08 |J. | TST.B (A6+0x8)
0002165c 66 08 |f | BNE 0x21666
0002165e 3f 13 |? | MOVE.W (A3),-(A7)
00021660 4e ba fe bc |N | JSR 0x2151e
00021664 60 5a |`Z | BRA 0x216c0
00021666 30 3c 04 44 |0< D | MOVE.W #0x444,D0
0002166a c1 d3 | | MULS.W (A3),D0
0002166c 41 f9 00 02 1e ea |A | LEA.L 0x21eea,A0
00021672 41 f0 00 0c |A | LEA.L (A0+D0.W+#0xc),A0
00021676 9e c1 | | SUBA.W D1,A7
00021678 22 4f |"O | MOVEA.L A7,A1
0002167a 45 e8 04 3c |E < | LEA.L (A0+0x43c),A2
0002167e 70 07 |p | MOVEQ.L #0x07,D0
00021680 12 da | | MOVE.B (A2)+,(A1)+
00021682 51 c8 ff fc |Q | DBF D0,0x21680
00021686 51 4f |QO | SUBQ.L #0x8,A7
00021688 48 78 04 00 |Hx | PEA.L 0x400
0002168c 4e b9 00 01 03 54 |N T | JSR Long2Quad(a : Long) : Quad
00021692 58 4f |XO | ADDQ.L #0x4,A7
00021694 4e b9 00 01 03 14 |N | JSR Add(a, b : Quad) : Quad
0002169a de c1 | | ADDA.W D1,A7
0002169c 43 e8 04 3c |C < | LEA.L (A0+0x43c),A1
000216a0 24 4f |$O | MOVEA.L A7,A2
000216a2 70 07 |p | MOVEQ.L #0x07,D0
000216a4 12 da | | MOVE.B (A2)+,(A1)+
000216a6 51 c8 ff fc |Q | DBF D0,0x216a4
000216aa 50 4f |PO | ADDQ.L #0x8,A7
000216ac 4a a8 00 0a |J | TST.L (A0+0xa)
000216b0 67 08 |g | BEQ 0x216ba
000216b2 3f 13 |? | MOVE.W (A3),-(A7)
000216b4 4e ba fe 06 |N | JSR 0x214bc
000216b8 54 4f |TO | ADDQ.L #0x2,A7
000216ba 3f 13 |? | MOVE.W (A3),-(A7)
000216bc 4e ba f4 0e |N | JSR 0x20acc
000216c0 54 4f |TO | ADDQ.L #0x2,A7
000216c2 4c df 0f 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2+A3
000216c6 4e 5e |N^ | UNLK A6
000216c8 4e 75 |Nu | RTS
000216ca ; --------------------------------------------------------------------------------------
000216ca ; OMSI PASCAL Function
000216ca ; <LVAR 0x00a 2(r)>
000216ca ; <LVAR 0x008 1(r)>
000216ca ; <LVAR -0x010 2(r)>
000216ca ; <LVAR -0x018 @>
000216ca ; --------------------------------------------------------------------------------------
000216ca 4e 56 ff a6 |NV | LINK.W A6,#0xffa6
000216ce bf d5 | | CMPA.L (A5),A7
000216d0 62 06 |b | BHI 0x216d8
000216d2 44 fc 00 02 |D | MOVE.W #0x2,CCR
000216d6 4e 76 |Nv | TRAPV
000216d8 de fc 00 42 | B | ADDA.W #0x42,A7
000216dc 48 e7 c0 f0 |H | MOVEM.L A3+A2+A1+A0+D1+D0,-(A7)
000216e0 47 ee 00 0a |G | LEA.L (A6+0xa),A3
000216e4 72 10 |r | MOVEQ.L #0x10,D1
000216e6 4a 2e 00 08 |J. | TST.B (A6+0x8)
000216ea 66 28 |f( | BNE 0x21714
000216ec 3f 13 |? | MOVE.W (A3),-(A7)
000216ee 48 6e ff e8 |Hn | PEA.L (A6-0x18)
000216f2 4e ba f2 8e |N | JSR 0x20982
000216f6 5c 4f |\O | ADDQ.L #0x6,A7
000216f8 30 2e ff f0 |0. | MOVE.W (A6-0x10),D0
000216fc 02 40 80 00 | @ | ANDI.W #0x8000,D0
00021700 67 08 |g | BEQ 0x2170a
00021702 3f 13 |? | MOVE.W (A3),-(A7)
00021704 4e ba f2 d0 |N | JSR 0x209d6
00021708 60 06 |` | BRA 0x21710
0002170a 3f 13 |? | MOVE.W (A3),-(A7)
0002170c 4e ba fe 10 |N | JSR 0x2151e
00021710 54 4f |TO | ADDQ.L #0x2,A7
00021712 60 5c |`\ | BRA 0x21770
00021714 30 3c 04 44 |0< D | MOVE.W #0x444,D0
00021718 c1 d3 | | MULS.W (A3),D0
0002171a 41 f9 00 02 1e ea |A | LEA.L 0x21eea,A0
00021720 41 f0 00 0c |A | LEA.L (A0+D0.W+#0xc),A0
00021724 9e c1 | | SUBA.W D1,A7
00021726 22 4f |"O | MOVEA.L A7,A1
00021728 45 e8 04 3c |E < | LEA.L (A0+0x43c),A2
0002172c 70 07 |p | MOVEQ.L #0x07,D0
0002172e 12 da | | MOVE.B (A2)+,(A1)+
00021730 51 c8 ff fc |Q | DBF D0,0x2172e
00021734 51 4f |QO | SUBQ.L #0x8,A7
00021736 48 78 04 00 |Hx | PEA.L 0x400
0002173a 4e b9 00 01 03 54 |N T | JSR Long2Quad(a : Long) : Quad
00021740 58 4f |XO | ADDQ.L #0x4,A7
00021742 4e b9 00 01 03 14 |N | JSR Add(a, b : Quad) : Quad
00021748 de c1 | | ADDA.W D1,A7
0002174a 43 e8 04 3c |C < | LEA.L (A0+0x43c),A1
0002174e 24 4f |$O | MOVEA.L A7,A2
00021750 70 07 |p | MOVEQ.L #0x07,D0
00021752 12 da | | MOVE.B (A2)+,(A1)+
00021754 51 c8 ff fc |Q | DBF D0,0x21752
00021758 50 4f |PO | ADDQ.L #0x8,A7
0002175a 4a a8 00 0a |J | TST.L (A0+0xa)
0002175e 67 08 |g | BEQ 0x21768
00021760 3f 13 |? | MOVE.W (A3),-(A7)
00021762 4e ba fd 58 |N X | JSR 0x214bc
00021766 54 4f |TO | ADDQ.L #0x2,A7
00021768 3f 13 |? | MOVE.W (A3),-(A7)
0002176a 4e ba f4 2e |N . | JSR 0x20b9a
0002176e 54 4f |TO | ADDQ.L #0x2,A7
00021770 4c df 0f 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2+A3
00021774 4e 5e |N^ | UNLK A6
00021776 4e 75 |Nu | RTS
00021778 ; --------------------------------------------------------------------------------------
00021778 ; OMSI PASCAL Function
00021778 ; <LVAR 0x00a 2(r)>
00021778 ; <LVAR 0x008 1(r)>
00021778 ; <LVAR -0x010 2(r)>
00021778 ; <LVAR -0x018 @>
00021778 ; --------------------------------------------------------------------------------------
00021778 4e 56 ff a6 |NV | LINK.W A6,#0xffa6
0002177c bf d5 | | CMPA.L (A5),A7
0002177e 62 06 |b | BHI 0x21786
00021780 44 fc 00 02 |D | MOVE.W #0x2,CCR
00021784 4e 76 |Nv | TRAPV
00021786 de fc 00 42 | B | ADDA.W #0x42,A7
0002178a 48 e7 c0 f0 |H | MOVEM.L A3+A2+A1+A0+D1+D0,-(A7)
0002178e 47 ee 00 0a |G | LEA.L (A6+0xa),A3
00021792 72 10 |r | MOVEQ.L #0x10,D1
00021794 4a 2e 00 08 |J. | TST.B (A6+0x8)
00021798 66 28 |f( | BNE 0x217c2
0002179a 3f 13 |? | MOVE.W (A3),-(A7)
0002179c 48 6e ff e8 |Hn | PEA.L (A6-0x18)
000217a0 4e ba f1 e0 |N | JSR 0x20982
000217a4 5c 4f |\O | ADDQ.L #0x6,A7
000217a6 30 2e ff f0 |0. | MOVE.W (A6-0x10),D0
000217aa 02 40 80 00 | @ | ANDI.W #0x8000,D0
000217ae 67 08 |g | BEQ 0x217b8
000217b0 3f 13 |? | MOVE.W (A3),-(A7)
000217b2 4e ba f3 18 |N | JSR 0x20acc
000217b6 60 06 |` | BRA 0x217be
000217b8 3f 13 |? | MOVE.W (A3),-(A7)
000217ba 4e ba fd 62 |N b | JSR 0x2151e
000217be 54 4f |TO | ADDQ.L #0x2,A7
000217c0 60 5c |`\ | BRA 0x2181e
000217c2 30 3c 04 44 |0< D | MOVE.W #0x444,D0
000217c6 c1 d3 | | MULS.W (A3),D0
000217c8 41 f9 00 02 1e ea |A | LEA.L 0x21eea,A0
000217ce 41 f0 00 0c |A | LEA.L (A0+D0.W+#0xc),A0
000217d2 9e c1 | | SUBA.W D1,A7
000217d4 22 4f |"O | MOVEA.L A7,A1
000217d6 45 e8 04 3c |E < | LEA.L (A0+0x43c),A2
000217da 70 07 |p | MOVEQ.L #0x07,D0
000217dc 12 da | | MOVE.B (A2)+,(A1)+
000217de 51 c8 ff fc |Q | DBF D0,0x217dc
000217e2 51 4f |QO | SUBQ.L #0x8,A7
000217e4 48 78 04 00 |Hx | PEA.L 0x400
000217e8 4e b9 00 01 03 54 |N T | JSR Long2Quad(a : Long) : Quad
000217ee 58 4f |XO | ADDQ.L #0x4,A7
000217f0 4e b9 00 01 03 14 |N | JSR Add(a, b : Quad) : Quad
000217f6 de c1 | | ADDA.W D1,A7
000217f8 43 e8 04 3c |C < | LEA.L (A0+0x43c),A1
000217fc 24 4f |$O | MOVEA.L A7,A2
000217fe 70 07 |p | MOVEQ.L #0x07,D0
00021800 12 da | | MOVE.B (A2)+,(A1)+
00021802 51 c8 ff fc |Q | DBF D0,0x21800
00021806 50 4f |PO | ADDQ.L #0x8,A7
00021808 4a a8 00 0a |J | TST.L (A0+0xa)
0002180c 67 08 |g | BEQ 0x21816
0002180e 3f 13 |? | MOVE.W (A3),-(A7)
00021810 4e ba fc aa |N | JSR 0x214bc
00021814 54 4f |TO | ADDQ.L #0x2,A7
00021816 3f 13 |? | MOVE.W (A3),-(A7)
00021818 4e ba f1 bc |N | JSR 0x209d6
0002181c 54 4f |TO | ADDQ.L #0x2,A7
0002181e 4c df 0f 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2+A3
00021822 4e 5e |N^ | UNLK A6
00021824 4e 75 |Nu | RTS
00021826 ; --------------------------------------------------------------------------------------
00021826 ; OMSI PASCAL Function
00021826 ; <LVAR -0x004 @ 4(r)>
00021826 ; --------------------------------------------------------------------------------------
00021826 4e 56 ff 88 |NV | LINK.W A6,#0xff88
0002182a bf d5 | | CMPA.L (A5),A7
0002182c 62 06 |b | BHI 0x21834
0002182e 44 fc 00 02 |D | MOVE.W #0x2,CCR
00021832 4e 76 |Nv | TRAPV
00021834 de fc 00 6c | l | ADDA.W #0x6c,A7
00021838 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
0002183c 47 f9 00 01 02 d0 |G | LEA.L StringCat2(a, b : String) : String,A3
00021842 72 01 |r | MOVEQ.L #0x01,D1
00021844 74 0a |t | MOVEQ.L #0x0a,D2
00021846 7a 05 |z | MOVEQ.L #0x05,D5
00021848 7c 20 || | MOVEQ.L #0x20,D6
0002184a 48 6e ff fc |Hn | PEA.L (A6-0x4)
0002184e 4e b9 00 01 03 04 |N | JSR GetRtc() : TimeStamp
00021854 58 4f |XO | ADDQ.L #0x4,A7
00021856 41 fa ec 94 |A | LEA.L 0x204ec,A0
0002185a 70 04 |p | MOVEQ.L #0x04,D0
0002185c 3f 20 |? | MOVE.W -(A0),-(A7)
0002185e 51 c8 ff fc |Q | DBF D0,0x2185c
00021862 41 fa ec 9a |A | LEA.L 0x204fe,A0
00021866 70 08 |p | MOVEQ.L #0x08,D0
00021868 3f 20 |? | MOVE.W -(A0),-(A7)
0002186a 51 c8 ff fc |Q | DBF D0,0x21868
0002186e 51 4f |QO | SUBQ.L #0x8,A7
00021870 48 6f 00 1a |Ho | PEA.L (A7+0x1a)
00021874 3f 01 |? | MOVE.W D1,-(A7)
00021876 3f 02 |? | MOVE.W D2,-(A7)
00021878 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
0002187e 2e ae ff fc |. | MOVE.L (A6-0x4),(A7)
00021882 4e b9 00 01 03 08 |N | JSR TimeToText()
00021888 48 6f 00 10 |Ho | PEA.L (A7+0x10)
0002188c 3f 01 |? | MOVE.W D1,-(A7)
0002188e 3f 3c 00 12 |?< | MOVE.W #0x12,-(A7)
00021892 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00021898 2e b9 00 02 1e f2 |. | MOVE.L 0x21ef2,(A7)
0002189e 4e b9 00 01 03 08 |N | JSR TimeToText()
000218a4 58 4f |XO | ADDQ.L #0x4,A7
000218a6 4e b9 00 01 02 d8 |N | JSR StringCat4(a, b, c, d : String) : String
000218ac de fc 00 10 | | ADDA.W #0x10,A7
000218b0 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
000218b6 de c6 | | ADDA.W D6,A7
000218b8 7e 00 |~ | MOVEQ.L #0x00,D7
000218ba 0c 87 00 00 00 0f | | CMPI.L #0x0000000f,D7
000218c0 63 02 |c | BLS 0x218c4
000218c2 4e 4f |NO | TRAP #15
000218c4 28 07 |( | MOVE.L D7,D4
000218c6 26 3c 00 00 04 44 |&< D | MOVE.L #0x444,D3
000218cc 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4
000218d2 41 f9 00 02 1e ea |A | LEA.L 0x21eea,A0
000218d8 2f 08 |/ | MOVE.L A0,-(A7)
000218da 4a 30 48 0c |J0H | TST.B (A0+D4.L+#0xc)
000218de 67 00 02 40 |g @ | BEQ 0x21b20
000218e2 3f 3a ec 1a |?: | MOVE.W 0x204fe,-(A7)
000218e6 51 4f |QO | SUBQ.L #0x8,A7
000218e8 48 6f 00 08 |Ho | PEA.L (A7+0x8)
000218ec 3f 01 |? | MOVE.W D1,-(A7)
000218ee 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7)
000218f2 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
000218f8 2e 87 |. | MOVE.L D7,(A7)
000218fa 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String
00021900 58 4f |XO | ADDQ.L #0x4,A7
00021902 4e 93 |N | JSR (A3)
00021904 50 4f |PO | ADDQ.L #0x8,A7
00021906 28 5f |(_ | MOVEA.L (A7)+,A4
00021908 54 4f |TO | ADDQ.L #0x2,A7
0002190a be 82 | | CMP.L D2,D7
0002190c 6c 0c |l | BGE 0x2191a
0002190e 2f 0c |/ | MOVE.L A4,-(A7)
00021910 1f 06 | | MOVE.B D6,-(A7)
00021912 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char)
00021918 5c 4f |\O | ADDQ.L #0x6,A7
0002191a 9e c2 | | SUBA.W D2,A7
0002191c 22 4f |"O | MOVEA.L A7,A1
0002191e 45 fa eb e0 |E | LEA.L 0x20500,A2
00021922 70 08 |p | MOVEQ.L #0x08,D0
00021924 12 da | | MOVE.B (A2)+,(A1)+
00021926 51 c8 ff fc |Q | DBF D0,0x21924
0002192a 59 4f |YO | SUBQ.L #0x4,A7
0002192c 2f 0c |/ | MOVE.L A4,-(A7)
0002192e 59 4f |YO | SUBQ.L #0x4,A7
00021930 48 6f 00 0c |Ho | PEA.L (A7+0xc)
00021934 3f 01 |? | MOVE.W D1,-(A7)
00021936 3f 3c 00 09 |?< | MOVE.W #0x9,-(A7)
0002193a 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00021940 50 4f |PO | ADDQ.L #0x8,A7
00021942 4e 93 |N | JSR (A3)
00021944 50 4f |PO | ADDQ.L #0x8,A7
00021946 28 5f |(_ | MOVEA.L (A7)+,A4
00021948 54 4f |TO | ADDQ.L #0x2,A7
0002194a 2e 8c |. | MOVE.L A4,(A7)
0002194c 51 4f |QO | SUBQ.L #0x8,A7
0002194e 41 f0 48 0c |A H | LEA.L (A0+D4.L+#0xc),A0
00021952 51 4f |QO | SUBQ.L #0x8,A7
00021954 22 4f |"O | MOVEA.L A7,A1
00021956 41 e8 04 3c |A < | LEA.L (A0+0x43c),A0
0002195a 70 07 |p | MOVEQ.L #0x07,D0
0002195c 12 d8 | | MOVE.B (A0)+,(A1)+
0002195e 51 c8 ff fc |Q | DBF D0,0x2195c
00021962 48 78 00 0a |Hx | PEA.L 0xa
00021966 4e b9 00 01 03 5c |N \ | JSR Quad2String(a : Quad; radix : Long ) : String
0002196c de fc 00 0c | | ADDA.W #0xc,A7
00021970 48 78 00 0a |Hx | PEA.L 0xa
00021974 4e b9 00 01 02 f8 |N | JSR LeftPad(a : String; b : Long) : String
0002197a 50 4f |PO | ADDQ.L #0x8,A7
0002197c 4e 93 |N | JSR (A3)
0002197e 50 4f |PO | ADDQ.L #0x8,A7
00021980 28 5f |(_ | MOVEA.L (A7)+,A4
00021982 2f 3a eb 8a |/: | MOVE.L 0x2050e,-(A7)
00021986 2f 3a eb 82 |/: | MOVE.L 0x2050a,-(A7)
0002198a 59 4f |YO | SUBQ.L #0x4,A7
0002198c 2f 0c |/ | MOVE.L A4,-(A7)
0002198e 59 4f |YO | SUBQ.L #0x4,A7
00021990 48 6f 00 0c |Ho | PEA.L (A7+0xc)
00021994 3f 01 |? | MOVE.W D1,-(A7)
00021996 3f 3c 00 08 |?< | MOVE.W #0x8,-(A7)
0002199a 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
000219a0 50 4f |PO | ADDQ.L #0x8,A7
000219a2 4e 93 |N | JSR (A3)
000219a4 50 4f |PO | ADDQ.L #0x8,A7
000219a6 28 5f |(_ | MOVEA.L (A7)+,A4
000219a8 2e 8c |. | MOVE.L A4,(A7)
000219aa 51 4f |QO | SUBQ.L #0x8,A7
000219ac 20 6f 00 10 | o | MOVEA.L (A7+0x10),A0
000219b0 2f 30 48 12 |/0H | MOVE.L (A0+D4.L+#0x12),-(A7)
000219b4 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String
000219ba 58 4f |XO | ADDQ.L #0x4,A7
000219bc 48 78 00 05 |Hx | PEA.L 0x5
000219c0 4e b9 00 01 02 f8 |N | JSR LeftPad(a : String; b : Long) : String
000219c6 50 4f |PO | ADDQ.L #0x8,A7
000219c8 4e 93 |N | JSR (A3)
000219ca 50 4f |PO | ADDQ.L #0x8,A7
000219cc 28 5f |(_ | MOVEA.L (A7)+,A4
000219ce 2f 3a eb 46 |/: F | MOVE.L 0x20516,-(A7)
000219d2 2f 3a eb 3e |/: > | MOVE.L 0x20512,-(A7)
000219d6 59 4f |YO | SUBQ.L #0x4,A7
000219d8 2f 0c |/ | MOVE.L A4,-(A7)
000219da 59 4f |YO | SUBQ.L #0x4,A7
000219dc 48 6f 00 0c |Ho | PEA.L (A7+0xc)
000219e0 3f 01 |? | MOVE.W D1,-(A7)
000219e2 3f 3c 00 08 |?< | MOVE.W #0x8,-(A7)
000219e6 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
000219ec 50 4f |PO | ADDQ.L #0x8,A7
000219ee 4e 93 |N | JSR (A3)
000219f0 50 4f |PO | ADDQ.L #0x8,A7
000219f2 28 5f |(_ | MOVEA.L (A7)+,A4
000219f4 2e 8c |. | MOVE.L A4,(A7)
000219f6 51 4f |QO | SUBQ.L #0x8,A7
000219f8 20 6f 00 10 | o | MOVEA.L (A7+0x10),A0
000219fc 2f 30 48 0e |/0H | MOVE.L (A0+D4.L+#0xe),-(A7)
00021a00 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String
00021a06 58 4f |XO | ADDQ.L #0x4,A7
00021a08 48 78 00 05 |Hx | PEA.L 0x5
00021a0c 4e b9 00 01 02 f8 |N | JSR LeftPad(a : String; b : Long) : String
00021a12 50 4f |PO | ADDQ.L #0x8,A7
00021a14 4e 93 |N | JSR (A3)
00021a16 50 4f |PO | ADDQ.L #0x8,A7
00021a18 28 5f |(_ | MOVEA.L (A7)+,A4
00021a1a 5d 4f |]O | SUBQ.L #0x6,A7
00021a1c 20 4f | O | MOVEA.L A7,A0
00021a1e 43 fa ea fa |C | LEA.L 0x2051a,A1
00021a22 70 04 |p | MOVEQ.L #0x04,D0
00021a24 10 d9 | | MOVE.B (A1)+,(A0)+
00021a26 51 c8 ff fc |Q | DBF D0,0x21a24
00021a2a 59 4f |YO | SUBQ.L #0x4,A7
00021a2c 2f 0c |/ | MOVE.L A4,-(A7)
00021a2e 59 4f |YO | SUBQ.L #0x4,A7
00021a30 48 6f 00 0c |Ho | PEA.L (A7+0xc)
00021a34 3f 01 |? | MOVE.W D1,-(A7)
00021a36 3f 05 |? | MOVE.W D5,-(A7)
00021a38 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00021a3e 50 4f |PO | ADDQ.L #0x8,A7
00021a40 4e 93 |N | JSR (A3)
00021a42 50 4f |PO | ADDQ.L #0x8,A7
00021a44 28 5f |(_ | MOVEA.L (A7)+,A4
00021a46 54 4f |TO | ADDQ.L #0x2,A7
00021a48 2f 0c |/ | MOVE.L A4,-(A7)
00021a4a 51 4f |QO | SUBQ.L #0x8,A7
00021a4c 20 6f 00 10 | o | MOVEA.L (A7+0x10),A0
00021a50 2f 30 48 22 |/0H" | MOVE.L (A0+D4.L+#0x22),-(A7)
00021a54 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String
00021a5a 58 4f |XO | ADDQ.L #0x4,A7
00021a5c 48 78 00 04 |Hx | PEA.L 0x4
00021a60 4e b9 00 01 02 f8 |N | JSR LeftPad(a : String; b : Long) : String
00021a66 50 4f |PO | ADDQ.L #0x8,A7
00021a68 4e 93 |N | JSR (A3)
00021a6a 50 4f |PO | ADDQ.L #0x8,A7
00021a6c 28 5f |(_ | MOVEA.L (A7)+,A4
00021a6e 5d 4f |]O | SUBQ.L #0x6,A7
00021a70 20 4f | O | MOVEA.L A7,A0
00021a72 43 fa ea ac |C | LEA.L 0x20520,A1
00021a76 70 04 |p | MOVEQ.L #0x04,D0
00021a78 10 d9 | | MOVE.B (A1)+,(A0)+
00021a7a 51 c8 ff fc |Q | DBF D0,0x21a78
00021a7e 59 4f |YO | SUBQ.L #0x4,A7
00021a80 2f 0c |/ | MOVE.L A4,-(A7)
00021a82 59 4f |YO | SUBQ.L #0x4,A7
00021a84 48 6f 00 0c |Ho | PEA.L (A7+0xc)
00021a88 3f 01 |? | MOVE.W D1,-(A7)
00021a8a 3f 05 |? | MOVE.W D5,-(A7)
00021a8c 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00021a92 50 4f |PO | ADDQ.L #0x8,A7
00021a94 4e 93 |N | JSR (A3)
00021a96 50 4f |PO | ADDQ.L #0x8,A7
00021a98 28 5f |(_ | MOVEA.L (A7)+,A4
00021a9a 54 4f |TO | ADDQ.L #0x2,A7
00021a9c 2f 0c |/ | MOVE.L A4,-(A7)
00021a9e 51 4f |QO | SUBQ.L #0x8,A7
00021aa0 20 6f 00 10 | o | MOVEA.L (A7+0x10),A0
00021aa4 2f 30 48 1e |/0H | MOVE.L (A0+D4.L+#0x1e),-(A7)
00021aa8 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String
00021aae 58 4f |XO | ADDQ.L #0x4,A7
00021ab0 48 78 00 03 |Hx | PEA.L 0x3
00021ab4 4e b9 00 01 02 f8 |N | JSR LeftPad(a : String; b : Long) : String
00021aba 50 4f |PO | ADDQ.L #0x8,A7
00021abc 4e 93 |N | JSR (A3)
00021abe 50 4f |PO | ADDQ.L #0x8,A7
00021ac0 28 5f |(_ | MOVEA.L (A7)+,A4
00021ac2 5d 4f |]O | SUBQ.L #0x6,A7
00021ac4 20 4f | O | MOVEA.L A7,A0
00021ac6 43 fa ea 5e |C ^ | LEA.L 0x20526,A1
00021aca 70 04 |p | MOVEQ.L #0x04,D0
00021acc 10 d9 | | MOVE.B (A1)+,(A0)+
00021ace 51 c8 ff fc |Q | DBF D0,0x21acc
00021ad2 59 4f |YO | SUBQ.L #0x4,A7
00021ad4 2f 0c |/ | MOVE.L A4,-(A7)
00021ad6 59 4f |YO | SUBQ.L #0x4,A7
00021ad8 48 6f 00 0c |Ho | PEA.L (A7+0xc)
00021adc 3f 01 |? | MOVE.W D1,-(A7)
00021ade 3f 05 |? | MOVE.W D5,-(A7)
00021ae0 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00021ae6 50 4f |PO | ADDQ.L #0x8,A7
00021ae8 4e 93 |N | JSR (A3)
00021aea 50 4f |PO | ADDQ.L #0x8,A7
00021aec 28 5f |(_ | MOVEA.L (A7)+,A4
00021aee 54 4f |TO | ADDQ.L #0x2,A7
00021af0 2f 0c |/ | MOVE.L A4,-(A7)
00021af2 51 4f |QO | SUBQ.L #0x8,A7
00021af4 20 6f 00 10 | o | MOVEA.L (A7+0x10),A0
00021af8 2f 30 48 1a |/0H | MOVE.L (A0+D4.L+#0x1a),-(A7)
00021afc 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String
00021b02 58 4f |XO | ADDQ.L #0x4,A7
00021b04 48 78 00 03 |Hx | PEA.L 0x3
00021b08 4e b9 00 01 02 f8 |N | JSR LeftPad(a : String; b : Long) : String
00021b0e 50 4f |PO | ADDQ.L #0x8,A7
00021b10 4e 93 |N | JSR (A3)
00021b12 50 4f |PO | ADDQ.L #0x8,A7
00021b14 28 5f |(_ | MOVEA.L (A7)+,A4
00021b16 2f 0c |/ | MOVE.L A4,-(A7)
00021b18 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00021b1e 58 4f |XO | ADDQ.L #0x4,A7
00021b20 58 4f |XO | ADDQ.L #0x4,A7
00021b22 52 87 |R | ADDQ.L #0x1,D7
00021b24 0c 87 00 00 00 0f | | CMPI.L #0x0000000f,D7
00021b2a 6f 00 fd 8e |o | BLE 0x218ba
00021b2e 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00021b32 4e 5e |N^ | UNLK A6
00021b34 4e 75 |Nu | RTS
00021b36 ; --------------------------------------------------------------------------------------
00021b36 ; OMSI PASCAL Function
00021b36 ; <LVAR 0x008 1(rw)>
00021b36 ; <LVAR -0x002 @ 1(r)>
00021b36 ; <LVAR -0x004 @ 2(rw)>
00021b36 ; --------------------------------------------------------------------------------------
00021b36 4e 56 ff e6 |NV | LINK.W A6,#0xffe6
00021b3a bf d5 | | CMPA.L (A5),A7
00021b3c 62 06 |b | BHI 0x21b44
00021b3e 44 fc 00 02 |D | MOVE.W #0x2,CCR
00021b42 4e 76 |Nv | TRAPV
00021b44 de fc 00 16 | | ADDA.W #0x16,A7
00021b48 48 e7 c0 80 |H | MOVEM.L A0+D1+D0,-(A7)
00021b4c 41 ee ff fc |A | LEA.L (A6-0x4),A0
00021b50 72 01 |r | MOVEQ.L #0x01,D1
00021b52 42 2e 00 08 |B. | CLR.B (A6+0x8)
00021b56 3f 01 |? | MOVE.W D1,-(A7)
00021b58 48 6e ff fe |Hn | PEA.L (A6-0x2)
00021b5c 4e b9 00 01 02 12 |N | JSR KC09_PortStatus(Port : Word; VAR b: Byte)
00021b62 5c 4f |\O | ADDQ.L #0x6,A7
00021b64 10 2e ff fe | . | MOVE.B (A6-0x2),D0
00021b68 b0 01 | | CMP.B D1,D0
00021b6a 66 22 |f" | BNE 0x21b8e
00021b6c 3f 01 |? | MOVE.W D1,-(A7)
00021b6e 48 50 |HP | PEA.L (A0)
00021b70 4e b9 00 01 02 0e |N | JSR KC07_PortGetChar(port : Word ; VAR ret : Word)
00021b76 5c 4f |\O | ADDQ.L #0x6,A7
00021b78 02 50 00 7f | P | ANDI.W #0x007f,(A0)
00021b7c 30 10 |0 | MOVE.W (A0),D0
00021b7e 0c 40 00 07 | @ | CMPI.W #0x0007,D0
00021b82 66 06 |f | BNE 0x21b8a
00021b84 1d 41 00 08 | A | MOVE.B D1,(A6+0x8)
00021b88 60 04 |` | BRA 0x21b8e
00021b8a 4e ba fc 9a |N | JSR 0x21826
00021b8e 4c df 01 03 |L | MOVEM.L (A7)+,D0+D1+A0
00021b92 4e 5e |N^ | UNLK A6
00021b94 4e 75 |Nu | RTS
00021b96 ; --------------------------------------------------------------------------------------
00021b96 ; OMSI PASCAL Function
00021b96 ; <LVAR -0x001 @ 1(r)>
00021b96 ; <LVAR -0x002 @ 1(r)>
00021b96 ; --------------------------------------------------------------------------------------
00021b96 4e 56 ff c0 |NV | LINK.W A6,#0xffc0
00021b9a bf d5 | | CMPA.L (A5),A7
00021b9c 62 06 |b | BHI 0x21ba4
00021b9e 44 fc 00 02 |D | MOVE.W #0x2,CCR
00021ba2 4e 76 |Nv | TRAPV
00021ba4 de fc 00 3c | < | ADDA.W #0x3c,A7
00021ba8 48 e7 f9 e0 |H | MOVEM.L A2+A1+A0+D7+D4+D3+D2+D1+D0,-(A7)
00021bac 43 f9 00 02 1e ea |C | LEA.L 0x21eea,A1
00021bb2 45 ee ff ff |E | LEA.L (A6-0x1),A2
00021bb6 74 0f |t | MOVEQ.L #0x0f,D2
00021bb8 76 01 |v | MOVEQ.L #0x01,D3
00021bba 38 3c 04 44 |8< D | MOVE.W #0x444,D4
00021bbe 7e 00 |~ | MOVEQ.L #0x00,D7
00021bc0 30 04 |0 | MOVE.W D4,D0
00021bc2 c1 c7 | | MULS.W D7,D0
00021bc4 20 49 | I | MOVEA.L A1,A0
00021bc6 4a 30 00 0c |J0 | TST.B (A0+D0.W+#0xc)
00021bca 67 08 |g | BEQ 0x21bd4
00021bcc 3f 07 |? | MOVE.W D7,-(A7)
00021bce 4e ba ee 06 |N | JSR 0x209d6
00021bd2 54 4f |TO | ADDQ.L #0x2,A7
00021bd4 52 47 |RG | ADDQ.W #0x1,D7
00021bd6 be 42 | B | CMP.W D2,D7
00021bd8 6f e6 |o | BLE 0x21bc0
00021bda 7e 00 |~ | MOVEQ.L #0x00,D7
00021bdc 30 04 |0 | MOVE.W D4,D0
00021bde c1 c7 | | MULS.W D7,D0
00021be0 20 49 | I | MOVEA.L A1,A0
00021be2 4a 30 00 0c |J0 | TST.B (A0+D0.W+#0xc)
00021be6 67 66 |gf | BEQ 0x21c4e
00021be8 3f 07 |? | MOVE.W D7,-(A7)
00021bea 48 6e ff fe |Hn | PEA.L (A6-0x2)
00021bee 48 52 |HR | PEA.L (A2)
00021bf0 4e b9 00 01 02 08 |N | JSR KERNCALL_04
00021bf6 de fc 00 0a | | ADDA.W #0xa,A7
00021bfa 4a 2e ff fe |J. | TST.B (A6-0x2)
00021bfe 67 4e |gN | BEQ 0x21c4e
00021c00 12 30 00 0d | 0 | MOVE.B (A0+D0.W+#0xd),D1
00021c04 48 81 |H | EXTB.W D1
00021c06 0c 41 00 02 | A | CMPI.W #0x0002,D1
00021c0a 63 02 |c | BLS 0x21c0e
00021c0c 4e 4e |NN | TRAP #14
00021c0e d2 41 | A | ADD.W D1,D1
00021c10 32 3b 10 06 4e fb 10 02 |2; N | SWITCH D1.W
00021c18 00 06 | | .CONST 0x6 ; [0x0] -> 0x21c1e
00021c1a 00 16 | | .CONST 0x16 ; [0x1] -> 0x21c2e
00021c1c 00 26 | & | .CONST 0x26 ; [0x2] -> 0x21c3e
00021c1e switch@0x21c10[0x0]:
00021c1e 3f 07 |? | MOVE.W D7,-(A7)
00021c20 10 12 | | MOVE.B (A2),D0
00021c22 48 80 |H | EXTB.W D0
00021c24 41 83 |A | CHK.W D3,D0
00021c26 1f 00 | | MOVE.B D0,-(A7)
00021c28 4e ba fa a0 |N | JSR 0x216ca
00021c2c 60 1e |` | BRA 0x21c4c
00021c2e switch@0x21c10[0x1]:
00021c2e 3f 07 |? | MOVE.W D7,-(A7)
00021c30 10 12 | | MOVE.B (A2),D0
00021c32 48 80 |H | EXTB.W D0
00021c34 41 83 |A | CHK.W D3,D0
00021c36 1f 00 | | MOVE.B D0,-(A7)
00021c38 4e ba fa 02 |N | JSR 0x2163c
00021c3c 60 0e |` | BRA 0x21c4c
00021c3e switch@0x21c10[0x2]:
00021c3e 3f 07 |? | MOVE.W D7,-(A7)
00021c40 10 12 | | MOVE.B (A2),D0
00021c42 48 80 |H | EXTB.W D0
00021c44 41 83 |A | CHK.W D3,D0
00021c46 1f 00 | | MOVE.B D0,-(A7)
00021c48 4e ba fb 2e |N . | JSR 0x21778
00021c4c 58 4f |XO | ADDQ.L #0x4,A7
00021c4e 52 47 |RG | ADDQ.W #0x1,D7
00021c50 be 42 | B | CMP.W D2,D7
00021c52 6f 88 |o | BLE 0x21bdc
00021c54 55 4f |UO | SUBQ.L #0x2,A7
00021c56 4e ba fe de |N | JSR 0x21b36
00021c5a 4a 1f |J | TST.B (A7)+
00021c5c 67 00 ff 7c |g | | BEQ 0x21bda
00021c60 7e 00 |~ | MOVEQ.L #0x00,D7
00021c62 30 04 |0 | MOVE.W D4,D0
00021c64 c1 c7 | | MULS.W D7,D0
00021c66 20 49 | I | MOVEA.L A1,A0
00021c68 4a 30 00 0c |J0 | TST.B (A0+D0.W+#0xc)
00021c6c 67 0c |g | BEQ 0x21c7a
00021c6e 3f 07 |? | MOVE.W D7,-(A7)
00021c70 48 52 |HR | PEA.L (A2)
00021c72 4e b9 00 01 02 06 |N | JSR KC03_Wait_Disk_IO(a : W; VAR status : Byte)
00021c78 5c 4f |\O | ADDQ.L #0x6,A7
00021c7a 52 47 |RG | ADDQ.W #0x1,D7
00021c7c be 42 | B | CMP.W D2,D7
00021c7e 6f e2 |o | BLE 0x21c62
00021c80 4c df 07 9f |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D7+A0+A1+A2
00021c84 4e 5e |N^ | UNLK A6
00021c86 4e 75 |Nu | RTS
00021c88 ; --------------------------------------------------------------------------------------
00021c88 ; OMSI PASCAL Function
00021c88 ; --------------------------------------------------------------------------------------
00021c88 START:
00021c88 4f fa 00 08 |O | LEA.L MAIN,A7
00021c8c 4e f9 00 01 02 80 |N | JMP ?start_program
00021c92 MAIN:
00021c92 72 01 |r | MOVEQ.L #0x01,D1
00021c94 4e b9 00 01 03 98 |N | JSR FSCALL_10398
00021c9a 23 fc 00 00 00 7b 00 02 |# { | MOVE.L #0x7b,0x2633a
00021ca2 63 3a |c: |
00021ca4 23 c1 00 02 63 36 |# c6 | MOVE.L D1,0x26336
00021caa 4e ba eb 10 |N | JSR 0x207bc
00021cae 4e ba fe e6 |N | JSR 0x21b96
00021cb2 41 fa e8 8c |A | LEA.L 0x20540,A0
00021cb6 70 04 |p | MOVEQ.L #0x04,D0
00021cb8 2f 20 |/ | MOVE.L -(A0),-(A7)
00021cba 51 c8 ff fc |Q | DBF D0,0x21cb8
00021cbe 42 27 |B' | CLR.B -(A7)
00021cc0 59 4f |YO | SUBQ.L #0x4,A7
00021cc2 48 6f 00 06 |Ho | PEA.L (A7+0x6)
00021cc6 3f 01 |? | MOVE.W D1,-(A7)
00021cc8 3f 3c 00 14 |?< | MOVE.W #0x14,-(A7)
00021ccc 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00021cd2 50 4f |PO | ADDQ.L #0x8,A7
00021cd4 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String)
00021cda de fc 00 1a | | ADDA.W #0x1a,A7
00021cde 4e b9 00 01 02 84 |N | JSR ?exit
00021ce4 57 6f 72 64 73 20 65 72 |Words er| .TXT 'Words error :_'
00021cf2 ; --------------------------------------------------------------------------------------
00021cf2 ; OMSI PASCAL Function
00021cf2 ; <LVAR 0x008 1(r)>
00021cf2 ; --------------------------------------------------------------------------------------
00021cf2 PROG_FAIL:
00021cf2 4e 56 ff d2 |NV | LINK.W A6,#0xffd2
00021cf6 bf d5 | | CMPA.L (A5),A7
00021cf8 62 06 |b | BHI 0x21d00
00021cfa 44 fc 00 02 |D | MOVE.W #0x2,CCR
00021cfe 4e 76 |Nv | TRAPV
00021d00 de fc 00 2c | , | ADDA.W #0x2c,A7
00021d04 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7)
00021d08 41 fa ff e8 |A | LEA.L PROG_FAIL,A0
00021d0c 70 06 |p | MOVEQ.L #0x06,D0
00021d0e 3f 20 |? | MOVE.W -(A0),-(A7)
00021d10 51 c8 ff fc |Q | DBF D0,0x21d0e
00021d14 1f 3c 00 03 | < | MOVE.B #0x03,-(A7)
00021d18 51 4f |QO | SUBQ.L #0x8,A7
00021d1a 48 6f 00 0a |Ho | PEA.L (A7+0xa)
00021d1e 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
00021d22 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7)
00021d26 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00021d2c 58 4f |XO | ADDQ.L #0x4,A7
00021d2e 10 2e 00 08 | . | MOVE.B (A6+0x8),D0
00021d32 48 80 |H | EXTB.W D0
00021d34 48 c0 |H | EXTW.L D0
00021d36 2f 00 |/ | MOVE.L D0,-(A7)
00021d38 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String
00021d3e 58 4f |XO | ADDQ.L #0x4,A7
00021d40 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00021d46 50 4f |PO | ADDQ.L #0x8,A7
00021d48 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String)
00021d4e de fc 00 14 | | ADDA.W #0x14,A7
00021d52 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0
00021d56 4e 5e |N^ | UNLK A6
00021d58 4e 75 |Nu | RTS
00021d5a 42 6f 61 72 64 20 20 20 |Board | .TXT 'Board :_ '
00021d68 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment :_ '
00021d76 53 74 61 74 75 73 20 20 |Status | .TXT 'Status :_ '
00021d84 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment error :'
00021d96 46 61 74 61 6c 20 65 78 |Fatal ex| .TXT 'Fatal experiment error. '
00021dae ; --------------------------------------------------------------------------------------
00021dae ; OMSI PASCAL Function
00021dae ; <LVAR 0x00e 1(r)>
00021dae ; <LVAR 0x00a 4(r)>
00021dae ; <LVAR 0x008 1(r)>
00021dae ; --------------------------------------------------------------------------------------
00021dae EXP_FAIL:
00021dae 4e 56 ff 8c |NV | LINK.W A6,#0xff8c
00021db2 bf d5 | | CMPA.L (A5),A7
00021db4 62 06 |b | BHI 0x21dbc
00021db6 44 fc 00 02 |D | MOVE.W #0x2,CCR
00021dba 4e 76 |Nv | TRAPV
00021dbc de fc 00 74 | t | ADDA.W #0x74,A7
00021dc0 48 e7 fc f8 |H | MOVEM.L A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7)
00021dc4 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
00021dca 49 f9 00 01 03 e0 |I | LEA.L WriteConsoleStringCrLf(str : String),A4
00021dd0 72 01 |r | MOVEQ.L #0x01,D1
00021dd2 74 0d |t | MOVEQ.L #0x0d,D2
00021dd4 76 1e |v | MOVEQ.L #0x1e,D3
00021dd6 78 12 |x | MOVEQ.L #0x12,D4
00021dd8 7a 0e |z | MOVEQ.L #0x0e,D5
00021dda 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void)
00021de0 41 fa ff b4 |A | LEA.L 0x21d96,A0
00021de4 70 08 |p | MOVEQ.L #0x08,D0
00021de6 3f 20 |? | MOVE.W -(A0),-(A7)
00021de8 51 c8 ff fc |Q | DBF D0,0x21de6
00021dec 59 4f |YO | SUBQ.L #0x4,A7
00021dee 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021df2 3f 01 |? | MOVE.W D1,-(A7)
00021df4 3f 04 |? | MOVE.W D4,-(A7)
00021df6 4e 93 |N | JSR (A3)
00021df8 50 4f |PO | ADDQ.L #0x8,A7
00021dfa 4e 94 |N | JSR (A4)
00021dfc 50 4f |PO | ADDQ.L #0x8,A7
00021dfe 20 4f | O | MOVEA.L A7,A0
00021e00 43 fa ff 58 |C X | LEA.L 0x21d5a,A1
00021e04 70 0c |p | MOVEQ.L #0x0c,D0
00021e06 10 d9 | | MOVE.B (A1)+,(A0)+
00021e08 51 c8 ff fc |Q | DBF D0,0x21e06
00021e0c 51 4f |QO | SUBQ.L #0x8,A7
00021e0e 48 6f 00 08 |Ho | PEA.L (A7+0x8)
00021e12 3f 01 |? | MOVE.W D1,-(A7)
00021e14 3f 02 |? | MOVE.W D2,-(A7)
00021e16 4e 93 |N | JSR (A3)
00021e18 54 4f |TO | ADDQ.L #0x2,A7
00021e1a 1e ae 00 0e | | MOVE.B (A6+0xe),(A7)
00021e1e 4e b9 00 01 04 9c |N | JSR BoardName(address : B) : String
00021e24 54 4f |TO | ADDQ.L #0x2,A7
00021e26 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00021e2c 50 4f |PO | ADDQ.L #0x8,A7
00021e2e 4e 94 |N | JSR (A4)
00021e30 de c4 | | ADDA.W D4,A7
00021e32 20 6e 00 0a | n | MOVEA.L (A6+0xa),A0
00021e36 b0 c1 | | CMPA.W D1,A0
00021e38 67 48 |gH | BEQ 0x21e82
00021e3a 9e c5 | | SUBA.W D5,A7
00021e3c 22 4f |"O | MOVEA.L A7,A1
00021e3e 45 fa ff 28 |E ( | LEA.L 0x21d68,A2
00021e42 70 0c |p | MOVEQ.L #0x0c,D0
00021e44 12 da | | MOVE.B (A2)+,(A1)+
00021e46 51 c8 ff fc |Q | DBF D0,0x21e44
00021e4a 9e c3 | | SUBA.W D3,A7
00021e4c 22 4f |"O | MOVEA.L A7,A1
00021e4e 41 e8 00 fc |A | LEA.L (A0+0xfc),A0
00021e52 70 1d |p | MOVEQ.L #0x1d,D0
00021e54 12 d8 | | MOVE.B (A0)+,(A1)+
00021e56 51 c8 ff fc |Q | DBF D0,0x21e54
00021e5a 51 4f |QO | SUBQ.L #0x8,A7
00021e5c 48 6f 00 26 |Ho & | PEA.L (A7+0x26)
00021e60 3f 01 |? | MOVE.W D1,-(A7)
00021e62 3f 02 |? | MOVE.W D2,-(A7)
00021e64 4e 93 |N | JSR (A3)
00021e66 58 4f |XO | ADDQ.L #0x4,A7
00021e68 48 6f 00 0c |Ho | PEA.L (A7+0xc)
00021e6c 3f 01 |? | MOVE.W D1,-(A7)
00021e6e 3f 03 |? | MOVE.W D3,-(A7)
00021e70 4e 93 |N | JSR (A3)
00021e72 50 4f |PO | ADDQ.L #0x8,A7
00021e74 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00021e7a 50 4f |PO | ADDQ.L #0x8,A7
00021e7c 4e 94 |N | JSR (A4)
00021e7e de fc 00 30 | 0 | ADDA.W #0x30,A7
00021e82 9e c5 | | SUBA.W D5,A7
00021e84 20 4f | O | MOVEA.L A7,A0
00021e86 43 fa fe ee |C | LEA.L 0x21d76,A1
00021e8a 70 0c |p | MOVEQ.L #0x0c,D0
00021e8c 10 d9 | | MOVE.B (A1)+,(A0)+
00021e8e 51 c8 ff fc |Q | DBF D0,0x21e8c
00021e92 51 4f |QO | SUBQ.L #0x8,A7
00021e94 48 6f 00 08 |Ho | PEA.L (A7+0x8)
00021e98 3f 01 |? | MOVE.W D1,-(A7)
00021e9a 3f 02 |? | MOVE.W D2,-(A7)
00021e9c 4e 93 |N | JSR (A3)
00021e9e 54 4f |TO | ADDQ.L #0x2,A7
00021ea0 1e ae 00 08 | | MOVE.B (A6+0x8),(A7)
00021ea4 4e b9 00 01 04 a2 |N | JSR ExpStatus2Text(status.B, &String)
00021eaa 54 4f |TO | ADDQ.L #0x2,A7
00021eac 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00021eb2 50 4f |PO | ADDQ.L #0x8,A7
00021eb4 4e 94 |N | JSR (A4)
00021eb6 5d 4f |]O | SUBQ.L #0x6,A7
00021eb8 20 4f | O | MOVEA.L A7,A0
00021eba 43 fa fe da |C | LEA.L 0x21d96,A1
00021ebe 70 16 |p | MOVEQ.L #0x16,D0
00021ec0 10 d9 | | MOVE.B (A1)+,(A0)+
00021ec2 51 c8 ff fc |Q | DBF D0,0x21ec0
00021ec6 1f 3c 00 02 | < | MOVE.B #0x02,-(A7)
00021eca 59 4f |YO | SUBQ.L #0x4,A7
00021ecc 48 6f 00 06 |Ho | PEA.L (A7+0x6)
00021ed0 3f 01 |? | MOVE.W D1,-(A7)
00021ed2 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7)
00021ed6 4e 93 |N | JSR (A3)
00021ed8 50 4f |PO | ADDQ.L #0x8,A7
00021eda 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String)
00021ee0 de c3 | | ADDA.W D3,A7
00021ee2 4c df 1f 3f |L ? | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4
00021ee6 4e 5e |N^ | UNLK A6
00021ee8 4e 75 |Nu | RTS