From: hachti <hachti>
Date: Thu, 23 Nov 2006 02:20:58 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Url: http://gitweb.hachti.de/?p=h316.git;a=commitdiff_plain;h=c6be4ceec9e04d59a5538fa5c7b8464f42f8dd98

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

diff --git a/bin/dap-link.sh b/bin/dap-link.sh
index fdeb61e..9181d31 100755
--- a/bin/dap-link.sh
+++ b/bin/dap-link.sh
@@ -9,12 +9,15 @@ at ptr $H316/obj/ios-16.obj
 go
 at ptr $H316/lib/iolib/lib/dap-lib.lib
 go
+echo now loaded before dumy:
+run 36002
+echo now satisfying....
 at ptr $H316/obj/dumy-x16.obj
 go 
-at ptr $H316/obj/setsiz.obj
+at ptr $H316/obj/deccl.obj
 go
+at ptr $H316/obj/setsiz.obj
 go
-at ptr $H316/obj/deccl.obj
 go
 
 ;at ptp $H316/slst/dap-auto.slst
diff --git a/lib/iolib/recipe/dap-lib.recipe b/lib/iolib/recipe/dap-lib.recipe
index 1bab357..8556d85 100644
--- a/lib/iolib/recipe/dap-lib.recipe
+++ b/lib/iolib/recipe/dap-lib.recipe
@@ -1,13 +1,13 @@
 # These are the selfmade modules
 
-# Binary HS Punch routine
+# Binary HS Punch routine USED by DAP-16
 obj/O$PB
 
 # Paper tape listing routine
-#obj/O$PL
+obj/O$PL
 
 # O$AL ASR comfort routine
-# obj/O$AL
+obj/O$AL
 
 # Huge Line printer routine
 obj/O$LA
@@ -23,7 +23,6 @@ org/O$AB
 org/O$AI
 
 # Original ASR listing routine
-#org/O$AH
-
+org/O$AH
 
 
diff --git a/lib/iolib/recipe/io.recipe b/lib/iolib/recipe/io.recipe
index fb849fe..4c3209d 100644
--- a/lib/iolib/recipe/io.recipe
+++ b/lib/iolib/recipe/io.recipe
@@ -1,26 +1,26 @@
 # These are the selfmade modules
 
 # Binary HS Punch routine
-obj/O$PB
+#obj/O$PB
 
 #Paper tape listing routine
-obj/O$PL
+#obj/O$PL
 
 # O$AL ASR comfort routine
 obj/O$AL
 
 # Huge Line printer routine
-obj/O$LA
+#obj/O$LA
 
 # Read Paper tape sources
-obj/I$PA
+#obj/I$PA
 
 # And here come the original ones
   
 org/I$AB
 org/I$AI
-org/O$AB
-org/O$AI
+#org/O$AB
+#org/O$AI
 
 #org/O$AH Original ASR listing routine
 #org/O$AH
diff --git a/lib/iolib/src/o$al.asm b/lib/iolib/src/o$al.asm
index 128d3ba..51c4800 100644
--- a/lib/iolib/src/o$al.asm
+++ b/lib/iolib/src/o$al.asm
@@ -38,7 +38,7 @@
 	SUBR	O$AH,OSAH	INITIALISE HEADING
 	SUBR	O$LL,OSAL	TYPE A COMPLETE LINE WITH CR/LF, HEADING ETC.
 	SUBR	O$HH,OSAH	INITIALISE HEADING
-	SUBR	O$AP,T1 TYPE  A LINE, NO CR
+	SUBR	O$AP,T1 	TYPE  A LINE, NO CR
 	SUBR	O$AC,T20	RETURN THE CARRIAGE
 	SUBR	O$AF,T30	ADVANCE TO NEXT LINE
 	SUBR	O$AE,FF		EJECT PAGE