X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;ds=inline;f=sw%2Frescue%2Fmuenchen2013%2Ffiles%2Fkrause_soft%2Fscope.ba;fp=sw%2Frescue%2Fmuenchen2013%2Ffiles%2Fkrause_soft%2Fscope.ba;h=4e3eddf7d661069bd50b31df38df83a46d02de1a;hb=81e70d488b71bf995c459ca3a02c025993460ffa;hp=0000000000000000000000000000000000000000;hpb=07ec0278333ed187ac242dedcff13c56cf1b0b91;p=pdp8.git

diff --git a/sw/rescue/muenchen2013/files/krause_soft/scope.ba b/sw/rescue/muenchen2013/files/krause_soft/scope.ba
new file mode 100644
index 0000000..4e3eddf
--- /dev/null
+++ b/sw/rescue/muenchen2013/files/krause_soft/scope.ba
@@ -0,0 +1,50 @@
+REM	DIGITAL SCOPE PROGRAM - BY R.KRAUSE APR 1983
+REM
+REM	DEFINE LAB8/E FUNCTIONS
+	UDEF INI(N), PLY(N), DLY(N), DIS(S,E,N,X)
+	UDEF SAM(C,N,P,T), CLK(R,O,S), CLW(N), ADC(N)
+	UDEF GET(M,L), PUT(M,L), DRI(N), DRO(M,N)
+	DIM A(342)
+	USE A
+REM
+	PRINT PNT(29);PNT(31); \ FOR I=1 TO 100 \ NEXT I
+	PRINT
+	PRINT TAB(10);"D I G I T A L  S C O P E"
+	PRINT TAB(10);"------------------------"
+	PRINT
+	PRINT TAB(10);"( INPUT VIA DR8EA / OUTPUT VIA VC8E )"
+	PRINT \ PRINT \ PRINT
+	PRINT "MIN. SAMPLING INTERVAL 0.1MS"
+	PRINT "MAX. # OF SAMPLES      1023"
+	PRINT \ PRINT
+	PRINT TAB(10);"INPUT   =  IN  3"
+	PRINT TAB(10);"TRIGGER =  IN  0"
+	PRINT \ PRINT \ PRINT
+REM
+20	PRINT PNT(15);PNT(28); \ FOR I=1 TO 100 \ NEXT I
+	FOR I=1 TO 5 \ PRINT PNT(26); \ NEXT I
+	PRINT
+	PRINT TAB(10);"SAMPLING INTERVAL (X,M/X,U) ";PNT(30);
+	FOR I=1 TO 100 \ NEXT I
+	INPUT S,R$
+	IF R$="M" GOTO 100
+	IF R$="U" GOTO 200
+	GOTO 20
+100	R = 3
+	GOTO 300
+200	R = 6
+300	PRINT TAB(10);"# OF POINTS ........... ";PNT(30);
+	FOR I=1 TO 100 \ NEXT I
+	INPUT N
+	PRINT
+	PRINT TAB(10);"$ READY";
+REM
+10	T = DRI(0)
+	IF T<2047 GOTO 10
+	Z = INI(0)
+	Z = SAM(0,1,N,1)
+	Z = CLK(R,S,0)
+	Z = DIS(1,N,1,1)
+REM
+	GOTO 20
+	END