|
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: 22528 (0x5800)
Types: M200
Notes: @(#)UPDATE_EEPROM,5.4,92/10/16,12:34:56, M200_PROGRAM
Names: »UPDATE_EEPROM.M200«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »UPDATE_EEPROM.M200«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »UPDATE_EEPROM.M200«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »UPDATE_EEPROM.M200«
@ 2118e
<LVAR 0x00c 4(w)>
<LVAR 0x008 4(r)>
<POP 2118e-21308 Body> Δ+78
<POP 2118e-211a4 Prologue> Σ0 ↓
<POP 211a4-211ba RegCacheLoad> Σ0 ↓
<POP 211ba-211c8 Naked> Σ0 ↓ →0x212d0
<MI 211ba MOVE.L (A6+0x8),D0> {}
<MI 211be CMPI.L #0x00000007,D0> {}
<MI 211c4 BHI 0x212d0> {}
<POP 211c8-211d2 Naked> Σ0 →0x211e2 →0x21202 →0x2121e →0x21246 →0x21268 →0x2128e →0x2129e →0x212b0
<MI 211c8 ADD.W D0,D0> {}
<MI 211ca SWITCH D0.W> {}
<POP 211e2-21202 Naked> Σ0 →0x21300 ←0x211c8
<Blob 0x211e2 [4] @> Δ-4 {[«4""»]}
<Blob 0x211e6 [4] @> Δ-4 {[«4""»]|[«4""»]}
<POP 211ea-211ec StackAdj> Δ-4 {[«4""»]|[«4""»]|[-4-]}
<Lit 0x211ec 8> {[«4""»]|[«4""»]|[$$no error]}
<MI 211fa MOVE.L (A7)+,(A6+0xc)> Δ+4 {[«4""»]|[«4""»]}
<POP 211fc-211fe StackAdj> Δ+8 {}
<MI 211fe BRA 0x21300> {}
<POP 21202-2120e Naked> Σ0 Δ-24 ↓ ←0x211c8
<Blob 0x21202 [24] @> Δ-24 {[«24""»]}
<POP 2120e-2121a Naked> Σ-24 Δ-12 →0x212fa ←0x2128e
<POP 2120e-21210 StackAdj> Δ-4 {[-28-]}
<Lit 0x21210> {[-24-]|[$$…]}
<Pointer.sp 0x21210 4> Δ-4
<Const 0x21214 0x1.2> Δ-2
<Const 0x21216 0x18.2> Δ-2
<Call 0x21218 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<MI 2121a BRA 0x212fa> {[-24-]|[$$…]}
<POP 21218-2121a StackAdj> Δ-8 {[-24-]|[$$…]|[-8-]}
<POP 2121e-21246 Naked> Σ0 →0x21300 ←0x211c8
<Blob 0x2121e [22] @> Δ-22 {[«22""»]}
<POP 2122e-21230 StackAdj> Δ-4 {[«22""»]|[-4-]}
<Lit 0x21230 21> {[«22""»]|[$$bad checksum detected]}
<MI 2123e MOVE.L (A7)+,(A6+0xc)> Δ+4 {[«22""»]}
<POP 21240-21242 StackAdj> Δ+22 {}
<MI 21242 BRA 0x21300> {}
<POP 21246-21268 Naked> Σ0 →0x21300 ←0x211c8
<Blob 0x21246 [26] @> Δ-26 {[«26""»]}
<POP 21252-21254 StackAdj> Δ-4 {[«26""»]|[-4-]}
<Lit 0x21254 26> {[«26""»]|[$$write protect switch is on]}
<MI 21260 MOVE.L (A7)+,(A6+0xc)> Δ+4 {[«26""»]}
<POP 21262-21264 StackAdj> Δ+26 {}
<MI 21264 BRA 0x21300> {}
<POP 21268-21278 Naked> Σ0 Δ-18 ↓ ←0x211c8
<Blob 0x21268 [18] @> Δ-18 {[«18""»]}
<POP 21278-2128e Naked> Σ-18 Δ+18 →0x21300 ←0x2129e
<POP 21278-2127a StackAdj> Δ-4 {[-22-]}
<Lit 0x2127a> {[-18-]|[$$…]}
<Pointer.sp 0x2127a 4> Δ-4
<Const 0x2127e 0x1.2> Δ-2
<Const 0x21280 0x11.2> Δ-2
<Call 0x21284 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 21286-21288 StackAdj> Δ+8
<MI 21288 MOVE.L (A7)+,(A6+0xc)> Δ+4 {[-18-]}
<POP 2128a-2128c StackAdj> Δ+18 {}
<MI 2128c BRA 0x21300> {}
<POP 2128e-2129e Naked> Σ0 Δ-24 →0x2120e ←0x211c8
<Blob 0x2128e [24] @> Δ-24 {[«24""»]}
<MI 2129a BRA 0x2120e> {[«24""»]}
<POP 2129e-212b0 Naked> Σ0 Δ-18 →0x21278 ←0x211c8
<Blob 0x2129e [18] @> Δ-18 {[«18""»]}
<MI 212ae BRA 0x21278> {[«18""»]}
<POP 212b0-212d0 Naked> Σ0 →0x21300 ←0x211c8
<Blob 0x212b0 [20] @> Δ-20 {[«20""»]}
<POP 212bc-212be StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x212be 20> {[«20""»]|[$$prom write timed out]}
<MI 212ca MOVE.L (A7)+,(A6+0xc)> Δ+4 {[«20""»]}
<POP 212cc-212ce StackAdj> Δ+20 {}
<MI 212ce BRA 0x21300> {}
<POP 212d0-212fa Naked> Σ0 Δ-36 ↓ ←0x211ba
<Blob 0x212d0 [24] @> Δ-24 {[«24""»]}
<POP 212dc-212de StackAdj> Δ-8 {[«24""»]|[-8-]}
<Lit 0x212de 24> {[«24""»]|[-4-]|[$$** unknown ERROR_CODE =_]}
<MI 212e8 MOVE.L (A6+0x8),(A7)> {[«24""»]|[-4-]|[4, '(A6+0x8)']}
<POP 212e6-212e8 StackAdj> Δ-8 {[«24""»]|[-4-]|[4, '(A6+0x8)']|[-8-]}
<Call 0x212ec 0x102e4> {[«24""»]|[-4-]|[4, '(A6+0x8)']|[-8-]}
Long2String(a : Long) : String
<POP 212f2-212f4 StackAdj> Δ+4 {[«24""»]|[-4-]|[4, '(A6+0x8)']|[-4-]}
<Call 0x212f4 0x102d0> {[«24""»]|[-4-]|[4, '(A6+0x8)']|[-4-]}
StringCat2(a, b : String) : String
<POP 212fa-21300 Naked> Σ-36 Δ+36 ↓ ←0x2120e
<POP 212fa-212fc StackAdj> Δ+8 {[-28-]}
<MI 212fc MOVE.L (A7)+,(A6+0xc)> Δ+4 {[-24-]}
<POP 212fe-21300 StackAdj> Δ+24 {}
<POP 21300-21308 Epilogue> Σ0 ←0x211e2 ←0x2121e ←0x21246 ←0x21278 ←0x212b0
@ 21308
<LVAR 0x008 4(r)>
<POP 21308-213d0 Body>
<POP 21308-2131e Prologue> Σ0 ↓
<POP 2131e-21326 RegCacheLoad> Σ0 ↓
<POP 21326-21366 Naked> Σ0 ↓ →0x2136e
<Blob 0x21326 [18] @> Δ-18 {[«18""»]}
<POP 21338-2133a StackAdj> Δ-8 {[«18""»]|[-8-]}
<Lit 0x2133a 17> {[«18""»]|[-4-]|[$$*** FATAL ERROR:_]}
<POP 21346-21348 StackAdj> Δ-4 {[«18""»]|[-4-]|[$$*** FATAL ERROR:_]|[-4-]}
<MI 21348 MOVE.L (A6+0x8),(A7)> {[«18""»]|[-4-]|[$$*** FATAL ERROR:_]|[4, '(A6+0x8)']}
<Call 0x2134c 0x102d0> {[«18""»]|[-4-]|[$$*** FATAL ERROR:_]|[4, '(A6+0x8)']}
StringCat2(a, b : String) : String
<POP 21352-21354 StackAdj> Δ+8 {[«18""»]|[-4-]}
<Call 0x21354 0x103e0> {[«18""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 2135a-2135e StackAdj> Δ+22 {}
<MI 2135e TST.B 0x29752> {}
<MI 21364 BNE 0x2136e> {}
<POP 21366-2136e Naked> Σ0 ↓ →0x21398
<MI 21366 TST.B 0x29753> {}
<MI 2136c BEQ 0x21398> {}
<POP 2136e-21394 Naked> Σ0 ↓ ←0x21326
<Blob 0x2136e [48] @> Δ-48 {[«48""»]}
<POP 2137a-2137c StackAdj> Δ-4 {[«48""»]|[-4-]}
<Lit 0x2137c 48> {[«48""»]|[$$EEPROM UPDATE failed: you must reboot the system]}
<Call 0x2138a 0x103e0> {[«48""»]|[$$EEPROM UPDATE failed: you must reboot the system]}
WriteConsoleStringCrLf(str : String)
<POP 21390-21394 StackAdj> Δ+52 {}
<POP 21394-21396 Naked> Σ0 →0x21394 ←0x21394
<MI 21394 BRA 0x21394> {}
<POP 21398-213c8 Naked> Σ0 ↓ ←0x21366
<Blob 0x21398 [24] @> Δ-24 {[«24""»]}
<Const 0x213aa 0xe.2> Δ-2 {[«24""»]|[#14]}
<POP 213ae-213b0 StackAdj> Δ-4 {[«24""»]|[#14]|[-4-]}
<Lit 0x213b0 23> {[«24""»]|[#14]|[$$see error message above]}
<Call 0x213be 0x103b8> {[«24""»]|[#14]|[$$see error message above]}
PopProgram(status : Byte; msg : String)
<POP 213c4-213c8 StackAdj> Δ+30 {}
<POP 213c8-213d0 Epilogue> Σ0
@ 213d0
<LVAR 0x00a 4(rw)>
<LVAR 0x008 1(r)>
<POP 213d0-214fe Body>
<POP 213d0-213e6 Prologue> Σ0 ↓
<POP 213e6-213ea RegCacheLoad> Σ0 ↓
<POP 213ea-213fc Naked> Σ0 ↓ →0x214f0
<MI 213ea CLR.L D0> {}
<MI 213ec MOVE.B (A6+0x8),D0> {}
<MI 213f0 SUBI.W #0x0030,D0> {}
<MI 213f4 CMPI.W #0x0036,D0> {}
<MI 213f8 BHI 0x214f0> {}
<POP 213fc-21406 Naked> Σ0 →0x21474 →0x21478 →0x21480 →0x21488 →0x21490 →0x21498 →0x214a0 →0x214a8 →0x214b0 →0x214b8 →0x214f0 →0x214f0 →0x214f0 →0x214f0 →0x214f0 →0x214f0 →0x214f0 →0x214c0 →0x214c8 →0x214d0 →0x214d8 →0x214e0 →0x214e8 →0x214f0 →0x214f0 →0x214f0 →0x214f0 →0x214f0 →0x214f0 →0x214f0 →0x214f0 →0x214f0 →0x214f0 →0x214f0 →0x214f0 →0x214f0 →0x214f0 →0x214f0 →0x214f0 →0x214f0 →0x214f0 →0x214f0 →0x214f0 →0x214f0 →0x214f0 →0x214f0 →0x214f0 →0x214f0 →0x214f0 →0x214c0 →0x214c8 →0x214d0 →0x214d8 →0x214e0 →0x214e8
<MI 213fc ADD.W D0,D0> {}
<MI 213fe SWITCH D0.W> {}
<POP 21474-21478 Naked> Σ0 →0x214f6 ←0x213fc
<MI 21474 CLR.L (A6+0xa)> {}
<MI 21476 BRA 0x214f6> {}
<POP 21478-21480 Naked> Σ0 →0x214f6 ←0x213fc
<MI 21478 MOVE.L #0x1,(A6+0xa)> {}
<MI 2147e BRA 0x214f6> {}
<POP 21480-21488 Naked> Σ0 →0x214f6 ←0x213fc
<MI 21480 MOVE.L #0x2,(A6+0xa)> {}
<MI 21486 BRA 0x214f6> {}
<POP 21488-21490 Naked> Σ0 →0x214f6 ←0x213fc
<MI 21488 MOVE.L #0x3,(A6+0xa)> {}
<MI 2148e BRA 0x214f6> {}
<POP 21490-21498 Naked> Σ0 →0x214f6 ←0x213fc
<MI 21490 MOVE.L #0x4,(A6+0xa)> {}
<MI 21496 BRA 0x214f6> {}
<POP 21498-214a0 Naked> Σ0 →0x214f6 ←0x213fc
<MI 21498 MOVE.L #0x5,(A6+0xa)> {}
<MI 2149e BRA 0x214f6> {}
<POP 214a0-214a8 Naked> Σ0 →0x214f6 ←0x213fc
<MI 214a0 MOVE.L #0x6,(A6+0xa)> {}
<MI 214a6 BRA 0x214f6> {}
<POP 214a8-214b0 Naked> Σ0 →0x214f6 ←0x213fc
<MI 214a8 MOVE.L #0x7,(A6+0xa)> {}
<MI 214ae BRA 0x214f6> {}
<POP 214b0-214b8 Naked> Σ0 →0x214f6 ←0x213fc
<MI 214b0 MOVE.L #0x8,(A6+0xa)> {}
<MI 214b6 BRA 0x214f6> {}
<POP 214b8-214c0 Naked> Σ0 →0x214f6 ←0x213fc
<MI 214b8 MOVE.L #0x9,(A6+0xa)> {}
<MI 214be BRA 0x214f6> {}
<POP 214c0-214c8 Naked> Σ0 →0x214f6 ←0x213fc ←0x213fc
<MI 214c0 MOVE.L #0xa,(A6+0xa)> {}
<MI 214c6 BRA 0x214f6> {}
<POP 214c8-214d0 Naked> Σ0 →0x214f6 ←0x213fc ←0x213fc
<MI 214c8 MOVE.L #0xb,(A6+0xa)> {}
<MI 214ce BRA 0x214f6> {}
<POP 214d0-214d8 Naked> Σ0 →0x214f6 ←0x213fc ←0x213fc
<MI 214d0 MOVE.L #0xc,(A6+0xa)> {}
<MI 214d6 BRA 0x214f6> {}
<POP 214d8-214e0 Naked> Σ0 →0x214f6 ←0x213fc ←0x213fc
<MI 214d8 MOVE.L #0xd,(A6+0xa)> {}
<MI 214de BRA 0x214f6> {}
<POP 214e0-214e8 Naked> Σ0 →0x214f6 ←0x213fc ←0x213fc
<MI 214e0 MOVE.L #0xe,(A6+0xa)> {}
<MI 214e6 BRA 0x214f6> {}
<POP 214e8-214f0 Naked> Σ0 →0x214f6 ←0x213fc ←0x213fc
<MI 214e8 MOVE.L #0xf,(A6+0xa)> {}
<MI 214ee BRA 0x214f6> {}
<POP 214f0-214f6 Naked> Σ0 ↓ ←0x213ea ←0x213fc ←0x213fc ←0x213fc ←0x213fc ←0x213fc ←0x213fc ←0x213fc ←0x213fc ←0x213fc ←0x213fc ←0x213fc ←0x213fc ←0x213fc ←0x213fc ←0x213fc ←0x213fc ←0x213fc ←0x213fc ←0x213fc ←0x213fc ←0x213fc ←0x213fc ←0x213fc ←0x213fc ←0x213fc ←0x213fc ←0x213fc ←0x213fc ←0x213fc ←0x213fc ←0x213fc ←0x213fc ←0x213fc
<MI 214f0 MOVE.L #0xffffffff,(A6+0xa)> {}
<POP 214f6-214fe Epilogue> Σ0 ←0x21474 ←0x21478 ←0x21480 ←0x21488 ←0x21490 ←0x21498 ←0x214a0 ←0x214a8 ←0x214b0 ←0x214b8 ←0x214c0 ←0x214c8 ←0x214d0 ←0x214d8 ←0x214e0 ←0x214e8
@ 214fe
<LVAR 0x010 2(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 214fe-216ce Body> Δ+48
<POP 214fe-21514 Prologue> Σ0 ↓
<POP 21514-2151e RegCacheLoad> Σ0 ↓
<POP 2151e-2152e Naked> Σ0 ↓ →0x21696
<MI 2151e MOVE.W (A6+0x10),D0> {}
<MI 21522 SUBI.W #0x0015,D0> {}
<MI 21526 CMPI.W #0x003e,D0> {}
<MI 2152a BHI 0x21696> {}
<POP 2152e-21538 Naked> Σ0 →0x21616 →0x21696 →0x21602 →0x21696 →0x215e4 →0x21696 →0x21696 →0x21696 →0x21696 →0x21696 →0x21696 →0x21696 →0x215b6 →0x21696 →0x21696 →0x21696 →0x21696 →0x21696 →0x21696 →0x21696 →0x21696 →0x21696 →0x21696 →0x21696 →0x21696 →0x21696 →0x21696 →0x21696 →0x21696 →0x21696 →0x21696 →0x21696 →0x21696 →0x21696 →0x21696 →0x21696 →0x21696 →0x21696 →0x21696 →0x21696 →0x21696 →0x21696 →0x21696 →0x21696 →0x21696 →0x21696 →0x21696 →0x21696 →0x21696 →0x21696 →0x21696 →0x21696 →0x21696 →0x21696 →0x21696 →0x21696 →0x21696 →0x21696 →0x21696 →0x2162a →0x2163e →0x21672 →0x21684
<MI 2152e ADD.W D0,D0> {}
<MI 21530 SWITCH D0.W> {}
<POP 215b6-215c8 Naked> Σ0 Δ-8 ↓ ←0x2152e
<MI 215b6 MOVEA.L (A6+0xc),A0> {}
<MI 215b8 MOVE.L #0x80000000,(A0)> {}
<MI 215be MOVEA.L (A6+0x8),A0> {}
<Blob 0x215c0 [4] @> Δ-4 {[«4""»]}
<Blob 0x215c4 [4] @> Δ-4 {[«4""»]|[«4""»]}
<POP 215c8-215e4 Naked> Σ-8 Δ+8 →0x216c6 ←0x21602 ←0x21616 ←0x2162a
<POP 215c8-215ca StackAdj> Δ-4 {[-12-]}
<Lit 0x215ca> {[-8-]|[$$…]}
<Pointer.sp 0x215ca 4> Δ-4
<Const 0x215ce 0x1.2> Δ-2
<Const 0x215d0 0x8.2> Δ-2
<Call 0x215d4 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 215da-215dc StackAdj> Δ+8
<MI 215dc MOVE.L (A7)+,(A0)> Δ+4 {[-8-]}
<POP 215de-215e0 StackAdj> Δ+8 {}
<MI 215e0 BRA 0x216c6> {}
<POP 215e4-215f2 Naked> Σ0 Δ-4 ↓ ←0x2152e
<MI 215e4 MOVEA.L (A6+0xc),A0> {}
<MI 215e6 MOVE.L #0x80002000,(A0)> {}
<MI 215ec MOVEA.L (A6+0x8),A0> {}
<Blob 0x215ee [4] @> Δ-4 {[«4""»]}
<POP 215f2-21602 Naked> Σ-4 Δ-12 →0x216ba ←0x21672 ←0x21684
<POP 215f2-215f4 StackAdj> Δ-4 {[-8-]}
<Pointer.sp 0x215f4 4> Δ-4 {[-8-]|[^^4]}
<Const 0x215f8 0x1.2> Δ-2 {[-8-]|[^^4]|[#1]}
<Const 0x215fa 0x4.2> Δ-2 {[-8-]|[^^4]|[#1]|[#4]}
<MI 215fe BRA 0x216ba> {[-8-]|[^^4]|[#1]|[#4]}
<POP 21602-21616 Naked> Σ0 Δ-8 →0x215c8 ←0x2152e
<MI 21602 MOVEA.L (A6+0xc),A0> {}
<MI 21604 MOVE.L #0x80004000,(A0)> {}
<MI 2160a MOVEA.L (A6+0x8),A0> {}
<Blob 0x2160c [4] @> Δ-4 {[«4""»]}
<Blob 0x21610 [4] @> Δ-4 {[«4""»]|[«4""»]}
<MI 21614 BRA 0x215c8> {[«4""»]|[«4""»]}
<POP 21616-2162a Naked> Σ0 Δ-8 →0x215c8 ←0x2152e
<MI 21616 MOVEA.L (A6+0xc),A0> {}
<MI 21618 MOVE.L #0x80006000,(A0)> {}
<MI 2161e MOVEA.L (A6+0x8),A0> {}
<Blob 0x21620 [4] @> Δ-4 {[«4""»]}
<Blob 0x21624 [4] @> Δ-4 {[«4""»]|[«4""»]}
<MI 21628 BRA 0x215c8> {[«4""»]|[«4""»]}
<POP 2162a-2163e Naked> Σ0 Δ-8 →0x215c8 ←0x2152e
<MI 2162a MOVEA.L (A6+0xc),A0> {}
<MI 2162c MOVE.L #0x70000,(A0)> {}
<MI 21632 MOVEA.L (A6+0x8),A0> {}
<Blob 0x21634 [4] @> Δ-4 {[«4""»]}
<Blob 0x21638 [4] @> Δ-4 {[«4""»]|[«4""»]}
<MI 2163c BRA 0x215c8> {[«4""»]|[«4""»]}
<POP 2163e-21672 Naked> Σ0 →0x216c6 ←0x2152e
<MI 2163e MOVEA.L (A6+0xc),A0> {}
<MI 21640 MOVE.L #0x72000,(A0)> {}
<MI 21646 MOVEA.L (A6+0x8),A0> {}
<Blob 0x21648 [6] @> Δ-6 {[«6""»]}
<POP 21658-2165a StackAdj> Δ-4 {[«6""»]|[-4-]}
<Lit 0x2165a 5> {[«6""»]|[$$LANCE]}
<MI 2166c MOVE.L (A7)+,(A0)> Δ+4 {[«6""»]}
<POP 2166e-21670 StackAdj> Δ+6 {}
<MI 21670 BRA 0x216c6> {}
<POP 21672-21684 Naked> Σ0 Δ-4 →0x215f2 ←0x2152e
<MI 21672 MOVEA.L (A6+0xc),A0> {}
<MI 21674 MOVE.L #0x74000,(A0)> {}
<MI 2167a MOVEA.L (A6+0x8),A0> {}
<Blob 0x2167c [4] @> Δ-4 {[«4""»]}
<MI 21680 BRA 0x215f2> {[«4""»]}
<POP 21684-21696 Naked> Σ0 Δ-4 →0x215f2 ←0x2152e
<MI 21684 MOVEA.L (A6+0xc),A0> {}
<MI 21686 MOVE.L #0x76000,(A0)> {}
<MI 2168c MOVEA.L (A6+0x8),A0> {}
<Blob 0x2168e [4] @> Δ-4 {[«4""»]}
<MI 21692 BRA 0x215f2> {[«4""»]}
<POP 21696-216ba Naked> Σ0 Δ-16 ↓ ←0x2151e ←0x2152e ←0x2152e ←0x2152e ←0x2152e ←0x2152e ←0x2152e ←0x2152e ←0x2152e ←0x2152e ←0x2152e ←0x2152e ←0x2152e ←0x2152e ←0x2152e ←0x2152e ←0x2152e ←0x2152e ←0x2152e ←0x2152e ←0x2152e ←0x2152e ←0x2152e ←0x2152e ←0x2152e ←0x2152e ←0x2152e ←0x2152e ←0x2152e ←0x2152e ←0x2152e ←0x2152e ←0x2152e ←0x2152e ←0x2152e ←0x2152e ←0x2152e ←0x2152e ←0x2152e ←0x2152e ←0x2152e ←0x2152e ←0x2152e ←0x2152e ←0x2152e ←0x2152e ←0x2152e ←0x2152e ←0x2152e ←0x2152e ←0x2152e ←0x2152e ←0x2152e ←0x2152e ←0x2152e ←0x2152e
<MI 21696 MOVEA.L (A6+0xc),A0> {}
<MI 21698 CLR.L (A0)> {}
<MI 2169a MOVEA.L (A6+0x8),A0> {}
<POP 2169c-2169e StackAdj> Δ-4 {[-4-]}
<POP 2169e-2169f StackAdj> Δ+2 {[-2-]}
<Blob 0x2169f [2] @> Δ-2 {[-2-]|[«2""»]}
<MI 216a2 MOVE.B 0x20277,(A7+0x1)> {[-2-]|[«2""»]}
<MI 216a8 MOVE.B 0x20278,(A7+0x2)> {[-2-]|[«2""»]}
<POP 216ae-216b0 StackAdj> Δ-4 {[-2-]|[«2""»]|[-4-]}
<Pointer.sp 0x216b0 4> Δ-4 {[-2-]|[«2""»]|[-4-]|[^^4]}
<Const 0x216b4 0x1.2> Δ-2 {[-2-]|[«2""»]|[-4-]|[^^4]|[#1]}
<Const 0x216b6 0x3.2> Δ-2 {[-2-]|[«2""»]|[-4-]|[^^4]|[#1]|[#3]}
<POP 216ba-216c6 Naked> Σ-16 Δ+16 ↓ ←0x215f2
<Call 0x216ba 0x102c4> {[-16-]}
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 216c0-216c2 StackAdj> Δ+8 {[-8-]}
<MI 216c2 MOVE.L (A7)+,(A0)> Δ+4 {[-4-]}
<POP 216c4-216c6 StackAdj> Δ+4 {}
<POP 216c6-216ce Epilogue> Σ0 ←0x215c8 ←0x2163e
@ 216ce
<LVAR 0x008 4(r)>
<LVAR -0x004 2(rw)>
<LVAR -0x008 4(rw)>
<POP 216ce-218e8 Body>
<POP 216ce-216e4 Prologue> Σ0 ↓
<POP 216e4-216f6 RegCacheLoad> Σ0 ↓
<POP 216f6-21730 Naked> Σ0 ↓
<MI 216f6 MOVEA.L (A6+0x8),A0> {}
<POP 216f8-216fa StackAdj> Δ-4 {[-4-]}
<MI 216fa MOVE.B (A0+0x2),-(A7)> Δ-2 {[-4-]|[2, '(A0+0x2)']}
<Call 0x216fe 0x213d0> {[-4-]|[2, '(A0+0x2)']}
<POP 21700-21702 StackAdj> Δ+2 {[-4-]}
<MI 21702 MOVE.L (A7)+,D3> Δ+4 {}
<MI 21704 MOVEQ.L #0x10,D4> {}
<Call 0x21706 0x1028c> {}
?muls_d3_d4
<POP 2170c-2170e StackAdj> Δ-4 {[-4-]}
<MI 2170e MOVE.B (A0+0x3),-(A7)> Δ-2 {[-4-]|[2, '(A0+0x3)']}
<Call 0x21712 0x213d0> {[-4-]|[2, '(A0+0x3)']}
<POP 21714-21716 StackAdj> Δ+2 {[-4-]}
<MI 21716 MOVE.L D4,D0> {[-4-]}
<MI 21718 ADD.L (A7)+,D0> Δ+4 {}
<POP 0x2171a LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 21724 MOVE.W D0,(A6-0x4)> {}
<MI 21728 EXTW.L D0> {}
<MI 2172a MOVE.L D0,D7> {}
<MI 2172c CLR.L (A6-0x8)> {}
<MI 2172e MOVEQ.L #0x00,D6> {}
<POP 21730-2179a Naked> Σ0 ↓ →0x21730 ←0x21730
<MI 21730 MOVEA.L (A6+0x8),A0> {}
<MI 21732 MOVE.L D6,D0> {}
<MI 21734 ASL.L #0x1,D0> {}
<POP 21736-21738 StackAdj> Δ-4 {[-4-]}
<MI 21738 MOVE.L D0,D1> {[-4-]}
<MI 2173a ADDQ.L #0x5,D1> {[-4-]}
<MI 2173c SUBQ.L #0x1,D1> {[-4-]}
<POP 0x2173e LimitCheck 0x0 ≤ D1 ≤ 0x1ff> {[-4-]}
<MI 21748 MOVE.B (A0+D1.L),-(A7)> Δ-2 {[-4-]|[2, '(A0+D1.L)']}
<Call 0x2174c 0x213d0> {[-4-]|[2, '(A0+D1.L)']}
<POP 2174e-21750 StackAdj> Δ+2 {[-4-]}
<MI 21750 MOVE.L (A7)+,D3> Δ+4 {}
<MI 21752 MOVEQ.L #0x10,D4> {}
<Call 0x21754 0x1028c> {}
?muls_d3_d4
<POP 2175a-2175c StackAdj> Δ-4 {[-4-]}
<MI 2175c ADDQ.L #0x6,D0> {[-4-]}
<MI 2175e SUBQ.L #0x1,D0> {[-4-]}
<POP 0x21760 LimitCheck 0x0 ≤ D0 ≤ 0x1ff> {[-4-]}
<MI 2176a MOVE.B (A0+D0.L),-(A7)> Δ-2 {[-4-]|[2, '(A0+D0.L)']}
<Call 0x2176e 0x213d0> {[-4-]|[2, '(A0+D0.L)']}
<POP 21770-21772 StackAdj> Δ+2 {[-4-]}
<MI 21772 MOVE.L D4,D0> {[-4-]}
<MI 21774 ADD.L (A7)+,D0> Δ+4 {}
<POP 0x21776 LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 21780 MOVE.W D0,D5> {}
<MI 21782 MOVE.L (A6-0x8),D0> {}
<MI 21784 ASL.L #0x8,D0> {}
<MI 21786 MOVE.W D5,D1> {}
<MI 21788 EXTW.L D1> {}
<MI 2178a ADD.L D1,D0> {}
<MI 2178c MOVE.L D0,(A6-0x8)> {}
<MI 2178e ADD.L D1,D7> {}
<MI 21790 ADDQ.L #0x1,D6> {}
<MI 21792 CMPI.L #0x00000003,D6> {}
<MI 21798 BLE 0x21730> {}
<POP 2179a-2179e Naked> Σ0 ↓ →0x217aa
<MI 2179a TST.L 0x2573c> {}
<MI 2179c BNE 0x217aa> {}
<POP 2179e-217aa Naked> Σ0 ↓
<MI 2179e MOVE.L (A6-0x8),D0> {}
<MI 217a0 LSR.L #0x8,D0> {}
<MI 217a2 LSR.L #0x5,D0> {}
<MI 217a4 ASL.L #0x8,D0> {}
<MI 217a6 ASL.L #0x5,D0> {}
<MI 217a8 MOVE.L D0,0x2573c> {}
<POP 217aa-217b6 Naked> Σ0 Δ-4 ↓ ←0x2179a
<MI 217aa MOVE.W (A6-0x4),D0> {}
<MI 217ae SUBQ.W #0x6,D0> {}
<MI 217b0 EXTW.L D0> {}
<MI 217b2 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 217b4 MOVEQ.L #0x00,D6> {[4, 'D0']}
<POP 217b6-217bc Naked> Σ-4 ↓ →0x21862 ←0x2185c
<MI 217b6 CMP.L (A7),D6> {[-4-]}
<MI 217b8 BGT 0x21862> {[-4-]}
<POP 217bc-2182a Naked> Σ-4 ↓ →0x2185c
<MI 217bc MOVEA.L (A6+0x8),A0> {[-4-]}
<MI 217be MOVE.L D6,D0> {[-4-]}
<MI 217c0 ASL.L #0x1,D0> {[-4-]}
<POP 217c2-217c4 StackAdj> Δ-4 {[-8-]}
<MI 217c4 MOVE.L D0,D1> {[-8-]}
<MI 217c6 ADDI.L #0x0000000d,D1> {[-8-]}
<MI 217cc SUBQ.L #0x1,D1> {[-8-]}
<POP 0x217ce LimitCheck 0x0 ≤ D1 ≤ 0x1ff> {[-8-]}
<MI 217d8 MOVE.B (A0+D1.L),-(A7)> Δ-2 {[-8-]|[2, '(A0+D1.L)']}
<Call 0x217dc 0x213d0> {[-8-]|[2, '(A0+D1.L)']}
<POP 217de-217e0 StackAdj> Δ+2 {[-8-]}
<MI 217e0 MOVE.L (A7)+,D3> Δ+4 {[-4-]}
<MI 217e2 MOVEQ.L #0x10,D4> {[-4-]}
<Call 0x217e4 0x1028c> {[-4-]}
?muls_d3_d4
<POP 217ea-217ec StackAdj> Δ-4 {[-8-]}
<MI 217ec ADDI.L #0x0000000e,D0> {[-8-]}
<MI 217f2 SUBQ.L #0x1,D0> {[-8-]}
<POP 0x217f4 LimitCheck 0x0 ≤ D0 ≤ 0x1ff> {[-8-]}
<MI 217fe MOVE.B (A0+D0.L),-(A7)> Δ-2 {[-8-]|[2, '(A0+D0.L)']}
<Call 0x21802 0x213d0> {[-8-]|[2, '(A0+D0.L)']}
<POP 21804-21806 StackAdj> Δ+2 {[-8-]}
<MI 21806 MOVE.L D4,D0> {[-8-]}
<MI 21808 ADD.L (A7)+,D0> Δ+4 {[-4-]}
<POP 0x2180a LimitCheck 0x0 ≤ D0 ≤ 0xff> {[-4-]}
<MI 21814 MOVE.W D0,D5> {[-4-]}
<MI 21816 MOVE.W D5,D0> {[-4-]}
<MI 21818 EXTW.L D0> {[-4-]}
<MI 2181a ADD.L D0,D7> {[-4-]}
<MI 2181c ADDQ.L #0x1,0x25740> {[-4-]}
<MI 21822 MOVE.L (A6-0x8),D1> {[-4-]}
<MI 21824 ADD.L D6,D1> {[-4-]}
<MI 21826 CMP.L 0x2573c,D1> {[-4-]}
<MI 21828 BCS 0x2185c> {[-4-]}
<POP 2182a-21836 Naked> Σ-4 ↓ →0x2185c
<MI 2182a MOVE.L 0x2573c,D2> {[-4-]}
<MI 2182c ADDI.L #0x00002000,D2> {[-4-]}
<MI 21832 CMP.L D2,D1> {[-4-]}
<MI 21834 BCC 0x2185c> {[-4-]}
<POP 21836-2185c Naked> Σ-4 ↓
<MI 21836 ANDI.L #0x00001fff,D1> {[-4-]}
<POP 0x2183c LimitCheck 0x0 ≤ D1 ≤ 0x1fff> {[-4-]}
<MI 21846 ASL.L #0x1,D1> {[-4-]}
<MI 21848 LEA.L 0x25728,A0> {[-4-]}
<POP 0x2184e LimitCheck 0x0 ≤ D0 ≤ 0xff> {[-4-]}
<MI 21852 MOVE.W D0,(A0+D1.L+#0x2a)> {[-4-]}
<MI 21856 ADDQ.L #0x1,0x25744> {[-4-]}
<POP 2185c-21862 Naked> Σ-4 ↓ →0x217b6 ←0x217bc ←0x2182a
<MI 2185c ADDQ.L #0x1,D6> {[-4-]}
<MI 2185e BVC 0x217b6> {[-4-]}
<POP 21862-218b6 Naked> Σ-4 Δ+4 ↓ →0x218e0 ←0x217b6
<POP 21862-21864 StackAdj> Δ+4 {}
<MI 21864 MOVEA.L (A6+0x8),A0> {}
<MI 21866 MOVE.W (A6-0x4),D0> {}
<MI 2186a ASL.W #0x1,D0> {}
<POP 2186c-2186e StackAdj> Δ-4 {[-4-]}
<MI 2186e MOVE.W D0,D1> {[-4-]}
<MI 21870 ADDQ.W #0x3,D1> {[-4-]}
<MI 21872 SUBQ.W #0x1,D1> {[-4-]}
<POP 0x21874 LimitCheck 0x0 ≤ D1 ≤ 0x1ff> {[-4-]}
<MI 21878 MOVE.B (A0+D1.W),-(A7)> Δ-2 {[-4-]|[2, '(A0+D1.W)']}
<Call 0x2187c 0x213d0> {[-4-]|[2, '(A0+D1.W)']}
<POP 2187e-21880 StackAdj> Δ+2 {[-4-]}
<MI 21880 MOVE.L (A7)+,D3> Δ+4 {}
<MI 21882 MOVEQ.L #0x10,D4> {}
<Call 0x21884 0x1028c> {}
?muls_d3_d4
<MI 2188a ADD.L D4,D7> {}
<POP 2188c-2188e StackAdj> Δ-4 {[-4-]}
<MI 2188e ADDQ.W #0x4,D0> {[-4-]}
<MI 21890 SUBQ.W #0x1,D0> {[-4-]}
<POP 0x21892 LimitCheck 0x0 ≤ D0 ≤ 0x1ff> {[-4-]}
<MI 21896 MOVE.B (A0+D0.W),-(A7)> Δ-2 {[-4-]|[2, '(A0+D0.W)']}
<Call 0x2189a 0x213d0> {[-4-]|[2, '(A0+D0.W)']}
<POP 2189c-2189e StackAdj> Δ+2 {[-4-]}
<MI 2189e ADD.L (A7)+,D7> Δ+4 {}
<MI 218a0 MOVE.L D7,D4> {}
<MI 218a2 MOVE.L #0x100,D3> {}
<Call 0x218a8 0x10294> {}
?divs_d3_d4
<MI 218ae CMPI.L #0x000000ff,D3> {}
<MI 218b4 BEQ 0x218e0> {}
<POP 218b6-218e0 Naked> Σ0 ↓
<Blob 0x218b6 [32] @> Δ-32 {[«32""»]}
<POP 218c2-218c4 StackAdj> Δ-4 {[«32""»]|[-4-]}
<Lit 0x218c4 32> {[«32""»]|[$$Checksum error in file data line]}
<Call 0x218d8 0x21308> {[«32""»]|[$$Checksum error in file data line]}
<POP 218dc-218e0 StackAdj> Δ+36 {}
<POP 218e0-218e8 Epilogue> Σ0 ←0x21862
@ 218e8
<LVAR 0x008 4(r)>
<LVAR -0x209 1(r)>
<LVAR -0x20a @ 1(rw)>
<LVAR -0x20e @ 4(r)>
<LVAR -0x210 @ 1(r)>
<POP 218e8-21b68 Body>
<POP 218e8-218fe Prologue> Σ0 ↓
<POP 218fe-21910 RegCacheLoad> Σ0 ↓
<POP 21910-2191a Naked> Σ0 ↓
<Pointer.fp 0x21910 <LVAR -0x20e @ 4(r)>> Δ-4 {[@@-526]}
<Call 0x21912 0x102b8> {[@@-526]}
NewString(VAR a : String)
<POP 21918-2191a StackAdj> Δ+4 {}
<POP 2191a-21922 Naked> Σ0 ↓ ←0x21aa6
<MI 2191a MOVEQ.L #0x00,D7> {}
<MI 2191c MOVE.B #0x20,(A6-0x20a)> {}
<POP 21922-2193a Naked> Σ0 ↓ →0x21978 ←0x219fc
<MI 21922 MOVEA.L (A6+0x8),A0> {}
<MI 21926 MOVE.L (A0),-(A7)> Δ-4 {[4, '(A0)']}
<Pointer.fp 0x21928 <LVAR -0x20e @ 4(r)>> Δ-4 {[4, '(A0)']|[@@-526]}
<Pointer.fp 0x2192a <LVAR -0x210 @ 1(r)>> Δ-4 {[4, '(A0)']|[@@-526]|[@@-528]}
<Call 0x2192c 0x1043c> {[4, '(A0)']|[@@-526]|[@@-528]}
FileReadLine(file : File; VAR a : String; VAR b : Byte)
<POP 21932-21936 StackAdj> Δ+12 {}
<MI 21936 TST.B (A6-0x210)> {}
<MI 21938 BEQ 0x21978> {}
<POP 2193a-21978 Naked> Σ0 ↓
<MI 2193a CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x2193c 0x1.2> Δ-2 {[#0]|[#1]}
<Const 0x2193e 0x1.4> Δ-4 {[#0]|[#1]|[##1]}
<Const 0x21942 0x25730.4> Δ-4 {[#0]|[#1]|[##1]|[##153392]}
<MI 21944 PEA.L (A0)> Δ-4 {[#0]|[#1]|[##1]|[##153392]|[4, '^(A0)']}
<Call 0x21946 0x1038c> {[#0]|[#1]|[##1]|[##153392]|[4, '^(A0)']}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 2194c-21950 StackAdj> Δ+16 {}
<Blob 0x21950 [22] @> Δ-22 {[«22""»]}
<POP 2195c-2195e StackAdj> Δ-4 {[«22""»]|[-4-]}
<Lit 0x2195e 22> {[«22""»]|[$$File has no END record]}
<Call 0x21970 0x21308> {[«22""»]|[$$File has no END record]}
<POP 21974-21978 StackAdj> Δ+26 {}
<POP 21978-21982 Naked> Σ0 Δ-4 ↓ ←0x21922
<MI 21978 MOVEA.L (A6-0x20e),A0> {}
<MI 2197a MOVE.W (A0),D0> {}
<MI 2197c EXTW.L D0> {}
<MI 2197e MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 21980 MOVEQ.L #0x01,D6> {[4, 'D0']}
<POP 21982-21986 Naked> Σ-4 ↓ →0x219fc ←0x219d2
<MI 21982 CMP.L (A7),D6> {[-4-]}
<MI 21984 BGT 0x219fc> {[-4-]}
<POP 21986-21990 Naked> Σ-4 ↓ →0x219d2
<MI 21986 ADDQ.L #0x1,D7> {[-4-]}
<MI 21988 CMPI.L #0x00000200,D7> {[-4-]}
<MI 2198e BLE 0x219d2> {[-4-]}
<POP 21990-219d2 Naked> Σ-4 ↓
<MI 21990 CLR.B -(A7)> Δ-2 {[-4-]|[#0]}
<Const 0x21992 0x1.2> Δ-2 {[-4-]|[#0]|[#1]}
<Const 0x21994 0x1.4> Δ-4 {[-4-]|[#0]|[#1]|[##1]}
<Const 0x21998 0x25730.4> Δ-4 {[-4-]|[#0]|[#1]|[##1]|[##153392]}
<MI 2199a MOVEA.L (A6+0x8),A0> {[-4-]|[#0]|[#1]|[##1]|[##153392]}
<MI 2199e PEA.L (A0)> Δ-4 {[-4-]|[#0]|[#1]|[##1]|[##153392]|[4, '^(A0)']}
<Call 0x219a0 0x1038c> {[-4-]|[#0]|[#1]|[##1]|[##153392]|[4, '^(A0)']}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 219a6-219aa StackAdj> Δ+16 {[-4-]}
<Blob 0x219aa [18] @> Δ-18 {[-4-]|[«18""»]}
<POP 219b6-219b8 StackAdj> Δ-4 {[-4-]|[«18""»]|[-4-]}
<Lit 0x219b8 18> {[-4-]|[«18""»]|[$$File line too long]}
<Call 0x219ca 0x21308> {[-4-]|[«18""»]|[$$File line too long]}
<POP 219ce-219d2 StackAdj> Δ+22 {[-4-]}
<POP 219d2-219fc Naked> Σ-4 ↓ →0x21982 ←0x21986
<MI 219d2 MOVE.L D7,D0> {[-4-]}
<MI 219d4 SUBQ.L #0x1,D0> {[-4-]}
<POP 0x219d6 LimitCheck 0x0 ≤ D0 ≤ 0x1ff> {[-4-]}
<MI 219e0 LEA.L (A6-0x210),A0> {[-4-]}
<MI 219e2 MOVEA.L (A6-0x20e),A1> {[-4-]}
<MI 219e4 MOVE.L D6,D1> {[-4-]}
<MI 219e6 SUBQ.L #0x1,D1> {[-4-]}
<POP 0x219e8 LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-4-]}
<MI 219f2 MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x6)> {[-4-]}
<MI 219f8 ADDQ.L #0x1,D6> {[-4-]}
<MI 219fa BVC 0x21982> {[-4-]}
<POP 219fc-21a0a Naked> Σ-4 Δ+4 ↓ →0x21922 ←0x21982
<POP 219fc-219fe StackAdj> Δ+4 {}
<MI 219fe MOVEA.L (A6-0x20e),A0> {}
<MI 21a00 MOVE.W (A0),D0> {}
<MI 21a02 CMPI.W #0x007e,D0> {}
<MI 21a06 BGE 0x21922> {}
<POP 21a0a-21a12 Naked> Σ0 ↓ →0x21a28
<MI 21a0a MOVE.B (A6-0x20a),D0> {}
<MI 21a0e CMP.B #0x53,D0> {}
<MI 21a10 BNE 0x21a28> {}
<POP 21a12-21a1c Naked> Σ0 ↓ →0x21a28
<MI 21a12 MOVE.B (A6-0x209),D1> {}
<MI 21a16 CMPI.B #0x33,D1> {}
<MI 21a1a BNE 0x21a28> {}
<POP 21a1c-21a28 Naked> Σ0 →0x21a9c
<Pointer.fp 0x21a1c <LVAR -0x20a @ 1(rw)>> Δ-4 {[@@-522]}
<Call 0x21a20 0x216ce> {[@@-522]}
<POP 21a24-21a26 StackAdj> Δ+4 {}
<MI 21a26 BRA 0x21a9c> {}
<POP 21a28-21a2c Naked> Σ0 ↓ →0x21a38 ←0x21a0a ←0x21a12
<MI 21a28 CMP.B #0x53,D0> {}
<MI 21a2a BNE 0x21a38> {}
<POP 21a2c-21a36 Naked> Σ0 ↓ →0x21a38
<MI 21a2c MOVE.B (A6-0x209),D1> {}
<MI 21a30 CMPI.B #0x35,D1> {}
<MI 21a34 BNE 0x21a38> {}
<POP 21a36-21a38 Naked> Σ0 →0x21a9c
<MI 21a36 BRA 0x21a9c> {}
<POP 21a38-21a3c Naked> Σ0 ↓ →0x21a48 ←0x21a28 ←0x21a2c
<MI 21a38 CMP.B #0x53,D0> {}
<MI 21a3a BNE 0x21a48> {}
<POP 21a3c-21a46 Naked> Σ0 ↓ →0x21a48
<MI 21a3c MOVE.B (A6-0x209),D1> {}
<MI 21a40 CMPI.B #0x37,D1> {}
<MI 21a44 BNE 0x21a48> {}
<POP 21a46-21a48 Naked> Σ0 →0x21a9c
<MI 21a46 BRA 0x21a9c> {}
<POP 21a48-21a4c Naked> Σ0 ↓ →0x21a58 ←0x21a38 ←0x21a3c
<MI 21a48 CMP.B #0x53,D0> {}
<MI 21a4a BNE 0x21a58> {}
<POP 21a4c-21a56 Naked> Σ0 ↓ →0x21a58
<MI 21a4c MOVE.B (A6-0x209),D0> {}
<MI 21a50 CMPI.B #0x38,D0> {}
<MI 21a54 BNE 0x21a58> {}
<POP 21a56-21a58 Naked> Σ0 →0x21a9c
<MI 21a56 BRA 0x21a9c> {}
<POP 21a58-21a9c Naked> Σ0 ↓ ←0x21a48 ←0x21a4c
<MI 21a58 CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x21a5a 0x1.2> Δ-2 {[#0]|[#1]}
<Const 0x21a5c 0x1.4> Δ-4 {[#0]|[#1]|[##1]}
<Const 0x21a60 0x25730.4> Δ-4 {[#0]|[#1]|[##1]|[##153392]}
<MI 21a62 MOVEA.L (A6+0x8),A0> {[#0]|[#1]|[##1]|[##153392]}
<MI 21a66 PEA.L (A0)> Δ-4 {[#0]|[#1]|[##1]|[##153392]|[4, '^(A0)']}
<Call 0x21a68 0x1038c> {[#0]|[#1]|[##1]|[##153392]|[4, '^(A0)']}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 21a6e-21a6f StackAdj> Δ+16 ↓ {}
<Blob 0x21a6f [30] @> Δ-30 {[«30""»]}
<POP 21a80-21a82 StackAdj> Δ-4 {[«30""»]|[-4-]}
<Lit 0x21a82 29> {[«30""»]|[$$Invalid file data line format]}
<Call 0x21a94 0x21308> {[«30""»]|[$$Invalid file data line format]}
<POP 21a98-21a9c StackAdj> Δ+34 {}
<POP 21a9c-21aa6 Naked> Σ0 ↓ →0x21aae ←0x21a1c ←0x21a36 ←0x21a46 ←0x21a56
<MI 21a9c MOVE.B (A6-0x209),D0> {}
<MI 21aa0 CMPI.B #0x37,D0> {}
<MI 21aa4 BEQ 0x21aae> {}
<POP 21aa6-21aae Naked> Σ0 ↓ →0x2191a
<MI 21aa6 CMPI.B #0x38,D0> {}
<MI 21aaa BNE 0x2191a> {}
<POP 21aae-21ad6 Naked> Σ0 ↓ →0x21b56 ←0x21a9c
<MI 21aae CLR.W 0x2975c> {}
<MI 21ab4 CLR.W 0x2975e> {}
<MI 21aba MOVEA.L (A6+0x8),A0> {}
<MI 21abe MOVE.L (A0),-(A7)> Δ-4 {[4, '(A0)']}
<Pointer.fp 0x21ac0 <LVAR -0x20e @ 4(r)>> Δ-4 {[4, '(A0)']|[@@-526]}
<Pointer.fp 0x21ac2 <LVAR -0x210 @ 1(r)>> Δ-4 {[4, '(A0)']|[@@-526]|[@@-528]}
<Call 0x21ac4 0x1043c> {[4, '(A0)']|[@@-526]|[@@-528]}
FileReadLine(file : File; VAR a : String; VAR b : Byte)
<POP 21aca-21ace StackAdj> Δ+12 {}
<MI 21ace MOVEA.L (A6-0x20e),A0> {}
<MI 21ad0 TST.B (A6-0x210)> {}
<MI 21ad2 BNE 0x21b56> {}
<POP 21ad6-21ae0 Naked> Σ0 ↓ →0x21b56
<MI 21ad6 MOVE.B (A0+0x2),D0> {}
<MI 21ada CMPI.B #0x52,D0> {}
<MI 21ade BNE 0x21b56> {}
<POP 21ae0-21aea Naked> Σ0 ↓ →0x21b56
<MI 21ae0 MOVE.B (A0+0x5),D0> {}
<MI 21ae4 CMPI.B #0x4e,D0> {}
<MI 21ae8 BNE 0x21b56> {}
<POP 21aea-21b56 Naked> Σ0 ↓
<POP 21aea-21aec StackAdj> Δ-4 {[-4-]}
<MI 21aec MOVE.B (A0+0x3),-(A7)> Δ-2 {[-4-]|[2, '(A0+0x3)']}
<Call 0x21af0 0x213d0> {[-4-]|[2, '(A0+0x3)']}
<POP 21af4-21af6 StackAdj> Δ+2 {[-4-]}
<MI 21af6 MOVE.L (A7)+,D4> Δ+4 {}
<MI 21af8 MOVEQ.L #0x0a,D3> {}
<Call 0x21afa 0x1028c> {}
?muls_d3_d4
<POP 21b00-21b02 StackAdj> Δ-4 {[-4-]}
<MI 21b02 MOVE.B (A0+0x4),-(A7)> Δ-2 {[-4-]|[2, '(A0+0x4)']}
<Call 0x21b06 0x213d0> {[-4-]|[2, '(A0+0x4)']}
<POP 21b0a-21b0c StackAdj> Δ+2 {[-4-]}
<MI 21b0c MOVE.L D4,D0> {[-4-]}
<MI 21b0e ADD.L (A7)+,D0> Δ+4 {}
<POP 0x21b10 LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 21b1a MOVE.W D0,0x2975c> {}
<POP 21b20-21b22 StackAdj> Δ-4 {[-4-]}
<MI 21b22 MOVE.B (A0+0x6),-(A7)> Δ-2 {[-4-]|[2, '(A0+0x6)']}
<Call 0x21b26 0x213d0> {[-4-]|[2, '(A0+0x6)']}
<POP 21b2a-21b2c StackAdj> Δ+2 {[-4-]}
<MI 21b2c MOVE.L (A7)+,D4> Δ+4 {}
<MI 21b2e MOVEQ.L #0x0a,D3> {}
<Call 0x21b30 0x1028c> {}
?muls_d3_d4
<POP 21b36-21b38 StackAdj> Δ-4 {[-4-]}
<MI 21b38 MOVE.B (A0+0x7),-(A7)> Δ-2 {[-4-]|[2, '(A0+0x7)']}
<Call 0x21b3c 0x213d0> {[-4-]|[2, '(A0+0x7)']}
<POP 21b40-21b42 StackAdj> Δ+2 {[-4-]}
<MI 21b42 MOVE.L D4,D0> {[-4-]}
<MI 21b44 ADD.L (A7)+,D0> Δ+4 {}
<POP 0x21b46 LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 21b50 MOVE.W D0,0x2975e> {}
<POP 21b56-21b60 Naked> Σ0 ↓ ←0x21aae ←0x21ad6 ←0x21ae0
<Pointer.fp 0x21b56 <LVAR -0x20e @ 4(r)>> Δ-4 {[@@-526]}
<Call 0x21b58 0x102bc> {[@@-526]}
FreeString(VAR a : String)
<POP 21b5e-21b60 StackAdj> Δ+4 {}
<POP 21b60-21b68 Epilogue> Σ0
@ 21b68
<LVAR 0x008 4(r)>
<LVAR -0x010 4(rw)>
<LVAR -0x014 4(rw)>
<POP 21b68-21d44 Body>
<POP 21b68-21b7e Prologue> Σ0 ↓
<POP 21b7e-21b8e RegCacheLoad> Σ0 ↓
<POP 21b8e-21c44 Naked> Σ0 Δ-4 ↓
<MI 21b8e MOVEA.L (A6+0x8),A0> {}
<POP 21b90-21b92 StackAdj> Δ-4 {[-4-]}
<MI 21b92 MOVE.B (A0+0x3),-(A7)> Δ-2 {[-4-]|[2, '(A0+0x3)']}
<Call 0x21b96 0x213d0> {[-4-]|[2, '(A0+0x3)']}
<POP 21b98-21b9a StackAdj> Δ+2 {[-4-]}
<MI 21b9a MOVE.L (A7)+,D3> Δ+4 {}
<MI 21b9c MOVEQ.L #0x10,D4> {}
<Call 0x21b9e 0x1028c> {}
?muls_d3_d4
<POP 21ba0-21ba2 StackAdj> Δ-4 {[-4-]}
<MI 21ba2 MOVE.B (A0+0x4),-(A7)> Δ-2 {[-4-]|[2, '(A0+0x4)']}
<Call 0x21ba6 0x213d0> {[-4-]|[2, '(A0+0x4)']}
<POP 21ba8-21baa StackAdj> Δ+2 {[-4-]}
<MI 21baa MOVE.L D4,D0> {[-4-]}
<MI 21bac ADD.L (A7)+,D0> Δ+4 {}
<MI 21bae MOVE.L D0,(A6-0x10)> {}
<POP 21bb2-21bb4 StackAdj> Δ-4 {[-4-]}
<MI 21bb4 MOVE.B (A0+0x5),-(A7)> Δ-2 {[-4-]|[2, '(A0+0x5)']}
<Call 0x21bb8 0x213d0> {[-4-]|[2, '(A0+0x5)']}
<POP 21bba-21bbc StackAdj> Δ+2 {[-4-]}
<MI 21bbc MOVE.L (A7)+,D3> Δ+4 {}
<MI 21bbe MOVE.L #0x1000,D4> {}
<Call 0x21bc4 0x1028c> {}
?muls_d3_d4
<MI 21bc6 MOVE.L D4,-(A7)> Δ-4 {[4, 'D4']}
<POP 21bc8-21bca StackAdj> Δ-4 {[4, 'D4']|[-4-]}
<MI 21bca MOVE.B (A0+0x6),-(A7)> Δ-2 {[4, 'D4']|[-4-]|[2, '(A0+0x6)']}
<Call 0x21bce 0x213d0> {[4, 'D4']|[-4-]|[2, '(A0+0x6)']}
<POP 21bd0-21bd2 StackAdj> Δ+2 {[4, 'D4']|[-4-]}
<MI 21bd2 MOVE.L (A7)+,D3> Δ+4 {[4, 'D4']}
<MI 21bd4 MOVE.L #0x100,D4> {[4, 'D4']}
<Call 0x21bda 0x1028c> {[4, 'D4']}
?muls_d3_d4
<MI 21bdc MOVE.L (A7),D1> {[4, 'D4']}
<MI 21bde ADD.L D4,D1> {[4, 'D4']}
<MI 21be0 MOVE.B (A0+0x7),-(A7)> Δ-2 {[4, 'D4']|[2, '(A0+0x7)']}
<Call 0x21be4 0x213d0> {[4, 'D4']|[2, '(A0+0x7)']}
<POP 21be6-21be8 StackAdj> Δ+2 {[4, 'D4']}
<MI 21be8 MOVE.L (A7)+,D3> Δ+4 {}
<MI 21bea MOVEQ.L #0x10,D4> {}
<Call 0x21bec 0x1028c> {}
?muls_d3_d4
<MI 21bee ADD.L D4,D1> {}
<POP 21bf0-21bf2 StackAdj> Δ-4 {[-4-]}
<MI 21bf2 MOVE.B (A0+0x8),-(A7)> Δ-2 {[-4-]|[2, '(A0+0x8)']}
<Call 0x21bf6 0x213d0> {[-4-]|[2, '(A0+0x8)']}
<POP 21bf8-21bfa StackAdj> Δ+2 {[-4-]}
<MI 21bfa ADD.L (A7)+,D1> Δ+4 {}
<MI 21bfc MOVE.L D1,(A6-0x14)> {}
<MI 21c00 MOVE.L D0,D7> {}
<POP 21c02-21c04 StackAdj> Δ-4 {[-4-]}
<MI 21c04 MOVE.B (A0+0x5),-(A7)> Δ-2 {[-4-]|[2, '(A0+0x5)']}
<Call 0x21c08 0x213d0> {[-4-]|[2, '(A0+0x5)']}
<POP 21c0a-21c0c StackAdj> Δ+2 {[-4-]}
<MI 21c0c MOVE.L (A7)+,D3> Δ+4 {}
<MI 21c0e MOVEQ.L #0x10,D4> {}
<Call 0x21c10 0x1028c> {}
?muls_d3_d4
<MI 21c12 ADD.L D4,D7> {}
<POP 21c14-21c16 StackAdj> Δ-4 {[-4-]}
<MI 21c16 MOVE.B (A0+0x6),-(A7)> Δ-2 {[-4-]|[2, '(A0+0x6)']}
<Call 0x21c1a 0x213d0> {[-4-]|[2, '(A0+0x6)']}
<POP 21c1c-21c1e StackAdj> Δ+2 {[-4-]}
<MI 21c1e ADD.L (A7)+,D7> Δ+4 {}
<POP 21c20-21c22 StackAdj> Δ-4 {[-4-]}
<MI 21c22 MOVE.B (A0+0x7),-(A7)> Δ-2 {[-4-]|[2, '(A0+0x7)']}
<Call 0x21c26 0x213d0> {[-4-]|[2, '(A0+0x7)']}
<POP 21c28-21c2a StackAdj> Δ+2 {[-4-]}
<MI 21c2a MOVE.L (A7)+,D3> Δ+4 {}
<MI 21c2c MOVEQ.L #0x10,D4> {}
<Call 0x21c2e 0x1028c> {}
?muls_d3_d4
<MI 21c30 ADD.L D4,D7> {}
<POP 21c32-21c34 StackAdj> Δ-4 {[-4-]}
<MI 21c34 MOVE.B (A0+0x8),-(A7)> Δ-2 {[-4-]|[2, '(A0+0x8)']}
<Call 0x21c38 0x213d0> {[-4-]|[2, '(A0+0x8)']}
<POP 21c3a-21c3c StackAdj> Δ+2 {[-4-]}
<MI 21c3c ADD.L (A7)+,D7> Δ+4 {}
<MI 21c3e SUBQ.L #0x1,D0> {}
<MI 21c40 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 21c42 MOVEQ.L #0x00,D5> {[4, 'D0']}
<POP 21c44-21c48 Naked> Σ-4 ↓ →0x21cbe ←0x21c48
<MI 21c44 CMP.L (A7),D5> {[-4-]}
<MI 21c46 BGT 0x21cbe> {[-4-]}
<POP 21c48-21cbe Naked> Σ-4 ↓ →0x21c44
<MI 21c48 MOVEA.L (A6+0x8),A0> {[-4-]}
<MI 21c4a MOVE.L D5,D0> {[-4-]}
<MI 21c4c ASL.L #0x1,D0> {[-4-]}
<POP 21c4e-21c50 StackAdj> Δ-4 {[-8-]}
<MI 21c50 MOVEQ.L #0x0a,D1> {[-8-]}
<MI 21c52 ADD.L D0,D1> {[-8-]}
<MI 21c54 SUBQ.L #0x1,D1> {[-8-]}
<POP 0x21c56 LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-8-]}
<MI 21c5c MOVE.B (A0+D1.L+#0x2),-(A7)> Δ-2 {[-8-]|[2, '(A0+D1.L+#0x2)']}
<Call 0x21c60 0x213d0> {[-8-]|[2, '(A0+D1.L+#0x2)']}
<POP 21c62-21c64 StackAdj> Δ+2 {[-8-]}
<MI 21c64 MOVE.L (A7)+,D3> Δ+4 {[-4-]}
<MI 21c66 MOVEQ.L #0x10,D4> {[-4-]}
<Call 0x21c68 0x1028c> {[-4-]}
?muls_d3_d4
<POP 21c6a-21c6c StackAdj> Δ-4 {[-8-]}
<MI 21c6c ADDI.L #0x0000000b,D0> {[-8-]}
<MI 21c72 SUBQ.L #0x1,D0> {[-8-]}
<POP 0x21c74 LimitCheck 0x0 ≤ D0 ≤ 0x7d> {[-8-]}
<MI 21c7a MOVE.B (A0+D0.L+#0x2),-(A7)> Δ-2 {[-8-]|[2, '(A0+D0.L+#0x2)']}
<Call 0x21c7e 0x213d0> {[-8-]|[2, '(A0+D0.L+#0x2)']}
<POP 21c80-21c82 StackAdj> Δ+2 {[-8-]}
<MI 21c82 MOVE.L D4,D6> {[-8-]}
<MI 21c84 ADD.L (A7)+,D6> Δ+4 {[-4-]}
<MI 21c86 MOVE.L (A6-0x14),D0> {[-4-]}
<MI 21c8a ADD.L D5,D0> {[-4-]}
<POP 0x21c8c LimitCheck 0x0 ≤ D0 ≤ 0x1fff> {[-4-]}
<MI 21c96 ASL.L #0x1,D0> {[-4-]}
<MI 21c98 LEA.L 0x25728,A0> {[-4-]}
<POP 0x21c9e LimitCheck 0x0 ≤ D6 ≤ 0xff> {[-4-]}
<MI 21ca8 MOVE.W D6,(A0+D0.L+#0x2a)> {[-4-]}
<MI 21cac ADD.L D6,D7> {[-4-]}
<MI 21cae ADDQ.L #0x1,0x25740> {[-4-]}
<MI 21cb4 ADDQ.L #0x1,0x25744> {[-4-]}
<MI 21cba ADDQ.L #0x1,D5> {[-4-]}
<MI 21cbc BVC 0x21c44> {[-4-]}
<POP 21cbe-21d12 Naked> Σ-4 Δ+4 ↓ →0x21d3c ←0x21c44
<POP 21cbe-21cc0 StackAdj> Δ+4 {}
<MI 21cc0 MOVEA.L (A6+0x8),A0> {}
<MI 21cc2 MOVE.L (A6-0x10),D0> {}
<MI 21cc6 ASL.L #0x1,D0> {}
<POP 21cc8-21cca StackAdj> Δ-4 {[-4-]}
<MI 21cca MOVEQ.L #0x0a,D1> {[-4-]}
<MI 21ccc ADD.L D0,D1> {[-4-]}
<MI 21cce SUBQ.L #0x1,D1> {[-4-]}
<POP 0x21cd0 LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-4-]}
<MI 21cd6 MOVE.B (A0+D1.L+#0x2),-(A7)> Δ-2 {[-4-]|[2, '(A0+D1.L+#0x2)']}
<Call 0x21cda 0x213d0> {[-4-]|[2, '(A0+D1.L+#0x2)']}
<POP 21cdc-21cde StackAdj> Δ+2 {[-4-]}
<MI 21cde MOVE.L (A7)+,D3> Δ+4 {}
<MI 21ce0 MOVEQ.L #0x10,D4> {}
<Call 0x21ce2 0x1028c> {}
?muls_d3_d4
<MI 21ce4 ADD.L D4,D7> {}
<POP 21ce6-21ce8 StackAdj> Δ-4 {[-4-]}
<MI 21ce8 ADDI.L #0x0000000b,D0> {[-4-]}
<MI 21cee SUBQ.L #0x1,D0> {[-4-]}
<POP 0x21cf0 LimitCheck 0x0 ≤ D0 ≤ 0x7d> {[-4-]}
<MI 21cf6 MOVE.B (A0+D0.L+#0x2),-(A7)> Δ-2 {[-4-]|[2, '(A0+D0.L+#0x2)']}
<Call 0x21cfa 0x213d0> {[-4-]|[2, '(A0+D0.L+#0x2)']}
<POP 21cfc-21cfe StackAdj> Δ+2 {[-4-]}
<MI 21cfe ADD.L (A7)+,D7> Δ+4 {}
<MI 21d00 MOVE.L D7,D4> {}
<MI 21d02 MOVE.L #0x100,D3> {}
<Call 0x21d08 0x10294> {}
?divs_d3_d4
<MI 21d0e TST.L D3> {}
<MI 21d10 BEQ 0x21d3c> {}
<POP 21d12-21d3c Naked> Σ0 ↓
<Blob 0x21d12 [32] @> Δ-32 {[«32""»]}
<POP 21d1e-21d20 StackAdj> Δ-4 {[«32""»]|[-4-]}
<Lit 0x21d20 32> {[«32""»]|[$$Checksum error in file data line]}
<Call 0x21d34 0x21308> {[«32""»]|[$$Checksum error in file data line]}
<POP 21d38-21d3c StackAdj> Δ+36 {}
<POP 21d3c-21d44 Epilogue> Σ0 ←0x21cbe
@ 21d44
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 1(r)>
<LVAR -0x008 @ 4(r)>
<POP 21d44-21e7c Body> Δ-12
<POP 21d44-21d5a Prologue> Σ0 ↓
<POP 21d5a-21d68 RegCacheLoad> Σ0 ↓
<POP 21d68-21d72 Naked> Σ0 ↓
<Pointer.fp 0x21d68 <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-8]}
<Call 0x21d6a 0x102b8> {[@@-8]}
NewString(VAR a : String)
<POP 21d70-21d72 StackAdj> Δ+4 {}
<POP 21d72-21d90 Naked> Σ0 Δ-4 ↓ →0x21dce ←0x21e38 ←0x21e48 ←0x21e58 ←0x21e5e
<MI 21d72 MOVEA.L (A6+0x8),A0> {}
<MI 21d76 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 21d78 MOVE.L (A0),-(A7)> Δ-4 {[4, 'A0']|[4, '(A0)']}
<Pointer.fp 0x21d7a <LVAR -0x008 @ 4(r)>> Δ-4 {[4, 'A0']|[4, '(A0)']|[@@-8]}
<Pointer.fp 0x21d7c <LVAR -0x004 @ 1(r)>> Δ-4 {[4, 'A0']|[4, '(A0)']|[@@-8]|[@@-4]}
<Call 0x21d80 0x1043c> {[4, 'A0']|[4, '(A0)']|[@@-8]|[@@-4]}
FileReadLine(file : File; VAR a : String; VAR b : Byte)
<POP 21d86-21d8a StackAdj> Δ+12 {[4, 'A0']}
<MI 21d8a TST.B (A6-0x4)> {[4, 'A0']}
<MI 21d8e BEQ 0x21dce> {[4, 'A0']}
<POP 21d90-21dce Naked> Σ-4 ↓
<MI 21d90 CLR.B -(A7)> Δ-2 {[-4-]|[#0]}
<Const 0x21d92 0x1.2> Δ-2 {[-4-]|[#0]|[#1]}
<Const 0x21d94 0x1.4> Δ-4 {[-4-]|[#0]|[#1]|[##1]}
<Const 0x21d98 0x25730.4> Δ-4 {[-4-]|[#0]|[#1]|[##1]|[##153392]}
<MI 21d9a PEA.L (A0)> Δ-4 {[-4-]|[#0]|[#1]|[##1]|[##153392]|[4, '^(A0)']}
<Call 0x21d9c 0x1038c> {[-4-]|[#0]|[#1]|[##1]|[##153392]|[4, '^(A0)']}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 21da2-21da6 StackAdj> Δ+16 {[-4-]}
<Blob 0x21da6 [22] @> Δ-22 {[-4-]|[«22""»]}
<POP 21db2-21db4 StackAdj> Δ-4 {[-4-]|[«22""»]|[-4-]}
<Lit 0x21db4 22> {[-4-]|[«22""»]|[$$File has no END record]}
<Call 0x21dc6 0x21308> {[-4-]|[«22""»]|[$$File has no END record]}
<POP 21dca-21dce StackAdj> Δ+26 {[-4-]}
<POP 21dce-21dda Naked> Σ-4 ↓ →0x21de2 ←0x21d72
<MI 21dce MOVEA.L (A6-0x8),A0> {[-4-]}
<MI 21dd0 MOVE.B (A0+0x2),D0> {[-4-]}
<MI 21dd4 CMPI.B #0x3a,D0> {[-4-]}
<MI 21dd8 BNE 0x21de2> {[-4-]}
<POP 21dda-21de2 Naked> Σ-4 ↓ →0x21e26
<MI 21dda MOVE.B (A0+0x9),D0> {[-4-]}
<MI 21dde CMP.B #0x30,D0> {[-4-]}
<MI 21de0 BEQ 0x21e26> {[-4-]}
<POP 21de2-21e26 Naked> Σ-4 ↓ ←0x21dce
<MI 21de2 CLR.B -(A7)> Δ-2 {[-4-]|[#0]}
<Const 0x21de4 0x1.2> Δ-2 {[-4-]|[#0]|[#1]}
<Const 0x21de6 0x1.4> Δ-4 {[-4-]|[#0]|[#1]|[##1]}
<Const 0x21dea 0x25730.4> Δ-4 {[-4-]|[#0]|[#1]|[##1]|[##153392]}
<MI 21dec MOVEA.L (A7+0xc),A1> {[-4-]|[#0]|[#1]|[##1]|[##153392]}
<MI 21df0 PEA.L (A1)> Δ-4 {[-4-]|[#0]|[#1]|[##1]|[##153392]|[4, '^(A1)']}
<Call 0x21df2 0x1038c> {[-4-]|[#0]|[#1]|[##1]|[##153392]|[4, '^(A1)']}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 21df8-21df9 StackAdj> Δ+16 ↓ {[-4-]}
<Blob 0x21df9 [30] @> Δ-30 {[-4-]|[«30""»]}
<POP 21e0a-21e0c StackAdj> Δ-4 {[-4-]|[«30""»]|[-4-]}
<Lit 0x21e0c 29> {[-4-]|[«30""»]|[$$Invalid file data line format]}
<Call 0x21e1e 0x21308> {[-4-]|[«30""»]|[$$Invalid file data line format]}
<POP 21e22-21e26 StackAdj> Δ+34 {[-4-]}
<POP 21e26-21e38 Naked> Σ-4 ↓ →0x21e3e ←0x21dda
<MI 21e26 MOVE.L (A6-0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x8)']}
<Call 0x21e28 0x21b68> {[-4-]|[4, '(A6-0x8)']}
<POP 21e2c-21e2e StackAdj> Δ+4 {[-4-]}
<MI 21e2e MOVE.B (A0+0x5),D0> {[-4-]}
<MI 21e32 CMPI.B #0x31,D0> {[-4-]}
<MI 21e36 BEQ 0x21e3e> {[-4-]}
<POP 21e38-21e3e Naked> Σ-4 Δ+4 →0x21d72
<POP 21e38-21e3a StackAdj> Δ+4 {}
<MI 21e3a BRA 0x21d72> {}
<POP 21e3e-21e48 Naked> Σ-4 ↓ →0x21e4e ←0x21e26
<MI 21e3e MOVE.B (A0+0x6),D0> {[-4-]}
<MI 21e42 CMPI.B #0x46,D0> {[-4-]}
<MI 21e46 BEQ 0x21e4e> {[-4-]}
<POP 21e48-21e4e Naked> Σ-4 Δ+4 →0x21d72
<POP 21e48-21e4a StackAdj> Δ+4 {}
<MI 21e4a BRA 0x21d72> {}
<POP 21e4e-21e58 Naked> Σ-4 ↓ →0x21e5e ←0x21e3e
<MI 21e4e MOVE.B (A0+0x7),D0> {[-4-]}
<MI 21e52 CMPI.B #0x45,D0> {[-4-]}
<MI 21e56 BEQ 0x21e5e> {[-4-]}
<POP 21e58-21e5e Naked> Σ-4 Δ+4 →0x21d72
<POP 21e58-21e5a StackAdj> Δ+4 {}
<MI 21e5a BRA 0x21d72> {}
<POP 21e5e-21e6a Naked> Σ-4 Δ+4 ↓ →0x21d72 ←0x21e4e
<POP 21e5e-21e60 StackAdj> Δ+4 {}
<MI 21e60 MOVE.B (A0+0x8),D0> {}
<MI 21e64 CMP.B #0x30,D0> {}
<MI 21e66 BNE 0x21d72> {}
<POP 21e6a-21e74 Naked> Σ0 ↓
<Pointer.fp 0x21e6a <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-8]}
<Call 0x21e6c 0x102bc> {[@@-8]}
FreeString(VAR a : String)
<POP 21e72-21e74 StackAdj> Δ+4 {}
<POP 21e74-21e7c Epilogue> Σ0
@ 21e7c
<LVAR 0x00c 4(r)>
<LVAR 0x00a 1(r)>
<LVAR 0x008 1(r)>
<LVAR -0x004 @ 4(r)>
<LVAR -0x008 @ 4(r)>
<POP 21e7c-2234c Body>
<POP 21e7c-21e92 Prologue> Σ0 ↓
<POP 21e92-21eac RegCacheLoad> Σ0 ↓
<POP 21eac-21eba Naked> Σ0 ↓ →0x21ed0
<MI 21eac MOVE.L 0x2573c,D0> {}
<MI 21eb2 CMPI.L #0x80006000,D0> {}
<MI 21eb8 BEQ 0x21ed0> {}
<POP 21eba-21ec0 Naked> Σ0 ↓ →0x21ed8
<MI 21eba TST.B (A6+0xa)> {}
<MI 21ebe BEQ 0x21ed8> {}
<POP 21ec0-21ec8 Naked> Σ0 ↓ →0x21ed8
<MI 21ec0 TST.W 0x2974e> {}
<MI 21ec6 BNE 0x21ed8> {}
<POP 21ec8-21ed0 Naked> Σ0 ↓ →0x21ed8
<MI 21ec8 TST.W 0x29748> {}
<MI 21ece BNE 0x21ed8> {}
<POP 21ed0-21ed8 Naked> Σ0 →0x21eda ←0x21eac
<MI 21ed0 MOVE.L #0x1dff,0x2574c> {}
<MI 21ed6 BRA 0x21eda> {}
<POP 21ed8-21eda Naked> Σ0 ↓ ←0x21eba ←0x21ec0 ←0x21ec8
<MI 21ed8 MOVE.L #0x1fff,0x2574c> {}
<POP 21eda-21f0e Naked> Σ0 ↓ →0x22078 ←0x21ed0
<MI 21eda MOVE.L 0x2574c,D0> {}
<MI 21edc SUBQ.L #0x1,D0> {}
<POP 0x21ede LimitCheck 0x0 ≤ D0 ≤ 0x1fff> {}
<MI 21ee4 ASL.L #0x1,D0> {}
<MI 21ee6 LEA.L 0x25728,A0> {}
<MI 21ee8 MOVE.W (A0+D0.L+#0x2a),D0> {}
<POP 0x21eec LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 21ef0 MOVE.W D0,0x25750> {}
<MI 21ef2 MOVE.W D0,-(A7)> Δ-2 {[2, 'D0']}
<Const 0x21ef4 0x25748.4> Δ-4 {[2, 'D0']|[##153416]}
<Pointer.fp 0x21efa <LVAR -0x004 @ 4(r)>> Δ-4 {[2, 'D0']|[##153416]|[@@-4]}
<Call 0x21efe 0x214fe> {[2, 'D0']|[##153416]|[@@-4]}
<POP 21f02-21f06 StackAdj> Δ+10 {}
<MI 21f06 TST.B (A6+0x8)> {}
<MI 21f0a BEQ 0x22078> {}
<POP 21f0e-22078 Naked> Σ0 ↓
<Blob 0x21f0e [2] @> Δ-2 {[«2""»]}
<Blob 0x21f12 [2] @> Δ-2 {[«2""»]|[«2""»]}
<Blob 0x21f16 [2] @> Δ-2 {[«2""»]|[«2""»]|[«2""»]}
<Blob 0x21f1a [36] @> Δ-36 {[«2""»]|[«2""»]|[«2""»]|[«36""»]}
<POP 21f26-21f28 StackAdj> Δ-8 {[«2""»]|[«2""»]|[«2""»]|[«36""»]|[-8-]}
<Lit 0x21f28 6> {[«2""»]|[«2""»]|[«2""»]|[«36""»]|[-4-]|[$$ read_]}
<POP 21f38-21f39 StackAdj> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[«36""»]|[-4-]|[$$ read_]|[-4-]}
<Blob 0x21f39 [4] 0x25744> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[«36""»]|[-4-]|[$$ read_]|[-4-]|[«4»]}
<Call 0x21f3e 0x102e4> {[«2""»]|[«2""»]|[«2""»]|[«36""»]|[-4-]|[$$ read_]|[-4-]|[«4»]}
Long2String(a : Long) : String
<Lit 0x21f44 36> {[«2""»]|[«2""»]|[«2""»]|[«36""»]|[-4-]|[$$ read_]|[-4-]|[$$ bytes from file at base address 16#]}
<POP 21f54-21f55 StackAdj> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[«36""»]|[-4-]|[$$ read_]|[-4-]|[$$ bytes from file at base address 16#]|[-4-]}
<Blob 0x21f55 [4] 0x2573c> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[«36""»]|[-4-]|[$$ read_]|[-4-]|[$$ bytes from file at base address 16#]|[-4-]|[«4»]}
<Const 0x21f5a 0x8.4> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[«36""»]|[-4-]|[$$ read_]|[-4-]|[$$ bytes from file at base address 16#]|[-4-]|[«4»]|[##8]}
<Call 0x21f5e 0x102e8> {[«2""»]|[«2""»]|[«2""»]|[«36""»]|[-4-]|[$$ read_]|[-4-]|[$$ bytes from file at base address 16#]|[-4-]|[«4»]|[##8]}
Long2HexString(val : Long; ndig : Long) : String
<POP 21f64-21f66 StackAdj> Δ+8 {[«2""»]|[«2""»]|[«2""»]|[«36""»]|[-4-]|[$$ read_]|[-4-]|[$$ bytes from file at base address 16#]|[-4-]}
<Call 0x21f66 0x102d8> {[«2""»]|[«2""»]|[«2""»]|[«36""»]|[-4-]|[$$ read_]|[-4-]|[$$ bytes from file at base address 16#]|[-4-]}
StringCat4(a, b, c, d : String) : String
<POP 21f6c-21f70 StackAdj> Δ+16 {[«2""»]|[«2""»]|[«2""»]|[«36""»]|[-4-]}
<Call 0x21f70 0x103e0> {[«2""»]|[«2""»]|[«2""»]|[«36""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 21f76-21f77 StackAdj> Δ+46 ↓ {}
<Blob 0x21f77 [26] @> Δ-26 {[«26""»]}
<POP 21f88-21f8a StackAdj> Δ-8 {[«26""»]|[-8-]}
<Lit 0x21f8a 25> {[«26""»]|[-4-]|[$$in file: revision date =_]}
<POP 21f9a-21f9c StackAdj> Δ-4 {[«26""»]|[-4-]|[$$in file: revision date =_]|[-4-]}
<MI 21f9c MOVE.L 0x2574c,D0> {[«26""»]|[-4-]|[$$in file: revision date =_]|[-4-]}
<MI 21f9e SUBQ.L #0x4,D0> {[«26""»]|[-4-]|[$$in file: revision date =_]|[-4-]}
<POP 0x21fa0 LimitCheck 0x0 ≤ D0 ≤ 0x1fff> {[«26""»]|[-4-]|[$$in file: revision date =_]|[-4-]}
<MI 21fa6 ASL.L #0x1,D0> {[«26""»]|[-4-]|[$$in file: revision date =_]|[-4-]}
<MI 21fa8 LEA.L 0x25728,A0> {[«26""»]|[-4-]|[$$in file: revision date =_]|[-4-]}
<MI 21faa MOVE.W (A0+D0.L+#0x2a),D1> {[«26""»]|[-4-]|[$$in file: revision date =_]|[-4-]}
<MI 21fae EXTW.L D1> {[«26""»]|[-4-]|[$$in file: revision date =_]|[-4-]}
<MI 21fb0 MOVE.L D1,-(A7)> Δ-4 {[«26""»]|[-4-]|[$$in file: revision date =_]|[-4-]|[4, 'D1']}
<Const 0x21fb2 0x2.4> Δ-4 {[«26""»]|[-4-]|[$$in file: revision date =_]|[-4-]|[4, 'D1']|[##2]}
<Call 0x21fb6 0x102e8> {[«26""»]|[-4-]|[$$in file: revision date =_]|[-4-]|[4, 'D1']|[##2]}
Long2HexString(val : Long; ndig : Long) : String
<POP 21fbc-21fbe StackAdj> Δ+4 {[«26""»]|[-4-]|[$$in file: revision date =_]|[-4-]|[4, 'D1']}
<MI 21fbe MOVE.L 0x2574c,D0> {[«26""»]|[-4-]|[$$in file: revision date =_]|[-4-]|[4, 'D1']}
<MI 21fc0 SUBQ.L #0x3,D0> {[«26""»]|[-4-]|[$$in file: revision date =_]|[-4-]|[4, 'D1']}
<POP 0x21fc2 LimitCheck 0x0 ≤ D0 ≤ 0x1fff> {[«26""»]|[-4-]|[$$in file: revision date =_]|[-4-]|[4, 'D1']}
<MI 21fc8 ASL.L #0x1,D0> {[«26""»]|[-4-]|[$$in file: revision date =_]|[-4-]|[4, 'D1']}
<MI 21fca LEA.L 0x25728,A0> {[«26""»]|[-4-]|[$$in file: revision date =_]|[-4-]|[4, 'D1']}
<MI 21fcc MOVE.W (A0+D0.L+#0x2a),D1> {[«26""»]|[-4-]|[$$in file: revision date =_]|[-4-]|[4, 'D1']}
<MI 21fd0 EXTW.L D1> {[«26""»]|[-4-]|[$$in file: revision date =_]|[-4-]|[4, 'D1']}
<MI 21fd2 MOVE.L D1,-(A7)> Δ-4 {[«26""»]|[-4-]|[$$in file: revision date =_]|[-4-]|[4, 'D1']|[4, 'D1']}
<Const 0x21fd4 0x2.4> Δ-4 {[«26""»]|[-4-]|[$$in file: revision date =_]|[-4-]|[4, 'D1']|[4, 'D1']|[##2]}
<Call 0x21fd8 0x102e8> {[«26""»]|[-4-]|[$$in file: revision date =_]|[-4-]|[4, 'D1']|[4, 'D1']|[##2]}
Long2HexString(val : Long; ndig : Long) : String
<POP 21fde-21fe0 StackAdj> Δ+4 {[«26""»]|[-4-]|[$$in file: revision date =_]|[-4-]|[4, 'D1']|[4, 'D1']}
<MI 21fe0 MOVE.L 0x2574c,D0> {[«26""»]|[-4-]|[$$in file: revision date =_]|[-4-]|[4, 'D1']|[4, 'D1']}
<MI 21fe2 SUBQ.L #0x2,D0> {[«26""»]|[-4-]|[$$in file: revision date =_]|[-4-]|[4, 'D1']|[4, 'D1']}
<POP 0x21fe4 LimitCheck 0x0 ≤ D0 ≤ 0x1fff> {[«26""»]|[-4-]|[$$in file: revision date =_]|[-4-]|[4, 'D1']|[4, 'D1']}
<MI 21fea ASL.L #0x1,D0> {[«26""»]|[-4-]|[$$in file: revision date =_]|[-4-]|[4, 'D1']|[4, 'D1']}
<MI 21fec LEA.L 0x25728,A0> {[«26""»]|[-4-]|[$$in file: revision date =_]|[-4-]|[4, 'D1']|[4, 'D1']}
<MI 21fee MOVE.W (A0+D0.L+#0x2a),D1> {[«26""»]|[-4-]|[$$in file: revision date =_]|[-4-]|[4, 'D1']|[4, 'D1']}
<MI 21ff2 EXTW.L D1> {[«26""»]|[-4-]|[$$in file: revision date =_]|[-4-]|[4, 'D1']|[4, 'D1']}
<MI 21ff4 MOVE.L D1,-(A7)> Δ-4 {[«26""»]|[-4-]|[$$in file: revision date =_]|[-4-]|[4, 'D1']|[4, 'D1']|[4, 'D1']}
<Const 0x21ff6 0x2.4> Δ-4 {[«26""»]|[-4-]|[$$in file: revision date =_]|[-4-]|[4, 'D1']|[4, 'D1']|[4, 'D1']|[##2]}
<Call 0x21ffa 0x102e8> {[«26""»]|[-4-]|[$$in file: revision date =_]|[-4-]|[4, 'D1']|[4, 'D1']|[4, 'D1']|[##2]}
Long2HexString(val : Long; ndig : Long) : String
<POP 22000-22002 StackAdj> Δ+8 {[«26""»]|[-4-]|[$$in file: revision date =_]|[-4-]|[4, 'D1']|[4, 'D1']}
<Call 0x22002 0x102d8> {[«26""»]|[-4-]|[$$in file: revision date =_]|[-4-]|[4, 'D1']|[4, 'D1']}
StringCat4(a, b, c, d : String) : String
<POP 22008-2200c StackAdj> Δ+16 {[«26""»]|[-4-]}
<Call 0x2200c 0x103d8> {[«26""»]|[-4-]}
WriteConsoleString(str : String)
<POP 22012-22013 StackAdj> Δ+30 ↓ {}
<Blob 0x22013 [16] @> Δ-16 {[«16""»]}
<Blob 0x22024 [2] @> Δ-2 {[«16""»]|[«2""»]}
<POP 22028-2202a StackAdj> Δ-8 {[«16""»]|[«2""»]|[-8-]}
<Lit 0x2202a 15> {[«16""»]|[«2""»]|[-4-]|[$$, locus byte =_]}
<POP 2203a-2203c StackAdj> Δ-4 {[«16""»]|[«2""»]|[-4-]|[$$, locus byte =_]|[-4-]}
<MI 2203c MOVE.W 0x25750,D0> {[«16""»]|[«2""»]|[-4-]|[$$, locus byte =_]|[-4-]}
<MI 2203e EXTW.L D0> {[«16""»]|[«2""»]|[-4-]|[$$, locus byte =_]|[-4-]}
<MI 22040 MOVE.L D0,-(A7)> Δ-4 {[«16""»]|[«2""»]|[-4-]|[$$, locus byte =_]|[-4-]|[4, 'D0']}
<Const 0x22042 0x2.4> Δ-4 {[«16""»]|[«2""»]|[-4-]|[$$, locus byte =_]|[-4-]|[4, 'D0']|[##2]}
<Call 0x22046 0x102e8> {[«16""»]|[«2""»]|[-4-]|[$$, locus byte =_]|[-4-]|[4, 'D0']|[##2]}
Long2HexString(val : Long; ndig : Long) : String
<POP 2204c-2204e StackAdj> Δ+4 {[«16""»]|[«2""»]|[-4-]|[$$, locus byte =_]|[-4-]|[4, 'D0']}
<Lit 0x2204e 2> {[«16""»]|[«2""»]|[-4-]|[$$, locus byte =_]|[-4-]|[$$ (]}
<POP 2205e-22060 StackAdj> Δ-4 {[«16""»]|[«2""»]|[-4-]|[$$, locus byte =_]|[-4-]|[$$ (]|[-4-]}
<MI 22060 MOVE.L (A6-0x4),(A7)> {[«16""»]|[«2""»]|[-4-]|[$$, locus byte =_]|[-4-]|[$$ (]|[4, '(A6-0x4)']}
<Call 0x22064 0x102d8> {[«16""»]|[«2""»]|[-4-]|[$$, locus byte =_]|[-4-]|[$$ (]|[4, '(A6-0x4)']}
StringCat4(a, b, c, d : String) : String
<POP 2206a-2206e StackAdj> Δ+16 {[«16""»]|[«2""»]|[-4-]}
<Call 0x2206e 0x103d8> {[«16""»]|[«2""»]|[-4-]}
WriteConsoleString(str : String)
<POP 22074-22078 StackAdj> Δ+22 {}
<POP 22078-2207c Naked> Σ0 ↓ ←0x21eda
<MI 22078 MOVEQ.L #0x00,D7> {}
<MI 2207a MOVEQ.L #0x00,D6> {}
<POP 2207c-220a6 Naked> Σ0 ↓ →0x2207c ←0x2207c
<POP 0x2207c LimitCheck 0x0 ≤ D6 ≤ 0x1fff> {}
<MI 22082 MOVE.L D6,D0> {}
<MI 22084 ASL.L #0x1,D0> {}
<MI 22086 LEA.L 0x25728,A0> {}
<MI 22088 MOVE.W (A0+D0.L+#0x2a),D1> {}
<MI 2208c EXTW.L D1> {}
<MI 2208e ADD.L D1,D7> {}
<MI 22090 MOVE.L D7,D4> {}
<MI 22092 MOVE.L #0x100,D3> {}
<Call 0x22098 0x10294> {}
?divs_d3_d4
<MI 2209e MOVE.L D3,D7> {}
<MI 220a0 ADDQ.L #0x1,D6> {}
<MI 220a2 CMP.L #0x1fff,D6> {}
<MI 220a4 BLE 0x2207c> {}
<POP 220a6-220ae Naked> Σ0 ↓ →0x220e6
<MI 220a6 CMPI.L #0x000000aa,D7> {}
<MI 220ac BNE 0x220e6> {}
<POP 220ae-220b4 Naked> Σ0 ↓ →0x220e4
<MI 220ae TST.B (A6+0x8)> {}
<MI 220b2 BEQ 0x220e4> {}
<POP 220b4-220e4 Naked> Σ0 ↓
<Blob 0x220b4 [18] @> Δ-18 {[«18""»]}
<POP 220c6-220c8 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x220c8 17> {[«18""»]|[$$), checksum is OK]}
<Call 0x220da 0x103e0> {[«18""»]|[$$), checksum is OK]}
WriteConsoleStringCrLf(str : String)
<POP 220e0-220e4 StackAdj> Δ+22 {}
<POP 220e4-220e6 Naked> Σ0 →0x2212e ←0x220ae
<MI 220e4 BRA 0x2212e> {}
<POP 220e6-2212e Naked> Σ0 ↓ ←0x220a6
<Call 0x220e6 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x220ec [46] @> Δ-46 {[«46""»]}
<POP 220fe-22100 StackAdj> Δ-8 {[«46""»]|[-8-]}
<Lit 0x22100 45> {[«46""»]|[-4-]|[$$bad file checksum: expected 16#AA but got 16#]}
<MI 22110 MOVE.L D7,(A7)> {[«46""»]|[-4-]|[4, 'D7']}
<POP 2210a-22110 StackAdj> Δ-8 {[«46""»]|[-4-]|[4, 'D7']|[-8-]}
<Const 0x22112 0x2.4> Δ-4 {[«46""»]|[-4-]|[4, 'D7']|[-8-]|[##2]}
<Call 0x22116 0x102e8> {[«46""»]|[-4-]|[4, 'D7']|[-8-]|[##2]}
Long2HexString(val : Long; ndig : Long) : String
<POP 2211c-2211e StackAdj> Δ+8 {[«46""»]|[-4-]|[4, 'D7']|[-4-]}
<Call 0x2211e 0x102d0> {[«46""»]|[-4-]|[4, 'D7']|[-4-]}
StringCat2(a, b : String) : String
<POP 22124-22126 StackAdj> Δ+8 {[«46""»]|[-4-]}
<Call 0x22126 0x21308> {[«46""»]|[-4-]}
<POP 2212a-2212e StackAdj> Δ+50 {}
<POP 2212e-22134 Naked> Σ0 ↓ →0x22170 ←0x220e4
<MI 2212e TST.B (A6+0xa)> {}
<MI 22132 BEQ 0x22170> {}
<POP 22134-2213a Naked> Σ0 ↓ →0x2216c
<MI 22134 TST.L (A6+0xc)> {}
<MI 22138 BEQ 0x2216c> {}
<POP 2213a-22144 Naked> Σ0 ↓ →0x2216c
<MI 2213a MOVE.W 0x25750,D0> {}
<MI 2213c EXTW.L D0> {}
<MI 2213e CMP.L (A6+0xc),D0> {}
<MI 22142 BEQ 0x2216c> {}
<POP 22144-2216c Naked> Σ0 ↓
<Blob 0x22144 [28] @> Δ-28 {[«28""»]}
<POP 22150-22152 StackAdj> Δ-4 {[«28""»]|[-4-]}
<Lit 0x22152 28> {[«28""»]|[$$file LOCUS byte is incorrect]}
<Call 0x22164 0x21308> {[«28""»]|[$$file LOCUS byte is incorrect]}
<POP 22168-2216c StackAdj> Δ+32 {}
<POP 2216c-22170 Naked> Σ0 →0x222ea ←0x22134 ←0x2213a
<MI 2216c BRA 0x222ea> {}
<POP 22170-221a2 Naked> Σ0 ↓ →0x221d6 ←0x2212e
<MI 22170 MOVE.L (A6+0xc),D0> {}
<POP 0x22174 LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 2217e MOVE.W D0,-(A7)> Δ-2 {[2, 'D0']}
<Pointer.fp 0x22180 <LVAR -0x008 @ 4(r)>> Δ-4 {[2, 'D0']|[@@-8]}
<Pointer.fp 0x22184 <LVAR -0x004 @ 4(r)>> Δ-4 {[2, 'D0']|[@@-8]|[@@-4]}
<Call 0x22188 0x214fe> {[2, 'D0']|[@@-8]|[@@-4]}
<POP 2218c-22190 StackAdj> Δ+10 {}
<Pointer.fp 0x22190 <LVAR -0x004 @ 4(r)>> Δ-4 {[@@-4]}
<Call 0x22194 0x102bc> {[@@-4]}
FreeString(VAR a : String)
<POP 2219a-2219c StackAdj> Δ+4 {}
<MI 2219c TST.L (A6+0xc)> {}
<MI 221a0 BEQ 0x221d6> {}
<POP 221a2-221ae Naked> Σ0 ↓ →0x221d6
<MI 221a2 MOVE.L (A6-0x8),D0> {}
<MI 221a6 CMP.L 0x2573c,D0> {}
<MI 221ac BEQ 0x221d6> {}
<POP 221ae-221d6 Naked> Σ0 ↓
<Blob 0x221ae [30] @> Δ-30 {[«30""»]}
<POP 221ba-221bc StackAdj> Δ-4 {[«30""»]|[-4-]}
<Lit 0x221bc 30> {[«30""»]|[$$file base address is incorrect]}
<Call 0x221ce 0x21308> {[«30""»]|[$$file base address is incorrect]}
<POP 221d2-221d6 StackAdj> Δ+34 {}
<POP 221d6-221e6 Naked> Σ0 ↓ →0x222ea ←0x22170 ←0x221a2
<MI 221d6 MOVE.L 0x25748,D0> {}
<MI 221dc CMP.L 0x2573c,D0> {}
<MI 221e2 BEQ 0x222ea> {}
<POP 221e6-221f4 Naked> Σ0 ↓ →0x221fc
<MI 221e6 MOVE.L 0x2573c,D0> {}
<MI 221ec CMPI.L #0x80000000,D0> {}
<MI 221f2 BNE 0x221fc> {}
<POP 221f4-221fc Naked> Σ0 →0x2228e
<MI 221f4 MOVE.W #0x21,0x25750> {}
<MI 221f8 BRA 0x2228e> {}
<POP 221fc-22204 Naked> Σ0 ↓ →0x2220c ←0x221e6
<MI 221fc CMPI.L #0x80002000,D0> {}
<MI 22202 BNE 0x2220c> {}
<POP 22204-2220c Naked> Σ0 →0x2228e
<MI 22204 MOVE.W #0x19,0x25750> {}
<MI 22208 BRA 0x2228e> {}
<POP 2220c-22214 Naked> Σ0 ↓ →0x2221a ←0x221fc
<MI 2220c CMPI.L #0x80004000,D0> {}
<MI 22212 BNE 0x2221a> {}
<POP 22214-2221a Naked> Σ0 →0x2228e
<MI 22214 MOVE.W #0x17,0x25750> {}
<MI 22218 BRA 0x2228e> {}
<POP 2221a-22222 Naked> Σ0 ↓ →0x22228 ←0x2220c
<MI 2221a CMPI.L #0x80006000,D0> {}
<MI 22220 BNE 0x22228> {}
<POP 22222-22228 Naked> Σ0 →0x2228e
<MI 22222 MOVE.W #0x15,0x25750> {}
<MI 22226 BRA 0x2228e> {}
<POP 22228-22230 Naked> Σ0 ↓ →0x22236 ←0x2221a
<MI 22228 CMPI.L #0x00070000,D0> {}
<MI 2222e BNE 0x22236> {}
<POP 22230-22236 Naked> Σ0 →0x2228e
<MI 22230 MOVE.W #0x50,0x25750> {}
<MI 22234 BRA 0x2228e> {}
<POP 22236-2223e Naked> Σ0 ↓ →0x22244 ←0x22228
<MI 22236 CMPI.L #0x00072000,D0> {}
<MI 2223c BNE 0x22244> {}
<POP 2223e-22244 Naked> Σ0 →0x2228e
<MI 2223e MOVE.W #0x51,0x25750> {}
<MI 22242 BRA 0x2228e> {}
<POP 22244-2224c Naked> Σ0 ↓ →0x22252 ←0x22236
<MI 22244 CMPI.L #0x00074000,D0> {}
<MI 2224a BNE 0x22252> {}
<POP 2224c-22252 Naked> Σ0 →0x2228e
<MI 2224c MOVE.W #0x52,0x25750> {}
<MI 22250 BRA 0x2228e> {}
<POP 22252-2225a Naked> Σ0 ↓ →0x22260 ←0x22244
<MI 22252 CMPI.L #0x00076000,D0> {}
<MI 22258 BNE 0x22260> {}
<POP 2225a-22260 Naked> Σ0 →0x2228e
<MI 2225a MOVE.W #0x53,0x25750> {}
<MI 2225e BRA 0x2228e> {}
<POP 22260-2228e Naked> Σ0 ↓ ←0x22252
<Blob 0x22260 [30] @> Δ-30 {[«30""»]}
<POP 22272-22274 StackAdj> Δ-4 {[«30""»]|[-4-]}
<Lit 0x22274 29> {[«30""»]|[$$File has illegal base address]}
<Call 0x22286 0x21308> {[«30""»]|[$$File has illegal base address]}
<POP 2228a-2228e StackAdj> Δ+34 {}
<POP 2228e-222ea Naked> Σ0 ↓ ←0x221f4 ←0x22204 ←0x22214 ←0x22222 ←0x22230 ←0x2223e ←0x2224c ←0x2225a
<MI 2228e MOVE.L 0x2574c,D0> {}
<MI 22290 SUBQ.L #0x1,D0> {}
<POP 0x22292 LimitCheck 0x0 ≤ D0 ≤ 0x1fff> {}
<MI 22298 ASL.L #0x1,D0> {}
<MI 2229a LEA.L 0x25728,A0> {}
<MI 2229c MOVE.W 0x25750,(A0+D0.L+#0x2a)> {}
<Blob 0x222a0 [2] 0x25750> Δ-2 {[«2»]}
<Const 0x222a2 0x25748.4> Δ-4 {[«2»]|[##153416]}
<Pointer.fp 0x222a8 <LVAR -0x004 @ 4(r)>> Δ-4 {[«2»]|[##153416]|[@@-4]}
<Call 0x222ac 0x214fe> {[«2»]|[##153416]|[@@-4]}
<POP 222b0-222b4 StackAdj> Δ+10 {}
<Blob 0x222b4 [50] @> Δ-50 {[«50""»]}
<POP 222c0-222c2 StackAdj> Δ-8 {[«50""»]|[-8-]}
<Lit 0x222c2 50> {[«50""»]|[-4-]|[$$fixed incorrect LOCUS byte from file: now targets_]}
<POP 222d2-222d4 StackAdj> Δ-4 {[«50""»]|[-4-]|[$$fixed incorrect LOCUS byte from file: now targets_]|[-4-]}
<MI 222d4 MOVE.L (A6-0x4),(A7)> {[«50""»]|[-4-]|[$$fixed incorrect LOCUS byte from file: now targets_]|[4, '(A6-0x4)']}
<Call 0x222d8 0x102d0> {[«50""»]|[-4-]|[$$fixed incorrect LOCUS byte from file: now targets_]|[4, '(A6-0x4)']}
StringCat2(a, b : String) : String
<POP 222de-222e0 StackAdj> Δ+8 {[«50""»]|[-4-]}
<Call 0x222e0 0x103e0> {[«50""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 222e6-222ea StackAdj> Δ+54 {}
<POP 222ea-222ee Naked> Σ0 ↓ ←0x2216c ←0x221d6
<MI 222ea MOVEQ.L #0x00,D7> {}
<MI 222ec MOVEQ.L #0x00,D6> {}
<POP 222ee-22318 Naked> Σ0 ↓ →0x222ee ←0x222ee
<POP 0x222ee LimitCheck 0x0 ≤ D6 ≤ 0x1fff> {}
<MI 222f4 MOVE.L D6,D0> {}
<MI 222f6 ASL.L #0x1,D0> {}
<MI 222f8 LEA.L 0x25728,A0> {}
<MI 222fa MOVE.W (A0+D0.L+#0x2a),D1> {}
<MI 222fe EXTW.L D1> {}
<MI 22300 ADD.L D1,D7> {}
<MI 22302 MOVE.L D7,D4> {}
<MI 22304 MOVE.L #0x100,D3> {}
<Call 0x2230a 0x10294> {}
?divs_d3_d4
<MI 22310 MOVE.L D3,D7> {}
<MI 22312 ADDQ.L #0x1,D6> {}
<MI 22314 CMP.L #0x1fff,D6> {}
<MI 22316 BLE 0x222ee> {}
<POP 22318-22344 Naked> Σ0 ↓
<MI 22318 MOVE.L 0x2574c,D0> {}
<POP 0x2231a LimitCheck 0x0 ≤ D0 ≤ 0x1fff> {}
<MI 22320 ASL.L #0x1,D0> {}
<MI 22322 LEA.L 0x25728,A0> {}
<MI 22324 ADDI.W #0x01aa,(A0+D0.L+#0x2a)> {}
<MI 2232a MOVE.W (A0+D0.L+#0x2a),D1> {}
<MI 2232e EXTW.L D1> {}
<MI 22330 SUB.L D7,D1> {}
<MI 22332 MOVE.L D1,D4> {}
<MI 22334 MOVE.L #0x100,D3> {}
<Call 0x2233a 0x10294> {}
?divs_d3_d4
<MI 22340 MOVE.W D3,(A0+D0.L+#0x2a)> {}
<POP 22344-2234c Epilogue> Σ0
@ 2234c
<LVAR 0x00e 4(r)>
<LVAR 0x00a 4(r)>
<LVAR 0x008 1(r)>
<LVAR -0x00a @ 1(r)>
<LVAR -0x00e @ 4(r)>
<LVAR -0x012 @ 4(r)>
<POP 2234c-2257a Body> Δ+4
<POP 2234c-22362 Prologue> Σ0 ↓
<POP 22362-2237a RegCacheLoad> Σ0 ↓
<POP 2237a-22382 Naked> Σ0 ↓ →0x223b4
<MI 2237a MOVEA.L (A6+0xe),A0> {}
<MI 2237e CMPA.W #0x01,A0> {}
<MI 22380 BNE 0x223b4> {}
<POP 22382-223b4 Naked> Σ0 →0x223b6
<Blob 0x22382 [42] @> Δ-42 {[«42""»]}
<POP 22392-22394 StackAdj> Δ-8 {[«42""»]|[-8-]}
<Lit 0x22394 41> {[«42""»]|[-4-]|[$$Enter the file name of the EEPROM data :_]}
<Call 0x223a6 0x103e4> {[«42""»]|[-4-]|[$$Enter the file name of the EEPROM data :_]}
AskConsoleString(prompt : String) : String
<POP 223ac-223ae StackAdj> Δ+4 {[«42""»]|[-4-]}
<MI 223ae MOVE.L (A7)+,0x25738> Δ+4 {[«42""»]}
<POP 223b0-223b2 StackAdj> Δ+42 {}
<MI 223b2 BRA 0x223b6> {}
<POP 223b4-223b6 Naked> Σ0 ↓ ←0x2237a
<MI 223b4 MOVE.L A0,0x25738> {}
<POP 223b6-223d2 Naked> Σ0 ↓ →0x223f8 ←0x22382
<Blob 0x223b6 [4] 0x25738> Δ-4 {[«4»]}
<MI 223b8 CLR.B -(A7)> Δ-2 {[«4»]|[#0]}
<Const 0x223ba 0x1.2> Δ-2 {[«4»]|[#0]|[#1]}
<Const 0x223bc 0x0.4> Δ-4 {[«4»]|[#0]|[#1]|[##0]}
<Const 0x223c0 0x25730.4> Δ-4 {[«4»]|[#0]|[#1]|[##0]|[##153392]}
<Pointer.fp 0x223c2 <LVAR -0x012 @ 4(r)>> Δ-4 {[«4»]|[#0]|[#1]|[##0]|[##153392]|[@@-18]}
<Call 0x223c4 0x10380> {[«4»]|[#0]|[#1]|[##0]|[##153392]|[@@-18]}
OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
<POP 223ca-223ce StackAdj> Δ+20 {}
<MI 223ce TST.B 0x25730> {}
<MI 223d0 BEQ 0x223f8> {}
<POP 223d2-223f8 Naked> Σ0 ↓
<Blob 0x223d2 [24] @> Δ-24 {[«24""»]}
<POP 223de-223e0 StackAdj> Δ-4 {[«24""»]|[-4-]}
<Lit 0x223e0 24> {[«24""»]|[$$could not open data file]}
<Call 0x223f0 0x21308> {[«24""»]|[$$could not open data file]}
<POP 223f4-223f8 StackAdj> Δ+28 {}
<POP 223f8-22430 Naked> Σ0 ↓ →0x2246e ←0x223b6
<MI 223f8 MOVE.L (A6+0xa),D0> {}
<POP 0x223fc LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 22406 MOVE.W D0,-(A7)> Δ-2 {[2, 'D0']}
<Const 0x22408 0x2573c.4> Δ-4 {[2, 'D0']|[##153404]}
<Pointer.fp 0x2240e <LVAR -0x00e @ 4(r)>> Δ-4 {[2, 'D0']|[##153404]|[@@-14]}
<Call 0x22412 0x214fe> {[2, 'D0']|[##153404]|[@@-14]}
<POP 22416-22418 StackAdj> Δ+6 {[2, 'D0']|[-2-]}
<MI 22418 MOVE.L (A6-0x12),(A7)> {[4, '(A6-0x12)']}
<Pointer.fp 0x2241a <LVAR -0x00e @ 4(r)>> Δ-4 {[4, '(A6-0x12)']|[@@-14]}
<Pointer.fp 0x2241e <LVAR -0x00a @ 1(r)>> Δ-4 {[4, '(A6-0x12)']|[@@-14]|[@@-10]}
<Call 0x22422 0x1043c> {[4, '(A6-0x12)']|[@@-14]|[@@-10]}
FileReadLine(file : File; VAR a : String; VAR b : Byte)
<POP 22428-2242a StackAdj> Δ+12 {}
<MI 2242a TST.B (A6-0xa)> {}
<MI 2242e BEQ 0x2246e> {}
<POP 22430-2246e Naked> Σ0 ↓
<MI 22430 CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x22432 0x1.2> Δ-2 {[#0]|[#1]}
<Const 0x22434 0x1.4> Δ-4 {[#0]|[#1]|[##1]}
<Const 0x22438 0x25730.4> Δ-4 {[#0]|[#1]|[##1]|[##153392]}
<Pointer.fp 0x2243a <LVAR -0x012 @ 4(r)>> Δ-4 {[#0]|[#1]|[##1]|[##153392]|[@@-18]}
<Call 0x2243c 0x1038c> {[#0]|[#1]|[##1]|[##153392]|[@@-18]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 22442-22443 StackAdj> Δ+16 ↓ {}
<Blob 0x22443 [14] @> Δ-14 {[«14""»]}
<POP 22452-22454 StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x22454 13> {[«14""»]|[$$File is empty]}
<Call 0x22466 0x21308> {[«14""»]|[$$File is empty]}
<POP 2246a-2246e StackAdj> Δ+18 {}
<POP 2246e-2247c Naked> Σ0 ↓ →0x22494 ←0x223f8
<MI 2246e MOVEA.L (A6-0xe),A0> {}
<MI 22472 MOVE.B (A0+0x2),D0> {}
<MI 22476 CMPI.B #0x3a,D0> {}
<MI 2247a BNE 0x22494> {}
<POP 2247c-22486 Naked> Σ0 ↓ →0x22494
<MI 2247c MOVE.B (A0+0x9),D1> {}
<MI 22480 CMPI.B #0x30,D1> {}
<MI 22484 BNE 0x22494> {}
<POP 22486-22488 Naked> Σ0 ↓
<MI 22486 MOVEQ.L #0x01,D6> {}
<POP 22488-22494 Naked> Σ0 →0x224f8 ←0x224a4
<MI 22488 MOVE.L (A6-0x12),-(A7)> Δ-4 {[4, '(A6-0x12)']}
<Call 0x2248a 0x10444> {[4, '(A6-0x12)']}
FSCALL_10444
<POP 22490-22492 StackAdj> Δ+4 {}
<MI 22492 BRA 0x224f8> {}
<POP 22494-2249a Naked> Σ0 ↓ →0x224a8 ←0x2246e ←0x2247c
<MI 22494 CMPI.B #0x53,D0> {}
<MI 22498 BNE 0x224a8> {}
<POP 2249a-224a4 Naked> Σ0 ↓ →0x224a8
<MI 2249a MOVE.B (A0+0x3),D1> {}
<MI 2249e CMPI.B #0x33,D1> {}
<MI 224a2 BNE 0x224a8> {}
<POP 224a4-224a8 Naked> Σ0 →0x22488
<MI 224a4 MOVEQ.L #0x00,D6> {}
<MI 224a6 BRA 0x22488> {}
<POP 224a8-224ae Naked> Σ0 ↓ →0x224bc ←0x22494 ←0x2249a
<MI 224a8 CMPI.B #0x53,D0> {}
<MI 224ac BNE 0x224bc> {}
<POP 224ae-224b8 Naked> Σ0 ↓ →0x224bc
<MI 224ae MOVE.B (A0+0x3),D0> {}
<MI 224b2 CMPI.B #0x30,D0> {}
<MI 224b6 BNE 0x224bc> {}
<POP 224b8-224bc Naked> Σ0 →0x224f8
<MI 224b8 MOVEQ.L #0x00,D6> {}
<MI 224ba BRA 0x224f8> {}
<POP 224bc-224f8 Naked> Σ0 ↓ ←0x224a8 ←0x224ae
<MI 224bc CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x224be 0x1.2> Δ-2 {[#0]|[#1]}
<Const 0x224c0 0x1.4> Δ-4 {[#0]|[#1]|[##1]}
<Const 0x224c4 0x25730.4> Δ-4 {[#0]|[#1]|[##1]|[##153392]}
<Pointer.fp 0x224c6 <LVAR -0x012 @ 4(r)>> Δ-4 {[#0]|[#1]|[##1]|[##153392]|[@@-18]}
<Call 0x224c8 0x1038c> {[#0]|[#1]|[##1]|[##153392]|[@@-18]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 224ce-224cf StackAdj> Δ+16 ↓ {}
<Blob 0x224cf [20] @> Δ-20 {[«20""»]}
<POP 224de-224e0 StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x224e0 19> {[«20""»]|[$$Invalid file format]}
<Call 0x224f2 0x21308> {[«20""»]|[$$Invalid file format]}
<POP 224f6-224f8 StackAdj> Δ+24 {}
<POP 224f8-22506 Naked> Σ0 ↓ ←0x22488 ←0x224b8
<Pointer.fp 0x224f8 <LVAR -0x00e @ 4(r)>> Δ-4 {[@@-14]}
<Call 0x224fc 0x102bc> {[@@-14]}
FreeString(VAR a : String)
<POP 22502-22504 StackAdj> Δ+4 {}
<MI 22504 MOVEQ.L #0x00,D7> {}
<POP 22506-22528 Naked> Σ0 ↓ →0x22506 ←0x22506
<POP 0x22506 LimitCheck 0x0 ≤ D7 ≤ 0x1fff> {}
<MI 22510 MOVE.L D7,D0> {}
<MI 22512 ASL.L #0x1,D0> {}
<MI 22514 LEA.L 0x25728,A0> {}
<MI 2251a CLR.W (A0+D0.L+#0x2a)> {}
<MI 2251e ADDQ.L #0x1,D7> {}
<MI 22520 CMPI.L #0x00001fff,D7> {}
<MI 22526 BLE 0x22506> {}
<POP 22528-22538 Naked> Σ0 ↓ →0x22540
<MI 22528 CLR.L 0x25740> {}
<MI 2252e CLR.L 0x25744> {}
<MI 22534 TST.B D6> {}
<MI 22536 BEQ 0x22540> {}
<POP 22538-22540 Naked> Σ0 Δ-4 →0x22546
<Pointer.fp 0x22538 <LVAR -0x012 @ 4(r)>> Δ-4 {[@@-18]}
<Call 0x2253a 0x21d44> {[@@-18]}
<MI 2253e BRA 0x22546> {[@@-18]}
<POP 22540-22546 Naked> Σ0 Δ-4 ↓ ←0x22528
<Pointer.fp 0x22540 <LVAR -0x012 @ 4(r)>> Δ-4 {[@@-18]}
<Call 0x22542 0x218e8> {[@@-18]}
<POP 22546-22572 Naked> Σ-4 Δ+4 ↓ ←0x22538
<POP 22546-22548 StackAdj> Δ+4 {}
<MI 22548 CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x2254a 0x1.2> Δ-2 {[#0]|[#1]}
<Const 0x2254c 0x1.4> Δ-4 {[#0]|[#1]|[##1]}
<Const 0x22550 0x25730.4> Δ-4 {[#0]|[#1]|[##1]|[##153392]}
<Pointer.fp 0x22552 <LVAR -0x012 @ 4(r)>> Δ-4 {[#0]|[#1]|[##1]|[##153392]|[@@-18]}
<Call 0x22554 0x1038c> {[#0]|[#1]|[##1]|[##153392]|[@@-18]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 2255a-2255c StackAdj> Δ+12 {[#0]|[#1]}
<MI 2255c MOVE.L (A6+0xa),(A7)> {[4, '(A6+0xa)']}
<MI 22560 MOVE.B D6,D0> {[4, '(A6+0xa)']}
<MI 22562 EXTB.W D0> {[4, '(A6+0xa)']}
<POP 0x22564 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[4, '(A6+0xa)']}
<MI 22566 MOVE.B D0,-(A7)> Δ-2 {[4, '(A6+0xa)']|[2, 'D0']}
<MI 22568 MOVE.B (A6+0x8),-(A7)> Δ-2 {[4, '(A6+0xa)']|[2, 'D0']|[2, '(A6+0x8)']}
<Call 0x2256c 0x21e7c> {[4, '(A6+0xa)']|[2, 'D0']|[2, '(A6+0x8)']}
<POP 22570-22572 StackAdj> Δ+8 {}
<POP 22572-2257a Epilogue> Σ0
@ 2257a
<LVAR 0x00c 2(w)>
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 2(r)>
<POP 2257a-225ba Body>
<POP 2257a-22590 Prologue> Σ0 ↓
<POP 22590-22594 RegCacheLoad> Σ0 ↓
<POP 22594-225b2 Naked> Σ0 ↓
<MI 22594 CLR.W (A6-0x4)> {}
<MI 22596 MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<MI 2259a LEA.L (A6-0x4),A0> {[4, '(A6+0x8)']}
<MI 2259c MOVE.L A0,-(A7)> Δ-4 {[4, '(A6+0x8)']|[4, 'A0']}
<MI 2259e ADDQ.L #0x1,(A7)> {[4, '(A6+0x8)']|[-4-]}
<Const 0x225a0 0x1.2> Δ-2 {[4, '(A6+0x8)']|[-4-]|[#1]}
<Call 0x225a4 0x10238> {[4, '(A6+0x8)']|[-4-]|[#1]}
KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
<POP 225aa-225ae StackAdj> Δ+10 {}
<MI 225ae MOVE.W (A6-0x4),(A6+0xc)> {}
<POP 225b2-225ba Epilogue> Σ0
@ 225ba
<LVAR 0x00a 4(r)>
<LVAR 0x008 @ 2(r)>
<POP 225ba-2261e Body>
<POP 225ba-225d0 Prologue> Σ0 ↓
<POP 225d0-225d2 RegCacheLoad> Σ0 ↓
<POP 225d2-225ec Naked> Σ0 ↓ →0x22616
<POP 225d2-225d4 StackAdj> Δ-2 {[-2-]}
<MI 225d4 MOVE.L (A6+0xa),-(A7)> Δ-4 {[-2-]|[4, '(A6+0xa)']}
<Call 0x225d8 0x2257a> {[-2-]|[4, '(A6+0xa)']}
<POP 225dc-225de StackAdj> Δ+4 {[-2-]}
<MI 225de MOVE.W (A7)+,D0> Δ+2 {}
<POP 0x225e0 LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 225e4 MOVE.W D0,D7> {}
<MI 225e6 CMP.W (A6+0x8),D7> {}
<MI 225ea BEQ 0x22616> {}
<POP 225ec-22616 Naked> Σ0 ↓
<MI 225ec LEA.L (A6+0x8),A0> {}
<MI 225f0 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 225f2 ADDQ.L #0x1,(A7)> {[-4-]}
<MI 225f4 MOVE.L (A6+0xa),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xa)']}
<Const 0x225f8 0x1.2> Δ-2 {[-4-]|[4, '(A6+0xa)']|[#1]}
<Call 0x225fa 0x10238> {[-4-]|[4, '(A6+0xa)']|[#1]}
KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
<POP 22600-22604 StackAdj> Δ+10 {}
<Const 0x22604 0x1d4.4> Δ-4 {[##468]}
<Call 0x22608 0x10224> {[##468]}
KC12_Sleep(dur: Long)
<POP 2260e-22610 StackAdj> Δ+4 {}
<MI 22610 MOVE.B #0x01,0x25736> {}
<POP 22616-2261e Epilogue> Σ0 ←0x225d2
@ 2261e
<LVAR 0x00a 4(r)>
<POP 2261e-22656 Body>
<POP 2261e-22634 Prologue> Σ0 ↓
<POP 22634-22638 RegCacheLoad> Σ0 ↓
<POP 22638-2264e Naked> Σ0 ↓
<MI 22638 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 2263a ADDQ.L #0x1,(A7)> {[-4-]}
<MI 2263c MOVE.L (A6+0xa),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xa)']}
<Const 0x22640 0x1.2> Δ-2 {[-4-]|[4, '(A6+0xa)']|[#1]}
<Call 0x22644 0x10238> {[-4-]|[4, '(A6+0xa)']|[#1]}
KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
<POP 2264a-2264e StackAdj> Δ+10 {}
<POP 2264e-22656 Epilogue> Σ0
@ 22656
<LVAR 0x008 4(r)>
<POP 22656-2295c Body>
<POP 22656-2266c Prologue> Σ0 ↓
<POP 2266c-22672 RegCacheLoad> Σ0 ↓
<POP 22672-2268a Naked> Σ0 ↓ →0x228e0
<MI 22672 MOVE.L (A6+0x8),D6> {}
<MI 22676 SUBQ.L #0x5,D6> {}
<POP 22678-2267a StackAdj> Δ-2 {[-2-]}
<MI 2267a MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Call 0x2267c 0x2257a> {[-2-]|[4, 'D6']}
<POP 22680-22682 StackAdj> Δ+4 {[-2-]}
<MI 22682 MOVE.W (A7)+,D0> Δ+2 {}
<MI 22684 CMP.W #0xff,D0> {}
<MI 22686 BHI 0x228e0> {}
<POP 2268a-22694 Naked> Σ0 →0x22894 →0x22898 →0x228e0 →0x2289c →0x228e0 →0x228e0 →0x228e0 →0x228a0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228a2 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228a6 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228aa →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228ae →0x228dc →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228d6 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228d0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228ca →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228e0 →0x228c4 →0x228e0 →0x228e0 →0x228e0 →0x228be →0x228e0 →0x228b8 →0x228b2
<MI 2268a ADD.W D0,D0> {}
<MI 2268c SWITCH D0.W> {}
<POP 22894-22898 Naked> Σ0 →0x228e2 ←0x2268a
<MI 22894 MOVEQ.L #0x01,D7> {}
<MI 22896 BRA 0x228e2> {}
<POP 22898-2289c Naked> Σ0 →0x228e2 ←0x2268a
<MI 22898 MOVEQ.L #0x03,D7> {}
<MI 2289a BRA 0x228e2> {}
<POP 2289c-228a0 Naked> Σ0 →0x228e2 ←0x2268a
<MI 2289c MOVEQ.L #0x07,D7> {}
<MI 2289e BRA 0x228e2> {}
<POP 228a0-228a2 Naked> Σ0 →0x228e0 ←0x2268a
<MI 228a0 BRA 0x228e0> {}
<POP 228a2-228a6 Naked> Σ0 →0x228e2 ←0x2268a
<MI 228a2 MOVEQ.L #0x1f,D7> {}
<MI 228a4 BRA 0x228e2> {}
<POP 228a6-228aa Naked> Σ0 →0x228e2 ←0x2268a
<MI 228a6 MOVEQ.L #0x3f,D7> {}
<MI 228a8 BRA 0x228e2> {}
<POP 228aa-228ae Naked> Σ0 →0x228e2 ←0x2268a
<MI 228aa MOVEQ.L #0x7f,D7> {}
<MI 228ac BRA 0x228e2> {}
<POP 228ae-228b2 Naked> Σ0 →0x228e2 ←0x2268a
<MI 228ae MOVE.W #0xff,D7> {}
<MI 228b0 BRA 0x228e2> {}
<POP 228b2-228b8 Naked> Σ0 →0x228e2 ←0x2268a
<MI 228b2 MOVE.W #0xfe,D7> {}
<MI 228b6 BRA 0x228e2> {}
<POP 228b8-228be Naked> Σ0 →0x228e2 ←0x2268a
<MI 228b8 MOVE.W #0xfc,D7> {}
<MI 228bc BRA 0x228e2> {}
<POP 228be-228c4 Naked> Σ0 →0x228e2 ←0x2268a
<MI 228be MOVE.W #0xf8,D7> {}
<MI 228c2 BRA 0x228e2> {}
<POP 228c4-228ca Naked> Σ0 →0x228e2 ←0x2268a
<MI 228c4 MOVE.W #0xf0,D7> {}
<MI 228c8 BRA 0x228e2> {}
<POP 228ca-228d0 Naked> Σ0 →0x228e2 ←0x2268a
<MI 228ca MOVE.W #0xe0,D7> {}
<MI 228ce BRA 0x228e2> {}
<POP 228d0-228d6 Naked> Σ0 →0x228e2 ←0x2268a
<MI 228d0 MOVE.W #0xc0,D7> {}
<MI 228d4 BRA 0x228e2> {}
<POP 228d6-228dc Naked> Σ0 →0x228e2 ←0x2268a
<MI 228d6 MOVE.W #0x80,D7> {}
<MI 228da BRA 0x228e2> {}
<POP 228dc-228e0 Naked> Σ0 →0x228e2 ←0x2268a
<MI 228dc MOVEQ.L #0x00,D7> {}
<MI 228de BRA 0x228e2> {}
<POP 228e0-228e2 Naked> Σ0 ↓ ←0x22672 ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x2268a ←0x228a0
<MI 228e0 MOVEQ.L #0x0f,D7> {}
<POP 228e2-228f8 Naked> Σ0 ↓ →0x22924 ←0x22894 ←0x22898 ←0x2289c ←0x228a2 ←0x228a6 ←0x228aa ←0x228ae ←0x228b2 ←0x228b8 ←0x228be ←0x228c4 ←0x228ca ←0x228d0 ←0x228d6 ←0x228dc
<MI 228e2 MOVE.L D6,-(A7)> Δ-4 {[4, 'D6']}
<POP 0x228e4 LimitCheck 0x0 ≤ D7 ≤ 0xff> {[4, 'D6']}
<MI 228e6 MOVE.W D7,-(A7)> Δ-2 {[4, 'D6']|[2, 'D7']}
<Call 0x228e8 0x225ba> {[4, 'D6']|[2, 'D7']}
<MI 228ec MOVE.L D6,(A7)> {[-2-]|[4, 'D6']}
<Call 0x228ee 0x2257a> {[-2-]|[4, 'D6']}
<POP 228f2-228f4 StackAdj> Δ+4 {[-2-]}
<MI 228f4 CMP.W (A7)+,D7> Δ+2 {}
<MI 228f6 BEQ 0x22924> {}
<POP 228f8-22924 Naked> Σ0 →0x22954
<Blob 0x228f8 [36] @> Δ-36 {[«36""»]}
<POP 22904-22906 StackAdj> Δ-4 {[«36""»]|[-4-]}
<Lit 0x22906 36> {[«36""»]|[$$*** ERROR: test of EEPROM failed ***]}
<Call 0x22918 0x103e0> {[«36""»]|[$$*** ERROR: test of EEPROM failed ***]}
WriteConsoleStringCrLf(str : String)
<POP 2291e-22922 StackAdj> Δ+40 {}
<MI 22922 BRA 0x22954> {}
<POP 22924-22954 Naked> Σ0 ↓ ←0x228e2
<Blob 0x22924 [22] @> Δ-22 {[«22""»]}
<POP 22936-22938 StackAdj> Δ-4 {[«22""»]|[-4-]}
<Lit 0x22938 21> {[«22""»]|[$$test of EEPROM passed]}
<Call 0x2294a 0x103e0> {[«22""»]|[$$test of EEPROM passed]}
WriteConsoleStringCrLf(str : String)
<POP 22950-22954 StackAdj> Δ+26 {}
<POP 22954-2295c Epilogue> Σ0 ←0x228f8
@ 2295c
<POP 2295c-22a62 Body>
<POP 2295c-22972 Prologue> Σ0 ↓
<POP 22972-22984 RegCacheLoad> Σ0 ↓
<POP 22984-22a5a Naked> Σ0 ↓
<Blob 0x22984 [26] @> Δ-26 {[«26""»]}
<Blob 0x22996 [16] @> Δ-16 {[«26""»]|[«16""»]}
<POP 229a8-229aa StackAdj> Δ-8 {[«26""»]|[«16""»]|[-8-]}
<Lit 0x229aa 25> {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]}
<POP 229ba-229bc StackAdj> Δ-10 {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-10-]}
<MI 229bc MOVE.L 0x25748,D0> {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-10-]}
<MI 229be ADD.L 0x2574c,D0> {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-10-]}
<MI 229c0 SUBQ.L #0x4,D0> {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-10-]}
<MI 229c2 MOVE.L D0,-(A7)> Δ-4 {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-10-]|[4, 'D0']}
<Call 0x229c4 0x2257a> {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-10-]|[4, 'D0']}
<POP 229c6-229c8 StackAdj> Δ+4 {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-10-]}
<MI 229c8 MOVE.W (A7)+,D0> Δ+2 {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-8-]}
<MI 229ca EXTW.L D0> {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-8-]}
<MI 229cc MOVE.L D0,(A7)> {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-4-]|[4, 'D0']}
<Const 0x229ce 0x2.4> Δ-4 {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-4-]|[4, 'D0']|[##2]}
<Call 0x229d2 0x102e8> {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-4-]|[4, 'D0']|[##2]}
Long2HexString(val : Long; ndig : Long) : String
<POP 229d8-229da StackAdj> Δ-2 {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-4-]|[4, 'D0']|[##2]|[-2-]}
<MI 229da MOVE.L 0x25748,D0> {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-4-]|[4, 'D0']|[##2]|[-2-]}
<MI 229dc ADD.L 0x2574c,D0> {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-4-]|[4, 'D0']|[##2]|[-2-]}
<MI 229de SUBQ.L #0x3,D0> {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-4-]|[4, 'D0']|[##2]|[-2-]}
<MI 229e0 MOVE.L D0,-(A7)> Δ-4 {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-4-]|[4, 'D0']|[##2]|[-2-]|[4, 'D0']}
<Call 0x229e2 0x2257a> {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-4-]|[4, 'D0']|[##2]|[-2-]|[4, 'D0']}
<POP 229e4-229e6 StackAdj> Δ+4 {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-4-]|[4, 'D0']|[##2]|[-2-]}
<MI 229e6 MOVE.W (A7)+,D0> Δ+2 {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-4-]|[4, 'D0']|[##2]}
<MI 229e8 EXTW.L D0> {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-4-]|[4, 'D0']|[##2]}
<MI 229ea MOVE.L D0,(A7)> {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-4-]|[4, 'D0']|[4, 'D0']}
<Const 0x229ec 0x2.4> Δ-4 {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-4-]|[4, 'D0']|[4, 'D0']|[##2]}
<Call 0x229f0 0x102e8> {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-4-]|[4, 'D0']|[4, 'D0']|[##2]}
Long2HexString(val : Long; ndig : Long) : String
<POP 229f6-229f8 StackAdj> Δ-2 {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-4-]|[4, 'D0']|[4, 'D0']|[##2]|[-2-]}
<MI 229f8 MOVE.L 0x25748,D0> {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-4-]|[4, 'D0']|[4, 'D0']|[##2]|[-2-]}
<MI 229fa ADD.L 0x2574c,D0> {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-4-]|[4, 'D0']|[4, 'D0']|[##2]|[-2-]}
<MI 229fc SUBQ.L #0x2,D0> {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-4-]|[4, 'D0']|[4, 'D0']|[##2]|[-2-]}
<MI 229fe MOVE.L D0,-(A7)> Δ-4 {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-4-]|[4, 'D0']|[4, 'D0']|[##2]|[-2-]|[4, 'D0']}
<Call 0x22a00 0x2257a> {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-4-]|[4, 'D0']|[4, 'D0']|[##2]|[-2-]|[4, 'D0']}
<POP 22a02-22a04 StackAdj> Δ+4 {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-4-]|[4, 'D0']|[4, 'D0']|[##2]|[-2-]}
<MI 22a04 MOVE.W (A7)+,D0> Δ+2 {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-4-]|[4, 'D0']|[4, 'D0']|[##2]}
<MI 22a06 EXTW.L D0> {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-4-]|[4, 'D0']|[4, 'D0']|[##2]}
<MI 22a08 MOVE.L D0,(A7)> {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-4-]|[4, 'D0']|[4, 'D0']|[4, 'D0']}
<Const 0x22a0a 0x2.4> Δ-4 {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-4-]|[4, 'D0']|[4, 'D0']|[4, 'D0']|[##2]}
<Call 0x22a0e 0x102e8> {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-4-]|[4, 'D0']|[4, 'D0']|[4, 'D0']|[##2]}
Long2HexString(val : Long; ndig : Long) : String
<POP 22a14-22a16 StackAdj> Δ+4 {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-4-]|[4, 'D0']|[4, 'D0']|[4, 'D0']}
<Lit 0x22a16 15> {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-4-]|[4, 'D0']|[4, 'D0']|[$$, locus byte =_]}
<POP 22a26-22a28 StackAdj> Δ-10 {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-4-]|[4, 'D0']|[4, 'D0']|[$$, locus byte =_]|[-10-]}
<MI 22a28 MOVE.L 0x25748,D0> {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-4-]|[4, 'D0']|[4, 'D0']|[$$, locus byte =_]|[-10-]}
<MI 22a2a ADD.L 0x2574c,D0> {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-4-]|[4, 'D0']|[4, 'D0']|[$$, locus byte =_]|[-10-]}
<MI 22a2c SUBQ.L #0x1,D0> {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-4-]|[4, 'D0']|[4, 'D0']|[$$, locus byte =_]|[-10-]}
<MI 22a2e MOVE.L D0,-(A7)> Δ-4 {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-4-]|[4, 'D0']|[4, 'D0']|[$$, locus byte =_]|[-10-]|[4, 'D0']}
<Call 0x22a30 0x2257a> {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-4-]|[4, 'D0']|[4, 'D0']|[$$, locus byte =_]|[-10-]|[4, 'D0']}
<POP 22a32-22a34 StackAdj> Δ+4 {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-4-]|[4, 'D0']|[4, 'D0']|[$$, locus byte =_]|[-10-]}
<MI 22a34 MOVE.W (A7)+,D0> Δ+2 {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-4-]|[4, 'D0']|[4, 'D0']|[$$, locus byte =_]|[-8-]}
<MI 22a36 EXTW.L D0> {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-4-]|[4, 'D0']|[4, 'D0']|[$$, locus byte =_]|[-8-]}
<MI 22a38 MOVE.L D0,(A7)> {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-4-]|[4, 'D0']|[4, 'D0']|[$$, locus byte =_]|[-4-]|[4, 'D0']}
<Const 0x22a3a 0x2.4> Δ-4 {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-4-]|[4, 'D0']|[4, 'D0']|[$$, locus byte =_]|[-4-]|[4, 'D0']|[##2]}
<Call 0x22a3e 0x102e8> {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-4-]|[4, 'D0']|[4, 'D0']|[$$, locus byte =_]|[-4-]|[4, 'D0']|[##2]}
Long2HexString(val : Long; ndig : Long) : String
<POP 22a44-22a46 StackAdj> Δ+8 {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-4-]|[4, 'D0']|[4, 'D0']|[$$, locus byte =_]|[-4-]}
<Call 0x22a46 0x102e0> {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-4-]|[4, 'D0']|[4, 'D0']|[$$, locus byte =_]|[-4-]}
StringCat6(a, b, c, d, e, f : String) : String
<POP 22a4c-22a50 StackAdj> Δ+24 {[«26""»]|[«16""»]|[-4-]}
<Call 0x22a50 0x103e0> {[«26""»]|[«16""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 22a56-22a5a StackAdj> Δ+46 {}
<POP 22a5a-22a62 Epilogue> Σ0
@ 22a62
<LVAR 0x008 4(r)>
<POP 22a62-22b24 Body>
<POP 22a62-22a78 Prologue> Σ0 ↓
<POP 22a78-22a84 RegCacheLoad> Σ0 ↓
<POP 22a84-22a9e Naked> Σ0 ↓ →0x22ad0
<POP 22a84-22a86 StackAdj> Δ-2 {[-2-]}
<MI 22a86 MOVE.L 0x25748,D0> {[-2-]}
<MI 22a88 ADD.L 0x2574c,D0> {[-2-]}
<MI 22a8a SUBQ.L #0x1,D0> {[-2-]}
<MI 22a8c MOVE.L D0,-(A7)> Δ-4 {[-2-]|[4, 'D0']}
<Call 0x22a8e 0x2257a> {[-2-]|[4, 'D0']}
<POP 22a92-22a94 StackAdj> Δ+4 {[-2-]}
<MI 22a94 MOVE.W 0x25750,D0> {[-2-]}
<MI 22a9a CMP.W (A7)+,D0> Δ+2 {}
<MI 22a9c BEQ 0x22ad0> {}
<POP 22a9e-22ad0 Naked> Σ0 ↓
<Blob 0x22a9e [48] @> Δ-48 {[«48""»]}
<POP 22ab0-22ab2 StackAdj> Δ-4 {[«48""»]|[-4-]}
<Lit 0x22ab2 47> {[«48""»]|[$$WARNING: the EEPROM has an incorrect LOCUS byte]}
<Call 0x22ac6 0x103e0> {[«48""»]|[$$WARNING: the EEPROM has an incorrect LOCUS byte]}
WriteConsoleStringCrLf(str : String)
<POP 22acc-22ad0 StackAdj> Δ+52 {}
<POP 22ad0-22adc Naked> Σ0 Δ-4 ↓ ←0x22a84
<MI 22ad0 MOVEA.L (A6+0x8),A0> {}
<MI 22ad4 CLR.L (A0)> {}
<Blob 0x22ad6 [4] 0x2574c> Δ-4 {[«4»]}
<MI 22ad8 SUBQ.L #0x1,(A7)> {[-4-]}
<MI 22ada MOVEQ.L #0x00,D7> {[-4-]}
<POP 22adc-22ae0 Naked> Σ-4 ↓ →0x22b1a ←0x22b16
<MI 22adc CMP.L (A7),D7> {[-4-]}
<MI 22ade BGT 0x22b1a> {[-4-]}
<POP 22ae0-22b08 Naked> Σ-4 ↓ →0x22b16
<POP 22ae0-22ae2 StackAdj> Δ-2 {[-6-]}
<Blob 0x22ae2 [4] 0x25748> Δ-4 {[-6-]|[«4»]}
<MI 22ae4 ADD.L D7,(A7)> {[-10-]}
<Call 0x22ae6 0x2257a> {[-10-]}
<POP 22aea-22aec StackAdj> Δ+4 {[-6-]}
<POP 0x22aec LimitCheck 0x0 ≤ D7 ≤ 0x1fff> {[-6-]}
<MI 22af6 MOVE.L D7,D0> {[-6-]}
<MI 22af8 ASL.L #0x1,D0> {[-6-]}
<MI 22afa LEA.L 0x25728,A0> {[-6-]}
<MI 22b00 MOVE.W (A7)+,D1> Δ+2 {[-4-]}
<MI 22b02 CMP.W (A0+D0.L+#0x2a),D1> {[-4-]}
<MI 22b06 BEQ 0x22b16> {[-4-]}
<POP 22b08-22b10 Naked> Σ-4 ↓ →0x22b16
<MI 22b08 MOVE.L 0x2574c,D0> {[-4-]}
<MI 22b0a SUBQ.L #0x5,D0> {[-4-]}
<MI 22b0c CMP.L D0,D7> {[-4-]}
<MI 22b0e BEQ 0x22b16> {[-4-]}
<POP 22b10-22b16 Naked> Σ-4 ↓
<MI 22b10 MOVEA.L (A6+0x8),A0> {[-4-]}
<MI 22b14 ADDQ.L #0x1,(A0)> {[-4-]}
<POP 22b16-22b1a Naked> Σ-4 ↓ →0x22adc ←0x22ae0 ←0x22b08
<MI 22b16 ADDQ.L #0x1,D7> {[-4-]}
<MI 22b18 BVC 0x22adc> {[-4-]}
<POP 22b1a-22b1c Naked> Σ-4 Δ+4 ↓ ←0x22adc
<POP 22b1a-22b1c StackAdj> Δ+4 {}
<POP 22b1c-22b24 Epilogue> Σ0
@ 22b24
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 4(r)>
<POP 22b24-22c98 Body>
<POP 22b24-22b3a Prologue> Σ0 ↓
<POP 22b3a-22b58 RegCacheLoad> Σ0 ↓
<POP 22b58-22b78 Naked> Σ0 ↓ →0x22bba
<MI 22b58 MOVE.W 0x25750,D0> {}
<MI 22b5e SUBI.W #0x0050,D0> {}
<MI 22b62 EXTW.L D0> {}
<MI 22b64 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<Pointer.fp 0x22b66 <LVAR -0x004 @ 4(r)>> Δ-4 {[4, 'D0']|[@@-4]}
<Call 0x22b6a 0x254aa> {[4, 'D0']|[@@-4]}
<POP 22b70-22b72 StackAdj> Δ+8 {}
<MI 22b72 TST.L (A6-0x4)> {}
<MI 22b76 BEQ 0x22bba> {}
<POP 22b78-22bba Naked> Σ0 ↓
<Blob 0x22b78 [28] @> Δ-28 {[«28""»]}
<POP 22b8a-22b8c StackAdj> Δ-8 {[«28""»]|[-8-]}
<Lit 0x22b8c 27> {[«28""»]|[-4-]|[$$Warning from REE_DOWNLOAD:_]}
<MI 22b9e MOVE.L (A6-0x4),(A7)> {[«28""»]|[-4-]|[4, '(A6-0x4)']}
<POP 22b98-22b9e StackAdj> Δ-8 {[«28""»]|[-4-]|[4, '(A6-0x4)']|[-8-]}
<Call 0x22ba2 0x2118e> {[«28""»]|[-4-]|[4, '(A6-0x4)']|[-8-]}
<POP 22ba6-22ba8 StackAdj> Δ+4 {[«28""»]|[-4-]|[4, '(A6-0x4)']|[-4-]}
<Call 0x22ba8 0x102d0> {[«28""»]|[-4-]|[4, '(A6-0x4)']|[-4-]}
StringCat2(a, b : String) : String
<POP 22bae-22bb0 StackAdj> Δ+8 {[«28""»]|[-4-]}
<Call 0x22bb0 0x103e0> {[«28""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 22bb6-22bba StackAdj> Δ+32 {}
<POP 22bba-22bc8 Naked> Σ0 ↓ →0x22c00 ←0x22b58
<POP 22bba-22bbc StackAdj> Δ-4 {[-4-]}
<Call 0x22bbc 0x2542c> {[-4-]}
<MI 22bc2 MOVE.L (A7)+,D6> Δ+4 {}
<MI 22bc4 CMP.L 0x25748,D6> {}
<MI 22bc6 BCS 0x22c00> {}
<POP 22bc8-22bd0 Naked> Σ0 ↓ →0x22c00
<MI 22bc8 MOVE.L 0x25748,D0> {}
<MI 22bca ADD.L 0x2574c,D0> {}
<MI 22bcc CMP.L D0,D6> {}
<MI 22bce BHI 0x22c00> {}
<POP 22bd0-22bd2 Naked> Σ0 ↓
<MI 22bd0 MOVEQ.L #0x00,D7> {}
<POP 22bd2-22c00 Naked> Σ0 ↓ →0x22bd2 ←0x22bd2
<MI 22bd2 MOVE.L D6,D0> {}
<MI 22bd4 ADD.L D7,D0> {}
<MI 22bd6 MOVE.L D0,D1> {}
<MI 22bd8 AND.L #0x1fff,D1> {}
<POP 0x22bda LimitCheck 0x0 ≤ D1 ≤ 0x1fff> {}
<MI 22be0 ASL.L #0x1,D1> {}
<MI 22be2 LEA.L 0x25728,A0> {}
<POP 22be4-22be6 StackAdj> Δ-2 {[-2-]}
<MI 22be6 MOVE.L D0,-(A7)> Δ-4 {[-2-]|[4, 'D0']}
<Call 0x22be8 0x2257a> {[-2-]|[4, 'D0']}
<POP 22bec-22bee StackAdj> Δ+4 {[-2-]}
<MI 22bee MOVE.W (A7)+,D0> Δ+2 {}
<POP 0x22bf0 LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 22bf2 MOVE.W D0,(A0+D1.L+#0x2a)> {}
<MI 22bf6 ADDQ.L #0x1,D7> {}
<MI 22bf8 CMPI.L #0x00000005,D7> {}
<MI 22bfe BLE 0x22bd2> {}
<POP 22c00-22c0e Naked> Σ0 ↓ →0x22c42 ←0x22bba ←0x22bc8
<POP 22c00-22c02 StackAdj> Δ-4 {[-4-]}
<Call 0x22c02 0x25456> {[-4-]}
<MI 22c08 MOVE.L (A7)+,D6> Δ+4 {}
<MI 22c0a CMP.L 0x25748,D6> {}
<MI 22c0c BCS 0x22c42> {}
<POP 22c0e-22c16 Naked> Σ0 ↓ →0x22c42
<MI 22c0e MOVE.L 0x25748,D0> {}
<MI 22c10 ADD.L 0x2574c,D0> {}
<MI 22c12 CMP.L D0,D6> {}
<MI 22c14 BHI 0x22c42> {}
<POP 22c16-22c18 Naked> Σ0 ↓
<MI 22c16 MOVEQ.L #0x00,D7> {}
<POP 22c18-22c42 Naked> Σ0 ↓ →0x22c18 ←0x22c18
<MI 22c18 MOVE.L D6,D0> {}
<MI 22c1a ADD.L D7,D0> {}
<MI 22c1c MOVE.L D0,D1> {}
<MI 22c1e AND.L #0x1fff,D1> {}
<POP 0x22c20 LimitCheck 0x0 ≤ D1 ≤ 0x1fff> {}
<MI 22c26 ASL.L #0x1,D1> {}
<MI 22c28 LEA.L 0x25728,A0> {}
<POP 22c2a-22c2c StackAdj> Δ-2 {[-2-]}
<MI 22c2c MOVE.L D0,-(A7)> Δ-4 {[-2-]|[4, 'D0']}
<Call 0x22c2e 0x2257a> {[-2-]|[4, 'D0']}
<POP 22c32-22c34 StackAdj> Δ+4 {[-2-]}
<MI 22c34 MOVE.W (A7)+,D0> Δ+2 {}
<POP 0x22c36 LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 22c38 MOVE.W D0,(A0+D1.L+#0x2a)> {}
<MI 22c3c ADDQ.L #0x1,D7> {}
<MI 22c3e CMP.L #0x07,D7> {}
<MI 22c40 BLE 0x22c18> {}
<POP 22c42-22c50 Naked> Σ0 ↓ →0x22c84 ←0x22c00 ←0x22c0e
<POP 22c42-22c44 StackAdj> Δ-4 {[-4-]}
<Call 0x22c44 0x25480> {[-4-]}
<MI 22c4a MOVE.L (A7)+,D6> Δ+4 {}
<MI 22c4c CMP.L 0x25748,D6> {}
<MI 22c4e BCS 0x22c84> {}
<POP 22c50-22c58 Naked> Σ0 ↓ →0x22c84
<MI 22c50 MOVE.L 0x25748,D0> {}
<MI 22c52 ADD.L 0x2574c,D0> {}
<MI 22c54 CMP.L D0,D6> {}
<MI 22c56 BHI 0x22c84> {}
<POP 22c58-22c5a Naked> Σ0 ↓
<MI 22c58 MOVEQ.L #0x00,D7> {}
<POP 22c5a-22c84 Naked> Σ0 ↓ →0x22c5a ←0x22c5a
<MI 22c5a MOVE.L D6,D0> {}
<MI 22c5c ADD.L D7,D0> {}
<MI 22c5e MOVE.L D0,D1> {}
<MI 22c60 AND.L #0x1fff,D1> {}
<POP 0x22c62 LimitCheck 0x0 ≤ D1 ≤ 0x1fff> {}
<MI 22c68 ASL.L #0x1,D1> {}
<MI 22c6a LEA.L 0x25728,A0> {}
<POP 22c6c-22c6e StackAdj> Δ-2 {[-2-]}
<MI 22c6e MOVE.L D0,-(A7)> Δ-4 {[-2-]|[4, 'D0']}
<Call 0x22c70 0x2257a> {[-2-]|[4, 'D0']}
<POP 22c74-22c76 StackAdj> Δ+4 {[-2-]}
<MI 22c76 MOVE.W (A7)+,D0> Δ+2 {}
<POP 0x22c78 LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 22c7a MOVE.W D0,(A0+D1.L+#0x2a)> {}
<MI 22c7e ADDQ.L #0x1,D7> {}
<MI 22c80 CMP.L #0x07,D7> {}
<MI 22c82 BLE 0x22c5a> {}
<POP 22c84-22c90 Naked> Σ0 ↓ ←0x22c42 ←0x22c50
<MI 22c84 MOVEA.L (A6+0x8),A0> {}
<MI 22c88 PEA.L (A0)> Δ-4 {[4, '^(A0)']}
<Call 0x22c8a 0x22a62> {[4, '^(A0)']}
<POP 22c8e-22c90 StackAdj> Δ+4 {}
<POP 22c90-22c98 Epilogue> Σ0
@ 22c98
<LVAR 0x00a 4(r)>
<LVAR 0x008 2(r)>
<LVAR -0x006 @ 4(r)>
<POP 22c98-22d66 Body> Δ+4
<POP 22c98-22cae Prologue> Σ0 ↓
<POP 22cae-22cb4 RegCacheLoad> Σ0 ↓
<POP 22cb4-22cd8 Naked> Σ0 ↓ →0x22ce0
<MI 22cb4 MOVE.L (A6+0xa),-(A7)> Δ-4 {[4, '(A6+0xa)']}
<MI 22cb8 MOVE.W (A6+0x8),D0> {[4, '(A6+0xa)']}
<MI 22cbc EXTW.L D0> {[4, '(A6+0xa)']}
<MI 22cbe MOVE.L D0,-(A7)> Δ-4 {[4, '(A6+0xa)']|[4, 'D0']}
<Const 0x22cc0 0x1.2> Δ-2 {[4, '(A6+0xa)']|[4, 'D0']|[#1]}
<Call 0x22cc2 0x2234c> {[4, '(A6+0xa)']|[4, 'D0']|[#1]}
<POP 22cc6-22cca StackAdj> Δ+10 {}
<Call 0x22cca 0x2295c> {}
<MI 22cce MOVE.W (A6+0x8),D0> {}
<MI 22cd2 CMPI.W #0x0050,D0> {}
<MI 22cd6 BGE 0x22ce0> {}
<POP 22cd8-22ce0 Naked> Σ0 Δ-4 →0x22ce6
<Pointer.fp 0x22cd8 <LVAR -0x006 @ 4(r)>> Δ-4 {[@@-6]}
<Call 0x22cda 0x22a62> {[@@-6]}
<MI 22cde BRA 0x22ce6> {[@@-6]}
<POP 22ce0-22ce6 Naked> Σ0 Δ-4 ↓ ←0x22cb4
<Pointer.fp 0x22ce0 <LVAR -0x006 @ 4(r)>> Δ-4 {[@@-6]}
<Call 0x22ce2 0x22b24> {[@@-6]}
<POP 22ce6-22cec Naked> Σ-4 Δ+4 ↓ →0x22d1e ←0x22cd8
<POP 22ce6-22ce8 StackAdj> Δ+4 {}
<MI 22ce8 TST.L (A6-0x6)> {}
<MI 22cea BNE 0x22d1e> {}
<POP 22cec-22d1e Naked> Σ0 →0x22d58
<Blob 0x22cec [20] @> Δ-20 {[«20""»]}
<POP 22cfe-22d00 StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x22d00 19> {[«20""»]|[$$EEPROM matched file]}
<Call 0x22d12 0x103e0> {[«20""»]|[$$EEPROM matched file]}
WriteConsoleStringCrLf(str : String)
<POP 22d18-22d1c StackAdj> Δ+24 {}
<MI 22d1c BRA 0x22d58> {}
<POP 22d1e-22d58 Naked> Σ0 ↓ ←0x22ce6
<Blob 0x22d1e [48] @> Δ-48 {[«48""»]}
<POP 22d2a-22d2c StackAdj> Δ-8 {[«48""»]|[-8-]}
<MI 22d2c MOVE.L (A6-0x6),-(A7)> Δ-4 {[«48""»]|[-8-]|[4, '(A6-0x6)']}
<Call 0x22d2e 0x102e4> {[«48""»]|[-8-]|[4, '(A6-0x6)']}
Long2String(a : Long) : String
<Lit 0x22d34 48> {[«48""»]|[-8-]|[$$ differing bytes were found (excluding checksum)]}
<Call 0x22d46 0x102d0> {[«48""»]|[-8-]|[$$ differing bytes were found (excluding checksum)]}
StringCat2(a, b : String) : String
<POP 22d4c-22d4e StackAdj> Δ+8 {[«48""»]|[-4-]}
<Call 0x22d4e 0x103e0> {[«48""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 22d54-22d58 StackAdj> Δ+52 {}
<POP 22d58-22d5e Naked> Σ0 ↓ ←0x22cec
<Call 0x22d58 0x103dc> {}
WriteConsoleCrLf(void)
<POP 22d5e-22d66 Epilogue> Σ0
@ 22d66
<LVAR 0x008 2(r)>
<LVAR -0x006 @>
<LVAR -0x00a @ 4(r)>
<POP 22d66-22dce Body>
<POP 22d66-22d78 Prologue> Σ0 ↓
<POP 22d78-22dca Naked> Σ0 ↓
<MI 22d78 MOVE.W (A6+0x8),-(A7)> Δ-2 {[2, '(A6+0x8)']}
<Pointer.fp 0x22d7c <LVAR -0x006 @>> Δ-4 {[2, '(A6+0x8)']|[@@-6]}
<Pointer.fp 0x22d80 <LVAR -0x00a @ 4(r)>> Δ-4 {[2, '(A6+0x8)']|[@@-6]|[@@-10]}
<Call 0x22d84 0x214fe> {[2, '(A6+0x8)']|[@@-6]|[@@-10]}
<POP 22d88-22d8a StackAdj> Δ+6 {[2, '(A6+0x8)']|[-2-]}
<POP 22d8a-22d8b StackAdj> Δ+4 {}
<Blob 0x22d8b [4] @> Δ-4 {[«4""»]}
<Blob 0x22d8e [4] @> Δ-4 {[«4""»]|[«4""»]}
<POP 22d92-22d94 StackAdj> Δ-4 {[«4""»]|[«4""»]|[-4-]}
<MI 22d94 MOVE.L (A6-0xa),-(A7)> Δ-4 {[«4""»]|[«4""»]|[-4-]|[4, '(A6-0xa)']}
<POP 22d98-22d9a StackAdj> Δ-4 {[«4""»]|[«4""»]|[-4-]|[4, '(A6-0xa)']|[-4-]}
<Lit 0x22d9a 8> {[«4""»]|[«4""»]|[-4-]|[4, '(A6-0xa)']|[$$ EEPROM:]}
<Call 0x22dae 0x102d0> {[«4""»]|[«4""»]|[-4-]|[4, '(A6-0xa)']|[$$ EEPROM:]}
StringCat2(a, b : String) : String
<POP 22db4-22db6 StackAdj> Δ+8 {[«4""»]|[«4""»]|[-4-]}
<Call 0x22db6 0x103d8> {[«4""»]|[«4""»]|[-4-]}
WriteConsoleString(str : String)
<POP 22dbc-22dbe StackAdj> Δ+8 {[«4""»]}
<MI 22dbe MOVE.L (A4),(A7)> {[4, '(A4)']}
<MI 22dc0 MOVE.W (A6+0x8),-(A7)> Δ-2 {[4, '(A4)']|[2, '(A6+0x8)']}
<Call 0x22dc4 0x22c98> {[4, '(A4)']|[2, '(A6+0x8)']}
<POP 22dc8-22dca StackAdj> Δ+6 {}
<POP 22dca-22dce Epilogue> Σ0
@ 22dce
<LVAR 0x008 1(r)>
<LVAR -0x006 @ 4(rw)>
<LVAR -0x00a @ 4(rw)>
<POP 22dce-22ecc Body> Δ+2
<POP 22dce-22de4 Prologue> Σ0 ↓
<POP 22de4-22df2 RegCacheLoad> Σ0 ↓
<POP 22df2-22df8 Naked> Σ0 ↓ →0x22e00
<MI 22df2 TST.B (A6+0x8)> {}
<MI 22df6 BEQ 0x22e00> {}
<POP 22df8-22e00 Naked> Σ0 →0x22e06
<MI 22df8 MOVE.L 0x29758,(A6-0xa)> {}
<MI 22dfe BRA 0x22e06> {}
<POP 22e00-22e06 Naked> Σ0 ↓ ←0x22df2
<MI 22e00 MOVE.L 0x29754,(A6-0xa)> {}
<POP 22e06-22e68 Naked> Σ0 ↓ →0x22e6e ←0x22df8
<Blob 0x22e06 [22] @> Δ-22 {[«22""»]}
<Blob 0x22e18 [4] @> Δ-4 {[«22""»]|[«4""»]}
<POP 22e1c-22e1e StackAdj> Δ-12 {[«22""»]|[«4""»]|[-12-]}
<Lit 0x22e1e 21> {[«22""»]|[«4""»]|[-8-]|[$$enter prom filename []}
<MI 22e2c MOVE.L (A6-0xa),(A7)> {[«22""»]|[«4""»]|[-8-]|[4, '(A6-0xa)']}
<POP 22e26-22e2c StackAdj> Δ-8 {[«22""»]|[«4""»]|[-8-]|[4, '(A6-0xa)']|[-8-]}
<Call 0x22e2e 0x102cc> {[«22""»]|[«4""»]|[-8-]|[4, '(A6-0xa)']|[-8-]}
StringDup(a : String) : String
<Lit 0x22e34 4> {[«22""»]|[«4""»]|[-8-]|[4, '(A6-0xa)']|[-4-]|[$$] :_]}
<Call 0x22e46 0x102d4> {[«22""»]|[«4""»]|[-8-]|[4, '(A6-0xa)']|[-4-]|[$$] :_]}
StringCat3(a, b, c : String) : String
<POP 22e4c-22e4e StackAdj> Δ+12 {[«22""»]|[«4""»]|[-8-]}
<Call 0x22e4e 0x103e4> {[«22""»]|[«4""»]|[-8-]}
AskConsoleString(prompt : String) : String
<POP 22e54-22e56 StackAdj> Δ+4 {[«22""»]|[«4""»]|[-4-]}
<MI 22e56 MOVE.L (A7)+,(A6-0x6)> Δ+4 {[«22""»]|[«4""»]}
<POP 22e5a-22e5e StackAdj> Δ+26 {}
<MI 22e5e MOVEA.L (A6-0x6),A0> {}
<MI 22e62 MOVE.W (A0),D0> {}
<MI 22e64 CMP.W #0x01,D0> {}
<MI 22e66 BLE 0x22e6e> {}
<POP 22e68-22e6e Naked> Σ0 →0x22e7a
<MI 22e68 MOVE.L (A6-0x6),(A6-0xa)> {}
<MI 22e6c BRA 0x22e7a> {}
<POP 22e6e-22e7a Naked> Σ0 ↓ ←0x22e06
<Pointer.fp 0x22e6e <LVAR -0x006 @ 4(rw)>> Δ-4 {[@@-6]}
<Call 0x22e72 0x102bc> {[@@-6]}
FreeString(VAR a : String)
<POP 22e78-22e7a StackAdj> Δ+4 {}
<POP 22e7a-22e80 Naked> Σ0 ↓ →0x22e9e ←0x22e68
<MI 22e7a TST.B (A6+0x8)> {}
<MI 22e7e BEQ 0x22e9e> {}
<POP 22e80-22e9e Naked> Σ0 Δ-2 →0x22eb8
<Const 0x22e80 0x50.2> Δ-2 {[#80]}
<MI 22e84 LEA.L (A6-0xa),A4> {[#80]}
<Call 0x22e86 0x22d66> {[#80]}
<POP 22e88-22e89 StackAdj> Δ+2 {}
<Const 0x22e89 0x51.2> Δ-2 {[#81]}
<MI 22e8c LEA.L (A6-0xa),A4> {[#81]}
<Call 0x22e8e 0x22d66> {[#81]}
<POP 22e90-22e91 StackAdj> Δ+2 {}
<Const 0x22e91 0x52.2> Δ-2 {[#82]}
<MI 22e94 LEA.L (A6-0xa),A4> {[#82]}
<Call 0x22e96 0x22d66> {[#82]}
<POP 22e98-22e99 StackAdj> Δ+2 {}
<Const 0x22e99 0x53.2> Δ-2 {[#83]}
<MI 22e9c BRA 0x22eb8> {[#83]}
<POP 22e9e-22eb8 Naked> Σ0 Δ-2 ↓ ←0x22e7a
<Const 0x22e9e 0x21.2> Δ-2 {[#33]}
<MI 22ea2 LEA.L (A6-0xa),A4> {[#33]}
<Call 0x22ea4 0x22d66> {[#33]}
<POP 22ea6-22ea7 StackAdj> Δ+2 {}
<Const 0x22ea7 0x19.2> Δ-2 {[#25]}
<MI 22eaa LEA.L (A6-0xa),A4> {[#25]}
<Call 0x22eac 0x22d66> {[#25]}
<POP 22eae-22eaf StackAdj> Δ+2 {}
<Const 0x22eaf 0x17.2> Δ-2 {[#23]}
<MI 22eb2 LEA.L (A6-0xa),A4> {[#23]}
<Call 0x22eb4 0x22d66> {[#23]}
<POP 22eb6-22eb7 StackAdj> Δ+2 {}
<Const 0x22eb7 0x15.2> Δ-2 {[#21]}
<POP 22eb8-22ec4 Naked> Σ-2 Δ+2 ↓ ←0x22e80
<MI 22eb8 LEA.L (A6-0xa),A4> {[-2-]}
<Call 0x22eba 0x22d66> {[-2-]}
<POP 22ebc-22ebe StackAdj> Δ+2 {}
<Call 0x22ebe 0x103dc> {}
WriteConsoleCrLf(void)
<POP 22ec4-22ecc Epilogue> Σ0
@ 22ecc
<POP 22ecc-23100 Body>
<POP 22ecc-22ee2 Prologue> Σ0 ↓
<POP 22ee2-22efa RegCacheLoad> Σ0 ↓
<POP 22efa-22f02 Naked> Σ0 Δ-4 ↓
<Blob 0x22efa [4] 0x2574c> Δ-4 {[«4»]}
<MI 22f00 MOVEQ.L #0x00,D6> {[«4»]}
<POP 22f02-22f08 Naked> Σ-4 ↓ →0x2309c ←0x23096
<MI 22f02 CMP.L (A7),D6> {[-4-]}
<MI 22f04 BGT 0x2309c> {[-4-]}
<POP 22f08-22f32 Naked> Σ-4 ↓ →0x23096
<POP 22f08-22f0a StackAdj> Δ-2 {[-6-]}
<Blob 0x22f0a [4] 0x25748> Δ-4 {[-6-]|[«4»]}
<MI 22f0c ADD.L D6,(A7)> {[-10-]}
<Call 0x22f0e 0x2257a> {[-10-]}
<POP 22f12-22f14 StackAdj> Δ+4 {[-6-]}
<POP 0x22f14 LimitCheck 0x0 ≤ D6 ≤ 0x1fff> {[-6-]}
<MI 22f1e MOVE.L D6,D0> {[-6-]}
<MI 22f20 ASL.L #0x1,D0> {[-6-]}
<MI 22f22 LEA.L 0x25728,A0> {[-6-]}
<MI 22f28 MOVE.W (A7)+,D1> Δ+2 {[-4-]}
<MI 22f2a CMP.W (A0+D0.L+#0x2a),D1> {[-4-]}
<MI 22f2e BEQ 0x23096> {[-4-]}
<POP 22f32-22f40 Naked> Σ-4 ↓ →0x23096
<MI 22f32 MOVE.L 0x2574c,D0> {[-4-]}
<MI 22f38 SUBQ.L #0x5,D0> {[-4-]}
<MI 22f3a CMP.L D0,D6> {[-4-]}
<MI 22f3c BEQ 0x23096> {[-4-]}
<POP 22f40-22f42 Naked> Σ-4 ↓
<MI 22f40 MOVEQ.L #0x00,D7> {[-4-]}
<POP 22f42-22f7a Naked> Σ-4 ↓ →0x22f7e ←0x22f7a
<POP 0x22f42 LimitCheck 0x0 ≤ D6 ≤ 0x1fff> {[-4-]}
<MI 22f4c MOVE.L D6,D0> {[-4-]}
<MI 22f4e ASL.L #0x1,D0> {[-4-]}
<MI 22f50 LEA.L 0x25728,A0> {[-4-]}
<Blob 0x22f56 [4] 0x25748> Δ-4 {[-4-]|[«4»]}
<MI 22f58 ADD.L D6,(A7)> {[-8-]}
<MI 22f5a MOVE.W (A0+D0.L+#0x2a),-(A7)> Δ-2 {[-8-]|[2, '(A0+D0.L+#0x2a)']}
<Call 0x22f5e 0x225ba> {[-8-]|[2, '(A0+D0.L+#0x2a)']}
<POP 22f62-22f64 StackAdj> Δ+6 {[-4-]}
<MI 22f64 ADDQ.L #0x1,D7> {[-4-]}
<POP 22f66-22f68 StackAdj> Δ-2 {[-6-]}
<Blob 0x22f68 [4] 0x25748> Δ-4 {[-6-]|[«4»]}
<MI 22f6a ADD.L D6,(A7)> {[-10-]}
<Call 0x22f6c 0x2257a> {[-10-]}
<POP 22f70-22f72 StackAdj> Δ+4 {[-6-]}
<MI 22f72 MOVE.W (A7)+,D1> Δ+2 {[-4-]}
<MI 22f74 CMP.W (A0+D0.L+#0x2a),D1> {[-4-]}
<MI 22f78 BEQ 0x22f7e> {[-4-]}
<POP 22f7a-22f7e Naked> Σ-4 ↓ →0x22f42
<MI 22f7a CMP.L #0x0a,D7> {[-4-]}
<MI 22f7c BNE 0x22f42> {[-4-]}
<POP 22f7e-22f94 Naked> Σ-4 ↓ →0x23096 ←0x22f42
<POP 22f7e-22f80 StackAdj> Δ-2 {[-6-]}
<Blob 0x22f80 [4] 0x25748> Δ-4 {[-6-]|[«4»]}
<MI 22f82 ADD.L D6,(A7)> {[-10-]}
<Call 0x22f84 0x2257a> {[-10-]}
<POP 22f88-22f8a StackAdj> Δ+4 {[-6-]}
<MI 22f8a MOVE.W (A7)+,D1> Δ+2 {[-4-]}
<MI 22f8c CMP.W (A0+D0.L+#0x2a),D1> {[-4-]}
<MI 22f90 BEQ 0x23096> {[-4-]}
<POP 22f94-23096 Naked> Σ-4 ↓
<Blob 0x22f94 [38] @> Δ-38 {[-4-]|[«38""»]}
<Blob 0x22fa0 [10] @> Δ-10 {[-4-]|[«38""»]|[«10""»]}
<Blob 0x22fac [14] @> Δ-14 {[-4-]|[«38""»]|[«10""»]|[«14""»]}
<POP 22fb8-22fba StackAdj> Δ-8 {[-4-]|[«38""»]|[«10""»]|[«14""»]|[-8-]}
<Lit 0x22fba 38> {[-4-]|[«38""»]|[«10""»]|[«14""»]|[-4-]|[$$*** Programming Failure: address = 16#]}
<POP 22fc6-22fc7 StackAdj> Δ-4 {[-4-]|[«38""»]|[«10""»]|[«14""»]|[-4-]|[$$*** Programming Failure: address = 16#]|[-4-]}
<Blob 0x22fc7 [4] 0x25748> Δ-4 {[-4-]|[«38""»]|[«10""»]|[«14""»]|[-4-]|[$$*** Programming Failure: address = 16#]|[-4-]|[«4»]}
<MI 22fc8 ADD.L D6,(A7)> {[-4-]|[«38""»]|[«10""»]|[«14""»]|[-4-]|[$$*** Programming Failure: address = 16#]|[-8-]}
<Const 0x22fca 0x8.4> Δ-4 {[-4-]|[«38""»]|[«10""»]|[«14""»]|[-4-]|[$$*** Programming Failure: address = 16#]|[-8-]|[##8]}
<Call 0x22fce 0x102e8> {[-4-]|[«38""»]|[«10""»]|[«14""»]|[-4-]|[$$*** Programming Failure: address = 16#]|[-8-]|[##8]}
Long2HexString(val : Long; ndig : Long) : String
<POP 22fd4-22fd6 StackAdj> Δ+4 {[-4-]|[«38""»]|[«10""»]|[«14""»]|[-4-]|[$$*** Programming Failure: address = 16#]|[-8-]}
<Lit 0x22fd6 10> {[-4-]|[«38""»]|[«10""»]|[«14""»]|[-4-]|[$$*** Programming Failure: address = 16#]|[-4-]|[$$ wrote 16#]}
<POP 22fe0-22fe2 StackAdj> Δ-4 {[-4-]|[«38""»]|[«10""»]|[«14""»]|[-4-]|[$$*** Programming Failure: address = 16#]|[-4-]|[$$ wrote 16#]|[-4-]}
<MI 22fe2 MOVE.W (A0+D0.L+#0x2a),D1> {[-4-]|[«38""»]|[«10""»]|[«14""»]|[-4-]|[$$*** Programming Failure: address = 16#]|[-4-]|[$$ wrote 16#]|[-4-]}
<MI 22fe6 EXTW.L D1> {[-4-]|[«38""»]|[«10""»]|[«14""»]|[-4-]|[$$*** Programming Failure: address = 16#]|[-4-]|[$$ wrote 16#]|[-4-]}
<MI 22fe8 MOVE.L D1,-(A7)> Δ-4 {[-4-]|[«38""»]|[«10""»]|[«14""»]|[-4-]|[$$*** Programming Failure: address = 16#]|[-4-]|[$$ wrote 16#]|[-4-]|[4, 'D1']}
<Const 0x22fea 0x2.4> Δ-4 {[-4-]|[«38""»]|[«10""»]|[«14""»]|[-4-]|[$$*** Programming Failure: address = 16#]|[-4-]|[$$ wrote 16#]|[-4-]|[4, 'D1']|[##2]}
<Call 0x22fee 0x102e8> {[-4-]|[«38""»]|[«10""»]|[«14""»]|[-4-]|[$$*** Programming Failure: address = 16#]|[-4-]|[$$ wrote 16#]|[-4-]|[4, 'D1']|[##2]}
Long2HexString(val : Long; ndig : Long) : String
<POP 22ff4-22ff6 StackAdj> Δ+4 {[-4-]|[«38""»]|[«10""»]|[«14""»]|[-4-]|[$$*** Programming Failure: address = 16#]|[-4-]|[$$ wrote 16#]|[-4-]|[4, 'D1']}
<Lit 0x22ff6 14> {[-4-]|[«38""»]|[«10""»]|[«14""»]|[-4-]|[$$*** Programming Failure: address = 16#]|[-4-]|[$$ wrote 16#]|[-4-]|[$$ read back 16#]}
<POP 23002-23004 StackAdj> Δ-10 {[-4-]|[«38""»]|[«10""»]|[«14""»]|[-4-]|[$$*** Programming Failure: address = 16#]|[-4-]|[$$ wrote 16#]|[-4-]|[$$ read back 16#]|[-10-]}
<Blob 0x23004 [4] 0x25748> Δ-4 {[-4-]|[«38""»]|[«10""»]|[«14""»]|[-4-]|[$$*** Programming Failure: address = 16#]|[-4-]|[$$ wrote 16#]|[-4-]|[$$ read back 16#]|[-10-]|[«4»]}
<MI 23006 ADD.L D6,(A7)> {[-4-]|[«38""»]|[«10""»]|[«14""»]|[-4-]|[$$*** Programming Failure: address = 16#]|[-4-]|[$$ wrote 16#]|[-4-]|[$$ read back 16#]|[-14-]}
<Call 0x23008 0x2257a> {[-4-]|[«38""»]|[«10""»]|[«14""»]|[-4-]|[$$*** Programming Failure: address = 16#]|[-4-]|[$$ wrote 16#]|[-4-]|[$$ read back 16#]|[-14-]}
<POP 2300c-2300e StackAdj> Δ+4 {[-4-]|[«38""»]|[«10""»]|[«14""»]|[-4-]|[$$*** Programming Failure: address = 16#]|[-4-]|[$$ wrote 16#]|[-4-]|[$$ read back 16#]|[-10-]}
<MI 2300e MOVE.W (A7)+,D0> Δ+2 {[-4-]|[«38""»]|[«10""»]|[«14""»]|[-4-]|[$$*** Programming Failure: address = 16#]|[-4-]|[$$ wrote 16#]|[-4-]|[$$ read back 16#]|[-8-]}
<MI 23010 EXTW.L D0> {[-4-]|[«38""»]|[«10""»]|[«14""»]|[-4-]|[$$*** Programming Failure: address = 16#]|[-4-]|[$$ wrote 16#]|[-4-]|[$$ read back 16#]|[-8-]}
<MI 23012 MOVE.L D0,(A7)> {[-4-]|[«38""»]|[«10""»]|[«14""»]|[-4-]|[$$*** Programming Failure: address = 16#]|[-4-]|[$$ wrote 16#]|[-4-]|[$$ read back 16#]|[-4-]|[4, 'D0']}
<Const 0x23014 0x2.4> Δ-4 {[-4-]|[«38""»]|[«10""»]|[«14""»]|[-4-]|[$$*** Programming Failure: address = 16#]|[-4-]|[$$ wrote 16#]|[-4-]|[$$ read back 16#]|[-4-]|[4, 'D0']|[##2]}
<Call 0x23018 0x102e8> {[-4-]|[«38""»]|[«10""»]|[«14""»]|[-4-]|[$$*** Programming Failure: address = 16#]|[-4-]|[$$ wrote 16#]|[-4-]|[$$ read back 16#]|[-4-]|[4, 'D0']|[##2]}
Long2HexString(val : Long; ndig : Long) : String
<POP 2301e-23020 StackAdj> Δ+8 {[-4-]|[«38""»]|[«10""»]|[«14""»]|[-4-]|[$$*** Programming Failure: address = 16#]|[-4-]|[$$ wrote 16#]|[-4-]|[$$ read back 16#]|[-4-]}
<Call 0x23020 0x102e0> {[-4-]|[«38""»]|[«10""»]|[«14""»]|[-4-]|[$$*** Programming Failure: address = 16#]|[-4-]|[$$ wrote 16#]|[-4-]|[$$ read back 16#]|[-4-]}
StringCat6(a, b, c, d, e, f : String) : String
<POP 23026-2302a StackAdj> Δ+24 {[-4-]|[«38""»]|[«10""»]|[«14""»]|[-4-]}
<Call 0x2302a 0x103e0> {[-4-]|[«38""»]|[«10""»]|[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 2302c-2302e StackAdj> Δ+66 {[-4-]}
<Blob 0x2302e [48] @> Δ-48 {[-4-]|[«48""»]}
<POP 2303a-2303c StackAdj> Δ-4 {[-4-]|[«48""»]|[-4-]}
<Lit 0x2303c 48> {[-4-]|[«48""»]|[$$EEPROM failed to program even after many retries]}
<Call 0x2304a 0x103e0> {[-4-]|[«48""»]|[$$EEPROM failed to program even after many retries]}
WriteConsoleStringCrLf(str : String)
<POP 2304c-23050 StackAdj> Δ+52 {[-4-]}
<Blob 0x23050 [66] @> Δ-66 {[-4-]|[«66""»]}
<POP 2305c-2305e StackAdj> Δ-4 {[-4-]|[«66""»]|[-4-]}
<Lit 0x2305e 66> {[-4-]|[«66""»]|[$$The system may not boot properly unless you replace the IOC EEPROM]}
<Call 0x2306a 0x103e0> {[-4-]|[«66""»]|[$$The system may not boot properly unless you replace the IOC EEPROM]}
WriteConsoleStringCrLf(str : String)
<POP 2306c-2306d StackAdj> Δ+70 ↓ {[-4-]}
<Blob 0x2306d [26] @> Δ-26 {[-4-]|[«26""»]}
<POP 2307e-23080 StackAdj> Δ-4 {[-4-]|[«26""»]|[-4-]}
<Lit 0x23080 25> {[-4-]|[«26""»]|[$$the error above was fatal]}
<Call 0x2308e 0x21308> {[-4-]|[«26""»]|[$$the error above was fatal]}
<POP 23092-23096 StackAdj> Δ+30 {[-4-]}
<POP 23096-2309c Naked> Σ-4 ↓ →0x22f02 ←0x22f08 ←0x22f32 ←0x22f7e
<MI 23096 ADDQ.L #0x1,D6> {[-4-]}
<MI 23098 BVC 0x22f02> {[-4-]}
<POP 2309c-230a6 Naked> Σ-4 Δ+4 ↓ →0x230d0 ←0x22f02
<POP 2309c-2309e StackAdj> Δ+4 {}
<MI 2309e TST.B 0x25736> {}
<MI 230a4 BEQ 0x230d0> {}
<POP 230a6-230d0 Naked> Σ0 →0x230f8
<Blob 0x230a6 [28] @> Δ-28 {[«28""»]}
<POP 230b8-230ba StackAdj> Δ-4 {[«28""»]|[-4-]}
<Lit 0x230ba 27> {[«28""»]|[$$EEPROM successfully updated]}
<Call 0x230c8 0x103e0> {[«28""»]|[$$EEPROM successfully updated]}
WriteConsoleStringCrLf(str : String)
<POP 230ca-230ce StackAdj> Δ+32 {}
<MI 230ce BRA 0x230f8> {}
<POP 230d0-230f8 Naked> Σ0 ↓ ←0x2309c
<Blob 0x230d0 [42] @> Δ-42 {[«42""»]}
<POP 230e2-230e4 StackAdj> Δ-4 {[«42""»]|[-4-]}
<Lit 0x230e4 41> {[«42""»]|[$$EEPROM matched file, update wasn't needed]}
<Call 0x230f2 0x103e0> {[«42""»]|[$$EEPROM matched file, update wasn't needed]}
WriteConsoleStringCrLf(str : String)
<POP 230f4-230f8 StackAdj> Δ+46 {}
<POP 230f8-23100 Epilogue> Σ0 ←0x230a6
@ 23100
<LVAR -0x004 1(rw)>
<LVAR -0x008 4(rw)>
<LVAR -0x00c @ 4(r)>
<LVAR -0x010 4(rw)>
<LVAR -0x014 4(rw)>
<LVAR -0x02a 2(rw)>
<LVAR -0x030 2(rw)>
<POP 23100-23690 Body>
<POP 23100-23116 Prologue> Σ0 ↓
<POP 23116-2312a RegCacheLoad> Σ0 ↓
<POP 2312a-23136 Naked> Σ0 ↓ →0x23164
<POP 2312a-2312c StackAdj> Δ-4 {[-4-]}
<Call 0x2312c 0x2542c> {[-4-]}
<MI 23132 MOVE.L (A7)+,D6> Δ+4 {}
<MI 23134 BEQ 0x23164> {}
<POP 23136-23138 Naked> Σ0 ↓
<MI 23136 MOVEQ.L #0x00,D7> {}
<POP 23138-23162 Naked> Σ0 ↓ →0x23138 ←0x23138
<POP 0x23138 LimitCheck 0x0 ≤ D7 ≤ 0x7> {}
<MI 2313e MOVE.L D7,D0> {}
<MI 23140 ASL.L #0x1,D0> {}
<POP 23142-23144 StackAdj> Δ-2 {[-2-]}
<MI 23144 MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<MI 23146 ADD.L D7,(A7)> {[-6-]}
<Call 0x23148 0x2257a> {[-6-]}
<POP 2314c-2314e StackAdj> Δ+4 {[-2-]}
<MI 2314e MOVE.W (A7)+,D1> Δ+2 {}
<POP 0x23150 LimitCheck 0x0 ≤ D1 ≤ 0xff> {}
<MI 23154 MOVE.W D1,(A6+D0.L-#0x48)> {}
<MI 23158 ADDQ.L #0x1,D7> {}
<MI 2315a CMPI.L #0x00000005,D7> {}
<MI 23160 BLE 0x23138> {}
<POP 23162-23164 Naked> Σ0 →0x2317e
<MI 23162 BRA 0x2317e> {}
<POP 23164-23166 Naked> Σ0 ↓ ←0x2312a
<MI 23164 MOVEQ.L #0x00,D7> {}
<POP 23166-2317e Naked> Σ0 ↓ →0x23166 ←0x23166
<POP 0x23166 LimitCheck 0x0 ≤ D7 ≤ 0x7> {}
<MI 2316c MOVE.L D7,D0> {}
<MI 2316e ASL.L #0x1,D0> {}
<MI 23170 CLR.W (A6+D0.L-#0x48)> {}
<MI 23174 ADDQ.L #0x1,D7> {}
<MI 23176 CMPI.L #0x00000005,D7> {}
<MI 2317c BLE 0x23166> {}
<POP 2317e-2318a Naked> Σ0 ↓ →0x231b4 ←0x23162
<POP 2317e-23180 StackAdj> Δ-4 {[-4-]}
<Call 0x23180 0x25456> {[-4-]}
<MI 23186 MOVE.L (A7)+,D6> Δ+4 {}
<MI 23188 BEQ 0x231b4> {}
<POP 2318a-2318c Naked> Σ0 ↓
<MI 2318a MOVEQ.L #0x00,D7> {}
<POP 2318c-231b2 Naked> Σ0 ↓ →0x2318c ←0x2318c
<POP 0x2318c LimitCheck 0x0 ≤ D7 ≤ 0x7> {}
<MI 23192 MOVE.L D7,D0> {}
<MI 23194 ASL.L #0x1,D0> {}
<POP 23196-23198 StackAdj> Δ-2 {[-2-]}
<MI 23198 MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<MI 2319a ADD.L D7,(A7)> {[-6-]}
<Call 0x2319c 0x2257a> {[-6-]}
<POP 231a0-231a2 StackAdj> Δ+4 {[-2-]}
<MI 231a2 MOVE.W (A7)+,D1> Δ+2 {}
<POP 0x231a4 LimitCheck 0x0 ≤ D1 ≤ 0xff> {}
<MI 231a8 MOVE.W D1,(A6+D0.L-#0x38)> {}
<MI 231ac ADDQ.L #0x1,D7> {}
<MI 231ae CMP.L #0x07,D7> {}
<MI 231b0 BLE 0x2318c> {}
<POP 231b2-231b4 Naked> Σ0 →0x231ca
<MI 231b2 BRA 0x231ca> {}
<POP 231b4-231b6 Naked> Σ0 ↓ ←0x2317e
<MI 231b4 MOVEQ.L #0x00,D7> {}
<POP 231b6-231ca Naked> Σ0 ↓ →0x231b6 ←0x231b6
<POP 0x231b6 LimitCheck 0x0 ≤ D7 ≤ 0x7> {}
<MI 231bc MOVE.L D7,D0> {}
<MI 231be ASL.L #0x1,D0> {}
<MI 231c0 CLR.W (A6+D0.L-#0x38)> {}
<MI 231c4 ADDQ.L #0x1,D7> {}
<MI 231c6 CMP.L #0x07,D7> {}
<MI 231c8 BLE 0x231b6> {}
<POP 231ca-231d6 Naked> Σ0 ↓ →0x23200 ←0x231b2
<POP 231ca-231cc StackAdj> Δ-4 {[-4-]}
<Call 0x231cc 0x25480> {[-4-]}
<MI 231d2 MOVE.L (A7)+,D6> Δ+4 {}
<MI 231d4 BEQ 0x23200> {}
<POP 231d6-231d8 Naked> Σ0 ↓
<MI 231d6 MOVEQ.L #0x00,D7> {}
<POP 231d8-231fe Naked> Σ0 ↓ →0x231d8 ←0x231d8
<POP 0x231d8 LimitCheck 0x0 ≤ D7 ≤ 0x7> {}
<MI 231de MOVE.L D7,D0> {}
<MI 231e0 ASL.L #0x1,D0> {}
<POP 231e2-231e4 StackAdj> Δ-2 {[-2-]}
<MI 231e4 MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<MI 231e6 ADD.L D7,(A7)> {[-6-]}
<Call 0x231e8 0x2257a> {[-6-]}
<POP 231ec-231ee StackAdj> Δ+4 {[-2-]}
<MI 231ee MOVE.W (A7)+,D1> Δ+2 {}
<POP 0x231f0 LimitCheck 0x0 ≤ D1 ≤ 0xff> {}
<MI 231f4 MOVE.W D1,(A6+D0.L-#0x28)> {}
<MI 231f8 ADDQ.L #0x1,D7> {}
<MI 231fa CMP.L #0x07,D7> {}
<MI 231fc BLE 0x231d8> {}
<POP 231fe-23200 Naked> Σ0 →0x23216
<MI 231fe BRA 0x23216> {}
<POP 23200-23202 Naked> Σ0 ↓ ←0x231ca
<MI 23200 MOVEQ.L #0x00,D7> {}
<POP 23202-23216 Naked> Σ0 ↓ →0x23202 ←0x23202
<POP 0x23202 LimitCheck 0x0 ≤ D7 ≤ 0x7> {}
<MI 23208 MOVE.L D7,D0> {}
<MI 2320a ASL.L #0x1,D0> {}
<MI 2320c CLR.W (A6+D0.L-#0x28)> {}
<MI 23210 ADDQ.L #0x1,D7> {}
<MI 23212 CMP.L #0x07,D7> {}
<MI 23214 BLE 0x23202> {}
<POP 23216-2321a Naked> Σ0 Δ-4 ↓ ←0x231fe
<Blob 0x23216 [4] 0x2574c> Δ-4 {[«4»]}
<MI 23218 MOVEQ.L #0x00,D7> {[«4»]}
<POP 2321a-2321e Naked> Σ-4 ↓ →0x23244 ←0x2321e
<MI 2321a CMP.L (A7),D7> {[-4-]}
<MI 2321c BGT 0x23244> {[-4-]}
<POP 2321e-23244 Naked> Σ-4 ↓ →0x2321a
<Blob 0x2321e [4] 0x25748> Δ-4 {[-4-]|[«4»]}
<MI 23220 ADD.L D7,(A7)> {[-8-]}
<POP 0x23222 LimitCheck 0x0 ≤ D7 ≤ 0x1fff> {[-8-]}
<MI 2322c MOVE.L D7,D0> {[-8-]}
<MI 2322e ASL.L #0x1,D0> {[-8-]}
<MI 23230 LEA.L 0x25728,A0> {[-8-]}
<MI 23236 MOVE.W (A0+D0.L+#0x2a),-(A7)> Δ-2 {[-8-]|[2, '(A0+D0.L+#0x2a)']}
<Call 0x2323a 0x2261e> {[-8-]|[2, '(A0+D0.L+#0x2a)']}
<POP 2323e-23240 StackAdj> Δ+6 {[-4-]}
<MI 23240 ADDQ.L #0x1,D7> {[-4-]}
<MI 23242 BVC 0x2321a> {[-4-]}
<POP 23244-23250 Naked> Σ-4 Δ+4 ↓ →0x23282 ←0x2321a
<Call 0x23244 0x2542c> {[-4-]}
<MI 2324a MOVE.L (A7)+,D6> Δ+4 {}
<MI 2324c CMP.L 0x25748,D6> {}
<MI 2324e BCS 0x23282> {}
<POP 23250-23258 Naked> Σ0 ↓ →0x23282
<MI 23250 MOVE.L 0x25748,D0> {}
<MI 23252 ADD.L 0x2574c,D0> {}
<MI 23254 CMP.L D0,D6> {}
<MI 23256 BHI 0x23282> {}
<POP 23258-2325a Naked> Σ0 ↓
<MI 23258 MOVEQ.L #0x00,D7> {}
<POP 2325a-23282 Naked> Σ0 ↓ →0x2325a ←0x2325a
<MI 2325a MOVE.L D6,-(A7)> Δ-4 {[4, 'D6']}
<MI 2325c ADD.L D7,(A7)> {[-4-]}
<POP 0x2325e LimitCheck 0x0 ≤ D7 ≤ 0x7> {[-4-]}
<MI 23264 MOVE.L D7,D0> {[-4-]}
<MI 23266 ASL.L #0x1,D0> {[-4-]}
<MI 23268 MOVE.W (A6+D0.L-#0x48),D0> {[-4-]}
<POP 0x2326c LimitCheck 0x0 ≤ D0 ≤ 0xff> {[-4-]}
<MI 23270 MOVE.W D0,-(A7)> Δ-2 {[-4-]|[2, 'D0']}
<Call 0x23272 0x2261e> {[-4-]|[2, 'D0']}
<POP 23276-23278 StackAdj> Δ+6 {}
<MI 23278 ADDQ.L #0x1,D7> {}
<MI 2327a CMPI.L #0x00000005,D7> {}
<MI 23280 BLE 0x2325a> {}
<POP 23282-23290 Naked> Σ0 ↓ →0x232be ←0x23244 ←0x23250
<POP 23282-23284 StackAdj> Δ-4 {[-4-]}
<Call 0x23284 0x25480> {[-4-]}
<MI 2328a MOVE.L (A7)+,D6> Δ+4 {}
<MI 2328c CMP.L 0x25748,D6> {}
<MI 2328e BCS 0x232be> {}
<POP 23290-23298 Naked> Σ0 ↓ →0x232be
<MI 23290 MOVE.L 0x25748,D0> {}
<MI 23292 ADD.L 0x2574c,D0> {}
<MI 23294 CMP.L D0,D6> {}
<MI 23296 BHI 0x232be> {}
<POP 23298-2329a Naked> Σ0 ↓
<MI 23298 MOVEQ.L #0x00,D7> {}
<POP 2329a-232be Naked> Σ0 ↓ →0x2329a ←0x2329a
<MI 2329a MOVE.L D6,-(A7)> Δ-4 {[4, 'D6']}
<MI 2329c ADD.L D7,(A7)> {[-4-]}
<POP 0x2329e LimitCheck 0x0 ≤ D7 ≤ 0x7> {[-4-]}
<MI 232a4 MOVE.L D7,D0> {[-4-]}
<MI 232a6 ASL.L #0x1,D0> {[-4-]}
<MI 232a8 MOVE.W (A6+D0.L-#0x28),D0> {[-4-]}
<POP 0x232ac LimitCheck 0x0 ≤ D0 ≤ 0xff> {[-4-]}
<MI 232b0 MOVE.W D0,-(A7)> Δ-2 {[-4-]|[2, 'D0']}
<Call 0x232b2 0x2261e> {[-4-]|[2, 'D0']}
<POP 232b6-232b8 StackAdj> Δ+6 {}
<MI 232b8 ADDQ.L #0x1,D7> {}
<MI 232ba CMP.L #0x07,D7> {}
<MI 232bc BLE 0x2329a> {}
<POP 232be-232cc Naked> Σ0 ↓ →0x23326 ←0x23282 ←0x23290
<POP 232be-232c0 StackAdj> Δ-4 {[-4-]}
<Call 0x232c0 0x25456> {[-4-]}
<MI 232c6 MOVE.L (A7)+,D6> Δ+4 {}
<MI 232c8 CMP.L 0x25748,D6> {}
<MI 232ca BCS 0x23326> {}
<POP 232cc-232d4 Naked> Σ0 ↓ →0x23326
<MI 232cc MOVE.L 0x25748,D0> {}
<MI 232ce ADD.L 0x2574c,D0> {}
<MI 232d0 CMP.L D0,D6> {}
<MI 232d2 BHI 0x23326> {}
<POP 232d4-232dc Naked> Σ0 ↓ →0x23300
<MI 232d4 TST.W 0x29762> {}
<MI 232da BLE 0x23300> {}
<POP 232dc-23300 Naked> Σ0 ↓
<MI 232dc MOVE.W (A6-0x2a),D0> {}
<MI 232e0 ADD.W (A6-0x30),D0> {}
<MI 232e4 SUB.W 0x29762,D0> {}
<MI 232ea ANDI.W #0x00ff,D0> {}
<MI 232ee MOVE.W D0,(A6-0x2a)> {}
<MI 232f2 MOVE.W 0x29762,D0> {}
<POP 0x232f8 LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 232fc MOVE.W D0,(A6-0x30)> {}
<POP 23300-23302 Naked> Σ0 ↓ ←0x232d4
<MI 23300 MOVEQ.L #0x00,D7> {}
<POP 23302-23326 Naked> Σ0 ↓ →0x23302 ←0x23302
<MI 23302 MOVE.L D6,-(A7)> Δ-4 {[4, 'D6']}
<MI 23304 ADD.L D7,(A7)> {[-4-]}
<POP 0x23306 LimitCheck 0x0 ≤ D7 ≤ 0x7> {[-4-]}
<MI 2330c MOVE.L D7,D0> {[-4-]}
<MI 2330e ASL.L #0x1,D0> {[-4-]}
<MI 23310 MOVE.W (A6+D0.L-#0x38),D0> {[-4-]}
<POP 0x23314 LimitCheck 0x0 ≤ D0 ≤ 0xff> {[-4-]}
<MI 23318 MOVE.W D0,-(A7)> Δ-2 {[-4-]|[2, 'D0']}
<Call 0x2331a 0x2261e> {[-4-]|[2, 'D0']}
<POP 2331e-23320 StackAdj> Δ+6 {}
<MI 23320 ADDQ.L #0x1,D7> {}
<MI 23322 CMP.L #0x07,D7> {}
<MI 23324 BLE 0x23302> {}
<POP 23326-2332e Naked> Σ0 Δ-4 ↓ ←0x232be ←0x232cc
<MI 23326 MOVEQ.L #0x00,D5> {}
<Blob 0x23328 [4] 0x2574c> Δ-4 {[«4»]}
<MI 2332a SUBQ.L #0x1,(A7)> {[-4-]}
<MI 2332c MOVEQ.L #0x00,D7> {[-4-]}
<POP 2332e-23332 Naked> Σ-4 ↓ →0x23358 ←0x23332
<MI 2332e CMP.L (A7),D7> {[-4-]}
<MI 23330 BGT 0x23358> {[-4-]}
<POP 23332-23358 Naked> Σ-4 ↓ →0x2332e
<POP 23332-23334 StackAdj> Δ-2 {[-6-]}
<Blob 0x23334 [4] 0x25748> Δ-4 {[-6-]|[«4»]}
<MI 23336 ADD.L D7,(A7)> {[-10-]}
<Call 0x23338 0x2257a> {[-10-]}
<POP 2333c-2333e StackAdj> Δ+4 {[-6-]}
<MI 2333e MOVE.W (A7)+,D0> Δ+2 {[-4-]}
<MI 23340 EXTW.L D0> {[-4-]}
<MI 23342 ADD.L D0,D5> {[-4-]}
<MI 23344 MOVE.L D5,D4> {[-4-]}
<MI 23346 MOVE.L #0x100,D3> {[-4-]}
<Call 0x2334c 0x10294> {[-4-]}
?divs_d3_d4
<MI 23352 MOVE.L D3,D5> {[-4-]}
<MI 23354 ADDQ.L #0x1,D7> {[-4-]}
<MI 23356 BVC 0x2332e> {[-4-]}
<POP 23358-23386 Naked> Σ-4 Δ+4 ↓ ←0x2332e
<POP 23358-2335a StackAdj> Δ+4 {}
<MI 2335a MOVE.L 0x25748,D0> {}
<MI 2335c ADD.L 0x2574c,D0> {}
<MI 2335e MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 23360 MOVE.L #0x1aa,D0> {[4, 'D0']}
<MI 23366 SUB.L D5,D0> {[4, 'D0']}
<MI 23368 MOVE.L D0,D4> {[4, 'D0']}
<MI 2336a MOVE.L #0x100,D3> {[4, 'D0']}
<Call 0x23370 0x10294> {[4, 'D0']}
?divs_d3_d4
<MI 23376 MOVE.W D3,-(A7)> Δ-2 {[4, 'D0']|[2, 'D3']}
<Call 0x23378 0x2261e> {[4, 'D0']|[2, 'D3']}
<POP 2337c-2337e StackAdj> Δ+6 {}
<MI 2337e CLR.L (A6-0x14)> {}
<MI 23382 CLR.L (A6-0x10)> {}
<POP 23386-23396 Naked> Σ0 ↓ →0x2339a ←0x235a0
<MI 23386 CLR.B (A6-0x4)> {}
<MI 2338a MOVE.L (A6-0x14),D0> {}
<MI 2338e CMPI.L #0x00000009,D0> {}
<MI 23394 BLE 0x2339a> {}
<POP 23396-2339a Naked> Σ0 ↓
<MI 23396 ADDQ.B #0x1,(A6-0x4)> {}
<POP 2339a-233ba Naked> Σ0 ↓ →0x23402 ←0x23386
<MI 2339a MOVE.W 0x25750,D0> {}
<MI 233a0 SUBI.W #0x0050,D0> {}
<MI 233a4 EXTW.L D0> {}
<MI 233a6 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<Pointer.fp 0x233a8 <LVAR -0x00c @ 4(r)>> Δ-4 {[4, 'D0']|[@@-12]}
<Call 0x233ac 0x254d2> {[4, 'D0']|[@@-12]}
<POP 233b2-233b4 StackAdj> Δ+8 {}
<MI 233b4 TST.L (A6-0xc)> {}
<MI 233b8 BEQ 0x23402> {}
<POP 233ba-233c0 Naked> Σ0 ↓ →0x23402
<MI 233ba TST.B (A6-0x4)> {}
<MI 233be BEQ 0x23402> {}
<POP 233c0-23402 Naked> Σ0 ↓
<Blob 0x233c0 [26] @> Δ-26 {[«26""»]}
<POP 233d2-233d4 StackAdj> Δ-8 {[«26""»]|[-8-]}
<Lit 0x233d4 25> {[«26""»]|[-4-]|[$$Warning from REE_UPLOAD:_]}
<MI 233e2 MOVE.L (A6-0xc),(A7)> {[«26""»]|[-4-]|[4, '(A6-0xc)']}
<POP 233e0-233e2 StackAdj> Δ-8 {[«26""»]|[-4-]|[4, '(A6-0xc)']|[-8-]}
<Call 0x233e6 0x2118e> {[«26""»]|[-4-]|[4, '(A6-0xc)']|[-8-]}
<POP 233ea-233ec StackAdj> Δ+4 {[«26""»]|[-4-]|[4, '(A6-0xc)']|[-4-]}
<Call 0x233ec 0x102d0> {[«26""»]|[-4-]|[4, '(A6-0xc)']|[-4-]}
StringCat2(a, b : String) : String
<POP 233f2-233f4 StackAdj> Δ+8 {[«26""»]|[-4-]}
<Call 0x233f4 0x103e0> {[«26""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 233fa-233fe StackAdj> Δ+30 {}
<MI 233fe ADDQ.L #0x1,(A6-0x10)> {}
<POP 23402-23404 Naked> Σ0 ↓ ←0x2339a ←0x233ba
<MI 23402 MOVEQ.L #0x00,D7> {}
<POP 23404-23438 Naked> Σ0 ↓ →0x23404 ←0x23404
<POP 0x23404 LimitCheck 0x0 ≤ D7 ≤ 0x1fff> {}
<MI 2340e MOVE.L D7,D0> {}
<MI 23410 ASL.L #0x1,D0> {}
<MI 23412 LEA.L 0x25728,A0> {}
<POP 23418-2341a StackAdj> Δ-2 {[-2-]}
<Blob 0x2341a [4] 0x25748> Δ-4 {[-2-]|[«4»]}
<MI 2341c ADD.L D7,(A7)> {[-6-]}
<Call 0x2341e 0x2257a> {[-6-]}
<POP 23422-23424 StackAdj> Δ+4 {[-2-]}
<MI 23424 MOVE.W (A7)+,D1> Δ+2 {}
<POP 0x23426 LimitCheck 0x0 ≤ D1 ≤ 0xff> {}
<MI 2342a MOVE.W D1,(A0+D0.L+#0x2a)> {}
<MI 2342e ADDQ.L #0x1,D7> {}
<MI 23430 CMPI.L #0x00001fff,D7> {}
<MI 23436 BLE 0x23404> {}
<POP 23438-23458 Naked> Σ0 ↓ →0x234a0
<MI 23438 MOVE.W 0x25750,D0> {}
<MI 2343e SUBI.W #0x0050,D0> {}
<MI 23442 EXTW.L D0> {}
<MI 23444 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<Pointer.fp 0x23446 <LVAR -0x00c @ 4(r)>> Δ-4 {[4, 'D0']|[@@-12]}
<Call 0x2344a 0x254aa> {[4, 'D0']|[@@-12]}
<POP 23450-23452 StackAdj> Δ+8 {}
<MI 23452 TST.L (A6-0xc)> {}
<MI 23456 BEQ 0x234a0> {}
<POP 23458-23464 Naked> Σ0 ↓ →0x234a0
<MI 23458 MOVE.L (A6-0xc),D0> {}
<MI 2345c CMPI.L #0x00000002,D0> {}
<MI 23462 BEQ 0x234a0> {}
<POP 23464-234a0 Naked> Σ0 ↓
<Blob 0x23464 [26] @> Δ-26 {[«26""»]}
<POP 23476-23478 StackAdj> Δ-8 {[«26""»]|[-8-]}
<Lit 0x23478 25> {[«26""»]|[-4-]|[$$error from REE_DOWNLOAD:_]}
<MI 23486 MOVE.L (A6-0xc),(A7)> {[«26""»]|[-4-]|[4, '(A6-0xc)']}
<POP 23484-23486 StackAdj> Δ-8 {[«26""»]|[-4-]|[4, '(A6-0xc)']|[-8-]}
<Call 0x2348a 0x2118e> {[«26""»]|[-4-]|[4, '(A6-0xc)']|[-8-]}
<POP 2348e-23490 StackAdj> Δ+4 {[«26""»]|[-4-]|[4, '(A6-0xc)']|[-4-]}
<Call 0x23490 0x102d0> {[«26""»]|[-4-]|[4, '(A6-0xc)']|[-4-]}
StringCat2(a, b : String) : String
<POP 23496-23498 StackAdj> Δ+8 {[«26""»]|[-4-]}
<Call 0x23498 0x21308> {[«26""»]|[-4-]}
<POP 2349c-234a0 StackAdj> Δ+30 {}
<POP 234a0-234a8 Naked> Σ0 Δ-4 ↓ ←0x23438 ←0x23458
<MI 234a0 CLR.L (A6-0x8)> {}
<Blob 0x234a4 [4] 0x2574c> Δ-4 {[«4»]}
<MI 234a6 MOVEQ.L #0x00,D7> {[«4»]}
<POP 234a8-234ac Naked> Σ-4 ↓ →0x234e4 ←0x234e0
<MI 234a8 CMP.L (A7),D7> {[-4-]}
<MI 234aa BGT 0x234e4> {[-4-]}
<POP 234ac-234d4 Naked> Σ-4 ↓ →0x234e0
<POP 234ac-234ae StackAdj> Δ-2 {[-6-]}
<Blob 0x234ae [4] 0x25748> Δ-4 {[-6-]|[«4»]}
<MI 234b0 ADD.L D7,(A7)> {[-10-]}
<Call 0x234b2 0x2257a> {[-10-]}
<POP 234b6-234b8 StackAdj> Δ+4 {[-6-]}
<POP 0x234b8 LimitCheck 0x0 ≤ D7 ≤ 0x1fff> {[-6-]}
<MI 234c2 MOVE.L D7,D0> {[-6-]}
<MI 234c4 ASL.L #0x1,D0> {[-6-]}
<MI 234c6 LEA.L 0x25728,A0> {[-6-]}
<MI 234cc MOVE.W (A7)+,D1> Δ+2 {[-4-]}
<MI 234ce CMP.W (A0+D0.L+#0x2a),D1> {[-4-]}
<MI 234d2 BEQ 0x234e0> {[-4-]}
<POP 234d4-234dc Naked> Σ-4 ↓ →0x234e0
<MI 234d4 MOVE.L 0x2574c,D0> {[-4-]}
<MI 234d6 SUBQ.L #0x5,D0> {[-4-]}
<MI 234d8 CMP.L D0,D7> {[-4-]}
<MI 234da BEQ 0x234e0> {[-4-]}
<POP 234dc-234e0 Naked> Σ-4 ↓
<MI 234dc ADDQ.L #0x1,(A6-0x8)> {[-4-]}
<POP 234e0-234e4 Naked> Σ-4 ↓ →0x234a8 ←0x234ac ←0x234d4
<MI 234e0 ADDQ.L #0x1,D7> {[-4-]}
<MI 234e2 BVC 0x234a8> {[-4-]}
<POP 234e4-234ee Naked> Σ-4 Δ+4 ↓ →0x23624 ←0x234a8
<POP 234e4-234e6 StackAdj> Δ+4 {}
<MI 234e6 TST.L (A6-0x8)> {}
<MI 234ea BLE 0x23624> {}
<POP 234ee-234f0 Naked> Σ0 ↓
<MI 234ee MOVEQ.L #0x00,D7> {}
<POP 234f0-2351c Naked> Σ0 ↓ →0x234f0 ←0x234f0
<Blob 0x234f0 [4] 0x25748> Δ-4 {[«4»]}
<MI 234f2 ADD.L D7,(A7)> {[-4-]}
<POP 0x234f4 LimitCheck 0x0 ≤ D7 ≤ 0x1fff> {[-4-]}
<MI 234fe MOVE.L D7,D0> {[-4-]}
<MI 23500 ASL.L #0x1,D0> {[-4-]}
<MI 23502 LEA.L 0x25728,A0> {[-4-]}
<MI 23508 MOVE.W (A0+D0.L+#0x2a),-(A7)> Δ-2 {[-4-]|[2, '(A0+D0.L+#0x2a)']}
<Call 0x2350c 0x2261e> {[-4-]|[2, '(A0+D0.L+#0x2a)']}
<POP 23510-23512 StackAdj> Δ+6 {}
<MI 23512 ADDQ.L #0x1,D7> {}
<MI 23514 CMPI.L #0x00001fff,D7> {}
<MI 2351a BLE 0x234f0> {}
<POP 2351c-23522 Naked> Σ0 ↓ →0x23584
<MI 2351c TST.B (A6-0x4)> {}
<MI 23520 BEQ 0x23584> {}
<POP 23522-23584 Naked> Σ0 →0x23590
<Blob 0x23522 [10] @> Δ-10 {[«10""»]}
<Blob 0x23534 [42] @> Δ-42 {[«10""»]|[«42""»]}
<POP 23540-23542 StackAdj> Δ-8 {[«10""»]|[«42""»]|[-8-]}
<Lit 0x23542 9> {[«10""»]|[«42""»]|[-4-]|[$$Warning:_]}
<MI 23550 MOVE.L (A6-0x8),(A7)> {[«10""»]|[«42""»]|[-4-]|[4, '(A6-0x8)']}
<POP 2354e-23550 StackAdj> Δ-8 {[«10""»]|[«42""»]|[-4-]|[4, '(A6-0x8)']|[-8-]}
<Call 0x23554 0x102e4> {[«10""»]|[«42""»]|[-4-]|[4, '(A6-0x8)']|[-8-]}
Long2String(a : Long) : String
<Lit 0x2355a 42> {[«10""»]|[«42""»]|[-4-]|[4, '(A6-0x8)']|[-4-]|[$$ bytes were incorrectly written - retrying]}
<Call 0x2356a 0x102d4> {[«10""»]|[«42""»]|[-4-]|[4, '(A6-0x8)']|[-4-]|[$$ bytes were incorrectly written - retrying]}
StringCat3(a, b, c : String) : String
<POP 23570-23574 StackAdj> Δ+12 {[«10""»]|[«42""»]|[-4-]}
<Call 0x23574 0x103e0> {[«10""»]|[«42""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 2357a-2357e StackAdj> Δ+56 {}
<MI 2357e ADDQ.L #0x1,(A6-0x10)> {}
<MI 23582 BRA 0x23590> {}
<POP 23584-23590 Naked> Σ0 ↓ ←0x2351c
<Const 0x23584 0x2e.2> Δ-2 {[#46]}
<Call 0x23588 0x103d0> {[#46]}
WriteConsoleChar(chr : char)
<POP 2358e-23590 StackAdj> Δ+2 {}
<POP 23590-235a0 Naked> Σ0 ↓ →0x235a4 ←0x23522
<MI 23590 ADDQ.L #0x1,(A6-0x14)> {}
<MI 23594 MOVE.L (A6-0x14),D0> {}
<MI 23598 CMPI.L #0x00000014,D0> {}
<MI 2359e BGE 0x235a4> {}
<POP 235a0-235a4 Naked> Σ0 →0x23386
<MI 235a0 BRA 0x23386> {}
<POP 235a4-23624 Naked> Σ0 →0x23688 ←0x23590
<Blob 0x235a4 [48] @> Δ-48 {[«48""»]}
<POP 235b6-235b8 StackAdj> Δ-4 {[«48""»]|[-4-]}
<Lit 0x235b8 47> {[«48""»]|[$$*** ERROR: program EEPROM failed too many times]}
<Call 0x235c8 0x103e0> {[«48""»]|[$$*** ERROR: program EEPROM failed too many times]}
WriteConsoleStringCrLf(str : String)
<POP 235ce-235d2 StackAdj> Δ+52 {}
<Blob 0x235d2 [68] @> Δ-68 {[«68""»]}
<POP 235de-235e0 StackAdj> Δ-4 {[«68""»]|[-4-]}
<Lit 0x235e0 68> {[«68""»]|[$$The system may not boot properly unless you replace the RESHA EEPROM]}
<Call 0x235f0 0x103e0> {[«68""»]|[$$The system may not boot properly unless you replace the RESHA EEPROM]}
WriteConsoleStringCrLf(str : String)
<POP 235f6-235f7 StackAdj> Δ+72 ↓ {}
<Blob 0x235f7 [26] @> Δ-26 {[«26""»]}
<POP 23608-2360a StackAdj> Δ-4 {[«26""»]|[-4-]}
<Lit 0x2360a 25> {[«26""»]|[$$the error above was fatal]}
<Call 0x2361a 0x21308> {[«26""»]|[$$the error above was fatal]}
<POP 2361e-23622 StackAdj> Δ+30 {}
<MI 23622 BRA 0x23688> {}
<POP 23624-23658 Naked> Σ0 ↓ →0x23660 ←0x234e4
<Blob 0x23624 [28] @> Δ-28 {[«28""»]}
<POP 23636-23638 StackAdj> Δ-4 {[«28""»]|[-4-]}
<Lit 0x23638 27> {[«28""»]|[$$EEPROM successfully updated]}
<Call 0x23648 0x103d8> {[«28""»]|[$$EEPROM successfully updated]}
WriteConsoleString(str : String)
<POP 2364e-23652 StackAdj> Δ+32 {}
<MI 23652 TST.L (A6-0x10)> {}
<MI 23656 BNE 0x23660> {}
<POP 23658-23660 Naked> Σ0 →0x23688
<Call 0x23658 0x103dc> {}
WriteConsoleCrLf(void)
<MI 2365e BRA 0x23688> {}
<POP 23660-23688 Naked> Σ0 ↓ ←0x23624
<Blob 0x23660 [40] @> Δ-40 {[«40""»]}
<POP 2366c-2366e StackAdj> Δ-4 {[«40""»]|[-4-]}
<Lit 0x2366e 40> {[«40""»]|[$$ and verified, ignore the warnings above]}
<Call 0x2367e 0x103e0> {[«40""»]|[$$ and verified, ignore the warnings above]}
WriteConsoleStringCrLf(str : String)
<POP 23684-23688 StackAdj> Δ+44 {}
<POP 23688-23690 Epilogue> Σ0 ←0x235a4 ←0x23658
@ 23690
<LVAR 0x008 1(r)>
<POP 23690-23772 Body>
<POP 23690-236a6 Prologue> Σ0 ↓
<POP 236a6-236ae RegCacheLoad> Σ0 ↓
<POP 236ae-236ba Naked> Σ0 ↓ →0x236c8
<POP 236ae-236b0 StackAdj> Δ-2 {[-2-]}
<Call 0x236b0 0x1060a> {[-2-]}
Is_machine_type_four() : Bool
<MI 236b6 TST.B (A7)+> Δ+2 {}
<MI 236b8 BNE 0x236c8> {}
<POP 236ba-236c8 Naked> Σ0 ↓ →0x2376a
<POP 236ba-236bc StackAdj> Δ-2 {[-2-]}
<Call 0x236bc 0x10604> {[-2-]}
Is_machine_type_three() : Bool
<MI 236c2 TST.B (A7)+> Δ+2 {}
<MI 236c4 BEQ 0x2376a> {}
<POP 236c8-236ce Naked> Σ0 ↓ →0x236f6 ←0x236ae
<MI 236c8 TST.B (A6+0x8)> {}
<MI 236cc BEQ 0x236f6> {}
<POP 236ce-236f6 Naked> Σ0 →0x23722
<Blob 0x236ce [44] @> Δ-44 {[«44""»]}
<POP 236da-236dc StackAdj> Δ-4 {[«44""»]|[-4-]}
<Lit 0x236dc 44> {[«44""»]|[$$turn the EEPROM WRITE PROTECT switch ON (up)]}
<Call 0x236ea 0x103d8> {[«44""»]|[$$turn the EEPROM WRITE PROTECT switch ON (up)]}
WriteConsoleString(str : String)
<POP 236f0-236f4 StackAdj> Δ+48 {}
<MI 236f4 BRA 0x23722> {}
<POP 236f6-23722 Naked> Σ0 ↓ ←0x236c8
<Blob 0x236f6 [74] @> Δ-74 {[«74""»]}
<POP 23708-2370a StackAdj> Δ-4 {[«74""»]|[-4-]}
<Lit 0x2370a 73> {[«74""»]|[$$turn the EEPROM WRITE PROTECT switch (at front of RESHA board) OFF (down)]}
<Call 0x23718 0x103d8> {[«74""»]|[$$turn the EEPROM WRITE PROTECT switch (at front of RESHA board) OFF (down)]}
WriteConsoleString(str : String)
<POP 2371e-23722 StackAdj> Δ+78 {}
<POP 23722-23732 Naked> Σ0 ↓ →0x23734 ←0x236ce ←0x23732
<POP 23722-23724 StackAdj> Δ-2 {[-2-]}
<Call 0x23724 0x25402> {[-2-]}
<MI 2372a MOVE.B (A7)+,D0> Δ+2 {}
<MI 2372c CMP.B (A6+0x8),D0> {}
<MI 23730 BEQ 0x23734> {}
<POP 23732-23734 Naked> Σ0 →0x23722
<MI 23732 BRA 0x23722> {}
<POP 23734-2376a Naked> Σ0 ↓ ←0x23722
<Blob 0x23734 [6] @> Δ-6 {[«6""»]}
<POP 23744-23746 StackAdj> Δ-4 {[«6""»]|[-4-]}
<Lit 0x23746 5> {[«6""»]|[$$ - OK]}
<Call 0x23754 0x103e0> {[«6""»]|[$$ - OK]}
WriteConsoleStringCrLf(str : String)
<POP 2375a-2375c StackAdj> Δ+6 {[-4-]}
<POP 2375c-2375d StackAdj> Δ+4 {}
<Const 0x2375d 0x9896.4> Δ-4 {[##39062]}
<Call 0x23762 0x10224> {[##39062]}
KC12_Sleep(dur: Long)
<POP 23768-2376a StackAdj> Δ+4 {}
<POP 2376a-23772 Epilogue> Σ0 ←0x236ba
@ 23772
<LVAR -0x008 @ 4(r)>
<POP 23772-2382e Body>
<POP 23772-23788 Prologue> Σ0 ↓
<POP 23788-2378c RegCacheLoad> Σ0 ↓
<POP 2378c-237a6 Naked> Σ0 ↓ →0x237c4
<Call 0x2378c 0x2295c> {}
<Pointer.fp 0x23790 <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-8]}
<Call 0x23794 0x22a62> {[@@-8]}
<POP 23798-2379a StackAdj> Δ+4 {}
<MI 2379a MOVE.W 0x25750,D0> {}
<MI 237a0 CMPI.W #0x0050,D0> {}
<MI 237a4 BGE 0x237c4> {}
<POP 237a6-237c4 Naked> Σ0 →0x237c6
<MI 237a6 MOVE.L (A6-0x8),D4> {}
<MI 237aa MOVEQ.L #0x0c,D3> {}
<Call 0x237ac 0x1028c> {}
?muls_d3_d4
<MI 237b2 MOVE.L #0x3e8,D3> {}
<Call 0x237b8 0x10294> {}
?divs_d3_d4
<MI 237be ADDQ.L #0x1,D4> {}
<MI 237c0 MOVE.L D4,D7> {}
<MI 237c2 BRA 0x237c6> {}
<POP 237c4-237c6 Naked> Σ0 ↓ ←0x2378c
<MI 237c4 MOVEQ.L #0x06,D7> {}
<POP 237c6-23826 Naked> Σ0 ↓ ←0x237a6
<Blob 0x237c6 [38] @> Δ-38 {[«38""»]}
<Blob 0x237d8 [12] @> Δ-12 {[«38""»]|[«12""»]}
<POP 237e8-237ea StackAdj> Δ-8 {[«38""»]|[«12""»]|[-8-]}
<Lit 0x237ea 37> {[«38""»]|[«12""»]|[-4-]|[$$Updating this EEPROM will take about_]}
<MI 237fa MOVE.L D7,(A7)> {[«38""»]|[«12""»]|[-4-]|[4, 'D7']}
<POP 237f4-237fa StackAdj> Δ-8 {[«38""»]|[«12""»]|[-4-]|[4, 'D7']|[-8-]}
<Call 0x237fc 0x102e4> {[«38""»]|[«12""»]|[-4-]|[4, 'D7']|[-8-]}
Long2String(a : Long) : String
<Lit 0x23802 11> {[«38""»]|[«12""»]|[-4-]|[4, 'D7']|[-4-]|[$$ seconds...]}
<Call 0x23814 0x102d4> {[«38""»]|[«12""»]|[-4-]|[4, 'D7']|[-4-]|[$$ seconds...]}
StringCat3(a, b, c : String) : String
<POP 2381a-2381c StackAdj> Δ+12 {[«38""»]|[«12""»]|[-4-]}
<Call 0x2381c 0x103e0> {[«38""»]|[«12""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 23822-23826 StackAdj> Δ+54 {}
<POP 23826-2382e Epilogue> Σ0
@ 2382e
<POP 2382e-2389c Body>
<POP 2382e-23844 Prologue> Σ0 ↓
<POP 23844-23846 RegCacheLoad> Σ0 ↓
<POP 23846-2387c Naked> Σ0 ↓ →0x23882
<Const 0x23846 0x1.4> Δ-4 {[##1]}
<Const 0x2384a 0x0.4> Δ-4 {[##1]|[##0]}
<Const 0x2384e 0x1.2> Δ-2 {[##1]|[##0]|[#1]}
<Call 0x23850 0x2234c> {[##1]|[##0]|[#1]}
<POP 23854-23858 StackAdj> Δ+10 {}
<Call 0x23858 0x23772> {}
<MI 2385c CLR.B -(A7)> Δ-2 {[#0]}
<Call 0x2385e 0x23690> {[#0]}
<POP 23862-23864 StackAdj> Δ+2 {}
<MI 23864 CLR.B 0x25736> {}
<MI 2386a CLR.W 0x29762> {}
<MI 23870 MOVE.W 0x25750,D0> {}
<MI 23876 CMPI.W #0x0050,D0> {}
<MI 2387a BGE 0x23882> {}
<POP 2387c-23882 Naked> Σ0 →0x23886
<Call 0x2387c 0x22ecc> {}
<MI 23880 BRA 0x23886> {}
<POP 23882-23886 Naked> Σ0 ↓ ←0x23846
<Call 0x23882 0x23100> {}
<POP 23886-23894 Naked> Σ0 ↓ ←0x2387c
<Const 0x23886 0x1.2> Δ-2 {[#1]}
<Call 0x23888 0x23690> {[#1]}
<POP 2388c-2388e StackAdj> Δ+2 {}
<Call 0x2388e 0x103dc> {}
WriteConsoleCrLf(void)
<POP 23894-2389c Epilogue> Σ0
@ 2389c
<LVAR 0x00a @ 4(r)>
<LVAR 0x008 2(r)>
<POP 2389c-2391c Body>
<POP 2389c-238b2 Prologue> Σ0 ↓
<POP 238b2-238ba RegCacheLoad> Σ0 ↓
<POP 238ba-23914 Naked> Σ0 ↓
<Blob 0x238ba [16] @> Δ-16 {[«16""»]}
<POP 238ca-238cc StackAdj> Δ-8 {[«16""»]|[-8-]}
<Lit 0x238cc 15> {[«16""»]|[-4-]|[$$Verifying file_]}
<MI 238dc MOVE.L (A6+0xa),(A7)> {[«16""»]|[-4-]|[4, '(A6+0xa)']}
<POP 238d6-238dc StackAdj> Δ-8 {[«16""»]|[-4-]|[4, '(A6+0xa)']|[-8-]}
<Call 0x238de 0x102cc> {[«16""»]|[-4-]|[4, '(A6+0xa)']|[-8-]}
StringDup(a : String) : String
<POP 238e4-238e6 StackAdj> Δ+4 {[«16""»]|[-4-]|[4, '(A6+0xa)']|[-4-]}
<Call 0x238e6 0x102d0> {[«16""»]|[-4-]|[4, '(A6+0xa)']|[-4-]}
StringCat2(a, b : String) : String
<POP 238ec-238ee StackAdj> Δ+8 {[«16""»]|[-4-]}
<Call 0x238ee 0x103d8> {[«16""»]|[-4-]}
WriteConsoleString(str : String)
<POP 238f4-238f6 StackAdj> Δ+16 {[-4-]}
<MI 238f6 MOVE.L (A6+0xa),(A7)> {[4, '(A6+0xa)']}
<MI 238f8 MOVE.W (A6+0x8),D0> {[4, '(A6+0xa)']}
<MI 238fc EXTW.L D0> {[4, '(A6+0xa)']}
<MI 238fe MOVE.L D0,-(A7)> Δ-4 {[4, '(A6+0xa)']|[4, 'D0']}
<Const 0x23900 0x1.2> Δ-2 {[4, '(A6+0xa)']|[4, 'D0']|[#1]}
<Call 0x23902 0x2234c> {[4, '(A6+0xa)']|[4, 'D0']|[#1]}
<POP 23906-2390a StackAdj> Δ+10 {}
<Pointer.fp 0x2390a <LVAR 0x00a @ 4(r)>> Δ-4 {[@@10]}
<Call 0x2390c 0x102bc> {[@@10]}
FreeString(VAR a : String)
<POP 23912-23914 StackAdj> Δ+4 {}
<POP 23914-2391c Epilogue> Σ0
@ 2391c
<LVAR 0x00a @ 4(r)>
<LVAR 0x008 2(r)>
<POP 2391c-239e6 Body>
<POP 2391c-23932 Prologue> Σ0 ↓
<POP 23932-2393c RegCacheLoad> Σ0 ↓
<POP 2393c-239c2 Naked> Σ0 Δ-20 ↓ →0x239cc
<Blob 0x2393c [14] @> Δ-14 {[«14""»]}
<POP 2394c-2394e StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x2394e 13> {[«14""»]|[-4-]|[$$Reading file_]}
<MI 2395e MOVE.L (A6+0xa),(A7)> {[«14""»]|[-4-]|[4, '(A6+0xa)']}
<POP 23958-2395e StackAdj> Δ-8 {[«14""»]|[-4-]|[4, '(A6+0xa)']|[-8-]}
<Call 0x23960 0x102cc> {[«14""»]|[-4-]|[4, '(A6+0xa)']|[-8-]}
StringDup(a : String) : String
<POP 23966-23968 StackAdj> Δ+4 {[«14""»]|[-4-]|[4, '(A6+0xa)']|[-4-]}
<Call 0x23968 0x102d0> {[«14""»]|[-4-]|[4, '(A6+0xa)']|[-4-]}
StringCat2(a, b : String) : String
<POP 2396e-23970 StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x23970 0x103d8> {[«14""»]|[-4-]}
WriteConsoleString(str : String)
<POP 23976-23978 StackAdj> Δ+14 {[-4-]}
<MI 23978 MOVE.L (A6+0xa),(A7)> {[4, '(A6+0xa)']}
<MI 2397a MOVE.W (A6+0x8),D0> {[4, '(A6+0xa)']}
<MI 2397e EXTW.L D0> {[4, '(A6+0xa)']}
<MI 23980 MOVE.L D0,-(A7)> Δ-4 {[4, '(A6+0xa)']|[4, 'D0']}
<Const 0x23982 0x1.2> Δ-2 {[4, '(A6+0xa)']|[4, 'D0']|[#1]}
<Call 0x23984 0x2234c> {[4, '(A6+0xa)']|[4, 'D0']|[#1]}
<POP 23988-2398c StackAdj> Δ+10 {}
<Call 0x2398c 0x23772> {}
<Blob 0x23990 [20] @> Δ-20 {[«20""»]}
<POP 239a0-239a2 StackAdj> Δ-6 {[«20""»]|[-6-]}
<Lit 0x239a2 19> {[«20""»]|[-2-]|[$$Update this EEPROM_]}
<POP 239b2-239b4 StackAdj> Δ-2 {[«20""»]|[-2-]|[$$Update this EEPROM_]|[-2-]}
<POP 239b4-239b5 StackAdj> Δ+2 {[«20""»]|[-2-]|[$$Update this EEPROM_]}
<Const 0x239b5 0x1.2> Δ-2 {[«20""»]|[-2-]|[$$Update this EEPROM_]|[#1]}
<Call 0x239b6 0x103f0> {[«20""»]|[-2-]|[$$Update this EEPROM_]|[#1]}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 239bc-239be StackAdj> Δ+6 {[«20""»]|[-2-]}
<MI 239be TST.B (A7)+> Δ+2 {[«20""»]}
<MI 239c0 BEQ 0x239cc> {[«20""»]}
<POP 239c2-239cc Naked> Σ-20 ↓
<MI 239c2 CLR.B 0x25736> {[-20-]}
<Call 0x239c8 0x22ecc> {[-20-]}
<POP 239cc-239de Naked> Σ-20 Δ+20 ↓ ←0x2393c
<POP 239cc-239ce StackAdj> Δ+20 {}
<Call 0x239ce 0x103dc> {}
WriteConsoleCrLf(void)
<Pointer.fp 0x239d4 <LVAR 0x00a @ 4(r)>> Δ-4 {[@@10]}
<Call 0x239d6 0x102bc> {[@@10]}
FreeString(VAR a : String)
<POP 239dc-239de StackAdj> Δ+4 {}
<POP 239de-239e6 Epilogue> Σ0
@ 239e6
<POP 239e6-23b48 Body>
<POP 239e6-239fc Prologue> Σ0 ↓
<POP 239fc-23a18 RegCacheLoad> Σ0 ↓
<POP 23a18-23b40 Naked> Σ0 ↓
<Blob 0x23a18 [4] @> Δ-4 {[«4""»]}
<Blob 0x23a1c [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x23a20 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<POP 23a24-23a26 StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x23a26 12> {[«4""»]|[«4""»]|[«4""»]|[$$SELFTEST.HEX]}
<POP 23a30-23a32 StackAdj> Δ-2 {[«4""»]|[«4""»]|[«4""»]|[$$SELFTEST.HEX]|[-2-]}
<POP 23a32-23a33 StackAdj> Δ+2 {[«4""»]|[«4""»]|[«4""»]|[$$SELFTEST.HEX]}
<Const 0x23a33 0x21.2> Δ-2 {[«4""»]|[«4""»]|[«4""»]|[$$SELFTEST.HEX]|[#33]}
<Call 0x23a34 0x2389c> {[«4""»]|[«4""»]|[«4""»]|[$$SELFTEST.HEX]|[#33]}
<POP 23a36-23a38 StackAdj> Δ+14 {[«4""»]}
<POP 23a38-23a39 StackAdj> Δ+4 {}
<Blob 0x23a39 [4] @> Δ-4 {[«4""»]}
<Blob 0x23a3c [4] @> Δ-4 {[«4""»]|[«4""»]}
<POP 23a40-23a42 StackAdj> Δ-4 {[«4""»]|[«4""»]|[-4-]}
<Lit 0x23a42 8> {[«4""»]|[«4""»]|[$$BOOT.HEX]}
<POP 23a4c-23a4e StackAdj> Δ-2 {[«4""»]|[«4""»]|[$$BOOT.HEX]|[-2-]}
<POP 23a4e-23a4f StackAdj> Δ+2 {[«4""»]|[«4""»]|[$$BOOT.HEX]}
<Const 0x23a4f 0x19.2> Δ-2 {[«4""»]|[«4""»]|[$$BOOT.HEX]|[#25]}
<Call 0x23a50 0x2389c> {[«4""»]|[«4""»]|[$$BOOT.HEX]|[#25]}
<MI 23a52 MOVEA.L A7,A0> {[«4""»]|[«4""»]|[$$BOOT.HEX]|[#25]}
<MI 23a54 LEA.L 0x2090c,A1> {[«4""»]|[«4""»]|[$$BOOT.HEX]|[#25]}
<BlockMove 13,A1,A0> {[«4""»]|[«4""»]|[$$BOOT.HEX]|[#25]}
<POP 23a60-23a62 StackAdj> Δ-4 {[«4""»]|[«4""»]|[$$BOOT.HEX]|[#25]|[-4-]}
<Lit 0x23a62> {[«4""»]|[«4""»]|[$$BOOT.HEX]|[#25]|[$$…]}
<Pointer.sp 0x23a62 4> Δ-4
<Const 0x23a66 0x1.2> Δ-2
<Const 0x23a68 0xd.2> Δ-2
<Call 0x23a6a 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 23a6c-23a6e StackAdj> Δ+8
<POP 23a6c-23a6e StackAdj> Δ-2 {[«4""»]|[«4""»]|[$$BOOT.HEX]|[#25]|[$$…]|[-2-]}
<POP 23a6e-23a6f StackAdj> Δ+2 {[«4""»]|[«4""»]|[$$BOOT.HEX]|[#25]|[$$…]}
<Const 0x23a6f 0x17.2> Δ-2 {[«4""»]|[«4""»]|[$$BOOT.HEX]|[#25]|[$$…]|[#23]}
<Call 0x23a72 0x2389c> {[«4""»]|[«4""»]|[$$BOOT.HEX]|[#25]|[$$…]|[#23]}
<POP 23a74-23a75 StackAdj> Δ+20 ↓ {}
<Blob 0x23a75 [12] @> Δ-12 {[«12""»]}
<POP 23a84-23a86 StackAdj> Δ-4 {[«12""»]|[-4-]}
<Lit 0x23a86 11> {[«12""»]|[$$NETWORK.HEX]}
<POP 23a92-23a94 StackAdj> Δ-2 {[«12""»]|[$$NETWORK.HEX]|[-2-]}
<POP 23a94-23a95 StackAdj> Δ+2 {[«12""»]|[$$NETWORK.HEX]}
<Const 0x23a95 0x15.2> Δ-2 {[«12""»]|[$$NETWORK.HEX]|[#21]}
<Call 0x23a98 0x2389c> {[«12""»]|[$$NETWORK.HEX]|[#21]}
<POP 23a9a-23a9e StackAdj> Δ+18 {}
<Call 0x23a9e 0x103dc> {}
WriteConsoleCrLf(void)
<MI 23aa4 CLR.B -(A7)> Δ-2 {[#0]}
<Call 0x23aa6 0x23690> {[#0]}
<POP 23aaa-23aac StackAdj> Δ+2 {}
<Blob 0x23aac [4] @> Δ-4 {[«4""»]}
<Blob 0x23ab0 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x23ab4 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<POP 23ab8-23aba StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x23aba 12> {[«4""»]|[«4""»]|[«4""»]|[$$SELFTEST.HEX]}
<POP 23ac4-23ac6 StackAdj> Δ-2 {[«4""»]|[«4""»]|[«4""»]|[$$SELFTEST.HEX]|[-2-]}
<POP 23ac6-23ac7 StackAdj> Δ+2 {[«4""»]|[«4""»]|[«4""»]|[$$SELFTEST.HEX]}
<Const 0x23ac7 0x21.2> Δ-2 {[«4""»]|[«4""»]|[«4""»]|[$$SELFTEST.HEX]|[#33]}
<Call 0x23ac8 0x2391c> {[«4""»]|[«4""»]|[«4""»]|[$$SELFTEST.HEX]|[#33]}
<POP 23aca-23acc StackAdj> Δ+14 {[«4""»]}
<POP 23acc-23acd StackAdj> Δ+4 {}
<Blob 0x23acd [4] @> Δ-4 {[«4""»]}
<Blob 0x23ad0 [4] @> Δ-4 {[«4""»]|[«4""»]}
<POP 23ad4-23ad6 StackAdj> Δ-4 {[«4""»]|[«4""»]|[-4-]}
<Lit 0x23ad6 8> {[«4""»]|[«4""»]|[$$BOOT.HEX]}
<POP 23ae0-23ae2 StackAdj> Δ-2 {[«4""»]|[«4""»]|[$$BOOT.HEX]|[-2-]}
<POP 23ae2-23ae3 StackAdj> Δ+2 {[«4""»]|[«4""»]|[$$BOOT.HEX]}
<Const 0x23ae3 0x19.2> Δ-2 {[«4""»]|[«4""»]|[$$BOOT.HEX]|[#25]}
<Call 0x23ae4 0x2391c> {[«4""»]|[«4""»]|[$$BOOT.HEX]|[#25]}
<MI 23ae6 MOVEA.L A7,A0> {[«4""»]|[«4""»]|[$$BOOT.HEX]|[#25]}
<MI 23ae8 LEA.L 0x2093a,A1> {[«4""»]|[«4""»]|[$$BOOT.HEX]|[#25]}
<BlockMove 13,A1,A0> {[«4""»]|[«4""»]|[$$BOOT.HEX]|[#25]}
<POP 23af4-23af6 StackAdj> Δ-4 {[«4""»]|[«4""»]|[$$BOOT.HEX]|[#25]|[-4-]}
<Lit 0x23af6> {[«4""»]|[«4""»]|[$$BOOT.HEX]|[#25]|[$$…]}
<Pointer.sp 0x23af6 4> Δ-4
<Const 0x23afa 0x1.2> Δ-2
<Const 0x23afc 0xd.2> Δ-2
<Call 0x23afe 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 23b00-23b02 StackAdj> Δ+8
<POP 23b00-23b02 StackAdj> Δ-2 {[«4""»]|[«4""»]|[$$BOOT.HEX]|[#25]|[$$…]|[-2-]}
<POP 23b02-23b03 StackAdj> Δ+2 {[«4""»]|[«4""»]|[$$BOOT.HEX]|[#25]|[$$…]}
<Const 0x23b03 0x17.2> Δ-2 {[«4""»]|[«4""»]|[$$BOOT.HEX]|[#25]|[$$…]|[#23]}
<Call 0x23b06 0x2391c> {[«4""»]|[«4""»]|[$$BOOT.HEX]|[#25]|[$$…]|[#23]}
<POP 23b08-23b09 StackAdj> Δ+20 ↓ {}
<Blob 0x23b09 [12] @> Δ-12 {[«12""»]}
<POP 23b18-23b1a StackAdj> Δ-4 {[«12""»]|[-4-]}
<Lit 0x23b1a 11> {[«12""»]|[$$NETWORK.HEX]}
<POP 23b26-23b28 StackAdj> Δ-2 {[«12""»]|[$$NETWORK.HEX]|[-2-]}
<POP 23b28-23b29 StackAdj> Δ+2 {[«12""»]|[$$NETWORK.HEX]}
<Const 0x23b29 0x15.2> Δ-2 {[«12""»]|[$$NETWORK.HEX]|[#21]}
<Call 0x23b2c 0x2391c> {[«12""»]|[$$NETWORK.HEX]|[#21]}
<POP 23b2e-23b32 StackAdj> Δ+16 {[-2-]}
<POP 23b32-23b33 StackAdj> Δ+2 {}
<Const 0x23b33 0x1.2> Δ-2 {[#1]}
<Call 0x23b34 0x23690> {[#1]}
<POP 23b38-23b3a StackAdj> Δ+2 {}
<Call 0x23b3a 0x103dc> {}
WriteConsoleCrLf(void)
<POP 23b40-23b48 Epilogue> Σ0
@ 23b48
<LVAR 0x008 2(r)>
<LVAR -0x006 @>
<LVAR -0x00a @ 4(r)>
<POP 23b48-23c1e Body>
<POP 23b48-23b5e Prologue> Σ0 ↓
<POP 23b5e-23b66 RegCacheLoad> Σ0 ↓
<POP 23b66-23bf0 Naked> Σ0 Δ-20 ↓ →0x23c0e
<MI 23b66 MOVE.W (A6+0x8),-(A7)> Δ-2 {[2, '(A6+0x8)']}
<Pointer.fp 0x23b68 <LVAR -0x006 @>> Δ-4 {[2, '(A6+0x8)']|[@@-6]}
<Pointer.fp 0x23b6c <LVAR -0x00a @ 4(r)>> Δ-4 {[2, '(A6+0x8)']|[@@-6]|[@@-10]}
<Call 0x23b70 0x214fe> {[2, '(A6+0x8)']|[@@-6]|[@@-10]}
<POP 23b74-23b76 StackAdj> Δ+6 {[2, '(A6+0x8)']|[-2-]}
<POP 23b76-23b77 StackAdj> Δ+4 {}
<Blob 0x23b77 [4] @> Δ-4 {[«4""»]}
<Blob 0x23b7a [4] @> Δ-4 {[«4""»]|[«4""»]}
<POP 23b7e-23b80 StackAdj> Δ-4 {[«4""»]|[«4""»]|[-4-]}
<MI 23b80 MOVE.L (A6-0xa),-(A7)> Δ-4 {[«4""»]|[«4""»]|[-4-]|[4, '(A6-0xa)']}
<POP 23b84-23b86 StackAdj> Δ-4 {[«4""»]|[«4""»]|[-4-]|[4, '(A6-0xa)']|[-4-]}
<Lit 0x23b86 8> {[«4""»]|[«4""»]|[-4-]|[4, '(A6-0xa)']|[$$ EEPROM:]}
<Call 0x23b98 0x102d0> {[«4""»]|[«4""»]|[-4-]|[4, '(A6-0xa)']|[$$ EEPROM:]}
StringCat2(a, b : String) : String
<POP 23b9e-23ba0 StackAdj> Δ+8 {[«4""»]|[«4""»]|[-4-]}
<Call 0x23ba0 0x103d8> {[«4""»]|[«4""»]|[-4-]}
WriteConsoleString(str : String)
<POP 23ba6-23ba8 StackAdj> Δ+8 {[«4""»]}
<MI 23ba8 MOVE.L (A4),(A7)> {[4, '(A4)']}
<MI 23baa MOVE.W (A6+0x8),D0> {[4, '(A4)']}
<MI 23bac EXTW.L D0> {[4, '(A4)']}
<MI 23bae MOVE.L D0,-(A7)> Δ-4 {[4, '(A4)']|[4, 'D0']}
<Const 0x23bb0 0x1.2> Δ-2 {[4, '(A4)']|[4, 'D0']|[#1]}
<Call 0x23bb2 0x2234c> {[4, '(A4)']|[4, 'D0']|[#1]}
<POP 23bb6-23bba StackAdj> Δ+10 {}
<Call 0x23bba 0x23772> {}
<Blob 0x23bbe [20] @> Δ-20 {[«20""»]}
<POP 23bce-23bd0 StackAdj> Δ-6 {[«20""»]|[-6-]}
<Lit 0x23bd0 19> {[«20""»]|[-2-]|[$$Update this EEPROM_]}
<POP 23be0-23be2 StackAdj> Δ-2 {[«20""»]|[-2-]|[$$Update this EEPROM_]|[-2-]}
<POP 23be2-23be3 StackAdj> Δ+2 {[«20""»]|[-2-]|[$$Update this EEPROM_]}
<Const 0x23be3 0x1.2> Δ-2 {[«20""»]|[-2-]|[$$Update this EEPROM_]|[#1]}
<Call 0x23be4 0x103f0> {[«20""»]|[-2-]|[$$Update this EEPROM_]|[#1]}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 23bea-23bec StackAdj> Δ+6 {[«20""»]|[-2-]}
<MI 23bec TST.B (A7)+> Δ+2 {[«20""»]}
<MI 23bee BEQ 0x23c0e> {[«20""»]}
<POP 23bf0-23c04 Naked> Σ-20 ↓ →0x23c0a
<MI 23bf0 CLR.B 0x25736> {[-20-]}
<MI 23bf6 CLR.W 0x29762> {[-20-]}
<MI 23bfc MOVE.W (A6+0x8),D0> {[-20-]}
<MI 23bfe CMPI.W #0x0050,D0> {[-20-]}
<MI 23c02 BGE 0x23c0a> {[-20-]}
<POP 23c04-23c0a Naked> Σ-20 →0x23c0e
<Call 0x23c04 0x22ecc> {[-20-]}
<MI 23c08 BRA 0x23c0e> {[-20-]}
<POP 23c0a-23c0e Naked> Σ-20 ↓ ←0x23bf0
<Call 0x23c0a 0x23100> {[-20-]}
<POP 23c0e-23c16 Naked> Σ-20 Δ+20 ↓ ←0x23b66 ←0x23c04
<POP 23c0e-23c10 StackAdj> Δ+20 {}
<Call 0x23c10 0x103dc> {}
WriteConsoleCrLf(void)
<POP 23c16-23c1e Epilogue> Σ0
@ 23c1e
<LVAR 0x008 1(r)>
<LVAR -0x006 @ 4(rw)>
<LVAR -0x00a @ 4(rw)>
<POP 23c1e-23d2c Body> Δ+2
<POP 23c1e-23c34 Prologue> Σ0 ↓
<POP 23c34-23c42 RegCacheLoad> Σ0 ↓
<POP 23c42-23c48 Naked> Σ0 ↓ →0x23c50
<MI 23c42 TST.B (A6+0x8)> {}
<MI 23c46 BEQ 0x23c50> {}
<POP 23c48-23c50 Naked> Σ0 →0x23c56
<MI 23c48 MOVE.L 0x29758,(A6-0xa)> {}
<MI 23c4e BRA 0x23c56> {}
<POP 23c50-23c56 Naked> Σ0 ↓ ←0x23c42
<MI 23c50 MOVE.L 0x29754,(A6-0xa)> {}
<POP 23c56-23cb8 Naked> Σ0 ↓ →0x23cbe ←0x23c48
<Blob 0x23c56 [22] @> Δ-22 {[«22""»]}
<Blob 0x23c68 [4] @> Δ-4 {[«22""»]|[«4""»]}
<POP 23c6c-23c6e StackAdj> Δ-12 {[«22""»]|[«4""»]|[-12-]}
<Lit 0x23c6e 21> {[«22""»]|[«4""»]|[-8-]|[$$enter prom filename []}
<MI 23c7c MOVE.L (A6-0xa),(A7)> {[«22""»]|[«4""»]|[-8-]|[4, '(A6-0xa)']}
<POP 23c76-23c7c StackAdj> Δ-8 {[«22""»]|[«4""»]|[-8-]|[4, '(A6-0xa)']|[-8-]}
<Call 0x23c7e 0x102cc> {[«22""»]|[«4""»]|[-8-]|[4, '(A6-0xa)']|[-8-]}
StringDup(a : String) : String
<Lit 0x23c84 4> {[«22""»]|[«4""»]|[-8-]|[4, '(A6-0xa)']|[-4-]|[$$] :_]}
<Call 0x23c96 0x102d4> {[«22""»]|[«4""»]|[-8-]|[4, '(A6-0xa)']|[-4-]|[$$] :_]}
StringCat3(a, b, c : String) : String
<POP 23c9c-23c9e StackAdj> Δ+12 {[«22""»]|[«4""»]|[-8-]}
<Call 0x23c9e 0x103e4> {[«22""»]|[«4""»]|[-8-]}
AskConsoleString(prompt : String) : String
<POP 23ca4-23ca6 StackAdj> Δ+4 {[«22""»]|[«4""»]|[-4-]}
<MI 23ca6 MOVE.L (A7)+,(A6-0x6)> Δ+4 {[«22""»]|[«4""»]}
<POP 23caa-23cae StackAdj> Δ+26 {}
<MI 23cae MOVEA.L (A6-0x6),A0> {}
<MI 23cb2 MOVE.W (A0),D0> {}
<MI 23cb4 CMP.W #0x01,D0> {}
<MI 23cb6 BLE 0x23cbe> {}
<POP 23cb8-23cbe Naked> Σ0 →0x23cca
<MI 23cb8 MOVE.L (A6-0x6),(A6-0xa)> {}
<MI 23cbc BRA 0x23cca> {}
<POP 23cbe-23cca Naked> Σ0 ↓ ←0x23c56
<Pointer.fp 0x23cbe <LVAR -0x006 @ 4(rw)>> Δ-4 {[@@-6]}
<Call 0x23cc2 0x102bc> {[@@-6]}
FreeString(VAR a : String)
<POP 23cc8-23cca StackAdj> Δ+4 {}
<POP 23cca-23cd8 Naked> Σ0 ↓ →0x23cf6 ←0x23cb8
<MI 23cca CLR.B -(A7)> Δ-2 {[#0]}
<Call 0x23ccc 0x23690> {[#0]}
<POP 23cd0-23cd2 StackAdj> Δ+2 {}
<MI 23cd2 TST.B (A6+0x8)> {}
<MI 23cd6 BEQ 0x23cf6> {}
<POP 23cd8-23cf6 Naked> Σ0 Δ-2 →0x23d10
<Const 0x23cd8 0x50.2> Δ-2 {[#80]}
<MI 23cdc LEA.L (A6-0xa),A4> {[#80]}
<Call 0x23cde 0x23b48> {[#80]}
<POP 23ce0-23ce1 StackAdj> Δ+2 {}
<Const 0x23ce1 0x51.2> Δ-2 {[#81]}
<MI 23ce4 LEA.L (A6-0xa),A4> {[#81]}
<Call 0x23ce6 0x23b48> {[#81]}
<POP 23ce8-23ce9 StackAdj> Δ+2 {}
<Const 0x23ce9 0x52.2> Δ-2 {[#82]}
<MI 23cec LEA.L (A6-0xa),A4> {[#82]}
<Call 0x23cee 0x23b48> {[#82]}
<POP 23cf0-23cf1 StackAdj> Δ+2 {}
<Const 0x23cf1 0x53.2> Δ-2 {[#83]}
<MI 23cf4 BRA 0x23d10> {[#83]}
<POP 23cf6-23d10 Naked> Σ0 Δ-2 ↓ ←0x23cca
<Const 0x23cf6 0x21.2> Δ-2 {[#33]}
<MI 23cfa LEA.L (A6-0xa),A4> {[#33]}
<Call 0x23cfc 0x23b48> {[#33]}
<POP 23cfe-23cff StackAdj> Δ+2 {}
<Const 0x23cff 0x19.2> Δ-2 {[#25]}
<MI 23d02 LEA.L (A6-0xa),A4> {[#25]}
<Call 0x23d04 0x23b48> {[#25]}
<POP 23d06-23d07 StackAdj> Δ+2 {}
<Const 0x23d07 0x17.2> Δ-2 {[#23]}
<MI 23d0a LEA.L (A6-0xa),A4> {[#23]}
<Call 0x23d0c 0x23b48> {[#23]}
<POP 23d0e-23d0f StackAdj> Δ+2 {}
<Const 0x23d0f 0x15.2> Δ-2 {[#21]}
<POP 23d10-23d24 Naked> Σ-2 Δ+2 ↓ ←0x23cd8
<MI 23d10 LEA.L (A6-0xa),A4> {[-2-]}
<Call 0x23d12 0x23b48> {[-2-]}
<POP 23d14-23d16 StackAdj> Δ+2 {}
<Const 0x23d16 0x1.2> Δ-2 {[#1]}
<Call 0x23d18 0x23690> {[#1]}
<POP 23d1c-23d1e StackAdj> Δ+2 {}
<Call 0x23d1e 0x103dc> {}
WriteConsoleCrLf(void)
<POP 23d24-23d2c Epilogue> Σ0
@ 23d2c
<LVAR 0x008 4(w)>
<POP 23d2c-23da6 Body>
<POP 23d2c-23d42 Prologue> Σ0 ↓
<POP 23d42-23d54 RegCacheLoad> Σ0 ↓
<POP 23d54-23d9e Naked> Σ0 ↓
<MI 23d54 MOVE.L 0x2574c,D0> {}
<MI 23d56 SUBQ.L #0x4,D0> {}
<POP 0x23d58 LimitCheck 0x0 ≤ D0 ≤ 0x1fff> {}
<MI 23d5e ASL.L #0x1,D0> {}
<MI 23d60 LEA.L 0x25728,A0> {}
<MI 23d62 MOVE.W (A0+D0.L+#0x2a),D1> {}
<MI 23d66 EXTW.L D1> {}
<MI 23d68 ASL.L #0x8,D1> {}
<MI 23d6a ASL.L #0x8,D1> {}
<MI 23d6c MOVE.L 0x2574c,D0> {}
<MI 23d6e SUBQ.L #0x3,D0> {}
<POP 0x23d70 LimitCheck 0x0 ≤ D0 ≤ 0x1fff> {}
<MI 23d76 ASL.L #0x1,D0> {}
<MI 23d78 LEA.L 0x25728,A0> {}
<MI 23d7a MOVE.W (A0+D0.L+#0x2a),D0> {}
<MI 23d7e ASL.W #0x8,D0> {}
<MI 23d80 EXTW.L D0> {}
<MI 23d82 ADD.L D1,D0> {}
<MI 23d84 MOVE.L 0x2574c,D1> {}
<MI 23d86 SUBQ.L #0x2,D1> {}
<POP 0x23d88 LimitCheck 0x0 ≤ D1 ≤ 0x1fff> {}
<MI 23d8e ASL.L #0x1,D1> {}
<MI 23d90 LEA.L 0x25728,A0> {}
<MI 23d92 MOVE.W (A0+D1.L+#0x2a),D2> {}
<MI 23d96 EXTW.L D2> {}
<MI 23d98 ADD.L D0,D2> {}
<MI 23d9a MOVE.L D2,(A6+0x8)> {}
<POP 23d9e-23da6 Epilogue> Σ0
@ 23da6
<LVAR 0x008 4(w)>
<POP 23da6-23e18 Body>
<POP 23da6-23dbc Prologue> Σ0 ↓
<POP 23dbc-23dcc RegCacheLoad> Σ0 ↓
<POP 23dcc-23e10 Naked> Σ0 ↓
<POP 23dcc-23dce StackAdj> Δ-2 {[-2-]}
<MI 23dce MOVE.L 0x25748,D0> {[-2-]}
<MI 23dd0 ADD.L 0x2574c,D0> {[-2-]}
<MI 23dd2 SUBQ.L #0x4,D0> {[-2-]}
<MI 23dd4 MOVE.L D0,-(A7)> Δ-4 {[-2-]|[4, 'D0']}
<Call 0x23dd6 0x2257a> {[-2-]|[4, 'D0']}
<POP 23dd8-23dda StackAdj> Δ+4 {[-2-]}
<MI 23dda MOVE.W (A7)+,D0> Δ+2 {}
<MI 23ddc EXTW.L D0> {}
<MI 23dde ASL.L #0x8,D0> {}
<MI 23de0 ASL.L #0x8,D0> {}
<POP 23de2-23de4 StackAdj> Δ-2 {[-2-]}
<MI 23de4 MOVE.L 0x25748,D1> {[-2-]}
<MI 23de6 ADD.L 0x2574c,D1> {[-2-]}
<MI 23de8 SUBQ.L #0x3,D1> {[-2-]}
<MI 23dea MOVE.L D1,-(A7)> Δ-4 {[-2-]|[4, 'D1']}
<Call 0x23dec 0x2257a> {[-2-]|[4, 'D1']}
<POP 23dee-23df0 StackAdj> Δ+4 {[-2-]}
<MI 23df0 MOVE.W (A7)+,D1> Δ+2 {}
<MI 23df2 ASL.W #0x8,D1> {}
<MI 23df4 EXTW.L D1> {}
<MI 23df6 ADD.L D0,D1> {}
<POP 23df8-23dfa StackAdj> Δ-2 {[-2-]}
<MI 23dfa MOVE.L 0x25748,D0> {[-2-]}
<MI 23dfc ADD.L 0x2574c,D0> {[-2-]}
<MI 23dfe SUBQ.L #0x2,D0> {[-2-]}
<MI 23e00 MOVE.L D0,-(A7)> Δ-4 {[-2-]|[4, 'D0']}
<Call 0x23e02 0x2257a> {[-2-]|[4, 'D0']}
<POP 23e04-23e06 StackAdj> Δ+4 {[-2-]}
<MI 23e06 MOVE.W (A7)+,D0> Δ+2 {}
<MI 23e08 EXTW.L D0> {}
<MI 23e0a ADD.L D1,D0> {}
<MI 23e0c MOVE.L D0,(A6+0x8)> {}
<POP 23e10-23e18 Epilogue> Σ0
@ 23e18
<LVAR 0x008 2(r)>
<LVAR -0x006 @ 4(r)>
<LVAR -0x00a @>
<LVAR -0x00e @ 4(r)>
<POP 23e18-2407a Body> Δ+4
<POP 23e18-23e2e Prologue> Σ0 ↓
<POP 23e2e-23e40 RegCacheLoad> Σ0 ↓
<POP 23e40-23e6e Naked> Σ0 ↓ →0x23e76
<MI 23e40 MOVE.W (A6+0x8),-(A7)> Δ-2 {[2, '(A6+0x8)']}
<Pointer.fp 0x23e44 <LVAR -0x00a @>> Δ-4 {[2, '(A6+0x8)']|[@@-10]}
<Pointer.fp 0x23e48 <LVAR -0x00e @ 4(r)>> Δ-4 {[2, '(A6+0x8)']|[@@-10]|[@@-14]}
<Call 0x23e4c 0x214fe> {[2, '(A6+0x8)']|[@@-10]|[@@-14]}
<POP 23e50-23e52 StackAdj> Δ+6 {[2, '(A6+0x8)']|[-2-]}
<MI 23e52 MOVE.L (A4),(A7)> {[4, '(A4)']}
<MI 23e54 MOVE.W (A6+0x8),D0> {[4, '(A4)']}
<MI 23e58 EXTW.L D0> {[4, '(A4)']}
<MI 23e5a MOVE.L D0,-(A7)> Δ-4 {[4, '(A4)']|[4, 'D0']}
<MI 23e5c CLR.B -(A7)> Δ-2 {[4, '(A4)']|[4, 'D0']|[#0]}
<Call 0x23e5e 0x2234c> {[4, '(A4)']|[4, 'D0']|[#0]}
<POP 23e62-23e66 StackAdj> Δ+10 {}
<MI 23e66 MOVE.W (A6+0x8),D0> {}
<MI 23e6a CMP.W #0x50,D0> {}
<MI 23e6c BGE 0x23e76> {}
<POP 23e6e-23e76 Naked> Σ0 Δ-4 →0x23e7c
<Pointer.fp 0x23e6e <LVAR -0x006 @ 4(r)>> Δ-4 {[@@-6]}
<Call 0x23e70 0x22a62> {[@@-6]}
<MI 23e74 BRA 0x23e7c> {[@@-6]}
<POP 23e76-23e7c Naked> Σ0 Δ-4 ↓ ←0x23e40
<Pointer.fp 0x23e76 <LVAR -0x006 @ 4(r)>> Δ-4 {[@@-6]}
<Call 0x23e78 0x22b24> {[@@-6]}
<POP 23e7c-23f0e Naked> Σ-4 ↓ →0x23f80 ←0x23e6e
<POP 23e7c-23e7e StackAdj> Δ+4 {}
<Blob 0x23e7e [4] @> Δ-4 {[«4""»]}
<Blob 0x23e82 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x23e86 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x23e8a [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<Blob 0x23e8e [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<Blob 0x23e92 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<Blob 0x23e96 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<Blob 0x23e9a [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 23e9e-23ea0 StackAdj> Δ-8 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-8-]}
<MI 23ea0 MOVE.L (A6-0xe),-(A7)> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-8-]|[4, '(A6-0xe)']}
<Const 0x23ea4 0x8.4> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-8-]|[4, '(A6-0xe)']|[##8]}
<Call 0x23ea8 0x102f8> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-8-]|[4, '(A6-0xe)']|[##8]}
LeftPad(a : String; b : Long) : String
<POP 23eae-23eb0 StackAdj> Δ+4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-8-]|[4, '(A6-0xe)']}
<Lit 0x23eb0 16> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-8-]|[$$: prom revision_]}
<Call 0x23eba 0x23da6> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-8-]|[$$: prom revision_]}
<POP 23eb8-23eba StackAdj> Δ-8 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-8-]|[$$: prom revision_]|[-8-]}
<Const 0x23ebe 0x6.4> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-8-]|[$$: prom revision_]|[-8-]|[##6]}
<Call 0x23ec2 0x102e8> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-8-]|[$$: prom revision_]|[-8-]|[##6]}
Long2HexString(val : Long; ndig : Long) : String
<POP 23ec8-23eca StackAdj> Δ+4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-8-]|[$$: prom revision_]|[-8-]}
<Lit 0x23eca 16> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-8-]|[$$: prom revision_]|[-4-]|[$$, file revision_]}
<Call 0x23ed4 0x23d2c> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-8-]|[$$: prom revision_]|[-4-]|[$$, file revision_]}
<POP 23ed2-23ed4 StackAdj> Δ-8 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-8-]|[$$: prom revision_]|[-4-]|[$$, file revision_]|[-8-]}
<Const 0x23ed8 0x6.4> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-8-]|[$$: prom revision_]|[-4-]|[$$, file revision_]|[-8-]|[##6]}
<Call 0x23edc 0x102e8> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-8-]|[$$: prom revision_]|[-4-]|[$$, file revision_]|[-8-]|[##6]}
Long2HexString(val : Long; ndig : Long) : String
<POP 23ee2-23ee4 StackAdj> Δ+8 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-8-]|[$$: prom revision_]|[-4-]|[$$, file revision_]|[-4-]}
<Call 0x23ee4 0x102dc> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-8-]|[$$: prom revision_]|[-4-]|[$$, file revision_]|[-4-]}
StringCat5(a, b, c, d, e : String) : String
<POP 23eea-23eec StackAdj> Δ+20 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Call 0x23eec 0x103d8> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
WriteConsoleString(str : String)
<POP 23ef2-23ef6 StackAdj> Δ+36 {}
<MI 23ef6 CLR.B (A4+D0.W+#0x5)> {}
<POP 23efa-23efc StackAdj> Δ-4 {[-4-]}
<Call 0x23efc 0x23d2c> {[-4-]}
<POP 23f00-23f02 StackAdj> Δ-4 {[-8-]}
<Call 0x23f02 0x23da6> {[-8-]}
<MI 23f06 MOVE.L (A7+0x4),D1> {[-8-]}
<MI 23f0a CMP.L (A7)+,D1> Δ+4 {[-4-]}
<MI 23f0c BGE 0x23f80> {[-4-]}
<POP 23f0e-23f3c Naked> Σ-4 ↓ →0x23f42
<Blob 0x23f0e [24] @> Δ-24 {[-4-]|[«24""»]}
<POP 23f1a-23f1c StackAdj> Δ-4 {[-4-]|[«24""»]|[-4-]}
<Lit 0x23f1c 24> {[-4-]|[«24""»]|[$$ - prom newer than file!]}
<Call 0x23f2a 0x103e0> {[-4-]|[«24""»]|[$$ - prom newer than file!]}
WriteConsoleStringCrLf(str : String)
<POP 23f30-23f34 StackAdj> Δ+28 {[-4-]}
<MI 23f34 TST.B 0x29753> {[-4-]}
<MI 23f3a BEQ 0x23f42> {[-4-]}
<POP 23f3c-23f42 Naked> Σ-4 →0x23f7c
<MI 23f3c CLR.B (A4+D0.W+#0x5)> {[-4-]}
<MI 23f40 BRA 0x23f7c> {[-4-]}
<POP 23f42-23f7c Naked> Σ-4 ↓ ←0x23f0e
<Blob 0x23f42 [32] @> Δ-32 {[-4-]|[«32""»]}
<POP 23f54-23f56 StackAdj> Δ-6 {[-4-]|[«32""»]|[-6-]}
<Lit 0x23f56 31> {[-4-]|[«32""»]|[-2-]|[$$Do you want to update this prom]}
<POP 23f62-23f64 StackAdj> Δ-2 {[-4-]|[«32""»]|[-2-]|[$$Do you want to update this prom]|[-2-]}
<MI 23f64 CLR.B (A7)> {[-4-]|[«32""»]|[-2-]|[$$Do you want to update this prom]|[-2-]}
<Call 0x23f66 0x103f0> {[-4-]|[«32""»]|[-2-]|[$$Do you want to update this prom]|[-2-]}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 23f6c-23f6e StackAdj> Δ+6 {[-4-]|[«32""»]|[-2-]}
<MI 23f6e MOVE.B (A7)+,D1> Δ+2 {[-4-]|[«32""»]}
<MI 23f70 EXTB.W D1> {[-4-]|[«32""»]}
<POP 0x23f72 LimitCheck 0x0 ≤ D1 ≤ 0x1> {[-4-]|[«32""»]}
<POP 23f74-23f78 StackAdj> Δ+32 {[-4-]}
<MI 23f78 MOVE.B D1,(A4+D0.W+#0x5)> {[-4-]}
<POP 23f7c-23f80 Naked> Σ-4 →0x2403e ←0x23f3c
<MI 23f7c BRA 0x2403e> {[-4-]}
<POP 23f80-23f94 Naked> Σ-4 Δ-4 ↓ →0x23fc0 ←0x23e7c
<POP 23f80-23f82 StackAdj> Δ-4 {[-8-]}
<Call 0x23f82 0x23d2c> {[-8-]}
<POP 23f86-23f88 StackAdj> Δ-4 {[-12-]}
<Call 0x23f88 0x23da6> {[-12-]}
<MI 23f8c MOVE.L (A7+0x4),D1> {[-12-]}
<MI 23f90 CMP.L (A7)+,D1> Δ+4 {[-8-]}
<MI 23f92 BLE 0x23fc0> {[-8-]}
<POP 23f94-23fba Naked> Σ-8 ↓
<Blob 0x23f94 [22] @> Δ-22 {[-8-]|[«22""»]}
<POP 23fa0-23fa2 StackAdj> Δ-4 {[-8-]|[«22""»]|[-4-]}
<Lit 0x23fa2 22> {[-8-]|[«22""»]|[$$ - PROM needs updating]}
<Call 0x23fb0 0x103e0> {[-8-]|[«22""»]|[$$ - PROM needs updating]}
WriteConsoleStringCrLf(str : String)
<POP 23fb6-23fba StackAdj> Δ+26 {[-8-]}
<POP 23fba-23fc0 Naked> Σ-8 →0x2403c ←0x23fc4
<MI 23fba MOVE.B #0x01,(A4+D0.W+#0x5)> {[-8-]}
<MI 23fbe BRA 0x2403c> {[-8-]}
<POP 23fc0-23fc4 Naked> Σ-8 ↓ →0x24012 ←0x23f80
<MI 23fc0 TST.L (A6-0x6)> {[-8-]}
<MI 23fc2 BLE 0x24012> {[-8-]}
<POP 23fc4-24012 Naked> Σ-8 →0x23fba
<Blob 0x23fc4 [22] @> Δ-22 {[-8-]|[«22""»]}
<POP 23fd0-23fd2 StackAdj> Δ-4 {[-8-]|[«22""»]|[-4-]}
<Lit 0x23fd2 22> {[-8-]|[«22""»]|[$$ - PROM needs updating]}
<Call 0x23fe0 0x103e0> {[-8-]|[«22""»]|[$$ - PROM needs updating]}
WriteConsoleStringCrLf(str : String)
<POP 23fe6-23fea StackAdj> Δ+26 {[-8-]}
<Blob 0x23fea [64] @> Δ-64 {[-8-]|[«64""»]}
<POP 23ff6-23ff8 StackAdj> Δ-4 {[-8-]|[«64""»]|[-4-]}
<Lit 0x23ff8 64> {[-8-]|[«64""»]|[$$ (the revision dates are identical but the data does not match)]}
<Call 0x24006 0x103e0> {[-8-]|[«64""»]|[$$ (the revision dates are identical but the data does not match)]}
WriteConsoleStringCrLf(str : String)
<POP 2400c-24010 StackAdj> Δ+68 {[-8-]}
<MI 24010 BRA 0x23fba> {[-8-]}
<POP 24012-2403c Naked> Σ-8 ↓ ←0x23fc0
<Blob 0x24012 [20] @> Δ-20 {[-8-]|[«20""»]}
<POP 24022-24024 StackAdj> Δ-4 {[-8-]|[«20""»]|[-4-]}
<Lit 0x24024 19> {[-8-]|[«20""»]|[$$ - OK, won't update]}
<Call 0x24032 0x103e0> {[-8-]|[«20""»]|[$$ - OK, won't update]}
WriteConsoleStringCrLf(str : String)
<POP 24038-2403c StackAdj> Δ+24 {[-8-]}
<POP 2403c-2403e Naked> Σ-8 Δ+4 ↓ ←0x23fba
<POP 2403c-2403e StackAdj> Δ+4 {[-4-]}
<POP 2403e-24046 Naked> Σ-4 Δ+4 ↓ →0x24072 ←0x23f7c
<POP 2403e-24040 StackAdj> Δ+4 {}
<MI 24040 TST.B (A4+D0.W+#0x5)> {}
<MI 24044 BEQ 0x24072> {}
<POP 24046-24052 Naked> Σ0 ↓ →0x2406e
<MI 24046 MOVE.B #0x01,(A4+0x4)> {}
<MI 2404a ADDQ.L #0x5,(A4+0x106)> {}
<MI 2404e CMP.W #0x50,D0> {}
<MI 24050 BGE 0x2406e> {}
<POP 24052-2406e Naked> Σ0 →0x24072
<MI 24052 MOVE.L (A6-0x6),D4> {}
<MI 24054 MOVEQ.L #0x0c,D3> {}
<Call 0x24056 0x1028c> {}
?muls_d3_d4
<MI 2405c MOVE.L #0x3e8,D3> {}
<Call 0x24062 0x10294> {}
?divs_d3_d4
<MI 24068 ADD.L D4,(A4+0x106)> {}
<MI 2406c BRA 0x24072> {}
<POP 2406e-24072 Naked> Σ0 ↓ ←0x24046
<MI 2406e ADDQ.L #0x6,(A4+0x106)> {}
<POP 24072-2407a Epilogue> Σ0 ←0x2403e ←0x24052
@ 2407a
<LVAR 0x008 2(r)>
<LVAR -0x006 @>
<LVAR -0x00a @ 4(r)>
<POP 2407a-24114 Body>
<POP 2407a-24090 Prologue> Σ0 ↓
<POP 24090-24092 RegCacheLoad> Σ0 ↓
<POP 24092-2409c Naked> Σ0 ↓ →0x2410c
<MI 24092 MOVE.W (A6+0x8),D0> {}
<MI 24096 TST.B (A4+D0.W+#0x5)> {}
<MI 2409a BEQ 0x2410c> {}
<POP 2409c-24102 Naked> Σ0 ↓ →0x24108
<MI 2409c MOVE.W D0,-(A7)> Δ-2 {[2, 'D0']}
<Pointer.fp 0x2409e <LVAR -0x006 @>> Δ-4 {[2, 'D0']|[@@-6]}
<Pointer.fp 0x240a2 <LVAR -0x00a @ 4(r)>> Δ-4 {[2, 'D0']|[@@-6]|[@@-10]}
<Call 0x240a6 0x214fe> {[2, 'D0']|[@@-6]|[@@-10]}
<POP 240aa-240ac StackAdj> Δ+6 {[2, 'D0']|[-2-]}
<POP 240ac-240ad StackAdj> Δ+4 {}
<Blob 0x240ad [4] @> Δ-4 {[«4""»]}
<Blob 0x240b0 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x240b4 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x240b8 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 240bc-240be StackAdj> Δ-8 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-8-]}
<Lit 0x240be 16> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Updating EEPROM_]}
<POP 240ce-240d0 StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Updating EEPROM_]|[-4-]}
<MI 240d0 MOVE.L (A6-0xa),(A7)> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Updating EEPROM_]|[4, '(A6-0xa)']}
<Call 0x240d4 0x102d0> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Updating EEPROM_]|[4, '(A6-0xa)']}
StringCat2(a, b : String) : String
<POP 240da-240dc StackAdj> Δ+8 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Call 0x240dc 0x103e0> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 240e2-240e4 StackAdj> Δ+16 {[«4""»]}
<MI 240e4 MOVE.L (A4),(A7)> {[4, '(A4)']}
<MI 240e6 MOVE.W D0,D1> {[4, '(A4)']}
<MI 240e8 EXTW.L D1> {[4, '(A4)']}
<MI 240ea MOVE.L D1,-(A7)> Δ-4 {[4, '(A4)']|[4, 'D1']}
<MI 240ec CLR.B -(A7)> Δ-2 {[4, '(A4)']|[4, 'D1']|[#0]}
<Call 0x240ee 0x2234c> {[4, '(A4)']|[4, 'D1']|[#0]}
<POP 240f2-240f6 StackAdj> Δ+10 {}
<MI 240f6 CLR.B 0x25736> {}
<MI 240fc CMPI.W #0x0050,D0> {}
<MI 24100 BGE 0x24108> {}
<POP 24102-24108 Naked> Σ0 →0x2410c
<Call 0x24102 0x22ecc> {}
<MI 24106 BRA 0x2410c> {}
<POP 24108-2410c Naked> Σ0 ↓ ←0x2409c
<Call 0x24108 0x23100> {}
<POP 2410c-24114 Epilogue> Σ0 ←0x24092 ←0x24102
@ 24114
<LVAR -0x00a 4(rw)>
<LVAR -0x0bb 1(w)>
<LVAR -0x10c 1(rw)>
<LVAR -0x110 @ 4(w)>
<POP 24114-244de Body>
<POP 24114-2412a Prologue> Σ0 ↓
<POP 2412a-24140 RegCacheLoad> Σ0 ↓
<POP 24140-241ae Naked> Σ0 ↓ →0x2423a
<Blob 0x24140 [52] @> Δ-52 {[«52""»]}
<POP 24152-24154 StackAdj> Δ-4 {[«52""»]|[-4-]}
<Lit 0x24154 51> {[«52""»]|[$$Comparing the new prom files to the actual EEPROMs:]}
<Call 0x24166 0x103e0> {[«52""»]|[$$Comparing the new prom files to the actual EEPROMs:]}
WriteConsoleStringCrLf(str : String)
<POP 2416c-24170 StackAdj> Δ+56 {}
<MI 24170 CLR.B (A6-0x10c)> {}
<MI 24174 MOVE.L #0x01,(A6-0xa)> {}
<MI 24178 MOVE.L 0x29754,(A6-0x110)> {}
<Const 0x2417e 0x21.2> Δ-2 {[#33]}
<MI 24180 LEA.L (A6-0x110),A4> {[#33]}
<Call 0x24182 0x23e18> {[#33]}
<POP 24186-24187 StackAdj> Δ+2 {}
<Const 0x24187 0x19.2> Δ-2 {[#25]}
<MI 24188 LEA.L (A6-0x110),A4> {[#25]}
<Call 0x2418a 0x23e18> {[#25]}
<POP 2418e-2418f StackAdj> Δ+2 {}
<Const 0x2418f 0x17.2> Δ-2 {[#23]}
<MI 24192 LEA.L (A6-0x110),A4> {[#23]}
<Call 0x24194 0x23e18> {[#23]}
<POP 24198-24199 StackAdj> Δ+2 {}
<Const 0x24199 0x15.2> Δ-2 {[#21]}
<MI 2419a LEA.L (A6-0x110),A4> {[#21]}
<Call 0x2419c 0x23e18> {[#21]}
<POP 241a0-241a2 StackAdj> Δ+2 {}
<MI 241a2 CLR.W 0x29760> {}
<MI 241a8 TST.W 0x2975e> {}
<MI 241aa BLE 0x2423a> {}
<POP 241ae-241ca Naked> Σ0 ↓ →0x24204
<POP 241ae-241b0 StackAdj> Δ-2 {[-2-]}
<Const 0x241b0 0x105.4> Δ-4 {[-2-]|[##261]}
<Call 0x241b4 0x10592> {[-2-]|[##261]}
ReadConfig(where : Long) : Word
<POP 241ba-241bc StackAdj> Δ+4 {[-2-]}
<MI 241bc MOVE.W (A7)+,D0> Δ+2 {}
<POP 0x241be LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 241c0 MOVE.W D0,D7> {}
<MI 241c2 CMP.W 0x2975c,D7> {}
<MI 241c8 BLT 0x24204> {}
<POP 241ca-241ce Naked> Σ0 ↓ →0x24204
<MI 241ca CMP.W 0x2975e,D7> {}
<MI 241cc BGE 0x24204> {}
<POP 241ce-24204 Naked> Σ0 →0x2423a
<MI 241ce MOVE.W 0x2975e,0x29760> {}
<MI 241d4 MOVE.B #0x01,(A6-0x10c)> {}
<Blob 0x241d8 [54] @> Δ-54 {[«54""»]}
<POP 241e4-241e6 StackAdj> Δ-4 {[«54""»]|[-4-]}
<Lit 0x241e6 54> {[«54""»]|[$$the IOC board revision # in the EEPROM will be updated]}
<Call 0x241f8 0x103e0> {[«54""»]|[$$the IOC board revision # in the EEPROM will be updated]}
WriteConsoleStringCrLf(str : String)
<POP 241fe-24202 StackAdj> Δ+58 {}
<MI 24202 BRA 0x2423a> {}
<POP 24204-2420c Naked> Σ0 ↓ →0x2423a ←0x241ae ←0x241ca
<MI 24204 CMP.W 0x2975c,D7> {}
<MI 2420a BGE 0x2423a> {}
<POP 2420c-2423a Naked> Σ0 ↓
<Blob 0x2420c [34] @> Δ-34 {[«34""»]}
<POP 2421e-24220 StackAdj> Δ-4 {[«34""»]|[-4-]}
<Lit 0x24220 33> {[«34""»]|[$$not updating IOC board revision #]}
<Call 0x24230 0x103e0> {[«34""»]|[$$not updating IOC board revision #]}
WriteConsoleStringCrLf(str : String)
<POP 24236-2423a StackAdj> Δ+38 {}
<POP 2423a-24246 Naked> Σ0 ↓ →0x24254 ←0x24140 ←0x241ce ←0x24204
<POP 2423a-2423c StackAdj> Δ-2 {[-2-]}
<Call 0x2423c 0x10604> {[-2-]}
Is_machine_type_three() : Bool
<MI 24242 TST.B (A7)+> Δ+2 {}
<MI 24244 BNE 0x24254> {}
<POP 24246-24254 Naked> Σ0 ↓ →0x24334
<POP 24246-24248 StackAdj> Δ-2 {[-2-]}
<Call 0x24248 0x1060a> {[-2-]}
Is_machine_type_four() : Bool
<MI 2424e TST.B (A7)+> Δ+2 {}
<MI 24250 BEQ 0x24334> {}
<POP 24254-24298 Naked> Σ0 ↓ →0x24334 ←0x2423a
<MI 24254 MOVE.L 0x29758,(A6-0x110)> {}
<Const 0x2425a 0x50.2> Δ-2 {[#80]}
<MI 2425e LEA.L (A6-0x110),A4> {[#80]}
<Call 0x24260 0x23e18> {[#80]}
<POP 24264-24265 StackAdj> Δ+2 {}
<Const 0x24265 0x51.2> Δ-2 {[#81]}
<MI 24268 LEA.L (A6-0x110),A4> {[#81]}
<Call 0x2426a 0x23e18> {[#81]}
<POP 2426e-2426f StackAdj> Δ+2 {}
<Const 0x2426f 0x52.2> Δ-2 {[#82]}
<MI 24272 LEA.L (A6-0x110),A4> {[#82]}
<Call 0x24274 0x23e18> {[#82]}
<POP 24278-24279 StackAdj> Δ+2 {}
<Const 0x24279 0x53.2> Δ-2 {[#83]}
<MI 2427c LEA.L (A6-0x110),A4> {[#83]}
<Call 0x2427e 0x23e18> {[#83]}
<POP 24282-24284 StackAdj> Δ+2 {}
<MI 24284 CLR.W 0x29762> {}
<POP 2428a-2428c StackAdj> Δ-4 {[-4-]}
<Call 0x2428c 0x25456> {[-4-]}
<MI 24292 MOVE.L (A7)+,D6> Δ+4 {}
<MI 24294 BEQ 0x24334> {}
<POP 24298-2429e Naked> Σ0 ↓ →0x24334
<MI 24298 TST.W 0x2975e> {}
<MI 2429a BLE 0x24334> {}
<POP 2429e-242b8 Naked> Σ0 ↓ →0x242fc
<POP 2429e-242a0 StackAdj> Δ-2 {[-2-]}
<MI 242a0 MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<MI 242a2 ADDQ.L #0x4,(A7)> {[-6-]}
<Call 0x242a4 0x2257a> {[-6-]}
<POP 242a8-242aa StackAdj> Δ+4 {[-2-]}
<MI 242aa MOVE.W (A7)+,D0> Δ+2 {}
<POP 0x242ac LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 242ae MOVE.W D0,D7> {}
<MI 242b0 CMP.W 0x2975c,D7> {}
<MI 242b6 BLT 0x242fc> {}
<POP 242b8-242bc Naked> Σ0 ↓ →0x242fc
<MI 242b8 CMP.W 0x2975e,D7> {}
<MI 242ba BGE 0x242fc> {}
<POP 242bc-242fc Naked> Σ0 →0x24334
<MI 242bc MOVE.W 0x2975e,0x29762> {}
<MI 242c2 MOVE.B #0x01,(A6-0x10c)> {}
<MI 242c6 MOVE.B #0x01,(A6-0xbb)> {}
<Blob 0x242ca [54] @> Δ-54 {[«54""»]}
<POP 242dc-242de StackAdj> Δ-4 {[«54""»]|[-4-]}
<Lit 0x242de 53> {[«54""»]|[$$the RESHA board revision # in the EEPROM will updated]}
<Call 0x242f0 0x103e0> {[«54""»]|[$$the RESHA board revision # in the EEPROM will updated]}
WriteConsoleStringCrLf(str : String)
<POP 242f6-242fa StackAdj> Δ+58 {}
<MI 242fa BRA 0x24334> {}
<POP 242fc-24304 Naked> Σ0 ↓ →0x24334 ←0x2429e ←0x242b8
<MI 242fc CMP.W 0x2975c,D7> {}
<MI 24302 BGE 0x24334> {}
<POP 24304-24334 Naked> Σ0 ↓
<Blob 0x24304 [36] @> Δ-36 {[«36""»]}
<POP 24316-24318 StackAdj> Δ-4 {[«36""»]|[-4-]}
<Lit 0x24318 35> {[«36""»]|[$$not updating RESHA board revision #]}
<Call 0x2432a 0x103e0> {[«36""»]|[$$not updating RESHA board revision #]}
WriteConsoleStringCrLf(str : String)
<POP 24330-24334 StackAdj> Δ+40 {}
<POP 24334-2433a Naked> Σ0 ↓ →0x24368 ←0x24246 ←0x24254 ←0x24298 ←0x242bc ←0x242fc
<MI 24334 TST.B (A6-0x10c)> {}
<MI 24338 BNE 0x24368> {}
<POP 2433a-24368 Naked> Σ0 →0x244d6
<Blob 0x2433a [24] @> Δ-24 {[«24""»]}
<POP 24346-24348 StackAdj> Δ-4 {[«24""»]|[-4-]}
<Lit 0x24348 24> {[«24""»]|[$$no EEPROMs need updating]}
<Call 0x2435a 0x103e0> {[«24""»]|[$$no EEPROMs need updating]}
WriteConsoleStringCrLf(str : String)
<POP 24360-24364 StackAdj> Δ+28 {}
<MI 24364 BRA 0x244d6> {}
<POP 24368-24406 Naked> Σ0 ↓ →0x24454 ←0x24334
<Blob 0x24368 [38] @> Δ-38 {[«38""»]}
<Blob 0x2437a [22] @> Δ-22 {[«38""»]|[«22""»]}
<POP 2438c-2438e StackAdj> Δ-8 {[«38""»]|[«22""»]|[-8-]}
<Lit 0x2438e 37> {[«38""»]|[«22""»]|[-4-]|[$$updating the EEPROMS will take about_]}
<MI 2439e MOVE.L (A6-0xa),(A7)> {[«38""»]|[«22""»]|[-4-]|[4, '(A6-0xa)']}
<POP 24398-2439e StackAdj> Δ-8 {[«38""»]|[«22""»]|[-4-]|[4, '(A6-0xa)']|[-8-]}
<Call 0x243a2 0x102e4> {[«38""»]|[«22""»]|[-4-]|[4, '(A6-0xa)']|[-8-]}
Long2String(a : Long) : String
<Lit 0x243a8 21> {[«38""»]|[«22""»]|[-4-]|[4, '(A6-0xa)']|[-4-]|[$$ seconds to complete.]}
<Call 0x243b8 0x102d4> {[«38""»]|[«22""»]|[-4-]|[4, '(A6-0xa)']|[-4-]|[$$ seconds to complete.]}
StringCat3(a, b, c : String) : String
<POP 243be-243c2 StackAdj> Δ+12 {[«38""»]|[«22""»]|[-4-]}
<Call 0x243c2 0x103e0> {[«38""»]|[«22""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 243c8-243cc StackAdj> Δ+62 {[-2-]}
<MI 243cc CLR.B (A7)> {[-2-]}
<Call 0x243ce 0x23690> {[-2-]}
<POP 243d2-243d4 StackAdj> Δ+2 {}
<MI 243d4 MOVE.L 0x29754,(A6-0x110)> {}
<Const 0x243da 0x21.2> Δ-2 {[#33]}
<MI 243dc LEA.L (A6-0x110),A4> {[#33]}
<Call 0x243de 0x2407a> {[#33]}
<POP 243e2-243e3 StackAdj> Δ+2 {}
<Const 0x243e3 0x19.2> Δ-2 {[#25]}
<MI 243e4 LEA.L (A6-0x110),A4> {[#25]}
<Call 0x243e6 0x2407a> {[#25]}
<POP 243ea-243eb StackAdj> Δ+2 {}
<Const 0x243eb 0x17.2> Δ-2 {[#23]}
<MI 243ee LEA.L (A6-0x110),A4> {[#23]}
<Call 0x243f0 0x2407a> {[#23]}
<POP 243f4-243f5 StackAdj> Δ+2 {}
<Const 0x243f5 0x15.2> Δ-2 {[#21]}
<MI 243f6 LEA.L (A6-0x110),A4> {[#21]}
<Call 0x243f8 0x2407a> {[#21]}
<POP 243fc-243fe StackAdj> Δ+2 {}
<MI 243fe TST.W 0x29760> {}
<MI 24404 BLE 0x24454> {}
<POP 24406-24454 Naked> Σ0 ↓
<POP 24406-24408 StackAdj> Δ-2 {[-2-]}
<Const 0x24408 0x105.4> Δ-4 {[-2-]|[##261]}
<Call 0x2440c 0x10592> {[-2-]|[##261]}
ReadConfig(where : Long) : Word
<POP 24412-24414 StackAdj> Δ+4 {[-2-]}
<MI 24414 MOVE.W (A7)+,D0> Δ+2 {}
<POP 0x24416 LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 24418 MOVE.W D0,D7> {}
<Const 0x2441a 0x105.4> Δ-4 {[##261]}
<Blob 0x2441e [2] 0x29760> Δ-2 {[##261]|[«2»]}
<Call 0x24424 0x10598> {[##261]|[«2»]}
WriteConfig(what: Word; where : Long)
<POP 2442a-2442c StackAdj> Δ+6 {}
<Const 0x2442c 0x108.4> Δ-4 {[##264]}
<POP 24430-24432 StackAdj> Δ-2 {[##264]|[-2-]}
<Const 0x24432 0x108.4> Δ-4 {[##264]|[-2-]|[##264]}
<Call 0x24436 0x10592> {[##264]|[-2-]|[##264]}
ReadConfig(where : Long) : Word
<POP 2443c-2443e StackAdj> Δ+4 {[##264]|[-2-]}
<MI 2443e ADD.W D7,(A7)> {[##264]|[-2-]}
<MI 24440 MOVE.W (A7),D0> {[##264]|[-2-]}
<MI 24442 SUB.W 0x29760,D0> {[##264]|[-2-]}
<MI 24448 AND.W #0xff,D0> {[##264]|[-2-]}
<MI 2444a MOVE.W D0,(A7)> {[##264]|[2, 'D0']}
<Call 0x2444c 0x10598> {[##264]|[2, 'D0']}
WriteConfig(what: Word; where : Long)
<POP 24452-24454 StackAdj> Δ+6 {}
<POP 24454-24460 Naked> Σ0 ↓ →0x2446c ←0x24368
<POP 24454-24456 StackAdj> Δ-2 {[-2-]}
<Call 0x24456 0x10604> {[-2-]}
Is_machine_type_three() : Bool
<MI 2445c TST.B (A7)+> Δ+2 {}
<MI 2445e BNE 0x2446c> {}
<POP 24460-2446c Naked> Σ0 ↓ →0x2449c
<POP 24460-24462 StackAdj> Δ-2 {[-2-]}
<Call 0x24462 0x1060a> {[-2-]}
Is_machine_type_four() : Bool
<MI 24468 TST.B (A7)+> Δ+2 {}
<MI 2446a BEQ 0x2449c> {}
<POP 2446c-2449c Naked> Σ0 ↓ ←0x24454
<MI 2446c MOVE.L 0x29758,(A6-0x110)> {}
<Const 0x24472 0x51.2> Δ-2 {[#81]}
<MI 24476 LEA.L (A6-0x110),A4> {[#81]}
<Call 0x24478 0x2407a> {[#81]}
<POP 2447c-2447d StackAdj> Δ+2 {}
<Const 0x2447d 0x52.2> Δ-2 {[#82]}
<MI 24480 LEA.L (A6-0x110),A4> {[#82]}
<Call 0x24482 0x2407a> {[#82]}
<POP 24486-24487 StackAdj> Δ+2 {}
<Const 0x24487 0x53.2> Δ-2 {[#83]}
<MI 2448a LEA.L (A6-0x110),A4> {[#83]}
<Call 0x2448c 0x2407a> {[#83]}
<POP 24490-24491 StackAdj> Δ+2 {}
<Const 0x24491 0x50.2> Δ-2 {[#80]}
<MI 24494 LEA.L (A6-0x110),A4> {[#80]}
<Call 0x24496 0x2407a> {[#80]}
<POP 2449a-2449c StackAdj> Δ+2 {}
<POP 2449c-244a4 Naked> Σ0 ↓ →0x244ac ←0x24460
<MI 2449c TST.B 0x29753> {}
<MI 244a2 BNE 0x244ac> {}
<POP 244a4-244ac Naked> Σ0 ↓
<Const 0x244a4 0x1.2> Δ-2 {[#1]}
<Call 0x244a6 0x23690> {[#1]}
<POP 244aa-244ac StackAdj> Δ+2 {}
<POP 244ac-244d6 Naked> Σ0 ↓ ←0x2449c
<Blob 0x244ac [30] @> Δ-30 {[«30""»]}
<POP 244b8-244ba StackAdj> Δ-4 {[«30""»]|[-4-]}
<Lit 0x244ba 30> {[«30""»]|[$$all EEPROMs are up to date now]}
<Call 0x244cc 0x103e0> {[«30""»]|[$$all EEPROMs are up to date now]}
WriteConsoleStringCrLf(str : String)
<POP 244d2-244d6 StackAdj> Δ+34 {}
<POP 244d6-244de Epilogue> Σ0 ←0x2433a
@ 244de
<POP 244de-24652 Body> Δ+12
<POP 244de-244f4 Prologue> Σ0 ↓
<POP 244f4-24506 RegCacheLoad> Σ0 ↓
<POP 24506-24614 Naked> Σ0 →0x2461e →0x24620 →0x24628 →0x24630 →0x24638 ←0x24644
<Blob 0x24506 [4] @> Δ-4 {[«4""»]}
<Blob 0x2450a [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x2450e [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<POP 24512-24514 StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x24514 12> {[«4""»]|[«4""»]|[«4""»]|[$$Options are:]}
<Call 0x24520 0x103e0> {[«4""»]|[«4""»]|[«4""»]|[$$Options are:]}
WriteConsoleStringCrLf(str : String)
<POP 24522-24523 StackAdj> Δ+16 ↓ {}
<Blob 0x24523 [14] @> Δ-14 {[«14""»]}
<POP 24532-24534 StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x24534 13> {[«14""»]|[$$ 0 => Exit]}
<Call 0x24542 0x103e0> {[«14""»]|[$$ 0 => Exit]}
WriteConsoleStringCrLf(str : String)
<POP 24544-24545 StackAdj> Δ+18 ↓ {}
<Blob 0x24545 [52] @> Δ-52 {[«52""»]}
<POP 24556-24558 StackAdj> Δ-4 {[«52""»]|[-4-]}
<Lit 0x24558 51> {[«52""»]|[$$ 1 => Test SELFTEST EEPROM location (K21)]}
<Call 0x24564 0x103e0> {[«52""»]|[$$ 1 => Test SELFTEST EEPROM location (K21)]}
WriteConsoleStringCrLf(str : String)
<POP 24566-24567 StackAdj> Δ+56 ↓ {}
<Blob 0x24567 [52] @> Δ-52 {[«52""»]}
<POP 24576-24578 StackAdj> Δ-4 {[«52""»]|[-4-]}
<Lit 0x24578 51> {[«52""»]|[$$ 2 => Test BOOT EEPROM location (K19)]}
<Call 0x24584 0x103e0> {[«52""»]|[$$ 2 => Test BOOT EEPROM location (K19)]}
WriteConsoleStringCrLf(str : String)
<POP 24586-24587 StackAdj> Δ+56 ↓ {}
<Blob 0x24587 [52] @> Δ-52 {[«52""»]}
<POP 24596-24598 StackAdj> Δ-4 {[«52""»]|[-4-]}
<Lit 0x24598 51> {[«52""»]|[$$ 3 => Test UTILITIES/DEBUG EEPROM location (K17)]}
<Call 0x245a4 0x103e0> {[«52""»]|[$$ 3 => Test UTILITIES/DEBUG EEPROM location (K17)]}
WriteConsoleStringCrLf(str : String)
<POP 245a6-245a7 StackAdj> Δ+56 ↓ {}
<Blob 0x245a7 [52] @> Δ-52 {[«52""»]}
<POP 245b6-245b8 StackAdj> Δ-4 {[«52""»]|[-4-]}
<Lit 0x245b8 51> {[«52""»]|[$$ 4 => Test NOVRAM/NET/DEB2 EEPROM location (K15)]}
<Call 0x245c4 0x103e0> {[«52""»]|[$$ 4 => Test NOVRAM/NET/DEB2 EEPROM location (K15)]}
WriteConsoleStringCrLf(str : String)
<POP 245c6-245c7 StackAdj> Δ+56 ↓ {}
<Blob 0x245c7 [16] @> Δ-16 {[«16""»]}
<POP 245d8-245da StackAdj> Δ-8 {[«16""»]|[-8-]}
<Lit 0x245da 15> {[«16""»]|[-4-]|[$$Enter option :_]}
<Const 0x245e8 0x0.4> Δ-4 {[«16""»]|[-4-]|[$$Enter option :_]|[##0]}
<Const 0x245ec 0x4.4> Δ-4 {[«16""»]|[-4-]|[$$Enter option :_]|[##0]|[##4]}
<Call 0x245f0 0x103ec> {[«16""»]|[-4-]|[$$Enter option :_]|[##0]|[##4]}
AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
<POP 245f6-245f8 StackAdj> Δ+12 {[«16""»]|[-4-]}
<MI 245f8 MOVE.L (A7)+,D7> Δ+4 {[«16""»]}
<POP 245fa-245fe StackAdj> Δ+16 {}
<MI 245fe MOVE.L D7,D0> {}
<POP 0x24600 LimitCheck 0x0 ≤ D0 ≤ 0x4> {}
<MI 2460a ADD.W D0,D0> {}
<MI 2460c SWITCH D0.W> {}
<POP 2461e-24620 Naked> Σ0 →0x24644 ←0x24506
<MI 2461e BRA 0x24644> {}
<POP 24620-24628 Naked> Σ0 Δ-4 →0x2463e ←0x24506
<Const 0x24620 0x80001fff.4> Δ-4 {[##2147491839]}
<MI 24626 BRA 0x2463e> {[##2147491839]}
<POP 24628-24630 Naked> Σ0 Δ-4 →0x2463e ←0x24506
<Const 0x24628 0x80003fff.4> Δ-4 {[##2147500031]}
<MI 2462e BRA 0x2463e> {[##2147500031]}
<POP 24630-24638 Naked> Σ0 Δ-4 →0x2463e ←0x24506
<Const 0x24630 0x80005fff.4> Δ-4 {[##2147508223]}
<MI 24636 BRA 0x2463e> {[##2147508223]}
<POP 24638-2463e Naked> Σ0 Δ-4 ↓ ←0x24506
<Const 0x24638 0x80007dff.4> Δ-4 {[##2147515903]}
<POP 2463e-24644 Naked> Σ-4 Δ+4 ↓ ←0x24620 ←0x24628 ←0x24630
<Call 0x2463e 0x22656> {[-4-]}
<POP 24642-24644 StackAdj> Δ+4 {}
<POP 24644-2464a Naked> Σ0 ↓ →0x24506 ←0x2461e
<MI 24644 TST.L D7> {}
<MI 24646 BNE 0x24506> {}
<POP 2464a-24652 Epilogue> Σ0
@ 24652
<LVAR 0x00c 2(r)>
<LVAR 0x008 4(r)>
<LVAR -0x00e @ 4(r)>
<LVAR -0x012 @ 4(r)>
<POP 24652-24820 Body>
<POP 24652-24668 Prologue> Σ0 ↓
<POP 24668-2467a RegCacheLoad> Σ0 ↓
<POP 2467a-24696 Naked> Σ0 Δ-4 ↓
<MI 2467a MOVE.W (A6+0xc),-(A7)> Δ-2 {[2, '(A6+0xc)']}
<Pointer.fp 0x2467e <LVAR -0x012 @ 4(r)>> Δ-4 {[2, '(A6+0xc)']|[@@-18]}
<Pointer.fp 0x24682 <LVAR -0x00e @ 4(r)>> Δ-4 {[2, '(A6+0xc)']|[@@-18]|[@@-14]}
<Call 0x24686 0x214fe> {[2, '(A6+0xc)']|[@@-18]|[@@-14]}
<POP 2468a-2468e StackAdj> Δ+10 {}
<MI 2468e MOVEQ.L #0x00,D7> {}
<MI 24690 MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<MI 24694 MOVEQ.L #0x00,D6> {[4, '(A6+0x8)']}
<POP 24696-2469a Naked> Σ-4 ↓ →0x246c0 ←0x2469a
<MI 24696 CMP.L (A7),D6> {[-4-]}
<MI 24698 BGT 0x246c0> {[-4-]}
<POP 2469a-246c0 Naked> Σ-4 ↓ →0x24696
<POP 2469a-2469c StackAdj> Δ-2 {[-6-]}
<MI 2469c MOVE.L (A6-0x12),-(A7)> Δ-4 {[-6-]|[4, '(A6-0x12)']}
<MI 246a0 ADD.L D6,(A7)> {[-10-]}
<Call 0x246a2 0x2257a> {[-10-]}
<POP 246a4-246a6 StackAdj> Δ+4 {[-6-]}
<MI 246a6 MOVE.W (A7)+,D0> Δ+2 {[-4-]}
<MI 246a8 EXTW.L D0> {[-4-]}
<MI 246aa ADD.L D0,D7> {[-4-]}
<MI 246ac MOVE.L D7,D4> {[-4-]}
<MI 246ae MOVE.L #0x100,D3> {[-4-]}
<Call 0x246b4 0x10294> {[-4-]}
?divs_d3_d4
<MI 246ba MOVE.L D3,D7> {[-4-]}
<MI 246bc ADDQ.L #0x1,D6> {[-4-]}
<MI 246be BVC 0x24696> {[-4-]}
<POP 246c0-247c2 Naked> Σ-4 Δ+4 ↓ →0x247f0 ←0x24696
<POP 246c0-246c2 StackAdj> Δ+4 {}
<MI 246c2 ADDI.L #0x00000100,D7> {}
<MI 246c8 MOVE.L (A6-0x12),D0> {}
<MI 246cc ADD.L (A6+0x8),D0> {}
<POP 246d0-246d2 StackAdj> Δ-2 {[-2-]}
<MI 246d2 MOVE.L D0,-(A7)> Δ-4 {[-2-]|[4, 'D0']}
<MI 246d4 SUBQ.L #0x5,(A7)> {[-6-]}
<Call 0x246d6 0x2257a> {[-6-]}
<POP 246d8-246da StackAdj> Δ+4 {[-2-]}
<MI 246da MOVE.W (A7)+,D1> Δ+2 {}
<MI 246dc EXTW.L D1> {}
<MI 246de SUB.L D1,D7> {}
<MI 246e0 MOVE.L D7,D4> {}
<MI 246e2 MOVE.L #0x100,D3> {}
<Call 0x246e8 0x10294> {}
?divs_d3_d4
<MI 246ee MOVE.L D3,D7> {}
<Blob 0x246f0 [18] @> Δ-18 {[«18""»]}
<POP 246fc-246fe StackAdj> Δ-8 {[«18""»]|[-8-]}
<MI 246fe MOVE.L (A6-0xe),-(A7)> Δ-4 {[«18""»]|[-8-]|[4, '(A6-0xe)']}
<Const 0x24702 0x8.4> Δ-4 {[«18""»]|[-8-]|[4, '(A6-0xe)']|[##8]}
<Call 0x24706 0x102f8> {[«18""»]|[-8-]|[4, '(A6-0xe)']|[##8]}
LeftPad(a : String; b : Long) : String
<POP 2470c-2470e StackAdj> Δ+4 {[«18""»]|[-8-]|[4, '(A6-0xe)']}
<Lit 0x2470e 18> {[«18""»]|[-8-]|[$$ prom: revision =_]}
<POP 2471a-2471c StackAdj> Δ-10 {[«18""»]|[-8-]|[$$ prom: revision =_]|[-10-]}
<MI 2471c MOVE.L D0,-(A7)> Δ-4 {[«18""»]|[-8-]|[$$ prom: revision =_]|[-10-]|[4, 'D0']}
<MI 2471e SUBQ.L #0x4,(A7)> {[«18""»]|[-8-]|[$$ prom: revision =_]|[-14-]}
<Call 0x24720 0x2257a> {[«18""»]|[-8-]|[$$ prom: revision =_]|[-14-]}
<POP 24722-24724 StackAdj> Δ+4 {[«18""»]|[-8-]|[$$ prom: revision =_]|[-10-]}
<MI 24724 MOVE.W (A7)+,D1> Δ+2 {[«18""»]|[-8-]|[$$ prom: revision =_]|[-8-]}
<MI 24726 EXTW.L D1> {[«18""»]|[-8-]|[$$ prom: revision =_]|[-8-]}
<MI 24728 MOVE.L D1,(A7)> {[«18""»]|[-8-]|[$$ prom: revision =_]|[-4-]|[4, 'D1']}
<Const 0x2472a 0x2.4> Δ-4 {[«18""»]|[-8-]|[$$ prom: revision =_]|[-4-]|[4, 'D1']|[##2]}
<Call 0x2472c 0x102e8> {[«18""»]|[-8-]|[$$ prom: revision =_]|[-4-]|[4, 'D1']|[##2]}
Long2HexString(val : Long; ndig : Long) : String
<POP 24732-24734 StackAdj> Δ-2 {[«18""»]|[-8-]|[$$ prom: revision =_]|[-4-]|[4, 'D1']|[##2]|[-2-]}
<MI 24734 MOVE.L D0,-(A7)> Δ-4 {[«18""»]|[-8-]|[$$ prom: revision =_]|[-4-]|[4, 'D1']|[##2]|[-2-]|[4, 'D0']}
<MI 24736 SUBQ.L #0x3,(A7)> {[«18""»]|[-8-]|[$$ prom: revision =_]|[-4-]|[4, 'D1']|[##2]|[-6-]}
<Call 0x24738 0x2257a> {[«18""»]|[-8-]|[$$ prom: revision =_]|[-4-]|[4, 'D1']|[##2]|[-6-]}
<POP 2473a-2473c StackAdj> Δ+4 {[«18""»]|[-8-]|[$$ prom: revision =_]|[-4-]|[4, 'D1']|[##2]|[-2-]}
<MI 2473c MOVE.W (A7)+,D1> Δ+2 {[«18""»]|[-8-]|[$$ prom: revision =_]|[-4-]|[4, 'D1']|[##2]}
<MI 2473e EXTW.L D1> {[«18""»]|[-8-]|[$$ prom: revision =_]|[-4-]|[4, 'D1']|[##2]}
<MI 24740 MOVE.L D1,(A7)> {[«18""»]|[-8-]|[$$ prom: revision =_]|[-4-]|[4, 'D1']|[4, 'D1']}
<Const 0x24742 0x2.4> Δ-4 {[«18""»]|[-8-]|[$$ prom: revision =_]|[-4-]|[4, 'D1']|[4, 'D1']|[##2]}
<Call 0x24744 0x102e8> {[«18""»]|[-8-]|[$$ prom: revision =_]|[-4-]|[4, 'D1']|[4, 'D1']|[##2]}
Long2HexString(val : Long; ndig : Long) : String
<POP 2474a-2474c StackAdj> Δ-2 {[«18""»]|[-8-]|[$$ prom: revision =_]|[-4-]|[4, 'D1']|[4, 'D1']|[##2]|[-2-]}
<MI 2474c MOVE.L D0,-(A7)> Δ-4 {[«18""»]|[-8-]|[$$ prom: revision =_]|[-4-]|[4, 'D1']|[4, 'D1']|[##2]|[-2-]|[4, 'D0']}
<MI 2474e SUBQ.L #0x2,(A7)> {[«18""»]|[-8-]|[$$ prom: revision =_]|[-4-]|[4, 'D1']|[4, 'D1']|[##2]|[-6-]}
<Call 0x24750 0x2257a> {[«18""»]|[-8-]|[$$ prom: revision =_]|[-4-]|[4, 'D1']|[4, 'D1']|[##2]|[-6-]}
<POP 24752-24754 StackAdj> Δ+4 {[«18""»]|[-8-]|[$$ prom: revision =_]|[-4-]|[4, 'D1']|[4, 'D1']|[##2]|[-2-]}
<MI 24754 MOVE.W (A7)+,D1> Δ+2 {[«18""»]|[-8-]|[$$ prom: revision =_]|[-4-]|[4, 'D1']|[4, 'D1']|[##2]}
<MI 24756 EXTW.L D1> {[«18""»]|[-8-]|[$$ prom: revision =_]|[-4-]|[4, 'D1']|[4, 'D1']|[##2]}
<MI 24758 MOVE.L D1,(A7)> {[«18""»]|[-8-]|[$$ prom: revision =_]|[-4-]|[4, 'D1']|[4, 'D1']|[4, 'D1']}
<Const 0x2475a 0x2.4> Δ-4 {[«18""»]|[-8-]|[$$ prom: revision =_]|[-4-]|[4, 'D1']|[4, 'D1']|[4, 'D1']|[##2]}
<Call 0x2475c 0x102e8> {[«18""»]|[-8-]|[$$ prom: revision =_]|[-4-]|[4, 'D1']|[4, 'D1']|[4, 'D1']|[##2]}
Long2HexString(val : Long; ndig : Long) : String
<POP 24762-24764 StackAdj> Δ+8 {[«18""»]|[-8-]|[$$ prom: revision =_]|[-4-]|[4, 'D1']|[4, 'D1']}
<Call 0x24764 0x102dc> {[«18""»]|[-8-]|[$$ prom: revision =_]|[-4-]|[4, 'D1']|[4, 'D1']}
StringCat5(a, b, c, d, e : String) : String
<POP 2476a-2476c StackAdj> Δ+20 {[«18""»]|[-4-]}
<Call 0x2476c 0x103d8> {[«18""»]|[-4-]}
WriteConsoleString(str : String)
<POP 24772-24773 StackAdj> Δ+22 ↓ {}
<Blob 0x24773 [16] @> Δ-16 {[«16""»]}
<POP 24782-24784 StackAdj> Δ-8 {[«16""»]|[-8-]}
<Lit 0x24784 15> {[«16""»]|[-4-]|[$$, locus byte =_]}
<POP 24790-24792 StackAdj> Δ-10 {[«16""»]|[-4-]|[$$, locus byte =_]|[-10-]}
<MI 24792 SUBQ.L #0x1,D0> {[«16""»]|[-4-]|[$$, locus byte =_]|[-10-]}
<MI 24794 MOVE.L D0,-(A7)> Δ-4 {[«16""»]|[-4-]|[$$, locus byte =_]|[-10-]|[4, 'D0']}
<Call 0x24796 0x2257a> {[«16""»]|[-4-]|[$$, locus byte =_]|[-10-]|[4, 'D0']}
<POP 24798-2479a StackAdj> Δ+4 {[«16""»]|[-4-]|[$$, locus byte =_]|[-10-]}
<MI 2479a MOVE.W (A7)+,D0> Δ+2 {[«16""»]|[-4-]|[$$, locus byte =_]|[-8-]}
<MI 2479c EXTW.L D0> {[«16""»]|[-4-]|[$$, locus byte =_]|[-8-]}
<MI 2479e MOVE.L D0,(A7)> {[«16""»]|[-4-]|[$$, locus byte =_]|[-4-]|[4, 'D0']}
<Const 0x247a0 0x2.4> Δ-4 {[«16""»]|[-4-]|[$$, locus byte =_]|[-4-]|[4, 'D0']|[##2]}
<Call 0x247a2 0x102e8> {[«16""»]|[-4-]|[$$, locus byte =_]|[-4-]|[4, 'D0']|[##2]}
Long2HexString(val : Long; ndig : Long) : String
<POP 247a8-247aa StackAdj> Δ+8 {[«16""»]|[-4-]|[$$, locus byte =_]|[-4-]}
<Call 0x247aa 0x102d0> {[«16""»]|[-4-]|[$$, locus byte =_]|[-4-]}
StringCat2(a, b : String) : String
<POP 247b0-247b2 StackAdj> Δ+8 {[«16""»]|[-4-]}
<Call 0x247b2 0x103d8> {[«16""»]|[-4-]}
WriteConsoleString(str : String)
<POP 247b8-247ba StackAdj> Δ+20 {}
<MI 247ba CMPI.L #0x000000aa,D7> {}
<MI 247c0 BEQ 0x247f0> {}
<POP 247c2-247f0 Naked> Σ0 →0x24818
<Blob 0x247c2 [22] @> Δ-22 {[«22""»]}
<POP 247d4-247d6 StackAdj> Δ-4 {[«22""»]|[-4-]}
<Lit 0x247d6 21> {[«22""»]|[$$, CHECKSUM IS BAD ***]}
<Call 0x247e4 0x103e0> {[«22""»]|[$$, CHECKSUM IS BAD ***]}
WriteConsoleStringCrLf(str : String)
<POP 247ea-247ee StackAdj> Δ+26 {}
<MI 247ee BRA 0x24818> {}
<POP 247f0-24818 Naked> Σ0 ↓ ←0x246c0
<Blob 0x247f0 [4] @> Δ-4 {[«4""»]}
<Blob 0x247f4 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x247f8 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x247fc [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 24800-24802 StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x24802 16> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$, checksum is OK]}
<Call 0x24810 0x103e0> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$, checksum is OK]}
WriteConsoleStringCrLf(str : String)
<POP 24816-24818 StackAdj> Δ+20 {}
<POP 24818-24820 Epilogue> Σ0 ←0x247c2
@ 24820
<LVAR -0x004 @>
<POP 24820-248ce Body>
<POP 24820-24836 Prologue> Σ0 ↓
<POP 24836-2483e RegCacheLoad> Σ0 ↓
<POP 2483e-24872 Naked> Σ0 ↓ →0x2487e
<Const 0x2483e 0x21.2> Δ-2 {[#33]}
<Const 0x24842 0x1fff.4> Δ-4 {[#33]|[##8191]}
<Call 0x24844 0x24652> {[#33]|[##8191]}
<POP 24846-24848 StackAdj> Δ+4 {[#33]}
<POP 24848-24849 StackAdj> Δ+2 {}
<Const 0x24849 0x19.2> Δ-2 {[#25]}
<Const 0x2484c 0x1fff.4> Δ-4 {[#25]|[##8191]}
<Call 0x2484e 0x24652> {[#25]|[##8191]}
<POP 24850-24852 StackAdj> Δ+4 {[#25]}
<POP 24852-24853 StackAdj> Δ+2 {}
<Const 0x24853 0x17.2> Δ-2 {[#23]}
<Const 0x24856 0x1fff.4> Δ-4 {[#23]|[##8191]}
<Call 0x24858 0x24652> {[#23]|[##8191]}
<POP 2485a-2485c StackAdj> Δ+4 {[#23]}
<POP 2485c-2485d StackAdj> Δ+2 {}
<Const 0x2485d 0x15.2> Δ-2 {[#21]}
<Const 0x24860 0x1dff.4> Δ-4 {[#21]|[##7679]}
<Call 0x24864 0x24652> {[#21]|[##7679]}
<POP 24866-24868 StackAdj> Δ+4 {[#21]}
<Call 0x24868 0x10604> {[#21]}
Is_machine_type_three() : Bool
<MI 2486e TST.B (A7)+> Δ+2 {}
<MI 24870 BNE 0x2487e> {}
<POP 24872-2487e Naked> Σ0 ↓ →0x248c6
<POP 24872-24874 StackAdj> Δ-2 {[-2-]}
<Call 0x24874 0x1060a> {[-2-]}
Is_machine_type_four() : Bool
<MI 2487a TST.B (A7)+> Δ+2 {}
<MI 2487c BEQ 0x248c6> {}
<POP 2487e-248c6 Naked> Σ0 ↓ ←0x2483e
<Const 0x2487e 0x0.4> Δ-4 {[##0]}
<Pointer.fp 0x24882 <LVAR -0x004 @>> Δ-4 {[##0]|[@@-4]}
<Call 0x24886 0x254aa> {[##0]|[@@-4]}
<POP 2488c-2488e StackAdj> Δ+8 {}
<Const 0x2488e 0x1.4> Δ-4 {[##1]}
<Pointer.fp 0x24892 <LVAR -0x004 @>> Δ-4 {[##1]|[@@-4]}
<Call 0x24896 0x254aa> {[##1]|[@@-4]}
<POP 2489c-2489e StackAdj> Δ+6 {[-2-]}
<POP 2489e-2489f StackAdj> Δ+2 {}
<Const 0x2489f 0x50.2> Δ-2 {[#80]}
<Const 0x248a2 0x1fff.4> Δ-4 {[#80]|[##8191]}
<Call 0x248a4 0x24652> {[#80]|[##8191]}
<POP 248a6-248a8 StackAdj> Δ+4 {[#80]}
<POP 248a8-248a9 StackAdj> Δ+2 {}
<Const 0x248a9 0x51.2> Δ-2 {[#81]}
<Const 0x248ac 0x1fff.4> Δ-4 {[#81]|[##8191]}
<Call 0x248ae 0x24652> {[#81]|[##8191]}
<POP 248b0-248b2 StackAdj> Δ+4 {[#81]}
<POP 248b2-248b3 StackAdj> Δ+2 {}
<Const 0x248b3 0x52.2> Δ-2 {[#82]}
<Const 0x248b6 0x1fff.4> Δ-4 {[#82]|[##8191]}
<Call 0x248b8 0x24652> {[#82]|[##8191]}
<POP 248ba-248bc StackAdj> Δ+4 {[#82]}
<POP 248bc-248bd StackAdj> Δ+2 {}
<Const 0x248bd 0x53.2> Δ-2 {[#83]}
<Const 0x248c0 0x1fff.4> Δ-4 {[#83]|[##8191]}
<Call 0x248c2 0x24652> {[#83]|[##8191]}
<POP 248c4-248c6 StackAdj> Δ+6 {}
<POP 248c6-248ce Epilogue> Σ0 ←0x24872
@ 248ce
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 4(r)>
<POP 248ce-249f6 Body>
<POP 248ce-248e4 Prologue> Σ0 ↓
<POP 248e4-248f4 RegCacheLoad> Σ0 ↓
<POP 248f4-2491e Naked> Σ0 ↓ →0x249ee
<MI 248f4 CLR.L (A4+0xa)> {}
<MI 248f8 MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<MI 248fc CLR.B -(A7)> Δ-2 {[4, '(A6+0x8)']|[#0]}
<Const 0x248fe 0x1.2> Δ-2 {[4, '(A6+0x8)']|[#0]|[#1]}
<Const 0x24900 0x0.4> Δ-4 {[4, '(A6+0x8)']|[#0]|[#1]|[##0]}
<MI 24904 PEA.L (A4+0x8)> Δ-4 {[4, '(A6+0x8)']|[#0]|[#1]|[##0]|[4, '^(A4+0x8)']}
<Pointer.fp 0x24908 <LVAR -0x004 @ 4(r)>> Δ-4 {[4, '(A6+0x8)']|[#0]|[#1]|[##0]|[4, '^(A4+0x8)']|[@@-4]}
<Call 0x2490c 0x10380> {[4, '(A6+0x8)']|[#0]|[#1]|[##0]|[4, '^(A4+0x8)']|[@@-4]}
OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
<POP 24912-24916 StackAdj> Δ+20 {}
<MI 24916 TST.B (A4+0x8)> {}
<MI 2491a BNE 0x249ee> {}
<POP 2491e-24946 Naked> Σ0 ↓ →0x249ca
<MI 2491e PEA.L (A4+0x4)> Δ-4 {[4, '^(A4+0x4)']}
<Call 0x24920 0x102b8> {[4, '^(A4+0x4)']}
NewString(VAR a : String)
<MI 24926 MOVE.L (A6-0x4),(A7)> {[4, '(A6-0x4)']}
<MI 2492a PEA.L (A4+0x4)> Δ-4 {[4, '(A6-0x4)']|[4, '^(A4+0x4)']}
<MI 2492c PEA.L (A4+0x9)> Δ-4 {[4, '(A6-0x4)']|[4, '^(A4+0x4)']|[4, '^(A4+0x9)']}
<Call 0x24930 0x1043c> {[4, '(A6-0x4)']|[4, '^(A4+0x4)']|[4, '^(A4+0x9)']}
FileReadLine(file : File; VAR a : String; VAR b : Byte)
<POP 24936-2493a StackAdj> Δ+12 {}
<MI 2493a MOVEA.L (A4+0x4),A0> {}
<MI 2493c MOVE.W (A0),D0> {}
<MI 2493e CMPI.W #0x0009,D0> {}
<MI 24942 BNE 0x249ca> {}
<POP 24946-24950 Naked> Σ0 ↓ →0x249ca
<MI 24946 MOVE.B (A0+0x4),D0> {}
<MI 2494a CMPI.B #0x20,D0> {}
<MI 2494e BNE 0x249ca> {}
<POP 24950-249ca Naked> Σ0 ↓
<POP 24950-24952 StackAdj> Δ-4 {[-4-]}
<MI 24952 MOVE.B (A0+0x5),-(A7)> Δ-2 {[-4-]|[2, '(A0+0x5)']}
<Call 0x24956 0x213d0> {[-4-]|[2, '(A0+0x5)']}
<POP 24958-2495a StackAdj> Δ+2 {[-4-]}
<MI 2495a MOVE.L (A7)+,D3> Δ+4 {}
<MI 2495c MOVE.L #0x100000,D4> {}
<Call 0x24962 0x1028c> {}
?muls_d3_d4
<MI 24964 MOVE.L D4,-(A7)> Δ-4 {[4, 'D4']}
<POP 24966-24968 StackAdj> Δ-4 {[4, 'D4']|[-4-]}
<MI 24968 MOVE.B (A0+0x6),-(A7)> Δ-2 {[4, 'D4']|[-4-]|[2, '(A0+0x6)']}
<Call 0x2496c 0x213d0> {[4, 'D4']|[-4-]|[2, '(A0+0x6)']}
<POP 2496e-24970 StackAdj> Δ+2 {[4, 'D4']|[-4-]}
<MI 24970 MOVE.L (A7)+,D3> Δ+4 {[4, 'D4']}
<MI 24972 MOVE.L #0x10000,D4> {[4, 'D4']}
<Call 0x24978 0x1028c> {[4, 'D4']}
?muls_d3_d4
<MI 2497a MOVE.L (A7),D0> {[4, 'D4']}
<MI 2497c ADD.L D4,D0> {[4, 'D4']}
<MI 2497e MOVE.B (A0+0x7),-(A7)> Δ-2 {[4, 'D4']|[2, '(A0+0x7)']}
<Call 0x24982 0x213d0> {[4, 'D4']|[2, '(A0+0x7)']}
<POP 24984-24986 StackAdj> Δ+2 {[4, 'D4']}
<MI 24986 MOVE.L (A7)+,D3> Δ+4 {}
<MI 24988 MOVE.L #0x1000,D4> {}
<Call 0x2498e 0x1028c> {}
?muls_d3_d4
<MI 24990 ADD.L D4,D0> {}
<POP 24992-24994 StackAdj> Δ-4 {[-4-]}
<MI 24994 MOVE.B (A0+0x8),-(A7)> Δ-2 {[-4-]|[2, '(A0+0x8)']}
<Call 0x24998 0x213d0> {[-4-]|[2, '(A0+0x8)']}
<POP 2499a-2499c StackAdj> Δ+2 {[-4-]}
<MI 2499c MOVE.L (A7)+,D3> Δ+4 {}
<MI 2499e MOVE.L #0x100,D4> {}
<Call 0x249a4 0x1028c> {}
?muls_d3_d4
<MI 249a6 ADD.L D4,D0> {}
<POP 249a8-249aa StackAdj> Δ-4 {[-4-]}
<MI 249aa MOVE.B (A0+0x9),-(A7)> Δ-2 {[-4-]|[2, '(A0+0x9)']}
<Call 0x249ae 0x213d0> {[-4-]|[2, '(A0+0x9)']}
<POP 249b0-249b2 StackAdj> Δ+2 {[-4-]}
<MI 249b2 MOVE.L (A7)+,D3> Δ+4 {}
<MI 249b4 MOVEQ.L #0x10,D4> {}
<Call 0x249b6 0x1028c> {}
?muls_d3_d4
<MI 249b8 ADD.L D4,D0> {}
<POP 249ba-249bc StackAdj> Δ-4 {[-4-]}
<MI 249bc MOVE.B (A0+0xa),-(A7)> Δ-2 {[-4-]|[2, '(A0+0xa)']}
<Call 0x249c0 0x213d0> {[-4-]|[2, '(A0+0xa)']}
<POP 249c2-249c4 StackAdj> Δ+2 {[-4-]}
<MI 249c4 ADD.L (A7)+,D0> Δ+4 {}
<MI 249c6 MOVE.L D0,(A4+0xa)> {}
<POP 249ca-249ee Naked> Σ0 ↓ ←0x2491e ←0x24946
<MI 249ca CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x249cc 0x1.2> Δ-2 {[#0]|[#1]}
<Const 0x249ce 0x1.4> Δ-4 {[#0]|[#1]|[##1]}
<MI 249d2 PEA.L (A4+0x8)> Δ-4 {[#0]|[#1]|[##1]|[4, '^(A4+0x8)']}
<Pointer.fp 0x249d6 <LVAR -0x004 @ 4(r)>> Δ-4 {[#0]|[#1]|[##1]|[4, '^(A4+0x8)']|[@@-4]}
<Call 0x249da 0x1038c> {[#0]|[#1]|[##1]|[4, '^(A4+0x8)']|[@@-4]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 249e0-249e4 StackAdj> Δ+16 {}
<MI 249e4 PEA.L (A4+0x4)> Δ-4 {[4, '^(A4+0x4)']}
<Call 0x249e6 0x102bc> {[4, '^(A4+0x4)']}
FreeString(VAR a : String)
<POP 249ec-249ee StackAdj> Δ+4 {}
<POP 249ee-249f6 Epilogue> Σ0 ←0x248f4
@ 249f6
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 4(r)>
<POP 249f6-24a6c Body>
<POP 249f6-24a0c Prologue> Σ0 ↓
<POP 24a0c-24a10 RegCacheLoad> Σ0 ↓
<POP 24a10-24a5c Naked> Σ0 ↓ →0x24a64
<MI 24a10 CLR.L (A6-0x4)> {}
<MI 24a12 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<MI 24a16 LEA.L (A6-0x4),A0> {[4, '(A6+0xc)']}
<MI 24a18 MOVE.L A0,-(A7)> Δ-4 {[4, '(A6+0xc)']|[4, 'A0']}
<MI 24a1a ADDQ.L #0x1,(A7)> {[4, '(A6+0xc)']|[-4-]}
<Const 0x24a1c 0x3.2> Δ-2 {[4, '(A6+0xc)']|[-4-]|[#3]}
<Call 0x24a20 0x10238> {[4, '(A6+0xc)']|[-4-]|[#3]}
KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
<POP 24a26-24a28 StackAdj> Δ+6 {[4, '(A6+0xc)']}
<MI 24a28 MOVE.L (A4),(A7)> {[4, '(A4)']}
<POP 24a2a-24a2c StackAdj> Δ-8 {[4, '(A4)']|[-8-]}
<MI 24a2c MOVE.L (A6-0x4),-(A7)> Δ-4 {[4, '(A4)']|[-8-]|[4, '(A6-0x4)']}
<Const 0x24a2e 0x6.4> Δ-4 {[4, '(A4)']|[-8-]|[4, '(A6-0x4)']|[##6]}
<Call 0x24a32 0x102e8> {[4, '(A4)']|[-8-]|[4, '(A6-0x4)']|[##6]}
Long2HexString(val : Long; ndig : Long) : String
<POP 24a38-24a3a StackAdj> Δ+4 {[4, '(A4)']|[-8-]|[4, '(A6-0x4)']}
<MI 24a3a MOVE.L (A6+0x8),(A7)> {[4, '(A4)']|[-8-]|[4, '(A6+0x8)']}
<Call 0x24a3e 0x102d0> {[4, '(A4)']|[-8-]|[4, '(A6+0x8)']}
StringCat2(a, b : String) : String
<POP 24a44-24a46 StackAdj> Δ+8 {[4, '(A4)']|[-4-]}
<MI 24a46 PEA.L (A4+0x9)> Δ-4 {[4, '(A4)']|[-4-]|[4, '^(A4+0x9)']}
<Call 0x24a4a 0x10440> {[4, '(A4)']|[-4-]|[4, '^(A4+0x9)']}
FSCALL_10440
<POP 24a50-24a54 StackAdj> Δ+12 {}
<MI 24a54 MOVE.L (A6-0x4),D0> {}
<MI 24a56 CMP.L (A4+0xa),D0> {}
<MI 24a5a BCC 0x24a64> {}
<POP 24a5c-24a64 Naked> Σ0 ↓
<MI 24a5c MOVEA.L (A4+0x18),A0> {}
<MI 24a60 MOVE.B #0x01,(A0)> {}
<POP 24a64-24a6c Epilogue> Σ0 ←0x24a10
@ 24a6c
<LVAR 0x008 4(r)>
<LVAR -0x006 4(r)>
<LVAR -0x007 @>
<LVAR -0x008 @>
<LVAR -0x00c 4(rw)>
<LVAR -0x010 @ 4(r)>
<POP 24a6c-24daa Body>
<POP 24a6c-24a82 Prologue> Σ0 ↓
<POP 24a82-24a92 RegCacheLoad> Σ0 ↓
<POP 24a92-24ba2 Naked> Σ0 Δ-4 ↓ →0x24bee
<MI 24a92 MOVEA.L (A6+0x8),A0> {}
<MI 24a96 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 24a98 CLR.B (A0)> {[4, 'A0']}
<Blob 0x24a9a [12] @> Δ-12 {[4, 'A0']|[«12""»]}
<POP 24aaa-24aac StackAdj> Δ-4 {[4, 'A0']|[«12""»]|[-4-]}
<Lit 0x24aac 11> {[4, 'A0']|[«12""»]|[$$EEPROM_REVS]}
<POP 24aba-24abc StackAdj> Δ-2 {[4, 'A0']|[«12""»]|[$$EEPROM_REVS]|[-2-]}
<POP 24abc-24abd StackAdj> Δ+2 {[4, 'A0']|[«12""»]|[$$EEPROM_REVS]}
<Const 0x24abd 0x1.2> Δ-2 {[4, 'A0']|[«12""»]|[$$EEPROM_REVS]|[#1]}
<Const 0x24abe 0x1.2> Δ-2 {[4, 'A0']|[«12""»]|[$$EEPROM_REVS]|[#1]|[#1]}
<Const 0x24ac0 0x1.4> Δ-4 {[4, 'A0']|[«12""»]|[$$EEPROM_REVS]|[#1]|[#1]|[##1]}
<Pointer.fp 0x24ac4 <LVAR -0x008 @>> Δ-4 {[4, 'A0']|[«12""»]|[$$EEPROM_REVS]|[#1]|[#1]|[##1]|[@@-8]}
<Pointer.fp 0x24ac8 <LVAR -0x010 @ 4(r)>> Δ-4 {[4, 'A0']|[«12""»]|[$$EEPROM_REVS]|[#1]|[#1]|[##1]|[@@-8]|[@@-16]}
<Call 0x24aca 0x10380> {[4, 'A0']|[«12""»]|[$$EEPROM_REVS]|[#1]|[#1]|[##1]|[@@-8]|[@@-16]}
OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
<POP 24ad0-24ad4 StackAdj> Δ+28 {[4, 'A0']|[-4-]}
<POP 24ad4-24ad5 StackAdj> Δ+4 {[4, 'A0']}
<Blob 0x24ad5 [4] 0x29754> Δ-4 {[4, 'A0']|[«4»]}
<MI 24ada LEA.L (A6-0x10),A4> {[4, 'A0']|[«4»]}
<Call 0x24adc 0x248ce> {[4, 'A0']|[«4»]}
<POP 24ae0-24ae1 StackAdj> Δ+4 ↓ {[4, 'A0']}
<Blob 0x24ae1 [16] @> Δ-16 {[4, 'A0']|[«16""»]}
<Const 0x24af0 0x80001ffb.4> Δ-4 {[4, 'A0']|[«16""»]|[##2147491835]}
<POP 24af6-24af8 StackAdj> Δ-4 {[4, 'A0']|[«16""»]|[##2147491835]|[-4-]}
<Lit 0x24af8 15> {[4, 'A0']|[«16""»]|[##2147491835]|[$$ --IOC_SELFTEST]}
<MI 24b0a LEA.L (A6-0x10),A4> {[4, 'A0']|[«16""»]|[##2147491835]|[$$ --IOC_SELFTEST]}
<Call 0x24b0c 0x249f6> {[4, 'A0']|[«16""»]|[##2147491835]|[$$ --IOC_SELFTEST]}
<POP 24b10-24b11 StackAdj> Δ+24 ↓ {[4, 'A0']}
<Blob 0x24b11 [12] @> Δ-12 {[4, 'A0']|[«12""»]}
<Const 0x24b20 0x80003ffb.4> Δ-4 {[4, 'A0']|[«12""»]|[##2147500027]}
<POP 24b26-24b28 StackAdj> Δ-4 {[4, 'A0']|[«12""»]|[##2147500027]|[-4-]}
<Lit 0x24b28 11> {[4, 'A0']|[«12""»]|[##2147500027]|[$$ --IOC_BOOT]}
<MI 24b38 LEA.L (A6-0x10),A4> {[4, 'A0']|[«12""»]|[##2147500027]|[$$ --IOC_BOOT]}
<Call 0x24b3a 0x249f6> {[4, 'A0']|[«12""»]|[##2147500027]|[$$ --IOC_BOOT]}
<POP 24b3e-24b3f StackAdj> Δ+20 ↓ {[4, 'A0']}
<Blob 0x24b3f [12] @> Δ-12 {[4, 'A0']|[«12""»]}
<Const 0x24b4e 0x80005ffb.4> Δ-4 {[4, 'A0']|[«12""»]|[##2147508219]}
<POP 24b54-24b56 StackAdj> Δ-4 {[4, 'A0']|[«12""»]|[##2147508219]|[-4-]}
<Lit 0x24b56 11> {[4, 'A0']|[«12""»]|[##2147508219]|[$$ --UTIL/DEB]}
<MI 24b66 LEA.L (A6-0x10),A4> {[4, 'A0']|[«12""»]|[##2147508219]|[$$ --UTIL/DEB]}
<Call 0x24b68 0x249f6> {[4, 'A0']|[«12""»]|[##2147508219]|[$$ --UTIL/DEB]}
<POP 24b6c-24b6d StackAdj> Δ+20 ↓ {[4, 'A0']}
<Blob 0x24b6d [12] @> Δ-12 {[4, 'A0']|[«12""»]}
<Const 0x24b7c 0x80007dfb.4> Δ-4 {[4, 'A0']|[«12""»]|[##2147515899]}
<POP 24b82-24b84 StackAdj> Δ-4 {[4, 'A0']|[«12""»]|[##2147515899]|[-4-]}
<Lit 0x24b84 11> {[4, 'A0']|[«12""»]|[##2147515899]|[$$ --NET/DEB2]}
<MI 24b94 LEA.L (A6-0x10),A4> {[4, 'A0']|[«12""»]|[##2147515899]|[$$ --NET/DEB2]}
<Call 0x24b96 0x249f6> {[4, 'A0']|[«12""»]|[##2147515899]|[$$ --NET/DEB2]}
<POP 24b9a-24b9c StackAdj> Δ+20 {[4, 'A0']}
<MI 24b9c TST.L (A6-0x6)> {[4, 'A0']}
<MI 24ba0 BNE 0x24bee> {[4, 'A0']}
<POP 24ba2-24bee Naked> Σ-4 ↓
<Blob 0x24ba2 [76] @> Δ-76 {[-4-]|[«76""»]}
<POP 24bb4-24bb6 StackAdj> Δ-4 {[-4-]|[«76""»]|[-4-]}
<Lit 0x24bb6 75> {[-4-]|[«76""»]|[$$>>> IOC EEPROM file was missing or obsolete: did not check EEPROM revisions]}
<MI 24bc8 MOVE.L (A7)+,(A6-0xc)> Δ+4 {[-4-]|[«76""»]}
<POP 24bcc-24bd0 StackAdj> Δ+72 {[-4-]|[-4-]}
<MI 24bd0 MOVE.L (A6-0x10),(A7)> {[-4-]|[4, '(A6-0x10)']}
<MI 24bd2 MOVE.L (A6-0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x10)']|[4, '(A6-0xc)']}
<Pointer.fp 0x24bd6 <LVAR -0x007 @>> Δ-4 {[-4-]|[4, '(A6-0x10)']|[4, '(A6-0xc)']|[@@-7]}
<Call 0x24bda 0x10440> {[-4-]|[4, '(A6-0x10)']|[4, '(A6-0xc)']|[@@-7]}
FSCALL_10440
<POP 24be0-24be2 StackAdj> Δ+8 {[-4-]|[4, '(A6-0x10)']}
<MI 24be2 MOVE.L (A6-0xc),(A7)> {[-4-]|[4, '(A6-0xc)']}
<Call 0x24be6 0x103e0> {[-4-]|[4, '(A6-0xc)']}
WriteConsoleStringCrLf(str : String)
<POP 24bec-24bee StackAdj> Δ+4 {[-4-]}
<POP 24bee-24bfa Naked> Σ-4 ↓ →0x24c08 ←0x24a92
<POP 24bee-24bf0 StackAdj> Δ-2 {[-6-]}
<Call 0x24bf0 0x1060a> {[-6-]}
Is_machine_type_four() : Bool
<MI 24bf6 TST.B (A7)+> Δ+2 {[-4-]}
<MI 24bf8 BNE 0x24c08> {[-4-]}
<POP 24bfa-24c08 Naked> Σ-4 ↓ →0x24d82
<POP 24bfa-24bfc StackAdj> Δ-2 {[-6-]}
<Call 0x24bfc 0x10604> {[-6-]}
Is_machine_type_three() : Bool
<MI 24c02 TST.B (A7)+> Δ+2 {[-4-]}
<MI 24c04 BEQ 0x24d82> {[-4-]}
<POP 24c08-24cd4 Naked> Σ-4 ↓ →0x24d20 ←0x24bee
<Blob 0x24c08 [4] 0x29758> Δ-4 {[-4-]|[«4»]}
<MI 24c0e LEA.L (A6-0x10),A4> {[-4-]|[«4»]}
<Call 0x24c10 0x248ce> {[-4-]|[«4»]}
<POP 24c14-24c15 StackAdj> Δ+4 ↓ {[-4-]}
<Blob 0x24c15 [14] @> Δ-14 {[-4-]|[«14""»]}
<Const 0x24c26 0x71ffb.4> Δ-4 {[-4-]|[«14""»]|[##466939]}
<POP 24c2c-24c2e StackAdj> Δ-4 {[-4-]|[«14""»]|[##466939]|[-4-]}
<Lit 0x24c2e 13> {[-4-]|[«14""»]|[##466939]|[$$ --RESHA_TEST]}
<MI 24c3e LEA.L (A6-0x10),A4> {[-4-]|[«14""»]|[##466939]|[$$ --RESHA_TEST]}
<Call 0x24c40 0x249f6> {[-4-]|[«14""»]|[##466939]|[$$ --RESHA_TEST]}
<POP 24c44-24c45 StackAdj> Δ+22 ↓ {[-4-]}
<Blob 0x24c45 [14] @> Δ-14 {[-4-]|[«14""»]}
<Const 0x24c54 0x73ffb.4> Δ-4 {[-4-]|[«14""»]|[##475131]}
<POP 24c5a-24c5c StackAdj> Δ-4 {[-4-]|[«14""»]|[##475131]|[-4-]}
<Lit 0x24c5c 13> {[-4-]|[«14""»]|[##475131]|[$$ --LANCE_BOOT]}
<MI 24c6c LEA.L (A6-0x10),A4> {[-4-]|[«14""»]|[##475131]|[$$ --LANCE_BOOT]}
<Call 0x24c6e 0x249f6> {[-4-]|[«14""»]|[##475131]|[$$ --LANCE_BOOT]}
<POP 24c72-24c76 StackAdj> Δ+18 {[-4-]|[-4-]}
<POP 24c76-24c77 StackAdj> Δ+4 {[-4-]}
<Blob 0x24c77 [4] @> Δ-4 {[-4-]|[«4""»]}
<Blob 0x24c7a [4] @> Δ-4 {[-4-]|[«4""»]|[«4""»]}
<Blob 0x24c7e [4] @> Δ-4 {[-4-]|[«4""»]|[«4""»]|[«4""»]}
<Const 0x24c82 0x75ffb.4> Δ-4 {[-4-]|[«4""»]|[«4""»]|[«4""»]|[##483323]}
<POP 24c88-24c8a StackAdj> Δ-4 {[-4-]|[«4""»]|[«4""»]|[«4""»]|[##483323]|[-4-]}
<Lit 0x24c8a 12> {[-4-]|[«4""»]|[«4""»]|[«4""»]|[##483323]|[$$ --DISK_BOOT]}
<MI 24c9a LEA.L (A6-0x10),A4> {[-4-]|[«4""»]|[«4""»]|[«4""»]|[##483323]|[$$ --DISK_BOOT]}
<Call 0x24c9c 0x249f6> {[-4-]|[«4""»]|[«4""»]|[«4""»]|[##483323]|[$$ --DISK_BOOT]}
<POP 24ca0-24ca2 StackAdj> Δ+16 {[-4-]|[«4""»]}
<POP 24ca2-24ca3 StackAdj> Δ+4 {[-4-]}
<Blob 0x24ca3 [4] @> Δ-4 {[-4-]|[«4""»]}
<Blob 0x24ca6 [4] @> Δ-4 {[-4-]|[«4""»]|[«4""»]}
<Blob 0x24caa [4] @> Δ-4 {[-4-]|[«4""»]|[«4""»]|[«4""»]}
<Const 0x24cae 0x77ffb.4> Δ-4 {[-4-]|[«4""»]|[«4""»]|[«4""»]|[##491515]}
<POP 24cb4-24cb6 StackAdj> Δ-4 {[-4-]|[«4""»]|[«4""»]|[«4""»]|[##491515]|[-4-]}
<Lit 0x24cb6 12> {[-4-]|[«4""»]|[«4""»]|[«4""»]|[##491515]|[$$ --TAPE_BOOT]}
<MI 24cc6 LEA.L (A6-0x10),A4> {[-4-]|[«4""»]|[«4""»]|[«4""»]|[##491515]|[$$ --TAPE_BOOT]}
<Call 0x24cc8 0x249f6> {[-4-]|[«4""»]|[«4""»]|[«4""»]|[##491515]|[$$ --TAPE_BOOT]}
<POP 24ccc-24cce StackAdj> Δ+20 {[-4-]}
<MI 24cce TST.L (A6-0x6)> {[-4-]}
<MI 24cd2 BNE 0x24d20> {[-4-]}
<POP 24cd4-24d20 Naked> Σ-4 ↓
<Blob 0x24cd4 [78] @> Δ-78 {[-4-]|[«78""»]}
<POP 24ce6-24ce8 StackAdj> Δ-4 {[-4-]|[«78""»]|[-4-]}
<Lit 0x24ce8 77> {[-4-]|[«78""»]|[$$>>> RESHA EEPROM file was missing or obsolete: did not check EEPROM revisions]}
<MI 24cfa MOVE.L (A7)+,(A6-0xc)> Δ+4 {[-4-]|[«78""»]}
<POP 24cfe-24d02 StackAdj> Δ+74 {[-4-]|[-4-]}
<MI 24d02 MOVE.L (A6-0x10),(A7)> {[-4-]|[4, '(A6-0x10)']}
<MI 24d04 MOVE.L (A6-0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x10)']|[4, '(A6-0xc)']}
<Pointer.fp 0x24d08 <LVAR -0x007 @>> Δ-4 {[-4-]|[4, '(A6-0x10)']|[4, '(A6-0xc)']|[@@-7]}
<Call 0x24d0c 0x10440> {[-4-]|[4, '(A6-0x10)']|[4, '(A6-0xc)']|[@@-7]}
FSCALL_10440
<POP 24d12-24d14 StackAdj> Δ+8 {[-4-]|[4, '(A6-0x10)']}
<MI 24d14 MOVE.L (A6-0xc),(A7)> {[-4-]|[4, '(A6-0xc)']}
<Call 0x24d18 0x103e0> {[-4-]|[4, '(A6-0xc)']}
WriteConsoleStringCrLf(str : String)
<POP 24d1e-24d20 StackAdj> Δ+4 {[-4-]}
<POP 24d20-24d26 Naked> Σ-4 ↓ →0x24d82 ←0x24c08
<MI 24d20 MOVEA.L (A7),A0> {[-4-]}
<MI 24d22 TST.B (A0)> {[-4-]}
<MI 24d24 BEQ 0x24d82> {[-4-]}
<POP 24d26-24d32 Naked> Σ-4 ↓ →0x24d82
<POP 24d26-24d28 StackAdj> Δ-2 {[-6-]}
<Call 0x24d28 0x25402> {[-6-]}
<MI 24d2e TST.B (A7)+> Δ+2 {[-4-]}
<MI 24d30 BEQ 0x24d82> {[-4-]}
<POP 24d32-24d82 Naked> Σ-4 ↓
<Blob 0x24d32 [66] @> Δ-66 {[-4-]|[«66""»]}
<POP 24d44-24d46 StackAdj> Δ-4 {[-4-]|[«66""»]|[-4-]}
<Lit 0x24d46 65> {[-4-]|[«66""»]|[$$>>> the EEPROMS need updating but the EPROM WRT PROT switch is on]}
<MI 24d58 MOVE.L (A7)+,(A6-0xc)> Δ+4 {[-4-]|[«66""»]}
<POP 24d5c-24d60 StackAdj> Δ+62 {[-4-]|[-4-]}
<MI 24d60 MOVE.L (A6-0x10),(A7)> {[-4-]|[4, '(A6-0x10)']}
<MI 24d62 MOVE.L (A6-0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x10)']|[4, '(A6-0xc)']}
<Pointer.fp 0x24d66 <LVAR -0x007 @>> Δ-4 {[-4-]|[4, '(A6-0x10)']|[4, '(A6-0xc)']|[@@-7]}
<Call 0x24d6a 0x10440> {[-4-]|[4, '(A6-0x10)']|[4, '(A6-0xc)']|[@@-7]}
FSCALL_10440
<POP 24d70-24d72 StackAdj> Δ+8 {[-4-]|[4, '(A6-0x10)']}
<MI 24d72 MOVE.L (A6-0xc),(A7)> {[-4-]|[4, '(A6-0xc)']}
<Call 0x24d76 0x103e0> {[-4-]|[4, '(A6-0xc)']}
WriteConsoleStringCrLf(str : String)
<POP 24d7c-24d7e StackAdj> Δ+4 {[-4-]}
<MI 24d7e MOVEA.L (A7),A0> {[-4-]}
<MI 24d80 CLR.B (A0)> {[-4-]}
<POP 24d82-24da2 Naked> Σ-4 Δ+4 ↓ ←0x24bfa ←0x24d20 ←0x24d26
<MI 24d82 MOVE.L (A6-0x10),(A7)> {[4, '(A6-0x10)']}
<Call 0x24d84 0x10448> {[4, '(A6-0x10)']}
FSCALL_10448
<POP 24d8a-24d8c StackAdj> Δ+2 {[-2-]}
<MI 24d8c CLR.B (A7)> {[-2-]}
<Const 0x24d8e 0x1.2> Δ-2 {[-2-]|[#1]}
<Const 0x24d90 0x1.4> Δ-4 {[-2-]|[#1]|[##1]}
<Pointer.fp 0x24d94 <LVAR -0x008 @>> Δ-4 {[-2-]|[#1]|[##1]|[@@-8]}
<Pointer.fp 0x24d98 <LVAR -0x010 @ 4(r)>> Δ-4 {[-2-]|[#1]|[##1]|[@@-8]|[@@-16]}
<Call 0x24d9a 0x1038c> {[-2-]|[#1]|[##1]|[@@-8]|[@@-16]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 24da0-24da2 StackAdj> Δ+16 {}
<POP 24da2-24daa Epilogue> Σ0
@ 24daa
START
<POP 24daa--0001 Body> Δ+28
<POP 24daa-24db4 Prologue> Σ0
<POP 24db4-24dd0 RegCacheLoad> Σ0 ↓
<POP 24dd0-24ddc Naked> Σ0 ↓ →0x24de8
<POP 24dd0-24dd2 StackAdj> Δ-2 {[-2-]}
<Call 0x24dd2 0x1060a> {[-2-]}
Is_machine_type_four() : Bool
<MI 24dd8 TST.B (A7)+> Δ+2 {}
<MI 24dda BNE 0x24de8> {}
<POP 24ddc-24de8 Naked> Σ0 ↓ →0x24e1a
<POP 24ddc-24dde StackAdj> Δ-2 {[-2-]}
<Call 0x24dde 0x10604> {[-2-]}
Is_machine_type_three() : Bool
<MI 24de4 TST.B (A7)+> Δ+2 {}
<MI 24de6 BEQ 0x24e1a> {}
<POP 24de8-24e1a Naked> Σ0 Δ-16 →0x24e4a ←0x24dd0
<Blob 0x24de8 [14] @> Δ-14 {[«14""»]}
<POP 24df8-24dfa StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x24dfa 13> {[«14""»]|[$$IOC.M400_PROM]}
<MI 24e06 MOVE.L (A7)+,0x29754> Δ+4 {[«14""»]}
<POP 24e08-24e09 StackAdj> Δ+14 ↓ {}
<Blob 0x24e09 [16] @> Δ-16 {[«16""»]}
<MI 24e18 BRA 0x24e4a> {[«16""»]}
<POP 24e1a-24e4a Naked> Σ0 Δ-16 ↓ ←0x24ddc
<Blob 0x24e1a [14] @> Δ-14 {[«14""»]}
<POP 24e2a-24e2c StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x24e2c 13> {[«14""»]|[$$IOC.M200_PROM]}
<MI 24e38 MOVE.L (A7)+,0x29754> Δ+4 {[«14""»]}
<POP 24e3a-24e3b StackAdj> Δ+14 ↓ {}
<Blob 0x24e3b [16] @> Δ-16 {[«16""»]}
<POP 24e4a-24f1a Naked> Σ-16 Δ+12 ↓ ←0x24de8
<POP 24e4a-24e4c StackAdj> Δ-4 {[-20-]}
<Lit 0x24e4c> {[-16-]|[$$…]}
<Pointer.sp 0x24e4c 4> Δ-4
<Const 0x24e50 0x1.2> Δ-2
<Const 0x24e52 0xf.2> Δ-2
<Call 0x24e56 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 24e58-24e5a StackAdj> Δ+8
<MI 24e5a MOVE.L (A7)+,0x29758> Δ+4 {[-16-]}
<POP 24e60-24e64 StackAdj> Δ+16 {}
<POP 24e64-24e66 StackAdj> Δ-4 {[-4-]}
<Call 0x24e66 0x103c4> {[-4-]}
GetArgv() : String
<MI 24e6c MOVE.L (A7),0x29768> {[-4-]}
<POP 24e72-24e73 StackAdj> Δ+4 ↓ {}
<Blob 0x24e73 [12] @> Δ-12 {[«12""»]}
<POP 24e82-24e84 StackAdj> Δ-2 {[«12""»]|[-2-]}
<Blob 0x24e84 [4] 0x29768> Δ-4 {[«12""»]|[-2-]|[«4»]}
<POP 24e8a-24e8c StackAdj> Δ-4 {[«12""»]|[-2-]|[«4»]|[-4-]}
<Lit 0x24e8c 11> {[«12""»]|[-2-]|[«4»]|[$$AUTO_UPDATE]}
<Call 0x24e9a 0x102c8> {[«12""»]|[-2-]|[«4»]|[$$AUTO_UPDATE]}
StringEqual(a, b : String) : Byte
<POP 24ea0-24ea2 StackAdj> Δ+8 {[«12""»]|[-2-]}
<MI 24ea2 MOVE.B (A7)+,D0> Δ+2 {[«12""»]}
<MI 24ea4 EXTB.W D0> {[«12""»]}
<POP 0x24ea6 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[«12""»]}
<POP 24ea8-24eaa StackAdj> Δ+12 {}
<MI 24eaa MOVE.B D0,0x29753> {}
<Blob 0x24eb0 [8] @> Δ-8 {[«8""»]}
<POP 24ec0-24ec2 StackAdj> Δ-2 {[«8""»]|[-2-]}
<Blob 0x24ec2 [4] 0x29768> Δ-4 {[«8""»]|[-2-]|[«4»]}
<POP 24ec8-24eca StackAdj> Δ-4 {[«8""»]|[-2-]|[«4»]|[-4-]}
<Lit 0x24eca 7> {[«8""»]|[-2-]|[«4»]|[$$INSTALL]}
<Call 0x24ed8 0x102c8> {[«8""»]|[-2-]|[«4»]|[$$INSTALL]}
StringEqual(a, b : String) : Byte
<POP 24ede-24ee0 StackAdj> Δ+8 {[«8""»]|[-2-]}
<MI 24ee0 MOVE.B (A7)+,D0> Δ+2 {[«8""»]}
<MI 24ee2 EXTB.W D0> {[«8""»]}
<POP 0x24ee4 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[«8""»]}
<POP 24ee6-24ee8 StackAdj> Δ+8 {}
<MI 24ee8 MOVE.B D0,0x29752> {}
<Blob 0x24eee [40] @> Δ-40 {[«40""»]}
<POP 24efa-24efc StackAdj> Δ-4 {[«40""»]|[-4-]}
<Lit 0x24efc 40> {[«40""»]|[$$@(#)UPDATE_EEPROM,5.4,92/10/16,12:34:56\]}
<MI 24f0a MOVE.L (A7)+,0x29764> Δ+4 {[«40""»]}
<POP 24f0c-24f10 StackAdj> Δ+40 {}
<MI 24f10 MOVEA.L 0x29764,A0> {}
<MI 24f12 MOVE.W (A0),D0> {}
<MI 24f14 EXTW.L D0> {}
<MI 24f16 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 24f18 MOVEQ.L #0x01,D0> {[4, 'D0']}
<POP 24f1a-24f1e Naked> Σ-4 ↓ →0x24f50 ←0x24f4c
<MI 24f1a CMP.L (A7),D0> {[-4-]}
<MI 24f1c BGT 0x24f50> {[-4-]}
<POP 24f1e-24f3c Naked> Σ-4 ↓ →0x24f46
<MI 24f1e MOVE.L D0,0x2976c> {[-4-]}
<MI 24f24 MOVEA.L 0x29764,A0> {[-4-]}
<MI 24f26 MOVE.L D0,D1> {[-4-]}
<MI 24f28 SUBQ.L #0x1,D1> {[-4-]}
<POP 0x24f2a LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-4-]}
<MI 24f34 CMPI.L #0x00000004,D0> {[-4-]}
<MI 24f3a BLE 0x24f46> {[-4-]}
<POP 24f3c-24f46 Naked> Σ-4 ↓ →0x24f4c
<MI 24f3c MOVE.B (A0+D1.L+#0x2),D2> {[-4-]}
<MI 24f40 CMPI.B #0x2c,D2> {[-4-]}
<MI 24f44 BNE 0x24f4c> {[-4-]}
<POP 24f46-24f4c Naked> Σ-4 ↓ ←0x24f1e
<MI 24f46 MOVE.B #0x20,(A0+D1.L+#0x2)> {[-4-]}
<POP 24f4c-24f50 Naked> Σ-4 ↓ →0x24f1a ←0x24f3c
<MI 24f4c ADDQ.L #0x1,D0> {[-4-]}
<MI 24f4e BVC 0x24f1a> {[-4-]}
<POP 24f50-24f5a Naked> Σ-4 Δ+4 ↓ →0x24fc2 ←0x24f1a
<POP 24f50-24f52 StackAdj> Δ+4 {}
<MI 24f52 TST.B 0x29753> {}
<MI 24f58 BEQ 0x24fc2> {}
<POP 24f5a-24f74 Naked> Σ0 ↓ →0x24f82
<Call 0x24f5a 0x10398> {}
FSCALL_10398
<Const 0x24f60 0x29770.4> Δ-4 {[##169840]}
<Call 0x24f66 0x24a6c> {[##169840]}
<POP 24f6a-24f6c StackAdj> Δ+4 {}
<MI 24f6c TST.B 0x29770> {}
<MI 24f72 BNE 0x24f82> {}
<POP 24f74-24f82 Naked> Σ0 ↓
<MI 24f74 CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x24f76 0x1.4> Δ-4 {[#0]|[##1]}
<Call 0x24f7a 0x103b8> {[#0]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 24f80-24f82 StackAdj> Δ+6 {}
<POP 24f82-24fc2 Naked> Σ0 ↓ ←0x24f5a
<Blob 0x24f82 [4] 0x29764> Δ-4 {[«4»]}
<Call 0x24f84 0x103e0> {[«4»]}
WriteConsoleStringCrLf(str : String)
<POP 24f8a-24f8c StackAdj> Δ+4 {}
<Blob 0x24f8c [48] @> Δ-48 {[«48""»]}
<POP 24f98-24f9a StackAdj> Δ-4 {[«48""»]|[-4-]}
<Lit 0x24f9a 48> {[«48""»]|[$$--- doing an automatic update of the EEPROMs ---]}
<Call 0x24fa8 0x103e0> {[«48""»]|[$$--- doing an automatic update of the EEPROMs ---]}
WriteConsoleStringCrLf(str : String)
<POP 24fae-24fb2 StackAdj> Δ+52 {}
<Call 0x24fb2 0x24114> {}
<Const 0x24fb6 0x20.2> Δ-2 {[#32]}
<Call 0x24fba 0x105da> {[#32]}
EmergencyStop(boot_reason_code : Byte)
<POP 24fc0-24fc2 StackAdj> Δ+2 {}
<POP 24fc2-24fcc Naked> Σ0 ↓ →0x25050 ←0x24f50
<MI 24fc2 TST.B 0x29752> {}
<MI 24fc8 BEQ 0x25050> {}
<POP 24fcc-24fee Naked> Σ0 ↓ →0x25012
<MI 24fcc MOVE.W 0x10008,D0> {}
<POP 0x24fd2 LimitCheck 0x0 ≤ D0 ≤ 0xf> {}
<MI 24fd6 MOVE.W D0,-(A7)> Δ-2 {[2, 'D0']}
<Const 0x24fd8 0x25730.4> Δ-4 {[2, 'D0']|[##153392]}
<Call 0x24fde 0x10394> {[2, 'D0']|[##153392]}
MountDisk(drive : Word ; VAR status : Byte)
<POP 24fe4-24fe6 StackAdj> Δ+6 {}
<MI 24fe6 TST.B 0x25730> {}
<MI 24fec BEQ 0x25012> {}
<POP 24fee-25012 Naked> Σ0 ↓
<POP 24fee-24ff0 StackAdj> Δ-4 {[-4-]}
<Blob 0x24ff0 [2] 0x25730> Δ-2 {[-4-]|[«2»]}
<Call 0x24ff6 0x103a0> {[-4-]|[«2»]}
FsErrMsgStr(err: Byte) : String
<POP 24ffc-24ffe StackAdj> Δ+2 {[-4-]}
<Call 0x24ffe 0x103e0> {[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 25004-25006 StackAdj> Δ+4 {}
<Const 0x25006 0xf.4> Δ-4 {[##15]}
<Call 0x2500a 0x10220> {[##15]}
KC10_Panic(code : Long)
<POP 25010-25012 StackAdj> Δ+4 {}
<POP 25012-25050 Naked> Σ0 ↓ ←0x24fcc
<Blob 0x25012 [4] 0x29764> Δ-4 {[«4»]}
<Call 0x25014 0x103e0> {[«4»]}
WriteConsoleStringCrLf(str : String)
<POP 2501a-2501c StackAdj> Δ+4 {}
<Call 0x2501c 0x24114> {}
<Blob 0x25020 [46] @> Δ-46 {[«46""»]}
<POP 2502c-2502e StackAdj> Δ-4 {[«46""»]|[-4-]}
<Lit 0x2502e 46> {[«46""»]|[$$INSTALL successfully completed - rebooting IOP]}
<Call 0x2503a 0x103e0> {[«46""»]|[$$INSTALL successfully completed - rebooting IOP]}
WriteConsoleStringCrLf(str : String)
<POP 25040-25044 StackAdj> Δ+48 {[-2-]}
<POP 25044-25045 StackAdj> Δ+2 {}
<Const 0x25045 0x19.2> Δ-2 {[#25]}
<Call 0x25048 0x105da> {[#25]}
EmergencyStop(boot_reason_code : Byte)
<POP 2504e-25050 StackAdj> Δ+2 {}
<POP 25050-25060 Naked> Σ0 ↓ ←0x24fc2
<Call 0x25050 0x10398> {}
FSCALL_10398
<Blob 0x25056 [4] 0x29764> Δ-4 {[«4»]}
<Call 0x25058 0x103e0> {[«4»]}
WriteConsoleStringCrLf(str : String)
<POP 2505e-25060 StackAdj> Δ+4 {}
<POP 25060-250fe Naked> Σ0 ↓ →0x2510c ←0x253f8
<Blob 0x25060 [4] @> Δ-4 {[«4""»]}
<Blob 0x25064 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x25068 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<POP 2506c-2506e StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x2506e 12> {[«4""»]|[«4""»]|[«4""»]|[$$Options are:]}
<Call 0x2507a 0x103e0> {[«4""»]|[«4""»]|[«4""»]|[$$Options are:]}
WriteConsoleStringCrLf(str : String)
<POP 25080-25081 StackAdj> Δ+16 ↓ {}
<Blob 0x25081 [14] @> Δ-14 {[«14""»]}
<POP 25090-25092 StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x25092 13> {[«14""»]|[$$ 0 => Exit]}
<Call 0x2509e 0x103e0> {[«14""»]|[$$ 0 => Exit]}
WriteConsoleStringCrLf(str : String)
<POP 250a4-250a8 StackAdj> Δ+18 {}
<Blob 0x250a8 [34] @> Δ-34 {[«34""»]}
<POP 250b4-250b6 StackAdj> Δ-4 {[«34""»]|[-4-]}
<Lit 0x250b6 34> {[«34""»]|[$$ 1 => Write/read test an EEPROM]}
<Call 0x250c4 0x103e0> {[«34""»]|[$$ 1 => Write/read test an EEPROM]}
WriteConsoleStringCrLf(str : String)
<POP 250ca-250ce StackAdj> Δ+38 {}
<Blob 0x250ce [54] @> Δ-54 {[«54""»]}
<POP 250da-250dc StackAdj> Δ-4 {[«54""»]|[-4-]}
<Lit 0x250dc 54> {[«54""»]|[$$ 2 => Checksum test & print revision of all EEPROMs]}
<Call 0x250ea 0x103e0> {[«54""»]|[$$ 2 => Checksum test & print revision of all EEPROMs]}
WriteConsoleStringCrLf(str : String)
<POP 250f0-250f4 StackAdj> Δ+56 {[-2-]}
<Call 0x250f4 0x1060a> {[-2-]}
Is_machine_type_four() : Bool
<MI 250fa TST.B (A7)+> Δ+2 {}
<MI 250fc BNE 0x2510c> {}
<POP 250fe-2510c Naked> Σ0 ↓ →0x25240
<POP 250fe-25100 StackAdj> Δ-2 {[-2-]}
<Call 0x25100 0x10604> {[-2-]}
Is_machine_type_three() : Bool
<MI 25106 TST.B (A7)+> Δ+2 {}
<MI 25108 BEQ 0x25240> {}
<POP 2510c-25240 Naked> Σ0 →0x2531e ←0x25060
<Blob 0x2510c [60] @> Δ-60 {[«60""»]}
<POP 2511e-25120 StackAdj> Δ-4 {[«60""»]|[-4-]}
<Lit 0x25120 59> {[«60""»]|[$$ 3 => Compare an EEPROM quadrant to the file you specify]}
<Call 0x2512e 0x103e0> {[«60""»]|[$$ 3 => Compare an EEPROM quadrant to the file you specify]}
WriteConsoleStringCrLf(str : String)
<POP 25134-25135 StackAdj> Δ+64 ↓ {}
<Blob 0x25135 [46] @> Δ-46 {[«46""»]}
<POP 25146-25148 StackAdj> Δ-8 {[«46""»]|[-8-]}
<Lit 0x25148 45> {[«46""»]|[-4-]|[$$ 4 => Compare all 4 IOC EEPROMs to file_]}
<POP 25154-25155 StackAdj> Δ-4 {[«46""»]|[-4-]|[$$ 4 => Compare all 4 IOC EEPROMs to file_]|[-4-]}
<Blob 0x25155 [4] 0x29754> Δ-4 {[«46""»]|[-4-]|[$$ 4 => Compare all 4 IOC EEPROMs to file_]|[-4-]|[«4»]}
<Call 0x25156 0x102cc> {[«46""»]|[-4-]|[$$ 4 => Compare all 4 IOC EEPROMs to file_]|[-4-]|[«4»]}
StringDup(a : String) : String
<POP 2515c-2515e StackAdj> Δ+4 {[«46""»]|[-4-]|[$$ 4 => Compare all 4 IOC EEPROMs to file_]|[-4-]}
<Call 0x2515e 0x102d0> {[«46""»]|[-4-]|[$$ 4 => Compare all 4 IOC EEPROMs to file_]|[-4-]}
StringCat2(a, b : String) : String
<POP 25164-25166 StackAdj> Δ+8 {[«46""»]|[-4-]}
<Call 0x25166 0x103e0> {[«46""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 2516c-2516d StackAdj> Δ+50 ↓ {}
<Blob 0x2516d [46] @> Δ-46 {[«46""»]}
<POP 2517c-2517e StackAdj> Δ-8 {[«46""»]|[-8-]}
<Lit 0x2517e 45> {[«46""»]|[-4-]|[$$ 5 => Compare all 4 RESHA EEPROMs to file_]}
<POP 2518a-2518b StackAdj> Δ-4 {[«46""»]|[-4-]|[$$ 5 => Compare all 4 RESHA EEPROMs to file_]|[-4-]}
<Blob 0x2518b [4] 0x29758> Δ-4 {[«46""»]|[-4-]|[$$ 5 => Compare all 4 RESHA EEPROMs to file_]|[-4-]|[«4»]}
<Call 0x25190 0x102cc> {[«46""»]|[-4-]|[$$ 5 => Compare all 4 RESHA EEPROMs to file_]|[-4-]|[«4»]}
StringDup(a : String) : String
<POP 25196-25198 StackAdj> Δ+4 {[«46""»]|[-4-]|[$$ 5 => Compare all 4 RESHA EEPROMs to file_]|[-4-]}
<Call 0x25198 0x102d0> {[«46""»]|[-4-]|[$$ 5 => Compare all 4 RESHA EEPROMs to file_]|[-4-]}
StringCat2(a, b : String) : String
<POP 2519e-251a0 StackAdj> Δ+8 {[«46""»]|[-4-]}
<Call 0x251a0 0x103e0> {[«46""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 251a6-251aa StackAdj> Δ+50 {}
<Blob 0x251aa [60] @> Δ-60 {[«60""»]}
<POP 251b6-251b8 StackAdj> Δ-4 {[«60""»]|[-4-]}
<Lit 0x251b8 60> {[«60""»]|[$$ 6 => Update an EEPROM quadrant from the file you specify]}
<Call 0x251c6 0x103e0> {[«60""»]|[$$ 6 => Update an EEPROM quadrant from the file you specify]}
WriteConsoleStringCrLf(str : String)
<POP 251cc-251d0 StackAdj> Δ+64 {}
<Blob 0x251d0 [46] @> Δ-46 {[«46""»]}
<POP 251dc-251de StackAdj> Δ-8 {[«46""»]|[-8-]}
<Lit 0x251de 46> {[«46""»]|[-4-]|[$$ 7 => Update all 4 IOC EEPROMs from file_]}
<POP 251e8-251e9 StackAdj> Δ-4 {[«46""»]|[-4-]|[$$ 7 => Update all 4 IOC EEPROMs from file_]|[-4-]}
<Blob 0x251e9 [4] 0x29754> Δ-4 {[«46""»]|[-4-]|[$$ 7 => Update all 4 IOC EEPROMs from file_]|[-4-]|[«4»]}
<Call 0x251ea 0x102cc> {[«46""»]|[-4-]|[$$ 7 => Update all 4 IOC EEPROMs from file_]|[-4-]|[«4»]}
StringDup(a : String) : String
<POP 251f0-251f2 StackAdj> Δ+4 {[«46""»]|[-4-]|[$$ 7 => Update all 4 IOC EEPROMs from file_]|[-4-]}
<Call 0x251f2 0x102d0> {[«46""»]|[-4-]|[$$ 7 => Update all 4 IOC EEPROMs from file_]|[-4-]}
StringCat2(a, b : String) : String
<POP 251f8-251fa StackAdj> Δ+8 {[«46""»]|[-4-]}
<Call 0x251fa 0x103e0> {[«46""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 25200-25204 StackAdj> Δ+50 {}
<Blob 0x25204 [46] @> Δ-46 {[«46""»]}
<POP 25210-25212 StackAdj> Δ-8 {[«46""»]|[-8-]}
<Lit 0x25212 46> {[«46""»]|[-4-]|[$$ 8 => Update all 4 RESHA EEPROMs from file_]}
<POP 2521c-2521d StackAdj> Δ-4 {[«46""»]|[-4-]|[$$ 8 => Update all 4 RESHA EEPROMs from file_]|[-4-]}
<Blob 0x2521d [4] 0x29758> Δ-4 {[«46""»]|[-4-]|[$$ 8 => Update all 4 RESHA EEPROMs from file_]|[-4-]|[«4»]}
<Call 0x25222 0x102cc> {[«46""»]|[-4-]|[$$ 8 => Update all 4 RESHA EEPROMs from file_]|[-4-]|[«4»]}
StringDup(a : String) : String
<POP 25228-2522a StackAdj> Δ+4 {[«46""»]|[-4-]|[$$ 8 => Update all 4 RESHA EEPROMs from file_]|[-4-]}
<Call 0x2522a 0x102d0> {[«46""»]|[-4-]|[$$ 8 => Update all 4 RESHA EEPROMs from file_]|[-4-]}
StringCat2(a, b : String) : String
<POP 25230-25232 StackAdj> Δ+8 {[«46""»]|[-4-]}
<Call 0x25232 0x103e0> {[«46""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 25238-2523c StackAdj> Δ+50 {}
<MI 2523c BRA 0x2531e> {}
<POP 25240-2531e Naked> Σ0 ↓ ←0x250fe
<Blob 0x25240 [50] @> Δ-50 {[«50""»]}
<POP 2524c-2524e StackAdj> Δ-4 {[«50""»]|[-4-]}
<Lit 0x2524e 50> {[«50""»]|[$$ 3 => Compare an EEPROM to the file you specify]}
<Call 0x2525c 0x103e0> {[«50""»]|[$$ 3 => Compare an EEPROM to the file you specify]}
WriteConsoleStringCrLf(str : String)
<POP 25262-25263 StackAdj> Δ+54 ↓ {}
<Blob 0x25263 [46] @> Δ-46 {[«46""»]}
<POP 25272-25274 StackAdj> Δ-8 {[«46""»]|[-8-]}
<Lit 0x25274 45> {[«46""»]|[-4-]|[$$ 4 => Compare all 4 IOC EEPROMs to file_]}
<POP 25280-25281 StackAdj> Δ-4 {[«46""»]|[-4-]|[$$ 4 => Compare all 4 IOC EEPROMs to file_]|[-4-]}
<Blob 0x25281 [4] 0x29754> Δ-4 {[«46""»]|[-4-]|[$$ 4 => Compare all 4 IOC EEPROMs to file_]|[-4-]|[«4»]}
<Call 0x25282 0x102cc> {[«46""»]|[-4-]|[$$ 4 => Compare all 4 IOC EEPROMs to file_]|[-4-]|[«4»]}
StringDup(a : String) : String
<POP 25288-2528a StackAdj> Δ+4 {[«46""»]|[-4-]|[$$ 4 => Compare all 4 IOC EEPROMs to file_]|[-4-]}
<Call 0x2528a 0x102d0> {[«46""»]|[-4-]|[$$ 4 => Compare all 4 IOC EEPROMs to file_]|[-4-]}
StringCat2(a, b : String) : String
<POP 25290-25292 StackAdj> Δ+8 {[«46""»]|[-4-]}
<Call 0x25292 0x103e0> {[«46""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 25298-25299 StackAdj> Δ+50 ↓ {}
<Blob 0x25299 [52] @> Δ-52 {[«52""»]}
<POP 252a8-252aa StackAdj> Δ-4 {[«52""»]|[-4-]}
<Lit 0x252aa 51> {[«52""»]|[$$ 6 => Update an EEPROM from the file you specify]}
<Call 0x252b8 0x103e0> {[«52""»]|[$$ 6 => Update an EEPROM from the file you specify]}
WriteConsoleStringCrLf(str : String)
<POP 252be-252c2 StackAdj> Δ+56 {}
<Blob 0x252c2 [46] @> Δ-46 {[«46""»]}
<POP 252ce-252d0 StackAdj> Δ-8 {[«46""»]|[-8-]}
<Lit 0x252d0 46> {[«46""»]|[-4-]|[$$ 7 => Update all 4 IOC EEPROMs from file_]}
<POP 252da-252db StackAdj> Δ-4 {[«46""»]|[-4-]|[$$ 7 => Update all 4 IOC EEPROMs from file_]|[-4-]}
<Blob 0x252db [4] 0x29754> Δ-4 {[«46""»]|[-4-]|[$$ 7 => Update all 4 IOC EEPROMs from file_]|[-4-]|[«4»]}
<Call 0x252dc 0x102cc> {[«46""»]|[-4-]|[$$ 7 => Update all 4 IOC EEPROMs from file_]|[-4-]|[«4»]}
StringDup(a : String) : String
<POP 252e2-252e4 StackAdj> Δ+4 {[«46""»]|[-4-]|[$$ 7 => Update all 4 IOC EEPROMs from file_]|[-4-]}
<Call 0x252e4 0x102d0> {[«46""»]|[-4-]|[$$ 7 => Update all 4 IOC EEPROMs from file_]|[-4-]}
StringCat2(a, b : String) : String
<POP 252ea-252ec StackAdj> Δ+8 {[«46""»]|[-4-]}
<Call 0x252ec 0x103e0> {[«46""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 252f2-252f3 StackAdj> Δ+50 ↓ {}
<Blob 0x252f3 [60] @> Δ-60 {[«60""»]}
<POP 25304-25306 StackAdj> Δ-4 {[«60""»]|[-4-]}
<Lit 0x25306 59> {[«60""»]|[$$ 9 => Update all 4 IOC EEPROMs from the 4 ".HEX" files]}
<Call 0x25314 0x103e0> {[«60""»]|[$$ 9 => Update all 4 IOC EEPROMs from the 4 ".HEX" files]}
WriteConsoleStringCrLf(str : String)
<POP 2531a-2531e StackAdj> Δ+64 {}
<POP 2531e-25390 Naked> Σ0 →0x253a6 →0x253b6 →0x253bc →0x253c2 →0x253ce →0x253d8 →0x253dc →0x253e2 →0x253ea →0x253ee →0x253f4 ←0x2510c
<Blob 0x2531e [50] @> Δ-50 {[«50""»]}
<POP 2532a-2532c StackAdj> Δ-4 {[«50""»]|[-4-]}
<Lit 0x2532c 50> {[«50""»]|[$$ 10 => Update all obsolete EEPROMs automatically]}
<Call 0x2533a 0x103e0> {[«50""»]|[$$ 10 => Update all obsolete EEPROMs automatically]}
WriteConsoleStringCrLf(str : String)
<POP 25340-25344 StackAdj> Δ+54 {}
<Blob 0x25344 [14] @> Δ-14 {[«14""»]}
<POP 25350-25352 StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x25352 14> {[«14""»]|[-4-]|[$$Enter option:_]}
<Const 0x2535e 0x0.4> Δ-4 {[«14""»]|[-4-]|[$$Enter option:_]|[##0]}
<Const 0x25362 0xa.4> Δ-4 {[«14""»]|[-4-]|[$$Enter option:_]|[##0]|[##10]}
<Call 0x25366 0x103ec> {[«14""»]|[-4-]|[$$Enter option:_]|[##0]|[##10]}
AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
<POP 2536c-2536e StackAdj> Δ+12 {[«14""»]|[-4-]}
<MI 2536e MOVE.L (A7)+,0x25732> Δ+4 {[«14""»]}
<POP 25374-25376 StackAdj> Δ+14 {}
<MI 25376 MOVE.L 0x25732,D0> {}
<POP 0x2537c LimitCheck 0x0 ≤ D0 ≤ 0xa> {}
<MI 25386 ADD.W D0,D0> {}
<MI 25388 SWITCH D0.W> {}
<POP 253a6-253b2 Naked> Σ0 Δ-6 ↓ ←0x2531e
<MI 253a6 CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x253a8 0x1.4> Δ-4 {[#0]|[##1]}
<Call 0x253ac 0x103b8> {[#0]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 253b2-253b6 Naked> Σ-6 Δ+6 →0x253f8 ←0x253c2
<POP 253b2-253b4 StackAdj> Δ+6 {}
<MI 253b4 BRA 0x253f8> {}
<POP 253b6-253bc Naked> Σ0 →0x253f8 ←0x2531e
<Call 0x253b6 0x244de> {}
<MI 253ba BRA 0x253f8> {}
<POP 253bc-253c2 Naked> Σ0 →0x253f8 ←0x2531e
<Call 0x253bc 0x24820> {}
<MI 253c0 BRA 0x253f8> {}
<POP 253c2-253ce Naked> Σ0 Δ-6 →0x253b2 ←0x2531e
<Const 0x253c2 0x1.4> Δ-4 {[##1]}
<MI 253c6 CLR.W -(A7)> Δ-2 {[##1]|[#0]}
<Call 0x253c8 0x22c98> {[##1]|[#0]}
<MI 253cc BRA 0x253b2> {[##1]|[#0]}
<POP 253ce-253d0 Naked> Σ0 Δ-2 ↓ ←0x2531e
<MI 253ce CLR.B -(A7)> Δ-2 {[#0]}
<POP 253d0-253d4 Naked> Σ-2 ↓ ←0x253d8
<Call 0x253d0 0x22dce> {[-2-]}
<POP 253d4-253d8 Naked> Σ-2 Δ+2 →0x253f8 ←0x253e4
<POP 253d4-253d6 StackAdj> Δ+2 {}
<MI 253d6 BRA 0x253f8> {}
<POP 253d8-253dc Naked> Σ0 Δ-2 →0x253d0 ←0x2531e
<Const 0x253d8 0x1.2> Δ-2 {[#1]}
<MI 253da BRA 0x253d0> {[#1]}
<POP 253dc-253e2 Naked> Σ0 →0x253f8 ←0x2531e
<Call 0x253dc 0x2382e> {}
<MI 253e0 BRA 0x253f8> {}
<POP 253e2-253e4 Naked> Σ0 Δ-2 ↓ ←0x2531e
<MI 253e2 CLR.B -(A7)> Δ-2 {[#0]}
<POP 253e4-253ea Naked> Σ-2 →0x253d4 ←0x253ea
<Call 0x253e4 0x23c1e> {[-2-]}
<MI 253e8 BRA 0x253d4> {[-2-]}
<POP 253ea-253ee Naked> Σ0 Δ-2 →0x253e4 ←0x2531e
<Const 0x253ea 0x1.2> Δ-2 {[#1]}
<MI 253ec BRA 0x253e4> {[#1]}
<POP 253ee-253f4 Naked> Σ0 →0x253f8 ←0x2531e
<Call 0x253ee 0x239e6> {}
<MI 253f2 BRA 0x253f8> {}
<POP 253f4-253f8 Naked> Σ0 ↓ ←0x2531e
<Call 0x253f4 0x24114> {}
<POP 253f8-253fc Naked> Σ0 →0x25060 ←0x253b2 ←0x253b6 ←0x253bc ←0x253d4 ←0x253dc ←0x253ee
<MI 253f8 BRA 0x25060> {}
@ 25530
PROG_FAIL
<LVAR 0x008 1(r)>
<POP 25530-25598 Body>
<POP 25530-25546 Prologue> Σ0 ↓
<POP 25546-25590 Naked> Σ0 ↓
<Blob 0x25546 [14] @> Δ-14 {[«14""»]}
<Const 0x25552 0x3.2> Δ-2 {[«14""»]|[#3]}
<POP 25556-25558 StackAdj> Δ-8 {[«14""»]|[#3]|[-8-]}
<Lit 0x25558 14> {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
<POP 2556a-2556c StackAdj> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 2556c MOVE.B (A6+0x8),D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 25570 EXTB.W D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 25572 EXTW.L D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 25574 MOVE.L D0,-(A7)> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
<Call 0x25576 0x102e4> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 2557c-2557e StackAdj> Δ+4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<Call 0x2557e 0x102d0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 25584-25586 StackAdj> Δ+8 {[«14""»]|[#3]|[-4-]}
<Call 0x25586 0x103b8> {[«14""»]|[#3]|[-4-]}
PopProgram(status : Byte; msg : String)
<POP 2558c-25590 StackAdj> Δ+20 {}
<POP 25590-25598 Epilogue> Σ0
@ 255ec
EXP_FAIL
<LVAR 0x00e 1(r)>
<LVAR 0x00a 4(r)>
<LVAR 0x008 1(r)>
<POP 255ec-25728 Body>
<POP 255ec-25602 Prologue> Σ0 ↓
<POP 25602-25618 RegCacheLoad> Σ0 ↓
<POP 25618-25678 Naked> Σ0 ↓ →0x256c0
<Call 0x25618 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x2561e [18] @> Δ-18 {[«18""»]}
<POP 2562a-2562c StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x2562c 18> {[«18""»]|[$$Experiment error :]}
<Call 0x25638 0x103e0> {[«18""»]|[$$Experiment error :]}
WriteConsoleStringCrLf(str : String)
<POP 2563a-2563b StackAdj> Δ+22 ↓ {}
<Blob 0x2563b [14] @> Δ-14 {[«14""»]}
<POP 2564a-2564c StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x2564c 13> {[«14""»]|[-4-]|[$$Board :_]}
<POP 25656-25658 StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<MI 25658 MOVE.B (A6+0xe),(A7)> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<Call 0x2565c 0x1049c> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
BoardName(address : B) : String
<POP 25662-25664 StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
<Call 0x25664 0x102d0> {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 2566a-2566c StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x2566c 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 2566e-25670 StackAdj> Δ+18 {}
<MI 25670 MOVEA.L (A6+0xa),A0> {}
<MI 25674 CMPA.W #0x01,A0> {}
<MI 25676 BEQ 0x256c0> {}
<POP 25678-256c0 Naked> Σ0 ↓
<Blob 0x25678 [14] @> Δ-14 {[«14""»]}
<Blob 0x25688 [30] (A0+0xfc)> Δ-30 {[«14""»]|[«30»]}
<POP 25698-2569a StackAdj> Δ-8 {[«14""»]|[«30»]|[-8-]}
<Lit 0x2569a 13> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
<POP 256a4-256a6 StackAdj> Δ-4 {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
<Lit 0x256a6> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
<Pointer.sp 0x256a6 12> Δ-4
<Const 0x256aa 0x1.2> Δ-2
<Const 0x256ac 0x1e.2> Δ-2
<Call 0x256ae 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 256b0-256b2 StackAdj> Δ+8
<Call 0x256b2 0x102d0> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
StringCat2(a, b : String) : String
<POP 256b8-256ba StackAdj> Δ+8 {[«14""»]|[«30»]|[-4-]}
<Call 0x256ba 0x103e0> {[«14""»]|[«30»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 256bc-256c0 StackAdj> Δ+48 {}
<POP 256c0-25720 Naked> Σ0 ↓ ←0x25618
<Blob 0x256c0 [14] @> Δ-14 {[«14""»]}
<POP 256d0-256d2 StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x256d2 13> {[«14""»]|[-4-]|[$$Status :_]}
<POP 256dc-256de StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<MI 256de MOVE.B (A6+0x8),(A7)> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<Call 0x256e2 0x104a2> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
ExpStatus2Text(status.B, &String)
<POP 256e8-256ea StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
<Call 0x256ea 0x102d0> {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 256f0-256f2 StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x256f2 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 256f4-256f5 StackAdj> Δ+18 ↓ {}
<Blob 0x256f5 [24] @> Δ-24 {[«24""»]}
<Const 0x25704 0x2.2> Δ-2 {[«24""»]|[#2]}
<POP 25708-2570a StackAdj> Δ-4 {[«24""»]|[#2]|[-4-]}
<Lit 0x2570a 23> {[«24""»]|[#2]|[$$Fatal experiment error.]}
<Call 0x25718 0x103b8> {[«24""»]|[#2]|[$$Fatal experiment error.]}
PopProgram(status : Byte; msg : String)
<POP 2571e-25720 StackAdj> Δ+30 {}
<POP 25720-25728 Epilogue> Σ0
00020000 ; --------------------------------------------------------------------------------------
00020000 ; R1000.Disassembly modules:
00020000 ; import all
00020000 ; import kind.program
00020000 ; no ident.66f49ba23e9f62e6
00020000 ; --------------------------------------------------------------------------------------
00020000 stack.top:
00020000 00 04 00 00 | | .CODE 0x40000 ; STACK.END
00020004 00 02 4d aa | M | .CODE START
00020008 00 01 02 88 | | .CODE FSCALL_10288
0002000c heap.top:
0002000c 00 02 97 84 | | .PTR 0x29784
00020010 code.end:
00020010 00 02 57 28 | W( | .PTR 0x25728
00020014 00 00 00 00 | | .CONST 0x00000000
00020018 programfailurehandler:
00020018 00 02 55 30 | U0 | .CODE PROG_FAIL
0002001c experimentfailurehandler:
0002001c 00 02 55 ec | U | .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 55 50 44 41 |@(#)UPDA| .TXT '@(#)UPDATE_EEPROM,5.4,92/10/16,12:34:56\'
00020132 6e 6f 20 65 |no e | .TXT 'no e'
00020136 72 72 6f 72 |rror | .TXT 'rror'
0002013a 69 6c 6c 65 67 61 6c 20 |illegal | .TXT 'illegal prom select code'
00020152 62 61 64 20 63 68 65 63 |bad chec| .TXT 'bad checksum detected '
00020168 77 72 69 74 65 20 70 72 |write pr| .TXT 'write protect switch is on'
00020182 69 6c 6c 65 67 61 6c 20 |illegal | .TXT 'illegal module id '
00020194 6e 6f 20 6f 76 65 72 6c |no overl| .TXT 'no overlay validity byte'
000201ac 70 72 6f 6d 20 77 72 69 |prom wri| .TXT 'prom write failed '
000201be 70 72 6f 6d 20 77 72 69 |prom wri| .TXT 'prom write timed out'
000201d2 2a 2a 20 75 6e 6b 6e 6f |** unkno| .TXT '** unknown ERROR_CODE =_'
000201ea 2a 2a 2a 20 46 41 54 41 |*** FATA| .TXT '*** FATAL ERROR:_ '
000201fc 45 45 50 52 4f 4d 20 55 |EEPROM U| .TXT 'EEPROM UPDATE failed: you must reboot the system'
0002022c 73 65 65 20 65 72 72 6f |see erro| .TXT 'see error message above '
00020244 53 45 4c 46 |SELF | .TXT 'SELF'
00020248 54 45 53 54 |TEST | .TXT 'TEST'
0002024c 42 4f 4f 54 |BOOT | .TXT 'BOOT'
00020250 55 54 49 4c |UTIL | .TXT 'UTIL'
00020254 2f 44 45 42 |/DEB | .TXT '/DEB'
00020258 4e 45 54 2f |NET/ | .TXT 'NET/'
0002025c 44 45 42 32 |DEB2 | .TXT 'DEB2'
00020260 52 45 53 5f |RES_ | .TXT 'RES_'
00020264 54 45 53 54 |TEST | .TXT 'TEST'
00020268 4c 41 4e 43 45 20 |LANCE | .TXT 'LANCE '
0002026e 44 49 53 4b |DISK | .TXT 'DISK'
00020272 54 41 50 45 |TAPE | .TXT 'TAPE'
00020276 3f 3f |?? | .TXT '??'
00020278 3f 20 |? | .XXX[0x2]
0002027a 43 68 65 63 6b 73 75 6d |Checksum| .TXT 'Checksum error in file data line'
0002029a 46 69 6c 65 20 68 61 73 |File has| .TXT 'File has no END record'
000202b0 46 69 6c 65 20 6c 69 6e |File lin| .TXT 'File line too long'
000202c2 49 6e 76 61 6c 69 64 20 |Invalid | .TXT 'Invalid file data line format '
000202e0 43 68 65 63 6b 73 75 6d |Checksum| .TXT 'Checksum error in file data line'
00020300 46 69 6c 65 20 68 61 73 |File has| .TXT 'File has no END record'
00020316 49 6e 76 61 6c 69 64 20 |Invalid | .TXT 'Invalid file data line format '
00020334 20 72 | r | .TXT ' r'
00020336 65 61 |ea | .TXT 'ea'
00020338 64 5f |d_ | .TXT 'd_'
0002033a 20 62 79 74 65 73 20 66 | bytes f| .TXT ' bytes from file at base address 16#'
0002035e 69 6e 20 66 69 6c 65 3a |in file:| .TXT 'in file: revision date =_ '
00020378 2c 20 6c 6f 63 75 73 20 |, locus | .TXT ', locus byte =_ '
00020388 20 28 | ( | .TXT ' ('
0002038a 29 2c 20 63 68 65 63 6b |), check| .TXT '), checksum is OK '
0002039c 62 61 64 20 66 69 6c 65 |bad file| .TXT 'bad file checksum: expected 16#AA but got 16# '
000203ca 66 69 6c 65 20 4c 4f 43 |file LOC| .TXT 'file LOCUS byte is incorrect'
000203e6 66 69 6c 65 20 62 61 73 |file bas| .TXT 'file base address is incorrect'
00020404 46 69 6c 65 20 68 61 73 |File has| .TXT 'File has illegal base address '
00020422 66 69 78 65 64 20 69 6e |fixed in| .TXT 'fixed incorrect LOCUS byte from file: now targets_'
00020454 45 6e 74 65 72 20 74 68 |Enter th| .TXT 'Enter the file name of the EEPROM data :_ '
0002047e 63 6f 75 6c 64 20 6e 6f |could no| .TXT 'could not open data file'
00020496 46 69 6c 65 20 69 73 20 |File is | .TXT 'File is empty '
000204a4 49 6e 76 61 6c 69 64 20 |Invalid | .TXT 'Invalid file format '
000204b8 2a 2a 2a 20 45 52 52 4f |*** ERRO| .TXT '*** ERROR: test of EEPROM failed ***'
000204dc 74 65 73 74 20 6f 66 20 |test of | .TXT 'test of EEPROM passed '
000204f2 69 6e 20 70 72 6f 6d 3a |in prom:| .TXT 'in prom: revision date =_ '
0002050c 2c 20 6c 6f 63 75 73 20 |, locus | .TXT ', locus byte =_ '
0002051c 57 41 52 4e 49 4e 47 3a |WARNING:| .TXT 'WARNING: the EEPROM has an incorrect LOCUS byte '
0002054c 57 61 72 6e 69 6e 67 20 |Warning | .TXT 'Warning from REE_DOWNLOAD:_ '
00020568 45 45 50 52 4f 4d 20 6d |EEPROM m| .TXT 'EEPROM matched file '
0002057c 20 64 69 66 66 65 72 69 | differi| .TXT ' differing bytes were found (excluding checksum)'
000205ac 20 45 45 50 | EEP | .TXT ' EEP'
000205b0 52 4f 4d 3a |ROM: | .TXT 'ROM:'
000205b4 65 6e 74 65 72 20 70 72 |enter pr| .TXT 'enter prom filename [ '
000205ca 5d 20 3a 5f |] :_ | .TXT '] :_'
000205ce 2a 2a 2a 20 50 72 6f 67 |*** Prog| .TXT '*** Programming Failure: address = 16#'
000205f4 20 77 72 6f 74 65 20 31 | wrote 1| .TXT ' wrote 16#'
000205fe 20 72 65 61 64 20 62 61 | read ba| .TXT ' read back 16#'
0002060c 45 45 50 52 4f 4d 20 66 |EEPROM f| .TXT 'EEPROM failed to program even after many retries'
0002063c 54 68 65 20 73 79 73 74 |The syst| .TXT 'The system may not boot properly unless you replace the IOC EEPROM'
0002067e 74 68 65 20 65 72 72 6f |the erro| .TXT 'the error above was fatal '
00020698 45 45 50 52 4f 4d 20 73 |EEPROM s| .TXT 'EEPROM successfully updated '
000206b4 45 45 50 52 4f 4d 20 6d |EEPROM m| .TXT 'EEPROM matched file, update wasn't needed '
000206de 57 61 72 6e 69 6e 67 20 |Warning | .TXT 'Warning from REE_UPLOAD:_ '
000206f8 65 72 72 6f 72 20 66 72 |error fr| .TXT 'error from REE_DOWNLOAD:_ '
00020712 57 61 72 6e 69 6e 67 3a |Warning:| .TXT 'Warning:_ '
0002071c 20 62 79 74 65 73 20 77 | bytes w| .TXT ' bytes were incorrectly written - retrying'
00020746 2a 2a 2a 20 45 52 52 4f |*** ERRO| .TXT '*** ERROR: program EEPROM failed too many times '
00020776 54 68 65 20 73 79 73 74 |The syst| .TXT 'The system may not boot properly unless you replace the RESHA EEPROM'
000207ba 74 68 65 20 65 72 72 6f |the erro| .TXT 'the error above was fatal '
000207d4 45 45 50 52 4f 4d 20 73 |EEPROM s| .TXT 'EEPROM successfully updated '
000207f0 20 61 6e 64 20 76 65 72 | and ver| .TXT ' and verified, ignore the warnings above'
00020818 74 75 72 6e 20 74 68 65 |turn the| .TXT 'turn the EEPROM WRITE PROTECT switch ON (up)'
00020844 74 75 72 6e 20 74 68 65 |turn the| .TXT 'turn the EEPROM WRITE PROTECT switch (at front of RESHA board) OFF (down) '
0002088e 20 2d 20 4f 4b 20 | - OK | .TXT ' - OK '
00020894 55 70 64 61 74 69 6e 67 |Updating| .TXT 'Updating this EEPROM will take about_ '
000208ba 20 73 65 63 6f 6e 64 73 | seconds| .TXT ' seconds... '
000208c6 56 65 72 69 66 79 69 6e |Verifyin| .TXT 'Verifying file_ '
000208d6 52 65 61 64 69 6e 67 20 |Reading | .TXT 'Reading file_ '
000208e4 55 70 64 61 74 65 20 74 |Update t| .TXT 'Update this EEPROM_ '
000208f8 53 45 4c 46 |SELF | .TXT 'SELF'
000208fc 54 45 53 54 |TEST | .TXT 'TEST'
00020900 2e 48 45 58 |.HEX | .TXT '.HEX'
00020904 42 4f 4f 54 |BOOT | .TXT 'BOOT'
00020908 2e 48 45 58 |.HEX | .TXT '.HEX'
0002090c 55 54 49 4c |UTIL | .XXX[0x4]
00020910 49 54 49 45 53 2e 48 45 |ITIES.HE| .XXX[0x8]
00020918 58 20 |X | .XXX[0x2]
0002091a 4e 45 54 57 4f 52 4b 2e |NETWORK.| .TXT 'NETWORK.HEX '
00020926 53 45 4c 46 |SELF | .TXT 'SELF'
0002092a 54 45 53 54 |TEST | .TXT 'TEST'
0002092e 2e 48 45 58 |.HEX | .TXT '.HEX'
00020932 42 4f 4f 54 |BOOT | .TXT 'BOOT'
00020936 2e 48 45 58 |.HEX | .TXT '.HEX'
0002093a 55 54 49 4c 49 54 |UTILIT | .XXX[0x6]
00020940 49 45 53 2e 48 45 58 20 |IES.HEX | .XXX[0x8]
00020948 4e 45 54 57 4f 52 4b 2e |NETWORK.| .TXT 'NETWORK.HEX '
00020954 20 45 45 50 | EEP | .TXT ' EEP'
00020958 52 4f 4d 3a |ROM: | .TXT 'ROM:'
0002095c 55 70 64 61 74 65 20 74 |Update t| .TXT 'Update this EEPROM_ '
00020970 65 6e 74 65 72 20 70 72 |enter pr| .TXT 'enter prom filename [ '
00020986 5d 20 3a 5f |] :_ | .TXT '] :_'
0002098a 43 6f 6d 70 61 72 69 6e |Comparin| .TXT 'Comparing the new prom files to the actual EEPROMs: '
000209be 20 20 28 74 68 65 20 72 | (the r| .TXT ' (the revision dates are identical but the data does not match)'
000209fe 44 6f 20 79 6f 75 20 77 |Do you w| .TXT 'Do you want to update this prom '
00020a1e 3a 20 70 72 |: pr | .TXT ': pr'
00020a22 6f 6d 20 72 |om r | .TXT 'om r'
00020a26 65 76 69 73 |evis | .TXT 'evis'
00020a2a 69 6f 6e 5f |ion_ | .TXT 'ion_'
00020a2e 2c 20 66 69 |, fi | .TXT ', fi'
00020a32 6c 65 20 72 |le r | .TXT 'le r'
00020a36 65 76 69 73 |evis | .TXT 'evis'
00020a3a 69 6f 6e 5f |ion_ | .TXT 'ion_'
00020a3e 20 2d 20 70 72 6f 6d 20 | - prom | .TXT ' - prom newer than file!'
00020a56 20 2d 20 50 52 4f 4d 20 | - PROM | .TXT ' - PROM needs updating'
00020a6c 20 2d 20 50 52 4f 4d 20 | - PROM | .TXT ' - PROM needs updating'
00020a82 20 2d 20 4f 4b 2c 20 77 | - OK, w| .TXT ' - OK, won't update '
00020a96 55 70 64 61 |Upda | .TXT 'Upda'
00020a9a 74 69 6e 67 |ting | .TXT 'ting'
00020a9e 20 45 45 50 | EEP | .TXT ' EEP'
00020aa2 52 4f 4d 5f |ROM_ | .TXT 'ROM_'
00020aa6 74 68 65 20 49 4f 43 20 |the IOC | .TXT 'the IOC board revision # in the EEPROM will be updated'
00020adc 6e 6f 74 20 75 70 64 61 |not upda| .TXT 'not updating IOC board revision # '
00020afe 74 68 65 20 52 45 53 48 |the RESH| .TXT 'the RESHA board revision # in the EEPROM will updated '
00020b34 6e 6f 74 20 75 70 64 61 |not upda| .TXT 'not updating RESHA board revision # '
00020b58 6e 6f 20 45 45 50 52 4f |no EEPRO| .TXT 'no EEPROMs need updating'
00020b70 75 70 64 61 74 69 6e 67 |updating| .TXT 'updating the EEPROMS will take about_ '
00020b96 20 73 65 63 6f 6e 64 73 | seconds| .TXT ' seconds to complete. '
00020bac 61 6c 6c 20 45 45 50 52 |all EEPR| .TXT 'all EEPROMs are up to date now'
00020bca 4f 70 74 69 |Opti | .TXT 'Opti'
00020bce 6f 6e 73 20 |ons | .TXT 'ons '
00020bd2 61 72 65 3a |are: | .TXT 'are:'
00020bd6 20 20 20 20 30 20 3d 3e | 0 =>| .TXT ' 0 => Exit '
00020be4 20 20 20 20 31 20 3d 3e | 1 =>| .TXT ' 1 => Test SELFTEST EEPROM location (K21) '
00020c18 20 20 20 20 32 20 3d 3e | 2 =>| .TXT ' 2 => Test BOOT EEPROM location (K19) '
00020c4c 20 20 20 20 33 20 3d 3e | 3 =>| .TXT ' 3 => Test UTILITIES/DEBUG EEPROM location (K17) '
00020c80 20 20 20 20 34 20 3d 3e | 4 =>| .TXT ' 4 => Test NOVRAM/NET/DEB2 EEPROM location (K15) '
00020cb4 45 6e 74 65 72 20 6f 70 |Enter op| .TXT 'Enter option :_ '
00020cc4 20 70 72 6f 6d 3a 20 72 | prom: r| .TXT ' prom: revision =_'
00020cd6 2c 20 6c 6f 63 75 73 20 |, locus | .TXT ', locus byte =_ '
00020ce6 2c 20 43 48 45 43 4b 53 |, CHECKS| .TXT ', CHECKSUM IS BAD *** '
00020cfc 2c 20 63 68 |, ch | .TXT ', ch'
00020d00 65 63 6b 73 |ecks | .TXT 'ecks'
00020d04 75 6d 20 69 |um i | .TXT 'um i'
00020d08 73 20 4f 4b |s OK | .TXT 's OK'
00020d0c 45 45 50 52 4f 4d 5f 52 |EEPROM_R| .TXT 'EEPROM_REVS '
00020d18 20 2d 2d 49 4f 43 5f 53 | --IOC_S| .TXT ' --IOC_SELFTEST '
00020d28 20 2d 2d 49 4f 43 5f 42 | --IOC_B| .TXT ' --IOC_BOOT '
00020d34 20 2d 2d 55 54 49 4c 2f | --UTIL/| .TXT ' --UTIL/DEB '
00020d40 20 2d 2d 4e 45 54 2f 44 | --NET/D| .TXT ' --NET/DEB2 '
00020d4c 3e 3e 3e 20 49 4f 43 20 |>>> IOC | .TXT '>>> IOC EEPROM file was missing or obsolete: did not check EEPROM revisions '
00020d98 20 2d 2d 52 45 53 48 41 | --RESHA| .TXT ' --RESHA_TEST '
00020da6 20 2d 2d 4c 41 4e 43 45 | --LANCE| .TXT ' --LANCE_BOOT '
00020db4 20 2d 2d 44 | --D | .TXT ' --D'
00020db8 49 53 4b 5f |ISK_ | .TXT 'ISK_'
00020dbc 42 4f 4f 54 |BOOT | .TXT 'BOOT'
00020dc0 20 2d 2d 54 | --T | .TXT ' --T'
00020dc4 41 50 45 5f |APE_ | .TXT 'APE_'
00020dc8 42 4f 4f 54 |BOOT | .TXT 'BOOT'
00020dcc 3e 3e 3e 20 52 45 53 48 |>>> RESH| .TXT '>>> RESHA EEPROM file was missing or obsolete: did not check EEPROM revisions '
00020e1a 3e 3e 3e 20 74 68 65 20 |>>> the | .TXT '>>> the EEPROMS need updating but the EPROM WRT PROT switch is on '
00020e5c 20 20 20 20 30 20 3d 3e | 0 =>| .TXT ' 0 => Exit '
00020e6a 20 20 20 20 31 20 3d 3e | 1 =>| .TXT ' 1 => Write/read test an EEPROM'
00020e8c 20 20 20 20 32 20 3d 3e | 2 =>| .TXT ' 2 => Checksum test & print revision of all EEPROMs'
00020ec2 20 20 20 20 33 20 3d 3e | 3 =>| .TXT ' 3 => Compare an EEPROM to the file you specify'
00020ef4 20 20 20 20 33 20 3d 3e | 3 =>| .TXT ' 3 => Compare an EEPROM quadrant to the file you specify '
00020f30 20 20 20 20 34 20 3d 3e | 4 =>| .TXT ' 4 => Compare all 4 IOC EEPROMs to file_ '
00020f5e 20 20 20 20 35 20 3d 3e | 5 =>| .TXT ' 5 => Compare all 4 RESHA EEPROMs to file_ '
00020f8c 20 20 20 20 36 20 3d 3e | 6 =>| .TXT ' 6 => Update an EEPROM from the file you specify '
00020fc0 20 20 20 20 36 20 3d 3e | 6 =>| .TXT ' 6 => Update an EEPROM quadrant from the file you specify'
00020ffc 20 20 20 20 37 20 3d 3e | 7 =>| .TXT ' 7 => Update all 4 IOC EEPROMs from file_'
0002102a 20 20 20 20 38 20 3d 3e | 8 =>| .TXT ' 8 => Update all 4 RESHA EEPROMs from file_'
00021058 20 20 20 20 39 20 3d 3e | 9 =>| .TXT ' 9 => Update all 4 IOC EEPROMs from the 4 ".HEX" files '
00021094 20 20 20 31 30 20 3d 3e | 10 =>| .TXT ' 10 => Update all obsolete EEPROMs automatically'
000210c6 49 4f 43 2e 4d 34 30 30 |IOC.M400| .TXT 'IOC.M400_PROM '
000210d4 52 45 53 48 41 2e 4d 34 |RESHA.M4| .TXT 'RESHA.M400_PROM '
000210e4 49 4f 43 2e 4d 32 30 30 |IOC.M200| .TXT 'IOC.M200_PROM '
000210f2 52 45 53 48 41 2e 4d 32 |RESHA.M2| .TXT 'RESHA.M200_PROM '
00021102 41 55 54 4f 5f 55 50 44 |AUTO_UPD| .TXT 'AUTO_UPDATE '
0002110e 49 4e 53 54 41 4c 4c 20 |INSTALL | .TXT 'INSTALL '
00021116 2d 2d 2d 20 64 6f 69 6e |--- doin| .TXT '--- doing an automatic update of the EEPROMs ---'
00021146 49 4e 53 54 41 4c 4c 20 |INSTALL | .TXT 'INSTALL successfully completed - rebooting IOP'
00021174 4f 70 74 69 |Opti | .TXT 'Opti'
00021178 6f 6e 73 20 |ons | .TXT 'ons '
0002117c 61 72 65 3a |are: | .TXT 'are:'
00021180 45 6e 74 65 72 20 6f 70 |Enter op| .TXT 'Enter option:_'
0002118e ; --------------------------------------------------------------------------------------
0002118e ; OMSI PASCAL Function
0002118e ; <LVAR 0x00c 4(w)>
0002118e ; <LVAR 0x008 4(r)>
0002118e ; --------------------------------------------------------------------------------------
0002118e 4e 56 ff a8 |NV | LINK.W A6,#0xffa8
00021192 bf d5 | | CMPA.L (A5),A7
00021194 62 06 |b | BHI 0x2119c
00021196 44 fc 00 02 |D | MOVE.W #0x2,CCR
0002119a 4e 76 |Nv | TRAPV
0002119c de fc 00 58 | X | ADDA.W #0x58,A7
000211a0 48 e7 fe f0 |H | MOVEM.L A3+A2+A1+A0+D6+D5+D4+D3+D2+D1+D0,-(A7)
000211a4 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2
000211aa 47 ee 00 0c |G | LEA.L (A6+0xc),A3
000211ae 72 01 |r | MOVEQ.L #0x01,D1
000211b0 74 18 |t | MOVEQ.L #0x18,D2
000211b2 76 12 |v | MOVEQ.L #0x12,D3
000211b4 78 16 |x | MOVEQ.L #0x16,D4
000211b6 7a 1a |z | MOVEQ.L #0x1a,D5
000211b8 7c 14 || | MOVEQ.L #0x14,D6
000211ba 20 2e 00 08 | . | MOVE.L (A6+0x8),D0
000211be 0c 80 00 00 00 07 | | CMPI.L #0x00000007,D0
000211c4 62 00 01 0a |b | BHI 0x212d0
000211c8 d0 40 | @ | ADD.W D0,D0
000211ca 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W
000211d2 00 10 | | .CONST 0x10 ; [0x0] -> 0x211e2
000211d4 00 30 | 0 | .CONST 0x30 ; [0x1] -> 0x21202
000211d6 00 4c | L | .CONST 0x4c ; [0x2] -> 0x2121e
000211d8 00 74 | t | .CONST 0x74 ; [0x3] -> 0x21246
000211da 00 96 | | .CONST 0x96 ; [0x4] -> 0x21268
000211dc 00 bc | | .CONST 0xbc ; [0x5] -> 0x2128e
000211de 00 cc | | .CONST 0xcc ; [0x6] -> 0x2129e
000211e0 00 de | | .CONST 0xde ; [0x7] -> 0x212b0
000211e2 switch@0x211ca[0x0]:
000211e2 2f 3a ef 52 |/: R | MOVE.L 0x20136,-(A7)
000211e6 2f 3a ef 4a |/: J | MOVE.L 0x20132,-(A7)
000211ea 59 4f |YO | SUBQ.L #0x4,A7
000211ec 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000211f0 3f 01 |? | MOVE.W D1,-(A7)
000211f2 3f 3c 00 08 |?< | MOVE.W #0x8,-(A7)
000211f6 4e 92 |N | JSR (A2)
000211f8 50 4f |PO | ADDQ.L #0x8,A7
000211fa 26 9f |& | MOVE.L (A7)+,(A3)
000211fc 50 4f |PO | ADDQ.L #0x8,A7
000211fe 60 00 01 00 |` | BRA 0x21300
00021202 switch@0x211ca[0x1]:
00021202 41 fa ef 4e |A N | LEA.L 0x20152,A0
00021206 70 05 |p | MOVEQ.L #0x05,D0
00021208 2f 20 |/ | MOVE.L -(A0),-(A7)
0002120a 51 c8 ff fc |Q | DBF D0,0x21208
0002120e 59 4f |YO | SUBQ.L #0x4,A7
00021210 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021214 3f 01 |? | MOVE.W D1,-(A7)
00021216 3f 02 |? | MOVE.W D2,-(A7)
00021218 4e 92 |N | JSR (A2)
0002121a 60 00 00 de |` | BRA 0x212fa
0002121e switch@0x211ca[0x2]:
0002121e 9e c4 | | SUBA.W D4,A7
00021220 20 4f | O | MOVEA.L A7,A0
00021222 43 fa ef 2e |C . | LEA.L 0x20152,A1
00021226 70 14 |p | MOVEQ.L #0x14,D0
00021228 10 d9 | | MOVE.B (A1)+,(A0)+
0002122a 51 c8 ff fc |Q | DBF D0,0x21228
0002122e 59 4f |YO | SUBQ.L #0x4,A7
00021230 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021234 3f 01 |? | MOVE.W D1,-(A7)
00021236 3f 3c 00 15 |?< | MOVE.W #0x15,-(A7)
0002123a 4e 92 |N | JSR (A2)
0002123c 50 4f |PO | ADDQ.L #0x8,A7
0002123e 26 9f |& | MOVE.L (A7)+,(A3)
00021240 de c4 | | ADDA.W D4,A7
00021242 60 00 00 bc |` | BRA 0x21300
00021246 switch@0x211ca[0x3]:
00021246 41 fa ef 3a |A : | LEA.L 0x20182,A0
0002124a 70 0c |p | MOVEQ.L #0x0c,D0
0002124c 3f 20 |? | MOVE.W -(A0),-(A7)
0002124e 51 c8 ff fc |Q | DBF D0,0x2124c
00021252 59 4f |YO | SUBQ.L #0x4,A7
00021254 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021258 3f 01 |? | MOVE.W D1,-(A7)
0002125a 3f 05 |? | MOVE.W D5,-(A7)
0002125c 4e 92 |N | JSR (A2)
0002125e 50 4f |PO | ADDQ.L #0x8,A7
00021260 26 9f |& | MOVE.L (A7)+,(A3)
00021262 de c5 | | ADDA.W D5,A7
00021264 60 00 00 9a |` | BRA 0x21300
00021268 switch@0x211ca[0x4]:
00021268 9e c3 | | SUBA.W D3,A7
0002126a 20 4f | O | MOVEA.L A7,A0
0002126c 43 fa ef 14 |C | LEA.L 0x20182,A1
00021270 70 10 |p | MOVEQ.L #0x10,D0
00021272 10 d9 | | MOVE.B (A1)+,(A0)+
00021274 51 c8 ff fc |Q | DBF D0,0x21272
00021278 59 4f |YO | SUBQ.L #0x4,A7
0002127a 48 6f 00 04 |Ho | PEA.L (A7+0x4)
0002127e 3f 01 |? | MOVE.W D1,-(A7)
00021280 3f 3c 00 11 |?< | MOVE.W #0x11,-(A7)
00021284 4e 92 |N | JSR (A2)
00021286 50 4f |PO | ADDQ.L #0x8,A7
00021288 26 9f |& | MOVE.L (A7)+,(A3)
0002128a de c3 | | ADDA.W D3,A7
0002128c 60 72 |`r | BRA 0x21300
0002128e switch@0x211ca[0x5]:
0002128e 41 fa ef 1c |A | LEA.L 0x201ac,A0
00021292 70 05 |p | MOVEQ.L #0x05,D0
00021294 2f 20 |/ | MOVE.L -(A0),-(A7)
00021296 51 c8 ff fc |Q | DBF D0,0x21294
0002129a 60 00 ff 72 |` r | BRA 0x2120e
0002129e switch@0x211ca[0x6]:
0002129e 9e c3 | | SUBA.W D3,A7
000212a0 20 4f | O | MOVEA.L A7,A0
000212a2 43 fa ef 08 |C | LEA.L 0x201ac,A1
000212a6 70 10 |p | MOVEQ.L #0x10,D0
000212a8 10 d9 | | MOVE.B (A1)+,(A0)+
000212aa 51 c8 ff fc |Q | DBF D0,0x212a8
000212ae 60 c8 |` | BRA 0x21278
000212b0 switch@0x211ca[0x7]:
000212b0 41 fa ef 20 |A | LEA.L 0x201d2,A0
000212b4 70 04 |p | MOVEQ.L #0x04,D0
000212b6 2f 20 |/ | MOVE.L -(A0),-(A7)
000212b8 51 c8 ff fc |Q | DBF D0,0x212b6
000212bc 59 4f |YO | SUBQ.L #0x4,A7
000212be 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000212c2 3f 01 |? | MOVE.W D1,-(A7)
000212c4 3f 06 |? | MOVE.W D6,-(A7)
000212c6 4e 92 |N | JSR (A2)
000212c8 50 4f |PO | ADDQ.L #0x8,A7
000212ca 26 9f |& | MOVE.L (A7)+,(A3)
000212cc de c6 | | ADDA.W D6,A7
000212ce 60 30 |`0 | BRA 0x21300
000212d0 41 fa ef 18 |A | LEA.L 0x201ea,A0
000212d4 70 05 |p | MOVEQ.L #0x05,D0
000212d6 2f 20 |/ | MOVE.L -(A0),-(A7)
000212d8 51 c8 ff fc |Q | DBF D0,0x212d6
000212dc 51 4f |QO | SUBQ.L #0x8,A7
000212de 48 6f 00 08 |Ho | PEA.L (A7+0x8)
000212e2 3f 01 |? | MOVE.W D1,-(A7)
000212e4 3f 02 |? | MOVE.W D2,-(A7)
000212e6 4e 92 |N | JSR (A2)
000212e8 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7)
000212ec 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String
000212f2 58 4f |XO | ADDQ.L #0x4,A7
000212f4 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
000212fa 50 4f |PO | ADDQ.L #0x8,A7
000212fc 26 9f |& | MOVE.L (A7)+,(A3)
000212fe de c2 | | ADDA.W D2,A7
00021300 4c df 0f 7f |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+A0+A1+A2+A3
00021304 4e 5e |N^ | UNLK A6
00021306 4e 75 |Nu | RTS
00021308 ; --------------------------------------------------------------------------------------
00021308 ; OMSI PASCAL Function
00021308 ; <LVAR 0x008 4(r)>
00021308 ; --------------------------------------------------------------------------------------
00021308 4e 56 ff ac |NV | LINK.W A6,#0xffac
0002130c bf d5 | | CMPA.L (A5),A7
0002130e 62 06 |b | BHI 0x21316
00021310 44 fc 00 02 |D | MOVE.W #0x2,CCR
00021314 4e 76 |Nv | TRAPV
00021316 de fc 00 54 | T | ADDA.W #0x54,A7
0002131a 48 e7 c0 e0 |H | MOVEM.L A2+A1+A0+D1+D0,-(A7)
0002131e 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2
00021324 72 01 |r | MOVEQ.L #0x01,D1
00021326 9e fc 00 12 | | SUBA.W #0x12,A7
0002132a 20 4f | O | MOVEA.L A7,A0
0002132c 43 fa ee bc |C | LEA.L 0x201ea,A1
00021330 70 10 |p | MOVEQ.L #0x10,D0
00021332 10 d9 | | MOVE.B (A1)+,(A0)+
00021334 51 c8 ff fc |Q | DBF D0,0x21332
00021338 51 4f |QO | SUBQ.L #0x8,A7
0002133a 48 6f 00 08 |Ho | PEA.L (A7+0x8)
0002133e 3f 01 |? | MOVE.W D1,-(A7)
00021340 3f 3c 00 11 |?< | MOVE.W #0x11,-(A7)
00021344 4e 92 |N | JSR (A2)
00021346 58 4f |XO | ADDQ.L #0x4,A7
00021348 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7)
0002134c 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00021352 50 4f |PO | ADDQ.L #0x8,A7
00021354 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
0002135a de fc 00 16 | | ADDA.W #0x16,A7
0002135e 4a 39 00 02 97 52 |J9 R | TST.B 0x29752
00021364 66 08 |f | BNE 0x2136e
00021366 4a 39 00 02 97 53 |J9 S | TST.B 0x29753
0002136c 67 2a |g* | BEQ 0x21398
0002136e 41 fa ee bc |A | LEA.L 0x2022c,A0
00021372 70 0b |p | MOVEQ.L #0x0b,D0
00021374 2f 20 |/ | MOVE.L -(A0),-(A7)
00021376 51 c8 ff fc |Q | DBF D0,0x21374
0002137a 59 4f |YO | SUBQ.L #0x4,A7
0002137c 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021380 3f 01 |? | MOVE.W D1,-(A7)
00021382 3f 3c 00 30 |?< 0 | MOVE.W #0x30,-(A7)
00021386 4e 92 |N | JSR (A2)
00021388 50 4f |PO | ADDQ.L #0x8,A7
0002138a 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00021390 de fc 00 34 | 4 | ADDA.W #0x34,A7
00021394 60 fe |` | BRA 0x21394
00021396 60 30 |`0 | .XXX[0x2]
00021398 9e fc 00 18 | | SUBA.W #0x18,A7
0002139c 20 4f | O | MOVEA.L A7,A0
0002139e 43 fa ee 8c |C | LEA.L 0x2022c,A1
000213a2 70 16 |p | MOVEQ.L #0x16,D0
000213a4 10 d9 | | MOVE.B (A1)+,(A0)+
000213a6 51 c8 ff fc |Q | DBF D0,0x213a4
000213aa 1f 3c 00 0e | < | MOVE.B #0x0e,-(A7)
000213ae 59 4f |YO | SUBQ.L #0x4,A7
000213b0 48 6f 00 06 |Ho | PEA.L (A7+0x6)
000213b4 3f 01 |? | MOVE.W D1,-(A7)
000213b6 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7)
000213ba 4e 92 |N | JSR (A2)
000213bc 50 4f |PO | ADDQ.L #0x8,A7
000213be 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String)
000213c4 de fc 00 1e | | ADDA.W #0x1e,A7
000213c8 4c df 07 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2
000213cc 4e 5e |N^ | UNLK A6
000213ce 4e 75 |Nu | RTS
000213d0 ; --------------------------------------------------------------------------------------
000213d0 ; OMSI PASCAL Function
000213d0 ; <LVAR 0x00a 4(rw)>
000213d0 ; <LVAR 0x008 1(r)>
000213d0 ; --------------------------------------------------------------------------------------
000213d0 4e 56 ff f2 |NV | LINK.W A6,#0xfff2
000213d4 bf d5 | | CMPA.L (A5),A7
000213d6 62 06 |b | BHI 0x213de
000213d8 44 fc 00 02 |D | MOVE.W #0x2,CCR
000213dc 4e 76 |Nv | TRAPV
000213de de fc 00 0c | | ADDA.W #0xc,A7
000213e2 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7)
000213e6 41 ee 00 0a |A | LEA.L (A6+0xa),A0
000213ea 42 80 |B | CLR.L D0
000213ec 10 2e 00 08 | . | MOVE.B (A6+0x8),D0
000213f0 04 40 00 30 | @ 0 | SUBI.W #0x0030,D0
000213f4 0c 40 00 36 | @ 6 | CMPI.W #0x0036,D0
000213f8 62 00 00 f6 |b | BHI switch@0x213fe[0xa]
000213fc d0 40 | @ | ADD.W D0,D0
000213fe 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W
00021406 00 6e | n | .CONST 0x6e ; [0x0] -> 0x21474
00021408 00 72 | r | .CONST 0x72 ; [0x1] -> 0x21478
0002140a 00 7a | z | .CONST 0x7a ; [0x2] -> 0x21480
0002140c 00 82 | | .CONST 0x82 ; [0x3] -> 0x21488
0002140e 00 8a | | .CONST 0x8a ; [0x4] -> 0x21490
00021410 00 92 | | .CONST 0x92 ; [0x5] -> 0x21498
00021412 00 9a | | .CONST 0x9a ; [0x6] -> 0x214a0
00021414 00 a2 | | .CONST 0xa2 ; [0x7] -> 0x214a8
00021416 00 aa | | .CONST 0xaa ; [0x8] -> 0x214b0
00021418 00 b2 | | .CONST 0xb2 ; [0x9] -> 0x214b8
0002141a 00 ea | | .CONST 0xea ; [0xa] -> 0x214f0
0002141c 00 ea | | .CONST 0xea ; [0xb] -> 0x214f0
0002141e 00 ea | | .CONST 0xea ; [0xc] -> 0x214f0
00021420 00 ea | | .CONST 0xea ; [0xd] -> 0x214f0
00021422 00 ea | | .CONST 0xea ; [0xe] -> 0x214f0
00021424 00 ea | | .CONST 0xea ; [0xf] -> 0x214f0
00021426 00 ea | | .CONST 0xea ; [0x10] -> 0x214f0
00021428 00 ba | | .CONST 0xba ; [0x11] -> 0x214c0
0002142a 00 c2 | | .CONST 0xc2 ; [0x12] -> 0x214c8
0002142c 00 ca | | .CONST 0xca ; [0x13] -> 0x214d0
0002142e 00 d2 | | .CONST 0xd2 ; [0x14] -> 0x214d8
00021430 00 da | | .CONST 0xda ; [0x15] -> 0x214e0
00021432 00 e2 | | .CONST 0xe2 ; [0x16] -> 0x214e8
00021434 00 ea | | .CONST 0xea ; [0x17] -> 0x214f0
00021436 00 ea | | .CONST 0xea ; [0x18] -> 0x214f0
00021438 00 ea | | .CONST 0xea ; [0x19] -> 0x214f0
0002143a 00 ea | | .CONST 0xea ; [0x1a] -> 0x214f0
0002143c 00 ea | | .CONST 0xea ; [0x1b] -> 0x214f0
0002143e 00 ea | | .CONST 0xea ; [0x1c] -> 0x214f0
00021440 00 ea | | .CONST 0xea ; [0x1d] -> 0x214f0
00021442 00 ea | | .CONST 0xea ; [0x1e] -> 0x214f0
00021444 00 ea | | .CONST 0xea ; [0x1f] -> 0x214f0
00021446 00 ea | | .CONST 0xea ; [0x20] -> 0x214f0
00021448 00 ea | | .CONST 0xea ; [0x21] -> 0x214f0
0002144a 00 ea | | .CONST 0xea ; [0x22] -> 0x214f0
0002144c 00 ea | | .CONST 0xea ; [0x23] -> 0x214f0
0002144e 00 ea | | .CONST 0xea ; [0x24] -> 0x214f0
00021450 00 ea | | .CONST 0xea ; [0x25] -> 0x214f0
00021452 00 ea | | .CONST 0xea ; [0x26] -> 0x214f0
00021454 00 ea | | .CONST 0xea ; [0x27] -> 0x214f0
00021456 00 ea | | .CONST 0xea ; [0x28] -> 0x214f0
00021458 00 ea | | .CONST 0xea ; [0x29] -> 0x214f0
0002145a 00 ea | | .CONST 0xea ; [0x2a] -> 0x214f0
0002145c 00 ea | | .CONST 0xea ; [0x2b] -> 0x214f0
0002145e 00 ea | | .CONST 0xea ; [0x2c] -> 0x214f0
00021460 00 ea | | .CONST 0xea ; [0x2d] -> 0x214f0
00021462 00 ea | | .CONST 0xea ; [0x2e] -> 0x214f0
00021464 00 ea | | .CONST 0xea ; [0x2f] -> 0x214f0
00021466 00 ea | | .CONST 0xea ; [0x30] -> 0x214f0
00021468 00 ba | | .CONST 0xba ; [0x31] -> 0x214c0
0002146a 00 c2 | | .CONST 0xc2 ; [0x32] -> 0x214c8
0002146c 00 ca | | .CONST 0xca ; [0x33] -> 0x214d0
0002146e 00 d2 | | .CONST 0xd2 ; [0x34] -> 0x214d8
00021470 00 da | | .CONST 0xda ; [0x35] -> 0x214e0
00021472 00 e2 | | .CONST 0xe2 ; [0x36] -> 0x214e8
00021474 switch@0x213fe[0x0]:
00021474 42 90 |B | CLR.L (A0)
00021476 60 7e |`~ | BRA 0x214f6
00021478 switch@0x213fe[0x1]:
00021478 20 bc 00 00 00 01 | | MOVE.L #0x1,(A0)
0002147e 60 76 |`v | BRA 0x214f6
00021480 switch@0x213fe[0x2]:
00021480 20 bc 00 00 00 02 | | MOVE.L #0x2,(A0)
00021486 60 6e |`n | BRA 0x214f6
00021488 switch@0x213fe[0x3]:
00021488 20 bc 00 00 00 03 | | MOVE.L #0x3,(A0)
0002148e 60 66 |`f | BRA 0x214f6
00021490 switch@0x213fe[0x4]:
00021490 20 bc 00 00 00 04 | | MOVE.L #0x4,(A0)
00021496 60 5e |`^ | BRA 0x214f6
00021498 switch@0x213fe[0x5]:
00021498 20 bc 00 00 00 05 | | MOVE.L #0x5,(A0)
0002149e 60 56 |`V | BRA 0x214f6
000214a0 switch@0x213fe[0x6]:
000214a0 20 bc 00 00 00 06 | | MOVE.L #0x6,(A0)
000214a6 60 4e |`N | BRA 0x214f6
000214a8 switch@0x213fe[0x7]:
000214a8 20 bc 00 00 00 07 | | MOVE.L #0x7,(A0)
000214ae 60 46 |`F | BRA 0x214f6
000214b0 switch@0x213fe[0x8]:
000214b0 20 bc 00 00 00 08 | | MOVE.L #0x8,(A0)
000214b6 60 3e |`> | BRA 0x214f6
000214b8 switch@0x213fe[0x9]:
000214b8 20 bc 00 00 00 09 | | MOVE.L #0x9,(A0)
000214be 60 36 |`6 | BRA 0x214f6
000214c0 switch@0x213fe[0x11]:
000214c0 switch@0x213fe[0x31]:
000214c0 20 bc 00 00 00 0a | | MOVE.L #0xa,(A0)
000214c6 60 2e |`. | BRA 0x214f6
000214c8 switch@0x213fe[0x12]:
000214c8 switch@0x213fe[0x32]:
000214c8 20 bc 00 00 00 0b | | MOVE.L #0xb,(A0)
000214ce 60 26 |`& | BRA 0x214f6
000214d0 switch@0x213fe[0x13]:
000214d0 switch@0x213fe[0x33]:
000214d0 20 bc 00 00 00 0c | | MOVE.L #0xc,(A0)
000214d6 60 1e |` | BRA 0x214f6
000214d8 switch@0x213fe[0x14]:
000214d8 switch@0x213fe[0x34]:
000214d8 20 bc 00 00 00 0d | | MOVE.L #0xd,(A0)
000214de 60 16 |` | BRA 0x214f6
000214e0 switch@0x213fe[0x15]:
000214e0 switch@0x213fe[0x35]:
000214e0 20 bc 00 00 00 0e | | MOVE.L #0xe,(A0)
000214e6 60 0e |` | BRA 0x214f6
000214e8 switch@0x213fe[0x16]:
000214e8 switch@0x213fe[0x36]:
000214e8 20 bc 00 00 00 0f | | MOVE.L #0xf,(A0)
000214ee 60 06 |` | BRA 0x214f6
000214f0 switch@0x213fe[0x10]:
000214f0 switch@0x213fe[0x17]:
000214f0 switch@0x213fe[0x18]:
000214f0 switch@0x213fe[0x19]:
000214f0 switch@0x213fe[0x1a]:
000214f0 switch@0x213fe[0x1b]:
000214f0 switch@0x213fe[0x1c]:
000214f0 switch@0x213fe[0x1d]:
000214f0 switch@0x213fe[0x1e]:
000214f0 switch@0x213fe[0x1f]:
000214f0 switch@0x213fe[0x20]:
000214f0 switch@0x213fe[0x21]:
000214f0 switch@0x213fe[0x22]:
000214f0 switch@0x213fe[0x23]:
000214f0 switch@0x213fe[0x24]:
000214f0 switch@0x213fe[0x25]:
000214f0 switch@0x213fe[0x26]:
000214f0 switch@0x213fe[0x27]:
000214f0 switch@0x213fe[0x28]:
000214f0 switch@0x213fe[0x29]:
000214f0 switch@0x213fe[0x2a]:
000214f0 switch@0x213fe[0x2b]:
000214f0 switch@0x213fe[0x2c]:
000214f0 switch@0x213fe[0x2d]:
000214f0 switch@0x213fe[0x2e]:
000214f0 switch@0x213fe[0x2f]:
000214f0 switch@0x213fe[0x30]:
000214f0 switch@0x213fe[0xa]:
000214f0 switch@0x213fe[0xb]:
000214f0 switch@0x213fe[0xc]:
000214f0 switch@0x213fe[0xd]:
000214f0 switch@0x213fe[0xe]:
000214f0 switch@0x213fe[0xf]:
000214f0 20 bc ff ff ff ff | | MOVE.L #0xffffffff,(A0)
000214f6 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0
000214fa 4e 5e |N^ | UNLK A6
000214fc 4e 75 |Nu | RTS
000214fe ; --------------------------------------------------------------------------------------
000214fe ; OMSI PASCAL Function
000214fe ; <LVAR 0x010 2(r)>
000214fe ; <LVAR 0x00c 4(r)>
000214fe ; <LVAR 0x008 4(r)>
000214fe ; --------------------------------------------------------------------------------------
000214fe 4e 56 ff ca |NV | LINK.W A6,#0xffca
00021502 bf d5 | | CMPA.L (A5),A7
00021504 62 06 |b | BHI 0x2150c
00021506 44 fc 00 02 |D | MOVE.W #0x2,CCR
0002150a 4e 76 |Nv | TRAPV
0002150c de fc 00 34 | 4 | ADDA.W #0x34,A7
00021510 48 e7 c0 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D1+D0,-(A7)
00021514 47 ee 00 0c |G | LEA.L (A6+0xc),A3
00021518 49 ee 00 08 |I | LEA.L (A6+0x8),A4
0002151c 72 01 |r | MOVEQ.L #0x01,D1
0002151e 30 2e 00 10 |0. | MOVE.W (A6+0x10),D0
00021522 04 40 00 15 | @ | SUBI.W #0x0015,D0
00021526 0c 40 00 3e | @ > | CMPI.W #0x003e,D0
0002152a 62 00 01 6a |b j | BHI switch@0x21530[0x1]
0002152e d0 40 | @ | ADD.W D0,D0
00021530 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W
00021538 00 de | | .CONST 0xde ; [0x0] -> 0x21616
0002153a 01 5e | ^ | .CONST 0x15e ; [0x1] -> 0x21696
0002153c 00 ca | | .CONST 0xca ; [0x2] -> 0x21602
0002153e 01 5e | ^ | .CONST 0x15e ; [0x3] -> 0x21696
00021540 00 ac | | .CONST 0xac ; [0x4] -> 0x215e4
00021542 01 5e | ^ | .CONST 0x15e ; [0x5] -> 0x21696
00021544 01 5e | ^ | .CONST 0x15e ; [0x6] -> 0x21696
00021546 01 5e | ^ | .CONST 0x15e ; [0x7] -> 0x21696
00021548 01 5e | ^ | .CONST 0x15e ; [0x8] -> 0x21696
0002154a 01 5e | ^ | .CONST 0x15e ; [0x9] -> 0x21696
0002154c 01 5e | ^ | .CONST 0x15e ; [0xa] -> 0x21696
0002154e 01 5e | ^ | .CONST 0x15e ; [0xb] -> 0x21696
00021550 00 7e | ~ | .CONST 0x7e ; [0xc] -> 0x215b6
00021552 01 5e | ^ | .CONST 0x15e ; [0xd] -> 0x21696
00021554 01 5e | ^ | .CONST 0x15e ; [0xe] -> 0x21696
00021556 01 5e | ^ | .CONST 0x15e ; [0xf] -> 0x21696
00021558 01 5e | ^ | .CONST 0x15e ; [0x10] -> 0x21696
0002155a 01 5e | ^ | .CONST 0x15e ; [0x11] -> 0x21696
0002155c 01 5e | ^ | .CONST 0x15e ; [0x12] -> 0x21696
0002155e 01 5e | ^ | .CONST 0x15e ; [0x13] -> 0x21696
00021560 01 5e | ^ | .CONST 0x15e ; [0x14] -> 0x21696
00021562 01 5e | ^ | .CONST 0x15e ; [0x15] -> 0x21696
00021564 01 5e | ^ | .CONST 0x15e ; [0x16] -> 0x21696
00021566 01 5e | ^ | .CONST 0x15e ; [0x17] -> 0x21696
00021568 01 5e | ^ | .CONST 0x15e ; [0x18] -> 0x21696
0002156a 01 5e | ^ | .CONST 0x15e ; [0x19] -> 0x21696
0002156c 01 5e | ^ | .CONST 0x15e ; [0x1a] -> 0x21696
0002156e 01 5e | ^ | .CONST 0x15e ; [0x1b] -> 0x21696
00021570 01 5e | ^ | .CONST 0x15e ; [0x1c] -> 0x21696
00021572 01 5e | ^ | .CONST 0x15e ; [0x1d] -> 0x21696
00021574 01 5e | ^ | .CONST 0x15e ; [0x1e] -> 0x21696
00021576 01 5e | ^ | .CONST 0x15e ; [0x1f] -> 0x21696
00021578 01 5e | ^ | .CONST 0x15e ; [0x20] -> 0x21696
0002157a 01 5e | ^ | .CONST 0x15e ; [0x21] -> 0x21696
0002157c 01 5e | ^ | .CONST 0x15e ; [0x22] -> 0x21696
0002157e 01 5e | ^ | .CONST 0x15e ; [0x23] -> 0x21696
00021580 01 5e | ^ | .CONST 0x15e ; [0x24] -> 0x21696
00021582 01 5e | ^ | .CONST 0x15e ; [0x25] -> 0x21696
00021584 01 5e | ^ | .CONST 0x15e ; [0x26] -> 0x21696
00021586 01 5e | ^ | .CONST 0x15e ; [0x27] -> 0x21696
00021588 01 5e | ^ | .CONST 0x15e ; [0x28] -> 0x21696
0002158a 01 5e | ^ | .CONST 0x15e ; [0x29] -> 0x21696
0002158c 01 5e | ^ | .CONST 0x15e ; [0x2a] -> 0x21696
0002158e 01 5e | ^ | .CONST 0x15e ; [0x2b] -> 0x21696
00021590 01 5e | ^ | .CONST 0x15e ; [0x2c] -> 0x21696
00021592 01 5e | ^ | .CONST 0x15e ; [0x2d] -> 0x21696
00021594 01 5e | ^ | .CONST 0x15e ; [0x2e] -> 0x21696
00021596 01 5e | ^ | .CONST 0x15e ; [0x2f] -> 0x21696
00021598 01 5e | ^ | .CONST 0x15e ; [0x30] -> 0x21696
0002159a 01 5e | ^ | .CONST 0x15e ; [0x31] -> 0x21696
0002159c 01 5e | ^ | .CONST 0x15e ; [0x32] -> 0x21696
0002159e 01 5e | ^ | .CONST 0x15e ; [0x33] -> 0x21696
000215a0 01 5e | ^ | .CONST 0x15e ; [0x34] -> 0x21696
000215a2 01 5e | ^ | .CONST 0x15e ; [0x35] -> 0x21696
000215a4 01 5e | ^ | .CONST 0x15e ; [0x36] -> 0x21696
000215a6 01 5e | ^ | .CONST 0x15e ; [0x37] -> 0x21696
000215a8 01 5e | ^ | .CONST 0x15e ; [0x38] -> 0x21696
000215aa 01 5e | ^ | .CONST 0x15e ; [0x39] -> 0x21696
000215ac 01 5e | ^ | .CONST 0x15e ; [0x3a] -> 0x21696
000215ae 00 f2 | | .CONST 0xf2 ; [0x3b] -> 0x2162a
000215b0 01 06 | | .CONST 0x106 ; [0x3c] -> 0x2163e
000215b2 01 3a | : | .CONST 0x13a ; [0x3d] -> 0x21672
000215b4 01 4c | L | .CONST 0x14c ; [0x3e] -> 0x21684
000215b6 switch@0x21530[0xc]:
000215b6 20 53 | S | MOVEA.L (A3),A0
000215b8 20 bc 80 00 00 00 | | MOVE.L #0x80000000,(A0)
000215be 20 54 | T | MOVEA.L (A4),A0
000215c0 2f 3a ec 86 |/: | MOVE.L 0x20248,-(A7)
000215c4 2f 3a ec 7e |/: ~ | MOVE.L 0x20244,-(A7)
000215c8 59 4f |YO | SUBQ.L #0x4,A7
000215ca 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000215ce 3f 01 |? | MOVE.W D1,-(A7)
000215d0 3f 3c 00 08 |?< | MOVE.W #0x8,-(A7)
000215d4 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
000215da 50 4f |PO | ADDQ.L #0x8,A7
000215dc 20 9f | | MOVE.L (A7)+,(A0)
000215de 50 4f |PO | ADDQ.L #0x8,A7
000215e0 60 00 00 e4 |` | BRA 0x216c6
000215e4 switch@0x21530[0x4]:
000215e4 20 53 | S | MOVEA.L (A3),A0
000215e6 20 bc 80 00 20 00 | | MOVE.L #0x80002000,(A0)
000215ec 20 54 | T | MOVEA.L (A4),A0
000215ee 2f 3a ec 5c |/: \ | MOVE.L 0x2024c,-(A7)
000215f2 59 4f |YO | SUBQ.L #0x4,A7
000215f4 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000215f8 3f 01 |? | MOVE.W D1,-(A7)
000215fa 3f 3c 00 04 |?< | MOVE.W #0x4,-(A7)
000215fe 60 00 00 ba |` | BRA 0x216ba
00021602 switch@0x21530[0x2]:
00021602 20 53 | S | MOVEA.L (A3),A0
00021604 20 bc 80 00 40 00 | @ | MOVE.L #0x80004000,(A0)
0002160a 20 54 | T | MOVEA.L (A4),A0
0002160c 2f 3a ec 46 |/: F | MOVE.L 0x20254,-(A7)
00021610 2f 3a ec 3e |/: > | MOVE.L 0x20250,-(A7)
00021614 60 b2 |` | BRA 0x215c8
00021616 switch@0x21530[0x0]:
00021616 20 53 | S | MOVEA.L (A3),A0
00021618 20 bc 80 00 60 00 | ` | MOVE.L #0x80006000,(A0)
0002161e 20 54 | T | MOVEA.L (A4),A0
00021620 2f 3a ec 3a |/: : | MOVE.L 0x2025c,-(A7)
00021624 2f 3a ec 32 |/: 2 | MOVE.L 0x20258,-(A7)
00021628 60 9e |` | BRA 0x215c8
0002162a switch@0x21530[0x3b]:
0002162a 20 53 | S | MOVEA.L (A3),A0
0002162c 20 bc 00 07 00 00 | | MOVE.L #0x70000,(A0)
00021632 20 54 | T | MOVEA.L (A4),A0
00021634 2f 3a ec 2e |/: . | MOVE.L 0x20264,-(A7)
00021638 2f 3a ec 26 |/: & | MOVE.L 0x20260,-(A7)
0002163c 60 8a |` | BRA 0x215c8
0002163e switch@0x21530[0x3c]:
0002163e 20 53 | S | MOVEA.L (A3),A0
00021640 20 bc 00 07 20 00 | | MOVE.L #0x72000,(A0)
00021646 20 54 | T | MOVEA.L (A4),A0
00021648 5d 4f |]O | SUBQ.L #0x6,A7
0002164a 22 4f |"O | MOVEA.L A7,A1
0002164c 45 fa ec 1a |E | LEA.L 0x20268,A2
00021650 70 04 |p | MOVEQ.L #0x04,D0
00021652 12 da | | MOVE.B (A2)+,(A1)+
00021654 51 c8 ff fc |Q | DBF D0,0x21652
00021658 59 4f |YO | SUBQ.L #0x4,A7
0002165a 48 6f 00 04 |Ho | PEA.L (A7+0x4)
0002165e 3f 01 |? | MOVE.W D1,-(A7)
00021660 3f 3c 00 05 |?< | MOVE.W #0x5,-(A7)
00021664 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
0002166a 50 4f |PO | ADDQ.L #0x8,A7
0002166c 20 9f | | MOVE.L (A7)+,(A0)
0002166e 5c 4f |\O | ADDQ.L #0x6,A7
00021670 60 54 |`T | BRA 0x216c6
00021672 switch@0x21530[0x3d]:
00021672 20 53 | S | MOVEA.L (A3),A0
00021674 20 bc 00 07 40 00 | @ | MOVE.L #0x74000,(A0)
0002167a 20 54 | T | MOVEA.L (A4),A0
0002167c 2f 3a eb f0 |/: | MOVE.L 0x2026e,-(A7)
00021680 60 00 ff 70 |` p | BRA 0x215f2
00021684 switch@0x21530[0x3e]:
00021684 20 53 | S | MOVEA.L (A3),A0
00021686 20 bc 00 07 60 00 | ` | MOVE.L #0x76000,(A0)
0002168c 20 54 | T | MOVEA.L (A4),A0
0002168e 2f 3a eb e2 |/: | MOVE.L 0x20272,-(A7)
00021692 60 00 ff 5e |` ^ | BRA 0x215f2
00021696 switch@0x21530[0x10]:
00021696 switch@0x21530[0x11]:
00021696 switch@0x21530[0x12]:
00021696 switch@0x21530[0x13]:
00021696 switch@0x21530[0x14]:
00021696 switch@0x21530[0x15]:
00021696 switch@0x21530[0x16]:
00021696 switch@0x21530[0x17]:
00021696 switch@0x21530[0x18]:
00021696 switch@0x21530[0x19]:
00021696 switch@0x21530[0x1]:
00021696 switch@0x21530[0x1a]:
00021696 switch@0x21530[0x1b]:
00021696 switch@0x21530[0x1c]:
00021696 switch@0x21530[0x1d]:
00021696 switch@0x21530[0x1e]:
00021696 switch@0x21530[0x1f]:
00021696 switch@0x21530[0x20]:
00021696 switch@0x21530[0x21]:
00021696 switch@0x21530[0x22]:
00021696 switch@0x21530[0x23]:
00021696 switch@0x21530[0x24]:
00021696 switch@0x21530[0x25]:
00021696 switch@0x21530[0x26]:
00021696 switch@0x21530[0x27]:
00021696 switch@0x21530[0x28]:
00021696 switch@0x21530[0x29]:
00021696 switch@0x21530[0x2a]:
00021696 switch@0x21530[0x2b]:
00021696 switch@0x21530[0x2c]:
00021696 switch@0x21530[0x2d]:
00021696 switch@0x21530[0x2e]:
00021696 switch@0x21530[0x2f]:
00021696 switch@0x21530[0x30]:
00021696 switch@0x21530[0x31]:
00021696 switch@0x21530[0x32]:
00021696 switch@0x21530[0x33]:
00021696 switch@0x21530[0x34]:
00021696 switch@0x21530[0x35]:
00021696 switch@0x21530[0x36]:
00021696 switch@0x21530[0x37]:
00021696 switch@0x21530[0x38]:
00021696 switch@0x21530[0x39]:
00021696 switch@0x21530[0x3]:
00021696 switch@0x21530[0x3a]:
00021696 switch@0x21530[0x5]:
00021696 switch@0x21530[0x6]:
00021696 switch@0x21530[0x7]:
00021696 switch@0x21530[0x8]:
00021696 switch@0x21530[0x9]:
00021696 switch@0x21530[0xa]:
00021696 switch@0x21530[0xb]:
00021696 switch@0x21530[0xd]:
00021696 switch@0x21530[0xe]:
00021696 switch@0x21530[0xf]:
00021696 20 53 | S | MOVEA.L (A3),A0
00021698 42 90 |B | CLR.L (A0)
0002169a 20 54 | T | MOVEA.L (A4),A0
0002169c 59 4f |YO | SUBQ.L #0x4,A7
0002169e 1e ba eb d6 | | MOVE.B 0x20276,(A7)
000216a2 1f 7a eb d3 00 01 | z | MOVE.B 0x20277,(A7+0x1)
000216a8 1f 7a eb ce 00 02 | z | MOVE.B 0x20278,(A7+0x2)
000216ae 59 4f |YO | SUBQ.L #0x4,A7
000216b0 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000216b4 3f 01 |? | MOVE.W D1,-(A7)
000216b6 3f 3c 00 03 |?< | MOVE.W #0x3,-(A7)
000216ba 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
000216c0 50 4f |PO | ADDQ.L #0x8,A7
000216c2 20 9f | | MOVE.L (A7)+,(A0)
000216c4 58 4f |XO | ADDQ.L #0x4,A7
000216c6 4c df 1f 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2+A3+A4
000216ca 4e 5e |N^ | UNLK A6
000216cc 4e 75 |Nu | RTS
000216ce ; --------------------------------------------------------------------------------------
000216ce ; OMSI PASCAL Function
000216ce ; <LVAR 0x008 4(r)>
000216ce ; <LVAR -0x004 2(rw)>
000216ce ; <LVAR -0x008 4(rw)>
000216ce ; --------------------------------------------------------------------------------------
000216ce 4e 56 ff 88 |NV | LINK.W A6,#0xff88
000216d2 bf d5 | | CMPA.L (A5),A7
000216d4 62 06 |b | BHI 0x216dc
000216d6 44 fc 00 02 |D | MOVE.W #0x2,CCR
000216da 4e 76 |Nv | TRAPV
000216dc de fc 00 68 | h | ADDA.W #0x68,A7
000216e0 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
000216e4 43 fa fc ea |C | LEA.L 0x213d0,A1
000216e8 45 f9 00 02 57 3c |E W< | LEA.L 0x2573c,A2
000216ee 47 ee ff f8 |G | LEA.L (A6-0x8),A3
000216f2 49 ee 00 08 |I | LEA.L (A6+0x8),A4
000216f6 20 54 | T | MOVEA.L (A4),A0
000216f8 59 4f |YO | SUBQ.L #0x4,A7
000216fa 1f 28 00 02 | ( | MOVE.B (A0+0x2),-(A7)
000216fe 4e 91 |N | JSR (A1)
00021700 54 4f |TO | ADDQ.L #0x2,A7
00021702 26 1f |& | MOVE.L (A7)+,D3
00021704 78 10 |x | MOVEQ.L #0x10,D4
00021706 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4
0002170c 59 4f |YO | SUBQ.L #0x4,A7
0002170e 1f 28 00 03 | ( | MOVE.B (A0+0x3),-(A7)
00021712 4e 91 |N | JSR (A1)
00021714 54 4f |TO | ADDQ.L #0x2,A7
00021716 20 04 | | MOVE.L D4,D0
00021718 d0 9f | | ADD.L (A7)+,D0
0002171a 0c 80 00 00 00 ff | | CMPI.L #0x000000ff,D0
00021720 63 02 |c | BLS 0x21724
00021722 4e 4f |NO | TRAP #15
00021724 3d 40 ff fc |=@ | MOVE.W D0,(A6-0x4)
00021728 48 c0 |H | EXTW.L D0
0002172a 2e 00 |. | MOVE.L D0,D7
0002172c 42 93 |B | CLR.L (A3)
0002172e 7c 00 || | MOVEQ.L #0x00,D6
00021730 20 54 | T | MOVEA.L (A4),A0
00021732 20 06 | | MOVE.L D6,D0
00021734 e3 80 | | ASL.L #0x1,D0
00021736 59 4f |YO | SUBQ.L #0x4,A7
00021738 22 00 |" | MOVE.L D0,D1
0002173a 5a 81 |Z | ADDQ.L #0x5,D1
0002173c 53 81 |S | SUBQ.L #0x1,D1
0002173e 0c 81 00 00 01 ff | | CMPI.L #0x000001ff,D1
00021744 63 02 |c | BLS 0x21748
00021746 4e 4f |NO | TRAP #15
00021748 1f 30 18 00 | 0 | MOVE.B (A0+D1.L),-(A7)
0002174c 4e 91 |N | JSR (A1)
0002174e 54 4f |TO | ADDQ.L #0x2,A7
00021750 26 1f |& | MOVE.L (A7)+,D3
00021752 78 10 |x | MOVEQ.L #0x10,D4
00021754 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4
0002175a 59 4f |YO | SUBQ.L #0x4,A7
0002175c 5c 80 |\ | ADDQ.L #0x6,D0
0002175e 53 80 |S | SUBQ.L #0x1,D0
00021760 0c 80 00 00 01 ff | | CMPI.L #0x000001ff,D0
00021766 63 02 |c | BLS 0x2176a
00021768 4e 4f |NO | TRAP #15
0002176a 1f 30 08 00 | 0 | MOVE.B (A0+D0.L),-(A7)
0002176e 4e 91 |N | JSR (A1)
00021770 54 4f |TO | ADDQ.L #0x2,A7
00021772 20 04 | | MOVE.L D4,D0
00021774 d0 9f | | ADD.L (A7)+,D0
00021776 0c 80 00 00 00 ff | | CMPI.L #0x000000ff,D0
0002177c 63 02 |c | BLS 0x21780
0002177e 4e 4f |NO | TRAP #15
00021780 3a 00 |: | MOVE.W D0,D5
00021782 20 13 | | MOVE.L (A3),D0
00021784 e1 80 | | ASL.L #0x8,D0
00021786 32 05 |2 | MOVE.W D5,D1
00021788 48 c1 |H | EXTW.L D1
0002178a d0 81 | | ADD.L D1,D0
0002178c 26 80 |& | MOVE.L D0,(A3)
0002178e de 81 | | ADD.L D1,D7
00021790 52 86 |R | ADDQ.L #0x1,D6
00021792 0c 86 00 00 00 03 | | CMPI.L #0x00000003,D6
00021798 6f 96 |o | BLE 0x21730
0002179a 4a 92 |J | TST.L (A2)
0002179c 66 0c |f | BNE 0x217aa
0002179e 20 13 | | MOVE.L (A3),D0
000217a0 e0 88 | | LSR.L #0x8,D0
000217a2 ea 88 | | LSR.L #0x5,D0
000217a4 e1 80 | | ASL.L #0x8,D0
000217a6 eb 80 | | ASL.L #0x5,D0
000217a8 24 80 |$ | MOVE.L D0,(A2)
000217aa 30 2e ff fc |0. | MOVE.W (A6-0x4),D0
000217ae 5d 40 |]@ | SUBQ.W #0x6,D0
000217b0 48 c0 |H | EXTW.L D0
000217b2 2f 00 |/ | MOVE.L D0,-(A7)
000217b4 7c 00 || | MOVEQ.L #0x00,D6
000217b6 bc 97 | | CMP.L (A7),D6
000217b8 6e 00 00 a8 |n | BGT 0x21862
000217bc 20 54 | T | MOVEA.L (A4),A0
000217be 20 06 | | MOVE.L D6,D0
000217c0 e3 80 | | ASL.L #0x1,D0
000217c2 59 4f |YO | SUBQ.L #0x4,A7
000217c4 22 00 |" | MOVE.L D0,D1
000217c6 06 81 00 00 00 0d | | ADDI.L #0x0000000d,D1
000217cc 53 81 |S | SUBQ.L #0x1,D1
000217ce 0c 81 00 00 01 ff | | CMPI.L #0x000001ff,D1
000217d4 63 02 |c | BLS 0x217d8
000217d6 4e 4f |NO | TRAP #15
000217d8 1f 30 18 00 | 0 | MOVE.B (A0+D1.L),-(A7)
000217dc 4e 91 |N | JSR (A1)
000217de 54 4f |TO | ADDQ.L #0x2,A7
000217e0 26 1f |& | MOVE.L (A7)+,D3
000217e2 78 10 |x | MOVEQ.L #0x10,D4
000217e4 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4
000217ea 59 4f |YO | SUBQ.L #0x4,A7
000217ec 06 80 00 00 00 0e | | ADDI.L #0x0000000e,D0
000217f2 53 80 |S | SUBQ.L #0x1,D0
000217f4 0c 80 00 00 01 ff | | CMPI.L #0x000001ff,D0
000217fa 63 02 |c | BLS 0x217fe
000217fc 4e 4f |NO | TRAP #15
000217fe 1f 30 08 00 | 0 | MOVE.B (A0+D0.L),-(A7)
00021802 4e 91 |N | JSR (A1)
00021804 54 4f |TO | ADDQ.L #0x2,A7
00021806 20 04 | | MOVE.L D4,D0
00021808 d0 9f | | ADD.L (A7)+,D0
0002180a 0c 80 00 00 00 ff | | CMPI.L #0x000000ff,D0
00021810 63 02 |c | BLS 0x21814
00021812 4e 4f |NO | TRAP #15
00021814 3a 00 |: | MOVE.W D0,D5
00021816 30 05 |0 | MOVE.W D5,D0
00021818 48 c0 |H | EXTW.L D0
0002181a de 80 | | ADD.L D0,D7
0002181c 52 b9 00 02 57 40 |R W@ | ADDQ.L #0x1,0x25740
00021822 22 13 |" | MOVE.L (A3),D1
00021824 d2 86 | | ADD.L D6,D1
00021826 b2 92 | | CMP.L (A2),D1
00021828 65 32 |e2 | BCS 0x2185c
0002182a 24 12 |$ | MOVE.L (A2),D2
0002182c 06 82 00 00 20 00 | | ADDI.L #0x00002000,D2
00021832 b2 82 | | CMP.L D2,D1
00021834 64 26 |d& | BCC 0x2185c
00021836 02 81 00 00 1f ff | | ANDI.L #0x00001fff,D1
0002183c 0c 81 00 00 1f ff | | CMPI.L #0x00001fff,D1
00021842 63 02 |c | BLS 0x21846
00021844 4e 4f |NO | TRAP #15
00021846 e3 81 | | ASL.L #0x1,D1
00021848 41 f9 00 02 57 28 |A W( | LEA.L 0x25728,A0
0002184e 41 bc 00 ff |A | CHK.W #0xff,D0
00021852 31 80 18 2a |1 * | MOVE.W D0,(A0+D1.L+#0x2a)
00021856 52 b9 00 02 57 44 |R WD | ADDQ.L #0x1,0x25744
0002185c 52 86 |R | ADDQ.L #0x1,D6
0002185e 68 00 ff 56 |h V | BVC 0x217b6
00021862 58 4f |XO | ADDQ.L #0x4,A7
00021864 20 54 | T | MOVEA.L (A4),A0
00021866 30 2e ff fc |0. | MOVE.W (A6-0x4),D0
0002186a e3 40 | @ | ASL.W #0x1,D0
0002186c 59 4f |YO | SUBQ.L #0x4,A7
0002186e 32 00 |2 | MOVE.W D0,D1
00021870 56 41 |VA | ADDQ.W #0x3,D1
00021872 53 41 |SA | SUBQ.W #0x1,D1
00021874 43 bc 01 ff |C | CHK.W #0x1ff,D1
00021878 1f 30 10 00 | 0 | MOVE.B (A0+D1.W),-(A7)
0002187c 4e 91 |N | JSR (A1)
0002187e 54 4f |TO | ADDQ.L #0x2,A7
00021880 26 1f |& | MOVE.L (A7)+,D3
00021882 78 10 |x | MOVEQ.L #0x10,D4
00021884 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4
0002188a de 84 | | ADD.L D4,D7
0002188c 59 4f |YO | SUBQ.L #0x4,A7
0002188e 58 40 |X@ | ADDQ.W #0x4,D0
00021890 53 40 |S@ | SUBQ.W #0x1,D0
00021892 41 bc 01 ff |A | CHK.W #0x1ff,D0
00021896 1f 30 00 00 | 0 | MOVE.B (A0+D0.W),-(A7)
0002189a 4e 91 |N | JSR (A1)
0002189c 54 4f |TO | ADDQ.L #0x2,A7
0002189e de 9f | | ADD.L (A7)+,D7
000218a0 28 07 |( | MOVE.L D7,D4
000218a2 26 3c 00 00 01 00 |&< | MOVE.L #0x100,D3
000218a8 4e b9 00 01 02 94 |N | JSR ?divs_d3_d4
000218ae 0c 83 00 00 00 ff | | CMPI.L #0x000000ff,D3
000218b4 67 2a |g* | BEQ 0x218e0
000218b6 41 fa e9 e2 |A | LEA.L 0x2029a,A0
000218ba 70 07 |p | MOVEQ.L #0x07,D0
000218bc 2f 20 |/ | MOVE.L -(A0),-(A7)
000218be 51 c8 ff fc |Q | DBF D0,0x218bc
000218c2 59 4f |YO | SUBQ.L #0x4,A7
000218c4 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000218c8 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
000218cc 3f 3c 00 20 |?< | MOVE.W #0x20,-(A7)
000218d0 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
000218d6 50 4f |PO | ADDQ.L #0x8,A7
000218d8 4e ba fa 2e |N . | JSR 0x21308
000218dc de fc 00 24 | $ | ADDA.W #0x24,A7
000218e0 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
000218e4 4e 5e |N^ | UNLK A6
000218e6 4e 75 |Nu | RTS
000218e8 ; --------------------------------------------------------------------------------------
000218e8 ; OMSI PASCAL Function
000218e8 ; <LVAR 0x008 4(r)>
000218e8 ; <LVAR -0x209 1(r)>
000218e8 ; <LVAR -0x20a @ 1(rw)>
000218e8 ; <LVAR -0x20e @ 4(r)>
000218e8 ; <LVAR -0x210 @ 1(r)>
000218e8 ; --------------------------------------------------------------------------------------
000218e8 4e 56 fd 8c |NV | LINK.W A6,#0xfd8c
000218ec bf d5 | | CMPA.L (A5),A7
000218ee 62 06 |b | BHI 0x218f6
000218f0 44 fc 00 02 |D | MOVE.W #0x2,CCR
000218f4 4e 76 |Nv | TRAPV
000218f6 de fc 00 64 | d | ADDA.W #0x64,A7
000218fa 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
000218fe 45 ee fd f2 |E | LEA.L (A6-0x20e),A2
00021902 47 ee fd f0 |G | LEA.L (A6-0x210),A3
00021906 49 f9 00 02 57 30 |I W0 | LEA.L 0x25730,A4
0002190c 74 01 |t | MOVEQ.L #0x01,D2
0002190e 7a 53 |zS | MOVEQ.L #0x53,D5
00021910 48 52 |HR | PEA.L (A2)
00021912 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String)
00021918 58 4f |XO | ADDQ.L #0x4,A7
0002191a 7e 00 |~ | MOVEQ.L #0x00,D7
0002191c 1d 7c 00 20 fd f6 | | | MOVE.B #0x20,(A6-0x20a)
00021922 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0
00021926 2f 10 |/ | MOVE.L (A0),-(A7)
00021928 48 52 |HR | PEA.L (A2)
0002192a 48 53 |HS | PEA.L (A3)
0002192c 4e b9 00 01 04 3c |N < | JSR FileReadLine(file : File; VAR a : String; VAR b : Byte)
00021932 de fc 00 0c | | ADDA.W #0xc,A7
00021936 4a 13 |J | TST.B (A3)
00021938 67 3e |g> | BEQ 0x21978
0002193a 42 27 |B' | CLR.B -(A7)
0002193c 1f 02 | | MOVE.B D2,-(A7)
0002193e 48 78 00 01 |Hx | PEA.L 0x1
00021942 48 54 |HT | PEA.L (A4)
00021944 48 50 |HP | PEA.L (A0)
00021946 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File)
0002194c de fc 00 10 | | ADDA.W #0x10,A7
00021950 41 fa e9 5e |A ^ | LEA.L 0x202b0,A0
00021954 70 0a |p | MOVEQ.L #0x0a,D0
00021956 3f 20 |? | MOVE.W -(A0),-(A7)
00021958 51 c8 ff fc |Q | DBF D0,0x21956
0002195c 59 4f |YO | SUBQ.L #0x4,A7
0002195e 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021962 3f 02 |? | MOVE.W D2,-(A7)
00021964 3f 3c 00 16 |?< | MOVE.W #0x16,-(A7)
00021968 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
0002196e 50 4f |PO | ADDQ.L #0x8,A7
00021970 4e ba f9 96 |N | JSR 0x21308
00021974 de fc 00 1a | | ADDA.W #0x1a,A7
00021978 20 52 | R | MOVEA.L (A2),A0
0002197a 30 10 |0 | MOVE.W (A0),D0
0002197c 48 c0 |H | EXTW.L D0
0002197e 2f 00 |/ | MOVE.L D0,-(A7)
00021980 7c 01 || | MOVEQ.L #0x01,D6
00021982 bc 97 | | CMP.L (A7),D6
00021984 6e 76 |nv | BGT 0x219fc
00021986 52 87 |R | ADDQ.L #0x1,D7
00021988 0c 87 00 00 02 00 | | CMPI.L #0x00000200,D7
0002198e 6f 42 |oB | BLE 0x219d2
00021990 42 27 |B' | CLR.B -(A7)
00021992 1f 02 | | MOVE.B D2,-(A7)
00021994 48 78 00 01 |Hx | PEA.L 0x1
00021998 48 54 |HT | PEA.L (A4)
0002199a 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0
0002199e 48 50 |HP | PEA.L (A0)
000219a0 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File)
000219a6 de fc 00 10 | | ADDA.W #0x10,A7
000219aa 41 fa e9 16 |A | LEA.L 0x202c2,A0
000219ae 70 08 |p | MOVEQ.L #0x08,D0
000219b0 3f 20 |? | MOVE.W -(A0),-(A7)
000219b2 51 c8 ff fc |Q | DBF D0,0x219b0
000219b6 59 4f |YO | SUBQ.L #0x4,A7
000219b8 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000219bc 3f 02 |? | MOVE.W D2,-(A7)
000219be 3f 3c 00 12 |?< | MOVE.W #0x12,-(A7)
000219c2 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
000219c8 50 4f |PO | ADDQ.L #0x8,A7
000219ca 4e ba f9 3c |N < | JSR 0x21308
000219ce de fc 00 16 | | ADDA.W #0x16,A7
000219d2 20 07 | | MOVE.L D7,D0
000219d4 53 80 |S | SUBQ.L #0x1,D0
000219d6 0c 80 00 00 01 ff | | CMPI.L #0x000001ff,D0
000219dc 63 02 |c | BLS 0x219e0
000219de 4e 4f |NO | TRAP #15
000219e0 20 4b | K | MOVEA.L A3,A0
000219e2 22 52 |"R | MOVEA.L (A2),A1
000219e4 22 06 |" | MOVE.L D6,D1
000219e6 53 81 |S | SUBQ.L #0x1,D1
000219e8 0c 81 00 00 00 7d | } | CMPI.L #0x0000007d,D1
000219ee 63 02 |c | BLS 0x219f2
000219f0 4e 4f |NO | TRAP #15
000219f2 11 b1 18 02 08 06 | | MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x6)
000219f8 52 86 |R | ADDQ.L #0x1,D6
000219fa 68 86 |h | BVC 0x21982
000219fc 58 4f |XO | ADDQ.L #0x4,A7
000219fe 20 52 | R | MOVEA.L (A2),A0
00021a00 30 10 |0 | MOVE.W (A0),D0
00021a02 0c 40 00 7e | @ ~ | CMPI.W #0x007e,D0
00021a06 6c 00 ff 1a |l | BGE 0x21922
00021a0a 10 2e fd f6 | . | MOVE.B (A6-0x20a),D0
00021a0e b0 05 | | CMP.B D5,D0
00021a10 66 16 |f | BNE 0x21a28
00021a12 12 2e fd f7 | . | MOVE.B (A6-0x209),D1
00021a16 0c 01 00 33 | 3 | CMPI.B #0x33,D1
00021a1a 66 0c |f | BNE 0x21a28
00021a1c 48 6e fd f6 |Hn | PEA.L (A6-0x20a)
00021a20 4e ba fc ac |N | JSR 0x216ce
00021a24 58 4f |XO | ADDQ.L #0x4,A7
00021a26 60 74 |`t | BRA 0x21a9c
00021a28 b0 05 | | CMP.B D5,D0
00021a2a 66 0c |f | BNE 0x21a38
00021a2c 12 2e fd f7 | . | MOVE.B (A6-0x209),D1
00021a30 0c 01 00 35 | 5 | CMPI.B #0x35,D1
00021a34 66 02 |f | BNE 0x21a38
00021a36 60 64 |`d | BRA 0x21a9c
00021a38 b0 05 | | CMP.B D5,D0
00021a3a 66 0c |f | BNE 0x21a48
00021a3c 12 2e fd f7 | . | MOVE.B (A6-0x209),D1
00021a40 0c 01 00 37 | 7 | CMPI.B #0x37,D1
00021a44 66 02 |f | BNE 0x21a48
00021a46 60 54 |`T | BRA 0x21a9c
00021a48 b0 05 | | CMP.B D5,D0
00021a4a 66 0c |f | BNE 0x21a58
00021a4c 10 2e fd f7 | . | MOVE.B (A6-0x209),D0
00021a50 0c 00 00 38 | 8 | CMPI.B #0x38,D0
00021a54 66 02 |f | BNE 0x21a58
00021a56 60 44 |`D | BRA 0x21a9c
00021a58 42 27 |B' | CLR.B -(A7)
00021a5a 1f 02 | | MOVE.B D2,-(A7)
00021a5c 48 78 00 01 |Hx | PEA.L 0x1
00021a60 48 54 |HT | PEA.L (A4)
00021a62 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0
00021a66 48 50 |HP | PEA.L (A0)
00021a68 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File)
00021a6e 9e fc 00 0e | | SUBA.W #0xe,A7
00021a72 20 4f | O | MOVEA.L A7,A0
00021a74 43 fa e8 4c |C L | LEA.L 0x202c2,A1
00021a78 70 1c |p | MOVEQ.L #0x1c,D0
00021a7a 10 d9 | | MOVE.B (A1)+,(A0)+
00021a7c 51 c8 ff fc |Q | DBF D0,0x21a7a
00021a80 59 4f |YO | SUBQ.L #0x4,A7
00021a82 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021a86 3f 02 |? | MOVE.W D2,-(A7)
00021a88 3f 3c 00 1d |?< | MOVE.W #0x1d,-(A7)
00021a8c 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00021a92 50 4f |PO | ADDQ.L #0x8,A7
00021a94 4e ba f8 72 |N r | JSR 0x21308
00021a98 de fc 00 22 | " | ADDA.W #0x22,A7
00021a9c 10 2e fd f7 | . | MOVE.B (A6-0x209),D0
00021aa0 0c 00 00 37 | 7 | CMPI.B #0x37,D0
00021aa4 67 08 |g | BEQ 0x21aae
00021aa6 0c 00 00 38 | 8 | CMPI.B #0x38,D0
00021aaa 66 00 fe 6e |f n | BNE 0x2191a
00021aae 42 79 00 02 97 5c |By \ | CLR.W 0x2975c
00021ab4 42 79 00 02 97 5e |By ^ | CLR.W 0x2975e
00021aba 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0
00021abe 2f 10 |/ | MOVE.L (A0),-(A7)
00021ac0 48 52 |HR | PEA.L (A2)
00021ac2 48 53 |HS | PEA.L (A3)
00021ac4 4e b9 00 01 04 3c |N < | JSR FileReadLine(file : File; VAR a : String; VAR b : Byte)
00021aca de fc 00 0c | | ADDA.W #0xc,A7
00021ace 20 52 | R | MOVEA.L (A2),A0
00021ad0 4a 13 |J | TST.B (A3)
00021ad2 66 00 00 82 |f | BNE 0x21b56
00021ad6 10 28 00 02 | ( | MOVE.B (A0+0x2),D0
00021ada 0c 00 00 52 | R | CMPI.B #0x52,D0
00021ade 66 76 |fv | BNE 0x21b56
00021ae0 10 28 00 05 | ( | MOVE.B (A0+0x5),D0
00021ae4 0c 00 00 4e | N | CMPI.B #0x4e,D0
00021ae8 66 6c |fl | BNE 0x21b56
00021aea 59 4f |YO | SUBQ.L #0x4,A7
00021aec 1f 28 00 03 | ( | MOVE.B (A0+0x3),-(A7)
00021af0 4e ba f8 de |N | JSR 0x213d0
00021af4 54 4f |TO | ADDQ.L #0x2,A7
00021af6 28 1f |( | MOVE.L (A7)+,D4
00021af8 76 0a |v | MOVEQ.L #0x0a,D3
00021afa 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4
00021b00 59 4f |YO | SUBQ.L #0x4,A7
00021b02 1f 28 00 04 | ( | MOVE.B (A0+0x4),-(A7)
00021b06 4e ba f8 c8 |N | JSR 0x213d0
00021b0a 54 4f |TO | ADDQ.L #0x2,A7
00021b0c 20 04 | | MOVE.L D4,D0
00021b0e d0 9f | | ADD.L (A7)+,D0
00021b10 0c 80 00 00 00 ff | | CMPI.L #0x000000ff,D0
00021b16 63 02 |c | BLS 0x21b1a
00021b18 4e 4f |NO | TRAP #15
00021b1a 33 c0 00 02 97 5c |3 \ | MOVE.W D0,0x2975c
00021b20 59 4f |YO | SUBQ.L #0x4,A7
00021b22 1f 28 00 06 | ( | MOVE.B (A0+0x6),-(A7)
00021b26 4e ba f8 a8 |N | JSR 0x213d0
00021b2a 54 4f |TO | ADDQ.L #0x2,A7
00021b2c 28 1f |( | MOVE.L (A7)+,D4
00021b2e 76 0a |v | MOVEQ.L #0x0a,D3
00021b30 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4
00021b36 59 4f |YO | SUBQ.L #0x4,A7
00021b38 1f 28 00 07 | ( | MOVE.B (A0+0x7),-(A7)
00021b3c 4e ba f8 92 |N | JSR 0x213d0
00021b40 54 4f |TO | ADDQ.L #0x2,A7
00021b42 20 04 | | MOVE.L D4,D0
00021b44 d0 9f | | ADD.L (A7)+,D0
00021b46 0c 80 00 00 00 ff | | CMPI.L #0x000000ff,D0
00021b4c 63 02 |c | BLS 0x21b50
00021b4e 4e 4f |NO | TRAP #15
00021b50 33 c0 00 02 97 5e |3 ^ | MOVE.W D0,0x2975e
00021b56 48 52 |HR | PEA.L (A2)
00021b58 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String)
00021b5e 58 4f |XO | ADDQ.L #0x4,A7
00021b60 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00021b64 4e 5e |N^ | UNLK A6
00021b66 4e 75 |Nu | RTS
00021b68 ; --------------------------------------------------------------------------------------
00021b68 ; OMSI PASCAL Function
00021b68 ; <LVAR 0x008 4(r)>
00021b68 ; <LVAR -0x010 4(rw)>
00021b68 ; <LVAR -0x014 4(rw)>
00021b68 ; --------------------------------------------------------------------------------------
00021b68 4e 56 ff 88 |NV | LINK.W A6,#0xff88
00021b6c bf d5 | | CMPA.L (A5),A7
00021b6e 62 06 |b | BHI 0x21b76
00021b70 44 fc 00 02 |D | MOVE.W #0x2,CCR
00021b74 4e 76 |Nv | TRAPV
00021b76 de fc 00 64 | d | ADDA.W #0x64,A7
00021b7a 48 e7 ff f0 |H | MOVEM.L A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00021b7e 43 fa f8 50 |C P | LEA.L 0x213d0,A1
00021b82 45 f9 00 01 02 8c |E | LEA.L ?muls_d3_d4,A2
00021b88 47 ee 00 08 |G | LEA.L (A6+0x8),A3
00021b8c 74 7d |t} | MOVEQ.L #0x7d,D2
00021b8e 20 53 | S | MOVEA.L (A3),A0
00021b90 59 4f |YO | SUBQ.L #0x4,A7
00021b92 1f 28 00 03 | ( | MOVE.B (A0+0x3),-(A7)
00021b96 4e 91 |N | JSR (A1)
00021b98 54 4f |TO | ADDQ.L #0x2,A7
00021b9a 26 1f |& | MOVE.L (A7)+,D3
00021b9c 78 10 |x | MOVEQ.L #0x10,D4
00021b9e 4e 92 |N | JSR (A2)
00021ba0 59 4f |YO | SUBQ.L #0x4,A7
00021ba2 1f 28 00 04 | ( | MOVE.B (A0+0x4),-(A7)
00021ba6 4e 91 |N | JSR (A1)
00021ba8 54 4f |TO | ADDQ.L #0x2,A7
00021baa 20 04 | | MOVE.L D4,D0
00021bac d0 9f | | ADD.L (A7)+,D0
00021bae 2d 40 ff f0 |-@ | MOVE.L D0,(A6-0x10)
00021bb2 59 4f |YO | SUBQ.L #0x4,A7
00021bb4 1f 28 00 05 | ( | MOVE.B (A0+0x5),-(A7)
00021bb8 4e 91 |N | JSR (A1)
00021bba 54 4f |TO | ADDQ.L #0x2,A7
00021bbc 26 1f |& | MOVE.L (A7)+,D3
00021bbe 28 3c 00 00 10 00 |(< | MOVE.L #0x1000,D4
00021bc4 4e 92 |N | JSR (A2)
00021bc6 2f 04 |/ | MOVE.L D4,-(A7)
00021bc8 59 4f |YO | SUBQ.L #0x4,A7
00021bca 1f 28 00 06 | ( | MOVE.B (A0+0x6),-(A7)
00021bce 4e 91 |N | JSR (A1)
00021bd0 54 4f |TO | ADDQ.L #0x2,A7
00021bd2 26 1f |& | MOVE.L (A7)+,D3
00021bd4 28 3c 00 00 01 00 |(< | MOVE.L #0x100,D4
00021bda 4e 92 |N | JSR (A2)
00021bdc 22 17 |" | MOVE.L (A7),D1
00021bde d2 84 | | ADD.L D4,D1
00021be0 1f 28 00 07 | ( | MOVE.B (A0+0x7),-(A7)
00021be4 4e 91 |N | JSR (A1)
00021be6 54 4f |TO | ADDQ.L #0x2,A7
00021be8 26 1f |& | MOVE.L (A7)+,D3
00021bea 78 10 |x | MOVEQ.L #0x10,D4
00021bec 4e 92 |N | JSR (A2)
00021bee d2 84 | | ADD.L D4,D1
00021bf0 59 4f |YO | SUBQ.L #0x4,A7
00021bf2 1f 28 00 08 | ( | MOVE.B (A0+0x8),-(A7)
00021bf6 4e 91 |N | JSR (A1)
00021bf8 54 4f |TO | ADDQ.L #0x2,A7
00021bfa d2 9f | | ADD.L (A7)+,D1
00021bfc 2d 41 ff ec |-A | MOVE.L D1,(A6-0x14)
00021c00 2e 00 |. | MOVE.L D0,D7
00021c02 59 4f |YO | SUBQ.L #0x4,A7
00021c04 1f 28 00 05 | ( | MOVE.B (A0+0x5),-(A7)
00021c08 4e 91 |N | JSR (A1)
00021c0a 54 4f |TO | ADDQ.L #0x2,A7
00021c0c 26 1f |& | MOVE.L (A7)+,D3
00021c0e 78 10 |x | MOVEQ.L #0x10,D4
00021c10 4e 92 |N | JSR (A2)
00021c12 de 84 | | ADD.L D4,D7
00021c14 59 4f |YO | SUBQ.L #0x4,A7
00021c16 1f 28 00 06 | ( | MOVE.B (A0+0x6),-(A7)
00021c1a 4e 91 |N | JSR (A1)
00021c1c 54 4f |TO | ADDQ.L #0x2,A7
00021c1e de 9f | | ADD.L (A7)+,D7
00021c20 59 4f |YO | SUBQ.L #0x4,A7
00021c22 1f 28 00 07 | ( | MOVE.B (A0+0x7),-(A7)
00021c26 4e 91 |N | JSR (A1)
00021c28 54 4f |TO | ADDQ.L #0x2,A7
00021c2a 26 1f |& | MOVE.L (A7)+,D3
00021c2c 78 10 |x | MOVEQ.L #0x10,D4
00021c2e 4e 92 |N | JSR (A2)
00021c30 de 84 | | ADD.L D4,D7
00021c32 59 4f |YO | SUBQ.L #0x4,A7
00021c34 1f 28 00 08 | ( | MOVE.B (A0+0x8),-(A7)
00021c38 4e 91 |N | JSR (A1)
00021c3a 54 4f |TO | ADDQ.L #0x2,A7
00021c3c de 9f | | ADD.L (A7)+,D7
00021c3e 53 80 |S | SUBQ.L #0x1,D0
00021c40 2f 00 |/ | MOVE.L D0,-(A7)
00021c42 7a 00 |z | MOVEQ.L #0x00,D5
00021c44 ba 97 | | CMP.L (A7),D5
00021c46 6e 76 |nv | BGT 0x21cbe
00021c48 20 53 | S | MOVEA.L (A3),A0
00021c4a 20 05 | | MOVE.L D5,D0
00021c4c e3 80 | | ASL.L #0x1,D0
00021c4e 59 4f |YO | SUBQ.L #0x4,A7
00021c50 72 0a |r | MOVEQ.L #0x0a,D1
00021c52 d2 80 | | ADD.L D0,D1
00021c54 53 81 |S | SUBQ.L #0x1,D1
00021c56 b2 82 | | CMP.L D2,D1
00021c58 63 02 |c | BLS 0x21c5c
00021c5a 4e 4f |NO | TRAP #15
00021c5c 1f 30 18 02 | 0 | MOVE.B (A0+D1.L+#0x2),-(A7)
00021c60 4e 91 |N | JSR (A1)
00021c62 54 4f |TO | ADDQ.L #0x2,A7
00021c64 26 1f |& | MOVE.L (A7)+,D3
00021c66 78 10 |x | MOVEQ.L #0x10,D4
00021c68 4e 92 |N | JSR (A2)
00021c6a 59 4f |YO | SUBQ.L #0x4,A7
00021c6c 06 80 00 00 00 0b | | ADDI.L #0x0000000b,D0
00021c72 53 80 |S | SUBQ.L #0x1,D0
00021c74 b0 82 | | CMP.L D2,D0
00021c76 63 02 |c | BLS 0x21c7a
00021c78 4e 4f |NO | TRAP #15
00021c7a 1f 30 08 02 | 0 | MOVE.B (A0+D0.L+#0x2),-(A7)
00021c7e 4e 91 |N | JSR (A1)
00021c80 54 4f |TO | ADDQ.L #0x2,A7
00021c82 2c 04 |, | MOVE.L D4,D6
00021c84 dc 9f | | ADD.L (A7)+,D6
00021c86 20 2e ff ec | . | MOVE.L (A6-0x14),D0
00021c8a d0 85 | | ADD.L D5,D0
00021c8c 0c 80 00 00 1f ff | | CMPI.L #0x00001fff,D0
00021c92 63 02 |c | BLS 0x21c96
00021c94 4e 4f |NO | TRAP #15
00021c96 e3 80 | | ASL.L #0x1,D0
00021c98 41 f9 00 02 57 28 |A W( | LEA.L 0x25728,A0
00021c9e 0c 86 00 00 00 ff | | CMPI.L #0x000000ff,D6
00021ca4 63 02 |c | BLS 0x21ca8
00021ca6 4e 4f |NO | TRAP #15
00021ca8 31 86 08 2a |1 * | MOVE.W D6,(A0+D0.L+#0x2a)
00021cac de 86 | | ADD.L D6,D7
00021cae 52 b9 00 02 57 40 |R W@ | ADDQ.L #0x1,0x25740
00021cb4 52 b9 00 02 57 44 |R WD | ADDQ.L #0x1,0x25744
00021cba 52 85 |R | ADDQ.L #0x1,D5
00021cbc 68 86 |h | BVC 0x21c44
00021cbe 58 4f |XO | ADDQ.L #0x4,A7
00021cc0 20 53 | S | MOVEA.L (A3),A0
00021cc2 20 2e ff f0 | . | MOVE.L (A6-0x10),D0
00021cc6 e3 80 | | ASL.L #0x1,D0
00021cc8 59 4f |YO | SUBQ.L #0x4,A7
00021cca 72 0a |r | MOVEQ.L #0x0a,D1
00021ccc d2 80 | | ADD.L D0,D1
00021cce 53 81 |S | SUBQ.L #0x1,D1
00021cd0 b2 82 | | CMP.L D2,D1
00021cd2 63 02 |c | BLS 0x21cd6
00021cd4 4e 4f |NO | TRAP #15
00021cd6 1f 30 18 02 | 0 | MOVE.B (A0+D1.L+#0x2),-(A7)
00021cda 4e 91 |N | JSR (A1)
00021cdc 54 4f |TO | ADDQ.L #0x2,A7
00021cde 26 1f |& | MOVE.L (A7)+,D3
00021ce0 78 10 |x | MOVEQ.L #0x10,D4
00021ce2 4e 92 |N | JSR (A2)
00021ce4 de 84 | | ADD.L D4,D7
00021ce6 59 4f |YO | SUBQ.L #0x4,A7
00021ce8 06 80 00 00 00 0b | | ADDI.L #0x0000000b,D0
00021cee 53 80 |S | SUBQ.L #0x1,D0
00021cf0 b0 82 | | CMP.L D2,D0
00021cf2 63 02 |c | BLS 0x21cf6
00021cf4 4e 4f |NO | TRAP #15
00021cf6 1f 30 08 02 | 0 | MOVE.B (A0+D0.L+#0x2),-(A7)
00021cfa 4e 91 |N | JSR (A1)
00021cfc 54 4f |TO | ADDQ.L #0x2,A7
00021cfe de 9f | | ADD.L (A7)+,D7
00021d00 28 07 |( | MOVE.L D7,D4
00021d02 26 3c 00 00 01 00 |&< | MOVE.L #0x100,D3
00021d08 4e b9 00 01 02 94 |N | JSR ?divs_d3_d4
00021d0e 4a 83 |J | TST.L D3
00021d10 67 2a |g* | BEQ 0x21d3c
00021d12 41 fa e5 ec |A | LEA.L 0x20300,A0
00021d16 70 07 |p | MOVEQ.L #0x07,D0
00021d18 2f 20 |/ | MOVE.L -(A0),-(A7)
00021d1a 51 c8 ff fc |Q | DBF D0,0x21d18
00021d1e 59 4f |YO | SUBQ.L #0x4,A7
00021d20 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021d24 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
00021d28 3f 3c 00 20 |?< | MOVE.W #0x20,-(A7)
00021d2c 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00021d32 50 4f |PO | ADDQ.L #0x8,A7
00021d34 4e ba f5 d2 |N | JSR 0x21308
00021d38 de fc 00 24 | $ | ADDA.W #0x24,A7
00021d3c 4c df 0f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3
00021d40 4e 5e |N^ | UNLK A6
00021d42 4e 75 |Nu | RTS
00021d44 ; --------------------------------------------------------------------------------------
00021d44 ; OMSI PASCAL Function
00021d44 ; <LVAR 0x008 4(r)>
00021d44 ; <LVAR -0x004 @ 1(r)>
00021d44 ; <LVAR -0x008 @ 4(r)>
00021d44 ; --------------------------------------------------------------------------------------
00021d44 4e 56 ff a2 |NV | LINK.W A6,#0xffa2
00021d48 bf d5 | | CMPA.L (A5),A7
00021d4a 62 06 |b | BHI 0x21d52
00021d4c 44 fc 00 02 |D | MOVE.W #0x2,CCR
00021d50 4e 76 |Nv | TRAPV
00021d52 de fc 00 56 | V | ADDA.W #0x56,A7
00021d56 48 e7 e0 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D2+D1+D0,-(A7)
00021d5a 47 ee ff f8 |G | LEA.L (A6-0x8),A3
00021d5e 49 f9 00 02 57 30 |I W0 | LEA.L 0x25730,A4
00021d64 72 01 |r | MOVEQ.L #0x01,D1
00021d66 74 30 |t0 | MOVEQ.L #0x30,D2
00021d68 48 53 |HS | PEA.L (A3)
00021d6a 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String)
00021d70 58 4f |XO | ADDQ.L #0x4,A7
00021d72 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0
00021d76 2f 08 |/ | MOVE.L A0,-(A7)
00021d78 2f 10 |/ | MOVE.L (A0),-(A7)
00021d7a 48 53 |HS | PEA.L (A3)
00021d7c 48 6e ff fc |Hn | PEA.L (A6-0x4)
00021d80 4e b9 00 01 04 3c |N < | JSR FileReadLine(file : File; VAR a : String; VAR b : Byte)
00021d86 de fc 00 0c | | ADDA.W #0xc,A7
00021d8a 4a 2e ff fc |J. | TST.B (A6-0x4)
00021d8e 67 3e |g> | BEQ 0x21dce
00021d90 42 27 |B' | CLR.B -(A7)
00021d92 1f 01 | | MOVE.B D1,-(A7)
00021d94 48 78 00 01 |Hx | PEA.L 0x1
00021d98 48 54 |HT | PEA.L (A4)
00021d9a 48 50 |HP | PEA.L (A0)
00021d9c 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File)
00021da2 de fc 00 10 | | ADDA.W #0x10,A7
00021da6 41 fa e5 6e |A n | LEA.L 0x20316,A0
00021daa 70 0a |p | MOVEQ.L #0x0a,D0
00021dac 3f 20 |? | MOVE.W -(A0),-(A7)
00021dae 51 c8 ff fc |Q | DBF D0,0x21dac
00021db2 59 4f |YO | SUBQ.L #0x4,A7
00021db4 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021db8 3f 01 |? | MOVE.W D1,-(A7)
00021dba 3f 3c 00 16 |?< | MOVE.W #0x16,-(A7)
00021dbe 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00021dc4 50 4f |PO | ADDQ.L #0x8,A7
00021dc6 4e ba f5 40 |N @ | JSR 0x21308
00021dca de fc 00 1a | | ADDA.W #0x1a,A7
00021dce 20 53 | S | MOVEA.L (A3),A0
00021dd0 10 28 00 02 | ( | MOVE.B (A0+0x2),D0
00021dd4 0c 00 00 3a | : | CMPI.B #0x3a,D0
00021dd8 66 08 |f | BNE 0x21de2
00021dda 10 28 00 09 | ( | MOVE.B (A0+0x9),D0
00021dde b0 02 | | CMP.B D2,D0
00021de0 67 44 |gD | BEQ 0x21e26
00021de2 42 27 |B' | CLR.B -(A7)
00021de4 1f 01 | | MOVE.B D1,-(A7)
00021de6 48 78 00 01 |Hx | PEA.L 0x1
00021dea 48 54 |HT | PEA.L (A4)
00021dec 22 6f 00 0c |"o | MOVEA.L (A7+0xc),A1
00021df0 48 51 |HQ | PEA.L (A1)
00021df2 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File)
00021df8 9e fc 00 0e | | SUBA.W #0xe,A7
00021dfc 22 4f |"O | MOVEA.L A7,A1
00021dfe 45 fa e5 16 |E | LEA.L 0x20316,A2
00021e02 70 1c |p | MOVEQ.L #0x1c,D0
00021e04 12 da | | MOVE.B (A2)+,(A1)+
00021e06 51 c8 ff fc |Q | DBF D0,0x21e04
00021e0a 59 4f |YO | SUBQ.L #0x4,A7
00021e0c 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021e10 3f 01 |? | MOVE.W D1,-(A7)
00021e12 3f 3c 00 1d |?< | MOVE.W #0x1d,-(A7)
00021e16 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00021e1c 50 4f |PO | ADDQ.L #0x8,A7
00021e1e 4e ba f4 e8 |N | JSR 0x21308
00021e22 de fc 00 22 | " | ADDA.W #0x22,A7
00021e26 2f 13 |/ | MOVE.L (A3),-(A7)
00021e28 4e ba fd 3e |N > | JSR 0x21b68
00021e2c 58 4f |XO | ADDQ.L #0x4,A7
00021e2e 10 28 00 05 | ( | MOVE.B (A0+0x5),D0
00021e32 0c 00 00 31 | 1 | CMPI.B #0x31,D0
00021e36 67 06 |g | BEQ 0x21e3e
00021e38 58 4f |XO | ADDQ.L #0x4,A7
00021e3a 60 00 ff 36 |` 6 | BRA 0x21d72
00021e3e 10 28 00 06 | ( | MOVE.B (A0+0x6),D0
00021e42 0c 00 00 46 | F | CMPI.B #0x46,D0
00021e46 67 06 |g | BEQ 0x21e4e
00021e48 58 4f |XO | ADDQ.L #0x4,A7
00021e4a 60 00 ff 26 |` & | BRA 0x21d72
00021e4e 10 28 00 07 | ( | MOVE.B (A0+0x7),D0
00021e52 0c 00 00 45 | E | CMPI.B #0x45,D0
00021e56 67 06 |g | BEQ 0x21e5e
00021e58 58 4f |XO | ADDQ.L #0x4,A7
00021e5a 60 00 ff 16 |` | BRA 0x21d72
00021e5e 58 4f |XO | ADDQ.L #0x4,A7
00021e60 10 28 00 08 | ( | MOVE.B (A0+0x8),D0
00021e64 b0 02 | | CMP.B D2,D0
00021e66 66 00 ff 0a |f | BNE 0x21d72
00021e6a 48 53 |HS | PEA.L (A3)
00021e6c 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String)
00021e72 58 4f |XO | ADDQ.L #0x4,A7
00021e74 4c df 1f 07 |L | MOVEM.L (A7)+,D0+D1+D2+A0+A1+A2+A3+A4
00021e78 4e 5e |N^ | UNLK A6
00021e7a 4e 75 |Nu | RTS
00021e7c ; --------------------------------------------------------------------------------------
00021e7c ; OMSI PASCAL Function
00021e7c ; <LVAR 0x00c 4(r)>
00021e7c ; <LVAR 0x00a 1(r)>
00021e7c ; <LVAR 0x008 1(r)>
00021e7c ; <LVAR -0x004 @ 4(r)>
00021e7c ; <LVAR -0x008 @ 4(r)>
00021e7c ; --------------------------------------------------------------------------------------
00021e7c 4e 56 ff 72 |NV r | LINK.W A6,#0xff72
00021e80 bf d5 | | CMPA.L (A5),A7
00021e82 62 06 |b | BHI 0x21e8a
00021e84 44 fc 00 02 |D | MOVE.W #0x2,CCR
00021e88 4e 76 |Nv | TRAPV
00021e8a de fc 00 7e | ~ | ADDA.W #0x7e,A7
00021e8e 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00021e92 45 f9 00 02 57 50 |E WP | LEA.L 0x25750,A2
00021e98 47 f9 00 02 57 4c |G WL | LEA.L 0x2574c,A3
00021e9e 49 f9 00 02 57 28 |I W( | LEA.L 0x25728,A4
00021ea4 74 01 |t | MOVEQ.L #0x01,D2
00021ea6 2a 3c 00 00 1f ff |*< | MOVE.L #0x1fff,D5
00021eac 20 39 00 02 57 3c | 9 W< | MOVE.L 0x2573c,D0
00021eb2 0c 80 80 00 60 00 | ` | CMPI.L #0x80006000,D0
00021eb8 67 16 |g | BEQ 0x21ed0
00021eba 4a 2e 00 0a |J. | TST.B (A6+0xa)
00021ebe 67 18 |g | BEQ 0x21ed8
00021ec0 4a 79 00 02 97 4e |Jy N | TST.W 0x2974e
00021ec6 66 10 |f | BNE 0x21ed8
00021ec8 4a 79 00 02 97 48 |Jy H | TST.W 0x29748
00021ece 66 08 |f | BNE 0x21ed8
00021ed0 26 bc 00 00 1d ff |& | MOVE.L #0x1dff,(A3)
00021ed6 60 02 |` | BRA 0x21eda
00021ed8 26 85 |& | MOVE.L D5,(A3)
00021eda 20 13 | | MOVE.L (A3),D0
00021edc 53 80 |S | SUBQ.L #0x1,D0
00021ede b0 85 | | CMP.L D5,D0
00021ee0 63 02 |c | BLS 0x21ee4
00021ee2 4e 4f |NO | TRAP #15
00021ee4 e3 80 | | ASL.L #0x1,D0
00021ee6 20 4c | L | MOVEA.L A4,A0
00021ee8 30 30 08 2a |00 * | MOVE.W (A0+D0.L+#0x2a),D0
00021eec 41 bc 00 ff |A | CHK.W #0xff,D0
00021ef0 34 80 |4 | MOVE.W D0,(A2)
00021ef2 3f 00 |? | MOVE.W D0,-(A7)
00021ef4 48 79 00 02 57 48 |Hy WH | PEA.L 0x25748
00021efa 48 6e ff fc |Hn | PEA.L (A6-0x4)
00021efe 4e ba f5 fe |N | JSR 0x214fe
00021f02 de fc 00 0a | | ADDA.W #0xa,A7
00021f06 4a 2e 00 08 |J. | TST.B (A6+0x8)
00021f0a 67 00 01 6c |g l | BEQ 0x22078
00021f0e 3f 3a e4 28 |?: ( | MOVE.W 0x20338,-(A7)
00021f12 3f 3a e4 22 |?: " | MOVE.W 0x20336,-(A7)
00021f16 3f 3a e4 1c |?: | MOVE.W 0x20334,-(A7)
00021f1a 41 fa e4 42 |A B | LEA.L 0x2035e,A0
00021f1e 70 08 |p | MOVEQ.L #0x08,D0
00021f20 2f 20 |/ | MOVE.L -(A0),-(A7)
00021f22 51 c8 ff fc |Q | DBF D0,0x21f20
00021f26 51 4f |QO | SUBQ.L #0x8,A7
00021f28 48 6f 00 2c |Ho , | PEA.L (A7+0x2c)
00021f2c 3f 02 |? | MOVE.W D2,-(A7)
00021f2e 3f 3c 00 06 |?< | MOVE.W #0x6,-(A7)
00021f32 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00021f38 2e b9 00 02 57 44 |. WD | MOVE.L 0x25744,(A7)
00021f3e 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String
00021f44 48 6f 00 10 |Ho | PEA.L (A7+0x10)
00021f48 3f 02 |? | MOVE.W D2,-(A7)
00021f4a 3f 3c 00 24 |?< $ | MOVE.W #0x24,-(A7)
00021f4e 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00021f54 2e b9 00 02 57 3c |. W< | MOVE.L 0x2573c,(A7)
00021f5a 48 78 00 08 |Hx | PEA.L 0x8
00021f5e 4e b9 00 01 02 e8 |N | JSR Long2HexString(val : Long; ndig : Long) : String
00021f64 50 4f |PO | ADDQ.L #0x8,A7
00021f66 4e b9 00 01 02 d8 |N | JSR StringCat4(a, b, c, d : String) : String
00021f6c de fc 00 10 | | ADDA.W #0x10,A7
00021f70 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00021f76 de fc 00 14 | | ADDA.W #0x14,A7
00021f7a 20 4f | O | MOVEA.L A7,A0
00021f7c 43 fa e3 e0 |C | LEA.L 0x2035e,A1
00021f80 70 18 |p | MOVEQ.L #0x18,D0
00021f82 10 d9 | | MOVE.B (A1)+,(A0)+
00021f84 51 c8 ff fc |Q | DBF D0,0x21f82
00021f88 51 4f |QO | SUBQ.L #0x8,A7
00021f8a 48 6f 00 08 |Ho | PEA.L (A7+0x8)
00021f8e 3f 02 |? | MOVE.W D2,-(A7)
00021f90 3f 3c 00 19 |?< | MOVE.W #0x19,-(A7)
00021f94 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00021f9a 58 4f |XO | ADDQ.L #0x4,A7
00021f9c 20 13 | | MOVE.L (A3),D0
00021f9e 59 80 |Y | SUBQ.L #0x4,D0
00021fa0 b0 85 | | CMP.L D5,D0
00021fa2 63 02 |c | BLS 0x21fa6
00021fa4 4e 4f |NO | TRAP #15
00021fa6 e3 80 | | ASL.L #0x1,D0
00021fa8 20 4c | L | MOVEA.L A4,A0
00021faa 32 30 08 2a |20 * | MOVE.W (A0+D0.L+#0x2a),D1
00021fae 48 c1 |H | EXTW.L D1
00021fb0 2f 01 |/ | MOVE.L D1,-(A7)
00021fb2 48 78 00 02 |Hx | PEA.L 0x2
00021fb6 4e b9 00 01 02 e8 |N | JSR Long2HexString(val : Long; ndig : Long) : String
00021fbc 58 4f |XO | ADDQ.L #0x4,A7
00021fbe 20 13 | | MOVE.L (A3),D0
00021fc0 57 80 |W | SUBQ.L #0x3,D0
00021fc2 b0 85 | | CMP.L D5,D0
00021fc4 63 02 |c | BLS 0x21fc8
00021fc6 4e 4f |NO | TRAP #15
00021fc8 e3 80 | | ASL.L #0x1,D0
00021fca 20 4c | L | MOVEA.L A4,A0
00021fcc 32 30 08 2a |20 * | MOVE.W (A0+D0.L+#0x2a),D1
00021fd0 48 c1 |H | EXTW.L D1
00021fd2 2f 01 |/ | MOVE.L D1,-(A7)
00021fd4 48 78 00 02 |Hx | PEA.L 0x2
00021fd8 4e b9 00 01 02 e8 |N | JSR Long2HexString(val : Long; ndig : Long) : String
00021fde 58 4f |XO | ADDQ.L #0x4,A7
00021fe0 20 13 | | MOVE.L (A3),D0
00021fe2 55 80 |U | SUBQ.L #0x2,D0
00021fe4 b0 85 | | CMP.L D5,D0
00021fe6 63 02 |c | BLS 0x21fea
00021fe8 4e 4f |NO | TRAP #15
00021fea e3 80 | | ASL.L #0x1,D0
00021fec 20 4c | L | MOVEA.L A4,A0
00021fee 32 30 08 2a |20 * | MOVE.W (A0+D0.L+#0x2a),D1
00021ff2 48 c1 |H | EXTW.L D1
00021ff4 2f 01 |/ | MOVE.L D1,-(A7)
00021ff6 48 78 00 02 |Hx | PEA.L 0x2
00021ffa 4e b9 00 01 02 e8 |N | JSR Long2HexString(val : Long; ndig : Long) : String
00022000 50 4f |PO | ADDQ.L #0x8,A7
00022002 4e b9 00 01 02 d8 |N | JSR StringCat4(a, b, c, d : String) : String
00022008 de fc 00 10 | | ADDA.W #0x10,A7
0002200c 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String)
00022012 de fc 00 0e | | ADDA.W #0xe,A7
00022016 20 4f | O | MOVEA.L A7,A0
00022018 43 fa e3 5e |C ^ | LEA.L 0x20378,A1
0002201c 70 0e |p | MOVEQ.L #0x0e,D0
0002201e 10 d9 | | MOVE.B (A1)+,(A0)+
00022020 51 c8 ff fc |Q | DBF D0,0x2201e
00022024 3f 3a e3 62 |?: b | MOVE.W 0x20388,-(A7)
00022028 51 4f |QO | SUBQ.L #0x8,A7
0002202a 48 6f 00 0a |Ho | PEA.L (A7+0xa)
0002202e 3f 02 |? | MOVE.W D2,-(A7)
00022030 3f 3c 00 0f |?< | MOVE.W #0xf,-(A7)
00022034 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
0002203a 58 4f |XO | ADDQ.L #0x4,A7
0002203c 30 12 |0 | MOVE.W (A2),D0
0002203e 48 c0 |H | EXTW.L D0
00022040 2f 00 |/ | MOVE.L D0,-(A7)
00022042 48 78 00 02 |Hx | PEA.L 0x2
00022046 4e b9 00 01 02 e8 |N | JSR Long2HexString(val : Long; ndig : Long) : String
0002204c 58 4f |XO | ADDQ.L #0x4,A7
0002204e 48 6f 00 10 |Ho | PEA.L (A7+0x10)
00022052 3f 02 |? | MOVE.W D2,-(A7)
00022054 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7)
00022058 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
0002205e 58 4f |XO | ADDQ.L #0x4,A7
00022060 2e ae ff fc |. | MOVE.L (A6-0x4),(A7)
00022064 4e b9 00 01 02 d8 |N | JSR StringCat4(a, b, c, d : String) : String
0002206a de fc 00 10 | | ADDA.W #0x10,A7
0002206e 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String)
00022074 de fc 00 16 | | ADDA.W #0x16,A7
00022078 7e 00 |~ | MOVEQ.L #0x00,D7
0002207a 7c 00 || | MOVEQ.L #0x00,D6
0002207c bc 85 | | CMP.L D5,D6
0002207e 63 02 |c | BLS 0x22082
00022080 4e 4f |NO | TRAP #15
00022082 20 06 | | MOVE.L D6,D0
00022084 e3 80 | | ASL.L #0x1,D0
00022086 20 4c | L | MOVEA.L A4,A0
00022088 32 30 08 2a |20 * | MOVE.W (A0+D0.L+#0x2a),D1
0002208c 48 c1 |H | EXTW.L D1
0002208e de 81 | | ADD.L D1,D7
00022090 28 07 |( | MOVE.L D7,D4
00022092 26 3c 00 00 01 00 |&< | MOVE.L #0x100,D3
00022098 4e b9 00 01 02 94 |N | JSR ?divs_d3_d4
0002209e 2e 03 |. | MOVE.L D3,D7
000220a0 52 86 |R | ADDQ.L #0x1,D6
000220a2 bc 85 | | CMP.L D5,D6
000220a4 6f d6 |o | BLE 0x2207c
000220a6 0c 87 00 00 00 aa | | CMPI.L #0x000000aa,D7
000220ac 66 38 |f8 | BNE 0x220e6
000220ae 4a 2e 00 08 |J. | TST.B (A6+0x8)
000220b2 67 30 |g0 | BEQ 0x220e4
000220b4 9e fc 00 12 | | SUBA.W #0x12,A7
000220b8 20 4f | O | MOVEA.L A7,A0
000220ba 43 fa e2 ce |C | LEA.L 0x2038a,A1
000220be 70 10 |p | MOVEQ.L #0x10,D0
000220c0 10 d9 | | MOVE.B (A1)+,(A0)+
000220c2 51 c8 ff fc |Q | DBF D0,0x220c0
000220c6 59 4f |YO | SUBQ.L #0x4,A7
000220c8 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000220cc 3f 02 |? | MOVE.W D2,-(A7)
000220ce 3f 3c 00 11 |?< | MOVE.W #0x11,-(A7)
000220d2 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
000220d8 50 4f |PO | ADDQ.L #0x8,A7
000220da 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
000220e0 de fc 00 16 | | ADDA.W #0x16,A7
000220e4 60 48 |`H | BRA 0x2212e
000220e6 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void)
000220ec 9e fc 00 2e | . | SUBA.W #0x2e,A7
000220f0 20 4f | O | MOVEA.L A7,A0
000220f2 43 fa e2 a8 |C | LEA.L 0x2039c,A1
000220f6 70 2c |p, | MOVEQ.L #0x2c,D0
000220f8 10 d9 | | MOVE.B (A1)+,(A0)+
000220fa 51 c8 ff fc |Q | DBF D0,0x220f8
000220fe 51 4f |QO | SUBQ.L #0x8,A7
00022100 48 6f 00 08 |Ho | PEA.L (A7+0x8)
00022104 3f 02 |? | MOVE.W D2,-(A7)
00022106 3f 3c 00 2d |?< - | MOVE.W #0x2d,-(A7)
0002210a 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00022110 2e 87 |. | MOVE.L D7,(A7)
00022112 48 78 00 02 |Hx | PEA.L 0x2
00022116 4e b9 00 01 02 e8 |N | JSR Long2HexString(val : Long; ndig : Long) : String
0002211c 50 4f |PO | ADDQ.L #0x8,A7
0002211e 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00022124 50 4f |PO | ADDQ.L #0x8,A7
00022126 4e ba f1 e0 |N | JSR 0x21308
0002212a de fc 00 32 | 2 | ADDA.W #0x32,A7
0002212e 4a 2e 00 0a |J. | TST.B (A6+0xa)
00022132 67 3c |g< | BEQ 0x22170
00022134 4a ae 00 0c |J | TST.L (A6+0xc)
00022138 67 32 |g2 | BEQ 0x2216c
0002213a 30 12 |0 | MOVE.W (A2),D0
0002213c 48 c0 |H | EXTW.L D0
0002213e b0 ae 00 0c | | CMP.L (A6+0xc),D0
00022142 67 28 |g( | BEQ 0x2216c
00022144 41 fa e2 a0 |A | LEA.L 0x203e6,A0
00022148 70 06 |p | MOVEQ.L #0x06,D0
0002214a 2f 20 |/ | MOVE.L -(A0),-(A7)
0002214c 51 c8 ff fc |Q | DBF D0,0x2214a
00022150 59 4f |YO | SUBQ.L #0x4,A7
00022152 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00022156 3f 02 |? | MOVE.W D2,-(A7)
00022158 3f 3c 00 1c |?< | MOVE.W #0x1c,-(A7)
0002215c 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00022162 50 4f |PO | ADDQ.L #0x8,A7
00022164 4e ba f1 a2 |N | JSR 0x21308
00022168 de fc 00 20 | | ADDA.W #0x20,A7
0002216c 60 00 01 7c |` | | BRA 0x222ea
00022170 20 2e 00 0c | . | MOVE.L (A6+0xc),D0
00022174 0c 80 00 00 00 ff | | CMPI.L #0x000000ff,D0
0002217a 63 02 |c | BLS 0x2217e
0002217c 4e 4f |NO | TRAP #15
0002217e 3f 00 |? | MOVE.W D0,-(A7)
00022180 48 6e ff f8 |Hn | PEA.L (A6-0x8)
00022184 48 6e ff fc |Hn | PEA.L (A6-0x4)
00022188 4e ba f3 74 |N t | JSR 0x214fe
0002218c de fc 00 0a | | ADDA.W #0xa,A7
00022190 48 6e ff fc |Hn | PEA.L (A6-0x4)
00022194 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String)
0002219a 58 4f |XO | ADDQ.L #0x4,A7
0002219c 4a ae 00 0c |J | TST.L (A6+0xc)
000221a0 67 34 |g4 | BEQ 0x221d6
000221a2 20 2e ff f8 | . | MOVE.L (A6-0x8),D0
000221a6 b0 b9 00 02 57 3c | W< | CMP.L 0x2573c,D0
000221ac 67 28 |g( | BEQ 0x221d6
000221ae 41 fa e2 54 |A T | LEA.L 0x20404,A0
000221b2 70 0e |p | MOVEQ.L #0x0e,D0
000221b4 3f 20 |? | MOVE.W -(A0),-(A7)
000221b6 51 c8 ff fc |Q | DBF D0,0x221b4
000221ba 59 4f |YO | SUBQ.L #0x4,A7
000221bc 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000221c0 3f 02 |? | MOVE.W D2,-(A7)
000221c2 3f 3c 00 1e |?< | MOVE.W #0x1e,-(A7)
000221c6 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
000221cc 50 4f |PO | ADDQ.L #0x8,A7
000221ce 4e ba f1 38 |N 8 | JSR 0x21308
000221d2 de fc 00 22 | " | ADDA.W #0x22,A7
000221d6 20 39 00 02 57 48 | 9 WH | MOVE.L 0x25748,D0
000221dc b0 b9 00 02 57 3c | W< | CMP.L 0x2573c,D0
000221e2 67 00 01 06 |g | BEQ 0x222ea
000221e6 20 39 00 02 57 3c | 9 W< | MOVE.L 0x2573c,D0
000221ec 0c 80 80 00 00 00 | | CMPI.L #0x80000000,D0
000221f2 66 08 |f | BNE 0x221fc
000221f4 34 bc 00 21 |4 ! | MOVE.W #0x21,(A2)
000221f8 60 00 00 94 |` | BRA 0x2228e
000221fc 0c 80 80 00 20 00 | | CMPI.L #0x80002000,D0
00022202 66 08 |f | BNE 0x2220c
00022204 34 bc 00 19 |4 | MOVE.W #0x19,(A2)
00022208 60 00 00 84 |` | BRA 0x2228e
0002220c 0c 80 80 00 40 00 | @ | CMPI.L #0x80004000,D0
00022212 66 06 |f | BNE 0x2221a
00022214 34 bc 00 17 |4 | MOVE.W #0x17,(A2)
00022218 60 74 |`t | BRA 0x2228e
0002221a 0c 80 80 00 60 00 | ` | CMPI.L #0x80006000,D0
00022220 66 06 |f | BNE 0x22228
00022222 34 bc 00 15 |4 | MOVE.W #0x15,(A2)
00022226 60 66 |`f | BRA 0x2228e
00022228 0c 80 00 07 00 00 | | CMPI.L #0x00070000,D0
0002222e 66 06 |f | BNE 0x22236
00022230 34 bc 00 50 |4 P | MOVE.W #0x50,(A2)
00022234 60 58 |`X | BRA 0x2228e
00022236 0c 80 00 07 20 00 | | CMPI.L #0x00072000,D0
0002223c 66 06 |f | BNE 0x22244
0002223e 34 bc 00 51 |4 Q | MOVE.W #0x51,(A2)
00022242 60 4a |`J | BRA 0x2228e
00022244 0c 80 00 07 40 00 | @ | CMPI.L #0x00074000,D0
0002224a 66 06 |f | BNE 0x22252
0002224c 34 bc 00 52 |4 R | MOVE.W #0x52,(A2)
00022250 60 3c |`< | BRA 0x2228e
00022252 0c 80 00 07 60 00 | ` | CMPI.L #0x00076000,D0
00022258 66 06 |f | BNE 0x22260
0002225a 34 bc 00 53 |4 S | MOVE.W #0x53,(A2)
0002225e 60 2e |`. | BRA 0x2228e
00022260 9e fc 00 1e | | SUBA.W #0x1e,A7
00022264 20 4f | O | MOVEA.L A7,A0
00022266 43 fa e1 9c |C | LEA.L 0x20404,A1
0002226a 70 1c |p | MOVEQ.L #0x1c,D0
0002226c 10 d9 | | MOVE.B (A1)+,(A0)+
0002226e 51 c8 ff fc |Q | DBF D0,0x2226c
00022272 59 4f |YO | SUBQ.L #0x4,A7
00022274 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00022278 3f 02 |? | MOVE.W D2,-(A7)
0002227a 3f 3c 00 1d |?< | MOVE.W #0x1d,-(A7)
0002227e 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00022284 50 4f |PO | ADDQ.L #0x8,A7
00022286 4e ba f0 80 |N | JSR 0x21308
0002228a de fc 00 22 | " | ADDA.W #0x22,A7
0002228e 20 13 | | MOVE.L (A3),D0
00022290 53 80 |S | SUBQ.L #0x1,D0
00022292 b0 85 | | CMP.L D5,D0
00022294 63 02 |c | BLS 0x22298
00022296 4e 4f |NO | TRAP #15
00022298 e3 80 | | ASL.L #0x1,D0
0002229a 20 4c | L | MOVEA.L A4,A0
0002229c 31 92 08 2a |1 * | MOVE.W (A2),(A0+D0.L+#0x2a)
000222a0 3f 12 |? | MOVE.W (A2),-(A7)
000222a2 48 79 00 02 57 48 |Hy WH | PEA.L 0x25748
000222a8 48 6e ff fc |Hn | PEA.L (A6-0x4)
000222ac 4e ba f2 50 |N P | JSR 0x214fe
000222b0 de fc 00 0a | | ADDA.W #0xa,A7
000222b4 41 fa e1 9e |A | LEA.L 0x20454,A0
000222b8 70 18 |p | MOVEQ.L #0x18,D0
000222ba 3f 20 |? | MOVE.W -(A0),-(A7)
000222bc 51 c8 ff fc |Q | DBF D0,0x222ba
000222c0 51 4f |QO | SUBQ.L #0x8,A7
000222c2 48 6f 00 08 |Ho | PEA.L (A7+0x8)
000222c6 3f 02 |? | MOVE.W D2,-(A7)
000222c8 3f 3c 00 32 |?< 2 | MOVE.W #0x32,-(A7)
000222cc 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
000222d2 58 4f |XO | ADDQ.L #0x4,A7
000222d4 2e ae ff fc |. | MOVE.L (A6-0x4),(A7)
000222d8 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
000222de 50 4f |PO | ADDQ.L #0x8,A7
000222e0 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
000222e6 de fc 00 36 | 6 | ADDA.W #0x36,A7
000222ea 7e 00 |~ | MOVEQ.L #0x00,D7
000222ec 7c 00 || | MOVEQ.L #0x00,D6
000222ee bc 85 | | CMP.L D5,D6
000222f0 63 02 |c | BLS 0x222f4
000222f2 4e 4f |NO | TRAP #15
000222f4 20 06 | | MOVE.L D6,D0
000222f6 e3 80 | | ASL.L #0x1,D0
000222f8 20 4c | L | MOVEA.L A4,A0
000222fa 32 30 08 2a |20 * | MOVE.W (A0+D0.L+#0x2a),D1
000222fe 48 c1 |H | EXTW.L D1
00022300 de 81 | | ADD.L D1,D7
00022302 28 07 |( | MOVE.L D7,D4
00022304 26 3c 00 00 01 00 |&< | MOVE.L #0x100,D3
0002230a 4e b9 00 01 02 94 |N | JSR ?divs_d3_d4
00022310 2e 03 |. | MOVE.L D3,D7
00022312 52 86 |R | ADDQ.L #0x1,D6
00022314 bc 85 | | CMP.L D5,D6
00022316 6f d6 |o | BLE 0x222ee
00022318 20 13 | | MOVE.L (A3),D0
0002231a b0 85 | | CMP.L D5,D0
0002231c 63 02 |c | BLS 0x22320
0002231e 4e 4f |NO | TRAP #15
00022320 e3 80 | | ASL.L #0x1,D0
00022322 20 4c | L | MOVEA.L A4,A0
00022324 06 70 01 aa 08 2a | p * | ADDI.W #0x01aa,(A0+D0.L+#0x2a)
0002232a 32 30 08 2a |20 * | MOVE.W (A0+D0.L+#0x2a),D1
0002232e 48 c1 |H | EXTW.L D1
00022330 92 87 | | SUB.L D7,D1
00022332 28 01 |( | MOVE.L D1,D4
00022334 26 3c 00 00 01 00 |&< | MOVE.L #0x100,D3
0002233a 4e b9 00 01 02 94 |N | JSR ?divs_d3_d4
00022340 31 83 08 2a |1 * | MOVE.W D3,(A0+D0.L+#0x2a)
00022344 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00022348 4e 5e |N^ | UNLK A6
0002234a 4e 75 |Nu | RTS
0002234c ; --------------------------------------------------------------------------------------
0002234c ; OMSI PASCAL Function
0002234c ; <LVAR 0x00e 4(r)>
0002234c ; <LVAR 0x00a 4(r)>
0002234c ; <LVAR 0x008 1(r)>
0002234c ; <LVAR -0x00a @ 1(r)>
0002234c ; <LVAR -0x00e @ 4(r)>
0002234c ; <LVAR -0x012 @ 4(r)>
0002234c ; --------------------------------------------------------------------------------------
0002234c 4e 56 ff 78 |NV x | LINK.W A6,#0xff78
00022350 bf d5 | | CMPA.L (A5),A7
00022352 62 06 |b | BHI 0x2235a
00022354 44 fc 00 02 |D | MOVE.W #0x2,CCR
00022358 4e 76 |Nv | TRAPV
0002235a de fc 00 76 | v | ADDA.W #0x76,A7
0002235e 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00022362 45 f9 00 02 57 30 |E W0 | LEA.L 0x25730,A2
00022368 47 ee ff ee |G | LEA.L (A6-0x12),A3
0002236c 49 f9 00 02 57 38 |I W8 | LEA.L 0x25738,A4
00022372 74 01 |t | MOVEQ.L #0x01,D2
00022374 76 2a |v* | MOVEQ.L #0x2a,D3
00022376 78 18 |x | MOVEQ.L #0x18,D4
00022378 7a 0c |z | MOVEQ.L #0x0c,D5
0002237a 20 6e 00 0e | n | MOVEA.L (A6+0xe),A0
0002237e b0 c2 | | CMPA.W D2,A0
00022380 66 32 |f2 | BNE 0x223b4
00022382 9e c3 | | SUBA.W D3,A7
00022384 20 4f | O | MOVEA.L A7,A0
00022386 43 fa e0 cc |C | LEA.L 0x20454,A1
0002238a 70 28 |p( | MOVEQ.L #0x28,D0
0002238c 10 d9 | | MOVE.B (A1)+,(A0)+
0002238e 51 c8 ff fc |Q | DBF D0,0x2238c
00022392 51 4f |QO | SUBQ.L #0x8,A7
00022394 48 6f 00 08 |Ho | PEA.L (A7+0x8)
00022398 3f 02 |? | MOVE.W D2,-(A7)
0002239a 3f 3c 00 29 |?< ) | MOVE.W #0x29,-(A7)
0002239e 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
000223a4 50 4f |PO | ADDQ.L #0x8,A7
000223a6 4e b9 00 01 03 e4 |N | JSR AskConsoleString(prompt : String) : String
000223ac 58 4f |XO | ADDQ.L #0x4,A7
000223ae 28 9f |( | MOVE.L (A7)+,(A4)
000223b0 de c3 | | ADDA.W D3,A7
000223b2 60 02 |` | BRA 0x223b6
000223b4 28 88 |( | MOVE.L A0,(A4)
000223b6 2f 14 |/ | MOVE.L (A4),-(A7)
000223b8 42 27 |B' | CLR.B -(A7)
000223ba 1f 02 | | MOVE.B D2,-(A7)
000223bc 48 78 00 00 |Hx | PEA.L 0x0
000223c0 48 52 |HR | PEA.L (A2)
000223c2 48 53 |HS | PEA.L (A3)
000223c4 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
000223ca de fc 00 14 | | ADDA.W #0x14,A7
000223ce 4a 12 |J | TST.B (A2)
000223d0 67 26 |g& | BEQ 0x223f8
000223d2 41 fa e0 c2 |A | LEA.L 0x20496,A0
000223d6 70 05 |p | MOVEQ.L #0x05,D0
000223d8 2f 20 |/ | MOVE.L -(A0),-(A7)
000223da 51 c8 ff fc |Q | DBF D0,0x223d8
000223de 59 4f |YO | SUBQ.L #0x4,A7
000223e0 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000223e4 3f 02 |? | MOVE.W D2,-(A7)
000223e6 3f 04 |? | MOVE.W D4,-(A7)
000223e8 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
000223ee 50 4f |PO | ADDQ.L #0x8,A7
000223f0 4e ba ef 16 |N | JSR 0x21308
000223f4 de fc 00 1c | | ADDA.W #0x1c,A7
000223f8 20 2e 00 0a | . | MOVE.L (A6+0xa),D0
000223fc 0c 80 00 00 00 ff | | CMPI.L #0x000000ff,D0
00022402 63 02 |c | BLS 0x22406
00022404 4e 4f |NO | TRAP #15
00022406 3f 00 |? | MOVE.W D0,-(A7)
00022408 48 79 00 02 57 3c |Hy W< | PEA.L 0x2573c
0002240e 48 6e ff f2 |Hn | PEA.L (A6-0xe)
00022412 4e ba f0 ea |N | JSR 0x214fe
00022416 5c 4f |\O | ADDQ.L #0x6,A7
00022418 2e 93 |. | MOVE.L (A3),(A7)
0002241a 48 6e ff f2 |Hn | PEA.L (A6-0xe)
0002241e 48 6e ff f6 |Hn | PEA.L (A6-0xa)
00022422 4e b9 00 01 04 3c |N < | JSR FileReadLine(file : File; VAR a : String; VAR b : Byte)
00022428 de c5 | | ADDA.W D5,A7
0002242a 4a 2e ff f6 |J. | TST.B (A6-0xa)
0002242e 67 3e |g> | BEQ 0x2246e
00022430 42 27 |B' | CLR.B -(A7)
00022432 1f 02 | | MOVE.B D2,-(A7)
00022434 48 78 00 01 |Hx | PEA.L 0x1
00022438 48 52 |HR | PEA.L (A2)
0002243a 48 53 |HS | PEA.L (A3)
0002243c 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File)
00022442 54 4f |TO | ADDQ.L #0x2,A7
00022444 20 4f | O | MOVEA.L A7,A0
00022446 43 fa e0 4e |C N | LEA.L 0x20496,A1
0002244a 70 0c |p | MOVEQ.L #0x0c,D0
0002244c 10 d9 | | MOVE.B (A1)+,(A0)+
0002244e 51 c8 ff fc |Q | DBF D0,0x2244c
00022452 59 4f |YO | SUBQ.L #0x4,A7
00022454 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00022458 3f 02 |? | MOVE.W D2,-(A7)
0002245a 3f 3c 00 0d |?< | MOVE.W #0xd,-(A7)
0002245e 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00022464 50 4f |PO | ADDQ.L #0x8,A7
00022466 4e ba ee a0 |N | JSR 0x21308
0002246a de fc 00 12 | | ADDA.W #0x12,A7
0002246e 20 6e ff f2 | n | MOVEA.L (A6-0xe),A0
00022472 10 28 00 02 | ( | MOVE.B (A0+0x2),D0
00022476 0c 00 00 3a | : | CMPI.B #0x3a,D0
0002247a 66 18 |f | BNE 0x22494
0002247c 12 28 00 09 | ( | MOVE.B (A0+0x9),D1
00022480 0c 01 00 30 | 0 | CMPI.B #0x30,D1
00022484 66 0e |f | BNE 0x22494
00022486 7c 01 || | MOVEQ.L #0x01,D6
00022488 2f 13 |/ | MOVE.L (A3),-(A7)
0002248a 4e b9 00 01 04 44 |N D | JSR FSCALL_10444
00022490 58 4f |XO | ADDQ.L #0x4,A7
00022492 60 64 |`d | BRA 0x224f8
00022494 0c 00 00 53 | S | CMPI.B #0x53,D0
00022498 66 0e |f | BNE 0x224a8
0002249a 12 28 00 03 | ( | MOVE.B (A0+0x3),D1
0002249e 0c 01 00 33 | 3 | CMPI.B #0x33,D1
000224a2 66 04 |f | BNE 0x224a8
000224a4 7c 00 || | MOVEQ.L #0x00,D6
000224a6 60 e0 |` | BRA 0x22488
000224a8 0c 00 00 53 | S | CMPI.B #0x53,D0
000224ac 66 0e |f | BNE 0x224bc
000224ae 10 28 00 03 | ( | MOVE.B (A0+0x3),D0
000224b2 0c 00 00 30 | 0 | CMPI.B #0x30,D0
000224b6 66 04 |f | BNE 0x224bc
000224b8 7c 00 || | MOVEQ.L #0x00,D6
000224ba 60 3c |`< | BRA 0x224f8
000224bc 42 27 |B' | CLR.B -(A7)
000224be 1f 02 | | MOVE.B D2,-(A7)
000224c0 48 78 00 01 |Hx | PEA.L 0x1
000224c4 48 52 |HR | PEA.L (A2)
000224c6 48 53 |HS | PEA.L (A3)
000224c8 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File)
000224ce 59 4f |YO | SUBQ.L #0x4,A7
000224d0 20 4f | O | MOVEA.L A7,A0
000224d2 43 fa df d0 |C | LEA.L 0x204a4,A1
000224d6 70 12 |p | MOVEQ.L #0x12,D0
000224d8 10 d9 | | MOVE.B (A1)+,(A0)+
000224da 51 c8 ff fc |Q | DBF D0,0x224d8
000224de 59 4f |YO | SUBQ.L #0x4,A7
000224e0 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000224e4 3f 02 |? | MOVE.W D2,-(A7)
000224e6 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7)
000224ea 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
000224f0 50 4f |PO | ADDQ.L #0x8,A7
000224f2 4e ba ee 14 |N | JSR 0x21308
000224f6 de c4 | | ADDA.W D4,A7
000224f8 48 6e ff f2 |Hn | PEA.L (A6-0xe)
000224fc 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String)
00022502 58 4f |XO | ADDQ.L #0x4,A7
00022504 7e 00 |~ | MOVEQ.L #0x00,D7
00022506 0c 87 00 00 1f ff | | CMPI.L #0x00001fff,D7
0002250c 63 02 |c | BLS 0x22510
0002250e 4e 4f |NO | TRAP #15
00022510 20 07 | | MOVE.L D7,D0
00022512 e3 80 | | ASL.L #0x1,D0
00022514 41 f9 00 02 57 28 |A W( | LEA.L 0x25728,A0
0002251a 42 70 08 2a |Bp * | CLR.W (A0+D0.L+#0x2a)
0002251e 52 87 |R | ADDQ.L #0x1,D7
00022520 0c 87 00 00 1f ff | | CMPI.L #0x00001fff,D7
00022526 6f de |o | BLE 0x22506
00022528 42 b9 00 02 57 40 |B W@ | CLR.L 0x25740
0002252e 42 b9 00 02 57 44 |B WD | CLR.L 0x25744
00022534 4a 06 |J | TST.B D6
00022536 67 08 |g | BEQ 0x22540
00022538 48 53 |HS | PEA.L (A3)
0002253a 4e ba f8 08 |N | JSR 0x21d44
0002253e 60 06 |` | BRA 0x22546
00022540 48 53 |HS | PEA.L (A3)
00022542 4e ba f3 a4 |N | JSR 0x218e8
00022546 58 4f |XO | ADDQ.L #0x4,A7
00022548 42 27 |B' | CLR.B -(A7)
0002254a 1f 02 | | MOVE.B D2,-(A7)
0002254c 48 78 00 01 |Hx | PEA.L 0x1
00022550 48 52 |HR | PEA.L (A2)
00022552 48 53 |HS | PEA.L (A3)
00022554 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File)
0002255a de c5 | | ADDA.W D5,A7
0002255c 2e ae 00 0a |. | MOVE.L (A6+0xa),(A7)
00022560 10 06 | | MOVE.B D6,D0
00022562 48 80 |H | EXTB.W D0
00022564 41 82 |A | CHK.W D2,D0
00022566 1f 00 | | MOVE.B D0,-(A7)
00022568 1f 2e 00 08 | . | MOVE.B (A6+0x8),-(A7)
0002256c 4e ba f9 0e |N | JSR 0x21e7c
00022570 50 4f |PO | ADDQ.L #0x8,A7
00022572 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00022576 4e 5e |N^ | UNLK A6
00022578 4e 75 |Nu | RTS
0002257a ; --------------------------------------------------------------------------------------
0002257a ; OMSI PASCAL Function
0002257a ; <LVAR 0x00c 2(w)>
0002257a ; <LVAR 0x008 4(r)>
0002257a ; <LVAR -0x004 @ 2(r)>
0002257a ; --------------------------------------------------------------------------------------
0002257a 4e 56 ff e6 |NV | LINK.W A6,#0xffe6
0002257e bf d5 | | CMPA.L (A5),A7
00022580 62 06 |b | BHI 0x22588
00022582 44 fc 00 02 |D | MOVE.W #0x2,CCR
00022586 4e 76 |Nv | TRAPV
00022588 de fc 00 16 | | ADDA.W #0x16,A7
0002258c 48 e7 00 c0 |H | MOVEM.L A1+A0,-(A7)
00022590 43 ee ff fc |C | LEA.L (A6-0x4),A1
00022594 42 51 |BQ | CLR.W (A1)
00022596 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
0002259a 20 49 | I | MOVEA.L A1,A0
0002259c 2f 08 |/ | MOVE.L A0,-(A7)
0002259e 52 97 |R | ADDQ.L #0x1,(A7)
000225a0 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
000225a4 4e b9 00 01 02 38 |N 8 | JSR KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
000225aa de fc 00 0a | | ADDA.W #0xa,A7
000225ae 3d 51 00 0c |=Q | MOVE.W (A1),(A6+0xc)
000225b2 4c df 03 00 |L | MOVEM.L (A7)+,A0+A1
000225b6 4e 5e |N^ | UNLK A6
000225b8 4e 75 |Nu | RTS
000225ba ; --------------------------------------------------------------------------------------
000225ba ; OMSI PASCAL Function
000225ba ; <LVAR 0x00a 4(r)>
000225ba ; <LVAR 0x008 @ 2(r)>
000225ba ; --------------------------------------------------------------------------------------
000225ba 4e 56 ff e0 |NV | LINK.W A6,#0xffe0
000225be bf d5 | | CMPA.L (A5),A7
000225c0 62 06 |b | BHI 0x225c8
000225c2 44 fc 00 02 |D | MOVE.W #0x2,CCR
000225c6 4e 76 |Nv | TRAPV
000225c8 de fc 00 1e | | ADDA.W #0x1e,A7
000225cc 48 e7 c1 80 |H | MOVEM.L A0+D7+D1+D0,-(A7)
000225d0 72 01 |r | MOVEQ.L #0x01,D1
000225d2 55 4f |UO | SUBQ.L #0x2,A7
000225d4 2f 2e 00 0a |/. | MOVE.L (A6+0xa),-(A7)
000225d8 4e ba ff a0 |N | JSR 0x2257a
000225dc 58 4f |XO | ADDQ.L #0x4,A7
000225de 30 1f |0 | MOVE.W (A7)+,D0
000225e0 41 bc 00 ff |A | CHK.W #0xff,D0
000225e4 3e 00 |> | MOVE.W D0,D7
000225e6 be 6e 00 08 | n | CMP.W (A6+0x8),D7
000225ea 67 2a |g* | BEQ 0x22616
000225ec 41 ee 00 08 |A | LEA.L (A6+0x8),A0
000225f0 2f 08 |/ | MOVE.L A0,-(A7)
000225f2 52 97 |R | ADDQ.L #0x1,(A7)
000225f4 2f 2e 00 0a |/. | MOVE.L (A6+0xa),-(A7)
000225f8 3f 01 |? | MOVE.W D1,-(A7)
000225fa 4e b9 00 01 02 38 |N 8 | JSR KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
00022600 de fc 00 0a | | ADDA.W #0xa,A7
00022604 48 78 01 d4 |Hx | PEA.L 0x1d4
00022608 4e b9 00 01 02 24 |N $ | JSR KC12_Sleep(dur: Long)
0002260e 58 4f |XO | ADDQ.L #0x4,A7
00022610 13 c1 00 02 57 36 | W6 | MOVE.B D1,0x25736
00022616 4c df 01 83 |L | MOVEM.L (A7)+,D0+D1+D7+A0
0002261a 4e 5e |N^ | UNLK A6
0002261c 4e 75 |Nu | RTS
0002261e ; --------------------------------------------------------------------------------------
0002261e ; OMSI PASCAL Function
0002261e ; <LVAR 0x00a 4(r)>
0002261e ; --------------------------------------------------------------------------------------
0002261e 4e 56 ff ec |NV | LINK.W A6,#0xffec
00022622 bf d5 | | CMPA.L (A5),A7
00022624 62 06 |b | BHI 0x2262c
00022626 44 fc 00 02 |D | MOVE.W #0x2,CCR
0002262a 4e 76 |Nv | TRAPV
0002262c de fc 00 12 | | ADDA.W #0x12,A7
00022630 48 e7 00 80 |H | MOVEM.L A0,-(A7)
00022634 41 ee 00 08 |A | LEA.L (A6+0x8),A0
00022638 2f 08 |/ | MOVE.L A0,-(A7)
0002263a 52 97 |R | ADDQ.L #0x1,(A7)
0002263c 2f 2e 00 0a |/. | MOVE.L (A6+0xa),-(A7)
00022640 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
00022644 4e b9 00 01 02 38 |N 8 | JSR KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
0002264a de fc 00 0a | | ADDA.W #0xa,A7
0002264e 4c df 01 00 |L | MOVEM.L (A7)+,A0
00022652 4e 5e |N^ | UNLK A6
00022654 4e 75 |Nu | RTS
00022656 ; --------------------------------------------------------------------------------------
00022656 ; OMSI PASCAL Function
00022656 ; <LVAR 0x008 4(r)>
00022656 ; --------------------------------------------------------------------------------------
00022656 4e 56 ff a8 |NV | LINK.W A6,#0xffa8
0002265a bf d5 | | CMPA.L (A5),A7
0002265c 62 06 |b | BHI 0x22664
0002265e 44 fc 00 02 |D | MOVE.W #0x2,CCR
00022662 4e 76 |Nv | TRAPV
00022664 de fc 00 50 | P | ADDA.W #0x50,A7
00022668 48 e7 e3 c0 |H | MOVEM.L A1+A0+D7+D6+D2+D1+D0,-(A7)
0002266c 32 3c 00 ff |2< | MOVE.W #0xff,D1
00022670 74 01 |t | MOVEQ.L #0x01,D2
00022672 2c 2e 00 08 |,. | MOVE.L (A6+0x8),D6
00022676 5b 86 |[ | SUBQ.L #0x5,D6
00022678 55 4f |UO | SUBQ.L #0x2,A7
0002267a 2f 06 |/ | MOVE.L D6,-(A7)
0002267c 4e ba fe fc |N | JSR 0x2257a
00022680 58 4f |XO | ADDQ.L #0x4,A7
00022682 30 1f |0 | MOVE.W (A7)+,D0
00022684 b0 41 | A | CMP.W D1,D0
00022686 62 00 02 58 |b X | BHI switch@0x2268c[0x2]
0002268a d0 40 | @ | ADD.W D0,D0
0002268c 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W
00022694 02 00 | | .CONST 0x200 ; [0x0] -> 0x22894
00022696 02 04 | | .CONST 0x204 ; [0x1] -> 0x22898
00022698 02 4c | L | .CONST 0x24c ; [0x2] -> 0x228e0
0002269a 02 08 | | .CONST 0x208 ; [0x3] -> 0x2289c
0002269c 02 4c | L | .CONST 0x24c ; [0x4] -> 0x228e0
0002269e 02 4c | L | .CONST 0x24c ; [0x5] -> 0x228e0
000226a0 02 4c | L | .CONST 0x24c ; [0x6] -> 0x228e0
000226a2 02 0c | | .CONST 0x20c ; [0x7] -> 0x228a0
000226a4 02 4c | L | .CONST 0x24c ; [0x8] -> 0x228e0
000226a6 02 4c | L | .CONST 0x24c ; [0x9] -> 0x228e0
000226a8 02 4c | L | .CONST 0x24c ; [0xa] -> 0x228e0
000226aa 02 4c | L | .CONST 0x24c ; [0xb] -> 0x228e0
000226ac 02 4c | L | .CONST 0x24c ; [0xc] -> 0x228e0
000226ae 02 4c | L | .CONST 0x24c ; [0xd] -> 0x228e0
000226b0 02 4c | L | .CONST 0x24c ; [0xe] -> 0x228e0
000226b2 02 0e | | .CONST 0x20e ; [0xf] -> 0x228a2
000226b4 02 4c | L | .CONST 0x24c ; [0x10] -> 0x228e0
000226b6 02 4c | L | .CONST 0x24c ; [0x11] -> 0x228e0
000226b8 02 4c | L | .CONST 0x24c ; [0x12] -> 0x228e0
000226ba 02 4c | L | .CONST 0x24c ; [0x13] -> 0x228e0
000226bc 02 4c | L | .CONST 0x24c ; [0x14] -> 0x228e0
000226be 02 4c | L | .CONST 0x24c ; [0x15] -> 0x228e0
000226c0 02 4c | L | .CONST 0x24c ; [0x16] -> 0x228e0
000226c2 02 4c | L | .CONST 0x24c ; [0x17] -> 0x228e0
000226c4 02 4c | L | .CONST 0x24c ; [0x18] -> 0x228e0
000226c6 02 4c | L | .CONST 0x24c ; [0x19] -> 0x228e0
000226c8 02 4c | L | .CONST 0x24c ; [0x1a] -> 0x228e0
000226ca 02 4c | L | .CONST 0x24c ; [0x1b] -> 0x228e0
000226cc 02 4c | L | .CONST 0x24c ; [0x1c] -> 0x228e0
000226ce 02 4c | L | .CONST 0x24c ; [0x1d] -> 0x228e0
000226d0 02 4c | L | .CONST 0x24c ; [0x1e] -> 0x228e0
000226d2 02 12 | | .CONST 0x212 ; [0x1f] -> 0x228a6
000226d4 02 4c | L | .CONST 0x24c ; [0x20] -> 0x228e0
000226d6 02 4c | L | .CONST 0x24c ; [0x21] -> 0x228e0
000226d8 02 4c | L | .CONST 0x24c ; [0x22] -> 0x228e0
000226da 02 4c | L | .CONST 0x24c ; [0x23] -> 0x228e0
000226dc 02 4c | L | .CONST 0x24c ; [0x24] -> 0x228e0
000226de 02 4c | L | .CONST 0x24c ; [0x25] -> 0x228e0
000226e0 02 4c | L | .CONST 0x24c ; [0x26] -> 0x228e0
000226e2 02 4c | L | .CONST 0x24c ; [0x27] -> 0x228e0
000226e4 02 4c | L | .CONST 0x24c ; [0x28] -> 0x228e0
000226e6 02 4c | L | .CONST 0x24c ; [0x29] -> 0x228e0
000226e8 02 4c | L | .CONST 0x24c ; [0x2a] -> 0x228e0
000226ea 02 4c | L | .CONST 0x24c ; [0x2b] -> 0x228e0
000226ec 02 4c | L | .CONST 0x24c ; [0x2c] -> 0x228e0
000226ee 02 4c | L | .CONST 0x24c ; [0x2d] -> 0x228e0
000226f0 02 4c | L | .CONST 0x24c ; [0x2e] -> 0x228e0
000226f2 02 4c | L | .CONST 0x24c ; [0x2f] -> 0x228e0
000226f4 02 4c | L | .CONST 0x24c ; [0x30] -> 0x228e0
000226f6 02 4c | L | .CONST 0x24c ; [0x31] -> 0x228e0
000226f8 02 4c | L | .CONST 0x24c ; [0x32] -> 0x228e0
000226fa 02 4c | L | .CONST 0x24c ; [0x33] -> 0x228e0
000226fc 02 4c | L | .CONST 0x24c ; [0x34] -> 0x228e0
000226fe 02 4c | L | .CONST 0x24c ; [0x35] -> 0x228e0
00022700 02 4c | L | .CONST 0x24c ; [0x36] -> 0x228e0
00022702 02 4c | L | .CONST 0x24c ; [0x37] -> 0x228e0
00022704 02 4c | L | .CONST 0x24c ; [0x38] -> 0x228e0
00022706 02 4c | L | .CONST 0x24c ; [0x39] -> 0x228e0
00022708 02 4c | L | .CONST 0x24c ; [0x3a] -> 0x228e0
0002270a 02 4c | L | .CONST 0x24c ; [0x3b] -> 0x228e0
0002270c 02 4c | L | .CONST 0x24c ; [0x3c] -> 0x228e0
0002270e 02 4c | L | .CONST 0x24c ; [0x3d] -> 0x228e0
00022710 02 4c | L | .CONST 0x24c ; [0x3e] -> 0x228e0
00022712 02 16 | | .CONST 0x216 ; [0x3f] -> 0x228aa
00022714 02 4c | L | .CONST 0x24c ; [0x40] -> 0x228e0
00022716 02 4c | L | .CONST 0x24c ; [0x41] -> 0x228e0
00022718 02 4c | L | .CONST 0x24c ; [0x42] -> 0x228e0
0002271a 02 4c | L | .CONST 0x24c ; [0x43] -> 0x228e0
0002271c 02 4c | L | .CONST 0x24c ; [0x44] -> 0x228e0
0002271e 02 4c | L | .CONST 0x24c ; [0x45] -> 0x228e0
00022720 02 4c | L | .CONST 0x24c ; [0x46] -> 0x228e0
00022722 02 4c | L | .CONST 0x24c ; [0x47] -> 0x228e0
00022724 02 4c | L | .CONST 0x24c ; [0x48] -> 0x228e0
00022726 02 4c | L | .CONST 0x24c ; [0x49] -> 0x228e0
00022728 02 4c | L | .CONST 0x24c ; [0x4a] -> 0x228e0
0002272a 02 4c | L | .CONST 0x24c ; [0x4b] -> 0x228e0
0002272c 02 4c | L | .CONST 0x24c ; [0x4c] -> 0x228e0
0002272e 02 4c | L | .CONST 0x24c ; [0x4d] -> 0x228e0
00022730 02 4c | L | .CONST 0x24c ; [0x4e] -> 0x228e0
00022732 02 4c | L | .CONST 0x24c ; [0x4f] -> 0x228e0
00022734 02 4c | L | .CONST 0x24c ; [0x50] -> 0x228e0
00022736 02 4c | L | .CONST 0x24c ; [0x51] -> 0x228e0
00022738 02 4c | L | .CONST 0x24c ; [0x52] -> 0x228e0
0002273a 02 4c | L | .CONST 0x24c ; [0x53] -> 0x228e0
0002273c 02 4c | L | .CONST 0x24c ; [0x54] -> 0x228e0
0002273e 02 4c | L | .CONST 0x24c ; [0x55] -> 0x228e0
00022740 02 4c | L | .CONST 0x24c ; [0x56] -> 0x228e0
00022742 02 4c | L | .CONST 0x24c ; [0x57] -> 0x228e0
00022744 02 4c | L | .CONST 0x24c ; [0x58] -> 0x228e0
00022746 02 4c | L | .CONST 0x24c ; [0x59] -> 0x228e0
00022748 02 4c | L | .CONST 0x24c ; [0x5a] -> 0x228e0
0002274a 02 4c | L | .CONST 0x24c ; [0x5b] -> 0x228e0
0002274c 02 4c | L | .CONST 0x24c ; [0x5c] -> 0x228e0
0002274e 02 4c | L | .CONST 0x24c ; [0x5d] -> 0x228e0
00022750 02 4c | L | .CONST 0x24c ; [0x5e] -> 0x228e0
00022752 02 4c | L | .CONST 0x24c ; [0x5f] -> 0x228e0
00022754 02 4c | L | .CONST 0x24c ; [0x60] -> 0x228e0
00022756 02 4c | L | .CONST 0x24c ; [0x61] -> 0x228e0
00022758 02 4c | L | .CONST 0x24c ; [0x62] -> 0x228e0
0002275a 02 4c | L | .CONST 0x24c ; [0x63] -> 0x228e0
0002275c 02 4c | L | .CONST 0x24c ; [0x64] -> 0x228e0
0002275e 02 4c | L | .CONST 0x24c ; [0x65] -> 0x228e0
00022760 02 4c | L | .CONST 0x24c ; [0x66] -> 0x228e0
00022762 02 4c | L | .CONST 0x24c ; [0x67] -> 0x228e0
00022764 02 4c | L | .CONST 0x24c ; [0x68] -> 0x228e0
00022766 02 4c | L | .CONST 0x24c ; [0x69] -> 0x228e0
00022768 02 4c | L | .CONST 0x24c ; [0x6a] -> 0x228e0
0002276a 02 4c | L | .CONST 0x24c ; [0x6b] -> 0x228e0
0002276c 02 4c | L | .CONST 0x24c ; [0x6c] -> 0x228e0
0002276e 02 4c | L | .CONST 0x24c ; [0x6d] -> 0x228e0
00022770 02 4c | L | .CONST 0x24c ; [0x6e] -> 0x228e0
00022772 02 4c | L | .CONST 0x24c ; [0x6f] -> 0x228e0
00022774 02 4c | L | .CONST 0x24c ; [0x70] -> 0x228e0
00022776 02 4c | L | .CONST 0x24c ; [0x71] -> 0x228e0
00022778 02 4c | L | .CONST 0x24c ; [0x72] -> 0x228e0
0002277a 02 4c | L | .CONST 0x24c ; [0x73] -> 0x228e0
0002277c 02 4c | L | .CONST 0x24c ; [0x74] -> 0x228e0
0002277e 02 4c | L | .CONST 0x24c ; [0x75] -> 0x228e0
00022780 02 4c | L | .CONST 0x24c ; [0x76] -> 0x228e0
00022782 02 4c | L | .CONST 0x24c ; [0x77] -> 0x228e0
00022784 02 4c | L | .CONST 0x24c ; [0x78] -> 0x228e0
00022786 02 4c | L | .CONST 0x24c ; [0x79] -> 0x228e0
00022788 02 4c | L | .CONST 0x24c ; [0x7a] -> 0x228e0
0002278a 02 4c | L | .CONST 0x24c ; [0x7b] -> 0x228e0
0002278c 02 4c | L | .CONST 0x24c ; [0x7c] -> 0x228e0
0002278e 02 4c | L | .CONST 0x24c ; [0x7d] -> 0x228e0
00022790 02 4c | L | .CONST 0x24c ; [0x7e] -> 0x228e0
00022792 02 1a | | .CONST 0x21a ; [0x7f] -> 0x228ae
00022794 02 48 | H | .CONST 0x248 ; [0x80] -> 0x228dc
00022796 02 4c | L | .CONST 0x24c ; [0x81] -> 0x228e0
00022798 02 4c | L | .CONST 0x24c ; [0x82] -> 0x228e0
0002279a 02 4c | L | .CONST 0x24c ; [0x83] -> 0x228e0
0002279c 02 4c | L | .CONST 0x24c ; [0x84] -> 0x228e0
0002279e 02 4c | L | .CONST 0x24c ; [0x85] -> 0x228e0
000227a0 02 4c | L | .CONST 0x24c ; [0x86] -> 0x228e0
000227a2 02 4c | L | .CONST 0x24c ; [0x87] -> 0x228e0
000227a4 02 4c | L | .CONST 0x24c ; [0x88] -> 0x228e0
000227a6 02 4c | L | .CONST 0x24c ; [0x89] -> 0x228e0
000227a8 02 4c | L | .CONST 0x24c ; [0x8a] -> 0x228e0
000227aa 02 4c | L | .CONST 0x24c ; [0x8b] -> 0x228e0
000227ac 02 4c | L | .CONST 0x24c ; [0x8c] -> 0x228e0
000227ae 02 4c | L | .CONST 0x24c ; [0x8d] -> 0x228e0
000227b0 02 4c | L | .CONST 0x24c ; [0x8e] -> 0x228e0
000227b2 02 4c | L | .CONST 0x24c ; [0x8f] -> 0x228e0
000227b4 02 4c | L | .CONST 0x24c ; [0x90] -> 0x228e0
000227b6 02 4c | L | .CONST 0x24c ; [0x91] -> 0x228e0
000227b8 02 4c | L | .CONST 0x24c ; [0x92] -> 0x228e0
000227ba 02 4c | L | .CONST 0x24c ; [0x93] -> 0x228e0
000227bc 02 4c | L | .CONST 0x24c ; [0x94] -> 0x228e0
000227be 02 4c | L | .CONST 0x24c ; [0x95] -> 0x228e0
000227c0 02 4c | L | .CONST 0x24c ; [0x96] -> 0x228e0
000227c2 02 4c | L | .CONST 0x24c ; [0x97] -> 0x228e0
000227c4 02 4c | L | .CONST 0x24c ; [0x98] -> 0x228e0
000227c6 02 4c | L | .CONST 0x24c ; [0x99] -> 0x228e0
000227c8 02 4c | L | .CONST 0x24c ; [0x9a] -> 0x228e0
000227ca 02 4c | L | .CONST 0x24c ; [0x9b] -> 0x228e0
000227cc 02 4c | L | .CONST 0x24c ; [0x9c] -> 0x228e0
000227ce 02 4c | L | .CONST 0x24c ; [0x9d] -> 0x228e0
000227d0 02 4c | L | .CONST 0x24c ; [0x9e] -> 0x228e0
000227d2 02 4c | L | .CONST 0x24c ; [0x9f] -> 0x228e0
000227d4 02 4c | L | .CONST 0x24c ; [0xa0] -> 0x228e0
000227d6 02 4c | L | .CONST 0x24c ; [0xa1] -> 0x228e0
000227d8 02 4c | L | .CONST 0x24c ; [0xa2] -> 0x228e0
000227da 02 4c | L | .CONST 0x24c ; [0xa3] -> 0x228e0
000227dc 02 4c | L | .CONST 0x24c ; [0xa4] -> 0x228e0
000227de 02 4c | L | .CONST 0x24c ; [0xa5] -> 0x228e0
000227e0 02 4c | L | .CONST 0x24c ; [0xa6] -> 0x228e0
000227e2 02 4c | L | .CONST 0x24c ; [0xa7] -> 0x228e0
000227e4 02 4c | L | .CONST 0x24c ; [0xa8] -> 0x228e0
000227e6 02 4c | L | .CONST 0x24c ; [0xa9] -> 0x228e0
000227e8 02 4c | L | .CONST 0x24c ; [0xaa] -> 0x228e0
000227ea 02 4c | L | .CONST 0x24c ; [0xab] -> 0x228e0
000227ec 02 4c | L | .CONST 0x24c ; [0xac] -> 0x228e0
000227ee 02 4c | L | .CONST 0x24c ; [0xad] -> 0x228e0
000227f0 02 4c | L | .CONST 0x24c ; [0xae] -> 0x228e0
000227f2 02 4c | L | .CONST 0x24c ; [0xaf] -> 0x228e0
000227f4 02 4c | L | .CONST 0x24c ; [0xb0] -> 0x228e0
000227f6 02 4c | L | .CONST 0x24c ; [0xb1] -> 0x228e0
000227f8 02 4c | L | .CONST 0x24c ; [0xb2] -> 0x228e0
000227fa 02 4c | L | .CONST 0x24c ; [0xb3] -> 0x228e0
000227fc 02 4c | L | .CONST 0x24c ; [0xb4] -> 0x228e0
000227fe 02 4c | L | .CONST 0x24c ; [0xb5] -> 0x228e0
00022800 02 4c | L | .CONST 0x24c ; [0xb6] -> 0x228e0
00022802 02 4c | L | .CONST 0x24c ; [0xb7] -> 0x228e0
00022804 02 4c | L | .CONST 0x24c ; [0xb8] -> 0x228e0
00022806 02 4c | L | .CONST 0x24c ; [0xb9] -> 0x228e0
00022808 02 4c | L | .CONST 0x24c ; [0xba] -> 0x228e0
0002280a 02 4c | L | .CONST 0x24c ; [0xbb] -> 0x228e0
0002280c 02 4c | L | .CONST 0x24c ; [0xbc] -> 0x228e0
0002280e 02 4c | L | .CONST 0x24c ; [0xbd] -> 0x228e0
00022810 02 4c | L | .CONST 0x24c ; [0xbe] -> 0x228e0
00022812 02 4c | L | .CONST 0x24c ; [0xbf] -> 0x228e0
00022814 02 42 | B | .CONST 0x242 ; [0xc0] -> 0x228d6
00022816 02 4c | L | .CONST 0x24c ; [0xc1] -> 0x228e0
00022818 02 4c | L | .CONST 0x24c ; [0xc2] -> 0x228e0
0002281a 02 4c | L | .CONST 0x24c ; [0xc3] -> 0x228e0
0002281c 02 4c | L | .CONST 0x24c ; [0xc4] -> 0x228e0
0002281e 02 4c | L | .CONST 0x24c ; [0xc5] -> 0x228e0
00022820 02 4c | L | .CONST 0x24c ; [0xc6] -> 0x228e0
00022822 02 4c | L | .CONST 0x24c ; [0xc7] -> 0x228e0
00022824 02 4c | L | .CONST 0x24c ; [0xc8] -> 0x228e0
00022826 02 4c | L | .CONST 0x24c ; [0xc9] -> 0x228e0
00022828 02 4c | L | .CONST 0x24c ; [0xca] -> 0x228e0
0002282a 02 4c | L | .CONST 0x24c ; [0xcb] -> 0x228e0
0002282c 02 4c | L | .CONST 0x24c ; [0xcc] -> 0x228e0
0002282e 02 4c | L | .CONST 0x24c ; [0xcd] -> 0x228e0
00022830 02 4c | L | .CONST 0x24c ; [0xce] -> 0x228e0
00022832 02 4c | L | .CONST 0x24c ; [0xcf] -> 0x228e0
00022834 02 4c | L | .CONST 0x24c ; [0xd0] -> 0x228e0
00022836 02 4c | L | .CONST 0x24c ; [0xd1] -> 0x228e0
00022838 02 4c | L | .CONST 0x24c ; [0xd2] -> 0x228e0
0002283a 02 4c | L | .CONST 0x24c ; [0xd3] -> 0x228e0
0002283c 02 4c | L | .CONST 0x24c ; [0xd4] -> 0x228e0
0002283e 02 4c | L | .CONST 0x24c ; [0xd5] -> 0x228e0
00022840 02 4c | L | .CONST 0x24c ; [0xd6] -> 0x228e0
00022842 02 4c | L | .CONST 0x24c ; [0xd7] -> 0x228e0
00022844 02 4c | L | .CONST 0x24c ; [0xd8] -> 0x228e0
00022846 02 4c | L | .CONST 0x24c ; [0xd9] -> 0x228e0
00022848 02 4c | L | .CONST 0x24c ; [0xda] -> 0x228e0
0002284a 02 4c | L | .CONST 0x24c ; [0xdb] -> 0x228e0
0002284c 02 4c | L | .CONST 0x24c ; [0xdc] -> 0x228e0
0002284e 02 4c | L | .CONST 0x24c ; [0xdd] -> 0x228e0
00022850 02 4c | L | .CONST 0x24c ; [0xde] -> 0x228e0
00022852 02 4c | L | .CONST 0x24c ; [0xdf] -> 0x228e0
00022854 02 3c | < | .CONST 0x23c ; [0xe0] -> 0x228d0
00022856 02 4c | L | .CONST 0x24c ; [0xe1] -> 0x228e0
00022858 02 4c | L | .CONST 0x24c ; [0xe2] -> 0x228e0
0002285a 02 4c | L | .CONST 0x24c ; [0xe3] -> 0x228e0
0002285c 02 4c | L | .CONST 0x24c ; [0xe4] -> 0x228e0
0002285e 02 4c | L | .CONST 0x24c ; [0xe5] -> 0x228e0
00022860 02 4c | L | .CONST 0x24c ; [0xe6] -> 0x228e0
00022862 02 4c | L | .CONST 0x24c ; [0xe7] -> 0x228e0
00022864 02 4c | L | .CONST 0x24c ; [0xe8] -> 0x228e0
00022866 02 4c | L | .CONST 0x24c ; [0xe9] -> 0x228e0
00022868 02 4c | L | .CONST 0x24c ; [0xea] -> 0x228e0
0002286a 02 4c | L | .CONST 0x24c ; [0xeb] -> 0x228e0
0002286c 02 4c | L | .CONST 0x24c ; [0xec] -> 0x228e0
0002286e 02 4c | L | .CONST 0x24c ; [0xed] -> 0x228e0
00022870 02 4c | L | .CONST 0x24c ; [0xee] -> 0x228e0
00022872 02 4c | L | .CONST 0x24c ; [0xef] -> 0x228e0
00022874 02 36 | 6 | .CONST 0x236 ; [0xf0] -> 0x228ca
00022876 02 4c | L | .CONST 0x24c ; [0xf1] -> 0x228e0
00022878 02 4c | L | .CONST 0x24c ; [0xf2] -> 0x228e0
0002287a 02 4c | L | .CONST 0x24c ; [0xf3] -> 0x228e0
0002287c 02 4c | L | .CONST 0x24c ; [0xf4] -> 0x228e0
0002287e 02 4c | L | .CONST 0x24c ; [0xf5] -> 0x228e0
00022880 02 4c | L | .CONST 0x24c ; [0xf6] -> 0x228e0
00022882 02 4c | L | .CONST 0x24c ; [0xf7] -> 0x228e0
00022884 02 30 | 0 | .CONST 0x230 ; [0xf8] -> 0x228c4
00022886 02 4c | L | .CONST 0x24c ; [0xf9] -> 0x228e0
00022888 02 4c | L | .CONST 0x24c ; [0xfa] -> 0x228e0
0002288a 02 4c | L | .CONST 0x24c ; [0xfb] -> 0x228e0
0002288c 02 2a | * | .CONST 0x22a ; [0xfc] -> 0x228be
0002288e 02 4c | L | .CONST 0x24c ; [0xfd] -> 0x228e0
00022890 02 24 | $ | .CONST 0x224 ; [0xfe] -> 0x228b8
00022892 02 1e | | .CONST 0x21e ; [0xff] -> 0x228b2
00022894 switch@0x2268c[0x0]:
00022894 7e 01 |~ | MOVEQ.L #0x01,D7
00022896 60 4a |`J | BRA 0x228e2
00022898 switch@0x2268c[0x1]:
00022898 7e 03 |~ | MOVEQ.L #0x03,D7
0002289a 60 46 |`F | BRA 0x228e2
0002289c switch@0x2268c[0x3]:
0002289c 7e 07 |~ | MOVEQ.L #0x07,D7
0002289e 60 42 |`B | BRA 0x228e2
000228a0 switch@0x2268c[0x7]:
000228a0 60 3e |`> | BRA switch@0x2268c[0x2]
000228a2 switch@0x2268c[0xf]:
000228a2 7e 1f |~ | MOVEQ.L #0x1f,D7
000228a4 60 3c |`< | BRA 0x228e2
000228a6 switch@0x2268c[0x1f]:
000228a6 7e 3f |~? | MOVEQ.L #0x3f,D7
000228a8 60 38 |`8 | BRA 0x228e2
000228aa switch@0x2268c[0x3f]:
000228aa 7e 7f |~ | MOVEQ.L #0x7f,D7
000228ac 60 34 |`4 | BRA 0x228e2
000228ae switch@0x2268c[0x7f]:
000228ae 3e 01 |> | MOVE.W D1,D7
000228b0 60 30 |`0 | BRA 0x228e2
000228b2 switch@0x2268c[0xff]:
000228b2 3e 3c 00 fe |>< | MOVE.W #0xfe,D7
000228b6 60 2a |`* | BRA 0x228e2
000228b8 switch@0x2268c[0xfe]:
000228b8 3e 3c 00 fc |>< | MOVE.W #0xfc,D7
000228bc 60 24 |`$ | BRA 0x228e2
000228be switch@0x2268c[0xfc]:
000228be 3e 3c 00 f8 |>< | MOVE.W #0xf8,D7
000228c2 60 1e |` | BRA 0x228e2
000228c4 switch@0x2268c[0xf8]:
000228c4 3e 3c 00 f0 |>< | MOVE.W #0xf0,D7
000228c8 60 18 |` | BRA 0x228e2
000228ca switch@0x2268c[0xf0]:
000228ca 3e 3c 00 e0 |>< | MOVE.W #0xe0,D7
000228ce 60 12 |` | BRA 0x228e2
000228d0 switch@0x2268c[0xe0]:
000228d0 3e 3c 00 c0 |>< | MOVE.W #0xc0,D7
000228d4 60 0c |` | BRA 0x228e2
000228d6 switch@0x2268c[0xc0]:
000228d6 3e 3c 00 80 |>< | MOVE.W #0x80,D7
000228da 60 06 |` | BRA 0x228e2
000228dc switch@0x2268c[0x80]:
000228dc 7e 00 |~ | MOVEQ.L #0x00,D7
000228de 60 02 |` | BRA 0x228e2
000228e0 switch@0x2268c[0x10]:
000228e0 switch@0x2268c[0x11]:
000228e0 switch@0x2268c[0x12]:
000228e0 switch@0x2268c[0x13]:
000228e0 switch@0x2268c[0x14]:
000228e0 switch@0x2268c[0x15]:
000228e0 switch@0x2268c[0x16]:
000228e0 switch@0x2268c[0x17]:
000228e0 switch@0x2268c[0x18]:
000228e0 switch@0x2268c[0x19]:
000228e0 switch@0x2268c[0x1a]:
000228e0 switch@0x2268c[0x1b]:
000228e0 switch@0x2268c[0x1c]:
000228e0 switch@0x2268c[0x1d]:
000228e0 switch@0x2268c[0x1e]:
000228e0 switch@0x2268c[0x20]:
000228e0 switch@0x2268c[0x21]:
000228e0 switch@0x2268c[0x22]:
000228e0 switch@0x2268c[0x23]:
000228e0 switch@0x2268c[0x24]:
000228e0 switch@0x2268c[0x25]:
000228e0 switch@0x2268c[0x26]:
000228e0 switch@0x2268c[0x27]:
000228e0 switch@0x2268c[0x28]:
000228e0 switch@0x2268c[0x29]:
000228e0 switch@0x2268c[0x2]:
000228e0 switch@0x2268c[0x2a]:
000228e0 switch@0x2268c[0x2b]:
000228e0 switch@0x2268c[0x2c]:
000228e0 switch@0x2268c[0x2d]:
000228e0 switch@0x2268c[0x2e]:
000228e0 switch@0x2268c[0x2f]:
000228e0 switch@0x2268c[0x30]:
000228e0 switch@0x2268c[0x31]:
000228e0 switch@0x2268c[0x32]:
000228e0 switch@0x2268c[0x33]:
000228e0 switch@0x2268c[0x34]:
000228e0 switch@0x2268c[0x35]:
000228e0 switch@0x2268c[0x36]:
000228e0 switch@0x2268c[0x37]:
000228e0 switch@0x2268c[0x38]:
000228e0 switch@0x2268c[0x39]:
000228e0 switch@0x2268c[0x3a]:
000228e0 switch@0x2268c[0x3b]:
000228e0 switch@0x2268c[0x3c]:
000228e0 switch@0x2268c[0x3d]:
000228e0 switch@0x2268c[0x3e]:
000228e0 switch@0x2268c[0x40]:
000228e0 switch@0x2268c[0x41]:
000228e0 switch@0x2268c[0x42]:
000228e0 switch@0x2268c[0x43]:
000228e0 switch@0x2268c[0x44]:
000228e0 switch@0x2268c[0x45]:
000228e0 switch@0x2268c[0x46]:
000228e0 switch@0x2268c[0x47]:
000228e0 switch@0x2268c[0x48]:
000228e0 switch@0x2268c[0x49]:
000228e0 switch@0x2268c[0x4]:
000228e0 switch@0x2268c[0x4a]:
000228e0 switch@0x2268c[0x4b]:
000228e0 switch@0x2268c[0x4c]:
000228e0 switch@0x2268c[0x4d]:
000228e0 switch@0x2268c[0x4e]:
000228e0 switch@0x2268c[0x4f]:
000228e0 switch@0x2268c[0x50]:
000228e0 switch@0x2268c[0x51]:
000228e0 switch@0x2268c[0x52]:
000228e0 switch@0x2268c[0x53]:
000228e0 switch@0x2268c[0x54]:
000228e0 switch@0x2268c[0x55]:
000228e0 switch@0x2268c[0x56]:
000228e0 switch@0x2268c[0x57]:
000228e0 switch@0x2268c[0x58]:
000228e0 switch@0x2268c[0x59]:
000228e0 switch@0x2268c[0x5]:
000228e0 switch@0x2268c[0x5a]:
000228e0 switch@0x2268c[0x5b]:
000228e0 switch@0x2268c[0x5c]:
000228e0 switch@0x2268c[0x5d]:
000228e0 switch@0x2268c[0x5e]:
000228e0 switch@0x2268c[0x5f]:
000228e0 switch@0x2268c[0x60]:
000228e0 switch@0x2268c[0x61]:
000228e0 switch@0x2268c[0x62]:
000228e0 switch@0x2268c[0x63]:
000228e0 switch@0x2268c[0x64]:
000228e0 switch@0x2268c[0x65]:
000228e0 switch@0x2268c[0x66]:
000228e0 switch@0x2268c[0x67]:
000228e0 switch@0x2268c[0x68]:
000228e0 switch@0x2268c[0x69]:
000228e0 switch@0x2268c[0x6]:
000228e0 switch@0x2268c[0x6a]:
000228e0 switch@0x2268c[0x6b]:
000228e0 switch@0x2268c[0x6c]:
000228e0 switch@0x2268c[0x6d]:
000228e0 switch@0x2268c[0x6e]:
000228e0 switch@0x2268c[0x6f]:
000228e0 switch@0x2268c[0x70]:
000228e0 switch@0x2268c[0x71]:
000228e0 switch@0x2268c[0x72]:
000228e0 switch@0x2268c[0x73]:
000228e0 switch@0x2268c[0x74]:
000228e0 switch@0x2268c[0x75]:
000228e0 switch@0x2268c[0x76]:
000228e0 switch@0x2268c[0x77]:
000228e0 switch@0x2268c[0x78]:
000228e0 switch@0x2268c[0x79]:
000228e0 switch@0x2268c[0x7a]:
000228e0 switch@0x2268c[0x7b]:
000228e0 switch@0x2268c[0x7c]:
000228e0 switch@0x2268c[0x7d]:
000228e0 switch@0x2268c[0x7e]:
000228e0 switch@0x2268c[0x81]:
000228e0 switch@0x2268c[0x82]:
000228e0 switch@0x2268c[0x83]:
000228e0 switch@0x2268c[0x84]:
000228e0 switch@0x2268c[0x85]:
000228e0 switch@0x2268c[0x86]:
000228e0 switch@0x2268c[0x87]:
000228e0 switch@0x2268c[0x88]:
000228e0 switch@0x2268c[0x89]:
000228e0 switch@0x2268c[0x8]:
000228e0 switch@0x2268c[0x8a]:
000228e0 switch@0x2268c[0x8b]:
000228e0 switch@0x2268c[0x8c]:
000228e0 switch@0x2268c[0x8d]:
000228e0 switch@0x2268c[0x8e]:
000228e0 switch@0x2268c[0x8f]:
000228e0 switch@0x2268c[0x90]:
000228e0 switch@0x2268c[0x91]:
000228e0 switch@0x2268c[0x92]:
000228e0 switch@0x2268c[0x93]:
000228e0 switch@0x2268c[0x94]:
000228e0 switch@0x2268c[0x95]:
000228e0 switch@0x2268c[0x96]:
000228e0 switch@0x2268c[0x97]:
000228e0 switch@0x2268c[0x98]:
000228e0 switch@0x2268c[0x99]:
000228e0 switch@0x2268c[0x9]:
000228e0 switch@0x2268c[0x9a]:
000228e0 switch@0x2268c[0x9b]:
000228e0 switch@0x2268c[0x9c]:
000228e0 switch@0x2268c[0x9d]:
000228e0 switch@0x2268c[0x9e]:
000228e0 switch@0x2268c[0x9f]:
000228e0 switch@0x2268c[0xa0]:
000228e0 switch@0x2268c[0xa1]:
000228e0 switch@0x2268c[0xa2]:
000228e0 switch@0x2268c[0xa3]:
000228e0 switch@0x2268c[0xa4]:
000228e0 switch@0x2268c[0xa5]:
000228e0 switch@0x2268c[0xa6]:
000228e0 switch@0x2268c[0xa7]:
000228e0 switch@0x2268c[0xa8]:
000228e0 switch@0x2268c[0xa9]:
000228e0 switch@0x2268c[0xa]:
000228e0 switch@0x2268c[0xaa]:
000228e0 switch@0x2268c[0xab]:
000228e0 switch@0x2268c[0xac]:
000228e0 switch@0x2268c[0xad]:
000228e0 switch@0x2268c[0xae]:
000228e0 switch@0x2268c[0xaf]:
000228e0 switch@0x2268c[0xb0]:
000228e0 switch@0x2268c[0xb1]:
000228e0 switch@0x2268c[0xb2]:
000228e0 switch@0x2268c[0xb3]:
000228e0 switch@0x2268c[0xb4]:
000228e0 switch@0x2268c[0xb5]:
000228e0 switch@0x2268c[0xb6]:
000228e0 switch@0x2268c[0xb7]:
000228e0 switch@0x2268c[0xb8]:
000228e0 switch@0x2268c[0xb9]:
000228e0 switch@0x2268c[0xb]:
000228e0 switch@0x2268c[0xba]:
000228e0 switch@0x2268c[0xbb]:
000228e0 switch@0x2268c[0xbc]:
000228e0 switch@0x2268c[0xbd]:
000228e0 switch@0x2268c[0xbe]:
000228e0 switch@0x2268c[0xbf]:
000228e0 switch@0x2268c[0xc1]:
000228e0 switch@0x2268c[0xc2]:
000228e0 switch@0x2268c[0xc3]:
000228e0 switch@0x2268c[0xc4]:
000228e0 switch@0x2268c[0xc5]:
000228e0 switch@0x2268c[0xc6]:
000228e0 switch@0x2268c[0xc7]:
000228e0 switch@0x2268c[0xc8]:
000228e0 switch@0x2268c[0xc9]:
000228e0 switch@0x2268c[0xc]:
000228e0 switch@0x2268c[0xca]:
000228e0 switch@0x2268c[0xcb]:
000228e0 switch@0x2268c[0xcc]:
000228e0 switch@0x2268c[0xcd]:
000228e0 switch@0x2268c[0xce]:
000228e0 switch@0x2268c[0xcf]:
000228e0 switch@0x2268c[0xd0]:
000228e0 switch@0x2268c[0xd1]:
000228e0 switch@0x2268c[0xd2]:
000228e0 switch@0x2268c[0xd3]:
000228e0 switch@0x2268c[0xd4]:
000228e0 switch@0x2268c[0xd5]:
000228e0 switch@0x2268c[0xd6]:
000228e0 switch@0x2268c[0xd7]:
000228e0 switch@0x2268c[0xd8]:
000228e0 switch@0x2268c[0xd9]:
000228e0 switch@0x2268c[0xd]:
000228e0 switch@0x2268c[0xda]:
000228e0 switch@0x2268c[0xdb]:
000228e0 switch@0x2268c[0xdc]:
000228e0 switch@0x2268c[0xdd]:
000228e0 switch@0x2268c[0xde]:
000228e0 switch@0x2268c[0xdf]:
000228e0 switch@0x2268c[0xe1]:
000228e0 switch@0x2268c[0xe2]:
000228e0 switch@0x2268c[0xe3]:
000228e0 switch@0x2268c[0xe4]:
000228e0 switch@0x2268c[0xe5]:
000228e0 switch@0x2268c[0xe6]:
000228e0 switch@0x2268c[0xe7]:
000228e0 switch@0x2268c[0xe8]:
000228e0 switch@0x2268c[0xe9]:
000228e0 switch@0x2268c[0xe]:
000228e0 switch@0x2268c[0xea]:
000228e0 switch@0x2268c[0xeb]:
000228e0 switch@0x2268c[0xec]:
000228e0 switch@0x2268c[0xed]:
000228e0 switch@0x2268c[0xee]:
000228e0 switch@0x2268c[0xef]:
000228e0 switch@0x2268c[0xf1]:
000228e0 switch@0x2268c[0xf2]:
000228e0 switch@0x2268c[0xf3]:
000228e0 switch@0x2268c[0xf4]:
000228e0 switch@0x2268c[0xf5]:
000228e0 switch@0x2268c[0xf6]:
000228e0 switch@0x2268c[0xf7]:
000228e0 switch@0x2268c[0xf9]:
000228e0 switch@0x2268c[0xfa]:
000228e0 switch@0x2268c[0xfb]:
000228e0 switch@0x2268c[0xfd]:
000228e0 7e 0f |~ | MOVEQ.L #0x0f,D7
000228e2 2f 06 |/ | MOVE.L D6,-(A7)
000228e4 4f 81 |O | CHK.W D1,D7
000228e6 3f 07 |? | MOVE.W D7,-(A7)
000228e8 4e ba fc d0 |N | JSR 0x225ba
000228ec 2e 86 |. | MOVE.L D6,(A7)
000228ee 4e ba fc 8a |N | JSR 0x2257a
000228f2 58 4f |XO | ADDQ.L #0x4,A7
000228f4 be 5f | _ | CMP.W (A7)+,D7
000228f6 67 2c |g, | BEQ 0x22924
000228f8 41 fa db e2 |A | LEA.L 0x204dc,A0
000228fc 70 08 |p | MOVEQ.L #0x08,D0
000228fe 2f 20 |/ | MOVE.L -(A0),-(A7)
00022900 51 c8 ff fc |Q | DBF D0,0x228fe
00022904 59 4f |YO | SUBQ.L #0x4,A7
00022906 48 6f 00 04 |Ho | PEA.L (A7+0x4)
0002290a 3f 02 |? | MOVE.W D2,-(A7)
0002290c 3f 3c 00 24 |?< $ | MOVE.W #0x24,-(A7)
00022910 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00022916 50 4f |PO | ADDQ.L #0x8,A7
00022918 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
0002291e de fc 00 28 | ( | ADDA.W #0x28,A7
00022922 60 30 |`0 | BRA 0x22954
00022924 9e fc 00 16 | | SUBA.W #0x16,A7
00022928 20 4f | O | MOVEA.L A7,A0
0002292a 43 fa db b0 |C | LEA.L 0x204dc,A1
0002292e 70 14 |p | MOVEQ.L #0x14,D0
00022930 10 d9 | | MOVE.B (A1)+,(A0)+
00022932 51 c8 ff fc |Q | DBF D0,0x22930
00022936 59 4f |YO | SUBQ.L #0x4,A7
00022938 48 6f 00 04 |Ho | PEA.L (A7+0x4)
0002293c 3f 02 |? | MOVE.W D2,-(A7)
0002293e 3f 3c 00 15 |?< | MOVE.W #0x15,-(A7)
00022942 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00022948 50 4f |PO | ADDQ.L #0x8,A7
0002294a 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00022950 de fc 00 1a | | ADDA.W #0x1a,A7
00022954 4c df 03 c7 |L | MOVEM.L (A7)+,D0+D1+D2+D6+D7+A0+A1
00022958 4e 5e |N^ | UNLK A6
0002295a 4e 75 |Nu | RTS
0002295c ; --------------------------------------------------------------------------------------
0002295c ; OMSI PASCAL Function
0002295c ; --------------------------------------------------------------------------------------
0002295c 4e 56 ff 90 |NV | LINK.W A6,#0xff90
00022960 bf d5 | | CMPA.L (A5),A7
00022962 62 06 |b | BHI 0x2296a
00022964 44 fc 00 02 |D | MOVE.W #0x2,CCR
00022968 4e 76 |Nv | TRAPV
0002296a de fc 00 70 | p | ADDA.W #0x70,A7
0002296e 48 e7 c0 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D1+D0,-(A7)
00022972 45 f9 00 02 57 48 |E WH | LEA.L 0x25748,A2
00022978 47 f9 00 02 57 4c |G WL | LEA.L 0x2574c,A3
0002297e 49 fa fb fa |I | LEA.L 0x2257a,A4
00022982 72 01 |r | MOVEQ.L #0x01,D1
00022984 9e fc 00 1a | | SUBA.W #0x1a,A7
00022988 20 4f | O | MOVEA.L A7,A0
0002298a 43 fa db 66 |C f | LEA.L 0x204f2,A1
0002298e 70 18 |p | MOVEQ.L #0x18,D0
00022990 10 d9 | | MOVE.B (A1)+,(A0)+
00022992 51 c8 ff fc |Q | DBF D0,0x22990
00022996 9e fc 00 10 | | SUBA.W #0x10,A7
0002299a 20 4f | O | MOVEA.L A7,A0
0002299c 43 fa db 6e |C n | LEA.L 0x2050c,A1
000229a0 70 0e |p | MOVEQ.L #0x0e,D0
000229a2 10 d9 | | MOVE.B (A1)+,(A0)+
000229a4 51 c8 ff fc |Q | DBF D0,0x229a2
000229a8 51 4f |QO | SUBQ.L #0x8,A7
000229aa 48 6f 00 18 |Ho | PEA.L (A7+0x18)
000229ae 3f 01 |? | MOVE.W D1,-(A7)
000229b0 3f 3c 00 19 |?< | MOVE.W #0x19,-(A7)
000229b4 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
000229ba 55 4f |UO | SUBQ.L #0x2,A7
000229bc 20 12 | | MOVE.L (A2),D0
000229be d0 93 | | ADD.L (A3),D0
000229c0 59 80 |Y | SUBQ.L #0x4,D0
000229c2 2f 00 |/ | MOVE.L D0,-(A7)
000229c4 4e 94 |N | JSR (A4)
000229c6 58 4f |XO | ADDQ.L #0x4,A7
000229c8 30 1f |0 | MOVE.W (A7)+,D0
000229ca 48 c0 |H | EXTW.L D0
000229cc 2e 80 |. | MOVE.L D0,(A7)
000229ce 48 78 00 02 |Hx | PEA.L 0x2
000229d2 4e b9 00 01 02 e8 |N | JSR Long2HexString(val : Long; ndig : Long) : String
000229d8 55 4f |UO | SUBQ.L #0x2,A7
000229da 20 12 | | MOVE.L (A2),D0
000229dc d0 93 | | ADD.L (A3),D0
000229de 57 80 |W | SUBQ.L #0x3,D0
000229e0 2f 00 |/ | MOVE.L D0,-(A7)
000229e2 4e 94 |N | JSR (A4)
000229e4 58 4f |XO | ADDQ.L #0x4,A7
000229e6 30 1f |0 | MOVE.W (A7)+,D0
000229e8 48 c0 |H | EXTW.L D0
000229ea 2e 80 |. | MOVE.L D0,(A7)
000229ec 48 78 00 02 |Hx | PEA.L 0x2
000229f0 4e b9 00 01 02 e8 |N | JSR Long2HexString(val : Long; ndig : Long) : String
000229f6 55 4f |UO | SUBQ.L #0x2,A7
000229f8 20 12 | | MOVE.L (A2),D0
000229fa d0 93 | | ADD.L (A3),D0
000229fc 55 80 |U | SUBQ.L #0x2,D0
000229fe 2f 00 |/ | MOVE.L D0,-(A7)
00022a00 4e 94 |N | JSR (A4)
00022a02 58 4f |XO | ADDQ.L #0x4,A7
00022a04 30 1f |0 | MOVE.W (A7)+,D0
00022a06 48 c0 |H | EXTW.L D0
00022a08 2e 80 |. | MOVE.L D0,(A7)
00022a0a 48 78 00 02 |Hx | PEA.L 0x2
00022a0e 4e b9 00 01 02 e8 |N | JSR Long2HexString(val : Long; ndig : Long) : String
00022a14 58 4f |XO | ADDQ.L #0x4,A7
00022a16 48 6f 00 18 |Ho | PEA.L (A7+0x18)
00022a1a 3f 01 |? | MOVE.W D1,-(A7)
00022a1c 3f 3c 00 0f |?< | MOVE.W #0xf,-(A7)
00022a20 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00022a26 55 4f |UO | SUBQ.L #0x2,A7
00022a28 20 12 | | MOVE.L (A2),D0
00022a2a d0 93 | | ADD.L (A3),D0
00022a2c 53 80 |S | SUBQ.L #0x1,D0
00022a2e 2f 00 |/ | MOVE.L D0,-(A7)
00022a30 4e 94 |N | JSR (A4)
00022a32 58 4f |XO | ADDQ.L #0x4,A7
00022a34 30 1f |0 | MOVE.W (A7)+,D0
00022a36 48 c0 |H | EXTW.L D0
00022a38 2e 80 |. | MOVE.L D0,(A7)
00022a3a 48 78 00 02 |Hx | PEA.L 0x2
00022a3e 4e b9 00 01 02 e8 |N | JSR Long2HexString(val : Long; ndig : Long) : String
00022a44 50 4f |PO | ADDQ.L #0x8,A7
00022a46 4e b9 00 01 02 e0 |N | JSR StringCat6(a, b, c, d, e, f : String) : String
00022a4c de fc 00 18 | | ADDA.W #0x18,A7
00022a50 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00022a56 de fc 00 2e | . | ADDA.W #0x2e,A7
00022a5a 4c df 1f 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2+A3+A4
00022a5e 4e 5e |N^ | UNLK A6
00022a60 4e 75 |Nu | RTS
00022a62 ; --------------------------------------------------------------------------------------
00022a62 ; OMSI PASCAL Function
00022a62 ; <LVAR 0x008 4(r)>
00022a62 ; --------------------------------------------------------------------------------------
00022a62 4e 56 ff a0 |NV | LINK.W A6,#0xffa0
00022a66 bf d5 | | CMPA.L (A5),A7
00022a68 62 06 |b | BHI 0x22a70
00022a6a 44 fc 00 02 |D | MOVE.W #0x2,CCR
00022a6e 4e 76 |Nv | TRAPV
00022a70 de fc 00 5c | \ | ADDA.W #0x5c,A7
00022a74 48 e7 c1 f0 |H | MOVEM.L A3+A2+A1+A0+D7+D1+D0,-(A7)
00022a78 45 f9 00 02 57 4c |E WL | LEA.L 0x2574c,A2
00022a7e 47 f9 00 02 57 48 |G WH | LEA.L 0x25748,A3
00022a84 55 4f |UO | SUBQ.L #0x2,A7
00022a86 20 13 | | MOVE.L (A3),D0
00022a88 d0 92 | | ADD.L (A2),D0
00022a8a 53 80 |S | SUBQ.L #0x1,D0
00022a8c 2f 00 |/ | MOVE.L D0,-(A7)
00022a8e 4e ba fa ea |N | JSR 0x2257a
00022a92 58 4f |XO | ADDQ.L #0x4,A7
00022a94 30 39 00 02 57 50 |09 WP | MOVE.W 0x25750,D0
00022a9a b0 5f | _ | CMP.W (A7)+,D0
00022a9c 67 32 |g2 | BEQ 0x22ad0
00022a9e 9e fc 00 30 | 0 | SUBA.W #0x30,A7
00022aa2 20 4f | O | MOVEA.L A7,A0
00022aa4 43 fa da 76 |C v | LEA.L 0x2051c,A1
00022aa8 70 2e |p. | MOVEQ.L #0x2e,D0
00022aaa 10 d9 | | MOVE.B (A1)+,(A0)+
00022aac 51 c8 ff fc |Q | DBF D0,0x22aaa
00022ab0 59 4f |YO | SUBQ.L #0x4,A7
00022ab2 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00022ab6 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
00022aba 3f 3c 00 2f |?< / | MOVE.W #0x2f,-(A7)
00022abe 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00022ac4 50 4f |PO | ADDQ.L #0x8,A7
00022ac6 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00022acc de fc 00 34 | 4 | ADDA.W #0x34,A7
00022ad0 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0
00022ad4 42 90 |B | CLR.L (A0)
00022ad6 2f 12 |/ | MOVE.L (A2),-(A7)
00022ad8 53 97 |S | SUBQ.L #0x1,(A7)
00022ada 7e 00 |~ | MOVEQ.L #0x00,D7
00022adc be 97 | | CMP.L (A7),D7
00022ade 6e 3a |n: | BGT 0x22b1a
00022ae0 55 4f |UO | SUBQ.L #0x2,A7
00022ae2 2f 13 |/ | MOVE.L (A3),-(A7)
00022ae4 df 97 | | ADD.L D7,(A7)
00022ae6 4e ba fa 92 |N | JSR 0x2257a
00022aea 58 4f |XO | ADDQ.L #0x4,A7
00022aec 0c 87 00 00 1f ff | | CMPI.L #0x00001fff,D7
00022af2 63 02 |c | BLS 0x22af6
00022af4 4e 4f |NO | TRAP #15
00022af6 20 07 | | MOVE.L D7,D0
00022af8 e3 80 | | ASL.L #0x1,D0
00022afa 41 f9 00 02 57 28 |A W( | LEA.L 0x25728,A0
00022b00 32 1f |2 | MOVE.W (A7)+,D1
00022b02 b2 70 08 2a | p * | CMP.W (A0+D0.L+#0x2a),D1
00022b06 67 0e |g | BEQ 0x22b16
00022b08 20 12 | | MOVE.L (A2),D0
00022b0a 5b 80 |[ | SUBQ.L #0x5,D0
00022b0c be 80 | | CMP.L D0,D7
00022b0e 67 06 |g | BEQ 0x22b16
00022b10 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0
00022b14 52 90 |R | ADDQ.L #0x1,(A0)
00022b16 52 87 |R | ADDQ.L #0x1,D7
00022b18 68 c2 |h | BVC 0x22adc
00022b1a 58 4f |XO | ADDQ.L #0x4,A7
00022b1c 4c df 0f 83 |L | MOVEM.L (A7)+,D0+D1+D7+A0+A1+A2+A3
00022b20 4e 5e |N^ | UNLK A6
00022b22 4e 75 |Nu | RTS
00022b24 ; --------------------------------------------------------------------------------------
00022b24 ; OMSI PASCAL Function
00022b24 ; <LVAR 0x008 4(r)>
00022b24 ; <LVAR -0x004 @ 4(r)>
00022b24 ; --------------------------------------------------------------------------------------
00022b24 4e 56 ff 94 |NV | LINK.W A6,#0xff94
00022b28 bf d5 | | CMPA.L (A5),A7
00022b2a 62 06 |b | BHI 0x22b32
00022b2c 44 fc 00 02 |D | MOVE.W #0x2,CCR
00022b30 4e 76 |Nv | TRAPV
00022b32 de fc 00 60 | ` | ADDA.W #0x60,A7
00022b36 48 e7 fb f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D4+D3+D2+D1+D0,-(A7)
00022b3a 45 f9 00 02 57 48 |E WH | LEA.L 0x25748,A2
00022b40 47 f9 00 02 57 4c |G WL | LEA.L 0x2574c,A3
00022b46 49 f9 00 02 57 28 |I W( | LEA.L 0x25728,A4
00022b4c 24 3c 00 00 1f ff |$< | MOVE.L #0x1fff,D2
00022b52 36 3c 00 ff |6< | MOVE.W #0xff,D3
00022b56 78 07 |x | MOVEQ.L #0x07,D4
00022b58 30 39 00 02 57 50 |09 WP | MOVE.W 0x25750,D0
00022b5e 04 40 00 50 | @ P | SUBI.W #0x0050,D0
00022b62 48 c0 |H | EXTW.L D0
00022b64 2f 00 |/ | MOVE.L D0,-(A7)
00022b66 48 6e ff fc |Hn | PEA.L (A6-0x4)
00022b6a 4e b9 00 02 54 aa |N T | JSR 0x254aa
00022b70 50 4f |PO | ADDQ.L #0x8,A7
00022b72 4a ae ff fc |J | TST.L (A6-0x4)
00022b76 67 42 |gB | BEQ 0x22bba
00022b78 9e fc 00 1c | | SUBA.W #0x1c,A7
00022b7c 20 4f | O | MOVEA.L A7,A0
00022b7e 43 fa d9 cc |C | LEA.L 0x2054c,A1
00022b82 70 1a |p | MOVEQ.L #0x1a,D0
00022b84 10 d9 | | MOVE.B (A1)+,(A0)+
00022b86 51 c8 ff fc |Q | DBF D0,0x22b84
00022b8a 51 4f |QO | SUBQ.L #0x8,A7
00022b8c 48 6f 00 08 |Ho | PEA.L (A7+0x8)
00022b90 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
00022b94 3f 3c 00 1b |?< | MOVE.W #0x1b,-(A7)
00022b98 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00022b9e 2e ae ff fc |. | MOVE.L (A6-0x4),(A7)
00022ba2 4e ba e5 ea |N | JSR 0x2118e
00022ba6 58 4f |XO | ADDQ.L #0x4,A7
00022ba8 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00022bae 50 4f |PO | ADDQ.L #0x8,A7
00022bb0 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00022bb6 de fc 00 20 | | ADDA.W #0x20,A7
00022bba 59 4f |YO | SUBQ.L #0x4,A7
00022bbc 4e b9 00 02 54 2c |N T, | JSR 0x2542c
00022bc2 2c 1f |, | MOVE.L (A7)+,D6
00022bc4 bc 92 | | CMP.L (A2),D6
00022bc6 65 38 |e8 | BCS 0x22c00
00022bc8 20 12 | | MOVE.L (A2),D0
00022bca d0 93 | | ADD.L (A3),D0
00022bcc bc 80 | | CMP.L D0,D6
00022bce 62 30 |b0 | BHI 0x22c00
00022bd0 7e 00 |~ | MOVEQ.L #0x00,D7
00022bd2 20 06 | | MOVE.L D6,D0
00022bd4 d0 87 | | ADD.L D7,D0
00022bd6 22 00 |" | MOVE.L D0,D1
00022bd8 c2 82 | | AND.L D2,D1
00022bda b2 82 | | CMP.L D2,D1
00022bdc 63 02 |c | BLS 0x22be0
00022bde 4e 4f |NO | TRAP #15
00022be0 e3 81 | | ASL.L #0x1,D1
00022be2 20 4c | L | MOVEA.L A4,A0
00022be4 55 4f |UO | SUBQ.L #0x2,A7
00022be6 2f 00 |/ | MOVE.L D0,-(A7)
00022be8 4e ba f9 90 |N | JSR 0x2257a
00022bec 58 4f |XO | ADDQ.L #0x4,A7
00022bee 30 1f |0 | MOVE.W (A7)+,D0
00022bf0 41 83 |A | CHK.W D3,D0
00022bf2 31 80 18 2a |1 * | MOVE.W D0,(A0+D1.L+#0x2a)
00022bf6 52 87 |R | ADDQ.L #0x1,D7
00022bf8 0c 87 00 00 00 05 | | CMPI.L #0x00000005,D7
00022bfe 6f d2 |o | BLE 0x22bd2
00022c00 59 4f |YO | SUBQ.L #0x4,A7
00022c02 4e b9 00 02 54 56 |N TV | JSR 0x25456
00022c08 2c 1f |, | MOVE.L (A7)+,D6
00022c0a bc 92 | | CMP.L (A2),D6
00022c0c 65 34 |e4 | BCS 0x22c42
00022c0e 20 12 | | MOVE.L (A2),D0
00022c10 d0 93 | | ADD.L (A3),D0
00022c12 bc 80 | | CMP.L D0,D6
00022c14 62 2c |b, | BHI 0x22c42
00022c16 7e 00 |~ | MOVEQ.L #0x00,D7
00022c18 20 06 | | MOVE.L D6,D0
00022c1a d0 87 | | ADD.L D7,D0
00022c1c 22 00 |" | MOVE.L D0,D1
00022c1e c2 82 | | AND.L D2,D1
00022c20 b2 82 | | CMP.L D2,D1
00022c22 63 02 |c | BLS 0x22c26
00022c24 4e 4f |NO | TRAP #15
00022c26 e3 81 | | ASL.L #0x1,D1
00022c28 20 4c | L | MOVEA.L A4,A0
00022c2a 55 4f |UO | SUBQ.L #0x2,A7
00022c2c 2f 00 |/ | MOVE.L D0,-(A7)
00022c2e 4e ba f9 4a |N J | JSR 0x2257a
00022c32 58 4f |XO | ADDQ.L #0x4,A7
00022c34 30 1f |0 | MOVE.W (A7)+,D0
00022c36 41 83 |A | CHK.W D3,D0
00022c38 31 80 18 2a |1 * | MOVE.W D0,(A0+D1.L+#0x2a)
00022c3c 52 87 |R | ADDQ.L #0x1,D7
00022c3e be 84 | | CMP.L D4,D7
00022c40 6f d6 |o | BLE 0x22c18
00022c42 59 4f |YO | SUBQ.L #0x4,A7
00022c44 4e b9 00 02 54 80 |N T | JSR 0x25480
00022c4a 2c 1f |, | MOVE.L (A7)+,D6
00022c4c bc 92 | | CMP.L (A2),D6
00022c4e 65 34 |e4 | BCS 0x22c84
00022c50 20 12 | | MOVE.L (A2),D0
00022c52 d0 93 | | ADD.L (A3),D0
00022c54 bc 80 | | CMP.L D0,D6
00022c56 62 2c |b, | BHI 0x22c84
00022c58 7e 00 |~ | MOVEQ.L #0x00,D7
00022c5a 20 06 | | MOVE.L D6,D0
00022c5c d0 87 | | ADD.L D7,D0
00022c5e 22 00 |" | MOVE.L D0,D1
00022c60 c2 82 | | AND.L D2,D1
00022c62 b2 82 | | CMP.L D2,D1
00022c64 63 02 |c | BLS 0x22c68
00022c66 4e 4f |NO | TRAP #15
00022c68 e3 81 | | ASL.L #0x1,D1
00022c6a 20 4c | L | MOVEA.L A4,A0
00022c6c 55 4f |UO | SUBQ.L #0x2,A7
00022c6e 2f 00 |/ | MOVE.L D0,-(A7)
00022c70 4e ba f9 08 |N | JSR 0x2257a
00022c74 58 4f |XO | ADDQ.L #0x4,A7
00022c76 30 1f |0 | MOVE.W (A7)+,D0
00022c78 41 83 |A | CHK.W D3,D0
00022c7a 31 80 18 2a |1 * | MOVE.W D0,(A0+D1.L+#0x2a)
00022c7e 52 87 |R | ADDQ.L #0x1,D7
00022c80 be 84 | | CMP.L D4,D7
00022c82 6f d6 |o | BLE 0x22c5a
00022c84 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0
00022c88 48 50 |HP | PEA.L (A0)
00022c8a 4e ba fd d6 |N | JSR 0x22a62
00022c8e 58 4f |XO | ADDQ.L #0x4,A7
00022c90 4c df 1f df |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D6+D7+A0+A1+A2+A3+A4
00022c94 4e 5e |N^ | UNLK A6
00022c96 4e 75 |Nu | RTS
00022c98 ; --------------------------------------------------------------------------------------
00022c98 ; OMSI PASCAL Function
00022c98 ; <LVAR 0x00a 4(r)>
00022c98 ; <LVAR 0x008 2(r)>
00022c98 ; <LVAR -0x006 @ 4(r)>
00022c98 ; --------------------------------------------------------------------------------------
00022c98 4e 56 ff 9e |NV | LINK.W A6,#0xff9e
00022c9c bf d5 | | CMPA.L (A5),A7
00022c9e 62 06 |b | BHI 0x22ca6
00022ca0 44 fc 00 02 |D | MOVE.W #0x2,CCR
00022ca4 4e 76 |Nv | TRAPV
00022ca6 de fc 00 5c | \ | ADDA.W #0x5c,A7
00022caa 48 e7 c0 e0 |H | MOVEM.L A2+A1+A0+D1+D0,-(A7)
00022cae 45 ee ff fa |E | LEA.L (A6-0x6),A2
00022cb2 72 01 |r | MOVEQ.L #0x01,D1
00022cb4 2f 2e 00 0a |/. | MOVE.L (A6+0xa),-(A7)
00022cb8 30 2e 00 08 |0. | MOVE.W (A6+0x8),D0
00022cbc 48 c0 |H | EXTW.L D0
00022cbe 2f 00 |/ | MOVE.L D0,-(A7)
00022cc0 1f 01 | | MOVE.B D1,-(A7)
00022cc2 4e ba f6 88 |N | JSR 0x2234c
00022cc6 de fc 00 0a | | ADDA.W #0xa,A7
00022cca 4e ba fc 90 |N | JSR 0x2295c
00022cce 30 2e 00 08 |0. | MOVE.W (A6+0x8),D0
00022cd2 0c 40 00 50 | @ P | CMPI.W #0x0050,D0
00022cd6 6c 08 |l | BGE 0x22ce0
00022cd8 48 52 |HR | PEA.L (A2)
00022cda 4e ba fd 86 |N | JSR 0x22a62
00022cde 60 06 |` | BRA 0x22ce6
00022ce0 48 52 |HR | PEA.L (A2)
00022ce2 4e ba fe 40 |N @ | JSR 0x22b24
00022ce6 58 4f |XO | ADDQ.L #0x4,A7
00022ce8 4a 92 |J | TST.L (A2)
00022cea 66 32 |f2 | BNE 0x22d1e
00022cec 9e fc 00 14 | | SUBA.W #0x14,A7
00022cf0 20 4f | O | MOVEA.L A7,A0
00022cf2 43 fa d8 74 |C t | LEA.L 0x20568,A1
00022cf6 70 12 |p | MOVEQ.L #0x12,D0
00022cf8 10 d9 | | MOVE.B (A1)+,(A0)+
00022cfa 51 c8 ff fc |Q | DBF D0,0x22cf8
00022cfe 59 4f |YO | SUBQ.L #0x4,A7
00022d00 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00022d04 3f 01 |? | MOVE.W D1,-(A7)
00022d06 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7)
00022d0a 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00022d10 50 4f |PO | ADDQ.L #0x8,A7
00022d12 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00022d18 de fc 00 18 | | ADDA.W #0x18,A7
00022d1c 60 3a |`: | BRA 0x22d58
00022d1e 41 fa d8 8c |A | LEA.L 0x205ac,A0
00022d22 70 0b |p | MOVEQ.L #0x0b,D0
00022d24 2f 20 |/ | MOVE.L -(A0),-(A7)
00022d26 51 c8 ff fc |Q | DBF D0,0x22d24
00022d2a 51 4f |QO | SUBQ.L #0x8,A7
00022d2c 2f 12 |/ | MOVE.L (A2),-(A7)
00022d2e 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String
00022d34 48 6f 00 0c |Ho | PEA.L (A7+0xc)
00022d38 3f 01 |? | MOVE.W D1,-(A7)
00022d3a 3f 3c 00 30 |?< 0 | MOVE.W #0x30,-(A7)
00022d3e 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00022d44 50 4f |PO | ADDQ.L #0x8,A7
00022d46 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00022d4c 50 4f |PO | ADDQ.L #0x8,A7
00022d4e 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00022d54 de fc 00 34 | 4 | ADDA.W #0x34,A7
00022d58 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void)
00022d5e 4c df 07 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2
00022d62 4e 5e |N^ | UNLK A6
00022d64 4e 75 |Nu | RTS
00022d66 ; --------------------------------------------------------------------------------------
00022d66 ; OMSI PASCAL Function
00022d66 ; <LVAR 0x008 2(r)>
00022d66 ; <LVAR -0x006 @>
00022d66 ; <LVAR -0x00a @ 4(r)>
00022d66 ; --------------------------------------------------------------------------------------
00022d66 4e 56 ff d6 |NV | LINK.W A6,#0xffd6 ; Spelunked
00022d6a bf d5 | | CMPA.L (A5),A7
00022d6c 62 06 |b | BHI 0x22d74
00022d6e 44 fc 00 02 |D | MOVE.W #0x2,CCR
00022d72 4e 76 |Nv | TRAPV
00022d74 de fc 00 20 | | ADDA.W #0x20,A7
00022d78 3f 2e 00 08 |?. | MOVE.W (A6+0x8),-(A7)
00022d7c 48 6e ff fa |Hn | PEA.L (A6-0x6)
00022d80 48 6e ff f6 |Hn | PEA.L (A6-0xa)
00022d84 4e ba e7 78 |N x | JSR 0x214fe
00022d88 5c 4f |\O | ADDQ.L #0x6,A7
00022d8a 2e ba d8 24 |. $ | MOVE.L 0x205b0,(A7)
00022d8e 2f 3a d8 1c |/: | MOVE.L 0x205ac,-(A7)
00022d92 59 4f |YO | SUBQ.L #0x4,A7
00022d94 2f 2e ff f6 |/. | MOVE.L (A6-0xa),-(A7)
00022d98 59 4f |YO | SUBQ.L #0x4,A7
00022d9a 48 6f 00 0c |Ho | PEA.L (A7+0xc)
00022d9e 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
00022da2 3f 3c 00 08 |?< | MOVE.W #0x8,-(A7)
00022da6 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00022dac 50 4f |PO | ADDQ.L #0x8,A7
00022dae 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00022db4 50 4f |PO | ADDQ.L #0x8,A7
00022db6 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String)
00022dbc 50 4f |PO | ADDQ.L #0x8,A7
00022dbe 2e 94 |. | MOVE.L (A4),(A7)
00022dc0 3f 2e 00 08 |?. | MOVE.W (A6+0x8),-(A7)
00022dc4 4e ba fe d2 |N | JSR 0x22c98
00022dc8 5c 4f |\O | ADDQ.L #0x6,A7
00022dca 4e 5e |N^ | UNLK A6
00022dcc 4e 75 |Nu | RTS
00022dce ; --------------------------------------------------------------------------------------
00022dce ; OMSI PASCAL Function
00022dce ; <LVAR 0x008 1(r)>
00022dce ; <LVAR -0x006 @ 4(rw)>
00022dce ; <LVAR -0x00a @ 4(rw)>
00022dce ; --------------------------------------------------------------------------------------
00022dce 4e 56 ff 98 |NV | LINK.W A6,#0xff98
00022dd2 bf d5 | | CMPA.L (A5),A7
00022dd4 62 06 |b | BHI 0x22ddc
00022dd6 44 fc 00 02 |D | MOVE.W #0x2,CCR
00022dda 4e 76 |Nv | TRAPV
00022ddc de fc 00 5e | ^ | ADDA.W #0x5e,A7
00022de0 48 e7 f0 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D3+D2+D1+D0,-(A7)
00022de4 45 ee ff f6 |E | LEA.L (A6-0xa),A2
00022de8 47 fa ff 7c |G | | LEA.L 0x22d66,A3
00022dec 72 01 |r | MOVEQ.L #0x01,D1
00022dee 74 0c |t | MOVEQ.L #0x0c,D2
00022df0 76 15 |v | MOVEQ.L #0x15,D3
00022df2 4a 2e 00 08 |J. | TST.B (A6+0x8)
00022df6 67 08 |g | BEQ 0x22e00
00022df8 24 b9 00 02 97 58 |$ X | MOVE.L 0x29758,(A2)
00022dfe 60 06 |` | BRA 0x22e06
00022e00 24 b9 00 02 97 54 |$ T | MOVE.L 0x29754,(A2)
00022e06 9e fc 00 16 | | SUBA.W #0x16,A7
00022e0a 20 4f | O | MOVEA.L A7,A0
00022e0c 43 fa d7 a6 |C | LEA.L 0x205b4,A1
00022e10 70 14 |p | MOVEQ.L #0x14,D0
00022e12 10 d9 | | MOVE.B (A1)+,(A0)+
00022e14 51 c8 ff fc |Q | DBF D0,0x22e12
00022e18 2f 3a d7 b0 |/: | MOVE.L 0x205ca,-(A7)
00022e1c 9e c2 | | SUBA.W D2,A7
00022e1e 48 6f 00 10 |Ho | PEA.L (A7+0x10)
00022e22 3f 01 |? | MOVE.W D1,-(A7)
00022e24 3f 03 |? | MOVE.W D3,-(A7)
00022e26 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00022e2c 2e 92 |. | MOVE.L (A2),(A7)
00022e2e 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String
00022e34 48 6f 00 14 |Ho | PEA.L (A7+0x14)
00022e38 3f 01 |? | MOVE.W D1,-(A7)
00022e3a 3f 3c 00 04 |?< | MOVE.W #0x4,-(A7)
00022e3e 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00022e44 50 4f |PO | ADDQ.L #0x8,A7
00022e46 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String
00022e4c de c2 | | ADDA.W D2,A7
00022e4e 4e b9 00 01 03 e4 |N | JSR AskConsoleString(prompt : String) : String
00022e54 58 4f |XO | ADDQ.L #0x4,A7
00022e56 2d 5f ff fa |-_ | MOVE.L (A7)+,(A6-0x6)
00022e5a de fc 00 1a | | ADDA.W #0x1a,A7
00022e5e 20 6e ff fa | n | MOVEA.L (A6-0x6),A0
00022e62 30 10 |0 | MOVE.W (A0),D0
00022e64 b0 41 | A | CMP.W D1,D0
00022e66 6f 06 |o | BLE 0x22e6e
00022e68 24 ae ff fa |$ | MOVE.L (A6-0x6),(A2)
00022e6c 60 0c |` | BRA 0x22e7a
00022e6e 48 6e ff fa |Hn | PEA.L (A6-0x6)
00022e72 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String)
00022e78 58 4f |XO | ADDQ.L #0x4,A7
00022e7a 4a 2e 00 08 |J. | TST.B (A6+0x8)
00022e7e 67 1e |g | BEQ 0x22e9e
00022e80 3f 3c 00 50 |?< P | MOVE.W #0x50,-(A7)
00022e84 28 4a |(J | MOVEA.L A2,A4
00022e86 4e 93 |N | JSR (A3)
00022e88 3e bc 00 51 |> Q | MOVE.W #0x51,(A7)
00022e8c 28 4a |(J | MOVEA.L A2,A4
00022e8e 4e 93 |N | JSR (A3)
00022e90 3e bc 00 52 |> R | MOVE.W #0x52,(A7)
00022e94 28 4a |(J | MOVEA.L A2,A4
00022e96 4e 93 |N | JSR (A3)
00022e98 3e bc 00 53 |> S | MOVE.W #0x53,(A7)
00022e9c 60 1a |` | BRA 0x22eb8
00022e9e 3f 3c 00 21 |?< ! | MOVE.W #0x21,-(A7)
00022ea2 28 4a |(J | MOVEA.L A2,A4
00022ea4 4e 93 |N | JSR (A3)
00022ea6 3e bc 00 19 |> | MOVE.W #0x19,(A7)
00022eaa 28 4a |(J | MOVEA.L A2,A4
00022eac 4e 93 |N | JSR (A3)
00022eae 3e bc 00 17 |> | MOVE.W #0x17,(A7)
00022eb2 28 4a |(J | MOVEA.L A2,A4
00022eb4 4e 93 |N | JSR (A3)
00022eb6 3e 83 |> | MOVE.W D3,(A7)
00022eb8 28 4a |(J | MOVEA.L A2,A4
00022eba 4e 93 |N | JSR (A3)
00022ebc 54 4f |TO | ADDQ.L #0x2,A7
00022ebe 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void)
00022ec4 4c df 1f 0f |L | MOVEM.L (A7)+,D0+D1+D2+D3+A0+A1+A2+A3+A4
00022ec8 4e 5e |N^ | UNLK A6
00022eca 4e 75 |Nu | RTS
00022ecc ; --------------------------------------------------------------------------------------
00022ecc ; OMSI PASCAL Function
00022ecc ; --------------------------------------------------------------------------------------
00022ecc 4e 56 ff 50 |NV P | LINK.W A6,#0xff50
00022ed0 bf d5 | | CMPA.L (A5),A7
00022ed2 62 06 |b | BHI 0x22eda
00022ed4 44 fc 00 02 |D | MOVE.W #0x2,CCR
00022ed8 4e 76 |Nv | TRAPV
00022eda de fc 00 a8 | | ADDA.W #0xa8,A7
00022ede 48 e7 fb f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D4+D3+D2+D1+D0,-(A7)
00022ee2 45 f9 00 02 57 48 |E WH | LEA.L 0x25748,A2
00022ee8 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
00022eee 49 f9 00 01 03 e0 |I | LEA.L WriteConsoleStringCrLf(str : String),A4
00022ef4 74 01 |t | MOVEQ.L #0x01,D2
00022ef6 76 0a |v | MOVEQ.L #0x0a,D3
00022ef8 78 42 |xB | MOVEQ.L #0x42,D4
00022efa 2f 39 00 02 57 4c |/9 WL | MOVE.L 0x2574c,-(A7)
00022f00 7c 00 || | MOVEQ.L #0x00,D6
00022f02 bc 97 | | CMP.L (A7),D6
00022f04 6e 00 01 96 |n | BGT 0x2309c
00022f08 55 4f |UO | SUBQ.L #0x2,A7
00022f0a 2f 12 |/ | MOVE.L (A2),-(A7)
00022f0c dd 97 | | ADD.L D6,(A7)
00022f0e 4e ba f6 6a |N j | JSR 0x2257a
00022f12 58 4f |XO | ADDQ.L #0x4,A7
00022f14 0c 86 00 00 1f ff | | CMPI.L #0x00001fff,D6
00022f1a 63 02 |c | BLS 0x22f1e
00022f1c 4e 4f |NO | TRAP #15
00022f1e 20 06 | | MOVE.L D6,D0
00022f20 e3 80 | | ASL.L #0x1,D0
00022f22 41 f9 00 02 57 28 |A W( | LEA.L 0x25728,A0
00022f28 32 1f |2 | MOVE.W (A7)+,D1
00022f2a b2 70 08 2a | p * | CMP.W (A0+D0.L+#0x2a),D1
00022f2e 67 00 01 66 |g f | BEQ 0x23096
00022f32 20 39 00 02 57 4c | 9 WL | MOVE.L 0x2574c,D0
00022f38 5b 80 |[ | SUBQ.L #0x5,D0
00022f3a bc 80 | | CMP.L D0,D6
00022f3c 67 00 01 58 |g X | BEQ 0x23096
00022f40 7e 00 |~ | MOVEQ.L #0x00,D7
00022f42 0c 86 00 00 1f ff | | CMPI.L #0x00001fff,D6
00022f48 63 02 |c | BLS 0x22f4c
00022f4a 4e 4f |NO | TRAP #15
00022f4c 20 06 | | MOVE.L D6,D0
00022f4e e3 80 | | ASL.L #0x1,D0
00022f50 41 f9 00 02 57 28 |A W( | LEA.L 0x25728,A0
00022f56 2f 12 |/ | MOVE.L (A2),-(A7)
00022f58 dd 97 | | ADD.L D6,(A7)
00022f5a 3f 30 08 2a |?0 * | MOVE.W (A0+D0.L+#0x2a),-(A7)
00022f5e 4e ba f6 5a |N Z | JSR 0x225ba
00022f62 5c 4f |\O | ADDQ.L #0x6,A7
00022f64 52 87 |R | ADDQ.L #0x1,D7
00022f66 55 4f |UO | SUBQ.L #0x2,A7
00022f68 2f 12 |/ | MOVE.L (A2),-(A7)
00022f6a dd 97 | | ADD.L D6,(A7)
00022f6c 4e ba f6 0c |N | JSR 0x2257a
00022f70 58 4f |XO | ADDQ.L #0x4,A7
00022f72 32 1f |2 | MOVE.W (A7)+,D1
00022f74 b2 70 08 2a | p * | CMP.W (A0+D0.L+#0x2a),D1
00022f78 67 04 |g | BEQ 0x22f7e
00022f7a be 83 | | CMP.L D3,D7
00022f7c 66 c4 |f | BNE 0x22f42
00022f7e 55 4f |UO | SUBQ.L #0x2,A7
00022f80 2f 12 |/ | MOVE.L (A2),-(A7)
00022f82 dd 97 | | ADD.L D6,(A7)
00022f84 4e ba f5 f4 |N | JSR 0x2257a
00022f88 58 4f |XO | ADDQ.L #0x4,A7
00022f8a 32 1f |2 | MOVE.W (A7)+,D1
00022f8c b2 70 08 2a | p * | CMP.W (A0+D0.L+#0x2a),D1
00022f90 67 00 01 04 |g | BEQ 0x23096
00022f94 43 fa d6 5e |C ^ | LEA.L 0x205f4,A1
00022f98 72 12 |r | MOVEQ.L #0x12,D1
00022f9a 3f 21 |?! | MOVE.W -(A1),-(A7)
00022f9c 51 c9 ff fc |Q | DBF D1,0x22f9a
00022fa0 43 fa d6 5c |C \ | LEA.L 0x205fe,A1
00022fa4 72 04 |r | MOVEQ.L #0x04,D1
00022fa6 3f 21 |?! | MOVE.W -(A1),-(A7)
00022fa8 51 c9 ff fc |Q | DBF D1,0x22fa6
00022fac 43 fa d6 5e |C ^ | LEA.L 0x2060c,A1
00022fb0 72 06 |r | MOVEQ.L #0x06,D1
00022fb2 3f 21 |?! | MOVE.W -(A1),-(A7)
00022fb4 51 c9 ff fc |Q | DBF D1,0x22fb2
00022fb8 51 4f |QO | SUBQ.L #0x8,A7
00022fba 48 6f 00 20 |Ho | PEA.L (A7+0x20)
00022fbe 3f 02 |? | MOVE.W D2,-(A7)
00022fc0 3f 3c 00 26 |?< & | MOVE.W #0x26,-(A7)
00022fc4 4e 93 |N | JSR (A3)
00022fc6 2e 92 |. | MOVE.L (A2),(A7)
00022fc8 dd 97 | | ADD.L D6,(A7)
00022fca 48 78 00 08 |Hx | PEA.L 0x8
00022fce 4e b9 00 01 02 e8 |N | JSR Long2HexString(val : Long; ndig : Long) : String
00022fd4 58 4f |XO | ADDQ.L #0x4,A7
00022fd6 48 6f 00 1e |Ho | PEA.L (A7+0x1e)
00022fda 3f 02 |? | MOVE.W D2,-(A7)
00022fdc 3f 03 |? | MOVE.W D3,-(A7)
00022fde 4e 93 |N | JSR (A3)
00022fe0 58 4f |XO | ADDQ.L #0x4,A7
00022fe2 32 30 08 2a |20 * | MOVE.W (A0+D0.L+#0x2a),D1
00022fe6 48 c1 |H | EXTW.L D1
00022fe8 2f 01 |/ | MOVE.L D1,-(A7)
00022fea 48 78 00 02 |Hx | PEA.L 0x2
00022fee 4e b9 00 01 02 e8 |N | JSR Long2HexString(val : Long; ndig : Long) : String
00022ff4 58 4f |XO | ADDQ.L #0x4,A7
00022ff6 48 6f 00 18 |Ho | PEA.L (A7+0x18)
00022ffa 3f 02 |? | MOVE.W D2,-(A7)
00022ffc 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7)
00023000 4e 93 |N | JSR (A3)
00023002 55 4f |UO | SUBQ.L #0x2,A7
00023004 2f 12 |/ | MOVE.L (A2),-(A7)
00023006 dd 97 | | ADD.L D6,(A7)
00023008 4e ba f5 70 |N p | JSR 0x2257a
0002300c 58 4f |XO | ADDQ.L #0x4,A7
0002300e 30 1f |0 | MOVE.W (A7)+,D0
00023010 48 c0 |H | EXTW.L D0
00023012 2e 80 |. | MOVE.L D0,(A7)
00023014 48 78 00 02 |Hx | PEA.L 0x2
00023018 4e b9 00 01 02 e8 |N | JSR Long2HexString(val : Long; ndig : Long) : String
0002301e 50 4f |PO | ADDQ.L #0x8,A7
00023020 4e b9 00 01 02 e0 |N | JSR StringCat6(a, b, c, d, e, f : String) : String
00023026 de fc 00 18 | | ADDA.W #0x18,A7
0002302a 4e 94 |N | JSR (A4)
0002302c de c4 | | ADDA.W D4,A7
0002302e 41 fa d6 0c |A | LEA.L 0x2063c,A0
00023032 70 0b |p | MOVEQ.L #0x0b,D0
00023034 2f 20 |/ | MOVE.L -(A0),-(A7)
00023036 51 c8 ff fc |Q | DBF D0,0x23034
0002303a 59 4f |YO | SUBQ.L #0x4,A7
0002303c 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00023040 3f 02 |? | MOVE.W D2,-(A7)
00023042 3f 3c 00 30 |?< 0 | MOVE.W #0x30,-(A7)
00023046 4e 93 |N | JSR (A3)
00023048 50 4f |PO | ADDQ.L #0x8,A7
0002304a 4e 94 |N | JSR (A4)
0002304c de fc 00 34 | 4 | ADDA.W #0x34,A7
00023050 41 fa d6 2c |A , | LEA.L 0x2067e,A0
00023054 70 20 |p | MOVEQ.L #0x20,D0
00023056 3f 20 |? | MOVE.W -(A0),-(A7)
00023058 51 c8 ff fc |Q | DBF D0,0x23056
0002305c 59 4f |YO | SUBQ.L #0x4,A7
0002305e 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00023062 3f 02 |? | MOVE.W D2,-(A7)
00023064 3f 04 |? | MOVE.W D4,-(A7)
00023066 4e 93 |N | JSR (A3)
00023068 50 4f |PO | ADDQ.L #0x8,A7
0002306a 4e 94 |N | JSR (A4)
0002306c de fc 00 2c | , | ADDA.W #0x2c,A7
00023070 20 4f | O | MOVEA.L A7,A0
00023072 43 fa d6 0a |C | LEA.L 0x2067e,A1
00023076 70 18 |p | MOVEQ.L #0x18,D0
00023078 10 d9 | | MOVE.B (A1)+,(A0)+
0002307a 51 c8 ff fc |Q | DBF D0,0x23078
0002307e 59 4f |YO | SUBQ.L #0x4,A7
00023080 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00023084 3f 02 |? | MOVE.W D2,-(A7)
00023086 3f 3c 00 19 |?< | MOVE.W #0x19,-(A7)
0002308a 4e 93 |N | JSR (A3)
0002308c 50 4f |PO | ADDQ.L #0x8,A7
0002308e 4e ba e2 78 |N x | JSR 0x21308
00023092 de fc 00 1e | | ADDA.W #0x1e,A7
00023096 52 86 |R | ADDQ.L #0x1,D6
00023098 68 00 fe 68 |h h | BVC 0x22f02
0002309c 58 4f |XO | ADDQ.L #0x4,A7
0002309e 4a 39 00 02 57 36 |J9 W6 | TST.B 0x25736
000230a4 67 2a |g* | BEQ 0x230d0
000230a6 9e fc 00 1c | | SUBA.W #0x1c,A7
000230aa 20 4f | O | MOVEA.L A7,A0
000230ac 43 fa d5 ea |C | LEA.L 0x20698,A1
000230b0 70 1a |p | MOVEQ.L #0x1a,D0
000230b2 10 d9 | | MOVE.B (A1)+,(A0)+
000230b4 51 c8 ff fc |Q | DBF D0,0x230b2
000230b8 59 4f |YO | SUBQ.L #0x4,A7
000230ba 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000230be 3f 02 |? | MOVE.W D2,-(A7)
000230c0 3f 3c 00 1b |?< | MOVE.W #0x1b,-(A7)
000230c4 4e 93 |N | JSR (A3)
000230c6 50 4f |PO | ADDQ.L #0x8,A7
000230c8 4e 94 |N | JSR (A4)
000230ca de fc 00 20 | | ADDA.W #0x20,A7
000230ce 60 28 |`( | BRA 0x230f8
000230d0 9e fc 00 2a | * | SUBA.W #0x2a,A7
000230d4 20 4f | O | MOVEA.L A7,A0
000230d6 43 fa d5 dc |C | LEA.L 0x206b4,A1
000230da 70 28 |p( | MOVEQ.L #0x28,D0
000230dc 10 d9 | | MOVE.B (A1)+,(A0)+
000230de 51 c8 ff fc |Q | DBF D0,0x230dc
000230e2 59 4f |YO | SUBQ.L #0x4,A7
000230e4 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000230e8 3f 02 |? | MOVE.W D2,-(A7)
000230ea 3f 3c 00 29 |?< ) | MOVE.W #0x29,-(A7)
000230ee 4e 93 |N | JSR (A3)
000230f0 50 4f |PO | ADDQ.L #0x8,A7
000230f2 4e 94 |N | JSR (A4)
000230f4 de fc 00 2e | . | ADDA.W #0x2e,A7
000230f8 4c df 1f df |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D6+D7+A0+A1+A2+A3+A4
000230fc 4e 5e |N^ | UNLK A6
000230fe 4e 75 |Nu | RTS
00023100 ; --------------------------------------------------------------------------------------
00023100 ; OMSI PASCAL Function
00023100 ; <LVAR -0x004 1(rw)>
00023100 ; <LVAR -0x008 4(rw)>
00023100 ; <LVAR -0x00c @ 4(r)>
00023100 ; <LVAR -0x010 4(rw)>
00023100 ; <LVAR -0x014 4(rw)>
00023100 ; <LVAR -0x02a 2(rw)>
00023100 ; <LVAR -0x030 2(rw)>
00023100 ; --------------------------------------------------------------------------------------
00023100 4e 56 ff 28 |NV ( | LINK.W A6,#0xff28
00023104 bf d5 | | CMPA.L (A5),A7
00023106 62 06 |b | BHI 0x2310e
00023108 44 fc 00 02 |D | MOVE.W #0x2,CCR
0002310c 4e 76 |Nv | TRAPV
0002310e de fc 00 88 | | ADDA.W #0x88,A7
00023112 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00023116 45 f9 00 02 57 48 |E WH | LEA.L 0x25748,A2
0002311c 47 f9 00 02 57 4c |G WL | LEA.L 0x2574c,A3
00023122 49 f9 00 01 02 c4 |I | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A4
00023128 74 07 |t | MOVEQ.L #0x07,D2
0002312a 59 4f |YO | SUBQ.L #0x4,A7
0002312c 4e b9 00 02 54 2c |N T, | JSR 0x2542c
00023132 2c 1f |, | MOVE.L (A7)+,D6
00023134 67 2e |g. | BEQ 0x23164
00023136 7e 00 |~ | MOVEQ.L #0x00,D7
00023138 be 82 | | CMP.L D2,D7
0002313a 63 02 |c | BLS 0x2313e
0002313c 4e 4f |NO | TRAP #15
0002313e 20 07 | | MOVE.L D7,D0
00023140 e3 80 | | ASL.L #0x1,D0
00023142 55 4f |UO | SUBQ.L #0x2,A7
00023144 2f 06 |/ | MOVE.L D6,-(A7)
00023146 df 97 | | ADD.L D7,(A7)
00023148 4e ba f4 30 |N 0 | JSR 0x2257a
0002314c 58 4f |XO | ADDQ.L #0x4,A7
0002314e 32 1f |2 | MOVE.W (A7)+,D1
00023150 43 bc 00 ff |C | CHK.W #0xff,D1
00023154 3d 81 08 b8 |= | MOVE.W D1,(A6+D0.L-#0x48)
00023158 52 87 |R | ADDQ.L #0x1,D7
0002315a 0c 87 00 00 00 05 | | CMPI.L #0x00000005,D7
00023160 6f d6 |o | BLE 0x23138
00023162 60 1a |` | BRA 0x2317e
00023164 7e 00 |~ | MOVEQ.L #0x00,D7
00023166 be 82 | | CMP.L D2,D7
00023168 63 02 |c | BLS 0x2316c
0002316a 4e 4f |NO | TRAP #15
0002316c 20 07 | | MOVE.L D7,D0
0002316e e3 80 | | ASL.L #0x1,D0
00023170 42 76 08 b8 |Bv | CLR.W (A6+D0.L-#0x48)
00023174 52 87 |R | ADDQ.L #0x1,D7
00023176 0c 87 00 00 00 05 | | CMPI.L #0x00000005,D7
0002317c 6f e8 |o | BLE 0x23166
0002317e 59 4f |YO | SUBQ.L #0x4,A7
00023180 4e b9 00 02 54 56 |N TV | JSR 0x25456
00023186 2c 1f |, | MOVE.L (A7)+,D6
00023188 67 2a |g* | BEQ 0x231b4
0002318a 7e 00 |~ | MOVEQ.L #0x00,D7
0002318c be 82 | | CMP.L D2,D7
0002318e 63 02 |c | BLS 0x23192
00023190 4e 4f |NO | TRAP #15
00023192 20 07 | | MOVE.L D7,D0
00023194 e3 80 | | ASL.L #0x1,D0
00023196 55 4f |UO | SUBQ.L #0x2,A7
00023198 2f 06 |/ | MOVE.L D6,-(A7)
0002319a df 97 | | ADD.L D7,(A7)
0002319c 4e ba f3 dc |N | JSR 0x2257a
000231a0 58 4f |XO | ADDQ.L #0x4,A7
000231a2 32 1f |2 | MOVE.W (A7)+,D1
000231a4 43 bc 00 ff |C | CHK.W #0xff,D1
000231a8 3d 81 08 c8 |= | MOVE.W D1,(A6+D0.L-#0x38)
000231ac 52 87 |R | ADDQ.L #0x1,D7
000231ae be 82 | | CMP.L D2,D7
000231b0 6f da |o | BLE 0x2318c
000231b2 60 16 |` | BRA 0x231ca
000231b4 7e 00 |~ | MOVEQ.L #0x00,D7
000231b6 be 82 | | CMP.L D2,D7
000231b8 63 02 |c | BLS 0x231bc
000231ba 4e 4f |NO | TRAP #15
000231bc 20 07 | | MOVE.L D7,D0
000231be e3 80 | | ASL.L #0x1,D0
000231c0 42 76 08 c8 |Bv | CLR.W (A6+D0.L-#0x38)
000231c4 52 87 |R | ADDQ.L #0x1,D7
000231c6 be 82 | | CMP.L D2,D7
000231c8 6f ec |o | BLE 0x231b6
000231ca 59 4f |YO | SUBQ.L #0x4,A7
000231cc 4e b9 00 02 54 80 |N T | JSR 0x25480
000231d2 2c 1f |, | MOVE.L (A7)+,D6
000231d4 67 2a |g* | BEQ 0x23200
000231d6 7e 00 |~ | MOVEQ.L #0x00,D7
000231d8 be 82 | | CMP.L D2,D7
000231da 63 02 |c | BLS 0x231de
000231dc 4e 4f |NO | TRAP #15
000231de 20 07 | | MOVE.L D7,D0
000231e0 e3 80 | | ASL.L #0x1,D0
000231e2 55 4f |UO | SUBQ.L #0x2,A7
000231e4 2f 06 |/ | MOVE.L D6,-(A7)
000231e6 df 97 | | ADD.L D7,(A7)
000231e8 4e ba f3 90 |N | JSR 0x2257a
000231ec 58 4f |XO | ADDQ.L #0x4,A7
000231ee 32 1f |2 | MOVE.W (A7)+,D1
000231f0 43 bc 00 ff |C | CHK.W #0xff,D1
000231f4 3d 81 08 d8 |= | MOVE.W D1,(A6+D0.L-#0x28)
000231f8 52 87 |R | ADDQ.L #0x1,D7
000231fa be 82 | | CMP.L D2,D7
000231fc 6f da |o | BLE 0x231d8
000231fe 60 16 |` | BRA 0x23216
00023200 7e 00 |~ | MOVEQ.L #0x00,D7
00023202 be 82 | | CMP.L D2,D7
00023204 63 02 |c | BLS 0x23208
00023206 4e 4f |NO | TRAP #15
00023208 20 07 | | MOVE.L D7,D0
0002320a e3 80 | | ASL.L #0x1,D0
0002320c 42 76 08 d8 |Bv | CLR.W (A6+D0.L-#0x28)
00023210 52 87 |R | ADDQ.L #0x1,D7
00023212 be 82 | | CMP.L D2,D7
00023214 6f ec |o | BLE 0x23202
00023216 2f 13 |/ | MOVE.L (A3),-(A7)
00023218 7e 00 |~ | MOVEQ.L #0x00,D7
0002321a be 97 | | CMP.L (A7),D7
0002321c 6e 26 |n& | BGT 0x23244
0002321e 2f 12 |/ | MOVE.L (A2),-(A7)
00023220 df 97 | | ADD.L D7,(A7)
00023222 0c 87 00 00 1f ff | | CMPI.L #0x00001fff,D7
00023228 63 02 |c | BLS 0x2322c
0002322a 4e 4f |NO | TRAP #15
0002322c 20 07 | | MOVE.L D7,D0
0002322e e3 80 | | ASL.L #0x1,D0
00023230 41 f9 00 02 57 28 |A W( | LEA.L 0x25728,A0
00023236 3f 30 08 2a |?0 * | MOVE.W (A0+D0.L+#0x2a),-(A7)
0002323a 4e ba f3 e2 |N | JSR 0x2261e
0002323e 5c 4f |\O | ADDQ.L #0x6,A7
00023240 52 87 |R | ADDQ.L #0x1,D7
00023242 68 d6 |h | BVC 0x2321a
00023244 4e b9 00 02 54 2c |N T, | JSR 0x2542c
0002324a 2c 1f |, | MOVE.L (A7)+,D6
0002324c bc 92 | | CMP.L (A2),D6
0002324e 65 32 |e2 | BCS 0x23282
00023250 20 12 | | MOVE.L (A2),D0
00023252 d0 93 | | ADD.L (A3),D0
00023254 bc 80 | | CMP.L D0,D6
00023256 62 2a |b* | BHI 0x23282
00023258 7e 00 |~ | MOVEQ.L #0x00,D7
0002325a 2f 06 |/ | MOVE.L D6,-(A7)
0002325c df 97 | | ADD.L D7,(A7)
0002325e be 82 | | CMP.L D2,D7
00023260 63 02 |c | BLS 0x23264
00023262 4e 4f |NO | TRAP #15
00023264 20 07 | | MOVE.L D7,D0
00023266 e3 80 | | ASL.L #0x1,D0
00023268 30 36 08 b8 |06 | MOVE.W (A6+D0.L-#0x48),D0
0002326c 41 bc 00 ff |A | CHK.W #0xff,D0
00023270 3f 00 |? | MOVE.W D0,-(A7)
00023272 4e ba f3 aa |N | JSR 0x2261e
00023276 5c 4f |\O | ADDQ.L #0x6,A7
00023278 52 87 |R | ADDQ.L #0x1,D7
0002327a 0c 87 00 00 00 05 | | CMPI.L #0x00000005,D7
00023280 6f d8 |o | BLE 0x2325a
00023282 59 4f |YO | SUBQ.L #0x4,A7
00023284 4e b9 00 02 54 80 |N T | JSR 0x25480
0002328a 2c 1f |, | MOVE.L (A7)+,D6
0002328c bc 92 | | CMP.L (A2),D6
0002328e 65 2e |e. | BCS 0x232be
00023290 20 12 | | MOVE.L (A2),D0
00023292 d0 93 | | ADD.L (A3),D0
00023294 bc 80 | | CMP.L D0,D6
00023296 62 26 |b& | BHI 0x232be
00023298 7e 00 |~ | MOVEQ.L #0x00,D7
0002329a 2f 06 |/ | MOVE.L D6,-(A7)
0002329c df 97 | | ADD.L D7,(A7)
0002329e be 82 | | CMP.L D2,D7
000232a0 63 02 |c | BLS 0x232a4
000232a2 4e 4f |NO | TRAP #15
000232a4 20 07 | | MOVE.L D7,D0
000232a6 e3 80 | | ASL.L #0x1,D0
000232a8 30 36 08 d8 |06 | MOVE.W (A6+D0.L-#0x28),D0
000232ac 41 bc 00 ff |A | CHK.W #0xff,D0
000232b0 3f 00 |? | MOVE.W D0,-(A7)
000232b2 4e ba f3 6a |N j | JSR 0x2261e
000232b6 5c 4f |\O | ADDQ.L #0x6,A7
000232b8 52 87 |R | ADDQ.L #0x1,D7
000232ba be 82 | | CMP.L D2,D7
000232bc 6f dc |o | BLE 0x2329a
000232be 59 4f |YO | SUBQ.L #0x4,A7
000232c0 4e b9 00 02 54 56 |N TV | JSR 0x25456
000232c6 2c 1f |, | MOVE.L (A7)+,D6
000232c8 bc 92 | | CMP.L (A2),D6
000232ca 65 5a |eZ | BCS 0x23326
000232cc 20 12 | | MOVE.L (A2),D0
000232ce d0 93 | | ADD.L (A3),D0
000232d0 bc 80 | | CMP.L D0,D6
000232d2 62 52 |bR | BHI 0x23326
000232d4 4a 79 00 02 97 62 |Jy b | TST.W 0x29762
000232da 6f 24 |o$ | BLE 0x23300
000232dc 30 2e ff d6 |0. | MOVE.W (A6-0x2a),D0
000232e0 d0 6e ff d0 | n | ADD.W (A6-0x30),D0
000232e4 90 79 00 02 97 62 | y b | SUB.W 0x29762,D0
000232ea 02 40 00 ff | @ | ANDI.W #0x00ff,D0
000232ee 3d 40 ff d6 |=@ | MOVE.W D0,(A6-0x2a)
000232f2 30 39 00 02 97 62 |09 b | MOVE.W 0x29762,D0
000232f8 41 bc 00 ff |A | CHK.W #0xff,D0
000232fc 3d 40 ff d0 |=@ | MOVE.W D0,(A6-0x30)
00023300 7e 00 |~ | MOVEQ.L #0x00,D7
00023302 2f 06 |/ | MOVE.L D6,-(A7)
00023304 df 97 | | ADD.L D7,(A7)
00023306 be 82 | | CMP.L D2,D7
00023308 63 02 |c | BLS 0x2330c
0002330a 4e 4f |NO | TRAP #15
0002330c 20 07 | | MOVE.L D7,D0
0002330e e3 80 | | ASL.L #0x1,D0
00023310 30 36 08 c8 |06 | MOVE.W (A6+D0.L-#0x38),D0
00023314 41 bc 00 ff |A | CHK.W #0xff,D0
00023318 3f 00 |? | MOVE.W D0,-(A7)
0002331a 4e ba f3 02 |N | JSR 0x2261e
0002331e 5c 4f |\O | ADDQ.L #0x6,A7
00023320 52 87 |R | ADDQ.L #0x1,D7
00023322 be 82 | | CMP.L D2,D7
00023324 6f dc |o | BLE 0x23302
00023326 7a 00 |z | MOVEQ.L #0x00,D5
00023328 2f 13 |/ | MOVE.L (A3),-(A7)
0002332a 53 97 |S | SUBQ.L #0x1,(A7)
0002332c 7e 00 |~ | MOVEQ.L #0x00,D7
0002332e be 97 | | CMP.L (A7),D7
00023330 6e 26 |n& | BGT 0x23358
00023332 55 4f |UO | SUBQ.L #0x2,A7
00023334 2f 12 |/ | MOVE.L (A2),-(A7)
00023336 df 97 | | ADD.L D7,(A7)
00023338 4e ba f2 40 |N @ | JSR 0x2257a
0002333c 58 4f |XO | ADDQ.L #0x4,A7
0002333e 30 1f |0 | MOVE.W (A7)+,D0
00023340 48 c0 |H | EXTW.L D0
00023342 da 80 | | ADD.L D0,D5
00023344 28 05 |( | MOVE.L D5,D4
00023346 26 3c 00 00 01 00 |&< | MOVE.L #0x100,D3
0002334c 4e b9 00 01 02 94 |N | JSR ?divs_d3_d4
00023352 2a 03 |* | MOVE.L D3,D5
00023354 52 87 |R | ADDQ.L #0x1,D7
00023356 68 d6 |h | BVC 0x2332e
00023358 58 4f |XO | ADDQ.L #0x4,A7
0002335a 20 12 | | MOVE.L (A2),D0
0002335c d0 93 | | ADD.L (A3),D0
0002335e 2f 00 |/ | MOVE.L D0,-(A7)
00023360 20 3c 00 00 01 aa | < | MOVE.L #0x1aa,D0
00023366 90 85 | | SUB.L D5,D0
00023368 28 00 |( | MOVE.L D0,D4
0002336a 26 3c 00 00 01 00 |&< | MOVE.L #0x100,D3
00023370 4e b9 00 01 02 94 |N | JSR ?divs_d3_d4
00023376 3f 03 |? | MOVE.W D3,-(A7)
00023378 4e ba f2 a4 |N | JSR 0x2261e
0002337c 5c 4f |\O | ADDQ.L #0x6,A7
0002337e 42 ae ff ec |B | CLR.L (A6-0x14)
00023382 42 ae ff f0 |B | CLR.L (A6-0x10)
00023386 42 2e ff fc |B. | CLR.B (A6-0x4)
0002338a 20 2e ff ec | . | MOVE.L (A6-0x14),D0
0002338e 0c 80 00 00 00 09 | | CMPI.L #0x00000009,D0
00023394 6f 04 |o | BLE 0x2339a
00023396 52 2e ff fc |R. | ADDQ.B #0x1,(A6-0x4)
0002339a 30 39 00 02 57 50 |09 WP | MOVE.W 0x25750,D0
000233a0 04 40 00 50 | @ P | SUBI.W #0x0050,D0
000233a4 48 c0 |H | EXTW.L D0
000233a6 2f 00 |/ | MOVE.L D0,-(A7)
000233a8 48 6e ff f4 |Hn | PEA.L (A6-0xc)
000233ac 4e b9 00 02 54 d2 |N T | JSR 0x254d2
000233b2 50 4f |PO | ADDQ.L #0x8,A7
000233b4 4a ae ff f4 |J | TST.L (A6-0xc)
000233b8 67 48 |gH | BEQ 0x23402
000233ba 4a 2e ff fc |J. | TST.B (A6-0x4)
000233be 67 42 |gB | BEQ 0x23402
000233c0 9e fc 00 1a | | SUBA.W #0x1a,A7
000233c4 20 4f | O | MOVEA.L A7,A0
000233c6 43 fa d3 16 |C | LEA.L 0x206de,A1
000233ca 70 18 |p | MOVEQ.L #0x18,D0
000233cc 10 d9 | | MOVE.B (A1)+,(A0)+
000233ce 51 c8 ff fc |Q | DBF D0,0x233cc
000233d2 51 4f |QO | SUBQ.L #0x8,A7
000233d4 48 6f 00 08 |Ho | PEA.L (A7+0x8)
000233d8 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
000233dc 3f 3c 00 19 |?< | MOVE.W #0x19,-(A7)
000233e0 4e 94 |N | JSR (A4)
000233e2 2e ae ff f4 |. | MOVE.L (A6-0xc),(A7)
000233e6 4e ba dd a6 |N | JSR 0x2118e
000233ea 58 4f |XO | ADDQ.L #0x4,A7
000233ec 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
000233f2 50 4f |PO | ADDQ.L #0x8,A7
000233f4 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
000233fa de fc 00 1e | | ADDA.W #0x1e,A7
000233fe 52 ae ff f0 |R | ADDQ.L #0x1,(A6-0x10)
00023402 7e 00 |~ | MOVEQ.L #0x00,D7
00023404 0c 87 00 00 1f ff | | CMPI.L #0x00001fff,D7
0002340a 63 02 |c | BLS 0x2340e
0002340c 4e 4f |NO | TRAP #15
0002340e 20 07 | | MOVE.L D7,D0
00023410 e3 80 | | ASL.L #0x1,D0
00023412 41 f9 00 02 57 28 |A W( | LEA.L 0x25728,A0
00023418 55 4f |UO | SUBQ.L #0x2,A7
0002341a 2f 12 |/ | MOVE.L (A2),-(A7)
0002341c df 97 | | ADD.L D7,(A7)
0002341e 4e ba f1 5a |N Z | JSR 0x2257a
00023422 58 4f |XO | ADDQ.L #0x4,A7
00023424 32 1f |2 | MOVE.W (A7)+,D1
00023426 43 bc 00 ff |C | CHK.W #0xff,D1
0002342a 31 81 08 2a |1 * | MOVE.W D1,(A0+D0.L+#0x2a)
0002342e 52 87 |R | ADDQ.L #0x1,D7
00023430 0c 87 00 00 1f ff | | CMPI.L #0x00001fff,D7
00023436 6f cc |o | BLE 0x23404
00023438 30 39 00 02 57 50 |09 WP | MOVE.W 0x25750,D0
0002343e 04 40 00 50 | @ P | SUBI.W #0x0050,D0
00023442 48 c0 |H | EXTW.L D0
00023444 2f 00 |/ | MOVE.L D0,-(A7)
00023446 48 6e ff f4 |Hn | PEA.L (A6-0xc)
0002344a 4e b9 00 02 54 aa |N T | JSR 0x254aa
00023450 50 4f |PO | ADDQ.L #0x8,A7
00023452 4a ae ff f4 |J | TST.L (A6-0xc)
00023456 67 48 |gH | BEQ 0x234a0
00023458 20 2e ff f4 | . | MOVE.L (A6-0xc),D0
0002345c 0c 80 00 00 00 02 | | CMPI.L #0x00000002,D0
00023462 67 3c |g< | BEQ 0x234a0
00023464 9e fc 00 1a | | SUBA.W #0x1a,A7
00023468 20 4f | O | MOVEA.L A7,A0
0002346a 43 fa d2 8c |C | LEA.L 0x206f8,A1
0002346e 70 18 |p | MOVEQ.L #0x18,D0
00023470 10 d9 | | MOVE.B (A1)+,(A0)+
00023472 51 c8 ff fc |Q | DBF D0,0x23470
00023476 51 4f |QO | SUBQ.L #0x8,A7
00023478 48 6f 00 08 |Ho | PEA.L (A7+0x8)
0002347c 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
00023480 3f 3c 00 19 |?< | MOVE.W #0x19,-(A7)
00023484 4e 94 |N | JSR (A4)
00023486 2e ae ff f4 |. | MOVE.L (A6-0xc),(A7)
0002348a 4e ba dd 02 |N | JSR 0x2118e
0002348e 58 4f |XO | ADDQ.L #0x4,A7
00023490 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00023496 50 4f |PO | ADDQ.L #0x8,A7
00023498 4e ba de 6e |N n | JSR 0x21308
0002349c de fc 00 1e | | ADDA.W #0x1e,A7
000234a0 42 ae ff f8 |B | CLR.L (A6-0x8)
000234a4 2f 13 |/ | MOVE.L (A3),-(A7)
000234a6 7e 00 |~ | MOVEQ.L #0x00,D7
000234a8 be 97 | | CMP.L (A7),D7
000234aa 6e 38 |n8 | BGT 0x234e4
000234ac 55 4f |UO | SUBQ.L #0x2,A7
000234ae 2f 12 |/ | MOVE.L (A2),-(A7)
000234b0 df 97 | | ADD.L D7,(A7)
000234b2 4e ba f0 c6 |N | JSR 0x2257a
000234b6 58 4f |XO | ADDQ.L #0x4,A7
000234b8 0c 87 00 00 1f ff | | CMPI.L #0x00001fff,D7
000234be 63 02 |c | BLS 0x234c2
000234c0 4e 4f |NO | TRAP #15
000234c2 20 07 | | MOVE.L D7,D0
000234c4 e3 80 | | ASL.L #0x1,D0
000234c6 41 f9 00 02 57 28 |A W( | LEA.L 0x25728,A0
000234cc 32 1f |2 | MOVE.W (A7)+,D1
000234ce b2 70 08 2a | p * | CMP.W (A0+D0.L+#0x2a),D1
000234d2 67 0c |g | BEQ 0x234e0
000234d4 20 13 | | MOVE.L (A3),D0
000234d6 5b 80 |[ | SUBQ.L #0x5,D0
000234d8 be 80 | | CMP.L D0,D7
000234da 67 04 |g | BEQ 0x234e0
000234dc 52 ae ff f8 |R | ADDQ.L #0x1,(A6-0x8)
000234e0 52 87 |R | ADDQ.L #0x1,D7
000234e2 68 c4 |h | BVC 0x234a8
000234e4 58 4f |XO | ADDQ.L #0x4,A7
000234e6 4a ae ff f8 |J | TST.L (A6-0x8)
000234ea 6f 00 01 38 |o 8 | BLE 0x23624
000234ee 7e 00 |~ | MOVEQ.L #0x00,D7
000234f0 2f 12 |/ | MOVE.L (A2),-(A7)
000234f2 df 97 | | ADD.L D7,(A7)
000234f4 0c 87 00 00 1f ff | | CMPI.L #0x00001fff,D7
000234fa 63 02 |c | BLS 0x234fe
000234fc 4e 4f |NO | TRAP #15
000234fe 20 07 | | MOVE.L D7,D0
00023500 e3 80 | | ASL.L #0x1,D0
00023502 41 f9 00 02 57 28 |A W( | LEA.L 0x25728,A0
00023508 3f 30 08 2a |?0 * | MOVE.W (A0+D0.L+#0x2a),-(A7)
0002350c 4e ba f1 10 |N | JSR 0x2261e
00023510 5c 4f |\O | ADDQ.L #0x6,A7
00023512 52 87 |R | ADDQ.L #0x1,D7
00023514 0c 87 00 00 1f ff | | CMPI.L #0x00001fff,D7
0002351a 6f d4 |o | BLE 0x234f0
0002351c 4a 2e ff fc |J. | TST.B (A6-0x4)
00023520 67 62 |gb | BEQ 0x23584
00023522 9e fc 00 0a | | SUBA.W #0xa,A7
00023526 20 4f | O | MOVEA.L A7,A0
00023528 43 fa d1 e8 |C | LEA.L 0x20712,A1
0002352c 70 08 |p | MOVEQ.L #0x08,D0
0002352e 10 d9 | | MOVE.B (A1)+,(A0)+
00023530 51 c8 ff fc |Q | DBF D0,0x2352e
00023534 41 fa d2 10 |A | LEA.L 0x20746,A0
00023538 70 14 |p | MOVEQ.L #0x14,D0
0002353a 3f 20 |? | MOVE.W -(A0),-(A7)
0002353c 51 c8 ff fc |Q | DBF D0,0x2353a
00023540 51 4f |QO | SUBQ.L #0x8,A7
00023542 48 6f 00 32 |Ho 2 | PEA.L (A7+0x32)
00023546 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
0002354a 3f 3c 00 09 |?< | MOVE.W #0x9,-(A7)
0002354e 4e 94 |N | JSR (A4)
00023550 2e ae ff f8 |. | MOVE.L (A6-0x8),(A7)
00023554 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String
0002355a 48 6f 00 10 |Ho | PEA.L (A7+0x10)
0002355e 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
00023562 3f 3c 00 2a |?< * | MOVE.W #0x2a,-(A7)
00023566 4e 94 |N | JSR (A4)
00023568 50 4f |PO | ADDQ.L #0x8,A7
0002356a 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String
00023570 de fc 00 0c | | ADDA.W #0xc,A7
00023574 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
0002357a de fc 00 38 | 8 | ADDA.W #0x38,A7
0002357e 52 ae ff f0 |R | ADDQ.L #0x1,(A6-0x10)
00023582 60 0c |` | BRA 0x23590
00023584 1f 3c 00 2e | < . | MOVE.B #0x2e,-(A7)
00023588 4e b9 00 01 03 d0 |N | JSR WriteConsoleChar(chr : char)
0002358e 54 4f |TO | ADDQ.L #0x2,A7
00023590 52 ae ff ec |R | ADDQ.L #0x1,(A6-0x14)
00023594 20 2e ff ec | . | MOVE.L (A6-0x14),D0
00023598 0c 80 00 00 00 14 | | CMPI.L #0x00000014,D0
0002359e 6c 04 |l | BGE 0x235a4
000235a0 60 00 fd e4 |` | BRA 0x23386
000235a4 9e fc 00 30 | 0 | SUBA.W #0x30,A7
000235a8 20 4f | O | MOVEA.L A7,A0
000235aa 43 fa d1 9a |C | LEA.L 0x20746,A1
000235ae 70 2e |p. | MOVEQ.L #0x2e,D0
000235b0 10 d9 | | MOVE.B (A1)+,(A0)+
000235b2 51 c8 ff fc |Q | DBF D0,0x235b0
000235b6 59 4f |YO | SUBQ.L #0x4,A7
000235b8 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000235bc 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
000235c0 3f 3c 00 2f |?< / | MOVE.W #0x2f,-(A7)
000235c4 4e 94 |N | JSR (A4)
000235c6 50 4f |PO | ADDQ.L #0x8,A7
000235c8 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
000235ce de fc 00 34 | 4 | ADDA.W #0x34,A7
000235d2 41 fa d1 e6 |A | LEA.L 0x207ba,A0
000235d6 70 10 |p | MOVEQ.L #0x10,D0
000235d8 2f 20 |/ | MOVE.L -(A0),-(A7)
000235da 51 c8 ff fc |Q | DBF D0,0x235d8
000235de 59 4f |YO | SUBQ.L #0x4,A7
000235e0 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000235e4 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
000235e8 3f 3c 00 44 |?< D | MOVE.W #0x44,-(A7)
000235ec 4e 94 |N | JSR (A4)
000235ee 50 4f |PO | ADDQ.L #0x8,A7
000235f0 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
000235f6 de fc 00 2e | . | ADDA.W #0x2e,A7
000235fa 20 4f | O | MOVEA.L A7,A0
000235fc 43 fa d1 bc |C | LEA.L 0x207ba,A1
00023600 70 18 |p | MOVEQ.L #0x18,D0
00023602 10 d9 | | MOVE.B (A1)+,(A0)+
00023604 51 c8 ff fc |Q | DBF D0,0x23602
00023608 59 4f |YO | SUBQ.L #0x4,A7
0002360a 48 6f 00 04 |Ho | PEA.L (A7+0x4)
0002360e 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
00023612 3f 3c 00 19 |?< | MOVE.W #0x19,-(A7)
00023616 4e 94 |N | JSR (A4)
00023618 50 4f |PO | ADDQ.L #0x8,A7
0002361a 4e ba dc ec |N | JSR 0x21308
0002361e de fc 00 1e | | ADDA.W #0x1e,A7
00023622 60 64 |`d | BRA 0x23688
00023624 9e fc 00 1c | | SUBA.W #0x1c,A7
00023628 20 4f | O | MOVEA.L A7,A0
0002362a 43 fa d1 a8 |C | LEA.L 0x207d4,A1
0002362e 70 1a |p | MOVEQ.L #0x1a,D0
00023630 10 d9 | | MOVE.B (A1)+,(A0)+
00023632 51 c8 ff fc |Q | DBF D0,0x23630
00023636 59 4f |YO | SUBQ.L #0x4,A7
00023638 48 6f 00 04 |Ho | PEA.L (A7+0x4)
0002363c 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
00023640 3f 3c 00 1b |?< | MOVE.W #0x1b,-(A7)
00023644 4e 94 |N | JSR (A4)
00023646 50 4f |PO | ADDQ.L #0x8,A7
00023648 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String)
0002364e de fc 00 20 | | ADDA.W #0x20,A7
00023652 4a ae ff f0 |J | TST.L (A6-0x10)
00023656 66 08 |f | BNE 0x23660
00023658 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void)
0002365e 60 28 |`( | BRA 0x23688
00023660 41 fa d1 b6 |A | LEA.L 0x20818,A0
00023664 70 09 |p | MOVEQ.L #0x09,D0
00023666 2f 20 |/ | MOVE.L -(A0),-(A7)
00023668 51 c8 ff fc |Q | DBF D0,0x23666
0002366c 59 4f |YO | SUBQ.L #0x4,A7
0002366e 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00023672 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
00023676 3f 3c 00 28 |?< ( | MOVE.W #0x28,-(A7)
0002367a 4e 94 |N | JSR (A4)
0002367c 50 4f |PO | ADDQ.L #0x8,A7
0002367e 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00023684 de fc 00 2c | , | ADDA.W #0x2c,A7
00023688 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
0002368c 4e 5e |N^ | UNLK A6
0002368e 4e 75 |Nu | RTS
00023690 ; --------------------------------------------------------------------------------------
00023690 ; OMSI PASCAL Function
00023690 ; <LVAR 0x008 1(r)>
00023690 ; --------------------------------------------------------------------------------------
00023690 4e 56 ff 8c |NV | LINK.W A6,#0xff8c
00023694 bf d5 | | CMPA.L (A5),A7
00023696 62 06 |b | BHI 0x2369e
00023698 44 fc 00 02 |D | MOVE.W #0x2,CCR
0002369c 4e 76 |Nv | TRAPV
0002369e de fc 00 6e | n | ADDA.W #0x6e,A7
000236a2 48 e7 c0 e0 |H | MOVEM.L A2+A1+A0+D1+D0,-(A7)
000236a6 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2
000236ac 72 01 |r | MOVEQ.L #0x01,D1
000236ae 55 4f |UO | SUBQ.L #0x2,A7
000236b0 4e b9 00 01 06 0a |N | JSR Is_machine_type_four() : Bool
000236b6 4a 1f |J | TST.B (A7)+
000236b8 66 0e |f | BNE 0x236c8
000236ba 55 4f |UO | SUBQ.L #0x2,A7
000236bc 4e b9 00 01 06 04 |N | JSR Is_machine_type_three() : Bool
000236c2 4a 1f |J | TST.B (A7)+
000236c4 67 00 00 a4 |g | BEQ 0x2376a
000236c8 4a 2e 00 08 |J. | TST.B (A6+0x8)
000236cc 67 28 |g( | BEQ 0x236f6
000236ce 41 fa d1 74 |A t | LEA.L 0x20844,A0
000236d2 70 0a |p | MOVEQ.L #0x0a,D0
000236d4 2f 20 |/ | MOVE.L -(A0),-(A7)
000236d6 51 c8 ff fc |Q | DBF D0,0x236d4
000236da 59 4f |YO | SUBQ.L #0x4,A7
000236dc 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000236e0 3f 01 |? | MOVE.W D1,-(A7)
000236e2 3f 3c 00 2c |?< , | MOVE.W #0x2c,-(A7)
000236e6 4e 92 |N | JSR (A2)
000236e8 50 4f |PO | ADDQ.L #0x8,A7
000236ea 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String)
000236f0 de fc 00 30 | 0 | ADDA.W #0x30,A7
000236f4 60 2c |`, | BRA 0x23722
000236f6 9e fc 00 4a | J | SUBA.W #0x4a,A7
000236fa 20 4f | O | MOVEA.L A7,A0
000236fc 43 fa d1 46 |C F | LEA.L 0x20844,A1
00023700 70 48 |pH | MOVEQ.L #0x48,D0
00023702 10 d9 | | MOVE.B (A1)+,(A0)+
00023704 51 c8 ff fc |Q | DBF D0,0x23702
00023708 59 4f |YO | SUBQ.L #0x4,A7
0002370a 48 6f 00 04 |Ho | PEA.L (A7+0x4)
0002370e 3f 01 |? | MOVE.W D1,-(A7)
00023710 3f 3c 00 49 |?< I | MOVE.W #0x49,-(A7)
00023714 4e 92 |N | JSR (A2)
00023716 50 4f |PO | ADDQ.L #0x8,A7
00023718 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String)
0002371e de fc 00 4e | N | ADDA.W #0x4e,A7
00023722 55 4f |UO | SUBQ.L #0x2,A7
00023724 4e b9 00 02 54 02 |N T | JSR 0x25402
0002372a 10 1f | | MOVE.B (A7)+,D0
0002372c b0 2e 00 08 | . | CMP.B (A6+0x8),D0
00023730 67 02 |g | BEQ 0x23734
00023732 60 ee |` | BRA 0x23722
00023734 5d 4f |]O | SUBQ.L #0x6,A7
00023736 20 4f | O | MOVEA.L A7,A0
00023738 43 fa d1 54 |C T | LEA.L 0x2088e,A1
0002373c 70 04 |p | MOVEQ.L #0x04,D0
0002373e 10 d9 | | MOVE.B (A1)+,(A0)+
00023740 51 c8 ff fc |Q | DBF D0,0x2373e
00023744 59 4f |YO | SUBQ.L #0x4,A7
00023746 48 6f 00 04 |Ho | PEA.L (A7+0x4)
0002374a 3f 01 |? | MOVE.W D1,-(A7)
0002374c 3f 3c 00 05 |?< | MOVE.W #0x5,-(A7)
00023750 4e 92 |N | JSR (A2)
00023752 50 4f |PO | ADDQ.L #0x8,A7
00023754 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
0002375a 5c 4f |\O | ADDQ.L #0x6,A7
0002375c 2e bc 00 00 98 96 |. | MOVE.L #0x9896,(A7)
00023762 4e b9 00 01 02 24 |N $ | JSR KC12_Sleep(dur: Long)
00023768 58 4f |XO | ADDQ.L #0x4,A7
0002376a 4c df 07 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2
0002376e 4e 5e |N^ | UNLK A6
00023770 4e 75 |Nu | RTS
00023772 ; --------------------------------------------------------------------------------------
00023772 ; OMSI PASCAL Function
00023772 ; <LVAR -0x008 @ 4(r)>
00023772 ; --------------------------------------------------------------------------------------
00023772 4e 56 ff 8a |NV | LINK.W A6,#0xff8a
00023776 bf d5 | | CMPA.L (A5),A7
00023778 62 06 |b | BHI 0x23780
0002377a 44 fc 00 02 |D | MOVE.W #0x2,CCR
0002377e 4e 76 |Nv | TRAPV
00023780 de fc 00 6e | n | ADDA.W #0x6e,A7
00023784 48 e7 f9 c0 |H | MOVEM.L A1+A0+D7+D4+D3+D2+D1+D0,-(A7)
00023788 72 0c |r | MOVEQ.L #0x0c,D1
0002378a 74 01 |t | MOVEQ.L #0x01,D2
0002378c 4e ba f1 ce |N | JSR 0x2295c
00023790 48 6e ff f8 |Hn | PEA.L (A6-0x8)
00023794 4e ba f2 cc |N | JSR 0x22a62
00023798 58 4f |XO | ADDQ.L #0x4,A7
0002379a 30 39 00 02 57 50 |09 WP | MOVE.W 0x25750,D0
000237a0 0c 40 00 50 | @ P | CMPI.W #0x0050,D0
000237a4 6c 1e |l | BGE 0x237c4
000237a6 28 2e ff f8 |(. | MOVE.L (A6-0x8),D4
000237aa 76 0c |v | MOVEQ.L #0x0c,D3
000237ac 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4
000237b2 26 3c 00 00 03 e8 |&< | MOVE.L #0x3e8,D3
000237b8 4e b9 00 01 02 94 |N | JSR ?divs_d3_d4
000237be 52 84 |R | ADDQ.L #0x1,D4
000237c0 2e 04 |. | MOVE.L D4,D7
000237c2 60 02 |` | BRA 0x237c6
000237c4 7e 06 |~ | MOVEQ.L #0x06,D7
000237c6 9e fc 00 26 | & | SUBA.W #0x26,A7
000237ca 20 4f | O | MOVEA.L A7,A0
000237cc 43 fa d0 c6 |C | LEA.L 0x20894,A1
000237d0 70 24 |p$ | MOVEQ.L #0x24,D0
000237d2 10 d9 | | MOVE.B (A1)+,(A0)+
000237d4 51 c8 ff fc |Q | DBF D0,0x237d2
000237d8 9e c1 | | SUBA.W D1,A7
000237da 20 4f | O | MOVEA.L A7,A0
000237dc 43 fa d0 dc |C | LEA.L 0x208ba,A1
000237e0 70 0a |p | MOVEQ.L #0x0a,D0
000237e2 10 d9 | | MOVE.B (A1)+,(A0)+
000237e4 51 c8 ff fc |Q | DBF D0,0x237e2
000237e8 51 4f |QO | SUBQ.L #0x8,A7
000237ea 48 6f 00 14 |Ho | PEA.L (A7+0x14)
000237ee 3f 02 |? | MOVE.W D2,-(A7)
000237f0 3f 3c 00 25 |?< % | MOVE.W #0x25,-(A7)
000237f4 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
000237fa 2e 87 |. | MOVE.L D7,(A7)
000237fc 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String
00023802 48 6f 00 10 |Ho | PEA.L (A7+0x10)
00023806 3f 02 |? | MOVE.W D2,-(A7)
00023808 3f 3c 00 0b |?< | MOVE.W #0xb,-(A7)
0002380c 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00023812 50 4f |PO | ADDQ.L #0x8,A7
00023814 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String
0002381a de c1 | | ADDA.W D1,A7
0002381c 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00023822 de fc 00 36 | 6 | ADDA.W #0x36,A7
00023826 4c df 03 9f |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D7+A0+A1
0002382a 4e 5e |N^ | UNLK A6
0002382c 4e 75 |Nu | RTS
0002382e ; --------------------------------------------------------------------------------------
0002382e ; OMSI PASCAL Function
0002382e ; --------------------------------------------------------------------------------------
0002382e 4e 56 ff ea |NV | LINK.W A6,#0xffea
00023832 bf d5 | | CMPA.L (A5),A7
00023834 62 06 |b | BHI 0x2383c
00023836 44 fc 00 02 |D | MOVE.W #0x2,CCR
0002383a 4e 76 |Nv | TRAPV
0002383c de fc 00 16 | | ADDA.W #0x16,A7
00023840 48 e7 c0 00 |H | MOVEM.L D1+D0,-(A7)
00023844 72 01 |r | MOVEQ.L #0x01,D1
00023846 48 78 00 01 |Hx | PEA.L 0x1
0002384a 48 78 00 00 |Hx | PEA.L 0x0
0002384e 1f 01 | | MOVE.B D1,-(A7)
00023850 4e ba ea fa |N | JSR 0x2234c
00023854 de fc 00 0a | | ADDA.W #0xa,A7
00023858 4e ba ff 18 |N | JSR 0x23772
0002385c 42 27 |B' | CLR.B -(A7)
0002385e 4e ba fe 30 |N 0 | JSR 0x23690
00023862 54 4f |TO | ADDQ.L #0x2,A7
00023864 42 39 00 02 57 36 |B9 W6 | CLR.B 0x25736
0002386a 42 79 00 02 97 62 |By b | CLR.W 0x29762
00023870 30 39 00 02 57 50 |09 WP | MOVE.W 0x25750,D0
00023876 0c 40 00 50 | @ P | CMPI.W #0x0050,D0
0002387a 6c 06 |l | BGE 0x23882
0002387c 4e ba f6 4e |N N | JSR 0x22ecc
00023880 60 04 |` | BRA 0x23886
00023882 4e ba f8 7c |N | | JSR 0x23100
00023886 1f 01 | | MOVE.B D1,-(A7)
00023888 4e ba fe 06 |N | JSR 0x23690
0002388c 54 4f |TO | ADDQ.L #0x2,A7
0002388e 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void)
00023894 4c df 00 03 |L | MOVEM.L (A7)+,D0+D1
00023898 4e 5e |N^ | UNLK A6
0002389a 4e 75 |Nu | RTS
0002389c ; --------------------------------------------------------------------------------------
0002389c ; OMSI PASCAL Function
0002389c ; <LVAR 0x00a @ 4(r)>
0002389c ; <LVAR 0x008 2(r)>
0002389c ; --------------------------------------------------------------------------------------
0002389c 4e 56 ff c2 |NV | LINK.W A6,#0xffc2 ; Spelunked
000238a0 bf d5 | | CMPA.L (A5),A7
000238a2 62 06 |b | BHI 0x238aa
000238a4 44 fc 00 02 |D | MOVE.W #0x2,CCR
000238a8 4e 76 |Nv | TRAPV
000238aa de fc 00 3c | < | ADDA.W #0x3c,A7
000238ae 48 e7 e0 e0 |H | MOVEM.L A2+A1+A0+D2+D1+D0,-(A7)
000238b2 45 ee 00 0a |E | LEA.L (A6+0xa),A2
000238b6 72 10 |r | MOVEQ.L #0x10,D1
000238b8 74 01 |t | MOVEQ.L #0x01,D2
000238ba 9e c1 | | SUBA.W D1,A7
000238bc 20 4f | O | MOVEA.L A7,A0
000238be 43 fa d0 06 |C | LEA.L 0x208c6,A1
000238c2 70 0e |p | MOVEQ.L #0x0e,D0
000238c4 10 d9 | | MOVE.B (A1)+,(A0)+
000238c6 51 c8 ff fc |Q | DBF D0,0x238c4
000238ca 51 4f |QO | SUBQ.L #0x8,A7
000238cc 48 6f 00 08 |Ho | PEA.L (A7+0x8)
000238d0 3f 02 |? | MOVE.W D2,-(A7)
000238d2 3f 3c 00 0f |?< | MOVE.W #0xf,-(A7)
000238d6 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
000238dc 2e 92 |. | MOVE.L (A2),(A7)
000238de 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String
000238e4 58 4f |XO | ADDQ.L #0x4,A7
000238e6 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
000238ec 50 4f |PO | ADDQ.L #0x8,A7
000238ee 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String)
000238f4 de c1 | | ADDA.W D1,A7
000238f6 2e 92 |. | MOVE.L (A2),(A7)
000238f8 30 2e 00 08 |0. | MOVE.W (A6+0x8),D0
000238fc 48 c0 |H | EXTW.L D0
000238fe 2f 00 |/ | MOVE.L D0,-(A7)
00023900 1f 02 | | MOVE.B D2,-(A7)
00023902 4e ba ea 48 |N H | JSR 0x2234c
00023906 de fc 00 0a | | ADDA.W #0xa,A7
0002390a 48 52 |HR | PEA.L (A2)
0002390c 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String)
00023912 58 4f |XO | ADDQ.L #0x4,A7
00023914 4c df 07 07 |L | MOVEM.L (A7)+,D0+D1+D2+A0+A1+A2
00023918 4e 5e |N^ | UNLK A6
0002391a 4e 75 |Nu | RTS
0002391c ; --------------------------------------------------------------------------------------
0002391c ; OMSI PASCAL Function
0002391c ; <LVAR 0x00a @ 4(r)>
0002391c ; <LVAR 0x008 2(r)>
0002391c ; --------------------------------------------------------------------------------------
0002391c 4e 56 ff bc |NV | LINK.W A6,#0xffbc ; Spelunked
00023920 bf d5 | | CMPA.L (A5),A7
00023922 62 06 |b | BHI 0x2392a
00023924 44 fc 00 02 |D | MOVE.W #0x2,CCR
00023928 4e 76 |Nv | TRAPV
0002392a de fc 00 42 | B | ADDA.W #0x42,A7
0002392e 48 e7 f0 e0 |H | MOVEM.L A2+A1+A0+D3+D2+D1+D0,-(A7)
00023932 45 ee 00 0a |E | LEA.L (A6+0xa),A2
00023936 72 01 |r | MOVEQ.L #0x01,D1
00023938 74 0e |t | MOVEQ.L #0x0e,D2
0002393a 76 14 |v | MOVEQ.L #0x14,D3
0002393c 9e c2 | | SUBA.W D2,A7
0002393e 20 4f | O | MOVEA.L A7,A0
00023940 43 fa cf 94 |C | LEA.L 0x208d6,A1
00023944 70 0c |p | MOVEQ.L #0x0c,D0
00023946 10 d9 | | MOVE.B (A1)+,(A0)+
00023948 51 c8 ff fc |Q | DBF D0,0x23946
0002394c 51 4f |QO | SUBQ.L #0x8,A7
0002394e 48 6f 00 08 |Ho | PEA.L (A7+0x8)
00023952 3f 01 |? | MOVE.W D1,-(A7)
00023954 3f 3c 00 0d |?< | MOVE.W #0xd,-(A7)
00023958 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
0002395e 2e 92 |. | MOVE.L (A2),(A7)
00023960 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String
00023966 58 4f |XO | ADDQ.L #0x4,A7
00023968 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
0002396e 50 4f |PO | ADDQ.L #0x8,A7
00023970 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String)
00023976 de c2 | | ADDA.W D2,A7
00023978 2e 92 |. | MOVE.L (A2),(A7)
0002397a 30 2e 00 08 |0. | MOVE.W (A6+0x8),D0
0002397e 48 c0 |H | EXTW.L D0
00023980 2f 00 |/ | MOVE.L D0,-(A7)
00023982 1f 01 | | MOVE.B D1,-(A7)
00023984 4e ba e9 c6 |N | JSR 0x2234c
00023988 de fc 00 0a | | ADDA.W #0xa,A7
0002398c 4e ba fd e4 |N | JSR 0x23772
00023990 9e c3 | | SUBA.W D3,A7
00023992 20 4f | O | MOVEA.L A7,A0
00023994 43 fa cf 4e |C N | LEA.L 0x208e4,A1
00023998 70 12 |p | MOVEQ.L #0x12,D0
0002399a 10 d9 | | MOVE.B (A1)+,(A0)+
0002399c 51 c8 ff fc |Q | DBF D0,0x2399a
000239a0 5d 4f |]O | SUBQ.L #0x6,A7
000239a2 48 6f 00 06 |Ho | PEA.L (A7+0x6)
000239a6 3f 01 |? | MOVE.W D1,-(A7)
000239a8 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7)
000239ac 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
000239b2 5c 4f |\O | ADDQ.L #0x6,A7
000239b4 1e 81 | | MOVE.B D1,(A7)
000239b6 4e b9 00 01 03 f0 |N | JSR AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
000239bc 5c 4f |\O | ADDQ.L #0x6,A7
000239be 4a 1f |J | TST.B (A7)+
000239c0 67 0a |g | BEQ 0x239cc
000239c2 42 39 00 02 57 36 |B9 W6 | CLR.B 0x25736
000239c8 4e ba f5 02 |N | JSR 0x22ecc
000239cc de c3 | | ADDA.W D3,A7
000239ce 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void)
000239d4 48 52 |HR | PEA.L (A2)
000239d6 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String)
000239dc 58 4f |XO | ADDQ.L #0x4,A7
000239de 4c df 07 0f |L | MOVEM.L (A7)+,D0+D1+D2+D3+A0+A1+A2
000239e2 4e 5e |N^ | UNLK A6
000239e4 4e 75 |Nu | RTS
000239e6 ; --------------------------------------------------------------------------------------
000239e6 ; OMSI PASCAL Function
000239e6 ; --------------------------------------------------------------------------------------
000239e6 4e 56 ff ae |NV | LINK.W A6,#0xffae
000239ea bf d5 | | CMPA.L (A5),A7
000239ec 62 06 |b | BHI 0x239f4
000239ee 44 fc 00 02 |D | MOVE.W #0x2,CCR
000239f2 4e 76 |Nv | TRAPV
000239f4 de fc 00 52 | R | ADDA.W #0x52,A7
000239f8 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
000239fc 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2
00023a02 47 fa fe 98 |G | LEA.L 0x2389c,A3
00023a06 49 fa ff 14 |I | LEA.L 0x2391c,A4
00023a0a 72 01 |r | MOVEQ.L #0x01,D1
00023a0c 74 0c |t | MOVEQ.L #0x0c,D2
00023a0e 76 21 |v! | MOVEQ.L #0x21,D3
00023a10 78 0e |x | MOVEQ.L #0x0e,D4
00023a12 7a 08 |z | MOVEQ.L #0x08,D5
00023a14 7c 19 || | MOVEQ.L #0x19,D6
00023a16 7e 0d |~ | MOVEQ.L #0x0d,D7
00023a18 2f 3a ce e6 |/: | MOVE.L 0x20900,-(A7)
00023a1c 2f 3a ce de |/: | MOVE.L 0x208fc,-(A7)
00023a20 2f 3a ce d6 |/: | MOVE.L 0x208f8,-(A7)
00023a24 59 4f |YO | SUBQ.L #0x4,A7
00023a26 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00023a2a 3f 01 |? | MOVE.W D1,-(A7)
00023a2c 3f 02 |? | MOVE.W D2,-(A7)
00023a2e 4e 92 |N | JSR (A2)
00023a30 5c 4f |\O | ADDQ.L #0x6,A7
00023a32 3e 83 |> | MOVE.W D3,(A7)
00023a34 4e 93 |N | JSR (A3)
00023a36 de c4 | | ADDA.W D4,A7
00023a38 2e ba ce ce |. | MOVE.L 0x20908,(A7)
00023a3c 2f 3a ce c6 |/: | MOVE.L 0x20904,-(A7)
00023a40 59 4f |YO | SUBQ.L #0x4,A7
00023a42 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00023a46 3f 01 |? | MOVE.W D1,-(A7)
00023a48 3f 05 |? | MOVE.W D5,-(A7)
00023a4a 4e 92 |N | JSR (A2)
00023a4c 5c 4f |\O | ADDQ.L #0x6,A7
00023a4e 3e 86 |> | MOVE.W D6,(A7)
00023a50 4e 93 |N | JSR (A3)
00023a52 20 4f | O | MOVEA.L A7,A0
00023a54 43 fa ce b6 |C | LEA.L 0x2090c,A1
00023a58 70 0c |p | MOVEQ.L #0x0c,D0
00023a5a 10 d9 | | MOVE.B (A1)+,(A0)+
00023a5c 51 c8 ff fc |Q | DBF D0,0x23a5a
00023a60 59 4f |YO | SUBQ.L #0x4,A7
00023a62 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00023a66 3f 01 |? | MOVE.W D1,-(A7)
00023a68 3f 07 |? | MOVE.W D7,-(A7)
00023a6a 4e 92 |N | JSR (A2)
00023a6c 5c 4f |\O | ADDQ.L #0x6,A7
00023a6e 3e bc 00 17 |> | MOVE.W #0x17,(A7)
00023a72 4e 93 |N | JSR (A3)
00023a74 50 4f |PO | ADDQ.L #0x8,A7
00023a76 20 4f | O | MOVEA.L A7,A0
00023a78 43 fa ce a0 |C | LEA.L 0x2091a,A1
00023a7c 70 0a |p | MOVEQ.L #0x0a,D0
00023a7e 10 d9 | | MOVE.B (A1)+,(A0)+
00023a80 51 c8 ff fc |Q | DBF D0,0x23a7e
00023a84 59 4f |YO | SUBQ.L #0x4,A7
00023a86 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00023a8a 3f 01 |? | MOVE.W D1,-(A7)
00023a8c 3f 3c 00 0b |?< | MOVE.W #0xb,-(A7)
00023a90 4e 92 |N | JSR (A2)
00023a92 5c 4f |\O | ADDQ.L #0x6,A7
00023a94 3e bc 00 15 |> | MOVE.W #0x15,(A7)
00023a98 4e 93 |N | JSR (A3)
00023a9a de fc 00 12 | | ADDA.W #0x12,A7
00023a9e 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void)
00023aa4 42 27 |B' | CLR.B -(A7)
00023aa6 4e ba fb e8 |N | JSR 0x23690
00023aaa 54 4f |TO | ADDQ.L #0x2,A7
00023aac 2f 3a ce 80 |/: | MOVE.L 0x2092e,-(A7)
00023ab0 2f 3a ce 78 |/: x | MOVE.L 0x2092a,-(A7)
00023ab4 2f 3a ce 70 |/: p | MOVE.L 0x20926,-(A7)
00023ab8 59 4f |YO | SUBQ.L #0x4,A7
00023aba 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00023abe 3f 01 |? | MOVE.W D1,-(A7)
00023ac0 3f 02 |? | MOVE.W D2,-(A7)
00023ac2 4e 92 |N | JSR (A2)
00023ac4 5c 4f |\O | ADDQ.L #0x6,A7
00023ac6 3e 83 |> | MOVE.W D3,(A7)
00023ac8 4e 94 |N | JSR (A4)
00023aca de c4 | | ADDA.W D4,A7
00023acc 2e ba ce 68 |. h | MOVE.L 0x20936,(A7)
00023ad0 2f 3a ce 60 |/: ` | MOVE.L 0x20932,-(A7)
00023ad4 59 4f |YO | SUBQ.L #0x4,A7
00023ad6 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00023ada 3f 01 |? | MOVE.W D1,-(A7)
00023adc 3f 05 |? | MOVE.W D5,-(A7)
00023ade 4e 92 |N | JSR (A2)
00023ae0 5c 4f |\O | ADDQ.L #0x6,A7
00023ae2 3e 86 |> | MOVE.W D6,(A7)
00023ae4 4e 94 |N | JSR (A4)
00023ae6 20 4f | O | MOVEA.L A7,A0
00023ae8 43 fa ce 50 |C P | LEA.L 0x2093a,A1
00023aec 70 0c |p | MOVEQ.L #0x0c,D0
00023aee 10 d9 | | MOVE.B (A1)+,(A0)+
00023af0 51 c8 ff fc |Q | DBF D0,0x23aee
00023af4 59 4f |YO | SUBQ.L #0x4,A7
00023af6 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00023afa 3f 01 |? | MOVE.W D1,-(A7)
00023afc 3f 07 |? | MOVE.W D7,-(A7)
00023afe 4e 92 |N | JSR (A2)
00023b00 5c 4f |\O | ADDQ.L #0x6,A7
00023b02 3e bc 00 17 |> | MOVE.W #0x17,(A7)
00023b06 4e 94 |N | JSR (A4)
00023b08 50 4f |PO | ADDQ.L #0x8,A7
00023b0a 20 4f | O | MOVEA.L A7,A0
00023b0c 43 fa ce 3a |C : | LEA.L 0x20948,A1
00023b10 70 0a |p | MOVEQ.L #0x0a,D0
00023b12 10 d9 | | MOVE.B (A1)+,(A0)+
00023b14 51 c8 ff fc |Q | DBF D0,0x23b12
00023b18 59 4f |YO | SUBQ.L #0x4,A7
00023b1a 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00023b1e 3f 01 |? | MOVE.W D1,-(A7)
00023b20 3f 3c 00 0b |?< | MOVE.W #0xb,-(A7)
00023b24 4e 92 |N | JSR (A2)
00023b26 5c 4f |\O | ADDQ.L #0x6,A7
00023b28 3e bc 00 15 |> | MOVE.W #0x15,(A7)
00023b2c 4e 94 |N | JSR (A4)
00023b2e de fc 00 10 | | ADDA.W #0x10,A7
00023b32 1e 81 | | MOVE.B D1,(A7)
00023b34 4e ba fb 5a |N Z | JSR 0x23690
00023b38 54 4f |TO | ADDQ.L #0x2,A7
00023b3a 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void)
00023b40 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00023b44 4e 5e |N^ | UNLK A6
00023b46 4e 75 |Nu | RTS
00023b48 ; --------------------------------------------------------------------------------------
00023b48 ; OMSI PASCAL Function
00023b48 ; <LVAR 0x008 2(r)>
00023b48 ; <LVAR -0x006 @>
00023b48 ; <LVAR -0x00a @ 4(r)>
00023b48 ; --------------------------------------------------------------------------------------
00023b48 4e 56 ff b8 |NV | LINK.W A6,#0xffb8 ; Spelunked
00023b4c bf d5 | | CMPA.L (A5),A7
00023b4e 62 06 |b | BHI 0x23b56
00023b50 44 fc 00 02 |D | MOVE.W #0x2,CCR
00023b54 4e 76 |Nv | TRAPV
00023b56 de fc 00 3e | > | ADDA.W #0x3e,A7
00023b5a 48 e7 e0 e0 |H | MOVEM.L A2+A1+A0+D2+D1+D0,-(A7)
00023b5e 45 ee 00 08 |E | LEA.L (A6+0x8),A2
00023b62 72 01 |r | MOVEQ.L #0x01,D1
00023b64 74 14 |t | MOVEQ.L #0x14,D2
00023b66 3f 12 |? | MOVE.W (A2),-(A7)
00023b68 48 6e ff fa |Hn | PEA.L (A6-0x6)
00023b6c 48 6e ff f6 |Hn | PEA.L (A6-0xa)
00023b70 4e ba d9 8c |N | JSR 0x214fe
00023b74 5c 4f |\O | ADDQ.L #0x6,A7
00023b76 2e ba cd e0 |. | MOVE.L 0x20958,(A7)
00023b7a 2f 3a cd d8 |/: | MOVE.L 0x20954,-(A7)
00023b7e 59 4f |YO | SUBQ.L #0x4,A7
00023b80 2f 2e ff f6 |/. | MOVE.L (A6-0xa),-(A7)
00023b84 59 4f |YO | SUBQ.L #0x4,A7
00023b86 48 6f 00 0c |Ho | PEA.L (A7+0xc)
00023b8a 3f 01 |? | MOVE.W D1,-(A7)
00023b8c 3f 3c 00 08 |?< | MOVE.W #0x8,-(A7)
00023b90 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00023b96 50 4f |PO | ADDQ.L #0x8,A7
00023b98 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00023b9e 50 4f |PO | ADDQ.L #0x8,A7
00023ba0 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String)
00023ba6 50 4f |PO | ADDQ.L #0x8,A7
00023ba8 2e 94 |. | MOVE.L (A4),(A7)
00023baa 30 12 |0 | MOVE.W (A2),D0
00023bac 48 c0 |H | EXTW.L D0
00023bae 2f 00 |/ | MOVE.L D0,-(A7)
00023bb0 1f 01 | | MOVE.B D1,-(A7)
00023bb2 4e ba e7 98 |N | JSR 0x2234c
00023bb6 de fc 00 0a | | ADDA.W #0xa,A7
00023bba 4e ba fb b6 |N | JSR 0x23772
00023bbe 9e c2 | | SUBA.W D2,A7
00023bc0 20 4f | O | MOVEA.L A7,A0
00023bc2 43 fa cd 98 |C | LEA.L 0x2095c,A1
00023bc6 70 12 |p | MOVEQ.L #0x12,D0
00023bc8 10 d9 | | MOVE.B (A1)+,(A0)+
00023bca 51 c8 ff fc |Q | DBF D0,0x23bc8
00023bce 5d 4f |]O | SUBQ.L #0x6,A7
00023bd0 48 6f 00 06 |Ho | PEA.L (A7+0x6)
00023bd4 3f 01 |? | MOVE.W D1,-(A7)
00023bd6 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7)
00023bda 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00023be0 5c 4f |\O | ADDQ.L #0x6,A7
00023be2 1e 81 | | MOVE.B D1,(A7)
00023be4 4e b9 00 01 03 f0 |N | JSR AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
00023bea 5c 4f |\O | ADDQ.L #0x6,A7
00023bec 4a 1f |J | TST.B (A7)+
00023bee 67 1e |g | BEQ 0x23c0e
00023bf0 42 39 00 02 57 36 |B9 W6 | CLR.B 0x25736
00023bf6 42 79 00 02 97 62 |By b | CLR.W 0x29762
00023bfc 30 12 |0 | MOVE.W (A2),D0
00023bfe 0c 40 00 50 | @ P | CMPI.W #0x0050,D0
00023c02 6c 06 |l | BGE 0x23c0a
00023c04 4e ba f2 c6 |N | JSR 0x22ecc
00023c08 60 04 |` | BRA 0x23c0e
00023c0a 4e ba f4 f4 |N | JSR 0x23100
00023c0e de c2 | | ADDA.W D2,A7
00023c10 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void)
00023c16 4c df 07 07 |L | MOVEM.L (A7)+,D0+D1+D2+A0+A1+A2
00023c1a 4e 5e |N^ | UNLK A6
00023c1c 4e 75 |Nu | RTS
00023c1e ; --------------------------------------------------------------------------------------
00023c1e ; OMSI PASCAL Function
00023c1e ; <LVAR 0x008 1(r)>
00023c1e ; <LVAR -0x006 @ 4(rw)>
00023c1e ; <LVAR -0x00a @ 4(rw)>
00023c1e ; --------------------------------------------------------------------------------------
00023c1e 4e 56 ff 98 |NV | LINK.W A6,#0xff98
00023c22 bf d5 | | CMPA.L (A5),A7
00023c24 62 06 |b | BHI 0x23c2c
00023c26 44 fc 00 02 |D | MOVE.W #0x2,CCR
00023c2a 4e 76 |Nv | TRAPV
00023c2c de fc 00 5e | ^ | ADDA.W #0x5e,A7
00023c30 48 e7 f0 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D3+D2+D1+D0,-(A7)
00023c34 45 ee ff f6 |E | LEA.L (A6-0xa),A2
00023c38 47 fa ff 0e |G | LEA.L 0x23b48,A3
00023c3c 72 01 |r | MOVEQ.L #0x01,D1
00023c3e 74 0c |t | MOVEQ.L #0x0c,D2
00023c40 76 15 |v | MOVEQ.L #0x15,D3
00023c42 4a 2e 00 08 |J. | TST.B (A6+0x8)
00023c46 67 08 |g | BEQ 0x23c50
00023c48 24 b9 00 02 97 58 |$ X | MOVE.L 0x29758,(A2)
00023c4e 60 06 |` | BRA 0x23c56
00023c50 24 b9 00 02 97 54 |$ T | MOVE.L 0x29754,(A2)
00023c56 9e fc 00 16 | | SUBA.W #0x16,A7
00023c5a 20 4f | O | MOVEA.L A7,A0
00023c5c 43 fa cd 12 |C | LEA.L 0x20970,A1
00023c60 70 14 |p | MOVEQ.L #0x14,D0
00023c62 10 d9 | | MOVE.B (A1)+,(A0)+
00023c64 51 c8 ff fc |Q | DBF D0,0x23c62
00023c68 2f 3a cd 1c |/: | MOVE.L 0x20986,-(A7)
00023c6c 9e c2 | | SUBA.W D2,A7
00023c6e 48 6f 00 10 |Ho | PEA.L (A7+0x10)
00023c72 3f 01 |? | MOVE.W D1,-(A7)
00023c74 3f 03 |? | MOVE.W D3,-(A7)
00023c76 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00023c7c 2e 92 |. | MOVE.L (A2),(A7)
00023c7e 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String
00023c84 48 6f 00 14 |Ho | PEA.L (A7+0x14)
00023c88 3f 01 |? | MOVE.W D1,-(A7)
00023c8a 3f 3c 00 04 |?< | MOVE.W #0x4,-(A7)
00023c8e 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00023c94 50 4f |PO | ADDQ.L #0x8,A7
00023c96 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String
00023c9c de c2 | | ADDA.W D2,A7
00023c9e 4e b9 00 01 03 e4 |N | JSR AskConsoleString(prompt : String) : String
00023ca4 58 4f |XO | ADDQ.L #0x4,A7
00023ca6 2d 5f ff fa |-_ | MOVE.L (A7)+,(A6-0x6)
00023caa de fc 00 1a | | ADDA.W #0x1a,A7
00023cae 20 6e ff fa | n | MOVEA.L (A6-0x6),A0
00023cb2 30 10 |0 | MOVE.W (A0),D0
00023cb4 b0 41 | A | CMP.W D1,D0
00023cb6 6f 06 |o | BLE 0x23cbe
00023cb8 24 ae ff fa |$ | MOVE.L (A6-0x6),(A2)
00023cbc 60 0c |` | BRA 0x23cca
00023cbe 48 6e ff fa |Hn | PEA.L (A6-0x6)
00023cc2 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String)
00023cc8 58 4f |XO | ADDQ.L #0x4,A7
00023cca 42 27 |B' | CLR.B -(A7)
00023ccc 4e ba f9 c2 |N | JSR 0x23690
00023cd0 54 4f |TO | ADDQ.L #0x2,A7
00023cd2 4a 2e 00 08 |J. | TST.B (A6+0x8)
00023cd6 67 1e |g | BEQ 0x23cf6
00023cd8 3f 3c 00 50 |?< P | MOVE.W #0x50,-(A7)
00023cdc 28 4a |(J | MOVEA.L A2,A4
00023cde 4e 93 |N | JSR (A3)
00023ce0 3e bc 00 51 |> Q | MOVE.W #0x51,(A7)
00023ce4 28 4a |(J | MOVEA.L A2,A4
00023ce6 4e 93 |N | JSR (A3)
00023ce8 3e bc 00 52 |> R | MOVE.W #0x52,(A7)
00023cec 28 4a |(J | MOVEA.L A2,A4
00023cee 4e 93 |N | JSR (A3)
00023cf0 3e bc 00 53 |> S | MOVE.W #0x53,(A7)
00023cf4 60 1a |` | BRA 0x23d10
00023cf6 3f 3c 00 21 |?< ! | MOVE.W #0x21,-(A7)
00023cfa 28 4a |(J | MOVEA.L A2,A4
00023cfc 4e 93 |N | JSR (A3)
00023cfe 3e bc 00 19 |> | MOVE.W #0x19,(A7)
00023d02 28 4a |(J | MOVEA.L A2,A4
00023d04 4e 93 |N | JSR (A3)
00023d06 3e bc 00 17 |> | MOVE.W #0x17,(A7)
00023d0a 28 4a |(J | MOVEA.L A2,A4
00023d0c 4e 93 |N | JSR (A3)
00023d0e 3e 83 |> | MOVE.W D3,(A7)
00023d10 28 4a |(J | MOVEA.L A2,A4
00023d12 4e 93 |N | JSR (A3)
00023d14 54 4f |TO | ADDQ.L #0x2,A7
00023d16 1f 01 | | MOVE.B D1,-(A7)
00023d18 4e ba f9 76 |N v | JSR 0x23690
00023d1c 54 4f |TO | ADDQ.L #0x2,A7
00023d1e 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void)
00023d24 4c df 1f 0f |L | MOVEM.L (A7)+,D0+D1+D2+D3+A0+A1+A2+A3+A4
00023d28 4e 5e |N^ | UNLK A6
00023d2a 4e 75 |Nu | RTS
00023d2c ; --------------------------------------------------------------------------------------
00023d2c ; OMSI PASCAL Function
00023d2c ; <LVAR 0x008 4(w)>
00023d2c ; --------------------------------------------------------------------------------------
00023d2c 4e 56 ff e0 |NV | LINK.W A6,#0xffe0
00023d30 bf d5 | | CMPA.L (A5),A7
00023d32 62 06 |b | BHI 0x23d3a
00023d34 44 fc 00 02 |D | MOVE.W #0x2,CCR
00023d38 4e 76 |Nv | TRAPV
00023d3a de fc 00 20 | | ADDA.W #0x20,A7
00023d3e 48 e7 f0 e0 |H | MOVEM.L A2+A1+A0+D3+D2+D1+D0,-(A7)
00023d42 43 f9 00 02 57 4c |C WL | LEA.L 0x2574c,A1
00023d48 45 f9 00 02 57 28 |E W( | LEA.L 0x25728,A2
00023d4e 26 3c 00 00 1f ff |&< | MOVE.L #0x1fff,D3
00023d54 20 11 | | MOVE.L (A1),D0
00023d56 59 80 |Y | SUBQ.L #0x4,D0
00023d58 b0 83 | | CMP.L D3,D0
00023d5a 63 02 |c | BLS 0x23d5e
00023d5c 4e 4f |NO | TRAP #15
00023d5e e3 80 | | ASL.L #0x1,D0
00023d60 20 4a | J | MOVEA.L A2,A0
00023d62 32 30 08 2a |20 * | MOVE.W (A0+D0.L+#0x2a),D1
00023d66 48 c1 |H | EXTW.L D1
00023d68 e1 81 | | ASL.L #0x8,D1
00023d6a e1 81 | | ASL.L #0x8,D1
00023d6c 20 11 | | MOVE.L (A1),D0
00023d6e 57 80 |W | SUBQ.L #0x3,D0
00023d70 b0 83 | | CMP.L D3,D0
00023d72 63 02 |c | BLS 0x23d76
00023d74 4e 4f |NO | TRAP #15
00023d76 e3 80 | | ASL.L #0x1,D0
00023d78 20 4a | J | MOVEA.L A2,A0
00023d7a 30 30 08 2a |00 * | MOVE.W (A0+D0.L+#0x2a),D0
00023d7e e1 40 | @ | ASL.W #0x8,D0
00023d80 48 c0 |H | EXTW.L D0
00023d82 d0 81 | | ADD.L D1,D0
00023d84 22 11 |" | MOVE.L (A1),D1
00023d86 55 81 |U | SUBQ.L #0x2,D1
00023d88 b2 83 | | CMP.L D3,D1
00023d8a 63 02 |c | BLS 0x23d8e
00023d8c 4e 4f |NO | TRAP #15
00023d8e e3 81 | | ASL.L #0x1,D1
00023d90 20 4a | J | MOVEA.L A2,A0
00023d92 34 30 18 2a |40 * | MOVE.W (A0+D1.L+#0x2a),D2
00023d96 48 c2 |H | EXTW.L D2
00023d98 d4 80 | | ADD.L D0,D2
00023d9a 2d 42 00 08 |-B | MOVE.L D2,(A6+0x8)
00023d9e 4c df 07 0f |L | MOVEM.L (A7)+,D0+D1+D2+D3+A0+A1+A2
00023da2 4e 5e |N^ | UNLK A6
00023da4 4e 75 |Nu | RTS
00023da6 ; --------------------------------------------------------------------------------------
00023da6 ; OMSI PASCAL Function
00023da6 ; <LVAR 0x008 4(w)>
00023da6 ; --------------------------------------------------------------------------------------
00023da6 4e 56 ff e2 |NV | LINK.W A6,#0xffe2
00023daa bf d5 | | CMPA.L (A5),A7
00023dac 62 06 |b | BHI 0x23db4
00023dae 44 fc 00 02 |D | MOVE.W #0x2,CCR
00023db2 4e 76 |Nv | TRAPV
00023db4 de fc 00 1e | | ADDA.W #0x1e,A7
00023db8 48 e7 c0 e0 |H | MOVEM.L A2+A1+A0+D1+D0,-(A7)
00023dbc 41 f9 00 02 57 48 |A WH | LEA.L 0x25748,A0
00023dc2 43 f9 00 02 57 4c |C WL | LEA.L 0x2574c,A1
00023dc8 45 fa e7 b0 |E | LEA.L 0x2257a,A2
00023dcc 55 4f |UO | SUBQ.L #0x2,A7
00023dce 20 10 | | MOVE.L (A0),D0
00023dd0 d0 91 | | ADD.L (A1),D0
00023dd2 59 80 |Y | SUBQ.L #0x4,D0
00023dd4 2f 00 |/ | MOVE.L D0,-(A7)
00023dd6 4e 92 |N | JSR (A2)
00023dd8 58 4f |XO | ADDQ.L #0x4,A7
00023dda 30 1f |0 | MOVE.W (A7)+,D0
00023ddc 48 c0 |H | EXTW.L D0
00023dde e1 80 | | ASL.L #0x8,D0
00023de0 e1 80 | | ASL.L #0x8,D0
00023de2 55 4f |UO | SUBQ.L #0x2,A7
00023de4 22 10 |" | MOVE.L (A0),D1
00023de6 d2 91 | | ADD.L (A1),D1
00023de8 57 81 |W | SUBQ.L #0x3,D1
00023dea 2f 01 |/ | MOVE.L D1,-(A7)
00023dec 4e 92 |N | JSR (A2)
00023dee 58 4f |XO | ADDQ.L #0x4,A7
00023df0 32 1f |2 | MOVE.W (A7)+,D1
00023df2 e1 41 | A | ASL.W #0x8,D1
00023df4 48 c1 |H | EXTW.L D1
00023df6 d2 80 | | ADD.L D0,D1
00023df8 55 4f |UO | SUBQ.L #0x2,A7
00023dfa 20 10 | | MOVE.L (A0),D0
00023dfc d0 91 | | ADD.L (A1),D0
00023dfe 55 80 |U | SUBQ.L #0x2,D0
00023e00 2f 00 |/ | MOVE.L D0,-(A7)
00023e02 4e 92 |N | JSR (A2)
00023e04 58 4f |XO | ADDQ.L #0x4,A7
00023e06 30 1f |0 | MOVE.W (A7)+,D0
00023e08 48 c0 |H | EXTW.L D0
00023e0a d0 81 | | ADD.L D1,D0
00023e0c 2d 40 00 08 |-@ | MOVE.L D0,(A6+0x8)
00023e10 4c df 07 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2
00023e14 4e 5e |N^ | UNLK A6
00023e16 4e 75 |Nu | RTS
00023e18 ; --------------------------------------------------------------------------------------
00023e18 ; OMSI PASCAL Function
00023e18 ; <LVAR 0x008 2(r)>
00023e18 ; <LVAR -0x006 @ 4(r)>
00023e18 ; <LVAR -0x00a @>
00023e18 ; <LVAR -0x00e @ 4(r)>
00023e18 ; --------------------------------------------------------------------------------------
00023e18 4e 56 ff 68 |NV h | LINK.W A6,#0xff68
00023e1c bf d5 | | CMPA.L (A5),A7
00023e1e 62 06 |b | BHI 0x23e26
00023e20 44 fc 00 02 |D | MOVE.W #0x2,CCR
00023e24 4e 76 |Nv | TRAPV
00023e26 de fc 00 8a | | ADDA.W #0x8a,A7
00023e2a 48 e7 ff f0 |H | MOVEM.L A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00023e2e 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2
00023e34 47 ee ff fa |G | LEA.L (A6-0x6),A3
00023e38 74 01 |t | MOVEQ.L #0x01,D2
00023e3a 7a 50 |zP | MOVEQ.L #0x50,D5
00023e3c 7c 10 || | MOVEQ.L #0x10,D6
00023e3e 7e 14 |~ | MOVEQ.L #0x14,D7
00023e40 3f 2e 00 08 |?. | MOVE.W (A6+0x8),-(A7)
00023e44 48 6e ff f6 |Hn | PEA.L (A6-0xa)
00023e48 48 6e ff f2 |Hn | PEA.L (A6-0xe)
00023e4c 4e ba d6 b0 |N | JSR 0x214fe
00023e50 5c 4f |\O | ADDQ.L #0x6,A7
00023e52 2e 94 |. | MOVE.L (A4),(A7)
00023e54 30 2e 00 08 |0. | MOVE.W (A6+0x8),D0
00023e58 48 c0 |H | EXTW.L D0
00023e5a 2f 00 |/ | MOVE.L D0,-(A7)
00023e5c 42 27 |B' | CLR.B -(A7)
00023e5e 4e ba e4 ec |N | JSR 0x2234c
00023e62 de fc 00 0a | | ADDA.W #0xa,A7
00023e66 30 2e 00 08 |0. | MOVE.W (A6+0x8),D0
00023e6a b0 45 | E | CMP.W D5,D0
00023e6c 6c 08 |l | BGE 0x23e76
00023e6e 48 53 |HS | PEA.L (A3)
00023e70 4e ba eb f0 |N | JSR 0x22a62
00023e74 60 06 |` | BRA 0x23e7c
00023e76 48 53 |HS | PEA.L (A3)
00023e78 4e ba ec aa |N | JSR 0x22b24
00023e7c 58 4f |XO | ADDQ.L #0x4,A7
00023e7e 2f 3a cb aa |/: | MOVE.L 0x20a2a,-(A7)
00023e82 2f 3a cb a2 |/: | MOVE.L 0x20a26,-(A7)
00023e86 2f 3a cb 9a |/: | MOVE.L 0x20a22,-(A7)
00023e8a 2f 3a cb 92 |/: | MOVE.L 0x20a1e,-(A7)
00023e8e 2f 3a cb aa |/: | MOVE.L 0x20a3a,-(A7)
00023e92 2f 3a cb a2 |/: | MOVE.L 0x20a36,-(A7)
00023e96 2f 3a cb 9a |/: | MOVE.L 0x20a32,-(A7)
00023e9a 2f 3a cb 92 |/: | MOVE.L 0x20a2e,-(A7)
00023e9e 51 4f |QO | SUBQ.L #0x8,A7
00023ea0 2f 2e ff f2 |/. | MOVE.L (A6-0xe),-(A7)
00023ea4 48 78 00 08 |Hx | PEA.L 0x8
00023ea8 4e b9 00 01 02 f8 |N | JSR LeftPad(a : String; b : Long) : String
00023eae 58 4f |XO | ADDQ.L #0x4,A7
00023eb0 48 6f 00 1c |Ho | PEA.L (A7+0x1c)
00023eb4 3f 02 |? | MOVE.W D2,-(A7)
00023eb6 3f 06 |? | MOVE.W D6,-(A7)
00023eb8 4e 92 |N | JSR (A2)
00023eba 4e ba fe ea |N | JSR 0x23da6
00023ebe 48 78 00 06 |Hx | PEA.L 0x6
00023ec2 4e b9 00 01 02 e8 |N | JSR Long2HexString(val : Long; ndig : Long) : String
00023ec8 58 4f |XO | ADDQ.L #0x4,A7
00023eca 48 6f 00 14 |Ho | PEA.L (A7+0x14)
00023ece 3f 02 |? | MOVE.W D2,-(A7)
00023ed0 3f 06 |? | MOVE.W D6,-(A7)
00023ed2 4e 92 |N | JSR (A2)
00023ed4 4e ba fe 56 |N V | JSR 0x23d2c
00023ed8 48 78 00 06 |Hx | PEA.L 0x6
00023edc 4e b9 00 01 02 e8 |N | JSR Long2HexString(val : Long; ndig : Long) : String
00023ee2 50 4f |PO | ADDQ.L #0x8,A7
00023ee4 4e b9 00 01 02 dc |N | JSR StringCat5(a, b, c, d, e : String) : String
00023eea de c7 | | ADDA.W D7,A7
00023eec 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String)
00023ef2 de fc 00 24 | $ | ADDA.W #0x24,A7
00023ef6 42 34 00 05 |B4 | CLR.B (A4+D0.W+#0x5)
00023efa 59 4f |YO | SUBQ.L #0x4,A7
00023efc 4e ba fe 2e |N . | JSR 0x23d2c
00023f00 59 4f |YO | SUBQ.L #0x4,A7
00023f02 4e ba fe a2 |N | JSR 0x23da6
00023f06 22 2f 00 04 |"/ | MOVE.L (A7+0x4),D1
00023f0a b2 9f | | CMP.L (A7)+,D1
00023f0c 6c 72 |lr | BGE 0x23f80
00023f0e 41 fa cb 46 |A F | LEA.L 0x20a56,A0
00023f12 72 05 |r | MOVEQ.L #0x05,D1
00023f14 2f 20 |/ | MOVE.L -(A0),-(A7)
00023f16 51 c9 ff fc |Q | DBF D1,0x23f14
00023f1a 59 4f |YO | SUBQ.L #0x4,A7
00023f1c 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00023f20 3f 02 |? | MOVE.W D2,-(A7)
00023f22 3f 3c 00 18 |?< | MOVE.W #0x18,-(A7)
00023f26 4e 92 |N | JSR (A2)
00023f28 50 4f |PO | ADDQ.L #0x8,A7
00023f2a 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00023f30 de fc 00 1c | | ADDA.W #0x1c,A7
00023f34 4a 39 00 02 97 53 |J9 S | TST.B 0x29753
00023f3a 67 06 |g | BEQ 0x23f42
00023f3c 42 34 00 05 |B4 | CLR.B (A4+D0.W+#0x5)
00023f40 60 3a |`: | BRA 0x23f7c
00023f42 9e fc 00 20 | | SUBA.W #0x20,A7
00023f46 20 4f | O | MOVEA.L A7,A0
00023f48 43 fa ca b4 |C | LEA.L 0x209fe,A1
00023f4c 72 1e |r | MOVEQ.L #0x1e,D1
00023f4e 10 d9 | | MOVE.B (A1)+,(A0)+
00023f50 51 c9 ff fc |Q | DBF D1,0x23f4e
00023f54 5d 4f |]O | SUBQ.L #0x6,A7
00023f56 48 6f 00 06 |Ho | PEA.L (A7+0x6)
00023f5a 3f 02 |? | MOVE.W D2,-(A7)
00023f5c 3f 3c 00 1f |?< | MOVE.W #0x1f,-(A7)
00023f60 4e 92 |N | JSR (A2)
00023f62 5c 4f |\O | ADDQ.L #0x6,A7
00023f64 42 17 |B | CLR.B (A7)
00023f66 4e b9 00 01 03 f0 |N | JSR AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
00023f6c 5c 4f |\O | ADDQ.L #0x6,A7
00023f6e 12 1f | | MOVE.B (A7)+,D1
00023f70 48 81 |H | EXTB.W D1
00023f72 43 82 |C | CHK.W D2,D1
00023f74 de fc 00 20 | | ADDA.W #0x20,A7
00023f78 19 81 00 05 | | MOVE.B D1,(A4+D0.W+#0x5)
00023f7c 60 00 00 c0 |` | BRA 0x2403e
00023f80 59 4f |YO | SUBQ.L #0x4,A7
00023f82 4e ba fd a8 |N | JSR 0x23d2c
00023f86 59 4f |YO | SUBQ.L #0x4,A7
00023f88 4e ba fe 1c |N | JSR 0x23da6
00023f8c 22 2f 00 04 |"/ | MOVE.L (A7+0x4),D1
00023f90 b2 9f | | CMP.L (A7)+,D1
00023f92 6f 2c |o, | BLE 0x23fc0
00023f94 41 fa ca d6 |A | LEA.L 0x20a6c,A0
00023f98 72 0a |r | MOVEQ.L #0x0a,D1
00023f9a 3f 20 |? | MOVE.W -(A0),-(A7)
00023f9c 51 c9 ff fc |Q | DBF D1,0x23f9a
00023fa0 59 4f |YO | SUBQ.L #0x4,A7
00023fa2 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00023fa6 3f 02 |? | MOVE.W D2,-(A7)
00023fa8 3f 3c 00 16 |?< | MOVE.W #0x16,-(A7)
00023fac 4e 92 |N | JSR (A2)
00023fae 50 4f |PO | ADDQ.L #0x8,A7
00023fb0 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00023fb6 de fc 00 1a | | ADDA.W #0x1a,A7
00023fba 19 82 00 05 | | MOVE.B D2,(A4+D0.W+#0x5)
00023fbe 60 7c |`| | BRA 0x2403c
00023fc0 4a 93 |J | TST.L (A3)
00023fc2 6f 4e |oN | BLE 0x24012
00023fc4 41 fa ca bc |A | LEA.L 0x20a82,A0
00023fc8 72 0a |r | MOVEQ.L #0x0a,D1
00023fca 3f 20 |? | MOVE.W -(A0),-(A7)
00023fcc 51 c9 ff fc |Q | DBF D1,0x23fca
00023fd0 59 4f |YO | SUBQ.L #0x4,A7
00023fd2 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00023fd6 3f 02 |? | MOVE.W D2,-(A7)
00023fd8 3f 3c 00 16 |?< | MOVE.W #0x16,-(A7)
00023fdc 4e 92 |N | JSR (A2)
00023fde 50 4f |PO | ADDQ.L #0x8,A7
00023fe0 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00023fe6 de fc 00 1a | | ADDA.W #0x1a,A7
00023fea 41 fa ca 12 |A | LEA.L 0x209fe,A0
00023fee 72 0f |r | MOVEQ.L #0x0f,D1
00023ff0 2f 20 |/ | MOVE.L -(A0),-(A7)
00023ff2 51 c9 ff fc |Q | DBF D1,0x23ff0
00023ff6 59 4f |YO | SUBQ.L #0x4,A7
00023ff8 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00023ffc 3f 02 |? | MOVE.W D2,-(A7)
00023ffe 3f 3c 00 40 |?< @ | MOVE.W #0x40,-(A7)
00024002 4e 92 |N | JSR (A2)
00024004 50 4f |PO | ADDQ.L #0x8,A7
00024006 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
0002400c de fc 00 44 | D | ADDA.W #0x44,A7
00024010 60 a8 |` | BRA 0x23fba
00024012 9e c7 | | SUBA.W D7,A7
00024014 20 4f | O | MOVEA.L A7,A0
00024016 43 fa ca 6a |C j | LEA.L 0x20a82,A1
0002401a 72 12 |r | MOVEQ.L #0x12,D1
0002401c 10 d9 | | MOVE.B (A1)+,(A0)+
0002401e 51 c9 ff fc |Q | DBF D1,0x2401c
00024022 59 4f |YO | SUBQ.L #0x4,A7
00024024 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00024028 3f 02 |? | MOVE.W D2,-(A7)
0002402a 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7)
0002402e 4e 92 |N | JSR (A2)
00024030 50 4f |PO | ADDQ.L #0x8,A7
00024032 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00024038 de fc 00 18 | | ADDA.W #0x18,A7
0002403c 58 4f |XO | ADDQ.L #0x4,A7
0002403e 58 4f |XO | ADDQ.L #0x4,A7
00024040 4a 34 00 05 |J4 | TST.B (A4+D0.W+#0x5)
00024044 67 2c |g, | BEQ 0x24072
00024046 19 42 00 04 | B | MOVE.B D2,(A4+0x4)
0002404a 5a ac 01 06 |Z | ADDQ.L #0x5,(A4+0x106)
0002404e b0 45 | E | CMP.W D5,D0
00024050 6c 1c |l | BGE 0x2406e
00024052 28 13 |( | MOVE.L (A3),D4
00024054 76 0c |v | MOVEQ.L #0x0c,D3
00024056 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4
0002405c 26 3c 00 00 03 e8 |&< | MOVE.L #0x3e8,D3
00024062 4e b9 00 01 02 94 |N | JSR ?divs_d3_d4
00024068 d9 ac 01 06 | | ADD.L D4,(A4+0x106)
0002406c 60 04 |` | BRA 0x24072
0002406e 5c ac 01 06 |\ | ADDQ.L #0x6,(A4+0x106)
00024072 4c df 0f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3
00024076 4e 5e |N^ | UNLK A6
00024078 4e 75 |Nu | RTS
0002407a ; --------------------------------------------------------------------------------------
0002407a ; OMSI PASCAL Function
0002407a ; <LVAR 0x008 2(r)>
0002407a ; <LVAR -0x006 @>
0002407a ; <LVAR -0x00a @ 4(r)>
0002407a ; --------------------------------------------------------------------------------------
0002407a 4e 56 ff c4 |NV | LINK.W A6,#0xffc4
0002407e bf d5 | | CMPA.L (A5),A7
00024080 62 06 |b | BHI 0x24088
00024082 44 fc 00 02 |D | MOVE.W #0x2,CCR
00024086 4e 76 |Nv | TRAPV
00024088 de fc 00 32 | 2 | ADDA.W #0x32,A7
0002408c 48 e7 e0 00 |H | MOVEM.L D2+D1+D0,-(A7)
00024090 74 10 |t | MOVEQ.L #0x10,D2
00024092 30 2e 00 08 |0. | MOVE.W (A6+0x8),D0
00024096 4a 34 00 05 |J4 | TST.B (A4+D0.W+#0x5)
0002409a 67 70 |gp | BEQ 0x2410c
0002409c 3f 00 |? | MOVE.W D0,-(A7)
0002409e 48 6e ff fa |Hn | PEA.L (A6-0x6)
000240a2 48 6e ff f6 |Hn | PEA.L (A6-0xa)
000240a6 4e ba d4 56 |N V | JSR 0x214fe
000240aa 5c 4f |\O | ADDQ.L #0x6,A7
000240ac 2e ba c9 f4 |. | MOVE.L 0x20aa2,(A7)
000240b0 2f 3a c9 ec |/: | MOVE.L 0x20a9e,-(A7)
000240b4 2f 3a c9 e4 |/: | MOVE.L 0x20a9a,-(A7)
000240b8 2f 3a c9 dc |/: | MOVE.L 0x20a96,-(A7)
000240bc 51 4f |QO | SUBQ.L #0x8,A7
000240be 48 6f 00 08 |Ho | PEA.L (A7+0x8)
000240c2 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
000240c6 3f 02 |? | MOVE.W D2,-(A7)
000240c8 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
000240ce 58 4f |XO | ADDQ.L #0x4,A7
000240d0 2e ae ff f6 |. | MOVE.L (A6-0xa),(A7)
000240d4 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
000240da 50 4f |PO | ADDQ.L #0x8,A7
000240dc 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
000240e2 de c2 | | ADDA.W D2,A7
000240e4 2e 94 |. | MOVE.L (A4),(A7)
000240e6 32 00 |2 | MOVE.W D0,D1
000240e8 48 c1 |H | EXTW.L D1
000240ea 2f 01 |/ | MOVE.L D1,-(A7)
000240ec 42 27 |B' | CLR.B -(A7)
000240ee 4e ba e2 5c |N \ | JSR 0x2234c
000240f2 de fc 00 0a | | ADDA.W #0xa,A7
000240f6 42 39 00 02 57 36 |B9 W6 | CLR.B 0x25736
000240fc 0c 40 00 50 | @ P | CMPI.W #0x0050,D0
00024100 6c 06 |l | BGE 0x24108
00024102 4e ba ed c8 |N | JSR 0x22ecc
00024106 60 04 |` | BRA 0x2410c
00024108 4e ba ef f6 |N | JSR 0x23100
0002410c 4c df 00 07 |L | MOVEM.L (A7)+,D0+D1+D2
00024110 4e 5e |N^ | UNLK A6
00024112 4e 75 |Nu | RTS
00024114 ; --------------------------------------------------------------------------------------
00024114 ; OMSI PASCAL Function
00024114 ; <LVAR -0x00a 4(rw)>
00024114 ; <LVAR -0x0bb 1(w)>
00024114 ; <LVAR -0x10c 1(rw)>
00024114 ; <LVAR -0x110 @ 4(w)>
00024114 ; --------------------------------------------------------------------------------------
00024114 4e 56 fe 64 |NV d | LINK.W A6,#0xfe64
00024118 bf d5 | | CMPA.L (A5),A7
0002411a 62 06 |b | BHI 0x24122
0002411c 44 fc 00 02 |D | MOVE.W #0x2,CCR
00024120 4e 76 |Nv | TRAPV
00024122 de fc 00 8c | | ADDA.W #0x8c,A7
00024126 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
0002412a 45 ee fe f0 |E | LEA.L (A6-0x110),A2
0002412e 47 f9 00 02 97 5e |G ^ | LEA.L 0x2975e,A3
00024134 72 01 |r | MOVEQ.L #0x01,D1
00024136 74 21 |t! | MOVEQ.L #0x21,D2
00024138 76 15 |v | MOVEQ.L #0x15,D3
0002413a 38 3c 00 ff |8< | MOVE.W #0xff,D4
0002413e 7a 19 |z | MOVEQ.L #0x19,D5
00024140 9e fc 00 34 | 4 | SUBA.W #0x34,A7
00024144 20 4f | O | MOVEA.L A7,A0
00024146 43 fa c8 42 |C B | LEA.L 0x2098a,A1
0002414a 70 32 |p2 | MOVEQ.L #0x32,D0
0002414c 10 d9 | | MOVE.B (A1)+,(A0)+
0002414e 51 c8 ff fc |Q | DBF D0,0x2414c
00024152 59 4f |YO | SUBQ.L #0x4,A7
00024154 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00024158 3f 01 |? | MOVE.W D1,-(A7)
0002415a 3f 3c 00 33 |?< 3 | MOVE.W #0x33,-(A7)
0002415e 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00024164 50 4f |PO | ADDQ.L #0x8,A7
00024166 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
0002416c de fc 00 38 | 8 | ADDA.W #0x38,A7
00024170 42 2e fe f4 |B. | CLR.B (A6-0x10c)
00024174 2d 41 ff f6 |-A | MOVE.L D1,(A6-0xa)
00024178 24 b9 00 02 97 54 |$ T | MOVE.L 0x29754,(A2)
0002417e 3f 02 |? | MOVE.W D2,-(A7)
00024180 28 4a |(J | MOVEA.L A2,A4
00024182 4e ba fc 94 |N | JSR 0x23e18
00024186 3e 85 |> | MOVE.W D5,(A7)
00024188 28 4a |(J | MOVEA.L A2,A4
0002418a 4e ba fc 8c |N | JSR 0x23e18
0002418e 3e bc 00 17 |> | MOVE.W #0x17,(A7)
00024192 28 4a |(J | MOVEA.L A2,A4
00024194 4e ba fc 82 |N | JSR 0x23e18
00024198 3e 83 |> | MOVE.W D3,(A7)
0002419a 28 4a |(J | MOVEA.L A2,A4
0002419c 4e ba fc 7a |N z | JSR 0x23e18
000241a0 54 4f |TO | ADDQ.L #0x2,A7
000241a2 42 79 00 02 97 60 |By ` | CLR.W 0x29760
000241a8 4a 53 |JS | TST.W (A3)
000241aa 6f 00 00 8e |o | BLE 0x2423a
000241ae 55 4f |UO | SUBQ.L #0x2,A7
000241b0 48 78 01 05 |Hx | PEA.L 0x105
000241b4 4e b9 00 01 05 92 |N | JSR ReadConfig(where : Long) : Word
000241ba 58 4f |XO | ADDQ.L #0x4,A7
000241bc 30 1f |0 | MOVE.W (A7)+,D0
000241be 41 84 |A | CHK.W D4,D0
000241c0 3e 00 |> | MOVE.W D0,D7
000241c2 be 79 00 02 97 5c | y \ | CMP.W 0x2975c,D7
000241c8 6d 3a |m: | BLT 0x24204
000241ca be 53 | S | CMP.W (A3),D7
000241cc 6c 36 |l6 | BGE 0x24204
000241ce 33 d3 00 02 97 60 |3 ` | MOVE.W (A3),0x29760
000241d4 1d 41 fe f4 | A | MOVE.B D1,(A6-0x10c)
000241d8 41 fa c9 02 |A | LEA.L 0x20adc,A0
000241dc 70 1a |p | MOVEQ.L #0x1a,D0
000241de 3f 20 |? | MOVE.W -(A0),-(A7)
000241e0 51 c8 ff fc |Q | DBF D0,0x241de
000241e4 59 4f |YO | SUBQ.L #0x4,A7
000241e6 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000241ea 3f 01 |? | MOVE.W D1,-(A7)
000241ec 3f 3c 00 36 |?< 6 | MOVE.W #0x36,-(A7)
000241f0 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
000241f6 50 4f |PO | ADDQ.L #0x8,A7
000241f8 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
000241fe de fc 00 3a | : | ADDA.W #0x3a,A7
00024202 60 36 |`6 | BRA 0x2423a
00024204 be 79 00 02 97 5c | y \ | CMP.W 0x2975c,D7
0002420a 6c 2e |l. | BGE 0x2423a
0002420c 9e fc 00 22 | " | SUBA.W #0x22,A7
00024210 20 4f | O | MOVEA.L A7,A0
00024212 43 fa c8 c8 |C | LEA.L 0x20adc,A1
00024216 70 20 |p | MOVEQ.L #0x20,D0
00024218 10 d9 | | MOVE.B (A1)+,(A0)+
0002421a 51 c8 ff fc |Q | DBF D0,0x24218
0002421e 59 4f |YO | SUBQ.L #0x4,A7
00024220 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00024224 3f 01 |? | MOVE.W D1,-(A7)
00024226 3f 02 |? | MOVE.W D2,-(A7)
00024228 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
0002422e 50 4f |PO | ADDQ.L #0x8,A7
00024230 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00024236 de fc 00 26 | & | ADDA.W #0x26,A7
0002423a 55 4f |UO | SUBQ.L #0x2,A7
0002423c 4e b9 00 01 06 04 |N | JSR Is_machine_type_three() : Bool
00024242 4a 1f |J | TST.B (A7)+
00024244 66 0e |f | BNE 0x24254
00024246 55 4f |UO | SUBQ.L #0x2,A7
00024248 4e b9 00 01 06 0a |N | JSR Is_machine_type_four() : Bool
0002424e 4a 1f |J | TST.B (A7)+
00024250 67 00 00 e2 |g | BEQ 0x24334
00024254 24 b9 00 02 97 58 |$ X | MOVE.L 0x29758,(A2)
0002425a 3f 3c 00 50 |?< P | MOVE.W #0x50,-(A7)
0002425e 28 4a |(J | MOVEA.L A2,A4
00024260 4e ba fb b6 |N | JSR 0x23e18
00024264 3e bc 00 51 |> Q | MOVE.W #0x51,(A7)
00024268 28 4a |(J | MOVEA.L A2,A4
0002426a 4e ba fb ac |N | JSR 0x23e18
0002426e 3e bc 00 52 |> R | MOVE.W #0x52,(A7)
00024272 28 4a |(J | MOVEA.L A2,A4
00024274 4e ba fb a2 |N | JSR 0x23e18
00024278 3e bc 00 53 |> S | MOVE.W #0x53,(A7)
0002427c 28 4a |(J | MOVEA.L A2,A4
0002427e 4e ba fb 98 |N | JSR 0x23e18
00024282 54 4f |TO | ADDQ.L #0x2,A7
00024284 42 79 00 02 97 62 |By b | CLR.W 0x29762
0002428a 59 4f |YO | SUBQ.L #0x4,A7
0002428c 4e b9 00 02 54 56 |N TV | JSR 0x25456
00024292 2c 1f |, | MOVE.L (A7)+,D6
00024294 67 00 00 9e |g | BEQ 0x24334
00024298 4a 53 |JS | TST.W (A3)
0002429a 6f 00 00 98 |o | BLE 0x24334
0002429e 55 4f |UO | SUBQ.L #0x2,A7
000242a0 2f 06 |/ | MOVE.L D6,-(A7)
000242a2 58 97 |X | ADDQ.L #0x4,(A7)
000242a4 4e ba e2 d4 |N | JSR 0x2257a
000242a8 58 4f |XO | ADDQ.L #0x4,A7
000242aa 30 1f |0 | MOVE.W (A7)+,D0
000242ac 41 84 |A | CHK.W D4,D0
000242ae 3e 00 |> | MOVE.W D0,D7
000242b0 be 79 00 02 97 5c | y \ | CMP.W 0x2975c,D7
000242b6 6d 44 |mD | BLT 0x242fc
000242b8 be 53 | S | CMP.W (A3),D7
000242ba 6c 40 |l@ | BGE 0x242fc
000242bc 33 d3 00 02 97 62 |3 b | MOVE.W (A3),0x29762
000242c2 1d 41 fe f4 | A | MOVE.B D1,(A6-0x10c)
000242c6 1d 41 ff 45 | A E | MOVE.B D1,(A6-0xbb)
000242ca 9e fc 00 36 | 6 | SUBA.W #0x36,A7
000242ce 20 4f | O | MOVEA.L A7,A0
000242d0 43 fa c8 2c |C , | LEA.L 0x20afe,A1
000242d4 70 34 |p4 | MOVEQ.L #0x34,D0
000242d6 10 d9 | | MOVE.B (A1)+,(A0)+
000242d8 51 c8 ff fc |Q | DBF D0,0x242d6
000242dc 59 4f |YO | SUBQ.L #0x4,A7
000242de 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000242e2 3f 01 |? | MOVE.W D1,-(A7)
000242e4 3f 3c 00 35 |?< 5 | MOVE.W #0x35,-(A7)
000242e8 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
000242ee 50 4f |PO | ADDQ.L #0x8,A7
000242f0 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
000242f6 de fc 00 3a | : | ADDA.W #0x3a,A7
000242fa 60 38 |`8 | BRA 0x24334
000242fc be 79 00 02 97 5c | y \ | CMP.W 0x2975c,D7
00024302 6c 30 |l0 | BGE 0x24334
00024304 9e fc 00 24 | $ | SUBA.W #0x24,A7
00024308 20 4f | O | MOVEA.L A7,A0
0002430a 43 fa c8 28 |C ( | LEA.L 0x20b34,A1
0002430e 70 22 |p" | MOVEQ.L #0x22,D0
00024310 10 d9 | | MOVE.B (A1)+,(A0)+
00024312 51 c8 ff fc |Q | DBF D0,0x24310
00024316 59 4f |YO | SUBQ.L #0x4,A7
00024318 48 6f 00 04 |Ho | PEA.L (A7+0x4)
0002431c 3f 01 |? | MOVE.W D1,-(A7)
0002431e 3f 3c 00 23 |?< # | MOVE.W #0x23,-(A7)
00024322 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00024328 50 4f |PO | ADDQ.L #0x8,A7
0002432a 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00024330 de fc 00 28 | ( | ADDA.W #0x28,A7
00024334 4a 2e fe f4 |J. | TST.B (A6-0x10c)
00024338 66 2e |f. | BNE 0x24368
0002433a 41 fa c8 34 |A 4 | LEA.L 0x20b70,A0
0002433e 70 05 |p | MOVEQ.L #0x05,D0
00024340 2f 20 |/ | MOVE.L -(A0),-(A7)
00024342 51 c8 ff fc |Q | DBF D0,0x24340
00024346 59 4f |YO | SUBQ.L #0x4,A7
00024348 48 6f 00 04 |Ho | PEA.L (A7+0x4)
0002434c 3f 01 |? | MOVE.W D1,-(A7)
0002434e 3f 3c 00 18 |?< | MOVE.W #0x18,-(A7)
00024352 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00024358 50 4f |PO | ADDQ.L #0x8,A7
0002435a 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00024360 de fc 00 1c | | ADDA.W #0x1c,A7
00024364 60 00 01 70 |` p | BRA 0x244d6
00024368 9e fc 00 26 | & | SUBA.W #0x26,A7
0002436c 20 4f | O | MOVEA.L A7,A0
0002436e 43 fa c8 00 |C | LEA.L 0x20b70,A1
00024372 70 24 |p$ | MOVEQ.L #0x24,D0
00024374 10 d9 | | MOVE.B (A1)+,(A0)+
00024376 51 c8 ff fc |Q | DBF D0,0x24374
0002437a 9e fc 00 16 | | SUBA.W #0x16,A7
0002437e 20 4f | O | MOVEA.L A7,A0
00024380 43 fa c8 14 |C | LEA.L 0x20b96,A1
00024384 70 14 |p | MOVEQ.L #0x14,D0
00024386 10 d9 | | MOVE.B (A1)+,(A0)+
00024388 51 c8 ff fc |Q | DBF D0,0x24386
0002438c 51 4f |QO | SUBQ.L #0x8,A7
0002438e 48 6f 00 1e |Ho | PEA.L (A7+0x1e)
00024392 3f 01 |? | MOVE.W D1,-(A7)
00024394 3f 3c 00 25 |?< % | MOVE.W #0x25,-(A7)
00024398 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
0002439e 2e ae ff f6 |. | MOVE.L (A6-0xa),(A7)
000243a2 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String
000243a8 48 6f 00 10 |Ho | PEA.L (A7+0x10)
000243ac 3f 01 |? | MOVE.W D1,-(A7)
000243ae 3f 03 |? | MOVE.W D3,-(A7)
000243b0 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
000243b6 50 4f |PO | ADDQ.L #0x8,A7
000243b8 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String
000243be de fc 00 0c | | ADDA.W #0xc,A7
000243c2 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
000243c8 de fc 00 3e | > | ADDA.W #0x3e,A7
000243cc 42 17 |B | CLR.B (A7)
000243ce 4e ba f2 c0 |N | JSR 0x23690
000243d2 54 4f |TO | ADDQ.L #0x2,A7
000243d4 24 b9 00 02 97 54 |$ T | MOVE.L 0x29754,(A2)
000243da 3f 02 |? | MOVE.W D2,-(A7)
000243dc 28 4a |(J | MOVEA.L A2,A4
000243de 4e ba fc 9a |N | JSR 0x2407a
000243e2 3e 85 |> | MOVE.W D5,(A7)
000243e4 28 4a |(J | MOVEA.L A2,A4
000243e6 4e ba fc 92 |N | JSR 0x2407a
000243ea 3e bc 00 17 |> | MOVE.W #0x17,(A7)
000243ee 28 4a |(J | MOVEA.L A2,A4
000243f0 4e ba fc 88 |N | JSR 0x2407a
000243f4 3e 83 |> | MOVE.W D3,(A7)
000243f6 28 4a |(J | MOVEA.L A2,A4
000243f8 4e ba fc 80 |N | JSR 0x2407a
000243fc 54 4f |TO | ADDQ.L #0x2,A7
000243fe 4a 79 00 02 97 60 |Jy ` | TST.W 0x29760
00024404 6f 4e |oN | BLE 0x24454
00024406 55 4f |UO | SUBQ.L #0x2,A7
00024408 48 78 01 05 |Hx | PEA.L 0x105
0002440c 4e b9 00 01 05 92 |N | JSR ReadConfig(where : Long) : Word
00024412 58 4f |XO | ADDQ.L #0x4,A7
00024414 30 1f |0 | MOVE.W (A7)+,D0
00024416 41 84 |A | CHK.W D4,D0
00024418 3e 00 |> | MOVE.W D0,D7
0002441a 48 78 01 05 |Hx | PEA.L 0x105
0002441e 3f 39 00 02 97 60 |?9 ` | MOVE.W 0x29760,-(A7)
00024424 4e b9 00 01 05 98 |N | JSR WriteConfig(what: Word; where : Long)
0002442a 5c 4f |\O | ADDQ.L #0x6,A7
0002442c 48 78 01 08 |Hx | PEA.L 0x108
00024430 55 4f |UO | SUBQ.L #0x2,A7
00024432 48 78 01 08 |Hx | PEA.L 0x108
00024436 4e b9 00 01 05 92 |N | JSR ReadConfig(where : Long) : Word
0002443c 58 4f |XO | ADDQ.L #0x4,A7
0002443e df 57 | W | ADD.W D7,(A7)
00024440 30 17 |0 | MOVE.W (A7),D0
00024442 90 79 00 02 97 60 | y ` | SUB.W 0x29760,D0
00024448 c0 44 | D | AND.W D4,D0
0002444a 3e 80 |> | MOVE.W D0,(A7)
0002444c 4e b9 00 01 05 98 |N | JSR WriteConfig(what: Word; where : Long)
00024452 5c 4f |\O | ADDQ.L #0x6,A7
00024454 55 4f |UO | SUBQ.L #0x2,A7
00024456 4e b9 00 01 06 04 |N | JSR Is_machine_type_three() : Bool
0002445c 4a 1f |J | TST.B (A7)+
0002445e 66 0c |f | BNE 0x2446c
00024460 55 4f |UO | SUBQ.L #0x2,A7
00024462 4e b9 00 01 06 0a |N | JSR Is_machine_type_four() : Bool
00024468 4a 1f |J | TST.B (A7)+
0002446a 67 30 |g0 | BEQ 0x2449c
0002446c 24 b9 00 02 97 58 |$ X | MOVE.L 0x29758,(A2)
00024472 3f 3c 00 51 |?< Q | MOVE.W #0x51,-(A7)
00024476 28 4a |(J | MOVEA.L A2,A4
00024478 4e ba fc 00 |N | JSR 0x2407a
0002447c 3e bc 00 52 |> R | MOVE.W #0x52,(A7)
00024480 28 4a |(J | MOVEA.L A2,A4
00024482 4e ba fb f6 |N | JSR 0x2407a
00024486 3e bc 00 53 |> S | MOVE.W #0x53,(A7)
0002448a 28 4a |(J | MOVEA.L A2,A4
0002448c 4e ba fb ec |N | JSR 0x2407a
00024490 3e bc 00 50 |> P | MOVE.W #0x50,(A7)
00024494 28 4a |(J | MOVEA.L A2,A4
00024496 4e ba fb e2 |N | JSR 0x2407a
0002449a 54 4f |TO | ADDQ.L #0x2,A7
0002449c 4a 39 00 02 97 53 |J9 S | TST.B 0x29753
000244a2 66 08 |f | BNE 0x244ac
000244a4 1f 01 | | MOVE.B D1,-(A7)
000244a6 4e ba f1 e8 |N | JSR 0x23690
000244aa 54 4f |TO | ADDQ.L #0x2,A7
000244ac 41 fa c7 1c |A | LEA.L 0x20bca,A0
000244b0 70 0e |p | MOVEQ.L #0x0e,D0
000244b2 3f 20 |? | MOVE.W -(A0),-(A7)
000244b4 51 c8 ff fc |Q | DBF D0,0x244b2
000244b8 59 4f |YO | SUBQ.L #0x4,A7
000244ba 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000244be 3f 01 |? | MOVE.W D1,-(A7)
000244c0 3f 3c 00 1e |?< | MOVE.W #0x1e,-(A7)
000244c4 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
000244ca 50 4f |PO | ADDQ.L #0x8,A7
000244cc 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
000244d2 de fc 00 22 | " | ADDA.W #0x22,A7
000244d6 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
000244da 4e 5e |N^ | UNLK A6
000244dc 4e 75 |Nu | RTS
000244de ; --------------------------------------------------------------------------------------
000244de ; OMSI PASCAL Function
000244de ; --------------------------------------------------------------------------------------
000244de 4e 56 ff 94 |NV | LINK.W A6,#0xff94
000244e2 bf d5 | | CMPA.L (A5),A7
000244e4 62 06 |b | BHI 0x244ec
000244e6 44 fc 00 02 |D | MOVE.W #0x2,CCR
000244ea 4e 76 |Nv | TRAPV
000244ec de fc 00 68 | h | ADDA.W #0x68,A7
000244f0 48 e7 f1 f0 |H | MOVEM.L A3+A2+A1+A0+D7+D3+D2+D1+D0,-(A7)
000244f4 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2
000244fa 47 f9 00 01 03 e0 |G | LEA.L WriteConsoleStringCrLf(str : String),A3
00024500 72 01 |r | MOVEQ.L #0x01,D1
00024502 74 33 |t3 | MOVEQ.L #0x33,D2
00024504 76 0c |v | MOVEQ.L #0x0c,D3
00024506 2f 3a c6 ca |/: | MOVE.L 0x20bd2,-(A7)
0002450a 2f 3a c6 c2 |/: | MOVE.L 0x20bce,-(A7)
0002450e 2f 3a c6 ba |/: | MOVE.L 0x20bca,-(A7)
00024512 59 4f |YO | SUBQ.L #0x4,A7
00024514 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00024518 3f 01 |? | MOVE.W D1,-(A7)
0002451a 3f 03 |? | MOVE.W D3,-(A7)
0002451c 4e 92 |N | JSR (A2)
0002451e 50 4f |PO | ADDQ.L #0x8,A7
00024520 4e 93 |N | JSR (A3)
00024522 54 4f |TO | ADDQ.L #0x2,A7
00024524 20 4f | O | MOVEA.L A7,A0
00024526 43 fa c6 ae |C | LEA.L 0x20bd6,A1
0002452a 70 0c |p | MOVEQ.L #0x0c,D0
0002452c 10 d9 | | MOVE.B (A1)+,(A0)+
0002452e 51 c8 ff fc |Q | DBF D0,0x2452c
00024532 59 4f |YO | SUBQ.L #0x4,A7
00024534 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00024538 3f 01 |? | MOVE.W D1,-(A7)
0002453a 3f 3c 00 0d |?< | MOVE.W #0xd,-(A7)
0002453e 4e 92 |N | JSR (A2)
00024540 50 4f |PO | ADDQ.L #0x8,A7
00024542 4e 93 |N | JSR (A3)
00024544 9e fc 00 22 | " | SUBA.W #0x22,A7
00024548 20 4f | O | MOVEA.L A7,A0
0002454a 43 fa c6 98 |C | LEA.L 0x20be4,A1
0002454e 70 32 |p2 | MOVEQ.L #0x32,D0
00024550 10 d9 | | MOVE.B (A1)+,(A0)+
00024552 51 c8 ff fc |Q | DBF D0,0x24550
00024556 59 4f |YO | SUBQ.L #0x4,A7
00024558 48 6f 00 04 |Ho | PEA.L (A7+0x4)
0002455c 3f 01 |? | MOVE.W D1,-(A7)
0002455e 3f 02 |? | MOVE.W D2,-(A7)
00024560 4e 92 |N | JSR (A2)
00024562 50 4f |PO | ADDQ.L #0x8,A7
00024564 4e 93 |N | JSR (A3)
00024566 58 4f |XO | ADDQ.L #0x4,A7
00024568 20 4f | O | MOVEA.L A7,A0
0002456a 43 fa c6 ac |C | LEA.L 0x20c18,A1
0002456e 70 32 |p2 | MOVEQ.L #0x32,D0
00024570 10 d9 | | MOVE.B (A1)+,(A0)+
00024572 51 c8 ff fc |Q | DBF D0,0x24570
00024576 59 4f |YO | SUBQ.L #0x4,A7
00024578 48 6f 00 04 |Ho | PEA.L (A7+0x4)
0002457c 3f 01 |? | MOVE.W D1,-(A7)
0002457e 3f 02 |? | MOVE.W D2,-(A7)
00024580 4e 92 |N | JSR (A2)
00024582 50 4f |PO | ADDQ.L #0x8,A7
00024584 4e 93 |N | JSR (A3)
00024586 58 4f |XO | ADDQ.L #0x4,A7
00024588 20 4f | O | MOVEA.L A7,A0
0002458a 43 fa c6 c0 |C | LEA.L 0x20c4c,A1
0002458e 70 32 |p2 | MOVEQ.L #0x32,D0
00024590 10 d9 | | MOVE.B (A1)+,(A0)+
00024592 51 c8 ff fc |Q | DBF D0,0x24590
00024596 59 4f |YO | SUBQ.L #0x4,A7
00024598 48 6f 00 04 |Ho | PEA.L (A7+0x4)
0002459c 3f 01 |? | MOVE.W D1,-(A7)
0002459e 3f 02 |? | MOVE.W D2,-(A7)
000245a0 4e 92 |N | JSR (A2)
000245a2 50 4f |PO | ADDQ.L #0x8,A7
000245a4 4e 93 |N | JSR (A3)
000245a6 58 4f |XO | ADDQ.L #0x4,A7
000245a8 20 4f | O | MOVEA.L A7,A0
000245aa 43 fa c6 d4 |C | LEA.L 0x20c80,A1
000245ae 70 32 |p2 | MOVEQ.L #0x32,D0
000245b0 10 d9 | | MOVE.B (A1)+,(A0)+
000245b2 51 c8 ff fc |Q | DBF D0,0x245b0
000245b6 59 4f |YO | SUBQ.L #0x4,A7
000245b8 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000245bc 3f 01 |? | MOVE.W D1,-(A7)
000245be 3f 02 |? | MOVE.W D2,-(A7)
000245c0 4e 92 |N | JSR (A2)
000245c2 50 4f |PO | ADDQ.L #0x8,A7
000245c4 4e 93 |N | JSR (A3)
000245c6 de fc 00 28 | ( | ADDA.W #0x28,A7
000245ca 20 4f | O | MOVEA.L A7,A0
000245cc 43 fa c6 e6 |C | LEA.L 0x20cb4,A1
000245d0 70 0e |p | MOVEQ.L #0x0e,D0
000245d2 10 d9 | | MOVE.B (A1)+,(A0)+
000245d4 51 c8 ff fc |Q | DBF D0,0x245d2
000245d8 51 4f |QO | SUBQ.L #0x8,A7
000245da 48 6f 00 08 |Ho | PEA.L (A7+0x8)
000245de 3f 01 |? | MOVE.W D1,-(A7)
000245e0 3f 3c 00 0f |?< | MOVE.W #0xf,-(A7)
000245e4 4e 92 |N | JSR (A2)
000245e6 50 4f |PO | ADDQ.L #0x8,A7
000245e8 48 78 00 00 |Hx | PEA.L 0x0
000245ec 48 78 00 04 |Hx | PEA.L 0x4
000245f0 4e b9 00 01 03 ec |N | JSR AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
000245f6 de c3 | | ADDA.W D3,A7
000245f8 2e 1f |. | MOVE.L (A7)+,D7
000245fa de fc 00 10 | | ADDA.W #0x10,A7
000245fe 20 07 | | MOVE.L D7,D0
00024600 0c 80 00 00 00 04 | | CMPI.L #0x00000004,D0
00024606 63 02 |c | BLS 0x2460a
00024608 4e 4e |NN | TRAP #14
0002460a d0 40 | @ | ADD.W D0,D0
0002460c 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W
00024614 00 0a | | .CONST 0xa ; [0x0] -> 0x2461e
00024616 00 0c | | .CONST 0xc ; [0x1] -> 0x24620
00024618 00 14 | | .CONST 0x14 ; [0x2] -> 0x24628
0002461a 00 1c | | .CONST 0x1c ; [0x3] -> 0x24630
0002461c 00 24 | $ | .CONST 0x24 ; [0x4] -> 0x24638
0002461e switch@0x2460c[0x0]:
0002461e 60 24 |`$ | BRA 0x24644
00024620 switch@0x2460c[0x1]:
00024620 2f 3c 80 00 1f ff |/< | MOVE.L #0x80001fff,-(A7)
00024626 60 16 |` | BRA 0x2463e
00024628 switch@0x2460c[0x2]:
00024628 2f 3c 80 00 3f ff |/< ? | MOVE.L #0x80003fff,-(A7)
0002462e 60 0e |` | BRA 0x2463e
00024630 switch@0x2460c[0x3]:
00024630 2f 3c 80 00 5f ff |/< _ | MOVE.L #0x80005fff,-(A7)
00024636 60 06 |` | BRA 0x2463e
00024638 switch@0x2460c[0x4]:
00024638 2f 3c 80 00 7d ff |/< } | MOVE.L #0x80007dff,-(A7)
0002463e 4e ba e0 16 |N | JSR 0x22656
00024642 58 4f |XO | ADDQ.L #0x4,A7
00024644 4a 87 |J | TST.L D7
00024646 66 00 fe be |f | BNE 0x24506
0002464a 4c df 0f 8f |L | MOVEM.L (A7)+,D0+D1+D2+D3+D7+A0+A1+A2+A3
0002464e 4e 5e |N^ | UNLK A6
00024650 4e 75 |Nu | RTS
00024652 ; --------------------------------------------------------------------------------------
00024652 ; OMSI PASCAL Function
00024652 ; <LVAR 0x00c 2(r)>
00024652 ; <LVAR 0x008 4(r)>
00024652 ; <LVAR -0x00e @ 4(r)>
00024652 ; <LVAR -0x012 @ 4(r)>
00024652 ; --------------------------------------------------------------------------------------
00024652 4e 56 ff 7e |NV ~ | LINK.W A6,#0xff7e ; Spelunked
00024656 bf d5 | | CMPA.L (A5),A7
00024658 62 06 |b | BHI 0x24660
0002465a 44 fc 00 02 |D | MOVE.W #0x2,CCR
0002465e 4e 76 |Nv | TRAPV
00024660 de fc 00 70 | p | ADDA.W #0x70,A7
00024664 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00024668 45 fa df 10 |E | LEA.L 0x2257a,A2
0002466c 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
00024672 49 f8 00 02 |I | LEA.L 0x2,A4
00024676 74 01 |t | MOVEQ.L #0x01,D2
00024678 7a 14 |z | MOVEQ.L #0x14,D5
0002467a 3f 2e 00 0c |?. | MOVE.W (A6+0xc),-(A7)
0002467e 48 6e ff ee |Hn | PEA.L (A6-0x12)
00024682 48 6e ff f2 |Hn | PEA.L (A6-0xe)
00024686 4e ba ce 76 |N v | JSR 0x214fe
0002468a de fc 00 0a | | ADDA.W #0xa,A7
0002468e 7e 00 |~ | MOVEQ.L #0x00,D7
00024690 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00024694 7c 00 || | MOVEQ.L #0x00,D6
00024696 bc 97 | | CMP.L (A7),D6
00024698 6e 26 |n& | BGT 0x246c0
0002469a 55 4f |UO | SUBQ.L #0x2,A7
0002469c 2f 2e ff ee |/. | MOVE.L (A6-0x12),-(A7)
000246a0 dd 97 | | ADD.L D6,(A7)
000246a2 4e 92 |N | JSR (A2)
000246a4 58 4f |XO | ADDQ.L #0x4,A7
000246a6 30 1f |0 | MOVE.W (A7)+,D0
000246a8 48 c0 |H | EXTW.L D0
000246aa de 80 | | ADD.L D0,D7
000246ac 28 07 |( | MOVE.L D7,D4
000246ae 26 3c 00 00 01 00 |&< | MOVE.L #0x100,D3
000246b4 4e b9 00 01 02 94 |N | JSR ?divs_d3_d4
000246ba 2e 03 |. | MOVE.L D3,D7
000246bc 52 86 |R | ADDQ.L #0x1,D6
000246be 68 d6 |h | BVC 0x24696
000246c0 58 4f |XO | ADDQ.L #0x4,A7
000246c2 06 87 00 00 01 00 | | ADDI.L #0x00000100,D7
000246c8 20 2e ff ee | . | MOVE.L (A6-0x12),D0
000246cc d0 ae 00 08 | | ADD.L (A6+0x8),D0
000246d0 55 4f |UO | SUBQ.L #0x2,A7
000246d2 2f 00 |/ | MOVE.L D0,-(A7)
000246d4 5b 97 |[ | SUBQ.L #0x5,(A7)
000246d6 4e 92 |N | JSR (A2)
000246d8 58 4f |XO | ADDQ.L #0x4,A7
000246da 32 1f |2 | MOVE.W (A7)+,D1
000246dc 48 c1 |H | EXTW.L D1
000246de 9e 81 | | SUB.L D1,D7
000246e0 28 07 |( | MOVE.L D7,D4
000246e2 26 3c 00 00 01 00 |&< | MOVE.L #0x100,D3
000246e8 4e b9 00 01 02 94 |N | JSR ?divs_d3_d4
000246ee 2e 03 |. | MOVE.L D3,D7
000246f0 41 fa c5 e4 |A | LEA.L 0x20cd6,A0
000246f4 72 08 |r | MOVEQ.L #0x08,D1
000246f6 3f 20 |? | MOVE.W -(A0),-(A7)
000246f8 51 c9 ff fc |Q | DBF D1,0x246f6
000246fc 51 4f |QO | SUBQ.L #0x8,A7
000246fe 2f 2e ff f2 |/. | MOVE.L (A6-0xe),-(A7)
00024702 48 78 00 08 |Hx | PEA.L 0x8
00024706 4e b9 00 01 02 f8 |N | JSR LeftPad(a : String; b : Long) : String
0002470c 58 4f |XO | ADDQ.L #0x4,A7
0002470e 48 6f 00 0c |Ho | PEA.L (A7+0xc)
00024712 3f 02 |? | MOVE.W D2,-(A7)
00024714 3f 3c 00 12 |?< | MOVE.W #0x12,-(A7)
00024718 4e 93 |N | JSR (A3)
0002471a 55 4f |UO | SUBQ.L #0x2,A7
0002471c 2f 00 |/ | MOVE.L D0,-(A7)
0002471e 59 97 |Y | SUBQ.L #0x4,(A7)
00024720 4e 92 |N | JSR (A2)
00024722 58 4f |XO | ADDQ.L #0x4,A7
00024724 32 1f |2 | MOVE.W (A7)+,D1
00024726 48 c1 |H | EXTW.L D1
00024728 2e 81 |. | MOVE.L D1,(A7)
0002472a 48 54 |HT | PEA.L (A4)
0002472c 4e b9 00 01 02 e8 |N | JSR Long2HexString(val : Long; ndig : Long) : String
00024732 55 4f |UO | SUBQ.L #0x2,A7
00024734 2f 00 |/ | MOVE.L D0,-(A7)
00024736 57 97 |W | SUBQ.L #0x3,(A7)
00024738 4e 92 |N | JSR (A2)
0002473a 58 4f |XO | ADDQ.L #0x4,A7
0002473c 32 1f |2 | MOVE.W (A7)+,D1
0002473e 48 c1 |H | EXTW.L D1
00024740 2e 81 |. | MOVE.L D1,(A7)
00024742 48 54 |HT | PEA.L (A4)
00024744 4e b9 00 01 02 e8 |N | JSR Long2HexString(val : Long; ndig : Long) : String
0002474a 55 4f |UO | SUBQ.L #0x2,A7
0002474c 2f 00 |/ | MOVE.L D0,-(A7)
0002474e 55 97 |U | SUBQ.L #0x2,(A7)
00024750 4e 92 |N | JSR (A2)
00024752 58 4f |XO | ADDQ.L #0x4,A7
00024754 32 1f |2 | MOVE.W (A7)+,D1
00024756 48 c1 |H | EXTW.L D1
00024758 2e 81 |. | MOVE.L D1,(A7)
0002475a 48 54 |HT | PEA.L (A4)
0002475c 4e b9 00 01 02 e8 |N | JSR Long2HexString(val : Long; ndig : Long) : String
00024762 50 4f |PO | ADDQ.L #0x8,A7
00024764 4e b9 00 01 02 dc |N | JSR StringCat5(a, b, c, d, e : String) : String
0002476a de c5 | | ADDA.W D5,A7
0002476c 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String)
00024772 5c 4f |\O | ADDQ.L #0x6,A7
00024774 20 4f | O | MOVEA.L A7,A0
00024776 43 fa c5 5e |C ^ | LEA.L 0x20cd6,A1
0002477a 72 0e |r | MOVEQ.L #0x0e,D1
0002477c 10 d9 | | MOVE.B (A1)+,(A0)+
0002477e 51 c9 ff fc |Q | DBF D1,0x2477c
00024782 51 4f |QO | SUBQ.L #0x8,A7
00024784 48 6f 00 08 |Ho | PEA.L (A7+0x8)
00024788 3f 02 |? | MOVE.W D2,-(A7)
0002478a 3f 3c 00 0f |?< | MOVE.W #0xf,-(A7)
0002478e 4e 93 |N | JSR (A3)
00024790 55 4f |UO | SUBQ.L #0x2,A7
00024792 53 80 |S | SUBQ.L #0x1,D0
00024794 2f 00 |/ | MOVE.L D0,-(A7)
00024796 4e 92 |N | JSR (A2)
00024798 58 4f |XO | ADDQ.L #0x4,A7
0002479a 30 1f |0 | MOVE.W (A7)+,D0
0002479c 48 c0 |H | EXTW.L D0
0002479e 2e 80 |. | MOVE.L D0,(A7)
000247a0 48 54 |HT | PEA.L (A4)
000247a2 4e b9 00 01 02 e8 |N | JSR Long2HexString(val : Long; ndig : Long) : String
000247a8 50 4f |PO | ADDQ.L #0x8,A7
000247aa 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
000247b0 50 4f |PO | ADDQ.L #0x8,A7
000247b2 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String)
000247b8 de c5 | | ADDA.W D5,A7
000247ba 0c 87 00 00 00 aa | | CMPI.L #0x000000aa,D7
000247c0 67 2e |g. | BEQ 0x247f0
000247c2 9e fc 00 16 | | SUBA.W #0x16,A7
000247c6 20 4f | O | MOVEA.L A7,A0
000247c8 43 fa c5 1c |C | LEA.L 0x20ce6,A1
000247cc 70 14 |p | MOVEQ.L #0x14,D0
000247ce 10 d9 | | MOVE.B (A1)+,(A0)+
000247d0 51 c8 ff fc |Q | DBF D0,0x247ce
000247d4 59 4f |YO | SUBQ.L #0x4,A7
000247d6 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000247da 3f 02 |? | MOVE.W D2,-(A7)
000247dc 3f 3c 00 15 |?< | MOVE.W #0x15,-(A7)
000247e0 4e 93 |N | JSR (A3)
000247e2 50 4f |PO | ADDQ.L #0x8,A7
000247e4 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
000247ea de fc 00 1a | | ADDA.W #0x1a,A7
000247ee 60 28 |`( | BRA 0x24818
000247f0 2f 3a c5 16 |/: | MOVE.L 0x20d08,-(A7)
000247f4 2f 3a c5 0e |/: | MOVE.L 0x20d04,-(A7)
000247f8 2f 3a c5 06 |/: | MOVE.L 0x20d00,-(A7)
000247fc 2f 3a c4 fe |/: | MOVE.L 0x20cfc,-(A7)
00024800 59 4f |YO | SUBQ.L #0x4,A7
00024802 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00024806 3f 02 |? | MOVE.W D2,-(A7)
00024808 3f 3c 00 10 |?< | MOVE.W #0x10,-(A7)
0002480c 4e 93 |N | JSR (A3)
0002480e 50 4f |PO | ADDQ.L #0x8,A7
00024810 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00024816 de c5 | | ADDA.W D5,A7
00024818 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
0002481c 4e 5e |N^ | UNLK A6
0002481e 4e 75 |Nu | RTS
00024820 ; --------------------------------------------------------------------------------------
00024820 ; OMSI PASCAL Function
00024820 ; <LVAR -0x004 @>
00024820 ; --------------------------------------------------------------------------------------
00024820 4e 56 ff e8 |NV | LINK.W A6,#0xffe8
00024824 bf d5 | | CMPA.L (A5),A7
00024826 62 06 |b | BHI 0x2482e
00024828 44 fc 00 02 |D | MOVE.W #0x2,CCR
0002482c 4e 76 |Nv | TRAPV
0002482e de fc 00 14 | | ADDA.W #0x14,A7
00024832 48 e7 00 c0 |H | MOVEM.L A1+A0,-(A7)
00024836 41 fa fe 1a |A | LEA.L 0x24652,A0
0002483a 43 f8 1f ff |C | LEA.L 0x1fff,A1
0002483e 3f 3c 00 21 |?< ! | MOVE.W #0x21,-(A7)
00024842 48 51 |HQ | PEA.L (A1)
00024844 4e 90 |N | JSR (A0)
00024846 58 4f |XO | ADDQ.L #0x4,A7
00024848 3e bc 00 19 |> | MOVE.W #0x19,(A7)
0002484c 48 51 |HQ | PEA.L (A1)
0002484e 4e 90 |N | JSR (A0)
00024850 58 4f |XO | ADDQ.L #0x4,A7
00024852 3e bc 00 17 |> | MOVE.W #0x17,(A7)
00024856 48 51 |HQ | PEA.L (A1)
00024858 4e 90 |N | JSR (A0)
0002485a 58 4f |XO | ADDQ.L #0x4,A7
0002485c 3e bc 00 15 |> | MOVE.W #0x15,(A7)
00024860 48 78 1d ff |Hx | PEA.L 0x1dff
00024864 4e 90 |N | JSR (A0)
00024866 58 4f |XO | ADDQ.L #0x4,A7
00024868 4e b9 00 01 06 04 |N | JSR Is_machine_type_three() : Bool
0002486e 4a 1f |J | TST.B (A7)+
00024870 66 0c |f | BNE 0x2487e
00024872 55 4f |UO | SUBQ.L #0x2,A7
00024874 4e b9 00 01 06 0a |N | JSR Is_machine_type_four() : Bool
0002487a 4a 1f |J | TST.B (A7)+
0002487c 67 48 |gH | BEQ 0x248c6
0002487e 48 78 00 00 |Hx | PEA.L 0x0
00024882 48 6e ff fc |Hn | PEA.L (A6-0x4)
00024886 4e b9 00 02 54 aa |N T | JSR 0x254aa
0002488c 50 4f |PO | ADDQ.L #0x8,A7
0002488e 48 78 00 01 |Hx | PEA.L 0x1
00024892 48 6e ff fc |Hn | PEA.L (A6-0x4)
00024896 4e b9 00 02 54 aa |N T | JSR 0x254aa
0002489c 5c 4f |\O | ADDQ.L #0x6,A7
0002489e 3e bc 00 50 |> P | MOVE.W #0x50,(A7)
000248a2 48 51 |HQ | PEA.L (A1)
000248a4 4e 90 |N | JSR (A0)
000248a6 58 4f |XO | ADDQ.L #0x4,A7
000248a8 3e bc 00 51 |> Q | MOVE.W #0x51,(A7)
000248ac 48 51 |HQ | PEA.L (A1)
000248ae 4e 90 |N | JSR (A0)
000248b0 58 4f |XO | ADDQ.L #0x4,A7
000248b2 3e bc 00 52 |> R | MOVE.W #0x52,(A7)
000248b6 48 51 |HQ | PEA.L (A1)
000248b8 4e 90 |N | JSR (A0)
000248ba 58 4f |XO | ADDQ.L #0x4,A7
000248bc 3e bc 00 53 |> S | MOVE.W #0x53,(A7)
000248c0 48 51 |HQ | PEA.L (A1)
000248c2 4e 90 |N | JSR (A0)
000248c4 5c 4f |\O | ADDQ.L #0x6,A7
000248c6 4c df 03 00 |L | MOVEM.L (A7)+,A0+A1
000248ca 4e 5e |N^ | UNLK A6
000248cc 4e 75 |Nu | RTS
000248ce ; --------------------------------------------------------------------------------------
000248ce ; OMSI PASCAL Function
000248ce ; <LVAR 0x008 4(r)>
000248ce ; <LVAR -0x004 @ 4(r)>
000248ce ; --------------------------------------------------------------------------------------
000248ce 4e 56 ff c4 |NV | LINK.W A6,#0xffc4
000248d2 bf d5 | | CMPA.L (A5),A7
000248d4 62 06 |b | BHI 0x248dc
000248d6 44 fc 00 02 |D | MOVE.W #0x2,CCR
000248da 4e 76 |Nv | TRAPV
000248dc de fc 00 38 | 8 | ADDA.W #0x38,A7
000248e0 48 e7 d8 f0 |H | MOVEM.L A3+A2+A1+A0+D4+D3+D1+D0,-(A7)
000248e4 43 fa ca ea |C | LEA.L 0x213d0,A1
000248e8 45 f9 00 01 02 8c |E | LEA.L ?muls_d3_d4,A2
000248ee 47 ec 00 04 |G | LEA.L (A4+0x4),A3
000248f2 72 01 |r | MOVEQ.L #0x01,D1
000248f4 42 ac 00 0a |B | CLR.L (A4+0xa)
000248f8 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
000248fc 42 27 |B' | CLR.B -(A7)
000248fe 1f 01 | | MOVE.B D1,-(A7)
00024900 48 78 00 00 |Hx | PEA.L 0x0
00024904 48 6c 00 08 |Hl | PEA.L (A4+0x8)
00024908 48 6e ff fc |Hn | PEA.L (A6-0x4)
0002490c 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
00024912 de fc 00 14 | | ADDA.W #0x14,A7
00024916 4a 2c 00 08 |J, | TST.B (A4+0x8)
0002491a 66 00 00 d2 |f | BNE 0x249ee
0002491e 48 53 |HS | PEA.L (A3)
00024920 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String)
00024926 2e ae ff fc |. | MOVE.L (A6-0x4),(A7)
0002492a 48 53 |HS | PEA.L (A3)
0002492c 48 6c 00 09 |Hl | PEA.L (A4+0x9)
00024930 4e b9 00 01 04 3c |N < | JSR FileReadLine(file : File; VAR a : String; VAR b : Byte)
00024936 de fc 00 0c | | ADDA.W #0xc,A7
0002493a 20 53 | S | MOVEA.L (A3),A0
0002493c 30 10 |0 | MOVE.W (A0),D0
0002493e 0c 40 00 09 | @ | CMPI.W #0x0009,D0
00024942 66 00 00 86 |f | BNE 0x249ca
00024946 10 28 00 04 | ( | MOVE.B (A0+0x4),D0
0002494a 0c 00 00 20 | | CMPI.B #0x20,D0
0002494e 66 7a |fz | BNE 0x249ca
00024950 59 4f |YO | SUBQ.L #0x4,A7
00024952 1f 28 00 05 | ( | MOVE.B (A0+0x5),-(A7)
00024956 4e 91 |N | JSR (A1)
00024958 54 4f |TO | ADDQ.L #0x2,A7
0002495a 26 1f |& | MOVE.L (A7)+,D3
0002495c 28 3c 00 10 00 00 |(< | MOVE.L #0x100000,D4
00024962 4e 92 |N | JSR (A2)
00024964 2f 04 |/ | MOVE.L D4,-(A7)
00024966 59 4f |YO | SUBQ.L #0x4,A7
00024968 1f 28 00 06 | ( | MOVE.B (A0+0x6),-(A7)
0002496c 4e 91 |N | JSR (A1)
0002496e 54 4f |TO | ADDQ.L #0x2,A7
00024970 26 1f |& | MOVE.L (A7)+,D3
00024972 28 3c 00 01 00 00 |(< | MOVE.L #0x10000,D4
00024978 4e 92 |N | JSR (A2)
0002497a 20 17 | | MOVE.L (A7),D0
0002497c d0 84 | | ADD.L D4,D0
0002497e 1f 28 00 07 | ( | MOVE.B (A0+0x7),-(A7)
00024982 4e 91 |N | JSR (A1)
00024984 54 4f |TO | ADDQ.L #0x2,A7
00024986 26 1f |& | MOVE.L (A7)+,D3
00024988 28 3c 00 00 10 00 |(< | MOVE.L #0x1000,D4
0002498e 4e 92 |N | JSR (A2)
00024990 d0 84 | | ADD.L D4,D0
00024992 59 4f |YO | SUBQ.L #0x4,A7
00024994 1f 28 00 08 | ( | MOVE.B (A0+0x8),-(A7)
00024998 4e 91 |N | JSR (A1)
0002499a 54 4f |TO | ADDQ.L #0x2,A7
0002499c 26 1f |& | MOVE.L (A7)+,D3
0002499e 28 3c 00 00 01 00 |(< | MOVE.L #0x100,D4
000249a4 4e 92 |N | JSR (A2)
000249a6 d0 84 | | ADD.L D4,D0
000249a8 59 4f |YO | SUBQ.L #0x4,A7
000249aa 1f 28 00 09 | ( | MOVE.B (A0+0x9),-(A7)
000249ae 4e 91 |N | JSR (A1)
000249b0 54 4f |TO | ADDQ.L #0x2,A7
000249b2 26 1f |& | MOVE.L (A7)+,D3
000249b4 78 10 |x | MOVEQ.L #0x10,D4
000249b6 4e 92 |N | JSR (A2)
000249b8 d0 84 | | ADD.L D4,D0
000249ba 59 4f |YO | SUBQ.L #0x4,A7
000249bc 1f 28 00 0a | ( | MOVE.B (A0+0xa),-(A7)
000249c0 4e 91 |N | JSR (A1)
000249c2 54 4f |TO | ADDQ.L #0x2,A7
000249c4 d0 9f | | ADD.L (A7)+,D0
000249c6 29 40 00 0a |)@ | MOVE.L D0,(A4+0xa)
000249ca 42 27 |B' | CLR.B -(A7)
000249cc 1f 01 | | MOVE.B D1,-(A7)
000249ce 48 78 00 01 |Hx | PEA.L 0x1
000249d2 48 6c 00 08 |Hl | PEA.L (A4+0x8)
000249d6 48 6e ff fc |Hn | PEA.L (A6-0x4)
000249da 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File)
000249e0 de fc 00 10 | | ADDA.W #0x10,A7
000249e4 48 53 |HS | PEA.L (A3)
000249e6 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String)
000249ec 58 4f |XO | ADDQ.L #0x4,A7
000249ee 4c df 0f 1b |L | MOVEM.L (A7)+,D0+D1+D3+D4+A0+A1+A2+A3
000249f2 4e 5e |N^ | UNLK A6
000249f4 4e 75 |Nu | RTS
000249f6 ; --------------------------------------------------------------------------------------
000249f6 ; OMSI PASCAL Function
000249f6 ; <LVAR 0x00c 4(r)>
000249f6 ; <LVAR 0x008 4(r)>
000249f6 ; <LVAR -0x004 @ 4(r)>
000249f6 ; --------------------------------------------------------------------------------------
000249f6 4e 56 ff d8 |NV | LINK.W A6,#0xffd8
000249fa bf d5 | | CMPA.L (A5),A7
000249fc 62 06 |b | BHI 0x24a04
000249fe 44 fc 00 02 |D | MOVE.W #0x2,CCR
00024a02 4e 76 |Nv | TRAPV
00024a04 de fc 00 24 | $ | ADDA.W #0x24,A7
00024a08 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7)
00024a0c 43 ee ff fc |C | LEA.L (A6-0x4),A1
00024a10 42 91 |B | CLR.L (A1)
00024a12 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7)
00024a16 20 49 | I | MOVEA.L A1,A0
00024a18 2f 08 |/ | MOVE.L A0,-(A7)
00024a1a 52 97 |R | ADDQ.L #0x1,(A7)
00024a1c 3f 3c 00 03 |?< | MOVE.W #0x3,-(A7)
00024a20 4e b9 00 01 02 38 |N 8 | JSR KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
00024a26 5c 4f |\O | ADDQ.L #0x6,A7
00024a28 2e 94 |. | MOVE.L (A4),(A7)
00024a2a 51 4f |QO | SUBQ.L #0x8,A7
00024a2c 2f 11 |/ | MOVE.L (A1),-(A7)
00024a2e 48 78 00 06 |Hx | PEA.L 0x6
00024a32 4e b9 00 01 02 e8 |N | JSR Long2HexString(val : Long; ndig : Long) : String
00024a38 58 4f |XO | ADDQ.L #0x4,A7
00024a3a 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7)
00024a3e 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00024a44 50 4f |PO | ADDQ.L #0x8,A7
00024a46 48 6c 00 09 |Hl | PEA.L (A4+0x9)
00024a4a 4e b9 00 01 04 40 |N @ | JSR FSCALL_10440
00024a50 de fc 00 0c | | ADDA.W #0xc,A7
00024a54 20 11 | | MOVE.L (A1),D0
00024a56 b0 ac 00 0a | | CMP.L (A4+0xa),D0
00024a5a 64 08 |d | BCC 0x24a64
00024a5c 20 6c 00 18 | l | MOVEA.L (A4+0x18),A0
00024a60 10 bc 00 01 | | MOVE.B #0x01,(A0)
00024a64 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1
00024a68 4e 5e |N^ | UNLK A6
00024a6a 4e 75 |Nu | RTS
00024a6c ; --------------------------------------------------------------------------------------
00024a6c ; OMSI PASCAL Function
00024a6c ; <LVAR 0x008 4(r)>
00024a6c ; <LVAR -0x006 4(r)>
00024a6c ; <LVAR -0x007 @>
00024a6c ; <LVAR -0x008 @>
00024a6c ; <LVAR -0x00c 4(rw)>
00024a6c ; <LVAR -0x010 @ 4(r)>
00024a6c ; --------------------------------------------------------------------------------------
00024a6c 4e 56 ff 5e |NV ^ | LINK.W A6,#0xff5e
00024a70 bf d5 | | CMPA.L (A5),A7
00024a72 62 06 |b | BHI 0x24a7a
00024a74 44 fc 00 02 |D | MOVE.W #0x2,CCR
00024a78 4e 76 |Nv | TRAPV
00024a7a de fc 00 92 | | ADDA.W #0x92,A7
00024a7e 48 e7 fe f8 |H | MOVEM.L A4+A3+A2+A1+A0+D6+D5+D4+D3+D2+D1+D0,-(A7)
00024a82 47 ee ff f0 |G | LEA.L (A6-0x10),A3
00024a86 72 01 |r | MOVEQ.L #0x01,D1
00024a88 74 0c |t | MOVEQ.L #0x0c,D2
00024a8a 76 0b |v | MOVEQ.L #0x0b,D3
00024a8c 78 14 |x | MOVEQ.L #0x14,D4
00024a8e 7a 0d |z | MOVEQ.L #0x0d,D5
00024a90 7c 10 || | MOVEQ.L #0x10,D6
00024a92 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0
00024a96 2f 08 |/ | MOVE.L A0,-(A7)
00024a98 42 10 |B | CLR.B (A0)
00024a9a 9e c2 | | SUBA.W D2,A7
00024a9c 22 4f |"O | MOVEA.L A7,A1
00024a9e 45 fa c2 6c |E l | LEA.L 0x20d0c,A2
00024aa2 70 0a |p | MOVEQ.L #0x0a,D0
00024aa4 12 da | | MOVE.B (A2)+,(A1)+
00024aa6 51 c8 ff fc |Q | DBF D0,0x24aa4
00024aaa 59 4f |YO | SUBQ.L #0x4,A7
00024aac 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00024ab0 3f 01 |? | MOVE.W D1,-(A7)
00024ab2 3f 03 |? | MOVE.W D3,-(A7)
00024ab4 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00024aba 5c 4f |\O | ADDQ.L #0x6,A7
00024abc 1e 81 | | MOVE.B D1,(A7)
00024abe 1f 01 | | MOVE.B D1,-(A7)
00024ac0 48 78 00 01 |Hx | PEA.L 0x1
00024ac4 48 6e ff f8 |Hn | PEA.L (A6-0x8)
00024ac8 48 53 |HS | PEA.L (A3)
00024aca 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
00024ad0 de fc 00 1c | | ADDA.W #0x1c,A7
00024ad4 2e b9 00 02 97 54 |. T | MOVE.L 0x29754,(A7)
00024ada 28 4b |(K | MOVEA.L A3,A4
00024adc 4e ba fd f0 |N | JSR 0x248ce
00024ae0 9e c2 | | SUBA.W D2,A7
00024ae2 22 4f |"O | MOVEA.L A7,A1
00024ae4 45 fa c2 32 |E 2 | LEA.L 0x20d18,A2
00024ae8 70 0e |p | MOVEQ.L #0x0e,D0
00024aea 12 da | | MOVE.B (A2)+,(A1)+
00024aec 51 c8 ff fc |Q | DBF D0,0x24aea
00024af0 2f 3c 80 00 1f fb |/< | MOVE.L #0x80001ffb,-(A7)
00024af6 59 4f |YO | SUBQ.L #0x4,A7
00024af8 48 6f 00 08 |Ho | PEA.L (A7+0x8)
00024afc 3f 01 |? | MOVE.W D1,-(A7)
00024afe 3f 3c 00 0f |?< | MOVE.W #0xf,-(A7)
00024b02 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00024b08 50 4f |PO | ADDQ.L #0x8,A7
00024b0a 28 4b |(K | MOVEA.L A3,A4
00024b0c 4e ba fe e8 |N | JSR 0x249f6
00024b10 de c2 | | ADDA.W D2,A7
00024b12 22 4f |"O | MOVEA.L A7,A1
00024b14 45 fa c2 12 |E | LEA.L 0x20d28,A2
00024b18 70 0a |p | MOVEQ.L #0x0a,D0
00024b1a 12 da | | MOVE.B (A2)+,(A1)+
00024b1c 51 c8 ff fc |Q | DBF D0,0x24b1a
00024b20 2f 3c 80 00 3f fb |/< ? | MOVE.L #0x80003ffb,-(A7)
00024b26 59 4f |YO | SUBQ.L #0x4,A7
00024b28 48 6f 00 08 |Ho | PEA.L (A7+0x8)
00024b2c 3f 01 |? | MOVE.W D1,-(A7)
00024b2e 3f 03 |? | MOVE.W D3,-(A7)
00024b30 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00024b36 50 4f |PO | ADDQ.L #0x8,A7
00024b38 28 4b |(K | MOVEA.L A3,A4
00024b3a 4e ba fe ba |N | JSR 0x249f6
00024b3e 50 4f |PO | ADDQ.L #0x8,A7
00024b40 22 4f |"O | MOVEA.L A7,A1
00024b42 45 fa c1 f0 |E | LEA.L 0x20d34,A2
00024b46 70 0a |p | MOVEQ.L #0x0a,D0
00024b48 12 da | | MOVE.B (A2)+,(A1)+
00024b4a 51 c8 ff fc |Q | DBF D0,0x24b48
00024b4e 2f 3c 80 00 5f fb |/< _ | MOVE.L #0x80005ffb,-(A7)
00024b54 59 4f |YO | SUBQ.L #0x4,A7
00024b56 48 6f 00 08 |Ho | PEA.L (A7+0x8)
00024b5a 3f 01 |? | MOVE.W D1,-(A7)
00024b5c 3f 03 |? | MOVE.W D3,-(A7)
00024b5e 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00024b64 50 4f |PO | ADDQ.L #0x8,A7
00024b66 28 4b |(K | MOVEA.L A3,A4
00024b68 4e ba fe 8c |N | JSR 0x249f6
00024b6c 50 4f |PO | ADDQ.L #0x8,A7
00024b6e 22 4f |"O | MOVEA.L A7,A1
00024b70 45 fa c1 ce |E | LEA.L 0x20d40,A2
00024b74 70 0a |p | MOVEQ.L #0x0a,D0
00024b76 12 da | | MOVE.B (A2)+,(A1)+
00024b78 51 c8 ff fc |Q | DBF D0,0x24b76
00024b7c 2f 3c 80 00 7d fb |/< } | MOVE.L #0x80007dfb,-(A7)
00024b82 59 4f |YO | SUBQ.L #0x4,A7
00024b84 48 6f 00 08 |Ho | PEA.L (A7+0x8)
00024b88 3f 01 |? | MOVE.W D1,-(A7)
00024b8a 3f 03 |? | MOVE.W D3,-(A7)
00024b8c 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00024b92 50 4f |PO | ADDQ.L #0x8,A7
00024b94 28 4b |(K | MOVEA.L A3,A4
00024b96 4e ba fe 5e |N ^ | JSR 0x249f6
00024b9a de c4 | | ADDA.W D4,A7
00024b9c 4a ae ff fa |J | TST.L (A6-0x6)
00024ba0 66 4c |fL | BNE 0x24bee
00024ba2 9e fc 00 4c | L | SUBA.W #0x4c,A7
00024ba6 20 4f | O | MOVEA.L A7,A0
00024ba8 43 fa c1 a2 |C | LEA.L 0x20d4c,A1
00024bac 70 4a |pJ | MOVEQ.L #0x4a,D0
00024bae 10 d9 | | MOVE.B (A1)+,(A0)+
00024bb0 51 c8 ff fc |Q | DBF D0,0x24bae
00024bb4 59 4f |YO | SUBQ.L #0x4,A7
00024bb6 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00024bba 3f 01 |? | MOVE.W D1,-(A7)
00024bbc 3f 3c 00 4b |?< K | MOVE.W #0x4b,-(A7)
00024bc0 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00024bc6 50 4f |PO | ADDQ.L #0x8,A7
00024bc8 2d 5f ff f4 |-_ | MOVE.L (A7)+,(A6-0xc)
00024bcc de fc 00 48 | H | ADDA.W #0x48,A7
00024bd0 2e 93 |. | MOVE.L (A3),(A7)
00024bd2 2f 2e ff f4 |/. | MOVE.L (A6-0xc),-(A7)
00024bd6 48 6e ff f9 |Hn | PEA.L (A6-0x7)
00024bda 4e b9 00 01 04 40 |N @ | JSR FSCALL_10440
00024be0 50 4f |PO | ADDQ.L #0x8,A7
00024be2 2e ae ff f4 |. | MOVE.L (A6-0xc),(A7)
00024be6 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00024bec 58 4f |XO | ADDQ.L #0x4,A7
00024bee 55 4f |UO | SUBQ.L #0x2,A7
00024bf0 4e b9 00 01 06 0a |N | JSR Is_machine_type_four() : Bool
00024bf6 4a 1f |J | TST.B (A7)+
00024bf8 66 0e |f | BNE 0x24c08
00024bfa 55 4f |UO | SUBQ.L #0x2,A7
00024bfc 4e b9 00 01 06 04 |N | JSR Is_machine_type_three() : Bool
00024c02 4a 1f |J | TST.B (A7)+
00024c04 67 00 01 7c |g | | BEQ 0x24d82
00024c08 2f 39 00 02 97 58 |/9 X | MOVE.L 0x29758,-(A7)
00024c0e 28 4b |(K | MOVEA.L A3,A4
00024c10 4e ba fc bc |N | JSR 0x248ce
00024c14 9e fc 00 0a | | SUBA.W #0xa,A7
00024c18 20 4f | O | MOVEA.L A7,A0
00024c1a 43 fa c1 7c |C | | LEA.L 0x20d98,A1
00024c1e 70 0c |p | MOVEQ.L #0x0c,D0
00024c20 10 d9 | | MOVE.B (A1)+,(A0)+
00024c22 51 c8 ff fc |Q | DBF D0,0x24c20
00024c26 2f 3c 00 07 1f fb |/< | MOVE.L #0x71ffb,-(A7)
00024c2c 59 4f |YO | SUBQ.L #0x4,A7
00024c2e 48 6f 00 08 |Ho | PEA.L (A7+0x8)
00024c32 3f 01 |? | MOVE.W D1,-(A7)
00024c34 3f 05 |? | MOVE.W D5,-(A7)
00024c36 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00024c3c 50 4f |PO | ADDQ.L #0x8,A7
00024c3e 28 4b |(K | MOVEA.L A3,A4
00024c40 4e ba fd b4 |N | JSR 0x249f6
00024c44 50 4f |PO | ADDQ.L #0x8,A7
00024c46 20 4f | O | MOVEA.L A7,A0
00024c48 43 fa c1 5c |C \ | LEA.L 0x20da6,A1
00024c4c 70 0c |p | MOVEQ.L #0x0c,D0
00024c4e 10 d9 | | MOVE.B (A1)+,(A0)+
00024c50 51 c8 ff fc |Q | DBF D0,0x24c4e
00024c54 2f 3c 00 07 3f fb |/< ? | MOVE.L #0x73ffb,-(A7)
00024c5a 59 4f |YO | SUBQ.L #0x4,A7
00024c5c 48 6f 00 08 |Ho | PEA.L (A7+0x8)
00024c60 3f 01 |? | MOVE.W D1,-(A7)
00024c62 3f 05 |? | MOVE.W D5,-(A7)
00024c64 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00024c6a 50 4f |PO | ADDQ.L #0x8,A7
00024c6c 28 4b |(K | MOVEA.L A3,A4
00024c6e 4e ba fd 86 |N | JSR 0x249f6
00024c72 de fc 00 12 | | ADDA.W #0x12,A7
00024c76 2e ba c1 44 |. D | MOVE.L 0x20dbc,(A7)
00024c7a 2f 3a c1 3c |/: < | MOVE.L 0x20db8,-(A7)
00024c7e 2f 3a c1 34 |/: 4 | MOVE.L 0x20db4,-(A7)
00024c82 2f 3c 00 07 5f fb |/< _ | MOVE.L #0x75ffb,-(A7)
00024c88 59 4f |YO | SUBQ.L #0x4,A7
00024c8a 48 6f 00 08 |Ho | PEA.L (A7+0x8)
00024c8e 3f 01 |? | MOVE.W D1,-(A7)
00024c90 3f 02 |? | MOVE.W D2,-(A7)
00024c92 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00024c98 50 4f |PO | ADDQ.L #0x8,A7
00024c9a 28 4b |(K | MOVEA.L A3,A4
00024c9c 4e ba fd 58 |N X | JSR 0x249f6
00024ca0 de c6 | | ADDA.W D6,A7
00024ca2 2e ba c1 24 |. $ | MOVE.L 0x20dc8,(A7)
00024ca6 2f 3a c1 1c |/: | MOVE.L 0x20dc4,-(A7)
00024caa 2f 3a c1 14 |/: | MOVE.L 0x20dc0,-(A7)
00024cae 2f 3c 00 07 7f fb |/< | MOVE.L #0x77ffb,-(A7)
00024cb4 59 4f |YO | SUBQ.L #0x4,A7
00024cb6 48 6f 00 08 |Ho | PEA.L (A7+0x8)
00024cba 3f 01 |? | MOVE.W D1,-(A7)
00024cbc 3f 02 |? | MOVE.W D2,-(A7)
00024cbe 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00024cc4 50 4f |PO | ADDQ.L #0x8,A7
00024cc6 28 4b |(K | MOVEA.L A3,A4
00024cc8 4e ba fd 2c |N , | JSR 0x249f6
00024ccc de c4 | | ADDA.W D4,A7
00024cce 4a ae ff fa |J | TST.L (A6-0x6)
00024cd2 66 4c |fL | BNE 0x24d20
00024cd4 9e fc 00 4e | N | SUBA.W #0x4e,A7
00024cd8 20 4f | O | MOVEA.L A7,A0
00024cda 43 fa c0 f0 |C | LEA.L 0x20dcc,A1
00024cde 70 4c |pL | MOVEQ.L #0x4c,D0
00024ce0 10 d9 | | MOVE.B (A1)+,(A0)+
00024ce2 51 c8 ff fc |Q | DBF D0,0x24ce0
00024ce6 59 4f |YO | SUBQ.L #0x4,A7
00024ce8 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00024cec 3f 01 |? | MOVE.W D1,-(A7)
00024cee 3f 3c 00 4d |?< M | MOVE.W #0x4d,-(A7)
00024cf2 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00024cf8 50 4f |PO | ADDQ.L #0x8,A7
00024cfa 2d 5f ff f4 |-_ | MOVE.L (A7)+,(A6-0xc)
00024cfe de fc 00 4a | J | ADDA.W #0x4a,A7
00024d02 2e 93 |. | MOVE.L (A3),(A7)
00024d04 2f 2e ff f4 |/. | MOVE.L (A6-0xc),-(A7)
00024d08 48 6e ff f9 |Hn | PEA.L (A6-0x7)
00024d0c 4e b9 00 01 04 40 |N @ | JSR FSCALL_10440
00024d12 50 4f |PO | ADDQ.L #0x8,A7
00024d14 2e ae ff f4 |. | MOVE.L (A6-0xc),(A7)
00024d18 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00024d1e 58 4f |XO | ADDQ.L #0x4,A7
00024d20 20 57 | W | MOVEA.L (A7),A0
00024d22 4a 10 |J | TST.B (A0)
00024d24 67 5c |g\ | BEQ 0x24d82
00024d26 55 4f |UO | SUBQ.L #0x2,A7
00024d28 4e b9 00 02 54 02 |N T | JSR 0x25402
00024d2e 4a 1f |J | TST.B (A7)+
00024d30 67 50 |gP | BEQ 0x24d82
00024d32 9e fc 00 42 | B | SUBA.W #0x42,A7
00024d36 20 4f | O | MOVEA.L A7,A0
00024d38 43 fa c0 e0 |C | LEA.L 0x20e1a,A1
00024d3c 70 40 |p@ | MOVEQ.L #0x40,D0
00024d3e 10 d9 | | MOVE.B (A1)+,(A0)+
00024d40 51 c8 ff fc |Q | DBF D0,0x24d3e
00024d44 59 4f |YO | SUBQ.L #0x4,A7
00024d46 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00024d4a 3f 01 |? | MOVE.W D1,-(A7)
00024d4c 3f 3c 00 41 |?< A | MOVE.W #0x41,-(A7)
00024d50 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00024d56 50 4f |PO | ADDQ.L #0x8,A7
00024d58 2d 5f ff f4 |-_ | MOVE.L (A7)+,(A6-0xc)
00024d5c de fc 00 3e | > | ADDA.W #0x3e,A7
00024d60 2e 93 |. | MOVE.L (A3),(A7)
00024d62 2f 2e ff f4 |/. | MOVE.L (A6-0xc),-(A7)
00024d66 48 6e ff f9 |Hn | PEA.L (A6-0x7)
00024d6a 4e b9 00 01 04 40 |N @ | JSR FSCALL_10440
00024d70 50 4f |PO | ADDQ.L #0x8,A7
00024d72 2e ae ff f4 |. | MOVE.L (A6-0xc),(A7)
00024d76 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00024d7c 58 4f |XO | ADDQ.L #0x4,A7
00024d7e 20 57 | W | MOVEA.L (A7),A0
00024d80 42 10 |B | CLR.B (A0)
00024d82 2e 93 |. | MOVE.L (A3),(A7)
00024d84 4e b9 00 01 04 48 |N H | JSR FSCALL_10448
00024d8a 54 4f |TO | ADDQ.L #0x2,A7
00024d8c 42 17 |B | CLR.B (A7)
00024d8e 1f 01 | | MOVE.B D1,-(A7)
00024d90 48 78 00 01 |Hx | PEA.L 0x1
00024d94 48 6e ff f8 |Hn | PEA.L (A6-0x8)
00024d98 48 53 |HS | PEA.L (A3)
00024d9a 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File)
00024da0 de c6 | | ADDA.W D6,A7
00024da2 4c df 1f 7f |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+A0+A1+A2+A3+A4
00024da6 4e 5e |N^ | UNLK A6
00024da8 4e 75 |Nu | RTS
00024daa ; --------------------------------------------------------------------------------------
00024daa ; OMSI PASCAL Function
00024daa ; --------------------------------------------------------------------------------------
00024daa START:
00024daa 4f fa 00 08 |O | LEA.L MAIN,A7
00024dae 4e f9 00 01 02 80 |N | JMP ?start_program
00024db4 MAIN:
00024db4 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2
00024dba 47 f9 00 02 97 54 |G T | LEA.L 0x29754,A3
00024dc0 49 f9 00 02 97 64 |I d | LEA.L 0x29764,A4
00024dc6 76 01 |v | MOVEQ.L #0x01,D3
00024dc8 78 0e |x | MOVEQ.L #0x0e,D4
00024dca 7a 2e |z. | MOVEQ.L #0x2e,D5
00024dcc 7c 0d || | MOVEQ.L #0x0d,D6
00024dce 7e 0c |~ | MOVEQ.L #0x0c,D7
00024dd0 55 4f |UO | SUBQ.L #0x2,A7
00024dd2 4e b9 00 01 06 0a |N | JSR Is_machine_type_four() : Bool
00024dd8 4a 1f |J | TST.B (A7)+
00024dda 66 0c |f | BNE 0x24de8
00024ddc 55 4f |UO | SUBQ.L #0x2,A7
00024dde 4e b9 00 01 06 04 |N | JSR Is_machine_type_three() : Bool
00024de4 4a 1f |J | TST.B (A7)+
00024de6 67 32 |g2 | BEQ 0x24e1a
00024de8 9e c4 | | SUBA.W D4,A7
00024dea 20 4f | O | MOVEA.L A7,A0
00024dec 43 fa c2 d8 |C | LEA.L 0x210c6,A1
00024df0 70 0c |p | MOVEQ.L #0x0c,D0
00024df2 10 d9 | | MOVE.B (A1)+,(A0)+
00024df4 51 c8 ff fc |Q | DBF D0,0x24df2
00024df8 59 4f |YO | SUBQ.L #0x4,A7
00024dfa 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00024dfe 3f 03 |? | MOVE.W D3,-(A7)
00024e00 3f 06 |? | MOVE.W D6,-(A7)
00024e02 4e 92 |N | JSR (A2)
00024e04 50 4f |PO | ADDQ.L #0x8,A7
00024e06 26 9f |& | MOVE.L (A7)+,(A3)
00024e08 55 4f |UO | SUBQ.L #0x2,A7
00024e0a 20 4f | O | MOVEA.L A7,A0
00024e0c 43 fa c2 c6 |C | LEA.L 0x210d4,A1
00024e10 70 0e |p | MOVEQ.L #0x0e,D0
00024e12 10 d9 | | MOVE.B (A1)+,(A0)+
00024e14 51 c8 ff fc |Q | DBF D0,0x24e12
00024e18 60 30 |`0 | BRA 0x24e4a
00024e1a 9e c4 | | SUBA.W D4,A7
00024e1c 20 4f | O | MOVEA.L A7,A0
00024e1e 43 fa c2 c4 |C | LEA.L 0x210e4,A1
00024e22 70 0c |p | MOVEQ.L #0x0c,D0
00024e24 10 d9 | | MOVE.B (A1)+,(A0)+
00024e26 51 c8 ff fc |Q | DBF D0,0x24e24
00024e2a 59 4f |YO | SUBQ.L #0x4,A7
00024e2c 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00024e30 3f 03 |? | MOVE.W D3,-(A7)
00024e32 3f 06 |? | MOVE.W D6,-(A7)
00024e34 4e 92 |N | JSR (A2)
00024e36 50 4f |PO | ADDQ.L #0x8,A7
00024e38 26 9f |& | MOVE.L (A7)+,(A3)
00024e3a 55 4f |UO | SUBQ.L #0x2,A7
00024e3c 20 4f | O | MOVEA.L A7,A0
00024e3e 43 fa c2 b2 |C | LEA.L 0x210f2,A1
00024e42 70 0e |p | MOVEQ.L #0x0e,D0
00024e44 10 d9 | | MOVE.B (A1)+,(A0)+
00024e46 51 c8 ff fc |Q | DBF D0,0x24e44
00024e4a 59 4f |YO | SUBQ.L #0x4,A7
00024e4c 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00024e50 3f 03 |? | MOVE.W D3,-(A7)
00024e52 3f 3c 00 0f |?< | MOVE.W #0xf,-(A7)
00024e56 4e 92 |N | JSR (A2)
00024e58 50 4f |PO | ADDQ.L #0x8,A7
00024e5a 23 df 00 02 97 58 |# X | MOVE.L (A7)+,0x29758
00024e60 de fc 00 10 | | ADDA.W #0x10,A7
00024e64 59 4f |YO | SUBQ.L #0x4,A7
00024e66 4e b9 00 01 03 c4 |N | JSR GetArgv() : String
00024e6c 23 d7 00 02 97 68 |# h | MOVE.L (A7),0x29768
00024e72 51 4f |QO | SUBQ.L #0x8,A7
00024e74 20 4f | O | MOVEA.L A7,A0
00024e76 43 fa c2 8a |C | LEA.L 0x21102,A1
00024e7a 70 0a |p | MOVEQ.L #0x0a,D0
00024e7c 10 d9 | | MOVE.B (A1)+,(A0)+
00024e7e 51 c8 ff fc |Q | DBF D0,0x24e7c
00024e82 55 4f |UO | SUBQ.L #0x2,A7
00024e84 2f 39 00 02 97 68 |/9 h | MOVE.L 0x29768,-(A7)
00024e8a 59 4f |YO | SUBQ.L #0x4,A7
00024e8c 48 6f 00 0a |Ho | PEA.L (A7+0xa)
00024e90 3f 03 |? | MOVE.W D3,-(A7)
00024e92 3f 3c 00 0b |?< | MOVE.W #0xb,-(A7)
00024e96 4e 92 |N | JSR (A2)
00024e98 50 4f |PO | ADDQ.L #0x8,A7
00024e9a 4e b9 00 01 02 c8 |N | JSR StringEqual(a, b : String) : Byte
00024ea0 50 4f |PO | ADDQ.L #0x8,A7
00024ea2 10 1f | | MOVE.B (A7)+,D0
00024ea4 48 80 |H | EXTB.W D0
00024ea6 41 83 |A | CHK.W D3,D0
00024ea8 de c7 | | ADDA.W D7,A7
00024eaa 13 c0 00 02 97 53 | S | MOVE.B D0,0x29753
00024eb0 51 4f |QO | SUBQ.L #0x8,A7
00024eb2 20 4f | O | MOVEA.L A7,A0
00024eb4 43 fa c2 58 |C X | LEA.L 0x2110e,A1
00024eb8 70 06 |p | MOVEQ.L #0x06,D0
00024eba 10 d9 | | MOVE.B (A1)+,(A0)+
00024ebc 51 c8 ff fc |Q | DBF D0,0x24eba
00024ec0 55 4f |UO | SUBQ.L #0x2,A7
00024ec2 2f 39 00 02 97 68 |/9 h | MOVE.L 0x29768,-(A7)
00024ec8 59 4f |YO | SUBQ.L #0x4,A7
00024eca 48 6f 00 0a |Ho | PEA.L (A7+0xa)
00024ece 3f 03 |? | MOVE.W D3,-(A7)
00024ed0 3f 3c 00 07 |?< | MOVE.W #0x7,-(A7)
00024ed4 4e 92 |N | JSR (A2)
00024ed6 50 4f |PO | ADDQ.L #0x8,A7
00024ed8 4e b9 00 01 02 c8 |N | JSR StringEqual(a, b : String) : Byte
00024ede 50 4f |PO | ADDQ.L #0x8,A7
00024ee0 10 1f | | MOVE.B (A7)+,D0
00024ee2 48 80 |H | EXTB.W D0
00024ee4 41 83 |A | CHK.W D3,D0
00024ee6 50 4f |PO | ADDQ.L #0x8,A7
00024ee8 13 c0 00 02 97 52 | R | MOVE.B D0,0x29752
00024eee 41 fa b2 42 |A B | LEA.L 0x20132,A0
00024ef2 70 09 |p | MOVEQ.L #0x09,D0
00024ef4 2f 20 |/ | MOVE.L -(A0),-(A7)
00024ef6 51 c8 ff fc |Q | DBF D0,0x24ef4
00024efa 59 4f |YO | SUBQ.L #0x4,A7
00024efc 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00024f00 3f 03 |? | MOVE.W D3,-(A7)
00024f02 3f 3c 00 28 |?< ( | MOVE.W #0x28,-(A7)
00024f06 4e 92 |N | JSR (A2)
00024f08 50 4f |PO | ADDQ.L #0x8,A7
00024f0a 28 9f |( | MOVE.L (A7)+,(A4)
00024f0c de fc 00 28 | ( | ADDA.W #0x28,A7
00024f10 20 54 | T | MOVEA.L (A4),A0
00024f12 30 10 |0 | MOVE.W (A0),D0
00024f14 48 c0 |H | EXTW.L D0
00024f16 2f 00 |/ | MOVE.L D0,-(A7)
00024f18 70 01 |p | MOVEQ.L #0x01,D0
00024f1a b0 97 | | CMP.L (A7),D0
00024f1c 6e 32 |n2 | BGT 0x24f50
00024f1e 23 c0 00 02 97 6c |# l | MOVE.L D0,0x2976c
00024f24 20 54 | T | MOVEA.L (A4),A0
00024f26 22 00 |" | MOVE.L D0,D1
00024f28 53 81 |S | SUBQ.L #0x1,D1
00024f2a 0c 81 00 00 00 7d | } | CMPI.L #0x0000007d,D1
00024f30 63 02 |c | BLS 0x24f34
00024f32 4e 4f |NO | TRAP #15
00024f34 0c 80 00 00 00 04 | | CMPI.L #0x00000004,D0
00024f3a 6f 0a |o | BLE 0x24f46
00024f3c 14 30 18 02 | 0 | MOVE.B (A0+D1.L+#0x2),D2
00024f40 0c 02 00 2c | , | CMPI.B #0x2c,D2
00024f44 66 06 |f | BNE 0x24f4c
00024f46 11 bc 00 20 18 02 | | MOVE.B #0x20,(A0+D1.L+#0x2)
00024f4c 52 80 |R | ADDQ.L #0x1,D0
00024f4e 68 ca |h | BVC 0x24f1a
00024f50 58 4f |XO | ADDQ.L #0x4,A7
00024f52 4a 39 00 02 97 53 |J9 S | TST.B 0x29753
00024f58 67 68 |gh | BEQ 0x24fc2
00024f5a 4e b9 00 01 03 98 |N | JSR FSCALL_10398
00024f60 48 79 00 02 97 70 |Hy p | PEA.L 0x29770
00024f66 4e ba fb 04 |N | JSR 0x24a6c
00024f6a 58 4f |XO | ADDQ.L #0x4,A7
00024f6c 4a 39 00 02 97 70 |J9 p | TST.B 0x29770
00024f72 66 0e |f | BNE 0x24f82
00024f74 42 27 |B' | CLR.B -(A7)
00024f76 48 78 00 01 |Hx | PEA.L 0x1
00024f7a 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String)
00024f80 5c 4f |\O | ADDQ.L #0x6,A7
00024f82 2f 14 |/ | MOVE.L (A4),-(A7)
00024f84 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00024f8a 58 4f |XO | ADDQ.L #0x4,A7
00024f8c 41 fa c1 b8 |A | LEA.L 0x21146,A0
00024f90 70 0b |p | MOVEQ.L #0x0b,D0
00024f92 2f 20 |/ | MOVE.L -(A0),-(A7)
00024f94 51 c8 ff fc |Q | DBF D0,0x24f92
00024f98 59 4f |YO | SUBQ.L #0x4,A7
00024f9a 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00024f9e 3f 03 |? | MOVE.W D3,-(A7)
00024fa0 3f 3c 00 30 |?< 0 | MOVE.W #0x30,-(A7)
00024fa4 4e 92 |N | JSR (A2)
00024fa6 50 4f |PO | ADDQ.L #0x8,A7
00024fa8 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00024fae de fc 00 34 | 4 | ADDA.W #0x34,A7
00024fb2 4e ba f1 60 |N ` | JSR 0x24114
00024fb6 1f 3c 00 20 | < | MOVE.B #0x20,-(A7)
00024fba 4e b9 00 01 05 da |N | JSR EmergencyStop(boot_reason_code : Byte)
00024fc0 54 4f |TO | ADDQ.L #0x2,A7
00024fc2 4a 39 00 02 97 52 |J9 R | TST.B 0x29752
00024fc8 67 00 00 86 |g | BEQ 0x25050
00024fcc 30 39 00 01 00 08 |09 | MOVE.W 0x10008,D0
00024fd2 41 bc 00 0f |A | CHK.W #0xf,D0
00024fd6 3f 00 |? | MOVE.W D0,-(A7)
00024fd8 48 79 00 02 57 30 |Hy W0 | PEA.L 0x25730
00024fde 4e b9 00 01 03 94 |N | JSR MountDisk(drive : Word ; VAR status : Byte)
00024fe4 5c 4f |\O | ADDQ.L #0x6,A7
00024fe6 4a 39 00 02 57 30 |J9 W0 | TST.B 0x25730
00024fec 67 24 |g$ | BEQ 0x25012
00024fee 59 4f |YO | SUBQ.L #0x4,A7
00024ff0 1f 39 00 02 57 30 | 9 W0 | MOVE.B 0x25730,-(A7)
00024ff6 4e b9 00 01 03 a0 |N | JSR FsErrMsgStr(err: Byte) : String
00024ffc 54 4f |TO | ADDQ.L #0x2,A7
00024ffe 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00025004 58 4f |XO | ADDQ.L #0x4,A7
00025006 48 78 00 0f |Hx | PEA.L 0xf
0002500a 4e b9 00 01 02 20 |N | JSR KC10_Panic(code : Long)
00025010 58 4f |XO | ADDQ.L #0x4,A7
00025012 2f 14 |/ | MOVE.L (A4),-(A7)
00025014 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
0002501a 58 4f |XO | ADDQ.L #0x4,A7
0002501c 4e ba f0 f6 |N | JSR 0x24114
00025020 41 fa c1 52 |A R | LEA.L 0x21174,A0
00025024 70 16 |p | MOVEQ.L #0x16,D0
00025026 3f 20 |? | MOVE.W -(A0),-(A7)
00025028 51 c8 ff fc |Q | DBF D0,0x25026
0002502c 59 4f |YO | SUBQ.L #0x4,A7
0002502e 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00025032 3f 03 |? | MOVE.W D3,-(A7)
00025034 3f 05 |? | MOVE.W D5,-(A7)
00025036 4e 92 |N | JSR (A2)
00025038 50 4f |PO | ADDQ.L #0x8,A7
0002503a 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00025040 de fc 00 30 | 0 | ADDA.W #0x30,A7
00025044 1e bc 00 19 | | MOVE.B #0x19,(A7)
00025048 4e b9 00 01 05 da |N | JSR EmergencyStop(boot_reason_code : Byte)
0002504e 54 4f |TO | ADDQ.L #0x2,A7
00025050 4e b9 00 01 03 98 |N | JSR FSCALL_10398
00025056 2f 14 |/ | MOVE.L (A4),-(A7)
00025058 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
0002505e 58 4f |XO | ADDQ.L #0x4,A7
00025060 2f 3a c1 1a |/: | MOVE.L 0x2117c,-(A7)
00025064 2f 3a c1 12 |/: | MOVE.L 0x21178,-(A7)
00025068 2f 3a c1 0a |/: | MOVE.L 0x21174,-(A7)
0002506c 59 4f |YO | SUBQ.L #0x4,A7
0002506e 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00025072 3f 03 |? | MOVE.W D3,-(A7)
00025074 3f 07 |? | MOVE.W D7,-(A7)
00025076 4e 92 |N | JSR (A2)
00025078 50 4f |PO | ADDQ.L #0x8,A7
0002507a 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00025080 54 4f |TO | ADDQ.L #0x2,A7
00025082 20 4f | O | MOVEA.L A7,A0
00025084 43 fa bd d6 |C | LEA.L 0x20e5c,A1
00025088 70 0c |p | MOVEQ.L #0x0c,D0
0002508a 10 d9 | | MOVE.B (A1)+,(A0)+
0002508c 51 c8 ff fc |Q | DBF D0,0x2508a
00025090 59 4f |YO | SUBQ.L #0x4,A7
00025092 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00025096 3f 03 |? | MOVE.W D3,-(A7)
00025098 3f 06 |? | MOVE.W D6,-(A7)
0002509a 4e 92 |N | JSR (A2)
0002509c 50 4f |PO | ADDQ.L #0x8,A7
0002509e 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
000250a4 de fc 00 12 | | ADDA.W #0x12,A7
000250a8 41 fa bd e2 |A | LEA.L 0x20e8c,A0
000250ac 70 10 |p | MOVEQ.L #0x10,D0
000250ae 3f 20 |? | MOVE.W -(A0),-(A7)
000250b0 51 c8 ff fc |Q | DBF D0,0x250ae
000250b4 59 4f |YO | SUBQ.L #0x4,A7
000250b6 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000250ba 3f 03 |? | MOVE.W D3,-(A7)
000250bc 3f 3c 00 22 |?< " | MOVE.W #0x22,-(A7)
000250c0 4e 92 |N | JSR (A2)
000250c2 50 4f |PO | ADDQ.L #0x8,A7
000250c4 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
000250ca de fc 00 26 | & | ADDA.W #0x26,A7
000250ce 41 fa bd f2 |A | LEA.L 0x20ec2,A0
000250d2 70 1a |p | MOVEQ.L #0x1a,D0
000250d4 3f 20 |? | MOVE.W -(A0),-(A7)
000250d6 51 c8 ff fc |Q | DBF D0,0x250d4
000250da 59 4f |YO | SUBQ.L #0x4,A7
000250dc 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000250e0 3f 03 |? | MOVE.W D3,-(A7)
000250e2 3f 3c 00 36 |?< 6 | MOVE.W #0x36,-(A7)
000250e6 4e 92 |N | JSR (A2)
000250e8 50 4f |PO | ADDQ.L #0x8,A7
000250ea 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
000250f0 de fc 00 38 | 8 | ADDA.W #0x38,A7
000250f4 4e b9 00 01 06 0a |N | JSR Is_machine_type_four() : Bool
000250fa 4a 1f |J | TST.B (A7)+
000250fc 66 0e |f | BNE 0x2510c
000250fe 55 4f |UO | SUBQ.L #0x2,A7
00025100 4e b9 00 01 06 04 |N | JSR Is_machine_type_three() : Bool
00025106 4a 1f |J | TST.B (A7)+
00025108 67 00 01 36 |g 6 | BEQ 0x25240
0002510c 9e fc 00 3c | < | SUBA.W #0x3c,A7
00025110 20 4f | O | MOVEA.L A7,A0
00025112 43 fa bd e0 |C | LEA.L 0x20ef4,A1
00025116 70 3a |p: | MOVEQ.L #0x3a,D0
00025118 10 d9 | | MOVE.B (A1)+,(A0)+
0002511a 51 c8 ff fc |Q | DBF D0,0x25118
0002511e 59 4f |YO | SUBQ.L #0x4,A7
00025120 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00025124 3f 03 |? | MOVE.W D3,-(A7)
00025126 3f 3c 00 3b |?< ; | MOVE.W #0x3b,-(A7)
0002512a 4e 92 |N | JSR (A2)
0002512c 50 4f |PO | ADDQ.L #0x8,A7
0002512e 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00025134 de fc 00 12 | | ADDA.W #0x12,A7
00025138 20 4f | O | MOVEA.L A7,A0
0002513a 43 fa bd f4 |C | LEA.L 0x20f30,A1
0002513e 70 2c |p, | MOVEQ.L #0x2c,D0
00025140 10 d9 | | MOVE.B (A1)+,(A0)+
00025142 51 c8 ff fc |Q | DBF D0,0x25140
00025146 51 4f |QO | SUBQ.L #0x8,A7
00025148 48 6f 00 08 |Ho | PEA.L (A7+0x8)
0002514c 3f 03 |? | MOVE.W D3,-(A7)
0002514e 3f 3c 00 2d |?< - | MOVE.W #0x2d,-(A7)
00025152 4e 92 |N | JSR (A2)
00025154 2e 93 |. | MOVE.L (A3),(A7)
00025156 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String
0002515c 58 4f |XO | ADDQ.L #0x4,A7
0002515e 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00025164 50 4f |PO | ADDQ.L #0x8,A7
00025166 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
0002516c 58 4f |XO | ADDQ.L #0x4,A7
0002516e 20 4f | O | MOVEA.L A7,A0
00025170 43 fa bd ec |C | LEA.L 0x20f5e,A1
00025174 70 2c |p, | MOVEQ.L #0x2c,D0
00025176 10 d9 | | MOVE.B (A1)+,(A0)+
00025178 51 c8 ff fc |Q | DBF D0,0x25176
0002517c 51 4f |QO | SUBQ.L #0x8,A7
0002517e 48 6f 00 08 |Ho | PEA.L (A7+0x8)
00025182 3f 03 |? | MOVE.W D3,-(A7)
00025184 3f 3c 00 2d |?< - | MOVE.W #0x2d,-(A7)
00025188 4e 92 |N | JSR (A2)
0002518a 2e b9 00 02 97 58 |. X | MOVE.L 0x29758,(A7)
00025190 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String
00025196 58 4f |XO | ADDQ.L #0x4,A7
00025198 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
0002519e 50 4f |PO | ADDQ.L #0x8,A7
000251a0 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
000251a6 de fc 00 32 | 2 | ADDA.W #0x32,A7
000251aa 41 fa be 50 |A P | LEA.L 0x20ffc,A0
000251ae 70 0e |p | MOVEQ.L #0x0e,D0
000251b0 2f 20 |/ | MOVE.L -(A0),-(A7)
000251b2 51 c8 ff fc |Q | DBF D0,0x251b0
000251b6 59 4f |YO | SUBQ.L #0x4,A7
000251b8 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000251bc 3f 03 |? | MOVE.W D3,-(A7)
000251be 3f 3c 00 3c |?< < | MOVE.W #0x3c,-(A7)
000251c2 4e 92 |N | JSR (A2)
000251c4 50 4f |PO | ADDQ.L #0x8,A7
000251c6 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
000251cc de fc 00 40 | @ | ADDA.W #0x40,A7
000251d0 41 fa be 58 |A X | LEA.L 0x2102a,A0
000251d4 70 16 |p | MOVEQ.L #0x16,D0
000251d6 3f 20 |? | MOVE.W -(A0),-(A7)
000251d8 51 c8 ff fc |Q | DBF D0,0x251d6
000251dc 51 4f |QO | SUBQ.L #0x8,A7
000251de 48 6f 00 08 |Ho | PEA.L (A7+0x8)
000251e2 3f 03 |? | MOVE.W D3,-(A7)
000251e4 3f 05 |? | MOVE.W D5,-(A7)
000251e6 4e 92 |N | JSR (A2)
000251e8 2e 93 |. | MOVE.L (A3),(A7)
000251ea 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String
000251f0 58 4f |XO | ADDQ.L #0x4,A7
000251f2 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
000251f8 50 4f |PO | ADDQ.L #0x8,A7
000251fa 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00025200 de fc 00 32 | 2 | ADDA.W #0x32,A7
00025204 41 fa be 52 |A R | LEA.L 0x21058,A0
00025208 70 16 |p | MOVEQ.L #0x16,D0
0002520a 3f 20 |? | MOVE.W -(A0),-(A7)
0002520c 51 c8 ff fc |Q | DBF D0,0x2520a
00025210 51 4f |QO | SUBQ.L #0x8,A7
00025212 48 6f 00 08 |Ho | PEA.L (A7+0x8)
00025216 3f 03 |? | MOVE.W D3,-(A7)
00025218 3f 05 |? | MOVE.W D5,-(A7)
0002521a 4e 92 |N | JSR (A2)
0002521c 2e b9 00 02 97 58 |. X | MOVE.L 0x29758,(A7)
00025222 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String
00025228 58 4f |XO | ADDQ.L #0x4,A7
0002522a 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00025230 50 4f |PO | ADDQ.L #0x8,A7
00025232 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00025238 de fc 00 32 | 2 | ADDA.W #0x32,A7
0002523c 60 00 00 e0 |` | BRA 0x2531e
00025240 41 fa bc b2 |A | LEA.L 0x20ef4,A0
00025244 70 18 |p | MOVEQ.L #0x18,D0
00025246 3f 20 |? | MOVE.W -(A0),-(A7)
00025248 51 c8 ff fc |Q | DBF D0,0x25246
0002524c 59 4f |YO | SUBQ.L #0x4,A7
0002524e 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00025252 3f 03 |? | MOVE.W D3,-(A7)
00025254 3f 3c 00 32 |?< 2 | MOVE.W #0x32,-(A7)
00025258 4e 92 |N | JSR (A2)
0002525a 50 4f |PO | ADDQ.L #0x8,A7
0002525c 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00025262 50 4f |PO | ADDQ.L #0x8,A7
00025264 20 4f | O | MOVEA.L A7,A0
00025266 43 fa bc c8 |C | LEA.L 0x20f30,A1
0002526a 70 2c |p, | MOVEQ.L #0x2c,D0
0002526c 10 d9 | | MOVE.B (A1)+,(A0)+
0002526e 51 c8 ff fc |Q | DBF D0,0x2526c
00025272 51 4f |QO | SUBQ.L #0x8,A7
00025274 48 6f 00 08 |Ho | PEA.L (A7+0x8)
00025278 3f 03 |? | MOVE.W D3,-(A7)
0002527a 3f 3c 00 2d |?< - | MOVE.W #0x2d,-(A7)
0002527e 4e 92 |N | JSR (A2)
00025280 2e 93 |. | MOVE.L (A3),(A7)
00025282 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String
00025288 58 4f |XO | ADDQ.L #0x4,A7
0002528a 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00025290 50 4f |PO | ADDQ.L #0x8,A7
00025292 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00025298 55 4f |UO | SUBQ.L #0x2,A7
0002529a 20 4f | O | MOVEA.L A7,A0
0002529c 43 fa bc ee |C | LEA.L 0x20f8c,A1
000252a0 70 32 |p2 | MOVEQ.L #0x32,D0
000252a2 10 d9 | | MOVE.B (A1)+,(A0)+
000252a4 51 c8 ff fc |Q | DBF D0,0x252a2
000252a8 59 4f |YO | SUBQ.L #0x4,A7
000252aa 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000252ae 3f 03 |? | MOVE.W D3,-(A7)
000252b0 3f 3c 00 33 |?< 3 | MOVE.W #0x33,-(A7)
000252b4 4e 92 |N | JSR (A2)
000252b6 50 4f |PO | ADDQ.L #0x8,A7
000252b8 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
000252be de fc 00 38 | 8 | ADDA.W #0x38,A7
000252c2 41 fa bd 66 |A f | LEA.L 0x2102a,A0
000252c6 70 16 |p | MOVEQ.L #0x16,D0
000252c8 3f 20 |? | MOVE.W -(A0),-(A7)
000252ca 51 c8 ff fc |Q | DBF D0,0x252c8
000252ce 51 4f |QO | SUBQ.L #0x8,A7
000252d0 48 6f 00 08 |Ho | PEA.L (A7+0x8)
000252d4 3f 03 |? | MOVE.W D3,-(A7)
000252d6 3f 05 |? | MOVE.W D5,-(A7)
000252d8 4e 92 |N | JSR (A2)
000252da 2e 93 |. | MOVE.L (A3),(A7)
000252dc 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String
000252e2 58 4f |XO | ADDQ.L #0x4,A7
000252e4 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
000252ea 50 4f |PO | ADDQ.L #0x8,A7
000252ec 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
000252f2 9e fc 00 0a | | SUBA.W #0xa,A7
000252f6 20 4f | O | MOVEA.L A7,A0
000252f8 43 fa bd 5e |C ^ | LEA.L 0x21058,A1
000252fc 70 3a |p: | MOVEQ.L #0x3a,D0
000252fe 10 d9 | | MOVE.B (A1)+,(A0)+
00025300 51 c8 ff fc |Q | DBF D0,0x252fe
00025304 59 4f |YO | SUBQ.L #0x4,A7
00025306 48 6f 00 04 |Ho | PEA.L (A7+0x4)
0002530a 3f 03 |? | MOVE.W D3,-(A7)
0002530c 3f 3c 00 3b |?< ; | MOVE.W #0x3b,-(A7)
00025310 4e 92 |N | JSR (A2)
00025312 50 4f |PO | ADDQ.L #0x8,A7
00025314 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
0002531a de fc 00 40 | @ | ADDA.W #0x40,A7
0002531e 41 fa bd a6 |A | LEA.L 0x210c6,A0
00025322 70 18 |p | MOVEQ.L #0x18,D0
00025324 3f 20 |? | MOVE.W -(A0),-(A7)
00025326 51 c8 ff fc |Q | DBF D0,0x25324
0002532a 59 4f |YO | SUBQ.L #0x4,A7
0002532c 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00025330 3f 03 |? | MOVE.W D3,-(A7)
00025332 3f 3c 00 32 |?< 2 | MOVE.W #0x32,-(A7)
00025336 4e 92 |N | JSR (A2)
00025338 50 4f |PO | ADDQ.L #0x8,A7
0002533a 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00025340 de fc 00 36 | 6 | ADDA.W #0x36,A7
00025344 41 fa be 48 |A H | LEA.L 0x2118e,A0
00025348 70 06 |p | MOVEQ.L #0x06,D0
0002534a 3f 20 |? | MOVE.W -(A0),-(A7)
0002534c 51 c8 ff fc |Q | DBF D0,0x2534a
00025350 51 4f |QO | SUBQ.L #0x8,A7
00025352 48 6f 00 08 |Ho | PEA.L (A7+0x8)
00025356 3f 03 |? | MOVE.W D3,-(A7)
00025358 3f 04 |? | MOVE.W D4,-(A7)
0002535a 4e 92 |N | JSR (A2)
0002535c 50 4f |PO | ADDQ.L #0x8,A7
0002535e 48 78 00 00 |Hx | PEA.L 0x0
00025362 48 78 00 0a |Hx | PEA.L 0xa
00025366 4e b9 00 01 03 ec |N | JSR AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
0002536c de c7 | | ADDA.W D7,A7
0002536e 23 df 00 02 57 32 |# W2 | MOVE.L (A7)+,0x25732
00025374 de c4 | | ADDA.W D4,A7
00025376 20 39 00 02 57 32 | 9 W2 | MOVE.L 0x25732,D0
0002537c 0c 80 00 00 00 0a | | CMPI.L #0x0000000a,D0
00025382 63 02 |c | BLS 0x25386
00025384 4e 4e |NN | TRAP #14
00025386 d0 40 | @ | ADD.W D0,D0
00025388 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W
00025390 00 16 | | .CONST 0x16 ; [0x0] -> 0x253a6
00025392 00 26 | & | .CONST 0x26 ; [0x1] -> 0x253b6
00025394 00 2c | , | .CONST 0x2c ; [0x2] -> 0x253bc
00025396 00 32 | 2 | .CONST 0x32 ; [0x3] -> 0x253c2
00025398 00 3e | > | .CONST 0x3e ; [0x4] -> 0x253ce
0002539a 00 48 | H | .CONST 0x48 ; [0x5] -> 0x253d8
0002539c 00 4c | L | .CONST 0x4c ; [0x6] -> 0x253dc
0002539e 00 52 | R | .CONST 0x52 ; [0x7] -> 0x253e2
000253a0 00 5a | Z | .CONST 0x5a ; [0x8] -> 0x253ea
000253a2 00 5e | ^ | .CONST 0x5e ; [0x9] -> 0x253ee
000253a4 00 64 | d | .CONST 0x64 ; [0xa] -> 0x253f4
000253a6 switch@0x25388[0x0]:
000253a6 42 27 |B' | CLR.B -(A7)
000253a8 48 78 00 01 |Hx | PEA.L 0x1
000253ac 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String)
000253b2 5c 4f |\O | ADDQ.L #0x6,A7
000253b4 60 42 |`B | BRA 0x253f8
000253b6 switch@0x25388[0x1]:
000253b6 4e ba f1 26 |N & | JSR 0x244de
000253ba 60 3c |`< | BRA 0x253f8
000253bc switch@0x25388[0x2]:
000253bc 4e ba f4 62 |N b | JSR 0x24820
000253c0 60 36 |`6 | BRA 0x253f8
000253c2 switch@0x25388[0x3]:
000253c2 48 78 00 01 |Hx | PEA.L 0x1
000253c6 42 67 |Bg | CLR.W -(A7)
000253c8 4e ba d8 ce |N | JSR 0x22c98
000253cc 60 e4 |` | BRA 0x253b2
000253ce switch@0x25388[0x4]:
000253ce 42 27 |B' | CLR.B -(A7)
000253d0 4e ba d9 fc |N | JSR 0x22dce
000253d4 54 4f |TO | ADDQ.L #0x2,A7
000253d6 60 20 |` | BRA 0x253f8
000253d8 switch@0x25388[0x5]:
000253d8 1f 03 | | MOVE.B D3,-(A7)
000253da 60 f4 |` | BRA 0x253d0
000253dc switch@0x25388[0x6]:
000253dc 4e ba e4 50 |N P | JSR 0x2382e
000253e0 60 16 |` | BRA 0x253f8
000253e2 switch@0x25388[0x7]:
000253e2 42 27 |B' | CLR.B -(A7)
000253e4 4e ba e8 38 |N 8 | JSR 0x23c1e
000253e8 60 ea |` | BRA 0x253d4
000253ea switch@0x25388[0x8]:
000253ea 1f 03 | | MOVE.B D3,-(A7)
000253ec 60 f6 |` | BRA 0x253e4
000253ee switch@0x25388[0x9]:
000253ee 4e ba e5 f6 |N | JSR 0x239e6
000253f2 60 04 |` | BRA 0x253f8
000253f4 switch@0x25388[0xa]:
000253f4 4e ba ed 1e |N | JSR 0x24114
000253f8 60 00 fc 66 |` f | BRA 0x25060
000253fc 4e b9 00 01 |N | .XXX[0x4]
00025400 02 84 | | .XXX[0x2]
00025402 4e 56 00 00 |NV | LINK.W A6,#0x0000
00025406 48 e7 c0 80 |H | MOVEM.L A0+D1+D0,-(A7)
0002540a bf d5 | | CMPA.L (A5),A7
0002540c 4e 76 |Nv | TRAPV
0002540e 42 2e 00 08 |B. | CLR.B (A6+0x8)
00025412 30 39 93 03 e0 00 |09 | MOVE.W 0x9303e000,D0
00025418 02 40 00 08 | @ | ANDI.W #0x0008,D0
0002541c 67 00 00 06 |g | BEQ 0x25424
00025420 52 2e 00 08 |R. | ADDQ.B #0x1,(A6+0x8)
00025424 4c df 01 03 |L | MOVEM.L (A7)+,D0+D1+A0
00025428 4e 5e |N^ | UNLK A6
0002542a 4e 75 |Nu | RTS
0002542c 4e 56 00 00 |NV | LINK.W A6,#0x0000
00025430 48 e7 c0 80 |H | MOVEM.L A0+D1+D0,-(A7)
00025434 bf d5 | | CMPA.L (A5),A7
00025436 4e 76 |Nv | TRAPV
00025438 30 3c 02 01 |0< | MOVE.W #0x201,D0
0002543c 4e b9 80 00 20 64 |N d | JSR 0x80002064
00025442 67 00 00 06 |g | BEQ 0x2544a
00025446 30 7c 00 00 |0| | MOVEA.W #0x0,A0
0002544a 2d 48 00 08 |-H | MOVE.L A0,(A6+0x8)
0002544e 4c df 01 03 |L | MOVEM.L (A7)+,D0+D1+A0
00025452 4e 5e |N^ | UNLK A6
00025454 4e 75 |Nu | RTS
00025456 4e 56 00 00 |NV | LINK.W A6,#0x0000
0002545a 48 e7 c0 80 |H | MOVEM.L A0+D1+D0,-(A7)
0002545e bf d5 | | CMPA.L (A5),A7
00025460 4e 76 |Nv | TRAPV
00025462 30 3c 07 00 |0< | MOVE.W #0x700,D0
00025466 4e b9 80 00 20 64 |N d | JSR 0x80002064
0002546c 67 00 00 06 |g | BEQ 0x25474
00025470 30 7c 00 00 |0| | MOVEA.W #0x0,A0
00025474 2d 48 00 08 |-H | MOVE.L A0,(A6+0x8)
00025478 4c df 01 03 |L | MOVEM.L (A7)+,D0+D1+A0
0002547c 4e 5e |N^ | UNLK A6
0002547e 4e 75 |Nu | RTS
00025480 4e 56 00 00 |NV | LINK.W A6,#0x0000
00025484 48 e7 c0 80 |H | MOVEM.L A0+D1+D0,-(A7)
00025488 bf d5 | | CMPA.L (A5),A7
0002548a 4e 76 |Nv | TRAPV
0002548c 30 3c 08 00 |0< | MOVE.W #0x800,D0
00025490 4e b9 80 00 20 64 |N d | JSR 0x80002064
00025496 67 00 00 06 |g | BEQ 0x2549e
0002549a 30 7c 00 00 |0| | MOVEA.W #0x0,A0
0002549e 2d 48 00 08 |-H | MOVE.L A0,(A6+0x8)
000254a2 4c df 01 03 |L | MOVEM.L (A7)+,D0+D1+A0
000254a6 4e 5e |N^ | UNLK A6
000254a8 4e 75 |Nu | RTS
000254aa 4e 56 00 00 |NV | LINK.W A6,#0x0000
000254ae 48 e7 c0 80 |H | MOVEM.L A0+D1+D0,-(A7)
000254b2 bf d5 | | CMPA.L (A5),A7
000254b4 4e 76 |Nv | TRAPV
000254b6 20 2e 00 0c | . | MOVE.L (A6+0xc),D0
000254ba 4e b9 80 00 20 5c |N \ | JSR 0x8000205c
000254c0 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0
000254c4 42 90 |B | CLR.L (A0)
000254c6 11 41 00 03 | A | MOVE.B D1,(A0+0x3)
000254ca 4c df 01 03 |L | MOVEM.L (A7)+,D0+D1+A0
000254ce 4e 5e |N^ | UNLK A6
000254d0 4e 75 |Nu | RTS
000254d2 4e 56 00 00 |NV | LINK.W A6,#0x0000
000254d6 48 e7 c0 80 |H | MOVEM.L A0+D1+D0,-(A7)
000254da bf d5 | | CMPA.L (A5),A7
000254dc 4e 76 |Nv | TRAPV
000254de 20 2e 00 0c | . | MOVE.L (A6+0xc),D0
000254e2 4e b9 80 00 20 60 |N ` | JSR 0x80002060
000254e8 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0
000254ec 42 90 |B | CLR.L (A0)
000254ee 11 41 00 03 | A | MOVE.B D1,(A0+0x3)
000254f2 4c df 01 03 |L | MOVEM.L (A7)+,D0+D1+A0
000254f6 4e 5e |N^ | UNLK A6
000254f8 4e 75 |Nu | RTS
000254fa 4e 56 00 00 |NV | LINK.W A6,#0x0000 ; Spelunked
000254fe 48 e7 c0 80 |H | MOVEM.L A0+D1+D0,-(A7)
00025502 bf d5 | | CMPA.L (A5),A7
00025504 4e 76 |Nv | TRAPV
00025506 20 2e 00 0c | . | MOVE.L (A6+0xc),D0
0002550a 4e b9 80 00 20 6c |N l | JSR 0x8000206c
00025510 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0
00025514 42 90 |B | CLR.L (A0)
00025516 11 41 00 03 | A | MOVE.B D1,(A0+0x3)
0002551a 4c df 01 03 |L | MOVEM.L (A7)+,D0+D1+A0
0002551e 4e 5e |N^ | UNLK A6
00025520 4e 75 |Nu | RTS
00025522 57 6f 72 64 73 20 65 72 |Words er| .TXT 'Words error :_'
00025530 ; --------------------------------------------------------------------------------------
00025530 ; OMSI PASCAL Function
00025530 ; <LVAR 0x008 1(r)>
00025530 ; --------------------------------------------------------------------------------------
00025530 PROG_FAIL:
00025530 4e 56 ff d2 |NV | LINK.W A6,#0xffd2
00025534 bf d5 | | CMPA.L (A5),A7
00025536 62 06 |b | BHI 0x2553e
00025538 44 fc 00 02 |D | MOVE.W #0x2,CCR
0002553c 4e 76 |Nv | TRAPV
0002553e de fc 00 2c | , | ADDA.W #0x2c,A7
00025542 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7)
00025546 41 fa ff e8 |A | LEA.L PROG_FAIL,A0
0002554a 70 06 |p | MOVEQ.L #0x06,D0
0002554c 3f 20 |? | MOVE.W -(A0),-(A7)
0002554e 51 c8 ff fc |Q | DBF D0,0x2554c
00025552 1f 3c 00 03 | < | MOVE.B #0x03,-(A7)
00025556 51 4f |QO | SUBQ.L #0x8,A7
00025558 48 6f 00 0a |Ho | PEA.L (A7+0xa)
0002555c 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
00025560 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7)
00025564 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
0002556a 58 4f |XO | ADDQ.L #0x4,A7
0002556c 10 2e 00 08 | . | MOVE.B (A6+0x8),D0
00025570 48 80 |H | EXTB.W D0
00025572 48 c0 |H | EXTW.L D0
00025574 2f 00 |/ | MOVE.L D0,-(A7)
00025576 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String
0002557c 58 4f |XO | ADDQ.L #0x4,A7
0002557e 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00025584 50 4f |PO | ADDQ.L #0x8,A7
00025586 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String)
0002558c de fc 00 14 | | ADDA.W #0x14,A7
00025590 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0
00025594 4e 5e |N^ | UNLK A6
00025596 4e 75 |Nu | RTS
00025598 42 6f 61 72 64 20 20 20 |Board | .TXT 'Board :_ '
000255a6 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment :_ '
000255b4 53 74 61 74 75 73 20 20 |Status | .TXT 'Status :_ '
000255c2 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment error :'
000255d4 46 61 74 61 6c 20 65 78 |Fatal ex| .TXT 'Fatal experiment error. '
000255ec ; --------------------------------------------------------------------------------------
000255ec ; OMSI PASCAL Function
000255ec ; <LVAR 0x00e 1(r)>
000255ec ; <LVAR 0x00a 4(r)>
000255ec ; <LVAR 0x008 1(r)>
000255ec ; --------------------------------------------------------------------------------------
000255ec EXP_FAIL:
000255ec 4e 56 ff 8c |NV | LINK.W A6,#0xff8c
000255f0 bf d5 | | CMPA.L (A5),A7
000255f2 62 06 |b | BHI 0x255fa
000255f4 44 fc 00 02 |D | MOVE.W #0x2,CCR
000255f8 4e 76 |Nv | TRAPV
000255fa de fc 00 74 | t | ADDA.W #0x74,A7
000255fe 48 e7 fc f8 |H | MOVEM.L A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7)
00025602 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
00025608 49 f9 00 01 03 e0 |I | LEA.L WriteConsoleStringCrLf(str : String),A4
0002560e 72 01 |r | MOVEQ.L #0x01,D1
00025610 74 0d |t | MOVEQ.L #0x0d,D2
00025612 76 1e |v | MOVEQ.L #0x1e,D3
00025614 78 12 |x | MOVEQ.L #0x12,D4
00025616 7a 0e |z | MOVEQ.L #0x0e,D5
00025618 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void)
0002561e 41 fa ff b4 |A | LEA.L 0x255d4,A0
00025622 70 08 |p | MOVEQ.L #0x08,D0
00025624 3f 20 |? | MOVE.W -(A0),-(A7)
00025626 51 c8 ff fc |Q | DBF D0,0x25624
0002562a 59 4f |YO | SUBQ.L #0x4,A7
0002562c 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00025630 3f 01 |? | MOVE.W D1,-(A7)
00025632 3f 04 |? | MOVE.W D4,-(A7)
00025634 4e 93 |N | JSR (A3)
00025636 50 4f |PO | ADDQ.L #0x8,A7
00025638 4e 94 |N | JSR (A4)
0002563a 50 4f |PO | ADDQ.L #0x8,A7
0002563c 20 4f | O | MOVEA.L A7,A0
0002563e 43 fa ff 58 |C X | LEA.L 0x25598,A1
00025642 70 0c |p | MOVEQ.L #0x0c,D0
00025644 10 d9 | | MOVE.B (A1)+,(A0)+
00025646 51 c8 ff fc |Q | DBF D0,0x25644
0002564a 51 4f |QO | SUBQ.L #0x8,A7
0002564c 48 6f 00 08 |Ho | PEA.L (A7+0x8)
00025650 3f 01 |? | MOVE.W D1,-(A7)
00025652 3f 02 |? | MOVE.W D2,-(A7)
00025654 4e 93 |N | JSR (A3)
00025656 54 4f |TO | ADDQ.L #0x2,A7
00025658 1e ae 00 0e | | MOVE.B (A6+0xe),(A7)
0002565c 4e b9 00 01 04 9c |N | JSR BoardName(address : B) : String
00025662 54 4f |TO | ADDQ.L #0x2,A7
00025664 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
0002566a 50 4f |PO | ADDQ.L #0x8,A7
0002566c 4e 94 |N | JSR (A4)
0002566e de c4 | | ADDA.W D4,A7
00025670 20 6e 00 0a | n | MOVEA.L (A6+0xa),A0
00025674 b0 c1 | | CMPA.W D1,A0
00025676 67 48 |gH | BEQ 0x256c0
00025678 9e c5 | | SUBA.W D5,A7
0002567a 22 4f |"O | MOVEA.L A7,A1
0002567c 45 fa ff 28 |E ( | LEA.L 0x255a6,A2
00025680 70 0c |p | MOVEQ.L #0x0c,D0
00025682 12 da | | MOVE.B (A2)+,(A1)+
00025684 51 c8 ff fc |Q | DBF D0,0x25682
00025688 9e c3 | | SUBA.W D3,A7
0002568a 22 4f |"O | MOVEA.L A7,A1
0002568c 41 e8 00 fc |A | LEA.L (A0+0xfc),A0
00025690 70 1d |p | MOVEQ.L #0x1d,D0
00025692 12 d8 | | MOVE.B (A0)+,(A1)+
00025694 51 c8 ff fc |Q | DBF D0,0x25692
00025698 51 4f |QO | SUBQ.L #0x8,A7
0002569a 48 6f 00 26 |Ho & | PEA.L (A7+0x26)
0002569e 3f 01 |? | MOVE.W D1,-(A7)
000256a0 3f 02 |? | MOVE.W D2,-(A7)
000256a2 4e 93 |N | JSR (A3)
000256a4 58 4f |XO | ADDQ.L #0x4,A7
000256a6 48 6f 00 0c |Ho | PEA.L (A7+0xc)
000256aa 3f 01 |? | MOVE.W D1,-(A7)
000256ac 3f 03 |? | MOVE.W D3,-(A7)
000256ae 4e 93 |N | JSR (A3)
000256b0 50 4f |PO | ADDQ.L #0x8,A7
000256b2 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
000256b8 50 4f |PO | ADDQ.L #0x8,A7
000256ba 4e 94 |N | JSR (A4)
000256bc de fc 00 30 | 0 | ADDA.W #0x30,A7
000256c0 9e c5 | | SUBA.W D5,A7
000256c2 20 4f | O | MOVEA.L A7,A0
000256c4 43 fa fe ee |C | LEA.L 0x255b4,A1
000256c8 70 0c |p | MOVEQ.L #0x0c,D0
000256ca 10 d9 | | MOVE.B (A1)+,(A0)+
000256cc 51 c8 ff fc |Q | DBF D0,0x256ca
000256d0 51 4f |QO | SUBQ.L #0x8,A7
000256d2 48 6f 00 08 |Ho | PEA.L (A7+0x8)
000256d6 3f 01 |? | MOVE.W D1,-(A7)
000256d8 3f 02 |? | MOVE.W D2,-(A7)
000256da 4e 93 |N | JSR (A3)
000256dc 54 4f |TO | ADDQ.L #0x2,A7
000256de 1e ae 00 08 | | MOVE.B (A6+0x8),(A7)
000256e2 4e b9 00 01 04 a2 |N | JSR ExpStatus2Text(status.B, &String)
000256e8 54 4f |TO | ADDQ.L #0x2,A7
000256ea 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
000256f0 50 4f |PO | ADDQ.L #0x8,A7
000256f2 4e 94 |N | JSR (A4)
000256f4 5d 4f |]O | SUBQ.L #0x6,A7
000256f6 20 4f | O | MOVEA.L A7,A0
000256f8 43 fa fe da |C | LEA.L 0x255d4,A1
000256fc 70 16 |p | MOVEQ.L #0x16,D0
000256fe 10 d9 | | MOVE.B (A1)+,(A0)+
00025700 51 c8 ff fc |Q | DBF D0,0x256fe
00025704 1f 3c 00 02 | < | MOVE.B #0x02,-(A7)
00025708 59 4f |YO | SUBQ.L #0x4,A7
0002570a 48 6f 00 06 |Ho | PEA.L (A7+0x6)
0002570e 3f 01 |? | MOVE.W D1,-(A7)
00025710 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7)
00025714 4e 93 |N | JSR (A3)
00025716 50 4f |PO | ADDQ.L #0x8,A7
00025718 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String)
0002571e de c3 | | ADDA.W D3,A7
00025720 4c df 1f 3f |L ? | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4
00025724 4e 5e |N^ | UNLK A6
00025726 4e 75 |Nu | RTS