From: hachti <hachti>
Date: Thu, 10 Feb 2005 03:47:38 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Url: http://gitweb.hachti.de/?a=commitdiff_plain;h=c3e0f81a307ef2688fee7ad1b92309ce226d536b;p=h316.git

*** empty log message ***
---

diff --git a/lib/fortran/Makefile b/lib/fortran/Makefile
index 5c8dcb5..ee414bb 100644
--- a/lib/fortran/Makefile
+++ b/lib/fortran/Makefile
@@ -1,6 +1,6 @@
 # Skript, das die neue Bibliothek zusammenbauen soll 
 
-OWN = f$$w4 pchar fpatch
+OWN = f$$w4 pchar fpatch uc lpchar
 OWN_1=$(foreach obj, $(OWN),$(obj).asm)
 OWN_2=$(OWN_1:.asm=.obj)
 #OWN_3=$(shell echo $(subst $$,\$$,$(OWN)) | dd conv=ucase 2>/dev/null) 
@@ -12,10 +12,12 @@ FORTRAN=$H316/bin/frtn
 all : $(OWN_2)
 
 $(OWN_2):%.obj:src/%.asm
-	asm $(subst $$,\$$,$^) || rm -f $@ 
+	@echo Building: $(subst $$,\$$,$@)
+	@asm $(subst $$,\$$,$^) || rm -f $@ 
 
 clean:
-	rm -f $(subst $$,\$$,$(OWN_2))  *.lst *.go 
+	@echo Cleaning up.
+	@rm -f $(subst $$,\$$,$(OWN_2))  *.lst *.go 
 
 ###########
 .PHONY: clean all 
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
diff --git a/lib/fortran/src/pchar_lp.asm b/lib/fortran/src/pchar_lp.asm
deleted file mode 100644
index 5bb3e5b..0000000
--- a/lib/fortran/src/pchar_lp.asm
+++ /dev/null
@@ -1,27 +0,0 @@
-*               PRINT CHAR - ON LINEPRINTER :-)
-*
-*
-****** USAGE
-*
-*      JST PCHAR
-*      DAC Arg1
-*
-*
-*
-	SUBR	PCHAR,P
-	REL
-*
-*
-P	DAC	**
-	LDA*	P	ERSTE ARG-ADRESSE
-	STA	TMP1	POINTER
-	LDA*	TMP1	IN
-	OTA	0	OUTPUT CHAR
-	JMP 	*-1	SECURITY
-	IRS	P	RETURN ADDRESS 
-	JMP*	P
-*******	
-TMP1	DEC	0             
-TMP2	DEC	0
-*******
-	END
diff --git a/lib/fortran/src/uc.asm b/lib/fortran/src/uc.asm
index a2704dd..07ca30e 100644
--- a/lib/fortran/src/uc.asm
+++ b/lib/fortran/src/uc.asm
@@ -9,8 +9,10 @@
 *
 *
 *******
+	SUBR 	UCHAR,UC
+	SUBR 	UC
+*
 	REL
-	SUBR UC
 UC	DAC	**
 	LDA*	UC
 	IRS	UC	RETURN ADDRESS
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