|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 DFS Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 DFS Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 10240 (0x2800)
Types: M200
Notes: @(#)SLEW,2.1,90/03/15,11:20:00, M200_PROGRAM
Names: »SLEW.M200«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »SLEW.M200«
└─ ⟦this⟧ »SLEW.M200«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »SLEW.M200«
└─ ⟦this⟧ »SLEW.M200«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »SLEW.M200«
└─ ⟦this⟧ »SLEW.M200«
@ 20fb8
PROG_FAIL
<LVAR 0x008 1(r)>
<POP 20fb8-20fde Body>
<POP 20fb8-20fca Prologue> Σ0 ↓
<POP 20fca-20fda Naked> Σ0 ↓
<MI 20fca MOVE.B #0x01,0x22562> {}
<MI 20fd2 MOVE.B (A6+0x8),0x22563> {}
<POP 20fda-20fde Epilogue> Σ0
@ 20fde
<LVAR -0x002 @>
<LVAR -0x004 @ 1(r)>
<POP 20fde-2111a Body>
<POP 20fde-20ff4 Prologue> Σ0 ↓
<POP 20ff4-2100a RegCacheLoad> Σ0 ↓
<POP 2100a-21024 Naked> Σ0 ↓ →0x210a2
<Pointer.fp 0x2100a <LVAR -0x004 @ 1(r)>> Δ-4 {[@@-4]}
<Pointer.fp 0x2100e <LVAR -0x002 @>> Δ-4 {[@@-4]|[@@-2]}
<Call 0x21012 0x10200> {[@@-4]|[@@-2]}
KC00_GetBootDev(VAR a : Byte; VAR b : Word)
<POP 21018-2101a StackAdj> Δ+8 {}
<MI 2101a MOVE.B (A6-0x4),D0> {}
<MI 2101e CMPI.B #0x02,D0> {}
<MI 21022 BEQ 0x210a2> {}
<POP 21024-210a0 Naked> Σ0 ↓
<Blob 0x21024 [34] @> Δ-34 {[«34""»]}
<POP 21030-21032 StackAdj> Δ-4 {[«34""»]|[-4-]}
<Lit 0x21032 34> {[«34""»]|[$$ warning warning warning]}
<Call 0x2103e 0x103e0> {[«34""»]|[$$ warning warning warning]}
WriteConsoleStringCrLf(str : String)
<POP 21040-21042 StackAdj> Δ+38 {}
<Blob 0x21042 [50] @> Δ-50 {[«50""»]}
<POP 2104e-21050 StackAdj> Δ-4 {[«50""»]|[-4-]}
<Lit 0x21050 50> {[«50""»]|[$$remember to white-button if you changed parameters]}
<Call 0x2105c 0x103e0> {[«50""»]|[$$remember to white-button if you changed parameters]}
WriteConsoleStringCrLf(str : String)
<POP 2105e-21060 StackAdj> Δ+54 {}
<Blob 0x21060 [34] @> Δ-34 {[«34""»]}
<POP 2106c-2106e StackAdj> Δ-4 {[«34""»]|[-4-]}
<Lit 0x2106e 34> {[«34""»]|[$$ warning warning warning]}
<Call 0x2107a 0x103e0> {[«34""»]|[$$ warning warning warning]}
WriteConsoleStringCrLf(str : String)
<POP 2107c-2107e StackAdj> Δ+38 {}
<Blob 0x2107e [44] @> Δ-44 {[«44""»]}
<POP 2108a-2108c StackAdj> Δ-4 {[«44""»]|[-4-]}
<Lit 0x2108c 44> {[«44""»]|[$$Program not booted from disk, re-boot system]}
<Call 0x2109a 0x103e0> {[«44""»]|[$$Program not booted from disk, re-boot system]}
WriteConsoleStringCrLf(str : String)
<POP 2109c-210a0 StackAdj> Δ+48 {}
<POP 210a0-210a2 Naked> Σ0 →0x210a0 ←0x210a0
<MI 210a0 BRA 0x210a0> {}
<POP 210a2-21112 Naked> Σ0 ↓ ←0x2100a
<Call 0x210a2 0x10398> {}
FSCALL_10398
<Blob 0x210a8 [34] @> Δ-34 {[«34""»]}
<POP 210b4-210b6 StackAdj> Δ-4 {[«34""»]|[-4-]}
<Lit 0x210b6 34> {[«34""»]|[$$ warning warning warning]}
<Call 0x210c2 0x103e0> {[«34""»]|[$$ warning warning warning]}
WriteConsoleStringCrLf(str : String)
<POP 210c4-210c6 StackAdj> Δ+38 {}
<Blob 0x210c6 [50] @> Δ-50 {[«50""»]}
<POP 210d2-210d4 StackAdj> Δ-4 {[«50""»]|[-4-]}
<Lit 0x210d4 50> {[«50""»]|[$$remember to white-button if you changed parameters]}
<Call 0x210e0 0x103e0> {[«50""»]|[$$remember to white-button if you changed parameters]}
WriteConsoleStringCrLf(str : String)
<POP 210e2-210e4 StackAdj> Δ+54 {}
<Blob 0x210e4 [34] @> Δ-34 {[«34""»]}
<POP 210f0-210f2 StackAdj> Δ-4 {[«34""»]|[-4-]}
<Lit 0x210f2 34> {[«34""»]|[$$ warning warning warning]}
<Call 0x210fe 0x103e0> {[«34""»]|[$$ warning warning warning]}
WriteConsoleStringCrLf(str : String)
<POP 21100-21104 StackAdj> Δ+36 {[-2-]}
<MI 21104 CLR.B (A7)> {[-2-]}
<Const 0x21106 0x1.4> Δ-4 {[-2-]|[##1]}
<Call 0x2110a 0x103b8> {[-2-]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 21110-21112 StackAdj> Δ+6 {}
<POP 21112-2111a Epilogue> Σ0
@ 2111a
<LVAR 0x010 4(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 2111a-21150 Body>
<POP 2111a-21130 Prologue> Σ0 ↓
<POP 21130-21148 Naked> Σ0 ↓
<MI 21130 MOVE.L (A6+0xc),D0> {}
<MI 21134 OR.L (A6+0x8),D0> {}
<MI 21138 MOVE.L (A6+0xc),D1> {}
<MI 2113c AND.L (A6+0x8),D1> {}
<MI 21140 NEG.L D1> {}
<MI 21142 ADD.L D0,D1> {}
<MI 21144 MOVE.L D1,(A6+0x10)> {}
<POP 21148-21150 Epilogue> Σ0
@ 21150
<LVAR 0x010 2(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x006 2(w)>
<LVAR -0x008 2(w)>
<LVAR -0x00a 2(r)>
<LVAR -0x00c 2(r)>
<LVAR -0x00e 2(w)>
<LVAR -0x010 2(r)>
<LVAR -0x012 @ 2(r)>
<POP 21150-2121c Body>
<POP 21150-21166 Prologue> Σ0 ↓
<POP 21166-211ca Naked> Σ0 ↓ →0x21214
<MI 21166 CLR.W (A6-0x12)> {}
<MI 2116a CLR.W (A6-0x10)> {}
<MI 2116e MOVE.W #0x2,(A6-0xe)> {}
<MI 21174 CLR.W (A6-0xc)> {}
<MI 21178 CLR.W (A6-0xa)> {}
<MI 2117c MOVE.W 0x22560,D0> {}
<MI 21182 ASL.W #0x8,D0> {}
<MI 21184 ADDI.W #0x000e,D0> {}
<POP 0x21188 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 21190 MOVE.W D0,(A6-0x8)> {}
<MI 21194 MOVE.W (A6+0x10),(A6-0x6)> {}
<MI 2119a MOVEA.L (A6+0xc),A0> {}
<Pointer.fp 0x2119e <LVAR -0x012 @ 2(r)>> Δ-4 {[@@-18]}
<MI 211a2 MOVEA.L A0,A1> {[@@-18]}
<MI 211a4 MOVE.L A1,-(A7)> Δ-4 {[@@-18]|[4, 'A1']}
<MI 211a6 CLR.W -(A7)> Δ-2 {[@@-18]|[4, 'A1']|[#0]}
<Call 0x211a8 0x10204> {[@@-18]|[4, 'A1']|[#0]}
KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
<POP 211ae-211b2 StackAdj> Δ+10 {}
<MI 211b2 MOVEA.L (A6+0x8),A1> {}
<MI 211b6 CLR.W -(A7)> Δ-2 {[#0]}
<MI 211b8 PEA.L (A1)> Δ-4 {[#0]|[4, '^(A1)']}
<Call 0x211ba 0x10206> {[#0]|[4, '^(A1)']}
KC03_Wait_Disk_IO(a : W; VAR status : Byte)
<POP 211c0-211c2 StackAdj> Δ+6 {}
<MI 211c2 ANDI.W #0x00ff,(A0)> {}
<MI 211c6 TST.B (A1)> {}
<MI 211c8 BNE 0x21214> {}
<POP 211ca-21214 Naked> Σ0 ↓
<Blob 0x211ca [36] @> Δ-36 {[«36""»]}
<POP 211dc-211de StackAdj> Δ-8 {[«36""»]|[-8-]}
<Lit 0x211de 35> {[«36""»]|[-4-]|[$$Error reading eeprom at location :_]}
<POP 211f0-211f2 StackAdj> Δ-4 {[«36""»]|[-4-]|[$$Error reading eeprom at location :_]|[-4-]}
<MI 211f2 CLR.L D0> {[«36""»]|[-4-]|[$$Error reading eeprom at location :_]|[-4-]}
<MI 211f4 MOVE.W (A6+0x10),D0> {[«36""»]|[-4-]|[$$Error reading eeprom at location :_]|[-4-]}
<MI 211f8 MOVE.L D0,-(A7)> Δ-4 {[«36""»]|[-4-]|[$$Error reading eeprom at location :_]|[-4-]|[4, 'D0']}
<Call 0x211fa 0x102e4> {[«36""»]|[-4-]|[$$Error reading eeprom at location :_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 21200-21202 StackAdj> Δ+4 {[«36""»]|[-4-]|[$$Error reading eeprom at location :_]|[-4-]}
<Call 0x21202 0x102d0> {[«36""»]|[-4-]|[$$Error reading eeprom at location :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 21208-2120a StackAdj> Δ+8 {[«36""»]|[-4-]}
<Call 0x2120a 0x103e0> {[«36""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 21210-21214 StackAdj> Δ+40 {}
<POP 21214-2121c Epilogue> Σ0 ←0x21166
@ 2121c
<LVAR 0x00e 2(r)>
<LVAR 0x00c 2(rw)>
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 2(r)>
<LVAR -0x006 2(w)>
<LVAR -0x008 2(w)>
<LVAR -0x00a 2(w)>
<LVAR -0x00c 2(r)>
<LVAR -0x00e 2(r)>
<LVAR -0x010 2(w)>
<LVAR -0x012 2(r)>
<LVAR -0x014 @ 2(r)>
<POP 2121c-213bc Body>
<POP 2121c-21232 Prologue> Σ0 ↓
<POP 21232-21244 RegCacheLoad> Σ0 ↓
<POP 21244-212a8 Naked> Σ0 ↓ →0x2136c
<MI 21244 ANDI.W #0x00ff,(A6+0xc)> {}
<MI 21248 CLR.W (A6-0x14)> {}
<MI 2124c CLR.W (A6-0x12)> {}
<MI 21250 MOVE.W #0x2,(A6-0x10)> {}
<MI 21256 CLR.W (A6-0xe)> {}
<MI 2125a CLR.W (A6-0xc)> {}
<MI 2125e MOVE.W 0x22560,D0> {}
<MI 21264 ASL.W #0x8,D0> {}
<MI 21266 ADDI.W #0x000f,D0> {}
<POP 0x2126a LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 21272 MOVE.W D0,(A6-0xa)> {}
<MI 21276 MOVE.W (A6+0xe),(A6-0x8)> {}
<MI 2127c MOVE.W (A6+0xc),(A6-0x6)> {}
<Pointer.fp 0x21280 <LVAR -0x014 @ 2(r)>> Δ-4 {[@@-20]}
<Const 0x21284 0x0.4> Δ-4 {[@@-20]|[##0]}
<MI 21288 CLR.W -(A7)> Δ-2 {[@@-20]|[##0]|[#0]}
<Call 0x2128a 0x10204> {[@@-20]|[##0]|[#0]}
KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
<POP 21290-21292 StackAdj> Δ+10 {}
<MI 21292 MOVEA.L (A6+0x8),A0> {}
<MI 21296 CLR.W -(A7)> Δ-2 {[#0]}
<MI 21298 PEA.L (A0)> Δ-4 {[#0]|[4, '^(A0)']}
<Call 0x2129a 0x10206> {[#0]|[4, '^(A0)']}
KC03_Wait_Disk_IO(a : W; VAR status : Byte)
<POP 212a0-212a2 StackAdj> Δ+6 {}
<MI 212a2 TST.B (A0)> {}
<MI 212a4 BEQ 0x2136c> {}
<POP 212a8-212be Naked> Σ0 ↓ →0x2136c
<MI 212a8 MOVE.W (A6+0xe),-(A7)> Δ-2 {[2, '(A6+0xe)']}
<Pointer.fp 0x212ac <LVAR -0x004 @ 2(r)>> Δ-4 {[2, '(A6+0xe)']|[@@-4]}
<MI 212b0 PEA.L (A0)> Δ-4 {[2, '(A6+0xe)']|[@@-4]|[4, '^(A0)']}
<Call 0x212b2 0x21150> {[2, '(A6+0xe)']|[@@-4]|[4, '^(A0)']}
<POP 212b6-212b8 StackAdj> Δ+10 {}
<MI 212b8 TST.B (A0)> {}
<MI 212ba BEQ 0x2136c> {}
<POP 212be-212c8 Naked> Σ0 ↓ →0x2136c
<MI 212be MOVE.W (A6+0xc),D0> {}
<MI 212c0 CMP.W (A6-0x4),D0> {}
<MI 212c4 BEQ 0x2136c> {}
<POP 212c8-2136c Naked> Σ0 ↓
<Blob 0x212c8 [54] @> Δ-54 {[«54""»]}
<POP 212d8-212da StackAdj> Δ-4 {[«54""»]|[-4-]}
<Lit 0x212da 53> {[«54""»]|[$$Data did not compare, EEPROM probably write protected]}
<Call 0x212e8 0x103e0> {[«54""»]|[$$Data did not compare, EEPROM probably write protected]}
WriteConsoleStringCrLf(str : String)
<POP 212ee-212f0 StackAdj> Δ+54 {[-4-]}
<POP 212f0-212f1 StackAdj> Δ+4 {}
<Blob 0x212f1 [4] @> Δ-4 {[«4""»]}
<Blob 0x212f4 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x212f8 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x212fc [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 21300-21302 StackAdj> Δ-8 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-8-]}
<Lit 0x21302 16> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Wrote [decimal] ]}
<POP 2130e-21310 StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Wrote [decimal] ]|[-4-]}
<MI 21310 CLR.L D0> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Wrote [decimal] ]|[-4-]}
<MI 21312 MOVE.W (A6+0xc),D0> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Wrote [decimal] ]|[-4-]}
<MI 21314 MOVE.L D0,-(A7)> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Wrote [decimal] ]|[-4-]|[4, 'D0']}
<Call 0x21316 0x102e4> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Wrote [decimal] ]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 2131c-2131e StackAdj> Δ+4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Wrote [decimal] ]|[-4-]}
<Call 0x2131e 0x102d0> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Wrote [decimal] ]|[-4-]}
StringCat2(a, b : String) : String
<POP 21324-21326 StackAdj> Δ+8 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Call 0x21326 0x103e0> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 2132c-2132e StackAdj> Δ+20 {}
<Blob 0x2132e [20] @> Δ-20 {[«20""»]}
<POP 2133a-2133c StackAdj> Δ-8 {[«20""»]|[-8-]}
<Lit 0x2133c 20> {[«20""»]|[-4-]|[$$Read back [decimal] ]}
<POP 21346-21348 StackAdj> Δ-4 {[«20""»]|[-4-]|[$$Read back [decimal] ]|[-4-]}
<MI 21348 CLR.L D0> {[«20""»]|[-4-]|[$$Read back [decimal] ]|[-4-]}
<MI 2134a MOVE.W (A6-0x4),D0> {[«20""»]|[-4-]|[$$Read back [decimal] ]|[-4-]}
<MI 2134e MOVE.L D0,-(A7)> Δ-4 {[«20""»]|[-4-]|[$$Read back [decimal] ]|[-4-]|[4, 'D0']}
<Call 0x21350 0x102e4> {[«20""»]|[-4-]|[$$Read back [decimal] ]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 21356-21358 StackAdj> Δ+4 {[«20""»]|[-4-]|[$$Read back [decimal] ]|[-4-]}
<Call 0x21358 0x102d0> {[«20""»]|[-4-]|[$$Read back [decimal] ]|[-4-]}
StringCat2(a, b : String) : String
<POP 2135e-21360 StackAdj> Δ+8 {[«20""»]|[-4-]}
<Call 0x21360 0x103e0> {[«20""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 21366-2136a StackAdj> Δ+24 {}
<MI 2136a CLR.B (A0)> {}
<POP 2136c-21370 Naked> Σ0 ↓ →0x213b4 ←0x21244 ←0x212a8 ←0x212be
<MI 2136c TST.B (A0)> {}
<MI 2136e BNE 0x213b4> {}
<POP 21370-213b4 Naked> Σ0 ↓
<Blob 0x21370 [36] @> Δ-36 {[«36""»]}
<POP 21382-21384 StackAdj> Δ-8 {[«36""»]|[-8-]}
<Lit 0x21384 35> {[«36""»]|[-4-]|[$$Error writing eeprom at location :_]}
<POP 21390-21392 StackAdj> Δ-4 {[«36""»]|[-4-]|[$$Error writing eeprom at location :_]|[-4-]}
<MI 21392 CLR.L D0> {[«36""»]|[-4-]|[$$Error writing eeprom at location :_]|[-4-]}
<MI 21394 MOVE.W (A6+0xe),D0> {[«36""»]|[-4-]|[$$Error writing eeprom at location :_]|[-4-]}
<MI 21398 MOVE.L D0,-(A7)> Δ-4 {[«36""»]|[-4-]|[$$Error writing eeprom at location :_]|[-4-]|[4, 'D0']}
<Call 0x2139a 0x102e4> {[«36""»]|[-4-]|[$$Error writing eeprom at location :_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 213a0-213a2 StackAdj> Δ+4 {[«36""»]|[-4-]|[$$Error writing eeprom at location :_]|[-4-]}
<Call 0x213a2 0x102d0> {[«36""»]|[-4-]|[$$Error writing eeprom at location :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 213a8-213aa StackAdj> Δ+8 {[«36""»]|[-4-]}
<Call 0x213aa 0x103e0> {[«36""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 213b0-213b4 StackAdj> Δ+40 {}
<POP 213b4-213bc Epilogue> Σ0 ←0x2136c
@ 213bc
<LVAR -0x004 @ 2(r)>
<LVAR -0x006 @ 1(r)>
<POP 213bc-214c0 Body>
<POP 213bc-213d2 Prologue> Σ0 ↓
<POP 213d2-213e4 RegCacheLoad> Σ0 ↓
<POP 213e4-2140c Naked> Σ0 ↓
<Blob 0x213e4 [20] @> Δ-20 {[«20""»]}
<POP 213f0-213f2 StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x213f2 20> {[«20""»]|[$$Verifying EEPROM ...]}
<Call 0x21400 0x103e0> {[«20""»]|[$$Verifying EEPROM ...]}
WriteConsoleStringCrLf(str : String)
<POP 21402-21406 StackAdj> Δ+24 {}
<MI 21406 MOVEQ.L #0x00,D7> {}
<MI 21408 MOVE.W #0xff,D6> {}
<POP 2140c-21450 Naked> Σ0 ↓ →0x21454 ←0x21450
<POP 0x2140c LimitCheck 0x0 ≤ D7 ≤ 0xffff> {}
<MI 21416 MOVE.W D7,-(A7)> Δ-2 {[2, 'D7']}
<Pointer.fp 0x21418 <LVAR -0x004 @ 2(r)>> Δ-4 {[2, 'D7']|[@@-4]}
<Pointer.fp 0x2141c <LVAR -0x006 @ 1(r)>> Δ-4 {[2, 'D7']|[@@-4]|[@@-6]}
<Call 0x2141e 0x21150> {[2, 'D7']|[@@-4]|[@@-6]}
<POP 21422-21424 StackAdj> Δ+6 {[2, 'D7']|[-2-]}
<MI 21424 MOVE.W D6,D0> {[2, 'D7']|[-2-]}
<MI 21426 EXTW.L D0> {[2, 'D7']|[-2-]}
<MI 21428 MOVE.L D0,-(A7)> Δ-4 {[2, 'D7']|[-2-]|[4, 'D0']}
<MI 2142a CLR.L D0> {[2, 'D7']|[-2-]|[4, 'D0']}
<MI 2142c MOVE.W (A6-0x4),D0> {[2, 'D7']|[-2-]|[4, 'D0']}
<MI 21430 MOVE.L D0,-(A7)> Δ-4 {[2, 'D7']|[-2-]|[4, 'D0']|[4, 'D0']}
<Call 0x21432 0x2111a> {[2, 'D7']|[-2-]|[4, 'D0']|[4, 'D0']}
<POP 21436-21438 StackAdj> Δ+8 {[2, 'D7']|[-2-]}
<MI 21438 MOVE.L (A7)+,D0> Δ+4 {}
<POP 0x2143a LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 21444 MOVE.W D0,D6> {}
<MI 21446 ADDQ.L #0x1,D7> {}
<MI 21448 CMPI.L #0x00000400,D7> {}
<MI 2144e BEQ 0x21454> {}
<POP 21450-21454 Naked> Σ0 ↓ →0x2140c
<MI 21450 TST.B (A6-0x6)> {}
<MI 21452 BNE 0x2140c> {}
<POP 21454-21458 Naked> Σ0 ↓ →0x214b8 ←0x2140c
<MI 21454 TST.B (A6-0x6)> {}
<MI 21456 BEQ 0x214b8> {}
<POP 21458-2145c Naked> Σ0 ↓ →0x21480
<MI 21458 TST.W D6> {}
<MI 2145a BNE 0x21480> {}
<POP 2145c-21480 Naked> Σ0 →0x214b8
<Blob 0x2145c [28] @> Δ-28 {[«28""»]}
<POP 21468-2146a StackAdj> Δ-4 {[«28""»]|[-4-]}
<Lit 0x2146a 28> {[«28""»]|[$$Checksum verified correctly!]}
<Call 0x21478 0x103e0> {[«28""»]|[$$Checksum verified correctly!]}
WriteConsoleStringCrLf(str : String)
<POP 2147a-2147e StackAdj> Δ+32 {}
<MI 2147e BRA 0x214b8> {}
<POP 21480-214b8 Naked> Σ0 ↓ ←0x21458
<Blob 0x21480 [26] @> Δ-26 {[«26""»]}
<POP 2148c-2148e StackAdj> Δ-8 {[«26""»]|[-8-]}
<Lit 0x2148e 26> {[«26""»]|[-4-]|[$$Verify failed, checksum =_]}
<POP 2149a-2149c StackAdj> Δ-4 {[«26""»]|[-4-]|[$$Verify failed, checksum =_]|[-4-]}
<MI 2149c MOVE.W D6,D0> {[«26""»]|[-4-]|[$$Verify failed, checksum =_]|[-4-]}
<MI 2149e EXTW.L D0> {[«26""»]|[-4-]|[$$Verify failed, checksum =_]|[-4-]}
<MI 214a0 MOVE.L D0,-(A7)> Δ-4 {[«26""»]|[-4-]|[$$Verify failed, checksum =_]|[-4-]|[4, 'D0']}
<Call 0x214a2 0x102e4> {[«26""»]|[-4-]|[$$Verify failed, checksum =_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 214a8-214aa StackAdj> Δ+4 {[«26""»]|[-4-]|[$$Verify failed, checksum =_]|[-4-]}
<Call 0x214aa 0x102d0> {[«26""»]|[-4-]|[$$Verify failed, checksum =_]|[-4-]}
StringCat2(a, b : String) : String
<POP 214b0-214b2 StackAdj> Δ+8 {[«26""»]|[-4-]}
<Call 0x214b2 0x103e0> {[«26""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 214b4-214b8 StackAdj> Δ+30 {}
<POP 214b8-214c0 Epilogue> Σ0 ←0x21454 ←0x2145c
@ 214c0
<LVAR -0x008 4(rw)>
<LVAR -0x00c 4(rw)>
<LVAR -0x010 4(w)>
<LVAR -0x012 @ 1(r)>
<LVAR -0x041 1(w)>
<LVAR -0x042 1(w)>
<LVAR -0x043 1(w)>
<LVAR -0x044 1(w)>
<LVAR -0x411 1(w)>
<LVAR -0x413 1(r)>
<LVAR -0x414 @>
<LVAR -0x814 @ 1(w)>
<LVAR -0x824 @ 1(w)>
<POP 214c0-21b66 Body> Δ-4
<POP 214c0-214d6 Prologue> Σ0 ↓
<POP 214d6-214e6 RegCacheLoad> Σ0 ↓
<POP 214e6-21550 Naked> Σ0 ↓
<MI 214e6 MOVE.W 0x22560,D0> {}
<MI 214ec ASR.W #0x2,D0> {}
<MI 214ee EXTW.L D0> {}
<MI 214f0 MOVE.L D0,(A6-0x10)> {}
<MI 214f4 LEA.L (A6-0x414),A0> {}
<MI 214f6 LEA.L 0x209b0,A1> {}
<BlockMove 1024,A1,A0> {}
<MI 21504 CLR.B (A6-0x413)> {}
<POP 0x21508 LimitCheck 0x0 ≤ D0 ≤ 0x3> {}
<MI 21512 MOVE.L D0,D4> {}
<MI 21514 MOVEQ.L #0x0a,D3> {}
<Call 0x21516 0x1028c> {}
?muls_d3_d4
<MI 2151c LEA.L 0x20db0,A0> {}
<MI 21520 MOVE.B (A0+D4.L+#0x1),(A6-0x411)> {}
<MI 21526 LEA.L 0x20db0,A0> {}
<MI 2152a MOVE.B (A0+D4.L+#0x3),(A6-0x44)> {}
<MI 21530 LEA.L 0x20db0,A0> {}
<MI 21534 MOVE.B (A0+D4.L+#0x5),(A6-0x43)> {}
<MI 2153a LEA.L 0x20db0,A0> {}
<MI 2153e MOVE.B (A0+D4.L+#0x7),(A6-0x42)> {}
<MI 21544 LEA.L 0x20db0,A0> {}
<MI 21548 MOVE.B (A0+D4.L+#0x9),(A6-0x41)> {}
<MI 2154e MOVEQ.L #0x00,D0> {}
<POP 21550-21772 Naked> Σ0 Δ-4 ↓ →0x21824 ←0x21a00
<MI 21550 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<Call 0x21552 0x103dc> {[4, 'D0']}
WriteConsoleCrLf(void)
<Blob 0x21558 [28] @> Δ-28 {[4, 'D0']|[«28""»]}
<POP 2156a-2156c StackAdj> Δ-8 {[4, 'D0']|[«28""»]|[-8-]}
<Lit 0x2156c 27> {[4, 'D0']|[«28""»]|[-4-]|[$$Enter information for unit_]}
<MI 2157a MOVE.L D0,(A7)> {[4, 'D0']|[«28""»]|[-4-]|[4, 'D0']}
<POP 21578-2157a StackAdj> Δ-8 {[4, 'D0']|[«28""»]|[-4-]|[4, 'D0']|[-8-]}
<Call 0x2157c 0x102e4> {[4, 'D0']|[«28""»]|[-4-]|[4, 'D0']|[-8-]}
Long2String(a : Long) : String
<POP 21582-21584 StackAdj> Δ+4 {[4, 'D0']|[«28""»]|[-4-]|[4, 'D0']|[-4-]}
<Call 0x21584 0x102d0> {[4, 'D0']|[«28""»]|[-4-]|[4, 'D0']|[-4-]}
StringCat2(a, b : String) : String
<POP 2158a-2158c StackAdj> Δ+8 {[4, 'D0']|[«28""»]|[-4-]}
<Call 0x2158c 0x103e0> {[4, 'D0']|[«28""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 2158e-21592 StackAdj> Δ+28 {[4, 'D0']|[-4-]}
<POP 21592-21593 StackAdj> Δ+4 {[4, 'D0']}
<Blob 0x21593 [4] @> Δ-4 {[4, 'D0']|[«4""»]}
<Blob 0x21596 [4] @> Δ-4 {[4, 'D0']|[«4""»]|[«4""»]}
<Blob 0x2159a [4] @> Δ-4 {[4, 'D0']|[«4""»]|[«4""»]|[«4""»]}
<Blob 0x2159e [4] @> Δ-4 {[4, 'D0']|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 215a2-215a4 StackAdj> Δ-4 {[4, 'D0']|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x215a4 16> {[4, 'D0']|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Drive types are:]}
<Call 0x215b4 0x103e0> {[4, 'D0']|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Drive types are:]}
WriteConsoleStringCrLf(str : String)
<POP 215b6-215b7 StackAdj> Δ+20 ↓ {[4, 'D0']}
<Blob 0x215b7 [54] @> Δ-54 {[4, 'D0']|[«54""»]}
<POP 215c8-215ca StackAdj> Δ-4 {[4, 'D0']|[«54""»]|[-4-]}
<Lit 0x215ca 53> {[4, 'D0']|[«54""»]|[$$ 1 - Fujitsu 2351 (Eagle) with sector interleaving]}
<Call 0x215da 0x103e0> {[4, 'D0']|[«54""»]|[$$ 1 - Fujitsu 2351 (Eagle) with sector interleaving]}
WriteConsoleStringCrLf(str : String)
<POP 215dc-215dd StackAdj> Δ+58 ↓ {[4, 'D0']}
<Blob 0x215dd [32] @> Δ-32 {[4, 'D0']|[«32""»]}
<POP 215ee-215f0 StackAdj> Δ-4 {[4, 'D0']|[«32""»]|[-4-]}
<Lit 0x215f0 31> {[4, 'D0']|[«32""»]|[$$ 2 - Fujitsu 2361 (Eagle XP)]}
<Call 0x21600 0x103e0> {[4, 'D0']|[«32""»]|[$$ 2 - Fujitsu 2361 (Eagle XP)]}
WriteConsoleStringCrLf(str : String)
<POP 21602-21606 StackAdj> Δ+36 {[4, 'D0']}
<Blob 0x21606 [20] @> Δ-20 {[4, 'D0']|[«20""»]}
<POP 21612-21614 StackAdj> Δ-4 {[4, 'D0']|[«20""»]|[-4-]}
<Lit 0x21614 20> {[4, 'D0']|[«20""»]|[$$ 3 - Fujitsu 2333]}
<Call 0x21624 0x103e0> {[4, 'D0']|[«20""»]|[$$ 3 - Fujitsu 2333]}
WriteConsoleStringCrLf(str : String)
<POP 21626-2162a StackAdj> Δ+24 {[4, 'D0']}
<Blob 0x2162a [20] @> Δ-20 {[4, 'D0']|[«20""»]}
<POP 21636-21638 StackAdj> Δ-4 {[4, 'D0']|[«20""»]|[-4-]}
<Lit 0x21638 20> {[4, 'D0']|[«20""»]|[$$ 4 - Fujitsu 2344]}
<Call 0x21648 0x103e0> {[4, 'D0']|[«20""»]|[$$ 4 - Fujitsu 2344]}
WriteConsoleStringCrLf(str : String)
<POP 2164a-2164b StackAdj> Δ+24 ↓ {[4, 'D0']}
<Blob 0x2164b [20] @> Δ-20 {[4, 'D0']|[«20""»]}
<POP 2165a-2165c StackAdj> Δ-4 {[4, 'D0']|[«20""»]|[-4-]}
<Lit 0x2165c 19> {[4, 'D0']|[«20""»]|[$$ 5 - Toshiba 288]}
<Call 0x2166c 0x103e0> {[4, 'D0']|[«20""»]|[$$ 5 - Toshiba 288]}
WriteConsoleStringCrLf(str : String)
<POP 2166e-2166f StackAdj> Δ+24 ↓ {[4, 'D0']}
<Blob 0x2166f [20] @> Δ-20 {[4, 'D0']|[«20""»]}
<POP 2167e-21680 StackAdj> Δ-4 {[4, 'D0']|[«20""»]|[-4-]}
<Lit 0x21680 19> {[4, 'D0']|[«20""»]|[$$ 6 - Toshiba 286]}
<Call 0x21690 0x103e0> {[4, 'D0']|[«20""»]|[$$ 6 - Toshiba 286]}
WriteConsoleStringCrLf(str : String)
<POP 21692-21693 StackAdj> Δ+24 ↓ {[4, 'D0']}
<Blob 0x21693 [42] @> Δ-42 {[4, 'D0']|[«42""»]}
<POP 216a4-216a6 StackAdj> Δ-4 {[4, 'D0']|[«42""»]|[-4-]}
<Lit 0x216a6 41> {[4, 'D0']|[«42""»]|[$$ 7 - CDC PA8K1 750MB SABRE IV 9720-750]}
<Call 0x216b6 0x103e0> {[4, 'D0']|[«42""»]|[$$ 7 - CDC PA8K1 750MB SABRE IV 9720-750]}
WriteConsoleStringCrLf(str : String)
<POP 216b8-216b9 StackAdj> Δ+46 ↓ {[4, 'D0']}
<Blob 0x216b9 [42] @> Δ-42 {[4, 'D0']|[«42""»]}
<POP 216c8-216ca StackAdj> Δ-4 {[4, 'D0']|[«42""»]|[-4-]}
<Lit 0x216ca 41> {[4, 'D0']|[«42""»]|[$$ 8 - CDC PA8K1 850MB SABRE IV 9720-850]}
<Call 0x216da 0x103e0> {[4, 'D0']|[«42""»]|[$$ 8 - CDC PA8K1 850MB SABRE IV 9720-850]}
WriteConsoleStringCrLf(str : String)
<POP 216dc-216e0 StackAdj> Δ+46 {[4, 'D0']}
<Blob 0x216e0 [20] @> Δ-20 {[4, 'D0']|[«20""»]}
<POP 216ec-216ee StackAdj> Δ-4 {[4, 'D0']|[«20""»]|[-4-]}
<Lit 0x216ee 20> {[4, 'D0']|[«20""»]|[$$ 9 - Fujitsu 2372]}
<Call 0x216fe 0x103e0> {[4, 'D0']|[«20""»]|[$$ 9 - Fujitsu 2372]}
WriteConsoleStringCrLf(str : String)
<POP 21700-21701 StackAdj> Δ+24 ↓ {[4, 'D0']}
<Blob 0x21701 [14] @> Δ-14 {[4, 'D0']|[«14""»]}
<POP 21712-21714 StackAdj> Δ-4 {[4, 'D0']|[«14""»]|[-4-]}
<Lit 0x21714 13> {[4, 'D0']|[«14""»]|[$$ 0 - Other]}
<Call 0x21724 0x103e0> {[4, 'D0']|[«14""»]|[$$ 0 - Other]}
WriteConsoleStringCrLf(str : String)
<POP 21726-21727 StackAdj> Δ+18 ↓ {[4, 'D0']}
<Blob 0x21727 [20] @> Δ-20 {[4, 'D0']|[«20""»]}
<POP 21736-21738 StackAdj> Δ-8 {[4, 'D0']|[«20""»]|[-8-]}
<Lit 0x21738 19> {[4, 'D0']|[«20""»]|[-4-]|[$$Enter drive type :_]}
<Const 0x21748 0x0.4> Δ-4 {[4, 'D0']|[«20""»]|[-4-]|[$$Enter drive type :_]|[##0]}
<Const 0x2174c 0x9.4> Δ-4 {[4, 'D0']|[«20""»]|[-4-]|[$$Enter drive type :_]|[##0]|[##9]}
<Call 0x21750 0x103ec> {[4, 'D0']|[«20""»]|[-4-]|[$$Enter drive type :_]|[##0]|[##9]}
AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
<POP 21756-2175a StackAdj> Δ+12 {[4, 'D0']|[«20""»]|[-4-]}
<MI 2175a MOVE.B (A7+0x3),D1> {[4, 'D0']|[«20""»]|[-4-]}
<MI 2175e EXTB.W D1> {[4, 'D0']|[«20""»]|[-4-]}
<POP 0x21760 LimitCheck 0x0 ≤ D1 ≤ 0x9> {[4, 'D0']|[«20""»]|[-4-]}
<POP 21764-21768 StackAdj> Δ+24 {[4, 'D0']}
<MI 21768 MOVE.B D1,(A6-0x824)> {[4, 'D0']}
<MI 2176c TST.B D1> {[4, 'D0']}
<MI 2176e BEQ 0x21824> {[4, 'D0']}
<POP 21772-21824 Naked> Σ-4 →0x219f4
<POP 0x21772 LimitCheck 0x0 ≤ D0 ≤ 0x7> {[-4-]}
<MI 2177c LEA.L (A6-0x414),A0> {[-4-]}
<MI 2177e EXTB.W D1> {[-4-]}
<POP 0x21780 LimitCheck 0x0 ≤ D1 ≤ 0x9> {[-4-]}
<MI 21784 ASL.W #0x3,D1> {[-4-]}
<MI 21786 LEA.L 0x20dd8,A1> {[-4-]}
<MI 2178a CLR.L D2> {[-4-]}
<MI 2178c MOVE.B (A0+D0.L+#0x8),D2> {[-4-]}
<MI 21790 CLR.L D3> {[-4-]}
<MI 21792 MOVE.B (A1+D1.W+#0x5),D3> {[-4-]}
<MI 21796 OR.W D2,D3> {[-4-]}
<MI 21798 MOVE.B D3,(A0+D0.L+#0x8)> {[-4-]}
<MI 2179c LEA.L 0x20dd8,A1> {[-4-]}
<MI 217a0 CLR.L D2> {[-4-]}
<MI 217a2 MOVE.B (A0+D0.L+#0x10),D2> {[-4-]}
<MI 217a6 CLR.L D3> {[-4-]}
<MI 217a8 MOVE.B (A1+D1.W+#0x4),D3> {[-4-]}
<MI 217ac OR.W D2,D3> {[-4-]}
<MI 217ae MOVE.B D3,(A0+D0.L+#0x10)> {[-4-]}
<MI 217b2 LEA.L 0x20dd8,A1> {[-4-]}
<MI 217b6 CLR.L D2> {[-4-]}
<MI 217b8 MOVE.B (A0+D0.L+#0x28),D2> {[-4-]}
<MI 217bc CLR.L D3> {[-4-]}
<MI 217be MOVE.B (A1+D1.W+#0x6),D3> {[-4-]}
<MI 217c2 OR.W D2,D3> {[-4-]}
<MI 217c4 MOVE.B D3,(A0+D0.L+#0x28)> {[-4-]}
<POP 0x217c8 LimitCheck 0x0 ≤ D0 ≤ 0x7f> {[-4-]}
<MI 217d2 LEA.L (A0+D0.L),A0> {[-4-]}
<MI 217d6 LEA.L 0x20dd8,A1> {[-4-]}
<MI 217da MOVE.B (A1+D1.W+#0x3),(A0+0xd0)> {[-4-]}
<MI 217e0 LEA.L 0x20dd8,A1> {[-4-]}
<MI 217e4 MOVE.B (A1+D1.W+#0x3),(A0+0x2d0)> {[-4-]}
<MI 217ea LEA.L 0x20dd8,A1> {[-4-]}
<MI 217ee MOVE.B (A1+D1.W+#0x2),(A0+0x150)> {[-4-]}
<MI 217f4 LEA.L 0x20dd8,A1> {[-4-]}
<MI 217f8 MOVE.B (A1+D1.W+#0x2),(A0+0x350)> {[-4-]}
<MI 217fe LEA.L 0x20dd8,A1> {[-4-]}
<MI 21802 MOVE.W (A1+D1.W),D2> {[-4-]}
<MI 21806 ANDI.W #0x00ff,D2> {[-4-]}
<MI 2180a MOVE.B D2,(A0+0x1d0)> {[-4-]}
<MI 2180e LEA.L 0x20dd8,A1> {[-4-]}
<MI 21812 MOVE.W (A1+D1.W),D1> {[-4-]}
<MI 21816 LSR.W #0x8,D1> {[-4-]}
<MI 21818 ANDI.W #0x00ff,D1> {[-4-]}
<MI 2181c MOVE.B D1,(A0+0x250)> {[-4-]}
<MI 21820 BRA 0x219f4> {[-4-]}
<POP 21824-21852 Naked> Σ-4 Δ-38 ↓ →0x2186c ←0x21550
<Blob 0x21824 [38] @> Δ-38 {[-4-]|[«38""»]}
<POP 21830-21832 StackAdj> Δ-6 {[-4-]|[«38""»]|[-6-]}
<Lit 0x21832 38> {[-4-]|[«38""»]|[-2-]|[$$Does this drive support TAG 4/5 status]}
<POP 21840-21842 StackAdj> Δ-2 {[-4-]|[«38""»]|[-2-]|[$$Does this drive support TAG 4/5 status]|[-2-]}
<POP 21842-21843 StackAdj> Δ+2 {[-4-]|[«38""»]|[-2-]|[$$Does this drive support TAG 4/5 status]}
<Const 0x21843 0x1.2> Δ-2 {[-4-]|[«38""»]|[-2-]|[$$Does this drive support TAG 4/5 status]|[#1]}
<Call 0x21846 0x103f0> {[-4-]|[«38""»]|[-2-]|[$$Does this drive support TAG 4/5 status]|[#1]}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 2184c-2184e StackAdj> Δ+6 {[-4-]|[«38""»]|[-2-]}
<MI 2184e TST.B (A7)+> Δ+2 {[-4-]|[«38""»]}
<MI 21850 BEQ 0x2186c> {[-4-]|[«38""»]}
<POP 21852-2186c Naked> Σ-42 ↓
<POP 0x21852 LimitCheck 0x0 ≤ D0 ≤ 0x7> {[-42-]}
<MI 2185c LEA.L (A6-0x414),A0> {[-42-]}
<MI 2185e CLR.L D1> {[-42-]}
<MI 21860 MOVE.B (A0+D0.L+#0x10),D1> {[-42-]}
<MI 21864 ORI.W #0x0001,D1> {[-42-]}
<MI 21868 MOVE.B D1,(A0+D0.L+#0x10)> {[-42-]}
<POP 2186c-2189c Naked> Σ-42 Δ-8 ↓ →0x218b6 ←0x21824
<POP 2186c-21870 StackAdj> Δ+38 {[-4-]}
<Blob 0x21870 [46] @> Δ-46 {[-4-]|[«46""»]}
<POP 2187c-2187e StackAdj> Δ-6 {[-4-]|[«46""»]|[-6-]}
<Lit 0x2187e 46> {[-4-]|[«46""»]|[-2-]|[$$Does this drives transfer rate exceed 2 MB/Sec]}
<POP 2188c-2188e StackAdj> Δ-2 {[-4-]|[«46""»]|[-2-]|[$$Does this drives transfer rate exceed 2 MB/Sec]|[-2-]}
<MI 2188e CLR.B (A7)> {[-4-]|[«46""»]|[-2-]|[$$Does this drives transfer rate exceed 2 MB/Sec]|[-2-]}
<Call 0x21890 0x103f0> {[-4-]|[«46""»]|[-2-]|[$$Does this drives transfer rate exceed 2 MB/Sec]|[-2-]}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 21896-21898 StackAdj> Δ+6 {[-4-]|[«46""»]|[-2-]}
<MI 21898 TST.B (A7)+> Δ+2 {[-4-]|[«46""»]}
<MI 2189a BEQ 0x218b6> {[-4-]|[«46""»]}
<POP 2189c-218b6 Naked> Σ-50 ↓
<POP 0x2189c LimitCheck 0x0 ≤ D0 ≤ 0x7> {[-50-]}
<MI 218a6 LEA.L (A6-0x414),A0> {[-50-]}
<MI 218a8 CLR.L D1> {[-50-]}
<MI 218aa MOVE.B (A0+D0.L+#0x28),D1> {[-50-]}
<MI 218ae ORI.W #0x0080,D1> {[-50-]}
<MI 218b2 MOVE.B D1,(A0+D0.L+#0x28)> {[-50-]}
<POP 218b6-2192a Naked> Σ-50 Δ+46 ↓ ←0x2186c
<POP 218b6-218ba StackAdj> Δ+46 {[-4-]}
<Blob 0x218ba [46] @> Δ-46 {[-4-]|[«46""»]}
<POP 218c6-218c8 StackAdj> Δ-8 {[-4-]|[«46""»]|[-8-]}
<Lit 0x218c8 46> {[-4-]|[«46""»]|[-4-]|[$$Enter the number of cylinders on this drive :_]}
<Const 0x218d8 0x1.4> Δ-4 {[-4-]|[«46""»]|[-4-]|[$$Enter the number of cylinders on this drive :_]|[##1]}
<Const 0x218dc 0x4000.4> Δ-4 {[-4-]|[«46""»]|[-4-]|[$$Enter the number of cylinders on this drive :_]|[##1]|[##16384]}
<Call 0x218e0 0x103ec> {[-4-]|[«46""»]|[-4-]|[$$Enter the number of cylinders on this drive :_]|[##1]|[##16384]}
AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
<POP 218e6-218ea StackAdj> Δ+12 {[-4-]|[«46""»]|[-4-]}
<MI 218ea MOVE.L (A7)+,(A6-0xc)> Δ+4 {[-4-]|[«46""»]}
<POP 218ee-218f2 StackAdj> Δ+46 {[-4-]}
<Blob 0x218f2 [42] @> Δ-42 {[-4-]|[«42""»]}
<POP 218fe-21900 StackAdj> Δ-8 {[-4-]|[«42""»]|[-8-]}
<Lit 0x21900 42> {[-4-]|[«42""»]|[-4-]|[$$Enter the number of heads on this drive :_]}
<Const 0x21910 0x1.4> Δ-4 {[-4-]|[«42""»]|[-4-]|[$$Enter the number of heads on this drive :_]|[##1]}
<Const 0x21914 0xff.4> Δ-4 {[-4-]|[«42""»]|[-4-]|[$$Enter the number of heads on this drive :_]|[##1]|[##255]}
<Call 0x21918 0x103ec> {[-4-]|[«42""»]|[-4-]|[$$Enter the number of heads on this drive :_]|[##1]|[##255]}
AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
<POP 2191e-21922 StackAdj> Δ+12 {[-4-]|[«42""»]|[-4-]}
<MI 21922 MOVE.L (A7)+,(A6-0x8)> Δ+4 {[-4-]|[«42""»]}
<POP 21926-2192a StackAdj> Δ+42 {[-4-]}
<POP 2192a-2196a Naked> Σ-4 ↓ →0x2198e ←0x2198e
<Blob 0x2192a [54] @> Δ-54 {[-4-]|[«54""»]}
<POP 21936-21938 StackAdj> Δ-8 {[-4-]|[«54""»]|[-8-]}
<Lit 0x21938 54> {[-4-]|[«54""»]|[-4-]|[$$Enter the number of sectors per track on this drive :_]}
<Const 0x21948 0x1.4> Δ-4 {[-4-]|[«54""»]|[-4-]|[$$Enter the number of sectors per track on this drive :_]|[##1]}
<Const 0x2194c 0xff.4> Δ-4 {[-4-]|[«54""»]|[-4-]|[$$Enter the number of sectors per track on this drive :_]|[##1]|[##255]}
<Call 0x21950 0x103ec> {[-4-]|[«54""»]|[-4-]|[$$Enter the number of sectors per track on this drive :_]|[##1]|[##255]}
AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
<POP 21956-2195a StackAdj> Δ+12 {[-4-]|[«54""»]|[-4-]}
<MI 2195a MOVE.L (A7)+,D6> Δ+4 {[-4-]|[«54""»]}
<POP 2195c-21960 StackAdj> Δ+54 {[-4-]}
<MI 21960 MOVE.L D6,D0> {[-4-]}
<MI 21962 ANDI.L #0x00000001,D0> {[-4-]}
<MI 21968 BEQ 0x2198e> {[-4-]}
<POP 2196a-2198e Naked> Σ-4 ↓
<Blob 0x2196a [40] @> Δ-40 {[-4-]|[«40""»]}
<POP 21976-21978 StackAdj> Δ-4 {[-4-]|[«40""»]|[-4-]}
<Lit 0x21978 40> {[-4-]|[«40""»]|[$$Sectors per track must be an even number]}
<Call 0x21988 0x103e0> {[-4-]|[«40""»]|[$$Sectors per track must be an even number]}
WriteConsoleStringCrLf(str : String)
<POP 2198a-2198e StackAdj> Δ+44 {[-4-]}
<POP 2198e-21992 Naked> Σ-4 ↓ →0x2192a ←0x2192a
<MI 2198e TST.L D0> {[-4-]}
<MI 21990 BNE 0x2192a> {[-4-]}
<POP 21992-219f4 Naked> Σ-4 ↓
<MI 21992 MOVE.L (A7),D0> {[-4-]}
<POP 0x21994 LimitCheck 0x0 ≤ D0 ≤ 0x7f> {[-4-]}
<MI 2199e LEA.L (A6-0x414),A0> {[-4-]}
<MI 219a0 LEA.L (A0+D0.L),A0> {[-4-]}
<POP 0x219a4 LimitCheck 0x0 ≤ D6 ≤ 0xff> {[-4-]}
<MI 219ae MOVE.B D6,(A0+0xd0)> {[-4-]}
<MI 219b2 MOVE.B D6,(A0+0x2d0)> {[-4-]}
<MI 219b6 MOVE.L (A6-0x8),D0> {[-4-]}
<POP 0x219ba LimitCheck 0x0 ≤ D0 ≤ 0xff> {[-4-]}
<MI 219c4 MOVE.B D0,(A0+0x150)> {[-4-]}
<MI 219c8 MOVE.B D0,(A0+0x350)> {[-4-]}
<MI 219cc MOVE.L (A6-0xc),D0> {[-4-]}
<MI 219d0 ANDI.L #0x000000ff,D0> {[-4-]}
<MI 219d6 MOVE.B D0,(A0+0x1d0)> {[-4-]}
<MI 219da MOVE.L (A6-0xc),D4> {[-4-]}
<MI 219de MOVE.L #0x100,D3> {[-4-]}
<Call 0x219e4 0x10294> {[-4-]}
?divs_d3_d4
<MI 219ea ANDI.L #0x000000ff,D4> {[-4-]}
<MI 219f0 MOVE.B D4,(A0+0x250)> {[-4-]}
<POP 219f4-21a00 Naked> Σ-4 ↓ →0x21a06 ←0x21772
<MI 219f4 MOVE.L (A7),D0> {[-4-]}
<MI 219f6 ADDQ.L #0x1,D0> {[-4-]}
<MI 219f8 CMPI.L #0x00000003,D0> {[-4-]}
<MI 219fe BGT 0x21a06> {[-4-]}
<POP 21a00-21a06 Naked> Σ-4 Δ+4 →0x21550
<POP 21a00-21a02 StackAdj> Δ+4 {}
<MI 21a02 BRA 0x21550> {}
<POP 21a06-21a3c Naked> Σ-4 Δ-32 ↓ →0x21b5a ←0x219f4
<POP 21a06-21a07 StackAdj> Δ+4 ↓ {}
<Blob 0x21a07 [36] @> Δ-36 {[«36""»]}
<POP 21a18-21a1a StackAdj> Δ-6 {[«36""»]|[-6-]}
<Lit 0x21a1a 35> {[«36""»]|[-2-]|[$$Is EEPROM write enabled (SW-4 open)]}
<POP 21a28-21a2a StackAdj> Δ-2 {[«36""»]|[-2-]|[$$Is EEPROM write enabled (SW-4 open)]|[-2-]}
<POP 21a2a-21a2b StackAdj> Δ+2 {[«36""»]|[-2-]|[$$Is EEPROM write enabled (SW-4 open)]}
<Const 0x21a2b 0x1.2> Δ-2 {[«36""»]|[-2-]|[$$Is EEPROM write enabled (SW-4 open)]|[#1]}
<Call 0x21a2e 0x103f0> {[«36""»]|[-2-]|[$$Is EEPROM write enabled (SW-4 open)]|[#1]}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 21a34-21a36 StackAdj> Δ+6 {[«36""»]|[-2-]}
<MI 21a36 TST.B (A7)+> Δ+2 {[«36""»]}
<MI 21a38 BEQ 0x21b5a> {[«36""»]}
<POP 21a3c-21a76 Naked> Σ-36 ↓
<Blob 0x21a3c [18] @> Δ-18 {[-36-]|[«18""»]}
<POP 21a48-21a4a StackAdj> Δ-4 {[-36-]|[«18""»]|[-4-]}
<Lit 0x21a4a 18> {[-36-]|[«18""»]|[$$Writing EEPROM ...]}
<Call 0x21a5a 0x103e0> {[-36-]|[«18""»]|[$$Writing EEPROM ...]}
WriteConsoleStringCrLf(str : String)
<POP 21a5c-21a60 StackAdj> Δ+22 {[-36-]}
<MI 21a60 LEA.L (A6-0x814),A0> {[-36-]}
<MI 21a64 LEA.L (A6-0x414),A1> {[-36-]}
<BlockMove 1024,A1,A0> {[-36-]}
<MI 21a70 MOVE.W #0xff,D5> {[-36-]}
<MI 21a74 MOVEQ.L #0x01,D7> {[-36-]}
<POP 21a76-21ab2 Naked> Σ-36 ↓ →0x21a76 ←0x21a76
<POP 21a76-21a78 StackAdj> Δ-4 {[-40-]}
<MI 21a78 MOVE.W D5,D0> {[-40-]}
<MI 21a7a EXTW.L D0> {[-40-]}
<MI 21a7c MOVE.L D0,-(A7)> Δ-4 {[-40-]|[4, 'D0']}
<POP 0x21a7e LimitCheck 0x0 ≤ D7 ≤ 0x3ff> {[-40-]|[4, 'D0']}
<MI 21a88 LEA.L (A6-0x824),A0> {[-40-]|[4, 'D0']}
<MI 21a8c CLR.L D0> {[-40-]|[4, 'D0']}
<MI 21a8e MOVE.B (A0+D7.L+#0x10),D0> {[-40-]|[4, 'D0']}
<MI 21a92 MOVE.L D0,-(A7)> Δ-4 {[-40-]|[4, 'D0']|[4, 'D0']}
<Call 0x21a94 0x2111a> {[-40-]|[4, 'D0']|[4, 'D0']}
<POP 21a98-21a9a StackAdj> Δ+8 {[-40-]}
<MI 21a9a MOVE.L (A7)+,D0> Δ+4 {[-36-]}
<POP 0x21a9c LimitCheck 0x0 ≤ D0 ≤ 0xff> {[-36-]}
<MI 21aa6 MOVE.W D0,D5> {[-36-]}
<MI 21aa8 ADDQ.L #0x1,D7> {[-36-]}
<MI 21aaa CMPI.L #0x000003ff,D7> {[-36-]}
<MI 21ab0 BLE 0x21a76> {[-36-]}
<POP 21ab2-21ac0 Naked> Σ-36 ↓
<POP 0x21ab2 LimitCheck 0x0 ≤ D5 ≤ 0xff> {[-36-]}
<MI 21ab6 MOVE.B D5,(A6-0x814)> {[-36-]}
<MI 21aba MOVE.L #0x3ff,D7> {[-36-]}
<POP 21ac0-21af6 Naked> Σ-36 ↓ →0x21afc ←0x21af6
<POP 0x21ac0 LimitCheck 0x0 ≤ D7 ≤ 0xffff> {[-36-]}
<MI 21aca MOVE.W D7,-(A7)> Δ-2 {[-36-]|[2, 'D7']}
<POP 0x21acc LimitCheck 0x0 ≤ D7 ≤ 0x3ff> {[-36-]|[2, 'D7']}
<MI 21ad6 LEA.L (A6-0x824),A0> {[-36-]|[2, 'D7']}
<MI 21ada CLR.L D0> {[-36-]|[2, 'D7']}
<MI 21adc MOVE.B (A0+D7.L+#0x10),D0> {[-36-]|[2, 'D7']}
<MI 21ae0 MOVE.W D0,-(A7)> Δ-2 {[-36-]|[2, 'D7']|[2, 'D0']}
<Pointer.fp 0x21ae2 <LVAR -0x012 @ 1(r)>> Δ-4 {[-36-]|[2, 'D7']|[2, 'D0']|[@@-18]}
<Call 0x21ae6 0x2121c> {[-36-]|[2, 'D7']|[2, 'D0']|[@@-18]}
<POP 21aea-21aec StackAdj> Δ+8 {[-36-]}
<MI 21aec SUBQ.L #0x1,D7> {[-36-]}
<MI 21aee CMPI.L #0xffffffff,D7> {[-36-]}
<MI 21af4 BEQ 0x21afc> {[-36-]}
<POP 21af6-21afc Naked> Σ-36 ↓ →0x21ac0
<MI 21af6 TST.B (A6-0x12)> {[-36-]}
<MI 21afa BNE 0x21ac0> {[-36-]}
<POP 21afc-21b02 Naked> Σ-36 ↓ →0x21b5a ←0x21ac0
<MI 21afc TST.B (A6-0x12)> {[-36-]}
<MI 21b00 BEQ 0x21b5a> {[-36-]}
<POP 21b02-21b5a Naked> Σ-36 ↓
<Blob 0x21b02 [12] @> Δ-12 {[-36-]|[«12""»]}
<POP 21b14-21b16 StackAdj> Δ-4 {[-36-]|[«12""»]|[-4-]}
<Lit 0x21b16 11> {[-36-]|[«12""»]|[$$Write done!]}
<Call 0x21b26 0x103e0> {[-36-]|[«12""»]|[$$Write done!]}
WriteConsoleStringCrLf(str : String)
<POP 21b28-21b2c StackAdj> Δ+16 {[-36-]}
<Call 0x21b2c 0x213bc> {[-36-]}
<Blob 0x21b30 [28] @> Δ-28 {[-36-]|[«28""»]}
<POP 21b42-21b44 StackAdj> Δ-4 {[-36-]|[«28""»]|[-4-]}
<Lit 0x21b44 27> {[-36-]|[«28""»]|[$$Please write protect EEPROM]}
<Call 0x21b54 0x103e0> {[-36-]|[«28""»]|[$$Please write protect EEPROM]}
WriteConsoleStringCrLf(str : String)
<POP 21b56-21b5a StackAdj> Δ+32 {[-36-]}
<POP 21b5a-21b5e Naked> Σ-36 Δ+36 ↓ ←0x21a06 ←0x21afc
<POP 21b5a-21b5e StackAdj> Δ+36 {}
<POP 21b5e-21b66 Epilogue> Σ0
@ 21b66
<LVAR -0x006 4(rw)>
<LVAR -0x00a 4(rw)>
<LVAR -0x00e 4(rw)>
<LVAR -0x014 @ 1(rw)>
<LVAR -0x414 @>
<LVAR -0x814 @>
<LVAR -0x81a @ 2(r)>
<LVAR -0x81c @>
<POP 21b66-21dcc Body>
<POP 21b66-21b7c Prologue> Σ0 ↓
<POP 21b7c-21b92 RegCacheLoad> Σ0 ↓
<POP 21b92-21b94 Naked> Σ0 ↓
<MI 21b92 MOVEQ.L #0x00,D6> {}
<POP 21b94-21bd2 Naked> Σ0 ↓ →0x21bd6 ←0x21bd2
<POP 0x21b94 LimitCheck 0x0 ≤ D6 ≤ 0xffff> {}
<MI 21b9e MOVE.W D6,-(A7)> Δ-2 {[2, 'D6']}
<Pointer.fp 0x21ba0 <LVAR -0x81a @ 2(r)>> Δ-4 {[2, 'D6']|[@@-2074]}
<Pointer.fp 0x21ba4 <LVAR -0x014 @ 1(rw)>> Δ-4 {[2, 'D6']|[@@-2074]|[@@-20]}
<Call 0x21ba6 0x21150> {[2, 'D6']|[@@-2074]|[@@-20]}
<POP 21baa-21bae StackAdj> Δ+10 {}
<POP 0x21bae LimitCheck 0x0 ≤ D6 ≤ 0x3ff> {}
<MI 21bb8 LEA.L (A6-0x81c),A0> {}
<MI 21bbc MOVE.W (A6-0x81a),D0> {}
<POP 0x21bc0 LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 21bc4 MOVE.B D0,(A0+D6.L+#0x8)> {}
<MI 21bc8 ADDQ.L #0x1,D6> {}
<MI 21bca CMPI.L #0x00000400,D6> {}
<MI 21bd0 BEQ 0x21bd6> {}
<POP 21bd2-21bd6 Naked> Σ0 ↓ →0x21b94
<MI 21bd2 TST.B (A6-0x14)> {}
<MI 21bd4 BNE 0x21b94> {}
<POP 21bd6-21bda Naked> Σ0 ↓ →0x21be8 ←0x21b94
<MI 21bd6 TST.B (A6-0x14)> {}
<MI 21bd8 BNE 0x21be8> {}
<POP 21bda-21be8 Naked> Σ0 ↓
<MI 21bda CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x21bdc 0x1.4> Δ-4 {[#0]|[##1]}
<Call 0x21be0 0x103b8> {[#0]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 21be6-21be8 StackAdj> Δ+6 {}
<POP 21be8-21bfc Naked> Σ0 ↓ ←0x21bd6
<MI 21be8 LEA.L (A6-0x414),A0> {}
<MI 21bec LEA.L (A6-0x814),A1> {}
<BlockMove 1024,A1,A0> {}
<MI 21bfa MOVEQ.L #0x00,D5> {}
<POP 21bfc-21c3c Naked> Σ0 ↓ ←0x21db8
<POP 0x21bfc LimitCheck 0x0 ≤ D5 ≤ 0x7f> {}
<MI 21c06 LEA.L (A6-0x414),A0> {}
<MI 21c0a LEA.L (A0+D5.L),A0> {}
<MI 21c0e CLR.L D0> {}
<MI 21c10 MOVE.B (A0+0x250),D0> {}
<MI 21c14 ASL.W #0x8,D0> {}
<MI 21c16 CLR.L D1> {}
<MI 21c18 MOVE.B (A0+0x1d0),D1> {}
<MI 21c1c ADD.W D0,D1> {}
<MI 21c1e EXTW.L D1> {}
<MI 21c20 MOVE.L D1,(A6-0xe)> {}
<MI 21c24 CLR.L D0> {}
<MI 21c26 MOVE.B (A0+0x350),D0> {}
<MI 21c2a MOVE.L D0,(A6-0xa)> {}
<MI 21c2e CLR.L D0> {}
<MI 21c30 MOVE.B (A0+0x2d0),D0> {}
<MI 21c34 MOVE.L D0,(A6-0x6)> {}
<MI 21c38 CLR.B (A6-0x14)> {}
<MI 21c3a MOVEQ.L #0x01,D7> {}
<POP 21c3c-21c54 Naked> Σ0 ↓ →0x21cde ←0x21cde
<MI 21c3c MOVE.B D7,D0> {}
<MI 21c3e EXTB.W D0> {}
<MI 21c40 ASL.W #0x3,D0> {}
<MI 21c42 LEA.L 0x20dd8,A0> {}
<MI 21c46 CLR.L D1> {}
<MI 21c48 MOVE.W (A0+D0.W),D1> {}
<MI 21c4c CMP.L (A6-0xe),D1> {}
<MI 21c50 BNE 0x21cde> {}
<POP 21c54-21c64 Naked> Σ0 ↓ →0x21cde
<MI 21c54 LEA.L 0x20dd8,A0> {}
<MI 21c58 CLR.L D1> {}
<MI 21c5a MOVE.B (A0+D0.W+#0x2),D1> {}
<MI 21c5e CMP.L (A6-0xa),D1> {}
<MI 21c62 BNE 0x21cde> {}
<POP 21c64-21c74 Naked> Σ0 ↓ →0x21cde
<MI 21c64 LEA.L 0x20dd8,A0> {}
<MI 21c68 CLR.L D1> {}
<MI 21c6a MOVE.B (A0+D0.W+#0x3),D1> {}
<MI 21c6e CMP.L (A6-0x6),D1> {}
<MI 21c72 BNE 0x21cde> {}
<POP 21c74-21cde Naked> Σ0 ↓
<Blob 0x21c74 [2] @> Δ-2 {[«2""»]}
<Blob 0x21c78 [2] @> Δ-2 {[«2""»]|[«2""»]}
<Blob 0x21c7c [2] @> Δ-2 {[«2""»]|[«2""»]|[«2""»]}
<Blob 0x21c80 [4] @> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[«4""»]}
<MI 21c84 MOVE.B D7,D0> {[«2""»]|[«2""»]|[«2""»]|[«4""»]}
<MI 21c86 EXTB.W D0> {[«2""»]|[«2""»]|[«2""»]|[«4""»]}
<MI 21c88 MULS.W #0x28,D0> {[«2""»]|[«2""»]|[«2""»]|[«4""»]}
<MI 21c8a LEA.L 0x20e28,A0> {[«2""»]|[«2""»]|[«2""»]|[«4""»]}
<Blob 0x21c8e [40] (A0+D0.W)> Δ-40 {[«2""»]|[«2""»]|[«2""»]|[«4""»]|[«40»]}
<POP 21c9e-21ca0 StackAdj> Δ-8 {[«2""»]|[«2""»]|[«2""»]|[«4""»]|[«40»]|[-8-]}
<Lit 0x21ca0 6> {[«2""»]|[«2""»]|[«2""»]|[«4""»]|[«40»]|[-4-]|[$$Drive_]}
<MI 21cac MOVE.L D5,(A7)> {[«2""»]|[«2""»]|[«2""»]|[«4""»]|[«40»]|[-4-]|[4, 'D5']}
<POP 21caa-21cac StackAdj> Δ-8 {[«2""»]|[«2""»]|[«2""»]|[«4""»]|[«40»]|[-4-]|[4, 'D5']|[-8-]}
<Call 0x21cae 0x102e4> {[«2""»]|[«2""»]|[«2""»]|[«4""»]|[«40»]|[-4-]|[4, 'D5']|[-8-]}
Long2String(a : Long) : String
<Lit 0x21cb0 4> {[«2""»]|[«2""»]|[«2""»]|[«4""»]|[«40»]|[-4-]|[4, 'D5']|[-4-]|[$$ =>_]}
<POP 21cbc-21cbe StackAdj> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[«4""»]|[«40»]|[-4-]|[4, 'D5']|[-4-]|[$$ =>_]|[-4-]}
<Lit 0x21cbe> {[«2""»]|[«2""»]|[«2""»]|[«4""»]|[«40»]|[-4-]|[4, 'D5']|[-4-]|[$$ =>_]|[$$…]}
<Pointer.sp 0x21cbe 20> Δ-4
<Const 0x21cc2 0x1.2> Δ-2
<Const 0x21cc4 0x28.2> Δ-2
<Call 0x21cc6 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 21cc8-21cca StackAdj> Δ+8
<Call 0x21cca 0x102d8> {[«2""»]|[«2""»]|[«2""»]|[«4""»]|[«40»]|[-4-]|[4, 'D5']|[-4-]|[$$ =>_]|[$$…]}
StringCat4(a, b, c, d : String) : String
<POP 21cd0-21cd2 StackAdj> Δ+16 {[«2""»]|[«2""»]|[«2""»]|[«4""»]|[«40»]|[-4-]}
<Call 0x21cd2 0x103e0> {[«2""»]|[«2""»]|[«2""»]|[«4""»]|[«40»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 21cd8-21cdc StackAdj> Δ+54 {}
<MI 21cdc MOVE.B #0x01,(A6-0x14)> {}
<POP 21cde-21ce8 Naked> Σ0 ↓ →0x21c3c ←0x21c3c ←0x21c54 ←0x21c64
<MI 21cde ADDQ.B #0x1,D7> {}
<MI 21ce0 CMPI.B #0x09,D7> {}
<MI 21ce4 BLE 0x21c3c> {}
<POP 21ce8-21cee Naked> Σ0 ↓ →0x21db8
<MI 21ce8 TST.B (A6-0x14)> {}
<MI 21cea BNE 0x21db8> {}
<POP 21cee-21db8 Naked> Σ0 ↓
<Blob 0x21cee [2] @> Δ-2 {[«2""»]}
<Blob 0x21cf2 [2] @> Δ-2 {[«2""»]|[«2""»]}
<Blob 0x21cf6 [2] @> Δ-2 {[«2""»]|[«2""»]|[«2""»]}
<POP 21cfa-21cfc StackAdj> Δ-8 {[«2""»]|[«2""»]|[«2""»]|[-8-]}
<Lit 0x21cfc 6> {[«2""»]|[«2""»]|[«2""»]|[-4-]|[$$Drive_]}
<MI 21d08 MOVE.L D5,(A7)> {[«2""»]|[«2""»]|[«2""»]|[-4-]|[4, 'D5']}
<POP 21d06-21d08 StackAdj> Δ-8 {[«2""»]|[«2""»]|[«2""»]|[-4-]|[4, 'D5']|[-8-]}
<Call 0x21d0a 0x102e4> {[«2""»]|[«2""»]|[«2""»]|[-4-]|[4, 'D5']|[-8-]}
Long2String(a : Long) : String
<POP 21d0c-21d0e StackAdj> Δ+4 {[«2""»]|[«2""»]|[«2""»]|[-4-]|[4, 'D5']|[-4-]}
<Call 0x21d0e 0x102d0> {[«2""»]|[«2""»]|[«2""»]|[-4-]|[4, 'D5']|[-4-]}
StringCat2(a, b : String) : String
<POP 21d14-21d16 StackAdj> Δ+8 {[«2""»]|[«2""»]|[«2""»]|[-4-]}
<Call 0x21d16 0x103e0> {[«2""»]|[«2""»]|[«2""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 21d1c-21d1e StackAdj> Δ+6 {[«2""»]|[«2""»]}
<POP 21d1e-21d1f StackAdj> Δ+4 {}
<Blob 0x21d1f [4] @> Δ-4 {[«4""»]}
<Blob 0x21d22 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x21d26 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x21d2a [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 21d2e-21d30 StackAdj> Δ-8 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-8-]}
<Lit 0x21d30 16> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$ Cylinders =>_]}
<MI 21d3a MOVE.L (A6-0xe),(A7)> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6-0xe)']}
<POP 21d38-21d3a StackAdj> Δ-8 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6-0xe)']|[-8-]}
<Call 0x21d3e 0x102e4> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6-0xe)']|[-8-]}
Long2String(a : Long) : String
<POP 21d40-21d42 StackAdj> Δ+4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6-0xe)']|[-4-]}
<Call 0x21d42 0x102d0> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6-0xe)']|[-4-]}
StringCat2(a, b : String) : String
<POP 21d48-21d4a StackAdj> Δ+8 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Call 0x21d4a 0x103e0> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 21d50-21d52 StackAdj> Δ+16 {[«4""»]}
<POP 21d52-21d53 StackAdj> Δ+4 {}
<Blob 0x21d53 [4] @> Δ-4 {[«4""»]}
<Blob 0x21d56 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x21d5a [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<POP 21d5e-21d60 StackAdj> Δ-8 {[«4""»]|[«4""»]|[«4""»]|[-8-]}
<Lit 0x21d60 12> {[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$ Heads =>_]}
<MI 21d6c MOVE.L (A6-0xa),(A7)> {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6-0xa)']}
<POP 21d6a-21d6c StackAdj> Δ-8 {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6-0xa)']|[-8-]}
<Call 0x21d70 0x102e4> {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6-0xa)']|[-8-]}
Long2String(a : Long) : String
<POP 21d72-21d74 StackAdj> Δ+4 {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6-0xa)']|[-4-]}
<Call 0x21d74 0x102d0> {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6-0xa)']|[-4-]}
StringCat2(a, b : String) : String
<POP 21d7a-21d7c StackAdj> Δ+8 {[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Call 0x21d7c 0x103e0> {[«4""»]|[«4""»]|[«4""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 21d82-21d84 StackAdj> Δ+16 {}
<Blob 0x21d84 [14] @> Δ-14 {[«14""»]}
<POP 21d90-21d92 StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x21d92 14> {[«14""»]|[-4-]|[$$ SECTORS =>_]}
<MI 21d9e MOVE.L (A6-0x6),(A7)> {[«14""»]|[-4-]|[4, '(A6-0x6)']}
<POP 21d9c-21d9e StackAdj> Δ-8 {[«14""»]|[-4-]|[4, '(A6-0x6)']|[-8-]}
<Call 0x21da2 0x102e4> {[«14""»]|[-4-]|[4, '(A6-0x6)']|[-8-]}
Long2String(a : Long) : String
<POP 21da4-21da6 StackAdj> Δ+4 {[«14""»]|[-4-]|[4, '(A6-0x6)']|[-4-]}
<Call 0x21da6 0x102d0> {[«14""»]|[-4-]|[4, '(A6-0x6)']|[-4-]}
StringCat2(a, b : String) : String
<POP 21dac-21dae StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x21dae 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 21db4-21db8 StackAdj> Δ+18 {}
<POP 21db8-21dc4 Naked> Σ0 ↓ →0x21bfc ←0x21ce8
<MI 21db8 ADDQ.L #0x1,D5> {}
<MI 21dba CMPI.L #0x00000003,D5> {}
<MI 21dc0 BLE 0x21bfc> {}
<POP 21dc4-21dcc Epilogue> Σ0
@ 21dcc
<LVAR -0x002 @ 2(r)>
<LVAR -0x004 @ 1(r)>
<POP 21dcc-21e68 Body>
<POP 21dcc-21de2 Prologue> Σ0 ↓
<POP 21de2-21de4 RegCacheLoad> Σ0 ↓
<POP 21de4-21e42 Naked> Σ0 ↓ →0x21e60
<Blob 0x21de4 [30] @> Δ-30 {[«30""»]}
<POP 21df4-21df6 StackAdj> Δ-8 {[«30""»]|[-8-]}
<Lit 0x21df6 29> {[«30""»]|[-4-]|[$$Location to read (decimal) :_]}
<Const 0x21e0a 0x0.4> Δ-4 {[«30""»]|[-4-]|[$$Location to read (decimal) :_]|[##0]}
<Const 0x21e0e 0x3ff.4> Δ-4 {[«30""»]|[-4-]|[$$Location to read (decimal) :_]|[##0]|[##1023]}
<Call 0x21e12 0x103ec> {[«30""»]|[-4-]|[$$Location to read (decimal) :_]|[##0]|[##1023]}
AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
<POP 21e18-21e1c StackAdj> Δ+12 {[«30""»]|[-4-]}
<MI 21e1c MOVE.L (A7)+,D7> Δ+4 {[«30""»]}
<POP 21e1e-21e20 StackAdj> Δ+30 {}
<POP 0x21e20 LimitCheck 0x0 ≤ D7 ≤ 0xffff> {}
<MI 21e2a MOVE.W D7,-(A7)> Δ-2 {[2, 'D7']}
<Pointer.fp 0x21e2c <LVAR -0x002 @ 2(r)>> Δ-4 {[2, 'D7']|[@@-2]}
<Pointer.fp 0x21e30 <LVAR -0x004 @ 1(r)>> Δ-4 {[2, 'D7']|[@@-2]|[@@-4]}
<Call 0x21e34 0x21150> {[2, 'D7']|[@@-2]|[@@-4]}
<POP 21e38-21e3c StackAdj> Δ+10 {}
<MI 21e3c TST.B (A6-0x4)> {}
<MI 21e40 BEQ 0x21e60> {}
<POP 21e42-21e60 Naked> Σ0 ↓
<POP 21e42-21e44 StackAdj> Δ-4 {[-4-]}
<MI 21e44 CLR.L D0> {[-4-]}
<MI 21e46 MOVE.W (A6-0x2),D0> {[-4-]}
<MI 21e4a MOVE.L D0,-(A7)> Δ-4 {[-4-]|[4, 'D0']}
<Const 0x21e4c 0x2.4> Δ-4 {[-4-]|[4, 'D0']|[##2]}
<Call 0x21e50 0x102e8> {[-4-]|[4, 'D0']|[##2]}
Long2HexString(val : Long; ndig : Long) : String
<POP 21e56-21e58 StackAdj> Δ+8 {[-4-]}
<Call 0x21e58 0x103e0> {[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 21e5e-21e60 StackAdj> Δ+4 {}
<POP 21e60-21e68 Epilogue> Σ0 ←0x21de4
@ 21e68
<LVAR -0x006 @ 2(rw)>
<LVAR -0x00a @ 2(r)>
<LVAR -0x00e 4(rw)>
<LVAR -0x012 4(rw)>
<LVAR -0x014 @ 1(r)>
<POP 21e68-22094 Body>
<POP 21e68-21e7e Prologue> Σ0 ↓
<POP 21e7e-21e90 RegCacheLoad> Σ0 ↓
<POP 21e90-21ef2 Naked> Σ0 ↓ →0x2208c
<MI 21e90 CLR.W -(A7)> Δ-2 {[#0]}
<Pointer.fp 0x21e92 <LVAR -0x006 @ 2(rw)>> Δ-4 {[#0]|[@@-6]}
<Pointer.fp 0x21e94 <LVAR -0x014 @ 1(r)>> Δ-4 {[#0]|[@@-6]|[@@-20]}
<Call 0x21e96 0x21150> {[#0]|[@@-6]|[@@-20]}
<POP 21e9a-21e9b StackAdj> Δ+10 ↓ {}
<Blob 0x21e9b [32] @> Δ-32 {[«32""»]}
<POP 21eaa-21eac StackAdj> Δ-8 {[«32""»]|[-8-]}
<Lit 0x21eac 31> {[«32""»]|[-4-]|[$$Location to Modify (decimal) :_]}
<Const 0x21ebe 0x0.4> Δ-4 {[«32""»]|[-4-]|[$$Location to Modify (decimal) :_]|[##0]}
<Const 0x21ec2 0x3ff.4> Δ-4 {[«32""»]|[-4-]|[$$Location to Modify (decimal) :_]|[##0]|[##1023]}
<Call 0x21ec6 0x103ec> {[«32""»]|[-4-]|[$$Location to Modify (decimal) :_]|[##0]|[##1023]}
AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
<POP 21ecc-21ed0 StackAdj> Δ+12 {[«32""»]|[-4-]}
<MI 21ed0 MOVE.L (A7)+,D5> Δ+4 {[«32""»]}
<POP 21ed2-21ed6 StackAdj> Δ+32 {}
<POP 0x21ed6 LimitCheck 0x0 ≤ D5 ≤ 0xffff> {}
<MI 21edc MOVE.W D5,-(A7)> Δ-2 {[2, 'D5']}
<Pointer.fp 0x21ede <LVAR -0x00a @ 2(r)>> Δ-4 {[2, 'D5']|[@@-10]}
<Pointer.fp 0x21ee2 <LVAR -0x014 @ 1(r)>> Δ-4 {[2, 'D5']|[@@-10]|[@@-20]}
<Call 0x21ee4 0x21150> {[2, 'D5']|[@@-10]|[@@-20]}
<POP 21ee8-21eec StackAdj> Δ+10 {}
<MI 21eec TST.B (A6-0x14)> {}
<MI 21eee BEQ 0x2208c> {}
<POP 21ef2-21f36 Naked> Σ0 ↓
<Blob 0x21ef2 [22] @> Δ-22 {[«22""»]}
<POP 21efe-21f00 StackAdj> Δ-8 {[«22""»]|[-8-]}
<Lit 0x21f00 22> {[«22""»]|[-4-]|[$$Current value (hex) :_]}
<POP 21f0e-21f10 StackAdj> Δ-4 {[«22""»]|[-4-]|[$$Current value (hex) :_]|[-4-]}
<MI 21f10 CLR.L D0> {[«22""»]|[-4-]|[$$Current value (hex) :_]|[-4-]}
<MI 21f12 MOVE.W (A6-0xa),D0> {[«22""»]|[-4-]|[$$Current value (hex) :_]|[-4-]}
<MI 21f16 MOVE.L D0,-(A7)> Δ-4 {[«22""»]|[-4-]|[$$Current value (hex) :_]|[-4-]|[4, 'D0']}
<Const 0x21f18 0x2.4> Δ-4 {[«22""»]|[-4-]|[$$Current value (hex) :_]|[-4-]|[4, 'D0']|[##2]}
<Call 0x21f1c 0x102e8> {[«22""»]|[-4-]|[$$Current value (hex) :_]|[-4-]|[4, 'D0']|[##2]}
Long2HexString(val : Long; ndig : Long) : String
<POP 21f22-21f24 StackAdj> Δ+8 {[«22""»]|[-4-]|[$$Current value (hex) :_]|[-4-]}
<Call 0x21f24 0x102d0> {[«22""»]|[-4-]|[$$Current value (hex) :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 21f2a-21f2c StackAdj> Δ+8 {[«22""»]|[-4-]}
<Call 0x21f2c 0x103e0> {[«22""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 21f32-21f36 StackAdj> Δ+26 {}
<POP 21f36-21fde Naked> Σ0 ↓ →0x2200a ←0x22026
<MI 21f36 CLR.B 0x22562> {}
<Blob 0x21f3c [18] @> Δ-18 {[«18""»]}
<POP 21f48-21f4a StackAdj> Δ-8 {[«18""»]|[-8-]}
<Lit 0x21f4a 18> {[«18""»]|[-4-]|[$$New value (hex) :_]}
<Call 0x21f5c 0x103e4> {[«18""»]|[-4-]|[$$New value (hex) :_]}
AskConsoleString(prompt : String) : String
<POP 21f62-21f64 StackAdj> Δ+4 {[«18""»]|[-4-]}
<MI 21f64 MOVEA.L (A7)+,A4> Δ+4 {[«18""»]}
<POP 21f66-21f68 StackAdj> Δ+6 {[-12-]}
<MI 21f68 MOVE.L A4,(A7)> {[-8-]|[4, 'A4']}
<Const 0x21f6a 0x10.4> Δ-4 {[-8-]|[4, 'A4']|[##16]}
<Call 0x21f6e 0x10360> {[-8-]|[4, 'A4']|[##16]}
?StringToInt64()
<POP 21f74-21f76 StackAdj> Δ+8 {[-8-]}
<MI 21f76 MOVE.L (A7)+,(A6-0x12)> Δ+4 {[-4-]}
<MI 21f7a MOVE.L (A7),(A6-0xe)> {[-4-]}
<POP 21f7e-21f80 StackAdj> Δ+2 {[-2-]}
<MI 21f80 MOVE.L (A6-0xe),-(A7)> Δ-4 {[-2-]|[4, '(A6-0xe)']}
<MI 21f84 MOVE.L (A6-0x12),-(A7)> Δ-4 {[-2-]|[4, '(A6-0xe)']|[4, '(A6-0x12)']}
<POP 21f88-21f8a StackAdj> Δ-8 {[-2-]|[4, '(A6-0xe)']|[4, '(A6-0x12)']|[-8-]}
<Const 0x21f8a 0xff.4> Δ-4 {[-2-]|[4, '(A6-0xe)']|[4, '(A6-0x12)']|[-8-]|[##255]}
<Call 0x21f8e 0x10354> {[-2-]|[4, '(A6-0xe)']|[4, '(A6-0x12)']|[-8-]|[##255]}
Long2Quad(a : Long) : Quad
<POP 21f94-21f96 StackAdj> Δ+4 {[-2-]|[4, '(A6-0xe)']|[4, '(A6-0x12)']|[-8-]}
<Call 0x21f96 0x10324> {[-2-]|[4, '(A6-0xe)']|[4, '(A6-0x12)']|[-8-]}
IsGreater(a, b : Quad) : Bool
<POP 21f9c-21fa0 StackAdj> Δ+10 {[-2-]|[4, '(A6-0xe)']|[-2-]}
<MI 21fa0 MOVE.L (A6-0xe),(A7)> {[-2-]|[-2-]|[4, '(A6-0xe)']}
<MI 21fa4 MOVE.L (A6-0x12),-(A7)> Δ-4 {[-2-]|[-2-]|[4, '(A6-0xe)']|[4, '(A6-0x12)']}
<POP 21fa8-21faa StackAdj> Δ-8 {[-2-]|[-2-]|[4, '(A6-0xe)']|[4, '(A6-0x12)']|[-8-]}
<Const 0x21faa 0x0.4> Δ-4 {[-2-]|[-2-]|[4, '(A6-0xe)']|[4, '(A6-0x12)']|[-8-]|[##0]}
<Call 0x21fae 0x10354> {[-2-]|[-2-]|[4, '(A6-0xe)']|[4, '(A6-0x12)']|[-8-]|[##0]}
Long2Quad(a : Long) : Quad
<POP 21fb4-21fb6 StackAdj> Δ+4 {[-2-]|[-2-]|[4, '(A6-0xe)']|[4, '(A6-0x12)']|[-8-]}
<Call 0x21fb6 0x10328> {[-2-]|[-2-]|[4, '(A6-0xe)']|[4, '(A6-0x12)']|[-8-]}
IsSmaller(a, b : Quad) : Bool
<POP 21fbc-21fc0 StackAdj> Δ+16 {[-2-]|[-2-]}
<MI 21fc0 MOVE.B (A7+0x2),D0> {[-2-]|[-2-]}
<MI 21fc4 OR.B (A7)+,D0> Δ+2 {[-2-]}
<POP 21fc6-21fc8 StackAdj> Δ+2 {}
<MI 21fc8 EXTB.W D0> {}
<POP 0x21fca LimitCheck 0x0 ≤ D0 ≤ 0x1> {}
<MI 21fcc MOVE.B D0,D7> {}
<MI 21fce MOVE.B D7,D0> {}
<MI 21fd0 OR.B 0x22562,D0> {}
<MI 21fd6 EXTB.W D0> {}
<POP 0x21fd8 LimitCheck 0x0 ≤ D0 ≤ 0x1> {}
<MI 21fda MOVE.B D0,D7> {}
<MI 21fdc BEQ 0x2200a> {}
<POP 21fde-2200a Naked> Σ0 →0x22026
<Blob 0x21fde [30] @> Δ-30 {[«30""»]}
<POP 21fea-21fec StackAdj> Δ-4 {[«30""»]|[-4-]}
<Lit 0x21fec 30> {[«30""»]|[$$Value invalid or out of range.]}
<Call 0x21ffe 0x103e0> {[«30""»]|[$$Value invalid or out of range.]}
WriteConsoleStringCrLf(str : String)
<POP 22004-22008 StackAdj> Δ+34 {}
<MI 22008 BRA 0x22026> {}
<POP 2200a-22026 Naked> Σ0 ↓ ←0x21f36
<POP 2200a-2200c StackAdj> Δ-4 {[-4-]}
<MI 2200c MOVE.L (A6-0xe),-(A7)> Δ-4 {[-4-]|[4, '(A6-0xe)']}
<MI 22010 MOVE.L (A6-0x12),-(A7)> Δ-4 {[-4-]|[4, '(A6-0xe)']|[4, '(A6-0x12)']}
<Call 0x22014 0x10350> {[-4-]|[4, '(A6-0xe)']|[4, '(A6-0x12)']}
Quad2Long(a : Quad) : Long
<POP 2201a-2201c StackAdj> Δ+8 {[-4-]}
<MI 2201c MOVE.L (A7)+,D0> Δ+4 {}
<POP 0x2201e LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 22024 MOVE.W D0,D6> {}
<POP 22026-2202c Naked> Σ0 ↓ →0x21f36 ←0x21fde
<MI 22026 TST.B D7> {}
<MI 22028 BNE 0x21f36> {}
<POP 2202c-22042 Naked> Σ0 ↓ →0x2208c
<POP 0x2202c LimitCheck 0x0 ≤ D5 ≤ 0xffff> {}
<MI 22032 MOVE.W D5,-(A7)> Δ-2 {[2, 'D5']}
<MI 22034 MOVE.W D6,-(A7)> Δ-2 {[2, 'D5']|[2, 'D6']}
<Pointer.fp 0x22036 <LVAR -0x014 @ 1(r)>> Δ-4 {[2, 'D5']|[2, 'D6']|[@@-20]}
<Call 0x22038 0x2121c> {[2, 'D5']|[2, 'D6']|[@@-20]}
<POP 2203c-2203e StackAdj> Δ+8 {}
<MI 2203e TST.L D5> {}
<MI 22040 BEQ 0x2208c> {}
<POP 22042-2208c Naked> Σ0 ↓
<POP 22042-22044 StackAdj> Δ-4 {[-4-]}
<MI 22044 CLR.L D0> {[-4-]}
<MI 22046 MOVE.W (A6-0x6),D0> {[-4-]}
<MI 22048 MOVE.L D0,-(A7)> Δ-4 {[-4-]|[4, 'D0']}
<MI 2204a CLR.L D0> {[-4-]|[4, 'D0']}
<MI 2204c MOVE.W (A6-0xa),D0> {[-4-]|[4, 'D0']}
<MI 22050 MOVE.L D0,-(A7)> Δ-4 {[-4-]|[4, 'D0']|[4, 'D0']}
<Call 0x22052 0x2111a> {[-4-]|[4, 'D0']|[4, 'D0']}
<POP 22056-22058 StackAdj> Δ+8 {[-4-]}
<MI 22058 MOVE.L (A7)+,D0> Δ+4 {}
<POP 0x2205a LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 22060 MOVE.W D0,(A6-0x6)> {}
<POP 22062-22064 StackAdj> Δ-4 {[-4-]}
<MI 22064 CLR.L D1> {[-4-]}
<MI 22066 MOVE.W D0,D1> {[-4-]}
<MI 22068 MOVE.L D1,-(A7)> Δ-4 {[-4-]|[4, 'D1']}
<MI 2206a CLR.L D0> {[-4-]|[4, 'D1']}
<MI 2206c MOVE.W D6,D0> {[-4-]|[4, 'D1']}
<MI 2206e MOVE.L D0,-(A7)> Δ-4 {[-4-]|[4, 'D1']|[4, 'D0']}
<Call 0x22070 0x2111a> {[-4-]|[4, 'D1']|[4, 'D0']}
<POP 22074-22076 StackAdj> Δ+8 {[-4-]}
<MI 22076 MOVE.L (A7)+,D0> Δ+4 {}
<POP 0x22078 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 2207e MOVE.W D0,(A6-0x6)> {}
<MI 22080 CLR.W -(A7)> Δ-2 {[#0]}
<MI 22082 MOVE.W D0,-(A7)> Δ-2 {[#0]|[2, 'D0']}
<Pointer.fp 0x22084 <LVAR -0x014 @ 1(r)>> Δ-4 {[#0]|[2, 'D0']|[@@-20]}
<Call 0x22086 0x2121c> {[#0]|[2, 'D0']|[@@-20]}
<POP 2208a-2208c StackAdj> Δ+8 {}
<POP 2208c-22094 Epilogue> Σ0 ←0x21e90 ←0x2202c
@ 22094
<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 22094-2210e Body>
<POP 22094-220aa Prologue> Σ0 ↓
<POP 220aa-22102 Naked> Σ0 ↓ →0x22106
<MI 220aa CLR.W (A6-0x1a)> {}
<MI 220ae CLR.W (A6-0x18)> {}
<MI 220b2 MOVE.W #0x2,(A6-0x16)> {}
<MI 220b8 CLR.W (A6-0x14)> {}
<MI 220bc CLR.W (A6-0x12)> {}
<MI 220c0 MOVE.W (A6+0x8),D0> {}
<MI 220c4 ASL.W #0x8,D0> {}
<MI 220c6 MOVE.W D0,(A6-0x10)> {}
<MI 220ca CLR.W (A6-0xe)> {}
<MI 220ce CLR.W (A6-0xc)> {}
<Pointer.fp 0x220d2 <LVAR -0x01a @ 2(r)>> Δ-4 {[@@-26]}
<MI 220d6 LEA.L (A6-0x8),A0> {[@@-26]}
<MI 220da MOVE.L A0,-(A7)> Δ-4 {[@@-26]|[4, 'A0']}
<MI 220dc CLR.W -(A7)> Δ-2 {[@@-26]|[4, 'A0']|[#0]}
<Call 0x220de 0x10204> {[@@-26]|[4, 'A0']|[#0]}
KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
<POP 220e4-220e6 StackAdj> Δ+8 {[-2-]}
<MI 220e6 CLR.W (A7)> {[-2-]}
<Pointer.fp 0x220e8 <LVAR -0x00a @>> Δ-4 {[-2-]|[@@-10]}
<Call 0x220ec 0x10206> {[-2-]|[@@-10]}
KC03_Wait_Disk_IO(a : W; VAR status : Byte)
<POP 220f2-220f4 StackAdj> Δ+6 {}
<MI 220f4 CLR.B (A6+0xa)> {}
<MI 220f8 MOVE.W (A6-0x8),D0> {}
<MI 220fc CMPI.W #0x0001,D0> {}
<MI 22100 BNE 0x22106> {}
<POP 22102-22106 Naked> Σ0 ↓
<MI 22102 ADDQ.B #0x1,(A6+0xa)> {}
<POP 22106-2210e Epilogue> Σ0 ←0x220aa
@ 2210e
<POP 2210e-221e0 Body> Δ-4
<POP 2210e-22124 Prologue> Σ0 ↓
<POP 22124-22128 RegCacheLoad> Σ0 ↓
<POP 22128-2216a Naked> Σ0 Δ-4 ↓ →0x2217e ←0x221a8
<Blob 0x22128 [30] @> Δ-30 {[«30""»]}
<POP 22134-22136 StackAdj> Δ-8 {[«30""»]|[-8-]}
<Lit 0x22136 30> {[«30""»]|[-4-]|[$$Disk/Tape Controller number :_]}
<Const 0x22146 0x0.4> Δ-4 {[«30""»]|[-4-]|[$$Disk/Tape Controller number :_]|[##0]}
<Const 0x2214a 0x3.4> Δ-4 {[«30""»]|[-4-]|[$$Disk/Tape Controller number :_]|[##0]|[##3]}
<Call 0x2214e 0x103ec> {[«30""»]|[-4-]|[$$Disk/Tape Controller number :_]|[##0]|[##3]}
AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
<POP 22154-22158 StackAdj> Δ+12 {[«30""»]|[-4-]}
<MI 22158 MOVE.L (A7)+,D6> Δ+4 {[«30""»]}
<POP 2215a-2215c StackAdj> Δ+30 {}
<MI 2215c MOVE.L D6,D0> {}
<MI 2215e ASL.L #0x2,D0> {}
<MI 22160 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 22162 ADDQ.L #0x3,(A7)> {[-4-]}
<MI 22164 MOVE.L D0,D7> {[-4-]}
<MI 22166 CMP.L (A7),D7> {[-4-]}
<MI 22168 BGT 0x2217e> {[-4-]}
<POP 2216a-2217e Naked> Σ-4 ↓
<MI 2216a MOVE.L (A7),D0> {[-4-]}
<POP 0x2216c LimitCheck -0x7fffffff ≤ D7> {[-4-]}
<MI 2216c CMPI.L #0x80000001,D7>
<MI 22172 BLT 0x2217c>
<POP 0x22174 LimitCheck D0 ≤ 0x7fffffff> {[-4-]}
<MI 22174 CMPI.L #0x7fffffff,D0>
<MI 2217a BLE 0x2217e>
<MI 2217c TRAP #15>
<POP 2217e-22182 Naked> Σ-4 ↓ →0x221a8 ←0x22128 ←0x221a4
<MI 2217e CMP.L (A7),D7> {[-4-]}
<MI 22180 BGT 0x221a8> {[-4-]}
<POP 22182-2219a Naked> Σ-4 ↓ →0x221a4
<POP 0x22182 LimitCheck 0x0 ≤ D7 ≤ 0xf> {[-4-]}
<POP 2218c-2218e StackAdj> Δ-2 {[-6-]}
<MI 2218e MOVE.W D7,-(A7)> Δ-2 {[-6-]|[2, 'D7']}
<Call 0x22190 0x22094> {[-6-]|[2, 'D7']}
<POP 22194-22196 StackAdj> Δ+2 {[-6-]}
<MI 22196 TST.B (A7)+> Δ+2 {[-4-]}
<MI 22198 BEQ 0x221a4> {[-4-]}
<POP 2219a-221a4 Naked> Σ-4 Δ+4 →0x221d8
<MI 2219a MOVE.W D7,0x22560> {[-4-]}
<POP 221a0-221a2 StackAdj> Δ+4 {}
<MI 221a2 BRA 0x221d8> {}
<POP 221a4-221a8 Naked> Σ-4 ↓ →0x2217e ←0x22182
<MI 221a4 ADDQ.L #0x1,D7> {[-4-]}
<MI 221a6 BVC 0x2217e> {[-4-]}
<POP 221a8-221d8 Naked> Σ-4 Δ+4 →0x22128 ←0x2217e
<POP 221a8-221aa StackAdj> Δ+4 {}
<Blob 0x221aa [58] @> Δ-58 {[«58""»]}
<POP 221b6-221b8 StackAdj> Δ-4 {[«58""»]|[-4-]}
<Lit 0x221b8 58> {[«58""»]|[$$That controller does not exist, or has no Disks connected.]}
<Call 0x221ca 0x103e0> {[«58""»]|[$$That controller does not exist, or has no Disks connected.]}
WriteConsoleStringCrLf(str : String)
<POP 221d0-221d4 StackAdj> Δ+62 {}
<MI 221d4 BRA 0x22128> {}
<POP 221d8-221e0 Epilogue> Σ0 ←0x2219a
@ 221e0
START
<POP 221e0--0001 Body>
<POP 221e0-221ea Prologue> Σ0
<POP 221ea-22206 RegCacheLoad> Σ0 ↓
<POP 22206-2221e Naked> Σ0 ↓
<Const 0x22206 0x1.4> Δ-4 {[##1]}
<Call 0x2220a 0x103f4> {[##1]}
SetConsoleConfig(a : Long)
<POP 22210-22212 StackAdj> Δ+2 {[-2-]}
<POP 22212-22213 StackAdj> Δ+2 {}
<Const 0x22213 0x1.2> Δ-2 {[#1]}
<Const 0x22214 0x1.2> Δ-2 {[#1]|[#1]}
<Call 0x22216 0x10210> {[#1]|[#1]}
KC08_PortSomething(port: Word; b: Byte)
<POP 2221c-2221e StackAdj> Δ+4 {}
<POP 2221e-2222a Naked> Σ0 ↓ →0x2224e ←0x2222a
<POP 2221e-22220 StackAdj> Δ-2 {[-2-]}
<Call 0x22220 0x1060a> {[-2-]}
Is_machine_type_four() : Bool
<MI 22226 TST.B (A7)+> Δ+2 {}
<MI 22228 BEQ 0x2224e> {}
<POP 2222a-2224e Naked> Σ0 →0x2221e
<Blob 0x2222a [46] @> Δ-46 {[«46""»]}
<POP 22236-22238 StackAdj> Δ-4 {[«46""»]|[-4-]}
<Lit 0x22238 46> {[«46""»]|[$$This program will not operate on a 400 system.]}
<Call 0x22246 0x103e0> {[«46""»]|[$$This program will not operate on a 400 system.]}
WriteConsoleStringCrLf(str : String)
<POP 22248-2224c StackAdj> Δ+50 {}
<MI 2224c BRA 0x2221e> {}
<POP 2224e-2225c Naked> Σ0 ↓ ←0x2221e
<MI 2224e CLR.B -(A7)> Δ-2 {[#0]}
<Call 0x22250 0x10404> {[#0]}
SetSomeKindOfFlag(a : Byte)
<POP 22256-22258 StackAdj> Δ+2 {}
<Call 0x22258 0x2210e> {}
<POP 2225c-22372 Naked> Σ0 Δ-16 ↓ →0x22378 ←0x223ae
<Blob 0x2225c [4] @> Δ-4 {[«4""»]}
<Blob 0x22260 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x22264 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<POP 22268-2226a StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x2226a 12> {[«4""»]|[«4""»]|[«4""»]|[$$Options are:]}
<Call 0x22276 0x103e0> {[«4""»]|[«4""»]|[«4""»]|[$$Options are:]}
WriteConsoleStringCrLf(str : String)
<POP 22278-22279 StackAdj> Δ+16 ↓ {}
<Blob 0x22279 [14] @> Δ-14 {[«14""»]}
<POP 22288-2228a StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x2228a 13> {[«14""»]|[$$ 0 => Exit]}
<Call 0x22298 0x103e0> {[«14""»]|[$$ 0 => Exit]}
WriteConsoleStringCrLf(str : String)
<POP 2229a-2229e StackAdj> Δ+18 {}
<Blob 0x2229e [32] @> Δ-32 {[«32""»]}
<POP 222aa-222ac StackAdj> Δ-4 {[«32""»]|[-4-]}
<Lit 0x222ac 32> {[«32""»]|[$$ 1 => Write and verify EEPROM]}
<Call 0x222b8 0x103e0> {[«32""»]|[$$ 1 => Write and verify EEPROM]}
WriteConsoleStringCrLf(str : String)
<POP 222ba-222bc StackAdj> Δ+36 {}
<Blob 0x222bc [22] @> Δ-22 {[«22""»]}
<POP 222c8-222ca StackAdj> Δ-4 {[«22""»]|[-4-]}
<Lit 0x222ca 22> {[«22""»]|[$$ 2 => Verify EEPROM]}
<Call 0x222d8 0x103e0> {[«22""»]|[$$ 2 => Verify EEPROM]}
WriteConsoleStringCrLf(str : String)
<POP 222da-222dc StackAdj> Δ+26 {}
<Blob 0x222dc [32] @> Δ-32 {[«32""»]}
<POP 222e8-222ea StackAdj> Δ-4 {[«32""»]|[-4-]}
<Lit 0x222ea 32> {[«32""»]|[$$ 3 => Display EEPROM location]}
<Call 0x222f6 0x103e0> {[«32""»]|[$$ 3 => Display EEPROM location]}
WriteConsoleStringCrLf(str : String)
<POP 222f8-222f9 StackAdj> Δ+36 ↓ {}
<Blob 0x222f9 [32] @> Δ-32 {[«32""»]}
<POP 22308-2230a StackAdj> Δ-4 {[«32""»]|[-4-]}
<Lit 0x2230a 31> {[«32""»]|[$$ 4 => Modify EEPROM location]}
<Call 0x22318 0x103e0> {[«32""»]|[$$ 4 => Modify EEPROM location]}
WriteConsoleStringCrLf(str : String)
<POP 2231a-2231c StackAdj> Δ+36 {}
<Blob 0x2231c [38] @> Δ-38 {[«38""»]}
<POP 22328-2232a StackAdj> Δ-4 {[«38""»]|[-4-]}
<Lit 0x2232a 38> {[«38""»]|[$$ 5 => Display present SLEW settings]}
<Call 0x22338 0x103e0> {[«38""»]|[$$ 5 => Display present SLEW settings]}
WriteConsoleStringCrLf(str : String)
<POP 2233a-2233b StackAdj> Δ+42 ↓ {}
<Blob 0x2233b [16] @> Δ-16 {[«16""»]}
<POP 2234a-2234c StackAdj> Δ-8 {[«16""»]|[-8-]}
<Lit 0x2234c 15> {[«16""»]|[-4-]|[$$Enter option :_]}
<Const 0x2235a 0x0.4> Δ-4 {[«16""»]|[-4-]|[$$Enter option :_]|[##0]}
<Const 0x2235e 0x5.4> Δ-4 {[«16""»]|[-4-]|[$$Enter option :_]|[##0]|[##5]}
<Call 0x22362 0x103ec> {[«16""»]|[-4-]|[$$Enter option :_]|[##0]|[##5]}
AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
<POP 22368-2236a StackAdj> Δ+12 {[«16""»]|[-4-]}
<MI 2236a MOVE.L (A7)+,D0> Δ+4 {[«16""»]}
<MI 2236c MOVE.L D0,0x22564> {[«16""»]}
<MI 2236e CMP.L #0x01,D0> {[«16""»]}
<MI 22370 BNE 0x22378> {[«16""»]}
<POP 22372-22378 Naked> Σ-16 →0x223ae
<Call 0x22372 0x214c0> {[-16-]}
<MI 22376 BRA 0x223ae> {[-16-]}
<POP 22378-22380 Naked> Σ-16 ↓ →0x22386 ←0x2225c
<MI 22378 CMPI.L #0x00000002,D0> {[-16-]}
<MI 2237e BNE 0x22386> {[-16-]}
<POP 22380-22386 Naked> Σ-16 →0x223ae
<Call 0x22380 0x213bc> {[-16-]}
<MI 22384 BRA 0x223ae> {[-16-]}
<POP 22386-2238e Naked> Σ-16 ↓ →0x22394 ←0x22378
<MI 22386 CMPI.L #0x00000003,D0> {[-16-]}
<MI 2238c BNE 0x22394> {[-16-]}
<POP 2238e-22394 Naked> Σ-16 →0x223ae
<Call 0x2238e 0x21dcc> {[-16-]}
<MI 22392 BRA 0x223ae> {[-16-]}
<POP 22394-2239c Naked> Σ-16 ↓ →0x223a2 ←0x22386
<MI 22394 CMPI.L #0x00000004,D0> {[-16-]}
<MI 2239a BNE 0x223a2> {[-16-]}
<POP 2239c-223a2 Naked> Σ-16 →0x223ae
<Call 0x2239c 0x21e68> {[-16-]}
<MI 223a0 BRA 0x223ae> {[-16-]}
<POP 223a2-223aa Naked> Σ-16 ↓ →0x223ae ←0x22394
<MI 223a2 CMPI.L #0x00000005,D0> {[-16-]}
<MI 223a8 BNE 0x223ae> {[-16-]}
<POP 223aa-223ae Naked> Σ-16 ↓
<Call 0x223aa 0x21b66> {[-16-]}
<POP 223ae-223be Naked> Σ-16 Δ+16 ↓ →0x2225c ←0x22372 ←0x22380 ←0x2238e ←0x2239c ←0x223a2
<POP 223ae-223b2 StackAdj> Δ+16 {}
<Call 0x223b2 0x103dc> {}
WriteConsoleCrLf(void)
<MI 223b8 TST.L 0x22564> {}
<MI 223ba BNE 0x2225c> {}
<POP 223be-223c2 Naked> Σ0 ↓
<Call 0x223be 0x20fde> {}
<POP 223c2-223c8 Naked> Σ0
<Call 0x223c2 0x10284> {}
?exit
@ 2241c
EXP_FAIL
<LVAR 0x00e 1(r)>
<LVAR 0x00a 4(r)>
<LVAR 0x008 1(r)>
<POP 2241c-22558 Body>
<POP 2241c-22432 Prologue> Σ0 ↓
<POP 22432-22448 RegCacheLoad> Σ0 ↓
<POP 22448-224a8 Naked> Σ0 ↓ →0x224f0
<Call 0x22448 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x2244e [18] @> Δ-18 {[«18""»]}
<POP 2245a-2245c StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x2245c 18> {[«18""»]|[$$Experiment error :]}
<Call 0x22468 0x103e0> {[«18""»]|[$$Experiment error :]}
WriteConsoleStringCrLf(str : String)
<POP 2246a-2246b StackAdj> Δ+22 ↓ {}
<Blob 0x2246b [14] @> Δ-14 {[«14""»]}
<POP 2247a-2247c StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x2247c 13> {[«14""»]|[-4-]|[$$Board :_]}
<POP 22486-22488 StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<MI 22488 MOVE.B (A6+0xe),(A7)> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<Call 0x2248c 0x1049c> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
BoardName(address : B) : String
<POP 22492-22494 StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
<Call 0x22494 0x102d0> {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 2249a-2249c StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x2249c 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 2249e-224a0 StackAdj> Δ+18 {}
<MI 224a0 MOVEA.L (A6+0xa),A0> {}
<MI 224a4 CMPA.W #0x01,A0> {}
<MI 224a6 BEQ 0x224f0> {}
<POP 224a8-224f0 Naked> Σ0 ↓
<Blob 0x224a8 [14] @> Δ-14 {[«14""»]}
<Blob 0x224b8 [30] (A0+0xfc)> Δ-30 {[«14""»]|[«30»]}
<POP 224c8-224ca StackAdj> Δ-8 {[«14""»]|[«30»]|[-8-]}
<Lit 0x224ca 13> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
<POP 224d4-224d6 StackAdj> Δ-4 {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
<Lit 0x224d6> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
<Pointer.sp 0x224d6 12> Δ-4
<Const 0x224da 0x1.2> Δ-2
<Const 0x224dc 0x1e.2> Δ-2
<Call 0x224de 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 224e0-224e2 StackAdj> Δ+8
<Call 0x224e2 0x102d0> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
StringCat2(a, b : String) : String
<POP 224e8-224ea StackAdj> Δ+8 {[«14""»]|[«30»]|[-4-]}
<Call 0x224ea 0x103e0> {[«14""»]|[«30»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 224ec-224f0 StackAdj> Δ+48 {}
<POP 224f0-22550 Naked> Σ0 ↓ ←0x22448
<Blob 0x224f0 [14] @> Δ-14 {[«14""»]}
<POP 22500-22502 StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x22502 13> {[«14""»]|[-4-]|[$$Status :_]}
<POP 2250c-2250e StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<MI 2250e MOVE.B (A6+0x8),(A7)> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<Call 0x22512 0x104a2> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
ExpStatus2Text(status.B, &String)
<POP 22518-2251a StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
<Call 0x2251a 0x102d0> {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 22520-22522 StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x22522 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 22524-22525 StackAdj> Δ+18 ↓ {}
<Blob 0x22525 [24] @> Δ-24 {[«24""»]}
<Const 0x22534 0x2.2> Δ-2 {[«24""»]|[#2]}
<POP 22538-2253a StackAdj> Δ-4 {[«24""»]|[#2]|[-4-]}
<Lit 0x2253a 23> {[«24""»]|[#2]|[$$Fatal experiment error.]}
<Call 0x22548 0x103b8> {[«24""»]|[#2]|[$$Fatal experiment error.]}
PopProgram(status : Byte; msg : String)
<POP 2254e-22550 StackAdj> Δ+30 {}
<POP 22550-22558 Epilogue> Σ0
00020000 ; -------------------------------------------------------------------------------------- 00020000 ; R1000.Disassembly modules: 00020000 ; import all 00020000 ; import kind.program 00020000 ; no ident.76a1ac8231fdadba 00020000 ; -------------------------------------------------------------------------------------- 00020000 stack.top: 00020000 00 04 00 00 | | .CODE 0x40000 ; STACK.END 00020004 00 02 21 e0 | ! | .CODE START 00020008 00 01 02 88 | | .CODE FSCALL_10288 0002000c heap.top: 0002000c 00 02 25 70 | %p | .PTR 0x22570 00020010 code.end: 00020010 00 02 25 58 | %X | .PTR 0x22558 00020014 00 00 00 00 | | .CONST 0x00000000 00020018 programfailurehandler: 00020018 00 02 0f b8 | | .CODE PROG_FAIL 0002001c experimentfailurehandler: 0002001c 00 02 24 1c | $ | .CODE EXP_FAIL 00020020 00 00 00 00 | | .CONST 0x00000000 00020024 exp_init_done: 00020024 00 | | .CONST 0x00 00020025 00 | | .CONST 0x00 00020026 00 00 | | .CONST 0x0000 00020028 00 00 | | .CONST 0x0000 0002002a 00 00 | | .XXX[0x2] 0002002c 00 00 | | .CONST 0x0000 0002002e 00 00 | | .CONST 0x0000 00020030 00 00 | | .CONST 0x0000 00020032 00 00 00 00 00 00 | | .XXX[0x6] 00020038 00 00 00 00 00 00 00 00 | | .BLANK 00[0xb0] 000200e8 00 00 00 00 | | .XXX[0x4] 000200ec 00 00 00 00 | | .PTR 0x0 000200f0 is_open_ERROR_LOG: 000200f0 00 | | .CONST 0x0 000200f1 write_error_ERROR_LOG: 000200f1 00 | | .CONST 0x0 000200f2 00 00 00 00 | | .CONST 0x00000000 000200f6 00 00 00 00 | | .CONST 0x00000000 000200fa 00 | | .CONST 0x00 000200fb 00 | | .CONST 0x00 000200fc file_ERROR_LOG: 000200fc 00 00 00 00 | | .CONST 0x00000000 00020100 00 00 00 00 | | .CONST 0x00000000 00020104 00 00 | | .CONST 0x0000 00020106 00 00 | | .CONST 0x0000 00020108 somekindoffsflag: 00020108 00 | | .CONST 0x00 00020109 00 | | .CONST 0x00 0002010a 40 28 23 29 53 4c |@(#)SL | .XXX[0x6] 00020110 45 57 2c 32 2e 31 2c 39 |EW,2.1,9| .XXX[0x30] 00020118 30 2f 30 33 2f 31 35 2c |0/03/15,| 00020120 31 31 3a 32 30 3a 30 30 |11:20:00| 00020128 5c 20 55 6e 6b 6e 6f 77 |\ Unknow| 00020130 6e 20 64 69 73 6b 20 64 |n disk d| 00020138 72 69 76 65 20 20 20 20 |rive | 00020140 20 20 20 20 20 20 20 20 | | .BLANK 20[0x10] 00020150 20 20 46 75 6a 69 74 73 | Fujits| .XXX[0x18] 00020158 75 20 32 33 35 31 20 28 |u 2351 (| 00020160 45 41 47 4c 45 29 20 20 |EAGLE) | 00020168 20 20 20 20 20 20 20 20 | | .BLANK 20[0x10] 00020178 20 20 46 75 6a 69 74 73 | Fujits| .XXX[0x28] 00020180 75 20 32 33 36 31 20 28 |u 2361 (| 00020188 45 41 47 4c 45 2d 58 50 |EAGLE-XP| 00020190 29 20 20 20 20 20 20 20 |) | 00020198 20 20 20 20 20 20 20 20 | | 000201a0 20 20 | | .XXX[0x2] 000201a2 46 75 6a 69 74 73 |Fujits | .XXX[0x6] 000201a8 75 20 32 33 33 33 20 28 |u 2333 (| .XXX[0x58] 000201b0 53 77 61 6c 6c 6f 77 20 |Swallow | 000201b8 33 36 38 20 4d 42 29 20 |368 MB) | 000201c0 20 20 20 20 20 20 20 20 | | 000201c8 20 20 46 75 6a 69 74 73 | Fujits| 000201d0 75 20 32 33 34 34 20 28 |u 2344 (| 000201d8 53 77 61 6c 6c 6f 77 20 |Swallow | 000201e0 36 39 30 20 4d 42 29 20 |690 MB) | 000201e8 20 20 20 20 20 20 20 20 | | 000201f0 20 20 54 6f 73 68 69 62 | Toshib| 000201f8 61 20 32 38 38 20 20 20 |a 288 | 00020200 20 20 20 20 20 20 20 20 | | .BLANK 20[0x18] 00020218 20 20 54 6f 73 68 69 62 | Toshib| .XXX[0x10] 00020220 61 20 32 38 36 20 20 20 |a 286 | 00020228 20 20 20 20 20 20 20 20 | | .BLANK 20[0x18] 00020240 20 20 43 44 43 20 50 41 | CDC PA| .XXX[0x68] 00020248 38 4b 31 20 37 35 30 4d |8K1 750M| 00020250 42 20 53 41 42 52 45 20 |B SABRE | 00020258 49 56 20 39 37 32 30 2d |IV 9720-| 00020260 37 35 30 20 20 20 20 20 |750 | 00020268 20 20 43 44 43 20 50 41 | CDC PA| 00020270 38 4b 31 20 38 35 30 4d |8K1 850M| 00020278 42 20 53 41 42 52 45 20 |B SABRE | 00020280 49 56 20 39 37 32 30 2d |IV 9720-| 00020288 38 35 30 20 20 20 20 20 |850 | 00020290 20 20 46 75 6a 69 74 73 | Fujits| 00020298 75 20 32 33 37 32 20 28 |u 2372 (| 000202a0 38 32 33 20 4d 42 29 20 |823 MB) | 000202a8 20 20 20 20 20 20 20 20 | | .BLANK 20[0x10] 000202b8 20 20 | | .XXX[0x2] 000202ba 20 20 20 20 20 20 20 20 | | .TXT ' warning warning warning' 000202dc 72 65 6d 65 6d 62 65 72 |remember| .TXT 'remember to white-button if you changed parameters' 0002030e 20 20 20 20 20 20 20 20 | | .TXT ' warning warning warning' 00020330 50 72 6f 67 72 61 6d 20 |Program | .TXT 'Program not booted from disk, re-boot system' 0002035c 20 20 20 20 20 20 20 20 | | .TXT ' warning warning warning' 0002037e 72 65 6d 65 6d 62 65 72 |remember| .TXT 'remember to white-button if you changed parameters' 000203b0 20 20 20 20 20 20 20 20 | | .TXT ' warning warning warning' 000203d2 45 72 72 6f 72 20 72 65 |Error re| .TXT 'Error reading eeprom at location :_ ' 000203f6 45 72 72 6f 72 20 77 72 |Error wr| .TXT 'Error writing eeprom at location :_ ' 0002041a 44 61 74 61 20 64 69 64 |Data did| .TXT 'Data did not compare, EEPROM probably write protected ' 00020450 57 72 6f 74 |Wrot | .TXT 'Wrot' 00020454 65 20 5b 64 |e [d | .TXT 'e [d' 00020458 65 63 69 6d |ecim | .TXT 'ecim' 0002045c 61 6c 5d 20 |al] | .TXT 'al] ' 00020460 52 65 61 64 20 62 61 63 |Read bac| .TXT 'Read back [decimal] ' 00020474 56 65 72 69 66 79 69 6e |Verifyin| .TXT 'Verifying EEPROM ...' 00020488 43 68 65 63 6b 73 75 6d |Checksum| .TXT 'Checksum verified correctly!' 000204a4 56 65 72 69 66 79 20 66 |Verify f| .TXT 'Verify failed, checksum =_' 000204be 45 6e 74 65 72 20 69 6e |Enter in| .TXT 'Enter information for unit_ ' 000204da 53 65 63 74 6f 72 73 20 |Sectors | .TXT 'Sectors per track must be an even number' 00020502 44 72 69 76 |Driv | .TXT 'Driv' 00020506 65 20 74 79 |e ty | .TXT 'e ty' 0002050a 70 65 73 20 |pes | .TXT 'pes ' 0002050e 61 72 65 3a |are: | .TXT 'are:' 00020512 20 20 20 20 31 20 2d 20 | 1 - | .TXT ' 1 - Fujitsu 2351 (Eagle) with sector interleaving ' 00020548 20 20 20 20 32 20 2d 20 | 2 - | .TXT ' 2 - Fujitsu 2361 (Eagle XP) ' 00020568 20 20 20 20 33 20 2d 20 | 3 - | .TXT ' 3 - Fujitsu 2333' 0002057c 20 20 20 20 34 20 2d 20 | 4 - | .TXT ' 4 - Fujitsu 2344' 00020590 20 20 20 20 35 20 2d 20 | 5 - | .TXT ' 5 - Toshiba 288 ' 000205a4 20 20 20 20 36 20 2d 20 | 6 - | .TXT ' 6 - Toshiba 286 ' 000205b8 20 20 20 20 37 20 2d 20 | 7 - | .TXT ' 7 - CDC PA8K1 750MB SABRE IV 9720-750 ' 000205e2 20 20 20 20 38 20 2d 20 | 8 - | .TXT ' 8 - CDC PA8K1 850MB SABRE IV 9720-850 ' 0002060c 20 20 20 20 39 20 2d 20 | 9 - | .TXT ' 9 - Fujitsu 2372' 00020620 20 20 20 20 30 20 2d 20 | 0 - | .TXT ' 0 - Other ' 0002062e 45 6e 74 65 72 20 64 72 |Enter dr| .TXT 'Enter drive type :_ ' 00020642 44 6f 65 73 20 74 68 69 |Does thi| .TXT 'Does this drive support TAG 4/5 status' 00020668 44 6f 65 73 20 74 68 69 |Does thi| .TXT 'Does this drives transfer rate exceed 2 MB/Sec' 00020696 45 6e 74 65 72 20 74 68 |Enter th| .TXT 'Enter the number of cylinders on this drive :_' 000206c4 45 6e 74 65 72 20 74 68 |Enter th| .TXT 'Enter the number of heads on this drive :_' 000206ee 45 6e 74 65 72 20 74 68 |Enter th| .TXT 'Enter the number of sectors per track on this drive :_' 00020724 49 73 20 45 45 50 52 4f |Is EEPRO| .TXT 'Is EEPROM write enabled (SW-4 open) ' 00020748 57 72 69 74 69 6e 67 20 |Writing | .TXT 'Writing EEPROM ...' 0002075a 57 72 69 74 65 20 64 6f |Write do| .TXT 'Write done! ' 00020766 50 6c 65 61 73 65 20 77 |Please w| .TXT 'Please write protect EEPROM ' 00020782 44 72 |Dr | .TXT 'Dr' 00020784 69 76 |iv | .TXT 'iv' 00020786 65 5f |e_ | .TXT 'e_' 00020788 20 3d 3e 5f | =>_ | .TXT ' =>_' 0002078c 44 72 |Dr | .TXT 'Dr' 0002078e 69 76 |iv | .TXT 'iv' 00020790 65 5f |e_ | .TXT 'e_' 00020792 20 20 20 43 | C | .TXT ' C' 00020796 79 6c 69 6e |ylin | .TXT 'ylin' 0002079a 64 65 72 73 |ders | .TXT 'ders' 0002079e 20 3d 3e 5f | =>_ | .TXT ' =>_' 000207a2 20 20 20 48 | H | .TXT ' H' 000207a6 65 61 64 73 |eads | .TXT 'eads' 000207aa 20 3d 3e 5f | =>_ | .TXT ' =>_' 000207ae 20 20 20 53 45 43 54 4f | SECTO| .TXT ' SECTORS =>_' 000207bc 4c 6f 63 61 74 69 6f 6e |Location| .TXT 'Location to read (decimal) :_ ' 000207da 4c 6f 63 61 74 69 6f 6e |Location| .TXT 'Location to Modify (decimal) :_ ' 000207fa 4e 65 77 20 76 61 6c 75 |New valu| .TXT 'New value (hex) :_' 0002080c 45 72 72 6f |Erro | .XXX[0x4] 00020810 72 20 72 65 61 64 69 6e |r readin| .XXX[0x20] 00020818 67 20 65 65 70 72 6f 6d |g eeprom| 00020820 20 61 74 20 6c 6f 63 61 | at loca| 00020828 74 69 6f 6e 20 3a 5f 20 |tion :_ | 00020830 43 75 72 72 65 6e 74 20 |Current | .TXT 'Current value (hex) :_' 00020846 56 61 6c 75 65 20 69 6e |Value in| .TXT 'Value invalid or out of range.' 00020864 44 69 73 6b 2f 54 61 70 |Disk/Tap| .TXT 'Disk/Tape Controller number :_' 00020882 54 68 61 74 20 63 6f 6e |That con| .TXT 'That controller does not exist, or has no Disks connected.' 000208bc 54 68 69 73 20 70 72 6f |This pro| .TXT 'This program will not operate on a 400 system.' 000208ea 4f 70 74 69 |Opti | .TXT 'Opti' 000208ee 6f 6e 73 20 |ons | .TXT 'ons ' 000208f2 61 72 65 3a |are: | .TXT 'are:' 000208f6 20 20 20 20 30 20 3d 3e | 0 =>| .TXT ' 0 => Exit ' 00020904 20 20 20 20 31 20 3d 3e | 1 =>| .TXT ' 1 => Write and verify EEPROM' 00020924 20 20 20 20 32 20 3d 3e | 2 =>| .TXT ' 2 => Verify EEPROM' 0002093a 20 20 20 20 33 20 3d 3e | 3 =>| .TXT ' 3 => Display EEPROM location' 0002095a 20 20 20 20 34 20 3d 3e | 4 =>| .TXT ' 4 => Modify EEPROM location ' 0002097a 20 20 20 20 35 20 3d 3e | 5 =>| .TXT ' 5 => Display present SLEW settings' 000209a0 45 6e 74 65 72 20 6f 70 |Enter op| .TXT 'Enter option :_ ' 000209b0 00 00 10 00 00 00 00 00 | | .XXX[0x30] 000209b8 1a 1a 1a 1a 00 00 00 00 | | 000209c0 02 02 02 02 00 00 00 00 | | 000209c8 15 15 15 15 00 00 00 00 | | 000209d0 20 20 20 20 00 00 00 00 | | 000209d8 00 01 02 03 04 05 06 07 | | 000209e0 00 00 00 00 00 00 00 00 | | .BLANK 00[0x18] 000209f8 00 | | .BLANK 00[0x1] 000209f9 01 02 03 00 00 00 00 | | .XXX[0x7] 00020a00 00 02 04 06 08 0a 0c 0e | | .XXX[0x30] 00020a08 10 12 14 16 18 1a 1c 1e | | 00020a10 20 22 24 26 28 2a 2c 2e | "$&(*,.| 00020a18 01 03 05 07 09 0b 0d 0f | | 00020a20 11 13 15 17 19 1b 1d 1f | | 00020a28 21 23 25 27 29 2b 2d 2f |!#%')+-/| 00020a30 00 00 00 00 00 00 00 00 | | .BLANK 00[0x50] 00020a80 30 30 30 30 00 00 00 00 |0000 | .XXX[0x8] 00020a88 00 00 00 00 00 00 00 00 | | .BLANK 00[0x78] 00020b00 14 14 14 14 00 00 00 00 | | .XXX[0x8] 00020b08 00 00 00 00 00 00 00 00 | | .BLANK 00[0x78] 00020b80 4a 4a 4a 4a 00 00 00 00 |JJJJ | .XXX[0x8] 00020b88 00 00 00 00 00 00 00 00 | | .BLANK 00[0x78] 00020c00 03 03 03 03 00 00 00 00 | | .XXX[0x8] 00020c08 00 00 00 00 00 00 00 00 | | .BLANK 00[0x78] 00020c80 30 30 30 30 00 00 00 00 |0000 | .XXX[0x8] 00020c88 00 00 00 00 00 00 00 00 | | .BLANK 00[0x78] 00020d00 14 14 14 14 00 00 00 00 | | .XXX[0x8] 00020d08 00 00 00 00 00 00 00 00 | | .BLANK 00[0x78] 00020d80 00 00 00 00 ff 00 00 00 | | .XXX[0x10] 00020d88 00 00 00 00 00 00 00 00 | | 00020d90 00 00 00 00 00 | | .XXX[0x5] 00020d95 44 44 44 |DDD | .XXX[0x3] 00020d98 44 00 00 00 00 00 00 00 |D | .XXX[0x8] 00020da0 00 00 00 00 00 00 00 00 | | .BLANK 00[0x10] 00020db0 00 ac 00 94 00 90 00 8c | | .XXX[0x90] 00020db8 00 88 00 b0 00 84 00 80 | | 00020dc0 00 7c 00 78 00 b4 00 74 | | x t| 00020dc8 00 70 00 6c 00 68 00 b8 | p l h | 00020dd0 00 94 00 90 00 8c 00 88 | | 00020dd8 00 00 00 00 00 00 00 00 | | 00020de0 03 4a 14 30 01 04 00 00 | J 0 | 00020de8 03 4a 14 42 01 00 80 00 | J B | 00020df0 03 37 0a 42 01 00 80 00 | 7 B | 00020df8 02 70 1b 42 01 00 80 00 | p B | 00020e00 03 37 0f 42 00 00 80 00 | 7 B | 00020e08 03 37 0b 42 00 00 80 00 | 7 B | 00020e10 04 c1 0f 42 01 00 80 00 | B | 00020e18 05 65 0f 42 01 00 80 00 | e B | 00020e20 02 e9 1b 42 01 00 80 00 | B | 00020e28 55 6e 6b 6e 6f 77 6e 20 |Unknown | 00020e30 64 69 73 6b 20 64 72 69 |disk dri| 00020e38 76 65 20 20 20 20 20 20 |ve | 00020e40 20 20 20 20 20 20 20 20 | | .BLANK 20[0x10] 00020e50 46 75 6a 69 74 73 75 20 |Fujitsu | .XXX[0x18] 00020e58 32 33 35 31 20 28 45 41 |2351 (EA| 00020e60 47 4c 45 29 20 20 20 20 |GLE) | 00020e68 20 20 20 20 20 20 20 20 | | .BLANK 20[0x10] 00020e78 46 75 6a 69 74 73 75 20 |Fujitsu | .XXX[0x18] 00020e80 32 33 36 31 20 28 45 41 |2361 (EA| 00020e88 47 4c 45 2d 58 50 29 20 |GLE-XP) | 00020e90 20 20 20 20 20 20 20 20 | | .BLANK 20[0x10] 00020ea0 46 75 6a 69 74 73 75 20 |Fujitsu | .XXX[0x60] 00020ea8 32 33 33 33 20 28 53 77 |2333 (Sw| 00020eb0 61 6c 6c 6f 77 20 33 36 |allow 36| 00020eb8 38 20 4d 42 29 20 20 20 |8 MB) | 00020ec0 20 20 20 20 20 20 20 20 | | 00020ec8 46 75 6a 69 74 73 75 20 |Fujitsu | 00020ed0 32 33 34 34 20 28 53 77 |2344 (Sw| 00020ed8 61 6c 6c 6f 77 20 36 39 |allow 69| 00020ee0 30 20 4d 42 29 20 20 20 |0 MB) | 00020ee8 20 20 20 20 20 20 20 20 | | 00020ef0 54 6f 73 68 69 62 61 20 |Toshiba | 00020ef8 32 38 38 20 20 20 20 20 |288 | 00020f00 20 20 20 20 20 20 20 20 | | .BLANK 20[0x18] 00020f18 54 6f 73 68 69 62 61 20 |Toshiba | .XXX[0x10] 00020f20 32 38 36 20 20 20 20 20 |286 | 00020f28 20 20 20 20 20 20 20 20 | | .BLANK 20[0x18] 00020f40 43 44 43 20 50 41 38 4b |CDC PA8K| .XXX[0x68] 00020f48 31 20 37 35 30 4d 42 20 |1 750MB | 00020f50 53 41 42 52 45 20 49 56 |SABRE IV| 00020f58 20 39 37 32 30 2d 37 35 | 9720-75| 00020f60 30 20 20 20 20 20 20 20 |0 | 00020f68 43 44 43 20 50 41 38 4b |CDC PA8K| 00020f70 31 20 38 35 30 4d 42 20 |1 850MB | 00020f78 53 41 42 52 45 20 49 56 |SABRE IV| 00020f80 20 39 37 32 30 2d 38 35 | 9720-85| 00020f88 30 20 20 20 20 20 20 20 |0 | 00020f90 46 75 6a 69 74 73 75 20 |Fujitsu | 00020f98 32 33 37 32 20 28 38 32 |2372 (82| 00020fa0 33 20 4d 42 29 20 20 20 |3 MB) | 00020fa8 20 20 20 20 20 20 20 20 | | .BLANK 20[0x10] 00020fb8 ; -------------------------------------------------------------------------------------- 00020fb8 ; OMSI PASCAL Function 00020fb8 ; <LVAR 0x008 1(r)> 00020fb8 ; -------------------------------------------------------------------------------------- 00020fb8 PROG_FAIL: 00020fb8 4e 56 ff fa |NV | LINK.W A6,#0xfffa 00020fbc bf d5 | | CMPA.L (A5),A7 00020fbe 62 06 |b | BHI 0x20fc6 00020fc0 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020fc4 4e 76 |Nv | TRAPV 00020fc6 de fc 00 04 | | ADDA.W #0x4,A7 00020fca 13 fc 00 01 00 02 25 62 | %b| MOVE.B #0x01,0x22562 00020fd2 13 ee 00 08 00 02 25 63 | %c| MOVE.B (A6+0x8),0x22563 00020fda 4e 5e |N^ | UNLK A6 00020fdc 4e 75 |Nu | RTS 00020fde ; -------------------------------------------------------------------------------------- 00020fde ; OMSI PASCAL Function 00020fde ; <LVAR -0x002 @> 00020fde ; <LVAR -0x004 @ 1(r)> 00020fde ; -------------------------------------------------------------------------------------- 00020fde 4e 56 ff 96 |NV | LINK.W A6,#0xff96 00020fe2 bf d5 | | CMPA.L (A5),A7 00020fe4 62 06 |b | BHI 0x20fec 00020fe6 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020fea 4e 76 |Nv | TRAPV 00020fec de fc 00 66 | f | ADDA.W #0x66,A7 00020ff0 48 e7 fc e0 |H | MOVEM.L A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7) 00020ff4 43 f9 00 01 02 c4 |C | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A1 00020ffa 45 f9 00 01 03 e0 |E | LEA.L WriteConsoleStringCrLf(str : String),A2 00021000 72 01 |r | MOVEQ.L #0x01,D1 00021002 74 22 |t" | MOVEQ.L #0x22,D2 00021004 76 26 |v& | MOVEQ.L #0x26,D3 00021006 78 32 |x2 | MOVEQ.L #0x32,D4 00021008 7a 36 |z6 | MOVEQ.L #0x36,D5 0002100a 48 6e ff fc |Hn | PEA.L (A6-0x4) 0002100e 48 6e ff fe |Hn | PEA.L (A6-0x2) 00021012 4e b9 00 01 02 00 |N | JSR KC00_GetBootDev(VAR a : Byte; VAR b : Word) 00021018 50 4f |PO | ADDQ.L #0x8,A7 0002101a 10 2e ff fc | . | MOVE.B (A6-0x4),D0 0002101e 0c 00 00 02 | | CMPI.B #0x02,D0 00021022 67 7e |g~ | BEQ 0x210a2 00021024 41 fa f2 b6 |A | LEA.L 0x202dc,A0 00021028 70 10 |p | MOVEQ.L #0x10,D0 0002102a 3f 20 |? | MOVE.W -(A0),-(A7) 0002102c 51 c8 ff fc |Q | DBF D0,0x2102a 00021030 59 4f |YO | SUBQ.L #0x4,A7 00021032 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021036 3f 01 |? | MOVE.W D1,-(A7) 00021038 3f 02 |? | MOVE.W D2,-(A7) 0002103a 4e 91 |N | JSR (A1) 0002103c 50 4f |PO | ADDQ.L #0x8,A7 0002103e 4e 92 |N | JSR (A2) 00021040 de c3 | | ADDA.W D3,A7 00021042 41 fa f2 ca |A | LEA.L 0x2030e,A0 00021046 70 18 |p | MOVEQ.L #0x18,D0 00021048 3f 20 |? | MOVE.W -(A0),-(A7) 0002104a 51 c8 ff fc |Q | DBF D0,0x21048 0002104e 59 4f |YO | SUBQ.L #0x4,A7 00021050 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021054 3f 01 |? | MOVE.W D1,-(A7) 00021056 3f 04 |? | MOVE.W D4,-(A7) 00021058 4e 91 |N | JSR (A1) 0002105a 50 4f |PO | ADDQ.L #0x8,A7 0002105c 4e 92 |N | JSR (A2) 0002105e de c5 | | ADDA.W D5,A7 00021060 41 fa f2 ce |A | LEA.L 0x20330,A0 00021064 70 10 |p | MOVEQ.L #0x10,D0 00021066 3f 20 |? | MOVE.W -(A0),-(A7) 00021068 51 c8 ff fc |Q | DBF D0,0x21066 0002106c 59 4f |YO | SUBQ.L #0x4,A7 0002106e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021072 3f 01 |? | MOVE.W D1,-(A7) 00021074 3f 02 |? | MOVE.W D2,-(A7) 00021076 4e 91 |N | JSR (A1) 00021078 50 4f |PO | ADDQ.L #0x8,A7 0002107a 4e 92 |N | JSR (A2) 0002107c de c3 | | ADDA.W D3,A7 0002107e 41 fa f2 dc |A | LEA.L 0x2035c,A0 00021082 70 0a |p | MOVEQ.L #0x0a,D0 00021084 2f 20 |/ | MOVE.L -(A0),-(A7) 00021086 51 c8 ff fc |Q | DBF D0,0x21084 0002108a 59 4f |YO | SUBQ.L #0x4,A7 0002108c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021090 3f 01 |? | MOVE.W D1,-(A7) 00021092 3f 3c 00 2c |?< , | MOVE.W #0x2c,-(A7) 00021096 4e 91 |N | JSR (A1) 00021098 50 4f |PO | ADDQ.L #0x8,A7 0002109a 4e 92 |N | JSR (A2) 0002109c de fc 00 30 | 0 | ADDA.W #0x30,A7 000210a0 60 fe |` | BRA 0x210a0 000210a2 4e b9 00 01 03 98 |N | JSR FSCALL_10398 000210a8 41 fa f2 d4 |A | LEA.L 0x2037e,A0 000210ac 70 10 |p | MOVEQ.L #0x10,D0 000210ae 3f 20 |? | MOVE.W -(A0),-(A7) 000210b0 51 c8 ff fc |Q | DBF D0,0x210ae 000210b4 59 4f |YO | SUBQ.L #0x4,A7 000210b6 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000210ba 3f 01 |? | MOVE.W D1,-(A7) 000210bc 3f 02 |? | MOVE.W D2,-(A7) 000210be 4e 91 |N | JSR (A1) 000210c0 50 4f |PO | ADDQ.L #0x8,A7 000210c2 4e 92 |N | JSR (A2) 000210c4 de c3 | | ADDA.W D3,A7 000210c6 41 fa f2 e8 |A | LEA.L 0x203b0,A0 000210ca 70 18 |p | MOVEQ.L #0x18,D0 000210cc 3f 20 |? | MOVE.W -(A0),-(A7) 000210ce 51 c8 ff fc |Q | DBF D0,0x210cc 000210d2 59 4f |YO | SUBQ.L #0x4,A7 000210d4 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000210d8 3f 01 |? | MOVE.W D1,-(A7) 000210da 3f 04 |? | MOVE.W D4,-(A7) 000210dc 4e 91 |N | JSR (A1) 000210de 50 4f |PO | ADDQ.L #0x8,A7 000210e0 4e 92 |N | JSR (A2) 000210e2 de c5 | | ADDA.W D5,A7 000210e4 41 fa f2 ec |A | LEA.L 0x203d2,A0 000210e8 70 10 |p | MOVEQ.L #0x10,D0 000210ea 3f 20 |? | MOVE.W -(A0),-(A7) 000210ec 51 c8 ff fc |Q | DBF D0,0x210ea 000210f0 59 4f |YO | SUBQ.L #0x4,A7 000210f2 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000210f6 3f 01 |? | MOVE.W D1,-(A7) 000210f8 3f 02 |? | MOVE.W D2,-(A7) 000210fa 4e 91 |N | JSR (A1) 000210fc 50 4f |PO | ADDQ.L #0x8,A7 000210fe 4e 92 |N | JSR (A2) 00021100 de fc 00 24 | $ | ADDA.W #0x24,A7 00021104 42 17 |B | CLR.B (A7) 00021106 48 78 00 01 |Hx | PEA.L 0x1 0002110a 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00021110 5c 4f |\O | ADDQ.L #0x6,A7 00021112 4c df 07 3f |L ? | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2 00021116 4e 5e |N^ | UNLK A6 00021118 4e 75 |Nu | RTS 0002111a ; -------------------------------------------------------------------------------------- 0002111a ; OMSI PASCAL Function 0002111a ; <LVAR 0x010 4(w)> 0002111a ; <LVAR 0x00c 4(r)> 0002111a ; <LVAR 0x008 4(r)> 0002111a ; -------------------------------------------------------------------------------------- 0002111a 4e 56 ff f4 |NV | LINK.W A6,#0xfff4 0002111e bf d5 | | CMPA.L (A5),A7 00021120 62 06 |b | BHI 0x21128 00021122 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021126 4e 76 |Nv | TRAPV 00021128 de fc 00 0c | | ADDA.W #0xc,A7 0002112c 48 e7 c0 00 |H | MOVEM.L D1+D0,-(A7) 00021130 20 2e 00 0c | . | MOVE.L (A6+0xc),D0 00021134 80 ae 00 08 | | OR.L (A6+0x8),D0 00021138 22 2e 00 0c |". | MOVE.L (A6+0xc),D1 0002113c c2 ae 00 08 | | AND.L (A6+0x8),D1 00021140 44 81 |D | NEG.L D1 00021142 d2 80 | | ADD.L D0,D1 00021144 2d 41 00 10 |-A | MOVE.L D1,(A6+0x10) 00021148 4c df 00 03 |L | MOVEM.L (A7)+,D0+D1 0002114c 4e 5e |N^ | UNLK A6 0002114e 4e 75 |Nu | RTS 00021150 ; -------------------------------------------------------------------------------------- 00021150 ; OMSI PASCAL Function 00021150 ; <LVAR 0x010 2(r)> 00021150 ; <LVAR 0x00c 4(r)> 00021150 ; <LVAR 0x008 4(r)> 00021150 ; <LVAR -0x006 2(w)> 00021150 ; <LVAR -0x008 2(w)> 00021150 ; <LVAR -0x00a 2(r)> 00021150 ; <LVAR -0x00c 2(r)> 00021150 ; <LVAR -0x00e 2(w)> 00021150 ; <LVAR -0x010 2(r)> 00021150 ; <LVAR -0x012 @ 2(r)> 00021150 ; -------------------------------------------------------------------------------------- 00021150 4e 56 ff a2 |NV | LINK.W A6,#0xffa2 00021154 bf d5 | | CMPA.L (A5),A7 00021156 62 06 |b | BHI 0x2115e 00021158 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002115c 4e 76 |Nv | TRAPV 0002115e de fc 00 4c | L | ADDA.W #0x4c,A7 00021162 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7) 00021166 42 6e ff ee |Bn | CLR.W (A6-0x12) 0002116a 42 6e ff f0 |Bn | CLR.W (A6-0x10) 0002116e 3d 7c 00 02 ff f2 |=| | MOVE.W #0x2,(A6-0xe) 00021174 42 6e ff f4 |Bn | CLR.W (A6-0xc) 00021178 42 6e ff f6 |Bn | CLR.W (A6-0xa) 0002117c 30 39 00 02 25 60 |09 %` | MOVE.W 0x22560,D0 00021182 e1 40 | @ | ASL.W #0x8,D0 00021184 06 40 00 0e | @ | ADDI.W #0x000e,D0 00021188 0c 40 ff ff | @ | CMPI.W #0xffff,D0 0002118c 63 02 |c | BLS 0x21190 0002118e 4e 4f |NO | TRAP #15 00021190 3d 40 ff f8 |=@ | MOVE.W D0,(A6-0x8) 00021194 3d 6e 00 10 ff fa |=n | MOVE.W (A6+0x10),(A6-0x6) 0002119a 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 0002119e 48 6e ff ee |Hn | PEA.L (A6-0x12) 000211a2 22 48 |"H | MOVEA.L A0,A1 000211a4 2f 09 |/ | MOVE.L A1,-(A7) 000211a6 42 67 |Bg | CLR.W -(A7) 000211a8 4e b9 00 01 02 04 |N | JSR KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W) 000211ae de fc 00 0a | | ADDA.W #0xa,A7 000211b2 22 6e 00 08 |"n | MOVEA.L (A6+0x8),A1 000211b6 42 67 |Bg | CLR.W -(A7) 000211b8 48 51 |HQ | PEA.L (A1) 000211ba 4e b9 00 01 02 06 |N | JSR KC03_Wait_Disk_IO(a : W; VAR status : Byte) 000211c0 5c 4f |\O | ADDQ.L #0x6,A7 000211c2 02 50 00 ff | P | ANDI.W #0x00ff,(A0) 000211c6 4a 11 |J | TST.B (A1) 000211c8 66 4a |fJ | BNE 0x21214 000211ca 9e fc 00 24 | $ | SUBA.W #0x24,A7 000211ce 20 4f | O | MOVEA.L A7,A0 000211d0 43 fa f2 00 |C | LEA.L 0x203d2,A1 000211d4 70 22 |p" | MOVEQ.L #0x22,D0 000211d6 10 d9 | | MOVE.B (A1)+,(A0)+ 000211d8 51 c8 ff fc |Q | DBF D0,0x211d6 000211dc 51 4f |QO | SUBQ.L #0x8,A7 000211de 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000211e2 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000211e6 3f 3c 00 23 |?< # | MOVE.W #0x23,-(A7) 000211ea 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000211f0 58 4f |XO | ADDQ.L #0x4,A7 000211f2 42 80 |B | CLR.L D0 000211f4 30 2e 00 10 |0. | MOVE.W (A6+0x10),D0 000211f8 2f 00 |/ | MOVE.L D0,-(A7) 000211fa 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00021200 58 4f |XO | ADDQ.L #0x4,A7 00021202 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00021208 50 4f |PO | ADDQ.L #0x8,A7 0002120a 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00021210 de fc 00 28 | ( | ADDA.W #0x28,A7 00021214 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1 00021218 4e 5e |N^ | UNLK A6 0002121a 4e 75 |Nu | RTS 0002121c ; -------------------------------------------------------------------------------------- 0002121c ; OMSI PASCAL Function 0002121c ; <LVAR 0x00e 2(r)> 0002121c ; <LVAR 0x00c 2(rw)> 0002121c ; <LVAR 0x008 4(r)> 0002121c ; <LVAR -0x004 @ 2(r)> 0002121c ; <LVAR -0x006 2(w)> 0002121c ; <LVAR -0x008 2(w)> 0002121c ; <LVAR -0x00a 2(w)> 0002121c ; <LVAR -0x00c 2(r)> 0002121c ; <LVAR -0x00e 2(r)> 0002121c ; <LVAR -0x010 2(w)> 0002121c ; <LVAR -0x012 2(r)> 0002121c ; <LVAR -0x014 @ 2(r)> 0002121c ; -------------------------------------------------------------------------------------- 0002121c 4e 56 ff 7a |NV z | LINK.W A6,#0xff7a 00021220 bf d5 | | CMPA.L (A5),A7 00021222 62 06 |b | BHI 0x2122a 00021224 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021228 4e 76 |Nv | TRAPV 0002122a de fc 00 72 | r | ADDA.W #0x72,A7 0002122e 48 e7 f8 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D4+D3+D2+D1+D0,-(A7) 00021232 47 ee 00 0c |G | LEA.L (A6+0xc),A3 00021236 49 f9 00 01 02 c4 |I | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A4 0002123c 72 01 |r | MOVEQ.L #0x01,D1 0002123e 74 0a |t | MOVEQ.L #0x0a,D2 00021240 76 36 |v6 | MOVEQ.L #0x36,D3 00021242 78 14 |x | MOVEQ.L #0x14,D4 00021244 02 53 00 ff | S | ANDI.W #0x00ff,(A3) 00021248 42 6e ff ec |Bn | CLR.W (A6-0x14) 0002124c 42 6e ff ee |Bn | CLR.W (A6-0x12) 00021250 3d 7c 00 02 ff f0 |=| | MOVE.W #0x2,(A6-0x10) 00021256 42 6e ff f2 |Bn | CLR.W (A6-0xe) 0002125a 42 6e ff f4 |Bn | CLR.W (A6-0xc) 0002125e 30 39 00 02 25 60 |09 %` | MOVE.W 0x22560,D0 00021264 e1 40 | @ | ASL.W #0x8,D0 00021266 06 40 00 0f | @ | ADDI.W #0x000f,D0 0002126a 0c 40 ff ff | @ | CMPI.W #0xffff,D0 0002126e 63 02 |c | BLS 0x21272 00021270 4e 4f |NO | TRAP #15 00021272 3d 40 ff f6 |=@ | MOVE.W D0,(A6-0xa) 00021276 3d 6e 00 0e ff f8 |=n | MOVE.W (A6+0xe),(A6-0x8) 0002127c 3d 53 ff fa |=S | MOVE.W (A3),(A6-0x6) 00021280 48 6e ff ec |Hn | PEA.L (A6-0x14) 00021284 48 78 00 00 |Hx | PEA.L 0x0 00021288 42 67 |Bg | CLR.W -(A7) 0002128a 4e b9 00 01 02 04 |N | JSR KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W) 00021290 de c2 | | ADDA.W D2,A7 00021292 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00021296 42 67 |Bg | CLR.W -(A7) 00021298 48 50 |HP | PEA.L (A0) 0002129a 4e b9 00 01 02 06 |N | JSR KC03_Wait_Disk_IO(a : W; VAR status : Byte) 000212a0 5c 4f |\O | ADDQ.L #0x6,A7 000212a2 4a 10 |J | TST.B (A0) 000212a4 67 00 00 c6 |g | BEQ 0x2136c 000212a8 3f 2e 00 0e |?. | MOVE.W (A6+0xe),-(A7) 000212ac 48 6e ff fc |Hn | PEA.L (A6-0x4) 000212b0 48 50 |HP | PEA.L (A0) 000212b2 4e ba fe 9c |N | JSR 0x21150 000212b6 de c2 | | ADDA.W D2,A7 000212b8 4a 10 |J | TST.B (A0) 000212ba 67 00 00 b0 |g | BEQ 0x2136c 000212be 30 13 |0 | MOVE.W (A3),D0 000212c0 b0 6e ff fc | n | CMP.W (A6-0x4),D0 000212c4 67 00 00 a6 |g | BEQ 0x2136c 000212c8 9e c3 | | SUBA.W D3,A7 000212ca 22 4f |"O | MOVEA.L A7,A1 000212cc 45 fa f1 4c |E L | LEA.L 0x2041a,A2 000212d0 70 34 |p4 | MOVEQ.L #0x34,D0 000212d2 12 da | | MOVE.B (A2)+,(A1)+ 000212d4 51 c8 ff fc |Q | DBF D0,0x212d2 000212d8 59 4f |YO | SUBQ.L #0x4,A7 000212da 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000212de 3f 01 |? | MOVE.W D1,-(A7) 000212e0 3f 3c 00 35 |?< 5 | MOVE.W #0x35,-(A7) 000212e4 4e 94 |N | JSR (A4) 000212e6 50 4f |PO | ADDQ.L #0x8,A7 000212e8 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000212ee de c3 | | ADDA.W D3,A7 000212f0 2e ba f1 6a |. j | MOVE.L 0x2045c,(A7) 000212f4 2f 3a f1 62 |/: b | MOVE.L 0x20458,-(A7) 000212f8 2f 3a f1 5a |/: Z | MOVE.L 0x20454,-(A7) 000212fc 2f 3a f1 52 |/: R | MOVE.L 0x20450,-(A7) 00021300 51 4f |QO | SUBQ.L #0x8,A7 00021302 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00021306 3f 01 |? | MOVE.W D1,-(A7) 00021308 3f 3c 00 10 |?< | MOVE.W #0x10,-(A7) 0002130c 4e 94 |N | JSR (A4) 0002130e 58 4f |XO | ADDQ.L #0x4,A7 00021310 42 80 |B | CLR.L D0 00021312 30 13 |0 | MOVE.W (A3),D0 00021314 2f 00 |/ | MOVE.L D0,-(A7) 00021316 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 0002131c 58 4f |XO | ADDQ.L #0x4,A7 0002131e 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00021324 50 4f |PO | ADDQ.L #0x8,A7 00021326 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002132c de c4 | | ADDA.W D4,A7 0002132e 43 fa f1 44 |C D | LEA.L 0x20474,A1 00021332 70 04 |p | MOVEQ.L #0x04,D0 00021334 2f 21 |/! | MOVE.L -(A1),-(A7) 00021336 51 c8 ff fc |Q | DBF D0,0x21334 0002133a 51 4f |QO | SUBQ.L #0x8,A7 0002133c 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00021340 3f 01 |? | MOVE.W D1,-(A7) 00021342 3f 04 |? | MOVE.W D4,-(A7) 00021344 4e 94 |N | JSR (A4) 00021346 58 4f |XO | ADDQ.L #0x4,A7 00021348 42 80 |B | CLR.L D0 0002134a 30 2e ff fc |0. | MOVE.W (A6-0x4),D0 0002134e 2f 00 |/ | MOVE.L D0,-(A7) 00021350 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00021356 58 4f |XO | ADDQ.L #0x4,A7 00021358 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 0002135e 50 4f |PO | ADDQ.L #0x8,A7 00021360 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00021366 de fc 00 18 | | ADDA.W #0x18,A7 0002136a 42 10 |B | CLR.B (A0) 0002136c 4a 10 |J | TST.B (A0) 0002136e 66 44 |fD | BNE 0x213b4 00021370 9e fc 00 24 | $ | SUBA.W #0x24,A7 00021374 20 4f | O | MOVEA.L A7,A0 00021376 43 fa f0 7e |C ~ | LEA.L 0x203f6,A1 0002137a 70 22 |p" | MOVEQ.L #0x22,D0 0002137c 10 d9 | | MOVE.B (A1)+,(A0)+ 0002137e 51 c8 ff fc |Q | DBF D0,0x2137c 00021382 51 4f |QO | SUBQ.L #0x8,A7 00021384 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00021388 3f 01 |? | MOVE.W D1,-(A7) 0002138a 3f 3c 00 23 |?< # | MOVE.W #0x23,-(A7) 0002138e 4e 94 |N | JSR (A4) 00021390 58 4f |XO | ADDQ.L #0x4,A7 00021392 42 80 |B | CLR.L D0 00021394 30 2e 00 0e |0. | MOVE.W (A6+0xe),D0 00021398 2f 00 |/ | MOVE.L D0,-(A7) 0002139a 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 000213a0 58 4f |XO | ADDQ.L #0x4,A7 000213a2 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000213a8 50 4f |PO | ADDQ.L #0x8,A7 000213aa 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000213b0 de fc 00 28 | ( | ADDA.W #0x28,A7 000213b4 4c df 1f 1f |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+A0+A1+A2+A3+A4 000213b8 4e 5e |N^ | UNLK A6 000213ba 4e 75 |Nu | RTS 000213bc ; -------------------------------------------------------------------------------------- 000213bc ; OMSI PASCAL Function 000213bc ; <LVAR -0x004 @ 2(r)> 000213bc ; <LVAR -0x006 @ 1(r)> 000213bc ; -------------------------------------------------------------------------------------- 000213bc 4e 56 ff a6 |NV | LINK.W A6,#0xffa6 000213c0 bf d5 | | CMPA.L (A5),A7 000213c2 62 06 |b | BHI 0x213ca 000213c4 44 fc 00 02 |D | MOVE.W #0x2,CCR 000213c8 4e 76 |Nv | TRAPV 000213ca de fc 00 4e | N | ADDA.W #0x4e,A7 000213ce 48 e7 c3 f0 |H | MOVEM.L A3+A2+A1+A0+D7+D6+D1+D0,-(A7) 000213d2 43 f9 00 01 02 c4 |C | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A1 000213d8 45 f9 00 01 03 e0 |E | LEA.L WriteConsoleStringCrLf(str : String),A2 000213de 47 ee ff fa |G | LEA.L (A6-0x6),A3 000213e2 72 01 |r | MOVEQ.L #0x01,D1 000213e4 41 fa f0 a2 |A | LEA.L 0x20488,A0 000213e8 70 04 |p | MOVEQ.L #0x04,D0 000213ea 2f 20 |/ | MOVE.L -(A0),-(A7) 000213ec 51 c8 ff fc |Q | DBF D0,0x213ea 000213f0 59 4f |YO | SUBQ.L #0x4,A7 000213f2 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000213f6 3f 01 |? | MOVE.W D1,-(A7) 000213f8 3f 3c 00 14 |?< | MOVE.W #0x14,-(A7) 000213fc 4e 91 |N | JSR (A1) 000213fe 50 4f |PO | ADDQ.L #0x8,A7 00021400 4e 92 |N | JSR (A2) 00021402 de fc 00 18 | | ADDA.W #0x18,A7 00021406 7e 00 |~ | MOVEQ.L #0x00,D7 00021408 3c 3c 00 ff |<< | MOVE.W #0xff,D6 0002140c 0c 87 00 00 ff ff | | CMPI.L #0x0000ffff,D7 00021412 63 02 |c | BLS 0x21416 00021414 4e 4f |NO | TRAP #15 00021416 3f 07 |? | MOVE.W D7,-(A7) 00021418 48 6e ff fc |Hn | PEA.L (A6-0x4) 0002141c 48 53 |HS | PEA.L (A3) 0002141e 4e ba fd 30 |N 0 | JSR 0x21150 00021422 5c 4f |\O | ADDQ.L #0x6,A7 00021424 30 06 |0 | MOVE.W D6,D0 00021426 48 c0 |H | EXTW.L D0 00021428 2f 00 |/ | MOVE.L D0,-(A7) 0002142a 42 80 |B | CLR.L D0 0002142c 30 2e ff fc |0. | MOVE.W (A6-0x4),D0 00021430 2f 00 |/ | MOVE.L D0,-(A7) 00021432 4e ba fc e6 |N | JSR 0x2111a 00021436 50 4f |PO | ADDQ.L #0x8,A7 00021438 20 1f | | MOVE.L (A7)+,D0 0002143a 0c 80 00 00 00 ff | | CMPI.L #0x000000ff,D0 00021440 63 02 |c | BLS 0x21444 00021442 4e 4f |NO | TRAP #15 00021444 3c 00 |< | MOVE.W D0,D6 00021446 52 87 |R | ADDQ.L #0x1,D7 00021448 0c 87 00 00 04 00 | | CMPI.L #0x00000400,D7 0002144e 67 04 |g | BEQ 0x21454 00021450 4a 13 |J | TST.B (A3) 00021452 66 b8 |f | BNE 0x2140c 00021454 4a 13 |J | TST.B (A3) 00021456 67 60 |g` | BEQ 0x214b8 00021458 4a 46 |JF | TST.W D6 0002145a 66 24 |f$ | BNE 0x21480 0002145c 41 fa f0 46 |A F | LEA.L 0x204a4,A0 00021460 70 06 |p | MOVEQ.L #0x06,D0 00021462 2f 20 |/ | MOVE.L -(A0),-(A7) 00021464 51 c8 ff fc |Q | DBF D0,0x21462 00021468 59 4f |YO | SUBQ.L #0x4,A7 0002146a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002146e 3f 01 |? | MOVE.W D1,-(A7) 00021470 3f 3c 00 1c |?< | MOVE.W #0x1c,-(A7) 00021474 4e 91 |N | JSR (A1) 00021476 50 4f |PO | ADDQ.L #0x8,A7 00021478 4e 92 |N | JSR (A2) 0002147a de fc 00 20 | | ADDA.W #0x20,A7 0002147e 60 38 |`8 | BRA 0x214b8 00021480 41 fa f0 3c |A < | LEA.L 0x204be,A0 00021484 70 0c |p | MOVEQ.L #0x0c,D0 00021486 3f 20 |? | MOVE.W -(A0),-(A7) 00021488 51 c8 ff fc |Q | DBF D0,0x21486 0002148c 51 4f |QO | SUBQ.L #0x8,A7 0002148e 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00021492 3f 01 |? | MOVE.W D1,-(A7) 00021494 3f 3c 00 1a |?< | MOVE.W #0x1a,-(A7) 00021498 4e 91 |N | JSR (A1) 0002149a 58 4f |XO | ADDQ.L #0x4,A7 0002149c 30 06 |0 | MOVE.W D6,D0 0002149e 48 c0 |H | EXTW.L D0 000214a0 2f 00 |/ | MOVE.L D0,-(A7) 000214a2 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 000214a8 58 4f |XO | ADDQ.L #0x4,A7 000214aa 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000214b0 50 4f |PO | ADDQ.L #0x8,A7 000214b2 4e 92 |N | JSR (A2) 000214b4 de fc 00 1e | | ADDA.W #0x1e,A7 000214b8 4c df 0f c3 |L | MOVEM.L (A7)+,D0+D1+D6+D7+A0+A1+A2+A3 000214bc 4e 5e |N^ | UNLK A6 000214be 4e 75 |Nu | RTS 000214c0 ; -------------------------------------------------------------------------------------- 000214c0 ; OMSI PASCAL Function 000214c0 ; <LVAR -0x008 4(rw)> 000214c0 ; <LVAR -0x00c 4(rw)> 000214c0 ; <LVAR -0x010 4(w)> 000214c0 ; <LVAR -0x012 @ 1(r)> 000214c0 ; <LVAR -0x041 1(w)> 000214c0 ; <LVAR -0x042 1(w)> 000214c0 ; <LVAR -0x043 1(w)> 000214c0 ; <LVAR -0x044 1(w)> 000214c0 ; <LVAR -0x411 1(w)> 000214c0 ; <LVAR -0x413 1(r)> 000214c0 ; <LVAR -0x414 @> 000214c0 ; <LVAR -0x814 @ 1(w)> 000214c0 ; <LVAR -0x824 @ 1(w)> 000214c0 ; -------------------------------------------------------------------------------------- 000214c0 4e 56 f7 54 |NV T | LINK.W A6,#0xf754 000214c4 bf d5 | | CMPA.L (A5),A7 000214c6 62 06 |b | BHI 0x214ce 000214c8 44 fc 00 02 |D | MOVE.W #0x2,CCR 000214cc 4e 76 |Nv | TRAPV 000214ce de fc 00 88 | | ADDA.W #0x88,A7 000214d2 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 000214d6 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 000214dc 47 f9 00 01 03 e0 |G | LEA.L WriteConsoleStringCrLf(str : String),A3 000214e2 49 ee fb ec |I | LEA.L (A6-0x414),A4 000214e6 30 39 00 02 25 60 |09 %` | MOVE.W 0x22560,D0 000214ec e4 40 | @ | ASR.W #0x2,D0 000214ee 48 c0 |H | EXTW.L D0 000214f0 2d 40 ff f0 |-@ | MOVE.L D0,(A6-0x10) 000214f4 20 4c | L | MOVEA.L A4,A0 000214f6 43 fa f4 b8 |C | LEA.L 0x209b0,A1 000214fa 32 3c 00 ff |2< | MOVE.W #0xff,D1 000214fe 20 d9 | | MOVE.L (A1)+,(A0)+ 00021500 51 c9 ff fc |Q | DBF D1,0x214fe 00021504 42 2e fb ed |B. | CLR.B (A6-0x413) 00021508 0c 80 00 00 00 03 | | CMPI.L #0x00000003,D0 0002150e 63 02 |c | BLS 0x21512 00021510 4e 4f |NO | TRAP #15 00021512 28 00 |( | MOVE.L D0,D4 00021514 76 0a |v | MOVEQ.L #0x0a,D3 00021516 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4 0002151c 41 fa f8 92 |A | LEA.L 0x20db0,A0 00021520 1d 70 48 01 fb ef | pH | MOVE.B (A0+D4.L+#0x1),(A6-0x411) 00021526 41 fa f8 88 |A | LEA.L 0x20db0,A0 0002152a 1d 70 48 03 ff bc | pH | MOVE.B (A0+D4.L+#0x3),(A6-0x44) 00021530 41 fa f8 7e |A ~ | LEA.L 0x20db0,A0 00021534 1d 70 48 05 ff bd | pH | MOVE.B (A0+D4.L+#0x5),(A6-0x43) 0002153a 41 fa f8 74 |A t | LEA.L 0x20db0,A0 0002153e 1d 70 48 07 ff be | pH | MOVE.B (A0+D4.L+#0x7),(A6-0x42) 00021544 41 fa f8 6a |A j | LEA.L 0x20db0,A0 00021548 1d 70 48 09 ff bf | pH | MOVE.B (A0+D4.L+#0x9),(A6-0x41) 0002154e 70 00 |p | MOVEQ.L #0x00,D0 00021550 2f 00 |/ | MOVE.L D0,-(A7) 00021552 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 00021558 9e fc 00 1c | | SUBA.W #0x1c,A7 0002155c 20 4f | O | MOVEA.L A7,A0 0002155e 43 fa ef 5e |C ^ | LEA.L 0x204be,A1 00021562 72 1a |r | MOVEQ.L #0x1a,D1 00021564 10 d9 | | MOVE.B (A1)+,(A0)+ 00021566 51 c9 ff fc |Q | DBF D1,0x21564 0002156a 51 4f |QO | SUBQ.L #0x8,A7 0002156c 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00021570 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00021574 3f 3c 00 1b |?< | MOVE.W #0x1b,-(A7) 00021578 4e 92 |N | JSR (A2) 0002157a 2e 80 |. | MOVE.L D0,(A7) 0002157c 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00021582 58 4f |XO | ADDQ.L #0x4,A7 00021584 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 0002158a 50 4f |PO | ADDQ.L #0x8,A7 0002158c 4e 93 |N | JSR (A3) 0002158e de fc 00 1c | | ADDA.W #0x1c,A7 00021592 2e ba ef 7a |. z | MOVE.L 0x2050e,(A7) 00021596 2f 3a ef 72 |/: r | MOVE.L 0x2050a,-(A7) 0002159a 2f 3a ef 6a |/: j | MOVE.L 0x20506,-(A7) 0002159e 2f 3a ef 62 |/: b | MOVE.L 0x20502,-(A7) 000215a2 59 4f |YO | SUBQ.L #0x4,A7 000215a4 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000215a8 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000215ac 3f 3c 00 10 |?< | MOVE.W #0x10,-(A7) 000215b0 4e 92 |N | JSR (A2) 000215b2 50 4f |PO | ADDQ.L #0x8,A7 000215b4 4e 93 |N | JSR (A3) 000215b6 9e fc 00 22 | " | SUBA.W #0x22,A7 000215ba 20 4f | O | MOVEA.L A7,A0 000215bc 43 fa ef 54 |C T | LEA.L 0x20512,A1 000215c0 72 34 |r4 | MOVEQ.L #0x34,D1 000215c2 10 d9 | | MOVE.B (A1)+,(A0)+ 000215c4 51 c9 ff fc |Q | DBF D1,0x215c2 000215c8 59 4f |YO | SUBQ.L #0x4,A7 000215ca 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000215ce 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000215d2 3f 3c 00 35 |?< 5 | MOVE.W #0x35,-(A7) 000215d6 4e 92 |N | JSR (A2) 000215d8 50 4f |PO | ADDQ.L #0x8,A7 000215da 4e 93 |N | JSR (A3) 000215dc de fc 00 1a | | ADDA.W #0x1a,A7 000215e0 20 4f | O | MOVEA.L A7,A0 000215e2 43 fa ef 64 |C d | LEA.L 0x20548,A1 000215e6 72 1e |r | MOVEQ.L #0x1e,D1 000215e8 10 d9 | | MOVE.B (A1)+,(A0)+ 000215ea 51 c9 ff fc |Q | DBF D1,0x215e8 000215ee 59 4f |YO | SUBQ.L #0x4,A7 000215f0 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000215f4 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000215f8 3f 3c 00 1f |?< | MOVE.W #0x1f,-(A7) 000215fc 4e 92 |N | JSR (A2) 000215fe 50 4f |PO | ADDQ.L #0x8,A7 00021600 4e 93 |N | JSR (A3) 00021602 de fc 00 24 | $ | ADDA.W #0x24,A7 00021606 41 fa ef 74 |A t | LEA.L 0x2057c,A0 0002160a 72 04 |r | MOVEQ.L #0x04,D1 0002160c 2f 20 |/ | MOVE.L -(A0),-(A7) 0002160e 51 c9 ff fc |Q | DBF D1,0x2160c 00021612 59 4f |YO | SUBQ.L #0x4,A7 00021614 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021618 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 0002161c 3f 3c 00 14 |?< | MOVE.W #0x14,-(A7) 00021620 4e 92 |N | JSR (A2) 00021622 50 4f |PO | ADDQ.L #0x8,A7 00021624 4e 93 |N | JSR (A3) 00021626 de fc 00 18 | | ADDA.W #0x18,A7 0002162a 41 fa ef 64 |A d | LEA.L 0x20590,A0 0002162e 72 04 |r | MOVEQ.L #0x04,D1 00021630 2f 20 |/ | MOVE.L -(A0),-(A7) 00021632 51 c9 ff fc |Q | DBF D1,0x21630 00021636 59 4f |YO | SUBQ.L #0x4,A7 00021638 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002163c 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00021640 3f 3c 00 14 |?< | MOVE.W #0x14,-(A7) 00021644 4e 92 |N | JSR (A2) 00021646 50 4f |PO | ADDQ.L #0x8,A7 00021648 4e 93 |N | JSR (A3) 0002164a 58 4f |XO | ADDQ.L #0x4,A7 0002164c 20 4f | O | MOVEA.L A7,A0 0002164e 43 fa ef 40 |C @ | LEA.L 0x20590,A1 00021652 72 12 |r | MOVEQ.L #0x12,D1 00021654 10 d9 | | MOVE.B (A1)+,(A0)+ 00021656 51 c9 ff fc |Q | DBF D1,0x21654 0002165a 59 4f |YO | SUBQ.L #0x4,A7 0002165c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021660 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00021664 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7) 00021668 4e 92 |N | JSR (A2) 0002166a 50 4f |PO | ADDQ.L #0x8,A7 0002166c 4e 93 |N | JSR (A3) 0002166e 58 4f |XO | ADDQ.L #0x4,A7 00021670 20 4f | O | MOVEA.L A7,A0 00021672 43 fa ef 30 |C 0 | LEA.L 0x205a4,A1 00021676 72 12 |r | MOVEQ.L #0x12,D1 00021678 10 d9 | | MOVE.B (A1)+,(A0)+ 0002167a 51 c9 ff fc |Q | DBF D1,0x21678 0002167e 59 4f |YO | SUBQ.L #0x4,A7 00021680 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021684 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00021688 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7) 0002168c 4e 92 |N | JSR (A2) 0002168e 50 4f |PO | ADDQ.L #0x8,A7 00021690 4e 93 |N | JSR (A3) 00021692 9e fc 00 12 | | SUBA.W #0x12,A7 00021696 20 4f | O | MOVEA.L A7,A0 00021698 43 fa ef 1e |C | LEA.L 0x205b8,A1 0002169c 72 28 |r( | MOVEQ.L #0x28,D1 0002169e 10 d9 | | MOVE.B (A1)+,(A0)+ 000216a0 51 c9 ff fc |Q | DBF D1,0x2169e 000216a4 59 4f |YO | SUBQ.L #0x4,A7 000216a6 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000216aa 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000216ae 3f 3c 00 29 |?< ) | MOVE.W #0x29,-(A7) 000216b2 4e 92 |N | JSR (A2) 000216b4 50 4f |PO | ADDQ.L #0x8,A7 000216b6 4e 93 |N | JSR (A3) 000216b8 58 4f |XO | ADDQ.L #0x4,A7 000216ba 20 4f | O | MOVEA.L A7,A0 000216bc 43 fa ef 24 |C $ | LEA.L 0x205e2,A1 000216c0 72 28 |r( | MOVEQ.L #0x28,D1 000216c2 10 d9 | | MOVE.B (A1)+,(A0)+ 000216c4 51 c9 ff fc |Q | DBF D1,0x216c2 000216c8 59 4f |YO | SUBQ.L #0x4,A7 000216ca 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000216ce 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000216d2 3f 3c 00 29 |?< ) | MOVE.W #0x29,-(A7) 000216d6 4e 92 |N | JSR (A2) 000216d8 50 4f |PO | ADDQ.L #0x8,A7 000216da 4e 93 |N | JSR (A3) 000216dc de fc 00 2e | . | ADDA.W #0x2e,A7 000216e0 41 fa ef 3e |A > | LEA.L 0x20620,A0 000216e4 72 04 |r | MOVEQ.L #0x04,D1 000216e6 2f 20 |/ | MOVE.L -(A0),-(A7) 000216e8 51 c9 ff fc |Q | DBF D1,0x216e6 000216ec 59 4f |YO | SUBQ.L #0x4,A7 000216ee 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000216f2 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000216f6 3f 3c 00 14 |?< | MOVE.W #0x14,-(A7) 000216fa 4e 92 |N | JSR (A2) 000216fc 50 4f |PO | ADDQ.L #0x8,A7 000216fe 4e 93 |N | JSR (A3) 00021700 de fc 00 0a | | ADDA.W #0xa,A7 00021704 20 4f | O | MOVEA.L A7,A0 00021706 43 fa ef 18 |C | LEA.L 0x20620,A1 0002170a 72 0c |r | MOVEQ.L #0x0c,D1 0002170c 10 d9 | | MOVE.B (A1)+,(A0)+ 0002170e 51 c9 ff fc |Q | DBF D1,0x2170c 00021712 59 4f |YO | SUBQ.L #0x4,A7 00021714 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021718 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 0002171c 3f 3c 00 0d |?< | MOVE.W #0xd,-(A7) 00021720 4e 92 |N | JSR (A2) 00021722 50 4f |PO | ADDQ.L #0x8,A7 00021724 4e 93 |N | JSR (A3) 00021726 55 4f |UO | SUBQ.L #0x2,A7 00021728 20 4f | O | MOVEA.L A7,A0 0002172a 43 fa ef 02 |C | LEA.L 0x2062e,A1 0002172e 72 12 |r | MOVEQ.L #0x12,D1 00021730 10 d9 | | MOVE.B (A1)+,(A0)+ 00021732 51 c9 ff fc |Q | DBF D1,0x21730 00021736 51 4f |QO | SUBQ.L #0x8,A7 00021738 48 6f 00 08 |Ho | PEA.L (A7+0x8) 0002173c 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00021740 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7) 00021744 4e 92 |N | JSR (A2) 00021746 50 4f |PO | ADDQ.L #0x8,A7 00021748 48 78 00 00 |Hx | PEA.L 0x0 0002174c 48 78 00 09 |Hx | PEA.L 0x9 00021750 4e b9 00 01 03 ec |N | JSR AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long 00021756 de fc 00 0c | | ADDA.W #0xc,A7 0002175a 12 2f 00 03 | / | MOVE.B (A7+0x3),D1 0002175e 48 81 |H | EXTB.W D1 00021760 43 bc 00 09 |C | CHK.W #0x9,D1 00021764 de fc 00 18 | | ADDA.W #0x18,A7 00021768 1d 41 f7 dc | A | MOVE.B D1,(A6-0x824) 0002176c 4a 01 |J | TST.B D1 0002176e 67 00 00 b4 |g | BEQ 0x21824 00021772 0c 80 00 00 00 07 | | CMPI.L #0x00000007,D0 00021778 63 02 |c | BLS 0x2177c 0002177a 4e 4f |NO | TRAP #15 0002177c 20 4c | L | MOVEA.L A4,A0 0002177e 48 81 |H | EXTB.W D1 00021780 43 bc 00 09 |C | CHK.W #0x9,D1 00021784 e7 41 | A | ASL.W #0x3,D1 00021786 43 fa f6 50 |C P | LEA.L 0x20dd8,A1 0002178a 42 82 |B | CLR.L D2 0002178c 14 30 08 08 | 0 | MOVE.B (A0+D0.L+#0x8),D2 00021790 42 83 |B | CLR.L D3 00021792 16 31 10 05 | 1 | MOVE.B (A1+D1.W+#0x5),D3 00021796 86 42 | B | OR.W D2,D3 00021798 11 83 08 08 | | MOVE.B D3,(A0+D0.L+#0x8) 0002179c 43 fa f6 3a |C : | LEA.L 0x20dd8,A1 000217a0 42 82 |B | CLR.L D2 000217a2 14 30 08 10 | 0 | MOVE.B (A0+D0.L+#0x10),D2 000217a6 42 83 |B | CLR.L D3 000217a8 16 31 10 04 | 1 | MOVE.B (A1+D1.W+#0x4),D3 000217ac 86 42 | B | OR.W D2,D3 000217ae 11 83 08 10 | | MOVE.B D3,(A0+D0.L+#0x10) 000217b2 43 fa f6 24 |C $ | LEA.L 0x20dd8,A1 000217b6 42 82 |B | CLR.L D2 000217b8 14 30 08 28 | 0 ( | MOVE.B (A0+D0.L+#0x28),D2 000217bc 42 83 |B | CLR.L D3 000217be 16 31 10 06 | 1 | MOVE.B (A1+D1.W+#0x6),D3 000217c2 86 42 | B | OR.W D2,D3 000217c4 11 83 08 28 | ( | MOVE.B D3,(A0+D0.L+#0x28) 000217c8 0c 80 00 00 00 7f | | CMPI.L #0x0000007f,D0 000217ce 63 02 |c | BLS 0x217d2 000217d0 4e 4f |NO | TRAP #15 000217d2 41 f0 08 00 |A | LEA.L (A0+D0.L),A0 000217d6 43 fa f6 00 |C | LEA.L 0x20dd8,A1 000217da 11 71 10 03 00 d0 | q | MOVE.B (A1+D1.W+#0x3),(A0+0xd0) 000217e0 43 fa f5 f6 |C | LEA.L 0x20dd8,A1 000217e4 11 71 10 03 02 d0 | q | MOVE.B (A1+D1.W+#0x3),(A0+0x2d0) 000217ea 43 fa f5 ec |C | LEA.L 0x20dd8,A1 000217ee 11 71 10 02 01 50 | q P | MOVE.B (A1+D1.W+#0x2),(A0+0x150) 000217f4 43 fa f5 e2 |C | LEA.L 0x20dd8,A1 000217f8 11 71 10 02 03 50 | q P | MOVE.B (A1+D1.W+#0x2),(A0+0x350) 000217fe 43 fa f5 d8 |C | LEA.L 0x20dd8,A1 00021802 34 31 10 00 |41 | MOVE.W (A1+D1.W),D2 00021806 02 42 00 ff | B | ANDI.W #0x00ff,D2 0002180a 11 42 01 d0 | B | MOVE.B D2,(A0+0x1d0) 0002180e 43 fa f5 c8 |C | LEA.L 0x20dd8,A1 00021812 32 31 10 00 |21 | MOVE.W (A1+D1.W),D1 00021816 e0 49 | I | LSR.W #0x8,D1 00021818 02 41 00 ff | A | ANDI.W #0x00ff,D1 0002181c 11 41 02 50 | A P | MOVE.B D1,(A0+0x250) 00021820 60 00 01 d2 |` | BRA 0x219f4 00021824 41 fa ee 42 |A B | LEA.L 0x20668,A0 00021828 72 12 |r | MOVEQ.L #0x12,D1 0002182a 3f 20 |? | MOVE.W -(A0),-(A7) 0002182c 51 c9 ff fc |Q | DBF D1,0x2182a 00021830 5d 4f |]O | SUBQ.L #0x6,A7 00021832 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00021836 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 0002183a 3f 3c 00 26 |?< & | MOVE.W #0x26,-(A7) 0002183e 4e 92 |N | JSR (A2) 00021840 5c 4f |\O | ADDQ.L #0x6,A7 00021842 1e bc 00 01 | | MOVE.B #0x01,(A7) 00021846 4e b9 00 01 03 f0 |N | JSR AskOnConsoleYesNo(prompt : String; default : Bool) : Bool 0002184c 5c 4f |\O | ADDQ.L #0x6,A7 0002184e 4a 1f |J | TST.B (A7)+ 00021850 67 1a |g | BEQ 0x2186c 00021852 0c 80 00 00 00 07 | | CMPI.L #0x00000007,D0 00021858 63 02 |c | BLS 0x2185c 0002185a 4e 4f |NO | TRAP #15 0002185c 20 4c | L | MOVEA.L A4,A0 0002185e 42 81 |B | CLR.L D1 00021860 12 30 08 10 | 0 | MOVE.B (A0+D0.L+#0x10),D1 00021864 00 41 00 01 | A | ORI.W #0x0001,D1 00021868 11 81 08 10 | | MOVE.B D1,(A0+D0.L+#0x10) 0002186c de fc 00 26 | & | ADDA.W #0x26,A7 00021870 41 fa ee 24 |A $ | LEA.L 0x20696,A0 00021874 72 16 |r | MOVEQ.L #0x16,D1 00021876 3f 20 |? | MOVE.W -(A0),-(A7) 00021878 51 c9 ff fc |Q | DBF D1,0x21876 0002187c 5d 4f |]O | SUBQ.L #0x6,A7 0002187e 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00021882 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00021886 3f 3c 00 2e |?< . | MOVE.W #0x2e,-(A7) 0002188a 4e 92 |N | JSR (A2) 0002188c 5c 4f |\O | ADDQ.L #0x6,A7 0002188e 42 17 |B | CLR.B (A7) 00021890 4e b9 00 01 03 f0 |N | JSR AskOnConsoleYesNo(prompt : String; default : Bool) : Bool 00021896 5c 4f |\O | ADDQ.L #0x6,A7 00021898 4a 1f |J | TST.B (A7)+ 0002189a 67 1a |g | BEQ 0x218b6 0002189c 0c 80 00 00 00 07 | | CMPI.L #0x00000007,D0 000218a2 63 02 |c | BLS 0x218a6 000218a4 4e 4f |NO | TRAP #15 000218a6 20 4c | L | MOVEA.L A4,A0 000218a8 42 81 |B | CLR.L D1 000218aa 12 30 08 28 | 0 ( | MOVE.B (A0+D0.L+#0x28),D1 000218ae 00 41 00 80 | A | ORI.W #0x0080,D1 000218b2 11 81 08 28 | ( | MOVE.B D1,(A0+D0.L+#0x28) 000218b6 de fc 00 2e | . | ADDA.W #0x2e,A7 000218ba 41 fa ee 08 |A | LEA.L 0x206c4,A0 000218be 72 16 |r | MOVEQ.L #0x16,D1 000218c0 3f 20 |? | MOVE.W -(A0),-(A7) 000218c2 51 c9 ff fc |Q | DBF D1,0x218c0 000218c6 51 4f |QO | SUBQ.L #0x8,A7 000218c8 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000218cc 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000218d0 3f 3c 00 2e |?< . | MOVE.W #0x2e,-(A7) 000218d4 4e 92 |N | JSR (A2) 000218d6 50 4f |PO | ADDQ.L #0x8,A7 000218d8 48 78 00 01 |Hx | PEA.L 0x1 000218dc 48 78 40 00 |Hx@ | PEA.L 0x4000 000218e0 4e b9 00 01 03 ec |N | JSR AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long 000218e6 de fc 00 0c | | ADDA.W #0xc,A7 000218ea 2d 5f ff f4 |-_ | MOVE.L (A7)+,(A6-0xc) 000218ee de fc 00 2e | . | ADDA.W #0x2e,A7 000218f2 41 fa ed fa |A | LEA.L 0x206ee,A0 000218f6 72 14 |r | MOVEQ.L #0x14,D1 000218f8 3f 20 |? | MOVE.W -(A0),-(A7) 000218fa 51 c9 ff fc |Q | DBF D1,0x218f8 000218fe 51 4f |QO | SUBQ.L #0x8,A7 00021900 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00021904 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00021908 3f 3c 00 2a |?< * | MOVE.W #0x2a,-(A7) 0002190c 4e 92 |N | JSR (A2) 0002190e 50 4f |PO | ADDQ.L #0x8,A7 00021910 48 78 00 01 |Hx | PEA.L 0x1 00021914 48 78 00 ff |Hx | PEA.L 0xff 00021918 4e b9 00 01 03 ec |N | JSR AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long 0002191e de fc 00 0c | | ADDA.W #0xc,A7 00021922 2d 5f ff f8 |-_ | MOVE.L (A7)+,(A6-0x8) 00021926 de fc 00 2a | * | ADDA.W #0x2a,A7 0002192a 41 fa ed f8 |A | LEA.L 0x20724,A0 0002192e 70 1a |p | MOVEQ.L #0x1a,D0 00021930 3f 20 |? | MOVE.W -(A0),-(A7) 00021932 51 c8 ff fc |Q | DBF D0,0x21930 00021936 51 4f |QO | SUBQ.L #0x8,A7 00021938 48 6f 00 08 |Ho | PEA.L (A7+0x8) 0002193c 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00021940 3f 3c 00 36 |?< 6 | MOVE.W #0x36,-(A7) 00021944 4e 92 |N | JSR (A2) 00021946 50 4f |PO | ADDQ.L #0x8,A7 00021948 48 78 00 01 |Hx | PEA.L 0x1 0002194c 48 78 00 ff |Hx | PEA.L 0xff 00021950 4e b9 00 01 03 ec |N | JSR AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long 00021956 de fc 00 0c | | ADDA.W #0xc,A7 0002195a 2c 1f |, | MOVE.L (A7)+,D6 0002195c de fc 00 36 | 6 | ADDA.W #0x36,A7 00021960 20 06 | | MOVE.L D6,D0 00021962 02 80 00 00 00 01 | | ANDI.L #0x00000001,D0 00021968 67 24 |g$ | BEQ 0x2198e 0002196a 41 fa eb 96 |A | LEA.L 0x20502,A0 0002196e 72 09 |r | MOVEQ.L #0x09,D1 00021970 2f 20 |/ | MOVE.L -(A0),-(A7) 00021972 51 c9 ff fc |Q | DBF D1,0x21970 00021976 59 4f |YO | SUBQ.L #0x4,A7 00021978 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002197c 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00021980 3f 3c 00 28 |?< ( | MOVE.W #0x28,-(A7) 00021984 4e 92 |N | JSR (A2) 00021986 50 4f |PO | ADDQ.L #0x8,A7 00021988 4e 93 |N | JSR (A3) 0002198a de fc 00 2c | , | ADDA.W #0x2c,A7 0002198e 4a 80 |J | TST.L D0 00021990 66 98 |f | BNE 0x2192a 00021992 20 17 | | MOVE.L (A7),D0 00021994 0c 80 00 00 00 7f | | CMPI.L #0x0000007f,D0 0002199a 63 02 |c | BLS 0x2199e 0002199c 4e 4f |NO | TRAP #15 0002199e 20 4c | L | MOVEA.L A4,A0 000219a0 41 f0 08 00 |A | LEA.L (A0+D0.L),A0 000219a4 0c 86 00 00 00 ff | | CMPI.L #0x000000ff,D6 000219aa 63 02 |c | BLS 0x219ae 000219ac 4e 4f |NO | TRAP #15 000219ae 11 46 00 d0 | F | MOVE.B D6,(A0+0xd0) 000219b2 11 46 02 d0 | F | MOVE.B D6,(A0+0x2d0) 000219b6 20 2e ff f8 | . | MOVE.L (A6-0x8),D0 000219ba 0c 80 00 00 00 ff | | CMPI.L #0x000000ff,D0 000219c0 63 02 |c | BLS 0x219c4 000219c2 4e 4f |NO | TRAP #15 000219c4 11 40 01 50 | @ P | MOVE.B D0,(A0+0x150) 000219c8 11 40 03 50 | @ P | MOVE.B D0,(A0+0x350) 000219cc 20 2e ff f4 | . | MOVE.L (A6-0xc),D0 000219d0 02 80 00 00 00 ff | | ANDI.L #0x000000ff,D0 000219d6 11 40 01 d0 | @ | MOVE.B D0,(A0+0x1d0) 000219da 28 2e ff f4 |(. | MOVE.L (A6-0xc),D4 000219de 26 3c 00 00 01 00 |&< | MOVE.L #0x100,D3 000219e4 4e b9 00 01 02 94 |N | JSR ?divs_d3_d4 000219ea 02 84 00 00 00 ff | | ANDI.L #0x000000ff,D4 000219f0 11 44 02 50 | D P | MOVE.B D4,(A0+0x250) 000219f4 20 17 | | MOVE.L (A7),D0 000219f6 52 80 |R | ADDQ.L #0x1,D0 000219f8 0c 80 00 00 00 03 | | CMPI.L #0x00000003,D0 000219fe 6e 06 |n | BGT 0x21a06 00021a00 58 4f |XO | ADDQ.L #0x4,A7 00021a02 60 00 fb 4c |` L | BRA 0x21550 00021a06 9e fc 00 20 | | SUBA.W #0x20,A7 00021a0a 20 4f | O | MOVEA.L A7,A0 00021a0c 43 fa ed 16 |C | LEA.L 0x20724,A1 00021a10 70 22 |p" | MOVEQ.L #0x22,D0 00021a12 10 d9 | | MOVE.B (A1)+,(A0)+ 00021a14 51 c8 ff fc |Q | DBF D0,0x21a12 00021a18 5d 4f |]O | SUBQ.L #0x6,A7 00021a1a 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00021a1e 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00021a22 3f 3c 00 23 |?< # | MOVE.W #0x23,-(A7) 00021a26 4e 92 |N | JSR (A2) 00021a28 5c 4f |\O | ADDQ.L #0x6,A7 00021a2a 1e bc 00 01 | | MOVE.B #0x01,(A7) 00021a2e 4e b9 00 01 03 f0 |N | JSR AskOnConsoleYesNo(prompt : String; default : Bool) : Bool 00021a34 5c 4f |\O | ADDQ.L #0x6,A7 00021a36 4a 1f |J | TST.B (A7)+ 00021a38 67 00 01 20 |g | BEQ 0x21b5a 00021a3c 41 fa ed 1c |A | LEA.L 0x2075a,A0 00021a40 70 08 |p | MOVEQ.L #0x08,D0 00021a42 3f 20 |? | MOVE.W -(A0),-(A7) 00021a44 51 c8 ff fc |Q | DBF D0,0x21a42 00021a48 59 4f |YO | SUBQ.L #0x4,A7 00021a4a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021a4e 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00021a52 3f 3c 00 12 |?< | MOVE.W #0x12,-(A7) 00021a56 4e 92 |N | JSR (A2) 00021a58 50 4f |PO | ADDQ.L #0x8,A7 00021a5a 4e 93 |N | JSR (A3) 00021a5c de fc 00 16 | | ADDA.W #0x16,A7 00021a60 41 ee f7 ec |A | LEA.L (A6-0x814),A0 00021a64 22 4c |"L | MOVEA.L A4,A1 00021a66 30 3c 00 ff |0< | MOVE.W #0xff,D0 00021a6a 20 d9 | | MOVE.L (A1)+,(A0)+ 00021a6c 51 c8 ff fc |Q | DBF D0,0x21a6a 00021a70 3a 3c 00 ff |:< | MOVE.W #0xff,D5 00021a74 7e 01 |~ | MOVEQ.L #0x01,D7 00021a76 59 4f |YO | SUBQ.L #0x4,A7 00021a78 30 05 |0 | MOVE.W D5,D0 00021a7a 48 c0 |H | EXTW.L D0 00021a7c 2f 00 |/ | MOVE.L D0,-(A7) 00021a7e 0c 87 00 00 03 ff | | CMPI.L #0x000003ff,D7 00021a84 63 02 |c | BLS 0x21a88 00021a86 4e 4f |NO | TRAP #15 00021a88 41 ee f7 dc |A | LEA.L (A6-0x824),A0 00021a8c 42 80 |B | CLR.L D0 00021a8e 10 30 78 10 | 0x | MOVE.B (A0+D7.L+#0x10),D0 00021a92 2f 00 |/ | MOVE.L D0,-(A7) 00021a94 4e ba f6 84 |N | JSR 0x2111a 00021a98 50 4f |PO | ADDQ.L #0x8,A7 00021a9a 20 1f | | MOVE.L (A7)+,D0 00021a9c 0c 80 00 00 00 ff | | CMPI.L #0x000000ff,D0 00021aa2 63 02 |c | BLS 0x21aa6 00021aa4 4e 4f |NO | TRAP #15 00021aa6 3a 00 |: | MOVE.W D0,D5 00021aa8 52 87 |R | ADDQ.L #0x1,D7 00021aaa 0c 87 00 00 03 ff | | CMPI.L #0x000003ff,D7 00021ab0 6f c4 |o | BLE 0x21a76 00021ab2 4b bc 00 ff |K | CHK.W #0xff,D5 00021ab6 1d 45 f7 ec | E | MOVE.B D5,(A6-0x814) 00021aba 2e 3c 00 00 03 ff |.< | MOVE.L #0x3ff,D7 00021ac0 0c 87 00 00 ff ff | | CMPI.L #0x0000ffff,D7 00021ac6 63 02 |c | BLS 0x21aca 00021ac8 4e 4f |NO | TRAP #15 00021aca 3f 07 |? | MOVE.W D7,-(A7) 00021acc 0c 87 00 00 03 ff | | CMPI.L #0x000003ff,D7 00021ad2 63 02 |c | BLS 0x21ad6 00021ad4 4e 4f |NO | TRAP #15 00021ad6 41 ee f7 dc |A | LEA.L (A6-0x824),A0 00021ada 42 80 |B | CLR.L D0 00021adc 10 30 78 10 | 0x | MOVE.B (A0+D7.L+#0x10),D0 00021ae0 3f 00 |? | MOVE.W D0,-(A7) 00021ae2 48 6e ff ee |Hn | PEA.L (A6-0x12) 00021ae6 4e ba f7 34 |N 4 | JSR 0x2121c 00021aea 50 4f |PO | ADDQ.L #0x8,A7 00021aec 53 87 |S | SUBQ.L #0x1,D7 00021aee 0c 87 ff ff ff ff | | CMPI.L #0xffffffff,D7 00021af4 67 06 |g | BEQ 0x21afc 00021af6 4a 2e ff ee |J. | TST.B (A6-0x12) 00021afa 66 c4 |f | BNE 0x21ac0 00021afc 4a 2e ff ee |J. | TST.B (A6-0x12) 00021b00 67 58 |gX | BEQ 0x21b5a 00021b02 9e fc 00 0c | | SUBA.W #0xc,A7 00021b06 20 4f | O | MOVEA.L A7,A0 00021b08 43 fa ec 50 |C P | LEA.L 0x2075a,A1 00021b0c 70 0a |p | MOVEQ.L #0x0a,D0 00021b0e 10 d9 | | MOVE.B (A1)+,(A0)+ 00021b10 51 c8 ff fc |Q | DBF D0,0x21b0e 00021b14 59 4f |YO | SUBQ.L #0x4,A7 00021b16 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021b1a 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00021b1e 3f 3c 00 0b |?< | MOVE.W #0xb,-(A7) 00021b22 4e 92 |N | JSR (A2) 00021b24 50 4f |PO | ADDQ.L #0x8,A7 00021b26 4e 93 |N | JSR (A3) 00021b28 de fc 00 10 | | ADDA.W #0x10,A7 00021b2c 4e ba f8 8e |N | JSR 0x213bc 00021b30 9e fc 00 1c | | SUBA.W #0x1c,A7 00021b34 20 4f | O | MOVEA.L A7,A0 00021b36 43 fa ec 2e |C . | LEA.L 0x20766,A1 00021b3a 70 1a |p | MOVEQ.L #0x1a,D0 00021b3c 10 d9 | | MOVE.B (A1)+,(A0)+ 00021b3e 51 c8 ff fc |Q | DBF D0,0x21b3c 00021b42 59 4f |YO | SUBQ.L #0x4,A7 00021b44 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021b48 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00021b4c 3f 3c 00 1b |?< | MOVE.W #0x1b,-(A7) 00021b50 4e 92 |N | JSR (A2) 00021b52 50 4f |PO | ADDQ.L #0x8,A7 00021b54 4e 93 |N | JSR (A3) 00021b56 de fc 00 20 | | ADDA.W #0x20,A7 00021b5a de fc 00 24 | $ | ADDA.W #0x24,A7 00021b5e 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00021b62 4e 5e |N^ | UNLK A6 00021b64 4e 75 |Nu | RTS 00021b66 ; -------------------------------------------------------------------------------------- 00021b66 ; OMSI PASCAL Function 00021b66 ; <LVAR -0x006 4(rw)> 00021b66 ; <LVAR -0x00a 4(rw)> 00021b66 ; <LVAR -0x00e 4(rw)> 00021b66 ; <LVAR -0x014 @ 1(rw)> 00021b66 ; <LVAR -0x414 @> 00021b66 ; <LVAR -0x814 @> 00021b66 ; <LVAR -0x81a @ 2(r)> 00021b66 ; <LVAR -0x81c @> 00021b66 ; -------------------------------------------------------------------------------------- 00021b66 4e 56 f7 54 |NV T | LINK.W A6,#0xf754 00021b6a bf d5 | | CMPA.L (A5),A7 00021b6c 62 06 |b | BHI 0x21b74 00021b6e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021b72 4e 76 |Nv | TRAPV 00021b74 de fc 00 90 | | ADDA.W #0x90,A7 00021b78 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00021b7c 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 00021b82 47 ee ff ec |G | LEA.L (A6-0x14),A3 00021b86 49 f9 00 01 02 e4 |I | LEA.L Long2String(a : Long) : String,A4 00021b8c 74 01 |t | MOVEQ.L #0x01,D2 00021b8e 76 10 |v | MOVEQ.L #0x10,D3 00021b90 78 28 |x( | MOVEQ.L #0x28,D4 00021b92 7c 00 || | MOVEQ.L #0x00,D6 00021b94 0c 86 00 00 ff ff | | CMPI.L #0x0000ffff,D6 00021b9a 63 02 |c | BLS 0x21b9e 00021b9c 4e 4f |NO | TRAP #15 00021b9e 3f 06 |? | MOVE.W D6,-(A7) 00021ba0 48 6e f7 e6 |Hn | PEA.L (A6-0x81a) 00021ba4 48 53 |HS | PEA.L (A3) 00021ba6 4e ba f5 a8 |N | JSR 0x21150 00021baa de fc 00 0a | | ADDA.W #0xa,A7 00021bae 0c 86 00 00 03 ff | | CMPI.L #0x000003ff,D6 00021bb4 63 02 |c | BLS 0x21bb8 00021bb6 4e 4f |NO | TRAP #15 00021bb8 41 ee f7 e4 |A | LEA.L (A6-0x81c),A0 00021bbc 30 2e f7 e6 |0. | MOVE.W (A6-0x81a),D0 00021bc0 41 bc 00 ff |A | CHK.W #0xff,D0 00021bc4 11 80 68 08 | h | MOVE.B D0,(A0+D6.L+#0x8) 00021bc8 52 86 |R | ADDQ.L #0x1,D6 00021bca 0c 86 00 00 04 00 | | CMPI.L #0x00000400,D6 00021bd0 67 04 |g | BEQ 0x21bd6 00021bd2 4a 13 |J | TST.B (A3) 00021bd4 66 be |f | BNE 0x21b94 00021bd6 4a 13 |J | TST.B (A3) 00021bd8 66 0e |f | BNE 0x21be8 00021bda 42 27 |B' | CLR.B -(A7) 00021bdc 48 78 00 01 |Hx | PEA.L 0x1 00021be0 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00021be6 5c 4f |\O | ADDQ.L #0x6,A7 00021be8 41 ee fb ec |A | LEA.L (A6-0x414),A0 00021bec 43 ee f7 ec |C | LEA.L (A6-0x814),A1 00021bf0 30 3c 00 ff |0< | MOVE.W #0xff,D0 00021bf4 20 d9 | | MOVE.L (A1)+,(A0)+ 00021bf6 51 c8 ff fc |Q | DBF D0,0x21bf4 00021bfa 7a 00 |z | MOVEQ.L #0x00,D5 00021bfc 0c 85 00 00 00 7f | | CMPI.L #0x0000007f,D5 00021c02 63 02 |c | BLS 0x21c06 00021c04 4e 4f |NO | TRAP #15 00021c06 41 ee fb ec |A | LEA.L (A6-0x414),A0 00021c0a 41 f0 58 00 |A X | LEA.L (A0+D5.L),A0 00021c0e 42 80 |B | CLR.L D0 00021c10 10 28 02 50 | ( P | MOVE.B (A0+0x250),D0 00021c14 e1 40 | @ | ASL.W #0x8,D0 00021c16 42 81 |B | CLR.L D1 00021c18 12 28 01 d0 | ( | MOVE.B (A0+0x1d0),D1 00021c1c d2 40 | @ | ADD.W D0,D1 00021c1e 48 c1 |H | EXTW.L D1 00021c20 2d 41 ff f2 |-A | MOVE.L D1,(A6-0xe) 00021c24 42 80 |B | CLR.L D0 00021c26 10 28 03 50 | ( P | MOVE.B (A0+0x350),D0 00021c2a 2d 40 ff f6 |-@ | MOVE.L D0,(A6-0xa) 00021c2e 42 80 |B | CLR.L D0 00021c30 10 28 02 d0 | ( | MOVE.B (A0+0x2d0),D0 00021c34 2d 40 ff fa |-@ | MOVE.L D0,(A6-0x6) 00021c38 42 13 |B | CLR.B (A3) 00021c3a 7e 01 |~ | MOVEQ.L #0x01,D7 00021c3c 10 07 | | MOVE.B D7,D0 00021c3e 48 80 |H | EXTB.W D0 00021c40 e7 40 | @ | ASL.W #0x3,D0 00021c42 41 fa f1 94 |A | LEA.L 0x20dd8,A0 00021c46 42 81 |B | CLR.L D1 00021c48 32 30 00 00 |20 | MOVE.W (A0+D0.W),D1 00021c4c b2 ae ff f2 | | CMP.L (A6-0xe),D1 00021c50 66 00 00 8c |f | BNE 0x21cde 00021c54 41 fa f1 82 |A | LEA.L 0x20dd8,A0 00021c58 42 81 |B | CLR.L D1 00021c5a 12 30 00 02 | 0 | MOVE.B (A0+D0.W+#0x2),D1 00021c5e b2 ae ff f6 | | CMP.L (A6-0xa),D1 00021c62 66 7a |fz | BNE 0x21cde 00021c64 41 fa f1 72 |A r | LEA.L 0x20dd8,A0 00021c68 42 81 |B | CLR.L D1 00021c6a 12 30 00 03 | 0 | MOVE.B (A0+D0.W+#0x3),D1 00021c6e b2 ae ff fa | | CMP.L (A6-0x6),D1 00021c72 66 6a |fj | BNE 0x21cde 00021c74 3f 3a eb 10 |?: | MOVE.W 0x20786,-(A7) 00021c78 3f 3a eb 0a |?: | MOVE.W 0x20784,-(A7) 00021c7c 3f 3a eb 04 |?: | MOVE.W 0x20782,-(A7) 00021c80 2f 3a eb 06 |/: | MOVE.L 0x20788,-(A7) 00021c84 10 07 | | MOVE.B D7,D0 00021c86 48 80 |H | EXTB.W D0 00021c88 c1 c4 | | MULS.W D4,D0 00021c8a 41 fa f1 9c |A | LEA.L 0x20e28,A0 00021c8e 9e c4 | | SUBA.W D4,A7 00021c90 22 4f |"O | MOVEA.L A7,A1 00021c92 41 f0 00 00 |A | LEA.L (A0+D0.W),A0 00021c96 70 27 |p' | MOVEQ.L #0x27,D0 00021c98 12 d8 | | MOVE.B (A0)+,(A1)+ 00021c9a 51 c8 ff fc |Q | DBF D0,0x21c98 00021c9e 51 4f |QO | SUBQ.L #0x8,A7 00021ca0 48 6f 00 34 |Ho 4 | PEA.L (A7+0x34) 00021ca4 3f 02 |? | MOVE.W D2,-(A7) 00021ca6 3f 3c 00 06 |?< | MOVE.W #0x6,-(A7) 00021caa 4e 92 |N | JSR (A2) 00021cac 2e 85 |. | MOVE.L D5,(A7) 00021cae 4e 94 |N | JSR (A4) 00021cb0 48 6f 00 38 |Ho 8 | PEA.L (A7+0x38) 00021cb4 3f 02 |? | MOVE.W D2,-(A7) 00021cb6 3f 3c 00 04 |?< | MOVE.W #0x4,-(A7) 00021cba 4e 92 |N | JSR (A2) 00021cbc 58 4f |XO | ADDQ.L #0x4,A7 00021cbe 48 6f 00 14 |Ho | PEA.L (A7+0x14) 00021cc2 3f 02 |? | MOVE.W D2,-(A7) 00021cc4 3f 04 |? | MOVE.W D4,-(A7) 00021cc6 4e 92 |N | JSR (A2) 00021cc8 50 4f |PO | ADDQ.L #0x8,A7 00021cca 4e b9 00 01 02 d8 |N | JSR StringCat4(a, b, c, d : String) : String 00021cd0 de c3 | | ADDA.W D3,A7 00021cd2 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00021cd8 de fc 00 36 | 6 | ADDA.W #0x36,A7 00021cdc 16 82 | | MOVE.B D2,(A3) 00021cde 52 07 |R | ADDQ.B #0x1,D7 00021ce0 0c 07 00 09 | | CMPI.B #0x09,D7 00021ce4 6f 00 ff 56 |o V | BLE 0x21c3c 00021ce8 4a 13 |J | TST.B (A3) 00021cea 66 00 00 cc |f | BNE 0x21db8 00021cee 3f 3a ea a0 |?: | MOVE.W 0x20790,-(A7) 00021cf2 3f 3a ea 9a |?: | MOVE.W 0x2078e,-(A7) 00021cf6 3f 3a ea 94 |?: | MOVE.W 0x2078c,-(A7) 00021cfa 51 4f |QO | SUBQ.L #0x8,A7 00021cfc 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00021d00 3f 02 |? | MOVE.W D2,-(A7) 00021d02 3f 3c 00 06 |?< | MOVE.W #0x6,-(A7) 00021d06 4e 92 |N | JSR (A2) 00021d08 2e 85 |. | MOVE.L D5,(A7) 00021d0a 4e 94 |N | JSR (A4) 00021d0c 58 4f |XO | ADDQ.L #0x4,A7 00021d0e 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00021d14 50 4f |PO | ADDQ.L #0x8,A7 00021d16 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00021d1c 5c 4f |\O | ADDQ.L #0x6,A7 00021d1e 2e ba ea 7e |. ~ | MOVE.L 0x2079e,(A7) 00021d22 2f 3a ea 76 |/: v | MOVE.L 0x2079a,-(A7) 00021d26 2f 3a ea 6e |/: n | MOVE.L 0x20796,-(A7) 00021d2a 2f 3a ea 66 |/: f | MOVE.L 0x20792,-(A7) 00021d2e 51 4f |QO | SUBQ.L #0x8,A7 00021d30 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00021d34 3f 02 |? | MOVE.W D2,-(A7) 00021d36 3f 03 |? | MOVE.W D3,-(A7) 00021d38 4e 92 |N | JSR (A2) 00021d3a 2e ae ff f2 |. | MOVE.L (A6-0xe),(A7) 00021d3e 4e 94 |N | JSR (A4) 00021d40 58 4f |XO | ADDQ.L #0x4,A7 00021d42 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00021d48 50 4f |PO | ADDQ.L #0x8,A7 00021d4a 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00021d50 de c3 | | ADDA.W D3,A7 00021d52 2e ba ea 56 |. V | MOVE.L 0x207aa,(A7) 00021d56 2f 3a ea 4e |/: N | MOVE.L 0x207a6,-(A7) 00021d5a 2f 3a ea 46 |/: F | MOVE.L 0x207a2,-(A7) 00021d5e 51 4f |QO | SUBQ.L #0x8,A7 00021d60 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00021d64 3f 02 |? | MOVE.W D2,-(A7) 00021d66 3f 3c 00 0c |?< | MOVE.W #0xc,-(A7) 00021d6a 4e 92 |N | JSR (A2) 00021d6c 2e ae ff f6 |. | MOVE.L (A6-0xa),(A7) 00021d70 4e 94 |N | JSR (A4) 00021d72 58 4f |XO | ADDQ.L #0x4,A7 00021d74 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00021d7a 50 4f |PO | ADDQ.L #0x8,A7 00021d7c 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00021d82 de c3 | | ADDA.W D3,A7 00021d84 41 fa ea 36 |A 6 | LEA.L 0x207bc,A0 00021d88 70 06 |p | MOVEQ.L #0x06,D0 00021d8a 3f 20 |? | MOVE.W -(A0),-(A7) 00021d8c 51 c8 ff fc |Q | DBF D0,0x21d8a 00021d90 51 4f |QO | SUBQ.L #0x8,A7 00021d92 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00021d96 3f 02 |? | MOVE.W D2,-(A7) 00021d98 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7) 00021d9c 4e 92 |N | JSR (A2) 00021d9e 2e ae ff fa |. | MOVE.L (A6-0x6),(A7) 00021da2 4e 94 |N | JSR (A4) 00021da4 58 4f |XO | ADDQ.L #0x4,A7 00021da6 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00021dac 50 4f |PO | ADDQ.L #0x8,A7 00021dae 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00021db4 de fc 00 12 | | ADDA.W #0x12,A7 00021db8 52 85 |R | ADDQ.L #0x1,D5 00021dba 0c 85 00 00 00 03 | | CMPI.L #0x00000003,D5 00021dc0 6f 00 fe 3a |o : | BLE 0x21bfc 00021dc4 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00021dc8 4e 5e |N^ | UNLK A6 00021dca 4e 75 |Nu | RTS 00021dcc ; -------------------------------------------------------------------------------------- 00021dcc ; OMSI PASCAL Function 00021dcc ; <LVAR -0x002 @ 2(r)> 00021dcc ; <LVAR -0x004 @ 1(r)> 00021dcc ; -------------------------------------------------------------------------------------- 00021dcc 4e 56 ff b2 |NV | LINK.W A6,#0xffb2 00021dd0 bf d5 | | CMPA.L (A5),A7 00021dd2 62 06 |b | BHI 0x21dda 00021dd4 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021dd8 4e 76 |Nv | TRAPV 00021dda de fc 00 46 | F | ADDA.W #0x46,A7 00021dde 48 e7 c1 c0 |H | MOVEM.L A1+A0+D7+D1+D0,-(A7) 00021de2 72 1e |r | MOVEQ.L #0x1e,D1 00021de4 9e c1 | | SUBA.W D1,A7 00021de6 20 4f | O | MOVEA.L A7,A0 00021de8 43 fa e9 d2 |C | LEA.L 0x207bc,A1 00021dec 70 1c |p | MOVEQ.L #0x1c,D0 00021dee 10 d9 | | MOVE.B (A1)+,(A0)+ 00021df0 51 c8 ff fc |Q | DBF D0,0x21dee 00021df4 51 4f |QO | SUBQ.L #0x8,A7 00021df6 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00021dfa 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00021dfe 3f 3c 00 1d |?< | MOVE.W #0x1d,-(A7) 00021e02 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00021e08 50 4f |PO | ADDQ.L #0x8,A7 00021e0a 48 78 00 00 |Hx | PEA.L 0x0 00021e0e 48 78 03 ff |Hx | PEA.L 0x3ff 00021e12 4e b9 00 01 03 ec |N | JSR AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long 00021e18 de fc 00 0c | | ADDA.W #0xc,A7 00021e1c 2e 1f |. | MOVE.L (A7)+,D7 00021e1e de c1 | | ADDA.W D1,A7 00021e20 0c 87 00 00 ff ff | | CMPI.L #0x0000ffff,D7 00021e26 63 02 |c | BLS 0x21e2a 00021e28 4e 4f |NO | TRAP #15 00021e2a 3f 07 |? | MOVE.W D7,-(A7) 00021e2c 48 6e ff fe |Hn | PEA.L (A6-0x2) 00021e30 48 6e ff fc |Hn | PEA.L (A6-0x4) 00021e34 4e ba f3 1a |N | JSR 0x21150 00021e38 de fc 00 0a | | ADDA.W #0xa,A7 00021e3c 4a 2e ff fc |J. | TST.B (A6-0x4) 00021e40 67 1e |g | BEQ 0x21e60 00021e42 59 4f |YO | SUBQ.L #0x4,A7 00021e44 42 80 |B | CLR.L D0 00021e46 30 2e ff fe |0. | MOVE.W (A6-0x2),D0 00021e4a 2f 00 |/ | MOVE.L D0,-(A7) 00021e4c 48 78 00 02 |Hx | PEA.L 0x2 00021e50 4e b9 00 01 02 e8 |N | JSR Long2HexString(val : Long; ndig : Long) : String 00021e56 50 4f |PO | ADDQ.L #0x8,A7 00021e58 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00021e5e 58 4f |XO | ADDQ.L #0x4,A7 00021e60 4c df 03 83 |L | MOVEM.L (A7)+,D0+D1+D7+A0+A1 00021e64 4e 5e |N^ | UNLK A6 00021e66 4e 75 |Nu | RTS 00021e68 ; -------------------------------------------------------------------------------------- 00021e68 ; OMSI PASCAL Function 00021e68 ; <LVAR -0x006 @ 2(rw)> 00021e68 ; <LVAR -0x00a @ 2(r)> 00021e68 ; <LVAR -0x00e 4(rw)> 00021e68 ; <LVAR -0x012 4(rw)> 00021e68 ; <LVAR -0x014 @ 1(r)> 00021e68 ; -------------------------------------------------------------------------------------- 00021e68 4e 56 ff 80 |NV | LINK.W A6,#0xff80 00021e6c bf d5 | | CMPA.L (A5),A7 00021e6e 62 06 |b | BHI 0x21e76 00021e70 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021e74 4e 76 |Nv | TRAPV 00021e76 de fc 00 68 | h | ADDA.W #0x68,A7 00021e7a 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00021e7e 45 ee ff ec |E | LEA.L (A6-0x14),A2 00021e82 47 ee ff fa |G | LEA.L (A6-0x6),A3 00021e86 74 01 |t | MOVEQ.L #0x01,D2 00021e88 26 3c 00 00 ff ff |&< | MOVE.L #0xffff,D3 00021e8e 78 16 |x | MOVEQ.L #0x16,D4 00021e90 42 67 |Bg | CLR.W -(A7) 00021e92 48 53 |HS | PEA.L (A3) 00021e94 48 52 |HR | PEA.L (A2) 00021e96 4e ba f2 b8 |N | JSR 0x21150 00021e9a 9e c4 | | SUBA.W D4,A7 00021e9c 20 4f | O | MOVEA.L A7,A0 00021e9e 43 fa e9 3a |C : | LEA.L 0x207da,A1 00021ea2 70 1e |p | MOVEQ.L #0x1e,D0 00021ea4 10 d9 | | MOVE.B (A1)+,(A0)+ 00021ea6 51 c8 ff fc |Q | DBF D0,0x21ea4 00021eaa 51 4f |QO | SUBQ.L #0x8,A7 00021eac 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00021eb0 3f 02 |? | MOVE.W D2,-(A7) 00021eb2 3f 3c 00 1f |?< | MOVE.W #0x1f,-(A7) 00021eb6 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00021ebc 50 4f |PO | ADDQ.L #0x8,A7 00021ebe 48 78 00 00 |Hx | PEA.L 0x0 00021ec2 48 78 03 ff |Hx | PEA.L 0x3ff 00021ec6 4e b9 00 01 03 ec |N | JSR AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long 00021ecc de fc 00 0c | | ADDA.W #0xc,A7 00021ed0 2a 1f |* | MOVE.L (A7)+,D5 00021ed2 de fc 00 20 | | ADDA.W #0x20,A7 00021ed6 ba 83 | | CMP.L D3,D5 00021ed8 63 02 |c | BLS 0x21edc 00021eda 4e 4f |NO | TRAP #15 00021edc 3f 05 |? | MOVE.W D5,-(A7) 00021ede 48 6e ff f6 |Hn | PEA.L (A6-0xa) 00021ee2 48 52 |HR | PEA.L (A2) 00021ee4 4e ba f2 6a |N j | JSR 0x21150 00021ee8 de fc 00 0a | | ADDA.W #0xa,A7 00021eec 4a 12 |J | TST.B (A2) 00021eee 67 00 01 9c |g | BEQ 0x2208c 00021ef2 41 fa e9 52 |A R | LEA.L 0x20846,A0 00021ef6 70 0a |p | MOVEQ.L #0x0a,D0 00021ef8 3f 20 |? | MOVE.W -(A0),-(A7) 00021efa 51 c8 ff fc |Q | DBF D0,0x21ef8 00021efe 51 4f |QO | SUBQ.L #0x8,A7 00021f00 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00021f04 3f 02 |? | MOVE.W D2,-(A7) 00021f06 3f 04 |? | MOVE.W D4,-(A7) 00021f08 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00021f0e 58 4f |XO | ADDQ.L #0x4,A7 00021f10 42 80 |B | CLR.L D0 00021f12 30 2e ff f6 |0. | MOVE.W (A6-0xa),D0 00021f16 2f 00 |/ | MOVE.L D0,-(A7) 00021f18 48 78 00 02 |Hx | PEA.L 0x2 00021f1c 4e b9 00 01 02 e8 |N | JSR Long2HexString(val : Long; ndig : Long) : String 00021f22 50 4f |PO | ADDQ.L #0x8,A7 00021f24 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00021f2a 50 4f |PO | ADDQ.L #0x8,A7 00021f2c 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00021f32 de fc 00 1a | | ADDA.W #0x1a,A7 00021f36 42 39 00 02 25 62 |B9 %b | CLR.B 0x22562 00021f3c 41 fa e8 ce |A | LEA.L 0x2080c,A0 00021f40 70 08 |p | MOVEQ.L #0x08,D0 00021f42 3f 20 |? | MOVE.W -(A0),-(A7) 00021f44 51 c8 ff fc |Q | DBF D0,0x21f42 00021f48 51 4f |QO | SUBQ.L #0x8,A7 00021f4a 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00021f4e 3f 02 |? | MOVE.W D2,-(A7) 00021f50 3f 3c 00 12 |?< | MOVE.W #0x12,-(A7) 00021f54 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00021f5a 50 4f |PO | ADDQ.L #0x8,A7 00021f5c 4e b9 00 01 03 e4 |N | JSR AskConsoleString(prompt : String) : String 00021f62 58 4f |XO | ADDQ.L #0x4,A7 00021f64 28 5f |(_ | MOVEA.L (A7)+,A4 00021f66 5c 4f |\O | ADDQ.L #0x6,A7 00021f68 2e 8c |. | MOVE.L A4,(A7) 00021f6a 48 78 00 10 |Hx | PEA.L 0x10 00021f6e 4e b9 00 01 03 60 |N ` | JSR ?StringToInt64() 00021f74 50 4f |PO | ADDQ.L #0x8,A7 00021f76 2d 5f ff ee |-_ | MOVE.L (A7)+,(A6-0x12) 00021f7a 2d 57 ff f2 |-W | MOVE.L (A7),(A6-0xe) 00021f7e 54 4f |TO | ADDQ.L #0x2,A7 00021f80 2f 2e ff f2 |/. | MOVE.L (A6-0xe),-(A7) 00021f84 2f 2e ff ee |/. | MOVE.L (A6-0x12),-(A7) 00021f88 51 4f |QO | SUBQ.L #0x8,A7 00021f8a 48 78 00 ff |Hx | PEA.L 0xff 00021f8e 4e b9 00 01 03 54 |N T | JSR Long2Quad(a : Long) : Quad 00021f94 58 4f |XO | ADDQ.L #0x4,A7 00021f96 4e b9 00 01 03 24 |N $ | JSR IsGreater(a, b : Quad) : Bool 00021f9c de fc 00 0a | | ADDA.W #0xa,A7 00021fa0 2e ae ff f2 |. | MOVE.L (A6-0xe),(A7) 00021fa4 2f 2e ff ee |/. | MOVE.L (A6-0x12),-(A7) 00021fa8 51 4f |QO | SUBQ.L #0x8,A7 00021faa 48 78 00 00 |Hx | PEA.L 0x0 00021fae 4e b9 00 01 03 54 |N T | JSR Long2Quad(a : Long) : Quad 00021fb4 58 4f |XO | ADDQ.L #0x4,A7 00021fb6 4e b9 00 01 03 28 |N ( | JSR IsSmaller(a, b : Quad) : Bool 00021fbc de fc 00 10 | | ADDA.W #0x10,A7 00021fc0 10 2f 00 02 | / | MOVE.B (A7+0x2),D0 00021fc4 80 1f | | OR.B (A7)+,D0 00021fc6 54 4f |TO | ADDQ.L #0x2,A7 00021fc8 48 80 |H | EXTB.W D0 00021fca 41 82 |A | CHK.W D2,D0 00021fcc 1e 00 | | MOVE.B D0,D7 00021fce 10 07 | | MOVE.B D7,D0 00021fd0 80 39 00 02 25 62 | 9 %b | OR.B 0x22562,D0 00021fd6 48 80 |H | EXTB.W D0 00021fd8 41 82 |A | CHK.W D2,D0 00021fda 1e 00 | | MOVE.B D0,D7 00021fdc 67 2c |g, | BEQ 0x2200a 00021fde 41 fa e8 84 |A | LEA.L 0x20864,A0 00021fe2 70 0e |p | MOVEQ.L #0x0e,D0 00021fe4 3f 20 |? | MOVE.W -(A0),-(A7) 00021fe6 51 c8 ff fc |Q | DBF D0,0x21fe4 00021fea 59 4f |YO | SUBQ.L #0x4,A7 00021fec 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021ff0 3f 02 |? | MOVE.W D2,-(A7) 00021ff2 3f 3c 00 1e |?< | MOVE.W #0x1e,-(A7) 00021ff6 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00021ffc 50 4f |PO | ADDQ.L #0x8,A7 00021ffe 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00022004 de fc 00 22 | " | ADDA.W #0x22,A7 00022008 60 1c |` | BRA 0x22026 0002200a 59 4f |YO | SUBQ.L #0x4,A7 0002200c 2f 2e ff f2 |/. | MOVE.L (A6-0xe),-(A7) 00022010 2f 2e ff ee |/. | MOVE.L (A6-0x12),-(A7) 00022014 4e b9 00 01 03 50 |N P | JSR Quad2Long(a : Quad) : Long 0002201a 50 4f |PO | ADDQ.L #0x8,A7 0002201c 20 1f | | MOVE.L (A7)+,D0 0002201e b0 83 | | CMP.L D3,D0 00022020 63 02 |c | BLS 0x22024 00022022 4e 4f |NO | TRAP #15 00022024 3c 00 |< | MOVE.W D0,D6 00022026 4a 07 |J | TST.B D7 00022028 66 00 ff 0c |f | BNE 0x21f36 0002202c ba 83 | | CMP.L D3,D5 0002202e 63 02 |c | BLS 0x22032 00022030 4e 4f |NO | TRAP #15 00022032 3f 05 |? | MOVE.W D5,-(A7) 00022034 3f 06 |? | MOVE.W D6,-(A7) 00022036 48 52 |HR | PEA.L (A2) 00022038 4e ba f1 e2 |N | JSR 0x2121c 0002203c 50 4f |PO | ADDQ.L #0x8,A7 0002203e 4a 85 |J | TST.L D5 00022040 67 4a |gJ | BEQ 0x2208c 00022042 59 4f |YO | SUBQ.L #0x4,A7 00022044 42 80 |B | CLR.L D0 00022046 30 13 |0 | MOVE.W (A3),D0 00022048 2f 00 |/ | MOVE.L D0,-(A7) 0002204a 42 80 |B | CLR.L D0 0002204c 30 2e ff f6 |0. | MOVE.W (A6-0xa),D0 00022050 2f 00 |/ | MOVE.L D0,-(A7) 00022052 4e ba f0 c6 |N | JSR 0x2111a 00022056 50 4f |PO | ADDQ.L #0x8,A7 00022058 20 1f | | MOVE.L (A7)+,D0 0002205a b0 83 | | CMP.L D3,D0 0002205c 63 02 |c | BLS 0x22060 0002205e 4e 4f |NO | TRAP #15 00022060 36 80 |6 | MOVE.W D0,(A3) 00022062 59 4f |YO | SUBQ.L #0x4,A7 00022064 42 81 |B | CLR.L D1 00022066 32 00 |2 | MOVE.W D0,D1 00022068 2f 01 |/ | MOVE.L D1,-(A7) 0002206a 42 80 |B | CLR.L D0 0002206c 30 06 |0 | MOVE.W D6,D0 0002206e 2f 00 |/ | MOVE.L D0,-(A7) 00022070 4e ba f0 a8 |N | JSR 0x2111a 00022074 50 4f |PO | ADDQ.L #0x8,A7 00022076 20 1f | | MOVE.L (A7)+,D0 00022078 b0 83 | | CMP.L D3,D0 0002207a 63 02 |c | BLS 0x2207e 0002207c 4e 4f |NO | TRAP #15 0002207e 36 80 |6 | MOVE.W D0,(A3) 00022080 42 67 |Bg | CLR.W -(A7) 00022082 3f 00 |? | MOVE.W D0,-(A7) 00022084 48 52 |HR | PEA.L (A2) 00022086 4e ba f1 94 |N | JSR 0x2121c 0002208a 50 4f |PO | ADDQ.L #0x8,A7 0002208c 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00022090 4e 5e |N^ | UNLK A6 00022092 4e 75 |Nu | RTS 00022094 ; -------------------------------------------------------------------------------------- 00022094 ; OMSI PASCAL Function 00022094 ; <LVAR 0x00a 1(rw)> 00022094 ; <LVAR 0x008 2(r)> 00022094 ; <LVAR -0x008 @ 2(r)> 00022094 ; <LVAR -0x00a @> 00022094 ; <LVAR -0x00c 2(r)> 00022094 ; <LVAR -0x00e 2(r)> 00022094 ; <LVAR -0x010 2(w)> 00022094 ; <LVAR -0x012 2(r)> 00022094 ; <LVAR -0x014 2(r)> 00022094 ; <LVAR -0x016 2(w)> 00022094 ; <LVAR -0x018 2(r)> 00022094 ; <LVAR -0x01a @ 2(r)> 00022094 ; -------------------------------------------------------------------------------------- 00022094 4e 56 ff d0 |NV | LINK.W A6,#0xffd0 00022098 bf d5 | | CMPA.L (A5),A7 0002209a 62 06 |b | BHI 0x220a2 0002209c 44 fc 00 02 |D | MOVE.W #0x2,CCR 000220a0 4e 76 |Nv | TRAPV 000220a2 de fc 00 16 | | ADDA.W #0x16,A7 000220a6 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 000220aa 42 6e ff e6 |Bn | CLR.W (A6-0x1a) 000220ae 42 6e ff e8 |Bn | CLR.W (A6-0x18) 000220b2 3d 7c 00 02 ff ea |=| | MOVE.W #0x2,(A6-0x16) 000220b8 42 6e ff ec |Bn | CLR.W (A6-0x14) 000220bc 42 6e ff ee |Bn | CLR.W (A6-0x12) 000220c0 30 2e 00 08 |0. | MOVE.W (A6+0x8),D0 000220c4 e1 40 | @ | ASL.W #0x8,D0 000220c6 3d 40 ff f0 |=@ | MOVE.W D0,(A6-0x10) 000220ca 42 6e ff f2 |Bn | CLR.W (A6-0xe) 000220ce 42 6e ff f4 |Bn | CLR.W (A6-0xc) 000220d2 48 6e ff e6 |Hn | PEA.L (A6-0x1a) 000220d6 41 ee ff f8 |A | LEA.L (A6-0x8),A0 000220da 2f 08 |/ | MOVE.L A0,-(A7) 000220dc 42 67 |Bg | CLR.W -(A7) 000220de 4e b9 00 01 02 04 |N | JSR KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W) 000220e4 50 4f |PO | ADDQ.L #0x8,A7 000220e6 42 57 |BW | CLR.W (A7) 000220e8 48 6e ff f6 |Hn | PEA.L (A6-0xa) 000220ec 4e b9 00 01 02 06 |N | JSR KC03_Wait_Disk_IO(a : W; VAR status : Byte) 000220f2 5c 4f |\O | ADDQ.L #0x6,A7 000220f4 42 2e 00 0a |B. | CLR.B (A6+0xa) 000220f8 30 2e ff f8 |0. | MOVE.W (A6-0x8),D0 000220fc 0c 40 00 01 | @ | CMPI.W #0x0001,D0 00022100 66 04 |f | BNE 0x22106 00022102 52 2e 00 0a |R. | ADDQ.B #0x1,(A6+0xa) 00022106 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 0002210a 4e 5e |N^ | UNLK A6 0002210c 4e 75 |Nu | RTS 0002210e ; -------------------------------------------------------------------------------------- 0002210e ; OMSI PASCAL Function 0002210e ; -------------------------------------------------------------------------------------- 0002210e 4e 56 ff 96 |NV | LINK.W A6,#0xff96 00022112 bf d5 | | CMPA.L (A5),A7 00022114 62 06 |b | BHI 0x2211c 00022116 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002211a 4e 76 |Nv | TRAPV 0002211c de fc 00 62 | b | ADDA.W #0x62,A7 00022120 48 e7 e3 80 |H | MOVEM.L A0+D7+D6+D2+D1+D0,-(A7) 00022124 72 01 |r | MOVEQ.L #0x01,D1 00022126 74 1e |t | MOVEQ.L #0x1e,D2 00022128 41 fa e7 58 |A X | LEA.L 0x20882,A0 0002212c 70 0e |p | MOVEQ.L #0x0e,D0 0002212e 3f 20 |? | MOVE.W -(A0),-(A7) 00022130 51 c8 ff fc |Q | DBF D0,0x2212e 00022134 51 4f |QO | SUBQ.L #0x8,A7 00022136 48 6f 00 08 |Ho | PEA.L (A7+0x8) 0002213a 3f 01 |? | MOVE.W D1,-(A7) 0002213c 3f 02 |? | MOVE.W D2,-(A7) 0002213e 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00022144 50 4f |PO | ADDQ.L #0x8,A7 00022146 48 78 00 00 |Hx | PEA.L 0x0 0002214a 48 78 00 03 |Hx | PEA.L 0x3 0002214e 4e b9 00 01 03 ec |N | JSR AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long 00022154 de fc 00 0c | | ADDA.W #0xc,A7 00022158 2c 1f |, | MOVE.L (A7)+,D6 0002215a de c2 | | ADDA.W D2,A7 0002215c 20 06 | | MOVE.L D6,D0 0002215e e5 80 | | ASL.L #0x2,D0 00022160 2f 00 |/ | MOVE.L D0,-(A7) 00022162 56 97 |V | ADDQ.L #0x3,(A7) 00022164 2e 00 |. | MOVE.L D0,D7 00022166 be 97 | | CMP.L (A7),D7 00022168 6e 14 |n | BGT 0x2217e 0002216a 20 17 | | MOVE.L (A7),D0 0002216c 0c 87 80 00 00 01 | | CMPI.L #0x80000001,D7 00022172 6d 08 |m | BLT 0x2217c 00022174 0c 80 7f ff ff ff | | CMPI.L #0x7fffffff,D0 0002217a 6f 02 |o | BLE 0x2217e 0002217c 4e 4f |NO | TRAP #15 0002217e be 97 | | CMP.L (A7),D7 00022180 6e 26 |n& | BGT 0x221a8 00022182 0c 87 00 00 00 0f | | CMPI.L #0x0000000f,D7 00022188 63 02 |c | BLS 0x2218c 0002218a 4e 4f |NO | TRAP #15 0002218c 55 4f |UO | SUBQ.L #0x2,A7 0002218e 3f 07 |? | MOVE.W D7,-(A7) 00022190 4e ba ff 02 |N | JSR 0x22094 00022194 54 4f |TO | ADDQ.L #0x2,A7 00022196 4a 1f |J | TST.B (A7)+ 00022198 67 0a |g | BEQ 0x221a4 0002219a 33 c7 00 02 25 60 |3 %` | MOVE.W D7,0x22560 000221a0 58 4f |XO | ADDQ.L #0x4,A7 000221a2 60 34 |`4 | BRA 0x221d8 000221a4 52 87 |R | ADDQ.L #0x1,D7 000221a6 68 d6 |h | BVC 0x2217e 000221a8 58 4f |XO | ADDQ.L #0x4,A7 000221aa 41 fa e7 10 |A | LEA.L 0x208bc,A0 000221ae 70 1c |p | MOVEQ.L #0x1c,D0 000221b0 3f 20 |? | MOVE.W -(A0),-(A7) 000221b2 51 c8 ff fc |Q | DBF D0,0x221b0 000221b6 59 4f |YO | SUBQ.L #0x4,A7 000221b8 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000221bc 3f 01 |? | MOVE.W D1,-(A7) 000221be 3f 3c 00 3a |?< : | MOVE.W #0x3a,-(A7) 000221c2 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000221c8 50 4f |PO | ADDQ.L #0x8,A7 000221ca 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000221d0 de fc 00 3e | > | ADDA.W #0x3e,A7 000221d4 60 00 ff 52 |` R | BRA 0x22128 000221d8 4c df 01 c7 |L | MOVEM.L (A7)+,D0+D1+D2+D6+D7+A0 000221dc 4e 5e |N^ | UNLK A6 000221de 4e 75 |Nu | RTS 000221e0 ; -------------------------------------------------------------------------------------- 000221e0 ; OMSI PASCAL Function 000221e0 ; -------------------------------------------------------------------------------------- 000221e0 START: 000221e0 4f fa 00 08 |O | LEA.L MAIN,A7 000221e4 4e f9 00 01 02 80 |N | JMP ?start_program 000221ea MAIN: 000221ea 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 000221f0 47 f9 00 01 03 e0 |G | LEA.L WriteConsoleStringCrLf(str : String),A3 000221f6 49 f9 00 02 25 64 |I %d | LEA.L 0x22564,A4 000221fc 72 01 |r | MOVEQ.L #0x01,D1 000221fe 74 0c |t | MOVEQ.L #0x0c,D2 00022200 76 20 |v | MOVEQ.L #0x20,D3 00022202 78 24 |x$ | MOVEQ.L #0x24,D4 00022204 7a 1a |z | MOVEQ.L #0x1a,D5 00022206 48 78 00 01 |Hx | PEA.L 0x1 0002220a 4e b9 00 01 03 f4 |N | JSR SetConsoleConfig(a : Long) 00022210 54 4f |TO | ADDQ.L #0x2,A7 00022212 3e 81 |> | MOVE.W D1,(A7) 00022214 1f 01 | | MOVE.B D1,-(A7) 00022216 4e b9 00 01 02 10 |N | JSR KC08_PortSomething(port: Word; b: Byte) 0002221c 58 4f |XO | ADDQ.L #0x4,A7 0002221e 55 4f |UO | SUBQ.L #0x2,A7 00022220 4e b9 00 01 06 0a |N | JSR Is_machine_type_four() : Bool 00022226 4a 1f |J | TST.B (A7)+ 00022228 67 24 |g$ | BEQ 0x2224e 0002222a 41 fa e6 be |A | LEA.L 0x208ea,A0 0002222e 70 16 |p | MOVEQ.L #0x16,D0 00022230 3f 20 |? | MOVE.W -(A0),-(A7) 00022232 51 c8 ff fc |Q | DBF D0,0x22230 00022236 59 4f |YO | SUBQ.L #0x4,A7 00022238 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002223c 3f 01 |? | MOVE.W D1,-(A7) 0002223e 3f 3c 00 2e |?< . | MOVE.W #0x2e,-(A7) 00022242 4e 92 |N | JSR (A2) 00022244 50 4f |PO | ADDQ.L #0x8,A7 00022246 4e 93 |N | JSR (A3) 00022248 de fc 00 32 | 2 | ADDA.W #0x32,A7 0002224c 60 d0 |` | BRA 0x2221e 0002224e 42 27 |B' | CLR.B -(A7) 00022250 4e b9 00 01 04 04 |N | JSR SetSomeKindOfFlag(a : Byte) 00022256 54 4f |TO | ADDQ.L #0x2,A7 00022258 4e ba fe b4 |N | JSR 0x2210e 0002225c 2f 3a e6 94 |/: | MOVE.L 0x208f2,-(A7) 00022260 2f 3a e6 8c |/: | MOVE.L 0x208ee,-(A7) 00022264 2f 3a e6 84 |/: | MOVE.L 0x208ea,-(A7) 00022268 59 4f |YO | SUBQ.L #0x4,A7 0002226a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002226e 3f 01 |? | MOVE.W D1,-(A7) 00022270 3f 02 |? | MOVE.W D2,-(A7) 00022272 4e 92 |N | JSR (A2) 00022274 50 4f |PO | ADDQ.L #0x8,A7 00022276 4e 93 |N | JSR (A3) 00022278 54 4f |TO | ADDQ.L #0x2,A7 0002227a 20 4f | O | MOVEA.L A7,A0 0002227c 43 fa e6 78 |C x | LEA.L 0x208f6,A1 00022280 70 0c |p | MOVEQ.L #0x0c,D0 00022282 10 d9 | | MOVE.B (A1)+,(A0)+ 00022284 51 c8 ff fc |Q | DBF D0,0x22282 00022288 59 4f |YO | SUBQ.L #0x4,A7 0002228a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002228e 3f 01 |? | MOVE.W D1,-(A7) 00022290 3f 3c 00 0d |?< | MOVE.W #0xd,-(A7) 00022294 4e 92 |N | JSR (A2) 00022296 50 4f |PO | ADDQ.L #0x8,A7 00022298 4e 93 |N | JSR (A3) 0002229a de fc 00 12 | | ADDA.W #0x12,A7 0002229e 41 fa e6 84 |A | LEA.L 0x20924,A0 000222a2 70 07 |p | MOVEQ.L #0x07,D0 000222a4 2f 20 |/ | MOVE.L -(A0),-(A7) 000222a6 51 c8 ff fc |Q | DBF D0,0x222a4 000222aa 59 4f |YO | SUBQ.L #0x4,A7 000222ac 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000222b0 3f 01 |? | MOVE.W D1,-(A7) 000222b2 3f 03 |? | MOVE.W D3,-(A7) 000222b4 4e 92 |N | JSR (A2) 000222b6 50 4f |PO | ADDQ.L #0x8,A7 000222b8 4e 93 |N | JSR (A3) 000222ba de c4 | | ADDA.W D4,A7 000222bc 41 fa e6 7c |A | | LEA.L 0x2093a,A0 000222c0 70 0a |p | MOVEQ.L #0x0a,D0 000222c2 3f 20 |? | MOVE.W -(A0),-(A7) 000222c4 51 c8 ff fc |Q | DBF D0,0x222c2 000222c8 59 4f |YO | SUBQ.L #0x4,A7 000222ca 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000222ce 3f 01 |? | MOVE.W D1,-(A7) 000222d0 3f 3c 00 16 |?< | MOVE.W #0x16,-(A7) 000222d4 4e 92 |N | JSR (A2) 000222d6 50 4f |PO | ADDQ.L #0x8,A7 000222d8 4e 93 |N | JSR (A3) 000222da de c5 | | ADDA.W D5,A7 000222dc 41 fa e6 7c |A | | LEA.L 0x2095a,A0 000222e0 70 07 |p | MOVEQ.L #0x07,D0 000222e2 2f 20 |/ | MOVE.L -(A0),-(A7) 000222e4 51 c8 ff fc |Q | DBF D0,0x222e2 000222e8 59 4f |YO | SUBQ.L #0x4,A7 000222ea 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000222ee 3f 01 |? | MOVE.W D1,-(A7) 000222f0 3f 03 |? | MOVE.W D3,-(A7) 000222f2 4e 92 |N | JSR (A2) 000222f4 50 4f |PO | ADDQ.L #0x8,A7 000222f6 4e 93 |N | JSR (A3) 000222f8 58 4f |XO | ADDQ.L #0x4,A7 000222fa 20 4f | O | MOVEA.L A7,A0 000222fc 43 fa e6 5c |C \ | LEA.L 0x2095a,A1 00022300 70 1e |p | MOVEQ.L #0x1e,D0 00022302 10 d9 | | MOVE.B (A1)+,(A0)+ 00022304 51 c8 ff fc |Q | DBF D0,0x22302 00022308 59 4f |YO | SUBQ.L #0x4,A7 0002230a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002230e 3f 01 |? | MOVE.W D1,-(A7) 00022310 3f 3c 00 1f |?< | MOVE.W #0x1f,-(A7) 00022314 4e 92 |N | JSR (A2) 00022316 50 4f |PO | ADDQ.L #0x8,A7 00022318 4e 93 |N | JSR (A3) 0002231a de c4 | | ADDA.W D4,A7 0002231c 41 fa e6 82 |A | LEA.L 0x209a0,A0 00022320 70 12 |p | MOVEQ.L #0x12,D0 00022322 3f 20 |? | MOVE.W -(A0),-(A7) 00022324 51 c8 ff fc |Q | DBF D0,0x22322 00022328 59 4f |YO | SUBQ.L #0x4,A7 0002232a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002232e 3f 01 |? | MOVE.W D1,-(A7) 00022330 3f 3c 00 26 |?< & | MOVE.W #0x26,-(A7) 00022334 4e 92 |N | JSR (A2) 00022336 50 4f |PO | ADDQ.L #0x8,A7 00022338 4e 93 |N | JSR (A3) 0002233a de c5 | | ADDA.W D5,A7 0002233c 20 4f | O | MOVEA.L A7,A0 0002233e 43 fa e6 60 |C ` | LEA.L 0x209a0,A1 00022342 70 0e |p | MOVEQ.L #0x0e,D0 00022344 10 d9 | | MOVE.B (A1)+,(A0)+ 00022346 51 c8 ff fc |Q | DBF D0,0x22344 0002234a 51 4f |QO | SUBQ.L #0x8,A7 0002234c 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00022350 3f 01 |? | MOVE.W D1,-(A7) 00022352 3f 3c 00 0f |?< | MOVE.W #0xf,-(A7) 00022356 4e 92 |N | JSR (A2) 00022358 50 4f |PO | ADDQ.L #0x8,A7 0002235a 48 78 00 00 |Hx | PEA.L 0x0 0002235e 48 78 00 05 |Hx | PEA.L 0x5 00022362 4e b9 00 01 03 ec |N | JSR AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long 00022368 de c2 | | ADDA.W D2,A7 0002236a 20 1f | | MOVE.L (A7)+,D0 0002236c 28 80 |( | MOVE.L D0,(A4) 0002236e b0 81 | | CMP.L D1,D0 00022370 66 06 |f | BNE 0x22378 00022372 4e ba f1 4c |N L | JSR 0x214c0 00022376 60 36 |`6 | BRA 0x223ae 00022378 0c 80 00 00 00 02 | | CMPI.L #0x00000002,D0 0002237e 66 06 |f | BNE 0x22386 00022380 4e ba f0 3a |N : | JSR 0x213bc 00022384 60 28 |`( | BRA 0x223ae 00022386 0c 80 00 00 00 03 | | CMPI.L #0x00000003,D0 0002238c 66 06 |f | BNE 0x22394 0002238e 4e ba fa 3c |N < | JSR 0x21dcc 00022392 60 1a |` | BRA 0x223ae 00022394 0c 80 00 00 00 04 | | CMPI.L #0x00000004,D0 0002239a 66 06 |f | BNE 0x223a2 0002239c 4e ba fa ca |N | JSR 0x21e68 000223a0 60 0c |` | BRA 0x223ae 000223a2 0c 80 00 00 00 05 | | CMPI.L #0x00000005,D0 000223a8 66 04 |f | BNE 0x223ae 000223aa 4e ba f7 ba |N | JSR 0x21b66 000223ae de fc 00 10 | | ADDA.W #0x10,A7 000223b2 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 000223b8 4a 94 |J | TST.L (A4) 000223ba 66 00 fe a0 |f | BNE 0x2225c 000223be 4e ba ec 1e |N | JSR 0x20fde 000223c2 4e b9 00 01 02 84 |N | JSR ?exit 000223c8 42 6f 61 72 64 20 20 20 |Board | .TXT 'Board :_ ' 000223d6 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment :_ ' 000223e4 53 74 61 74 75 73 20 20 |Status | .TXT 'Status :_ ' 000223f2 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment error :' 00022404 46 61 74 61 6c 20 65 78 |Fatal ex| .TXT 'Fatal experiment error. ' 0002241c ; -------------------------------------------------------------------------------------- 0002241c ; OMSI PASCAL Function 0002241c ; <LVAR 0x00e 1(r)> 0002241c ; <LVAR 0x00a 4(r)> 0002241c ; <LVAR 0x008 1(r)> 0002241c ; -------------------------------------------------------------------------------------- 0002241c EXP_FAIL: 0002241c 4e 56 ff 8c |NV | LINK.W A6,#0xff8c 00022420 bf d5 | | CMPA.L (A5),A7 00022422 62 06 |b | BHI 0x2242a 00022424 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022428 4e 76 |Nv | TRAPV 0002242a de fc 00 74 | t | ADDA.W #0x74,A7 0002242e 48 e7 fc f8 |H | MOVEM.L A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7) 00022432 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 00022438 49 f9 00 01 03 e0 |I | LEA.L WriteConsoleStringCrLf(str : String),A4 0002243e 72 01 |r | MOVEQ.L #0x01,D1 00022440 74 0d |t | MOVEQ.L #0x0d,D2 00022442 76 1e |v | MOVEQ.L #0x1e,D3 00022444 78 12 |x | MOVEQ.L #0x12,D4 00022446 7a 0e |z | MOVEQ.L #0x0e,D5 00022448 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 0002244e 41 fa ff b4 |A | LEA.L 0x22404,A0 00022452 70 08 |p | MOVEQ.L #0x08,D0 00022454 3f 20 |? | MOVE.W -(A0),-(A7) 00022456 51 c8 ff fc |Q | DBF D0,0x22454 0002245a 59 4f |YO | SUBQ.L #0x4,A7 0002245c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022460 3f 01 |? | MOVE.W D1,-(A7) 00022462 3f 04 |? | MOVE.W D4,-(A7) 00022464 4e 93 |N | JSR (A3) 00022466 50 4f |PO | ADDQ.L #0x8,A7 00022468 4e 94 |N | JSR (A4) 0002246a 50 4f |PO | ADDQ.L #0x8,A7 0002246c 20 4f | O | MOVEA.L A7,A0 0002246e 43 fa ff 58 |C X | LEA.L 0x223c8,A1 00022472 70 0c |p | MOVEQ.L #0x0c,D0 00022474 10 d9 | | MOVE.B (A1)+,(A0)+ 00022476 51 c8 ff fc |Q | DBF D0,0x22474 0002247a 51 4f |QO | SUBQ.L #0x8,A7 0002247c 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00022480 3f 01 |? | MOVE.W D1,-(A7) 00022482 3f 02 |? | MOVE.W D2,-(A7) 00022484 4e 93 |N | JSR (A3) 00022486 54 4f |TO | ADDQ.L #0x2,A7 00022488 1e ae 00 0e | | MOVE.B (A6+0xe),(A7) 0002248c 4e b9 00 01 04 9c |N | JSR BoardName(address : B) : String 00022492 54 4f |TO | ADDQ.L #0x2,A7 00022494 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 0002249a 50 4f |PO | ADDQ.L #0x8,A7 0002249c 4e 94 |N | JSR (A4) 0002249e de c4 | | ADDA.W D4,A7 000224a0 20 6e 00 0a | n | MOVEA.L (A6+0xa),A0 000224a4 b0 c1 | | CMPA.W D1,A0 000224a6 67 48 |gH | BEQ 0x224f0 000224a8 9e c5 | | SUBA.W D5,A7 000224aa 22 4f |"O | MOVEA.L A7,A1 000224ac 45 fa ff 28 |E ( | LEA.L 0x223d6,A2 000224b0 70 0c |p | MOVEQ.L #0x0c,D0 000224b2 12 da | | MOVE.B (A2)+,(A1)+ 000224b4 51 c8 ff fc |Q | DBF D0,0x224b2 000224b8 9e c3 | | SUBA.W D3,A7 000224ba 22 4f |"O | MOVEA.L A7,A1 000224bc 41 e8 00 fc |A | LEA.L (A0+0xfc),A0 000224c0 70 1d |p | MOVEQ.L #0x1d,D0 000224c2 12 d8 | | MOVE.B (A0)+,(A1)+ 000224c4 51 c8 ff fc |Q | DBF D0,0x224c2 000224c8 51 4f |QO | SUBQ.L #0x8,A7 000224ca 48 6f 00 26 |Ho & | PEA.L (A7+0x26) 000224ce 3f 01 |? | MOVE.W D1,-(A7) 000224d0 3f 02 |? | MOVE.W D2,-(A7) 000224d2 4e 93 |N | JSR (A3) 000224d4 58 4f |XO | ADDQ.L #0x4,A7 000224d6 48 6f 00 0c |Ho | PEA.L (A7+0xc) 000224da 3f 01 |? | MOVE.W D1,-(A7) 000224dc 3f 03 |? | MOVE.W D3,-(A7) 000224de 4e 93 |N | JSR (A3) 000224e0 50 4f |PO | ADDQ.L #0x8,A7 000224e2 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000224e8 50 4f |PO | ADDQ.L #0x8,A7 000224ea 4e 94 |N | JSR (A4) 000224ec de fc 00 30 | 0 | ADDA.W #0x30,A7 000224f0 9e c5 | | SUBA.W D5,A7 000224f2 20 4f | O | MOVEA.L A7,A0 000224f4 43 fa fe ee |C | LEA.L 0x223e4,A1 000224f8 70 0c |p | MOVEQ.L #0x0c,D0 000224fa 10 d9 | | MOVE.B (A1)+,(A0)+ 000224fc 51 c8 ff fc |Q | DBF D0,0x224fa 00022500 51 4f |QO | SUBQ.L #0x8,A7 00022502 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00022506 3f 01 |? | MOVE.W D1,-(A7) 00022508 3f 02 |? | MOVE.W D2,-(A7) 0002250a 4e 93 |N | JSR (A3) 0002250c 54 4f |TO | ADDQ.L #0x2,A7 0002250e 1e ae 00 08 | | MOVE.B (A6+0x8),(A7) 00022512 4e b9 00 01 04 a2 |N | JSR ExpStatus2Text(status.B, &String) 00022518 54 4f |TO | ADDQ.L #0x2,A7 0002251a 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00022520 50 4f |PO | ADDQ.L #0x8,A7 00022522 4e 94 |N | JSR (A4) 00022524 5d 4f |]O | SUBQ.L #0x6,A7 00022526 20 4f | O | MOVEA.L A7,A0 00022528 43 fa fe da |C | LEA.L 0x22404,A1 0002252c 70 16 |p | MOVEQ.L #0x16,D0 0002252e 10 d9 | | MOVE.B (A1)+,(A0)+ 00022530 51 c8 ff fc |Q | DBF D0,0x2252e 00022534 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 00022538 59 4f |YO | SUBQ.L #0x4,A7 0002253a 48 6f 00 06 |Ho | PEA.L (A7+0x6) 0002253e 3f 01 |? | MOVE.W D1,-(A7) 00022540 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7) 00022544 4e 93 |N | JSR (A3) 00022546 50 4f |PO | ADDQ.L #0x8,A7 00022548 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 0002254e de c3 | | ADDA.W D3,A7 00022550 4c df 1f 3f |L ? | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4 00022554 4e 5e |N^ | UNLK A6 00022556 4e 75 |Nu | RTS