*** empty log message ***

diff --git a/lib/iolib/recipe/io.recipe b/lib/iolib/recipe/io.recipe
index 39896a11008377cc361ae32d41e0da3318f046ac..91fc1de38debb29c2d98a61871b9d3d065b5e8a9 100644 (file)
--- a/lib/iolib/recipe/io.recipe
+++ b/lib/iolib/recipe/io.recipe
@@ -1,13 +1,29 @@
 # These are the selfmade modules
-obj/O$AL
-obj/O$LA
+
+# Binary HS Punch routine
 obj/O$PB
+
+#Paper tape listing routine
 obj/O$PL
+
+# O$AL ASR comfort routine
+obj/O$AL
+
+# Huge Line printer routine
+obj/O$LA
+
+# Read Paper tape sources
 obj/I$PA
 
 # And here come the original ones
+
 org/I$AB
 org/I$AI
 org/O$AB
-#org/O$AH Not needed!
 org/O$AI
+
+#org/O$AH Original ASR listing routine
+#org/O$AH
+
+
+

diff --git a/lib/iolib/recipe/small.recipe b/lib/iolib/recipe/small.recipe
new file mode 100644 (file)
index 0000000..c091f23
--- /dev/null
+++ b/lib/iolib/recipe/small.recipe
@@ -0,0 +1,29 @@
+# These are the selfmade modules
+
+# Binary HS Punch routine
+obj/O$PB
+
+#Paper tape listing routine
+#obj/O$PL
+
+# O$AL ASR comfort routine
+# obj/O$AL
+
+# Huge Line printer routine
+obj/O$LA
+
+# Read Paper tape sources
+obj/I$PA
+
+# And here come the original ones
+
+org/I$AB
+org/I$AI
+org/O$AB
+org/O$AI
+
+#org/O$AH Original ASR listing routine
+#org/O$AH
+
+
+

diff --git a/lib/iolib/src/i$pa.asm b/lib/iolib/src/i$pa.asm
index e56f2470b65f561073cbae1ecff75a04556d9027..02a56d7239eb018942ee3103a2398141103e7f5c 100644 (file)
--- a/lib/iolib/src/i$pa.asm
+++ b/lib/iolib/src/i$pa.asm
@@ -18,7 +18,7 @@
 *
 * PURPOSE
 *
-*    TO READ ASCII SOURCE TEXT FROM HIGH SPEED PAPTER TAPE READER
+*    TO READ ASCII SOURCE TEXT FROM HIGH SPEED PAPER TAPE READER
 *
 *
 * RESTRICTIONS

diff --git a/lib/iolib/src/o$al.asm b/lib/iolib/src/o$al.asm
index 7c87266791e4854d7e122c08f43f24e564281bf2..d3cc23c1c678ec98116aa89ab8ac48a3c8094b48 100644 (file)
--- a/lib/iolib/src/o$al.asm
+++ b/lib/iolib/src/o$al.asm
@@ -9,6 +9,7 @@
 *            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    
+*            1.3 (03.04.2006) - SOME SORTING TO GET IT SMALLER
 *
 * AUTHOR
 *
@@ -50,13 +51,6 @@
 ********************************************************************** 
        REL             RELOCATABLE MODE
 *********************************************
-* CONFIGURATION
-HDS    DEC     1       EMPTY LINES BEFORE HEADING
-SPC    DEC     2       EMPTY LINES BETWEEN HEADING AND TEXT
-PGS    DEC     50      DATA LINES PER PAGE (WITHOUT HEADING ETC.)
-WIDH   DEC     36      (2-CHAR) WORDS PER LINE
-SFF    DEC     4       SKIPS TO SIMULATE FORM FEED
-*      
 *
 OSAL   DAC     **
        STX     XR
@@ -78,6 +72,7 @@ BUF1  DAC     **      ADDRESS OF LINE BUFFER
        JMP*    OSAL    RETURN
 *
 *
+XR     DEC     0       SAVED X REGISTER
 OSAH   DAC     **      INIT HEADING
        STX     XR
        LDA*    OSAH    
@@ -100,6 +95,8 @@ HL1  LDA*    P1
 ********************************************************************************
 *
 *
+PGS    DEC     50      DATA LINES PER PAGE (WITHOUT HEADING ETC.)
+HDS    DEC     1       EMPTY LINES BEFORE HEADING        
 NP     DAC     **      PREPARE NEW PAGE
        LDA     PGS     LOAD LINES PER PAGE
        TCA             NEGATE
@@ -122,10 +119,12 @@ SP1       JST     T30     LINE FEED
        IRS     CNT     DEC COUNTER, SKIP IF READY
        JMP     SP1     NOT READY
        JMP*    NP
+SPC    DEC     2       EMPTY LINES BETWEEN HEADING AND TEXT        
 *
 ********************************************************************************
 *
 **** FORM FEED ROUTINE
+SFF    DEC     4       SKIPS TO SIMULATE FORM FEED
 FF     DAC     **
        JST     ASUP    OUTPUT MODE
        LDA     SFF
@@ -147,7 +146,6 @@ ASUP        DAC     **
        JMP*    ASUP
 *
 *
-XR     DEC     0       SAVED X REGISTER
 CNT    DEC     0
 HBUF   BCI     20,
        BCI     20,
@@ -160,19 +158,21 @@ LINE      DEC     -40     NEG LINES LEFT ON PAGE
 ********************************************************************************
 *
 *** AB HIER ABGESCHRIEBENER CODE!
+WIDH   DEC     36      (2-CHAR) WORDS PER LINE
+CC4    OCT     40000
 T1     DAC     **
        STX     XR
        JST     ASUP    START TTY
        LDA*    T1
        ADD     WIDH
-       ADD     ='40000
+       ADD     CC4
        STA     T6
        IRS     T1
        LDA     WIDH
        TCA
        STA     0
 T3     LDA*    T6
-       CAS     ='120240
+       CAS     CS1
        JMP     *+2
 *
        JMP     T8
@@ -189,13 +189,14 @@ T10       IRS     0
        JMP     *+2
        JMP*    T1
        LDA*    T6
-       CAS     ='120240
+       CAS     CS1
        JMP     *+2
        JMP     T10
        LDA     T12
        STA     0
-       LDA     ='120240
+       LDA     CS1
        JMP     T4
+CS1    OCT     120240        
 T12    ***     **
 *
 T14    DAC     **
@@ -213,9 +214,10 @@ T14        DAC     **
 *
 ********************************************************************************
 *
+C13    DEC     13
 T20    DAC     **
        JST     ASUP    START TTY
-       LDA     =13     CARRIAGE RETURN
+       LDA     C13     CARRIAGE RETURN
        OTA     4
        JMP     *-1
        OTA     4

diff --git a/lib/iolib/src/o$la.asm b/lib/iolib/src/o$la.asm
index 29da760da0135dc16fdf38481444678ff34c1382..2551501fcced714ef2c3927f9ee8b0c0c02f87f8 100644 (file)
--- a/lib/iolib/src/o$la.asm
+++ b/lib/iolib/src/o$la.asm
@@ -5,7 +5,8 @@
 *                 LINE PRINTER ROUTINES
 *
 * REVISIONS: 
-*            1.0 (2005-02.04)
+*            1.0 (2005-02-04)
+*            1.1 (2006-04-03) - GET IT SMALLER
 *
 * AUTHOR
 *
@@ -85,17 +86,15 @@
        SUBR    O$LSK2,SKP2     EMPTY LINES BETWEEN HEADING AND MAIN TEXT
        SUBR    O$LLPP,LPP      PURE TEXT LINES PER PAGE
        SUBR    O$LRS,RS        DISTANCE FROM PAGE NUMBERING TO RIGHT MARGIN
+       SUBR    XXX
 *
 ********************************************************************************
 *
        REL             RELOCATEABLE MODE
 *
 * CONFIGURATION
-SKP1   DEC     1       EMPTY LINES BEFORE HEADING
-SKP2   DEC     3       EMPTY LINES BETWEEN HEADING AND TEXT
 LPP    DEC     60      DATA LINES PER PAGE (WITHOUT HEADING ETC.)
 LNW    DEC     60      LINE LENGTH IN 2-CHAR WORDS
-RS     DEC     1       RIGHT DISTANCE FOR PAGE NUMBERING (2-CHAR WORDS)
 *      
 *
 O$LA   DAC     **
@@ -147,6 +146,8 @@ HL1 LDA*    P1
 *
 *
 *
+SKP1   DEC     1       EMPTY LINES BEFORE HEADING
+SKP2   DEC     3       EMPTY LINES BETWEEN HEADING AND TEXT
 NP     DAC     **      PREPARE NEW PAGE
        LDA     SKP1    SPACES BEFORE HEADING
        SNZ             SPACING REQUIRED?
@@ -187,9 +188,6 @@ FF  DAC     **
 XR     DEC     0       THE CALLER'S X REGISTER
 CNT    DEC     0
 HBP    DAC     HBUF
-HBUF   BCI     20,
-       BCI     20,
-       BCI     20,
 P1     DEC     0       POINTER 1       
 P2     DEC     0       POINTER 2
 LINE   DEC     -40     NEG LINES LEFT ON PAGE
@@ -309,6 +307,7 @@ PP1 LDA*    P2
        IRS     0
        JMP     PP1
        JMP*    LNNR    RETURN
+RS     DEC     1       RIGHT DISTANCE FOR PAGE NUMBERING (2-CHAR WORDS)
 *
 *      
 MDG    DAC     **      MAKE DIGIT FROM A
@@ -330,9 +329,14 @@ LNR        DAC     **      DIGIT SERVICE
        IRS     LNR     TALLY RETURN ADDRESS
 NOFL   IRS     LNR     TALLY RETURN ADDRESS
        JMP*    LNR
+*
+HBUF   BCI     20,
+       BCI     20,
+       BCI     20,
 *
        FIN             WRITE OUT LITERALS
 *
+XXX    DAC     **
 * PUH.....
 *
        END

diff --git a/lib/iolib/src/o$pb.asm b/lib/iolib/src/o$pb.asm
index 9331ed54e3fc1516128a4c9cc9df5a63a93438b7..c59c4376ae9ae14110d2e3224caa1b00739ffdd8 100644 (file)
--- a/lib/iolib/src/o$pb.asm
+++ b/lib/iolib/src/o$pb.asm
@@ -69,6 +69,15 @@
        SUBR    O$PS
        SUBR    O$PLDR,PLDR
        REL
+WRU    OCT     024000
+WRUX   OCT     160003
+LF     OCT     050000
+LFX    OCT     164003
+XON    OCT     104000
+XONX   OCT     170003
+XOFF   OCT     114000
+XOFX   OCT     174003
+FOUR   OCT     000004
 O$PB   PZE     **      PTP PUNCH ENTRY
        STX     XR      SAVE INDEX REGISTER FROM CALLING PROGRAMM
        OCP     2       ACTIVATE PAPER TAPE PUNCH
@@ -117,15 +126,6 @@ CHAR       PZE     **
 OUT    JST     BCD8
        LLL     6
        JMP*    CHAR
-WRU    OCT     024000
-WRUX   OCT     160003
-LF     OCT     050000
-LFX    OCT     164003
-XON    OCT     104000
-XONX   OCT     170003
-XOFF   OCT     114000
-XOFX   OCT     174003
-FOUR   OCT     000004
 BCD8   PZE     **      ASCII PUNCH ROUTINE
        OTA     2
        JMP     *-1

diff --git a/obj/dap16.obj b/obj/dap16.obj
new file mode 100644 (file)
index 0000000..5764509
Binary files /dev/null and b/obj/dap16.obj differ

diff --git a/obj/deccl.obj b/obj/deccl.obj
new file mode 100644 (file)
index 0000000..abbbedc
Binary files /dev/null and b/obj/deccl.obj differ

diff --git a/obj/dumy-x16.obj b/obj/dumy-x16.obj
new file mode 100644 (file)
index 0000000..1ba302c
Binary files /dev/null and b/obj/dumy-x16.obj differ

diff --git a/obj/ios-16.obj b/obj/ios-16.obj
new file mode 100644 (file)
index 0000000..3c78430
Binary files /dev/null and b/obj/ios-16.obj differ

diff --git a/obj/setsiz.obj b/obj/setsiz.obj
new file mode 100644 (file)
index 0000000..76ee59a
Binary files /dev/null and b/obj/setsiz.obj differ