X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=lib%2Ffortran%2Fsrc%2Fpchar.asm;h=60a9a43335aa37bdaaf9ccee00be378719d8fff4;hb=108066a55bac2fb4514b6e3e72bc216b36d405f2;hp=1c2f16094b9d8b2c7b2d684c64b16d45a7bc3ced;hpb=c08e22bbb226696a64764be9b466a02a3ab0d93f;p=h316.git

diff --git a/lib/fortran/src/pchar.asm b/lib/fortran/src/pchar.asm
index 1c2f160..60a9a43 100644
--- 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