BAT 
          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 
