Directory of image this file is from
This file as a plain text file

[A PROGRAM TO PLAY
[THE GAME NIM
[BASED ON AN
[ENUMERATIVE LIST
[OF REPLYS.
[C.E. REEVE  MAY 1968
$1
JMP20
$12
7K-1
7K
7K+1
7K+2
[DISPLAY FIRST PAGE
$20
CLR
SETi2
5
SETi3
1P
JMP7A
SETi2
7
JMP7A
SETi2
12
JMP7A
SETi2
15
JMP7A
KST[FOR PAGE TURN
JMP21
[DISPLAY PAGE 2
KBD
CLR
#7ISETi2
2
SETi3
2P
JMP7A
SETi2
4
JMP7A
SETi2
5
JMP7A
SETi2
6
JMP7A
SETi2
7
JMP7A
SETi2
11
JMP7A
SETi2
12
JMP7A
SETi2
14
JMP7A
SETi2
15
JMP7A
KST[TURN PAGE
JMP7I
[DISPLAY PAGE 3
KBD
CLR
#7JSETi2
1
SETi3
3P
JMP7A
SETi2
3
JMP7A
SETi2
4
JMP7A
SETi2
6
JMP7A
SETi2
7
JMP7A
SETi2
11
JMP7A
SETi2
12
JMP7A
SETi2
13
JMP7A
SETi2
15
JMP7A
SETi2
16
JMP7A
KST[TURN PAGE
JMP7J
[DISPLAY PAGE 4
KBD
CLR
#7MSETi2
3
SETi3
4P
JMP7A
SETi2
4
JMP7A
SETi2
5
JMP7A
SETi2
6
JMP7A
SETi2
7
JMP7A
SETi2
10
JMP7A
SETi2
12
JMP7A
KST[TURN PAGE
JMP7M
[SET ME FIRST
KBD
#1D CLR
ADD4Q
STC1T
[SET SCORE COUNTERS
SETi10
1400
SETi11
1400
[INITALIZE BOARD
#2D CLR
ADD1Y
STC3Z
ADD2Y
STC4Z
ADD2Y
STC5Z
ADD3Y
STC6Z
ADD3Y
STC7Z
ADD3Y
STC1X
ADD4Y
STC2X
ADD4Y
STC3X
ADD4Y
STC4X
ADD4Y
STC5X
ADD5Y
STC1V
ADD5Y
STC2W
#1T [JMP ME|YOU FIRST
[SET ME FIRST
#1MCLR
ADD4G
STC9L
ADD1G
STC9N
ADD5G
STC9P
ADD1Q
STC2L
JMP8L
[SET YOU FIRST
#2MCLR
ADD4G
STC9L
ADD2G
STC9N
ADD5G
STC9P
ADD2Q
STC2L
JMP8L
[SET SCORE
#8L ADD10
STC1Z
ADD11
STC2Z
[END OF SET
ADD10
SAEi
1405
JMPp+2
JMP3T
CLR
ADD11
SAEi
1405
JMPp+2
JMP4T
CLR
[CLR TILE COUNTERS
STC3V
STC4V
STC5V
STC6V
JMP7L
[DISPLAY BOARD
#7LSETi2
2
SETi3
5P
JMP7A
SETi2
3
JMP7A
SETi2
5
JMP7A
SETi2
7
JMP7A
SETi2
11
JMP7A
SETi2
13
JMP7A
#9L
KST
JMP7L
#2L
[ILLEGAL MOVES
#8W SETi2
15
SETi3
#9D
JMP7A
KST
JMP7L
KBD
CLR
ADD9G
STC9N
ADD4G
STC9L
ADD5G
STC9P
JMP7L
[TRY AGAIN 
#8N SETi2
15
SETi3
#9N
JMP7A
CLR
KST
JMP7L
KBD
STC9X
ADD3G
STC9L
ADD9X
#9P
[ME FIRST
#3M CLR
ALD10
COM
ADD11
APO[LOOSING
JMP5M[WINNING
CLR
ADD7R
STC2W
ADD7R
STC1V
JMP7S
[WINNING
#5M CLR
LDAi17
CLR
ADD17
BCL15
ADD3Q
STCp+1
0
STC2W
ADD2W
STC1V
JMP7S
[CONVERSION FOR MOVE
#1S CLR
ADD2W
AZE
JMPp+3
CLR
STC2W
STC2V
ADD2W
BCL12
AZEi
JMPp+5
CLR
ADD1Y
STC3Z
JMPp+4
CLR
ADD6Y
STC3Z
ADD2W
BCL13
AZEi
JMP2S
ADD5K+1
STC1W
ADD2Y
STC4Z
ADD1W
AZEi
JMP2S+2
CLR
ADD2Y
STC5Z
#3SADD2W
BCL14
AZEi
JMP4S
ADD5K+2
STC1W
ADD3Y
STC6Z
ADD1W
AZEi
JMP4S+2
ADD5K+2
STC1W
ADD3Y
STC7Z
ADD1W
AZEi
JMP4S+4
CLR
ADD3Y
STC1X
#6SADD2W
BCL15
AZEi
JMP5S
ADD5K+3
STC1W
ADD4Y
STC2X
ADD1W
AZEi
JMP5S+2
ADD5K+3
STC1W
ADD4Y
STC3X
ADD1W
AZEi
JMP5S+4
ADD5K+3
STC1W
ADD4Y
STC4X
ADD1W
AZEi
JMP5S+6
CLR
ADD4Y
STC5X
JMP7L
[CLEAR B
#2S ADD6Y
STC4Z
ADD6Y
STC5Z
JMP3S
[CLEAR C
#4S ADD6Y
STC6Z
ADD6Y
STC7Z
ADD6Y
STC1X
JMP6S
[CLEAR D
#5S ADD6Y
STC2X
ADD6Y
STC3X
ADD6Y
STC4X
ADD6Y
STC5X
JMP7L
[REVISE DISPLAY PROG|
#7S ADD3G
STC9L
ADD2Q
STC2L
STC3V
STC4V
STC5V
STC6V
JMP1S
[ASSES PLAY
#4M CLR
KBD
STC1K
ADD1K
ADD2K
AZE
JMPp+2
JMP1A
ADD2K
AZE
JMPp+2
JMP2A
ADD3K
AZE
JMPp+2
JMP3A
ADD3K
AZE
JMPp+2
JMP4A
ADD3K
AZE
JMPp+2
JMP5A
JMP8D
[EOL
#1ACLR
ADD1V
COM
ADD2V
AZE
JMP6A
JMP3D
[KBD A
#2A CLR
ADD2W
BCL12
AZEi
JMP4D
CLR
ADD2W
ADD5K
STC2V
ADD5K
ADD3V
STC3V
CLR
ADD2V
STC2W
JMP1S
[KBD B
#3A CLR
ADD2W
BCL13
AZEi
JMP4D
CLR
ADD2W
ADD5K+1
STC2V
ADD5K+1
ADD4V
STC4V
CLR
ADD2V
STC2W
JMP1S
[KBD C
#4A CLR
ADD00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000Pp+2
JMP1E
CLR 
ADD1V
ADD5K+3
AZE
JMPp+2
JMP1E
CLR
ADD1V
ADD4K
STC16
ADA16
STC2W
ADD2W
STC1V
ADD2Q
STC2L
JMP7S
[NO MOVE
#3D CLR
ADD4F
STC9D
ADD8G
STC9L
JMP7L
[ILLEGAL MOVE
#4D CLR
ADD3F
STC9D
ADD8G
STC9L
JMP5D+5
[FOUL
#5D CLR
ADD9T
STC9D
ADD8G
STC9L
ADD1V
STC2W
JMP7S+4
[I WIN
#6D CLR
ADD4G
STC9L
ADD1F
STC9N
ADD8K
ADD10
STC10
ADD6G
STC9P
ADD9Q
STC1T
JMP8L
[YOU WIN
#1E CLR
ADD4G
STC9L
ADD2F
STC9N
ADD8K
ADD11
STC11
ADD6G
STC9P
ADD4Q
STC1T
JMP8L
[WRONG KEY
#8D CLR
ADD5F
STC9D
ADD8G
STC9L
JMP7L
[I WIN SET
#3T CLR
ADA
1B
STC6T
JMP5T
[YOU WIN SET
#4T CLR
ADA
1C
STC6T
JMP5T
[DISPLAY END OF SET
#5T SETi2
2
SETi3
5P
JMP7A
SETi2
3
JMP7A
SETi2
5
SETi3
#6T
JMP7A
SETi2
7
JMP7A
SETi2
11
SETi3
2I
JMP7A
SETi2
12
JMP7A
KST
JMP5T
KBD
CLR
JMP1D
[PAGE ONE
$3035
#1P"        HI
      LETS PLAY
       N I M
TO ADVANCE HIT EOL
;
[DISPLAY PAGE TWO
$3234
#2P"RULES:
1. EACH PLAYER
TAKES ONE OR MORE
TILES FROM ONE LINE
PER PLAY.
2. PLAYER TAKING
LAST TILE LOOSES.
3. LOOSER GOES
FIRST IN NEXT GAME
;
[DISPLAY PAGE THREE
#3P"CONVENTIONS:
1. PLEASE PLAY EACH
GAME TO LAST TILE
2.WHEN I GO FIRST
HIT EOL TO START
3. PLAYER WINNING
FIVE GAMES OUT OF
NINE WINS THE MATCH
4. I MOVE FIRST IN
THE FIRST GAME.
;
[DISPLAY PAGE FOUR
#4P"5. TO PLAY HIT
APPROPRIATE KEY
ONCE FOR EACH TILE
TO BE REMOVED.
AT END OF MOVE
HIT EOL.
   GOOD LUCK
;
[END OF SET DISPLAYS
#7T"     HURRAH
I WIN THIS SET
;
#2H"CONGRATULATIONS
YOU WIN THIS SET
;
#2I"TO START A NEW SET
OF GAMES HIT EOL.
;
[DISPLAY GAME BOARD
$1250
#5P "        SCORE
     ME ;
#1Z"    ;
"YO;
"U ;
#2Z"  
;
"  ;
"  ;
"  ;
"  ;
#3Z" A
;
"  ;
"  ;
"  ;
#4Z"B ;
"  ;
"  ;
#5Z"B 
; 
"  ;
#6Z" C;
"  ;
"  ;
#7Z" C;
"  ;
"  ;
#1X" C
;
#2X"D ;
"  ;
"  ;
#3X"D ;
"  ;
"  ;
#4X"D ;
"  ;
"  ;
#5X"D 
;
#6P "I WIN..HIT EOL
;
#7P"YOU WIN..HIT EOL
;
#8P "NO MOVE. HIT EOL
;
#9J "WRONG KEY. HIT EOL
;
#7Q" ME FIRST. HIT EOL
;
#6Q"YOUR MOVE FIRST
;
#8Q"TRY AGAIN
;
#9S"FOUL. HIT EOL
;
#8T "ILLEGAL MOVE HIT EOL;
[WE WILL NOW ADD OUR CONSTANTS ETC
#1B 7T
#1C 2H
#1QJMP3M
#2QJMP4M
#3Q2000+6R
#4QJMP1M
#5Q JMP6M
#9Q JMP 2M
#1V
#2V
#3V
#4V
#5V
#6V
#7V
#1W
#2W
#1Y"A;
#2Y"B;
#3Y"C;
#4Y"D;
#5Y1234
#6Y1414
#1K
#2K-12
#3K-1
#4K 1R-2
#5K-1000
-100
-10
-1
-1000
#7K-700
-70
-7
#8K 1
#9X
#1F 6P
#2F 7P
#3F 8T
#4F 8P
#5F 9J
#1G 7Q
#2G 6Q
#3G JMP9L+1
#4G JMP8N
#5G JMP2L
#6G JMP2D
#8G JMP8W
#9G 8Q
#6R 1233
1134
1232
0234
1233
1224
1232
1224
#7R 1230
#2T 1405
#9T 9S
[WE WILL NOW READ IN THE MESSAGE DISPLAY PRGM AND SEE
[MSGDIS
[MESSAGE DIS-
[PLAY SUBROUT.
[AJH OCT 64
#7A LDA
0
STC  7B
ADD 2
BCLi
7760
ROL 5
COM
ADD 7F
STC 7C
SETi1
30
SETi5
-24
#7E LDH 3
SHDi
1200
JMP 7G
ROL 1
ADD 7D
STC 4
ADD 7C
DSC 4
DSCi4
DSCi
0
LDHi3
XSKi5
JMP 7E
#7B 0
#7H 4136
3641
2100
0177
4523
2151
5142
2651
2414
0477
5172
4651
2516
4645
4443
6050
5126
2651
5131
3452
0
#7D 7H
#7G LDHi3
JMP 7B
0
0
0101
0126
2437
0034
0404
0404
3704
0404
4100
0077
3614
1436
#7F 341
#7C 0
4477
7744
5177
2651
4136
2241
4177
3641
4577
4145
4477
4044
4136
2645
1077
7710
7741
0041
4142
4076
1077
4324
0177
0101
3077
7730
3077
7706
4177
7741
4477
3044
4276
0376
4477
3146
5121
4651
4040
4077
0177
7701
0176
7402
0677
7701
1463
6314
0770
7007
4543
6151
1212
1212
0107
0107
0500
0006
0001
0000
4577
7745
7700
0041
[END OF SUB-
[ROUTINE
[REPLYS
$2002
#1R 0001
0001
0001
$2011
0010
0010
0010
0010
$2020
0010
0001
0012
0022
0022
$2030
0010
0001
0022
0032
0033
$2101
0100
0100
0100
0100
$2110
0010
0101
0111
0111
0111
$2120
0100
0111
0022
0122
0123
$02130
0100
0111
0122
0132
0132
$2200
0100
0001
0201
0202
0202
$2210
0010
0111
0202
0212
0213
$2220
0210
0220
0202
0220
0220
$2230
0220
0221
0231
0213
0231
$3001
1000
1000
1000
1000
$3010
1000
1010
1011
1011
1011
$3020
1000
1011
0022
1022
1023
$3030
1000
1011
1022
1032
1032
$3100
0100
1001
1101
1101
1101
$3110
1010
1011
1110
1110
1110
$3120
1110
1101
1022
1023
1122
$3130
1110
1101
1032
1132
1133
$3200
1000
1101
0202
1202
1203
$3210
1110
1011
1202
1212
1212
$3220
0220
0221
1221
1221
1221
$3230
1220
1221
1212
1203
[END NIM UCLA