+++ /dev/null
- SECT DSTROY\r
-/ SUBROUTINE DSTROY(OBJECT)\r
-/ C\r
-/ C PERMANENTLY ELIMINATE "OBJECT" BY MOVING TO A NON-EXISTENT LOCATION.\r
-/ C\r
-/ \r
-/ IMPLICIT INTEGER (A-Z)\r
- EXTERN MOVE\r
-\r
-/DSTROY,\r
- 0;0 / Subroutine entry point\r
- FSTA TEMP\r
-/ CALL MOVE(OBJECT,0)\r
-/ RETURN\r
-/ END\r
- JSR MOVE\r
- JA DSTROY\r
- JA TEMP\r
- JA ZERO\r
-TEMP, ORG .+3\r
-ZERO, F 0.0\r
- END\r