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 |