        $06 RAWCONIO



        long Crawio( int c );



RAWCONIO ist eine etwas ungewhnliche Mischung aus Tastatureingabe 
und Bildschirmausgabe und erhlt einen Parameter auf dem Stack.



Bei einem Funktionswert $FF wird die Tastatur berprft. Wenn ein 
Zeichen vorhanden ist, so wird es wie schon bei CONINCCONIN 
besprochen mit ASCII- und SCAN-Code in D0 bergeben. Ist jedoch kein 
Tastenwert vorhanden, so wird der Wert Null sowohl als ASCII- wie 
auch als SCAN-Code in D0 bergeben.



Wird ein von $FF unterschiedlicher Wert an die Funktion bergeben, so 
wird der Wert als auszugebendes Zeichen interpretiert und an der 
momentanen Cursor-Position ausgegeben.



----------------------------------------------------------------------
ANFANG: MOVE.W  #$FF,-(SP)      * Funktionswert Tastatur prfen

        MOVE.W  #6,-(SP)        * Funktionsnummer

        TRAP    #1              * GEMDOS aufrufen, Tastatur prfen

        ADDQ.L  #4,(SP)         * Stack korrigieren

        TST.W   D0              * Zeichen angekommen ?

        BEQ     ANFANG          * noch nicht !

        CMP.B   #3,D0           * ^C frei gewhltes Ende-Kennzeichen

        BEQ     ENDE

        MOVE    D0,-(SP)        * Zeichen fr die Ausgabe auf den Stack

        MOVE    #6,-(SP)        * Funktionsnummer

        TRAP    #1              * GEMDOS aufufen, Tastatur prfen

        ADDQ.L  #4,SP           * Stack korrigieren

        BRA     ANFANG          * neues Zeichen holen

ENDE:

----------------------------------------------------------------------
