Details | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 1186 | savelij | 1 | ;************************************************************** |
| 2 | ; |
||
| 3 | STONE: ; Toggle the I/O port |
||
| 4 | ; |
||
| 5 | ;************************************************************** |
||
| 6 | ; |
||
| 7 | CALL THREE ;GET THE NUMBERS |
||
| 8 | ACALL CBIAS ;BIAS R3:R1 FOR COUNT LOOP |
||
| 9 | ; |
||
| 10 | STONE1: CLR T_BIT ;TOGGLE THE BIT |
||
| 11 | CLR TR1 ;STOP THE TIMER |
||
| 12 | MOV TH1,R3 ;LOAD THE TIMER |
||
| 13 | MOV TL1,R1 |
||
| 14 | CLR TF1 ;CLEAR THE OVERFLOW FLAG |
||
| 15 | SETB TR1 ;TURN IT ON |
||
| 16 | ACALL DEC76 |
||
| 17 | JNB TF1,$ ;WAIT |
||
| 18 | ACALL ALPAR |
||
| 19 | SETB T_BIT ;BACK TO A ONE |
||
| 20 | CALL TIMER_LOAD+2 ;LOAD THE HIGH VALUE |
||
| 21 | JNB TF1,$ ;WAIT |
||
| 22 | JNZ STONE1 ;LOOP |
||
| 23 | RET |
||
| 24 | ; |
||
| 25 |