|
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: 6144 (0x1800) Types: M200 Notes: @(#)CRASHSAVE,1.2,92/01/17,17:18:19, M200_PROGRAM Names: »CRASHSAVE.M200«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293 └─ ⟦this⟧ »CRASHSAVE.M200« └─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5 └─ ⟦this⟧ »CRASHSAVE.M200« └─ ⟦this⟧ »CRASHSAVE.M200«
@ 20232 <LVAR -0x004 1(rw)> <LVAR -0x005 1(rw)> <LVAR -0x00e @> <POP 20232-20386 Body> <POP 20232-20248 Prologue> Σ0 ↓ <POP 20248-20256 RegCacheLoad> Σ0 ↓ <POP 20256-202aa Naked> Σ0 ↓ <Call 0x20256 0x20fbe> {} exp_CLEAR_EXCEPTIONS.FIU() <MI 2025c MOVE.B #0x01,(A6-0x5)> {} <MI 20262 MOVE.B #0xb4,(A6-0x4)> {} <Blob 0x20268 [4] @> Δ-4 {[«4""»]} <Blob 0x2026c [4] @> Δ-4 {[«4""»]|[«4""»]} <Pointer.fp 0x20270 <LVAR -0x00e @>> Δ-4 {[«4""»]|[«4""»]|[@@-14]} <Call 0x20274 0x21064> {[«4""»]|[«4""»]|[@@-14]} exp_PREP_WRITE_REG.TYP(Sw_8, &Sr_8_1) <POP 2027a-2027c StackAdj> Δ+10 {[-2-]} <MI 2027c MOVE.B (A6-0x5),(A7)> {[-2-]} <MI 20280 MOVE.B (A6-0x4),(A7+0x1)> {[-2-]} <Blob 0x20286 [10] (A6-0xe)> Δ-10 {[-2-]|[«10»]} <MI 20296 CLR.B -(A7)> Δ-2 {[-2-]|[«10»]|[#0]} <Call 0x20298 0x2102a> {[-2-]|[«10»]|[#0]} exp_WRITE_REG.TYP(Sw_2, Sw_8_1, Sw_1) <POP 2029e-202a2 StackAdj> Δ+14 {} <Call 0x202a2 0x210b4> {} exp_LOAD_BENIGN_UWORD.TYP() <MI 202a8 MOVEQ.L #0x0c,D7> {} <POP 202aa-202b6 Naked> Σ0 ↓ →0x202c4 ←0x202c4 <POP 202aa-202ac StackAdj> Δ-2 {[-2-]} <MI 202ac MOVE.B D7,-(A7)> Δ-2 {[-2-]|[2, 'D7']} <Call 0x202ae 0x104c0> {[-2-]|[2, 'D7']} HasBoard(diproc_addr: Byte) : Byte <POP 202b0-202b2 StackAdj> Δ+2 {[-2-]} <MI 202b2 TST.B (A7)+> Δ+2 {} <MI 202b4 BEQ 0x202c4> {} <POP 202b6-202c4 Naked> Σ0 ↓ <MI 202b6 MOVE.B D7,-(A7)> Δ-2 {[2, 'D7']} <Const 0x202b8 0xff.2> Δ-2 {[2, 'D7']|[#255]} <Call 0x202bc 0x21138> {[2, 'D7']|[#255]} <POP 202c2-202c4 StackAdj> Δ+4 {} <POP 202c4-202ca Naked> Σ0 ↓ →0x202aa ←0x202aa <MI 202c4 ADDQ.B #0x1,D7> {} <MI 202c6 CMP.B #0x0f,D7> {} <MI 202c8 BLE 0x202aa> {} <POP 202ca-202d2 Naked> Σ0 ↓ <Call 0x202ca 0x20f86> {} exp_INIT_MRU.FIU() <MI 202d0 MOVEQ.L #0x0c,D7> {} <POP 202d2-202de Naked> Σ0 ↓ →0x202e8 ←0x202e8 <POP 202d2-202d4 StackAdj> Δ-2 {[-2-]} <MI 202d4 MOVE.B D7,-(A7)> Δ-2 {[-2-]|[2, 'D7']} <Call 0x202d6 0x104c0> {[-2-]|[2, 'D7']} HasBoard(diproc_addr: Byte) : Byte <POP 202d8-202da StackAdj> Δ+2 {[-2-]} <MI 202da TST.B (A7)+> Δ+2 {} <MI 202dc BEQ 0x202e8> {} <POP 202de-202e8 Naked> Σ0 ↓ <MI 202de MOVE.B D7,-(A7)> Δ-2 {[2, 'D7']} <Call 0x202e0 0x213f6> {[2, 'D7']} <POP 202e6-202e8 StackAdj> Δ+2 {} <POP 202e8-202ee Naked> Σ0 ↓ →0x202d2 ←0x202d2 <MI 202e8 ADDQ.B #0x1,D7> {} <MI 202ea CMP.B #0x0f,D7> {} <MI 202ec BLE 0x202d2> {} <POP 202ee-20320 Naked> Σ0 ↓ <Call 0x202ee 0x105b0> {} FifoInit(void) <Const 0x202f4 0x127.2> Δ-2 {[#295]} <Call 0x202f6 0x21086> {[#295]} exp_PREP_RUN.TYP(Sw_2) <POP 202fc-202fd StackAdj> Δ+2 {} <Const 0x202fd 0x127.2> Δ-2 {[#295]} <Call 0x202fe 0x210f2> {[#295]} exp_PREP_RUN.VAL(Sw_2) <POP 20304-20305 StackAdj> Δ+2 {} <Const 0x20305 0x127.2> Δ-2 {[#295]} <Call 0x20306 0x2154a> {[#295]} exp_PREP_RUN.IOC(Sw_2) <POP 2030c-2030d StackAdj> Δ+2 {} <Const 0x2030d 0x127.2> Δ-2 {[#295]} <Call 0x2030e 0x21010> {[#295]} exp_PREP_RUN.SEQ(Sw_2) <POP 20314-20315 StackAdj> Δ+2 {} <Const 0x20315 0x127.2> Δ-2 {[#295]} <Call 0x20316 0x20f58> {[#295]} exp_PREP_RUN.FIU(Sw_2) <POP 2031c-2031e StackAdj> Δ+2 {} <MI 2031e MOVEQ.L #0x0c,D7> {} <POP 20320-2032c Naked> Σ0 ↓ →0x20336 ←0x20336 <POP 20320-20322 StackAdj> Δ-2 {[-2-]} <MI 20322 MOVE.B D7,-(A7)> Δ-2 {[-2-]|[2, 'D7']} <Call 0x20324 0x104c0> {[-2-]|[2, 'D7']} HasBoard(diproc_addr: Byte) : Byte <POP 20326-20328 StackAdj> Δ+2 {[-2-]} <MI 20328 TST.B (A7)+> Δ+2 {} <MI 2032a BEQ 0x20336> {} <POP 2032c-20336 Naked> Σ0 ↓ <MI 2032c MOVE.B D7,-(A7)> Δ-2 {[2, 'D7']} <Call 0x2032e 0x2134c> {[2, 'D7']} <POP 20334-20336 StackAdj> Δ+2 {} <POP 20336-2033c Naked> Σ0 ↓ →0x20320 ←0x20320 <MI 20336 ADDQ.B #0x1,D7> {} <MI 20338 CMP.B #0x0f,D7> {} <MI 2033a BLE 0x20320> {} <POP 2033c-2035c Naked> Σ0 ↓ <Call 0x2033c 0x20fa0> {} exp_FREEZE_WORLD.FIU() <Call 0x20342 0x21048> {} exp_RUN_NORMAL.TYP() <Call 0x20348 0x210d6> {} exp_RUN_NORMAL.VAL() <Call 0x2034e 0x20ff6> {} exp_RUN_CHECK.SEQ() <Call 0x20354 0x21530> {} exp_RUN_CHECK.IOC() <MI 2035a MOVEQ.L #0x0c,D7> {} <POP 2035c-20368 Naked> Σ0 ↓ →0x20372 ←0x20372 <POP 2035c-2035e StackAdj> Δ-2 {[-2-]} <MI 2035e MOVE.B D7,-(A7)> Δ-2 {[-2-]|[2, 'D7']} <Call 0x20360 0x104c0> {[-2-]|[2, 'D7']} HasBoard(diproc_addr: Byte) : Byte <POP 20362-20364 StackAdj> Δ+2 {[-2-]} <MI 20364 TST.B (A7)+> Δ+2 {} <MI 20366 BEQ 0x20372> {} <POP 20368-20372 Naked> Σ0 ↓ <MI 20368 MOVE.B D7,-(A7)> Δ-2 {[2, 'D7']} <Call 0x2036a 0x211fe> {[2, 'D7']} <POP 20370-20372 StackAdj> Δ+2 {} <POP 20372-20378 Naked> Σ0 ↓ →0x2035c ←0x2035c <MI 20372 ADDQ.B #0x1,D7> {} <MI 20374 CMP.B #0x0f,D7> {} <MI 20376 BLE 0x2035c> {} <POP 20378-2037e Naked> Σ0 ↓ <Call 0x20378 0x20f3c> {} exp_RUN_NORMAL.FIU() <POP 2037e-20386 Epilogue> Σ0
@ 20386 <POP 20386-2040e Body> <POP 20386-2039c Prologue> Σ0 ↓ <POP 2039c-2039e RegCacheLoad> Σ0 ↓ <POP 2039e-203be Naked> Σ0 ↓ <Call 0x2039e 0x20fa0> {} exp_FREEZE_WORLD.FIU() <Call 0x203a4 0x21564> {} exp_MF.IOC() <Call 0x203aa 0x2110c> {} exp_MF.VAL() <Call 0x203b0 0x210a0> {} exp_MF.TYP() <Call 0x203b6 0x20fe0> {} exp_RESET.SEQ() <MI 203bc MOVEQ.L #0x0c,D7> {} <POP 203be-203ce Naked> Σ0 ↓ →0x203d8 ←0x203d8 <POP 203be-203c0 StackAdj> Δ-2 {[-2-]} <MI 203c0 MOVE.B D7,-(A7)> Δ-2 {[-2-]|[2, 'D7']} <Call 0x203c2 0x104c0> {[-2-]|[2, 'D7']} HasBoard(diproc_addr: Byte) : Byte <POP 203c8-203ca StackAdj> Δ+2 {[-2-]} <MI 203ca TST.B (A7)+> Δ+2 {} <MI 203cc BEQ 0x203d8> {} <POP 203ce-203d8 Naked> Σ0 ↓ <MI 203ce MOVE.B D7,-(A7)> Δ-2 {[2, 'D7']} <Call 0x203d0 0x21298> {[2, 'D7']} <POP 203d6-203d8 StackAdj> Δ+2 {} <POP 203d8-203de Naked> Σ0 ↓ →0x203be ←0x203be <MI 203d8 ADDQ.B #0x1,D7> {} <MI 203da CMP.B #0x0f,D7> {} <MI 203dc BLE 0x203be> {} <POP 203de-203e6 Naked> Σ0 ↓ <Call 0x203de 0x20f72> {} exp_MF.FIU() <MI 203e4 MOVEQ.L #0x0c,D7> {} <POP 203e6-203f6 Naked> Σ0 ↓ →0x20400 ←0x20400 <POP 203e6-203e8 StackAdj> Δ-2 {[-2-]} <MI 203e8 MOVE.B D7,-(A7)> Δ-2 {[-2-]|[2, 'D7']} <Call 0x203ea 0x104c0> {[-2-]|[2, 'D7']} HasBoard(diproc_addr: Byte) : Byte <POP 203f0-203f2 StackAdj> Δ+2 {[-2-]} <MI 203f2 TST.B (A7)+> Δ+2 {} <MI 203f4 BEQ 0x20400> {} <POP 203f6-20400 Naked> Σ0 ↓ <MI 203f6 MOVE.B D7,-(A7)> Δ-2 {[2, 'D7']} <Call 0x203f8 0x214a2> {[2, 'D7']} <POP 203fe-20400 StackAdj> Δ+2 {} <POP 20400-20406 Naked> Σ0 ↓ →0x203e6 ←0x203e6 <MI 20400 ADDQ.B #0x1,D7> {} <MI 20402 CMP.B #0x0f,D7> {} <MI 20404 BLE 0x203e6> {} <POP 20406-2040e Epilogue> Σ0
@ 2040e <LVAR 0x008 4(w)> <LVAR -0x004 @> <LVAR -0x00c @ 4(r)> <POP 2040e-2048c Body> <POP 2040e-20424 Prologue> Σ0 ↓ <POP 20424-20428 RegCacheLoad> Σ0 ↓ <POP 20428-20440 Naked> Σ0 ↓ <Pointer.fp 0x20428 <LVAR -0x004 @>> Δ-4 {[@@-4]} <Call 0x2042c 0x1059e> {[@@-4]} ReadClusterNo(VAR a : Long) <POP 20432-20434 StackAdj> Δ+4 {} <Pointer.fp 0x20434 <LVAR -0x00c @ 4(r)>> Δ-4 {[@@-12]} <Call 0x20436 0x102b8> {[@@-12]} NewString(VAR a : String) <POP 2043c-2043e StackAdj> Δ+4 {} <MI 2043e MOVEQ.L #0x00,D7> {} <POP 20440-20480 Naked> Σ0 ↓ →0x20440 ←0x20440 <MI 20440 MOVE.L (A6-0xc),-(A7)> Δ-4 {[4, '(A6-0xc)']} <MI 20442 CLR.L D0> {[4, '(A6-0xc)']} <MI 20444 MOVE.B (A6+D7.L-#0x4),D0> {[4, '(A6-0xc)']} <MI 20448 ASR.W #0x4,D0> {[4, '(A6-0xc)']} <MI 2044a LEA.L 0x20158,A0> {[4, '(A6-0xc)']} <MI 2044e MOVE.B (A0+D0.W),-(A7)> Δ-2 {[4, '(A6-0xc)']|[2, '(A0+D0.W)']} <Call 0x20452 0x102c0> {[4, '(A6-0xc)']|[2, '(A0+D0.W)']} AppendChar(MOD b : String; a : char) <POP 20458-2045a StackAdj> Δ+2 {[4, '(A6-0xc)']} <MI 2045a MOVE.L (A6-0xc),(A7)> {[4, '(A6-0xc)']} <MI 2045c CLR.L D0> {[4, '(A6-0xc)']} <MI 2045e MOVE.B (A6+D7.L-#0x4),D0> {[4, '(A6-0xc)']} <MI 20462 ANDI.W #0x000f,D0> {[4, '(A6-0xc)']} <MI 20466 LEA.L 0x20158,A0> {[4, '(A6-0xc)']} <MI 2046a MOVE.B (A0+D0.W),-(A7)> Δ-2 {[4, '(A6-0xc)']|[2, '(A0+D0.W)']} <Call 0x2046e 0x102c0> {[4, '(A6-0xc)']|[2, '(A0+D0.W)']} AppendChar(MOD b : String; a : char) <POP 20474-20476 StackAdj> Δ+6 {} <MI 20476 ADDQ.L #0x1,D7> {} <MI 20478 CMPI.L #0x00000003,D7> {} <MI 2047e BLE 0x20440> {} <POP 20480-20484 Naked> Σ0 ↓ <MI 20480 MOVE.L (A6-0xc),(A6+0x8)> {} <POP 20484-2048c Epilogue> Σ0
@ 2048c <LVAR -0x003 @> <LVAR -0x004 @ 1(r)> <LVAR -0x008 @> <POP 2048c-20546 Body> <POP 2048c-204a2 Prologue> Σ0 ↓ <POP 204a2-204aa RegCacheLoad> Σ0 ↓ <POP 204aa-204ee Naked> Σ0 ↓ →0x20506 <Blob 0x204aa [22] @> Δ-22 {[«22""»]} <POP 204b6-204b8 StackAdj> Δ-4 {[«22""»]|[-4-]} <Lit 0x204b8 22> {[«22""»]|[$$CRASH_DUMP.SAVED_STATE]} <MI 204ca MOVEA.L (A7)+,A4> Δ+4 {[«22""»]} <POP 204cc-204d0 StackAdj> Δ+18 {[-4-]} <MI 204d0 MOVE.L A4,(A7)> {[4, 'A4']} <MI 204d2 CLR.B -(A7)> Δ-2 {[4, 'A4']|[#0]} <MI 204d4 CLR.B -(A7)> Δ-2 {[4, 'A4']|[#0]|[#0]} <Const 0x204d6 0x0.4> Δ-4 {[4, 'A4']|[#0]|[#0]|[##0]} <Pointer.fp 0x204da <LVAR -0x004 @ 1(r)>> Δ-4 {[4, 'A4']|[#0]|[#0]|[##0]|[@@-4]} <Pointer.fp 0x204dc <LVAR -0x008 @>> Δ-4 {[4, 'A4']|[#0]|[#0]|[##0]|[@@-4]|[@@-8]} <Call 0x204e0 0x10380> {[4, 'A4']|[#0]|[#0]|[##0]|[@@-4]|[@@-8]} OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File) <POP 204e6-204ea StackAdj> Δ+20 {} <MI 204ea TST.B (A6-0x4)> {} <MI 204ec BNE 0x20506> {} <POP 204ee-20506 Naked> Σ0 ↓ <Const 0x204ee 0x2.2> Δ-2 {[#2]} <Const 0x204f0 0x1.2> Δ-2 {[#2]|[#1]} <Const 0x204f2 0x1.4> Δ-4 {[#2]|[#1]|[##1]} <Pointer.fp 0x204f6 <LVAR -0x004 @ 1(r)>> Δ-4 {[#2]|[#1]|[##1]|[@@-4]} <Pointer.fp 0x204f8 <LVAR -0x008 @>> Δ-4 {[#2]|[#1]|[##1]|[@@-4]|[@@-8]} <Call 0x204fc 0x1038c> {[#2]|[#1]|[##1]|[@@-4]|[@@-8]} CloseFile(a : L; VAR status : B; VAR file : File) <POP 20502-20506 StackAdj> Δ+16 {} <POP 20506-2053e Naked> Σ0 ↓ ←0x204aa <Blob 0x20506 [10] @> Δ-10 {[«10""»]} <POP 20518-2051a StackAdj> Δ-4 {[«10""»]|[-4-]} <Lit 0x2051a 9> {[«10""»]|[$$SAVESTATE]} <POP 2052a-2052c StackAdj> Δ-4 {[«10""»]|[$$SAVESTATE]|[-4-]} <MI 2052c MOVE.L A4,(A7)> {[«10""»]|[$$SAVESTATE]|[4, 'A4']} <Const 0x2052e 0x2.2> Δ-2 {[«10""»]|[$$SAVESTATE]|[4, 'A4']|[#2]} <Pointer.fp 0x20530 <LVAR -0x003 @>> Δ-4 {[«10""»]|[$$SAVESTATE]|[4, 'A4']|[#2]|[@@-3]} <Call 0x20534 0x103b0> {[«10""»]|[$$SAVESTATE]|[4, 'A4']|[#2]|[@@-3]} PushProgram(a : String; b : String; MOD c : B; VAR d : Bool) <POP 2053a-2053e StackAdj> Δ+24 {} <POP 2053e-20546 Epilogue> Σ0
@ 20546 <LVAR 0x00c 4(r)> <LVAR 0x008 4(r)> <LVAR -0x004 @> <POP 20546-20642 Body> <POP 20546-2055c Prologue> Σ0 ↓ <POP 2055c-2056e RegCacheLoad> Σ0 ↓ <POP 2056e-20576 Naked> Σ0 Δ-4 ↓ <MI 2056e MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']} <MI 20572 SUBQ.L #0x1,(A7)> {[-4-]} <MI 20574 MOVEQ.L #0x00,D6> {[-4-]} <POP 20576-2057c Naked> Σ-4 ↓ →0x20638 ←0x20632 <MI 20576 CMP.L (A7),D6> {[-4-]} <MI 20578 BGT 0x20638> {[-4-]} <POP 2057c-20592 Naked> Σ-4 ↓ →0x205aa <MI 2057c LEA.L 0x21f94,A0> {[-4-]} <MI 20582 MOVE.L A0,-(A7)> Δ-4 {[-4-]|[4, 'A0']} <MI 20584 CLR.W -(A7)> Δ-2 {[-4-]|[4, 'A0']|[#0]} <Call 0x20586 0x1023c> {[-4-]|[4, 'A0']|[#0]} KC1e_Fifo_Tx_Response(ptr : Pointer; chan : Word) <POP 2058c-2058e StackAdj> Δ+6 {[-4-]} <MI 2058e TST.W 0x21fba> {[-4-]} <MI 20590 BEQ 0x205aa> {[-4-]} <POP 20592-205a2 Naked> Σ-4 ↓ →0x205aa <MI 20592 CLR.L D0> {[-4-]} <MI 20594 MOVE.W 0x21fa2,D0> {[-4-]} <MI 20596 CLR.L D1> {[-4-]} <MI 20598 MOVE.W 0x21fba,D1> {[-4-]} <MI 2059a ADD.L D0,D1> {[-4-]} <MI 2059c MOVE.W D1,0x21fa2> {[-4-]} <MI 2059e TST.W D1> {[-4-]} <MI 205a0 BNE 0x205aa> {[-4-]} <POP 205a2-205aa Naked> Σ-4 ↓ <MI 205a2 CLR.L D0> {[-4-]} <MI 205a4 MOVE.W 0x21fa0,D0> {[-4-]} <MI 205a6 ADDQ.L #0x1,D0> {[-4-]} <MI 205a8 MOVE.W D0,0x21fa0> {[-4-]} <POP 205aa-205c0 Naked> Σ-4 ↓ ←0x2057c ←0x20592 <MI 205aa CLR.L D0> {[-4-]} <MI 205ac MOVE.W 0x21fa0,D0> {[-4-]} <MI 205ae CLR.L D1> {[-4-]} <MI 205b0 MOVE.W 0x21fb8,D1> {[-4-]} <MI 205b6 ADD.L D0,D1> {[-4-]} <MI 205b8 MOVE.W D1,0x21fa0> {[-4-]} <MI 205ba MOVE.L #0xfffffc18,D7> {[-4-]} <POP 205c0-205e0 Naked> Σ-4 ↓ →0x205e4 ←0x205e0 <MI 205c0 MOVEA.L (A6+0x8),A0> {[-4-]} <MI 205c4 LEA.L 0x21fa4,A1> {[-4-]} <MI 205ca MOVE.L A1,-(A7)> Δ-4 {[-4-]|[4, 'A1']} <MI 205cc CLR.W -(A7)> Δ-2 {[-4-]|[4, 'A1']|[#0]} <MI 205ce PEA.L (A0)> Δ-4 {[-4-]|[4, 'A1']|[#0]|[4, '^(A0)']} <Call 0x205d0 0x1023e> {[-4-]|[4, 'A1']|[#0]|[4, '^(A0)']} KC1f_Fifo_Rx_Request(ptr : Pointer; chan : Word; VAR flag : Bool) <POP 205d6-205da StackAdj> Δ+10 {[-4-]} <MI 205da ADDQ.L #0x1,D7> {[-4-]} <MI 205dc TST.B (A0)> {[-4-]} <MI 205de BNE 0x205e4> {[-4-]} <POP 205e0-205e4 Naked> Σ-4 ↓ →0x205c0 <MI 205e0 TST.L D7> {[-4-]} <MI 205e2 BNE 0x205c0> {[-4-]} <POP 205e4-205e8 Naked> Σ-4 ↓ →0x20632 ←0x205c0 <MI 205e4 TST.B (A0)> {[-4-]} <MI 205e6 BEQ 0x20632> {[-4-]} <POP 205e8-20632 Naked> Σ-4 ↓ <Blob 0x205e8 [4] 0x21fcc> Δ-4 {[-4-]|[«4»]} <MI 205ee LEA.L 0x2178a,A0> {[-4-]|[«4»]} <MI 205f4 MOVE.L A0,-(A7)> Δ-4 {[-4-]|[«4»]|[4, 'A0']} <Const 0x205f6 0x400.2> Δ-2 {[-4-]|[«4»]|[4, 'A0']|[#1024]} <Call 0x205fa 0x10238> {[-4-]|[«4»]|[4, 'A0']|[#1024]} KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word) <POP 20600-20602 StackAdj> Δ+6 {[-4-]|[«4»]} <POP 20602-20603 StackAdj> Δ+4 {[-4-]} <Blob 0x20603 [4] 0x21786> Δ-4 {[-4-]|[«4»]} <Blob 0x20608 [2] 0x21b8e> Δ-2 {[-4-]|[«4»]|[«2»]} <MI 2060e CLR.W -(A7)> Δ-2 {[-4-]|[«4»]|[«2»]|[#0]} <Const 0x20610 0x200.2> Δ-2 {[-4-]|[«4»]|[«2»]|[#0]|[#512]} <Const 0x20614 0x2.2> Δ-2 {[-4-]|[«4»]|[«2»]|[#0]|[#512]|[#2]} <Blob 0x20618 [4] 0x21b8a> Δ-4 {[-4-]|[«4»]|[«2»]|[#0]|[#512]|[#2]|[«4»]} <Pointer.fp 0x2061e <LVAR -0x004 @>> Δ-4 {[-4-]|[«4»]|[«2»]|[#0]|[#512]|[#2]|[«4»]|[@@-4]} <Call 0x20622 0x10388> {[-4-]|[«4»]|[«2»]|[#0]|[#512]|[#2]|[«4»]|[@@-4]} WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L) <POP 20628-2062c StackAdj> Δ+20 {[-4-]} <MI 2062c ADDQ.W #0x1,0x21b8e> {[-4-]} <POP 20632-20638 Naked> Σ-4 ↓ →0x20576 ←0x205e4 <MI 20632 ADDQ.L #0x1,D6> {[-4-]} <MI 20634 BVC 0x20576> {[-4-]} <POP 20638-2063a Naked> Σ-4 Δ+4 ↓ ←0x20576 <POP 20638-2063a StackAdj> Δ+4 {} <POP 2063a-20642 Epilogue> Σ0
@ 20642 <LVAR 0x00a 2(r)> <POP 20642-206a4 Body> <POP 20642-20654 Prologue> Σ0 ↓ <POP 20654-206a0 Naked> Σ0 ↓ <MI 20654 MOVE.W #0x400,0x21f94> {} <MI 2065c CLR.W 0x21f96> {} <MI 20662 CLR.W 0x21f98> {} <MI 20668 MOVE.W (A6+0xa),0x21f9a> {} <MI 20670 CLR.W 0x21f9c> {} <MI 20676 CLR.W 0x21f9e> {} <MI 2067c CLR.W 0x21fa0> {} <MI 20682 CLR.W 0x21fa2> {} <MI 20688 CLR.W 0x21fb4> {} <MI 2068e CLR.W 0x21fb6> {} <MI 20694 CLR.W 0x21fb8> {} <MI 2069a CLR.W 0x21fba> {} <POP 206a0-206a4 Epilogue> Σ0
@ 206a4 <LVAR 0x008 4(r)> <POP 206a4-20724 Body> <POP 206a4-206ba Prologue> Σ0 ↓ <POP 206ba-206ea Naked> Σ0 ↓ →0x2071c <MI 206ba MOVE.W 0x21b8e,0x21b98> {} <MI 206c4 MOVEQ.L #0x10,D7> {} <Const 0x206c6 0x300.4> Δ-4 {[##768]} <Call 0x206ca 0x20642> {[##768]} <POP 206ce-206d0 StackAdj> Δ+4 {} <MI 206d0 MOVE.W #0x40,0x21fba> {} <MI 206d8 MOVEA.L (A6+0x8),A0> {} <MI 206dc MOVE.L D7,-(A7)> Δ-4 {[4, 'D7']} <MI 206de PEA.L (A0)> Δ-4 {[4, 'D7']|[4, '^(A0)']} <Call 0x206e0 0x20546> {[4, 'D7']|[4, '^(A0)']} <POP 206e4-206e6 StackAdj> Δ+8 {} <MI 206e6 TST.B (A0)> {} <MI 206e8 BNE 0x2071c> {} <POP 206ea-2071c Naked> Σ0 ↓ <Blob 0x206ea [68] @> Δ-68 {[«68""»]} <POP 206fc-206fe StackAdj> Δ-4 {[«68""»]|[-4-]} <Lit 0x206fe 67> {[«68""»]|[$$*** No R1000 response to DUMP_REGISTERS - probably a hardware error]} <Call 0x20712 0x103e0> {[«68""»]|[$$*** No R1000 response to DUMP_REGISTERS - probably a hardware error]} WriteConsoleStringCrLf(str : String) <POP 20718-2071c StackAdj> Δ+72 {} <POP 2071c-20724 Epilogue> Σ0 ←0x206ba
@ 20724 <LVAR 0x008 4(r)> <LVAR -0x006 4(rw)> <LVAR -0x00a 4(rw)> <POP 20724-207ec Body> <POP 20724-2073a Prologue> Σ0 ↓ <POP 2073a-20742 RegCacheLoad> Σ0 ↓ <POP 20742-2074e Naked> Σ0 ↓ →0x2075c <POP 20742-20744 StackAdj> Δ-2 {[-2-]} <Call 0x20744 0x104cc> {[-2-]} MemOnly2MB() : Bool <MI 2074a TST.B (A7)+> Δ+2 {} <MI 2074c BEQ 0x2075c> {} <POP 2074e-2075c Naked> Σ0 →0x20768 <MI 2074e MOVE.L #0x800,(A6-0xa)> {} <MI 20754 MOVE.L #0x4,(A6-0x6)> {} <MI 2075a BRA 0x20768> {} <POP 2075c-20768 Naked> Σ0 ↓ ←0x20742 <MI 2075c MOVE.L #0x1000,(A6-0xa)> {} <MI 20762 MOVE.L #0x8,(A6-0x6)> {} <POP 20768-2077e Naked> Σ0 ↓ ←0x2074e <Const 0x20768 0x400.4> Δ-4 {[##1024]} <Call 0x2076c 0x20642> {[##1024]} <POP 20770-20772 StackAdj> Δ+4 {} <MI 20772 MOVE.W #0x10,0x21fb8> {} <MI 2077a MOVEQ.L #0x00,D6> {} <MI 2077c MOVEQ.L #0x0c,D5> {} <POP 2077e-2078e Naked> Σ0 ↓ →0x207da ←0x207da <POP 2077e-20780 StackAdj> Δ-2 {[-2-]} <MI 20780 MOVE.B D5,-(A7)> Δ-2 {[-2-]|[2, 'D5']} <Call 0x20782 0x104c0> {[-2-]|[2, 'D5']} HasBoard(diproc_addr: Byte) : Byte <POP 20788-2078a StackAdj> Δ+2 {[-2-]} <MI 2078a TST.B (A7)+> Δ+2 {} <MI 2078c BEQ 0x207da> {} <POP 2078e-20794 Naked> Σ0 Δ-4 ↓ <MI 2078e MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']} <MI 20790 SUBQ.L #0x1,(A7)> {[-4-]} <MI 20792 MOVEQ.L #0x00,D7> {[-4-]} <POP 20794-20798 Naked> Σ-4 ↓ →0x207d8 ←0x20798 <MI 20794 CMP.L (A7),D7> {[-4-]} <MI 20796 BGT 0x207d8> {[-4-]} <POP 20798-207d8 Naked> Σ-4 ↓ →0x20794 <MI 20798 CLR.W 0x21f9c> {[-4-]} <MI 2079e MOVE.L D6,D0> {[-4-]} <MI 207a0 ASL.L #0x2,D0> {[-4-]} <MI 207a2 ADD.L D7,D0> {[-4-]} <MI 207a4 ASL.L #0x4,D0> {[-4-]} <MI 207a6 MOVE.W D0,0x21f9e> {[-4-]} <MI 207ac CLR.W 0x21fa0> {[-4-]} <MI 207b2 CLR.W 0x21fa2> {[-4-]} <MI 207b8 MOVE.L (A6-0xa),D4> {[-4-]} <MI 207ba MOVE.L #0x80,D3> {[-4-]} <Call 0x207c0 0x10294> {[-4-]} ?divs_d3_d4 <MI 207c6 MOVE.L D4,-(A7)> Δ-4 {[-4-]|[4, 'D4']} <MI 207c8 MOVEA.L (A6+0x8),A0> {[-4-]|[4, 'D4']} <MI 207cc PEA.L (A0)> Δ-4 {[-4-]|[4, 'D4']|[4, '^(A0)']} <Call 0x207ce 0x20546> {[-4-]|[4, 'D4']|[4, '^(A0)']} <POP 207d2-207d4 StackAdj> Δ+8 {[-4-]} <MI 207d4 ADDQ.L #0x1,D7> {[-4-]} <MI 207d6 BVC 0x20794> {[-4-]} <POP 207d8-207da Naked> Σ-4 Δ+4 ↓ ←0x20794 <POP 207d8-207da StackAdj> Δ+4 {} <POP 207da-207e4 Naked> Σ0 ↓ →0x2077e ←0x2077e <MI 207da ADDQ.L #0x1,D6> {} <MI 207dc ADDQ.B #0x1,D5> {} <MI 207de CMPI.B #0x0f,D5> {} <MI 207e2 BLE 0x2077e> {} <POP 207e4-207ec Epilogue> Σ0
@ 207ec <POP 207ec-20884 Body> <POP 207ec-20802 Prologue> Σ0 ↓ <POP 20802-2081a RegCacheLoad> Σ0 ↓ <POP 2081a-2087c Naked> Σ0 ↓ <Const 0x2081a 0x400.4> Δ-4 {[##1024]} <MI 2081e LEA.L 0x21fbc,A0> {[##1024]} <MI 20824 MOVE.L A0,-(A7)> Δ-4 {[##1024]|[4, 'A0']} <Const 0x20826 0x4.2> Δ-2 {[##1024]|[4, 'A0']|[#4]} <Call 0x20828 0x10238> {[##1024]|[4, 'A0']|[#4]} KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word) <POP 2082a-2082c StackAdj> Δ+10 {} <Const 0x2082c 0x404.4> Δ-4 {[##1028]} <MI 20830 LEA.L 0x21fc0,A0> {[##1028]} <MI 20832 MOVE.L A0,-(A7)> Δ-4 {[##1028]|[4, 'A0']} <Const 0x20834 0x2.2> Δ-2 {[##1028]|[4, 'A0']|[#2]} <Call 0x20836 0x10238> {[##1028]|[4, 'A0']|[#2]} KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word) <POP 20838-2083a StackAdj> Δ+10 {} <Const 0x2083a 0x406.4> Δ-4 {[##1030]} <MI 2083e LEA.L 0x21fc2,A0> {[##1030]} <MI 20844 MOVE.L A0,-(A7)> Δ-4 {[##1030]|[4, 'A0']} <Const 0x20846 0x2.2> Δ-2 {[##1030]|[4, 'A0']|[#2]} <Call 0x20848 0x10238> {[##1030]|[4, 'A0']|[#2]} KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word) <POP 2084a-2084c StackAdj> Δ+10 {} <Const 0x2084c 0x408.4> Δ-4 {[##1032]} <MI 20850 LEA.L 0x21fc4,A0> {[##1032]} <MI 20856 MOVE.L A0,-(A7)> Δ-4 {[##1032]|[4, 'A0']} <Const 0x20858 0x4.2> Δ-2 {[##1032]|[4, 'A0']|[#4]} <Call 0x2085a 0x10238> {[##1032]|[4, 'A0']|[#4]} KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word) <POP 2085c-2085e StackAdj> Δ+10 {} <Const 0x2085e 0x40c.4> Δ-4 {[##1036]} <MI 20862 LEA.L 0x21fc8,A0> {[##1036]} <MI 20864 MOVE.L A0,-(A7)> Δ-4 {[##1036]|[4, 'A0']} <Const 0x20866 0x4.2> Δ-2 {[##1036]|[4, 'A0']|[#4]} <Call 0x20868 0x10238> {[##1036]|[4, 'A0']|[#4]} KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word) <POP 2086a-2086c StackAdj> Δ+10 {} <MI 2086c MOVEQ.L #0x00,D0> {} <MI 2086e MULU.W 0x21fc0,D0> {} <MI 20870 CLR.L D1> {} <MI 20872 MOVE.W D0,D1> {} <MI 20874 ADD.L 0x21fc8,D1> {} <MI 20876 MOVE.L D1,0x21fcc> {} <POP 2087c-20884 Epilogue> Σ0
@ 20884 <LVAR -0x006 @> <LVAR -0x008 @ 1(r)> <LVAR -0x00c @ 4(rw)> <POP 20884-209f2 Body> <POP 20884-2089a Prologue> Σ0 ↓ <POP 2089a-208aa RegCacheLoad> Σ0 ↓ <POP 208aa-208fa Naked> Σ0 ↓ →0x20912 <MI 208aa MOVEQ.L #0x04,D7> {} <Blob 0x208ac [10] @> Δ-10 {[«10""»]} <POP 208b8-208ba StackAdj> Δ-8 {[«10""»]|[-8-]} <Lit 0x208ba 10> {[«10""»]|[-4-]|[$$R1000_DUMP]} <MI 208c8 MOVE.L D7,(A7)> {[«10""»]|[-4-]|[4, 'D7']} <POP 208c2-208c8 StackAdj> Δ-8 {[«10""»]|[-4-]|[4, 'D7']|[-8-]} <Call 0x208ca 0x102e4> {[«10""»]|[-4-]|[4, 'D7']|[-8-]} Long2String(a : Long) : String <POP 208d0-208d2 StackAdj> Δ+4 {[«10""»]|[-4-]|[4, 'D7']|[-4-]} <Call 0x208d2 0x102d0> {[«10""»]|[-4-]|[4, 'D7']|[-4-]} StringCat2(a, b : String) : String <POP 208d8-208da StackAdj> Δ+8 {[«10""»]|[-4-]} <MI 208da MOVEA.L (A7)+,A4> Δ+4 {[«10""»]} <POP 208dc-208de StackAdj> Δ+6 {[-4-]} <MI 208de MOVE.L A4,(A7)> {[4, 'A4']} <MI 208e0 CLR.B -(A7)> Δ-2 {[4, 'A4']|[#0]} <MI 208e2 CLR.B -(A7)> Δ-2 {[4, 'A4']|[#0]|[#0]} <Const 0x208e4 0x0.4> Δ-4 {[4, 'A4']|[#0]|[#0]|[##0]} <Pointer.fp 0x208e8 <LVAR -0x008 @ 1(r)>> Δ-4 {[4, 'A4']|[#0]|[#0]|[##0]|[@@-8]} <Pointer.fp 0x208ea <LVAR -0x006 @>> Δ-4 {[4, 'A4']|[#0]|[#0]|[##0]|[@@-8]|[@@-6]} <Call 0x208ee 0x10380> {[4, 'A4']|[#0]|[#0]|[##0]|[@@-8]|[@@-6]} OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File) <POP 208f4-208f6 StackAdj> Δ+20 {} <MI 208f6 TST.B (A6-0x8)> {} <MI 208f8 BNE 0x20912> {} <POP 208fa-20912 Naked> Σ0 ↓ <Const 0x208fa 0x2.2> Δ-2 {[#2]} <MI 208fe CLR.B -(A7)> Δ-2 {[#2]|[#0]} <Const 0x20900 0x1.4> Δ-4 {[#2]|[#0]|[##1]} <Pointer.fp 0x20904 <LVAR -0x008 @ 1(r)>> Δ-4 {[#2]|[#0]|[##1]|[@@-8]} <Pointer.fp 0x20906 <LVAR -0x006 @>> Δ-4 {[#2]|[#0]|[##1]|[@@-8]|[@@-6]} <Call 0x2090a 0x1038c> {[#2]|[#0]|[##1]|[@@-8]|[@@-6]} CloseFile(a : L; VAR status : B; VAR file : File) <POP 20910-20912 StackAdj> Δ+16 {} <POP 20912-20914 Naked> Σ0 ↓ ←0x208aa <MI 20912 MOVE.L A4,(A6-0xc)> {} <POP 20914-20964 Naked> Σ0 ↓ →0x20978 ←0x20978 <MI 20914 SUBQ.L #0x1,D7> {} <Blob 0x20916 [10] @> Δ-10 {[«10""»]} <POP 20922-20924 StackAdj> Δ-8 {[«10""»]|[-8-]} <Lit 0x20924 10> {[«10""»]|[-4-]|[$$R1000_DUMP]} <MI 20932 MOVE.L D7,(A7)> {[«10""»]|[-4-]|[4, 'D7']} <POP 2092c-20932 StackAdj> Δ-8 {[«10""»]|[-4-]|[4, 'D7']|[-8-]} <Call 0x20934 0x102e4> {[«10""»]|[-4-]|[4, 'D7']|[-8-]} Long2String(a : Long) : String <POP 2093a-2093c StackAdj> Δ+4 {[«10""»]|[-4-]|[4, 'D7']|[-4-]} <Call 0x2093c 0x102d0> {[«10""»]|[-4-]|[4, 'D7']|[-4-]} StringCat2(a, b : String) : String <POP 20942-20944 StackAdj> Δ+8 {[«10""»]|[-4-]} <MI 20944 MOVEA.L (A7)+,A4> Δ+4 {[«10""»]} <POP 20946-20948 StackAdj> Δ+6 {[-4-]} <MI 20948 MOVE.L A4,(A7)> {[4, 'A4']} <MI 2094a CLR.B -(A7)> Δ-2 {[4, 'A4']|[#0]} <MI 2094c CLR.B -(A7)> Δ-2 {[4, 'A4']|[#0]|[#0]} <Const 0x2094e 0x0.4> Δ-4 {[4, 'A4']|[#0]|[#0]|[##0]} <Pointer.fp 0x20952 <LVAR -0x008 @ 1(r)>> Δ-4 {[4, 'A4']|[#0]|[#0]|[##0]|[@@-8]} <Pointer.fp 0x20954 <LVAR -0x006 @>> Δ-4 {[4, 'A4']|[#0]|[#0]|[##0]|[@@-8]|[@@-6]} <Call 0x20958 0x10380> {[4, 'A4']|[#0]|[#0]|[##0]|[@@-8]|[@@-6]} OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File) <POP 2095e-20960 StackAdj> Δ+20 {} <MI 20960 TST.B (A6-0x8)> {} <MI 20962 BNE 0x20978> {} <POP 20964-20978 Naked> Σ0 ↓ <Const 0x20964 0x1.2> Δ-2 {[#1]} <Const 0x20966 0x1.2> Δ-2 {[#1]|[#1]} <MI 20968 MOVE.L (A6-0xc),-(A7)> Δ-4 {[#1]|[#1]|[4, '(A6-0xc)']} <Pointer.fp 0x2096a <LVAR -0x008 @ 1(r)>> Δ-4 {[#1]|[#1]|[4, '(A6-0xc)']|[@@-8]} <Pointer.fp 0x2096c <LVAR -0x006 @>> Δ-4 {[#1]|[#1]|[4, '(A6-0xc)']|[@@-8]|[@@-6]} <Call 0x20970 0x1038c> {[#1]|[#1]|[4, '(A6-0xc)']|[@@-8]|[@@-6]} CloseFile(a : L; VAR status : B; VAR file : File) <POP 20976-20978 StackAdj> Δ+16 {} <POP 20978-20988 Naked> Σ0 ↓ →0x20914 ←0x20914 <Pointer.fp 0x20978 <LVAR -0x00c @ 4(rw)>> Δ-4 {[@@-12]} <Call 0x2097a 0x102bc> {[@@-12]} FreeString(VAR a : String) <POP 20980-20982 StackAdj> Δ+4 {} <MI 20982 MOVE.L A4,(A6-0xc)> {} <MI 20984 CMP.L #0x01,D7> {} <MI 20986 BNE 0x20914> {} <POP 20988-209a6 Naked> Σ0 ↓ →0x209da <MI 20988 MOVE.L (A6-0xc),-(A7)> Δ-4 {[4, '(A6-0xc)']} <Const 0x2098a 0x1.2> Δ-2 {[4, '(A6-0xc)']|[#1]} <Const 0x2098c 0x1.2> Δ-2 {[4, '(A6-0xc)']|[#1]|[#1]} <Const 0x2098e 0x28.4> Δ-4 {[4, '(A6-0xc)']|[#1]|[#1]|[##40]} <Pointer.fp 0x20992 <LVAR -0x008 @ 1(r)>> Δ-4 {[4, '(A6-0xc)']|[#1]|[#1]|[##40]|[@@-8]} <Const 0x20994 0x21786.4> Δ-4 {[4, '(A6-0xc)']|[#1]|[#1]|[##40]|[@@-8]|[##137094]} <Call 0x2099a 0x10380> {[4, '(A6-0xc)']|[#1]|[#1]|[##40]|[@@-8]|[##137094]} OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File) <POP 209a0-209a2 StackAdj> Δ+20 {} <MI 209a2 TST.B (A6-0x8)> {} <MI 209a4 BEQ 0x209da> {} <POP 209a6-209da Naked> Σ0 ↓ <Blob 0x209a6 [36] @> Δ-36 {[«36""»]} <Const 0x209b8 0xe.2> Δ-2 {[«36""»]|[#14]} <POP 209bc-209be StackAdj> Δ-4 {[«36""»]|[#14]|[-4-]} <Lit 0x209be 35> {[«36""»]|[#14]|[$$could not create new TOMBSTONE file]} <Call 0x209d0 0x103b8> {[«36""»]|[#14]|[$$could not create new TOMBSTONE file]} PopProgram(status : Byte; msg : String) <POP 209d6-209da StackAdj> Δ+42 {} <POP 209da-209ea Naked> Σ0 ↓ ←0x20988 <Pointer.fp 0x209da <LVAR -0x00c @ 4(rw)>> Δ-4 {[@@-12]} <Call 0x209dc 0x102bc> {[@@-12]} FreeString(VAR a : String) <POP 209e2-209e4 StackAdj> Δ+4 {} <MI 209e4 MOVE.W #0x01,0x21b8e> {} <POP 209ea-209f2 Epilogue> Σ0
@ 209f2 <LVAR -0x006 @ 4(r)> <LVAR -0x008 @> <POP 209f2-20b44 Body> <POP 209f2-20a08 Prologue> Σ0 ↓ <POP 20a08-20a20 RegCacheLoad> Σ0 ↓ <POP 20a20-20b3c Naked> Σ0 ↓ <MI 20a20 MOVE.W 0x21b8e,0x21b94> {} <Blob 0x20a2a [10] @> Δ-10 {[«10""»]} <POP 20a3c-20a3e StackAdj> Δ-4 {[«10""»]|[-4-]} <Lit 0x20a3e 9> {[«10""»]|[$$IOP_DUMP1]} <POP 20a4e-20a50 StackAdj> Δ-2 {[«10""»]|[$$IOP_DUMP1]|[-2-]} <MI 20a50 CLR.B (A7)> {[«10""»]|[$$IOP_DUMP1]|[-2-]} <Const 0x20a52 0x2.2> Δ-2 {[«10""»]|[$$IOP_DUMP1]|[-2-]|[#2]} <Const 0x20a54 0x0.4> Δ-4 {[«10""»]|[$$IOP_DUMP1]|[-2-]|[#2]|[##0]} <Pointer.fp 0x20a58 <LVAR -0x008 @>> Δ-4 {[«10""»]|[$$IOP_DUMP1]|[-2-]|[#2]|[##0]|[@@-8]} <Pointer.fp 0x20a5a <LVAR -0x006 @ 4(r)>> Δ-4 {[«10""»]|[$$IOP_DUMP1]|[-2-]|[#2]|[##0]|[@@-8]|[@@-6]} <Call 0x20a5c 0x10380> {[«10""»]|[$$IOP_DUMP1]|[-2-]|[#2]|[##0]|[@@-8]|[@@-6]} OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File) <POP 20a62-20a66 StackAdj> Δ+30 {} <MI 20a66 MOVEA.L (A6-0x6),A0> {} <MI 20a68 MOVE.B (A0+0x3a),0x21f90> {} <MI 20a70 MOVE.B (A0+0x3b),0x21f91> {} <MI 20a78 MOVE.B (A0+0x3c),0x21f92> {} <MI 20a80 MOVE.B (A0+0x3d),0x21f93> {} <MI 20a88 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']} <Const 0x20a8a 0x1.2> Δ-2 {[4, '(A6-0x6)']|[#1]} <MI 20a8c CLR.W -(A7)> Δ-2 {[4, '(A6-0x6)']|[#1]|[#0]} <Const 0x20a8e 0x200.2> Δ-2 {[4, '(A6-0x6)']|[#1]|[#0]|[#512]} <Const 0x20a90 0x2.2> Δ-2 {[4, '(A6-0x6)']|[#1]|[#0]|[#512]|[#2]} <Blob 0x20a92 [4] 0x21b8a> Δ-4 {[4, '(A6-0x6)']|[#1]|[#0]|[#512]|[#2]|[«4»]} <Pointer.fp 0x20a94 <LVAR -0x008 @>> Δ-4 {[4, '(A6-0x6)']|[#1]|[#0]|[#512]|[#2]|[«4»]|[@@-8]} <Call 0x20a96 0x10384> {[4, '(A6-0x6)']|[#1]|[#0]|[#512]|[#2]|[«4»]|[@@-8]} ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L) <POP 20a9c-20a9e StackAdj> Δ+16 {[4, '(A6-0x6)']} <POP 20a9e-20a9f StackAdj> Δ+4 {} <Blob 0x20a9f [4] 0x21786> Δ-4 {[«4»]} <Const 0x20aa4 0x1.2> Δ-2 {[«4»]|[#1]} <MI 20aa6 CLR.W -(A7)> Δ-2 {[«4»]|[#1]|[#0]} <Const 0x20aa8 0x200.2> Δ-2 {[«4»]|[#1]|[#0]|[#512]} <Const 0x20aaa 0x2.2> Δ-2 {[«4»]|[#1]|[#0]|[#512]|[#2]} <Blob 0x20aac [4] 0x21b8a> Δ-4 {[«4»]|[#1]|[#0]|[#512]|[#2]|[«4»]} <Pointer.fp 0x20aae <LVAR -0x008 @>> Δ-4 {[«4»]|[#1]|[#0]|[#512]|[#2]|[«4»]|[@@-8]} <Call 0x20ab0 0x10388> {[«4»]|[#1]|[#0]|[#512]|[#2]|[«4»]|[@@-8]} WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L) <POP 20ab6-20ab8 StackAdj> Δ+16 {[«4»]} <MI 20ab8 MOVE.L (A6-0x6),(A7)> {[4, '(A6-0x6)']} <Const 0x20aba 0x3e.2> Δ-2 {[4, '(A6-0x6)']|[#62]} <MI 20abe CLR.W -(A7)> Δ-2 {[4, '(A6-0x6)']|[#62]|[#0]} <Const 0x20ac0 0x200.2> Δ-2 {[4, '(A6-0x6)']|[#62]|[#0]|[#512]} <Const 0x20ac2 0x2.2> Δ-2 {[4, '(A6-0x6)']|[#62]|[#0]|[#512]|[#2]} <Blob 0x20ac4 [4] 0x21b8a> Δ-4 {[4, '(A6-0x6)']|[#62]|[#0]|[#512]|[#2]|[«4»]} <Pointer.fp 0x20ac6 <LVAR -0x008 @>> Δ-4 {[4, '(A6-0x6)']|[#62]|[#0]|[#512]|[#2]|[«4»]|[@@-8]} <Call 0x20ac8 0x10384> {[4, '(A6-0x6)']|[#62]|[#0]|[#512]|[#2]|[«4»]|[@@-8]} ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L) <POP 20ace-20ad0 StackAdj> Δ+16 {[4, '(A6-0x6)']} <POP 20ad0-20ad1 StackAdj> Δ+4 {} <Blob 0x20ad1 [4] 0x21786> Δ-4 {[«4»]} <Const 0x20ad6 0x2.2> Δ-2 {[«4»]|[#2]} <MI 20ad8 CLR.W -(A7)> Δ-2 {[«4»]|[#2]|[#0]} <Const 0x20ada 0x200.2> Δ-2 {[«4»]|[#2]|[#0]|[#512]} <Const 0x20adc 0x2.2> Δ-2 {[«4»]|[#2]|[#0]|[#512]|[#2]} <Blob 0x20ade [4] 0x21b8a> Δ-4 {[«4»]|[#2]|[#0]|[#512]|[#2]|[«4»]} <Pointer.fp 0x20ae0 <LVAR -0x008 @>> Δ-4 {[«4»]|[#2]|[#0]|[#512]|[#2]|[«4»]|[@@-8]} <Call 0x20ae2 0x10388> {[«4»]|[#2]|[#0]|[#512]|[#2]|[«4»]|[@@-8]} WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L) <POP 20ae8-20aea StackAdj> Δ+16 {[«4»]} <MI 20aea MOVE.L (A6-0x6),(A7)> {[4, '(A6-0x6)']} <Const 0x20aec 0x3f.2> Δ-2 {[4, '(A6-0x6)']|[#63]} <MI 20af0 CLR.W -(A7)> Δ-2 {[4, '(A6-0x6)']|[#63]|[#0]} <Const 0x20af2 0x200.2> Δ-2 {[4, '(A6-0x6)']|[#63]|[#0]|[#512]} <Const 0x20af4 0x2.2> Δ-2 {[4, '(A6-0x6)']|[#63]|[#0]|[#512]|[#2]} <Blob 0x20af6 [4] 0x21b8a> Δ-4 {[4, '(A6-0x6)']|[#63]|[#0]|[#512]|[#2]|[«4»]} <Pointer.fp 0x20af8 <LVAR -0x008 @>> Δ-4 {[4, '(A6-0x6)']|[#63]|[#0]|[#512]|[#2]|[«4»]|[@@-8]} <Call 0x20afa 0x10384> {[4, '(A6-0x6)']|[#63]|[#0]|[#512]|[#2]|[«4»]|[@@-8]} ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L) <POP 20b00-20b02 StackAdj> Δ+16 {[4, '(A6-0x6)']} <POP 20b02-20b03 StackAdj> Δ+4 {} <Blob 0x20b03 [4] 0x21786> Δ-4 {[«4»]} <Const 0x20b08 0x3.2> Δ-2 {[«4»]|[#3]} <MI 20b0c CLR.W -(A7)> Δ-2 {[«4»]|[#3]|[#0]} <Const 0x20b0e 0x200.2> Δ-2 {[«4»]|[#3]|[#0]|[#512]} <Const 0x20b10 0x2.2> Δ-2 {[«4»]|[#3]|[#0]|[#512]|[#2]} <Blob 0x20b12 [4] 0x21b8a> Δ-4 {[«4»]|[#3]|[#0]|[#512]|[#2]|[«4»]} <Pointer.fp 0x20b14 <LVAR -0x008 @>> Δ-4 {[«4»]|[#3]|[#0]|[#512]|[#2]|[«4»]|[@@-8]} <Call 0x20b16 0x10388> {[«4»]|[#3]|[#0]|[#512]|[#2]|[«4»]|[@@-8]} WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L) <POP 20b1c-20b20 StackAdj> Δ+20 {} <MI 20b20 MOVE.W #0x4,0x21b8e> {} <MI 20b28 CLR.B -(A7)> Δ-2 {[#0]} <Const 0x20b2a 0x1.2> Δ-2 {[#0]|[#1]} <Const 0x20b2c 0x1.4> Δ-4 {[#0]|[#1]|[##1]} <Pointer.fp 0x20b30 <LVAR -0x008 @>> Δ-4 {[#0]|[#1]|[##1]|[@@-8]} <Pointer.fp 0x20b32 <LVAR -0x006 @ 4(r)>> Δ-4 {[#0]|[#1]|[##1]|[@@-8]|[@@-6]} <Call 0x20b34 0x1038c> {[#0]|[#1]|[##1]|[@@-8]|[@@-6]} CloseFile(a : L; VAR status : B; VAR file : File) <POP 20b3a-20b3c StackAdj> Δ+16 {} <POP 20b3c-20b44 Epilogue> Σ0
@ 20b44 <LVAR -0x006 @ 4(r)> <LVAR -0x008 @> <POP 20b44-20c1c Body> <POP 20b44-20b5a Prologue> Σ0 ↓ <POP 20b5a-20b74 RegCacheLoad> Σ0 ↓ <POP 20b74-20bbe Naked> Σ0 Δ-4 ↓ <MI 20b74 MOVE.W 0x21b8e,0x21b96> {} <Blob 0x20b7a [22] @> Δ-22 {[«22""»]} <POP 20b86-20b88 StackAdj> Δ-4 {[«22""»]|[-4-]} <Lit 0x20b88 22> {[«22""»]|[$$CRASH_DUMP.SAVED_STATE]} <POP 20b98-20b9a StackAdj> Δ-2 {[«22""»]|[$$CRASH_DUMP.SAVED_STATE]|[-2-]} <MI 20b9a CLR.B (A7)> {[«22""»]|[$$CRASH_DUMP.SAVED_STATE]|[-2-]} <Const 0x20b9c 0x2.2> Δ-2 {[«22""»]|[$$CRASH_DUMP.SAVED_STATE]|[-2-]|[#2]} <Const 0x20b9e 0x0.4> Δ-4 {[«22""»]|[$$CRASH_DUMP.SAVED_STATE]|[-2-]|[#2]|[##0]} <Pointer.fp 0x20ba2 <LVAR -0x008 @>> Δ-4 {[«22""»]|[$$CRASH_DUMP.SAVED_STATE]|[-2-]|[#2]|[##0]|[@@-8]} <Pointer.fp 0x20ba4 <LVAR -0x006 @ 4(r)>> Δ-4 {[«22""»]|[$$CRASH_DUMP.SAVED_STATE]|[-2-]|[#2]|[##0]|[@@-8]|[@@-6]} <Call 0x20ba6 0x10380> {[«22""»]|[$$CRASH_DUMP.SAVED_STATE]|[-2-]|[#2]|[##0]|[@@-8]|[@@-6]} OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File) <POP 20bac-20bb0 StackAdj> Δ+42 {} <MI 20bb0 MOVEA.L (A6-0x6),A0> {} <MI 20bb2 MOVE.W (A0+0x20),D0> {} <MI 20bb6 SUBQ.W #0x1,D0> {} <MI 20bb8 EXTW.L D0> {} <MI 20bba MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']} <MI 20bbc MOVEQ.L #0x00,D7> {[4, 'D0']} <POP 20bbe-20bc2 Naked> Σ-4 ↓ →0x20bfe ←0x20bc2 <MI 20bbe CMP.L (A7),D7> {[-4-]} <MI 20bc0 BGT 0x20bfe> {[-4-]} <POP 20bc2-20bfe Naked> Σ-4 ↓ →0x20bbe <MI 20bc2 MOVE.L (A6-0x6),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x6)']} <MI 20bc4 MOVE.W D7,-(A7)> Δ-2 {[-4-]|[4, '(A6-0x6)']|[2, 'D7']} <MI 20bc6 CLR.W -(A7)> Δ-2 {[-4-]|[4, '(A6-0x6)']|[2, 'D7']|[#0]} <Const 0x20bc8 0x200.2> Δ-2 {[-4-]|[4, '(A6-0x6)']|[2, 'D7']|[#0]|[#512]} <Const 0x20bcc 0x2.2> Δ-2 {[-4-]|[4, '(A6-0x6)']|[2, 'D7']|[#0]|[#512]|[#2]} <Blob 0x20bce [4] 0x21b8a> Δ-4 {[-4-]|[4, '(A6-0x6)']|[2, 'D7']|[#0]|[#512]|[#2]|[«4»]} <Pointer.fp 0x20bd0 <LVAR -0x008 @>> Δ-4 {[-4-]|[4, '(A6-0x6)']|[2, 'D7']|[#0]|[#512]|[#2]|[«4»]|[@@-8]} <Call 0x20bd2 0x10384> {[-4-]|[4, '(A6-0x6)']|[2, 'D7']|[#0]|[#512]|[#2]|[«4»]|[@@-8]} ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L) <POP 20bd8-20bda StackAdj> Δ+16 {[-4-]|[4, '(A6-0x6)']} <POP 20bda-20bdb StackAdj> Δ+4 {[-4-]} <Blob 0x20bdb [4] 0x21786> Δ-4 {[-4-]|[«4»]} <Blob 0x20be0 [2] 0x21b8e> Δ-2 {[-4-]|[«4»]|[«2»]} <MI 20be2 CLR.W -(A7)> Δ-2 {[-4-]|[«4»]|[«2»]|[#0]} <Const 0x20be4 0x200.2> Δ-2 {[-4-]|[«4»]|[«2»]|[#0]|[#512]} <Const 0x20be8 0x2.2> Δ-2 {[-4-]|[«4»]|[«2»]|[#0]|[#512]|[#2]} <Blob 0x20bea [4] 0x21b8a> Δ-4 {[-4-]|[«4»]|[«2»]|[#0]|[#512]|[#2]|[«4»]} <Pointer.fp 0x20bec <LVAR -0x008 @>> Δ-4 {[-4-]|[«4»]|[«2»]|[#0]|[#512]|[#2]|[«4»]|[@@-8]} <Call 0x20bee 0x10388> {[-4-]|[«4»]|[«2»]|[#0]|[#512]|[#2]|[«4»]|[@@-8]} WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L) <POP 20bf4-20bf8 StackAdj> Δ+20 {[-4-]} <MI 20bf8 ADDQ.W #0x1,0x21b8e> {[-4-]} <MI 20bfa ADDQ.L #0x1,D7> {[-4-]} <MI 20bfc BVC 0x20bbe> {[-4-]} <POP 20bfe-20c14 Naked> Σ-4 Δ+4 ↓ ←0x20bbe <POP 20bfe-20c00 StackAdj> Δ+2 {[-2-]} <MI 20c00 CLR.B (A7)> {[-2-]} <Const 0x20c02 0x1.2> Δ-2 {[-2-]|[#1]} <Const 0x20c04 0x1.4> Δ-4 {[-2-]|[#1]|[##1]} <Pointer.fp 0x20c08 <LVAR -0x008 @>> Δ-4 {[-2-]|[#1]|[##1]|[@@-8]} <Pointer.fp 0x20c0a <LVAR -0x006 @ 4(r)>> Δ-4 {[-2-]|[#1]|[##1]|[@@-8]|[@@-6]} <Call 0x20c0c 0x1038c> {[-2-]|[#1]|[##1]|[@@-8]|[@@-6]} CloseFile(a : L; VAR status : B; VAR file : File) <POP 20c12-20c14 StackAdj> Δ+16 {} <POP 20c14-20c1c Epilogue> Σ0
@ 20c1c <LVAR -0x004 @> <LVAR -0x008 @ 4(r)> <LVAR -0x405 1(r)> <LVAR -0x406 2(r)> <LVAR -0x408 @> <POP 20c1c-20ce6 Body> <POP 20c1c-20c32 Prologue> Σ0 ↓ <POP 20c32-20c3e RegCacheLoad> Σ0 ↓ <POP 20c3e-20cde Naked> Σ0 ↓ <Blob 0x20c3e [10] @> Δ-10 {[«10""»]} <POP 20c50-20c52 StackAdj> Δ-4 {[«10""»]|[-4-]} <Lit 0x20c52 9> {[«10""»]|[$$ERROR_LOG]} <POP 20c62-20c64 StackAdj> Δ-2 {[«10""»]|[$$ERROR_LOG]|[-2-]} <MI 20c64 CLR.B (A7)> {[«10""»]|[$$ERROR_LOG]|[-2-]} <Const 0x20c66 0x1.2> Δ-2 {[«10""»]|[$$ERROR_LOG]|[-2-]|[#1]} <Const 0x20c68 0x0.4> Δ-4 {[«10""»]|[$$ERROR_LOG]|[-2-]|[#1]|[##0]} <Pointer.fp 0x20c6c <LVAR -0x004 @>> Δ-4 {[«10""»]|[$$ERROR_LOG]|[-2-]|[#1]|[##0]|[@@-4]} <Pointer.fp 0x20c6e <LVAR -0x008 @ 4(r)>> Δ-4 {[«10""»]|[$$ERROR_LOG]|[-2-]|[#1]|[##0]|[@@-4]|[@@-8]} <Call 0x20c70 0x10380> {[«10""»]|[$$ERROR_LOG]|[-2-]|[#1]|[##0]|[@@-4]|[@@-8]} OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File) <POP 20c76-20c7a StackAdj> Δ+26 {[-4-]} <MI 20c7a MOVE.L (A6-0x8),(A7)> {[4, '(A6-0x8)']} <MI 20c7c CLR.W -(A7)> Δ-2 {[4, '(A6-0x8)']|[#0]} <MI 20c7e CLR.W -(A7)> Δ-2 {[4, '(A6-0x8)']|[#0]|[#0]} <Const 0x20c80 0x200.2> Δ-2 {[4, '(A6-0x8)']|[#0]|[#0]|[#512]} <Const 0x20c84 0x1.2> Δ-2 {[4, '(A6-0x8)']|[#0]|[#0]|[#512]|[#1]} <MI 20c86 LEA.L (A6-0x408),A0> {[4, '(A6-0x8)']|[#0]|[#0]|[#512]|[#1]} <MI 20c8a MOVE.L A0,-(A7)> Δ-4 {[4, '(A6-0x8)']|[#0]|[#0]|[#512]|[#1]|[4, 'A0']} <Pointer.fp 0x20c8c <LVAR -0x004 @>> Δ-4 {[4, '(A6-0x8)']|[#0]|[#0]|[#512]|[#1]|[4, 'A0']|[@@-4]} <Call 0x20c8e 0x10384> {[4, '(A6-0x8)']|[#0]|[#0]|[#512]|[#1]|[4, 'A0']|[@@-4]} ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L) <POP 20c94-20c96 StackAdj> Δ+16 {[4, '(A6-0x8)']} <MI 20c96 MOVE.L (A6-0x8),(A7)> {[4, '(A6-0x8)']} <MI 20c98 MOVE.W (A6-0x406),D0> {[4, '(A6-0x8)']} <MI 20c9c LSR.W #0x3,D0> {[4, '(A6-0x8)']} <MI 20c9e ADDQ.W #0x1,D0> {[4, '(A6-0x8)']} <MI 20ca0 MOVE.W D0,-(A7)> Δ-2 {[4, '(A6-0x8)']|[2, 'D0']} <MI 20ca2 CLR.L D0> {[4, '(A6-0x8)']|[2, 'D0']} <MI 20ca4 MOVE.B (A6-0x405),D0> {[4, '(A6-0x8)']|[2, 'D0']} <MI 20ca8 LSL.B #0x5,D0> {[4, '(A6-0x8)']|[2, 'D0']} <MI 20caa LSR.B #0x5,D0> {[4, '(A6-0x8)']|[2, 'D0']} <MI 20cac ASL.W #0x6,D0> {[4, '(A6-0x8)']|[2, 'D0']} <MI 20cae MOVE.W D0,-(A7)> Δ-2 {[4, '(A6-0x8)']|[2, 'D0']|[2, 'D0']} <Const 0x20cb0 0x40.2> Δ-2 {[4, '(A6-0x8)']|[2, 'D0']|[2, 'D0']|[#64]} <Const 0x20cb4 0x1.2> Δ-2 {[4, '(A6-0x8)']|[2, 'D0']|[2, 'D0']|[#64]|[#1]} <MI 20cb6 LEA.L 0x21bd0,A0> {[4, '(A6-0x8)']|[2, 'D0']|[2, 'D0']|[#64]|[#1]} <MI 20cbc MOVE.L A0,-(A7)> Δ-4 {[4, '(A6-0x8)']|[2, 'D0']|[2, 'D0']|[#64]|[#1]|[4, 'A0']} <Pointer.fp 0x20cbe <LVAR -0x004 @>> Δ-4 {[4, '(A6-0x8)']|[2, 'D0']|[2, 'D0']|[#64]|[#1]|[4, 'A0']|[@@-4]} <Call 0x20cc0 0x10384> {[4, '(A6-0x8)']|[2, 'D0']|[2, 'D0']|[#64]|[#1]|[4, 'A0']|[@@-4]} ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L) <POP 20cc6-20cca StackAdj> Δ+18 {[-2-]} <MI 20cca CLR.B (A7)> {[-2-]} <Const 0x20ccc 0x1.2> Δ-2 {[-2-]|[#1]} <Const 0x20cce 0x1.4> Δ-4 {[-2-]|[#1]|[##1]} <Pointer.fp 0x20cd2 <LVAR -0x004 @>> Δ-4 {[-2-]|[#1]|[##1]|[@@-4]} <Pointer.fp 0x20cd4 <LVAR -0x008 @ 4(r)>> Δ-4 {[-2-]|[#1]|[##1]|[@@-4]|[@@-8]} <Call 0x20cd6 0x1038c> {[-2-]|[#1]|[##1]|[@@-4]|[@@-8]} CloseFile(a : L; VAR status : B; VAR file : File) <POP 20cdc-20cde StackAdj> Δ+16 {} <POP 20cde-20ce6 Epilogue> Σ0
@ 20ce6 <LVAR -0x004 @> <LVAR -0x00c @ 4(rw)> <POP 20ce6-20dec Body> <POP 20ce6-20cfc Prologue> Σ0 ↓ <POP 20cfc-20d0e RegCacheLoad> Σ0 ↓ <POP 20d0e-20d54 Naked> Σ0 ↓ <MI 20d0e MOVE.W 0x21b8e,0x21b9a> {} <POP 20d18-20d1a StackAdj> Δ-4 {[-4-]} <Blob 0x20d1a [4] 0x21f90> Δ-4 {[-4-]|[«4»]} <Call 0x20d1c 0x10308> {[-4-]|[«4»]} TimeToText() <POP 20d22-20d24 StackAdj> Δ+4 {[-4-]} <MI 20d24 MOVE.L (A7)+,(A6-0xc)> Δ+4 {} <MI 20d26 MOVEA.L (A6-0xc),A0> {} <MI 20d28 LEA.L (A0+0x2),A0> {} <MI 20d2c MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']} <MI 20d2e LEA.L 0x21b9c,A0> {[4, 'A0']} <MI 20d34 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']|[4, 'A0']} <Const 0x20d36 0x12.2> Δ-2 {[4, 'A0']|[4, 'A0']|[#18]} <Call 0x20d3a 0x10238> {[4, 'A0']|[4, 'A0']|[#18]} KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word) <POP 20d40-20d44 StackAdj> Δ+10 {} <Pointer.fp 0x20d44 <LVAR -0x00c @ 4(rw)>> Δ-4 {[@@-12]} <Call 0x20d46 0x102bc> {[@@-12]} FreeString(VAR a : String) <POP 20d4c-20d4e StackAdj> Δ+4 {} <Call 0x20d4e 0x20c1c> {} <MI 20d52 MOVEQ.L #0x00,D7> {} <POP 20d54-20d6c Naked> Σ0 ↓ →0x20d54 ←0x20d54 <MI 20d54 MOVE.L D7,D0> {} <MI 20d56 ASL.L #0x1,D0> {} <MI 20d58 LEA.L 0x2177e,A0> {} <MI 20d5e CLR.W (A0+D0.L+#0xc)> {} <MI 20d62 ADDQ.L #0x1,D7> {} <MI 20d64 CMPI.L #0x000001ff,D7> {} <MI 20d6a BLE 0x20d54> {} <POP 20d6c-20de4 Naked> Σ0 ↓ <MI 20d6c LEA.L 0x21b90,A0> {} <MI 20d72 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']} <MI 20d74 LEA.L 0x2178a,A0> {[4, 'A0']} <MI 20d7a MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']|[4, 'A0']} <Const 0x20d7c 0x400.2> Δ-2 {[4, 'A0']|[4, 'A0']|[#1024]} <Call 0x20d80 0x10238> {[4, 'A0']|[4, 'A0']|[#1024]} KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word) <POP 20d86-20d88 StackAdj> Δ+6 {[4, 'A0']} <POP 20d88-20d89 StackAdj> Δ+4 {} <Blob 0x20d89 [4] 0x21786> Δ-4 {[«4»]} <MI 20d8a CLR.W -(A7)> Δ-2 {[«4»]|[#0]} <MI 20d8c CLR.W -(A7)> Δ-2 {[«4»]|[#0]|[#0]} <Const 0x20d8e 0x200.2> Δ-2 {[«4»]|[#0]|[#0]|[#512]} <Const 0x20d92 0x2.2> Δ-2 {[«4»]|[#0]|[#0]|[#512]|[#2]} <Blob 0x20d96 [4] 0x21b8a> Δ-4 {[«4»]|[#0]|[#0]|[#512]|[#2]|[«4»]} <Pointer.fp 0x20d9c <LVAR -0x004 @>> Δ-4 {[«4»]|[#0]|[#0]|[#512]|[#2]|[«4»]|[@@-4]} <Call 0x20da0 0x10388> {[«4»]|[#0]|[#0]|[#512]|[#2]|[«4»]|[@@-4]} WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L) <POP 20da6-20daa StackAdj> Δ+20 {} <MI 20daa MOVEA.L 0x21786,A0> {} <MI 20dac MOVE.B 0x21f90,(A0+0x3a)> {} <MI 20db0 MOVE.B 0x21f91,(A0+0x3b)> {} <MI 20db8 MOVE.B 0x21f92,(A0+0x3c)> {} <MI 20dc0 MOVE.B 0x21f93,(A0+0x3d)> {} <MI 20dc8 MOVE.B #0x01,(A0+0x4c)> {} <MI 20dcc CLR.B -(A7)> Δ-2 {[#0]} <Const 0x20dce 0x1.2> Δ-2 {[#0]|[#1]} <Const 0x20dd0 0x1.4> Δ-4 {[#0]|[#1]|[##1]} <Pointer.fp 0x20dd4 <LVAR -0x004 @>> Δ-4 {[#0]|[#1]|[##1]|[@@-4]} <Const 0x20dd8 0x21786.4> Δ-4 {[#0]|[#1]|[##1]|[@@-4]|[##137094]} <Call 0x20dda 0x1038c> {[#0]|[#1]|[##1]|[@@-4]|[##137094]} CloseFile(a : L; VAR status : B; VAR file : File) <POP 20de0-20de4 StackAdj> Δ+16 {} <POP 20de4-20dec Epilogue> Σ0
@ 20dec START <POP 20dec--0001 Body> <POP 20dec-20df6 Prologue> Σ0 <POP 20df6-20e08 RegCacheLoad> Σ0 ↓ <POP 20e08-20eca Naked> Σ0 Δ-10 ↓ →0x20ef2 <Call 0x20e08 0x10398> {} FSCALL_10398 <Call 0x20e0e 0x207ec> {} <Const 0x20e12 0x1.4> Δ-4 {[##1]} <Call 0x20e16 0x104d8> {[##1]} ExpInit(a : Long) <POP 20e1c-20e1e StackAdj> Δ+2 {[-2-]} <MI 20e1e CLR.B (A7)> {[-2-]} <Call 0x20e20 0x104d2> {[-2-]} SetExpInitDone(a : Byte) <POP 20e26-20e28 StackAdj> Δ+2 {} <MI 20e28 LEA.L 0x2178a,A0> {} <MI 20e2e MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']} <MI 20e30 MOVE.L (A7)+,0x21b8a> Δ+4 {} <MI 20e36 MOVE.W #0x02,0x21b90> {} <POP 20e3c-20e3e StackAdj> Δ-2 {[-2-]} <Call 0x20e3e 0x105ec> {[-2-]} Get_fc05() : Byte <MI 20e44 MOVE.B (A7)+,D0> Δ+2 {} <MI 20e46 EXTB.W D0> {} <MI 20e48 MOVE.W D0,0x21b92> {} <MI 20e4e CLR.W 0x21bae> {} <Const 0x20e50 0xfcc0.4> Δ-4 {[##64704]} <MI 20e56 LEA.L 0x21c50,A0> {[##64704]} <MI 20e5c MOVE.L A0,-(A7)> Δ-4 {[##64704]|[4, 'A0']} <Const 0x20e5e 0x340.2> Δ-2 {[##64704]|[4, 'A0']|[#832]} <Call 0x20e62 0x10238> {[##64704]|[4, 'A0']|[#832]} KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word) <POP 20e68-20e6a StackAdj> Δ+6 {[##64704]} <POP 20e6a-20e6b StackAdj> Δ+4 {} <Const 0x20e6b 0xfc60.4> Δ-4 {[##64608]} <MI 20e70 LEA.L 0x21fd0,A0> {[##64608]} <MI 20e72 MOVE.L A0,-(A7)> Δ-4 {[##64608]|[4, 'A0']} <Const 0x20e74 0x4.2> Δ-2 {[##64608]|[4, 'A0']|[#4]} <Call 0x20e78 0x10238> {[##64608]|[4, 'A0']|[#4]} KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word) <POP 20e7e-20e80 StackAdj> Δ+10 {} <MI 20e80 MOVE.L 0x21fd0,D0> {} <MI 20e82 SUBI.L #0x0000fcc0,D0> {} <MI 20e88 ADDQ.L #0x1,D0> {} <MI 20e8a MOVE.W D0,0x21bb0> {} <Call 0x20e90 0x20884> {} <Call 0x20e94 0x209f2> {} <Blob 0x20e98 [10] @> Δ-10 {[«10""»]} <POP 20ea4-20ea6 StackAdj> Δ-6 {[«10""»]|[-6-]} <Call 0x20ea6 0x103c4> {[«10""»]|[-6-]} GetArgv() : String <POP 20eac-20eae StackAdj> Δ-4 {[«10""»]|[-10-]} <Lit 0x20eae 10> {[«10""»]|[-6-]|[$$DUMP_R1000]} <Call 0x20ebe 0x102c8> {[«10""»]|[-6-]|[$$DUMP_R1000]} StringEqual(a, b : String) : Byte <POP 20ec4-20ec6 StackAdj> Δ+8 {[«10""»]|[-2-]} <MI 20ec6 TST.B (A7)+> Δ+2 {[«10""»]} <MI 20ec8 BEQ 0x20ef2> {[«10""»]} <POP 20eca-20eec Naked> Σ-10 ↓ →0x20eee <Call 0x20eca 0x2048c> {[-10-]} <Call 0x20ece 0x20b44> {[-10-]} <MI 20ed2 MOVE.W #0x01,0x21bae> {[-10-]} <Call 0x20ed4 0x20232> {[-10-]} <Const 0x20ed8 0x21fd4.4> Δ-4 {[-10-]|[##139220]} <Call 0x20ede 0x206a4> {[-10-]|[##139220]} <POP 20ee2-20ee4 StackAdj> Δ+4 {[-10-]} <MI 20ee4 TST.B 0x21fd4> {[-10-]} <MI 20eea BEQ 0x20eee> {[-10-]} <POP 20eec-20eee Naked> Σ-10 ↓ <MI 20eec MOVE.W #0x02,0x21bae> {[-10-]} <POP 20eee-20ef2 Naked> Σ-10 ↓ ←0x20eca <Call 0x20eee 0x20386> {[-10-]} <POP 20ef2-20f36 Naked> Σ-10 Δ+10 ↓ ←0x20e08 <POP 20ef2-20ef4 StackAdj> Δ+10 {} <Call 0x20ef4 0x20ce6> {} <Blob 0x20ef8 [60] @> Δ-60 {[«60""»]} <POP 20f0a-20f0c StackAdj> Δ-4 {[«60""»]|[-4-]} <Lit 0x20f0c 59> {[«60""»]|[$$R1000 Crash Save done - tombstone file R1000_DUMP1 created.]} <Call 0x20f1e 0x103e0> {[«60""»]|[$$R1000 Crash Save done - tombstone file R1000_DUMP1 created.]} WriteConsoleStringCrLf(str : String) <POP 20f24-20f28 StackAdj> Δ+62 {[-2-]} <MI 20f28 CLR.B (A7)> {[-2-]} <Const 0x20f2a 0x1.4> Δ-4 {[-2-]|[##1]} <Call 0x20f2e 0x103b8> {[-2-]|[##1]} PopProgram(status : Byte; msg : String) <POP 20f34-20f36 StackAdj> Δ+6 {} <POP 20f36-20f3c Naked> Σ0 <Call 0x20f36 0x10284> {} ?exit
@ 21138 <LVAR 0x00a 1(r)> <LVAR 0x008 1(r)> <LVAR -0x004 @ 4(r)> <POP 21138-211e2 Body> Δ+12 <POP 21138-2114e Prologue> Σ0 ↓ <POP 2114e-21154 RegCacheLoad> Σ0 ↓ <POP 21154-21160 Naked> Σ0 ↓ →0x21172 <POP 21154-21156 StackAdj> Δ-2 {[-2-]} <Call 0x21156 0x104cc> {[-2-]} MemOnly2MB() : Bool <MI 2115c TST.B (A7)+> Δ+2 {} <MI 2115e BEQ 0x21172> {} <POP 21160-21172 Naked> Σ0 Δ-12 →0x21182 <Blob 0x21160 [12] @> Δ-12 {[«12""»]} <MI 21170 BRA 0x21182> {[«12""»]} <POP 21172-21182 Naked> Σ0 Δ-12 ↓ ←0x21154 <Blob 0x21172 [12] @> Δ-12 {[«12""»]} <POP 21182-211da Naked> Σ-12 Δ+12 ↓ ←0x21160 <POP 21182-21184 StackAdj> Δ-4 {[-16-]} <Lit 0x21184> {[-12-]|[$$…]} <Pointer.sp 0x21184 4> Δ-4 <Const 0x21188 0x1.2> Δ-2 <Const 0x2118c 0xb.2> Δ-2 <Call 0x21190 0x102c4> StringLit(Src : Pointer; Offset: W; Len : W) : String <POP 21196-21198 StackAdj> Δ+8 <Pointer.fp 0x21198 <LVAR -0x004 @ 4(r)>> Δ-4 {[-12-]|[$$…]|[@@-4]} <Call 0x2119a 0x10460> {[-12-]|[$$…]|[@@-4]} ExpLoad(a : String; b: Pointer) <POP 211a0-211a4 StackAdj> Δ+20 {} <MI 211a4 MOVE.B (A6+0x8),-(A7)> Δ-2 {[2, '(A6+0x8)']} <MI 211a8 MOVE.L (A6-0x4),-(A7)> Δ-4 {[2, '(A6+0x8)']|[4, '(A6-0x4)']} <Pointer.sp 0x211aa 4> Δ-4 {[2, '(A6+0x8)']|[4, '(A6-0x4)']|[^^4]} <Const 0x211ae 0x0.4> Δ-4 {[2, '(A6+0x8)']|[4, '(A6-0x4)']|[^^4]|[##0]} <Const 0x211b2 0x0.4> Δ-4 {[2, '(A6+0x8)']|[4, '(A6-0x4)']|[^^4]|[##0]|[##0]} <Call 0x211b6 0x10466> {[2, '(A6+0x8)']|[4, '(A6-0x4)']|[^^4]|[##0]|[##0]} ExpInputParam(exp : Pointer; ptr : Pointer; len : L) <POP 211bc-211c0 StackAdj> Δ+16 {[2, '(A6+0x8)']} <MI 211c0 CLR.B (A7)> {[2, '(A6+0x8)']} <MI 211c2 MOVE.B (A6+0xa),-(A7)> Δ-2 {[2, '(A6+0x8)']|[2, '(A6+0xa)']} <MI 211c6 MOVE.L (A6-0x4),-(A7)> Δ-4 {[2, '(A6+0x8)']|[2, '(A6+0xa)']|[4, '(A6-0x4)']} <Call 0x211c8 0x104ba> {[2, '(A6+0x8)']|[2, '(A6+0xa)']|[4, '(A6-0x4)']} ExpRun(a: Bool; adr: Byte; b: Pointer) <POP 211ce-211d0 StackAdj> Δ+8 {} <Pointer.fp 0x211d0 <LVAR -0x004 @ 4(r)>> Δ-4 {[@@-4]} <Call 0x211d2 0x10496> {[@@-4]} ExpClose(exp : Pointer) <POP 211d8-211da StackAdj> Δ+4 {} <POP 211da-211e2 Epilogue> Σ0
@ 211fe <LVAR 0x008 1(r)> <LVAR -0x006 @ 4(r)> <POP 211fe-2128c Body> Δ+14 <POP 211fe-21214 Prologue> Σ0 ↓ <POP 21214-2121a RegCacheLoad> Σ0 ↓ <POP 2121a-21226 Naked> Σ0 ↓ →0x21238 <POP 2121a-2121c StackAdj> Δ-2 {[-2-]} <Call 0x2121c 0x104cc> {[-2-]} MemOnly2MB() : Bool <MI 21222 TST.B (A7)+> Δ+2 {} <MI 21224 BEQ 0x21238> {} <POP 21226-21238 Naked> Σ0 Δ-14 →0x21248 <Blob 0x21226 [14] @> Δ-14 {[«14""»]} <MI 21236 BRA 0x21248> {[«14""»]} <POP 21238-21248 Naked> Σ0 Δ-14 ↓ ←0x2121a <Blob 0x21238 [14] @> Δ-14 {[«14""»]} <POP 21248-21284 Naked> Σ-14 Δ+14 ↓ ←0x21226 <POP 21248-2124a StackAdj> Δ-4 {[-18-]} <Lit 0x2124a> {[-14-]|[$$…]} <Pointer.sp 0x2124a 4> Δ-4 <Const 0x2124e 0x1.2> Δ-2 <Const 0x21252 0xd.2> Δ-2 <Call 0x21256 0x102c4> StringLit(Src : Pointer; Offset: W; Len : W) : String <POP 2125c-2125e StackAdj> Δ+8 <Pointer.fp 0x2125e <LVAR -0x006 @ 4(r)>> Δ-4 {[-14-]|[$$…]|[@@-6]} <Call 0x21260 0x10460> {[-14-]|[$$…]|[@@-6]} ExpLoad(a : String; b: Pointer) <POP 21266-2126a StackAdj> Δ+22 {} <MI 2126a CLR.B -(A7)> Δ-2 {[#0]} <MI 2126c MOVE.B (A6+0x8),-(A7)> Δ-2 {[#0]|[2, '(A6+0x8)']} <MI 21270 MOVE.L (A6-0x6),-(A7)> Δ-4 {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']} <Call 0x21272 0x104ba> {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']} ExpRun(a: Bool; adr: Byte; b: Pointer) <POP 21278-2127a StackAdj> Δ+8 {} <Pointer.fp 0x2127a <LVAR -0x006 @ 4(r)>> Δ-4 {[@@-6]} <Call 0x2127c 0x10496> {[@@-6]} ExpClose(exp : Pointer) <POP 21282-21284 StackAdj> Δ+4 {} <POP 21284-2128c Epilogue> Σ0
@ 21298 <LVAR 0x008 1(r)> <LVAR -0x006 @ 4(r)> <POP 21298-2131c Body> Δ+6 <POP 21298-212ae Prologue> Σ0 ↓ <POP 212ae-212b2 RegCacheLoad> Σ0 ↓ <POP 212b2-212be Naked> Σ0 ↓ →0x212cc <POP 212b2-212b4 StackAdj> Δ-2 {[-2-]} <Call 0x212b4 0x104cc> {[-2-]} MemOnly2MB() : Bool <MI 212ba TST.B (A7)+> Δ+2 {} <MI 212bc BEQ 0x212cc> {} <POP 212be-212cc Naked> Σ0 Δ-6 →0x212d8 <Blob 0x212be [2] @> Δ-2 {[«2""»]} <Blob 0x212c2 [2] @> Δ-2 {[«2""»]|[«2""»]} <Blob 0x212c6 [2] @> Δ-2 {[«2""»]|[«2""»]|[«2""»]} <MI 212ca BRA 0x212d8> {[«2""»]|[«2""»]|[«2""»]} <POP 212cc-212d8 Naked> Σ0 Δ-6 ↓ ←0x212b2 <Blob 0x212cc [2] @> Δ-2 {[«2""»]} <Blob 0x212d0 [2] @> Δ-2 {[«2""»]|[«2""»]} <Blob 0x212d4 [2] @> Δ-2 {[«2""»]|[«2""»]|[«2""»]} <POP 212d8-21314 Naked> Σ-6 Δ+6 ↓ ←0x212be <POP 212d8-212da StackAdj> Δ-4 {[-10-]} <Lit 0x212da> {[-6-]|[$$…]} <Pointer.sp 0x212da 4> Δ-4 <Const 0x212de 0x1.2> Δ-2 <Const 0x212e2 0x6.2> Δ-2 <Call 0x212e6 0x102c4> StringLit(Src : Pointer; Offset: W; Len : W) : String <POP 212ec-212ee StackAdj> Δ+8 <Pointer.fp 0x212ee <LVAR -0x006 @ 4(r)>> Δ-4 {[-6-]|[$$…]|[@@-6]} <Call 0x212f0 0x10460> {[-6-]|[$$…]|[@@-6]} ExpLoad(a : String; b: Pointer) <POP 212f6-212fa StackAdj> Δ+14 {} <MI 212fa CLR.B -(A7)> Δ-2 {[#0]} <MI 212fc MOVE.B (A6+0x8),-(A7)> Δ-2 {[#0]|[2, '(A6+0x8)']} <MI 21300 MOVE.L (A6-0x6),-(A7)> Δ-4 {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']} <Call 0x21302 0x104ba> {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']} ExpRun(a: Bool; adr: Byte; b: Pointer) <POP 21308-2130a StackAdj> Δ+8 {} <Pointer.fp 0x2130a <LVAR -0x006 @ 4(r)>> Δ-4 {[@@-6]} <Call 0x2130c 0x10496> {[@@-6]} ExpClose(exp : Pointer) <POP 21312-21314 StackAdj> Δ+4 {} <POP 21314-2131c Epilogue> Σ0
@ 2134c <LVAR 0x008 1(r)> <LVAR -0x006 @ 4(r)> <POP 2134c-213da Body> Δ+24 <POP 2134c-21362 Prologue> Σ0 ↓ <POP 21362-21368 RegCacheLoad> Σ0 ↓ <POP 21368-21374 Naked> Σ0 ↓ →0x21386 <POP 21368-2136a StackAdj> Δ-2 {[-2-]} <Call 0x2136a 0x104cc> {[-2-]} MemOnly2MB() : Bool <MI 21370 TST.B (A7)+> Δ+2 {} <MI 21372 BEQ 0x21386> {} <POP 21374-21386 Naked> Σ0 Δ-24 →0x21396 <Blob 0x21374 [24] @> Δ-24 {[«24""»]} <MI 21384 BRA 0x21396> {[«24""»]} <POP 21386-21396 Naked> Σ0 Δ-24 ↓ ←0x21368 <Blob 0x21386 [24] @> Δ-24 {[«24""»]} <POP 21396-213d2 Naked> Σ-24 Δ+24 ↓ ←0x21374 <POP 21396-21398 StackAdj> Δ-4 {[-28-]} <Lit 0x21398> {[-24-]|[$$…]} <Pointer.sp 0x21398 4> Δ-4 <Const 0x2139c 0x1.2> Δ-2 <Const 0x213a0 0x17.2> Δ-2 <Call 0x213a4 0x102c4> StringLit(Src : Pointer; Offset: W; Len : W) : String <POP 213aa-213ac StackAdj> Δ+8 <Pointer.fp 0x213ac <LVAR -0x006 @ 4(r)>> Δ-4 {[-24-]|[$$…]|[@@-6]} <Call 0x213ae 0x10460> {[-24-]|[$$…]|[@@-6]} ExpLoad(a : String; b: Pointer) <POP 213b4-213b8 StackAdj> Δ+32 {} <MI 213b8 CLR.B -(A7)> Δ-2 {[#0]} <MI 213ba MOVE.B (A6+0x8),-(A7)> Δ-2 {[#0]|[2, '(A6+0x8)']} <MI 213be MOVE.L (A6-0x6),-(A7)> Δ-4 {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']} <Call 0x213c0 0x104ba> {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']} ExpRun(a: Bool; adr: Byte; b: Pointer) <POP 213c6-213c8 StackAdj> Δ+8 {} <Pointer.fp 0x213c8 <LVAR -0x006 @ 4(r)>> Δ-4 {[@@-6]} <Call 0x213ca 0x10496> {[@@-6]} ExpClose(exp : Pointer) <POP 213d0-213d2 StackAdj> Δ+4 {} <POP 213d2-213da Epilogue> Σ0
@ 213f6 <LVAR 0x008 1(r)> <LVAR -0x006 @ 4(r)> <POP 213f6-2147a Body> Δ+14 <POP 213f6-2140c Prologue> Σ0 ↓ <POP 2140c-21410 RegCacheLoad> Σ0 ↓ <POP 21410-2141c Naked> Σ0 ↓ →0x2142a <POP 21410-21412 StackAdj> Δ-2 {[-2-]} <Call 0x21412 0x104cc> {[-2-]} MemOnly2MB() : Bool <MI 21418 TST.B (A7)+> Δ+2 {} <MI 2141a BEQ 0x2142a> {} <POP 2141c-2142a Naked> Σ0 Δ-14 →0x21436 <Blob 0x2141c [14] @> Δ-14 {[«14""»]} <MI 21428 BRA 0x21436> {[«14""»]} <POP 2142a-21436 Naked> Σ0 Δ-14 ↓ ←0x21410 <Blob 0x2142a [14] @> Δ-14 {[«14""»]} <POP 21436-21472 Naked> Σ-14 Δ+14 ↓ ←0x2141c <POP 21436-21438 StackAdj> Δ-4 {[-18-]} <Lit 0x21438> {[-14-]|[$$…]} <Pointer.sp 0x21438 4> Δ-4 <Const 0x2143c 0x1.2> Δ-2 <Const 0x21440 0xe.2> Δ-2 <Call 0x21444 0x102c4> StringLit(Src : Pointer; Offset: W; Len : W) : String <POP 2144a-2144c StackAdj> Δ+8 <Pointer.fp 0x2144c <LVAR -0x006 @ 4(r)>> Δ-4 {[-14-]|[$$…]|[@@-6]} <Call 0x2144e 0x10460> {[-14-]|[$$…]|[@@-6]} ExpLoad(a : String; b: Pointer) <POP 21454-21458 StackAdj> Δ+22 {} <MI 21458 CLR.B -(A7)> Δ-2 {[#0]} <MI 2145a MOVE.B (A6+0x8),-(A7)> Δ-2 {[#0]|[2, '(A6+0x8)']} <MI 2145e MOVE.L (A6-0x6),-(A7)> Δ-4 {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']} <Call 0x21460 0x104ba> {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']} ExpRun(a: Bool; adr: Byte; b: Pointer) <POP 21466-21468 StackAdj> Δ+8 {} <Pointer.fp 0x21468 <LVAR -0x006 @ 4(r)>> Δ-4 {[@@-6]} <Call 0x2146a 0x10496> {[@@-6]} ExpClose(exp : Pointer) <POP 21470-21472 StackAdj> Δ+4 {} <POP 21472-2147a Epilogue> Σ0
@ 214a2 <LVAR 0x008 1(r)> <LVAR -0x006 @ 4(r)> <POP 214a2-21530 Body> Δ+20 <POP 214a2-214b8 Prologue> Σ0 ↓ <POP 214b8-214be RegCacheLoad> Σ0 ↓ <POP 214be-214ca Naked> Σ0 ↓ →0x214dc <POP 214be-214c0 StackAdj> Δ-2 {[-2-]} <Call 0x214c0 0x104cc> {[-2-]} MemOnly2MB() : Bool <MI 214c6 TST.B (A7)+> Δ+2 {} <MI 214c8 BEQ 0x214dc> {} <POP 214ca-214dc Naked> Σ0 Δ-20 →0x214ec <Blob 0x214ca [20] @> Δ-20 {[«20""»]} <MI 214da BRA 0x214ec> {[«20""»]} <POP 214dc-214ec Naked> Σ0 Δ-20 ↓ ←0x214be <Blob 0x214dc [20] @> Δ-20 {[«20""»]} <POP 214ec-21528 Naked> Σ-20 Δ+20 ↓ ←0x214ca <POP 214ec-214ee StackAdj> Δ-4 {[-24-]} <Lit 0x214ee> {[-20-]|[$$…]} <Pointer.sp 0x214ee 4> Δ-4 <Const 0x214f2 0x1.2> Δ-2 <Const 0x214f6 0x13.2> Δ-2 <Call 0x214fa 0x102c4> StringLit(Src : Pointer; Offset: W; Len : W) : String <POP 21500-21502 StackAdj> Δ+8 <Pointer.fp 0x21502 <LVAR -0x006 @ 4(r)>> Δ-4 {[-20-]|[$$…]|[@@-6]} <Call 0x21504 0x10460> {[-20-]|[$$…]|[@@-6]} ExpLoad(a : String; b: Pointer) <POP 2150a-2150e StackAdj> Δ+28 {} <MI 2150e CLR.B -(A7)> Δ-2 {[#0]} <MI 21510 MOVE.B (A6+0x8),-(A7)> Δ-2 {[#0]|[2, '(A6+0x8)']} <MI 21514 MOVE.L (A6-0x6),-(A7)> Δ-4 {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']} <Call 0x21516 0x104ba> {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']} ExpRun(a: Bool; adr: Byte; b: Pointer) <POP 2151c-2151e StackAdj> Δ+8 {} <Pointer.fp 0x2151e <LVAR -0x006 @ 4(r)>> Δ-4 {[@@-6]} <Call 0x21520 0x10496> {[@@-6]} ExpClose(exp : Pointer) <POP 21526-21528 StackAdj> Δ+4 {} <POP 21528-21530 Epilogue> Σ0
@ 21586 PROG_FAIL <LVAR 0x008 1(r)> <POP 21586-215ee Body> <POP 21586-2159c Prologue> Σ0 ↓ <POP 2159c-215e6 Naked> Σ0 ↓ <Blob 0x2159c [14] @> Δ-14 {[«14""»]} <Const 0x215a8 0x3.2> Δ-2 {[«14""»]|[#3]} <POP 215ac-215ae StackAdj> Δ-8 {[«14""»]|[#3]|[-8-]} <Lit 0x215ae 14> {[«14""»]|[#3]|[-4-]|[$$Words error :_]} <POP 215c0-215c2 StackAdj> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]} <MI 215c2 MOVE.B (A6+0x8),D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]} <MI 215c6 EXTB.W D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]} <MI 215c8 EXTW.L D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]} <MI 215ca MOVE.L D0,-(A7)> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']} <Call 0x215cc 0x102e4> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']} Long2String(a : Long) : String <POP 215d2-215d4 StackAdj> Δ+4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]} <Call 0x215d4 0x102d0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]} StringCat2(a, b : String) : String <POP 215da-215dc StackAdj> Δ+8 {[«14""»]|[#3]|[-4-]} <Call 0x215dc 0x103b8> {[«14""»]|[#3]|[-4-]} PopProgram(status : Byte; msg : String) <POP 215e2-215e6 StackAdj> Δ+20 {} <POP 215e6-215ee Epilogue> Σ0
@ 21642 EXP_FAIL <LVAR 0x00e 1(r)> <LVAR 0x00a 4(r)> <LVAR 0x008 1(r)> <POP 21642-2177e Body> <POP 21642-21658 Prologue> Σ0 ↓ <POP 21658-2166e RegCacheLoad> Σ0 ↓ <POP 2166e-216ce Naked> Σ0 ↓ →0x21716 <Call 0x2166e 0x103dc> {} WriteConsoleCrLf(void) <Blob 0x21674 [18] @> Δ-18 {[«18""»]} <POP 21680-21682 StackAdj> Δ-4 {[«18""»]|[-4-]} <Lit 0x21682 18> {[«18""»]|[$$Experiment error :]} <Call 0x2168e 0x103e0> {[«18""»]|[$$Experiment error :]} WriteConsoleStringCrLf(str : String) <POP 21690-21691 StackAdj> Δ+22 ↓ {} <Blob 0x21691 [14] @> Δ-14 {[«14""»]} <POP 216a0-216a2 StackAdj> Δ-8 {[«14""»]|[-8-]} <Lit 0x216a2 13> {[«14""»]|[-4-]|[$$Board :_]} <POP 216ac-216ae StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Board :_]|[-6-]} <MI 216ae MOVE.B (A6+0xe),(A7)> {[«14""»]|[-4-]|[$$Board :_]|[-6-]} <Call 0x216b2 0x1049c> {[«14""»]|[-4-]|[$$Board :_]|[-6-]} BoardName(address : B) : String <POP 216b8-216ba StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Board :_]|[-4-]} <Call 0x216ba 0x102d0> {[«14""»]|[-4-]|[$$Board :_]|[-4-]} StringCat2(a, b : String) : String <POP 216c0-216c2 StackAdj> Δ+8 {[«14""»]|[-4-]} <Call 0x216c2 0x103e0> {[«14""»]|[-4-]} WriteConsoleStringCrLf(str : String) <POP 216c4-216c6 StackAdj> Δ+18 {} <MI 216c6 MOVEA.L (A6+0xa),A0> {} <MI 216ca CMPA.W #0x01,A0> {} <MI 216cc BEQ 0x21716> {} <POP 216ce-21716 Naked> Σ0 ↓ <Blob 0x216ce [14] @> Δ-14 {[«14""»]} <Blob 0x216de [30] (A0+0xfc)> Δ-30 {[«14""»]|[«30»]} <POP 216ee-216f0 StackAdj> Δ-8 {[«14""»]|[«30»]|[-8-]} <Lit 0x216f0 13> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]} <POP 216fa-216fc StackAdj> Δ-4 {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]} <Lit 0x216fc> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]} <Pointer.sp 0x216fc 12> Δ-4 <Const 0x21700 0x1.2> Δ-2 <Const 0x21702 0x1e.2> Δ-2 <Call 0x21704 0x102c4> StringLit(Src : Pointer; Offset: W; Len : W) : String <POP 21706-21708 StackAdj> Δ+8 <Call 0x21708 0x102d0> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]} StringCat2(a, b : String) : String <POP 2170e-21710 StackAdj> Δ+8 {[«14""»]|[«30»]|[-4-]} <Call 0x21710 0x103e0> {[«14""»]|[«30»]|[-4-]} WriteConsoleStringCrLf(str : String) <POP 21712-21716 StackAdj> Δ+48 {} <POP 21716-21776 Naked> Σ0 ↓ ←0x2166e <Blob 0x21716 [14] @> Δ-14 {[«14""»]} <POP 21726-21728 StackAdj> Δ-8 {[«14""»]|[-8-]} <Lit 0x21728 13> {[«14""»]|[-4-]|[$$Status :_]} <POP 21732-21734 StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Status :_]|[-6-]} <MI 21734 MOVE.B (A6+0x8),(A7)> {[«14""»]|[-4-]|[$$Status :_]|[-6-]} <Call 0x21738 0x104a2> {[«14""»]|[-4-]|[$$Status :_]|[-6-]} ExpStatus2Text(status.B, &String) <POP 2173e-21740 StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Status :_]|[-4-]} <Call 0x21740 0x102d0> {[«14""»]|[-4-]|[$$Status :_]|[-4-]} StringCat2(a, b : String) : String <POP 21746-21748 StackAdj> Δ+8 {[«14""»]|[-4-]} <Call 0x21748 0x103e0> {[«14""»]|[-4-]} WriteConsoleStringCrLf(str : String) <POP 2174a-2174b StackAdj> Δ+18 ↓ {} <Blob 0x2174b [24] @> Δ-24 {[«24""»]} <Const 0x2175a 0x2.2> Δ-2 {[«24""»]|[#2]} <POP 2175e-21760 StackAdj> Δ-4 {[«24""»]|[#2]|[-4-]} <Lit 0x21760 23> {[«24""»]|[#2]|[$$Fatal experiment error.]} <Call 0x2176e 0x103b8> {[«24""»]|[#2]|[$$Fatal experiment error.]} PopProgram(status : Byte; msg : String) <POP 21774-21776 StackAdj> Δ+30 {} <POP 21776-2177e Epilogue> Σ0
00020000 ; -------------------------------------------------------------------------------------- 00020000 ; R1000.Disassembly modules: 00020000 ; import all 00020000 ; import kind.program 00020000 ; no ident.644f3e3ea57b3bf1 00020000 ; -------------------------------------------------------------------------------------- 00020000 stack.top: 00020000 00 04 00 00 | | .CODE 0x40000 ; STACK.END 00020004 00 02 0d ec | | .CODE START 00020008 00 01 02 88 | | .CODE FSCALL_10288 0002000c heap.top: 0002000c 00 02 20 16 | | .PTR 0x22016 00020010 code.end: 00020010 00 02 17 7e | ~ | .PTR 0x2177e 00020014 00 00 00 00 | | .CONST 0x00000000 00020018 programfailurehandler: 00020018 00 02 15 86 | | .CODE PROG_FAIL 0002001c experimentfailurehandler: 0002001c 00 02 16 42 | B | .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 52 |@(#)CR | .XXX[0x6] 00020110 41 53 48 53 41 56 45 2c |ASHSAVE,| .XXX[0x18] 00020118 31 2e 32 2c 39 32 2f 30 |1.2,92/0| 00020120 31 2f 31 37 2c 31 37 3a |1/17,17:| 00020128 31 38 3a 31 39 5c |18:19\ | .XXX[0x6] 0002012e 52 31 30 30 30 5f 44 55 |R1000_DU| .TXT 'R1000_DUMP' 00020138 53 41 56 45 53 54 41 54 |SAVESTAT| .TXT 'SAVESTATE ' 00020142 43 52 41 53 48 5f 44 55 |CRASH_DU| .TXT 'CRASH_DUMP.SAVED_STATE' 00020158 30 31 32 33 34 35 36 37 |01234567| .XXX[0x10] 00020160 38 39 41 42 43 44 45 46 |89ABCDEF| 00020168 2a 2a 2a 20 4e 6f 20 52 |*** No R| .TXT '*** No R1000 response to DUMP_REGISTERS - probably a hardware error ' 000201ac 63 6f 75 6c 64 20 6e 6f |could no| .TXT 'could not create new TOMBSTONE file ' 000201d0 49 4f 50 5f 44 55 4d 50 |IOP_DUMP| .TXT 'IOP_DUMP1 ' 000201da 45 52 52 4f 52 5f 4c 4f |ERROR_LO| .TXT 'ERROR_LOG ' 000201e4 44 55 4d 50 5f 52 31 30 |DUMP_R10| .TXT 'DUMP_R1000' 000201ee 52 31 30 30 30 20 43 72 |R1000 Cr| .TXT 'R1000 Crash Save done - tombstone file R1000_DUMP1 created. ' 0002022a 00 00 00 00 | | .CONST 0x0,0x0,0x0,0x0 0002022e 00 00 00 00 | | .CONST 0x0,0x0,0x0,0x0 00020232 ; -------------------------------------------------------------------------------------- 00020232 ; OMSI PASCAL Function 00020232 ; <LVAR -0x004 1(rw)> 00020232 ; <LVAR -0x005 1(rw)> 00020232 ; <LVAR -0x00e @> 00020232 ; -------------------------------------------------------------------------------------- 00020232 4e 56 ff be |NV | LINK.W A6,#0xffbe 00020236 bf d5 | | CMPA.L (A5),A7 00020238 62 06 |b | BHI 0x20240 0002023a 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002023e 4e 76 |Nv | TRAPV 00020240 de fc 00 32 | 2 | ADDA.W #0x32,A7 00020244 48 e7 f1 e0 |H | MOVEM.L A2+A1+A0+D7+D3+D2+D1+D0,-(A7) 00020248 45 f9 00 01 04 c0 |E | LEA.L HasBoard(diproc_addr: Byte) : Byte,A2 0002024e 72 0f |r | MOVEQ.L #0x0f,D1 00020250 34 3c 01 27 |4< ' | MOVE.W #0x127,D2 00020254 76 0a |v | MOVEQ.L #0x0a,D3 00020256 4e b9 00 02 0f be |N | JSR exp_CLEAR_EXCEPTIONS.FIU() 0002025c 1d 7c 00 01 ff fb | | | MOVE.B #0x01,(A6-0x5) 00020262 1d 7c 00 b4 ff fc | | | MOVE.B #0xb4,(A6-0x4) 00020268 2f 3a ff c4 |/: | MOVE.L 0x2022e,-(A7) 0002026c 2f 3a ff bc |/: | MOVE.L 0x2022a,-(A7) 00020270 48 6e ff f2 |Hn | PEA.L (A6-0xe) 00020274 4e b9 00 02 10 64 |N d | JSR exp_PREP_WRITE_REG.TYP(Sw_8, &Sr_8_1) 0002027a de c3 | | ADDA.W D3,A7 0002027c 1e ae ff fb | | MOVE.B (A6-0x5),(A7) 00020280 1f 6e ff fc 00 01 | n | MOVE.B (A6-0x4),(A7+0x1) 00020286 9e c3 | | SUBA.W D3,A7 00020288 20 4f | O | MOVEA.L A7,A0 0002028a 43 ee ff f2 |C | LEA.L (A6-0xe),A1 0002028e 70 08 |p | MOVEQ.L #0x08,D0 00020290 10 d9 | | MOVE.B (A1)+,(A0)+ 00020292 51 c8 ff fc |Q | DBF D0,0x20290 00020296 42 27 |B' | CLR.B -(A7) 00020298 4e b9 00 02 10 2a |N * | JSR exp_WRITE_REG.TYP(Sw_2, Sw_8_1, Sw_1) 0002029e de fc 00 0e | | ADDA.W #0xe,A7 000202a2 4e b9 00 02 10 b4 |N | JSR exp_LOAD_BENIGN_UWORD.TYP() 000202a8 7e 0c |~ | MOVEQ.L #0x0c,D7 000202aa 55 4f |UO | SUBQ.L #0x2,A7 000202ac 1f 07 | | MOVE.B D7,-(A7) 000202ae 4e 92 |N | JSR (A2) 000202b0 54 4f |TO | ADDQ.L #0x2,A7 000202b2 4a 1f |J | TST.B (A7)+ 000202b4 67 0e |g | BEQ 0x202c4 000202b6 1f 07 | | MOVE.B D7,-(A7) 000202b8 1f 3c 00 ff | < | MOVE.B #0xff,-(A7) 000202bc 4e b9 00 02 11 38 |N 8 | JSR 0x21138 000202c2 58 4f |XO | ADDQ.L #0x4,A7 000202c4 52 07 |R | ADDQ.B #0x1,D7 000202c6 be 01 | | CMP.B D1,D7 000202c8 6f e0 |o | BLE 0x202aa 000202ca 4e b9 00 02 0f 86 |N | JSR exp_INIT_MRU.FIU() 000202d0 7e 0c |~ | MOVEQ.L #0x0c,D7 000202d2 55 4f |UO | SUBQ.L #0x2,A7 000202d4 1f 07 | | MOVE.B D7,-(A7) 000202d6 4e 92 |N | JSR (A2) 000202d8 54 4f |TO | ADDQ.L #0x2,A7 000202da 4a 1f |J | TST.B (A7)+ 000202dc 67 0a |g | BEQ 0x202e8 000202de 1f 07 | | MOVE.B D7,-(A7) 000202e0 4e b9 00 02 13 f6 |N | JSR 0x213f6 000202e6 54 4f |TO | ADDQ.L #0x2,A7 000202e8 52 07 |R | ADDQ.B #0x1,D7 000202ea be 01 | | CMP.B D1,D7 000202ec 6f e4 |o | BLE 0x202d2 000202ee 4e b9 00 01 05 b0 |N | JSR FifoInit(void) 000202f4 3f 02 |? | MOVE.W D2,-(A7) 000202f6 4e b9 00 02 10 86 |N | JSR exp_PREP_RUN.TYP(Sw_2) 000202fc 3e 82 |> | MOVE.W D2,(A7) 000202fe 4e b9 00 02 10 f2 |N | JSR exp_PREP_RUN.VAL(Sw_2) 00020304 3e 82 |> | MOVE.W D2,(A7) 00020306 4e b9 00 02 15 4a |N J | JSR exp_PREP_RUN.IOC(Sw_2) 0002030c 3e 82 |> | MOVE.W D2,(A7) 0002030e 4e b9 00 02 10 10 |N | JSR exp_PREP_RUN.SEQ(Sw_2) 00020314 3e 82 |> | MOVE.W D2,(A7) 00020316 4e b9 00 02 0f 58 |N X | JSR exp_PREP_RUN.FIU(Sw_2) 0002031c 54 4f |TO | ADDQ.L #0x2,A7 0002031e 7e 0c |~ | MOVEQ.L #0x0c,D7 00020320 55 4f |UO | SUBQ.L #0x2,A7 00020322 1f 07 | | MOVE.B D7,-(A7) 00020324 4e 92 |N | JSR (A2) 00020326 54 4f |TO | ADDQ.L #0x2,A7 00020328 4a 1f |J | TST.B (A7)+ 0002032a 67 0a |g | BEQ 0x20336 0002032c 1f 07 | | MOVE.B D7,-(A7) 0002032e 4e b9 00 02 13 4c |N L | JSR 0x2134c 00020334 54 4f |TO | ADDQ.L #0x2,A7 00020336 52 07 |R | ADDQ.B #0x1,D7 00020338 be 01 | | CMP.B D1,D7 0002033a 6f e4 |o | BLE 0x20320 0002033c 4e b9 00 02 0f a0 |N | JSR exp_FREEZE_WORLD.FIU() 00020342 4e b9 00 02 10 48 |N H | JSR exp_RUN_NORMAL.TYP() 00020348 4e b9 00 02 10 d6 |N | JSR exp_RUN_NORMAL.VAL() 0002034e 4e b9 00 02 0f f6 |N | JSR exp_RUN_CHECK.SEQ() 00020354 4e b9 00 02 15 30 |N 0 | JSR exp_RUN_CHECK.IOC() 0002035a 7e 0c |~ | MOVEQ.L #0x0c,D7 0002035c 55 4f |UO | SUBQ.L #0x2,A7 0002035e 1f 07 | | MOVE.B D7,-(A7) 00020360 4e 92 |N | JSR (A2) 00020362 54 4f |TO | ADDQ.L #0x2,A7 00020364 4a 1f |J | TST.B (A7)+ 00020366 67 0a |g | BEQ 0x20372 00020368 1f 07 | | MOVE.B D7,-(A7) 0002036a 4e b9 00 02 11 fe |N | JSR 0x211fe 00020370 54 4f |TO | ADDQ.L #0x2,A7 00020372 52 07 |R | ADDQ.B #0x1,D7 00020374 be 01 | | CMP.B D1,D7 00020376 6f e4 |o | BLE 0x2035c 00020378 4e b9 00 02 0f 3c |N < | JSR exp_RUN_NORMAL.FIU() 0002037e 4c df 07 8f |L | MOVEM.L (A7)+,D0+D1+D2+D3+D7+A0+A1+A2 00020382 4e 5e |N^ | UNLK A6 00020384 4e 75 |Nu | RTS 00020386 ; -------------------------------------------------------------------------------------- 00020386 ; OMSI PASCAL Function 00020386 ; -------------------------------------------------------------------------------------- 00020386 4e 56 ff e8 |NV | LINK.W A6,#0xffe8 0002038a bf d5 | | CMPA.L (A5),A7 0002038c 62 06 |b | BHI 0x20394 0002038e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020392 4e 76 |Nv | TRAPV 00020394 de fc 00 14 | | ADDA.W #0x14,A7 00020398 48 e7 81 00 |H | MOVEM.L D7+D0,-(A7) 0002039c 70 0f |p | MOVEQ.L #0x0f,D0 0002039e 4e b9 00 02 0f a0 |N | JSR exp_FREEZE_WORLD.FIU() 000203a4 4e b9 00 02 15 64 |N d | JSR exp_MF.IOC() 000203aa 4e b9 00 02 11 0c |N | JSR exp_MF.VAL() 000203b0 4e b9 00 02 10 a0 |N | JSR exp_MF.TYP() 000203b6 4e b9 00 02 0f e0 |N | JSR exp_RESET.SEQ() 000203bc 7e 0c |~ | MOVEQ.L #0x0c,D7 000203be 55 4f |UO | SUBQ.L #0x2,A7 000203c0 1f 07 | | MOVE.B D7,-(A7) 000203c2 4e b9 00 01 04 c0 |N | JSR HasBoard(diproc_addr: Byte) : Byte 000203c8 54 4f |TO | ADDQ.L #0x2,A7 000203ca 4a 1f |J | TST.B (A7)+ 000203cc 67 0a |g | BEQ 0x203d8 000203ce 1f 07 | | MOVE.B D7,-(A7) 000203d0 4e b9 00 02 12 98 |N | JSR 0x21298 000203d6 54 4f |TO | ADDQ.L #0x2,A7 000203d8 52 07 |R | ADDQ.B #0x1,D7 000203da be 00 | | CMP.B D0,D7 000203dc 6f e0 |o | BLE 0x203be 000203de 4e b9 00 02 0f 72 |N r | JSR exp_MF.FIU() 000203e4 7e 0c |~ | MOVEQ.L #0x0c,D7 000203e6 55 4f |UO | SUBQ.L #0x2,A7 000203e8 1f 07 | | MOVE.B D7,-(A7) 000203ea 4e b9 00 01 04 c0 |N | JSR HasBoard(diproc_addr: Byte) : Byte 000203f0 54 4f |TO | ADDQ.L #0x2,A7 000203f2 4a 1f |J | TST.B (A7)+ 000203f4 67 0a |g | BEQ 0x20400 000203f6 1f 07 | | MOVE.B D7,-(A7) 000203f8 4e b9 00 02 14 a2 |N | JSR 0x214a2 000203fe 54 4f |TO | ADDQ.L #0x2,A7 00020400 52 07 |R | ADDQ.B #0x1,D7 00020402 be 00 | | CMP.B D0,D7 00020404 6f e0 |o | BLE 0x203e6 00020406 4c df 00 81 |L | MOVEM.L (A7)+,D0+D7 0002040a 4e 5e |N^ | UNLK A6 0002040c 4e 75 |Nu | RTS 0002040e ; -------------------------------------------------------------------------------------- 0002040e ; OMSI PASCAL Function 0002040e ; <LVAR 0x008 4(w)> 0002040e ; <LVAR -0x004 @> 0002040e ; <LVAR -0x00c @ 4(r)> 0002040e ; -------------------------------------------------------------------------------------- 0002040e 4e 56 ff d6 |NV | LINK.W A6,#0xffd6 ; Spelunked 00020412 bf d5 | | CMPA.L (A5),A7 00020414 62 06 |b | BHI 0x2041c 00020416 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002041a 4e 76 |Nv | TRAPV 0002041c de fc 00 1e | | ADDA.W #0x1e,A7 00020420 48 e7 81 c0 |H | MOVEM.L A1+A0+D7+D0,-(A7) 00020424 43 ee ff f4 |C | LEA.L (A6-0xc),A1 00020428 48 6e ff fc |Hn | PEA.L (A6-0x4) 0002042c 4e b9 00 01 05 9e |N | JSR ReadClusterNo(VAR a : Long) 00020432 58 4f |XO | ADDQ.L #0x4,A7 00020434 48 51 |HQ | PEA.L (A1) 00020436 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 0002043c 58 4f |XO | ADDQ.L #0x4,A7 0002043e 7e 00 |~ | MOVEQ.L #0x00,D7 00020440 2f 11 |/ | MOVE.L (A1),-(A7) 00020442 42 80 |B | CLR.L D0 00020444 10 36 78 fc | 6x | MOVE.B (A6+D7.L-#0x4),D0 00020448 e8 40 | @ | ASR.W #0x4,D0 0002044a 41 fa fd 0c |A | LEA.L 0x20158,A0 0002044e 1f 30 00 00 | 0 | MOVE.B (A0+D0.W),-(A7) 00020452 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00020458 54 4f |TO | ADDQ.L #0x2,A7 0002045a 2e 91 |. | MOVE.L (A1),(A7) 0002045c 42 80 |B | CLR.L D0 0002045e 10 36 78 fc | 6x | MOVE.B (A6+D7.L-#0x4),D0 00020462 02 40 00 0f | @ | ANDI.W #0x000f,D0 00020466 41 fa fc f0 |A | LEA.L 0x20158,A0 0002046a 1f 30 00 00 | 0 | MOVE.B (A0+D0.W),-(A7) 0002046e 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00020474 5c 4f |\O | ADDQ.L #0x6,A7 00020476 52 87 |R | ADDQ.L #0x1,D7 00020478 0c 87 00 00 00 03 | | CMPI.L #0x00000003,D7 0002047e 6f c0 |o | BLE 0x20440 00020480 2d 51 00 08 |-Q | MOVE.L (A1),(A6+0x8) 00020484 4c df 03 81 |L | MOVEM.L (A7)+,D0+D7+A0+A1 00020488 4e 5e |N^ | UNLK A6 0002048a 4e 75 |Nu | RTS 0002048c ; -------------------------------------------------------------------------------------- 0002048c ; OMSI PASCAL Function 0002048c ; <LVAR -0x003 @> 0002048c ; <LVAR -0x004 @ 1(r)> 0002048c ; <LVAR -0x008 @> 0002048c ; -------------------------------------------------------------------------------------- 0002048c 4e 56 ff b2 |NV | LINK.W A6,#0xffb2 00020490 bf d5 | | CMPA.L (A5),A7 00020492 62 06 |b | BHI 0x2049a 00020494 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020498 4e 76 |Nv | TRAPV 0002049a de fc 00 42 | B | ADDA.W #0x42,A7 0002049e 48 e7 e0 e8 |H | MOVEM.L A4+A2+A1+A0+D2+D1+D0,-(A7) 000204a2 45 ee ff fc |E | LEA.L (A6-0x4),A2 000204a6 72 01 |r | MOVEQ.L #0x01,D1 000204a8 74 02 |t | MOVEQ.L #0x02,D2 000204aa 41 fa fc ac |A | LEA.L 0x20158,A0 000204ae 70 0a |p | MOVEQ.L #0x0a,D0 000204b0 3f 20 |? | MOVE.W -(A0),-(A7) 000204b2 51 c8 ff fc |Q | DBF D0,0x204b0 000204b6 59 4f |YO | SUBQ.L #0x4,A7 000204b8 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000204bc 3f 01 |? | MOVE.W D1,-(A7) 000204be 3f 3c 00 16 |?< | MOVE.W #0x16,-(A7) 000204c2 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000204c8 50 4f |PO | ADDQ.L #0x8,A7 000204ca 28 5f |(_ | MOVEA.L (A7)+,A4 000204cc de fc 00 12 | | ADDA.W #0x12,A7 000204d0 2e 8c |. | MOVE.L A4,(A7) 000204d2 42 27 |B' | CLR.B -(A7) 000204d4 42 27 |B' | CLR.B -(A7) 000204d6 48 78 00 00 |Hx | PEA.L 0x0 000204da 48 52 |HR | PEA.L (A2) 000204dc 48 6e ff f8 |Hn | PEA.L (A6-0x8) 000204e0 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File) 000204e6 de fc 00 14 | | ADDA.W #0x14,A7 000204ea 4a 12 |J | TST.B (A2) 000204ec 66 18 |f | BNE 0x20506 000204ee 1f 02 | | MOVE.B D2,-(A7) 000204f0 1f 01 | | MOVE.B D1,-(A7) 000204f2 48 78 00 01 |Hx | PEA.L 0x1 000204f6 48 52 |HR | PEA.L (A2) 000204f8 48 6e ff f8 |Hn | PEA.L (A6-0x8) 000204fc 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File) 00020502 de fc 00 10 | | ADDA.W #0x10,A7 00020506 9e fc 00 0a | | SUBA.W #0xa,A7 0002050a 20 4f | O | MOVEA.L A7,A0 0002050c 43 fa fc 2a |C * | LEA.L 0x20138,A1 00020510 70 08 |p | MOVEQ.L #0x08,D0 00020512 10 d9 | | MOVE.B (A1)+,(A0)+ 00020514 51 c8 ff fc |Q | DBF D0,0x20512 00020518 59 4f |YO | SUBQ.L #0x4,A7 0002051a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002051e 3f 01 |? | MOVE.W D1,-(A7) 00020520 3f 3c 00 09 |?< | MOVE.W #0x9,-(A7) 00020524 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002052a 58 4f |XO | ADDQ.L #0x4,A7 0002052c 2e 8c |. | MOVE.L A4,(A7) 0002052e 1f 02 | | MOVE.B D2,-(A7) 00020530 48 6e ff fd |Hn | PEA.L (A6-0x3) 00020534 4e b9 00 01 03 b0 |N | JSR PushProgram(a : String; b : String; MOD c : B; VAR d : Bool) 0002053a de fc 00 18 | | ADDA.W #0x18,A7 0002053e 4c df 17 07 |L | MOVEM.L (A7)+,D0+D1+D2+A0+A1+A2+A4 00020542 4e 5e |N^ | UNLK A6 00020544 4e 75 |Nu | RTS 00020546 ; -------------------------------------------------------------------------------------- 00020546 ; OMSI PASCAL Function 00020546 ; <LVAR 0x00c 4(r)> 00020546 ; <LVAR 0x008 4(r)> 00020546 ; <LVAR -0x004 @> 00020546 ; -------------------------------------------------------------------------------------- 00020546 4e 56 ff ac |NV | LINK.W A6,#0xffac 0002054a bf d5 | | CMPA.L (A5),A7 0002054c 62 06 |b | BHI 0x20554 0002054e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020552 4e 76 |Nv | TRAPV 00020554 de fc 00 48 | H | ADDA.W #0x48,A7 00020558 48 e7 c3 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D1+D0,-(A7) 0002055c 45 f9 00 02 1f a0 |E | LEA.L 0x21fa0,A2 00020562 47 f9 00 02 1f ba |G | LEA.L 0x21fba,A3 00020568 49 f9 00 02 1f a2 |I | LEA.L 0x21fa2,A4 0002056e 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00020572 53 97 |S | SUBQ.L #0x1,(A7) 00020574 7c 00 || | MOVEQ.L #0x00,D6 00020576 bc 97 | | CMP.L (A7),D6 00020578 6e 00 00 be |n | BGT 0x20638 0002057c 41 f9 00 02 1f 94 |A | LEA.L 0x21f94,A0 00020582 2f 08 |/ | MOVE.L A0,-(A7) 00020584 42 67 |Bg | CLR.W -(A7) 00020586 4e b9 00 01 02 3c |N < | JSR KC1e_Fifo_Tx_Response(ptr : Pointer; chan : Word) 0002058c 5c 4f |\O | ADDQ.L #0x6,A7 0002058e 4a 53 |JS | TST.W (A3) 00020590 67 18 |g | BEQ 0x205aa 00020592 42 80 |B | CLR.L D0 00020594 30 14 |0 | MOVE.W (A4),D0 00020596 42 81 |B | CLR.L D1 00020598 32 13 |2 | MOVE.W (A3),D1 0002059a d2 80 | | ADD.L D0,D1 0002059c 38 81 |8 | MOVE.W D1,(A4) 0002059e 4a 41 |JA | TST.W D1 000205a0 66 08 |f | BNE 0x205aa 000205a2 42 80 |B | CLR.L D0 000205a4 30 12 |0 | MOVE.W (A2),D0 000205a6 52 80 |R | ADDQ.L #0x1,D0 000205a8 34 80 |4 | MOVE.W D0,(A2) 000205aa 42 80 |B | CLR.L D0 000205ac 30 12 |0 | MOVE.W (A2),D0 000205ae 42 81 |B | CLR.L D1 000205b0 32 39 00 02 1f b8 |29 | MOVE.W 0x21fb8,D1 000205b6 d2 80 | | ADD.L D0,D1 000205b8 34 81 |4 | MOVE.W D1,(A2) 000205ba 2e 3c ff ff fc 18 |.< | MOVE.L #0xfffffc18,D7 000205c0 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 000205c4 43 f9 00 02 1f a4 |C | LEA.L 0x21fa4,A1 000205ca 2f 09 |/ | MOVE.L A1,-(A7) 000205cc 42 67 |Bg | CLR.W -(A7) 000205ce 48 50 |HP | PEA.L (A0) 000205d0 4e b9 00 01 02 3e |N > | JSR KC1f_Fifo_Rx_Request(ptr : Pointer; chan : Word; VAR flag : Bool) 000205d6 de fc 00 0a | | ADDA.W #0xa,A7 000205da 52 87 |R | ADDQ.L #0x1,D7 000205dc 4a 10 |J | TST.B (A0) 000205de 66 04 |f | BNE 0x205e4 000205e0 4a 87 |J | TST.L D7 000205e2 66 dc |f | BNE 0x205c0 000205e4 4a 10 |J | TST.B (A0) 000205e6 67 4a |gJ | BEQ 0x20632 000205e8 2f 39 00 02 1f cc |/9 | MOVE.L 0x21fcc,-(A7) 000205ee 41 f9 00 02 17 8a |A | LEA.L 0x2178a,A0 000205f4 2f 08 |/ | MOVE.L A0,-(A7) 000205f6 3f 3c 04 00 |?< | MOVE.W #0x400,-(A7) 000205fa 4e b9 00 01 02 38 |N 8 | JSR KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word) 00020600 5c 4f |\O | ADDQ.L #0x6,A7 00020602 2e b9 00 02 17 86 |. | MOVE.L 0x21786,(A7) 00020608 3f 39 00 02 1b 8e |?9 | MOVE.W 0x21b8e,-(A7) 0002060e 42 67 |Bg | CLR.W -(A7) 00020610 3f 3c 02 00 |?< | MOVE.W #0x200,-(A7) 00020614 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 00020618 2f 39 00 02 1b 8a |/9 | MOVE.L 0x21b8a,-(A7) 0002061e 48 6e ff fc |Hn | PEA.L (A6-0x4) 00020622 4e b9 00 01 03 88 |N | JSR WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L) 00020628 de fc 00 14 | | ADDA.W #0x14,A7 0002062c 52 79 00 02 1b 8e |Ry | ADDQ.W #0x1,0x21b8e 00020632 52 86 |R | ADDQ.L #0x1,D6 00020634 68 00 ff 40 |h @ | BVC 0x20576 00020638 58 4f |XO | ADDQ.L #0x4,A7 0002063a 4c df 1f c3 |L | MOVEM.L (A7)+,D0+D1+D6+D7+A0+A1+A2+A3+A4 0002063e 4e 5e |N^ | UNLK A6 00020640 4e 75 |Nu | RTS 00020642 ; -------------------------------------------------------------------------------------- 00020642 ; OMSI PASCAL Function 00020642 ; <LVAR 0x00a 2(r)> 00020642 ; -------------------------------------------------------------------------------------- 00020642 4e 56 ff fc |NV | LINK.W A6,#0xfffc 00020646 bf d5 | | CMPA.L (A5),A7 00020648 62 06 |b | BHI 0x20650 0002064a 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002064e 4e 76 |Nv | TRAPV 00020650 de fc 00 04 | | ADDA.W #0x4,A7 00020654 33 fc 04 00 00 02 1f 94 |3 | MOVE.W #0x400,0x21f94 0002065c 42 79 00 02 1f 96 |By | CLR.W 0x21f96 00020662 42 79 00 02 1f 98 |By | CLR.W 0x21f98 00020668 33 ee 00 0a 00 02 1f 9a |3 | MOVE.W (A6+0xa),0x21f9a 00020670 42 79 00 02 1f 9c |By | CLR.W 0x21f9c 00020676 42 79 00 02 1f 9e |By | CLR.W 0x21f9e 0002067c 42 79 00 02 1f a0 |By | CLR.W 0x21fa0 00020682 42 79 00 02 1f a2 |By | CLR.W 0x21fa2 00020688 42 79 00 02 1f b4 |By | CLR.W 0x21fb4 0002068e 42 79 00 02 1f b6 |By | CLR.W 0x21fb6 00020694 42 79 00 02 1f b8 |By | CLR.W 0x21fb8 0002069a 42 79 00 02 1f ba |By | CLR.W 0x21fba 000206a0 4e 5e |N^ | UNLK A6 000206a2 4e 75 |Nu | RTS 000206a4 ; -------------------------------------------------------------------------------------- 000206a4 ; OMSI PASCAL Function 000206a4 ; <LVAR 0x008 4(r)> 000206a4 ; -------------------------------------------------------------------------------------- 000206a4 4e 56 ff 94 |NV | LINK.W A6,#0xff94 000206a8 bf d5 | | CMPA.L (A5),A7 000206aa 62 06 |b | BHI 0x206b2 000206ac 44 fc 00 02 |D | MOVE.W #0x2,CCR 000206b0 4e 76 |Nv | TRAPV 000206b2 de fc 00 68 | h | ADDA.W #0x68,A7 000206b6 48 e7 81 c0 |H | MOVEM.L A1+A0+D7+D0,-(A7) 000206ba 33 f9 00 02 1b 8e 00 02 |3 | MOVE.W 0x21b8e,0x21b98 000206c2 1b 98 | | 000206c4 7e 10 |~ | MOVEQ.L #0x10,D7 000206c6 48 78 03 00 |Hx | PEA.L 0x300 000206ca 4e ba ff 76 |N v | JSR 0x20642 000206ce 58 4f |XO | ADDQ.L #0x4,A7 000206d0 33 fc 00 40 00 02 1f ba |3 @ | MOVE.W #0x40,0x21fba 000206d8 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 000206dc 2f 07 |/ | MOVE.L D7,-(A7) 000206de 48 50 |HP | PEA.L (A0) 000206e0 4e ba fe 64 |N d | JSR 0x20546 000206e4 50 4f |PO | ADDQ.L #0x8,A7 000206e6 4a 10 |J | TST.B (A0) 000206e8 66 32 |f2 | BNE 0x2071c 000206ea 9e fc 00 44 | D | SUBA.W #0x44,A7 000206ee 20 4f | O | MOVEA.L A7,A0 000206f0 43 fa fa 76 |C v | LEA.L 0x20168,A1 000206f4 70 42 |pB | MOVEQ.L #0x42,D0 000206f6 10 d9 | | MOVE.B (A1)+,(A0)+ 000206f8 51 c8 ff fc |Q | DBF D0,0x206f6 000206fc 59 4f |YO | SUBQ.L #0x4,A7 000206fe 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020702 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00020706 3f 3c 00 43 |?< C | MOVE.W #0x43,-(A7) 0002070a 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020710 50 4f |PO | ADDQ.L #0x8,A7 00020712 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00020718 de fc 00 48 | H | ADDA.W #0x48,A7 0002071c 4c df 03 81 |L | MOVEM.L (A7)+,D0+D7+A0+A1 00020720 4e 5e |N^ | UNLK A6 00020722 4e 75 |Nu | RTS 00020724 ; -------------------------------------------------------------------------------------- 00020724 ; OMSI PASCAL Function 00020724 ; <LVAR 0x008 4(r)> 00020724 ; <LVAR -0x006 4(rw)> 00020724 ; <LVAR -0x00a 4(rw)> 00020724 ; -------------------------------------------------------------------------------------- 00020724 4e 56 ff b0 |NV | LINK.W A6,#0xffb0 ; Spelunked 00020728 bf d5 | | CMPA.L (A5),A7 0002072a 62 06 |b | BHI 0x20732 0002072c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020730 4e 76 |Nv | TRAPV 00020732 de fc 00 3c | < | ADDA.W #0x3c,A7 00020736 48 e7 9f e0 |H | MOVEM.L A2+A1+A0+D7+D6+D5+D4+D3+D0,-(A7) 0002073a 43 ee ff f6 |C | LEA.L (A6-0xa),A1 0002073e 45 ee ff fa |E | LEA.L (A6-0x6),A2 00020742 55 4f |UO | SUBQ.L #0x2,A7 00020744 4e b9 00 01 04 cc |N | JSR MemOnly2MB() : Bool 0002074a 4a 1f |J | TST.B (A7)+ 0002074c 67 0e |g | BEQ 0x2075c 0002074e 22 bc 00 00 08 00 |" | MOVE.L #0x800,(A1) 00020754 24 bc 00 00 00 04 |$ | MOVE.L #0x4,(A2) 0002075a 60 0c |` | BRA 0x20768 0002075c 22 bc 00 00 10 00 |" | MOVE.L #0x1000,(A1) 00020762 24 bc 00 00 00 08 |$ | MOVE.L #0x8,(A2) 00020768 48 78 04 00 |Hx | PEA.L 0x400 0002076c 4e ba fe d4 |N | JSR 0x20642 00020770 58 4f |XO | ADDQ.L #0x4,A7 00020772 33 fc 00 10 00 02 1f b8 |3 | MOVE.W #0x10,0x21fb8 0002077a 7c 00 || | MOVEQ.L #0x00,D6 0002077c 7a 0c |z | MOVEQ.L #0x0c,D5 0002077e 55 4f |UO | SUBQ.L #0x2,A7 00020780 1f 05 | | MOVE.B D5,-(A7) 00020782 4e b9 00 01 04 c0 |N | JSR HasBoard(diproc_addr: Byte) : Byte 00020788 54 4f |TO | ADDQ.L #0x2,A7 0002078a 4a 1f |J | TST.B (A7)+ 0002078c 67 4c |gL | BEQ 0x207da 0002078e 2f 12 |/ | MOVE.L (A2),-(A7) 00020790 53 97 |S | SUBQ.L #0x1,(A7) 00020792 7e 00 |~ | MOVEQ.L #0x00,D7 00020794 be 97 | | CMP.L (A7),D7 00020796 6e 40 |n@ | BGT 0x207d8 00020798 42 79 00 02 1f 9c |By | CLR.W 0x21f9c 0002079e 20 06 | | MOVE.L D6,D0 000207a0 e5 80 | | ASL.L #0x2,D0 000207a2 d0 87 | | ADD.L D7,D0 000207a4 e9 80 | | ASL.L #0x4,D0 000207a6 33 c0 00 02 1f 9e |3 | MOVE.W D0,0x21f9e 000207ac 42 79 00 02 1f a0 |By | CLR.W 0x21fa0 000207b2 42 79 00 02 1f a2 |By | CLR.W 0x21fa2 000207b8 28 11 |( | MOVE.L (A1),D4 000207ba 26 3c 00 00 00 80 |&< | MOVE.L #0x80,D3 000207c0 4e b9 00 01 02 94 |N | JSR ?divs_d3_d4 000207c6 2f 04 |/ | MOVE.L D4,-(A7) 000207c8 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 000207cc 48 50 |HP | PEA.L (A0) 000207ce 4e ba fd 76 |N v | JSR 0x20546 000207d2 50 4f |PO | ADDQ.L #0x8,A7 000207d4 52 87 |R | ADDQ.L #0x1,D7 000207d6 68 bc |h | BVC 0x20794 000207d8 58 4f |XO | ADDQ.L #0x4,A7 000207da 52 86 |R | ADDQ.L #0x1,D6 000207dc 52 05 |R | ADDQ.B #0x1,D5 000207de 0c 05 00 0f | | CMPI.B #0x0f,D5 000207e2 6f 9a |o | BLE 0x2077e 000207e4 4c df 07 f9 |L | MOVEM.L (A7)+,D0+D3+D4+D5+D6+D7+A0+A1+A2 000207e8 4e 5e |N^ | UNLK A6 000207ea 4e 75 |Nu | RTS 000207ec ; -------------------------------------------------------------------------------------- 000207ec ; OMSI PASCAL Function 000207ec ; -------------------------------------------------------------------------------------- 000207ec 4e 56 ff ce |NV | LINK.W A6,#0xffce 000207f0 bf d5 | | CMPA.L (A5),A7 000207f2 62 06 |b | BHI 0x207fa 000207f4 44 fc 00 02 |D | MOVE.W #0x2,CCR 000207f8 4e 76 |Nv | TRAPV 000207fa de fc 00 32 | 2 | ADDA.W #0x32,A7 000207fe 48 e7 f8 f0 |H | MOVEM.L A3+A2+A1+A0+D4+D3+D2+D1+D0,-(A7) 00020802 43 f9 00 01 02 38 |C 8 | LEA.L KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word),A1 00020808 45 f9 00 02 1f c0 |E | LEA.L 0x21fc0,A2 0002080e 47 f9 00 02 1f c8 |G | LEA.L 0x21fc8,A3 00020814 74 0a |t | MOVEQ.L #0x0a,D2 00020816 76 04 |v | MOVEQ.L #0x04,D3 00020818 78 02 |x | MOVEQ.L #0x02,D4 0002081a 48 78 04 00 |Hx | PEA.L 0x400 0002081e 41 f9 00 02 1f bc |A | LEA.L 0x21fbc,A0 00020824 2f 08 |/ | MOVE.L A0,-(A7) 00020826 3f 03 |? | MOVE.W D3,-(A7) 00020828 4e 91 |N | JSR (A1) 0002082a de c2 | | ADDA.W D2,A7 0002082c 48 78 04 04 |Hx | PEA.L 0x404 00020830 20 4a | J | MOVEA.L A2,A0 00020832 2f 08 |/ | MOVE.L A0,-(A7) 00020834 3f 04 |? | MOVE.W D4,-(A7) 00020836 4e 91 |N | JSR (A1) 00020838 de c2 | | ADDA.W D2,A7 0002083a 48 78 04 06 |Hx | PEA.L 0x406 0002083e 41 f9 00 02 1f c2 |A | LEA.L 0x21fc2,A0 00020844 2f 08 |/ | MOVE.L A0,-(A7) 00020846 3f 04 |? | MOVE.W D4,-(A7) 00020848 4e 91 |N | JSR (A1) 0002084a de c2 | | ADDA.W D2,A7 0002084c 48 78 04 08 |Hx | PEA.L 0x408 00020850 41 f9 00 02 1f c4 |A | LEA.L 0x21fc4,A0 00020856 2f 08 |/ | MOVE.L A0,-(A7) 00020858 3f 03 |? | MOVE.W D3,-(A7) 0002085a 4e 91 |N | JSR (A1) 0002085c de c2 | | ADDA.W D2,A7 0002085e 48 78 04 0c |Hx | PEA.L 0x40c 00020862 20 4b | K | MOVEA.L A3,A0 00020864 2f 08 |/ | MOVE.L A0,-(A7) 00020866 3f 03 |? | MOVE.W D3,-(A7) 00020868 4e 91 |N | JSR (A1) 0002086a de c2 | | ADDA.W D2,A7 0002086c 70 00 |p | MOVEQ.L #0x00,D0 0002086e c0 d2 | | MULU.W (A2),D0 00020870 42 81 |B | CLR.L D1 00020872 32 00 |2 | MOVE.W D0,D1 00020874 d2 93 | | ADD.L (A3),D1 00020876 23 c1 00 02 1f cc |# | MOVE.L D1,0x21fcc 0002087c 4c df 0f 1f |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+A0+A1+A2+A3 00020880 4e 5e |N^ | UNLK A6 00020882 4e 75 |Nu | RTS 00020884 ; -------------------------------------------------------------------------------------- 00020884 ; OMSI PASCAL Function 00020884 ; <LVAR -0x006 @> 00020884 ; <LVAR -0x008 @ 1(r)> 00020884 ; <LVAR -0x00c @ 4(rw)> 00020884 ; -------------------------------------------------------------------------------------- 00020884 4e 56 ff 8a |NV | LINK.W A6,#0xff8a 00020888 bf d5 | | CMPA.L (A5),A7 0002088a 62 06 |b | BHI 0x20892 0002088c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020890 4e 76 |Nv | TRAPV 00020892 de fc 00 62 | b | ADDA.W #0x62,A7 00020896 48 e7 f9 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D4+D3+D2+D1+D0,-(A7) 0002089a 45 ee ff f8 |E | LEA.L (A6-0x8),A2 0002089e 47 ee ff f4 |G | LEA.L (A6-0xc),A3 000208a2 72 01 |r | MOVEQ.L #0x01,D1 000208a4 74 14 |t | MOVEQ.L #0x14,D2 000208a6 76 0a |v | MOVEQ.L #0x0a,D3 000208a8 78 10 |x | MOVEQ.L #0x10,D4 000208aa 7e 04 |~ | MOVEQ.L #0x04,D7 000208ac 41 fa f8 8a |A | LEA.L 0x20138,A0 000208b0 70 04 |p | MOVEQ.L #0x04,D0 000208b2 3f 20 |? | MOVE.W -(A0),-(A7) 000208b4 51 c8 ff fc |Q | DBF D0,0x208b2 000208b8 51 4f |QO | SUBQ.L #0x8,A7 000208ba 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000208be 3f 01 |? | MOVE.W D1,-(A7) 000208c0 3f 03 |? | MOVE.W D3,-(A7) 000208c2 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000208c8 2e 87 |. | MOVE.L D7,(A7) 000208ca 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 000208d0 58 4f |XO | ADDQ.L #0x4,A7 000208d2 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000208d8 50 4f |PO | ADDQ.L #0x8,A7 000208da 28 5f |(_ | MOVEA.L (A7)+,A4 000208dc 5c 4f |\O | ADDQ.L #0x6,A7 000208de 2e 8c |. | MOVE.L A4,(A7) 000208e0 42 27 |B' | CLR.B -(A7) 000208e2 42 27 |B' | CLR.B -(A7) 000208e4 48 78 00 00 |Hx | PEA.L 0x0 000208e8 48 52 |HR | PEA.L (A2) 000208ea 48 6e ff fa |Hn | PEA.L (A6-0x6) 000208ee 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File) 000208f4 de c2 | | ADDA.W D2,A7 000208f6 4a 12 |J | TST.B (A2) 000208f8 66 18 |f | BNE 0x20912 000208fa 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 000208fe 42 27 |B' | CLR.B -(A7) 00020900 48 78 00 01 |Hx | PEA.L 0x1 00020904 48 52 |HR | PEA.L (A2) 00020906 48 6e ff fa |Hn | PEA.L (A6-0x6) 0002090a 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File) 00020910 de c4 | | ADDA.W D4,A7 00020912 26 8c |& | MOVE.L A4,(A3) 00020914 53 87 |S | SUBQ.L #0x1,D7 00020916 41 fa f8 20 |A | LEA.L 0x20138,A0 0002091a 70 04 |p | MOVEQ.L #0x04,D0 0002091c 3f 20 |? | MOVE.W -(A0),-(A7) 0002091e 51 c8 ff fc |Q | DBF D0,0x2091c 00020922 51 4f |QO | SUBQ.L #0x8,A7 00020924 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00020928 3f 01 |? | MOVE.W D1,-(A7) 0002092a 3f 03 |? | MOVE.W D3,-(A7) 0002092c 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020932 2e 87 |. | MOVE.L D7,(A7) 00020934 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 0002093a 58 4f |XO | ADDQ.L #0x4,A7 0002093c 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020942 50 4f |PO | ADDQ.L #0x8,A7 00020944 28 5f |(_ | MOVEA.L (A7)+,A4 00020946 5c 4f |\O | ADDQ.L #0x6,A7 00020948 2e 8c |. | MOVE.L A4,(A7) 0002094a 42 27 |B' | CLR.B -(A7) 0002094c 42 27 |B' | CLR.B -(A7) 0002094e 48 78 00 00 |Hx | PEA.L 0x0 00020952 48 52 |HR | PEA.L (A2) 00020954 48 6e ff fa |Hn | PEA.L (A6-0x6) 00020958 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File) 0002095e de c2 | | ADDA.W D2,A7 00020960 4a 12 |J | TST.B (A2) 00020962 66 14 |f | BNE 0x20978 00020964 1f 01 | | MOVE.B D1,-(A7) 00020966 1f 01 | | MOVE.B D1,-(A7) 00020968 2f 13 |/ | MOVE.L (A3),-(A7) 0002096a 48 52 |HR | PEA.L (A2) 0002096c 48 6e ff fa |Hn | PEA.L (A6-0x6) 00020970 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File) 00020976 de c4 | | ADDA.W D4,A7 00020978 48 53 |HS | PEA.L (A3) 0002097a 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00020980 58 4f |XO | ADDQ.L #0x4,A7 00020982 26 8c |& | MOVE.L A4,(A3) 00020984 be 81 | | CMP.L D1,D7 00020986 66 8c |f | BNE 0x20914 00020988 2f 13 |/ | MOVE.L (A3),-(A7) 0002098a 1f 01 | | MOVE.B D1,-(A7) 0002098c 1f 01 | | MOVE.B D1,-(A7) 0002098e 48 78 00 28 |Hx ( | PEA.L 0x28 00020992 48 52 |HR | PEA.L (A2) 00020994 48 79 00 02 17 86 |Hy | PEA.L 0x21786 0002099a 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File) 000209a0 de c2 | | ADDA.W D2,A7 000209a2 4a 12 |J | TST.B (A2) 000209a4 67 34 |g4 | BEQ 0x209da 000209a6 9e fc 00 24 | $ | SUBA.W #0x24,A7 000209aa 20 4f | O | MOVEA.L A7,A0 000209ac 43 fa f7 fe |C | LEA.L 0x201ac,A1 000209b0 70 22 |p" | MOVEQ.L #0x22,D0 000209b2 10 d9 | | MOVE.B (A1)+,(A0)+ 000209b4 51 c8 ff fc |Q | DBF D0,0x209b2 000209b8 1f 3c 00 0e | < | MOVE.B #0x0e,-(A7) 000209bc 59 4f |YO | SUBQ.L #0x4,A7 000209be 48 6f 00 06 |Ho | PEA.L (A7+0x6) 000209c2 3f 01 |? | MOVE.W D1,-(A7) 000209c4 3f 3c 00 23 |?< # | MOVE.W #0x23,-(A7) 000209c8 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000209ce 50 4f |PO | ADDQ.L #0x8,A7 000209d0 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 000209d6 de fc 00 2a | * | ADDA.W #0x2a,A7 000209da 48 53 |HS | PEA.L (A3) 000209dc 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000209e2 58 4f |XO | ADDQ.L #0x4,A7 000209e4 33 c1 00 02 1b 8e |3 | MOVE.W D1,0x21b8e 000209ea 4c df 1f 9f |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D7+A0+A1+A2+A3+A4 000209ee 4e 5e |N^ | UNLK A6 000209f0 4e 75 |Nu | RTS 000209f2 ; -------------------------------------------------------------------------------------- 000209f2 ; OMSI PASCAL Function 000209f2 ; <LVAR -0x006 @ 4(r)> 000209f2 ; <LVAR -0x008 @> 000209f2 ; -------------------------------------------------------------------------------------- 000209f2 4e 56 ff ae |NV | LINK.W A6,#0xffae 000209f6 bf d5 | | CMPA.L (A5),A7 000209f8 62 06 |b | BHI 0x20a00 000209fa 44 fc 00 02 |D | MOVE.W #0x2,CCR 000209fe 4e 76 |Nv | TRAPV 00020a00 de fc 00 4a | J | ADDA.W #0x4a,A7 00020a04 48 e7 f8 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D4+D3+D2+D1+D0,-(A7) 00020a08 45 f9 00 02 1b 8a |E | LEA.L 0x21b8a,A2 00020a0e 47 ee ff f8 |G | LEA.L (A6-0x8),A3 00020a12 49 ee ff fa |I | LEA.L (A6-0x6),A4 00020a16 72 02 |r | MOVEQ.L #0x02,D1 00020a18 74 10 |t | MOVEQ.L #0x10,D2 00020a1a 36 3c 02 00 |6< | MOVE.W #0x200,D3 00020a1e 78 01 |x | MOVEQ.L #0x01,D4 00020a20 33 f9 00 02 1b 8e 00 02 |3 | MOVE.W 0x21b8e,0x21b94 00020a28 1b 94 | | 00020a2a 9e fc 00 0a | | SUBA.W #0xa,A7 00020a2e 20 4f | O | MOVEA.L A7,A0 00020a30 43 fa f7 9e |C | LEA.L 0x201d0,A1 00020a34 70 08 |p | MOVEQ.L #0x08,D0 00020a36 10 d9 | | MOVE.B (A1)+,(A0)+ 00020a38 51 c8 ff fc |Q | DBF D0,0x20a36 00020a3c 59 4f |YO | SUBQ.L #0x4,A7 00020a3e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020a42 3f 04 |? | MOVE.W D4,-(A7) 00020a44 3f 3c 00 09 |?< | MOVE.W #0x9,-(A7) 00020a48 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020a4e 5c 4f |\O | ADDQ.L #0x6,A7 00020a50 42 17 |B | CLR.B (A7) 00020a52 1f 01 | | MOVE.B D1,-(A7) 00020a54 48 78 00 00 |Hx | PEA.L 0x0 00020a58 48 53 |HS | PEA.L (A3) 00020a5a 48 54 |HT | PEA.L (A4) 00020a5c 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File) 00020a62 de fc 00 1e | | ADDA.W #0x1e,A7 00020a66 20 54 | T | MOVEA.L (A4),A0 00020a68 13 e8 00 3a 00 02 1f 90 | : | MOVE.B (A0+0x3a),0x21f90 00020a70 13 e8 00 3b 00 02 1f 91 | ; | MOVE.B (A0+0x3b),0x21f91 00020a78 13 e8 00 3c 00 02 1f 92 | < | MOVE.B (A0+0x3c),0x21f92 00020a80 13 e8 00 3d 00 02 1f 93 | = | MOVE.B (A0+0x3d),0x21f93 00020a88 2f 14 |/ | MOVE.L (A4),-(A7) 00020a8a 3f 04 |? | MOVE.W D4,-(A7) 00020a8c 42 67 |Bg | CLR.W -(A7) 00020a8e 3f 03 |? | MOVE.W D3,-(A7) 00020a90 1f 01 | | MOVE.B D1,-(A7) 00020a92 2f 12 |/ | MOVE.L (A2),-(A7) 00020a94 48 53 |HS | PEA.L (A3) 00020a96 4e b9 00 01 03 84 |N | JSR ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L) 00020a9c de c2 | | ADDA.W D2,A7 00020a9e 2e b9 00 02 17 86 |. | MOVE.L 0x21786,(A7) 00020aa4 3f 04 |? | MOVE.W D4,-(A7) 00020aa6 42 67 |Bg | CLR.W -(A7) 00020aa8 3f 03 |? | MOVE.W D3,-(A7) 00020aaa 1f 01 | | MOVE.B D1,-(A7) 00020aac 2f 12 |/ | MOVE.L (A2),-(A7) 00020aae 48 53 |HS | PEA.L (A3) 00020ab0 4e b9 00 01 03 88 |N | JSR WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L) 00020ab6 de c2 | | ADDA.W D2,A7 00020ab8 2e 94 |. | MOVE.L (A4),(A7) 00020aba 3f 3c 00 3e |?< > | MOVE.W #0x3e,-(A7) 00020abe 42 67 |Bg | CLR.W -(A7) 00020ac0 3f 03 |? | MOVE.W D3,-(A7) 00020ac2 1f 01 | | MOVE.B D1,-(A7) 00020ac4 2f 12 |/ | MOVE.L (A2),-(A7) 00020ac6 48 53 |HS | PEA.L (A3) 00020ac8 4e b9 00 01 03 84 |N | JSR ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L) 00020ace de c2 | | ADDA.W D2,A7 00020ad0 2e b9 00 02 17 86 |. | MOVE.L 0x21786,(A7) 00020ad6 3f 01 |? | MOVE.W D1,-(A7) 00020ad8 42 67 |Bg | CLR.W -(A7) 00020ada 3f 03 |? | MOVE.W D3,-(A7) 00020adc 1f 01 | | MOVE.B D1,-(A7) 00020ade 2f 12 |/ | MOVE.L (A2),-(A7) 00020ae0 48 53 |HS | PEA.L (A3) 00020ae2 4e b9 00 01 03 88 |N | JSR WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L) 00020ae8 de c2 | | ADDA.W D2,A7 00020aea 2e 94 |. | MOVE.L (A4),(A7) 00020aec 3f 3c 00 3f |?< ? | MOVE.W #0x3f,-(A7) 00020af0 42 67 |Bg | CLR.W -(A7) 00020af2 3f 03 |? | MOVE.W D3,-(A7) 00020af4 1f 01 | | MOVE.B D1,-(A7) 00020af6 2f 12 |/ | MOVE.L (A2),-(A7) 00020af8 48 53 |HS | PEA.L (A3) 00020afa 4e b9 00 01 03 84 |N | JSR ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L) 00020b00 de c2 | | ADDA.W D2,A7 00020b02 2e b9 00 02 17 86 |. | MOVE.L 0x21786,(A7) 00020b08 3f 3c 00 03 |?< | MOVE.W #0x3,-(A7) 00020b0c 42 67 |Bg | CLR.W -(A7) 00020b0e 3f 03 |? | MOVE.W D3,-(A7) 00020b10 1f 01 | | MOVE.B D1,-(A7) 00020b12 2f 12 |/ | MOVE.L (A2),-(A7) 00020b14 48 53 |HS | PEA.L (A3) 00020b16 4e b9 00 01 03 88 |N | JSR WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L) 00020b1c de fc 00 14 | | ADDA.W #0x14,A7 00020b20 33 fc 00 04 00 02 1b 8e |3 | MOVE.W #0x4,0x21b8e 00020b28 42 27 |B' | CLR.B -(A7) 00020b2a 1f 04 | | MOVE.B D4,-(A7) 00020b2c 48 78 00 01 |Hx | PEA.L 0x1 00020b30 48 53 |HS | PEA.L (A3) 00020b32 48 54 |HT | PEA.L (A4) 00020b34 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File) 00020b3a de c2 | | ADDA.W D2,A7 00020b3c 4c df 1f 1f |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+A0+A1+A2+A3+A4 00020b40 4e 5e |N^ | UNLK A6 00020b42 4e 75 |Nu | RTS 00020b44 ; -------------------------------------------------------------------------------------- 00020b44 ; OMSI PASCAL Function 00020b44 ; <LVAR -0x006 @ 4(r)> 00020b44 ; <LVAR -0x008 @> 00020b44 ; -------------------------------------------------------------------------------------- 00020b44 4e 56 ff 9e |NV | LINK.W A6,#0xff9e 00020b48 bf d5 | | CMPA.L (A5),A7 00020b4a 62 06 |b | BHI 0x20b52 00020b4c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020b50 4e 76 |Nv | TRAPV 00020b52 de fc 00 56 | V | ADDA.W #0x56,A7 00020b56 48 e7 f1 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D3+D2+D1+D0,-(A7) 00020b5a 43 f9 00 02 1b 8e |C | LEA.L 0x21b8e,A1 00020b60 45 ee ff f8 |E | LEA.L (A6-0x8),A2 00020b64 47 ee ff fa |G | LEA.L (A6-0x6),A3 00020b68 49 f9 00 02 1b 8a |I | LEA.L 0x21b8a,A4 00020b6e 72 02 |r | MOVEQ.L #0x02,D1 00020b70 74 01 |t | MOVEQ.L #0x01,D2 00020b72 76 10 |v | MOVEQ.L #0x10,D3 00020b74 33 d1 00 02 1b 96 |3 | MOVE.W (A1),0x21b96 00020b7a 41 fa f5 dc |A | LEA.L 0x20158,A0 00020b7e 70 0a |p | MOVEQ.L #0x0a,D0 00020b80 3f 20 |? | MOVE.W -(A0),-(A7) 00020b82 51 c8 ff fc |Q | DBF D0,0x20b80 00020b86 59 4f |YO | SUBQ.L #0x4,A7 00020b88 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020b8c 3f 02 |? | MOVE.W D2,-(A7) 00020b8e 3f 3c 00 16 |?< | MOVE.W #0x16,-(A7) 00020b92 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020b98 5c 4f |\O | ADDQ.L #0x6,A7 00020b9a 42 17 |B | CLR.B (A7) 00020b9c 1f 01 | | MOVE.B D1,-(A7) 00020b9e 48 78 00 00 |Hx | PEA.L 0x0 00020ba2 48 52 |HR | PEA.L (A2) 00020ba4 48 53 |HS | PEA.L (A3) 00020ba6 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File) 00020bac de fc 00 2a | * | ADDA.W #0x2a,A7 00020bb0 20 53 | S | MOVEA.L (A3),A0 00020bb2 30 28 00 20 |0( | MOVE.W (A0+0x20),D0 00020bb6 53 40 |S@ | SUBQ.W #0x1,D0 00020bb8 48 c0 |H | EXTW.L D0 00020bba 2f 00 |/ | MOVE.L D0,-(A7) 00020bbc 7e 00 |~ | MOVEQ.L #0x00,D7 00020bbe be 97 | | CMP.L (A7),D7 00020bc0 6e 3c |n< | BGT 0x20bfe 00020bc2 2f 13 |/ | MOVE.L (A3),-(A7) 00020bc4 3f 07 |? | MOVE.W D7,-(A7) 00020bc6 42 67 |Bg | CLR.W -(A7) 00020bc8 3f 3c 02 00 |?< | MOVE.W #0x200,-(A7) 00020bcc 1f 01 | | MOVE.B D1,-(A7) 00020bce 2f 14 |/ | MOVE.L (A4),-(A7) 00020bd0 48 52 |HR | PEA.L (A2) 00020bd2 4e b9 00 01 03 84 |N | JSR ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L) 00020bd8 de c3 | | ADDA.W D3,A7 00020bda 2e b9 00 02 17 86 |. | MOVE.L 0x21786,(A7) 00020be0 3f 11 |? | MOVE.W (A1),-(A7) 00020be2 42 67 |Bg | CLR.W -(A7) 00020be4 3f 3c 02 00 |?< | MOVE.W #0x200,-(A7) 00020be8 1f 01 | | MOVE.B D1,-(A7) 00020bea 2f 14 |/ | MOVE.L (A4),-(A7) 00020bec 48 52 |HR | PEA.L (A2) 00020bee 4e b9 00 01 03 88 |N | JSR WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L) 00020bf4 de fc 00 14 | | ADDA.W #0x14,A7 00020bf8 52 51 |RQ | ADDQ.W #0x1,(A1) 00020bfa 52 87 |R | ADDQ.L #0x1,D7 00020bfc 68 c0 |h | BVC 0x20bbe 00020bfe 54 4f |TO | ADDQ.L #0x2,A7 00020c00 42 17 |B | CLR.B (A7) 00020c02 1f 02 | | MOVE.B D2,-(A7) 00020c04 48 78 00 01 |Hx | PEA.L 0x1 00020c08 48 52 |HR | PEA.L (A2) 00020c0a 48 53 |HS | PEA.L (A3) 00020c0c 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File) 00020c12 de c3 | | ADDA.W D3,A7 00020c14 4c df 1f 8f |L | MOVEM.L (A7)+,D0+D1+D2+D3+D7+A0+A1+A2+A3+A4 00020c18 4e 5e |N^ | UNLK A6 00020c1a 4e 75 |Nu | RTS 00020c1c ; -------------------------------------------------------------------------------------- 00020c1c ; OMSI PASCAL Function 00020c1c ; <LVAR -0x004 @> 00020c1c ; <LVAR -0x008 @ 4(r)> 00020c1c ; <LVAR -0x405 1(r)> 00020c1c ; <LVAR -0x406 2(r)> 00020c1c ; <LVAR -0x408 @> 00020c1c ; -------------------------------------------------------------------------------------- 00020c1c 4e 56 fb ba |NV | LINK.W A6,#0xfbba 00020c20 bf d5 | | CMPA.L (A5),A7 00020c22 62 06 |b | BHI 0x20c2a 00020c24 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020c28 4e 76 |Nv | TRAPV 00020c2a de fc 00 3e | > | ADDA.W #0x3e,A7 00020c2e 48 e7 e0 f0 |H | MOVEM.L A3+A2+A1+A0+D2+D1+D0,-(A7) 00020c32 45 ee ff fc |E | LEA.L (A6-0x4),A2 00020c36 47 ee ff f8 |G | LEA.L (A6-0x8),A3 00020c3a 72 01 |r | MOVEQ.L #0x01,D1 00020c3c 74 10 |t | MOVEQ.L #0x10,D2 00020c3e 9e fc 00 0a | | SUBA.W #0xa,A7 00020c42 20 4f | O | MOVEA.L A7,A0 00020c44 43 fa f5 94 |C | LEA.L 0x201da,A1 00020c48 70 08 |p | MOVEQ.L #0x08,D0 00020c4a 10 d9 | | MOVE.B (A1)+,(A0)+ 00020c4c 51 c8 ff fc |Q | DBF D0,0x20c4a 00020c50 59 4f |YO | SUBQ.L #0x4,A7 00020c52 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020c56 3f 01 |? | MOVE.W D1,-(A7) 00020c58 3f 3c 00 09 |?< | MOVE.W #0x9,-(A7) 00020c5c 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020c62 5c 4f |\O | ADDQ.L #0x6,A7 00020c64 42 17 |B | CLR.B (A7) 00020c66 1f 01 | | MOVE.B D1,-(A7) 00020c68 48 78 00 00 |Hx | PEA.L 0x0 00020c6c 48 52 |HR | PEA.L (A2) 00020c6e 48 53 |HS | PEA.L (A3) 00020c70 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File) 00020c76 de fc 00 1a | | ADDA.W #0x1a,A7 00020c7a 2e 93 |. | MOVE.L (A3),(A7) 00020c7c 42 67 |Bg | CLR.W -(A7) 00020c7e 42 67 |Bg | CLR.W -(A7) 00020c80 3f 3c 02 00 |?< | MOVE.W #0x200,-(A7) 00020c84 1f 01 | | MOVE.B D1,-(A7) 00020c86 41 ee fb f8 |A | LEA.L (A6-0x408),A0 00020c8a 2f 08 |/ | MOVE.L A0,-(A7) 00020c8c 48 52 |HR | PEA.L (A2) 00020c8e 4e b9 00 01 03 84 |N | JSR ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L) 00020c94 de c2 | | ADDA.W D2,A7 00020c96 2e 93 |. | MOVE.L (A3),(A7) 00020c98 30 2e fb fa |0. | MOVE.W (A6-0x406),D0 00020c9c e6 48 | H | LSR.W #0x3,D0 00020c9e 52 40 |R@ | ADDQ.W #0x1,D0 00020ca0 3f 00 |? | MOVE.W D0,-(A7) 00020ca2 42 80 |B | CLR.L D0 00020ca4 10 2e fb fb | . | MOVE.B (A6-0x405),D0 00020ca8 eb 08 | | LSL.B #0x5,D0 00020caa ea 08 | | LSR.B #0x5,D0 00020cac ed 40 | @ | ASL.W #0x6,D0 00020cae 3f 00 |? | MOVE.W D0,-(A7) 00020cb0 3f 3c 00 40 |?< @ | MOVE.W #0x40,-(A7) 00020cb4 1f 01 | | MOVE.B D1,-(A7) 00020cb6 41 f9 00 02 1b d0 |A | LEA.L 0x21bd0,A0 00020cbc 2f 08 |/ | MOVE.L A0,-(A7) 00020cbe 48 52 |HR | PEA.L (A2) 00020cc0 4e b9 00 01 03 84 |N | JSR ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L) 00020cc6 de fc 00 12 | | ADDA.W #0x12,A7 00020cca 42 17 |B | CLR.B (A7) 00020ccc 1f 01 | | MOVE.B D1,-(A7) 00020cce 48 78 00 01 |Hx | PEA.L 0x1 00020cd2 48 52 |HR | PEA.L (A2) 00020cd4 48 53 |HS | PEA.L (A3) 00020cd6 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File) 00020cdc de c2 | | ADDA.W D2,A7 00020cde 4c df 0f 07 |L | MOVEM.L (A7)+,D0+D1+D2+A0+A1+A2+A3 00020ce2 4e 5e |N^ | UNLK A6 00020ce4 4e 75 |Nu | RTS 00020ce6 ; -------------------------------------------------------------------------------------- 00020ce6 ; OMSI PASCAL Function 00020ce6 ; <LVAR -0x004 @> 00020ce6 ; <LVAR -0x00c @ 4(rw)> 00020ce6 ; -------------------------------------------------------------------------------------- 00020ce6 4e 56 ff c0 |NV | LINK.W A6,#0xffc0 00020cea bf d5 | | CMPA.L (A5),A7 00020cec 62 06 |b | BHI 0x20cf4 00020cee 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020cf2 4e 76 |Nv | TRAPV 00020cf4 de fc 00 34 | 4 | ADDA.W #0x34,A7 00020cf8 48 e7 c1 f0 |H | MOVEM.L A3+A2+A1+A0+D7+D1+D0,-(A7) 00020cfc 43 f9 00 02 17 86 |C | LEA.L 0x21786,A1 00020d02 45 f9 00 02 1f 90 |E | LEA.L 0x21f90,A2 00020d08 47 ee ff f4 |G | LEA.L (A6-0xc),A3 00020d0c 72 01 |r | MOVEQ.L #0x01,D1 00020d0e 33 f9 00 02 1b 8e 00 02 |3 | MOVE.W 0x21b8e,0x21b9a 00020d16 1b 9a | | 00020d18 59 4f |YO | SUBQ.L #0x4,A7 00020d1a 2f 12 |/ | MOVE.L (A2),-(A7) 00020d1c 4e b9 00 01 03 08 |N | JSR TimeToText() 00020d22 58 4f |XO | ADDQ.L #0x4,A7 00020d24 26 9f |& | MOVE.L (A7)+,(A3) 00020d26 20 53 | S | MOVEA.L (A3),A0 00020d28 41 e8 00 02 |A | LEA.L (A0+0x2),A0 00020d2c 2f 08 |/ | MOVE.L A0,-(A7) 00020d2e 41 f9 00 02 1b 9c |A | LEA.L 0x21b9c,A0 00020d34 2f 08 |/ | MOVE.L A0,-(A7) 00020d36 3f 3c 00 12 |?< | MOVE.W #0x12,-(A7) 00020d3a 4e b9 00 01 02 38 |N 8 | JSR KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word) 00020d40 de fc 00 0a | | ADDA.W #0xa,A7 00020d44 48 53 |HS | PEA.L (A3) 00020d46 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00020d4c 58 4f |XO | ADDQ.L #0x4,A7 00020d4e 4e ba fe cc |N | JSR 0x20c1c 00020d52 7e 00 |~ | MOVEQ.L #0x00,D7 00020d54 20 07 | | MOVE.L D7,D0 00020d56 e3 80 | | ASL.L #0x1,D0 00020d58 41 f9 00 02 17 7e |A ~ | LEA.L 0x2177e,A0 00020d5e 42 70 08 0c |Bp | CLR.W (A0+D0.L+#0xc) 00020d62 52 87 |R | ADDQ.L #0x1,D7 00020d64 0c 87 00 00 01 ff | | CMPI.L #0x000001ff,D7 00020d6a 6f e8 |o | BLE 0x20d54 00020d6c 41 f9 00 02 1b 90 |A | LEA.L 0x21b90,A0 00020d72 2f 08 |/ | MOVE.L A0,-(A7) 00020d74 41 f9 00 02 17 8a |A | LEA.L 0x2178a,A0 00020d7a 2f 08 |/ | MOVE.L A0,-(A7) 00020d7c 3f 3c 04 00 |?< | MOVE.W #0x400,-(A7) 00020d80 4e b9 00 01 02 38 |N 8 | JSR KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word) 00020d86 5c 4f |\O | ADDQ.L #0x6,A7 00020d88 2e 91 |. | MOVE.L (A1),(A7) 00020d8a 42 67 |Bg | CLR.W -(A7) 00020d8c 42 67 |Bg | CLR.W -(A7) 00020d8e 3f 3c 02 00 |?< | MOVE.W #0x200,-(A7) 00020d92 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 00020d96 2f 39 00 02 1b 8a |/9 | MOVE.L 0x21b8a,-(A7) 00020d9c 48 6e ff fc |Hn | PEA.L (A6-0x4) 00020da0 4e b9 00 01 03 88 |N | JSR WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L) 00020da6 de fc 00 14 | | ADDA.W #0x14,A7 00020daa 20 51 | Q | MOVEA.L (A1),A0 00020dac 11 52 00 3a | R : | MOVE.B (A2),(A0+0x3a) 00020db0 11 79 00 02 1f 91 00 3b | y ;| MOVE.B 0x21f91,(A0+0x3b) 00020db8 11 79 00 02 1f 92 00 3c | y <| MOVE.B 0x21f92,(A0+0x3c) 00020dc0 11 79 00 02 1f 93 00 3d | y =| MOVE.B 0x21f93,(A0+0x3d) 00020dc8 11 41 00 4c | A L | MOVE.B D1,(A0+0x4c) 00020dcc 42 27 |B' | CLR.B -(A7) 00020dce 1f 01 | | MOVE.B D1,-(A7) 00020dd0 48 78 00 01 |Hx | PEA.L 0x1 00020dd4 48 6e ff fc |Hn | PEA.L (A6-0x4) 00020dd8 48 51 |HQ | PEA.L (A1) 00020dda 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File) 00020de0 de fc 00 10 | | ADDA.W #0x10,A7 00020de4 4c df 0f 83 |L | MOVEM.L (A7)+,D0+D1+D7+A0+A1+A2+A3 00020de8 4e 5e |N^ | UNLK A6 00020dea 4e 75 |Nu | RTS 00020dec ; -------------------------------------------------------------------------------------- 00020dec ; OMSI PASCAL Function 00020dec ; -------------------------------------------------------------------------------------- 00020dec START: 00020dec 4f fa 00 08 |O | LEA.L MAIN,A7 00020df0 4e f9 00 01 02 80 |N | JMP ?start_program 00020df6 MAIN: 00020df6 45 f9 00 02 1b ae |E | LEA.L 0x21bae,A2 00020dfc 47 f9 00 02 1f d0 |G | LEA.L 0x21fd0,A3 00020e02 72 0a |r | MOVEQ.L #0x0a,D1 00020e04 74 01 |t | MOVEQ.L #0x01,D2 00020e06 76 02 |v | MOVEQ.L #0x02,D3 00020e08 4e b9 00 01 03 98 |N | JSR FSCALL_10398 00020e0e 4e ba f9 dc |N | JSR 0x207ec 00020e12 48 78 00 01 |Hx | PEA.L 0x1 00020e16 4e b9 00 01 04 d8 |N | JSR ExpInit(a : Long) 00020e1c 54 4f |TO | ADDQ.L #0x2,A7 00020e1e 42 17 |B | CLR.B (A7) 00020e20 4e b9 00 01 04 d2 |N | JSR SetExpInitDone(a : Byte) 00020e26 54 4f |TO | ADDQ.L #0x2,A7 00020e28 41 f9 00 02 17 8a |A | LEA.L 0x2178a,A0 00020e2e 2f 08 |/ | MOVE.L A0,-(A7) 00020e30 23 df 00 02 1b 8a |# | MOVE.L (A7)+,0x21b8a 00020e36 33 c3 00 02 1b 90 |3 | MOVE.W D3,0x21b90 00020e3c 55 4f |UO | SUBQ.L #0x2,A7 00020e3e 4e b9 00 01 05 ec |N | JSR Get_fc05() : Byte 00020e44 10 1f | | MOVE.B (A7)+,D0 00020e46 48 80 |H | EXTB.W D0 00020e48 33 c0 00 02 1b 92 |3 | MOVE.W D0,0x21b92 00020e4e 42 52 |BR | CLR.W (A2) 00020e50 2f 3c 00 00 fc c0 |/< | MOVE.L #0xfcc0,-(A7) 00020e56 41 f9 00 02 1c 50 |A P | LEA.L 0x21c50,A0 00020e5c 2f 08 |/ | MOVE.L A0,-(A7) 00020e5e 3f 3c 03 40 |?< @ | MOVE.W #0x340,-(A7) 00020e62 4e b9 00 01 02 38 |N 8 | JSR KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word) 00020e68 5c 4f |\O | ADDQ.L #0x6,A7 00020e6a 2e bc 00 00 fc 60 |. ` | MOVE.L #0xfc60,(A7) 00020e70 20 4b | K | MOVEA.L A3,A0 00020e72 2f 08 |/ | MOVE.L A0,-(A7) 00020e74 3f 3c 00 04 |?< | MOVE.W #0x4,-(A7) 00020e78 4e b9 00 01 02 38 |N 8 | JSR KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word) 00020e7e de c1 | | ADDA.W D1,A7 00020e80 20 13 | | MOVE.L (A3),D0 00020e82 04 80 00 00 fc c0 | | SUBI.L #0x0000fcc0,D0 00020e88 52 80 |R | ADDQ.L #0x1,D0 00020e8a 33 c0 00 02 1b b0 |3 | MOVE.W D0,0x21bb0 00020e90 4e ba f9 f2 |N | JSR 0x20884 00020e94 4e ba fb 5c |N \ | JSR 0x209f2 00020e98 41 fa f3 54 |A T | LEA.L 0x201ee,A0 00020e9c 70 04 |p | MOVEQ.L #0x04,D0 00020e9e 3f 20 |? | MOVE.W -(A0),-(A7) 00020ea0 51 c8 ff fc |Q | DBF D0,0x20e9e 00020ea4 5d 4f |]O | SUBQ.L #0x6,A7 00020ea6 4e b9 00 01 03 c4 |N | JSR GetArgv() : String 00020eac 59 4f |YO | SUBQ.L #0x4,A7 00020eae 48 6f 00 0a |Ho | PEA.L (A7+0xa) 00020eb2 3f 02 |? | MOVE.W D2,-(A7) 00020eb4 3f 01 |? | MOVE.W D1,-(A7) 00020eb6 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020ebc 50 4f |PO | ADDQ.L #0x8,A7 00020ebe 4e b9 00 01 02 c8 |N | JSR StringEqual(a, b : String) : Byte 00020ec4 50 4f |PO | ADDQ.L #0x8,A7 00020ec6 4a 1f |J | TST.B (A7)+ 00020ec8 67 28 |g( | BEQ 0x20ef2 00020eca 4e ba f5 c0 |N | JSR 0x2048c 00020ece 4e ba fc 74 |N t | JSR 0x20b44 00020ed2 34 82 |4 | MOVE.W D2,(A2) 00020ed4 4e ba f3 5c |N \ | JSR 0x20232 00020ed8 48 79 00 02 1f d4 |Hy | PEA.L 0x21fd4 00020ede 4e ba f7 c4 |N | JSR 0x206a4 00020ee2 58 4f |XO | ADDQ.L #0x4,A7 00020ee4 4a 39 00 02 1f d4 |J9 | TST.B 0x21fd4 00020eea 67 02 |g | BEQ 0x20eee 00020eec 34 83 |4 | MOVE.W D3,(A2) 00020eee 4e ba f4 96 |N | JSR 0x20386 00020ef2 de c1 | | ADDA.W D1,A7 00020ef4 4e ba fd f0 |N | JSR 0x20ce6 00020ef8 9e fc 00 3c | < | SUBA.W #0x3c,A7 00020efc 20 4f | O | MOVEA.L A7,A0 00020efe 43 fa f2 ee |C | LEA.L 0x201ee,A1 00020f02 70 3a |p: | MOVEQ.L #0x3a,D0 00020f04 10 d9 | | MOVE.B (A1)+,(A0)+ 00020f06 51 c8 ff fc |Q | DBF D0,0x20f04 00020f0a 59 4f |YO | SUBQ.L #0x4,A7 00020f0c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020f10 3f 02 |? | MOVE.W D2,-(A7) 00020f12 3f 3c 00 3b |?< ; | MOVE.W #0x3b,-(A7) 00020f16 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020f1c 50 4f |PO | ADDQ.L #0x8,A7 00020f1e 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00020f24 de fc 00 3e | > | ADDA.W #0x3e,A7 00020f28 42 17 |B | CLR.B (A7) 00020f2a 48 78 00 01 |Hx | PEA.L 0x1 00020f2e 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00020f34 5c 4f |\O | ADDQ.L #0x6,A7 00020f36 4e b9 00 01 02 84 |N | JSR ?exit 00020f3c exp_RUN_NORMAL.FIU(): 00020f3c 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 00020f42 00 08 | | .CONST 0x0008 ; Stack-delta 00020f44 0e 52 55 4e 5f 4e 4f 52 | RUN_NOR| .TXT 14,'RUN_NORMAL.FIU' 00020f53 00 | | .CONST 0x0 00020f54 03 | | .CONST 0x3 ; DIPROC address 00020f55 00 | | .CONST 0x0 ; Output Parameters 00020f56 00 | | .CONST 0x0 ; Input Parameters 00020f57 00 | | .PAD 0x0 00020f58 exp_PREP_RUN.FIU(Sw_2): 00020f58 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 00020f5e 00 0a | | .CONST 0x000a ; Stack-delta 00020f60 0c 50 52 45 50 5f 52 55 | PREP_RU| .TXT 12,'PREP_RUN.FIU' 00020f6d 00 | | .CONST 0x0 00020f6e 03 | | .CONST 0x3 ; DIPROC address 00020f6f 00 | | .CONST 0x0 ; Output Parameters 00020f70 01 | | .CONST 0x1 ; Input Parameters 00020f71 01 | | .CONST 0x1 ; In arg [2] 00020f72 exp_MF.FIU(): 00020f72 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 00020f78 00 08 | | .CONST 0x0008 ; Stack-delta 00020f7a 06 4d 46 2e 46 49 55 | MF.FIU | .TXT 6,'MF.FIU' 00020f81 00 | | .CONST 0x0 00020f82 03 | | .CONST 0x3 ; DIPROC address 00020f83 00 | | .CONST 0x0 ; Output Parameters 00020f84 00 | | .CONST 0x0 ; Input Parameters 00020f85 00 | | .PAD 0x0 00020f86 exp_INIT_MRU.FIU(): 00020f86 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 00020f8c 00 08 | | .CONST 0x0008 ; Stack-delta 00020f8e 0c 49 4e 49 54 5f 4d 52 | INIT_MR| .TXT 12,'INIT_MRU.FIU' 00020f9b 00 | | .CONST 0x0 00020f9c 03 | | .CONST 0x3 ; DIPROC address 00020f9d 00 | | .CONST 0x0 ; Output Parameters 00020f9e 00 | | .CONST 0x0 ; Input Parameters 00020f9f 00 | | .PAD 0x0 00020fa0 exp_FREEZE_WORLD.FIU(): 00020fa0 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 00020fa6 00 08 | | .CONST 0x0008 ; Stack-delta 00020fa8 10 46 52 45 45 5a 45 5f | FREEZE_| .TXT 16,'FREEZE_WORLD.FIU' 00020fb9 00 | | .CONST 0x0 00020fba 03 | | .CONST 0x3 ; DIPROC address 00020fbb 00 | | .CONST 0x0 ; Output Parameters 00020fbc 00 | | .CONST 0x0 ; Input Parameters 00020fbd 00 | | .PAD 0x0 00020fbe exp_CLEAR_EXCEPTIONS.FIU(): 00020fbe 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 00020fc4 00 08 | | .CONST 0x0008 ; Stack-delta 00020fc6 14 43 4c 45 41 52 5f 45 | CLEAR_E| .TXT 20,'CLEAR_EXCEPTIONS.FIU' 00020fdb 00 | | .CONST 0x0 00020fdc 03 | | .CONST 0x3 ; DIPROC address 00020fdd 00 | | .CONST 0x0 ; Output Parameters 00020fde 00 | | .CONST 0x0 ; Input Parameters 00020fdf 00 | | .PAD 0x0 00020fe0 exp_RESET.SEQ(): 00020fe0 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 00020fe6 00 08 | | .CONST 0x0008 ; Stack-delta 00020fe8 09 52 45 53 45 54 2e 53 | RESET.S| .TXT 9,'RESET.SEQ' 00020ff2 00 | | .CONST 0x0 00020ff3 02 | | .CONST 0x2 ; DIPROC address 00020ff4 00 | | .CONST 0x0 ; Output Parameters 00020ff5 00 | | .CONST 0x0 ; Input Parameters 00020ff6 exp_RUN_CHECK.SEQ(): 00020ff6 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 00020ffc 00 08 | | .CONST 0x0008 ; Stack-delta 00020ffe 0d 52 55 4e 5f 43 48 45 | RUN_CHE| .TXT 13,'RUN_CHECK.SEQ' 0002100c 00 | | .CONST 0x0 0002100d 02 | | .CONST 0x2 ; DIPROC address 0002100e 00 | | .CONST 0x0 ; Output Parameters 0002100f 00 | | .CONST 0x0 ; Input Parameters 00021010 exp_PREP_RUN.SEQ(Sw_2): 00021010 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 00021016 00 0a | | .CONST 0x000a ; Stack-delta 00021018 0c 50 52 45 50 5f 52 55 | PREP_RU| .TXT 12,'PREP_RUN.SEQ' 00021025 00 | | .CONST 0x0 00021026 02 | | .CONST 0x2 ; DIPROC address 00021027 00 | | .CONST 0x0 ; Output Parameters 00021028 01 | | .CONST 0x1 ; Input Parameters 00021029 01 | | .CONST 0x1 ; In arg [2] 0002102a exp_WRITE_REG.TYP(Sw_2, Sw_8_1, Sw_1): 0002102a 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 00021030 00 16 | | .CONST 0x0016 ; Stack-delta 00021032 0d 57 52 49 54 45 5f 52 | WRITE_R| .TXT 13,'WRITE_REG.TYP' 00021040 00 | | .CONST 0x0 00021041 06 | | .CONST 0x6 ; DIPROC address 00021042 00 | | .CONST 0x0 ; Output Parameters 00021043 03 | | .CONST 0x3 ; Input Parameters 00021044 01 | | .CONST 0x1 ; In arg [2] 00021045 0d | | .CONST 0xd ; In arg [8, 1] 00021046 00 | | .CONST 0x0 ; In arg [1] 00021047 00 | | .PAD 0x0 00021048 exp_RUN_NORMAL.TYP(): 00021048 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 0002104e 00 08 | | .CONST 0x0008 ; Stack-delta 00021050 0e 52 55 4e 5f 4e 4f 52 | RUN_NOR| .TXT 14,'RUN_NORMAL.TYP' 0002105f 00 | | .CONST 0x0 00021060 06 | | .CONST 0x6 ; DIPROC address 00021061 00 | | .CONST 0x0 ; Output Parameters 00021062 00 | | .CONST 0x0 ; Input Parameters 00021063 00 | | .PAD 0x0 00021064 exp_PREP_WRITE_REG.TYP(Sw_8, &Sr_8_1): 00021064 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 0002106a 00 14 | | .CONST 0x0014 ; Stack-delta 0002106c 12 50 52 45 50 5f 57 52 | PREP_WR| .TXT 18,'PREP_WRITE_REG.TYP' 0002107f 00 | | .CONST 0x0 00021080 06 | | .CONST 0x6 ; DIPROC address 00021081 01 | | .CONST 0x1 ; Output Parameters 00021082 01 | | .CONST 0x1 ; Input Parameters 00021083 07 | | .CONST 0x7 ; In arg [8] 00021084 0d | | .CONST 0xd ; Out arg [8, 1] 00021085 00 | | .PAD 0x0 00021086 exp_PREP_RUN.TYP(Sw_2): 00021086 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 0002108c 00 0a | | .CONST 0x000a ; Stack-delta 0002108e 0c 50 52 45 50 5f 52 55 | PREP_RU| .TXT 12,'PREP_RUN.TYP' 0002109b 00 | | .CONST 0x0 0002109c 06 | | .CONST 0x6 ; DIPROC address 0002109d 00 | | .CONST 0x0 ; Output Parameters 0002109e 01 | | .CONST 0x1 ; Input Parameters 0002109f 01 | | .CONST 0x1 ; In arg [2] 000210a0 exp_MF.TYP(): 000210a0 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 000210a6 00 08 | | .CONST 0x0008 ; Stack-delta 000210a8 06 4d 46 2e 54 59 50 | MF.TYP | .TXT 6,'MF.TYP' 000210af 00 | | .CONST 0x0 000210b0 06 | | .CONST 0x6 ; DIPROC address 000210b1 00 | | .CONST 0x0 ; Output Parameters 000210b2 00 | | .CONST 0x0 ; Input Parameters 000210b3 00 | | .PAD 0x0 000210b4 exp_LOAD_BENIGN_UWORD.TYP(): 000210b4 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 000210ba 00 08 | | .CONST 0x0008 ; Stack-delta 000210bc 15 4c 4f 41 44 5f 42 45 | LOAD_BE| .TXT 21,'LOAD_BENIGN_UWORD.TYP' 000210d2 00 | | .CONST 0x0 000210d3 06 | | .CONST 0x6 ; DIPROC address 000210d4 00 | | .CONST 0x0 ; Output Parameters 000210d5 00 | | .CONST 0x0 ; Input Parameters 000210d6 exp_RUN_NORMAL.VAL(): 000210d6 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 000210dc 00 08 | | .CONST 0x0008 ; Stack-delta 000210de 0e 52 55 4e 5f 4e 4f 52 | RUN_NOR| .TXT 14,'RUN_NORMAL.VAL' 000210ed 00 | | .CONST 0x0 000210ee 07 | | .CONST 0x7 ; DIPROC address 000210ef 00 | | .CONST 0x0 ; Output Parameters 000210f0 00 | | .CONST 0x0 ; Input Parameters 000210f1 00 | | .PAD 0x0 000210f2 exp_PREP_RUN.VAL(Sw_2): 000210f2 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 000210f8 00 0a | | .CONST 0x000a ; Stack-delta 000210fa 0c 50 52 45 50 5f 52 55 | PREP_RU| .TXT 12,'PREP_RUN.VAL' 00021107 00 | | .CONST 0x0 00021108 07 | | .CONST 0x7 ; DIPROC address 00021109 00 | | .CONST 0x0 ; Output Parameters 0002110a 01 | | .CONST 0x1 ; Input Parameters 0002110b 01 | | .CONST 0x1 ; In arg [2] 0002110c exp_MF.VAL(): 0002110c 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 00021112 00 08 | | .CONST 0x0008 ; Stack-delta 00021114 06 4d 46 2e 56 41 4c | MF.VAL | .TXT 6,'MF.VAL' 0002111b 00 | | .CONST 0x0 0002111c 07 | | .CONST 0x7 ; DIPROC address 0002111d 00 | | .CONST 0x0 ; Output Parameters 0002111e 00 | | .CONST 0x0 ; Input Parameters 0002111f 00 | | .PAD 0x0 00021120 53 45 54 5f 48 49 54 2e |SET_HIT.| .TXT 'SET_HIT.MEM ' 0002112c 53 45 54 5f 48 49 54 2e |SET_HIT.| .TXT 'SET_HIT.M32 ' 00021138 ; -------------------------------------------------------------------------------------- 00021138 ; OMSI PASCAL Function 00021138 ; <LVAR 0x00a 1(r)> 00021138 ; <LVAR 0x008 1(r)> 00021138 ; <LVAR -0x004 @ 4(r)> 00021138 ; -------------------------------------------------------------------------------------- 00021138 4e 56 ff cc |NV | LINK.W A6,#0xffcc 0002113c bf d5 | | CMPA.L (A5),A7 0002113e 62 06 |b | BHI 0x21146 00021140 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021144 4e 76 |Nv | TRAPV 00021146 de fc 00 30 | 0 | ADDA.W #0x30,A7 0002114a 48 e7 c0 e0 |H | MOVEM.L A2+A1+A0+D1+D0,-(A7) 0002114e 45 ee ff fc |E | LEA.L (A6-0x4),A2 00021152 72 0c |r | MOVEQ.L #0x0c,D1 00021154 55 4f |UO | SUBQ.L #0x2,A7 00021156 4e b9 00 01 04 cc |N | JSR MemOnly2MB() : Bool 0002115c 4a 1f |J | TST.B (A7)+ 0002115e 67 12 |g | BEQ 0x21172 00021160 9e c1 | | SUBA.W D1,A7 00021162 20 4f | O | MOVEA.L A7,A0 00021164 43 fa ff ba |C | LEA.L 0x21120,A1 00021168 70 0a |p | MOVEQ.L #0x0a,D0 0002116a 10 d9 | | MOVE.B (A1)+,(A0)+ 0002116c 51 c8 ff fc |Q | DBF D0,0x2116a 00021170 60 10 |` | BRA 0x21182 00021172 9e c1 | | SUBA.W D1,A7 00021174 20 4f | O | MOVEA.L A7,A0 00021176 43 fa ff b4 |C | LEA.L 0x2112c,A1 0002117a 70 0a |p | MOVEQ.L #0x0a,D0 0002117c 10 d9 | | MOVE.B (A1)+,(A0)+ 0002117e 51 c8 ff fc |Q | DBF D0,0x2117c 00021182 59 4f |YO | SUBQ.L #0x4,A7 00021184 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021188 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 0002118c 3f 3c 00 0b |?< | MOVE.W #0xb,-(A7) 00021190 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00021196 50 4f |PO | ADDQ.L #0x8,A7 00021198 48 52 |HR | PEA.L (A2) 0002119a 4e b9 00 01 04 60 |N ` | JSR ExpLoad(a : String; b: Pointer) 000211a0 de fc 00 14 | | ADDA.W #0x14,A7 000211a4 1f 2e 00 08 | . | MOVE.B (A6+0x8),-(A7) 000211a8 2f 12 |/ | MOVE.L (A2),-(A7) 000211aa 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000211ae 48 78 00 00 |Hx | PEA.L 0x0 000211b2 48 78 00 00 |Hx | PEA.L 0x0 000211b6 4e b9 00 01 04 66 |N f | JSR ExpInputParam(exp : Pointer; ptr : Pointer; len : L) 000211bc de fc 00 10 | | ADDA.W #0x10,A7 000211c0 42 17 |B | CLR.B (A7) 000211c2 1f 2e 00 0a | . | MOVE.B (A6+0xa),-(A7) 000211c6 2f 12 |/ | MOVE.L (A2),-(A7) 000211c8 4e b9 00 01 04 ba |N | JSR ExpRun(a: Bool; adr: Byte; b: Pointer) 000211ce 50 4f |PO | ADDQ.L #0x8,A7 000211d0 48 52 |HR | PEA.L (A2) 000211d2 4e b9 00 01 04 96 |N | JSR ExpClose(exp : Pointer) 000211d8 58 4f |XO | ADDQ.L #0x4,A7 000211da 4c df 07 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2 000211de 4e 5e |N^ | UNLK A6 000211e0 4e 75 |Nu | RTS 000211e2 52 55 4e 5f 43 48 45 43 |RUN_CHEC| .TXT 'RUN_CHECK.MEM ' 000211f0 52 55 4e 5f 43 48 45 43 |RUN_CHEC| .TXT 'RUN_CHECK.M32 ' 000211fe ; -------------------------------------------------------------------------------------- 000211fe ; OMSI PASCAL Function 000211fe ; <LVAR 0x008 1(r)> 000211fe ; <LVAR -0x006 @ 4(r)> 000211fe ; -------------------------------------------------------------------------------------- 000211fe 4e 56 ff c8 |NV | LINK.W A6,#0xffc8 00021202 bf d5 | | CMPA.L (A5),A7 00021204 62 06 |b | BHI 0x2120c 00021206 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002120a 4e 76 |Nv | TRAPV 0002120c de fc 00 32 | 2 | ADDA.W #0x32,A7 00021210 48 e7 c0 e0 |H | MOVEM.L A2+A1+A0+D1+D0,-(A7) 00021214 45 ee ff fa |E | LEA.L (A6-0x6),A2 00021218 72 0e |r | MOVEQ.L #0x0e,D1 0002121a 55 4f |UO | SUBQ.L #0x2,A7 0002121c 4e b9 00 01 04 cc |N | JSR MemOnly2MB() : Bool 00021222 4a 1f |J | TST.B (A7)+ 00021224 67 12 |g | BEQ 0x21238 00021226 9e c1 | | SUBA.W D1,A7 00021228 20 4f | O | MOVEA.L A7,A0 0002122a 43 fa ff b6 |C | LEA.L 0x211e2,A1 0002122e 70 0c |p | MOVEQ.L #0x0c,D0 00021230 10 d9 | | MOVE.B (A1)+,(A0)+ 00021232 51 c8 ff fc |Q | DBF D0,0x21230 00021236 60 10 |` | BRA 0x21248 00021238 9e c1 | | SUBA.W D1,A7 0002123a 20 4f | O | MOVEA.L A7,A0 0002123c 43 fa ff b2 |C | LEA.L 0x211f0,A1 00021240 70 0c |p | MOVEQ.L #0x0c,D0 00021242 10 d9 | | MOVE.B (A1)+,(A0)+ 00021244 51 c8 ff fc |Q | DBF D0,0x21242 00021248 59 4f |YO | SUBQ.L #0x4,A7 0002124a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002124e 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00021252 3f 3c 00 0d |?< | MOVE.W #0xd,-(A7) 00021256 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002125c 50 4f |PO | ADDQ.L #0x8,A7 0002125e 48 52 |HR | PEA.L (A2) 00021260 4e b9 00 01 04 60 |N ` | JSR ExpLoad(a : String; b: Pointer) 00021266 de fc 00 16 | | ADDA.W #0x16,A7 0002126a 42 27 |B' | CLR.B -(A7) 0002126c 1f 2e 00 08 | . | MOVE.B (A6+0x8),-(A7) 00021270 2f 12 |/ | MOVE.L (A2),-(A7) 00021272 4e b9 00 01 04 ba |N | JSR ExpRun(a: Bool; adr: Byte; b: Pointer) 00021278 50 4f |PO | ADDQ.L #0x8,A7 0002127a 48 52 |HR | PEA.L (A2) 0002127c 4e b9 00 01 04 96 |N | JSR ExpClose(exp : Pointer) 00021282 58 4f |XO | ADDQ.L #0x4,A7 00021284 4c df 07 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2 00021288 4e 5e |N^ | UNLK A6 0002128a 4e 75 |Nu | RTS 0002128c 4d 46 |MF | .TXT 'MF' 0002128e 2e 4d |.M | .TXT '.M' 00021290 45 4d |EM | .TXT 'EM' 00021292 4d 46 |MF | .TXT 'MF' 00021294 2e 4d |.M | .TXT '.M' 00021296 33 32 |32 | .TXT '32' 00021298 ; -------------------------------------------------------------------------------------- 00021298 ; OMSI PASCAL Function 00021298 ; <LVAR 0x008 1(r)> 00021298 ; <LVAR -0x006 @ 4(r)> 00021298 ; -------------------------------------------------------------------------------------- 00021298 4e 56 ff e0 |NV | LINK.W A6,#0xffe0 0002129c bf d5 | | CMPA.L (A5),A7 0002129e 62 06 |b | BHI 0x212a6 000212a0 44 fc 00 02 |D | MOVE.W #0x2,CCR 000212a4 4e 76 |Nv | TRAPV 000212a6 de fc 00 1a | | ADDA.W #0x1a,A7 000212aa 48 e7 00 80 |H | MOVEM.L A0,-(A7) 000212ae 41 ee ff fa |A | LEA.L (A6-0x6),A0 000212b2 55 4f |UO | SUBQ.L #0x2,A7 000212b4 4e b9 00 01 04 cc |N | JSR MemOnly2MB() : Bool 000212ba 4a 1f |J | TST.B (A7)+ 000212bc 67 0e |g | BEQ 0x212cc 000212be 3f 3a ff d0 |?: | MOVE.W 0x21290,-(A7) 000212c2 3f 3a ff ca |?: | MOVE.W 0x2128e,-(A7) 000212c6 3f 3a ff c4 |?: | MOVE.W 0x2128c,-(A7) 000212ca 60 0c |` | BRA 0x212d8 000212cc 3f 3a ff c8 |?: | MOVE.W 0x21296,-(A7) 000212d0 3f 3a ff c2 |?: | MOVE.W 0x21294,-(A7) 000212d4 3f 3a ff bc |?: | MOVE.W 0x21292,-(A7) 000212d8 59 4f |YO | SUBQ.L #0x4,A7 000212da 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000212de 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000212e2 3f 3c 00 06 |?< | MOVE.W #0x6,-(A7) 000212e6 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000212ec 50 4f |PO | ADDQ.L #0x8,A7 000212ee 48 50 |HP | PEA.L (A0) 000212f0 4e b9 00 01 04 60 |N ` | JSR ExpLoad(a : String; b: Pointer) 000212f6 de fc 00 0e | | ADDA.W #0xe,A7 000212fa 42 27 |B' | CLR.B -(A7) 000212fc 1f 2e 00 08 | . | MOVE.B (A6+0x8),-(A7) 00021300 2f 10 |/ | MOVE.L (A0),-(A7) 00021302 4e b9 00 01 04 ba |N | JSR ExpRun(a: Bool; adr: Byte; b: Pointer) 00021308 50 4f |PO | ADDQ.L #0x8,A7 0002130a 48 50 |HP | PEA.L (A0) 0002130c 4e b9 00 01 04 96 |N | JSR ExpClose(exp : Pointer) 00021312 58 4f |XO | ADDQ.L #0x4,A7 00021314 4c df 01 00 |L | MOVEM.L (A7)+,A0 00021318 4e 5e |N^ | UNLK A6 0002131a 4e 75 |Nu | RTS 0002131c 43 4c 45 41 52 5f 50 41 |CLEAR_PA| .TXT 'CLEAR_PARITY_ERRORS.MEM ' 00021334 43 4c 45 41 52 5f 50 41 |CLEAR_PA| .TXT 'CLEAR_PARITY_ERRORS.M32 ' 0002134c ; -------------------------------------------------------------------------------------- 0002134c ; OMSI PASCAL Function 0002134c ; <LVAR 0x008 1(r)> 0002134c ; <LVAR -0x006 @ 4(r)> 0002134c ; -------------------------------------------------------------------------------------- 0002134c 4e 56 ff be |NV | LINK.W A6,#0xffbe 00021350 bf d5 | | CMPA.L (A5),A7 00021352 62 06 |b | BHI 0x2135a 00021354 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021358 4e 76 |Nv | TRAPV 0002135a de fc 00 3c | < | ADDA.W #0x3c,A7 0002135e 48 e7 c0 e0 |H | MOVEM.L A2+A1+A0+D1+D0,-(A7) 00021362 45 ee ff fa |E | LEA.L (A6-0x6),A2 00021366 72 18 |r | MOVEQ.L #0x18,D1 00021368 55 4f |UO | SUBQ.L #0x2,A7 0002136a 4e b9 00 01 04 cc |N | JSR MemOnly2MB() : Bool 00021370 4a 1f |J | TST.B (A7)+ 00021372 67 12 |g | BEQ 0x21386 00021374 9e c1 | | SUBA.W D1,A7 00021376 20 4f | O | MOVEA.L A7,A0 00021378 43 fa ff a2 |C | LEA.L 0x2131c,A1 0002137c 70 16 |p | MOVEQ.L #0x16,D0 0002137e 10 d9 | | MOVE.B (A1)+,(A0)+ 00021380 51 c8 ff fc |Q | DBF D0,0x2137e 00021384 60 10 |` | BRA 0x21396 00021386 9e c1 | | SUBA.W D1,A7 00021388 20 4f | O | MOVEA.L A7,A0 0002138a 43 fa ff a8 |C | LEA.L 0x21334,A1 0002138e 70 16 |p | MOVEQ.L #0x16,D0 00021390 10 d9 | | MOVE.B (A1)+,(A0)+ 00021392 51 c8 ff fc |Q | DBF D0,0x21390 00021396 59 4f |YO | SUBQ.L #0x4,A7 00021398 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002139c 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000213a0 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7) 000213a4 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000213aa 50 4f |PO | ADDQ.L #0x8,A7 000213ac 48 52 |HR | PEA.L (A2) 000213ae 4e b9 00 01 04 60 |N ` | JSR ExpLoad(a : String; b: Pointer) 000213b4 de fc 00 20 | | ADDA.W #0x20,A7 000213b8 42 27 |B' | CLR.B -(A7) 000213ba 1f 2e 00 08 | . | MOVE.B (A6+0x8),-(A7) 000213be 2f 12 |/ | MOVE.L (A2),-(A7) 000213c0 4e b9 00 01 04 ba |N | JSR ExpRun(a: Bool; adr: Byte; b: Pointer) 000213c6 50 4f |PO | ADDQ.L #0x8,A7 000213c8 48 52 |HR | PEA.L (A2) 000213ca 4e b9 00 01 04 96 |N | JSR ExpClose(exp : Pointer) 000213d0 58 4f |XO | ADDQ.L #0x4,A7 000213d2 4c df 07 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2 000213d6 4e 5e |N^ | UNLK A6 000213d8 4e 75 |Nu | RTS 000213da 43 4c 45 41 52 5f 48 49 |CLEAR_HI| .TXT 'CLEAR_HITS.MEM' 000213e8 43 4c 45 41 52 5f 48 49 |CLEAR_HI| .TXT 'CLEAR_HITS.M32' 000213f6 ; -------------------------------------------------------------------------------------- 000213f6 ; OMSI PASCAL Function 000213f6 ; <LVAR 0x008 1(r)> 000213f6 ; <LVAR -0x006 @ 4(r)> 000213f6 ; -------------------------------------------------------------------------------------- 000213f6 4e 56 ff d0 |NV | LINK.W A6,#0xffd0 000213fa bf d5 | | CMPA.L (A5),A7 000213fc 62 06 |b | BHI 0x21404 000213fe 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021402 4e 76 |Nv | TRAPV 00021404 de fc 00 2a | * | ADDA.W #0x2a,A7 00021408 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7) 0002140c 43 ee ff fa |C | LEA.L (A6-0x6),A1 00021410 55 4f |UO | SUBQ.L #0x2,A7 00021412 4e b9 00 01 04 cc |N | JSR MemOnly2MB() : Bool 00021418 4a 1f |J | TST.B (A7)+ 0002141a 67 0e |g | BEQ 0x2142a 0002141c 41 fa ff ca |A | LEA.L 0x213e8,A0 00021420 70 06 |p | MOVEQ.L #0x06,D0 00021422 3f 20 |? | MOVE.W -(A0),-(A7) 00021424 51 c8 ff fc |Q | DBF D0,0x21422 00021428 60 0c |` | BRA 0x21436 0002142a 41 fa ff ca |A | LEA.L 0x213f6,A0 0002142e 70 06 |p | MOVEQ.L #0x06,D0 00021430 3f 20 |? | MOVE.W -(A0),-(A7) 00021432 51 c8 ff fc |Q | DBF D0,0x21430 00021436 59 4f |YO | SUBQ.L #0x4,A7 00021438 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002143c 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00021440 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7) 00021444 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002144a 50 4f |PO | ADDQ.L #0x8,A7 0002144c 48 51 |HQ | PEA.L (A1) 0002144e 4e b9 00 01 04 60 |N ` | JSR ExpLoad(a : String; b: Pointer) 00021454 de fc 00 16 | | ADDA.W #0x16,A7 00021458 42 27 |B' | CLR.B -(A7) 0002145a 1f 2e 00 08 | . | MOVE.B (A6+0x8),-(A7) 0002145e 2f 11 |/ | MOVE.L (A1),-(A7) 00021460 4e b9 00 01 04 ba |N | JSR ExpRun(a: Bool; adr: Byte; b: Pointer) 00021466 50 4f |PO | ADDQ.L #0x8,A7 00021468 48 51 |HQ | PEA.L (A1) 0002146a 4e b9 00 01 04 96 |N | JSR ExpClose(exp : Pointer) 00021470 58 4f |XO | ADDQ.L #0x4,A7 00021472 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1 00021476 4e 5e |N^ | UNLK A6 00021478 4e 75 |Nu | RTS 0002147a 43 4c 45 41 52 5f 44 52 |CLEAR_DR| .TXT 'CLEAR_DRIVE_HIT.MEM ' 0002148e 43 4c 45 41 52 5f 44 52 |CLEAR_DR| .TXT 'CLEAR_DRIVE_HIT.M32 ' 000214a2 ; -------------------------------------------------------------------------------------- 000214a2 ; OMSI PASCAL Function 000214a2 ; <LVAR 0x008 1(r)> 000214a2 ; <LVAR -0x006 @ 4(r)> 000214a2 ; -------------------------------------------------------------------------------------- 000214a2 4e 56 ff c2 |NV | LINK.W A6,#0xffc2 000214a6 bf d5 | | CMPA.L (A5),A7 000214a8 62 06 |b | BHI 0x214b0 000214aa 44 fc 00 02 |D | MOVE.W #0x2,CCR 000214ae 4e 76 |Nv | TRAPV 000214b0 de fc 00 38 | 8 | ADDA.W #0x38,A7 000214b4 48 e7 c0 e0 |H | MOVEM.L A2+A1+A0+D1+D0,-(A7) 000214b8 45 ee ff fa |E | LEA.L (A6-0x6),A2 000214bc 72 14 |r | MOVEQ.L #0x14,D1 000214be 55 4f |UO | SUBQ.L #0x2,A7 000214c0 4e b9 00 01 04 cc |N | JSR MemOnly2MB() : Bool 000214c6 4a 1f |J | TST.B (A7)+ 000214c8 67 12 |g | BEQ 0x214dc 000214ca 9e c1 | | SUBA.W D1,A7 000214cc 20 4f | O | MOVEA.L A7,A0 000214ce 43 fa ff aa |C | LEA.L 0x2147a,A1 000214d2 70 12 |p | MOVEQ.L #0x12,D0 000214d4 10 d9 | | MOVE.B (A1)+,(A0)+ 000214d6 51 c8 ff fc |Q | DBF D0,0x214d4 000214da 60 10 |` | BRA 0x214ec 000214dc 9e c1 | | SUBA.W D1,A7 000214de 20 4f | O | MOVEA.L A7,A0 000214e0 43 fa ff ac |C | LEA.L 0x2148e,A1 000214e4 70 12 |p | MOVEQ.L #0x12,D0 000214e6 10 d9 | | MOVE.B (A1)+,(A0)+ 000214e8 51 c8 ff fc |Q | DBF D0,0x214e6 000214ec 59 4f |YO | SUBQ.L #0x4,A7 000214ee 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000214f2 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000214f6 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7) 000214fa 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00021500 50 4f |PO | ADDQ.L #0x8,A7 00021502 48 52 |HR | PEA.L (A2) 00021504 4e b9 00 01 04 60 |N ` | JSR ExpLoad(a : String; b: Pointer) 0002150a de fc 00 1c | | ADDA.W #0x1c,A7 0002150e 42 27 |B' | CLR.B -(A7) 00021510 1f 2e 00 08 | . | MOVE.B (A6+0x8),-(A7) 00021514 2f 12 |/ | MOVE.L (A2),-(A7) 00021516 4e b9 00 01 04 ba |N | JSR ExpRun(a: Bool; adr: Byte; b: Pointer) 0002151c 50 4f |PO | ADDQ.L #0x8,A7 0002151e 48 52 |HR | PEA.L (A2) 00021520 4e b9 00 01 04 96 |N | JSR ExpClose(exp : Pointer) 00021526 58 4f |XO | ADDQ.L #0x4,A7 00021528 4c df 07 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2 0002152c 4e 5e |N^ | UNLK A6 0002152e 4e 75 |Nu | RTS 00021530 exp_RUN_CHECK.IOC(): 00021530 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 00021536 00 08 | | .CONST 0x0008 ; Stack-delta 00021538 0d 52 55 4e 5f 43 48 45 | RUN_CHE| .TXT 13,'RUN_CHECK.IOC' 00021546 00 | | .CONST 0x0 00021547 04 | | .CONST 0x4 ; DIPROC address 00021548 00 | | .CONST 0x0 ; Output Parameters 00021549 00 | | .CONST 0x0 ; Input Parameters 0002154a exp_PREP_RUN.IOC(Sw_2): 0002154a 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 00021550 00 0a | | .CONST 0x000a ; Stack-delta 00021552 0c 50 52 45 50 5f 52 55 | PREP_RU| .TXT 12,'PREP_RUN.IOC' 0002155f 00 | | .CONST 0x0 00021560 04 | | .CONST 0x4 ; DIPROC address 00021561 00 | | .CONST 0x0 ; Output Parameters 00021562 01 | | .CONST 0x1 ; Input Parameters 00021563 01 | | .CONST 0x1 ; In arg [2] 00021564 exp_MF.IOC(): 00021564 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 0002156a 00 08 | | .CONST 0x0008 ; Stack-delta 0002156c 06 4d 46 2e 49 4f 43 | MF.IOC | .TXT 6,'MF.IOC' 00021573 00 | | .CONST 0x0 00021574 04 | | .CONST 0x4 ; DIPROC address 00021575 00 | | .CONST 0x0 ; Output Parameters 00021576 00 | | .CONST 0x0 ; Input Parameters 00021577 00 | | .PAD 0x0 00021578 57 6f 72 64 73 20 65 72 |Words er| .TXT 'Words error :_' 00021586 ; -------------------------------------------------------------------------------------- 00021586 ; OMSI PASCAL Function 00021586 ; <LVAR 0x008 1(r)> 00021586 ; -------------------------------------------------------------------------------------- 00021586 PROG_FAIL: 00021586 4e 56 ff d2 |NV | LINK.W A6,#0xffd2 0002158a bf d5 | | CMPA.L (A5),A7 0002158c 62 06 |b | BHI 0x21594 0002158e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021592 4e 76 |Nv | TRAPV 00021594 de fc 00 2c | , | ADDA.W #0x2c,A7 00021598 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 0002159c 41 fa ff e8 |A | LEA.L PROG_FAIL,A0 000215a0 70 06 |p | MOVEQ.L #0x06,D0 000215a2 3f 20 |? | MOVE.W -(A0),-(A7) 000215a4 51 c8 ff fc |Q | DBF D0,0x215a2 000215a8 1f 3c 00 03 | < | MOVE.B #0x03,-(A7) 000215ac 51 4f |QO | SUBQ.L #0x8,A7 000215ae 48 6f 00 0a |Ho | PEA.L (A7+0xa) 000215b2 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000215b6 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7) 000215ba 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000215c0 58 4f |XO | ADDQ.L #0x4,A7 000215c2 10 2e 00 08 | . | MOVE.B (A6+0x8),D0 000215c6 48 80 |H | EXTB.W D0 000215c8 48 c0 |H | EXTW.L D0 000215ca 2f 00 |/ | MOVE.L D0,-(A7) 000215cc 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 000215d2 58 4f |XO | ADDQ.L #0x4,A7 000215d4 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000215da 50 4f |PO | ADDQ.L #0x8,A7 000215dc 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 000215e2 de fc 00 14 | | ADDA.W #0x14,A7 000215e6 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 000215ea 4e 5e |N^ | UNLK A6 000215ec 4e 75 |Nu | RTS 000215ee 42 6f 61 72 64 20 20 20 |Board | .TXT 'Board :_ ' 000215fc 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment :_ ' 0002160a 53 74 61 74 75 73 20 20 |Status | .TXT 'Status :_ ' 00021618 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment error :' 0002162a 46 61 74 61 6c 20 65 78 |Fatal ex| .TXT 'Fatal experiment error. ' 00021642 ; -------------------------------------------------------------------------------------- 00021642 ; OMSI PASCAL Function 00021642 ; <LVAR 0x00e 1(r)> 00021642 ; <LVAR 0x00a 4(r)> 00021642 ; <LVAR 0x008 1(r)> 00021642 ; -------------------------------------------------------------------------------------- 00021642 EXP_FAIL: 00021642 4e 56 ff 8c |NV | LINK.W A6,#0xff8c 00021646 bf d5 | | CMPA.L (A5),A7 00021648 62 06 |b | BHI 0x21650 0002164a 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002164e 4e 76 |Nv | TRAPV 00021650 de fc 00 74 | t | ADDA.W #0x74,A7 00021654 48 e7 fc f8 |H | MOVEM.L A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7) 00021658 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 0002165e 49 f9 00 01 03 e0 |I | LEA.L WriteConsoleStringCrLf(str : String),A4 00021664 72 01 |r | MOVEQ.L #0x01,D1 00021666 74 0d |t | MOVEQ.L #0x0d,D2 00021668 76 1e |v | MOVEQ.L #0x1e,D3 0002166a 78 12 |x | MOVEQ.L #0x12,D4 0002166c 7a 0e |z | MOVEQ.L #0x0e,D5 0002166e 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 00021674 41 fa ff b4 |A | LEA.L 0x2162a,A0 00021678 70 08 |p | MOVEQ.L #0x08,D0 0002167a 3f 20 |? | MOVE.W -(A0),-(A7) 0002167c 51 c8 ff fc |Q | DBF D0,0x2167a 00021680 59 4f |YO | SUBQ.L #0x4,A7 00021682 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021686 3f 01 |? | MOVE.W D1,-(A7) 00021688 3f 04 |? | MOVE.W D4,-(A7) 0002168a 4e 93 |N | JSR (A3) 0002168c 50 4f |PO | ADDQ.L #0x8,A7 0002168e 4e 94 |N | JSR (A4) 00021690 50 4f |PO | ADDQ.L #0x8,A7 00021692 20 4f | O | MOVEA.L A7,A0 00021694 43 fa ff 58 |C X | LEA.L 0x215ee,A1 00021698 70 0c |p | MOVEQ.L #0x0c,D0 0002169a 10 d9 | | MOVE.B (A1)+,(A0)+ 0002169c 51 c8 ff fc |Q | DBF D0,0x2169a 000216a0 51 4f |QO | SUBQ.L #0x8,A7 000216a2 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000216a6 3f 01 |? | MOVE.W D1,-(A7) 000216a8 3f 02 |? | MOVE.W D2,-(A7) 000216aa 4e 93 |N | JSR (A3) 000216ac 54 4f |TO | ADDQ.L #0x2,A7 000216ae 1e ae 00 0e | | MOVE.B (A6+0xe),(A7) 000216b2 4e b9 00 01 04 9c |N | JSR BoardName(address : B) : String 000216b8 54 4f |TO | ADDQ.L #0x2,A7 000216ba 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000216c0 50 4f |PO | ADDQ.L #0x8,A7 000216c2 4e 94 |N | JSR (A4) 000216c4 de c4 | | ADDA.W D4,A7 000216c6 20 6e 00 0a | n | MOVEA.L (A6+0xa),A0 000216ca b0 c1 | | CMPA.W D1,A0 000216cc 67 48 |gH | BEQ 0x21716 000216ce 9e c5 | | SUBA.W D5,A7 000216d0 22 4f |"O | MOVEA.L A7,A1 000216d2 45 fa ff 28 |E ( | LEA.L 0x215fc,A2 000216d6 70 0c |p | MOVEQ.L #0x0c,D0 000216d8 12 da | | MOVE.B (A2)+,(A1)+ 000216da 51 c8 ff fc |Q | DBF D0,0x216d8 000216de 9e c3 | | SUBA.W D3,A7 000216e0 22 4f |"O | MOVEA.L A7,A1 000216e2 41 e8 00 fc |A | LEA.L (A0+0xfc),A0 000216e6 70 1d |p | MOVEQ.L #0x1d,D0 000216e8 12 d8 | | MOVE.B (A0)+,(A1)+ 000216ea 51 c8 ff fc |Q | DBF D0,0x216e8 000216ee 51 4f |QO | SUBQ.L #0x8,A7 000216f0 48 6f 00 26 |Ho & | PEA.L (A7+0x26) 000216f4 3f 01 |? | MOVE.W D1,-(A7) 000216f6 3f 02 |? | MOVE.W D2,-(A7) 000216f8 4e 93 |N | JSR (A3) 000216fa 58 4f |XO | ADDQ.L #0x4,A7 000216fc 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00021700 3f 01 |? | MOVE.W D1,-(A7) 00021702 3f 03 |? | MOVE.W D3,-(A7) 00021704 4e 93 |N | JSR (A3) 00021706 50 4f |PO | ADDQ.L #0x8,A7 00021708 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 0002170e 50 4f |PO | ADDQ.L #0x8,A7 00021710 4e 94 |N | JSR (A4) 00021712 de fc 00 30 | 0 | ADDA.W #0x30,A7 00021716 9e c5 | | SUBA.W D5,A7 00021718 20 4f | O | MOVEA.L A7,A0 0002171a 43 fa fe ee |C | LEA.L 0x2160a,A1 0002171e 70 0c |p | MOVEQ.L #0x0c,D0 00021720 10 d9 | | MOVE.B (A1)+,(A0)+ 00021722 51 c8 ff fc |Q | DBF D0,0x21720 00021726 51 4f |QO | SUBQ.L #0x8,A7 00021728 48 6f 00 08 |Ho | PEA.L (A7+0x8) 0002172c 3f 01 |? | MOVE.W D1,-(A7) 0002172e 3f 02 |? | MOVE.W D2,-(A7) 00021730 4e 93 |N | JSR (A3) 00021732 54 4f |TO | ADDQ.L #0x2,A7 00021734 1e ae 00 08 | | MOVE.B (A6+0x8),(A7) 00021738 4e b9 00 01 04 a2 |N | JSR ExpStatus2Text(status.B, &String) 0002173e 54 4f |TO | ADDQ.L #0x2,A7 00021740 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00021746 50 4f |PO | ADDQ.L #0x8,A7 00021748 4e 94 |N | JSR (A4) 0002174a 5d 4f |]O | SUBQ.L #0x6,A7 0002174c 20 4f | O | MOVEA.L A7,A0 0002174e 43 fa fe da |C | LEA.L 0x2162a,A1 00021752 70 16 |p | MOVEQ.L #0x16,D0 00021754 10 d9 | | MOVE.B (A1)+,(A0)+ 00021756 51 c8 ff fc |Q | DBF D0,0x21754 0002175a 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 0002175e 59 4f |YO | SUBQ.L #0x4,A7 00021760 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00021764 3f 01 |? | MOVE.W D1,-(A7) 00021766 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7) 0002176a 4e 93 |N | JSR (A3) 0002176c 50 4f |PO | ADDQ.L #0x8,A7 0002176e 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00021774 de c3 | | ADDA.W D3,A7 00021776 4c df 1f 3f |L ? | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4 0002177a 4e 5e |N^ | UNLK A6 0002177c 4e 75 |Nu | RTS