|
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: 4096 (0x1000)
Types: M200
Notes: @(#)CONFIGURE,2.2,91/05/21,17:18:19, M200_PROGRAM
Names: »CONFIGURE.M200«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »CONFIGURE.M200«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »CONFIGURE.M200«
└─ ⟦this⟧ »CONFIGURE.M200«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »CONFIGURE.M200«
@ 2029c
<LVAR -0x004 @ 1(r)>
<POP 2029c-20316 Body>
<POP 2029c-202b2 Prologue> Σ0 ↓
<POP 202b2-202ca Naked> Σ0 ↓ →0x20300
<Const 0x202b2 0x20da8.4> Δ-4 {[##134568]}
<Pointer.fp 0x202b8 <LVAR -0x004 @ 1(r)>> Δ-4 {[##134568]|[@@-4]}
<Call 0x202bc 0x1057a> {[##134568]|[@@-4]}
Read_HARDWARE.M200_CONFIG(a : Pointer; VAR status : Bool)
<POP 202c2-202c4 StackAdj> Δ+8 {}
<MI 202c4 TST.B (A6-0x4)> {}
<MI 202c8 BNE 0x20300> {}
<POP 202ca-20300 Naked> Σ0 ↓
<Blob 0x202ca [36] @> Δ-36 {[«36""»]}
<Const 0x202dc 0xe.2> Δ-2 {[«36""»]|[#14]}
<POP 202e0-202e2 StackAdj> Δ-4 {[«36""»]|[#14]|[-4-]}
<Lit 0x202e2 35> {[«36""»]|[#14]|[$$Cannot read hardware configuration.]}
<Call 0x202f6 0x103b8> {[«36""»]|[#14]|[$$Cannot read hardware configuration.]}
PopProgram(status : Byte; msg : String)
<POP 202fc-20300 StackAdj> Δ+42 {}
<POP 20300-2030e Naked> Σ0 ↓ ←0x202b2
<Const 0x20300 0x20da6.4> Δ-4 {[##134566]}
<Call 0x20306 0x105a4> {[##134566]}
Read_fc0c() : Word
<POP 2030c-2030e StackAdj> Δ+4 {}
<POP 2030e-20316 Epilogue> Σ0
@ 20316
<LVAR -0x008 1(w) 2(r)>
<LVAR -0x009 @>
<LVAR -0x00a @>
<LVAR -0x00b @ 1(r)>
<POP 20316-20608 Body>
<POP 20316-2032c Prologue> Σ0 ↓
<POP 2032c-20342 RegCacheLoad> Σ0 ↓
<POP 20342-2036c Naked> Σ0 ↓ →0x20370
<MI 20342 MOVE.B 0x20da7,D0> {}
<MI 20348 LSL.B #0x4,D0> {}
<MI 2034a LSR.B #0x7,D0> {}
<MI 2034c NEG.B D0> {}
<MI 2034e ADDQ.B #0x1,D0> {}
<MI 20350 MOVE.B D0,D7> {}
<MI 20352 ANDI.B #0xef,(A6-0x8)> {}
<MI 20356 ANDI.B #0xdf,(A6-0x8)> {}
<MI 2035a ANDI.B #0xbf,(A6-0x8)> {}
<MI 2035e ANDI.B #0x7f,(A6-0x8)> {}
<MI 20362 ANDI.B #0xf7,(A6-0x8)> {}
<MI 20366 MOVE.B 0x20da9,D0> {}
<MI 20368 CMP.B #0x01,D0> {}
<MI 2036a BNE 0x20370> {}
<POP 2036c-20370 Naked> Σ0 ↓
<MI 2036c ORI.B #0x08,(A6-0x8)> {}
<POP 20370-20388 Naked> Σ0 ↓ ←0x20342
<MI 20370 MOVE.W (A6-0x8),-(A7)> Δ-2 {[2, '(A6-0x8)']}
<Call 0x20372 0x105d4> {[2, '(A6-0x8)']}
Update_fc0c(new : Byte)
<POP 20378-2037a StackAdj> Δ+2 {}
<Const 0x2037a 0xf.4> Δ-4 {[##15]}
<Call 0x2037e 0x104d8> {[##15]}
ExpInit(a : Long)
<POP 20384-20386 StackAdj> Δ+4 {}
<MI 20386 MOVEQ.L #0x0c,D6> {}
<POP 20388-203cc Naked> Σ0 ↓ →0x2049e ←0x2059a
<MI 20388 MOVE.B D6,D0> {}
<MI 2038a EXTB.W D0> {}
<MI 2038c SUB.W #0x0c,D0> {}
<POP 0x2038e LimitCheck 0x0 ≤ D0 ≤ 0x3> {}
<MI 20390 LEA.L 0x20d9a,A0> {}
<MI 20396 MOVE.B (A0+D0.W+#0x10),D5> {}
<MI 2039a MOVE.B D6,-(A7)> Δ-2 {[2, 'D6']}
<Const 0x2039c 0x4.2> Δ-2 {[2, 'D6']|[#4]}
<Call 0x203a0 0x1048a> {[2, 'D6']|[#4]}
DiProcCmd(board : Byte; cmd : Byte)
<POP 203a2-203a4 StackAdj> Δ+2 {[2, 'D6']}
<MI 203a4 MOVE.B D6,(A7)> {[-2-]}
<Const 0x203a6 0x2.2> Δ-2 {[-2-]|[#2]}
<Call 0x203aa 0x1048a> {[-2-]|[#2]}
DiProcCmd(board : Byte; cmd : Byte)
<POP 203ac-203ae StackAdj> Δ+2 {[-2-]}
<MI 203ae MOVE.B D6,(A7)> {[-2-]}
<Pointer.fp 0x203b0 <LVAR -0x00b @ 1(r)>> Δ-4 {[-2-]|[@@-11]}
<Pointer.fp 0x203b4 <LVAR -0x00a @>> Δ-4 {[-2-]|[@@-11]|[@@-10]}
<Pointer.fp 0x203b8 <LVAR -0x009 @>> Δ-4 {[-2-]|[@@-11]|[@@-10]|[@@-9]}
<Call 0x203bc 0x10484> {[-2-]|[@@-11]|[@@-10]|[@@-9]}
DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool)
<POP 203c2-203c6 StackAdj> Δ+14 {}
<MI 203c6 TST.B D5> {}
<MI 203c8 BNE 0x2049e> {}
<POP 203cc-203d8 Naked> Σ0 ↓ →0x20492
<MI 203cc MOVE.B (A6-0xb),D0> {}
<MI 203d0 CMPI.B #0x05,D0> {}
<MI 203d4 BNE 0x20492> {}
<POP 203d8-203dc Naked> Σ0 ↓ →0x20432
<MI 203d8 TST.B 0x20da9> {}
<MI 203da BNE 0x20432> {}
<POP 203dc-203e2 Naked> Σ0 ↓ →0x203e8
<MI 203dc CMPI.B #0x0d,D6> {}
<MI 203e0 BEQ 0x203e8> {}
<POP 203e2-203e8 Naked> Σ0 ↓ →0x20432
<MI 203e2 CMPI.B #0x0f,D6> {}
<MI 203e6 BNE 0x20432> {}
<POP 203e8-20432 Naked> Σ0 →0x20492 ←0x203dc
<MI 203e8 MOVE.B #0x01,0x20da2> {}
<Blob 0x203ee [64] @> Δ-64 {[«64""»]}
<POP 20400-20402 StackAdj> Δ-8 {[«64""»]|[-8-]}
<MI 20402 MOVE.B D6,-(A7)> Δ-2 {[«64""»]|[-8-]|[2, 'D6']}
<Call 0x20404 0x1049c> {[«64""»]|[-8-]|[2, 'D6']}
BoardName(address : B) : String
<POP 2040a-2040c StackAdj> Δ-2 {[«64""»]|[-8-]|[2, 'D6']|[-2-]}
<Lit 0x2040c 63> {[«64""»]|[-8-]|[$$ cannot be in the configuration when using 32 MB memory boards.]}
<Call 0x2041e 0x102d0> {[«64""»]|[-8-]|[$$ cannot be in the configuration when using 32 MB memory boards.]}
StringCat2(a, b : String) : String
<POP 20424-20426 StackAdj> Δ+8 {[«64""»]|[-4-]}
<Call 0x20426 0x103e0> {[«64""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 2042c-20430 StackAdj> Δ+68 {}
<MI 20430 BRA 0x20492> {}
<POP 20432-20436 Naked> Σ0 ↓ →0x20450 ←0x203d8 ←0x203e2
<MI 20432 TST.B 0x20da9> {}
<MI 20434 BNE 0x20450> {}
<POP 20436-20450 Naked> Σ0 ↓
<MI 20436 MOVE.B D6,-(A7)> Δ-2 {[2, 'D6']}
<Call 0x20438 0x209b6> {[2, 'D6']}
<MI 2043e MOVE.B D6,(A7)> {[-2-]}
<Call 0x20440 0x20b10> {[-2-]}
<MI 20446 MOVE.B D6,(A7)> {[-2-]}
<Const 0x20448 0x2.2> Δ-2 {[-2-]|[#2]}
<Call 0x2044c 0x1048a> {[-2-]|[#2]}
DiProcCmd(board : Byte; cmd : Byte)
<POP 2044e-20450 StackAdj> Δ+4 {}
<POP 20450-20492 Naked> Σ0 ↓ ←0x20432
<Blob 0x20450 [62] @> Δ-62 {[«62""»]}
<POP 20462-20464 StackAdj> Δ-8 {[«62""»]|[-8-]}
<MI 20464 MOVE.B D6,-(A7)> Δ-2 {[«62""»]|[-8-]|[2, 'D6']}
<Call 0x20466 0x1049c> {[«62""»]|[-8-]|[2, 'D6']}
BoardName(address : B) : String
<POP 2046c-2046e StackAdj> Δ-2 {[«62""»]|[-8-]|[2, 'D6']|[-2-]}
<Lit 0x2046e 61> {[«62""»]|[-8-]|[$$ exists but is not in configuration. Board will not be used.]}
<Call 0x20480 0x102d0> {[«62""»]|[-8-]|[$$ exists but is not in configuration. Board will not be used.]}
StringCat2(a, b : String) : String
<POP 20486-20488 StackAdj> Δ+8 {[«62""»]|[-4-]}
<Call 0x20488 0x103e0> {[«62""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 2048e-20492 StackAdj> Δ+66 {}
<POP 20492-2049e Naked> Σ0 →0x20520 ←0x203cc ←0x203e8
<MI 20492 MOVE.B D6,-(A7)> Δ-2 {[2, 'D6']}
<Const 0x20494 0x3.2> Δ-2 {[2, 'D6']|[#3]}
<Call 0x20496 0x1048a> {[2, 'D6']|[#3]}
DiProcCmd(board : Byte; cmd : Byte)
<POP 20498-2049a StackAdj> Δ+4 {}
<MI 2049a BRA 0x20520> {}
<POP 2049e-204b6 Naked> Σ0 →0x204be →0x204c4 →0x204ca →0x204d0 ←0x20388
<MI 2049e MOVE.B D6,D0> {}
<MI 204a0 EXTB.W D0> {}
<MI 204a2 MOVE.W D0,D1> {}
<MI 204a4 SUB.W #0x0c,D1> {}
<POP 0x204a6 LimitCheck 0x0 ≤ D1 ≤ 0x3> {}
<MI 204ac ADD.W D1,D1> {}
<MI 204ae SWITCH D1.W> {}
<POP 204be-204c4 Naked> Σ0 →0x204d4 ←0x2049e
<MI 204be ORI.B #0x10,(A6-0x8)> {}
<MI 204c2 BRA 0x204d4> {}
<POP 204c4-204ca Naked> Σ0 →0x204d4 ←0x2049e
<MI 204c4 ORI.B #0x20,(A6-0x8)> {}
<MI 204c8 BRA 0x204d4> {}
<POP 204ca-204d0 Naked> Σ0 →0x204d4 ←0x2049e
<MI 204ca ORI.B #0x40,(A6-0x8)> {}
<MI 204ce BRA 0x204d4> {}
<POP 204d0-204d4 Naked> Σ0 ↓ ←0x2049e
<MI 204d0 ORI.B #0x80,(A6-0x8)> {}
<POP 204d4-204de Naked> Σ0 ↓ →0x20520 ←0x204be ←0x204c4 ←0x204ca
<MI 204d4 MOVE.B (A6-0xb),D1> {}
<MI 204d8 CMPI.B #0x05,D1> {}
<MI 204dc BEQ 0x20520> {}
<POP 204de-20520 Naked> Σ0 ↓
<MI 204de MOVE.B #0x01,0x20da2> {}
<Blob 0x204e4 [42] @> Δ-42 {[«42""»]}
<POP 204f0-204f2 StackAdj> Δ-8 {[«42""»]|[-8-]}
<MI 204f2 MOVE.B D0,-(A7)> Δ-2 {[«42""»]|[-8-]|[2, 'D0']}
<Call 0x204f4 0x1049c> {[«42""»]|[-8-]|[2, 'D0']}
BoardName(address : B) : String
<POP 204fa-204fc StackAdj> Δ-2 {[«42""»]|[-8-]|[2, 'D0']|[-2-]}
<Lit 0x204fc 42> {[«42""»]|[-8-]|[$$ is in configuration but does not respond.]}
<Call 0x2050e 0x102d0> {[«42""»]|[-8-]|[$$ is in configuration but does not respond.]}
StringCat2(a, b : String) : String
<POP 20514-20516 StackAdj> Δ+8 {[«42""»]|[-4-]}
<Call 0x20516 0x103e0> {[«42""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 2051c-20520 StackAdj> Δ+46 {}
<POP 20520-20536 Naked> Σ0 →0x2053e →0x20556 →0x2056e →0x20586 ←0x20492 ←0x204d4
<MI 20520 MOVE.B D6,D0> {}
<MI 20522 EXTB.W D0> {}
<MI 20524 SUB.W #0x0c,D0> {}
<POP 0x20526 LimitCheck 0x0 ≤ D0 ≤ 0x3> {}
<MI 2052c ADD.W D0,D0> {}
<MI 2052e SWITCH D0.W> {}
<POP 2053e-20544 Naked> Σ0 ↓ →0x20552 ←0x20520
<MI 2053e MOVEQ.L #0x00,D0> {}
<MI 20540 TST.B D7> {}
<MI 20542 BNE 0x20552> {}
<POP 20544-20552 Naked> Σ0 ↓ →0x20554
<MI 20544 MOVE.B 0x20da6,D1> {}
<MI 2054a LSL.B #0x3,D1> {}
<MI 2054c LSR.B #0x7,D1> {}
<MI 2054e CMP.B D1,D5> {}
<MI 20550 BEQ 0x20554> {}
<POP 20552-20554 Naked> Σ0 ↓ ←0x2053e
<MI 20552 ADDQ.B #0x1,D0> {}
<POP 20554-20556 Naked> Σ0 →0x2059a ←0x20544
<MI 20554 BRA 0x2059a> {}
<POP 20556-2055c Naked> Σ0 ↓ →0x2056a ←0x20520
<MI 20556 MOVEQ.L #0x00,D0> {}
<MI 20558 TST.B D7> {}
<MI 2055a BNE 0x2056a> {}
<POP 2055c-2056a Naked> Σ0 ↓ →0x2056c
<MI 2055c MOVE.B 0x20da6,D1> {}
<MI 20562 LSL.B #0x2,D1> {}
<MI 20564 LSR.B #0x7,D1> {}
<MI 20566 CMP.B D1,D5> {}
<MI 20568 BEQ 0x2056c> {}
<POP 2056a-2056c Naked> Σ0 ↓ ←0x20556
<MI 2056a ADDQ.B #0x1,D0> {}
<POP 2056c-2056e Naked> Σ0 →0x2059a ←0x2055c
<MI 2056c BRA 0x2059a> {}
<POP 2056e-20574 Naked> Σ0 ↓ →0x20582 ←0x20520
<MI 2056e MOVEQ.L #0x00,D0> {}
<MI 20570 TST.B D7> {}
<MI 20572 BNE 0x20582> {}
<POP 20574-20582 Naked> Σ0 ↓ →0x20584
<MI 20574 MOVE.B 0x20da6,D1> {}
<MI 2057a LSL.B #0x1,D1> {}
<MI 2057c LSR.B #0x7,D1> {}
<MI 2057e CMP.B D1,D5> {}
<MI 20580 BEQ 0x20584> {}
<POP 20582-20584 Naked> Σ0 ↓ ←0x2056e
<MI 20582 ADDQ.B #0x1,D0> {}
<POP 20584-20586 Naked> Σ0 →0x2059a ←0x20574
<MI 20584 BRA 0x2059a> {}
<POP 20586-2058c Naked> Σ0 ↓ →0x20598 ←0x20520
<MI 20586 MOVEQ.L #0x00,D0> {}
<MI 20588 TST.B D7> {}
<MI 2058a BNE 0x20598> {}
<POP 2058c-20598 Naked> Σ0 ↓ →0x2059a
<MI 2058c MOVE.B 0x20da6,D1> {}
<MI 20592 LSR.B #0x7,D1> {}
<MI 20594 CMP.B D1,D5> {}
<MI 20596 BEQ 0x2059a> {}
<POP 20598-2059a Naked> Σ0 ↓ ←0x20586
<MI 20598 ADDQ.B #0x1,D0> {}
<POP 2059a-205a6 Naked> Σ0 ↓ →0x20388 ←0x20554 ←0x2056c ←0x20584 ←0x2058c
<MI 2059a MOVE.B D0,D7> {}
<MI 2059c ADDQ.B #0x1,D6> {}
<MI 2059e CMPI.B #0x0f,D6> {}
<MI 205a2 BLE 0x20388> {}
<POP 205a6-205c0 Naked> Σ0 ↓ →0x205ee
<MI 205a6 MOVE.W (A6-0x8),-(A7)> Δ-2 {[2, '(A6-0x8)']}
<Call 0x205a8 0x105d4> {[2, '(A6-0x8)']}
Update_fc0c(new : Byte)
<POP 205ae-205b0 StackAdj> Δ+2 {}
<Const 0x205b0 0xf.4> Δ-4 {[##15]}
<Call 0x205b4 0x104d8> {[##15]}
ExpInit(a : Long)
<POP 205ba-205bc StackAdj> Δ+4 {}
<MI 205bc TST.B 0x20da9> {}
<MI 205be BNE 0x205ee> {}
<POP 205c0-205c8 Naked> Σ0 ↓ →0x205ee
<MI 205c0 TST.B 0x20daa> {}
<MI 205c6 BEQ 0x205ee> {}
<POP 205c8-205d0 Naked> Σ0 ↓ →0x205ee
<MI 205c8 TST.B 0x20dac> {}
<MI 205ce BEQ 0x205ee> {}
<POP 205d0-205ee Naked> Σ0 ↓
<Const 0x205d0 0xc.2> Δ-2 {[#12]}
<Call 0x205d2 0x2091e> {[#12]}
<POP 205d8-205d9 StackAdj> Δ+2 {}
<Const 0x205d9 0xe.2> Δ-2 {[#14]}
<Call 0x205dc 0x2091e> {[#14]}
<POP 205e2-205e3 StackAdj> Δ+2 {}
<Const 0x205e3 0xe.2> Δ-2 {[#14]}
<Call 0x205e6 0x20a70> {[#14]}
<POP 205ec-205ee StackAdj> Δ+2 {}
<POP 205ee-205f2 Naked> Σ0 ↓ →0x205fa ←0x205a6 ←0x205c0 ←0x205c8
<MI 205ee TST.B D7> {}
<MI 205f0 BNE 0x205fa> {}
<POP 205f2-205fa Naked> Σ0 ↓ →0x20600
<MI 205f2 TST.B 0x20da3> {}
<MI 205f8 BEQ 0x20600> {}
<POP 205fa-20600 Naked> Σ0 ↓ ←0x205ee
<Call 0x205fa 0x105c8> {}
And_fc0c_7f(void)
<POP 20600-20608 Epilogue> Σ0 ←0x205f2
@ 20608
<POP 20608-2065a Body>
<POP 20608-2061e Prologue> Σ0 ↓
<POP 2061e-20620 RegCacheLoad> Σ0 ↓
<POP 20620-2062c Naked> Σ0 ↓ →0x20632
<MI 20620 MOVE.B 0x20da7,D0> {}
<MI 20626 LSL.B #0x4,D0> {}
<MI 20628 LSR.B #0x7,D0> {}
<MI 2062a BNE 0x20632> {}
<POP 2062c-20632 Naked> Σ0 ↓
<Call 0x2062c 0x105bc> {}
R1000_Reset_H(void)
<POP 20632-20652 Naked> Σ0 ↓ ←0x20620
<Const 0x20632 0x5.2> Δ-2 {[#5]}
<Const 0x20634 0x4.2> Δ-2 {[#5]|[#4]}
<Call 0x20638 0x1048a> {[#5]|[#4]}
DiProcCmd(board : Byte; cmd : Byte)
<POP 2063e-20640 StackAdj> Δ+2 {[#5]}
<POP 20640-20641 StackAdj> Δ+2 {}
<Const 0x20641 0x5.2> Δ-2 {[#5]}
<Const 0x20642 0x2.2> Δ-2 {[#5]|[#2]}
<Call 0x20646 0x1048a> {[#5]|[#2]}
DiProcCmd(board : Byte; cmd : Byte)
<POP 2064c-2064e StackAdj> Δ+4 {}
<Call 0x2064e 0x20316> {}
<POP 20652-2065a Epilogue> Σ0
@ 2065a
<LVAR 0x008 1(r)>
<LVAR -0x004 @>
<LVAR -0x005 @>
<LVAR -0x006 @ 1(r)>
<POP 2065a-20736 Body>
<POP 2065a-20670 Prologue> Σ0 ↓
<POP 20670-20678 RegCacheLoad> Σ0 ↓
<POP 20678-206b6 Naked> Σ0 ↓ →0x2072e
<MI 20678 MOVE.B (A6+0x8),-(A7)> Δ-2 {[2, '(A6+0x8)']}
<Const 0x2067a 0x4.2> Δ-2 {[2, '(A6+0x8)']|[#4]}
<Call 0x2067e 0x1048a> {[2, '(A6+0x8)']|[#4]}
DiProcCmd(board : Byte; cmd : Byte)
<POP 20684-20686 StackAdj> Δ+2 {[2, '(A6+0x8)']}
<MI 20686 MOVE.B (A6+0x8),(A7)> {[-2-]}
<Const 0x20688 0x2.2> Δ-2 {[-2-]|[#2]}
<Call 0x2068c 0x1048a> {[-2-]|[#2]}
DiProcCmd(board : Byte; cmd : Byte)
<POP 20692-20694 StackAdj> Δ+2 {[-2-]}
<MI 20694 MOVE.B (A6+0x8),(A7)> {[-2-]}
<Pointer.fp 0x20696 <LVAR -0x006 @ 1(r)>> Δ-4 {[-2-]|[@@-6]}
<Pointer.fp 0x2069a <LVAR -0x005 @>> Δ-4 {[-2-]|[@@-6]|[@@-5]}
<Pointer.fp 0x2069e <LVAR -0x004 @>> Δ-4 {[-2-]|[@@-6]|[@@-5]|[@@-4]}
<Call 0x206a2 0x10484> {[-2-]|[@@-6]|[@@-5]|[@@-4]}
DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool)
<POP 206a8-206ac StackAdj> Δ+14 {}
<MI 206ac MOVE.B (A6-0x6),D0> {}
<MI 206b0 CMPI.B #0x05,D0> {}
<MI 206b4 BEQ 0x2072e> {}
<POP 206b6-206d6 Naked> Σ0 ↓ →0x20700
<MI 206b6 MOVE.B #0x01,0x20da2> {}
<POP 206bc-206be StackAdj> Δ-4 {[-4-]}
<MI 206be MOVE.B (A6+0x8),-(A7)> Δ-2 {[-4-]|[2, '(A6+0x8)']}
<Call 0x206c0 0x1049c> {[-4-]|[2, '(A6+0x8)']}
BoardName(address : B) : String
<POP 206c6-206c8 StackAdj> Δ+2 {[-4-]}
<Call 0x206c8 0x103d8> {[-4-]}
WriteConsoleString(str : String)
<POP 206ce-206d0 StackAdj> Δ+4 {}
<MI 206d0 CMPI.B #0x09,D0> {}
<MI 206d4 BNE 0x20700> {}
<POP 206d6-20700 Naked> Σ0 →0x2072e
<Blob 0x206d6 [58] @> Δ-58 {[«58""»]}
<POP 206e2-206e4 StackAdj> Δ-4 {[«58""»]|[-4-]}
<Lit 0x206e4 58> {[«58""»]|[$$ board did not respond to RESET command - it may not exist]}
<Call 0x206f4 0x103e0> {[«58""»]|[$$ board did not respond to RESET command - it may not exist]}
WriteConsoleStringCrLf(str : String)
<POP 206fa-206fe StackAdj> Δ+62 {}
<MI 206fe BRA 0x2072e> {}
<POP 20700-2072e Naked> Σ0 ↓ ←0x206b6
<Blob 0x20700 [54] @> Δ-54 {[«54""»]}
<POP 20712-20714 StackAdj> Δ-4 {[«54""»]|[-4-]}
<Lit 0x20714 53> {[«54""»]|[$$ board returned a illegal response to a RESET command]}
<Call 0x20726 0x103e0> {[«54""»]|[$$ board returned a illegal response to a RESET command]}
WriteConsoleStringCrLf(str : String)
<POP 2072c-2072e StackAdj> Δ+58 {}
<POP 2072e-20736 Epilogue> Σ0 ←0x20678 ←0x206d6
@ 20736
<POP 20736-207a0 Body>
<POP 20736-2074c Prologue> Σ0 ↓
<POP 2074c-20750 RegCacheLoad> Σ0 ↓
<POP 20750-20758 Naked> Σ0 ↓ →0x20798
<MI 20750 TST.B 0x20da2> {}
<MI 20756 BNE 0x20798> {}
<POP 20758-2077a Naked> Σ0 ↓
<Const 0x20758 0x4.2> Δ-2 {[#4]}
<Call 0x2075c 0x2065a> {[#4]}
<POP 2075e-2075f StackAdj> Δ+2 {}
<Const 0x2075f 0x2.2> Δ-2 {[#2]}
<Call 0x20762 0x2065a> {[#2]}
<POP 20764-20765 StackAdj> Δ+2 {}
<Const 0x20765 0x3.2> Δ-2 {[#3]}
<Call 0x20768 0x2065a> {[#3]}
<POP 2076a-2076b StackAdj> Δ+2 {}
<Const 0x2076b 0x7.2> Δ-2 {[#7]}
<Call 0x2076e 0x2065a> {[#7]}
<POP 20770-20771 StackAdj> Δ+2 {}
<Const 0x20771 0x6.2> Δ-2 {[#6]}
<Call 0x20774 0x2065a> {[#6]}
<POP 20776-20778 StackAdj> Δ+2 {}
<MI 20778 MOVEQ.L #0x0c,D7> {}
<POP 2077a-2078a Naked> Σ0 ↓ →0x20790 ←0x20790
<POP 2077a-2077c StackAdj> Δ-2 {[-2-]}
<MI 2077c MOVE.B D7,-(A7)> Δ-2 {[-2-]|[2, 'D7']}
<Call 0x2077e 0x104c0> {[-2-]|[2, 'D7']}
HasBoard(diproc_addr: Byte) : Byte
<POP 20784-20786 StackAdj> Δ+2 {[-2-]}
<MI 20786 TST.B (A7)+> Δ+2 {}
<MI 20788 BEQ 0x20790> {}
<POP 2078a-20790 Naked> Σ0 ↓
<MI 2078a MOVE.B D7,-(A7)> Δ-2 {[2, 'D7']}
<Call 0x2078c 0x2065a> {[2, 'D7']}
<POP 2078e-20790 StackAdj> Δ+2 {}
<POP 20790-20798 Naked> Σ0 ↓ →0x2077a ←0x2077a
<MI 20790 ADDQ.B #0x1,D7> {}
<MI 20792 CMPI.B #0x0f,D7> {}
<MI 20796 BLE 0x2077a> {}
<POP 20798-207a0 Epilogue> Σ0 ←0x20750
@ 207a0
<LVAR -0x004 @>
<POP 207a0-20814 Body>
<POP 207a0-207b6 Prologue> Σ0 ↓
<POP 207b6-207b8 RegCacheLoad> Σ0 ↓
<POP 207b8-2080c Naked> Σ0 ↓
<Blob 0x207b8 [2] @> Δ-2 {[«2""»]}
<Blob 0x207bc [2] @> Δ-2 {[«2""»]|[«2""»]}
<Blob 0x207c0 [2] @> Δ-2 {[«2""»]|[«2""»]|[«2""»]}
<Blob 0x207c4 [8] @> Δ-8 {[«2""»]|[«2""»]|[«2""»]|[«8""»]}
<POP 207d4-207d6 StackAdj> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[«8""»]|[-4-]}
<Lit 0x207d6 6> {[«2""»]|[«2""»]|[«2""»]|[«8""»]|[$$NOVRAM]}
<POP 207e6-207e8 StackAdj> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[«8""»]|[$$NOVRAM]|[-4-]}
<Lit 0x207e8 7> {[«2""»]|[«2""»]|[«2""»]|[«8""»]|[$$NOVRAM]|[$$CONVERT]}
<POP 207f8-207fa StackAdj> Δ-2 {[«2""»]|[«2""»]|[«2""»]|[«8""»]|[$$NOVRAM]|[$$CONVERT]|[-2-]}
<POP 207fa-207fb StackAdj> Δ+2 {[«2""»]|[«2""»]|[«2""»]|[«8""»]|[$$NOVRAM]|[$$CONVERT]}
<Const 0x207fb 0x2.2> Δ-2 {[«2""»]|[«2""»]|[«2""»]|[«8""»]|[$$NOVRAM]|[$$CONVERT]|[#2]}
<Pointer.fp 0x207fe <LVAR -0x004 @>> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[«8""»]|[$$NOVRAM]|[$$CONVERT]|[#2]|[@@-4]}
<Call 0x20802 0x103b0> {[«2""»]|[«2""»]|[«2""»]|[«8""»]|[$$NOVRAM]|[$$CONVERT]|[#2]|[@@-4]}
PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
<POP 20808-2080c StackAdj> Δ+28 {}
<POP 2080c-20814 Epilogue> Σ0
@ 20814
START
<POP 20814--0001 Body>
<POP 20814-2081e Prologue> Σ0
<POP 2081e-20834 RegCacheLoad> Σ0 ↓
<POP 20834-20872 Naked> Σ0 Δ-10 ↓ →0x20878
<Call 0x20834 0x10398> {}
FSCALL_10398
<Blob 0x2083a [10] @> Δ-10 {[«10""»]}
<POP 2084a-2084c StackAdj> Δ-6 {[«10""»]|[-6-]}
<Call 0x2084c 0x103c4> {[«10""»]|[-6-]}
GetArgv() : String
<POP 20852-20854 StackAdj> Δ-4 {[«10""»]|[-10-]}
<Lit 0x20854 9> {[«10""»]|[-6-]|[$$NO_NOVRAM]}
<Call 0x20866 0x102c8> {[«10""»]|[-6-]|[$$NO_NOVRAM]}
StringEqual(a, b : String) : Byte
<POP 2086c-2086e StackAdj> Δ+8 {[«10""»]|[-2-]}
<MI 2086e TST.B (A7)+> Δ+2 {[«10""»]}
<MI 20870 BEQ 0x20878> {[«10""»]}
<POP 20872-20878 Naked> Σ-10 →0x2088a
<MI 20872 CLR.B 0x20da4> {[-10-]}
<MI 20874 CLR.B 0x20da3> {[-10-]}
<MI 20876 BRA 0x2088a> {[-10-]}
<POP 20878-2088a Naked> Σ-10 ↓ ←0x20834
<MI 20878 MOVE.B #0x01,0x20da4> {[-10-]}
<Call 0x2087a 0x10538> {[-10-]}
IPC_Init(void)
<Const 0x20880 0x20da3.4> Δ-4 {[-10-]|[##134563]}
<Call 0x20882 0x10526> {[-10-]|[##134563]}
IPC_GetBool() : Bool
<POP 20888-2088a StackAdj> Δ+4 {[-10-]}
<POP 2088a-2089a Naked> Σ-10 Δ+10 ↓ →0x208a2 ←0x20872
<POP 2088a-2088c StackAdj> Δ+10 {}
<MI 2088c CLR.B 0x20da2> {}
<Call 0x2088e 0x2029c> {}
<Call 0x20892 0x20608> {}
<MI 20896 TST.B 0x20da4> {}
<MI 20898 BEQ 0x208a2> {}
<POP 2089a-2089e Naked> Σ0 ↓ →0x208a2
<MI 2089a TST.B 0x20da3> {}
<MI 2089c BNE 0x208a2> {}
<POP 2089e-208a2 Naked> Σ0 ↓
<Call 0x2089e 0x20736> {}
<POP 208a2-208a6 Naked> Σ0 ↓ →0x208da ←0x2088a ←0x2089a
<MI 208a2 TST.B 0x20da2> {}
<MI 208a4 BEQ 0x208da> {}
<POP 208a6-208da Naked> Σ0 ↓
<Blob 0x208a6 [26] @> Δ-26 {[«26""»]}
<Const 0x208b8 0xe.2> Δ-2 {[«26""»]|[#14]}
<POP 208bc-208be StackAdj> Δ-4 {[«26""»]|[#14]|[-4-]}
<Lit 0x208be 25> {[«26""»]|[#14]|[$$the error above was fatal]}
<Call 0x208d0 0x103b8> {[«26""»]|[#14]|[$$the error above was fatal]}
PopProgram(status : Byte; msg : String)
<POP 208d6-208da StackAdj> Δ+32 {}
<POP 208da-208de Naked> Σ0 ↓ →0x208e2 ←0x208a2
<MI 208da TST.B 0x20da4> {}
<MI 208dc BEQ 0x208e2> {}
<POP 208de-208e2 Naked> Σ0 ↓
<Call 0x208de 0x207a0> {}
<POP 208e2-208f0 Naked> Σ0 ↓ ←0x208da
<MI 208e2 CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x208e4 0x1.4> Δ-4 {[#0]|[##1]}
<Call 0x208e8 0x103b8> {[#0]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 208ee-208f0 StackAdj> Δ+6 {}
<POP 208f0-208f6 Naked> Σ0
<Call 0x208f0 0x10284> {}
?exit
@ 2091e
<LVAR 0x008 1(r)>
<LVAR -0x006 @ 4(r)>
<POP 2091e-209a2 Body> Δ+20
<POP 2091e-20934 Prologue> Σ0 ↓
<POP 20934-20938 RegCacheLoad> Σ0 ↓
<POP 20938-20944 Naked> Σ0 ↓ →0x20952
<POP 20938-2093a StackAdj> Δ-2 {[-2-]}
<Call 0x2093a 0x104cc> {[-2-]}
MemOnly2MB() : Bool
<MI 20940 TST.B (A7)+> Δ+2 {}
<MI 20942 BEQ 0x20952> {}
<POP 20944-20952 Naked> Σ0 Δ-20 →0x2095e
<Blob 0x20944 [20] @> Δ-20 {[«20""»]}
<MI 20950 BRA 0x2095e> {[«20""»]}
<POP 20952-2095e Naked> Σ0 Δ-20 ↓ ←0x20938
<Blob 0x20952 [20] @> Δ-20 {[«20""»]}
<POP 2095e-2099a Naked> Σ-20 Δ+20 ↓ ←0x20944
<POP 2095e-20960 StackAdj> Δ-4 {[-24-]}
<Lit 0x20960> {[-20-]|[$$…]}
<Pointer.sp 0x20960 4> Δ-4
<Const 0x20964 0x1.2> Δ-2
<Const 0x20968 0x14.2> Δ-2
<Call 0x2096c 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 20972-20974 StackAdj> Δ+8
<Pointer.fp 0x20974 <LVAR -0x006 @ 4(r)>> Δ-4 {[-20-]|[$$…]|[@@-6]}
<Call 0x20976 0x10460> {[-20-]|[$$…]|[@@-6]}
ExpLoad(a : String; b: Pointer)
<POP 2097c-20980 StackAdj> Δ+28 {}
<MI 20980 CLR.B -(A7)> Δ-2 {[#0]}
<MI 20982 MOVE.B (A6+0x8),-(A7)> Δ-2 {[#0]|[2, '(A6+0x8)']}
<MI 20986 MOVE.L (A6-0x6),-(A7)> Δ-4 {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
<Call 0x20988 0x104ba> {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
ExpRun(a: Bool; adr: Byte; b: Pointer)
<POP 2098e-20990 StackAdj> Δ+8 {}
<Pointer.fp 0x20990 <LVAR -0x006 @ 4(r)>> Δ-4 {[@@-6]}
<Call 0x20992 0x10496> {[@@-6]}
ExpClose(exp : Pointer)
<POP 20998-2099a StackAdj> Δ+4 {}
<POP 2099a-209a2 Epilogue> Σ0
@ 209b6
<LVAR 0x008 1(r)>
<LVAR -0x006 @ 4(r)>
<POP 209b6-20a44 Body> Δ+10
<POP 209b6-209cc Prologue> Σ0 ↓
<POP 209cc-209d2 RegCacheLoad> Σ0 ↓
<POP 209d2-209de Naked> Σ0 ↓ →0x209f0
<POP 209d2-209d4 StackAdj> Δ-2 {[-2-]}
<Call 0x209d4 0x104cc> {[-2-]}
MemOnly2MB() : Bool
<MI 209da TST.B (A7)+> Δ+2 {}
<MI 209dc BEQ 0x209f0> {}
<POP 209de-209f0 Naked> Σ0 Δ-10 →0x20a00
<Blob 0x209de [10] @> Δ-10 {[«10""»]}
<MI 209ee BRA 0x20a00> {[«10""»]}
<POP 209f0-20a00 Naked> Σ0 Δ-10 ↓ ←0x209d2
<Blob 0x209f0 [10] @> Δ-10 {[«10""»]}
<POP 20a00-20a3c Naked> Σ-10 Δ+10 ↓ ←0x209de
<POP 20a00-20a02 StackAdj> Δ-4 {[-14-]}
<Lit 0x20a02> {[-10-]|[$$…]}
<Pointer.sp 0x20a02 4> Δ-4
<Const 0x20a06 0x1.2> Δ-2
<Const 0x20a0a 0x9.2> Δ-2
<Call 0x20a0e 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 20a14-20a16 StackAdj> Δ+8
<Pointer.fp 0x20a16 <LVAR -0x006 @ 4(r)>> Δ-4 {[-10-]|[$$…]|[@@-6]}
<Call 0x20a18 0x10460> {[-10-]|[$$…]|[@@-6]}
ExpLoad(a : String; b: Pointer)
<POP 20a1e-20a22 StackAdj> Δ+18 {}
<MI 20a22 CLR.B -(A7)> Δ-2 {[#0]}
<MI 20a24 MOVE.B (A6+0x8),-(A7)> Δ-2 {[#0]|[2, '(A6+0x8)']}
<MI 20a28 MOVE.L (A6-0x6),-(A7)> Δ-4 {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
<Call 0x20a2a 0x104ba> {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
ExpRun(a: Bool; adr: Byte; b: Pointer)
<POP 20a30-20a32 StackAdj> Δ+8 {}
<Pointer.fp 0x20a32 <LVAR -0x006 @ 4(r)>> Δ-4 {[@@-6]}
<Call 0x20a34 0x10496> {[@@-6]}
ExpClose(exp : Pointer)
<POP 20a3a-20a3c StackAdj> Δ+4 {}
<POP 20a3c-20a44 Epilogue> Σ0
@ 20a70
<LVAR 0x008 1(r)>
<LVAR -0x006 @ 4(r)>
<POP 20a70-20af4 Body> Δ+22
<POP 20a70-20a86 Prologue> Σ0 ↓
<POP 20a86-20a8a RegCacheLoad> Σ0 ↓
<POP 20a8a-20a96 Naked> Σ0 ↓ →0x20aa4
<POP 20a8a-20a8c StackAdj> Δ-2 {[-2-]}
<Call 0x20a8c 0x104cc> {[-2-]}
MemOnly2MB() : Bool
<MI 20a92 TST.B (A7)+> Δ+2 {}
<MI 20a94 BEQ 0x20aa4> {}
<POP 20a96-20aa4 Naked> Σ0 Δ-22 →0x20ab0
<Blob 0x20a96 [22] @> Δ-22 {[«22""»]}
<MI 20aa2 BRA 0x20ab0> {[«22""»]}
<POP 20aa4-20ab0 Naked> Σ0 Δ-22 ↓ ←0x20a8a
<Blob 0x20aa4 [22] @> Δ-22 {[«22""»]}
<POP 20ab0-20aec Naked> Σ-22 Δ+22 ↓ ←0x20a96
<POP 20ab0-20ab2 StackAdj> Δ-4 {[-26-]}
<Lit 0x20ab2> {[-22-]|[$$…]}
<Pointer.sp 0x20ab2 4> Δ-4
<Const 0x20ab6 0x1.2> Δ-2
<Const 0x20aba 0x16.2> Δ-2
<Call 0x20abe 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 20ac4-20ac6 StackAdj> Δ+8
<Pointer.fp 0x20ac6 <LVAR -0x006 @ 4(r)>> Δ-4 {[-22-]|[$$…]|[@@-6]}
<Call 0x20ac8 0x10460> {[-22-]|[$$…]|[@@-6]}
ExpLoad(a : String; b: Pointer)
<POP 20ace-20ad2 StackAdj> Δ+30 {}
<MI 20ad2 CLR.B -(A7)> Δ-2 {[#0]}
<MI 20ad4 MOVE.B (A6+0x8),-(A7)> Δ-2 {[#0]|[2, '(A6+0x8)']}
<MI 20ad8 MOVE.L (A6-0x6),-(A7)> Δ-4 {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
<Call 0x20ada 0x104ba> {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
ExpRun(a: Bool; adr: Byte; b: Pointer)
<POP 20ae0-20ae2 StackAdj> Δ+8 {}
<Pointer.fp 0x20ae2 <LVAR -0x006 @ 4(r)>> Δ-4 {[@@-6]}
<Call 0x20ae4 0x10496> {[@@-6]}
ExpClose(exp : Pointer)
<POP 20aea-20aec StackAdj> Δ+4 {}
<POP 20aec-20af4 Epilogue> Σ0
@ 20b10
<LVAR 0x008 1(r)>
<LVAR -0x006 @ 4(r)>
<POP 20b10-20b94 Body> Δ+14
<POP 20b10-20b26 Prologue> Σ0 ↓
<POP 20b26-20b2a RegCacheLoad> Σ0 ↓
<POP 20b2a-20b36 Naked> Σ0 ↓ →0x20b44
<POP 20b2a-20b2c StackAdj> Δ-2 {[-2-]}
<Call 0x20b2c 0x104cc> {[-2-]}
MemOnly2MB() : Bool
<MI 20b32 TST.B (A7)+> Δ+2 {}
<MI 20b34 BEQ 0x20b44> {}
<POP 20b36-20b44 Naked> Σ0 Δ-14 →0x20b50
<Blob 0x20b36 [14] @> Δ-14 {[«14""»]}
<MI 20b42 BRA 0x20b50> {[«14""»]}
<POP 20b44-20b50 Naked> Σ0 Δ-14 ↓ ←0x20b2a
<Blob 0x20b44 [14] @> Δ-14 {[«14""»]}
<POP 20b50-20b8c Naked> Σ-14 Δ+14 ↓ ←0x20b36
<POP 20b50-20b52 StackAdj> Δ-4 {[-18-]}
<Lit 0x20b52> {[-14-]|[$$…]}
<Pointer.sp 0x20b52 4> Δ-4
<Const 0x20b56 0x1.2> Δ-2
<Const 0x20b5a 0xe.2> Δ-2
<Call 0x20b5e 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 20b64-20b66 StackAdj> Δ+8
<Pointer.fp 0x20b66 <LVAR -0x006 @ 4(r)>> Δ-4 {[-14-]|[$$…]|[@@-6]}
<Call 0x20b68 0x10460> {[-14-]|[$$…]|[@@-6]}
ExpLoad(a : String; b: Pointer)
<POP 20b6e-20b72 StackAdj> Δ+22 {}
<MI 20b72 CLR.B -(A7)> Δ-2 {[#0]}
<MI 20b74 MOVE.B (A6+0x8),-(A7)> Δ-2 {[#0]|[2, '(A6+0x8)']}
<MI 20b78 MOVE.L (A6-0x6),-(A7)> Δ-4 {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
<Call 0x20b7a 0x104ba> {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
ExpRun(a: Bool; adr: Byte; b: Pointer)
<POP 20b80-20b82 StackAdj> Δ+8 {}
<Pointer.fp 0x20b82 <LVAR -0x006 @ 4(r)>> Δ-4 {[@@-6]}
<Call 0x20b84 0x10496> {[@@-6]}
ExpClose(exp : Pointer)
<POP 20b8a-20b8c StackAdj> Δ+4 {}
<POP 20b8c-20b94 Epilogue> Σ0
@ 20ba2
PROG_FAIL
<LVAR 0x008 1(r)>
<POP 20ba2-20c0a Body>
<POP 20ba2-20bb8 Prologue> Σ0 ↓
<POP 20bb8-20c02 Naked> Σ0 ↓
<Blob 0x20bb8 [14] @> Δ-14 {[«14""»]}
<Const 0x20bc4 0x3.2> Δ-2 {[«14""»]|[#3]}
<POP 20bc8-20bca StackAdj> Δ-8 {[«14""»]|[#3]|[-8-]}
<Lit 0x20bca 14> {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
<POP 20bdc-20bde StackAdj> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 20bde MOVE.B (A6+0x8),D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 20be2 EXTB.W D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 20be4 EXTW.L D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 20be6 MOVE.L D0,-(A7)> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
<Call 0x20be8 0x102e4> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 20bee-20bf0 StackAdj> Δ+4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<Call 0x20bf0 0x102d0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 20bf6-20bf8 StackAdj> Δ+8 {[«14""»]|[#3]|[-4-]}
<Call 0x20bf8 0x103b8> {[«14""»]|[#3]|[-4-]}
PopProgram(status : Byte; msg : String)
<POP 20bfe-20c02 StackAdj> Δ+20 {}
<POP 20c02-20c0a Epilogue> Σ0
@ 20c5e
EXP_FAIL
<LVAR 0x00e 1(r)>
<LVAR 0x00a 4(r)>
<LVAR 0x008 1(r)>
<POP 20c5e-20d9a Body>
<POP 20c5e-20c74 Prologue> Σ0 ↓
<POP 20c74-20c8a RegCacheLoad> Σ0 ↓
<POP 20c8a-20cea Naked> Σ0 ↓ →0x20d32
<Call 0x20c8a 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x20c90 [18] @> Δ-18 {[«18""»]}
<POP 20c9c-20c9e StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x20c9e 18> {[«18""»]|[$$Experiment error :]}
<Call 0x20caa 0x103e0> {[«18""»]|[$$Experiment error :]}
WriteConsoleStringCrLf(str : String)
<POP 20cac-20cad StackAdj> Δ+22 ↓ {}
<Blob 0x20cad [14] @> Δ-14 {[«14""»]}
<POP 20cbc-20cbe StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x20cbe 13> {[«14""»]|[-4-]|[$$Board :_]}
<POP 20cc8-20cca StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<MI 20cca MOVE.B (A6+0xe),(A7)> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<Call 0x20cce 0x1049c> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
BoardName(address : B) : String
<POP 20cd4-20cd6 StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
<Call 0x20cd6 0x102d0> {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 20cdc-20cde StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x20cde 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 20ce0-20ce2 StackAdj> Δ+18 {}
<MI 20ce2 MOVEA.L (A6+0xa),A0> {}
<MI 20ce6 CMPA.W #0x01,A0> {}
<MI 20ce8 BEQ 0x20d32> {}
<POP 20cea-20d32 Naked> Σ0 ↓
<Blob 0x20cea [14] @> Δ-14 {[«14""»]}
<Blob 0x20cfa [30] (A0+0xfc)> Δ-30 {[«14""»]|[«30»]}
<POP 20d0a-20d0c StackAdj> Δ-8 {[«14""»]|[«30»]|[-8-]}
<Lit 0x20d0c 13> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
<POP 20d16-20d18 StackAdj> Δ-4 {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
<Lit 0x20d18> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
<Pointer.sp 0x20d18 12> Δ-4
<Const 0x20d1c 0x1.2> Δ-2
<Const 0x20d1e 0x1e.2> Δ-2
<Call 0x20d20 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 20d22-20d24 StackAdj> Δ+8
<Call 0x20d24 0x102d0> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
StringCat2(a, b : String) : String
<POP 20d2a-20d2c StackAdj> Δ+8 {[«14""»]|[«30»]|[-4-]}
<Call 0x20d2c 0x103e0> {[«14""»]|[«30»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 20d2e-20d32 StackAdj> Δ+48 {}
<POP 20d32-20d92 Naked> Σ0 ↓ ←0x20c8a
<Blob 0x20d32 [14] @> Δ-14 {[«14""»]}
<POP 20d42-20d44 StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x20d44 13> {[«14""»]|[-4-]|[$$Status :_]}
<POP 20d4e-20d50 StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<MI 20d50 MOVE.B (A6+0x8),(A7)> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<Call 0x20d54 0x104a2> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
ExpStatus2Text(status.B, &String)
<POP 20d5a-20d5c StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
<Call 0x20d5c 0x102d0> {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 20d62-20d64 StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x20d64 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 20d66-20d67 StackAdj> Δ+18 ↓ {}
<Blob 0x20d67 [24] @> Δ-24 {[«24""»]}
<Const 0x20d76 0x2.2> Δ-2 {[«24""»]|[#2]}
<POP 20d7a-20d7c StackAdj> Δ-4 {[«24""»]|[#2]|[-4-]}
<Lit 0x20d7c 23> {[«24""»]|[#2]|[$$Fatal experiment error.]}
<Call 0x20d8a 0x103b8> {[«24""»]|[#2]|[$$Fatal experiment error.]}
PopProgram(status : Byte; msg : String)
<POP 20d90-20d92 StackAdj> Δ+30 {}
<POP 20d92-20d9a Epilogue> Σ0
00020000 ; -------------------------------------------------------------------------------------- 00020000 ; R1000.Disassembly modules: 00020000 ; import all 00020000 ; import kind.program 00020000 ; import ident.42e4830ae012f380 00020000 ; -------------------------------------------------------------------------------------- 00020000 stack.top: 00020000 00 04 00 00 | | .CODE 0x40000 ; STACK.END 00020004 00 02 08 14 | | .CODE START 00020008 00 01 02 88 | | .CODE FSCALL_10288 0002000c heap.top: 0002000c 00 02 0d de | | .PTR 0x20dde 00020010 code.end: 00020010 00 02 0d 9a | | .PTR 0x20d9a 00020014 00 00 00 00 | | .CONST 0x00000000 00020018 programfailurehandler: 00020018 00 02 0b a2 | | .CODE PROG_FAIL 0002001c experimentfailurehandler: 0002001c 00 02 0c 5e | ^ | .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 43 4f |@(#)CO | .XXX[0x6] 00020110 4e 46 49 47 55 52 45 2c |NFIGURE,| .XXX[0x18] 00020118 32 2e 32 2c 39 31 2f 30 |2.2,91/0| 00020120 35 2f 32 31 2c 31 37 3a |5/21,17:| 00020128 31 38 3a 31 39 5c |18:19\ | .XXX[0x6] 0002012e 43 61 6e 6e 6f 74 20 72 |Cannot r| .TXT 'Cannot read hardware configuration. ' 00020152 20 65 78 69 73 74 73 20 | exists | .TXT ' exists but is not in configuration. Board will not be used. ' 00020190 20 69 73 20 69 6e 20 63 | is in c| .TXT ' is in configuration but does not respond.' 000201ba 20 63 61 6e 6e 6f 74 20 | cannot | .TXT ' cannot be in the configuration when using 32 MB memory boards. ' 000201fa 20 62 6f 61 72 64 20 64 | board d| .TXT ' board did not respond to RESET command - it may not exist' 00020234 20 62 6f 61 72 64 20 72 | board r| .TXT ' board returned a illegal response to a RESET command ' 0002026a 4e 4f |NO | .TXT 'NO' 0002026c 56 52 |VR | .TXT 'VR' 0002026e 41 4d |AM | .TXT 'AM' 00020270 43 4f 4e 56 45 52 54 20 |CONVERT | .TXT 'CONVERT ' 00020278 4e 4f 5f 4e 4f 56 52 41 |NO_NOVRA| .TXT 'NO_NOVRAM ' 00020282 74 68 65 20 65 72 72 6f |the erro| .TXT 'the error above was fatal ' 0002029c ; -------------------------------------------------------------------------------------- 0002029c ; OMSI PASCAL Function 0002029c ; <LVAR -0x004 @ 1(r)> 0002029c ; -------------------------------------------------------------------------------------- 0002029c 4e 56 ff ba |NV | LINK.W A6,#0xffba 000202a0 bf d5 | | CMPA.L (A5),A7 000202a2 62 06 |b | BHI 0x202aa 000202a4 44 fc 00 02 |D | MOVE.W #0x2,CCR 000202a8 4e 76 |Nv | TRAPV 000202aa de fc 00 42 | B | ADDA.W #0x42,A7 000202ae 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7) 000202b2 48 79 00 02 0d a8 |Hy | PEA.L 0x20da8 000202b8 48 6e ff fc |Hn | PEA.L (A6-0x4) 000202bc 4e b9 00 01 05 7a |N z | JSR Read_HARDWARE.M200_CONFIG(a : Pointer; VAR status : Bool) 000202c2 50 4f |PO | ADDQ.L #0x8,A7 000202c4 4a 2e ff fc |J. | TST.B (A6-0x4) 000202c8 66 36 |f6 | BNE 0x20300 000202ca 9e fc 00 24 | $ | SUBA.W #0x24,A7 000202ce 20 4f | O | MOVEA.L A7,A0 000202d0 43 fa fe 5c |C \ | LEA.L 0x2012e,A1 000202d4 70 22 |p" | MOVEQ.L #0x22,D0 000202d6 10 d9 | | MOVE.B (A1)+,(A0)+ 000202d8 51 c8 ff fc |Q | DBF D0,0x202d6 000202dc 1f 3c 00 0e | < | MOVE.B #0x0e,-(A7) 000202e0 59 4f |YO | SUBQ.L #0x4,A7 000202e2 48 6f 00 06 |Ho | PEA.L (A7+0x6) 000202e6 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000202ea 3f 3c 00 23 |?< # | MOVE.W #0x23,-(A7) 000202ee 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000202f4 50 4f |PO | ADDQ.L #0x8,A7 000202f6 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 000202fc de fc 00 2a | * | ADDA.W #0x2a,A7 00020300 48 79 00 02 0d a6 |Hy | PEA.L 0x20da6 00020306 4e b9 00 01 05 a4 |N | JSR Read_fc0c() : Word 0002030c 58 4f |XO | ADDQ.L #0x4,A7 0002030e 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1 00020312 4e 5e |N^ | UNLK A6 00020314 4e 75 |Nu | RTS 00020316 ; -------------------------------------------------------------------------------------- 00020316 ; OMSI PASCAL Function 00020316 ; <LVAR -0x008 1(w) 2(r)> 00020316 ; <LVAR -0x009 @> 00020316 ; <LVAR -0x00a @> 00020316 ; <LVAR -0x00b @ 1(r)> 00020316 ; -------------------------------------------------------------------------------------- 00020316 4e 56 ff 64 |NV d | LINK.W A6,#0xff64 0002031a bf d5 | | CMPA.L (A5),A7 0002031c 62 06 |b | BHI 0x20324 0002031e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020322 4e 76 |Nv | TRAPV 00020324 de fc 00 90 | | ADDA.W #0x90,A7 00020328 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 0002032c 45 ee ff f8 |E | LEA.L (A6-0x8),A2 00020330 47 f9 00 02 0d a9 |G | LEA.L 0x20da9,A3 00020336 49 f9 00 01 04 8a |I | LEA.L DiProcCmd(board : Byte; cmd : Byte),A4 0002033c 74 01 |t | MOVEQ.L #0x01,D2 0002033e 76 0c |v | MOVEQ.L #0x0c,D3 00020340 78 03 |x | MOVEQ.L #0x03,D4 00020342 10 39 00 02 0d a7 | 9 | MOVE.B 0x20da7,D0 00020348 e9 08 | | LSL.B #0x4,D0 0002034a ee 08 | | LSR.B #0x7,D0 0002034c 44 00 |D | NEG.B D0 0002034e 52 00 |R | ADDQ.B #0x1,D0 00020350 1e 00 | | MOVE.B D0,D7 00020352 02 12 00 ef | | ANDI.B #0xef,(A2) 00020356 02 12 00 df | | ANDI.B #0xdf,(A2) 0002035a 02 12 00 bf | | ANDI.B #0xbf,(A2) 0002035e 02 12 00 7f | | ANDI.B #0x7f,(A2) 00020362 02 12 00 f7 | | ANDI.B #0xf7,(A2) 00020366 10 13 | | MOVE.B (A3),D0 00020368 b0 02 | | CMP.B D2,D0 0002036a 66 04 |f | BNE 0x20370 0002036c 00 12 00 08 | | ORI.B #0x08,(A2) 00020370 3f 12 |? | MOVE.W (A2),-(A7) 00020372 4e b9 00 01 05 d4 |N | JSR Update_fc0c(new : Byte) 00020378 54 4f |TO | ADDQ.L #0x2,A7 0002037a 48 78 00 0f |Hx | PEA.L 0xf 0002037e 4e b9 00 01 04 d8 |N | JSR ExpInit(a : Long) 00020384 58 4f |XO | ADDQ.L #0x4,A7 00020386 7c 0c || | MOVEQ.L #0x0c,D6 00020388 10 06 | | MOVE.B D6,D0 0002038a 48 80 |H | EXTB.W D0 0002038c 90 43 | C | SUB.W D3,D0 0002038e 41 84 |A | CHK.W D4,D0 00020390 41 f9 00 02 0d 9a |A | LEA.L 0x20d9a,A0 00020396 1a 30 00 10 | 0 | MOVE.B (A0+D0.W+#0x10),D5 0002039a 1f 06 | | MOVE.B D6,-(A7) 0002039c 1f 3c 00 04 | < | MOVE.B #0x04,-(A7) 000203a0 4e 94 |N | JSR (A4) 000203a2 54 4f |TO | ADDQ.L #0x2,A7 000203a4 1e 86 | | MOVE.B D6,(A7) 000203a6 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 000203aa 4e 94 |N | JSR (A4) 000203ac 54 4f |TO | ADDQ.L #0x2,A7 000203ae 1e 86 | | MOVE.B D6,(A7) 000203b0 48 6e ff f5 |Hn | PEA.L (A6-0xb) 000203b4 48 6e ff f6 |Hn | PEA.L (A6-0xa) 000203b8 48 6e ff f7 |Hn | PEA.L (A6-0x9) 000203bc 4e b9 00 01 04 84 |N | JSR DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool) 000203c2 de fc 00 0e | | ADDA.W #0xe,A7 000203c6 4a 05 |J | TST.B D5 000203c8 66 00 00 d4 |f | BNE 0x2049e 000203cc 10 2e ff f5 | . | MOVE.B (A6-0xb),D0 000203d0 0c 00 00 05 | | CMPI.B #0x05,D0 000203d4 66 00 00 bc |f | BNE 0x20492 000203d8 4a 13 |J | TST.B (A3) 000203da 66 56 |fV | BNE 0x20432 000203dc 0c 06 00 0d | | CMPI.B #0x0d,D6 000203e0 67 06 |g | BEQ 0x203e8 000203e2 0c 06 00 0f | | CMPI.B #0x0f,D6 000203e6 66 4a |fJ | BNE 0x20432 000203e8 13 c2 00 02 0d a2 | | MOVE.B D2,0x20da2 000203ee 9e fc 00 40 | @ | SUBA.W #0x40,A7 000203f2 20 4f | O | MOVEA.L A7,A0 000203f4 43 fa fd c4 |C | LEA.L 0x201ba,A1 000203f8 70 3e |p> | MOVEQ.L #0x3e,D0 000203fa 10 d9 | | MOVE.B (A1)+,(A0)+ 000203fc 51 c8 ff fc |Q | DBF D0,0x203fa 00020400 51 4f |QO | SUBQ.L #0x8,A7 00020402 1f 06 | | MOVE.B D6,-(A7) 00020404 4e b9 00 01 04 9c |N | JSR BoardName(address : B) : String 0002040a 55 4f |UO | SUBQ.L #0x2,A7 0002040c 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00020410 3f 02 |? | MOVE.W D2,-(A7) 00020412 3f 3c 00 3f |?< ? | MOVE.W #0x3f,-(A7) 00020416 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002041c 50 4f |PO | ADDQ.L #0x8,A7 0002041e 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020424 50 4f |PO | ADDQ.L #0x8,A7 00020426 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002042c de fc 00 44 | D | ADDA.W #0x44,A7 00020430 60 60 |`` | BRA 0x20492 00020432 4a 13 |J | TST.B (A3) 00020434 66 1a |f | BNE 0x20450 00020436 1f 06 | | MOVE.B D6,-(A7) 00020438 4e b9 00 02 09 b6 |N | JSR 0x209b6 0002043e 1e 86 | | MOVE.B D6,(A7) 00020440 4e b9 00 02 0b 10 |N | JSR 0x20b10 00020446 1e 86 | | MOVE.B D6,(A7) 00020448 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 0002044c 4e 94 |N | JSR (A4) 0002044e 58 4f |XO | ADDQ.L #0x4,A7 00020450 9e fc 00 3e | > | SUBA.W #0x3e,A7 00020454 20 4f | O | MOVEA.L A7,A0 00020456 43 fa fc fa |C | LEA.L 0x20152,A1 0002045a 70 3c |p< | MOVEQ.L #0x3c,D0 0002045c 10 d9 | | MOVE.B (A1)+,(A0)+ 0002045e 51 c8 ff fc |Q | DBF D0,0x2045c 00020462 51 4f |QO | SUBQ.L #0x8,A7 00020464 1f 06 | | MOVE.B D6,-(A7) 00020466 4e b9 00 01 04 9c |N | JSR BoardName(address : B) : String 0002046c 55 4f |UO | SUBQ.L #0x2,A7 0002046e 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00020472 3f 02 |? | MOVE.W D2,-(A7) 00020474 3f 3c 00 3d |?< = | MOVE.W #0x3d,-(A7) 00020478 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002047e 50 4f |PO | ADDQ.L #0x8,A7 00020480 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020486 50 4f |PO | ADDQ.L #0x8,A7 00020488 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002048e de fc 00 42 | B | ADDA.W #0x42,A7 00020492 1f 06 | | MOVE.B D6,-(A7) 00020494 1f 04 | | MOVE.B D4,-(A7) 00020496 4e 94 |N | JSR (A4) 00020498 58 4f |XO | ADDQ.L #0x4,A7 0002049a 60 00 00 84 |` | BRA 0x20520 0002049e 10 06 | | MOVE.B D6,D0 000204a0 48 80 |H | EXTB.W D0 000204a2 32 00 |2 | MOVE.W D0,D1 000204a4 92 43 | C | SUB.W D3,D1 000204a6 b2 44 | D | CMP.W D4,D1 000204a8 63 02 |c | BLS 0x204ac 000204aa 4e 4e |NN | TRAP #14 000204ac d2 41 | A | ADD.W D1,D1 000204ae 32 3b 10 06 4e fb 10 02 |2; N | SWITCH D1.W 000204b6 00 08 | | .CONST 0x8 ; [0x0] -> 0x204be 000204b8 00 0e | | .CONST 0xe ; [0x1] -> 0x204c4 000204ba 00 14 | | .CONST 0x14 ; [0x2] -> 0x204ca 000204bc 00 1a | | .CONST 0x1a ; [0x3] -> 0x204d0 000204be switch@0x204ae[0x0]: 000204be 00 12 00 10 | | ORI.B #0x10,(A2) 000204c2 60 10 |` | BRA 0x204d4 000204c4 switch@0x204ae[0x1]: 000204c4 00 12 00 20 | | ORI.B #0x20,(A2) 000204c8 60 0a |` | BRA 0x204d4 000204ca switch@0x204ae[0x2]: 000204ca 00 12 00 40 | @ | ORI.B #0x40,(A2) 000204ce 60 04 |` | BRA 0x204d4 000204d0 switch@0x204ae[0x3]: 000204d0 00 12 00 80 | | ORI.B #0x80,(A2) 000204d4 12 2e ff f5 | . | MOVE.B (A6-0xb),D1 000204d8 0c 01 00 05 | | CMPI.B #0x05,D1 000204dc 67 42 |gB | BEQ 0x20520 000204de 13 c2 00 02 0d a2 | | MOVE.B D2,0x20da2 000204e4 41 fa fc d4 |A | LEA.L 0x201ba,A0 000204e8 72 14 |r | MOVEQ.L #0x14,D1 000204ea 3f 20 |? | MOVE.W -(A0),-(A7) 000204ec 51 c9 ff fc |Q | DBF D1,0x204ea 000204f0 51 4f |QO | SUBQ.L #0x8,A7 000204f2 1f 00 | | MOVE.B D0,-(A7) 000204f4 4e b9 00 01 04 9c |N | JSR BoardName(address : B) : String 000204fa 55 4f |UO | SUBQ.L #0x2,A7 000204fc 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00020500 3f 02 |? | MOVE.W D2,-(A7) 00020502 3f 3c 00 2a |?< * | MOVE.W #0x2a,-(A7) 00020506 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002050c 50 4f |PO | ADDQ.L #0x8,A7 0002050e 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020514 50 4f |PO | ADDQ.L #0x8,A7 00020516 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002051c de fc 00 2e | . | ADDA.W #0x2e,A7 00020520 10 06 | | MOVE.B D6,D0 00020522 48 80 |H | EXTB.W D0 00020524 90 43 | C | SUB.W D3,D0 00020526 b0 44 | D | CMP.W D4,D0 00020528 63 02 |c | BLS 0x2052c 0002052a 4e 4e |NN | TRAP #14 0002052c d0 40 | @ | ADD.W D0,D0 0002052e 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 00020536 00 08 | | .CONST 0x8 ; [0x0] -> 0x2053e 00020538 00 20 | | .CONST 0x20 ; [0x1] -> 0x20556 0002053a 00 38 | 8 | .CONST 0x38 ; [0x2] -> 0x2056e 0002053c 00 50 | P | .CONST 0x50 ; [0x3] -> 0x20586 0002053e switch@0x2052e[0x0]: 0002053e 70 00 |p | MOVEQ.L #0x00,D0 00020540 4a 07 |J | TST.B D7 00020542 66 0e |f | BNE 0x20552 00020544 12 39 00 02 0d a6 | 9 | MOVE.B 0x20da6,D1 0002054a e7 09 | | LSL.B #0x3,D1 0002054c ee 09 | | LSR.B #0x7,D1 0002054e ba 01 | | CMP.B D1,D5 00020550 67 02 |g | BEQ 0x20554 00020552 52 00 |R | ADDQ.B #0x1,D0 00020554 60 44 |`D | BRA 0x2059a 00020556 switch@0x2052e[0x1]: 00020556 70 00 |p | MOVEQ.L #0x00,D0 00020558 4a 07 |J | TST.B D7 0002055a 66 0e |f | BNE 0x2056a 0002055c 12 39 00 02 0d a6 | 9 | MOVE.B 0x20da6,D1 00020562 e5 09 | | LSL.B #0x2,D1 00020564 ee 09 | | LSR.B #0x7,D1 00020566 ba 01 | | CMP.B D1,D5 00020568 67 02 |g | BEQ 0x2056c 0002056a 52 00 |R | ADDQ.B #0x1,D0 0002056c 60 2c |`, | BRA 0x2059a 0002056e switch@0x2052e[0x2]: 0002056e 70 00 |p | MOVEQ.L #0x00,D0 00020570 4a 07 |J | TST.B D7 00020572 66 0e |f | BNE 0x20582 00020574 12 39 00 02 0d a6 | 9 | MOVE.B 0x20da6,D1 0002057a e3 09 | | LSL.B #0x1,D1 0002057c ee 09 | | LSR.B #0x7,D1 0002057e ba 01 | | CMP.B D1,D5 00020580 67 02 |g | BEQ 0x20584 00020582 52 00 |R | ADDQ.B #0x1,D0 00020584 60 14 |` | BRA 0x2059a 00020586 switch@0x2052e[0x3]: 00020586 70 00 |p | MOVEQ.L #0x00,D0 00020588 4a 07 |J | TST.B D7 0002058a 66 0c |f | BNE 0x20598 0002058c 12 39 00 02 0d a6 | 9 | MOVE.B 0x20da6,D1 00020592 ee 09 | | LSR.B #0x7,D1 00020594 ba 01 | | CMP.B D1,D5 00020596 67 02 |g | BEQ 0x2059a 00020598 52 00 |R | ADDQ.B #0x1,D0 0002059a 1e 00 | | MOVE.B D0,D7 0002059c 52 06 |R | ADDQ.B #0x1,D6 0002059e 0c 06 00 0f | | CMPI.B #0x0f,D6 000205a2 6f 00 fd e4 |o | BLE 0x20388 000205a6 3f 12 |? | MOVE.W (A2),-(A7) 000205a8 4e b9 00 01 05 d4 |N | JSR Update_fc0c(new : Byte) 000205ae 54 4f |TO | ADDQ.L #0x2,A7 000205b0 48 78 00 0f |Hx | PEA.L 0xf 000205b4 4e b9 00 01 04 d8 |N | JSR ExpInit(a : Long) 000205ba 58 4f |XO | ADDQ.L #0x4,A7 000205bc 4a 13 |J | TST.B (A3) 000205be 66 2e |f. | BNE 0x205ee 000205c0 4a 39 00 02 0d aa |J9 | TST.B 0x20daa 000205c6 67 26 |g& | BEQ 0x205ee 000205c8 4a 39 00 02 0d ac |J9 | TST.B 0x20dac 000205ce 67 1e |g | BEQ 0x205ee 000205d0 1f 03 | | MOVE.B D3,-(A7) 000205d2 4e b9 00 02 09 1e |N | JSR 0x2091e 000205d8 1e bc 00 0e | | MOVE.B #0x0e,(A7) 000205dc 4e b9 00 02 09 1e |N | JSR 0x2091e 000205e2 1e bc 00 0e | | MOVE.B #0x0e,(A7) 000205e6 4e b9 00 02 0a 70 |N p | JSR 0x20a70 000205ec 54 4f |TO | ADDQ.L #0x2,A7 000205ee 4a 07 |J | TST.B D7 000205f0 66 08 |f | BNE 0x205fa 000205f2 4a 39 00 02 0d a3 |J9 | TST.B 0x20da3 000205f8 67 06 |g | BEQ 0x20600 000205fa 4e b9 00 01 05 c8 |N | JSR And_fc0c_7f(void) 00020600 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00020604 4e 5e |N^ | UNLK A6 00020606 4e 75 |Nu | RTS 00020608 ; -------------------------------------------------------------------------------------- 00020608 ; OMSI PASCAL Function 00020608 ; -------------------------------------------------------------------------------------- 00020608 4e 56 ff f0 |NV | LINK.W A6,#0xfff0 0002060c bf d5 | | CMPA.L (A5),A7 0002060e 62 06 |b | BHI 0x20616 00020610 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020614 4e 76 |Nv | TRAPV 00020616 de fc 00 10 | | ADDA.W #0x10,A7 0002061a 48 e7 c0 00 |H | MOVEM.L D1+D0,-(A7) 0002061e 72 05 |r | MOVEQ.L #0x05,D1 00020620 10 39 00 02 0d a7 | 9 | MOVE.B 0x20da7,D0 00020626 e9 08 | | LSL.B #0x4,D0 00020628 ee 08 | | LSR.B #0x7,D0 0002062a 66 06 |f | BNE 0x20632 0002062c 4e b9 00 01 05 bc |N | JSR R1000_Reset_H(void) 00020632 1f 01 | | MOVE.B D1,-(A7) 00020634 1f 3c 00 04 | < | MOVE.B #0x04,-(A7) 00020638 4e b9 00 01 04 8a |N | JSR DiProcCmd(board : Byte; cmd : Byte) 0002063e 54 4f |TO | ADDQ.L #0x2,A7 00020640 1e 81 | | MOVE.B D1,(A7) 00020642 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 00020646 4e b9 00 01 04 8a |N | JSR DiProcCmd(board : Byte; cmd : Byte) 0002064c 58 4f |XO | ADDQ.L #0x4,A7 0002064e 4e ba fc c6 |N | JSR 0x20316 00020652 4c df 00 03 |L | MOVEM.L (A7)+,D0+D1 00020656 4e 5e |N^ | UNLK A6 00020658 4e 75 |Nu | RTS 0002065a ; -------------------------------------------------------------------------------------- 0002065a ; OMSI PASCAL Function 0002065a ; <LVAR 0x008 1(r)> 0002065a ; <LVAR -0x004 @> 0002065a ; <LVAR -0x005 @> 0002065a ; <LVAR -0x006 @ 1(r)> 0002065a ; -------------------------------------------------------------------------------------- 0002065a 4e 56 ff 96 |NV | LINK.W A6,#0xff96 ; Spelunked 0002065e bf d5 | | CMPA.L (A5),A7 00020660 62 06 |b | BHI 0x20668 00020662 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020666 4e 76 |Nv | TRAPV 00020668 de fc 00 64 | d | ADDA.W #0x64,A7 0002066c 48 e7 e0 e0 |H | MOVEM.L A2+A1+A0+D2+D1+D0,-(A7) 00020670 45 ee 00 08 |E | LEA.L (A6+0x8),A2 00020674 72 01 |r | MOVEQ.L #0x01,D1 00020676 74 3a |t: | MOVEQ.L #0x3a,D2 00020678 1f 12 | | MOVE.B (A2),-(A7) 0002067a 1f 3c 00 04 | < | MOVE.B #0x04,-(A7) 0002067e 4e b9 00 01 04 8a |N | JSR DiProcCmd(board : Byte; cmd : Byte) 00020684 54 4f |TO | ADDQ.L #0x2,A7 00020686 1e 92 | | MOVE.B (A2),(A7) 00020688 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 0002068c 4e b9 00 01 04 8a |N | JSR DiProcCmd(board : Byte; cmd : Byte) 00020692 54 4f |TO | ADDQ.L #0x2,A7 00020694 1e 92 | | MOVE.B (A2),(A7) 00020696 48 6e ff fa |Hn | PEA.L (A6-0x6) 0002069a 48 6e ff fb |Hn | PEA.L (A6-0x5) 0002069e 48 6e ff fc |Hn | PEA.L (A6-0x4) 000206a2 4e b9 00 01 04 84 |N | JSR DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool) 000206a8 de fc 00 0e | | ADDA.W #0xe,A7 000206ac 10 2e ff fa | . | MOVE.B (A6-0x6),D0 000206b0 0c 00 00 05 | | CMPI.B #0x05,D0 000206b4 67 78 |gx | BEQ 0x2072e 000206b6 13 c1 00 02 0d a2 | | MOVE.B D1,0x20da2 000206bc 59 4f |YO | SUBQ.L #0x4,A7 000206be 1f 12 | | MOVE.B (A2),-(A7) 000206c0 4e b9 00 01 04 9c |N | JSR BoardName(address : B) : String 000206c6 54 4f |TO | ADDQ.L #0x2,A7 000206c8 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String) 000206ce 58 4f |XO | ADDQ.L #0x4,A7 000206d0 0c 00 00 09 | | CMPI.B #0x09,D0 000206d4 66 2a |f* | BNE 0x20700 000206d6 41 fa fb 5c |A \ | LEA.L 0x20234,A0 000206da 70 1c |p | MOVEQ.L #0x1c,D0 000206dc 3f 20 |? | MOVE.W -(A0),-(A7) 000206de 51 c8 ff fc |Q | DBF D0,0x206dc 000206e2 59 4f |YO | SUBQ.L #0x4,A7 000206e4 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000206e8 3f 01 |? | MOVE.W D1,-(A7) 000206ea 3f 02 |? | MOVE.W D2,-(A7) 000206ec 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000206f2 50 4f |PO | ADDQ.L #0x8,A7 000206f4 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000206fa de fc 00 3e | > | ADDA.W #0x3e,A7 000206fe 60 2e |`. | BRA 0x2072e 00020700 9e fc 00 36 | 6 | SUBA.W #0x36,A7 00020704 20 4f | O | MOVEA.L A7,A0 00020706 43 fa fb 2c |C , | LEA.L 0x20234,A1 0002070a 70 34 |p4 | MOVEQ.L #0x34,D0 0002070c 10 d9 | | MOVE.B (A1)+,(A0)+ 0002070e 51 c8 ff fc |Q | DBF D0,0x2070c 00020712 59 4f |YO | SUBQ.L #0x4,A7 00020714 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020718 3f 01 |? | MOVE.W D1,-(A7) 0002071a 3f 3c 00 35 |?< 5 | MOVE.W #0x35,-(A7) 0002071e 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020724 50 4f |PO | ADDQ.L #0x8,A7 00020726 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002072c de c2 | | ADDA.W D2,A7 0002072e 4c df 07 07 |L | MOVEM.L (A7)+,D0+D1+D2+A0+A1+A2 00020732 4e 5e |N^ | UNLK A6 00020734 4e 75 |Nu | RTS 00020736 ; -------------------------------------------------------------------------------------- 00020736 ; OMSI PASCAL Function 00020736 ; -------------------------------------------------------------------------------------- 00020736 4e 56 ff e4 |NV | LINK.W A6,#0xffe4 0002073a bf d5 | | CMPA.L (A5),A7 0002073c 62 06 |b | BHI 0x20744 0002073e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020742 4e 76 |Nv | TRAPV 00020744 de fc 00 14 | | ADDA.W #0x14,A7 00020748 48 e7 01 80 |H | MOVEM.L A0+D7,-(A7) 0002074c 41 fa ff 0c |A | LEA.L 0x2065a,A0 00020750 4a 39 00 02 0d a2 |J9 | TST.B 0x20da2 00020756 66 40 |f@ | BNE 0x20798 00020758 1f 3c 00 04 | < | MOVE.B #0x04,-(A7) 0002075c 4e 90 |N | JSR (A0) 0002075e 1e bc 00 02 | | MOVE.B #0x02,(A7) 00020762 4e 90 |N | JSR (A0) 00020764 1e bc 00 03 | | MOVE.B #0x03,(A7) 00020768 4e 90 |N | JSR (A0) 0002076a 1e bc 00 07 | | MOVE.B #0x07,(A7) 0002076e 4e 90 |N | JSR (A0) 00020770 1e bc 00 06 | | MOVE.B #0x06,(A7) 00020774 4e 90 |N | JSR (A0) 00020776 54 4f |TO | ADDQ.L #0x2,A7 00020778 7e 0c |~ | MOVEQ.L #0x0c,D7 0002077a 55 4f |UO | SUBQ.L #0x2,A7 0002077c 1f 07 | | MOVE.B D7,-(A7) 0002077e 4e b9 00 01 04 c0 |N | JSR HasBoard(diproc_addr: Byte) : Byte 00020784 54 4f |TO | ADDQ.L #0x2,A7 00020786 4a 1f |J | TST.B (A7)+ 00020788 67 06 |g | BEQ 0x20790 0002078a 1f 07 | | MOVE.B D7,-(A7) 0002078c 4e 90 |N | JSR (A0) 0002078e 54 4f |TO | ADDQ.L #0x2,A7 00020790 52 07 |R | ADDQ.B #0x1,D7 00020792 0c 07 00 0f | | CMPI.B #0x0f,D7 00020796 6f e2 |o | BLE 0x2077a 00020798 4c df 01 80 |L | MOVEM.L (A7)+,D7+A0 0002079c 4e 5e |N^ | UNLK A6 0002079e 4e 75 |Nu | RTS 000207a0 ; -------------------------------------------------------------------------------------- 000207a0 ; OMSI PASCAL Function 000207a0 ; <LVAR -0x004 @> 000207a0 ; -------------------------------------------------------------------------------------- 000207a0 4e 56 ff ca |NV | LINK.W A6,#0xffca 000207a4 bf d5 | | CMPA.L (A5),A7 000207a6 62 06 |b | BHI 0x207ae 000207a8 44 fc 00 02 |D | MOVE.W #0x2,CCR 000207ac 4e 76 |Nv | TRAPV 000207ae de fc 00 32 | 2 | ADDA.W #0x32,A7 000207b2 48 e7 c0 c0 |H | MOVEM.L A1+A0+D1+D0,-(A7) 000207b6 72 01 |r | MOVEQ.L #0x01,D1 000207b8 3f 3a fa b4 |?: | MOVE.W 0x2026e,-(A7) 000207bc 3f 3a fa ae |?: | MOVE.W 0x2026c,-(A7) 000207c0 3f 3a fa a8 |?: | MOVE.W 0x2026a,-(A7) 000207c4 51 4f |QO | SUBQ.L #0x8,A7 000207c6 20 4f | O | MOVEA.L A7,A0 000207c8 43 fa fa a6 |C | LEA.L 0x20270,A1 000207cc 70 06 |p | MOVEQ.L #0x06,D0 000207ce 10 d9 | | MOVE.B (A1)+,(A0)+ 000207d0 51 c8 ff fc |Q | DBF D0,0x207ce 000207d4 59 4f |YO | SUBQ.L #0x4,A7 000207d6 48 6f 00 0c |Ho | PEA.L (A7+0xc) 000207da 3f 01 |? | MOVE.W D1,-(A7) 000207dc 3f 3c 00 06 |?< | MOVE.W #0x6,-(A7) 000207e0 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000207e6 58 4f |XO | ADDQ.L #0x4,A7 000207e8 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000207ec 3f 01 |? | MOVE.W D1,-(A7) 000207ee 3f 3c 00 07 |?< | MOVE.W #0x7,-(A7) 000207f2 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000207f8 5c 4f |\O | ADDQ.L #0x6,A7 000207fa 1e bc 00 02 | | MOVE.B #0x02,(A7) 000207fe 48 6e ff fc |Hn | PEA.L (A6-0x4) 00020802 4e b9 00 01 03 b0 |N | JSR PushProgram(a : String; b : String; MOD c : B; VAR d : Bool) 00020808 de fc 00 1c | | ADDA.W #0x1c,A7 0002080c 4c df 03 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1 00020810 4e 5e |N^ | UNLK A6 00020812 4e 75 |Nu | RTS 00020814 ; -------------------------------------------------------------------------------------- 00020814 ; OMSI PASCAL Function 00020814 ; -------------------------------------------------------------------------------------- 00020814 START: 00020814 4f fa 00 08 |O | LEA.L MAIN,A7 00020818 4e f9 00 01 02 80 |N | JMP ?start_program 0002081e MAIN: 0002081e 45 f9 00 02 0d a4 |E | LEA.L 0x20da4,A2 00020824 47 f9 00 02 0d a3 |G | LEA.L 0x20da3,A3 0002082a 49 f9 00 02 0d a2 |I | LEA.L 0x20da2,A4 00020830 72 01 |r | MOVEQ.L #0x01,D1 00020832 74 0a |t | MOVEQ.L #0x0a,D2 00020834 4e b9 00 01 03 98 |N | JSR FSCALL_10398 0002083a 9e c2 | | SUBA.W D2,A7 0002083c 20 4f | O | MOVEA.L A7,A0 0002083e 43 fa fa 38 |C 8 | LEA.L 0x20278,A1 00020842 70 08 |p | MOVEQ.L #0x08,D0 00020844 10 d9 | | MOVE.B (A1)+,(A0)+ 00020846 51 c8 ff fc |Q | DBF D0,0x20844 0002084a 5d 4f |]O | SUBQ.L #0x6,A7 0002084c 4e b9 00 01 03 c4 |N | JSR GetArgv() : String 00020852 59 4f |YO | SUBQ.L #0x4,A7 00020854 48 6f 00 0a |Ho | PEA.L (A7+0xa) 00020858 3f 01 |? | MOVE.W D1,-(A7) 0002085a 3f 3c 00 09 |?< | MOVE.W #0x9,-(A7) 0002085e 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020864 50 4f |PO | ADDQ.L #0x8,A7 00020866 4e b9 00 01 02 c8 |N | JSR StringEqual(a, b : String) : Byte 0002086c 50 4f |PO | ADDQ.L #0x8,A7 0002086e 4a 1f |J | TST.B (A7)+ 00020870 67 06 |g | BEQ 0x20878 00020872 42 12 |B | CLR.B (A2) 00020874 42 13 |B | CLR.B (A3) 00020876 60 12 |` | BRA 0x2088a 00020878 14 81 | | MOVE.B D1,(A2) 0002087a 4e b9 00 01 05 38 |N 8 | JSR IPC_Init(void) 00020880 48 53 |HS | PEA.L (A3) 00020882 4e b9 00 01 05 26 |N & | JSR IPC_GetBool() : Bool 00020888 58 4f |XO | ADDQ.L #0x4,A7 0002088a de c2 | | ADDA.W D2,A7 0002088c 42 14 |B | CLR.B (A4) 0002088e 4e ba fa 0c |N | JSR 0x2029c 00020892 4e ba fd 74 |N t | JSR 0x20608 00020896 4a 12 |J | TST.B (A2) 00020898 67 08 |g | BEQ 0x208a2 0002089a 4a 13 |J | TST.B (A3) 0002089c 66 04 |f | BNE 0x208a2 0002089e 4e ba fe 96 |N | JSR 0x20736 000208a2 4a 14 |J | TST.B (A4) 000208a4 67 34 |g4 | BEQ 0x208da 000208a6 9e fc 00 1a | | SUBA.W #0x1a,A7 000208aa 20 4f | O | MOVEA.L A7,A0 000208ac 43 fa f9 d4 |C | LEA.L 0x20282,A1 000208b0 70 18 |p | MOVEQ.L #0x18,D0 000208b2 10 d9 | | MOVE.B (A1)+,(A0)+ 000208b4 51 c8 ff fc |Q | DBF D0,0x208b2 000208b8 1f 3c 00 0e | < | MOVE.B #0x0e,-(A7) 000208bc 59 4f |YO | SUBQ.L #0x4,A7 000208be 48 6f 00 06 |Ho | PEA.L (A7+0x6) 000208c2 3f 01 |? | MOVE.W D1,-(A7) 000208c4 3f 3c 00 19 |?< | MOVE.W #0x19,-(A7) 000208c8 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000208ce 50 4f |PO | ADDQ.L #0x8,A7 000208d0 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 000208d6 de fc 00 20 | | ADDA.W #0x20,A7 000208da 4a 12 |J | TST.B (A2) 000208dc 67 04 |g | BEQ 0x208e2 000208de 4e ba fe c0 |N | JSR 0x207a0 000208e2 42 27 |B' | CLR.B -(A7) 000208e4 48 78 00 01 |Hx | PEA.L 0x1 000208e8 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 000208ee 5c 4f |\O | ADDQ.L #0x6,A7 000208f0 4e b9 00 01 02 84 |N | JSR ?exit 000208f6 54 57 4f 5f 42 4f 41 52 |TWO_BOAR| .TXT 'TWO_BOARD_SYSTEM.MEM' 0002090a 54 57 4f 5f 42 4f 41 52 |TWO_BOAR| .TXT 'TWO_BOARD_SYSTEM.M32' 0002091e ; -------------------------------------------------------------------------------------- 0002091e ; OMSI PASCAL Function 0002091e ; <LVAR 0x008 1(r)> 0002091e ; <LVAR -0x006 @ 4(r)> 0002091e ; -------------------------------------------------------------------------------------- 0002091e 4e 56 ff ca |NV | LINK.W A6,#0xffca 00020922 bf d5 | | CMPA.L (A5),A7 00020924 62 06 |b | BHI 0x2092c 00020926 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002092a 4e 76 |Nv | TRAPV 0002092c de fc 00 30 | 0 | ADDA.W #0x30,A7 00020930 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7) 00020934 43 ee ff fa |C | LEA.L (A6-0x6),A1 00020938 55 4f |UO | SUBQ.L #0x2,A7 0002093a 4e b9 00 01 04 cc |N | JSR MemOnly2MB() : Bool 00020940 4a 1f |J | TST.B (A7)+ 00020942 67 0e |g | BEQ 0x20952 00020944 41 fa ff c4 |A | LEA.L 0x2090a,A0 00020948 70 04 |p | MOVEQ.L #0x04,D0 0002094a 2f 20 |/ | MOVE.L -(A0),-(A7) 0002094c 51 c8 ff fc |Q | DBF D0,0x2094a 00020950 60 0c |` | BRA 0x2095e 00020952 41 fa ff ca |A | LEA.L 0x2091e,A0 00020956 70 04 |p | MOVEQ.L #0x04,D0 00020958 2f 20 |/ | MOVE.L -(A0),-(A7) 0002095a 51 c8 ff fc |Q | DBF D0,0x20958 0002095e 59 4f |YO | SUBQ.L #0x4,A7 00020960 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020964 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00020968 3f 3c 00 14 |?< | MOVE.W #0x14,-(A7) 0002096c 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020972 50 4f |PO | ADDQ.L #0x8,A7 00020974 48 51 |HQ | PEA.L (A1) 00020976 4e b9 00 01 04 60 |N ` | JSR ExpLoad(a : String; b: Pointer) 0002097c de fc 00 1c | | ADDA.W #0x1c,A7 00020980 42 27 |B' | CLR.B -(A7) 00020982 1f 2e 00 08 | . | MOVE.B (A6+0x8),-(A7) 00020986 2f 11 |/ | MOVE.L (A1),-(A7) 00020988 4e b9 00 01 04 ba |N | JSR ExpRun(a: Bool; adr: Byte; b: Pointer) 0002098e 50 4f |PO | ADDQ.L #0x8,A7 00020990 48 51 |HQ | PEA.L (A1) 00020992 4e b9 00 01 04 96 |N | JSR ExpClose(exp : Pointer) 00020998 58 4f |XO | ADDQ.L #0x4,A7 0002099a 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1 0002099e 4e 5e |N^ | UNLK A6 000209a0 4e 75 |Nu | RTS 000209a2 52 45 53 45 54 2e 4d 45 |RESET.ME| .TXT 'RESET.MEM ' 000209ac 52 45 53 45 54 2e 4d 33 |RESET.M3| .TXT 'RESET.M32 ' 000209b6 ; -------------------------------------------------------------------------------------- 000209b6 ; OMSI PASCAL Function 000209b6 ; <LVAR 0x008 1(r)> 000209b6 ; <LVAR -0x006 @ 4(r)> 000209b6 ; -------------------------------------------------------------------------------------- 000209b6 4e 56 ff cc |NV | LINK.W A6,#0xffcc 000209ba bf d5 | | CMPA.L (A5),A7 000209bc 62 06 |b | BHI 0x209c4 000209be 44 fc 00 02 |D | MOVE.W #0x2,CCR 000209c2 4e 76 |Nv | TRAPV 000209c4 de fc 00 2e | . | ADDA.W #0x2e,A7 000209c8 48 e7 c0 e0 |H | MOVEM.L A2+A1+A0+D1+D0,-(A7) 000209cc 45 ee ff fa |E | LEA.L (A6-0x6),A2 000209d0 72 0a |r | MOVEQ.L #0x0a,D1 000209d2 55 4f |UO | SUBQ.L #0x2,A7 000209d4 4e b9 00 01 04 cc |N | JSR MemOnly2MB() : Bool 000209da 4a 1f |J | TST.B (A7)+ 000209dc 67 12 |g | BEQ 0x209f0 000209de 9e c1 | | SUBA.W D1,A7 000209e0 20 4f | O | MOVEA.L A7,A0 000209e2 43 fa ff be |C | LEA.L 0x209a2,A1 000209e6 70 08 |p | MOVEQ.L #0x08,D0 000209e8 10 d9 | | MOVE.B (A1)+,(A0)+ 000209ea 51 c8 ff fc |Q | DBF D0,0x209e8 000209ee 60 10 |` | BRA 0x20a00 000209f0 9e c1 | | SUBA.W D1,A7 000209f2 20 4f | O | MOVEA.L A7,A0 000209f4 43 fa ff b6 |C | LEA.L 0x209ac,A1 000209f8 70 08 |p | MOVEQ.L #0x08,D0 000209fa 10 d9 | | MOVE.B (A1)+,(A0)+ 000209fc 51 c8 ff fc |Q | DBF D0,0x209fa 00020a00 59 4f |YO | SUBQ.L #0x4,A7 00020a02 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020a06 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00020a0a 3f 3c 00 09 |?< | MOVE.W #0x9,-(A7) 00020a0e 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020a14 50 4f |PO | ADDQ.L #0x8,A7 00020a16 48 52 |HR | PEA.L (A2) 00020a18 4e b9 00 01 04 60 |N ` | JSR ExpLoad(a : String; b: Pointer) 00020a1e de fc 00 12 | | ADDA.W #0x12,A7 00020a22 42 27 |B' | CLR.B -(A7) 00020a24 1f 2e 00 08 | . | MOVE.B (A6+0x8),-(A7) 00020a28 2f 12 |/ | MOVE.L (A2),-(A7) 00020a2a 4e b9 00 01 04 ba |N | JSR ExpRun(a: Bool; adr: Byte; b: Pointer) 00020a30 50 4f |PO | ADDQ.L #0x8,A7 00020a32 48 52 |HR | PEA.L (A2) 00020a34 4e b9 00 01 04 96 |N | JSR ExpClose(exp : Pointer) 00020a3a 58 4f |XO | ADDQ.L #0x4,A7 00020a3c 4c df 07 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2 00020a40 4e 5e |N^ | UNLK A6 00020a42 4e 75 |Nu | RTS 00020a44 43 4f 4d 50 41 52 45 5f |COMPARE_| .TXT 'COMPARE_UPPER_SETS.MEM' 00020a5a 43 4f 4d 50 41 52 45 5f |COMPARE_| .TXT 'COMPARE_UPPER_SETS.M32' 00020a70 ; -------------------------------------------------------------------------------------- 00020a70 ; OMSI PASCAL Function 00020a70 ; <LVAR 0x008 1(r)> 00020a70 ; <LVAR -0x006 @ 4(r)> 00020a70 ; -------------------------------------------------------------------------------------- 00020a70 4e 56 ff c8 |NV | LINK.W A6,#0xffc8 00020a74 bf d5 | | CMPA.L (A5),A7 00020a76 62 06 |b | BHI 0x20a7e 00020a78 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020a7c 4e 76 |Nv | TRAPV 00020a7e de fc 00 32 | 2 | ADDA.W #0x32,A7 00020a82 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7) 00020a86 43 ee ff fa |C | LEA.L (A6-0x6),A1 00020a8a 55 4f |UO | SUBQ.L #0x2,A7 00020a8c 4e b9 00 01 04 cc |N | JSR MemOnly2MB() : Bool 00020a92 4a 1f |J | TST.B (A7)+ 00020a94 67 0e |g | BEQ 0x20aa4 00020a96 41 fa ff c2 |A | LEA.L 0x20a5a,A0 00020a9a 70 0a |p | MOVEQ.L #0x0a,D0 00020a9c 3f 20 |? | MOVE.W -(A0),-(A7) 00020a9e 51 c8 ff fc |Q | DBF D0,0x20a9c 00020aa2 60 0c |` | BRA 0x20ab0 00020aa4 41 fa ff ca |A | LEA.L 0x20a70,A0 00020aa8 70 0a |p | MOVEQ.L #0x0a,D0 00020aaa 3f 20 |? | MOVE.W -(A0),-(A7) 00020aac 51 c8 ff fc |Q | DBF D0,0x20aaa 00020ab0 59 4f |YO | SUBQ.L #0x4,A7 00020ab2 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020ab6 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00020aba 3f 3c 00 16 |?< | MOVE.W #0x16,-(A7) 00020abe 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020ac4 50 4f |PO | ADDQ.L #0x8,A7 00020ac6 48 51 |HQ | PEA.L (A1) 00020ac8 4e b9 00 01 04 60 |N ` | JSR ExpLoad(a : String; b: Pointer) 00020ace de fc 00 1e | | ADDA.W #0x1e,A7 00020ad2 42 27 |B' | CLR.B -(A7) 00020ad4 1f 2e 00 08 | . | MOVE.B (A6+0x8),-(A7) 00020ad8 2f 11 |/ | MOVE.L (A1),-(A7) 00020ada 4e b9 00 01 04 ba |N | JSR ExpRun(a: Bool; adr: Byte; b: Pointer) 00020ae0 50 4f |PO | ADDQ.L #0x8,A7 00020ae2 48 51 |HQ | PEA.L (A1) 00020ae4 4e b9 00 01 04 96 |N | JSR ExpClose(exp : Pointer) 00020aea 58 4f |XO | ADDQ.L #0x4,A7 00020aec 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1 00020af0 4e 5e |N^ | UNLK A6 00020af2 4e 75 |Nu | RTS 00020af4 43 4c 45 41 52 5f 48 49 |CLEAR_HI| .TXT 'CLEAR_HITS.MEM' 00020b02 43 4c 45 41 52 5f 48 49 |CLEAR_HI| .TXT 'CLEAR_HITS.M32' 00020b10 ; -------------------------------------------------------------------------------------- 00020b10 ; OMSI PASCAL Function 00020b10 ; <LVAR 0x008 1(r)> 00020b10 ; <LVAR -0x006 @ 4(r)> 00020b10 ; -------------------------------------------------------------------------------------- 00020b10 4e 56 ff d0 |NV | LINK.W A6,#0xffd0 00020b14 bf d5 | | CMPA.L (A5),A7 00020b16 62 06 |b | BHI 0x20b1e 00020b18 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020b1c 4e 76 |Nv | TRAPV 00020b1e de fc 00 2a | * | ADDA.W #0x2a,A7 00020b22 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7) 00020b26 43 ee ff fa |C | LEA.L (A6-0x6),A1 00020b2a 55 4f |UO | SUBQ.L #0x2,A7 00020b2c 4e b9 00 01 04 cc |N | JSR MemOnly2MB() : Bool 00020b32 4a 1f |J | TST.B (A7)+ 00020b34 67 0e |g | BEQ 0x20b44 00020b36 41 fa ff ca |A | LEA.L 0x20b02,A0 00020b3a 70 06 |p | MOVEQ.L #0x06,D0 00020b3c 3f 20 |? | MOVE.W -(A0),-(A7) 00020b3e 51 c8 ff fc |Q | DBF D0,0x20b3c 00020b42 60 0c |` | BRA 0x20b50 00020b44 41 fa ff ca |A | LEA.L 0x20b10,A0 00020b48 70 06 |p | MOVEQ.L #0x06,D0 00020b4a 3f 20 |? | MOVE.W -(A0),-(A7) 00020b4c 51 c8 ff fc |Q | DBF D0,0x20b4a 00020b50 59 4f |YO | SUBQ.L #0x4,A7 00020b52 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020b56 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00020b5a 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7) 00020b5e 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020b64 50 4f |PO | ADDQ.L #0x8,A7 00020b66 48 51 |HQ | PEA.L (A1) 00020b68 4e b9 00 01 04 60 |N ` | JSR ExpLoad(a : String; b: Pointer) 00020b6e de fc 00 16 | | ADDA.W #0x16,A7 00020b72 42 27 |B' | CLR.B -(A7) 00020b74 1f 2e 00 08 | . | MOVE.B (A6+0x8),-(A7) 00020b78 2f 11 |/ | MOVE.L (A1),-(A7) 00020b7a 4e b9 00 01 04 ba |N | JSR ExpRun(a: Bool; adr: Byte; b: Pointer) 00020b80 50 4f |PO | ADDQ.L #0x8,A7 00020b82 48 51 |HQ | PEA.L (A1) 00020b84 4e b9 00 01 04 96 |N | JSR ExpClose(exp : Pointer) 00020b8a 58 4f |XO | ADDQ.L #0x4,A7 00020b8c 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1 00020b90 4e 5e |N^ | UNLK A6 00020b92 4e 75 |Nu | RTS 00020b94 57 6f 72 64 73 20 65 72 |Words er| .TXT 'Words error :_' 00020ba2 ; -------------------------------------------------------------------------------------- 00020ba2 ; OMSI PASCAL Function 00020ba2 ; <LVAR 0x008 1(r)> 00020ba2 ; -------------------------------------------------------------------------------------- 00020ba2 PROG_FAIL: 00020ba2 4e 56 ff d2 |NV | LINK.W A6,#0xffd2 00020ba6 bf d5 | | CMPA.L (A5),A7 00020ba8 62 06 |b | BHI 0x20bb0 00020baa 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020bae 4e 76 |Nv | TRAPV 00020bb0 de fc 00 2c | , | ADDA.W #0x2c,A7 00020bb4 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 00020bb8 41 fa ff e8 |A | LEA.L PROG_FAIL,A0 00020bbc 70 06 |p | MOVEQ.L #0x06,D0 00020bbe 3f 20 |? | MOVE.W -(A0),-(A7) 00020bc0 51 c8 ff fc |Q | DBF D0,0x20bbe 00020bc4 1f 3c 00 03 | < | MOVE.B #0x03,-(A7) 00020bc8 51 4f |QO | SUBQ.L #0x8,A7 00020bca 48 6f 00 0a |Ho | PEA.L (A7+0xa) 00020bce 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00020bd2 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7) 00020bd6 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020bdc 58 4f |XO | ADDQ.L #0x4,A7 00020bde 10 2e 00 08 | . | MOVE.B (A6+0x8),D0 00020be2 48 80 |H | EXTB.W D0 00020be4 48 c0 |H | EXTW.L D0 00020be6 2f 00 |/ | MOVE.L D0,-(A7) 00020be8 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00020bee 58 4f |XO | ADDQ.L #0x4,A7 00020bf0 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020bf6 50 4f |PO | ADDQ.L #0x8,A7 00020bf8 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00020bfe de fc 00 14 | | ADDA.W #0x14,A7 00020c02 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 00020c06 4e 5e |N^ | UNLK A6 00020c08 4e 75 |Nu | RTS 00020c0a 42 6f 61 72 64 20 20 20 |Board | .TXT 'Board :_ ' 00020c18 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment :_ ' 00020c26 53 74 61 74 75 73 20 20 |Status | .TXT 'Status :_ ' 00020c34 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment error :' 00020c46 46 61 74 61 6c 20 65 78 |Fatal ex| .TXT 'Fatal experiment error. ' 00020c5e ; -------------------------------------------------------------------------------------- 00020c5e ; OMSI PASCAL Function 00020c5e ; <LVAR 0x00e 1(r)> 00020c5e ; <LVAR 0x00a 4(r)> 00020c5e ; <LVAR 0x008 1(r)> 00020c5e ; -------------------------------------------------------------------------------------- 00020c5e EXP_FAIL: 00020c5e 4e 56 ff 8c |NV | LINK.W A6,#0xff8c 00020c62 bf d5 | | CMPA.L (A5),A7 00020c64 62 06 |b | BHI 0x20c6c 00020c66 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020c6a 4e 76 |Nv | TRAPV 00020c6c de fc 00 74 | t | ADDA.W #0x74,A7 00020c70 48 e7 fc f8 |H | MOVEM.L A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7) 00020c74 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 00020c7a 49 f9 00 01 03 e0 |I | LEA.L WriteConsoleStringCrLf(str : String),A4 00020c80 72 01 |r | MOVEQ.L #0x01,D1 00020c82 74 0d |t | MOVEQ.L #0x0d,D2 00020c84 76 1e |v | MOVEQ.L #0x1e,D3 00020c86 78 12 |x | MOVEQ.L #0x12,D4 00020c88 7a 0e |z | MOVEQ.L #0x0e,D5 00020c8a 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 00020c90 41 fa ff b4 |A | LEA.L 0x20c46,A0 00020c94 70 08 |p | MOVEQ.L #0x08,D0 00020c96 3f 20 |? | MOVE.W -(A0),-(A7) 00020c98 51 c8 ff fc |Q | DBF D0,0x20c96 00020c9c 59 4f |YO | SUBQ.L #0x4,A7 00020c9e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020ca2 3f 01 |? | MOVE.W D1,-(A7) 00020ca4 3f 04 |? | MOVE.W D4,-(A7) 00020ca6 4e 93 |N | JSR (A3) 00020ca8 50 4f |PO | ADDQ.L #0x8,A7 00020caa 4e 94 |N | JSR (A4) 00020cac 50 4f |PO | ADDQ.L #0x8,A7 00020cae 20 4f | O | MOVEA.L A7,A0 00020cb0 43 fa ff 58 |C X | LEA.L 0x20c0a,A1 00020cb4 70 0c |p | MOVEQ.L #0x0c,D0 00020cb6 10 d9 | | MOVE.B (A1)+,(A0)+ 00020cb8 51 c8 ff fc |Q | DBF D0,0x20cb6 00020cbc 51 4f |QO | SUBQ.L #0x8,A7 00020cbe 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00020cc2 3f 01 |? | MOVE.W D1,-(A7) 00020cc4 3f 02 |? | MOVE.W D2,-(A7) 00020cc6 4e 93 |N | JSR (A3) 00020cc8 54 4f |TO | ADDQ.L #0x2,A7 00020cca 1e ae 00 0e | | MOVE.B (A6+0xe),(A7) 00020cce 4e b9 00 01 04 9c |N | JSR BoardName(address : B) : String 00020cd4 54 4f |TO | ADDQ.L #0x2,A7 00020cd6 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020cdc 50 4f |PO | ADDQ.L #0x8,A7 00020cde 4e 94 |N | JSR (A4) 00020ce0 de c4 | | ADDA.W D4,A7 00020ce2 20 6e 00 0a | n | MOVEA.L (A6+0xa),A0 00020ce6 b0 c1 | | CMPA.W D1,A0 00020ce8 67 48 |gH | BEQ 0x20d32 00020cea 9e c5 | | SUBA.W D5,A7 00020cec 22 4f |"O | MOVEA.L A7,A1 00020cee 45 fa ff 28 |E ( | LEA.L 0x20c18,A2 00020cf2 70 0c |p | MOVEQ.L #0x0c,D0 00020cf4 12 da | | MOVE.B (A2)+,(A1)+ 00020cf6 51 c8 ff fc |Q | DBF D0,0x20cf4 00020cfa 9e c3 | | SUBA.W D3,A7 00020cfc 22 4f |"O | MOVEA.L A7,A1 00020cfe 41 e8 00 fc |A | LEA.L (A0+0xfc),A0 00020d02 70 1d |p | MOVEQ.L #0x1d,D0 00020d04 12 d8 | | MOVE.B (A0)+,(A1)+ 00020d06 51 c8 ff fc |Q | DBF D0,0x20d04 00020d0a 51 4f |QO | SUBQ.L #0x8,A7 00020d0c 48 6f 00 26 |Ho & | PEA.L (A7+0x26) 00020d10 3f 01 |? | MOVE.W D1,-(A7) 00020d12 3f 02 |? | MOVE.W D2,-(A7) 00020d14 4e 93 |N | JSR (A3) 00020d16 58 4f |XO | ADDQ.L #0x4,A7 00020d18 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00020d1c 3f 01 |? | MOVE.W D1,-(A7) 00020d1e 3f 03 |? | MOVE.W D3,-(A7) 00020d20 4e 93 |N | JSR (A3) 00020d22 50 4f |PO | ADDQ.L #0x8,A7 00020d24 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020d2a 50 4f |PO | ADDQ.L #0x8,A7 00020d2c 4e 94 |N | JSR (A4) 00020d2e de fc 00 30 | 0 | ADDA.W #0x30,A7 00020d32 9e c5 | | SUBA.W D5,A7 00020d34 20 4f | O | MOVEA.L A7,A0 00020d36 43 fa fe ee |C | LEA.L 0x20c26,A1 00020d3a 70 0c |p | MOVEQ.L #0x0c,D0 00020d3c 10 d9 | | MOVE.B (A1)+,(A0)+ 00020d3e 51 c8 ff fc |Q | DBF D0,0x20d3c 00020d42 51 4f |QO | SUBQ.L #0x8,A7 00020d44 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00020d48 3f 01 |? | MOVE.W D1,-(A7) 00020d4a 3f 02 |? | MOVE.W D2,-(A7) 00020d4c 4e 93 |N | JSR (A3) 00020d4e 54 4f |TO | ADDQ.L #0x2,A7 00020d50 1e ae 00 08 | | MOVE.B (A6+0x8),(A7) 00020d54 4e b9 00 01 04 a2 |N | JSR ExpStatus2Text(status.B, &String) 00020d5a 54 4f |TO | ADDQ.L #0x2,A7 00020d5c 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020d62 50 4f |PO | ADDQ.L #0x8,A7 00020d64 4e 94 |N | JSR (A4) 00020d66 5d 4f |]O | SUBQ.L #0x6,A7 00020d68 20 4f | O | MOVEA.L A7,A0 00020d6a 43 fa fe da |C | LEA.L 0x20c46,A1 00020d6e 70 16 |p | MOVEQ.L #0x16,D0 00020d70 10 d9 | | MOVE.B (A1)+,(A0)+ 00020d72 51 c8 ff fc |Q | DBF D0,0x20d70 00020d76 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 00020d7a 59 4f |YO | SUBQ.L #0x4,A7 00020d7c 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00020d80 3f 01 |? | MOVE.W D1,-(A7) 00020d82 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7) 00020d86 4e 93 |N | JSR (A3) 00020d88 50 4f |PO | ADDQ.L #0x8,A7 00020d8a 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00020d90 de c3 | | ADDA.W D3,A7 00020d92 4c df 1f 3f |L ? | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4 00020d96 4e 5e |N^ | UNLK A6 00020d98 4e 75 |Nu | RTS