*************************************************
* TEXTAUSGABE IN ASSEMBLER UEBER CIO
* PETER FINZEL 1984
* ATMAS-II ASSEMBLER FORMAT
*************************************************

CPTXTR   EQU $09           CIO BEFEHL PUT TEXT"
ICCOM    EQU $0342         KOMMANDOBYTE IOCB 0
ICBADR   EQU $0344         PUFFER-ADRESSE
ICBLEN   EQU $0348         PUFFER-LNGE
CIOV     EQU $E456         CIO-EINSPRUNGADRESSE

         ORG $0680

*************************************************
* DEMOPROGRAMM ZUR NUTZUNG VON TEXTAUS
*************************************************

DEMO     LDA #TEXT1:L      LSB VON TEXT1 IN AKKU
         LDY #TEXT1:H      MSB IN Y-REGISTER
         JSR TXTAUS        AUSGABEROUTINE AUFRUFEN
         RTS               ENDE
TEXT1    ASC "DIESE ZEILE WIRD"
         ASC " AUSGEGEBEN!"
         DFB $9B

*************************************************
* TEXTAUSGABE UNTERBROGRAMM
*
* AN AKKU UND Y TEXTADRESSE UEBERGEBEN
* A=LSB Y=MSB
* TEXT MUSS MIT $9B (EOF) ENDEN
*************************************************

TXTAUS   STA ICBADR        TXTADRESSE AN IOCB
         STY ICBADR+1
         LDA #CPTXTR       BEFEHL FUER PUT TEXT
         STA ICCOM         AN IOCB
         LDA #100          MAXIMALE TEXTLAENGE
         STA ICBLEN
         LDA #0
         STA ICBLEN+1
         LDX #0            IOCB#0
         JSR CIOV          IOCB ROUTINE AUFRUFEN
         RTS