projects
/
pdp8.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
a6ace9d4ec431200c08f0155fb0faacf14e7fd5a
[pdp8.git]
/
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