*** empty log message ***

diff --git a/bin/asm b/bin/asm
index b7321f5f095e60667ad8af0de9f906d51f3dedc8..cbf6847c4dca428d68350a5c927b0636c909e9cb 100755 (executable)
--- a/bin/asm
+++ b/bin/asm
@@ -2,10 +2,16 @@
 # Assembler wrapper for simh h316
 
 if [ ! $1 ] ; then
-    echo "Argument mising!"
+    echo "Argument missing!"
     exit 2
 fi
 
+for n in $*; do
+  if [ $n == "/v" ]; then
+    VERBOSE=yes
+  fi
+done
+
 name=`basename $1 .asm`
 listfile=$name.lst
 
@@ -16,7 +22,8 @@ rm  -f $name.obj
 
 cat > $name.go <<EOF
 rest  $H316/sys/dap.sys
-d a 120420 
+d a 120420
+d p 1000 
 at ptr $name.par 
 at ptp $name.obj 
 at tty3 $listfile 
@@ -28,7 +35,11 @@ go
 quit 
 EOF
 
-h316 $name.go > /dev/null
+if [ "$VERBOSE" == "yes" ]; then
+  h316 $name.go 
+else
+  h316 $name.go > /dev/null
+fi
 
 rm -f $name.par
 rm -f $name.go

diff --git a/bin/dap-link.sh b/bin/dap-link.sh
index 9181d3102939f59fa0b73d58c52d888a8e019a6e..bc5781a92836ecc378e6822def1c0d8d8401c559 100755 (executable)
--- a/bin/dap-link.sh
+++ b/bin/dap-link.sh
@@ -13,19 +13,26 @@ echo now loaded before dumy:
 run 36002
 echo now satisfying....
 at ptr $H316/obj/dumy-x16.obj
-go 
+;IMPORTANT! THERE ARENT NO MORE UNSATISFIED IN THE FIRST
+;EXPORT BLOCK. SECOND BLOCK SEEMS NOT TO TRIGGER DUMMY!
+d p 36004
+go
+go
+
 at ptr $H316/obj/deccl.obj
 go
 at ptr $H316/obj/setsiz.obj
 go
 go
 
-;at ptp $H316/slst/dap-auto.slst
-;run 37000
-;d a 400
-;go
-;d b 13000
-;go
+
+r
+at ptp dap-auto.slst
+run 37000
+d a 100
+go
+d a 17777
+go
 
 run 36002
 EOF

diff --git a/lib/iolib/Makefile b/lib/iolib/Makefile
index c9bfa70e0eadf53799ef1b5a4eed5fe648222b92..bcb0585af879f3b9e97c5e4850fab4853798c016 100644 (file)
--- a/lib/iolib/Makefile
+++ b/lib/iolib/Makefile
@@ -11,7 +11,7 @@ export ORG_OBJDIR=org
 
 export MAKE
 
-MODULES = o$$al  o$$la o$$pl o$$pb i$$pa
+MODULES = o$$al  o$$la o$$pl o$$pb i$$pa dummy-force
 
 FRTN_COMMAND = frtn
 ASM_COMMAND  = asm

diff --git a/lib/iolib/recipe/dap-lib.recipe b/lib/iolib/recipe/dap-lib.recipe
index 8556d857e2c96556065091618fa6b6876bd03461..65e0047daa5fdb05c5d113092f7044c6cafef8b1 100644 (file)
--- a/lib/iolib/recipe/dap-lib.recipe
+++ b/lib/iolib/recipe/dap-lib.recipe
@@ -1,28 +1,30 @@
+
 # These are the selfmade modules
 
 # Binary HS Punch routine USED by DAP-16
 obj/O$PB
 
-# Paper tape listing routine
+# Paper tape listing routine - Lets see, if DAP can handle that
 obj/O$PL
 
-# O$AL ASR comfort routine
+# O$AL ASR comfort routine Hm, let's try it out....
 obj/O$AL
 
-# Huge Line printer routine
+# Huge Line printer routine Rocking now?
 obj/O$LA
 
 # Read Paper tape sources
 obj/I$PA
 
-# And here come the original ones
 
+# Original ASR listing routine Not needed anymore
+#org/O$AH
+
+# And here come the original ones
 org/I$AB
 org/I$AI
 org/O$AB
 org/O$AI
 
-# Original ASR listing routine
-org/O$AH
-
-
+#klappt nicht!
+#obj/FUCK
\ No newline at end of file

diff --git a/lib/iolib/recipe/io.recipe b/lib/iolib/recipe/io.recipe
index 4c3209d5e5c0bf0878bf3e171500963bbedba2fb..fb849feadff32ebeb191efb8b83c92ac0f5918c3 100644 (file)
--- 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$la.asm b/lib/iolib/src/o$la.asm
index ae62e0d853fade8cd7582abfdf8c80fced546d55..d257f4500d28713b52a9fcbbce910cb828ee92f6 100644 (file)
--- a/lib/iolib/src/o$la.asm
+++ b/lib/iolib/src/o$la.asm
@@ -90,6 +90,7 @@
 ********************************************************************************
 *
        REL             RELOCATEABLE MODE
+       ORG     0
 *
 * CONFIGURATION
 LPP    DEC     60      DATA LINES PER PAGE (WITHOUT HEADING ETC.)

diff --git a/programs/small-things/src/play.asm b/programs/small-things/src/play.asm
new file mode 100644 (file)
index 0000000..42bc25a
--- /dev/null
+++ b/programs/small-things/src/play.asm
@@ -0,0 +1,83 @@
+* SUPERCOOLES SONDERPROGRAMM!
+*
+       ABS
+       ORG     '1000
+*
+*
+*
+       LDA     =-50
+       STA     LCNT    LOOP COUNTER
+       CRA     
+       STA     0       ACTIVE PATTERN
+       LDA     ='125252
+       IAB
+       LDA     ='000770
+       STA     MUS
+*
+L1S    LDA     =-'47777        INNER DELAY
+       STA     CNT
+       LDA     MUS
+L1     IRS     CNT
+       JMP     *-1
+       STA     MUS
+*
+       LDA     MUS     
+       JST*    DISP,1          CALL INDEXED TO TABLE,HUI!
+       STA     MUS     
+*                      
+       IRS     LCNT
+       JMP     L1S     NOT READY TO CHANGE PATTERN
+*      
+       LDA     =-50    REINITIALIZE LOOP COUNTER
+       STA     LCNT
+*      
+       LDA     0
+       AOA
+       ANA     =7
+       STA     0
+*      
+       JMP     L1S     LOOP AGAIN INNER
+*      
+MUS    DEC     0
+LCNT   DEC     0
+CNT    DEC     0
+*                              
+DISP   DAC     P0
+       DAC     P0
+       DAC     P2
+       DAC     P3
+       DAC     P4
+       DAC     P5
+       DAC     P6
+       DAC     P7
+*              
+*
+P0     DAC     **
+       LLR     1
+       JMP*    P0      
+P1     DAC     **
+       LRR     1
+       JMP*    P1
+P2     DAC     **
+       LLR     2
+       JMP*    P2
+P3     DAC     **
+       LRR     2
+       JMP*    P3
+P4     DAC     **
+       CMA
+       JMP*    P4
+P5     DAC     **
+       IAB
+       JMP*    P5
+P6     DAC     **
+       ICA
+       JMP*    P6
+P7     DAC     **
+       ALR     1
+       JMP*    P7
+*
+*
+* THAT'S IT!
+*
+       END

diff --git a/sys/dap.sys b/sys/dap.sys
index 63fa2ead5cbe89794ca81c6c547398b5eaedf895..962387b55402ce83c90a39a1576c8eebcdc05b97 100644 (file)
Binary files a/sys/dap.sys and b/sys/dap.sys differ

diff --git a/systems/build_super3.sh b/systems/build_super3.sh
index 6f54024edd6ba041d2c8583a0201322b4f370606..0aaa7a2bb5778e6ca76682d49f7f6913679ce924 100755 (executable)
--- a/systems/build_super3.sh
+++ b/systems/build_super3.sh
@@ -45,7 +45,6 @@ d p 16003
 go
 go
 
-
 echo *** Loading $BINAL
 at ptr $BINAL
 d a 37000
@@ -53,6 +52,14 @@ d p 16003
 go
 go
 
+
+;echo *** Loading $PAL-AP
+;at ptr $PAL_AP
+;d a 37000
+;d p 16003
+;go
+;go
+
 ; Print memory map
 go 16002