; ************************ ; Carte universelle ; Copieur d'Eprom. ; 2714 et 2732 ; ================ ; de JC.JAGOT et ; D.PELLETIER ; Micro-Systeme 1983 ; ************************ ORG $3000 @CURSEUR = $08F5 @CLEAR = $0A2A @CHAINE = $0B6B @DECODE = $07BD ;@TOUCHE = $36D2 ;@TEMPO1 = $320F ;@TEMPO2 = $3204 ;@INIT = $31F1 ;@ADF = $321A ;@ADBC =$319C ;@ERREUR =$36B6 @REMSTART = $4082 @ADDRC= $3803 @ADDPA= $3800 @ADDPB= $3801 @ADDPC= $3802 @START NOP 3001 00 NOP 3002 CD;2A;0A CALL CLEAR ; [CLS] 3005 CD;F1;31 CALL INIT ; [$31F1] 3008 01;0D;0A LD BC,$0A0D 300B CD;F5;08 CALL CURSEUR ; [PRINT-AT] 300E 01;0D;00 LD BC,$000D 3011 11;F3;37 LD DE,$37F3 3014 CD;6B;0B CALL CHAINE ; [PR-STR-4] 3017 01;05;0C LD BC,$0C05 301A CD;F5;08 CALL CURSEUR ; [PRINT-AT] 301D 01;15;00 LD BC,$0015 3020 11;D5;37 LD DE,$37D5 3023 CD;6B;0B CALL CHAINE ; [PR-STR-4] @A2 3026 CD;D2;36 CALL TOUCHE 3029 06;00 LD B,$00 302B FE;28 CP $28 302D 28;06 JR Z,A1 ; [$3034] 302F FE;35 CP $35 3031 20;F3 JR NZ,A2 ; [$3026] 3033 06;01 LD B,$01 @A1 3035 78 LD A,B 3036 32;82;40 LD ($4082),A 3039 CD;2A;0A CALL CLEAR ; [CLS] 303C 01;09;0A LD BC,$0A09 303F CD;F5;08 CALL CURSEUR ; [PRINT-AT] 3042 01;0C;00 LD BC,$000C 3045 11;C9;37 LD DE,$37C9 3048 CD;6B;0B CALL CHAINE ; [PR-STR-4] 304B 01;09;0C LD BC,$0C09 304E CD;F5;08 CALL CURSEUR ; [PRINT-AT] 3051 01;0C;00 LD BC,$000C 3054 11;BD;37 LD DE,$37BD 3057 CD;6B;0B CALL CHAINE ; [PR-STR-4] @A4 305A CD;D2;36 CALL TOUCHE 305D 06;00 LD B,$00 305F FE;1E CP $1E 3061 28;0B JR Z,A3 ; [$306D] 3063 FE;20 CP $20 3065 20;F3 JR NZ,A4 ; [$305A] 3067 3E;01 LD A,$01 3069 32;83;40 LD ($4083),A 306C 18;04 JR A5 ; [$3071] @A3 306E 78 LD A,B 306F 32;83;40 LD ($4083),A @A5 3072 CD;1A;32 CALL ADF 3075 3A;82;40 LD A,($4082) 3078 FE;00 CP $00 307A 28;03 JR Z,A6 ; [$307E] 307C C3;09;33 JP PGME @A6 307F 01;05;09 LD BC,$0905 3082 CD;F5;08 CALL CURSEUR ; [PRINT-AT] 3085 01;16;00 LD BC,$0016 3088 11;91;37 LD DE,$3791 308B CD;6B;0B CALL CHAINE ; [PR-STR-4] 308E 01;07;0B LD BC,$0B07 3091 CD;F5;08 CALL CURSEUR ; [PRINT-AT] 3094 01;11;00 LD BC,$0011 3097 11;AB;37 LD DE,$37AB 309A CD;6B;0B CALL CHAINE ; [PR-STR-4] 309D 3A;83;40 LD A,($4083) 30A0 FE;00 CP $00 30A2 20;0B JR NZ,A7 ; [$30AE] 30A4 01;01;00 LD BC,$0001 30A7 11;8F;37 LD DE,$378F 30AA CD;6B;0B CALL CHAINE ; [PR-STR-4] 30AD 18;09 JR A8 ; [$30B7] @A7 30AF 01;04;00 LD BC,$0004 30B2 11;8A;37 LD DE,$378A 30B5 CD;6B;0B CALL CHAINE ; [BIOS ROM] @A8 30B8 01;0A;0D LD BC,$0D0A 30BB CD;F5;08 CALL CURSEUR ; [PRINT-AT] 30BE 01;0C;00 LD BC,$000C 30C1 11;7E;37 LD DE,$377E 30C4 CD;6B;0B CALL CHAINE ; [PR-STR-4] @A9 30C7 CD;D2;36 CALL TOUCHE 30CA FE;35 CP $35 30CC 20;F9 JR NZ,A9 ; [$30C7] 30CE 3A;83;40 LD A,($4083) 30D1 FE;00 CP $00 30D3 C2;39;31 JP NZ,$3139 @COP2716 30D6 CD;9F;35 CALL $359F 30D9 CD:9C;31 CALL ADBC @A12 30DC 03 INC BC 30DD 0A LD A,(BC) 30DE FE;FF CP $FF 30E0 28;1C JR Z,A11 ; [$30FD] 30E2 32;00;38 LD (ADDPA),A 30E5 79 LD A,C 30E6 32;01;38 LD (ADDPB),A 30E9 78 LD A,B 30EA D6;20 SUB $20 30EC F6;50 OR $50 30EE 32;02;38 LD (ADDPC),A 30F1 F6;80 OR $80 30F3 32;02;38 LD (ADDPC),A 30F6 CD;0F;32 CALL TEMPO1 30F9 E6;7F AND $7F 30FB 32;02;38 LD (ADDPC),A @A11 30FE 21;86;40 LD HL,$4086 3101 78 LD A,B 3102 D6;20 SUB $20 3104 BE CP (HL) 3105 20;D5 JR NZ,A12 ; [$30DC] 3107 23 INC HL 3108 79 LD A,C 3109 BE CP (HL) 310A 20;D0 JR NZ,A12 ; [$30DC] @VES2716 310C CD;B0;35 CALL IV2716 ; [$35B0] 310F CD;9C;31 CALL ADBC @A14 3112 03 INC BC 3113 79 LD A,C 3114 32;01;38 LD (ADDPB),A 3117 78 LD A,B 3118 D6;20 SUB $20 311A F6;20 OR $20 311C 32;02;38 LD (ADDPC),A 311F 3A;00;38 LD A,(ADDPA) 3122 60 LD H,B 3123 69 LD L,C 3124 BE CP (HL) 3125 C2;C8;31 JP NZ,A13 ;$31C8 3128 21;86;40 LD HL,$4086 312B 78 LD A,B 312C D6;20 SUB $20 312E BE CP (HL) 312F 20;E1 JR NZ,A14 ; [$3112] 3131 23 INC HL 3132 79 LD A,C 3133 BE CP (HL) 3134 20;DC JR NZ,A14 ; [$3112] 3136 C3;B2;31 JP A15 @COP2732 @A10 3139 CD;C1;35 CALL IP2732 ; $35C1 313C CD;9C;31 CALL ABDC @A17 313F 03 INC BC 3140 0A LD A,(BC) 3141 FE;FF CP $FF 3143 28;1C JR Z,A16 ; [$3160] 3145 32;00;38 LD (ADDPA),A 3148 79 LD A,C 3149 32;01;38 LD (ADDPB),A 314C 78 LD A,B 314D D6;20 SUB $20 314F F6;C0 OR $C0 3151 32;02;38 LD (ADDPC),A 3154 E6;7F AND $7F 3156 32;02;38 LD (ADDPC),A 3159 CD;0F;32 CALL TEMPO1 315C F6;80 OR $80 315E 32;02;38 LD (ADDPC),A @A16 3161 21;86;40 LD HL,$4086 3164 78 LD A,B 3165 D6;20 SUB $20 3167 BE CP (HL) 3168 20;D5 JR NZ,A17 ; [$313F] 316A 23 INC HL 316B 79 LD A,C 316C BE CP (HL) 316D 20;D0 JR NZ,A17 ; [$313F] @VER2732 316F CD;D2;35 CALL IV2732 3172 CD;9C;31 CALL ADBC @A13 3175 03 INC BC 3176 79 LD A,C 3177 32;01;38 LD (ADDPB),A 317A 78 LD A,B 317B D6;20 SUB $20 317D 00 NOP 317E 00 NOP 317F 32;02;38 LD (ADDPC),A 3182 3A;00;38 LD A,(ADDPA) 3185 60 LD H,B 3186 69 LD L,C 3187 BE CP (HL) 3188 C2;C8;31 JP NZ,A13 ;$31C8 318B 21;86;40 LD HL,$4086 318E 78 LD A,B 318F D6;20 SUB $20 3191 BE CP (HL) 3192 20;E1 JR NZ,A13 ; [$3175] 3194 23 INC HL 3195 79 LD A,C 3196 BE CP (HL) 3197 20;DC JR NZ,A13 ; [$3175] 3199 C3;B2;31 JP @A15 @ADBC 319C 21;85;40 LD HL,$4085 319F 4E LD C,(HL) 31A0 2B DEC HL 31A1 3E;20 LD A,$20 31A3 86 ADD A,(HL) 31A4 47 LD B,A 31A5 0B DEC BC 31A6 C9 RET 31A7 FF RST 38 31A8 FF RST 38 31A9 FF RST 38 31AA FF RST 38 31AB FF RST 38 31AC FF RST 38 31AD FF RST 38 31AE FF RST 38 31AF FF RST 38 31B0 FF RST 38 31B1 FF RST 38 @CCOP @A15 31B2 CD;2A;0A CALL CLEAR ; [CLS] 31B5 01;09;0A LD BC,$0A09 31B8 CD;F5;08 CALL CURSEUR ; [PRINT-AT] 31BB 01;0E;00 LD BC,$000E 31BE 11;64;37 LD DE,$3764 31C1 CD;6B;0B CALL CHAINE ; [PR-STR-4] 31C4 CD;F1;31 CALL INIT 31C7 C9 RET @MCOP @A13 31C8 CD;2A;0A CALL CLEAR ; [CLS] 31CB 01;09;0A LD BC,$0A09 31CE CD;F5;08 CALL CURSEUR ; [PRINT-AT] 31D1 01;0E;00 LD BC,$000E 31D4 11;5B;37 LD DE,$375B 31D7 CD;6B;0B CALL CHAINE ; [PR-STR-4] 31DA CD;F1;31 CALL INIT 31DD C9 RET @AFFCOPIE 31DE CD;2A;0A CALL CLEAR ; [CLS] 31E1 01;0D;0A LD BC,$0A0D 31E4 CD;F5;08 CALL CURSEUR ; [PRINT-AT] 31E7 01;05;00 LD BC,$0005 31EA 11;64;37 LD DE,$3764 31ED CD;6B;0B CALL CHAINE ; [PR-STR-4] 31F0 C9 RET @INIT 31F1 3E;80 LD A,$80 31F3 32;03;38 LD (ADDRC),A 31F6 3E;00 LD A,$00 31F8 32;00;38 LD (ADDPA),A 31FB 32;01;38 LD (ADDPB),A 31FE 3E;A0 LD A,$A0 3200 32;02;38 LD (ADDPC),A 3203 C9 RET @TEMPO2 3204 0E;FF LD C,$FF @A20 3206 06;FF LD B,$FF @A19 3208 05 DEC B 3209 20;FD JR NZ,A19 ; [$3208] 320B 0D DEC C 320C 20;F8 JR NZ,A20 ; [$3206] 320E C9 RET @TEMPO1 320F 1E;0D LD E,$0D @A22 3211 16;FF LD D,$FF @A21 3213 15 DEC D 3214 20;FD JR NZ,A21 ; [$3213] 3216 1D DEC E 3217 20;F8 JR NZ,A22 ; [$3211] 3219 C9 RET @ADF @A23 321A CD;2A;0A CALL CLEAR ; [CLS] 321D 01;01;0A LD BC,$0A01 3220 CD;F5;08 CALL CURSEUR ; [PRINT-AT] 3223 01;11;00 LD BC,$0011 3226 11;4A;37 LD DE,$374A 3229 CD;6B;0B CALL CHAINE ; [PR-STR-4] 322C 21;84;40 LD HL,$4084 322F 36;00 LD (HL),$00 3231 23 INC HL 3232 36;00 LD (HL),$00 3234 23 INC HL 3235 36;00 LD (HL),$00 3237 23 INC HL 3238 36;00 LD (HL),$00 323A CD;D2;36 CALL TOUCHE 323D F5 PUSH AF 323E D6;1C SUB $1C 3240 21;84;40 LD HL,$4084 3243 77 LD (HL),A 3244 F1 POP AF 3245 D7 RST 10 3246 CD;D2;36 CALL TOUCHE 3249 F5 PUSH AF 324A D6;1C SUB $1C 324C 21;85;40 LD HL,$4085 324F 77 LD (HL),A 3250 CB;26 SLA(HL) 3252 CB;26 SLA(HL) 3254 CB;26 SLA(HL) 3256 CB;26 SLA(HL) 3258 F1 POP AF 3259 D7 RST 10 325A CD;D2;36 CALL TOUCHE 325D F5 PUSH AF 325E D6;1C SUB $1C 3260 21;85;40 LD HL,$4085 3263 86 ADD A,(HL) 3264 77 LD (HL),A 3265 F1 POP AF 3266 D7 RST 10 @A24 3267 CD;D2;36 CALL TOUCHE 326A 4F LD C,A 326B 06;2A LD B,$2A 326D B8 CP B 326E 28;AA JR Z,A23 ; [ADF] 3270 79 LD A,C 3271 06;76 LD B,$76 3273 B8 CP B 3274 20;F1 JR NZ,A24 ; [$3267] @A25 3276 01;01;0C LD BC,$0C01 3279 CD;F5;08 CALL CURSEUR ; [PRINT-AT] 327C 01;14;00 LD BC,$0014 327F 11;07;37 LD DE,$3707 3282 CD;6B;0B CALL CHAINE ; [PR-STR-4] 3285 01;01;0C LD BC,$0C01 3288 CD;F5;08 CALL CURSEUR ; [PRINT-AT] 328B 01;11;00 LD BC,$0011 328E 11;39;37 LD DE,$3739 3291 CD;6B;0B CALL CHAINE ; [PR-STR-4] 3294 CD;D2;36 CALL TOUCHE 3297 F5 PUSH AF 3298 D6;1C SUB $1C 329A 21;86;40 LD HL,$4086 329D 77 LD (HL),A 329E F1 POP AF 329F D7 RST 10 32A0 CD;D2;36 CALL TOUCHE 32A3 F5 PUSH AF 32A4 D6;1C SUB $1C 32A6 21;87;40 LD HL,$4087 32A9 77 LD (HL),A 32AA CB;26 SLA (HL) 32AC CB;26 SLA (HL) 32AE CB;26 SLA (HL) 32B0 CB;26 SLA (HL) 32B2 F1 POP AF 32B3 D7 RST 10 32B4 CD;D2;36 CALL TOUCHE 32B7 F5 PUSH AF 32B8 D6;1C SUB $1C 32BA 21;87;40 LD HL,$4087 32BD 86 ADD A,(HL) 32BE 77 LD (HL),A 32BF F1 POP AF 32C0 D7 RST 10 @A26 32C1 CD;D2;36 CALL TOUCHE 32C4 4F LD C,A 32C5 06;2A LD B,$2A 32C7 B8 CP B 32C8 28;AC JR Z,A25 ; [$3276] 32CA 79 LD A,C 32CB 06;76 LD B,$76 32CD B8 CP B 32CE 20;F1 JR NZ,A26 ; [$32C1] 32D0 3E;01 LD A,$01 32D2 21;83;40 LD HL,$4083 32D5 BE CP (HL) 32D6 28;0D JR Z,A27 ; [$32E4] 32D8 3A;86;40 LD A,($4086) 32DB 06;08 LD B,$08 32DD B8 CP B 32DE CA;B6;36 JP Z,ERREUR 32E1 B8 CP B 32E2 D2;B6;36 JP NC,ERREUR @A27 32E5 3A;86;40 LD A,($4086) 32E8 21;84;40 LD HL,$4084 32EB BE CP (HL) 32EC 20;0F JR NZ,A28 ; [$32FC] 32EE 3A;87;40 LD A,($4087) 32F1 21;85;40 LD HL,$4085 32F4 BE CP (HL) 32F5 28;0A JR Z,A29 ; [$3300] 32F7 BE CP (HL) 32F8 DA;B6;36 JP C,ERREUR 32FB 18;04 JR A29 ; [$3300] @A28 32FD BE CP (HL) 32FE DA;B6;36 JP C,ERREUR @A29 3301 CD;04;32 CALL TEMPO2 3304 CD;2A;0A CALL CLEAR ; [CLS] 3307 C9 RET 3308 00 NOP @PGME 3309 CD;6D;36 CALL $366D @A30 330C 3A;88;40 LD A,($4088) 330F 0E;04 LD C,$04 3311 57 LD D,A 3312 87 ADD A,A 3313 82 ADD A,D 3314 81 ADD A,C 3315 4F LD C,A 3316 06;0A LD B,$0A 3318 CD;F5;08 CALL CURSEUR ; [PRINT-AT] 331B 01;03;00 LD BC,$0003 331E 11;1A;37 LD DE,$371A 3321 CD;6B;0B CALL CHAINE ; [PR-STR-4] 3324 3A;88;40 LD A,($4088) 3327 21;8C;40 LD HL,$408C 332A 85 ADD A,L 332B 6F LD L,A 332C E5 PUSH HL 332D CD;D2;36 CALL TOUCHE 3330 E1 POP HL 3331 F5 PUSH AF 3332 D6;1C SUB $1C 3334 77 LD (HL),A 3335 CB;26 SLA (HL) 3337 CB;26 SLA (HL) 3339 CB;26 SLA (HL) 333B CB;26 SLA (HL) 333D 06;0A LD B,$0A 333F 3A;88;40 LD A,($4088) 3342 0E;05 LD C,$05 3344 57 LD D,A 3345 87 ADD A,A 3346 82 ADD A,D 3347 81 ADD A,C 3348 4F LD C,A 3349 CD;F5;08 CALL CURSEUR ; [PRINT-AT] 334C F1 POP AF 334D D7 RST 10 334E 3A;88;40 LD A,($4088) 3351 21;8C;40 LD HL,$408C 3354 85 ADD A,L 3355 6F LD L,A 3356 E5 PUSH HL 3357 CD;D2;36 CALL TOUCHE 335A E1 POP HL 335B F5 PUSH AF 335C D6;1C SUB $1C 335E 86 ADD A,(HL) 335F 77 LD (HL),A 3360 F1 POP AF 3361 D7 RST 10 @A31 3362 CD;D2;36 CALL TOUCHE 3365 4F LD C,A 3366 06;2A LD B,$2A 3368 B8 CP B 3369 28;A1 JR Z,A30 ; [$330C] 336B 79 LD A,C 336C 06;76 LD B,$76 336E B8 CP B 336F 20;F1 JR NZ,A31 ; [$3362] 3371 21;88;40 LD HL,$4088 3374 34 INC (HL) 3375 CD;21;36 CALL INCAD 3378 C3;02;36 JP COMP1 @A47 337B 21;88;40 LD HL,$4088 337E 3E;08 LD A,$08 3380 BE CP (HL) 3381 C2;0C;33 JP NZ,A30 3384 CD;37;36 CALL INIT2PGM @A32 3387 3A;88;40 LD A,($4088) 338A 0E;04 LD C,$04 338C D6;08 SUB $08 338E 57 LD D,A 338F 87 ADD A,A 3390 82 ADD A,D 3391 81 ADD A,C 3392 4F LD C,A 3393 06;0C LD B,$0C 3395 CD;F5;08 CALL CURSEUR ; [PRINT-AT] 3398 01;03;00 LD BC,$0003 339B 11;1A;37 LD DE,$371A 339E CD;6B;0B CALL CHAINE ; [BIOS ROM] 33A1 3A;88;40 LD A,($4088) 33A4 21;8C;40 LD HL,$408C 33A7 85 ADD A,L 33A8 6F LD L,A 33A9 E5 PUSH HL 33AA CD;D2;36 CALL TOUCHE 33AD E1 POP HL 33AE F5 PUSH AF 33AF D6;1C SUB $1C 33B1 77 LD (HL),A 33B2 CB;26 SLA (HL) 33B4 CB;26 SLA (HL) 33B6 CB;26 SLA (HL) 33B8 CB;26 SLA (HL) 33BA 06;0C LD B,$0C 33BC 3A;88;40 LD A,($4088) 33BF D6;08 SUB $08 33C1 0E;05 LD C,$05 33C3 57 LD D,A 33C4 87 ADD A,A 33C5 82 ADD A,D 33C6 81 ADD A,C 33C7 4F LD C,A 33C8 CD;F5;08 CALL CURSEUR ; [PRINT-AT] 33CB F1 POP AF 33CC D7 RST 10 33CD 3A;88;40 LD A,($4088) 33D0 21;8C;40 LD HL,$408C 33D3 85 ADD A,L 33D4 6F LD L,A 33D5 E5 PUSH JL 33D6 CD;D2;36 CALL TOUCHE 33D9 E1 POP HL 33DA F5 PUSH AF 33DB D6;1C SUB $1C 33DD 86 ADD A,(HL) 33DE 77 LD (HL),A 33DF F1 POP AF 33E0 D7 RST 10 @A33 33E1 CD;D2;36 CALL TOUCHE 33E4 4F LD C,A 33E5 06;2A LD B,$2A 33E7 B8 CP B 33E8 28;9D JR Z,A32 ; [$3387] 33EA 79 LD A,C 33EB 06;76 LD B,$76 33ED B8 CP B 33EE 20;F1 JR NZ,A33 ; [$33E1] 33F0 21;88;40 LD HL,$4088 33F3 34 INC (HL) 33F4 CD;21;36 CALL INCAD 33F7 C3;E3;35 JP $35E3 @A44 33FA 21;88;40 LD HL,$4088 33FD 3E;10 LD A,$10 33FF BE CP (HL) 3400 C2;87;33 JP NZ,A32 3403 C3;0E;34 JP A34 3406 C3;09;33 JP PGME @A43 3409 21;82;40 LD HL,$4082 340C 36;00 LD (HL),$00 @A34 340E 3A;83;40 LD A,($4083) 3411 FE;00 CP $00 3413 C2;8A;34 JP NZ,$348A @ECR2716 3416 CD;9F;35 CALL $359F 3419 3A;84;40 LD A,($4084) 341C 67 LD H,A 341D 3A;85;40 LD A,($4085) 3420 6F LD L,A 3421 06;40 LD B,$40 3423 3A;88;40 LD A,($4088) 3426 C6;8C ADD A,$8C 3428 4F LD C,A @A35 3429 2B DEC HL 342A 0B DEC BC 342B 0A LD A,(BC) 342C 32;00;38 LD (ADDPA),A 342F 7D LD A,L 3430 32;01;38 LD (ADDPB),A 3433 7C LD A,H 3434 F6;50 OR $50 3436 32;02;38 LD (ADDPC),A 3439 F6;80 OR $80 343B 32;02;38 LD (ADDPC),A 343E CD;0F;32 CALL TEMPO1 3441 E6;7F AND $7F 3443 32;02;38 LD (ADDPC),A 3446 79 LD A,C 3447 FE;8C CP $8C 3449 20;DE JR NZ,A35 ; [$3429] @VER2716 344B CD;B0;35 CALL $35B0 344E 3A;84;40 LD A,($4084) 3451 47 LD B,A 3452 3A;85;40 LD A,($4085) 3455 4F LD C,A 3456 26;40 LD H,$40 3458 3A;88;40 LD A,($4088) 345B C6;8C ADD A,$8C 345D 6F LD L,A @A37 345E 0B DEC BC 345F 2B DEC HL 3460 79 LD A,C 3461 32;01;38 LD (ADDPB),A 3464 78 LD A,B 3465 F6;20 OR $20 3467 32;02;38 LD (ADDPC),A 346A 3A;00;38 LD A,(ADDPA) 346D BE CP (HL) 346E 28;03 JR Z,A36 ; [$3472] 3470 C3;C8;31 JP A14 @A36 3473 7D LD A,L 3474 FE;8C CP $8C 3476 20;E6 JR NZ,A37 ; [$345E] 3478 CD;2A;0A CALL CLEAR ; [CLS] 347B CD;F1;31 CALL INIT 347E 3E;00 LD A,$00 3480 21;82;40 LD HL,$4082 3483 BE CP (HL) 3484 C2;09;33 JP NZ,PGME 3487 C3;B2;31 JP A15 @ECR2732 348A CD;C1;35 CALL $35C1 348D 3A;84;40 LD A,($4084) 3490 67 LD H,A 3491 3A;85;40 LD A,($4085) 3494 6F LD L,A 3495 06;40 LD B,$40 3497 3A;88;40 LD A,($4088) 349A C6;8C ADD A,$8C 349C 4F LD C,A @A38 349D 2B DEC HL 349E 0B DEC BC 349F 0A LD A,(BC) 34A0 32;00;38 LD (ADDPA),A 34A3 7D LD A,L 34A4 32;01;38 LD (ADDPB),A 34A7 7C LD A,H 34A8 F6;C0 OR $C0 34AA 32;02;38 LD (ADDPC),A 34AD E6;7F AND $7F 34AF 32;02;38 LD (ADDPC),A 34B2 CD;0F;32 CALL TEMPO1 34B5 F6;80 OR $80 34B7 32;02;38 LD (ADDPC),A 34BA 79 LD A,C 34BB FE;8C CP $8C 34BD 20;DE JR NZ,A38 ; [$349D] @VER2732 34BF CD;D2;35 CALL IV2732 34C2 3A;84;40 LD A,($4084) 34C5 47 LD B,A 34C6 3A;85;40 LD A,($4085) 34C9 4F LD C,A 34CA 26;40 LD H,$40 34CC 3A;88;40 LD A,($4088) 34CF C6;8C ADD A,$8C 34D1 6F LD L,A @A40 34D2 0B DEC BC 34D3 2B DEC HL 34D4 79 LD A,C 34D5 32;01;38 LD (ADDPB),A 34D8 78 LD A,B 34D9 00 NOP 34DA 00 NOP 34DB 32;02;38 LD (ADDPC),A 34DE 3A;00;38 LD A,(ADDPA) 34E1 BE CP (HL) 34E2 28;03 JR Z,A39 ; [$34E6] 34E4 C3;C8;31 JP A13 @A39 34E7 7D LD A,L 34E8 FE;8C CP $8C 34EA 20;E6 JR NZ,A40 ; [$34D2] 34EC CD;2A;0A CALL CLEAR ; [CLS] 34EF CD;F1;31 CALL INIT 34F2 3E;00 LD A,$00 34F4 21;82;40 LD HL,$4082 34F7 BE CP (HL) 34F8 C2;09;33 JP NZ,PGME 34FB C3;B2;31 JP A15 ; [] 34FE FF RST 38 34FF FF RST 38 3500 FF RST 38 3501 FF RST 38 3502 CD;2A;0A CALL CLEAR ; [CLS] 3505 01;00;07 LD BC,$0700 3508 CD;F5;08 CALL CURSEUR ; [PRINT-AT] 350B 01;1F;00 LD BC,$001F 350E 11;56;35 LD DE,$3556 3511 CD;6B;0B CALL CHAINE ; [PR-STR-4] 3514 01;09;09 LD BC,$0909 3517 CD;F5;08 CALL CURSEUR ; [PRINT-AT] 351A 01;0D;00 LD BC,$000D 351D 11;75;35 LD DE,$3575 3520 CD;6B;0B CALL CHAINE ; [PR-STR-4] 3523 01;01;0B LD BC,$0B01 3526 CD;F5;08 CALL CURSEUR ; [PRINT-AT] 3529 01;1D;00 LD BC,$001D 352C 11;82;35 LD DE,$3582 352F CD;6B;0B CALL CHAINE ; [PR-STR-4] 3532 1E;03 LD E,$03 @A51 3534 CD;04;32 CALL TEMPO2 3537 1D DEC E 3538 20;FA JR NZ,A51 ; [$3534] 353A C3;00;30 JP $3000 ;"MICRO-SYSTEMES" 353D 32;2E;28;37;34;16;38;3E;38;39 ADD HL,SP 3547 2A;32;2A;38 354B FF 354C FF RST 38 354D FF RST 38 354E FF RST 38 354F FF RST 38 3550 FF RST 38 3551 FF RST 38 3552 FF RST 38 3553 FF RST 38 3554 FF RST 38 3555 FF RST 38 ;"INTERFACE UNIVERSELLE POUR ZX81" 3556 2E 33 39 2A 37 2B 26 28 355E 2A 00 3A 33 2E 3B 2A 37 38 3567 2A 31 31 2A 00 35 34 3A 37 00 3571 3F 3D 24 1D ;"MICRO-SYSTEME" 3575 32 2E 28 37 34 16 38 3E 38 357E 39 2A 32 2A ;"AUTEURS: JC.JAGOT,D.PELLETIER" 3582 26 3A 39 2A 3A 37 38 0E 358A 00 2F 28 1B 2F 26 2C 34 3592 39 1A 29 1B 35 2A 31 31 359A 2A 39 2E 2A 37 @IP2716 359F CD;DE;31 CALL $31DE 35A2 3E;80 LD A,$80 35A4 32;03;38 LD (ADDRC),A 35A7 3E;50 LD A,$50 35A9 32;02;38 LD (ADDPC),A 35AC CD;0F;32 CALL TEMPO1 35AF C9 RET @IV2716 35B0 CD;EA;36 CALL $36EA 35B3 3E;90 LD A,$90 35B5 32;03;38 LD (ADDRC),A 35B8 3E;20 LD A,$20 35BA 32;02;38 LD (ADDPC),A 35BD CD;0F;32 CALL TEMPO1 35C0 C9 RET @IP2732 35C1 CD;DE;31 CALL $31DE 35C4 3E;80 LD A,$80 35C6 32;03;38 LD (ADDRC),A 35C9 3E;C0 LD A,$C0 35CB 32;02;38 LD (ADDPC),A 35CE CD;0F;32 CALL TEMPO1 35D1 C9 RET @IV2732 35D2 CD;EA;36 CALL $36EA 35D5 3E;90 LD A,$90 35D7 32;03;38 LD (ADDRC),A 35DA 3E;00 LD A,$00 35DC 32;02;38 LD (ADDPC),A 35DF CD;0F;32 CALL TEMPO1 35E2 C9 RET @COMP2 35E3 3A;86;40 LD A,($4086) 35E6 21;84;40 LD HL,$4084 35E9 BE CP (HL) 35EA 20;0F JR NZ,+16 ; [$35FA] 35EC 3A;87;40 LD A,($4087) 35EF 21;85;40 LD HL,$4085 35F2 BE CP (HL) 35F3 28;0A JR Z,+11 ; [$35FE] 35F5 BE CP (HL) 35F6 DA;09;34 JP C,$3409 35F9 18;04 JR +5 ; [$35FE] @A41 35FB BE CP (HL) 35FC DA;09;34 JP C,$3409 @A42 35FF C3;FA;33 JP $33FA @COMP1 3602 3A;86;40 LD A,($4086) 3605 21;84;40 LD HL,$4084 3608 BE CP (HL) 3609 20;0F JR NZ,+16 ; [$3619] 360B 3A;87;40 LD A,($4087) 360E 21;85;40 LD HL,$4085 3611 BE CP (HL) 3612 28;0A JR Z,+11 ; [$361D] 3614 BE CP (HL) 3615 DA;09;34 JP C,$3409 3618 18;04 JR +5 ; [$361D] @A45 361A BE CP (HL) 361B DA;09;34 JP C,$3409 @A46 361E C3;7B;33 JP $337B @INCAD 3621 3A;85;40 LD A,($4085) 3624 06;FF LD B,$FF 3626 B8 CP B 3627 20;09 JR NZ,+10 ; [$3631] 3629 21;85;40 LD HL,$4085 362C 36;00 LD (HL),$00 362E 2B DEC HL 362F 34 INC (HL) 3630 18;04 JR +5 ; [$3635] @A47 3632 21;85;40 LD HL,$4085 3635 34 INC (HL) @A48 3636 C9 RET @INIT2PGM 3637 3A;84;40 LD A,($4084) 363A C6;1C ADD A,$1C 363C 21;89;40 LD HL,$4089 363F 77 LD (HL),A 3640 3A;85;40 LD A,($4085) 3643 CB;3F SRL A 3645 CB;3F SRL A 3647 CB;3F SRL A 3649 CB;3F SRL A 364B C6;1C ADD A,$1C 364D 21;8A;40 LD HL,$408A 3650 77 LD (HL),A 3651 3A;85;40 LD A,($4085) 3654 E6;0F AND $0F 3656 C6;1C ADD A,$1C 3658 21;8B;40 LD HL,$408B 365B 77 LD (HL),A 365C 06;0C LD B,$0C 365E 0E;01 LD C,$01 3660 CD;F5;08 CALL CURSEUR ; [PRINT-AT] 3663 01;03;00 LD BC,$0003 3666 11;89;40 LD DE,$4089 3669 CD;6B;0B CALL CHAINE ; [PR-STR-4] 366C C9 RET @INIT1PGM 366D 06;10 LD B,$10 366F 21;8C;40 LD HL,$408C 3672 36;FF LD (HL),$FF 3674 23 INC HL 3675 05 DEC B 3676 20;FA JR NZ,-5 ; [$3672] 3678 CD;2A;0A CALL CLEAR ; [CLS] 367B 21;88;40 LD HL,$4088 367E 36;00 LD (HL),$00 3680 3A;84;40 LD A,($4084) 3683 C6;1C ADD A,$1C 3685 21;89;40 LD HL,$4089 3688 77 LD (HL),A 3689 3A;85;40 LD A,($4085) 368C CB;3F SRL A 368E CB;3F SRL A 3690 CB;3F SRL A 3692 CB;3F SRL A 3694 C6;1C ADD A,$1C 3696 21;8A;40 LD HL,$408A 3699 77 LD (HL),A 369A 3A;85;40 LD A,($4085) 369D E6;0F AND $0F 369F C6;1C ADD A, $1C 36A1 21;8B;40 LD HL,$408B 36A4 77 LD (HL),A 36A5 06;0A LD B,$0A 36A7 0E;01 LD C,$01 36A9 CD;F5;08 CALL CURSEUR ; [PRINT-AT] 36AC 01;03;00 LD BC,$0003 36AF 11;89;40 LD DE,$4089 36B2 CD;6B;0B CALL CHAINE ; [PR-STR-4] 36B5 C9 RET @ERREUR 36B6 CD;04;32 CALL TEMPO2 36B9 CD;2A;0A CALL CLEAR ; [CLS] 36BC 06;0A LD B,$0A 36BE 0E;01 LD C,$01 36C0 CD;F5;08 CALL CURSEUR ; [PRINT-AT] 36C3 01;1C;00 LD BC,$001C 36C6 11;1D;37 LD DE,$371D 36C9 CD;6B;0B CALL CHAINE ; [PR-STR-4] 36CC CD;04;32 CALL TEMPO2 36CF C3;1A;32 JP ADF @TOUCHE 36D2 CD;BB;02 CALL $02BB ; [KEYBOARD] 36D5 7C LD A,H 36D6 A5 AND A,L 36D7 3C INC A 36D8 20;F8 JR NZ,TOUCHE ; [TOUCHE] 36DA 00 NOP @A50 36DB CD;BB;02 CALL $02BB ; [KEYBOARD] 36DE 7C LD A,H 36DF A5 AND A,L 36E0 3C INC A 36E1 28;F8 JR Z,A50 ; [$36D3] 36E3 E5 PUSH HL 36E4 C1 POP BC 36E5 CD;BD;07 CALL DECODE ; [DECODE] 36E8 7E LD A,(HL) 36E9 C9 RET @AFFVERIF 36EA CD;2A;0A CALL CLEAR ; [CLS] 36ED 01;0A;0A LD BC,$0A0A 36F0 CD;F5;08 CALL CURSEUR ; [PRINT-AT] 36F3 01;0C;00 LD BC,$000C 36F6 11;72;37 LD DE,$3772 36F9 CD;6B;0B CALL CHAINE ; [PR-STR-4] 36FC CD;04;32 CALL TEMPO2 36FF C9 RET DATAS: 3700 FF FF FF FF FF FF FF 3707 00 00 00 00 00 00 00 370E 00 00 00 00 00 00 3714 00 00 00 00 00 00 00 ;"XXADRESSES FAUSSES." 371B 3D 3D 26 29 37 2A 38 38 3723 2A 38 00 2B 26 3A 38 38 372B 2A 38 1B ;"RECOMMENCEZ" 372E 37 2A 28 34 32 32 2A 33 3736 28 2A 3F ;"ADRESSE DE FIN :" 3739 26 29 37 2A 38 38 2A 00 3741 29 2A 00 2B 2E 33 00 00 3749 0E ;"ADRESSE DE DEBUT:" 374A 26 29 37 2A 38 38 2A 00 3752 29 2A 00 29 2A 27 3A 39 375A 0E ;"MAUVAISE" 375B 32 26 3A 3B 26 2E 38 2A ;" COPIE " 3763 00 28 34 35 2E 2A 00 ;"CONFORME" 376A 28 34 33 2B 34 37 32 2A ;"VERIFICATION" 3772 3B 2A 37 2E 2B 2E 28 3779 26 39 2E 34 ;"PUIS TAPEZ:P2732716" ;"PLACEZ LE CAVAL" ;"IER TB1 DANS " ;"LA POSITION 273" ;"2,TAPEZ:42716,TA" ;"PEZ:2PROGRAMMATI" ;"ON,TAPEZ:P" 377D 33 35 3A 2E 38 00 39 3784 26 35 2A 3F 0E B5 9E 378B A3 9F 9E A3 9D A2 35 3792 31 26 28 2A 3F 00 3798 31 2A 00 28 26 3B 379E 26 31 2E 2A 37 00 37A4 39 27 1D 00 00 00 37AA 00 29 26 33 38 00 37B0 31 26 00 37B3 35 34 38 2E 39 2E 34 37BA 33 00 00 1E 23 37BF 1F 1E 1A 37C2 39 26 35 2A 3F 0E 37C8 A0 1E 23 1D 22 1A 37CE 39 26 35 2A 3F 0E 9E 37D5 35 37 34 2C 37 26 32 37DC 32 26 39 2E 34 33 1A 37E3 39 26 35 2A 3F 0E B5 ;"MAUVAISE COPIE,TAPEZ:C" 37EA 32 26 3A 3B 26 2E 37F0 38 2A 00 28 34 35 37F6 2E 2A 1A 39 26 35 37FC 2A 3F 0E A8