|
Revision 5055, 1.3 KB
(checked in by jadudm, 2 years ago)
|
|
Undoing my spurious commit on this file.
|
| Line | |
|---|
| 1 | #INCLUDE "srv1.inc" |
|---|
| 2 | #INCLUDE "delay.inc" |
|---|
| 3 | #INCLUDE "out.occ" |
|---|
| 4 | |
|---|
| 5 | PROC test.lasers(LASER! l) |
|---|
| 6 | SEQ |
|---|
| 7 | l[req] ! left; TRUE |
|---|
| 8 | delay.s(2) |
|---|
| 9 | l[req] ! right; TRUE |
|---|
| 10 | delay.s(2) |
|---|
| 11 | l[req] ! left; FALSE |
|---|
| 12 | delay.s(2) |
|---|
| 13 | l[req] ! right; FALSE |
|---|
| 14 | delay.s(2) |
|---|
| 15 | l[req] ! all; TRUE |
|---|
| 16 | delay.s(2) |
|---|
| 17 | l[req] ! all; FALSE |
|---|
| 18 | : |
|---|
| 19 | |
|---|
| 20 | PROC test.leds(SYSTEM! sys) |
|---|
| 21 | SEQ |
|---|
| 22 | sys[req] ! set.led; 1; TRUE |
|---|
| 23 | delay.s(2) |
|---|
| 24 | sys[req] ! set.led; 1; FALSE |
|---|
| 25 | delay.s(2) |
|---|
| 26 | sys[req] ! set.led; 2; TRUE |
|---|
| 27 | delay.s(2) |
|---|
| 28 | sys[req] ! set.led; 2; FALSE |
|---|
| 29 | delay.s(2) |
|---|
| 30 | sys[req] ! set.led; 1; TRUE |
|---|
| 31 | sys[req] ! set.led; 2; TRUE |
|---|
| 32 | delay.s(2) |
|---|
| 33 | sys[req] ! set.led; 1; FALSE |
|---|
| 34 | sys[req] ! set.led; 2; FALSE |
|---|
| 35 | : |
|---|
| 36 | |
|---|
| 37 | PROC test.motors (MOTOR! m) |
|---|
| 38 | SEQ |
|---|
| 39 | SEQ i = 1 FOR 5 |
|---|
| 40 | INT speed: |
|---|
| 41 | SEQ |
|---|
| 42 | speed := (i * 20) |
|---|
| 43 | m[req] ! all; speed; speed |
|---|
| 44 | delay.s(2) |
|---|
| 45 | speed := -speed |
|---|
| 46 | m[req] ! all; speed; speed |
|---|
| 47 | delay.s(2) |
|---|
| 48 | : |
|---|
| 49 | |
|---|
| 50 | PROC tests (CAMERA! camera, CONSOLE! console, LASER! lasers, MOTOR! motors, SYSTEM! system) |
|---|
| 51 | SEQ |
|---|
| 52 | out.string("SRV-1 Test Program (of Doom)*n", 0, console[out]!) |
|---|
| 53 | out.string("Testing death lasers*n", 0, console[out]!) |
|---|
| 54 | test.lasers(lasers) |
|---|
| 55 | out.string("Testing less deadly LED*'s*n", 0, console[out]!) |
|---|
| 56 | test.leds(system) |
|---|
| 57 | out.string("Testing harmless motors*n", 0, console[out]!) |
|---|
| 58 | test.motors(motors) |
|---|
| 59 | : |
|---|
