projects
/
pdp8.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
59a5b364d7a0560bbc35e743ffda751bec20edfb
[pdp8.git]
/
sw
/
adventure
/
src
/
DSTROY.RA
1
SECT DSTROY
2
/ SUBROUTINE DSTROY(OBJECT)
3
/ C
4
/ C PERMANENTLY ELIMINATE "OBJECT" BY MOVING TO A NON-EXISTENT LOCATION.
5
/ C
6
/
7
/ IMPLICIT INTEGER (A-Z)
8
EXTERN MOVE
9
JA #ST
10
TEXT +DSTROY+
11
DSTXR, SETX XRDST
12
SETB BPDST
13
JA .+3
14
BPDST, F 0.0
15
F 0.0
16
XRDST, F 0.0
17
F 0.0
18
ZERO, F 0.0
19
ORG 10*3+BPDST
20
FNOP
21
JA DSTXR
22
0
23
DSTRTN, JA .
24
BASE 0
25
#ST, STARTD
26
FLDA 10*3
27
FSTA DSTRTN
28
FLDA 0
29
SETX XRDST
30
SETB BPDST
31
BASE BPDST
32
FSTA BPDST
33
LDX 1,1
34
FLDA% BPDST,1
35
FSTA CALLPT
36
STARTF
37
/ CALL MOVE(OBJECT,0)
38
/ RETURN
39
/ END
40
JSR MOVE
41
JA DSTRTN
42
CALLPT, JA .
43
JA ZERO
44
END