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 |