Commit | Line | Data |
---|---|---|
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 | \r | |
10 | /DSTROY,\r | |
11 | 0;0 / Subroutine entry point\r | |
12 | FSTA TEMP\r | |
13 | / CALL MOVE(OBJECT,0)\r | |
14 | / RETURN\r | |
15 | / END\r | |
16 | JSR MOVE\r | |
17 | JA DSTROY\r | |
18 | JA TEMP\r | |
19 | JA ZERO\r | |
20 | TEMP, ORG .+3\r | |
21 | ZERO, F 0.0\r | |
22 | END\r |