001
01.10.2019, 12:43 Uhr
volkerp
Default Group and Edit
|
Das ist für die Interrupt-Erzeugung im Single-Step-Betrieb
http://hc-ddr.hucki.net/wiki/doku.php/z1013/software/monitor/riesa202
| Quellcode: |
;-------------------------------------------------------------------------------
1739/ F724 : ;NEXT-Kommando, Step-Betrieb
1740/ F724 : ;-------------------------------------------------------------------------------
1741/ F724 : ;
1742/ F724 : ;Initialisierungstabelle fuer PIO bei NEXT
1743/ F724 : ;PIO B5 => AB0 in
1744/ F724 : ;
1745/ F724 : FE NKTA: DB Lo(NINTA) ;Interruptvektor Low Byte
1746/ F725 : 97 DB 10010111b ;Interruptsteuerwort, EI, Low-aktiv, Mask folgt
1747/ F726 : DF DB 11011111b ;Interruptmaske Bit5 aktiv
1748/ F727 : ;
1749/ F727 : ;NEXT-Kommando
1750/ F727 : ;
1751/ F727 : 3E F7 N_KDO: LD A,Hi(NINTA)
1752/ F729 : ED 47 LD I,A ;Interruptvektor
1753/ F72B : F3 DI
1754/ F72C : 21 24 F7 LD HL,NKTA ;Initialisieren PIO Port B
1755/ F72F : 01 03 03 LD BC,0303H ;3 Bytes, Port PIOBC
1756/ F732 : ED B3 OTIR ;loest selbstaendig INT aus
1757/ F734 : 2A 0B 00 LD HL,(BPADR) ;Byte vor Breakadr.(!)
1758/ F737 : 2B DEC HL ;wird EI
1759/ F738 : 7E LD A,(HL)
1760/ F739 : 32 69 00 LD (NBYTE),A ;Byte retten
1761/ F73C : 36 FB LD (HL),0FBH ;Code EI einschreiben
1762/ F73E : ED 73 6A 00 LD (SPADR),SP
1763/ F742 : ED 7B 63 00 LD SP,(REGSP)
1764/ F746 : E5 PUSH HL ;Adr. mit EI-Befehl
1765/ F747 : C3 4A F5 JP REGH ;Register holen und Start
1766/ F74A : ;Die PIO generiert bereits beim OTIR eine Interruptanforderung, da dabei AB0 => 0.
1767/ F74A : ;Sobald EI und nachfolgender Befehl ausgeführt wird, wird der Interrupt angenommen
1768/ F74A : ;und nachfolgende Routine über Inhalt der Adr. NINTA angesprungen (da IM 2)
1769/ F74A : ;
1770/ F74A : ;Eingang bei Interrupt
1771/ F74A : F3 NINTR: DI
|
--
VolkerP
http://hc-ddr.hucki.net
(Z9001, Z1013, LC-80, ...)
Dieser Beitrag wurde am 01.10.2019 um 12:44 Uhr von volkerp editiert. |
