Routines |
Prev: 45807 | Up: Map | Next: 45899 |
PrintWages | 45809 | CALL Clear_Screen | Call Clear_Screen. | |
45812 | LD DE,266 | DE=266. | ||
45815 | LD HL,31771 | HL=Messaging_Wages. | ||
45818 | CALL PrintString | Call PrintString. | ||
45821 | PUSH IY | Stash IY on the stack. | ||
45823 | LD DE,1299 | DE=1299. | ||
There are 5 characters (B counter) and the attribute is 69 (C INK:
CYAN,
PAPER:
BLACK
(BRIGHT)
).
|
||||
45826 | LD BC,1349 | BC=1349. | ||
45829 | LD HL,45805 | HL=45805. | ||
45832 | LD IY,48231 | IY=FrameId_Wally. | ||
45836 | LD IX,45805 | IX=45805. | ||
45840 | LD (IX+2),0 | Write 0 to *IX+0. | ||
45844 | LD (IX+3),0 | Write 0 to *IX+1. | ||
PrintWages_Loop | 45848 | LD A,(IY-10) | A=*IY-10. | |
45851 | LD (IX+1),A | Write A to *IX+1. | ||
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 | Call PrintEarnings. | ||
45877 | INC D | Increment D by three. | ||
45878 | INC D | |||
45879 | INC D | |||
45880 | INC IY | Increment IY by one. | ||
45882 | DJNZ PrintWages_Loop | Decrease counter by one and loop back to PrintWages_Loop until counter is zero. | ||
45884 | POP IY | Restore IY from the stack. | ||
45886 | LD D,21 | D=21. | ||
45888 | LD HL,45807 | HL=45807. | ||
45891 | LD E,17 | E=17. | ||
45893 | CALL PrintEarnings | Call PrintEarnings. | ||
45896 | JP PressAnyKey | Jump to PressAnyKey. |
Prev: 45807 | Up: Map | Next: 45899 |