Routines

25026: Scroll screen left


Used by routines at 28160 and 62910

25026 0608 LD B,8 8 columns will be scrolled on
25028 C5 PUSH BC
25029 210158 LD HL,22529 First shift the attributes one place to the left
25032 110058 LD DE,22528
25035 019F02 LD BC,671
25038 EDB0 LDIR
25040 CD41F8 CALL 63553 Scroll display file one character square to the left
25043 3C INC A A=column of play area now at far left of screen
25044 32FF7F LD (32767),A
25047 211F14 LD HL,5151 H=20 (+1=21 rows on screen), L=31 (column at far right)
25050 E5 PUSH HL
25051 CD6C60 CALL 24684 Print a play area character square in the column at the far right
25054 E1 POP HL
25055 25 DEC H
25056 F2DA61 JP P,25050 Jump back until all 21 squares in the column have been printed
25059 C1 POP BC
25060 10DE DJNZ 25028 Jump back until 8 columns have been scrolled on
25062 3AFF7F LD A,(32767) A=column of play area now at far left of screen
25065 0605 LD B,5
25067 26C1 LD H,193 193=little boy no. 4
25069 FE78 CP 120 120: Is the skool gate in the middle of the screen?
25071 283D JR Z,25134 Jump if so
25073 FE50 CP 80 80: Is the boys' skool door in the middle of the screen?
25075 C0 RET NZ Return if not
25076 26BE LD H,190 190=little boy no. 1
25078 1834 JR 25132