|
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 - metrics - download
Length: 8192 (0x2000)
Types: M200
Notes: M200_PROGRAM
Names: »DISKX.M200«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─⟦this⟧ »DISKX.M200«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─⟦this⟧ »DISKX.M200«
└─⟦this⟧ »DISKX.M200«
@ 20558
<LVAR 0x010 4(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 20558-205b2 Body>
<POP 20558-2056e Prologue> Σ0 ↓
<POP 2056e-20574 RegCacheLoad> Σ0 ↓
<POP 20574-205aa Naked> Σ0 ↓
<MI 20574 MOVE.L 0x2631a,D4> {}
<MI 20576 MOVE.L #0x1a5,D3> {}
<Call 0x2057c 0x1028c> {}
?muls_d3_d4
<MI 20582 MOVE.L D4,0x2631a> {}
<MI 20584 ADDQ.L #0x1,0x2631a> {}
<MI 20586 ANDI.L #0x00007fff,0x2631a> {}
<MI 2058c MOVE.L (A6+0x8),D7> {}
<MI 20590 SUB.L (A6+0xc),D7> {}
<MI 20594 ADDQ.L #0x1,D7> {}
<MI 20596 MOVE.L 0x2631a,D4> {}
<MI 20598 MOVE.L D7,D3> {}
<Call 0x2059a 0x10294> {}
?divs_d3_d4
<MI 205a0 ADD.L (A6+0xc),D3> {}
<MI 205a4 MOVE.L D3,D7> {}
<MI 205a6 MOVE.L D7,(A6+0x10)> {}
<POP 205aa-205b2 Epilogue> Σ0
@ 205b2
<LVAR 0x008 4(w)>
<POP 205b2-20606 Body>
<POP 205b2-205c8 Prologue> Σ0 ↓
<POP 205c8-205ce RegCacheLoad> Σ0 ↓
<POP 205ce-205da Naked> Σ0 ↓ →0x205e0
<MI 205ce ADDQ.L #0x1,0x26316> {}
<MI 205d0 MOVE.L 0x26316,D0> {}
<MI 205d2 CMPI.L #0x00000005,D0> {}
<MI 205d8 BLE 0x205e0> {}
<POP 205da-205e0 Naked> Σ0 ↓
<MI 205da MOVE.L #0x1,0x26316> {}
<POP 205e0-205fe Naked> Σ0 ↓ ←0x205ce
<MI 205e0 MOVE.L 0x26316,D0> {}
<MI 205e2 SUBQ.L #0x1,D0> {}
<POP 0x205e4 LimitCheck 0x0 ≤ D0 ≤ 0x4> {}
<MI 205ee ASL.L #0x1,D0> {}
<MI 205f0 LEA.L 0x20520,A0> {}
<MI 205f4 CLR.L D1> {}
<MI 205f6 MOVE.W (A0+D0.L),D1> {}
<MI 205fa MOVE.L D1,(A6+0x8)> {}
<POP 205fe-20606 Epilogue> Σ0
@ 20606
<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 20606-20680 Body>
<POP 20606-2061c Prologue> Σ0 ↓
<POP 2061c-20674 Naked> Σ0 ↓ →0x20678
<MI 2061c CLR.W (A6-0x1a)> {}
<MI 20620 CLR.W (A6-0x18)> {}
<MI 20624 MOVE.W #0x2,(A6-0x16)> {}
<MI 2062a CLR.W (A6-0x14)> {}
<MI 2062e CLR.W (A6-0x12)> {}
<MI 20632 MOVE.W (A6+0x8),D0> {}
<MI 20636 ASL.W #0x8,D0> {}
<MI 20638 MOVE.W D0,(A6-0x10)> {}
<MI 2063c CLR.W (A6-0xe)> {}
<MI 20640 CLR.W (A6-0xc)> {}
<Pointer.fp 0x20644 <LVAR -0x01a @ 2(r)>> Δ-4 {[@@-26]}
<MI 20648 LEA.L (A6-0x8),A0> {[@@-26]}
<MI 2064c MOVE.L A0,-(A7)> Δ-4 {[@@-26]|[4, 'A0']}
<MI 2064e CLR.W -(A7)> Δ-2 {[@@-26]|[4, 'A0']|[#0]}
<Call 0x20650 0x10204> {[@@-26]|[4, 'A0']|[#0]}
KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
<POP 20656-20658 StackAdj> Δ+8 {[-2-]}
<MI 20658 CLR.W (A7)> {[-2-]}
<Pointer.fp 0x2065a <LVAR -0x00a @>> Δ-4 {[-2-]|[@@-10]}
<Call 0x2065e 0x10206> {[-2-]|[@@-10]}
KC03_Wait_Disk_IO(a : W; VAR status : Byte)
<POP 20664-20666 StackAdj> Δ+6 {}
<MI 20666 CLR.B (A6+0xa)> {}
<MI 2066a MOVE.W (A6-0x8),D0> {}
<MI 2066e CMPI.W #0x0001,D0> {}
<MI 20672 BNE 0x20678> {}
<POP 20674-20678 Naked> Σ0 ↓
<MI 20674 ADDQ.B #0x1,(A6+0xa)> {}
<POP 20678-20680 Epilogue> Σ0 ←0x2061c
@ 20680
<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 20680-2079c Body>
<POP 20680-20696 Prologue> Σ0 ↓
<POP 20696-2069c RegCacheLoad> Σ0 ↓
<POP 2069c-206d6 Naked> Σ0 ↓ →0x20722
<MI 2069c MOVE.W 0x10008,D0> {}
<POP 0x206a2 LimitCheck 0x0 ≤ D0 ≤ 0xf> {}
<MI 206a6 MOVE.W D0,D7> {}
<MI 206a8 MOVE.W (A6+0x8),0x10008> {}
<Const 0x206ae 0x2.2> Δ-2 {[#2]}
<Const 0x206b0 0x2.2> Δ-2 {[#2]|[#2]}
<Const 0x206b2 0x1.4> Δ-4 {[#2]|[#2]|[##1]}
<MI 206b6 LEA.L (A6-0x406),A0> {[#2]|[#2]|[##1]}
<MI 206ba MOVE.L A0,-(A7)> Δ-4 {[#2]|[#2]|[##1]|[4, 'A0']}
<Pointer.fp 0x206bc <LVAR -0x006 @ 1(r)>> Δ-4 {[#2]|[#2]|[##1]|[4, 'A0']|[@@-6]}
<Call 0x206c0 0x1036c> {[#2]|[#2]|[##1]|[4, 'A0']|[@@-6]}
RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B)
<POP 206c6-206ca StackAdj> Δ+16 {}
<MI 206ca MOVE.W D7,0x10008> {}
<MI 206d0 TST.B (A6-0x6)> {}
<MI 206d4 BNE 0x20722> {}
<POP 206d6-20722 Naked> Σ0 ↓
<Blob 0x206d6 [28] @> Δ-28 {[«28""»]}
<Const 0x206e8 0xe.2> Δ-2 {[«28""»]|[#14]}
<POP 206ec-206ee StackAdj> Δ-8 {[«28""»]|[#14]|[-8-]}
<Lit 0x206ee 27> {[«28""»]|[#14]|[-4-]|[$$Disk has no labels, unit :_]}
<POP 20700-20702 StackAdj> Δ-4 {[«28""»]|[#14]|[-4-]|[$$Disk has no labels, unit :_]|[-4-]}
<MI 20702 MOVE.W (A6+0x8),D0> {[«28""»]|[#14]|[-4-]|[$$Disk has no labels, unit :_]|[-4-]}
<MI 20704 EXTW.L D0> {[«28""»]|[#14]|[-4-]|[$$Disk has no labels, unit :_]|[-4-]}
<MI 20706 MOVE.L D0,-(A7)> Δ-4 {[«28""»]|[#14]|[-4-]|[$$Disk has no labels, unit :_]|[-4-]|[4, 'D0']}
<Call 0x20708 0x102e4> {[«28""»]|[#14]|[-4-]|[$$Disk has no labels, unit :_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 2070e-20710 StackAdj> Δ+4 {[«28""»]|[#14]|[-4-]|[$$Disk has no labels, unit :_]|[-4-]}
<Call 0x20710 0x102d0> {[«28""»]|[#14]|[-4-]|[$$Disk has no labels, unit :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 20716-20718 StackAdj> Δ+8 {[«28""»]|[#14]|[-4-]}
<Call 0x20718 0x103b8> {[«28""»]|[#14]|[-4-]}
PopProgram(status : Byte; msg : String)
<POP 2071e-20722 StackAdj> Δ+34 {}
<POP 20722-20794 Naked> Σ0 ↓ ←0x2069c
<MI 20722 MOVE.W #0x444,D0> {}
<MI 20726 MULS.W (A6+0x8),D0> {}
<MI 20728 LEA.L 0x21eca,A0> {}
<MI 2072e CLR.L (A0+D0.W+#0xe)> {}
<MI 20732 CLR.L (A0+D0.W+#0x12)> {}
<MI 20736 CLR.L (A0+D0.W+#0x16)> {}
<MI 2073a CLR.L D1> {}
<MI 2073c MOVE.W (A6-0x3da),D1> {}
<MI 20740 MOVE.L D1,(A0+D0.W+#0x26)> {}
<MI 20744 CLR.L D1> {}
<MI 20746 MOVE.W (A6-0x3d6),D1> {}
<MI 2074a MOVE.L D1,(A0+D0.W+#0x2a)> {}
<MI 2074e CLR.L D1> {}
<MI 20750 MOVE.B (A6-0x3fb),D1> {}
<MI 20754 ASR.W #0x1,D1> {}
<MI 20756 MOVE.W D1,(A0+D0.W+#0x30)> {}
<MI 2075a CLR.L D1> {}
<MI 2075c MOVE.B (A6-0x3fc),D1> {}
<MI 20760 MOVE.W D1,(A0+D0.W+#0x2e)> {}
<MI 20764 MOVE.L (A0+D0.W+#0x26),(A0+D0.W+#0x22)> {}
<MI 2076a CLR.L (A0+D0.W+#0x1e)> {}
<MI 2076e CLR.L (A0+D0.W+#0x1a)> {}
<MI 20772 LEA.L (A0+D0.W+#0xc),A0> {}
<POP 20776-20778 StackAdj> Δ-8 {[-8-]}
<Const 0x20778 0x0.4> Δ-4 {[-8-]|[##0]}
<Call 0x2077c 0x10354> {[-8-]|[##0]}
Long2Quad(a : Long) : Quad
<POP 20782-20784 StackAdj> Δ+4 {[-8-]}
<MI 20784 LEA.L (A0+0x43c),A0> {[-8-]}
<MI 20788 MOVEA.L A7,A1> {[-8-]}
<BlockMove 8,A1,A0> {[-8-]}
<POP 20792-20794 StackAdj> Δ+8 {}
<POP 20794-2079c Epilogue> Σ0
@ 2079c
<POP 2079c-20962 Body>
<POP 2079c-207b2 Prologue> Σ0 ↓
<POP 207b2-207c8 RegCacheLoad> Σ0 ↓
<POP 207c8-207ca Naked> Σ0 ↓
<MI 207c8 MOVEQ.L #0x00,D7> {}
<POP 207ca-207e4 Naked> Σ0 ↓ →0x207ea ←0x2083c
<MI 207ca MOVE.W #0x444,D0> {}
<MI 207ce MULS.W D7,D0> {}
<MI 207d0 LEA.L 0x21eca,A0> {}
<POP 207d6-207d8 StackAdj> Δ-2 {[-2-]}
<MI 207d8 MOVE.W D7,-(A7)> Δ-2 {[-2-]|[2, 'D7']}
<Call 0x207da 0x20606> {[-2-]|[2, 'D7']}
<POP 207de-207e0 StackAdj> Δ+2 {[-2-]}
<MI 207e0 TST.B (A7)+> Δ+2 {}
<MI 207e2 BNE 0x207ea> {}
<POP 207e4-207ea Naked> Σ0 →0x2082e
<MI 207e4 CLR.B (A0+D0.W+#0xc)> {}
<MI 207e8 BRA 0x2082e> {}
<POP 207ea-2082e Naked> Σ0 ↓ ←0x207ca
<Blob 0x207ea [14] @> Δ-14 {[«14""»]}
<POP 207f6-207fa StackAdj> Δ-10 {[«14""»]|[-10-]}
<Lit 0x207fa 14> {[«14""»]|[-6-]|[$$Exercize unit_]}
<POP 20804-20806 StackAdj> Δ-4 {[«14""»]|[-6-]|[$$Exercize unit_]|[-4-]}
<MI 20806 MOVE.W D7,D1> {[«14""»]|[-6-]|[$$Exercize unit_]|[-4-]}
<MI 20808 EXTW.L D1> {[«14""»]|[-6-]|[$$Exercize unit_]|[-4-]}
<MI 2080a MOVE.L D1,-(A7)> Δ-4 {[«14""»]|[-6-]|[$$Exercize unit_]|[-4-]|[4, 'D1']}
<Call 0x2080c 0x102e4> {[«14""»]|[-6-]|[$$Exercize unit_]|[-4-]|[4, 'D1']}
Long2String(a : Long) : String
<POP 2080e-20810 StackAdj> Δ+4 {[«14""»]|[-6-]|[$$Exercize unit_]|[-4-]}
<Call 0x20810 0x102d0> {[«14""»]|[-6-]|[$$Exercize unit_]|[-4-]}
StringCat2(a, b : String) : String
<POP 20816-20818 StackAdj> Δ+6 {[«14""»]|[-6-]|[-2-]}
<POP 20818-20819 StackAdj> Δ+2 {[«14""»]|[-6-]}
<Const 0x20819 0x1.2> Δ-2 {[«14""»]|[-6-]|[#1]}
<Call 0x2081a 0x103f0> {[«14""»]|[-6-]|[#1]}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 20820-20822 StackAdj> Δ+6 {[«14""»]|[-2-]}
<MI 20822 MOVE.B (A7)+,D1> Δ+2 {[«14""»]}
<MI 20824 EXTB.W D1> {[«14""»]}
<POP 0x20826 LimitCheck 0x0 ≤ D1 ≤ 0x1> {[«14""»]}
<POP 20828-2082a StackAdj> Δ+14 {}
<MI 2082a MOVE.B D1,(A0+D0.W+#0xc)> {}
<POP 2082e-20834 Naked> Σ0 ↓ →0x2083c ←0x207e4
<MI 2082e TST.B (A0+D0.W+#0xc)> {}
<MI 20832 BEQ 0x2083c> {}
<POP 20834-2083c Naked> Σ0 ↓
<MI 20834 MOVE.W D7,-(A7)> Δ-2 {[2, 'D7']}
<Call 0x20836 0x20680> {[2, 'D7']}
<POP 2083a-2083c StackAdj> Δ+2 {}
<POP 2083c-20842 Naked> Σ0 ↓ →0x207ca ←0x2082e
<MI 2083c ADDQ.W #0x1,D7> {}
<MI 2083e CMP.W #0x0f,D7> {}
<MI 20840 BLE 0x207ca> {}
<POP 20842-20844 Naked> Σ0 ↓
<MI 20842 MOVEQ.L #0x00,D7> {}
<POP 20844-20858 Naked> Σ0 ↓ →0x208e4 ←0x208e4
<MI 20844 MOVE.W #0x444,D0> {}
<MI 20848 MULS.W D7,D0> {}
<MI 2084a LEA.L 0x21eca,A0> {}
<MI 20850 TST.B (A0+D0.W+#0xc)> {}
<MI 20854 BEQ 0x208e4> {}
<POP 20858-208e4 Naked> Σ0 ↓
<Blob 0x20858 [14] @> Δ-14 {[«14""»]}
<Blob 0x20868 [20] @> Δ-20 {[«14""»]|[«20""»]}
<Blob 0x2087a [2] @> Δ-2 {[«14""»]|[«20""»]|[«2""»]}
<Blob 0x2087e [2] @> Δ-2 {[«14""»]|[«20""»]|[«2""»]|[«2""»]}
<POP 20882-20884 StackAdj> Δ-8 {[«14""»]|[«20""»]|[«2""»]|[«2""»]|[-8-]}
<Lit 0x20884 13> {[«14""»]|[«20""»]|[«2""»]|[«2""»]|[-4-]|[$$Disk unit =>_]}
<POP 20890-20892 StackAdj> Δ-4 {[«14""»]|[«20""»]|[«2""»]|[«2""»]|[-4-]|[$$Disk unit =>_]|[-4-]}
<MI 20892 MOVE.W D7,D1> {[«14""»]|[«20""»]|[«2""»]|[«2""»]|[-4-]|[$$Disk unit =>_]|[-4-]}
<MI 20894 EXTW.L D1> {[«14""»]|[«20""»]|[«2""»]|[«2""»]|[-4-]|[$$Disk unit =>_]|[-4-]}
<MI 20896 MOVE.L D1,-(A7)> Δ-4 {[«14""»]|[«20""»]|[«2""»]|[«2""»]|[-4-]|[$$Disk unit =>_]|[-4-]|[4, 'D1']}
<Call 0x20898 0x102e4> {[«14""»]|[«20""»]|[«2""»]|[«2""»]|[-4-]|[$$Disk unit =>_]|[-4-]|[4, 'D1']}
Long2String(a : Long) : String
<Lit 0x2089a 19> {[«14""»]|[«20""»]|[«2""»]|[«2""»]|[-4-]|[$$Disk unit =>_]|[-4-]|[$$, using cylinders []}
<MI 208a6 MOVE.L (A0+D0.W+#0x26),(A7)> {[«14""»]|[«20""»]|[«2""»]|[«2""»]|[-4-]|[$$Disk unit =>_]|[-4-]|[4, '(A0+D0.W+#0x26)']}
<POP 208a4-208a6 StackAdj> Δ-8 {[«14""»]|[«20""»]|[«2""»]|[«2""»]|[-4-]|[$$Disk unit =>_]|[-4-]|[4, '(A0+D0.W+#0x26)']|[-8-]}
<Call 0x208aa 0x102e4> {[«14""»]|[«20""»]|[«2""»]|[«2""»]|[-4-]|[$$Disk unit =>_]|[-4-]|[4, '(A0+D0.W+#0x26)']|[-8-]}
Long2String(a : Long) : String
<Lit 0x208ac 2> {[«14""»]|[«20""»]|[«2""»]|[«2""»]|[-4-]|[$$Disk unit =>_]|[-4-]|[4, '(A0+D0.W+#0x26)']|[-4-]|[$$..]}
<MI 208b6 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 208b4-208b6 StackAdj> Δ-8 {[«14""»]|[«20""»]|[«2""»]|[«2""»]|[-4-]|[$$Disk unit =>_]|[-4-]|[4, '(A0+D0.W+#0x26)']|[-4-]|[$$..]|[4, '(A0+D0.W+#0x2a)']|[-8-]}
<Call 0x208ba 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 0x208bc 2> {[«14""»]|[«20""»]|[«2""»]|[«2""»]|[-4-]|[$$Disk unit =>_]|[-4-]|[4, '(A0+D0.W+#0x26)']|[-4-]|[$$..]|[4, '(A0+D0.W+#0x2a)']|[-4-]|[$$] ]}
<Call 0x208c8 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 208ce-208d0 StackAdj> Δ+8 {[«14""»]|[«20""»]|[«2""»]|[«2""»]|[-4-]|[$$Disk unit =>_]|[-4-]|[4, '(A0+D0.W+#0x26)']|[-4-]|[$$..]|[4, '(A0+D0.W+#0x2a)']}
<Call 0x208d0 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 208d6-208da StackAdj> Δ+24 {[«14""»]|[«20""»]|[«2""»]|[«2""»]|[-4-]}
<Call 0x208da 0x103e0> {[«14""»]|[«20""»]|[«2""»]|[«2""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 208e0-208e4 StackAdj> Δ+42 {}
<POP 208e4-208ec Naked> Σ0 ↓ →0x20844 ←0x20844
<MI 208e4 ADDQ.W #0x1,D7> {}
<MI 208e6 CMP.W #0x0f,D7> {}
<MI 208e8 BLE 0x20844> {}
<POP 208ec-2095a Naked> Σ0 ↓
<Const 0x208ec 0x21ed2.4> Δ-4 {[##138962]}
<Call 0x208f2 0x10304> {[##138962]}
GetRtc() : TimeStamp
<POP 208f8-208fa StackAdj> Δ+4 {}
<Blob 0x208fa [40] @> Δ-40 {[«40""»]}
<POP 20906-20908 StackAdj> Δ-8 {[«40""»]|[-8-]}
<Lit 0x20908 40> {[«40""»]|[-4-]|[$$DFS based disk exerciser, started at => ]}
<POP 20914-20915 StackAdj> Δ-4 {[«40""»]|[-4-]|[$$DFS based disk exerciser, started at => ]|[-4-]}
<Blob 0x20915 [4] 0x21ed2> Δ-4 {[«40""»]|[-4-]|[$$DFS based disk exerciser, started at => ]|[-4-]|[«4»]}
<Call 0x2091a 0x10308> {[«40""»]|[-4-]|[$$DFS based disk exerciser, started at => ]|[-4-]|[«4»]}
TimeToText()
<POP 20920-20922 StackAdj> Δ+4 {[«40""»]|[-4-]|[$$DFS based disk exerciser, started at => ]|[-4-]}
<Call 0x20922 0x102d0> {[«40""»]|[-4-]|[$$DFS based disk exerciser, started at => ]|[-4-]}
StringCat2(a, b : String) : String
<POP 20928-2092a StackAdj> Δ+8 {[«40""»]|[-4-]}
<Call 0x2092a 0x103e0> {[«40""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 20930-20931 StackAdj> Δ+44 ↓ {}
<Blob 0x20931 [48] @> Δ-48 {[«48""»]}
<POP 20940-20942 StackAdj> Δ-4 {[«48""»]|[-4-]}
<Lit 0x20942 47> {[«48""»]|[$$Type ^G to exit, any other character for status]}
<Call 0x20950 0x103e0> {[«48""»]|[$$Type ^G to exit, any other character for status]}
WriteConsoleStringCrLf(str : String)
<POP 20956-2095a StackAdj> Δ+52 {}
<POP 2095a-20962 Epilogue> Σ0
@ 20962
<LVAR 0x00c 2(r)>
<LVAR 0x008 4(r)>
<LVAR -0x006 2(w)>
<LVAR -0x00c 2(w)>
<LVAR -0x010 @>
<LVAR -0x012 @>
<POP 20962-209b6 Body>
<POP 20962-20978 Prologue> Σ0 ↓
<POP 20978-2097c RegCacheLoad> Σ0 ↓
<POP 2097c-209ae Naked> Σ0 ↓
<MI 2097c MOVE.W #0x2,(A6-0xc)> {}
<MI 20982 MOVE.W (A6+0xc),D0> {}
<MI 20984 ASL.W #0x8,D0> {}
<MI 20986 ADDQ.W #0x1,D0> {}
<MI 20988 MOVE.W D0,(A6-0x6)> {}
<Pointer.fp 0x2098c <LVAR -0x010 @>> Δ-4 {[@@-16]}
<MI 20990 MOVEA.L (A6+0x8),A0> {[@@-16]}
<MI 20994 MOVE.L A0,-(A7)> Δ-4 {[@@-16]|[4, 'A0']}
<MI 20996 MOVE.W (A6+0xc),-(A7)> Δ-2 {[@@-16]|[4, 'A0']|[2, '(A6+0xc)']}
<Call 0x20998 0x10204> {[@@-16]|[4, 'A0']|[2, '(A6+0xc)']}
KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
<POP 2099e-209a0 StackAdj> Δ+8 {[-2-]}
<MI 209a0 MOVE.W (A6+0xc),(A7)> {[2, '(A6+0xc)']}
<Pointer.fp 0x209a2 <LVAR -0x012 @>> Δ-4 {[2, '(A6+0xc)']|[@@-18]}
<Call 0x209a6 0x10206> {[2, '(A6+0xc)']|[@@-18]}
KC03_Wait_Disk_IO(a : W; VAR status : Byte)
<POP 209ac-209ae StackAdj> Δ+6 {}
<POP 209ae-209b6 Epilogue> Σ0
@ 209b6
<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 209b6-20aac Body>
<POP 209b6-209cc Prologue> Σ0 ↓
<POP 209cc-209da RegCacheLoad> Σ0 ↓
<POP 209da-20a54 Naked> Σ0 ↓ →0x20a5c
<MI 209da MOVE.W #0x444,D0> {}
<MI 209de MULS.W (A6+0x8),D0> {}
<MI 209e0 LEA.L 0x21eca,A0> {}
<POP 209e6-209e8 StackAdj> Δ-4 {[-4-]}
<Call 0x209e8 0x205b2> {[-4-]}
<MI 209ec MOVE.L (A7)+,D1> Δ+4 {}
<POP 0x209ee LimitCheck 0x0 ≤ D1 ≤ 0xffff> {}
<MI 209f4 MOVE.W D1,(A0+D0.W+#0x32)> {}
<POP 209f8-209fa StackAdj> Δ-4 {[-4-]}
<Const 0x209fa 0x0.4> Δ-4 {[-4-]|[##0]}
<MI 209fe CLR.L D1> {[-4-]|[##0]}
<MI 20a00 MOVE.W (A0+D0.W+#0x30),D1> {[-4-]|[##0]}
<MI 20a04 SUBQ.L #0x1,D1> {[-4-]|[##0]}
<MI 20a06 MOVE.L D1,-(A7)> Δ-4 {[-4-]|[##0]|[4, 'D1']}
<Call 0x20a08 0x20558> {[-4-]|[##0]|[4, 'D1']}
<POP 20a0a-20a0c StackAdj> Δ+8 {[-4-]}
<MI 20a0c MOVE.L (A7)+,D1> Δ+4 {}
<MI 20a0e ASL.L #0x1,D1> {}
<MI 20a10 MOVE.L D1,(A0+D0.W+#0x1a)> {}
<POP 20a14-20a16 StackAdj> Δ-4 {[-4-]}
<Const 0x20a16 0x0.4> Δ-4 {[-4-]|[##0]}
<MI 20a1a CLR.L D1> {[-4-]|[##0]}
<MI 20a1c MOVE.W (A0+D0.W+#0x2e),D1> {[-4-]|[##0]}
<MI 20a20 SUBQ.L #0x1,D1> {[-4-]|[##0]}
<MI 20a22 MOVE.L D1,-(A7)> Δ-4 {[-4-]|[##0]|[4, 'D1']}
<Call 0x20a24 0x20558> {[-4-]|[##0]|[4, 'D1']}
<POP 20a26-20a28 StackAdj> Δ+8 {[-4-]}
<MI 20a28 MOVE.L (A7),(A0+D0.W+#0x1e)> {[-4-]}
<MI 20a2c MOVE.L (A0+D0.W+#0x26),-(A7)> Δ-4 {[-4-]|[4, '(A0+D0.W+#0x26)']}
<MI 20a30 MOVE.L (A0+D0.W+#0x2a),-(A7)> Δ-4 {[-4-]|[4, '(A0+D0.W+#0x26)']|[4, '(A0+D0.W+#0x2a)']}
<Call 0x20a34 0x20558> {[-4-]|[4, '(A0+D0.W+#0x26)']|[4, '(A0+D0.W+#0x2a)']}
<POP 20a36-20a38 StackAdj> Δ+8 {[-4-]}
<MI 20a38 MOVE.L (A7)+,(A0+D0.W+#0x22)> Δ+4 {}
<MI 20a3c MOVE.W #0x100,(A6-0x16)> {}
<MI 20a42 MOVE.W #0x2,(A6-0x12)> {}
<POP 20a48-20a4a StackAdj> Δ-2 {[-2-]}
<Call 0x20a4a 0x1060a> {[-2-]}
Is_machine_type_four() : Bool
<MI 20a50 TST.B (A7)+> Δ+2 {}
<MI 20a52 BEQ 0x20a5c> {}
<POP 20a54-20a5c Naked> Σ0 →0x20a64
<MI 20a54 MOVE.W (A6+0x8),D1> {}
<MI 20a56 ASL.W #0x8,D1> {}
<MI 20a58 ADDQ.W #0x3,D1> {}
<MI 20a5a BRA 0x20a64> {}
<POP 20a5c-20a64 Naked> Σ0 ↓ ←0x209da
<MI 20a5c MOVE.W (A6+0x8),D1> {}
<MI 20a5e ASL.W #0x8,D1> {}
<MI 20a60 ADDI.W #0x000b,D1> {}
<POP 20a64-20aa4 Naked> Σ0 ↓ ←0x20a54
<MI 20a64 MOVE.W D1,(A6-0xc)> {}
<MI 20a68 MOVE.L (A0+D0.W+#0x22),D1> {}
<POP 0x20a6c LimitCheck 0x0 ≤ D1 ≤ 0xffff> {}
<MI 20a72 MOVE.W D1,(A6-0xa)> {}
<MI 20a76 MOVE.L (A0+D0.W+#0x1e),D1> {}
<MI 20a7a ASL.L #0x8,D1> {}
<MI 20a7c ADD.L (A0+D0.W+#0x1a),D1> {}
<POP 0x20a80 LimitCheck 0x0 ≤ D1 ≤ 0xffff> {}
<MI 20a86 MOVE.W D1,(A6-0x8)> {}
<Pointer.fp 0x20a8a <LVAR -0x016 @ 2(w)>> Δ-4 {[@@-22]}
<MI 20a8e LEA.L (A0+D0.W+#0x32),A1> {[@@-22]}
<MI 20a92 MOVE.L A1,-(A7)> Δ-4 {[@@-22]|[4, 'A1']}
<MI 20a94 MOVE.W (A6+0x8),-(A7)> Δ-2 {[@@-22]|[4, 'A1']|[2, '(A6+0x8)']}
<Call 0x20a96 0x10204> {[@@-22]|[4, 'A1']|[2, '(A6+0x8)']}
KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
<POP 20a9c-20aa0 StackAdj> Δ+10 {}
<MI 20aa0 CLR.B (A0+D0.W+#0xd)> {}
<POP 20aa4-20aac Epilogue> Σ0
@ 20aac
<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 20aac-20b7a Body>
<POP 20aac-20ac2 Prologue> Σ0 ↓
<POP 20ac2-20ad0 RegCacheLoad> Σ0 ↓
<POP 20ad0-20b72 Naked> Σ0 ↓
<MI 20ad0 MOVE.W #0x444,D0> {}
<MI 20ad4 MULS.W (A6+0x8),D0> {}
<MI 20ad6 LEA.L 0x21eca,A0> {}
<POP 20adc-20ade StackAdj> Δ-4 {[-4-]}
<Const 0x20ade 0x0.4> Δ-4 {[-4-]|[##0]}
<MI 20ae0 CLR.L D1> {[-4-]|[##0]}
<MI 20ae2 MOVE.W (A0+D0.W+#0x30),D1> {[-4-]|[##0]}
<MI 20ae6 SUBQ.L #0x1,D1> {[-4-]|[##0]}
<MI 20ae8 MOVE.L D1,-(A7)> Δ-4 {[-4-]|[##0]|[4, 'D1']}
<Call 0x20aea 0x20558> {[-4-]|[##0]|[4, 'D1']}
<POP 20aec-20aee StackAdj> Δ+8 {[-4-]}
<MI 20aee MOVE.L (A7)+,D1> Δ+4 {}
<MI 20af0 ASL.L #0x1,D1> {}
<MI 20af2 MOVE.L D1,(A0+D0.W+#0x1a)> {}
<POP 20af6-20af8 StackAdj> Δ-4 {[-4-]}
<Const 0x20af8 0x0.4> Δ-4 {[-4-]|[##0]}
<MI 20afa CLR.L D1> {[-4-]|[##0]}
<MI 20afc MOVE.W (A0+D0.W+#0x2e),D1> {[-4-]|[##0]}
<MI 20b00 SUBQ.L #0x1,D1> {[-4-]|[##0]}
<MI 20b02 MOVE.L D1,-(A7)> Δ-4 {[-4-]|[##0]|[4, 'D1']}
<Call 0x20b04 0x20558> {[-4-]|[##0]|[4, 'D1']}
<POP 20b06-20b08 StackAdj> Δ+8 {[-4-]}
<MI 20b08 MOVE.L (A7),(A0+D0.W+#0x1e)> {[-4-]}
<Const 0x20b0c 0x0.4> Δ-4 {[-4-]|[##0]}
<MI 20b0e MOVE.L (A0+D0.W+#0x2a),-(A7)> Δ-4 {[-4-]|[##0]|[4, '(A0+D0.W+#0x2a)']}
<Call 0x20b12 0x20558> {[-4-]|[##0]|[4, '(A0+D0.W+#0x2a)']}
<POP 20b14-20b16 StackAdj> Δ+8 {[-4-]}
<MI 20b16 MOVE.L (A7)+,(A0+D0.W+#0x22)> Δ+4 {}
<MI 20b1a MOVE.W #0x100,(A6-0x12)> {}
<MI 20b20 MOVE.W #0x02,(A6-0xe)> {}
<MI 20b24 MOVE.W (A6+0x8),D1> {}
<MI 20b26 ASL.W #0x8,D1> {}
<MI 20b28 ADDQ.W #0x2,D1> {}
<MI 20b2a MOVE.W D1,(A6-0x8)> {}
<MI 20b2e MOVE.L (A0+D0.W+#0x22),D1> {}
<POP 0x20b32 LimitCheck 0x0 ≤ D1 ≤ 0xffff> {}
<MI 20b3c MOVE.W D1,(A6-0x6)> {}
<MI 20b40 MOVE.L (A0+D0.W+#0x1e),D1> {}
<MI 20b44 ASL.L #0x8,D1> {}
<MI 20b46 ADD.L (A0+D0.W+#0x1a),D1> {}
<POP 0x20b4a LimitCheck 0x0 ≤ D1 ≤ 0xffff> {}
<MI 20b54 MOVE.W D1,(A6-0x4)> {}
<Pointer.fp 0x20b58 <LVAR -0x012 @ 2(w)>> Δ-4 {[@@-18]}
<MI 20b5c LEA.L (A0+D0.W+#0x32),A1> {[@@-18]}
<MI 20b60 MOVE.L A1,-(A7)> Δ-4 {[@@-18]|[4, 'A1']}
<MI 20b62 MOVE.W (A6+0x8),-(A7)> Δ-2 {[@@-18]|[4, 'A1']|[2, '(A6+0x8)']}
<Call 0x20b64 0x10204> {[@@-18]|[4, 'A1']|[2, '(A6+0x8)']}
KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
<POP 20b6a-20b6e StackAdj> Δ+10 {}
<MI 20b6e MOVE.B #0x02,(A0+D0.W+#0xd)> {}
<POP 20b72-20b7a Epilogue> Σ0
@ 20b7a
<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 20b7a-20c1a Body>
<POP 20b7a-20b90 Prologue> Σ0 ↓
<POP 20b90-20b94 RegCacheLoad> Σ0 ↓
<POP 20b94-20bb8 Naked> Σ0 ↓ →0x20bc0
<MI 20b94 MOVE.W #0x444,D0> {}
<MI 20b98 MULS.W (A6+0x8),D0> {}
<MI 20b9a LEA.L 0x21eca,A0> {}
<MI 20ba0 MOVE.W #0x100,(A6-0x12)> {}
<MI 20ba6 MOVE.W #0x2,(A6-0xe)> {}
<POP 20bac-20bae StackAdj> Δ-2 {[-2-]}
<Call 0x20bae 0x1060a> {[-2-]}
Is_machine_type_four() : Bool
<MI 20bb4 TST.B (A7)+> Δ+2 {}
<MI 20bb6 BEQ 0x20bc0> {}
<POP 20bb8-20bc0 Naked> Σ0 →0x20bc8
<MI 20bb8 MOVE.W (A6+0x8),D1> {}
<MI 20bba ASL.W #0x8,D1> {}
<MI 20bbc ADDQ.W #0x2,D1> {}
<MI 20bbe BRA 0x20bc8> {}
<POP 20bc0-20bc8 Naked> Σ0 ↓ ←0x20b94
<MI 20bc0 MOVE.W (A6+0x8),D1> {}
<MI 20bc2 ASL.W #0x8,D1> {}
<MI 20bc4 ADDI.W #0x000c,D1> {}
<POP 20bc8-20c12 Naked> Σ0 ↓ ←0x20bb8
<MI 20bc8 MOVE.W D1,(A6-0x8)> {}
<MI 20bcc MOVE.L (A0+D0.W+#0x22),D1> {}
<POP 0x20bd0 LimitCheck 0x0 ≤ D1 ≤ 0xffff> {}
<MI 20bda MOVE.W D1,(A6-0x6)> {}
<MI 20bde MOVE.L (A0+D0.W+#0x1e),D1> {}
<MI 20be2 ASL.L #0x8,D1> {}
<MI 20be4 ADD.L (A0+D0.W+#0x1a),D1> {}
<POP 0x20be8 LimitCheck 0x0 ≤ D1 ≤ 0xffff> {}
<MI 20bf2 MOVE.W D1,(A6-0x4)> {}
<Pointer.fp 0x20bf6 <LVAR -0x012 @ 2(w)>> Δ-4 {[@@-18]}
<MI 20bfa LEA.L (A0+D0.W+#0x32),A1> {[@@-18]}
<MI 20bfe MOVE.L A1,-(A7)> Δ-4 {[@@-18]|[4, 'A1']}
<MI 20c00 MOVE.W (A6+0x8),-(A7)> Δ-2 {[@@-18]|[4, 'A1']|[2, '(A6+0x8)']}
<Call 0x20c02 0x10204> {[@@-18]|[4, 'A1']|[2, '(A6+0x8)']}
KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
<POP 20c08-20c0c StackAdj> Δ+10 {}
<MI 20c0c MOVE.B #0x01,(A0+D0.W+#0xd)> {}
<POP 20c12-20c1a Epilogue> Σ0
@ 20c1a
<LVAR 0x00a 4(r)>
<LVAR 0x008 2(r)>
<LVAR -0x004 @ 4(r)>
<POP 20c1a-2143a Body>
<POP 20c1a-20c30 Prologue> Σ0 ↓
<POP 20c30-20c42 RegCacheLoad> Σ0 ↓
<POP 20c42-20d18 Naked> Σ0 Δ-6 ↓
<Pointer.fp 0x20c42 <LVAR -0x004 @ 4(r)>> Δ-4 {[@@-4]}
<Call 0x20c46 0x10304> {[@@-4]}
GetRtc() : TimeStamp
<POP 20c4c-20c4e StackAdj> Δ+4 {}
<Blob 0x20c4e [14] @> Δ-14 {[«14""»]}
<Blob 0x20c5a [4] @> Δ-4 {[«14""»]|[«4""»]}
<Blob 0x20c5e [18] @> Δ-18 {[«14""»]|[«4""»]|[«18""»]}
<POP 20c6e-20c70 StackAdj> Δ-8 {[«14""»]|[«4""»]|[«18""»]|[-8-]}
<Lit 0x20c70 14> {[«14""»]|[«4""»]|[«18""»]|[-4-]|[$$Error on unit_]}
<POP 20c7c-20c7e StackAdj> Δ-4 {[«14""»]|[«4""»]|[«18""»]|[-4-]|[$$Error on unit_]|[-4-]}
<MI 20c7e MOVE.W (A6+0x8),D0> {[«14""»]|[«4""»]|[«18""»]|[-4-]|[$$Error on unit_]|[-4-]}
<MI 20c82 EXTW.L D0> {[«14""»]|[«4""»]|[«18""»]|[-4-]|[$$Error on unit_]|[-4-]}
<MI 20c84 MOVE.L D0,-(A7)> Δ-4 {[«14""»]|[«4""»]|[«18""»]|[-4-]|[$$Error on unit_]|[-4-]|[4, 'D0']}
<Call 0x20c86 0x102e4> {[«14""»]|[«4""»]|[«18""»]|[-4-]|[$$Error on unit_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<Lit 0x20c8c 4> {[«14""»]|[«4""»]|[«18""»]|[-4-]|[$$Error on unit_]|[-4-]|[$$ at_]}
<MI 20c98 MOVE.L (A6-0x4),(A7)> {[«14""»]|[«4""»]|[«18""»]|[-4-]|[$$Error on unit_]|[-4-]|[4, '(A6-0x4)']}
<POP 20c96-20c98 StackAdj> Δ-8 {[«14""»]|[«4""»]|[«18""»]|[-4-]|[$$Error on unit_]|[-4-]|[4, '(A6-0x4)']|[-8-]}
<Call 0x20c9c 0x10308> {[«14""»]|[«4""»]|[«18""»]|[-4-]|[$$Error on unit_]|[-4-]|[4, '(A6-0x4)']|[-8-]}
TimeToText()
<Lit 0x20ca2 17> {[«14""»]|[«4""»]|[«18""»]|[-4-]|[$$Error on unit_]|[-4-]|[4, '(A6-0x4)']|[-4-]|[$$ test started at_]}
<POP 20cae-20caf StackAdj> Δ-4 {[«14""»]|[«4""»]|[«18""»]|[-4-]|[$$Error on unit_]|[-4-]|[4, '(A6-0x4)']|[-4-]|[$$ test started at_]|[-4-]}
<Blob 0x20caf [4] 0x21ed2> Δ-4 {[«14""»]|[«4""»]|[«18""»]|[-4-]|[$$Error on unit_]|[-4-]|[4, '(A6-0x4)']|[-4-]|[$$ test started at_]|[-4-]|[«4»]}
<Call 0x20cb4 0x10308> {[«14""»]|[«4""»]|[«18""»]|[-4-]|[$$Error on unit_]|[-4-]|[4, '(A6-0x4)']|[-4-]|[$$ test started at_]|[-4-]|[«4»]}
TimeToText()
<POP 20cba-20cbc StackAdj> Δ+4 {[«14""»]|[«4""»]|[«18""»]|[-4-]|[$$Error on unit_]|[-4-]|[4, '(A6-0x4)']|[-4-]|[$$ test started at_]|[-4-]}
<Call 0x20cbc 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 20cc2-20cc6 StackAdj> Δ+24 {[«14""»]|[«4""»]|[«18""»]|[-4-]}
<Call 0x20cc6 0x103e0> {[«14""»]|[«4""»]|[«18""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 20cc8-20ccc StackAdj> Δ+40 {}
<MI 20ccc MOVE.W #0x444,D0> {}
<MI 20cd0 MULS.W (A6+0x8),D0> {}
<MI 20cd4 LEA.L 0x21eca,A0> {}
<MI 20cda MOVE.W D0,-(A7)> Δ-2 {[2, 'D0']}
<MI 20cdc MOVE.L A0,-(A7)> Δ-4 {[2, 'D0']|[4, 'A0']}
<Blob 0x20cde [18] @> Δ-18 {[2, 'D0']|[4, 'A0']|[«18""»]}
<POP 20cea-20cec StackAdj> Δ-4 {[2, 'D0']|[4, 'A0']|[«18""»]|[-4-]}
<MI 20cec MOVE.L (A6+0xa),-(A7)> Δ-4 {[2, 'D0']|[4, 'A0']|[«18""»]|[-4-]|[4, '(A6+0xa)']}
<POP 20cf0-20cf2 StackAdj> Δ-4 {[2, 'D0']|[4, 'A0']|[«18""»]|[-4-]|[4, '(A6+0xa)']|[-4-]}
<Lit 0x20cf2 18> {[2, 'D0']|[4, 'A0']|[«18""»]|[-4-]|[4, '(A6+0xa)']|[$$ error, retries =>]}
<MI 20cfc MOVE.L (A0+D0.W+#0x16),(A7)> {[2, 'D0']|[4, 'A0']|[«18""»]|[-4-]|[4, '(A6+0xa)']|[4, '(A0+D0.W+#0x16)']}
<POP 20cfa-20cfc StackAdj> Δ-8 {[2, 'D0']|[4, 'A0']|[«18""»]|[-4-]|[4, '(A6+0xa)']|[4, '(A0+D0.W+#0x16)']|[-8-]}
<Call 0x20d00 0x102e4> {[2, 'D0']|[4, 'A0']|[«18""»]|[-4-]|[4, '(A6+0xa)']|[4, '(A0+D0.W+#0x16)']|[-8-]}
Long2String(a : Long) : String
<POP 20d06-20d08 StackAdj> Δ+4 {[2, 'D0']|[4, 'A0']|[«18""»]|[-4-]|[4, '(A6+0xa)']|[4, '(A0+D0.W+#0x16)']|[-4-]}
<Call 0x20d08 0x102d4> {[2, 'D0']|[4, 'A0']|[«18""»]|[-4-]|[4, '(A6+0xa)']|[4, '(A0+D0.W+#0x16)']|[-4-]}
StringCat3(a, b, c : String) : String
<POP 20d0e-20d12 StackAdj> Δ+12 {[2, 'D0']|[4, 'A0']|[«18""»]|[-4-]}
<Call 0x20d12 0x103e0> {[2, 'D0']|[4, 'A0']|[«18""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 20d14-20d16 StackAdj> Δ+22 {[2, 'D0']|[4, 'A0']}
<MI 20d16 MOVEQ.L #0x00,D7> {[2, 'D0']|[4, 'A0']}
<POP 20d18-20da0 Naked> Σ-6 ↓ →0x20d18 ←0x20d18
<POP 0x20d18 LimitCheck 0x0 ≤ D7 ≤ 0x8> {[-6-]}
<MI 20d22 MOVE.L D7,D4> {[-6-]}
<MI 20d24 MOVEQ.L #0x05,D3> {[-6-]}
<Call 0x20d26 0x1028c> {[-6-]}
?muls_d3_d4
<MI 20d2c LEA.L 0x2052a,A0> {[-6-]}
<Blob 0x20d30 [6] (A0+D4.L)> Δ-6 {[-6-]|[«6»]}
<POP 20d40-20d42 StackAdj> Δ-8 {[-6-]|[«6»]|[-8-]}
<Lit 0x20d42> {[-6-]|[«6»]|[-4-]|[$$…]}
<Pointer.sp 0x20d42 8> Δ-4
<Const 0x20d46 0x1.2> Δ-2
<Const 0x20d48 0x5.2> Δ-2
<Call 0x20d4c 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 20d4e-20d50 StackAdj> Δ+8
<POP 20d4e-20d50 StackAdj> Δ-4 {[-6-]|[«6»]|[-4-]|[$$…]|[-4-]}
<POP 0x20d50 LimitCheck 0x0 ≤ D7 ≤ 0xa> {[-6-]|[«6»]|[-4-]|[$$…]|[-4-]}
<MI 20d5a MOVE.L D7,D0> {[-6-]|[«6»]|[-4-]|[$$…]|[-4-]}
<MI 20d5c ASL.L #0x1,D0> {[-6-]|[«6»]|[-4-]|[$$…]|[-4-]}
<MI 20d5e MOVEA.L (A7+0x12),A0> {[-6-]|[«6»]|[-4-]|[$$…]|[-4-]}
<MI 20d62 MOVE.W (A7+0x16),D1> {[-6-]|[«6»]|[-4-]|[$$…]|[-4-]}
<MI 20d66 LEA.L (A0+D1.W+#0xc),A0> {[-6-]|[«6»]|[-4-]|[$$…]|[-4-]}
<MI 20d6a LEA.L (A0+D0.L),A0> {[-6-]|[«6»]|[-4-]|[$$…]|[-4-]}
<MI 20d6e CLR.L D0> {[-6-]|[«6»]|[-4-]|[$$…]|[-4-]}
<MI 20d70 MOVE.W (A0+0x426),D0> {[-6-]|[«6»]|[-4-]|[$$…]|[-4-]}
<MI 20d74 MOVE.L D0,-(A7)> Δ-4 {[-6-]|[«6»]|[-4-]|[$$…]|[-4-]|[4, 'D0']}
<Const 0x20d76 0x4.4> Δ-4 {[-6-]|[«6»]|[-4-]|[$$…]|[-4-]|[4, 'D0']|[##4]}
<Call 0x20d7a 0x102e8> {[-6-]|[«6»]|[-4-]|[$$…]|[-4-]|[4, 'D0']|[##4]}
Long2HexString(val : Long; ndig : Long) : String
<POP 20d80-20d82 StackAdj> Δ+8 {[-6-]|[«6»]|[-4-]|[$$…]|[-4-]}
<Call 0x20d82 0x102d0> {[-6-]|[«6»]|[-4-]|[$$…]|[-4-]}
StringCat2(a, b : String) : String
<POP 20d88-20d8a StackAdj> Δ+8 {[-6-]|[«6»]|[-4-]}
<Call 0x20d8a 0x103d8> {[-6-]|[«6»]|[-4-]}
WriteConsoleString(str : String)
<POP 20d90-20d94 StackAdj> Δ+10 {[-6-]}
<MI 20d94 ADDQ.L #0x1,D7> {[-6-]}
<MI 20d96 CMPI.L #0x00000008,D7> {[-6-]}
<MI 20d9c BLE 0x20d18> {[-6-]}
<POP 20da0-20dbc Naked> Σ-6 Δ-4 ↓ →0x20de0
<Call 0x20da0 0x103dc> {[-6-]}
WriteConsoleCrLf(void)
<MI 20da6 MOVEA.L (A7),A0> {[-6-]}
<MI 20da8 MOVE.W (A7+0x4),D0> {[-6-]}
<MI 20dac LEA.L (A0+D0.W+#0xc),A0> {[-6-]}
<MI 20db0 MOVE.L A0,-(A7)> Δ-4 {[-6-]|[4, 'A0']}
<MI 20db2 MOVE.W (A0+0x426),D0> {[-6-]|[4, 'A0']}
<MI 20db6 ANDI.W #0x8000,D0> {[-6-]|[4, 'A0']}
<MI 20dba BEQ 0x20de0> {[-6-]|[4, 'A0']}
<POP 20dbc-20de0 Naked> Σ-10 ↓
<Blob 0x20dbc [18] @> Δ-18 {[-10-]|[«18""»]}
<POP 20dcc-20dce StackAdj> Δ-4 {[-10-]|[«18""»]|[-4-]}
<Lit 0x20dce 17> {[-10-]|[«18""»]|[$$Special condition]}
<Call 0x20ddc 0x103e0> {[-10-]|[«18""»]|[$$Special condition]}
WriteConsoleStringCrLf(str : String)
<POP 20dde-20de0 StackAdj> Δ+22 {[-10-]}
<POP 20de0-20dea Naked> Σ-10 ↓ →0x20e0a ←0x20da0
<MI 20de0 MOVE.W (A0+0x426),D0> {[-10-]}
<MI 20de4 ANDI.W #0x4000,D0> {[-10-]}
<MI 20de8 BEQ 0x20e0a> {[-10-]}
<POP 20dea-20e0a Naked> Σ-10 ↓
<Blob 0x20dea [14] @> Δ-14 {[-10-]|[«14""»]}
<POP 20df6-20df8 StackAdj> Δ-4 {[-10-]|[«14""»]|[-4-]}
<Lit 0x20df8 14> {[-10-]|[«14""»]|[$$Transfer error]}
<Call 0x20e06 0x103e0> {[-10-]|[«14""»]|[$$Transfer error]}
WriteConsoleStringCrLf(str : String)
<POP 20e08-20e0a StackAdj> Δ+18 {[-10-]}
<POP 20e0a-20e14 Naked> Σ-10 ↓ →0x20e34 ←0x20de0
<MI 20e0a MOVE.W (A0+0x426),D0> {[-10-]}
<MI 20e0e ANDI.W #0x0800,D0> {[-10-]}
<MI 20e12 BNE 0x20e34> {[-10-]}
<POP 20e14-20e34 Naked> Σ-10 ↓
<Blob 0x20e14 [22] @> Δ-22 {[-10-]|[«22""»]}
<POP 20e20-20e22 StackAdj> Δ-4 {[-10-]|[«22""»]|[-4-]}
<Lit 0x20e22 22> {[-10-]|[«22""»]|[$$Drive is not available]}
<Call 0x20e2e 0x103e0> {[-10-]|[«22""»]|[$$Drive is not available]}
WriteConsoleStringCrLf(str : String)
<POP 20e30-20e34 StackAdj> Δ+26 {[-10-]}
<POP 20e34-20e3e Naked> Σ-10 ↓ →0x20e5c ←0x20e0a
<MI 20e34 MOVE.W (A0+0x426),D0> {[-10-]}
<MI 20e38 ANDI.W #0x0080,D0> {[-10-]}
<MI 20e3c BNE 0x20e5c> {[-10-]}
<POP 20e3e-20e5c Naked> Σ-10 ↓
<Blob 0x20e3e [18] @> Δ-18 {[-10-]|[«18""»]}
<POP 20e4a-20e4c StackAdj> Δ-4 {[-10-]|[«18""»]|[-4-]}
<Lit 0x20e4c 18> {[-10-]|[«18""»]|[$$Drive is not ready]}
<Call 0x20e58 0x103e0> {[-10-]|[«18""»]|[$$Drive is not ready]}
WriteConsoleStringCrLf(str : String)
<POP 20e5a-20e5c StackAdj> Δ+22 {[-10-]}
<POP 20e5c-20e68 Naked> Σ-10 ↓ →0x20e90 ←0x20e34
<MI 20e5c MOVEA.L (A7),A0> {[-10-]}
<MI 20e5e MOVE.W (A0+0x428),D0> {[-10-]}
<MI 20e62 ANDI.W #0x8000,D0> {[-10-]}
<MI 20e66 BEQ 0x20e90> {[-10-]}
<POP 20e68-20e90 Naked> Σ-10 ↓
<Blob 0x20e68 [10] @> Δ-10 {[-10-]|[«10""»]}
<POP 20e7a-20e7c StackAdj> Δ-4 {[-10-]|[«10""»]|[-4-]}
<Lit 0x20e7c 9> {[-10-]|[«10""»]|[$$Data late]}
<Call 0x20e8a 0x103e0> {[-10-]|[«10""»]|[$$Data late]}
WriteConsoleStringCrLf(str : String)
<POP 20e8c-20e90 StackAdj> Δ+14 {[-10-]}
<POP 20e90-20e9a Naked> Σ-10 ↓ →0x20ebe ←0x20e5c
<MI 20e90 MOVE.W (A0+0x428),D0> {[-10-]}
<MI 20e94 ANDI.W #0x4000,D0> {[-10-]}
<MI 20e98 BEQ 0x20ebe> {[-10-]}
<POP 20e9a-20ebe Naked> Σ-10 ↓
<Blob 0x20e9a [18] @> Δ-18 {[-10-]|[«18""»]}
<POP 20eaa-20eac StackAdj> Δ-4 {[-10-]|[«18""»]|[-4-]}
<Lit 0x20eac 17> {[-10-]|[«18""»]|[$$Write check error]}
<Call 0x20eba 0x103e0> {[-10-]|[«18""»]|[$$Write check error]}
WriteConsoleStringCrLf(str : String)
<POP 20ebc-20ebe StackAdj> Δ+22 {[-10-]}
<POP 20ebe-20ec8 Naked> Σ-10 ↓ →0x20ee6 ←0x20e90
<MI 20ebe MOVE.W (A0+0x428),D0> {[-10-]}
<MI 20ec2 ANDI.W #0x1000,D0> {[-10-]}
<MI 20ec6 BEQ 0x20ee6> {[-10-]}
<POP 20ec8-20ee6 Naked> Σ-10 ↓
<Blob 0x20ec8 [18] @> Δ-18 {[-10-]|[«18""»]}
<POP 20ed4-20ed6 StackAdj> Δ-4 {[-10-]|[«18""»]|[-4-]}
<Lit 0x20ed6 18> {[-10-]|[«18""»]|[$$Non-existent drive]}
<Call 0x20ee2 0x103e0> {[-10-]|[«18""»]|[$$Non-existent drive]}
WriteConsoleStringCrLf(str : String)
<POP 20ee4-20ee6 StackAdj> Δ+22 {[-10-]}
<POP 20ee6-20ef0 Naked> Σ-10 ↓ →0x20f18 ←0x20ebe
<MI 20ee6 MOVE.W (A0+0x428),D0> {[-10-]}
<MI 20eea ANDI.W #0x0800,D0> {[-10-]}
<MI 20eee BEQ 0x20f18> {[-10-]}
<POP 20ef0-20f18 Naked> Σ-10 ↓
<Blob 0x20ef0 [20] @> Δ-20 {[-10-]|[«20""»]}
<POP 20f02-20f04 StackAdj> Δ-4 {[-10-]|[«20""»]|[-4-]}
<Lit 0x20f04 19> {[-10-]|[«20""»]|[$$Non-existent memory]}
<Call 0x20f12 0x103e0> {[-10-]|[«20""»]|[$$Non-existent memory]}
WriteConsoleStringCrLf(str : String)
<POP 20f14-20f18 StackAdj> Δ+24 {[-10-]}
<POP 20f18-20f22 Naked> Σ-10 ↓ →0x20f48 ←0x20ee6
<MI 20f18 MOVE.W (A0+0x428),D0> {[-10-]}
<MI 20f1c ANDI.W #0x0400,D0> {[-10-]}
<MI 20f20 BEQ 0x20f48> {[-10-]}
<POP 20f22-20f48 Naked> Σ-10 ↓
<Blob 0x20f22 [14] @> Δ-14 {[-10-]|[«14""»]}
<POP 20f34-20f36 StackAdj> Δ-4 {[-10-]|[«14""»]|[-4-]}
<Lit 0x20f36 13> {[-10-]|[«14""»]|[$$Program error]}
<Call 0x20f44 0x103e0> {[-10-]|[«14""»]|[$$Program error]}
WriteConsoleStringCrLf(str : String)
<POP 20f46-20f48 StackAdj> Δ+18 {[-10-]}
<POP 20f48-20f52 Naked> Σ-10 ↓ →0x20f7a ←0x20f18
<MI 20f48 MOVE.W (A0+0x428),D0> {[-10-]}
<MI 20f4c ANDI.W #0x0200,D0> {[-10-]}
<MI 20f50 BEQ 0x20f7a> {[-10-]}
<POP 20f52-20f7a Naked> Σ-10 ↓
<Blob 0x20f52 [16] @> Δ-16 {[-10-]|[«16""»]}
<POP 20f64-20f66 StackAdj> Δ-4 {[-10-]|[«16""»]|[-4-]}
<Lit 0x20f66 15> {[-10-]|[«16""»]|[$$Missed transfer]}
<Call 0x20f74 0x103e0> {[-10-]|[«16""»]|[$$Missed transfer]}
WriteConsoleStringCrLf(str : String)
<POP 20f76-20f7a StackAdj> Δ+20 {[-10-]}
<POP 20f7a-20f84 Naked> Σ-10 ↓ →0x20fac ←0x20f48
<MI 20f7a MOVE.W (A0+0x428),D0> {[-10-]}
<MI 20f7e ANDI.W #0x0040,D0> {[-10-]}
<MI 20f82 BNE 0x20fac> {[-10-]}
<POP 20f84-20fac Naked> Σ-10 ↓
<Blob 0x20f84 [16] @> Δ-16 {[-10-]|[«16""»]}
<POP 20f96-20f98 StackAdj> Δ-4 {[-10-]|[«16""»]|[-4-]}
<Lit 0x20f98 15> {[-10-]|[«16""»]|[$$Input not ready]}
<Call 0x20fa6 0x103e0> {[-10-]|[«16""»]|[$$Input not ready]}
WriteConsoleStringCrLf(str : String)
<POP 20fa8-20fac StackAdj> Δ+20 {[-10-]}
<POP 20fac-20fb6 Naked> Σ-10 ↓ →0x20fde ←0x20f7a
<MI 20fac MOVE.W (A0+0x428),D0> {[-10-]}
<MI 20fb0 ANDI.W #0x0004,D0> {[-10-]}
<MI 20fb4 BEQ 0x20fde> {[-10-]}
<POP 20fb6-20fde Naked> Σ-10 ↓
<Blob 0x20fb6 [30] @> Δ-30 {[-10-]|[«30""»]}
<POP 20fc8-20fca StackAdj> Δ-4 {[-10-]|[«30""»]|[-4-]}
<Lit 0x20fca 29> {[-10-]|[«30""»]|[$$Bus address increment inhibit]}
<Call 0x20fd8 0x103e0> {[-10-]|[«30""»]|[$$Bus address increment inhibit]}
WriteConsoleStringCrLf(str : String)
<POP 20fda-20fde StackAdj> Δ+34 {[-10-]}
<POP 20fde-20fe8 Naked> Σ-10 ↓ →0x21010 ←0x20fac
<MI 20fde MOVE.W (A0+0x42a),D0> {[-10-]}
<MI 20fe2 ANDI.W #0x2000,D0> {[-10-]}
<MI 20fe6 BEQ 0x21010> {[-10-]}
<POP 20fe8-21010 Naked> Σ-10 ↓
<Blob 0x20fe8 [24] @> Δ-24 {[-10-]|[«24""»]}
<POP 20ffa-20ffc StackAdj> Δ-4 {[-10-]|[«24""»]|[-4-]}
<Lit 0x20ffc 23> {[-10-]|[«24""»]|[$$Positioning in progress]}
<Call 0x2100a 0x103e0> {[-10-]|[«24""»]|[$$Positioning in progress]}
WriteConsoleStringCrLf(str : String)
<POP 2100c-21010 StackAdj> Δ+28 {[-10-]}
<POP 21010-2101a Naked> Σ-10 ↓ →0x21038 ←0x20fde
<MI 21010 MOVE.W (A0+0x42a),D0> {[-10-]}
<MI 21014 ANDI.W #0x1000,D0> {[-10-]}
<MI 21018 BNE 0x21038> {[-10-]}
<POP 2101a-21038 Naked> Σ-10 ↓
<Blob 0x2101a [18] @> Δ-18 {[-10-]|[«18""»]}
<POP 21026-21028 StackAdj> Δ-4 {[-10-]|[«18""»]|[-4-]}
<Lit 0x21028 18> {[-10-]|[«18""»]|[$$Medium not on-line]}
<Call 0x21034 0x103e0> {[-10-]|[«18""»]|[$$Medium not on-line]}
WriteConsoleStringCrLf(str : String)
<POP 21036-21038 StackAdj> Δ+22 {[-10-]}
<POP 21038-21042 Naked> Σ-10 ↓ →0x21064 ←0x21010
<MI 21038 MOVE.W (A0+0x42a),D0> {[-10-]}
<MI 2103c ANDI.W #0x0800,D0> {[-10-]}
<MI 21040 BEQ 0x21064> {[-10-]}
<POP 21042-21064 Naked> Σ-10 ↓
<Blob 0x21042 [4] @> Δ-4 {[-10-]|[«4""»]}
<Blob 0x21046 [4] @> Δ-4 {[-10-]|[«4""»]|[«4""»]}
<Blob 0x2104a [4] @> Δ-4 {[-10-]|[«4""»]|[«4""»]|[«4""»]}
<POP 2104e-21050 StackAdj> Δ-4 {[-10-]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x21050 12> {[-10-]|[«4""»]|[«4""»]|[«4""»]|[$$Write locked]}
<Call 0x2105e 0x103e0> {[-10-]|[«4""»]|[«4""»]|[«4""»]|[$$Write locked]}
WriteConsoleStringCrLf(str : String)
<POP 21060-21064 StackAdj> Δ+16 {[-10-]}
<POP 21064-2106e Naked> Σ-10 ↓ →0x2108e ←0x21038
<MI 21064 MOVE.W (A0+0x42a),D0> {[-10-]}
<MI 21068 ANDI.W #0x0400,D0> {[-10-]}
<MI 2106c BEQ 0x2108e> {[-10-]}
<POP 2106e-2108e Naked> Σ-10 ↓
<Blob 0x2106e [22] @> Δ-22 {[-10-]|[«22""»]}
<POP 2107a-2107c StackAdj> Δ-4 {[-10-]|[«22""»]|[-4-]}
<Lit 0x2107c 22> {[-10-]|[«22""»]|[$$Last sector transfered]}
<Call 0x21088 0x103e0> {[-10-]|[«22""»]|[$$Last sector transfered]}
WriteConsoleStringCrLf(str : String)
<POP 2108a-2108e StackAdj> Δ+26 {[-10-]}
<POP 2108e-21098 Naked> Σ-10 ↓ →0x210bc ←0x21064
<MI 2108e MOVE.W (A0+0x42a),D0> {[-10-]}
<MI 21092 ANDI.W #0x0100,D0> {[-10-]}
<MI 21096 BNE 0x210bc> {[-10-]}
<POP 21098-210bc Naked> Σ-10 ↓
<Blob 0x21098 [18] @> Δ-18 {[-10-]|[«18""»]}
<POP 210a8-210aa StackAdj> Δ-4 {[-10-]|[«18""»]|[-4-]}
<Lit 0x210aa 17> {[-10-]|[«18""»]|[$$Drive not present]}
<Call 0x210b8 0x103e0> {[-10-]|[«18""»]|[$$Drive not present]}
WriteConsoleStringCrLf(str : String)
<POP 210ba-210bc StackAdj> Δ+22 {[-10-]}
<POP 210bc-210c6 Naked> Σ-10 ↓ →0x210ee ←0x2108e
<MI 210bc MOVE.W (A0+0x42a),D0> {[-10-]}
<MI 210c0 ANDI.W #0x0080,D0> {[-10-]}
<MI 210c4 BNE 0x210ee> {[-10-]}
<POP 210c6-210ee Naked> Σ-10 ↓
<Blob 0x210c6 [16] @> Δ-16 {[-10-]|[«16""»]}
<POP 210d8-210da StackAdj> Δ-4 {[-10-]|[«16""»]|[-4-]}
<Lit 0x210da 15> {[-10-]|[«16""»]|[$$Drive not ready]}
<Call 0x210e8 0x103e0> {[-10-]|[«16""»]|[$$Drive not ready]}
WriteConsoleStringCrLf(str : String)
<POP 210ea-210ee StackAdj> Δ+20 {[-10-]}
<POP 210ee-210f8 Naked> Σ-10 ↓ →0x2111e ←0x210bc
<MI 210ee MOVE.W (A0+0x42a),D0> {[-10-]}
<MI 210f2 ANDI.W #0x0040,D0> {[-10-]}
<MI 210f6 BNE 0x2111e> {[-10-]}
<POP 210f8-2111e Naked> Σ-10 ↓
<Blob 0x210f8 [4] @> Δ-4 {[-10-]|[«4""»]}
<Blob 0x210fc [4] @> Δ-4 {[-10-]|[«4""»]|[«4""»]}
<Blob 0x21100 [4] @> Δ-4 {[-10-]|[«4""»]|[«4""»]|[«4""»]}
<Blob 0x21104 [4] @> Δ-4 {[-10-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 21108-2110a StackAdj> Δ-4 {[-10-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x2110a 16> {[-10-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Volume not valid]}
<Call 0x21118 0x103e0> {[-10-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Volume not valid]}
WriteConsoleStringCrLf(str : String)
<POP 2111a-2111e StackAdj> Δ+20 {[-10-]}
<POP 2111e-21128 Naked> Σ-10 ↓ →0x2114e ←0x210ee
<MI 2111e MOVE.W (A0+0x42c),D0> {[-10-]}
<MI 21122 ANDI.W #0x8000,D0> {[-10-]}
<MI 21126 BEQ 0x2114e> {[-10-]}
<POP 21128-2114e Naked> Σ-10 ↓
<Blob 0x21128 [4] @> Δ-4 {[-10-]|[«4""»]}
<Blob 0x2112c [4] @> Δ-4 {[-10-]|[«4""»]|[«4""»]}
<Blob 0x21130 [4] @> Δ-4 {[-10-]|[«4""»]|[«4""»]|[«4""»]}
<Blob 0x21134 [4] @> Δ-4 {[-10-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 21138-2113a StackAdj> Δ-4 {[-10-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x2113a 16> {[-10-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Data check (ECC)]}
<Call 0x21148 0x103e0> {[-10-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Data check (ECC)]}
WriteConsoleStringCrLf(str : String)
<POP 2114a-2114e StackAdj> Δ+20 {[-10-]}
<POP 2114e-21158 Naked> Σ-10 ↓ →0x2117a ←0x2111e
<MI 2114e MOVE.W (A0+0x42c),D0> {[-10-]}
<MI 21152 ANDI.W #0x4000,D0> {[-10-]}
<MI 21156 BEQ 0x2117a> {[-10-]}
<POP 21158-2117a Naked> Σ-10 ↓
<Blob 0x21158 [2] @> Δ-2 {[-10-]|[«2""»]}
<Blob 0x2115c [2] @> Δ-2 {[-10-]|[«2""»]|[«2""»]}
<Blob 0x21160 [2] @> Δ-2 {[-10-]|[«2""»]|[«2""»]|[«2""»]}
<POP 21164-21166 StackAdj> Δ-4 {[-10-]|[«2""»]|[«2""»]|[«2""»]|[-4-]}
<Lit 0x21166 6> {[-10-]|[«2""»]|[«2""»]|[«2""»]|[$$Unsafe]}
<Call 0x21174 0x103e0> {[-10-]|[«2""»]|[«2""»]|[«2""»]|[$$Unsafe]}
WriteConsoleStringCrLf(str : String)
<POP 21176-2117a StackAdj> Δ+10 {[-10-]}
<POP 2117a-21184 Naked> Σ-10 ↓ →0x211a6 ←0x2114e
<MI 2117a MOVE.W (A0+0x42c),D0> {[-10-]}
<MI 2117e ANDI.W #0x2000,D0> {[-10-]}
<MI 21182 BEQ 0x211a6> {[-10-]}
<POP 21184-211a6 Naked> Σ-10 ↓
<Blob 0x21184 [20] @> Δ-20 {[-10-]|[«20""»]}
<POP 21190-21192 StackAdj> Δ-4 {[-10-]|[«20""»]|[-4-]}
<Lit 0x21192 20> {[-10-]|[«20""»]|[$$Operation incomplete]}
<Call 0x211a0 0x103e0> {[-10-]|[«20""»]|[$$Operation incomplete]}
WriteConsoleStringCrLf(str : String)
<POP 211a2-211a6 StackAdj> Δ+24 {[-10-]}
<POP 211a6-211b0 Naked> Σ-10 ↓ →0x211ce ←0x2117a
<MI 211a6 MOVE.W (A0+0x42c),D0> {[-10-]}
<MI 211aa ANDI.W #0x1000,D0> {[-10-]}
<MI 211ae BEQ 0x211ce> {[-10-]}
<POP 211b0-211ce Naked> Σ-10 ↓
<Blob 0x211b0 [18] @> Δ-18 {[-10-]|[«18""»]}
<POP 211bc-211be StackAdj> Δ-4 {[-10-]|[«18""»]|[-4-]}
<Lit 0x211be 18> {[-10-]|[«18""»]|[$$Drive timing error]}
<Call 0x211ca 0x103e0> {[-10-]|[«18""»]|[$$Drive timing error]}
WriteConsoleStringCrLf(str : String)
<POP 211cc-211ce StackAdj> Δ+22 {[-10-]}
<POP 211ce-211d8 Naked> Σ-10 ↓ →0x211fe ←0x211a6
<MI 211ce MOVE.W (A0+0x42c),D0> {[-10-]}
<MI 211d2 ANDI.W #0x0800,D0> {[-10-]}
<MI 211d6 BEQ 0x211fe> {[-10-]}
<POP 211d8-211fe Naked> Σ-10 ↓
<Blob 0x211d8 [4] @> Δ-4 {[-10-]|[«4""»]}
<Blob 0x211dc [4] @> Δ-4 {[-10-]|[«4""»]|[«4""»]}
<Blob 0x211e0 [4] @> Δ-4 {[-10-]|[«4""»]|[«4""»]|[«4""»]}
<Blob 0x211e4 [4] @> Δ-4 {[-10-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 211e8-211ea StackAdj> Δ-4 {[-10-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x211ea 16> {[-10-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Write lock error]}
<Call 0x211f8 0x103e0> {[-10-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Write lock error]}
WriteConsoleStringCrLf(str : String)
<POP 211fa-211fe StackAdj> Δ+20 {[-10-]}
<POP 211fe-21208 Naked> Σ-10 ↓ →0x2122e ←0x211ce
<MI 211fe MOVE.W (A0+0x42c),D0> {[-10-]}
<MI 21202 ANDI.W #0x0400,D0> {[-10-]}
<MI 21206 BEQ 0x2122e> {[-10-]}
<POP 21208-2122e Naked> Σ-10 ↓
<Blob 0x21208 [22] @> Δ-22 {[-10-]|[«22""»]}
<POP 21218-2121a StackAdj> Δ-4 {[-10-]|[«22""»]|[-4-]}
<Lit 0x2121a 21> {[-10-]|[«22""»]|[$$Invalid address error]}
<Call 0x21228 0x103e0> {[-10-]|[«22""»]|[$$Invalid address error]}
WriteConsoleStringCrLf(str : String)
<POP 2122a-2122e StackAdj> Δ+26 {[-10-]}
<POP 2122e-21238 Naked> Σ-10 ↓ →0x21258 ←0x211fe
<MI 2122e MOVE.W (A0+0x42c),D0> {[-10-]}
<MI 21232 ANDI.W #0x0200,D0> {[-10-]}
<MI 21236 BEQ 0x21258> {[-10-]}
<POP 21238-21258 Naked> Σ-10 ↓
<Blob 0x21238 [22] @> Δ-22 {[-10-]|[«22""»]}
<POP 21244-21246 StackAdj> Δ-4 {[-10-]|[«22""»]|[-4-]}
<Lit 0x21246 22> {[-10-]|[«22""»]|[$$Address overflow error]}
<Call 0x21252 0x103e0> {[-10-]|[«22""»]|[$$Address overflow error]}
WriteConsoleStringCrLf(str : String)
<POP 21254-21258 StackAdj> Δ+26 {[-10-]}
<POP 21258-21262 Naked> Σ-10 ↓ →0x21288 ←0x2122e
<MI 21258 MOVE.W (A0+0x42c),D0> {[-10-]}
<MI 2125c ANDI.W #0x0100,D0> {[-10-]}
<MI 21260 BEQ 0x21288> {[-10-]}
<POP 21262-21288 Naked> Σ-10 ↓
<Blob 0x21262 [4] @> Δ-4 {[-10-]|[«4""»]}
<Blob 0x21266 [4] @> Δ-4 {[-10-]|[«4""»]|[«4""»]}
<Blob 0x2126a [4] @> Δ-4 {[-10-]|[«4""»]|[«4""»]|[«4""»]}
<Blob 0x2126e [4] @> Δ-4 {[-10-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 21272-21274 StackAdj> Δ-4 {[-10-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x21274 16> {[-10-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Header CRC error]}
<Call 0x21282 0x103e0> {[-10-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Header CRC error]}
WriteConsoleStringCrLf(str : String)
<POP 21284-21288 StackAdj> Δ+20 {[-10-]}
<POP 21288-21292 Naked> Σ-10 ↓ →0x212b4 ←0x21258
<MI 21288 MOVE.W (A0+0x42c),D0> {[-10-]}
<MI 2128c ANDI.W #0x0080,D0> {[-10-]}
<MI 21290 BEQ 0x212b4> {[-10-]}
<POP 21292-212b4 Naked> Σ-10 ↓
<Blob 0x21292 [20] @> Δ-20 {[-10-]|[«20""»]}
<POP 2129e-212a0 StackAdj> Δ-4 {[-10-]|[«20""»]|[-4-]}
<Lit 0x212a0 20> {[-10-]|[«20""»]|[$$Header compare error]}
<Call 0x212ae 0x103e0> {[-10-]|[«20""»]|[$$Header compare error]}
WriteConsoleStringCrLf(str : String)
<POP 212b0-212b4 StackAdj> Δ+24 {[-10-]}
<POP 212b4-212be Naked> Σ-10 ↓ →0x212de ←0x21288
<MI 212b4 MOVE.W (A0+0x42c),D0> {[-10-]}
<MI 212b8 ANDI.W #0x0040,D0> {[-10-]}
<MI 212bc BEQ 0x212de> {[-10-]}
<POP 212be-212de Naked> Σ-10 ↓
<Blob 0x212be [14] @> Δ-14 {[-10-]|[«14""»]}
<POP 212ca-212cc StackAdj> Δ-4 {[-10-]|[«14""»]|[-4-]}
<Lit 0x212cc 14> {[-10-]|[«14""»]|[$$Hard ECC error]}
<Call 0x212da 0x103e0> {[-10-]|[«14""»]|[$$Hard ECC error]}
WriteConsoleStringCrLf(str : String)
<POP 212dc-212de StackAdj> Δ+18 {[-10-]}
<POP 212de-212e8 Naked> Σ-10 ↓ →0x2130a ←0x212b4
<MI 212de MOVE.W (A0+0x42c),D0> {[-10-]}
<MI 212e2 ANDI.W #0x0010,D0> {[-10-]}
<MI 212e6 BEQ 0x2130a> {[-10-]}
<POP 212e8-2130a Naked> Σ-10 ↓
<Blob 0x212e8 [4] @> Δ-4 {[-10-]|[«4""»]}
<Blob 0x212ec [4] @> Δ-4 {[-10-]|[«4""»]|[«4""»]}
<Blob 0x212f0 [4] @> Δ-4 {[-10-]|[«4""»]|[«4""»]|[«4""»]}
<POP 212f4-212f6 StackAdj> Δ-4 {[-10-]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x212f6 12> {[-10-]|[«4""»]|[«4""»]|[«4""»]|[$$Format error]}
<Call 0x21304 0x103e0> {[-10-]|[«4""»]|[«4""»]|[«4""»]|[$$Format error]}
WriteConsoleStringCrLf(str : String)
<POP 21306-2130a StackAdj> Δ+16 {[-10-]}
<POP 2130a-21314 Naked> Σ-10 ↓ →0x2133c ←0x212de
<MI 2130a MOVE.W (A0+0x42c),D0> {[-10-]}
<MI 2130e ANDI.W #0x0004,D0> {[-10-]}
<MI 21312 BEQ 0x2133c> {[-10-]}
<POP 21314-2133c Naked> Σ-10 ↓
<Blob 0x21314 [30] @> Δ-30 {[-10-]|[«30""»]}
<POP 21326-21328 StackAdj> Δ-4 {[-10-]|[«30""»]|[-4-]}
<Lit 0x21328 29> {[-10-]|[«30""»]|[$$Register modification refused]}
<Call 0x21336 0x103e0> {[-10-]|[«30""»]|[$$Register modification refused]}
WriteConsoleStringCrLf(str : String)
<POP 21338-2133c StackAdj> Δ+34 {[-10-]}
<POP 2133c-21344 Naked> Σ-10 ↓ →0x2136a ←0x2130a
<MI 2133c MOVE.W (A0+0x42c),D0> {[-10-]}
<MI 21340 AND.W #0x01,D0> {[-10-]}
<MI 21342 BEQ 0x2136a> {[-10-]}
<POP 21344-2136a Naked> Σ-10 ↓
<Blob 0x21344 [4] @> Δ-4 {[-10-]|[«4""»]}
<Blob 0x21348 [4] @> Δ-4 {[-10-]|[«4""»]|[«4""»]}
<Blob 0x2134c [4] @> Δ-4 {[-10-]|[«4""»]|[«4""»]|[«4""»]}
<Blob 0x21350 [4] @> Δ-4 {[-10-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 21354-21356 StackAdj> Δ-4 {[-10-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x21356 16> {[-10-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Illegal function]}
<Call 0x21364 0x103e0> {[-10-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Illegal function]}
WriteConsoleStringCrLf(str : String)
<POP 21366-2136a StackAdj> Δ+20 {[-10-]}
<POP 2136a-21374 Naked> Σ-10 ↓ →0x2139c ←0x2133c
<MI 2136a MOVE.W (A0+0x42e),D0> {[-10-]}
<MI 2136e ANDI.W #0x8000,D0> {[-10-]}
<MI 21372 BEQ 0x2139c> {[-10-]}
<POP 21374-2139c Naked> Σ-10 ↓
<Blob 0x21374 [10] @> Δ-10 {[-10-]|[«10""»]}
<POP 21386-21388 StackAdj> Δ-4 {[-10-]|[«10""»]|[-4-]}
<Lit 0x21388 9> {[-10-]|[«10""»]|[$$Bad block]}
<Call 0x21396 0x103e0> {[-10-]|[«10""»]|[$$Bad block]}
WriteConsoleStringCrLf(str : String)
<POP 21398-2139c StackAdj> Δ+14 {[-10-]}
<POP 2139c-213a6 Naked> Σ-10 ↓ →0x213ce ←0x2136a
<MI 2139c MOVE.W (A0+0x42e),D0> {[-10-]}
<MI 213a0 ANDI.W #0x4000,D0> {[-10-]}
<MI 213a4 BEQ 0x213ce> {[-10-]}
<POP 213a6-213ce Naked> Σ-10 ↓
<Blob 0x213a6 [16] @> Δ-16 {[-10-]|[«16""»]}
<POP 213b8-213ba StackAdj> Δ-4 {[-10-]|[«16""»]|[-4-]}
<Lit 0x213ba 15> {[-10-]|[«16""»]|[$$Seek incomplete]}
<Call 0x213c8 0x103e0> {[-10-]|[«16""»]|[$$Seek incomplete]}
WriteConsoleStringCrLf(str : String)
<POP 213ca-213ce StackAdj> Δ+20 {[-10-]}
<POP 213ce-213d8 Naked> Σ-10 ↓ →0x21400 ←0x2139c
<MI 213ce MOVE.W (A0+0x42e),D0> {[-10-]}
<MI 213d2 ANDI.W #0x1000,D0> {[-10-]}
<MI 213d6 BEQ 0x21400> {[-10-]}
<POP 213d8-21400 Naked> Σ-10 ↓
<Blob 0x213d8 [62] @> Δ-62 {[-10-]|[«62""»]}
<POP 213ea-213ec StackAdj> Δ-4 {[-10-]|[«62""»]|[-4-]}
<Lit 0x213ec 61> {[-10-]|[«62""»]|[$$Invalid command (volume not valid, off-line, or off cylinder)]}
<Call 0x213fa 0x103e0> {[-10-]|[«62""»]|[$$Invalid command (volume not valid, off-line, or off cylinder)]}
WriteConsoleStringCrLf(str : String)
<POP 213fc-21400 StackAdj> Δ+66 {[-10-]}
<POP 21400-2140e Naked> Σ-10 Δ+4 ↓ →0x21430 ←0x213ce
<MI 21400 MOVE.W (A0+0x42e),D0> {[-10-]}
<MI 21404 ANDI.W #0x0080,D0> {[-10-]}
<POP 21408-2140a StackAdj> Δ+4 {[-6-]}
<MI 2140a TST.W D0> {[-6-]}
<MI 2140c BEQ 0x21430> {[-6-]}
<POP 2140e-21430 Naked> Σ-6 ↓
<Blob 0x2140e [4] @> Δ-4 {[-6-]|[«4""»]}
<Blob 0x21412 [4] @> Δ-4 {[-6-]|[«4""»]|[«4""»]}
<Blob 0x21416 [4] @> Δ-4 {[-6-]|[«4""»]|[«4""»]|[«4""»]}
<POP 2141a-2141c StackAdj> Δ-4 {[-6-]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x2141c 12> {[-6-]|[«4""»]|[«4""»]|[«4""»]|[$$Device check]}
<Call 0x2142a 0x103e0> {[-6-]|[«4""»]|[«4""»]|[«4""»]|[$$Device check]}
WriteConsoleStringCrLf(str : String)
<POP 2142c-21430 StackAdj> Δ+16 {[-6-]}
<POP 21430-21432 Naked> Σ-6 Δ+6 ↓ ←0x21400
<POP 21430-21432 StackAdj> Δ+6 {}
<POP 21432-2143a Epilogue> Σ0
@ 2143a
<LVAR 0x008 2(r)>
<POP 2143a-2149c Body>
<POP 2143a-21450 Prologue> Σ0 ↓
<POP 21450-21454 RegCacheLoad> Σ0 ↓
<POP 21454-21494 Naked> Σ0 ↓
<Blob 0x21454 [4] @> Δ-4 {[«4""»]}
<POP 21458-2145a StackAdj> Δ-4 {[«4""»]|[-4-]}
<Lit 0x2145a 4> {[«4""»]|[$$Hard]}
<POP 2146c-2146e StackAdj> Δ-2 {[«4""»]|[$$Hard]|[-2-]}
<MI 2146e MOVE.W (A6+0x8),(A7)> {[«4""»]|[$$Hard]|[2, '(A6+0x8)']}
<Call 0x21470 0x20c1a> {[«4""»]|[$$Hard]|[2, '(A6+0x8)']}
<POP 21474-21478 StackAdj> Δ+10 {}
<MI 21478 MOVE.W #0x444,D0> {}
<MI 2147c MULS.W (A6+0x8),D0> {}
<MI 2147e LEA.L 0x21eca,A0> {}
<MI 21484 CLR.L (A0+D0.W+#0x16)> {}
<MI 21488 ADDQ.L #0x1,(A0+D0.W+#0xe)> {}
<MI 2148c MOVE.W (A6+0x8),-(A7)> Δ-2 {[2, '(A6+0x8)']}
<Call 0x2148e 0x209b6> {[2, '(A6+0x8)']}
<POP 21492-21494 StackAdj> Δ+2 {}
<POP 21494-2149c Epilogue> Σ0
@ 2149c
<LVAR 0x008 2(r)>
<POP 2149c-214fe Body>
<POP 2149c-214b2 Prologue> Σ0 ↓
<POP 214b2-214f6 Naked> Σ0 ↓
<Blob 0x214b2 [4] @> Δ-4 {[«4""»]}
<POP 214b6-214b8 StackAdj> Δ-4 {[«4""»]|[-4-]}
<Lit 0x214b8 4> {[«4""»]|[$$Soft]}
<POP 214ca-214cc StackAdj> Δ-2 {[«4""»]|[$$Soft]|[-2-]}
<MI 214cc MOVE.W (A6+0x8),(A7)> {[«4""»]|[$$Soft]|[2, '(A6+0x8)']}
<Call 0x214d0 0x20c1a> {[«4""»]|[$$Soft]|[2, '(A6+0x8)']}
<POP 214d4-214d8 StackAdj> Δ+10 {}
<MI 214d8 MOVE.W #0x444,D0> {}
<MI 214dc MULS.W (A6+0x8),D0> {}
<MI 214e0 LEA.L 0x21eca,A0> {}
<MI 214e6 MOVE.L (A0+D0.W+#0x12),D1> {}
<MI 214ea ADD.L (A0+D0.W+#0x16),D1> {}
<MI 214ee MOVE.L D1,(A0+D0.W+#0x12)> {}
<MI 214f2 CLR.L (A0+D0.W+#0x16)> {}
<POP 214f6-214fe Epilogue> Σ0
@ 214fe
<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 214fe-2161c Body>
<POP 214fe-21514 Prologue> Σ0 ↓
<POP 21514-2151c RegCacheLoad> Σ0 ↓
<POP 2151c-21548 Naked> Σ0 Δ-4 ↓ →0x21554
<MI 2151c MOVE.W #0x444,D0> {}
<MI 21520 MULS.W (A6+0x8),D0> {}
<MI 21522 LEA.L 0x21eca,A0> {}
<MI 21528 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 2152a MOVE.W (A6+0x8),-(A7)> Δ-2 {[4, 'A0']|[2, '(A6+0x8)']}
<MI 2152c LEA.L (A0+D0.W+#0xc),A0> {[4, 'A0']|[2, '(A6+0x8)']}
<MI 21530 PEA.L (A0+0x426)> Δ-4 {[4, 'A0']|[2, '(A6+0x8)']|[4, '^(A0+0x426)']}
<Call 0x21534 0x20962> {[4, 'A0']|[2, '(A6+0x8)']|[4, '^(A0+0x426)']}
<POP 21538-2153a StackAdj> Δ+6 {[4, 'A0']}
<MI 2153a MOVEA.L (A7),A0> {[4, 'A0']}
<MI 2153c ADDQ.L #0x1,(A0+D0.W+#0x16)> {[4, 'A0']}
<MI 21540 MOVE.L (A0+D0.W+#0x16),D1> {[4, 'A0']}
<MI 21544 CMP.L #0x0a,D1> {[4, 'A0']}
<MI 21546 BNE 0x21554> {[4, 'A0']}
<POP 21548-21554 Naked> Σ-4 →0x21612
<MI 21548 MOVE.W (A6+0x8),-(A7)> Δ-2 {[-4-]|[2, '(A6+0x8)']}
<Call 0x2154a 0x2143a> {[-4-]|[2, '(A6+0x8)']}
<POP 2154e-21550 StackAdj> Δ+2 {[-4-]}
<MI 21550 BRA 0x21612> {[-4-]}
<POP 21554-2156a Naked> Σ-4 ↓ →0x2159a ←0x2151c
<MI 21554 MOVE.W #0x100,(A6-0x12)> {[-4-]}
<MI 2155a MOVE.W #0x02,(A6-0xe)> {[-4-]}
<POP 2155e-21560 StackAdj> Δ-2 {[-6-]}
<Call 0x21560 0x1060a> {[-6-]}
Is_machine_type_four() : Bool
<MI 21566 TST.B (A7)+> Δ+2 {[-4-]}
<MI 21568 BEQ 0x2159a> {[-4-]}
<POP 2156a-21580 Naked> Σ-4 →0x21586 →0x2158e →0x2158e
<MI 2156a MOVE.B (A0+D0.W+#0xd),D1> {[-4-]}
<MI 2156e EXTB.W D1> {[-4-]}
<POP 0x21570 LimitCheck 0x0 ≤ D1 ≤ 0x2> {[-4-]}
<MI 21576 ADD.W D1,D1> {[-4-]}
<MI 21578 SWITCH D1.W> {[-4-]}
<POP 21586-2158e Naked> Σ-4 →0x21594 ←0x2156a
<MI 21586 MOVE.W (A6+0x8),D1> {[-4-]}
<MI 21588 ASL.W #0x8,D1> {[-4-]}
<MI 2158a ADDQ.W #0x3,D1> {[-4-]}
<MI 2158c BRA 0x21594> {[-4-]}
<POP 2158e-21594 Naked> Σ-4 ↓ ←0x2156a ←0x2156a
<MI 2158e MOVE.W (A6+0x8),D1> {[-4-]}
<MI 21590 ASL.W #0x8,D1> {[-4-]}
<MI 21592 ADDQ.W #0x2,D1> {[-4-]}
<POP 21594-2159a Naked> Σ-4 →0x215d4 ←0x21586
<MI 21594 MOVE.W D1,(A6-0x8)> {[-4-]}
<MI 21598 BRA 0x215d4> {[-4-]}
<POP 2159a-215b0 Naked> Σ-4 →0x215b6 →0x215c0 →0x215ca ←0x21554
<MI 2159a MOVE.B (A0+D0.W+#0xd),D1> {[-4-]}
<MI 2159e EXTB.W D1> {[-4-]}
<POP 0x215a0 LimitCheck 0x0 ≤ D1 ≤ 0x2> {[-4-]}
<MI 215a6 ADD.W D1,D1> {[-4-]}
<MI 215a8 SWITCH D1.W> {[-4-]}
<POP 215b6-215c0 Naked> Σ-4 →0x215d0 ←0x2159a
<MI 215b6 MOVE.W (A6+0x8),D1> {[-4-]}
<MI 215b8 ASL.W #0x8,D1> {[-4-]}
<MI 215ba ADDI.W #0x000b,D1> {[-4-]}
<MI 215be BRA 0x215d0> {[-4-]}
<POP 215c0-215ca Naked> Σ-4 →0x215d0 ←0x2159a
<MI 215c0 MOVE.W (A6+0x8),D1> {[-4-]}
<MI 215c2 ASL.W #0x8,D1> {[-4-]}
<MI 215c4 ADDI.W #0x000c,D1> {[-4-]}
<MI 215c8 BRA 0x215d0> {[-4-]}
<POP 215ca-215d0 Naked> Σ-4 ↓ ←0x2159a
<MI 215ca MOVE.W (A6+0x8),D1> {[-4-]}
<MI 215cc ASL.W #0x8,D1> {[-4-]}
<MI 215ce ADDQ.W #0x2,D1> {[-4-]}
<POP 215d0-215d4 Naked> Σ-4 ↓ ←0x215b6 ←0x215c0
<MI 215d0 MOVE.W D1,(A6-0x8)> {[-4-]}
<POP 215d4-21612 Naked> Σ-4 ↓ ←0x21594
<MI 215d4 MOVE.L (A0+D0.W+#0x22),D1> {[-4-]}
<POP 0x215d8 LimitCheck 0x0 ≤ D1 ≤ 0xffff> {[-4-]}
<MI 215e2 MOVE.W D1,(A6-0x6)> {[-4-]}
<MI 215e6 MOVE.L (A0+D0.W+#0x1e),D1> {[-4-]}
<MI 215ea ASL.L #0x8,D1> {[-4-]}
<MI 215ec ADD.L (A0+D0.W+#0x1a),D1> {[-4-]}
<POP 0x215f0 LimitCheck 0x0 ≤ D1 ≤ 0xffff> {[-4-]}
<MI 215fa MOVE.W D1,(A6-0x4)> {[-4-]}
<Pointer.fp 0x215fe <LVAR -0x012 @ 2(w)>> Δ-4 {[-4-]|[@@-18]}
<MI 21602 LEA.L (A0+D0.W+#0x32),A0> {[-4-]|[@@-18]}
<MI 21606 MOVE.L A0,-(A7)> Δ-4 {[-4-]|[@@-18]|[4, 'A0']}
<MI 21608 MOVE.W (A6+0x8),-(A7)> Δ-2 {[-4-]|[@@-18]|[4, 'A0']|[2, '(A6+0x8)']}
<Call 0x2160a 0x10204> {[-4-]|[@@-18]|[4, 'A0']|[2, '(A6+0x8)']}
KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
<POP 21610-21612 StackAdj> Δ+10 {[-4-]}
<POP 21612-21614 Naked> Σ-4 Δ+4 ↓ ←0x21548
<POP 21612-21614 StackAdj> Δ+4 {}
<POP 21614-2161c Epilogue> Σ0
@ 2161c
<LVAR 0x00a 2(r)>
<LVAR 0x008 1(r)>
<POP 2161c-216aa Body> Δ+2
<POP 2161c-21632 Prologue> Σ0 ↓
<POP 21632-21638 RegCacheLoad> Σ0 ↓
<POP 21638-2163e Naked> Σ0 ↓ →0x21646
<MI 21638 TST.B (A6+0x8)> {}
<MI 2163c BNE 0x21646> {}
<POP 2163e-21646 Naked> Σ0 Δ-2 →0x216a0
<MI 2163e MOVE.W (A6+0xa),-(A7)> Δ-2 {[2, '(A6+0xa)']}
<Call 0x21640 0x214fe> {[2, '(A6+0xa)']}
<MI 21644 BRA 0x216a0> {[2, '(A6+0xa)']}
<POP 21646-21692 Naked> Σ0 ↓ →0x2169a ←0x21638
<MI 21646 MOVE.W #0x444,D0> {}
<MI 2164a MULS.W (A6+0xa),D0> {}
<MI 2164c LEA.L 0x21eca,A0> {}
<MI 21652 LEA.L (A0+D0.W+#0xc),A0> {}
<POP 21656-21657 StackAdj> Δ-8 ↓ {[-8-]}
<Blob 0x21657 [8] (A0+0x43c)> Δ-8 {[-8-]|[«8»]}
<POP 21666-21668 StackAdj> Δ-8 {[-8-]|[«8»]|[-8-]}
<Const 0x21668 0x400.4> Δ-4 {[-8-]|[«8»]|[-8-]|[##1024]}
<Call 0x2166c 0x10354> {[-8-]|[«8»]|[-8-]|[##1024]}
Long2Quad(a : Long) : Quad
<POP 21672-21674 StackAdj> Δ+4 {[-8-]|[«8»]|[-8-]}
<Call 0x21674 0x10314> {[-8-]|[«8»]|[-8-]}
Add(a, b : Quad) : Quad
<POP 2167a-2167c StackAdj> Δ+16 {[-8-]}
<MI 2167c LEA.L (A0+0x43c),A1> {[-8-]}
<MI 21680 MOVEA.L A7,A2> {[-8-]}
<BlockMove 8,A2,A1> {[-8-]}
<POP 2168a-2168c StackAdj> Δ+8 {}
<MI 2168c TST.L (A0+0xa)> {}
<MI 21690 BEQ 0x2169a> {}
<POP 21692-2169a Naked> Σ0 ↓
<MI 21692 MOVE.W (A6+0xa),-(A7)> Δ-2 {[2, '(A6+0xa)']}
<Call 0x21694 0x2149c> {[2, '(A6+0xa)']}
<POP 21698-2169a StackAdj> Δ+2 {}
<POP 2169a-216a0 Naked> Σ0 Δ-2 ↓ ←0x21646
<MI 2169a MOVE.W (A6+0xa),-(A7)> Δ-2 {[2, '(A6+0xa)']}
<Call 0x2169c 0x20aac> {[2, '(A6+0xa)']}
<POP 216a0-216a2 Naked> Σ-2 Δ+2 ↓ ←0x2163e
<POP 216a0-216a2 StackAdj> Δ+2 {}
<POP 216a2-216aa Epilogue> Σ0
@ 216aa
<LVAR 0x00a 2(r)>
<LVAR 0x008 1(r)>
<LVAR -0x010 2(r)>
<LVAR -0x018 @>
<POP 216aa-21758 Body> Δ+2
<POP 216aa-216c0 Prologue> Σ0 ↓
<POP 216c0-216c6 RegCacheLoad> Σ0 ↓
<POP 216c6-216cc Naked> Σ0 ↓ →0x216f4
<MI 216c6 TST.B (A6+0x8)> {}
<MI 216ca BNE 0x216f4> {}
<POP 216cc-216e2 Naked> Σ0 ↓ →0x216ea
<MI 216cc MOVE.W (A6+0xa),-(A7)> Δ-2 {[2, '(A6+0xa)']}
<Pointer.fp 0x216ce <LVAR -0x018 @>> Δ-4 {[2, '(A6+0xa)']|[@@-24]}
<Call 0x216d2 0x20962> {[2, '(A6+0xa)']|[@@-24]}
<POP 216d6-216d8 StackAdj> Δ+6 {}
<MI 216d8 MOVE.W (A6-0x10),D0> {}
<MI 216dc ANDI.W #0x8000,D0> {}
<MI 216e0 BEQ 0x216ea> {}
<POP 216e2-216ea Naked> Σ0 Δ-2 →0x216f0
<MI 216e2 MOVE.W (A6+0xa),-(A7)> Δ-2 {[2, '(A6+0xa)']}
<Call 0x216e4 0x209b6> {[2, '(A6+0xa)']}
<MI 216e8 BRA 0x216f0> {[2, '(A6+0xa)']}
<POP 216ea-216f0 Naked> Σ0 Δ-2 ↓ ←0x216cc
<MI 216ea MOVE.W (A6+0xa),-(A7)> Δ-2 {[2, '(A6+0xa)']}
<Call 0x216ec 0x214fe> {[2, '(A6+0xa)']}
<POP 216f0-216f4 Naked> Σ-2 Δ+2 →0x21750 ←0x216e2
<POP 216f0-216f2 StackAdj> Δ+2 {}
<MI 216f2 BRA 0x21750> {}
<POP 216f4-21740 Naked> Σ0 ↓ →0x21748 ←0x216c6
<MI 216f4 MOVE.W #0x444,D0> {}
<MI 216f8 MULS.W (A6+0xa),D0> {}
<MI 216fa LEA.L 0x21eca,A0> {}
<MI 21700 LEA.L (A0+D0.W+#0xc),A0> {}
<POP 21704-21705 StackAdj> Δ-8 ↓ {[-8-]}
<Blob 0x21705 [8] (A0+0x43c)> Δ-8 {[-8-]|[«8»]}
<POP 21714-21716 StackAdj> Δ-8 {[-8-]|[«8»]|[-8-]}
<Const 0x21716 0x400.4> Δ-4 {[-8-]|[«8»]|[-8-]|[##1024]}
<Call 0x2171a 0x10354> {[-8-]|[«8»]|[-8-]|[##1024]}
Long2Quad(a : Long) : Quad
<POP 21720-21722 StackAdj> Δ+4 {[-8-]|[«8»]|[-8-]}
<Call 0x21722 0x10314> {[-8-]|[«8»]|[-8-]}
Add(a, b : Quad) : Quad
<POP 21728-2172a StackAdj> Δ+16 {[-8-]}
<MI 2172a LEA.L (A0+0x43c),A1> {[-8-]}
<MI 2172e MOVEA.L A7,A2> {[-8-]}
<BlockMove 8,A2,A1> {[-8-]}
<POP 21738-2173a StackAdj> Δ+8 {}
<MI 2173a TST.L (A0+0xa)> {}
<MI 2173e BEQ 0x21748> {}
<POP 21740-21748 Naked> Σ0 ↓
<MI 21740 MOVE.W (A6+0xa),-(A7)> Δ-2 {[2, '(A6+0xa)']}
<Call 0x21742 0x2149c> {[2, '(A6+0xa)']}
<POP 21746-21748 StackAdj> Δ+2 {}
<POP 21748-21750 Naked> Σ0 ↓ ←0x216f4
<MI 21748 MOVE.W (A6+0xa),-(A7)> Δ-2 {[2, '(A6+0xa)']}
<Call 0x2174a 0x20b7a> {[2, '(A6+0xa)']}
<POP 2174e-21750 StackAdj> Δ+2 {}
<POP 21750-21758 Epilogue> Σ0 ←0x216f0
@ 21758
<LVAR 0x00a 2(r)>
<LVAR 0x008 1(r)>
<LVAR -0x010 2(r)>
<LVAR -0x018 @>
<POP 21758-21806 Body> Δ+2
<POP 21758-2176e Prologue> Σ0 ↓
<POP 2176e-21774 RegCacheLoad> Σ0 ↓
<POP 21774-2177a Naked> Σ0 ↓ →0x217a2
<MI 21774 TST.B (A6+0x8)> {}
<MI 21778 BNE 0x217a2> {}
<POP 2177a-21790 Naked> Σ0 ↓ →0x21798
<MI 2177a MOVE.W (A6+0xa),-(A7)> Δ-2 {[2, '(A6+0xa)']}
<Pointer.fp 0x2177c <LVAR -0x018 @>> Δ-4 {[2, '(A6+0xa)']|[@@-24]}
<Call 0x21780 0x20962> {[2, '(A6+0xa)']|[@@-24]}
<POP 21784-21786 StackAdj> Δ+6 {}
<MI 21786 MOVE.W (A6-0x10),D0> {}
<MI 2178a ANDI.W #0x8000,D0> {}
<MI 2178e BEQ 0x21798> {}
<POP 21790-21798 Naked> Σ0 Δ-2 →0x2179e
<MI 21790 MOVE.W (A6+0xa),-(A7)> Δ-2 {[2, '(A6+0xa)']}
<Call 0x21792 0x20aac> {[2, '(A6+0xa)']}
<MI 21796 BRA 0x2179e> {[2, '(A6+0xa)']}
<POP 21798-2179e Naked> Σ0 Δ-2 ↓ ←0x2177a
<MI 21798 MOVE.W (A6+0xa),-(A7)> Δ-2 {[2, '(A6+0xa)']}
<Call 0x2179a 0x214fe> {[2, '(A6+0xa)']}
<POP 2179e-217a2 Naked> Σ-2 Δ+2 →0x217fe ←0x21790
<POP 2179e-217a0 StackAdj> Δ+2 {}
<MI 217a0 BRA 0x217fe> {}
<POP 217a2-217ee Naked> Σ0 ↓ →0x217f6 ←0x21774
<MI 217a2 MOVE.W #0x444,D0> {}
<MI 217a6 MULS.W (A6+0xa),D0> {}
<MI 217a8 LEA.L 0x21eca,A0> {}
<MI 217ae LEA.L (A0+D0.W+#0xc),A0> {}
<POP 217b2-217b3 StackAdj> Δ-8 ↓ {[-8-]}
<Blob 0x217b3 [8] (A0+0x43c)> Δ-8 {[-8-]|[«8»]}
<POP 217c2-217c4 StackAdj> Δ-8 {[-8-]|[«8»]|[-8-]}
<Const 0x217c4 0x400.4> Δ-4 {[-8-]|[«8»]|[-8-]|[##1024]}
<Call 0x217c8 0x10354> {[-8-]|[«8»]|[-8-]|[##1024]}
Long2Quad(a : Long) : Quad
<POP 217ce-217d0 StackAdj> Δ+4 {[-8-]|[«8»]|[-8-]}
<Call 0x217d0 0x10314> {[-8-]|[«8»]|[-8-]}
Add(a, b : Quad) : Quad
<POP 217d6-217d8 StackAdj> Δ+16 {[-8-]}
<MI 217d8 LEA.L (A0+0x43c),A1> {[-8-]}
<MI 217dc MOVEA.L A7,A2> {[-8-]}
<BlockMove 8,A2,A1> {[-8-]}
<POP 217e6-217e8 StackAdj> Δ+8 {}
<MI 217e8 TST.L (A0+0xa)> {}
<MI 217ec BEQ 0x217f6> {}
<POP 217ee-217f6 Naked> Σ0 ↓
<MI 217ee MOVE.W (A6+0xa),-(A7)> Δ-2 {[2, '(A6+0xa)']}
<Call 0x217f0 0x2149c> {[2, '(A6+0xa)']}
<POP 217f4-217f6 StackAdj> Δ+2 {}
<POP 217f6-217fe Naked> Σ0 ↓ ←0x217a2
<MI 217f6 MOVE.W (A6+0xa),-(A7)> Δ-2 {[2, '(A6+0xa)']}
<Call 0x217f8 0x209b6> {[2, '(A6+0xa)']}
<POP 217fc-217fe StackAdj> Δ+2 {}
<POP 217fe-21806 Epilogue> Σ0 ←0x2179e
@ 21806
<LVAR -0x004 @ 4(r)>
<POP 21806-21b16 Body>
<POP 21806-2181c Prologue> Σ0 ↓
<POP 2181c-2182a RegCacheLoad> Σ0 ↓
<POP 2182a-2189a Naked> Σ0 ↓
<Pointer.fp 0x2182a <LVAR -0x004 @ 4(r)>> Δ-4 {[@@-4]}
<Call 0x2182e 0x10304> {[@@-4]}
GetRtc() : TimeStamp
<POP 21834-21836 StackAdj> Δ+4 {}
<Blob 0x21836 [10] @> Δ-10 {[«10""»]}
<Blob 0x21842 [18] @> Δ-18 {[«10""»]|[«18""»]}
<POP 2184e-21850 StackAdj> Δ-8 {[«10""»]|[«18""»]|[-8-]}
<Lit 0x21850 10> {[«10""»]|[«18""»]|[-4-]|[$$Status at_]}
<MI 2185e MOVE.L (A6-0x4),(A7)> {[«10""»]|[«18""»]|[-4-]|[4, '(A6-0x4)']}
<POP 21858-2185e StackAdj> Δ-8 {[«10""»]|[«18""»]|[-4-]|[4, '(A6-0x4)']|[-8-]}
<Call 0x21862 0x10308> {[«10""»]|[«18""»]|[-4-]|[4, '(A6-0x4)']|[-8-]}
TimeToText()
<Lit 0x21868 18> {[«10""»]|[«18""»]|[-4-]|[4, '(A6-0x4)']|[-4-]|[$$, test started at_]}
<POP 21878-21879 StackAdj> Δ-4 {[«10""»]|[«18""»]|[-4-]|[4, '(A6-0x4)']|[-4-]|[$$, test started at_]|[-4-]}
<Blob 0x21879 [4] 0x21ed2> Δ-4 {[«10""»]|[«18""»]|[-4-]|[4, '(A6-0x4)']|[-4-]|[$$, test started at_]|[-4-]|[«4»]}
<Call 0x2187e 0x10308> {[«10""»]|[«18""»]|[-4-]|[4, '(A6-0x4)']|[-4-]|[$$, test started at_]|[-4-]|[«4»]}
TimeToText()
<POP 21884-21886 StackAdj> Δ+4 {[«10""»]|[«18""»]|[-4-]|[4, '(A6-0x4)']|[-4-]|[$$, test started at_]|[-4-]}
<Call 0x21886 0x102d8> {[«10""»]|[«18""»]|[-4-]|[4, '(A6-0x4)']|[-4-]|[$$, test started at_]|[-4-]}
StringCat4(a, b, c, d : String) : String
<POP 2188c-21890 StackAdj> Δ+16 {[«10""»]|[«18""»]|[-4-]}
<Call 0x21890 0x103e0> {[«10""»]|[«18""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 21896-21898 StackAdj> Δ+32 {}
<MI 21898 MOVEQ.L #0x00,D7> {}
<POP 2189a-218c2 Naked> Σ0 Δ-4 ↓ →0x21b00 ←0x21b00
<POP 0x2189a LimitCheck 0x0 ≤ D7 ≤ 0xf> {}
<MI 218a4 MOVE.L D7,D4> {}
<MI 218a6 MOVE.L #0x444,D3> {}
<Call 0x218ac 0x1028c> {}
?muls_d3_d4
<MI 218b2 LEA.L 0x21eca,A0> {}
<MI 218b8 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 218ba TST.B (A0+D4.L+#0xc)> {[4, 'A0']}
<MI 218be BEQ 0x21b00> {[4, 'A0']}
<POP 218c2-218ee Naked> Σ-4 ↓ →0x218fa
<Blob 0x218c2 [2] @> Δ-2 {[-4-]|[«2""»]}
<POP 218c6-218c8 StackAdj> Δ-8 {[-4-]|[«2""»]|[-8-]}
<Lit 0x218c8 2> {[-4-]|[«2""»]|[-4-]|[$$U ]}
<MI 218d8 MOVE.L D7,(A7)> {[-4-]|[«2""»]|[-4-]|[4, 'D7']}
<POP 218d2-218d8 StackAdj> Δ-8 {[-4-]|[«2""»]|[-4-]|[4, 'D7']|[-8-]}
<Call 0x218da 0x102e4> {[-4-]|[«2""»]|[-4-]|[4, 'D7']|[-8-]}
Long2String(a : Long) : String
<POP 218e0-218e2 StackAdj> Δ+4 {[-4-]|[«2""»]|[-4-]|[4, 'D7']|[-4-]}
<Call 0x218e2 0x102d0> {[-4-]|[«2""»]|[-4-]|[4, 'D7']|[-4-]}
StringCat2(a, b : String) : String
<POP 218e4-218e6 StackAdj> Δ+8 {[-4-]|[«2""»]|[-4-]}
<MI 218e6 MOVEA.L (A7)+,A4> Δ+4 {[-4-]|[«2""»]}
<POP 218e8-218ea StackAdj> Δ+2 {[-4-]}
<MI 218ea CMP.L #0x0a,D7> {[-4-]}
<MI 218ec BGE 0x218fa> {[-4-]}
<POP 218ee-218fa Naked> Σ-4 ↓
<MI 218ee MOVE.L A4,-(A7)> Δ-4 {[-4-]|[4, 'A4']}
<Const 0x218f0 0x20.2> Δ-2 {[-4-]|[4, 'A4']|[#32]}
<Call 0x218f2 0x102c0> {[-4-]|[4, 'A4']|[#32]}
AppendChar(MOD b : String; a : char)
<POP 218f8-218fa StackAdj> Δ+6 {[-4-]}
<POP 218fa-21b00 Naked> Σ-4 ↓ ←0x218c2
<Blob 0x218fa [10] @> Δ-10 {[-4-]|[«10""»]}
<POP 2190a-2190c StackAdj> Δ-4 {[-4-]|[«10""»]|[-4-]}
<MI 2190c MOVE.L A4,-(A7)> Δ-4 {[-4-]|[«10""»]|[-4-]|[4, 'A4']}
<POP 2190e-21910 StackAdj> Δ-4 {[-4-]|[«10""»]|[-4-]|[4, 'A4']|[-4-]}
<Lit 0x21910 9> {[-4-]|[«10""»]|[-4-]|[4, 'A4']|[$$ bytes=>_]}
<Call 0x21922 0x102d0> {[-4-]|[«10""»]|[-4-]|[4, 'A4']|[$$ bytes=>_]}
StringCat2(a, b : String) : String
<POP 21924-21926 StackAdj> Δ+8 {[-4-]|[«10""»]|[-4-]}
<MI 21926 MOVEA.L (A7)+,A4> Δ+4 {[-4-]|[«10""»]}
<POP 21928-2192a StackAdj> Δ+2 {[-4-]|[-8-]}
<MI 2192a MOVE.L A4,(A7)> {[-4-]|[-4-]|[4, 'A4']}
<POP 2192c-2192e StackAdj> Δ-8 {[-4-]|[-4-]|[4, 'A4']|[-8-]}
<MI 2192e LEA.L (A0+D4.L+#0xc),A0> {[-4-]|[-4-]|[4, 'A4']|[-8-]}
<Blob 0x21932 [8] (A0+0x43c)> Δ-8 {[-4-]|[-4-]|[4, 'A4']|[-8-]|[«8»]}
<Const 0x21942 0xa.4> Δ-4 {[-4-]|[-4-]|[4, 'A4']|[-8-]|[«8»]|[##10]}
<Call 0x21946 0x1035c> {[-4-]|[-4-]|[4, 'A4']|[-8-]|[«8»]|[##10]}
Quad2String(a : Quad; radix : Long ) : String
<POP 2194c-21950 StackAdj> Δ+12 {[-4-]|[-4-]|[4, 'A4']|[-8-]}
<Const 0x21950 0xa.4> Δ-4 {[-4-]|[-4-]|[4, 'A4']|[-8-]|[##10]}
<Call 0x21954 0x102f8> {[-4-]|[-4-]|[4, 'A4']|[-8-]|[##10]}
LeftPad(a : String; b : Long) : String
<POP 2195a-2195c StackAdj> Δ+8 {[-4-]|[-4-]|[4, 'A4']|[-4-]}
<Call 0x2195c 0x102d0> {[-4-]|[-4-]|[4, 'A4']|[-4-]}
StringCat2(a, b : String) : String
<POP 2195e-21960 StackAdj> Δ+8 {[-4-]|[-4-]}
<MI 21960 MOVEA.L (A7)+,A4> Δ+4 {[-4-]}
<Blob 0x21962 [4] @> Δ-4 {[-4-]|[«4""»]}
<Blob 0x21966 [4] @> Δ-4 {[-4-]|[«4""»]|[«4""»]}
<POP 2196a-2196c StackAdj> Δ-4 {[-4-]|[«4""»]|[«4""»]|[-4-]}
<MI 2196c MOVE.L A4,-(A7)> Δ-4 {[-4-]|[«4""»]|[«4""»]|[-4-]|[4, 'A4']}
<POP 2196e-21970 StackAdj> Δ-4 {[-4-]|[«4""»]|[«4""»]|[-4-]|[4, 'A4']|[-4-]}
<Lit 0x21970 8> {[-4-]|[«4""»]|[«4""»]|[-4-]|[4, 'A4']|[$$ soft=>_]}
<Call 0x21982 0x102d0> {[-4-]|[«4""»]|[«4""»]|[-4-]|[4, 'A4']|[$$ soft=>_]}
StringCat2(a, b : String) : String
<POP 21984-21986 StackAdj> Δ+8 {[-4-]|[«4""»]|[«4""»]|[-4-]}
<MI 21986 MOVEA.L (A7)+,A4> Δ+4 {[-4-]|[«4""»]|[«4""»]}
<MI 21988 MOVE.L A4,(A7)> {[-4-]|[«4""»]|[4, 'A4']}
<POP 2198a-2198c StackAdj> Δ-8 {[-4-]|[«4""»]|[4, 'A4']|[-8-]}
<MI 2198c MOVEA.L (A7+0x10),A0> {[-4-]|[«4""»]|[4, 'A4']|[-8-]}
<MI 21990 MOVE.L (A0+D4.L+#0x12),-(A7)> Δ-4 {[-4-]|[«4""»]|[4, 'A4']|[-8-]|[4, '(A0+D4.L+#0x12)']}
<Call 0x21994 0x102e4> {[-4-]|[«4""»]|[4, 'A4']|[-8-]|[4, '(A0+D4.L+#0x12)']}
Long2String(a : Long) : String
<POP 2199a-2199c StackAdj> Δ+4 {[-4-]|[«4""»]|[4, 'A4']|[-8-]}
<Const 0x2199c 0x5.4> Δ-4 {[-4-]|[«4""»]|[4, 'A4']|[-8-]|[##5]}
<Call 0x219a0 0x102f8> {[-4-]|[«4""»]|[4, 'A4']|[-8-]|[##5]}
LeftPad(a : String; b : Long) : String
<POP 219a6-219a8 StackAdj> Δ+8 {[-4-]|[«4""»]|[4, 'A4']|[-4-]}
<Call 0x219a8 0x102d0> {[-4-]|[«4""»]|[4, 'A4']|[-4-]}
StringCat2(a, b : String) : String
<POP 219aa-219ac StackAdj> Δ+8 {[-4-]|[«4""»]}
<MI 219ac MOVEA.L (A7)+,A4> Δ+4 {[-4-]}
<Blob 0x219ae [4] @> Δ-4 {[-4-]|[«4""»]}
<Blob 0x219b2 [4] @> Δ-4 {[-4-]|[«4""»]|[«4""»]}
<POP 219b6-219b8 StackAdj> Δ-4 {[-4-]|[«4""»]|[«4""»]|[-4-]}
<MI 219b8 MOVE.L A4,-(A7)> Δ-4 {[-4-]|[«4""»]|[«4""»]|[-4-]|[4, 'A4']}
<POP 219ba-219bc StackAdj> Δ-4 {[-4-]|[«4""»]|[«4""»]|[-4-]|[4, 'A4']|[-4-]}
<Lit 0x219bc 8> {[-4-]|[«4""»]|[«4""»]|[-4-]|[4, 'A4']|[$$ hard=>_]}
<Call 0x219ce 0x102d0> {[-4-]|[«4""»]|[«4""»]|[-4-]|[4, 'A4']|[$$ hard=>_]}
StringCat2(a, b : String) : String
<POP 219d0-219d2 StackAdj> Δ+8 {[-4-]|[«4""»]|[«4""»]|[-4-]}
<MI 219d2 MOVEA.L (A7)+,A4> Δ+4 {[-4-]|[«4""»]|[«4""»]}
<MI 219d4 MOVE.L A4,(A7)> {[-4-]|[«4""»]|[4, 'A4']}
<POP 219d6-219d8 StackAdj> Δ-8 {[-4-]|[«4""»]|[4, 'A4']|[-8-]}
<MI 219d8 MOVEA.L (A7+0x10),A0> {[-4-]|[«4""»]|[4, 'A4']|[-8-]}
<MI 219dc MOVE.L (A0+D4.L+#0xe),-(A7)> Δ-4 {[-4-]|[«4""»]|[4, 'A4']|[-8-]|[4, '(A0+D4.L+#0xe)']}
<Call 0x219e0 0x102e4> {[-4-]|[«4""»]|[4, 'A4']|[-8-]|[4, '(A0+D4.L+#0xe)']}
Long2String(a : Long) : String
<POP 219e6-219e8 StackAdj> Δ+4 {[-4-]|[«4""»]|[4, 'A4']|[-8-]}
<Const 0x219e8 0x5.4> Δ-4 {[-4-]|[«4""»]|[4, 'A4']|[-8-]|[##5]}
<Call 0x219ec 0x102f8> {[-4-]|[«4""»]|[4, 'A4']|[-8-]|[##5]}
LeftPad(a : String; b : Long) : String
<POP 219f2-219f4 StackAdj> Δ+8 {[-4-]|[«4""»]|[4, 'A4']|[-4-]}
<Call 0x219f4 0x102d0> {[-4-]|[«4""»]|[4, 'A4']|[-4-]}
StringCat2(a, b : String) : String
<POP 219f6-219f8 StackAdj> Δ+8 {[-4-]|[«4""»]}
<MI 219f8 MOVEA.L (A7)+,A4> Δ+4 {[-4-]}
<Blob 0x219fa [6] @> Δ-6 {[-4-]|[«6""»]}
<POP 21a0a-21a0c StackAdj> Δ-4 {[-4-]|[«6""»]|[-4-]}
<MI 21a0c MOVE.L A4,-(A7)> Δ-4 {[-4-]|[«6""»]|[-4-]|[4, 'A4']}
<POP 21a0e-21a10 StackAdj> Δ-4 {[-4-]|[«6""»]|[-4-]|[4, 'A4']|[-4-]}
<Lit 0x21a10 5> {[-4-]|[«6""»]|[-4-]|[4, 'A4']|[$$ C=>_]}
<Call 0x21a20 0x102d0> {[-4-]|[«6""»]|[-4-]|[4, 'A4']|[$$ C=>_]}
StringCat2(a, b : String) : String
<POP 21a22-21a24 StackAdj> Δ+8 {[-4-]|[«6""»]|[-4-]}
<MI 21a24 MOVEA.L (A7)+,A4> Δ+4 {[-4-]|[«6""»]}
<POP 21a26-21a28 StackAdj> Δ+2 {[-4-]|[-4-]}
<MI 21a28 MOVE.L A4,-(A7)> Δ-4 {[-4-]|[-4-]|[4, 'A4']}
<POP 21a2a-21a2c StackAdj> Δ-8 {[-4-]|[-4-]|[4, 'A4']|[-8-]}
<MI 21a2c MOVEA.L (A7+0x10),A0> {[-4-]|[-4-]|[4, 'A4']|[-8-]}
<MI 21a30 MOVE.L (A0+D4.L+#0x22),-(A7)> Δ-4 {[-4-]|[-4-]|[4, 'A4']|[-8-]|[4, '(A0+D4.L+#0x22)']}
<Call 0x21a34 0x102e4> {[-4-]|[-4-]|[4, 'A4']|[-8-]|[4, '(A0+D4.L+#0x22)']}
Long2String(a : Long) : String
<POP 21a3a-21a3c StackAdj> Δ+4 {[-4-]|[-4-]|[4, 'A4']|[-8-]}
<Const 0x21a3c 0x4.4> Δ-4 {[-4-]|[-4-]|[4, 'A4']|[-8-]|[##4]}
<Call 0x21a40 0x102f8> {[-4-]|[-4-]|[4, 'A4']|[-8-]|[##4]}
LeftPad(a : String; b : Long) : String
<POP 21a46-21a48 StackAdj> Δ+8 {[-4-]|[-4-]|[4, 'A4']|[-4-]}
<Call 0x21a48 0x102d0> {[-4-]|[-4-]|[4, 'A4']|[-4-]}
StringCat2(a, b : String) : String
<POP 21a4a-21a4c StackAdj> Δ+8 {[-4-]|[-4-]}
<MI 21a4c MOVEA.L (A7)+,A4> Δ+4 {[-4-]}
<Blob 0x21a4e [6] @> Δ-6 {[-4-]|[«6""»]}
<POP 21a5e-21a60 StackAdj> Δ-4 {[-4-]|[«6""»]|[-4-]}
<MI 21a60 MOVE.L A4,-(A7)> Δ-4 {[-4-]|[«6""»]|[-4-]|[4, 'A4']}
<POP 21a62-21a64 StackAdj> Δ-4 {[-4-]|[«6""»]|[-4-]|[4, 'A4']|[-4-]}
<Lit 0x21a64 5> {[-4-]|[«6""»]|[-4-]|[4, 'A4']|[$$ T=>_]}
<Call 0x21a74 0x102d0> {[-4-]|[«6""»]|[-4-]|[4, 'A4']|[$$ T=>_]}
StringCat2(a, b : String) : String
<POP 21a76-21a78 StackAdj> Δ+8 {[-4-]|[«6""»]|[-4-]}
<MI 21a78 MOVEA.L (A7)+,A4> Δ+4 {[-4-]|[«6""»]}
<POP 21a7a-21a7c StackAdj> Δ+2 {[-4-]|[-4-]}
<MI 21a7c MOVE.L A4,-(A7)> Δ-4 {[-4-]|[-4-]|[4, 'A4']}
<POP 21a7e-21a80 StackAdj> Δ-8 {[-4-]|[-4-]|[4, 'A4']|[-8-]}
<MI 21a80 MOVEA.L (A7+0x10),A0> {[-4-]|[-4-]|[4, 'A4']|[-8-]}
<MI 21a84 MOVE.L (A0+D4.L+#0x1e),-(A7)> Δ-4 {[-4-]|[-4-]|[4, 'A4']|[-8-]|[4, '(A0+D4.L+#0x1e)']}
<Call 0x21a88 0x102e4> {[-4-]|[-4-]|[4, 'A4']|[-8-]|[4, '(A0+D4.L+#0x1e)']}
Long2String(a : Long) : String
<POP 21a8e-21a90 StackAdj> Δ+4 {[-4-]|[-4-]|[4, 'A4']|[-8-]}
<Const 0x21a90 0x3.4> Δ-4 {[-4-]|[-4-]|[4, 'A4']|[-8-]|[##3]}
<Call 0x21a94 0x102f8> {[-4-]|[-4-]|[4, 'A4']|[-8-]|[##3]}
LeftPad(a : String; b : Long) : String
<POP 21a9a-21a9c StackAdj> Δ+8 {[-4-]|[-4-]|[4, 'A4']|[-4-]}
<Call 0x21a9c 0x102d0> {[-4-]|[-4-]|[4, 'A4']|[-4-]}
StringCat2(a, b : String) : String
<POP 21a9e-21aa0 StackAdj> Δ+8 {[-4-]|[-4-]}
<MI 21aa0 MOVEA.L (A7)+,A4> Δ+4 {[-4-]}
<Blob 0x21aa2 [6] @> Δ-6 {[-4-]|[«6""»]}
<POP 21ab2-21ab4 StackAdj> Δ-4 {[-4-]|[«6""»]|[-4-]}
<MI 21ab4 MOVE.L A4,-(A7)> Δ-4 {[-4-]|[«6""»]|[-4-]|[4, 'A4']}
<POP 21ab6-21ab8 StackAdj> Δ-4 {[-4-]|[«6""»]|[-4-]|[4, 'A4']|[-4-]}
<Lit 0x21ab8 5> {[-4-]|[«6""»]|[-4-]|[4, 'A4']|[$$ S=>_]}
<Call 0x21ac8 0x102d0> {[-4-]|[«6""»]|[-4-]|[4, 'A4']|[$$ S=>_]}
StringCat2(a, b : String) : String
<POP 21aca-21acc StackAdj> Δ+8 {[-4-]|[«6""»]|[-4-]}
<MI 21acc MOVEA.L (A7)+,A4> Δ+4 {[-4-]|[«6""»]}
<POP 21ace-21ad0 StackAdj> Δ+2 {[-4-]|[-4-]}
<MI 21ad0 MOVE.L A4,-(A7)> Δ-4 {[-4-]|[-4-]|[4, 'A4']}
<POP 21ad2-21ad4 StackAdj> Δ-8 {[-4-]|[-4-]|[4, 'A4']|[-8-]}
<MI 21ad4 MOVEA.L (A7+0x10),A0> {[-4-]|[-4-]|[4, 'A4']|[-8-]}
<MI 21ad8 MOVE.L (A0+D4.L+#0x1a),-(A7)> Δ-4 {[-4-]|[-4-]|[4, 'A4']|[-8-]|[4, '(A0+D4.L+#0x1a)']}
<Call 0x21adc 0x102e4> {[-4-]|[-4-]|[4, 'A4']|[-8-]|[4, '(A0+D4.L+#0x1a)']}
Long2String(a : Long) : String
<POP 21ae2-21ae4 StackAdj> Δ+4 {[-4-]|[-4-]|[4, 'A4']|[-8-]}
<Const 0x21ae4 0x3.4> Δ-4 {[-4-]|[-4-]|[4, 'A4']|[-8-]|[##3]}
<Call 0x21ae8 0x102f8> {[-4-]|[-4-]|[4, 'A4']|[-8-]|[##3]}
LeftPad(a : String; b : Long) : String
<POP 21aee-21af0 StackAdj> Δ+8 {[-4-]|[-4-]|[4, 'A4']|[-4-]}
<Call 0x21af0 0x102d0> {[-4-]|[-4-]|[4, 'A4']|[-4-]}
StringCat2(a, b : String) : String
<POP 21af2-21af4 StackAdj> Δ+8 {[-4-]|[-4-]}
<MI 21af4 MOVEA.L (A7)+,A4> Δ+4 {[-4-]}
<MI 21af6 MOVE.L A4,-(A7)> Δ-4 {[-4-]|[4, 'A4']}
<Call 0x21af8 0x103e0> {[-4-]|[4, 'A4']}
WriteConsoleStringCrLf(str : String)
<POP 21afe-21b00 StackAdj> Δ+4 {[-4-]}
<POP 21b00-21b0e Naked> Σ-4 Δ+4 ↓ →0x2189a ←0x2189a
<POP 21b00-21b02 StackAdj> Δ+4 {}
<MI 21b02 ADDQ.L #0x1,D7> {}
<MI 21b04 CMPI.L #0x0000000f,D7> {}
<MI 21b0a BLE 0x2189a> {}
<POP 21b0e-21b16 Epilogue> Σ0
@ 21b16
<LVAR 0x008 1(rw)>
<LVAR -0x002 @ 1(r)>
<LVAR -0x004 @ 2(rw)>
<POP 21b16-21b76 Body>
<POP 21b16-21b2c Prologue> Σ0 ↓
<POP 21b2c-21b32 RegCacheLoad> Σ0 ↓
<POP 21b32-21b4c Naked> Σ0 ↓ →0x21b6e
<MI 21b32 CLR.B (A6+0x8)> {}
<Const 0x21b36 0x1.2> Δ-2 {[#1]}
<Pointer.fp 0x21b38 <LVAR -0x002 @ 1(r)>> Δ-4 {[#1]|[@@-2]}
<Call 0x21b3c 0x10212> {[#1]|[@@-2]}
KC09_PortStatus(Port : Word; VAR b: Byte)
<POP 21b42-21b44 StackAdj> Δ+6 {}
<MI 21b44 MOVE.B (A6-0x2),D0> {}
<MI 21b48 CMP.B #0x01,D0> {}
<MI 21b4a BNE 0x21b6e> {}
<POP 21b4c-21b64 Naked> Σ0 ↓ →0x21b6a
<Const 0x21b4c 0x1.2> Δ-2 {[#1]}
<Pointer.fp 0x21b4e <LVAR -0x004 @ 2(rw)>> Δ-4 {[#1]|[@@-4]}
<Call 0x21b50 0x1020e> {[#1]|[@@-4]}
KC07_PortGetChar(port : Word ; VAR ret : Word)
<POP 21b56-21b58 StackAdj> Δ+6 {}
<MI 21b58 ANDI.W #0x007f,(A6-0x4)> {}
<MI 21b5c MOVE.W (A6-0x4),D0> {}
<MI 21b5e CMPI.W #0x0007,D0> {}
<MI 21b62 BNE 0x21b6a> {}
<POP 21b64-21b6a Naked> Σ0 →0x21b6e
<MI 21b64 MOVE.B #0x01,(A6+0x8)> {}
<MI 21b68 BRA 0x21b6e> {}
<POP 21b6a-21b6e Naked> Σ0 ↓ ←0x21b4c
<Call 0x21b6a 0x21806> {}
<POP 21b6e-21b76 Epilogue> Σ0 ←0x21b32 ←0x21b64
@ 21b76
<LVAR -0x001 @ 1(r)>
<LVAR -0x002 @ 1(r)>
<POP 21b76-21c68 Body> Δ+8
<POP 21b76-21b8c Prologue> Σ0 ↓
<POP 21b8c-21b9e RegCacheLoad> Σ0 ↓
<POP 21b9e-21ba0 Naked> Σ0 ↓
<MI 21b9e MOVEQ.L #0x00,D7> {}
<POP 21ba0-21bac Naked> Σ0 ↓ →0x21bb4 ←0x21bb4
<MI 21ba0 MOVE.W #0x444,D0> {}
<MI 21ba2 MULS.W D7,D0> {}
<MI 21ba4 LEA.L 0x21eca,A0> {}
<MI 21ba6 TST.B (A0+D0.W+#0xc)> {}
<MI 21baa BEQ 0x21bb4> {}
<POP 21bac-21bb4 Naked> Σ0 ↓
<MI 21bac MOVE.W D7,-(A7)> Δ-2 {[2, 'D7']}
<Call 0x21bae 0x209b6> {[2, 'D7']}
<POP 21bb2-21bb4 StackAdj> Δ+2 {}
<POP 21bb4-21bba Naked> Σ0 ↓ →0x21ba0 ←0x21ba0
<MI 21bb4 ADDQ.W #0x1,D7> {}
<MI 21bb6 CMP.W #0x0f,D7> {}
<MI 21bb8 BLE 0x21ba0> {}
<POP 21bba-21bbc Naked> Σ0 ↓ ←0x21c34
<MI 21bba MOVEQ.L #0x00,D7> {}
<POP 21bbc-21bc8 Naked> Σ0 ↓ →0x21c2e ←0x21c2e
<MI 21bbc MOVE.W #0x444,D0> {}
<MI 21bbe MULS.W D7,D0> {}
<MI 21bc0 LEA.L 0x21eca,A0> {}
<MI 21bc2 TST.B (A0+D0.W+#0xc)> {}
<MI 21bc6 BEQ 0x21c2e> {}
<POP 21bc8-21be0 Naked> Σ0 ↓ →0x21c2e
<MI 21bc8 MOVE.W D7,-(A7)> Δ-2 {[2, 'D7']}
<Pointer.fp 0x21bca <LVAR -0x002 @ 1(r)>> Δ-4 {[2, 'D7']|[@@-2]}
<Pointer.fp 0x21bce <LVAR -0x001 @ 1(r)>> Δ-4 {[2, 'D7']|[@@-2]|[@@-1]}
<Call 0x21bd0 0x10208> {[2, 'D7']|[@@-2]|[@@-1]}
KERNCALL_04
<POP 21bd6-21bda StackAdj> Δ+10 {}
<MI 21bda TST.B (A6-0x2)> {}
<MI 21bde BEQ 0x21c2e> {}
<POP 21be0-21bf8 Naked> Σ0 →0x21bfe →0x21c0e →0x21c1e
<MI 21be0 MOVE.B (A0+D0.W+#0xd),D1> {}
<MI 21be4 EXTB.W D1> {}
<POP 0x21be6 LimitCheck 0x0 ≤ D1 ≤ 0x2> {}
<MI 21bee ADD.W D1,D1> {}
<MI 21bf0 SWITCH D1.W> {}
<POP 21bfe-21c0e Naked> Σ0 Δ-4 →0x21c2c ←0x21be0
<MI 21bfe MOVE.W D7,-(A7)> Δ-2 {[2, 'D7']}
<MI 21c00 MOVE.B (A6-0x1),D0> {[2, 'D7']}
<MI 21c02 EXTB.W D0> {[2, 'D7']}
<POP 0x21c04 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[2, 'D7']}
<MI 21c06 MOVE.B D0,-(A7)> Δ-2 {[2, 'D7']|[2, 'D0']}
<Call 0x21c08 0x216aa> {[2, 'D7']|[2, 'D0']}
<MI 21c0c BRA 0x21c2c> {[2, 'D7']|[2, 'D0']}
<POP 21c0e-21c1e Naked> Σ0 Δ-4 →0x21c2c ←0x21be0
<MI 21c0e MOVE.W D7,-(A7)> Δ-2 {[2, 'D7']}
<MI 21c10 MOVE.B (A6-0x1),D0> {[2, 'D7']}
<MI 21c12 EXTB.W D0> {[2, 'D7']}
<POP 0x21c14 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[2, 'D7']}
<MI 21c16 MOVE.B D0,-(A7)> Δ-2 {[2, 'D7']|[2, 'D0']}
<Call 0x21c18 0x2161c> {[2, 'D7']|[2, 'D0']}
<MI 21c1c BRA 0x21c2c> {[2, 'D7']|[2, 'D0']}
<POP 21c1e-21c2c Naked> Σ0 Δ-4 ↓ ←0x21be0
<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 0x21758> {[2, 'D7']|[2, 'D0']}
<POP 21c2c-21c2e Naked> Σ-4 Δ+4 ↓ ←0x21bfe ←0x21c0e
<POP 21c2c-21c2e StackAdj> Δ+4 {}
<POP 21c2e-21c34 Naked> Σ0 ↓ →0x21bbc ←0x21bbc ←0x21bc8
<MI 21c2e ADDQ.W #0x1,D7> {}
<MI 21c30 CMP.W #0x0f,D7> {}
<MI 21c32 BLE 0x21bbc> {}
<POP 21c34-21c40 Naked> Σ0 ↓ →0x21bba
<POP 21c34-21c36 StackAdj> Δ-2 {[-2-]}
<Call 0x21c36 0x21b16> {[-2-]}
<MI 21c3a TST.B (A7)+> Δ+2 {}
<MI 21c3c BEQ 0x21bba> {}
<POP 21c40-21c42 Naked> Σ0 ↓
<MI 21c40 MOVEQ.L #0x00,D7> {}
<POP 21c42-21c4e Naked> Σ0 ↓ →0x21c5a ←0x21c5a
<MI 21c42 MOVE.W #0x444,D0> {}
<MI 21c44 MULS.W D7,D0> {}
<MI 21c46 LEA.L 0x21eca,A0> {}
<MI 21c48 TST.B (A0+D0.W+#0xc)> {}
<MI 21c4c BEQ 0x21c5a> {}
<POP 21c4e-21c5a Naked> Σ0 ↓
<MI 21c4e MOVE.W D7,-(A7)> Δ-2 {[2, 'D7']}
<Pointer.fp 0x21c50 <LVAR -0x001 @ 1(r)>> Δ-4 {[2, 'D7']|[@@-1]}
<Call 0x21c52 0x10206> {[2, 'D7']|[@@-1]}
KC03_Wait_Disk_IO(a : W; VAR status : Byte)
<POP 21c58-21c5a StackAdj> Δ+6 {}
<POP 21c5a-21c60 Naked> Σ0 ↓ →0x21c42 ←0x21c42
<MI 21c5a ADDQ.W #0x1,D7> {}
<MI 21c5c CMP.W #0x0f,D7> {}
<MI 21c5e BLE 0x21c42> {}
<POP 21c60-21c68 Epilogue> Σ0
@ 21c68
START
<POP 21c68--0001 Body>
<POP 21c68-21c72 Prologue> Σ0
<POP 21c72-21c74 RegCacheLoad> Σ0 ↓
<POP 21c74-21cbe Naked> Σ0 ↓
<Call 0x21c74 0x10398> {}
FSCALL_10398
<MI 21c7a MOVE.L #0x7b,0x2631a> {}
<MI 21c84 MOVE.L #0x01,0x26316> {}
<Call 0x21c8a 0x2079c> {}
<Call 0x21c8e 0x21b76> {}
<Blob 0x21c92 [20] @> Δ-20 {[«20""»]}
<MI 21c9e CLR.B -(A7)> Δ-2 {[«20""»]|[#0]}
<POP 21ca0-21ca2 StackAdj> Δ-4 {[«20""»]|[#0]|[-4-]}
<Lit 0x21ca2 20> {[«20""»]|[#0]|[$$Disk exercizer done.]}
<Call 0x21cb4 0x103b8> {[«20""»]|[#0]|[$$Disk exercizer done.]}
PopProgram(status : Byte; msg : String)
<POP 21cba-21cbe StackAdj> Δ+26 {}
<POP 21cbe-21cc4 Naked> Σ0
<Call 0x21cbe 0x10284> {}
?exit
@ 21cd2
PROG_FAIL
<LVAR 0x008 1(r)>
<POP 21cd2-21d3a Body>
<POP 21cd2-21ce8 Prologue> Σ0 ↓
<POP 21ce8-21d32 Naked> Σ0 ↓
<Blob 0x21ce8 [14] @> Δ-14 {[«14""»]}
<Const 0x21cf4 0x3.2> Δ-2 {[«14""»]|[#3]}
<POP 21cf8-21cfa StackAdj> Δ-8 {[«14""»]|[#3]|[-8-]}
<Lit 0x21cfa 14> {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
<POP 21d0c-21d0e StackAdj> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 21d0e MOVE.B (A6+0x8),D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 21d12 EXTB.W D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 21d14 EXTW.L D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 21d16 MOVE.L D0,-(A7)> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
<Call 0x21d18 0x102e4> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 21d1e-21d20 StackAdj> Δ+4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<Call 0x21d20 0x102d0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 21d26-21d28 StackAdj> Δ+8 {[«14""»]|[#3]|[-4-]}
<Call 0x21d28 0x103b8> {[«14""»]|[#3]|[-4-]}
PopProgram(status : Byte; msg : String)
<POP 21d2e-21d32 StackAdj> Δ+20 {}
<POP 21d32-21d3a Epilogue> Σ0
@ 21d8e
EXP_FAIL
<LVAR 0x00e 1(r)>
<LVAR 0x00a 4(r)>
<LVAR 0x008 1(r)>
<POP 21d8e-21eca Body>
<POP 21d8e-21da4 Prologue> Σ0 ↓
<POP 21da4-21dba RegCacheLoad> Σ0 ↓
<POP 21dba-21e1a Naked> Σ0 ↓ →0x21e62
<Call 0x21dba 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x21dc0 [18] @> Δ-18 {[«18""»]}
<POP 21dcc-21dce StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x21dce 18> {[«18""»]|[$$Experiment error :]}
<Call 0x21dda 0x103e0> {[«18""»]|[$$Experiment error :]}
WriteConsoleStringCrLf(str : String)
<POP 21ddc-21ddd StackAdj> Δ+22 ↓ {}
<Blob 0x21ddd [14] @> Δ-14 {[«14""»]}
<POP 21dec-21dee StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x21dee 13> {[«14""»]|[-4-]|[$$Board :_]}
<POP 21df8-21dfa StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<MI 21dfa MOVE.B (A6+0xe),(A7)> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<Call 0x21dfe 0x1049c> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
BoardName(address : B) : String
<POP 21e04-21e06 StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
<Call 0x21e06 0x102d0> {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 21e0c-21e0e StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x21e0e 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 21e10-21e12 StackAdj> Δ+18 {}
<MI 21e12 MOVEA.L (A6+0xa),A0> {}
<MI 21e16 CMPA.W #0x01,A0> {}
<MI 21e18 BEQ 0x21e62> {}
<POP 21e1a-21e62 Naked> Σ0 ↓
<Blob 0x21e1a [14] @> Δ-14 {[«14""»]}
<Blob 0x21e2a [30] (A0+0xfc)> Δ-30 {[«14""»]|[«30»]}
<POP 21e3a-21e3c StackAdj> Δ-8 {[«14""»]|[«30»]|[-8-]}
<Lit 0x21e3c 13> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
<POP 21e46-21e48 StackAdj> Δ-4 {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
<Lit 0x21e48> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
<Pointer.sp 0x21e48 12> Δ-4
<Const 0x21e4c 0x1.2> Δ-2
<Const 0x21e4e 0x1e.2> Δ-2
<Call 0x21e50 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 21e52-21e54 StackAdj> Δ+8
<Call 0x21e54 0x102d0> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
StringCat2(a, b : String) : String
<POP 21e5a-21e5c StackAdj> Δ+8 {[«14""»]|[«30»]|[-4-]}
<Call 0x21e5c 0x103e0> {[«14""»]|[«30»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 21e5e-21e62 StackAdj> Δ+48 {}
<POP 21e62-21ec2 Naked> Σ0 ↓ ←0x21dba
<Blob 0x21e62 [14] @> Δ-14 {[«14""»]}
<POP 21e72-21e74 StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x21e74 13> {[«14""»]|[-4-]|[$$Status :_]}
<POP 21e7e-21e80 StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<MI 21e80 MOVE.B (A6+0x8),(A7)> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<Call 0x21e84 0x104a2> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
ExpStatus2Text(status.B, &String)
<POP 21e8a-21e8c StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
<Call 0x21e8c 0x102d0> {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 21e92-21e94 StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x21e94 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 21e96-21e97 StackAdj> Δ+18 ↓ {}
<Blob 0x21e97 [24] @> Δ-24 {[«24""»]}
<Const 0x21ea6 0x2.2> Δ-2 {[«24""»]|[#2]}
<POP 21eaa-21eac StackAdj> Δ-4 {[«24""»]|[#2]|[-4-]}
<Lit 0x21eac 23> {[«24""»]|[#2]|[$$Fatal experiment error.]}
<Call 0x21eba 0x103b8> {[«24""»]|[#2]|[$$Fatal experiment error.]}
PopProgram(status : Byte; msg : String)
<POP 21ec0-21ec2 StackAdj> Δ+30 {}
<POP 21ec2-21eca Epilogue> Σ0
00020000 ; --------------------------------------------------------------------------------------
00020000 ; R1000.Disassembly modules:
00020000 ; import all
00020000 ; import kind.program
00020000 ; no ident.1018a3fb82d605ac
00020000 ; --------------------------------------------------------------------------------------
00020000 stack.top:
00020000 00 04 00 00 | | .CODE 0x40000 ; STACK.END
00020004 00 02 1c 68 | h | .CODE START
00020008 00 01 02 88 | | .CODE FSCALL_10288
0002000c heap.top:
0002000c 00 02 63 2e | c. | .PTR 0x2632e
00020010 code.end:
00020010 00 02 1e ca | | .PTR 0x21eca
00020014 00 00 00 00 | | .CONST 0x00000000
00020018 programfailurehandler:
00020018 00 02 1c d2 | | .CODE PROG_FAIL
0002001c experimentfailurehandler:
0002001c 00 02 1d 8e | | .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 44 69 73 6b 20 68 61 73 |Disk has| .TXT 'Disk has no labels, unit :_ '
00020126 45 78 65 72 63 69 7a 65 |Exercize| .TXT 'Exercize unit_'
00020134 44 46 53 20 62 61 73 65 |DFS base| .TXT 'DFS based disk exerciser, started at => '
0002015c 44 69 73 6b 20 75 6e 69 |Disk uni| .TXT 'Disk unit =>_ '
0002016a 2c 20 75 73 69 6e 67 20 |, using | .TXT ', using cylinders [ '
0002017e 2e 2e |.. | .TXT '..'
00020180 5d 20 |] | .TXT '] '
00020182 54 79 70 65 20 5e 47 20 |Type ^G | .TXT 'Type ^G to exit, any other character for status '
000201b2 20 43 53 31 3d 20 | CS1= | .XXX[0x6]
000201b8 20 43 53 32 3d 20 20 44 | CS2= D| .XXX[0x30]
000201c0 53 3d 20 20 20 45 52 31 |S= ER1|
000201c8 3d 20 20 45 52 32 3d 20 |= ER2= |
000201d0 20 45 43 31 3d 20 20 45 | EC1= E|
000201d8 43 32 3d 20 20 44 43 3d |C2= DC=|
000201e0 20 20 20 44 41 3d 20 20 | DA= |
000201e8 53 70 65 63 69 61 6c 20 |Special | .TXT 'Special condition '
000201fa 54 72 61 6e 73 66 65 72 |Transfer| .TXT 'Transfer error'
00020208 44 72 69 76 65 20 69 73 |Drive is| .TXT 'Drive is not available'
0002021e 44 72 69 76 65 20 69 73 |Drive is| .TXT 'Drive is not ready'
00020230 44 61 74 61 20 6c 61 74 |Data lat| .TXT 'Data late '
0002023a 57 72 69 74 65 20 63 68 |Write ch| .TXT 'Write check error '
0002024c 4e 6f 6e 2d 65 78 69 73 |Non-exis| .TXT 'Non-existent drive'
0002025e 4e 6f 6e 2d 65 78 69 73 |Non-exis| .TXT 'Non-existent memory '
00020272 50 72 6f 67 72 61 6d 20 |Program | .TXT 'Program error '
00020280 4d 69 73 73 65 64 20 74 |Missed t| .TXT 'Missed transfer '
00020290 49 6e 70 75 74 20 6e 6f |Input no| .TXT 'Input not ready '
000202a0 42 75 73 20 61 64 64 72 |Bus addr| .TXT 'Bus address increment inhibit '
000202be 50 6f 73 69 74 69 6f 6e |Position| .TXT 'Positioning in progress '
000202d6 4d 65 64 69 75 6d 20 6e |Medium n| .TXT 'Medium not on-line'
000202e8 57 72 69 74 |Writ | .TXT 'Writ'
000202ec 65 20 6c 6f |e lo | .TXT 'e lo'
000202f0 63 6b 65 64 |cked | .TXT 'cked'
000202f4 4c 61 73 74 20 73 65 63 |Last sec| .TXT 'Last sector transfered'
0002030a 44 72 69 76 65 20 6e 6f |Drive no| .TXT 'Drive not present '
0002031c 44 72 69 76 65 20 6e 6f |Drive no| .TXT 'Drive not ready '
0002032c 56 6f 6c 75 |Volu | .TXT 'Volu'
00020330 6d 65 20 6e |me n | .TXT 'me n'
00020334 6f 74 20 76 |ot v | .TXT 'ot v'
00020338 61 6c 69 64 |alid | .TXT 'alid'
0002033c 44 61 74 61 |Data | .TXT 'Data'
00020340 20 63 68 65 | che | .TXT ' che'
00020344 63 6b 20 28 |ck ( | .TXT 'ck ('
00020348 45 43 43 29 |ECC) | .TXT 'ECC)'
0002034c 55 6e |Un | .TXT 'Un'
0002034e 73 61 |sa | .TXT 'sa'
00020350 66 65 |fe | .TXT 'fe'
00020352 4f 70 65 72 61 74 69 6f |Operatio| .TXT 'Operation incomplete'
00020366 44 72 69 76 65 20 74 69 |Drive ti| .TXT 'Drive timing error'
00020378 57 72 69 74 |Writ | .TXT 'Writ'
0002037c 65 20 6c 6f |e lo | .TXT 'e lo'
00020380 63 6b 20 65 |ck e | .TXT 'ck e'
00020384 72 72 6f 72 |rror | .TXT 'rror'
00020388 49 6e 76 61 6c 69 64 20 |Invalid | .TXT 'Invalid address error '
0002039e 41 64 64 72 65 73 73 20 |Address | .TXT 'Address overflow error'
000203b4 48 65 61 64 |Head | .TXT 'Head'
000203b8 65 72 20 43 |er C | .TXT 'er C'
000203bc 52 43 20 65 |RC e | .TXT 'RC e'
000203c0 72 72 6f 72 |rror | .TXT 'rror'
000203c4 48 65 61 64 65 72 20 63 |Header c| .TXT 'Header compare error'
000203d8 48 61 72 64 20 45 43 43 |Hard ECC| .TXT 'Hard ECC error'
000203e6 46 6f 72 6d |Form | .TXT 'Form'
000203ea 61 74 20 65 |at e | .TXT 'at e'
000203ee 72 72 6f 72 |rror | .TXT 'rror'
000203f2 52 65 67 69 73 74 65 72 |Register| .TXT 'Register modification refused '
00020410 49 6c 6c 65 |Ille | .TXT 'Ille'
00020414 67 61 6c 20 |gal | .TXT 'gal '
00020418 66 75 6e 63 |func | .TXT 'func'
0002041c 74 69 6f 6e |tion | .TXT 'tion'
00020420 42 61 64 20 62 6c 6f 63 |Bad bloc| .TXT 'Bad block '
0002042a 53 65 65 6b 20 69 6e 63 |Seek inc| .TXT 'Seek incomplete '
0002043a 49 6e 76 61 6c 69 64 20 |Invalid | .TXT 'Invalid command (volume not valid, off-line, or off cylinder) '
00020478 44 65 76 69 |Devi | .TXT 'Devi'
0002047c 63 65 20 63 |ce c | .TXT 'ce c'
00020480 68 65 63 6b |heck | .TXT 'heck'
00020484 45 72 72 6f 72 20 6f 6e |Error on| .TXT 'Error on unit_'
00020492 20 61 74 5f | at_ | .TXT ' at_'
00020496 20 74 65 73 74 20 73 74 | test st| .TXT ' test started at_ '
000204a8 20 65 72 72 6f 72 2c 20 | error, | .TXT ' error, retries =>'
000204ba 48 61 72 64 |Hard | .TXT 'Hard'
000204be 53 6f 66 74 |Soft | .TXT 'Soft'
000204c2 53 74 61 74 75 73 20 61 |Status a| .TXT 'Status at_'
000204cc 2c 20 74 65 73 74 20 73 |, test s| .TXT ', test started at_'
000204de 55 20 |U | .TXT 'U '
000204e0 20 62 79 74 65 73 3d 3e | bytes=>| .TXT ' bytes=>_ '
000204ea 20 73 6f 66 | sof | .TXT ' sof'
000204ee 74 3d 3e 5f |t=>_ | .TXT 't=>_'
000204f2 20 68 61 72 | har | .TXT ' har'
000204f6 64 3d 3e 5f |d=>_ | .TXT 'd=>_'
000204fa 20 43 3d 3e 5f 20 | C=>_ | .TXT ' C=>_ '
00020500 20 54 3d 3e 5f 20 | T=>_ | .TXT ' T=>_ '
00020506 20 53 3d 3e 5f 20 | S=>_ | .TXT ' S=>_ '
0002050c 44 69 73 6b 20 65 78 65 |Disk exe| .TXT 'Disk exercizer done.'
00020520 00 00 ff ff b6 db ed b6 | | .XXX[0x38]
00020528 aa aa 20 43 53 31 3d 20 | CS1= |
00020530 43 53 32 3d 20 44 53 3d |CS2= DS=|
00020538 20 20 45 52 31 3d 20 45 | ER1= E|
00020540 52 32 3d 20 45 43 31 3d |R2= EC1=|
00020548 20 45 43 32 3d 20 44 43 | EC2= DC|
00020550 3d 20 20 44 41 3d 20 00 |= DA= |
00020558 ; --------------------------------------------------------------------------------------
00020558 ; OMSI PASCAL Function
00020558 ; <LVAR 0x010 4(w)>
00020558 ; <LVAR 0x00c 4(r)>
00020558 ; <LVAR 0x008 4(r)>
00020558 ; --------------------------------------------------------------------------------------
00020558 4e 56 ff e4 |NV | LINK.W A6,#0xffe4
0002055c bf d5 | | CMPA.L (A5),A7
0002055e 62 06 |b | BHI 0x20566
00020560 44 fc 00 02 |D | MOVE.W #0x2,CCR
00020564 4e 76 |Nv | TRAPV
00020566 de fc 00 18 | | ADDA.W #0x18,A7
0002056a 48 e7 19 80 |H | MOVEM.L A0+D7+D4+D3,-(A7)
0002056e 41 f9 00 02 63 1a |A c | LEA.L 0x2631a,A0
00020574 28 10 |( | MOVE.L (A0),D4
00020576 26 3c 00 00 01 a5 |&< | MOVE.L #0x1a5,D3
0002057c 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4
00020582 20 84 | | MOVE.L D4,(A0)
00020584 52 90 |R | ADDQ.L #0x1,(A0)
00020586 02 90 00 00 7f ff | | ANDI.L #0x00007fff,(A0)
0002058c 2e 2e 00 08 |.. | MOVE.L (A6+0x8),D7
00020590 9e ae 00 0c | | SUB.L (A6+0xc),D7
00020594 52 87 |R | ADDQ.L #0x1,D7
00020596 28 10 |( | MOVE.L (A0),D4
00020598 26 07 |& | MOVE.L D7,D3
0002059a 4e b9 00 01 02 94 |N | JSR ?divs_d3_d4
000205a0 d6 ae 00 0c | | ADD.L (A6+0xc),D3
000205a4 2e 03 |. | MOVE.L D3,D7
000205a6 2d 47 00 10 |-G | MOVE.L D7,(A6+0x10)
000205aa 4c df 01 98 |L | MOVEM.L (A7)+,D3+D4+D7+A0
000205ae 4e 5e |N^ | UNLK A6
000205b0 4e 75 |Nu | RTS
000205b2 ; --------------------------------------------------------------------------------------
000205b2 ; OMSI PASCAL Function
000205b2 ; <LVAR 0x008 4(w)>
000205b2 ; --------------------------------------------------------------------------------------
000205b2 4e 56 ff ec |NV | LINK.W A6,#0xffec
000205b6 bf d5 | | CMPA.L (A5),A7
000205b8 62 06 |b | BHI 0x205c0
000205ba 44 fc 00 02 |D | MOVE.W #0x2,CCR
000205be 4e 76 |Nv | TRAPV
000205c0 de fc 00 14 | | ADDA.W #0x14,A7
000205c4 48 e7 c0 c0 |H | MOVEM.L A1+A0+D1+D0,-(A7)
000205c8 43 f9 00 02 63 16 |C c | LEA.L 0x26316,A1
000205ce 52 91 |R | ADDQ.L #0x1,(A1)
000205d0 20 11 | | MOVE.L (A1),D0
000205d2 0c 80 00 00 00 05 | | CMPI.L #0x00000005,D0
000205d8 6f 06 |o | BLE 0x205e0
000205da 22 bc 00 00 00 01 |" | MOVE.L #0x1,(A1)
000205e0 20 11 | | MOVE.L (A1),D0
000205e2 53 80 |S | SUBQ.L #0x1,D0
000205e4 0c 80 00 00 00 04 | | CMPI.L #0x00000004,D0
000205ea 63 02 |c | BLS 0x205ee
000205ec 4e 4f |NO | TRAP #15
000205ee e3 80 | | ASL.L #0x1,D0
000205f0 41 fa ff 2e |A . | LEA.L 0x20520,A0
000205f4 42 81 |B | CLR.L D1
000205f6 32 30 08 00 |20 | MOVE.W (A0+D0.L),D1
000205fa 2d 41 00 08 |-A | MOVE.L D1,(A6+0x8)
000205fe 4c df 03 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1
00020602 4e 5e |N^ | UNLK A6
00020604 4e 75 |Nu | RTS
00020606 ; --------------------------------------------------------------------------------------
00020606 ; OMSI PASCAL Function
00020606 ; <LVAR 0x00a 1(rw)>
00020606 ; <LVAR 0x008 2(r)>
00020606 ; <LVAR -0x008 @ 2(r)>
00020606 ; <LVAR -0x00a @>
00020606 ; <LVAR -0x00c 2(r)>
00020606 ; <LVAR -0x00e 2(r)>
00020606 ; <LVAR -0x010 2(w)>
00020606 ; <LVAR -0x012 2(r)>
00020606 ; <LVAR -0x014 2(r)>
00020606 ; <LVAR -0x016 2(w)>
00020606 ; <LVAR -0x018 2(r)>
00020606 ; <LVAR -0x01a @ 2(r)>
00020606 ; --------------------------------------------------------------------------------------
00020606 4e 56 ff d0 |NV | LINK.W A6,#0xffd0
0002060a bf d5 | | CMPA.L (A5),A7
0002060c 62 06 |b | BHI 0x20614
0002060e 44 fc 00 02 |D | MOVE.W #0x2,CCR
00020612 4e 76 |Nv | TRAPV
00020614 de fc 00 16 | | ADDA.W #0x16,A7
00020618 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7)
0002061c 42 6e ff e6 |Bn | CLR.W (A6-0x1a)
00020620 42 6e ff e8 |Bn | CLR.W (A6-0x18)
00020624 3d 7c 00 02 ff ea |=| | MOVE.W #0x2,(A6-0x16)
0002062a 42 6e ff ec |Bn | CLR.W (A6-0x14)
0002062e 42 6e ff ee |Bn | CLR.W (A6-0x12)
00020632 30 2e 00 08 |0. | MOVE.W (A6+0x8),D0
00020636 e1 40 | @ | ASL.W #0x8,D0
00020638 3d 40 ff f0 |=@ | MOVE.W D0,(A6-0x10)
0002063c 42 6e ff f2 |Bn | CLR.W (A6-0xe)
00020640 42 6e ff f4 |Bn | CLR.W (A6-0xc)
00020644 48 6e ff e6 |Hn | PEA.L (A6-0x1a)
00020648 41 ee ff f8 |A | LEA.L (A6-0x8),A0
0002064c 2f 08 |/ | MOVE.L A0,-(A7)
0002064e 42 67 |Bg | CLR.W -(A7)
00020650 4e b9 00 01 02 04 |N | JSR KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
00020656 50 4f |PO | ADDQ.L #0x8,A7
00020658 42 57 |BW | CLR.W (A7)
0002065a 48 6e ff f6 |Hn | PEA.L (A6-0xa)
0002065e 4e b9 00 01 02 06 |N | JSR KC03_Wait_Disk_IO(a : W; VAR status : Byte)
00020664 5c 4f |\O | ADDQ.L #0x6,A7
00020666 42 2e 00 0a |B. | CLR.B (A6+0xa)
0002066a 30 2e ff f8 |0. | MOVE.W (A6-0x8),D0
0002066e 0c 40 00 01 | @ | CMPI.W #0x0001,D0
00020672 66 04 |f | BNE 0x20678
00020674 52 2e 00 0a |R. | ADDQ.B #0x1,(A6+0xa)
00020678 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0
0002067c 4e 5e |N^ | UNLK A6
0002067e 4e 75 |Nu | RTS
00020680 ; --------------------------------------------------------------------------------------
00020680 ; OMSI PASCAL Function
00020680 ; <LVAR 0x008 2(r)>
00020680 ; <LVAR -0x006 @ 1(r)>
00020680 ; <LVAR -0x3d6 2(r)>
00020680 ; <LVAR -0x3da 2(r)>
00020680 ; <LVAR -0x3fb 1(r)>
00020680 ; <LVAR -0x3fc 1(r)>
00020680 ; <LVAR -0x406 @>
00020680 ; --------------------------------------------------------------------------------------
00020680 4e 56 fb ac |NV | LINK.W A6,#0xfbac
00020684 bf d5 | | CMPA.L (A5),A7
00020686 62 06 |b | BHI 0x2068e
00020688 44 fc 00 02 |D | MOVE.W #0x2,CCR
0002068c 4e 76 |Nv | TRAPV
0002068e de fc 00 4e | N | ADDA.W #0x4e,A7
00020692 48 e7 e1 e0 |H | MOVEM.L A2+A1+A0+D7+D2+D1+D0,-(A7)
00020696 45 ee 00 08 |E | LEA.L (A6+0x8),A2
0002069a 74 02 |t | MOVEQ.L #0x02,D2
0002069c 30 39 00 01 00 08 |09 | MOVE.W 0x10008,D0
000206a2 41 bc 00 0f |A | CHK.W #0xf,D0
000206a6 3e 00 |> | MOVE.W D0,D7
000206a8 33 d2 00 01 00 08 |3 | MOVE.W (A2),0x10008
000206ae 1f 02 | | MOVE.B D2,-(A7)
000206b0 3f 02 |? | MOVE.W D2,-(A7)
000206b2 48 78 00 01 |Hx | PEA.L 0x1
000206b6 41 ee fb fa |A | LEA.L (A6-0x406),A0
000206ba 2f 08 |/ | MOVE.L A0,-(A7)
000206bc 48 6e ff fa |Hn | PEA.L (A6-0x6)
000206c0 4e b9 00 01 03 6c |N l | JSR RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B)
000206c6 de fc 00 10 | | ADDA.W #0x10,A7
000206ca 33 c7 00 01 00 08 |3 | MOVE.W D7,0x10008
000206d0 4a 2e ff fa |J. | TST.B (A6-0x6)
000206d4 66 4c |fL | BNE 0x20722
000206d6 9e fc 00 1c | | SUBA.W #0x1c,A7
000206da 20 4f | O | MOVEA.L A7,A0
000206dc 43 fa fa 2c |C , | LEA.L 0x2010a,A1
000206e0 70 1a |p | MOVEQ.L #0x1a,D0
000206e2 10 d9 | | MOVE.B (A1)+,(A0)+
000206e4 51 c8 ff fc |Q | DBF D0,0x206e2
000206e8 1f 3c 00 0e | < | MOVE.B #0x0e,-(A7)
000206ec 51 4f |QO | SUBQ.L #0x8,A7
000206ee 48 6f 00 0a |Ho | PEA.L (A7+0xa)
000206f2 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
000206f6 3f 3c 00 1b |?< | MOVE.W #0x1b,-(A7)
000206fa 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00020700 58 4f |XO | ADDQ.L #0x4,A7
00020702 30 12 |0 | MOVE.W (A2),D0
00020704 48 c0 |H | EXTW.L D0
00020706 2f 00 |/ | MOVE.L D0,-(A7)
00020708 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String
0002070e 58 4f |XO | ADDQ.L #0x4,A7
00020710 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00020716 50 4f |PO | ADDQ.L #0x8,A7
00020718 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String)
0002071e de fc 00 22 | " | ADDA.W #0x22,A7
00020722 30 3c 04 44 |0< D | MOVE.W #0x444,D0
00020726 c1 d2 | | MULS.W (A2),D0
00020728 41 f9 00 02 1e ca |A | LEA.L 0x21eca,A0
0002072e 42 b0 00 0e |B | CLR.L (A0+D0.W+#0xe)
00020732 42 b0 00 12 |B | CLR.L (A0+D0.W+#0x12)
00020736 42 b0 00 16 |B | CLR.L (A0+D0.W+#0x16)
0002073a 42 81 |B | CLR.L D1
0002073c 32 2e fc 26 |2. & | MOVE.W (A6-0x3da),D1
00020740 21 81 00 26 |! & | MOVE.L D1,(A0+D0.W+#0x26)
00020744 42 81 |B | CLR.L D1
00020746 32 2e fc 2a |2. * | MOVE.W (A6-0x3d6),D1
0002074a 21 81 00 2a |! * | MOVE.L D1,(A0+D0.W+#0x2a)
0002074e 42 81 |B | CLR.L D1
00020750 12 2e fc 05 | . | MOVE.B (A6-0x3fb),D1
00020754 e2 41 | A | ASR.W #0x1,D1
00020756 31 81 00 30 |1 0 | MOVE.W D1,(A0+D0.W+#0x30)
0002075a 42 81 |B | CLR.L D1
0002075c 12 2e fc 04 | . | MOVE.B (A6-0x3fc),D1
00020760 31 81 00 2e |1 . | MOVE.W D1,(A0+D0.W+#0x2e)
00020764 21 b0 00 26 00 22 |! & " | MOVE.L (A0+D0.W+#0x26),(A0+D0.W+#0x22)
0002076a 42 b0 00 1e |B | CLR.L (A0+D0.W+#0x1e)
0002076e 42 b0 00 1a |B | CLR.L (A0+D0.W+#0x1a)
00020772 41 f0 00 0c |A | LEA.L (A0+D0.W+#0xc),A0
00020776 51 4f |QO | SUBQ.L #0x8,A7
00020778 48 78 00 00 |Hx | PEA.L 0x0
0002077c 4e b9 00 01 03 54 |N T | JSR Long2Quad(a : Long) : Quad
00020782 58 4f |XO | ADDQ.L #0x4,A7
00020784 41 e8 04 3c |A < | LEA.L (A0+0x43c),A0
00020788 22 4f |"O | MOVEA.L A7,A1
0002078a 70 07 |p | MOVEQ.L #0x07,D0
0002078c 10 d9 | | MOVE.B (A1)+,(A0)+
0002078e 51 c8 ff fc |Q | DBF D0,0x2078c
00020792 50 4f |PO | ADDQ.L #0x8,A7
00020794 4c df 07 87 |L | MOVEM.L (A7)+,D0+D1+D2+D7+A0+A1+A2
00020798 4e 5e |N^ | UNLK A6
0002079a 4e 75 |Nu | RTS
0002079c ; --------------------------------------------------------------------------------------
0002079c ; OMSI PASCAL Function
0002079c ; --------------------------------------------------------------------------------------
0002079c 4e 56 ff 64 |NV d | LINK.W A6,#0xff64
000207a0 bf d5 | | CMPA.L (A5),A7
000207a2 62 06 |b | BHI 0x207aa
000207a4 44 fc 00 02 |D | MOVE.W #0x2,CCR
000207a8 4e 76 |Nv | TRAPV
000207aa de fc 00 94 | | ADDA.W #0x94,A7
000207ae 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
000207b2 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
000207b8 49 f9 00 01 02 e4 |I | LEA.L Long2String(a : Long) : String,A4
000207be 74 01 |t | MOVEQ.L #0x01,D2
000207c0 76 0e |v | MOVEQ.L #0x0e,D3
000207c2 78 0f |x | MOVEQ.L #0x0f,D4
000207c4 7a 02 |z | MOVEQ.L #0x02,D5
000207c6 7c 00 || | MOVEQ.L #0x00,D6
000207c8 7e 00 |~ | MOVEQ.L #0x00,D7
000207ca 30 3c 04 44 |0< D | MOVE.W #0x444,D0
000207ce c1 c7 | | MULS.W D7,D0
000207d0 41 f9 00 02 1e ca |A | LEA.L 0x21eca,A0
000207d6 55 4f |UO | SUBQ.L #0x2,A7
000207d8 3f 07 |? | MOVE.W D7,-(A7)
000207da 4e ba fe 2a |N * | JSR 0x20606
000207de 54 4f |TO | ADDQ.L #0x2,A7
000207e0 4a 1f |J | TST.B (A7)+
000207e2 66 06 |f | BNE 0x207ea
000207e4 42 30 00 0c |B0 | CLR.B (A0+D0.W+#0xc)
000207e8 60 44 |`D | BRA 0x2082e
000207ea 43 fa f9 48 |C H | LEA.L 0x20134,A1
000207ee 72 06 |r | MOVEQ.L #0x06,D1
000207f0 3f 21 |?! | MOVE.W -(A1),-(A7)
000207f2 51 c9 ff fc |Q | DBF D1,0x207f0
000207f6 9e fc 00 0a | | SUBA.W #0xa,A7
000207fa 48 6f 00 0a |Ho | PEA.L (A7+0xa)
000207fe 3f 02 |? | MOVE.W D2,-(A7)
00020800 3f 03 |? | MOVE.W D3,-(A7)
00020802 4e 93 |N | JSR (A3)
00020804 58 4f |XO | ADDQ.L #0x4,A7
00020806 32 07 |2 | MOVE.W D7,D1
00020808 48 c1 |H | EXTW.L D1
0002080a 2f 01 |/ | MOVE.L D1,-(A7)
0002080c 4e 94 |N | JSR (A4)
0002080e 58 4f |XO | ADDQ.L #0x4,A7
00020810 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00020816 5c 4f |\O | ADDQ.L #0x6,A7
00020818 1e 82 | | MOVE.B D2,(A7)
0002081a 4e b9 00 01 03 f0 |N | JSR AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
00020820 5c 4f |\O | ADDQ.L #0x6,A7
00020822 12 1f | | MOVE.B (A7)+,D1
00020824 48 81 |H | EXTB.W D1
00020826 43 82 |C | CHK.W D2,D1
00020828 de c3 | | ADDA.W D3,A7
0002082a 11 81 00 0c | | MOVE.B D1,(A0+D0.W+#0xc)
0002082e 4a 30 00 0c |J0 | TST.B (A0+D0.W+#0xc)
00020832 67 08 |g | BEQ 0x2083c
00020834 3f 07 |? | MOVE.W D7,-(A7)
00020836 4e ba fe 48 |N H | JSR 0x20680
0002083a 54 4f |TO | ADDQ.L #0x2,A7
0002083c 52 47 |RG | ADDQ.W #0x1,D7
0002083e be 44 | D | CMP.W D4,D7
00020840 6f 88 |o | BLE 0x207ca
00020842 7e 00 |~ | MOVEQ.L #0x00,D7
00020844 30 3c 04 44 |0< D | MOVE.W #0x444,D0
00020848 c1 c7 | | MULS.W D7,D0
0002084a 41 f9 00 02 1e ca |A | LEA.L 0x21eca,A0
00020850 4a 30 00 0c |J0 | TST.B (A0+D0.W+#0xc)
00020854 67 00 00 8e |g | BEQ 0x208e4
00020858 9e c3 | | SUBA.W D3,A7
0002085a 22 4f |"O | MOVEA.L A7,A1
0002085c 45 fa f8 fe |E | LEA.L 0x2015c,A2
00020860 72 0c |r | MOVEQ.L #0x0c,D1
00020862 12 da | | MOVE.B (A2)+,(A1)+
00020864 51 c9 ff fc |Q | DBF D1,0x20862
00020868 9e fc 00 14 | | SUBA.W #0x14,A7
0002086c 22 4f |"O | MOVEA.L A7,A1
0002086e 45 fa f8 fa |E | LEA.L 0x2016a,A2
00020872 72 12 |r | MOVEQ.L #0x12,D1
00020874 12 da | | MOVE.B (A2)+,(A1)+
00020876 51 c9 ff fc |Q | DBF D1,0x20874
0002087a 3f 3a f9 02 |?: | MOVE.W 0x2017e,-(A7)
0002087e 3f 3a f9 00 |?: | MOVE.W 0x20180,-(A7)
00020882 51 4f |QO | SUBQ.L #0x8,A7
00020884 48 6f 00 20 |Ho | PEA.L (A7+0x20)
00020888 3f 02 |? | MOVE.W D2,-(A7)
0002088a 3f 3c 00 0d |?< | MOVE.W #0xd,-(A7)
0002088e 4e 93 |N | JSR (A3)
00020890 58 4f |XO | ADDQ.L #0x4,A7
00020892 32 07 |2 | MOVE.W D7,D1
00020894 48 c1 |H | EXTW.L D1
00020896 2f 01 |/ | MOVE.L D1,-(A7)
00020898 4e 94 |N | JSR (A4)
0002089a 48 6f 00 14 |Ho | PEA.L (A7+0x14)
0002089e 3f 02 |? | MOVE.W D2,-(A7)
000208a0 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7)
000208a4 4e 93 |N | JSR (A3)
000208a6 2e b0 00 26 |. & | MOVE.L (A0+D0.W+#0x26),(A7)
000208aa 4e 94 |N | JSR (A4)
000208ac 48 6f 00 1a |Ho | PEA.L (A7+0x1a)
000208b0 3f 02 |? | MOVE.W D2,-(A7)
000208b2 3f 05 |? | MOVE.W D5,-(A7)
000208b4 4e 93 |N | JSR (A3)
000208b6 2f 30 00 2a |/0 * | MOVE.L (A0+D0.W+#0x2a),-(A7)
000208ba 4e 94 |N | JSR (A4)
000208bc 48 6f 00 24 |Ho $ | PEA.L (A7+0x24)
000208c0 3f 02 |? | MOVE.W D2,-(A7)
000208c2 3f 05 |? | MOVE.W D5,-(A7)
000208c4 4e 93 |N | JSR (A3)
000208c6 50 4f |PO | ADDQ.L #0x8,A7
000208c8 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
000208ce 50 4f |PO | ADDQ.L #0x8,A7
000208d0 4e b9 00 01 02 e0 |N | JSR StringCat6(a, b, c, d, e, f : String) : String
000208d6 de fc 00 18 | | ADDA.W #0x18,A7
000208da 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
000208e0 de fc 00 2a | * | ADDA.W #0x2a,A7
000208e4 52 47 |RG | ADDQ.W #0x1,D7
000208e6 be 44 | D | CMP.W D4,D7
000208e8 6f 00 ff 5a |o Z | BLE 0x20844
000208ec 48 79 00 02 1e d2 |Hy | PEA.L 0x21ed2
000208f2 4e b9 00 01 03 04 |N | JSR GetRtc() : TimeStamp
000208f8 58 4f |XO | ADDQ.L #0x4,A7
000208fa 41 fa f8 60 |A ` | LEA.L 0x2015c,A0
000208fe 70 09 |p | MOVEQ.L #0x09,D0
00020900 2f 20 |/ | MOVE.L -(A0),-(A7)
00020902 51 c8 ff fc |Q | DBF D0,0x20900
00020906 51 4f |QO | SUBQ.L #0x8,A7
00020908 48 6f 00 08 |Ho | PEA.L (A7+0x8)
0002090c 3f 02 |? | MOVE.W D2,-(A7)
0002090e 3f 3c 00 28 |?< ( | MOVE.W #0x28,-(A7)
00020912 4e 93 |N | JSR (A3)
00020914 2e b9 00 02 1e d2 |. | MOVE.L 0x21ed2,(A7)
0002091a 4e b9 00 01 03 08 |N | JSR TimeToText()
00020920 58 4f |XO | ADDQ.L #0x4,A7
00020922 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00020928 50 4f |PO | ADDQ.L #0x8,A7
0002092a 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00020930 59 4f |YO | SUBQ.L #0x4,A7
00020932 20 4f | O | MOVEA.L A7,A0
00020934 43 fa f8 4c |C L | LEA.L 0x20182,A1
00020938 70 2e |p. | MOVEQ.L #0x2e,D0
0002093a 10 d9 | | MOVE.B (A1)+,(A0)+
0002093c 51 c8 ff fc |Q | DBF D0,0x2093a
00020940 59 4f |YO | SUBQ.L #0x4,A7
00020942 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00020946 3f 02 |? | MOVE.W D2,-(A7)
00020948 3f 3c 00 2f |?< / | MOVE.W #0x2f,-(A7)
0002094c 4e 93 |N | JSR (A3)
0002094e 50 4f |PO | ADDQ.L #0x8,A7
00020950 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00020956 de fc 00 34 | 4 | ADDA.W #0x34,A7
0002095a 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
0002095e 4e 5e |N^ | UNLK A6
00020960 4e 75 |Nu | RTS
00020962 ; --------------------------------------------------------------------------------------
00020962 ; OMSI PASCAL Function
00020962 ; <LVAR 0x00c 2(r)>
00020962 ; <LVAR 0x008 4(r)>
00020962 ; <LVAR -0x006 2(w)>
00020962 ; <LVAR -0x00c 2(w)>
00020962 ; <LVAR -0x010 @>
00020962 ; <LVAR -0x012 @>
00020962 ; --------------------------------------------------------------------------------------
00020962 4e 56 ff d4 |NV | LINK.W A6,#0xffd4
00020966 bf d5 | | CMPA.L (A5),A7
00020968 62 06 |b | BHI 0x20970
0002096a 44 fc 00 02 |D | MOVE.W #0x2,CCR
0002096e 4e 76 |Nv | TRAPV
00020970 de fc 00 1a | | ADDA.W #0x1a,A7
00020974 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7)
00020978 43 ee 00 0c |C | LEA.L (A6+0xc),A1
0002097c 3d 7c 00 02 ff f4 |=| | MOVE.W #0x2,(A6-0xc)
00020982 30 11 |0 | MOVE.W (A1),D0
00020984 e1 40 | @ | ASL.W #0x8,D0
00020986 52 40 |R@ | ADDQ.W #0x1,D0
00020988 3d 40 ff fa |=@ | MOVE.W D0,(A6-0x6)
0002098c 48 6e ff f0 |Hn | PEA.L (A6-0x10)
00020990 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0
00020994 2f 08 |/ | MOVE.L A0,-(A7)
00020996 3f 11 |? | MOVE.W (A1),-(A7)
00020998 4e b9 00 01 02 04 |N | JSR KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
0002099e 50 4f |PO | ADDQ.L #0x8,A7
000209a0 3e 91 |> | MOVE.W (A1),(A7)
000209a2 48 6e ff ee |Hn | PEA.L (A6-0x12)
000209a6 4e b9 00 01 02 06 |N | JSR KC03_Wait_Disk_IO(a : W; VAR status : Byte)
000209ac 5c 4f |\O | ADDQ.L #0x6,A7
000209ae 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1
000209b2 4e 5e |N^ | UNLK A6
000209b4 4e 75 |Nu | RTS
000209b6 ; --------------------------------------------------------------------------------------
000209b6 ; OMSI PASCAL Function
000209b6 ; <LVAR 0x008 2(r)>
000209b6 ; <LVAR -0x008 2(w)>
000209b6 ; <LVAR -0x00a 2(w)>
000209b6 ; <LVAR -0x00c 2(w)>
000209b6 ; <LVAR -0x012 2(w)>
000209b6 ; <LVAR -0x016 @ 2(w)>
000209b6 ; --------------------------------------------------------------------------------------
000209b6 4e 56 ff b8 |NV | LINK.W A6,#0xffb8
000209ba bf d5 | | CMPA.L (A5),A7
000209bc 62 06 |b | BHI 0x209c4
000209be 44 fc 00 02 |D | MOVE.W #0x2,CCR
000209c2 4e 76 |Nv | TRAPV
000209c4 de fc 00 32 | 2 | ADDA.W #0x32,A7
000209c8 48 e7 e0 f0 |H | MOVEM.L A3+A2+A1+A0+D2+D1+D0,-(A7)
000209cc 45 ee 00 08 |E | LEA.L (A6+0x8),A2
000209d0 47 fa fb 86 |G | LEA.L 0x20558,A3
000209d4 24 3c 00 00 ff ff |$< | MOVE.L #0xffff,D2
000209da 30 3c 04 44 |0< D | MOVE.W #0x444,D0
000209de c1 d2 | | MULS.W (A2),D0
000209e0 41 f9 00 02 1e ca |A | LEA.L 0x21eca,A0
000209e6 59 4f |YO | SUBQ.L #0x4,A7
000209e8 4e ba fb c8 |N | JSR 0x205b2
000209ec 22 1f |" | MOVE.L (A7)+,D1
000209ee b2 82 | | CMP.L D2,D1
000209f0 63 02 |c | BLS 0x209f4
000209f2 4e 4f |NO | TRAP #15
000209f4 31 81 00 32 |1 2 | MOVE.W D1,(A0+D0.W+#0x32)
000209f8 59 4f |YO | SUBQ.L #0x4,A7
000209fa 48 78 00 00 |Hx | PEA.L 0x0
000209fe 42 81 |B | CLR.L D1
00020a00 32 30 00 30 |20 0 | MOVE.W (A0+D0.W+#0x30),D1
00020a04 53 81 |S | SUBQ.L #0x1,D1
00020a06 2f 01 |/ | MOVE.L D1,-(A7)
00020a08 4e 93 |N | JSR (A3)
00020a0a 50 4f |PO | ADDQ.L #0x8,A7
00020a0c 22 1f |" | MOVE.L (A7)+,D1
00020a0e e3 81 | | ASL.L #0x1,D1
00020a10 21 81 00 1a |! | MOVE.L D1,(A0+D0.W+#0x1a)
00020a14 59 4f |YO | SUBQ.L #0x4,A7
00020a16 48 78 00 00 |Hx | PEA.L 0x0
00020a1a 42 81 |B | CLR.L D1
00020a1c 32 30 00 2e |20 . | MOVE.W (A0+D0.W+#0x2e),D1
00020a20 53 81 |S | SUBQ.L #0x1,D1
00020a22 2f 01 |/ | MOVE.L D1,-(A7)
00020a24 4e 93 |N | JSR (A3)
00020a26 50 4f |PO | ADDQ.L #0x8,A7
00020a28 21 97 00 1e |! | MOVE.L (A7),(A0+D0.W+#0x1e)
00020a2c 2f 30 00 26 |/0 & | MOVE.L (A0+D0.W+#0x26),-(A7)
00020a30 2f 30 00 2a |/0 * | MOVE.L (A0+D0.W+#0x2a),-(A7)
00020a34 4e 93 |N | JSR (A3)
00020a36 50 4f |PO | ADDQ.L #0x8,A7
00020a38 21 9f 00 22 |! " | MOVE.L (A7)+,(A0+D0.W+#0x22)
00020a3c 3d 7c 01 00 ff ea |=| | MOVE.W #0x100,(A6-0x16)
00020a42 3d 7c 00 02 ff ee |=| | MOVE.W #0x2,(A6-0x12)
00020a48 55 4f |UO | SUBQ.L #0x2,A7
00020a4a 4e b9 00 01 06 0a |N | JSR Is_machine_type_four() : Bool
00020a50 4a 1f |J | TST.B (A7)+
00020a52 67 08 |g | BEQ 0x20a5c
00020a54 32 12 |2 | MOVE.W (A2),D1
00020a56 e1 41 | A | ASL.W #0x8,D1
00020a58 56 41 |VA | ADDQ.W #0x3,D1
00020a5a 60 08 |` | BRA 0x20a64
00020a5c 32 12 |2 | MOVE.W (A2),D1
00020a5e e1 41 | A | ASL.W #0x8,D1
00020a60 06 41 00 0b | A | ADDI.W #0x000b,D1
00020a64 3d 41 ff f4 |=A | MOVE.W D1,(A6-0xc)
00020a68 22 30 00 22 |"0 " | MOVE.L (A0+D0.W+#0x22),D1
00020a6c b2 82 | | CMP.L D2,D1
00020a6e 63 02 |c | BLS 0x20a72
00020a70 4e 4f |NO | TRAP #15
00020a72 3d 41 ff f6 |=A | MOVE.W D1,(A6-0xa)
00020a76 22 30 00 1e |"0 | MOVE.L (A0+D0.W+#0x1e),D1
00020a7a e1 81 | | ASL.L #0x8,D1
00020a7c d2 b0 00 1a | | ADD.L (A0+D0.W+#0x1a),D1
00020a80 b2 82 | | CMP.L D2,D1
00020a82 63 02 |c | BLS 0x20a86
00020a84 4e 4f |NO | TRAP #15
00020a86 3d 41 ff f8 |=A | MOVE.W D1,(A6-0x8)
00020a8a 48 6e ff ea |Hn | PEA.L (A6-0x16)
00020a8e 43 f0 00 32 |C 2 | LEA.L (A0+D0.W+#0x32),A1
00020a92 2f 09 |/ | MOVE.L A1,-(A7)
00020a94 3f 12 |? | MOVE.W (A2),-(A7)
00020a96 4e b9 00 01 02 04 |N | JSR KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
00020a9c de fc 00 0a | | ADDA.W #0xa,A7
00020aa0 42 30 00 0d |B0 | CLR.B (A0+D0.W+#0xd)
00020aa4 4c df 0f 07 |L | MOVEM.L (A7)+,D0+D1+D2+A0+A1+A2+A3
00020aa8 4e 5e |N^ | UNLK A6
00020aaa 4e 75 |Nu | RTS
00020aac ; --------------------------------------------------------------------------------------
00020aac ; OMSI PASCAL Function
00020aac ; <LVAR 0x008 2(r)>
00020aac ; <LVAR -0x004 2(w)>
00020aac ; <LVAR -0x006 2(w)>
00020aac ; <LVAR -0x008 2(w)>
00020aac ; <LVAR -0x00e 2(w)>
00020aac ; <LVAR -0x012 @ 2(w)>
00020aac ; --------------------------------------------------------------------------------------
00020aac 4e 56 ff b8 |NV | LINK.W A6,#0xffb8
00020ab0 bf d5 | | CMPA.L (A5),A7
00020ab2 62 06 |b | BHI 0x20aba
00020ab4 44 fc 00 02 |D | MOVE.W #0x2,CCR
00020ab8 4e 76 |Nv | TRAPV
00020aba de fc 00 36 | 6 | ADDA.W #0x36,A7
00020abe 48 e7 e0 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D2+D1+D0,-(A7)
00020ac2 45 ee 00 08 |E | LEA.L (A6+0x8),A2
00020ac6 47 f8 00 00 |G | LEA.L 0x0,A3
00020aca 49 fa fa 8c |I | LEA.L 0x20558,A4
00020ace 74 02 |t | MOVEQ.L #0x02,D2
00020ad0 30 3c 04 44 |0< D | MOVE.W #0x444,D0
00020ad4 c1 d2 | | MULS.W (A2),D0
00020ad6 41 f9 00 02 1e ca |A | LEA.L 0x21eca,A0
00020adc 59 4f |YO | SUBQ.L #0x4,A7
00020ade 48 53 |HS | PEA.L (A3)
00020ae0 42 81 |B | CLR.L D1
00020ae2 32 30 00 30 |20 0 | MOVE.W (A0+D0.W+#0x30),D1
00020ae6 53 81 |S | SUBQ.L #0x1,D1
00020ae8 2f 01 |/ | MOVE.L D1,-(A7)
00020aea 4e 94 |N | JSR (A4)
00020aec 50 4f |PO | ADDQ.L #0x8,A7
00020aee 22 1f |" | MOVE.L (A7)+,D1
00020af0 e3 81 | | ASL.L #0x1,D1
00020af2 21 81 00 1a |! | MOVE.L D1,(A0+D0.W+#0x1a)
00020af6 59 4f |YO | SUBQ.L #0x4,A7
00020af8 48 53 |HS | PEA.L (A3)
00020afa 42 81 |B | CLR.L D1
00020afc 32 30 00 2e |20 . | MOVE.W (A0+D0.W+#0x2e),D1
00020b00 53 81 |S | SUBQ.L #0x1,D1
00020b02 2f 01 |/ | MOVE.L D1,-(A7)
00020b04 4e 94 |N | JSR (A4)
00020b06 50 4f |PO | ADDQ.L #0x8,A7
00020b08 21 97 00 1e |! | MOVE.L (A7),(A0+D0.W+#0x1e)
00020b0c 48 53 |HS | PEA.L (A3)
00020b0e 2f 30 00 2a |/0 * | MOVE.L (A0+D0.W+#0x2a),-(A7)
00020b12 4e 94 |N | JSR (A4)
00020b14 50 4f |PO | ADDQ.L #0x8,A7
00020b16 21 9f 00 22 |! " | MOVE.L (A7)+,(A0+D0.W+#0x22)
00020b1a 3d 7c 01 00 ff ee |=| | MOVE.W #0x100,(A6-0x12)
00020b20 3d 42 ff f2 |=B | MOVE.W D2,(A6-0xe)
00020b24 32 12 |2 | MOVE.W (A2),D1
00020b26 e1 41 | A | ASL.W #0x8,D1
00020b28 54 41 |TA | ADDQ.W #0x2,D1
00020b2a 3d 41 ff f8 |=A | MOVE.W D1,(A6-0x8)
00020b2e 22 30 00 22 |"0 " | MOVE.L (A0+D0.W+#0x22),D1
00020b32 0c 81 00 00 ff ff | | CMPI.L #0x0000ffff,D1
00020b38 63 02 |c | BLS 0x20b3c
00020b3a 4e 4f |NO | TRAP #15
00020b3c 3d 41 ff fa |=A | MOVE.W D1,(A6-0x6)
00020b40 22 30 00 1e |"0 | MOVE.L (A0+D0.W+#0x1e),D1
00020b44 e1 81 | | ASL.L #0x8,D1
00020b46 d2 b0 00 1a | | ADD.L (A0+D0.W+#0x1a),D1
00020b4a 0c 81 00 00 ff ff | | CMPI.L #0x0000ffff,D1
00020b50 63 02 |c | BLS 0x20b54
00020b52 4e 4f |NO | TRAP #15
00020b54 3d 41 ff fc |=A | MOVE.W D1,(A6-0x4)
00020b58 48 6e ff ee |Hn | PEA.L (A6-0x12)
00020b5c 43 f0 00 32 |C 2 | LEA.L (A0+D0.W+#0x32),A1
00020b60 2f 09 |/ | MOVE.L A1,-(A7)
00020b62 3f 12 |? | MOVE.W (A2),-(A7)
00020b64 4e b9 00 01 02 04 |N | JSR KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
00020b6a de fc 00 0a | | ADDA.W #0xa,A7
00020b6e 11 82 00 0d | | MOVE.B D2,(A0+D0.W+#0xd)
00020b72 4c df 1f 07 |L | MOVEM.L (A7)+,D0+D1+D2+A0+A1+A2+A3+A4
00020b76 4e 5e |N^ | UNLK A6
00020b78 4e 75 |Nu | RTS
00020b7a ; --------------------------------------------------------------------------------------
00020b7a ; OMSI PASCAL Function
00020b7a ; <LVAR 0x008 2(r)>
00020b7a ; <LVAR -0x004 2(w)>
00020b7a ; <LVAR -0x006 2(w)>
00020b7a ; <LVAR -0x008 2(w)>
00020b7a ; <LVAR -0x00e 2(w)>
00020b7a ; <LVAR -0x012 @ 2(w)>
00020b7a ; --------------------------------------------------------------------------------------
00020b7a 4e 56 ff c6 |NV | LINK.W A6,#0xffc6
00020b7e bf d5 | | CMPA.L (A5),A7
00020b80 62 06 |b | BHI 0x20b88
00020b82 44 fc 00 02 |D | MOVE.W #0x2,CCR
00020b86 4e 76 |Nv | TRAPV
00020b88 de fc 00 28 | ( | ADDA.W #0x28,A7
00020b8c 48 e7 c0 e0 |H | MOVEM.L A2+A1+A0+D1+D0,-(A7)
00020b90 45 ee 00 08 |E | LEA.L (A6+0x8),A2
00020b94 30 3c 04 44 |0< D | MOVE.W #0x444,D0
00020b98 c1 d2 | | MULS.W (A2),D0
00020b9a 41 f9 00 02 1e ca |A | LEA.L 0x21eca,A0
00020ba0 3d 7c 01 00 ff ee |=| | MOVE.W #0x100,(A6-0x12)
00020ba6 3d 7c 00 02 ff f2 |=| | MOVE.W #0x2,(A6-0xe)
00020bac 55 4f |UO | SUBQ.L #0x2,A7
00020bae 4e b9 00 01 06 0a |N | JSR Is_machine_type_four() : Bool
00020bb4 4a 1f |J | TST.B (A7)+
00020bb6 67 08 |g | BEQ 0x20bc0
00020bb8 32 12 |2 | MOVE.W (A2),D1
00020bba e1 41 | A | ASL.W #0x8,D1
00020bbc 54 41 |TA | ADDQ.W #0x2,D1
00020bbe 60 08 |` | BRA 0x20bc8
00020bc0 32 12 |2 | MOVE.W (A2),D1
00020bc2 e1 41 | A | ASL.W #0x8,D1
00020bc4 06 41 00 0c | A | ADDI.W #0x000c,D1
00020bc8 3d 41 ff f8 |=A | MOVE.W D1,(A6-0x8)
00020bcc 22 30 00 22 |"0 " | MOVE.L (A0+D0.W+#0x22),D1
00020bd0 0c 81 00 00 ff ff | | CMPI.L #0x0000ffff,D1
00020bd6 63 02 |c | BLS 0x20bda
00020bd8 4e 4f |NO | TRAP #15
00020bda 3d 41 ff fa |=A | MOVE.W D1,(A6-0x6)
00020bde 22 30 00 1e |"0 | MOVE.L (A0+D0.W+#0x1e),D1
00020be2 e1 81 | | ASL.L #0x8,D1
00020be4 d2 b0 00 1a | | ADD.L (A0+D0.W+#0x1a),D1
00020be8 0c 81 00 00 ff ff | | CMPI.L #0x0000ffff,D1
00020bee 63 02 |c | BLS 0x20bf2
00020bf0 4e 4f |NO | TRAP #15
00020bf2 3d 41 ff fc |=A | MOVE.W D1,(A6-0x4)
00020bf6 48 6e ff ee |Hn | PEA.L (A6-0x12)
00020bfa 43 f0 00 32 |C 2 | LEA.L (A0+D0.W+#0x32),A1
00020bfe 2f 09 |/ | MOVE.L A1,-(A7)
00020c00 3f 12 |? | MOVE.W (A2),-(A7)
00020c02 4e b9 00 01 02 04 |N | JSR KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
00020c08 de fc 00 0a | | ADDA.W #0xa,A7
00020c0c 11 bc 00 01 00 0d | | MOVE.B #0x01,(A0+D0.W+#0xd)
00020c12 4c df 07 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2
00020c16 4e 5e |N^ | UNLK A6
00020c18 4e 75 |Nu | RTS
00020c1a ; --------------------------------------------------------------------------------------
00020c1a ; OMSI PASCAL Function
00020c1a ; <LVAR 0x00a 4(r)>
00020c1a ; <LVAR 0x008 2(r)>
00020c1a ; <LVAR -0x004 @ 4(r)>
00020c1a ; --------------------------------------------------------------------------------------
00020c1a 4e 56 ff 56 |NV V | LINK.W A6,#0xff56
00020c1e bf d5 | | CMPA.L (A5),A7
00020c20 62 06 |b | BHI 0x20c28
00020c22 44 fc 00 02 |D | MOVE.W #0x2,CCR
00020c26 4e 76 |Nv | TRAPV
00020c28 de fc 00 8c | | ADDA.W #0x8c,A7
00020c2c 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00020c30 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
00020c36 49 f9 00 01 03 e0 |I | LEA.L WriteConsoleStringCrLf(str : String),A4
00020c3c 74 01 |t | MOVEQ.L #0x01,D2
00020c3e 7a 12 |z | MOVEQ.L #0x12,D5
00020c40 7c 16 || | MOVEQ.L #0x16,D6
00020c42 48 6e ff fc |Hn | PEA.L (A6-0x4)
00020c46 4e b9 00 01 03 04 |N | JSR GetRtc() : TimeStamp
00020c4c 58 4f |XO | ADDQ.L #0x4,A7
00020c4e 41 fa f8 42 |A B | LEA.L 0x20492,A0
00020c52 70 06 |p | MOVEQ.L #0x06,D0
00020c54 3f 20 |? | MOVE.W -(A0),-(A7)
00020c56 51 c8 ff fc |Q | DBF D0,0x20c54
00020c5a 2f 3a f8 36 |/: 6 | MOVE.L 0x20492,-(A7)
00020c5e 9e c5 | | SUBA.W D5,A7
00020c60 20 4f | O | MOVEA.L A7,A0
00020c62 43 fa f8 32 |C 2 | LEA.L 0x20496,A1
00020c66 70 10 |p | MOVEQ.L #0x10,D0
00020c68 10 d9 | | MOVE.B (A1)+,(A0)+
00020c6a 51 c8 ff fc |Q | DBF D0,0x20c68
00020c6e 51 4f |QO | SUBQ.L #0x8,A7
00020c70 48 6f 00 1e |Ho | PEA.L (A7+0x1e)
00020c74 3f 02 |? | MOVE.W D2,-(A7)
00020c76 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7)
00020c7a 4e 93 |N | JSR (A3)
00020c7c 58 4f |XO | ADDQ.L #0x4,A7
00020c7e 30 2e 00 08 |0. | MOVE.W (A6+0x8),D0
00020c82 48 c0 |H | EXTW.L D0
00020c84 2f 00 |/ | MOVE.L D0,-(A7)
00020c86 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String
00020c8c 48 6f 00 22 |Ho " | PEA.L (A7+0x22)
00020c90 3f 02 |? | MOVE.W D2,-(A7)
00020c92 3f 3c 00 04 |?< | MOVE.W #0x4,-(A7)
00020c96 4e 93 |N | JSR (A3)
00020c98 2e ae ff fc |. | MOVE.L (A6-0x4),(A7)
00020c9c 4e b9 00 01 03 08 |N | JSR TimeToText()
00020ca2 48 6f 00 18 |Ho | PEA.L (A7+0x18)
00020ca6 3f 02 |? | MOVE.W D2,-(A7)
00020ca8 3f 3c 00 11 |?< | MOVE.W #0x11,-(A7)
00020cac 4e 93 |N | JSR (A3)
00020cae 2e b9 00 02 1e d2 |. | MOVE.L 0x21ed2,(A7)
00020cb4 4e b9 00 01 03 08 |N | JSR TimeToText()
00020cba 58 4f |XO | ADDQ.L #0x4,A7
00020cbc 4e b9 00 01 02 e0 |N | JSR StringCat6(a, b, c, d, e, f : String) : String
00020cc2 de fc 00 18 | | ADDA.W #0x18,A7
00020cc6 4e 94 |N | JSR (A4)
00020cc8 de fc 00 28 | ( | ADDA.W #0x28,A7
00020ccc 30 3c 04 44 |0< D | MOVE.W #0x444,D0
00020cd0 c1 ee 00 08 | | MULS.W (A6+0x8),D0
00020cd4 41 f9 00 02 1e ca |A | LEA.L 0x21eca,A0
00020cda 3f 00 |? | MOVE.W D0,-(A7)
00020cdc 2f 08 |/ | MOVE.L A0,-(A7)
00020cde 43 fa f7 da |C | LEA.L 0x204ba,A1
00020ce2 72 08 |r | MOVEQ.L #0x08,D1
00020ce4 3f 21 |?! | MOVE.W -(A1),-(A7)
00020ce6 51 c9 ff fc |Q | DBF D1,0x20ce4
00020cea 59 4f |YO | SUBQ.L #0x4,A7
00020cec 2f 2e 00 0a |/. | MOVE.L (A6+0xa),-(A7)
00020cf0 59 4f |YO | SUBQ.L #0x4,A7
00020cf2 48 6f 00 0c |Ho | PEA.L (A7+0xc)
00020cf6 3f 02 |? | MOVE.W D2,-(A7)
00020cf8 3f 05 |? | MOVE.W D5,-(A7)
00020cfa 4e 93 |N | JSR (A3)
00020cfc 2e b0 00 16 |. | MOVE.L (A0+D0.W+#0x16),(A7)
00020d00 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String
00020d06 58 4f |XO | ADDQ.L #0x4,A7
00020d08 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String
00020d0e de fc 00 0c | | ADDA.W #0xc,A7
00020d12 4e 94 |N | JSR (A4)
00020d14 de c6 | | ADDA.W D6,A7
00020d16 7e 00 |~ | MOVEQ.L #0x00,D7
00020d18 0c 87 00 00 00 08 | | CMPI.L #0x00000008,D7
00020d1e 63 02 |c | BLS 0x20d22
00020d20 4e 4f |NO | TRAP #15
00020d22 28 07 |( | MOVE.L D7,D4
00020d24 76 05 |v | MOVEQ.L #0x05,D3
00020d26 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4
00020d2c 41 fa f7 fc |A | LEA.L 0x2052a,A0
00020d30 5d 4f |]O | SUBQ.L #0x6,A7
00020d32 22 4f |"O | MOVEA.L A7,A1
00020d34 41 f0 48 00 |A H | LEA.L (A0+D4.L),A0
00020d38 70 04 |p | MOVEQ.L #0x04,D0
00020d3a 12 d8 | | MOVE.B (A0)+,(A1)+
00020d3c 51 c8 ff fc |Q | DBF D0,0x20d3a
00020d40 51 4f |QO | SUBQ.L #0x8,A7
00020d42 48 6f 00 08 |Ho | PEA.L (A7+0x8)
00020d46 3f 02 |? | MOVE.W D2,-(A7)
00020d48 3f 3c 00 05 |?< | MOVE.W #0x5,-(A7)
00020d4c 4e 93 |N | JSR (A3)
00020d4e 58 4f |XO | ADDQ.L #0x4,A7
00020d50 0c 87 00 00 00 0a | | CMPI.L #0x0000000a,D7
00020d56 63 02 |c | BLS 0x20d5a
00020d58 4e 4f |NO | TRAP #15
00020d5a 20 07 | | MOVE.L D7,D0
00020d5c e3 80 | | ASL.L #0x1,D0
00020d5e 20 6f 00 12 | o | MOVEA.L (A7+0x12),A0
00020d62 32 2f 00 16 |2/ | MOVE.W (A7+0x16),D1
00020d66 41 f0 10 0c |A | LEA.L (A0+D1.W+#0xc),A0
00020d6a 41 f0 08 00 |A | LEA.L (A0+D0.L),A0
00020d6e 42 80 |B | CLR.L D0
00020d70 30 28 04 26 |0( & | MOVE.W (A0+0x426),D0
00020d74 2f 00 |/ | MOVE.L D0,-(A7)
00020d76 48 78 00 04 |Hx | PEA.L 0x4
00020d7a 4e b9 00 01 02 e8 |N | JSR Long2HexString(val : Long; ndig : Long) : String
00020d80 50 4f |PO | ADDQ.L #0x8,A7
00020d82 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00020d88 50 4f |PO | ADDQ.L #0x8,A7
00020d8a 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String)
00020d90 de fc 00 0a | | ADDA.W #0xa,A7
00020d94 52 87 |R | ADDQ.L #0x1,D7
00020d96 0c 87 00 00 00 08 | | CMPI.L #0x00000008,D7
00020d9c 6f 00 ff 7a |o z | BLE 0x20d18
00020da0 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void)
00020da6 20 57 | W | MOVEA.L (A7),A0
00020da8 30 2f 00 04 |0/ | MOVE.W (A7+0x4),D0
00020dac 41 f0 00 0c |A | LEA.L (A0+D0.W+#0xc),A0
00020db0 2f 08 |/ | MOVE.L A0,-(A7)
00020db2 30 28 04 26 |0( & | MOVE.W (A0+0x426),D0
00020db6 02 40 80 00 | @ | ANDI.W #0x8000,D0
00020dba 67 24 |g$ | BEQ 0x20de0
00020dbc 9e c5 | | SUBA.W D5,A7
00020dbe 22 4f |"O | MOVEA.L A7,A1
00020dc0 45 fa f4 26 |E & | LEA.L 0x201e8,A2
00020dc4 70 10 |p | MOVEQ.L #0x10,D0
00020dc6 12 da | | MOVE.B (A2)+,(A1)+
00020dc8 51 c8 ff fc |Q | DBF D0,0x20dc6
00020dcc 59 4f |YO | SUBQ.L #0x4,A7
00020dce 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00020dd2 3f 02 |? | MOVE.W D2,-(A7)
00020dd4 3f 3c 00 11 |?< | MOVE.W #0x11,-(A7)
00020dd8 4e 93 |N | JSR (A3)
00020dda 50 4f |PO | ADDQ.L #0x8,A7
00020ddc 4e 94 |N | JSR (A4)
00020dde de c6 | | ADDA.W D6,A7
00020de0 30 28 04 26 |0( & | MOVE.W (A0+0x426),D0
00020de4 02 40 40 00 | @@ | ANDI.W #0x4000,D0
00020de8 67 20 |g | BEQ 0x20e0a
00020dea 43 fa f4 1c |C | LEA.L 0x20208,A1
00020dee 70 06 |p | MOVEQ.L #0x06,D0
00020df0 3f 21 |?! | MOVE.W -(A1),-(A7)
00020df2 51 c8 ff fc |Q | DBF D0,0x20df0
00020df6 59 4f |YO | SUBQ.L #0x4,A7
00020df8 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00020dfc 3f 02 |? | MOVE.W D2,-(A7)
00020dfe 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7)
00020e02 4e 93 |N | JSR (A3)
00020e04 50 4f |PO | ADDQ.L #0x8,A7
00020e06 4e 94 |N | JSR (A4)
00020e08 de c5 | | ADDA.W D5,A7
00020e0a 30 28 04 26 |0( & | MOVE.W (A0+0x426),D0
00020e0e 02 40 08 00 | @ | ANDI.W #0x0800,D0
00020e12 66 20 |f | BNE 0x20e34
00020e14 43 fa f4 08 |C | LEA.L 0x2021e,A1
00020e18 70 0a |p | MOVEQ.L #0x0a,D0
00020e1a 3f 21 |?! | MOVE.W -(A1),-(A7)
00020e1c 51 c8 ff fc |Q | DBF D0,0x20e1a
00020e20 59 4f |YO | SUBQ.L #0x4,A7
00020e22 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00020e26 3f 02 |? | MOVE.W D2,-(A7)
00020e28 3f 06 |? | MOVE.W D6,-(A7)
00020e2a 4e 93 |N | JSR (A3)
00020e2c 50 4f |PO | ADDQ.L #0x8,A7
00020e2e 4e 94 |N | JSR (A4)
00020e30 de fc 00 1a | | ADDA.W #0x1a,A7
00020e34 30 28 04 26 |0( & | MOVE.W (A0+0x426),D0
00020e38 02 40 00 80 | @ | ANDI.W #0x0080,D0
00020e3c 66 1e |f | BNE 0x20e5c
00020e3e 41 fa f3 f0 |A | LEA.L 0x20230,A0
00020e42 70 08 |p | MOVEQ.L #0x08,D0
00020e44 3f 20 |? | MOVE.W -(A0),-(A7)
00020e46 51 c8 ff fc |Q | DBF D0,0x20e44
00020e4a 59 4f |YO | SUBQ.L #0x4,A7
00020e4c 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00020e50 3f 02 |? | MOVE.W D2,-(A7)
00020e52 3f 05 |? | MOVE.W D5,-(A7)
00020e54 4e 93 |N | JSR (A3)
00020e56 50 4f |PO | ADDQ.L #0x8,A7
00020e58 4e 94 |N | JSR (A4)
00020e5a de c6 | | ADDA.W D6,A7
00020e5c 20 57 | W | MOVEA.L (A7),A0
00020e5e 30 28 04 28 |0( ( | MOVE.W (A0+0x428),D0
00020e62 02 40 80 00 | @ | ANDI.W #0x8000,D0
00020e66 67 28 |g( | BEQ 0x20e90
00020e68 9e fc 00 0a | | SUBA.W #0xa,A7
00020e6c 22 4f |"O | MOVEA.L A7,A1
00020e6e 45 fa f3 c0 |E | LEA.L 0x20230,A2
00020e72 70 08 |p | MOVEQ.L #0x08,D0
00020e74 12 da | | MOVE.B (A2)+,(A1)+
00020e76 51 c8 ff fc |Q | DBF D0,0x20e74
00020e7a 59 4f |YO | SUBQ.L #0x4,A7
00020e7c 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00020e80 3f 02 |? | MOVE.W D2,-(A7)
00020e82 3f 3c 00 09 |?< | MOVE.W #0x9,-(A7)
00020e86 4e 93 |N | JSR (A3)
00020e88 50 4f |PO | ADDQ.L #0x8,A7
00020e8a 4e 94 |N | JSR (A4)
00020e8c de fc 00 0e | | ADDA.W #0xe,A7
00020e90 30 28 04 28 |0( ( | MOVE.W (A0+0x428),D0
00020e94 02 40 40 00 | @@ | ANDI.W #0x4000,D0
00020e98 67 24 |g$ | BEQ 0x20ebe
00020e9a 9e c5 | | SUBA.W D5,A7
00020e9c 22 4f |"O | MOVEA.L A7,A1
00020e9e 45 fa f3 9a |E | LEA.L 0x2023a,A2
00020ea2 70 10 |p | MOVEQ.L #0x10,D0
00020ea4 12 da | | MOVE.B (A2)+,(A1)+
00020ea6 51 c8 ff fc |Q | DBF D0,0x20ea4
00020eaa 59 4f |YO | SUBQ.L #0x4,A7
00020eac 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00020eb0 3f 02 |? | MOVE.W D2,-(A7)
00020eb2 3f 3c 00 11 |?< | MOVE.W #0x11,-(A7)
00020eb6 4e 93 |N | JSR (A3)
00020eb8 50 4f |PO | ADDQ.L #0x8,A7
00020eba 4e 94 |N | JSR (A4)
00020ebc de c6 | | ADDA.W D6,A7
00020ebe 30 28 04 28 |0( ( | MOVE.W (A0+0x428),D0
00020ec2 02 40 10 00 | @ | ANDI.W #0x1000,D0
00020ec6 67 1e |g | BEQ 0x20ee6
00020ec8 43 fa f3 94 |C | LEA.L 0x2025e,A1
00020ecc 70 08 |p | MOVEQ.L #0x08,D0
00020ece 3f 21 |?! | MOVE.W -(A1),-(A7)
00020ed0 51 c8 ff fc |Q | DBF D0,0x20ece
00020ed4 59 4f |YO | SUBQ.L #0x4,A7
00020ed6 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00020eda 3f 02 |? | MOVE.W D2,-(A7)
00020edc 3f 05 |? | MOVE.W D5,-(A7)
00020ede 4e 93 |N | JSR (A3)
00020ee0 50 4f |PO | ADDQ.L #0x8,A7
00020ee2 4e 94 |N | JSR (A4)
00020ee4 de c6 | | ADDA.W D6,A7
00020ee6 30 28 04 28 |0( ( | MOVE.W (A0+0x428),D0
00020eea 02 40 08 00 | @ | ANDI.W #0x0800,D0
00020eee 67 28 |g( | BEQ 0x20f18
00020ef0 9e fc 00 14 | | SUBA.W #0x14,A7
00020ef4 22 4f |"O | MOVEA.L A7,A1
00020ef6 45 fa f3 66 |E f | LEA.L 0x2025e,A2
00020efa 70 12 |p | MOVEQ.L #0x12,D0
00020efc 12 da | | MOVE.B (A2)+,(A1)+
00020efe 51 c8 ff fc |Q | DBF D0,0x20efc
00020f02 59 4f |YO | SUBQ.L #0x4,A7
00020f04 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00020f08 3f 02 |? | MOVE.W D2,-(A7)
00020f0a 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7)
00020f0e 4e 93 |N | JSR (A3)
00020f10 50 4f |PO | ADDQ.L #0x8,A7
00020f12 4e 94 |N | JSR (A4)
00020f14 de fc 00 18 | | ADDA.W #0x18,A7
00020f18 30 28 04 28 |0( ( | MOVE.W (A0+0x428),D0
00020f1c 02 40 04 00 | @ | ANDI.W #0x0400,D0
00020f20 67 26 |g& | BEQ 0x20f48
00020f22 9e fc 00 0e | | SUBA.W #0xe,A7
00020f26 22 4f |"O | MOVEA.L A7,A1
00020f28 45 fa f3 48 |E H | LEA.L 0x20272,A2
00020f2c 70 0c |p | MOVEQ.L #0x0c,D0
00020f2e 12 da | | MOVE.B (A2)+,(A1)+
00020f30 51 c8 ff fc |Q | DBF D0,0x20f2e
00020f34 59 4f |YO | SUBQ.L #0x4,A7
00020f36 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00020f3a 3f 02 |? | MOVE.W D2,-(A7)
00020f3c 3f 3c 00 0d |?< | MOVE.W #0xd,-(A7)
00020f40 4e 93 |N | JSR (A3)
00020f42 50 4f |PO | ADDQ.L #0x8,A7
00020f44 4e 94 |N | JSR (A4)
00020f46 de c5 | | ADDA.W D5,A7
00020f48 30 28 04 28 |0( ( | MOVE.W (A0+0x428),D0
00020f4c 02 40 02 00 | @ | ANDI.W #0x0200,D0
00020f50 67 28 |g( | BEQ 0x20f7a
00020f52 9e fc 00 10 | | SUBA.W #0x10,A7
00020f56 22 4f |"O | MOVEA.L A7,A1
00020f58 45 fa f3 26 |E & | LEA.L 0x20280,A2
00020f5c 70 0e |p | MOVEQ.L #0x0e,D0
00020f5e 12 da | | MOVE.B (A2)+,(A1)+
00020f60 51 c8 ff fc |Q | DBF D0,0x20f5e
00020f64 59 4f |YO | SUBQ.L #0x4,A7
00020f66 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00020f6a 3f 02 |? | MOVE.W D2,-(A7)
00020f6c 3f 3c 00 0f |?< | MOVE.W #0xf,-(A7)
00020f70 4e 93 |N | JSR (A3)
00020f72 50 4f |PO | ADDQ.L #0x8,A7
00020f74 4e 94 |N | JSR (A4)
00020f76 de fc 00 14 | | ADDA.W #0x14,A7
00020f7a 30 28 04 28 |0( ( | MOVE.W (A0+0x428),D0
00020f7e 02 40 00 40 | @ @ | ANDI.W #0x0040,D0
00020f82 66 28 |f( | BNE 0x20fac
00020f84 9e fc 00 10 | | SUBA.W #0x10,A7
00020f88 22 4f |"O | MOVEA.L A7,A1
00020f8a 45 fa f3 04 |E | LEA.L 0x20290,A2
00020f8e 70 0e |p | MOVEQ.L #0x0e,D0
00020f90 12 da | | MOVE.B (A2)+,(A1)+
00020f92 51 c8 ff fc |Q | DBF D0,0x20f90
00020f96 59 4f |YO | SUBQ.L #0x4,A7
00020f98 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00020f9c 3f 02 |? | MOVE.W D2,-(A7)
00020f9e 3f 3c 00 0f |?< | MOVE.W #0xf,-(A7)
00020fa2 4e 93 |N | JSR (A3)
00020fa4 50 4f |PO | ADDQ.L #0x8,A7
00020fa6 4e 94 |N | JSR (A4)
00020fa8 de fc 00 14 | | ADDA.W #0x14,A7
00020fac 30 28 04 28 |0( ( | MOVE.W (A0+0x428),D0
00020fb0 02 40 00 04 | @ | ANDI.W #0x0004,D0
00020fb4 67 28 |g( | BEQ 0x20fde
00020fb6 9e fc 00 1e | | SUBA.W #0x1e,A7
00020fba 22 4f |"O | MOVEA.L A7,A1
00020fbc 45 fa f2 e2 |E | LEA.L 0x202a0,A2
00020fc0 70 1c |p | MOVEQ.L #0x1c,D0
00020fc2 12 da | | MOVE.B (A2)+,(A1)+
00020fc4 51 c8 ff fc |Q | DBF D0,0x20fc2
00020fc8 59 4f |YO | SUBQ.L #0x4,A7
00020fca 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00020fce 3f 02 |? | MOVE.W D2,-(A7)
00020fd0 3f 3c 00 1d |?< | MOVE.W #0x1d,-(A7)
00020fd4 4e 93 |N | JSR (A3)
00020fd6 50 4f |PO | ADDQ.L #0x8,A7
00020fd8 4e 94 |N | JSR (A4)
00020fda de fc 00 22 | " | ADDA.W #0x22,A7
00020fde 30 28 04 2a |0( * | MOVE.W (A0+0x42a),D0
00020fe2 02 40 20 00 | @ | ANDI.W #0x2000,D0
00020fe6 67 28 |g( | BEQ 0x21010
00020fe8 9e fc 00 18 | | SUBA.W #0x18,A7
00020fec 22 4f |"O | MOVEA.L A7,A1
00020fee 45 fa f2 ce |E | LEA.L 0x202be,A2
00020ff2 70 16 |p | MOVEQ.L #0x16,D0
00020ff4 12 da | | MOVE.B (A2)+,(A1)+
00020ff6 51 c8 ff fc |Q | DBF D0,0x20ff4
00020ffa 59 4f |YO | SUBQ.L #0x4,A7
00020ffc 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021000 3f 02 |? | MOVE.W D2,-(A7)
00021002 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7)
00021006 4e 93 |N | JSR (A3)
00021008 50 4f |PO | ADDQ.L #0x8,A7
0002100a 4e 94 |N | JSR (A4)
0002100c de fc 00 1c | | ADDA.W #0x1c,A7
00021010 30 28 04 2a |0( * | MOVE.W (A0+0x42a),D0
00021014 02 40 10 00 | @ | ANDI.W #0x1000,D0
00021018 66 1e |f | BNE 0x21038
0002101a 43 fa f2 cc |C | LEA.L 0x202e8,A1
0002101e 70 08 |p | MOVEQ.L #0x08,D0
00021020 3f 21 |?! | MOVE.W -(A1),-(A7)
00021022 51 c8 ff fc |Q | DBF D0,0x21020
00021026 59 4f |YO | SUBQ.L #0x4,A7
00021028 48 6f 00 04 |Ho | PEA.L (A7+0x4)
0002102c 3f 02 |? | MOVE.W D2,-(A7)
0002102e 3f 05 |? | MOVE.W D5,-(A7)
00021030 4e 93 |N | JSR (A3)
00021032 50 4f |PO | ADDQ.L #0x8,A7
00021034 4e 94 |N | JSR (A4)
00021036 de c6 | | ADDA.W D6,A7
00021038 30 28 04 2a |0( * | MOVE.W (A0+0x42a),D0
0002103c 02 40 08 00 | @ | ANDI.W #0x0800,D0
00021040 67 22 |g" | BEQ 0x21064
00021042 2f 3a f2 ac |/: | MOVE.L 0x202f0,-(A7)
00021046 2f 3a f2 a4 |/: | MOVE.L 0x202ec,-(A7)
0002104a 2f 3a f2 9c |/: | MOVE.L 0x202e8,-(A7)
0002104e 59 4f |YO | SUBQ.L #0x4,A7
00021050 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021054 3f 02 |? | MOVE.W D2,-(A7)
00021056 3f 3c 00 0c |?< | MOVE.W #0xc,-(A7)
0002105a 4e 93 |N | JSR (A3)
0002105c 50 4f |PO | ADDQ.L #0x8,A7
0002105e 4e 94 |N | JSR (A4)
00021060 de fc 00 10 | | ADDA.W #0x10,A7
00021064 30 28 04 2a |0( * | MOVE.W (A0+0x42a),D0
00021068 02 40 04 00 | @ | ANDI.W #0x0400,D0
0002106c 67 20 |g | BEQ 0x2108e
0002106e 43 fa f2 9a |C | LEA.L 0x2030a,A1
00021072 70 0a |p | MOVEQ.L #0x0a,D0
00021074 3f 21 |?! | MOVE.W -(A1),-(A7)
00021076 51 c8 ff fc |Q | DBF D0,0x21074
0002107a 59 4f |YO | SUBQ.L #0x4,A7
0002107c 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021080 3f 02 |? | MOVE.W D2,-(A7)
00021082 3f 06 |? | MOVE.W D6,-(A7)
00021084 4e 93 |N | JSR (A3)
00021086 50 4f |PO | ADDQ.L #0x8,A7
00021088 4e 94 |N | JSR (A4)
0002108a de fc 00 1a | | ADDA.W #0x1a,A7
0002108e 30 28 04 2a |0( * | MOVE.W (A0+0x42a),D0
00021092 02 40 01 00 | @ | ANDI.W #0x0100,D0
00021096 66 24 |f$ | BNE 0x210bc
00021098 9e c5 | | SUBA.W D5,A7
0002109a 22 4f |"O | MOVEA.L A7,A1
0002109c 45 fa f2 6c |E l | LEA.L 0x2030a,A2
000210a0 70 10 |p | MOVEQ.L #0x10,D0
000210a2 12 da | | MOVE.B (A2)+,(A1)+
000210a4 51 c8 ff fc |Q | DBF D0,0x210a2
000210a8 59 4f |YO | SUBQ.L #0x4,A7
000210aa 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000210ae 3f 02 |? | MOVE.W D2,-(A7)
000210b0 3f 3c 00 11 |?< | MOVE.W #0x11,-(A7)
000210b4 4e 93 |N | JSR (A3)
000210b6 50 4f |PO | ADDQ.L #0x8,A7
000210b8 4e 94 |N | JSR (A4)
000210ba de c6 | | ADDA.W D6,A7
000210bc 30 28 04 2a |0( * | MOVE.W (A0+0x42a),D0
000210c0 02 40 00 80 | @ | ANDI.W #0x0080,D0
000210c4 66 28 |f( | BNE 0x210ee
000210c6 9e fc 00 10 | | SUBA.W #0x10,A7
000210ca 22 4f |"O | MOVEA.L A7,A1
000210cc 45 fa f2 4e |E N | LEA.L 0x2031c,A2
000210d0 70 0e |p | MOVEQ.L #0x0e,D0
000210d2 12 da | | MOVE.B (A2)+,(A1)+
000210d4 51 c8 ff fc |Q | DBF D0,0x210d2
000210d8 59 4f |YO | SUBQ.L #0x4,A7
000210da 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000210de 3f 02 |? | MOVE.W D2,-(A7)
000210e0 3f 3c 00 0f |?< | MOVE.W #0xf,-(A7)
000210e4 4e 93 |N | JSR (A3)
000210e6 50 4f |PO | ADDQ.L #0x8,A7
000210e8 4e 94 |N | JSR (A4)
000210ea de fc 00 14 | | ADDA.W #0x14,A7
000210ee 30 28 04 2a |0( * | MOVE.W (A0+0x42a),D0
000210f2 02 40 00 40 | @ @ | ANDI.W #0x0040,D0
000210f6 66 26 |f& | BNE 0x2111e
000210f8 2f 3a f2 3e |/: > | MOVE.L 0x20338,-(A7)
000210fc 2f 3a f2 36 |/: 6 | MOVE.L 0x20334,-(A7)
00021100 2f 3a f2 2e |/: . | MOVE.L 0x20330,-(A7)
00021104 2f 3a f2 26 |/: & | MOVE.L 0x2032c,-(A7)
00021108 59 4f |YO | SUBQ.L #0x4,A7
0002110a 48 6f 00 04 |Ho | PEA.L (A7+0x4)
0002110e 3f 02 |? | MOVE.W D2,-(A7)
00021110 3f 3c 00 10 |?< | MOVE.W #0x10,-(A7)
00021114 4e 93 |N | JSR (A3)
00021116 50 4f |PO | ADDQ.L #0x8,A7
00021118 4e 94 |N | JSR (A4)
0002111a de fc 00 14 | | ADDA.W #0x14,A7
0002111e 30 28 04 2c |0( , | MOVE.W (A0+0x42c),D0
00021122 02 40 80 00 | @ | ANDI.W #0x8000,D0
00021126 67 26 |g& | BEQ 0x2114e
00021128 2f 3a f2 1e |/: | MOVE.L 0x20348,-(A7)
0002112c 2f 3a f2 16 |/: | MOVE.L 0x20344,-(A7)
00021130 2f 3a f2 0e |/: | MOVE.L 0x20340,-(A7)
00021134 2f 3a f2 06 |/: | MOVE.L 0x2033c,-(A7)
00021138 59 4f |YO | SUBQ.L #0x4,A7
0002113a 48 6f 00 04 |Ho | PEA.L (A7+0x4)
0002113e 3f 02 |? | MOVE.W D2,-(A7)
00021140 3f 3c 00 10 |?< | MOVE.W #0x10,-(A7)
00021144 4e 93 |N | JSR (A3)
00021146 50 4f |PO | ADDQ.L #0x8,A7
00021148 4e 94 |N | JSR (A4)
0002114a de fc 00 14 | | ADDA.W #0x14,A7
0002114e 30 28 04 2c |0( , | MOVE.W (A0+0x42c),D0
00021152 02 40 40 00 | @@ | ANDI.W #0x4000,D0
00021156 67 22 |g" | BEQ 0x2117a
00021158 3f 3a f1 f6 |?: | MOVE.W 0x20350,-(A7)
0002115c 3f 3a f1 f0 |?: | MOVE.W 0x2034e,-(A7)
00021160 3f 3a f1 ea |?: | MOVE.W 0x2034c,-(A7)
00021164 59 4f |YO | SUBQ.L #0x4,A7
00021166 48 6f 00 04 |Ho | PEA.L (A7+0x4)
0002116a 3f 02 |? | MOVE.W D2,-(A7)
0002116c 3f 3c 00 06 |?< | MOVE.W #0x6,-(A7)
00021170 4e 93 |N | JSR (A3)
00021172 50 4f |PO | ADDQ.L #0x8,A7
00021174 4e 94 |N | JSR (A4)
00021176 de fc 00 0a | | ADDA.W #0xa,A7
0002117a 30 28 04 2c |0( , | MOVE.W (A0+0x42c),D0
0002117e 02 40 20 00 | @ | ANDI.W #0x2000,D0
00021182 67 22 |g" | BEQ 0x211a6
00021184 43 fa f1 e0 |C | LEA.L 0x20366,A1
00021188 70 04 |p | MOVEQ.L #0x04,D0
0002118a 2f 21 |/! | MOVE.L -(A1),-(A7)
0002118c 51 c8 ff fc |Q | DBF D0,0x2118a
00021190 59 4f |YO | SUBQ.L #0x4,A7
00021192 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021196 3f 02 |? | MOVE.W D2,-(A7)
00021198 3f 3c 00 14 |?< | MOVE.W #0x14,-(A7)
0002119c 4e 93 |N | JSR (A3)
0002119e 50 4f |PO | ADDQ.L #0x8,A7
000211a0 4e 94 |N | JSR (A4)
000211a2 de fc 00 18 | | ADDA.W #0x18,A7
000211a6 30 28 04 2c |0( , | MOVE.W (A0+0x42c),D0
000211aa 02 40 10 00 | @ | ANDI.W #0x1000,D0
000211ae 67 1e |g | BEQ 0x211ce
000211b0 43 fa f1 c6 |C | LEA.L 0x20378,A1
000211b4 70 08 |p | MOVEQ.L #0x08,D0
000211b6 3f 21 |?! | MOVE.W -(A1),-(A7)
000211b8 51 c8 ff fc |Q | DBF D0,0x211b6
000211bc 59 4f |YO | SUBQ.L #0x4,A7
000211be 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000211c2 3f 02 |? | MOVE.W D2,-(A7)
000211c4 3f 05 |? | MOVE.W D5,-(A7)
000211c6 4e 93 |N | JSR (A3)
000211c8 50 4f |PO | ADDQ.L #0x8,A7
000211ca 4e 94 |N | JSR (A4)
000211cc de c6 | | ADDA.W D6,A7
000211ce 30 28 04 2c |0( , | MOVE.W (A0+0x42c),D0
000211d2 02 40 08 00 | @ | ANDI.W #0x0800,D0
000211d6 67 26 |g& | BEQ 0x211fe
000211d8 2f 3a f1 aa |/: | MOVE.L 0x20384,-(A7)
000211dc 2f 3a f1 a2 |/: | MOVE.L 0x20380,-(A7)
000211e0 2f 3a f1 9a |/: | MOVE.L 0x2037c,-(A7)
000211e4 2f 3a f1 92 |/: | MOVE.L 0x20378,-(A7)
000211e8 59 4f |YO | SUBQ.L #0x4,A7
000211ea 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000211ee 3f 02 |? | MOVE.W D2,-(A7)
000211f0 3f 3c 00 10 |?< | MOVE.W #0x10,-(A7)
000211f4 4e 93 |N | JSR (A3)
000211f6 50 4f |PO | ADDQ.L #0x8,A7
000211f8 4e 94 |N | JSR (A4)
000211fa de fc 00 14 | | ADDA.W #0x14,A7
000211fe 30 28 04 2c |0( , | MOVE.W (A0+0x42c),D0
00021202 02 40 04 00 | @ | ANDI.W #0x0400,D0
00021206 67 26 |g& | BEQ 0x2122e
00021208 9e c6 | | SUBA.W D6,A7
0002120a 22 4f |"O | MOVEA.L A7,A1
0002120c 45 fa f1 7a |E z | LEA.L 0x20388,A2
00021210 70 14 |p | MOVEQ.L #0x14,D0
00021212 12 da | | MOVE.B (A2)+,(A1)+
00021214 51 c8 ff fc |Q | DBF D0,0x21212
00021218 59 4f |YO | SUBQ.L #0x4,A7
0002121a 48 6f 00 04 |Ho | PEA.L (A7+0x4)
0002121e 3f 02 |? | MOVE.W D2,-(A7)
00021220 3f 3c 00 15 |?< | MOVE.W #0x15,-(A7)
00021224 4e 93 |N | JSR (A3)
00021226 50 4f |PO | ADDQ.L #0x8,A7
00021228 4e 94 |N | JSR (A4)
0002122a de fc 00 1a | | ADDA.W #0x1a,A7
0002122e 30 28 04 2c |0( , | MOVE.W (A0+0x42c),D0
00021232 02 40 02 00 | @ | ANDI.W #0x0200,D0
00021236 67 20 |g | BEQ 0x21258
00021238 43 fa f1 7a |C z | LEA.L 0x203b4,A1
0002123c 70 0a |p | MOVEQ.L #0x0a,D0
0002123e 3f 21 |?! | MOVE.W -(A1),-(A7)
00021240 51 c8 ff fc |Q | DBF D0,0x2123e
00021244 59 4f |YO | SUBQ.L #0x4,A7
00021246 48 6f 00 04 |Ho | PEA.L (A7+0x4)
0002124a 3f 02 |? | MOVE.W D2,-(A7)
0002124c 3f 06 |? | MOVE.W D6,-(A7)
0002124e 4e 93 |N | JSR (A3)
00021250 50 4f |PO | ADDQ.L #0x8,A7
00021252 4e 94 |N | JSR (A4)
00021254 de fc 00 1a | | ADDA.W #0x1a,A7
00021258 30 28 04 2c |0( , | MOVE.W (A0+0x42c),D0
0002125c 02 40 01 00 | @ | ANDI.W #0x0100,D0
00021260 67 26 |g& | BEQ 0x21288
00021262 2f 3a f1 5c |/: \ | MOVE.L 0x203c0,-(A7)
00021266 2f 3a f1 54 |/: T | MOVE.L 0x203bc,-(A7)
0002126a 2f 3a f1 4c |/: L | MOVE.L 0x203b8,-(A7)
0002126e 2f 3a f1 44 |/: D | MOVE.L 0x203b4,-(A7)
00021272 59 4f |YO | SUBQ.L #0x4,A7
00021274 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021278 3f 02 |? | MOVE.W D2,-(A7)
0002127a 3f 3c 00 10 |?< | MOVE.W #0x10,-(A7)
0002127e 4e 93 |N | JSR (A3)
00021280 50 4f |PO | ADDQ.L #0x8,A7
00021282 4e 94 |N | JSR (A4)
00021284 de fc 00 14 | | ADDA.W #0x14,A7
00021288 30 28 04 2c |0( , | MOVE.W (A0+0x42c),D0
0002128c 02 40 00 80 | @ | ANDI.W #0x0080,D0
00021290 67 22 |g" | BEQ 0x212b4
00021292 43 fa f1 44 |C D | LEA.L 0x203d8,A1
00021296 70 04 |p | MOVEQ.L #0x04,D0
00021298 2f 21 |/! | MOVE.L -(A1),-(A7)
0002129a 51 c8 ff fc |Q | DBF D0,0x21298
0002129e 59 4f |YO | SUBQ.L #0x4,A7
000212a0 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000212a4 3f 02 |? | MOVE.W D2,-(A7)
000212a6 3f 3c 00 14 |?< | MOVE.W #0x14,-(A7)
000212aa 4e 93 |N | JSR (A3)
000212ac 50 4f |PO | ADDQ.L #0x8,A7
000212ae 4e 94 |N | JSR (A4)
000212b0 de fc 00 18 | | ADDA.W #0x18,A7
000212b4 30 28 04 2c |0( , | MOVE.W (A0+0x42c),D0
000212b8 02 40 00 40 | @ @ | ANDI.W #0x0040,D0
000212bc 67 20 |g | BEQ 0x212de
000212be 43 fa f1 26 |C & | LEA.L 0x203e6,A1
000212c2 70 06 |p | MOVEQ.L #0x06,D0
000212c4 3f 21 |?! | MOVE.W -(A1),-(A7)
000212c6 51 c8 ff fc |Q | DBF D0,0x212c4
000212ca 59 4f |YO | SUBQ.L #0x4,A7
000212cc 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000212d0 3f 02 |? | MOVE.W D2,-(A7)
000212d2 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7)
000212d6 4e 93 |N | JSR (A3)
000212d8 50 4f |PO | ADDQ.L #0x8,A7
000212da 4e 94 |N | JSR (A4)
000212dc de c5 | | ADDA.W D5,A7
000212de 30 28 04 2c |0( , | MOVE.W (A0+0x42c),D0
000212e2 02 40 00 10 | @ | ANDI.W #0x0010,D0
000212e6 67 22 |g" | BEQ 0x2130a
000212e8 2f 3a f1 04 |/: | MOVE.L 0x203ee,-(A7)
000212ec 2f 3a f0 fc |/: | MOVE.L 0x203ea,-(A7)
000212f0 2f 3a f0 f4 |/: | MOVE.L 0x203e6,-(A7)
000212f4 59 4f |YO | SUBQ.L #0x4,A7
000212f6 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000212fa 3f 02 |? | MOVE.W D2,-(A7)
000212fc 3f 3c 00 0c |?< | MOVE.W #0xc,-(A7)
00021300 4e 93 |N | JSR (A3)
00021302 50 4f |PO | ADDQ.L #0x8,A7
00021304 4e 94 |N | JSR (A4)
00021306 de fc 00 10 | | ADDA.W #0x10,A7
0002130a 30 28 04 2c |0( , | MOVE.W (A0+0x42c),D0
0002130e 02 40 00 04 | @ | ANDI.W #0x0004,D0
00021312 67 28 |g( | BEQ 0x2133c
00021314 9e fc 00 1e | | SUBA.W #0x1e,A7
00021318 22 4f |"O | MOVEA.L A7,A1
0002131a 45 fa f0 d6 |E | LEA.L 0x203f2,A2
0002131e 70 1c |p | MOVEQ.L #0x1c,D0
00021320 12 da | | MOVE.B (A2)+,(A1)+
00021322 51 c8 ff fc |Q | DBF D0,0x21320
00021326 59 4f |YO | SUBQ.L #0x4,A7
00021328 48 6f 00 04 |Ho | PEA.L (A7+0x4)
0002132c 3f 02 |? | MOVE.W D2,-(A7)
0002132e 3f 3c 00 1d |?< | MOVE.W #0x1d,-(A7)
00021332 4e 93 |N | JSR (A3)
00021334 50 4f |PO | ADDQ.L #0x8,A7
00021336 4e 94 |N | JSR (A4)
00021338 de fc 00 22 | " | ADDA.W #0x22,A7
0002133c 30 28 04 2c |0( , | MOVE.W (A0+0x42c),D0
00021340 c0 42 | B | AND.W D2,D0
00021342 67 26 |g& | BEQ 0x2136a
00021344 2f 3a f0 d6 |/: | MOVE.L 0x2041c,-(A7)
00021348 2f 3a f0 ce |/: | MOVE.L 0x20418,-(A7)
0002134c 2f 3a f0 c6 |/: | MOVE.L 0x20414,-(A7)
00021350 2f 3a f0 be |/: | MOVE.L 0x20410,-(A7)
00021354 59 4f |YO | SUBQ.L #0x4,A7
00021356 48 6f 00 04 |Ho | PEA.L (A7+0x4)
0002135a 3f 02 |? | MOVE.W D2,-(A7)
0002135c 3f 3c 00 10 |?< | MOVE.W #0x10,-(A7)
00021360 4e 93 |N | JSR (A3)
00021362 50 4f |PO | ADDQ.L #0x8,A7
00021364 4e 94 |N | JSR (A4)
00021366 de fc 00 14 | | ADDA.W #0x14,A7
0002136a 30 28 04 2e |0( . | MOVE.W (A0+0x42e),D0
0002136e 02 40 80 00 | @ | ANDI.W #0x8000,D0
00021372 67 28 |g( | BEQ 0x2139c
00021374 9e fc 00 0a | | SUBA.W #0xa,A7
00021378 22 4f |"O | MOVEA.L A7,A1
0002137a 45 fa f0 a4 |E | LEA.L 0x20420,A2
0002137e 70 08 |p | MOVEQ.L #0x08,D0
00021380 12 da | | MOVE.B (A2)+,(A1)+
00021382 51 c8 ff fc |Q | DBF D0,0x21380
00021386 59 4f |YO | SUBQ.L #0x4,A7
00021388 48 6f 00 04 |Ho | PEA.L (A7+0x4)
0002138c 3f 02 |? | MOVE.W D2,-(A7)
0002138e 3f 3c 00 09 |?< | MOVE.W #0x9,-(A7)
00021392 4e 93 |N | JSR (A3)
00021394 50 4f |PO | ADDQ.L #0x8,A7
00021396 4e 94 |N | JSR (A4)
00021398 de fc 00 0e | | ADDA.W #0xe,A7
0002139c 30 28 04 2e |0( . | MOVE.W (A0+0x42e),D0
000213a0 02 40 40 00 | @@ | ANDI.W #0x4000,D0
000213a4 67 28 |g( | BEQ 0x213ce
000213a6 9e fc 00 10 | | SUBA.W #0x10,A7
000213aa 22 4f |"O | MOVEA.L A7,A1
000213ac 45 fa f0 7c |E | | LEA.L 0x2042a,A2
000213b0 70 0e |p | MOVEQ.L #0x0e,D0
000213b2 12 da | | MOVE.B (A2)+,(A1)+
000213b4 51 c8 ff fc |Q | DBF D0,0x213b2
000213b8 59 4f |YO | SUBQ.L #0x4,A7
000213ba 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000213be 3f 02 |? | MOVE.W D2,-(A7)
000213c0 3f 3c 00 0f |?< | MOVE.W #0xf,-(A7)
000213c4 4e 93 |N | JSR (A3)
000213c6 50 4f |PO | ADDQ.L #0x8,A7
000213c8 4e 94 |N | JSR (A4)
000213ca de fc 00 14 | | ADDA.W #0x14,A7
000213ce 30 28 04 2e |0( . | MOVE.W (A0+0x42e),D0
000213d2 02 40 10 00 | @ | ANDI.W #0x1000,D0
000213d6 67 28 |g( | BEQ 0x21400
000213d8 9e fc 00 3e | > | SUBA.W #0x3e,A7
000213dc 22 4f |"O | MOVEA.L A7,A1
000213de 45 fa f0 5a |E Z | LEA.L 0x2043a,A2
000213e2 70 3c |p< | MOVEQ.L #0x3c,D0
000213e4 12 da | | MOVE.B (A2)+,(A1)+
000213e6 51 c8 ff fc |Q | DBF D0,0x213e4
000213ea 59 4f |YO | SUBQ.L #0x4,A7
000213ec 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000213f0 3f 02 |? | MOVE.W D2,-(A7)
000213f2 3f 3c 00 3d |?< = | MOVE.W #0x3d,-(A7)
000213f6 4e 93 |N | JSR (A3)
000213f8 50 4f |PO | ADDQ.L #0x8,A7
000213fa 4e 94 |N | JSR (A4)
000213fc de fc 00 42 | B | ADDA.W #0x42,A7
00021400 30 28 04 2e |0( . | MOVE.W (A0+0x42e),D0
00021404 02 40 00 80 | @ | ANDI.W #0x0080,D0
00021408 58 4f |XO | ADDQ.L #0x4,A7
0002140a 4a 40 |J@ | TST.W D0
0002140c 67 22 |g" | BEQ 0x21430
0002140e 2f 3a f0 70 |/: p | MOVE.L 0x20480,-(A7)
00021412 2f 3a f0 68 |/: h | MOVE.L 0x2047c,-(A7)
00021416 2f 3a f0 60 |/: ` | MOVE.L 0x20478,-(A7)
0002141a 59 4f |YO | SUBQ.L #0x4,A7
0002141c 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021420 3f 02 |? | MOVE.W D2,-(A7)
00021422 3f 3c 00 0c |?< | MOVE.W #0xc,-(A7)
00021426 4e 93 |N | JSR (A3)
00021428 50 4f |PO | ADDQ.L #0x8,A7
0002142a 4e 94 |N | JSR (A4)
0002142c de fc 00 10 | | ADDA.W #0x10,A7
00021430 5c 4f |\O | ADDQ.L #0x6,A7
00021432 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00021436 4e 5e |N^ | UNLK A6
00021438 4e 75 |Nu | RTS
0002143a ; --------------------------------------------------------------------------------------
0002143a ; OMSI PASCAL Function
0002143a ; <LVAR 0x008 2(r)>
0002143a ; --------------------------------------------------------------------------------------
0002143a 4e 56 ff da |NV | LINK.W A6,#0xffda
0002143e bf d5 | | CMPA.L (A5),A7
00021440 62 06 |b | BHI 0x21448
00021442 44 fc 00 02 |D | MOVE.W #0x2,CCR
00021446 4e 76 |Nv | TRAPV
00021448 de fc 00 20 | | ADDA.W #0x20,A7
0002144c 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7)
00021450 43 ee 00 08 |C | LEA.L (A6+0x8),A1
00021454 2f 3a f0 64 |/: d | MOVE.L 0x204ba,-(A7)
00021458 59 4f |YO | SUBQ.L #0x4,A7
0002145a 48 6f 00 04 |Ho | PEA.L (A7+0x4)
0002145e 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
00021462 3f 3c 00 04 |?< | MOVE.W #0x4,-(A7)
00021466 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
0002146c 5c 4f |\O | ADDQ.L #0x6,A7
0002146e 3e 91 |> | MOVE.W (A1),(A7)
00021470 4e ba f7 a8 |N | JSR 0x20c1a
00021474 de fc 00 0a | | ADDA.W #0xa,A7
00021478 30 3c 04 44 |0< D | MOVE.W #0x444,D0
0002147c c1 d1 | | MULS.W (A1),D0
0002147e 41 f9 00 02 1e ca |A | LEA.L 0x21eca,A0
00021484 42 b0 00 16 |B | CLR.L (A0+D0.W+#0x16)
00021488 52 b0 00 0e |R | ADDQ.L #0x1,(A0+D0.W+#0xe)
0002148c 3f 11 |? | MOVE.W (A1),-(A7)
0002148e 4e ba f5 26 |N & | JSR 0x209b6
00021492 54 4f |TO | ADDQ.L #0x2,A7
00021494 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1
00021498 4e 5e |N^ | UNLK A6
0002149a 4e 75 |Nu | RTS
0002149c ; --------------------------------------------------------------------------------------
0002149c ; OMSI PASCAL Function
0002149c ; <LVAR 0x008 2(r)>
0002149c ; --------------------------------------------------------------------------------------
0002149c 4e 56 ff de |NV | LINK.W A6,#0xffde
000214a0 bf d5 | | CMPA.L (A5),A7
000214a2 62 06 |b | BHI 0x214aa
000214a4 44 fc 00 02 |D | MOVE.W #0x2,CCR
000214a8 4e 76 |Nv | TRAPV
000214aa de fc 00 20 | | ADDA.W #0x20,A7
000214ae 48 e7 c0 80 |H | MOVEM.L A0+D1+D0,-(A7)
000214b2 2f 3a f0 0a |/: | MOVE.L 0x204be,-(A7)
000214b6 59 4f |YO | SUBQ.L #0x4,A7
000214b8 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000214bc 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
000214c0 3f 3c 00 04 |?< | MOVE.W #0x4,-(A7)
000214c4 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
000214ca 5c 4f |\O | ADDQ.L #0x6,A7
000214cc 3e ae 00 08 |> | MOVE.W (A6+0x8),(A7)
000214d0 4e ba f7 48 |N H | JSR 0x20c1a
000214d4 de fc 00 0a | | ADDA.W #0xa,A7
000214d8 30 3c 04 44 |0< D | MOVE.W #0x444,D0
000214dc c1 ee 00 08 | | MULS.W (A6+0x8),D0
000214e0 41 f9 00 02 1e ca |A | LEA.L 0x21eca,A0
000214e6 22 30 00 12 |"0 | MOVE.L (A0+D0.W+#0x12),D1
000214ea d2 b0 00 16 | | ADD.L (A0+D0.W+#0x16),D1
000214ee 21 81 00 12 |! | MOVE.L D1,(A0+D0.W+#0x12)
000214f2 42 b0 00 16 |B | CLR.L (A0+D0.W+#0x16)
000214f6 4c df 01 03 |L | MOVEM.L (A7)+,D0+D1+A0
000214fa 4e 5e |N^ | UNLK A6
000214fc 4e 75 |Nu | RTS
000214fe ; --------------------------------------------------------------------------------------
000214fe ; OMSI PASCAL Function
000214fe ; <LVAR 0x008 2(r)>
000214fe ; <LVAR -0x004 2(w)>
000214fe ; <LVAR -0x006 2(w)>
000214fe ; <LVAR -0x008 2(w)>
000214fe ; <LVAR -0x00e 2(w)>
000214fe ; <LVAR -0x012 @ 2(w)>
000214fe ; --------------------------------------------------------------------------------------
000214fe 4e 56 ff c2 |NV | LINK.W A6,#0xffc2
00021502 bf d5 | | CMPA.L (A5),A7
00021504 62 06 |b | BHI 0x2150c
00021506 44 fc 00 02 |D | MOVE.W #0x2,CCR
0002150a 4e 76 |Nv | TRAPV
0002150c de fc 00 2c | , | ADDA.W #0x2c,A7
00021510 48 e7 f0 c0 |H | MOVEM.L A1+A0+D3+D2+D1+D0,-(A7)
00021514 43 ee 00 08 |C | LEA.L (A6+0x8),A1
00021518 74 02 |t | MOVEQ.L #0x02,D2
0002151a 76 0a |v | MOVEQ.L #0x0a,D3
0002151c 30 3c 04 44 |0< D | MOVE.W #0x444,D0
00021520 c1 d1 | | MULS.W (A1),D0
00021522 41 f9 00 02 1e ca |A | LEA.L 0x21eca,A0
00021528 2f 08 |/ | MOVE.L A0,-(A7)
0002152a 3f 11 |? | MOVE.W (A1),-(A7)
0002152c 41 f0 00 0c |A | LEA.L (A0+D0.W+#0xc),A0
00021530 48 68 04 26 |Hh & | PEA.L (A0+0x426)
00021534 4e ba f4 2c |N , | JSR 0x20962
00021538 5c 4f |\O | ADDQ.L #0x6,A7
0002153a 20 57 | W | MOVEA.L (A7),A0
0002153c 52 b0 00 16 |R | ADDQ.L #0x1,(A0+D0.W+#0x16)
00021540 22 30 00 16 |"0 | MOVE.L (A0+D0.W+#0x16),D1
00021544 b2 83 | | CMP.L D3,D1
00021546 66 0c |f | BNE 0x21554
00021548 3f 11 |? | MOVE.W (A1),-(A7)
0002154a 4e ba fe ee |N | JSR 0x2143a
0002154e 54 4f |TO | ADDQ.L #0x2,A7
00021550 60 00 00 c0 |` | BRA 0x21612
00021554 3d 7c 01 00 ff ee |=| | MOVE.W #0x100,(A6-0x12)
0002155a 3d 42 ff f2 |=B | MOVE.W D2,(A6-0xe)
0002155e 55 4f |UO | SUBQ.L #0x2,A7
00021560 4e b9 00 01 06 0a |N | JSR Is_machine_type_four() : Bool
00021566 4a 1f |J | TST.B (A7)+
00021568 67 30 |g0 | BEQ 0x2159a
0002156a 12 30 00 0d | 0 | MOVE.B (A0+D0.W+#0xd),D1
0002156e 48 81 |H | EXTB.W D1
00021570 b2 42 | B | CMP.W D2,D1
00021572 63 02 |c | BLS 0x21576
00021574 4e 4e |NN | TRAP #14
00021576 d2 41 | A | ADD.W D1,D1
00021578 32 3b 10 06 4e fb 10 02 |2; N | SWITCH D1.W
00021580 00 06 | | .CONST 0x6 ; [0x0] -> 0x21586
00021582 00 0e | | .CONST 0xe ; [0x1] -> 0x2158e
00021584 00 0e | | .CONST 0xe ; [0x2] -> 0x2158e
00021586 switch@0x21578[0x0]:
00021586 32 11 |2 | MOVE.W (A1),D1
00021588 e1 41 | A | ASL.W #0x8,D1
0002158a 56 41 |VA | ADDQ.W #0x3,D1
0002158c 60 06 |` | BRA 0x21594
0002158e switch@0x21578[0x1]:
0002158e switch@0x21578[0x2]:
0002158e 32 11 |2 | MOVE.W (A1),D1
00021590 e1 41 | A | ASL.W #0x8,D1
00021592 54 41 |TA | ADDQ.W #0x2,D1
00021594 3d 41 ff f8 |=A | MOVE.W D1,(A6-0x8)
00021598 60 3a |`: | BRA 0x215d4
0002159a 12 30 00 0d | 0 | MOVE.B (A0+D0.W+#0xd),D1
0002159e 48 81 |H | EXTB.W D1
000215a0 b2 42 | B | CMP.W D2,D1
000215a2 63 02 |c | BLS 0x215a6
000215a4 4e 4e |NN | TRAP #14
000215a6 d2 41 | A | ADD.W D1,D1
000215a8 32 3b 10 06 4e fb 10 02 |2; N | SWITCH D1.W
000215b0 00 06 | | .CONST 0x6 ; [0x0] -> 0x215b6
000215b2 00 10 | | .CONST 0x10 ; [0x1] -> 0x215c0
000215b4 00 1a | | .CONST 0x1a ; [0x2] -> 0x215ca
000215b6 switch@0x215a8[0x0]:
000215b6 32 11 |2 | MOVE.W (A1),D1
000215b8 e1 41 | A | ASL.W #0x8,D1
000215ba 06 41 00 0b | A | ADDI.W #0x000b,D1
000215be 60 10 |` | BRA 0x215d0
000215c0 switch@0x215a8[0x1]:
000215c0 32 11 |2 | MOVE.W (A1),D1
000215c2 e1 41 | A | ASL.W #0x8,D1
000215c4 06 41 00 0c | A | ADDI.W #0x000c,D1
000215c8 60 06 |` | BRA 0x215d0
000215ca switch@0x215a8[0x2]:
000215ca 32 11 |2 | MOVE.W (A1),D1
000215cc e1 41 | A | ASL.W #0x8,D1
000215ce 54 41 |TA | ADDQ.W #0x2,D1
000215d0 3d 41 ff f8 |=A | MOVE.W D1,(A6-0x8)
000215d4 22 30 00 22 |"0 " | MOVE.L (A0+D0.W+#0x22),D1
000215d8 0c 81 00 00 ff ff | | CMPI.L #0x0000ffff,D1
000215de 63 02 |c | BLS 0x215e2
000215e0 4e 4f |NO | TRAP #15
000215e2 3d 41 ff fa |=A | MOVE.W D1,(A6-0x6)
000215e6 22 30 00 1e |"0 | MOVE.L (A0+D0.W+#0x1e),D1
000215ea e1 81 | | ASL.L #0x8,D1
000215ec d2 b0 00 1a | | ADD.L (A0+D0.W+#0x1a),D1
000215f0 0c 81 00 00 ff ff | | CMPI.L #0x0000ffff,D1
000215f6 63 02 |c | BLS 0x215fa
000215f8 4e 4f |NO | TRAP #15
000215fa 3d 41 ff fc |=A | MOVE.W D1,(A6-0x4)
000215fe 48 6e ff ee |Hn | PEA.L (A6-0x12)
00021602 41 f0 00 32 |A 2 | LEA.L (A0+D0.W+#0x32),A0
00021606 2f 08 |/ | MOVE.L A0,-(A7)
00021608 3f 11 |? | MOVE.W (A1),-(A7)
0002160a 4e b9 00 01 02 04 |N | JSR KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
00021610 de c3 | | ADDA.W D3,A7
00021612 58 4f |XO | ADDQ.L #0x4,A7
00021614 4c df 03 0f |L | MOVEM.L (A7)+,D0+D1+D2+D3+A0+A1
00021618 4e 5e |N^ | UNLK A6
0002161a 4e 75 |Nu | RTS
0002161c ; --------------------------------------------------------------------------------------
0002161c ; OMSI PASCAL Function
0002161c ; <LVAR 0x00a 2(r)>
0002161c ; <LVAR 0x008 1(r)>
0002161c ; --------------------------------------------------------------------------------------
0002161c 4e 56 ff be |NV | LINK.W A6,#0xffbe
00021620 bf d5 | | CMPA.L (A5),A7
00021622 62 06 |b | BHI 0x2162a
00021624 44 fc 00 02 |D | MOVE.W #0x2,CCR
00021628 4e 76 |Nv | TRAPV
0002162a de fc 00 42 | B | ADDA.W #0x42,A7
0002162e 48 e7 c0 f0 |H | MOVEM.L A3+A2+A1+A0+D1+D0,-(A7)
00021632 47 ee 00 0a |G | LEA.L (A6+0xa),A3
00021636 72 10 |r | MOVEQ.L #0x10,D1
00021638 4a 2e 00 08 |J. | TST.B (A6+0x8)
0002163c 66 08 |f | BNE 0x21646
0002163e 3f 13 |? | MOVE.W (A3),-(A7)
00021640 4e ba fe bc |N | JSR 0x214fe
00021644 60 5a |`Z | BRA 0x216a0
00021646 30 3c 04 44 |0< D | MOVE.W #0x444,D0
0002164a c1 d3 | | MULS.W (A3),D0
0002164c 41 f9 00 02 1e ca |A | LEA.L 0x21eca,A0
00021652 41 f0 00 0c |A | LEA.L (A0+D0.W+#0xc),A0
00021656 9e c1 | | SUBA.W D1,A7
00021658 22 4f |"O | MOVEA.L A7,A1
0002165a 45 e8 04 3c |E < | LEA.L (A0+0x43c),A2
0002165e 70 07 |p | MOVEQ.L #0x07,D0
00021660 12 da | | MOVE.B (A2)+,(A1)+
00021662 51 c8 ff fc |Q | DBF D0,0x21660
00021666 51 4f |QO | SUBQ.L #0x8,A7
00021668 48 78 04 00 |Hx | PEA.L 0x400
0002166c 4e b9 00 01 03 54 |N T | JSR Long2Quad(a : Long) : Quad
00021672 58 4f |XO | ADDQ.L #0x4,A7
00021674 4e b9 00 01 03 14 |N | JSR Add(a, b : Quad) : Quad
0002167a de c1 | | ADDA.W D1,A7
0002167c 43 e8 04 3c |C < | LEA.L (A0+0x43c),A1
00021680 24 4f |$O | MOVEA.L A7,A2
00021682 70 07 |p | MOVEQ.L #0x07,D0
00021684 12 da | | MOVE.B (A2)+,(A1)+
00021686 51 c8 ff fc |Q | DBF D0,0x21684
0002168a 50 4f |PO | ADDQ.L #0x8,A7
0002168c 4a a8 00 0a |J | TST.L (A0+0xa)
00021690 67 08 |g | BEQ 0x2169a
00021692 3f 13 |? | MOVE.W (A3),-(A7)
00021694 4e ba fe 06 |N | JSR 0x2149c
00021698 54 4f |TO | ADDQ.L #0x2,A7
0002169a 3f 13 |? | MOVE.W (A3),-(A7)
0002169c 4e ba f4 0e |N | JSR 0x20aac
000216a0 54 4f |TO | ADDQ.L #0x2,A7
000216a2 4c df 0f 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2+A3
000216a6 4e 5e |N^ | UNLK A6
000216a8 4e 75 |Nu | RTS
000216aa ; --------------------------------------------------------------------------------------
000216aa ; OMSI PASCAL Function
000216aa ; <LVAR 0x00a 2(r)>
000216aa ; <LVAR 0x008 1(r)>
000216aa ; <LVAR -0x010 2(r)>
000216aa ; <LVAR -0x018 @>
000216aa ; --------------------------------------------------------------------------------------
000216aa 4e 56 ff a6 |NV | LINK.W A6,#0xffa6
000216ae bf d5 | | CMPA.L (A5),A7
000216b0 62 06 |b | BHI 0x216b8
000216b2 44 fc 00 02 |D | MOVE.W #0x2,CCR
000216b6 4e 76 |Nv | TRAPV
000216b8 de fc 00 42 | B | ADDA.W #0x42,A7
000216bc 48 e7 c0 f0 |H | MOVEM.L A3+A2+A1+A0+D1+D0,-(A7)
000216c0 47 ee 00 0a |G | LEA.L (A6+0xa),A3
000216c4 72 10 |r | MOVEQ.L #0x10,D1
000216c6 4a 2e 00 08 |J. | TST.B (A6+0x8)
000216ca 66 28 |f( | BNE 0x216f4
000216cc 3f 13 |? | MOVE.W (A3),-(A7)
000216ce 48 6e ff e8 |Hn | PEA.L (A6-0x18)
000216d2 4e ba f2 8e |N | JSR 0x20962
000216d6 5c 4f |\O | ADDQ.L #0x6,A7
000216d8 30 2e ff f0 |0. | MOVE.W (A6-0x10),D0
000216dc 02 40 80 00 | @ | ANDI.W #0x8000,D0
000216e0 67 08 |g | BEQ 0x216ea
000216e2 3f 13 |? | MOVE.W (A3),-(A7)
000216e4 4e ba f2 d0 |N | JSR 0x209b6
000216e8 60 06 |` | BRA 0x216f0
000216ea 3f 13 |? | MOVE.W (A3),-(A7)
000216ec 4e ba fe 10 |N | JSR 0x214fe
000216f0 54 4f |TO | ADDQ.L #0x2,A7
000216f2 60 5c |`\ | BRA 0x21750
000216f4 30 3c 04 44 |0< D | MOVE.W #0x444,D0
000216f8 c1 d3 | | MULS.W (A3),D0
000216fa 41 f9 00 02 1e ca |A | LEA.L 0x21eca,A0
00021700 41 f0 00 0c |A | LEA.L (A0+D0.W+#0xc),A0
00021704 9e c1 | | SUBA.W D1,A7
00021706 22 4f |"O | MOVEA.L A7,A1
00021708 45 e8 04 3c |E < | LEA.L (A0+0x43c),A2
0002170c 70 07 |p | MOVEQ.L #0x07,D0
0002170e 12 da | | MOVE.B (A2)+,(A1)+
00021710 51 c8 ff fc |Q | DBF D0,0x2170e
00021714 51 4f |QO | SUBQ.L #0x8,A7
00021716 48 78 04 00 |Hx | PEA.L 0x400
0002171a 4e b9 00 01 03 54 |N T | JSR Long2Quad(a : Long) : Quad
00021720 58 4f |XO | ADDQ.L #0x4,A7
00021722 4e b9 00 01 03 14 |N | JSR Add(a, b : Quad) : Quad
00021728 de c1 | | ADDA.W D1,A7
0002172a 43 e8 04 3c |C < | LEA.L (A0+0x43c),A1
0002172e 24 4f |$O | MOVEA.L A7,A2
00021730 70 07 |p | MOVEQ.L #0x07,D0
00021732 12 da | | MOVE.B (A2)+,(A1)+
00021734 51 c8 ff fc |Q | DBF D0,0x21732
00021738 50 4f |PO | ADDQ.L #0x8,A7
0002173a 4a a8 00 0a |J | TST.L (A0+0xa)
0002173e 67 08 |g | BEQ 0x21748
00021740 3f 13 |? | MOVE.W (A3),-(A7)
00021742 4e ba fd 58 |N X | JSR 0x2149c
00021746 54 4f |TO | ADDQ.L #0x2,A7
00021748 3f 13 |? | MOVE.W (A3),-(A7)
0002174a 4e ba f4 2e |N . | JSR 0x20b7a
0002174e 54 4f |TO | ADDQ.L #0x2,A7
00021750 4c df 0f 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2+A3
00021754 4e 5e |N^ | UNLK A6
00021756 4e 75 |Nu | RTS
00021758 ; --------------------------------------------------------------------------------------
00021758 ; OMSI PASCAL Function
00021758 ; <LVAR 0x00a 2(r)>
00021758 ; <LVAR 0x008 1(r)>
00021758 ; <LVAR -0x010 2(r)>
00021758 ; <LVAR -0x018 @>
00021758 ; --------------------------------------------------------------------------------------
00021758 4e 56 ff a6 |NV | LINK.W A6,#0xffa6
0002175c bf d5 | | CMPA.L (A5),A7
0002175e 62 06 |b | BHI 0x21766
00021760 44 fc 00 02 |D | MOVE.W #0x2,CCR
00021764 4e 76 |Nv | TRAPV
00021766 de fc 00 42 | B | ADDA.W #0x42,A7
0002176a 48 e7 c0 f0 |H | MOVEM.L A3+A2+A1+A0+D1+D0,-(A7)
0002176e 47 ee 00 0a |G | LEA.L (A6+0xa),A3
00021772 72 10 |r | MOVEQ.L #0x10,D1
00021774 4a 2e 00 08 |J. | TST.B (A6+0x8)
00021778 66 28 |f( | BNE 0x217a2
0002177a 3f 13 |? | MOVE.W (A3),-(A7)
0002177c 48 6e ff e8 |Hn | PEA.L (A6-0x18)
00021780 4e ba f1 e0 |N | JSR 0x20962
00021784 5c 4f |\O | ADDQ.L #0x6,A7
00021786 30 2e ff f0 |0. | MOVE.W (A6-0x10),D0
0002178a 02 40 80 00 | @ | ANDI.W #0x8000,D0
0002178e 67 08 |g | BEQ 0x21798
00021790 3f 13 |? | MOVE.W (A3),-(A7)
00021792 4e ba f3 18 |N | JSR 0x20aac
00021796 60 06 |` | BRA 0x2179e
00021798 3f 13 |? | MOVE.W (A3),-(A7)
0002179a 4e ba fd 62 |N b | JSR 0x214fe
0002179e 54 4f |TO | ADDQ.L #0x2,A7
000217a0 60 5c |`\ | BRA 0x217fe
000217a2 30 3c 04 44 |0< D | MOVE.W #0x444,D0
000217a6 c1 d3 | | MULS.W (A3),D0
000217a8 41 f9 00 02 1e ca |A | LEA.L 0x21eca,A0
000217ae 41 f0 00 0c |A | LEA.L (A0+D0.W+#0xc),A0
000217b2 9e c1 | | SUBA.W D1,A7
000217b4 22 4f |"O | MOVEA.L A7,A1
000217b6 45 e8 04 3c |E < | LEA.L (A0+0x43c),A2
000217ba 70 07 |p | MOVEQ.L #0x07,D0
000217bc 12 da | | MOVE.B (A2)+,(A1)+
000217be 51 c8 ff fc |Q | DBF D0,0x217bc
000217c2 51 4f |QO | SUBQ.L #0x8,A7
000217c4 48 78 04 00 |Hx | PEA.L 0x400
000217c8 4e b9 00 01 03 54 |N T | JSR Long2Quad(a : Long) : Quad
000217ce 58 4f |XO | ADDQ.L #0x4,A7
000217d0 4e b9 00 01 03 14 |N | JSR Add(a, b : Quad) : Quad
000217d6 de c1 | | ADDA.W D1,A7
000217d8 43 e8 04 3c |C < | LEA.L (A0+0x43c),A1
000217dc 24 4f |$O | MOVEA.L A7,A2
000217de 70 07 |p | MOVEQ.L #0x07,D0
000217e0 12 da | | MOVE.B (A2)+,(A1)+
000217e2 51 c8 ff fc |Q | DBF D0,0x217e0
000217e6 50 4f |PO | ADDQ.L #0x8,A7
000217e8 4a a8 00 0a |J | TST.L (A0+0xa)
000217ec 67 08 |g | BEQ 0x217f6
000217ee 3f 13 |? | MOVE.W (A3),-(A7)
000217f0 4e ba fc aa |N | JSR 0x2149c
000217f4 54 4f |TO | ADDQ.L #0x2,A7
000217f6 3f 13 |? | MOVE.W (A3),-(A7)
000217f8 4e ba f1 bc |N | JSR 0x209b6
000217fc 54 4f |TO | ADDQ.L #0x2,A7
000217fe 4c df 0f 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2+A3
00021802 4e 5e |N^ | UNLK A6
00021804 4e 75 |Nu | RTS
00021806 ; --------------------------------------------------------------------------------------
00021806 ; OMSI PASCAL Function
00021806 ; <LVAR -0x004 @ 4(r)>
00021806 ; --------------------------------------------------------------------------------------
00021806 4e 56 ff 88 |NV | LINK.W A6,#0xff88
0002180a bf d5 | | CMPA.L (A5),A7
0002180c 62 06 |b | BHI 0x21814
0002180e 44 fc 00 02 |D | MOVE.W #0x2,CCR
00021812 4e 76 |Nv | TRAPV
00021814 de fc 00 6c | l | ADDA.W #0x6c,A7
00021818 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
0002181c 47 f9 00 01 02 d0 |G | LEA.L StringCat2(a, b : String) : String,A3
00021822 72 01 |r | MOVEQ.L #0x01,D1
00021824 74 0a |t | MOVEQ.L #0x0a,D2
00021826 7a 05 |z | MOVEQ.L #0x05,D5
00021828 7c 20 || | MOVEQ.L #0x20,D6
0002182a 48 6e ff fc |Hn | PEA.L (A6-0x4)
0002182e 4e b9 00 01 03 04 |N | JSR GetRtc() : TimeStamp
00021834 58 4f |XO | ADDQ.L #0x4,A7
00021836 41 fa ec 94 |A | LEA.L 0x204cc,A0
0002183a 70 04 |p | MOVEQ.L #0x04,D0
0002183c 3f 20 |? | MOVE.W -(A0),-(A7)
0002183e 51 c8 ff fc |Q | DBF D0,0x2183c
00021842 41 fa ec 9a |A | LEA.L 0x204de,A0
00021846 70 08 |p | MOVEQ.L #0x08,D0
00021848 3f 20 |? | MOVE.W -(A0),-(A7)
0002184a 51 c8 ff fc |Q | DBF D0,0x21848
0002184e 51 4f |QO | SUBQ.L #0x8,A7
00021850 48 6f 00 1a |Ho | PEA.L (A7+0x1a)
00021854 3f 01 |? | MOVE.W D1,-(A7)
00021856 3f 02 |? | MOVE.W D2,-(A7)
00021858 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
0002185e 2e ae ff fc |. | MOVE.L (A6-0x4),(A7)
00021862 4e b9 00 01 03 08 |N | JSR TimeToText()
00021868 48 6f 00 10 |Ho | PEA.L (A7+0x10)
0002186c 3f 01 |? | MOVE.W D1,-(A7)
0002186e 3f 3c 00 12 |?< | MOVE.W #0x12,-(A7)
00021872 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00021878 2e b9 00 02 1e d2 |. | MOVE.L 0x21ed2,(A7)
0002187e 4e b9 00 01 03 08 |N | JSR TimeToText()
00021884 58 4f |XO | ADDQ.L #0x4,A7
00021886 4e b9 00 01 02 d8 |N | JSR StringCat4(a, b, c, d : String) : String
0002188c de fc 00 10 | | ADDA.W #0x10,A7
00021890 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00021896 de c6 | | ADDA.W D6,A7
00021898 7e 00 |~ | MOVEQ.L #0x00,D7
0002189a 0c 87 00 00 00 0f | | CMPI.L #0x0000000f,D7
000218a0 63 02 |c | BLS 0x218a4
000218a2 4e 4f |NO | TRAP #15
000218a4 28 07 |( | MOVE.L D7,D4
000218a6 26 3c 00 00 04 44 |&< D | MOVE.L #0x444,D3
000218ac 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4
000218b2 41 f9 00 02 1e ca |A | LEA.L 0x21eca,A0
000218b8 2f 08 |/ | MOVE.L A0,-(A7)
000218ba 4a 30 48 0c |J0H | TST.B (A0+D4.L+#0xc)
000218be 67 00 02 40 |g @ | BEQ 0x21b00
000218c2 3f 3a ec 1a |?: | MOVE.W 0x204de,-(A7)
000218c6 51 4f |QO | SUBQ.L #0x8,A7
000218c8 48 6f 00 08 |Ho | PEA.L (A7+0x8)
000218cc 3f 01 |? | MOVE.W D1,-(A7)
000218ce 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7)
000218d2 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
000218d8 2e 87 |. | MOVE.L D7,(A7)
000218da 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String
000218e0 58 4f |XO | ADDQ.L #0x4,A7
000218e2 4e 93 |N | JSR (A3)
000218e4 50 4f |PO | ADDQ.L #0x8,A7
000218e6 28 5f |(_ | MOVEA.L (A7)+,A4
000218e8 54 4f |TO | ADDQ.L #0x2,A7
000218ea be 82 | | CMP.L D2,D7
000218ec 6c 0c |l | BGE 0x218fa
000218ee 2f 0c |/ | MOVE.L A4,-(A7)
000218f0 1f 06 | | MOVE.B D6,-(A7)
000218f2 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char)
000218f8 5c 4f |\O | ADDQ.L #0x6,A7
000218fa 9e c2 | | SUBA.W D2,A7
000218fc 22 4f |"O | MOVEA.L A7,A1
000218fe 45 fa eb e0 |E | LEA.L 0x204e0,A2
00021902 70 08 |p | MOVEQ.L #0x08,D0
00021904 12 da | | MOVE.B (A2)+,(A1)+
00021906 51 c8 ff fc |Q | DBF D0,0x21904
0002190a 59 4f |YO | SUBQ.L #0x4,A7
0002190c 2f 0c |/ | MOVE.L A4,-(A7)
0002190e 59 4f |YO | SUBQ.L #0x4,A7
00021910 48 6f 00 0c |Ho | PEA.L (A7+0xc)
00021914 3f 01 |? | MOVE.W D1,-(A7)
00021916 3f 3c 00 09 |?< | MOVE.W #0x9,-(A7)
0002191a 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00021920 50 4f |PO | ADDQ.L #0x8,A7
00021922 4e 93 |N | JSR (A3)
00021924 50 4f |PO | ADDQ.L #0x8,A7
00021926 28 5f |(_ | MOVEA.L (A7)+,A4
00021928 54 4f |TO | ADDQ.L #0x2,A7
0002192a 2e 8c |. | MOVE.L A4,(A7)
0002192c 51 4f |QO | SUBQ.L #0x8,A7
0002192e 41 f0 48 0c |A H | LEA.L (A0+D4.L+#0xc),A0
00021932 51 4f |QO | SUBQ.L #0x8,A7
00021934 22 4f |"O | MOVEA.L A7,A1
00021936 41 e8 04 3c |A < | LEA.L (A0+0x43c),A0
0002193a 70 07 |p | MOVEQ.L #0x07,D0
0002193c 12 d8 | | MOVE.B (A0)+,(A1)+
0002193e 51 c8 ff fc |Q | DBF D0,0x2193c
00021942 48 78 00 0a |Hx | PEA.L 0xa
00021946 4e b9 00 01 03 5c |N \ | JSR Quad2String(a : Quad; radix : Long ) : String
0002194c de fc 00 0c | | ADDA.W #0xc,A7
00021950 48 78 00 0a |Hx | PEA.L 0xa
00021954 4e b9 00 01 02 f8 |N | JSR LeftPad(a : String; b : Long) : String
0002195a 50 4f |PO | ADDQ.L #0x8,A7
0002195c 4e 93 |N | JSR (A3)
0002195e 50 4f |PO | ADDQ.L #0x8,A7
00021960 28 5f |(_ | MOVEA.L (A7)+,A4
00021962 2f 3a eb 8a |/: | MOVE.L 0x204ee,-(A7)
00021966 2f 3a eb 82 |/: | MOVE.L 0x204ea,-(A7)
0002196a 59 4f |YO | SUBQ.L #0x4,A7
0002196c 2f 0c |/ | MOVE.L A4,-(A7)
0002196e 59 4f |YO | SUBQ.L #0x4,A7
00021970 48 6f 00 0c |Ho | PEA.L (A7+0xc)
00021974 3f 01 |? | MOVE.W D1,-(A7)
00021976 3f 3c 00 08 |?< | MOVE.W #0x8,-(A7)
0002197a 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00021980 50 4f |PO | ADDQ.L #0x8,A7
00021982 4e 93 |N | JSR (A3)
00021984 50 4f |PO | ADDQ.L #0x8,A7
00021986 28 5f |(_ | MOVEA.L (A7)+,A4
00021988 2e 8c |. | MOVE.L A4,(A7)
0002198a 51 4f |QO | SUBQ.L #0x8,A7
0002198c 20 6f 00 10 | o | MOVEA.L (A7+0x10),A0
00021990 2f 30 48 12 |/0H | MOVE.L (A0+D4.L+#0x12),-(A7)
00021994 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String
0002199a 58 4f |XO | ADDQ.L #0x4,A7
0002199c 48 78 00 05 |Hx | PEA.L 0x5
000219a0 4e b9 00 01 02 f8 |N | JSR LeftPad(a : String; b : Long) : String
000219a6 50 4f |PO | ADDQ.L #0x8,A7
000219a8 4e 93 |N | JSR (A3)
000219aa 50 4f |PO | ADDQ.L #0x8,A7
000219ac 28 5f |(_ | MOVEA.L (A7)+,A4
000219ae 2f 3a eb 46 |/: F | MOVE.L 0x204f6,-(A7)
000219b2 2f 3a eb 3e |/: > | MOVE.L 0x204f2,-(A7)
000219b6 59 4f |YO | SUBQ.L #0x4,A7
000219b8 2f 0c |/ | MOVE.L A4,-(A7)
000219ba 59 4f |YO | SUBQ.L #0x4,A7
000219bc 48 6f 00 0c |Ho | PEA.L (A7+0xc)
000219c0 3f 01 |? | MOVE.W D1,-(A7)
000219c2 3f 3c 00 08 |?< | MOVE.W #0x8,-(A7)
000219c6 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
000219cc 50 4f |PO | ADDQ.L #0x8,A7
000219ce 4e 93 |N | JSR (A3)
000219d0 50 4f |PO | ADDQ.L #0x8,A7
000219d2 28 5f |(_ | MOVEA.L (A7)+,A4
000219d4 2e 8c |. | MOVE.L A4,(A7)
000219d6 51 4f |QO | SUBQ.L #0x8,A7
000219d8 20 6f 00 10 | o | MOVEA.L (A7+0x10),A0
000219dc 2f 30 48 0e |/0H | MOVE.L (A0+D4.L+#0xe),-(A7)
000219e0 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String
000219e6 58 4f |XO | ADDQ.L #0x4,A7
000219e8 48 78 00 05 |Hx | PEA.L 0x5
000219ec 4e b9 00 01 02 f8 |N | JSR LeftPad(a : String; b : Long) : String
000219f2 50 4f |PO | ADDQ.L #0x8,A7
000219f4 4e 93 |N | JSR (A3)
000219f6 50 4f |PO | ADDQ.L #0x8,A7
000219f8 28 5f |(_ | MOVEA.L (A7)+,A4
000219fa 5d 4f |]O | SUBQ.L #0x6,A7
000219fc 20 4f | O | MOVEA.L A7,A0
000219fe 43 fa ea fa |C | LEA.L 0x204fa,A1
00021a02 70 04 |p | MOVEQ.L #0x04,D0
00021a04 10 d9 | | MOVE.B (A1)+,(A0)+
00021a06 51 c8 ff fc |Q | DBF D0,0x21a04
00021a0a 59 4f |YO | SUBQ.L #0x4,A7
00021a0c 2f 0c |/ | MOVE.L A4,-(A7)
00021a0e 59 4f |YO | SUBQ.L #0x4,A7
00021a10 48 6f 00 0c |Ho | PEA.L (A7+0xc)
00021a14 3f 01 |? | MOVE.W D1,-(A7)
00021a16 3f 05 |? | MOVE.W D5,-(A7)
00021a18 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00021a1e 50 4f |PO | ADDQ.L #0x8,A7
00021a20 4e 93 |N | JSR (A3)
00021a22 50 4f |PO | ADDQ.L #0x8,A7
00021a24 28 5f |(_ | MOVEA.L (A7)+,A4
00021a26 54 4f |TO | ADDQ.L #0x2,A7
00021a28 2f 0c |/ | MOVE.L A4,-(A7)
00021a2a 51 4f |QO | SUBQ.L #0x8,A7
00021a2c 20 6f 00 10 | o | MOVEA.L (A7+0x10),A0
00021a30 2f 30 48 22 |/0H" | MOVE.L (A0+D4.L+#0x22),-(A7)
00021a34 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String
00021a3a 58 4f |XO | ADDQ.L #0x4,A7
00021a3c 48 78 00 04 |Hx | PEA.L 0x4
00021a40 4e b9 00 01 02 f8 |N | JSR LeftPad(a : String; b : Long) : String
00021a46 50 4f |PO | ADDQ.L #0x8,A7
00021a48 4e 93 |N | JSR (A3)
00021a4a 50 4f |PO | ADDQ.L #0x8,A7
00021a4c 28 5f |(_ | MOVEA.L (A7)+,A4
00021a4e 5d 4f |]O | SUBQ.L #0x6,A7
00021a50 20 4f | O | MOVEA.L A7,A0
00021a52 43 fa ea ac |C | LEA.L 0x20500,A1
00021a56 70 04 |p | MOVEQ.L #0x04,D0
00021a58 10 d9 | | MOVE.B (A1)+,(A0)+
00021a5a 51 c8 ff fc |Q | DBF D0,0x21a58
00021a5e 59 4f |YO | SUBQ.L #0x4,A7
00021a60 2f 0c |/ | MOVE.L A4,-(A7)
00021a62 59 4f |YO | SUBQ.L #0x4,A7
00021a64 48 6f 00 0c |Ho | PEA.L (A7+0xc)
00021a68 3f 01 |? | MOVE.W D1,-(A7)
00021a6a 3f 05 |? | MOVE.W D5,-(A7)
00021a6c 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00021a72 50 4f |PO | ADDQ.L #0x8,A7
00021a74 4e 93 |N | JSR (A3)
00021a76 50 4f |PO | ADDQ.L #0x8,A7
00021a78 28 5f |(_ | MOVEA.L (A7)+,A4
00021a7a 54 4f |TO | ADDQ.L #0x2,A7
00021a7c 2f 0c |/ | MOVE.L A4,-(A7)
00021a7e 51 4f |QO | SUBQ.L #0x8,A7
00021a80 20 6f 00 10 | o | MOVEA.L (A7+0x10),A0
00021a84 2f 30 48 1e |/0H | MOVE.L (A0+D4.L+#0x1e),-(A7)
00021a88 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String
00021a8e 58 4f |XO | ADDQ.L #0x4,A7
00021a90 48 78 00 03 |Hx | PEA.L 0x3
00021a94 4e b9 00 01 02 f8 |N | JSR LeftPad(a : String; b : Long) : String
00021a9a 50 4f |PO | ADDQ.L #0x8,A7
00021a9c 4e 93 |N | JSR (A3)
00021a9e 50 4f |PO | ADDQ.L #0x8,A7
00021aa0 28 5f |(_ | MOVEA.L (A7)+,A4
00021aa2 5d 4f |]O | SUBQ.L #0x6,A7
00021aa4 20 4f | O | MOVEA.L A7,A0
00021aa6 43 fa ea 5e |C ^ | LEA.L 0x20506,A1
00021aaa 70 04 |p | MOVEQ.L #0x04,D0
00021aac 10 d9 | | MOVE.B (A1)+,(A0)+
00021aae 51 c8 ff fc |Q | DBF D0,0x21aac
00021ab2 59 4f |YO | SUBQ.L #0x4,A7
00021ab4 2f 0c |/ | MOVE.L A4,-(A7)
00021ab6 59 4f |YO | SUBQ.L #0x4,A7
00021ab8 48 6f 00 0c |Ho | PEA.L (A7+0xc)
00021abc 3f 01 |? | MOVE.W D1,-(A7)
00021abe 3f 05 |? | MOVE.W D5,-(A7)
00021ac0 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00021ac6 50 4f |PO | ADDQ.L #0x8,A7
00021ac8 4e 93 |N | JSR (A3)
00021aca 50 4f |PO | ADDQ.L #0x8,A7
00021acc 28 5f |(_ | MOVEA.L (A7)+,A4
00021ace 54 4f |TO | ADDQ.L #0x2,A7
00021ad0 2f 0c |/ | MOVE.L A4,-(A7)
00021ad2 51 4f |QO | SUBQ.L #0x8,A7
00021ad4 20 6f 00 10 | o | MOVEA.L (A7+0x10),A0
00021ad8 2f 30 48 1a |/0H | MOVE.L (A0+D4.L+#0x1a),-(A7)
00021adc 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String
00021ae2 58 4f |XO | ADDQ.L #0x4,A7
00021ae4 48 78 00 03 |Hx | PEA.L 0x3
00021ae8 4e b9 00 01 02 f8 |N | JSR LeftPad(a : String; b : Long) : String
00021aee 50 4f |PO | ADDQ.L #0x8,A7
00021af0 4e 93 |N | JSR (A3)
00021af2 50 4f |PO | ADDQ.L #0x8,A7
00021af4 28 5f |(_ | MOVEA.L (A7)+,A4
00021af6 2f 0c |/ | MOVE.L A4,-(A7)
00021af8 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00021afe 58 4f |XO | ADDQ.L #0x4,A7
00021b00 58 4f |XO | ADDQ.L #0x4,A7
00021b02 52 87 |R | ADDQ.L #0x1,D7
00021b04 0c 87 00 00 00 0f | | CMPI.L #0x0000000f,D7
00021b0a 6f 00 fd 8e |o | BLE 0x2189a
00021b0e 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00021b12 4e 5e |N^ | UNLK A6
00021b14 4e 75 |Nu | RTS
00021b16 ; --------------------------------------------------------------------------------------
00021b16 ; OMSI PASCAL Function
00021b16 ; <LVAR 0x008 1(rw)>
00021b16 ; <LVAR -0x002 @ 1(r)>
00021b16 ; <LVAR -0x004 @ 2(rw)>
00021b16 ; --------------------------------------------------------------------------------------
00021b16 4e 56 ff e6 |NV | LINK.W A6,#0xffe6
00021b1a bf d5 | | CMPA.L (A5),A7
00021b1c 62 06 |b | BHI 0x21b24
00021b1e 44 fc 00 02 |D | MOVE.W #0x2,CCR
00021b22 4e 76 |Nv | TRAPV
00021b24 de fc 00 16 | | ADDA.W #0x16,A7
00021b28 48 e7 c0 80 |H | MOVEM.L A0+D1+D0,-(A7)
00021b2c 41 ee ff fc |A | LEA.L (A6-0x4),A0
00021b30 72 01 |r | MOVEQ.L #0x01,D1
00021b32 42 2e 00 08 |B. | CLR.B (A6+0x8)
00021b36 3f 01 |? | MOVE.W D1,-(A7)
00021b38 48 6e ff fe |Hn | PEA.L (A6-0x2)
00021b3c 4e b9 00 01 02 12 |N | JSR KC09_PortStatus(Port : Word; VAR b: Byte)
00021b42 5c 4f |\O | ADDQ.L #0x6,A7
00021b44 10 2e ff fe | . | MOVE.B (A6-0x2),D0
00021b48 b0 01 | | CMP.B D1,D0
00021b4a 66 22 |f" | BNE 0x21b6e
00021b4c 3f 01 |? | MOVE.W D1,-(A7)
00021b4e 48 50 |HP | PEA.L (A0)
00021b50 4e b9 00 01 02 0e |N | JSR KC07_PortGetChar(port : Word ; VAR ret : Word)
00021b56 5c 4f |\O | ADDQ.L #0x6,A7
00021b58 02 50 00 7f | P | ANDI.W #0x007f,(A0)
00021b5c 30 10 |0 | MOVE.W (A0),D0
00021b5e 0c 40 00 07 | @ | CMPI.W #0x0007,D0
00021b62 66 06 |f | BNE 0x21b6a
00021b64 1d 41 00 08 | A | MOVE.B D1,(A6+0x8)
00021b68 60 04 |` | BRA 0x21b6e
00021b6a 4e ba fc 9a |N | JSR 0x21806
00021b6e 4c df 01 03 |L | MOVEM.L (A7)+,D0+D1+A0
00021b72 4e 5e |N^ | UNLK A6
00021b74 4e 75 |Nu | RTS
00021b76 ; --------------------------------------------------------------------------------------
00021b76 ; OMSI PASCAL Function
00021b76 ; <LVAR -0x001 @ 1(r)>
00021b76 ; <LVAR -0x002 @ 1(r)>
00021b76 ; --------------------------------------------------------------------------------------
00021b76 4e 56 ff c0 |NV | LINK.W A6,#0xffc0
00021b7a bf d5 | | CMPA.L (A5),A7
00021b7c 62 06 |b | BHI 0x21b84
00021b7e 44 fc 00 02 |D | MOVE.W #0x2,CCR
00021b82 4e 76 |Nv | TRAPV
00021b84 de fc 00 3c | < | ADDA.W #0x3c,A7
00021b88 48 e7 f9 e0 |H | MOVEM.L A2+A1+A0+D7+D4+D3+D2+D1+D0,-(A7)
00021b8c 43 f9 00 02 1e ca |C | LEA.L 0x21eca,A1
00021b92 45 ee ff ff |E | LEA.L (A6-0x1),A2
00021b96 74 0f |t | MOVEQ.L #0x0f,D2
00021b98 76 01 |v | MOVEQ.L #0x01,D3
00021b9a 38 3c 04 44 |8< D | MOVE.W #0x444,D4
00021b9e 7e 00 |~ | MOVEQ.L #0x00,D7
00021ba0 30 04 |0 | MOVE.W D4,D0
00021ba2 c1 c7 | | MULS.W D7,D0
00021ba4 20 49 | I | MOVEA.L A1,A0
00021ba6 4a 30 00 0c |J0 | TST.B (A0+D0.W+#0xc)
00021baa 67 08 |g | BEQ 0x21bb4
00021bac 3f 07 |? | MOVE.W D7,-(A7)
00021bae 4e ba ee 06 |N | JSR 0x209b6
00021bb2 54 4f |TO | ADDQ.L #0x2,A7
00021bb4 52 47 |RG | ADDQ.W #0x1,D7
00021bb6 be 42 | B | CMP.W D2,D7
00021bb8 6f e6 |o | BLE 0x21ba0
00021bba 7e 00 |~ | MOVEQ.L #0x00,D7
00021bbc 30 04 |0 | MOVE.W D4,D0
00021bbe c1 c7 | | MULS.W D7,D0
00021bc0 20 49 | I | MOVEA.L A1,A0
00021bc2 4a 30 00 0c |J0 | TST.B (A0+D0.W+#0xc)
00021bc6 67 66 |gf | BEQ 0x21c2e
00021bc8 3f 07 |? | MOVE.W D7,-(A7)
00021bca 48 6e ff fe |Hn | PEA.L (A6-0x2)
00021bce 48 52 |HR | PEA.L (A2)
00021bd0 4e b9 00 01 02 08 |N | JSR KERNCALL_04
00021bd6 de fc 00 0a | | ADDA.W #0xa,A7
00021bda 4a 2e ff fe |J. | TST.B (A6-0x2)
00021bde 67 4e |gN | BEQ 0x21c2e
00021be0 12 30 00 0d | 0 | MOVE.B (A0+D0.W+#0xd),D1
00021be4 48 81 |H | EXTB.W D1
00021be6 0c 41 00 02 | A | CMPI.W #0x0002,D1
00021bea 63 02 |c | BLS 0x21bee
00021bec 4e 4e |NN | TRAP #14
00021bee d2 41 | A | ADD.W D1,D1
00021bf0 32 3b 10 06 4e fb 10 02 |2; N | SWITCH D1.W
00021bf8 00 06 | | .CONST 0x6 ; [0x0] -> 0x21bfe
00021bfa 00 16 | | .CONST 0x16 ; [0x1] -> 0x21c0e
00021bfc 00 26 | & | .CONST 0x26 ; [0x2] -> 0x21c1e
00021bfe switch@0x21bf0[0x0]:
00021bfe 3f 07 |? | MOVE.W D7,-(A7)
00021c00 10 12 | | MOVE.B (A2),D0
00021c02 48 80 |H | EXTB.W D0
00021c04 41 83 |A | CHK.W D3,D0
00021c06 1f 00 | | MOVE.B D0,-(A7)
00021c08 4e ba fa a0 |N | JSR 0x216aa
00021c0c 60 1e |` | BRA 0x21c2c
00021c0e switch@0x21bf0[0x1]:
00021c0e 3f 07 |? | MOVE.W D7,-(A7)
00021c10 10 12 | | MOVE.B (A2),D0
00021c12 48 80 |H | EXTB.W D0
00021c14 41 83 |A | CHK.W D3,D0
00021c16 1f 00 | | MOVE.B D0,-(A7)
00021c18 4e ba fa 02 |N | JSR 0x2161c
00021c1c 60 0e |` | BRA 0x21c2c
00021c1e switch@0x21bf0[0x2]:
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 fb 2e |N . | JSR 0x21758
00021c2c 58 4f |XO | ADDQ.L #0x4,A7
00021c2e 52 47 |RG | ADDQ.W #0x1,D7
00021c30 be 42 | B | CMP.W D2,D7
00021c32 6f 88 |o | BLE 0x21bbc
00021c34 55 4f |UO | SUBQ.L #0x2,A7
00021c36 4e ba fe de |N | JSR 0x21b16
00021c3a 4a 1f |J | TST.B (A7)+
00021c3c 67 00 ff 7c |g | | BEQ 0x21bba
00021c40 7e 00 |~ | MOVEQ.L #0x00,D7
00021c42 30 04 |0 | MOVE.W D4,D0
00021c44 c1 c7 | | MULS.W D7,D0
00021c46 20 49 | I | MOVEA.L A1,A0
00021c48 4a 30 00 0c |J0 | TST.B (A0+D0.W+#0xc)
00021c4c 67 0c |g | BEQ 0x21c5a
00021c4e 3f 07 |? | MOVE.W D7,-(A7)
00021c50 48 52 |HR | PEA.L (A2)
00021c52 4e b9 00 01 02 06 |N | JSR KC03_Wait_Disk_IO(a : W; VAR status : Byte)
00021c58 5c 4f |\O | ADDQ.L #0x6,A7
00021c5a 52 47 |RG | ADDQ.W #0x1,D7
00021c5c be 42 | B | CMP.W D2,D7
00021c5e 6f e2 |o | BLE 0x21c42
00021c60 4c df 07 9f |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D7+A0+A1+A2
00021c64 4e 5e |N^ | UNLK A6
00021c66 4e 75 |Nu | RTS
00021c68 ; --------------------------------------------------------------------------------------
00021c68 ; OMSI PASCAL Function
00021c68 ; --------------------------------------------------------------------------------------
00021c68 START:
00021c68 4f fa 00 08 |O | LEA.L MAIN,A7
00021c6c 4e f9 00 01 02 80 |N | JMP ?start_program
00021c72 MAIN:
00021c72 72 01 |r | MOVEQ.L #0x01,D1
00021c74 4e b9 00 01 03 98 |N | JSR FSCALL_10398
00021c7a 23 fc 00 00 00 7b 00 02 |# { | MOVE.L #0x7b,0x2631a
00021c82 63 1a |c |
00021c84 23 c1 00 02 63 16 |# c | MOVE.L D1,0x26316
00021c8a 4e ba eb 10 |N | JSR 0x2079c
00021c8e 4e ba fe e6 |N | JSR 0x21b76
00021c92 41 fa e8 8c |A | LEA.L 0x20520,A0
00021c96 70 04 |p | MOVEQ.L #0x04,D0
00021c98 2f 20 |/ | MOVE.L -(A0),-(A7)
00021c9a 51 c8 ff fc |Q | DBF D0,0x21c98
00021c9e 42 27 |B' | CLR.B -(A7)
00021ca0 59 4f |YO | SUBQ.L #0x4,A7
00021ca2 48 6f 00 06 |Ho | PEA.L (A7+0x6)
00021ca6 3f 01 |? | MOVE.W D1,-(A7)
00021ca8 3f 3c 00 14 |?< | MOVE.W #0x14,-(A7)
00021cac 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00021cb2 50 4f |PO | ADDQ.L #0x8,A7
00021cb4 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String)
00021cba de fc 00 1a | | ADDA.W #0x1a,A7
00021cbe 4e b9 00 01 02 84 |N | JSR ?exit
00021cc4 57 6f 72 64 73 20 65 72 |Words er| .TXT 'Words error :_'
00021cd2 ; --------------------------------------------------------------------------------------
00021cd2 ; OMSI PASCAL Function
00021cd2 ; <LVAR 0x008 1(r)>
00021cd2 ; --------------------------------------------------------------------------------------
00021cd2 PROG_FAIL:
00021cd2 4e 56 ff d2 |NV | LINK.W A6,#0xffd2
00021cd6 bf d5 | | CMPA.L (A5),A7
00021cd8 62 06 |b | BHI 0x21ce0
00021cda 44 fc 00 02 |D | MOVE.W #0x2,CCR
00021cde 4e 76 |Nv | TRAPV
00021ce0 de fc 00 2c | , | ADDA.W #0x2c,A7
00021ce4 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7)
00021ce8 41 fa ff e8 |A | LEA.L PROG_FAIL,A0
00021cec 70 06 |p | MOVEQ.L #0x06,D0
00021cee 3f 20 |? | MOVE.W -(A0),-(A7)
00021cf0 51 c8 ff fc |Q | DBF D0,0x21cee
00021cf4 1f 3c 00 03 | < | MOVE.B #0x03,-(A7)
00021cf8 51 4f |QO | SUBQ.L #0x8,A7
00021cfa 48 6f 00 0a |Ho | PEA.L (A7+0xa)
00021cfe 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
00021d02 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7)
00021d06 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00021d0c 58 4f |XO | ADDQ.L #0x4,A7
00021d0e 10 2e 00 08 | . | MOVE.B (A6+0x8),D0
00021d12 48 80 |H | EXTB.W D0
00021d14 48 c0 |H | EXTW.L D0
00021d16 2f 00 |/ | MOVE.L D0,-(A7)
00021d18 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String
00021d1e 58 4f |XO | ADDQ.L #0x4,A7
00021d20 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00021d26 50 4f |PO | ADDQ.L #0x8,A7
00021d28 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String)
00021d2e de fc 00 14 | | ADDA.W #0x14,A7
00021d32 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0
00021d36 4e 5e |N^ | UNLK A6
00021d38 4e 75 |Nu | RTS
00021d3a 42 6f 61 72 64 20 20 20 |Board | .TXT 'Board :_ '
00021d48 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment :_ '
00021d56 53 74 61 74 75 73 20 20 |Status | .TXT 'Status :_ '
00021d64 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment error :'
00021d76 46 61 74 61 6c 20 65 78 |Fatal ex| .TXT 'Fatal experiment error. '
00021d8e ; --------------------------------------------------------------------------------------
00021d8e ; OMSI PASCAL Function
00021d8e ; <LVAR 0x00e 1(r)>
00021d8e ; <LVAR 0x00a 4(r)>
00021d8e ; <LVAR 0x008 1(r)>
00021d8e ; --------------------------------------------------------------------------------------
00021d8e EXP_FAIL:
00021d8e 4e 56 ff 8c |NV | LINK.W A6,#0xff8c
00021d92 bf d5 | | CMPA.L (A5),A7
00021d94 62 06 |b | BHI 0x21d9c
00021d96 44 fc 00 02 |D | MOVE.W #0x2,CCR
00021d9a 4e 76 |Nv | TRAPV
00021d9c de fc 00 74 | t | ADDA.W #0x74,A7
00021da0 48 e7 fc f8 |H | MOVEM.L A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7)
00021da4 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
00021daa 49 f9 00 01 03 e0 |I | LEA.L WriteConsoleStringCrLf(str : String),A4
00021db0 72 01 |r | MOVEQ.L #0x01,D1
00021db2 74 0d |t | MOVEQ.L #0x0d,D2
00021db4 76 1e |v | MOVEQ.L #0x1e,D3
00021db6 78 12 |x | MOVEQ.L #0x12,D4
00021db8 7a 0e |z | MOVEQ.L #0x0e,D5
00021dba 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void)
00021dc0 41 fa ff b4 |A | LEA.L 0x21d76,A0
00021dc4 70 08 |p | MOVEQ.L #0x08,D0
00021dc6 3f 20 |? | MOVE.W -(A0),-(A7)
00021dc8 51 c8 ff fc |Q | DBF D0,0x21dc6
00021dcc 59 4f |YO | SUBQ.L #0x4,A7
00021dce 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021dd2 3f 01 |? | MOVE.W D1,-(A7)
00021dd4 3f 04 |? | MOVE.W D4,-(A7)
00021dd6 4e 93 |N | JSR (A3)
00021dd8 50 4f |PO | ADDQ.L #0x8,A7
00021dda 4e 94 |N | JSR (A4)
00021ddc 50 4f |PO | ADDQ.L #0x8,A7
00021dde 20 4f | O | MOVEA.L A7,A0
00021de0 43 fa ff 58 |C X | LEA.L 0x21d3a,A1
00021de4 70 0c |p | MOVEQ.L #0x0c,D0
00021de6 10 d9 | | MOVE.B (A1)+,(A0)+
00021de8 51 c8 ff fc |Q | DBF D0,0x21de6
00021dec 51 4f |QO | SUBQ.L #0x8,A7
00021dee 48 6f 00 08 |Ho | PEA.L (A7+0x8)
00021df2 3f 01 |? | MOVE.W D1,-(A7)
00021df4 3f 02 |? | MOVE.W D2,-(A7)
00021df6 4e 93 |N | JSR (A3)
00021df8 54 4f |TO | ADDQ.L #0x2,A7
00021dfa 1e ae 00 0e | | MOVE.B (A6+0xe),(A7)
00021dfe 4e b9 00 01 04 9c |N | JSR BoardName(address : B) : String
00021e04 54 4f |TO | ADDQ.L #0x2,A7
00021e06 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00021e0c 50 4f |PO | ADDQ.L #0x8,A7
00021e0e 4e 94 |N | JSR (A4)
00021e10 de c4 | | ADDA.W D4,A7
00021e12 20 6e 00 0a | n | MOVEA.L (A6+0xa),A0
00021e16 b0 c1 | | CMPA.W D1,A0
00021e18 67 48 |gH | BEQ 0x21e62
00021e1a 9e c5 | | SUBA.W D5,A7
00021e1c 22 4f |"O | MOVEA.L A7,A1
00021e1e 45 fa ff 28 |E ( | LEA.L 0x21d48,A2
00021e22 70 0c |p | MOVEQ.L #0x0c,D0
00021e24 12 da | | MOVE.B (A2)+,(A1)+
00021e26 51 c8 ff fc |Q | DBF D0,0x21e24
00021e2a 9e c3 | | SUBA.W D3,A7
00021e2c 22 4f |"O | MOVEA.L A7,A1
00021e2e 41 e8 00 fc |A | LEA.L (A0+0xfc),A0
00021e32 70 1d |p | MOVEQ.L #0x1d,D0
00021e34 12 d8 | | MOVE.B (A0)+,(A1)+
00021e36 51 c8 ff fc |Q | DBF D0,0x21e34
00021e3a 51 4f |QO | SUBQ.L #0x8,A7
00021e3c 48 6f 00 26 |Ho & | PEA.L (A7+0x26)
00021e40 3f 01 |? | MOVE.W D1,-(A7)
00021e42 3f 02 |? | MOVE.W D2,-(A7)
00021e44 4e 93 |N | JSR (A3)
00021e46 58 4f |XO | ADDQ.L #0x4,A7
00021e48 48 6f 00 0c |Ho | PEA.L (A7+0xc)
00021e4c 3f 01 |? | MOVE.W D1,-(A7)
00021e4e 3f 03 |? | MOVE.W D3,-(A7)
00021e50 4e 93 |N | JSR (A3)
00021e52 50 4f |PO | ADDQ.L #0x8,A7
00021e54 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00021e5a 50 4f |PO | ADDQ.L #0x8,A7
00021e5c 4e 94 |N | JSR (A4)
00021e5e de fc 00 30 | 0 | ADDA.W #0x30,A7
00021e62 9e c5 | | SUBA.W D5,A7
00021e64 20 4f | O | MOVEA.L A7,A0
00021e66 43 fa fe ee |C | LEA.L 0x21d56,A1
00021e6a 70 0c |p | MOVEQ.L #0x0c,D0
00021e6c 10 d9 | | MOVE.B (A1)+,(A0)+
00021e6e 51 c8 ff fc |Q | DBF D0,0x21e6c
00021e72 51 4f |QO | SUBQ.L #0x8,A7
00021e74 48 6f 00 08 |Ho | PEA.L (A7+0x8)
00021e78 3f 01 |? | MOVE.W D1,-(A7)
00021e7a 3f 02 |? | MOVE.W D2,-(A7)
00021e7c 4e 93 |N | JSR (A3)
00021e7e 54 4f |TO | ADDQ.L #0x2,A7
00021e80 1e ae 00 08 | | MOVE.B (A6+0x8),(A7)
00021e84 4e b9 00 01 04 a2 |N | JSR ExpStatus2Text(status.B, &String)
00021e8a 54 4f |TO | ADDQ.L #0x2,A7
00021e8c 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00021e92 50 4f |PO | ADDQ.L #0x8,A7
00021e94 4e 94 |N | JSR (A4)
00021e96 5d 4f |]O | SUBQ.L #0x6,A7
00021e98 20 4f | O | MOVEA.L A7,A0
00021e9a 43 fa fe da |C | LEA.L 0x21d76,A1
00021e9e 70 16 |p | MOVEQ.L #0x16,D0
00021ea0 10 d9 | | MOVE.B (A1)+,(A0)+
00021ea2 51 c8 ff fc |Q | DBF D0,0x21ea0
00021ea6 1f 3c 00 02 | < | MOVE.B #0x02,-(A7)
00021eaa 59 4f |YO | SUBQ.L #0x4,A7
00021eac 48 6f 00 06 |Ho | PEA.L (A7+0x6)
00021eb0 3f 01 |? | MOVE.W D1,-(A7)
00021eb2 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7)
00021eb6 4e 93 |N | JSR (A3)
00021eb8 50 4f |PO | ADDQ.L #0x8,A7
00021eba 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String)
00021ec0 de c3 | | ADDA.W D3,A7
00021ec2 4c df 1f 3f |L ? | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4
00021ec6 4e 5e |N^ | UNLK A6
00021ec8 4e 75 |Nu | RTS