projects
/
pdp8.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
143b9bffc018e204da61cafcf3b10a306d508301
[pdp8.git]
/
sw
/
src
/
adventure
/
PUT.RA
1
SECT PUT
2
/ INTEGER FUNCTION PUT(OBJECT,WHERE,PVAL)
3
/ C
4
/ C PUT IS THE SAME AS MOVE, EXCEPT IT RETURNS A VALUE USED TO SET UP THE
5
/ C NEGATED PROP VALUES FOR THE REPOSITORY OBJECTS.
6
/ C
7
/ IMPLICIT INTEGER (A-Z)
8
/ C
9
10
EXTERN MOVE
11
JA #ST
12
#XR, ORG .+10
13
TEXT +PUT +
14
#RET, SETX #XR
15
SETB #BASE
16
JA .+3
17
#BASE, ORG .+6
18
PVAL, ORG .+3
19
M1, F -1.0
20
ORG #BASE+30
21
FNOP
22
JA #RET
23
FNOP
24
#GOBAK, 0;0
25
#LBL=.
26
ORG #LBL
27
#RTN, BASE #BASE
28
JA #GOBAK
29
#ST, STARTD
30
0210
31
FSTA #GOBAK,0
32
0200
33
SETX #XR
34
SETB #BASE
35
LDX 0,1
36
FSTA #BASE
37
FLDA% #BASE,1+
38
FSTA #G1
39
FLDA% #BASE,1+
40
FSTA #G2
41
FLDA% #BASE,1+
42
FSTA PVAL
43
STARTF
44
/ CALL MOVE(OBJECT,WHERE)
45
JSR MOVE
46
JA .+6
47
#G1, JA .
48
#G2, JA .
49
/ PUT=(-1)-PVAL
50
FLDA M1
51
FSUB% PVAL
52
JA #RTN
53
END