00010 ******************
00020 *    DEMO 3     *
00030 * SEKTOREN LESEN *
00040 *  UND AUF DEM  *
00050 *  BILDSCHIRM   *
00060 *    ASUGEBEN    *
00070 ******************
00080 ------------------------------
00090        .LI OFF
00100 ------------------------------
00110 SAVMSC .EQ $58        Adresse des Bildschirmspeicher
00120 DUNIT  .EQ $301       Laufwerksnummer
00130 DCOM   .EQ $302       Diskkomando
00140 DBUF   .EQ $304       Datenpufferpointer
00150 DSEC   .EQ $30A       Sektornummer
00160 DISKIO .EQ $E453      Einsprung in Disk I/O Routine
00170 ------------------------------
00180 START  LDA SAVMSC     Bildschirm
00190        STA DBUF       als Datenpuffer
00200        LDA SAVMSC+1   fuer Sektordaten
00210        STA DBUF+1
00220        LDA #1         Laufwerk
00230        STA DUNIT      und Sektornummer
00240        STA DSEC       auf 1 setzen
00250        LDA #0
00260        STA DSEC+1
00270        LDA #´R        Kommando $52 (READ Sektor)
00280        STA DCOM
00290 ------------------------------
00300 DISK   JSR DISKIO     Sektor in Buffer lesen
00310        BPL SEKOK      Status positiv
00320        RTS            Nein, Programm abbrechen
00330 *
00340 SEKOK  INC DSEC       Sektornummer
00350        BNE DISK       hochzaehlen
00360        INC DSEC+1     weitermachen...
00370        JMP DISK       .....
00380 ------------------------------
00390 *
00400 ;Programm wurde mit dem Textfile-
00410 ;Printer ausgedruckt
00420 *
00430 ------------------------------