From: hachti <hachti>
Date: Thu, 19 Oct 2006 00:07:19 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Url: http://gitweb.hachti.de/?a=commitdiff_plain;h=e8baeca7ed5bb493afe847025e520bfa984b79a9;p=h316.git

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

diff --git a/README b/README
index 43412cc..0961556 100644
--- 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 f94bc6e..3dee19d 100755
--- 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 ce43c03..11fb9c1 100644
--- 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 9733b95..9d02f7a 100755
--- 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 0074432..9c6944c 100755
--- 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
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 c091f23..1bab357 100644
--- 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 d3cc23c..128d3ba 100644
--- 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	**