þþq3R.†JMPSIO!‰SIOINTERF;;$C933 im alten: JMP SIO	R#‡SIOINITQ><;;Cassettenmotor aus
R
P…PACTLR!Q><;;CB2 auf HI, es wird keinRP…PBCTL;;Kommando gesendet.RQ>RP†SSKCTLRP†SOUNDR;;I/O-Sound anR0P…SKCTL;;%00000011 => Softwarereset des POKEYR:R3ƒSIO@;;Damit die SIO den Stapel nicht verw}stet.R&†STACKP;;$0318R'Q>;;Kein DVBL und nur ein Teil desR"P†CRITIC;;IVBL wird bearbeitet.R4Q†DDEVIC;;Soll die Cassette angesprochen werden ?RR>`RHˆNOTCASET;;neinR!†CASENT;;ja ->RˆNOTCASETQ> RP†CASFLG;;nicht CassetteR1Q>;;Anzahl der Versuche, die ein Peripherie-R-P†DRETRY;;ger{t zur Befehlsausf}hrung hat.R1†COMMNDQ>;;Anzahl der Versuche, ein KommandoRP†CRETRY;;zu senden. R:†COMFRMQ>4…BD192;;Stelle die Baudrate auf 19200 Bd ein.!R
P…AUDF3"RQ>5…BD192#R
P…AUDF4$R(,;;Ger{tekennung=Ger{t+Ger{tenummer-1%RQ†DDEVIC&R
O…DUNIT'RO>ÿ(RP†CDEVIC)R'Q†DCOMND;;Kommando in Kommandopuffer*RP†CCOMND+RQ…DAUX1;;ebenso AUX1,R
P…CAUX1-RQ…DAUX2;;und AUX2.R
P…CAUX2/R,0R%Q>4†CDEVIC;;Pufferanfang   = $023A1RP†BUFRLO2R!O>;;Pufferl{nge    = 4 Bytes3RP†BFENLO4RQ>5†CDEVIC5RP†BUFRHI6RP†BFENHI7R+Q>4;;CB2=Koomando auf LO. Die folgenden8R/P…PBCTL;;gesendeten Bytes sind ein Kommando.9R4 ˆSENDINIT;;Sende Puffer }ber serielle Schnittst.:R-Q†ERRFLG;;Wird von WAIT gesetzt/geloescht.;RH†BADCOM;;bei Fehler -><R%C;;Wurde das Kommando angenommen ?=RH†ACKREC;;Ja ->>R6†BADCOM"†CRETRY;;Nein, NAck oder Timeout, sende das?R6I†COMFRM;;Kommando erneut, wenn noch Versuche frei.@R!…DERR1;;bei FehlerAR@†ACKRECQ†DSTATS;;ACK wurde empfangen. Daten senden (Bit 7=HI)BR)I‰WAITCOMPL;;o. empfangen (Bit 6=HI) ?CR#Q>;;Daten senden. 13 Versuche.DRP†CRETRYER1 †LDPNTR;;($32)=($0304), ($34)=($0304)+($0308)FR ˆSENDINIT;;Sende PufferGR F…DERR1;;NACK oder Timeout ->HR$‰WAITCOMPL †STTMOT;;Setze TimeoutIRQ> JRP†ERRFLG;;Loesche FehlerflagKR3 †WAITER;;Setze Timer, warte bis Daten empfangenLRF„DERR;;Bei Timeout ->MR+*†DSTATS;;Sind noch Daten zu empfangen ?NRK†MODATA;;Ja ->ORQ†ERRFLGPRH…DERR1;;bei Fehler ->QRF†RETURN;;unbedingtRR'†MODATA †LDPNTR;;Pufferzeiger <- DCBSR ‡RECEIVE;;Empfange DatenTR„DERRQ†ERRFLGURF†NOTERR;;Kein FehlerVRQ…TSTAT;;Status in Page 0WRP†STATUSXR†NOTERRQ†STATUSYRR>;;Status okZRF†RETURN;;Ja ->[R-…DERR1"†DRETRY;;Nein. Noch Versuche frei ?\RG†RETURN;;Nein]R!†COMMND;;N{chster Versuch.^R0†RETURN ‡SENDDIS;;Sendeinterrupt ausschalten._RQ> `RP†CRITICaR%†STATUS;;Page 0 inbR$'†DSTATS;;DCB und Flaggen setzen.cR:dR „WAITQ> ;;Loesche FehlerflageRP†ERRFLGfR,gRQ>4„TEMP;;($32)=$023EhRP†BUFRLOiRO>;;Pufferl{nge 1 BytejRP†BFENLOkRQ>5„TEMPlRP†BUFRHImRP†BFENHInR Q>ÿ;;Keine Pr}fsumme senden.oRP†NOCKSMpR ‡RECEIVE;;Lese 1 Byte.qR%>ÿ;;Operation erfolgreich.rRQ†STATUSsRR>tRH„NWOK;;Verzweige bei FehleruR	Q„TEMPvRR>
A;;Acknowledged.wR!F„GOOD;;Kommando verstanden ->xRR>
C;;CompleteyR/F„GOOD;;Kommando abschliessend bearbeitet ->zRR>
E;;Error{R+H†NOTDER;;Fehler, keine Fehlermeldung ->|R)Q>†DERROR;;Ja, Fehlermeldung empfangen}RP†STATUS~RH„NWOK;;UnbedingtR0†NOTDERQ>…DNACK;;Ger{t hat nicht geantwortet.€RP†STATUSR„NWOKQ†STATUS;;Timeout ?‚RR>†TIMOUTƒRFƒBAD;;Ja ->„RQ>ÿ…RP†ERRFLG†R	H„GOOD‡RƒBAD%> ˆR„GOODQ†STATUS‰R
P…TSTATŠR
:;;Ende‹R$„SENDQ>†SUCCES;;Erfolg annehnmen.ŒRP†STATUSR( †SENDEN;;Setze Parameter f}r senden.ŽR%> ;;Loesche:R'†CHKSUM;;Pr}fsumme,R%'†CHKSNT;;Pr}fsumme gesendet Flag,‘R%'†XMTDON;;Uebertragungsende  Flag.’R/Q@†BUFRLO7;;Das erste Zeichen aus dem Puffer“RP†SEROUT;;senden und”RP†CHKSUM;;Pr}fsumme setzen.•R5‡NOTDONEQ†BRKKEY;;Wurde die BREAK-Taste gedr}ckt ?–RH†NTBRK0;;Nein ->—R!…BROKE;;Ja ->˜R2†NTBRK0Q†XMTDON;;Ist die Uebertragung beendet ?™RF‡NOTDONE;;Nein ->šR* ‡SENDDIS;;Ja, Sendebetrieb abschalten.›R
:;;EndeœR9†ISRODNC;;Interrupt Service Routine Output Data NeededR5;;Y auf den Stapel retten.žR"#†BUFRLO;;Zeiger um 1 erhoehen.ŸRH†NOWPRO R#†BUFRHI¡R)†NOWPROQ†BUFRLO;;Pufferende erreicht ?¢RR†BFENLO£RQ†BUFRHI¤RS†BFENHI¥RD†NOTEND;;Nein ->¦R'Q†CHKSNT;;Pr}fsumme schon gesendet ?§RH†RELONE;;Ja ->¨RQ†CHKSUM;;Pr}fsumme senden.©RP†SEROUTªR!Q>ÿ;;Pr}fsumme wurde gesendet«RP†CHKSNT;;Flag setzen.¬RH‡CHKDONE;;Unbedingt.­R?†RELONEQ†POKMSK;;Uebertragungsendunterbrechung ermoeglichen.®RL>¯RP†POKMSK°R
P…IRQEN±R‡CHKDONE7;;Y & A vom Stapel.²R?³R7´R9;;FertigµR7†NOTEND%> ;;N{chstes Zeichen aus dem Puffer senden.¶RQ@†BUFRLO7·RP†SEROUT¸R,;;Neue Pr}fsumme berechnen.¹RO†CHKSUMºRO> ;;Immer mit Uebertrag !»RP†CHKSUM¼R/!‡CHKDONE;;Ciao, bis zum n{chsten Interrupt.½R;…ISRXDQ†CHKSNT;;Interrupt Service Routine X-mission Done¾R,F…FOOEY;;Pr}fsumme noch nicht gesendet ->¿R+P†XMTDON;;Uebertragungsende-Flag setzen.ÀR7Q†POKMSK;;Uebertragungsendunterbrechung ausschalten.ÁRM>÷ÂRP†POKMSKÃR
P…IRQENÄR
…FOOEY7ÅR9;;FertigÆR‡RECEIVEQ> ÇR%†CASFLG;;Cassette ?ÈRH…NOCLR;;Ja ->ÉRP†CHKSUM;;Loesche: Pr}fsummeÊR,…NOCLRP†BUFRFL;;         Puffer-voll-FlagËR*P†RECVDN;;         Empfang-beendet-FlagÌRQ>†SUCCESÍRP†STATUSÎR! †RECVEN;;Empfang ermoeglichenÏRQ><;;Kein KommandoÐR
P…PBCTLÑR*†CHKTIMQ†BRKKEY;;Wurde BREAK gedr}ckt ?ÒRH†NTBRK1;;Nein ->ÓR!…BROKE;;Ja ->ÔR†NTBRK1Q†TIMFLG;;Timeout ?ÕRF„TOUT;;Nein ->ÖRQ†RECVDN;;Empfang beendet ?×RF†CHKTIM;;Nein ->ØR:ÙR"„TOUTQ>†TIMOUT;;Fehler: TimeoutÚRP†STATUSÛR:ÜR9†ISRSIRC;;Interrupt Service Routine Serial Input ReadyÝR5ÞRQ†SKSTAT;;Eventueller FehlerßR,P…SKRES;;Zur}cksetzen des StatusregistersàR,G†NTFRAM;;Bit 7 = Framing Fehler. Nein ->áR.%>†FRMERR;;Fehler: Framing (Start-/Stopbit)âR'†STATUSãR†NTFRAMM> äRH†NTOVRNåR%>†OVRRUN;;Fehler: UeberlaufæR'†STATUSçR!†NTOVRNQ†BUFRFL;;Puffer voll ?èRF†NOTYET;;Nein ->éR)Q…SERIN;;Dieses Byte ist die Pr}fsummeêR%R†CHKSUM;;Gleich der errechneten ?ëRF†SRETRN;;Ja ->ìR&%>†CHKERR;;Fehler: Pr}fsumme falschíR'†STATUSîR%†SRETRNQ>ÿ;;Empfang abgeschlossenïRP†RECVDNðR†SUSUAL7ñR?òR7óR9;;FertigôR†NOTYETQ…SERIN;;Byte lesenõR%> öR"P@†BUFRLO7;;Im Puffer speichern÷R,øR O†CHKSUM;;Pr}fsumme errechnenùRO> ;;Mit Uebertrag !úRP†CHKSUMûR"#†BUFRLO;;Pufferzeiger erhoehenüRH†NTWRP1ýR#†BUFRHIþR!†NTWRP1Q†BUFRLO;;Puffer voll ?ÿRR†BFENLO SQ†BUFRHISS†BFENHISD†SUSUAL;;Nein ->S Q†NOCKSM;;Kommt PSumme noch ?SF„GOON;;Ja ->SQ> SP†NOCKSM;;LoeschenSF†SRETRN;;UnbedingtS%„GOONQ>ÿ;;Puffer-voll-Flag setzen	SP†BUFRFL
SH†SUSUAL;;UnbedingtS(†LDPNTR,;;DCB Pufferzeiger in Seite 0S1Q†DBUFLO;;($32)=($0304), ($34)=($0304)+($0308)SP†BUFRLOSO†DBYTLOSP†BFENLOSQ†DBUFHISP†BUFRHISO†DBYTHISP†BFENHIS:S†CASENTQ†DSTATS;;Lesen ?SI†CASRED;;Ja ->S$Q>4…BD600;;Baudrate auf 600 Bit/sS
P…AUDF3SQ>5…BD600S
P…AUDF4S! †SENDEN;;Parameter einstellenS$‡PALNTSCS-%…WIRGS9;;Kurze Pause zwischen Datens{tzenS$Q…DAUX2;;Bsp.: Open #1,8,128,"C:"SG†SRTIR0;;Kurze Pause -> S,%…WIRGL9;;Lange Pause (Dateien auf Cass.)!S†SRTIR0$> ;;Pause HI-Byte"S †SETVBX;;Timer setzen#SQ>4;;Cassettenmotor an$S
P…PACTL%S:†TIMIT0Q†TIMFLG;;Wurde der Mark-Ton die vorgeschriebene&S$H†TIMIT0;;Zeit gesendet ? Nein ->'S& †LDPNTR;;Lade Pufferzeiger mit DCB(S „SEND;;Sende Pufferinhalt)S!†CRETRN*S†CASREDQ>ÿ;;Cassette+SP†CASFLG,S$‡PALNTSC-S%…RIRGS9;;Kurze Pause ?.S#Q…DAUX2;;Bsp. Open #1,4,128,"C:"/SG†SRTIR1;;Ja ->0S%…RIRGL9;;Lange Pause1S†SRTIR1$> ;;Pause HI-Byte2S †SETVBX;;Timer setzen3SQ>4;;Motor an4S
P…PACTL5S(†TIMIT1Q†TIMFLG;;Schleife bis Zeit um6SH†TIMIT17S& †LDPNTR;;Lade Pufferzeiger mit DCB8S †STTMOT;;Timeout errechnen9S! †SETVBX;;Timeout Timer setzen:S …BEGIN;;Baudrate messen;S ‡RECEIVE;;Lese Block<S0†CRETRNQ…DAUX2;;Bei kurzer Pause zwischen den=S,G†SRTIR2;;Bloecken bleibt der Motor an ->>SQ><;;Motor aus?S
P…PACTL@S+†SRTIR2!†RETURN;;Bis zum n{chsten Block.AS8…JTADRQ> ;;Timer auf 0 gez{hlt => Pokey Interrupt =>BS*P†TIMFLG;;Ansprung von JTADR durchs OS.CS:DS7†SENDENQ>;;Vorherige Bus-Kontrollbits ausmaskierenESM†SSKCTLFS,L> ;;Sende-und Empfangsfrequenz durch #4GS%†DDEVIC;;Cassette ?HS)>`ISH†NOTCAS;;Nein ->JS%L>;;Zweitonumtastverfahren (FSK)KS%>†LOTONE;;MarkLS
'…AUDF2MS%>†HITONE;;SpaceNS
'…AUDF1OS'†NOTCASP†SSKCTL;;Pokey programmierenPS
P…SKCTLQS1Q>Ç;;Vorherige Bus-Interruptbits ausmaskierenRSM†POKMSKSS#L>;;SEROUT-Interrupt erlauben.TS!†CONTINUS7†RECVENQ>;;Vorherige Bus-Kontrollbits ausmaskierenVSM†SSKCTLWS1L>;;Eingangstakt durch #3+4, asynchr. lesen.XSP†SSKCTLYS
P…SKCTLZS3P…SKRES;;Status-Reset: Serieller Port & Tastatur[S2Q>Ç;;Vorherige Bus-Interrupt-Bits ausmaskieren\SM†POKMSK]S!L> ;;SERIN-Interrupt erlauben^S†CONTINP†POKMSK_S
P…IRQEN`S1Q>(;;Takte #3 mit 1.77 MHz, #4 an #3 anh{ngenaSP†AUDCTLbS$>;;SchleifecS%Q>¨;;Reiner Ton, halbe Lautst{rkedS%†SOUNDR;;<>0 => I/O-SoundeSH†NOISE1;;Ton ja ->fS%Q> ;;Reiner Ton, keine Lautst{rkegS+†NOISE1P…AUDC19;;Alle 4 KontrollregisterhS0iS0jSI†NOISE1kSQ> lS#P…AUDC3;;#3 auf jeden Fall leisemS%†DDEVICnS)>`oS
F…CAS31pS*P…AUDC1;;Wenn nicht Cassette, dann auchqSP…AUDC2;;#1 und #2 leise.rS
…CAS31:sS‡SENDDIS4tS-Q>Ç;;Serielle UnterbrechungsanforderungenuSM†POKMSK;;ausschalten.vSP†POKMSKwS
P…IRQENxS$>ySQ> zS&…ZERITP…AUDC19;;Alle Tonkan{le aus.{S0|S0}S
I…ZERIT~S:SA†STTMOTQ†DTIMLO;;Bsp.: 6s. Bit 7654 3210 C. Timeout umrechnen.€S W?;;%0000 0110 -> C000 0011 0S W?;;           -> 0C00 0001 1‚S?;;zwischensp.ƒSM>?;;Bit 0-5 (vorher: 2-7)„S$>;;X=HI=INT(DTIM/4)   =1   (*256)…SC;;%0C00 0001†S W?;;           -> 10C0 0000 1‡SM>À;;Bit 6-7 (vorher: 0-1)ˆS?;;Y=LO=64*(DTIM-HI*4)=128‰S(:;;(256+128)/60=6.4s     (Bei NTSC !)ŠS†INTTAB	†ISRSIR‹S	†ISRODNŒS
	…ISRXDSˆSENDINIT$>;;PauseŽS†DELAY0%>ÿS†DELAY11SH†DELAY1‘S0’SH†DELAY0“S „SEND;;Sende Daten”S%>;;Setze Timeout f}r ACK•S$> –S*†WAITER †SETVBX;;Setze Timer1 auf JTADR—S „WAIT;;Warten auf das ACK˜SC;;NACK o. Timeout => Y=0™S:šS.†COMPUTP†TIMER2;;(VCOUNT)  Letzte Messwerte›S'†TIMER2;;(RTCLOK+2)œS †ADJUST;;VCOUNT2 abstimmenSP†TIMER2žSQ†TIMER1ŸS †ADJUST;;VCOUNT1 abstimmen SP†TIMER1¡S(Q†TIMER2;;Errechne VCOUNT Unterschied¢S;£SS†TIMER1¤SP…TEMP1;;LO¥S+Q†TIMER2;;Errechne RTCLOK Unterschied¦S;§SS†TIMER1¨S?;;HI©S$‡PALNTSC;;Pal=0, NTSC=1ªSQ> ;;LDA -#$83«S;¬SS…L04809­S†HITIMR,;;A=-#$83+(Y+1)*#$83®SO…L04809¯S1°SI†HITIMR±S,²SO…TEMP1;;VCOUNT Unterschied³S?;;Accu retten´S$V?;;Teile Unterschied durch 4 undµS$V?;;runde auf die n{chst niedrige¶SV?;;gerade ganze Zahl ab.·ST?¸S;¹SS>;;Bestimme TabellenindexºS>»SC;;Akku wieder zur}ck¼SM>;;Die unteren 3 Bit½S?;;retten¾SQ>¿S-†DOINTP,;;Errechne InterpolationskonstanteÀSO>ÁS1ÂS)I†DOINTP;;Fertig mit rechnen ? Nein ->ÃS'%> ;;Loesche AdditionskorrekturflagÄS;ÅS*S>;;Stimme Interpolationskonstante abÆS	I„PLUSÇS1ÈS	„PLUS,ÉS/O†POKTAB9;;Konstante (LO) +Tabellenwert (LO)ÊSP†CBAUDLËSC;;Konstante (HI) +ÌS.O†POKTAB9;;Tabellenwert (HI) + UebertragÍSP†CBAUDHÎS:ÏS"†ADJUSTR>|;;Groesser als 124 ?ÐS	G„ADJ1ÑS;ÒSS>|ÓS:ÔS	„ADJ1,ÕS$‡PALNTSCÖSO…L04879×S:ØSX;ÙSIX;Messung der Baudrate bei der asynchronen Daten}bertragung (Cassette)ÚSX;ÛS)…BEGINQ†BRKKEY;;Wurde BREAK gedr}ckt ?ÜSH†NTBRK2;;Nein ->ÝS!…BROKE;;Ja ->ÞS†NTBRK2=ßSQ†TIMFLGàSH†OKTIM1;;Kein TimeotáSF…TOUT1;;TimeoutâS0†OKTIM1Q†SKSTAT;;Bit 4 ist eine HardwarekopieãS M>;;des seriellen Eingangs.äS-H…BEGIN;;Start-Bit=LO noch nicht gesendet.åS$P…SAVIO;;Zustand des Bits sichernæS%$†VCOUNT;;LO-Anfangszeit speichernçS%†RTCLOK;;HI-èS&†TIMER1éS'†TIMER1êS$>;;Zwei Durchg{ngeëS
&…TEMP3ìS-%>
;;10 Bit (8 Daten-,1 Start-,1 Stopbit)íS…COUNTQ†BRKKEYîS
F…BROKEïSQ†TIMFLG;;Timeout ?ðSH†OKTIMR;;Nein ->ñS
…TOUT1.òS	!„TOUTóS9†OKTIMRQ†SKSTAT;;Lese seriellen Eingang  $AA=%10101010ôSM>;;Bit 4õS#R…SAVIO;;Schon das n{chste Bit ?öSF…COUNT;;Nein ->÷SP…SAVIO;;SichernøS1;;Bitz{hler vermindernùSH…COUNT;;Noch nicht alle 10úS"…TEMP3;;Durchgangsz{hlerûSG†GOREAD;;Datenblock lesenüSQ†VCOUNT;;HI-Messzeit nehmenýS%†RTCLOK;;LO-þS †COMPUT;;BerechnenÿS%>	;;Die 9 restlichen Bits TH…COUNT;;Unbedingt.T0†GOREADQ†CBAUDL;;Pokey auf gemessene BaudrateTP…AUDF3;;einstellen.TQ†CBAUDHT
P…AUDF4T Q> ;;Softwarereset des PokeyTP…SKCTL;;(Wenn Bit 0 & 1 =0)TQ†SSKCTLT
P…SKCTL	T!Q>U;;Cassettenpuffer ab $03FD
T'P@†BUFRLO7;;Die ersten beiden Bytes=T3;;#$55=%01010101TP@†BUFRLO7TQ>ª;;$55+$55=$AATP†CHKSUMT,TQ†BUFRLO;;Die ersten beidenTO>;;Bytes haben wirT P†BUFRLO;;schon, der kommendeT$Q†BUFRHI;;Datenblock enth{lt nochT!O> ;;den Blocktyp, 128 Daten-T%P†BUFRHI;;bytes und die Pr}fsumme.T.T:T/…BROKE ‡SENDDIS;;IRQ's aus, Tonkan{le leise.TQ><;;Motor ausT
P…PACTLT"Q><;;CB2 auf HI, kein KommandoT
P…PBCTLT)Q>†BRKABT;;Fehler: Abbruch durch BREAKTP†STATUST $†STACKP;;Stapelzeiger zur}ck TB!T$"†BRKKEY;;Nach Druck auf BREAK =0"T.#T!†RETURN$T-†SETVBXQ>4…JTADR;;Nullwerden des Z{hlers 1%T"P†CDTMA1;;erzeugt einen IRQ des&T#Q>5…JTADR;;Pokey. Das OS springt'T'P†CDTMA1;;dann indirekt JTADR an.(TQ>;;Vektor 1 setzen)T=*T1 †SETVBV;;X=HI & Y=LO enthalten die Zeitwerte.+TQ>;;Timeout-Flag loeschen.,TP†TIMFLG-T..T:/T1†POKTABè==C=;;Tabelle mit den Baudraten0Tž==ù=1TT==¯=2T
==e=3TÀ===4Tu==Ð=5T*…WIRGL´=–;;Langer IRG beim Schreiben6T&…RIRGLx=d;;Langer IRG beim Lesen7T*…WIRGS=;;Kurzer IRG beim Schreiben8T&…RIRGS
=;;Kurzer IRG beim Lesen9T…L0480ƒ=œ:T…L0487= ;TADisplay HandlerA