projects / pdp8.git / blame
| Commit | Line | Data |
|---|---|---|
| 81e70d48 PH |
1 | REM TEST DIGITAL I/O (0)\r |
| 2 | REM\r | |
| 3 | REM DEFINE LAB8/E FUNCTIONS\r | |
| 4 | UDEF INI(N), PLY(N), DLY(N), DIS(S,E,N,X)\r | |
| 5 | UDEF SAM(C,N,P,T), CLK(R,O,S), CLW(N), ADC(N)\r | |
| 6 | UDEF GET(M,L), PUT(M,L), DRI(N), DRO(M,N)\r | |
| 7 | REM\r | |
| 8 | 10 PRINT "ENTER STEP RATE [MS] (0=END) ";\r | |
| 9 | INPUT R\r | |
| 10 | IF R=0 GOTO 30\r | |
| 11 | PRINT "ENTER # OF CYCLES ";\r | |
| 12 | INPUT N\r | |
| 13 | W = CLK(3,R,0)\r | |
| 14 | REM\r | |
| 15 | FOR I=1 TO N\r | |
| 16 | C = 1\r | |
| 17 | 20 W = DRO(0,0)\r | |
| 18 | W = DRO(C,0)\r | |
| 19 | C = C*2\r | |
| 20 | W = CLW(0)\r | |
| 21 | IF C<4096 GOTO 20\r | |
| 22 | NEXT I\r | |
| 23 | REM\r | |
| 24 | GOTO 10\r | |
| 25 | 30 END\r |