þþkø* Àù*‡PSUMME1	’;;Pr}fsumme 1ú*	û*	ƒü*	BBý*	 þ*	ÿ*A‘Interrupt HandlerA +*‰NMIENABLEQ>@;;(Bit 6) Einschalten des+'P…NMIEN;;Vertikalsynchron-Interrupts+'Q…TRIG3;;Ist ein Modul eingesteckt ?+*P†GINTLK;;(1=Ja, 0=Nein) Status sichern+:+*†NMIVKT*…NMIST;;ANTIC: Ist es ein DLI ?+I…PNMI1;;Bit 7=0 => Nein ->+%!@†VDSLST:;;Vektor zur DLI-Routine+&…PNMI1-;;Vertikalsynchron-Interrupt	+5;;Alle Register retten
+&A;;(Bit 5=RNMI wird nicht getestet)+5+C+5;;Ein beliebiger Wert setzt+!P…NMIST;;die Statusbits zur}ck+&!@†VVBLKI:;;Vektor zur IVBL-Rouitne+,†IRQVKT-;;Pokey, par. Bus, PIA o. CPU IRQ++!@†VIMIRQ:;;Sprung nach SYIRQ o. anderes+…SYIRQ5;;A retten+(Q…IRQST;;Statusregister: Bit=0 => IRQ+-M> ;;Hat der ser. Eingang Daten gelesen ?+H‰SYIRQPDEV;;Nein ->+-Q>ß;;Ein in IRQST gesetztes (=0) Bit wird+.P…IRQEN;;geloescht (=1), in dem es in IRQEN+.Q†POKMSK;;auch kurz gesetzt (=0) wird. Dann+1P…IRQEN;;noch den alten Zustand herstellen und++!@†VSERIN:;;ISRSIR o. andere anspringen.+‰SYIRQPDEVA;;X retten+5+2Q„PDVS;;IRQ durch ein Ger{t am parallelen Bus ?+'M†PDIMSK;;Darf das Ger{t anfordern ?+F‰SYIRQPOKY;;Nein -> + !@…VPIRQ:;;NEUIOREQ o. andere!+1‰SYIRQPOKY$>;;Restliche POKEY IRQ's abfragen"+/‡SYIRQPLQ‡MASKTAB9;;ODN,XD,T1,T2,T4,KB,BREAK#+%(>;;Test f}r Transmission Done ?$+H‡SYIRQPT;;Nein ->%+M†POKMSK;;IRQ erlaubt ?&+F‡SYIRQPC;;Nein ->'+$‡SYIRQPT*…IRQST;;Ist es der IRQ ?(+F‡SYIRQPR;;Ja ->)+%‡SYIRQPC0;;Nein, Schleife bis alle*+%I‡SYIRQPL;;Bits getestet wurden ->++,!†SYIRQ8;;POKEY wars nicht, PIA testen ->,+*‡SYIRQPRN>ÿ;;Statusbit wieder loeschen-+
P…IRQEN.+ Q†POKMSK;;Alte IRQ's erlauben/+
P…IRQEN0+(> ;;BREAK ?1+H‡SYIRQPJ;;Nein ->2+Q†KEYDIS;;Tastatur an ?3+H†SYIRQ8;;Nein ->4+3‡SYIRQPJQ†VECTAB9;;Indizierter indirekter Sprung5+>;;Je nach IRQ wird aus der6+)Q†VDSLST9;;Tabelle ein Offset gelesen.7+*P…JVECK;;Der Vektor, der an Stelle $2008+1Q†VDSLST9;;+Offset steht, wird nach (JVECK)9+P…JVECK;;kopiert.:+7;;X wieder vom Stapel holen;+><+#!@…JVECK:;;und Vektor anspringen=+0ˆBRKEVENTQ> ;;Die BREAK-Taste wurde gedr}ckt>+P†BRKKEY;;Flag setzen?+$P†SSFLAG;;Flag loeschen (Stop<>0)@+P†CRSINH;;Cursor sichtbarA+-P†ATRACT;;Zeit bis Atractmodus r}ckstellenB+7C+9D+†SYIRQ87;;PIA testenE+>;;X war noch auf dem StapelF+*…PACTL;;CA1: Proceed IRQG+I†SYIRQ9;;Nein ->H+1Q…PORTA;;Datum lesen & evtl. Quittung }ber CA2I+!!@†VPRCED:;;(Zeigt auf SYIRQB)J+%†SYIRQ9*…PBCTL;;CB2: Interrupt IRQK+I†SYIRQA;;Nein ->L+1Q…PORTB;;Datum lesen & evtl. Quittung }ber CB2M+!!@†VINTER:;;(Zeigt auf SYIRQB)N+0†SYIRQA7;;CPU testen. A vom Stapel und rettenO+
P…JVECKP+*7;;Bei einem NMI oder IRQ wird nach demQ+&5;;Programmz{hler (2 Byte) auch dasR+-M>;;Statusregister autom. auf den StapelS+1F†SYIRQC;;gebracht. Bit 4 (=1) zeigt IRQ durchT+ Q…JVECK;;einen BRK-Befehl an.U+5;;A wieder auf den Stapel.V+0!@†VBREAK:;;!!PC zeigt auf 2. Byte nach BRK!!W+/†SYIRQCQ…JVECK;;IRQ nicht erkannt. A zur}ck.X+5Y+†SYIRQB7Z+
…SYRTI9[+1‡MASKTAB€=@==;;Tabelle zum Ausmaskieren\+ === ;;eines Pokey IRQ]+/†VECTAB6===;;$0200+Offset aus VECTAB^+&===
;;=Vektor f}r Pokey IRQ_+%‡WAITRST!‡WAITRST;;Warte auf RESET`+-†SYSVBL#†RTCLOK;;Softwareuhr, wird allea+ H†SYSVB1;;1/50s um 1 erhoeht.b+##†ATRACT;;Alle 256/50s =ca. 5.1sc+#†RTCLOKd+H†SYSVB1e+#†RTCLOKf+"†SYSVB1Q>þ;;Normale Helligkeitg+$> ;;Keine Farbverschiebungh+%%†ATRACT;;Schon groesser als 127 ?i+&I†VBATRA;;Nein, kein Atractmodus ->j+P†ATRACTk+*$†RTCLOK;;Farbverschiebung alle 5.1sl+Q>ö;;Verminderte Helligkeitm+†VBATRAP†DRKMSKn+&†COLRSHo+$Q†COLOR1;;Farbe von PF1 ver{ndernp+N†COLRSHq+M†DRKMSKr+P†COLPF1s+$> ;;Timer 1t+" †DCTIMR;;Erniedrigen falls <>0u+'H†SYSVB2;;Hat nicht auf 0 gez{hlt ->v+ †JTIMR1w+,†SYSVB2Q†CRITIC;;Wenn gesetzt, IVBL Ende.x+*H„XXIT;;S zeigt auf den n{chsten freieny+%@;;Platz. Auf dem Stapel sind hierz+0Q…STACK9;;Y,X,A u. P, der Status vor einem{+(M>;;NMI (h.: IVBL). War I gesetzt ?|+#F†SYSVB3;;Nein, weiter machen ->}+!„XXIT!‡EXITVBL;;Ja, IVBL Ende.~+.†SYSVB3Q…TRIG3;;Wurde ein Modul eingesteckt+"R†GINTLK;;oder herausgenommen ?€+H‡WAITRST;;Ja ->+%Q„PENV;;Position des Lichtgriffels‚+#P…LPENV;;in die Schattenregisterƒ+	Q„PENH„+
P…LPENH…+)Q†VDLIST;;Adresse der DList aus den†+ P†DLISTH;;Schattenreg. in die‡+Q†VDLIST;;Hardwareregisterˆ+P†DLISTL‰+Q†SDMCTL;;DMAŠ+P†DMACTL‹+Q†GPRIORŒ+
P…PRIOR+,Q†VSFLAG;;Zwischenregister f}r vertikalesŽ+F‡NOSCROL;;Finescrollen+"†VSFLAG+Q>;;Bildschirm nach oben‘+;;;feinverschieben’+S†VSFLAG“+M>”+P†VSCROL•+"‡NOSCROL$>;;Freigeben aller 3–+&†CONSOL;;Tasten—+-†SCOLLP.;;Ein IRQ/NMI setzt es automatisch˜+'Q†PCOLR09;;Alle Farbregister vom Ram™+N†COLRSH;;Farbverschiebungš+M†DRKMSK;;Helligkeit›+P†COLPM09œ+0+$I†SCOLLP;;Weiter, bis alle 9ne ->ž+&Q…CHBAS;;Anfangsadresse ZeichensatzŸ+P†CHBASE +$Q…CHACT;;Anzeigeweise der Zeichen¡+P†CHACTL¢+$>;;Timer 2£+# †DCTIMR;;erniedrigen, falls <>0¤+&H†SYSVB4;;Wurde nicht auf 0 gez{hlt¥+ †JTIMR2¦+†SYSVB4$>§+#†SYSVBB2;;Erniedrige Timer 3,4,5¨+2©+Q†CDTMV19ª+L†CDTMV19«+!F†SYSVBA;;Timer ist schon 0 ->¬+ †DCTIMR­+P†CDTMA19;;Flags setzen®+†SYSVBA(>¯+!H†SYSVBB;;Noch nicht fertig ->°+!Q†SKSTAT;;Ist die letzte Taste±+M>;;immer noch gedr}ckt ?²+F‡SYSVB6A;;Ja ->³+ Q†KEYDEL;;Tastaturentprellung´+#F‡SYSVB6A;;Kein Tastenprellen ->µ+"†KEYDEL;;3/50s¶+&‡SYSVB6AQ†SRTIMR;;=0 verhindert die·+"F†SYSVB7;;Tastenwiederholung ->¸+Q†SKSTAT;;Letzte Taste immer¹+M>;;noch gedr}ckt ?º+H†SYSVB6;;Nein ->»+'"†SRTIMR;;Ja, Zeit bis zum Einsetzen¼+#H†SYSVB7;;der Tastenwiederholung½+Q†KEYDIS;;Tastatur an ?¾+H†SYSVB7;;Nein ->¿+ Q†KEYREP;;Geschwindigkeit derÀ+P†SRTIMR;;TastenwiederholungÁ+Q†KBCODE;;Gedr}ckte TasteÂ+R>Ÿ;;ctrl-1Ã+F†SYSVB7;;Ja ->Ä+R>ƒ;;ctrl-F1Å+F†SYSVB7;;Ja ->Æ+R>„;;ctrl-F2Ç+F†SYSVB7;;Ja ->È+R>”;;ctrl-F4É+F†SYSVB7;;Ja ->Ê+"M>?;;Unbeachtet Shift/Ctrl dieË+R>;;HELP-TasteÌ+F†SYSVB7;;Ja ->Í+!Q†KBCODE;;Tastendruck ausgebenÎ+P‚CHÏ+!†SYSVB7Ð+,†SYSVB6Q> ;;Ansprechen der Tastenwieder-Ñ+P†SRTIMR;;holung verhindernÒ+)†SYSVB7Q…PORTA;;Joystickports auslesenÓ+V?;;Es gibt nur noch 2 PortsÔ+V?;;bei XL/XE. Die beidenÕ+V?;;anderen werdenÖ+V?×+P†STICK1Ø+P†STICK3;;simuliertÙ+
Q…PORTAÚ+M>Û+P†STICK0Ü+P†STICK2;;simuliertÝ+Q…TRIG0;;Trigger auslesenÞ+P†STRIG0ß+P†STRIG2;;simuliertà+
Q…TRIG1á+P†STRIG1â+P†STRIG3;;simuliertã+$>;;(POT LooP)ä+,…POTLPQ„POT09;;Auch die restlichen 4 Potså+(P†PADDL09;;werden simuliert, obwohl -æ++P†PADDL49;;die Anschl}sse gibts noch ...ç+0è+
I…POTLPé+)P…POTGO;;Startet neuen Messgang f. Potê+$>ë+%>ì+)…PTRLPQ†STICK08;;(Paddle TRigger LooP)í+V?;;Joystickeing{nge alsî+V?;;Paddle Triggerï+V?;;verwenden.ð+P†PTRIG19ñ+P†PTRIG59;;simuliertò+Q> ó+U?ô+P†PTRIG09õ+P†PTRIG49;;simuliertö+0÷+0ø+1ù+
I…PTRLPú+!@†VVBLKD:;;Verzoegerter VBLû+$†JTIMR1!@†CDTMA1:;;Vektor Timer 1ü+$†JTIMR2!@†CDTMA2:;;Vektor Timer 2ý+)†DCTIMR%†CDTMV19;;Timer herunterz{hlenþ+H†DCTIM1;;falls <>0ÿ+%†CDTMV19 ,F‡NONZERO,"†CDTMV19,†DCTIM1"†CDTMV19,H‡NONZERO,%†CDTMV19,H‡NONZERO,"Q> ;;Timer wurde auf 0 gez{hlt,:,(‡NONZEROQ>ÿ;;Timer wurde nicht auf 0	,:;;gez{hlt
,&†SETVBLT?;;Routine zum setzen eines, P†INTEMP;;Vektors/Timers. A*2,A;;HI-Byte,#$>;;Warteschleife beginnt nach,%P…WSYNC;;dem Ende einer Bildzeile.,"†SETVBW0;;(Verhindert einen NMI,%H†SETVBW;;w{hrend des Setzens ???),$†INTEMP;;Vektor Nummer,P†VIMIRQ9;;HI-Byte, C;;(Geht STY VIMIRQ,X nicht?),P†VIMIRQ9,:,(‡EXITVBL7;;(EXIT from Vertical BLank),?,7,>,7,9,AŽSystem MonitorA