X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=lib%2Fiolib%2Fsrc%2Fo%24al.asm;h=9456d99a8eab8d0cc32002e53482bee8b82449e3;hb=008a15c07914ebf7f69e6243c4d2754c8f959a7f;hp=99d5b944f01873777727e69737d6556eb1f64fde;hpb=1cdd230d2872a59d05b4030785f9a01350bf1577;p=h316.git

diff --git a/lib/iolib/src/o$al.asm b/lib/iolib/src/o$al.asm
index 99d5b94..9456d99 100644
--- a/lib/iolib/src/o$al.asm
+++ b/lib/iolib/src/o$al.asm
@@ -6,7 +6,7 @@
 *
 * REVISIONS: 
 *            1.0 (5.2.2005)  - FIRST STABLE VERSION
-*            1.1 (10.2.2005) - ADDED FORGOTTEN OCP COMMANDS 
+*            1.1 (10.2.2005) - ADDED FORGOTTEN ASR START SEQUENCE
 *
 * AUTHOR
 *
@@ -136,6 +136,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,
@@ -151,7 +159,7 @@ LINE	DEC	-40	NEG LINES LEFT ON PAGE
 *** AB HIER ABGESCHRIEBENER CODE!
 T1	DAC	**
 	STX	XR
-	OCP	'104	START TTY
+	JST	ASUP	START TTY
 	LDA*	T1
 	ADD	WIDH
 	ADD	='40000
@@ -203,7 +211,7 @@ T14	DAC	**
 ********************************************************************************
 *
 T20	DAC	**
-	OCP	'104	START TTY
+	JST	ASUP	START TTY
 	LDA	=13
 	OTA	4
 	JMP	*-1
@@ -214,7 +222,7 @@ T20	DAC	**
 ********************************************************************************
 *
 T30	DAC	**
-	OCP	'104	START TTY
+	JST	ASUP	START TTY
 	LDA	=10
 	OTA	4
 	JMP	*-1