00010 ******************
00020 *    DEMO 2     *
00030 * ZEICHENAUSGABE *
00040 *      UEBER     *
00050 *  ROMRROUTINE  *
00060 ******************
00070 ------------------------------
00080        .LI OFF
00090 ------------------------------
00100 HOLD   .EQ $F0        Hilfsregister
00110 ------------------------------
00120 START  LDA #0
00130 LOOP   LDA TEXT,Y     Zeichen holen
00140        BNE ZEICHEN    CODE Null?
00150        RTS            ja, Programmende
00160 *
00170 ZEICHEN JSR CHAROUT    Ausgeben
00180        INY            Naechstes Zeichen
00190        JMP LOOP
00200 ------------------------------
00210 CHAROUT STY HOLD       Y-Register retten
00220        JSR ROMOUT     Zeichen ausgeben
00230        LDY HOLD       Y-Register restaurieren
00240        RTS
00250 ------------------------------
00260 ROMOUT TAX
00270        LDA $E407      Indirekt uber Stack
00280        PHA            in die Zeichenausgabe
00290        LDA $E406      des ROM springen
00300        PHA
00310        TXA
00320        RTS
00330 ------------------------------
00340 TEXT   .HX 7D         Clear Screen
00350        .AS “Dieser Text wurde ueber die Zeichen-”
00360        .HX 9B         Naechste Zeile
00370        .AS “ausgaberoutine des ROMs ausgegeben. “
00380        .HX 00
00390 ------------------------------
00400 *
00410 ;Programm wurde mit dem Textfile-
00420 ;Printer ausgedruckt
00430 *
00440 ------------------------------