****************************************************************************** * 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