![]() |
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 |