X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=lib%2Fiolib%2Fsrc%2Fo%24al.asm;h=f79c29108b9dfbc9eb72e4de23db42b99d6c3827;hb=f2cabac143e7c1d214ca2bc54461738fce5b1677;hp=625a9e317e7073af06f9b3ed15a2f3d2f5609af3;hpb=c08e22bbb226696a64764be9b466a02a3ab0d93f;p=h316.git

diff --git a/lib/iolib/src/o$al.asm b/lib/iolib/src/o$al.asm
index 625a9e3..f79c291 100644
--- a/lib/iolib/src/o$al.asm
+++ b/lib/iolib/src/o$al.asm
@@ -5,7 +5,10 @@
 *                 ASR TYPING ROUTINES
 *
 * REVISIONS: 
-*            1.0 (5.2.2005)
+*            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
 *
@@ -96,6 +99,7 @@ HL1	LDA*	P1
 	JMP*	OSAH	RETURN
 ********************************************************************************
 *
+*
 NP	DAC	**	PREPARE NEW PAGE
 	LDA	PGS	LOAD LINES PER PAGE
 	TCA		NEGATE
@@ -123,6 +127,7 @@ SP1	JST	T30	LINE FEED
 *
 **** FORM FEED ROUTINE
 FF	DAC	**
+	JST	ASUP	OUTPUT MODE
 	LDA	SFF
 	TCA
 	STA	CNT
@@ -134,6 +139,14 @@ FF1	OTA	4	SEND LINE FEED
 	JMP*	FF	RETURN
 *
 *
+* ASR START ROUTINE
+ASUP	DAC	**
+	SKS	'104
+	JMP	*-1
+	OCP	'104
+	JMP*	ASUP
+*
+*
 XR	DEC	0	SAVED X REGISTER
 CNT	DEC	0
 HBUF	BCI	20,
@@ -149,6 +162,7 @@ LINE	DEC	-40	NEG LINES LEFT ON PAGE
 *** AB HIER ABGESCHRIEBENER CODE!
 T1	DAC	**
 	STX	XR
+	JST	ASUP	START TTY
 	LDA*	T1
 	ADD	WIDH
 	ADD	='40000
@@ -200,6 +214,7 @@ T14	DAC	**
 ********************************************************************************
 *
 T20	DAC	**
+	JST	ASUP	START TTY
 	LDA	=13
 	OTA	4
 	JMP	*-1
@@ -210,6 +225,7 @@ T20	DAC	**
 ********************************************************************************
 *
 T30	DAC	**
+	JST	ASUP	START TTY
 	LDA	=10
 	OTA	4
 	JMP	*-1