![]() |
Routines |
Prev: 29621 | Up: Map |
|
|||||||||
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 lines total | |||||||
29678 | JP 29637 | Print the new lines total |
Prev: 29621 | Up: Map |