in meiner Schaltung gibt es keine Hardware die den ATN beantwortet. Also brauche ich ATN acknowledge nicht.
Dafür habe ich eine IRQ ...
Beiträge von skern
-
-
und so könne (keine ahnung ) das sussehen
Alles anzeigenCode- IEC::ATNCheck IEC::checkATN(ATNCmd& cmd)
- {
- ATNCheck ret = ATN_IDLE;
- byte i = 0;
- if(not readATN()) {//6
- noInterrupts();//E85B
- atnFlag == 0; talkFlag = false; listenFlag = false;//E85E - E862
- x = 0x45;
- // Attention line is active, go to listener mode and get message. Being fast with the next two lines here is CRITICAL!
- writeCLOCK(false);//E86d
- writeDATA(true); //E8670
- //delayMicroseconds(TIMING_ATN_PREDELAY);
- while (readCLOCK());// E882
- // Get first ATN byte, it is either LISTEN or TALK
- ATNCommand c = (ATNCommand)receiveByte();// first Byte
- if(m_state bitand errorFlag)
- return ATN_ERROR;
- if(c == ATN_CODE_UNLISTEN ) listenFlag = false; //E887
- return ATN_UNLISTEN;
- if(c == ATN_CODE_UNTALK ) talkFlag = false; //E891
- return ATN_UNTALK;
- if(c == (ATN_CODE_LISTEN bitor m_deviceNumber)) {//E89B
- listenFlag = true;//E8AD
- talkFlag = false;//E8B1
- if (c == (ATN_CODE_TALK bitor m_deviceNumber)) {//E89B
- talkFlag = true;//E89F
- listenFlag = false;//E8A3
- break;
- }
- x and 0x60;//E8BA
- if (x /= 0x60){//E8BC
- seconaryAdress = x;//E8BF
- x and 0x0f;
- channel =x;//E8C3
- if (seconaryAdress and 0xf0 == ATN_CODE_CLOSE) {
- interrupts();
- COMPORT.write("close by reget "); } // Colse
- noInterrupts();
- }
- }//6
-
ertsmal der text
Alles anzeigenCode- Die 1541 Verarbeitet die Signale am IEC Bus folgender massen.
- Ein irq vom ATN wird mit dem setzten des 7c ATN empfangen.
- -> irq zu
- Flag 7c ATN empfangen, 79Listen, 7a Talk löschen
- x=45
- x in stak
- Flag f8 ende löschen
- Flag 7d ATN Aktiv setzen
- Clock out lo
- Data out hi
- ATN acknowledge setzen
- 10 kein ATN? 6
- Kein Clock? 10
- 11 Byte holen
- kein unlisten 1
- Flag 79 Listen löschen
- spung 9
- 1 Kein UnTalk 2
- Flag 7a Talk löschen
- sprung 9
- 2 Keine Talk id 3
- Flag 79Listen löschen, 7a Talk setzen
- sprung 5
- 3 keine Listen id 4
- Flag 79 Listen setzen, 7a Talk löschen
- sprung e8d2
- 4 kein bit 5 und 6 von x gesetzt 9
- 84 = s sekudäradresse
- 83 = 00001111 and x
- kein E0= 11110000 and x 9
- irq an
- routine close
- irq aus
- 5 atn aktiv 11
- 6 Flag 7d ATN löschen
- ATN acknowledge löschen
- kein Flag 79 Listen 7
- rutine daten empfanen
- sprung 5
- 7 Kein Flag 7a Talk 8
- set data out
- del clock out
- Daten Senden
- 8 sprung ea4e
- 9 kein Atn 6
- Atn 9
- --------
-
Ich hab das Stück Code mal aufschieben in text. Das Problem ist. Das in asm mit brauch und jump wild gesprungen werden kann was in c so nicht geht aber es umgesetzt sein will.
Ich werde nacher meine Versuche. zur Diskusion Stellen
-
in Moment bin ich dabei die Art und weise wie die 1541 den Bus bedient aufzuschreiben ...
-
Abaut the get problem i have add a thing to get the las used channel in the ata talk session.
-
in c64 the bit of the i think talk is not set so the c64 tels a different iec stuff.
this is a bug but we see 1541 make it briliant.
-
Dss dos 5.1 arbeitet an einer 1541 einwandfrei.
-
ok bei allen hätte 00 ok 00 00 rauskommen müssen --- da bin ich grade drann das bei mir zu fixen. meatloaf muss noch viel lernen.
-
ok wenn der Kommando Kanal abgefragt wir kommt dann was?
Zum Ersten
1 open1,8,15
2 get#1,a$:?a$;:if st<>64 then 2
3 close1
kommt da was?
Zum Zweiten
load dos 5.1 von der Test Demo Disk
sys 52224
@
kommt da was?
Zum Dritten
1 open1,8,15
2 Input#1,a$,b$,c$,d$:?a$,b$,c$,d$
3 close1
-
welche hast du denn ??
-
klar dev musst du die devicenummer angeben..
-
Teste mal open1,dev:
print#1,"r:file=neufile"
-
fine
-
unlisten and untalk are at busadress 01011111 and 00111111
Auch open1.device testen das klappt bei mir nicht bekomme einen Error.
-
Was heißt läuft wiefiele Laufwerke gehen hast du noch ein weiteres dran? geht get? geht Jiffy ....
-
es gibt von der 64er visaspell und ich hab noch irgendwo eine deutsch datenbank
-
ok heute Abend
-
Der iec2ata hat damit auch keine Probleme und der ist noch langsamer. Das Problem ist der code der eben nicht kompatibel geschieben ist. ... bin Drann...
-
Ich habe eine Version die ich an latech angepasst habe... Interesse?
