VG5000 rom v1.1 utilisée par DCVG5K Partiellement commentée par l'auteur ------------------------------------ Rajout de commentaires en juin 2016 par Joaopa sur les routines entrées/sorties ---------------------------------- Initialisation du VG5000 ---------------------------------- 0000 c30010 jp 1000h 0003 cd312e3100 .1.1. n° de version ---------------------------------- Verifie le caractere pointe par HL ---------------------------------- 0008 7e ld a,(hl) 0009 e3 ex (sp),hl 000a be cp (hl) 000b 23 inc hl 000c e3 ex (sp),hl 000d c23822 jp nz,2238h ---------------------------------- Lecture caractere pointe par HL+1 ---------------------------------- 0010 23 inc hl 0011 7e ld a,(hl) 0012 fe3a cp 3ah 0014 d0 ret nc 0015 c32c25 jp 252ch ---------------------------------- Envoi caractere de A vers periph. ---------------------------------- 0018 c3d03b jp 3bd0h controleur entrees/sorties Basic 001b c3850d jp 0d85h definition caractere 001e ff 001f 00 ---------------------------------- Comparaison HL et DE ---------------------------------- 0020 7c ld a,h 0021 92 sub d 0022 c0 ret nz 0023 7d ld a,l 0024 93 sub e 0025 c9 ret 0026 39 add hl,sp 0027 fc3ae9 call m,0e93ah ---------------------------------- Routine calcul virgule flottante ---------------------------------- 0028 3ae949 ld a,(49e9h) 002b b7 or a 002c c29a05 jp nz,059ah 002f c9 ret ---------------------------------- Routine utilisateur adresse 47DC ---------------------------------- 0030 c3dc47 jp 47dch routine utilisateur RST ---------------------------------- Redemarrage a chaud ---------------------------------- 0033 c32211 jp 1122h 0036 ff 0037 ff ---------------------------------- Interruption masquable (IRQ) ---------------------------------- 0038 cdd047 call 47d0h routine utilisateur 003b f5 push af 003c dd3500 dec (ix+00h) compteur d'interruptions pour 003f c28601 jp nz,0186h le rafraichissement de l'ecran 0042 dd7e02 ld a,(ix+02h) valeur de reference compteur interruptions 0045 dd7700 ld (ix+00h),a 0048 ddcb0146 bit 0,(ix+01h) flag si l'ecran doit etre rafraichi (47FB) 004c ddcb0186 res 0,(ix+01h) 0050 ca8601 jp z,0186h 0053 c5 push bc 0054 d5 push de 0055 e5 push hl --------------------------------- Affichage de l'écran --------------------------------- 0056 3e28 ld a,28h 28=Command register + exec request 0058 d38f out (8fh),a 005a 3e82 ld a,82h 82=Indirect 005c d3cf out (0cfh),a 005e 3e29 ld a,29h 29=Data register R1 + exec request 0060 d38f out (8fh),a 0062 c3bc00 jp 00bch 0065 ff -------------------------------- Interruption NMI -------------------------------- 0066 c3ee47 jp 47eeh input 0069 3e01 ld a,01h 006b 329048 ld (4890h),a 006e 21b912 ld hl,12b9h 0071 229148 ld (4891h),hl 0074 ed45 retn 0076 ff rst 38h 0077 ff rst 38h 0078 ff rst 38h 0079 ff rst 38h 007a ff rst 38h 007b ff rst 38h 007c ff rst 38h 007d ff rst 38h 007e ff rst 38h 007f ff rst 38h 0080 c30f2a jp 2a0fh retour routine USR 0083 c35225 jp 2552h acquisition parametre sur 2 octets 0086 c3a52a jp 2aa5h acquisition parametre sur 1 octet 0089 c34d28 jp 284dh acquisition parametre signe sur 2 octets 008c c3a70c jp 0ca7h emission d'un son 008f c3870a jp 0a87h joue une melodie 0092 c38c01 jp 018ch affichage caractere en X, Y 0095 c39a01 jp 019ah affichage caractere position curseur 0098 c3c401 jp 01c4h lecture caratere en X, Y 009b c3d201 jp 01d2h lecture caractere position curseur 009e c35502 jp 0255h efface l'ecran et initialise couleurs 00a1 c36502 jp 0265h efface ligne et initialise couleurs 00a4 c38602 jp 0286h attente circuit video disponible 00a7 c39102 jp 0291h calcul adresse ecran en X, Y 00aa c3a702 jp 02a7h scrutation clavier 00ad c3ef02 jp 02efh lecture registres processeur video 00b0 c3f90e jp 0ef9h scrute joysticks (haut/bas) 00b3 c3c30e jp 0ec3h scrute joysticks (droite/gauche) 00b6 c32e0f jp 0f2eh scrute joysticks (action1/action2) 00b9 c37f3c jp 3c7fh scrute touches SHIFT / STOP -------------------------------------- Affichage de l'ecran (suite) -------------------------------------- 00bc dd7e03 ld a,(ix+03h) couleur bordure et aspect curseur 00bf e6bf and 0bfh 00c1 d3cf out (0cfh),a ecriture dans R1 + commande IND 00c3 0ecf ld c,0cfh 00c5 3e26 ld a,26h 26=Main pointer R6 (Y) 00c7 d38f out (8fh),a 00c9 af xor a 00ca ed79 out (c),a raz de Y 00cc 3e27 ld a,27h 27=Main pointer R7 (X) 00ce d38f out (8fh),a 00d0 af xor a 00d1 ed79 out (c),a raz de X ------------------------------------- Envoi de la premiere ligne de l'ecran ------------------------------------- 00d3 210040 ld hl,4000h adresse memoire ecran 00d6 1e03 ld e,03h 00d8 0650 ld b,50h compteur d'octets a envoyer = 80 00da 3e20 ld a,20h 00dc d38f out (8fh),a 20=Command register 00de ed59 out (c),e KRG ecriture en memoire avec increment 00e0 3e22 ld a,22h <---- 22=Data register R2 00e2 d38f out (8fh),a | 00e4 eda3 outi | envoi de (hl++) = attribut 00e6 3e29 ld a,29h | 29=Data register R1 + exec request 00e8 d38f out (8fh),a | 00ea eda3 outi | envoi de (hl++) = caractere 00ec 20f2 jr nz,00e0h -- 00ee 3e26 ld a,26h 26=Main pointer R6 (Y) 00f0 d38f out (8fh),a 00f2 3e08 ld a,08h 00f4 ed79 out (c),a 00f6 3e27 ld a,27h 27=Main pointer R7 (X) 00f8 d38f out (8fh),a 00fa af xor a 00fb ed79 out (c),a -------------------------- Envoi des lignes suivantes -------------------------- 00fd 1618 ld d,18h nombre de lignes à envoyer = 24 00ff 0678 ld b,78h <--------------------------- boucle 0101 3e20 ld a,20h 0103 d38f out (8fh),a 20=Status 0105 dbcf in a,(0cfh) <- 0107 b7 or a | 0108 fa0501 jp m,0105h --- 010b 3e20 ld a,20h 010d d38f out (8fh),a 20=Command register 010f ed59 out (c),e KRG ecriture en memoire avec increment 0111 3e20 ld a,20h <------ 0113 d38f out (8fh),a | 20=Status 0115 dbcf in a,(0cfh) <- | 0117 b7 or a | | 0118 fa1501 jp m,0115h --- | 011b 3e22 ld a,22h | 011d d38f out (8fh),a | 22=Data register R2 011f eda3 outi | envoi de (hl++) = attribut 0121 3e29 ld a,29h | 0123 d38f out (8fh),a | 29=Data register R1 + exec request 0125 eda3 outi | envoi de (hl++) = caractere 0127 10e8 djnz 0111h ------- 0129 3e20 ld a,20h 012b d38f out (8fh),a 20=Status 012d dbcf in a,(0cfh) <- 012f b7 or a | 0130 fa2d01 jp m,012dh --- 0133 3e28 ld a,28h 0135 d38f out (8fh),a 28=Command register + exec request 0137 3eb0 ld a,0b0h 0139 ed79 out (c),a INY = increment Y 013b 15 dec d 013c 20c1 jr nz,00ffh ------------------------------> boucle 013e ddcb0376 bit 6,(ix+03h) 0142 283f jr z,0183h -------> fin 0144 2a0548 ld hl,(4805h) 0147 7c ld a,h 0148 b7 or a 0149 2803 jr z,014eh - 014b c607 add a,07h | 014d 67 ld h,a | 014e 0ecf ld c,0cfh <- 0150 3e26 ld a,26h 0152 d38f out (8fh),a 26=Main pointer R6 (Y) 0154 ed61 out (c),h 0156 3e27 ld a,27h 27=Main pointer R7 (X) 0158 d38f out (8fh),a 015a ed69 out (c),l 015c 3e28 ld a,28h 015e d38f out (8fh),a 28=Command register + exec request 0160 3e0a ld a,0ah 0162 ed79 out (c),a KRG=write sans increment 0164 3e20 ld a,20h 20=Command register 0166 d38f out (8fh),a 0168 dbcf in a,(0cfh) <- 016a b7 or a | 016b fa6801 jp m,0168h --- 016e 3e28 ld a,28h 28=Command register + exec request 0170 d38f out (8fh),a 0172 3e82 ld a,82h 0174 d3cf out (0cfh),a IND=Indirect read R2 0176 3e29 ld a,29h 29=Data register R1 + exec request 0178 d38f out (8fh),a 017a ddcb03f6 set 6,(ix+03h) 017e dd7e03 ld a,(ix+03h) 0181 d3cf out (0cfh),a 0183 e1 pop hl <----- fin de l'affichage 0184 d1 pop de 0185 c1 pop bc 0186 dd3406 inc (ix+06h) <------ sortie sans affichage 0189 f1 pop af 018a fb ei enable interrupts 018b c9 ret ------------------------------------ position curseur en Y=h, X=l ------------------------------------ 018c 0ecf ld c,0cfh 018e 3e26 ld a,26h 26=Main pointer R6 (Y) 0190 d38f out (8fh),a 0192 ed61 out (c),h 0194 3e27 ld a,27h 27=Main pointer R7 (X) 0196 d38f out (8fh),a 0198 ed69 out (c),l ------------------------------------ affichage caractere position curseur ------------------------------------ 019a 01cf03 ld bc,03cfh 019d 3e20 ld a,20h 20=Command register 019f d38f out (8fh),a 01a1 dbcf in a,(0cfh) <- attente EF9345 prêt 01a3 b7 or a | 01a4 faa101 jp m,01a1h --- 01a7 3e22 ld a,22h 22=Data register R2 01a9 d38f out (8fh),a 01ab ed51 out (c),d envoi de d 01ad 3e20 ld a,20h 20=Command register 01af d38f out (8fh),a 01b1 dbcf in a,(0cfh) <- attente EF9345 prêt 01b3 b7 or a | 01b4 fab101 jp m,01b1h --- 01b7 3e21 ld a,21h 21=Data register R1 01b9 d38f out (8fh),a 01bb ed59 out (c),e envoi de e 01bd 3e28 ld a,28h 28=Command register + exec request 01bf d38f out (8fh),a 01c1 ed41 out (c),b 03 = ecriture mode 40 car. 16 bits 01c3 c9 ret ---------------------------------- position curseur en Y=h, X=l ---------------------------------- 01c4 0ecf ld c,0cfh 01c6 3e26 ld a,26h 26=Main pointer R6 (Y) 01c8 d38f out (8fh),a 01ca ed61 out (c),h 01cc 3e27 ld a,27h 27=Main pointer R7 (X) 01ce d38f out (8fh),a 01d0 ed69 out (c),l ---------------------------------- lecture caractere position curseur ---------------------------------- 01d2 01cf0b ld bc,0bcfh 01d5 3e28 ld a,28h 28=Command register + exec request 01d7 d38f out (8fh),a 01d9 ed41 out (c),b 0b = lecture mode 40 car. 16 bits 01db 3e20 ld a,20h 20=Command register 01dd d38f out (8fh),a 01df dbcf in a,(0cfh) <- attente EF9345 prêt 01e1 b7 or a | 01e2 fadf01 jp m,01dfh --- 01e5 3e22 ld a,22h 22=Data register R2 01e7 d38f out (8fh),a 01e9 ed50 in d,(c) lecture dans d 01eb 3e20 ld a,20h 20=Command register 01ed d38f out (8fh),a 01ef dbcf in a,(0cfh) <- attente EF9345 prêt 01f1 b7 or a | 01f2 faef01 jp m,01efh --- 01f5 3e21 ld a,21h 21=Data register R1 01f7 d38f out (8fh),a 01f9 ed58 in e,(c) lecture dans e 01fb c9 ret 01fc ddb60a or (ix+0ah) 01ff 2a0548 ld hl,(4805h) 0202 e5 push hl 0203 f5 push af 0204 cd9102 call 0291h 0207 f1 pop af 0208 77 ld (hl),a 0209 dd7e08 ld a,(ix+08h) 020c 23 inc hl 020d 77 ld (hl),a 020e 23 inc hl 020f eb ex de,hl 0210 217148 ld hl,4871h 0213 cb96 res 2,(hl) 0215 e1 pop hl 0216 7d ld a,l 0217 fe27 cp 27h 0219 3835 jr c,0250h 021b 2e00 ld l,00h 021d 24 inc h 021e 7c ld a,h 021f fe19 cp 19h 0221 381e jr c,0241h 0223 25 dec h 0224 3a7148 ld a,(4871h) 0227 cbf7 set 6,a 0229 327148 ld (4871h),a 022c cb7f bit 7,a 022e 2020 jr nz,0250h 0230 e5 push hl 0231 cdad35 call 35adh 0234 3e18 ld a,18h 0236 cd6502 call 0265h 0239 e1 pop hl 023a dd360001 ld (ix+00h),01h 023e 118047 ld de,4780h 0241 3a7148 ld a,(4871h) 0244 cb47 bit 0,a 0246 2808 jr z,0250h 0248 cbd7 set 2,a 024a 327148 ld (4871h),a 024d 3e84 ld a,84h 024f 12 ld (de),a 0250 2c inc l 0251 220548 ld (4805h),hl 0254 c9 ret ------------------------------------- efface l'ecran et initialise couleurs ------------------------------------- 0255 af xor a 0256 cd6502 call 0265h 0259 210040 ld hl,4000h 025c 115040 ld de,4050h 025f 018007 ld bc,0780h 0262 edb0 ldir boucle d'effacement 0264 c9 ret ------------------------------------- efface ligne et initialise couleurs ------------------------------------- 0265 2e00 ld l,00h 0267 67 ld h,a 0268 cd9102 call 0291h 026b 3680 ld (hl),80h 026d dd7e09 ld a,(ix+09h) 0270 23 inc hl 0271 77 ld (hl),a 0272 dd4e08 ld c,(ix+08h) 0275 23 inc hl 0276 3e20 ld a,20h 0278 cb79 bit 7,c 027a 2801 jr z,027dh 027c af xor a 027d 0627 ld b,27h 027f 77 ld (hl),a 0280 23 inc hl 0281 71 ld (hl),c 0282 23 inc hl 0283 10fa djnz 027fh 0285 c9 ret ---------------------------------- Attente EF9345 prêt ---------------------------------- 0286 3e20 ld a,20h 20=Command register 0288 d38f out (8fh),a 028a dbcf in a,(0cfh) <- 028c b7 or a | 028d fa8a02 jp m,028ah --- 0290 c9 ret --------------------------------- calcul adresse ecran en X, Y --------------------------------- 0291 4d ld c,l X 0292 6c ld l,h Y 0293 2600 ld h,00h 0295 29 add hl,hl hl = 2 * Y 0296 29 add hl,hl hl = 4 * Y 0297 29 add hl,hl hl = 8 * Y 0298 54 ld d,h 0299 5d ld e,l de = 8 * Y 029a 29 add hl,hl 029b 29 add hl,hl hl = 32 * Y 029c 19 add hl,de hl = 40 * Y 029d 29 add hl,hl hl = 80 * Y 029e 0600 ld b,00h 02a0 09 add hl,bc hl = 80 * Y + X 02a1 09 add hl,bc hl = 80 * Y + 2 * X 02a2 010040 ld bc,4000h 02a5 09 add hl,bc hl = 0x4000 + 80 * Y + 2 * X 02a6 c9 ret -------------------------------- scrutation clavier -------------------------------- 02a7 018707 ld bc,0787h 02aa ed78 in a,(c) <---- 02ac 2f cpl | 02ad b7 or a | 02ae 2008 jr nz,02b8h --|- 02b0 0d dec c | | 02b1 10f7 djnz 02aah ----- | 02b3 ed78 in a,(c) | 02b5 2f cpl | 02b6 e6bb and 0bbh | 02b8 282a jr z,02e4h -----|--> fin 02ba 0607 ld b,07h <----- 02bc 87 add a,a <-- 02bd 3802 jr c,02c1h --|-- 02bf 10fb djnz 02bch ---- | 02c1 78 ld a,b <------ 02c2 87 add a,a 02c3 87 add a,a 02c4 87 add a,a 02c5 81 add a,c 02c6 d680 sub 80h 02c8 0e80 ld c,80h 02ca ed40 in b,(c) 02cc 114000 ld de,0040h 02cf 2a9148 ld hl,(4891h) adresse table conversion clavier 02d2 cb50 bit 2,b 02d4 2003 jr nz,02d9h - 02d6 19 add hl,de | +40h dans hl 02d7 1806 jr 02dfh ---|-- 02d9 cb70 bit 6,b <-- | 02db 2002 jr nz,02dfh --->| 02dd 19 add hl,de | 02de 19 add hl,de | +80h dans hl 02df 5f ld e,a <----- 02e0 1600 ld d,00h 02e2 19 add hl,de 02e3 7e ld a,(hl) a contient le code 02e4 ddbe05 cp (ix+05h) ancienne valeur 02e7 37 scf 1 dans Carry 02e8 2804 jr z,02eeh ----- 02ea dd7705 ld (ix+05h),a | stockage du code 02ed 3f ccf | Inversion Carry 02ee c9 ret <----- ----------------------------------- Envoi sequence de commandes EF9345 ----------------------------------- 02ef 46 ld b,(hl) longueur de la sequence 02f0 23 inc hl 02f1 cd8602 call 0286h <--- attente EF9345 pret 02f4 0e8f ld c,8fh | 02f6 eda3 outi | adresse 02f8 0ecf ld c,0cfh | 02fa eda3 outi | données 02fc 20f3 jr nz,02f1h - 02fe c9 ret ---------------------------------- Calcul en virgule flottante ---------------------------------- 02ff 21ff07 ld hl,07ffh 0302 cde005 call 05e0h 0305 1809 jr 0310h 0307 cde005 call 05e0h 030a 21c1d1 ld hl,0d1c1h ---------------------------------- Soustraction virgule flottante ---------------------------------- 030d cdba05 call 05bah ---------------------------------- Addition virgule flottante ---------------------------------- 0310 78 ld a,b 0311 b7 or a 0312 c8 ret z 0313 3ae949 ld a,(49e9h) 0316 b7 or a 0317 cad205 jp z,05d2h 031a 90 sub b 031b 300c jr nc,0329h 031d 2f cpl 031e 3c inc a 031f eb ex de,hl 0320 cdc205 call 05c2h 0323 eb ex de,hl 0324 cdd205 call 05d2h 0327 c1 pop bc 0328 d1 pop de 0329 fe19 cp 19h 032b d0 ret nc 032c f5 push af 032d cdf505 call 05f5h 0330 67 ld h,a 0331 f1 pop af 0332 cddf03 call 03dfh 0335 7c ld a,h 0336 b7 or a 0337 21e649 ld hl,49e6h 033a f24e03 jp p,034eh 033d cdbf03 call 03bfh 0340 305e jr nc,03a0h 0342 23 inc hl 0343 34 inc (hl) 0344 ca4722 jp z,2247h 0347 2e01 ld l,01h 0349 cd0104 call 0401h 034c 1852 jr 03a0h 034e af xor a 034f 90 sub b 0350 47 ld b,a 0351 7e ld a,(hl) 0352 9b sbc a,e 0353 5f ld e,a 0354 23 inc hl 0355 7e ld a,(hl) 0356 9a sbc a,d 0357 57 ld d,a 0358 23 inc hl 0359 7e ld a,(hl) 035a 99 sbc a,c 035b 4f ld c,a 035c dccb03 call c,03cbh 035f 68 ld l,b 0360 63 ld h,e 0361 af xor a 0362 47 ld b,a 0363 79 ld a,c 0364 b7 or a 0365 2027 jr nz,038eh 0367 4a ld c,d 0368 54 ld d,h 0369 65 ld h,l 036a 6f ld l,a 036b 78 ld a,b 036c d608 sub 08h 036e fee0 cp 0e0h 0370 20f0 jr nz,0362h 0372 af xor a 0373 32e949 ld (49e9h),a 0376 c9 ret 0377 7c ld a,h 0378 b5 or l 0379 b2 or d 037a 200a jr nz,0386h 037c 79 ld a,c 037d 05 dec b 037e 17 rla 037f 30fc jr nc,037dh 0381 04 inc b 0382 1f rra 0383 4f ld c,a 0384 180b jr 0391h 0386 05 dec b 0387 29 add hl,hl 0388 7a ld a,d 0389 17 rla 038a 57 ld d,a 038b 79 ld a,c 038c 8f adc a,a 038d 4f ld c,a 038e f27703 jp p,0377h 0391 78 ld a,b 0392 5c ld e,h 0393 45 ld b,l 0394 b7 or a 0395 2809 jr z,03a0h 0397 21e949 ld hl,49e9h 039a 86 add a,(hl) 039b 77 ld (hl),a 039c 30d4 jr nc,0372h 039e 28d2 jr z,0372h 03a0 78 ld a,b 03a1 21e949 ld hl,49e9h 03a4 b7 or a 03a5 fcb203 call m,03b2h 03a8 46 ld b,(hl) 03a9 23 inc hl 03aa 7e ld a,(hl) 03ab e680 and 80h 03ad a9 xor c 03ae 4f ld c,a 03af c3d205 jp 05d2h 03b2 1c inc e 03b3 c0 ret nz 03b4 14 inc d 03b5 c0 ret nz 03b6 0c inc c 03b7 c0 ret nz 03b8 0e80 ld c,80h 03ba 34 inc (hl) 03bb c0 ret nz 03bc c34722 jp 2247h 03bf 7e ld a,(hl) 03c0 83 add a,e 03c1 5f ld e,a 03c2 23 inc hl 03c3 7e ld a,(hl) 03c4 8a adc a,d 03c5 57 ld d,a 03c6 23 inc hl 03c7 7e ld a,(hl) 03c8 89 adc a,c 03c9 4f ld c,a 03ca c9 ret 03cb 21ea49 ld hl,49eah 03ce 7e ld a,(hl) 03cf 2f cpl 03d0 77 ld (hl),a 03d1 af xor a 03d2 6f ld l,a 03d3 90 sub b 03d4 47 ld b,a 03d5 7d ld a,l 03d6 9b sbc a,e 03d7 5f ld e,a 03d8 7d ld a,l 03d9 9a sbc a,d 03da 57 ld d,a 03db 7d ld a,l 03dc 99 sbc a,c 03dd 4f ld c,a 03de c9 ret 03df 0600 ld b,00h 03e1 d608 sub 08h 03e3 3807 jr c,03ech 03e5 43 ld b,e 03e6 5a ld e,d 03e7 51 ld d,c 03e8 0e00 ld c,00h 03ea 18f5 jr 03e1h 03ec c609 add a,09h 03ee 6f ld l,a 03ef 7a ld a,d 03f0 b3 or e 03f1 b0 or b 03f2 2009 jr nz,03fdh 03f4 79 ld a,c 03f5 2d dec l 03f6 c8 ret z 03f7 1f rra 03f8 4f ld c,a 03f9 30fa jr nc,03f5h 03fb 1806 jr 0403h 03fd af xor a 03fe 2d dec l 03ff c8 ret z 0400 79 ld a,c 0401 1f rra 0402 4f ld c,a 0403 7a ld a,d 0404 1f rra 0405 57 ld d,a 0406 7b ld a,e 0407 1f rra 0408 5f ld e,a 0409 78 ld a,b 040a 1f rra 040b 47 ld b,a 040c 18ef jr 03fdh 040e 00 nop 040f 00 nop 0410 00 nop 0411 81 add a,c 0412 04 inc b 0413 9a sbc a,d 0414 f7 rst 30h 0415 19 add hl,de 0416 83 add a,e 0417 24 inc h 0418 63 ld h,e 0419 43 ld b,e 041a 83 add a,e 041b 75 ld (hl),l 041c cd8d84 call 848dh 041f a9 xor c 0420 7f ld a,a 0421 83 add a,e 0422 82 add a,d 0423 04 inc b 0424 00 nop 0425 00 nop 0426 00 nop 0427 81 add a,c 0428 e2b04d jp po,4db0h 042b 83 add a,e 042c 0a ld a,(bc) 042d 72 ld (hl),d 042e 1183f4 ld de,0f483h 0431 04 inc b 0432 35 dec (hl) 0433 7f ld a,a ---------------------------------- LOG ---------------------------------- 0434 ef rst 28h 0435 b7 or a 0436 ea6725 jp pe,2567h 0439 cd4404 call 0444h 043c 013180 ld bc,8031h 043f 111872 ld de,7218h 0442 1836 jr 047ah 0444 cddd05 call 05ddh 0447 3e80 ld a,80h 0449 32e949 ld (49e9h),a 044c a8 xor b 044d f5 push af 044e cdc205 call 05c2h 0451 211204 ld hl,0412h 0454 cded08 call 08edh 0457 c1 pop bc 0458 e1 pop hl 0459 cdc205 call 05c2h 045c eb ex de,hl 045d cdd205 call 05d2h 0460 212304 ld hl,0423h 0463 cded08 call 08edh 0466 c1 pop bc 0467 d1 pop de 0468 cdde04 call 04deh 046b f1 pop af 046c cdc205 call 05c2h 046f cda505 call 05a5h 0472 c1 pop bc 0473 d1 pop de 0474 c31003 jp 0310h 0477 21c1d1 ld hl,0d1c1h 047a ef rst 28h 047b c8 ret z 047c 2e00 ld l,00h 047e cd5b05 call 055bh 0481 79 ld a,c 0482 32f849 ld (49f8h),a 0485 eb ex de,hl 0486 22f949 ld (49f9h),hl 0489 010000 ld bc,0000h 048c 50 ld d,b 048d 58 ld e,b 048e 215f03 ld hl,035fh 0491 e5 push hl 0492 219a04 ld hl,049ah 0495 e5 push hl 0496 e5 push hl 0497 21e649 ld hl,49e6h 049a 7e ld a,(hl) 049b 23 inc hl 049c b7 or a 049d 282c jr z,04cbh 049f e5 push hl 04a0 2e08 ld l,08h 04a2 1f rra 04a3 67 ld h,a 04a4 79 ld a,c 04a5 300b jr nc,04b2h 04a7 e5 push hl 04a8 2af949 ld hl,(49f9h) 04ab 19 add hl,de 04ac eb ex de,hl 04ad e1 pop hl 04ae 3af849 ld a,(49f8h) 04b1 89 adc a,c 04b2 1f rra 04b3 4f ld c,a 04b4 7a ld a,d 04b5 1f rra 04b6 57 ld d,a 04b7 7b ld a,e 04b8 1f rra 04b9 5f ld e,a 04ba 78 ld a,b 04bb 1f rra 04bc 47 ld b,a 04bd e610 and 10h 04bf 2804 jr z,04c5h 04c1 78 ld a,b 04c2 f620 or 20h 04c4 47 ld b,a 04c5 2d dec l 04c6 7c ld a,h 04c7 20d9 jr nz,04a2h 04c9 e1 pop hl 04ca c9 ret 04cb 43 ld b,e 04cc 5a ld e,d 04cd 51 ld d,c 04ce 4f ld c,a 04cf c9 ret 04d0 cdc205 call 05c2h 04d3 012084 ld bc,8420h 04d6 110000 ld de,0000h 04d9 cdd205 call 05d2h 04dc c1 pop bc 04dd d1 pop de 04de ef rst 28h 04df ca3b22 jp z,223bh 04e2 2eff ld l,0ffh 04e4 cd5b05 call 055bh 04e7 34 inc (hl) 04e8 ca4722 jp z,2247h 04eb 34 inc (hl) 04ec ca4722 jp z,2247h 04ef 2b dec hl 04f0 7e ld a,(hl) 04f1 323f48 ld (483fh),a 04f4 2b dec hl 04f5 7e ld a,(hl) 04f6 323b48 ld (483bh),a 04f9 2b dec hl 04fa 7e ld a,(hl) 04fb 323748 ld (4837h),a 04fe 41 ld b,c 04ff eb ex de,hl 0500 af xor a 0501 4f ld c,a 0502 57 ld d,a 0503 5f ld e,a 0504 324248 ld (4842h),a 0507 e5 push hl 0508 c5 push bc 0509 7d ld a,l 050a cd3648 call 4836h 050d de00 sbc a,00h 050f 3f ccf 0510 3007 jr nc,0519h 0512 324248 ld (4842h),a 0515 f1 pop af 0516 f1 pop af 0517 37 scf 0518 d2c1e1 jp nc,0e1c1h 051b 79 ld a,c 051c 3c inc a 051d 3d dec a 051e 1f rra 051f f23605 jp p,0536h 0522 17 rla 0523 3a4248 ld a,(4842h) 0526 1f rra 0527 e6c0 and 0c0h 0529 f5 push af 052a 78 ld a,b 052b b4 or h 052c b5 or l 052d 2802 jr z,0531h 052f 3e20 ld a,20h 0531 e1 pop hl 0532 b4 or h 0533 c3a103 jp 03a1h 0536 17 rla 0537 7b ld a,e 0538 17 rla 0539 5f ld e,a 053a 7a ld a,d 053b 17 rla 053c 57 ld d,a 053d 79 ld a,c 053e 17 rla 053f 4f ld c,a 0540 29 add hl,hl 0541 78 ld a,b 0542 17 rla 0543 47 ld b,a 0544 3a4248 ld a,(4842h) 0547 17 rla 0548 324248 ld (4842h),a 054b 79 ld a,c 054c b2 or d 054d b3 or e 054e 20b7 jr nz,0507h 0550 e5 push hl 0551 21e949 ld hl,49e9h 0554 35 dec (hl) 0555 e1 pop hl 0556 20af jr nz,0507h 0558 c37203 jp 0372h 055b 78 ld a,b 055c b7 or a 055d 281d jr z,057ch 055f 7d ld a,l 0560 21e949 ld hl,49e9h 0563 ae xor (hl) 0564 80 add a,b 0565 47 ld b,a 0566 1f rra 0567 a8 xor b 0568 78 ld a,b 0569 f27b05 jp p,057bh 056c c680 add a,80h 056e 77 ld (hl),a 056f cac904 jp z,04c9h 0572 cdf505 call 05f5h 0575 77 ld (hl),a 0576 2b dec hl 0577 c9 ret 0578 ef rst 28h 0579 2f cpl 057a e1 pop hl 057b b7 or a 057c e1 pop hl 057d f27203 jp p,0372h 0580 c34722 jp 2247h 0583 cddd05 call 05ddh 0586 78 ld a,b 0587 b7 or a 0588 c8 ret z 0589 c602 add a,02h 058b da4722 jp c,2247h 058e 47 ld b,a 058f cd1003 call 0310h 0592 21e949 ld hl,49e9h 0595 34 inc (hl) 0596 c0 ret nz 0597 c34722 jp 2247h 059a 3ae849 ld a,(49e8h) 059d fe2f cp 2fh 059f 17 rla 05a0 9f sbc a,a 05a1 c0 ret nz 05a2 3c inc a 05a3 c9 ret ---------------------------------- SGN ---------------------------------- 05a4 ef rst 28h 05a5 0688 ld b,88h 05a7 110000 ld de,0000h 05aa 21e949 ld hl,49e9h 05ad 4f ld c,a 05ae 70 ld (hl),b 05af 0600 ld b,00h 05b1 23 inc hl 05b2 3680 ld (hl),80h 05b4 17 rla 05b5 c35c03 jp 035ch ---------------------------------- ABS ---------------------------------- 05b8 ef rst 28h 05b9 f0 ret p 05ba 21e849 ld hl,49e8h 05bd 7e ld a,(hl) 05be ee80 xor 80h 05c0 77 ld (hl),a 05c1 c9 ret 05c2 eb ex de,hl 05c3 2ae649 ld hl,(49e6h) 05c6 e3 ex (sp),hl 05c7 e5 push hl 05c8 2ae849 ld hl,(49e8h) 05cb e3 ex (sp),hl 05cc e5 push hl 05cd eb ex de,hl 05ce c9 ret 05cf cde005 call 05e0h 05d2 eb ex de,hl 05d3 22e649 ld (49e6h),hl 05d6 60 ld h,b 05d7 69 ld l,c 05d8 22e849 ld (49e8h),hl 05db eb ex de,hl 05dc c9 ret 05dd 21e649 ld hl,49e6h 05e0 5e ld e,(hl) 05e1 23 inc hl 05e2 56 ld d,(hl) 05e3 23 inc hl 05e4 4e ld c,(hl) 05e5 23 inc hl 05e6 46 ld b,(hl) 05e7 23 inc hl 05e8 c9 ret 05e9 11e649 ld de,49e6h 05ec 0604 ld b,04h 05ee 1a ld a,(de) 05ef 77 ld (hl),a 05f0 13 inc de 05f1 23 inc hl 05f2 10fa djnz 05eeh 05f4 c9 ret 05f5 21e849 ld hl,49e8h 05f8 7e ld a,(hl) 05f9 07 rlca 05fa 37 scf 05fb 1f rra 05fc 77 ld (hl),a 05fd 3f ccf 05fe 1f rra 05ff 23 inc hl 0600 23 inc hl 0601 77 ld (hl),a 0602 79 ld a,c 0603 07 rlca 0604 37 scf 0605 1f rra 0606 4f ld c,a 0607 1f rra 0608 ae xor (hl) 0609 c9 ret 060a 78 ld a,b 060b b7 or a 060c ca2800 jp z,0028h 060f 219e05 ld hl,059eh 0612 e5 push hl 0613 ef rst 28h 0614 79 ld a,c 0615 c8 ret z 0616 21e849 ld hl,49e8h 0619 ae xor (hl) 061a 79 ld a,c 061b f8 ret m 061c cd2206 call 0622h 061f 1f rra 0620 a9 xor c 0621 c9 ret 0622 23 inc hl 0623 78 ld a,b 0624 be cp (hl) 0625 c0 ret nz 0626 2b dec hl 0627 79 ld a,c 0628 be cp (hl) 0629 c0 ret nz 062a 2b dec hl 062b 7a ld a,d 062c be cp (hl) 062d c0 ret nz 062e 2b dec hl 062f 7b ld a,e 0630 96 sub (hl) 0631 c0 ret nz 0632 e1 pop hl 0633 e1 pop hl 0634 c9 ret 0635 47 ld b,a 0636 4f ld c,a 0637 57 ld d,a 0638 5f ld e,a 0639 b7 or a 063a c8 ret z 063b e5 push hl 063c cddd05 call 05ddh 063f cdf505 call 05f5h 0642 ae xor (hl) 0643 67 ld h,a 0644 fc5906 call m,0659h 0647 3e98 ld a,98h 0649 90 sub b 064a cddf03 call 03dfh 064d 7c ld a,h 064e 17 rla 064f dcb203 call c,03b2h 0652 0600 ld b,00h 0654 dccb03 call c,03cbh 0657 e1 pop hl 0658 c9 ret 0659 1b dec de 065a 7a ld a,d 065b a3 and e 065c 3c inc a 065d c0 ret nz 065e 0b dec bc 065f c9 ret ---------------------------------- INT ---------------------------------- 0660 21e949 ld hl,49e9h 0663 7e ld a,(hl) 0664 fe98 cp 98h 0666 3ae649 ld a,(49e6h) 0669 d0 ret nc 066a 7e ld a,(hl) 066b cd3506 call 0635h 066e 3698 ld (hl),98h 0670 7b ld a,e 0671 f5 push af 0672 79 ld a,c 0673 17 rla 0674 cd5c03 call 035ch 0677 f1 pop af 0678 c9 ret 0679 210000 ld hl,0000h 067c 78 ld a,b 067d b1 or c 067e c8 ret z 067f 3e10 ld a,10h 0681 29 add hl,hl 0682 dad639 jp c,39d6h 0685 eb ex de,hl 0686 29 add hl,hl 0687 eb ex de,hl 0688 3004 jr nc,068eh 068a 09 add hl,bc 068b dad639 jp c,39d6h 068e 3d dec a 068f 20f0 jr nz,0681h 0691 c9 ret 0692 fe26 cp 26h 0694 ca2c30 jp z,302ch 0697 fe2d cp 2dh 0699 f5 push af 069a 2805 jr z,06a1h 069c fe2b cp 2bh 069e 2801 jr z,06a1h 06a0 2b dec hl 06a1 cd7203 call 0372h 06a4 47 ld b,a 06a5 57 ld d,a 06a6 5f ld e,a 06a7 2f cpl 06a8 4f ld c,a 06a9 d7 rst 10h 06aa 383d jr c,06e9h 06ac fe2e cp 2eh 06ae 2816 jr z,06c6h 06b0 fe65 cp 65h 06b2 2804 jr z,06b8h 06b4 fe45 cp 45h 06b6 2011 jr nz,06c9h 06b8 d7 rst 10h 06b9 cd6729 call 2967h 06bc d7 rst 10h 06bd 384b jr c,070ah 06bf 14 inc d 06c0 2007 jr nz,06c9h 06c2 af xor a 06c3 93 sub e 06c4 5f ld e,a 06c5 0c inc c 06c6 0c inc c 06c7 28e0 jr z,06a9h 06c9 e5 push hl 06ca 7b ld a,e 06cb 90 sub b 06cc f4e106 call p,06e1h 06cf f2d806 jp p,06d8h 06d2 f5 push af 06d3 cdd004 call 04d0h 06d6 f1 pop af 06d7 3c inc a 06d8 20f2 jr nz,06cch 06da d1 pop de 06db f1 pop af 06dc ccba05 call z,05bah 06df eb ex de,hl 06e0 c9 ret 06e1 c8 ret z 06e2 f5 push af 06e3 cd8305 call 0583h 06e6 f1 pop af 06e7 3d dec a 06e8 c9 ret 06e9 d5 push de 06ea 57 ld d,a 06eb 78 ld a,b 06ec 89 adc a,c 06ed 47 ld b,a 06ee c5 push bc 06ef e5 push hl 06f0 d5 push de 06f1 cd8305 call 0583h 06f4 f1 pop af 06f5 d630 sub 30h 06f7 cdff06 call 06ffh 06fa e1 pop hl 06fb c1 pop bc 06fc d1 pop de 06fd 18aa jr 06a9h 06ff cdc205 call 05c2h 0702 cda505 call 05a5h 0705 c1 pop bc 0706 d1 pop de 0707 c31003 jp 0310h 070a 7b ld a,e 070b 07 rlca 070c 07 rlca 070d 83 add a,e 070e 07 rlca 070f 86 add a,(hl) 0710 d630 sub 30h 0712 5f ld e,a 0713 18a7 jr 06bch 0715 e5 push hl 0716 217117 ld hl,1771h 0719 3a9048 ld a,(4890h) 071c b7 or a 071d 2803 jr z,0722h 071f 217617 ld hl,1776h 0722 cdaa36 call 36aah 0725 e1 pop hl 0726 11a936 ld de,36a9h 0729 d5 push de 072a eb ex de,hl 072b af xor a 072c 0698 ld b,98h 072e cdaa05 call 05aah 0731 21eb49 ld hl,49ebh 0734 e5 push hl 0735 ef rst 28h 0736 3620 ld (hl),20h 0738 f23d07 jp p,073dh 073b 362d ld (hl),2dh 073d 23 inc hl 073e 3630 ld (hl),30h 0740 caea07 jp z,07eah 0743 e5 push hl 0744 fcba05 call m,05bah 0747 af xor a 0748 f5 push af 0749 cdf007 call 07f0h 074c 014391 ld bc,9143h 074f 11f84f ld de,4ff8h 0752 cd0a06 call 060ah 0755 b7 or a 0756 e26907 jp po,0769h 0759 f1 pop af 075a cde206 call 06e2h 075d f5 push af 075e 18ec jr 074ch 0760 cdd004 call 04d0h 0763 f1 pop af 0764 3c inc a 0765 f5 push af 0766 cdf007 call 07f0h 0769 cdff02 call 02ffh 076c 3c inc a 076d cd3506 call 0635h 0770 cdd205 call 05d2h 0773 010603 ld bc,0306h 0776 f1 pop af 0777 81 add a,c 0778 3c inc a 0779 fa8407 jp m,0784h 077c fe08 cp 08h 077e 3004 jr nc,0784h 0780 3c inc a 0781 47 ld b,a 0782 3e02 ld a,02h 0784 3d dec a 0785 3d dec a 0786 e1 pop hl 0787 f5 push af 0788 110608 ld de,0806h 078b 05 dec b 078c 2006 jr nz,0794h 078e 362e ld (hl),2eh 0790 23 inc hl 0791 3630 ld (hl),30h 0793 23 inc hl 0794 05 dec b 0795 362e ld (hl),2eh 0797 cce705 call z,05e7h 079a c5 push bc 079b e5 push hl 079c d5 push de 079d cddd05 call 05ddh 07a0 e1 pop hl 07a1 062f ld b,2fh 07a3 04 inc b 07a4 7b ld a,e 07a5 96 sub (hl) 07a6 5f ld e,a 07a7 23 inc hl 07a8 7a ld a,d 07a9 9e sbc a,(hl) 07aa 57 ld d,a 07ab 23 inc hl 07ac 79 ld a,c 07ad 9e sbc a,(hl) 07ae 4f ld c,a 07af 2b dec hl 07b0 2b dec hl 07b1 30f0 jr nc,07a3h 07b3 cdbf03 call 03bfh 07b6 23 inc hl 07b7 cdd205 call 05d2h 07ba eb ex de,hl 07bb e1 pop hl 07bc 70 ld (hl),b 07bd 23 inc hl 07be c1 pop bc 07bf 0d dec c 07c0 20d2 jr nz,0794h 07c2 05 dec b 07c3 280b jr z,07d0h 07c5 2b dec hl 07c6 7e ld a,(hl) 07c7 fe30 cp 30h 07c9 28fa jr z,07c5h 07cb fe2e cp 2eh 07cd c4e705 call nz,05e7h 07d0 f1 pop af 07d1 281a jr z,07edh 07d3 3645 ld (hl),45h 07d5 23 inc hl 07d6 362b ld (hl),2bh 07d8 f2df07 jp p,07dfh 07db 362d ld (hl),2dh 07dd 2f cpl 07de 3c inc a 07df 062f ld b,2fh 07e1 04 inc b 07e2 d60a sub 0ah 07e4 30fb jr nc,07e1h 07e6 c63a add a,3ah 07e8 23 inc hl 07e9 70 ld (hl),b 07ea 23 inc hl 07eb 77 ld (hl),a 07ec 23 inc hl 07ed 71 ld (hl),c 07ee e1 pop hl 07ef c9 ret 07f0 017494 ld bc,9474h 07f3 11f723 ld de,23f7h 07f6 cd0a06 call 060ah 07f9 b7 or a 07fa e1 pop hl 07fb e26007 jp po,0760h 07fe e9 jp (hl) 07ff 00 nop 0800 00 nop 0801 00 nop 0802 80 add a,b 0803 40 ld b,b 0804 42 ld b,d 0805 0f rrca 0806 a0 and b 0807 86 add a,(hl) 0808 011027 ld bc,2710h 080b 00 nop 080c e8 ret pe 080d 03 inc bc 080e 00 nop 080f 64 ld h,h 0810 00 nop 0811 00 nop 0812 0a ld a,(bc) 0813 00 nop 0814 00 nop 0815 010000 ld bc,0000h 0818 21ba05 ld hl,05bah 081b e3 ex (sp),hl 081c e9 jp (hl) 081d cdc205 call 05c2h ---------------------------------- SQR ---------------------------------- 081E 0820 21ff07 ld hl,07ffh 0823 cdcf05 call 05cfh 0826 c1 pop bc 0827 d1 pop de 0828 ef rst 28h 0829 78 ld a,b 082a 2848 jr z,0874h 082c f23308 jp p,0833h 082f b7 or a 0830 ca3b22 jp z,223bh 0833 b7 or a 0834 ca7303 jp z,0373h 0837 d5 push de 0838 c5 push bc 0839 79 ld a,c 083a f67f or 7fh 083c cddd05 call 05ddh 083f f25c08 jp p,085ch 0842 f5 push af 0843 3ae949 ld a,(49e9h) 0846 fe99 cp 99h 0848 3803 jr c,084dh 084a f1 pop af 084b 180f jr 085ch 084d f1 pop af 084e d5 push de 084f c5 push bc 0850 cd6006 call 0660h 0853 c1 pop bc 0854 d1 pop de 0855 f5 push af 0856 cd0a06 call 060ah 0859 e1 pop hl 085a 7c ld a,h 085b 1f rra 085c e1 pop hl 085d 22e849 ld (49e8h),hl 0860 e1 pop hl 0861 22e649 ld (49e6h),hl 0864 dc1808 call c,0818h 0867 ccba05 call z,05bah 086a d5 push de 086b c5 push bc 086c cd3404 call 0434h 086f c1 pop bc 0870 d1 pop de 0871 cd7a04 call 047ah ---------------------------------- EXP ---------------------------------- 0874 013881 ld bc,8138h 0877 113baa ld de,0aa3bh 087a cd7a04 call 047ah 087d 3ae949 ld a,(49e9h) 0880 fe88 cp 88h 0882 3022 jr nc,08a6h 0884 fe68 cp 68h 0886 3830 jr c,08b8h 0888 cdc205 call 05c2h 088b cd6006 call 0660h 088e c681 add a,81h 0890 c1 pop bc 0891 d1 pop de 0892 2815 jr z,08a9h 0894 f5 push af 0895 cd0d03 call 030dh 0898 21c108 ld hl,08c1h 089b cded08 call 08edh 089e c1 pop bc 089f 110000 ld de,0000h 08a2 4a ld c,d 08a3 c37a04 jp 047ah 08a6 cdc205 call 05c2h 08a9 3ae849 ld a,(49e8h) 08ac b7 or a 08ad f2b508 jp p,08b5h 08b0 f1 pop af 08b1 f1 pop af 08b2 c37203 jp 0372h 08b5 c34722 jp 2247h 08b8 010081 ld bc,8100h 08bb 110000 ld de,0000h 08be c3d205 jp 05d2h 08c1 07 rlca 08c2 7c ld a,h 08c3 88 adc a,b 08c4 59 ld e,c 08c5 74 ld (hl),h 08c6 e0 ret po 08c7 97 sub a 08c8 2677 ld h,77h 08ca c41d1e call nz,1e1dh 08cd 7a ld a,d 08ce 5e ld e,(hl) 08cf 50 ld d,b 08d0 63 ld h,e 08d1 7c ld a,h 08d2 1a ld a,(de) 08d3 fe75 cp 75h 08d5 7e ld a,(hl) 08d6 1872 jr 094ah 08d8 318000 ld sp,0080h 08db 00 nop 08dc 00 nop 08dd 81 add a,c 08de cdc205 call 05c2h 08e1 117804 ld de,0478h 08e4 d5 push de 08e5 e5 push hl 08e6 cddd05 call 05ddh 08e9 cd7a04 call 047ah 08ec e1 pop hl 08ed cdc205 call 05c2h 08f0 7e ld a,(hl) 08f1 23 inc hl 08f2 cdcf05 call 05cfh 08f5 06f1 ld b,0f1h 08f7 c1 pop bc 08f8 d1 pop de 08f9 3d dec a 08fa c8 ret z 08fb d5 push de 08fc c5 push bc 08fd f5 push af 08fe e5 push hl 08ff cd7a04 call 047ah 0902 e1 pop hl 0903 cde005 call 05e0h 0906 e5 push hl 0907 cd1003 call 0310h 090a e1 pop hl 090b 18e9 jr 08f6h 090d ef rst 28h ---------------------------------- RND ---------------------------------- 090e 214648 ld hl,4846h 0911 fa6b09 jp m,096bh 0914 216748 ld hl,4867h 0917 cdcf05 call 05cfh 091a 214648 ld hl,4846h 091d c8 ret z 091e 86 add a,(hl) 091f e607 and 07h 0921 0600 ld b,00h 0923 77 ld (hl),a 0924 23 inc hl 0925 87 add a,a 0926 87 add a,a 0927 4f ld c,a 0928 09 add hl,bc 0929 cde005 call 05e0h 092c cd7a04 call 047ah 092f 3a4548 ld a,(4845h) 0932 3c inc a 0933 e603 and 03h 0935 0600 ld b,00h 0937 fe01 cp 01h 0939 88 adc a,b 093a 324548 ld (4845h),a 093d 216e09 ld hl,096eh 0940 87 add a,a 0941 87 add a,a 0942 4f ld c,a 0943 09 add hl,bc 0944 cd0203 call 0302h 0947 cddd05 call 05ddh 094a 7b ld a,e 094b 59 ld e,c 094c ee4f xor 4fh 094e 4f ld c,a 094f 3680 ld (hl),80h 0951 2b dec hl 0952 46 ld b,(hl) 0953 3680 ld (hl),80h 0955 214448 ld hl,4844h 0958 34 inc (hl) 0959 7e ld a,(hl) 095a d6ab sub 0abh 095c 2004 jr nz,0962h 095e 77 ld (hl),a 095f 0c inc c 0960 15 dec d 0961 1c inc e 0962 cd5f03 call 035fh 0965 216748 ld hl,4867h 0968 c3e905 jp 05e9h 096b 77 ld (hl),a 096c 2b dec hl 096d 77 ld (hl),a 096e 2b dec hl 096f 77 ld (hl),a 0970 18d5 jr 0947h 0972 68 ld l,b 0973 b1 or c 0974 46 ld b,(hl) 0975 68 ld l,b 0976 99 sbc a,c 0977 e9 jp (hl) 0978 92 sub d 0979 69 ld l,c 097a 10d1 djnz 094dh 097c 75 ld (hl),l ---------------------------------- COS ---------------------------------- 097d 68 ld l,b 097e 21fa09 ld hl,09fah 0981 cd0203 call 0302h ---------------------------------- SIN ---------------------------------- 0984 3ae949 ld a,(49e9h) 0987 fe77 cp 77h 0989 d8 ret c 098a 3ae849 ld a,(49e8h) 098d b7 or a 098e f29a09 jp p,099ah 0991 e67f and 7fh 0993 32e849 ld (49e8h),a 0996 11ba05 ld de,05bah 0999 d5 push de 099a 01227e ld bc,7e22h 099d 1183f9 ld de,0f983h 09a0 cd7a04 call 047ah 09a3 cdc205 call 05c2h 09a6 cd6006 call 0660h 09a9 c1 pop bc 09aa d1 pop de 09ab cd0d03 call 030dh 09ae 01007f ld bc,7f00h 09b1 110000 ld de,0000h 09b4 cd0a06 call 060ah 09b7 fadc09 jp m,09dch 09ba 01807f ld bc,7f80h 09bd 110000 ld de,0000h 09c0 cd1003 call 0310h 09c3 018080 ld bc,8080h 09c6 110000 ld de,0000h 09c9 cd1003 call 0310h 09cc ef rst 28h 09cd f4ba05 call p,05bah 09d0 01007f ld bc,7f00h 09d3 110000 ld de,0000h 09d6 cd1003 call 0310h 09d9 cdba05 call 05bah 09dc 3ae849 ld a,(49e8h) 09df b7 or a 09e0 f5 push af 09e1 f2e909 jp p,09e9h 09e4 ee80 xor 80h 09e6 32e849 ld (49e8h),a 09e9 21020a ld hl,0a02h 09ec cdde08 call 08deh 09ef f1 pop af 09f0 f0 ret p 09f1 3ae849 ld a,(49e8h) 09f4 ee80 xor 80h 09f6 32e849 ld (49e8h),a 09f9 c9 ret 09fa db0f in a,(0fh) 09fc 49 ld c,c 09fd 81 add a,c 09fe 00 nop 09ff 00 nop 0a00 00 nop 0a01 7f ld a,a 0a02 05 dec b 0a03 fb ei 0a04 d7 rst 10h 0a05 1e86 ld e,86h 0a07 65 ld h,l 0a08 2699 ld h,99h 0a0a 87 add a,a 0a0b 58 ld e,b 0a0c 34 inc (hl) 0a0d 23 inc hl 0a0e 87 add a,a 0a0f e1 pop hl 0a10 5d ld e,l 0a11 a5 and l 0a12 86 add a,(hl) 0a13 db0f in a,(0fh) 0a15 49 ld c,c 0a16 83 add a,e ---------------------------------- TAN ---------------------------------- 0a17 cdc205 call 05c2h 0a1a cd8409 call 0984h 0a1d c1 pop bc 0a1e e1 pop hl 0a1f cdc205 call 05c2h 0a22 eb ex de,hl 0a23 cdd205 call 05d2h 0a26 cd7e09 call 097eh 0a29 c3dc04 jp 04dch ---------------------------------- ATN ---------------------------------- 0a2c ef rst 28h 0a2d fc1808 call m,0818h 0a30 fcba05 call m,05bah 0a33 3ae949 ld a,(49e9h) 0a36 fe81 cp 81h 0a38 380c jr c,0a46h 0a3a 010081 ld bc,8100h 0a3d 51 ld d,c 0a3e 59 ld e,c 0a3f cdde04 call 04deh 0a42 210703 ld hl,0307h 0a45 e5 push hl 0a46 21500a ld hl,0a50h 0a49 cdde08 call 08deh 0a4c 21fa09 ld hl,09fah 0a4f c9 ret 0a50 09 add hl,bc 0a51 4a ld c,d 0a52 d7 rst 10h 0a53 3b dec sp 0a54 78 ld a,b 0a55 02 ld (bc),a 0a56 6e ld l,(hl) 0a57 84 add a,h 0a58 7b ld a,e 0a59 fec1 cp 0c1h 0a5b 2f cpl 0a5c 7c ld a,h 0a5d 74 ld (hl),h 0a5e 319a7d ld sp,7d9ah 0a61 84 add a,h 0a62 3d dec a 0a63 5a ld e,d 0a64 7d ld a,l 0a65 c8 ret z 0a66 7f ld a,a 0a67 91 sub c 0a68 7e ld a,(hl) 0a69 e4bb4c call po,4cbbh 0a6c 7e ld a,(hl) 0a6d 6c ld l,h 0a6e aa xor d 0a6f aa xor d 0a70 7f ld a,a 0a71 00 nop 0a72 00 nop 0a73 00 nop 0a74 81 add a,c ---------------------------------- ---------------------------------- 0a75 cdd947 call 47d9h vecteur de la routine call 0a78 dd360100 ld (ix+01h),00h RAZ flag rafraichissement ecran 0a7c cd6128 call 2861h 0a7f e5 push hl 0a80 cdd137 call 37d1h 0a83 cde005 call 05e0h 0a86 1c inc e ---------------------------------- joue une melodie ---------------------------------- 0a87 cd773c call 3c77h <--- 0a8a 0a ld a,(bc) | charge la note dans a 0a8b 03 inc bc | incremente le pointeur 0a8c 1d dec e | decremente le compteur 0a8d ca110b jp z,0b11h --|--> fin 0a90 fe2c cp 2ch | 0a92 28f3 jr z,0a87h ->| 0a94 fe7c cp 7ch | 0a96 28ef jr z,0a87h ->| 0a98 fe20 cp 20h | 0a9a 28eb jr z,0a87h -- 0a9c fe41 cp 41h 0a9e da3822 jp c,2238h 0aa1 cbaf res 5,a 0aa3 fe4f cp 4fh 0aa5 ca1b0b jp z,0b1bh 0aa8 fe52 cp 52h 0aaa ca7f0b jp z,0b7fh 0aad fe54 cp 54h 0aaf ca390b jp z,0b39h 0ab2 fe48 cp 48h 0ab4 d23822 jp nc,2238h 0ab7 d641 sub 41h 0ab9 87 add a,a 0aba 3c inc a 0abb 57 ld d,a 0abc 0a ld a,(bc) 0abd fe2b cp 2bh 0abf 2003 jr nz,0ac4h 0ac1 03 inc bc 0ac2 14 inc d 0ac3 1d dec e 0ac4 fe2d cp 2dh 0ac6 2003 jr nz,0acbh --- 0ac8 03 inc bc | 0ac9 15 dec d | 0aca 1d dec e | 0acb 3a9448 ld a,(4894h) <- 0ace 82 add a,d 0acf 57 ld d,a 0ad0 cd990b call 0b99h 0ad3 e5 push hl 0ad4 7a ld a,d 0ad5 d9 exx 0ad6 5f ld e,a 0ad7 1600 ld d,00h 0ad9 21bf0b ld hl,0bbfh 0adc 19 add hl,de 0add 19 add hl,de 0ade 19 add hl,de 0adf 4e ld c,(hl) 0ae0 23 inc hl 0ae1 46 ld b,(hl) 0ae2 ed430e48 ld (480eh),bc 0ae6 23 inc hl 0ae7 7e ld a,(hl) 0ae8 d1 pop de 0ae9 cdd40c call 0cd4h 0aec b7 or a 0aed cb1a rr d 0aef cb1b rr e 0af1 b7 or a 0af2 cb1a rr d 0af4 cb1b rr e 0af6 b7 or a 0af7 cb1a rr d 0af9 cb1b rr e 0afb 3a9348 ld a,(4893h) 0afe cdd40c call 0cd4h 0b01 b7 or a 0b02 cb1a rr d 0b04 cb1b rr e 0b06 b7 or a 0b07 cb1a rr d 0b09 cb1b rr e 0b0b cda70c call 0ca7h 0b0e c3870a jp 0a87h -----> debut 0b11 e1 pop hl <----- fin 0b12 dd360003 ld (ix+00h),03h nbre d'interruption avant affichage 0b16 dd360101 ld (ix+01h),01h positionnement flag 0b1a c9 ret rafraichissement ecran ------------------------------------ ------------------------------------ 0b1b 0a ld a,(bc) 0b1c 03 inc bc 0b1d 1d dec e 0b1e ca4a22 jp z,224ah 0b21 fe31 cp 31h 0b23 da3822 jp c,2238h 0b26 fe35 cp 35h 0b28 d23822 jp nc,2238h 0b2b d631 sub 31h 0b2d 87 add a,a 0b2e 57 ld d,a 0b2f 87 add a,a 0b30 87 add a,a 0b31 87 add a,a 0b32 92 sub d 0b33 329448 ld (4894h),a 0b36 c3870a jp 0a87h 0b39 0a ld a,(bc) 0b3a d630 sub 30h 0b3c da3822 jp c,2238h 0b3f fe0a cp 0ah 0b41 d23822 jp nc,2238h 0b44 6f ld l,a 0b45 03 inc bc 0b46 1d dec e 0b47 282a jr z,0b73h 0b49 0a ld a,(bc) 0b4a d630 sub 30h 0b4c 3825 jr c,0b73h 0b4e fe0a cp 0ah 0b50 3021 jr nc,0b73h 0b52 67 ld h,a 0b53 7d ld a,l 0b54 87 add a,a 0b55 6f ld l,a 0b56 87 add a,a 0b57 87 add a,a 0b58 85 add a,l 0b59 84 add a,h 0b5a 6f ld l,a 0b5b 03 inc bc 0b5c 1d dec e 0b5d 2814 jr z,0b73h 0b5f 0a ld a,(bc) 0b60 d630 sub 30h 0b62 380f jr c,0b73h 0b64 fe0a cp 0ah 0b66 300b jr nc,0b73h 0b68 67 ld h,a 0b69 7d ld a,l 0b6a 87 add a,a 0b6b 6f ld l,a 0b6c 87 add a,a 0b6d 87 add a,a 0b6e 85 add a,l 0b6f 84 add a,h 0b70 6f ld l,a 0b71 03 inc bc 0b72 1d dec e 0b73 7d ld a,l 0b74 b7 or a 0b75 1f rra 0b76 b7 or a 0b77 1f rra 0b78 3c inc a 0b79 329348 ld (4893h),a 0b7c c3870a jp 0a87h 0b7f cd990b call 0b99h 0b82 e5 push hl 0b83 d9 exx 0b84 d1 pop de 0b85 3a9348 ld a,(4893h) 0b88 cdd40c call 0cd4h 0b8b 1b dec de 0b8c 06c0 ld b,0c0h 0b8e 00 nop 0b8f 10fd djnz 0b8eh 0b91 7a ld a,d 0b92 b3 or e 0b93 20f6 jr nz,0b8bh 0b95 d9 exx 0b96 c3870a jp 0a87h 0b99 211000 ld hl,0010h 0b9c 0a ld a,(bc) 0b9d d630 sub 30h 0b9f d8 ret c 0ba0 fe0a cp 0ah 0ba2 d0 ret nc ----------------------------------- ----------------------------------- 0ba3 6f ld l,a 0ba4 2600 ld h,00h 0ba6 03 inc bc 0ba7 1d dec e 0ba8 c8 ret z 0ba9 0a ld a,(bc) 0baa d630 sub 30h 0bac d8 ret c 0bad fe0a cp 0ah 0baf d0 ret nc 0bb0 d5 push de 0bb1 29 add hl,hl 0bb2 54 ld d,h 0bb3 5d ld e,l 0bb4 29 add hl,hl 0bb5 29 add hl,hl 0bb6 19 add hl,de 0bb7 5f ld e,a 0bb8 1600 ld d,00h 0bba 19 add hl,de 0bbb d1 pop de 0bbc 03 inc bc 0bbd 1d dec e 0bbe c9 ret 0bbf cccc08 call z,08cch 0bc2 caca09 jp z,09cah 0bc5 be cp (hl) 0bc6 be cp (hl) 0bc7 09 add hl,bc 0bc8 b3 or e 0bc9 b3 or e 0bca 0a ld a,(bc) 0bcb b3 or e 0bcc b3 or e 0bcd 0a ld a,(bc) 0bce a9 xor c 0bcf a9 xor c 0bd0 0a ld a,(bc) 0bd1 9f sbc a,a 0bd2 9f sbc a,a 0bd3 0b dec bc 0bd4 97 sub a 0bd5 97 sub a 0bd6 0c inc c 0bd7 8e adc a,(hl) 0bd8 8e adc a,(hl) 0bd9 0c inc c 0bda 86 add a,(hl) 0bdb 86 add a,(hl) 0bdc 0d dec c 0bdd 86 add a,(hl) 0bde 86 add a,(hl) 0bdf 0d dec c 0be0 7f ld a,a 0be1 7f ld a,a 0be2 0e77 ld c,77h 0be4 77 ld (hl),a 0be5 0f rrca 0be6 71 ld (hl),c 0be7 71 ld (hl),c 0be8 106a djnz 0c54h 0bea 6a ld l,d 0beb 116464 ld de,6464h 0bee 12 ld (de),a 0bef 5e ld e,(hl) 0bf0 5e ld e,(hl) 0bf1 13 inc de 0bf2 59 ld e,c 0bf3 59 ld e,c 0bf4 14 inc d 0bf5 59 ld e,c 0bf6 59 ld e,c 0bf7 14 inc d 0bf8 54 ld d,h 0bf9 54 ld d,h 0bfa 15 dec d 0bfb 4f ld c,a 0bfc 4f ld c,a 0bfd 17 rla 0bfe 4b ld c,e 0bff 4b ld c,e 0c00 1846 jr 0c48h 0c02 47 ld b,a 0c03 19 add hl,de 0c04 42 ld b,d 0c05 43 ld b,e 0c06 1b dec de 0c07 42 ld b,d 0c08 43 ld b,e 0c09 1b dec de 0c0a 3e3f ld a,3fh 0c0c 1d dec e 0c0d 3a3b1e ld a,(1e3bh) 0c10 37 scf 0c11 3820 jr c,0c33h 0c13 34 inc (hl) 0c14 35 dec (hl) 0c15 223132 ld (3231h),hl 0c18 24 inc h 0c19 2e2f ld l,2fh 0c1b 25 dec h 0c1c 2c inc l 0c1d 2c inc l 0c1e 29 add hl,hl 0c1f 2c inc l 0c20 2c inc l 0c21 29 add hl,hl 0c22 29 add hl,hl 0c23 2a2b27 ld hl,(272bh) 0c26 27 daa 0c27 2e25 ld l,25h 0c29 25 dec h 0c2a 3023 jr nc,0c4fh 0c2c 23 inc hl 0c2d 33 inc sp 0c2e 212136 ld hl,3621h 0c31 212136 ld hl,3621h 0c34 1f rra 0c35 1f rra 0c36 3a1d1d ld a,(1d1dh) 0c39 3d dec a 0c3a 1c inc e 0c3b 1b dec de 0c3c 41 ld b,c 0c3d 1a ld a,(de) 0c3e 1a ld a,(de) 0c3f 45 ld b,l 0c40 19 add hl,de 0c41 1849 jr 0c8ch 0c43 17 rla 0c44 17 rla 0c45 4d ld c,l 0c46 1615 ld d,15h 0c48 52 ld d,d 0c49 1615 ld d,15h 0c4b 52 ld d,d 0c4c 14 inc d 0c4d 14 inc d 0c4e 57 ld d,a 0c4f 13 inc de 0c50 13 inc de 0c51 5c ld e,h 0c52 12 ld (de),a 0c53 12 ld (de),a 0c54 61 ld h,c 0c55 111167 ld de,6711h 0c58 1010 djnz 0c6ah 0c5a 6d ld l,l 0c5b 1010 djnz 0c6dh 0c5d 6d ld l,l 0c5e 0f rrca 0c5f 0f rrca 0c60 74 ld (hl),h 0c61 0e0e ld c,0eh 0c63 52 ld d,d 0c64 0d dec c 0c65 0d dec c 0c66 82 add a,d 0c67 0c inc c 0c68 0c inc c 0c69 8a adc a,d ---------------------------------- SOUND ---------------------------------- 0c6a cdd647 call 47d6h 0c6d cda52a call 2aa5h 0c70 b7 or a 0c71 2001 jr nz,0c74h 0c73 3c inc a 0c74 d9 exx 0c75 5f ld e,a 0c76 1600 ld d,00h 0c78 2f cpl 0c79 3c inc a 0c7a 4f ld c,a 0c7b d9 exx 0c7c cf rst 08h 0c7d 2c inc l 0c7e cda52a call 2aa5h 0c81 d9 exx 0c82 cdd40c call 0cd4h 0c85 0604 ld b,04h 0c87 b7 or a 0c88 cb1a rr d 0c8a cb1b rr e 0c8c 10f9 djnz 0c87h 0c8e 13 inc de 0c8f d9 exx 0c90 7e ld a,(hl) 0c91 fe2c cp 2ch 0c93 3e00 ld a,00h 0c95 2004 jr nz,0c9bh 0c97 23 inc hl 0c98 cda52a call 2aa5h 0c9b d9 exx 0c9c f5 push af 0c9d 81 add a,c 0c9e 320e48 ld (480eh),a 0ca1 e1 pop hl 0ca2 79 ld a,c 0ca3 94 sub h 0ca4 320f48 ld (480fh),a --------------------------------- Emission d'un son --------------------------------- 0ca7 f3 di 0ca8 e5 push hl 0ca9 e1 pop hl 0caa 3e00 ld a,00h 0cac 2a0e48 ld hl,(480eh) 0caf cde60c call 0ce6h 0cb2 2d dec l 0cb3 c2af0c jp nz,0cafh 0cb6 3e08 ld a,08h 0cb8 d3af out (0afh),a 0cba 1b dec de 0cbb cde80c call 0ce8h 0cbe cde90c call 0ce9h 0cc1 cde60c call 0ce6h 0cc4 25 dec h 0cc5 c2c10c jp nz,0cc1h 0cc8 3e00 ld a,00h 0cca d3af out (0afh),a 0ccc 7a ld a,d 0ccd b3 or e 0cce c2a80c jp nz,0ca8h 0cd1 fb ei 0cd2 d9 exx 0cd3 c9 ret 0cd4 0608 ld b,08h 0cd6 210000 ld hl,0000h 0cd9 0f rrca 0cda 3001 jr nc,0cddh 0cdc 19 add hl,de 0cdd b7 or a ---------------------------------- SETE ---------------------------------- 0cde cb13 rl e 0ce0 cb12 rl d 0ce2 10f5 djnz 0cd9h 0ce4 eb ex de,hl 0ce5 c9 ret 0ce6 e3 ex (sp),hl 0ce7 e3 ex (sp),hl 0ce8 00 nop 0ce9 c9 ret 0cea 05 dec b 0ceb ed4d reti 0ced 7e ld a,(hl) 0cee 23 inc hl 0cef 06c0 ld b,0c0h 0cf1 fe54 cp 54h 0cf3 2807 jr z,0cfch 0cf5 0640 ld b,40h 0cf7 fe47 cp 47h 0cf9 c23822 jp nz,2238h 0cfc c5 push bc 0cfd dd360100 ld (ix+01h),00h 0d01 cda52a call 2aa5h 0d04 fe20 cp 20h 0d06 da6725 jp c,2567h 0d09 cbff set 7,a 0d0b 5f ld e,a 0d0c 1622 ld d,22h 0d0e 08 ex af,af' 0d0f cd7c0d call 0d7ch 0d12 f1 pop af 0d13 f5 push af 0d14 ee80 xor 80h 0d16 5f ld e,a 0d17 1621 ld d,21h 0d19 cd7c0d call 0d7ch 0d1c 1620 ld d,20h 0d1e 1e03 ld e,03h 0d20 cd7c0d call 0d7ch 0d23 1624 ld d,24h 0d25 08 ex af,af' 0d26 5f ld e,a 0d27 08 ex af,af' 0d28 7b ld a,e 0d29 1f rra 0d2a 1f rra 0d2b e61f and 1fh 0d2d 5f ld e,a 0d2e cd7c0d call 0d7ch 0d31 1625 ld d,25h 0d33 08 ex af,af' 0d34 e603 and 03h 0d36 c1 pop bc ---------------------------------- GR ---------------------------------- 0d37 b0 or b 0d38 5f ld e,a 0d39 cd7c0d call 0d7ch 0d3c 1620 ld d,20h 0d3e 1e34 ld e,34h ---------------------------------- ET ---------------------------------- 0d40 cd7c0d call 0d7ch 0d43 cf rst 08h 0d44 2c inc l 0d45 cf rst 08h 0d46 222b06 ld (062bh),hl ---------------------------------- EG ---------------------------------- 0d49 0a ld a,(bc) 0d4a cdbf0f call 0fbfh 0d4d c5 push bc 0d4e 0608 ld b,08h 0d50 07 rlca ---------------------------------- INIT ---------------------------------- 0d51 cb19 rr c 0d53 10fb djnz 0d50h 0d55 79 ld a,c 0d56 c1 pop bc 0d57 5f ld e,a 0d58 1629 ld d,29h 0d5a cd7c0d call 0d7ch 0d5d cd8602 call 0286h Attente EF9345 prêt 0d60 3e25 ld a,25h 0d62 d38f out (8fh),a 0d64 dbcf in a,(0cfh) Lecture registre R5 0d66 c604 add a,04h 0d68 5f ld e,a 0d69 1625 ld d,25h 0d6b cd7c0d call 0d7ch 0d6e 10da djnz 0d4ah 0d70 23 inc hl 0d71 7e ld a,(hl) 0d72 fe22 cp 22h 0d74 2001 jr nz,0d77h 0d76 23 inc hl 0d77 dd360101 ld (ix+01h),01h 0d7b c9 ret ---------------------------------- CURSOR ---------------------------------- 0d7c 0e8f ld c,8fh 0d7e ed51 out (c),d 0d80 0ecf ld c,0cfh 0d82 ed59 out (c),e 0d84 c9 ret ---------------------------------- definition d'un caractere ---------------------------------- 0d85 06c0 ld b,0c0h 0d87 cb7f bit 7,a 0d89 2802 jr z,0d8dh 0d8b 0640 ld b,40h 0d8d c5 push bc 0d8e dd360100 ld (ix+01h),00h 0d92 cbff set 7,a 0d94 5f ld e,a 0d95 1622 ld d,22h 0d97 08 ex af,af' 0d98 cd7c0d call 0d7ch 0d9b f1 pop af 0d9c f5 push af 0d9d ee80 xor 80h 0d9f 5f ld e,a 0da0 1621 ld d,21h 0da2 cd7c0d call 0d7ch 0da5 1620 ld d,20h 0da7 1e03 ld e,03h ---------------------------------- SCROLL ---------------------------------- 0da8 0da9 cd7c0d call 0d7ch 0dac 1624 ld d,24h 0dae 08 ex af,af' 0daf 5f ld e,a 0db0 08 ex af,af' ---------------------------------- PAGE ---------------------------------- 0db1 7b ld a,e 0db2 1f rra 0db3 1f rra 0db4 e61f and 1fh 0db6 5f ld e,a 0db7 cd7c0d call 0d7ch ---------------------------------- STICKX ---------------------------------- 0dba 1625 ld d,25h 0dbc 08 ex af,af' 0dbd e603 and 03h 0dbf c1 pop bc 0dc0 b0 or b 0dc1 5f ld e,a 0dc2 cd7c0d call 0d7ch 0dc5 1620 ld d,20h 0dc7 1e34 ld e,34h 0dc9 cd7c0d call 0d7ch 0dcc 060a ld b,0ah 0dce 7e ld a,(hl) 0dcf 23 inc hl 0dd0 c5 push bc 0dd1 0608 ld b,08h 0dd3 07 rlca 0dd4 cb19 rr c 0dd6 10fb djnz 0dd3h 0dd8 79 ld a,c 0dd9 c1 pop bc 0dda 5f ld e,a 0ddb 1629 ld d,29h 0ddd cd7c0d call 0d7ch 0de0 cd8602 call 0286h Attente EF9345 prêt 0de3 3e25 ld a,25h 0de5 d38f out (8fh),a 0de7 dbcf in a,(0cfh) 0de9 c604 add a,04h 0deb 5f ld e,a 0dec 1625 ld d,25h 0dee cd7c0d call 0d7ch ---------------------------------- STICKY ---------------------------------- 0df0 0df1 10db djnz 0dceh 0df3 dd360101 ld (ix+01h),01h 0df7 c9 ret 0df8 3e00 ld a,00h 0dfa dd770a ld (ix+0ah),a 0dfd f5 push af 0dfe f607 or 07h 0e00 dd7708 ld (ix+08h),a 0e03 f1 pop af 0e04 c8 ret z 0e05 cda52a call 2aa5h 0e08 f5 push af 0e09 e607 and 07h 0e0b 57 ld d,a 0e0c dd7e08 ld a,(ix+08h) 0e0f e6f8 and 0f8h 0e11 b2 or d 0e12 dd7708 ld (ix+08h),a 0e15 f1 pop af 0e16 c8 ret z 0e17 cf rst 08h 0e18 2c inc l 0e19 cda52a call 2aa5h 0e1c f5 push af 0e1d e607 and 07h 0e1f 87 add a,a 0e20 87 add a,a 0e21 87 add a,a 0e22 87 add a,a 0e23 ddb608 or (ix+08h) 0e26 dd7708 ld (ix+08h),a 0e29 f1 pop af 0e2a c8 ret z 0e2b cf rst 08h 0e2c 2c inc l 0e2d cda52a call 2aa5h 0e30 b7 or a 0e31 c8 ret z 0e32 ddcb08de set 3,(ix+08h) 0e36 c9 ret 0e37 dd360a00 ld (ix+0ah),00h 0e3b 3e80 ld a,80h 0e3d c3fd0d jp 0dfdh 0e40 dd360a80 ld (ix+0ah),80h 0e44 3e00 ld a,00h 0e46 c3fd0d jp 0dfdh 0e49 3e80 ld a,80h 0e4b dd770a ld (ix+0ah),a 0e4e c3fd0d jp 0dfdh 0e51 dd360800 ld (ix+08h),00h 0e55 e5 push hl 0e56 3ee6 ld a,0e6h 0e58 2824 jr z,0e7eh 0e5a e1 pop hl 0e5b cda52a call 2aa5h 0e5e 2813 jr z,0e73h 0e60 f5 push af 0e61 cf rst 08h 0e62 2c inc l 0e63 cda52a call 2aa5h 0e66 e607 and 07h 0e68 47 ld b,a 0e69 dd7e03 ld a,(ix+03h) 0e6c e6f8 and 0f8h 0e6e b0 or b 0e6f dd7703 ld (ix+03h),a 0e72 f1 pop af 0e73 e5 push hl 0e74 e607 and 07h 0e76 6f ld l,a 0e77 87 add a,a 0e78 87 add a,a 0e79 87 add a,a 0e7a 87 add a,a 0e7b 85 add a,l 0e7c cbff set 7,a 0e7e cd9732 call 3297h 0e81 e1 pop hl 0e82 c9 ret 0e83 7e ld a,(hl) 0e84 23 inc hl 0e85 fe59 cp 59h 0e87 2812 jr z,0e9bh 0e89 fe58 cp 58h 0e8b c23822 jp nz,2238h 0e8e cda52a call 2aa5h 0e91 fe28 cp 28h 0e93 3802 jr c,0e97h 0e95 3e27 ld a,27h 0e97 320548 ld (4805h),a 0e9a c9 ret 0e9b cda52a call 2aa5h 0e9e fe19 cp 19h 0ea0 3802 jr c,0ea4h 0ea2 3e18 ld a,18h 0ea4 320648 ld (4806h),a 0ea7 c9 ret 0ea8 3a7148 ld a,(4871h) 0eab cbbf res 7,a 0ead 327148 ld (4871h),a 0eb0 c9 ret 0eb1 3a7148 ld a,(4871h) 0eb4 cbff set 7,a 0eb6 327148 ld (4871h),a 0eb9 c9 ret 0eba cda82a call 2aa8h 0ebd cdc30e call 0ec3h 0ec0 c30f2a jp 2a0fh ----------------------------------- scrute joysticks (droite/gauche) ----------------------------------- 0ec3 0600 ld b,00h 0ec5 e603 and 03h 0ec7 280e jr z,0ed7h 0ec9 3d dec a 0eca 2816 jr z,0ee2h 0ecc db80 in a,(80h) 0ece cb5f bit 3,a 0ed0 2001 jr nz,0ed3h 0ed2 05 dec b 0ed3 cb67 bit 4,a 0ed5 1814 jr 0eebh 0ed7 db07 in a,(07h) 0ed9 cb5f bit 3,a 0edb 2001 jr nz,0edeh 0edd 05 dec b 0ede cb4f bit 1,a 0ee0 1809 jr 0eebh 0ee2 db08 in a,(08h) 0ee4 cb5f bit 3,a 0ee6 2001 jr nz,0ee9h 0ee8 05 dec b 0ee9 cb4f bit 1,a 0eeb 2001 jr nz,0eeeh 0eed 04 inc b 0eee 78 ld a,b 0eef c9 ret 0ef0 cda82a call 2aa8h 0ef3 cdf90e call 0ef9h 0ef6 c30f2a jp 2a0fh ---------------------------------- TX ---------------------------------- 0ef8 ----------------------------------- scrute joysticks (haut/bas) ----------------------------------- 0ef9 0600 ld b,00h 0efb e603 and 03h 0efd 2810 jr z,0f0fh 0eff 3d dec a 0f00 2818 jr z,0f1ah 0f02 db81 in a,(81h) 0f04 cb77 bit 6,a 0f06 2001 jr nz,0f09h 0f08 05 dec b 0f09 db80 in a,(80h) 0f0b cb6f bit 5,a 0f0d 18dc jr 0eebh 0f0f db07 in a,(07h) 0f11 cb47 bit 0,a 0f13 2001 jr nz,0f16h 0f15 05 dec b 0f16 cb57 bit 2,a 0f18 18d1 jr 0eebh 0f1a db08 in a,(08h) 0f1c cb47 bit 0,a 0f1e 2001 jr nz,0f21h 0f20 05 dec b 0f21 cb57 bit 2,a 0f23 18c6 jr 0eebh ---------------------------------- ACTION ---------------------------------- 0f25 cda82a call 2aa8h 0f28 cd2e0f call 0f2eh 0f2b c30f2a jp 2a0fh ----------------------------------- scrute joysticks (action1/action2) ----------------------------------- 0f2e 0600 ld b,00h 0f30 e603 and 03h 0f32 280a jr z,0f3eh 0f34 3d dec a 0f35 caf31f jp z,1ff3h 0f38 db81 in a,(81h) 0f3a cb57 bit 2,a 0f3c 18ad jr 0eebh 0f3e db07 in a,(07h) 0f40 2f cpl 0f41 e630 and 30h 0f43 0f rrca 0f44 0f rrca 0f45 0f rrca 0f46 0f rrca 0f47 47 ld b,a 0f48 c9 ret ---------------------------------- KEY ---------------------------------- 0f49 e5 push hl 0f4a cda702 call 02a7h scrutation clavier 0f4d e1 pop hl 0f4e b7 or a 0f4f c30f2a jp 2a0fh ---------------------------------- DELIM ---------------------------------- 0f52 dd7e08 ld a,(ix+08h) 0f55 f5 push af 0f56 3e00 ld a,00h 0f58 f5 push af 0f59 cda52a call 2aa5h 0f5c e607 and 07h 0f5e d1 pop de 0f5f b2 or d 0f60 f5 push af 0f61 cf rst 08h 0f62 2c inc l 0f63 cda52a call 2aa5h 0f66 e607 and 07h 0f68 87 add a,a 0f69 87 add a,a 0f6a 87 add a,a 0f6b 87 add a,a 0f6c d1 pop de 0f6d b2 or d 0f6e cbff set 7,a 0f70 dd7708 ld (ix+08h),a 0f73 cf rst 08h 0f74 2c inc l 0f75 cda52a call 2aa5h 0f78 cb47 bit 0,a 0f7a 3e80 ld a,80h 0f7c 2802 jr z,0f80h 0f7e 3e84 ld a,84h 0f80 e5 push hl 0f81 cdfc01 call 01fch 0f84 e1 pop hl 0f85 f1 pop af 0f86 dd7708 ld (ix+08h),a 0f89 dd360101 ld (ix+01h),01h ---------------------------------- SCREEN ---------------------------------- 0f8d c9 ret 0f8e dd360101 ld (ix+01h),01h 0f92 dd360001 ld (ix+00h),01h 0f96 76 halt 0f97 c9 ret ---------------------------------- DISPLAY ---------------------------------- 0f98 3e20 ld a,20h 0f9a 2803 jr z,0f9fh 0f9c cda52a call 2aa5h 0f9f dd7702 ld (ix+02h),a 0fa2 18ea jr 0f8eh ---------------------------------- STORE ---------------------------------- 0fa4 dd360200 ld (ix+02h),00h 0fa8 dd360000 ld (ix+00h),00h 0fac c9 ret ---------------------------------- CALL ---------------------------------- 0fad cd4d28 call 284dh 0fb0 cd5225 call 2552h 0fb3 3ec3 ld a,0c3h 0fb5 32d347 ld (47d3h),a 0fb8 ed53d447 ld (47d4h),de 0fbc c3d347 jp 47d3h 0fbf cdd20f call 0fd2h 0fc2 da3822 jp c,2238h 0fc5 87 add a,a 0fc6 87 add a,a 0fc7 87 add a,a 0fc8 87 add a,a 0fc9 4f ld c,a 0fca cdd20f call 0fd2h 0fcd da3822 jp c,2238h 0fd0 b1 or c 0fd1 c9 ret 0fd2 23 inc hl 0fd3 7e ld a,(hl) 0fd4 fe30 cp 30h 0fd6 3814 jr c,0fech 0fd8 fe3a cp 3ah 0fda 380d jr c,0fe9h 0fdc cbaf res 5,a 0fde fe41 cp 41h 0fe0 380a jr c,0fech 0fe2 fe47 cp 47h 0fe4 d2ec0f jp nc,0fech 0fe7 c6c9 add a,0c9h 0fe9 e60f and 0fh 0feb c9 ret 0fec 37 scf 0fed c9 ret ------------------------------------------------------------------------------ 00000FE0 38 0A FE 47 D2 EC 0F C6 C9 E6 0F C9 37 C9 FF FF 8.þGÒì.ÆÉæ.É7Éÿÿ 00000FF0 FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ------------------------------------------------------------------------------ ---------------------------------- Initialisation du Basic ---------------------------------- 1000 03 inc bc 1001 210000 ld hl,0000h 1004 110040 ld de,4000h 1007 0100c0 ld bc,0c000h 100a edb0 ldir 0000-bfff -> 4000-ffff 100c 44 ld b,h 100d 4d ld c,l 100e 210040 ld hl,4000h 1011 1a ld a,(de) <-- 1012 eda1 cpi | 1014 13 inc de | 1015 2004 jr nz,101bh ---|-- 1017 ea1110 jp pe,1011h --- | 101a 3e2b ld a,2bh | | 101b 2b dec hl <------- 101c f9 ld sp,hl 101d 229548 ld (4895h),hl 1020 3ec9 ld a,0c9h 1022 21d047 ld hl,47d0h 1025 061e ld b,1eh 1027 77 ld (hl),a <--- 1028 23 inc hl | 1029 10fc djnz 1027h ---- 102b 3ec3 ld a,0c3h mise à jp des vecteurs crayon optique, disque, modem 102d 32f147 ld (47f1h),a 1030 32f447 ld (47f4h),a 1033 32f747 ld (47f7h),a 1036 215022 ld hl,2250h mise à jp 2250h des vecteurs crayon optique, disque, modem 1039 22f247 ld (47f2h),hl 103c 22f547 ld (47f5h),hl 103f 22f847 ld (47f8h),hl 1042 216900 ld hl,0069h 1045 22ef47 ld (47efh),hl 1048 32ee47 ld (47eeh),a 104b dd21fa47 ld ix,47fah 104f 217911 ld hl,1179h sequence de commandes EF9345 (long=1A) 1052 cdef02 call 02efh envoi commandes EF9345 1055 dd360005 ld (ix+00h),05h 1059 dd360100 ld (ix+01h),00h 105d dd360401 ld (ix+04h),01h 1061 ed56 im 1 1063 fb ei 1064 210100 ld hl,0001h 1067 220948 ld (4809h),hl 106a dd36036e ld (ix+03h),6eh 106e cd7832 call 3278h communications avec l'ecran 1071 219411 ld hl,1194h 1074 016500 ld bc,0065h 1077 113048 ld de,4830h 107a edb0 ldir 107c af xor a 107d d3ef out (0efh),a 107f d3af out (0afh),a 1081 211811 ld hl,1118h 1084 22ef47 ld (47efh),hl 1087 cdfe2e call 2efeh 108a cd573c call 3c57h 108d 321949 ld (4919h),a 1090 32fb49 ld (49fbh),a 1093 21feff ld hl,0fffeh 1096 39 add hl,sp 1097 11e803 ld de,03e8h 109a e7 rst 20h 109b dad22e jp c,2ed2h 109e 11ceff ld de,0ffceh 10a1 221f49 ld (491fh),hl 10a4 19 add hl,de 10a5 229548 ld (4895h),hl 10a8 cdd92e call 2ed9h 10ab 2a9548 ld hl,(4895h) 10ae 11efff ld de,0ffefh 10b1 19 add hl,de 10b2 11fb49 ld de,49fbh 10b5 7d ld a,l 10b6 93 sub e 10b7 6f ld l,a 10b8 7c ld a,h 10b9 9a sbc a,d 10ba 67 ld h,a 10bb e5 push hl 10bc dd360830 ld (ix+08h),30h 10c0 214811 ld hl,1148h message "VG5000 BASIC version..." 10c3 cdaa36 call 36aah 10c6 cd573c call 3c57h 10c9 214811 ld hl,1148h chaine "VG5000 BASIC " 10cc cdaa36 call 36aah 10cf dd360800 ld (ix+08h),00h 10d3 216311 ld hl,1163h chaine "version" 10d6 cdaa36 call 36aah 10d9 210400 ld hl,0004h chaine "1.1" 10dc cdaa36 call 36aah 10df cd573c call 3c57h 10e2 e1 pop hl 10e3 cd2607 call 0726h 10e6 21c616 ld hl,16c6h chaine "octets disponibles" 10e9 3a9048 ld a,(4890h) 10ec b7 or a 10ed 2803 jr z,10f2h --- 10ef 21db16 ld hl,16dbh | chaine "bytes free" 10f2 cdaa36 call 36aah <-- 10f5 114142 ld de,4241h 10f8 213f11 ld hl,113fh retour = melodie demarrage 10fb e5 push hl 10fc 210060 ld hl,6000h 10ff 010020 ld bc,2000h 1102 af xor a <---- 1103 ed4a adc hl,bc | 1105 7c ld a,h | 1106 b5 or l | 1107 c8 ret z --------|--> retour avec hl = 0x8000 1108 e5 push hl | 1109 7e ld a,(hl) | 110a 23 inc hl | 110b 66 ld h,(hl) | 110c 6f ld l,a | 110d e7 rst 20h | comparaison hl et de 110e e1 pop hl | recherche de 4142 ("AB") 110f 20f1 jr nz,1102h -- identifiant cartouche rom ? 1111 23 inc hl 1112 23 inc hl 1113 7e ld a,(hl) lecture adresse en 8002 1114 23 inc hl 1115 66 ld h,(hl) 1116 6f ld l,a 1117 e9 jp (hl) lancement cartouche 1118 f5 push af 1119 db80 in a,(80h) lecture clavier 111b e640 and 40h 111d 2803 jr z,1122h 111f f1 pop af 1120 ed45 retn ---------------------------------- Redemarrage a chaud ---------------------------------- 1122 311949 ld sp,4919h 1125 af xor a 1126 d3af out (0afh),a 1128 327048 ld (4870h),a 112b 3c inc a 112c d310 out (10h),a 112e fb ei 112f 210100 ld hl,0001h 1132 220948 ld (4809h),hl 1135 dd36036e ld (ix+03h),6eh 1139 cd7832 call 3278h 113c cdfe2e call 2efeh 113f 216d11 ld hl,116dh melodie de demarrage 1142 cd750a call 0a75h PLAY 1145 c38d22 jp 228dh ----------------------------------------------------------------------- 1140 6d 11 cd 75 0a c3 8d 22 56 56 47 47 20 20 35 35 m..u..."VVGG 55 1150 30 30 30 30 30 30 20 20 42 42 41 41 53 53 49 49 000000 BBAASSII 1160 43 43 00 20 76 65 72 73 69 6f 6e 20 00 22 54 38 CC. version ."T8 1170 4f 34 43 4f 33 47 45 43 22 1a 28 81 29 00 20 82 O4CO3GEC".(.). . 1180 29 6e 20 83 29 f7 20 84 29 13 20 87 29 08 26 08 )n .). .). .).&. 1190 27 00 28 02 c3 3f 11 c3 67 25 d6 00 6f 7c de 00 '.(..?..g%..o|.. 11a0 67 78 de 00 47 3e 00 c9 00 00 00 35 4a ca 99 39 gx..G>.....5J..9 11b0 1c 76 98 22 95 b3 98 0a dd 47 98 53 d1 99 99 0a .v.".....G.S.... 11c0 1a 9f 98 65 bc cd 98 d6 77 3e 98 52 c7 4f 80 db ...e....w>.R.O.. 11d0 00 c9 00 00 00 00 00 00 00 00 d3 11 45 18 17 18 ............E... 11e0 12 1b 14 13 1a 19 16 15 00 0a 00 0a 00 00 28 1b ..............(. 11f0 fe ff fc 49 00 f9 11 0d 1c 0c f2 77 73 2f 00 2d ...I.......ws/.- 1200 3d 00 71 78 65 2a 30 2b 02 00 20 63 33 66 5d 72 =.qxe*0+.. c3f]r 1210 6e 08 01 76 34 67 10 74 6a 07 00 62 35 75 2c 79 n..v4g.tj..b5u,y 1220 68 0a 0d 31 36 69 37 3c 6b 00 09 3a 32 6f 38 d8 h..16i7K..*!O'. 1270 4c 06 41 5a 40 50 28 44 4d 1f ff f7 f3 5f 00 3f L.AZ@P(DM...._.? 1280 5e 00 f1 f8 e5 3b b0 2e 04 00 20 e3 b3 e6 db f2 ^....;.... ..... 1290 ee 08 01 f6 b4 e7 dc f4 ea 07 00 e2 b5 f5 de f9 ................ 12a0 e8 0a 0d b1 b6 e9 b7 df eb 00 09 d9 b2 ef b8 e0 ................ 12b0 ec 06 e1 fa da f0 b9 e4 ed 0c f2 7a 73 2f 00 2d ...........zs/.- 12c0 3d 00 61 78 65 2a 30 2b 02 00 20 63 33 66 5d 72 =.axe*0+.. c3f]r 12d0 6e 08 6d 76 34 67 10 74 6a 07 00 62 35 75 2c 79 n.mv4g.tj..b5u,y 12e0 68 0a 0d 31 36 69 37 3c 6b 00 09 3a 32 6f 38 d8 h..16i7K..*!O'. 1330 4c 06 51 57 40 50 28 44 01 1f ff fa f3 5f 00 3f L.QW@P(D....._.? 1340 5e 00 e1 f8 e5 3b b0 2e 04 00 20 e3 b3 e6 db f2 ^....;.... ..... 1350 ee 08 ed f6 b4 e7 dc f4 ea 07 00 e2 b5 f5 de f9 ................ 1360 e8 0a 0d b1 b6 e9 b7 df eb 00 09 d9 b2 ef b8 e0 ................ 1370 ec 06 f1 f7 da f0 b9 e4 01 00 4e 45 58 54 20 73 ..........NEXT s 1380 61 6e 73 20 46 4f 52 00 45 72 72 65 75 72 20 64 ans FOR.Erreur d 1390 65 20 73 79 6e 74 61 78 65 00 52 45 54 55 52 4e e syntaxe.RETURN 13a0 20 73 61 6e 73 20 47 4f 53 55 42 00 44 41 54 41 sans GOSUB.DATA 13b0 20 12 70 75 69 73 12 65 73 00 41 70 70 65 6c 20 .puis.es.Appel 13c0 64 65 20 66 6f 6e 63 74 69 6f 6e 20 69 6e 63 6f de fonction inco 13d0 72 72 65 63 74 65 00 44 12 70 61 73 73 65 6d 65 rrecte.D.passeme 13e0 6e 74 20 64 65 20 63 61 70 61 63 69 74 12 00 53 nt de capacit..S 13f0 6f 72 74 69 65 20 64 65 20 6d 12 6d 6f 69 72 65 ortie de m.moire 1400 00 4c 69 67 6e 65 20 6e 6f 6e 20 64 12 66 69 6e .Ligne non d.fin 1410 69 65 00 49 6e 64 69 63 65 20 68 6f 72 73 20 64 ie.Indice hors d 1420 65 73 20 6c 69 6d 69 74 65 73 00 54 61 62 6c 65 es limites.Table 1430 61 75 20 72 65 64 69 6d 65 6e 73 69 6f 6e 6e 12 au redimensionn. 1440 00 44 69 76 69 73 69 6f 6e 20 70 61 72 20 7a 12 .Division par z. 1450 72 6f 00 49 6e 63 6f 72 72 65 63 74 20 65 6e 20 ro.Incorrect en 1460 64 69 72 65 63 74 00 4f 70 12 72 61 6e 64 65 20 direct.Op.rande 1470 6d 61 6c 20 61 64 61 70 74 12 00 45 73 70 61 63 mal adapt..Espac 1480 65 2d 63 68 61 11 6e 65 20 12 70 75 69 73 12 00 e-cha.ne .puis.. 1490 43 68 61 11 6e 65 20 74 72 6f 70 20 6c 6f 6e 67 Cha.ne trop long 14a0 75 65 00 46 6f 72 6d 75 6c 65 20 63 68 61 11 6e ue.Formule cha.n 14b0 65 20 74 72 6f 70 20 63 6f 6d 70 6c 65 78 65 00 e trop complexe. 14c0 49 6d 70 6f 73 73 69 62 6c 65 20 64 65 20 63 6f Impossible de co 14d0 6e 74 69 6e 75 65 72 00 46 6f 6e 63 74 69 6f 6e ntinuer.Fonction 14e0 20 75 74 69 6c 69 73 61 74 65 75 72 20 6e 6f 6e utilisateur non 14f0 20 64 12 66 69 6e 69 65 00 4f 70 12 72 61 6e 64 d.finie.Op.rand 1500 65 20 6d 61 6e 71 75 61 6e 74 00 46 4f 52 20 73 e manquant.FOR s 1510 61 6e 73 20 4e 45 58 54 00 50 65 72 69 70 68 65 ans NEXT.Periphe 1520 72 69 71 75 65 20 6e 6f 6e 20 63 6f 6e 6e 65 63 rique non connec 1530 74 12 00 4e 6f 6e 20 72 65 63 6f 6e 6e 75 00 00 t..Non reconnu.. 1540 4e 45 58 54 20 77 69 74 68 6f 75 74 20 46 4f 52 NEXT without FOR 1550 00 53 79 6e 74 61 78 20 65 72 72 6f 72 00 52 45 .Syntax error.RE 1560 54 55 52 4e 20 77 69 74 68 6f 75 74 20 47 4f 53 TURN without GOS 1570 55 42 00 4f 75 74 20 6f 66 20 44 41 54 41 00 49 UB.Out of DATA.I 1580 6c 6c 65 67 61 6c 20 66 75 6e 63 74 69 6f 6e 20 llegal function 1590 63 61 6c 6c 00 4f 76 65 72 66 6c 6f 77 00 4f 75 call.Overflow.Ou 15a0 74 20 6f 66 20 6d 65 6d 6f 72 79 00 55 6e 64 65 t of memory.Unde 15b0 66 69 6e 65 64 20 6c 69 6e 65 20 6e 75 6d 62 65 fined line numbe 15c0 72 00 53 75 62 73 63 72 69 70 74 20 6f 75 74 20 r.Subscript out 15d0 6f 66 20 72 61 6e 67 65 00 44 75 70 6c 69 63 61 of range.Duplica 15e0 74 65 20 64 65 66 69 6e 69 74 69 6f 6e 00 44 69 te definition.Di 15f0 76 69 73 69 6f 6e 20 62 79 20 7a 65 72 6f 00 49 vision by zero.I 1600 6c 6c 65 67 61 6c 20 64 69 72 65 63 74 00 54 79 llegal direct.Ty 1610 70 65 20 6d 69 73 6d 61 74 63 68 00 4f 75 74 20 pe mismatch.Out 1620 6f 66 20 73 74 72 69 6e 67 20 73 70 61 63 65 00 of string space. 1630 53 74 72 69 6e 67 20 74 6f 6f 20 6c 6f 6e 67 00 String too long. 1640 53 74 72 69 6e 67 20 66 6f 72 6d 75 6c 61 20 74 String formula t 1650 6f 6f 20 63 6f 6d 70 6c 65 78 00 43 61 6e 6e 6f oo complex.Canno 1660 74 20 63 6f 6e 74 69 6e 75 65 00 55 6e 64 65 66 t continue.Undef 1670 69 6e 65 64 20 75 73 65 72 20 66 75 6e 63 74 69 ined user functi 1680 6f 6e 00 4d 69 73 73 69 6e 67 20 6f 70 65 72 61 on.Missing opera 1690 6e 64 00 46 4f 52 20 77 69 74 68 6f 75 74 20 4e nd.FOR without N 16a0 45 58 54 00 44 65 76 69 63 65 20 6e 6f 74 20 73 EXT.Device not s 16b0 75 70 70 6f 72 74 65 64 00 55 6e 72 65 63 6f 67 upported.Unrecog 16c0 6e 69 7a 65 64 00 20 6f 63 74 65 74 73 20 64 69 nized. octets di 16d0 73 70 6f 6e 69 62 6c 65 73 03 00 20 62 79 74 65 sponibles.. byte 16e0 73 20 66 72 65 65 03 00 4c 69 67 6e 65 20 00 4c s free..Ligne .L 16f0 69 6e 65 20 00 20 6e 6f 6e 20 64 12 66 69 6e 69 ine . non d.fini 1700 65 00 20 6e 6f 74 20 64 65 66 69 6e 65 64 00 44 e. not defined.D 1710 65 72 6e 69 12 72 65 20 69 6e 66 6f 72 6d 61 74 erni.re informat 1720 69 6f 6e 20 69 67 6e 6f 72 12 65 03 00 45 78 74 ion ignor.e..Ext 1730 72 61 20 69 67 6e 6f 72 65 64 03 00 52 65 63 6f ra ignored..Reco 1740 6d 6d 65 6e 63 65 7a 20 61 75 20 64 12 62 75 74 mmencez au d.but 1750 03 00 52 65 64 6f 20 66 72 6f 6d 20 73 74 61 72 ..Redo from star 1760 74 03 00 0f 41 72 72 1b 74 00 0f 42 72 65 61 6b t...Arr.t..Break 1770 00 20 65 6e 20 00 20 69 6e 20 00 46 6f 75 6e 64 . en . in .Found 1780 3a 00 53 6b 69 70 3a 00 41 42 4f 52 54 45 44 20 :.Skip:.ABORTED 1790 2d 20 72 65 70 6f 73 69 74 69 6f 6e 20 74 61 70 - reposition tap 17a0 65 0e 03 00 42 61 64 20 66 69 6c 65 0e 03 00 46 e...Bad file...F 17b0 69 6c 65 20 6d 69 73 6d 61 74 63 68 03 00 50 72 ile mismatch..Pr 17c0 69 6e 74 65 72 20 6e 6f 74 20 72 65 61 64 79 03 inter not ready. 17d0 00 54 72 6f 75 76 12 3a 00 50 61 73 73 12 3a 00 .Trouv.:.Pass.:. 17e0 41 4e 4e 55 4c 45 20 2d 20 72 65 70 6f 73 69 74 ANNULE - reposit 17f0 69 6f 6e 6e 65 72 20 6c 61 20 62 61 6e 64 65 0e ionner la bande. 1800 03 00 4d 61 75 76 61 69 73 20 66 69 63 68 69 65 ..Mauvais fichie 1810 72 0e 03 00 46 69 63 68 69 65 72 20 6e 6f 6e 20 r...Fichier non 1820 63 6f 72 72 65 73 70 6f 6e 64 61 6e 74 03 00 49 correspondant..I 1830 6d 70 72 69 6d 61 6e 74 65 20 70 61 73 20 70 72 mprimante pas pr 1840 1b 74 65 03 00 00 01 02 03 04 05 06 07 08 09 0a .te............. 1850 0b 0c 0d 0e 0f 10 8c 82 97 8b 87 96 85 83 8a 93 ................ 1860 88 9c ab 1e 1f 20 21 22 23 24 25 26 27 28 29 2a ..... !"#$%&'()* 1870 2b 2c 2d 2e 2f 30 31 32 33 34 35 36 37 38 39 3a +,-./0123456789: 1880 3b 3c 3d 3e 3f 40 41 42 43 44 45 46 47 48 49 4a ;<=>?@ABCDEFGHIJ 1890 4b 4c 4d 4e 4f 50 51 52 53 54 55 56 57 58 59 5a KLMNOPQRSTUVWXYZ 18a0 5b 5c 5d 5e 5f 60 61 62 63 64 65 66 67 68 69 6a [\]^_`abcdefghij 18b0 6b 6c 6d 6e 6f 70 71 72 73 74 75 76 77 78 79 7a klmnopqrstuvwxyz 18c0 7b 7c 7d 7e 7f 80 81 82 83 84 85 86 87 88 89 8a {|}~........... 18d0 8b 8c 8d 8e 8f 90 91 92 93 94 95 96 97 98 99 9a ................ 18e0 9b 9c 9d 9e 9f a0 a1 a2 a3 a4 a5 a6 a7 a8 a9 aa ................ 18f0 ab ac ad ae af b0 b1 b2 b3 b4 b5 b6 b7 b8 b9 ba ................ 1900 bb bc bd be bf c0 c1 c2 c3 c4 c5 c6 c7 c8 c9 ca ................ 1910 cb cc cd ce cf d0 d1 d2 d3 d4 d5 d6 d7 d8 d9 da ................ 1920 db dc dd de df e0 e1 e2 e3 e4 e5 e6 e7 e8 e9 ea ................ 1930 eb ec ed ee ef f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 fa ................ 1940 fb fc fd fe ff cd 8a 1b cd b1 31 e5 d5 cd a7 1e ..........1..... ----------------------------------------------------------------------- ---------------------------------- SAVE ---------------------------------- 1945 cd8a1b call 1b8ah 1948 cdb131 call 31b1h 194b e5 push hl 194c d5 push de 194d cda71e call 1ea7h 1950 d1 pop de 1951 210000 ld hl,0000h 1954 220b48 ld (480bh),hl 1957 3eff ld a,0ffh 1959 326f48 ld (486fh),a 195c 3e82 ld a,82h 195e 2ad849 ld hl,(49d8h) 1961 77 ld (hl),a 1962 23 inc hl 1963 222048 ld (4820h),hl 1966 322448 ld (4824h),a 1969 cde431 call 31e4h 196c 3e83 ld a,83h 196e cd971d call 1d97h 1971 3a2448 ld a,(4824h) 1974 cde01d call 1de0h 1977 cd1d1a call 1a1dh 197a e1 pop hl 197b c3d92e jp 2ed9h ---------------------------------- LOAD ---------------------------------- 197d 2e 197e cdb131 call 31b1h 1981 3a7248 ld a,(4872h) 1984 e60f and 0fh 1986 327248 ld (4872h),a 1989 cdcd1f call 1fcdh 198c 1e05 ld e,05h 198e cdde1f call 1fdeh 1991 cdf33a call 3af3h 1994 3810 jr c,19a6h 1996 cdb91f call 1fb9h 1999 380b jr c,19a6h 199b fe82 cp 82h 199d 37 scf 199e 2006 jr nz,19a6h 19a0 322648 ld (4826h),a 19a3 cd021e call 1e02h 19a6 daff1a jp c,1affh 19a9 f5 push af 19aa cdb91f call 1fb9h 19ad f1 pop af 19ae cdc31f call 1fc3h 19b1 2812 jr z,19c5h 19b3 21ef13 ld hl,13efh 19b6 3a9048 ld a,(4890h) 19b9 b7 or a 19ba 2803 jr z,19bfh 19bc 219e15 ld hl,159eh 19bf cdaa36 call 36aah 19c2 cd573c call 3c57h 19c5 3a7248 ld a,(4872h) 19c8 e6f0 and 0f0h 19ca 2806 jr z,19d2h 19cc cd2a1b call 1b2ah 19cf cdaa36 call 36aah 19d2 21e319 ld hl,19e3h 19d5 cdaa36 call 36aah 19d8 af xor a 19d9 328448 ld (4884h),a 19dc 3d dec a 19dd 327048 ld (4870h),a 19e0 c39f31 jp 319fh ---------------------------------- CSAVE ---------------------------------- 19de 19e3 50 ld d,b 19e4 61 ld h,c 19e5 75 ld (hl),l 19e6 73 ld (hl),e 19e7 65 ld h,l 19e8 2e2e ld l,2eh 19ea 2e03 ld l,03h 19ec 00 nop 19ed fe4d cp 4dh 19ef 2812 jr z,1a03h 19f1 fe53 cp 53h 19f3 280e jr z,1a03h 19f5 febb cp 0bbh 19f7 280a jr z,1a03h 19f9 fe58 cp 58h 19fb 2806 jr z,1a03h 19fd fe4c cp 4ch 19ff ca3f1c jp z,1c3fh 1a02 3a2301 ld a,(0123h) 1a05 3e20 ld a,20h 1a07 321048 ld (4810h),a 1a0a cd8a1b call 1b8ah 1a0d cdba1b call 1bbah 1a10 cd451c call 1c45h 1a13 e5 push hl 1a14 cdc11e call 1ec1h 1a17 3805 jr c,1a1eh 1a19 cdfc1e call 1efch 1a1c 3ee5 ld a,0e5h 1a1e cd6d3a call 3a6dh 1a21 3014 jr nc,1a37h 1a23 217248 ld hl,4872h 1a26 cbfe set 7,(hl) 1a28 21e017 ld hl,17e0h 1a2b 3a9048 ld a,(4890h) 1a2e b7 or a 1a2f 2803 jr z,1a34h 1a31 218817 ld hl,1788h 1a34 cdaa36 call 36aah 1a37 e1 pop hl 1a38 c9 ret ---------------------------------- CLOAD ---------------------------------- 1a39 febb cp 0bbh 1a3b 321748 ld (4817h),a 1a3e 2001 jr nz,1a41h 1a40 23 inc hl 1a41 321048 ld (4810h),a 1a44 fe41 cp 41h 1a46 2805 jr z,1a4dh -----> 23 inc hl -- 1a48 d694 sub 94h | 1a4a 2804 jr z,1a50h --> 2f23 | 1a4c 3e23 ld a,23h | 1a4e af xor a <---------------- 1a4f 012f23 ld bc,232fh 1a52 fe01 cp 01h 1a54 f5 push af 1a55 3a7248 ld a,(4872h) 1a58 e60f and 0fh 1a5a 327248 ld (4872h),a 1a5d cdb31b call 1bb3h 1a60 cdd11c call 1cd1h 1a63 cdcd1f call 1fcdh 1a66 1e01 ld e,01h 1a68 cdde1f call 1fdeh bordure rouge 1a6b cdf33a call 3af3h attente signal ? 1a6e 386b jr c,1adbh 1a70 cdd11b call 1bd1h 1a73 3866 jr c,1adbh 1a75 211948 ld hl,4819h 1a78 cdeb1b call 1bebh 1a7b 2827 jr z,1aa4h 1a7d 21d917 ld hl,17d9h 1a80 3a9048 ld a,(4890h) 1a83 b7 or a 1a84 2803 jr z,1a89h 1a86 218217 ld hl,1782h 1a89 cdfc1b call 1bfch 1a8c 1e04 ld e,04h 1a8e cdde1f call 1fdeh 1a91 cdf33a call 3af3h 1a94 3845 jr c,1adbh 1a96 060a ld b,0ah 1a98 cdb91f call 1fb9h 1a9b 383e jr c,1adbh 1a9d b7 or a 1a9e 20f6 jr nz,1a96h 1aa0 10f6 djnz 1a98h 1aa2 18c2 jr 1a66h 1aa4 21d117 ld hl,17d1h 1aa7 3a9048 ld a,(4890h) 1aaa b7 or a 1aab 2803 jr z,1ab0h 1aad 217b17 ld hl,177bh 1ab0 cdfc1b call 1bfch 1ab3 1e02 ld e,02h 1ab5 cdde1f call 1fdeh 1ab8 3a1848 ld a,(4818h) 1abb fe20 cp 20h 1abd 2014 jr nz,1ad3h 1abf 3a1048 ld a,(4810h) 1ac2 fe41 cp 41h 1ac4 280d jr z,1ad3h 1ac6 f1 pop af 1ac7 32e649 ld (49e6h),a 1aca dcd92e call c,2ed9h 1acd 3ae649 ld a,(49e6h) 1ad0 fe01 cp 01h 1ad2 f5 push af 1ad3 cd191d call 1d19h 1ad6 f1 pop af 1ad7 cd281f call 1f28h 1ada 3ed1 ld a,0d1h 1adc cdc31f call 1fc3h 1adf 217248 ld hl,4872h 1ae2 381b jr c,1affh 1ae4 2012 jr nz,1af8h 1ae6 79 ld a,c 1ae7 b7 or a 1ae8 7e ld a,(hl) 1ae9 284b jr z,1b36h 1aeb e6f0 and 0f0h 1aed 2020 jr nz,1b0fh 1aef 211422 ld hl,2214h 1af2 cdaa36 call 36aah 1af5 c32823 jp 2328h 1af8 cbe6 set 4,(hl) 1afa 1e0c ld e,0ch 1afc c35222 jp 2252h 1aff cbfe set 7,(hl) 1b01 21e017 ld hl,17e0h 1b04 3a9048 ld a,(4890h) 1b07 b7 or a 1b08 281a jr z,1b24h 1b0a 218817 ld hl,1788h 1b0d 1815 jr 1b24h 1b0f fe20 cp 20h 1b11 200e jr nz,1b21h 1b13 211418 ld hl,1814h 1b16 3a9048 ld a,(4890h) 1b19 b7 or a 1b1a 2808 jr z,1b24h 1b1c 21af17 ld hl,17afh 1b1f 1803 jr 1b24h 1b21 cd2a1b call 1b2ah 1b24 cdaa36 call 36aah 1b27 c38c22 jp 228ch 1b2a 210218 ld hl,1802h 1b2d 3a9048 ld a,(4890h) 1b30 b7 or a 1b31 c8 ret z 1b32 21a417 ld hl,17a4h 1b35 c9 ret 1b36 cb5f bit 3,a 1b38 2004 jr nz,1b3eh 1b3a e6f0 and 0f0h 1b3c 20d1 jr nz,1b0fh 1b3e 3a1848 ld a,(4818h) 1b41 fe4d cp 4dh 1b43 280f jr z,1b54h 1b45 fe20 cp 20h 1b47 203d jr nz,1b86h 1b49 7e ld a,(hl) 1b4a e6f0 and 0f0h 1b4c 20c1 jr nz,1b0fh 1b4e cd231c call 1c23h 1b51 22d849 ld (49d8h),hl 1b54 3a8948 ld a,(4889h) 1b57 b7 or a 1b58 200d jr nz,1b67h 1b5a 219848 ld hl,4898h 1b5d 7e ld a,(hl) 1b5e b7 or a 1b5f 2806 jr z,1b67h 1b61 fe30 cp 30h 1b63 2809 jr z,1b6eh 1b65 181b jr 1b82h 1b67 112048 ld de,4820h 1b6a 1a ld a,(de) 1b6b b7 or a 1b6c 200a jr nz,1b78h 1b6e 3a1848 ld a,(4818h) 1b71 fe4d cp 4dh 1b73 2811 jr z,1b86h 1b75 c3ef1a jp 1aefh 1b78 e5 push hl 1b79 0605 ld b,05h 1b7b 1a ld a,(de) 1b7c 77 ld (hl),a 1b7d 13 inc de 1b7e 23 inc hl 1b7f 10fa djnz 1b7bh 1b81 e1 pop hl 1b82 3d dec a 1b83 c39a25 jp 259ah 1b86 2a1d49 ld hl,(491dh) 1b89 c9 ret 1b8a 2b dec hl 1b8b d7 rst 10h 1b8c c8 ret z 1b8d fe28 cp 28h 1b8f c0 ret nz 1b90 d7 rst 10h 1b91 ca3822 jp z,2238h 1b94 fe31 cp 31h 1b96 2805 jr z,1b9dh 1b98 fe32 cp 32h 1b9a c26725 jp nz,2567h 1b9d 57 ld d,a 1b9e d7 rst 10h 1b9f ca3822 jp z,2238h 1ba2 cf rst 08h 1ba3 29 add hl,hl 1ba4 e5 push hl 1ba5 217248 ld hl,4872h 1ba8 cb96 res 2,(hl) 1baa 7a ld a,d 1bab e601 and 01h 1bad 2002 jr nz,1bb1h 1baf cbd6 set 2,(hl) 1bb1 e1 pop hl 1bb2 c9 ret 1bb3 af xor a 1bb4 321148 ld (4811h),a 1bb7 2b dec hl 1bb8 d7 rst 10h 1bb9 c8 ret z 1bba cd881d call 1d88h 1bbd e5 push hl 1bbe 41 ld b,c 1bbf 0e06 ld c,06h 1bc1 211148 ld hl,4811h 1bc4 1a ld a,(de) 1bc5 77 ld (hl),a 1bc6 23 inc hl 1bc7 13 inc de 1bc8 0d dec c 1bc9 2804 jr z,1bcfh 1bcb 10f7 djnz 1bc4h 1bcd 3600 ld (hl),00h 1bcf e1 pop hl 1bd0 c9 ret ---------------------------------- Lecture d'un bloc de 10D3 et du header de la K7 ---------------------------------- 1bd1 060a ld b,0ah 1bd3 cdb91f call 1fb9h 1bd6 d8 ret c 1bd7 d6d3 sub 0d3h 1bd9 20f6 jr nz,1bd1h 1bdb 10f6 djnz 1bd3h 1bdd 211848 ld hl,4818h 1be0 0616 ld b,16h 1be2 cdb91f call 1fb9h 1be5 d8 ret c 1be6 77 ld (hl),a 1be7 23 inc hl 1be8 10f8 djnz 1be2h 1bea c9 ret ---------------------------------- Compare le nom du programme à celui lu sur K7 HL=4819H BC=nom du programme à charger ---------------------------------- 1beb 011148 ld bc,4811h 1bee 1e06 ld e,06h 1bf0 0a ld a,(bc) 1bf1 b7 or a 1bf2 c8 ret z 1bf3 0a ld a,(bc) 1bf4 be cp (hl) 1bf5 23 inc hl 1bf6 03 inc bc 1bf7 c0 ret nz 1bf8 1d dec e 1bf9 20f5 jr nz,1bf0h 1bfb c9 ret ---------------------------------- Effacement des messages ---------------------------------- 1bfc d5 push de 1bfd f5 push af 1bfe 3a7248 ld a,(4872h) 1c01 cb47 bit 0,a 1c03 201b jr nz,1c20h 1c05 cdaa36 call 36aah 1c08 211948 ld hl,4819h 1c0b 0606 ld b,06h 1c0d 7e ld a,(hl) 1c0e b7 or a 1c0f 2804 jr z,1c15h 1c11 23 inc hl 1c12 df rst 18h 1c13 10f8 djnz 1c0dh 1c15 cd573c call 3c57h 1c18 3e01 ld a,01h 1c1a fb ei 1c1b dd7700 ld (ix+00h),a 1c1e 76 halt 1c1f f3 di 1c20 f1 pop af 1c21 d1 pop de 1c22 c9 ret 1c23 ed5b8e48 ld de,(488eh) 1c27 62 ld h,d 1c28 6b ld l,e 1c29 7e ld a,(hl) 1c2a 23 inc hl 1c2b b6 or (hl) 1c2c 23 inc hl 1c2d c8 ret z 1c2e 23 inc hl 1c2f 23 inc hl 1c30 7e ld a,(hl) 1c31 23 inc hl 1c32 fe0e cp 0eh 1c34 28f8 jr z,1c2eh 1c36 b7 or a 1c37 20f7 jr nz,1c30h 1c39 eb ex de,hl 1c3a 73 ld (hl),e 1c3b 23 inc hl 1c3c 72 ld (hl),d 1c3d 18e8 jr 1c27h 1c3f 23 inc hl 1c40 0603 ld b,03h 1c42 c3593a jp 3a59h 1c45 e5 push hl 1c46 211748 ld hl,4817h 1c49 af xor a 1c4a 0609 ld b,09h 1c4c 77 ld (hl),a 1c4d 23 inc hl 1c4e 10fc djnz 1c4ch 1c50 3a8948 ld a,(4889h) 1c53 321d48 ld (481dh),a 1c56 3a1048 ld a,(4810h) 1c59 fe20 cp 20h 1c5b 2012 jr nz,1c6fh 1c5d 2a8e48 ld hl,(488eh) 1c60 222048 ld (4820h),hl 1c63 eb ex de,hl 1c64 2ad849 ld hl,(49d8h) 1c67 b7 or a 1c68 ed52 sbc hl,de 1c6a 222248 ld (4822h),hl 1c6d 184b jr 1cbah 1c6f fe4d cp 4dh 1c71 2019 jr nz,1c8ch 1c73 e1 pop hl 1c74 cf rst 08h 1c75 2c inc l 1c76 cd4d28 call 284dh 1c79 cd5225 call 2552h 1c7c ed532048 ld (4820h),de 1c80 cf rst 08h 1c81 2c inc l 1c82 cd4d28 call 284dh 1c85 cd5225 call 2552h 1c88 e5 push hl 1c89 eb ex de,hl 1c8a 18de jr 1c6ah 1c8c fe53 cp 53h 1c8e 200e jr nz,1c9eh 1c90 210040 ld hl,4000h 1c93 222048 ld (4820h),hl 1c96 21d007 ld hl,07d0h 1c99 222248 ld (4822h),hl 1c9c 1828 jr 1cc6h 1c9e e1 pop hl 1c9f febb cp 0bbh 1ca1 200b jr nz,1caeh 1ca3 cd791d call 1d79h 1ca6 e5 push hl 1ca7 ed432048 ld (4820h),bc 1cab eb ex de,hl 1cac 18eb jr 1c99h 1cae cd881d call 1d88h 1cb1 ed532048 ld (4820h),de 1cb5 ed432248 ld (4822h),bc 1cb9 c9 ret 1cba e1 pop hl 1cbb 2b dec hl 1cbc d7 rst 10h 1cbd c8 ret z 1cbe cf rst 08h 1cbf 2c inc l 1cc0 111848 ld de,4818h 1cc3 0605 ld b,05h 1cc5 e5 push hl 1cc6 e1 pop hl 1cc7 c8 ret z 1cc8 d23822 jp nc,2238h 1ccb 12 ld (de),a 1ccc 13 inc de 1ccd d7 rst 10h 1cce 10f5 djnz 1cc5h 1cd0 c9 ret 1cd1 af xor a 1cd2 4f ld c,a 1cd3 2b dec hl 1cd4 d7 rst 10h 1cd5 119848 ld de,4898h 1cd8 12 ld (de),a 1cd9 2810 jr z,1cebh 1cdb fe2c cp 2ch 1cdd 2014 jr nz,1cf3h 1cdf 0605 ld b,05h 1ce1 d7 rst 10h 1ce2 2807 jr z,1cebh 1ce4 d23822 jp nc,2238h 1ce7 12 ld (de),a 1ce8 13 inc de 1ce9 10f6 djnz 1ce1h 1ceb 221d49 ld (491dh),hl 1cee 79 ld a,c 1cef 321748 ld (4817h),a 1cf2 c9 ret 1cf3 e5 push hl 1cf4 23 inc hl 1cf5 7e ld a,(hl) 1cf6 fe24 cp 24h 1cf8 2804 jr z,1cfeh 1cfa 23 inc hl 1cfb 7e ld a,(hl) 1cfc fe24 cp 24h 1cfe e1 pop hl 1cff e5 push hl 1d00 c5 push bc 1d01 200f jr nz,1d12h 1d03 3a1748 ld a,(4817h) 1d06 febb cp 0bbh 1d08 2808 jr z,1d12h 1d0a cd881d call 1d88h 1d0d c1 pop bc 1d0e 0d dec c 1d0f e1 pop hl 1d10 18d9 jr 1cebh 1d12 cd791d call 1d79h 1d15 c1 pop bc 1d16 0c inc c 1d17 18f6 jr 1d0fh 1d19 3a1848 ld a,(4818h) 1d1c fe20 cp 20h 1d1e 2011 jr nz,1d31h 1d20 3a1048 ld a,(4810h) 1d23 fe41 cp 41h 1d25 2006 jr nz,1d2dh 1d27 2ad849 ld hl,(49d8h) 1d2a 2b dec hl 1d2b 2b dec hl 1d2c c9 ret 1d2d 2a8e48 ld hl,(488eh) 1d30 c9 ret 1d31 fe4d cp 4dh 1d33 2004 jr nz,1d39h 1d35 2a2848 ld hl,(4828h) 1d38 c9 ret 1d39 fe53 cp 53h 1d3b 2004 jr nz,1d41h 1d3d 210040 ld hl,4000h 1d40 c9 ret 1d41 2a1d49 ld hl,(491dh) 1d44 febb cp 0bbh 1d46 201d jr nz,1d65h 1d48 3a1748 ld a,(4817h) 1d4b 3d dec a 1d4c 2025 jr nz,1d73h 1d4e cd791d call 1d79h 1d51 c5 push bc 1d52 221d49 ld (491dh),hl 1d55 2a2a48 ld hl,(482ah) 1d58 e7 rst 20h 1d59 e1 pop hl 1d5a d8 ret c 1d5b c8 ret z 1d5c 2a1d49 ld hl,(491dh) 1d5f cdc31f call 1fc3h 1d62 c34722 jp 2247h 1d65 3a1748 ld a,(4817h) 1d68 3c inc a 1d69 2008 jr nz,1d73h 1d6b cd881d call 1d88h 1d6e d5 push de 1d6f 50 ld d,b 1d70 59 ld e,c 1d71 18df jr 1d52h 1d73 cdc31f call 1fc3h 1d76 c34d22 jp 224dh 1d79 3e01 ld a,01h 1d7b 32cd49 ld (49cdh),a 1d7e cdda38 call 38dah 1d81 c26725 jp nz,2567h 1d84 32cd49 ld (49cdh),a 1d87 c9 ret 1d88 cd6128 call 2861h 1d8b e5 push hl 1d8c cd0e38 call 380eh 1d8f 2b dec hl 1d90 2b dec hl 1d91 2b dec hl 1d92 0600 ld b,00h 1d94 4e ld c,(hl) 1d95 e1 pop hl 1d96 c9 ret 1d97 f680 or 80h 1d99 e5 push hl 1d9a 2a2048 ld hl,(4820h) 1d9d 77 ld (hl),a 1d9e 23 inc hl 1d9f fe83 cp 83h 1da1 2831 jr z,1dd4h 1da3 af xor a 1da4 326f48 ld (486fh),a 1da7 cdc42e call 2ec4h 1daa 3eff ld a,0ffh 1dac 326f48 ld (486fh),a 1daf d5 push de 1db0 ed5b0b48 ld de,(480bh) 1db4 7a ld a,d 1db5 b3 or e 1db6 281b jr z,1dd3h 1db8 af xor a 1db9 ed52 sbc hl,de 1dbb e5 push hl 1dbc 2a8e48 ld hl,(488eh) 1dbf 220b48 ld (480bh),hl 1dc2 eb ex de,hl 1dc3 c1 pop bc 1dc4 edb0 ldir 1dc6 d5 push de 1dc7 ed52 sbc hl,de 1dc9 eb ex de,hl 1dca 2ad849 ld hl,(49d8h) 1dcd ed52 sbc hl,de 1dcf 22d849 ld (49d8h),hl 1dd2 e1 pop hl 1dd3 d1 pop de 1dd4 222048 ld (4820h),hl 1dd7 2b dec hl 1dd8 7e ld a,(hl) 1dd9 212448 ld hl,4824h 1ddc ae xor (hl) 1ddd 77 ld (hl),a 1dde e1 pop hl 1ddf c9 ret 1de0 2a2048 ld hl,(4820h) 1de3 77 ld (hl),a 1de4 23 inc hl 1de5 ed5bd849 ld de,(49d8h) 1de9 af xor a 1dea ed52 sbc hl,de 1dec e5 push hl 1ded 3d dec a 1dee cd813a call 3a81h 1df1 c1 pop bc 1df2 d8 ret c 1df3 1a ld a,(de) 1df4 13 inc de 1df5 0b dec bc 1df6 cdaf1f call 1fafh 1df9 d8 ret c 1dfa 78 ld a,b 1dfb b1 or c 1dfc 20f5 jr nz,1df3h 1dfe 3d dec a 1dff c3903a jp 3a90h 1e02 2ad849 ld hl,(49d8h) 1e05 011400 ld bc,0014h 1e08 09 add hl,bc 1e09 222848 ld (4828h),hl 1e0c 54 ld d,h 1e0d 5d ld e,l 1e0e 13 inc de 1e0f 0e00 ld c,00h 1e11 e67f and 7fh 1e13 77 ld (hl),a 1e14 fe03 cp 03h 1e16 2858 jr z,1e70h 1e18 3e02 ld a,02h 1e1a ddae03 xor (ix+03h) 1e1d dd7703 ld (ix+03h),a 1e20 d3cf out (0cfh),a 1e22 cd9c1f call 1f9ch 1e25 3043 jr nc,1e6ah 1e27 23 inc hl 1e28 cdb91f call 1fb9h 1e2b d8 ret c 1e2c f5 push af 1e2d fe8d cp 8dh 1e2f 2014 jr nz,1e45h 1e31 e5 push hl 1e32 d5 push de 1e33 eb ex de,hl 1e34 cd6c25 call 256ch 1e37 42 ld b,d 1e38 4b ld c,e 1e39 3e8d ld a,8dh 1e3b d1 pop de 1e3c 212648 ld hl,4826h 1e3f ae xor (hl) 1e40 77 ld (hl),a 1e41 e1 pop hl 1e42 f1 pop af 1e43 18cc jr 1e11h 1e45 78 ld a,b 1e46 b1 or c 1e47 2818 jr z,1e61h 1e49 e5 push hl 1e4a af xor a 1e4b 2a0e48 ld hl,(480eh) 1e4e ed42 sbc hl,bc 1e50 3809 jr c,1e5bh 1e52 2acf49 ld hl,(49cfh) 1e55 ed42 sbc hl,bc 1e57 380d jr c,1e66h 1e59 280b jr z,1e66h 1e5b e1 pop hl 1e5c 62 ld h,d 1e5d 6b ld l,e 1e5e 010000 ld bc,0000h 1e61 f1 pop af 1e62 f5 push af 1e63 e5 push hl 1e64 18d6 jr 1e3ch 1e66 e1 pop hl 1e67 eb ex de,hl 1e68 18f2 jr 1e5ch 1e6a cdb91f call 1fb9h 1e6d 30f3 jr nc,1e62h 1e6f c9 ret 1e70 cdb91f call 1fb9h 1e73 d8 ret c 1e74 e5 push hl 1e75 212648 ld hl,4826h 1e78 96 sub (hl) 1e79 cd941f call 1f94h 1e7c e1 pop hl 1e7d cd9c1f call 1f9ch 1e80 3002 jr nc,1e84h 1e82 af xor a 1e83 c9 ret 1e84 eb ex de,hl 1e85 3e03 ld a,03h 1e87 77 ld (hl),a 1e88 c9 ret 1e89 ed5b2848 ld de,(4828h) 1e8d 13 inc de 1e8e 1a ld a,(de) 1e8f ed532848 ld (4828h),de 1e93 fe03 cp 03h 1e95 c0 ret nz 1e96 af xor a 1e97 327048 ld (4870h),a 1e9a c3ef1a jp 1aefh 1e9d 5f ld e,a 1e9e 67 ld h,a 1e9f 2b dec hl 1ea0 33 inc sp 1ea1 0f rrca 1ea2 2b dec hl 1ea3 33 inc sp 1ea4 11191f ld de,1f19h 1ea7 217248 ld hl,4872h 1eaa cbbe res 7,(hl) 1eac 7e ld a,(hl) 1ead cb4f bit 1,a 1eaf c0 ret nz 1eb0 219d1e ld hl,1e9dh 1eb3 112648 ld de,4826h 1eb6 010500 ld bc,0005h 1eb9 cb57 bit 2,a 1ebb 2801 jr z,1ebeh 1ebd 09 add hl,bc 1ebe edb0 ldir 1ec0 c9 ret 1ec1 cda71e call 1ea7h 1ec4 ed5b2048 ld de,(4820h) 1ec8 ed4b2248 ld bc,(4822h) 1ecc af xor a 1ecd 67 ld h,a 1ece 6f ld l,a 1ecf 1a ld a,(de) 1ed0 85 add a,l 1ed1 6f ld l,a 1ed2 3e00 ld a,00h 1ed4 8c adc a,h 1ed5 67 ld h,a 1ed6 13 inc de 1ed7 0b dec bc 1ed8 78 ld a,b 1ed9 b1 or c 1eda 20f3 jr nz,1ecfh 1edc 222448 ld (4824h),hl 1edf 3d dec a 1ee0 cd813a call 3a81h 1ee3 d8 ret c 1ee4 060a ld b,0ah 1ee6 3ed3 ld a,0d3h 1ee8 cdaf1f call 1fafh 1eeb d8 ret c 1eec 10f8 djnz 1ee6h 1eee 0616 ld b,16h 1ef0 211048 ld hl,4810h 1ef3 7e ld a,(hl) 1ef4 23 inc hl 1ef5 cdaf1f call 1fafh 1ef8 d8 ret c 1ef9 10f8 djnz 1ef3h 1efb c9 ret -------------------------------- Ecriture sur la K7 -------------------------------- 1efc af xor a 1efd cd813a call 3a81h 1f00 d8 ret c -------------------------------- Ecriture de 10 D6 dans le header de la K7 -------------------------------- 1f01 060a ld b,0ah 1f03 3ed6 ld a,0d6h 1f05 cdaf1f call 1fafh 1f08 d8 ret c 1f09 10f8 djnz 1f03h -------------------------------- Ecriture des données sur la K7 début des données dans (4820H) nombre de données dans (4822H) --------------------------------- 1f0b ed5b2048 ld de,(4820h) 1f0f ed4b2248 ld bc,(4822h) 1f13 1a ld a,(de) 1f14 13 inc de 1f15 0b dec bc 1f16 cdaf1f call 1fafh 1f19 d8 ret c 1f1a 78 ld a,b 1f1b b1 or c 1f1c 20f5 jr nz,1f13h --------------------------------- Ecriture de dix zeros terminaux à la fin du programme sur la K7 --------------------------------- 1f1e 060a ld b,0ah 1f20 af xor a 1f21 cdaf1f call 1fafh 1f24 d8 ret c 1f25 10f9 djnz 1f20h 1f27 c9 ret 1f28 e5 push hl 1f29 f5 push af 1f2a cdf33a call 3af3h 1f2d dab61f jp c,1fb6h 1f30 3a2548 ld a,(4825h) 1f33 218948 ld hl,4889h 1f36 b6 or (hl) 1f37 77 ld (hl),a 1f38 f1 pop af 1f39 e1 pop hl 1f3a 57 ld d,a ---------------------------------- Lecture d'un bloc de dix D6 sur K7 ---------------------------------- 1f3b 060a ld b,0ah 1f3d cdb91f call 1fb9h 1f40 d8 ret c 1f41 d6d6 sub 0d6h 1f43 20f6 jr nz,1f3bh 1f45 10f6 djnz 1f3dh 1f47 ed4b2a48 ld bc,(482ah) 1f4b cdb91f call 1fb9h 1f4e d8 ret c 1f4f 5f ld e,a 1f50 e5 push hl 1f51 2a2648 ld hl,(4826h) 1f54 b7 or a 1f55 85 add a,l 1f56 6f ld l,a 1f57 3e00 ld a,00h 1f59 8c adc a,h 1f5a 67 ld h,a 1f5b 222648 ld (4826h),hl 1f5e e1 pop hl 1f5f 7b ld a,e 1f60 96 sub (hl) 1f61 a2 and d 1f62 2809 jr z,1f6dh 1f64 3a7248 ld a,(4872h) 1f67 cbef set 5,a 1f69 327248 ld (4872h),a 1f6c 3e73 ld a,73h 1f6e 3e06 ld a,06h 1f70 ddae03 xor (ix+03h) 1f73 dd7703 ld (ix+03h),a 1f76 d3cf out (0cfh),a 1f78 3a1848 ld a,(4818h) 1f7b fe20 cp 20h 1f7d 2004 jr nz,1f83h 1f7f cd9c1f call 1f9ch 1f82 d0 ret nc 1f83 23 inc hl 1f84 0b dec bc 1f85 78 ld a,b 1f86 b1 or c 1f87 20c2 jr nz,1f4bh 1f89 4a ld c,d 1f8a e5 push hl 1f8b 2a2648 ld hl,(4826h) 1f8e ed5b2c48 ld de,(482ch) 1f92 e7 rst 20h 1f93 e1 pop hl 1f94 c8 ret z 1f95 217248 ld hl,4872h 1f98 cbf6 set 6,(hl) 1f9a af xor a 1f9b c9 ret 1f9c e5 push hl 1f9d 3ea0 ld a,0a0h 1f9f 95 sub l 1fa0 6f ld l,a 1fa1 3eff ld a,0ffh 1fa3 9c sbc a,h 1fa4 67 ld h,a 1fa5 3804 jr c,1fabh 1fa7 39 add hl,sp 1fa8 e1 pop hl 1fa9 d8 ret c 1faa e5 push hl 1fab e1 pop hl 1fac af xor a 1fad 3d dec a 1fae c9 ret ---------------------------------- Envoi d'un octet au lecteur de k7 ---------------------------------- 1faf e5 push hl 1fb0 d5 push de 1fb1 c5 push bc 1fb2 cda93a call 3aa9h 1fb5 c1 pop bc 1fb6 d1 pop de 1fb7 e1 pop hl 1fb8 c9 ret ---------------------------------- Lecture d'un octet du lecteur de k7 ---------------------------------- 1fb9 e5 push hl 1fba d5 push de 1fbb c5 push bc 1fbc cd483b call 3b48h 1fbf c1 pop bc 1fc0 d1 pop de 1fc1 e1 pop hl 1fc2 c9 ret 1fc3 cd793a call 3a79h 1fc6 3af849 ld a,(49f8h) 1fc9 dd7703 ld (ix+03h),a 1fcc c9 ret 1fcd dd7e03 ld a,(ix+03h) 1fd0 32f849 ld (49f8h),a 1fd3 ddcb03b6 res 6,(ix+03h) 1fd7 3e01 ld a,01h 1fd9 dd7700 ld (ix+00h),a 1fdc 76 halt 1fdd c9 ret ------------------------------------ Bordure rouge ------------------------------------ 1fde 3e28 ld a,28h 1fe0 d38f out (8fh),a 1fe2 3e82 ld a,82h 1fe4 d3cf out (0cfh),a ecriture regitre R8 1fe6 3e29 ld a,29h 1fe8 d38f out (8fh),a 1fea dd7e03 ld a,(ix+03h) 1fed e6f8 and 0f8h 1fef b3 or e 1ff0 d3cf out (0cfh),a ecriture regitre R9 1ff2 c9 ret 1ff3 db08 in a,(08h) 1ff5 2f cpl 1ff6 e630 and 30h 1ff8 0f rrca 1ff9 0f rrca 1ffa 0f rrca 1ffb 0f rrca 1ffc 47 ld b,a 1ffd c9 ret 1ffe ff rst 38h 1fff ff rst 38h ---------------------------------- Interpreteur Basic (1) ---------------------------------- ----------------------------------------------------------------------- 2000 00 2f 7a 24 e4 2f f3 25 60 27 d5 38 a3 27 10 26 ./z$./.%`'.8.'.& 2010 ba 25 9a 25 79 26 1e 2f a9 25 d6 25 f5 25 38 2f .%.%y&./.%.%.%8/ 2020 5e 26 94 26 13 2a bb 2a 9b 26 6f 2f a8 31 a3 31 ^&.&.*.*.&o/.1.1 2030 a0 2f 58 30 6e 31 7e 19 45 19 39 1a ed 19 ad 0f ./X0n1~.E.9..... 2040 51 0e 6a 0c 75 0a f8 0d 37 0e 8e 0f 98 0f a4 0f Q.j.u...7....... 2050 a8 0e b1 0e 52 0f ed 0c 40 0e 49 0e 83 0e f4 47 ....R...@.I....G 2060 f7 47 ce 3d a4 05 60 06 b8 05 33 48 b1 38 fc 29 .G.=..`...3H.8.) 2070 01 2a 1d 08 0d 09 34 04 74 08 7e 09 84 09 17 0a .*....4.t.~..... 2080 2c 0a b4 2a fb 37 36 36 8d 38 0a 38 ba 0e f0 0e ,..*.766.8.8.... 2090 25 0f 49 0f f1 47 1b 38 29 38 58 38 61 38 c5 4e %.I..G.8)8X8a8.N 20a0 44 c6 4f 52 ce 45 58 54 c4 41 54 41 c9 4e 50 55 D.OR.EXT.ATA.NPU 20b0 54 c4 49 4d d2 45 41 44 cc 45 54 c7 4f 54 4f d2 T.IM.EAD.ET.OTO. 20c0 55 4e c9 46 d2 45 53 54 4f 52 45 c7 4f 53 55 42 UN.F.ESTORE.OSUB 20d0 d2 45 54 55 52 4e d2 45 4d d3 54 4f 50 cf 4e cc .ETURN.EM.TOP.N. 20e0 50 52 49 4e 54 c4 45 46 d0 4f 4b 45 d0 52 49 4e PRINT.EF.OKE.RIN 20f0 54 c3 4f 4e 54 cc 49 53 54 cc 4c 49 53 54 c3 4c T.ONT.IST.LIST.L 2100 45 41 52 d2 45 4e 55 4d c1 55 54 4f cc 4f 41 44 EAR.ENUM.UTO.OAD 2110 d3 41 56 45 c3 4c 4f 41 44 c3 53 41 56 45 c3 41 .AVE.LOAD.SAVE.A 2120 4c 4c c9 4e 49 54 d3 4f 55 4e 44 d0 4c 41 59 d4 LL.NIT.OUND.LAY. 2130 58 c7 52 d3 43 52 45 45 4e c4 49 53 50 4c 41 59 X.R.CREEN.ISPLAY 2140 d3 54 4f 52 45 d3 43 52 4f 4c 4c d0 41 47 45 c4 .TORE.CROLL.AGE. 2150 45 4c 49 4d d3 45 54 45 c5 54 c5 47 c3 55 52 53 ELIM.ETE.T.G.URS 2160 4f 52 c4 49 53 4b cd 4f 44 45 4d ce 45 57 d4 41 OR.ISK.ODEM.EW.A 2170 42 28 d4 4f c6 4e d3 50 43 28 d4 48 45 4e ce 4f B(.O.N.PC(.HEN.O 2180 54 d3 54 45 50 ab ad aa af de c1 4e 44 cf 52 be T.TEP......ND.R. 2190 bd bc d3 47 4e c9 4e 54 c1 42 53 d5 53 52 c6 52 ...GN.NT.BS.SR.R 21a0 45 cc 50 4f 53 d0 4f 53 d3 51 52 d2 4e 44 cc 4f E.POS.OS.QR.ND.O 21b0 47 c5 58 50 c3 4f 53 d3 49 4e d4 41 4e c1 54 4e G.XP.OS.IN.AN.TN 21c0 d0 45 45 4b cc 45 4e d3 54 52 24 d6 41 4c c1 53 .EEK.EN.TR$.AL.S 21d0 43 d3 54 49 43 4b 58 d3 54 49 43 4b 59 c1 43 54 C.TICKX.TICKY.CT 21e0 49 4f 4e cb 45 59 cc 50 45 4e c3 48 52 24 cc 45 ION.EY.PEN.HR$.E 21f0 46 54 24 d2 49 47 48 54 24 cd 49 44 24 80 79 05 FT$.IGHT$.ID$.y. 2200 07 79 0b 03 7c 78 04 7c dc 04 7f 26 08 50 78 29 .y..|x.|..&.Px) 2210 46 77 29 00 4f 6b 21 03 00 21 04 00 39 7e 23 fe Fw).Ok!..!..9~#. ----------------------------------------------------------------------- ---------------------------------- Affichage message "OK" ---------------------------------- 2214 4f ld c,a 2215 6b ld l,e 2216 210300 ld hl,0003h 2219 210400 ld hl,0004h 221c 39 add hl,sp 221d 7e ld a,(hl) 221e 23 inc hl 221f fe81 cp 81h 2221 c0 ret nz 2222 4e ld c,(hl) 2223 23 inc hl 2224 46 ld b,(hl) 2225 23 inc hl 2226 e5 push hl 2227 60 ld h,b 2228 69 ld l,c 2229 e7 rst 20h 222a 010d00 ld bc,000dh 222d e1 pop hl 222e c8 ret z 222f 09 add hl,bc 2230 18eb jr 221dh 2232 2acb49 ld hl,(49cbh) 2235 228c48 ld (488ch),hl 2238 1e02 ld e,02h 223a 011e14 ld bc,141eh 223d 011e00 ld bc,001eh 2240 011e12 ld bc,121eh 2243 011e22 ld bc,221eh 2246 011e0a ld bc,0a1eh 2249 011e24 ld bc,241eh 224c 011e18 ld bc,181eh 224f 011e28 ld bc,281eh 2252 cdfe2e call 2efeh 2255 cd403c call 3c40h 2258 217913 ld hl,1379h 225b 3a9048 ld a,(4890h) 225e b7 or a 225f 2803 jr z,2264h 2261 213f15 ld hl,153fh 2264 1c inc e 2265 1c inc e 2266 cb83 res 0,e 2268 3e2b ld a,2bh 226a bb cp e 226b 3002 jr nc,226fh 226d 1e2a ld e,2ah 226f 7e ld a,(hl) 2270 23 inc hl 2271 b7 or a 2272 20fb jr nz,226fh 2274 1d dec e 2275 1d dec e 2276 20f7 jr nz,226fh 2278 cdaa36 call 36aah 227b 2a8c48 ld hl,(488ch) 227e 11feff ld de,0fffeh 2281 e7 rst 20h 2282 ca0010 jp z,1000h reinitialisation 2285 7c ld a,h 2286 a5 and l 2287 3c inc a 2288 c41507 call nz,0715h 228b 3ec1 ld a,0c1h 228d cd143c call 3c14h 2290 cd403c call 3c40h 2293 211422 ld hl,2214h 2296 cdaa36 call 36aah 2299 21ffff ld hl,0ffffh <--- 229c 228c48 ld (488ch),hl | 229f 3a8448 ld a,(4884h) | 22a2 b7 or a | 22a3 2809 jr z,22aeh --- | 22a5 2a8548 ld hl,(4885h) | | 22a8 c39a3d jp 3d9ah -----|--|---> 22ab 3e20 ld a,20h | | 22ad df rst 18h | | 22ae cda23c call 3ca2h <---- | 22b1 38fb jr c,22aeh --> | 22b3 d7 rst 10h | 22b4 3c inc a | 22b5 3d dec a | 22b6 28e1 jr z,2299h ------ 22b8 f5 push af 22b9 3a8948 ld a,(4889h) 22bc b7 or a 22bd c20000 jp nz,0000h 22c0 cd6c25 call 256ch 22c3 d5 push de 22c4 cd6b23 call 236bh 22c7 47 ld b,a 22c8 d1 pop de 22c9 f1 pop af 22ca d20925 jp nc,2509h 22cd d5 push de 22ce c5 push bc 22cf e5 push hl 22d0 2a8748 ld hl,(4887h) 22d3 19 add hl,de 22d4 c3aa3d jp 3daah 22d7 e1 pop hl 22d8 d7 rst 10h 22d9 b7 or a 22da f5 push af 22db cd4723 call 2347h 22de 3806 jr c,22e6h 22e0 f1 pop af 22e1 f5 push af 22e2 ca9922 jp z,2299h 22e5 b7 or a 22e6 c5 push bc 22e7 3010 jr nc,22f9h 22e9 eb ex de,hl 22ea 2ad849 ld hl,(49d8h) 22ed 1a ld a,(de) 22ee 02 ld (bc),a 22ef 03 inc bc 22f0 13 inc de 22f1 e7 rst 20h 22f2 20f9 jr nz,22edh 22f4 60 ld h,b 22f5 69 ld l,c 22f6 22d849 ld (49d8h),hl 22f9 d1 pop de 22fa f1 pop af 22fb 282b jr z,2328h 22fd 2ad849 ld hl,(49d8h) 2300 e3 ex (sp),hl 2301 c1 pop bc 2302 09 add hl,bc 2303 e5 push hl 2304 cdad2e call 2eadh 2307 e1 pop hl 2308 22d849 ld (49d8h),hl 230b eb ex de,hl 230c 74 ld (hl),h 230d d1 pop de 230e 23 inc hl 230f 23 inc hl 2310 73 ld (hl),e 2311 23 inc hl 2312 72 ld (hl),d 2313 23 inc hl 2314 eb ex de,hl 2315 219848 ld hl,4898h 2318 7e ld a,(hl) 2319 eda0 ldi 231b fe0e cp 0eh 231d 2006 jr nz,2325h 231f eda0 ldi 2321 eda0 ldi 2323 18f3 jr 2318h 2325 b7 or a 2326 20f0 jr nz,2318h 2328 cde42e call 2ee4h 232b 23 inc hl 232c eb ex de,hl 232d 62 ld h,d 232e 6b ld l,e 232f 7e ld a,(hl) 2330 23 inc hl 2331 b6 or (hl) 2332 ca9922 jp z,2299h 2335 23 inc hl 2336 23 inc hl 2337 23 inc hl 2338 7e ld a,(hl) 2339 23 inc hl 233a fe0e cp 0eh 233c 28f8 jr z,2336h 233e b7 or a 233f 20f7 jr nz,2338h 2341 eb ex de,hl 2342 73 ld (hl),e 2343 23 inc hl 2344 72 ld (hl),d 2345 18e6 jr 232dh 2347 010000 ld bc,0000h 234a 2a8e48 ld hl,(488eh) 234d ed430748 ld (4807h),bc 2351 44 ld b,h 2352 4d ld c,l 2353 7e ld a,(hl) 2354 23 inc hl 2355 b6 or (hl) 2356 2b dec hl 2357 c8 ret z 2358 23 inc hl 2359 23 inc hl 235a 7e ld a,(hl) 235b 23 inc hl 235c 66 ld h,(hl) 235d 6f ld l,a 235e e7 rst 20h 235f 60 ld h,b 2360 69 ld l,c 2361 7e ld a,(hl) 2362 23 inc hl 2363 66 ld h,(hl) 2364 6f ld l,a 2365 3f ccf 2366 c8 ret z 2367 3f ccf 2368 d0 ret nc 2369 18e2 jr 234dh 236b af xor a 236c 321c49 ld (491ch),a 236f 0e05 ld c,05h 2371 119848 ld de,4898h 2374 7e ld a,(hl) 2375 fe20 cp 20h 2377 ca4f24 jp z,244fh 237a 47 ld b,a 237b fe22 cp 22h 237d ca6b24 jp z,246bh 2380 b7 or a 2381 ca7124 jp z,2471h 2384 3a1c49 ld a,(491ch) 2387 b7 or a 2388 7e ld a,(hl) 2389 c24f24 jp nz,244fh 238c fe3f cp 3fh 238e 3e94 ld a,94h 2390 ca4f24 jp z,244fh 2393 7e ld a,(hl) 2394 fe10 cp 10h 2396 3eaf ld a,0afh 2398 ca4f24 jp z,244fh 239b 7e ld a,(hl) 239c fe30 cp 30h 239e 3805 jr c,23a5h 23a0 fe3c cp 3ch 23a2 da4f24 jp c,244fh 23a5 d5 push de 23a6 119d20 ld de,209dh 23a9 c5 push bc 23aa 014b24 ld bc,244bh 23ad c5 push bc 23ae 067f ld b,7fh 23b0 7e ld a,(hl) 23b1 fe61 cp 61h 23b3 3807 jr c,23bch 23b5 fe7b cp 7bh 23b7 3003 jr nc,23bch 23b9 e65f and 5fh 23bb 77 ld (hl),a 23bc 4e ld c,(hl) 23bd eb ex de,hl 23be 23 inc hl 23bf b6 or (hl) 23c0 f2be23 jp p,23beh 23c3 04 inc b 23c4 7e ld a,(hl) 23c5 e67f and 7fh 23c7 c8 ret z 23c8 b9 cp c 23c9 20f3 jr nz,23beh 23cb eb ex de,hl 23cc e5 push hl 23cd 13 inc de 23ce 1a ld a,(de) 23cf b7 or a 23d0 faed23 jp m,23edh 23d3 4f ld c,a 23d4 78 ld a,b 23d5 fe8c cp 8ch 23d7 2804 jr z,23ddh 23d9 fe88 cp 88h 23db 2002 jr nz,23dfh 23dd d7 rst 10h 23de 2b dec hl 23df 23 inc hl 23e0 7e ld a,(hl) 23e1 fe61 cp 61h 23e3 3802 jr c,23e7h 23e5 e65f and 5fh 23e7 b9 cp c 23e8 28e3 jr z,23cdh 23ea e1 pop hl 23eb 18cf jr 23bch 23ed 48 ld c,b 23ee f1 pop af 23ef f1 pop af 23f0 79 ld a,c 23f1 fe88 cp 88h 23f3 280c jr z,2401h 23f5 fe8c cp 8ch 23f7 2808 jr z,2401h 23f9 fe8b cp 8bh 23fb 2804 jr z,2401h 23fd feb6 cp 0b6h 23ff 204b jr nz,244ch 2401 e5 push hl 2402 d7 rst 10h 2403 e1 pop hl 2404 3046 jr nc,244ch 2406 eb ex de,hl 2407 fde1 pop iy 2409 e1 pop hl 240a 71 ld (hl),c 240b 13 inc de 240c d5 push de 240d d9 exx 240e e1 pop hl 240f e5 push hl 2410 cd6c25 call 256ch 2413 7b ld a,e 2414 b2 or d 2415 282b jr z,2442h 2417 c1 pop bc 2418 7b ld a,e 2419 2b dec hl 241a e5 push hl 241b d9 exx 241c d1 pop de 241d 23 inc hl 241e 360e ld (hl),0eh 2420 23 inc hl 2421 77 ld (hl),a 2422 23 inc hl 2423 d9 exx 2424 7a ld a,d 2425 d9 exx 2426 4f ld c,a 2427 fd23 inc iy 2429 fd23 inc iy 242b fd23 inc iy 242d e7 rst 20h 242e d24a22 jp nc,224ah 2431 eb ex de,hl 2432 e5 push hl 2433 d7 rst 10h 2434 eb ex de,hl 2435 fe2c cp 2ch 2437 200e jr nz,2447h 2439 71 ld (hl),c 243a 23 inc hl 243b fd23 inc iy 243d 0e2c ld c,2ch 243f f1 pop af 2440 18c8 jr 240ah 2442 d9 exx 2443 d1 pop de 2444 1b dec de 2445 18e6 jr 242dh 2447 d1 pop de 2448 e5 push hl 2449 fde5 push iy 244b eb ex de,hl 244c 79 ld a,c 244d c1 pop bc 244e d1 pop de 244f 23 inc hl 2450 12 ld (de),a 2451 13 inc de 2452 0c inc c 2453 d63a sub 3ah 2455 2804 jr z,245bh 2457 fe49 cp 49h 2459 2003 jr nz,245eh 245b 321c49 ld (491ch),a 245e d654 sub 54h 2460 c27423 jp nz,2374h 2463 47 ld b,a 2464 7e ld a,(hl) 2465 b7 or a 2466 2809 jr z,2471h 2468 b8 cp b 2469 28e4 jr z,244fh 246b 23 inc hl 246c 12 ld (de),a 246d 0c inc c 246e 13 inc de 246f 18f3 jr 2464h 2471 219748 ld hl,4897h 2474 12 ld (de),a 2475 13 inc de 2476 12 ld (de),a 2477 13 inc de 2478 12 ld (de),a 2479 c9 ret ---------------------------------- FOR ---------------------------------- 247a 3e64 ld a,64h 247c 32cd49 ld (49cdh),a 247f cd1026 call 2610h 2482 c1 pop bc 2483 e5 push hl 2484 cdf325 call 25f3h 2487 22c949 ld (49c9h),hl 248a 210200 ld hl,0002h 248d 39 add hl,sp 248e cd1d22 call 221dh 2491 2014 jr nz,24a7h 2493 09 add hl,bc 2494 d5 push de 2495 2b dec hl 2496 56 ld d,(hl) 2497 2b dec hl 2498 5e ld e,(hl) 2499 23 inc hl 249a 23 inc hl 249b e5 push hl 249c 2ac949 ld hl,(49c9h) 249f e7 rst 20h 24a0 e1 pop hl 24a1 d1 pop de 24a2 20ea jr nz,248eh 24a4 d1 pop de 24a5 f9 ld sp,hl 24a6 0c inc c 24a7 d1 pop de 24a8 eb ex de,hl 24a9 0e08 ld c,08h 24ab cdbb2e call 2ebbh 24ae e5 push hl 24af 2ac949 ld hl,(49c9h) 24b2 e3 ex (sp),hl 24b3 e5 push hl 24b4 2a8c48 ld hl,(488ch) 24b7 e3 ex (sp),hl 24b8 cd5028 call 2850h 24bb cf rst 08h 24bc b3 or e 24bd cd4d28 call 284dh 24c0 e5 push hl 24c1 cddd05 call 05ddh 24c4 e1 pop hl 24c5 c5 push bc 24c6 d5 push de 24c7 010081 ld bc,8100h 24ca 51 ld d,c 24cb 5a ld e,d 24cc 7e ld a,(hl) 24cd feb8 cp 0b8h 24cf 3e01 ld a,01h 24d1 200a jr nz,24ddh 24d3 d7 rst 10h 24d4 cd4d28 call 284dh 24d7 e5 push hl 24d8 cddd05 call 05ddh 24db ef rst 28h 24dc e1 pop hl 24dd c5 push bc 24de d5 push de 24df f5 push af 24e0 33 inc sp 24e1 e5 push hl 24e2 2acf49 ld hl,(49cfh) 24e5 e3 ex (sp),hl 24e6 0681 ld b,81h 24e8 c5 push bc 24e9 33 inc sp 24ea cd773c call 3c77h 24ed 22cf49 ld (49cfh),hl 24f0 7e ld a,(hl) 24f1 fe3a cp 3ah 24f3 2814 jr z,2509h 24f5 b7 or a 24f6 c23822 jp nz,2238h 24f9 23 inc hl 24fa 7e ld a,(hl) 24fb 23 inc hl 24fc b6 or (hl) 24fd ca422f jp z,2f42h 2500 23 inc hl 2501 5e ld e,(hl) 2502 23 inc hl 2503 56 ld d,(hl) 2504 eb ex de,hl 2505 228c48 ld (488ch),hl 2508 eb ex de,hl 2509 d7 rst 10h 250a 11ea24 ld de,24eah 250d d5 push de 250e c8 ret z 250f d680 sub 80h 2511 da1026 jp c,2610h 2514 fe32 cp 32h 2516 d23822 jp nc,2238h 2519 07 rlca 251a 4f ld c,a 251b 0600 ld b,00h 251d eb ex de,hl 251e 210020 ld hl,2000h 2521 09 add hl,bc 2522 4e ld c,(hl) 2523 23 inc hl 2524 46 ld b,(hl) 2525 c5 push bc 2526 eb ex de,hl 2527 23 inc hl 2528 7e ld a,(hl) 2529 fe3a cp 3ah 252b d0 ret nc 252c fe20 cp 20h 252e 28f7 jr z,2527h 2530 3012 jr nc,2544h 2532 fe0f cp 0fh 2534 300c jr nc,2542h 2536 fe0d cp 0dh 2538 3808 jr c,2542h 253a e5 push hl 253b 23 inc hl 253c 23 inc hl 253d 23 inc hl 253e 221d49 ld (491dh),hl 2541 e1 pop hl 2542 b7 or a 2543 c9 ret 2544 fe30 cp 30h 2546 3f ccf 2547 3c inc a 2548 3d dec a 2549 c9 ret 254a d7 rst 10h 254b cd4d28 call 284dh 254e ef rst 28h 254f fa6725 jp m,2567h 2552 3ae949 ld a,(49e9h) 2555 fe90 cp 90h 2557 da3506 jp c,0635h 255a 018090 ld bc,9080h 255d 110000 ld de,0000h 2560 e5 push hl 2561 cd0a06 call 060ah 2564 e1 pop hl 2565 51 ld d,c 2566 c8 ret z 2567 1e08 ld e,08h 2569 c35222 jp 2252h 256c 2b dec hl 256d d7 rst 10h 256e fe0e cp 0eh 2570 2006 jr nz,2578h 2572 23 inc hl 2573 5e ld e,(hl) 2574 23 inc hl 2575 56 ld d,(hl) 2576 d7 rst 10h 2577 c9 ret 2578 2b dec hl 2579 110000 ld de,0000h 257c d7 rst 10h 257d d0 ret nc 257e e5 push hl 257f f5 push af 2580 219819 ld hl,1998h 2583 e7 rst 20h 2584 3811 jr c,2597h 2586 62 ld h,d 2587 6b ld l,e 2588 19 add hl,de 2589 29 add hl,hl 258a 19 add hl,de 258b 29 add hl,hl 258c f1 pop af 258d d630 sub 30h 258f 5f ld e,a 2590 1600 ld d,00h 2592 19 add hl,de 2593 eb ex de,hl 2594 e1 pop hl 2595 18e5 jr 257ch 2597 f1 pop af 2598 e1 pop hl 2599 c9 ret ---------------------------------- RUN ---------------------------------- 259a ddcb03b6 res 6,(ix+03h) 259e cae42e jp z,2ee4h 25a1 cde82e call 2ee8h 25a4 01ea24 ld bc,24eah 25a7 1810 jr 25b9h 25a9 0e03 ld c,03h 25ab cdbb2e call 2ebbh 25ae c1 pop bc 25af e5 push hl 25b0 e5 push hl 25b1 2a8c48 ld hl,(488ch) 25b4 e3 ex (sp),hl 25b5 3e8c ld a,8ch 25b7 f5 push af 25b8 33 inc sp 25b9 c5 push bc ---------------------------------- GOTO ---------------------------------- 25ba cd6c25 call 256ch 25bd cdf525 call 25f5h 25c0 23 inc hl 25c1 e5 push hl 25c2 2a8c48 ld hl,(488ch) 25c5 e7 rst 20h 25c6 e1 pop hl 25c7 dc4d23 call c,234dh 25ca d44723 call nc,2347h 25cd 60 ld h,b 25ce 69 ld l,c 25cf 2b dec hl 25d0 d8 ret c 25d1 1e0e ld e,0eh 25d3 c35222 jp 2252h 25d6 c0 ret nz 25d7 16ff ld d,0ffh 25d9 cd1922 call 2219h 25dc f9 ld sp,hl 25dd fe8c cp 8ch 25df 1e04 ld e,04h 25e1 c25222 jp nz,2252h 25e4 e1 pop hl 25e5 228c48 ld (488ch),hl 25e8 23 inc hl 25e9 7c ld a,h 25ea b5 or l 25eb 2000 jr nz,25edh 25ed 21ea24 ld hl,24eah 25f0 e3 ex (sp),hl 25f1 3ee1 ld a,0e1h ---------------------------------- DATA ---------------------------------- 25f3 013a0e ld bc,0e3ah 25f6 00 nop 25f7 0600 ld b,00h 25f9 79 ld a,c 25fa 48 ld c,b 25fb 47 ld b,a 25fc 7e ld a,(hl) 25fd fe0e cp 0eh 25ff 2004 jr nz,2605h 2601 23 inc hl 2602 23 inc hl 2603 23 inc hl 2604 7e ld a,(hl) 2605 b7 or a 2606 c8 ret z 2607 b8 cp b 2608 c8 ret z 2609 23 inc hl 260a fe22 cp 22h 260c 28eb jr z,25f9h 260e 18ec jr 25fch ---------------------------------- LET ---------------------------------- 2610 cdda38 call 38dah 2613 cf rst 08h 2614 c1 pop bc 2615 d5 push de 2616 3a1b49 ld a,(491bh) 2619 f5 push af 261a cd6128 call 2861h 261d f1 pop af 261e e3 ex (sp),hl 261f 22cf49 ld (49cfh),hl 2622 1f rra 2623 cd5228 call 2852h 2626 282f jr z,2657h 2628 e5 push hl 2629 2ae649 ld hl,(49e6h) 262c e5 push hl 262d 23 inc hl 262e 23 inc hl 262f 5e ld e,(hl) 2630 23 inc hl 2631 56 ld d,(hl) 2632 2a8e48 ld hl,(488eh) 2635 e7 rst 20h 2636 300e jr nc,2646h 2638 2adc49 ld hl,(49dch) 263b e7 rst 20h 263c d1 pop de 263d 300f jr nc,264eh 263f 219b49 ld hl,499bh 2642 e7 rst 20h 2643 3009 jr nc,264eh 2645 3ed1 ld a,0d1h 2647 cdec37 call 37ech 264a eb ex de,hl 264b cd4636 call 3646h 264e cdec37 call 37ech 2651 e1 pop hl 2652 cdec05 call 05ech 2655 e1 pop hl 2656 c9 ret 2657 e5 push hl 2658 cde905 call 05e9h 265b d1 pop de 265c e1 pop hl ---------------------------------- ON ---------------------------------- 265d c9 ret 265e cda52a call 2aa5h 2661 7e ld a,(hl) 2662 47 ld b,a 2663 fe8c cp 8ch 2665 2803 jr z,266ah 2667 cf rst 08h 2668 88 adc a,b 2669 2b dec hl 266a 4b ld c,e 266b 0d dec c 266c 78 ld a,b 266d ca0f25 jp z,250fh 2670 cd6d25 call 256dh 2673 fe2c cp 2ch 2675 c0 ret nz 2676 c36b26 jp 266bh ---------------------------------- IF ---------------------------------- 2679 cd6128 call 2861h 267c 7e ld a,(hl) 267d fe88 cp 88h 267f 2803 jr z,2684h 2681 cf rst 08h 2682 b6 or (hl) 2683 2b dec hl 2684 cd5028 call 2850h 2687 ef rst 28h 2688 caf525 jp z,25f5h 268b d7 rst 10h 268c fe0e cp 0eh 268e caba25 jp z,25bah 2691 c30e25 jp 250eh ---------------------------------- LPRINT ---------------------------------- 2694 3e01 ld a,01h 2696 326f48 ld (486fh),a 2699 2b dec hl 269a d7 rst 10h ---------------------------------- PRINT ---------------------------------- 269b cddf47 call 47dfh 269e cc573c call z,3c57h 26a1 ca4127 jp z,2741h 26a4 feb2 cp 0b2h 26a6 286e jr z,2716h 26a8 feb5 cp 0b5h 26aa 286a jr z,2716h 26ac e5 push hl 26ad fe2c cp 2ch 26af 2843 jr z,26f4h 26b1 fe3b cp 3bh 26b3 ca3c27 jp z,273ch 26b6 c1 pop bc 26b7 cd6128 call 2861h 26ba e5 push hl 26bb 3a1b49 ld a,(491bh) 26be b7 or a 26bf 202d jr nz,26eeh 26c1 cd3107 call 0731h 26c4 cd6c36 call 366ch 26c7 3620 ld (hl),20h 26c9 2ae649 ld hl,(49e6h) 26cc 3a6f48 ld a,(486fh) 26cf b7 or a 26d0 2808 jr z,26dah 26d2 3a6e48 ld a,(486eh) 26d5 86 add a,(hl) 26d6 fe84 cp 84h 26d8 180d jr 26e7h 26da 3a8a48 ld a,(488ah) 26dd 47 ld b,a 26de 3c inc a 26df 2809 jr z,26eah 26e1 3a0548 ld a,(4805h) 26e4 86 add a,(hl) 26e5 3d dec a 26e6 b8 cp b 26e7 d4573c call nc,3c57h 26ea cdad36 call 36adh 26ed af xor a 26ee c4ad36 call nz,36adh 26f1 e1 pop hl 26f2 18a5 jr 2699h 26f4 3a6f48 ld a,(486fh) 26f7 b7 or a 26f8 2807 jr z,2701h 26fa 3a6e48 ld a,(486eh) 26fd fe75 cp 75h 26ff 1809 jr 270ah 2701 3a8b48 ld a,(488bh) 2704 47 ld b,a 2705 3a0548 ld a,(4805h) 2708 3d dec a 2709 b8 cp b 270a d4573c call nc,3c57h 270d 302d jr nc,273ch 270f d60d sub 0dh 2711 30fc jr nc,270fh 2713 2f cpl 2714 181f jr 2735h 2716 f5 push af 2717 cda42a call 2aa4h 271a cf rst 08h 271b 29 add hl,hl 271c 2b dec hl 271d f1 pop af 271e d6b5 sub 0b5h 2720 e5 push hl 2721 280e jr z,2731h 2723 3a6f48 ld a,(486fh) 2726 b7 or a 2727 2805 jr z,272eh 2729 3a6e48 ld a,(486eh) 272c 1803 jr 2731h 272e 3a0548 ld a,(4805h) 2731 2f cpl 2732 83 add a,e 2733 3007 jr nc,273ch 2735 3c inc a 2736 47 ld b,a 2737 3e20 ld a,20h 2739 df rst 18h 273a 10fd djnz 2739h 273c e1 pop hl 273d d7 rst 10h 273e c3a126 jp 26a1h 2741 af xor a 2742 326f48 ld (486fh),a 2745 c9 ret 2746 3ace49 ld a,(49ceh) 2749 b7 or a 274a c23222 jp nz,2232h 274d c1 pop bc 274e 213c17 ld hl,173ch 2751 3a9048 ld a,(4890h) 2754 b7 or a 2755 2803 jr z,275ah 2757 215217 ld hl,1752h 275a cdaa36 call 36aah 275d c31a2f jp 2f1ah ---------------------------------- INPUT ---------------------------------- 2760 cd872a call 2a87h 2763 cdeb47 call 47ebh 2766 7e ld a,(hl) 2767 fe22 cp 22h 2769 3e00 ld a,00h 276b 200a jr nz,2777h 276d cd6d36 call 366dh 2770 cf rst 08h 2771 3b dec sp 2772 e5 push hl 2773 cdad36 call 36adh 2776 3ee5 ld a,0e5h 2778 cdec3d call 3dech 277b 1816 jr 2793h 277d 00 nop 277e 00 nop 277f 00 nop 2780 cd9c3c call 3c9ch 2783 ddcb03b6 res 6,(ix+03h) 2787 3a7148 ld a,(4871h) 278a cbaf res 5,a 278c cb87 res 0,a 278e 327148 ld (4871h),a 2791 c9 ret 2792 00 nop 2793 c1 pop bc 2794 da3f2f jp c,2f3fh 2797 23 inc hl 2798 7e ld a,(hl) 2799 b7 or a 279a 2b dec hl 279b c5 push bc 279c caf225 jp z,25f2h 279f 362c ld (hl),2ch 27a1 1805 jr 27a8h ---------------------------------- READ ---------------------------------- 27a3 e5 push hl 27a4 2ade49 ld hl,(49deh) 27a7 f6af or 0afh 27a9 32ce49 ld (49ceh),a 27ac e3 ex (sp),hl 27ad 01cf2c ld bc,2ccfh 27b0 cdda38 call 38dah 27b3 e3 ex (sp),hl 27b4 d5 push de 27b5 7e ld a,(hl) 27b6 fe2c cp 2ch 27b8 281b jr z,27d5h 27ba 3ace49 ld a,(49ceh) 27bd b7 or a 27be c22f28 jp nz,282fh 27c1 3e3f ld a,3fh 27c3 df rst 18h 27c4 cdec3d call 3dech 27c7 d1 pop de 27c8 c1 pop bc 27c9 da3f2f jp c,2f3fh 27cc 23 inc hl 27cd 7e ld a,(hl) 27ce 2b dec hl 27cf b7 or a 27d0 c5 push bc 27d1 caf225 jp z,25f2h 27d4 d5 push de 27d5 3a1b49 ld a,(491bh) 27d8 b7 or a 27d9 281f jr z,27fah 27db d7 rst 10h 27dc 57 ld d,a 27dd 47 ld b,a 27de fe22 cp 22h 27e0 280c jr z,27eeh 27e2 3ace49 ld a,(49ceh) 27e5 b7 or a 27e6 57 ld d,a 27e7 2802 jr z,27ebh 27e9 163a ld d,3ah 27eb 062c ld b,2ch 27ed 2b dec hl 27ee cd7036 call 3670h 27f1 eb ex de,hl 27f2 210328 ld hl,2803h 27f5 e3 ex (sp),hl 27f6 d5 push de 27f7 c32826 jp 2628h 27fa d7 rst 10h 27fb cd9206 call 0692h 27fe e3 ex (sp),hl 27ff cde905 call 05e9h 2802 e1 pop hl 2803 2b dec hl 2804 d7 rst 10h 2805 2805 jr z,280ch 2807 fe2c cp 2ch 2809 c24627 jp nz,2746h 280c e3 ex (sp),hl 280d 2b dec hl 280e d7 rst 10h 280f 209d jr nz,27aeh 2811 d1 pop de 2812 3ace49 ld a,(49ceh) 2815 b7 or a 2816 eb ex de,hl 2817 c2332f jp nz,2f33h 281a d5 push de 281b b6 or (hl) 281c 210f17 ld hl,170fh 281f f5 push af 2820 3a9048 ld a,(4890h) 2823 b7 or a 2824 2803 jr z,2829h 2826 212d17 ld hl,172dh 2829 f1 pop af 282a c4aa36 call nz,36aah 282d e1 pop hl 282e c9 ret 282f cdf325 call 25f3h 2832 b7 or a 2833 2011 jr nz,2846h 2835 23 inc hl 2836 7e ld a,(hl) 2837 23 inc hl 2838 b6 or (hl) 2839 1e06 ld e,06h 283b ca5222 jp z,2252h 283e 23 inc hl 283f 5e ld e,(hl) 2840 23 inc hl 2841 56 ld d,(hl) 2842 ed53cb49 ld (49cbh),de 2846 d7 rst 10h 2847 fe83 cp 83h 2849 20e4 jr nz,282fh 284b 1888 jr 27d5h ---------------------------------------- acquisition parametre signe sur 2 octets ---------------------------------------- 284d cd6128 call 2861h 2850 f637 or 37h 2852 3a1b49 ld a,(491bh) 2855 8f adc a,a 2856 b7 or a 2857 e8 ret pe 2858 c34d22 jp 224dh 285b cf rst 08h 285c c1 pop bc 285d 1802 jr 2861h 285f cf rst 08h 2860 282b jr z,288dh ---------------------------------------- ---------------------------------------- 2861 2b dec hl 2862 1600 ld d,00h 2864 d5 push de 2865 0e01 ld c,01h 2867 cdbb2e call 2ebbh 286a cdd828 call 28d8h 286d 22d249 ld (49d2h),hl 2870 2ad249 ld hl,(49d2h) 2873 c1 pop bc 2874 78 ld a,b 2875 fe78 cp 78h 2877 d45028 call nc,2850h 287a 7e ld a,(hl) 287b 22c549 ld (49c5h),hl 287e feb9 cp 0b9h 2880 d8 ret c 2881 fec3 cp 0c3h 2883 d0 ret nc 2884 fec0 cp 0c0h 2886 3035 jr nc,28bdh 2888 d6b9 sub 0b9h 288a 5f ld e,a 288b 2008 jr nz,2895h 288d 3a1b49 ld a,(491bh) 2890 3d dec a 2891 7b ld a,e 2892 ca8437 jp z,3784h 2895 07 rlca 2896 83 add a,e 2897 5f ld e,a 2898 21fe21 ld hl,21feh 289b 1600 ld d,00h 289d 19 add hl,de 289e 78 ld a,b 289f 56 ld d,(hl) 28a0 ba cp d 28a1 d0 ret nc 28a2 23 inc hl 28a3 cd5028 call 2850h 28a6 c5 push bc 28a7 017028 ld bc,2870h 28aa c5 push bc 28ab 43 ld b,e 28ac 4a ld c,d 28ad cdc205 call 05c2h 28b0 58 ld e,b 28b1 51 ld d,c 28b2 4e ld c,(hl) 28b3 23 inc hl 28b4 46 ld b,(hl) 28b5 23 inc hl 28b6 c5 push bc 28b7 2ac549 ld hl,(49c5h) 28ba c36428 jp 2864h 28bd 1600 ld d,00h 28bf d6c0 sub 0c0h 28c1 da9e29 jp c,299eh 28c4 fe03 cp 03h 28c6 d29e29 jp nc,299eh 28c9 fe01 cp 01h 28cb 17 rla 28cc aa xor d 28cd ba cp d 28ce 57 ld d,a 28cf da3822 jp c,2238h ----------------------------------------------------------------------- 28d0 38 22 22 c5 49 d7 18 e7 af 32 1b 49 d7 ca 4a 22 8"".I....2.I..J" 28e0 da 92 06 fe 26 ca 2c 30 cd 99 2f 30 37 fe b9 28 ....&.,0../07..( 28f0 e7 fe 2e ca 92 06 fe ba 28 19 fe 22 ca 6d 36 fe ........(..".m6. 2900 b7 ca d3 29 fe b4 ca 41 2a d6 c3 30 28 cd 5f 28 ...)...A*..0(._( 2910 cf 29 c9 16 7d cd 64 28 2a d2 49 e5 cd ba 05 cd .)..}.d(*.I..... 2920 50 28 e1 c9 cd da 38 e5 eb 22 e6 49 3a 1b 49 b7 P(....8..".I:.I. 2930 cc cf 05 e1 c9 06 00 07 4f c5 d7 79 fe 33 38 16 ........O..y.38. 2940 cd 5f 28 cf 2c cd 51 28 eb 2a e6 49 e3 e5 eb cd ._(.,.Q(.*.I.... 2950 a5 2a eb e3 18 08 cd 0d 29 e3 11 1f 29 d5 01 64 .*......)...)..d 2960 20 09 4e 23 66 69 e9 15 fe ba c8 fe 2d c8 14 fe .N#fi......-... 2970 2b c8 fe b9 c8 2b c9 f6 af f5 cd 50 28 cd 52 25 +....+.....P(.R% 2980 f1 eb c1 e3 eb cd d2 05 f5 cd 52 25 f1 c1 79 21 ..........R%..y! 2990 ef 29 20 05 a3 4f 78 a2 e9 b3 4f 78 b2 e9 21 b0 .) ..Ox...Ox..!. 29a0 29 3a 1b 49 1f 7a 17 5f 16 64 78 ba d0 c3 a6 28 ):.I.z._.dx....( 29b0 b2 29 79 b7 1f c1 d1 f5 cd 52 28 21 c9 29 e5 ca .)y......R(!.).. 29c0 0a 06 af 32 1b 49 c3 09 36 3c 8f c1 a0 c6 ff 9f ...2.I..6<...... 29d0 c3 a5 05 16 5a cd 64 28 cd 50 28 cd 52 25 7b 2f ....Z.d(.P(.R%{/ 29e0 4f 7a 2f cd ef 29 c1 c3 70 28 7d 93 4f 7c 9a 41 Oz/..)..p(}.O|.A 29f0 50 1e 00 21 1b 49 73 06 90 c3 aa 05 3a 6e 48 18 P..!.Is.....:nH. 2a00 0e cd a8 2a 3c 28 05 3a 05 48 18 03 3a 06 48 47 ...*<(.:.H..:.HG 2a10 af 18 dd cd 95 2a cd 87 2a 01 f3 25 c5 d5 11 00 .....*..*..%.... ----------------------------------------------------------------------- 28d2 22c549 ld (49c5h),hl 28d5 d7 rst 10h 28d6 18e7 jr 28bfh 28d8 af xor a 28d9 321b49 ld (491bh),a 28dc d7 rst 10h 28dd ca4a22 jp z,224ah 28e0 da9206 jp c,0692h 28e3 fe26 cp 26h 28e5 ca2c30 jp z,302ch 28e8 cd992f call 2f99h 28eb 3037 jr nc,2924h 28ed feb9 cp 0b9h 28ef 28e7 jr z,28d8h 28f1 fe2e cp 2eh 28f3 ca9206 jp z,0692h 28f6 feba cp 0bah 28f8 2819 jr z,2913h 28fa fe22 cp 22h 28fc ca6d36 jp z,366dh 28ff feb7 cp 0b7h 2901 cad329 jp z,29d3h 2904 feb4 cp 0b4h 2906 ca412a jp z,2a41h 2909 d6c3 sub 0c3h 290b 3028 jr nc,2935h 290d cd5f28 call 285fh 2910 cf rst 08h 2911 29 add hl,hl 2912 c9 ret 2913 167d ld d,7dh 2915 cd6428 call 2864h 2918 2ad249 ld hl,(49d2h) 291b e5 push hl 291c cdba05 call 05bah 291f cd5028 call 2850h 2922 e1 pop hl 2923 c9 ret 2924 cdda38 call 38dah 2927 e5 push hl 2928 eb ex de,hl 2929 22e649 ld (49e6h),hl 292c 3a1b49 ld a,(491bh) 292f b7 or a 2930 cccf05 call z,05cfh 2933 e1 pop hl 2934 c9 ret 2935 0600 ld b,00h 2937 07 rlca 2938 4f ld c,a 2939 c5 push bc 293a d7 rst 10h 293b 79 ld a,c 293c fe33 cp 33h 293e 3816 jr c,2956h 2940 cd5f28 call 285fh 2943 cf rst 08h 2944 2c inc l 2945 cd5128 call 2851h 2948 eb ex de,hl 2949 2ae649 ld hl,(49e6h) 294c e3 ex (sp),hl 294d e5 push hl 294e eb ex de,hl 294f cda52a call 2aa5h 2952 eb ex de,hl 2953 e3 ex (sp),hl 2954 1808 jr 295eh 2956 cd0d29 call 290dh 2959 e3 ex (sp),hl 295a 111f29 ld de,291fh 295d d5 push de 295e 016420 ld bc,2064h 2961 09 add hl,bc 2962 4e ld c,(hl) 2963 23 inc hl 2964 66 ld h,(hl) 2965 69 ld l,c 2966 e9 jp (hl) 2967 15 dec d 2968 feba cp 0bah 296a c8 ret z 296b fe2d cp 2dh 296d c8 ret z 296e 14 inc d 296f fe2b cp 2bh 2971 c8 ret z 2972 feb9 cp 0b9h 2974 c8 ret z 2975 2b dec hl 2976 c9 ret 2977 f6af or 0afh 2979 f5 push af 297a cd5028 call 2850h 297d cd5225 call 2552h 2980 f1 pop af 2981 eb ex de,hl 2982 c1 pop bc 2983 e3 ex (sp),hl 2984 eb ex de,hl 2985 cdd205 call 05d2h 2988 f5 push af 2989 cd5225 call 2552h 298c f1 pop af 298d c1 pop bc 298e 79 ld a,c 298f 21ef29 ld hl,29efh 2992 2005 jr nz,2999h 2994 a3 and e 2995 4f ld c,a 2996 78 ld a,b 2997 a2 and d 2998 e9 jp (hl) 2999 b3 or e 299a 4f ld c,a 299b 78 ld a,b 299c b2 or d 299d e9 jp (hl) 299e 21b029 ld hl,29b0h 29a1 3a1b49 ld a,(491bh) 29a4 1f rra 29a5 7a ld a,d 29a6 17 rla 29a7 5f ld e,a 29a8 1664 ld d,64h 29aa 78 ld a,b 29ab ba cp d 29ac d0 ret nc 29ad c3a628 jp 28a6h 29b0 b2 or d 29b1 29 add hl,hl 29b2 79 ld a,c 29b3 b7 or a 29b4 1f rra 29b5 c1 pop bc 29b6 d1 pop de 29b7 f5 push af 29b8 cd5228 call 2852h 29bb 21c929 ld hl,29c9h 29be e5 push hl 29bf ca0a06 jp z,060ah 29c2 af xor a 29c3 321b49 ld (491bh),a 29c6 c30936 jp 3609h 29c9 3c inc a 29ca 8f adc a,a 29cb c1 pop bc 29cc a0 and b 29cd c6ff add a,0ffh 29cf 9f sbc a,a 29d0 c3a505 jp 05a5h 29d3 165a ld d,5ah 29d5 cd6428 call 2864h 29d8 cd5028 call 2850h 29db cd5225 call 2552h 29de 7b ld a,e 29df 2f cpl 29e0 4f ld c,a 29e1 7a ld a,d 29e2 2f cpl 29e3 cdef29 call 29efh 29e6 c1 pop bc 29e7 c37028 jp 2870h 29ea 7d ld a,l 29eb 93 sub e 29ec 4f ld c,a 29ed 7c ld a,h 29ee 9a sbc a,d 29ef 41 ld b,c 29f0 50 ld d,b 29f1 1e00 ld e,00h 29f3 211b49 ld hl,491bh 29f6 73 ld (hl),e 29f7 0690 ld b,90h 29f9 c3aa05 jp 05aah ---------------------------------- LPOS ---------------------------------- 29fc 3a6e48 ld a,(486eh) 29ff 180e jr 2a0fh ---------------------------------- POS ---------------------------------- 2a01 cda82a call 2aa8h 2a04 3c inc a 2a05 2805 jr z,2a0ch 2a07 3a0548 ld a,(4805h) 2a0a 1803 jr 2a0fh 2a0c 3a0648 ld a,(4806h) (retour routine USR) 2a0f 47 ld b,a 2a10 af xor a 2a11 18dd jr 29f0h ---------------------------------- DEF ---------------------------------- 2a13 cd952a call 2a95h 2a16 cd872a call 2a87h 2a19 01f325 ld bc,25f3h 2a1c c5 push bc 2a1d d5 push de 2a1e 110000 ld de,0000h 2a21 7e ld a,(hl) 2a22 fe28 cp 28h 2a24 2010 jr nz,2a36h 2a26 d7 rst 10h 2a27 cdda38 call 38dah 2a2a e5 push hl 2a2b eb ex de,hl 2a2c 2b dec hl 2a2d 56 ld d,(hl) 2a2e 2b dec hl 2a2f 5e ld e,(hl) 2a30 e1 pop hl 2a31 cd5028 call 2850h 2a34 cf rst 08h 2a35 29 add hl,hl 2a36 cf rst 08h 2a37 c1 pop bc 2a38 44 ld b,h 2a39 4d ld c,l 2a3a e3 ex (sp),hl 2a3b 71 ld (hl),c 2a3c 23 inc hl 2a3d 70 ld (hl),b 2a3e c36636 jp 3666h 2a41 cd952a call 2a95h 2a44 d5 push de 2a45 cd0d29 call 290dh 2a48 cd5028 call 2850h 2a4b e3 ex (sp),hl 2a4c 5e ld e,(hl) 2a4d 23 inc hl 2a4e 56 ld d,(hl) 2a4f 23 inc hl 2a50 7a ld a,d 2a51 b3 or e 2a52 ca4422 jp z,2244h 2a55 7e ld a,(hl) 2a56 23 inc hl 2a57 66 ld h,(hl) 2a58 6f ld l,a 2a59 e5 push hl 2a5a 2ae049 ld hl,(49e0h) 2a5d e3 ex (sp),hl 2a5e 22e049 ld (49e0h),hl 2a61 2ae449 ld hl,(49e4h) 2a64 e5 push hl 2a65 2ae249 ld hl,(49e2h) 2a68 e5 push hl 2a69 21e249 ld hl,49e2h 2a6c d5 push de 2a6d cde905 call 05e9h 2a70 e1 pop hl 2a71 cd4d28 call 284dh 2a74 2b dec hl 2a75 d7 rst 10h 2a76 c23822 jp nz,2238h 2a79 e1 pop hl 2a7a 22e249 ld (49e2h),hl 2a7d e1 pop hl 2a7e 22e449 ld (49e4h),hl 2a81 e1 pop hl 2a82 22e049 ld (49e0h),hl 2a85 e1 pop hl 2a86 c9 ret 2a87 e5 push hl 2a88 2a8c48 ld hl,(488ch) 2a8b 23 inc hl 2a8c 7c ld a,h 2a8d b5 or l 2a8e e1 pop hl 2a8f c0 ret nz 2a90 1e16 ld e,16h 2a92 c35222 jp 2252h 2a95 cf rst 08h 2a96 b4 or h 2a97 3e80 ld a,80h 2a99 32cd49 ld (49cdh),a 2a9c b6 or (hl) 2a9d 4f ld c,a 2a9e cddf38 call 38dfh 2aa1 c35028 jp 2850h 2aa4 d7 rst 10h ---------------------------------- acquisition parametre sur 1 octet ---------------------------------- 2aa5 cd4d28 call 284dh 2aa8 cd4e25 call 254eh 2aab 7a ld a,d 2aac b7 or a 2aad c26725 jp nz,2567h 2ab0 2b dec hl 2ab1 d7 rst 10h 2ab2 7b ld a,e 2ab3 c9 ret ---------------------------------- PEEK ---------------------------------- 2ab4 cd5225 call 2552h 2ab7 1a ld a,(de) 2ab8 c30f2a jp 2a0fh ---------------------------------- POKE ---------------------------------- 2abb cdcb2a call 2acbh 2abe d5 push de 2abf cf rst 08h 2ac0 2c inc l 2ac1 cda52a call 2aa5h 2ac4 d1 pop de 2ac5 12 ld (de),a 2ac6 c9 ret 2ac7 00 nop 2ac8 00 nop 2ac9 00 nop 2aca 00 nop 2acb cd6128 call 2861h 2ace e5 push hl 2acf cd5225 call 2552h 2ad2 e1 pop hl 2ad3 c9 ret ---------------------------------- Editeur ---------------------------------- 2ad4 c5 push bc 2ad5 d5 push de 2ad6 e5 push hl 2ad7 3a7148 ld a,(4871h) 2ada cb4f bit 1,a 2adc c2322b jp nz,2b32h 2adf 76 halt 2ae0 cdb732 call 32b7h 2ae3 b7 or a 2ae4 2848 jr z,2b2eh 2ae6 f5 push af 2ae7 d9 exx 2ae8 212020 ld hl,2020h 2aeb 220e48 ld (480eh),hl 2aee 110100 ld de,0001h 2af1 cda70c call 0ca7h 2af4 3a7148 ld a,(4871h) 2af7 00 nop 2af8 00 nop 2af9 f601 or 01h 2afb 327148 ld (4871h),a 2afe f1 pop af 2aff fa762d jp m,2d76h 2b02 fe0d cp 0dh 2b04 c32d3e jp 3e2dh 2b07 fe09 cp 09h 2b09 ca632c jp z,2c63h 2b0c fe0a cp 0ah 2b0e ca892c jp z,2c89h 2b11 fe0c cp 0ch 2b13 caaf2c jp z,2cafh 2b16 c3fb3d jp 3dfbh 2b19 00 nop 2b1a 3a7148 ld a,(4871h) 2b1d cb6f bit 5,a 2b1f 200c jr nz,2b2dh 2b21 3e1f ld a,1fh 2b23 df rst 18h 2b24 dd360101 ld (ix+01h),01h 2b28 dd360001 ld (ix+00h),01h 2b2c 76 halt 2b2d af xor a 2b2e e1 pop hl 2b2f d1 pop de 2b30 c1 pop bc 2b31 c9 ret 2b32 2a0b48 ld hl,(480bh) 2b35 7c ld a,h 2b36 fe18 cp 18h 2b38 300a jr nc,2b44h 2b3a e5 push hl 2b3b 24 inc h 2b3c 2e00 ld l,00h 2b3e cd7835 call 3578h 2b41 e1 pop hl 2b42 2805 jr z,2b49h 2b44 7d ld a,l 2b45 fe27 cp 27h 2b47 302c jr nc,2b75h 2b49 f5 push af 2b4a 7d ld a,l 2b4b fe27 cp 27h 2b4d 3803 jr c,2b52h 2b4f 24 inc h 2b50 2e00 ld l,00h 2b52 2c inc l 2b53 220b48 ld (480bh),hl 2b56 e5 push hl 2b57 cd7835 call 3578h 2b5a 47 ld b,a 2b5b d1 pop de 2b5c f1 pop af 2b5d 78 ld a,b 2b5e 304c jr nc,2bach 2b60 fe20 cp 20h 2b62 2048 jr nz,2bach 2b64 1c inc e 2b65 7b ld a,e 2b66 fe28 cp 28h 2b68 300b jr nc,2b75h 2b6a 23 inc hl 2b6b 23 inc hl 2b6c 7e ld a,(hl) 2b6d fe20 cp 20h 2b6f 28f3 jr z,2b64h 2b71 3e20 ld a,20h 2b73 1837 jr 2bach 2b75 3a7148 ld a,(4871h) 2b78 cb8f res 1,a 2b7a 327148 ld (4871h),a 2b7d 3a0d48 ld a,(480dh) 2b80 cb7f bit 7,a 2b82 2023 jr nz,2ba7h 2b84 fe20 cp 20h 2b86 2808 jr z,2b90h 2b88 fe30 cp 30h 2b8a 3815 jr c,2ba1h 2b8c fe3a cp 3ah 2b8e 3011 jr nc,2ba1h 2b90 3a0548 ld a,(4805h) 2b93 fe01 cp 01h 2b95 2805 jr z,2b9ch 2b97 cdd32b call 2bd3h 2b9a 180b jr 2ba7h 2b9c c3113e jp 3e11h 2b9f 00 nop 2ba0 06cd ld b,0cdh 2ba2 d32b out (2bh),a 2ba4 3e1e ld a,1eh 2ba6 df rst 18h 2ba7 3e0d ld a,0dh 2ba9 c32e2b jp 2b2eh 2bac feff cp 0ffh 2bae 2002 jr nz,2bb2h 2bb0 3e10 ld a,10h 2bb2 fe0d cp 0dh 2bb4 2002 jr nz,2bb8h 2bb6 3e11 ld a,11h 2bb8 fe08 cp 08h 2bba 2002 jr nz,2bbeh 2bbc 3e13 ld a,13h 2bbe fe04 cp 04h 2bc0 2002 jr nz,2bc4h 2bc2 3e18 ld a,18h 2bc4 fe1f cp 1fh 2bc6 2002 jr nz,2bcah 2bc8 3e1a ld a,1ah 2bca fe03 cp 03h 2bcc 2002 jr nz,2bd0h 2bce 3e1c ld a,1ch 2bd0 c32e2b jp 2b2eh 2bd3 3e03 ld a,03h 2bd5 df rst 18h 2bd6 2a0548 ld hl,(4805h) 2bd9 2d dec l 2bda cd7835 call 3578h 2bdd 28f4 jr z,2bd3h 2bdf c9 ret 2be0 2a0548 ld hl,(4805h) 2be3 2d dec l 2be4 e5 push hl 2be5 cd7835 call 3578h 2be8 e1 pop hl 2be9 fe80 cp 80h 2beb 2808 jr z,2bf5h 2bed ee30 xor 30h 2bef fe0a cp 0ah 2bf1 301a jr nc,2c0dh 2bf3 18ee jr 2be3h 2bf5 7d ld a,l 2bf6 b7 or a 2bf7 20ea jr nz,2be3h 2bf9 2c inc l 2bfa 3a8448 ld a,(4884h) 2bfd b7 or a 2bfe 280d jr z,2c0dh 2c00 af xor a 2c01 328448 ld (4884h),a 2c04 220548 ld (4805h),hl 2c07 3e04 ld a,04h 2c09 df rst 18h 2c0a c3a72b jp 2ba7h 2c0d 2e01 ld l,01h 2c0f 220b48 ld (480bh),hl 2c12 e5 push hl 2c13 2d dec l 2c14 cd7835 call 3578h 2c17 e1 pop hl 2c18 2006 jr nz,2c20h 2c1a 25 dec h 2c1b fa602c jp m,2c60h 2c1e 18ef jr 2c0fh 2c20 3a7148 ld a,(4871h) 2c23 cb6f bit 5,a 2c25 2824 jr z,2c4bh 2c27 00 nop 2c28 00 nop 2c29 00 nop 2c2a 00 nop 2c2b 00 nop 2c2c 2a0b48 ld hl,(480bh) 2c2f e5 push hl 2c30 cd9102 call 0291h 2c33 d1 pop de 2c34 7b ld a,e 2c35 fe28 cp 28h 2c37 300e jr nc,2c47h 2c39 1c inc e 2c3a 7e ld a,(hl) 2c3b 23 inc hl 2c3c 23 inc hl 2c3d fe3f cp 3fh 2c3f 20f3 jr nz,2c34h 2c41 ed530b48 ld (480bh),de 2c45 18ed jr 2c34h 2c47 3e30 ld a,30h 2c49 1803 jr 2c4eh 2c4b cd7835 call 3578h 2c4e 320d48 ld (480dh),a 2c51 3a7148 ld a,(4871h) 2c54 cbcf set 1,a 2c56 327148 ld (4871h),a 2c59 2a0b48 ld hl,(480bh) 2c5c 2d dec l 2c5d 220b48 ld (480bh),hl 2c60 c32d2b jp 2b2dh 2c63 3a0648 ld a,(4806h) 2c66 b7 or a 2c67 201b jr nz,2c84h 2c69 3a7148 ld a,(4871h) 2c6c cb6f bit 5,a 2c6e c22d2b jp nz,2b2dh 2c71 ed5b0948 ld de,(4809h) 2c75 cd4723 call 2347h 2c78 ed4b0748 ld bc,(4807h) 2c7c 78 ld a,b 2c7d b1 or c 2c7e ca2d2b jp z,2b2dh 2c81 c3ba2c jp 2cbah 2c84 3e09 ld a,09h 2c86 c3232b jp 2b23h 2c89 3a0648 ld a,(4806h) 2c8c fe18 cp 18h 2c8e daaa2c jp c,2caah 2c91 3a7148 ld a,(4871h) 2c94 cb6f bit 5,a 2c96 c22d2b jp nz,2b2dh 2c99 ed5b0948 ld de,(4809h) 2c9d 13 inc de 2c9e cd4723 call 2347h 2ca1 daa72c jp c,2ca7h 2ca4 ca2d2b jp z,2b2dh 2ca7 c3ba2c jp 2cbah 2caa 3e0a ld a,0ah 2cac c3232b jp 2b23h 2caf 3a7148 ld a,(4871h) 2cb2 cb6f bit 5,a 2cb4 c22d2b jp nz,2b2dh 2cb7 37 scf 2cb8 1810 jr 2ccah 2cba 03 inc bc 2cbb 03 inc bc 2cbc 60 ld h,b 2cbd 69 ld l,c 2cbe 5e ld e,(hl) 2cbf 23 inc hl 2cc0 56 ld d,(hl) 2cc1 ed530948 ld (4809h),de 2cc5 b7 or a 2cc6 2a0548 ld hl,(4805h) 2cc9 e5 push hl 2cca f5 push af 2ccb 3e81 ld a,81h 2ccd 327148 ld (4871h),a 2cd0 dd360040 ld (ix+00h),40h 2cd4 dd360800 ld (ix+08h),00h 2cd8 210100 ld hl,0001h 2cdb 220548 ld (4805h),hl 2cde cd5502 call 0255h efface l'ecran et initialise couleurs 2ce1 ed5b0948 ld de,(4809h) 2ce5 cd4723 call 2347h 2ce8 60 ld h,b 2ce9 69 ld l,c 2cea cd0a2d call 2d0ah 2ced 380c jr c,2cfbh 2cef 3a0648 ld a,(4806h) 2cf2 fe18 cp 18h 2cf4 3e03 ld a,03h 2cf6 dc1a33 call c,331ah 2cf9 38ef jr c,2ceah 2cfb f1 pop af 2cfc 3803 jr c,2d01h 2cfe e1 pop hl 2cff 1803 jr 2d04h 2d01 210100 ld hl,0001h 2d04 220548 ld (4805h),hl 2d07 c3242b jp 2b24h 2d0a 4e ld c,(hl) 2d0b 23 inc hl 2d0c 46 ld b,(hl) 2d0d 23 inc hl 2d0e 78 ld a,b 2d0f b1 or c 2d10 ca702d jp z,2d70h 2d13 5e ld e,(hl) 2d14 23 inc hl 2d15 56 ld d,(hl) 2d16 23 inc hl 2d17 e5 push hl 2d18 eb ex de,hl 2d19 cd2607 call 0726h 2d1c 3e20 ld a,20h 2d1e e1 pop hl 2d1f df rst 18h 2d20 3a7148 ld a,(4871h) 2d23 cb77 bit 6,a 2d25 c2702d jp nz,2d70h 2d28 7e ld a,(hl) 2d29 23 inc hl 2d2a fe0e cp 0eh 2d2c 200f jr nz,2d3dh 2d2e 7e ld a,(hl) 2d2f 23 inc hl 2d30 08 ex af,af' 2d31 7e ld a,(hl) 2d32 23 inc hl 2d33 e5 push hl 2d34 67 ld h,a 2d35 08 ex af,af' 2d36 6f ld l,a 2d37 cd2607 call 0726h 2d3a e1 pop hl 2d3b 18eb jr 2d28h 2d3d b7 or a 2d3e ca712d jp z,2d71h 2d41 f21f2d jp p,2d1fh 2d44 d67f sub 7fh 2d46 4f ld c,a 2d47 119e20 ld de,209eh 2d4a fe0f cp 0fh 2d4c 2004 jr nz,2d52h 2d4e dd360801 ld (ix+08h),01h 2d52 1a ld a,(de) 2d53 13 inc de 2d54 b7 or a 2d55 f2522d jp p,2d52h 2d58 0d dec c 2d59 c2522d jp nz,2d52h 2d5c e67f and 7fh 2d5e df rst 18h 2d5f 3a7148 ld a,(4871h) 2d62 cb77 bit 6,a 2d64 c2702d jp nz,2d70h 2d67 1a ld a,(de) 2d68 13 inc de 2d69 b7 or a 2d6a f25c2d jp p,2d5ch 2d6d c3282d jp 2d28h 2d70 37 scf 2d71 dd360800 ld (ix+08h),00h 2d75 c9 ret 2d76 feba cp 0bah 2d78 da912d jp c,2d91h 2d7b fefb cp 0fbh 2d7d d22d2b jp nc,2b2dh 2d80 219e2d ld hl,2d9eh 2d83 be cp (hl) 2d84 23 inc hl 2d85 20fc jr nz,2d83h 2d87 7e ld a,(hl) 2d88 cb7f bit 7,a 2d8a c2242b jp nz,2b24h 2d8d df rst 18h 2d8e 23 inc hl 2d8f 18f6 jr 2d87h 2d91 d6b0 sub 0b0h 2d93 5f ld e,a 2d94 1600 ld d,00h 2d96 217a48 ld hl,487ah 2d99 19 add hl,de 2d9a 7e ld a,(hl) 2d9b c3232b jp 2b23h 2d9e d7 rst 10h 2d9f 33 inc sp 2da0 2e31 ld l,31h 2da2 34 inc (hl) 2da3 313539 ld sp,3935h 2da6 00 nop 2da7 d8 ret c ----------------------------------------------------------------------- 2da0 2e 31 34 31 35 39 00 d8 50 52 49 4e 54 20 00 d9 .14159..PRINT .. 2db0 52 45 4e 55 4d 20 00 da 41 55 54 4f 20 00 db 46 RENUM ..AUTO ..F 2dc0 52 45 28 30 29 00 dc 52 45 4d 20 00 de 4c 4f 41 RE(0)..REM ..LOA 2dd0 44 00 df 53 41 56 45 00 e0 50 4c 41 59 20 00 e1 D..SAVE..PLAY .. 2de0 43 4c 4f 41 44 00 e2 43 53 41 56 45 00 e3 43 4c CLOAD..CSAVE..CL 2df0 45 41 52 20 00 e4 44 41 54 41 20 00 e5 53 45 54 EAR ..DATA ..SET 2e00 45 47 20 00 e6 46 4f 52 20 49 3d 31 20 54 4f 20 EG ..FOR I=1 TO 2e10 00 e7 47 4f 54 4f 20 00 e8 47 4f 53 55 42 20 00 ..GOTO ..GOSUB . 2e20 e9 49 4e 49 54 20 00 ea 52 45 54 55 52 4e 00 eb .INIT ..RETURN.. 2e30 44 49 4d 20 00 ec 4c 49 53 54 20 00 ed 49 4e 50 DIM ..LIST ..INP 2e40 55 54 20 00 ee 4e 45 58 54 20 49 00 ef 52 45 41 UT ..NEXT I..REA 2e50 44 20 00 f0 50 4f 4b 45 20 00 f1 52 45 53 54 4f D ..POKE ..RESTO 2e60 52 45 20 00 f2 52 55 4e 20 00 f3 53 4f 55 4e 44 RE ..RUN ..SOUND 2e70 20 00 f4 43 48 52 24 28 00 f5 4c 45 46 54 24 28 ..CHR$(..LEFT$( 2e80 00 f6 52 49 47 48 54 24 28 00 f7 4d 49 44 24 28 ..RIGHT$(..MID$( 2e90 00 f8 43 55 52 53 4f 52 58 20 00 f9 43 55 52 53 ..CURSORX ..CURS 2ea0 4f 52 59 20 00 fa 53 45 54 45 54 20 00 cd c4 2e ORY ..SETET .... ----------------------------------------------------------------------- ---------------------------------- Interpreteur Basic (2) ---------------------------------- 2ead cdc42e call 2ec4h 2eb0 c5 push bc 2eb1 e3 ex (sp),hl 2eb2 c1 pop bc 2eb3 e7 rst 20h 2eb4 7e ld a,(hl) 2eb5 02 ld (bc),a 2eb6 c8 ret z 2eb7 0b dec bc 2eb8 2b dec hl 2eb9 18f8 jr 2eb3h 2ebb e5 push hl 2ebc 2adc49 ld hl,(49dch) 2ebf 0600 ld b,00h 2ec1 09 add hl,bc 2ec2 09 add hl,bc 2ec3 3ee5 ld a,0e5h 2ec4 2ec5 3ea0 ld a,0a0h 2ec7 95 sub l 2ec8 6f ld l,a 2ec9 3eff ld a,0ffh 2ecb 9c sbc a,h 2ecc 67 ld h,a 2ecd 3803 jr c,2ed2h 2ecf 39 add hl,sp 2ed0 e1 pop hl 2ed1 d8 ret c 2ed2 110c00 ld de,000ch 2ed5 c35222 jp 2252h 2ed8 c0 ret nz 2ed9 2a8e48 ld hl,(488eh) 2edc af xor a 2edd c3913d jp 3d91h 2ee0 23 inc hl 2ee1 22d849 ld (49d8h),hl 2ee4 2a8e48 ld hl,(488eh) 2ee7 2b dec hl 2ee8 22cf49 ld (49cfh),hl 2eeb 2a1f49 ld hl,(491fh) 2eee 22c349 ld (49c3h),hl 2ef1 af xor a 2ef2 cd1e2f call 2f1eh 2ef5 2ad849 ld hl,(49d8h) 2ef8 22da49 ld (49dah),hl 2efb 22dc49 ld (49dch),hl 2efe c1 pop bc 2eff 2a9548 ld hl,(4895h) 2f02 f9 ld sp,hl 2f03 212349 ld hl,4923h 2f06 222149 ld (4921h),hl 2f09 cd143c call 3c14h 2f0c af xor a 2f0d 6f ld l,a 2f0e 67 ld h,a 2f0f 22d649 ld (49d6h),hl 2f12 32cd49 ld (49cdh),a 2f15 22e049 ld (49e0h),hl 2f18 e5 push hl 2f19 c5 push bc 2f1a 2acf49 ld hl,(49cfh) ---------------------------------- RETURN ---------------------------------- 2f1d c9 ret 2f1e eb ex de,hl 2f1f 2a8e48 ld hl,(488eh) 2f22 280e jr z,2f32h 2f24 eb ex de,hl 2f25 cd6c25 call 256ch 2f28 e5 push hl 2f29 cd4723 call 2347h 2f2c 60 ld h,b 2f2d 69 ld l,c 2f2e d1 pop de 2f2f d2d125 jp nc,25d1h 2f32 2b dec hl 2f33 22de49 ld (49deh),hl 2f36 eb ex de,hl 2f37 c9 ret ---------------------------------- STOP ---------------------------------- 2f38 c0 ret nz 2f39 f6c0 or 0c0h ---------------------------------- END ---------------------------------- 2f3a c0 ret nz 2f3b 22cf49 ld (49cfh),hl 2f3e 21f6ff ld hl,0fff6h 2f41 c1 pop bc 2f42 2a8c48 ld hl,(488ch) 2f45 f5 push af 2f46 7d ld a,l 2f47 a4 and h 2f48 3c inc a 2f49 2809 jr z,2f54h --- 2f4b 22d449 ld (49d4h),hl | 2f4e 2acf49 ld hl,(49cfh) | 2f51 22d649 ld (49d6h),hl | 2f54 cd143c call 3c14h <-- 2f57 cd403c call 3c40h 2f5a f1 pop af 2f5b 216317 ld hl,1763h 2f5e f5 push af 2f5f 3a9048 ld a,(4890h) 2f62 b7 or a 2f63 2803 jr z,2f68h 2f65 216a17 ld hl,176ah 2f68 f1 pop af 2f69 c27822 jp nz,2278h 2f6c c38d22 jp 228dh ---------------------------------- CONT ---------------------------------- 2f6f 2ad649 ld hl,(49d6h) 2f72 7c ld a,h 2f73 b5 or l 2f74 112000 ld de,0020h 2f77 ca5222 jp z,2252h 2f7a ed5bd449 ld de,(49d4h) 2f7e ed538c48 ld (488ch),de 2f82 c9 ret 2f83 c36725 jp 2567h 2f86 3e01 ld a,01h 2f88 32cd49 ld (49cdh),a 2f8b cdda38 call 38dah 2f8e e5 push hl 2f8f 32cd49 ld (49cdh),a 2f92 60 ld h,b 2f93 69 ld l,c 2f94 0b dec bc 2f95 0b dec bc 2f96 0b dec bc 2f97 0b dec bc 2f98 7e ld a,(hl) 2f99 fe41 cp 41h 2f9b d8 ret c 2f9c fe5b cp 5bh 2f9e 3f ccf 2f9f c9 ret ---------------------------------- CLEAR ---------------------------------- 2fa0 cae82e jp z,2ee8h 2fa3 cd4b25 call 254bh 2fa6 2b dec hl 2fa7 d7 rst 10h 2fa8 e5 push hl 2fa9 2a1f49 ld hl,(491fh) 2fac 2811 jr z,2fbfh 2fae e1 pop hl 2faf cf rst 08h 2fb0 2c inc l 2fb1 d5 push de 2fb2 cd4d28 call 284dh 2fb5 cd5225 call 2552h 2fb8 2b dec hl 2fb9 d7 rst 10h 2fba c23822 jp nz,2238h 2fbd e3 ex (sp),hl 2fbe eb ex de,hl 2fbf cddd2f call 2fddh 2fc2 dad22e jp c,2ed2h 2fc5 e5 push hl 2fc6 2ad849 ld hl,(49d8h) 2fc9 012800 ld bc,0028h 2fcc 09 add hl,bc 2fcd e7 rst 20h 2fce d2d22e jp nc,2ed2h 2fd1 eb ex de,hl 2fd2 229548 ld (4895h),hl ---------------------------------- NEXT ---------------------------------- 2fd4 48 2fd5 e1 pop hl 2fd6 221f49 ld (491fh),hl 2fd9 e1 pop hl 2fda c3e82e jp 2ee8h 2fdd 7d ld a,l 2fde 93 sub e 2fdf 5f ld e,a 2fe0 7c ld a,h 2fe1 9a sbc a,d 2fe2 57 ld d,a 2fe3 c9 ret 2fe4 110000 ld de,0000h 2fe7 c4da38 call nz,38dah 2fea 22cf49 ld (49cfh),hl 2fed cd1922 call 2219h 2ff0 c23e22 jp nz,223eh 2ff3 f9 ld sp,hl 2ff4 d5 push de 2ff5 7e ld a,(hl) 2ff6 f5 push af 2ff7 23 inc hl 2ff8 d5 push de 2ff9 cdcf05 call 05cfh 2ffc e3 ex (sp),hl 2ffd e5 push hl 2ffe cd02ce call 0ce02h 3001 e1 pop hl 3002 cde905 call 05e9h 3005 e1 pop hl 3006 cde005 call 05e0h 3009 e5 push hl 300a cd0a06 call 060ah 300d e1 pop hl 300e c1 pop bc 300f 90 sub b 3010 cde005 call 05e0h 3013 2809 jr z,301eh 3015 eb ex de,hl 3016 228c48 ld (488ch),hl 3019 69 ld l,c 301a 60 ld h,b 301b c3e624 jp 24e6h 301e f9 ld sp,hl 301f 2acf49 ld hl,(49cfh) 3022 7e ld a,(hl) 3023 fe2c cp 2ch 3025 c2ea24 jp nz,24eah 3028 d7 rst 10h 3029 cde72f call 2fe7h 302c 23 inc hl 302d cf rst 08h 302e 221100 ld (0011h),hl 3031 00 nop 3032 0605 ld b,05h 3034 2b dec hl 3035 cdd20f call 0fd2h 3038 380a jr c,3044h 303a eb ex de,hl 303b 29 add hl,hl 303c 29 add hl,hl 303d 29 add hl,hl 303e 29 add hl,hl 303f b5 or l 3040 6f ld l,a 3041 eb ex de,hl 3042 10f1 djnz 3035h 3044 fe22 cp 22h 3046 c23822 jp nz,2238h 3049 d7 rst 10h 304a 0698 ld b,98h 304c e5 push hl 304d af xor a 304e cdaa05 call 05aah 3051 e1 pop hl 3052 c9 ret 3053 00 nop 3054 00 nop 3055 00 nop 3056 00 nop 3057 00 nop ---------------------------------- RENUM ---------------------------------- 3058 010a00 ld bc,000ah 305b c5 push bc 305c 50 ld d,b 305d 58 ld e,b 305e 2826 jr z,3086h 3060 fe2c cp 2ch 3062 2809 jr z,306dh 3064 d5 push de 3065 cd6c25 call 256ch 3068 42 ld b,d 3069 4b ld c,e 306a d1 pop de 306b 2819 jr z,3086h 306d cf rst 08h 306e 2c inc l 306f cd6c25 call 256ch 3072 2812 jr z,3086h 3074 f1 pop af 3075 cf rst 08h 3076 2c inc l 3077 d5 push de 3078 cd6c25 call 256ch 307b c23822 jp nz,2238h 307e 7a ld a,d 307f b3 or e 3080 ca6725 jp z,2567h 3083 eb ex de,hl 3084 e3 ex (sp),hl 3085 eb ex de,hl 3086 c5 push bc 3087 cd4723 call 2347h 308a d1 pop de 308b d5 push de 308c c5 push bc 308d cd4723 call 2347h 3090 60 ld h,b 3091 69 ld l,c 3092 d1 pop de 3093 e7 rst 20h 3094 eb ex de,hl 3095 da6725 jp c,2567h 3098 d1 pop de 3099 c1 pop bc 309a f1 pop af 309b e5 push hl 309c d5 push de 309d 180e jr 30adh 309f 09 add hl,bc 30a0 da6725 jp c,2567h 30a3 eb ex de,hl 30a4 e5 push hl 30a5 21f9ff ld hl,0fff9h 30a8 e7 rst 20h 30a9 e1 pop hl 30aa da6725 jp c,2567h 30ad d5 push de 30ae 5e ld e,(hl) 30af 7b ld a,e 30b0 23 inc hl 30b1 56 ld d,(hl) 30b2 b2 or d 30b3 eb ex de,hl 30b4 d1 pop de 30b5 2807 jr z,30beh 30b7 7e ld a,(hl) 30b8 23 inc hl 30b9 b6 or (hl) 30ba 2b dec hl 30bb eb ex de,hl 30bc 20e1 jr nz,309fh 30be c5 push bc 30bf cddf30 call 30dfh 30c2 c1 pop bc 30c3 d1 pop de 30c4 e1 pop hl 30c5 d5 push de 30c6 5e ld e,(hl) 30c7 7b ld a,e 30c8 23 inc hl 30c9 56 ld d,(hl) 30ca b2 or d 30cb 280d jr z,30dah 30cd eb ex de,hl 30ce e3 ex (sp),hl 30cf eb ex de,hl 30d0 23 inc hl 30d1 73 ld (hl),e 30d2 23 inc hl 30d3 72 ld (hl),d 30d4 eb ex de,hl 30d5 09 add hl,bc 30d6 eb ex de,hl 30d7 e1 pop hl 30d8 18eb jr 30c5h 30da 018c22 ld bc,228ch 30dd c5 push bc 30de fef6 cp 0f6h 30e0 af xor a 30e1 32d149 ld (49d1h),a 30e4 2a8e48 ld hl,(488eh) 30e7 2b dec hl 30e8 23 inc hl 30e9 7e ld a,(hl) 30ea 23 inc hl 30eb b6 or (hl) 30ec c8 ret z 30ed 23 inc hl 30ee 5e ld e,(hl) 30ef 23 inc hl 30f0 56 ld d,(hl) 30f1 d7 rst 10h 30f2 b7 or a 30f3 28f3 jr z,30e8h 30f5 4f ld c,a 30f6 3ad149 ld a,(49d1h) 30f9 b7 or a 30fa 79 ld a,c 30fb 2845 jr z,3142h 30fd fe0e cp 0eh 30ff 20f0 jr nz,30f1h 3101 d5 push de 3102 23 inc hl 3103 5e ld e,(hl) 3104 23 inc hl 3105 56 ld d,(hl) 3106 23 inc hl 3107 e5 push hl 3108 cd4723 call 2347h 310b 0b dec bc 310c 3e0d ld a,0dh 310e 384e jr c,315eh 3110 cd403c call 3c40h 3113 21e816 ld hl,16e8h 3116 3a9048 ld a,(4890h) 3119 b7 or a 311a 2803 jr z,311fh 311c 21ef16 ld hl,16efh 311f d5 push de 3120 cdaa36 call 36aah 3123 e1 pop hl 3124 cd2607 call 0726h 3127 21f516 ld hl,16f5h 312a 3a9048 ld a,(4890h) 312d b7 or a 312e 2803 jr z,3133h 3130 210217 ld hl,1702h 3133 cdaa36 call 36aah 3136 c1 pop bc 3137 e1 pop hl 3138 e5 push hl 3139 c5 push bc 313a cd1507 call 0715h 313d e1 pop hl 313e d1 pop de 313f 2b dec hl 3140 18af jr 30f1h 3142 fe0e cp 0eh 3144 2004 jr nz,314ah 3146 23 inc hl 3147 23 inc hl 3148 18f6 jr 3140h 314a fe0d cp 0dh 314c 20f2 jr nz,3140h 314e d5 push de 314f 23 inc hl 3150 5e ld e,(hl) 3151 23 inc hl 3152 56 ld d,(hl) 3153 23 inc hl 3154 e5 push hl 3155 eb ex de,hl 3156 23 inc hl 3157 23 inc hl 3158 23 inc hl 3159 4e ld c,(hl) 315a 23 inc hl 315b 46 ld b,(hl) 315c 3e0e ld a,0eh 315e 213d31 ld hl,313dh 3161 e5 push hl 3162 2a1d49 ld hl,(491dh) 3165 e5 push hl 3166 2b dec hl 3167 70 ld (hl),b 3168 2b dec hl 3169 71 ld (hl),c 316a 2b dec hl 316b 77 ld (hl),a 316c e1 pop hl ---------------------------------- AUTO ---------------------------------- 316d c9 ret 316e 110a00 ld de,000ah 3171 d5 push de 3172 2821 jr z,3195h 3174 cd6c25 call 256ch 3177 08 ex af,af' 3178 7a ld a,d 3179 b3 or e 317a ca3822 jp z,2238h 317d c1 pop bc 317e d5 push de 317f 08 ex af,af' 3180 2813 jr z,3195h 3182 cf rst 08h 3183 2c inc l 3184 cd6c25 call 256ch 3187 08 ex af,af' 3188 7a ld a,d 3189 b3 or e 318a ca3822 jp z,2238h 318d 08 ex af,af' 318e c23822 jp nz,2238h 3191 ed538748 ld (4887h),de 3195 d1 pop de 3196 ed538548 ld (4885h),de 319a 3e01 ld a,01h 319c 328448 ld (4884h),a 319f c1 pop bc 31a0 c39922 jp 2299h ---------------------------------- LLIST ---------------------------------- 31a3 3e01 ld a,01h 31a5 326f48 ld (486fh),a ---------------------------------- LIST ---------------------------------- 31a8 cdb131 call 31b1h 31ab cde431 call 31e4h 31ae c38c22 jp 228ch 31b1 110000 ld de,0000h 31b4 2b dec hl 31b5 d7 rst 10h 31b6 2805 jr z,31bdh 31b8 fe2c cp 2ch 31ba c46c25 call nz,256ch 31bd ed53cf49 ld (49cfh),de 31c1 e5 push hl 31c2 cd4723 call 2347h 31c5 e1 pop hl 31c6 c5 push bc 31c7 2b dec hl 31c8 d7 rst 10h 31c9 2810 jr z,31dbh 31cb fe2c cp 2ch 31cd c23822 jp nz,2238h 31d0 23 inc hl 31d1 cd6c25 call 256ch 31d4 c23822 jp nz,2238h 31d7 7a ld a,d 31d8 b3 or e 31d9 2003 jr nz,31deh 31db 11ffff ld de,0ffffh 31de ed530e48 ld (480eh),de 31e2 d1 pop de 31e3 c9 ret 31e4 3e01 ld a,01h 31e6 327148 ld (4871h),a 31e9 eb ex de,hl 31ea 4e ld c,(hl) 31eb 23 inc hl 31ec 46 ld b,(hl) 31ed 23 inc hl 31ee 78 ld a,b 31ef b1 or c 31f0 c8 ret z 31f1 cd773c call 3c77h 31f4 fe04 cp 04h 31f6 2011 jr nz,3209h 31f8 e5 push hl 31f9 cda702 call 02a7h scrutation clavier 31fc b7 or a 31fd 20fa jr nz,31f9h 31ff cd773c call 3c77h 3202 cda702 call 02a7h scrutation clavier 3205 b7 or a 3206 28f7 jr z,31ffh 3208 e1 pop hl 3209 5e ld e,(hl) 320a 23 inc hl 320b 56 ld d,(hl) 320c e5 push hl 320d 2a0e48 ld hl,(480eh) 3210 e7 rst 20h 3211 e1 pop hl 3212 3f ccf 3213 d0 ret nc 3214 ed530948 ld (4809h),de 3218 23 inc hl 3219 e5 push hl 321a eb ex de,hl 321b cd2607 call 0726h 321e 3e20 ld a,20h 3220 e1 pop hl 3221 220b48 ld (480bh),hl 3224 df rst 18h 3225 2a0b48 ld hl,(480bh) 3228 ed430b48 ld (480bh),bc 322c 3edf ld a,0dfh 322e 7e ld a,(hl) 322f 23 inc hl 3230 fe0e cp 0eh 3232 2012 jr nz,3246h 3234 3e20 ld a,20h 3236 df rst 18h 3237 7e ld a,(hl) 3238 23 inc hl 3239 08 ex af,af' 323a 7e ld a,(hl) 323b 23 inc hl 323c e5 push hl 323d 67 ld h,a 323e 08 ex af,af' 323f 6f ld l,a 3240 cd2607 call 0726h 3243 e1 pop hl 3244 18e8 jr 322eh 3246 b7 or a 3247 2825 jr z,326eh 3249 f22d32 jp p,322dh 324c d67f sub 7fh 324e 4f ld c,a 324f 119e20 ld de,209eh 3252 fe0f cp 0fh 3254 2004 jr nz,325ah 3256 dd360801 ld (ix+08h),01h 325a 1a ld a,(de) 325b 13 inc de 325c b7 or a 325d f25a32 jp p,325ah 3260 0d dec c 3261 20f7 jr nz,325ah 3263 e67f and 7fh 3265 df rst 18h 3266 1a ld a,(de) 3267 13 inc de 3268 b7 or a 3269 f26332 jp p,3263h 326c 18c0 jr 322eh 326e dd360800 ld (ix+08h),00h 3272 cd573c call 3c57h 3275 c3ea31 jp 31eah ---------------------------------- Communications avec l'ecran ---------------------------------- 3278 ddcb03f6 set 6,(ix+03h) 327c ddcb0446 bit 0,(ix+04h) 3280 ddcb03e6 set 4,(ix+03h) 3284 2804 jr z,328ah -- 3286 ddcb03a6 res 4,(ix+03h) | 328a cdc535 call 35c5h <-- 328d 3e7f ld a,7fh 328f c3c03d jp 3dc0h 3292 cd850d call 0d85h definition d'un caractere 3295 3ee6 ld a,0e6h 3297 dd7709 ld (ix+09h),a 329a cd5502 call 0255h efface l'ecran et initialise couleurs 329d 210100 ld hl,0001h 32a0 220548 ld (4805h),hl 32a3 dd360101 ld (ix+01h),01h 32a7 dd360001 ld (ix+00h),01h 32ab 76 halt 32ac c9 ret 32ad d9 exx 32ae f5 push af 32af cda702 call 02a7h scrutation clavier 32b2 b7 or a 32b3 c1 pop bc 32b4 78 ld a,b 32b5 d9 exx 32b6 c9 ret ---------------------------------- Scrutation rapide du clavier ---------------------------------- 32b7 d9 exx 32b8 cda702 call 02a7h scrutation clavier 32bb 301d jr nc,32dah 32bd 6f ld l,a 32be ddcb077e bit 7,(ix+07h) 32c2 dd7e06 ld a,(ix+06h) 32c5 c2cd32 jp nz,32cdh 32c8 fe80 cp 80h 32ca c3cf32 jp 32cfh 32cd fe08 cp 08h 32cf da1633 jp c,3316h 32d2 dd360780 ld (ix+07h),80h 32d6 7d ld a,l 32d7 c3de32 jp 32deh 32da dd360700 ld (ix+07h),00h 32de dd360600 ld (ix+06h),00h 32e2 fe01 cp 01h 32e4 201e jr nz,3304h 32e6 ddcb0446 bit 0,(ix+04h) 32ea 280a jr z,32f6h 32ec ddcb0486 res 0,(ix+04h) 32f0 ddcb03e6 set 4,(ix+03h) 32f4 1808 jr 32feh 32f6 ddcb04c6 set 0,(ix+04h) 32fa ddcb03a6 res 4,(ix+03h) 32fe dd360101 ld (ix+01h),01h 3302 1812 jr 3316h 3304 ddcb0446 bit 0,(ix+04h) 3308 280d jr z,3317h 330a fe61 cp 61h 330c 3809 jr c,3317h 330e fe7b cp 7bh 3310 3005 jr nc,3317h 3312 cbaf res 5,a 3314 1801 jr 3317h 3316 af xor a 3317 b7 or a 3318 d9 exx 3319 c9 ret 331a d9 exx 331b f5 push af 331c 21c533 ld hl,33c5h 331f e5 push hl 3320 fe80 cp 80h 3322 3808 jr c,332ch 3324 fea0 cp 0a0h 3326 3032 jr nc,335ah 3328 e67f and 7fh 332a 1810 jr 333ch 332c fe20 cp 20h 332e 302a jr nc,335ah 3330 ddcb0a7e bit 7,(ix+0ah) 3334 2006 jr nz,333ch 3336 ddcb087e bit 7,(ix+08h) 333a 201e jr nz,335ah 333c 1600 ld d,00h 333e f5 push af 333f 5f ld e,a 3340 87 add a,a 3341 83 add a,e 3342 5f ld e,a 3343 216233 ld hl,3362h 3346 19 add hl,de 3347 f1 pop af 3348 e9 jp (hl) 3349 3eff ld a,0ffh 334b 213e0d ld hl,0d3eh 334e 213e08 ld hl,083eh 3351 213e04 ld hl,043eh 3354 213e1f ld hl,1f3eh 3357 213e03 ld hl,033eh 335a e1 pop hl 335b 21cd33 ld hl,33cdh 335e e5 push hl 335f c3fc01 jp 01fch 3362 c3f335 jp 35f3h 3365 c3f335 jp 35f3h 3368 c35a34 jp 345ah 336b c3d433 jp 33d4h 336e c3b334 jp 34b3h 3371 c3e234 jp 34e2h 3374 c37f35 jp 357fh 3377 c34234 jp 3442h 337a c32b34 jp 342bh 337d c30e34 jp 340eh 3380 c3f033 jp 33f0h 3383 c3f335 jp 35f3h 3386 c39d32 jp 329dh 3389 c3d433 jp 33d4h 338c c3e635 jp 35e6h 338f c3c535 jp 35c5h 3392 c34933 jp 3349h 3395 c34c33 jp 334ch 3398 c35a33 jp 335ah 339b c34f33 jp 334fh 339e c35a33 jp 335ah 33a1 c35a33 jp 335ah 33a4 c35a33 jp 335ah 33a7 c35a33 jp 335ah 33aa c35233 jp 3352h 33ad c35a33 jp 335ah 33b0 c35533 jp 3355h 33b3 c35a33 jp 335ah 33b6 c35833 jp 3358h 33b9 c35a33 jp 335ah 33bc c39f35 jp 359fh 33bf dd7e09 ld a,(ix+09h) 33c2 c39732 jp 3297h 33c5 3a7148 ld a,(4871h) 33c8 cb97 res 2,a 33ca 327148 ld (4871h),a 33cd dd360101 ld (ix+01h),01h 33d1 f1 pop af 33d2 d9 exx 33d3 c9 ret 33d4 2a0548 ld hl,(4805h) 33d7 3e01 ld a,01h 33d9 bd cp l 33da 200f jr nz,33ebh 33dc 3a7148 ld a,(4871h) 33df cb57 bit 2,a 33e1 2808 jr z,33ebh 33e3 cd9102 call 0291h 33e6 2b dec hl 33e7 2b dec hl 33e8 3680 ld (hl),80h 33ea c9 ret 33eb 2e01 ld l,01h 33ed 220548 ld (4805h),hl 33f0 2a0548 ld hl,(4805h) 33f3 7c ld a,h 33f4 fe18 cp 18h 33f6 3811 jr c,3409h 33f8 3a7148 ld a,(4871h) 33fb cb7f bit 7,a 33fd 200e jr nz,340dh 33ff cdad35 call 35adh 3402 3e18 ld a,18h 3404 cd6502 call 0265h efface ligne et initialise couleurs 3407 1804 jr 340dh 3409 24 inc h 340a 220548 ld (4805h),hl 340d c9 ret 340e 2a0548 ld hl,(4805h) 3411 7c ld a,h 3412 b7 or a 3413 2011 jr nz,3426h 3415 3a7148 ld a,(4871h) 3418 cb7f bit 7,a 341a 200e jr nz,342ah 341c cdb935 call 35b9h 341f 3e00 ld a,00h 3421 cd6502 call 0265h efface ligne et initialise couleurs 3424 1804 jr 342ah 3426 25 dec h 3427 220548 ld (4805h),hl 342a c9 ret 342b 2a0548 ld hl,(4805h) 342e 7d ld a,l 342f fe02 cp 02h 3431 3805 jr c,3438h 3433 2d dec l 3434 220548 ld (4805h),hl 3437 c9 ret 3438 7c ld a,h 3439 b7 or a 343a c8 ret z 343b cd0e34 call 340eh 343e 2e27 ld l,27h 3440 18f2 jr 3434h 3442 2a0548 ld hl,(4805h) 3445 7d ld a,l 3446 fe27 cp 27h 3448 3005 jr nc,344fh 344a 2c inc l 344b 220548 ld (4805h),hl 344e c9 ret 344f 7c ld a,h 3450 fe18 cp 18h 3452 d0 ret nc 3453 cdf033 call 33f0h 3456 2e01 ld l,01h 3458 18f1 jr 344bh 345a 2a0548 ld hl,(4805h) 345d 3e01 ld a,01h 345f bd cp l 3460 d29334 jp nc,3493h 3463 e5 push hl 3464 cd9102 call 0291h 3467 c1 pop bc 3468 54 ld d,h 3469 5d ld e,l 346a 1b dec de 346b 1b dec de 346c 3e28 ld a,28h 346e 91 sub c 346f 87 add a,a 3470 4f ld c,a 3471 0600 ld b,00h 3473 edb0 ldir 3475 7e ld a,(hl) 3476 fe84 cp 84h 3478 2b dec hl 3479 2b dec hl 347a 2029 jr nz,34a5h 347c 23 inc hl 347d 23 inc hl 347e 23 inc hl 347f 23 inc hl 3480 7e ld a,(hl) 3481 2b dec hl 3482 2b dec hl 3483 2b dec hl 3484 2b dec hl 3485 77 ld (hl),a 3486 23 inc hl 3487 23 inc hl 3488 23 inc hl 3489 23 inc hl 348a 54 ld d,h 348b 5d ld e,l 348c 23 inc hl 348d 23 inc hl 348e 014c00 ld bc,004ch 3491 18e0 jr 3473h 3493 7c ld a,h 3494 b7 or a 3495 c8 ret z 3496 2b dec hl 3497 cd7835 call 3578h 349a c0 ret nz 349b 18e1 jr 347eh 349d c22d2b jp nz,2b2dh 34a0 3e06 ld a,06h 34a2 c3232b jp 2b23h 34a5 3e20 ld a,20h 34a7 ddcb087e bit 7,(ix+08h) 34ab 2801 jr z,34aeh 34ad af xor a 34ae 77 ld (hl),a 34af cd2b34 call 342bh 34b2 c9 ret 34b3 2a0548 ld hl,(4805h) 34b6 e5 push hl 34b7 3e28 ld a,28h 34b9 95 sub l 34ba f5 push af 34bb cd9102 call 0291h 34be c1 pop bc 34bf dd5e08 ld e,(ix+08h) 34c2 3e20 ld a,20h 34c4 cb7b bit 7,e 34c6 2801 jr z,34c9h 34c8 af xor a 34c9 77 ld (hl),a 34ca 23 inc hl 34cb 73 ld (hl),e 34cc 23 inc hl 34cd 10fa djnz 34c9h 34cf e1 pop hl 34d0 2e00 ld l,00h 34d2 24 inc h 34d3 e5 push hl 34d4 cd7835 call 3578h 34d7 e1 pop hl 34d8 2007 jr nz,34e1h 34da 7c ld a,h 34db e5 push hl 34dc cd6502 call 0265h efface ligne et initialise couleurs 34df 18ee jr 34cfh 34e1 c9 ret 34e2 2a0548 ld hl,(4805h) 34e5 2e00 ld l,00h 34e7 24 inc h 34e8 e5 push hl 34e9 cd7835 call 3578h 34ec eb ex de,hl 34ed e1 pop hl 34ee cae734 jp z,34e7h 34f1 eb ex de,hl 34f2 2b dec hl 34f3 2b dec hl 34f4 7e ld a,(hl) 34f5 15 dec d 34f6 d5 push de 34f7 ddcb087e bit 7,(ix+08h) 34fb 2806 jr z,3503h 34fd b7 or a 34fe ca2835 jp z,3528h 3501 1805 jr 3508h 3503 fe20 cp 20h 3505 ca2835 jp z,3528h 3508 2a0548 ld hl,(4805h) 350b 25 dec h 350c c31f3e jp 3e1fh 350f e5 push hl 3510 ed530548 ld (4805h),de 3514 3e06 ld a,06h 3516 cd1a33 call 331ah 3519 2a0548 ld hl,(4805h) 351c 2e00 ld l,00h 351e cd9102 call 0291h 3521 3e84 ld a,84h 3523 77 ld (hl),a 3524 e1 pop hl 3525 220548 ld (4805h),hl 3528 2a0548 ld hl,(4805h) 352b d1 pop de 352c 7a ld a,d 352d bc cp h 352e ca4f35 jp z,354fh 3531 62 ld h,d 3532 6b ld l,e 3533 15 dec d 3534 d5 push de 3535 cd9102 call 0291h 3538 014c00 ld bc,004ch 353b 09 add hl,bc 353c 23 inc hl 353d 54 ld d,h 353e 5d ld e,l 353f 13 inc de 3540 13 inc de 3541 edb8 lddr 3543 2b dec hl 3544 2b dec hl 3545 2b dec hl 3546 7e ld a,(hl) 3547 23 inc hl 3548 23 inc hl 3549 23 inc hl 354a 23 inc hl 354b 77 ld (hl),a 354c c32835 jp 3528h 354f 2a0548 ld hl,(4805h) 3552 e5 push hl 3553 2e26 ld l,26h 3555 cd9102 call 0291h 3558 c1 pop bc 3559 54 ld d,h 355a 5d ld e,l 355b 13 inc de 355c 13 inc de 355d 3e27 ld a,27h 355f 91 sub c 3560 2806 jr z,3568h 3562 87 add a,a 3563 4f ld c,a 3564 0600 ld b,00h 3566 edb8 lddr 3568 3e20 ld a,20h 356a ddcb087e bit 7,(ix+08h) 356e 2801 jr z,3571h 3570 af xor a 3571 cdfc01 call 01fch 3574 cd2b34 call 342bh 3577 c9 ret 3578 cd9102 call 0291h 357b 7e ld a,(hl) 357c fe84 cp 84h 357e c9 ret 357f 2a0548 ld hl,(4805h) 3582 7c ld a,h 3583 b7 or a 3584 2812 jr z,3598h 3586 2e00 ld l,00h 3588 cd9102 call 0291h 358b 110040 ld de,4000h 358e b7 or a 358f ed52 sbc hl,de 3591 4d ld c,l 3592 44 ld b,h 3593 215040 ld hl,4050h 3596 edb0 ldir 3598 3a0648 ld a,(4806h) 359b cd6502 call 0265h efface ligne et initialise couleurs 359e c9 ret 359f 3a0648 ld a,(4806h) 35a2 f5 push af 35a3 cd6502 call 0265h efface ligne et initialise couleurs 35a6 f1 pop af 35a7 3c inc a 35a8 fe19 cp 19h 35aa 38f6 jr c,35a2h 35ac c9 ret 35ad 215040 ld hl,4050h 35b0 110040 ld de,4000h 35b3 018007 ld bc,0780h 35b6 edb0 ldir 35b8 c9 ret 35b9 218047 ld hl,4780h 35bc 11d047 ld de,47d0h 35bf 018007 ld bc,0780h 35c2 edb8 lddr 35c4 c9 ret --------------------------------------- --------------------------------------- 35c5 3a7148 ld a,(4871h) 35c8 e67d and 7dh 35ca 327148 ld (4871h),a 35cd dd360a00 ld (ix+0ah),00h 35d1 dd360800 ld (ix+08h),00h 35d5 dd360101 ld (ix+01h),01h 35d9 dd36020a ld (ix+02h),0ah 35dd ddcb03be res 7,(ix+03h) 35e1 ddcb03f6 set 6,(ix+03h) 35e5 c9 ret 35e6 117d00 ld de,007dh 35e9 214428 ld hl,2844h 35ec 220e48 ld (480eh),hl 35ef cda70c call 0ca7h 35f2 d9 exx 35f3 c9 ret ---------------------------------- Definition de caracteres ---------------------------------- 35f4 0010387cfe7c38100000 "carreau" 35fe 00000000002400000000 ".." 3608 00 ---------------------------------- Traitement des chaînes ---------------------------------- 3609 d5 push de 360a cdd137 call 37d1h 360d 7e ld a,(hl) 360e 23 inc hl 360f 23 inc hl 3610 4e ld c,(hl) 3611 23 inc hl 3612 46 ld b,(hl) 3613 d1 pop de 3614 c5 push bc 3615 f5 push af 3616 cdd537 call 37d5h 3619 cde005 call 05e0h 361c f1 pop af 361d 57 ld d,a 361e e1 pop hl 361f 7b ld a,e 3620 b2 or d 3621 c8 ret z 3622 7a ld a,d 3623 d601 sub 01h 3625 d8 ret c 3626 af xor a 3627 bb cp e 3628 3c inc a 3629 d0 ret nc 362a 15 dec d 362b 1d dec e 362c 0a ld a,(bc) 362d 03 inc bc 362e be cp (hl) 362f 23 inc hl 3630 28ed jr z,361fh 3632 3f ccf 3633 c3a005 jp 05a0h ---------------------------------- STR$ ---------------------------------- 3636 cd5028 call 2850h 3639 cd3107 call 0731h 363c cd6c36 call 366ch 363f cdd137 call 37d1h 3642 012538 ld bc,3825h 3645 c5 push bc 3646 7e ld a,(hl) 3647 23 inc hl 3648 23 inc hl 3649 e5 push hl 364a cdbb36 call 36bbh 364d e1 pop hl 364e 4e ld c,(hl) 364f 23 inc hl 3650 46 ld b,(hl) 3651 cd6036 call 3660h 3654 e5 push hl 3655 6f ld l,a 3656 cdc537 call 37c5h 3659 d1 pop de 365a c9 ret 365b 3e01 ld a,01h 365d cdbb36 call 36bbh --------------------------------------- --------------------------------------- 3660 219b49 ld hl,499bh 3663 e5 push hl 3664 77 ld (hl),a 3665 23 inc hl 3666 23 inc hl 3667 73 ld (hl),e 3668 23 inc hl 3669 72 ld (hl),d 366a e1 pop hl 366b c9 ret -------------------------------------- -------------------------------------- 366c 2b dec hl 366d 0622 ld b,22h 366f 50 ld d,b 3670 e5 push hl 3671 0eff ld c,0ffh 3673 23 inc hl <-- 3674 7e ld a,(hl) | 3675 0c inc c | 3676 b7 or a | 3677 2806 jr z,367fh --|-- 3679 ba cp d | | 367a 2803 jr z,367fh --|->| 367c b8 cp b | | 367d 20f4 jr nz,3673h - | 367f fe22 cp 22h <---- 3681 cc2725 call z,2527h 3684 e3 ex (sp),hl 3685 23 inc hl 3686 eb ex de,hl 3687 79 ld a,c 3688 cd6036 call 3660h 368b 119b49 ld de,499bh 368e 2a2149 ld hl,(4921h) 3691 22e649 ld (49e6h),hl 3694 3e01 ld a,01h 3696 321b49 ld (491bh),a 3699 cdec05 call 05ech 369c e7 rst 20h 369d 222149 ld (4921h),hl 36a0 e1 pop hl 36a1 7e ld a,(hl) 36a2 c0 ret nz 36a3 111e00 ld de,001eh 36a6 c35222 jp 2252h 36a9 23 inc hl --------------------------------------- --------------------------------------- 36aa cd6c36 call 366ch 36ad cdd137 call 37d1h 36b0 cde005 call 05e0h 36b3 1c inc e 36b4 1d dec e <-- 36b5 c8 ret z | | 36b6 0a ld a,(bc) | 36b7 df rst 18h | 36b8 03 inc bc | 36b9 18f9 jr 36b4h -- --------------------------------------- --------------------------------------- 36bb b7 or a 36bc 0ef1 ld c,0f1h 36be f5 push af 36bf 2a9548 ld hl,(4895h) 36c2 eb ex de,hl 36c3 2ac349 ld hl,(49c3h) 36c6 2f cpl 36c7 4f ld c,a 36c8 06ff ld b,0ffh 36ca 09 add hl,bc 36cb 23 inc hl 36cc e7 rst 20h 36cd 3807 jr c,36d6h 36cf 22c349 ld (49c3h),hl 36d2 23 inc hl 36d3 eb ex de,hl 36d4 f1 pop af 36d5 c9 ret 36d6 f1 pop af 36d7 111a00 ld de,001ah 36da ca5222 jp z,2252h 36dd bf cp a 36de f5 push af 36df 01bd36 ld bc,36bdh 36e2 c5 push bc 36e3 2a1f49 ld hl,(491fh) 36e6 22c349 ld (49c3h),hl 36e9 210000 ld hl,0000h 36ec e5 push hl 36ed 2adc49 ld hl,(49dch) 36f0 e5 push hl 36f1 212349 ld hl,4923h 36f4 ed5b2149 ld de,(4921h) 36f8 e7 rst 20h 36f9 01f436 ld bc,36f4h 36fc c23a37 jp nz,373ah 36ff 2ad849 ld hl,(49d8h) 3702 ed5bda49 ld de,(49dah) 3706 e7 rst 20h 3707 280a jr z,3713h 3709 23 inc hl 370a 7e ld a,(hl) 370b 23 inc hl 370c b7 or a 370d cd3d37 call 373dh 3710 18f0 jr 3702h 3712 c1 pop bc 3713 ed5bdc49 ld de,(49dch) 3717 e7 rst 20h 3718 ca5f37 jp z,375fh 371b cde005 call 05e0h 371e 7a ld a,d 371f e5 push hl 3720 09 add hl,bc 3721 b7 or a 3722 f21237 jp p,3712h 3725 22c749 ld (49c7h),hl 3728 e1 pop hl 3729 4e ld c,(hl) 372a 0600 ld b,00h 372c 09 add hl,bc 372d 09 add hl,bc 372e 23 inc hl 372f eb ex de,hl 3730 2ac749 ld hl,(49c7h) 3733 eb ex de,hl 3734 e7 rst 20h 3735 28dc jr z,3713h 3737 012f37 ld bc,372fh 373a c5 push bc 373b f680 or 80h 373d 7e ld a,(hl) 373e 23 inc hl 373f 23 inc hl 3740 5e ld e,(hl) 3741 23 inc hl 3742 56 ld d,(hl) 3743 23 inc hl 3744 f0 ret p 3745 b7 or a 3746 c8 ret z 3747 44 ld b,h 3748 4d ld c,l 3749 2ac349 ld hl,(49c3h) 374c e7 rst 20h 374d 60 ld h,b 374e 69 ld l,c 374f d8 ret c 3750 e1 pop hl 3751 e3 ex (sp),hl 3752 e7 rst 20h 3753 e3 ex (sp),hl 3754 e5 push hl 3755 60 ld h,b 3756 69 ld l,c 3757 d0 ret nc 3758 c1 pop bc 3759 f1 pop af 375a f1 pop af 375b e5 push hl 375c d5 push de 375d c5 push bc 375e c9 ret 375f d1 pop de 3760 e1 pop hl 3761 7c ld a,h 3762 b5 or l 3763 c8 ret z 3764 2b dec hl 3765 46 ld b,(hl) 3766 2b dec hl 3767 4e ld c,(hl) 3768 e5 push hl 3769 2b dec hl 376a 2b dec hl 376b 6e ld l,(hl) 376c 2600 ld h,00h 376e 09 add hl,bc 376f 50 ld d,b 3770 59 ld e,c 3771 2b dec hl 3772 44 ld b,h 3773 4d ld c,l 3774 2ac349 ld hl,(49c3h) 3777 cdb02e call 2eb0h 377a e1 pop hl 377b 71 ld (hl),c 377c 23 inc hl 377d 70 ld (hl),b 377e 60 ld h,b 377f 69 ld l,c 3780 2b dec hl 3781 c3e636 jp 36e6h 3784 c5 push bc 3785 e5 push hl 3786 2ae649 ld hl,(49e6h) 3789 e3 ex (sp),hl 378a cdd828 call 28d8h 378d e3 ex (sp),hl 378e cd5128 call 2851h 3791 7e ld a,(hl) 3792 e5 push hl 3793 2ae649 ld hl,(49e6h) 3796 e5 push hl 3797 86 add a,(hl) 3798 111c00 ld de,001ch 379b da5222 jp c,2252h 379e cd5d36 call 365dh 37a1 d1 pop de 37a2 cdd537 call 37d5h 37a5 e3 ex (sp),hl 37a6 cdd437 call 37d4h 37a9 e5 push hl 37aa 2a9d49 ld hl,(499dh) 37ad eb ex de,hl 37ae cdbc37 call 37bch 37b1 cdbc37 call 37bch 37b4 216d28 ld hl,286dh 37b7 e3 ex (sp),hl 37b8 e5 push hl 37b9 c38b36 jp 368bh 37bc e1 pop hl 37bd e3 ex (sp),hl 37be 7e ld a,(hl) 37bf 23 inc hl 37c0 23 inc hl 37c1 4e ld c,(hl) 37c2 23 inc hl 37c3 46 ld b,(hl) 37c4 6f ld l,a 37c5 2c inc l 37c6 2d dec l 37c7 c8 ret z 37c8 0a ld a,(bc) 37c9 12 ld (de),a 37ca 03 inc bc 37cb 13 inc de 37cc 18f8 jr 37c6h 37ce cd5128 call 2851h 37d1 2ae649 ld hl,(49e6h) 37d4 eb ex de,hl 37d5 cdec37 call 37ech 37d8 eb ex de,hl 37d9 c0 ret nz 37da d5 push de 37db 50 ld d,b 37dc 59 ld e,c 37dd 1b dec de 37de 4e ld c,(hl) 37df 2ac349 ld hl,(49c3h) 37e2 e7 rst 20h 37e3 2005 jr nz,37eah 37e5 47 ld b,a 37e6 09 add hl,bc 37e7 22c349 ld (49c3h),hl 37ea e1 pop hl 37eb c9 ret 37ec 2a2149 ld hl,(4921h) 37ef 2b dec hl 37f0 46 ld b,(hl) 37f1 2b dec hl 37f2 4e ld c,(hl) 37f3 2b dec hl 37f4 2b dec hl 37f5 e7 rst 20h 37f6 c0 ret nz 37f7 222149 ld (4921h),hl 37fa c9 ret ---------------------------------- LEN ---------------------------------- 37fb 010f2a ld bc,2a0fh 37fe c5 push bc 37ff cdce37 call 37ceh 3802 af xor a 3803 57 ld d,a 3804 321b49 ld (491bh),a 3807 7e ld a,(hl) 3808 b7 or a 3809 c9 ret ---------------------------------- ASC ---------------------------------- 380a 010f2a ld bc,2a0fh 380d c5 push bc 380e cdff37 call 37ffh 3811 ca6725 jp z,2567h 3814 23 inc hl 3815 23 inc hl 3816 5e ld e,(hl) 3817 23 inc hl 3818 56 ld d,(hl) 3819 1a ld a,(de) 381a c9 ret ---------------------------------- CHR$ ---------------------------------- 381b cd5b36 call 365bh 381e cda82a call 2aa8h 3821 2a9d49 ld hl,(499dh) 3824 73 ld (hl),e 3825 c1 pop bc 3826 c38b36 jp 368bh ---------------------------------- LEFT$ ---------------------------------- 3829 cda938 call 38a9h 382c af xor a 382d e3 ex (sp),hl 382e 4f ld c,a 382f e5 push hl 3830 7e ld a,(hl) 3831 b8 cp b 3832 3802 jr c,3836h 3834 78 ld a,b 3835 110e00 ld de,000eh 3838 c5 push bc 3839 cdbb36 call 36bbh 383c c1 pop bc 383d e1 pop hl 383e e5 push hl 383f 23 inc hl 3840 23 inc hl 3841 46 ld b,(hl) 3842 23 inc hl 3843 66 ld h,(hl) 3844 68 ld l,b 3845 0600 ld b,00h 3847 09 add hl,bc 3848 44 ld b,h 3849 4d ld c,l 384a cd6036 call 3660h 384d 6f ld l,a 384e cdc537 call 37c5h 3851 d1 pop de 3852 cdd537 call 37d5h 3855 c38b36 jp 368bh ---------------------------------- RIGHT$ ---------------------------------- 3858 cda938 call 38a9h 385b d1 pop de 385c d5 push de 385d 1a ld a,(de) 385e 90 sub b 385f 18cc jr 382dh ---------------------------------- MID$ ---------------------------------- 3861 eb ex de,hl 3862 7e ld a,(hl) 3863 cdac38 call 38ach 3866 04 inc b 3867 05 dec b 3868 ca6725 jp z,2567h 386b c5 push bc 386c 1eff ld e,0ffh 386e fe29 cp 29h 3870 ca7838 jp z,3878h 3873 cf rst 08h 3874 2c inc l 3875 cda52a call 2aa5h 3878 cf rst 08h 3879 29 add hl,hl 387a f1 pop af 387b e3 ex (sp),hl 387c 012f38 ld bc,382fh 387f c5 push bc 3880 3d dec a 3881 be cp (hl) 3882 0600 ld b,00h 3884 d0 ret nc 3885 4f ld c,a 3886 7e ld a,(hl) 3887 91 sub c 3888 bb cp e 3889 47 ld b,a 388a d8 ret c 388b 43 ld b,e 388c c9 ret 388d cdff37 call 37ffh ---------------------------------- VAL ---------------------------------- 388e 3890 ca7203 jp z,0372h 3893 5f ld e,a 3894 23 inc hl 3895 23 inc hl 3896 7e ld a,(hl) 3897 23 inc hl 3898 66 ld h,(hl) 3899 6f ld l,a 389a e5 push hl 389b 19 add hl,de 389c 46 ld b,(hl) 389d 72 ld (hl),d 389e e3 ex (sp),hl 389f c5 push bc 38a0 2b dec hl 38a1 d7 rst 10h 38a2 cd9206 call 0692h 38a5 c1 pop bc 38a6 e1 pop hl 38a7 70 ld (hl),b 38a8 c9 ret 38a9 eb ex de,hl 38aa cf rst 08h 38ab 29 add hl,hl 38ac c1 pop bc 38ad d1 pop de 38ae c5 push bc 38af 43 ld b,e 38b0 c9 ret ---------------------------------- FRE ---------------------------------- 38b1 2adc49 ld hl,(49dch) 38b4 eb ex de,hl 38b5 210000 ld hl,0000h 38b8 39 add hl,sp 38b9 3a1b49 ld a,(491bh) 38bc b7 or a 38bd caea29 jp z,29eah 38c0 cdd137 call 37d1h 38c3 cde336 call 36e3h 38c6 ed5b9548 ld de,(4895h) 38ca 2ac349 ld hl,(49c3h) 38cd c3ea29 jp 29eah ---------------------------------- Saisie des pointeurs Basic ---------------------------------- 38d0 2b dec hl 38d1 d7 rst 10h 38d2 c8 ret z 38d3 cf rst 08h 38d4 2c inc l 38d5 01d038 ld bc,38d0h 38d8 c5 push bc 38d9 f6af or 0afh 38db 321a49 ld (491ah),a 38de 4e ld c,(hl) 38df cd982f call 2f98h 38e2 da3822 jp c,2238h ---------------------------------- DIM ---------------------------------- 38e5 af xor a 38e6 47 ld b,a 38e7 321b49 ld (491bh),a 38ea d7 rst 10h 38eb 3805 jr c,38f2h 38ed cd992f call 2f99h 38f0 3809 jr c,38fbh 38f2 47 ld b,a 38f3 d7 rst 10h 38f4 38fd jr c,38f3h 38f6 cd992f call 2f99h 38f9 30f8 jr nc,38f3h 38fb d624 sub 24h 38fd 2008 jr nz,3907h 38ff 3c inc a 3900 321b49 ld (491bh),a 3903 0f rrca 3904 80 add a,b 3905 47 ld b,a 3906 d7 rst 10h 3907 3acd49 ld a,(49cdh) 390a 3d dec a 390b caa939 jp z,39a9h 390e f21739 jp p,3917h 3911 7e ld a,(hl) 3912 d628 sub 28h 3914 ca8339 jp z,3983h 3917 af xor a 3918 32cd49 ld (49cdh),a 391b e5 push hl 391c 50 ld d,b 391d 59 ld e,c 391e 2ae049 ld hl,(49e0h) 3921 e7 rst 20h 3922 11e249 ld de,49e2h 3925 cac904 jp z,04c9h 3928 2ada49 ld hl,(49dah) 392b eb ex de,hl 392c 2ad849 ld hl,(49d8h) 392f e7 rst 20h 3930 ca4639 jp z,3946h 3933 79 ld a,c 3934 96 sub (hl) 3935 23 inc hl 3936 c23b39 jp nz,393bh 3939 78 ld a,b 393a 96 sub (hl) 393b 23 inc hl 393c ca7539 jp z,3975h 393f 23 inc hl 3940 23 inc hl 3941 23 inc hl 3942 23 inc hl 3943 c32f39 jp 392fh 3946 e1 pop hl 3947 e3 ex (sp),hl 3948 d5 push de 3949 112729 ld de,2927h 394c e7 rst 20h 394d d1 pop de 394e ca7839 jp z,3978h 3951 e3 ex (sp),hl 3952 e5 push hl 3953 c5 push bc 3954 010600 ld bc,0006h 3957 2adc49 ld hl,(49dch) 395a e5 push hl 395b 09 add hl,bc 395c c1 pop bc 395d e5 push hl 395e cdad2e call 2eadh 3961 e1 pop hl 3962 22dc49 ld (49dch),hl 3965 60 ld h,b 3966 69 ld l,c 3967 22da49 ld (49dah),hl 396a 2b dec hl 396b 3600 ld (hl),00h 396d e7 rst 20h 396e 20fa jr nz,396ah 3970 d1 pop de 3971 73 ld (hl),e 3972 23 inc hl 3973 72 ld (hl),d 3974 23 inc hl 3975 eb ex de,hl 3976 e1 pop hl 3977 c9 ret 3978 32e949 ld (49e9h),a 397b 211322 ld hl,2213h 397e 22e649 ld (49e6h),hl 3981 e1 pop hl 3982 c9 ret 3983 e5 push hl 3984 2a1a49 ld hl,(491ah) 3987 e3 ex (sp),hl 3988 57 ld d,a 3989 d5 push de 398a c5 push bc 398b cd4a25 call 254ah 398e c1 pop bc 398f f1 pop af 3990 eb ex de,hl 3991 e3 ex (sp),hl 3992 e5 push hl 3993 eb ex de,hl 3994 3c inc a 3995 57 ld d,a 3996 7e ld a,(hl) 3997 fe2c cp 2ch 3999 ca8939 jp z,3989h 399c cf rst 08h 399d 29 add hl,hl 399e 22d249 ld (49d2h),hl 39a1 e1 pop hl 39a2 221a49 ld (491ah),hl 39a5 1e00 ld e,00h 39a7 d5 push de 39a8 11e5f5 ld de,0f5e5h 39ab 2ada49 ld hl,(49dah) 39ae 3e19 ld a,19h 39b0 ed5bdc49 ld de,(49dch) 39b4 e7 rst 20h 39b5 2825 jr z,39dch 39b7 7e ld a,(hl) 39b8 23 inc hl 39b9 b9 cp c 39ba 2002 jr nz,39beh 39bc 7e ld a,(hl) 39bd b8 cp b 39be 23 inc hl 39bf 5e ld e,(hl) 39c0 23 inc hl 39c1 56 ld d,(hl) 39c2 23 inc hl 39c3 20ea jr nz,39afh 39c5 3a1a49 ld a,(491ah) 39c8 b7 or a 39c9 c24122 jp nz,2241h 39cc f1 pop af 39cd 44 ld b,h 39ce 4d ld c,l 39cf cac904 jp z,04c9h 39d2 96 sub (hl) 39d3 ca343a jp z,3a34h 39d6 111000 ld de,0010h 39d9 c35222 jp 2252h 39dc 110400 ld de,0004h 39df f1 pop af 39e0 ca6725 jp z,2567h 39e3 71 ld (hl),c 39e4 23 inc hl 39e5 70 ld (hl),b 39e6 23 inc hl 39e7 4f ld c,a 39e8 cdbb2e call 2ebbh 39eb 23 inc hl 39ec 23 inc hl 39ed 22c549 ld (49c5h),hl 39f0 71 ld (hl),c 39f1 23 inc hl 39f2 3a1a49 ld a,(491ah) 39f5 17 rla 39f6 79 ld a,c 39f7 010b00 ld bc,000bh 39fa 3002 jr nc,39feh 39fc c1 pop bc 39fd 03 inc bc 39fe 71 ld (hl),c 39ff f5 push af 3a00 23 inc hl 3a01 70 ld (hl),b 3a02 23 inc hl 3a03 e5 push hl 3a04 cd7906 call 0679h 3a07 eb ex de,hl 3a08 e1 pop hl 3a09 f1 pop af 3a0a 3d dec a 3a0b 20ea jr nz,39f7h 3a0d f5 push af 3a0e 42 ld b,d 3a0f 4b ld c,e 3a10 eb ex de,hl 3a11 19 add hl,de 3a12 dad22e jp c,2ed2h 3a15 cdc42e call 2ec4h 3a18 22dc49 ld (49dch),hl 3a1b 2b dec hl 3a1c 3600 ld (hl),00h 3a1e e7 rst 20h 3a1f 20fa jr nz,3a1bh 3a21 03 inc bc 3a22 57 ld d,a 3a23 2ac549 ld hl,(49c5h) 3a26 5e ld e,(hl) 3a27 eb ex de,hl 3a28 29 add hl,hl 3a29 09 add hl,bc 3a2a eb ex de,hl 3a2b 2b dec hl 3a2c 2b dec hl 3a2d 73 ld (hl),e 3a2e 23 inc hl 3a2f 72 ld (hl),d 3a30 23 inc hl 3a31 f1 pop af 3a32 3821 jr c,3a55h 3a34 47 ld b,a 3a35 4f ld c,a 3a36 7e ld a,(hl) 3a37 23 inc hl 3a38 16e1 ld d,0e1h 3a3a 5e ld e,(hl) 3a3b 23 inc hl 3a3c 56 ld d,(hl) 3a3d 23 inc hl 3a3e e3 ex (sp),hl 3a3f f5 push af 3a40 e7 rst 20h 3a41 d2d639 jp nc,39d6h 3a44 e5 push hl 3a45 cd7906 call 0679h 3a48 d1 pop de 3a49 19 add hl,de 3a4a f1 pop af 3a4b 3d dec a 3a4c 44 ld b,h 3a4d 4d ld c,l 3a4e 20e9 jr nz,3a39h 3a50 29 add hl,hl 3a51 29 add hl,hl 3a52 c1 pop bc 3a53 09 add hl,bc 3a54 eb ex de,hl 3a55 2ad249 ld hl,(49d2h) 3a58 c9 ret ---------------------------------- Routines cassette du moniteur ---------------------------------- 3a59 3e02 ld a,02h 3a5b d3af out (0afh),a 3a5d f3 di 3a5e c5 push bc 3a5f 010000 ld bc,0000h 3a62 e3 ex (sp),hl <-- 3a63 e3 ex (sp),hl | 3a64 00 nop | 3a65 0d dec c | 3a66 20fa jr nz,3a62h -- 3a68 10f8 djnz 3a62h 3a6a c1 pop bc 3a6b 10f1 djnz 3a5eh 3a6d c5 push bc 3a6e f5 push af 3a6f 010000 ld bc,0000h 3a72 0b dec bc 3a73 78 ld a,b 3a74 b1 or c 3a75 20fb jr nz,3a72h 3a77 f1 pop af 3a78 c1 pop bc 3a79 f5 push af 3a7a 3e00 ld a,00h 3a7c d3af out (0afh),a 3a7e f1 pop af 3a7f fb ei 3a80 c9 ret 3a81 b7 or a 3a82 f5 push af 3a83 3e02 ld a,02h 3a85 d3af out (0afh),a 3a87 210000 ld hl,0000h 3a8a 2b dec hl 3a8b 7c ld a,h 3a8c b5 or l 3a8d 20fb jr nz,3a8ah 3a8f f1 pop af 3a90 3a2a48 ld a,(482ah) 3a93 2802 jr z,3a97h 3a95 87 add a,a 3a96 87 add a,a 3a97 47 ld b,a 3a98 0e00 ld c,00h 3a9a f3 di 3a9b cddd3a call 3addh <--- Envoi d'une periode octet 1 3a9e cdcf3a call 3acfh | ret ???? 3aa1 0b dec bc | 3aa2 78 ld a,b | 3aa3 b1 or c | 3aa4 20f5 jr nz,3a9bh -- 3aa6 c37d3c jp 3c7dh test des touches ---------------------------------- Envoi octet (a) au lecteur de k7 ---------------------------------- 3aa9 2a2648 ld hl,(4826h) h=0x67 l=0x5f en 1200 bauds 3aac f5 push af h=0x33 l=0x2b en 2400 bauds 3aad 7d ld a,l 3aae d60e sub 0eh 3ab0 6f ld l,a 3ab1 cde03a call 3ae0h envoi d'un bit de start 0 3ab4 f1 pop af 3ab5 0608 ld b,08h envoi des 8 bits de l'octet 3ab7 0f rrca <--- poids faible en premier 3ab8 dcd03a call c,3ad0h | bit 1 3abb d4c93a call nc,3ac9h | bit 0 3abe 10f7 djnz 3ab7h --- 3ac0 cdd03a call 3ad0h envoi d'un bit de stop 1 3ac3 cdd03a call 3ad0h envoi d'un bit de stop 1 3ac6 c37d3c jp 3c7dh ---------------------------------- Envoi d'un bit 0 au lecteur de k7 ---------------------------------- 3ac9 2a2648 ld hl,(4826h) h=0x67 l=0x5f en 1200 bauds 3acc cde03a call 3ae0h h=0x33 l=0x2b en 2400 bauds 3acf c9 ret 1 seule periode 1.6 milliseconde en 1200 bauds ---------------------------------- Envoi d'un bit 1 au lecteur de k7 ---------------------------------- 3ad0 cddd3a call 3addh 1ere periode 0.8 milliseconde en 1200 bauds 3ad3 e3 ex (sp),hl 3ad4 e3 ex (sp),hl 3ad5 00 nop temporisation 3ad6 00 nop 3ad7 00 nop 3ad8 00 nop 3ad9 cddd3a call 3addh 2eme periode 0.8 milliseconde en 1200 bauds 3adc c9 ret 3add 2a2848 ld hl,(4828h) h=0x33 l=0x2b en 1200 bauds h=0x19 l=0x11 en 2400 bauds ---------------------------------- Envoi d'un creneau au lecteur de k7 ---------------------------------- 3ae0 f5 push af 3ae1 2d dec l <-- temporisation 3ae2 c2e13a jp nz,3ae1h -- 3ae5 3e03 ld a,03h 3ae7 d3af out (0afh),a envoi d'un signal niveau 03 3ae9 25 dec h <-- temporisation 3aea c2e93a jp nz,3ae9h -- 3aed 3e02 ld a,02h envoi d'un signal niveau 02 3aef d3af out (0afh),a 3af1 f1 pop af 3af2 c9 ret 3af3 3e02 ld a,02h 3af5 d3af out (0afh),a 3af7 f3 di 3af8 215704 ld hl,0457h 3afb 51 ld d,c 3afc cdbf3b call 3bbfh 3aff d8 ret c 3b00 79 ld a,c 3b01 fede cp 0deh 3b03 30f3 jr nc,3af8h 3b05 fe05 cp 05h 3b07 38ef jr c,3af8h 3b09 92 sub d 3b0a 3002 jr nc,3b0eh 3b0c 2f cpl 3b0d 3c inc a 3b0e fe04 cp 04h 3b10 30e6 jr nc,3af8h 3b12 2b dec hl 3b13 7c ld a,h 3b14 b5 or l 3b15 20e4 jr nz,3afbh 3b17 210000 ld hl,0000h 3b1a 45 ld b,l 3b1b 55 ld d,l 3b1c cdbf3b call 3bbfh 3b1f d8 ret c 3b20 09 add hl,bc 3b21 15 dec d 3b22 c21c3b jp nz,3b1ch 3b25 01fa05 ld bc,05fah 3b28 09 add hl,bc 3b29 7c ld a,h 3b2a 1f rra 3b2b e67f and 7fh 3b2d 57 ld d,a 3b2e 29 add hl,hl 3b2f 7c ld a,h 3b30 92 sub d 3b31 57 ld d,a 3b32 d605 sub 05h 3b34 322e48 ld (482eh),a 3b37 7a ld a,d 3b38 87 add a,a 3b39 0600 ld b,00h 3b3b d603 sub 03h 3b3d 04 inc b 3b3e 30fb jr nc,3b3bh 3b40 78 ld a,b 3b41 d603 sub 03h 3b43 322f48 ld (482fh),a 3b46 b7 or a 3b47 c9 ret ---------------------------------- Lecture d'un octet du lecteur de k7 ---------------------------------- 3b48 3a2e48 ld a,(482eh) 3b4b 57 ld d,a 3b4c cd7d3c call 3c7dh <---- test clavier 3b4f d8 ret c | | 3b50 dbaf in a,(0afh) | lecture k7 3b52 07 rlca | 3b53 30f7 jr nc,3b4ch -- 3b55 cd7d3c call 3c7dh <---- test clavier 3b58 d8 ret c | | 3b59 dbaf in a,(0afh) | lecture k7 3b5b 07 rlca | 3b5c 38f7 jr c,3b55h --- 3b5e 1e00 ld e,00h 3b60 cdaa3b call 3baah test clavier 3b63 41 ld b,c 3b64 cdaa3b call 3baah test clavier 3b67 d8 ret c 3b68 78 ld a,b 3b69 81 add a,c 3b6a 38f7 jr c,3b63h 3b6c ba cp d 3b6d 38f4 jr c,3b63h 3b6f 2e08 ld l,08h 3b71 cd8e3b call 3b8eh 3b74 fe04 cp 04h 3b76 3f ccf 3b77 d8 ret c 3b78 fe02 cp 02h 3b7a 3f ccf 3b7b cb1a rr d 3b7d 79 ld a,c 3b7e 0f rrca 3b7f d4ae3b call nc,3baeh 3b82 cdaa3b call 3baah 3b85 2d dec l 3b86 c2713b jp nz,3b71h 3b89 cd7d3c call 3c7dh 3b8c 7a ld a,d 3b8d c9 ret 3b8e 3a2f48 ld a,(482fh) 3b91 47 ld b,a 3b92 0e00 ld c,00h 3b94 dbaf in a,(0afh) 3b96 ab xor e 3b97 f2a23b jp p,3ba2h 3b9a 7b ld a,e 3b9b 2f cpl 3b9c 5f ld e,a 3b9d 0c inc c 3b9e 10f4 djnz 3b94h 3ba0 79 ld a,c 3ba1 c9 ret 3ba2 00 nop 3ba3 00 nop 3ba4 00 nop 3ba5 00 nop 3ba6 10ec djnz 3b94h 3ba8 79 ld a,c 3ba9 c9 ret 3baa cd7d3c call 3c7dh 3bad d8 ret c 3bae 0e00 ld c,00h 3bb0 0c inc c <-- 3bb1 280a jr z,3bbdh | 3bb3 dbaf in a,(0afh) | lecture k7 3bb5 ab xor e | 3bb6 f2b03b jp p,3bb0h -- 3bb9 7b ld a,e 3bba 2f cpl 3bbb 5f ld e,a 3bbc c9 ret --------------------------------- Décrementation de c --------------------------------- 3bbd 0d dec c 3bbe c9 ret --------------------------------- Test clavier ? --------------------------------- 3bbf cd7d3c call 3c7dh 3bc2 d8 ret c ---------------------------------- ---------------------------------- 3bc3 dbaf in a,(0afh) lecture cassette 3bc5 07 rlca 3bc6 38f7 jr c,3bbfh 3bc8 1e00 ld e,00h 3bca cdae3b call 3baeh 3bcd c3b03b jp 3bb0h ---------------------------------- Controleur entrees/sorties Basic ---------------------------------- 3bd0 cde247 call 47e2h 3bd3 f5 push af 3bd4 3a6f48 ld a,(486fh) 3bd7 b7 or a 3bd8 2862 jr z,3c3ch 3bda 3d dec a 3bdb 2804 jr z,3be1h 3bdd f1 pop af 3bde c3971d jp 1d97h 3be1 3a7348 ld a,(4873h) 3be4 feff cp 0ffh 3be6 2828 jr z,3c10h 3be8 f1 pop af 3be9 f5 push af 3bea fe09 cp 09h 3bec 200c jr nz,3bfah 3bee 3e20 ld a,20h 3bf0 df rst 18h 3bf1 3a6e48 ld a,(486eh) 3bf4 e607 and 07h 3bf6 20f6 jr nz,3beeh 3bf8 f1 pop af 3bf9 c9 ret 3bfa d60d sub 0dh 3bfc 280f jr z,3c0dh 3bfe 3810 jr c,3c10h 3c00 fe13 cp 13h 3c02 380c jr c,3c10h 3c04 3a6e48 ld a,(486eh) 3c07 fe84 cp 84h 3c09 cc633c call z,3c63h 3c0c 3c inc a 3c0d 326e48 ld (486eh),a 3c10 f1 pop af 3c11 c3d23c jp 3cd2h -------------------------------------- -------------------------------------- 3c14 3e01 ld a,01h 3c16 326f48 ld (486fh),a 3c19 3a7448 ld a,(4874h) 3c1c cb7f bit 7,a 3c1e cbbf res 7,a 3c20 327448 ld (4874h),a 3c23 2004 jr nz,3c29h 3c25 3a6e48 ld a,(486eh) 3c28 b7 or a 3c29 c4633c call nz,3c63h 3c2c 3a7148 ld a,(4871h) 3c2f e640 and 40h 3c31 327148 ld (4871h),a 3c34 af xor a 3c35 326f48 ld (486fh),a 3c38 327448 ld (4874h),a 3c3b c9 ret ------------------------------------- ------------------------------------- 3c3c f1 pop af 3c3d c31a33 jp 331ah ------------------------------------- ------------------------------------- 3c40 cdc535 call 35c5h 3c43 3a0548 ld a,(4805h) 3c46 3d dec a 3c47 c8 ret z 3c48 1828 jr 3c72h 3c4a 2b dec hl 3c4b 7e ld a,(hl) 3c4c fe20 cp 20h 3c4e 28fa jr z,3c4ah 3c50 23 inc hl 3c51 af xor a 3c52 77 ld (hl),a 3c53 219748 ld hl,4897h 3c56 c9 ret 3c57 cde547 call 47e5h 3c5a 3a6f48 ld a,(486fh) 3c5d b7 or a 3c5e 2812 jr z,3c72h 3c60 3d dec a 3c61 200b jr nz,3c6eh 3c63 3e0d ld a,0dh 3c65 df rst 18h 3c66 3e0a ld a,0ah 3c68 df rst 18h 3c69 af xor a 3c6a 326e48 ld (486eh),a 3c6d c9 ret 3c6e 3e0d ld a,0dh 3c70 df rst 18h 3c71 c9 ret 3c72 3e03 ld a,03h 3c74 df rst 18h 3c75 af xor a 3c76 c9 ret 3c77 cd7f3c call 3c7fh 3c7a c3382f jp 2f38h ---------------------------------- Appel en cours de traiment k7 ---------------------------------- 3c7d e3 ex (sp),hl 3c7e e3 ex (sp),hl ---------------------------------- scrute touches SHIFT / STOP ---------------------------------- 3c7f db81 in a,(81h) 3c81 e601 and 01h 3c83 c0 ret nz 3c84 db80 in a,(80h) 3c86 e604 and 04h 3c88 c0 ret nz 3c89 3a8948 ld a,(4889h) 3c8c b7 or a 3c8d c0 ret nz 3c8e dd3605f2 ld (ix+05h),0f2h 3c92 dd360700 ld (ix+07h),00h 3c96 dd360600 ld (ix+06h),00h 3c9a 37 scf 3c9b c9 ret 3c9c 3e3f ld a,3fh 3c9e df rst 18h 3c9f 3e20 ld a,20h 3ca1 df rst 18h 3ca2 cde847 call 47e8h 3ca5 219848 ld hl,4898h 3ca8 3a7048 ld a,(4870h) 3cab b7 or a 3cac 2807 jr z,3cb5h 3cae cd891e call 1e89h 3cb1 200e jr nz,3cc1h 3cb3 189c jr 3c51h 3cb5 cdd42a call 2ad4h 3cb8 b7 or a 3cb9 2006 jr nz,3cc1h 3cbb cd7f3c call 3c7fh 3cbe 30f5 jr nc,3cb5h 3cc0 c9 ret 3cc1 fe0d cp 0dh 3cc3 2885 jr z,3c4ah 3cc5 cbbf res 7,a 3cc7 77 ld (hl),a 3cc8 111849 ld de,4918h 3ccb e7 rst 20h 3ccc c3e13d jp 3de1h 3ccf 23 inc hl 3cd0 18d6 jr 3ca8h ---------------------------------- Envoi d'un caractere a l'imprimante ---------------------------------- 3cd2 c5 push bc 3cd3 d5 push de 3cd4 e5 push hl 3cd5 f5 push af 3cd6 cda702 call 02a7h scrutation clavier 3cd9 fed8 cp 0d8h 3cdb cc5d3d call z,3d5dh 3cde 3a7448 ld a,(4874h) 3ce1 cb77 bit 6,a 3ce3 2003 jr nz,3ce8h 3ce5 cdfc3c call 3cfch 3ce8 cd0f3d call 3d0fh 3ceb 380a jr c,3cf7h 3ced f1 pop af 3cee f5 push af 3cef cd6d3d call 3d6dh 3cf2 f3 di 3cf3 cd863d call 3d86h 3cf6 fb ei 3cf7 f1 pop af 3cf8 e1 pop hl 3cf9 d1 pop de 3cfa c1 pop bc 3cfb c9 ret 3cfc cbf7 set 6,a 3cfe 327448 ld (4874h),a 3d01 f5 push af 3d02 2a7648 ld hl,(4876h) 3d05 7e ld a,(hl) 3d06 b7 or a 3d07 c4d23c call nz,3cd2h 3d0a 23 inc hl 3d0b 20f8 jr nz,3d05h 3d0d f1 pop af 3d0e c9 ret 3d0f 17 rla 3d10 d8 ret c 3d11 1f rra 3d12 e6f0 and 0f0h 3d14 327448 ld (4874h),a 3d17 21581b ld hl,1b58h 3d1a db10 in a,(10h) 3d1c e602 and 02h 3d1e c8 ret z 3d1f 2b dec hl 3d20 af xor a 3d21 3d dec a 3d22 b7 or a 3d23 20fc jr nz,3d21h 3d25 7c ld a,h 3d26 b5 or l 3d27 20f1 jr nz,3d1ah 3d29 af xor a 3d2a 326f48 ld (486fh),a 3d2d 0605 ld b,05h 3d2f 3e0e ld a,0eh 3d31 df rst 18h 3d32 10fb djnz 3d2fh 3d34 217448 ld hl,4874h 3d37 cbc6 set 0,(hl) 3d39 3a7548 ld a,(4875h) 3d3c 1f rra 3d3d 380f jr c,3d4eh 3d3f 212f18 ld hl,182fh 3d42 3a9048 ld a,(4890h) 3d45 b7 or a 3d46 2803 jr z,3d4bh 3d48 21be17 ld hl,17beh 3d4b cdaa36 call 36aah 3d4e 3e01 ld a,01h 3d50 326f48 ld (486fh),a 3d53 cda702 call 02a7h scrutation clavier 3d56 b7 or a 3d57 28fa jr z,3d53h 3d59 fed8 cp 0d8h 3d5b 20ba jr nz,3d17h 3d5d cda702 call 02a7h scrutation clavier 3d60 fed8 cp 0d8h 3d62 28f9 jr z,3d5dh 3d64 217448 ld hl,4874h 3d67 3e80 ld a,80h 3d69 ae xor (hl) 3d6a 77 ld (hl),a 3d6b 17 rla 3d6c c9 ret 3d6d f5 push af 3d6e 3a7348 ld a,(4873h) 3d71 b7 or a 3d72 2010 jr nz,3d84h 3d74 2a7848 ld hl,(4878h) 3d77 7c ld a,h 3d78 b5 or l 3d79 2809 jr z,3d84h 3d7b f1 pop af 3d7c 85 add a,l 3d7d 6f ld l,a 3d7e 3e00 ld a,00h 3d80 8c adc a,h 3d81 67 ld h,a 3d82 7e ld a,(hl) 3d83 f5 push af 3d84 f1 pop af 3d85 c9 ret 3d86 d311 out (11h),a 3d88 3e00 ld a,00h 3d8a d310 out (10h),a 3d8c 3e01 ld a,01h 3d8e d310 out (10h),a 3d90 c9 ret 3d91 328448 ld (4884h),a 3d94 77 ld (hl),a 3d95 23 inc hl 3d96 77 ld (hl),a 3d97 c3e02e jp 2ee0h 3d9a e5 push hl 3d9b cd2607 call 0726h 3d9e d1 pop de 3d9f cd4723 call 2347h 3da2 d2ab22 jp nc,22abh 3da5 3ea0 ld a,0a0h 3da7 c3ad22 jp 22adh 3daa 380d jr c,3db9h 3dac d5 push de 3dad 11f9ff ld de,0fff9h 3db0 e7 rst 20h 3db1 d1 pop de 3db2 3005 jr nc,3db9h 3db4 228548 ld (4885h),hl 3db7 1804 jr 3dbdh 3db9 af xor a 3dba 328448 ld (4884h),a 3dbd c3d722 jp 22d7h ---------------------------------- ---------------------------------- 3dc0 21fe35 ld hl,35feh adresse du caractere 3dc3 cd850d call 0d85h definition d'un caractere 3dc6 3e20 ld a,20h 3dc8 21f435 ld hl,35f4h adresse du caractere 3dcb c39232 jp 3292h definition d'un caractere 3dce cad92e jp z,2ed9h 3dd1 cd6c25 call 256ch 3dd4 c0 ret nz 3dd5 018d22 ld bc,228dh 3dd8 c5 push bc 3dd9 cd4723 call 2347h 3ddc 60 ld h,b 3ddd 69 ld l,c 3dde c3dc2e jp 2edch 3de1 3806 jr c,3de9h 3de3 c2a83c jp nz,3ca8h 3de6 3e0e ld a,0eh 3de8 df rst 18h 3de9 c3cf3c jp 3ccfh 3dec 3a7148 ld a,(4871h) 3def cbef set 5,a 3df1 327148 ld (4871h),a 3df4 ddcb03f6 set 6,(ix+03h) 3df8 c38027 jp 2780h 3dfb fe06 cp 06h 3dfd 200b jr nz,3e0ah 3dff 3a7148 ld a,(4871h) 3e02 cb6f bit 5,a 3e04 c39d34 jp 349dh 3e07 c3232b jp 2b23h 3e0a fe1f cp 1fh 3e0c 20f9 jr nz,3e07h 3e0e c31a2b jp 2b1ah 3e11 3a7148 ld a,(4871h) 3e14 cb6f bit 5,a 3e16 c2972b jp nz,2b97h 3e19 3e06 ld a,06h 3e1b df rst 18h 3e1c c3a72b jp 2ba7h 3e1f fa2835 jp m,3528h 3e22 3a7148 ld a,(4871h) 3e25 cb6f bit 5,a 3e27 c22835 jp nz,3528h 3e2a c30f35 jp 350fh 3e2d cae02b jp z,2be0h 3e30 f5 push af 3e31 3a8948 ld a,(4889h) 3e34 b7 or a 3e35 2004 jr nz,3e3bh 3e37 f1 pop af 3e38 c3072b jp 2b07h 3e3b f1 pop af 3e3c c3fb3d jp 3dfbh 3e3f ff rst 38h ----------------------------------------------------------------------- 3e40 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ................ 3e50 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ................ 3e60 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ................ 3e70 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ................ 3e80 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ................ 3e90 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ................ 3ea0 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ................ 3eb0 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ................ 3ec0 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ................ 3ed0 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ................ 3ee0 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ................ 3ef0 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ................ 3f00 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ................ 3f10 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ................ 3f20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ................ 3f30 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ................ 3f40 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ................ 3f50 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ................ 3f60 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ................ 3f70 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ................ 3f80 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ................ 3f90 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ................ 3fa0 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ................ 3fb0 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ................ 3fc0 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ................ 3fd0 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ................ 3fe0 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ................ 3ff0 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ................ -----------------------------------------------------------------------