*** empty log message ***

diff --git a/lib/fortran/Makefile b/lib/fortran/Makefile
index 5c8dcb53b6cf541e597770271a186ba614eb2754..ee414bb8cd671535cf310a9bb529f1f3a91fe486 100644 (file)
--- 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 1c2f16094b9d8b2c7b2d684c64b16d45a7bc3ced..60a9a43335aa37bdaaf9ccee00be378719d8fff4 100644 (file)
--- 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 (file)
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 a2704dd779647d24ee4bafab23f76e5c1cff4acd..07ca30e9adb9d8b28cd94ba8d516799a875e31b8 100644 (file)
--- 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 99d5b944f01873777727e69737d6556eb1f64fde..9456d99a8eab8d0cc32002e53482bee8b82449e3 100644 (file)
--- 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