Home
last modified time | relevance | path

Searched refs:HERE (Results 1 – 25 of 51) sorted by relevance

123

/original-bsd/contrib/dungeon/
H A Dclockr.F70 IF(HERE.EQ.MAINT) CALL JIGSUP(81)
274 RFLAG(HERE)=or(RFLAG(HERE),RMUNG)
275 RRAND(HERE)=114
322 IF(HERE.EQ.LEDG4) GO TO 9100
358 IF(HERE.EQ.MUNGRM) GO TO 10100
453 IF(HERE.NE.CRYPT) RETURN
455 IF(.NOT.LIT(HERE)) GO TO 20100
511 IF((HERE.EQ.INMIR).OR.(MRHERE(HERE).EQ.1))
537 IF((HERE.NE.CELL).AND.(HERE.NE.PCELL)) GO TO 24100
552 CALL NEWSTA(MASTER,0,HERE,0,0)
[all …]
H A Dnobjs.F91 IF(HERE.EQ.BKBOX) GO TO 2600
233 I=HERE
249 7000 IF((IABS(HERE-MLOC).NE.1).OR.(MRHERE(HERE).NE.0).OR.
275 9000 IF(HERE.NE.CPUZZ) GO TO 9500
318 CALL PRINCR(.TRUE.,HERE)
320 RFLAG(HERE)=or(RFLAG(HERE),RSEEN)
323 9500 IF(HERE.NE.SCOLAC) GO TO 9700
332 9700 IF(HERE.NE.BKBOX) GO TO 10
421 CALL NEWSTA(I,0,HERE,0,0)
428 IF(QHERE(J,HERE)) I=762
[all …]
H A Dsverbs.F126 67000 CALL RSPEAK(RDESC2-HERE)
194 IF(and(RFLAG(HERE),(RWATER+RFILL)).EQ.0)
201 7000 IF(HERE.EQ.MBARR) GO TO 7100
213 8000 IF((HERE.EQ.MCYCL).AND.QHERE(CYCLO,HERE)) GO TO 8100
242 10000 IF(HERE.NE.TEMP2) GO TO 10050
257 11000 IF(HERE.NE.TEMP1) GO TO 11050
268 12000 IF(HERE.NE.TREAS) GO TO 12050
332 17100 IF(HERE.NE.SCOLAC) GO TO 17300
477 IF(QHERE(PRSO,HERE)) GO TO 22100
513 TRAVEL(REXIT(HERE)+1)=214
[all …]
H A Ddverb1.F53 500 IF((X.NE.0).OR. QHERE(PRSO,HERE)) GO TO 600
126 400 CALL NEWSTA(PRSO,0,HERE,0,0)
128 IF(HERE.EQ.MTREE) CALL NEWSTA(PRSO,0,FORE3,0,0)
141 IF((I.NE.0).AND.(HERE.EQ.MTREE)) I=659
215 725 IF(QHERE(J,HERE)) GO TO 750
282 IF(.NOT.LIT(HERE)) GO TO 4000
288 SAVEH=HERE
295 IF(.NOT.QHERE(PRSO,HERE).OR.
304 IF(SAVEH.NE.HERE) RETURN
316 IF(SAVEH.NE.HERE) RETURN
[all …]
H A Dobjcts.F76 2000 IF(HERE.NE.MMACH) GO TO 10
341 IF(HERE.EQ.MRAIN) GO TO 39500
343 IF((HERE.EQ.POG).OR.(HERE.EQ.FALLS)) GO TO 39200
420 CALL NEWSTA(CAGE,0,HERE,0,0)
468 49100 RFLAG(HERE)=or(RFLAG(HERE),RMUNG)
469 RRAND(HERE)=271
538 52300 IF((HERE.NE.ALICE).AND.(HERE.NE.ALISM).AND.(HERE.NE.ALITR))
544 RFLAG(HERE)=or(RFLAG(HERE),RMUNG)
545 RRAND(HERE)=281
554 IF(HERE.NE.ALISM) GO TO 52500
[all …]
H A Dsobjs.F91 6000 IF(HERE.EQ.DOME) GO TO 6100
159 CALL NEWSTA(BLAMP,142,HERE,0,0)
204 MROOM=xor(HERE,1)
207 IF(OROOM(I).EQ.HERE) OROOM(I)=-1
369 IF(HERE.NE.CLEAR) I=216
381 29000 IF(HERE.NE.LROOM) GO TO 29100
387 29100 IF(HERE.NE.CELLA) GO TO 10
474 34100 RFLAG(HERE)=xor(RFLAG(HERE),RLIGHT)
516 CALL NEWSTA(RBOAT,236,HERE,0,0)
552 CALL NEWSTA(DBOAT,240,HERE,0,0)
[all …]
H A Ddgame.F70 350 IF(.NOT.ECHOF.AND.(HERE.EQ.ECHOR)) GO TO 1000
71 F=RAPPLI(RACTIO(HERE))
75 IF(.NOT.LIT(HERE)) PRSCON=1
114 IF(FINDXT(PRSO,HERE)) GO TO 300
144 HERE=AROOM(WINNER)
156 HERE=AROOM(WINNER)
166 2350 F=RAPPLI(RACTIO(HERE))
H A Dvillns.F29 IF(.NOT.QHERE(AXE,HERE)) GO TO 1050
34 1050 IF(QHERE(TROLL,HERE)) CALL RSPEAK(I)
60 IF(QHERE(TROLL,HERE)) CALL RSPEAK(437)
238 IF(QHERE(THIEF,HERE)) CALL RSPEAK(498)
244 IF(QHERE(THIEF,HERE)) CALL RSPEAK(499)
263 IF((I.EQ.CHALI).OR.(I.EQ.THIEF).OR.(HERE.NE.TREAS)
271 135 IF(OADV(I).EQ.-THIEF) CALL NEWSTA(I,0,HERE,0,0)
297 IF(QHERE(THIEF,HERE)) CALL RSPEAK(505)
304 IF((HERE.EQ.TREAS).AND.QHERE(CHALI,HERE))
329 CALL NEWSTA(I,0,HERE,0,0)
H A Dverbs.F82 18000 IF(LIT(HERE)) GO TO 18100
297 42400 CALL NEWSTA(I,0,HERE,0,0)
310 IF(QHERE(PRSO,HERE)) I=399
318 44000 F=LIT(HERE)
335 44300 IF(.NOT.F .AND.LIT(HERE)) F=RMDESC(0)
356 45300 IF(.NOT.LIT(HERE)) CALL RSPEAK(406)
418 IF(QHERE(PRSO,HERE)) GO TO 48300
430 IF(QHERE(J,HERE)) GO TO 48100
467 51100 IF(QHERE(PRSO,HERE)) GO TO 51200
497 IF(and(RFLAG(HERE),RLAND).NE.0) GO TO 52200
[all …]
H A Dnrooms.F71 43000 IF(PRSA.EQ.LOOKW) CALL EWTELL(HERE,683)
76 44000 IF(PRSA.EQ.LOOKW) CALL EWTELL(HERE,686)
81 45000 IF(PRSA.EQ.LOOKW) CALL EWTELL(HERE,687)
117 IF(QHERE(J,HERE).AND.(J.NE.RBEAM)) GO TO 47200
297 IF(IABS(MLOC-HERE).NE.1) GO TO 200
310 100 M1=MRHERE(HERE)
H A Ddsub.F326 IF(QHERE(J,HERE)) OFLAG2(J)=and(OFLAG2(J),not(FITEBT))
471 50 IF(HERE.EQ.AROOM(PLAYER)) GO TO 100
479 100 IF(LIT(HERE)) GO TO 300
486 300 RA=RACTIO(HERE)
490 I=RDESC2-HERE
502 I=RDESC1(HERE)
518 600 IF(FULL.NE.2) CALL PRINCR(FULL.NE.0,HERE)
519 RFLAG(HERE)=or(RFLAG(HERE),RSEEN)
H A Ddverb2.F90 WRITE(1) WINNER,HERE,THFPOS,TELFLG,THFFLG,THFACT,
200 READ(1) WINNER,HERE,THFPOS,TELFLG,THFFLG,THFACT,
252 IF((WINNER.NE.PLAYER).OR.LIT(HERE).OR.PROB(25,25))
254 IF(.NOT.FINDXT(PRSO,HERE)) GO TO 450
288 500 IF(FINDXT(PRSO,HERE)) GO TO 550
296 IF(and(RFLAG(HERE),RNWALL).NE.0) XSTRNG=524
380 XROOM1=and(TRAVEL(REXIT(HERE)+I),XRMASK)
459 9000 IF(MRHERE(HERE).NE.1) GO TO 9100
H A Drooms.F300 IF((HERE.NE.BSHAF).OR.(.NOT.LIT(HERE))) RETURN
396 21600 IF(QHERE(GHOST,HERE)) GO TO 21700
491 IF(OROOM(THIEF).NE.HERE)
493 THFPOS=HERE
496 IF(OROOM(CHALI).EQ.HERE)
504 IF((I.EQ.CHALI).OR.(I.EQ.THIEF).OR..NOT.QHERE(I,HERE))
567 IF(.NOT. QHERE(GUANO,HERE)) GO TO 32100
H A Ddso2.F22 LHR=and(RFLAG(HERE),RLAND).NE.0
57 HERE=NR
58 AROOM(WHO)=HERE
H A Dballop.F49 IF(FINDXT(PRSO,HERE)) GO TO 250
77 500 IF((PRSA.NE.UNBOAW).OR.(and(RFLAG(HERE),RLAND).EQ.0))
H A Dnp2.F34 IF(.NOT.LIT(HERE)) GO TO 200
37 OBJ=SCHLST(OIDX,AIDX,HERE,0,0,SPCOBJ)
103 IF(.NOT.GHERE(I,HERE)) GO TO 1200
H A Dgamestate.h5 COMMON /PLAY/ WINNER,HERE,TELFLG
/original-bsd/old/uudiff/
H A Dremdiff15 set HERE=`pwd`
29 set LOCAL=`$UUDIR/lenrem $LOCAL $HERE`
30 set REMOTE=`$UUDIR/lenrem $REMOTE $HERE`
51 cp zzb$pid $HERE/zzc$pid
54 uucp -f -w $SYS!zzb$pid $HERE/zzc$pid
59 $HERE/zzc$pid
61 chdir $HERE
83 chdir $HERE
99 echo $HERE/\$f.$pid >>zzm$pid
111 echo uudiff$pid arrived in $HERE "|" mail $ME
/original-bsd/usr.bin/f77/f77.tahoe/
H A Dpathnames.h30 #if HERE!=TARGET || FAMILY!=PCC || (HERE!=VAX && HERE!=TAHOE)
H A Df77.c195 #if HERE==PDP11 || HERE==VAX || HERE==TAHOE
198 #if HERE == INTERDATA
556 #if HERE==PDP11 || HERE==VAX || HERE==TAHOE
805 #if HERE==PDP11 && TARGET!=PDP11
844 #if HERE==PDP11 || HERE==INTERDATA || HERE==VAX || HERE==TAHOE
854 #if HERE==INTERDATA
/original-bsd/usr.bin/f77/f77.vax/
H A Dpathnames.h30 #if HERE!=TARGET || FAMILY!=PCC || (HERE!=VAX && HERE!=TAHOE)
/original-bsd/usr.bin/f77/pass1.tahoe/
H A Dconv.h28 #if HERE == VAX
33 #if HERE == TAHOE
H A Dtahoe.c37 #if HERE == VAX || HERE == TAHOE
356 #if HERE == VAX
363 #if HERE == TAHOE
383 #if HERE == VAX
406 #if HERE == VAX
440 #if HERE == VAX
469 #if HERE == VAX
490 #if HERE == VAX
/original-bsd/lib/libc/regex/
H A Dregcomp.c129 #define HERE() (p->slen) macro
269 conc = HERE();
286 prevfwd = HERE();
316 pos = HERE();
323 p->pbegin[subno] = HERE();
328 p->pend[subno] = HERE();
543 p->pbegin[subno] = HERE();
549 p->pend[subno] = HERE();
1409 register sopno ret = HERE();
1472 sn = HERE();
[all …]
/original-bsd/usr.bin/f77/include.vax/
H A Ddefines.h39 #ifndef HERE
40 HERE NOT DEFINED !!!!
41 Here = HERE

123