![]() |
Routines |
A | Number of lines to add/10 |
29643 | PUSH DE | |
29644 | PUSH HL | |
29645 | LD E,A | DE=number of lines to add |
29646 | LD D,0 | |
29648 | LD HL,(32743) | HL=current lines total (divided by 10) |
29651 | LD BC,64536 | BC=-1000 |
29654 | ADD HL,BC | Does ERIC have less than 10000 lines? |
29655 | JR NC,29660 | Jump if so |
29657 | ADD HL,DE | Add lines to ERIC's total |
29658 | JR 29669 | |
29660 | ADD HL,DE | Add lines to ERIC's total |
29661 | JR NC,29669 | Jump if ERIC still has less than 10000 lines |
29663 | PUSH HL | |
29664 | CALL 62770 | Set MR WACKER on his way to expel ERIC |
29667 | AND A | Clear the carry flag ready for subtraction |
29668 | POP HL | |
29669 | SBC HL,BC | Now HL=new lines total |
29671 | LD (32743),HL | Store the new lines total at 32743 |
29674 | EX DE,HL | Transfer the new lines total to DE |
29675 | LD HL,20932 | HL=display file address for printing the number of lines |
29678 | JP 29637 | Print the new lines total |