From: hachti Date: Thu, 23 Nov 2006 06:04:13 +0000 (+0000) Subject: *** empty log message *** X-Git-Url: http://gitweb.hachti.de/?a=commitdiff_plain;h=e5c436a28690c7ae2d45932e1d74cb55a4ab211f;p=h316.git *** empty log message *** --- diff --git a/bin/asm b/bin/asm index b7321f5..cbf6847 100755 --- 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 < /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 9181d31..bc5781a 100755 --- 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 c9bfa70..bcb0585 100644 --- 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 8556d85..65e0047 100644 --- 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 4c3209d..fb849fe 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$la.asm b/lib/iolib/src/o$la.asm index ae62e0d..d257f45 100644 --- 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 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 63fa2ea..962387b 100644 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 6f54024..0aaa7a2 100755 --- 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