45809: Print Wages
| PrintWages |
45809 |
CALL Clear_Screen |
|
45812 |
LD DE,266 |
|
45815 |
LD HL,31771 |
|
45818 |
CALL PrintString |
|
45821 |
PUSH IY |
|
45823 |
LD DE,1299 |
|
45826 |
LD BC,1349 |
|
45829 |
LD HL,45805 |
|
45832 |
LD IY,48231 |
|
45836 |
LD IX,45805 |
|
45840 |
LD (IX+2),0 |
|
45844 |
LD (IX+3),0 |
| PrintWages_Loop |
45848 |
LD A,(IY-10) |
|
45851 |
LD (IX+1),A |
|
45854 |
ADD A,(IX+3) |
|
45857 |
DAA |
|
45858 |
LD (IX+3),A |
|
45861 |
LD A,(IY-30) |
|
45864 |
LD (IX+0),A |
|
45867 |
ADC A,(IX+2) |
|
45870 |
DAA |
|
45871 |
LD (IX+2),A |
|
45874 |
CALL PrintEarnings |
|
45877 |
INC D |
|
45878 |
INC D |
|
45879 |
INC D |
|
45880 |
INC IY |
|
45882 |
DJNZ PrintWages_Loop |
|
45884 |
POP IY |
|
45886 |
LD D,21 |
|
45888 |
LD HL,45807 |
|
45891 |
LD E,17 |
|
45893 |
CALL PrintEarnings |
|
45896 |
JP PressAnyKey |