*** empty log message ***

diff --git a/README b/README
index 43412cc2e220d9051cf12e5254f0236e9dd55154..09615567fee562d3918743baaa00f88bf638bf08 100644 (file)
--- a/README
+++ b/README
@@ -49,6 +49,12 @@ Libraries are built with some scripts contained in the appropriate
 subdirectories. There's a kind of receipe file for every 
 library to build. Works fine, try it out!
 
+And don't forget to try out the ldc program.
+ldc <obj-file>|<library-file>
+It's an object checker. A bit like nm on unix machines.
+If you have unknown or unchecked library or 
+object tapes - you will LOVE it!!!
+
 So, if there are questions, please ask me.
 
 Best regards,
@@ -56,7 +62,7 @@ Best regards,
 Philipp :-)
 
 
-
+... make clean works, too. 
 
 
 

diff --git a/bin/fload b/bin/fload
index f94bc6e11b177bead7d0b2dc66a5c5db048a537a..3dee19d807f8f4c65edfb4992e2056ab6f47b4be 100755 (executable)
--- a/bin/fload
+++ b/bin/fload
@@ -37,6 +37,8 @@ done
 
 cat >> $locname.go <<EOF
 r
+!echo -e "\n************************"
+ run 36002
 ! echo -e "\n************************"
 EOF
     

diff --git a/lib/fortran/Makefile b/lib/fortran/Makefile
index ce43c0325b5ee3ca5495ec814f00ec292f2e56f9..11fb9c169c2089d5fcdf4d888ac1d614826cede2 100644 (file)
--- a/lib/fortran/Makefile
+++ b/lib/fortran/Makefile
@@ -64,7 +64,7 @@ $(LIBS):$(LIB_DIR)/%.lib: $(RECIPE_DIR)/%$(RECIPE_SUFFIX) $(ORG_OBJECTS) $(OBJEC
 
 clean:
        @echo Cleaning up.
-       @rm -rf $(OBJ_DIR) $(LIB_DIR)  *.lst *.go 
+       @rm -rf $(OBJ_DIR) $(LIB_DIR) src/font.asm  *.lst *.go 
        @./buildlib.sh clean
 
 vpunch-help/use: vpunch-help/use.c vpunch-help/font_8x16.c

diff --git a/lib/fortran/script/def_recipe.sh b/lib/fortran/script/def_recipe.sh
index 9733b95dab06df1b3d96c77fa9bd13ad61c6026e..9d02f7a075e0f6e030b38cbc4e708bb36d7154a7 100755 (executable)
--- a/lib/fortran/script/def_recipe.sh
+++ b/lib/fortran/script/def_recipe.sh
@@ -1,5 +1,5 @@
 #!/bin/bash
 
-# Stelle Rezept für die gegebene Bibliothek her
+# Output a default receipe file from a given library
 
 ldc $1 | egrep "^[A-Z].*\((6)|0-0\)"| awk '{printf("org/%s\n",$1);}' 
\ No newline at end of file

diff --git a/lib/fortran/script/extractnames b/lib/fortran/script/extractnames
index 007443274048aa92bd22c5556e51f70bcd477eeb..9c6944c8516cdc07374f25e1b6c5349e9d120787 100755 (executable)
--- a/lib/fortran/script/extractnames
+++ b/lib/fortran/script/extractnames
@@ -1,3 +1,5 @@
 #!/bin/bash
 
+#Show the  defined symbols in an object file or library
+
 ldc $1 | egrep "^[A-Z].*\((6)|0-0\)"| awk '{print $1}'
\ No newline at end of file

diff --git a/lib/fortran/src/font.asm b/lib/fortran/src/font.asm
deleted file mode 100644 (file)
index f80814a..0000000
--- a/lib/fortran/src/font.asm
+++ /dev/null
@@ -1,514 +0,0 @@
-       SUBR    FONT
-FONT   DEC     0,0,0,0
-       DEC     0,0,0,0
-       DEC     0,32385,-23167,-32323
-       DEC     -26239,-32386,0,0
-       DEC     0,32511,-9217,-61
-       DEC     -6145,-130,0,0
-       DEC     0,0,13951,32639
-       DEC     32574,7176,0,0
-       DEC     0,0,2076,15999
-       DEC     15900,2048,0,0
-       DEC     0,24,15420,-6169
-       DEC     -6376,6204,0,0
-       DEC     0,24,15486,-1
-       DEC     32280,6204,0,0
-       DEC     0,0,0,6204
-       DEC     15384,0,0,0
-       DEC     -1,-1,-1,-6205
-       DEC     -15385,-1,-1,-1
-       DEC     0,0,60,26178
-       DEC     16998,15360,0,0
-       DEC     -1,-1,-61,-26179
-       DEC     -16999,-15361,-1,-1
-       DEC     0,30832,22604,7731
-       DEC     13107,13086,0,0
-       DEC     0,15462,26214,26172
-       DEC     6270,6168,0,0
-       DEC     0,-820,-1012,3084
-       DEC     3086,3847,0,0
-       DEC     0,-314,-314,-14650
-       DEC     -14618,-6297,768,0
-       DEC     0,24,6363,15591
-       DEC     15579,6168,0,0
-       DEC     1,775,3871,32543
-       DEC     3847,769,0,0
-       DEC     64,24688,30844,32636
-       DEC     30832,24640,0,0
-       DEC     0,6204,32280,6168
-       DEC     32316,6144,0,0
-       DEC     0,26214,26214,26214
-       DEC     26112,26214,0,0
-       DEC     0,-293,-9253,-8488
-       DEC     -10024,-10024,0,0
-       DEC     62,25350,7222,25443
-       DEC     13852,12387,15872,0
-       DEC     0,0,0,0
-       DEC     32639,32639,0,0
-       DEC     0,6204,32280,6168
-       DEC     32316,6270,0,0
-       DEC     0,6204,32280,6168
-       DEC     6168,6168,0,0
-       DEC     0,6168,6168,6168
-       DEC     6270,15384,0,0
-       DEC     0,0,24,12415
-       DEC     12312,0,0,0
-       DEC     0,0,12,1663
-       DEC     1548,0,0,0
-       DEC     0,0,0,771
-       DEC     895,0,0,0
-       DEC     0,0,20,13951
-       DEC     13844,0,0,0
-       DEC     0,0,2076,7230
-       DEC     15999,32512,0,0
-       DEC     0,0,32639,15934
-       DEC     7196,2048,0,0
-       DEC     0,0,0,0
-       DEC     0,0,0,0
-       DEC     0,6204,15420,6168
-       DEC     6144,6168,0,0
-       DEC     102,26214,9216,0
-       DEC     0,0,0,0
-       DEC     0,54,13951,13878
-       DEC     13951,13878,0,0
-       DEC     6168,15971,17155,15968
-       DEC     24673,25406,6168,0
-       DEC     0,0,17251,12312
-       DEC     3078,25441,0,0
-       DEC     0,7222,13852,28219
-       DEC     13107,13166,0,0
-       DEC     12,3084,1536,0
-       DEC     0,0,0,0
-       DEC     0,12312,3084,3084
-       DEC     3084,6192,0,0
-       DEC     0,3096,12336,12336
-       DEC     12336,6156,0,0
-       DEC     0,0,102,15615
-       DEC     15462,0,0,0
-       DEC     0,0,24,6270
-       DEC     6168,0,0,0
-       DEC     0,0,0,0
-       DEC     24,6168,3072,0
-       DEC     0,0,0,127
-       DEC     0,0,0,0
-       DEC     0,0,0,0
-       DEC     0,6168,0,0
-       DEC     0,0,16480,12312
-       DEC     3078,769,0,0
-       DEC     0,7222,25443,27499
-       DEC     25443,13852,0,0
-       DEC     0,6172,7704,6168
-       DEC     6168,6270,0,0
-       DEC     0,15971,24624,6156
-       DEC     1539,25471,0,0
-       DEC     0,15971,24672,15456
-       DEC     24672,25406,0,0
-       DEC     0,12344,15414,13183
-       DEC     12336,12408,0,0
-       DEC     0,32515,771,16224
-       DEC     24672,25406,0,0
-       DEC     0,7174,771,16227
-       DEC     25443,25406,0,0
-       DEC     0,32611,24672,12312
-       DEC     3084,3084,0,0
-       DEC     0,15971,25443,15971
-       DEC     25443,25406,0,0
-       DEC     0,15971,25443,32352
-       DEC     24672,12318,0,0
-       DEC     0,0,6168,0
-       DEC     24,6144,0,0
-       DEC     0,0,6168,0
-       DEC     24,6156,0,0
-       DEC     0,96,12312,3078
-       DEC     3096,12384,0,0
-       DEC     0,0,126,0
-       DEC     32256,0,0,0
-       DEC     0,6,3096,12384
-       DEC     12312,3078,0,0
-       DEC     0,15971,25392,6168
-       DEC     6144,6168,0,0
-       DEC     0,62,25443,31611
-       DEC     31547,830,0,0
-       DEC     0,2076,13923,25471
-       DEC     25443,25443,0,0
-       DEC     0,16230,26214,15974
-       DEC     26214,26175,0,0
-       DEC     0,15462,17155,771
-       DEC     835,26172,0,0
-       DEC     0,7990,26214,26214
-       DEC     26214,13855,0,0
-       DEC     0,32614,17942,7702
-       DEC     1606,26239,0,0
-       DEC     0,32614,17942,7702
-       DEC     1542,1551,0,0
-       DEC     0,15462,17155,891
-       DEC     25443,26204,0,0
-       DEC     0,25443,25443,32611
-       DEC     25443,25443,0,0
-       DEC     0,15384,6168,6168
-       DEC     6168,6204,0,0
-       DEC     0,30768,12336,12336
-       DEC     13107,13086,0,0
-       DEC     0,26470,26166,7710
-       DEC     13926,26215,0,0
-       DEC     0,3846,1542,1542
-       DEC     1606,26239,0,0
-       DEC     0,25463,32639,27491
-       DEC     25443,25443,0,0
-       DEC     0,25447,28543,31603
-       DEC     25443,25443,0,0
-       DEC     0,15971,25443,25443
-       DEC     25443,25406,0,0
-       DEC     0,16230,26214,15878
-       DEC     1542,1551,0,0
-       DEC     0,15971,25443,25443
-       DEC     25451,31550,12400,0
-       DEC     0,16230,26214,15926
-       DEC     26214,26215,0,0
-       DEC     0,15971,25350,7216
-       DEC     24675,25406,0,0
-       DEC     0,32382,23064,6168
-       DEC     6168,6204,0,0
-       DEC     0,25443,25443,25443
-       DEC     25443,25406,0,0
-       DEC     0,25443,25443,25443
-       DEC     25398,7176,0,0
-       DEC     0,25443,25443,27499
-       DEC     27519,30518,0,0
-       DEC     0,25443,13886,7196
-       DEC     15926,25443,0,0
-       DEC     0,26214,26214,15384
-       DEC     6168,6204,0,0
-       DEC     0,32611,24880,6156
-       DEC     1603,25471,0,0
-       DEC     0,15372,3084,3084
-       DEC     3084,3132,0,0
-       DEC     0,1,775,3612
-       DEC     14448,24640,0,0
-       DEC     0,15408,12336,12336
-       DEC     12336,12348,0,0
-       DEC     2076,13923,0,0
-       DEC     0,0,0,0
-       DEC     0,0,0,0
-       DEC     0,0,255,0
-       DEC     12,6192,0,0
-       DEC     0,0,0,0
-       DEC     0,0,30,12350
-       DEC     13107,13166,0,0
-       DEC     0,1798,1566,13926
-       DEC     26214,26174,0,0
-       DEC     0,0,62,25347
-       DEC     771,25406,0,0
-       DEC     0,14384,12348,13875
-       DEC     13107,13166,0,0
-       DEC     0,0,62,25471
-       DEC     771,25406,0,0
-       DEC     0,14444,19468,7692
-       DEC     3084,3102,0,0
-       DEC     0,0,110,13107
-       DEC     13107,13118,12339,7680
-       DEC     0,1798,1590,28262
-       DEC     26214,26215,0,0
-       DEC     0,6168,28,6168
-       DEC     6168,6204,0,0
-       DEC     0,24672,112,24672
-       DEC     24672,24672,26214,15360
-       DEC     0,1798,1638,13854
-       DEC     7734,26215,0,0
-       DEC     0,7192,6168,6168
-       DEC     6168,6204,0,0
-       DEC     0,0,55,32619
-       DEC     27499,27491,0,0
-       DEC     0,0,59,26214
-       DEC     26214,26214,0,0
-       DEC     0,0,62,25443
-       DEC     25443,25406,0,0
-       DEC     0,0,59,26214
-       DEC     26214,26174,1542,3840
-       DEC     0,0,110,13107
-       DEC     13107,13118,12336,30720
-       DEC     0,0,59,28262
-       DEC     1542,1551,0,0
-       DEC     0,0,62,25350
-       DEC     7216,25406,0,0
-       DEC     0,2060,3135,3084
-       DEC     3084,27704,0,0
-       DEC     0,0,51,13107
-       DEC     13107,13166,0,0
-       DEC     0,0,99,25443
-       DEC     25443,13852,0,0
-       DEC     0,0,99,25451
-       DEC     27499,32566,0,0
-       DEC     0,0,99,13852
-       DEC     7196,13923,0,0
-       DEC     0,0,99,25443
-       DEC     25443,25470,24624,7936
-       DEC     0,0,127,13080
-       DEC     3078,25471,0,0
-       DEC     0,28696,6168,3608
-       DEC     6168,6256,0,0
-       DEC     0,6168,6168,6168
-       DEC     6168,6168,0,0
-       DEC     0,3608,6168,28696
-       DEC     6168,6158,0,0
-       DEC     110,15104,0,0
-       DEC     0,0,0,0
-       DEC     0,0,2076,13923
-       DEC     25443,32512,0,0
-       DEC     0,15462,17155,771
-       DEC     835,26172,6158,0
-       DEC     0,13056,51,13107
-       DEC     13107,13166,0,0
-       DEC     48,6156,62,25471
-       DEC     771,25406,0,0
-       DEC     8,7222,30,12350
-       DEC     13107,13166,0,0
-       DEC     0,13056,30,12350
-       DEC     13107,13166,0,0
-       DEC     6,3096,30,12350
-       DEC     13107,13166,0,0
-       DEC     28,13852,30,12350
-       DEC     13107,13166,0,0
-       DEC     0,0,62,25347
-       DEC     771,25406,6158,0
-       DEC     8,7222,62,25471
-       DEC     771,25406,0,0
-       DEC     0,25344,62,25471
-       DEC     771,25406,0,0
-       DEC     6,3096,62,25471
-       DEC     771,25406,0,0
-       DEC     0,26112,28,6168
-       DEC     6168,6204,0,0
-       DEC     24,15462,28,6168
-       DEC     6168,6204,0,0
-       DEC     6,3096,28,6168
-       DEC     6168,6204,0,0
-       DEC     99,8,7222,25443
-       DEC     32611,25443,0,0
-       DEC     7222,7176,7222,25471
-       DEC     25443,25443,0,0
-       DEC     12312,127,26182,5662
-       DEC     5702,26239,0,0
-       DEC     0,0,55,27756
-       DEC     32283,7030,0,0
-       DEC     0,31798,13107,32563
-       DEC     13107,13171,0,0
-       DEC     8,7222,62,25443
-       DEC     25443,25406,0,0
-       DEC     0,25344,62,25443
-       DEC     25443,25406,0,0
-       DEC     6,3096,62,25443
-       DEC     25443,25406,0,0
-       DEC     12,7731,51,13107
-       DEC     13107,13166,0,0
-       DEC     6,3096,51,13107
-       DEC     13107,13166,0,0
-       DEC     0,25344,99,25443
-       DEC     25443,25470,24624,7680
-       DEC     99,62,25443,25443
-       DEC     25443,25406,0,0
-       DEC     99,99,25443,25443
-       DEC     25443,25406,0,0
-       DEC     24,6206,25347,771
-       DEC     25406,6168,0,0
-       DEC     28,13862,1551,1542
-       DEC     1542,26431,0,0
-       DEC     0,26214,15384,32280
-       DEC     32280,6168,0,0
-       DEC     31,13107,7971,13179
-       DEC     13107,13155,0,0
-       DEC     112,-10216,6168,32280
-       DEC     6168,6926,0,0
-       DEC     24,3078,30,12350
-       DEC     13107,13166,0,0
-       DEC     48,6156,28,6168
-       DEC     6168,6204,0,0
-       DEC     24,3078,62,25443
-       DEC     25443,25406,0,0
-       DEC     24,3078,51,13107
-       DEC     13107,13166,0,0
-       DEC     0,28219,59,26214
-       DEC     26214,26214,0,0
-       DEC     28219,99,26479,32635
-       DEC     29539,25443,0,0
-       DEC     0,15414,13948,126
-       DEC     0,0,0,0
-       DEC     0,7222,13852,62
-       DEC     0,0,0,0
-       DEC     0,3084,12,3078
-       DEC     867,25406,0,0
-       DEC     0,0,0,32515
-       DEC     771,768,0,0
-       DEC     0,0,0,32608
-       DEC     24672,24576,0,0
-       DEC     6,1862,26166,6156
-       DEC     1595,24880,6268,0
-       DEC     6,1862,26166,6156
-       DEC     26227,23036,24672,0
-       DEC     0,6168,24,6168
-       DEC     15420,15384,0,0
-       DEC     0,0,108,13851
-       DEC     13932,0,0,0
-       DEC     0,0,27,13932
-       DEC     13851,0,0,0
-       DEC     -30686,-30686,-30686,-30686
-       DEC     -30686,-30686,-30686,-30686
-       DEC     -21931,-21931,-21931,-21931
-       DEC     -21931,-21931,-21931,-21931
-       DEC     -17426,-17426,-17426,-17426
-       DEC     -17426,-17426,-17426,-17426
-       DEC     6168,6168,6168,6168
-       DEC     6168,6168,6168,6168
-       DEC     6168,6168,6168,6175
-       DEC     6168,6168,6168,6168
-       DEC     6168,6168,6175,6175
-       DEC     6168,6168,6168,6168
-       DEC     27756,27756,27756,27759
-       DEC     27756,27756,27756,27756
-       DEC     0,0,0,127
-       DEC     27756,27756,27756,27756
-       DEC     0,0,31,6175
-       DEC     6168,6168,6168,6168
-       DEC     27756,27756,27759,24687
-       DEC     27756,27756,27756,27756
-       DEC     27756,27756,27756,27756
-       DEC     27756,27756,27756,27756
-       DEC     0,0,127,24687
-       DEC     27756,27756,27756,27756
-       DEC     27756,27756,27759,24703
-       DEC     0,0,0,0
-       DEC     27756,27756,27756,27775
-       DEC     0,0,0,0
-       DEC     6168,6168,6175,6175
-       DEC     0,0,0,0
-       DEC     0,0,0,31
-       DEC     6168,6168,6168,6168
-       DEC     6168,6168,6168,6392
-       DEC     0,0,0,0
-       DEC     6168,6168,6168,6399
-       DEC     0,0,0,0
-       DEC     0,0,0,255
-       DEC     6168,6168,6168,6168
-       DEC     6168,6168,6168,6392
-       DEC     6168,6168,6168,6168
-       DEC     0,0,0,255
-       DEC     0,0,0,0
-       DEC     6168,6168,6168,6399
-       DEC     6168,6168,6168,6168
-       DEC     6168,6168,6392,6392
-       DEC     6168,6168,6168,6168
-       DEC     27756,27756,27756,27884
-       DEC     27756,27756,27756,27756
-       DEC     27756,27756,27884,3324
-       DEC     0,0,0,0
-       DEC     0,0,252,3308
-       DEC     27756,27756,27756,27756
-       DEC     27756,27756,27887,255
-       DEC     0,0,0,0
-       DEC     0,0,255,239
-       DEC     27756,27756,27756,27756
-       DEC     27756,27756,27884,3308
-       DEC     27756,27756,27756,27756
-       DEC     0,0,255,255
-       DEC     0,0,0,0
-       DEC     27756,27756,27887,239
-       DEC     27756,27756,27756,27756
-       DEC     6168,6168,6399,255
-       DEC     0,0,0,0
-       DEC     27756,27756,27756,27903
-       DEC     0,0,0,0
-       DEC     0,0,255,255
-       DEC     6168,6168,6168,6168
-       DEC     0,0,0,255
-       DEC     27756,27756,27756,27756
-       DEC     27756,27756,27756,27900
-       DEC     0,0,0,0
-       DEC     6168,6168,6392,6392
-       DEC     0,0,0,0
-       DEC     0,0,248,6392
-       DEC     6168,6168,6168,6168
-       DEC     0,0,0,252
-       DEC     27756,27756,27756,27756
-       DEC     27756,27756,27756,27903
-       DEC     27756,27756,27756,27756
-       DEC     6168,6168,6399,6399
-       DEC     6168,6168,6168,6168
-       DEC     6168,6168,6168,6175
-       DEC     0,0,0,0
-       DEC     0,0,0,248
-       DEC     6168,6168,6168,6168
-       DEC     -1,-1,-1,-1
-       DEC     -1,-1,-1,-1
-       DEC     0,0,0,255
-       DEC     -1,-1,-1,-1
-       DEC     3855,3855,3855,3855
-       DEC     3855,3855,3855,3855
-       DEC     -3856,-3856,-3856,-3856
-       DEC     -3856,-3856,-3856,-3856
-       DEC     -1,-1,-1,-256
-       DEC     0,0,0,0
-       DEC     0,0,110,15131
-       DEC     6939,15214,0,0
-       DEC     0,7731,13107,6963
-       DEC     25443,25395,0,0
-       DEC     0,32611,25347,771
-       DEC     771,771,0,0
-       DEC     0,0,127,13878
-       DEC     13878,13878,0,0
-       DEC     0,32611,1548,6168
-       DEC     3078,25471,0,0
-       DEC     0,0,126,6939
-       DEC     6939,6926,0,0
-       DEC     0,0,102,26214
-       DEC     26214,26174,1542,768
-       DEC     0,0,28219,6168
-       DEC     6168,6168,0,0
-       DEC     0,32280,15462,26214
-       DEC     26172,6270,0,0
-       DEC     0,7222,25443,32611
-       DEC     25443,13852,0,0
-       DEC     0,7222,25443,25398
-       DEC     13878,13943,0,0
-       DEC     0,30732,6192,31846
-       DEC     26214,26172,0,0
-       DEC     0,0,126,-9253
-       DEC     -9346,0,0,0
-       DEC     0,192,24702,-9253
-       DEC     -12418,1539,0,0
-       DEC     0,14348,1542,15878
-       DEC     1542,3128,0,0
-       DEC     0,62,25443,25443
-       DEC     25443,25443,0,0
-       DEC     0,0,32512,127
-       DEC     0,32512,0,0
-       DEC     0,0,6168,32280
-       DEC     6144,126,0,0
-       DEC     0,12,6192,24624
-       DEC     6156,126,0,0
-       DEC     0,48,6156,1548
-       DEC     6192,126,0,0
-       DEC     0,28888,-10216,6168
-       DEC     6168,6168,6168,6168
-       DEC     6168,6168,6168,6168
-       DEC     6171,6939,3584,0
-       DEC     0,0,24,126
-       DEC     24,0,0,0
-       DEC     0,0,110,15104
-       DEC     28219,0,0,0
-       DEC     28,13878,7168,0
-       DEC     0,0,0,0
-       DEC     0,0,0,24
-       DEC     6144,0,0,0
-       DEC     0,0,0,24
-       DEC     0,0,0,0
-       DEC     240,12336,12336,12343
-       DEC     13878,15416,0,0
-       DEC     54,27756,27756,27648
-       DEC     0,0,0,0
-       DEC     60,26160,6220,32256
-       DEC     0,0,0,0
-       DEC     0,0,32382,32382
-       DEC     32382,32256,0,0
-       DEC     0,0,0,0
-       DEC     0,0,0,0
-       END

diff --git a/lib/iolib/recipe/small.recipe b/lib/iolib/recipe/small.recipe
index c091f23e631668dc991df3a0fe82198cce076af4..1bab357e74cf90d6347fc353e3e995ddfc149e78 100644 (file)
--- a/lib/iolib/recipe/small.recipe
+++ b/lib/iolib/recipe/small.recipe
@@ -3,7 +3,7 @@
 # Binary HS Punch routine
 obj/O$PB
 
-#Paper tape listing routine
+# Paper tape listing routine
 #obj/O$PL
 
 # O$AL ASR comfort routine
@@ -22,7 +22,7 @@ org/I$AI
 org/O$AB
 org/O$AI
 
-#org/O$AH Original ASR listing routine
+# Original ASR listing routine
 #org/O$AH
 
 

diff --git a/lib/iolib/src/o$al.asm b/lib/iolib/src/o$al.asm
index d3cc23c1c678ec98116aa89ab8ac48a3c8094b48..128d3bae65348c352c68f8bb2f2c25c10141f764 100644 (file)
--- a/lib/iolib/src/o$al.asm
+++ b/lib/iolib/src/o$al.asm
@@ -157,7 +157,8 @@ LINE        DEC     -40     NEG LINES LEFT ON PAGE
 *
 ********************************************************************************
 *
-*** AB HIER ABGESCHRIEBENER CODE!
+*** FROM HERE COPIED ORIGINAL HONEYWELL CODE!
+*
 WIDH   DEC     36      (2-CHAR) WORDS PER LINE
 CC4    OCT     40000
 T1     DAC     **