| 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 |