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