X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=lib%2Fiolib%2Fsrc%2Fo%24al.asm;h=7c87266791e4854d7e122c08f43f24e564281bf2;hb=b903ebdb10a06e57e8d90a22d638d96c4a882a23;hp=9456d99a8eab8d0cc32002e53482bee8b82449e3;hpb=c3e0f81a307ef2688fee7ad1b92309ce226d536b;p=h316.git

diff --git a/lib/iolib/src/o$al.asm b/lib/iolib/src/o$al.asm
index 9456d99..7c87266 100644
--- a/lib/iolib/src/o$al.asm
+++ b/lib/iolib/src/o$al.asm
@@ -5,8 +5,10 @@
 *                 ASR TYPING ROUTINES
 *
 * REVISIONS: 
-*            1.0 (5.2.2005)  - FIRST STABLE VERSION
-*            1.1 (10.2.2005) - ADDED FORGOTTEN ASR START SEQUENCE
+*            1.0 (05.02.2005) - FIRST STABLE VERSION
+*            1.1 (10.02.2005) - ADDED FORGOTTEN ASR START SEQUENCE
+*            1.2 (25.07.2005) - CORRECTED ASR START SEQUENCE
+*	     1.2.1 (27.07.2005) - RECORRECTED START SEQUENCE	
 *
 * AUTHOR
 *
@@ -20,7 +22,7 @@
 *
 * RESTRICTIONS
 *
-*    THESE ARE NOT THE ORIGINAL
+*    THESE ARE NOT THE ORIGINAL ROUTINES
 *
 *
 * STORAGE
@@ -125,6 +127,7 @@ SP1	JST	T30	LINE FEED
 *
 **** FORM FEED ROUTINE
 FF	DAC	**
+	JST	ASUP	OUTPUT MODE
 	LDA	SFF
 	TCA
 	STA	CNT
@@ -212,7 +215,7 @@ T14	DAC	**
 *
 T20	DAC	**
 	JST	ASUP	START TTY
-	LDA	=13
+	LDA	=13	CARRIAGE RETURN
 	OTA	4
 	JMP	*-1
 	OTA	4
@@ -223,8 +226,8 @@ T20	DAC	**
 *
 T30	DAC	**
 	JST	ASUP	START TTY
-	LDA	=10
-	OTA	4
+	LDA	=10	LINE FEED
+	OTA	4	
 	JMP	*-1
 	JMP*	T30
 *