disk8: Initial commit
[pdp8.git] / sw / adventure / 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
10 /DSTROY,
11 0;0 / Subroutine entry point
12 FSTA TEMP
13 / CALL MOVE(OBJECT,0)
14 / RETURN
15 / END
16 JSR MOVE
17 JA DSTROY
18 JA TEMP
19 JA ZERO
20 TEMP, ORG .+3
21 ZERO, F 0.0
22 END