******************************************************************************
*           CHANGE LOG
*  DATE     I CHANGE
*-----------+-----------------------------------------------------------------
* 28-DEC-85 I [1.269] CREATED CHANGE LOG
* 28-DEC-85 I [1.269] THE BCE AT X0L001 WILL NOT WORK WITH THE D-CHARACTER
*           I OF +, MUST USE ? INSTEAD (HOW DID THE SAMPLE WORK OR DID I MISS
*           I SOME SUBTLETY ABOUT THE ALU?)
******************************************************************************
SLCOM      JOB  SALARY TABLE COMPUTATION
           ORG  500
BEG        CS   332  
           CS  
           MLC  @SALARY TABLE@,241
           W       
           CS   299
           W
           W
           MLC  MONTH,216
           MLC  YEAR,232
           MLC  WEEK,247
           MLC  HOUR,263
           W    
           CS   299
           W
START      MLCWAMASK,AREA
           MCE  MTH,AREA
           SW   AREA-8                        
           MLC  AREA,216
           A    MTH,TOT1       
*          MLTPY TWLV,2,0,MTH,5,2,ACCUM,7,2
           S    X0Q001
           MLCWATWLV                        
           MLCWAMTH
           S    +0,X0N001
           B    X0L001
X0J001     BW   X0R001,X0N001
           MLC  X0M001-1,X0M001
           MLNS
           MLCWA
           BCE  X0J001,X0N001,0
X0K001     A    X0P001,X0M001-2+1
           S
X0L001     BCE  X0J001,X0N001,?
           B    X0K001
           DCW  @1@
X0P001     DCW  #5
X0N001     DCW  #2
X0M001     DCW  #00007
X0Q001     EQU  *
X0R001     EQU  *+1
           ZA   X0M001,ACCUM
*      END OF MULTIPLY MACRO
           MLCWAMASK,AREA
           MCE  ACCUM,AREA
           SW   AREA-8
           MLC  AREA,232
           A    ACCUM,TOT2
*      DIVID FIFTW,2,0,ACCUM,7,2,ACCUM,7,2
           ZA   FIFTW,X0Q002
           A    @0@,X0Q002
           S    X1L002
           ZA   ACCUM,X1L002-1
           ZA   X1L002
           A    @0@,X1L002
           S    X1K002
X0K002     MLCWAX0P002,X0R002-1
           ZA   X0Q002,X1J002-1
           ZA   X1J002,X0Q002
           MLCWA
           C    X0Q002,X1L002
           BH   X0K002
X0L002     C    X0Q002,X1L002
           BL   X0M002
           S    X0Q002,X1L002
           A
           B    X0L002
X0M002     BCE  X1N002,X0P002,1
           MLCWAX0P002-1,X0P002
           ZA   X0Q002-1,X0Q002
           B    X0L002
           DCW  #8
X0P002     DCW  @1@
X0Q002     DCW  #9
X1K002     DCW  #8
X1L002     DCW  #9
           DCW  #8
X0R002     DC   @0@
           DCW  #8
X1J002     DC   @0@
X1N002     EQU  *+1
           A    @5@,X1K002
           ZA   X1K002-1,ACCUM
*
*      END OF DIVIDE MACRO
*
           MLCWAMASK,AREA
           MCE  ACCUM,AREA
           SW   AREA-8
           MLC  AREA,247
           A    ACCUM,TOT3
*      DIVID FORTY,2,0,ACCUM,7,2,ACCUM,7,2
           ZA   FORTY,X0Q003
           A    @0@,X0Q003
           S    X1L003
           ZA   ACCUM,X1L003-1
           ZA   X1L003
           A    @0@,X1L003
           S    X1K003
X0K003     MLCWAX0P003,X0R003-1
           ZA   X0Q003,X1J003-1
           ZA   X1J003,X0Q003
           MLCWA
           C    X0Q003,X1L003
           BH   X0K003
X0L003     C    X0Q003,X1L003
           BL   X0M003
           S    X0Q003,X1L003
           A
           B    X0L003
X0M003     BCE  X1N003,X0P003,1
           MLCWAX0P003-1,X0P003
           ZA   X0Q003-1,X0Q003
           B    X0L003
           DCW  #8
X0P003     DCW  @1@
X0Q003     DCW  #9
X1K003     DCW  #8
X1L003     DCW  #9
           DCW  #8
X0R003     DC   @0@
           DCW  #8
X1J003     DC   @0@
X1N003     EQU  *+1
           A    @5@,X1K003
           ZA   X1K003-1,ACCUM
*
*      END OF DIVIDE MACRO
*
           MLCWAMASK,AREA
           MCE  ACCUM,AREA
           SW   AREA-8
           A    ACCUM,TOT4
           MLC  AREA,262
           W
           CS   299
           A    @25@,MTH-2
           C    MTH-2,@901@
           BH   START
           W
           W
           MLC  @FIRST LINE IS COMPUTED TOTALS@,229
           W
           CS   299
           MLC  @SECOND LINE IS CORRECT TOTALS@,229
           W
           CS   299
           W
           MLCWAMASK,AREA
           MCE  TOT1,AREA
           SW   AREA-8
           MLC  AREA,216
           MLCWAMASK,AREA
           MCE  TOT2,AREA
           SW   AREA-8
           MLC  AREA,232
           MLCWAMASK,AREA
           MCE  TOT3,AREA
           SW   AREA-8
           MLC  AREA,247
           MLCWAMASK,AREA
           MCE  TOT4,AREA
           SW   AREA-8
           MLC  AREA,262
           W
           CS   299
           MLC  @13650.00@,216
           MLC  @163800.00@,232
           MLC  @3150.00@,247
           MLC  @78.75@,262
           W
           CS   299
           W
           W
           MLC  @END OF TABLE@,241
           W
           H    *-3
           NOP
MONTH      DCW  @MONTHLY@
YEAR       DCW  @YEARLY@
WEEK       DCW  @WEEKLY@
HOUR       DCW  @HOURLY@
MASK       DCW  @     0.  @
MTH        DCW  @40000@
AREA       DCW  #9
ACCUM      DCW  #7
TOT1       DCW  00000000
TOT2       DCW  00000000
TOT3       DCW  00000000
TOT4       DCW  00000000
TWLV       DCW  @12@
FIFTW      DCW  @52@
FORTY      DCW  @40@
           END  BEG
