******************************************************************************
*           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?)
* 31-Jul-86 I [1.409] JUST LIKE SAMPLE, BUT HALTS AT BEGINNING OF EXECUTION
******************************************************************************
SLCOM  JOB   SALARY TABLE COMPUTATION
       ORG   500
BEG    H
       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  MLCWA MASK,AREA
       MCE   MTH,AREA
       SW    AREA-8
       MLC   AREA,216
       A     MTH,TOT1
*      MLTPLY TWLV,2,0,MTH,5,2,ACCUM,7,2
       S     X0Q001
       MLCWA TWLV
       MLCWA MTH
*      S     +0,X0N001
       S     @?@,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,?                 ?, NOT +  [LOCAL CHANGE]
       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
       MLCWA MASK,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 MLCWA X0P002,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
       MLCWA X0P002-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
*
       MLCWA MASK,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 MLCWA X0P003,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
       MLCWA X0P003-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
*
       MLCWA MASK,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
       MLCWA MASK,AREA
       MCE   TOT1,AREA
       SW    AREA-8
       MLC   AREA,216
       MLCWA MASK,AREA
       MCE   TOT2,AREA
       SW    AREA-8
       MLC   AREA,232
       MLCWA MASK,AREA
       MCE   TOT3,AREA
       SW    AREA-8
       MLC   AREA,247
       MLCWA MASK,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
