![]() |
Routines |
| Value | Meaning | 1 | MR WACKER / READING ROOM | 2 | MR WACKER / MAP ROOM | 3 | MR WACKER / WHITE ROOM | 4 | MR WACKER / EXAM ROOM | 6 | DINNER (MR WACKER) | 17 | MR ROCKITT / READING ROOM | 19 | MR ROCKITT / WHITE ROOM | 20 | MR ROCKITT / EXAM ROOM | 34 | MR WITHIT / MAP ROOM | 35 | MR WITHIT / WHITE ROOM | 38 | DINNER (MR WITHIT) | 49 | MR CREAK / READING ROOM | 51 | MR CREAK / WHITE ROOM | 69 | REVISION LIBRARY | 71 | PLAYTIME |
|---|
| 31040 | LD A,(32756) | A=lesson descriptor |
| 31043 | AND 7 | Keep only the "room" bits (0-2) |
| 31045 | CP 5 | Set the zero flag if this period is REVISION LIBRARY, and set the carry flag if this is a classroom period |
| 31047 | LD DE,60720 | Point DE at the lesson box graphic buffer |
| 31050 | LD HL,55945 | 55945=' ' (single space) |
| 31053 | JR NZ,31057 | Jump if this period is not REVISION LIBRARY |
| 31055 | LD L,128 | HL=55936: 'REVISION' |
| 31057 | JR NC,31076 | Jump if this is REVISION LIBRARY, DINNER or PLAYTIME |
| 31059 | LD A,(32756) | A=lesson descriptor |
| 31062 | AND 240 | Keep only the "teacher" bits (4-7) |
| 31064 | LD L,A | Point HL at the appropriate teacher's name (55736 for MR WACKER; 55750 for MR ROCKITT; 55764 for MR WITHIT; 55778 for MR CREAK) |
| 31065 | RRCA | |
| 31066 | RRCA | |
| 31067 | RRCA | |
| 31068 | LD H,A | |
| 31069 | LD A,L | |
| 31070 | SUB H | |
| 31071 | ADD A,184 | |
| 31073 | LD L,A | |
| 31074 | LD H,217 | |
| 31076 | CALL 30042 | Write the first line of text (' ', 'REVISION' or the teacher's name) into the lesson box graphic buffer |
| 31079 | LD A,(32756) | A=lesson descriptor |
| 31082 | AND 7 | Keep only the "room" bits (0-2) |
| 31084 | ADD A,A | Point HL at the appropriate room name (55952 for 'READING ROOM'; 55968 for 'MAP ROOM'; 55984 for 'WHITE ROOM'; 56000 for 'EXAM ROOM'; 56032 for 'DINNER'; 56048 for 'PLAYTIME') |
| 31085 | ADD A,A | |
| 31086 | ADD A,A | |
| 31087 | ADD A,A | |
| 31088 | ADD A,128 | |
| 31090 | LD L,A | |
| 31091 | LD H,218 |
| 31093 | LD DE,60800 | Point DE at the appropriate spot in the lesson box graphic buffer for the second line of text |
| 31096 | CALL 30042 | Write the second line of text into the buffer |
| 31099 | LD HL,60672 | 60672=start of lesson box graphic buffer |
| 31102 | LD DE,23212 | 23212=attribute file address for lesson box |
| 31105 | JP 29977 | Copy the lesson box graphic buffer to the screen |