github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-05-05 15:44:10 +00:00
Code Issues Releases Wiki Activity

Accept "y" and "s" as well as "Y" and "S".

Browse Source 
This is equivalent to the binary patch that was applied to
AI:SYS1;TS WUMPUS; the original patch was:

	.IOT TTYI,A	; at 50; jumped to from GETLF
	CAIL A,"a-1
	 SUBI A,"a-"A
	JUMPA T,GETLF+1
	JUMPA T,GETLF+2
	CAIE T,"s	; at 55; jumped to from MOVE2
	 CAIN T,"S
	  JUMPA T,MOVE2+1
	JUMPA T,MOVE2+2
PATCH:			; at 61; not used
This commit is contained in:
Adam Sampson
2018-03-26 12:20:05 +01:00
committed by Adam Sampson
parent 7d42c5b2f9
commit 9e869769cf
1 changed files with 6 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
src/games/wumpus.101 → src/games/wumpus.102
View File

@@ -96,8 +96,9 @@ GO: .OPEN TTYI,[20+.UAI,,'TTY] ;[FIXME why 20?]
MOVEI P, PDL MOVEI P, PDL
SAY /DIRECTIONS? (Y OR N) / ;Does he want the expl? SAY /DIRECTIONS? (Y OR N) / ;Does he want the expl?
GETLF: .IOT TTYI,A GETLF: .IOT TTYI,A
CAIN A,"Y CAIE A,"y
SHOW EXPL CAIN A,"Y
SHOW EXPL
SHOW CRLF SHOW CRLF
PUSHJ P,NAMEF ;Fiddle with name PUSHJ P,NAMEF ;Fiddle with name
.RDTIME T, .RDTIME T,
@@ -359,8 +360,9 @@ MOVE1: SAY /MOVE? / ;Demand move
JRST NOTPOS ;Nope, not possible JRST NOTPOS ;Nope, not possible
MOVE ME,T ;Yep, make it MOVE ME,T ;Yep, make it
JRST CIRCLE ;Go back JRST CIRCLE ;Go back
MOVE2: CAIN T,"S MOVE2: CAIE T,"s
JRST SHOOT CAIN T,"S
JRST SHOOT
WHAT: CAIN T,1000 WHAT: CAIN T,1000
JRST MOVE1 JRST MOVE1
SAY /WHAT??/ ;Non-recognizable char SAY /WHAT??/ ;Non-recognizable char