þþ±e…CINITQ>4…BD600‘eP†CBAUDL’eQ>5…BD600“eP†CBAUDH”e†CSPECL:•e&…COPENQ†ICAX2Z;;Kurze/lange Bloecke–e%P…FTYPE;;%1xxxxxxx = kurze Bloecke—eQ†ICAX1Z;;Lesen / Screiben˜eM>™eR>šeF‰CASOPENIN›eR>œe
F…OPOUTe:že‰CASOPENINQ> ŸeP…WMODE;;Lesen eP„FEOF;;Flag loechen¡eQ>¢e „BEEP;;Tr||||t !£e"G†OPNRTN;;Falls Fehler bei Beep¤eŠGOCASMOTONQ>4¥eP…PACTL;;Motor einschalten¦e$‡PALNTSC§e%%‡RLEADLO9;;LO Dauer des Vorspanns¨eQ‡RLEADHI9;;HI©e>ªeQ>;;Timer 3«eP†CDTMF3;;Flag loeschen¬e †SETVBV;;Timer 3 setzen­e*†WAITTMQ†CDTMF3;;Ist Timer 3 abgelaufen®eH†WAITTM;;Nein, warten¯eQ>€°e&P„BPTR;;N{chstes Byte = Puffer leer±eP„BLIM;;Pufferl{nge 128 Byte²e	!„OPOK³e.„PBRK%>†BRKABT;;Fehler: Abbruch durch BREAK´e"†BRKKEY;;zr}cksetzenµe†OPNRTNQ> ¶eP…WMODE;;loeschen &·e
:;;Ende¸e…OPOUTQ>€¹eP…WMODE;;SchreibenºeQ>»e „BEEP;;Tr||||t, tr||||t.¼e"G†OPNRTN;;Falls Fehler bei Beep½e!Q>4…BD600;;Baudrate einstellen¾e
P…AUDF3¿eQ>5…BD600Àe
P…AUDF4ÁeQ>`ÂeP†DDEVICÃe †SENDEV;;Mark-Ton schreibenÄeQ>4ÅeP…PACTL;;Motor einschaltenÆe$‡PALNTSCÇe%%‡WLEADLO9;;LO Dauer des VorspannsÈeQ‡WLEADHI9;;HIÉe>ÊeQ>Ëe †SETVBV;;Timer 3 setzenÌeQ>ÿÍeP†CDTMF3;;Flag l|schenÎe&„WDLRQ†BRKKEY;;Wurde BREAK gedr}cktÏeF„PBRK;;Ja ->ÐeQ†CDTMF3;;Zeit schon rumÑeH„WDLR;;Nein ->ÒeQ> ÓeP„BPTR;;InitialisierenÔe„OPOK%>†SUCCES;;Status okÕe:Öe!„CGETQ„FEOF;;Falls End Of File×eG…ISEOF;;Ja ->Øe $„BPTR;;Pufferende erreicht ?Ùe	(„BLIMÚe%F‰CASREADBL;;Ja, neuen Block lesenÛe-Q†CASBUF9;;N{chstes Byte aus dem PufferÜe #„BPTR;;Pufferzeiger erhoehenÝe%>†SUCCES;;Status okÞeƒGBX:ße‰CASREADBLQ>
R;;SIO: Lesenàe) …SIOSB;;Puffer einstellen und JMP SIOáeCâeGƒGBX;;SIO FehlerãeQ> äe"P„BPTR;;Zeiger auf Pufferanfangåe$>€æe$Q†RECTYP;;Art deskommenden Blocksçe$R>þ;;Letzter Block, 128 Nullen ?èeF…ATEOF;;Ja, EOF ->ée#R>ú;;Block < 128 g}ltige Byte ?êe!HƒNLR;;Nein, normaler Block ->ëe,$†RECSIZ;;Im letzten Byte steht die L{ngeìe'ƒNLR&„BLIM;;Tats{chliche Pufferl{ngeíe	!„CGETîe$…ATEOF"„FEOF;;Fehler: End Of Fileïe…ISEOF%>†EOFERRðe:ñe„CPUT$„BPTRòe$P†CASBUF9;;Zeichen abspeichernóe#„BPTR;;Pufferzeiger erh|henôe%>†SUCCES;;Status okõe(>;;Puffer voll ?öeF…CPUT1;;Ja ->÷e:øe*…CPUT1Q>ü;;Normaler Block mit 128 Byteùe) †WSIOSB;;(Write SIO on System Buffer)úeQ> ûeP„BPTR;;Puffer wieder freiüe:ýe(†CSTATS%>†SUCCES;;(3 Byte verschenkt)þe:ÿe(†CCLOSEQ…WMODE;;Beim Schreiben vorher f G…CLWRT;;den Puffer leeren ->f%>f„FCAXQ><;;Motor ausschaltenf
P…PACTLf:f…CLWRT$„BPTR;;Puffer leer ?fF„WTLR;;Ja ->f!&†RECSIZ;;Anzahl g}ltiger Bytef'Q>ú;;Blocktyp: Weniger als 128 Byte	f †WSIOSB;;Puffer schreiben
fG„FCAX;;Bei Fehler ->f„WTLR$>f%Q> ;;Puffer mit 128 Nullen f}llenf…ZTBUFP†CASBUF9f0fI…ZTBUF;;Schleifef)Q>þ;;Blocktyp: Letzter Block m. 128*0f! †WSIOSB;;SIO Puffer schreibenf!!„FCAX;;(File Closed And eXit)f„BEEPP„FREQ;;Tr||tanzahlf…BEEP1Q†RTCLOKf,f$‡PALNTSCfO‡BEEPLEN9;;1s Beepf>fƒWFLQ>ÿfP†CONSOL;;'Lautsprecher' anfQ> f%>ðf†BEEPW01;;Einen AugenblickfH†BEEPW0;;warten ->fP†CONSOL;;'Lautsprecher' aus f%>ð!f†BEEPW11;;Einen Augenblick"fH†BEEPW1;;warten ->#f%(†RTCLOK;;Ist die Sekunde rum ?$fHƒWFL;;Nein ->%f"„FREQ;;Schon alle Tr||ts ?&fF„WFAK;;Ja ->'fA(f,)f$‡PALNTSC*fO‡BEEPGAP9;;Ein wenig Pause+f>;;zwischen den Tr||ts,f†BEEPW2(†RTCLOK-fH†BEEPW2.fF…BEEP1;;Weiter tr||ten/f0„WFAK …WFAK1;;(Wait For Acknowldge): Der User0f$C;;acknowledged das Troetkommando1f%:;;durch Dr}cken einer Taste. Ende2f'…WFAK1Q†KEYBDV;;Indirekter Sprung3f5;;nach KGETCH4fQ†KEYBDV5f56f:7f'…SIOSBP†DCOMND;;SIO on System Buffer8fQ> ;;Pufferl{nge 131 Byte9fP†DBYTHI:fQ>ƒ;fP†DBYTLO<fQ>5†CASBUF;;Pufferadresse=fP†DBUFHI>fQ>4†CASBUF?fP†DBUFLO@fQ>`;;CassetteAfP†DDEVICBfQ> Cf
P…DUNITDfQ>#;;Timeout 35 secEfP†DTIMLOFf&Q†DCOMND;;Datenrichtung feststellenGf%>@;;%01xxxxxx = SIO lesenHfR>
R;;Ist es lesen ?IfF‡SIOSBRW;;Ja ->Jf"%>€;;%10xxxxxx = SIO schreibenKf‡SIOSBRW'†DSTATSLfQ…FTYPE;;Kurzer/langer IRGMf
P…DAUX2Nf$ „SIOV;;(JMP SIO ersetzt das RTS)Of:Pf0†WSIOSBP†RECTYP;;(Write SIO on System Buffer)Qf(Q>U;;2 Byte f}r die BaudratenmessungRf%P†CASBUF;;beim Lesen vor dem LesenSf"P†CASBUF;;eines jeden BlocksTfQ>
W;;SIO: SchreibenUf' …SIOSB;;(JMP SIOSB ersetzt das RTS)Vf:Wf)‡WLEADHI=;;Dauer: Write Leader HIXf)‡WLEADLO€=À;;                    LOYf)‡RLEADHI=;;       Read  Leader HIZf)‡RLEADLO@=à;;                    LO[f"‡BEEPLEN=;;       Des Beep\f)‡BEEPGAP
=;;       Pause zw. Beeps]fA•Der Drucker - TreiberA