Routines

29643: Add to lines and print them


Used by routines at 24348, 29716 and 62910

A Number of lines to add/10

29643 D5 PUSH DE
29644 E5 PUSH HL
29645 5F LD E,A
29646 1600 LD D,0
29648 2AE77F LD HL,(32743) HL=number of lines/10
29651 0118FC LD BC,64536
29654 09 ADD HL,BC Does ERIC have less than 10000 lines?
29655 3003 JR NC,29660 Jump if so
29657 19 ADD HL,DE Add lines to ERIC's total
29658 1809 JR 29669
29660 19 ADD HL,DE Add lines to ERIC's total
29661 3006 JR NC,29669 Jump if ERIC still has less than 10000 lines
29663 E5 PUSH HL
29664 CD32F5 CALL 62770 Set MR WACKER on his way to expel ERIC
29667 A7 AND A Clear the carry flag
29668 E1 POP HL
29669 ED42 SBC HL,BC Now HL=new lines total/10
29671 22E77F LD (32743),HL
29674 EB EX DE,HL
29675 21C451 LD HL,20932 HL=appropriate display file address
29678 C3C573 JP 29637 Print the new lines total