projects
/
h316.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
ea78fc9
)
*** empty log message ***
author
hachti
<hachti>
Mon, 28 May 2007 01:15:15 +0000
(
01:15
+0000)
committer
hachti
<hachti>
Mon, 28 May 2007 01:15:15 +0000
(
01:15
+0000)
bin/fboot
patch
|
blob
|
blame
|
history
bin/fload
patch
|
blob
|
blame
|
history
lib/fortran/Makefile
patch
|
blob
|
blame
|
history
lib/fortran/recipe/flib3.recipe
patch
|
blob
|
blame
|
history
lib/fortran/recipe/vpunch.recipe
patch
|
blob
|
blame
|
history
lib/fortran/src/f$w4.asm
patch
|
blob
|
blame
|
history
lib/iolib/Makefile
patch
|
blob
|
blame
|
history
programs/mandelbrot/src/apfel4.f
patch
|
blob
|
blame
|
history
programs/punchomat/src/punchomat.f
patch
|
blob
|
blame
|
history
diff --git
a/bin/fboot
b/bin/fboot
index 6a23624a7a5b6f9fc127ad46a39b40105f555d94..9e43a5c9ea066a95682ae474b1e4db9a9d5538f2 100755
(executable)
--- a/
bin/fboot
+++ b/
bin/fboot
@@
-15,7
+15,7
@@
echo $objname
LIBS="$H316/lib/fortran/lib/flib1.lib\
$H316/lib/fortran/lib/flib2.lib\
$H316/lib/fortran/lib/flib3.lib\
LIBS="$H316/lib/fortran/lib/flib1.lib\
$H316/lib/fortran/lib/flib2.lib\
$H316/lib/fortran/lib/flib3.lib\
- $H316/lib/iolib/lib/io.lib
\
+ $H316/lib/iolib/lib/io.lib
"
"
@@
-40,8
+40,8
@@
cat >> $locname.go <<EOF
!echo -e "\n************************"
run 36002
! echo -e "\n************************"
!echo -e "\n************************"
run 36002
! echo -e "\n************************"
-set cpu history=65536
-set break 0-17
+
+r
at ptp /dev/lp0
d p 37000
d a 1000
at ptp /dev/lp0
d p 37000
d a 1000
diff --git
a/bin/fload
b/bin/fload
index 8dbd25774c10169267b4d008af794faa2652d15b..ca69753bff1be367a403c0d075b50e22efb5f65b 100755
(executable)
--- a/
bin/fload
+++ b/
bin/fload
@@
-34,10
+34,11
@@
for library in $LIBS; do
fi
echo "at ptr $library" >> $locname.go
echo "go" >> $locname.go
fi
echo "at ptr $library" >> $locname.go
echo "go" >> $locname.go
+ echo "! echo loading $library" >> $locname.go
done
cat >> $locname.go <<EOF
done
cat >> $locname.go <<EOF
-!echo -e "\n************************"
+!
echo -e "\n************************"
run 36002
! echo -e "\n************************"
set cpu history=65536
run 36002
! echo -e "\n************************"
set cpu history=65536
diff --git
a/lib/fortran/Makefile
b/lib/fortran/Makefile
index 3b16d61260986c7c84caf50947b80be747595831..9fb1c4ff0a08fd6586f8cb80c5626e6ab4067914 100644
(file)
--- a/
lib/fortran/Makefile
+++ b/
lib/fortran/Makefile
@@
-11,8
+11,7
@@
export ORG_OBJDIR=org
export MAKE
export MAKE
-MODULES = uc f$$w4 f$$w1 pchar fpatch lpchar
-#vpunch font
+MODULES = uc f$$w4 f$$w1 pchar fpatch lpchar reboot vpunch font
FRTN_COMMAND = frtn_original
ASM_COMMAND = asm_original
FRTN_COMMAND = frtn_original
ASM_COMMAND = asm_original
diff --git
a/lib/fortran/recipe/flib3.recipe
b/lib/fortran/recipe/flib3.recipe
index 40a2c884c3e42b8b1a9da106e21aa494708b0158..3cfe653d465553ba5d6126e23285afa9f99409e5 100644
(file)
--- a/
lib/fortran/recipe/flib3.recipe
+++ b/
lib/fortran/recipe/flib3.recipe
@@
-24,3
+24,4
@@
org/F$HT
obj/PCHAR
obj/LPCHAR
obj/UCHAR
obj/PCHAR
obj/LPCHAR
obj/UCHAR
+ obj/REBOOT
diff --git
a/lib/fortran/recipe/vpunch.recipe
b/lib/fortran/recipe/vpunch.recipe
index 3d3ec1ee9c96a884f40ac6022cac8f3d12a609c6..dd98f062efb06dda1dccd1759e58fe0be70dc26d 100644
(file)
--- a/
lib/fortran/recipe/vpunch.recipe
+++ b/
lib/fortran/recipe/vpunch.recipe
@@
-1,2
+1,2
@@
-
#
obj/VPUNCH
-
#
obj/FONT
+obj/VPUNCH
+obj/FONT
diff --git
a/lib/fortran/src/f$w4.asm
b/lib/fortran/src/f$w4.asm
index 7c7d6701590e1d30bff36acaa49236c1c82e7cd5..82c62aeeb18c6c5e384673fef687f653ed069a02 100644
(file)
--- a/
lib/fortran/src/f$w4.asm
+++ b/
lib/fortran/src/f$w4.asm
@@
-54,13
+54,14
@@
FW4F LDA* FW4H
ANA ='377
ERA ='120000
STA* FW4H
ANA ='377
ERA ='120000
STA* FW4H
-FW4G CALL O$LC CARRIAGE RETURN ONLY
- CALL O$LP OUTPUT ONE LINE OF INFORMATION
+FW4G CALL O$LP OUTPUT ONE LINE OF INFORMATION
FW4H *** **
FW4H *** **
+ CALL O$LC CARRIAGE RETURN ONLY
+ CALL O$LF
IRS FW4A
JMP* FW4A
FW4J DAC **
IRS FW4A
JMP* FW4A
FW4J DAC **
-
CALL O$LF LF ONLY
+
*
CALL O$LF LF ONLY
IRS CNTR
JMP* FW4J
LDA =-17
IRS CNTR
JMP* FW4J
LDA =-17
diff --git
a/lib/iolib/Makefile
b/lib/iolib/Makefile
index a0a5068e9f1d075202e81dba40154d7bf0f2d30d..67b72feaa9b8c250998ebd690b491fd75eab285e 100644
(file)
--- a/
lib/iolib/Makefile
+++ b/
lib/iolib/Makefile
@@
-11,7
+11,7
@@
export ORG_OBJDIR=org
export MAKE
export MAKE
-MODULES = o$$al o$$la
-laser o$$la
o$$pl o$$pb i$$pa
+MODULES = o$$al o$$la o$$pl o$$pb i$$pa
FRTN_COMMAND = frtn_original
ASM_COMMAND = asm_original
FRTN_COMMAND = frtn_original
ASM_COMMAND = asm_original
diff --git
a/programs/mandelbrot/src/apfel4.f
b/programs/mandelbrot/src/apfel4.f
index cadee73b961869d5956b1ea3a5848177d1627d68..1f16654af5e78a9d7c981f76363e2cc9fb6c1b83 100644
(file)
--- a/
programs/mandelbrot/src/apfel4.f
+++ b/
programs/mandelbrot/src/apfel4.f
@@
-24,7
+24,7
@@
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C START MESSAGE
100 WRITE (1,10)
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C START MESSAGE
100 WRITE (1,10)
- 10 FORMAT (46HMANDELBROT-DEMO
3RC1 02.04.2006
, PH. HACHTMANN,
+ 10 FORMAT (46HMANDELBROT-DEMO
4 06.01.2007
, PH. HACHTMANN,
+ 20H - PRELIMIMARY ISSUE)
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
+ 20H - PRELIMIMARY ISSUE)
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
diff --git
a/programs/punchomat/src/punchomat.f
b/programs/punchomat/src/punchomat.f
index 78b5474dba25347fab33f23c389279d04e17af59..0a75af0d0fff997a1001c12424b8c8ca18fd0940 100644
(file)
--- a/
programs/punchomat/src/punchomat.f
+++ b/
programs/punchomat/src/punchomat.f
@@
-1,19
+1,23
@@
CCCCCC PUNCHOMAT-HAUPTPROGRAMM, 31.05.2005
C
DIMENSION PUFF(40)
CCCCCC PUNCHOMAT-HAUPTPROGRAMM, 31.05.2005
C
DIMENSION PUFF(40)
+ INTEGER PUFF
C
C
- WRITE(
1
,1000)
+ WRITE(
4
,1000)
1000 FORMAT(45HPHILIPP HACHTMANN'S COOL VISIBLE PUNCH DEMO! )
WRITE(1,1001)
1001 FORMAT (10H27.05.2005)
C
C
1000 FORMAT(45HPHILIPP HACHTMANN'S COOL VISIBLE PUNCH DEMO! )
WRITE(1,1001)
1001 FORMAT (10H27.05.2005)
C
C
-666 WRITE (
1
, 1002)
+666 WRITE (
4
, 1002)
1002 FORMAT (2HPP)
1002 FORMAT (2HPP)
+C
READ (1,1003) PUFF
READ (1,1003) PUFF
+ WRITE (4,1002)
1003 FORMAT (40A2)
1003 FORMAT (40A2)
-1004 FORMAT (40A2)
- WRITE (4,1004)PUFF
+1004 FORMAT (4H--->,40A2)
+ WRITE (4,1004) PUFF
+ CALL REBOOT
GO TO 666
END
$0
GO TO 666
END
$0