IDENT BAT,BAT
PERIPH
SST RDS
*COMMENT BAT - BASEBALL GAME.
COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
TITLE BAT - BASEBALL GAME.
EJECT
***
*
* 6000 SERIES BASEBALL GAME *
* WRITTEN BY *
* T. J. SPENCE *
* SEPT. 12, 1967 *
***
* PLAYING DIRECTIONS *
* P = PITCH BALL *
* S = SWING BAT *
* R = RESTART GAME *
* H = HOLD *
* D = DROP *
SPACE 4
**** DIRECT LOCATION ASSIGNMENTS.
STATUS EQU 20B
* STATUS = 0, NO PLAY
* STATUS = 1, BAT SWINGING
* STATUS = 2, BALL PITCHED
* STATUS = 4, HIT
* STATUS = 10, BAT WAS SWUNG
* STATUS = 20, CHANGE TEAMS
HITLOC EQU 21B
HDISLOC EQU 22B
STRIKES EQU 23B
BALLS EQU 24B
OUTS EQU 25B
RUNS EQU 26B
RUNSIN EQU 27B
INNINGS EQU 30B
INLOC EQU 31B
MENON EQU 32B
* BIT 0 SET = MAN ON FIRST
* BIT 1 SET = MAN ON SECOND
* BIT 2 SET = MAN ON THIRD
* BIT 3 SET = RUN SCORED
HITSTAT EQU 33B
* BIT 0 SET = HIT IS FINISHED
* BIT 1 SET = HIT WAS CAUGHT
* BIT 2 SET = BATTER WAS WALKED
* BIT 4 SET = FOUL BALL
HITCNTR EQU 34B
BLX EQU 35B
BLY EQU 36B
BLXI EQU 37B
BLYIU EQU 40B
BLYIL EQU 41B
CNTR EQU 42B
LMT EQU 43B
SWCNTR EQU 44B
SWLMT EQU 45B
RANNO EQU 46B
RUNSTV EQU 47B
RUNSTH EQU 50B
EQ EQU 51B EST ORDINAL
TEAMUP EQU 60B
BATX EQU 61B
BATY EQU 62B
BATXI EQU 63B
BATYI EQU 64B
BATLOC EQU 65B
BALLRX EQU 66B
BALLRY EQU 67B
*CALL COMPMAC
*CALL COMDMAC
QUAL CPS
*CALL COMSCPS
QUAL *
REQS EQU /CPS/REQS
SPACE 4
** ASSEMBLY CONSTANTS.
NAME MICRO 1,, BAT
DISCH EQU CHDS DISPLAY CHANNEL
CH EQU DISCH
****
EJECT
** MAIN PROGRAM.
ORG PPFW
BAT CATD CHECK ACCESS TO DISPLAY CONSOLE
BAT1 STD CM+1 REQUEST 0 STORAGE
STD CM+2
MONITOR RSTM
RJM RDS REQUEST DISPLAY
BAT2 LDN 0 CLEAR DIRECT CELLS
STD STATUS
STD TEAMUP
STD BATXI
STD BATYI
STD HITLOC
STD HDISLOC
STD STRIKES
STD BALLS
STD OUTS
STD RUNS
STD RUNSTV
STD RUNSTH
STD RUNSIN
STD INNINGS
STD INLOC
STD MENON
STD HITSTAT
STD HITCNTR
STD BLXI
STD BLYIU
STD BLYIL
STD CNTR
STD LMT
STD SWCNTR
STD RANNO
LDC 6340B
STD BATX
LDC 7100B
STD BATY
LDC BL1
STD BATLOC
LDC 6377B
STD BALLRX
STM BALL
LDC 7270B
STD BALLRY
STM BALL+1
LDC 6212B
STD BLX
LDC 7312B
STD BLY
LDN 2
STD SWLMT
PLAY RJM PSS PAUSE FOR SYSTEM
LDD CP CHECK ROLLOUT FLAG
ADN STSW
CRD CM
LDD CM+2
LPN 1
ZJN PLAY1 IF ROLLOUT NOT SET
RJM DDS DROP DISPLAY
LJM DPP DROP PP
PLAY1 RJM DISFLD+1 DISPLAY LEFT SCREEN
RJM UPDATE+1
LDD STRIKES
ADN 1R0
STM STRIK
LDD BALLS
ADN 1R0
STM BAL
LDD OUTS
ADN 1R0
STM OUT
LDD RUNS
RJM OTD+1
LPN 77B
ADN 1R0
STM RTI
LDD T1
LPC 7700B
ZJN DRS
ADC 3300B
RAM RTI
DRS RJM DISRS+1
RJM 1,BATLOC DISPLAY BAT
RJM KEYIN+1 CHECK FOR KEYIN, UPDATE STATUS
LDD STATUS
NJN TRY1
LJM PLAY
TRY1 LPN 1
ZJN TRY2 NON-ZERO = START BAT MOVING
LDC BL2
STD BATLOC
LCN 1
RAD STATUS CLEAR STATUS BIT 0
TRY2 LDD STATUS
LPN 2
NJN MB NON-ZERO = PITCHED BALL IN MOTION
LJM TRY4
MB LCN 2
RAM BALL+1 MOVE BALL TOWARDS HOME PLATE
ADC -7056B
PJN TRY4
CATCH LDD BALLRY
STM BALL+1
LDC 2500B
STM PBA RAISE PITCHERS ARM
LCN 2
RAD STATUS CLEAR STATUS BIT 1
LPN 10B CHECK TO SEE IF BAT WAS SWUNG
ZJN BOS BAT WAS NOT SWUNG
LCN 10B
RAD STATUS CLEAR STATUS BIT 3
UJN STRK
BOS RJM RANGEN+1 LOAD RANDOM NUMBER
LPN 1
ZJN STRK
AOD BALLS ADD ONE TO BALLS
UJN TRY4
STRK AOD STRIKES ADD ONE TO STRIKES
TRY4 LDD STATUS
LPN 4
ZJN TRY10
RJM 1,HITLOC
TRY10 LDD HITSTAT
LPN 1
ZJN TRY10B NON-ZERO = HIT IS FINISHED
LDD HITSTAT
LPN 2
NJN TRY10A NON-ZERO = HIT WAS CAUGHT
LDD HITSTAT
LPN 20B
ZJN TRY10C NON-ZERO = FOUL BALL
RJM DISFOUL+1
UJN TRY11
TRY10C RJM 1,HDISLOC
RJM DISRBI+1
UJN TRY11
TRY10A RJM DISOUT+1
UJN TRY11
TRY10B LDD HITSTAT
LPN 4
ZJN TRY12 NON-ZERO = BATTER WAS WALKED
RJM DISWLK+1
RJM DISRBI+1
TRY11 AOD HITCNTR
SBN 40B
NJN TRY12
LCN 10B
RAD STATUS CLEAR STATUS BIT 3
LDN 0
STD HITCNTR
STD HITSTAT CLEAR HITSTAT
TRY12 LJM PLAY
BL1 LJM *
RJM CLDSBT+1
RJM COMBAT1+1
DB1 RJM DISBAT+1
UJN BL1
BL2 LJM *
RJM CLDSBT+1
RJM COMBAT2+1
DB2 RJM DISBAT+1
AOD SWCNTR
SBN 2
NJN BL2
LDC BL3
STD BATLOC
UJN BL2
BL3 LJM *
RJM CLDSBT+1
RJM COMBAT3+1
DB3 RJM DISBAT+1
AOD SWCNTR
SBN 4
NJN BL3
LDC BL4
STD BATLOC
UJN BL3
BL4 LJM *
RJM CLDSBT+1
RJM COMBAT4+1
DB4 RJM DISBAT+1
AOD SWCNTR
SBN 6
NJN BL4
LDC BL5
STD BATLOC
UJN BL4
BL5 LJM *
RJM CLDSBT+1
RJM COMBAT5+1
DB5 RJM DISBAT+1
LDD STATUS
LPN 4 CHECK TO SEE IF BALL HAS ALREADY BEEN HIT
NJN SKIP
RJM RANGEN+1
LPN 1
ZJN BL5A
SKIP LJM BL5V
BL5A LDM BALL+1
LMC 7112B
NJN BL5B
RJM HIT+1
LDC HL10
STD HITLOC
LJM BL5V
BL5B LDM BALL+1
LMC 7111B
NJN BL5C
RJM HIT+1
LDC HL9
STD HITLOC
LJM BL5V
BL5C LDM BALL+1
LMC 7110B
NJN BL5D
RJM HIT+1
LDC HL8
STD HITLOC
LJM BL5V
BL5D LDM BALL+1
LMC 7107B
NJN BL5E
RJM HIT+1
LDC HL7A HIT TO THIRD BASEMAN
STD HITLOC
LJM BL5V
BL5E LDM BALL+1
LMC 7106B
NJN BL5F
RJM HIT+1
LDC HL6
STD HITLOC
LJM BL5V
BL5F LDM BALL+1
LMC 7105B
NJN BL5G
RJM HIT+1
LDC HL5A HIT TO LEFT FIELDER
STD HITLOC
LJM BL5V
BL5G LDM BALL+1
LMC 7104B
NJN BL5H
RJM HIT+1
LDC HL4
STD HITLOC
LJM BL5V
BL5H LDM BALL+1
LMC 7103B
NJN BL5I
RJM HIT+1
LDC HL3A HIT TO SHORTSTOP
STD HITLOC
LJM BL5V
BL5I LDM BALL+1
LMC 7102B
NJN BL5J
RJM HIT+1
LDC HL2
STD HITLOC
LJM BL5V
BL5J LDM BALL+1
LMC 7101B
NJN BL5K
RJM HIT+1
LDC HL1
STD HITLOC
LJM BL5V
BL5K LDM BALL+1
LMC 7100B
NJN BL5L
RJM HIT+1
LDC HC HIT TO CENTER FIELDER
STD HITLOC
LJM BL5V
BL5L LDM BALL+1 HIT TO RIGHT OF CENTER FIELDER
LMC 7077B
NJN BL5M
RJM HIT+1
LDC HR1
STD HITLOC
LJM BL5V
BL5M LDM BALL+1 HIT TO RIGHT OF CENTER FIELDER
LMC 7076B
NJN BL5N
RJM HIT+1
LDC HR2
STD HITLOC
LJM BL5V
BL5N LDM BALL+1
LMC 7075B
NJN BL5O
RJM HIT+1
LDC HR3A HIT TO SECOND BASEMAN
STD HITLOC
LJM BL5V
BL5O LDM BALL+1 HIT TO LEFT OF RIGHT FIELDER
LMC 7074B
NJN BL5P
RJM HIT+1
LDC HR4
STD HITLOC
LJM BL5V
BL5P LDM BALL+1
LMC 7073B
NJN BL5Q
RJM HIT+1
LDC HR5A HIT TO RIGHT FIELDER
STD HITLOC
LJM BL5V
BL5Q LDM BALL+1 HIT TO RIGHT OF RIGHT FIELDER
LMC 7072B
NJN BL5R
RJM HIT+1
LDC HR6
STD HITLOC
LJM BL5V
BL5R LDM BALL+1
LMC 7071B
NJN BL5S
RJM HIT+1
LDC HR7A HIT TO FIRST BASEMAN
STD HITLOC
LJM BL5V
BL5S LDM BALL+1 HIT TO RIGHT OF FIRST BASEMAN
LMC 7070B
NJN BL5T
RJM HIT+1
LDC HR8
STD HITLOC
LJM BL5V
BL5T LDM BALL+1 FIRST BASE LINE DRIVE
LMC 7067B
NJN BL5U
RJM HIT+1
LDC HR9
STD HITLOC
LJM BL5V
BL5U LDM BALL+1
LMC 7066B
NJN BL5V
RJM HIT+1
LDC HR10
STD HITLOC
BL5V AOD SWCNTR
SBN 10B
NJN BL5W
LDC BL6
STD BATLOC
BL5W LJM BL5
BL6 LJM *
RJM CLDSBT+1
RJM COMBAT6+1
DB6 RJM DISBAT+1
AOD SWCNTR
SBN 12B
NJN BL6
LDC BL7
STD BATLOC
UJN BL6
BL7 LJM *
RJM CLDSBT+1
RJM COMBAT7+1
DB7 RJM DISBAT+1
AOD SWCNTR
SBN 14B
NJN BL7
LDC BL8
STD BATLOC
UJN BL7
BL8 LJM *
RJM CLDSBT+1
RJM COMBAT8+1
DB8 RJM DISBAT+1
AOD SWCNTR
SBN 16B
NJN BL8
LDC BL9
STD BATLOC
UJN BL8
BL9 LJM *
RJM CLDSBT+1
RJM COMBAT9+1
DB9 RJM DISBAT+1
AOD SWCNTR
SBN 20B
NJN BL9
LDN 0
STD SWCNTR
LDC BL1
STD BATLOC
UJN BL9
LJM PLAY
KEYIN LJM *
KEY1 FNC 7020B,DISCH
ACN DISCH
IAN DISCH
DCN DISCH
ZJN KEY2 IF NO INPUT
LMC 0
KEYA EQU *-1
ZJN KEYIN IF SAME INPUT
LMM KEYA STORE NEW INPUT
KEY2 STM KEYA
ZJN KEYIN EXIT IF NO DATA
SBN 1RD
NJN TRYH IF NOT *D*
RJM DDS DROP DISPLAY
DPP MONITOR DPPM DROP PP
LJM PPR EXIT TO PP RESIDENT
TRYH SBN 1RH-1RD
NJN TRYP IF NOT *H*
RJM DDS DROP DISPLAY
RJM RDS REQUEST DISPLAY
RJM MDC MODIFY DISPLAY CHANNELS
LJM KEYIN EXIT
TRYP SBN 1RP-1RH
NJN TRYR
LDD STATUS
LPN 6 CHECK TO SEE IF BALL IS PITCHED OR HIT
ZJN TRP1 IF NO PLAY
LJM KEYIN CHECK FOR MORE INPUT
TRP1 LDN 2
RAD STATUS SET STATUS BIT 1
LDC 1200B
STM PBA LOWER PITCHERS ARM
RJM RANGEN+1
LPN 1
LMM MB TOGGLE BALL INCREMENT
STM MB
RJM RANGEN+1
LPN 3
LMC -0
RAM BALL+1
LJM KEYIN
TRYR SBN 1RR-1RP
NJN TRYS
RJM CLSCR+1
LJM BAT2 CONTINUE
CLSCR LJM *
LDN 2
STD CNTR
CLSCR1 LDN 0
STM SCORE,CNTR CLEAR SCOREBOARD
LDN 3
RAD CNTR
SBN 76B
NJN CLSCR1
UJN CLSCR
TRYS SBN 1RS-1RR
NJN KEYEND
LDD SWCNTR
NJN KEYEND NON-ZERO = BAT IN MOTION
LDD STATUS
LPN 2
ZJN TRYS1 NON-ZERO = BALL HAS BEEN PITCHED
LDD STATUS
LPN 10B
NJN KEYEND NON-ZERO = BAT ALREADY SWUNG
LDN 11B
RAD STATUS
UJN KEYEND
TRYS1 LDN 1
RAD STATUS SET STATUS BIT 0
KEYEND LJM KEYIN
DISBAT LJM * DISPLAY BAT
FNC 7010B,DISCH
LDC DSBTEND-DSBT
ACN DISCH
OAM DSBT,DISCH
DCN DISCH
UJN DISBAT
CLDSBT LJM * CLEAR BAT STORAGE AREA
LDN 0
STD CNTR
LDC DSBTEND-DSBT
STD LMT
CL1 LDN 0
STM DSBT,CNTR
AOD CNTR
SBD LMT
NJN CL1
UJN CLDSBT
DSBT BSSZ 60B BAT STORAGE AREA = 60 LOCATIONS
DSBTEND EQU *
COMBAT1 LJM * COMPUTE AND STORE BAT POSITION 1
LDD BATY
SBN 60B
STD BATYI
RJM CB19+1
UJN COMBAT1
COMBAT9 LJM * COMPUTE AND STORE BAT POSITION 9
LDD BATY
STD BATYI
RJM CB19+1
UJN COMBAT9
CB19 LJM *
LDN 0
STD CNTR
LDN 32B
STD LMT
LDD BATX
STM DSBT,CNTR
AOD CNTR
CB19A LDD BATYI
STM DSBT,CNTR
LDN 2
RAD BATYI
AOD CNTR
SBD LMT
NJN CB19A
UJN CB19
COMBAT2 LJM * COMPUTE AND STORE BAT POSITION 2
RJM CB2468A+1
CBAT21 RJM CB2468B+1
ZJN COMBAT2
AOD BATXI
LDD BATYI
SBN 3
STD BATYI
UJN CBAT21
COMBAT4 LJM * COMPUTE AND STORE BAT POSITION 4
RJM CB2468A+1
CBAT41 RJM CB2468B+1
ZJN COMBAT4
LDN 3
RAD BATXI
SOD BATYI
UJN CBAT41
COMBAT6 LJM * COMPUTE AND STORE BAT POSITION 6
RJM CB2468A+1
CBAT61 RJM CB2468B+1
ZJN COMBAT6
LDN 3
RAD BATXI
AOD BATYI
UJN CBAT61
COMBAT8 LJM * COMPUTE AND STORE BAT POSITION 8
RJM CB2468A+1
CBAT81 RJM CB2468B+1
ZJN COMBAT8
AOD BATXI
LDN 3
RAD BATYI
UJN CBAT81
CB2468A LJM *
LDN 0
STD CNTR
LDN 40B
STD LMT
LDD BATX
STD BATXI
LDD BATY
STD BATYI
UJN CB2468A
CB2468B LJM *
LDD BATXI
STM DSBT,CNTR
AOD CNTR
LDD BATYI
STM DSBT,CNTR
AOD CNTR
SBD LMT
UJN CB2468B
COMBAT3 LJM * COMPUTE AND STORE BAT POSITION 3
RJM CB37A+1
CBAT31 RJM CB37B+1
ZJN COMBAT3
LDN 2
RAD BATXI
SOD BATYI
SOD BATYI
UJN CBAT31
COMBAT7 LJM * COMPUTE AND STORE BAT POSITION 7
RJM CB37A+1
CBAT71 RJM CB37B+1
ZJN COMBAT7
LDN 2
RAD BATXI
LDN 2
RAD BATYI
UJN CBAT71
CB37A LJM *
LDN 0
STD CNTR
LDN 44B
STD LMT
LDD BATX
STD BATXI
LDD BATY
STD BATYI
UJN CB37A
CB37B LJM *
LDD BATXI
STM DSBT,CNTR
AOD CNTR
LDD BATYI
STM DSBT,CNTR
AOD CNTR
SBD LMT
UJN CB37B
COMBAT5 LJM * COMPUTE AND STORE BAT POSITION 5
LDN 0
STD CNTR
LDN 60B
STD LMT
LDD BATX
STD BATXI
CBAT51 LDD BATXI
STM DSBT,CNTR
AOD CNTR
LDD BATY
STM DSBT,CNTR
LDN 2
RAD BATXI
AOD CNTR
SBD LMT
NJN CBAT51
UJN COMBAT5
RANGEN LJM * GENERATES RANDOM NUMBER
IAN 14B
STD RANNO
SHN -3
RAD RANNO
SHN -3
RAD RANNO
SHN -3
RAD RANNO
UJN RANGEN
OTD LJM * OCTAL TO DECIMAL CONVERTER
STD T1 RECEIVES TWO DIGIT OCTAL
LDN 0 NUMBER AS (A) = XY
STD T2 RETURNS TWO DIGIT DECIMAL
OTD1 LDD T1 NUMBER AS (A) = XXYY
SBN 10D EXAMPLE ....
STD T1 INPUT = 0035
MJN OTD2 OUTPUT = 0211
AOD T2 ANSWER ALSO REMAINS IN T1
UJN OTD1
OTD2 ADN 10D
STD T1
LDD T2
SHN 6
RAD T1
UJN OTD
HIT LJM * TRANSFER BALL CONTROL
LCN 2
RAD STATUS STOP PITCHED BALL
LDN 4
RAD STATUS START HIT BALL
UJN HIT
RB LJM * GIVE BALL BACK TO PITCHER,STORE RBI
LDD BALLRX
STM BALL
LDD BALLRY
STM BALL+1
LCN 4
RAD STATUS CLEAR STATUS BIT 2
LDN 0
STD BALLS CLEAR BALLS
STD STRIKES CLEAR STRIKES
LDD RUNSIN
ADN 1R0
SHN 6
STM RBI STORE RBI
AOD HITSTAT SET HITSTAT BIT 0
LDC 2500B
STM PBA RAISE PITCHERS ARM
UJN RB
RBF LJM * RETURN BALL AFTER FOUL
LDD BALLRX
STM BALL
LDD BALLRY
STM BALL+1
LCN 4
RAD STATUS CLEAR STATUS BIT 2
AOD HITSTAT SET HITSTAT BIT 0
LDC 2500B
STM PBA RAISE PITCHERS ARM
UJN RBF
HL1 LJM * HIT TO LEFT OF CENTER FIELDER (SINGLE)
SOM BALL
LDN 12B
RAM BALL+1
LMC 7771B
NJN HL1
RJM SINGLE+1
RJM RB+1
UJN HL1
HL2 LJM * HIT TO LEFT OF CENTER FIELDER (SINGLE)
SOM BALL
LDN 5
RAM BALL+1
LMC 7777B
NJN HL2
RJM SINGLE+1
RJM RB+1
UJN HL2
HL3A LJM * HIT TO SHORTSTOP
SOM BALL
LDN 4
RAM BALL+1
LMC 7477B
NJN HL3A
RJM RB+1
AOD OUTS
LDN 2
RAD HITSTAT
UJN HL3A
HL4 LJM * HIT TO RIGHT OF LEFT FIELDER (DOUBLE)
LCN 3
RAM BALL
LDN 10B
RAM BALL+1
LMC 7764B
NJN HL4
RJM DOUBLE+1
RJM RB+1
UJN HL4
HL5A LJM * HIT TO LEFT FIELDER
LCN 2
RAM BALL
LDN 4
RAM BALL+1
LMC 7601B
NJN HL5A
RJM RB+1
AOD OUTS
LDN 2
RAD HITSTAT
UJN HL5A
HL6 LJM * HIT TO LEFT OF LEFT FIELDER (HOME RUN)
LDN 5
RAM BALL+1
LCN 3
RAM BALL
LMC 6000B
NJN HL6
RJM HOMERUN+1
RJM RB+1
UJN HL6
HL7A LJM * HIT TO THIRD BASEMAN
LCN 2
RAM BALL
LDN 3
RAM BALL+1
LMC 7401B
NJN HL7A
RJM RB+1
AOD OUTS
LDN 2
RAD HITSTAT
UJN HL7A
HL8 LJM * HIT TO LEFT OF THIRD BASEMAN (SINGLE)
LDN 4
RAM BALL+1
LCN 3
RAM BALL
LMC 6000B
NJN HL8
RJM SINGLE+1
RJM RB+1
UJN HL8
HL9 LJM * THIRD BASE LINE DRIVE (DOUBLE)
LDN 7
RAM BALL+1
LCN 6
RAM BALL
LMC 6003B
NJN HL9
RJM DOUBLE+1
RJM RB+1
UJN HL9
HL10 LJM * FOUL BALL TO LEFT
LDN 3
RAM BALL+1
LCN 5
RAM BALL
LMC 6000B
NJN HL10
RJM FOULBAL+1
RJM RBF+1
UJN HL10
HC LJM * HIT TO CENTER FIELDER
LDN 4
RAM BALL+1
LMC 7700B
NJN HC
RJM RB+1
AOD OUTS
LDN 2
RAD HITSTAT
UJN HC
HR1 LJM * HIT TO RIGHT OF CENTER FIELDER (SINGLE)
AOM BALL
LDN 12B
RAM BALL+1
LMC 7767B
NJN HR1
RJM SINGLE+1
RJM RB+1
UJN HR1
HR2 LJM * HIT TO RIGHT OF CENTER FIELDER (SINGLE)
AOM BALL
LDN 5
RAM BALL+1
LMC 7773B
NJN HR2
RJM SINGLE+1
RJM RB+1
UJN HR2
HR3A LJM * HIT TO SECOND BASEMAN
AOM BALL
LDN 4
RAM BALL+1
LMC 7501B
NJN HR3A
RJM RB+1
AOD OUTS
LDN 2
RAD HITSTAT
UJN HR3A
HR4 LJM * HIT TO LEFT OF RIGHT FIELDER (DOUBLE)
LDN 3
RAM BALL
LDN 10B
RAM BALL+1
LMC 7774B
NJN HR4
RJM DOUBLE+1
RJM RB+1
UJN HR4
HR5A LJM * HIT TO RIGHT FIELDER
LDN 2
RAM BALL
LDN 4
RAM BALL+1
LMC 7577B
NJN HR5A
RJM RB+1
AOD OUTS
LDN 2
RAD HITSTAT
UJN HR5A
HR6 LJM * HIT TO RIGHT OF RIGHT FIELDER (SINGLE)
LDN 5
RAM BALL+1
LDN 3
RAM BALL
LMC 6776B
NJN HR6
RJM SINGLE+1
RJM RB+1
UJN HR6
HR7A LJM * HIT TO FIRST BASEMAN
LDN 2
RAM BALL
LDN 3
RAM BALL+1
LMC 7377B
NJN HR7A
RJM RB+1
AOD OUTS
LDN 2
RAD HITSTAT
UJN HR7A
HR8 LJM * HIT TO RIGHT OF FIRST BASEMAN (SINGLE)
LDN 4
RAM BALL+1
LDN 3
RAM BALL
LMC 6776B
NJN HR8
RJM SINGLE+1
RJM RB+1
UJN HR8
HR9 LJM * FIRST BASE LINE DRIVE (TRIPLE)
LDN 7
RAM BALL+1
LDN 6
RAM BALL
LMC 6773B
NJN HR9
RJM TRIPLE+1
RJM RB+1
UJN HR9
HR10 LJM * FOUL BALL TO RIGHT
LDN 3
RAM BALL+1
LDN 4
RAM BALL
LMC 6773B
NJN HR10
RJM FOULBAL+1
RJM RBF+1
UJN HR10
SINGLE LJM *
LDC DISSING
STD HDISLOC
LDN 0
STD RUNSIN
LDD MENON
SHN 1
ADN 1
STD MENON
LPN 10B
ZJN SINGLE
AOD RUNS
AOD RUNSIN
UJN SINGLE
DOUBLE LJM *
LDC DISDOUB
STD HDISLOC
LDN 0
STD RUNSIN
LDD MENON
SHN 1
ADN 1
STD MENON
LPN 10B
ZJN DOUB1
AOD RUNS
AOD RUNSIN
DOUB1 LDD MENON
SHN 1
STD MENON
LPN 10B
ZJN DOUBLE
AOD RUNS
AOD RUNSIN
UJN DOUBLE
TRIPLE LJM *
LDC DISTRIP
STD HDISLOC
LDN 0
STD RUNSIN
LDD MENON
SHN 1
ADN 1
STD MENON
LPN 10B
ZJN TRIP1
AOD RUNS
AOD RUNSIN
TRIP1 LDD MENON
SHN 1
STD MENON
LPN 10B
ZJN TRIP2
AOD RUNS
AOD RUNSIN
TRIP2 LDD MENON
SHN 1
STD MENON
LPN 10B
ZJN TRIPLE
AOD RUNS
AOD RUNSIN
UJN TRIPLE
HOMERUN LJM *
LDN 0
STD RUNSIN
LDD MENON
SHN 1
STD MENON
LPN 10B
ZJN HRN1
AOD RUNS
AOD RUNSIN
HRN1 LDD MENON
SHN 1
STD MENON
LPN 10B
ZJN HRN2
AOD RUNS
AOD RUNSIN
HRN2 LDD MENON
SHN 1
STD MENON
LPN 10B
ZJN HRN3
AOD RUNS
AOD RUNSIN
HRN3 AOD RUNS
AOD RUNSIN
LDC DISHMRN
STD HDISLOC
UJN HOMERUN
FOULBAL LJM *
LDN 20B
RAD HITSTAT SET HITSTAT BIT 3
LDD STRIKES
SBN 2
ZJN FOULBAL
AOD STRIKES
UJN FOULBAL
UPDATE LJM * RIGHT SCREEN UPDATE ROUTINE
LDD STRIKES
SBN 3
NJN UD1 ZERO = 3 STRIKES
LDN 0
STD BALLS CLEAR BALLS
STD STRIKES CLEAR STRIKES
AOD OUTS UPDATE OUTS
UD1 LDD OUTS
SBN 3
ZJN UD1D ZERO = 3 OUTS
LJM UD2
UD1D LDN 0
STD OUTS CLEAR OUTS
STD MENON CLEAR MENON
AOD INNINGS
LMN 22B
ZJN UD1G
LJM UD1C
UD1G RJM CLSCR+1 CLEAR SCOREBOARD
LDD RUNSTV
RJM OTD+1
LPN 77B
ADN 1R0
STM OVRFLW
LDD T1
LPC 7700B
ZJN UD1E
ADC 3300B
RAM OVRFLW
UD1E LDD RUNS
RAD RUNSTH
RJM OTD+1
LPN 77B
ADN 1R0
STM OVRFLW+3
LDD T1
LPC 7700B
ZJN UD1F
ADC 3300B
RAM OVRFLW+3
UD1F LDN 0
STD INNINGS
STD RUNS
LJM UPDATE
UD1C LDD INNINGS
ADD INNINGS
ADD INNINGS
SBN 1
ADC SCORE
STD INLOC
LDD TEAMUP
NJN UD1A
LDD RUNS
RAD RUNSTV
UJN UD1B
UD1A LDD RUNS
RAD RUNSTH
UD1B LDD RUNS
RJM OTD+1
LPN 77B
ADN 1R0
STI INLOC
LDD T1
LPC 7700B
ZJN CT
LDM OVRFLW,TEAMUP
ZJN UD3
LDD T1
LPC 7700B
RAM OVRFLW,TEAMUP
UJN CT
UD3 LDD T1
LPC 7700B
ADC 2R00
STM OVRFLW,TEAMUP
CT LDD TEAMUP
LMN 3
STD TEAMUP
LDN 0
STD RUNS CLEAR RUNS
LJM UPDATE
UD2 LDD BALLS
SBN 4
ZJN UD2A ZERO = 4 BALLS
LJM UPDATE
UD2A LDN 0
STD BALLS CLEAR BALLS
STD STRIKES CLEAR STRIKES
STD RUNSIN
LDN 10B
RAD STATUS SET STATUS BIT 3
LDD MENON
LPN 1
NJN W1 NON-ZERO = MAN ON FIRST
AOD MENON
UJN W4
W1 LDD MENON
LPN 2
NJN W2 NON-ZERO = MAN ON SECOND
LDN 2
RAD MENON
UJN W4
W2 LDD MENON
LPN 4
NJN W3 NON-ZERO = MAN ON THIRD
LDN 4
RAD MENON
UJN W4
W3 AOD RUNS
AOD RUNSIN
W4 LDD RUNSIN
ADN 1R0
SHN 6
STM RBI STORE RBI
LDN 4
RAD HITSTAT
UDEND LJM UPDATE
DISFLD LJM *
RJM DISBASE+1
RJM COMBL1+1
RJM DISBL+1
RJM COMBL2+1
RJM DISBL+1
RJM DISPL+1
RJM DISMEN+1
RJM DISBALL+1
UJN DISFLD
DISRS LJM *
RJM DISCHR+1
RJM DSVRT+1
RJM DSHOR+1
UJN DISRS
DSHOR LJM *
LDN 0
STD CNTR
LDC 6104B
STD BATXI
LDC 7400B
STD BATYI
RJM CSB1+1
RJM DISHOR+1
LDN 0
STD CNTR
LDC 6104B
STD BATXI
LDC 7430B
STD BATYI
RJM CSB1+1
RJM DISHOR+1
LDN 0
STD CNTR
LDC 6104B
STD BATXI
LDC 7460B
STD BATYI
RJM CSB1+1
RJM DISHOR+1
LJM DSHOR
CSB1 LJM *
CSB2 LDD BATXI
STM SCB2,CNTR
AOD CNTR
LDD BATYI
STM SCB2,CNTR
AOD CNTR
LDN 2
RAD BATXI
LMC 6676B
NJN CSB2
UJN CSB1
DISHOR LJM * DISPLAY SCOREBOARD
FNC 7110B,DISCH
LDC SCB2END-SCB2
ACN DISCH
OAM SCB2,DISCH
DCN DISCH
UJN DISHOR
SCB1 DATA 6104B
DATA 7402B
DATA 7404B
DATA 7406B
DATA 7410B
DATA 7412B
DATA 7414B
DATA 7416B
DATA 7420B
DATA 7422B
DATA 7424B
DATA 7426B
DATA 7432B
DATA 7434B
DATA 7436B
DATA 7440B
DATA 7442B
DATA 7444B
DATA 7446B
DATA 7450B
DATA 7452B
DATA 7454B
DATA 7456B
SCB1END EQU *
DSVRT LJM *
LDC 6104B
STM SCB1
RJM DISSCB1+1
LDC 6344B
STM SCB1
DS1 RJM DISSCB1+1
LDN 30B
RAM SCB1
LMC 6724B
NJN DS1
UJN DSVRT
DISSCB1 LJM * DISPLAY SCOREBOARD VERTICAL LINES
FNC 7110B,DISCH
LDN SCB1END-SCB1
ACN DISCH
OAM SCB1,DISCH
DCN DISCH
UJN DISSCB1
SCB2 BSSZ 572B SCOREBOARD HORIZ STORAGE AREA = 572 LOCATIO
SCB2END EQU *
DISCHR LJM *
FNC 7101B,DISCH
LDC RSEND-RS
ACN DISCH
OAM RS,DISCH
DCN DISCH
UJN DISCHR
RS EQU *
DATA 6320B
DATA 7340B
DATA H*STRIKES*
DATA 6360B
DATA 7320B
STRIK DATA 1R0
DATA 6144B
DATA 7340B
DATA H*BALLS*
DATA 6164B
DATA 7320B
BAL DATA 1R0
DATA 6534B
DATA 7340B
DATA H*OUTS*
DATA 6544B
DATA 7320B
OUT DATA 1R0
DATA 6200B
DATA 7240B
DATA H*RUNS THIS INNING*
DATA 6360B
DATA 7220B
RTI DATA 1R0
DATA 6100B
DATA 7600B
DATA H*6000 SERIES BASEBALL GAME*
DATA 6124B
DATA 7440B
DATA H*VISITORS*
DATA 6164B
DATA 7410B
DATA H*HOME*
DATA 6354B
DATA 7470B
DATA H*1*
DATA 6404B
DATA H*2*
DATA 6434B
DATA H*3*
DATA 6464B
DATA H*4*
DATA 6514B
DATA H*5*
DATA 6544B
DATA H*6*
DATA 6574B
DATA H*7*
DATA 6624B
DATA H*8*
DATA 6654B
DATA H*9*
SCORE DATA 6334B
DATA 7440B
DATA 0
DATA 6334B
DATA 7410B
DATA 0
DATA 6364B
DATA 7440B
DATA 0
DATA 6364B
DATA 7410B
DATA 0
DATA 6414B
DATA 7440B
DATA 0
DATA 6414B
DATA 7410B
DATA 0
DATA 6444B
DATA 7440B
DATA 0
DATA 6444B
DATA 7410B
DATA 0
DATA 6474B
DATA 7440B
DATA 0
DATA 6474B
DATA 7410B
DATA 0
DATA 6524B
DATA 7440B
DATA 0
DATA 6524B
DATA 7410B
DATA 0
DATA 6554B
DATA 7440B
DATA 0
DATA 6554B
DATA 7410B
DATA 0
DATA 6604B
DATA 7440B
DATA 0
DATA 6604B
DATA 7410B
DATA 0
DATA 6634B
DATA 7440B
DATA 0
DATA 6634B
DATA 7410B
DATA 0
DATA 6704B
DATA 7440B
OVRFLW DATA 0
DATA 6704B
DATA 7410B
DATA 0
RSEND EQU *
COMBL1 LJM * COMPUTE AND STORE LEFT BASE LINES
RJM CBL12A+1
LDD BLX
STD BLXI
LDD BLY
STD BLYIU
SBN 24B
STD BLYIL
CDBL1 RJM CBL12B+1
ZJN COMBL1
LDN 2
RAD BLXI
LDN 2
RAD BLYIU
LCN 2
RAD BLYIL
UJN CDBL1
COMBL2 LJM * COMPUTE AND STORE RIGHT BASE LINES
RJM CBL12A+1
LDN 24B
RAD BLXI
CDBL2 RJM CBL12B+1
ZJN COMBL2
LDN 2
RAD BLXI
LCN 2
RAD BLYIU
LDN 2
RAD BLYIL
UJN CDBL2
CBL12A LJM *
LDN 0
STD CNTR
LDC 245B
STD LMT
UJN CBL12A
CBL12B LJM *
LDD BLXI
STM DSBL,CNTR
AOD CNTR
LDD BLYIU
STM DSBL,CNTR
AOD CNTR
LDD BLYIL
STM DSBL,CNTR
AOD CNTR
SBD LMT
UJN CBL12B
DISDOUB LJM *
FNC 7001B,DISCH
LDN DDBLEND-DDBL
ACN DISCH
OAM DDBL,DISCH
DCN DISCH
UJN DISDOUB
DDBL DATA 6324B
DATA 7340B
DATA H*DOUBLE*
DDBLEND EQU *
DISSING LJM *
FNC 7001B,DISCH
LDN DSNGEND-DSNG
ACN DISCH
OAM DSNG,DISCH
DCN DISCH
UJN DISSING
DSNG DATA 6324B
DATA 7340B
DATA H*SINGLE*
DSNGEND EQU *
DISTRIP LJM *
FNC 7001B,DISCH
LDN DTRPEND-DTRP
ACN DISCH
OAM DTRP,DISCH
DCN DISCH
UJN DISTRIP
DTRP DATA 6324B
DATA 7340B
DATA H*TRIPLE*
DTRPEND EQU *
DISHMRN LJM *
FNC 7001B,DISCH
LDN DHMREND-DHMR
ACN DISCH
OAM DHMR,DISCH
DCN DISCH
UJN DISHMRN
DHMR DATA 6304B
DATA 7340B
DATA H*HOME RUN*
DHMREND EQU *
DISRBI LJM *
FNC 7001B,DISCH
LDN DRBIEND-DRBI
ACN DISCH
OAM DRBI,DISCH
DCN DISCH
UJN DISRBI
DRBI DATA 6314B
DATA 7320B
DATA H*RBI =*
RBI DATA 0
DRBIEND EQU *
DISFOUL LJM *
FNC 7001B,DISCH
LDN FOULEND-FOUL
ACN DISCH
OAM FOUL,DISCH
DCN DISCH
UJN DISFOUL
FOUL DATA 6344B
DATA 7340B
DATA H*FOUL*
DATA 6344B
DATA 7320B
DATA H*BALL*
FOULEND EQU *
DISOUT LJM *
FNC 7001B,DISCH
LDN OUTDEND-OUTD
ACN DISCH
OAM OUTD,DISCH
DCN DISCH
UJN DISOUT
OUTD DATA 6354B
DATA 7340B
DATA H*OUT*
OUTDEND EQU *
DISWLK LJM *
FNC 7001B,DISCH
LDN WLKEND-WLK
ACN DISCH
OAM WLK,DISCH
DCN DISCH
UJN DISWLK
WLK DATA 6344B
DATA 7340B
DATA H*WALK*
WLKEND EQU *
DISMEN LJM *
FNC 7001B,DISCH
ACN DISCH
LDD MENON
LPN 1
ZJN MEN1
LDN FRBEND-FRB
OAM FRB,DISCH
MEN1 LDD MENON
LPN 2
ZJN MEN2
LDN SRBEND-SRB
OAM SRB,DISCH
MEN2 LDD MENON
LPN 4
ZJN MEN3
LDN TRBEND-TRB
OAM TRB,DISCH
MEN3 DCN DISCH
FNC 7000B,DISCH
ACN DISCH
LDD MENON
LPN 1
ZJN MEN4
LDN FRHEND-FRH
OAM FRH,DISCH
MEN4 LDD MENON
LPN 2
ZJN MEN5
LDN SRHEND-SRH
OAM SRH,DISCH
MEN5 LDD MENON
LPN 4
ZJN MEN6
LDN TRHEND-TRH
OAM TRH,DISCH
MEN6 DCN DISCH
LJM DISMEN
FRB DATA 6620B
DATA 7270B
DATA 1600B
DATA 6620B
DATA 7300B
DATA 1100B
DATA 6620B
DATA 7310B
DATA 2500B
FRBEND EQU *
SRB DATA 6400B
DATA 7500B
DATA 1600B
DATA 6400B
DATA 7510B
DATA 1100B
DATA 6400B
DATA 7520B
DATA 2500B
SRBEND EQU *
TRB DATA 6170B
DATA 7270B
DATA 1600B
DATA 6170B
DATA 7300B
DATA 1100B
DATA 6170B
DATA 7310B
DATA 2500B
TRBEND EQU *
FRH DATA 6617B
DATA 7312B
DATA 1700B
FRHEND EQU *
SRH DATA 6377B
DATA 7522B
DATA 1700B
SRHEND EQU *
TRH DATA 6167B
DATA 7312B
DATA 1700B
TRHEND EQU *
DISPL LJM * DISPLAY PLAYERS
FNC 7001B,DISCH
LDC PLBEND-CB
ACN DISCH
OAM CB,DISCH
DCN DISCH
DATA 0
DATA 0
FNC 7000B,DISCH
LDC PLHEND-CR
ACN DISCH
OAM CR,DISCH
DCN DISCH
UJN DISPL
CB DATA 6400B
DATA 7020B
DATA 1500B
DATA 6400B
DATA 7030B
DATA 1100B
DATA 6400B
DATA 7040B
DATA 2700B
BB DATA 6310B
DATA 7060B
DATA 0100B
DATA 6310B
DATA 7074B
DATA 1100B
DATA 6310B
DATA 7104B
DATA 1400B
PB DATA 6400B
DATA 7236B
DATA 0100B
DATA 6400B
DATA 7246B
DATA 1100B
DATA 6400B
DATA 7256B
PBA DATA 2500B
LFB DATA 6140B
DATA 7560B
DATA 0100B
DATA 6140B
DATA 7570B
DATA 1100B
DATA 6140B
DATA 7600B
DATA 2500B
RFB DATA 6640B
DATA 7560B
DATA 0100B
DATA 6640B
DATA 7570B
DATA 1100B
DATA 6640B
DATA 7600B
DATA 2500B
CFB DATA 6400B
DATA 7660B
DATA 0100B
DATA 6400B
DATA 7670B
DATA 1100B
DATA 6400B
DATA 7700B
DATA 2500B
TBB DATA 6200B
DATA 7360B
DATA 0100B
DATA 6200B
DATA 7370B
DATA 1100B
DATA 6200B
DATA 7400B
DATA 2500B
SSB DATA 6300B
DATA 7460B
DATA 0100B
DATA 6300B
DATA 7470B
DATA 1100B
DATA 6300B
DATA 7500B
DATA 2500B
SBB DATA 6500B
DATA 7460B
DATA 0100B
DATA 6500B
DATA 7470B
DATA 1100B
DATA 6500B
DATA 7500B
DATA 2500B
FBB DATA 6600B
DATA 7360B
DATA 0100B
DATA 6600B
DATA 7370B
DATA 1100B
DATA 6600B
DATA 7400B
DATA 2500B
PLBEND EQU *
CR DATA 6377B
DATA 7044B
DATA 1700B
BH DATA 6307B
DATA 7107B
DATA 1700B
PH DATA 6377B
DATA 7260B
DATA 1700B
LFH DATA 6137B
DATA 7602B
DATA 1700B
CFH DATA 6377B
DATA 7702B
DATA 1700B
RFH DATA 6637B
DATA 7602B
DATA 1700B
TBH DATA 6177B
DATA 7402B
DATA 1700B
SSH DATA 6277B
DATA 7502B
DATA 1700B
SBH DATA 6477B
DATA 7502B
DATA 1700B
DATA 6577B
DATA 7402B
DATA 1700B
PLHEND EQU *
DISBALL LJM *
FNC 7000B,DISCH
LDN BALLEND-BALL
ACN DISCH
OAM BALL,DISCH
DCN DISCH
UJN DISBALL
BALL DATA 6377B
DATA 7270B
DATA 1700B
BALLEND EQU *
* DISPLAY POW
DISPOW LJM *
FNC 7000B,DISCH
LDC POWEND-POW
ACN DISCH
OAM POW,DISCH
DCN DISCH
UJN DISPOW
POW DATA 6400B
DATA 7120B
DATA H*POW*
POWEND EQU *
DISBL LJM * DISPLAY BASE LINES
FNC 7010B,DISCH
LDC DSBLEND-DSBL
ACN DISCH
OAM DSBL,DISCH
DCN DISCH
UJN DISBL
DSBL BSSZ 250B BASE LINE STORAGE AREA = 250 LOCATIONS
DSBLEND EQU *
DISBASE LJM * DISPLAY BASES
FNC 7010B,DISCH
LDC BASEND-BASES
ACN DISCH
OAM BASES,DISCH
DCN DISCH
UJN DISBASE
BASES DATA 6370B HOME PLATE AND SECOND BASE COORDINATES
DATA 7100B
DATA 7102B
DATA 7104B
DATA 7106B
DATA 7110B
DATA 7112B
DATA 7114B
DATA 7470B
DATA 6372B
DATA 7076B
DATA 7114B
DATA 7466B
DATA 7472B
DATA 6374B
DATA 7074B
DATA 7114B
DATA 7464B
DATA 7474B
DATA 6376B
DATA 7072B
DATA 7114B
DATA 7462B
DATA 7476B
DATA 6400B
DATA 7070B
DATA 7114B
DATA 7460B
DATA 7500B
DATA 6402B
DATA 7072B
DATA 7114B
DATA 7462B
DATA 7476B
DATA 6404B
DATA 7074B
DATA 7114B
DATA 7464B
DATA 7474B
DATA 6406B
DATA 7076B
DATA 7114B
DATA 7466B
DATA 7472B
DATA 6410B
DATA 7100B
DATA 7102B
DATA 7104B
DATA 7106B
DATA 7110B
DATA 7112B
DATA 7114B
DATA 7470B
FB DATA 6560B FIRST BASE COORDINATES
DATA 7300B
DATA 6562B
DATA 7302B
DATA 7276B
DATA 6564B
DATA 7304B
DATA 7274B
DATA 6566B
DATA 7306B
DATA 7272B
DATA 6570B
DATA 7310B
DATA 7270B
DATA 6572B
DATA 7306B
DATA 7272B
DATA 6574B
DATA 7304B
DATA 7274B
DATA 6576B
DATA 7302B
DATA 7276B
DATA 6600B
DATA 7300B
TB DATA 6200B THIRD BASE COORDINATES
DATA 7300B
DATA 6202B
DATA 7302B
DATA 7276B
DATA 6204B
DATA 7304B
DATA 7274B
DATA 6206B
DATA 7306B
DATA 7272B
DATA 6210B
DATA 7310B
DATA 7270B
DATA 6212B
DATA 7272B
DATA 7306B
DATA 6214B
DATA 7274B
DATA 7304B
DATA 6216B
DATA 7276B
DATA 7302B
DATA 6220B
DATA 7300B
BASEND EQU *
MDC SPACE 4,10
** MDC - MODIFY DISPLAY CHANNELS.
*
* ENTRY (DDSB) = CHANNEL NUMBER.
*
* EXIT NEW CHANNEL NUMBER SET.
*
* USES T1, T2.
MDC SUBR ENTRY/EXIT
LDM /COMDDSP/DDSB
STD T2
LMM KEY1 CHECK CHANNEL
LPN 77B
ZJN MDCX IF ALREADY SET
LDC KEY1-1 SET FIRST ADDRESS
STD T1
MDC1 AOD T1 ADVANCE ADDRESS
LMC MDC2
ZJN MDCX IF COMPLETE
LDI T1 CHECK WORD
LPC 7077B
LMC 7000B+CH
MDC2 NJN MDC1 IF NOT 7XCH
LDI T1 MODIFY CHANNEL
SCN 77B
ADD T2
STI T1
UJN MDC1 CHECK NEXT ADDRESS
SPACE 4,10
* COMMON DECKS.
BASE M
*CALL COMDDSP
*CALL COMPCUA
BASE *
SPACE 4
END