projects / pdp8.git / blame
| Commit | Line | Data |
|---|---|---|
| 81e70d48 PH |
1 | REM DIGITAL SCOPE PROGRAM - BY R.KRAUSE APR 1983\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 | DIM A(342)\r | |
| 8 | USE A\r | |
| 9 | REM\r | |
| 10 | PRINT PNT(29);PNT(31); \ FOR I=1 TO 100 \ NEXT I\r | |
| 11 | PRINT\r | |
| 12 | PRINT TAB(10);"D I G I T A L S C O P E"\r | |
| 13 | PRINT TAB(10);"------------------------"\r | |
| 14 | PRINT\r | |
| 15 | PRINT TAB(10);"( INPUT VIA DR8EA / OUTPUT VIA VC8E )"\r | |
| 16 | PRINT \ PRINT \ PRINT\r | |
| 17 | PRINT "MIN. SAMPLING INTERVAL 0.1MS"\r | |
| 18 | PRINT "MAX. # OF SAMPLES 1023"\r | |
| 19 | PRINT \ PRINT\r | |
| 20 | PRINT TAB(10);"INPUT = IN 3"\r | |
| 21 | PRINT TAB(10);"TRIGGER = IN 0"\r | |
| 22 | PRINT \ PRINT \ PRINT\r | |
| 23 | REM\r | |
| 24 | 20 PRINT PNT(15);PNT(28); \ FOR I=1 TO 100 \ NEXT I\r | |
| 25 | FOR I=1 TO 5 \ PRINT PNT(26); \ NEXT I\r | |
| 26 | PRINT\r | |
| 27 | PRINT TAB(10);"SAMPLING INTERVAL (X,M/X,U) ";PNT(30);\r | |
| 28 | FOR I=1 TO 100 \ NEXT I\r | |
| 29 | INPUT S,R$\r | |
| 30 | IF R$="M" GOTO 100\r | |
| 31 | IF R$="U" GOTO 200\r | |
| 32 | GOTO 20\r | |
| 33 | 100 R = 3\r | |
| 34 | GOTO 300\r | |
| 35 | 200 R = 6\r | |
| 36 | 300 PRINT TAB(10);"# OF POINTS ........... ";PNT(30);\r | |
| 37 | FOR I=1 TO 100 \ NEXT I\r | |
| 38 | INPUT N\r | |
| 39 | PRINT\r | |
| 40 | PRINT TAB(10);"$ READY";\r | |
| 41 | REM\r | |
| 42 | 10 T = DRI(0)\r | |
| 43 | IF T<2047 GOTO 10\r | |
| 44 | Z = INI(0)\r | |
| 45 | Z = SAM(0,1,N,1)\r | |
| 46 | Z = CLK(R,S,0)\r | |
| 47 | Z = DIS(1,N,1,1)\r | |
| 48 | REM\r | |
| 49 | GOTO 20\r | |
| 50 | END\r |