projects / pdp8.git / blame
| Commit | Line | Data |
|---|---|---|
| 81e70d48 PH |
1 | SECT DSTROY\r |
| 2 | / SUBROUTINE DSTROY(OBJECT)\r | |
| 3 | / C\r | |
| 4 | / C PERMANENTLY ELIMINATE "OBJECT" BY MOVING TO A NON-EXISTENT LOCATION.\r | |
| 5 | / C\r | |
| 6 | / \r | |
| 7 | / IMPLICIT INTEGER (A-Z)\r | |
| 8 | EXTERN MOVE\r | |
| 9 | JA #ST\r | |
| 10 | TEXT +DSTROY+\r | |
| 11 | DSTXR, SETX XRDST\r | |
| 12 | SETB BPDST\r | |
| 13 | JA .+3\r | |
| 14 | BPDST, F 0.0\r | |
| 15 | F 0.0\r | |
| 16 | XRDST, F 0.0\r | |
| 17 | F 0.0\r | |
| 18 | ZERO, F 0.0\r | |
| 19 | ORG 10*3+BPDST\r | |
| 20 | FNOP\r | |
| 21 | JA DSTXR\r | |
| 22 | 0\r | |
| 23 | DSTRTN, JA .\r | |
| 24 | BASE 0\r | |
| 25 | #ST, STARTD\r | |
| 26 | FLDA 10*3\r | |
| 27 | FSTA DSTRTN\r | |
| 28 | FLDA 0\r | |
| 29 | SETX XRDST\r | |
| 30 | SETB BPDST\r | |
| 31 | BASE BPDST\r | |
| 32 | FSTA BPDST\r | |
| 33 | LDX 1,1\r | |
| 34 | FLDA% BPDST,1\r | |
| 35 | FSTA CALLPT\r | |
| 36 | STARTF\r | |
| 37 | / CALL MOVE(OBJECT,0)\r | |
| 38 | / RETURN\r | |
| 39 | / END\r | |
| 40 | JSR MOVE\r | |
| 41 | JA DSTRTN\r | |
| 42 | CALLPT, JA .\r | |
| 43 | JA ZERO\r | |
| 44 | END\r |