BOOTSTRAP ROUTINE 4000 48 76 LD B,76 4002 4A 60 LD C,60 4004 58 76 LD D,76 4006 5A 60 LD E,60 4008 6A 9F LD L,9F 400A F5 LDI 400B 88 03 DJC 400A 400D 58 77 LD D,77 400F 5A 50 LD E,50 4011 6A AF LD L,AF 4013 F5 LDI 4014 88 03 DJC 4013 4016 58 78 LD D,78 4018 5A E0 LD E,E0 401A 6A BF LD L,BF 401C F5 LDI 401D 88 03 DJC 401C 401F 9A RET WORD/SENTENCE/PARA/SECTION CHECK 4020 05 LDA (BC) 4021 5E 0F CP E,0F 4023 89 07 JR NZ,402C 4025 B7 FD CPA FD 4027 89 20 JR NZ,4049 4029 B5 01 LDA 01 402B 9A RET 402C B7 FD CPA FD 402E 81 03 JR NC,4033 4030 B5 02 LDA 02 4032 9A RET 4033 5E 14 CP E,14 4035 89 06 JR NZ,403D 4037 B7 20 CPA 20 4039 9B 12 JR Z,4029 403B 8E 04 JR 4041 403D 5E 15 CP E,15 403F 89 04 JR NZ,4045 4041 B7 2E CPA 2E 4043 9B 1C JR Z,4029 4045 B7 7C CPA 7C 4047 9B 20 JR Z,4029 4049 B5 00 LDA 00 404B 9A RET MOVE UP TEXT 404C 58 00 LD D,00 404E 5A 01 LD E,01 4050 BE 76 F5 CALL 76F5 4053 F9 RCF 4054 24 LDA L 4055 12 ADC E 4056 1A STA E 4057 A4 LDA H 4058 92 ADC D 4059 18 STA D 405A A7 76 59 CPA (7659) 405D 81 0B JR NC,406A 405F 89 06 JR NZ,4067 4061 14 LDA E 4062 A7 76 5A CPA (765A) 4065 81 03 JR NC,406A 4067 B5 01 LDA 01 4069 9A RET 406A FD 98 PUSH DE 406C 67 LDD (HL) 406D 53 STD (DE) 406E 94 LDA D 406F 86 CPA B 4070 99 06 JR NZ,406C 4072 14 LDA E 4073 06 CPA C 4074 99 0A JR NZ,406C 4076 FD 1A POP DE 4078 94 LDA D 4079 AE 76 5B STA (765B) 407C 14 LDA E 407D AE 76 5C STA (765C) 4080 B5 00 LDA 00 4082 9A RET MOVE DOWN TEXT 4083 58 00 LD D,00 4085 5A 01 LD E,01 4087 FD 88 PUSH BC 4089 BE 76 F5 CALL 76F5 408C 64 INC HL 408D F9 RCF 408E 04 LDA C 408F 12 ADC E 4090 1A STA E 4091 84 LDA B 4092 92 ADC D 4093 18 STA D 4094 55 LDI (DE) 4095 41 STI (BC) 4096 94 LDA D 4097 A6 CPA H 4098 91 06 JR NC,4094 409A 14 LDA E 409B 26 CPA L 409C 91 0A JR NC,4094 409E 46 DEC BC 409F 84 LDA B 40A0 AE 76 5B STA (765B) 40A3 04 LDA C 40A4 AE 76 5C STA (765C) 40A7 FD 0A POP BC 40A9 9A RET SOME BYTES RESERVED FOR CODE UPDATE ? 40AA 38 NOP 40AB 38 NOP 40AC 9A RET LOAD SUBROUTINE 40AD A5 76 50 LDA (E$) 40B0 08 STA B 40B1 A5 76 51 LDA (7651) 40B4 0A STA C 40B5 A5 76 5B LDA (765B) 40B8 28 STA H 40B9 A5 76 5C LDA (765C) 40BC 2A STA L 40BD 9A RET 40BE 00 SBC C 40BF 00 SBC C BEEP SUBROUTINE 40C0 FD C8 PUSH A 40C2 FD 88 PUSH BC 40C4 FD 98 PUSH DE 40C6 FD A8 PUSH HL 40C8 4A FF LD C,FF 40CA 48 01 LD B,01 40CC 6A 50 LD L,50 40CE BE E6 6B CALL E66B 40D1 6A 25 LD L,25 40D3 BE E6 6B CALL E66B 40D6 FD 2A POP HL 40D8 FD 1A POP DE 40DA FD 0A POP BC 40DC FD 8A POP A 40DE 9A RET STORE SUBROUTINE 40DF A4 LDA H 40E0 AE 76 5B STA (765B) 40E3 24 LDA L 40E4 AE 76 5C STA (765C) 40E7 84 LDA B 40E8 AE 76 50 STA (E$) 40EB 04 LDA C 40EC AE 76 51 STA (7651) 40EF 9A RET FINDS CURRENT LEVEL & STORES IN 765D 40F0 FD 5A LD DE,BC 40F2 57 LDD (DE) 40F3 B7 FD CPA FD 40F5 99 05 JR NZ,40F2 40F7 57 LDD (DE) 40F8 B7 FD CPA FD 40FA 8E 40 JR 413C ADD LEVEL CODE -FD-L-FD 40FC FD A8 PUSH HL 40FE 58 00 LD D,00 4100 5A 03 LD E,03 4102 BE 76 90 CALL I$ 4105 FD 5A LD DE,BC 4107 38 NOP 4108 FD 2A POP HL 410A B5 FD LDA FD 410C 51 STI (DE) 410D A4 LDA H 410E 51 STI (DE) 410F B5 FD LDA FD 4111 51 STI (DE) 4112 9A RET INPUT ROUTINE WITH AUTOREPEAT DELAY 4113 A5 76 FE LDA (76FE) 4116 89 09 JR NZ,4121 4118 B5 00 LDA 00 411A AE 76 FE STA (76FE) 411D BE E2 43 CALL KEYSCAN2 4120 9A RET 4121 B7 01 CPA 01 4123 8B 09 JR Z,412E 4125 DF DEC A 4126 AE 76 FE STA (76FE) 4129 6A 50 LD L,50 412B 0C DSBC (BC) 412C 88 03 DJC 412B 412E BE E4 2C CALL INKEY 4131 9B 1B JR Z,4118 4133 B7 08 CPA 08 4135 8B 04 JR Z,413B 4137 B7 0C CPA 0C 4139 99 23 JR NZ,4118 413B 9A RET 413C 93 47 JR C,40F7 413E AE 76 5D STA (765D) 4141 9A RET END OF FINDS CURRENT LEVEL & STORES IN 765D 4142 99 2C JR NZ,4118 4144 9A RET ROLLFORWARD ROUTINE 4145 44 INC BC 4146 05 LDA (BC) 4147 B7 20 CPA 20 4149 9B 06 JR Z,4145 414B 9A RET AUTOREPEAT SETUP 414C A5 76 FE LDA (76FE) 414F 89 05 JR NZ,4156 4151 B5 02 LDA 02 4153 AE 76 FE STA (76FE) 4156 9A RET PORTION OF DEF B ROUTINE 4157 A4 LDA H 4158 08 STA B 4159 24 LDA L 415A 0A STA C 415B 46 DEC BC 415C BE 77 80 CALL S$ 415F 44 INC BC 4160 9A RET DISPLAY SUBROUT 4161 BE ED 3B CALL NCHARDISP 4164 6A FF LD L,FF 4166 0C DSBC (BC) 4167 0C DSBC (BC) 4168 0C DSBC (BC) 4169 0C DSBC (BC) 416A 88 06 DJC 4166 416C 9A RET 416D 05 LDA (BC) 416E 00 SBC C 416F 16 CPA E LEVEL CHECK/SEARCH 4170 46 DEC BC 4171 47 LDD (BC) 4172 18 STA D 4173 05 LDA (BC) 4174 B7 FE CPA FE 4176 81 03 JR NC,417B 4178 B5 00 LDA 00 417A 9A RET 417B 46 DEC BC 417C 05 LDA (BC) 417D B7 FD CPA FD 417F 91 06 JR NC,417B 4181 46 DEC BC 4182 47 LDD (BC) 4183 96 CPA D 4184 99 13 JR NZ,4173 4186 44 INC BC 4187 44 INC BC 4188 44 INC BC 4189 5E 0F CP E,0F 418B 8B 06 JR Z,4193 418D 05 LDA (BC) 418E B7 FD CPA FD 4190 91 0A JR NC,4188 4192 38 NOP 4193 B5 01 LDA 01 4195 9A RET PORTION OF ADD LEVEL ROUTINE 4196 46 DEC BC 4197 BE 77 80 CALL S$ 419A 44 INC BC 419B 9A RET DATA FOR DISPLAY 419C 4D M 419D 45 E 419E 4E N 419F 55 U 41A0 3A : 41A1 4E N 41A2 65 e 41A3 77 w 41A4 20 41A5 45 E 41A6 64 d 41A7 74 t 41A8 20 41A9 54 T 41AA 70 p 41AB 65 e 41AC 20 41AD 50 P 41AE 72 r 41AF 74 t 41B0 20 41B1 45 E 41B2 6E n 41B3 64 d 41B4 20 41B5 20 41B6 54 T 41B7 41 A 41B8 50 P 41B9 45 E 41BA 20 41BB 4D M 41BC 45 E 41BD 4E N 41BE 55 U 41BF 3A : 41C0 20 41C1 20 41C2 4C L 41C3 6F o 41C4 61 a 41C5 64 d 41C6 3F ? 41C7 20 41C8 20 41C9 20 41CA 53 S 41CB 61 a 41CC 76 v 41CD 65 e 41CE 3F ? 41CF 20 41D0 50 P 41D1 52 R 41D2 49 I 41D3 4E N 41D4 54 T 41D5 20 41D6 4D M 41D7 45 E 41D8 4E N 41D9 55 U 41DA 3A : 41DB 20 41DC 43 C 41DD 45 E 41DE 31 1 41DF 35 5 41E0 30 0 41E1 20 41E2 20 41E3 20 41E4 4F O 41E5 74 t 41E6 68 h 41E7 65 e 41E8 72 r 41E9 20 41EA 43 C 41EB 48 H 41EC 45 E 41ED 43 C 41EE 4B K 41EF 3A : 41F0 20 41F1 44 D 41F2 45 E 41F3 4C L 41F4 2E . 41F5 20 41F6 53 S 41F7 45 E 41F8 43 C 41F9 54 T 41FA 49 I 41FB 4F O 41FC 4E N 41FD 20 41FE 28 ( 41FF 59 Y 4200 2F / 4201 4E N 4202 29 ) 4203 3F ? 4204 20 4205 53 S 4206 65 e 4207 6C l 4208 20 4209 43 C 420A 75 u 420B 74 t 420C 20 420D 50 P 420E 73 s 420F 74 t 4210 20 4211 57 W 4212 72 r 4213 64 d 4214 20 4215 53 S 4216 65 e 4217 6E n 4218 20 4219 50 P 421A 61 a 421B 72 r 421C 20 421D 20 END OF DATA FOR DISPLAY 421E FD 6A LD HL,BC 4220 FD 88 PUSH BC 4222 4A 1A LD C,1A 4224 BE ED 3B CALL NCHARDISP 4227 BE E2 43 CALL KEYSCAN2 422A AE 76 FF STA (76FF) 422D FD 0A POP BC 422F 9A RET 4230 04 LDA C 4231 00 SBC C 4232 00 SBC C PRINT ROUTINE 4233 68 00 LD H,00 4235 A5 76 59 LDA (7659) 4238 18 STA D 4239 A5 76 5A LDA (765A) 423C 1A STA E 423D 54 INC DE 423E A5 76 EA LDA (76EA) 4241 2A STA L 4242 FD 98 PUSH DE 4244 FD A8 PUSH HL 4246 B5 20 LDA 20 4248 51 STI (DE) 4249 88 03 DJC 4248 424B A4 LDA H 424C 1E STA (DE) 424D FD 2A POP HL 424F FD 1A POP DE 4251 A5 76 EB LDA (76EB) 4254 B7 02 CPA 02 4256 89 0B JR NZ,4263 4258 A5 76 5D LDA (765D) 425B B7 05 CPA 05 425D 81 04 JR NC,4263 425F B5 05 LDA 05 4261 8E 03 JR 4266 4263 A5 76 5D LDA (765D) 4266 DF DEC A 4267 8B 04 JR Z,426D 4269 54 INC DE 426A 62 DEC L 426B 9E 07 JR 4266 426D FD A8 PUSH HL 426F BE 76 ED CALL 76ED 4272 FD 2A POP HL 4274 45 LDI (BC) 4275 B7 FD CPA FD 4277 83 4D JR C,42C6 4279 B7 7C CPA 7C 427B 8B 36 JR Z,42B3 427D 51 STI (DE) 427E 88 0C DJC 4274 4280 A4 LDA H 4281 A7 76 EB CPA (76EB) 4284 81 14 JR NC,429A 4286 6A 08 LD L,08 4288 56 DEC DE 4289 15 LDA (DE) 428A B7 2D CPA 2D 428C 8B 0C JR Z,429A 428E B7 20 CPA 20 4290 8B 08 JR Z,429A 4292 46 DEC BC 4293 A4 LDA H 4294 1E STA (DE) 4295 88 0F DJC 4288 4297 B5 2D LDA 2D 4299 1E STA (DE) 429A 6A 00 LD L,00 429C A5 76 59 LDA (7659) 429F 18 STA D 42A0 A5 76 5A LDA (765A) 42A3 1A STA E 42A4 54 INC DE 42A5 55 LDI (DE) 42A6 8B 03 JR Z,42AB 42A8 60 INC L 42A9 9E 06 JR 42A5 42AB 24 LDA L 42AC AE 76 5E STA (765E) 42AF BE 77 77 CALL 7777 42B2 9A RET 42B3 A4 LDA H 42B4 1E STA (DE) 42B5 9E 1D JR 429A 42B7 44 INC BC 42B8 45 LDI (BC) 42B9 AE 76 5D STA (765D) 42BC 44 INC BC 42BD 05 LDA (BC) 42BE B7 FD CPA FD 42C0 91 0F JR NC,42B3 42C2 B7 FE CPA FE 42C4 91 0F JR NC,42B7 42C6 B7 FE CPA FE 42C8 99 12 JR NZ,42B8 42CA A4 LDA H 42CB 1E STA (DE) 42CC AE 76 EB STA (76EB) 42CF B5 02 LDA 02 42D1 AE 76 EC STA (76EC) 42D4 A5 76 57 LDA (7657) 42D7 08 STA B 42D8 A5 76 58 LDA (7658) 42DB 0A STA C 42DC 44 INC BC 42DD 44 INC BC 42DE 44 INC BC 42DF 9E 47 JR 429A 42E1 58 0A LD D,0A 42E3 44 INC BC 42E4 44 INC BC 42E5 44 INC BC 42E6 9E 34 JR 42B4 SEARCH ROUTINE 42E8 58 78 LD D,78 42EA 5A D0 LD E,D0 42EC 6A 0F LD L,0F 42EE B5 00 LDA 00 42F0 FD 98 PUSH DE 42F2 51 STI (DE) 42F3 88 03 DJC 42F2 42F5 FD 1A POP DE 42F7 68 78 LD H,78 42F9 6A D0 LD L,D0 42FB FD 98 PUSH DE 42FD 4A 00 LD C,00 42FF FD 88 PUSH BC 4301 FD 98 PUSH DE 4303 FD A8 PUSH HL 4305 BE E2 43 CALL KEYSCAN2 4308 FD 2A POP HL 430A FD 1A POP DE 430C FD 0A POP BC 430E B7 0D CPA 0D 4310 8B 15 JR Z,4327 4312 51 STI (DE) 4313 40 INC C 4314 FD 88 PUSH BC 4316 FD 98 PUSH DE 4318 FD A8 PUSH HL 431A BE ED 3B CALL NCHARDISP 431D FD 2A POP HL 431F FD 1A POP DE 4321 FD 0A POP BC 4323 4E 10 CP C,10 4325 99 28 JR NZ,42FF 4327 04 LDA C 4328 28 STA H 4329 FD 1A POP DE 432B FD A8 PUSH HL 432D BE 76 ED CALL 76ED 4330 FD 2A POP HL 4332 46 DEC BC 4333 6A 00 LD L,00 4335 44 INC BC 4336 05 LDA (BC) 4337 B7 FE CPA FE 4339 8B 2A JR Z,4365 433B 17 CPA (DE) 433C 99 09 JR NZ,4335 433E FD 88 PUSH BC 4340 60 INC L 4341 24 LDA L 4342 A6 CPA H 4343 8B 12 JR Z,4357 4345 44 INC BC 4346 54 INC DE 4347 05 LDA (BC) 4348 B7 FE CPA FE 434A 8B 17 JR Z,4363 434C 17 CPA (DE) 434D 9B 0F JR Z,4340 434F FD 0A POP BC 4351 58 78 LD D,78 4353 5A D0 LD E,D0 4355 9E 24 JR 4333 4357 62 DEC L 4358 44 INC BC 4359 46 DEC BC 435A 88 03 DJC 4359 435C BE 77 77 CALL 7777 435F FD 0A POP BC 4361 8E 05 JR 4368 4363 FD 0A POP BC 4365 BE 77 50 CALL P$ 4368 BE 76 ED CALL 76ED 436B BE 77 80 CALL S$ 436E 8E 81 JR 43F1 MAIN ROUTINE 4370 BE 76 ED CALL 76ED 4373 8E 7C JR 43F1 4375 A5 76 57 LDA (7657) 4378 18 STA D 4379 A5 76 58 LDA (7658) 437C 1A STA E 437D 48 76 LD B,76 437F 4A 52 LD C,52 4381 6A 04 LD L,04 4383 F5 LDI 4384 88 03 DJC 4383 4386 48 7B LD B,7B 4388 4A 10 LD C,10 438A FD 5A LD DE,BC 438C 6A 1A LD L,1A 438E B5 00 LDA 00 4390 51 STI (DE) 4391 88 03 DJC 4390 4393 FD 6A LD HL,BC 4395 4A 1A LD C,1A 4397 BE ED 3B CALL NCHARDISP 439A BE 76 ED CALL 76ED 439D FD 5A LD DE,BC 439F FD 6A LD HL,BC 43A1 4A 01 LD C,01 43A3 54 INC DE 43A4 15 LDA (DE) 43A5 40 INC C 43A6 B7 FD CPA FD 43A8 83 0B JR C,43B5 43AA B7 20 CPA 20 43AC 8B 07 JR Z,43B5 43AE 4E 1A CP C,1A 43B0 99 0F JR NZ,43A3 43B2 66 DEC HL 43B3 8E 1B JR 43D0 43B5 56 DEC DE 43B6 66 DEC HL 43B7 25 LDA (HL) 43B8 40 INC C 43B9 B7 FD CPA FD 43BB 83 06 JR C,43C3 43BD 4E 1A CP C,1A 43BF 99 0B JR NZ,43B6 43C1 8E 0D JR 43D0 43C3 4E 1A CP C,1A 43C5 8B 09 JR Z,43D0 43C7 54 INC DE 43C8 15 LDA (DE) 43C9 B7 FD CPA FD 43CB 83 03 JR C,43D0 43CD 40 INC C 43CE 9E 0D JR 43C3 43D0 BE 77 F1 CALL 77F1 43D3 BE 77 A3 CALL 77A3 43D6 FD C8 PUSH A 43D8 BE 76 ED CALL 76ED 43DB FD 8A POP A 43DD B7 0D CPA 0D 43DF 89 02 JR NZ,43E3 43E1 B5 7C LDA 7C 43E3 B7 80 CPA 80 43E5 83 22 JR C,4409 43E7 B7 20 CPA 20 43E9 81 A2 JR NC,448D 43EB 41 STI (BC) 43EC B5 00 LDA 00 43EE AE 76 5E STA (765E) 43F1 BE 77 77 CALL 7777 43F4 BE 76 8C CALL 768C 43F7 89 05 JR NZ,43FE 43F9 B5 27 LDA 27 43FB 0E STA (BC) 43FC 9E 78 JR 4386 43FE AE 76 5F STA (765F) 4401 46 DEC BC 4402 BE 77 77 CALL 7777 4405 BE 76 C3 CALL 76C3 4408 9A RET FUNCTION KEYS PAGE 1 4409 B7 83 CPA 83 440B 89 19 JR NZ,4426 440D BE 76 C3 CALL 76C3 4410 58 78 LD D,78 4412 5A D0 LD E,D0 4414 68 00 LD H,00 4416 FD 98 PUSH DE 4418 15 LDA (DE) 4419 8B 07 JR Z,4422 441B FD 60 INC H 441D 54 INC DE 441E 6C 10 CP H,10 4420 91 0A JR NC,4418 4422 FD 1A POP DE 4424 9E F3 JR 4333 4426 B7 80 CPA 80 4428 89 07 JR NZ,4431 442A B5 00 LDA 00 442C AE 76 5F STA (765F) 442F 9E 2F JR 4402 4431 B7 93 CPA 93 4433 89 04 JR NZ,4439 4435 B5 04 LDA 04 4437 9E 0D JR 442C 4439 B7 86 CPA 86 443B 89 04 JR NZ,4441 443D B5 02 LDA 02 443F 9E 15 JR 442C 4441 B7 8C CPA 8C 4443 89 04 JR NZ,4449 4445 B5 05 LDA 05 4447 9E 1D JR 442C 4449 B7 8D CPA 8D 444B 89 04 JR NZ,4451 444D B5 06 LDA 06 444F 9E 25 JR 442C 4451 B7 95 CPA 95 4453 89 04 JR NZ,4459 4455 B5 03 LDA 03 4457 9E 2D JR 442C 4459 B7 88 CPA 88 445B 89 09 JR NZ,4466 445D 68 79 LD H,79 445F 6A 74 LD L,74 4461 BE 79 90 CALL _S 4464 9E 6A JR 43FC 4466 B7 94 CPA 94 4468 89 13 JR NZ,447D 446A BE 76 C3 CALL 76C3 446D A5 76 57 LDA (7657) 4470 08 STA B 4471 A5 76 58 LDA (7658) 4474 0A STA C 4475 44 INC BC 4476 44 INC BC 4477 44 INC BC 4478 BE 77 80 CALL S$ 447B 9E 8C JR 43F1 447D B7 82 CPA 82 447F 89 0E JR NZ,448F 4481 BE 76 C3 CALL 76C3 4484 BE 76 ED CALL 76ED 4487 38 NOP 4488 BE 77 E7 CALL 77E7 448B 9E 12 JR 447B 448D 8E CB JR 455A 448F B7 90 CPA 90 4491 8B 09 JR Z,449C 4493 B7 84 CPA 84 4495 8B 05 JR Z,449C 4497 BE 77 50 CALL P$ 449A 9E 38 JR 4464 FUNCTION KEYS PAGE 2 449C 2A STA L 449D BE 77 80 CALL S$ 44A0 28 STA H 44A1 6E 90 CP L,90 44A3 89 07 JR NZ,44AC 44A5 B7 01 CPA 01 44A7 9B 12 JR Z,4497 44A9 DF DEC A 44AA 8E 05 JR 44B1 44AC B7 14 CPA 14 44AE 9B 19 JR Z,4497 44B0 DD INC A 44B1 2A STA L 44B2 FD 88 PUSH BC 44B4 FD 98 PUSH DE 44B6 FD A8 PUSH HL 44B8 BE E2 43 CALL KEYSCAN2 44BB FD 2A POP HL 44BD FD 1A POP DE 44BF FD 0A POP BC 44C1 B7 0F CPA 0F 44C3 8B 08 JR Z,44CD 44C5 B7 14 CPA 14 44C7 91 32 JR NC,4497 44C9 B7 17 CPA 17 44CB 93 36 JR C,4497 44CD 1A STA E 44CE FD 98 PUSH DE 44D0 F9 RCF 44D1 A5 76 5C LDA (765C) 44D4 B3 06 ADC 06 44D6 1A STA E 44D7 A5 76 5B LDA (765B) 44DA B3 00 ADC 00 44DC A7 76 59 CPA (7659) 44DF 81 11 JR NC,44F2 44E1 89 06 JR NZ,44E9 44E3 14 LDA E 44E4 A7 76 5A CPA (765A) 44E7 91 09 JR NC,44E0 44E9 FD 1A POP DE 44EB B5 01 LDA 01 44ED AE 76 5F STA (765F) 44F0 9E C3 JR 442F 44F2 FD 1A POP DE 44F4 FD 98 PUSH DE 44F6 FD A8 PUSH HL 44F8 BE 76 C3 CALL 76C3 44FB FD 2A POP HL 44FD FD 1A POP DE 44FF 46 DEC BC 4500 44 INC BC 4501 BE 76 60 CALL F$ 4504 9B 06 JR Z,4500 4506 45 LDI (BC) 4507 B7 FD CPA FD 4509 83 0C JR C,4517 450B 05 LDA (BC) 450C B7 FD CPA FD 450E 83 07 JR C,4517 4510 FD 98 PUSH DE 4512 BE 77 8C CALL 778C 4515 FD 1A POP DE 4517 46 DEC BC 4518 24 LDA L 4519 28 STA H 451A 46 DEC BC 451B BE 76 60 CALL F$ 451E 9B 06 JR Z,451A 4520 05 LDA (BC) 4521 B7 FD CPA FD 4523 83 12 JR C,4537 4525 44 INC BC 4526 BE 77 8C CALL 778C 4529 44 INC BC 452A 44 INC BC 452B 44 INC BC 452C BE 77 50 CALL P$ 452F BE 77 50 CALL P$ 4532 BE 77 80 CALL S$ 4535 9E BC JR 447B 4537 46 DEC BC FUNCTION KEYS PAGE 3 4538 A4 LDA H 4539 0E STA (BC) 453A 9E 12 JR 452A 453C 38 NOP 453D 38 NOP 453E 38 NOP 453F 38 NOP 4540 38 NOP 4541 FD 88 PUSH BC 4543 BE 76 ED CALL 76ED 4546 BE 76 C3 CALL 76C3 4549 FD 0A POP BC 454B B5 02 LDA 02 454D 8E 68 JR 45B7 454F 38 NOP 4550 9E 09 JR 4549 4552 9E BD JR 4497 4554 9E BC JR 449A 4556 9E DD JR 447B 4558 9E 69 JR 44F1 455A FD E9 F0 0B FD AND# (F00B),FD 455F 1A STA E 4560 B7 0C CPA 0C 4562 89 60 JR NZ,45C4 4564 BE 77 DC CALL 77DC 4567 5E 0F CP E,0F 4569 81 0C JR NC,4577 456B 8B 4F JR Z,45BC 456D 44 INC BC 456E BE 76 60 CALL F$ 4571 8B 05 JR Z,4578 4573 B7 02 CPA 02 4575 8B 01 JR Z,4578 4577 44 INC BC 4578 05 LDA (BC) 4579 B7 FD CPA FD 457B 81 1A JR NC,4597 457D B7 FE CPA FE 457F 81 07 JR NC,4588 4581 B5 00 LDA 00 4583 AE 76 5E STA (765E) 4586 9E 36 JR 4552 4588 44 INC BC 4589 45 LDI (BC) 458A A7 76 5D CPA (765D) 458D 8B 1C JR Z,45AB 458F 44 INC BC 4590 05 LDA (BC) 4591 B7 FD CPA FD 4593 91 06 JR NC,458F 4595 9E 1A JR 457D 4597 5E 14 CP E,14 4599 81 10 JR NC,45AB 459B BE 76 60 CALL F$ 459E 89 03 JR NZ,45A3 45A0 44 INC BC 45A1 9E 08 JR 459B 45A3 B7 02 CPA 02 45A5 8B 03 JR Z,45AA 45A7 BE 77 D5 CALL 77D5 45AA 46 DEC BC 45AB FD 88 PUSH BC 45AD BE 76 ED CALL 76ED 45B0 BE 76 C3 CALL 76C3 45B3 FD 0A POP BC 45B5 B5 01 LDA 01 45B7 AE 76 5E STA (765E) 45BA 9E 66 JR 4556 45BC 44 INC BC 45BD 05 LDA (BC) 45BE B7 FD CPA FD 45C0 91 06 JR NC,45BC 45C2 9E 47 JR 457D 45C4 B7 08 CPA 08 45C6 89 54 JR NZ,461C 45C8 BE 77 DC CALL 77DC 45CB 5E 0F CP E,0F 45CD 81 13 JR NC,45E2 45CF 8B 39 JR Z,460A 45D1 46 DEC BC 45D2 05 LDA (BC) 45D3 B7 20 CPA 20 45D5 9B 06 JR Z,45D1 45D7 BE 76 6C CALL 766C FUNCTION KEYS PAGE 4 45DA 8B 05 JR Z,45E1 45DC B7 02 CPA 02 45DE 8B 01 JR Z,45E1 45E0 46 DEC BC 45E1 44 INC BC 45E2 46 DEC BC 45E3 05 LDA (BC) 45E4 B7 FD CPA FD 45E6 81 05 JR NC,45ED 45E8 BE 78 E0 CALL C$ 45EB 9B 67 JR Z,4586 45ED 5E 14 CP E,14 45EF 81 0C JR NC,45FD 45F1 46 DEC BC 45F2 BE 76 60 CALL F$ 45F5 89 03 JR NZ,45FA 45F7 46 DEC BC 45F8 9E 08 JR 45F2 45FA BE 77 D5 CALL 77D5 45FD 9E C3 JR 453C 45FF 38 NOP 4600 38 NOP 4601 38 NOP 4602 38 NOP 4603 38 NOP 4604 38 NOP 4605 38 NOP 4606 38 NOP 4607 38 NOP 4608 38 NOP 4609 38 NOP 460A 46 DEC BC 460B 05 LDA (BC) 460C B7 FD CPA FD 460E 91 06 JR NC,460A 4610 9E 2A JR 45E8 4612 9E B0 JR 4564 4614 9E C4 JR 4552 4616 9E C4 JR 4554 4618 9E C4 JR 4556 461A 9E C4 JR 4558 461C B7 18 CPA 18 461E 89 4F JR NZ,466F 4620 46 DEC BC 4621 05 LDA (BC) 4622 B7 FD CPA FD 4624 93 12 JR C,4614 4626 44 INC BC 4627 5E 0F CP E,0F 4629 89 0F JR NZ,463A 462B 68 79 LD H,79 462D 6A 5A LD L,5A 462F FD 98 PUSH DE 4631 BE 79 90 CALL _S 4634 FD 1A POP DE 4636 B7 59 CPA 59 4638 99 26 JR NZ,4614 463A 46 DEC BC 463B 68 00 LD H,00 463D 6A 02 LD L,02 463F 5E 18 CP E,18 4641 8B 06 JR Z,4649 4643 BE 76 60 CALL F$ 4646 89 12 JR NZ,465A 4648 05 LDA (BC) 4649 B7 7F CPA 7F 464B 89 05 JR NZ,4652 464D B5 00 LDA 00 464F AE 77 FE STA (77FE) 4652 5E 18 CP E,18 4654 8B 0B JR Z,4661 4656 46 DEC BC 4657 64 INC HL 4658 9E 17 JR 4643 465A 05 LDA (BC) 465B B7 FD CPA FD 465D 81 02 JR NC,4661 465F 44 INC BC 4660 66 DEC HL 4661 A4 LDA H 4662 18 STA D 4663 24 LDA L 4664 1A STA E 4665 BE 77 77 CALL 7777 4668 BE 76 C7 CALL 76C7 466B B5 03 LDA 03 466D 9E B8 JR 45B7 466F B7 1A CPA 1A 4671 89 2E JR NZ,46A1 4673 46 DEC BC 4674 05 LDA (BC) 4675 B7 FD CPA FD 4677 99 65 JR NZ,4614 FUNCTION KEYS PAGE 5 4679 46 DEC BC 467A 46 DEC BC 467B 05 LDA (BC) 467C B7 FE CPA FE 467E 9B 6C JR Z,4614 4680 58 00 LD D,00 4682 5A 04 LD E,04 4684 BE 76 C7 CALL 76C7 4687 46 DEC BC 4688 BE 77 80 CALL S$ 468B 44 INC BC 468C 9E 76 JR 4618 468E 77 LDD (MN) 468F 77 LDD (MN) 4690 BE 76 C7 CALL 76C7 4693 46 DEC BC 4694 BE 77 80 CALL S$ 4697 44 INC BC 4698 9E 82 JR 4618 469A 44 INC BC 469B 44 INC BC 469C 44 INC BC 469D 56 DEC DE 469E 56 DEC DE 469F 9E 14 JR 468D 46A1 B7 0F CPA 0F 46A3 8B 08 JR Z,46AD 46A5 B7 14 CPA 14 46A7 81 15 JR NC,46BE 46A9 B7 17 CPA 17 46AB 83 11 JR C,46BE 46AD A5 76 5E LDA (765E) 46B0 B7 01 CPA 01 46B2 9B A2 JR Z,4612 46B4 B7 02 CPA 02 46B6 9B F0 JR Z,45C8 46B8 B7 03 CPA 03 46BA 9B 9C JR Z,4620 46BC 9E AA JR 4614 46BE B7 0A CPA 0A 46C0 8B 04 JR Z,46C6 46C2 B7 0B CPA 0B 46C4 89 37 JR NZ,46FD 46C6 A5 76 5D LDA (765D) 46C9 18 STA D 46CA 5E 0A CP E,0A 46CC 89 02 JR NZ,46D0 46CE FD 50 INC D 46D0 44 INC BC 46D1 05 LDA (BC) 46D2 B7 FD CPA FD 46D4 91 06 JR NC,46D0 46D6 B7 FE CPA FE 46D8 93 1E JR C,46BC 46DA 44 INC BC 46DB 45 LDI (BC) 46DC 5E 0A CP E,0A 46DE 89 05 JR NZ,46E5 46E0 96 CPA D 46E1 91 13 JR NC,46D0 46E3 8E 03 JR 46E8 46E5 96 CPA D 46E6 93 18 JR C,46D0 46E8 AE 76 5D STA (765D) 46EB FD 88 PUSH BC 46ED BE 76 ED CALL 76ED 46F0 BE 76 C3 CALL 76C3 46F3 FD 0A POP BC 46F5 9E 5F JR 4698 46F7 9E 3D JR 46BC 46F9 9E E5 JR 4616 46FB 9E E3 JR 461A 46FD B7 09 CPA 09 46FF 8B 04 JR Z,4705 4701 B7 19 CPA 19 FUNCTION KEYS PAGE 6 4703 89 4B JR NZ,4750 4705 BE 76 F5 CALL 76F5 4708 F9 RCF 4709 24 LDA L 470A B3 07 ADC 07 470C 2A STA L 470D A4 LDA H 470E B3 00 ADC 00 4710 A7 76 59 CPA (7659) 4713 81 0F JR NC,4724 4715 89 06 JR NZ,471D 4717 24 LDA L 4718 A7 76 5A CPA (765A) 471B 81 07 JR NC,4724 471D B5 01 LDA 01 471F AE 76 5F STA (765F) 4722 9E 29 JR 46FB 4724 A5 76 5D LDA (765D) 4727 2A STA L 4728 5E 09 CP E,09 472A 89 07 JR NZ,4733 472C B7 01 CPA 01 472E 9B 39 JR Z,46F7 4730 DF DEC A 4731 8E 05 JR 4738 4733 B7 14 CPA 14 4735 9B 40 JR Z,46F7 4737 DD INC A 4738 28 STA H 4739 FD A8 PUSH HL 473B BE 76 C3 CALL 76C3 473E FD 2A POP HL 4740 BE 77 8C CALL 778C 4743 44 INC BC 4744 44 INC BC 4745 44 INC BC 4746 24 LDA L 4747 28 STA H 4748 BE 77 8C CALL 778C 474B BE 79 06 CALL 7906 474E 9E 5B JR 46F5 4750 B7 11 CPA 11 4752 89 12 JR NZ,4766 4754 A5 77 FE LDA (77FE) 4757 99 62 JR NZ,46F7 4759 84 LDA B 475A AE 77 FE STA (77FE) 475D 04 LDA C 475E AE 77 FF STA (77FF) 4761 B5 7F LDA 7F 4763 41 STI (BC) 4764 9E 71 JR 46F5 4766 B7 12 CPA 12 4768 8B 06 JR Z,4770 476A B7 13 CPA 13 476C 8B 45 JR Z,47B3 476E 9E 79 JR 46F7 FUNCTION KEYS PAGE 7 4770 FD 5A LD DE,BC 4772 A5 77 FE LDA (77FE) 4775 9B 09 JR Z,476E 4777 08 STA B 4778 A5 77 FF LDA (77FF) 477B 0A STA C 477C F9 RCF 477D 14 LDA E 477E 00 SBC C 477F 2A STA L 4780 94 LDA D 4781 80 SBC B 4782 28 STA H 4783 6C 00 CP H,00 4785 99 19 JR NZ,476E 4787 24 LDA L 4788 38 NOP 4789 38 NOP 478A 38 NOP 478B 38 NOP 478C 38 NOP 478D AE 77 FD STA (77FD) 4790 FD 88 PUSH BC 4792 38 NOP 4793 44 INC BC 4794 A5 76 59 LDA (7659) 4797 18 STA D 4798 A5 76 5A LDA (765A) 479B 1A STA E 479C 54 INC DE 479D F5 LDI 479E 88 03 DJC 479D 47A0 A5 77 FD LDA (77FD) 47A3 1A STA E 47A4 B5 00 LDA 00 47A6 AE 77 FE STA (77FE) 47A9 18 STA D 47AA FD 0A POP BC 47AC 54 INC DE 47AD 54 INC DE 47AE BE 76 C7 CALL 76C7 47B1 9E 51 JR 4762 47B3 A5 77 FD LDA (77FD) 47B6 9B 4A JR Z,476E 47B8 1A STA E 47B9 B5 00 LDA 00 47BB 18 STA D 47BC BE 76 90 CALL I$ 47BF 8B 05 JR Z,47C6 47C1 AE 76 5F STA (765F) 47C4 9E CB JR 46FB 47C6 BE 76 C3 CALL 76C3 47C9 A5 76 59 LDA (7659) 47CC 18 STA D 47CD A5 76 5A LDA (765A) 47D0 1A STA E 47D1 54 INC DE 47D2 55 LDI (DE) 47D3 B7 27 CPA 27 47D5 9B 26 JR Z,47B1 47D7 41 STI (BC) 47D8 9E 08 JR 47D2 STARTUP ROUTINE 47DA 48 40 LD B,40 47DC 4A 00 LD C,00 47DE A5 78 65 LDA (STARTBASIC) 47E1 18 STA D 47E2 A5 78 66 LDA (7866) 47E5 1A STA E 47E6 F5 LDI 47E7 4C 47 CP B,47 47E9 91 05 JR NC,47E6 47EB 4E DA CP C,DA 47ED 91 09 JR NC,47E6 47EF 6A 02 LD L,02 47F1 48 78 LD B,78 47F3 4A 65 LD C,65 47F5 94 LDA D 47F6 41 STI (BC) 47F7 14 LDA E 47F8 41 STI (BC) 47F9 88 06 DJC 47F5 47FB BA C8 99 JP C899 END OF PROGRAM 47FE F7 CPI 47FF 00 SBC C