projects / pdp8.git / blame
| Commit | Line | Data |
|---|---|---|
| 81e70d48 PH |
1 | C -+-+-+-+-+ \ e H P M O V E . F T \ e -+-+-+-+-+\r |
| 2 | SUBROUTINE MOVE (CNT,VALUE,ARRAY)\r | |
| 3 | INTEGER CNT,VALUE(1),ARRAY(1)\r | |
| 4 | C\r | |
| 5 | C MOVES CONSTANTS OR ARRAYS:\r | |
| 6 | C IF CNT .GT. 0 THEN\r | |
| 7 | C ARRAY(I)=VALUE(I)\r | |
| 8 | C\r | |
| 9 | C IF CNT .LT. 0 THEN\r | |
| 10 | C ARRAY(I)=VALUE(1)\r | |
| 11 | C\r | |
| 12 | INTEGER CNTI,I\r | |
| 13 | C\r | |
| 14 | IF (CNT.EQ.0) RETURN\r | |
| 15 | IF (CNT.GT.0) GOTO 20\r | |
| 16 | CNTI=-CNT\r | |
| 17 | DO 10 I=1,CNTI\r | |
| 18 | 10 ARRAY(I)=VALUE(1)\r | |
| 19 | RETURN\r | |
| 20 | 20 DO 30 I=1,CNT\r | |
| 21 | 30 ARRAY(I)=VALUE(I)\r | |
| 22 | RETURN\r | |
| 23 | END\r | |
| 24 | \1a\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0 |