From: hachti <hachti>
Date: Thu, 10 Feb 2005 02:58:14 +0000 (+0000)
Subject: Einige OCPs dazu gemacht.
X-Git-Url: http://gitweb.hachti.de/?a=commitdiff_plain;h=1cdd230d2872a59d05b4030785f9a01350bf1577;hp=e903a9b2dff3333fbc8035eecb73703d0a323360;p=h316.git

Einige OCPs dazu gemacht.
---

diff --git a/lib/iolib/src/o$al.asm b/lib/iolib/src/o$al.asm
index 625a9e3..99d5b94 100644
--- a/lib/iolib/src/o$al.asm
+++ b/lib/iolib/src/o$al.asm
@@ -5,7 +5,8 @@
 *                 ASR TYPING ROUTINES
 *
 * REVISIONS: 
-*            1.0 (5.2.2005)
+*            1.0 (5.2.2005)  - FIRST STABLE VERSION
+*            1.1 (10.2.2005) - ADDED FORGOTTEN OCP COMMANDS 
 *
 * AUTHOR
 *
@@ -96,6 +97,7 @@ HL1	LDA*	P1
 	JMP*	OSAH	RETURN
 ********************************************************************************
 *
+*
 NP	DAC	**	PREPARE NEW PAGE
 	LDA	PGS	LOAD LINES PER PAGE
 	TCA		NEGATE
@@ -149,6 +151,7 @@ LINE	DEC	-40	NEG LINES LEFT ON PAGE
 *** AB HIER ABGESCHRIEBENER CODE!
 T1	DAC	**
 	STX	XR
+	OCP	'104	START TTY
 	LDA*	T1
 	ADD	WIDH
 	ADD	='40000
@@ -200,6 +203,7 @@ T14	DAC	**
 ********************************************************************************
 *
 T20	DAC	**
+	OCP	'104	START TTY
 	LDA	=13
 	OTA	4
 	JMP	*-1
@@ -210,6 +214,7 @@ T20	DAC	**
 ********************************************************************************
 *
 T30	DAC	**
+	OCP	'104	START TTY
 	LDA	=10
 	OTA	4
 	JMP	*-1