Demo-Programm 1

00010 ******************
00020 *    DEMO 1     *
00030 * ZEICHENAUSGABE *
00040 *      UEBER     *
00050 *  ROMRROUTINE  *
00060 ******************
00070 ------------------------------
00080        .LI OFF
00090 ------------------------------
00100 HOLD   .EQ $F0        Hilfsregister fuer Y-Register
00110 ------------------------------
00120 START  LDA #1         ESC-Flag setzen
00130        STA $2FE
00140        LDY #0         Mit Zeichen Null beginnen
00150 .1     JSR CHAROUT    Zeichen ausgeben
00160        INY            naechstes Zeichen
00170        BNE .1         Wiederholen
00180 ------------------------------
00190        STY $2FE       ESC-Flag zuruecksetzen
00200        RTS            Programmende
00210 ------------------------------
00220 CHAROUT STY HOLD       Y-Register retten
00230        JSR ROMOUT     Zeichen ausgeben
00240        LDY HOLD       Y-Register restaurieren
00250        RTS
00260 ------------------------------
00270 ROMOUT LDA $E407      Indirekt uber Stack
00280        PHA            in die Zeichenausgabe
00290        LDA $E406      des ROM springen
00300        PHA
00310        TYA
00320        RTS
00330 ------------------------------
00340 *
00350 ;Programm wurde mit dem Textfile-
00360 ;Printer ausgedruckt
00370 *
00380 ------------------------------