|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 DFS Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 DFS Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 4096 (0x1000)
Types: M200
Notes: @(#)MONITOR,1.2,92/02/19,12:34:56, M200_PROGRAM
Names: »MONITOR.M200«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »MONITOR.M200«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »MONITOR.M200«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »MONITOR.M200«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »MONITOR.M200«
└─ ⟦this⟧ »MONITOR.M200«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »MONITOR.M200«
@ 2020c
<LVAR -0x003 1(r)>
<LVAR -0x004 1(r) 2(r)>
<LVAR -0x006 @ 2(r)>
<LVAR -0x00c 2(w)>
<LVAR -0x00e 2(w)>
<LVAR -0x010 2(w)>
<LVAR -0x012 2(w)>
<LVAR -0x014 2(w)>
<LVAR -0x016 2(w)>
<LVAR -0x018 2(w)>
<LVAR -0x01a 2(w)>
<LVAR -0x01c 2(r)>
<POP 2020c-202bc Body>
<POP 2020c-20222 Prologue> Σ0 ↓
<POP 20222-20228 RegCacheLoad> Σ0 ↓
<POP 20228-20296 Naked> Σ0 ↓
<Pointer.fp 0x20228 <LVAR -0x006 @ 2(r)>> Δ-4 {[@@-6]}
<Call 0x2022a 0x10304> {[@@-6]}
GetRtc() : TimeStamp
<POP 20230-20232 StackAdj> Δ+4 {}
<MI 20232 CLR.W (A6-0x1c)> {}
<MI 20236 CLR.L D0> {}
<MI 20238 MOVE.B (A6-0x4),D0> {}
<MI 2023c LSR.B #0x1,D0> {}
<MI 2023e MOVE.W D0,(A6-0x1a)> {}
<MI 20242 MOVE.W (A6-0x4),D0> {}
<MI 20246 LSL.W #0x7,D0> {}
<MI 20248 LSR.W #0x8,D0> {}
<MI 2024a LSR.W #0x4,D0> {}
<MI 2024c MOVE.W D0,(A6-0x18)> {}
<MI 20250 CLR.L D0> {}
<MI 20252 MOVE.B (A6-0x3),D0> {}
<MI 20256 LSL.B #0x3,D0> {}
<MI 20258 LSR.B #0x3,D0> {}
<MI 2025a MOVE.W D0,(A6-0x16)> {}
<MI 2025e MOVE.W (A6-0x6),D0> {}
<MI 20260 LSR.W #0x8,D0> {}
<MI 20262 LSR.W #0x7,D0> {}
<MI 20264 ANDI.W #0x0001,D0> {}
<MI 20268 MOVE.W D0,(A6-0x14)> {}
<MI 2026c MOVE.W (A6-0x6),D0> {}
<MI 2026e LSR.W #0x7,D0> {}
<MI 20270 ANDI.W #0x00ff,D0> {}
<MI 20274 MOVE.W D0,(A6-0x12)> {}
<MI 20278 CLR.L D0> {}
<MI 2027a MOVE.W (A6-0x6),D0> {}
<MI 2027c ASL.L #0x1,D0> {}
<MI 2027e ANDI.L #0x000000ff,D0> {}
<MI 20284 MOVE.W D0,(A6-0x10)> {}
<MI 20288 MOVE.W #0x2,(A6-0xe)> {}
<MI 2028e MOVE.W #0x58,(A6-0xc)> {}
<MI 20294 MOVEQ.L #0x00,D7> {}
<POP 20296-202b4 Naked> Σ0 ↓ →0x20296 ←0x20296
<Const 0x20296 0x8.2> Δ-2 {[#8]}
<POP 0x20298 LimitCheck 0x0 ≤ D7 ≤ 0x8> {[#8]}
<MI 2029e MOVE.L D7,D0> {[#8]}
<MI 202a0 ASL.L #0x1,D0> {[#8]}
<MI 202a2 MOVE.W (A6+D0.L-#0x1c),-(A7)> Δ-2 {[#8]|[2, '(A6+D0.L-#0x1c)']}
<Call 0x202a6 0x1020c> {[#8]|[2, '(A6+D0.L-#0x1c)']}
KC06_PortPutChar(port : Word ; b : char)
<POP 202ac-202ae StackAdj> Δ+4 {}
<MI 202ae ADDQ.L #0x1,D7> {}
<MI 202b0 CMP.L #0x08,D7> {}
<MI 202b2 BLE 0x20296> {}
<POP 202b4-202bc Epilogue> Σ0
@ 202bc
<LVAR -0x004 @ 2(rw)>
<LVAR -0x00c @>
<POP 202bc-20340 Body>
<POP 202bc-202d2 Prologue> Σ0 ↓
<POP 202d2-202dc RegCacheLoad> Σ0 ↓
<POP 202dc-202de Naked> Σ0 ↓
<MI 202dc MOVEQ.L #0x00,D7> {}
<POP 202de-202f2 Naked> Σ0 ↓ →0x20300 ←0x20324
<Const 0x202de 0x8.2> Δ-2 {[#8]}
<Pointer.fp 0x202e2 <LVAR -0x004 @ 2(rw)>> Δ-4 {[#8]|[@@-4]}
<Call 0x202e4 0x1020e> {[#8]|[@@-4]}
KC07_PortGetChar(port : Word ; VAR ret : Word)
<POP 202ea-202ec StackAdj> Δ+6 {}
<MI 202ec AND.W #0xff,(A6-0x4)> {}
<MI 202ee TST.B D7> {}
<MI 202f0 BNE 0x20300> {}
<POP 202f2-20300 Naked> Σ0 →0x20324
<MI 202f2 MOVE.B D7,D0> {}
<MI 202f4 EXTB.W D0> {}
<MI 202f6 MOVE.W (A6-0x4),D1> {}
<POP 0x202f8 LimitCheck 0x0 ≤ D1 ≤ 0xff> {}
<MI 202fa MOVE.B D1,(A6+D0.W-#0xc)> {}
<MI 202fe BRA 0x20324> {}
<POP 20300-20324 Naked> Σ0 ↓ ←0x202de
<MI 20300 MOVE.B D7,D0> {}
<MI 20302 EXTB.W D0> {}
<MI 20304 CLR.L D1> {}
<MI 20306 MOVE.W (A6-0x4),D1> {}
<MI 20308 DIVU.W #0xa,D1> {}
<MI 2030c CLR.L D2> {}
<MI 2030e MOVE.W D1,D2> {}
<MI 20310 ASL.L #0x4,D2> {}
<MI 20312 SWAP.W D1> {}
<MI 20314 CLR.L D3> {}
<MI 20316 MOVE.W D1,D3> {}
<MI 20318 ADD.L D2,D3> {}
<POP 0x2031a LimitCheck 0x0 ≤ D3 ≤ 0xff> {}
<MI 20320 MOVE.B D3,(A6+D0.W-#0xc)> {}
<POP 20324-2032c Naked> Σ0 ↓ →0x202de ←0x202f2
<MI 20324 ADDQ.B #0x1,D7> {}
<MI 20326 CMPI.B #0x07,D7> {}
<MI 2032a BLE 0x202de> {}
<POP 2032c-20338 Naked> Σ0 ↓
<Pointer.fp 0x2032c <LVAR -0x00c @>> Δ-4 {[@@-12]}
<Call 0x20330 0x10228> {[@@-12]}
KC14_WriteRtc
<POP 20336-20338 StackAdj> Δ+4 {}
<POP 20338-20340 Epilogue> Σ0
@ 20340
<LVAR 0x008 4(r)>
<POP 20340-20388 Body>
<POP 20340-20356 Prologue> Σ0 ↓
<POP 20356-20358 RegCacheLoad> Σ0 ↓
<POP 20358-20380 Naked> Σ0 ↓
<Const 0x20358 0x8.2> Δ-2 {[#8]}
<Const 0x2035a 0x1.2> Δ-2 {[#8]|[#1]}
<Call 0x2035e 0x1020c> {[#8]|[#1]}
KC06_PortPutChar(port : Word ; b : char)
<POP 20364-20366 StackAdj> Δ+2 {[#8]}
<POP 20366-20367 StackAdj> Δ+2 {}
<Const 0x20367 0x8.2> Δ-2 {[#8]}
<MI 20368 MOVE.L (A6+0x8),D0> {[#8]}
<POP 0x2036c LimitCheck 0x0 ≤ D0 ≤ 0xffff> {[#8]}
<MI 20376 MOVE.W D0,-(A7)> Δ-2 {[#8]|[2, 'D0']}
<Call 0x20378 0x1020c> {[#8]|[2, 'D0']}
KC06_PortPutChar(port : Word ; b : char)
<POP 2037e-20380 StackAdj> Δ+4 {}
<POP 20380-20388 Epilogue> Σ0
@ 20388
<LVAR -0x002 @ 2(rw)>
<LVAR -0x004 @ 1(r)>
<POP 20388-2040c Body>
<POP 20388-2039e Prologue> Σ0 ↓
<POP 2039e-203a4 RegCacheLoad> Σ0 ↓
<POP 203a4-203bc Naked> Σ0 ↓ →0x20404
<Const 0x203a4 0x8.2> Δ-2 {[#8]}
<Pointer.fp 0x203a6 <LVAR -0x004 @ 1(r)>> Δ-4 {[#8]|[@@-4]}
<Call 0x203aa 0x10212> {[#8]|[@@-4]}
KC09_PortStatus(Port : Word; VAR b: Byte)
<POP 203b0-203b2 StackAdj> Δ+6 {}
<MI 203b2 MOVE.B (A6-0x4),D0> {}
<MI 203b6 CMPI.B #0x01,D0> {}
<MI 203ba BNE 0x20404> {}
<POP 203bc-203d4 Naked> Σ0 ↓ →0x203fa
<Const 0x203bc 0x8.2> Δ-2 {[#8]}
<Pointer.fp 0x203be <LVAR -0x002 @ 2(rw)>> Δ-4 {[#8]|[@@-2]}
<Call 0x203c0 0x1020e> {[#8]|[@@-2]}
KC07_PortGetChar(port : Word ; VAR ret : Word)
<POP 203c6-203c8 StackAdj> Δ+6 {}
<MI 203c8 ANDI.W #0x00ff,(A6-0x2)> {}
<MI 203cc MOVE.W (A6-0x2),D0> {}
<MI 203ce CMPI.W #0x0004,D0> {}
<MI 203d2 BHI 0x203fa> {}
<POP 203d4-203de Naked> Σ0 →0x203e8 →0x203f2 →0x203f0 →0x203ee →0x203f4
<MI 203d4 ADD.W D0,D0> {}
<MI 203d6 SWITCH D0.W> {}
<POP 203e8-203ee Naked> Σ0 →0x20404 ←0x203d4
<Call 0x203e8 0x2020c> {}
<MI 203ec BRA 0x20404> {}
<POP 203ee-203f0 Naked> Σ0 →0x20404 ←0x203d4
<MI 203ee BRA 0x20404> {}
<POP 203f0-203f2 Naked> Σ0 →0x20404 ←0x203d4
<MI 203f0 BRA 0x20404> {}
<POP 203f2-203f4 Naked> Σ0 →0x20404 ←0x203d4
<MI 203f2 BRA 0x20404> {}
<POP 203f4-203fa Naked> Σ0 →0x20404 ←0x203d4
<Call 0x203f4 0x202bc> {}
<MI 203f8 BRA 0x20404> {}
<POP 203fa-20404 Naked> Σ0 ↓ ←0x203bc
<Const 0x203fa 0x5.4> Δ-4 {[##5]}
<Call 0x203fe 0x20340> {[##5]}
<POP 20402-20404 StackAdj> Δ+4 {}
<POP 20404-2040c Epilogue> Σ0 ←0x203a4 ←0x203e8 ←0x203ee ←0x203f0 ←0x203f2 ←0x203f4
@ 2040c
<LVAR -0x07a 2(r)>
<LVAR -0x07c @ 2(w)>
<LVAR -0x07e @ 2(rw)>
<LVAR -0x080 @ 1(r)>
<POP 2040c-20492 Body>
<POP 2040c-20422 Prologue> Σ0 ↓
<POP 20422-2042e RegCacheLoad> Σ0 ↓
<POP 2042e-20446 Naked> Σ0 ↓ →0x2048a
<Const 0x2042e 0xa.2> Δ-2 {[#10]}
<Pointer.fp 0x20430 <LVAR -0x080 @ 1(r)>> Δ-4 {[#10]|[@@-128]}
<Call 0x20434 0x10212> {[#10]|[@@-128]}
KC09_PortStatus(Port : Word; VAR b: Byte)
<POP 2043a-2043c StackAdj> Δ+6 {}
<MI 2043c MOVE.B (A6-0x80),D0> {}
<MI 20440 CMPI.B #0x01,D0> {}
<MI 20444 BNE 0x2048a> {}
<POP 20446-2045c Naked> Σ0 ↓ →0x2048a
<Const 0x20446 0xa.2> Δ-2 {[#10]}
<Pointer.fp 0x20448 <LVAR -0x07e @ 2(rw)>> Δ-4 {[#10]|[@@-126]}
<Call 0x2044a 0x1020e> {[#10]|[@@-126]}
KC07_PortGetChar(port : Word ; VAR ret : Word)
<POP 20450-20452 StackAdj> Δ+6 {}
<MI 20452 ANDI.W #0x00ff,(A6-0x7e)> {}
<MI 20456 MOVE.W (A6-0x7e),D0> {}
<MI 20458 CMP.W #0x02,D0> {}
<MI 2045a BHI 0x2048a> {}
<POP 2045c-20466 Naked> Σ0 →0x2046c →0x2046e →0x20474
<MI 2045c ADD.W D0,D0> {}
<MI 2045e SWITCH D0.W> {}
<POP 2046c-2046e Naked> Σ0 →0x2048a ←0x2045c
<MI 2046c BRA 0x2048a> {}
<POP 2046e-20474 Naked> Σ0 →0x20478 ←0x2045c
<MI 2046e MOVE.W #0x7,(A6-0x7c)> {}
<MI 20472 BRA 0x20478> {}
<POP 20474-20478 Naked> Σ0 ↓ ←0x2045c
<MI 20474 MOVE.W #0x1e,(A6-0x7c)> {}
<POP 20478-2048a Naked> Σ0 ↓ ←0x2046e
<MI 20478 CLR.W (A6-0x7a)> {}
<Const 0x2047c 0x2.2> Δ-2 {[#2]}
<MI 2047e LEA.L (A6-0x7c),A0> {[#2]}
<MI 20480 MOVE.L A0,-(A7)> Δ-4 {[#2]|[4, 'A0']}
<Call 0x20482 0x103a8> {[#2]|[4, 'A0']}
Write_ERROR_LOG(VAR a : Bool; MOD b : Pointer)
<POP 20488-2048a StackAdj> Δ+6 {}
<POP 2048a-20492 Epilogue> Σ0 ←0x2042e ←0x20446 ←0x2046c
@ 20492
<LVAR 0x008 4(r)>
<POP 20492-204e4 Body>
<POP 20492-204a8 Prologue> Σ0 ↓
<POP 204a8-204ae Naked> Σ0 Δ-4 ↓
<MI 204a8 MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<MI 204ac MOVEQ.L #0x00,D7> {[4, '(A6+0x8)']}
<POP 204ae-204b2 Naked> Σ-4 ↓ →0x204da ←0x204b2
<MI 204ae CMP.L (A7),D7> {[-4-]}
<MI 204b0 BGT 0x204da> {[-4-]}
<POP 204b2-204da Naked> Σ-4 ↓ →0x204ae
<Const 0x204b2 0xb.2> Δ-2 {[-4-]|[#11]}
<POP 0x204b6 LimitCheck 0x0 ≤ D7 ≤ 0x50> {[-4-]|[#11]}
<MI 204c0 LEA.L 0x20e5a,A0> {[-4-]|[#11]}
<MI 204c6 CLR.L D0> {[-4-]|[#11]}
<MI 204c8 MOVE.B (A0+D7.L+#0xc),D0> {[-4-]|[#11]}
<MI 204cc MOVE.W D0,-(A7)> Δ-2 {[-4-]|[#11]|[2, 'D0']}
<Call 0x204ce 0x1020c> {[-4-]|[#11]|[2, 'D0']}
KC06_PortPutChar(port : Word ; b : char)
<POP 204d4-204d6 StackAdj> Δ+4 {[-4-]}
<MI 204d6 ADDQ.L #0x1,D7> {[-4-]}
<MI 204d8 BVC 0x204ae> {[-4-]}
<POP 204da-204dc Naked> Σ-4 Δ+4 ↓ ←0x204ae
<POP 204da-204dc StackAdj> Δ+4 {}
<POP 204dc-204e4 Epilogue> Σ0
@ 204e4
<LVAR 0x00a 4(rw)>
<LVAR 0x008 1(r)>
<POP 204e4-205cc Body>
<POP 204e4-204fa Prologue> Σ0 ↓
<POP 204fa-204fe RegCacheLoad> Σ0 ↓
<POP 204fe-20510 Naked> Σ0 ↓ →0x205c2
<MI 204fe CLR.L D0> {}
<MI 20500 MOVE.B (A6+0x8),D0> {}
<MI 20504 SUBI.W #0x0030,D0> {}
<MI 20508 CMPI.W #0x0016,D0> {}
<MI 2050c BHI 0x205c2> {}
<POP 20510-2051a Naked> Σ0 →0x20548 →0x2054a →0x20552 →0x2055a →0x20562 →0x2056a →0x20572 →0x2057a →0x20582 →0x2058a →0x205c2 →0x205c2 →0x205c2 →0x205c2 →0x205c2 →0x205c2 →0x205c2 →0x20592 →0x2059a →0x205a2 →0x205aa →0x205b2 →0x205ba
<MI 20510 ADD.W D0,D0> {}
<MI 20512 SWITCH D0.W> {}
<POP 20548-2054a Naked> Σ0 →0x205c2 ←0x20510
<MI 20548 BRA 0x205c2> {}
<POP 2054a-20552 Naked> Σ0 →0x205c4 ←0x20510
<MI 2054a MOVE.L #0x1,(A6+0xa)> {}
<MI 20550 BRA 0x205c4> {}
<POP 20552-2055a Naked> Σ0 →0x205c4 ←0x20510
<MI 20552 MOVE.L #0x2,(A6+0xa)> {}
<MI 20558 BRA 0x205c4> {}
<POP 2055a-20562 Naked> Σ0 →0x205c4 ←0x20510
<MI 2055a MOVE.L #0x3,(A6+0xa)> {}
<MI 20560 BRA 0x205c4> {}
<POP 20562-2056a Naked> Σ0 →0x205c4 ←0x20510
<MI 20562 MOVE.L #0x4,(A6+0xa)> {}
<MI 20568 BRA 0x205c4> {}
<POP 2056a-20572 Naked> Σ0 →0x205c4 ←0x20510
<MI 2056a MOVE.L #0x5,(A6+0xa)> {}
<MI 20570 BRA 0x205c4> {}
<POP 20572-2057a Naked> Σ0 →0x205c4 ←0x20510
<MI 20572 MOVE.L #0x6,(A6+0xa)> {}
<MI 20578 BRA 0x205c4> {}
<POP 2057a-20582 Naked> Σ0 →0x205c4 ←0x20510
<MI 2057a MOVE.L #0x7,(A6+0xa)> {}
<MI 20580 BRA 0x205c4> {}
<POP 20582-2058a Naked> Σ0 →0x205c4 ←0x20510
<MI 20582 MOVE.L #0x8,(A6+0xa)> {}
<MI 20588 BRA 0x205c4> {}
<POP 2058a-20592 Naked> Σ0 →0x205c4 ←0x20510
<MI 2058a MOVE.L #0x9,(A6+0xa)> {}
<MI 20590 BRA 0x205c4> {}
<POP 20592-2059a Naked> Σ0 →0x205c4 ←0x20510
<MI 20592 MOVE.L #0xa,(A6+0xa)> {}
<MI 20598 BRA 0x205c4> {}
<POP 2059a-205a2 Naked> Σ0 →0x205c4 ←0x20510
<MI 2059a MOVE.L #0xb,(A6+0xa)> {}
<MI 205a0 BRA 0x205c4> {}
<POP 205a2-205aa Naked> Σ0 →0x205c4 ←0x20510
<MI 205a2 MOVE.L #0xc,(A6+0xa)> {}
<MI 205a8 BRA 0x205c4> {}
<POP 205aa-205b2 Naked> Σ0 →0x205c4 ←0x20510
<MI 205aa MOVE.L #0xd,(A6+0xa)> {}
<MI 205b0 BRA 0x205c4> {}
<POP 205b2-205ba Naked> Σ0 →0x205c4 ←0x20510
<MI 205b2 MOVE.L #0xe,(A6+0xa)> {}
<MI 205b8 BRA 0x205c4> {}
<POP 205ba-205c2 Naked> Σ0 →0x205c4 ←0x20510
<MI 205ba MOVE.L #0xf,(A6+0xa)> {}
<MI 205c0 BRA 0x205c4> {}
<POP 205c2-205c4 Naked> Σ0 ↓ ←0x204fe ←0x20510 ←0x20510 ←0x20510 ←0x20510 ←0x20510 ←0x20510 ←0x20510 ←0x20548
<MI 205c2 CLR.L (A6+0xa)> {}
<POP 205c4-205cc Epilogue> Σ0 ←0x2054a ←0x20552 ←0x2055a ←0x20562 ←0x2056a ←0x20572 ←0x2057a ←0x20582 ←0x2058a ←0x20592 ←0x2059a ←0x205a2 ←0x205aa ←0x205b2 ←0x205ba
@ 205cc
<LVAR 0x00c 1(w)>
<LVAR 0x008 4(rw)>
<POP 205cc-20604 Body>
<POP 205cc-205e2 Prologue> Σ0 ↓
<POP 205e2-205e4 RegCacheLoad> Σ0 ↓
<POP 205e4-205fc Naked> Σ0 ↓
<MI 205e4 AND.L #0x0f,(A6+0x8)> {}
<MI 205e8 MOVE.L (A6+0x8),D0> {}
<POP 0x205ec LimitCheck 0x0 ≤ D0 ≤ 0xf> {}
<MI 205f2 LEA.L 0x201f2,A0> {}
<MI 205f6 MOVE.B (A0+D0.L),(A6+0xc)> {}
<POP 205fc-20604 Epilogue> Σ0
@ 20604
<LVAR 0x008 1(w)>
<POP 20604-2067e Body>
<POP 20604-2061a Prologue> Σ0 ↓
<POP 2061a-2061c RegCacheLoad> Σ0 ↓
<POP 2061c-20628 Naked> Σ0 Δ-4 ↓
<MI 2061c MOVEQ.L #0x01,D5> {}
<Blob 0x2061e [4] 0x20e62> Δ-4 {[«4»]}
<MI 20624 SUBQ.L #0x2,(A7)> {[-4-]}
<MI 20626 MOVEQ.L #0x00,D0> {[-4-]}
<POP 20628-2062c Naked> Σ-4 ↓ →0x20630 ←0x2066c
<MI 20628 CMP.L (A7),D0> {[-4-]}
<MI 2062a BLE 0x20630> {[-4-]}
<POP 2062c-20630 Naked> Σ-4 Δ-4 →0x20670
<POP 2062c-2062e StackAdj> Δ-4 {[-8-]}
<MI 2062e BRA 0x20670> {[-8-]}
<POP 20630-20636 Naked> Σ-4 Δ-4 ↓ ←0x20628
<MI 20630 MOVE.L D0,-(A7)> Δ-4 {[-4-]|[4, 'D0']}
<MI 20632 MOVEQ.L #0x00,D7> {[-4-]|[4, 'D0']}
<MI 20634 MOVEQ.L #0x00,D6> {[-4-]|[4, 'D0']}
<POP 20636-2065c Naked> Σ-8 ↓ →0x2065e ←0x2065e
<POP 0x20636 LimitCheck 0x0 ≤ D6 ≤ 0xf> {[-8-]}
<MI 2063c LEA.L 0x201f2,A0> {[-8-]}
<MI 20640 MOVE.L (A7),D0> {[-8-]}
<POP 0x20642 LimitCheck 0x0 ≤ D0 ≤ 0x50> {[-8-]}
<MI 2064c LEA.L 0x20e5a,A1> {[-8-]}
<MI 20652 MOVE.B (A0+D6.L),D1> {[-8-]}
<MI 20656 CMP.B (A1+D0.L+#0xc),D1> {[-8-]}
<MI 2065a BNE 0x2065e> {[-8-]}
<POP 2065c-2065e Naked> Σ-8 ↓
<MI 2065c MOVEQ.L #0x01,D7> {[-8-]}
<POP 2065e-20664 Naked> Σ-8 ↓ →0x20636 ←0x20636
<MI 2065e ADDQ.L #0x1,D6> {[-8-]}
<MI 20660 CMP.L #0x0f,D6> {[-8-]}
<MI 20662 BLE 0x20636> {[-8-]}
<POP 20664-2066c Naked> Σ-8 ↓ →0x20670
<MI 20664 AND.B D7,D5> {[-8-]}
<MI 20666 MOVE.L (A7),D0> {[-8-]}
<MI 20668 ADDQ.L #0x1,D0> {[-8-]}
<MI 2066a BVS 0x20670> {[-8-]}
<POP 2066c-20670 Naked> Σ-8 Δ+4 →0x20628
<POP 2066c-2066e StackAdj> Δ+4 {[-4-]}
<MI 2066e BRA 0x20628> {[-4-]}
<POP 20670-20676 Naked> Σ-8 Δ+8 ↓ ←0x2062c ←0x20664
<POP 20670-20672 StackAdj> Δ+8 {}
<MI 20672 MOVE.B D5,(A6+0x8)> {}
<POP 20676-2067e Epilogue> Σ0
@ 2067e
<LVAR -0x001 1(rw)>
<LVAR -0x004 @ 2(rw)>
<POP 2067e-2075a Body>
<POP 2067e-20694 Prologue> Σ0 ↓
<POP 20694-2069c RegCacheLoad> Σ0 ↓
<POP 2069c-206a8 Naked> Σ0 ↓ →0x206d8
<MI 2069c MOVEQ.L #0x00,D6> {}
<MI 2069e MOVE.L 0x20e62,D0> {}
<MI 206a4 CMP.L #0x01,D0> {}
<MI 206a6 BLE 0x206d8> {}
<POP 206a8-206ae Naked> Σ0 Δ-4 ↓
<MI 206a8 SUBQ.L #0x2,D0> {}
<MI 206aa MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 206ac MOVEQ.L #0x00,D7> {[4, 'D0']}
<POP 206ae-206b2 Naked> Σ-4 ↓ →0x206d6 ←0x206b2
<MI 206ae CMP.L (A7),D7> {[-4-]}
<MI 206b0 BGT 0x206d6> {[-4-]}
<POP 206b2-206d6 Naked> Σ-4 ↓ →0x206ae
<MI 206b2 ASL.L #0x4,D6> {[-4-]}
<POP 206b4-206b6 StackAdj> Δ-4 {[-8-]}
<POP 0x206b6 LimitCheck 0x0 ≤ D7 ≤ 0x50> {[-8-]}
<MI 206c0 LEA.L 0x20e5a,A0> {[-8-]}
<MI 206c6 MOVE.B (A0+D7.L+#0xc),-(A7)> Δ-2 {[-8-]|[2, '(A0+D7.L+#0xc)']}
<Call 0x206ca 0x204e4> {[-8-]|[2, '(A0+D7.L+#0xc)']}
<POP 206ce-206d0 StackAdj> Δ+2 {[-8-]}
<MI 206d0 ADD.L (A7)+,D6> Δ+4 {[-4-]}
<MI 206d2 ADDQ.L #0x1,D7> {[-4-]}
<MI 206d4 BVC 0x206ae> {[-4-]}
<POP 206d6-206d8 Naked> Σ-4 Δ+4 ↓ ←0x206ae
<POP 206d6-206d8 StackAdj> Δ+4 {}
<POP 206d8-206e0 Naked> Σ0 Δ-4 ↓ ←0x2069c
<Blob 0x206d8 [4] 0x20eb8> Δ-4 {[«4»]}
<MI 206de MOVEQ.L #0x01,D7> {[«4»]}
<POP 206e0-206e4 Naked> Σ-4 ↓ →0x20750 ←0x206e4
<MI 206e0 CMP.L (A7),D7> {[-4-]}
<MI 206e2 BGT 0x20750> {[-4-]}
<POP 206e4-20750 Naked> Σ-4 ↓ →0x206e0
<MI 206e4 MOVE.L D6,-(A7)> Δ-4 {[-4-]|[4, 'D6']}
<MI 206e6 ADD.L D7,(A7)> {[-8-]}
<MI 206e8 SUBQ.L #0x1,(A7)> {[-8-]}
<MI 206ea LEA.L (A6-0x4),A0> {[-8-]}
<MI 206ec MOVE.L A0,-(A7)> Δ-4 {[-8-]|[4, 'A0']}
<MI 206ee ADDQ.L #0x1,(A7)> {[-12-]}
<Const 0x206f0 0x1.2> Δ-2 {[-12-]|[#1]}
<Call 0x206f2 0x10238> {[-12-]|[#1]}
KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
<POP 206f8-206fc StackAdj> Δ+10 {[-4-]}
<MI 206fc ANDI.W #0x00ff,(A6-0x4)> {[-4-]}
<POP 20700-20702 StackAdj> Δ-2 {[-6-]}
<MI 20702 MOVE.W (A6-0x4),D0> {[-6-]}
<MI 20704 LSR.W #0x4,D0> {[-6-]}
<MI 20706 CLR.L D1> {[-6-]}
<MI 20708 MOVE.W D0,D1> {[-6-]}
<MI 2070a MOVE.L D1,-(A7)> Δ-4 {[-6-]|[4, 'D1']}
<Call 0x2070c 0x205cc> {[-6-]|[4, 'D1']}
<POP 20710-20712 StackAdj> Δ+4 {[-6-]}
<MI 20712 MOVE.B (A7),D5> {[-6-]}
<MI 20714 MOVE.W (A6-0x4),D0> {[-6-]}
<MI 20716 ANDI.W #0x000f,D0> {[-6-]}
<MI 2071a CLR.L D1> {[-6-]}
<MI 2071c MOVE.W D0,D1> {[-6-]}
<MI 2071e MOVE.L D1,-(A7)> Δ-4 {[-6-]|[4, 'D1']}
<Call 0x20720 0x205cc> {[-6-]|[4, 'D1']}
<POP 20724-20726 StackAdj> Δ+4 {[-6-]}
<MI 20726 MOVE.B (A7)+,(A6-0x1)> Δ+2 {[-4-]}
<Const 0x2072a 0xb.2> Δ-2 {[-4-]|[#11]}
<MI 2072c CLR.L D0> {[-4-]|[#11]}
<MI 2072e MOVE.B D5,D0> {[-4-]|[#11]}
<MI 20730 MOVE.W D0,-(A7)> Δ-2 {[-4-]|[#11]|[2, 'D0']}
<Call 0x20732 0x1020c> {[-4-]|[#11]|[2, 'D0']}
KC06_PortPutChar(port : Word ; b : char)
<POP 20738-2073a StackAdj> Δ+2 {[-4-]|[#11]}
<POP 2073a-2073b StackAdj> Δ+2 {[-4-]}
<Const 0x2073b 0xb.2> Δ-2 {[-4-]|[#11]}
<MI 2073c CLR.L D0> {[-4-]|[#11]}
<MI 2073e MOVE.B (A6-0x1),D0> {[-4-]|[#11]}
<MI 20742 MOVE.W D0,-(A7)> Δ-2 {[-4-]|[#11]|[2, 'D0']}
<Call 0x20744 0x1020c> {[-4-]|[#11]|[2, 'D0']}
KC06_PortPutChar(port : Word ; b : char)
<POP 2074a-2074c StackAdj> Δ+4 {[-4-]}
<MI 2074c ADDQ.L #0x1,D7> {[-4-]}
<MI 2074e BVC 0x206e0> {[-4-]}
<POP 20750-20752 Naked> Σ-4 Δ+4 ↓ ←0x206e0
<POP 20750-20752 StackAdj> Δ+4 {}
<POP 20752-2075a Epilogue> Σ0
@ 2075a
<POP 2075a-207dc Body>
<POP 2075a-20770 Prologue> Σ0 ↓
<POP 20770-20778 RegCacheLoad> Σ0 ↓
<POP 20778-20784 Naked> Σ0 ↓ →0x207c4
<MI 20778 MOVE.L #0x01,0x20eb8> {}
<MI 2077a MOVE.L 0x20e62,D0> {}
<MI 20780 CMP.L #0x01,D0> {}
<MI 20782 BLE 0x207c4> {}
<POP 20784-2078e Naked> Σ0 ↓ →0x207c4
<POP 20784-20786 StackAdj> Δ-2 {[-2-]}
<Call 0x20786 0x20604> {[-2-]}
<MI 2078a TST.B (A7)+> Δ+2 {}
<MI 2078c BEQ 0x207c4> {}
<POP 2078e-20796 Naked> Σ0 Δ-4 ↓
<MI 2078e CLR.L 0x20eb8> {}
<MI 20790 SUBQ.L #0x2,D0> {}
<MI 20792 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 20794 MOVEQ.L #0x00,D7> {[4, 'D0']}
<POP 20796-2079a Naked> Σ-4 ↓ →0x207c2 ←0x2079a
<MI 20796 CMP.L (A7),D7> {[-4-]}
<MI 20798 BGT 0x207c2> {[-4-]}
<POP 2079a-207c2 Naked> Σ-4 ↓ →0x20796
<MI 2079a MOVE.L 0x20eb8,D0> {[-4-]}
<MI 2079c ASL.L #0x4,D0> {[-4-]}
<POP 2079e-207a0 StackAdj> Δ-4 {[-8-]}
<POP 0x207a0 LimitCheck 0x0 ≤ D7 ≤ 0x50> {[-8-]}
<MI 207aa LEA.L 0x20e5a,A0> {[-8-]}
<MI 207b0 MOVE.B (A0+D7.L+#0xc),-(A7)> Δ-2 {[-8-]|[2, '(A0+D7.L+#0xc)']}
<Call 0x207b4 0x204e4> {[-8-]|[2, '(A0+D7.L+#0xc)']}
<POP 207b8-207ba StackAdj> Δ+2 {[-8-]}
<MI 207ba ADD.L (A7)+,D0> Δ+4 {[-4-]}
<MI 207bc MOVE.L D0,0x20eb8> {[-4-]}
<MI 207be ADDQ.L #0x1,D7> {[-4-]}
<MI 207c0 BVC 0x20796> {[-4-]}
<POP 207c2-207c4 Naked> Σ-4 Δ+4 ↓ ←0x20796
<POP 207c2-207c4 StackAdj> Δ+4 {}
<POP 207c4-207ca Naked> Σ0 ↓ →0x207d2 ←0x20778 ←0x20784
<MI 207c4 MOVE.L 0x20eb8,D0> {}
<MI 207c6 CMP.L #0x01,D0> {}
<MI 207c8 BLT 0x207d2> {}
<POP 207ca-207d2 Naked> Σ0 ↓ →0x207d4
<MI 207ca CMPI.L #0x000003e8,D0> {}
<MI 207d0 BLE 0x207d4> {}
<POP 207d2-207d4 Naked> Σ0 ↓ ←0x207c4
<MI 207d2 MOVE.L #0x01,0x20eb8> {}
<POP 207d4-207dc Epilogue> Σ0 ←0x207ca
@ 207dc
<LVAR -0x00a @ 2(r)>
<LVAR -0x00c @ 1(r)>
<POP 207dc-208aa Body>
<POP 207dc-207f2 Prologue> Σ0 ↓
<POP 207f2-20804 RegCacheLoad> Σ0 ↓
<POP 20804-2081c Naked> Σ0 ↓ →0x208a2 ←0x2089e
<Const 0x20804 0xb.2> Δ-2 {[#11]}
<Pointer.fp 0x20806 <LVAR -0x00c @ 1(r)>> Δ-4 {[#11]|[@@-12]}
<Call 0x2080a 0x10212> {[#11]|[@@-12]}
KC09_PortStatus(Port : Word; VAR b: Byte)
<POP 20810-20812 StackAdj> Δ+6 {}
<MI 20812 MOVE.B (A6-0xc),D0> {}
<MI 20816 CMP.B #0x01,D0> {}
<MI 20818 BNE 0x208a2> {}
<POP 2081c-2084a Naked> Σ0 ↓ →0x20892
<Const 0x2081c 0xb.2> Δ-2 {[#11]}
<Pointer.fp 0x2081e <LVAR -0x00a @ 2(r)>> Δ-4 {[#11]|[@@-10]}
<Call 0x20822 0x1020e> {[#11]|[@@-10]}
KC07_PortGetChar(port : Word ; VAR ret : Word)
<POP 20828-2082a StackAdj> Δ+6 {}
<MI 2082a MOVE.W (A6-0xa),D0> {}
<MI 2082e ANDI.W #0x00ff,D0> {}
<MI 20832 MOVE.B D0,-(A7)> Δ-2 {[2, 'D0']}
<MI 20834 MOVE.B (A7)+,D7> Δ+2 {}
<MI 20836 MOVE.L 0x20e62,D0> {}
<POP 0x20838 LimitCheck 0x0 ≤ D0 ≤ 0x50> {}
<MI 2083e LEA.L 0x20e5a,A0> {}
<MI 20840 MOVE.B D7,(A0+D0.L+#0xc)> {}
<MI 20844 CMPI.B #0x7c,D7> {}
<MI 20848 BNE 0x20892> {}
<POP 2084a-20850 Naked> Σ0 ↓ →0x20852
<MI 2084a MOVE.L 0x20e62,D0> {}
<MI 2084c CMP.L #0x01,D0> {}
<MI 2084e BGE 0x20852> {}
<POP 20850-20852 Naked> Σ0 →0x20886
<MI 20850 BRA 0x20886> {}
<POP 20852-2086c Naked> Σ0 ↓ →0x20886 ←0x2084a
<MI 20852 MOVE.L D0,D1> {}
<MI 20854 SUBQ.L #0x1,D1> {}
<POP 0x20856 LimitCheck 0x0 ≤ D1 ≤ 0x50> {}
<MI 2085c LEA.L 0x20e5a,A0> {}
<MI 2085e CLR.L D2> {}
<MI 20860 MOVE.B (A0+D1.L+#0xc),D2> {}
<MI 20864 SUBI.W #0x0041,D2> {}
<MI 20868 CMP.W #0x01,D2> {}
<MI 2086a BHI 0x20886> {}
<POP 2086c-20876 Naked> Σ0 →0x2087a →0x20880
<MI 2086c ADD.W D2,D2> {}
<MI 2086e SWITCH D2.W> {}
<POP 2087a-20880 Naked> Σ0 →0x2088e ←0x2086c
<Call 0x2087a 0x2067e> {}
<MI 2087e BRA 0x2088e> {}
<POP 20880-20886 Naked> Σ0 →0x2088e ←0x2086c
<Call 0x20880 0x2075a> {}
<MI 20884 BRA 0x2088e> {}
<POP 20886-2088e Naked> Σ0 ↓ ←0x20850 ←0x20852 ←0x20898
<MI 20886 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<Call 0x20888 0x20492> {[4, 'D0']}
<POP 2088c-2088e StackAdj> Δ+4 {}
<POP 2088e-20892 Naked> Σ0 →0x2089e ←0x2087a ←0x20880
<MI 2088e CLR.L 0x20e62> {}
<MI 20890 BRA 0x2089e> {}
<POP 20892-20898 Naked> Σ0 ↓ →0x2089a ←0x2081c
<MI 20892 MOVE.L 0x20e62,D0> {}
<MI 20894 CMP.L #0x50,D0> {}
<MI 20896 BNE 0x2089a> {}
<POP 20898-2089a Naked> Σ0 →0x20886
<MI 20898 BRA 0x20886> {}
<POP 2089a-2089e Naked> Σ0 ↓ ←0x20892
<MI 2089a ADDQ.L #0x1,D0> {}
<MI 2089c MOVE.L D0,0x20e62> {}
<POP 2089e-208a2 Naked> Σ0 →0x20804 ←0x2088e
<MI 2089e BRA 0x20804> {}
<POP 208a2-208aa Epilogue> Σ0 ←0x20804
@ 208aa
<LVAR 0x00a 4(w)>
<LVAR 0x008 1(r)>
<LVAR -0x006 @ 4(rw)>
<POP 208aa-20a0a Body> Δ+82
<POP 208aa-208c0 Prologue> Σ0 ↓
<POP 208c0-208d4 RegCacheLoad> Σ0 ↓
<POP 208d4-208f4 Naked> Σ0 →0x20908 →0x20930 →0x20958 →0x20968 →0x20984 →0x2099a →0x209a4 →0x209b2 →0x209d2 →0x209e0
<Pointer.fp 0x208d4 <LVAR -0x006 @ 4(rw)>> Δ-4 {[@@-6]}
<Call 0x208d6 0x102b8> {[@@-6]}
NewString(VAR a : String)
<POP 208dc-208de StackAdj> Δ+4 {}
<MI 208de MOVE.B (A6+0x8),D0> {}
<MI 208e2 EXTB.W D0> {}
<POP 0x208e4 LimitCheck 0x0 ≤ D0 ≤ 0x9> {}
<MI 208ea ADD.W D0,D0> {}
<MI 208ec SWITCH D0.W> {}
<POP 20908-20930 Naked> Σ0 →0x209fe ←0x208d4
<Blob 0x20908 [14] @> Δ-14 {[«14""»]}
<POP 20918-2091a StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x2091a 13> {[«14""»]|[$$ES_NOT_UNIQUE]}
<MI 20928 MOVE.L (A7)+,(A6-0x6)> Δ+4 {[«14""»]}
<POP 2092a-2092c StackAdj> Δ+14 {}
<MI 2092c BRA 0x209fe> {}
<POP 20930-2094c Naked> Σ0 Δ-20 ↓ ←0x208d4
<Blob 0x20930 [8] @> Δ-8 {[«8""»]}
<POP 20940-20942 StackAdj> Δ-4 {[«8""»]|[-4-]}
<Pointer.sp 0x20942 4> Δ-4 {[«8""»]|[-4-]|[^^4]}
<Const 0x20946 0x1.2> Δ-2 {[«8""»]|[-4-]|[^^4]|[#1]}
<Const 0x20948 0x7.2> Δ-2 {[«8""»]|[-4-]|[^^4]|[#1]|[#7]}
<POP 2094c-20958 Naked> Σ-20 Δ+20 →0x209fe ←0x2098c
<Call 0x2094c 0x102c4> {[-20-]}
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 2094e-20950 StackAdj> Δ+8 {[-12-]}
<MI 20950 MOVE.L (A7)+,(A6-0x6)> Δ+4 {[-8-]}
<POP 20952-20954 StackAdj> Δ+8 {}
<MI 20954 BRA 0x209fe> {}
<POP 20958-20968 Naked> Σ0 Δ-10 →0x209ec ←0x208d4
<Blob 0x20958 [10] @> Δ-10 {[«10""»]}
<MI 20964 BRA 0x209ec> {[«10""»]}
<POP 20968-20984 Naked> Σ0 Δ-22 →0x209f6 ←0x208d4
<Blob 0x20968 [10] @> Δ-10 {[«10""»]}
<POP 20978-2097a StackAdj> Δ-4 {[«10""»]|[-4-]}
<Pointer.sp 0x2097a 4> Δ-4 {[«10""»]|[-4-]|[^^4]}
<Const 0x2097e 0x1.2> Δ-2 {[«10""»]|[-4-]|[^^4]|[#1]}
<Const 0x20980 0x9.2> Δ-2 {[«10""»]|[-4-]|[^^4]|[#1]|[#9]}
<MI 20982 BRA 0x209f6> {[«10""»]|[-4-]|[^^4]|[#1]|[#9]}
<POP 20984-2098c Naked> Σ0 Δ-8 ↓ ←0x208d4
<Blob 0x20984 [4] @> Δ-4 {[«4""»]}
<Blob 0x20988 [4] @> Δ-4 {[«4""»]|[«4""»]}
<POP 2098c-2099a Naked> Σ-8 Δ-12 →0x2094c ←0x2099a
<POP 2098c-2098e StackAdj> Δ-4 {[-12-]}
<Pointer.sp 0x2098e 4> Δ-4 {[-12-]|[^^4]}
<Const 0x20992 0x1.2> Δ-2 {[-12-]|[^^4]|[#1]}
<Const 0x20994 0x8.2> Δ-2 {[-12-]|[^^4]|[#1]|[#8]}
<MI 20998 BRA 0x2094c> {[-12-]|[^^4]|[#1]|[#8]}
<POP 2099a-209a4 Naked> Σ0 Δ-8 →0x2098c ←0x208d4
<Blob 0x2099a [4] @> Δ-4 {[«4""»]}
<Blob 0x2099e [4] @> Δ-4 {[«4""»]|[«4""»]}
<MI 209a2 BRA 0x2098c> {[«4""»]|[«4""»]}
<POP 209a4-209b2 Naked> Σ0 Δ-10 →0x209ec ←0x208d4
<Blob 0x209a4 [10] @> Δ-10 {[«10""»]}
<MI 209b0 BRA 0x209ec> {[«10""»]}
<POP 209b2-209be Naked> Σ0 Δ-12 ↓ ←0x208d4
<Blob 0x209b2 [4] @> Δ-4 {[«4""»]}
<Blob 0x209b6 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x209ba [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<POP 209be-209d2 Naked> Σ-12 Δ+12 →0x209fe ←0x209d2
<POP 209be-209c0 StackAdj> Δ-4 {[-16-]}
<Lit 0x209c0> {[-12-]|[$$…]}
<Pointer.sp 0x209c0 4> Δ-4
<Const 0x209c4 0x1.2> Δ-2
<Const 0x209c6 0xc.2> Δ-2
<Call 0x209c8 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 209ca-209cc StackAdj> Δ+8
<MI 209cc MOVE.L (A7)+,(A6-0x6)> Δ+4 {[-12-]}
<POP 209ce-209d0 StackAdj> Δ+12 {}
<MI 209d0 BRA 0x209fe> {}
<POP 209d2-209e0 Naked> Σ0 Δ-12 →0x209be ←0x208d4
<Blob 0x209d2 [4] @> Δ-4 {[«4""»]}
<Blob 0x209d6 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x209da [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<MI 209de BRA 0x209be> {[«4""»]|[«4""»]|[«4""»]}
<POP 209e0-209ec Naked> Σ0 Δ-10 ↓ ←0x208d4
<Blob 0x209e0 [10] @> Δ-10 {[«10""»]}
<POP 209ec-209f6 Naked> Σ-10 Δ-12 ↓ ←0x20958 ←0x209a4
<POP 209ec-209ee StackAdj> Δ-4 {[-14-]}
<Pointer.sp 0x209ee 4> Δ-4 {[-14-]|[^^4]}
<Const 0x209f2 0x1.2> Δ-2 {[-14-]|[^^4]|[#1]}
<Const 0x209f4 0xa.2> Δ-2 {[-14-]|[^^4]|[#1]|[#10]}
<POP 209f6-209fe Naked> Σ-22 Δ+22 ↓ ←0x20968
<Call 0x209f6 0x102c4> {[-22-]}
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 209f8-209fa StackAdj> Δ+8 {[-14-]}
<MI 209fa MOVE.L (A7)+,(A6-0x6)> Δ+4 {[-10-]}
<POP 209fc-209fe StackAdj> Δ+10 {}
<POP 209fe-20a02 Naked> Σ0 ↓ ←0x20908 ←0x2094c ←0x209be
<MI 209fe MOVE.L (A6-0x6),(A6+0xa)> {}
<POP 20a02-20a0a Epilogue> Σ0
@ 20a0a
<LVAR 0x00c 4(r)>
<LVAR 0x00a 1(r)>
<LVAR 0x008 1(r)>
<LVAR -0x004 @ 1(rw)>
<POP 20a0a-20b58 Body>
<POP 20a0a-20a20 Prologue> Σ0 ↓
<POP 20a20-20a30 RegCacheLoad> Σ0 ↓
<POP 20a30-20a64 Naked> Σ0 ↓
<Call 0x20a30 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x20a36 [40] @> Δ-40 {[«40""»]}
<POP 20a48-20a4a StackAdj> Δ-4 {[«40""»]|[-4-]}
<Lit 0x20a4a 39> {[«40""»]|[$$***************************************]}
<Call 0x20a58 0x103e0> {[«40""»]|[$$***************************************]}
WriteConsoleStringCrLf(str : String)
<POP 20a5e-20a62 StackAdj> Δ+44 {}
<MI 20a62 MOVEQ.L #0x00,D7> {}
<POP 20a64-20a80 Naked> Σ0 ↓ →0x20b48 ←0x20b48
<POP 0x20a64 LimitCheck 0x0 ≤ D7 ≤ 0x8> {}
<POP 20a6a-20a6c StackAdj> Δ-2 {[-2-]}
<MI 20a6c LEA.L 0x20202,A0> {[-2-]}
<MI 20a6e MOVE.B (A0+D7.L),-(A7)> Δ-2 {[-2-]|[2, '(A0+D7.L)']}
<Call 0x20a72 0x104c0> {[-2-]|[2, '(A0+D7.L)']}
HasBoard(diproc_addr: Byte) : Byte
<POP 20a78-20a7a StackAdj> Δ+2 {[-2-]}
<MI 20a7a TST.B (A7)+> Δ+2 {}
<MI 20a7c BEQ 0x20b48> {}
<POP 20a80-20a86 Naked> Σ0 ↓ →0x20a94
<MI 20a80 CMP.L (A6+0xc),D7> {}
<MI 20a84 BNE 0x20a94> {}
<POP 20a86-20a94 Naked> Σ0 →0x20ab0
<MI 20a86 MOVE.B (A6+0xa),(A6-0x4)> {}
<MI 20a8c MOVE.B (A6+0x8),(A4+0x5)> {}
<MI 20a92 BRA 0x20ab0> {}
<POP 20a94-20ab0 Naked> Σ0 ↓ ←0x20a80
<MI 20a94 LEA.L 0x20202,A0> {}
<MI 20a96 MOVE.B (A0+D7.L),-(A7)> Δ-2 {[2, '(A0+D7.L)']}
<Pointer.fp 0x20a9a <LVAR -0x004 @ 1(rw)>> Δ-4 {[2, '(A0+D7.L)']|[@@-4]}
<MI 20a9e PEA.L (A4+0x5)> Δ-4 {[2, '(A0+D7.L)']|[@@-4]|[4, '^(A4+0x5)']}
<MI 20aa2 PEA.L (A4+0x6)> Δ-4 {[2, '(A0+D7.L)']|[@@-4]|[4, '^(A4+0x5)']|[4, '^(A4+0x6)']}
<Call 0x20aa6 0x10484> {[2, '(A0+D7.L)']|[@@-4]|[4, '^(A4+0x5)']|[4, '^(A4+0x6)']}
DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool)
<POP 20aac-20ab0 StackAdj> Δ+14 {}
<POP 20ab0-20ab6 Naked> Σ0 ↓ →0x20af0 ←0x20a86
<MI 20ab0 TST.B (A4+0x5)> {}
<MI 20ab4 BEQ 0x20af0> {}
<POP 20ab6-20af0 Naked> Σ0 ↓
<Blob 0x20ab6 [30] @> Δ-30 {[«30""»]}
<POP 20ac2-20ac4 StackAdj> Δ-8 {[«30""»]|[-8-]}
<MI 20ac4 LEA.L 0x20202,A0> {[«30""»]|[-8-]}
<MI 20ac6 MOVE.B (A0+D7.L),-(A7)> Δ-2 {[«30""»]|[-8-]|[2, '(A0+D7.L)']}
<Call 0x20aca 0x1049c> {[«30""»]|[-8-]|[2, '(A0+D7.L)']}
BoardName(address : B) : String
<POP 20ad0-20ad2 StackAdj> Δ-2 {[«30""»]|[-8-]|[2, '(A0+D7.L)']|[-2-]}
<Lit 0x20ad2 30> {[«30""»]|[-8-]|[$$ has detected a machine check.]}
<Call 0x20ade 0x102d0> {[«30""»]|[-8-]|[$$ has detected a machine check.]}
StringCat2(a, b : String) : String
<POP 20ae4-20ae6 StackAdj> Δ+8 {[«30""»]|[-4-]}
<Call 0x20ae6 0x103e0> {[«30""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 20aec-20af0 StackAdj> Δ+34 {}
<POP 20af0-20af8 Naked> Σ0 ↓ →0x20b48 ←0x20ab0
<MI 20af0 MOVE.B (A6-0x4),D0> {}
<MI 20af4 CMP.B #0x01,D0> {}
<MI 20af6 BEQ 0x20b48> {}
<POP 20af8-20b48 Naked> Σ0 ↓
<Blob 0x20af8 [26] @> Δ-26 {[«26""»]}
<POP 20b0a-20b0c StackAdj> Δ-8 {[«26""»]|[-8-]}
<MI 20b0c LEA.L 0x20202,A0> {[«26""»]|[-8-]}
<MI 20b0e MOVE.B (A0+D7.L),-(A7)> Δ-2 {[«26""»]|[-8-]|[2, '(A0+D7.L)']}
<Call 0x20b12 0x1049c> {[«26""»]|[-8-]|[2, '(A0+D7.L)']}
BoardName(address : B) : String
<POP 20b18-20b1a StackAdj> Δ-2 {[«26""»]|[-8-]|[2, '(A0+D7.L)']|[-2-]}
<Lit 0x20b1a 25> {[«26""»]|[-8-]|[$$ responds to poll with :_]}
<POP 20b26-20b28 StackAdj> Δ-4 {[«26""»]|[-8-]|[$$ responds to poll with :_]|[-4-]}
<MI 20b28 EXTB.W D0> {[«26""»]|[-8-]|[$$ responds to poll with :_]|[-4-]}
<POP 0x20b2a LimitCheck 0x0 ≤ D0 ≤ 0x9> {[«26""»]|[-8-]|[$$ responds to poll with :_]|[-4-]}
<MI 20b2e MOVE.B D0,-(A7)> Δ-2 {[«26""»]|[-8-]|[$$ responds to poll with :_]|[-4-]|[2, 'D0']}
<Call 0x20b30 0x208aa> {[«26""»]|[-8-]|[$$ responds to poll with :_]|[-4-]|[2, 'D0']}
<POP 20b34-20b36 StackAdj> Δ+2 {[«26""»]|[-8-]|[$$ responds to poll with :_]|[-4-]}
<Call 0x20b36 0x102d4> {[«26""»]|[-8-]|[$$ responds to poll with :_]|[-4-]}
StringCat3(a, b, c : String) : String
<POP 20b3c-20b40 StackAdj> Δ+12 {[«26""»]|[-4-]}
<Call 0x20b40 0x103e0> {[«26""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 20b46-20b48 StackAdj> Δ+30 {}
<POP 20b48-20b50 Naked> Σ0 ↓ →0x20a64 ←0x20a64 ←0x20af0
<MI 20b48 ADDQ.L #0x1,D7> {}
<MI 20b4a CMP.L #0x08,D7> {}
<MI 20b4c BLE 0x20a64> {}
<POP 20b50-20b58 Epilogue> Σ0
@ 20b58
<LVAR -0x002 @>
<LVAR -0x003 @ 1(r)>
<LVAR -0x004 @ 1(r)>
<LVAR -0x008 @>
<POP 20b58-20bf4 Body>
<POP 20b58-20b6e Prologue> Σ0 ↓
<POP 20b6e-20b7a RegCacheLoad> Σ0 ↓
<POP 20b7a-20b7c Naked> Σ0 ↓
<MI 20b7a MOVEQ.L #0x00,D7> {}
<POP 20b7c-20b98 Naked> Σ0 ↓ →0x20be6 ←0x20be6
<POP 0x20b7c LimitCheck 0x0 ≤ D7 ≤ 0x8> {}
<POP 20b82-20b84 StackAdj> Δ-2 {[-2-]}
<MI 20b84 LEA.L 0x20202,A0> {[-2-]}
<MI 20b88 MOVE.B (A0+D7.L),-(A7)> Δ-2 {[-2-]|[2, '(A0+D7.L)']}
<Call 0x20b8c 0x104c0> {[-2-]|[2, '(A0+D7.L)']}
HasBoard(diproc_addr: Byte) : Byte
<POP 20b92-20b94 StackAdj> Δ+2 {[-2-]}
<MI 20b94 TST.B (A7)+> Δ+2 {}
<MI 20b96 BEQ 0x20be6> {}
<POP 20b98-20bb6 Naked> Σ0 ↓ →0x20bbc
<MI 20b98 LEA.L 0x20202,A0> {}
<MI 20b9c MOVE.B (A0+D7.L),-(A7)> Δ-2 {[2, '(A0+D7.L)']}
<Pointer.fp 0x20ba0 <LVAR -0x004 @ 1(r)>> Δ-4 {[2, '(A0+D7.L)']|[@@-4]}
<Pointer.fp 0x20ba2 <LVAR -0x003 @ 1(r)>> Δ-4 {[2, '(A0+D7.L)']|[@@-4]|[@@-3]}
<Pointer.fp 0x20ba4 <LVAR -0x002 @>> Δ-4 {[2, '(A0+D7.L)']|[@@-4]|[@@-3]|[@@-2]}
<Call 0x20ba8 0x10484> {[2, '(A0+D7.L)']|[@@-4]|[@@-3]|[@@-2]}
DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool)
<POP 20bae-20bb2 StackAdj> Δ+14 {}
<MI 20bb2 TST.B (A6-0x3)> {}
<MI 20bb4 BNE 0x20bbc> {}
<POP 20bb6-20bbc Naked> Σ0 ↓ →0x20be6
<MI 20bb6 MOVE.B (A6-0x4),D0> {}
<MI 20bb8 CMP.B #0x01,D0> {}
<MI 20bba BEQ 0x20be6> {}
<POP 20bbc-20be6 Naked> Σ0 ↓ ←0x20b98
<MI 20bbc MOVE.L D7,-(A7)> Δ-4 {[4, 'D7']}
<MI 20bbe MOVE.B (A6-0x4),D0> {[4, 'D7']}
<MI 20bc0 EXTB.W D0> {[4, 'D7']}
<POP 0x20bc2 LimitCheck 0x0 ≤ D0 ≤ 0x9> {[4, 'D7']}
<MI 20bc6 MOVE.B D0,-(A7)> Δ-2 {[4, 'D7']|[2, 'D0']}
<MI 20bc8 MOVE.B (A6-0x3),D0> {[4, 'D7']|[2, 'D0']}
<MI 20bca EXTB.W D0> {[4, 'D7']|[2, 'D0']}
<POP 0x20bcc LimitCheck 0x0 ≤ D0 ≤ 0x1> {[4, 'D7']|[2, 'D0']}
<MI 20bce MOVE.B D0,-(A7)> Δ-2 {[4, 'D7']|[2, 'D0']|[2, 'D0']}
<MI 20bd0 LEA.L (A6-0x8),A4> {[4, 'D7']|[2, 'D0']|[2, 'D0']}
<Call 0x20bd4 0x20a0a> {[4, 'D7']|[2, 'D0']|[2, 'D0']}
<POP 20bd8-20bda StackAdj> Δ+6 {[-2-]}
<POP 20bda-20bdb StackAdj> Δ+2 {}
<Const 0x20bdb 0xc.2> Δ-2 {[#12]}
<Call 0x20bde 0x105da> {[#12]}
Set_fc01(a : Byte)
<POP 20be4-20be6 StackAdj> Δ+2 {}
<POP 20be6-20bec Naked> Σ0 ↓ →0x20b7c ←0x20b7c ←0x20bb6
<MI 20be6 ADDQ.L #0x1,D7> {}
<MI 20be8 CMP.L #0x08,D7> {}
<MI 20bea BLE 0x20b7c> {}
<POP 20bec-20bf4 Epilogue> Σ0
@ 20bf4
<POP 20bf4-20c1a Body>
<POP 20bf4-20c06 Prologue> Σ0 ↓
<POP 20c06-20c16 Naked> Σ0 ↓
<MI 20c06 CLR.L 0x20e62> {}
<MI 20c0c MOVE.L #0x1,0x20eb8> {}
<POP 20c16-20c1a Epilogue> Σ0
@ 20c1a
START
<POP 20c1a--0001 Body>
<POP 20c1a-20c24 Prologue> Σ0
<POP 20c24-20c2e Naked> Σ0 ↓
<Call 0x20c24 0x10398> {}
FSCALL_10398
<Call 0x20c2a 0x20bf4> {}
<POP 20c2e-20c4c Naked> Σ0 ↓ ←0x20c4c
<Call 0x20c2e 0x20388> {}
<Call 0x20c32 0x2040c> {}
<Call 0x20c36 0x207dc> {}
<Call 0x20c3a 0x20b58> {}
<Const 0x20c3e 0x9896.4> Δ-4 {[##39062]}
<Call 0x20c44 0x10224> {[##39062]}
KC12_Sleep(dur: Long)
<POP 20c4a-20c4c StackAdj> Δ+4 {}
<POP 20c4c-20c4e Naked> Σ0 →0x20c2e
<MI 20c4c BRA 0x20c2e> {}
@ 20c62
PROG_FAIL
<LVAR 0x008 1(r)>
<POP 20c62-20cca Body>
<POP 20c62-20c78 Prologue> Σ0 ↓
<POP 20c78-20cc2 Naked> Σ0 ↓
<Blob 0x20c78 [14] @> Δ-14 {[«14""»]}
<Const 0x20c84 0x3.2> Δ-2 {[«14""»]|[#3]}
<POP 20c88-20c8a StackAdj> Δ-8 {[«14""»]|[#3]|[-8-]}
<Lit 0x20c8a 14> {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
<POP 20c9c-20c9e StackAdj> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 20c9e MOVE.B (A6+0x8),D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 20ca2 EXTB.W D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 20ca4 EXTW.L D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 20ca6 MOVE.L D0,-(A7)> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
<Call 0x20ca8 0x102e4> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 20cae-20cb0 StackAdj> Δ+4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<Call 0x20cb0 0x102d0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 20cb6-20cb8 StackAdj> Δ+8 {[«14""»]|[#3]|[-4-]}
<Call 0x20cb8 0x103b8> {[«14""»]|[#3]|[-4-]}
PopProgram(status : Byte; msg : String)
<POP 20cbe-20cc2 StackAdj> Δ+20 {}
<POP 20cc2-20cca Epilogue> Σ0
@ 20d1e
EXP_FAIL
<LVAR 0x00e 1(r)>
<LVAR 0x00a 4(r)>
<LVAR 0x008 1(r)>
<POP 20d1e-20e5a Body>
<POP 20d1e-20d34 Prologue> Σ0 ↓
<POP 20d34-20d4a RegCacheLoad> Σ0 ↓
<POP 20d4a-20daa Naked> Σ0 ↓ →0x20df2
<Call 0x20d4a 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x20d50 [18] @> Δ-18 {[«18""»]}
<POP 20d5c-20d5e StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x20d5e 18> {[«18""»]|[$$Experiment error :]}
<Call 0x20d6a 0x103e0> {[«18""»]|[$$Experiment error :]}
WriteConsoleStringCrLf(str : String)
<POP 20d6c-20d6d StackAdj> Δ+22 ↓ {}
<Blob 0x20d6d [14] @> Δ-14 {[«14""»]}
<POP 20d7c-20d7e StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x20d7e 13> {[«14""»]|[-4-]|[$$Board :_]}
<POP 20d88-20d8a StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<MI 20d8a MOVE.B (A6+0xe),(A7)> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<Call 0x20d8e 0x1049c> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
BoardName(address : B) : String
<POP 20d94-20d96 StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
<Call 0x20d96 0x102d0> {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 20d9c-20d9e StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x20d9e 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 20da0-20da2 StackAdj> Δ+18 {}
<MI 20da2 MOVEA.L (A6+0xa),A0> {}
<MI 20da6 CMPA.W #0x01,A0> {}
<MI 20da8 BEQ 0x20df2> {}
<POP 20daa-20df2 Naked> Σ0 ↓
<Blob 0x20daa [14] @> Δ-14 {[«14""»]}
<Blob 0x20dba [30] (A0+0xfc)> Δ-30 {[«14""»]|[«30»]}
<POP 20dca-20dcc StackAdj> Δ-8 {[«14""»]|[«30»]|[-8-]}
<Lit 0x20dcc 13> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
<POP 20dd6-20dd8 StackAdj> Δ-4 {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
<Lit 0x20dd8> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
<Pointer.sp 0x20dd8 12> Δ-4
<Const 0x20ddc 0x1.2> Δ-2
<Const 0x20dde 0x1e.2> Δ-2
<Call 0x20de0 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 20de2-20de4 StackAdj> Δ+8
<Call 0x20de4 0x102d0> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
StringCat2(a, b : String) : String
<POP 20dea-20dec StackAdj> Δ+8 {[«14""»]|[«30»]|[-4-]}
<Call 0x20dec 0x103e0> {[«14""»]|[«30»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 20dee-20df2 StackAdj> Δ+48 {}
<POP 20df2-20e52 Naked> Σ0 ↓ ←0x20d4a
<Blob 0x20df2 [14] @> Δ-14 {[«14""»]}
<POP 20e02-20e04 StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x20e04 13> {[«14""»]|[-4-]|[$$Status :_]}
<POP 20e0e-20e10 StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<MI 20e10 MOVE.B (A6+0x8),(A7)> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<Call 0x20e14 0x104a2> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
ExpStatus2Text(status.B, &String)
<POP 20e1a-20e1c StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
<Call 0x20e1c 0x102d0> {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 20e22-20e24 StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x20e24 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 20e26-20e27 StackAdj> Δ+18 ↓ {}
<Blob 0x20e27 [24] @> Δ-24 {[«24""»]}
<Const 0x20e36 0x2.2> Δ-2 {[«24""»]|[#2]}
<POP 20e3a-20e3c StackAdj> Δ-4 {[«24""»]|[#2]|[-4-]}
<Lit 0x20e3c 23> {[«24""»]|[#2]|[$$Fatal experiment error.]}
<Call 0x20e4a 0x103b8> {[«24""»]|[#2]|[$$Fatal experiment error.]}
PopProgram(status : Byte; msg : String)
<POP 20e50-20e52 StackAdj> Δ+30 {}
<POP 20e52-20e5a Epilogue> Σ0
00020000 ; -------------------------------------------------------------------------------------- 00020000 ; R1000.Disassembly modules: 00020000 ; import all 00020000 ; import kind.program 00020000 ; no ident.ad7dd5c38aac2b72 00020000 ; -------------------------------------------------------------------------------------- 00020000 stack.top: 00020000 00 04 00 00 | | .CODE 0x40000 ; STACK.END 00020004 00 02 0c 1a | | .CODE START 00020008 00 01 02 88 | | .CODE FSCALL_10288 0002000c heap.top: 0002000c 00 02 0e ce | | .PTR 0x20ece 00020010 code.end: 00020010 00 02 0e 5a | Z | .PTR 0x20e5a 00020014 00 00 00 00 | | .CONST 0x00000000 00020018 programfailurehandler: 00020018 00 02 0c 62 | b | .CODE PROG_FAIL 0002001c experimentfailurehandler: 0002001c 00 02 0d 1e | | .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 4d 4f |@(#)MO | .XXX[0x6] 00020110 4e 49 54 4f 52 2c 31 2e |NITOR,1.| .XXX[0x18] 00020118 32 2c 39 32 2f 30 32 2f |2,92/02/| 00020120 31 39 2c 31 32 3a 33 34 |19,12:34| 00020128 3a 35 36 5c |:56\ | .XXX[0x4] 0002012c 45 53 5f 4e 4f 54 5f 55 |ES_NOT_U| .TXT 'ES_NOT_UNIQUE ' 0002013a 45 53 5f 44 4f 4e 45 20 |ES_DONE | .TXT 'ES_DONE ' 00020142 45 53 5f 4c 4f 4f 50 49 |ES_LOOPI| .TXT 'ES_LOOPING' 0002014c 45 53 5f 50 41 55 53 45 |ES_PAUSE| .TXT 'ES_PAUSED ' 00020156 45 53 5f 45 |ES_E | .TXT 'ES_E' 0002015a 52 52 4f 52 |RROR | .TXT 'RROR' 0002015e 45 53 5f 52 |ES_R | .TXT 'ES_R' 00020162 45 53 45 54 |ESET | .TXT 'ESET' 00020166 45 53 5f 52 55 4e 4e 49 |ES_RUNNI| .TXT 'ES_RUNNING' 00020170 45 53 5f 52 |ES_R | .TXT 'ES_R' 00020174 45 53 45 52 |ESER | .TXT 'ESER' 00020178 56 45 44 31 |VED1 | .TXT 'VED1' 0002017c 45 53 5f 52 |ES_R | .TXT 'ES_R' 00020180 45 53 45 52 |ESER | .TXT 'ESER' 00020184 56 45 44 32 |VED2 | .TXT 'VED2' 00020188 45 53 5f 54 49 4d 45 4f |ES_TIMEO| .TXT 'ES_TIMEOUT' 00020192 20 68 61 73 20 64 65 74 | has det| .TXT ' has detected a machine check.' 000201b0 20 72 65 73 70 6f 6e 64 | respond| .TXT ' responds to poll with :_ ' 000201ca 2a 2a 2a 2a 2a 2a 2a 2a |********| .TXT '*************************************** ' 000201f2 30 31 32 33 34 35 |012345 | .XXX[0x6] 000201f8 36 37 38 39 41 42 43 44 |6789ABCD| .XXX[0x10] 00020200 45 46 04 07 06 02 03 0c |EF | 00020208 0d 0e 0f 00 | | .XXX[0x4] 0002020c ; -------------------------------------------------------------------------------------- 0002020c ; OMSI PASCAL Function 0002020c ; <LVAR -0x003 1(r)> 0002020c ; <LVAR -0x004 1(r) 2(r)> 0002020c ; <LVAR -0x006 @ 2(r)> 0002020c ; <LVAR -0x00c 2(w)> 0002020c ; <LVAR -0x00e 2(w)> 0002020c ; <LVAR -0x010 2(w)> 0002020c ; <LVAR -0x012 2(w)> 0002020c ; <LVAR -0x014 2(w)> 0002020c ; <LVAR -0x016 2(w)> 0002020c ; <LVAR -0x018 2(w)> 0002020c ; <LVAR -0x01a 2(w)> 0002020c ; <LVAR -0x01c 2(r)> 0002020c ; -------------------------------------------------------------------------------------- 0002020c 4e 56 ff c8 |NV | LINK.W A6,#0xffc8 00020210 bf d5 | | CMPA.L (A5),A7 00020212 62 06 |b | BHI 0x2021a 00020214 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020218 4e 76 |Nv | TRAPV 0002021a de fc 00 1c | | ADDA.W #0x1c,A7 0002021e 48 e7 c1 80 |H | MOVEM.L A0+D7+D1+D0,-(A7) 00020222 41 ee ff fa |A | LEA.L (A6-0x6),A0 00020226 72 08 |r | MOVEQ.L #0x08,D1 00020228 48 50 |HP | PEA.L (A0) 0002022a 4e b9 00 01 03 04 |N | JSR GetRtc() : TimeStamp 00020230 58 4f |XO | ADDQ.L #0x4,A7 00020232 42 6e ff e4 |Bn | CLR.W (A6-0x1c) 00020236 42 80 |B | CLR.L D0 00020238 10 2e ff fc | . | MOVE.B (A6-0x4),D0 0002023c e2 08 | | LSR.B #0x1,D0 0002023e 3d 40 ff e6 |=@ | MOVE.W D0,(A6-0x1a) 00020242 30 2e ff fc |0. | MOVE.W (A6-0x4),D0 00020246 ef 48 | H | LSL.W #0x7,D0 00020248 e0 48 | H | LSR.W #0x8,D0 0002024a e8 48 | H | LSR.W #0x4,D0 0002024c 3d 40 ff e8 |=@ | MOVE.W D0,(A6-0x18) 00020250 42 80 |B | CLR.L D0 00020252 10 2e ff fd | . | MOVE.B (A6-0x3),D0 00020256 e7 08 | | LSL.B #0x3,D0 00020258 e6 08 | | LSR.B #0x3,D0 0002025a 3d 40 ff ea |=@ | MOVE.W D0,(A6-0x16) 0002025e 30 10 |0 | MOVE.W (A0),D0 00020260 e0 48 | H | LSR.W #0x8,D0 00020262 ee 48 | H | LSR.W #0x7,D0 00020264 02 40 00 01 | @ | ANDI.W #0x0001,D0 00020268 3d 40 ff ec |=@ | MOVE.W D0,(A6-0x14) 0002026c 30 10 |0 | MOVE.W (A0),D0 0002026e ee 48 | H | LSR.W #0x7,D0 00020270 02 40 00 ff | @ | ANDI.W #0x00ff,D0 00020274 3d 40 ff ee |=@ | MOVE.W D0,(A6-0x12) 00020278 42 80 |B | CLR.L D0 0002027a 30 10 |0 | MOVE.W (A0),D0 0002027c e3 80 | | ASL.L #0x1,D0 0002027e 02 80 00 00 00 ff | | ANDI.L #0x000000ff,D0 00020284 3d 40 ff f0 |=@ | MOVE.W D0,(A6-0x10) 00020288 3d 7c 00 02 ff f2 |=| | MOVE.W #0x2,(A6-0xe) 0002028e 3d 7c 00 58 ff f4 |=| X | MOVE.W #0x58,(A6-0xc) 00020294 7e 00 |~ | MOVEQ.L #0x00,D7 00020296 3f 01 |? | MOVE.W D1,-(A7) 00020298 be 81 | | CMP.L D1,D7 0002029a 63 02 |c | BLS 0x2029e 0002029c 4e 4f |NO | TRAP #15 0002029e 20 07 | | MOVE.L D7,D0 000202a0 e3 80 | | ASL.L #0x1,D0 000202a2 3f 36 08 e4 |?6 | MOVE.W (A6+D0.L-#0x1c),-(A7) 000202a6 4e b9 00 01 02 0c |N | JSR KC06_PortPutChar(port : Word ; b : char) 000202ac 58 4f |XO | ADDQ.L #0x4,A7 000202ae 52 87 |R | ADDQ.L #0x1,D7 000202b0 be 81 | | CMP.L D1,D7 000202b2 6f e2 |o | BLE 0x20296 000202b4 4c df 01 83 |L | MOVEM.L (A7)+,D0+D1+D7+A0 000202b8 4e 5e |N^ | UNLK A6 000202ba 4e 75 |Nu | RTS 000202bc ; -------------------------------------------------------------------------------------- 000202bc ; OMSI PASCAL Function 000202bc ; <LVAR -0x004 @ 2(rw)> 000202bc ; <LVAR -0x00c @> 000202bc ; -------------------------------------------------------------------------------------- 000202bc 4e 56 ff ca |NV | LINK.W A6,#0xffca 000202c0 bf d5 | | CMPA.L (A5),A7 000202c2 62 06 |b | BHI 0x202ca 000202c4 44 fc 00 02 |D | MOVE.W #0x2,CCR 000202c8 4e 76 |Nv | TRAPV 000202ca de fc 00 2a | * | ADDA.W #0x2a,A7 000202ce 48 e7 f9 80 |H | MOVEM.L A0+D7+D4+D3+D2+D1+D0,-(A7) 000202d2 41 ee ff fc |A | LEA.L (A6-0x4),A0 000202d6 28 3c 00 00 00 ff |(< | MOVE.L #0xff,D4 000202dc 7e 00 |~ | MOVEQ.L #0x00,D7 000202de 3f 3c 00 08 |?< | MOVE.W #0x8,-(A7) 000202e2 48 50 |HP | PEA.L (A0) 000202e4 4e b9 00 01 02 0e |N | JSR KC07_PortGetChar(port : Word ; VAR ret : Word) 000202ea 5c 4f |\O | ADDQ.L #0x6,A7 000202ec c9 50 | P | AND.W D4,(A0) 000202ee 4a 07 |J | TST.B D7 000202f0 66 0e |f | BNE 0x20300 000202f2 10 07 | | MOVE.B D7,D0 000202f4 48 80 |H | EXTB.W D0 000202f6 32 10 |2 | MOVE.W (A0),D1 000202f8 43 84 |C | CHK.W D4,D1 000202fa 1d 81 00 f4 | | MOVE.B D1,(A6+D0.W-#0xc) 000202fe 60 24 |`$ | BRA 0x20324 00020300 10 07 | | MOVE.B D7,D0 00020302 48 80 |H | EXTB.W D0 00020304 42 81 |B | CLR.L D1 00020306 32 10 |2 | MOVE.W (A0),D1 00020308 82 fc 00 0a | | DIVU.W #0xa,D1 0002030c 42 82 |B | CLR.L D2 0002030e 34 01 |4 | MOVE.W D1,D2 00020310 e9 82 | | ASL.L #0x4,D2 00020312 48 41 |HA | SWAP.W D1 00020314 42 83 |B | CLR.L D3 00020316 36 01 |6 | MOVE.W D1,D3 00020318 d6 82 | | ADD.L D2,D3 0002031a b6 84 | | CMP.L D4,D3 0002031c 63 02 |c | BLS 0x20320 0002031e 4e 4f |NO | TRAP #15 00020320 1d 83 00 f4 | | MOVE.B D3,(A6+D0.W-#0xc) 00020324 52 07 |R | ADDQ.B #0x1,D7 00020326 0c 07 00 07 | | CMPI.B #0x07,D7 0002032a 6f b2 |o | BLE 0x202de 0002032c 48 6e ff f4 |Hn | PEA.L (A6-0xc) 00020330 4e b9 00 01 02 28 |N ( | JSR KC14_WriteRtc 00020336 58 4f |XO | ADDQ.L #0x4,A7 00020338 4c df 01 9f |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D7+A0 0002033c 4e 5e |N^ | UNLK A6 0002033e 4e 75 |Nu | RTS 00020340 ; -------------------------------------------------------------------------------------- 00020340 ; OMSI PASCAL Function 00020340 ; <LVAR 0x008 4(r)> 00020340 ; -------------------------------------------------------------------------------------- 00020340 4e 56 ff f0 |NV | LINK.W A6,#0xfff0 00020344 bf d5 | | CMPA.L (A5),A7 00020346 62 06 |b | BHI 0x2034e 00020348 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002034c 4e 76 |Nv | TRAPV 0002034e de fc 00 10 | | ADDA.W #0x10,A7 00020352 48 e7 c0 00 |H | MOVEM.L D1+D0,-(A7) 00020356 72 08 |r | MOVEQ.L #0x08,D1 00020358 3f 01 |? | MOVE.W D1,-(A7) 0002035a 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 0002035e 4e b9 00 01 02 0c |N | JSR KC06_PortPutChar(port : Word ; b : char) 00020364 54 4f |TO | ADDQ.L #0x2,A7 00020366 3e 81 |> | MOVE.W D1,(A7) 00020368 20 2e 00 08 | . | MOVE.L (A6+0x8),D0 0002036c 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 00020372 63 02 |c | BLS 0x20376 00020374 4e 4f |NO | TRAP #15 00020376 3f 00 |? | MOVE.W D0,-(A7) 00020378 4e b9 00 01 02 0c |N | JSR KC06_PortPutChar(port : Word ; b : char) 0002037e 58 4f |XO | ADDQ.L #0x4,A7 00020380 4c df 00 03 |L | MOVEM.L (A7)+,D0+D1 00020384 4e 5e |N^ | UNLK A6 00020386 4e 75 |Nu | RTS 00020388 ; -------------------------------------------------------------------------------------- 00020388 ; OMSI PASCAL Function 00020388 ; <LVAR -0x002 @ 2(rw)> 00020388 ; <LVAR -0x004 @ 1(r)> 00020388 ; -------------------------------------------------------------------------------------- 00020388 4e 56 ff e6 |NV | LINK.W A6,#0xffe6 0002038c bf d5 | | CMPA.L (A5),A7 0002038e 62 06 |b | BHI 0x20396 00020390 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020394 4e 76 |Nv | TRAPV 00020396 de fc 00 16 | | ADDA.W #0x16,A7 0002039a 48 e7 c0 80 |H | MOVEM.L A0+D1+D0,-(A7) 0002039e 41 ee ff fe |A | LEA.L (A6-0x2),A0 000203a2 72 08 |r | MOVEQ.L #0x08,D1 000203a4 3f 01 |? | MOVE.W D1,-(A7) 000203a6 48 6e ff fc |Hn | PEA.L (A6-0x4) 000203aa 4e b9 00 01 02 12 |N | JSR KC09_PortStatus(Port : Word; VAR b: Byte) 000203b0 5c 4f |\O | ADDQ.L #0x6,A7 000203b2 10 2e ff fc | . | MOVE.B (A6-0x4),D0 000203b6 0c 00 00 01 | | CMPI.B #0x01,D0 000203ba 66 48 |fH | BNE 0x20404 000203bc 3f 01 |? | MOVE.W D1,-(A7) 000203be 48 50 |HP | PEA.L (A0) 000203c0 4e b9 00 01 02 0e |N | JSR KC07_PortGetChar(port : Word ; VAR ret : Word) 000203c6 5c 4f |\O | ADDQ.L #0x6,A7 000203c8 02 50 00 ff | P | ANDI.W #0x00ff,(A0) 000203cc 30 10 |0 | MOVE.W (A0),D0 000203ce 0c 40 00 04 | @ | CMPI.W #0x0004,D0 000203d2 62 26 |b& | BHI 0x203fa 000203d4 d0 40 | @ | ADD.W D0,D0 000203d6 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 000203de 00 0a | | .CONST 0xa ; [0x0] -> 0x203e8 000203e0 00 14 | | .CONST 0x14 ; [0x1] -> 0x203f2 000203e2 00 12 | | .CONST 0x12 ; [0x2] -> 0x203f0 000203e4 00 10 | | .CONST 0x10 ; [0x3] -> 0x203ee 000203e6 00 16 | | .CONST 0x16 ; [0x4] -> 0x203f4 000203e8 switch@0x203d6[0x0]: 000203e8 4e ba fe 22 |N " | JSR 0x2020c 000203ec 60 16 |` | BRA 0x20404 000203ee switch@0x203d6[0x3]: 000203ee 60 14 |` | BRA 0x20404 000203f0 switch@0x203d6[0x2]: 000203f0 60 12 |` | BRA 0x20404 000203f2 switch@0x203d6[0x1]: 000203f2 60 10 |` | BRA 0x20404 000203f4 switch@0x203d6[0x4]: 000203f4 4e ba fe c6 |N | JSR 0x202bc 000203f8 60 0a |` | BRA 0x20404 000203fa 48 78 00 05 |Hx | PEA.L 0x5 000203fe 4e ba ff 40 |N @ | JSR 0x20340 00020402 58 4f |XO | ADDQ.L #0x4,A7 00020404 4c df 01 03 |L | MOVEM.L (A7)+,D0+D1+A0 00020408 4e 5e |N^ | UNLK A6 0002040a 4e 75 |Nu | RTS 0002040c ; -------------------------------------------------------------------------------------- 0002040c ; OMSI PASCAL Function 0002040c ; <LVAR -0x07a 2(r)> 0002040c ; <LVAR -0x07c @ 2(w)> 0002040c ; <LVAR -0x07e @ 2(rw)> 0002040c ; <LVAR -0x080 @ 1(r)> 0002040c ; -------------------------------------------------------------------------------------- 0002040c 4e 56 ff 5e |NV ^ | LINK.W A6,#0xff5e 00020410 bf d5 | | CMPA.L (A5),A7 00020412 62 06 |b | BHI 0x2041a 00020414 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020418 4e 76 |Nv | TRAPV 0002041a de fc 00 22 | " | ADDA.W #0x22,A7 0002041e 48 e7 e0 e0 |H | MOVEM.L A2+A1+A0+D2+D1+D0,-(A7) 00020422 43 ee ff 82 |C | LEA.L (A6-0x7e),A1 00020426 45 ee ff 84 |E | LEA.L (A6-0x7c),A2 0002042a 72 0a |r | MOVEQ.L #0x0a,D1 0002042c 74 02 |t | MOVEQ.L #0x02,D2 0002042e 3f 01 |? | MOVE.W D1,-(A7) 00020430 48 6e ff 80 |Hn | PEA.L (A6-0x80) 00020434 4e b9 00 01 02 12 |N | JSR KC09_PortStatus(Port : Word; VAR b: Byte) 0002043a 5c 4f |\O | ADDQ.L #0x6,A7 0002043c 10 2e ff 80 | . | MOVE.B (A6-0x80),D0 00020440 0c 00 00 01 | | CMPI.B #0x01,D0 00020444 66 44 |fD | BNE 0x2048a 00020446 3f 01 |? | MOVE.W D1,-(A7) 00020448 48 51 |HQ | PEA.L (A1) 0002044a 4e b9 00 01 02 0e |N | JSR KC07_PortGetChar(port : Word ; VAR ret : Word) 00020450 5c 4f |\O | ADDQ.L #0x6,A7 00020452 02 51 00 ff | Q | ANDI.W #0x00ff,(A1) 00020456 30 11 |0 | MOVE.W (A1),D0 00020458 b0 42 | B | CMP.W D2,D0 0002045a 62 2e |b. | BHI 0x2048a 0002045c d0 40 | @ | ADD.W D0,D0 0002045e 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 00020466 00 06 | | .CONST 0x6 ; [0x0] -> 0x2046c 00020468 00 08 | | .CONST 0x8 ; [0x1] -> 0x2046e 0002046a 00 0e | | .CONST 0xe ; [0x2] -> 0x20474 0002046c switch@0x2045e[0x0]: 0002046c 60 1c |` | BRA 0x2048a 0002046e switch@0x2045e[0x1]: 0002046e 34 bc 00 07 |4 | MOVE.W #0x7,(A2) 00020472 60 04 |` | BRA 0x20478 00020474 switch@0x2045e[0x2]: 00020474 34 bc 00 1e |4 | MOVE.W #0x1e,(A2) 00020478 42 6e ff 86 |Bn | CLR.W (A6-0x7a) 0002047c 1f 02 | | MOVE.B D2,-(A7) 0002047e 20 4a | J | MOVEA.L A2,A0 00020480 2f 08 |/ | MOVE.L A0,-(A7) 00020482 4e b9 00 01 03 a8 |N | JSR Write_ERROR_LOG(VAR a : Bool; MOD b : Pointer) 00020488 5c 4f |\O | ADDQ.L #0x6,A7 0002048a 4c df 07 07 |L | MOVEM.L (A7)+,D0+D1+D2+A0+A1+A2 0002048e 4e 5e |N^ | UNLK A6 00020490 4e 75 |Nu | RTS 00020492 ; -------------------------------------------------------------------------------------- 00020492 ; OMSI PASCAL Function 00020492 ; <LVAR 0x008 4(r)> 00020492 ; -------------------------------------------------------------------------------------- 00020492 4e 56 ff e0 |NV | LINK.W A6,#0xffe0 00020496 bf d5 | | CMPA.L (A5),A7 00020498 62 06 |b | BHI 0x204a0 0002049a 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002049e 4e 76 |Nv | TRAPV 000204a0 de fc 00 1c | | ADDA.W #0x1c,A7 000204a4 48 e7 81 80 |H | MOVEM.L A0+D7+D0,-(A7) 000204a8 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000204ac 7e 00 |~ | MOVEQ.L #0x00,D7 000204ae be 97 | | CMP.L (A7),D7 000204b0 6e 28 |n( | BGT 0x204da 000204b2 3f 3c 00 0b |?< | MOVE.W #0xb,-(A7) 000204b6 0c 87 00 00 00 50 | P | CMPI.L #0x00000050,D7 000204bc 63 02 |c | BLS 0x204c0 000204be 4e 4f |NO | TRAP #15 000204c0 41 f9 00 02 0e 5a |A Z | LEA.L 0x20e5a,A0 000204c6 42 80 |B | CLR.L D0 000204c8 10 30 78 0c | 0x | MOVE.B (A0+D7.L+#0xc),D0 000204cc 3f 00 |? | MOVE.W D0,-(A7) 000204ce 4e b9 00 01 02 0c |N | JSR KC06_PortPutChar(port : Word ; b : char) 000204d4 58 4f |XO | ADDQ.L #0x4,A7 000204d6 52 87 |R | ADDQ.L #0x1,D7 000204d8 68 d4 |h | BVC 0x204ae 000204da 58 4f |XO | ADDQ.L #0x4,A7 000204dc 4c df 01 81 |L | MOVEM.L (A7)+,D0+D7+A0 000204e0 4e 5e |N^ | UNLK A6 000204e2 4e 75 |Nu | RTS 000204e4 ; -------------------------------------------------------------------------------------- 000204e4 ; OMSI PASCAL Function 000204e4 ; <LVAR 0x00a 4(rw)> 000204e4 ; <LVAR 0x008 1(r)> 000204e4 ; -------------------------------------------------------------------------------------- 000204e4 4e 56 ff f2 |NV | LINK.W A6,#0xfff2 000204e8 bf d5 | | CMPA.L (A5),A7 000204ea 62 06 |b | BHI 0x204f2 000204ec 44 fc 00 02 |D | MOVE.W #0x2,CCR 000204f0 4e 76 |Nv | TRAPV 000204f2 de fc 00 0c | | ADDA.W #0xc,A7 000204f6 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 000204fa 41 ee 00 0a |A | LEA.L (A6+0xa),A0 000204fe 42 80 |B | CLR.L D0 00020500 10 2e 00 08 | . | MOVE.B (A6+0x8),D0 00020504 04 40 00 30 | @ 0 | SUBI.W #0x0030,D0 00020508 0c 40 00 16 | @ | CMPI.W #0x0016,D0 0002050c 62 00 00 b4 |b | BHI switch@0x20512[0xa] 00020510 d0 40 | @ | ADD.W D0,D0 00020512 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 0002051a 00 2e | . | .CONST 0x2e ; [0x0] -> 0x20548 0002051c 00 30 | 0 | .CONST 0x30 ; [0x1] -> 0x2054a 0002051e 00 38 | 8 | .CONST 0x38 ; [0x2] -> 0x20552 00020520 00 40 | @ | .CONST 0x40 ; [0x3] -> 0x2055a 00020522 00 48 | H | .CONST 0x48 ; [0x4] -> 0x20562 00020524 00 50 | P | .CONST 0x50 ; [0x5] -> 0x2056a 00020526 00 58 | X | .CONST 0x58 ; [0x6] -> 0x20572 00020528 00 60 | ` | .CONST 0x60 ; [0x7] -> 0x2057a 0002052a 00 68 | h | .CONST 0x68 ; [0x8] -> 0x20582 0002052c 00 70 | p | .CONST 0x70 ; [0x9] -> 0x2058a 0002052e 00 a8 | | .CONST 0xa8 ; [0xa] -> 0x205c2 00020530 00 a8 | | .CONST 0xa8 ; [0xb] -> 0x205c2 00020532 00 a8 | | .CONST 0xa8 ; [0xc] -> 0x205c2 00020534 00 a8 | | .CONST 0xa8 ; [0xd] -> 0x205c2 00020536 00 a8 | | .CONST 0xa8 ; [0xe] -> 0x205c2 00020538 00 a8 | | .CONST 0xa8 ; [0xf] -> 0x205c2 0002053a 00 a8 | | .CONST 0xa8 ; [0x10] -> 0x205c2 0002053c 00 78 | x | .CONST 0x78 ; [0x11] -> 0x20592 0002053e 00 80 | | .CONST 0x80 ; [0x12] -> 0x2059a 00020540 00 88 | | .CONST 0x88 ; [0x13] -> 0x205a2 00020542 00 90 | | .CONST 0x90 ; [0x14] -> 0x205aa 00020544 00 98 | | .CONST 0x98 ; [0x15] -> 0x205b2 00020546 00 a0 | | .CONST 0xa0 ; [0x16] -> 0x205ba 00020548 switch@0x20512[0x0]: 00020548 60 78 |`x | BRA switch@0x20512[0xa] 0002054a switch@0x20512[0x1]: 0002054a 20 bc 00 00 00 01 | | MOVE.L #0x1,(A0) 00020550 60 72 |`r | BRA 0x205c4 00020552 switch@0x20512[0x2]: 00020552 20 bc 00 00 00 02 | | MOVE.L #0x2,(A0) 00020558 60 6a |`j | BRA 0x205c4 0002055a switch@0x20512[0x3]: 0002055a 20 bc 00 00 00 03 | | MOVE.L #0x3,(A0) 00020560 60 62 |`b | BRA 0x205c4 00020562 switch@0x20512[0x4]: 00020562 20 bc 00 00 00 04 | | MOVE.L #0x4,(A0) 00020568 60 5a |`Z | BRA 0x205c4 0002056a switch@0x20512[0x5]: 0002056a 20 bc 00 00 00 05 | | MOVE.L #0x5,(A0) 00020570 60 52 |`R | BRA 0x205c4 00020572 switch@0x20512[0x6]: 00020572 20 bc 00 00 00 06 | | MOVE.L #0x6,(A0) 00020578 60 4a |`J | BRA 0x205c4 0002057a switch@0x20512[0x7]: 0002057a 20 bc 00 00 00 07 | | MOVE.L #0x7,(A0) 00020580 60 42 |`B | BRA 0x205c4 00020582 switch@0x20512[0x8]: 00020582 20 bc 00 00 00 08 | | MOVE.L #0x8,(A0) 00020588 60 3a |`: | BRA 0x205c4 0002058a switch@0x20512[0x9]: 0002058a 20 bc 00 00 00 09 | | MOVE.L #0x9,(A0) 00020590 60 32 |`2 | BRA 0x205c4 00020592 switch@0x20512[0x11]: 00020592 20 bc 00 00 00 0a | | MOVE.L #0xa,(A0) 00020598 60 2a |`* | BRA 0x205c4 0002059a switch@0x20512[0x12]: 0002059a 20 bc 00 00 00 0b | | MOVE.L #0xb,(A0) 000205a0 60 22 |`" | BRA 0x205c4 000205a2 switch@0x20512[0x13]: 000205a2 20 bc 00 00 00 0c | | MOVE.L #0xc,(A0) 000205a8 60 1a |` | BRA 0x205c4 000205aa switch@0x20512[0x14]: 000205aa 20 bc 00 00 00 0d | | MOVE.L #0xd,(A0) 000205b0 60 12 |` | BRA 0x205c4 000205b2 switch@0x20512[0x15]: 000205b2 20 bc 00 00 00 0e | | MOVE.L #0xe,(A0) 000205b8 60 0a |` | BRA 0x205c4 000205ba switch@0x20512[0x16]: 000205ba 20 bc 00 00 00 0f | | MOVE.L #0xf,(A0) 000205c0 60 02 |` | BRA 0x205c4 000205c2 switch@0x20512[0x10]: 000205c2 switch@0x20512[0xa]: 000205c2 switch@0x20512[0xb]: 000205c2 switch@0x20512[0xc]: 000205c2 switch@0x20512[0xd]: 000205c2 switch@0x20512[0xe]: 000205c2 switch@0x20512[0xf]: 000205c2 42 90 |B | CLR.L (A0) 000205c4 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 000205c8 4e 5e |N^ | UNLK A6 000205ca 4e 75 |Nu | RTS 000205cc ; -------------------------------------------------------------------------------------- 000205cc ; OMSI PASCAL Function 000205cc ; <LVAR 0x00c 1(w)> 000205cc ; <LVAR 0x008 4(rw)> 000205cc ; -------------------------------------------------------------------------------------- 000205cc 4e 56 ff f0 |NV | LINK.W A6,#0xfff0 000205d0 bf d5 | | CMPA.L (A5),A7 000205d2 62 06 |b | BHI 0x205da 000205d4 44 fc 00 02 |D | MOVE.W #0x2,CCR 000205d8 4e 76 |Nv | TRAPV 000205da de fc 00 10 | | ADDA.W #0x10,A7 000205de 48 e7 c0 80 |H | MOVEM.L A0+D1+D0,-(A7) 000205e2 72 0f |r | MOVEQ.L #0x0f,D1 000205e4 c3 ae 00 08 | | AND.L D1,(A6+0x8) 000205e8 20 2e 00 08 | . | MOVE.L (A6+0x8),D0 000205ec b0 81 | | CMP.L D1,D0 000205ee 63 02 |c | BLS 0x205f2 000205f0 4e 4f |NO | TRAP #15 000205f2 41 fa fb fe |A | LEA.L 0x201f2,A0 000205f6 1d 70 08 00 00 0c | p | MOVE.B (A0+D0.L),(A6+0xc) 000205fc 4c df 01 03 |L | MOVEM.L (A7)+,D0+D1+A0 00020600 4e 5e |N^ | UNLK A6 00020602 4e 75 |Nu | RTS 00020604 ; -------------------------------------------------------------------------------------- 00020604 ; OMSI PASCAL Function 00020604 ; <LVAR 0x008 1(w)> 00020604 ; -------------------------------------------------------------------------------------- 00020604 4e 56 ff c0 |NV | LINK.W A6,#0xffc0 00020608 bf d5 | | CMPA.L (A5),A7 0002060a 62 06 |b | BHI 0x20612 0002060c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020610 4e 76 |Nv | TRAPV 00020612 de fc 00 34 | 4 | ADDA.W #0x34,A7 00020616 48 e7 e7 c0 |H | MOVEM.L A1+A0+D7+D6+D5+D2+D1+D0,-(A7) 0002061a 74 0f |t | MOVEQ.L #0x0f,D2 0002061c 7a 01 |z | MOVEQ.L #0x01,D5 0002061e 2f 39 00 02 0e 62 |/9 b | MOVE.L 0x20e62,-(A7) 00020624 55 97 |U | SUBQ.L #0x2,(A7) 00020626 70 00 |p | MOVEQ.L #0x00,D0 00020628 b0 97 | | CMP.L (A7),D0 0002062a 6f 04 |o | BLE 0x20630 0002062c 59 4f |YO | SUBQ.L #0x4,A7 0002062e 60 40 |`@ | BRA 0x20670 00020630 2f 00 |/ | MOVE.L D0,-(A7) 00020632 7e 00 |~ | MOVEQ.L #0x00,D7 00020634 7c 00 || | MOVEQ.L #0x00,D6 00020636 bc 82 | | CMP.L D2,D6 00020638 63 02 |c | BLS 0x2063c 0002063a 4e 4f |NO | TRAP #15 0002063c 41 fa fb b4 |A | LEA.L 0x201f2,A0 00020640 20 17 | | MOVE.L (A7),D0 00020642 0c 80 00 00 00 50 | P | CMPI.L #0x00000050,D0 00020648 63 02 |c | BLS 0x2064c 0002064a 4e 4f |NO | TRAP #15 0002064c 43 f9 00 02 0e 5a |C Z | LEA.L 0x20e5a,A1 00020652 12 30 68 00 | 0h | MOVE.B (A0+D6.L),D1 00020656 b2 31 08 0c | 1 | CMP.B (A1+D0.L+#0xc),D1 0002065a 66 02 |f | BNE 0x2065e 0002065c 7e 01 |~ | MOVEQ.L #0x01,D7 0002065e 52 86 |R | ADDQ.L #0x1,D6 00020660 bc 82 | | CMP.L D2,D6 00020662 6f d2 |o | BLE 0x20636 00020664 ca 07 | | AND.B D7,D5 00020666 20 17 | | MOVE.L (A7),D0 00020668 52 80 |R | ADDQ.L #0x1,D0 0002066a 69 04 |i | BVS 0x20670 0002066c 58 4f |XO | ADDQ.L #0x4,A7 0002066e 60 b8 |` | BRA 0x20628 00020670 50 4f |PO | ADDQ.L #0x8,A7 00020672 1d 45 00 08 | E | MOVE.B D5,(A6+0x8) 00020676 4c df 03 e7 |L | MOVEM.L (A7)+,D0+D1+D2+D5+D6+D7+A0+A1 0002067a 4e 5e |N^ | UNLK A6 0002067c 4e 75 |Nu | RTS 0002067e ; -------------------------------------------------------------------------------------- 0002067e ; OMSI PASCAL Function 0002067e ; <LVAR -0x001 1(rw)> 0002067e ; <LVAR -0x004 @ 2(rw)> 0002067e ; -------------------------------------------------------------------------------------- 0002067e 4e 56 ff ba |NV | LINK.W A6,#0xffba 00020682 bf d5 | | CMPA.L (A5),A7 00020684 62 06 |b | BHI 0x2068c 00020686 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002068a 4e 76 |Nv | TRAPV 0002068c de fc 00 3a | : | ADDA.W #0x3a,A7 00020690 48 e7 f7 c0 |H | MOVEM.L A1+A0+D7+D6+D5+D3+D2+D1+D0,-(A7) 00020694 43 ee ff fc |C | LEA.L (A6-0x4),A1 00020698 74 01 |t | MOVEQ.L #0x01,D2 0002069a 76 0b |v | MOVEQ.L #0x0b,D3 0002069c 7c 00 || | MOVEQ.L #0x00,D6 0002069e 20 39 00 02 0e 62 | 9 b | MOVE.L 0x20e62,D0 000206a4 b0 82 | | CMP.L D2,D0 000206a6 6f 30 |o0 | BLE 0x206d8 000206a8 55 80 |U | SUBQ.L #0x2,D0 000206aa 2f 00 |/ | MOVE.L D0,-(A7) 000206ac 7e 00 |~ | MOVEQ.L #0x00,D7 000206ae be 97 | | CMP.L (A7),D7 000206b0 6e 24 |n$ | BGT 0x206d6 000206b2 e9 86 | | ASL.L #0x4,D6 000206b4 59 4f |YO | SUBQ.L #0x4,A7 000206b6 0c 87 00 00 00 50 | P | CMPI.L #0x00000050,D7 000206bc 63 02 |c | BLS 0x206c0 000206be 4e 4f |NO | TRAP #15 000206c0 41 f9 00 02 0e 5a |A Z | LEA.L 0x20e5a,A0 000206c6 1f 30 78 0c | 0x | MOVE.B (A0+D7.L+#0xc),-(A7) 000206ca 4e ba fe 18 |N | JSR 0x204e4 000206ce 54 4f |TO | ADDQ.L #0x2,A7 000206d0 dc 9f | | ADD.L (A7)+,D6 000206d2 52 87 |R | ADDQ.L #0x1,D7 000206d4 68 d8 |h | BVC 0x206ae 000206d6 58 4f |XO | ADDQ.L #0x4,A7 000206d8 2f 39 00 02 0e b8 |/9 | MOVE.L 0x20eb8,-(A7) 000206de 7e 01 |~ | MOVEQ.L #0x01,D7 000206e0 be 97 | | CMP.L (A7),D7 000206e2 6e 6c |nl | BGT 0x20750 000206e4 2f 06 |/ | MOVE.L D6,-(A7) 000206e6 df 97 | | ADD.L D7,(A7) 000206e8 53 97 |S | SUBQ.L #0x1,(A7) 000206ea 20 49 | I | MOVEA.L A1,A0 000206ec 2f 08 |/ | MOVE.L A0,-(A7) 000206ee 52 97 |R | ADDQ.L #0x1,(A7) 000206f0 3f 02 |? | MOVE.W D2,-(A7) 000206f2 4e b9 00 01 02 38 |N 8 | JSR KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word) 000206f8 de fc 00 0a | | ADDA.W #0xa,A7 000206fc 02 51 00 ff | Q | ANDI.W #0x00ff,(A1) 00020700 55 4f |UO | SUBQ.L #0x2,A7 00020702 30 11 |0 | MOVE.W (A1),D0 00020704 e8 48 | H | LSR.W #0x4,D0 00020706 42 81 |B | CLR.L D1 00020708 32 00 |2 | MOVE.W D0,D1 0002070a 2f 01 |/ | MOVE.L D1,-(A7) 0002070c 4e ba fe be |N | JSR 0x205cc 00020710 58 4f |XO | ADDQ.L #0x4,A7 00020712 1a 17 | | MOVE.B (A7),D5 00020714 30 11 |0 | MOVE.W (A1),D0 00020716 02 40 00 0f | @ | ANDI.W #0x000f,D0 0002071a 42 81 |B | CLR.L D1 0002071c 32 00 |2 | MOVE.W D0,D1 0002071e 2f 01 |/ | MOVE.L D1,-(A7) 00020720 4e ba fe aa |N | JSR 0x205cc 00020724 58 4f |XO | ADDQ.L #0x4,A7 00020726 1d 5f ff ff | _ | MOVE.B (A7)+,(A6-0x1) 0002072a 3f 03 |? | MOVE.W D3,-(A7) 0002072c 42 80 |B | CLR.L D0 0002072e 10 05 | | MOVE.B D5,D0 00020730 3f 00 |? | MOVE.W D0,-(A7) 00020732 4e b9 00 01 02 0c |N | JSR KC06_PortPutChar(port : Word ; b : char) 00020738 54 4f |TO | ADDQ.L #0x2,A7 0002073a 3e 83 |> | MOVE.W D3,(A7) 0002073c 42 80 |B | CLR.L D0 0002073e 10 2e ff ff | . | MOVE.B (A6-0x1),D0 00020742 3f 00 |? | MOVE.W D0,-(A7) 00020744 4e b9 00 01 02 0c |N | JSR KC06_PortPutChar(port : Word ; b : char) 0002074a 58 4f |XO | ADDQ.L #0x4,A7 0002074c 52 87 |R | ADDQ.L #0x1,D7 0002074e 68 90 |h | BVC 0x206e0 00020750 58 4f |XO | ADDQ.L #0x4,A7 00020752 4c df 03 ef |L | MOVEM.L (A7)+,D0+D1+D2+D3+D5+D6+D7+A0+A1 00020756 4e 5e |N^ | UNLK A6 00020758 4e 75 |Nu | RTS 0002075a ; -------------------------------------------------------------------------------------- 0002075a ; OMSI PASCAL Function 0002075a ; -------------------------------------------------------------------------------------- 0002075a 4e 56 ff d2 |NV | LINK.W A6,#0xffd2 0002075e bf d5 | | CMPA.L (A5),A7 00020760 62 06 |b | BHI 0x20768 00020762 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020766 4e 76 |Nv | TRAPV 00020768 de fc 00 2a | * | ADDA.W #0x2a,A7 0002076c 48 e7 c1 c0 |H | MOVEM.L A1+A0+D7+D1+D0,-(A7) 00020770 43 f9 00 02 0e b8 |C | LEA.L 0x20eb8,A1 00020776 72 01 |r | MOVEQ.L #0x01,D1 00020778 22 81 |" | MOVE.L D1,(A1) 0002077a 20 39 00 02 0e 62 | 9 b | MOVE.L 0x20e62,D0 00020780 b0 81 | | CMP.L D1,D0 00020782 6f 40 |o@ | BLE 0x207c4 00020784 55 4f |UO | SUBQ.L #0x2,A7 00020786 4e ba fe 7c |N | | JSR 0x20604 0002078a 4a 1f |J | TST.B (A7)+ 0002078c 67 36 |g6 | BEQ 0x207c4 0002078e 42 91 |B | CLR.L (A1) 00020790 55 80 |U | SUBQ.L #0x2,D0 00020792 2f 00 |/ | MOVE.L D0,-(A7) 00020794 7e 00 |~ | MOVEQ.L #0x00,D7 00020796 be 97 | | CMP.L (A7),D7 00020798 6e 28 |n( | BGT 0x207c2 0002079a 20 11 | | MOVE.L (A1),D0 0002079c e9 80 | | ASL.L #0x4,D0 0002079e 59 4f |YO | SUBQ.L #0x4,A7 000207a0 0c 87 00 00 00 50 | P | CMPI.L #0x00000050,D7 000207a6 63 02 |c | BLS 0x207aa 000207a8 4e 4f |NO | TRAP #15 000207aa 41 f9 00 02 0e 5a |A Z | LEA.L 0x20e5a,A0 000207b0 1f 30 78 0c | 0x | MOVE.B (A0+D7.L+#0xc),-(A7) 000207b4 4e ba fd 2e |N . | JSR 0x204e4 000207b8 54 4f |TO | ADDQ.L #0x2,A7 000207ba d0 9f | | ADD.L (A7)+,D0 000207bc 22 80 |" | MOVE.L D0,(A1) 000207be 52 87 |R | ADDQ.L #0x1,D7 000207c0 68 d4 |h | BVC 0x20796 000207c2 58 4f |XO | ADDQ.L #0x4,A7 000207c4 20 11 | | MOVE.L (A1),D0 000207c6 b0 81 | | CMP.L D1,D0 000207c8 6d 08 |m | BLT 0x207d2 000207ca 0c 80 00 00 03 e8 | | CMPI.L #0x000003e8,D0 000207d0 6f 02 |o | BLE 0x207d4 000207d2 22 81 |" | MOVE.L D1,(A1) 000207d4 4c df 03 83 |L | MOVEM.L (A7)+,D0+D1+D7+A0+A1 000207d8 4e 5e |N^ | UNLK A6 000207da 4e 75 |Nu | RTS 000207dc ; -------------------------------------------------------------------------------------- 000207dc ; OMSI PASCAL Function 000207dc ; <LVAR -0x00a @ 2(r)> 000207dc ; <LVAR -0x00c @ 1(r)> 000207dc ; -------------------------------------------------------------------------------------- 000207dc 4e 56 ff c0 |NV | LINK.W A6,#0xffc0 000207e0 bf d5 | | CMPA.L (A5),A7 000207e2 62 06 |b | BHI 0x207ea 000207e4 44 fc 00 02 |D | MOVE.W #0x2,CCR 000207e8 4e 76 |Nv | TRAPV 000207ea de fc 00 34 | 4 | ADDA.W #0x34,A7 000207ee 48 e7 fd e0 |H | MOVEM.L A2+A1+A0+D7+D5+D4+D3+D2+D1+D0,-(A7) 000207f2 43 f9 00 02 0e 62 |C b | LEA.L 0x20e62,A1 000207f8 45 f9 00 02 0e 5a |E Z | LEA.L 0x20e5a,A2 000207fe 76 01 |v | MOVEQ.L #0x01,D3 00020800 78 50 |xP | MOVEQ.L #0x50,D4 00020802 7a 0b |z | MOVEQ.L #0x0b,D5 00020804 3f 05 |? | MOVE.W D5,-(A7) 00020806 48 6e ff f4 |Hn | PEA.L (A6-0xc) 0002080a 4e b9 00 01 02 12 |N | JSR KC09_PortStatus(Port : Word; VAR b: Byte) 00020810 5c 4f |\O | ADDQ.L #0x6,A7 00020812 10 2e ff f4 | . | MOVE.B (A6-0xc),D0 00020816 b0 03 | | CMP.B D3,D0 00020818 66 00 00 88 |f | BNE 0x208a2 0002081c 3f 05 |? | MOVE.W D5,-(A7) 0002081e 48 6e ff f6 |Hn | PEA.L (A6-0xa) 00020822 4e b9 00 01 02 0e |N | JSR KC07_PortGetChar(port : Word ; VAR ret : Word) 00020828 5c 4f |\O | ADDQ.L #0x6,A7 0002082a 30 2e ff f6 |0. | MOVE.W (A6-0xa),D0 0002082e 02 40 00 ff | @ | ANDI.W #0x00ff,D0 00020832 1f 00 | | MOVE.B D0,-(A7) 00020834 1e 1f | | MOVE.B (A7)+,D7 00020836 20 11 | | MOVE.L (A1),D0 00020838 b0 84 | | CMP.L D4,D0 0002083a 63 02 |c | BLS 0x2083e 0002083c 4e 4f |NO | TRAP #15 0002083e 20 4a | J | MOVEA.L A2,A0 00020840 11 87 08 0c | | MOVE.B D7,(A0+D0.L+#0xc) 00020844 0c 07 00 7c | | | CMPI.B #0x7c,D7 00020848 66 48 |fH | BNE 0x20892 0002084a 20 11 | | MOVE.L (A1),D0 0002084c b0 83 | | CMP.L D3,D0 0002084e 6c 02 |l | BGE 0x20852 00020850 60 34 |`4 | BRA 0x20886 00020852 22 00 |" | MOVE.L D0,D1 00020854 53 81 |S | SUBQ.L #0x1,D1 00020856 b2 84 | | CMP.L D4,D1 00020858 63 02 |c | BLS 0x2085c 0002085a 4e 4f |NO | TRAP #15 0002085c 20 4a | J | MOVEA.L A2,A0 0002085e 42 82 |B | CLR.L D2 00020860 14 30 18 0c | 0 | MOVE.B (A0+D1.L+#0xc),D2 00020864 04 42 00 41 | B A | SUBI.W #0x0041,D2 00020868 b4 43 | C | CMP.W D3,D2 0002086a 62 1a |b | BHI 0x20886 0002086c d4 42 | B | ADD.W D2,D2 0002086e 34 3b 20 06 4e fb 20 02 |4; N | SWITCH D2.W 00020876 00 04 | | .CONST 0x4 ; [0x0] -> 0x2087a 00020878 00 0a | | .CONST 0xa ; [0x1] -> 0x20880 0002087a switch@0x2086e[0x0]: 0002087a 4e ba fe 02 |N | JSR 0x2067e 0002087e 60 0e |` | BRA 0x2088e 00020880 switch@0x2086e[0x1]: 00020880 4e ba fe d8 |N | JSR 0x2075a 00020884 60 08 |` | BRA 0x2088e 00020886 2f 00 |/ | MOVE.L D0,-(A7) 00020888 4e ba fc 08 |N | JSR 0x20492 0002088c 58 4f |XO | ADDQ.L #0x4,A7 0002088e 42 91 |B | CLR.L (A1) 00020890 60 0c |` | BRA 0x2089e 00020892 20 11 | | MOVE.L (A1),D0 00020894 b0 84 | | CMP.L D4,D0 00020896 66 02 |f | BNE 0x2089a 00020898 60 ec |` | BRA 0x20886 0002089a 52 80 |R | ADDQ.L #0x1,D0 0002089c 22 80 |" | MOVE.L D0,(A1) 0002089e 60 00 ff 64 |` d | BRA 0x20804 000208a2 4c df 07 bf |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D7+A0+A1+A2 000208a6 4e 5e |N^ | UNLK A6 000208a8 4e 75 |Nu | RTS 000208aa ; -------------------------------------------------------------------------------------- 000208aa ; OMSI PASCAL Function 000208aa ; <LVAR 0x00a 4(w)> 000208aa ; <LVAR 0x008 1(r)> 000208aa ; <LVAR -0x006 @ 4(rw)> 000208aa ; -------------------------------------------------------------------------------------- 000208aa 4e 56 ff b4 |NV | LINK.W A6,#0xffb4 000208ae bf d5 | | CMPA.L (A5),A7 000208b0 62 06 |b | BHI 0x208b8 000208b2 44 fc 00 02 |D | MOVE.W #0x2,CCR 000208b6 4e 76 |Nv | TRAPV 000208b8 de fc 00 46 | F | ADDA.W #0x46,A7 000208bc 48 e7 fc f0 |H | MOVEM.L A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7) 000208c0 45 ee ff fa |E | LEA.L (A6-0x6),A2 000208c4 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 000208ca 72 01 |r | MOVEQ.L #0x01,D1 000208cc 74 0a |t | MOVEQ.L #0x0a,D2 000208ce 76 09 |v | MOVEQ.L #0x09,D3 000208d0 78 0e |x | MOVEQ.L #0x0e,D4 000208d2 7a 0c |z | MOVEQ.L #0x0c,D5 000208d4 48 52 |HR | PEA.L (A2) 000208d6 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 000208dc 58 4f |XO | ADDQ.L #0x4,A7 000208de 10 2e 00 08 | . | MOVE.B (A6+0x8),D0 000208e2 48 80 |H | EXTB.W D0 000208e4 b0 43 | C | CMP.W D3,D0 000208e6 63 02 |c | BLS 0x208ea 000208e8 4e 4e |NN | TRAP #14 000208ea d0 40 | @ | ADD.W D0,D0 000208ec 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 000208f4 00 14 | | .CONST 0x14 ; [0x0] -> 0x20908 000208f6 00 3c | < | .CONST 0x3c ; [0x1] -> 0x20930 000208f8 00 64 | d | .CONST 0x64 ; [0x2] -> 0x20958 000208fa 00 74 | t | .CONST 0x74 ; [0x3] -> 0x20968 000208fc 00 90 | | .CONST 0x90 ; [0x4] -> 0x20984 000208fe 00 a6 | | .CONST 0xa6 ; [0x5] -> 0x2099a 00020900 00 b0 | | .CONST 0xb0 ; [0x6] -> 0x209a4 00020902 00 be | | .CONST 0xbe ; [0x7] -> 0x209b2 00020904 00 de | | .CONST 0xde ; [0x8] -> 0x209d2 00020906 00 ec | | .CONST 0xec ; [0x9] -> 0x209e0 00020908 switch@0x208ec[0x0]: 00020908 9e c4 | | SUBA.W D4,A7 0002090a 20 4f | O | MOVEA.L A7,A0 0002090c 43 fa f8 1e |C | LEA.L 0x2012c,A1 00020910 70 0c |p | MOVEQ.L #0x0c,D0 00020912 10 d9 | | MOVE.B (A1)+,(A0)+ 00020914 51 c8 ff fc |Q | DBF D0,0x20912 00020918 59 4f |YO | SUBQ.L #0x4,A7 0002091a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002091e 3f 01 |? | MOVE.W D1,-(A7) 00020920 3f 3c 00 0d |?< | MOVE.W #0xd,-(A7) 00020924 4e 93 |N | JSR (A3) 00020926 50 4f |PO | ADDQ.L #0x8,A7 00020928 24 9f |$ | MOVE.L (A7)+,(A2) 0002092a de c4 | | ADDA.W D4,A7 0002092c 60 00 00 d0 |` | BRA 0x209fe 00020930 switch@0x208ec[0x1]: 00020930 51 4f |QO | SUBQ.L #0x8,A7 00020932 20 4f | O | MOVEA.L A7,A0 00020934 43 fa f8 04 |C | LEA.L 0x2013a,A1 00020938 70 06 |p | MOVEQ.L #0x06,D0 0002093a 10 d9 | | MOVE.B (A1)+,(A0)+ 0002093c 51 c8 ff fc |Q | DBF D0,0x2093a 00020940 59 4f |YO | SUBQ.L #0x4,A7 00020942 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020946 3f 01 |? | MOVE.W D1,-(A7) 00020948 3f 3c 00 07 |?< | MOVE.W #0x7,-(A7) 0002094c 4e 93 |N | JSR (A3) 0002094e 50 4f |PO | ADDQ.L #0x8,A7 00020950 24 9f |$ | MOVE.L (A7)+,(A2) 00020952 50 4f |PO | ADDQ.L #0x8,A7 00020954 60 00 00 a8 |` | BRA 0x209fe 00020958 switch@0x208ec[0x2]: 00020958 41 fa f7 f2 |A | LEA.L 0x2014c,A0 0002095c 70 04 |p | MOVEQ.L #0x04,D0 0002095e 3f 20 |? | MOVE.W -(A0),-(A7) 00020960 51 c8 ff fc |Q | DBF D0,0x2095e 00020964 60 00 00 86 |` | BRA 0x209ec 00020968 switch@0x208ec[0x3]: 00020968 9e c2 | | SUBA.W D2,A7 0002096a 20 4f | O | MOVEA.L A7,A0 0002096c 43 fa f7 de |C | LEA.L 0x2014c,A1 00020970 70 08 |p | MOVEQ.L #0x08,D0 00020972 10 d9 | | MOVE.B (A1)+,(A0)+ 00020974 51 c8 ff fc |Q | DBF D0,0x20972 00020978 59 4f |YO | SUBQ.L #0x4,A7 0002097a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002097e 3f 01 |? | MOVE.W D1,-(A7) 00020980 3f 03 |? | MOVE.W D3,-(A7) 00020982 60 72 |`r | BRA 0x209f6 00020984 switch@0x208ec[0x4]: 00020984 2f 3a f7 d4 |/: | MOVE.L 0x2015a,-(A7) 00020988 2f 3a f7 cc |/: | MOVE.L 0x20156,-(A7) 0002098c 59 4f |YO | SUBQ.L #0x4,A7 0002098e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020992 3f 01 |? | MOVE.W D1,-(A7) 00020994 3f 3c 00 08 |?< | MOVE.W #0x8,-(A7) 00020998 60 b2 |` | BRA 0x2094c 0002099a switch@0x208ec[0x5]: 0002099a 2f 3a f7 c6 |/: | MOVE.L 0x20162,-(A7) 0002099e 2f 3a f7 be |/: | MOVE.L 0x2015e,-(A7) 000209a2 60 e8 |` | BRA 0x2098c 000209a4 switch@0x208ec[0x6]: 000209a4 41 fa f7 ca |A | LEA.L 0x20170,A0 000209a8 70 04 |p | MOVEQ.L #0x04,D0 000209aa 3f 20 |? | MOVE.W -(A0),-(A7) 000209ac 51 c8 ff fc |Q | DBF D0,0x209aa 000209b0 60 3a |`: | BRA 0x209ec 000209b2 switch@0x208ec[0x7]: 000209b2 2f 3a f7 c4 |/: | MOVE.L 0x20178,-(A7) 000209b6 2f 3a f7 bc |/: | MOVE.L 0x20174,-(A7) 000209ba 2f 3a f7 b4 |/: | MOVE.L 0x20170,-(A7) 000209be 59 4f |YO | SUBQ.L #0x4,A7 000209c0 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000209c4 3f 01 |? | MOVE.W D1,-(A7) 000209c6 3f 05 |? | MOVE.W D5,-(A7) 000209c8 4e 93 |N | JSR (A3) 000209ca 50 4f |PO | ADDQ.L #0x8,A7 000209cc 24 9f |$ | MOVE.L (A7)+,(A2) 000209ce de c5 | | ADDA.W D5,A7 000209d0 60 2c |`, | BRA 0x209fe 000209d2 switch@0x208ec[0x8]: 000209d2 2f 3a f7 b0 |/: | MOVE.L 0x20184,-(A7) 000209d6 2f 3a f7 a8 |/: | MOVE.L 0x20180,-(A7) 000209da 2f 3a f7 a0 |/: | MOVE.L 0x2017c,-(A7) 000209de 60 de |` | BRA 0x209be 000209e0 switch@0x208ec[0x9]: 000209e0 41 fa f7 b0 |A | LEA.L 0x20192,A0 000209e4 70 04 |p | MOVEQ.L #0x04,D0 000209e6 3f 20 |? | MOVE.W -(A0),-(A7) 000209e8 51 c8 ff fc |Q | DBF D0,0x209e6 000209ec 59 4f |YO | SUBQ.L #0x4,A7 000209ee 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000209f2 3f 01 |? | MOVE.W D1,-(A7) 000209f4 3f 02 |? | MOVE.W D2,-(A7) 000209f6 4e 93 |N | JSR (A3) 000209f8 50 4f |PO | ADDQ.L #0x8,A7 000209fa 24 9f |$ | MOVE.L (A7)+,(A2) 000209fc de c2 | | ADDA.W D2,A7 000209fe 2d 52 00 0a |-R | MOVE.L (A2),(A6+0xa) 00020a02 4c df 0f 3f |L ? | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3 00020a06 4e 5e |N^ | UNLK A6 00020a08 4e 75 |Nu | RTS 00020a0a ; -------------------------------------------------------------------------------------- 00020a0a ; OMSI PASCAL Function 00020a0a ; <LVAR 0x00c 4(r)> 00020a0a ; <LVAR 0x00a 1(r)> 00020a0a ; <LVAR 0x008 1(r)> 00020a0a ; <LVAR -0x004 @ 1(rw)> 00020a0a ; -------------------------------------------------------------------------------------- 00020a0a 4e 56 ff 96 |NV | LINK.W A6,#0xff96 00020a0e bf d5 | | CMPA.L (A5),A7 00020a10 62 06 |b | BHI 0x20a18 00020a12 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020a16 4e 76 |Nv | TRAPV 00020a18 de fc 00 62 | b | ADDA.W #0x62,A7 00020a1c 48 e7 f9 f0 |H | MOVEM.L A3+A2+A1+A0+D7+D4+D3+D2+D1+D0,-(A7) 00020a20 45 fa f7 e0 |E | LEA.L 0x20202,A2 00020a24 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 00020a2a 74 01 |t | MOVEQ.L #0x01,D2 00020a2c 76 08 |v | MOVEQ.L #0x08,D3 00020a2e 78 1e |x | MOVEQ.L #0x1e,D4 00020a30 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 00020a36 9e fc 00 28 | ( | SUBA.W #0x28,A7 00020a3a 20 4f | O | MOVEA.L A7,A0 00020a3c 43 fa f7 8c |C | LEA.L 0x201ca,A1 00020a40 70 26 |p& | MOVEQ.L #0x26,D0 00020a42 10 d9 | | MOVE.B (A1)+,(A0)+ 00020a44 51 c8 ff fc |Q | DBF D0,0x20a42 00020a48 59 4f |YO | SUBQ.L #0x4,A7 00020a4a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020a4e 3f 02 |? | MOVE.W D2,-(A7) 00020a50 3f 3c 00 27 |?< ' | MOVE.W #0x27,-(A7) 00020a54 4e 93 |N | JSR (A3) 00020a56 50 4f |PO | ADDQ.L #0x8,A7 00020a58 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00020a5e de fc 00 2c | , | ADDA.W #0x2c,A7 00020a62 7e 00 |~ | MOVEQ.L #0x00,D7 00020a64 be 83 | | CMP.L D3,D7 00020a66 63 02 |c | BLS 0x20a6a 00020a68 4e 4f |NO | TRAP #15 00020a6a 55 4f |UO | SUBQ.L #0x2,A7 00020a6c 20 4a | J | MOVEA.L A2,A0 00020a6e 1f 30 78 00 | 0x | MOVE.B (A0+D7.L),-(A7) 00020a72 4e b9 00 01 04 c0 |N | JSR HasBoard(diproc_addr: Byte) : Byte 00020a78 54 4f |TO | ADDQ.L #0x2,A7 00020a7a 4a 1f |J | TST.B (A7)+ 00020a7c 67 00 00 ca |g | BEQ 0x20b48 00020a80 be ae 00 0c | | CMP.L (A6+0xc),D7 00020a84 66 0e |f | BNE 0x20a94 00020a86 1d 6e 00 0a ff fc | n | MOVE.B (A6+0xa),(A6-0x4) 00020a8c 19 6e 00 08 00 05 | n | MOVE.B (A6+0x8),(A4+0x5) 00020a92 60 1c |` | BRA 0x20ab0 00020a94 20 4a | J | MOVEA.L A2,A0 00020a96 1f 30 78 00 | 0x | MOVE.B (A0+D7.L),-(A7) 00020a9a 48 6e ff fc |Hn | PEA.L (A6-0x4) 00020a9e 48 6c 00 05 |Hl | PEA.L (A4+0x5) 00020aa2 48 6c 00 06 |Hl | PEA.L (A4+0x6) 00020aa6 4e b9 00 01 04 84 |N | JSR DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool) 00020aac de fc 00 0e | | ADDA.W #0xe,A7 00020ab0 4a 2c 00 05 |J, | TST.B (A4+0x5) 00020ab4 67 3a |g: | BEQ 0x20af0 00020ab6 41 fa f6 f8 |A | LEA.L 0x201b0,A0 00020aba 70 0e |p | MOVEQ.L #0x0e,D0 00020abc 3f 20 |? | MOVE.W -(A0),-(A7) 00020abe 51 c8 ff fc |Q | DBF D0,0x20abc 00020ac2 51 4f |QO | SUBQ.L #0x8,A7 00020ac4 20 4a | J | MOVEA.L A2,A0 00020ac6 1f 30 78 00 | 0x | MOVE.B (A0+D7.L),-(A7) 00020aca 4e b9 00 01 04 9c |N | JSR BoardName(address : B) : String 00020ad0 55 4f |UO | SUBQ.L #0x2,A7 00020ad2 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00020ad6 3f 02 |? | MOVE.W D2,-(A7) 00020ad8 3f 04 |? | MOVE.W D4,-(A7) 00020ada 4e 93 |N | JSR (A3) 00020adc 50 4f |PO | ADDQ.L #0x8,A7 00020ade 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020ae4 50 4f |PO | ADDQ.L #0x8,A7 00020ae6 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00020aec de fc 00 22 | " | ADDA.W #0x22,A7 00020af0 10 2e ff fc | . | MOVE.B (A6-0x4),D0 00020af4 b0 02 | | CMP.B D2,D0 00020af6 67 50 |gP | BEQ 0x20b48 00020af8 9e fc 00 1a | | SUBA.W #0x1a,A7 00020afc 20 4f | O | MOVEA.L A7,A0 00020afe 43 fa f6 b0 |C | LEA.L 0x201b0,A1 00020b02 72 18 |r | MOVEQ.L #0x18,D1 00020b04 10 d9 | | MOVE.B (A1)+,(A0)+ 00020b06 51 c9 ff fc |Q | DBF D1,0x20b04 00020b0a 51 4f |QO | SUBQ.L #0x8,A7 00020b0c 20 4a | J | MOVEA.L A2,A0 00020b0e 1f 30 78 00 | 0x | MOVE.B (A0+D7.L),-(A7) 00020b12 4e b9 00 01 04 9c |N | JSR BoardName(address : B) : String 00020b18 55 4f |UO | SUBQ.L #0x2,A7 00020b1a 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00020b1e 3f 02 |? | MOVE.W D2,-(A7) 00020b20 3f 3c 00 19 |?< | MOVE.W #0x19,-(A7) 00020b24 4e 93 |N | JSR (A3) 00020b26 58 4f |XO | ADDQ.L #0x4,A7 00020b28 48 80 |H | EXTB.W D0 00020b2a 41 bc 00 09 |A | CHK.W #0x9,D0 00020b2e 1f 00 | | MOVE.B D0,-(A7) 00020b30 4e ba fd 78 |N x | JSR 0x208aa 00020b34 54 4f |TO | ADDQ.L #0x2,A7 00020b36 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 00020b3c de fc 00 0c | | ADDA.W #0xc,A7 00020b40 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00020b46 de c4 | | ADDA.W D4,A7 00020b48 52 87 |R | ADDQ.L #0x1,D7 00020b4a be 83 | | CMP.L D3,D7 00020b4c 6f 00 ff 16 |o | BLE 0x20a64 00020b50 4c df 0f 9f |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D7+A0+A1+A2+A3 00020b54 4e 5e |N^ | UNLK A6 00020b56 4e 75 |Nu | RTS 00020b58 ; -------------------------------------------------------------------------------------- 00020b58 ; OMSI PASCAL Function 00020b58 ; <LVAR -0x002 @> 00020b58 ; <LVAR -0x003 @ 1(r)> 00020b58 ; <LVAR -0x004 @ 1(r)> 00020b58 ; <LVAR -0x008 @> 00020b58 ; -------------------------------------------------------------------------------------- 00020b58 4e 56 ff c2 |NV | LINK.W A6,#0xffc2 00020b5c bf d5 | | CMPA.L (A5),A7 00020b5e 62 06 |b | BHI 0x20b66 00020b60 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020b64 4e 76 |Nv | TRAPV 00020b66 de fc 00 36 | 6 | ADDA.W #0x36,A7 00020b6a 48 e7 e1 e8 |H | MOVEM.L A4+A2+A1+A0+D7+D2+D1+D0,-(A7) 00020b6e 43 ee ff fc |C | LEA.L (A6-0x4),A1 00020b72 45 ee ff fd |E | LEA.L (A6-0x3),A2 00020b76 72 08 |r | MOVEQ.L #0x08,D1 00020b78 74 01 |t | MOVEQ.L #0x01,D2 00020b7a 7e 00 |~ | MOVEQ.L #0x00,D7 00020b7c be 81 | | CMP.L D1,D7 00020b7e 63 02 |c | BLS 0x20b82 00020b80 4e 4f |NO | TRAP #15 00020b82 55 4f |UO | SUBQ.L #0x2,A7 00020b84 41 fa f6 7c |A | | LEA.L 0x20202,A0 00020b88 1f 30 78 00 | 0x | MOVE.B (A0+D7.L),-(A7) 00020b8c 4e b9 00 01 04 c0 |N | JSR HasBoard(diproc_addr: Byte) : Byte 00020b92 54 4f |TO | ADDQ.L #0x2,A7 00020b94 4a 1f |J | TST.B (A7)+ 00020b96 67 4e |gN | BEQ 0x20be6 00020b98 41 fa f6 68 |A h | LEA.L 0x20202,A0 00020b9c 1f 30 78 00 | 0x | MOVE.B (A0+D7.L),-(A7) 00020ba0 48 51 |HQ | PEA.L (A1) 00020ba2 48 52 |HR | PEA.L (A2) 00020ba4 48 6e ff fe |Hn | PEA.L (A6-0x2) 00020ba8 4e b9 00 01 04 84 |N | JSR DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool) 00020bae de fc 00 0e | | ADDA.W #0xe,A7 00020bb2 4a 12 |J | TST.B (A2) 00020bb4 66 06 |f | BNE 0x20bbc 00020bb6 10 11 | | MOVE.B (A1),D0 00020bb8 b0 02 | | CMP.B D2,D0 00020bba 67 2a |g* | BEQ 0x20be6 00020bbc 2f 07 |/ | MOVE.L D7,-(A7) 00020bbe 10 11 | | MOVE.B (A1),D0 00020bc0 48 80 |H | EXTB.W D0 00020bc2 41 bc 00 09 |A | CHK.W #0x9,D0 00020bc6 1f 00 | | MOVE.B D0,-(A7) 00020bc8 10 12 | | MOVE.B (A2),D0 00020bca 48 80 |H | EXTB.W D0 00020bcc 41 82 |A | CHK.W D2,D0 00020bce 1f 00 | | MOVE.B D0,-(A7) 00020bd0 49 ee ff f8 |I | LEA.L (A6-0x8),A4 00020bd4 4e ba fe 34 |N 4 | JSR 0x20a0a 00020bd8 5c 4f |\O | ADDQ.L #0x6,A7 00020bda 1e bc 00 0c | | MOVE.B #0x0c,(A7) 00020bde 4e b9 00 01 05 da |N | JSR Set_fc01(a : Byte) 00020be4 54 4f |TO | ADDQ.L #0x2,A7 00020be6 52 87 |R | ADDQ.L #0x1,D7 00020be8 be 81 | | CMP.L D1,D7 00020bea 6f 90 |o | BLE 0x20b7c 00020bec 4c df 17 87 |L | MOVEM.L (A7)+,D0+D1+D2+D7+A0+A1+A2+A4 00020bf0 4e 5e |N^ | UNLK A6 00020bf2 4e 75 |Nu | RTS 00020bf4 ; -------------------------------------------------------------------------------------- 00020bf4 ; OMSI PASCAL Function 00020bf4 ; -------------------------------------------------------------------------------------- 00020bf4 4e 56 ff fc |NV | LINK.W A6,#0xfffc 00020bf8 bf d5 | | CMPA.L (A5),A7 00020bfa 62 06 |b | BHI 0x20c02 00020bfc 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020c00 4e 76 |Nv | TRAPV 00020c02 de fc 00 04 | | ADDA.W #0x4,A7 00020c06 42 b9 00 02 0e 62 |B b | CLR.L 0x20e62 00020c0c 23 fc 00 00 00 01 00 02 |# | MOVE.L #0x1,0x20eb8 00020c14 0e b8 | | 00020c16 4e 5e |N^ | UNLK A6 00020c18 4e 75 |Nu | RTS 00020c1a ; -------------------------------------------------------------------------------------- 00020c1a ; OMSI PASCAL Function 00020c1a ; -------------------------------------------------------------------------------------- 00020c1a START: 00020c1a 4f fa 00 08 |O | LEA.L MAIN,A7 00020c1e 4e f9 00 01 02 80 |N | JMP ?start_program 00020c24 MAIN: 00020c24 4e b9 00 01 03 98 |N | JSR FSCALL_10398 00020c2a 4e ba ff c8 |N | JSR 0x20bf4 00020c2e 4e ba f7 58 |N X | JSR 0x20388 00020c32 4e ba f7 d8 |N | JSR 0x2040c 00020c36 4e ba fb a4 |N | JSR 0x207dc 00020c3a 4e ba ff 1c |N | JSR 0x20b58 00020c3e 2f 3c 00 00 98 96 |/< | MOVE.L #0x9896,-(A7) 00020c44 4e b9 00 01 02 24 |N $ | JSR KC12_Sleep(dur: Long) 00020c4a 58 4f |XO | ADDQ.L #0x4,A7 00020c4c 60 e0 |` | BRA 0x20c2e 00020c4e 4e b9 |N | .XXX[0x2] 00020c50 00 01 02 84 | | .XXX[0x4] 00020c54 57 6f 72 64 73 20 65 72 |Words er| .TXT 'Words error :_' 00020c62 ; -------------------------------------------------------------------------------------- 00020c62 ; OMSI PASCAL Function 00020c62 ; <LVAR 0x008 1(r)> 00020c62 ; -------------------------------------------------------------------------------------- 00020c62 PROG_FAIL: 00020c62 4e 56 ff d2 |NV | LINK.W A6,#0xffd2 00020c66 bf d5 | | CMPA.L (A5),A7 00020c68 62 06 |b | BHI 0x20c70 00020c6a 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020c6e 4e 76 |Nv | TRAPV 00020c70 de fc 00 2c | , | ADDA.W #0x2c,A7 00020c74 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 00020c78 41 fa ff e8 |A | LEA.L PROG_FAIL,A0 00020c7c 70 06 |p | MOVEQ.L #0x06,D0 00020c7e 3f 20 |? | MOVE.W -(A0),-(A7) 00020c80 51 c8 ff fc |Q | DBF D0,0x20c7e 00020c84 1f 3c 00 03 | < | MOVE.B #0x03,-(A7) 00020c88 51 4f |QO | SUBQ.L #0x8,A7 00020c8a 48 6f 00 0a |Ho | PEA.L (A7+0xa) 00020c8e 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00020c92 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7) 00020c96 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020c9c 58 4f |XO | ADDQ.L #0x4,A7 00020c9e 10 2e 00 08 | . | MOVE.B (A6+0x8),D0 00020ca2 48 80 |H | EXTB.W D0 00020ca4 48 c0 |H | EXTW.L D0 00020ca6 2f 00 |/ | MOVE.L D0,-(A7) 00020ca8 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00020cae 58 4f |XO | ADDQ.L #0x4,A7 00020cb0 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020cb6 50 4f |PO | ADDQ.L #0x8,A7 00020cb8 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00020cbe de fc 00 14 | | ADDA.W #0x14,A7 00020cc2 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 00020cc6 4e 5e |N^ | UNLK A6 00020cc8 4e 75 |Nu | RTS 00020cca 42 6f 61 72 64 20 20 20 |Board | .TXT 'Board :_ ' 00020cd8 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment :_ ' 00020ce6 53 74 61 74 75 73 20 20 |Status | .TXT 'Status :_ ' 00020cf4 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment error :' 00020d06 46 61 74 61 6c 20 65 78 |Fatal ex| .TXT 'Fatal experiment error. ' 00020d1e ; -------------------------------------------------------------------------------------- 00020d1e ; OMSI PASCAL Function 00020d1e ; <LVAR 0x00e 1(r)> 00020d1e ; <LVAR 0x00a 4(r)> 00020d1e ; <LVAR 0x008 1(r)> 00020d1e ; -------------------------------------------------------------------------------------- 00020d1e EXP_FAIL: 00020d1e 4e 56 ff 8c |NV | LINK.W A6,#0xff8c 00020d22 bf d5 | | CMPA.L (A5),A7 00020d24 62 06 |b | BHI 0x20d2c 00020d26 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020d2a 4e 76 |Nv | TRAPV 00020d2c de fc 00 74 | t | ADDA.W #0x74,A7 00020d30 48 e7 fc f8 |H | MOVEM.L A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7) 00020d34 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 00020d3a 49 f9 00 01 03 e0 |I | LEA.L WriteConsoleStringCrLf(str : String),A4 00020d40 72 01 |r | MOVEQ.L #0x01,D1 00020d42 74 0d |t | MOVEQ.L #0x0d,D2 00020d44 76 1e |v | MOVEQ.L #0x1e,D3 00020d46 78 12 |x | MOVEQ.L #0x12,D4 00020d48 7a 0e |z | MOVEQ.L #0x0e,D5 00020d4a 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 00020d50 41 fa ff b4 |A | LEA.L 0x20d06,A0 00020d54 70 08 |p | MOVEQ.L #0x08,D0 00020d56 3f 20 |? | MOVE.W -(A0),-(A7) 00020d58 51 c8 ff fc |Q | DBF D0,0x20d56 00020d5c 59 4f |YO | SUBQ.L #0x4,A7 00020d5e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020d62 3f 01 |? | MOVE.W D1,-(A7) 00020d64 3f 04 |? | MOVE.W D4,-(A7) 00020d66 4e 93 |N | JSR (A3) 00020d68 50 4f |PO | ADDQ.L #0x8,A7 00020d6a 4e 94 |N | JSR (A4) 00020d6c 50 4f |PO | ADDQ.L #0x8,A7 00020d6e 20 4f | O | MOVEA.L A7,A0 00020d70 43 fa ff 58 |C X | LEA.L 0x20cca,A1 00020d74 70 0c |p | MOVEQ.L #0x0c,D0 00020d76 10 d9 | | MOVE.B (A1)+,(A0)+ 00020d78 51 c8 ff fc |Q | DBF D0,0x20d76 00020d7c 51 4f |QO | SUBQ.L #0x8,A7 00020d7e 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00020d82 3f 01 |? | MOVE.W D1,-(A7) 00020d84 3f 02 |? | MOVE.W D2,-(A7) 00020d86 4e 93 |N | JSR (A3) 00020d88 54 4f |TO | ADDQ.L #0x2,A7 00020d8a 1e ae 00 0e | | MOVE.B (A6+0xe),(A7) 00020d8e 4e b9 00 01 04 9c |N | JSR BoardName(address : B) : String 00020d94 54 4f |TO | ADDQ.L #0x2,A7 00020d96 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020d9c 50 4f |PO | ADDQ.L #0x8,A7 00020d9e 4e 94 |N | JSR (A4) 00020da0 de c4 | | ADDA.W D4,A7 00020da2 20 6e 00 0a | n | MOVEA.L (A6+0xa),A0 00020da6 b0 c1 | | CMPA.W D1,A0 00020da8 67 48 |gH | BEQ 0x20df2 00020daa 9e c5 | | SUBA.W D5,A7 00020dac 22 4f |"O | MOVEA.L A7,A1 00020dae 45 fa ff 28 |E ( | LEA.L 0x20cd8,A2 00020db2 70 0c |p | MOVEQ.L #0x0c,D0 00020db4 12 da | | MOVE.B (A2)+,(A1)+ 00020db6 51 c8 ff fc |Q | DBF D0,0x20db4 00020dba 9e c3 | | SUBA.W D3,A7 00020dbc 22 4f |"O | MOVEA.L A7,A1 00020dbe 41 e8 00 fc |A | LEA.L (A0+0xfc),A0 00020dc2 70 1d |p | MOVEQ.L #0x1d,D0 00020dc4 12 d8 | | MOVE.B (A0)+,(A1)+ 00020dc6 51 c8 ff fc |Q | DBF D0,0x20dc4 00020dca 51 4f |QO | SUBQ.L #0x8,A7 00020dcc 48 6f 00 26 |Ho & | PEA.L (A7+0x26) 00020dd0 3f 01 |? | MOVE.W D1,-(A7) 00020dd2 3f 02 |? | MOVE.W D2,-(A7) 00020dd4 4e 93 |N | JSR (A3) 00020dd6 58 4f |XO | ADDQ.L #0x4,A7 00020dd8 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00020ddc 3f 01 |? | MOVE.W D1,-(A7) 00020dde 3f 03 |? | MOVE.W D3,-(A7) 00020de0 4e 93 |N | JSR (A3) 00020de2 50 4f |PO | ADDQ.L #0x8,A7 00020de4 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020dea 50 4f |PO | ADDQ.L #0x8,A7 00020dec 4e 94 |N | JSR (A4) 00020dee de fc 00 30 | 0 | ADDA.W #0x30,A7 00020df2 9e c5 | | SUBA.W D5,A7 00020df4 20 4f | O | MOVEA.L A7,A0 00020df6 43 fa fe ee |C | LEA.L 0x20ce6,A1 00020dfa 70 0c |p | MOVEQ.L #0x0c,D0 00020dfc 10 d9 | | MOVE.B (A1)+,(A0)+ 00020dfe 51 c8 ff fc |Q | DBF D0,0x20dfc 00020e02 51 4f |QO | SUBQ.L #0x8,A7 00020e04 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00020e08 3f 01 |? | MOVE.W D1,-(A7) 00020e0a 3f 02 |? | MOVE.W D2,-(A7) 00020e0c 4e 93 |N | JSR (A3) 00020e0e 54 4f |TO | ADDQ.L #0x2,A7 00020e10 1e ae 00 08 | | MOVE.B (A6+0x8),(A7) 00020e14 4e b9 00 01 04 a2 |N | JSR ExpStatus2Text(status.B, &String) 00020e1a 54 4f |TO | ADDQ.L #0x2,A7 00020e1c 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020e22 50 4f |PO | ADDQ.L #0x8,A7 00020e24 4e 94 |N | JSR (A4) 00020e26 5d 4f |]O | SUBQ.L #0x6,A7 00020e28 20 4f | O | MOVEA.L A7,A0 00020e2a 43 fa fe da |C | LEA.L 0x20d06,A1 00020e2e 70 16 |p | MOVEQ.L #0x16,D0 00020e30 10 d9 | | MOVE.B (A1)+,(A0)+ 00020e32 51 c8 ff fc |Q | DBF D0,0x20e30 00020e36 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 00020e3a 59 4f |YO | SUBQ.L #0x4,A7 00020e3c 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00020e40 3f 01 |? | MOVE.W D1,-(A7) 00020e42 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7) 00020e46 4e 93 |N | JSR (A3) 00020e48 50 4f |PO | ADDQ.L #0x8,A7 00020e4a 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00020e50 de c3 | | ADDA.W D3,A7 00020e52 4c df 1f 3f |L ? | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4 00020e56 4e 5e |N^ | UNLK A6 00020e58 4e 75 |Nu | RTS