*** empty log message ***

[h316.git] / lib / fortran / src / pchar.asm

diff --git a/lib/fortran/src/pchar.asm b/lib/fortran/src/pchar.asm
index 1c2f16094b9d8b2c7b2d684c64b16d45a7bc3ced..60a9a43335aa37bdaaf9ccee00be378719d8fff4 100644 (file)
--- a/lib/fortran/src/pchar.asm
+++ b/lib/fortran/src/pchar.asm
@@ -16,9 +16,9 @@ P     DAC     **
        LDA*    P       ERSTE ARG-ADRESSE
        STA     TMP1    POINTER
        LDA*    TMP1    IN
-****   OCP     '104    ASR START
-       SKS     4       WAIT FOR ASR33
-       JMP     *-1     TO BECOME READY
+       SKS     '104    TEST IF ASR BUSY
+       JMP     *-1     JUMP BACK
+       OCP     '104    ASR START
        CAL             CLEAR UPPER BITS
        OTA     4       OUTPUT CHAR
        JMP     *-1     SECURITY