projects / pdp8.git / blame
| Commit | Line | Data |
|---|---|---|
| 84b5715c 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 | \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 |