A large commit.

[pdp8.git] / sw / rescue / muenchen2013 / files / krause_soft / digi.ba

diff --git a/sw/rescue/muenchen2013/files/krause_soft/digi.ba b/sw/rescue/muenchen2013/files/krause_soft/digi.ba
new file mode 100644 (file)
index 0000000..1cdc3f7
--- /dev/null
+++ b/sw/rescue/muenchen2013/files/krause_soft/digi.ba
@@ -0,0 +1,25 @@
+REM    TEST DIGITAL I/O (0)\r
+REM\r
+REM    DEFINE LAB8/E FUNCTIONS\r
+       UDEF INI(N), PLY(N), DLY(N), DIS(S,E,N,X)\r
+       UDEF SAM(C,N,P,T), CLK(R,O,S), CLW(N), ADC(N)\r
+       UDEF GET(M,L), PUT(M,L), DRI(N), DRO(M,N)\r
+REM\r
+10     PRINT "ENTER STEP RATE [MS] (0=END) ";\r
+       INPUT R\r
+       IF R=0 GOTO 30\r
+       PRINT "ENTER # OF CYCLES    ";\r
+       INPUT N\r
+       W = CLK(3,R,0)\r
+REM\r
+       FOR I=1 TO N\r
+       C = 1\r
+20     W = DRO(0,0)\r
+       W = DRO(C,0)\r
+       C = C*2\r
+       W = CLW(0)\r
+       IF C<4096 GOTO 20\r
+       NEXT I\r
+REM\r
+       GOTO 10\r
+30     END\r