Retro1.org codex

User Tools

Site Tools

Trace: • BAT
cdc:nos2.source:opl871:bat

Table of Contents

BAT

Table Of Contents

  • [00006] BAT - BASEBALL GAME.
  • [01974] MDC - MODIFY DISPLAY CHANNELS.

Source Code

BAT.txt 
  1.           IDENT  BAT,BAT 
  2.           PERIPH
  3.           SST    RDS
  4. *COMMENT  BAT - BASEBALL GAME.
  5.           COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
  6.           TITLE  BAT - BASEBALL GAME.
  7.           EJECT
  8. ***
  9. *
  10. *         6000 SERIES BASEBALL GAME          *
  11. *                 WRITTEN BY                 *
  12. *                T. J. SPENCE                *
  13. *               SEPT. 12, 1967               *
  14. ***
  15. *             PLAYING DIRECTIONS             *
  16. *               P = PITCH BALL               *
  17. *               S = SWING BAT                *
  18. *               R = RESTART GAME             *
  19. *               H = HOLD                     *
  20. *               D = DROP                     *
  21.           SPACE  4
  22. ****      DIRECT LOCATION ASSIGNMENTS.
  23.  
  24.  
  25.  STATUS   EQU    20B
  26. *         STATUS = 0, NO PLAY
  27. *         STATUS = 1, BAT SWINGING
  28. *         STATUS = 2, BALL PITCHED
  29. *         STATUS = 4, HIT
  30. *         STATUS = 10, BAT WAS SWUNG
  31. *         STATUS = 20, CHANGE TEAMS
  32.  HITLOC   EQU    21B
  33.  HDISLOC  EQU    22B
  34.  STRIKES  EQU    23B
  35.  BALLS    EQU    24B
  36.  OUTS     EQU    25B
  37.  RUNS     EQU    26B
  38.  RUNSIN   EQU    27B
  39.  INNINGS  EQU    30B
  40.  INLOC    EQU    31B
  41.  MENON    EQU    32B
  42. *         BIT 0 SET = MAN ON FIRST
  43. *         BIT 1 SET = MAN ON SECOND
  44. *         BIT 2 SET = MAN ON THIRD
  45. *         BIT 3 SET = RUN SCORED
  46.  HITSTAT  EQU    33B
  47. *         BIT 0 SET = HIT IS FINISHED
  48. *         BIT 1 SET = HIT WAS CAUGHT
  49. *         BIT 2 SET = BATTER WAS WALKED
  50. *         BIT 4 SET = FOUL BALL
  51.  HITCNTR  EQU    34B
  52.  BLX      EQU    35B
  53.  BLY      EQU    36B
  54.  BLXI     EQU    37B
  55.  BLYIU    EQU    40B
  56.  BLYIL    EQU    41B
  57.  CNTR     EQU    42B
  58.  LMT      EQU    43B
  59.  SWCNTR   EQU    44B
  60.  SWLMT    EQU    45B
  61.  RANNO    EQU    46B
  62.  RUNSTV   EQU    47B
  63.  RUNSTH   EQU    50B
  64.  EQ       EQU    51B         EST ORDINAL
  65.  TEAMUP   EQU    60B
  66.  BATX     EQU    61B
  67.  BATY     EQU    62B
  68.  BATXI    EQU    63B
  69.  BATYI    EQU    64B
  70.  BATLOC   EQU    65B
  71.  BALLRX   EQU    66B
  72.  BALLRY   EQU    67B
  73.  
  74. *CALL     COMPMAC
  75. *CALL     COMDMAC
  76.           QUAL   CPS
  77. *CALL     COMSCPS
  78.           QUAL   *
  79.  REQS     EQU    /CPS/REQS
  80.           SPACE  4
  81. **        ASSEMBLY CONSTANTS.
  82.  
  83.  
  84.  NAME     MICRO  1,, BAT
  85.  DISCH    EQU    CHDS        DISPLAY CHANNEL
  86.  CH       EQU    DISCH
  87. ****
  88.           EJECT
  89. **        MAIN PROGRAM.
  90.  
  91.  
  92.           ORG    PPFW
  93.  BAT      CATD               CHECK ACCESS TO DISPLAY CONSOLE
  94.  BAT1     STD    CM+1        REQUEST 0 STORAGE
  95.           STD    CM+2
  96.           MONITOR  RSTM
  97.           RJM    RDS         REQUEST DISPLAY
  98.  BAT2     LDN    0           CLEAR DIRECT CELLS
  99.           STD    STATUS
  100.           STD    TEAMUP
  101.           STD    BATXI
  102.           STD    BATYI
  103.           STD    HITLOC
  104.           STD    HDISLOC
  105.           STD    STRIKES
  106.           STD    BALLS
  107.           STD    OUTS
  108.           STD    RUNS
  109.           STD    RUNSTV
  110.           STD    RUNSTH
  111.           STD    RUNSIN
  112.           STD    INNINGS
  113.           STD    INLOC
  114.           STD    MENON
  115.           STD    HITSTAT
  116.           STD    HITCNTR
  117.           STD    BLXI
  118.           STD    BLYIU
  119.           STD    BLYIL
  120.           STD    CNTR
  121.           STD    LMT
  122.           STD    SWCNTR
  123.           STD    RANNO
  124.           LDC    6340B
  125.           STD    BATX
  126.           LDC    7100B
  127.           STD    BATY
  128.           LDC    BL1
  129.           STD    BATLOC
  130.           LDC    6377B
  131.           STD    BALLRX
  132.           STM    BALL
  133.           LDC    7270B
  134.           STD    BALLRY
  135.           STM    BALL+1
  136.           LDC    6212B
  137.           STD    BLX
  138.           LDC    7312B
  139.           STD    BLY
  140.           LDN    2
  141.           STD    SWLMT
  142.  PLAY     RJM    PSS         PAUSE FOR SYSTEM
  143.           LDD    CP          CHECK ROLLOUT FLAG
  144.           ADN    STSW
  145.           CRD    CM
  146.           LDD    CM+2
  147.           LPN    1
  148.           ZJN    PLAY1       IF ROLLOUT NOT SET
  149.           RJM    DDS         DROP DISPLAY
  150.           LJM    DPP         DROP PP
  151.  
  152.  PLAY1    RJM    DISFLD+1    DISPLAY LEFT SCREEN
  153.           RJM    UPDATE+1
  154.           LDD    STRIKES
  155.           ADN    1R0
  156.           STM    STRIK
  157.           LDD    BALLS
  158.           ADN    1R0
  159.           STM    BAL
  160.           LDD    OUTS
  161.           ADN    1R0
  162.           STM    OUT
  163.           LDD    RUNS
  164.           RJM    OTD+1
  165.           LPN    77B
  166.           ADN    1R0
  167.           STM    RTI
  168.           LDD    T1
  169.           LPC    7700B
  170.           ZJN    DRS
  171.           ADC    3300B
  172.           RAM    RTI
  173.  DRS      RJM    DISRS+1
  174.           RJM    1,BATLOC    DISPLAY BAT
  175.           RJM    KEYIN+1     CHECK FOR KEYIN, UPDATE STATUS
  176.           LDD    STATUS
  177.           NJN    TRY1
  178.           LJM    PLAY
  179.  TRY1     LPN    1
  180.           ZJN    TRY2        NON-ZERO = START BAT MOVING
  181.           LDC    BL2
  182.           STD    BATLOC
  183.           LCN    1
  184.           RAD    STATUS      CLEAR STATUS BIT 0
  185.  TRY2     LDD    STATUS
  186.           LPN    2
  187.           NJN    MB          NON-ZERO = PITCHED BALL IN MOTION
  188.           LJM    TRY4
  189.  MB       LCN    2
  190.           RAM    BALL+1      MOVE BALL TOWARDS HOME PLATE
  191.           ADC    -7056B
  192.           PJN    TRY4
  193.  CATCH    LDD    BALLRY
  194.           STM    BALL+1
  195.           LDC    2500B
  196.           STM    PBA         RAISE PITCHERS ARM
  197.           LCN    2
  198.           RAD    STATUS      CLEAR STATUS BIT 1
  199.           LPN    10B         CHECK TO SEE IF BAT WAS SWUNG
  200.           ZJN    BOS         BAT WAS NOT SWUNG
  201.           LCN    10B
  202.           RAD    STATUS      CLEAR STATUS BIT 3
  203.           UJN    STRK
  204.  BOS      RJM    RANGEN+1    LOAD RANDOM NUMBER
  205.           LPN    1
  206.           ZJN    STRK
  207.           AOD    BALLS       ADD ONE TO BALLS
  208.           UJN    TRY4
  209.  STRK     AOD    STRIKES     ADD ONE TO STRIKES
  210.  TRY4     LDD    STATUS
  211.           LPN    4
  212.           ZJN    TRY10
  213.           RJM    1,HITLOC
  214.  TRY10    LDD    HITSTAT
  215.           LPN    1
  216.           ZJN    TRY10B      NON-ZERO = HIT IS FINISHED
  217.           LDD    HITSTAT
  218.           LPN    2
  219.           NJN    TRY10A      NON-ZERO = HIT WAS CAUGHT
  220.           LDD    HITSTAT
  221.           LPN    20B
  222.           ZJN    TRY10C      NON-ZERO = FOUL BALL
  223.           RJM    DISFOUL+1
  224.           UJN    TRY11
  225.  TRY10C   RJM    1,HDISLOC
  226.           RJM    DISRBI+1
  227.           UJN    TRY11
  228.  TRY10A   RJM    DISOUT+1
  229.           UJN    TRY11
  230.  TRY10B   LDD    HITSTAT
  231.           LPN    4
  232.           ZJN    TRY12       NON-ZERO = BATTER WAS WALKED
  233.           RJM    DISWLK+1
  234.           RJM    DISRBI+1
  235.  TRY11    AOD    HITCNTR
  236.           SBN    40B
  237.           NJN    TRY12
  238.           LCN    10B
  239.           RAD    STATUS      CLEAR STATUS BIT 3
  240.           LDN    0
  241.           STD    HITCNTR
  242.           STD    HITSTAT     CLEAR HITSTAT
  243.  TRY12    LJM    PLAY
  244.  BL1      LJM    *
  245.           RJM    CLDSBT+1
  246.           RJM    COMBAT1+1
  247.  DB1      RJM    DISBAT+1
  248.           UJN    BL1
  249.  BL2      LJM    *
  250.           RJM    CLDSBT+1
  251.           RJM    COMBAT2+1
  252.  DB2      RJM    DISBAT+1
  253.           AOD    SWCNTR
  254.           SBN    2
  255.           NJN    BL2
  256.           LDC    BL3
  257.           STD    BATLOC
  258.           UJN    BL2
  259.  BL3      LJM    *
  260.           RJM    CLDSBT+1
  261.           RJM    COMBAT3+1
  262.  DB3      RJM    DISBAT+1
  263.           AOD    SWCNTR
  264.           SBN    4
  265.           NJN    BL3
  266.           LDC    BL4
  267.           STD    BATLOC
  268.           UJN    BL3
  269.  BL4      LJM    *
  270.           RJM    CLDSBT+1
  271.           RJM    COMBAT4+1
  272.  DB4      RJM    DISBAT+1
  273.           AOD    SWCNTR
  274.           SBN    6
  275.           NJN    BL4
  276.           LDC    BL5
  277.           STD    BATLOC
  278.           UJN    BL4
  279.  BL5      LJM    *
  280.           RJM    CLDSBT+1
  281.           RJM    COMBAT5+1
  282.  DB5      RJM    DISBAT+1
  283.           LDD    STATUS
  284.           LPN    4           CHECK TO SEE IF BALL HAS ALREADY BEEN HIT
  285.           NJN    SKIP
  286.           RJM    RANGEN+1
  287.           LPN    1
  288.           ZJN    BL5A
  289.  SKIP     LJM    BL5V
  290.  BL5A     LDM    BALL+1
  291.           LMC    7112B
  292.           NJN    BL5B
  293.           RJM    HIT+1
  294.           LDC    HL10
  295.           STD    HITLOC
  296.           LJM    BL5V
  297.  BL5B     LDM    BALL+1
  298.           LMC    7111B
  299.           NJN    BL5C
  300.           RJM    HIT+1
  301.           LDC    HL9
  302.           STD    HITLOC
  303.           LJM    BL5V
  304.  BL5C     LDM    BALL+1
  305.           LMC    7110B
  306.           NJN    BL5D
  307.           RJM    HIT+1
  308.           LDC    HL8
  309.           STD    HITLOC
  310.           LJM    BL5V
  311.  BL5D     LDM    BALL+1
  312.           LMC    7107B
  313.           NJN    BL5E
  314.           RJM    HIT+1
  315.           LDC    HL7A        HIT TO THIRD BASEMAN
  316.           STD    HITLOC
  317.           LJM    BL5V
  318.  BL5E     LDM    BALL+1
  319.           LMC    7106B
  320.           NJN    BL5F
  321.           RJM    HIT+1
  322.           LDC    HL6
  323.           STD    HITLOC
  324.           LJM    BL5V
  325.  BL5F     LDM    BALL+1
  326.           LMC    7105B
  327.           NJN    BL5G
  328.           RJM    HIT+1
  329.           LDC    HL5A        HIT TO LEFT FIELDER
  330.           STD    HITLOC
  331.           LJM    BL5V
  332.  BL5G     LDM    BALL+1
  333.           LMC    7104B
  334.           NJN    BL5H
  335.           RJM    HIT+1
  336.           LDC    HL4
  337.           STD    HITLOC
  338.           LJM    BL5V
  339.  BL5H     LDM    BALL+1
  340.           LMC    7103B
  341.           NJN    BL5I
  342.           RJM    HIT+1
  343.           LDC    HL3A        HIT TO SHORTSTOP
  344.           STD    HITLOC
  345.           LJM    BL5V
  346.  BL5I     LDM    BALL+1
  347.           LMC    7102B
  348.           NJN    BL5J
  349.           RJM    HIT+1
  350.           LDC    HL2
  351.           STD    HITLOC
  352.           LJM    BL5V
  353.  BL5J     LDM    BALL+1
  354.           LMC    7101B
  355.           NJN    BL5K
  356.           RJM    HIT+1
  357.           LDC    HL1
  358.           STD    HITLOC
  359.           LJM    BL5V
  360.  BL5K     LDM    BALL+1
  361.           LMC    7100B
  362.           NJN    BL5L
  363.           RJM    HIT+1
  364.           LDC    HC          HIT TO CENTER FIELDER
  365.           STD    HITLOC
  366.           LJM    BL5V
  367.  BL5L     LDM    BALL+1      HIT TO RIGHT OF CENTER FIELDER
  368.           LMC    7077B
  369.           NJN    BL5M
  370.           RJM    HIT+1
  371.           LDC    HR1
  372.           STD    HITLOC
  373.           LJM    BL5V
  374.  BL5M     LDM    BALL+1      HIT TO RIGHT OF CENTER FIELDER
  375.           LMC    7076B
  376.           NJN    BL5N
  377.           RJM    HIT+1
  378.           LDC    HR2
  379.           STD    HITLOC
  380.           LJM    BL5V
  381.  BL5N     LDM    BALL+1
  382.           LMC    7075B
  383.           NJN    BL5O
  384.           RJM    HIT+1
  385.           LDC    HR3A        HIT TO SECOND BASEMAN
  386.           STD    HITLOC
  387.           LJM    BL5V
  388.  BL5O     LDM    BALL+1      HIT TO LEFT OF RIGHT FIELDER
  389.           LMC    7074B
  390.           NJN    BL5P
  391.           RJM    HIT+1
  392.           LDC    HR4
  393.           STD    HITLOC
  394.           LJM    BL5V
  395.  BL5P     LDM    BALL+1
  396.           LMC    7073B
  397.           NJN    BL5Q
  398.           RJM    HIT+1
  399.           LDC    HR5A        HIT TO RIGHT FIELDER
  400.           STD    HITLOC
  401.           LJM    BL5V
  402.  BL5Q     LDM    BALL+1      HIT TO RIGHT OF RIGHT FIELDER
  403.           LMC    7072B
  404.           NJN    BL5R
  405.           RJM    HIT+1
  406.           LDC    HR6
  407.           STD    HITLOC
  408.           LJM    BL5V
  409.  BL5R     LDM    BALL+1
  410.           LMC    7071B
  411.           NJN    BL5S
  412.           RJM    HIT+1
  413.           LDC    HR7A        HIT TO FIRST BASEMAN
  414.           STD    HITLOC
  415.           LJM    BL5V
  416.  BL5S     LDM    BALL+1      HIT TO RIGHT OF FIRST BASEMAN
  417.           LMC    7070B
  418.           NJN    BL5T
  419.           RJM    HIT+1
  420.           LDC    HR8
  421.           STD    HITLOC
  422.           LJM    BL5V
  423.  BL5T     LDM    BALL+1      FIRST BASE LINE DRIVE
  424.           LMC    7067B
  425.           NJN    BL5U
  426.           RJM    HIT+1
  427.           LDC    HR9
  428.           STD    HITLOC
  429.           LJM    BL5V
  430.  BL5U     LDM    BALL+1
  431.           LMC    7066B
  432.           NJN    BL5V
  433.           RJM    HIT+1
  434.           LDC    HR10
  435.           STD    HITLOC
  436.  BL5V     AOD    SWCNTR
  437.           SBN    10B
  438.           NJN    BL5W
  439.           LDC    BL6
  440.           STD    BATLOC
  441.  BL5W     LJM    BL5
  442.  BL6      LJM    *
  443.           RJM    CLDSBT+1
  444.           RJM    COMBAT6+1
  445.  DB6      RJM    DISBAT+1
  446.           AOD    SWCNTR
  447.           SBN    12B
  448.           NJN    BL6
  449.           LDC    BL7
  450.           STD    BATLOC
  451.           UJN    BL6
  452.  BL7      LJM    *
  453.           RJM    CLDSBT+1
  454.           RJM    COMBAT7+1
  455.  DB7      RJM    DISBAT+1
  456.           AOD    SWCNTR
  457.           SBN    14B
  458.           NJN    BL7
  459.           LDC    BL8
  460.           STD    BATLOC
  461.           UJN    BL7
  462.  BL8      LJM    *
  463.           RJM    CLDSBT+1
  464.           RJM    COMBAT8+1
  465.  DB8      RJM    DISBAT+1
  466.           AOD    SWCNTR
  467.           SBN    16B
  468.           NJN    BL8
  469.           LDC    BL9
  470.           STD    BATLOC
  471.           UJN    BL8
  472.  BL9      LJM    *
  473.           RJM    CLDSBT+1
  474.           RJM    COMBAT9+1
  475.  DB9      RJM    DISBAT+1
  476.           AOD    SWCNTR
  477.           SBN    20B
  478.           NJN    BL9
  479.           LDN    0
  480.           STD    SWCNTR
  481.           LDC    BL1
  482.           STD    BATLOC
  483.           UJN    BL9
  484.           LJM    PLAY
  485.  KEYIN    LJM    *
  486.  KEY1     FNC    7020B,DISCH
  487.           ACN    DISCH
  488.           IAN    DISCH
  489.           DCN    DISCH
  490.           ZJN    KEY2        IF NO INPUT
  491.           LMC    0
  492.  KEYA     EQU    *-1
  493.           ZJN    KEYIN       IF SAME INPUT
  494.           LMM    KEYA        STORE NEW INPUT
  495.  KEY2     STM    KEYA
  496.           ZJN    KEYIN       EXIT IF NO DATA
  497.           SBN    1RD
  498.           NJN    TRYH        IF NOT *D*
  499.           RJM    DDS         DROP DISPLAY
  500.  DPP      MONITOR  DPPM      DROP PP
  501.           LJM    PPR         EXIT TO PP RESIDENT
  502.  
  503.  TRYH     SBN    1RH-1RD
  504.           NJN    TRYP        IF NOT *H*
  505.           RJM    DDS         DROP DISPLAY
  506.           RJM    RDS         REQUEST DISPLAY
  507.           RJM    MDC         MODIFY DISPLAY CHANNELS
  508.           LJM    KEYIN       EXIT
  509.  
  510.  TRYP     SBN    1RP-1RH
  511.           NJN    TRYR
  512.           LDD    STATUS
  513.           LPN    6           CHECK TO SEE IF BALL IS PITCHED OR HIT
  514.           ZJN    TRP1        IF NO PLAY
  515.           LJM    KEYIN       CHECK FOR MORE INPUT
  516.  
  517.  TRP1     LDN    2
  518.           RAD    STATUS      SET STATUS BIT 1
  519.           LDC    1200B
  520.           STM    PBA         LOWER PITCHERS ARM
  521.           RJM    RANGEN+1
  522.           LPN    1
  523.           LMM    MB          TOGGLE BALL INCREMENT
  524.           STM    MB
  525.           RJM    RANGEN+1
  526.           LPN    3
  527.           LMC    -0
  528.           RAM    BALL+1
  529.           LJM    KEYIN
  530.  TRYR     SBN    1RR-1RP
  531.           NJN    TRYS
  532.           RJM    CLSCR+1
  533.           LJM    BAT2        CONTINUE
  534.  
  535.  CLSCR    LJM    *
  536.           LDN    2
  537.           STD    CNTR
  538.  CLSCR1   LDN    0
  539.           STM    SCORE,CNTR  CLEAR SCOREBOARD
  540.           LDN    3
  541.           RAD    CNTR
  542.           SBN    76B
  543.           NJN    CLSCR1
  544.           UJN    CLSCR
  545.  TRYS     SBN    1RS-1RR
  546.           NJN    KEYEND
  547.           LDD    SWCNTR
  548.           NJN    KEYEND      NON-ZERO = BAT IN MOTION
  549.           LDD    STATUS
  550.           LPN    2
  551.           ZJN    TRYS1       NON-ZERO = BALL HAS BEEN PITCHED
  552.           LDD    STATUS
  553.           LPN    10B
  554.           NJN    KEYEND      NON-ZERO = BAT ALREADY SWUNG
  555.           LDN    11B
  556.           RAD    STATUS
  557.           UJN    KEYEND
  558.  TRYS1    LDN    1
  559.           RAD    STATUS      SET STATUS BIT 0
  560.  KEYEND   LJM    KEYIN
  561.  DISBAT   LJM    *           DISPLAY BAT
  562.           FNC    7010B,DISCH
  563.           LDC    DSBTEND-DSBT
  564.           ACN    DISCH
  565.           OAM    DSBT,DISCH
  566.           DCN    DISCH
  567.           UJN    DISBAT
  568.  CLDSBT   LJM    *           CLEAR BAT STORAGE AREA
  569.           LDN    0
  570.           STD    CNTR
  571.           LDC    DSBTEND-DSBT
  572.           STD    LMT
  573.  CL1      LDN    0
  574.           STM    DSBT,CNTR
  575.           AOD    CNTR
  576.           SBD    LMT
  577.           NJN    CL1
  578.           UJN    CLDSBT
  579.  DSBT     BSSZ   60B         BAT STORAGE AREA = 60 LOCATIONS
  580.  DSBTEND  EQU    *
  581.  
  582.  
  583.  
  584.  COMBAT1  LJM    *           COMPUTE AND STORE BAT POSITION 1
  585.           LDD    BATY
  586.           SBN    60B
  587.           STD    BATYI
  588.           RJM    CB19+1
  589.           UJN    COMBAT1
  590.  COMBAT9  LJM    *           COMPUTE AND STORE BAT POSITION 9
  591.           LDD    BATY
  592.           STD    BATYI
  593.           RJM    CB19+1
  594.           UJN    COMBAT9
  595.  CB19     LJM    *
  596.           LDN    0
  597.           STD    CNTR
  598.           LDN    32B
  599.           STD    LMT
  600.           LDD    BATX
  601.           STM    DSBT,CNTR
  602.           AOD    CNTR
  603.  CB19A    LDD    BATYI
  604.           STM    DSBT,CNTR
  605.           LDN    2
  606.           RAD    BATYI
  607.           AOD    CNTR
  608.           SBD    LMT
  609.           NJN    CB19A
  610.           UJN    CB19
  611.  COMBAT2  LJM    *           COMPUTE AND STORE BAT POSITION 2
  612.           RJM    CB2468A+1
  613.  CBAT21   RJM    CB2468B+1
  614.           ZJN    COMBAT2
  615.           AOD    BATXI
  616.           LDD    BATYI
  617.           SBN    3
  618.           STD    BATYI
  619.           UJN    CBAT21
  620.  COMBAT4  LJM    *           COMPUTE AND STORE BAT POSITION 4
  621.           RJM    CB2468A+1
  622.  CBAT41   RJM    CB2468B+1
  623.           ZJN    COMBAT4
  624.           LDN    3
  625.           RAD    BATXI
  626.           SOD    BATYI
  627.           UJN    CBAT41
  628.  COMBAT6  LJM    *           COMPUTE AND STORE BAT POSITION 6
  629.           RJM    CB2468A+1
  630.  CBAT61   RJM    CB2468B+1
  631.           ZJN    COMBAT6
  632.           LDN    3
  633.           RAD    BATXI
  634.           AOD    BATYI
  635.           UJN    CBAT61
  636.  COMBAT8  LJM    *           COMPUTE AND STORE BAT POSITION 8
  637.           RJM    CB2468A+1
  638.  CBAT81   RJM    CB2468B+1
  639.           ZJN    COMBAT8
  640.           AOD    BATXI
  641.           LDN    3
  642.           RAD    BATYI
  643.           UJN    CBAT81
  644.  CB2468A  LJM    *
  645.           LDN    0
  646.           STD    CNTR
  647.           LDN    40B
  648.           STD    LMT
  649.           LDD    BATX
  650.           STD    BATXI
  651.           LDD    BATY
  652.           STD    BATYI
  653.           UJN    CB2468A
  654.  CB2468B  LJM    *
  655.           LDD    BATXI
  656.           STM    DSBT,CNTR
  657.           AOD    CNTR
  658.           LDD    BATYI
  659.           STM    DSBT,CNTR
  660.           AOD    CNTR
  661.           SBD    LMT
  662.           UJN    CB2468B
  663.  COMBAT3  LJM    *           COMPUTE AND STORE BAT POSITION 3
  664.           RJM    CB37A+1
  665.  CBAT31   RJM    CB37B+1
  666.           ZJN    COMBAT3
  667.           LDN    2
  668.           RAD    BATXI
  669.           SOD    BATYI
  670.           SOD    BATYI
  671.           UJN    CBAT31
  672.  COMBAT7  LJM    *           COMPUTE AND STORE BAT POSITION 7
  673.           RJM    CB37A+1
  674.  CBAT71   RJM    CB37B+1
  675.           ZJN    COMBAT7
  676.           LDN    2
  677.           RAD    BATXI
  678.           LDN    2
  679.           RAD    BATYI
  680.           UJN    CBAT71
  681.  CB37A    LJM    *
  682.           LDN    0
  683.           STD    CNTR
  684.           LDN    44B
  685.           STD    LMT
  686.           LDD    BATX
  687.           STD    BATXI
  688.           LDD    BATY
  689.           STD    BATYI
  690.           UJN    CB37A
  691.  CB37B    LJM    *
  692.           LDD    BATXI
  693.           STM    DSBT,CNTR
  694.           AOD    CNTR
  695.           LDD    BATYI
  696.           STM    DSBT,CNTR
  697.           AOD    CNTR
  698.           SBD    LMT
  699.           UJN    CB37B
  700.  COMBAT5  LJM    *           COMPUTE AND STORE BAT POSITION 5
  701.           LDN    0
  702.           STD    CNTR
  703.           LDN    60B
  704.           STD    LMT
  705.           LDD    BATX
  706.           STD    BATXI
  707.  CBAT51   LDD    BATXI
  708.           STM    DSBT,CNTR
  709.           AOD    CNTR
  710.           LDD    BATY
  711.           STM    DSBT,CNTR
  712.           LDN    2
  713.           RAD    BATXI
  714.           AOD    CNTR
  715.           SBD    LMT
  716.           NJN    CBAT51
  717.           UJN    COMBAT5
  718.  
  719.  
  720.  
  721.  RANGEN   LJM    *           GENERATES RANDOM NUMBER
  722.           IAN    14B
  723.           STD    RANNO
  724.           SHN    -3
  725.           RAD    RANNO
  726.           SHN    -3
  727.           RAD    RANNO
  728.           SHN    -3
  729.           RAD    RANNO
  730.           UJN    RANGEN
  731.  OTD      LJM    *           OCTAL TO DECIMAL CONVERTER
  732.           STD    T1            RECEIVES TWO DIGIT OCTAL
  733.           LDN    0               NUMBER AS (A) = XY
  734.           STD    T2            RETURNS TWO DIGIT DECIMAL
  735.  OTD1     LDD    T1              NUMBER AS (A) = XXYY
  736.           SBN    10D           EXAMPLE ....
  737.           STD    T1              INPUT = 0035
  738.           MJN    OTD2            OUTPUT = 0211
  739.           AOD    T2            ANSWER ALSO REMAINS IN T1
  740.           UJN    OTD1
  741.  OTD2     ADN    10D
  742.           STD    T1
  743.           LDD    T2
  744.           SHN    6
  745.           RAD    T1
  746.           UJN    OTD
  747.  
  748.  
  749.  
  750.  HIT      LJM    *           TRANSFER BALL CONTROL
  751.           LCN    2
  752.           RAD    STATUS      STOP PITCHED BALL
  753.           LDN    4
  754.           RAD    STATUS      START HIT BALL
  755.           UJN    HIT
  756.  RB       LJM    *           GIVE BALL BACK TO PITCHER,STORE RBI
  757.           LDD    BALLRX
  758.           STM    BALL
  759.           LDD    BALLRY
  760.           STM    BALL+1
  761.           LCN    4
  762.           RAD    STATUS      CLEAR STATUS BIT 2
  763.           LDN    0
  764.           STD    BALLS       CLEAR BALLS
  765.           STD    STRIKES     CLEAR STRIKES
  766.           LDD    RUNSIN
  767.           ADN    1R0
  768.           SHN    6
  769.           STM    RBI         STORE RBI
  770.           AOD    HITSTAT     SET HITSTAT BIT 0
  771.           LDC    2500B
  772.           STM    PBA         RAISE PITCHERS ARM
  773.           UJN    RB
  774.  RBF      LJM    *           RETURN BALL AFTER FOUL
  775.           LDD    BALLRX
  776.           STM    BALL
  777.           LDD    BALLRY
  778.           STM    BALL+1
  779.           LCN    4
  780.           RAD    STATUS      CLEAR STATUS BIT 2
  781.           AOD    HITSTAT     SET HITSTAT BIT 0
  782.           LDC    2500B
  783.           STM    PBA         RAISE PITCHERS ARM
  784.           UJN    RBF
  785.  HL1      LJM    *           HIT TO LEFT OF CENTER FIELDER (SINGLE)
  786.           SOM    BALL
  787.           LDN    12B
  788.           RAM    BALL+1
  789.           LMC    7771B
  790.           NJN    HL1
  791.           RJM    SINGLE+1
  792.           RJM    RB+1
  793.           UJN    HL1
  794.  HL2      LJM    *           HIT TO LEFT OF CENTER FIELDER (SINGLE)
  795.           SOM    BALL
  796.           LDN    5
  797.           RAM    BALL+1
  798.           LMC    7777B
  799.           NJN    HL2
  800.           RJM    SINGLE+1
  801.           RJM    RB+1
  802.           UJN    HL2
  803.  HL3A     LJM    *           HIT TO SHORTSTOP
  804.           SOM    BALL
  805.           LDN    4
  806.           RAM    BALL+1
  807.           LMC    7477B
  808.           NJN    HL3A
  809.           RJM    RB+1
  810.           AOD    OUTS
  811.           LDN    2
  812.           RAD    HITSTAT
  813.           UJN    HL3A
  814.  HL4      LJM    *           HIT TO RIGHT OF LEFT FIELDER (DOUBLE)
  815.           LCN    3
  816.           RAM    BALL
  817.           LDN    10B
  818.           RAM    BALL+1
  819.           LMC    7764B
  820.           NJN    HL4
  821.           RJM    DOUBLE+1
  822.           RJM    RB+1
  823.           UJN    HL4
  824.  HL5A     LJM    *           HIT TO LEFT FIELDER
  825.           LCN    2
  826.           RAM    BALL
  827.           LDN    4
  828.           RAM    BALL+1
  829.           LMC    7601B
  830.           NJN    HL5A
  831.           RJM    RB+1
  832.           AOD    OUTS
  833.           LDN    2
  834.           RAD    HITSTAT
  835.           UJN    HL5A
  836.  HL6      LJM    *           HIT TO LEFT OF LEFT FIELDER (HOME RUN)
  837.           LDN    5
  838.           RAM    BALL+1
  839.           LCN    3
  840.           RAM    BALL
  841.           LMC    6000B
  842.           NJN    HL6
  843.           RJM    HOMERUN+1
  844.           RJM    RB+1
  845.           UJN    HL6
  846.  HL7A     LJM    *           HIT TO THIRD BASEMAN
  847.           LCN    2
  848.           RAM    BALL
  849.           LDN    3
  850.           RAM    BALL+1
  851.           LMC    7401B
  852.           NJN    HL7A
  853.           RJM    RB+1
  854.           AOD    OUTS
  855.           LDN    2
  856.           RAD    HITSTAT
  857.           UJN    HL7A
  858.  HL8      LJM    *           HIT TO LEFT OF THIRD BASEMAN (SINGLE)
  859.           LDN    4
  860.           RAM    BALL+1
  861.           LCN    3
  862.           RAM    BALL
  863.           LMC    6000B
  864.           NJN    HL8
  865.           RJM    SINGLE+1
  866.           RJM    RB+1
  867.           UJN    HL8
  868.  HL9      LJM    *           THIRD BASE LINE DRIVE (DOUBLE)
  869.           LDN    7
  870.           RAM    BALL+1
  871.           LCN    6
  872.           RAM    BALL
  873.           LMC    6003B
  874.           NJN    HL9
  875.           RJM    DOUBLE+1
  876.           RJM    RB+1
  877.           UJN    HL9
  878.  HL10     LJM    *           FOUL BALL TO LEFT
  879.           LDN    3
  880.           RAM    BALL+1
  881.           LCN    5
  882.           RAM    BALL
  883.           LMC    6000B
  884.           NJN    HL10
  885.           RJM    FOULBAL+1
  886.           RJM    RBF+1
  887.           UJN    HL10
  888.  HC       LJM    *           HIT TO CENTER FIELDER
  889.           LDN    4
  890.           RAM    BALL+1
  891.           LMC    7700B
  892.           NJN    HC
  893.           RJM    RB+1
  894.           AOD    OUTS
  895.           LDN    2
  896.           RAD    HITSTAT
  897.           UJN    HC
  898.  HR1      LJM    *           HIT TO RIGHT OF CENTER FIELDER (SINGLE)
  899.           AOM    BALL
  900.           LDN    12B
  901.           RAM    BALL+1
  902.           LMC    7767B
  903.           NJN    HR1
  904.           RJM    SINGLE+1
  905.           RJM    RB+1
  906.           UJN    HR1
  907.  HR2      LJM    *           HIT TO RIGHT OF CENTER FIELDER (SINGLE)
  908.           AOM    BALL
  909.           LDN    5
  910.           RAM    BALL+1
  911.           LMC    7773B
  912.           NJN    HR2
  913.           RJM    SINGLE+1
  914.           RJM    RB+1
  915.           UJN    HR2
  916.  HR3A     LJM    *           HIT TO SECOND BASEMAN
  917.           AOM    BALL
  918.           LDN    4
  919.           RAM    BALL+1
  920.           LMC    7501B
  921.           NJN    HR3A
  922.           RJM    RB+1
  923.           AOD    OUTS
  924.           LDN    2
  925.           RAD    HITSTAT
  926.           UJN    HR3A
  927.  HR4      LJM    *           HIT TO LEFT OF RIGHT FIELDER (DOUBLE)
  928.           LDN    3
  929.           RAM    BALL
  930.           LDN    10B
  931.           RAM    BALL+1
  932.           LMC    7774B
  933.           NJN    HR4
  934.           RJM    DOUBLE+1
  935.           RJM    RB+1
  936.           UJN    HR4
  937.  HR5A     LJM    *           HIT TO RIGHT FIELDER
  938.           LDN    2
  939.           RAM    BALL
  940.           LDN    4
  941.           RAM    BALL+1
  942.           LMC    7577B
  943.           NJN    HR5A
  944.           RJM    RB+1
  945.           AOD    OUTS
  946.           LDN    2
  947.           RAD    HITSTAT
  948.           UJN    HR5A
  949.  HR6      LJM    *           HIT TO RIGHT OF RIGHT FIELDER (SINGLE)
  950.           LDN    5
  951.           RAM    BALL+1
  952.           LDN    3
  953.           RAM    BALL
  954.           LMC    6776B
  955.           NJN    HR6
  956.           RJM    SINGLE+1
  957.           RJM    RB+1
  958.           UJN    HR6
  959.  HR7A     LJM    *           HIT TO FIRST BASEMAN
  960.           LDN    2
  961.           RAM    BALL
  962.           LDN    3
  963.           RAM    BALL+1
  964.           LMC    7377B
  965.           NJN    HR7A
  966.           RJM    RB+1
  967.           AOD    OUTS
  968.           LDN    2
  969.           RAD    HITSTAT
  970.           UJN    HR7A
  971.  HR8      LJM    *           HIT TO RIGHT OF FIRST BASEMAN (SINGLE)
  972.           LDN    4
  973.           RAM    BALL+1
  974.           LDN    3
  975.           RAM    BALL
  976.           LMC    6776B
  977.           NJN    HR8
  978.           RJM    SINGLE+1
  979.           RJM    RB+1
  980.           UJN    HR8
  981.  HR9      LJM    *           FIRST BASE LINE DRIVE (TRIPLE)
  982.           LDN    7
  983.           RAM    BALL+1
  984.           LDN    6
  985.           RAM    BALL
  986.           LMC    6773B
  987.           NJN    HR9
  988.           RJM    TRIPLE+1
  989.           RJM    RB+1
  990.           UJN    HR9
  991.  HR10     LJM    *           FOUL BALL TO RIGHT
  992.           LDN    3
  993.           RAM    BALL+1
  994.           LDN    4
  995.           RAM    BALL
  996.           LMC    6773B
  997.           NJN    HR10
  998.           RJM    FOULBAL+1
  999.           RJM    RBF+1
  1000.           UJN    HR10
  1001.  SINGLE   LJM    *
  1002.           LDC    DISSING
  1003.           STD    HDISLOC
  1004.           LDN    0
  1005.           STD    RUNSIN
  1006.           LDD    MENON
  1007.           SHN    1
  1008.           ADN    1
  1009.           STD    MENON
  1010.           LPN    10B
  1011.           ZJN    SINGLE
  1012.           AOD    RUNS
  1013.           AOD    RUNSIN
  1014.           UJN    SINGLE
  1015.  DOUBLE   LJM    *
  1016.           LDC    DISDOUB
  1017.           STD    HDISLOC
  1018.           LDN    0
  1019.           STD    RUNSIN
  1020.           LDD    MENON
  1021.           SHN    1
  1022.           ADN    1
  1023.           STD    MENON
  1024.           LPN    10B
  1025.           ZJN    DOUB1
  1026.           AOD    RUNS
  1027.           AOD    RUNSIN
  1028.  DOUB1    LDD    MENON
  1029.           SHN    1
  1030.           STD    MENON
  1031.           LPN    10B
  1032.           ZJN    DOUBLE
  1033.           AOD    RUNS
  1034.           AOD    RUNSIN
  1035.           UJN    DOUBLE
  1036.  TRIPLE   LJM    *
  1037.           LDC    DISTRIP
  1038.           STD    HDISLOC
  1039.           LDN    0
  1040.           STD    RUNSIN
  1041.           LDD    MENON
  1042.           SHN    1
  1043.           ADN    1
  1044.           STD    MENON
  1045.           LPN    10B
  1046.           ZJN    TRIP1
  1047.           AOD    RUNS
  1048.           AOD    RUNSIN
  1049.  TRIP1    LDD    MENON
  1050.           SHN    1
  1051.           STD    MENON
  1052.           LPN    10B
  1053.           ZJN    TRIP2
  1054.           AOD    RUNS
  1055.           AOD    RUNSIN
  1056.  TRIP2    LDD    MENON
  1057.           SHN    1
  1058.           STD    MENON
  1059.           LPN    10B
  1060.           ZJN    TRIPLE
  1061.           AOD    RUNS
  1062.           AOD    RUNSIN
  1063.           UJN    TRIPLE
  1064.  HOMERUN  LJM    *
  1065.           LDN    0
  1066.           STD    RUNSIN
  1067.           LDD    MENON
  1068.           SHN    1
  1069.           STD    MENON
  1070.           LPN    10B
  1071.           ZJN    HRN1
  1072.           AOD    RUNS
  1073.           AOD    RUNSIN
  1074.  HRN1     LDD    MENON
  1075.           SHN    1
  1076.           STD    MENON
  1077.           LPN    10B
  1078.           ZJN    HRN2
  1079.           AOD    RUNS
  1080.           AOD    RUNSIN
  1081.  HRN2     LDD    MENON
  1082.           SHN    1
  1083.           STD    MENON
  1084.           LPN    10B
  1085.           ZJN    HRN3
  1086.           AOD    RUNS
  1087.           AOD    RUNSIN
  1088.  HRN3     AOD    RUNS
  1089.           AOD    RUNSIN
  1090.           LDC    DISHMRN
  1091.           STD    HDISLOC
  1092.           UJN    HOMERUN
  1093.  FOULBAL  LJM    *
  1094.           LDN    20B
  1095.           RAD    HITSTAT     SET HITSTAT BIT 3
  1096.           LDD    STRIKES
  1097.           SBN    2
  1098.           ZJN    FOULBAL
  1099.           AOD    STRIKES
  1100.           UJN    FOULBAL
  1101.  
  1102.  
  1103.  
  1104.  UPDATE   LJM    *           RIGHT SCREEN UPDATE ROUTINE
  1105.           LDD    STRIKES
  1106.           SBN    3
  1107.           NJN    UD1         ZERO = 3 STRIKES
  1108.           LDN    0
  1109.           STD    BALLS       CLEAR BALLS
  1110.           STD    STRIKES     CLEAR STRIKES
  1111.           AOD    OUTS        UPDATE OUTS
  1112.  UD1      LDD    OUTS
  1113.           SBN    3
  1114.           ZJN    UD1D        ZERO = 3 OUTS
  1115.           LJM    UD2
  1116.  UD1D     LDN    0
  1117.           STD    OUTS        CLEAR OUTS
  1118.           STD    MENON       CLEAR MENON
  1119.           AOD    INNINGS
  1120.           LMN    22B
  1121.           ZJN    UD1G
  1122.           LJM    UD1C
  1123.  UD1G     RJM    CLSCR+1     CLEAR SCOREBOARD
  1124.           LDD    RUNSTV
  1125.           RJM    OTD+1
  1126.           LPN    77B
  1127.           ADN    1R0
  1128.           STM    OVRFLW
  1129.           LDD    T1
  1130.           LPC    7700B
  1131.           ZJN    UD1E
  1132.           ADC    3300B
  1133.           RAM    OVRFLW
  1134.  UD1E     LDD    RUNS
  1135.           RAD    RUNSTH
  1136.           RJM    OTD+1
  1137.           LPN    77B
  1138.           ADN    1R0
  1139.           STM    OVRFLW+3
  1140.           LDD    T1
  1141.           LPC    7700B
  1142.           ZJN    UD1F
  1143.           ADC    3300B
  1144.           RAM    OVRFLW+3
  1145.  UD1F     LDN    0
  1146.           STD    INNINGS
  1147.           STD    RUNS
  1148.           LJM    UPDATE
  1149.  UD1C     LDD    INNINGS
  1150.           ADD    INNINGS
  1151.           ADD    INNINGS
  1152.           SBN    1
  1153.           ADC    SCORE
  1154.           STD    INLOC
  1155.           LDD    TEAMUP
  1156.           NJN    UD1A
  1157.           LDD    RUNS
  1158.           RAD    RUNSTV
  1159.           UJN    UD1B
  1160.  UD1A     LDD    RUNS
  1161.           RAD    RUNSTH
  1162.  UD1B     LDD    RUNS
  1163.           RJM    OTD+1
  1164.           LPN    77B
  1165.           ADN    1R0
  1166.           STI    INLOC
  1167.           LDD    T1
  1168.           LPC    7700B
  1169.           ZJN    CT
  1170.           LDM    OVRFLW,TEAMUP
  1171.           ZJN    UD3
  1172.           LDD    T1
  1173.           LPC    7700B
  1174.           RAM    OVRFLW,TEAMUP
  1175.           UJN    CT
  1176.  UD3      LDD    T1
  1177.           LPC    7700B
  1178.           ADC    2R00
  1179.           STM    OVRFLW,TEAMUP
  1180.  CT       LDD    TEAMUP
  1181.           LMN    3
  1182.           STD    TEAMUP
  1183.           LDN    0
  1184.           STD    RUNS        CLEAR RUNS
  1185.           LJM    UPDATE
  1186.  UD2      LDD    BALLS
  1187.           SBN    4
  1188.           ZJN    UD2A        ZERO = 4 BALLS
  1189.           LJM    UPDATE
  1190.  UD2A     LDN    0
  1191.           STD    BALLS       CLEAR BALLS
  1192.           STD    STRIKES     CLEAR STRIKES
  1193.           STD    RUNSIN
  1194.           LDN    10B
  1195.           RAD    STATUS      SET STATUS BIT 3
  1196.           LDD    MENON
  1197.           LPN    1
  1198.           NJN    W1          NON-ZERO = MAN ON FIRST
  1199.           AOD    MENON
  1200.           UJN    W4
  1201.  W1       LDD    MENON
  1202.           LPN    2
  1203.           NJN    W2          NON-ZERO = MAN ON SECOND
  1204.           LDN    2
  1205.           RAD    MENON
  1206.           UJN    W4
  1207.  W2       LDD    MENON
  1208.           LPN    4
  1209.           NJN    W3          NON-ZERO = MAN ON THIRD
  1210.           LDN    4
  1211.           RAD    MENON
  1212.           UJN    W4
  1213.  W3       AOD    RUNS
  1214.           AOD    RUNSIN
  1215.  W4       LDD    RUNSIN
  1216.           ADN    1R0
  1217.           SHN    6
  1218.           STM    RBI         STORE RBI
  1219.           LDN    4
  1220.           RAD    HITSTAT
  1221.  UDEND    LJM    UPDATE
  1222.  
  1223.  
  1224.  
  1225.  DISFLD   LJM    *
  1226.           RJM    DISBASE+1
  1227.           RJM    COMBL1+1
  1228.           RJM    DISBL+1
  1229.           RJM    COMBL2+1
  1230.           RJM    DISBL+1
  1231.           RJM    DISPL+1
  1232.           RJM    DISMEN+1
  1233.           RJM    DISBALL+1
  1234.           UJN    DISFLD
  1235.  
  1236.  
  1237.  
  1238.  DISRS    LJM    *
  1239.           RJM    DISCHR+1
  1240.           RJM    DSVRT+1
  1241.           RJM    DSHOR+1
  1242.           UJN    DISRS
  1243.  DSHOR    LJM    *
  1244.           LDN    0
  1245.           STD    CNTR
  1246.           LDC    6104B
  1247.           STD    BATXI
  1248.           LDC    7400B
  1249.           STD    BATYI
  1250.           RJM    CSB1+1
  1251.           RJM    DISHOR+1
  1252.           LDN    0
  1253.           STD    CNTR
  1254.           LDC    6104B
  1255.           STD    BATXI
  1256.           LDC    7430B
  1257.           STD    BATYI
  1258.           RJM    CSB1+1
  1259.           RJM    DISHOR+1
  1260.           LDN    0
  1261.           STD    CNTR
  1262.           LDC    6104B
  1263.           STD    BATXI
  1264.           LDC    7460B
  1265.           STD    BATYI
  1266.           RJM    CSB1+1
  1267.           RJM    DISHOR+1
  1268.           LJM    DSHOR
  1269.  CSB1     LJM    *
  1270.  CSB2     LDD    BATXI
  1271.           STM    SCB2,CNTR
  1272.           AOD    CNTR
  1273.           LDD    BATYI
  1274.           STM    SCB2,CNTR
  1275.           AOD    CNTR
  1276.           LDN    2
  1277.           RAD    BATXI
  1278.           LMC    6676B
  1279.           NJN    CSB2
  1280.           UJN    CSB1
  1281.  DISHOR   LJM    *           DISPLAY SCOREBOARD
  1282.           FNC    7110B,DISCH
  1283.           LDC    SCB2END-SCB2
  1284.           ACN    DISCH
  1285.           OAM    SCB2,DISCH
  1286.           DCN    DISCH
  1287.           UJN    DISHOR
  1288.  SCB1     DATA   6104B
  1289.           DATA   7402B
  1290.           DATA   7404B
  1291.           DATA   7406B
  1292.           DATA   7410B
  1293.           DATA   7412B
  1294.           DATA   7414B
  1295.           DATA   7416B
  1296.           DATA   7420B
  1297.           DATA   7422B
  1298.           DATA   7424B
  1299.           DATA   7426B
  1300.           DATA   7432B
  1301.           DATA   7434B
  1302.           DATA   7436B
  1303.           DATA   7440B
  1304.           DATA   7442B
  1305.           DATA   7444B
  1306.           DATA   7446B
  1307.           DATA   7450B
  1308.           DATA   7452B
  1309.           DATA   7454B
  1310.           DATA   7456B
  1311.  SCB1END  EQU    *
  1312.  DSVRT    LJM    *
  1313.           LDC    6104B
  1314.           STM    SCB1
  1315.           RJM    DISSCB1+1
  1316.           LDC    6344B
  1317.           STM    SCB1
  1318.  DS1      RJM    DISSCB1+1
  1319.           LDN    30B
  1320.           RAM    SCB1
  1321.           LMC    6724B
  1322.           NJN    DS1
  1323.           UJN    DSVRT
  1324.  DISSCB1  LJM    *           DISPLAY SCOREBOARD VERTICAL LINES
  1325.           FNC    7110B,DISCH
  1326.           LDN    SCB1END-SCB1
  1327.           ACN    DISCH
  1328.           OAM    SCB1,DISCH
  1329.           DCN    DISCH
  1330.           UJN    DISSCB1
  1331.  SCB2     BSSZ   572B        SCOREBOARD HORIZ STORAGE AREA = 572 LOCATIO
  1332.  SCB2END  EQU    *
  1333.  DISCHR   LJM    *
  1334.           FNC    7101B,DISCH
  1335.           LDC    RSEND-RS
  1336.           ACN    DISCH
  1337.           OAM    RS,DISCH
  1338.           DCN    DISCH
  1339.           UJN    DISCHR
  1340.  RS       EQU    *
  1341.           DATA   6320B
  1342.           DATA   7340B
  1343.           DATA   H*STRIKES*
  1344.           DATA   6360B
  1345.           DATA   7320B
  1346.  STRIK    DATA   1R0
  1347.           DATA   6144B
  1348.           DATA   7340B
  1349.           DATA   H*BALLS*
  1350.           DATA   6164B
  1351.           DATA   7320B
  1352.  BAL      DATA   1R0
  1353.           DATA   6534B
  1354.           DATA   7340B
  1355.           DATA   H*OUTS*
  1356.           DATA   6544B
  1357.           DATA   7320B
  1358.  OUT      DATA   1R0
  1359.           DATA   6200B
  1360.           DATA   7240B
  1361.           DATA   H*RUNS THIS INNING*
  1362.           DATA   6360B
  1363.           DATA   7220B
  1364.  RTI      DATA   1R0
  1365.           DATA   6100B
  1366.           DATA   7600B
  1367.           DATA   H*6000 SERIES BASEBALL GAME*
  1368.           DATA   6124B
  1369.           DATA   7440B
  1370.           DATA   H*VISITORS*
  1371.           DATA   6164B
  1372.           DATA   7410B
  1373.           DATA   H*HOME*
  1374.           DATA   6354B
  1375.           DATA   7470B
  1376.           DATA   H*1*
  1377.           DATA   6404B
  1378.           DATA   H*2*
  1379.           DATA   6434B
  1380.           DATA   H*3*
  1381.           DATA   6464B
  1382.           DATA   H*4*
  1383.           DATA   6514B
  1384.           DATA   H*5*
  1385.           DATA   6544B
  1386.           DATA   H*6*
  1387.           DATA   6574B
  1388.           DATA   H*7*
  1389.           DATA   6624B
  1390.           DATA   H*8*
  1391.           DATA   6654B
  1392.           DATA   H*9*
  1393.  SCORE    DATA   6334B
  1394.           DATA   7440B
  1395.           DATA   0
  1396.           DATA   6334B
  1397.           DATA   7410B
  1398.           DATA   0
  1399.           DATA   6364B
  1400.           DATA   7440B
  1401.           DATA   0
  1402.           DATA   6364B
  1403.           DATA   7410B
  1404.           DATA   0
  1405.           DATA   6414B
  1406.           DATA   7440B
  1407.           DATA   0
  1408.           DATA   6414B
  1409.           DATA   7410B
  1410.           DATA   0
  1411.           DATA   6444B
  1412.           DATA   7440B
  1413.           DATA   0
  1414.           DATA   6444B
  1415.           DATA   7410B
  1416.           DATA   0
  1417.           DATA   6474B
  1418.           DATA   7440B
  1419.           DATA   0
  1420.           DATA   6474B
  1421.           DATA   7410B
  1422.           DATA   0
  1423.           DATA   6524B
  1424.           DATA   7440B
  1425.           DATA   0
  1426.           DATA   6524B
  1427.           DATA   7410B
  1428.           DATA   0
  1429.           DATA   6554B
  1430.           DATA   7440B
  1431.           DATA   0
  1432.           DATA   6554B
  1433.           DATA   7410B
  1434.           DATA   0
  1435.           DATA   6604B
  1436.           DATA   7440B
  1437.           DATA   0
  1438.           DATA   6604B
  1439.           DATA   7410B
  1440.           DATA   0
  1441.           DATA   6634B
  1442.           DATA   7440B
  1443.           DATA   0
  1444.           DATA   6634B
  1445.           DATA   7410B
  1446.           DATA   0
  1447.           DATA   6704B
  1448.           DATA   7440B
  1449.  OVRFLW   DATA   0
  1450.           DATA   6704B
  1451.           DATA   7410B
  1452.           DATA   0
  1453.  RSEND    EQU    *
  1454.  
  1455.  
  1456.  
  1457.  COMBL1   LJM    *           COMPUTE AND STORE LEFT BASE LINES
  1458.           RJM    CBL12A+1
  1459.           LDD    BLX
  1460.           STD    BLXI
  1461.           LDD    BLY
  1462.           STD    BLYIU
  1463.           SBN    24B
  1464.           STD    BLYIL
  1465.  CDBL1    RJM    CBL12B+1
  1466.           ZJN    COMBL1
  1467.           LDN    2
  1468.           RAD    BLXI
  1469.           LDN    2
  1470.           RAD    BLYIU
  1471.           LCN    2
  1472.           RAD    BLYIL
  1473.           UJN    CDBL1
  1474.  COMBL2   LJM    *           COMPUTE AND STORE RIGHT BASE LINES
  1475.           RJM    CBL12A+1
  1476.           LDN    24B
  1477.           RAD    BLXI
  1478.  CDBL2    RJM    CBL12B+1
  1479.           ZJN    COMBL2
  1480.           LDN    2
  1481.           RAD    BLXI
  1482.           LCN    2
  1483.           RAD    BLYIU
  1484.           LDN    2
  1485.           RAD    BLYIL
  1486.           UJN    CDBL2
  1487.  CBL12A   LJM    *
  1488.           LDN    0
  1489.           STD    CNTR
  1490.           LDC    245B
  1491.           STD    LMT
  1492.           UJN    CBL12A
  1493.  CBL12B   LJM    *
  1494.           LDD    BLXI
  1495.           STM    DSBL,CNTR
  1496.           AOD    CNTR
  1497.           LDD    BLYIU
  1498.           STM    DSBL,CNTR
  1499.           AOD    CNTR
  1500.           LDD    BLYIL
  1501.           STM    DSBL,CNTR
  1502.           AOD    CNTR
  1503.           SBD    LMT
  1504.           UJN    CBL12B
  1505.  
  1506.  
  1507.  
  1508.  DISDOUB  LJM    *
  1509.           FNC    7001B,DISCH
  1510.           LDN    DDBLEND-DDBL
  1511.           ACN    DISCH
  1512.           OAM    DDBL,DISCH
  1513.           DCN    DISCH
  1514.           UJN    DISDOUB
  1515.  DDBL     DATA   6324B
  1516.           DATA   7340B
  1517.           DATA   H*DOUBLE*
  1518.  DDBLEND  EQU    *
  1519.  DISSING  LJM    *
  1520.           FNC    7001B,DISCH
  1521.           LDN    DSNGEND-DSNG
  1522.           ACN    DISCH
  1523.           OAM    DSNG,DISCH
  1524.           DCN    DISCH
  1525.           UJN    DISSING
  1526.  DSNG     DATA   6324B
  1527.           DATA   7340B
  1528.           DATA   H*SINGLE*
  1529.  DSNGEND  EQU    *
  1530.  DISTRIP  LJM    *
  1531.           FNC    7001B,DISCH
  1532.           LDN    DTRPEND-DTRP
  1533.           ACN    DISCH
  1534.           OAM    DTRP,DISCH
  1535.           DCN    DISCH
  1536.           UJN    DISTRIP
  1537.  DTRP     DATA   6324B
  1538.           DATA   7340B
  1539.           DATA   H*TRIPLE*
  1540.  DTRPEND  EQU    *
  1541.  DISHMRN  LJM    *
  1542.           FNC    7001B,DISCH
  1543.           LDN    DHMREND-DHMR
  1544.           ACN    DISCH
  1545.           OAM    DHMR,DISCH
  1546.           DCN    DISCH
  1547.           UJN    DISHMRN
  1548.  DHMR     DATA   6304B
  1549.           DATA   7340B
  1550.           DATA   H*HOME RUN*
  1551.  DHMREND  EQU    *
  1552.  DISRBI   LJM    *
  1553.           FNC    7001B,DISCH
  1554.           LDN    DRBIEND-DRBI
  1555.           ACN    DISCH
  1556.           OAM    DRBI,DISCH
  1557.           DCN    DISCH
  1558.           UJN    DISRBI
  1559.  DRBI     DATA   6314B
  1560.           DATA   7320B
  1561.           DATA   H*RBI =*
  1562.  RBI      DATA   0
  1563.  DRBIEND  EQU    *
  1564.  DISFOUL  LJM    *
  1565.           FNC    7001B,DISCH
  1566.           LDN    FOULEND-FOUL
  1567.           ACN    DISCH
  1568.           OAM    FOUL,DISCH
  1569.           DCN    DISCH
  1570.           UJN    DISFOUL
  1571.  FOUL     DATA   6344B
  1572.           DATA   7340B
  1573.           DATA   H*FOUL*
  1574.           DATA   6344B
  1575.           DATA   7320B
  1576.           DATA   H*BALL*
  1577.  FOULEND  EQU    *
  1578.  DISOUT   LJM    *
  1579.           FNC    7001B,DISCH
  1580.           LDN    OUTDEND-OUTD
  1581.           ACN    DISCH
  1582.           OAM    OUTD,DISCH
  1583.           DCN    DISCH
  1584.           UJN    DISOUT
  1585.  OUTD     DATA   6354B
  1586.           DATA   7340B
  1587.           DATA   H*OUT*
  1588.  OUTDEND  EQU    *
  1589.  DISWLK   LJM    *
  1590.           FNC    7001B,DISCH
  1591.           LDN    WLKEND-WLK
  1592.           ACN    DISCH
  1593.           OAM    WLK,DISCH
  1594.           DCN    DISCH
  1595.           UJN    DISWLK
  1596.  WLK      DATA   6344B
  1597.           DATA   7340B
  1598.           DATA   H*WALK*
  1599.  WLKEND   EQU    *
  1600.  
  1601.  
  1602.  
  1603.  DISMEN   LJM    *
  1604.           FNC    7001B,DISCH
  1605.           ACN    DISCH
  1606.           LDD    MENON
  1607.           LPN    1
  1608.           ZJN    MEN1
  1609.           LDN    FRBEND-FRB
  1610.           OAM    FRB,DISCH
  1611.  MEN1     LDD    MENON
  1612.           LPN    2
  1613.           ZJN    MEN2
  1614.           LDN    SRBEND-SRB
  1615.           OAM    SRB,DISCH
  1616.  MEN2     LDD    MENON
  1617.           LPN    4
  1618.           ZJN    MEN3
  1619.           LDN    TRBEND-TRB
  1620.           OAM    TRB,DISCH
  1621.  MEN3     DCN    DISCH
  1622.           FNC    7000B,DISCH
  1623.           ACN    DISCH
  1624.           LDD    MENON
  1625.           LPN    1
  1626.           ZJN    MEN4
  1627.           LDN    FRHEND-FRH
  1628.           OAM    FRH,DISCH
  1629.  MEN4     LDD    MENON
  1630.           LPN    2
  1631.           ZJN    MEN5
  1632.           LDN    SRHEND-SRH
  1633.           OAM    SRH,DISCH
  1634.  MEN5     LDD    MENON
  1635.           LPN    4
  1636.           ZJN    MEN6
  1637.           LDN    TRHEND-TRH
  1638.           OAM    TRH,DISCH
  1639.  MEN6     DCN    DISCH
  1640.           LJM    DISMEN
  1641.  FRB      DATA   6620B
  1642.           DATA   7270B
  1643.           DATA   1600B
  1644.           DATA   6620B
  1645.           DATA   7300B
  1646.           DATA   1100B
  1647.           DATA   6620B
  1648.           DATA   7310B
  1649.           DATA   2500B
  1650.  FRBEND   EQU    *
  1651.  SRB      DATA   6400B
  1652.           DATA   7500B
  1653.           DATA   1600B
  1654.           DATA   6400B
  1655.           DATA   7510B
  1656.           DATA   1100B
  1657.           DATA   6400B
  1658.           DATA   7520B
  1659.           DATA   2500B
  1660.  SRBEND   EQU    *
  1661.  TRB      DATA   6170B
  1662.           DATA   7270B
  1663.           DATA   1600B
  1664.           DATA   6170B
  1665.           DATA   7300B
  1666.           DATA   1100B
  1667.           DATA   6170B
  1668.           DATA   7310B
  1669.           DATA   2500B
  1670.  TRBEND   EQU    *
  1671.  FRH      DATA   6617B
  1672.           DATA   7312B
  1673.           DATA   1700B
  1674.  FRHEND   EQU    *
  1675.  SRH      DATA   6377B
  1676.           DATA   7522B
  1677.           DATA   1700B
  1678.  SRHEND   EQU    *
  1679.  TRH      DATA   6167B
  1680.           DATA   7312B
  1681.           DATA   1700B
  1682.  TRHEND   EQU    *
  1683.  DISPL    LJM    *           DISPLAY PLAYERS
  1684.           FNC    7001B,DISCH
  1685.           LDC    PLBEND-CB
  1686.           ACN    DISCH
  1687.           OAM    CB,DISCH
  1688.           DCN    DISCH
  1689.           DATA   0
  1690.           DATA   0
  1691.           FNC    7000B,DISCH
  1692.           LDC    PLHEND-CR
  1693.           ACN    DISCH
  1694.           OAM    CR,DISCH
  1695.           DCN    DISCH
  1696.           UJN    DISPL
  1697.  
  1698.  
  1699.  
  1700.  CB       DATA   6400B
  1701.           DATA   7020B
  1702.           DATA   1500B
  1703.           DATA   6400B
  1704.           DATA   7030B
  1705.           DATA   1100B
  1706.           DATA   6400B
  1707.           DATA   7040B
  1708.           DATA   2700B
  1709.  BB       DATA   6310B
  1710.           DATA   7060B
  1711.           DATA   0100B
  1712.           DATA   6310B
  1713.           DATA   7074B
  1714.           DATA   1100B
  1715.           DATA   6310B
  1716.           DATA   7104B
  1717.           DATA   1400B
  1718.  PB       DATA   6400B
  1719.           DATA   7236B
  1720.           DATA   0100B
  1721.           DATA   6400B
  1722.           DATA   7246B
  1723.           DATA   1100B
  1724.           DATA   6400B
  1725.           DATA   7256B
  1726.  PBA      DATA   2500B
  1727.  LFB      DATA   6140B
  1728.           DATA   7560B
  1729.           DATA   0100B
  1730.           DATA   6140B
  1731.           DATA   7570B
  1732.           DATA   1100B
  1733.           DATA   6140B
  1734.           DATA   7600B
  1735.           DATA   2500B
  1736.  RFB      DATA   6640B
  1737.           DATA   7560B
  1738.           DATA   0100B
  1739.           DATA   6640B
  1740.           DATA   7570B
  1741.           DATA   1100B
  1742.           DATA   6640B
  1743.           DATA   7600B
  1744.           DATA   2500B
  1745.  CFB      DATA   6400B
  1746.           DATA   7660B
  1747.           DATA   0100B
  1748.           DATA   6400B
  1749.           DATA   7670B
  1750.           DATA   1100B
  1751.           DATA   6400B
  1752.           DATA   7700B
  1753.           DATA   2500B
  1754.  TBB      DATA   6200B
  1755.           DATA   7360B
  1756.           DATA   0100B
  1757.           DATA   6200B
  1758.           DATA   7370B
  1759.           DATA   1100B
  1760.           DATA   6200B
  1761.           DATA   7400B
  1762.           DATA   2500B
  1763.  SSB      DATA   6300B
  1764.           DATA   7460B
  1765.           DATA   0100B
  1766.           DATA   6300B
  1767.           DATA   7470B
  1768.           DATA   1100B
  1769.           DATA   6300B
  1770.           DATA   7500B
  1771.           DATA   2500B
  1772.  SBB      DATA   6500B
  1773.           DATA   7460B
  1774.           DATA   0100B
  1775.           DATA   6500B
  1776.           DATA   7470B
  1777.           DATA   1100B
  1778.           DATA   6500B
  1779.           DATA   7500B
  1780.           DATA   2500B
  1781.  FBB      DATA   6600B
  1782.           DATA   7360B
  1783.           DATA   0100B
  1784.           DATA   6600B
  1785.           DATA   7370B
  1786.           DATA   1100B
  1787.           DATA   6600B
  1788.           DATA   7400B
  1789.           DATA   2500B
  1790.  PLBEND   EQU    *
  1791.  CR       DATA   6377B
  1792.           DATA   7044B
  1793.           DATA   1700B
  1794.  BH       DATA   6307B
  1795.           DATA   7107B
  1796.           DATA   1700B
  1797.  PH       DATA   6377B
  1798.           DATA   7260B
  1799.           DATA   1700B
  1800.  LFH      DATA   6137B
  1801.           DATA   7602B
  1802.           DATA   1700B
  1803.  CFH      DATA   6377B
  1804.           DATA   7702B
  1805.           DATA   1700B
  1806.  RFH      DATA   6637B
  1807.           DATA   7602B
  1808.           DATA   1700B
  1809.  TBH      DATA   6177B
  1810.           DATA   7402B
  1811.           DATA   1700B
  1812.  SSH      DATA   6277B
  1813.           DATA   7502B
  1814.           DATA   1700B
  1815.  SBH      DATA   6477B
  1816.           DATA   7502B
  1817.           DATA   1700B
  1818.           DATA   6577B
  1819.           DATA   7402B
  1820.           DATA   1700B
  1821.  PLHEND   EQU    *
  1822.  
  1823.  
  1824.  
  1825.  DISBALL  LJM    *
  1826.           FNC    7000B,DISCH
  1827.           LDN    BALLEND-BALL
  1828.           ACN    DISCH
  1829.           OAM    BALL,DISCH
  1830.           DCN    DISCH
  1831.           UJN    DISBALL
  1832.  BALL     DATA   6377B
  1833.           DATA   7270B
  1834.           DATA   1700B
  1835.  BALLEND  EQU    *
  1836.  
  1837. *         DISPLAY POW
  1838.  
  1839.  DISPOW   LJM    *
  1840.           FNC    7000B,DISCH
  1841.           LDC    POWEND-POW
  1842.           ACN    DISCH
  1843.           OAM    POW,DISCH
  1844.           DCN    DISCH
  1845.           UJN    DISPOW
  1846.  POW      DATA   6400B
  1847.           DATA   7120B
  1848.           DATA   H*POW*
  1849.  POWEND   EQU    *
  1850.  
  1851.  
  1852.  
  1853.  DISBL    LJM    *           DISPLAY BASE LINES
  1854.           FNC    7010B,DISCH
  1855.           LDC    DSBLEND-DSBL
  1856.           ACN    DISCH
  1857.           OAM    DSBL,DISCH
  1858.           DCN    DISCH
  1859.           UJN    DISBL
  1860.  DSBL     BSSZ   250B        BASE LINE STORAGE AREA = 250 LOCATIONS
  1861.  DSBLEND  EQU    *
  1862.  DISBASE  LJM    *           DISPLAY BASES
  1863.           FNC    7010B,DISCH
  1864.           LDC    BASEND-BASES
  1865.           ACN    DISCH
  1866.           OAM    BASES,DISCH
  1867.           DCN    DISCH
  1868.           UJN    DISBASE
  1869.  BASES    DATA   6370B       HOME PLATE AND SECOND BASE COORDINATES
  1870.           DATA   7100B
  1871.           DATA   7102B
  1872.           DATA   7104B
  1873.           DATA   7106B
  1874.           DATA   7110B
  1875.           DATA   7112B
  1876.           DATA   7114B
  1877.           DATA   7470B
  1878.           DATA   6372B
  1879.           DATA   7076B
  1880.           DATA   7114B
  1881.           DATA   7466B
  1882.           DATA   7472B
  1883.           DATA   6374B
  1884.           DATA   7074B
  1885.           DATA   7114B
  1886.           DATA   7464B
  1887.           DATA   7474B
  1888.           DATA   6376B
  1889.           DATA   7072B
  1890.           DATA   7114B
  1891.           DATA   7462B
  1892.           DATA   7476B
  1893.           DATA   6400B
  1894.           DATA   7070B
  1895.           DATA   7114B
  1896.           DATA   7460B
  1897.           DATA   7500B
  1898.           DATA   6402B
  1899.           DATA   7072B
  1900.           DATA   7114B
  1901.           DATA   7462B
  1902.           DATA   7476B
  1903.           DATA   6404B
  1904.           DATA   7074B
  1905.           DATA   7114B
  1906.           DATA   7464B
  1907.           DATA   7474B
  1908.           DATA   6406B
  1909.           DATA   7076B
  1910.           DATA   7114B
  1911.           DATA   7466B
  1912.           DATA   7472B
  1913.           DATA   6410B
  1914.           DATA   7100B
  1915.           DATA   7102B
  1916.           DATA   7104B
  1917.           DATA   7106B
  1918.           DATA   7110B
  1919.           DATA   7112B
  1920.           DATA   7114B
  1921.           DATA   7470B
  1922.  FB       DATA   6560B       FIRST BASE COORDINATES
  1923.           DATA   7300B
  1924.           DATA   6562B
  1925.           DATA   7302B
  1926.           DATA   7276B
  1927.           DATA   6564B
  1928.           DATA   7304B
  1929.           DATA   7274B
  1930.           DATA   6566B
  1931.           DATA   7306B
  1932.           DATA   7272B
  1933.           DATA   6570B
  1934.           DATA   7310B
  1935.           DATA   7270B
  1936.           DATA   6572B
  1937.           DATA   7306B
  1938.           DATA   7272B
  1939.           DATA   6574B
  1940.           DATA   7304B
  1941.           DATA   7274B
  1942.           DATA   6576B
  1943.           DATA   7302B
  1944.           DATA   7276B
  1945.           DATA   6600B
  1946.           DATA   7300B
  1947.  TB       DATA   6200B       THIRD BASE COORDINATES
  1948.           DATA   7300B
  1949.           DATA   6202B
  1950.           DATA   7302B
  1951.           DATA   7276B
  1952.           DATA   6204B
  1953.           DATA   7304B
  1954.           DATA   7274B
  1955.           DATA   6206B
  1956.           DATA   7306B
  1957.           DATA   7272B
  1958.           DATA   6210B
  1959.           DATA   7310B
  1960.           DATA   7270B
  1961.           DATA   6212B
  1962.           DATA   7272B
  1963.           DATA   7306B
  1964.           DATA   6214B
  1965.           DATA   7274B
  1966.           DATA   7304B
  1967.           DATA   6216B
  1968.           DATA   7276B
  1969.           DATA   7302B
  1970.           DATA   6220B
  1971.           DATA   7300B
  1972.  BASEND   EQU    *
  1973.  MDC      SPACE  4,10
  1974. **        MDC - MODIFY DISPLAY CHANNELS.
  1975. *
  1976. *         ENTRY  (DDSB) = CHANNEL NUMBER.
  1977. *
  1978. *         EXIT   NEW CHANNEL NUMBER SET.
  1979. *
  1980. *         USES   T1, T2.
  1981.  
  1982.  
  1983.  MDC      SUBR               ENTRY/EXIT
  1984.           LDM    /COMDDSP/DDSB
  1985.           STD    T2
  1986.           LMM    KEY1        CHECK CHANNEL
  1987.           LPN    77B
  1988.           ZJN    MDCX        IF ALREADY SET
  1989.           LDC    KEY1-1      SET FIRST ADDRESS
  1990.           STD    T1
  1991.  MDC1     AOD    T1          ADVANCE ADDRESS
  1992.           LMC    MDC2
  1993.           ZJN    MDCX        IF COMPLETE
  1994.           LDI    T1          CHECK WORD
  1995.           LPC    7077B
  1996.           LMC    7000B+CH
  1997.  MDC2     NJN    MDC1        IF NOT 7XCH
  1998.           LDI    T1          MODIFY CHANNEL
  1999.           SCN    77B
  2000.           ADD    T2
  2001.           STI    T1
  2002.           UJN    MDC1        CHECK NEXT ADDRESS
  2003.           SPACE  4,10
  2004. *         COMMON DECKS.
  2005.  
  2006.  
  2007.           BASE   M
  2008. *CALL     COMDDSP
  2009. *CALL     COMPCUA
  2010.           BASE   *
  2011.           SPACE  4
  2012.           END
cdc/nos2.source/opl871/bat.txt · Last modified: 2023/08/05 17:24 by Site Administrator