SOS Programmeurs Issue 4 (F) (Face B) (1989) [DISCMAG].dsk
Size : 512 (Real : 512)
000000: 00 DE 43 4F 50 53 54 4F 4B 41 53 43 00 3C 00 74 ..COPSTOKASC.<.t
000010: 02 03 04 05 06 07 08 09 0A 0B 0C 11 12 13 14 00 ................
000020: 00 DE 43 4F 50 41 4E 41 4C 41 53 43 00 03 00 80 ..COPANALASC....
000030: 15 16 17 18 19 1A 1B 1C 1D 31 32 33 34 35 36 37 .........1234567
000040: 00 5E 43 4F 50 47 41 50 32 41 53 43 00 00 00 64 .^COPGAP2ASC...d
000050: 1E 1F 20 21 22 23 24 2B 2C 2D 2E 2F 30 00 00 00 .. !"#$+,-./0...
000060: 00 DE 43 4F 50 41 4E 41 4C 41 53 43 01 03 00 2E ..COPANALASC....
000070: 38 39 3A 3B 67 68 00 00 00 00 00 00 00 00 00 00 89:;gh..........
000080: 00 46 44 43 20 20 20 20 20 42 41 53 00 00 00 39 .FDC BAS...9
000090: 25 26 27 28 29 2A 57 6A 00 00 00 00 00 00 00 00 %&'()*Wj........
0000A0: 00 DE 46 44 43 34 4D 45 20 41 53 43 00 26 00 0C ..FDC4ME ASC.&..
0000B0: 3C 3D 00 00 00 00 00 00 00 00 00 00 00 00 00 00 <=..............
0000C0: 00 4C 45 43 54 45 55 52 35 43 4F 44 00 00 00 08 .LECTEUR5COD....
0000D0: 44 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 D...............
0000E0: 00 DE 43 4F 50 47 41 50 31 41 53 43 00 61 00 80 ..COPGAP1ASC.a..
0000F0: 4F 50 51 52 53 54 55 5F 60 61 62 63 64 65 66 7A OPQRSTU_`abcdefz
000100: 00 DE 43 4F 50 45 43 52 41 41 53 43 00 11 00 80 ..COPECRAASC....
000110: 56 58 59 5A 5B 5C 5D 5E 71 72 73 74 7C 85 86 8E VXYZ[\]^qrst|...
000120: 00 DE 43 4F 50 45 43 52 41 41 53 43 01 11 00 02 ..COPECRAASC....
000130: 8F 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000140: 00 5E 43 4F 50 52 4F 55 54 41 53 43 00 00 00 79 .^COPROUTASC...y
000150: 0D 0E 0F 10 6B 6C 6D 6E 6F 70 75 76 78 79 A7 A8 ....klmnopuvxy..
000160: 00 DE 43 4F 50 49 4E 49 54 41 53 43 00 6F 00 80 ..COPINITASC.o..
000170: 77 7D 7E 7F 80 81 82 83 84 87 88 89 8A 8B 8C 8D w}~.............
000180: 00 DE 43 4F 50 49 4E 49 54 41 53 43 01 6F 00 21 ..COPINITASC.o.!
000190: 90 91 92 93 94 00 00 00 00 00 00 00 00 00 00 00 ................
0001A0: 00 DE 43 4F 50 47 41 50 31 41 53 43 01 61 00 32 ..COPGAP1ASC.a.2
0001B0: 7B 95 96 97 98 99 9A 00 00 00 00 00 00 00 00 00 {...............
0001C0: 00 DE 46 44 43 54 48 45 4F 41 53 43 00 5F 00 80 ..FDCTHEOASC._..
0001D0: 3E 3F 40 41 42 43 49 4A 4B 4C 4D 4E 69 9B 9C 9D >?@ABCIJKLMNi...
0001E0: 00 DE 46 44 43 54 48 45 4F 41 53 43 01 5F 00 10 ..FDCTHEOASC._..
0001F0: 9E 9F 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
Size : 512 (Real : 512)
000000: 00 DE 43 4F 50 45 43 52 49 41 53 43 00 6E 00 38 ..COPECRIASC.n.8
000010: A0 A1 A2 A3 A4 A5 A6 00 00 00 00 00 00 00 00 00 ................
000020: 00 52 53 58 50 52 54 20 20 43 4F 44 00 00 00 15 .RSXPRT COD....
000030: 45 46 47 00 00 00 00 00 00 00 00 00 00 00 00 00 EFG.............
000040: 00 2D 49 4E 4B 2D 49 4E 54 42 49 4E 00 00 00 03 .-INK-INTBIN....
000050: 48 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 H...............
000060: 00 21 52 45 50 44 49 56 34 41 53 43 00 00 00 4B .!REPDIV4ASC...K
000070: A9 AA AB AC AD AE AF B0 B1 B2 00 00 00 00 00 00 ................
000080: E5 DE 46 44 43 4E 4F 54 49 42 41 4B 00 2C 00 1E ..FDCNOTIBAK.,..
000090: AC AD AE AF 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000A0: E5 46 44 43 42 55 46 46 20 4D 41 58 00 00 00 5B .FDCBUFF MAX...[
0000B0: 85 86 87 88 89 8A 8B 8C 8D 8E 8F 90 00 00 00 00 ................
0000C0: E5 46 44 43 46 4F 52 4D 20 4D 41 58 00 00 00 3F .FDCFORM MAX...?
0000D0: 91 92 93 94 95 96 97 98 00 00 00 00 00 00 00 00 ................
0000E0: E5 46 44 43 49 44 53 20 20 4D 41 58 00 00 00 15 .FDCIDS MAX....
0000F0: 99 9A 9B 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000100: E5 46 44 43 49 4E 49 54 20 4D 41 58 00 00 00 2E .FDCINIT MAX....
000110: 9C 9D 9E 9F A0 A1 00 00 00 00 00 00 00 00 00 00 ................
000120: E5 46 44 43 52 4F 55 54 20 4D 41 58 00 00 00 6F .FDCROUT MAX...o
000130: A2 A3 A4 A5 A6 A7 A8 A9 AA AB AC AD AE AF 00 00 ................
000140: E5 46 44 43 52 57 20 20 20 24 24 24 00 00 00 20 .FDCRW $$$...
000150: B0 B1 B2 B3 00 00 00 00 00 00 00 00 00 00 00 00 ................
000160: E5 55 53 4E 41 47 45 20 20 45 43 43 00 00 00 3A .USNAGE ECC...:
000170: 90 91 92 93 A5 A6 A9 AA 00 00 00 00 00 00 00 00 ................
000180: E5 DE 45 44 49 54 4F 33 20 41 53 43 00 4B 00 29 ..EDITO3 ASC.K.)
000190: 21 31 96 97 98 99 00 00 00 00 00 00 00 00 00 00 !1..............
0001A0: E5 2D 49 4E 4B 2D 49 4E 54 42 49 4E 00 00 00 03 .-INK-INTBIN....
0001B0: 03 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001C0: E5 55 53 50 55 42 33 20 20 42 41 4B 00 00 00 09 .USPUB3 BAK....
0001D0: AB AC 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001E0: E5 2D 50 41 53 57 4F 52 44 20 20 20 00 00 00 0F .-PASWORD ....
0001F0: 7D 85 00 00 00 00 00 00 00 00 00 00 00 00 00 00 }...............
Size : 512 (Real : 512)
000000: E5 2D 4B 45 59 2D 45 53 20 20 20 20 00 00 00 0D .-KEY-ES ....
000010: 58 59 00 00 00 00 00 00 00 00 00 00 00 00 00 00 XY..............
000020: E5 55 53 50 55 42 33 20 20 42 41 4B 00 00 00 09 .USPUB3 BAK....
000030: AD AE 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000040: E5 54 45 53 54 20 20 20 20 42 49 4E 00 00 00 04 .TEST BIN....
000050: 80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000060: E5 55 53 50 55 42 33 20 20 42 41 53 00 00 00 09 .USPUB3 BAS....
000070: AF B0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000080: E5 2D 49 4E 54 2D 44 45 4D 42 41 4B 00 00 00 0A .-INT-DEMBAK....
000090: 29 2F 00 00 00 00 00 00 00 00 00 00 00 00 00 00 )/..............
0000A0: E5 2D 49 4E 54 45 52 53 20 20 20 20 00 00 00 0A .-INTERS ....
0000B0: 2D 35 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -5..............
0000C0: E5 58 20 20 20 20 20 20 20 42 41 4B 00 00 00 03 .X BAK....
0000D0: AA 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000E0: E5 2D 49 4E 54 46 52 45 49 4D 41 58 00 00 00 08 .-INTFREIMAX....
0000F0: 70 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 p...............
000100: E5 2D 49 4E 54 46 52 45 49 42 41 4B 00 00 00 28 .-INTFREIBAK...(
000110: 23 4B AE AF B0 00 00 00 00 00 00 00 00 00 00 00 #K..............
000120: E5 58 20 20 20 20 20 20 20 42 41 53 00 00 00 0B .X BAS....
000130: B2 B3 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000140: E5 58 20 20 20 20 20 20 20 42 41 53 00 00 00 0B .X BAS....
000150: B2 B3 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000020: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A --------------..
000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2D -
000050: 20 52 45 50 52 4F 44 55 43 54 49 4F 4E 20 2D 0D REPRODUCTION -.
000060: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000080: 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D --------------.
000090: 0A 20 0D 0A 20 20 20 20 20 4C 65 73 20 73 65 63 . .. Les sec
0000A0: 74 69 6F 6E 73 20 70 72 7B 63 7B 64 65 6E 74 65 tions pr{c{dente
0000B0: 73 20 61 79 61 6E 74 20 72 65 63 75 65 75 6C 6C s ayant recueull
0000C0: 69 20 74 6F 75 74 65 73 20 6C 65 73 20 69 6E 66 i toutes les inf
0000D0: 6F 72 6D 61 74 69 6F 6E 73 20 75 74 69 6C 65 73 ormations utiles
0000E0: 20 2C 0D 0A 20 69 6C 20 65 73 74 20 6D 61 69 6E ,.. il est main
0000F0: 74 65 6E 61 6E 74 20 70 6F 73 73 69 62 6C 65 20 tenant possible
000100: 64 65 20 20 6C 69 72 65 20 20 65 74 20 20 64 65 de lire et de
000110: 20 20 73 74 6F 63 6B 65 72 20 20 6C 65 20 63 6F stocker le co
000120: 6E 74 65 6E 75 20 64 65 73 20 73 65 63 74 65 75 ntenu des secteu
000130: 72 73 0D 0A 20 61 63 63 65 73 73 69 62 6C 65 73 rs.. accessibles
000140: 20 2E 0D 0A 20 20 20 20 20 53 69 20 6C 61 20 70 ... Si la p
000150: 69 73 74 65 20 6E 27 65 73 74 20 70 61 73 20 66 iste n'est pas f
000160: 6F 72 6D 61 74 7B 65 20 2C 20 20 6F 6E 20 73 65 ormat{e , on se
000170: 20 63 6F 6E 74 65 6E 74 65 72 61 20 64 65 20 6D contentera de m
000180: 7B 6D 6F 72 69 73 65 72 20 6C 65 20 6E 75 6D 7B {moriser le num{
000190: 72 6F 0D 0A 20 65 74 20 6C 65 20 66 6C 61 67 20 ro.. et le flag
0001A0: 64 27 7B 74 61 74 20 64 65 20 6C 61 20 70 69 73 d'{tat de la pis
0001B0: 74 65 20 2E 20 53 69 6E 6F 6E 20 20 2C 20 61 76 te . Sinon , av
0001C0: 61 6E 74 20 6C 65 20 73 74 6F 63 6B 61 67 65 20 ant le stockage
0001D0: 2C 20 6F 6E 20 76 7B 72 69 66 69 65 72 61 20 71 , on v{rifiera q
0001E0: 75 65 0D 0A 20 6C 65 20 6E 6F 6D 62 72 65 20 20 ue.. le nombre
0001F0: 64 65 20 20 73 65 63 74 65 75 72 73 20 20 65 74 de secteurs et
Size : 512 (Real : 512)
000000: 20 20 6C 61 20 20 74 61 69 6C 6C 65 20 20 64 75 la taille du
000010: 20 20 47 41 50 20 20 63 61 6C 63 75 6C 7B 73 20 GAP calcul{s
000020: 20 70 61 72 20 20 6C 65 73 20 72 6F 75 74 69 6E par les routin
000030: 65 73 0D 0A 20 70 72 7B 63 7B 64 65 6E 74 65 73 es.. pr{c{dentes
000040: 20 6E 65 20 73 6F 6E 74 20 70 61 73 20 65 78 63 ne sont pas exc
000050: 65 73 73 69 66 73 20 20 2E 20 20 51 75 6F 69 71 essifs . Quoiq
000060: 75 65 20 20 74 72 7D 73 20 20 72 61 72 65 20 2C ue tr}s rare ,
000070: 20 63 65 74 74 65 20 7B 76 65 6E 74 75 61 6C 69 cette {ventuali
000080: 74 7B 0D 0A 20 70 65 75 74 20 73 75 72 76 65 6E t{.. peut surven
000090: 69 72 20 61 76 65 63 20 64 65 73 20 70 69 73 74 ir avec des pist
0000A0: 65 73 20 74 72 7D 73 20 73 70 7B 63 69 61 6C 65 es tr}s sp{ciale
0000B0: 73 20 2E 0D 0A 20 20 20 20 20 49 6C 20 6E 65 20 s ... Il ne
0000C0: 66 61 75 74 20 70 61 73 20 6F 75 62 6C 69 65 72 faut pas oublier
0000D0: 20 71 75 27 75 6E 20 70 61 73 73 61 67 65 20 20 qu'un passage
0000E0: 70 61 72 20 6C 61 20 72 6F 75 74 69 6E 65 20 45 par la routine E
0000F0: 43 52 41 53 45 52 20 61 75 72 61 20 6D 6F 64 69 CRASER aura modi
000100: 66 69 7B 0D 0A 20 6C 65 20 20 6E 6F 6D 62 72 65 fi{.. le nombre
000110: 20 20 64 65 73 20 20 73 65 63 74 65 75 72 73 20 des secteurs
000120: 20 73 75 72 20 20 6C 61 20 20 70 69 73 74 65 20 sur la piste
000130: 20 2E 20 20 44 61 6E 73 20 20 63 65 20 20 63 61 . Dans ce ca
000140: 73 20 20 2C 20 20 63 65 73 20 20 73 65 63 74 65 s , ces secte
000150: 75 72 73 0D 0A 20 73 75 70 70 6C 7B 6D 65 6E 74 urs.. suppl{ment
000160: 61 69 72 65 73 20 64 6F 69 76 65 6E 74 20 65 08 aires doivent e.
000170: 5E 74 72 65 20 54 4F 54 41 4C 45 4D 45 4E 54 20 ^tre TOTALEMENT
000180: 49 47 4E 4F 52 45 53 20 20 63 61 72 20 20 69 6C IGNORES car il
000190: 73 20 6E 27 65 78 69 73 74 65 72 6F 6E 74 20 71 s n'existeront q
0001A0: 75 65 20 64 65 0D 0A 20 6D 61 6E 69 7D 72 65 20 ue de.. mani}re
0001B0: 7B 70 68 7B 6D 7D 72 65 20 6C 6F 72 73 20 64 75 {ph{m}re lors du
0001C0: 20 66 6F 72 6D 61 74 61 67 65 20 64 65 20 6C 61 formatage de la
0001D0: 20 63 6F 70 69 65 20 21 0D 0A 20 3B 0D 0A 20 3B copie !.. ;.. ;
0001E0: 2D 20 53 74 6F 63 6B 65 72 20 75 6E 65 20 70 69 - Stocker une pi
0001F0: 73 74 65 20 63 6F 6D 70 6C 65 74 65 20 2E 20 53 ste complete . S
Size : 512 (Real : 512)
000000: 69 20 62 75 66 66 65 72 20 70 6C 65 69 6E 20 72 i buffer plein r
000010: 65 74 6F 75 72 20 61 76 65 63 20 4E 43 20 2D 0D etour avec NC -.
000020: 0A 20 3B 0D 0A 20 53 54 4F 4B 50 49 53 54 20 4C . ;.. STOKPIST L
000030: 44 20 48 4C 2C 54 53 54 4F 4B 50 20 20 20 3B 4D D HL,TSTOKP ;M
000040: 65 73 73 61 67 65 20 73 74 6F 63 6B 65 20 70 69 essage stocke pi
000050: 73 74 65 0D 0A 20 20 20 20 20 20 20 20 20 43 41 ste.. CA
000060: 4C 4C 20 50 52 54 0D 0A 20 20 20 20 20 20 20 20 LL PRT..
000070: 20 58 4F 52 20 41 0D 0A 20 20 20 20 20 20 20 20 XOR A..
000080: 20 4C 44 20 28 46 4C 41 47 29 2C 41 20 20 20 20 LD (FLAG),A
000090: 20 3B 46 4C 41 47 20 6E 65 20 73 65 72 74 20 71 ;FLAG ne sert q
0000A0: 75 65 20 70 6F 75 72 20 70 6F 73 69 74 69 6F 6E ue pour position
0000B0: 6E 65 72 20 75 6E 20 74 65 78 74 65 0D 0A 20 3B ner un texte.. ;
0000C0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
0000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0000F0: 2D 2D 2D 0D 0A 20 0D 0A 20 20 20 20 20 41 70 72 ---.. .. Apr
000100: 7D 73 20 63 65 74 74 65 20 62 72 7D 76 65 20 69 }s cette br}ve i
000110: 6E 69 74 69 61 6C 69 73 61 74 69 6F 6E 20 2C 20 nitialisation ,
000120: 6F 6E 20 20 63 6F 6D 6D 65 6E 63 65 20 70 61 72 on commence par
000130: 20 72 61 6E 67 65 72 20 6C 65 73 20 70 61 72 61 ranger les para
000140: 6D 7D 74 72 65 73 0D 0A 20 67 7B 6E 7B 72 61 75 m}tres.. g{n{rau
000150: 78 20 63 6F 6E 63 65 72 6E 61 6E 74 20 6C 61 20 x concernant la
000160: 70 69 73 74 65 20 2E 0D 0A 20 0D 0A 20 20 20 20 piste ... ..
000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000180: 20 20 20 20 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D ------
000190: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 -------------..
0001A0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 48 ;.. LD H
0001B0: 4C 2C 28 50 4F 49 4E 50 49 53 29 20 3B 50 6F 69 L,(POINPIS) ;Poi
0001C0: 6E 74 65 75 72 20 62 75 66 66 65 72 20 64 65 62 nteur buffer deb
0001D0: 75 74 20 70 69 73 74 65 0D 0A 20 20 20 20 20 20 ut piste..
0001E0: 20 20 20 4C 44 20 41 2C 28 50 49 53 54 53 45 4C LD A,(PISTSEL
0001F0: 29 20 20 3B 52 61 6E 67 65 72 20 70 69 73 74 65 ) ;Ranger piste
Size : 512 (Real : 512)
000000: 20 65 74 20 6F 63 74 65 74 20 65 74 61 74 20 70 et octet etat p
000010: 69 73 74 65 0D 0A 20 20 20 20 20 20 20 20 20 4C iste.. L
000020: 44 20 28 48 4C 29 2C 41 20 20 20 20 20 20 20 3B D (HL),A ;
000030: 4E 75 6D 7B 72 6F 20 64 65 20 70 69 73 74 65 0D Num{ro de piste.
000040: 0A 20 20 20 20 20 20 20 20 20 49 4E 43 20 48 4C . INC HL
000050: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 41 2C .. LD A,
000060: 28 46 4C 41 47 46 4E 43 29 20 20 3B 46 6C 61 67 (FLAGFNC) ;Flag
000070: 20 64 65 73 20 65 72 72 65 75 72 73 20 70 69 73 des erreurs pis
000080: 74 65 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 te.. LD
000090: 28 48 4C 29 2C 41 20 20 20 20 20 20 20 3B 43 65 (HL),A ;Ce
0000A0: 73 20 64 65 75 78 20 64 6F 6E 6E 65 65 73 20 7B s deux donnees {
0000B0: 74 61 6E 74 20 72 61 6E 67 65 65 73 20 2C 20 6F tant rangees , o
0000C0: 6E 20 73 74 6F 63 6B 65 20 6C 61 0D 0A 20 20 20 n stocke la..
0000D0: 20 20 20 20 20 20 49 4E 43 20 48 4C 20 20 20 20 INC HL
0000E0: 20 20 20 20 20 20 3B 70 6F 73 69 74 69 6F 6E 20 ;position
0000F0: 64 75 20 6E 6F 75 76 65 61 75 20 70 6F 69 6E 74 du nouveau point
000100: 65 75 72 20 2E 20 53 69 20 6C 61 20 70 69 73 74 eur . Si la pist
000110: 65 20 6E 27 65 73 74 0D 0A 20 20 20 20 20 20 20 e n'est..
000120: 20 20 4C 44 20 28 50 4F 49 4E 50 49 53 29 2C 48 LD (POINPIS),H
000130: 4C 20 3B 70 61 73 20 66 6F 72 6D 61 74 65 65 20 L ;pas formatee
000140: 63 65 20 73 65 72 61 20 74 6F 75 74 20 2E 0D 0A ce sera tout ...
000150: 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 ;..
000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000170: 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D --------------
000180: 2D 2D 2D 2D 2D 0D 0A 20 0D 0A 20 20 20 20 20 49 -----.. .. I
000190: 63 69 20 6F 6E 20 72 65 63 72 7B 65 20 75 6E 20 ci on recr{e un
0001A0: 6E 6F 75 76 65 6C 20 6F 63 74 65 74 20 20 64 27 nouvel octet d'
0001B0: 69 6E 66 6F 72 6D 61 74 69 6F 6E 20 20 73 75 72 information sur
0001C0: 20 20 6C 27 65 74 61 74 20 64 65 20 6C 61 20 70 l'etat de la p
0001D0: 69 73 74 65 20 71 75 65 0D 0A 20 6C 27 6F 6E 20 iste que.. l'on
0001E0: 72 61 6E 67 65 20 64 61 6E 73 20 75 6E 65 20 6C range dans une l
0001F0: 69 73 74 65 20 73 7B 70 61 72 7B 65 20 70 6F 75 iste s{par{e pou
Size : 512 (Real : 512)
000000: 72 20 70 6F 75 76 6F 69 72 20 6C 65 20 72 65 6C r pouvoir le rel
000010: 69 72 65 20 65 6E 20 66 69 6E 20 64 65 20 63 6F ire en fin de co
000020: 70 69 65 20 2E 0D 0A 20 0D 0A 20 20 20 20 20 20 pie ... ..
000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000040: 20 20 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D --------
000050: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 3B 0D -----------.. ;.
000060: 0A 20 3B 2D 20 43 6F 6D 70 6F 73 65 72 20 65 74 . ;- Composer et
000070: 61 74 20 70 69 73 74 65 20 2D 0D 0A 20 3B 0D 0A at piste -.. ;..
000080: 20 20 20 20 20 20 20 20 20 4C 44 20 48 4C 2C 28 LD HL,(
000090: 50 4F 49 4E 45 52 50 29 20 3B 4D 65 74 74 72 65 POINERP) ;Mettre
0000A0: 20 6C 65 20 6E 75 6D 65 72 6F 20 64 65 20 70 69 le numero de pi
0000B0: 73 74 65 20 64 61 6E 73 20 6C 61 20 73 65 72 69 ste dans la seri
0000C0: 65 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 41 e.. LD A
0000D0: 2C 28 50 49 53 54 53 45 4C 29 20 20 3B 64 65 73 ,(PISTSEL) ;des
0000E0: 20 65 72 72 65 75 72 73 20 70 69 73 74 65 73 0D erreurs pistes.
0000F0: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 48 4C . LD (HL
000100: 29 2C 41 20 20 20 20 20 20 20 3B 50 69 73 74 65 ),A ;Piste
000110: 0D 0A 20 20 20 20 20 20 20 20 20 49 4E 43 20 48 .. INC H
000120: 4C 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 L.. LD (
000130: 48 4C 29 2C 30 20 20 20 20 20 20 20 3B 52 41 5A HL),0 ;RAZ
000140: 20 61 75 20 70 61 73 73 61 67 65 0D 0A 20 3B 0D au passage.. ;.
000150: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 41 2C 28 . LD A,(
000160: 46 4C 41 47 46 4E 43 29 0D 0A 20 20 20 20 20 20 FLAGFNC)..
000170: 20 20 20 42 49 54 20 33 2C 41 20 20 20 20 20 20 BIT 3,A
000180: 20 20 20 3B 46 6F 72 6D 61 74 65 65 20 3F 0D 0A ;Formatee ?..
000190: 20 20 20 20 20 20 20 20 20 4A 52 20 5A 2C 50 46 JR Z,PF
0001A0: 20 20 20 20 20 20 20 20 20 3B 4F 55 49 0D 0A 20 ;OUI..
0001B0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 49 4E 43 20 ;.. INC
0001C0: 41 20 20 20 20 20 20 20 20 20 20 20 3B 56 6F 69 A ;Voi
0001D0: 72 20 73 69 20 46 4E 43 20 3D 20 23 46 46 20 73 r si FNC = #FF s
0001E0: 69 20 6F 75 69 20 70 69 73 74 65 20 61 20 6E 65 i oui piste a ne
0001F0: 20 70 61 73 20 74 72 61 69 74 65 72 0D 0A 20 20 pas traiter..
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 4A 52 20 4E 5A 2C 54 52 41 JR NZ,TRA
000010: 49 54 45 20 20 20 20 3B 28 49 6E 75 74 69 6C 69 ITE ;(Inutili
000020: 73 65 20 64 61 6E 73 20 63 65 74 74 65 20 76 65 se dans cette ve
000030: 72 73 69 6F 6E 20 64 75 20 70 72 6F 67 72 61 6D rsion du program
000040: 6D 65 29 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 me).. LD
000050: 20 28 48 4C 29 2C 23 46 46 0D 0A 20 3B 0D 0A 20 (HL),#FF.. ;..
000060: 54 52 41 49 54 45 20 20 53 45 54 20 37 2C 28 48 TRAITE SET 7,(H
000070: 4C 29 20 20 20 20 20 20 3B 4C 61 20 70 69 73 74 L) ;La pist
000080: 65 20 6E 27 65 73 74 20 70 61 73 20 66 6F 72 6D e n'est pas form
000090: 61 74 65 65 20 2C 20 6F 6E 20 6C 61 69 73 73 65 atee , on laisse
0000A0: 20 74 6F 6D 62 65 72 0D 0A 20 20 20 20 20 20 20 tomber..
0000B0: 20 20 49 4E 43 20 48 4C 0D 0A 20 20 20 20 20 20 INC HL..
0000C0: 20 20 20 4C 44 20 28 50 4F 49 4E 45 52 50 29 2C LD (POINERP),
0000D0: 48 4C 0D 0A 20 20 20 20 20 20 20 20 20 58 4F 52 HL.. XOR
0000E0: 20 41 0D 0A 20 20 20 20 20 20 20 20 20 52 45 54 A.. RET
0000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 46 69 ;Fi
000100: 6E 69 20 2E 20 52 69 65 6E 20 6E 27 61 20 65 74 ni . Rien n'a et
000110: 65 20 73 74 6F 63 6B 65 0D 0A 20 3B 0D 0A 20 3B e stocke.. ;.. ;
000120: 2D 20 50 69 73 74 65 20 66 6F 72 6D 61 74 65 65 - Piste formatee
000130: 20 61 20 74 72 61 69 74 65 72 20 2E 20 43 6F 6E a traiter . Con
000140: 74 69 6E 75 65 72 20 2D 0D 0A 20 3B 0D 0A 20 50 tinuer -.. ;.. P
000150: 46 20 20 20 20 20 20 43 41 4C 4C 20 52 45 43 54 F CALL RECT
000160: 49 4E 42 20 3B 54 65 73 74 65 72 20 73 69 20 6C INB ;Tester si l
000170: 65 20 6E 6F 6D 62 72 65 20 64 65 20 73 65 63 74 e nombre de sect
000180: 65 75 72 73 20 64 6F 6E 6E 65 73 20 65 73 74 20 eurs donnes est
000190: 61 64 6D 69 73 73 69 62 6C 65 0D 0A 20 20 20 20 admissible..
0001A0: 20 20 20 20 20 4A 52 20 43 2C 4F 4B 4E 42 53 45 JR C,OKNBSE
0001B0: 43 20 3B 43 41 52 52 59 20 73 69 20 4F 4B 20 4E C ;CARRY si OK N
0001C0: 43 20 73 69 20 6E 6F 6E 20 65 74 20 43 20 63 6F C si non et C co
0001D0: 6E 74 69 65 6E 74 20 4E 42 53 45 43 20 4D 41 58 ntient NBSEC MAX
0001E0: 49 20 2E 20 44 61 6E 73 0D 0A 20 3B 20 20 20 20 I . Dans.. ;
0001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
Size : 512 (Real : 512)
000000: 3B 39 39 25 20 64 65 73 20 63 61 73 20 63 27 65 ;99% des cas c'e
000010: 73 74 20 74 6F 75 6A 6F 75 72 73 20 4F 4B 20 67 st toujours OK g
000020: 72 61 63 65 20 61 75 20 72 6F 75 74 69 6E 65 73 race au routines
000030: 0D 0A 20 20 20 20 20 20 20 20 20 53 45 54 20 36 .. SET 6
000040: 2C 28 48 4C 29 20 20 20 3B 70 72 65 63 65 64 65 ,(HL) ;precede
000050: 6E 74 65 73 20 2E 0D 0A 20 20 20 20 20 20 20 20 ntes ...
000060: 20 4C 44 20 41 2C 43 20 20 20 20 20 20 20 3B 52 LD A,C ;R
000070: 65 63 74 69 66 69 65 72 20 4E 42 53 45 43 20 70 ectifier NBSEC p
000080: 6F 75 72 20 6E 65 20 70 61 73 20 70 6C 61 6E 74 our ne pas plant
000090: 65 72 20 6C 65 20 70 72 6F 67 72 61 6D 6D 65 20 er le programme
0000A0: 6D 61 69 73 0D 0A 20 20 20 20 20 20 20 20 20 4C mais.. L
0000B0: 44 20 28 4E 42 53 45 43 29 2C 41 20 3B 6C 61 20 D (NBSEC),A ;la
0000C0: 63 6F 70 69 65 20 73 65 72 61 20 72 61 74 65 65 copie sera ratee
0000D0: 0D 0A 20 3B 0D 0A 20 4F 4B 4E 42 53 45 43 20 4C .. ;.. OKNBSEC L
0000E0: 44 20 41 2C 28 47 41 50 46 4F 52 4D 29 20 20 3B D A,(GAPFORM) ;
0000F0: 56 6F 69 72 20 73 69 20 6C 61 20 6C 6F 6E 67 75 Voir si la longu
000100: 65 75 72 20 64 75 20 47 41 50 20 65 73 74 20 61 eur du GAP est a
000110: 64 6D 69 73 73 69 62 6C 65 20 70 6F 75 72 0D 0A dmissible pour..
000120: 20 20 20 20 20 20 20 20 20 4C 44 20 42 2C 41 20 LD B,A
000130: 20 20 20 20 20 20 20 20 20 3B 6C 65 20 66 6F 72 ;le for
000140: 6D 61 74 0D 0A 20 20 20 20 20 20 20 20 20 50 55 mat.. PU
000150: 53 48 20 42 43 20 20 20 20 20 20 20 20 20 3B 50 SH BC ;P
000160: 72 65 73 65 72 76 65 72 20 47 41 50 23 33 20 74 reserver GAP#3 t
000170: 72 6F 75 76 65 0D 0A 20 20 20 20 20 20 20 20 20 rouve..
000180: 50 55 53 48 20 48 4C 20 20 20 20 20 20 20 20 20 PUSH HL
000190: 3B 50 72 65 73 65 72 76 65 72 20 70 6F 69 6E 74 ;Preserver point
0001A0: 65 75 72 20 65 74 61 74 20 70 69 73 74 65 0D 0A eur etat piste..
0001B0: 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 43 41 CALL CA
0001C0: 4C 49 47 41 50 0D 0A 20 20 20 20 20 20 20 20 20 LIGAP..
0001D0: 43 41 4C 4C 20 53 45 54 47 52 57 20 20 20 20 20 CALL SETGRW
0001E0: 3B 52 65 66 61 69 72 65 20 47 41 50 20 52 57 20 ;Refaire GAP RW
0001F0: 61 75 20 63 61 73 20 6F 75 20 47 41 50 23 33 20 au cas ou GAP#3
Size : 512 (Real : 512)
000000: 61 75 72 61 69 74 20 65 74 65 20 63 68 61 6E 67 aurait ete chang
000010: 65 0D 0A 20 20 20 20 20 20 20 20 20 50 4F 50 20 e.. POP
000020: 48 4C 0D 0A 20 20 20 20 20 20 20 20 20 50 4F 50 HL.. POP
000030: 20 42 43 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 BC.. ;..
000040: 20 20 4C 44 20 41 2C 28 47 41 50 46 4F 52 4D 29 LD A,(GAPFORM)
000050: 20 20 3B 47 41 50 23 33 20 61 20 63 68 61 6E 67 ;GAP#3 a chang
000060: 65 20 3F 0D 0A 20 20 20 20 20 20 20 20 20 43 50 e ?.. CP
000070: 20 42 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 20 B.. JR
000080: 5A 2C 50 41 52 45 43 54 49 46 20 20 20 3B 4E 4F Z,PARECTIF ;NO
000090: 4E 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 N.. ;..
0000A0: 53 45 54 20 33 2C 28 48 4C 29 20 20 20 20 20 20 SET 3,(HL)
0000B0: 3B 53 69 67 6E 61 6C 65 72 20 71 75 65 20 6C 61 ;Signaler que la
0000C0: 20 74 61 69 6C 6C 65 20 64 75 20 47 41 50 20 61 taille du GAP a
0000D0: 20 65 74 65 20 72 65 63 74 69 66 69 65 65 0D 0A ete rectifiee..
0000E0: 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 ;..
0000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000100: 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D --------------
000110: 2D 2D 2D 2D 2D 0D 0A 20 0D 0A 20 20 20 20 20 4C -----.. .. L
000120: 65 73 20 70 61 72 61 6D 7D 74 72 65 73 20 64 75 es param}tres du
000130: 20 66 6F 72 6D 61 74 20 74 65 73 74 7B 73 20 20 format test{s
000140: 2C 20 20 6F 6E 20 20 72 65 63 6F 70 69 65 20 6C , on recopie l
000150: 65 73 20 69 6E 64 69 63 61 74 69 6F 6E 73 20 75 es indications u
000160: 74 69 6C 65 73 20 64 65 0D 0A 20 46 4C 41 47 46 tiles de.. FLAGF
000170: 4E 43 20 64 61 6E 73 20 6E 6F 74 72 65 20 6F 63 NC dans notre oc
000180: 74 65 74 20 64 27 7B 74 61 74 20 70 69 73 74 65 tet d'{tat piste
000190: 20 2E 20 20 4C 27 6F 70 7B 72 61 74 69 6F 6E 20 . L'op{ration
0001A0: 52 4C 43 41 20 6D 65 74 20 6C 65 20 43 41 52 52 RLCA met le CARR
0001B0: 59 20 63 68 61 71 75 65 0D 0A 20 66 6F 69 73 20 Y chaque.. fois
0001C0: 71 75 65 20 6C 65 20 62 69 74 20 6C 65 20 70 6C que le bit le pl
0001D0: 75 73 20 40 20 67 61 75 63 68 65 20 64 65 20 6C us @ gauche de l
0001E0: 27 6F 63 74 65 74 20 65 73 74 20 40 20 31 20 2E 'octet est @ 1 .
0001F0: 0D 0A 20 0D 0A 20 20 20 20 20 20 20 20 20 20 20 .. ..
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000010: 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D -------------
000020: 2D 2D 2D 2D 2D 2D 0D 0A 20 3B 0D 0A 20 50 41 52 ------.. ;.. PAR
000030: 45 43 54 49 46 20 4C 44 20 41 2C 28 46 4C 41 47 ECTIF LD A,(FLAG
000040: 46 4E 43 29 20 3B 52 65 63 6F 70 69 65 72 20 6C FNC) ;Recopier l
000050: 65 73 20 69 6E 64 69 63 61 74 69 6F 6E 73 20 75 es indications u
000060: 74 69 6C 65 73 20 64 65 20 46 4C 41 47 46 4E 43 tiles de FLAGFNC
000070: 0D 0A 20 20 20 20 20 20 20 20 20 52 4C 43 41 20 .. RLCA
000080: 20 20 20 20 20 20 20 20 20 20 20 3B 64 61 6E 73 ;dans
000090: 20 6C 61 20 6C 69 73 74 65 20 64 65 20 65 72 72 la liste de err
0000A0: 65 75 72 73 20 70 6F 73 73 69 62 6C 65 73 0D 0A eurs possibles..
0000B0: 20 20 20 20 20 20 20 20 20 4A 52 20 4E 43 2C 50 JR NC,P
0000C0: 41 52 41 54 45 0D 0A 20 20 20 20 20 20 20 20 20 ARATE..
0000D0: 53 45 54 20 34 2C 28 48 4C 29 20 20 20 20 20 20 SET 4,(HL)
0000E0: 3B 41 6E 61 6C 79 73 65 20 72 61 74 65 65 20 2E ;Analyse ratee .
0000F0: 20 50 65 72 73 6F 6E 6E 65 6C 6C 65 6D 65 6E 74 Personnellement
000100: 20 63 61 20 6D 27 65 74 6F 6E 6E 65 72 61 69 74 ca m'etonnerait
000110: 0D 0A 20 50 41 52 41 54 45 20 20 52 4C 43 41 20 .. PARATE RLCA
000120: 20 20 20 20 20 20 20 20 20 20 20 3B 6D 61 69 73 ;mais
000130: 20 76 61 20 73 61 76 6F 69 72 20 2E 2E 2E 0D 0A va savoir .....
000140: 20 20 20 20 20 20 20 20 20 4A 52 20 4E 43 2C 50 JR NC,P
000150: 41 53 52 45 50 41 0D 0A 20 20 20 20 20 20 20 20 ASREPA..
000160: 20 53 45 54 20 30 2C 28 48 4C 29 20 20 20 20 20 SET 0,(HL)
000170: 20 3B 50 69 73 74 65 20 72 65 70 61 72 65 65 20 ;Piste reparee
000180: 70 6C 75 73 20 6F 75 20 6D 6F 69 6E 73 20 62 69 plus ou moins bi
000190: 65 6E 0D 0A 20 50 41 53 52 45 50 41 20 52 4C 43 en.. PASREPA RLC
0001A0: 41 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 20 4E A.. JR N
0001B0: 43 2C 50 41 53 4D 55 4C 54 0D 0A 20 20 20 20 20 C,PASMULT..
0001C0: 20 20 20 20 53 45 54 20 31 2C 28 48 4C 29 20 20 SET 1,(HL)
0001D0: 20 20 20 20 3B 50 6C 75 73 69 65 75 72 73 20 74 ;Plusieurs t
0001E0: 61 69 6C 6C 65 73 20 64 65 20 66 6F 72 6D 61 74 ailles de format
0001F0: 20 70 6F 73 73 69 62 6C 65 73 20 28 65 63 72 61 possibles (ecra
Size : 512 (Real : 512)
000000: 73 65 73 29 0D 0A 20 50 41 53 4D 55 4C 54 20 52 ses).. PASMULT R
000010: 4C 43 41 20 20 20 20 20 20 20 20 20 20 20 20 3B LCA ;
000020: 28 41 6D 62 69 67 75 69 74 65 20 61 73 73 65 7A (Ambiguite assez
000030: 20 72 61 72 65 20 2E 29 0D 0A 20 20 20 20 20 20 rare .)..
000040: 20 20 20 4A 52 20 4E 43 2C 50 41 45 43 0D 0A 20 JR NC,PAEC..
000050: 20 20 20 20 20 20 20 20 53 45 54 20 32 2C 28 48 SET 2,(H
000060: 4C 29 20 20 20 20 20 20 3B 50 72 65 73 65 6E 63 L) ;Presenc
000070: 65 20 63 65 72 74 61 69 6E 65 20 64 65 20 73 65 e certaine de se
000080: 63 74 65 75 72 73 20 65 63 72 61 73 65 73 0D 0A cteurs ecrases..
000090: 20 50 41 45 43 20 20 20 20 52 4C 43 41 0D 0A 20 PAEC RLCA..
0000A0: 20 20 20 20 20 20 20 20 52 4C 43 41 20 20 20 20 RLCA
0000B0: 20 20 20 20 20 20 20 20 3B 4C 65 73 20 32 20 62 ;Les 2 b
0000C0: 69 74 73 20 73 75 69 76 61 6E 74 73 20 73 6F 6E its suivants son
0000D0: 74 20 69 6E 75 74 69 6C 65 73 0D 0A 20 20 20 20 t inutiles..
0000E0: 20 20 20 20 20 52 4C 43 41 0D 0A 20 20 20 20 20 RLCA..
0000F0: 20 20 20 20 4A 52 20 4E 43 2C 43 4F 4E 46 0D 0A JR NC,CONF..
000100: 20 20 20 20 20 20 20 20 20 53 45 54 20 35 2C 28 SET 5,(
000110: 48 4C 29 20 20 20 20 20 20 3B 47 41 50 20 6E 6F HL) ;GAP no
000120: 6E 20 63 6F 6E 66 6F 72 6D 65 20 28 43 61 20 63 n conforme (Ca c
000130: 27 65 73 74 20 6D 6F 72 74 65 6C 20 70 6F 75 72 'est mortel pour
000140: 20 6C 61 20 63 6F 70 69 65 29 0D 0A 20 43 4F 4E la copie).. CON
000150: 46 20 20 20 20 49 4E 43 20 48 4C 20 20 20 20 20 F INC HL
000160: 20 20 20 20 20 3B 43 27 65 73 74 20 66 69 6E 69 ;C'est fini
000170: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 50 .. LD (P
000180: 4F 49 4E 45 52 50 29 2C 48 4C 20 3B 4F 6E 20 72 OINERP),HL ;On r
000190: 61 6E 67 65 20 6E 6F 74 72 65 20 6E 6F 75 76 65 ange notre nouve
0001A0: 61 75 20 70 6F 69 6E 74 65 75 72 20 64 65 20 6C au pointeur de l
0001B0: 69 73 74 65 20 2E 0D 0A 20 3B 0D 0A 20 20 20 20 iste ... ;..
0001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001D0: 20 20 20 20 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D ------
0001E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 -------------..
0001F0: 0D 0A 20 20 20 20 20 54 6F 75 74 20 65 73 74 20 .. Tout est
Size : 512 (Real : 512)
000000: 6D 61 69 6E 74 65 6E 61 6E 74 20 76 7B 72 69 66 maintenant v{rif
000010: 69 7B 20 65 74 20 6C 65 73 20 63 61 75 73 65 73 i{ et les causes
000020: 20 70 6F 73 73 69 62 6C 65 73 20 64 27 75 6E 65 possibles d'une
000030: 20 65 72 72 65 75 72 20 64 65 20 63 6F 70 69 65 erreur de copie
000040: 0D 0A 20 73 6F 6E 74 20 6E 6F 74 7B 65 73 20 65 .. sont not{es e
000050: 74 20 20 72 61 6E 67 7B 65 73 20 20 2E 20 20 4F t rang{es . O
000060: 6E 20 20 63 6F 6D 6D 65 6E 63 65 20 20 6C 65 20 n commence le
000070: 20 73 74 6F 63 6B 61 67 65 20 20 70 72 6F 70 72 stockage propr
000080: 65 6D 65 6E 74 20 20 64 69 74 20 20 2E 20 4C 61 ement dit . La
000090: 0D 0A 20 73 74 72 75 63 74 75 72 65 20 64 75 20 .. structure du
0000A0: 73 74 6F 63 6B 61 67 65 20 61 20 7B 74 7B 20 64 stockage a {t{ d
0000B0: 7B 63 72 69 74 65 20 70 72 7B 63 7B 64 65 6D 65 {crite pr{c{deme
0000C0: 6E 74 20 2E 0D 0A 20 0D 0A 20 20 20 20 20 20 20 nt ... ..
0000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000E0: 20 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D ---------
0000F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 3B 0D 0A ----------.. ;..
000100: 20 3B 2D 20 4D 65 6D 6F 72 69 73 65 72 20 6C 65 ;- Memoriser le
000110: 73 20 64 6F 6E 6E 65 65 73 20 70 69 73 74 65 73 s donnees pistes
000120: 20 64 61 6E 73 20 6C 65 20 62 75 66 66 65 72 20 dans le buffer
000130: 2D 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 -.. ;..
000140: 4C 44 20 48 4C 2C 28 50 4F 49 4E 50 49 53 29 20 LD HL,(POINPIS)
000150: 3B 52 65 70 72 65 6E 64 72 65 20 6C 65 20 70 6F ;Reprendre le po
000160: 69 6E 74 65 75 72 20 62 75 66 66 65 72 20 2E 0D inteur buffer ..
000170: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 44 45 2C . LD DE,
000180: 28 4C 4F 4E 47 53 45 43 29 20 3B 53 74 6F 63 6B (LONGSEC) ;Stock
000190: 65 72 20 6C 6F 6E 67 75 65 75 72 20 64 65 20 73 er longueur de s
0001A0: 65 63 74 65 75 72 20 65 6E 20 6F 63 74 65 74 73 ecteur en octets
0001B0: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 48 .. LD (H
0001C0: 4C 29 2C 45 0D 0A 20 20 20 20 20 20 20 20 20 49 L),E.. I
0001D0: 4E 43 20 48 4C 0D 0A 20 20 20 20 20 20 20 20 20 NC HL..
0001E0: 4C 44 20 28 48 4C 29 2C 44 0D 0A 20 20 20 20 20 LD (HL),D..
0001F0: 20 20 20 20 49 4E 43 20 48 4C 0D 0A 20 3B 0D 0A INC HL.. ;..
Size : 512 (Real : 512)
000000: 20 50 41 46 4C 45 4E 20 20 45 58 20 44 45 2C 48 PAFLEN EX DE,H
000010: 4C 20 20 20 20 20 20 20 20 3B 43 6F 70 69 65 72 L ;Copier
000020: 20 4C 45 4E 53 45 43 20 2D 20 4E 42 53 45 43 20 LENSEC - NBSEC
000030: 2D 20 47 41 50 46 4F 52 4D 20 2D 20 4F 43 52 45 - GAPFORM - OCRE
000040: 4D 50 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 MP.. LD
000050: 48 4C 2C 4C 45 4E 53 45 43 20 20 20 20 3B 4C 65 HL,LENSEC ;Le
000060: 20 70 6F 69 6E 74 65 75 72 20 70 61 73 73 65 20 pointeur passe
000070: 64 65 20 48 4C 20 64 61 6E 73 20 44 45 20 70 6F de HL dans DE po
000080: 75 72 20 6C 65 73 20 4C 44 49 52 0D 0A 20 20 20 ur les LDIR..
000090: 20 20 20 20 20 20 4C 44 20 42 43 2C 34 0D 0A 20 LD BC,4..
0000A0: 20 20 20 20 20 20 20 20 4C 44 49 52 0D 0A 20 3B LDIR.. ;
0000B0: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 41 2C .. LD A,
0000C0: 28 4E 42 53 45 43 29 20 20 20 20 3B 43 6F 70 69 (NBSEC) ;Copi
0000D0: 65 72 20 6C 65 73 20 49 44 53 0D 0A 20 20 20 20 er les IDS..
0000E0: 20 20 20 20 20 4C 44 20 43 2C 41 0D 0A 20 20 20 LD C,A..
0000F0: 20 20 20 20 20 20 4C 44 20 42 2C 30 0D 0A 20 20 LD B,0..
000100: 20 20 20 20 20 20 20 50 55 53 48 20 42 43 20 20 PUSH BC
000110: 20 20 20 20 20 20 20 3B 50 72 65 73 65 72 76 65 ;Preserve
000120: 72 20 6E 6F 6D 62 72 65 20 73 65 63 74 65 75 72 r nombre secteur
000130: 73 20 64 61 6E 73 20 42 43 20 70 6F 75 72 20 4C s dans BC pour L
000140: 44 49 52 0D 0A 20 20 20 20 20 20 20 20 20 53 4C DIR.. SL
000150: 41 20 43 20 20 20 20 20 20 20 20 20 20 20 3B 43 A C ;C
000160: 20 3D 20 43 2A 34 20 70 75 69 73 71 75 27 6F 6E = C*4 puisqu'on
000170: 20 61 20 34 20 49 44 53 20 70 61 72 20 73 65 63 a 4 IDS par sec
000180: 74 65 75 72 0D 0A 20 20 20 20 20 20 20 20 20 53 teur.. S
000190: 4C 41 20 43 0D 0A 20 20 20 20 20 20 20 20 20 4C LA C.. L
0001A0: 44 20 48 4C 2C 49 44 49 4E 44 52 41 20 20 20 3B D HL,IDINDRA ;
0001B0: 4F 6E 20 65 6E 20 70 72 6F 66 69 74 65 20 70 6F On en profite po
0001C0: 75 72 20 69 6E 69 74 69 61 6C 69 73 65 72 20 6C ur initialiser l
0001D0: 65 20 70 6F 69 6E 74 65 75 72 0D 0A 20 20 20 20 e pointeur..
0001E0: 20 20 20 20 20 4C 44 20 28 50 4F 49 4E 54 49 44 LD (POINTID
0001F0: 29 2C 48 4C 20 3B 64 65 73 20 49 44 53 20 70 6F ),HL ;des IDS po
Size : 512 (Real : 512)
000000: 75 72 20 6C 65 20 73 74 6F 63 6B 61 67 65 20 64 ur le stockage d
000010: 65 73 20 64 6F 6E 6E 65 65 73 0D 0A 20 20 20 20 es donnees..
000020: 20 20 20 20 20 4C 44 49 52 0D 0A 20 20 20 20 20 LDIR..
000030: 20 20 20 20 50 4F 50 20 42 43 0D 0A 20 3B 0D 0A POP BC.. ;..
000040: 20 20 20 20 20 20 20 20 20 4C 44 20 28 53 54 4F LD (STO
000050: 4B 45 52 52 29 2C 44 45 20 3B 4C 61 20 6C 69 73 KERR),DE ;La lis
000060: 74 65 20 64 65 73 20 65 74 61 74 73 20 64 27 65 te des etats d'e
000070: 72 72 65 75 72 20 65 73 74 20 73 74 6F 63 6B 65 rreur est stocke
000080: 65 20 61 20 6C 61 0D 0A 20 20 20 20 20 20 20 20 e a la..
000090: 20 50 55 53 48 20 42 43 20 20 20 20 20 20 20 20 PUSH BC
0000A0: 20 3B 73 75 69 74 65 20 64 65 73 20 49 44 53 0D ;suite des IDS.
0000B0: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 48 4C 2C . LD HL,
0000C0: 4C 49 53 54 45 52 52 0D 0A 20 20 20 20 20 20 20 LISTERR..
0000D0: 20 20 4C 44 49 52 0D 0A 20 20 20 20 20 20 20 20 LDIR..
0000E0: 20 50 4F 50 20 42 43 20 20 20 20 20 20 20 20 20 POP BC
0000F0: 20 3B 42 43 20 63 6F 6E 74 69 65 6E 74 20 74 6F ;BC contient to
000100: 75 6A 6F 75 72 73 20 6C 65 20 6E 6F 6D 62 72 65 ujours le nombre
000110: 20 64 65 20 73 65 63 74 65 75 72 73 0D 0A 20 3B de secteurs.. ;
000120: 0D 0A 20 20 20 20 20 20 20 20 20 45 58 20 44 45 .. EX DE
000130: 2C 48 4C 20 20 20 20 3B 4C 65 20 70 6F 69 6E 74 ,HL ;Le point
000140: 65 75 72 20 64 65 73 20 61 64 72 65 73 73 65 73 eur des adresses
000150: 20 62 75 66 66 65 72 20 65 73 74 20 72 65 6D 69 buffer est remi
000160: 73 20 64 61 6E 73 20 48 4C 0D 0A 20 20 20 20 20 s dans HL..
000170: 20 20 20 20 50 55 53 48 20 48 4C 20 20 20 20 20 PUSH HL
000180: 3B 65 74 20 72 65 63 6F 70 69 65 20 64 61 6E 73 ;et recopie dans
000190: 20 49 58 0D 0A 20 20 20 20 20 20 20 20 20 50 4F IX.. PO
0001A0: 50 20 49 58 0D 0A 20 20 20 20 20 20 20 20 20 41 P IX.. A
0001B0: 44 44 20 48 4C 2C 42 43 20 20 20 3B 46 61 69 72 DD HL,BC ;Fair
0001C0: 65 20 70 6C 61 63 65 20 70 6F 75 72 20 61 64 72 e place pour adr
0001D0: 65 73 73 65 73 20 62 75 66 66 65 72 0D 0A 20 20 esses buffer..
0001E0: 20 20 20 20 20 20 20 41 44 44 20 48 4C 2C 42 43 ADD HL,BC
0001F0: 20 20 20 3B 32 20 66 6F 69 73 20 63 61 72 20 32 ;2 fois car 2
Size : 512 (Real : 512)
000000: 20 6F 63 74 65 74 73 20 70 61 72 20 61 64 72 65 octets par adre
000010: 73 73 65 0D 0A 20 20 20 20 20 20 20 20 20 49 4E sse.. IN
000020: 43 20 48 4C 20 20 20 20 20 20 3B 45 74 20 65 6E C HL ;Et en
000030: 63 6F 72 65 20 32 20 70 6F 75 72 20 6D 65 6D 6F core 2 pour memo
000040: 20 64 65 70 61 72 74 20 70 72 6F 63 68 61 69 6E depart prochain
000050: 65 20 70 69 73 74 65 0D 0A 20 20 20 20 20 20 20 e piste..
000060: 20 20 49 4E 43 20 48 4C 0D 0A 20 20 20 20 20 20 INC HL..
000070: 20 20 20 4C 44 20 28 41 44 42 55 46 46 29 2C 48 LD (ADBUFF),H
000080: 4C 20 3B 43 27 65 73 74 20 61 20 70 61 72 74 69 L ;C'est a parti
000090: 72 20 64 65 20 41 44 42 55 46 46 20 71 75 27 6F r de ADBUFF qu'o
0000A0: 6E 20 73 74 6F 63 6B 65 0D 0A 20 3B 0D 0A 20 20 n stocke.. ;..
0000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000C0: 20 20 20 20 20 20 20 20 20 20 20 20 2D 2D 2D 2D ----
0000D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D ---------------.
0000E0: 0A 20 0D 0A 20 20 20 20 20 54 6F 75 74 20 63 65 . .. Tout ce
0000F0: 20 71 75 69 20 63 6F 6E 63 65 72 6E 65 20 6C 61 qui concerne la
000100: 20 70 69 73 74 65 20 65 73 74 20 20 69 63 69 20 piste est ici
000110: 73 74 6F 63 6B 7B 20 40 20 6C 27 65 78 63 65 70 stock{ @ l'excep
000120: 74 69 6F 6E 20 64 65 73 20 64 6F 6E 6E 7B 65 73 tion des donn{es
000130: 20 2E 0D 0A 20 42 72 65 66 20 72 61 70 70 65 6C ... Bref rappel
000140: 20 64 65 20 6C 61 20 73 69 67 6E 69 66 69 63 61 de la significa
000150: 74 69 6F 6E 20 64 65 73 20 70 6F 69 6E 74 65 75 tion des pointeu
000160: 72 73 20 2E 0D 0A 20 0D 0A 20 20 20 20 20 50 4F rs ... .. PO
000170: 49 4E 50 49 53 20 3A 20 50 6F 69 6E 74 65 75 72 INPIS : Pointeur
000180: 20 67 6C 6F 62 61 6C 20 6F 75 20 64 65 76 72 61 global ou devra
000190: 20 72 65 70 72 65 6E 64 72 65 20 6C 65 20 73 74 reprendre le st
0001A0: 6F 63 6B 61 67 65 20 73 75 69 76 61 6E 74 20 2E ockage suivant .
0001B0: 0D 0A 20 20 20 20 20 50 4F 49 4E 54 49 44 20 3A .. POINTID :
0001C0: 20 31 65 72 20 6F 63 74 65 74 20 64 65 73 20 34 1er octet des 4
0001D0: 20 49 44 53 20 64 75 20 73 65 63 74 65 75 72 20 IDS du secteur
0001E0: 40 20 73 74 6F 63 6B 65 72 20 2E 0D 0A 20 20 20 @ stocker ...
0001F0: 20 20 53 54 4F 4B 45 52 52 20 3A 20 50 6F 69 6E STOKERR : Poin
Size : 512 (Real : 512)
000000: 74 65 75 72 20 64 65 20 6C 61 20 6C 69 73 74 65 teur de la liste
000010: 20 64 65 73 20 65 72 72 65 75 72 73 20 2E 20 20 des erreurs .
000020: 20 20 0D 0A 20 20 20 20 20 41 44 42 55 46 46 20 .. ADBUFF
000030: 20 3A 20 41 64 72 65 73 73 65 20 64 65 20 64 7B : Adresse de d{
000040: 70 61 72 74 20 70 6F 75 72 20 6C 65 20 73 74 6F part pour le sto
000050: 63 6B 61 67 65 20 64 27 75 6E 20 73 65 63 74 65 ckage d'un secte
000060: 75 72 0D 0A 20 20 20 20 20 49 58 20 63 6F 6E 74 ur.. IX cont
000070: 69 65 6E 74 20 6C 65 20 64 7B 62 75 74 20 64 65 ient le d{but de
000080: 20 6C 61 20 7A 6F 6E 65 20 20 6F 75 20 20 6C 27 la zone ou l'
000090: 6F 6E 20 6D 7B 6D 6F 72 69 73 65 20 6C 65 73 20 on m{morise les
0000A0: 61 64 72 65 73 73 65 73 20 64 65 20 64 7B 70 61 adresses de d{pa
0000B0: 72 74 0D 0A 20 64 65 73 20 64 6F 6E 6E 7B 65 73 rt.. des donn{es
0000C0: 20 64 65 20 63 68 61 71 75 65 20 73 65 63 74 65 de chaque secte
0000D0: 75 72 73 20 2E 0D 0A 20 0D 0A 20 20 20 20 20 44 urs ... .. D
0000E0: 61 6E 73 20 6C 65 20 63 61 73 20 20 64 27 75 6E ans le cas d'un
0000F0: 65 20 20 70 69 73 74 65 20 20 61 62 69 6D 7B 65 e piste abim{e
000100: 20 20 2C 20 20 70 6C 75 73 69 65 75 72 73 20 20 , plusieurs
000110: 74 65 6E 74 61 74 69 76 65 73 20 20 64 65 20 72 tentatives de r
000120: 65 6C 65 63 74 75 72 65 0D 0A 20 70 65 75 76 65 electure.. peuve
000130: 6E 74 20 70 61 72 66 6F 69 73 20 73 61 75 76 65 nt parfois sauve
000140: 72 20 6C 65 73 20 6D 65 75 62 6C 65 73 20 2E 2E r les meubles ..
000150: 2E 20 52 45 4C 49 52 45 20 73 65 72 61 20 75 74 . RELIRE sera ut
000160: 69 6C 65 20 2E 0D 0A 20 0D 0A 20 20 20 20 20 20 ile ... ..
000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000180: 20 20 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D --------
000190: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 3B 0D -----------.. ;.
0001A0: 0A 20 3B 2D 20 52 6F 75 74 69 6E 65 20 6C 65 63 . ;- Routine lec
0001B0: 74 75 72 65 20 70 68 79 73 69 71 75 65 20 2D 0D ture physique -.
0001C0: 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 . ;.. LD
0001D0: 20 49 59 2C 52 45 4C 49 52 45 20 20 20 20 3B 4E IY,RELIRE ;N
0001E0: 6F 6D 62 72 65 20 64 65 20 72 65 6C 65 63 74 75 ombre de relectu
0001F0: 72 65 73 20 73 69 20 73 65 63 74 65 75 72 20 56 res si secteur V
Size : 512 (Real : 512)
000000: 52 41 49 4D 45 4E 54 20 61 62 69 6D 65 0D 0A 20 RAIMENT abime..
000010: 20 20 20 20 20 20 20 20 58 4F 52 20 41 0D 0A 20 XOR A..
000020: 20 20 20 20 20 20 20 20 4C 44 20 28 43 4F 55 4E LD (COUN
000030: 54 29 2C 41 20 20 20 20 3B 43 6F 6D 70 74 65 75 T),A ;Compteu
000040: 72 20 61 20 7A 65 72 6F 20 70 6F 75 72 20 76 69 r a zero pour vi
000050: 73 65 72 20 6C 65 73 20 73 65 63 74 65 75 72 73 ser les secteurs
000060: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 41 2C .. LD A,
000070: 28 4E 42 53 45 43 29 0D 0A 20 20 20 20 20 20 20 (NBSEC)..
000080: 20 20 4C 44 20 42 2C 41 0D 0A 20 3B 0D 0A 20 42 LD B,A.. ;.. B
000090: 43 4C 4C 49 54 50 20 4C 44 20 28 49 59 2B 30 29 CLLITP LD (IY+0)
0000A0: 2C 35 20 20 20 20 20 3B 35 20 52 65 6C 65 63 74 ,5 ;5 Relect
0000B0: 75 72 65 73 20 65 6E 20 63 61 73 20 64 65 20 70 ures en cas de p
0000C0: 72 6F 62 6C 65 6D 65 0D 0A 20 3B 0D 0A 20 20 20 robleme.. ;..
0000D0: 20 20 20 20 20 20 4C 44 20 48 4C 2C 28 41 44 42 LD HL,(ADB
0000E0: 55 46 46 29 20 20 3B 41 64 72 65 73 73 65 20 64 UFF) ;Adresse d
0000F0: 65 20 73 74 6F 63 6B 61 67 65 20 64 75 20 73 65 e stockage du se
000100: 63 74 65 75 72 0D 0A 20 20 20 20 20 20 20 20 20 cteur..
000110: 50 55 53 48 20 42 43 0D 0A 20 20 20 20 20 20 20 PUSH BC..
000120: 20 20 4C 44 20 28 49 58 2B 30 29 2C 4C 20 20 20 LD (IX+0),L
000130: 20 20 3B 4D 65 6D 6F 72 69 73 65 72 20 64 65 70 ;Memoriser dep
000140: 61 72 74 20 64 65 73 20 64 6F 6E 6E 65 65 73 20 art des donnees
000150: 64 75 20 73 65 63 74 65 75 72 20 65 6E 20 63 6F du secteur en co
000160: 75 72 73 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 urs.. LD
000170: 20 28 49 58 2B 31 29 2C 48 20 20 20 20 20 3B 64 (IX+1),H ;d
000180: 61 6E 73 20 6C 61 20 6C 69 73 74 65 0D 0A 20 3B ans la liste.. ;
000190: 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 .. CALL
0001A0: 23 42 42 37 38 20 20 20 20 20 20 3B 4D 65 6D 6F #BB78 ;Memo
0001B0: 72 69 73 65 72 20 70 6F 73 69 74 69 6F 6E 20 63 riser position c
0001C0: 75 72 73 65 75 72 20 74 65 78 74 65 0D 0A 20 20 urseur texte..
0001D0: 20 20 20 20 20 20 20 50 55 53 48 20 48 4C 0D 0A PUSH HL..
0001E0: 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 ;.. LD
0001F0: 48 4C 2C 28 50 4F 49 4E 54 49 44 29 20 3B 31 65 HL,(POINTID) ;1e
Size : 512 (Real : 512)
000000: 72 20 6F 63 74 65 74 20 64 65 73 20 34 20 49 44 r octet des 4 ID
000010: 53 20 61 20 6C 69 72 65 0D 0A 20 20 20 20 20 20 S a lire..
000020: 20 20 20 50 55 53 48 20 48 4C 0D 0A 20 3B 0D 0A PUSH HL.. ;..
000030: 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 54 52 CALL TR
000040: 41 4E 53 33 49 44 20 20 20 3B 4C 65 73 20 6D 65 ANS3ID ;Les me
000050: 74 74 72 65 20 64 61 6E 73 20 6C 61 20 7A 6F 6E ttre dans la zon
000060: 65 20 71 75 69 20 73 65 72 74 20 61 75 78 20 69 e qui sert aux i
000070: 6E 73 74 72 75 63 74 69 6F 6E 73 0D 0A 20 20 20 nstructions..
000080: 20 20 20 20 20 20 49 4E 43 20 48 4C 20 20 20 20 INC HL
000090: 20 20 20 20 20 20 3B 64 65 20 6C 65 63 74 75 72 ;de lectur
0000A0: 65 20 73 61 75 66 20 6C 61 20 70 69 73 74 65 20 e sauf la piste
0000B0: 2E 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 ... LD (
0000C0: 50 4F 49 4E 54 49 44 29 2C 48 4C 20 3B 52 61 6E POINTID),HL ;Ran
0000D0: 67 65 72 20 6E 6F 76 65 61 75 20 70 6F 69 6E 74 ger noveau point
0000E0: 65 75 72 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 eur.. ;..
0000F0: 20 20 4C 44 20 48 4C 2C 23 31 39 31 36 20 20 20 LD HL,#1916
000100: 20 3B 41 66 66 69 63 68 65 72 20 73 65 63 74 65 ;Afficher secte
000110: 75 72 20 65 6E 20 63 6F 75 72 73 20 64 65 20 6C ur en cours de l
000120: 65 63 74 75 72 65 0D 0A 20 20 20 20 20 20 20 20 ecture..
000130: 20 43 41 4C 4C 20 23 42 42 37 35 20 20 20 20 20 CALL #BB75
000140: 3B 41 20 6C 61 20 70 6F 73 69 74 69 6F 6E 20 76 ;A la position v
000150: 6F 75 6C 75 65 0D 0A 20 20 20 20 20 20 20 20 20 oulue..
000160: 50 4F 50 20 48 4C 20 20 20 20 20 20 20 20 20 3B POP HL ;
000170: 52 65 70 72 65 6E 64 72 65 20 6C 65 73 20 49 44 Reprendre les ID
000180: 53 20 65 6E 20 63 6F 75 72 73 0D 0A 20 20 20 20 S en cours..
000190: 20 20 20 20 20 43 41 4C 4C 20 41 46 46 34 49 44 CALL AFF4ID
0001A0: 20 20 20 20 3B 65 74 20 6C 65 73 20 61 66 66 69 ;et les affi
0001B0: 63 68 65 72 0D 0A 20 20 20 20 20 20 20 20 20 50 cher.. P
0001C0: 4F 50 20 48 4C 20 20 20 20 20 20 20 20 20 3B 52 OP HL ;R
0001D0: 65 70 72 65 6E 64 72 65 20 6C 61 20 70 6F 73 69 eprendre la posi
0001E0: 74 69 6F 6E 20 64 75 20 63 75 72 73 65 75 72 20 tion du curseur
0001F0: 74 65 78 74 65 0D 0A 20 20 20 20 20 20 20 20 20 texte..
Size : 512 (Real : 512)
000000: 43 41 4C 4C 20 23 42 42 37 35 20 20 20 20 20 3B CALL #BB75 ;
000010: 65 74 20 6C 65 20 72 65 6D 65 74 74 72 65 20 61 et le remettre a
000020: 20 73 61 20 70 6C 61 63 65 0D 0A 20 3B 0D 0A 20 sa place.. ;..
000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 2D 2D 2D ---
000050: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000060: 0D 0A 20 0D 0A 20 20 20 20 20 43 69 20 64 65 73 .. .. Ci des
000070: 73 6F 75 73 20 6F 6E 20 7B 74 75 64 69 65 20 64 sous on {tudie d
000080: 27 61 70 72 7D 73 20 46 4C 41 47 46 4E 43 20 20 'apr}s FLAGFNC
000090: 6C 61 20 20 6E 7B 63 7B 73 73 69 74 7B 20 64 65 la n{c{ssit{ de
0000A0: 20 6C 69 72 65 20 65 74 20 73 74 6F 63 6B 65 72 lire et stocker
0000B0: 20 6C 65 0D 0A 20 73 65 63 74 65 75 72 20 2E 20 le.. secteur .
0000C0: 4F 6E 20 6E 27 65 66 66 65 63 74 75 65 72 61 20 On n'effectuera
0000D0: 70 61 73 20 6C 65 20 73 74 6F 63 6B 61 67 65 20 pas le stockage
0000E0: 64 61 6E 73 20 6C 65 73 20 63 61 73 20 73 75 69 dans les cas sui
0000F0: 76 61 6E 74 73 20 3A 0D 0A 20 0D 0A 20 20 20 20 vants :.. ..
000100: 20 43 52 2F 44 44 20 2E 20 20 20 20 51 75 69 20 CR/DD . Qui
000110: 65 73 74 20 74 6F 75 6A 6F 75 72 73 20 75 6E 20 est toujours un
000120: 73 65 63 74 65 75 72 20 76 69 65 72 67 65 20 2E secteur vierge .
000130: 0D 0A 20 20 20 20 20 4D 41 4D 2F 44 41 4D 20 2E .. MAM/DAM .
000140: 20 20 53 65 63 74 65 75 72 20 73 69 6E 69 73 74 Secteur sinist
000150: 72 7B 20 76 6F 6C 6F 6E 74 61 69 72 65 6D 65 6E r{ volontairemen
000160: 74 20 6F 75 20 6E 6F 6E 20 2E 0D 0A 20 20 20 20 t ou non ...
000170: 20 53 45 43 54 45 55 52 20 44 45 20 54 41 49 49 SECTEUR DE TAII
000180: 4C 45 20 30 20 2E 20 74 6F 75 6A 6F 75 72 73 20 LE 0 . toujours
000190: 69 6C 6C 69 73 69 62 6C 65 20 65 74 20 64 65 20 illisible et de
0001A0: 74 6F 75 74 65 20 6D 61 6E 69 7D 72 65 20 6E 65 toute mani}re ne
0001B0: 20 70 65 75 74 20 65 08 5E 74 72 65 0D 0A 20 7B peut e.^tre.. {
0001C0: 63 72 69 74 20 63 6F 6E 76 65 6E 61 62 6C 65 6D crit convenablem
0001D0: 65 6E 74 20 2E 0D 0A 20 20 20 20 20 53 45 43 54 ent ... SECT
0001E0: 45 55 52 20 41 20 45 43 52 41 53 45 52 20 2E 20 EUR A ECRASER .
0001F0: 51 75 69 20 65 73 74 20 75 6E 20 66 61 75 78 20 Qui est un faux
Size : 512 (Real : 512)
000000: 73 65 63 74 65 75 72 20 63 72 7B 7B 20 70 61 72 secteur cr{{ par
000010: 20 45 43 52 41 53 45 52 20 65 74 20 64 65 73 74 ECRASER et dest
000020: 69 6E 7B 20 40 0D 0A 20 64 69 73 70 61 72 61 69 in{ @.. disparai
000030: 08 5E 74 72 65 20 6C 6F 72 73 20 64 65 20 6C 61 .^tre lors de la
000040: 20 72 7B 7B 63 72 69 74 75 72 65 20 64 65 20 20 r{{criture de
000050: 6C 61 20 20 70 69 73 74 65 20 20 2E 20 20 44 61 la piste . Da
000060: 6E 73 20 20 63 65 20 63 61 73 20 2C 20 6F 6E 20 ns ce cas , on
000070: 6E 65 20 64 6F 69 74 0D 0A 20 73 75 72 74 6F 75 ne doit.. surtou
000080: 74 20 70 61 73 20 61 76 61 6E 63 65 72 20 43 4F t pas avancer CO
000090: 55 4E 54 20 63 61 72 20 63 65 20 73 65 63 74 65 UNT car ce secte
0000A0: 75 72 20 6E 27 65 78 69 73 74 65 72 61 20 71 75 ur n'existera qu
0000B0: 27 61 70 72 7D 73 20 6C 65 20 66 6F 72 6D 61 74 'apr}s le format
0000C0: 61 67 65 20 21 0D 0A 20 0D 0A 20 20 20 20 20 20 age !.. ..
0000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000E0: 20 20 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D --------
0000F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 3B 0D -----------.. ;.
000100: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 41 2C 28 . LD A,(
000110: 46 4C 41 47 46 4E 43 29 20 0D 0A 20 20 20 20 20 FLAGFNC) ..
000120: 20 20 20 20 41 4E 44 20 25 30 31 30 30 30 30 30 AND %0100000
000130: 30 20 20 3B 53 69 20 70 69 73 74 65 20 73 69 6E 0 ;Si piste sin
000140: 69 73 74 72 65 65 20 2C 20 74 65 6E 74 65 72 20 istree , tenter
000150: 72 65 70 61 72 61 74 69 6F 6E 20 65 74 20 65 73 reparation et es
000160: 73 61 79 65 72 0D 0A 20 20 20 20 20 20 20 20 20 sayer..
000170: 4A 52 20 4E 5A 2C 4C 49 52 45 20 20 20 20 20 3B JR NZ,LIRE ;
000180: 64 65 20 6C 69 72 65 20 71 75 65 6C 71 75 65 20 de lire quelque
000190: 73 6F 69 74 20 6C 27 7B 74 61 74 20 64 27 65 72 soit l'{tat d'er
0001A0: 72 65 75 72 20 2E 0D 0A 20 3B 0D 0A 20 20 20 20 reur ... ;..
0001B0: 20 20 20 20 20 4C 44 20 48 4C 2C 28 53 54 4F 4B LD HL,(STOK
0001C0: 45 52 52 29 20 3B 50 6F 69 6E 74 65 75 72 20 64 ERR) ;Pointeur d
0001D0: 65 20 6C 61 20 6C 69 73 74 65 20 64 65 73 20 65 e la liste des e
0001E0: 72 72 65 75 72 73 20 2E 20 50 65 75 74 20 61 76 rreurs . Peut av
0001F0: 6F 69 72 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 oir.. LD
Size : 512 (Real : 512)
000000: 20 41 2C 28 48 4C 29 20 20 20 20 20 20 20 3B 70 A,(HL) ;p
000010: 72 69 73 20 6C 61 20 76 61 6C 65 75 72 20 23 37 ris la valeur #7
000020: 46 20 73 69 20 6C 65 20 73 65 63 74 65 75 72 20 F si le secteur
000030: 65 73 74 20 75 6E 20 61 64 64 69 74 69 66 0D 0A est un additif..
000040: 20 20 20 20 20 20 20 20 20 43 50 20 23 37 46 20 CP #7F
000050: 20 20 20 20 20 20 20 20 20 3B 63 72 65 65 20 70 ;cree p
000060: 61 72 20 45 43 52 41 53 45 52 20 2E 20 49 67 6E ar ECRASER . Ign
000070: 6F 72 65 72 20 74 6F 74 61 6C 65 6D 65 6E 74 20 orer totalement
000080: 73 69 20 6F 75 69 20 45 54 0D 0A 20 20 20 20 20 si oui ET..
000090: 20 20 20 20 4A 50 20 5A 2C 53 41 55 54 4C 49 54 JP Z,SAUTLIT
0000A0: 20 20 20 20 3B 4E 45 20 50 41 53 20 49 4E 43 52 ;NE PAS INCR
0000B0: 45 4D 45 4E 54 45 52 20 4C 45 20 43 4F 4D 50 54 EMENTER LE COMPT
0000C0: 45 55 52 20 2E 0D 0A 20 3B 0D 0A 20 20 20 20 20 EUR ... ;..
0000D0: 20 20 20 20 41 4E 44 20 25 30 30 31 31 30 31 31 AND %0011011
0000E0: 31 20 20 3B 53 69 20 70 61 73 20 64 27 65 72 72 1 ;Si pas d'err
0000F0: 65 75 72 20 50 52 4F 56 4F 51 55 45 45 20 73 61 eur PROVOQUEE sa
000100: 75 66 20 45 50 2D 48 44 2D 43 4D 20 2C 20 63 27 uf EP-HD-CM , c'
000110: 65 73 74 20 62 6F 6E 0D 0A 20 20 20 20 20 20 20 est bon..
000120: 20 20 4A 50 20 4E 5A 2C 52 49 45 4E 4C 49 52 45 JP NZ,RIENLIRE
000130: 20 3B 53 69 6E 6F 6E 20 6E 65 20 70 61 73 20 73 ;Sinon ne pas s
000140: 74 6F 63 6B 65 72 20 6C 65 73 20 64 6F 6E 6E 65 tocker les donne
000150: 65 73 20 65 74 20 49 4E 43 2E 20 43 4F 4D 50 54 es et INC. COMPT
000160: 45 55 52 0D 0A 20 3B 0D 0A 20 4C 49 52 45 20 20 EUR.. ;.. LIRE
000170: 20 20 4C 44 20 41 2C 28 51 55 41 54 52 49 44 2B LD A,(QUATRID+
000180: 33 29 20 3B 54 61 69 6C 6C 65 20 30 20 69 67 6E 3) ;Taille 0 ign
000190: 6F 72 65 65 20 65 6E 20 6C 65 63 74 75 72 65 20 oree en lecture
0001A0: 2C 20 6A 75 73 74 65 20 61 76 61 6E 63 65 72 0D , juste avancer.
0001B0: 0A 20 20 20 20 20 20 20 20 20 4F 52 20 41 20 20 . OR A
0001C0: 20 20 20 20 20 20 20 20 20 20 20 3B 63 6F 6D 70 ;comp
0001D0: 74 65 75 72 0D 0A 20 20 20 20 20 20 20 20 20 4A teur.. J
0001E0: 50 20 5A 2C 52 49 45 4E 4C 49 52 45 0D 0A 20 3B P Z,RIENLIRE.. ;
0001F0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000010: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000020: 2D 2D 2D 0D 0A 20 0D 0A 20 20 20 20 20 41 20 63 ---.. .. A c
000030: 65 20 70 6F 69 6E 74 20 2C 20 6F 6E 20 73 61 69 e point , on sai
000040: 74 20 71 75 65 20 6C 65 20 73 65 63 74 65 75 72 t que le secteur
000050: 20 20 70 65 75 74 20 65 08 5E 74 72 65 20 6C 75 peut e.^tre lu
000060: 20 65 74 20 73 74 6F 63 6B 7B 20 2E 20 4F 6E 20 et stock{ . On
000070: 74 65 73 74 65 20 6C 61 0D 0A 20 70 72 7B 73 65 teste la.. pr{se
000080: 6E 63 65 20 64 75 20 43 4D 20 65 74 20 6F 6E 20 nce du CM et on
000090: 79 20 76 61 20 2E 20 20 53 69 20 20 75 6E 65 20 y va . Si une
0000A0: 20 65 72 72 65 75 72 20 20 64 65 20 6C 65 63 74 erreur de lect
0000B0: 75 72 65 20 73 65 20 70 72 6F 64 75 69 74 20 35 ure se produit 5
0000C0: 20 66 6F 69 73 20 64 65 0D 0A 20 73 75 69 74 65 fois de.. suite
0000D0: 20 2C 20 6F 6E 20 63 6F 6E 73 69 64 7D 72 65 20 , on consid}re
0000E0: 71 75 65 20 63 27 65 73 74 20 75 6E 65 20 63 61 que c'est une ca
0000F0: 75 73 65 20 70 65 72 64 75 65 20 65 74 20 6C 27 use perdue et l'
000100: 65 72 72 65 75 72 20 65 73 74 20 61 66 66 69 63 erreur est affic
000110: 68 7B 65 20 2E 0D 0A 20 0D 0A 20 20 20 20 20 20 h{e ... ..
000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000130: 20 20 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D --------
000140: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 3B 0D -----------.. ;.
000150: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 42 2C 23 . LD B,#
000160: 34 36 20 20 20 20 20 20 20 20 3B 43 4D 20 6F 72 46 ;CM or
000170: 20 6E 6F 74 20 43 4D 20 3F 0D 0A 20 20 20 20 20 not CM ?..
000180: 20 20 20 20 4C 44 20 48 4C 2C 28 53 54 4F 4B 45 LD HL,(STOKE
000190: 52 52 29 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 RR).. LD
0001A0: 20 41 2C 28 48 4C 29 0D 0A 20 20 20 20 20 20 20 A,(HL)..
0001B0: 20 20 41 4E 44 20 25 30 30 30 30 31 30 30 30 0D AND %00001000.
0001C0: 0A 20 20 20 20 20 20 20 20 20 4A 52 20 5A 2C 43 . JR Z,C
0001D0: 4D 4E 4F 54 0D 0A 20 20 20 20 20 20 20 20 20 4C MNOT.. L
0001E0: 44 20 42 2C 23 34 43 20 20 20 20 20 20 20 20 3B D B,#4C ;
0001F0: 4F 55 49 0D 0A 20 3B 0D 0A 20 43 4D 4E 4F 54 20 OUI.. ;.. CMNOT
Size : 512 (Real : 512)
000000: 20 20 4C 44 20 41 2C 42 20 20 20 20 20 20 20 20 LD A,B
000010: 20 20 3B 43 6F 6D 6D 61 6E 64 65 20 6C 69 72 65 ;Commande lire
000020: 20 73 65 63 74 65 75 72 0D 0A 20 20 20 20 20 20 secteur..
000030: 20 20 20 4C 44 20 48 4C 2C 4C 49 54 46 44 43 0D LD HL,LITFDC.
000040: 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 53 . CALL S
000050: 45 54 43 4F 4D 32 0D 0A 20 3B 0D 0A 20 4E 45 57 ETCOM2.. ;.. NEW
000060: 4C 49 54 20 20 4C 44 20 44 45 2C 28 4C 4F 4E 47 LIT LD DE,(LONG
000070: 53 45 43 29 0D 0A 20 20 20 20 20 20 20 20 20 43 SEC).. C
000080: 41 4C 4C 20 56 49 53 49 4E 53 54 20 20 20 20 3B ALL VISINST ;
000090: 56 69 73 65 72 20 65 74 20 65 78 65 63 75 74 65 Viser et execute
0000A0: 72 20 63 6F 6D 6D 61 6E 64 65 20 6C 65 63 74 75 r commande lectu
0000B0: 72 65 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 re.. ;..
0000C0: 20 4C 44 20 44 45 2C 23 30 32 31 33 20 20 20 20 LD DE,#0213
0000D0: 20 3B 4C 6F 63 61 74 65 20 70 6F 75 72 20 65 72 ;Locate pour er
0000E0: 72 65 75 72 20 64 72 69 76 65 0D 0A 20 20 20 20 reur drive..
0000F0: 20 20 20 20 20 43 41 4C 4C 20 54 53 54 4D 49 53 CALL TSTMIS
000100: 53 20 20 20 20 3B 56 6F 69 72 20 73 69 20 65 72 S ;Voir si er
000110: 72 65 75 72 20 64 72 69 76 65 20 2E 20 4E 43 20 reur drive . NC
000120: 73 69 20 6F 75 69 0D 0A 20 20 20 20 20 20 20 20 si oui..
000130: 20 4A 52 20 4E 43 2C 4E 45 57 4C 49 54 20 20 20 JR NC,NEWLIT
000140: 20 3B 42 6F 75 63 6C 65 72 20 74 61 6E 74 20 71 ;Boucler tant q
000150: 75 65 20 46 44 43 20 70 61 73 20 63 6F 6E 74 65 ue FDC pas conte
000160: 6E 74 20 2E 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 nt ... ;..
000170: 20 20 20 50 55 53 48 20 49 59 20 20 20 20 20 20 PUSH IY
000180: 20 20 20 3B 49 59 20 65 73 74 20 6D 6F 64 69 66 ;IY est modif
000190: 69 65 20 70 61 72 20 54 53 54 45 52 52 53 0D 0A ie par TSTERRS..
0001A0: 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 54 53 CALL TS
0001B0: 54 45 52 52 53 20 20 20 20 3B 50 6C 75 73 20 64 TERRS ;Plus d
0001C0: 27 65 72 72 65 75 72 20 64 72 69 76 65 20 2C 20 'erreur drive ,
0001D0: 74 65 73 74 65 72 20 61 75 74 72 65 73 20 65 72 tester autres er
0001E0: 72 65 75 72 73 0D 0A 20 20 20 20 20 20 20 20 20 reurs..
0001F0: 50 4F 50 20 49 59 0D 0A 20 20 20 20 20 20 20 20 POP IY..
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000010: 20 20 20 20 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D ------
000020: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000030: 2D 2D 2D 2D 0D 0A 20 20 20 20 20 20 20 20 20 20 ----..
000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2D -
000050: 20 53 55 42 20 52 4F 55 54 49 4E 45 53 20 50 4F SUB ROUTINES PO
000060: 55 52 20 4C 45 20 46 44 43 20 2D 0D 0A 20 20 20 UR LE FDC -..
000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000080: 20 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D ---------
000090: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0000A0: 2D 0D 0A 20 0D 0A 20 20 20 20 20 50 6F 75 72 20 -.. .. Pour
0000B0: 6C 61 20 64 65 72 6E 69 7D 72 65 20 64 75 20 46 la derni}re du F
0000C0: 44 43 20 20 2C 20 20 63 65 74 74 65 20 20 73 65 DC , cette se
0000D0: 63 74 69 6F 6E 20 65 73 74 20 72 65 70 72 6F 64 ction est reprod
0000E0: 75 69 74 65 20 69 6E 74 7B 67 72 61 6C 65 6D 65 uite int{graleme
0000F0: 6E 74 20 2E 0D 0A 20 4C 65 73 20 70 61 72 74 69 nt ... Les parti
000100: 65 73 20 63 6F 6C 6C 7B 65 73 20 40 20 6C 61 20 es coll{es @ la
000110: 6D 61 72 67 65 20 6E 27 6F 6E 74 20 70 61 73 20 marge n'ont pas
000120: 73 75 62 69 20 64 65 20 6D 6F 64 69 66 69 63 61 subi de modifica
000130: 74 69 6F 6E 20 6E 6F 74 61 62 6C 65 73 20 2E 0D tion notables ..
000140: 0A 20 3B 0D 0A 20 3B 2D 20 52 6F 75 74 69 6E 65 . ;.. ;- Routine
000150: 73 20 63 6F 6D 70 6C 65 74 65 73 20 46 44 43 20 s completes FDC
000160: 2D 0D 0A 20 3B 0D 0A 20 3B 2D 20 41 46 46 2E 52 -.. ;.. ;- AFF.R
000170: 45 53 55 2E 20 2D 0D 0A 20 3B 0D 0A 20 41 46 46 ESU. -.. ;.. AFF
000180: 52 45 53 31 20 4C 44 20 49 59 2C 23 32 30 31 38 RES1 LD IY,#2018
000190: 0D 0A 20 41 46 46 52 45 53 55 20 50 55 53 48 20 .. AFFRESU PUSH
0001A0: 48 4C 0D 0A 20 20 50 55 53 48 20 42 43 0D 0A 20 HL.. PUSH BC..
0001B0: 20 43 41 4C 4C 20 4C 4F 43 41 54 45 0D 0A 20 20 CALL LOCATE..
0001C0: 4C 44 20 42 2C 33 0D 0A 20 20 4C 44 20 48 4C 2C LD B,3.. LD HL,
0001D0: 45 54 30 0D 0A 20 42 43 4C 41 52 45 53 20 4C 44 ET0.. BCLARES LD
0001E0: 20 41 2C 28 48 4C 29 0D 0A 20 20 43 41 4C 4C 20 A,(HL).. CALL
0001F0: 50 52 54 42 49 4E 0D 0A 20 20 49 4E 43 20 48 4C PRTBIN.. INC HL
Size : 512 (Real : 512)
000000: 0D 0A 20 20 44 4A 4E 5A 20 42 43 4C 41 52 45 53 .. DJNZ BCLARES
000010: 0D 0A 20 20 4C 44 20 42 2C 34 0D 0A 20 42 43 4C .. LD B,4.. BCL
000020: 41 52 45 31 20 4C 44 20 41 2C 22 26 22 0D 0A 20 ARE1 LD A,"&"..
000030: 20 43 41 4C 4C 20 23 42 42 35 41 0D 0A 20 20 4C CALL #BB5A.. L
000040: 44 20 41 2C 28 48 4C 29 0D 0A 20 20 50 55 53 48 D A,(HL).. PUSH
000050: 20 48 4C 0D 0A 20 20 43 41 4C 4C 20 50 52 54 48 HL.. CALL PRTH
000060: 45 58 31 0D 0A 20 20 50 4F 50 20 48 4C 0D 0A 20 EX1.. POP HL..
000070: 20 49 4E 43 20 48 4C 0D 0A 20 20 44 4A 4E 5A 20 INC HL.. DJNZ
000080: 42 43 4C 41 52 45 31 0D 0A 20 20 50 4F 50 20 42 BCLARE1.. POP B
000090: 43 0D 0A 20 20 50 4F 50 20 48 4C 0D 0A 20 20 52 C.. POP HL.. R
0000A0: 45 54 0D 0A 20 3B 0D 0A 20 3B 2D 20 4D 6F 74 65 ET.. ;.. ;- Mote
0000B0: 75 72 20 2D 0D 0A 20 3B 0D 0A 20 4D 4F 54 4F 4E ur -.. ;.. MOTON
0000C0: 20 20 20 4C 44 20 41 2C 28 46 4C 41 47 4D 4F 54 LD A,(FLAGMOT
0000D0: 29 0D 0A 20 20 43 50 20 31 0D 0A 20 20 52 45 54 ).. CP 1.. RET
0000E0: 20 5A 0D 0A 20 20 4C 44 20 41 2C 31 0D 0A 20 20 Z.. LD A,1..
0000F0: 43 41 4C 4C 20 4D 4F 54 43 4F 4D 0D 0A 20 20 4C CALL MOTCOM.. L
000100: 44 20 41 2C 28 54 45 4D 50 4D 4F 54 29 20 3B 4D D A,(TEMPMOT) ;M
000110: 69 6E 69 20 35 35 0D 0A 20 20 4A 50 20 54 45 4D ini 55.. JP TEM
000120: 50 41 4D 53 0D 0A 20 4D 4F 54 43 4F 4D 20 20 4C PAMS.. MOTCOM L
000130: 44 20 28 46 4C 41 47 4D 4F 54 29 2C 41 0D 0A 20 D (FLAGMOT),A..
000140: 20 4C 44 20 42 43 2C 23 46 41 37 45 0D 0A 20 20 LD BC,#FA7E..
000150: 4F 55 54 20 28 43 29 2C 41 0D 0A 20 20 52 45 54 OUT (C),A.. RET
000160: 0D 0A 20 3B 0D 0A 20 4D 4F 54 4F 46 46 20 20 58 .. ;.. MOTOFF X
000170: 4F 52 20 41 0D 0A 20 20 4A 52 20 4D 4F 54 43 4F OR A.. JR MOTCO
000180: 4D 0D 0A 20 3B 0D 0A 20 3B 2D 20 54 65 73 74 65 M.. ;.. ;- Teste
000190: 72 20 6C 65 73 20 32 20 64 72 69 76 65 73 20 2D r les 2 drives -
0001A0: 0D 0A 20 3B 0D 0A 20 54 53 54 32 44 52 20 20 58 .. ;.. TST2DR X
0001B0: 4F 52 20 41 20 20 20 20 20 20 20 20 20 20 20 3B OR A ;
0001C0: 52 45 4D 41 4E 49 45 20 45 4E 20 46 4F 4E 43 54 REMANIE EN FONCT
0001D0: 49 4F 4E 20 44 45 20 4C 41 20 4E 4F 55 56 45 4C ION DE LA NOUVEL
0001E0: 4C 45 20 50 52 45 53 45 4E 54 41 54 49 4F 4E 0D LE PRESENTATION.
0001F0: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 44 52 . LD (DR
Size : 512 (Real : 512)
000000: 53 45 4C 45 43 29 2C 41 20 20 3B 4D 41 49 53 20 SELEC),A ;MAIS
000010: 50 52 49 4E 43 49 50 45 20 49 44 45 4E 54 49 51 PRINCIPE IDENTIQ
000020: 55 45 20 41 20 56 45 52 53 49 4F 4E 20 50 52 45 UE A VERSION PRE
000030: 43 45 44 45 4E 54 45 0D 0A 20 20 20 20 20 20 20 CEDENTE..
000040: 20 20 4C 44 20 28 50 49 53 54 53 45 4C 29 2C 41 LD (PISTSEL),A
000050: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 50 .. LD (P
000060: 49 53 54 4C 29 2C 41 0D 0A 20 20 20 20 20 20 20 ISTL),A..
000070: 20 20 4C 44 20 28 50 49 53 54 57 29 2C 41 0D 0A LD (PISTW),A..
000080: 20 3B 0D 0A 20 54 53 54 32 44 52 31 20 43 41 4C ;.. TST2DR1 CAL
000090: 4C 20 43 41 4C 49 42 52 45 20 20 20 3B 41 6C 6C L CALIBRE ;All
0000A0: 65 72 20 70 69 73 74 65 20 30 0D 0A 20 20 20 20 er piste 0..
0000B0: 20 20 20 20 20 43 41 4C 4C 20 54 53 54 44 52 49 CALL TSTDRI
0000C0: 56 20 20 20 3B 54 65 73 74 65 72 20 65 74 61 74 V ;Tester etat
0000D0: 20 64 72 69 76 65 20 2E 20 41 20 3D 20 45 54 33 drive . A = ET3
0000E0: 20 61 75 20 72 65 74 6F 75 72 0D 0A 20 20 20 20 au retour..
0000F0: 20 20 20 20 20 4C 44 20 28 45 54 44 52 41 29 2C LD (ETDRA),
000100: 41 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 48 A.. LD H
000110: 4C 2C 23 30 44 30 32 20 20 20 20 3B 4C 6F 63 61 L,#0D02 ;Loca
000120: 74 65 20 70 6F 75 72 20 74 65 78 74 65 20 65 74 te pour texte et
000130: 61 74 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C at.. CAL
000140: 4C 20 41 46 52 45 53 44 52 20 20 20 3B 54 65 73 L AFRESDR ;Tes
000150: 74 65 72 20 65 74 61 74 20 65 74 20 61 66 66 69 ter etat et affi
000160: 63 68 65 72 20 0D 0A 20 3B 0D 0A 20 20 20 20 20 cher .. ;..
000170: 20 20 20 20 4C 44 20 41 2C 31 20 20 20 20 20 20 LD A,1
000180: 20 20 20 3B 49 64 65 6D 20 73 75 72 20 64 72 69 ;Idem sur dri
000190: 76 65 20 42 0D 0A 20 20 20 20 20 20 20 20 20 4C ve B.. L
0001A0: 44 20 28 44 52 53 45 4C 45 43 29 2C 41 0D 0A 20 D (DRSELEC),A..
0001B0: 52 45 43 41 4C 49 20 20 43 41 4C 4C 20 43 41 4C RECALI CALL CAL
0001C0: 49 42 52 45 0D 0A 20 20 20 20 20 20 20 20 20 43 IBRE.. C
0001D0: 50 20 23 38 30 0D 0A 20 20 20 20 20 20 20 20 20 P #80..
0001E0: 4A 52 20 4E 5A 2C 42 41 4C 4C 55 4D 45 0D 0A 20 JR NZ,BALLUME..
0001F0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 48 ;.. LD H
Size : 512 (Real : 512)
000000: 4C 2C 54 4A 45 56 45 55 42 20 20 20 20 20 3B 42 L,TJEVEUB ;B
000010: 20 64 6F 69 74 20 65 74 72 65 20 61 6C 6C 75 6D doit etre allum
000020: 65 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C e.. CALL
000030: 20 50 52 54 0D 0A 20 20 20 20 20 20 20 20 20 43 PRT.. C
000040: 41 4C 4C 20 23 42 42 30 36 0D 0A 20 20 20 20 20 ALL #BB06..
000050: 20 20 20 20 4C 44 20 41 2C 31 37 20 20 20 20 20 LD A,17
000060: 20 20 20 20 20 20 3B 45 66 66 61 63 65 72 20 74 ;Effacer t
000070: 65 78 74 65 0D 0A 20 20 20 20 20 20 20 20 20 43 exte.. C
000080: 41 4C 4C 20 23 42 42 35 41 0D 0A 20 20 20 20 20 ALL #BB5A..
000090: 20 20 20 20 4A 52 20 52 45 43 41 4C 49 0D 0A 20 JR RECALI..
0000A0: 3B 0D 0A 20 42 41 4C 4C 55 4D 45 20 43 41 4C 4C ;.. BALLUME CALL
0000B0: 20 54 53 54 44 52 49 56 0D 0A 20 20 20 20 20 20 TSTDRIV..
0000C0: 20 20 20 4C 44 20 28 45 54 44 52 42 29 2C 41 0D LD (ETDRB),A.
0000D0: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 48 4C 2C . LD HL,
0000E0: 23 32 45 30 32 0D 0A 20 3B 0D 0A 20 3B 2D 20 41 #2E02.. ;.. ;- A
0000F0: 66 66 69 63 68 65 72 20 65 74 61 74 20 64 72 69 fficher etat dri
000100: 76 65 73 20 2D 0D 0A 20 3B 0D 0A 20 41 46 52 45 ves -.. ;.. AFRE
000110: 53 44 52 20 50 55 53 48 20 41 46 20 20 20 20 20 SDR PUSH AF
000120: 20 20 20 20 20 20 3B 50 72 65 73 65 72 76 65 72 ;Preserver
000130: 20 45 54 33 0D 0A 20 20 20 20 20 20 20 20 20 43 ET3.. C
000140: 41 4C 4C 20 23 42 42 37 35 20 20 20 20 20 20 20 ALL #BB75
000150: 20 3B 50 6C 61 63 65 72 20 74 65 78 74 65 0D 0A ;Placer texte..
000160: 20 20 20 20 20 20 20 20 20 4C 44 20 48 4C 2C 54 LD HL,T
000170: 4E 4F 4C 45 43 54 0D 0A 20 20 20 20 20 20 20 20 NOLECT..
000180: 20 50 4F 50 20 41 46 20 20 20 20 20 20 20 20 20 POP AF
000190: 20 20 20 3B 52 65 63 75 70 65 72 65 72 20 45 54 ;Recuperer ET
0001A0: 33 0D 0A 20 20 20 20 20 20 20 20 20 43 50 20 31 3.. CP 1
0001B0: 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 20 5A 2C .. JR Z,
0001C0: 44 52 48 53 20 20 20 20 20 20 20 20 20 3B 4C 65 DRHS ;Le
0001D0: 63 74 65 75 72 20 48 53 0D 0A 20 20 20 20 20 20 cteur HS..
0001E0: 20 20 20 42 49 54 20 35 2C 41 0D 0A 20 20 20 20 BIT 5,A..
0001F0: 20 20 20 20 20 4A 52 20 4E 5A 2C 44 52 45 41 44 JR NZ,DREAD
Size : 512 (Real : 512)
000000: 59 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 Y.. ;..
000010: 4C 44 20 48 4C 2C 54 4D 49 53 53 20 20 20 20 20 LD HL,TMISS
000020: 20 20 3B 44 69 73 71 75 65 20 6D 61 6E 71 75 65 ;Disque manque
000030: 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 20 44 52 .. JR DR
000040: 48 53 0D 0A 20 3B 0D 0A 20 44 52 45 41 44 59 20 HS.. ;.. DREADY
000050: 20 4C 44 20 48 4C 2C 54 50 52 4F 54 0D 0A 20 20 LD HL,TPROT..
000060: 20 20 20 20 20 20 20 42 49 54 20 36 2C 41 0D 0A BIT 6,A..
000070: 20 20 20 20 20 20 20 20 20 4A 52 20 4E 5A 2C 44 JR NZ,D
000080: 52 48 53 20 20 20 20 20 20 20 20 3B 50 72 6F 74 RHS ;Prot
000090: 65 67 65 20 65 63 72 69 74 75 72 65 0D 0A 20 3B ege ecriture.. ;
0000A0: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 48 4C .. LD HL
0000B0: 2C 54 4E 4F 50 52 4F 54 20 20 20 20 20 3B 4F 4B ,TNOPROT ;OK
0000C0: 20 45 63 72 69 74 75 72 65 0D 0A 20 44 52 48 53 Ecriture.. DRHS
0000D0: 20 20 20 20 4A 50 20 50 52 54 0D 0A 20 3B 0D 0A JP PRT.. ;..
0000E0: 20 54 4A 45 56 45 55 42 20 44 42 20 33 31 2C 34 TJEVEUB DB 31,4
0000F0: 36 2C 32 2C 32 34 2C 22 20 41 4C 4C 55 4D 45 52 6,2,24," ALLUMER
000100: 20 44 52 49 56 45 20 42 20 21 20 22 2C 32 34 2C DRIVE B ! ",24,
000110: 37 2C 31 33 2B 23 38 30 0D 0A 20 54 4E 4F 4C 45 7,13+#80.. TNOLE
000120: 43 54 20 44 42 20 22 20 4C 65 63 74 65 75 72 20 CT DB " Lecteur
000130: 61 62 73 65 6E 74 20 20 22 2C 23 38 30 0D 0A 20 absent ",#80..
000140: 54 4D 49 53 53 20 20 20 44 42 20 22 20 44 69 73 TMISS DB " Dis
000150: 71 75 65 20 6D 61 6E 71 75 61 6E 74 20 22 2C 23 que manquant ",#
000160: 38 30 0D 0A 20 54 50 52 4F 54 20 20 20 44 42 20 80.. TPROT DB
000170: 22 20 50 72 6F 74 65 67 65 20 65 63 72 69 74 75 " Protege ecritu
000180: 72 65 22 2C 23 38 30 0D 0A 20 54 4E 4F 50 52 4F re",#80.. TNOPRO
000190: 54 20 44 42 20 22 20 4F 4B 20 65 6E 20 65 63 72 T DB " OK en ecr
0001A0: 69 74 75 72 65 20 20 22 2C 23 38 30 0D 0A 20 3B iture ",#80.. ;
0001B0: 0D 0A 20 54 53 4D 49 53 50 52 4F 54 20 43 41 4C .. TSMISPROT CAL
0001C0: 4C 20 54 53 54 4D 49 53 53 20 3B 54 65 73 74 65 L TSTMISS ;Teste
0001D0: 72 20 64 69 73 63 20 6D 69 73 73 69 6E 67 20 45 r disc missing E
0001E0: 54 20 77 72 69 74 65 20 70 72 6F 74 65 63 74 65 T write protecte
0001F0: 64 0D 0A 20 20 20 20 20 20 20 20 20 52 45 54 20 d.. RET
Size : 512 (Real : 512)
000000: 4E 43 0D 0A 20 20 20 20 20 20 20 20 20 4A 50 20 NC.. JP
000010: 54 53 54 50 52 4F 54 0D 0A 20 3B 0D 0A 20 54 53 TSTPROT.. ;.. TS
000020: 54 4D 49 53 53 20 4C 44 20 41 2C 28 45 54 30 29 TMISS LD A,(ET0)
000030: 20 20 20 20 20 20 3B 54 65 73 74 65 72 20 27 44 ;Tester 'D
000040: 69 73 63 20 6D 69 73 73 69 6E 67 27 0D 0A 20 20 isc missing'..
000050: 20 20 20 20 20 20 20 41 4E 44 20 25 30 30 30 30 AND %0000
000060: 31 30 30 30 0D 0A 20 20 20 20 20 20 20 20 20 53 1000.. S
000070: 43 46 0D 0A 20 20 20 20 20 20 20 20 20 52 45 54 CF.. RET
000080: 20 5A 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 Z.. ;..
000090: 20 4C 44 20 48 4C 2C 54 4D 49 53 53 0D 0A 20 20 LD HL,TMISS..
0000A0: 20 20 20 20 20 20 20 4A 52 20 53 54 4F 50 44 52 JR STOPDR
0000B0: 56 0D 0A 20 3B 0D 0A 20 54 53 54 50 52 4F 54 20 V.. ;.. TSTPROT
0000C0: 4C 44 20 41 2C 28 45 54 31 29 20 20 20 20 20 20 LD A,(ET1)
0000D0: 3B 54 65 73 74 65 72 20 27 57 72 69 74 65 20 70 ;Tester 'Write p
0000E0: 72 6F 74 65 63 74 65 64 27 0D 0A 20 20 20 20 20 rotected'..
0000F0: 20 20 20 20 41 4E 44 20 25 30 30 30 30 30 30 31 AND %0000001
000100: 30 0D 0A 20 20 20 20 20 20 20 20 20 53 43 46 0D 0.. SCF.
000110: 0A 20 20 20 20 20 20 20 20 20 52 45 54 20 5A 0D . RET Z.
000120: 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 . ;.. LD
000130: 20 48 4C 2C 54 50 52 4F 54 0D 0A 20 3B 0D 0A 20 HL,TPROT.. ;..
000140: 53 54 4F 50 44 52 56 20 50 55 53 48 20 48 4C 20 STOPDRV PUSH HL
000150: 20 20 20 20 20 20 3B 44 65 20 64 6F 69 74 20 63 ;De doit c
000160: 6F 6E 74 65 6E 69 72 20 63 6F 6F 72 64 6F 6E 6E ontenir coordonn
000170: 65 65 73 20 6C 6F 63 61 74 65 0D 0A 20 20 20 20 ees locate..
000180: 20 20 20 20 20 45 58 20 44 45 2C 48 4C 0D 0A 20 EX DE,HL..
000190: 20 20 20 20 20 20 20 20 43 41 4C 4C 20 23 42 42 CALL #BB
0001A0: 37 35 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C 75.. CAL
0001B0: 4C 20 49 4E 56 0D 0A 20 20 20 20 20 20 20 20 20 L INV..
0001C0: 43 41 4C 4C 20 53 50 41 43 45 0D 0A 20 20 20 20 CALL SPACE..
0001D0: 20 20 20 20 20 4C 44 20 41 2C 28 44 52 53 45 4C LD A,(DRSEL
0001E0: 45 43 29 0D 0A 20 20 20 20 20 20 20 20 20 41 44 EC).. AD
0001F0: 44 20 41 2C 23 34 31 0D 0A 20 20 20 20 20 20 20 D A,#41..
Size : 512 (Real : 512)
000000: 20 20 43 41 4C 4C 20 23 42 42 35 41 0D 0A 20 20 CALL #BB5A..
000010: 20 20 20 20 20 20 20 4C 44 20 41 2C 22 3A 22 0D LD A,":".
000020: 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 23 . CALL #
000030: 42 42 35 41 0D 0A 20 20 20 20 20 20 20 20 20 50 BB5A.. P
000040: 4F 50 20 48 4C 0D 0A 20 3B 0D 0A 20 20 20 20 20 OP HL.. ;..
000050: 20 20 20 20 43 41 4C 4C 20 50 52 54 0D 0A 20 20 CALL PRT..
000060: 20 20 20 20 20 20 20 43 41 4C 4C 20 53 50 41 43 CALL SPAC
000070: 45 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C E.. CALL
000080: 20 49 4E 56 0D 0A 20 20 20 20 20 20 20 20 20 43 INV.. C
000090: 41 4C 4C 20 53 4F 4E 4E 45 0D 0A 20 20 20 20 20 ALL SONNE..
0000A0: 20 20 20 20 43 41 4C 4C 20 23 42 42 30 36 0D 0A CALL #BB06..
0000B0: 20 20 20 20 20 20 20 20 20 4C 44 20 41 2C 31 37 LD A,17
0000C0: 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 .. CALL
0000D0: 23 42 42 35 41 0D 0A 20 20 20 20 20 20 20 20 20 #BB5A..
0000E0: 58 4F 52 20 41 0D 0A 20 20 20 20 20 20 20 20 20 XOR A..
0000F0: 52 45 54 0D 0A 20 3B 0D 0A 20 3B 2D 20 41 6C 6C RET.. ;.. ;- All
000100: 65 72 20 65 6E 20 70 69 73 74 65 20 50 49 53 54 er en piste PIST
000110: 53 45 4C 20 2D 0D 0A 20 3B 0D 0A 20 47 4F 50 49 SEL -.. ;.. GOPI
000120: 53 54 45 20 50 55 53 48 20 44 45 20 20 20 20 20 STE PUSH DE
000130: 20 20 20 20 3B 51 55 45 4C 51 55 45 20 50 45 55 ;QUELQUE PEU
000140: 20 52 45 54 4F 55 43 48 45 45 20 45 54 20 52 45 RETOUCHEE ET RE
000150: 4D 50 4C 41 43 45 20 27 47 4F 50 49 53 54 31 27 MPLACE 'GOPIST1'
000160: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 41 2C .. LD A,
000170: 28 4E 42 54 45 4E 54 29 0D 0A 20 20 20 20 20 20 (NBTENT)..
000180: 20 20 20 4C 44 20 42 2C 41 0D 0A 20 42 43 4C 50 LD B,A.. BCLP
000190: 49 53 54 20 43 41 4C 4C 20 47 4F 50 49 53 54 4E IST CALL GOPISTN
0001A0: 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 20 43 2C .. JR C,
0001B0: 53 55 52 50 49 53 54 0D 0A 20 20 20 20 20 20 20 SURPIST..
0001C0: 20 20 44 45 43 20 42 0D 0A 20 20 20 20 20 20 20 DEC B..
0001D0: 20 20 4A 52 20 5A 2C 46 49 4E 50 49 53 31 0D 0A JR Z,FINPIS1..
0001E0: 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 43 41 CALL CA
0001F0: 4C 49 42 52 45 0D 0A 20 20 20 20 20 20 20 20 20 LIBRE..
Size : 512 (Real : 512)
000000: 4A 52 20 42 43 4C 50 49 53 54 0D 0A 20 3B 0D 0A JR BCLPIST.. ;..
000010: 20 53 55 52 50 49 53 54 20 50 55 53 48 20 41 46 SURPIST PUSH AF
000020: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 41 2C .. LD A,
000030: 28 50 49 53 54 53 45 4C 29 0D 0A 20 20 20 20 20 (PISTSEL)..
000040: 20 20 20 20 50 55 53 48 20 42 43 0D 0A 20 20 20 PUSH BC..
000050: 20 20 20 20 20 20 4C 44 20 42 2C 41 0D 0A 20 20 LD B,A..
000060: 20 20 20 20 20 20 20 4C 44 20 41 2C 28 45 54 31 LD A,(ET1
000070: 29 0D 0A 20 20 20 20 20 20 20 20 20 43 50 20 42 ).. CP B
000080: 0D 0A 20 20 20 20 20 20 20 20 20 50 4F 50 20 42 .. POP B
000090: 43 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 20 5A C.. JR Z
0000A0: 2C 46 49 4E 50 49 53 54 0D 0A 20 20 20 20 20 20 ,FINPIST..
0000B0: 20 20 20 50 4F 50 20 41 46 0D 0A 20 20 20 20 20 POP AF..
0000C0: 20 20 20 20 44 45 43 20 42 0D 0A 20 20 20 20 20 DEC B..
0000D0: 20 20 20 20 4A 52 20 4E 5A 2C 42 43 4C 50 49 53 JR NZ,BCLPIS
0000E0: 54 0D 0A 20 46 49 4E 50 49 53 54 20 50 4F 50 20 T.. FINPIST POP
0000F0: 41 46 0D 0A 20 46 49 4E 50 49 53 31 20 50 4F 50 AF.. FINPIS1 POP
000100: 20 44 45 0D 0A 20 20 20 20 20 20 20 20 20 52 45 DE.. RE
000110: 54 0D 0A 20 3B 0D 0A 20 3B 2D 20 49 6E 69 74 69 T.. ;.. ;- Initi
000120: 61 6C 69 73 61 74 69 6F 6E 20 64 65 73 20 62 69 alisation des bi
000130: 74 73 20 64 65 20 46 4C 41 47 45 52 52 20 73 65 ts de FLAGERR se
000140: 6C 6F 6E 20 69 6E 74 65 72 70 72 65 74 61 74 69 lon interpretati
000150: 6F 6E 20 72 65 73 75 6C 74 61 74 0D 0A 20 3B 0D on resultat.. ;.
000160: 0A 20 54 53 54 45 52 52 53 20 4C 44 20 49 59 2C . TSTERRS LD IY,
000170: 46 4C 41 47 45 52 52 20 20 20 20 3B 52 41 5A 20 FLAGERR ;RAZ
000180: 45 72 72 65 75 72 73 0D 0A 20 20 4C 44 20 28 49 Erreurs.. LD (I
000190: 59 2B 30 29 2C 30 0D 0A 20 20 4C 44 20 41 2C 28 Y+0),0.. LD A,(
0001A0: 51 55 41 54 52 49 44 2B 31 29 20 3B 54 65 73 74 QUATRID+1) ;Test
0001B0: 20 64 65 73 20 65 72 72 65 75 72 73 0D 0A 20 20 des erreurs..
0001C0: 4F 52 20 41 0D 0A 20 20 4A 52 20 5A 2C 4F 4B 48 OR A.. JR Z,OKH
0001D0: 45 41 44 0D 0A 20 20 53 45 54 20 36 2C 28 49 59 EAD.. SET 6,(IY
0001E0: 2B 30 29 0D 0A 20 4F 4B 48 45 41 44 20 20 4C 44 +0).. OKHEAD LD
0001F0: 20 48 4C 2C 45 54 31 20 20 20 20 20 3B 53 75 72 HL,ET1 ;Sur
Size : 512 (Real : 512)
000000: 20 4C 44 20 41 2C 28 46 4C 41 47 45 52 52 29 0D LD A,(FLAGERR).
000010: 0A 20 20 20 20 20 20 20 20 20 41 4E 44 20 25 30 . AND %0
000020: 30 31 31 30 31 31 31 20 20 20 3B 53 69 20 70 61 0110111 ;Si pa
000030: 73 20 64 27 65 72 72 65 75 72 20 73 61 75 66 20 s d'erreur sauf
000040: 45 50 2D 48 44 2D 43 4D 20 2C 20 63 27 65 73 74 EP-HD-CM , c'est
000050: 20 62 6F 6E 0D 0A 20 20 20 20 20 20 20 20 20 4A bon.. J
000060: 52 20 5A 2C 43 45 53 54 4C 55 0D 0A 20 3B 0D 0A R Z,CESTLU.. ;..
000070: 20 20 20 20 20 20 20 20 20 44 45 43 20 28 49 59 DEC (IY
000080: 2B 30 29 20 20 20 20 20 20 3B 53 69 20 65 72 72 +0) ;Si err
000090: 65 75 72 20 2E 20 35 20 65 73 73 61 69 73 20 64 eur . 5 essais d
0000A0: 65 20 6C 65 63 74 75 72 65 20 70 6F 75 72 20 73 e lecture pour s
0000B0: 65 63 74 65 75 72 0D 0A 20 20 20 20 20 20 20 20 ecteur..
0000C0: 20 4A 52 20 4E 5A 2C 4E 45 57 4C 49 54 20 20 20 JR NZ,NEWLIT
0000D0: 20 3B 56 52 41 49 4D 45 4E 54 20 65 6E 64 6F 6D ;VRAIMENT endom
0000E0: 6D 61 67 65 20 2E 0D 0A 20 3B 0D 0A 20 20 20 20 mage ... ;..
0000F0: 20 20 20 20 20 4C 44 20 41 2C 28 46 4C 41 47 29 LD A,(FLAG)
000100: 20 20 20 20 20 3B 50 61 73 20 61 66 66 69 63 68 ;Pas affich
000110: 65 72 20 6C 65 20 74 65 78 74 65 20 45 52 52 45 er le texte ERRE
000120: 55 52 20 70 6C 75 73 69 65 75 72 73 20 66 6F 69 UR plusieurs foi
000130: 73 0D 0A 20 20 20 20 20 20 20 20 20 4F 52 20 41 s.. OR A
000140: 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 20 4E 5A .. JR NZ
000150: 2C 50 52 53 45 43 45 52 0D 0A 20 3B 0D 0A 20 20 ,PRSECER.. ;..
000160: 20 20 20 20 20 20 20 4C 44 20 48 4C 2C 54 4C 45 LD HL,TLE
000170: 43 54 45 52 20 20 20 3B 54 65 78 74 65 20 65 72 CTER ;Texte er
000180: 72 65 75 72 20 6C 65 63 74 75 72 65 0D 0A 20 20 reur lecture..
000190: 20 20 20 20 20 20 20 43 41 4C 4C 20 50 52 54 0D CALL PRT.
0001A0: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 41 2C 23 . LD A,#
0001B0: 46 46 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 FF.. LD
0001C0: 28 46 4C 41 47 29 2C 41 0D 0A 20 3B 0D 0A 20 50 (FLAG),A.. ;.. P
0001D0: 52 53 45 43 45 52 20 4C 44 20 41 2C 22 26 22 20 RSECER LD A,"&"
0001E0: 20 20 20 20 20 20 20 3B 41 66 66 69 63 68 65 72 ;Afficher
0001F0: 20 6C 65 20 6E 75 6D 65 72 6F 20 64 65 20 73 65 le numero de se
Size : 512 (Real : 512)
000000: 63 74 65 75 72 20 65 6E 20 65 72 72 65 75 72 0D cteur en erreur.
000010: 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 23 . CALL #
000020: 42 42 35 41 0D 0A 20 20 20 20 20 20 20 20 20 4C BB5A.. L
000030: 44 20 41 2C 28 51 55 41 54 52 49 44 2B 32 29 0D D A,(QUATRID+2).
000040: 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 50 . CALL P
000050: 52 54 48 45 58 31 0D 0A 20 3B 0D 0A 20 20 20 20 RTHEX1.. ;..
000060: 20 20 20 20 20 4C 44 20 48 4C 2C 28 53 54 4F 4B LD HL,(STOK
000070: 45 52 52 29 20 3B 45 72 72 65 75 72 20 69 6D 70 ERR) ;Erreur imp
000080: 72 65 76 75 65 20 61 70 70 61 72 75 65 20 2C 20 revue apparue ,
000090: 6D 6F 64 69 66 69 65 72 20 6C 61 20 6C 69 73 74 modifier la list
0000A0: 65 20 64 65 73 0D 0A 20 20 20 20 20 20 20 20 20 e des..
0000B0: 4C 44 20 41 2C 28 46 4C 41 47 45 52 52 29 20 20 LD A,(FLAGERR)
0000C0: 3B 65 72 72 65 75 72 73 20 65 6E 20 63 6F 6E 73 ;erreurs en cons
0000D0: 65 71 75 65 6E 63 65 20 2E 0D 0A 20 20 20 20 20 equence ...
0000E0: 20 20 20 20 4C 44 20 28 48 4C 29 2C 41 0D 0A 20 LD (HL),A..
0000F0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000110: 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ---------------
000120: 2D 2D 2D 2D 0D 0A 20 0D 0A 20 20 20 20 20 41 76 ----.. .. Av
000130: 65 63 20 6F 75 20 73 61 6E 73 20 65 72 72 65 75 ec ou sans erreu
000140: 72 20 2C 20 6C 65 20 20 73 65 63 74 65 75 72 20 r , le secteur
000150: 20 40 20 20 7B 74 7B 20 20 6C 75 20 20 65 74 20 @ {t{ lu et
000160: 20 73 74 6F 63 6B 7B 20 2E 20 4C 61 20 72 6F 75 stock{ . La rou
000170: 74 69 6E 65 20 64 65 0D 0A 20 6C 65 63 74 75 72 tine de.. lectur
000180: 65 20 72 65 6E 76 6F 79 61 6E 74 20 6C 65 20 6E e renvoyant le n
000190: 6F 6D 62 72 65 20 64 27 6F 63 74 65 74 73 20 20 ombre d'octets
0001A0: 52 45 45 4C 4C 45 4D 45 4E 54 20 20 4C 55 53 20 REELLEMENT LUS
0001B0: 20 64 61 6E 73 20 4E 42 4C 55 53 20 2C 20 69 6C dans NBLUS , il
0001C0: 20 73 75 66 66 69 74 0D 0A 20 64 27 61 6A 6F 75 suffit.. d'ajou
0001D0: 74 65 72 20 63 65 74 74 65 20 76 61 6C 65 75 72 ter cette valeur
0001E0: 20 40 20 41 44 42 55 46 46 20 70 6F 75 72 20 20 @ ADBUFF pour
0001F0: 61 76 6F 69 72 20 20 6C 61 20 70 72 6F 63 68 61 avoir la procha
Size : 512 (Real : 512)
000000: 69 6E 65 20 61 64 72 65 73 73 65 20 64 65 20 73 ine adresse de s
000010: 74 6F 63 6B 61 67 65 0D 0A 20 64 65 73 20 64 6F tockage.. des do
000020: 6E 6E 7B 65 73 20 2E 20 44 61 6E 73 20 6C 65 20 nn{es . Dans le
000030: 63 61 73 20 6F 75 20 6C 65 20 73 65 63 74 65 75 cas ou le secteu
000040: 72 20 20 65 73 74 20 76 69 65 72 67 65 20 2C 20 r est vierge ,
000050: 63 27 65 73 74 20 6C 65 20 6D 65 08 5E 6D 65 20 c'est le me.^me
000060: 6F 63 74 65 74 20 71 75 69 0D 0A 20 73 65 20 72 octet qui.. se r
000070: 7B 70 7D 74 65 20 2E 20 49 6E 75 74 69 6C 65 20 {p}te . Inutile
000080: 61 6C 6F 72 73 20 64 27 65 6E 63 6F 6D 62 72 65 alors d'encombre
000090: 72 20 6C 65 20 62 75 66 66 65 72 20 2C 20 73 65 r le buffer , se
0000A0: 75 6C 20 75 6E 20 6F 63 74 65 74 20 65 73 74 20 ul un octet est
0000B0: 73 74 6F 63 6B 7B 20 65 74 0D 0A 20 6F 6E 20 75 stock{ et.. on u
0000C0: 74 69 6C 69 73 65 20 65 6E 63 6F 72 65 20 6C 61 tilise encore la
0000D0: 20 6C 69 73 74 65 20 64 65 73 20 7B 74 61 74 73 liste des {tats
0000E0: 20 64 27 65 72 72 65 75 72 20 70 6F 75 72 20 73 d'erreur pour s
0000F0: 69 67 6E 61 6C 65 72 20 6C 61 20 63 68 6F 73 65 ignaler la chose
000100: 20 2E 0D 0A 20 0D 0A 20 20 20 20 20 20 20 20 20 ... ..
000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000120: 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D -----------
000130: 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 3B 0D 0A 20 43 --------.. ;.. C
000140: 45 53 54 4C 55 20 20 4C 44 20 48 4C 2C 28 41 44 ESTLU LD HL,(AD
000150: 42 55 46 46 29 20 20 3B 41 64 72 65 73 73 65 20 BUFF) ;Adresse
000160: 62 75 66 66 65 72 0D 0A 20 20 20 20 20 20 20 20 buffer..
000170: 20 4C 44 20 42 43 2C 28 4E 42 4C 55 53 29 20 20 LD BC,(NBLUS)
000180: 20 3B 4E 6F 6D 62 72 65 20 6F 63 74 65 74 73 20 ;Nombre octets
000190: 6C 75 73 20 2D 31 0D 0A 20 20 20 20 20 20 20 20 lus -1..
0001A0: 20 44 45 43 20 42 43 0D 0A 20 3B 0D 0A 20 20 20 DEC BC.. ;..
0001B0: 20 20 20 20 20 20 4C 44 20 41 2C 28 48 4C 29 20 LD A,(HL)
0001C0: 20 20 20 20 20 20 3B 56 6F 69 72 20 73 69 20 74 ;Voir si t
0001D0: 6F 75 73 20 6C 65 73 20 6F 63 74 65 74 73 20 64 ous les octets d
0001E0: 75 20 73 65 63 74 65 75 72 20 73 6F 6E 74 20 69 u secteur sont i
0001F0: 64 65 6E 74 69 71 75 65 73 0D 0A 20 42 43 4C 49 dentiques.. BCLI
Size : 512 (Real : 512)
000000: 44 45 4D 20 43 50 20 28 48 4C 29 20 20 20 20 20 DEM CP (HL)
000010: 20 20 20 20 3B 53 69 20 6F 75 69 20 6F 6E 20 73 ;Si oui on s
000020: 74 6F 63 6B 65 20 73 6F 75 73 20 66 6F 72 6D 65 tocke sous forme
000030: 20 63 6F 6D 70 72 65 73 73 65 0D 0A 20 20 20 20 compresse..
000040: 20 20 20 20 20 4A 52 20 4E 5A 2C 4E 4F 4E 4D 45 JR NZ,NONME
000050: 4D 45 20 20 20 3B 53 69 20 6E 6F 6E 20 6F 6E 20 ME ;Si non on
000060: 73 61 75 74 65 0D 0A 20 20 20 20 20 20 20 20 20 saute..
000070: 49 4E 43 20 48 4C 0D 0A 20 20 20 20 20 20 20 20 INC HL..
000080: 20 44 45 43 20 42 43 0D 0A 20 20 20 20 20 20 20 DEC BC..
000090: 20 20 42 49 54 20 37 2C 42 20 20 20 20 20 20 20 BIT 7,B
0000A0: 20 3B 53 69 20 6D 69 73 65 20 61 20 31 20 64 75 ;Si mise a 1 du
0000B0: 20 42 49 54 20 37 20 2C 20 42 43 20 76 69 65 6E BIT 7 , BC vien
0000C0: 74 20 64 65 20 70 61 73 73 65 72 20 61 20 30 0D t de passer a 0.
0000D0: 0A 20 20 20 20 20 20 20 20 20 4A 52 20 5A 2C 42 . JR Z,B
0000E0: 43 4C 49 44 45 4D 0D 0A 20 3B 0D 0A 20 20 20 20 CLIDEM.. ;..
0000F0: 20 20 20 20 20 4C 44 20 48 4C 2C 28 53 54 4F 4B LD HL,(STOK
000100: 45 52 52 29 20 3B 54 6F 75 73 20 6C 65 73 20 6F ERR) ;Tous les o
000110: 63 74 65 74 73 20 73 6F 6E 74 20 69 64 65 6E 74 ctets sont ident
000120: 69 71 75 65 73 20 2E 20 4F 6E 20 75 74 69 6C 69 iques . On utili
000130: 73 65 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 se.. LD
000140: 41 2C 28 48 4C 29 20 20 20 20 20 20 20 3B 6C 65 A,(HL) ;le
000150: 20 70 6F 69 6E 74 65 75 72 20 64 27 65 72 72 65 pointeur d'erre
000160: 75 72 73 20 70 6F 75 72 20 73 69 67 6E 61 6C 65 urs pour signale
000170: 72 20 63 65 20 66 61 69 74 0D 0A 20 20 20 20 20 r ce fait..
000180: 20 20 20 20 41 4E 44 20 25 30 30 30 30 31 30 30 AND %0000100
000190: 30 20 20 20 3B 65 74 20 6F 6E 20 6E 65 20 73 74 0 ;et on ne st
0001A0: 6F 63 6B 65 20 71 75 27 75 6E 20 6F 63 74 65 74 ocke qu'un octet
0001B0: 20 2E 0D 0A 20 20 20 20 20 20 20 20 20 58 4F 52 ... XOR
0001C0: 20 23 46 46 20 20 20 20 20 20 20 20 20 3B 4E 4F #FF ;NO
0001D0: 54 45 52 20 51 27 58 4F 52 20 23 46 46 20 43 4F TER Q'XOR #FF CO
0001E0: 4E 53 45 52 56 45 20 4C 45 20 42 49 54 20 43 4D NSERVE LE BIT CM
0001F0: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 48 .. LD (H
Size : 512 (Real : 512)
000000: 4C 29 2C 41 0D 0A 20 20 20 20 20 20 20 20 20 4C L),A.. L
000010: 44 20 48 4C 2C 28 41 44 42 55 46 46 29 0D 0A 20 D HL,(ADBUFF)..
000020: 20 20 20 20 20 20 20 20 49 4E 43 20 48 4C 0D 0A INC HL..
000030: 20 20 20 20 20 20 20 20 20 4A 52 20 53 55 49 54 JR SUIT
000040: 4C 49 52 45 0D 0A 20 3B 0D 0A 20 4E 4F 4E 4D 45 LIRE.. ;.. NONME
000050: 4D 45 20 4C 44 20 48 4C 2C 28 41 44 42 55 46 46 ME LD HL,(ADBUFF
000060: 29 20 20 3B 53 69 6E 6F 6E 20 61 64 72 65 73 73 ) ;Sinon adress
000070: 65 20 62 75 66 66 65 72 20 3D 20 61 64 72 65 73 e buffer = adres
000080: 73 65 20 62 75 66 66 65 72 20 2B 20 6E 6F 6D 62 se buffer + nomb
000090: 72 65 20 6C 75 73 0D 0A 20 20 20 20 20 20 20 20 re lus..
0000A0: 20 4C 44 20 44 45 2C 28 4E 42 4C 55 53 29 0D 0A LD DE,(NBLUS)..
0000B0: 20 20 20 20 20 20 20 20 20 41 44 44 20 48 4C 2C ADD HL,
0000C0: 44 45 0D 0A 20 3B 0D 0A 20 53 55 49 54 4C 49 52 DE.. ;.. SUITLIR
0000D0: 45 20 4C 44 20 28 41 44 42 55 46 46 29 2C 48 4C E LD (ADBUFF),HL
0000E0: 20 3B 3D 20 4E 6F 75 76 65 6C 6C 65 20 61 64 72 ;= Nouvelle adr
0000F0: 65 73 73 65 20 73 74 6F 63 6B 61 67 65 20 70 6F esse stockage po
000100: 75 72 20 70 72 6F 63 68 61 69 6E 20 73 65 63 74 ur prochain sect
000110: 65 75 72 0D 0A 20 3B 0D 0A 20 52 49 45 4E 4C 49 eur.. ;.. RIENLI
000120: 52 45 20 4C 44 20 48 4C 2C 43 4F 55 4E 54 20 20 RE LD HL,COUNT
000130: 20 20 3B 41 75 20 73 75 69 76 61 6E 74 0D 0A 20 ;Au suivant..
000140: 20 20 20 20 20 20 20 20 49 4E 43 20 28 48 4C 29 INC (HL)
000150: 0D 0A 20 3B 0D 0A 20 53 41 55 54 4C 49 54 20 4C .. ;.. SAUTLIT L
000160: 44 20 48 4C 2C 28 53 54 4F 4B 45 52 52 29 20 3B D HL,(STOKERR) ;
000170: 45 74 61 74 20 64 27 65 72 72 65 75 72 20 73 75 Etat d'erreur su
000180: 69 76 61 6E 74 0D 0A 20 20 20 20 20 20 20 20 20 ivant..
000190: 49 4E 43 20 48 4C 0D 0A 20 20 20 20 20 20 20 20 INC HL..
0001A0: 20 4C 44 20 28 53 54 4F 4B 45 52 52 29 2C 48 4C LD (STOKERR),HL
0001B0: 0D 0A 20 20 20 20 20 20 20 20 20 49 4E 43 20 49 .. INC I
0001C0: 58 20 20 20 20 20 20 20 20 20 20 3B 5A 6F 6E 65 X ;Zone
0001D0: 20 6D 65 6D 6D 6F 20 61 64 72 65 73 73 65 20 64 memmo adresse d
0001E0: 6F 6E 6E 65 65 73 20 73 75 69 76 61 6E 74 65 0D onnees suivante.
0001F0: 0A 20 20 20 20 20 20 20 20 20 49 4E 43 20 49 58 . INC IX
Size : 512 (Real : 512)
000000: 20 0D 0A 20 20 20 20 20 20 20 20 20 50 4F 50 20 .. POP
000010: 42 43 20 20 20 20 20 20 20 20 20 20 3B 4E 6F 6D BC ;Nom
000020: 62 72 65 20 73 65 63 74 65 75 72 73 20 72 65 73 bre secteurs res
000030: 74 61 6E 74 20 61 20 6C 69 72 65 0D 0A 20 20 20 tant a lire..
000040: 20 20 20 20 20 20 44 45 43 20 42 20 20 20 20 20 DEC B
000050: 20 20 20 20 20 20 3B 2D 31 0D 0A 20 20 20 20 20 ;-1..
000060: 20 20 20 20 4A 50 20 4E 5A 2C 42 43 4C 4C 49 54 JP NZ,BCLLIT
000070: 50 20 20 20 3B 53 27 69 6C 20 65 6E 20 72 65 73 P ;S'il en res
000080: 74 65 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 te.. ;..
000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000A0: 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------
0000B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 0D 0A 20 20 ---------.. ..
0000C0: 20 20 20 4C 65 20 73 74 6F 63 6B 61 67 65 20 64 Le stockage d
0000D0: 65 20 6C 61 20 70 69 73 74 65 20 65 73 74 20 20 e la piste est
0000E0: 74 65 72 6D 69 6E 7B 20 20 2C 20 20 6F 6E 20 20 termin{ , on
0000F0: 6D 65 74 20 20 40 20 6A 6F 75 72 20 6C 65 73 20 met @ jour les
000100: 70 6F 69 6E 74 65 75 72 73 20 65 74 0D 0A 20 63 pointeurs et.. c
000110: 27 65 73 74 20 66 69 6E 69 20 2E 0D 0A 20 0D 0A 'est fini ... ..
000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2D 2D --
000140: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000150: 2D 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 -.. ;..
000160: 4C 44 20 48 4C 2C 28 41 44 42 55 46 46 29 0D 0A LD HL,(ADBUFF)..
000170: 20 20 20 20 20 20 20 20 20 4C 44 20 28 50 4F 49 LD (POI
000180: 4E 50 49 53 29 2C 48 4C 20 3B 41 64 72 65 73 73 NPIS),HL ;Adress
000190: 65 20 64 65 62 75 74 20 73 74 6F 63 6B 61 67 65 e debut stockage
0001A0: 20 70 72 6F 63 68 61 69 6E 65 20 70 69 73 74 65 prochaine piste
0001B0: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 49 .. LD (I
0001C0: 58 2B 30 29 2C 4C 20 20 20 20 20 3B 4D 65 6D 6F X+0),L ;Memo
0001D0: 72 69 73 65 72 20 64 65 70 61 72 74 20 64 65 73 riser depart des
0001E0: 20 64 6F 6E 6E 65 65 73 20 70 72 6F 63 68 61 69 donnees prochai
0001F0: 6E 65 20 70 69 73 74 65 0D 0A 20 20 20 20 20 20 ne piste..
Size : 512 (Real : 512)
000000: 20 20 20 4C 44 20 28 49 58 2B 31 29 2C 48 0D 0A LD (IX+1),H..
000010: 20 20 20 20 20 20 20 20 20 58 4F 52 20 41 0D 0A XOR A..
000020: 20 20 20 20 20 20 20 20 20 4C 44 20 28 46 4C 41 LD (FLA
000030: 47 29 2C 41 0D 0A 20 20 20 20 20 20 20 20 20 53 G),A.. S
000040: 43 46 0D 0A 20 20 20 20 20 20 20 20 20 52 45 54 CF.. RET
000050: 0D 0A 20 3B 0D 0A 20 54 53 54 4F 4B 50 20 20 44 .. ;.. TSTOKP D
000060: 42 20 33 31 2C 32 2C 32 31 2C 32 34 2C 22 20 53 B 31,2,21,24," S
000070: 54 4F 43 4B 41 47 45 20 20 20 50 49 53 54 45 20 TOCKAGE PISTE
000080: 22 2C 32 34 0D 0A 20 54 53 54 4F 53 45 43 20 44 ",24.. TSTOSEC D
000090: 42 20 33 31 2C 32 2C 32 32 2C 32 34 2C 22 20 53 B 31,2,22,24," S
0000A0: 54 4F 43 4B 41 47 45 20 53 45 43 54 45 55 52 20 TOCKAGE SECTEUR
0000B0: 22 2C 32 34 2C 23 38 30 0D 0A 20 54 4C 45 43 54 ",24,#80.. TLECT
0000C0: 45 52 20 44 42 20 33 31 2C 32 2C 32 34 2C 31 38 ER DB 31,2,24,18
0000D0: 2C 32 34 2C 22 20 45 52 52 45 55 52 20 4C 45 43 ,24," ERREUR LEC
0000E0: 54 55 52 45 20 53 55 52 20 53 45 43 54 45 55 52 TURE SUR SECTEUR
0000F0: 20 3A 20 22 2C 32 34 2C 22 20 22 2C 37 2C 23 38 : ",24," ",7,#8
000100: 30 0D 0A 20 52 45 4C 49 52 45 20 20 44 42 20 30 0.. RELIRE DB 0
000110: 0D 0A 20 50 4F 49 4E 54 49 44 20 44 57 20 30 0D .. POINTID DW 0.
000120: 0A 20 53 54 4F 4B 45 52 52 20 44 57 20 30 0D 0A . STOKERR DW 0..
000130: 20 46 4C 41 47 20 20 20 20 44 42 20 30 0D 0A 20 FLAG DB 0..
000140: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000160: 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ---------------
000170: 2D 2D 2D 2D 0D 0A 20 0D 0A 20 20 20 20 20 20 20 ----.. ..
000180: 20 20 20 20 20 20 20 20 20 4C 41 20 53 55 49 54 LA SUIT
000190: 45 20 44 45 20 4C 27 41 56 45 4E 54 55 52 45 20 E DE L'AVENTURE
0001A0: 44 41 4E 53 20 52 45 50 52 4F 44 55 43 54 49 4F DANS REPRODUCTIO
0001B0: 4E 20 32 20 2E 2E 2E 0D 0A 20 00 00 1A 20 20 20 N 2 ..... ...
0001C0: 20 20 20 20 20 20 20 20 20 20 20 20 2D 2D 2D 2D ----
0001D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D ---------------.
0001E0: 0A 20 0D 0A 20 20 20 20 20 54 6F 75 74 20 63 65 . .. Tout ce
0001F0: 20 71 75 69 20 63 6F 6E 63 65 72 6E 65 20 6C 61 qui concerne la
Size : 512 (Real : 512)
000000: 3B 0D 0A 45 46 46 53 43 52 20 20 4C 44 20 41 2C ;..EFFSCR LD A,
000010: 35 20 20 20 20 20 20 20 20 20 20 3B 45 66 66 61 5 ;Effa
000020: 63 65 72 20 62 61 73 20 65 63 72 61 6E 20 64 65 cer bas ecran de
000030: 70 75 69 73 20 6C 69 67 6E 65 20 35 0D 0A 20 20 puis ligne 5..
000040: 20 20 20 20 20 20 4A 50 20 45 46 46 42 41 53 0D JP EFFBAS.
000050: 0A 3B 0D 0A 57 41 49 54 44 49 53 43 20 50 55 53 .;..WAITDISC PUS
000060: 48 20 48 4C 20 20 20 20 20 20 20 3B 41 74 74 65 H HL ;Atte
000070: 6E 64 72 65 20 64 69 73 63 20 73 6F 75 72 63 65 ndre disc source
000080: 20 6F 75 20 64 65 73 74 69 6E 61 74 69 6F 6E 0D ou destination.
000090: 0A 20 20 20 20 20 20 20 20 4C 44 20 48 4C 2C 23 . LD HL,#
0000A0: 30 32 31 39 0D 0A 20 20 20 20 20 20 20 20 43 41 0219.. CA
0000B0: 4C 4C 20 23 42 42 37 35 0D 0A 20 20 20 20 20 20 LL #BB75..
0000C0: 20 20 50 4F 50 20 48 4C 0D 0A 20 20 20 20 20 20 POP HL..
0000D0: 20 20 43 41 4C 4C 20 50 52 54 0D 0A 20 20 20 20 CALL PRT..
0000E0: 20 20 20 20 4A 50 20 23 42 42 30 36 0D 0A 3B 0D JP #BB06..;.
0000F0: 0A 53 45 54 44 45 52 20 20 4C 44 20 28 44 45 52 .SETDER LD (DER
000100: 50 49 53 54 29 2C 41 20 20 3B 46 69 78 65 72 20 PIST),A ;Fixer
000110: 6C 69 6D 69 74 65 73 20 64 65 72 6E 69 65 72 65 limites derniere
000120: 20 70 69 73 74 65 0D 0A 20 20 20 20 20 20 20 20 piste..
000130: 4C 44 20 28 4D 45 4D 4F 45 4E 44 29 2C 41 0D 0A LD (MEMOEND),A..
000140: 20 20 20 20 20 20 20 20 49 4E 43 20 41 0D 0A 20 INC A..
000150: 20 20 20 20 20 20 20 4C 44 20 28 50 49 53 54 4D LD (PISTM
000160: 41 58 29 2C 41 0D 0A 20 20 20 20 20 20 20 20 52 AX),A.. R
000170: 45 54 0D 0A 3B 0D 0A 20 20 20 20 20 20 20 20 20 ET..;..
000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 2D 2D ;--
000190: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0001A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A --------------..
0001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001C0: 20 20 20 20 20 20 3B 2D 20 41 4E 41 4C 59 53 45 ;- ANALYSE
0001D0: 20 46 49 4E 41 4C 45 20 53 45 4C 4F 4E 20 4C 49 FINALE SELON LI
0001E0: 53 54 45 52 50 20 2D 0D 0A 20 20 20 20 20 20 20 STERP -..
0001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B ;
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000010: 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ---------------
000020: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000030: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A --------------..
000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000050: 20 2D 20 43 4F 50 49 45 55 52 20 32 45 4D 45 20 - COPIEUR 2EME
000060: 50 41 52 54 49 45 20 3A 20 41 4E 41 4C 59 53 45 PARTIE : ANALYSE
000070: 20 44 45 20 4C 41 20 50 49 53 54 45 20 2D 0D 0A DE LA PISTE -..
000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000090: 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ---------------
0000A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0000B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A --------------..
0000C0: 20 3B 0D 0A 20 20 20 20 20 43 65 74 74 65 20 73 ;.. Cette s
0000D0: 65 63 74 69 6F 6E 20 6E 27 61 20 73 75 62 69 20 ection n'a subi
0000E0: 71 75 65 20 70 65 75 20 64 65 20 6D 6F 64 69 66 que peu de modif
0000F0: 69 63 61 74 69 6F 6E 73 20 66 6F 6E 64 61 6D 65 ications fondame
000100: 6E 74 61 6C 65 73 20 70 61 72 20 72 61 70 70 6F ntales par rappo
000110: 72 74 0D 0A 20 40 20 6C 61 20 20 76 65 72 73 69 rt.. @ la versi
000120: 6F 6E 20 20 70 72 7B 63 7B 64 65 6E 74 65 20 20 on pr{c{dente
000130: 2E 20 20 4C 65 73 20 20 71 75 65 6C 71 75 65 73 . Les quelques
000140: 20 20 63 68 61 6E 67 65 6D 65 6E 74 73 20 20 61 changements a
000150: 70 70 6F 72 74 7B 73 20 20 73 6F 6E 74 20 20 6C pport{s sont l
000160: 65 73 0D 0A 20 73 75 69 76 61 6E 74 73 20 3A 0D es.. suivants :.
000170: 0A 20 0D 0A 20 20 20 20 20 4C 65 20 74 65 73 74 . .. Le test
000180: 20 64 65 20 70 69 73 74 65 20 66 6F 72 6D 61 74 de piste format
000190: 7B 65 20 6F 75 20 6E 6F 6E 20 40 20 7B 74 7B 20 {e ou non @ {t{
0001A0: 64 7B 70 6C 61 63 7B 20 65 6E 20 4C 49 54 49 44 d{plac{ en LITID
0001B0: 53 20 2E 0D 0A 20 20 20 20 20 4C 27 6F 72 64 72 S ... L'ordr
0001C0: 65 20 64 65 73 20 6F 70 7B 72 61 74 69 6F 6E 73 e des op{rations
0001D0: 20 40 20 63 68 61 6E 67 7B 20 20 21 20 20 4F 6E @ chang{ ! On
0001E0: 20 20 72 65 63 75 65 69 6C 6C 65 20 44 27 41 42 recueille D'AB
0001F0: 4F 52 44 20 6C 27 7B 74 61 74 20 64 27 65 72 72 ORD l'{tat d'err
Size : 512 (Real : 512)
000000: 65 75 72 0D 0A 20 64 65 73 20 73 65 63 74 65 75 eur.. des secteu
000010: 72 73 20 61 76 61 6E 74 20 64 65 20 63 61 6C 63 rs avant de calc
000020: 75 6C 65 72 20 6C 61 20 74 61 69 6C 6C 65 20 64 uler la taille d
000030: 65 20 66 6F 72 6D 61 74 20 65 74 20 64 75 20 47 e format et du G
000040: 41 50 20 2E 0D 0A 20 20 20 20 20 4C 61 20 72 6F AP ... La ro
000050: 75 74 69 6E 65 20 20 56 49 53 45 53 45 43 20 20 utine VISESEC
000060: 64 65 76 69 65 6E 74 20 20 56 49 53 49 4E 53 54 devient VISINST
000070: 20 20 2E 20 20 45 6C 6C 65 20 20 65 73 74 20 20 . Elle est
000080: 70 6C 75 73 20 20 72 61 70 69 64 65 20 20 71 75 plus rapide qu
000090: 65 20 6C 61 0D 0A 20 70 72 7B 63 7B 64 65 6E 74 e la.. pr{c{dent
0000A0: 65 20 2C 20 70 6F 69 6E 74 65 20 6C 65 20 73 65 e , pointe le se
0000B0: 63 74 65 75 72 20 64 65 6D 61 6E 64 7B 20 65 74 cteur demand{ et
0000C0: 20 7B 78 7B 63 75 74 65 20 6C 27 69 6E 73 74 72 {x{cute l'instr
0000D0: 75 63 74 69 6F 6E 20 2E 0D 0A 20 20 20 20 20 4C uction ... L
0000E0: 27 65 6E 73 65 6D 62 6C 65 20 66 6F 72 75 6E 69 'ensemble foruni
0000F0: 74 20 70 6C 75 73 20 64 27 69 6E 66 6F 72 6D 61 t plus d'informa
000100: 74 69 6F 6E 73 20 71 75 65 20 6C 61 20 70 72 7B tions que la pr{
000110: 63 7B 64 65 6E 74 65 20 73 65 6C 6F 6E 20 6C 27 c{dente selon l'
000120: 7B 74 61 74 20 64 65 73 0D 0A 20 66 6C 61 67 73 {tat des.. flags
000130: 20 72 65 6E 76 6F 79 7B 73 20 70 61 72 20 6C 65 renvoy{s par le
000140: 20 63 61 6C 63 75 6C 20 64 65 73 20 47 41 50 53 calcul des GAPS
000150: 20 2E 0D 0A 20 20 20 20 20 4C 65 20 66 65 6E 7B ... Le fen{
000160: 74 72 61 67 65 20 65 74 20 6C 27 69 6D 70 72 65 trage et l'impre
000170: 73 73 69 6F 6E 20 6F 6E 74 20 20 7B 74 7B 20 20 ssion ont {t{
000180: 61 64 61 70 74 7B 73 20 20 61 75 78 20 62 65 73 adapt{s aux bes
000190: 6F 69 6E 73 20 64 65 20 63 65 20 6E 6F 75 76 65 oins de ce nouve
0001A0: 61 75 0D 0A 20 70 72 6F 67 72 61 6D 6D 65 20 2E au.. programme .
0001B0: 0D 0A 20 20 20 20 20 50 6F 75 72 20 6C 65 20 72 .. Pour le r
0001C0: 65 73 74 65 20 2C 20 72 65 70 6F 72 74 65 7A 20 este , reportez
0001D0: 76 6F 75 73 20 61 75 20 20 6E 75 6D 7B 72 6F 20 vous au num{ro
0001E0: 70 72 7B 63 7B 64 65 6E 74 20 64 65 20 53 4F 53 pr{c{dent de SOS
0001F0: 20 50 52 4F 47 52 41 4D 4D 45 55 52 53 20 73 69 PROGRAMMEURS si
Size : 512 (Real : 512)
000000: 0D 0A 20 76 6F 75 73 20 6E 27 61 76 65 7A 20 70 .. vous n'avez p
000010: 61 73 20 74 6F 75 74 20 63 6F 6D 70 72 69 73 20 as tout compris
000020: 2E 20 4C 65 20 6C 69 73 74 69 6E 67 20 65 73 74 . Le listing est
000030: 20 69 63 69 20 66 6F 72 74 20 70 65 75 20 63 6F ici fort peu co
000040: 6D 6D 65 6E 74 7B 20 2C 20 6C 61 20 66 61 63 65 mment{ , la face
000050: 0D 0A 20 46 44 43 20 6E 65 20 66 61 69 74 20 71 .. FDC ne fait q
000060: 75 65 20 31 37 38 4B 20 21 0D 0A 20 0D 0A 20 20 ue 178K !.. ..
000070: 20 20 20 56 6F 69 63 69 20 6C 61 20 73 69 67 6E Voici la sign
000080: 69 66 69 63 61 74 69 6F 6E 20 64 65 73 20 62 69 ification des bi
000090: 74 73 20 64 65 20 46 4C 41 47 46 4E 43 20 3A 0D ts de FLAGFNC :.
0000A0: 0A 20 0D 0A 20 20 20 20 20 42 69 74 20 30 20 3A . .. Bit 0 :
0000B0: 20 4C 27 6F 63 74 65 74 20 64 65 20 66 6F 72 6D L'octet de form
0000C0: 61 74 61 67 65 20 40 20 7B 74 7B 20 74 72 6F 75 atage @ {t{ trou
0000D0: 76 7B 20 64 61 6E 73 20 75 6E 20 43 52 2F 44 44 v{ dans un CR/DD
0000E0: 0D 0A 20 20 20 20 20 42 69 74 20 31 20 3A 20 4C .. Bit 1 : L
0000F0: 65 20 47 41 50 23 33 20 65 73 74 20 64 69 66 66 e GAP#3 est diff
000100: 7B 72 65 6E 74 20 64 65 20 23 34 45 0D 0A 20 20 {rent de #4E..
000110: 20 20 20 42 69 74 20 32 20 3A 20 4C 65 20 47 41 Bit 2 : Le GA
000120: 50 20 65 73 74 20 74 72 6F 70 20 6C 6F 6E 67 20 P est trop long
000130: 2E 20 28 4E 65 20 64 65 76 72 61 69 74 20 70 6C . (Ne devrait pl
000140: 75 73 20 73 65 20 70 72 6F 64 75 69 72 65 29 0D us se produire).
000150: 0A 20 20 20 20 20 42 69 74 20 33 20 3A 20 4C 61 . Bit 3 : La
000160: 20 70 69 73 74 65 20 6E 27 65 73 74 20 70 61 73 piste n'est pas
000170: 20 66 6F 72 6D 61 74 7B 65 0D 0A 20 20 20 20 20 format{e..
000180: 42 69 74 20 34 20 3A 20 50 72 7B 73 65 6E 63 65 Bit 4 : Pr{sence
000190: 20 43 45 52 54 41 49 4E 45 20 64 65 20 73 65 63 CERTAINE de sec
0001A0: 74 65 75 72 73 20 7B 63 72 61 73 7B 73 20 73 75 teurs {cras{s su
0001B0: 72 20 6C 61 20 70 69 73 74 65 0D 0A 20 20 20 20 r la piste..
0001C0: 20 42 69 74 20 35 20 3A 20 50 72 7B 73 65 6E 63 Bit 5 : Pr{senc
0001D0: 65 20 50 4F 53 53 49 42 4C 45 20 64 65 20 73 65 e POSSIBLE de se
0001E0: 63 74 65 75 72 73 20 7B 63 72 61 73 7B 73 20 73 cteurs {cras{s s
0001F0: 75 72 20 6C 61 20 70 69 73 74 65 0D 0A 20 20 20 ur la piste..
Size : 512 (Real : 512)
000000: 20 20 42 69 74 20 36 20 3A 20 50 69 73 74 65 20 Bit 6 : Piste
000010: 6E 6F 72 6D 61 6C 65 20 61 62 69 6D 7B 65 0D 0A normale abim{e..
000020: 20 20 20 20 20 42 69 74 20 37 20 3A 20 4C 27 61 Bit 7 : L'a
000030: 6E 61 6C 79 73 65 75 72 20 73 27 65 73 74 20 70 nalyseur s'est p
000040: 6C 61 6E 74 7B 20 21 20 28 4E 65 20 64 65 76 72 lant{ ! (Ne devr
000050: 61 69 74 20 74 70 61 73 20 61 72 72 69 76 65 72 ait tpas arriver
000060: 29 0D 0A 0D 0A 20 20 20 20 20 20 20 20 20 20 20 )....
000070: 20 20 20 20 20 20 20 20 20 20 20 2D 2D 2D 2D 2D -----
000080: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000090: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 20 ------------..
0000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000B0: 20 20 20 2D 20 41 4C 47 4F 52 48 59 54 4D 45 20 - ALGORHYTME
0000C0: 47 45 4E 45 52 41 4C 20 44 45 20 4C 27 41 4E 41 GENERAL DE L'ANA
0000D0: 4C 59 53 45 20 2D 0D 0A 20 20 20 20 20 20 20 20 LYSE -..
0000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2D 2D --
0000F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000100: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D ---------------.
000110: 0A 0D 0A 20 20 20 20 20 20 4E 6F 74 65 20 3A 20 ... Note :
000120: 43 65 20 73 63 68 7B 6D 61 20 69 6E 63 6C 75 74 Ce sch{ma inclut
000130: 20 6C 65 73 20 33 20 73 65 63 74 69 6F 6E 73 20 les 3 sections
000140: 73 75 69 76 61 6E 74 65 73 20 61 6E 6E 6F 74 7B suivantes annot{
000150: 65 73 20 28 50 2E 53 2E 29 0D 0A 0D 0A 0D 0A 20 es (P.S.)......
000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4C L
000180: 49 52 45 20 4C 45 53 20 49 44 53 0D 0A 20 20 20 IRE LES IDS..
000190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001A0: 20 20 20 20 59 2D 41 20 54 2D 49 4C 20 44 45 53 Y-A T-IL DES
0001B0: 20 49 44 53 20 53 55 52 20 4C 41 20 50 49 53 54 IDS SUR LA PIST
0001C0: 45 20 3F 0D 0A 20 20 20 20 20 20 20 20 20 20 20 E ?..
0001D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001E0: 20 20 20 20 20 20 20 20 20 20 20 21 0D 0A 20 20 !..
0001F0: 20 20 20 20 20 2B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D +----------
Size : 512 (Real : 512)
000000: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 3C ---------------<
000010: 20 4F 55 49 20 4E 4F 4E 20 3E 2D 2D 2D 2D 2D 2D OUI NON >------
000020: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000030: 2D 2D 2D 2B 0D 0A 20 20 20 20 20 20 20 21 20 20 ---+.. !
000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000070: 20 20 20 20 20 20 20 20 20 20 20 21 0D 0A 20 20 !..
000080: 20 20 20 20 20 2B 2D 2D 2D 2D 2D 3E 20 4C 49 52 +-----> LIR
000090: 45 20 4C 45 53 20 53 45 43 54 45 55 52 53 20 45 E LES SECTEURS E
0000A0: 54 20 54 45 53 54 45 52 20 4C 45 55 52 20 45 54 T TESTER LEUR ET
0000B0: 41 54 20 44 27 45 52 52 45 55 52 20 20 20 20 20 AT D'ERREUR
0000C0: 20 20 20 21 0D 0A 20 20 20 20 20 20 20 20 20 20 !..
0000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000E0: 20 20 41 46 46 49 43 48 45 52 20 4C 45 53 20 53 AFFICHER LES S
0000F0: 45 43 54 45 55 52 53 20 20 20 20 20 20 20 20 20 ECTEURS
000100: 20 20 20 20 20 20 20 20 20 20 20 21 0D 0A 20 20 !..
000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000130: 20 20 20 20 21 20 20 20 20 20 20 20 20 20 20 20 !
000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000150: 20 20 20 21 0D 0A 20 20 20 20 20 20 20 20 20 20 !..
000160: 44 45 54 45 52 4D 49 4E 45 52 20 4C 45 53 20 47 DETERMINER LES G
000170: 41 50 53 20 45 54 20 4C 45 20 46 4F 52 4D 41 54 APS ET LE FORMAT
000180: 20 45 58 41 43 54 20 44 45 20 4C 41 20 50 49 53 EXACT DE LA PIS
000190: 54 45 20 28 50 2E 53 2E 29 20 20 21 0D 0A 20 20 TE (P.S.) !..
0001A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001B0: 20 59 2D 41 20 54 2D 49 4C 20 44 45 53 20 53 45 Y-A T-IL DES SE
0001C0: 43 54 45 55 52 53 20 45 43 52 41 53 45 53 20 3F CTEURS ECRASES ?
0001D0: 20 28 50 2E 53 2E 29 20 20 20 20 20 20 20 20 20 (P.S.)
0001E0: 20 20 20 21 0D 0A 20 20 20 20 20 20 20 20 20 20 !..
0001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 20 20 21 20 20 20 !
000010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000020: 20 20 20 20 20 20 20 20 20 20 20 21 0D 0A 20 20 !..
000030: 20 20 20 20 20 2B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D +----------
000040: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 3C ---------------<
000050: 20 4F 55 49 20 4E 4F 4E 20 3E 2D 2D 2D 2D 2D 2D OUI NON >------
000060: 2D 2D 2D 2D 2D 2B 20 20 20 20 20 20 20 20 20 20 -----+
000070: 20 20 20 21 0D 0A 20 20 20 20 20 20 20 21 20 20 !.. !
000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 20 !
0000B0: 20 4E 4F 54 45 52 20 4E 4F 4E 20 46 4F 52 4D 41 NOTER NON FORMA
0000C0: 54 45 45 0D 0A 20 20 20 20 20 20 20 2B 2D 2D 2D TEE.. +---
0000D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 3E 20 52 45 ------------> RE
0000E0: 43 41 4C 43 55 4C 45 52 20 4C 45 20 46 4F 52 4D CALCULER LE FORM
0000F0: 41 54 20 28 50 2E 53 29 20 20 20 20 21 20 20 20 AT (P.S) !
000100: 20 20 20 20 20 20 20 20 20 20 21 0D 0A 20 20 20 !..
000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000130: 20 20 20 21 20 20 20 20 20 20 20 20 20 20 20 20 !
000140: 20 20 20 20 21 20 20 20 20 20 20 20 20 20 20 20 !
000150: 20 20 21 0D 0A 20 20 20 20 20 20 20 20 20 20 20 !..
000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 41 46 AF
000170: 46 49 43 48 45 52 20 4C 45 53 20 44 4F 4E 4E 45 FICHER LES DONNE
000180: 45 53 20 50 49 53 54 45 20 3C 2D 2D 2B 2D 2D 2D ES PISTE <--+---
000190: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2B 0D 0A 20 20 20 ----------+..
0001A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001B0: 20 20 20 20 49 4D 50 52 49 4D 45 52 20 53 27 49 IMPRIMER S'I
0001C0: 4C 20 59 2D 41 20 4C 49 45 55 20 45 54 20 46 49 L Y-A LIEU ET FI
0001D0: 4E 49 0D 0A 0D 0A 20 20 20 20 20 20 20 20 20 20 NI....
0001E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001F0: 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ;---------------
Size : 512 (Real : 512)
000000: 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 20 20 20 20 20 --------..
000010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000020: 20 20 20 20 3B 2D 20 41 4E 41 4C 59 53 45 20 44 ;- ANALYSE D
000030: 45 20 4C 41 20 50 49 53 54 45 20 2D 0D 0A 20 20 E LA PISTE -..
000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000050: 20 20 20 20 20 20 20 20 3B 2D 2D 2D 2D 2D 2D 2D ;-------
000060: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000070: 0D 0A 20 3B 0D 0A 20 41 4E 41 50 49 53 54 20 58 .. ;.. ANAPIST X
000080: 4F 52 20 41 0D 0A 20 20 20 20 20 20 20 20 20 4C OR A.. L
000090: 44 20 28 46 4C 41 47 46 4E 43 29 2C 41 20 20 3B D (FLAGFNC),A ;
0000A0: 52 65 6D 69 73 65 20 61 20 7A 65 72 6F 20 64 75 Remise a zero du
0000B0: 20 66 6C 61 67 20 61 6E 61 6C 79 73 65 20 70 69 flag analyse pi
0000C0: 73 74 65 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 ste.. ;..
0000D0: 20 20 4C 44 20 41 2C 23 31 37 20 20 20 20 20 20 LD A,#17
0000E0: 20 20 3B 45 66 66 61 63 65 72 20 65 63 72 61 6E ;Effacer ecran
0000F0: 20 65 74 20 6F 75 76 72 69 72 20 66 65 6E 65 74 et ouvrir fenet
000100: 72 65 73 20 49 44 53 0D 0A 20 20 20 20 20 20 20 res IDS..
000110: 20 20 43 41 4C 4C 20 45 46 46 4C 49 4E 45 0D 0A CALL EFFLINE..
000120: 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 46 45 CALL FE
000130: 4E 49 44 45 0D 0A 20 20 20 20 20 20 20 20 20 43 NIDE.. C
000140: 41 4C 4C 20 46 45 4E 49 44 45 31 41 0D 0A 20 20 ALL FENIDE1A..
000150: 20 20 20 20 20 20 20 43 41 4C 4C 20 46 45 4E 49 CALL FENI
000160: 44 4C 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C DL.. CAL
000170: 4C 20 46 45 4E 49 44 4C 31 41 0D 0A 20 20 20 20 L FENIDL1A..
000180: 20 20 20 20 20 43 41 4C 4C 20 46 45 4E 52 45 53 CALL FENRES
000190: 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 .. CALL
0001A0: 46 45 4E 53 43 52 0D 0A 20 3B 0D 0A 20 20 20 20 FENSCR.. ;..
0001B0: 20 20 20 20 20 43 41 4C 4C 20 56 45 52 49 49 44 CALL VERIID
0001C0: 20 20 20 20 20 3B 41 6C 6C 65 72 20 6C 69 72 65 ;Aller lire
0001D0: 20 6C 65 73 20 49 44 53 0D 0A 20 20 20 20 20 20 les IDS..
0001E0: 20 20 20 4A 52 20 43 2C 50 49 53 54 46 4F 52 4D JR C,PISTFORM
0001F0: 20 20 20 3B 53 69 20 4E 43 20 6C 61 20 70 69 73 ;Si NC la pis
Size : 512 (Real : 512)
000000: 74 65 20 6E 27 65 73 74 20 70 61 73 20 66 6F 72 te n'est pas for
000010: 6D 61 74 65 65 0D 0A 20 3B 0D 0A 20 20 20 20 20 matee.. ;..
000020: 20 20 20 20 43 41 4C 4C 20 46 45 4E 53 43 52 20 CALL FENSCR
000030: 20 20 20 20 3B 50 61 73 20 66 6F 72 6D 61 74 65 ;Pas formate
000040: 65 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 48 e.. LD H
000050: 4C 2C 54 4E 4F 46 4F 52 4D 20 20 20 3B 41 66 66 L,TNOFORM ;Aff
000060: 69 63 68 65 72 0D 0A 20 20 20 20 20 20 20 20 20 icher..
000070: 43 41 4C 4C 20 50 52 54 49 4E 56 31 20 20 20 20 CALL PRTINV1
000080: 3B 45 6E 20 69 6E 76 65 72 73 65 0D 0A 20 20 20 ;En inverse..
000090: 20 20 20 20 20 20 4C 44 20 41 2C 28 46 4C 41 47 LD A,(FLAG
0000A0: 46 4E 43 29 20 20 3B 4D 65 6D 6F 72 69 73 65 72 FNC) ;Memoriser
0000B0: 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 53 .. ;.. S
0000C0: 45 54 20 33 2C 41 0D 0A 20 20 20 20 20 20 20 20 ET 3,A..
0000D0: 20 4C 44 20 28 46 4C 41 47 46 4E 43 29 2C 41 20 LD (FLAGFNC),A
0000E0: 20 3B 4D 65 74 74 72 65 20 6C 65 20 62 69 74 20 ;Mettre le bit
0000F0: 70 61 73 20 64 65 20 66 6F 72 6D 61 74 0D 0A 20 pas de format..
000100: 3B 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 41 ;.. LD A
000110: 2C 28 46 4C 41 47 49 4D 50 29 20 20 3B 49 6D 70 ,(FLAGIMP) ;Imp
000120: 72 65 73 73 69 6F 6E 20 65 6E 20 63 6F 75 72 73 ression en cours
000130: 20 3F 0D 0A 20 20 20 20 20 20 20 20 20 4F 52 20 ?.. OR
000140: 41 0D 0A 20 20 20 20 20 20 20 20 20 52 45 54 20 A.. RET
000150: 5A 20 20 20 20 20 20 20 20 20 20 20 3B 4E 6F 6E Z ;Non
000160: 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 43 .. ;.. C
000170: 41 4C 4C 20 53 45 54 49 4D 50 20 20 20 20 20 3B ALL SETIMP ;
000180: 4F 75 69 0D 0A 20 20 20 20 20 20 20 20 20 43 41 Oui.. CA
000190: 4C 4C 20 49 4D 50 50 49 53 54 20 20 20 20 3B 49 LL IMPPIST ;I
0001A0: 6D 70 72 69 6D 65 72 20 6E 75 6D 7B 72 6F 20 64 mprimer num{ro d
0001B0: 65 20 70 69 73 74 65 0D 0A 20 20 20 20 20 20 20 e piste..
0001C0: 20 20 4C 44 20 48 4C 2C 54 50 41 46 4F 52 4D 20 LD HL,TPAFORM
0001D0: 20 20 3B 45 74 20 70 61 73 20 66 6F 72 6D 61 74 ;Et pas format
0001E0: 65 65 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C ee.. CAL
0001F0: 4C 20 50 52 54 0D 0A 20 20 20 20 20 20 20 20 20 L PRT..
Size : 512 (Real : 512)
000000: 43 41 4C 4C 20 41 53 54 45 52 49 51 55 45 20 20 CALL ASTERIQUE
000010: 3B 41 66 66 69 63 68 65 20 75 6E 20 27 2A 27 20 ;Affiche un '*'
000020: 65 74 20 72 65 73 65 74 20 64 65 20 6C 27 69 6D et reset de l'im
000030: 70 72 65 73 73 69 6F 6E 0D 0A 20 20 20 20 20 20 pression..
000040: 20 20 20 58 4F 52 20 41 0D 0A 20 20 20 20 20 20 XOR A..
000050: 20 20 20 52 45 54 0D 0A 20 3B 0D 0A 20 54 50 41 RET.. ;.. TPA
000060: 46 4F 52 4D 20 44 42 20 22 20 4E 4F 4E 20 46 4F FORM DB " NON FO
000070: 52 4D 41 54 45 45 22 2C 23 38 30 0D 0A 20 3B 0D RMATEE",#80.. ;.
000080: 0A 20 50 49 53 54 46 4F 52 4D 20 43 41 4C 4C 20 . PISTFORM CALL
000090: 46 45 4E 53 43 52 20 20 20 20 3B 52 65 73 74 61 FENSCR ;Resta
0000A0: 75 72 65 72 20 70 6C 65 69 6E 20 65 63 72 61 6E urer plein ecran
0000B0: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 48 4C .. LD HL
0000C0: 2C 54 4C 49 54 53 45 43 54 20 20 3B 54 65 78 74 ,TLITSECT ;Text
0000D0: 65 20 6C 69 74 20 73 65 63 74 65 75 72 73 0D 0A e lit secteurs..
0000E0: 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 50 52 CALL PR
0000F0: 54 49 4E 56 20 20 20 20 20 3B 41 66 66 69 63 68 TINV ;Affich
000100: 65 72 20 65 6E 20 69 6E 76 65 72 73 65 0D 0A 20 er en inverse..
000110: 3B 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 41 ;.. LD A
000120: 2C 28 4E 42 53 45 43 29 20 20 20 20 3B 50 61 72 ,(NBSEC) ;Par
000130: 61 6D 65 74 72 65 72 20 62 6F 75 63 6C 65 20 61 ametrer boucle a
000140: 6E 61 6C 79 73 65 0D 0A 20 20 20 20 20 20 20 20 nalyse..
000150: 20 4C 44 20 42 2C 41 0D 0A 20 20 20 20 20 20 20 LD B,A..
000160: 20 20 58 4F 52 20 41 0D 0A 20 20 20 20 20 20 20 XOR A..
000170: 20 20 4C 44 20 28 43 4F 55 4E 54 29 2C 41 0D 0A LD (COUNT),A..
000180: 20 20 20 20 20 20 20 20 20 4C 44 20 48 4C 2C 4C LD HL,L
000190: 49 54 46 44 43 31 20 20 20 3B 4C 69 72 65 20 73 ITFDC1 ;Lire s
0001A0: 61 6E 73 20 73 74 6F 63 6B 65 72 20 6C 65 73 20 ans stocker les
0001B0: 64 6F 6E 6E 7B 65 73 0D 0A 20 3B 0D 0A 20 20 20 donn{es.. ;..
0001C0: 20 20 20 20 20 20 4C 44 20 41 2C 23 34 36 20 20 LD A,#46
0001D0: 20 20 20 20 20 20 3B 43 6F 6D 6D 61 6E 64 65 20 ;Commande
0001E0: 6C 69 72 65 20 73 65 63 74 65 75 72 73 0D 0A 20 lire secteurs..
0001F0: 20 20 20 20 20 20 20 20 43 41 4C 4C 20 53 45 54 CALL SET
Size : 512 (Real : 512)
000000: 43 4F 4D 32 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 COM2.. ;..
000010: 20 20 20 4C 44 20 48 4C 2C 4C 49 53 54 45 52 52 LD HL,LISTERR
000020: 20 20 20 3B 50 6F 69 6E 74 65 72 20 6C 65 20 64 ;Pointer le d
000030: 65 62 75 74 20 64 65 20 6C 61 20 6C 69 73 74 65 ebut de la liste
000040: 20 64 65 73 20 65 72 72 65 75 72 73 0D 0A 20 20 des erreurs..
000050: 20 20 20 20 20 20 20 4C 44 20 28 50 4F 49 4E 54 LD (POINT
000060: 45 52 29 2C 48 4C 20 20 20 20 20 0D 0A 20 20 20 ER),HL ..
000070: 20 20 20 20 20 20 4C 44 20 48 4C 2C 49 44 49 4E LD HL,IDIN
000080: 44 52 41 20 20 20 3B 45 74 20 6C 65 20 64 7B 62 DRA ;Et le d{b
000090: 75 74 20 64 65 20 6C 61 20 7A 6F 6E 65 20 64 65 ut de la zone de
0000A0: 73 20 49 44 53 0D 0A 20 3B 0D 0A 20 20 20 20 20 s IDS.. ;..
0000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000C0: 20 20 20 20 20 20 20 20 3B 2D 2D 2D 2D 2D 2D 2D ;-------
0000D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 -------------..
0000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000F0: 20 20 20 20 20 20 20 20 20 20 20 20 3B 2D 20 42 ;- B
000100: 4F 55 43 4C 45 20 44 27 41 4E 41 4C 59 53 45 20 OUCLE D'ANALYSE
000110: 2D 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 -..
000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000130: 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ;---------------
000140: 2D 2D 2D 2D 2D 0D 0A 20 3B 0D 0A 20 4E 45 58 54 -----.. ;.. NEXT
000150: 56 45 52 20 43 41 4C 4C 20 54 52 41 4E 53 33 49 VER CALL TRANS3I
000160: 44 20 20 20 3B 49 67 6E 6F 72 65 72 20 49 44 20 D ;Ignorer ID
000170: 70 69 73 74 65 20 65 74 20 72 65 63 6F 70 69 65 piste et recopie
000180: 72 20 6C 65 73 20 61 75 74 72 65 73 0D 0A 20 20 r les autres..
000190: 20 20 20 20 20 20 20 49 4E 43 20 48 4C 0D 0A 20 INC HL..
0001A0: 20 20 20 20 20 20 20 20 43 41 4C 4C 20 46 49 58 CALL FIX
0001B0: 4C 46 46 20 20 20 20 20 3B 30 20 6F 75 20 23 46 LFF ;0 ou #F
0001C0: 46 20 73 65 6C 6F 6E 20 74 61 69 6C 6C 65 20 73 F selon taille s
0001D0: 65 63 74 65 75 72 20 63 6F 6D 6D 65 20 64 65 72 ecteur comme der
0001E0: 6E 69 65 72 0D 0A 20 20 20 20 20 20 20 20 20 50 nier.. P
0001F0: 55 53 48 20 48 4C 20 20 20 20 20 20 20 20 20 3B USH HL ;
Size : 512 (Real : 512)
000000: 70 61 72 61 6D 7D 74 72 65 73 20 64 65 73 20 6F param}tres des o
000010: 63 74 65 74 73 20 61 20 65 6E 76 6F 79 65 72 20 ctets a envoyer
000020: 61 75 20 46 44 43 0D 0A 20 20 20 20 20 20 20 20 au FDC..
000030: 20 50 55 53 48 20 42 43 0D 0A 20 20 20 20 20 20 PUSH BC..
000040: 20 20 20 43 41 4C 4C 20 56 49 53 49 4E 53 54 20 CALL VISINST
000050: 20 20 20 3B 56 69 73 65 72 20 65 74 20 65 78 65 ;Viser et exe
000060: 63 75 74 65 72 20 63 6F 6D 6D 61 6E 64 65 0D 0A cuter commande..
000070: 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 54 53 CALL TS
000080: 54 45 52 52 53 20 20 20 20 3B 52 65 63 75 70 65 TERRS ;Recupe
000090: 72 65 72 20 65 74 61 74 73 20 64 27 65 72 72 65 rer etats d'erre
0000A0: 75 72 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 ur.. LD
0000B0: 41 2C 28 49 59 2B 30 29 20 20 20 20 20 3B 52 61 A,(IY+0) ;Ra
0000C0: 6E 67 65 72 20 65 74 20 61 75 20 73 75 69 76 61 nger et au suiva
0000D0: 6E 74 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 nt.. LD
0000E0: 48 4C 2C 28 50 4F 49 4E 54 45 52 29 0D 0A 20 20 HL,(POINTER)..
0000F0: 20 20 20 20 20 20 20 4C 44 20 28 48 4C 29 2C 41 LD (HL),A
000100: 0D 0A 20 20 20 20 20 20 20 20 20 49 4E 43 20 48 .. INC H
000110: 4C 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 L.. LD (
000120: 50 4F 49 4E 54 45 52 29 2C 48 4C 0D 0A 20 20 20 POINTER),HL..
000130: 20 20 20 20 20 20 50 4F 50 20 42 43 0D 0A 20 20 POP BC..
000140: 20 20 20 20 20 20 20 50 4F 50 20 48 4C 0D 0A 20 POP HL..
000150: 20 20 20 20 20 20 20 20 44 4A 4E 5A 20 4E 45 58 DJNZ NEX
000160: 54 56 45 52 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 TVER.. ;..
000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000180: 20 20 20 20 20 20 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D ;---------
000190: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 20 ------------..
0001A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001B0: 20 20 20 20 20 20 20 20 20 20 3B 2D 20 41 46 46 ;- AFF
0001C0: 49 43 48 41 47 45 20 41 4E 41 4C 59 53 45 20 2D ICHAGE ANALYSE -
0001D0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
0001E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 2D ;-
0001F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
Size : 512 (Real : 512)
000000: 2D 2D 2D 2D 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 ----.. ;..
000010: 20 20 20 4C 44 20 48 4C 2C 49 44 49 4E 44 52 41 LD HL,IDINDRA
000020: 20 20 20 3B 41 66 66 69 63 68 65 72 20 49 44 53 ;Afficher IDS
000030: 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 .. CALL
000040: 49 44 53 34 41 46 46 20 20 20 20 3B 42 43 20 65 IDS4AFF ;BC e
000050: 73 74 20 70 72 65 73 65 72 76 65 0D 0A 20 3B 0D st preserve.. ;.
000060: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 48 4C 2C . LD HL,
000070: 4C 49 53 54 45 52 52 20 20 20 3B 45 74 20 65 72 LISTERR ;Et er
000080: 72 65 75 72 73 0D 0A 20 20 20 20 20 20 20 20 20 reurs..
000090: 4C 44 20 28 50 4F 49 4E 54 45 52 29 2C 48 4C 0D LD (POINTER),HL.
0000A0: 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 43 41 . ;.. CA
0000B0: 4C 4C 20 46 45 4E 49 44 45 31 41 20 20 20 3B 43 LL FENIDE1A ;C
0000C0: 4F 4D 4D 45 20 44 41 4E 53 20 50 52 45 43 45 44 OMME DANS PRECED
0000D0: 45 4E 54 45 20 56 45 52 53 49 4F 4E 0D 0A 20 42 ENTE VERSION.. B
0000E0: 43 4C 45 52 52 53 20 50 55 53 48 20 48 4C 0D 0A CLERRS PUSH HL..
0000F0: 20 20 20 20 20 20 20 20 20 50 55 53 48 20 42 43 PUSH BC
000100: 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 .. CALL
000110: 49 4E 56 0D 0A 20 20 20 20 20 20 20 20 20 43 41 INV.. CA
000120: 4C 4C 20 53 50 41 43 45 0D 0A 20 20 20 20 20 20 LL SPACE..
000130: 20 20 20 4C 44 20 41 2C 28 48 4C 29 0D 0A 20 20 LD A,(HL)..
000140: 20 20 20 20 20 20 20 43 41 4C 4C 20 50 52 54 33 CALL PRT3
000150: 45 52 32 0D 0A 20 20 20 20 20 20 20 20 20 43 41 ER2.. CA
000160: 4C 4C 20 49 4E 56 0D 0A 20 20 20 20 20 20 20 20 LL INV..
000170: 20 50 4F 50 20 42 43 20 20 0D 0A 20 20 20 20 20 POP BC ..
000180: 20 20 20 20 43 41 4C 4C 20 54 53 54 43 31 0D 0A CALL TSTC1..
000190: 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 4E 5A CALL NZ
0001A0: 2C 43 52 0D 0A 20 20 20 20 20 20 20 20 20 43 41 ,CR.. CA
0001B0: 4C 4C 20 5A 2C 46 45 4E 49 44 4C 31 41 0D 0A 20 LL Z,FENIDL1A..
0001C0: 20 20 20 20 20 20 20 20 4C 44 20 48 4C 2C 43 4F LD HL,CO
0001D0: 55 4E 54 0D 0A 20 20 20 20 20 20 20 20 20 49 4E UNT.. IN
0001E0: 43 20 28 48 4C 29 0D 0A 20 20 20 20 20 20 20 20 C (HL)..
0001F0: 20 50 4F 50 20 48 4C 0D 0A 20 20 20 20 20 20 20 POP HL..
Size : 512 (Real : 512)
000000: 20 20 49 4E 43 20 48 4C 0D 0A 20 20 20 20 20 20 INC HL..
000010: 20 20 20 44 4A 4E 5A 20 42 43 4C 45 52 52 53 0D DJNZ BCLERRS.
000020: 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 43 41 . ;.. CA
000030: 4C 4C 20 46 45 4E 53 43 52 0D 0A 20 3B 0D 0A 20 LL FENSCR.. ;..
000040: 20 20 20 20 20 20 20 20 43 41 4C 4C 20 46 49 4E CALL FIN
000050: 44 4C 45 4E 20 20 3B 43 68 65 72 63 68 65 72 20 DLEN ;Chercher
000060: 47 41 50 53 20 28 43 61 20 63 27 65 73 74 20 6C GAPS (Ca c'est l
000070: 65 20 67 72 6F 73 20 6D 6F 72 63 65 61 75 20 61 e gros morceau a
000080: 20 64 69 67 65 72 65 72 29 0D 0A 20 3B 0D 0A 20 digerer).. ;..
000090: 20 20 20 20 20 20 20 20 43 41 4C 4C 20 46 49 58 CALL FIX
0000A0: 50 41 52 41 20 20 3B 49 6E 69 74 69 61 6C 69 73 PARA ;Initialis
0000B0: 65 72 20 70 61 72 61 6D 65 74 72 65 73 0D 0A 20 er parametres..
0000C0: 3B 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 ;.. ;..
0000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 2D 2D ;--
0000E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0000F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D ---------------.
000100: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
000110: 20 20 20 20 20 20 20 3B 2D 20 41 46 46 49 43 48 ;- AFFICH
000120: 41 47 45 20 44 55 20 52 45 53 55 4C 54 41 54 20 AGE DU RESULTAT
000130: 47 45 4E 45 52 41 4C 20 2D 0D 0A 20 20 20 20 20 GENERAL -..
000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000150: 20 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ;--------------
000160: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000170: 2D 2D 2D 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 ---.. ;..
000180: 20 20 43 41 4C 4C 20 46 45 4E 52 45 53 31 20 20 CALL FENRES1
000190: 3B 41 66 66 69 63 68 65 72 0D 0A 20 3B 0D 0A 20 ;Afficher.. ;..
0001A0: 20 20 20 20 20 20 20 20 4C 44 20 48 4C 2C 54 4E LD HL,TN
0001B0: 42 53 45 43 20 20 3B 4E 6F 6D 62 72 65 20 73 65 BSEC ;Nombre se
0001C0: 63 74 65 75 72 73 0D 0A 20 20 20 20 20 20 20 20 cteurs..
0001D0: 20 43 41 4C 4C 20 50 52 54 0D 0A 20 20 20 20 20 CALL PRT..
0001E0: 20 20 20 20 4C 44 20 41 2C 28 4E 42 53 45 43 29 LD A,(NBSEC)
0001F0: 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 .. CALL
Size : 512 (Real : 512)
000000: 50 52 54 44 45 43 49 41 0D 0A 20 3B 0D 0A 20 20 PRTDECIA.. ;..
000010: 20 20 20 20 20 20 20 4C 44 20 48 4C 2C 54 4C 45 LD HL,TLE
000020: 4E 20 20 20 3B 54 61 69 6C 6C 65 0D 0A 20 20 20 N ;Taille..
000030: 20 20 20 20 20 20 43 41 4C 4C 20 50 52 54 0D 0A CALL PRT..
000040: 20 20 20 20 20 20 20 20 20 4C 44 20 41 2C 28 4C LD A,(L
000050: 45 4E 53 45 43 29 0D 0A 20 20 20 20 20 20 20 20 ENSEC)..
000060: 20 43 41 4C 4C 20 50 52 54 48 45 58 31 0D 0A 20 CALL PRTHEX1..
000070: 3B 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 48 ;.. LD H
000080: 4C 2C 54 4C 4F 4E 47 20 20 20 20 3B 4F 63 74 65 L,TLONG ;Octe
000090: 74 73 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C ts.. CAL
0000A0: 4C 20 50 52 54 0D 0A 20 20 20 20 20 20 20 20 20 L PRT..
0000B0: 4C 44 20 48 4C 2C 28 4C 4F 4E 47 53 45 43 29 0D LD HL,(LONGSEC).
0000C0: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 56 41 . LD (VA
0000D0: 4C 45 55 52 29 2C 48 4C 0D 0A 20 20 20 20 20 20 LEUR),HL..
0000E0: 20 20 20 43 41 4C 4C 20 43 49 4E 51 4E 42 0D 0A CALL CINQNB..
0000F0: 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 50 52 CALL PR
000100: 54 44 45 43 49 0D 0A 20 20 20 20 20 20 20 20 20 TDECI..
000110: 43 41 4C 4C 20 44 45 55 58 4E 42 0D 0A 20 3B 0D CALL DEUXNB.. ;.
000120: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 48 4C 2C . LD HL,
000130: 54 47 41 50 46 20 20 20 3B 47 41 50 0D 0A 20 20 TGAPF ;GAP..
000140: 20 20 20 20 20 20 20 43 41 4C 4C 20 50 52 54 0D CALL PRT.
000150: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 41 2C 28 . LD A,(
000160: 56 41 4C 47 41 50 46 29 0D 0A 20 20 20 20 20 20 VALGAPF)..
000170: 20 20 20 43 41 4C 4C 20 50 52 54 48 45 58 31 0D CALL PRTHEX1.
000180: 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 . ;.. LD
000190: 20 48 4C 2C 54 4C 47 41 50 46 0D 0A 20 20 20 20 HL,TLGAPF..
0001A0: 20 20 20 20 20 43 41 4C 4C 20 50 52 54 0D 0A 20 CALL PRT..
0001B0: 20 20 20 20 20 20 20 20 4C 44 20 41 2C 28 47 41 LD A,(GA
0001C0: 50 46 4F 52 4D 29 0D 0A 20 20 20 20 20 20 20 20 PFORM)..
0001D0: 20 43 41 4C 4C 20 50 52 54 48 45 58 31 0D 0A 20 CALL PRTHEX1..
0001E0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 48 ;.. LD H
0001F0: 4C 2C 54 4F 43 52 45 4D 50 20 20 3B 4F 63 74 65 L,TOCREMP ;Octe
Size : 512 (Real : 512)
000000: 74 20 66 6F 72 6D 61 74 0D 0A 20 20 20 20 20 20 t format..
000010: 20 20 20 43 41 4C 4C 20 50 52 54 0D 0A 20 20 20 CALL PRT..
000020: 20 20 20 20 20 20 4C 44 20 41 2C 28 4F 43 52 45 LD A,(OCRE
000030: 4D 50 29 0D 0A 20 20 20 20 20 20 20 20 20 43 41 MP).. CA
000040: 4C 4C 20 50 52 54 48 45 58 31 0D 0A 20 3B 0D 0A LL PRTHEX1.. ;..
000050: 20 20 20 20 20 20 20 20 20 4C 44 20 41 2C 28 46 LD A,(F
000060: 4C 41 47 46 4E 43 29 0D 0A 20 20 20 20 20 20 20 LAGFNC)..
000070: 20 20 41 4E 44 20 25 30 31 30 31 30 30 30 30 20 AND %01010000
000080: 3B 53 65 63 74 65 75 72 73 20 65 63 72 61 73 65 ;Secteurs ecrase
000090: 73 20 6F 75 20 70 69 73 74 65 20 65 6E 64 6F 6D s ou piste endom
0000A0: 6D 61 67 65 65 20 3F 0D 0A 20 20 20 20 20 20 20 magee ?..
0000B0: 20 20 4A 52 20 5A 2C 4E 4F 46 41 55 58 20 20 20 JR Z,NOFAUX
0000C0: 3B 4E 4F 4E 20 21 0D 0A 20 3B 0D 0A 20 20 20 20 ;NON !.. ;..
0000D0: 20 20 20 20 20 4C 44 20 48 4C 2C 54 46 41 55 47 LD HL,TFAUG
0000E0: 41 50 20 20 20 3B 41 66 66 69 63 68 65 72 20 6C AP ;Afficher l
0000F0: 65 20 66 61 75 78 20 47 41 50 0D 0A 20 20 20 20 e faux GAP..
000100: 20 20 20 20 20 43 41 4C 4C 20 50 52 54 0D 0A 20 CALL PRT..
000110: 20 20 20 20 20 20 20 20 4C 44 20 41 2C 28 46 41 LD A,(FA
000120: 55 58 47 41 50 29 0D 0A 20 20 20 20 20 20 20 20 UXGAP)..
000130: 20 43 41 4C 4C 20 50 52 54 48 45 58 31 0D 0A 20 CALL PRTHEX1..
000140: 3B 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 48 ;.. LD H
000150: 4C 2C 54 4C 46 41 55 47 41 20 20 20 3B 45 74 20 L,TLFAUGA ;Et
000160: 73 61 20 6C 6F 6E 67 75 65 75 72 0D 0A 20 20 20 sa longueur..
000170: 20 20 20 20 20 20 43 41 4C 4C 20 50 52 54 0D 0A CALL PRT..
000180: 20 20 20 20 20 20 20 20 20 4C 44 20 41 2C 28 46 LD A,(F
000190: 41 55 58 4C 47 46 29 0D 0A 20 20 20 20 20 20 20 AUXLGF)..
0001A0: 20 20 43 41 4C 4C 20 50 52 54 48 45 58 31 0D 0A CALL PRTHEX1..
0001B0: 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 ;.. LD
0001C0: 48 4C 2C 54 46 41 55 4C 45 4E 20 20 20 3B 45 74 HL,TFAULEN ;Et
0001D0: 20 6C 61 20 66 61 75 73 73 65 20 74 61 69 6C 6C la fausse taill
0001E0: 65 20 64 65 20 66 6F 72 6D 61 74 0D 0A 20 20 20 e de format..
0001F0: 20 20 20 20 20 20 43 41 4C 4C 20 50 52 54 0D 0A CALL PRT..
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 4C 44 20 41 2C 28 46 LD A,(F
000010: 41 55 58 4C 45 4E 29 0D 0A 20 20 20 20 20 20 20 AUXLEN)..
000020: 20 20 43 41 4C 4C 20 50 52 54 44 45 43 49 41 0D CALL PRTDECIA.
000030: 0A 20 3B 0D 0A 20 4E 4F 46 41 55 58 20 20 4C 44 . ;.. NOFAUX LD
000040: 20 41 2C 28 46 4C 41 47 46 4E 43 29 20 20 3B 53 A,(FLAGFNC) ;S
000050: 65 63 74 65 75 72 73 20 65 63 72 61 73 65 73 20 ecteurs ecrases
000060: 70 6F 73 73 69 62 6C 65 73 20 3F 0D 0A 20 20 20 possibles ?..
000070: 20 20 20 20 20 20 41 4E 44 20 25 30 30 31 30 30 AND %00100
000080: 30 30 30 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 000.. JR
000090: 20 5A 2C 50 41 53 44 49 46 20 20 20 20 20 3B 4E Z,PASDIF ;N
0000A0: 4F 4E 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 ON.. ;..
0000B0: 20 4C 44 20 48 4C 2C 54 44 49 46 4C 45 4E 0D 0A LD HL,TDIFLEN..
0000C0: 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 50 52 CALL PR
0000D0: 54 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 41 T.. LD A
0000E0: 2C 28 4C 4D 49 4E 29 20 20 20 20 20 3B 41 66 66 ,(LMIN) ;Aff
0000F0: 69 63 68 65 72 20 70 6C 75 73 20 70 65 74 69 74 icher plus petit
000100: 65 20 6C 6F 6E 67 75 65 75 72 20 70 6F 73 73 69 e longueur possi
000110: 62 6C 65 0D 0A 20 20 20 20 20 20 20 20 20 43 41 ble.. CA
000120: 4C 4C 20 50 52 54 44 45 43 49 41 0D 0A 20 20 20 LL PRTDECIA..
000130: 20 20 20 20 20 20 4C 44 20 41 2C 22 61 22 0D 0A LD A,"a"..
000140: 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 23 42 CALL #B
000150: 42 35 41 0D 0A 20 20 20 20 20 20 20 20 20 43 41 B5A.. CA
000160: 4C 4C 20 53 50 41 43 45 0D 0A 20 20 20 20 20 20 LL SPACE..
000170: 20 20 20 4C 44 20 41 2C 28 4C 4D 41 58 29 20 20 LD A,(LMAX)
000180: 20 20 20 3B 45 74 20 70 6C 75 73 20 67 72 61 6E ;Et plus gran
000190: 64 65 20 6C 6F 6E 67 75 65 75 72 20 70 6F 73 73 de longueur poss
0001A0: 69 62 6C 65 0D 0A 20 20 20 20 20 20 20 20 20 4C ible.. L
0001B0: 44 20 28 46 41 55 58 4C 45 4E 29 2C 41 0D 0A 20 D (FAUXLEN),A..
0001C0: 20 20 20 20 20 20 20 20 43 41 4C 4C 20 50 52 54 CALL PRT
0001D0: 44 45 43 49 41 0D 0A 20 3B 0D 0A 20 50 41 53 44 DECIA.. ;.. PASD
0001E0: 49 46 20 20 43 41 4C 4C 20 46 45 4E 53 43 52 20 IF CALL FENSCR
0001F0: 20 20 20 20 3B 50 6C 65 69 6E 20 65 63 72 61 6E ;Plein ecran
Size : 512 (Real : 512)
000000: 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 4C .. ;.. L
000010: 44 20 41 2C 28 46 4C 41 47 49 4D 50 29 20 20 3B D A,(FLAGIMP) ;
000020: 49 6D 70 72 69 6D 65 72 20 3F 0D 0A 20 20 20 20 Imprimer ?..
000030: 20 20 20 20 20 4F 52 20 41 0D 0A 20 20 20 20 20 OR A..
000040: 20 20 20 20 4A 52 20 4E 5A 2C 49 4D 50 41 4E 41 JR NZ,IMPANA
000050: 4C 20 20 20 3B 4F 75 69 20 21 0D 0A 20 20 20 20 L ;Oui !..
000060: 20 20 20 20 20 53 43 46 0D 0A 20 20 20 20 20 20 SCF..
000070: 20 20 20 52 45 54 20 0D 0A 20 3B 0D 0A 20 3B 2D RET .. ;.. ;-
000080: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000090: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0000A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D ---------------.
0000B0: 0A 20 3B 2D 20 49 4D 50 52 45 53 53 49 4F 4E 20 . ;- IMPRESSION
0000C0: 44 45 20 4C 27 41 4E 41 4C 59 53 45 20 53 49 20 DE L'ANALYSE SI
0000D0: 4C 45 20 46 4C 41 47 20 41 20 45 54 45 20 4D 49 LE FLAG A ETE MI
0000E0: 53 20 2D 0D 0A 20 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D S -.. ;---------
0000F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000100: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000110: 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 3B 0D 0A 20 49 4D -------.. ;.. IM
000120: 50 41 4E 41 4C 20 43 41 4C 4C 20 53 45 54 49 4D PANAL CALL SETIM
000130: 50 20 20 20 20 3B 49 6D 70 72 69 6D 65 72 0D 0A P ;Imprimer..
000140: 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 44 45 CALL DE
000150: 55 58 4E 42 0D 0A 20 20 20 20 20 20 20 20 20 43 UXNB.. C
000160: 41 4C 4C 20 49 4D 50 50 49 53 54 20 20 20 3B 50 ALL IMPPIST ;P
000170: 69 73 74 65 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 iste.. ;..
000180: 20 20 20 4C 44 20 48 4C 2C 4E 42 53 45 43 49 20 LD HL,NBSECI
000190: 20 20 3B 43 6F 6D 6D 65 20 76 65 72 73 69 6F 6E ;Comme version
0001A0: 20 70 72 65 63 65 64 65 6E 74 65 0D 0A 20 20 20 precedente..
0001B0: 20 20 20 20 20 20 43 41 4C 4C 20 50 52 54 0D 0A CALL PRT..
0001C0: 20 20 20 20 20 20 20 20 20 4C 44 20 41 2C 28 4E LD A,(N
0001D0: 42 53 45 43 29 0D 0A 20 20 20 20 20 20 20 20 20 BSEC)..
0001E0: 43 41 4C 4C 20 50 52 54 44 45 43 49 41 0D 0A 20 CALL PRTDECIA..
0001F0: 20 20 20 20 20 20 20 20 43 41 4C 4C 20 43 52 0D CALL CR.
Size : 512 (Real : 512)
000000: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 48 4C 2C . LD HL,
000010: 49 44 49 4E 44 52 41 20 20 20 3B 49 44 53 0D 0A IDINDRA ;IDS..
000020: 20 20 20 20 20 20 20 20 20 4C 44 20 44 45 2C 4C LD DE,L
000030: 49 53 54 45 52 52 0D 0A 20 20 20 20 20 20 20 20 ISTERR..
000040: 20 4C 44 20 41 2C 28 4E 42 53 45 43 29 0D 0A 20 LD A,(NBSEC)..
000050: 20 20 20 20 20 20 20 20 4C 44 20 42 2C 41 0D 0A LD B,A..
000060: 20 20 20 20 20 20 20 20 20 4C 44 20 43 2C 34 0D LD C,4.
000070: 0A 20 4E 45 58 54 49 4D 50 20 44 45 43 20 43 0D . NEXTIMP DEC C.
000080: 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 5A . CALL Z
000090: 2C 43 52 49 4D 50 31 0D 0A 20 20 20 20 20 20 20 ,CRIMP1..
0000A0: 20 20 50 55 53 48 20 42 43 0D 0A 20 57 41 49 54 PUSH BC.. WAIT
0000B0: 49 4D 50 20 43 41 4C 4C 20 23 42 44 32 45 20 20 IMP CALL #BD2E
0000C0: 20 20 20 20 3B 41 74 74 65 6E 64 72 65 20 75 6E ;Attendre un
0000D0: 20 70 65 75 20 70 6F 75 72 20 6E 65 20 70 61 73 peu pour ne pas
0000E0: 20 70 65 72 64 72 65 20 64 65 73 20 63 61 72 61 perdre des cara
0000F0: 63 74 65 72 65 73 0D 0A 20 20 20 20 20 20 20 20 cteres..
000100: 20 4A 52 20 43 2C 57 41 49 54 49 4D 50 0D 0A 20 JR C,WAITIMP..
000110: 20 20 20 20 20 20 20 20 43 41 4C 4C 20 41 46 46 CALL AFF
000120: 34 49 44 0D 0A 20 20 20 20 20 20 20 20 20 50 4F 4ID.. PO
000130: 50 20 42 43 0D 0A 20 20 20 20 20 20 20 20 20 4C P BC.. L
000140: 44 20 41 2C 28 44 45 29 0D 0A 20 20 20 20 20 20 D A,(DE)..
000150: 20 20 20 49 4E 43 20 44 45 0D 0A 20 20 20 20 20 INC DE..
000160: 20 20 20 20 50 55 53 48 20 48 4C 0D 0A 20 20 20 PUSH HL..
000170: 20 20 20 20 20 20 50 55 53 48 20 44 45 0D 0A 20 PUSH DE..
000180: 20 20 20 20 20 20 20 20 50 55 53 48 20 42 43 0D PUSH BC.
000190: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 46 4C . LD (FL
0001A0: 41 47 45 52 52 29 2C 41 20 20 0D 0A 20 20 20 20 AGERR),A ..
0001B0: 20 20 20 20 20 43 41 4C 4C 20 50 52 54 33 45 52 CALL PRT3ER
0001C0: 52 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 48 R.. LD H
0001D0: 4C 2C 54 53 45 50 49 4D 50 0D 0A 20 20 20 20 20 L,TSEPIMP..
0001E0: 20 20 20 20 43 41 4C 4C 20 50 52 54 0D 0A 20 20 CALL PRT..
0001F0: 20 20 20 20 20 20 20 50 4F 50 20 42 43 0D 0A 20 POP BC..
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000010: 20 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D ---------
000020: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000030: 2D 2D 2D 2D 2D 2D 0D 0A 20 20 20 20 20 20 20 20 ------..
000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 S
000050: 55 49 54 45 20 44 45 20 4C 41 20 52 4F 55 54 49 UITE DE LA ROUTI
000060: 4E 45 20 45 54 55 44 45 20 50 49 53 54 45 0D 0A NE ETUDE PISTE..
000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000080: 20 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D ---------
000090: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0000A0: 2D 2D 2D 2D 2D 2D 0D 0A 0D 0A 20 20 20 20 20 20 ------....
0000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000C0: 20 20 20 20 20 20 28 43 4F 50 49 45 55 52 20 35 (COPIEUR 5
0000D0: 45 4D 45 20 50 41 52 54 49 45 29 0D 0A 20 0D 0A EME PARTIE).. ..
0000E0: 20 20 20 20 20 53 4F 4C 55 54 49 4F 4E 34 20 65 SOLUTION4 e
0000F0: 73 74 20 75 74 69 6C 69 73 7B 65 20 64 61 6E 73 st utilis{e dans
000100: 20 6C 65 20 20 63 61 73 20 20 6F 75 20 20 75 6E le cas ou un
000110: 20 20 4D 41 4D 20 20 65 6E 20 31 65 72 20 73 65 MAM en 1er se
000120: 63 74 65 75 72 20 69 6E 74 65 72 64 69 74 0D 0A cteur interdit..
000130: 20 74 6F 75 74 65 20 6F 70 7B 72 61 74 69 6F 6E toute op{ration
000140: 20 73 75 72 20 6C 69 72 65 20 70 69 73 74 65 20 sur lire piste
000150: 2E 20 4F 6E 20 63 6F 6E 73 69 64 7D 72 65 20 70 . On consid}re p
000160: 72 6F 76 69 73 6F 69 72 65 6D 65 6E 74 20 4C 4D rovisoirement LM
000170: 41 58 20 63 6F 6D 6D 65 20 76 72 61 69 65 0D 0A AX comme vraie..
000180: 20 6C 6F 6E 67 75 65 75 72 20 2E 20 45 6E 73 75 longueur . Ensu
000190: 69 74 65 20 2C 20 73 69 20 6C 27 6F 6E 20 64 7B ite , si l'on d{
0001A0: 74 65 63 74 65 20 70 6C 75 73 69 65 75 72 73 20 tecte plusieurs
0001B0: 20 4C 45 4E 20 49 44 20 4F 4B 20 69 6C 20 65 73 LEN ID OK il es
0001C0: 74 20 50 4F 53 53 49 42 4C 45 20 71 75 65 0D 0A t POSSIBLE que..
0001D0: 20 64 65 73 20 73 65 63 74 65 75 72 73 20 61 69 des secteurs ai
0001E0: 65 6E 74 20 7B 74 7B 20 7B 63 72 61 73 7B 73 20 ent {t{ {cras{s
0001F0: 2E 20 20 53 69 20 20 64 65 20 20 70 6C 75 73 20 . Si de plus
Size : 512 (Real : 512)
000000: 20 4C 49 44 4D 41 58 20 65 73 74 20 73 75 70 7B LIDMAX est sup{
000010: 72 69 65 75 72 20 40 20 4C 4D 41 58 20 2C 0D 0A rieur @ LMAX ,..
000020: 20 63 65 6C 61 20 64 65 76 69 65 6E 74 20 43 45 cela devient CE
000030: 52 54 41 49 4E 20 20 2E 20 20 41 70 72 7D 73 20 RTAIN . Apr}s
000040: 20 6F 6E 20 20 6D 65 74 20 20 6C 65 20 20 47 41 on met le GA
000050: 50 20 20 61 75 20 20 6D 61 78 69 6D 75 6D 20 20 P au maximum
000060: 65 74 20 20 43 41 4C 49 47 41 50 20 6C 65 0D 0A et CALIGAP le..
000070: 20 72 65 74 61 69 6C 6C 65 72 61 20 61 75 20 6D retaillera au m
000080: 61 78 69 6D 75 6D 20 61 75 74 6F 72 69 73 7B 20 aximum autoris{
000090: 70 61 72 20 4C 4D 41 58 20 20 2E 20 53 69 20 61 par LMAX . Si a
0000A0: 75 63 75 6E 65 20 70 6F 73 73 69 62 69 6C 69 74 ucune possibilit
0000B0: 7B 20 64 27 7B 63 72 61 73 65 6D 65 6E 74 0D 0A { d'{crasement..
0000C0: 20 6E 27 61 20 7B 74 7B 20 64 65 74 65 63 74 7B n'a {t{ detect{
0000D0: 65 20 6F 6E 20 61 72 72 65 08 5E 74 65 20 6C 40 e on arre.^te l@
0000E0: 20 20 2E 20 20 44 61 6E 73 20 20 6C 65 20 20 63 . Dans le c
0000F0: 61 73 20 20 63 6F 6E 74 72 61 69 72 65 20 20 2C as contraire ,
000100: 20 6F 6E 20 6D 65 74 20 6C 65 20 47 41 50 20 40 on met le GAP @
000110: 0D 0A 20 6C 27 75 6C 74 69 6D 65 20 6D 69 6E 69 .. l'ultime mini
000120: 6D 75 6D 20 65 74 20 6F 6E 20 70 61 73 73 65 20 mum et on passe
000130: 40 20 6C 61 20 72 6F 75 74 69 6E 65 20 64 27 7B @ la routine d'{
000140: 63 72 61 73 65 6D 65 6E 74 20 2E 0D 0A 20 0D 0A crasement ... ..
000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2D -
000170: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000180: 0D 0A 20 3B 0D 0A 20 53 4F 4C 55 54 49 4F 4E 34 .. ;.. SOLUTION4
000190: 20 4C 44 20 48 4C 2C 54 47 41 50 50 49 46 0D 0A LD HL,TGAPPIF..
0001A0: 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 50 52 CALL PR
0001B0: 54 0D 0A 20 3B 20 0D 0A 20 20 20 20 20 20 20 20 T.. ; ..
0001C0: 20 4C 44 20 41 2C 28 4C 4D 41 58 29 20 20 20 3B LD A,(LMAX) ;
0001D0: 50 69 73 74 65 20 69 6E 61 6E 61 6C 69 73 61 62 Piste inanalisab
0001E0: 6C 65 20 70 61 72 20 6C 69 72 65 20 70 69 73 74 le par lire pist
0001F0: 65 20 65 74 20 70 61 73 20 64 65 20 43 52 2F 44 e et pas de CR/D
Size : 512 (Real : 512)
000000: 44 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 43 D.. LD C
000010: 2C 41 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 ,A.. LD
000020: 28 4C 45 4E 53 45 43 29 2C 41 20 3B 41 6C 6C 65 (LENSEC),A ;Alle
000030: 72 20 70 6C 75 73 20 73 69 6D 70 6C 65 20 65 6E r plus simple en
000040: 20 63 6F 6E 73 69 64 65 72 61 6E 74 20 6C 61 20 considerant la
000050: 74 61 69 6C 6C 65 0D 0A 20 20 20 20 20 20 20 20 taille..
000060: 20 43 41 4C 4C 20 41 44 44 4C 4F 4E 20 20 20 3B CALL ADDLON ;
000070: 6D 61 78 69 6D 75 6D 20 63 6F 6D 6D 65 20 76 72 maximum comme vr
000080: 61 69 65 20 74 61 69 6C 6C 65 20 64 65 20 66 6F aie taille de fo
000090: 72 6D 61 74 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 rmat.. ;..
0000A0: 20 20 20 4C 44 20 41 2C 28 46 4C 47 44 49 46 49 LD A,(FLGDIFI
0000B0: 44 29 20 0D 0A 20 20 20 20 20 20 20 20 20 4F 52 D) .. OR
0000C0: 20 41 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 20 A.. JR
0000D0: 5A 2C 4E 4F 44 49 46 49 44 20 20 3B 56 6F 69 72 Z,NODIFID ;Voir
0000E0: 20 73 69 20 70 6C 75 73 69 65 75 72 73 20 49 44 si plusieurs ID
0000F0: 53 20 4F 4B 20 64 69 66 66 65 72 65 6E 74 73 0D S OK differents.
000100: 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 . ;.. LD
000110: 20 48 4C 2C 46 4C 41 47 46 4E 43 0D 0A 20 20 20 HL,FLAGFNC..
000120: 20 20 20 20 20 20 53 45 54 20 35 2C 28 48 4C 29 SET 5,(HL)
000130: 20 20 20 20 3B 4D 61 72 71 75 65 72 20 70 6C 75 ;Marquer plu
000140: 73 69 65 75 72 73 20 74 61 69 6C 6C 65 73 20 66 sieurs tailles f
000150: 6F 72 6D 61 74 20 70 6F 73 73 69 62 6C 65 73 0D ormat possibles.
000160: 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 . ;.. LD
000170: 20 48 4C 2C 54 45 43 52 50 4F 53 53 0D 0A 20 20 HL,TECRPOSS..
000180: 20 20 20 20 20 20 20 43 41 4C 4C 20 50 52 54 0D CALL PRT.
000190: 0A 20 20 20 20 20 20 20 20 20 0D 0A 20 20 20 20 . ..
0001A0: 20 20 20 20 20 4C 44 20 41 2C 28 4C 49 44 4D 41 LD A,(LIDMA
0001B0: 58 29 20 3B 4C 49 44 4D 41 58 20 3E 20 4C 4D 41 X) ;LIDMAX > LMA
0001C0: 58 0D 0A 20 20 20 20 20 20 20 20 20 49 4E 43 20 X.. INC
0001D0: 43 0D 0A 20 20 20 20 20 20 20 20 20 43 50 20 43 C.. CP C
0001E0: 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 20 43 2C .. JR C,
0001F0: 4E 4F 44 49 46 49 44 0D 0A 20 3B 0D 0A 20 20 20 NODIFID.. ;..
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 43 41 4C 4C 20 53 45 54 45 43 CALL SETEC
000010: 52 41 20 20 3B 45 63 72 61 73 65 73 20 63 65 72 RA ;Ecrases cer
000020: 74 61 69 6E 73 20 2E 0D 0A 20 3B 0D 0A 20 4E 4F tains ... ;.. NO
000030: 44 49 46 49 44 20 4C 44 20 41 2C 23 46 46 20 20 DIFID LD A,#FF
000040: 20 20 20 20 3B 46 69 78 65 72 20 47 41 50 20 61 ;Fixer GAP a
000050: 72 62 69 74 72 61 69 72 65 6D 65 6E 74 0D 0A 20 rbitrairement..
000060: 20 20 20 20 20 20 20 20 4C 44 20 28 47 41 50 46 LD (GAPF
000070: 4F 52 4D 29 2C 41 0D 0A 20 20 20 20 20 20 20 20 ORM),A..
000080: 20 43 41 4C 4C 20 43 41 4C 49 47 41 50 20 20 3B CALL CALIGAP ;
000090: 50 61 72 20 63 61 6C 69 67 61 70 0D 0A 20 20 20 Par caligap..
0000A0: 20 20 20 20 20 20 4C 44 20 41 2C 23 34 45 0D 0A LD A,#4E..
0000B0: 20 20 20 20 20 20 20 20 20 4C 44 20 28 56 41 4C LD (VAL
0000C0: 47 41 50 46 29 2C 41 0D 0A 20 3B 0D 0A 20 20 20 GAPF),A.. ;..
0000D0: 20 20 20 20 20 20 4C 44 20 41 2C 28 46 4C 41 47 LD A,(FLAG
0000E0: 46 4E 43 29 0D 0A 20 20 20 20 20 20 20 20 20 41 FNC).. A
0000F0: 4E 44 20 25 30 30 31 31 30 30 30 30 20 3B 53 75 ND %00110000 ;Su
000100: 72 20 6F 75 20 70 65 75 74 2D 65 74 72 65 20 65 r ou peut-etre e
000110: 63 72 61 73 65 73 20 3F 0D 0A 20 20 20 20 20 20 crases ?..
000120: 20 20 20 53 43 46 0D 0A 20 20 20 20 20 20 20 20 SCF..
000130: 20 4A 50 20 5A 2C 45 58 49 54 47 41 50 20 0D 0A JP Z,EXITGAP ..
000140: 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 ;.. LD
000150: 41 2C 33 20 20 20 20 20 20 20 20 3B 47 41 50 20 A,3 ;GAP
000160: 61 72 62 69 74 72 61 69 72 65 20 70 6F 75 72 20 arbitraire pour
000170: 65 63 72 61 73 65 6D 65 6E 74 0D 0A 20 20 20 20 ecrasement..
000180: 20 20 20 20 20 4C 44 20 28 47 41 50 46 4F 52 4D LD (GAPFORM
000190: 29 2C 41 0D 0A 20 20 20 20 20 20 20 20 20 4A 50 ),A.. JP
0001A0: 20 45 43 52 41 53 45 52 0D 0A 20 3B 0D 0A 20 20 ECRASER.. ;..
0001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2D 2D 2D ---
0001D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A --------------..
0001E0: 20 0D 0A 20 20 20 20 20 53 4F 4C 55 54 49 4F 4E .. SOLUTION
0001F0: 35 20 45 73 74 20 75 6E 69 71 75 65 6D 65 6E 74 5 Est uniquement
Size : 512 (Real : 512)
000000: 20 20 64 7B 64 69 7B 65 20 20 61 75 20 20 74 72 d{di{e au tr
000010: 61 69 74 65 6D 65 6E 74 20 20 64 65 73 20 20 70 aitement des p
000020: 69 73 74 65 73 20 63 6F 6E 73 69 64 7B 72 7B 65 istes consid{r{e
000030: 73 0D 0A 20 63 6F 6D 6D 65 20 61 62 69 6D 7B 65 s.. comme abim{e
000040: 73 20 2E 20 44 61 6E 73 20 63 65 20 63 61 73 20 s . Dans ce cas
000050: 6C 65 73 20 76 61 6C 65 75 72 73 20 20 64 65 20 les valeurs de
000060: 47 41 50 20 70 65 75 76 65 6E 74 20 65 08 5E 74 GAP peuvent e.^t
000070: 72 65 20 66 61 75 73 73 65 73 20 2E 20 4F 6E 20 re fausses . On
000080: 6C 65 73 0D 0A 20 6E 6F 74 65 72 61 20 70 6F 75 les.. notera pou
000090: 72 20 69 6E 66 6F 72 6D 61 74 69 6F 6E 20 20 6D r information m
0000A0: 61 69 73 20 20 6F 6E 20 20 75 74 69 6C 69 73 65 ais on utilise
0000B0: 72 61 20 20 75 6E 65 20 20 76 61 6C 65 75 72 20 ra une valeur
0000C0: 20 61 72 62 69 74 72 61 69 72 65 20 70 6F 75 72 arbitraire pour
0000D0: 20 6C 61 0D 0A 20 72 65 70 72 6F 64 75 63 74 69 la.. reproducti
0000E0: 6F 6E 20 2E 0D 0A 20 3B 0D 0A 20 53 4F 4C 55 54 on ... ;.. SOLUT
0000F0: 49 4F 4E 35 20 4C 44 20 41 2C 43 20 20 20 20 20 ION5 LD A,C
000100: 3B 54 65 6E 74 61 74 69 76 65 20 64 27 61 6E 61 ;Tentative d'ana
000110: 6C 79 73 65 20 73 75 72 20 70 69 73 74 65 20 56 lyse sur piste V
000120: 52 41 49 4D 45 4E 54 20 61 62 69 6D 65 65 0D 0A RAIMENT abimee..
000130: 20 20 20 20 20 20 20 20 20 4C 44 20 28 4C 4D 41 LD (LMA
000140: 58 29 2C 41 0D 0A 20 20 20 20 20 20 20 20 20 4C X),A.. L
000150: 44 20 28 4C 45 4E 53 45 43 29 2C 41 0D 0A 20 20 D (LENSEC),A..
000160: 20 20 20 20 20 20 20 43 41 4C 4C 20 41 44 44 4C CALL ADDL
000170: 4F 4E 0D 0A 20 20 20 20 20 20 20 20 20 49 4E 43 ON.. INC
000180: 20 41 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 A.. LD
000190: 28 51 55 41 54 52 49 44 2B 33 29 2C 41 0D 0A 20 (QUATRID+3),A..
0001A0: 20 20 20 20 20 20 20 20 4C 44 20 48 4C 2C 4C 49 LD HL,LI
0001B0: 54 46 44 43 32 0D 0A 20 20 20 20 20 20 20 20 20 TFDC2..
0001C0: 43 41 4C 4C 20 43 4F 4D 4C 49 50 49 0D 0A 20 3B CALL COMLIPI.. ;
0001D0: 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 .. CALL
0001E0: 49 4E 53 54 52 55 39 20 20 20 3B 4C 69 72 65 20 INSTRU9 ;Lire
0001F0: 70 69 73 74 65 20 61 76 65 63 20 74 61 69 6C 6C piste avec taill
Size : 512 (Real : 512)
000000: 65 20 4D 41 58 49 2B 31 0D 0A 20 20 20 20 20 20 e MAXI+1..
000010: 20 20 20 4C 44 20 41 2C 28 42 55 46 47 41 50 53 LD A,(BUFGAPS
000020: 29 20 3B 64 65 73 20 73 65 63 74 65 75 72 73 0D ) ;des secteurs.
000030: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 46 41 . LD (FA
000040: 55 58 47 41 50 29 2C 41 0D 0A 20 20 20 20 20 20 UXGAP),A..
000050: 20 20 20 43 41 4C 4C 20 46 49 4E 44 47 41 50 0D CALL FINDGAP.
000060: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 41 2C 28 . LD A,(
000070: 47 41 50 46 4F 52 4D 29 0D 0A 20 20 20 20 20 20 GAPFORM)..
000080: 20 20 20 4C 44 20 28 46 41 55 58 4C 47 46 29 2C LD (FAUXLGF),
000090: 41 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 A.. LD (
0000A0: 47 41 50 46 4F 52 4D 29 2C 41 0D 0A 20 20 20 20 GAPFORM),A..
0000B0: 20 20 20 20 20 4C 44 20 41 2C 23 34 45 20 20 20 LD A,#4E
0000C0: 20 20 20 20 3B 56 72 61 69 20 47 41 50 20 53 55 ;Vrai GAP SU
0000D0: 50 50 4F 53 45 20 23 34 45 0D 0A 20 20 20 20 20 PPOSE #4E..
0000E0: 20 20 20 20 4C 44 20 28 56 41 4C 47 41 50 46 29 LD (VALGAPF)
0000F0: 2C 41 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C ,A.. CAL
000100: 4C 20 43 41 4C 49 47 41 50 0D 0A 20 20 20 20 20 L CALIGAP..
000110: 20 20 20 20 4A 50 20 45 58 49 54 47 41 50 0D 0A JP EXITGAP..
000120: 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 ;..
000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000140: 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D -------------
000150: 2D 2D 2D 0D 0A 20 0D 0A 20 20 20 20 20 53 69 20 ---.. .. Si
000160: 6F 6E 20 61 20 71 75 27 75 6E 20 73 65 75 6C 20 on a qu'un seul
000170: 73 65 63 74 65 75 72 20 73 75 72 20 6C 61 20 70 secteur sur la p
000180: 69 73 74 65 20 65 74 20 71 75 27 69 6C 20 65 73 iste et qu'il es
000190: 74 20 65 6E 20 4D 41 4D 20 2C 20 6F 6E 20 66 69 t en MAM , on fi
0001A0: 78 65 20 6C 65 73 0D 0A 20 76 61 6C 65 75 72 73 xe les.. valeurs
0001B0: 20 61 75 20 70 69 66 6F 6D 7D 74 72 65 20 2E 0D au pifom}tre ..
0001C0: 0A 20 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 . ..
0001D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001E0: 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D -------------
0001F0: 2D 2D 2D 0D 0A 20 3B 0D 0A 20 50 49 46 4F 4D 45 ---.. ;.. PIFOME
Size : 512 (Real : 512)
000000: 54 52 20 4C 44 20 48 4C 2C 54 47 41 50 50 49 46 TR LD HL,TGAPPIF
000010: 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 .. CALL
000020: 50 52 54 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 PRT.. LD
000030: 20 41 2C 28 51 55 41 54 52 49 44 2B 33 29 0D 0A A,(QUATRID+3)..
000040: 20 20 20 20 20 20 20 20 20 4C 44 20 28 4C 45 4E LD (LEN
000050: 53 45 43 29 2C 41 0D 0A 20 20 20 20 20 20 20 20 SEC),A..
000060: 20 4C 44 20 41 2C 23 34 45 20 20 20 20 20 20 20 LD A,#4E
000070: 20 3B 55 6E 20 73 65 75 6C 20 4D 41 4D 20 74 61 ;Un seul MAM ta
000080: 69 6C 6C 65 20 30 20 2C 20 66 69 78 65 72 20 61 ille 0 , fixer a
000090: 72 62 69 74 72 61 69 72 65 6D 65 6E 74 0D 0A 20 rbitrairement..
0000A0: 20 20 20 20 20 20 20 20 4C 44 20 28 56 41 4C 47 LD (VALG
0000B0: 41 50 46 29 2C 41 20 20 3B 65 74 20 66 69 6E 69 APF),A ;et fini
0000C0: 0D 0A 20 20 20 20 20 20 20 20 20 53 43 46 0D 0A .. SCF..
0000D0: 20 20 20 20 20 20 20 20 20 52 45 54 0D 0A 20 3B RET.. ;
0000E0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
0000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000100: 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ---------------
000110: 2D 2D 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 --..
000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000130: 20 20 20 2D 20 53 4F 55 53 20 52 4F 55 54 49 4E - SOUS ROUTIN
000140: 45 53 20 2D 0D 0A 20 20 20 20 20 20 20 20 20 20 ES -..
000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000160: 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D -----------
000170: 2D 2D 2D 2D 2D 2D 0D 0A 20 3B 0D 0A 20 4A 45 43 ------.. ;.. JEC
000180: 4F 49 4E 43 45 20 4C 44 20 48 4C 2C 54 43 4F 49 OINCE LD HL,TCOI
000190: 4E 43 45 20 20 3B 41 6E 61 6C 79 73 65 20 69 6D NCE ;Analyse im
0001A0: 70 6F 73 73 69 62 6C 65 20 21 0D 0A 20 20 20 20 possible !..
0001B0: 20 20 20 20 20 43 41 4C 4C 20 50 52 54 0D 0A 20 CALL PRT..
0001C0: 20 20 20 20 20 20 20 20 4C 44 20 48 4C 2C 46 4C LD HL,FL
0001D0: 41 47 46 4E 43 0D 0A 20 20 20 20 20 20 20 20 20 AGFNC..
0001E0: 53 45 54 20 37 2C 28 48 4C 29 0D 0A 20 20 20 20 SET 7,(HL)..
0001F0: 20 20 20 20 20 4C 44 20 41 2C 28 42 55 46 47 41 LD A,(BUFGA
Size : 512 (Real : 512)
000000: 50 53 29 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 PS).. LD
000010: 20 28 56 41 4C 47 41 50 46 29 2C 41 0D 0A 20 20 (VALGAPF),A..
000020: 20 20 20 20 20 20 20 4C 44 20 41 2C 23 46 46 0D LD A,#FF.
000030: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 47 41 . LD (GA
000040: 50 46 4F 52 4D 29 2C 41 0D 0A 20 20 20 20 20 20 PFORM),A..
000050: 20 20 20 52 45 54 0D 0A 20 3B 0D 0A 20 4F 4B 4C RET.. ;.. OKL
000060: 4F 4E 47 20 20 4C 44 20 41 2C 34 20 20 20 20 20 ONG LD A,4
000070: 20 20 20 20 20 20 20 20 20 3B 43 68 65 72 63 68 ;Cherch
000080: 65 72 20 6C 65 20 47 41 50 20 70 61 72 20 6C 69 er le GAP par li
000090: 72 65 20 70 69 73 74 65 20 2E 20 46 6F 6E 63 74 re piste . Fonct
0000A0: 69 6F 6E 6E 65 20 0D 0A 20 20 20 20 20 20 20 20 ionne ..
0000B0: 20 4C 44 20 28 52 45 54 45 4E 54 29 2C 41 20 20 LD (RETENT),A
0000C0: 20 20 20 20 20 3B 63 6F 6D 6D 65 20 64 61 6E 73 ;comme dans
0000D0: 20 6C 61 20 76 65 72 73 69 6F 6E 20 70 72 7B 63 la version pr{c
0000E0: 7B 64 65 6E 74 65 20 6D 61 69 73 20 65 66 66 65 {dente mais effe
0000F0: 63 74 75 65 0D 0A 20 3B 0D 0A 20 45 4E 43 4F 47 ctue.. ;.. ENCOG
000100: 41 50 20 4C 44 20 41 2C 28 51 55 41 54 52 49 44 AP LD A,(QUATRID
000110: 2B 33 29 20 20 20 20 3B 34 20 74 65 6E 74 61 74 +3) ;4 tentat
000120: 69 76 65 73 20 65 6E 20 63 61 73 20 64 27 65 63 ives en cas d'ec
000130: 68 65 63 20 63 61 72 20 69 6C 20 61 72 72 69 76 hec car il arriv
000140: 65 20 71 75 65 0D 0A 20 20 20 20 20 20 20 20 20 e que..
000150: 50 55 53 48 20 41 46 20 20 20 20 20 20 20 20 20 PUSH AF
000160: 20 20 20 20 3B 6C 69 72 65 20 70 69 73 74 65 20 ;lire piste
000170: 70 61 74 69 6E 65 20 75 6D 20 70 65 75 20 2E 2E patine um peu ..
000180: 2E 20 4C 61 20 6C 65 63 74 75 72 65 20 73 65 20 . La lecture se
000190: 66 61 69 74 0D 0A 20 20 20 20 20 20 20 20 20 4C fait.. L
0001A0: 44 20 41 2C 37 20 20 20 20 20 20 20 20 20 20 20 D A,7
0001B0: 20 20 20 3B 73 75 72 20 75 6E 65 20 74 61 69 6C ;sur une tail
0001C0: 6C 65 20 37 20 2E 20 41 20 70 61 72 74 20 63 61 le 7 . A part ca
0001D0: 20 72 69 65 6E 20 64 65 20 6E 65 75 66 20 2E 0D rien de neuf ..
0001E0: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 51 55 . LD (QU
0001F0: 41 54 52 49 44 2B 33 29 2C 41 0D 0A 20 20 20 20 ATRID+3),A..
Size : 512 (Real : 512)
000000: 20 20 20 20 20 43 41 4C 4C 20 49 4E 53 54 52 55 CALL INSTRU
000010: 39 20 20 20 20 20 20 20 20 3B 4C 69 72 65 20 47 9 ;Lire G
000020: 41 50 0D 0A 20 20 20 20 20 20 20 20 20 50 4F 50 AP.. POP
000030: 20 41 46 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 AF.. LD
000040: 20 28 51 55 41 54 52 49 44 2B 33 29 2C 41 0D 0A (QUATRID+3),A..
000050: 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 ;.. LD
000060: 48 4C 2C 42 55 46 47 41 50 53 0D 0A 20 20 20 20 HL,BUFGAPS..
000070: 20 20 20 20 20 4C 44 20 41 2C 28 48 4C 29 0D 0A LD A,(HL)..
000080: 20 4F 4B 47 41 50 31 20 20 4C 44 20 28 56 41 4C OKGAP1 LD (VAL
000090: 47 41 50 46 29 2C 41 0D 0A 20 20 20 20 20 20 20 GAPF),A..
0000A0: 20 20 43 50 20 23 34 45 0D 0A 20 20 20 20 20 20 CP #4E..
0000B0: 20 20 20 52 45 54 20 5A 0D 0A 20 3B 0D 0A 20 20 RET Z.. ;..
0000C0: 20 20 20 20 20 20 20 4C 44 20 48 4C 2C 52 45 54 LD HL,RET
0000D0: 45 4E 54 20 20 20 3B 49 6C 20 61 72 72 69 76 65 ENT ;Il arrive
0000E0: 20 71 75 65 20 6C 69 72 65 20 70 69 73 74 65 20 que lire piste
0000F0: 70 61 74 69 6E 65 20 2E 2E 2E 0D 0A 20 20 20 20 patine .....
000100: 20 20 20 20 20 44 45 43 20 28 48 4C 29 0D 0A 20 DEC (HL)..
000110: 20 20 20 20 20 20 20 20 4A 52 20 4E 5A 2C 45 4E JR NZ,EN
000120: 43 4F 47 41 50 0D 0A 20 3B 0D 0A 20 20 20 20 20 COGAP.. ;..
000130: 20 20 20 20 4C 44 20 41 2C 28 46 4C 41 47 44 45 LD A,(FLAGDE
000140: 4E 29 20 3B 47 41 50 3C 3E 23 34 45 20 2E 20 50 N) ;GAP<>#4E . P
000150: 65 75 74 20 65 74 72 65 20 65 6E 20 53 44 20 2E eut etre en SD .
000160: 20 56 65 72 69 66 69 65 72 0D 0A 20 20 20 20 20 Verifier..
000170: 20 20 20 20 43 50 20 23 46 46 0D 0A 20 20 20 20 CP #FF..
000180: 20 20 20 20 20 4A 50 20 5A 2C 53 45 54 4E 4F 47 JP Z,SETNOG
000190: 41 50 20 20 3B 47 41 50 3C 3E 23 34 45 20 26 20 AP ;GAP<>#4E &
0001A0: 53 44 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 SD.. LD
0001B0: 41 2C 23 34 45 20 20 20 20 20 20 20 3B 46 69 78 A,#4E ;Fix
0001C0: 65 72 20 61 72 62 69 74 72 61 69 72 65 6D 65 6E er arbitrairemen
0001D0: 74 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 20 4F t.. JR O
0001E0: 4B 47 41 50 31 0D 0A 20 3B 0D 0A 20 46 49 4E 44 KGAP1.. ;.. FIND
0001F0: 47 41 50 20 43 41 4C 4C 20 55 4E 53 45 55 4C 20 GAP CALL UNSEUL
Size : 512 (Real : 512)
000000: 20 20 3B 53 69 20 75 6E 20 73 65 75 6C 20 73 65 ;Si un seul se
000010: 63 74 65 75 72 20 2C 20 47 41 50 20 3D 20 23 46 cteur , GAP = #F
000020: 46 20 64 27 6F 66 66 69 63 65 0D 0A 20 20 20 20 F d'office..
000030: 20 20 20 20 20 52 45 54 20 43 20 20 20 20 20 20 RET C
000040: 20 20 20 3B 31 2D 32 20 3D 20 23 46 46 20 65 74 ;1-2 = #FF et
000050: 20 6D 69 73 65 20 43 41 52 52 59 0D 0A 20 3B 0D mise CARRY.. ;.
000060: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 48 4C 2C . LD HL,
000070: 42 55 46 47 41 50 53 2B 31 20 3B 43 6F 6D 70 74 BUFGAPS+1 ;Compt
000080: 65 72 20 6C 61 20 6C 6F 6E 67 75 65 75 72 20 64 er la longueur d
000090: 75 20 47 41 50 20 64 61 6E 73 20 6C 65 20 62 75 u GAP dans le bu
0000A0: 66 66 65 72 0D 0A 20 20 20 20 20 20 20 20 20 4C ffer.. L
0000B0: 44 20 42 2C 32 35 35 20 20 20 20 20 20 20 20 3B D B,255 ;
0000C0: 46 6F 6E 63 74 69 6F 6E 6E 65 20 63 6F 6D 6D 65 Fonctionne comme
0000D0: 20 64 61 6E 73 20 6C 61 20 76 65 72 73 69 6F 6E dans la version
0000E0: 20 70 72 7B 63 7B 64 65 6E 74 65 0D 0A 20 20 20 pr{c{dente..
0000F0: 20 20 20 20 20 20 4C 44 20 43 2C 31 20 20 20 20 LD C,1
000100: 20 20 20 20 20 20 3B 6D 61 69 73 20 6C 61 20 70 ;mais la p
000110: 6F 73 73 69 62 69 6C 69 74 7B 20 64 27 75 6E 20 ossibilit{ d'un
000120: 47 41 50 20 30 20 28 32 35 36 20 6F 63 74 65 74 GAP 0 (256 octet
000130: 73 29 0D 0A 20 42 43 4C 47 41 50 53 20 4C 44 20 s).. BCLGAPS LD
000140: 41 2C 28 48 4C 29 20 20 20 20 20 20 20 3B 79 2D A,(HL) ;y-
000150: 65 73 74 20 6D 61 69 6E 74 65 6E 61 6E 74 20 70 est maintenant p
000160: 72 69 73 65 20 65 6E 20 63 6F 6D 70 74 65 20 2E rise en compte .
000170: 20 45 6E 20 63 61 73 20 64 65 0D 0A 20 20 20 20 En cas de..
000180: 20 20 20 20 20 4F 52 20 41 20 20 20 20 20 20 20 OR A
000190: 20 20 20 20 20 3B 6C 6F 6E 67 75 65 75 72 20 47 ;longueur G
0001A0: 41 50 20 74 72 6F 70 20 67 72 61 6E 64 65 20 2C AP trop grande ,
0001B0: 20 6F 6E 20 65 66 66 65 63 74 75 65 20 75 6E 20 on effectue un
0001C0: 73 65 63 6F 6E 64 0D 0A 20 20 20 20 20 20 20 20 second..
0001D0: 20 4A 52 20 5A 2C 4E 45 58 54 53 59 4E 20 20 20 JR Z,NEXTSYN
0001E0: 20 3B 74 65 73 74 20 65 6E 20 46 49 4E 44 47 41 ;test en FINDGA
0001F0: 50 32 0D 0A 20 20 20 20 20 20 20 20 20 43 50 20 P2.. CP
Size : 512 (Real : 512)
000000: 23 46 46 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 #FF.. JR
000010: 20 5A 2C 4E 45 58 54 53 59 4E 0D 0A 20 53 55 49 Z,NEXTSYN.. SUI
000020: 54 47 41 50 20 49 4E 43 20 48 4C 0D 0A 20 20 20 TGAP INC HL..
000030: 20 20 20 20 20 20 49 4E 43 20 43 0D 0A 20 20 20 INC C..
000040: 20 20 20 20 20 20 44 4A 4E 5A 20 42 43 4C 47 41 DJNZ BCLGA
000050: 50 53 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 PS.. ;..
000060: 20 4C 44 20 41 2C 43 20 20 20 20 20 20 20 20 20 LD A,C
000070: 20 3B 50 72 69 73 65 20 65 6E 20 63 6F 6D 70 74 ;Prise en compt
000080: 65 20 64 27 75 6E 20 47 41 50 20 64 65 20 32 35 e d'un GAP de 25
000090: 36 20 6F 63 74 65 74 73 0D 0A 20 20 20 20 20 20 6 octets..
0000A0: 20 20 20 4F 52 20 41 0D 0A 20 20 20 20 20 20 20 OR A..
0000B0: 20 20 4A 52 20 4E 5A 2C 46 49 4E 44 47 41 50 32 JR NZ,FINDGAP2
0000C0: 20 20 3B 32 20 7B 6D 65 20 65 73 73 61 69 20 73 ;2 {me essai s
0000D0: 69 20 7B 63 68 65 63 0D 0A 20 20 20 20 20 20 20 i {chec..
0000E0: 20 20 4A 52 20 53 45 54 47 41 50 4C 0D 0A 20 3B JR SETGAPL.. ;
0000F0: 0D 0A 20 4E 45 58 54 53 59 4E 20 50 55 53 48 20 .. NEXTSYN PUSH
000100: 48 4C 20 20 20 20 20 20 20 20 20 3B 54 65 73 74 HL ;Test
000110: 20 73 75 72 20 53 59 4E 43 0D 0A 20 20 20 20 20 sur SYNC..
000120: 20 20 20 20 49 4E 43 20 48 4C 0D 0A 20 20 20 20 INC HL..
000130: 20 20 20 20 20 49 4E 43 20 48 4C 0D 0A 20 20 20 INC HL..
000140: 20 20 20 20 20 20 49 4E 43 20 48 4C 0D 0A 20 20 INC HL..
000150: 20 20 20 20 20 20 20 43 50 20 28 48 4C 29 0D 0A CP (HL)..
000160: 20 20 20 20 20 20 20 20 20 50 4F 50 20 48 4C 0D POP HL.
000170: 0A 20 20 20 20 20 20 20 20 20 4A 52 20 4E 5A 2C . JR NZ,
000180: 53 55 49 54 47 41 50 0D 0A 20 3B 0D 0A 20 53 45 SUITGAP.. ;.. SE
000190: 54 47 41 50 4C 31 20 4C 44 20 41 2C 43 20 20 20 TGAPL1 LD A,C
0001A0: 20 20 20 20 20 20 3B 4C 6F 6E 67 75 65 75 72 20 ;Longueur
0001B0: 47 41 50 20 74 72 6F 75 76 65 65 0D 0A 20 53 45 GAP trouvee.. SE
0001C0: 54 47 41 50 4C 20 4C 44 20 28 47 41 50 46 4F 52 TGAPL LD (GAPFOR
0001D0: 4D 29 2C 41 0D 0A 20 20 20 20 20 20 20 20 20 53 M),A.. S
0001E0: 43 46 0D 0A 20 20 20 20 20 20 20 20 20 52 45 54 CF.. RET
0001F0: 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 .. ;..
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000010: 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------
000020: 2D 2D 2D 2D 2D 0D 0A 20 0D 0A 20 20 20 20 20 53 -----.. .. S
000030: 69 20 6C 65 20 73 65 63 74 65 75 72 20 74 65 73 i le secteur tes
000040: 74 65 20 70 61 72 20 6C 69 72 65 20 70 69 73 74 te par lire pist
000050: 65 20 40 20 20 7B 74 7B 20 7B 63 72 69 74 20 2C e @ {t{ {crit ,
000060: 20 6C 61 20 73 7B 72 69 65 20 64 27 6F 63 74 65 la s{rie d'octe
000070: 74 73 20 70 72 69 73 65 0D 0A 20 64 61 6E 73 20 ts prise.. dans
000080: 42 55 46 47 41 50 53 20 73 65 20 70 72 7B 73 65 BUFGAPS se pr{se
000090: 6E 74 65 20 20 64 69 66 66 7B 72 65 6E 6D 65 6E nte diff{renmen
0000A0: 74 20 20 2E 20 20 4C 65 20 20 74 65 73 74 20 20 t . Le test
0000B0: 6E 65 20 20 73 65 20 20 66 61 69 74 20 70 6C 75 ne se fait plu
0000C0: 73 20 73 75 72 20 6C 61 0D 0A 20 72 65 6E 63 6F s sur la.. renco
0000D0: 6E 74 72 65 20 61 76 65 63 20 6C 65 73 20 6F 63 ntre avec les oc
0000E0: 74 65 74 73 20 27 53 59 4E 43 48 52 4F 27 20 71 tets 'SYNCHRO' q
0000F0: 75 69 20 20 6E 65 20 20 73 6F 6E 74 20 20 70 6C ui ne sont pl
000100: 75 73 20 20 6C 75 73 20 70 61 72 20 6C 69 72 65 us lus par lire
000110: 20 70 69 73 74 65 20 2C 0D 0A 20 6D 61 69 73 20 piste ,.. mais
000120: 73 75 72 20 6C 65 20 6E 6F 6D 62 72 65 20 64 65 sur le nombre de
000130: 20 72 7B 70 7B 74 69 74 69 6F 6E 73 20 64 65 20 r{p{titions de
000140: 6C 27 6F 63 74 65 74 20 71 75 69 20 73 75 69 74 l'octet qui suit
000150: 20 6C 27 6F 63 74 65 74 20 64 65 20 47 41 50 20 l'octet de GAP
000160: 23 34 45 20 2E 0D 0A 20 0D 0A 20 20 20 20 20 20 #4E ... ..
000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000180: 20 20 20 20 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D ------
000190: 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 3B 0D 0A 20 ---------.. ;..
0001A0: 46 49 4E 44 47 41 50 32 20 4C 44 20 48 4C 2C 42 FINDGAP2 LD HL,B
0001B0: 55 46 47 41 50 53 20 3B 32 65 6D 65 20 74 65 6E UFGAPS ;2eme ten
0001C0: 74 61 74 69 76 65 0D 0A 20 20 20 20 20 20 20 20 tative..
0001D0: 20 49 4E 43 20 48 4C 20 20 20 20 20 20 20 20 20 INC HL
0001E0: 3B 53 61 75 74 65 72 20 6C 27 6F 63 74 65 74 20 ;Sauter l'octet
0001F0: 40 20 23 34 45 0D 0A 20 20 20 20 20 20 20 20 20 @ #4E..
Size : 512 (Real : 512)
000000: 4C 44 20 41 2C 28 48 4C 29 0D 0A 20 20 20 20 20 LD A,(HL)..
000010: 20 20 20 20 4C 44 20 43 2C 31 0D 0A 20 3B 0D 0A LD C,1.. ;..
000020: 20 43 4E 54 47 41 50 20 20 43 50 20 28 48 4C 29 CNTGAP CP (HL)
000030: 20 20 20 20 20 20 20 20 3B 49 6E 63 72 65 6D 65 ;Increme
000040: 6E 74 65 72 20 43 20 74 61 6E 74 20 71 75 65 20 nter C tant que
000050: 6C 27 6F 63 74 65 74 20 73 65 20 72 65 70 65 74 l'octet se repet
000060: 65 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 20 4E e.. JR N
000070: 5A 2C 53 45 54 47 41 50 4C 31 0D 0A 20 20 20 20 Z,SETGAPL1..
000080: 20 20 20 20 20 49 4E 43 20 48 4C 0D 0A 20 20 20 INC HL..
000090: 20 20 20 20 20 20 49 4E 43 20 43 0D 0A 20 20 20 INC C..
0000A0: 20 20 20 20 20 20 4A 52 20 4E 5A 2C 43 4E 54 47 JR NZ,CNTG
0000B0: 41 50 0D 0A 20 20 20 20 20 20 20 20 20 43 50 20 AP.. CP
0000C0: 28 48 4C 29 20 20 20 20 20 20 20 20 20 3B 54 65 (HL) ;Te
0000D0: 73 74 65 72 20 47 41 50 20 32 35 36 0D 0A 20 53 ster GAP 256.. S
0000E0: 41 55 54 42 41 44 20 4A 50 20 5A 2C 53 45 54 42 AUTBAD JP Z,SETB
0000F0: 41 44 4C 45 4E 0D 0A 20 20 20 20 20 20 20 20 20 ADLEN..
000100: 4A 52 20 53 45 54 47 41 50 4C 31 0D 0A 20 3B 0D JR SETGAPL1.. ;.
000110: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2D -
000130: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000140: 2D 0D 0A 20 0D 0A 20 20 20 20 20 54 72 6F 75 76 -.. .. Trouv
000150: 65 72 20 6C 27 6F 63 74 65 74 20 64 65 20 66 6F er l'octet de fo
000160: 72 6D 61 74 61 67 65 20 64 61 6E 73 20 75 6E 20 rmatage dans un
000170: 20 43 52 2F 44 44 20 20 28 53 27 69 6C 20 20 79 CR/DD (S'il y
000180: 2D 65 6E 20 20 61 20 75 6E 29 20 2E 20 52 69 65 -en a un) . Rie
000190: 6E 20 64 65 0D 0A 20 70 6C 75 73 20 73 69 6D 70 n de.. plus simp
0001A0: 6C 65 20 3A 20 4F 6E 20 6C 6F 63 61 6C 69 73 65 le : On localise
0001B0: 20 73 61 20 70 6F 73 69 74 69 6F 6E 20 64 61 6E sa position dan
0001C0: 73 20 20 6C 61 20 73 7B 72 69 65 20 64 27 49 44 s la s{rie d'ID
0001D0: 53 20 65 74 20 6F 6E 20 6C 65 20 6C 69 74 20 63 S et on le lit c
0001E0: 6F 6D 6D 65 0D 0A 20 75 6E 20 73 65 63 74 65 75 omme.. un secteu
0001F0: 72 20 6E 6F 72 6D 61 6C 20 2E 20 4C 65 20 31 65 r normal . Le 1e
Size : 512 (Real : 512)
000000: 72 20 6F 63 74 65 74 20 6C 75 20 65 73 74 20 6C r octet lu est l
000010: 65 20 62 6F 6E 20 2E 0D 0A 20 0D 0A 20 20 20 20 e bon ... ..
000020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000030: 20 20 20 20 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D ------
000040: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 3B ------------.. ;
000050: 0D 0A 20 46 49 4E 44 52 45 4D 50 20 4C 44 20 41 .. FINDREMP LD A
000060: 2C 28 46 4C 41 47 43 52 44 44 29 20 3B 54 72 6F ,(FLAGCRDD) ;Tro
000070: 75 76 65 72 20 6F 63 74 65 74 20 72 65 6D 70 6C uver octet rempl
000080: 69 73 73 61 67 65 20 64 61 6E 73 20 65 76 65 6E issage dans even
000090: 74 75 65 6C 20 43 52 2F 44 44 0D 0A 20 20 20 20 tuel CR/DD..
0000A0: 20 20 20 20 20 41 4E 44 20 25 31 30 30 30 30 30 AND %100000
0000B0: 30 30 0D 0A 20 20 20 20 20 20 20 20 20 52 45 54 00.. RET
0000C0: 20 5A 20 20 20 20 20 20 20 20 20 20 20 3B 50 41 Z ;PA
0000D0: 53 20 44 45 20 43 52 2F 44 44 20 2C 20 4C 61 69 S DE CR/DD , Lai
0000E0: 73 73 65 72 20 74 6F 6D 62 65 72 0D 0A 20 3B 0D sser tomber.. ;.
0000F0: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 48 4C 2C . LD HL,
000100: 54 46 52 45 4D 50 0D 0A 20 20 20 20 20 20 20 20 TFREMP..
000110: 20 43 41 4C 4C 20 50 52 54 0D 0A 20 3B 0D 0A 20 CALL PRT.. ;..
000120: 20 20 20 20 20 20 20 20 4C 44 20 48 4C 2C 46 4C LD HL,FL
000130: 41 47 46 4E 43 0D 0A 20 20 20 20 20 20 20 20 20 AGFNC..
000140: 53 45 54 20 30 2C 28 48 4C 29 0D 0A 20 3B 0D 0A SET 0,(HL).. ;..
000150: 20 20 20 20 20 20 20 20 20 4C 44 20 41 2C 28 4E LD A,(N
000160: 42 53 45 43 29 20 3B 52 65 63 68 65 72 63 68 65 BSEC) ;Recherche
000170: 72 20 6C 61 20 70 6F 73 69 74 69 6F 6E 20 65 74 r la position et
000180: 20 6C 27 49 44 20 64 75 20 43 52 2F 44 44 0D 0A l'ID du CR/DD..
000190: 20 20 20 20 20 20 20 20 20 4C 44 20 42 2C 41 0D LD B,A.
0001A0: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 49 59 2C . LD IY,
0001B0: 43 4F 55 4E 54 0D 0A 20 20 20 20 20 20 20 20 20 COUNT..
0001C0: 4C 44 20 28 49 59 2B 30 29 2C 30 0D 0A 20 3B 0D LD (IY+0),0.. ;.
0001D0: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 44 45 2C . LD DE,
0001E0: 4C 49 53 54 45 52 52 0D 0A 20 20 20 20 20 20 20 LISTERR..
0001F0: 20 20 4C 44 20 48 4C 2C 49 44 49 4E 44 52 41 2B LD HL,IDINDRA+
Size : 512 (Real : 512)
000000: 00 46 44 43 20 20 20 20 20 42 41 53 00 00 00 00 .FDC BAS....
000010: 00 00 00 00 00 70 01 00 E8 1B 00 00 00 00 00 00 .....p..........
000020: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000030: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000040: E8 1B 00 BA 04 01 9F 20 1E 92 27 00 5F 00 2E 4F ....... ..'._..O
000050: 0B 00 00 63 B0 EF 10 01 0B 00 00 63 B1 EF 0E 01 ...c.......c....
000060: 0B 00 00 63 B2 EF 0F 01 0B 00 00 63 B3 EF 11 01 ...c.......c....
000070: 0B 00 00 E3 EF 0B 00 00 63 B2 01 0B 00 00 77 B1 ........c.....w.
000080: 07 00 0A 00 01 C0 00 25 00 14 00 01 C0 2A 2A 2A .......%.....***
000090: 20 4D 45 4E 55 20 50 52 49 4E 43 49 50 41 4C 20 MENU PRINCIPAL
0000A0: 53 4F 53 20 4E 2E 34 20 2A 2A 2A 00 07 00 1E 00 SOS N.4 ***.....
0000B0: 01 C0 00 1E 00 28 00 AA 20 1C FF 3F 01 B7 22 78 .....(.. ..?.."x
0000C0: 22 01 AA 20 FF 42 F5 0F 01 89 01 8E 20 61 2D 7A ".. .B...... a-z
0000D0: 00 18 00 32 00 A8 22 72 73 78 70 72 74 2E 63 6F ...2.."rsxprt.co
0000E0: 64 22 01 83 20 1C 00 80 00 1B 00 3C 00 A8 22 6C d".. ......<.."l
0000F0: 65 63 74 65 75 72 35 2E 63 6F 64 22 2C 1F 00 00 ecteur5.cod",...
000100: 40 1C 90 00 07 00 46 00 01 C0 00 22 00 50 00 01 @.....F....".P..
000110: C0 2A 2A 2A 20 49 4E 49 54 49 41 4C 49 53 41 54 .*** INITIALISAT
000120: 49 4F 4E 20 50 41 47 45 20 2A 2A 2A 00 07 00 5A ION PAGE ***...Z
000130: 00 01 C0 00 27 00 64 00 AD 20 0F 01 82 20 19 0D ....'.d.. ... ..
000140: 01 A2 20 0E 2C 19 0A 01 A2 20 0F 2C 0E 01 A2 20 .. .,.... .,...
000150: 10 2C 11 01 A2 20 11 2C 19 0F 00 80 00 6E 00 0B .,... .,.....n..
000160: 00 00 77 B1 EF 0F 01 0B 00 00 77 B2 EF 19 28 01 ..w.......w...(.
000170: 0B 00 00 77 B3 EF 0F 01 0B 00 00 77 B4 EF 17 01 ...w.......w....
000180: 0B 00 00 E1 EF 0F 01 9F 20 1E AC 4E 01 0B 00 00 ........ ..N....
000190: 77 B1 EF 0F 01 0B 00 00 77 B2 EF 0F 01 0B 00 00 w.......w.......
0001A0: 77 B4 EF 19 19 01 9F 20 1E AC 4E 01 0B 00 00 77 w...... ..N....w
0001B0: B1 EF 19 28 01 0B 00 00 77 B2 EF 19 28 01 9F 20 ...(....w...(..
0001C0: 1E AC 4E 01 0B 00 00 77 B1 EF 0F 01 0B 00 00 77 ..N....w.......w
0001D0: B3 EF 19 19 01 9F 20 1E AC 4E 00 09 01 78 00 03 ...... ..N...x..
0001E0: 00 00 E1 EF FF 16 28 19 14 29 01 7C 00 50 52 54 ......(..).|.PRT
0001F0: D6 2C 0F 2C 11 2C 0E 2C 0F 2C 13 2C 40 03 00 00 .,.,.,.,.,.,@...
Size : 512 (Real : 512)
000000: E1 01 7C 00 50 52 54 D6 2C 0F 2C 11 2C 0E 2C 19 ..|.PRT.,.,.,.,.
000010: 28 2C 13 2C 40 03 00 00 E1 01 03 00 00 E1 EF 22 (,.,@.........."
000020: 53 4F 53 20 50 52 4F 47 52 41 4D 4D 45 55 52 53 SOS PROGRAMMEURS
000030: 20 4E 2E 34 22 01 7C 00 44 D4 01 7C 00 4D 49 44 N.4".|.D..|.MID
000040: C3 2C 0F 2C 11 2C 0E 2C 11 2C 40 03 00 00 E1 01 .,.,.,.,.,@.....
000050: 03 00 00 E1 EF 22 20 28 43 29 20 55 54 49 4C 2D ....." (C) UTIL-
000060: 53 4F 46 54 20 31 39 38 39 20 22 01 7C 00 44 CC SOFT 1989 ".|.D.
000070: 01 7C 00 4D 49 44 C3 2C 0F 2C 11 2C 0E 2C 13 2C .|.MID.,.,.,.,.,
000080: 40 03 00 00 E1 01 7C 00 53 D4 01 03 00 00 E1 EF @.....|.S.......
000090: 22 4D 2E 4D 41 49 47 52 4F 54 20 4C 61 20 47 64 "M.MAIGROT La Gd
0000A0: 65 20 56 65 72 72 69 65 72 65 22 01 7C 00 4D 49 e Verriere".|.MI
0000B0: 44 C3 2C 0F 2C 11 2C 0E 2C 14 2C 40 03 00 00 E1 D.,.,.,.,.,@....
0000C0: 01 03 00 00 E1 EF 22 37 31 39 39 30 20 53 74 2E ......"71990 St.
0000D0: 4C 45 47 45 52 20 73 6F 75 73 20 42 45 55 56 52 LEGER sous BEUVR
0000E0: 41 59 22 00 19 00 82 00 7C 00 4D 49 44 C3 2C 0F AY".....|.MID.,.
0000F0: 2C 11 2C 0E 2C 15 2C 40 03 00 00 E1 00 07 00 D0 ,.,.,.,@........
000100: 07 01 C0 00 21 00 DA 07 01 C0 2A 2A 2A 20 46 44 ....!.....*** FD
000110: 43 20 4D 45 4E 55 20 50 52 49 4E 43 49 50 41 4C C MENU PRINCIPAL
000120: 20 2A 2A 2A 00 07 00 E4 07 01 C0 00 1B 00 EE 07 ***............
000130: 03 00 00 E3 EF 22 20 46 44 43 20 37 36 35 20 22 ....." FDC 765 "
000140: 01 9F 20 1E 24 4F 00 88 00 F8 07 03 00 00 C1 28 .. .$O.........(
000150: 0E 29 EF 22 20 55 74 69 6C 69 73 61 74 69 6F 6E .)." Utilisation
000160: 20 20 73 65 63 74 69 6F 6E 20 22 01 03 00 00 C1 section ".....
000170: 28 0F 29 EF 22 20 53 65 63 74 69 6F 6E 20 74 68 (.)." Section th
000180: 65 6F 72 69 65 20 20 46 44 43 20 22 01 03 00 00 eorie FDC "....
000190: C1 28 10 29 EF 22 20 50 72 6F 67 72 61 6D 6D 65 .(.)." Programme
0001A0: 73 20 63 6F 6D 6D 65 6E 74 65 73 20 22 01 03 00 s commentes "...
0001B0: 00 C1 28 11 29 EF 22 20 51 75 69 74 74 65 72 20 ..(.)." Quitter
0001C0: 6C 61 20 73 65 63 74 69 6F 6E 20 2A 20 22 00 07 la section * "..
0001D0: 00 02 08 01 C0 00 1F 00 0C 08 03 00 00 E2 EF FF ................
0001E0: 16 28 FF 0E 28 03 00 00 E1 28 0E 29 29 29 01 9F .(..(....(.)))..
0001F0: 20 1E D8 13 00 1F 00 16 08 B2 20 0B 00 00 E9 F4 ......... .....
Size : 512 (Real : 512)
000000: 0F 20 A0 20 1E 2A 08 2C 1E 52 08 2C 1E 70 08 2C . . .*.,.R.,.p.,
000010: 1E 34 08 00 07 00 20 08 01 C0 00 23 00 2A 08 03 .4.... ....#.*..
000020: 00 00 E1 EF 22 5E 66 64 63 34 6D 65 2E 61 73 63 ...."^fdc4me.asc
000030: 22 01 9F 20 1E 3E 4E 01 A0 20 1E 3C 00 00 1A 00 ".. .>N.. .<....
000040: 34 08 9F 20 1E BA 27 01 85 22 73 6F 73 34 2E 62 4.. ..'.."sos4.b
000050: 61 73 22 2C 1A 06 04 00 07 00 3E 08 01 C0 00 07 as",......>.....
000060: 00 48 08 01 C0 00 24 00 52 08 03 00 00 E1 EF 22 .H....$.R......"
000070: 5E 66 64 63 74 68 65 6F 2E 61 73 63 22 01 9F 20 ^fdctheo.asc"..
000080: 1E 3E 4E 01 A0 20 1E 3C 00 00 5A 00 53 08 01 C0 .>N.. .<..Z.S...
000090: 61 24 28 30 29 3D 22 20 20 54 68 65 6F 72 69 65 a$(0)=" Theorie
0000A0: 20 70 61 72 74 69 65 20 31 20 22 3A 61 24 28 31 partie 1 ":a$(1
0000B0: 29 3D 22 20 20 54 68 65 6F 72 69 65 31 20 28 73 )=" Theorie1 (s
0000C0: 75 69 74 65 29 20 22 3A 61 24 28 32 29 3D 22 20 uite) ":a$(2)="
0000D0: 20 54 68 65 6F 72 69 65 20 70 61 72 74 69 65 20 Theorie partie
0000E0: 32 20 22 00 6D 00 5C 08 0D 00 00 6D 61 78 E9 EF 2 ".m.\....max..
0000F0: 10 01 0D 00 00 E4 EF 10 01 0D 00 00 E5 EF 19 13 ................
000100: 01 0D 00 00 77 B1 EF 19 0B 01 0D 00 00 77 B2 EF ....w........w..
000110: 19 1E 01 0D 00 00 77 B3 EF 19 0A 01 0D 00 00 77 ......w........w
000120: B4 EF 19 15 01 0D 00 00 E1 EF 0E 01 0D 00 00 64 ...............d
000130: E8 EF 19 0E 01 0D 00 00 64 EC EF 19 0E 01 9F 20 ........d......
000140: 1E 98 4E 01 0D 00 00 79 B1 EF 0D 00 00 F9 F4 11 ..N....y........
000150: 00 23 00 5D 08 9F 20 1E A6 13 01 A1 20 0B 00 00 .#.].. ..... ...
000160: E1 F2 F5 19 10 20 EB 20 9F 20 1E FC 4E 01 A0 20 ..... . . ..N..
000170: 1E F8 07 00 2E 00 5E 08 A1 20 FF 75 28 03 00 00 ......^.. .u(...
000180: E1 28 0B 00 00 E9 29 2C 0F 29 EF 22 7E 22 EB 20 .(....),.)."~".
000190: 9F 20 1E CE 27 01 9F 20 1E B0 13 01 A0 20 1E 8E . ..'.. ..... ..
0001A0: 08 00 21 00 5F 08 9F 20 1E D4 4E 01 B2 20 0D 00 ..!._.. ..N.. ..
0001B0: 00 E9 F4 0F 20 A0 20 1E 60 08 2C 1E 61 08 2C 1E .... . .`.,.a.,.
0001C0: 62 08 00 1F 00 60 08 03 00 00 E1 EF 22 66 64 63 b....`......"fdc
0001D0: 2E 61 73 63 22 01 9F 20 1E 3E 4E 01 A0 20 1E 3C .asc".. .>N.. .<
0001E0: 00 00 20 00 61 08 03 00 00 E1 EF 22 66 64 63 31 .. .a......"fdc1
0001F0: 2E 61 73 63 22 01 9F 20 1E 3E 4E 01 A0 20 1E 3C .asc".. .>N.. .<
Size : 512 (Real : 512)
000000: 00 00 20 00 62 08 03 00 00 E1 EF 22 66 64 63 32 .. .b......"fdc2
000010: 2E 61 73 63 22 01 9F 20 1E 3E 4E 01 A0 20 1E 3C .asc".. .>N.. .<
000020: 00 00 07 00 66 08 01 C0 00 F5 00 70 08 03 00 00 ....f......p....
000030: E1 28 0E 29 EF 22 20 20 43 6F 70 69 65 75 72 20 .(.)." Copieur
000040: 70 68 79 73 69 71 75 65 20 22 01 03 00 00 E1 28 physique ".....(
000050: 0F 29 EF 22 20 20 41 6E 61 6C 79 73 65 20 64 65 .)." Analyse de
000060: 20 70 69 73 74 65 20 22 01 03 00 00 E1 28 10 29 piste ".....(.)
000070: EF 22 20 20 52 65 63 68 65 72 63 68 65 20 67 61 ." Recherche ga
000080: 70 73 20 31 20 22 01 03 00 00 E1 28 11 29 EF 22 ps 1 ".....(.)."
000090: 20 20 52 65 63 68 65 72 63 68 65 20 67 61 70 73 Recherche gaps
0000A0: 20 32 20 22 01 03 00 00 E1 28 12 29 EF 22 20 20 2 ".....(.)."
0000B0: 45 63 72 61 73 65 72 20 73 65 63 74 65 75 72 73 Ecraser secteurs
0000C0: 20 22 01 03 00 00 E1 28 13 29 EF 22 20 20 53 74 ".....(.)." St
0000D0: 6F 63 6B 65 72 20 6C 61 20 70 69 73 74 65 20 22 ocker la piste "
0000E0: 01 03 00 00 E1 28 14 29 EF 22 20 20 52 65 70 72 .....(.)." Repr
0000F0: 6F 64 75 69 72 65 20 70 69 73 74 65 20 22 01 03 oduire piste "..
000100: 00 00 E1 28 15 29 EF 22 20 20 53 75 62 20 72 6F ...(.)." Sub ro
000110: 75 74 69 6E 65 73 20 46 44 43 20 22 20 00 22 00 utines FDC " .".
000120: 71 08 01 C0 61 24 28 38 29 3D 22 20 20 41 63 63 q...a$(8)=" Acc
000130: 65 73 20 20 70 72 6F 67 72 61 6D 6D 65 20 22 00 es programme ".
000140: 1D 00 75 08 0B 00 00 6D 61 78 E9 EF 15 01 0B 00 ..u....max......
000150: 00 E4 EF 10 01 0B 00 00 E5 EF 19 13 00 54 00 7A .............T.z
000160: 08 0B 00 00 77 B1 EF 19 0B 01 0B 00 00 77 B2 EF ....w........w..
000170: 19 1E 01 0B 00 00 77 B3 EF 19 0A 01 0B 00 00 77 ......w........w
000180: B4 EF 19 15 01 0B 00 00 E1 EF 0E 01 0B 00 00 64 ...............d
000190: E8 EF 19 0E 01 0B 00 00 64 EC EF 19 0E 01 9F 20 ........d......
0001A0: 1E 98 4E 01 0B 00 00 79 B1 EF 0B 00 00 F9 F4 0F ..N....y........
0001B0: 00 23 00 84 08 9F 20 1E A6 13 01 A1 20 0B 00 00 .#.... ..... ...
0001C0: E1 F2 F5 19 10 20 EB 20 9F 20 1E FC 4E 01 A0 20 ..... . . ..N..
0001D0: 1E F8 07 00 2E 00 8E 08 A1 20 FF 75 28 03 00 00 ......... .u(...
0001E0: E1 28 0B 00 00 E9 29 2C 0F 29 EF 22 7E 22 EB 20 .(....),.)."~".
0001F0: 9F 20 1E CE 27 01 9F 20 1E B0 13 01 A0 20 1E 8E . ..'.. ..... ..
Size : 512 (Real : 512)
000000: 08 00 35 00 98 08 9F 20 1E D4 4E 01 B2 20 0B 00 ..5.... ..N.. ..
000010: 00 E9 F4 0F 20 A0 20 1E C0 08 2C 1E E8 08 2C 1E .... . ...,...,.
000020: 10 09 2C 1E 38 09 2C 1E 60 09 2C 1E 7E 09 2C 1E ..,.8.,.`.,.~.,.
000030: 88 09 2C 1E B0 09 00 07 00 A2 08 01 C0 00 24 00 ..,...........$.
000040: C0 08 03 00 00 E1 EF 22 5E 63 6F 70 69 6E 69 74 ......."^copinit
000050: 2E 61 73 63 22 01 9F 20 1E 3E 4E 01 A0 20 1E 3C .asc".. .>N.. .<
000060: 00 00 25 00 E8 08 03 00 00 E1 EF 22 5E 63 6F 70 ..%........"^cop
000070: 61 6E 61 6C 2E 61 73 63 22 01 9F 20 1E 3E 4E 01 anal.asc".. .>N.
000080: A0 20 1E 3C 00 20 00 24 00 10 09 03 00 00 E1 EF . .<. .$........
000090: 22 5E 63 6F 70 67 61 70 31 2E 61 73 63 22 01 9F "^copgap1.asc"..
0000A0: 20 1E 3E 4E 01 A0 20 1E 3C 00 00 24 00 38 09 03 .>N.. .<..$.8..
0000B0: 00 00 E1 EF 22 5E 63 6F 70 67 61 70 32 2E 61 73 ...."^copgap2.as
0000C0: 63 22 01 9F 20 1E 3E 4E 01 A0 20 1E 3C 00 00 24 c".. .>N.. .<..$
0000D0: 00 60 09 03 00 00 E1 EF 22 5E 63 6F 70 65 63 72 .`......"^copecr
0000E0: 61 2E 61 73 63 22 01 9F 20 1E 3E 4E 01 A0 20 1E a.asc".. .>N.. .
0000F0: 3C 00 00 24 00 7E 09 03 00 00 E1 EF 22 5E 63 6F <..$.~......"^co
000100: 70 73 74 6F 6B 2E 61 73 63 22 01 9F 20 1E 3E 4E pstok.asc".. .>N
000110: 01 A0 20 1E 3C 00 00 24 00 88 09 03 00 00 E1 EF .. .<..$........
000120: 22 5E 63 6F 70 65 63 72 69 2E 61 73 63 22 01 9F "^copecri.asc"..
000130: 20 1E 3E 4E 01 A0 20 1E 3C 00 00 24 00 B0 09 03 .>N.. .<..$....
000140: 00 00 E1 EF 22 5E 63 6F 70 72 6F 75 74 2E 61 73 ...."^coprout.as
000150: 63 22 01 9F 20 1E 3E 4E 01 A0 20 1E 3C 00 00 16 c".. .>N.. .<...
000160: 00 C4 09 01 C0 52 55 4E 22 74 73 74 69 6E 74 2E .....RUN"tstint.
000170: 62 61 73 22 00 07 00 CE 09 01 C0 00 10 00 D8 09 bas"............
000180: 9F 20 1E CE 27 01 A0 20 1E 84 08 00 1E 00 E2 09 . ..'.. ........
000190: A8 22 2D 46 44 43 56 34 2E 42 49 4E 22 01 83 20 ."-FDCV4.BIN"..
0001A0: 1A 30 75 01 A0 20 1E 32 00 00 07 00 EC 09 01 C0 .0u.. .2........
0001B0: 00 0F 00 F6 09 01 C0 64 69 76 65 72 73 20 22 00 .......divers ".
0001C0: 07 00 00 0A 01 C0 00 12 00 0A 0A 9F 20 1E CE 27 ............ ..'
0001D0: 01 A0 20 1E 84 08 20 20 00 07 00 14 0A 01 C0 00 .. ... ........
0001E0: 17 00 1E 0A 01 C0 2A 2A 2A 20 58 58 58 58 58 58 ......*** XXXXXX
0001F0: 58 58 20 2A 2A 2A 00 07 00 28 0A 01 C0 00 10 00 XX ***...(......
Size : 512 (Real : 512)
000000: 32 0A 9F 20 1E CE 27 01 A0 20 1E 84 08 00 07 00 2.. ..'.. ......
000010: 3C 0A 01 C0 00 07 00 46 0A 01 C0 00 07 00 50 0A <......F......P.
000020: 01 C0 00 17 00 5A 0A 01 C0 2A 2A 2A 20 41 20 53 .....Z...*** A S
000030: 55 49 56 52 45 20 2A 2A 2A 00 07 00 64 0A 01 C0 UIVRE ***...d...
000040: 00 1E 00 6E 0A A1 20 0D 00 00 E1 F2 F5 19 10 20 ...n.. ........
000050: EB 20 1E 70 08 20 01 97 20 9F 20 1E C4 27 00 49 . .p. .. . ..'.I
000060: 00 78 0A 03 00 00 C1 EF AC 28 03 00 00 C1 28 0B .x.......(....(.
000070: 00 00 C9 29 2C 19 13 2C 16 29 01 A1 20 03 00 00 ...),..,.).. ...
000080: F2 EF 22 44 22 EB 20 CA 20 03 00 00 C1 20 01 97 .."D". . .... ..
000090: 20 03 00 00 E1 EF 03 00 00 E1 F4 22 2E 41 53 43 ..........".ASC
0000A0: 22 01 A0 20 1E 3E 4E 00 1C 00 82 0A 03 00 00 E3 ".. .>N.........
0000B0: EF 22 20 41 20 53 55 49 56 52 45 22 01 9F 20 1E ." A SUIVRE".. .
0000C0: 24 4F 20 00 07 00 83 0A 01 C0 00 3E 00 8C 0A 9F $O ........>....
0000D0: 20 1E 48 4E 01 A9 20 0F 2C 19 0C 01 BF 22 18 20 .HN.. .,....".
0000E0: 52 45 50 4C 41 43 45 52 20 46 41 43 45 31 20 53 REPLACER FACE1 S
0000F0: 56 50 20 18 07 22 01 83 20 1C 06 BB 01 85 20 22 VP ..".. ..... "
000100: 53 4F 53 34 22 2C 19 3C 00 25 00 96 0A 9F 20 1E SOS4",.<.%.... .
000110: D8 13 01 B2 20 0B 00 00 E9 F4 0F 20 A0 20 1E B4 .... ...... . ..
000120: 0A 2C 1E BE 0A 2C 1E C8 0A 2C 1E 34 08 00 1F 00 .,...,...,.4....
000130: A0 0A 03 00 00 E2 EF FF 16 28 FF 0E 28 03 00 00 .........(..(...
000140: E1 28 0E 29 29 29 01 9F 20 1E D8 13 00 1F 00 AA .(.))).. .......
000150: 0A B2 20 0D 00 00 E9 F4 0F 20 A0 20 1E B4 0A 2C .. ...... . ...,
000160: 1E BE 0A 2C 1E C8 0A 2C 1E 34 08 00 0E 00 B4 0A ...,...,.4......
000170: BF 20 22 6F 70 31 22 01 CE 00 1F 00 BE 0A 9F 20 . "op1"........
000180: 1E BA 27 01 03 00 00 E1 EF 22 46 44 43 2E 42 41 ..'......"FDC.BA
000190: 53 22 01 A0 20 1E D2 0A 00 20 00 C8 0A 9F 20 1E S".. .... .... .
0001A0: BA 27 01 03 00 00 E1 EF 22 49 4E 46 4F 2E 42 41 .'......"INFO.BA
0001B0: 53 22 01 A0 20 1E D2 0A 00 0E 00 D2 0A 85 20 03 S".. ......... .
0001C0: 00 00 E1 2C 19 3C 00 07 00 88 13 01 C0 00 3C 00 ...,.<........<.
0001D0: 92 13 01 C0 2A 2A 2A 20 4D 65 6E 75 20 63 65 6E ....*** Menu cen
0001E0: 74 72 65 20 6D 69 64 24 28 61 24 2C 28 69 29 2C tre mid$(a$,(i),
0001F0: 65 2C 64 29 20 73 61 6E 73 20 69 6E 74 65 72 6C e,d) sans interl
Size : 512 (Real : 512)
000000: 69 67 6E 65 73 20 2A 2A 2A 00 07 00 9C 13 01 C0 ignes ***.......
000010: 00 7A 00 A6 13 0B 00 00 6D 65 EE EF 0F 01 0B 00 .z......me......
000020: 00 64 F9 EF 0F 01 9E 20 0B 00 00 E9 EF 0E 20 EC .d..... ...... .
000030: 20 0B 00 00 6D 61 78 E9 01 03 00 00 E1 EF AC 28 ...max........(
000040: 03 00 00 E1 28 0B 00 00 E9 29 2C 0B 00 00 E4 2C ....(....),....,
000050: 0B 00 00 E5 29 01 7C 00 4D 49 44 C3 2C 0B 00 00 ....).|.MID.,...
000060: 63 B1 2C 0B 00 00 63 B2 2C 0E 2C 0B 00 00 79 B1 c.,...c.,.,...y.
000070: F4 0B 00 00 64 F9 F6 0B 00 00 E9 2C 40 03 00 00 ....d......,@...
000080: E1 01 B0 01 0B 00 00 E9 EF 0E 00 0A 00 B0 13 A0 ................
000090: 20 1E 1E 14 00 07 00 BA 13 01 C0 00 2C 00 C4 13 ...........,...
0000A0: 01 C0 2A 2A 2A 20 4D 65 6E 75 20 63 65 6E 74 72 ..*** Menu centr
0000B0: 65 20 34 20 6C 69 67 6E 65 73 20 65 73 70 61 63 e 4 lignes espac
0000C0: 65 65 73 20 2A 2A 2A 00 07 00 CE 13 01 C0 00 23 ees ***........#
0000D0: 00 D8 13 0B 00 00 79 B1 EF 0B 00 00 F9 F4 0F 01 ......y.........
0000E0: 0B 00 00 64 F9 EF 10 01 0B 00 00 6D 61 78 E9 EF ...d.......max..
0000F0: 11 00 82 00 E2 13 0B 00 00 6D 65 EE EF 10 01 9E .........me.....
000100: 20 0B 00 00 E9 EF 0E 20 EC 20 0B 00 00 6D 61 78 ...... . ...max
000110: E9 01 7C 00 4D 49 44 C3 2C 0B 00 00 63 B1 2C 0B ..|.MID.,...c.,.
000120: 00 00 63 B2 2C 0E 2C 0B 00 00 79 B1 F4 0B 00 00 ..c.,.,...y.....
000130: 64 F9 F6 0B 00 00 E9 2C 40 03 00 00 E1 28 0B 00 d......,@....(..
000140: 00 E9 29 01 7C 00 4D 49 44 C3 2C 0B 00 00 63 B3 ..).|.MID.,...c.
000150: 2C 0B 00 00 63 B2 2C 0E 2C 0B 00 00 79 B1 F4 0B ,...c.,.,...y...
000160: 00 00 64 F9 F6 0B 00 00 E9 F5 0F 2C 40 03 00 00 ..d........,@...
000170: E2 01 B0 00 3D 00 EC 13 7C 00 4D 49 44 C3 2C 0B ....=...|.MID.,.
000180: 00 00 63 B3 2C 0B 00 00 63 B2 2C 0E 2C 0B 00 00 ..c.,...c.,.,...
000190: 79 B1 F4 0B 00 00 64 F9 F6 28 0B 00 00 E9 F5 0F y.....d..(......
0001A0: 29 F4 0F 2C 40 03 00 00 E2 01 0B 00 00 E9 EF 0E )..,@...........
0001B0: 00 20 00 F6 13 9F 20 1E 1E 14 01 A1 20 0B 00 00 . .... ..... ...
0001C0: E1 EF F5 19 10 20 EB 20 C9 20 01 97 20 1E F6 13 ..... . . .. ...
0001D0: 00 07 00 00 14 01 C0 00 23 00 0A 14 01 C0 2A 2A ........#.....**
0001E0: 2A 20 53 6F 75 73 20 70 72 6F 67 72 61 6D 6D 65 * Sous programme
0001F0: 20 6D 65 6E 75 73 20 2A 2A 2A 00 07 00 14 14 01 menus ***......
Size : 512 (Real : 512)
000000: C0 00 43 00 1E 14 A1 20 0B 00 00 6D 65 EE EF 10 ..C.... ...me...
000010: 20 EB 20 7C 00 4D 49 44 C3 2C 0B 00 00 63 B3 2C . |.MID.,...c.,
000020: 0B 00 00 63 B2 2C 0E 2C 0B 00 00 79 B1 F4 0B 00 ...c.,.,...y....
000030: 00 E9 F6 0B 00 00 64 F9 2C 40 03 00 00 E1 28 0B ......d.,@....(.
000040: 00 00 E9 29 00 A1 00 28 14 A1 20 0B 00 00 6D 65 ...)...(.. ...me
000050: EE EF 0F 20 EB 20 03 00 00 E1 EF AC 28 03 00 00 ... . ......(...
000060: E1 28 0B 00 00 E9 29 2C 0B 00 00 E4 2C 0B 00 00 .(....),....,...
000070: E5 29 01 A1 20 FF 75 28 03 00 00 E1 28 0B 00 00 .).. .u(....(...
000080: E9 29 2C 0F 29 F2 22 7E 22 EB 20 7C 00 4D 49 44 .),.)."~". |.MID
000090: C3 2C 0B 00 00 63 B3 2C 0B 00 00 63 B2 2C 0E 2C .,...c.,...c.,.,
0000A0: 0B 00 00 79 B1 F4 0B 00 00 E9 F6 0B 00 00 64 F9 ...y..........d.
0000B0: 2C 40 03 00 00 E1 20 01 97 20 7C 00 4D 49 44 C3 ,@.... .. |.MID.
0000C0: 2C 0B 00 00 63 B1 2C 0B 00 00 63 B0 2C 0E 2C 0B ,...c.,...c.,.,.
0000D0: 00 00 79 B1 F4 0B 00 00 E9 F6 0B 00 00 64 F9 2C ..y..........d.,
0000E0: 40 03 00 00 E1 00 33 00 32 14 03 00 00 D2 EF 22 @.....3.2......"
0000F0: DC 22 01 7C 00 57 4B 45 D9 2C 40 03 00 00 D2 01 .".|.WKE.,@.....
000100: 0B 00 00 E1 EF FF 01 28 03 00 00 F2 29 F5 19 D0 .......(....)...
000110: 01 0B 00 00 E6 EF 19 7D 00 1E 00 3C 14 A1 20 0B .......}...<.. .
000120: 00 00 E1 EF F5 19 10 20 FC 20 0B 00 00 E1 EF F5 ....... . ......
000130: 19 72 20 EB 20 C9 00 50 00 46 14 A1 20 0B 00 00 .r . ..P.F.. ...
000140: E1 F1 0E 20 FC 20 0B 00 00 E1 EE 0B 00 00 6D 65 ... . ........me
000150: EE 20 EB 20 A1 20 0B 00 00 6D 65 EE F1 11 20 EB . . . ...me... .
000160: 20 0B 00 00 E3 EF 0B 00 00 63 B2 01 0B 00 00 E6 ........c......
000170: EF 19 FA 01 9F 20 1E 42 27 01 A0 20 1E 32 14 20 ..... .B'.. .2.
000180: 01 97 20 1E 32 14 00 43 00 50 14 A1 20 0B 00 00 .. .2..C.P.. ...
000190: 6D 65 EE EF 10 20 EB 20 7C 00 4D 49 44 C3 2C 0B me... . |.MID.,.
0001A0: 00 00 63 B1 2C 0B 00 00 63 B2 2C 0E 2C 0B 00 00 ..c.,...c.,.,...
0001B0: 79 B1 F4 0B 00 00 E9 F6 0B 00 00 64 F9 2C 40 03 y..........d.,@.
0001C0: 00 00 E1 28 0B 00 00 E9 29 00 3D 00 5A 14 A1 20 ...(....).=.Z..
0001D0: 0B 00 00 6D 65 EE EF 0F 20 EB 20 7C 00 4D 49 44 ...me... . |.MID
0001E0: C3 2C 0B 00 00 63 B1 2C 0B 00 00 63 B2 2C 0E 2C .,...c.,...c.,.,
0001F0: 0B 00 00 79 B1 F4 0B 00 00 E9 F6 0B 00 00 64 F9 ...y..........d.
Size : 512 (Real : 512)
000000: 2C 40 03 00 00 E1 00 1F 00 64 14 B2 20 0B 00 00 ,@.......d.. ...
000010: E1 F4 0F 20 A0 20 1E 6E 14 2C 1E 78 14 2C 1E 8C ... . .n.,.x.,..
000020: 14 2C 1E 96 14 00 37 00 6E 14 A1 20 0B 00 00 E9 .,....7.n.. ....
000030: EE 0E 20 EB 20 0B 00 00 E9 EF 0B 00 00 E9 F5 0F .. . ...........
000040: 01 A0 20 1E A0 14 20 01 97 20 0B 00 00 E9 EF 0B .. ... .. ......
000050: 00 00 6D 61 78 E9 01 A0 20 1E A0 14 00 37 00 78 ..max... ....7.x
000060: 14 A1 20 0B 00 00 E9 F1 0B 00 00 6D 61 78 E9 20 .. ........max.
000070: EB 20 0B 00 00 E9 EF 0B 00 00 E9 F4 0F 01 A0 20 . .............
000080: 1E A0 14 20 01 97 20 0B 00 00 E9 EF 0E 01 A0 20 ... .. ........
000090: 1E A0 14 00 06 00 82 14 CE 00 71 00 8C 14 A1 20 ..........q....
0000A0: 0D 00 00 78 B2 EE 0D 00 00 78 B1 20 EB 20 0D 00 ...x.....x. . ..
0000B0: 00 E9 EF 0D 00 00 E9 F5 0D 00 00 6D 61 78 E9 F7 ...........max..
0000C0: 10 01 0D 00 00 78 B2 EF 0D 00 00 78 B2 F5 0D 00 .....x.....x....
0000D0: 00 64 F8 01 A0 20 1E A0 14 20 01 97 20 0D 00 00 .d... ... .. ...
0000E0: 78 B2 EF 0D 00 00 78 B2 F4 0D 00 00 64 F8 01 0D x.....x.....d...
0000F0: 00 00 E9 EF 0D 00 00 E9 F4 0D 00 00 6D 61 78 E9 ............max.
000100: F6 11 01 CE 01 A0 20 1E A0 14 00 65 00 96 14 A1 ...... ....e....
000110: 20 0D 00 00 78 B2 F1 0D 00 00 78 B1 20 EB 20 0D ...x.....x. . .
000120: 00 00 78 B2 EF 0D 00 00 78 B2 F4 0D 00 00 64 F8 ..x.....x.....d.
000130: 01 0D 00 00 E9 EF 0D 00 00 E9 F4 0D 00 00 6D 61 ..............ma
000140: 78 E9 F6 11 20 01 97 20 0D 00 00 E9 EF 0D 00 00 x... .. ........
000150: E9 F5 0D 00 00 6D 61 78 E9 F7 10 01 0D 00 00 78 .....max.......x
000160: B2 EF 0D 00 00 78 B2 F5 0D 00 00 64 F8 01 CE 00 .....x.....d....
000170: 29 00 A0 14 A1 20 0B 00 00 6D 65 EE F1 11 20 EB ).... ...me... .
000180: 20 0B 00 00 E3 EF 0B 00 00 63 B3 01 9F 20 1E 42 ........c... .B
000190: 27 20 01 97 20 1E 1E 14 00 0A 00 AA 14 A0 20 1E ' .. ......... .
0001A0: 1E 14 00 20 00 B4 14 01 C0 2A 2A 2A 20 46 4C 41 ... .....*** FLA
0001B0: 53 48 49 4E 47 20 64 75 20 63 61 64 72 65 20 2A SHING du cadre *
0001C0: 2A 2A 00 07 00 10 27 01 C0 00 25 00 1A 27 01 C0 **....'...%..'..
0001D0: 2A 2A 2A 20 53 4F 55 53 20 50 52 4F 47 52 41 4D *** SOUS PROGRAM
0001E0: 4D 45 53 20 44 49 56 45 52 53 20 2A 2A 2A 00 07 MES DIVERS ***..
0001F0: 00 24 27 01 C0 00 20 00 2E 27 01 C0 2A 2A 2A 20 .$'... ..'..***
Size : 512 (Real : 512)
000000: 46 4C 41 53 48 49 4E 47 20 73 75 20 63 61 64 72 FLASHING su cadr
000010: 65 20 2A 2A 2A 00 07 00 38 27 01 C0 00 65 00 42 e ***...8'...e.B
000020: 27 CC 20 0F 2C 0B 00 00 E6 2C 19 14 2C 19 0F 01 '. .,....,..,...
000030: 0B 00 00 F4 EF 16 01 0B 00 00 64 EC EF 11 01 0B ..........d.....
000040: 00 00 64 E8 EF 11 01 9F 20 1E 6A 27 01 0B 00 00 ..d..... .j'....
000050: E3 EF 0B 00 00 63 B1 01 9F 20 1E 6A 27 01 0B 00 .....c... .j'...
000060: 00 E3 EF 0B 00 00 63 B2 01 0B 00 00 F4 EF 12 01 ......c.........
000070: 0B 00 00 64 EC EF 19 10 01 0B 00 00 64 E8 EF 19 ...d........d...
000080: 10 00 07 00 4C 27 01 C0 00 3C 00 56 27 01 C0 2A ....L'...<.V'..*
000090: 2A 2A 20 54 72 61 63 65 20 75 6E 20 63 61 64 72 ** Trace un cadr
0000A0: 65 20 49 4E 54 45 52 4E 45 20 61 20 6C 61 20 73 e INTERNE a la s
0000B0: 75 72 66 61 63 65 20 64 75 20 74 65 78 74 65 20 urface du texte
0000C0: 2A 2A 2A 20 00 07 00 60 27 01 C0 00 7D 00 6A 27 *** ...`'...}.j'
0000D0: 7C 00 43 41 C4 2C 28 0B 00 00 F8 F5 0F 29 F6 19 |.CA.,(......)..
0000E0: 10 F5 10 2C 28 28 19 1A F5 0B 00 00 F9 29 F6 19 ...,((.......)..
0000F0: 10 29 F4 28 19 10 F5 0B 00 00 64 E8 29 F4 0B 00 .).(......d.)...
000100: 00 64 E8 2C 28 28 0B 00 00 EC F4 0F 29 F6 19 10 .d.,((......)...
000110: 29 F4 10 2C 0B 00 00 64 E8 F4 28 0B 00 00 E8 F6 )..,...d..(.....
000120: 19 10 29 F4 28 19 10 F5 0B 00 00 64 E8 29 F4 10 ..).(......d.)..
000130: 2C 0B 00 00 E3 2C 0B 00 00 F4 2C 0B 00 00 64 EC ,....,....,...d.
000140: 2C 0B 00 00 64 E8 01 C9 00 07 00 74 27 01 C0 00 ,...d......t'...
000150: 3D 00 7E 27 01 C0 2A 2A 2A 20 54 72 61 63 65 20 =.~'..*** Trace
000160: 75 6E 20 63 61 64 72 65 20 45 58 54 45 52 49 45 un cadre EXTERIE
000170: 55 52 20 61 20 6C 61 20 73 75 72 66 61 63 65 20 UR a la surface
000180: 64 75 20 74 65 78 74 65 20 2A 2A 2A 00 07 00 88 du texte ***....
000190: 27 01 C0 00 9C 00 92 27 7C 00 43 41 C4 2C 28 0B '......'|.CA.,(.
0001A0: 00 00 F8 F5 0F 29 F6 19 10 F5 28 28 0B 00 00 F4 .....)....((....
0001B0: F5 11 29 F6 0B 00 00 64 EC 29 F5 10 2C 28 19 1A ..)....d.)..,(..
0001C0: F5 0B 00 00 F9 29 F6 19 10 F4 28 28 0B 00 00 F4 .....)....((....
0001D0: F5 11 29 F6 0B 00 00 64 E8 29 2C 0B 00 00 EC F6 ..)....d.),.....
0001E0: 19 10 F4 10 F6 28 28 0B 00 00 F4 F5 11 29 F6 0B .....((......)..
0001F0: 00 00 64 EC 29 F4 10 2C 28 0B 00 00 F4 F5 11 29 ..d.)..,(......)
Size : 512 (Real : 512)
000000: F6 28 0B 00 00 64 E8 F6 10 29 F4 0B 00 00 E8 F6 .(...d...)......
000010: 19 10 F4 10 2C 0B 00 00 E3 2C 0B 00 00 F4 2C 0B ....,....,....,.
000020: 00 00 64 EC 2C 0B 00 00 64 E8 01 C9 20 20 20 00 ..d.,...d... .
000030: 07 00 9C 27 01 C0 00 40 00 A6 27 01 C0 2A 2A 2A ...'...@..'..***
000040: 20 41 66 66 69 63 68 65 20 6D 65 73 73 61 67 65 Affiche message
000050: 20 43 4F 50 59 20 6F 75 20 49 4E 41 43 54 49 46 COPY ou INACTIF
000060: 20 6F 75 20 52 45 54 4F 55 52 4E 45 52 20 44 49 ou RETOURNER DI
000070: 53 43 20 2A 2A 2A 00 07 00 B0 27 01 C0 00 3B 00 SC ***....'...;.
000080: BA 27 03 00 00 C1 EF 22 20 52 45 54 4F 55 52 4E .'....." RETOURN
000090: 45 52 20 44 49 53 51 55 45 20 21 20 22 01 CC 20 ER DISQUE ! "..
0000A0: 0F 2C 19 C8 2C 19 14 2C 19 0F 01 9F 20 1E E2 27 .,..,..,.... ..'
0000B0: 01 83 20 1C 06 BB 01 C9 00 5F 00 C4 27 03 00 00 .. ......_..'...
0000C0: C1 EF 22 20 5B 44 5D 65 6D 6F 20 6F 75 20 5B 54 .." [D]emo ou [T
0000D0: 5D 65 78 74 65 3F 20 22 01 CC 20 0F 2C 19 C8 2C ]exte? ".. .,..,
0000E0: 19 14 2C 19 0F 01 9F 20 1E E2 27 01 7C 00 57 4B ..,.... ..'.|.WK
0000F0: 45 D9 2C 40 03 00 00 F2 01 A1 20 03 00 00 F2 F2 E.,@...... .....
000100: 22 44 22 FA 20 03 00 00 F2 F2 22 54 22 EB 20 1E "D". ....."T". .
000110: C4 27 20 01 97 20 C9 00 46 00 CE 27 03 00 00 C1 .' .. ..F..'....
000120: EF 22 20 52 55 42 52 49 51 55 45 20 49 4E 41 43 ." RUBRIQUE INAC
000130: 54 49 56 45 21 20 22 01 9F 20 1E E2 27 01 CC 20 TIVE! ".. ..'..
000140: 0F 2C 1A 2C 01 2C 19 3C 2C 19 0F 01 9E 20 0D 00 .,.,.,.<,.... ..
000150: 00 74 F0 EF 0F 20 EC 20 1A D0 07 01 B0 00 32 00 .t... . ......2.
000160: D8 27 03 00 00 C1 EF 22 20 22 F4 FF 03 28 19 F0 .'....." "...(..
000170: 29 F4 22 20 22 F4 FF 03 28 19 F1 29 F4 22 20 20 )." "...(..)."
000180: 5B 43 4F 50 59 5D 20 56 61 6C 69 64 65 20 22 00 [COPY] Valide ".
000190: B8 00 E2 27 9F 20 1E EC 27 01 7C 00 4D 49 44 C3 ...'. ..'.|.MID.
0001A0: 2C 0B 00 00 63 B3 2C 0B 00 00 63 B2 2C 0E 2C 19 ,...c.,...c.,.,.
0001B0: 17 2C 40 03 00 00 E1 01 0B 00 00 F8 EF 19 0B 01 .,@.............
0001C0: 0B 00 00 F9 EF 19 17 01 0B 00 00 EC EF FF 0E 28 ...............(
0001D0: 03 00 00 E1 29 01 0B 00 00 E8 EF 0F 01 0B 00 00 ....)...........
0001E0: E3 EF 0B 00 00 63 B1 01 0B 00 00 F4 EF 15 01 0B .....c..........
0001F0: 00 00 64 EC EF 10 01 0B 00 00 64 E8 EF 10 01 9F ..d.......d.....
Size : 512 (Real : 512)
000000: 20 1E 92 27 01 0B 00 00 E3 EF 0B 00 00 63 B2 01 ..'.........c..
000010: 0B 00 00 F4 EF 12 01 0B 00 00 64 EC EF 16 01 0B ..........d.....
000020: 00 00 64 E8 EF 16 01 03 00 00 E2 EF FF 16 28 FF ..d...........(.
000030: 0E 28 03 00 00 C1 28 0E 29 29 29 01 9F 20 1E 92 .(....(.))).. ..
000040: 27 01 A0 20 1E F6 27 00 57 00 EC 27 0B 00 00 72 '.. ..'.W..'...r
000050: F8 EF 0B 00 00 F8 01 0B 00 00 72 F9 EF 0B 00 00 ..........r.....
000060: F9 01 0B 00 00 72 EC EF 0B 00 00 EC 01 0B 00 00 .....r..........
000070: 72 E8 EF 0B 00 00 E8 01 0B 00 00 72 F4 EF 0B 00 r..........r....
000080: 00 F4 01 0B 00 00 72 64 EC EF 0B 00 00 64 EC 01 ......rd.....d..
000090: 0B 00 00 72 64 E8 EF 0B 00 00 64 E8 01 C9 00 57 ...rd.....d....W
0000A0: 00 F6 27 0B 00 00 F8 EF 0B 00 00 72 F8 01 0B 00 ..'........r....
0000B0: 00 F9 EF 0B 00 00 72 F9 01 0B 00 00 EC EF 0B 00 ......r.........
0000C0: 00 72 EC 01 0B 00 00 E8 EF 0B 00 00 72 E8 01 0B .r..........r...
0000D0: 00 00 F4 EF 0B 00 00 72 F4 01 0B 00 00 64 EC EF .......r.....d..
0000E0: 0B 00 00 72 64 EC 01 0B 00 00 64 E8 EF 0B 00 00 ...rd.....d.....
0000F0: 72 64 E8 01 C9 00 07 00 20 4E 01 C0 00 43 00 2A rd...... N...C.*
000100: 4E 01 C0 2A 2A 2A 20 42 72 61 6E 63 68 65 6D 65 N..*** Brancheme
000110: 6E 74 20 4C 45 43 54 45 55 52 34 20 65 74 20 72 nt LECTEUR4 et r
000120: 65 74 6F 75 72 20 64 65 62 75 74 20 65 6E 20 63 etour debut en c
000130: 61 73 20 64 27 65 72 72 65 75 72 20 2A 2A 2A 00 as d'erreur ***.
000140: 07 00 34 4E 01 C0 00 35 00 3E 4E 9F 20 1E 48 4E ..4N...5.>N. .HN
000150: 01 A1 20 0B 00 00 65 F2 EF 0F 20 EB 20 7C 00 57 .. ...e... . |.W
000160: 4B 45 D9 2C 0F 2C 0E 2C 0E 2C 19 12 2C 12 01 A0 KE.,.,.,.,..,...
000170: 20 1E 64 00 20 01 97 20 1E 64 00 00 3B 00 48 4E .d. .. .d..;.HN
000180: BE 20 1C 4D 9E 2C 0E 01 0B 00 00 65 F2 EF 0E 01 . .M.,.....e....
000190: 83 20 1F 00 00 40 1C 90 2C 40 03 00 00 E1 01 A1 . ...@..,@......
0001A0: 20 FF 12 28 1C 4D 9E 29 F2 0E 20 EB 20 0D 00 00 ..(.M.).. . ...
0001B0: 65 F2 EF 0F 01 C9 00 3F 00 52 4E 9F 20 1E 5C 4E e......?.RN. .\N
0001C0: 01 A1 20 03 00 00 E1 EF 22 46 22 EB 20 A8 22 72 .. ....."F". ."r
0001D0: 73 78 70 72 74 2E 63 6F 64 22 01 83 20 1C 00 80 sxprt.cod".. ...
0001E0: 01 C9 20 01 97 20 AD 20 10 01 83 20 1C AB 9C 01 .. .. . ... ....
0001F0: A0 20 1E 52 4E 00 2B 00 5C 4E AD 20 0E 01 A9 20 . .RN.+.\N. ...
Size : 512 (Real : 512)
000000: 33 20 3B 4C 6F 6E 67 75 65 75 72 20 49 44 0D 0A 3 ;Longueur ID..
000010: 20 3B 0D 0A 20 56 45 55 54 43 4D 31 20 4C 44 20 ;.. VEUTCM1 LD
000020: 41 2C 28 44 45 29 0D 0A 20 20 20 20 20 20 20 20 A,(DE)..
000030: 20 41 4E 44 20 25 30 30 31 30 30 31 30 30 20 3B AND %00100100 ;
000040: 49 73 6F 6C 65 72 20 43 52 2F 44 44 0D 0A 20 20 Isoler CR/DD..
000050: 20 20 20 20 20 20 20 43 50 20 25 30 30 31 30 30 CP %00100
000060: 31 30 30 20 20 3B 54 65 73 74 65 72 20 73 69 20 100 ;Tester si
000070: 43 52 2F 44 44 0D 0A 20 20 20 20 20 20 20 20 20 CR/DD..
000080: 4A 52 20 5A 2C 47 4F 52 45 4D 50 20 20 20 3B 4F JR Z,GOREMP ;O
000090: 75 69 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 ui.. ;..
0000A0: 20 49 4E 43 20 28 49 59 2B 30 29 20 20 20 20 3B INC (IY+0) ;
0000B0: 43 6F 6D 70 74 65 75 72 20 2B 20 31 0D 0A 20 20 Compteur + 1..
0000C0: 20 20 20 20 20 20 20 49 4E 43 20 44 45 20 20 20 INC DE
0000D0: 20 20 20 20 20 3B 4C 49 53 54 45 52 52 2B 31 0D ;LISTERR+1.
0000E0: 0A 20 20 20 20 20 20 20 20 20 49 4E 43 20 48 4C . INC HL
0000F0: 20 20 20 20 20 20 20 20 3B 49 44 53 20 4C 45 4E ;IDS LEN
000100: 20 73 75 69 76 61 6E 74 0D 0A 20 20 20 20 20 20 suivant..
000110: 20 20 20 49 4E 43 20 48 4C 0D 0A 20 20 20 20 20 INC HL..
000120: 20 20 20 20 49 4E 43 20 48 4C 0D 0A 20 20 20 20 INC HL..
000130: 20 20 20 20 20 49 4E 43 20 48 4C 0D 0A 20 20 20 INC HL..
000140: 20 20 20 20 20 20 44 4A 4E 5A 20 56 45 55 54 43 DJNZ VEUTC
000150: 4D 31 0D 0A 20 3B 0D 0A 20 3B 4E 65 20 64 65 76 M1.. ;.. ;Ne dev
000160: 72 61 69 74 20 6A 61 6D 61 69 73 20 73 6F 72 74 rait jamais sort
000170: 69 72 20 69 63 69 20 2E 0D 0A 20 3B 0D 0A 20 47 ir ici ... ;.. G
000180: 4F 52 45 4D 50 20 20 44 45 43 20 48 4C 0D 0A 20 OREMP DEC HL..
000190: 20 20 20 20 20 20 20 20 44 45 43 20 48 4C 0D 0A DEC HL..
0001A0: 20 20 20 20 20 20 20 20 20 44 45 43 20 48 4C 0D DEC HL.
0001B0: 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 54 . CALL T
0001C0: 52 41 4E 53 33 49 44 0D 0A 20 3B 0D 0A 20 20 20 RANS3ID.. ;..
0001D0: 20 20 20 20 20 20 4C 44 20 41 2C 23 34 36 20 20 LD A,#46
0001E0: 20 20 20 20 3B 4C 69 74 20 6A 75 73 74 65 20 6C ;Lit juste l
0001F0: 65 20 31 65 72 20 6F 63 74 65 74 20 64 75 20 73 e 1er octet du s
Size : 512 (Real : 512)
000000: 65 63 74 65 75 72 20 65 74 20 6C 65 0D 0A 20 20 ecteur et le..
000010: 20 20 20 20 20 20 20 4C 44 20 48 4C 2C 4C 49 54 LD HL,LIT
000020: 46 44 43 33 20 3B 72 61 6E 67 65 20 64 61 6E 73 FDC3 ;range dans
000030: 20 4F 43 52 45 4D 50 0D 0A 20 20 20 20 20 20 20 OCREMP..
000040: 20 20 43 41 4C 4C 20 53 45 54 43 4F 4D 32 0D 0A CALL SETCOM2..
000050: 20 20 20 20 20 20 20 20 20 4C 44 20 44 45 2C 31 LD DE,1
000060: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 48 4C .. LD HL
000070: 2C 4F 43 52 45 4D 50 0D 0A 20 20 20 20 20 20 20 ,OCREMP..
000080: 20 20 43 41 4C 4C 20 56 49 53 49 4E 53 54 20 20 CALL VISINST
000090: 3B 56 69 73 65 72 20 65 78 65 63 75 74 65 72 0D ;Viser executer.
0000A0: 0A 20 20 20 20 20 20 20 20 20 53 43 46 0D 0A 20 . SCF..
0000B0: 20 20 20 20 20 20 20 20 52 45 54 0D 0A 20 3B 0D RET.. ;.
0000C0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
0000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000E0: 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ---------------
0000F0: 0D 0A 20 0D 0A 20 20 20 20 20 53 6F 72 74 69 65 .. .. Sortie
000100: 20 64 65 20 74 72 61 69 74 65 6D 65 6E 74 20 6E de traitement n
000110: 6F 72 6D 61 6C 65 20 6F 75 20 43 52 2F 44 44 20 ormale ou CR/DD
000120: 20 2E 20 20 4F 6E 20 76 7B 72 69 66 69 65 20 71 . On v{rifie q
000130: 75 65 20 4C 49 44 4D 41 58 20 6E 27 65 73 74 20 ue LIDMAX n'est
000140: 70 61 73 0D 0A 20 70 6C 75 73 20 67 72 61 6E 64 pas.. plus grand
000150: 20 71 75 65 20 4C 4D 41 58 20 2E 20 53 69 20 63 que LMAX . Si c
000160: 27 65 73 74 20 20 6C 65 20 20 63 61 73 20 20 63 'est le cas c
000170: 27 65 73 74 20 66 69 6E 69 20 73 69 6E 6F 6E 20 'est fini sinon
000180: 69 6C 20 79 2D 61 20 64 65 73 20 73 65 63 74 65 il y-a des secte
000190: 75 72 73 0D 0A 20 7B 63 72 61 73 7B 73 20 65 74 urs.. {cras{s et
0001A0: 20 6F 6E 20 64 6F 69 74 20 6C 65 73 20 74 72 61 on doit les tra
0001B0: 69 74 65 72 20 2E 0D 0A 20 0D 0A 20 20 20 20 20 iter ... ..
0001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001D0: 20 20 20 20 20 20 20 20 20 20 20 2D 2D 2D 2D 2D -----
0001E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 3B 0D 0A ----------.. ;..
0001F0: 20 45 58 49 54 47 41 50 20 4C 44 20 41 2C 28 4C EXITGAP LD A,(L
Size : 512 (Real : 512)
000000: 49 44 4D 41 58 29 20 3B 53 69 20 3E 20 49 44 20 IDMAX) ;Si > ID
000010: 4F 4B 20 65 73 74 20 3E 20 71 75 65 20 74 61 69 OK est > que tai
000020: 6C 6C 65 20 66 6F 72 6D 61 74 0D 0A 20 20 20 20 lle format..
000030: 20 20 20 20 20 4C 44 20 42 2C 41 20 20 20 20 20 LD B,A
000040: 20 20 20 3B 6F 6E 20 61 20 64 65 73 20 65 63 72 ;on a des ecr
000050: 61 73 65 73 20 61 20 63 6F 75 70 20 73 75 72 0D ases a coup sur.
000060: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 41 2C 28 . LD A,(
000070: 4C 45 4E 53 45 43 29 0D 0A 20 20 20 20 20 20 20 LENSEC)..
000080: 20 20 43 50 20 42 0D 0A 20 20 20 20 20 20 20 20 CP B..
000090: 20 4A 52 20 4E 43 2C 45 58 49 47 31 0D 0A 20 3B JR NC,EXIG1.. ;
0000A0: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 41 2C .. LD A,
0000B0: 42 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 B.. LD (
0000C0: 46 41 55 58 4C 45 4E 29 2C 41 0D 0A 20 20 20 20 FAUXLEN),A..
0000D0: 20 20 20 20 20 43 41 4C 4C 20 53 45 54 45 43 52 CALL SETECR
0000E0: 41 0D 0A 20 20 20 20 20 20 20 20 20 4A 50 20 45 A.. JP E
0000F0: 43 52 41 53 45 52 0D 0A 20 3B 20 20 20 20 20 20 CRASER.. ;
000100: 20 20 0D 0A 20 45 58 49 47 31 20 20 20 4C 44 20 .. EXIG1 LD
000110: 48 4C 2C 49 44 49 4E 44 52 41 20 20 20 3B 56 72 HL,IDINDRA ;Vr
000120: 61 69 6D 65 6E 74 20 66 69 6E 69 20 2C 20 72 65 aiment fini , re
000130: 63 6F 70 69 65 72 20 6C 65 73 20 49 44 53 20 6C copier les IDS l
000140: 75 73 20 64 61 6E 73 0D 0A 20 20 20 20 20 20 20 us dans..
000150: 20 20 4C 44 20 44 45 2C 49 44 4F 55 54 44 52 41 LD DE,IDOUTDRA
000160: 20 20 3B 6C 61 20 7A 6F 6E 65 20 64 65 73 20 49 ;la zone des I
000170: 44 53 20 61 20 65 63 72 69 72 65 0D 0A 20 20 20 DS a ecrire..
000180: 20 20 20 20 20 20 4C 44 20 42 43 2C 32 35 35 0D LD BC,255.
000190: 0A 20 20 20 20 20 20 20 20 20 4C 44 49 52 0D 0A . LDIR..
0001A0: 20 20 20 20 20 20 20 20 20 53 43 46 0D 0A 20 20 SCF..
0001B0: 20 20 20 20 20 20 20 52 45 54 0D 0A 20 3B 0D 0A RET.. ;..
0001C0: 20 52 41 5A 49 44 53 20 20 4C 44 20 42 2C 32 35 RAZIDS LD B,25
0001D0: 35 20 20 20 20 20 20 20 20 3B 45 66 66 61 63 65 5 ;Efface
0001E0: 72 20 6C 61 20 73 65 72 69 65 20 64 65 73 20 49 r la serie des I
0001F0: 44 53 20 61 20 6C 69 72 65 0D 0A 20 20 20 20 20 DS a lire..
Size : 512 (Real : 512)
000000: 20 20 20 20 4C 44 20 48 4C 2C 49 44 49 4E 44 52 LD HL,IDINDR
000010: 41 0D 0A 20 42 43 4C 52 49 44 53 20 4C 44 20 28 A.. BCLRIDS LD (
000020: 48 4C 29 2C 23 46 46 0D 0A 20 20 20 20 20 20 20 HL),#FF..
000030: 20 20 49 4E 43 20 48 4C 0D 0A 20 20 20 20 20 20 INC HL..
000040: 20 20 20 44 4A 4E 5A 20 42 43 4C 52 49 44 53 0D DJNZ BCLRIDS.
000050: 0A 20 20 20 20 20 20 20 20 20 52 45 54 0D 0A 20 . RET..
000060: 3B 0D 0A 20 53 45 54 4E 4F 47 41 50 20 4C 44 20 ;.. SETNOGAP LD
000070: 48 4C 2C 46 4C 41 47 46 4E 43 20 20 3B 53 69 67 HL,FLAGFNC ;Sig
000080: 6E 61 6C 65 72 20 47 41 50 20 3C 3E 20 23 34 45 naler GAP <> #4E
000090: 0D 0A 20 20 20 20 20 20 20 20 20 53 45 54 20 31 .. SET 1
0000A0: 2C 28 48 4C 29 0D 0A 20 20 20 20 20 20 20 20 20 ,(HL)..
0000B0: 4C 44 20 48 4C 2C 54 42 41 44 47 41 50 0D 0A 20 LD HL,TBADGAP..
0000C0: 20 20 20 20 20 20 20 20 43 41 4C 4C 20 50 52 54 CALL PRT
0000D0: 0D 0A 20 20 20 20 20 20 20 20 20 52 45 54 0D 0A .. RET..
0000E0: 20 3B 0D 0A 20 53 45 54 42 41 44 4C 45 4E 20 4C ;.. SETBADLEN L
0000F0: 44 20 48 4C 2C 54 47 41 50 54 4C 20 3B 47 41 50 D HL,TGAPTL ;GAP
000100: 20 74 72 6F 70 20 6C 6F 6E 67 20 2E 20 4D 61 72 trop long . Mar
000110: 71 75 65 72 20 6C 27 65 72 72 65 75 72 20 65 74 quer l'erreur et
000120: 20 66 69 78 65 72 0D 0A 20 20 20 20 20 20 20 20 fixer..
000130: 20 43 41 4C 4C 20 50 52 54 20 20 20 20 20 20 20 CALL PRT
000140: 3B 70 72 6F 76 69 73 6F 69 72 65 6D 65 6E 74 20 ;provisoirement
000150: 61 20 23 46 46 0D 0A 20 20 20 20 20 20 20 20 20 a #FF..
000160: 4C 44 20 48 4C 2C 46 4C 41 47 46 4E 43 0D 0A 20 LD HL,FLAGFNC..
000170: 20 20 20 20 20 20 20 20 53 45 54 20 32 2C 28 48 SET 2,(H
000180: 4C 29 0D 0A 20 53 45 54 42 41 44 32 20 4C 44 20 L).. SETBAD2 LD
000190: 41 2C 23 46 46 0D 0A 20 20 20 20 20 20 20 20 20 A,#FF..
0001A0: 4C 44 20 28 47 41 50 46 4F 52 4D 29 2C 41 0D 0A LD (GAPFORM),A..
0001B0: 20 20 20 20 20 20 20 20 20 58 4F 52 20 41 0D 0A XOR A..
0001C0: 20 20 20 20 20 20 20 20 20 52 45 54 0D 0A 20 3B RET.. ;
0001D0: 0D 0A 20 53 45 54 45 43 52 41 20 4C 44 20 48 4C .. SETECRA LD HL
0001E0: 2C 46 4C 41 47 46 4E 43 20 3B 4D 61 72 71 75 65 ,FLAGFNC ;Marque
0001F0: 72 20 70 72 65 73 65 6E 63 65 20 63 65 72 74 61 r presence certa
Size : 512 (Real : 512)
000000: 69 6E 65 20 64 65 20 73 65 63 74 65 75 72 73 20 ine de secteurs
000010: 65 63 72 61 73 65 73 0D 0A 20 20 20 20 20 20 20 ecrases..
000020: 20 20 53 45 54 20 34 2C 28 48 4C 29 0D 0A 20 20 SET 4,(HL)..
000030: 20 20 20 20 20 20 20 4C 44 20 48 4C 2C 54 53 45 LD HL,TSE
000040: 43 45 43 52 0D 0A 20 20 20 20 20 20 20 20 20 4A CECR.. J
000050: 50 20 50 52 54 0D 0A 20 3B 0D 0A 20 49 4E 43 4C P PRT.. ;.. INCL
000060: 4F 4E 47 20 4C 44 20 48 4C 2C 28 4C 4F 4E 47 53 ONG LD HL,(LONGS
000070: 45 43 29 20 3B 49 6E 63 72 65 6D 65 6E 74 65 72 EC) ;Incrementer
000080: 20 64 27 75 6E 65 20 6C 6F 6E 67 75 65 75 72 20 d'une longueur
000090: 64 65 20 73 65 63 74 65 75 72 0D 0A 20 20 20 20 de secteur..
0000A0: 20 20 20 20 20 41 44 44 20 48 4C 2C 48 4C 0D 0A ADD HL,HL..
0000B0: 20 20 20 20 20 20 20 20 20 4C 44 20 41 2C 28 51 LD A,(Q
0000C0: 55 41 54 52 49 44 2B 33 29 0D 0A 20 20 20 20 20 UATRID+3)..
0000D0: 20 20 20 20 49 4E 43 20 41 0D 0A 20 3B 0D 0A 20 INC A.. ;..
0000E0: 52 41 4E 47 4C 4F 4E 20 4C 44 20 28 4C 4F 4E 47 RANGLON LD (LONG
0000F0: 53 45 43 29 2C 48 4C 20 20 3B 65 74 20 72 61 6E SEC),HL ;et ran
000100: 67 65 72 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 ger.. LD
000110: 20 28 51 55 41 54 52 49 44 2B 33 29 2C 41 0D 0A (QUATRID+3),A..
000120: 20 20 20 20 20 20 20 20 20 4C 44 20 28 4C 45 4E LD (LEN
000130: 53 45 43 29 2C 41 0D 0A 20 20 20 20 20 20 20 20 SEC),A..
000140: 20 52 45 54 0D 0A 20 3B 0D 0A 20 41 44 44 4C 4F RET.. ;.. ADDLO
000150: 4E 20 20 4C 44 20 48 4C 2C 31 32 38 20 20 20 20 N LD HL,128
000160: 20 20 3B 43 61 6C 63 75 6C 65 72 20 6C 6F 6E 67 ;Calculer long
000170: 75 65 75 72 20 65 6E 20 6F 63 74 65 74 73 20 64 ueur en octets d
000180: 27 61 70 72 65 73 20 4C 45 4E 20 66 6F 72 6D 61 'apres LEN forma
000190: 74 0D 0A 20 41 44 44 4C 4F 4E 31 20 4F 52 20 41 t.. ADDLON1 OR A
0001A0: 0D 0A 20 52 45 41 44 44 20 20 20 4A 52 20 5A 2C .. READD JR Z,
0001B0: 41 44 44 46 49 4E 0D 0A 20 20 20 20 20 20 20 20 ADDFIN..
0001C0: 20 41 44 44 20 48 4C 2C 48 4C 0D 0A 20 20 20 20 ADD HL,HL..
0001D0: 20 20 20 20 20 44 45 43 20 41 0D 0A 20 20 20 20 DEC A..
0001E0: 20 20 20 20 20 4A 52 20 52 45 41 44 44 0D 0A 20 JR READD..
0001F0: 41 44 44 46 49 4E 20 20 4C 44 20 28 4C 4F 4E 47 ADDFIN LD (LONG
Size : 512 (Real : 512)
000000: 53 45 43 29 2C 48 4C 0D 0A 20 20 20 20 20 20 20 SEC),HL..
000010: 20 20 52 45 54 0D 0A 20 3B 0D 0A 20 46 4C 45 4E RET.. ;.. FLEN
000020: 4C 4F 4E 20 58 4F 52 20 41 20 20 20 20 20 20 20 LON XOR A
000030: 20 20 20 3B 43 61 6C 63 75 6C 65 72 20 4C 45 4E ;Calculer LEN
000040: 20 49 44 20 64 27 61 70 72 65 73 0D 0A 20 20 20 ID d'apres..
000050: 20 20 20 20 20 20 4C 44 20 48 4C 2C 31 32 38 20 LD HL,128
000060: 20 20 20 20 20 3B 6C 6F 6E 67 75 65 75 72 20 73 ;longueur s
000070: 65 63 74 65 75 72 20 64 6F 6E 6E 65 65 20 65 6E ecteur donnee en
000080: 20 6F 63 74 65 74 73 20 0D 0A 20 20 20 20 20 20 octets ..
000090: 20 20 20 4C 44 20 44 45 2C 28 4C 4F 4E 47 53 45 LD DE,(LONGSE
0000A0: 43 29 0D 0A 20 46 56 4C 45 4E 20 20 20 50 55 53 C).. FVLEN PUS
0000B0: 48 20 48 4C 0D 0A 20 20 20 20 20 20 20 20 20 41 H HL.. A
0000C0: 4E 44 20 41 0D 0A 20 20 20 20 20 20 20 20 20 53 ND A.. S
0000D0: 42 43 20 48 4C 2C 44 45 0D 0A 20 20 20 20 20 20 BC HL,DE..
0000E0: 20 20 20 50 4F 50 20 48 4C 0D 0A 20 20 20 20 20 POP HL..
0000F0: 20 20 20 20 4A 52 20 5A 2C 53 45 54 56 4C 45 4E JR Z,SETVLEN
000100: 0D 0A 20 20 20 20 20 20 20 20 20 49 4E 43 20 41 .. INC A
000110: 0D 0A 20 20 20 20 20 20 20 20 20 41 44 44 20 48 .. ADD H
000120: 4C 2C 48 4C 0D 0A 20 20 20 20 20 20 20 20 20 4A L,HL.. J
000130: 52 20 46 56 4C 45 4E 0D 0A 20 3B 0D 0A 20 53 45 R FVLEN.. ;.. SE
000140: 54 56 4C 45 4E 20 4C 44 20 28 4C 45 4E 53 45 43 TVLEN LD (LENSEC
000150: 29 2C 41 0D 0A 20 20 20 20 20 20 20 20 20 52 45 ),A.. RE
000160: 54 0D 0A 20 3B 0D 0A 20 55 4E 53 45 55 4C 20 20 T.. ;.. UNSEUL
000170: 4C 44 20 41 2C 28 4E 42 53 45 43 29 20 20 20 20 LD A,(NBSEC)
000180: 3B 54 65 73 74 65 72 20 73 69 20 75 6E 20 73 65 ;Tester si un se
000190: 75 6C 20 73 65 63 74 65 75 72 20 73 75 72 20 6C ul secteur sur l
0001A0: 61 20 70 69 73 74 65 0D 0A 20 20 20 20 20 20 20 a piste..
0001B0: 20 20 44 45 43 20 41 0D 0A 20 20 20 20 20 20 20 DEC A..
0001C0: 20 20 52 45 54 20 4E 5A 20 20 20 20 20 20 20 20 RET NZ
0001D0: 20 20 3B 43 41 52 52 59 20 6E 6F 6E 20 6D 69 73 ;CARRY non mis
0001E0: 20 73 69 20 70 6C 75 73 69 65 75 72 73 0D 0A 20 si plusieurs..
0001F0: 20 20 20 20 20 20 20 20 44 45 43 20 41 0D 0A 20 DEC A..
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 4C 44 20 28 47 41 50 46 LD (GAPF
000010: 4F 52 4D 29 2C 41 20 20 3B 53 69 6E 6F 6E 20 6C ORM),A ;Sinon l
000020: 6F 6E 67 75 65 75 72 20 47 41 50 3D 23 46 46 20 ongueur GAP=#FF
000030: 65 74 20 6D 69 73 65 20 64 75 20 43 41 52 52 59 et mise du CARRY
000040: 0D 0A 20 20 20 20 20 20 20 20 20 53 43 46 0D 0A .. SCF..
000050: 20 20 20 20 20 20 20 20 20 52 45 54 0D 0A 20 3B RET.. ;
000060: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000080: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000090: 2D 2D 0D 0A 20 0D 0A 20 20 20 20 20 43 69 2D 64 --.. .. Ci-d
0000A0: 65 73 73 6F 75 73 20 6C 61 20 20 72 6F 75 74 69 essous la routi
0000B0: 6E 65 20 20 64 7B 74 65 72 6D 69 6E 61 6E 74 20 ne d{terminant
0000C0: 20 6C 61 20 20 74 61 69 6C 6C 65 20 20 6D 61 78 la taille max
0000D0: 69 6D 75 6D 20 20 64 65 20 20 73 65 63 74 65 75 imum de secteu
0000E0: 72 73 20 65 6E 0D 0A 20 66 6F 6E 63 74 69 6F 6E rs en.. fonction
0000F0: 20 64 65 20 6C 65 75 72 20 6E 6F 6D 62 72 65 20 de leur nombre
000100: 2E 20 4C 65 20 47 41 50 20 65 73 74 20 20 73 75 . Le GAP est su
000110: 70 70 6F 73 7B 20 20 61 75 20 6D 69 6E 69 6D 75 ppos{ au minimu
000120: 6D 20 64 65 20 73 61 20 6C 6F 6E 67 75 65 75 72 m de sa longueur
000130: 20 2C 20 64 65 0D 0A 20 74 6F 75 74 65 20 6D 61 , de.. toute ma
000140: 6E 69 7D 72 65 20 69 6C 20 65 73 74 20 72 65 63 ni}re il est rec
000150: 61 6C 63 75 6C 7B 20 70 61 72 20 6C 61 20 73 75 alcul{ par la su
000160: 69 74 65 20 65 6E 20 63 61 73 20 64 65 20 70 72 ite en cas de pr
000170: 6F 62 6C 7D 6D 65 20 2E 0D 0A 20 0D 0A 20 20 20 obl}me ... ..
000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000190: 20 20 20 20 20 20 20 20 20 20 20 2D 2D 2D 2D 2D -----
0001A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 -------------..
0001B0: 3B 0D 0A 20 4D 41 58 49 4C 45 4E 20 4C 44 20 48 ;.. MAXILEN LD H
0001C0: 4C 2C 54 46 47 41 50 31 20 3B 54 72 6F 75 76 65 L,TFGAP1 ;Trouve
0001D0: 72 20 6C 61 20 74 61 69 6C 6C 65 20 6D 61 78 69 r la taille maxi
0001E0: 20 70 6F 73 73 69 62 6C 65 20 64 27 61 70 72 65 possible d'apre
0001F0: 73 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C s.. CALL
Size : 512 (Real : 512)
000000: 20 50 52 54 20 20 20 20 3B 6C 65 20 6E 6F 6D 62 PRT ;le nomb
000010: 72 65 20 64 65 20 73 65 63 74 65 75 72 73 0D 0A re de secteurs..
000020: 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 ;.. LD
000030: 41 2C 28 4E 42 53 45 43 29 0D 0A 20 20 20 20 20 A,(NBSEC)..
000040: 20 20 20 20 43 50 20 32 30 20 20 20 20 20 20 20 CP 20
000050: 3B 53 69 20 6E 6F 6D 62 72 65 20 73 65 63 74 65 ;Si nombre secte
000060: 75 72 20 70 6C 75 73 20 67 72 61 6E 64 20 71 75 ur plus grand qu
000070: 65 20 32 30 20 6C 61 20 74 61 69 6C 6C 65 0D 0A e 20 la taille..
000080: 20 20 20 20 20 20 20 20 20 4C 44 20 43 2C 30 20 LD C,0
000090: 20 20 20 20 20 3B 65 73 74 20 6F 62 6C 69 67 61 ;est obliga
0000A0: 74 6F 69 72 65 6D 65 6E 74 20 30 0D 0A 20 20 20 toirement 0..
0000B0: 20 20 20 20 20 20 52 45 54 20 4E 43 0D 0A 20 3B RET NC.. ;
0000C0: 0D 0A 20 20 20 20 20 20 20 20 20 49 4E 43 20 43 .. INC C
0000D0: 0D 0A 20 20 20 20 20 20 20 20 20 43 50 20 31 31 .. CP 11
0000E0: 20 20 20 20 20 20 20 3B 50 6C 75 73 20 64 65 20 ;Plus de
0000F0: 31 30 20 73 65 63 74 65 75 72 73 20 3D 20 74 61 10 secteurs = ta
000100: 69 6C 6C 65 20 31 0D 0A 20 20 20 20 20 20 20 20 ille 1..
000110: 20 52 45 54 20 4E 43 0D 0A 20 3B 0D 0A 20 20 20 RET NC.. ;..
000120: 20 20 20 20 20 20 49 4E 43 20 43 0D 0A 20 20 20 INC C..
000130: 20 20 20 20 20 20 43 50 20 36 20 20 20 20 20 20 CP 6
000140: 20 20 3B 50 6C 75 73 20 64 65 20 35 20 73 65 63 ;Plus de 5 sec
000150: 74 65 75 72 73 20 6E 65 20 70 65 75 74 20 65 74 teurs ne peut et
000160: 72 65 20 74 61 69 6C 6C 65 20 33 0D 0A 20 20 20 re taille 3..
000170: 20 20 20 20 20 20 52 45 54 20 4E 43 20 20 20 20 RET NC
000180: 20 20 3B 63 27 65 73 74 20 64 6F 6E 63 20 32 0D ;c'est donc 2.
000190: 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 49 4E . ;.. IN
0001A0: 43 20 43 0D 0A 20 20 20 20 20 20 20 20 20 43 50 C C.. CP
0001B0: 20 33 20 20 20 20 20 20 20 20 3B 50 6C 75 73 20 3 ;Plus
0001C0: 64 65 20 33 20 73 65 63 74 65 75 72 73 20 63 27 de 3 secteurs c'
0001D0: 65 73 74 20 74 61 69 6C 6C 65 20 33 0D 0A 20 20 est taille 3..
0001E0: 20 20 20 20 20 20 20 52 45 54 20 4E 43 0D 0A 20 RET NC..
0001F0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 49 4E 43 20 ;.. INC
Size : 512 (Real : 512)
000000: 43 0D 0A 20 20 20 20 20 20 20 20 20 43 50 20 32 C.. CP 2
000010: 20 20 20 20 20 20 20 20 3B 50 6C 75 73 20 64 65 ;Plus de
000020: 20 31 20 73 65 63 74 65 75 72 20 6E 65 20 70 65 1 secteur ne pe
000030: 75 74 20 65 74 72 65 20 35 20 64 6F 6E 63 20 63 ut etre 5 donc c
000040: 27 65 73 74 20 34 0D 0A 20 20 20 20 20 20 20 20 'est 4..
000050: 20 52 45 54 20 4E 43 0D 0A 20 3B 0D 0A 20 20 20 RET NC.. ;..
000060: 20 20 20 20 20 20 49 4E 43 20 43 20 20 20 20 20 INC C
000070: 20 20 3B 55 6E 65 20 74 61 69 6C 6C 65 20 35 20 ;Une taille 5
000080: 73 69 6E 6F 6E 20 72 69 65 6E 20 21 0D 0A 20 20 sinon rien !..
000090: 20 20 20 20 20 20 20 52 45 54 0D 0A 20 3B 0D 0A RET.. ;..
0000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000B0: 20 20 20 20 20 20 20 20 20 20 20 20 2D 20 56 41 - VA
0000C0: 52 49 41 42 4C 45 53 20 45 54 20 54 45 58 54 45 RIABLES ET TEXTE
0000D0: 53 20 2D 0D 0A 20 3B 0D 0A 20 52 45 54 45 4E 54 S -.. ;.. RETENT
0000E0: 20 20 44 42 20 31 30 0D 0A 20 46 41 55 58 4C 45 DB 10.. FAUXLE
0000F0: 4E 20 44 42 20 30 0D 0A 20 46 41 55 58 47 41 50 N DB 0.. FAUXGAP
000100: 20 44 42 20 30 0D 0A 20 46 41 55 58 4C 47 46 20 DB 0.. FAUXLGF
000110: 44 42 20 30 0D 0A 20 4C 4D 49 4E 20 20 20 20 44 DB 0.. LMIN D
000120: 42 20 30 0D 0A 20 4C 4D 41 58 20 20 20 20 44 42 B 0.. LMAX DB
000130: 20 30 0D 0A 20 4C 49 44 4D 41 58 20 20 44 42 20 0.. LIDMAX DB
000140: 30 0D 0A 20 4C 45 4E 43 52 44 44 20 44 42 20 30 0.. LENCRDD DB 0
000150: 0D 0A 20 46 4C 41 47 4D 41 4D 20 44 42 20 30 0D .. FLAGMAM DB 0.
000160: 0A 20 46 4C 41 47 43 52 44 44 20 44 42 20 30 0D . FLAGCRDD DB 0.
000170: 0A 20 46 4C 47 44 49 46 49 44 20 44 42 20 30 0D . FLGDIFID DB 0.
000180: 0A 20 3B 0D 0A 20 54 4C 49 54 49 44 53 20 44 42 . ;.. TLITIDS DB
000190: 20 33 31 2C 32 2C 32 32 2C 32 34 2C 22 20 4C 45 31,2,22,24," LE
0001A0: 43 54 55 52 45 20 20 44 45 53 20 49 44 53 20 22 CTURE DES IDS "
0001B0: 2C 32 34 2C 31 38 2C 33 31 2C 32 2C 32 33 2C 31 ,24,18,31,2,23,1
0001C0: 38 2C 23 38 30 0D 0A 20 54 46 47 41 50 20 20 20 8,#80.. TFGAP
0001D0: 44 42 20 33 31 2C 32 2C 32 32 2C 32 34 2C 22 20 DB 31,2,22,24,"
0001E0: 52 45 43 48 45 52 43 48 45 20 44 55 20 47 41 50 RECHERCHE DU GAP
0001F0: 20 22 2C 32 34 2C 23 38 30 0D 0A 20 54 42 41 44 ",24,#80.. TBAD
Size : 512 (Real : 512)
000000: 47 41 50 20 44 42 20 33 31 2C 32 31 2C 32 33 2C GAP DB 31,21,23,
000010: 32 34 2C 22 20 47 41 50 20 4E 4F 4E 20 43 4F 4E 24," GAP NON CON
000020: 46 4F 52 4D 45 20 22 2C 32 34 2C 23 38 30 0D 0A FORME ",24,#80..
000030: 20 54 47 41 50 54 4C 20 20 44 42 20 33 31 2C 34 TGAPTL DB 31,4
000040: 30 2C 32 33 2C 32 34 2C 22 20 47 41 50 20 20 54 0,23,24," GAP T
000050: 52 4F 50 20 20 47 52 41 4E 44 20 22 2C 32 34 2C ROP GRAND ",24,
000060: 23 38 30 0D 0A 20 54 43 4F 49 4E 43 45 20 44 42 #80.. TCOINCE DB
000070: 20 33 31 2C 35 39 2C 32 33 2C 32 34 2C 22 20 4A 31,59,23,24," J
000080: 45 20 43 4F 49 4E 43 45 20 21 21 21 21 21 21 20 E COINCE !!!!!!
000090: 22 2C 32 34 2C 23 38 30 0D 0A 20 3B 0D 0A 20 54 ",24,#80.. ;.. T
0000A0: 5A 4D 41 4D 20 20 20 44 42 20 33 31 2C 32 31 2C ZMAM DB 31,21,
0000B0: 32 34 2C 32 34 2C 22 20 50 52 45 4D 49 45 52 20 24,24," PREMIER
0000C0: 45 4E 20 4D 41 2F 44 41 20 22 2C 32 34 2C 23 38 EN MA/DA ",24,#8
0000D0: 30 0D 0A 20 54 46 47 41 50 31 20 20 44 42 20 33 0.. TFGAP1 DB 3
0000E0: 31 2C 34 30 2C 32 34 2C 32 34 2C 22 20 52 45 43 1,40,24,24," REC
0000F0: 48 45 52 43 48 45 20 20 43 52 2F 44 44 20 22 2C HERCHE CR/DD ",
000100: 32 34 2C 23 38 30 0D 0A 20 54 46 47 41 50 31 41 24,#80.. TFGAP1A
000110: 20 44 42 20 33 31 2C 35 39 2C 32 34 2C 32 34 2C DB 31,59,24,24,
000120: 22 20 41 4E 41 4C 59 53 45 20 44 55 20 43 52 2F " ANALYSE DU CR/
000130: 44 44 20 22 2C 32 34 2C 23 38 30 0D 0A 20 54 46 DD ",24,#80.. TF
000140: 47 41 50 32 41 20 44 42 20 33 31 2C 34 30 2C 32 GAP2A DB 31,40,2
000150: 34 2C 32 34 2C 22 20 43 52 2F 44 44 20 3D 20 4C 4,24," CR/DD = L
000160: 45 4E 20 4D 41 58 49 20 22 2C 32 34 2C 23 38 30 EN MAXI ",24,#80
000170: 0D 0A 20 54 46 47 41 50 32 20 20 44 42 20 33 31 .. TFGAP2 DB 31
000180: 2C 35 39 2C 32 34 2C 32 34 2C 22 20 43 52 2F 44 ,59,24,24," CR/D
000190: 44 20 50 41 53 20 54 52 4F 55 56 45 20 22 2C 32 D PAS TROUVE ",2
0001A0: 34 2C 23 38 30 0D 0A 20 54 46 52 45 4D 50 20 20 4,#80.. TFREMP
0001B0: 44 42 20 33 31 2C 35 39 2C 32 34 2C 32 34 2C 22 DB 31,59,24,24,"
0001C0: 20 4F 43 54 45 54 20 46 49 4C 2E 54 52 4F 55 56 OCTET FIL.TROUV
0001D0: 45 20 22 2C 32 34 2C 23 38 30 0D 0A 20 54 46 4F E ",24,#80.. TFO
0001E0: 49 52 45 45 20 44 42 20 33 31 2C 35 39 2C 32 34 IREE DB 31,59,24
0001F0: 2C 32 34 2C 22 20 50 49 53 54 45 20 45 4E 44 4F ,24," PISTE ENDO
Size : 512 (Real : 512)
000000: 4D 4D 41 47 45 45 20 22 2C 32 34 2C 23 38 30 0D MMAGEE ",24,#80.
000010: 0A 20 54 47 41 50 50 49 46 20 44 42 20 33 31 2C . TGAPPIF DB 31,
000020: 35 39 2C 32 34 2C 32 34 2C 22 20 50 49 46 4F 4D 59,24,24," PIFOM
000030: 45 54 52 45 20 41 43 54 49 56 45 20 22 2C 32 34 ETRE ACTIVE ",24
000040: 2C 23 38 30 0D 0A 20 54 4E 4F 46 4F 52 4D 20 44 ,#80.. TNOFORM D
000050: 42 20 33 31 2C 32 2C 32 33 0D 0A 20 54 4E 4F 46 B 31,2,23.. TNOF
000060: 4F 52 4D 49 20 44 42 20 22 20 50 41 53 20 44 45 ORMI DB " PAS DE
000070: 20 46 4F 52 4D 41 54 41 47 45 22 2C 23 38 30 0D FORMATAGE",#80.
000080: 0A 20 3B 0D 0A 20 54 53 45 43 45 43 52 20 44 42 . ;.. TSECECR DB
000090: 20 33 31 2C 32 31 2C 32 33 2C 32 34 2C 22 20 47 31,21,23,24," G
0000A0: 41 50 20 52 45 45 4C 20 23 34 45 20 4D 41 49 53 AP REEL #4E MAIS
0000B0: 20 53 45 43 54 45 55 52 53 20 45 43 52 41 53 45 SECTEURS ECRASE
0000C0: 53 21 20 22 2C 32 34 2C 23 38 30 0D 0A 20 54 45 S! ",24,#80.. TE
0000D0: 43 52 50 4F 53 53 20 44 42 20 33 31 2C 32 31 2C CRPOSS DB 31,21,
0000E0: 32 33 2C 32 34 2C 22 20 50 52 45 53 45 4E 43 45 23,24," PRESENCE
0000F0: 20 53 45 43 54 45 55 52 53 20 45 43 52 41 53 45 SECTEURS ECRASE
000100: 53 20 50 4F 53 53 49 42 4C 45 21 20 22 2C 32 34 S POSSIBLE! ",24
000110: 2C 23 38 30 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 ,#80.. ;..
000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000130: 20 20 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D --------
000140: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 0D 0A -----------.. ..
000150: 20 20 4C 45 20 50 45 4E 53 55 4D 20 4E 27 45 53 LE PENSUM N'ES
000160: 54 20 50 41 53 20 46 49 4E 49 20 21 20 4C 49 53 T PAS FINI ! LIS
000170: 45 5A 20 27 45 43 52 41 53 45 4D 45 4E 54 20 53 EZ 'ECRASEMENT S
000180: 45 43 54 45 55 52 53 27 20 2E 20 43 27 45 53 54 ECTEURS' . C'EST
000190: 20 55 4E 20 4F 52 44 52 45 20 21 21 0D 0A 20 0D UN ORDRE !!.. .
0001A0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
0001B0: 20 20 20 20 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D ------
0001C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0001D0: 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 1A 52 4F 55 54 49 -------.. .ROUTI
0001E0: 4E 45 20 45 54 55 44 45 20 50 49 53 54 45 0D 0A NE ETUDE PISTE..
0001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
Size : 512 (Real : 512)
000000: 4E 5A 2C 50 4F 53 49 43 52 44 44 0D 0A 20 3B 0D NZ,POSICRDD.. ;.
000010: 0A 20 50 49 53 4D 4F 52 54 20 4C 44 20 48 4C 2C . PISMORT LD HL,
000020: 54 46 4F 49 52 45 45 0D 0A 20 20 20 20 20 20 20 TFOIREE..
000030: 20 20 43 41 4C 4C 20 50 52 54 0D 0A 20 20 20 20 CALL PRT..
000040: 20 20 20 20 20 58 4F 52 20 41 20 20 20 20 20 20 XOR A
000050: 20 20 20 20 3B 49 67 6E 6F 72 65 72 20 74 6F 75 ;Ignorer tou
000060: 74 65 20 6F 70 65 72 61 74 69 6F 6E 20 75 6C 74 te operation ult
000070: 65 72 69 65 75 72 65 20 73 75 72 20 43 52 2F 44 erieure sur CR/D
000080: 44 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 D.. LD (
000090: 46 4C 41 47 43 52 44 44 29 2C 41 0D 0A 20 20 20 FLAGCRDD),A..
0000A0: 20 20 20 20 20 20 44 45 43 20 41 0D 0A 20 20 20 DEC A..
0000B0: 20 20 20 20 20 20 4C 44 20 28 4C 45 4E 43 52 44 LD (LENCRD
0000C0: 44 29 2C 41 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 D),A.. ;..
0000D0: 20 20 20 4C 44 20 48 4C 2C 46 4C 41 47 46 4E 43 LD HL,FLAGFNC
0000E0: 0D 0A 20 20 20 20 20 20 20 20 20 53 45 54 20 36 .. SET 6
0000F0: 2C 28 48 4C 29 0D 0A 20 20 20 20 20 20 20 20 20 ,(HL)..
000100: 4A 50 20 53 4F 4C 55 54 49 4F 4E 35 0D 0A 20 3B JP SOLUTION5.. ;
000110: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
000120: 20 20 20 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D -------
000130: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000140: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 0D 0A 20 ----------.. ..
000150: 20 20 20 20 49 63 69 20 6F 6E 20 63 68 65 72 63 Ici on cherc
000160: 68 65 20 6C 65 20 47 41 50 20 64 61 6E 73 20 75 he le GAP dans u
000170: 6E 20 43 52 2F 44 44 20 2E 20 20 4F 6E 20 72 61 n CR/DD . On ra
000180: 6E 67 65 20 4C 4D 41 58 20 64 61 6E 73 20 73 6F nge LMAX dans so
000190: 6E 20 74 69 72 6F 69 72 20 2C 20 6F 6E 0D 0A 20 n tiroir , on..
0001A0: 61 66 66 69 63 68 65 20 6C 65 20 6D 65 73 73 61 affiche le messa
0001B0: 67 65 20 63 6F 72 72 65 73 70 6F 6E 64 61 6E 74 ge correspondant
0001C0: 20 2C 20 20 65 74 20 20 6F 6E 20 20 64 7B 74 65 , et on d{te
0001D0: 72 6D 69 6E 65 20 6C 61 20 70 6F 73 69 74 69 6F rmine la positio
0001E0: 6E 20 70 68 79 73 69 71 75 65 20 64 75 0D 0A 20 n physique du..
0001F0: 43 52 2F 44 44 20 76 6F 75 6C 75 20 73 75 72 20 CR/DD voulu sur
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 50 4F 50 20 44 45 0D 0A POP DE..
000010: 20 20 20 20 20 20 20 20 20 50 4F 50 20 48 4C 0D POP HL.
000020: 0A 20 20 20 20 20 20 20 20 20 44 4A 4E 5A 20 4E . DJNZ N
000030: 45 58 54 49 4D 50 20 20 20 20 0D 0A 20 20 20 20 EXTIMP ..
000040: 20 20 20 20 20 43 41 4C 4C 20 43 52 0D 0A 20 3B CALL CR.. ;
000050: 0D 0A 20 57 41 49 54 49 4D 31 20 43 41 4C 4C 20 .. WAITIM1 CALL
000060: 23 42 44 32 45 20 20 20 20 20 20 0D 0A 20 20 20 #BD2E ..
000070: 20 20 20 20 20 20 4A 52 20 43 2C 57 41 49 54 49 JR C,WAITI
000080: 4D 31 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 M1.. LD
000090: 48 4C 2C 54 4C 45 4E 53 49 0D 0A 20 20 20 20 20 HL,TLENSI..
0000A0: 20 20 20 20 43 41 4C 4C 20 50 52 54 0D 0A 20 20 CALL PRT..
0000B0: 20 20 20 20 20 20 20 4C 44 20 41 2C 28 4C 45 4E LD A,(LEN
0000C0: 53 45 43 29 0D 0A 20 20 20 20 20 20 20 20 20 43 SEC).. C
0000D0: 41 4C 4C 20 50 52 54 48 45 58 31 20 20 20 20 0D ALL PRTHEX1 .
0000E0: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 48 4C 2C . LD HL,
0000F0: 54 47 41 50 49 0D 0A 20 20 20 20 20 20 20 20 20 TGAPI..
000100: 43 41 4C 4C 20 50 52 54 0D 0A 20 20 20 20 20 20 CALL PRT..
000110: 20 20 20 4C 44 20 41 2C 28 56 41 4C 47 41 50 46 LD A,(VALGAPF
000120: 29 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C ).. CALL
000130: 20 50 52 54 48 45 58 31 0D 0A 20 20 20 20 20 20 PRTHEX1..
000140: 20 20 20 4C 44 20 48 4C 2C 54 4C 47 41 50 49 0D LD HL,TLGAPI.
000150: 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 50 . CALL P
000160: 52 54 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 RT.. LD
000170: 41 2C 28 47 41 50 46 4F 52 4D 29 0D 0A 20 20 20 A,(GAPFORM)..
000180: 20 20 20 20 20 20 43 41 4C 4C 20 50 52 54 48 45 CALL PRTHE
000190: 58 31 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 X1.. LD
0001A0: 48 4C 2C 54 4F 43 46 4F 52 49 0D 0A 20 20 20 20 HL,TOCFORI..
0001B0: 20 20 20 20 20 43 41 4C 4C 20 50 52 54 0D 0A 20 CALL PRT..
0001C0: 20 20 20 20 20 20 20 20 4C 44 20 41 2C 28 4F 43 LD A,(OC
0001D0: 52 45 4D 50 29 0D 0A 20 20 20 20 20 20 20 20 20 REMP)..
0001E0: 43 41 4C 4C 20 50 52 54 48 45 58 31 0D 0A 20 20 CALL PRTHEX1..
0001F0: 20 20 20 20 20 20 20 43 41 4C 4C 20 41 53 54 45 CALL ASTE
Size : 512 (Real : 512)
000000: 52 49 51 55 45 0D 0A 20 20 20 20 20 20 20 20 20 RIQUE..
000010: 53 43 46 0D 0A 20 20 20 20 20 20 20 20 20 52 45 SCF.. RE
000020: 54 0D 0A 20 3B 0D 0A 20 49 4D 50 50 49 53 54 20 T.. ;.. IMPPIST
000030: 4C 44 20 48 4C 2C 54 50 49 53 54 20 20 20 20 20 LD HL,TPIST
000040: 3B 53 75 62 20 72 6F 75 74 69 6E 65 20 69 6D 70 ;Sub routine imp
000050: 72 69 6D 65 72 20 70 69 73 74 65 0D 0A 20 20 20 rimer piste..
000060: 20 20 20 20 20 20 43 41 4C 4C 20 50 52 54 0D 0A CALL PRT..
000070: 20 20 20 20 20 20 20 20 20 4C 44 20 41 2C 28 50 LD A,(P
000080: 49 53 54 53 45 4C 29 0D 0A 20 20 20 20 20 20 20 ISTSEL)..
000090: 20 20 43 41 4C 4C 20 50 52 54 44 45 43 49 41 0D CALL PRTDECIA.
0000A0: 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 . ;.. LD
0000B0: 20 41 2C 28 46 4C 41 47 46 4E 43 29 20 20 3B 49 A,(FLAGFNC) ;I
0000C0: 6D 70 72 69 6D 65 72 20 73 27 69 6C 20 79 2D 61 mprimer s'il y-a
0000D0: 20 6C 69 65 75 20 6C 65 73 20 66 61 75 78 20 47 lieu les faux G
0000E0: 41 50 53 20 6F 75 0D 0A 20 20 20 20 20 20 20 20 APS ou..
0000F0: 20 41 4E 44 20 25 30 31 30 31 30 30 30 30 20 20 AND %01010000
000100: 20 3B 66 61 75 73 73 65 73 20 6C 6F 6E 67 75 65 ;fausses longue
000110: 75 72 73 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 urs.. JR
000120: 20 5A 2C 50 41 53 46 31 0D 0A 20 3B 0D 0A 20 20 Z,PASF1.. ;..
000130: 20 20 20 20 20 20 20 4C 44 20 48 4C 2C 54 46 41 LD HL,TFA
000140: 55 47 41 49 0D 0A 20 20 20 20 20 20 20 20 20 43 UGAI.. C
000150: 41 4C 4C 20 50 52 54 0D 0A 20 20 20 20 20 20 20 ALL PRT..
000160: 20 20 4C 44 20 41 2C 28 46 41 55 58 47 41 50 29 LD A,(FAUXGAP)
000170: 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 .. CALL
000180: 50 52 54 48 45 58 31 0D 0A 20 3B 0D 0A 20 20 20 PRTHEX1.. ;..
000190: 20 20 20 20 20 20 4C 44 20 48 4C 2C 54 4C 46 41 LD HL,TLFA
0001A0: 55 47 49 0D 0A 20 20 20 20 20 20 20 20 20 43 41 UGI.. CA
0001B0: 4C 4C 20 50 52 54 0D 0A 20 20 20 20 20 20 20 20 LL PRT..
0001C0: 20 4C 44 20 41 2C 28 46 41 55 58 4C 47 46 29 0D LD A,(FAUXLGF).
0001D0: 0A 20 20 20 20 20 20 20 20 20 4A 50 20 50 52 54 . JP PRT
0001E0: 48 45 58 31 0D 0A 20 3B 0D 0A 20 50 41 53 46 31 HEX1.. ;.. PASF1
0001F0: 20 20 20 4C 44 20 41 2C 28 46 4C 41 47 46 4E 43 LD A,(FLAGFNC
Size : 512 (Real : 512)
000000: 29 0D 0A 20 20 20 20 20 20 20 20 20 41 4E 44 20 ).. AND
000010: 25 30 30 31 30 30 30 30 30 0D 0A 20 20 20 20 20 %00100000..
000020: 20 20 20 20 52 45 54 20 5A 20 20 20 0D 0A 20 3B RET Z .. ;
000030: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 48 4C .. LD HL
000040: 2C 54 44 49 46 4C 45 49 0D 0A 20 20 20 20 20 20 ,TDIFLEI..
000050: 20 20 20 43 41 4C 4C 20 50 52 54 20 20 20 20 0D CALL PRT .
000060: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 41 2C 28 . LD A,(
000070: 4C 4D 49 4E 29 0D 0A 20 20 20 20 20 20 20 20 20 LMIN)..
000080: 43 41 4C 4C 20 50 52 54 44 45 43 49 41 0D 0A 20 CALL PRTDECIA..
000090: 3B 0D 0A 20 57 41 49 54 41 20 20 20 4C 44 20 41 ;.. WAITA LD A
0000A0: 2C 22 61 22 0D 0A 20 20 20 20 20 20 20 20 20 43 ,"a".. C
0000B0: 41 4C 4C 20 23 42 44 32 42 0D 0A 20 20 20 20 20 ALL #BD2B..
0000C0: 20 20 20 20 4A 52 20 4E 43 2C 57 41 49 54 41 0D JR NC,WAITA.
0000D0: 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 43 41 . ;.. CA
0000E0: 4C 4C 20 53 50 41 43 45 0D 0A 20 20 20 20 20 20 LL SPACE..
0000F0: 20 20 20 4C 44 20 41 2C 28 4C 4D 41 58 29 0D 0A LD A,(LMAX)..
000100: 20 20 20 20 20 20 20 20 20 4A 50 20 50 52 54 44 JP PRTD
000110: 45 43 49 41 20 0D 0A 20 3B 0D 0A 20 41 53 54 45 ECIA .. ;.. ASTE
000120: 52 49 51 55 45 20 43 41 4C 4C 20 43 52 20 20 20 RIQUE CALL CR
000130: 3B 49 6D 70 72 69 6D 65 72 20 6C 27 61 73 74 65 ;Imprimer l'aste
000140: 72 69 71 75 65 20 66 69 6E 61 6C 20 65 74 20 72 rique final et r
000150: 65 69 6E 69 74 69 61 6C 69 73 65 72 20 6C 65 20 einitialiser le
000160: 6D 6F 64 65 0D 0A 20 20 20 20 20 20 20 20 20 57 mode.. W
000170: 41 49 54 41 53 54 20 20 20 20 20 3B 70 72 6F 67 AITAST ;prog
000180: 72 61 6D 6D 65 20 6E 6F 72 6D 61 6C 0D 0A 20 20 ramme normal..
000190: 20 20 20 20 20 20 20 4C 44 20 41 2C 22 2A 22 0D LD A,"*".
0001A0: 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 23 . CALL #
0001B0: 42 44 32 42 0D 0A 20 20 20 20 20 20 20 20 20 4A BD2B.. J
0001C0: 52 20 4E 43 2C 57 41 49 54 41 53 54 0D 0A 20 20 R NC,WAITAST..
0001D0: 20 20 20 20 20 20 20 43 41 4C 4C 20 43 52 0D 0A CALL CR..
0001E0: 20 20 20 20 20 20 20 20 20 4A 50 20 52 45 53 49 JP RESI
0001F0: 4D 50 0D 0A 20 0D 0A 20 43 52 49 4D 50 31 20 20 MP.. .. CRIMP1
Size : 512 (Real : 512)
000000: 4C 44 20 43 2C 33 0D 0A 20 20 20 20 20 20 20 20 LD C,3..
000010: 20 4A 50 20 43 52 0D 0A 20 3B 0D 0A 20 54 50 49 JP CR.. ;.. TPI
000020: 53 54 20 20 20 44 42 20 22 50 69 73 74 65 3A 20 ST DB "Piste:
000030: 22 2C 23 38 30 20 20 20 20 20 20 20 20 20 20 20 ",#80
000040: 20 20 20 20 20 3B 54 45 58 54 45 53 20 49 4D 50 ;TEXTES IMP
000050: 52 49 4D 41 4E 54 45 0D 0A 20 54 4C 45 4E 53 49 RIMANTE.. TLENSI
000060: 20 20 44 42 20 22 54 61 69 6C 6C 65 20 72 65 65 DB "Taille ree
000070: 6C 6C 65 20 3A 20 26 22 2C 23 38 30 0D 0A 20 54 lle : &",#80.. T
000080: 47 41 50 49 20 20 20 44 42 20 22 47 41 50 2D 46 GAPI DB "GAP-F
000090: 20 20 26 22 2C 23 38 30 0D 0A 20 54 4C 47 41 50 &",#80.. TLGAP
0000A0: 49 20 20 44 42 20 22 4C 6F 6E 67 75 65 75 72 20 I DB "Longueur
0000B0: 47 41 50 20 3A 20 26 22 2C 23 38 30 0D 0A 20 54 GAP : &",#80.. T
0000C0: 4F 43 46 4F 52 49 20 44 42 20 22 4F 63 74 65 74 OCFORI DB "Octet
0000D0: 20 66 6F 72 6D 61 74 61 67 65 20 3A 20 26 22 2C formatage : &",
0000E0: 23 38 30 0D 0A 20 4E 42 53 45 43 49 20 20 44 42 #80.. NBSECI DB
0000F0: 20 22 4E 6F 6D 62 72 65 20 64 65 20 73 65 63 74 "Nombre de sect
000100: 65 75 72 73 20 3A 20 22 2C 23 38 30 0D 0A 20 54 eurs : ",#80.. T
000110: 53 45 50 49 4D 50 20 44 42 20 22 20 20 20 3E 20 SEPIMP DB " >
000120: 22 2C 23 38 30 0D 0A 20 3B 0D 0A 20 53 45 54 49 ",#80.. ;.. SETI
000130: 4D 50 20 20 4C 44 20 48 4C 2C 23 42 44 32 42 20 MP LD HL,#BD2B
000140: 20 20 20 20 3B 52 45 4D 50 4C 41 43 45 52 20 4C ;REMPLACER L
000150: 45 53 20 23 42 42 35 41 20 44 55 20 50 52 4F 47 ES #BB5A DU PROG
000160: 52 41 4D 4D 45 20 50 41 52 20 55 4E 20 56 45 43 RAMME PAR UN VEC
000170: 54 45 55 52 0D 0A 20 20 20 20 20 20 20 20 20 4C TEUR.. L
000180: 44 20 41 2C 23 43 39 20 20 20 20 20 20 20 20 3B D A,#C9 ;
000190: 49 4D 50 52 49 4D 41 4E 54 45 0D 0A 20 20 20 20 IMPRIMANTE..
0001A0: 20 20 20 20 20 4A 52 20 49 4E 49 4D 50 0D 0A 20 JR INIMP..
0001B0: 3B 0D 0A 20 52 45 53 49 4D 50 20 20 4C 44 20 48 ;.. RESIMP LD H
0001C0: 4C 2C 23 42 42 35 41 20 20 20 20 20 3B 46 41 49 L,#BB5A ;FAI
0001D0: 52 45 20 4C 45 20 43 4F 4E 54 52 41 49 52 45 0D RE LE CONTRAIRE.
0001E0: 0A 20 20 20 20 20 20 20 20 20 58 4F 52 20 41 0D . XOR A.
0001F0: 0A 20 49 4E 49 4D 50 20 20 20 4C 44 20 28 43 52 . INIMP LD (CR
Size : 512 (Real : 512)
000000: 31 2B 31 29 2C 48 4C 0D 0A 20 20 20 20 20 20 20 1+1),HL..
000010: 20 20 4C 44 20 28 50 52 54 32 2B 31 29 2C 48 4C LD (PRT2+1),HL
000020: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 4F .. LD (O
000030: 4B 48 45 58 2B 31 29 2C 48 4C 0D 0A 20 20 20 20 KHEX+1),HL..
000040: 20 20 20 20 20 4C 44 20 28 49 4D 50 45 52 52 31 LD (IMPERR1
000050: 2B 31 29 2C 48 4C 0D 0A 20 20 20 20 20 20 20 20 +1),HL..
000060: 20 4C 44 20 28 43 41 52 52 59 2B 31 29 2C 48 4C LD (CARRY+1),HL
000070: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 50 .. LD (P
000080: 52 54 41 2B 31 29 2C 48 4C 0D 0A 20 20 20 20 20 RTA+1),HL..
000090: 20 20 20 20 4C 44 20 28 52 45 54 49 4D 50 29 2C LD (RETIMP),
0000A0: 41 0D 0A 20 20 20 20 20 20 20 20 20 52 45 54 20 A.. RET
0000B0: 0D 0A 20 3B 0D 0A 20 54 52 41 4E 53 33 49 44 20 .. ;.. TRANS3ID
0000C0: 49 4E 43 20 48 4C 20 20 20 20 20 20 20 20 20 3B INC HL ;
0000D0: 43 6F 6D 6D 65 20 76 65 72 73 69 6F 6E 20 70 72 Comme version pr
0000E0: 65 63 65 64 65 6E 74 65 0D 0A 20 20 20 20 20 20 ecedente..
0000F0: 20 20 20 4C 44 20 41 2C 28 48 4C 29 0D 0A 20 20 LD A,(HL)..
000100: 20 20 20 20 20 20 20 4C 44 20 28 51 55 41 54 52 LD (QUATR
000110: 49 44 2B 31 29 2C 41 0D 0A 20 20 20 20 20 20 20 ID+1),A..
000120: 20 20 49 4E 43 20 48 4C 0D 0A 20 20 20 20 20 20 INC HL..
000130: 20 20 20 4C 44 20 41 2C 28 48 4C 29 0D 0A 20 20 LD A,(HL)..
000140: 20 20 20 20 20 20 20 4C 44 20 28 51 55 41 54 52 LD (QUATR
000150: 49 44 2B 32 29 2C 41 20 20 20 20 0D 0A 20 20 20 ID+2),A ..
000160: 20 20 20 20 20 20 4C 44 20 28 44 45 52 53 45 43 LD (DERSEC
000170: 29 2C 41 20 20 20 0D 0A 20 20 20 20 20 20 20 20 ),A ..
000180: 20 49 4E 43 20 48 4C 20 20 0D 0A 20 20 20 20 20 INC HL ..
000190: 20 20 20 20 4C 44 20 41 2C 28 48 4C 29 0D 0A 20 LD A,(HL)..
0001A0: 20 20 20 20 20 20 20 20 4C 44 20 28 51 55 41 54 LD (QUAT
0001B0: 52 49 44 2B 33 29 2C 41 0D 0A 20 20 20 20 20 20 RID+3),A..
0001C0: 20 20 20 52 45 54 0D 0A 20 3B 0D 0A 20 46 49 58 RET.. ;.. FIX
0001D0: 50 41 52 41 20 43 41 4C 4C 20 49 44 34 54 52 41 PARA CALL ID4TRA
0001E0: 4E 53 20 20 20 3B 43 6F 6D 6D 65 20 76 65 72 73 NS ;Comme vers
0001F0: 69 6F 6E 20 70 72 65 63 65 64 65 6E 74 65 0D 0A ion precedente..
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 4C 44 20 41 2C 28 4C LD A,(L
000010: 45 4E 53 45 43 29 0D 0A 20 20 20 20 20 20 20 20 ENSEC)..
000020: 20 4C 44 20 28 51 55 41 54 52 49 44 2B 33 29 2C LD (QUATRID+3),
000030: 41 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 44 A.. LD D
000040: 45 2C 2D 34 0D 0A 20 20 20 20 20 20 20 20 20 41 E,-4.. A
000050: 44 44 20 48 4C 2C 44 45 0D 0A 20 20 20 20 20 20 DD HL,DE..
000060: 20 20 20 4C 44 20 48 4C 2C 51 55 41 54 52 49 44 LD HL,QUATRID
000070: 2B 32 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 +2.. LD
000080: 41 2C 28 48 4C 29 0D 0A 20 20 20 20 20 20 20 20 A,(HL)..
000090: 20 4C 44 20 28 50 52 45 4D 53 45 43 29 2C 41 20 LD (PREMSEC),A
0000A0: 20 0D 0A 20 20 20 20 20 20 20 20 20 49 4E 43 20 .. INC
0000B0: 48 4C 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 HL.. LD
0000C0: 41 2C 28 4E 42 53 45 43 29 0D 0A 20 20 20 20 20 A,(NBSEC)..
0000D0: 20 20 20 20 4C 44 20 48 4C 2C 49 44 49 4E 44 52 LD HL,IDINDR
0000E0: 41 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 44 A.. LD D
0000F0: 45 2C 34 0D 0A 20 20 20 20 20 20 20 20 20 44 45 E,4.. DE
000100: 43 20 41 0D 0A 20 50 54 44 45 52 53 45 43 20 41 C A.. PTDERSEC A
000110: 44 44 20 48 4C 2C 44 45 0D 0A 20 20 20 20 20 20 DD HL,DE..
000120: 20 20 20 44 45 43 20 41 0D 0A 20 20 20 20 20 20 DEC A..
000130: 20 20 20 4A 52 20 4E 5A 2C 50 54 44 45 52 53 45 JR NZ,PTDERSE
000140: 43 0D 0A 20 20 20 20 20 20 20 20 20 49 4E 43 20 C.. INC
000150: 48 4C 0D 0A 20 20 20 20 20 20 20 20 20 49 4E 43 HL.. INC
000160: 20 48 4C 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 HL.. LD
000170: 20 41 2C 28 48 4C 29 0D 0A 20 20 20 20 20 20 20 A,(HL)..
000180: 20 20 4C 44 20 28 44 45 52 53 45 43 29 2C 41 0D LD (DERSEC),A.
000190: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 41 2C 28 . LD A,(
0001A0: 47 41 50 46 4F 52 4D 29 0D 0A 20 20 20 20 20 20 GAPFORM)..
0001B0: 20 20 20 53 52 4C 20 41 0D 0A 20 20 20 20 20 20 SRL A..
0001C0: 20 20 20 4A 52 20 4E 5A 2C 4F 4B 47 41 50 52 57 JR NZ,OKGAPRW
0001D0: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 41 2C .. LD A,
0001E0: 31 0D 0A 20 4F 4B 47 41 50 52 57 20 4C 44 20 28 1.. OKGAPRW LD (
0001F0: 47 41 50 52 57 29 2C 41 0D 0A 20 20 20 20 20 20 GAPRW),A..
Size : 512 (Real : 512)
000000: 20 20 20 53 43 46 0D 0A 20 20 20 20 20 20 20 20 SCF..
000010: 20 52 45 54 0D 0A 20 0D 0A 20 46 49 58 4C 46 46 RET.. .. FIXLFF
000020: 20 20 4C 44 20 41 2C 28 51 55 41 54 52 49 44 2B LD A,(QUATRID+
000030: 33 29 0D 0A 20 20 20 20 20 20 20 20 20 4F 52 20 3).. OR
000040: 41 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 20 5A A.. JR Z
000050: 2C 4E 4F 54 5A 45 52 58 0D 0A 20 20 20 20 20 20 ,NOTZERX..
000060: 20 20 20 4C 44 20 41 2C 23 46 46 0D 0A 20 4E 4F LD A,#FF.. NO
000070: 54 5A 45 52 58 20 4C 44 20 28 4C 53 5A 45 52 4F TZERX LD (LSZERO
000080: 29 2C 41 0D 0A 20 20 20 20 20 20 20 20 20 52 45 ),A.. RE
000090: 54 0D 0A 20 3B 0D 0A 20 56 49 53 49 4E 53 54 20 T.. ;.. VISINST
0000A0: 50 55 53 48 20 48 4C 20 20 20 20 20 20 20 20 20 PUSH HL
0000B0: 3B 43 61 20 63 27 65 73 74 20 56 49 53 45 53 45 ;Ca c'est VISESE
0000C0: 43 20 6D 6F 64 69 66 69 65 20 6C 65 20 70 72 69 C modifie le pri
0000D0: 6E 63 69 70 65 20 65 73 74 20 6C 65 20 6D 65 6D ncipe est le mem
0000E0: 65 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C e.. CALL
0000F0: 20 54 53 54 44 49 44 43 20 20 20 20 3B 6D 61 69 TSTDIDC ;mai
000100: 73 20 63 27 65 73 74 20 75 6E 20 70 65 75 20 70 s c'est un peu p
000110: 6C 75 73 20 72 61 70 69 64 65 20 2E 20 4F 6E 20 lus rapide . On
000120: 56 69 73 65 20 61 75 73 73 69 20 6C 65 0D 0A 20 Vise aussi le..
000130: 20 20 20 20 20 20 20 20 50 4F 50 20 20 48 4C 20 POP HL
000140: 20 20 20 20 20 20 20 20 3B 70 72 65 6D 69 65 72 ;premier
000150: 20 73 65 63 74 65 75 72 20 2C 20 64 61 6E 73 20 secteur , dans
000160: 63 65 72 74 61 69 6E 73 20 63 61 73 20 63 27 65 certains cas c'e
000170: 73 74 20 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 st .. ;..
000180: 20 20 4C 44 20 41 2C 28 43 4F 55 4E 54 29 20 20 LD A,(COUNT)
000190: 20 20 3B 69 6E 64 69 73 70 65 6E 73 61 62 6C 65 ;indispensable
0001A0: 0D 0A 20 20 20 20 20 20 20 20 20 4F 52 20 41 20 .. OR A
0001B0: 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 4A 50 .. JP
0001C0: 20 5A 2C 49 4E 53 54 52 55 39 0D 0A 20 3B 0D 0A Z,INSTRU9.. ;..
0001D0: 20 20 20 20 20 20 20 20 20 50 55 53 48 20 42 43 PUSH BC
0001E0: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 42 2C .. LD B,
0001F0: 41 0D 0A 20 50 4F 49 4E 53 45 43 20 43 41 4C 4C A.. POINSEC CALL
Size : 512 (Real : 512)
000000: 20 49 4E 53 54 52 55 32 0D 0A 20 20 20 20 20 20 INSTRU2..
000010: 20 20 20 43 41 4C 4C 20 52 45 53 55 4C 54 0D 0A CALL RESULT..
000020: 20 20 20 20 20 20 20 20 20 44 4A 4E 5A 20 50 4F DJNZ PO
000030: 49 4E 53 45 43 0D 0A 20 20 20 20 20 20 20 20 20 INSEC..
000040: 50 4F 50 20 42 43 0D 0A 20 3B 0D 0A 20 20 20 20 POP BC.. ;..
000050: 20 20 20 20 20 4A 50 20 49 4E 53 54 52 55 39 0D JP INSTRU9.
000060: 0A 20 3B 0D 0A 20 3B 2D 20 41 66 66 69 63 68 65 . ;.. ;- Affiche
000070: 72 20 6C 65 73 20 65 72 72 65 75 72 73 20 61 20 r les erreurs a
000080: 6C 27 61 6E 61 6C 79 73 65 20 2D 0D 0A 20 3B 0D l'analyse -.. ;.
000090: 0A 20 50 52 54 33 45 52 52 31 20 4C 44 20 48 4C . PRT3ERR1 LD HL
0000A0: 2C 54 45 52 52 53 20 20 20 20 3B 43 6F 6D 6D 65 ,TERRS ;Comme
0000B0: 20 76 65 72 73 69 6F 6E 20 70 72 65 63 65 64 65 version precede
0000C0: 6E 74 65 0D 0A 20 20 20 20 20 20 20 20 20 43 41 nte.. CA
0000D0: 4C 4C 20 50 52 54 0D 0A 20 3B 0D 0A 20 50 52 54 LL PRT.. ;.. PRT
0000E0: 33 45 52 52 20 4C 44 20 41 2C 28 46 4C 41 47 45 3ERR LD A,(FLAGE
0000F0: 52 52 29 0D 0A 20 50 52 54 33 45 52 32 20 4C 44 RR).. PRT3ER2 LD
000100: 20 48 4C 2C 54 4F 4B 0D 0A 20 3B 0D 0A 20 20 20 HL,TOK.. ;..
000110: 20 20 20 20 20 20 4F 52 20 41 0D 0A 20 20 20 20 OR A..
000120: 20 20 20 20 20 4A 50 20 5A 2C 50 52 54 0D 0A 20 JP Z,PRT..
000130: 3B 0D 0A 20 50 52 54 45 52 52 33 20 4C 44 20 48 ;.. PRTERR3 LD H
000140: 4C 2C 54 45 52 52 46 44 43 0D 0A 20 20 20 20 20 L,TERRFDC..
000150: 20 20 20 20 4C 44 20 44 45 2C 33 0D 0A 20 20 20 LD DE,3..
000160: 20 20 20 20 20 20 4C 44 20 42 2C 38 0D 0A 20 4C LD B,8.. L
000170: 4F 4F 4B 45 52 52 20 52 4C 43 20 41 0D 0A 20 20 OOKERR RLC A..
000180: 20 20 20 20 20 20 20 4A 52 20 4E 43 2C 4E 4F 42 JR NC,NOB
000190: 49 54 0D 0A 20 20 20 20 20 20 20 20 20 50 55 53 IT.. PUS
0001A0: 48 20 42 43 0D 0A 20 20 20 20 20 20 20 20 20 50 H BC.. P
0001B0: 55 53 48 20 41 46 0D 0A 20 20 20 20 20 20 20 20 USH AF..
0001C0: 20 4C 44 20 42 2C 33 20 20 0D 0A 20 50 52 54 45 LD B,3 .. PRTE
0001D0: 52 52 31 20 4C 44 20 41 2C 28 48 4C 29 0D 0A 20 RR1 LD A,(HL)..
0001E0: 49 4D 50 45 52 52 31 20 43 41 4C 4C 20 23 42 42 IMPERR1 CALL #BB
0001F0: 35 41 0D 0A 20 20 20 20 20 20 20 20 20 49 4E 43 5A.. INC
Size : 512 (Real : 512)
000000: 20 48 4C 0D 0A 20 20 20 20 20 20 20 20 20 44 4A HL.. DJ
000010: 4E 5A 20 50 52 54 45 52 52 31 0D 0A 20 20 20 20 NZ PRTERR1..
000020: 20 20 20 20 20 50 4F 50 20 41 46 0D 0A 20 20 20 POP AF..
000030: 20 20 20 20 20 20 50 4F 50 20 42 43 0D 0A 20 20 POP BC..
000040: 20 20 20 20 20 20 20 4A 52 20 4F 55 49 42 49 54 JR OUIBIT
000050: 20 20 20 0D 0A 20 4E 4F 42 49 54 20 20 20 41 44 .. NOBIT AD
000060: 44 20 48 4C 2C 44 45 0D 0A 20 4F 55 49 42 49 54 D HL,DE.. OUIBIT
000070: 20 20 44 4A 4E 5A 20 4C 4F 4F 4B 45 52 52 0D 0A DJNZ LOOKERR..
000080: 20 52 45 54 49 4D 50 20 20 44 42 20 30 20 20 20 RETIMP DB 0
000090: 3B 52 65 74 6F 75 72 20 69 6D 70 72 69 6D 61 6E ;Retour impriman
0000A0: 74 65 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 te.. LD
0000B0: 41 2C 38 0D 0A 20 20 20 20 20 20 20 20 20 43 41 A,8.. CA
0000C0: 4C 4C 20 23 42 42 35 41 20 20 20 20 3B 52 65 63 LL #BB5A ;Rec
0000D0: 75 6C 65 72 20 75 6E 65 20 63 61 73 65 20 73 69 uler une case si
0000E0: 20 74 72 6F 70 20 64 27 65 72 72 65 75 72 73 0D trop d'erreurs.
0000F0: 0A 20 20 20 20 20 20 20 20 20 52 45 54 0D 0A 20 . RET..
000100: 3B 0D 0A 20 54 4F 4B 20 20 20 20 20 44 42 20 22 ;.. TOK DB "
000110: 4F 4B 22 2C 38 2C 23 38 38 0D 0A 20 54 45 52 52 OK",8,#88.. TERR
000120: 53 20 20 20 44 42 20 23 31 46 2C 31 2C 23 31 36 S DB #1F,1,#16
000130: 2C 37 2C 23 31 38 0D 0A 20 20 20 20 20 20 20 20 ,7,#18..
000140: 20 44 42 20 22 20 45 74 61 74 20 64 27 65 72 72 DB " Etat d'err
000150: 65 75 72 20 20 22 2C 23 31 38 2C 22 20 4F 4B 22 eur ",#18," OK"
000160: 2C 38 2C 23 38 38 0D 0A 20 54 45 52 52 46 44 43 ,8,#88.. TERRFDC
000170: 20 44 42 20 22 45 50 20 48 44 20 43 52 20 4E 44 DB "EP HD CR ND
000180: 20 43 4D 20 44 44 20 4D 41 20 44 41 20 22 0D 0A CM DD MA DA "..
000190: 20 54 4E 42 53 45 43 20 20 44 42 20 33 31 2C 31 TNBSEC DB 31,1
0001A0: 2C 33 2C 22 4E 6F 6D 62 72 65 20 73 65 63 74 65 ,3,"Nombre secte
0001B0: 75 72 73 3A 20 22 2C 23 38 30 0D 0A 20 54 4C 45 urs: ",#80.. TLE
0001C0: 4E 20 20 20 20 44 42 20 33 31 2C 31 2C 34 2C 22 N DB 31,1,4,"
0001D0: 54 61 69 6C 6C 65 20 72 65 65 6C 6C 65 20 20 3A Taille reelle :
0001E0: 20 26 22 2C 23 38 30 0D 0A 20 54 4C 4F 4E 47 20 &",#80.. TLONG
0001F0: 20 20 44 42 20 33 31 2C 31 2C 35 2C 22 4E 6F 6D DB 31,1,5,"Nom
Size : 512 (Real : 512)
000000: 62 72 65 20 6F 63 74 65 74 73 20 20 3A 20 22 2C bre octets : ",
000010: 23 38 30 0D 0A 20 54 47 41 50 46 20 20 20 44 42 #80.. TGAPF DB
000020: 20 33 31 2C 31 2C 36 2C 22 4F 63 74 65 74 20 47 31,1,6,"Octet G
000030: 41 50 2D 46 20 20 20 20 3A 20 26 22 2C 23 38 30 AP-F : &",#80
000040: 0D 0A 20 54 4C 47 41 50 46 20 20 44 42 20 33 31 .. TLGAPF DB 31
000050: 2C 31 2C 37 2C 22 4C 6F 6E 67 75 65 75 72 20 47 ,1,7,"Longueur G
000060: 41 50 2D 46 20 3A 20 26 22 2C 23 38 30 0D 0A 20 AP-F : &",#80..
000070: 54 4F 43 52 45 4D 50 20 44 42 20 33 31 2C 31 2C TOCREMP DB 31,1,
000080: 38 2C 22 4F 63 74 65 74 20 66 6F 72 6D 61 74 61 8,"Octet formata
000090: 67 65 3A 20 26 22 2C 23 38 30 0D 0A 20 54 46 41 ge: &",#80.. TFA
0000A0: 55 47 41 50 20 44 42 20 33 31 2C 31 2C 31 30 0D UGAP DB 31,1,10.
0000B0: 0A 20 54 46 41 55 47 41 49 20 44 42 20 22 56 41 . TFAUGAI DB "VA
0000C0: 4C 45 55 52 20 46 41 55 58 20 47 41 50 3A 20 26 LEUR FAUX GAP: &
0000D0: 22 2C 23 38 30 0D 0A 20 54 4C 46 41 55 47 41 20 ",#80.. TLFAUGA
0000E0: 44 42 20 33 31 2C 31 2C 31 31 0D 0A 20 54 4C 46 DB 31,1,11.. TLF
0000F0: 41 55 47 49 20 44 42 20 22 4C 4F 4E 47 2E 20 20 AUGI DB "LONG.
000100: 46 41 55 58 20 47 41 50 3A 20 26 22 2C 23 38 30 FAUX GAP: &",#80
000110: 0D 0A 20 54 46 41 55 4C 45 4E 20 44 42 20 33 31 .. TFAULEN DB 31
000120: 2C 31 2C 31 32 2C 22 46 41 55 53 53 45 20 54 41 ,1,12,"FAUSSE TA
000130: 49 4C 4C 45 20 20 3A 20 22 2C 23 38 30 0D 0A 20 ILLE : ",#80..
000140: 54 44 49 46 4C 45 4E 20 44 42 20 33 31 2C 31 2C TDIFLEN DB 31,1,
000150: 31 30 0D 0A 20 54 44 49 46 4C 45 49 20 44 42 20 10.. TDIFLEI DB
000160: 22 4C 4F 4E 47 2E 20 50 4F 53 53 2E 20 3A 22 2C "LONG. POSS. :",
000170: 23 38 30 0D 0A 20 54 4C 49 54 53 45 43 54 20 44 #80.. TLITSECT D
000180: 42 20 33 31 2C 32 2C 32 33 2C 22 20 4C 45 43 54 B 31,2,23," LECT
000190: 55 52 45 20 53 45 43 54 45 55 52 53 22 2C 23 38 URE SECTEURS",#8
0001A0: 30 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 0.. ;..
0001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001C0: 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ---------------
0001D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 0D 0A 20 20 20 ---------....
0001E0: 20 49 63 69 20 6C 65 20 20 6C 69 73 74 69 6E 67 Ici le listing
0001F0: 20 20 27 6C 65 63 74 75 72 65 20 20 64 65 73 20 'lecture des
Size : 512 (Real : 512)
000000: 20 49 44 53 27 20 20 2E 20 20 4C 27 69 6E 73 74 IDS' . L'inst
000010: 72 75 63 74 69 6F 6E 20 20 27 48 41 4C 54 27 20 ruction 'HALT'
000020: 20 72 7B 73 6F 75 74 20 6C 65 20 0D 0A 70 72 6F r{sout le ..pro
000030: 62 6C 7D 6D 65 20 64 65 20 62 6C 6F 63 61 67 65 bl}me de blocage
000040: 20 64 65 73 20 76 65 72 73 69 6F 6E 73 20 70 72 des versions pr
000050: 7B 63 7B 64 65 6E 74 65 73 20 2E 0D 0A 20 20 20 {c{dentes ...
000060: 20 50 6F 75 72 71 75 6F 69 20 63 65 20 62 6F 67 Pourquoi ce bog
000070: 75 65 20 3F 20 50 61 72 63 65 20 20 71 75 65 20 ue ? Parce que
000080: 20 64 61 6E 73 20 20 63 65 20 20 63 61 73 20 20 dans ce cas
000090: 70 72 7B 63 69 73 20 2C 20 6C 65 73 20 69 6E 74 pr{cis , les int
0000A0: 65 72 72 75 70 74 69 6F 6E 73 20 0D 0A 72 65 73 erruptions ..res
0000B0: 74 65 6E 74 20 61 63 74 69 76 65 73 20 6C 6F 72 tent actives lor
0000C0: 73 20 64 65 20 6C 61 20 6C 65 63 74 75 72 65 20 s de la lecture
0000D0: 64 75 20 20 72 7B 73 75 6C 74 61 74 20 28 56 6F du r{sultat (Vo
0000E0: 69 72 20 53 4F 53 32 20 6C 65 63 74 75 72 65 20 ir SOS2 lecture
0000F0: 64 65 73 20 49 44 53 29 20 2E 20 0D 0A 53 69 20 des IDS) . ..Si
000100: 70 61 72 20 6D 61 6C 68 65 75 72 20 6C 65 20 5A par malheur le Z
000110: 38 30 20 72 65 6C 61 6E 63 65 20 73 6F 6E 20 63 80 relance son c
000120: 79 63 6C 65 20 64 27 69 6E 74 65 72 72 75 70 74 ycle d'interrupt
000130: 69 6F 6E 20 61 75 20 6D 6F 6D 65 6E 74 20 70 72 ion au moment pr
000140: 7B 63 69 73 20 6F 7C 20 6C 65 20 0D 0A 46 44 43 {cis o| le ..FDC
000150: 20 64 6F 6E 6E 65 20 6C 61 20 70 68 61 73 65 20 donne la phase
000160: 72 7B 73 75 6C 74 61 74 20 2C 20 69 6C 20 79 2D r{sultat , il y-
000170: 40 20 75 6E 20 63 6F 6E 66 6C 69 74 20 65 6E 74 @ un conflit ent
000180: 72 65 20 32 20 74 79 70 65 73 20 64 27 69 6E 74 re 2 types d'int
000190: 65 72 72 75 70 74 69 6F 6E 73 20 0D 0A 65 74 20 erruptions ..et
0001A0: 6C 65 20 70 72 6F 67 72 61 6D 6D 65 20 62 6C 6F le programme blo
0001B0: 71 75 65 20 2E 0D 0A 20 20 20 20 53 6F 6C 75 74 que ... Solut
0001C0: 69 6F 6E 20 3A 20 4C 27 69 6E 73 74 72 75 63 74 ion : L'instruct
0001D0: 69 6F 6E 20 27 48 41 4C 54 27 20 73 74 6F 70 70 ion 'HALT' stopp
0001E0: 65 20 74 6F 75 74 65 20 20 6F 70 7B 72 61 74 69 e toute op{rati
0001F0: 6F 6E 20 65 6E 20 63 6F 75 72 73 20 54 41 4E 54 on en cours TANT
Size : 512 (Real : 512)
000000: 20 51 55 45 20 0D 0A 4C 45 20 5A 38 30 20 4E 27 QUE ..LE Z80 N'
000010: 41 20 50 41 53 20 47 45 4E 45 52 45 20 55 4E 20 A PAS GENERE UN
000020: 4E 4F 55 56 45 41 55 20 20 43 59 43 4C 45 20 20 NOUVEAU CYCLE
000030: 44 27 49 4E 54 45 52 52 55 50 54 49 4F 4E 20 2E D'INTERRUPTION .
000040: 20 49 6C 20 65 73 74 20 64 6F 6E 63 20 7B 76 69 Il est donc {vi
000050: 64 65 6E 74 20 0D 0A 71 75 65 20 6C 61 20 70 6F dent ..que la po
000060: 73 69 74 69 6F 6E 20 20 64 75 20 20 48 41 4C 54 sition du HALT
000070: 20 20 61 73 73 75 72 65 20 20 71 75 27 61 75 20 assure qu'au
000080: 20 6D 6F 6D 65 6E 74 20 20 64 65 20 20 6C 61 20 moment de la
000090: 20 6C 65 63 74 75 72 65 20 64 75 20 72 7B 73 75 lecture du r{su
0000A0: 6C 74 61 74 20 0D 0A 75 6E 65 20 69 6E 74 65 72 ltat ..une inter
0000B0: 72 75 70 74 69 6F 6E 20 76 69 65 6E 74 20 64 65 ruption vient de
0000C0: 20 73 65 20 20 70 72 6F 64 75 69 72 65 20 20 65 se produire e
0000D0: 74 20 20 71 75 65 20 20 6E 6F 75 73 20 64 69 73 t que nous dis
0000E0: 70 6F 73 6F 6E 73 20 64 27 31 2F 33 30 30 7D 6D posons d'1/300}m
0000F0: 65 20 64 65 20 0D 0A 73 65 63 6F 6E 64 65 20 20 e de ..seconde
000100: 61 76 61 6E 74 20 6C 61 20 73 75 69 76 61 6E 74 avant la suivant
000110: 65 20 20 2E 20 20 4C 65 20 20 6D 6F 6D 65 6E 74 e . Le moment
000120: 20 20 76 69 74 61 6C 20 20 64 65 20 20 6C 61 20 vital de la
000130: 70 68 61 73 65 20 72 7B 73 75 6C 74 61 74 20 7B phase r{sultat {
000140: 74 61 6E 74 20 0D 0A 65 78 7B 63 75 74 7B 20 64 tant ..ex{cut{ d
000150: 61 6E 73 20 75 6E 20 64 7B 6C 61 69 20 70 6C 75 ans un d{lai plu
000160: 73 20 62 72 65 66 20 2C 20 20 69 6C 20 20 65 73 s bref , il es
000170: 74 20 20 61 6C 6F 72 73 20 63 65 72 74 61 69 6E t alors certain
000180: 20 71 75 65 20 6C 65 20 72 7B 73 75 6C 74 61 74 que le r{sultat
000190: 20 65 73 74 20 0D 0A 74 6F 75 6A 6F 75 72 73 20 est ..toujours
0001A0: 72 65 6E 64 75 20 65 6E 74 72 65 20 32 20 69 6E rendu entre 2 in
0001B0: 74 65 72 72 75 70 74 69 6F 6E 73 20 2E 20 43 2E terruptions . C.
0001C0: 51 2E 46 2E 44 2E 2E 2E 2E 0D 0A 20 0D 0A 20 20 Q.F.D...... ..
0001D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001E0: 20 20 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D --------
0001F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
Size : 512 (Real : 512)
000000: 0D 0A 3B 0D 0A 20 3B 2D 20 4C 49 52 45 20 4C 45 ..;.. ;- LIRE LE
000010: 53 20 49 44 20 2D 0D 0A 20 3B 0D 0A 20 56 45 52 S ID -.. ;.. VER
000020: 49 49 44 20 20 4C 44 20 48 4C 2C 54 4C 49 54 49 IID LD HL,TLITI
000030: 44 53 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C DS.. CAL
000040: 4C 20 50 52 54 0D 0A 20 3B 0D 0A 20 4C 49 52 45 L PRT.. ;.. LIRE
000050: 49 44 31 20 4C 44 20 49 58 2C 49 44 49 4E 44 52 ID1 LD IX,IDINDR
000060: 41 20 20 20 3B 54 61 62 6C 65 20 49 44 53 20 41 A ;Table IDS A
000070: 0D 0A 20 20 20 20 20 20 20 20 20 50 55 53 48 20 .. PUSH
000080: 49 58 0D 0A 20 20 20 20 20 20 20 20 20 50 4F 50 IX.. POP
000090: 20 48 4C 0D 0A 20 20 20 20 20 20 20 20 20 43 41 HL.. CA
0000A0: 4C 4C 20 52 41 5A 49 44 53 20 20 20 20 20 3B 52 LL RAZIDS ;R
0000B0: 41 5A 20 7A 6F 6E 65 20 49 44 0D 0A 20 3B 0D 0A AZ zone ID.. ;..
0000C0: 20 20 20 20 20 20 20 20 20 4C 44 20 44 45 2C 49 LD DE,I
0000D0: 44 49 4E 44 52 41 0D 0A 20 20 20 20 20 20 20 20 DINDRA..
0000E0: 20 4C 44 20 28 50 54 52 49 44 53 29 2C 44 45 0D LD (PTRIDS),DE.
0000F0: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 48 4C 2C . LD HL,
000100: 28 23 33 39 29 20 20 20 20 20 3B 50 65 74 69 74 (#39) ;Petit
000110: 65 20 6D 6F 64 69 66 69 63 61 74 69 6F 6E 20 0D e modification .
000120: 0A 20 20 20 20 20 20 20 20 20 50 55 53 48 20 48 . PUSH H
000130: 4C 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 L.. ;..
000140: 43 41 4C 4C 20 54 53 54 44 49 44 43 20 20 20 20 CALL TSTDIDC
000150: 3B 43 68 65 72 63 68 65 72 20 64 65 6E 73 69 74 ;Chercher densit
000160: 65 20 65 74 20 64 65 62 75 74 20 70 69 73 74 65 e et debut piste
000170: 0D 0A 20 20 20 20 20 20 20 20 20 58 4F 52 20 41 .. XOR A
000180: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 4E .. LD (N
000190: 42 46 4F 49 53 29 2C 41 0D 0A 20 3B 0D 0A 20 20 BFOIS),A.. ;..
0001A0: 20 20 20 20 20 20 20 44 49 0D 0A 20 20 20 20 20 DI..
0001B0: 20 20 20 20 4C 44 20 48 4C 2C 53 55 42 52 4F 55 LD HL,SUBROU
0001C0: 54 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 T.. LD (
0001D0: 23 33 39 29 2C 48 4C 0D 0A 20 20 20 20 20 20 20 #39),HL..
0001E0: 20 20 4C 44 20 43 2C 23 46 46 20 20 20 20 20 20 LD C,#FF
0001F0: 20 20 3B 23 46 46 20 50 61 72 63 65 20 71 75 27 ;#FF Parce qu'
Size : 512 (Real : 512)
000000: 75 6E 20 73 65 63 74 65 75 72 20 64 65 20 70 6C un secteur de pl
000010: 75 73 20 65 73 74 20 6C 75 0D 0A 20 20 20 20 20 us est lu..
000020: 20 20 20 20 45 49 0D 0A 20 3B 0D 0A 20 4E 45 58 EI.. ;.. NEX
000030: 54 49 44 20 20 49 4E 43 20 43 0D 0A 20 20 20 20 TID INC C..
000040: 20 20 20 20 20 50 55 53 48 20 42 43 0D 0A 20 20 PUSH BC..
000050: 20 20 20 20 20 20 20 43 41 4C 4C 20 49 4E 53 54 CALL INST
000060: 52 55 32 0D 0A 3B 0D 0A 20 20 20 20 20 20 20 20 RU2..;..
000070: 20 48 41 4C 54 20 20 20 20 20 20 20 20 20 20 20 HALT
000080: 20 3B 2A 2A 20 56 4F 49 52 20 54 45 58 54 45 20 ;** VOIR TEXTE
000090: 45 4E 20 54 45 54 45 20 2A 2A 0D 0A 3B 0D 0A 20 EN TETE **..;..
0000A0: 20 20 20 20 20 20 20 20 43 41 4C 4C 20 52 45 53 CALL RES
0000B0: 55 31 20 20 20 20 20 20 3B 52 45 53 55 4C 54 20 U1 ;RESULT
0000C0: 73 61 6E 73 20 44 49 0D 0A 20 20 20 20 20 20 20 sans DI..
0000D0: 20 20 4C 44 20 48 4C 2C 45 54 50 49 53 54 0D 0A LD HL,ETPIST..
0000E0: 20 20 20 20 20 20 20 20 20 4C 44 20 44 45 2C 28 LD DE,(
0000F0: 50 54 52 49 44 53 29 0D 0A 20 20 20 20 20 20 20 PTRIDS)..
000100: 20 20 4C 44 20 42 43 2C 34 20 20 20 20 20 20 20 LD BC,4
000110: 20 20 3B 52 61 6E 67 65 20 34 20 6F 63 74 65 74 ;Range 4 octet
000120: 73 20 64 75 20 72 65 73 75 6C 74 61 74 0D 0A 20 s du resultat..
000130: 20 20 20 20 20 20 20 20 4C 44 49 52 20 0D 0A 20 LDIR ..
000140: 20 20 20 20 20 20 20 20 4C 44 20 28 50 54 52 49 LD (PTRI
000150: 44 53 29 2C 44 45 0D 0A 20 20 20 20 20 20 20 20 DS),DE..
000160: 20 4C 44 20 41 2C 28 4E 42 46 4F 49 53 29 0D 0A LD A,(NBFOIS)..
000170: 20 20 20 20 20 20 20 20 20 43 50 20 36 30 20 20 CP 60
000180: 20 20 20 20 20 20 20 20 20 3B 36 30 20 66 6F 69 ;60 foi
000190: 73 0D 0A 20 20 20 20 20 20 20 20 20 50 4F 50 20 s.. POP
0001A0: 42 43 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 20 BC.. JR
0001B0: 43 2C 4E 45 58 54 49 44 0D 0A 20 3B 0D 0A 20 20 C,NEXTID.. ;..
0001C0: 20 20 20 20 20 20 20 44 49 0D 0A 20 20 20 20 20 DI..
0001D0: 20 20 20 20 50 4F 50 20 48 4C 0D 0A 20 20 20 20 POP HL..
0001E0: 20 20 20 20 20 4C 44 20 28 23 33 39 29 2C 48 4C LD (#39),HL
0001F0: 0D 0A 20 20 20 20 20 20 20 20 20 45 49 0D 0A 20 .. EI..
Size : 512 (Real : 512)
000000: 3B 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 41 ;.. LD A
000010: 2C 43 20 20 20 20 20 20 20 20 20 20 3B 4E 4F 55 ,C ;NOU
000020: 56 45 41 55 20 21 20 53 69 20 61 75 63 75 6E 20 VEAU ! Si aucun
000030: 73 65 63 74 65 75 72 20 70 69 73 74 65 20 6E 6F secteur piste no
000040: 6E 20 66 6F 72 6D 61 74 65 65 0D 0A 20 20 20 20 n formatee..
000050: 20 20 20 20 20 4C 44 20 28 4E 42 53 45 43 29 2C LD (NBSEC),
000060: 41 0D 0A 20 20 20 20 20 20 20 20 20 4F 52 20 41 A.. OR A
000070: 0D 0A 20 20 20 20 20 20 20 20 20 52 45 54 20 5A .. RET Z
000080: 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 43 .. ;.. C
000090: 41 4C 4C 20 49 44 34 54 52 41 4E 53 0D 0A 20 3B ALL ID4TRANS.. ;
0000A0: 0D 0A 20 20 20 20 20 20 20 20 20 50 55 53 48 20 .. PUSH
0000B0: 48 4C 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 HL.. LD
0000C0: 41 2C 28 43 4F 4D 4D 41 4E 44 29 20 20 20 20 3B A,(COMMAND) ;
0000D0: 41 66 66 69 63 68 65 72 20 64 65 6E 73 69 74 65 Afficher densite
0000E0: 0D 0A 20 20 20 20 20 20 20 20 20 43 50 20 23 34 .. CP #4
0000F0: 41 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 41 A.. LD A
000100: 2C 23 46 46 0D 0A 20 20 20 20 20 20 20 20 20 4C ,#FF.. L
000110: 44 20 48 4C 2C 54 44 44 45 4E 53 0D 0A 20 20 20 D HL,TDDENS..
000120: 20 20 20 20 20 20 4A 52 20 5A 2C 53 45 54 44 45 JR Z,SETDE
000130: 4E 53 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 NS.. LD
000140: 41 2C 25 31 30 31 31 31 31 31 31 20 0D 0A 20 20 A,%10111111 ..
000150: 20 20 20 20 20 20 20 4C 44 20 48 4C 2C 54 53 44 LD HL,TSD
000160: 45 4E 53 0D 0A 20 53 45 54 44 45 4E 53 20 43 41 ENS.. SETDENS CA
000170: 4C 4C 20 43 48 47 44 0D 0A 20 20 20 20 20 20 20 LL CHGD..
000180: 20 20 50 4F 50 20 48 4C 0D 0A 20 20 20 20 20 20 POP HL..
000190: 20 20 20 53 43 46 0D 0A 20 20 20 20 20 20 20 20 SCF..
0001A0: 20 52 45 54 0D 0A 20 3B 0D 0A 20 3B 2D 20 43 69 RET.. ;.. ;- Ci
0001B0: 20 64 65 73 73 6F 75 73 20 6C 65 67 65 72 65 20 dessous legere
0001C0: 6D 6F 64 69 66 69 63 61 74 69 6F 6E 20 71 75 69 modification qui
0001D0: 20 70 65 72 6D 65 74 20 64 27 75 74 69 6C 69 73 permet d'utilis
0001E0: 65 72 20 6C 61 20 6D 65 6D 65 20 72 6F 75 74 69 er la meme routi
0001F0: 6E 65 0D 0A 20 3B 2D 20 70 6F 75 72 20 6C 65 73 ne.. ;- pour les
Size : 512 (Real : 512)
000000: 20 32 20 70 72 6F 67 72 61 6D 6D 65 73 20 70 72 2 programmes pr
000010: 65 73 65 6E 74 65 73 0D 0A 20 3B 0D 0A 20 49 44 esentes.. ;.. ID
000020: 46 4F 52 4D 41 54 20 4C 44 20 44 45 2C 46 45 4E FORMAT LD DE,FEN
000030: 49 44 4C 20 3B 41 66 66 69 63 68 65 72 20 6C 61 IDL ;Afficher la
000040: 20 73 65 72 69 65 20 64 27 49 44 53 20 70 6F 75 serie d'IDS pou
000050: 72 20 66 6F 72 6D 61 74 0D 0A 20 20 20 20 20 20 r format..
000060: 20 20 20 4C 44 20 42 43 2C 46 45 4E 49 44 4C 31 LD BC,FENIDL1
000070: 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 20 53 4F .. JR SO
000080: 52 54 49 44 0D 0A 20 3B 0D 0A 20 49 44 53 34 41 RTID.. ;.. IDS4A
000090: 46 46 20 4C 44 20 44 45 2C 46 45 4E 49 44 45 20 FF LD DE,FENIDE
0000A0: 20 3B 41 66 66 69 63 68 65 72 20 6C 61 20 73 65 ;Afficher la se
0000B0: 72 69 65 20 64 27 49 44 53 20 70 6F 75 72 20 61 rie d'IDS pour a
0000C0: 6E 61 6C 79 73 65 0D 0A 20 20 20 20 20 20 20 20 nalyse..
0000D0: 20 4C 44 20 42 43 2C 46 45 4E 49 44 4C 0D 0A 20 LD BC,FENIDL..
0000E0: 3B 0D 0A 20 53 4F 52 54 49 44 20 20 4C 44 20 28 ;.. SORTID LD (
0000F0: 58 46 45 4E 2B 31 29 2C 44 45 0D 0A 20 20 20 20 XFEN+1),DE..
000100: 20 20 20 20 20 4C 44 20 28 58 46 45 4E 31 2B 31 LD (XFEN1+1
000110: 29 2C 42 43 0D 0A 20 20 20 20 20 20 20 20 20 50 ),BC.. P
000120: 55 53 48 20 49 58 0D 0A 20 20 20 20 20 20 20 20 USH IX..
000130: 20 50 4F 50 20 48 4C 0D 0A 20 20 20 20 20 20 20 POP HL..
000140: 20 20 4C 44 20 41 2C 28 4E 42 53 45 43 29 0D 0A LD A,(NBSEC)..
000150: 20 20 20 20 20 20 20 20 20 4C 44 20 42 2C 41 0D LD B,A.
000160: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 43 2C 30 . LD C,0
000170: 0D 0A 20 20 20 20 20 20 20 20 20 50 55 53 48 20 .. PUSH
000180: 42 43 0D 0A 20 3B 0D 0A 20 58 46 45 4E 20 20 20 BC.. ;.. XFEN
000190: 20 43 41 4C 4C 20 46 45 4E 49 44 45 0D 0A 20 20 CALL FENIDE..
0001A0: 20 20 20 20 20 20 20 43 41 4C 4C 20 49 4E 56 0D CALL INV.
0001B0: 0A 20 41 46 46 49 44 53 20 20 43 41 4C 4C 20 41 . AFFIDS CALL A
0001C0: 46 46 34 49 44 0D 0A 20 58 46 45 4E 31 20 20 20 FF4ID.. XFEN1
0001D0: 43 41 4C 4C 20 5A 2C 46 45 4E 49 44 45 31 0D 0A CALL Z,FENIDE1..
0001E0: 20 20 20 20 20 20 20 20 20 44 4A 4E 5A 20 41 46 DJNZ AF
0001F0: 46 49 44 53 0D 0A 20 20 20 20 20 20 20 20 20 43 FIDS.. C
Size : 512 (Real : 512)
000000: 41 4C 4C 20 49 4E 56 0D 0A 20 3B 0D 0A 20 20 20 ALL INV.. ;..
000010: 20 20 20 20 20 20 50 4F 50 20 42 43 0D 0A 20 20 POP BC..
000020: 20 20 20 20 20 20 20 52 45 54 0D 0A 20 3B 0D 0A RET.. ;..
000030: 20 3B 2D 20 41 66 66 69 63 68 61 67 65 20 64 65 ;- Affichage de
000040: 73 20 49 44 53 20 65 6E 20 32 20 63 6F 6C 6F 6E s IDS en 2 colon
000050: 6E 65 73 20 2D 0D 0A 20 3B 0D 0A 20 41 46 46 34 nes -.. ;.. AFF4
000060: 49 44 20 20 50 55 53 48 20 42 43 0D 0A 20 20 20 ID PUSH BC..
000070: 20 20 20 20 20 20 4C 44 20 42 2C 34 20 0D 0A 20 LD B,4 ..
000080: 20 20 20 20 20 20 20 20 43 41 4C 4C 20 53 50 41 CALL SPA
000090: 43 45 0D 0A 20 42 43 4C 41 46 49 44 20 4C 44 20 CE.. BCLAFID LD
0000A0: 41 2C 28 48 4C 29 20 20 20 20 20 20 20 20 20 3B A,(HL) ;
0000B0: 41 66 66 2E 20 65 74 20 63 6F 70 2E 49 64 73 20 Aff. et cop.Ids
0000C0: 64 61 6E 73 20 62 75 66 2E 66 6F 72 6D 61 74 0D dans buf.format.
0000D0: 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 50 . CALL P
0000E0: 52 54 48 45 58 31 0D 0A 20 20 20 20 20 20 20 20 RTHEX1..
0000F0: 20 49 4E 43 20 48 4C 0D 0A 20 20 20 20 20 20 20 INC HL..
000100: 20 20 44 4A 4E 5A 20 42 43 4C 41 46 49 44 0D 0A DJNZ BCLAFID..
000110: 20 20 20 20 20 20 20 20 20 50 4F 50 20 42 43 0D POP BC.
000120: 0A 20 54 53 54 43 20 20 20 20 49 4E 43 20 43 0D . TSTC INC C.
000130: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 41 2C 43 . LD A,C
000140: 0D 0A 20 20 20 20 20 20 20 20 20 43 50 20 31 36 .. CP 16
000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 54 65 ;Te
000160: 73 74 65 72 20 73 69 20 31 36 20 49 44 53 20 73 ster si 16 IDS s
000170: 6F 72 74 69 73 0D 0A 20 20 20 20 20 20 20 20 20 ortis..
000180: 52 45 54 0D 0A 20 54 53 54 43 31 20 20 20 43 41 RET.. TSTC1 CA
000190: 4C 4C 20 54 53 54 43 0D 0A 20 20 20 20 20 20 20 LL TSTC..
0001A0: 20 20 52 45 54 20 5A 0D 0A 20 20 20 20 20 20 20 RET Z..
0001B0: 20 20 43 50 20 33 32 0D 0A 20 20 20 20 20 20 20 CP 32..
0001C0: 20 20 52 45 54 20 4E 5A 0D 0A 20 20 20 20 20 20 RET NZ..
0001D0: 20 20 20 4C 44 20 41 2C 31 31 0D 0A 20 20 20 20 LD A,11..
0001E0: 20 20 20 20 20 43 41 4C 4C 20 23 42 42 35 41 20 CALL #BB5A
0001F0: 20 3B 41 6E 6E 75 6C 65 72 20 6C 65 20 64 65 72 ;Annuler le der
Size : 512 (Real : 512)
000000: 6E 69 65 72 20 43 52 20 73 69 6E 6F 6E 20 73 63 nier CR sinon sc
000010: 72 6F 6C 6C 20 46 45 4E 32 20 73 69 20 33 32 20 roll FEN2 si 32
000020: 73 65 63 74 65 75 72 73 0D 0A 20 20 20 20 20 20 secteurs..
000030: 20 20 20 58 4F 52 20 41 0D 0A 20 20 20 20 20 20 XOR A..
000040: 20 20 20 49 4E 43 20 41 20 20 20 20 20 20 20 20 INC A
000050: 20 20 20 20 20 3B 53 45 54 20 4E 5A 0D 0A 20 20 ;SET NZ..
000060: 20 20 20 20 20 20 20 52 45 54 0D 0A 20 3B 0D 0A RET.. ;..
000070: 20 49 44 34 54 52 41 4E 53 20 4C 44 20 48 4C 2C ID4TRANS LD HL,
000080: 49 44 49 4E 44 52 41 0D 0A 20 49 44 54 52 41 4E IDINDRA.. IDTRAN
000090: 53 34 20 50 55 53 48 20 42 43 0D 0A 20 20 20 20 S4 PUSH BC..
0000A0: 20 20 20 20 20 50 55 53 48 20 44 45 0D 0A 20 20 PUSH DE..
0000B0: 20 20 20 20 20 20 20 4C 44 20 44 45 2C 51 55 41 LD DE,QUA
0000C0: 54 52 49 44 0D 0A 20 20 20 20 20 20 20 20 20 4C TRID.. L
0000D0: 44 20 42 43 2C 34 0D 0A 20 20 20 20 20 20 20 20 D BC,4..
0000E0: 20 4C 44 49 52 0D 0A 20 20 20 20 20 20 20 20 20 LDIR..
0000F0: 50 4F 50 20 44 45 0D 0A 20 20 20 20 20 20 20 20 POP DE..
000100: 20 50 4F 50 20 42 43 0D 0A 20 20 20 20 20 20 20 POP BC..
000110: 20 20 52 45 54 0D 0A 20 3B 0D 0A 20 53 55 42 52 RET.. ;.. SUBR
000120: 4F 55 54 20 44 49 20 0D 0A 20 20 20 20 20 20 20 OUT DI ..
000130: 20 20 50 55 53 48 20 48 4C 20 0D 0A 20 20 20 20 PUSH HL ..
000140: 20 20 20 20 20 4C 44 20 48 4C 2C 4E 42 46 4F 49 LD HL,NBFOI
000150: 53 20 0D 0A 20 20 20 20 20 20 20 20 20 49 4E 43 S .. INC
000160: 20 28 48 4C 29 20 0D 0A 20 20 20 20 20 20 20 20 (HL) ..
000170: 20 50 4F 50 20 48 4C 0D 0A 20 20 20 20 20 20 20 POP HL..
000180: 20 20 45 49 0D 0A 20 20 20 20 20 20 20 20 20 52 EI.. R
000190: 45 54 0D 0A 20 3B 0D 0A 20 4E 42 46 4F 49 53 20 ET.. ;.. NBFOIS
0001A0: 20 44 42 20 30 0D 0A 20 50 54 52 49 44 53 20 20 DB 0.. PTRIDS
0001B0: 44 45 46 57 20 30 0D 0A 3B 0D 0A 20 20 20 20 20 DEFW 0..;..
0001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001D0: 20 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D ---------
0001E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 20 ------------..
0001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 2D 20 45 54 55 44 - ETUD
000010: 45 20 44 45 20 4C 41 20 50 49 53 54 45 20 2D 0D E DE LA PISTE -.
000020: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 2D 2D 2D ---
000040: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000050: 2D 2D 0D 0A 0D 0A 20 20 4E 6F 75 73 20 70 72 7B --.... Nous pr{
000060: 73 65 6E 74 6F 6E 73 20 69 63 69 20 6C 27 61 6C sentons ici l'al
000070: 67 6F 72 79 74 68 6D 65 20 54 52 45 53 20 73 69 gorythme TRES si
000080: 6D 70 6C 69 66 69 9F E1 20 64 65 73 20 33 20 73 mplifi.. des 3 s
000090: 65 63 74 69 6F 6E 73 20 73 75 69 76 61 6E 74 65 ections suivante
0000A0: 73 0D 0A 0D 0A 20 20 20 20 20 20 20 20 20 20 20 s....
0000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000C0: 20 20 52 2E 41 2E 5A 20 44 45 53 20 56 41 52 49 R.A.Z DES VARI
0000D0: 41 42 4C 45 53 0D 0A 20 20 20 20 20 20 20 20 20 ABLES..
0000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0D 0A !..
000100: 20 20 20 20 20 20 20 20 20 20 4D 41 52 51 55 45 MARQUE
000110: 52 20 4C 41 20 50 52 45 53 45 4E 43 45 20 45 56 R LA PRESENCE EV
000120: 45 4E 54 55 45 4C 4C 45 20 44 45 20 53 45 43 54 ENTUELLE DE SECT
000130: 45 55 52 53 20 4D 2E 41 2E 4D 20 4F 55 20 43 52 EURS M.A.M OU CR
000140: 2F 44 44 0D 0A 20 20 20 20 20 20 20 20 20 20 20 /DD..
000150: 20 20 20 20 20 4D 45 4D 4F 52 49 53 45 52 20 4C MEMORISER L
000160: 41 20 54 41 49 4C 4C 45 20 44 55 20 50 4C 55 53 A TAILLE DU PLUS
000170: 20 47 52 41 4E 44 20 53 45 43 54 45 55 52 20 4F GRAND SECTEUR O
000180: 4B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 K..
000190: 20 20 20 4D 45 4D 4F 52 49 53 45 52 20 4C 41 20 MEMORISER LA
0001A0: 54 41 49 4C 4C 45 20 44 55 20 50 4C 55 53 20 50 TAILLE DU PLUS P
0001B0: 45 54 49 54 20 53 45 43 54 45 55 52 20 4F 4B 0D ETIT SECTEUR OK.
0001C0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 4E 4F 54 . NOT
0001D0: 45 52 20 4C 41 20 50 52 45 53 45 4E 43 45 20 45 ER LA PRESENCE E
0001E0: 56 45 4E 54 55 45 4C 4C 45 20 44 45 20 50 4C 55 VENTUELLE DE PLU
0001F0: 53 49 45 55 52 53 20 54 41 49 4C 4C 45 53 20 4F SIEURS TAILLES O
Size : 512 (Real : 512)
000000: 4B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 K..
000010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000020: 20 20 20 20 20 20 20 20 20 21 0D 0A 20 20 20 20 !..
000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000040: 20 20 20 20 20 20 20 20 56 4F 49 52 20 53 49 20 VOIR SI
000050: 4D 2E 41 2E 4D 20 45 4E 20 54 45 54 45 0D 0A 20 M.A.M EN TETE..
000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000080: 20 20 20 20 20 21 0D 0A 20 20 20 20 20 20 20 20 !..
000090: 20 20 20 20 20 20 20 20 20 20 2B 2D 2D 2D 2D 2D +-----
0000A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 3C 20 4E 4F 4E 20 4F ---------< NON O
0000B0: 55 49 20 3E 2D 2D 2D 2D 2D 2D 2B 0D 0A 20 20 20 UI >------+..
0000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 !
0000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 !
0000F0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
000100: 20 20 20 20 21 20 20 20 20 20 20 20 20 20 20 20 !
000110: 55 4E 20 53 45 55 4C 20 53 45 43 54 45 55 52 20 UN SEUL SECTEUR
000120: 3F 20 3C 2D 2B 0D 0A 20 20 20 20 20 20 20 20 20 ? <-+..
000130: 20 20 20 20 20 20 20 20 20 21 20 20 20 20 20 20 !
000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0D 0A !..
000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000160: 20 20 21 20 20 2B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ! +----------
000170: 2D 3C 20 4E 4F 4E 20 4F 55 49 20 3E 2D 2D 2D 2D -< NON OUI >----
000180: 2D 2D 2D 2D 2D 2D 3E 20 50 49 46 4F 4D 45 54 52 ------> PIFOMETR
000190: 45 20 45 54 20 46 49 4E 49 0D 0A 20 20 20 20 20 E ET FINI..
0001A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 20 !
0001B0: 21 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 !..
0001C0: 20 20 20 20 20 21 20 20 2B 2D 2D 2D 3E 20 56 4F ! +---> VO
0001D0: 49 52 20 53 49 20 45 58 49 53 54 45 20 55 4E 20 IR SI EXISTE UN
0001E0: 43 52 2F 44 44 0D 0A 20 20 20 20 20 20 20 20 20 CR/DD..
0001F0: 20 20 20 20 20 20 20 20 20 21 20 20 20 20 20 20 !
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0D 0A !..
000010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2B 2D +-
000020: 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D --!-------------
000030: 2D 3C 20 4E 4F 4E 20 4F 55 49 20 3E 2D 2D 2D 2D -< NON OUI >----
000040: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2B 0D 0A 20 20 20 20 ---------+..
000050: 20 20 20 20 20 20 20 20 20 20 21 20 20 20 21 20 ! !
000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000080: 20 20 20 20 20 21 0D 0A 20 20 20 20 20 20 20 20 !..
000090: 20 20 20 20 20 20 21 20 20 20 2B 2D 2D 2D 2D 2D ! +-----
0000A0: 2D 3E 20 52 45 43 48 45 52 43 48 45 20 50 41 52 -> RECHERCHE PAR
0000B0: 20 53 4F 4C 55 54 49 4F 4E 31 20 20 20 20 20 20 SOLUTION1
0000C0: 20 21 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 !..
0000D0: 20 20 21 20 20 20 20 20 20 20 20 20 20 20 20 20 !
0000E0: 20 20 20 20 20 20 52 45 55 53 53 49 45 20 3F 20 REUSSIE ?
0000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0D 0A !..
000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 !
000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000120: 20 20 20 20 20 20 21 20 20 20 20 20 20 20 20 20 !
000130: 20 20 20 20 20 20 20 20 20 21 0D 0A 20 20 20 20 !..
000140: 20 20 20 20 20 20 20 20 20 20 21 20 20 20 20 2B ! +
000150: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 3C 20 4E -------------< N
000160: 4F 4E 20 4F 55 49 20 3E 2D 2D 2D 2D 2D 2D 2D 2D ON OUI >--------
000170: 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2B 0D 0A 20 20 20 -----!----+..
000180: 20 20 20 20 20 20 20 20 20 20 20 21 20 20 20 20 !
000190: 21 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 !
0001A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001B0: 20 20 20 20 20 20 21 20 20 20 20 21 0D 0A 20 20 ! !..
0001C0: 20 20 20 20 20 20 20 20 20 20 20 20 21 20 20 20 !
0001D0: 20 2B 2D 3E 20 52 45 43 48 45 52 43 48 45 52 20 +-> RECHERCHER
0001E0: 54 41 49 4C 4C 45 20 4D 41 58 49 20 50 4F 53 53 TAILLE MAXI POSS
0001F0: 49 42 4C 45 20 3C 2D 2B 20 20 20 20 21 0D 0A 20 IBLE <-+ !..
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 20 !
000010: 20 20 20 20 20 20 56 4F 49 52 20 53 49 20 45 58 VOIR SI EX
000020: 49 53 54 45 20 55 4E 20 43 52 2F 44 44 20 3E 20 ISTE UN CR/DD >
000030: 4C 4D 41 58 20 20 20 20 20 20 20 20 20 21 0D 0A LMAX !..
000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 !
000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000060: 20 20 20 20 20 20 21 20 20 20 20 20 20 20 20 20 !
000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0D !.
000080: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 . !
000090: 20 20 2B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D +-------------
0000A0: 2D 2D 3C 20 4E 4F 4E 20 4F 55 49 20 3E 2D 2D 2D --< NON OUI >---
0000B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2B 20 20 21 ------------+ !
0000C0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
0000D0: 21 20 20 21 20 20 20 20 20 20 20 20 20 20 20 20 ! !
0000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 20 !
000100: 21 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 !..
000110: 20 21 20 20 21 20 20 56 4F 49 52 20 53 49 20 43 ! ! VOIR SI C
000120: 52 2F 44 44 20 50 52 4F 56 4F 51 55 45 20 4F 55 R/DD PROVOQUE OU
000130: 20 41 43 43 49 44 45 4E 54 45 4C 20 3C 2D 2B 20 ACCIDENTEL <-+
000140: 20 21 0D 0A 20 53 4F 4C 55 54 49 4F 4E 35 20 3C !.. SOLUTION5 <
000150: 2D 2D 21 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 2D 3C 20 --!--!--------<
000160: 41 43 43 49 44 45 4E 54 45 4C 20 2F 20 50 52 4F ACCIDENTEL / PRO
000170: 56 4F 51 55 45 20 3E 2D 2D 2B 20 20 20 20 20 20 VOQUE >--+
000180: 20 20 21 0D 0A 50 4F 55 52 20 20 50 49 53 54 45 !..POUR PISTE
000190: 20 20 20 21 20 20 21 20 20 20 20 20 20 20 20 20 ! !
0001A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001B0: 20 20 20 20 20 20 20 20 20 20 21 20 20 20 20 20 !
0001C0: 20 20 20 21 0D 0A 20 20 41 42 49 4D 45 45 20 20 !.. ABIMEE
0001D0: 20 20 20 20 21 20 20 21 20 20 20 20 20 20 20 20 ! !
0001E0: 20 20 20 52 45 43 48 45 52 43 48 45 20 50 41 52 RECHERCHE PAR
0001F0: 20 43 52 2F 44 44 20 3C 2D 2D 2D 2B 20 20 20 20 CR/DD <---+
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000010: 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------
000020: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000030: 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 20 20 20 20 20 20 -------..
000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2D -
000050: 20 49 4E 54 52 4F 44 55 43 54 49 4F 4E 20 41 20 INTRODUCTION A
000060: 4C 41 20 53 45 43 54 49 4F 4E 20 46 44 43 20 2D LA SECTION FDC -
000070: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
000080: 20 20 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D --------
000090: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0000A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 0D 0A 20 20 20 ---------....
0000B0: 20 20 4C 27 65 6E 73 65 6D 62 6C 65 20 64 65 73 L'ensemble des
0000C0: 20 66 69 63 68 69 65 72 73 20 27 2E 4D 41 58 27 fichiers '.MAX'
0000D0: 20 64 7B 64 69 7B 73 20 61 75 20 20 46 44 43 20 d{di{s au FDC
0000E0: 64 7B 70 61 73 73 65 20 6D 61 69 6E 74 65 6E 61 d{passe maintena
0000F0: 6E 74 20 39 30 4B 20 2E 20 49 6C 0D 0A 20 64 65 nt 90K . Il.. de
000100: 76 69 65 6E 74 20 69 6D 70 6F 73 73 69 62 6C 65 vient impossible
000110: 20 64 65 20 20 6C 65 73 20 20 61 64 6A 6F 69 6E de les adjoin
000120: 64 72 65 20 20 64 61 6E 73 20 20 53 4F 53 20 20 dre dans SOS
000130: 50 52 4F 47 52 41 4D 4D 45 55 52 53 20 20 2E 20 PROGRAMMEURS .
000140: 20 53 65 75 6C 65 73 20 6C 65 73 0D 0A 20 6D 6F Seules les.. mo
000150: 64 69 66 69 63 61 74 69 6F 6E 73 20 65 74 20 20 difications et
000160: 6E 6F 75 76 65 6C 6C 65 73 20 20 72 6F 75 74 69 nouvelles routi
000170: 6E 65 73 20 20 73 65 72 6F 6E 74 20 20 64 7B 74 nes seront d{t
000180: 61 69 6C 6C 7B 65 73 20 20 64 61 6E 73 20 20 6C aill{es dans l
000190: 65 73 20 66 69 63 68 69 65 72 73 0D 0A 20 27 2E es fichiers.. '.
0001A0: 41 53 43 27 20 2E 20 53 69 20 76 6F 75 73 20 64 ASC' . Si vous d
0001B0: 7B 73 69 72 65 7A 20 6C 27 65 6E 73 65 6D 62 6C {sirez l'ensembl
0001C0: 65 20 20 64 65 73 20 20 66 69 63 68 69 65 72 73 e des fichiers
0001D0: 20 27 2E 4D 41 58 27 20 2C 20 65 6E 76 6F 79 65 '.MAX' , envoye
0001E0: 7A 20 75 6E 20 64 69 73 71 75 65 0D 0A 20 76 69 z un disque.. vi
0001F0: 65 72 67 65 20 65 74 20 75 6E 65 20 65 6E 76 65 erge et une enve
Size : 512 (Real : 512)
000000: 6C 6F 70 70 65 20 61 66 66 72 61 6E 63 68 69 65 loppe affranchie
000010: 20 40 20 33 2C 37 30 46 20 40 20 6C 27 61 64 72 @ 3,70F @ l'adr
000020: 65 73 73 65 20 68 61 62 69 74 75 65 6C 6C 65 20 esse habituelle
000030: 2E 0D 0A 0D 0A 20 20 20 20 43 65 74 74 65 20 66 ..... Cette f
000040: 6F 69 73 20 63 69 20 20 63 27 65 73 74 20 20 64 ois ci c'est d
000050: 27 75 6E 20 20 63 6F 70 69 65 75 72 20 20 63 6F 'un copieur co
000060: 6D 70 6C 65 74 20 20 71 75 27 69 6C 20 20 73 27 mplet qu'il s'
000070: 61 67 69 74 20 20 2E 20 4C 61 20 20 73 65 63 74 agit . La sect
000080: 69 6F 6E 0D 0A 20 74 68 7B 6F 72 69 65 20 73 65 ion.. th{orie se
000090: 20 20 72 61 70 70 6F 72 74 65 20 20 65 73 73 65 rapporte esse
0000A0: 6E 74 69 65 6C 6C 65 6D 65 6E 74 20 20 61 75 78 ntiellement aux
0000B0: 20 20 73 65 63 74 65 75 72 73 20 20 7B 63 72 61 secteurs {cra
0000C0: 73 7B 73 20 20 2E 20 20 44 65 73 20 6E 6F 74 69 s{s . Des noti
0000D0: 6F 6E 73 0D 0A 20 63 6F 6D 70 6C 7B 6D 65 6E 74 ons.. compl{ment
0000E0: 61 69 72 65 73 20 73 6F 6E 74 20 6A 6F 69 6E 74 aires sont joint
0000F0: 65 73 20 61 75 20 6D 6F 64 65 20 64 27 65 6D 70 es au mode d'emp
000100: 6C 6F 69 20 64 75 20 62 69 64 6F 75 69 6C 6C 65 loi du bidouille
000110: 75 72 20 2E 20 4C 65 73 20 70 72 6F 67 72 61 6D ur . Les program
000120: 6D 65 73 0D 0A 20 62 69 64 6F 75 69 6C 6C 65 75 mes.. bidouilleu
000130: 72 20 65 74 20 20 63 6F 70 69 65 75 72 20 20 61 r et copieur a
000140: 76 65 63 20 20 6C 65 75 72 20 20 6E 6F 74 69 63 vec leur notic
000150: 65 20 20 73 6F 6E 74 20 20 73 75 72 20 20 6C 27 e sont sur l'
000160: 61 75 74 72 65 20 20 66 61 63 65 20 20 64 65 20 autre face de
000170: 20 6C 61 0D 0A 20 64 69 73 71 75 65 74 74 65 20 la.. disquette
000180: 2E 20 43 65 73 20 32 20 70 72 6F 67 72 61 6D 6D . Ces 2 programm
000190: 65 73 20 75 74 69 6C 69 73 65 6E 74 20 20 6C 61 es utilisent la
0001A0: 20 20 74 6F 74 61 6C 69 74 7B 20 20 64 65 20 6C totalit{ de l
0001B0: 61 20 20 6D 7B 6D 6F 69 72 65 20 64 75 20 43 50 a m{moire du CP
0001C0: 43 20 2E 0D 0A 20 49 6C 73 20 6E 65 20 70 65 72 C ... Ils ne per
0001D0: 6D 65 74 74 65 6E 74 20 70 6C 75 73 20 64 65 20 mettent plus de
0001E0: 72 65 76 65 6E 69 72 20 61 75 20 6D 65 6E 75 20 revenir au menu
0001F0: 64 65 20 53 4F 53 20 50 52 4F 47 52 41 4D 4D 45 de SOS PROGRAMME
Size : 512 (Real : 512)
000000: 55 52 53 20 2E 20 41 70 72 7D 73 20 75 73 61 67 URS . Apr}s usag
000010: 65 20 2C 0D 0A 20 66 61 69 74 65 73 20 75 6E 20 e ,.. faites un
000020: 52 45 53 45 54 20 65 74 20 72 65 6C 61 6E 63 65 RESET et relance
000030: 7A 20 53 4F 53 20 50 52 4F 47 52 41 4D 4D 45 55 z SOS PROGRAMMEU
000040: 52 53 20 2E 0D 0A 20 20 20 20 53 65 75 6C 20 6C RS ... Seul l
000050: 65 20 63 6F 64 65 20 20 62 69 6E 61 69 72 65 20 e code binaire
000060: 20 64 75 20 20 70 72 6F 67 72 61 6D 6D 65 20 20 du programme
000070: 62 69 64 6F 75 69 6C 6C 65 75 72 20 20 65 73 74 bidouilleur est
000080: 20 20 6A 6F 69 6E 74 20 20 2E 20 4C 61 20 20 70 joint . La p
000090: 6C 61 63 65 0D 0A 20 64 69 73 70 6F 6E 69 62 6C lace.. disponibl
0000A0: 65 20 65 73 74 20 74 72 6F 70 20 6C 69 6D 69 74 e est trop limit
0000B0: 7B 65 20 70 6F 75 72 20 70 61 73 73 65 72 20 20 {e pour passer
0000C0: 75 6E 20 20 73 65 75 6C 20 20 7B 6C 7B 6D 65 6E un seul {l{men
0000D0: 74 20 64 65 20 63 6F 64 65 20 73 6F 75 72 63 65 t de code source
0000E0: 20 71 75 69 0D 0A 20 6E 27 65 73 74 20 61 75 74 qui.. n'est aut
0000F0: 72 65 20 71 75 27 75 6E 65 20 61 64 61 70 74 61 re qu'une adapta
000100: 74 69 6F 6E 20 64 65 73 20 76 65 72 73 69 6F 6E tion des version
000110: 73 20 70 72 7B 63 7B 64 65 6E 74 65 73 20 73 75 s pr{c{dentes su
000120: 72 20 6C 61 71 75 65 6C 6C 65 20 73 65 20 67 72 r laquelle se gr
000130: 65 66 66 65 0D 0A 20 6C 65 20 6E 6F 75 76 65 6C effe.. le nouvel
000140: 20 61 6E 61 6C 79 73 65 75 72 20 75 74 69 6C 69 analyseur utili
000150: 73 7B 20 70 61 72 20 6C 65 20 63 6F 70 69 65 75 s{ par le copieu
000160: 72 20 2E 0D 0A 0D 0A 20 20 20 20 20 20 20 20 20 r .....
000170: 20 20 20 20 20 20 20 2D 20 46 49 4E 20 44 45 20 - FIN DE
000180: 53 45 43 54 49 4F 4E 20 2E 20 53 55 49 54 45 20 SECTION . SUITE
000190: 44 41 4E 53 20 3A 20 54 48 45 4F 52 49 45 20 46 DANS : THEORIE F
0001A0: 44 43 20 2D 0D 0A 1A 2D 2D 2D 2D 2D 2D 2D 2D 2D DC -...---------
0001B0: 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 20 20 20 20 20 20 -------..
0001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2D -
0001D0: 20 49 4E 54 52 4F 44 55 43 54 49 4F 4E 20 41 20 INTRODUCTION A
0001E0: 4C 41 20 53 45 43 54 49 4F 4E 20 46 44 43 20 2D LA SECTION FDC -
0001F0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
Size : 512 (Real : 512)
000000: 00 20 00 62 08 03 00 00 E1 EF 22 66 64 63 32 2E . .b......"fdc2.
000010: 61 73 63 22 01 9F 20 1E 3E 4E 01 A0 20 1E 3C 00 asc".. .>N.. .<.
000020: 00 07 00 66 08 01 C0 00 F4 00 70 08 03 00 00 E1 ...f......p.....
000030: 28 0E 29 EF 22 20 4C 65 63 74 75 72 65 20 20 70 (.)." Lecture p
000040: 68 79 73 69 71 75 65 20 22 01 03 00 00 E1 28 0F hysique ".....(.
000050: 29 EF 22 20 45 63 72 69 74 75 72 65 20 73 65 63 )." Ecriture sec
000060: 74 65 75 72 73 20 22 01 03 00 00 E1 28 10 29 EF teurs ".....(.).
000070: 22 20 45 64 69 74 69 6F 6E 20 20 20 20 62 75 66 " Edition buf
000080: 66 65 72 20 22 01 03 00 00 E1 28 11 29 EF 22 20 fer ".....(.)."
000090: 43 72 65 65 72 20 20 75 6E 65 20 20 70 69 73 74 Creer une pist
0000A0: 65 20 22 01 03 00 00 E1 28 12 29 EF 22 20 4D 6F e ".....(.)." Mo
0000B0: 64 69 66 69 63 61 74 69 6F 6E 73 20 67 65 6E 2E difications gen.
0000C0: 22 01 03 00 00 E1 28 13 29 EF 22 20 4D 6F 64 65 ".....(.)." Mode
0000D0: 20 65 6D 70 6C 6F 69 20 70 72 6F 67 2E 20 22 01 emploi prog. ".
0000E0: 03 00 00 E1 28 14 29 EF 22 20 4C 61 6E 63 65 72 ....(.)." Lancer
0000F0: 20 20 70 72 6F 67 72 61 6D 6D 65 20 22 01 01 C0 programme "...
000100: 61 24 28 37 29 3D 22 20 20 55 74 69 6C 69 73 61 a$(7)=" Utilisa
000110: 74 69 6F 6E 20 44 65 6D 6F 20 22 00 22 00 71 08 tion Demo ".".q.
000120: 01 C0 61 24 28 38 29 3D 22 20 20 41 63 63 65 73 ..a$(8)=" Acces
000130: 20 20 70 72 6F 67 72 61 6D 6D 65 20 22 00 1D 00 programme "...
000140: 75 08 0D 00 00 6D 61 78 E9 EF 14 01 0D 00 00 E4 u....max........
000150: EF 10 01 0D 00 00 E5 EF 19 13 00 54 00 7A 08 0B ...........T.z..
000160: 00 00 77 B1 EF 19 0B 01 0B 00 00 77 B2 EF 19 1E ..w........w....
000170: 01 0B 00 00 77 B3 EF 19 0A 01 0B 00 00 77 B4 EF ....w........w..
000180: 19 15 01 0B 00 00 E1 EF 0E 01 0B 00 00 64 E8 EF .............d..
000190: 19 0E 01 0B 00 00 64 EC EF 19 0E 01 9F 20 1E 98 ......d...... ..
0001A0: 4E 01 0B 00 00 79 B1 EF 0B 00 00 F9 F4 0F 00 23 N....y.........#
0001B0: 00 84 08 9F 20 1E A6 13 01 A1 20 0B 00 00 E1 F2 .... ..... .....
0001C0: F5 19 10 20 EB 20 9F 20 1E FC 4E 01 A0 20 1E F8 ... . . ..N.. ..
0001D0: 07 00 2E 00 8E 08 A1 20 FF 75 28 03 00 00 E1 28 ....... .u(....(
0001E0: 0B 00 00 E9 29 2C 0F 29 EF 22 7E 22 EB 20 9F 20 ....),.)."~". .
0001F0: 1E CE 27 01 9F 20 1E B0 13 01 A0 20 1E 8E 08 00 ..'.. ..... ....
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000010: 20 20 20 20 20 20 20 20 20 20 20 20 20 2D 2D 2D ---
000020: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000030: 2D 2D 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 --..
000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000050: 20 2D 20 54 48 45 4F 52 49 45 20 46 44 43 20 53 - THEORIE FDC S
000060: 4F 53 20 34 20 2D 0D 0A 20 20 20 20 20 20 20 20 OS 4 -..
000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000080: 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D -----------
000090: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 0D 0A 20 ----------.. ..
0000A0: 20 20 20 20 45 43 52 41 53 45 4D 45 4E 54 20 44 ECRASEMENT D
0000B0: 45 20 53 45 43 54 45 55 52 53 20 3A 0D 0A 20 0D E SECTEURS :.. .
0000C0: 0A 20 20 20 20 20 43 27 65 73 74 20 73 75 72 20 . C'est sur
0000D0: 63 65 20 70 6F 69 6E 74 20 71 75 65 20 70 6F 72 ce point que por
0000E0: 74 65 72 61 20 6C 27 65 73 73 65 6E 74 69 65 6C tera l'essentiel
0000F0: 20 20 64 65 20 20 6C 61 20 74 68 7B 6F 72 69 65 de la th{orie
000100: 20 64 65 20 63 65 20 6E 75 6D 7B 72 6F 20 2E 0D de ce num{ro ..
000110: 0A 20 43 27 65 73 74 20 65 6E 20 65 66 66 65 74 . C'est en effet
000120: 20 70 61 72 20 63 65 20 70 72 6F 63 7B 64 7B 20 par ce proc{d{
000130: 71 75 65 20 20 6C 27 6F 6E 20 70 65 75 74 20 63 que l'on peut c
000140: 72 7B 7B 72 20 64 65 73 20 70 69 73 74 65 73 20 r{{r des pistes
000150: 69 6E 63 6F 70 69 61 62 6C 65 73 20 70 61 72 0D incopiables par.
000160: 0A 20 6C 65 73 20 63 6F 70 69 65 75 72 73 20 61 . les copieurs a
000170: 63 74 75 65 6C 73 20 28 79 2D 63 6F 6D 70 72 69 ctuels (y-compri
000180: 73 20 63 65 6C 75 69 20 70 72 7B 73 65 6E 74 7B s celui pr{sent{
000190: 20 20 69 63 69 29 20 2E 20 44 65 73 20 65 78 65 ici) . Des exe
0001A0: 6D 70 6C 65 73 20 70 72 61 74 69 71 75 65 73 0D mples pratiques.
0001B0: 0A 20 73 6F 6E 74 20 64 6F 6E 6E 7B 73 20 61 76 . sont donn{s av
0001C0: 65 63 20 6C 65 20 6D 6F 64 65 20 64 27 65 6D 70 ec le mode d'emp
0001D0: 6C 6F 69 20 64 75 20 62 69 64 6F 75 69 6C 6C 65 loi du bidouille
0001E0: 75 72 20 28 53 75 72 20 6C 27 61 75 74 72 65 20 ur (Sur l'autre
0001F0: 66 61 63 65 29 20 2E 0D 0A 20 0D 0A 20 20 20 20 face) ... ..
Size : 512 (Real : 512)
000000: 20 44 65 70 75 69 73 20 6C 65 20 74 65 6D 70 73 Depuis le temps
000010: 20 2C 20 76 6F 75 73 20 20 61 76 65 7A 20 20 64 , vous avez d
000020: 75 20 20 61 70 70 72 65 6E 64 72 65 20 20 71 75 u apprendre qu
000030: 65 20 20 6C 65 73 20 20 49 44 53 20 64 65 20 6C e les IDS de l
000040: 6F 6E 67 75 65 75 72 20 64 65 0D 0A 20 73 65 63 ongueur de.. sec
000050: 74 65 75 72 73 20 64 6F 6E 6E 7B 73 20 63 6F 6D teurs donn{s com
000060: 6D 65 20 70 61 72 61 6D 7D 74 72 65 73 20 64 65 me param}tres de
000070: 20 66 6F 72 6D 61 74 61 67 65 20 73 6F 6E 74 20 formatage sont
000080: 74 6F 75 74 20 40 20 66 61 69 74 20 69 6E 64 69 tout @ fait indi
000090: 66 66 7B 72 65 6E 74 73 20 2E 0D 0A 20 0D 0A 20 ff{rents ... ..
0000A0: 20 20 20 20 45 78 65 6D 70 6C 65 20 3A 20 44 6F Exemple : Do
0000B0: 6E 6E 7B 65 73 20 67 7B 6E 7B 72 61 6C 65 73 20 nn{es g{n{rales
0000C0: 3A 20 31 33 20 73 65 63 74 65 75 72 73 20 64 65 : 13 secteurs de
0000D0: 20 74 61 69 6C 6C 65 20 30 20 47 41 50 23 33 20 taille 0 GAP#3
0000E0: 71 75 65 6C 63 6F 6E 71 75 65 20 2E 0D 0A 20 0D quelconque ... .
0000F0: 0A 20 20 20 20 20 45 74 20 6C 61 20 20 73 7B 72 . Et la s{r
000100: 69 65 20 20 64 27 49 44 53 20 20 73 75 69 76 61 ie d'IDS suiva
000110: 6E 74 73 20 20 6F 75 20 20 70 69 73 74 65 20 20 nts ou piste
000120: 2C 20 20 68 65 61 64 20 20 2C 20 20 6E 75 6D 7B , head , num{
000130: 72 6F 20 20 64 65 20 73 65 63 74 65 75 72 73 0D ro de secteurs.
000140: 0A 20 73 6F 6E 74 20 69 6E 64 69 66 66 7B 72 65 . sont indiff{re
000150: 6E 74 73 20 70 6F 75 72 20 63 65 20 71 75 69 20 nts pour ce qui
000160: 6E 6F 75 73 20 69 6E 74 7B 72 65 73 73 65 20 3A nous int{resse :
000170: 0D 0A 20 0D 0A 20 20 20 46 4F 52 4D 41 54 45 52 .. .. FORMATER
000180: 20 20 20 21 20 20 41 50 52 45 53 20 46 4F 52 4D ! APRES FORM
000190: 41 54 41 47 45 20 20 20 20 21 20 20 41 50 52 45 ATAGE ! APRE
0001A0: 53 20 45 43 52 49 54 55 52 45 20 44 45 53 20 20 S ECRITURE DES
0001B0: 21 20 4F 55 20 20 43 45 43 49 20 53 49 20 4C 45 ! OU CECI SI LE
0001C0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
0001D0: 21 20 4C 27 41 4E 41 4C 59 53 45 20 44 4F 4E 4E ! L'ANALYSE DONN
0001E0: 45 52 41 20 20 20 21 20 53 45 43 54 45 55 52 53 ERA ! SECTEURS
0001F0: 20 45 4E 20 54 41 49 4C 4C 45 20 32 20 21 20 47 EN TAILLE 2 ! G
Size : 512 (Real : 512)
000000: 41 50 20 20 46 4F 52 4D 41 54 41 47 45 0D 0A 20 AP FORMATAGE..
000010: 49 44 20 4C 45 4E 20 2D 2D 2D 2B 20 20 21 20 20 ID LEN ---+ !
000020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000030: 20 20 20 21 20 20 4C 27 41 4E 41 4C 59 53 45 20 ! L'ANALYSE
000040: 44 4F 4E 4E 45 52 41 20 20 20 21 20 45 53 54 20 DONNERA ! EST
000050: 54 52 45 53 20 47 52 41 4E 44 0D 0A 20 20 20 20 TRES GRAND..
000060: 20 20 20 20 20 20 20 21 20 20 21 20 20 20 20 20 ! !
000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000080: 21 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 !
000090: 20 20 20 20 20 20 20 21 0D 0A 20 30 31 20 20 78 !.. 01 x
0000A0: 2C 78 2C 78 2C 30 20 20 21 20 20 30 31 20 20 78 ,x,x,0 ! 01 x
0000B0: 2C 78 2C 78 2C 30 20 20 4F 4B 20 20 20 20 21 20 ,x,x,0 OK !
0000C0: 20 20 30 31 20 78 2C 78 2C 78 2C 30 20 20 4F 4B 01 x,x,x,0 OK
0000D0: 20 20 20 20 20 21 20 30 31 20 20 78 2C 78 2C 78 ! 01 x,x,x
0000E0: 2C 30 20 20 4F 4B 0D 0A 20 30 32 20 20 78 2C 78 ,0 OK.. 02 x,x
0000F0: 2C 78 2C 32 20 20 21 20 20 30 32 20 20 78 2C 78 ,x,2 ! 02 x,x
000100: 2C 78 2C 32 20 20 43 52 2F 44 44 20 21 20 20 20 ,x,2 CR/DD !
000110: 30 32 20 78 2C 78 2C 78 2C 32 20 20 4F 4B 20 20 02 x,x,x,2 OK
000120: 20 20 20 21 20 30 32 20 20 78 2C 78 2C 78 2C 32 ! 02 x,x,x,2
000130: 20 20 4F 4B 0D 0A 20 30 33 20 20 78 2C 78 2C 78 OK.. 03 x,x,x
000140: 2C 30 20 20 21 20 20 30 33 20 20 78 2C 78 2C 78 ,0 ! 03 x,x,x
000150: 2C 30 20 20 4F 4B 20 20 20 20 21 20 20 20 30 33 ,0 OK ! 03
000160: 20 78 2C 78 2C 78 2C 32 20 20 4F 4B 20 20 20 20 x,x,x,2 OK
000170: 20 21 20 30 33 20 20 78 2C 78 2C 78 2C 30 20 20 ! 03 x,x,x,0
000180: 4F 4B 0D 0A 20 30 34 20 20 78 2C 78 2C 78 2C 30 OK.. 04 x,x,x,0
000190: 20 20 21 20 20 30 34 20 20 78 2C 78 2C 78 2C 30 ! 04 x,x,x,0
0001A0: 20 20 4F 4B 20 20 20 20 21 20 20 20 30 34 20 78 OK ! 04 x
0001B0: 2C 78 2C 78 2C 32 20 20 4F 4B 20 20 20 20 20 21 ,x,x,2 OK !
0001C0: 20 30 34 20 20 78 2C 78 2C 78 2C 32 20 20 4F 4B 04 x,x,x,2 OK
0001D0: 0D 0A 20 30 35 20 20 78 2C 78 2C 78 2C 32 20 20 .. 05 x,x,x,2
0001E0: 21 20 20 30 35 20 20 78 2C 78 2C 78 2C 32 20 20 ! 05 x,x,x,2
0001F0: 43 52 2F 44 44 20 21 20 20 20 30 35 20 78 2C 78 CR/DD ! 05 x,x
Size : 512 (Real : 512)
000000: 2C 78 2C 32 20 20 4F 4B 20 20 20 20 20 21 20 30 ,x,2 OK ! 0
000010: 35 20 20 78 2C 78 2C 78 2C 30 20 20 4F 4B 0D 0A 5 x,x,x,0 OK..
000020: 20 30 36 20 20 78 2C 78 2C 78 2C 30 20 20 21 20 06 x,x,x,0 !
000030: 20 30 36 20 20 78 2C 78 2C 78 2C 30 20 20 4F 4B 06 x,x,x,0 OK
000040: 20 20 20 20 21 20 20 20 20 20 20 20 20 20 20 20 !
000050: 20 20 20 20 20 20 20 20 20 20 20 21 20 30 36 20 ! 06
000060: 20 78 2C 78 2C 78 2C 32 20 20 4F 4B 0D 0A 20 30 x,x,x,2 OK.. 0
000070: 37 20 20 78 2C 78 2C 78 2C 30 20 20 21 20 20 30 7 x,x,x,0 ! 0
000080: 37 20 20 78 2C 78 2C 78 2C 30 20 20 4F 4B 20 20 7 x,x,x,0 OK
000090: 20 20 21 20 20 20 20 20 20 20 20 20 20 20 20 20 !
0000A0: 20 20 20 20 20 20 20 20 20 21 20 30 37 20 20 78 ! 07 x
0000B0: 2C 78 2C 78 2C 30 20 20 4F 4B 0D 0A 20 30 38 20 ,x,x,0 OK.. 08
0000C0: 20 78 2C 78 2C 78 2C 32 20 20 21 20 20 30 38 20 x,x,x,2 ! 08
0000D0: 20 78 2C 78 2C 78 2C 32 20 20 43 52 2F 44 44 20 x,x,x,2 CR/DD
0000E0: 21 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 !
0000F0: 20 20 20 20 20 20 20 21 20 30 38 20 20 78 2C 78 ! 08 x,x
000100: 2C 78 2C 32 20 20 4F 4B 0D 0A 20 30 39 20 20 78 ,x,2 OK.. 09 x
000110: 2C 78 2C 78 2C 30 20 20 21 20 20 30 39 20 20 78 ,x,x,0 ! 09 x
000120: 2C 78 2C 78 2C 30 20 20 4F 4B 20 20 20 20 21 20 ,x,x,0 OK !
000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000140: 20 20 20 20 20 21 20 30 39 20 20 78 2C 78 2C 78 ! 09 x,x,x
000150: 2C 30 20 20 4F 4B 0D 0A 20 31 30 20 20 78 2C 78 ,0 OK.. 10 x,x
000160: 2C 78 2C 30 20 20 21 20 20 31 30 20 20 78 2C 78 ,x,0 ! 10 x,x
000170: 2C 78 2C 30 20 20 4F 4B 20 20 20 20 21 0D 0A 20 ,x,0 OK !..
000180: 31 31 20 20 78 2C 78 2C 78 2C 32 20 20 21 20 20 11 x,x,x,2 !
000190: 31 31 20 20 78 2C 78 2C 78 2C 32 20 20 43 52 2F 11 x,x,x,2 CR/
0001A0: 44 44 20 21 0D 0A 20 31 32 20 20 78 2C 78 2C 78 DD !.. 12 x,x,x
0001B0: 2C 30 20 20 21 20 20 31 32 20 20 78 2C 78 2C 78 ,0 ! 12 x,x,x
0001C0: 2C 30 20 20 4F 4B 20 20 20 20 21 0D 0A 20 31 33 ,0 OK !.. 13
0001D0: 20 20 78 2C 78 2C 78 2C 30 20 20 21 20 20 31 33 x,x,x,0 ! 13
0001E0: 20 20 78 2C 78 2C 78 2C 30 20 20 4F 4B 20 20 20 x,x,x,0 OK
0001F0: 20 21 0D 0A 20 0D 0A 20 20 20 20 20 45 78 70 6C !.. .. Expl
Size : 512 (Real : 512)
000000: 69 63 61 74 69 6F 6E 20 3A 20 54 6F 75 74 20 64 ication : Tout d
000010: 65 20 73 75 69 74 65 20 20 61 70 72 7D 73 20 20 e suite apr}s
000020: 6C 65 20 20 66 6F 72 6D 61 74 61 67 65 20 2C 20 le formatage ,
000030: 6C 27 61 6E 61 6C 79 73 65 20 72 65 6E 76 65 72 l'analyse renver
000040: 72 61 20 75 6E 0D 0A 20 43 52 2F 44 44 20 70 6F ra un.. CR/DD po
000050: 75 72 20 74 6F 75 74 20 73 65 63 74 65 75 72 20 ur tout secteur
000060: 64 6F 6E 74 20 6C 27 49 44 20 20 6C 6F 6E 67 75 dont l'ID longu
000070: 65 75 72 20 20 65 73 74 20 64 69 66 66 7B 72 65 eur est diff{re
000080: 6E 74 20 64 65 20 6C 61 20 76 72 61 69 65 20 74 nt de la vraie t
000090: 61 69 6C 6C 65 0D 0A 20 64 75 20 66 6F 72 6D 61 aille.. du forma
0000A0: 74 20 63 65 20 71 75 69 20 65 73 74 20 74 6F 75 t ce qui est tou
0000B0: 74 20 40 20 66 61 69 74 20 6C 7B 67 69 74 69 6D t @ fait l{gitim
0000C0: 65 20 2E 20 45 6E 20 72 65 76 61 6E 63 68 65 20 e . En revanche
0000D0: 2C 20 73 69 20 6C 27 6F 6E 20 76 65 75 74 20 7B , si l'on veut {
0000E0: 63 72 69 72 65 0D 0A 20 63 65 73 20 73 65 63 74 crire.. ces sect
0000F0: 65 75 72 73 20 70 6C 75 73 20 67 72 61 6E 64 73 eurs plus grands
000100: 20 71 75 65 20 20 6C 61 20 20 74 61 69 6C 6C 65 que la taille
000110: 20 20 6F 72 69 67 69 6E 65 6C 6C 65 20 20 64 75 originelle du
000120: 20 20 66 6F 72 6D 61 74 20 20 2C 20 6C 65 20 46 format , le F
000130: 44 43 20 6E 65 0D 0A 20 72 7B 63 68 69 67 6E 65 DC ne.. r{chigne
000140: 20 70 61 73 20 40 20 6C 61 20 74 63 68 65 20 63 pas @ la tche c
000150: 61 72 20 69 6C 20 7B 63 72 69 74 20 20 28 6F 75 ar il {crit (ou
000160: 20 6C 69 74 29 20 75 6E 69 71 75 65 6D 65 6E 74 lit) uniquement
000170: 20 65 6E 20 73 65 20 62 61 73 61 6E 74 20 73 75 en se basant su
000180: 72 20 6C 61 0D 0A 20 74 61 69 6C 6C 65 20 73 70 r la.. taille sp
000190: 7B 63 69 66 69 7B 65 20 64 61 6E 73 20 6C 27 49 {cifi{e dans l'I
0001A0: 44 20 71 75 65 6C 71 75 65 20 73 6F 69 74 20 20 D quelque soit
0001B0: 63 65 74 74 65 20 20 64 65 72 6E 69 7D 72 65 20 cette derni}re
0001C0: 20 21 20 44 61 6E 73 20 6C 65 20 63 61 73 20 6F ! Dans le cas o
0001D0: 75 20 6C 61 0D 0A 20 6C 6F 6E 67 75 65 75 72 20 u la.. longueur
0001E0: 49 44 20 64 7B 63 6C 61 72 7B 65 20 65 78 63 7D ID d{clar{e exc}
0001F0: 64 65 20 6C 61 20 74 61 69 6C 6C 65 20 20 64 65 de la taille de
Size : 512 (Real : 512)
000000: 20 20 66 6F 72 6D 61 74 20 20 3A 20 20 4C 45 20 format : LE
000010: 53 45 43 54 45 55 52 20 45 53 54 20 45 43 52 49 SECTEUR EST ECRI
000020: 54 20 45 4E 0D 0A 20 54 4F 54 41 4C 49 54 45 20 T EN.. TOTALITE
000030: 45 54 20 44 45 54 52 55 49 54 20 4C 45 53 20 49 ET DETRUIT LES I
000040: 44 53 20 51 55 49 20 53 45 20 54 52 4F 55 56 45 DS QUI SE TROUVE
000050: 4E 54 20 20 53 55 52 20 20 53 41 20 5A 4F 4E 45 NT SUR SA ZONE
000060: 20 44 45 20 44 4F 4E 4E 45 45 53 20 21 20 44 6F DE DONNEES ! Do
000070: 6E 63 20 2C 0D 0A 20 75 6E 65 20 64 69 6D 69 6E nc ,.. une dimin
000080: 75 74 69 6F 6E 20 64 75 20 6E 6F 6D 62 72 65 20 ution du nombre
000090: 64 65 20 73 65 63 74 65 75 72 73 20 65 74 20 20 de secteurs et
0000A0: 64 65 73 20 73 65 63 74 65 75 72 73 20 64 65 20 des secteurs de
0000B0: 74 61 69 6C 6C 65 20 64 69 66 66 7B 72 65 6E 74 taille diff{rent
0000C0: 65 20 64 75 0D 0A 20 66 6F 72 6D 61 74 20 72 65 e du.. format re
0000D0: 73 74 61 6E 74 20 74 6F 75 74 20 40 20 66 61 69 stant tout @ fai
0000E0: 74 20 6C 69 73 69 62 6C 65 73 20 20 2E 20 20 4C t lisibles . L
0000F0: 61 20 64 65 72 6E 69 7D 72 65 20 63 6F 6C 6F 6E a derni}re colon
000100: 6E 65 20 64 75 20 74 61 62 6C 65 61 75 20 6D 6F ne du tableau mo
000110: 6E 74 72 65 0D 0A 20 6C 27 69 6D 70 6F 72 74 61 ntre.. l'importa
000120: 6E 63 65 20 64 65 20 20 6C 61 20 20 76 61 6C 65 nce de la vale
000130: 75 72 20 20 64 75 20 20 47 41 50 23 33 20 20 2E ur du GAP#3 .
000140: 20 20 50 6C 75 73 20 20 63 65 6C 75 69 2D 63 69 Plus celui-ci
000150: 20 20 65 73 74 20 20 67 72 61 6E 64 20 20 2C 20 est grand ,
000160: 70 6C 75 73 0D 0A 20 6C 27 69 6E 74 65 72 76 61 plus.. l'interva
000170: 6C 6C 65 20 65 6E 74 72 65 20 6C 65 73 20 73 65 lle entre les se
000180: 63 74 65 75 72 73 20 65 73 74 20 69 6D 70 6F 72 cteurs est impor
000190: 74 61 6E 74 20 2E 20 41 75 20 64 65 6C 40 20 64 tant . Au del@ d
0001A0: 27 75 6E 65 20 63 65 72 74 61 69 6E 65 20 6C 69 'une certaine li
0001B0: 6D 69 74 65 0D 0A 20 2C 20 6C 65 20 6E 6F 6D 62 mite.. , le nomb
0001C0: 72 65 20 64 27 49 44 53 20 7B 63 72 61 73 7B 73 re d'IDS {cras{s
0001D0: 20 70 6F 75 72 20 20 75 6E 65 20 20 74 61 69 6C pour une tail
0001E0: 6C 65 20 20 64 6F 6E 6E 7B 65 20 73 65 72 61 20 le donn{e sera
0001F0: 6D 6F 69 6E 73 20 69 6D 70 6F 72 74 61 6E 74 20 moins important
Size : 512 (Real : 512)
000000: 2E 20 43 69 0D 0A 20 64 65 73 73 6F 75 73 20 3A . Ci.. dessous :
000010: 20 55 6E 20 74 61 62 6C 65 61 75 20 20 64 6F 6E Un tableau don
000020: 6E 61 6E 74 20 20 74 6F 75 74 65 73 20 20 6C 65 nant toutes le
000030: 73 20 20 76 61 6C 65 75 72 73 20 20 63 72 75 63 s valeurs cruc
000040: 69 61 6C 65 73 20 20 64 65 20 47 41 50 53 20 6F iales de GAPS o
000050: 75 20 6C 65 0D 0A 20 6E 6F 6D 62 72 65 20 64 65 u le.. nombre de
000060: 20 73 65 63 74 65 75 72 73 20 64 7B 74 72 75 69 secteurs d{trui
000070: 74 73 20 70 61 72 20 75 6E 65 20 7B 63 72 69 74 ts par une {crit
000080: 75 72 65 20 64 65 20 74 61 69 6C 6C 65 20 73 75 ure de taille su
000090: 70 7B 72 69 65 75 72 65 20 63 68 61 6E 67 65 20 p{rieure change
0000A0: 2E 20 4F 6E 0D 0A 20 72 65 6D 61 72 71 75 65 72 . On.. remarquer
0000B0: 61 20 71 75 65 20 6C 65 20 70 6C 75 73 20 67 72 a que le plus gr
0000C0: 61 6E 64 20 47 41 50 20 70 72 69 73 20 65 6E 20 and GAP pris en
0000D0: 20 63 6F 6D 70 74 65 20 20 65 73 74 20 30 20 2E compte est 0 .
0000E0: 20 45 6E 20 65 66 66 65 74 20 2C 20 66 6F 72 6D En effet , form
0000F0: 61 74 65 72 0D 0A 20 75 6E 65 20 70 69 73 74 65 ater.. une piste
000100: 20 61 76 65 63 20 75 6E 20 47 41 50 20 30 20 72 avec un GAP 0 r
000110: 65 76 69 65 6E 74 20 40 20 64 6F 6E 6E 65 72 20 evient @ donner
000120: 40 20 63 65 20 47 41 50 20 75 6E 65 20 6C 6F 6E @ ce GAP une lon
000130: 67 75 65 75 72 20 64 65 20 32 35 36 20 6F 63 74 gueur de 256 oct
000140: 65 74 73 2E 0D 0A 20 0D 0A 20 20 20 20 20 20 20 ets... ..
000150: 20 20 20 20 20 20 20 20 20 20 20 20 46 54 20 3D FT =
000160: 20 46 61 75 73 73 65 20 74 61 69 6C 6C 65 20 28 Fausse taille (
000170: 43 65 6C 6C 65 20 6D 69 73 65 20 64 61 6E 73 20 Celle mise dans
000180: 6C 27 49 44 29 0D 0A 20 20 20 20 20 20 20 20 20 l'ID)..
000190: 20 20 20 20 20 20 45 43 52 41 53 45 53 20 3D 20 ECRASES =
0001A0: 4E 6F 6D 62 72 65 20 73 65 63 74 65 75 72 73 20 Nombre secteurs
0001B0: 64 7B 74 72 75 69 74 73 20 70 61 72 20 6C 27 7B d{truits par l'{
0001C0: 63 72 69 74 75 72 65 0D 0A 20 0D 0A 20 20 20 20 criture.. ..
0001D0: 20 20 20 20 20 54 41 49 4C 4C 45 20 44 55 20 46 TAILLE DU F
0001E0: 4F 52 4D 41 54 20 3A 20 30 20 20 20 20 20 20 20 ORMAT : 0
0001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 54 41 49 TAI
Size : 512 (Real : 512)
000000: 4C 4C 45 20 44 55 20 46 4F 52 4D 41 54 20 3A 20 LLE DU FORMAT :
000010: 31 20 20 20 20 20 0D 0A 20 20 20 20 2B 2D 2D 2D 1 .. +---
000020: 2D 2B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D -+--------------
000030: 2B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2B 20 20 20 20 20 +---------+
000040: 20 20 20 2B 2D 2D 2D 2D 2B 2D 2D 2D 2D 2D 2D 2D +----+-------
000050: 2D 2D 2D 2D 2D 2D 2D 2B 2D 2D 2D 2D 2D 2D 2D 2D -------+--------
000060: 2D 2B 0D 0A 20 20 20 20 21 20 46 54 20 21 20 20 -+.. ! FT !
000070: 47 41 50 20 46 4F 52 4D 41 54 20 20 21 20 45 43 GAP FORMAT ! EC
000080: 52 41 53 45 53 20 21 20 20 20 20 20 20 20 20 21 RASES ! !
000090: 20 46 54 20 21 20 20 47 41 50 20 46 4F 52 4D 41 FT ! GAP FORMA
0000A0: 54 20 20 21 20 45 43 52 41 53 45 53 20 21 0D 0A T ! ECRASES !..
0000B0: 20 20 20 20 21 2D 2D 2D 2D 2B 2D 2D 2D 2D 2D 2D !----+------
0000C0: 2D 2D 2D 2D 2D 2D 2D 2D 2B 2D 2D 2D 2D 2D 2D 2D --------+-------
0000D0: 2D 2D 21 20 20 20 20 20 20 20 20 21 2D 2D 2D 2D --! !----
0000E0: 2B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2B +--------------+
0000F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 21 0D 0A 20 20 20 20 ---------!..
000100: 21 20 20 31 20 21 20 44 65 20 20 20 31 20 40 20 ! 1 ! De 1 @
000110: 23 37 37 20 21 20 20 20 20 31 20 20 20 20 21 20 #77 ! 1 !
000120: 20 20 20 20 20 20 20 21 20 20 32 20 21 20 44 65 ! 2 ! De
000130: 20 20 20 31 20 40 20 23 46 37 20 21 20 20 20 20 1 @ #F7 !
000140: 31 20 20 20 20 21 0D 0A 20 20 20 20 21 20 20 31 1 !.. ! 1
000150: 20 21 20 44 65 20 23 37 38 20 40 20 20 30 30 20 ! De #78 @ 00
000160: 21 20 20 41 55 43 55 4E 20 20 21 20 20 20 20 20 ! AUCUN !
000170: 20 20 20 21 20 20 32 20 21 20 44 65 20 23 46 38 ! 2 ! De #F8
000180: 20 40 20 20 30 30 20 21 20 20 41 55 43 55 4E 20 @ 00 ! AUCUN
000190: 20 21 0D 0A 20 20 20 20 21 2D 2D 2D 2D 2B 2D 2D !.. !----+--
0001A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2B 2D 2D 2D ------------+---
0001B0: 2D 2D 2D 2D 2D 2D 21 20 20 20 20 20 20 20 20 21 ------! !
0001C0: 2D 2D 2D 2D 2B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----+-----------
0001D0: 2D 2D 2D 2B 2D 2D 2D 2D 2D 2D 2D 2D 2D 21 0D 0A ---+---------!..
0001E0: 20 20 20 20 21 20 20 32 20 21 20 44 65 20 20 20 ! 2 ! De
0001F0: 31 20 40 20 23 35 43 20 21 20 20 20 20 32 20 20 1 @ #5C ! 2
Size : 512 (Real : 512)
000000: 20 20 21 20 20 20 20 20 20 20 20 21 20 20 33 20 ! ! 3
000010: 21 20 44 65 20 20 20 31 20 40 20 23 32 39 20 21 ! De 1 @ #29 !
000020: 20 20 20 20 33 20 20 20 20 21 0D 0A 20 20 20 20 3 !..
000030: 21 20 20 32 20 21 20 44 65 20 23 35 44 20 40 20 ! 2 ! De #5D @
000040: 20 30 30 20 21 20 20 20 20 31 20 20 20 20 21 20 00 ! 1 !
000050: 20 20 20 20 20 20 20 21 20 20 33 20 21 20 44 65 ! 3 ! De
000060: 20 23 32 41 20 40 20 23 44 43 20 21 20 20 20 20 #2A @ #DC !
000070: 32 20 20 20 20 21 0D 0A 20 20 20 20 21 2D 2D 2D 2 !.. !---
000080: 2D 2B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D -+--------------
000090: 2B 2D 2D 2D 2D 2D 2D 2D 2D 2D 21 20 20 20 20 20 +---------!
0000A0: 20 20 20 21 20 20 33 20 21 20 44 65 20 23 44 44 ! 3 ! De #DD
0000B0: 20 40 20 20 30 30 20 21 20 20 20 20 31 20 20 20 @ 00 ! 1
0000C0: 20 21 0D 0A 20 20 20 20 21 20 20 33 20 21 20 44 !.. ! 3 ! D
0000D0: 65 20 20 20 31 20 40 20 23 31 39 20 21 20 20 20 e 1 @ #19 !
0000E0: 20 35 20 20 20 20 21 20 20 20 20 20 20 20 20 21 5 ! !
0000F0: 2D 2D 2D 2D 2B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----+-----------
000100: 2D 2D 2D 2B 2D 2D 2D 2D 2D 2D 2D 2D 2D 21 0D 0A ---+---------!..
000110: 20 20 20 20 21 20 20 33 20 21 20 44 65 20 23 31 ! 3 ! De #1
000120: 41 20 40 20 23 34 37 20 21 20 20 20 20 34 20 20 A @ #47 ! 4
000130: 20 20 21 20 20 20 20 20 20 20 20 21 20 20 34 20 ! ! 4
000140: 21 20 44 65 20 20 20 31 20 40 20 23 32 30 20 21 ! De 1 @ #20 !
000150: 20 20 20 20 36 20 20 20 20 21 0D 0A 20 20 20 20 6 !..
000160: 21 20 20 33 20 21 20 44 65 20 23 34 38 20 40 20 ! 3 ! De #48 @
000170: 23 41 32 20 21 20 20 20 20 33 20 20 20 20 21 20 #A2 ! 3 !
000180: 20 20 20 20 20 20 20 21 20 20 34 20 21 20 44 65 ! 4 ! De
000190: 20 23 32 31 20 40 20 23 36 36 20 21 20 20 20 20 #21 @ #66 !
0001A0: 35 20 20 20 20 21 0D 0A 20 20 20 20 21 20 20 33 5 !.. ! 3
0001B0: 20 21 20 44 65 20 23 41 33 20 40 20 20 30 30 20 ! De #A3 @ 00
0001C0: 21 20 20 20 20 32 20 20 20 20 21 20 20 20 20 20 ! 2 !
0001D0: 20 20 20 21 20 20 34 20 21 20 44 65 20 23 36 37 ! 4 ! De #67
0001E0: 20 40 20 23 43 46 20 21 20 20 20 20 34 20 20 20 @ #CF ! 4
0001F0: 20 21 0D 0A 20 20 20 20 21 2D 2D 2D 2D 2B 2D 2D !.. !----+--
Size : 512 (Real : 512)
000000: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2B 2D 2D 2D ------------+---
000010: 2D 2D 2D 2D 2D 2D 21 20 20 20 20 20 20 20 20 21 ------! !
000020: 20 20 34 20 21 20 44 65 20 23 44 30 20 40 20 20 4 ! De #D0 @
000030: 30 30 20 21 20 20 20 20 33 20 20 20 20 21 0D 0A 00 ! 3 !..
000040: 20 20 20 20 21 20 20 34 20 21 20 44 65 20 20 20 ! 4 ! De
000050: 31 20 40 20 23 34 38 20 21 20 20 20 20 38 20 20 1 @ #48 ! 8
000060: 20 20 21 20 20 20 20 20 20 20 20 21 2D 2D 2D 2D ! !----
000070: 2B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2B +--------------+
000080: 2D 2D 2D 2D 2D 2D 2D 2D 2D 21 0D 0A 20 20 20 20 ---------!..
000090: 21 20 20 34 20 21 20 44 65 20 23 34 39 20 40 20 ! 4 ! De #49 @
0000A0: 23 36 45 20 21 20 20 20 20 37 20 20 20 20 21 20 #6E ! 7 !
0000B0: 20 20 20 20 20 20 20 21 20 20 35 20 21 20 44 65 ! 5 ! De
0000C0: 20 20 20 31 20 40 20 23 31 42 20 21 20 20 20 31 1 @ #1B ! 1
0000D0: 32 20 20 20 20 21 0D 0A 20 20 20 20 21 20 20 34 2 !.. ! 4
0000E0: 20 21 20 44 65 20 23 36 46 20 40 20 23 41 30 20 ! De #6F @ #A0
0000F0: 21 20 20 20 20 36 20 20 20 20 21 20 20 20 20 20 ! 6 !
000100: 20 20 20 21 20 20 35 20 21 20 44 65 20 23 31 43 ! 5 ! De #1C
000110: 20 40 20 23 33 42 20 21 20 20 20 31 31 20 20 20 @ #3B ! 11
000120: 20 21 0D 0A 20 20 20 20 21 20 20 34 20 21 20 44 !.. ! 4 ! D
000130: 65 20 23 41 31 20 40 20 23 45 36 20 21 20 20 20 e #A1 @ #E6 !
000140: 20 35 20 20 20 20 21 20 20 20 20 20 20 20 20 21 5 ! !
000150: 20 20 35 20 21 20 44 65 20 23 33 43 20 40 20 23 5 ! De #3C @ #
000160: 36 31 20 21 20 20 20 31 30 20 20 20 20 21 0D 0A 61 ! 10 !..
000170: 20 20 20 20 21 20 20 34 20 21 20 44 65 20 23 45 ! 4 ! De #E
000180: 37 20 40 20 20 30 30 20 21 20 20 20 20 34 20 20 7 @ 00 ! 4
000190: 20 20 21 20 20 20 20 20 20 20 20 21 20 20 35 20 ! ! 5
0001A0: 21 20 44 65 20 23 36 32 20 40 20 23 38 46 20 21 ! De #62 @ #8F !
0001B0: 20 20 20 20 39 20 20 20 20 21 0D 0A 20 20 20 20 9 !..
0001C0: 21 2D 2D 2D 2D 2B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D !----+----------
0001D0: 2D 2D 2D 2D 2B 2D 2D 2D 2D 2D 2D 2D 2D 2D 21 20 ----+---------!
0001E0: 20 20 20 20 20 20 20 21 20 20 35 20 21 20 44 65 ! 5 ! De
0001F0: 20 23 39 30 20 40 20 23 43 38 20 21 20 20 20 20 #90 @ #C8 !
Size : 512 (Real : 512)
000000: 38 20 20 20 20 21 0D 0A 20 20 20 20 21 20 20 35 8 !.. ! 5
000010: 20 21 20 44 65 20 20 20 31 20 40 20 20 20 37 20 ! De 1 @ 7
000020: 21 20 20 20 32 31 20 20 20 20 21 20 20 20 20 20 ! 21 !
000030: 20 20 20 21 20 20 35 20 21 20 44 65 20 23 43 39 ! 5 ! De #C9
000040: 20 40 20 20 30 30 20 21 20 20 20 20 37 20 20 20 @ 00 ! 7
000050: 20 21 0D 0A 20 20 20 20 21 20 20 35 20 21 20 44 !.. ! 5 ! D
000060: 65 20 20 20 38 20 40 20 23 31 31 20 21 20 20 20 e 8 @ #11 !
000070: 32 30 20 20 20 20 21 20 20 20 20 20 20 20 20 2B 20 ! +
000080: 2D 2D 2D 2D 2B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----+-----------
000090: 2D 2D 2D 2B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2B 0D 0A ---+---------+..
0000A0: 20 20 20 20 21 20 20 35 20 21 20 44 65 20 23 31 ! 5 ! De #1
0000B0: 32 20 40 20 23 31 43 20 21 20 20 20 31 39 20 20 2 @ #1C ! 19
0000C0: 20 20 21 0D 0A 20 20 20 20 21 20 20 35 20 21 20 !.. ! 5 !
0000D0: 44 65 20 23 31 44 20 40 20 23 32 38 20 21 20 20 De #1D @ #28 !
0000E0: 20 31 38 20 20 20 20 21 20 20 20 20 20 20 20 20 18 !
0000F0: 20 20 20 20 20 20 54 41 49 4C 4C 45 20 44 55 20 TAILLE DU
000100: 46 4F 52 4D 41 54 20 3A 20 33 20 20 20 20 20 0D FORMAT : 3 .
000110: 0A 20 20 20 20 21 20 20 35 20 21 20 44 65 20 23 . ! 5 ! De #
000120: 32 39 20 40 20 23 33 37 20 21 20 20 20 31 37 20 29 @ #37 ! 17
000130: 20 20 20 21 20 20 20 20 20 20 20 20 2B 2D 2D 2D ! +---
000140: 2D 2B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D -+--------------
000150: 2B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2B 0D 0A 20 20 20 +---------+..
000160: 20 21 20 20 35 20 21 20 44 65 20 23 33 38 20 40 ! 5 ! De #38 @
000170: 20 23 34 35 20 21 20 20 20 31 36 20 20 20 20 21 #45 ! 16 !
000180: 20 20 20 20 20 20 20 20 21 20 46 54 20 21 20 20 ! FT !
000190: 47 41 50 20 46 4F 52 4D 41 54 20 20 21 20 45 43 GAP FORMAT ! EC
0001A0: 52 41 53 45 53 20 21 0D 0A 20 20 20 20 21 20 20 RASES !.. !
0001B0: 35 20 21 20 44 65 20 23 34 36 20 40 20 23 35 36 5 ! De #46 @ #56
0001C0: 20 21 20 20 20 31 35 20 20 20 20 21 20 20 20 20 ! 15 !
0001D0: 20 20 20 20 21 2D 2D 2D 2D 2B 2D 2D 2D 2D 2D 2D !----+------
0001E0: 2D 2D 2D 2D 2D 2D 2D 2D 2B 2D 2D 2D 2D 2D 2D 2D --------+-------
0001F0: 2D 2D 21 0D 0A 20 20 20 20 21 20 20 35 20 21 20 --!.. ! 5 !
Size : 512 (Real : 512)
000000: 44 65 20 23 35 37 20 40 20 23 36 41 20 21 20 20 De #57 @ #6A !
000010: 20 31 34 20 20 20 20 21 20 20 20 20 20 20 20 20 14 !
000020: 21 20 20 34 20 21 20 44 65 20 20 20 31 20 40 20 ! 4 ! De 1 @
000030: 20 30 30 20 21 20 20 20 20 31 20 20 20 20 21 0D 00 ! 1 !.
000040: 0A 20 20 20 20 21 20 20 35 20 21 20 44 65 20 23 . ! 5 ! De #
000050: 36 42 20 40 20 23 38 31 20 21 20 20 20 31 33 20 6B @ #81 ! 13
000060: 20 20 20 21 20 20 20 20 20 20 20 20 21 2D 2D 2D ! !---
000070: 2D 2B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D -+--------------
000080: 2B 2D 2D 2D 2D 2D 2D 2D 2D 2D 21 0D 0A 20 20 20 +---------!..
000090: 20 21 20 20 35 20 21 20 44 65 20 23 38 32 20 40 ! 5 ! De #82 @
0000A0: 20 23 39 42 20 21 20 20 20 31 32 20 20 20 20 21 #9B ! 12 !
0000B0: 20 20 20 20 20 20 20 20 21 20 20 35 20 21 20 44 ! 5 ! D
0000C0: 65 20 20 20 31 20 40 20 23 37 46 20 21 20 20 54 e 1 @ #7F ! T
0000D0: 4F 55 54 20 20 20 21 0D 0A 20 20 20 20 21 20 20 OUT !.. !
0000E0: 35 20 21 20 44 65 20 23 39 43 20 40 20 23 42 42 5 ! De #9C @ #BB
0000F0: 20 21 20 20 20 31 31 20 20 20 20 21 20 20 20 20 ! 11 !
000100: 20 20 20 20 21 2D 2D 2D 2D 2B 2D 2D 2D 2D 2D 2D !----+------
000110: 2D 2D 2D 2D 2D 2D 2D 2D 2B 2D 2D 2D 2D 2D 2D 2D --------+-------
000120: 2D 2D 21 0D 0A 20 20 20 20 21 20 20 35 20 21 20 --!.. ! 5 !
000130: 44 65 20 23 42 43 20 40 20 23 45 30 20 21 20 20 De #BC @ #E0 !
000140: 20 31 30 20 20 20 20 21 0D 0A 20 20 20 20 21 20 10 !.. !
000150: 20 35 20 21 20 44 65 20 23 45 31 20 40 20 20 30 5 ! De #E1 @ 0
000160: 30 20 21 20 20 20 20 39 20 20 20 20 21 20 20 20 0 ! 9 !
000170: 20 20 20 20 20 45 63 72 61 73 65 72 20 75 6E 65 Ecraser une
000180: 20 20 74 61 69 6C 6C 65 20 34 20 20 73 6F 75 73 taille 4 sous
000190: 20 20 75 6E 0D 0A 20 20 20 20 2B 2D 2D 2D 2D 2B un.. +----+
0001A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2B 2D --------------+-
0001B0: 2D 2D 2D 2D 2D 2D 2D 2D 2B 20 20 20 20 20 20 20 --------+
0001C0: 20 73 65 63 74 65 75 72 20 64 65 20 74 61 69 6C secteur de tail
0001D0: 6C 65 20 35 20 20 72 65 76 69 65 6E 74 20 20 61 le 5 revient a
0001E0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
0001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
Size : 512 (Real : 512)
000000: 00 4C 45 43 54 45 55 52 35 42 49 4E 00 00 00 00 .LECTEUR5BIN....
000010: 00 00 02 00 00 C3 24 00 02 03 00 00 00 00 00 00 ......$.........
000020: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000030: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000040: 02 03 00 15 04 00 00 1A 45 43 54 45 55 52 35 24 ........ECTEUR5$
000050: 24 24 FF 00 FF EA 21 23 70 BC 3A A1 40 1A 1D E2 $$....!#p.:.@...
000060: 73 A9 CD 16 CF E3 70 1A 0F 06 94 F2 1B D1 0C 65 s.....p........e
000070: 57 5E 75 F0 AD 9D AE 22 C3 A9 E1 5F 27 03 6B 34 W^u...."..._'.k4
000080: DD 6E 00 DD 66 01 22 51 9E 7E 32 4A 9E 23 5E 23 .n..f."Q.~2J.#^#
000090: 56 EB 11 51 9E D5 E5 06 00 4F ED B0 E1 21 7B 9E V..Q.....O...!{.
0000A0: CD C9 9D E1 AF 32 4D 9E 3A 4A 9E 47 11 00 C0 CD .....2M.:J.G....
0000B0: 77 BC D2 B6 9D CA B6 9D 21 00 40 CD 80 BC D2 B6 w.......!.@.....
0000C0: 9D CA B6 9D 77 23 C3 7B 9C AF 77 CD 7A BC CD 14 ....w#.{..w.z...
0000D0: BC CD 6C BB 21 00 40 22 97 9E 2B 36 00 2B 36 00 ..l.!.@"..+6.+6.
0000E0: 3E FF 32 4E 9E 01 00 00 CD 9C 9E CD 30 9E CD 06 >.2N........0...
0000F0: BB FE 0D CA DD 9E FE F1 CA D9 9C FE F0 CA 25 9D ..............%.
000100: FE F4 CA 3D 9D FE F5 CA F8 9C FE 09 CC 6A 9D 18 ...=.........j..
000110: DD 3E 07 CD 5A BB C3 AE 9C CD E0 9D 26 01 2E 1A .>..Z.......&...
000120: CD 75 BB 2A 99 9E CD D3 9D 22 99 9E 2A 97 9E CD .u.*....."..*...
000130: 00 9E 22 97 9E C3 AE 9C CD E0 9D CD 6C BB 2A 99 ..".........l.*.
000140: 9E 06 19 0E 00 CD 00 9E 23 0C 7E B7 28 02 10 F5 ........#.~.(...
000150: 41 22 99 9E 2A 97 9E CD 00 9E 10 FB 22 97 9E CD A"..*......."...
000160: 30 9E C3 AE 9C CD EA 9D CD 07 9E E5 26 01 2E FF 0...........&...
000170: CD 75 BB E1 CD D3 9D CD 21 9E C3 AE 9C 3A 4E 9E .u......!....:N.
000180: B7 C2 D1 9C CD 6C BB 06 19 0E 00 0C 2A 97 9E 2B .....l......*..+
000190: CD 07 9E 30 04 10 F4 18 05 3E FF 32 4E 9E 41 CD ...0.....>.2N.A.
0001A0: 21 9E 10 FB CD 30 9E C3 AE 9C CD 2E BD 30 05 3E !....0.......0.>
0001B0: 07 C3 5A BB 2A 97 9E AF 32 50 9E 7E B7 C8 FE 5E ..Z.*...2P.~...^
0001C0: 20 07 F5 3E 08 CD 2B BD F1 E5 F5 CD 2E BD 38 FB ..>..+.......8.
0001D0: CD 2B BD F1 FE 0A 20 14 3A 50 9E 3C FE 3C 20 09 .+.... .:P.<.< .
0001E0: 3E 07 CD 5A BB CD 06 BB AF 32 50 9E 3E 42 CD 1E >..Z.....2P.>B..
0001F0: BB E1 C0 23 18 C5 FE 1A CA 89 9C CD 7D BC CD DD ...#........}...
Size : 512 (Real : 512)
000000: 9E 3E FF 32 4D 9E 21 63 9E 7E FE FF C8 CD 5A BB .>.2M.!c.~....Z.
000010: 23 18 F6 7E 23 B7 C8 FE 0A 37 C8 CD 5A BB 18 F3 #..~#....7..Z...
000020: CD FA 9D 28 10 AF 32 4E 9E C9 3A 4E 9E B7 20 05 ...(..2N..:N.. .
000030: 2A 97 9E 2B C9 FD E1 C3 D1 9C 2A 99 9E 7E B7 C9 *..+......*..~..
000040: 7E 23 FE 0A 20 FA C9 2B 7E B7 C2 14 9E 3E FF 32 ~#.. ..+~....>.2
000050: 4E 9E 18 0A FE 0A 20 EF 37 23 22 97 9E C9 AF 18 N..... .7#".....
000060: F8 2A 99 9E 2B 2B 7E FE 0A 20 FA 23 22 99 9E C9 .*..++~.. .#"...
000070: 2A 97 9E 06 19 7E B7 28 0D 23 F5 CD 5A BB F1 FE *....~.(.#..Z...
000080: 0A 20 F2 10 F0 37 22 99 9E C9 00 00 00 00 00 00 . ...7".........
000090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000A0: 00 00 00 18 1F 04 04 20 45 52 52 45 55 52 20 44 ....... ERREUR D
0000B0: 52 49 56 45 20 07 18 1F 04 0A FF 04 02 1F 02 02 RIVE ...........
0000C0: 43 48 41 52 47 45 4D 45 4E 54 20 45 4E 20 43 4F CHARGEMENT EN CO
0000D0: 55 52 53 1F 01 01 FF 00 00 00 00 00 21 EF 9F 11 URS.........!...
0000E0: 3F 00 CD AB BB 21 06 9F 11 08 00 06 06 7E 23 C5 ?....!.......~#.
0000F0: D5 E5 CD A8 BB E1 D1 C1 19 10 F2 C3 F4 9E FE 5E ...............^
000100: 20 17 E5 C5 D5 06 05 21 3C 9F E5 C5 7E CD D9 9E ......!<...~...
000110: C1 E1 23 10 F5 D1 C1 E1 C9 CF 00 00 C9 ED 5B DA ..#...........[.
000120: 9E 21 5A BB 36 CF 23 73 23 72 21 EF 9F 16 00 1E .!Z.6.#s#r!.....
000130: F5 C3 AB BB 2A 5B BB 22 DA 9E 21 BE 9E 22 5B BB ....*[."..!.."[.
000140: 3E C3 32 5A BB C9 40 30 18 78 0C 7C CC 76 00 5C >.2Z..@0.x.|.v.\
000150: 00 00 3C 66 60 66 36 18 5E 18 66 00 00 00 00 00 ..<f`f6.^.f.....
000160: 00 7B 0C 18 3C 66 7E 60 3C 00 7C 30 18 66 66 66 .{..<f~`<.|0.fff
000170: 66 3E 00 7D 30 18 3C 66 7E 60 3C 00 16 01 5E 16 f>.}0.<f~`<...^.
000180: 00 00 1A 45 43 54 45 55 52 35 24 24 24 FF 00 FF ...ECTEUR5$$$...
000190: EA 21 23 70 BC 3A A1 40 1A 1D E2 73 A9 CD 16 CF .!#p.:.@...s....
0001A0: E3 70 1A 0F 06 94 F2 1B D1 0C 65 57 5E 75 F0 AD .p........eW^u..
0001B0: 9D AE 22 C3 A9 E1 5F 27 03 6B 34 95 52 F0 45 75 .."..._'.k4.R.Eu
0001C0: 6C 34 2B 0C D3 CC F8 47 3F A5 13 89 41 A6 73 CA l4+....G?...A.s.
0001D0: 48 57 72 48 61 8F DC 02 29 05 E8 53 F1 84 5F AB HWrHa...)..S.._.
0001E0: 75 DD 3A 07 76 5B EB 59 EA 66 F1 DD AB 36 F2 69 u.:.v[.Y.f...6.i
0001F0: F1 CB BE AC 5A C9 5A 32 07 E3 9B FA BF 6A C2 7B ....Z.Z2.....j.{
Size : 512 (Real : 512)
000000: 00 52 53 58 50 52 54 20 20 42 49 4E 00 00 00 00 .RSXPRT BIN....
000010: 00 00 02 00 00 00 80 00 C4 09 00 00 00 00 00 00 ................
000020: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000030: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000040: C4 09 00 28 05 00 00 00 00 00 00 00 00 00 00 00 ...(............
000050: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000080: 2A D4 BD 22 4E 80 01 0F 80 21 8E 80 C3 D1 BC 50 *.."N....!.....P
000090: 80 C3 93 80 C3 D1 81 C3 38 82 C3 4B 82 C3 A8 82 ........8..K....
0000A0: C3 36 83 C3 3A 83 C3 3E 83 C3 8F 83 C3 A7 83 C3 .6..:..>........
0000B0: BC 83 C3 CE 83 C3 E0 83 C3 26 84 C3 34 84 C3 3C .........&..4..<
0000C0: 84 C3 44 84 C3 38 85 C3 3D 85 C3 9F 85 C3 00 00 ..D..8..=.......
0000D0: 43 4F 4E D6 45 44 49 C3 50 52 54 C3 50 52 54 D6 CON.EDI.PRT.PRT.
0000E0: 4D 49 44 C3 45 CC 45 D5 45 C4 44 50 C5 44 50 CF MID.E.E.E.DP.DP.
0000F0: 54 D0 54 44 D0 57 4B 45 D9 44 CC 44 C8 44 D4 53 T.TD.WKE.D.D.D.S
000100: D4 4C 49 4E 45 D2 4C 49 4E C5 43 41 C4 00 00 00 .LINE.LIN.CA....
000110: 00 00 00 FE 02 C2 6C 83 DD 6E 00 DD 66 01 22 3F ......l..n..f."?
000120: 89 DD 6E 02 26 01 3E 19 BD DA 67 83 CD 75 BB 21 ..n.&.>...g..u.!
000130: C4 87 CD 85 83 CD CA 80 21 C9 87 CD 85 83 CD F7 ........!.......
000140: 80 21 CF 87 CD 85 83 C3 2F 81 2A 3F 89 06 04 FD .!....../.*?....
000150: 21 59 89 FD 5E 00 FD 56 01 AF A7 ED 52 38 03 3C !Y..^..V....R8.<
000160: 18 F8 CD F1 80 FD 23 FD 23 19 10 E7 7D CD F1 80 ......#.#...}...
000170: C9 C6 30 CD 5A BB C9 3E 26 CD 5A BB 2A 3F 89 06 ..0.Z..>&.Z.*?..
000180: 03 FD 21 63 89 FD 5E 00 FD 56 01 AF A7 ED 52 38 ..!c..^..V....R8
000190: 03 3C 18 F8 CD 23 81 FD 23 FD 23 19 10 E7 7D CD .<...#..#.#...}.
0001A0: 23 81 C9 FE 0A 38 02 C6 07 C6 30 CD 5A BB C9 2A #....8....0.Z..*
0001B0: 3F 89 06 08 4C 3E 30 CB 01 30 01 3C CD 5A BB 10 ?...L>0..0.<.Z..
0001C0: F4 06 08 4D 3E 30 CB 01 30 01 3C CD 5A BB 10 F4 ...M>0..0.<.Z...
0001D0: C9 FD E1 DD 2B DD 2B 18 0A FD E1 FE 06 C2 6C 83 ....+.+.......l.
0001E0: CD 99 81 DD 6E 02 7D FE 1A D2 67 83 DD 66 04 22 ....n.}...g..f."
0001F0: 3B 89 22 3D 89 CD B1 87 D2 67 83 DD 7E 06 B7 C4 ;."=.....g..~...
Size : 512 (Real : 512)
000000: AF 81 FD E5 CD C4 81 DD 7E 08 CD 90 BB DD 7E 0A ........~.....~.
000010: CD 96 BB 2A 3B 89 C3 75 BB DD 6E 00 DD 66 01 22 ...*;..u..n..f."
000020: 41 89 7E 32 43 89 23 5E 23 56 ED 53 45 89 C9 FE A.~2C.#^#V.SE...
000030: 01 28 04 3E 14 18 02 3E 12 F5 2A 3B 89 CD 75 BB .(.>...>..*;..u.
000040: F1 C3 5A BB CD 93 BB 32 4A 89 CD 99 BB 32 4B 89 ..Z....2J....2K.
000050: C9 CD 59 81 21 3B 88 06 FF 36 00 23 10 FB CD 90 ..Y.!;...6.#....
000060: 87 21 3B 88 CD 00 B9 CD 3A BD CD 03 B9 06 00 21 .!;.....:......!
000070: 3B 88 7E B7 28 04 04 23 18 F8 78 B7 28 06 3A 43 ;.~.(..#..x.(.:C
000080: 89 B8 30 15 3E 07 CD 5A BB 3E 42 CD 1E BB C2 2B ..0.>..Z.>B....+
000090: 82 2A 3B 89 CD 75 BB 18 C8 ED 5B 45 89 C5 4F 06 .*;..u....[E..O.
0000A0: 00 21 3B 88 ED B0 2A 41 89 C1 70 3A 4A 89 CD 90 .!;...*A..p:J...
0000B0: BB 3A 4B 89 CD 96 BB C9 CD 59 81 2A 45 89 3A 43 .:K......Y.*E.:C
0000C0: 89 47 7E CD 5A BB 23 10 F9 18 E0 CD 59 81 ED 5B .G~.Z.#.....Y..[
0000D0: 69 89 7A B3 C4 44 84 3E 1B 2A 3B 89 95 47 3A 43 i.z..D.>.*;..G:C
0000E0: 89 B8 D2 71 83 2A 5B BB 22 A5 82 3E C3 32 5A BB ...q.*[."..>.2Z.
0000F0: 21 96 82 22 5B BB 2A 45 89 3A 43 89 47 CD 8E 82 !.."[.*E.:C.G...
000100: 2A A5 82 22 5B BB 3E CF 32 5A BB C3 2B 82 7E CD *.."[.>.2Z..+.~.
000110: 5A BB 23 10 F9 C9 CD A4 82 3E 08 CD A4 82 3E 0A Z.#......>....>.
000120: CD A4 82 C9 CF 00 00 C9 FE 05 C2 6C 83 CD 99 81 ...........l....
000130: 32 3E 89 CD B1 87 D2 71 83 05 78 32 3E 89 DD 6E 2>.....q..x2>..n
000140: 02 7D FE 1A D2 67 83 26 01 22 3B 89 DD 7E 04 B7 .}...g.&.";..~..
000150: C4 AF 81 CD C4 81 DD 7E 06 CD 90 BB DD 7E 08 CD .......~.....~..
000160: 96 BB AF 32 47 89 3A 43 89 47 CB 47 28 06 3E FF ...2G.:C.G.G(.>.
000170: 32 47 89 04 3A 69 89 B7 28 02 CB 20 3A 3E 89 90 2G..:i..(.. :>..
000180: 1F 2A 3B 89 67 24 CD 75 BB 3A 47 89 B7 CA 3B 82 .*;.g$.u.:G...;.
000190: 3A 43 89 47 2A 45 89 7E FE 20 F5 CC 28 83 F1 CD :C.G*E.~. ..(...
0001A0: 5A BB 23 10 F2 C3 2B 82 3A 47 89 B7 C8 AF 32 47 Z.#...+.:G....2G
0001B0: 89 3E 20 C3 5A BB 06 12 18 08 06 13 18 04 06 14 .> .Z...........
0001C0: 18 00 FE 02 C2 6C 83 DD 7E 00 FE 1A D2 67 83 6F .....l..~....g.o
0001D0: 26 01 C5 CD 75 BB CD C4 81 DD 7E 02 CD 96 BB C1 &...u.....~.....
0001E0: 78 CD 5A BB C3 2B 82 21 D5 87 18 08 21 EB 87 18 x.Z..+.!....!...
0001F0: 03 21 05 88 E5 CD 44 84 E1 7E FE FF CA 06 BB CD .!....D..~......
Size : 512 (Real : 512)
000000: 5A BB 23 18 F4 7E FE FF C8 CD 5A BB 23 18 F6 FE Z.#..~....Z.#...
000010: 02 C2 6C 83 DD 5E 00 DD 56 01 DD 6E 02 DD 66 03 ..l..^..V..n..f.
000020: 7E 12 23 13 7E 12 C9 FE 02 C2 6C 83 DD 5E 00 DD ~.#.~.....l..^..
000030: 56 01 DD 6E 02 DD 66 03 73 23 72 C9 FE 02 C2 6C V..n..f.s#r....l
000040: 83 DD 6E 00 DD 66 01 7E 6F 26 00 C3 9E 80 FE 02 ..n..f.~o&......
000050: C2 6C 83 DD 6E 00 DD 66 01 5E 23 56 EB C3 9E 80 .l..n..f.^#V....
000060: FE 01 CA F5 83 FE 05 20 26 CD 51 81 21 25 88 CD ....... &.Q.!%..
000070: 79 83 C3 2B 82 CD 99 81 CD 06 BB FE 20 38 F9 FE y..+........ 8..
000080: 61 38 02 E6 DF 2A 45 89 77 2A 41 89 36 01 C9 FE a8...*E.w*A.6...
000090: 02 C2 6C 83 CD 99 81 CD 06 BB E6 DF FE 4F 28 E5 ..l..........O(.
0000A0: FE 4E 28 E1 18 F1 21 4C 84 11 FF 00 ED 53 69 89 .N(...!L.....Si.
0000B0: 22 D4 BD C9 21 9A 84 11 00 FF 18 F0 21 D1 84 11 "...!.......!...
0000C0: FF FF 18 E8 2A 4E 80 11 00 00 18 E0 F5 E5 1E 02 ....*N..........
0000D0: CD A5 BB 3E 19 CD 5A BB 3E FF CD 5A BB 0E 08 06 ...>..Z.>..Z....
0000E0: 04 56 AF CB 4B 20 0E CB 22 CB 22 CB 22 CB 22 18 .V..K ..".".".".
0000F0: 04 CB 27 CB 27 CB 22 30 02 F6 03 10 F4 CD 5A BB ..'.'."0......Z.
000100: 23 0D 20 DB 3E FF E1 D5 E5 CD 4D 80 E1 D1 1D C8 #. .>.....M.....
000110: 3E 09 CD 5A BB F1 24 E5 18 B6 F5 2D E5 1E 02 CD >..Z..$....-....
000120: A5 BB 3E 19 CD 5A BB 3E FF CD 5A BB 06 04 CB 4B ..>..Z.>..Z....K
000130: 20 04 23 23 23 23 7E CD 5A BB CD 5A BB 23 10 F6 .####~.Z..Z.#..
000140: 3E FF E1 D5 E5 CD 4D 80 E1 2C D1 1D C8 F1 E5 18 >.....M..,......
000150: CE F5 2D E5 1E 04 CD A5 BB 3E 19 CD 5A BB 3E FF ..-......>..Z.>.
000160: CD 5A BB CB 43 28 04 23 23 23 23 0E 04 06 04 56 .Z..C(.####....V
000170: 7B FE 03 30 08 CB 22 CB 22 CB 22 CB 22 AF CB 27 {..0.."."."."..'
000180: CB 27 CB 22 30 02 F6 03 10 F4 CD 5A BB CD 5A BB .'."0......Z..Z.
000190: 23 0D 20 D9 3E FF E1 D5 E5 CD 4D 80 E1 D1 CB 43 #. .>.....M....C
0001A0: C2 24 85 2C 7B FE 03 C2 31 85 3E 09 CD 5A BB 2D .$.,{...1.>..Z.-
0001B0: 24 F1 1D C8 F5 E5 18 9E 21 F9 BB 18 03 21 F6 BB $.......!....!..
0001C0: 22 75 85 FE 06 DA 6C 83 47 CD E1 BB 32 4C 89 DD "u....l.G...2L..
0001D0: 7E 00 FE 10 30 04 CD DE BB 05 CB 40 C2 6C 83 C5 ~...0......@.l..
0001E0: 05 DD 23 DD 23 10 FA C1 CB 38 21 C0 BB 22 93 85 ..#.#....8!.."..
0001F0: CD 85 85 05 21 F6 BB 22 93 85 CD 85 85 10 FB 3A ....!..".......:
Size : 512 (Real : 512)
000000: 4C 89 C3 DE BB DD 56 03 DD 5E 02 DD 66 01 DD 6E L.....V..^..f..n
000010: 00 C5 CD 00 00 C1 DD 2B DD 2B DD 2B DD 2B C9 FE .......+.+.+.+..
000020: 06 28 19 FE 08 C2 6C 83 DD 6E 00 26 00 DD 5E 02 .(....l..n.&..^.
000030: 16 00 DD 23 DD 23 DD 23 DD 23 18 06 21 16 00 11 ...#.#.#.#..!...
000040: 16 00 22 57 89 ED 53 55 89 DD 7E 00 47 C5 CD E1 .."W..SU..~.G...
000050: BB 32 4C 89 DD 7E 02 CD DE BB DD 56 0B DD 5E 0A .2L..~.....V..^.
000060: DD 66 09 DD 6E 08 ED 53 4D 89 22 4F 89 CD C0 BB .f..n..SM."O....
000070: DD 56 07 DD 5E 06 DD 66 05 DD 6E 04 ED 53 51 89 .V..^..f..n..SQ.
000080: 22 53 89 CD 56 87 C1 78 B7 CA 46 87 FE 01 20 22 "S..V..x..F... "
000090: CD 16 86 C3 46 87 2A 4F 89 A7 ED 5B 57 89 ED 52 ....F.*O...[W..R
0000A0: ED 5B 4D 89 CD C0 BB ED 5B 51 89 21 00 00 CD F9 .[M.....[Q.!....
0000B0: BB C9 FE 02 20 18 CD 16 86 2A 4F 89 A7 ED 5B 53 .... ....*O...[S
0000C0: 89 ED 52 ED 5B 57 89 19 CD 20 86 C3 46 87 FE 03 ..R.[W... ..F...
0000D0: 20 35 CD 58 86 C3 46 87 2A 4D 89 ED 5B 55 89 19 5.X..F.*M..[U..
0000E0: 22 4D 89 2A 51 89 A7 ED 52 ED 52 22 51 89 2A 4F "M.*Q...R.R"Q.*O
0000F0: 89 ED 5B 57 89 ED 52 22 4F 89 2A 53 89 ED 52 ED ..[W..R"O.*S..R.
000100: 52 22 53 89 C3 4C 87 FE 04 C2 16 87 CD 92 86 C3 R"S..L..........
000110: 46 87 CD 58 86 2A 4F 89 ED 5B 4D 89 E5 D5 CD C0 F..X.*O..[M.....
000120: BB ED 5B 55 89 CD 83 87 2A 57 89 CD F9 BB 2A 4D ..[U....*W....*M
000130: 89 ED 5B 51 89 19 22 4D 89 EB 2A 4F 89 CD C0 BB ..[Q.."M..*O....
000140: 2A 57 89 ED 5B 55 89 CD F9 BB 2A 4F 89 ED 5B 53 *W..[U....*O..[S
000150: 89 A7 ED 52 22 4F 89 ED 5B 4D 89 CD C0 BB 2A 57 ...R"O..[M....*W
000160: 89 CD 89 87 ED 5B 55 89 CD F9 BB 2A 4D 89 ED 5B .....[U....*M..[
000170: 51 89 A7 ED 52 EB 2A 4F 89 CD C0 BB 2A 57 89 CD Q...R.*O....*W..
000180: 89 87 ED 5B 55 89 CD 83 87 CD F9 BB D1 E1 22 4F ...[U........."O
000190: 89 ED 53 4D 89 C9 FE 10 30 2C D6 03 47 C5 C5 C5 ..SM....0,..G...
0001A0: CD 58 86 C1 10 F9 C1 2A 57 89 CD 3F 87 22 57 89 .X.....*W..?."W.
0001B0: C1 2A 55 89 CD 3F 87 22 55 89 CD 95 86 18 07 E5 .*U..?."U.......
0001C0: D1 05 19 10 FD C9 3A 4A 89 C3 DE BB 2A 4F 89 ED ......:J....*O..
0001D0: 5B 4D 89 CD C0 BB ED 5B 51 89 21 00 00 CD F9 BB [M.....[Q.!.....
0001E0: 11 00 00 2A 53 89 CD 89 87 CD F9 BB 21 00 00 ED ...*S.......!...
0001F0: 5B 51 89 CD 83 87 CD F9 BB 11 00 00 2A 53 89 CD [Q..........*S..
Size : 512 (Real : 512)
000000: F9 BB C9 EB CD 89 87 EB C9 AF 95 6F 9C 95 67 C9 ...........o..g.
000010: CD 00 B9 3A 01 DE FE 71 28 0E FE C9 20 05 21 5E ...:...q(... .!^
000020: BD 18 08 21 5B BD 18 03 21 3A BD 22 E8 81 C3 03 ...![...!:."....
000030: B9 CD 11 BC 06 14 38 06 28 02 CB 20 CB 20 3A 3E ......8.(.. . :>
000040: 89 04 B8 C9 44 45 43 3A FF 20 48 45 58 3A FF 20 ....DEC:. HEX:.
000050: 42 49 4E 3A FF 1F 01 01 18 20 45 52 52 45 55 52 BIN:..... ERREUR
000060: 20 4C 4F 43 41 54 45 20 07 18 FF 1F 01 01 18 20 LOCATE .......
000070: 45 52 52 45 55 52 20 50 41 52 41 4D 45 54 52 45 ERREUR PARAMETRE
000080: 53 20 07 18 FF 1F 01 01 18 20 54 52 4F 50 20 4C S ....... TROP L
000090: 4F 4E 47 20 50 4F 55 52 20 41 46 46 49 43 48 45 ONG POUR AFFICHE
0000A0: 52 20 07 18 FF 07 20 50 72 65 73 73 65 72 20 75 R .... Presser u
0000B0: 6E 65 20 74 6F 75 63 68 65 20 FF 00 00 00 00 00 ne touche ......
0000C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000100: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000110: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000120: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000130: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000140: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000150: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000160: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000170: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000180: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000190: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001D0: 00 00 00 00 00 16 00 16 00 10 27 E8 03 64 00 0A ..........'..d..
0001E0: 00 01 00 00 10 00 01 10 00 00 00 00 00 00 00 00 ................
0001F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
Size : 512 (Real : 512)
000000: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000010: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000020: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000030: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000040: 00 00 00 00 1A 42 42 35 41 0D 0A 4D 41 54 41 44 .....BB5A..MATAD
000050: 52 20 20 45 51 55 20 23 42 42 41 35 0D 0A 49 4E R EQU #BBA5..IN
000060: 44 50 52 54 20 20 45 51 55 20 23 42 44 44 34 0D DPRT EQU #BDD4.
000070: 0A 3B 0D 0A 20 20 20 20 20 20 20 20 4C 44 20 48 .;.. LD H
000080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000100: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000110: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000120: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000130: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000140: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000150: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000160: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000170: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000180: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000190: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
Size : 512 (Real : 512)
000000: 00 2D 49 4E 4B 2D 49 4E 54 42 49 4E 00 00 00 00 .-INK-INTBIN....
000010: 00 00 02 00 00 8F 28 00 9A 00 00 00 00 00 00 00 ......(.........
000020: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000030: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000040: 9A 00 00 ED 04 04 3E 1B B8 20 02 06 00 48 F1 CD ......>.. ...H..
000050: 32 BC DD 36 00 19 DD E1 F1 C1 D1 E1 FB C9 19 1A 2..6............
000060: F7 B2 42 03 43 B6 FD 22 99 0E 1F F1 96 C5 86 73 ..B.C..".......s
000070: DC 09 E7 9E 30 C8 FD 3A D3 BE E1 5C 36 03 79 26 ....0..:...\6.y&
000080: CD 00 B9 21 ED B4 3A 01 DE FE 71 28 03 21 37 B6 ...!..:...q(.!7.
000090: 22 C8 BE CD 03 B9 21 AF BE 06 81 0E 00 11 B7 BE ".....!.........
0000A0: C3 D7 BC 21 AF BE C3 DA BC 21 AF BE C3 DD BC 00 ...!.....!......
0000B0: 00 00 00 00 00 00 00 F3 E5 D5 C5 F5 DD E5 DD 21 ...............!
0000C0: 19 BF DD 35 00 20 4A 21 ED B4 7E 07 30 3F 06 00 ...5. J!..~.0?..
0000D0: 2D 7E 07 38 26 07 38 21 07 38 1F 2D 7E CB 07 38 -~.8&.8!.8.-~..8
0000E0: 06 07 07 30 28 18 11 CD 3B BC 04 3E 1B B8 20 02 ...0(...;..>.. .
0000F0: 06 00 48 CD 38 BC 18 15 04 04 04 78 F5 CD 35 BC ..H.8......x..5.
000100: 04 3E 1B B8 20 02 06 00 48 F1 CD 32 BC DD 36 00 .>.. ...H..2..6.
000110: 19 DD E1 F1 C1 D1 E1 FB C9 19 1A F7 B2 42 03 43 .............B.C
000120: B6 FD 22 99 0E 1F F1 96 C5 86 73 DC 09 E7 9E 30 ..".......s....0
000130: C8 FD 3A D3 BE E1 5C 36 03 79 26 18 5C A3 D5 18 ..:...\6.y&.\...
000140: FD FC A7 97 35 5D F7 D0 4C 99 1B 00 58 D9 F0 F7 ....5]..L...X...
000150: 82 00 EF 20 2D 20 53 6F 72 74 69 65 20 64 65 20 ... - Sortie de
000160: 72 6F 75 74 69 6E 65 20 2D F0 EF F0 F1 72 69 65 routine -....rie
000170: 6E 66 61 69 72 E5 64 12 EE 52 65 63 75 70 65 72 nfair.d..Recuper
000180: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000190: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
Size : 512 (Real : 512)
000000: 74 9F EB 6D 65 20 64 65 0D 0A 70 72 6F 74 65 63 t..me de..protec
000010: 74 69 6F 6E 20 65 6D 70 6C 6F 79 9F E1 20 70 6F tion employ.. po
000020: 75 72 20 20 74 65 73 74 65 72 20 20 6C 61 20 20 ur tester la
000030: 70 69 73 74 65 20 20 2E 20 20 4F 75 20 20 6F 6E piste . Ou on
000040: 20 20 61 70 70 65 6C 65 20 20 9F F5 61 20 20 75 appele ..a u
000050: 6E 20 76 69 6F 6C 20 64 65 0D 0A 63 6F 70 69 72 n viol de..copir
000060: 79 67 68 74 20 6F 75 20 6A 65 20 73 75 69 73 20 yght ou je suis
000070: 6C 27 9F E1 76 9F E6 71 75 65 20 64 27 41 75 74 l'..v..que d'Aut
000080: 75 6E 20 2E 2E 2E 0D 0A 20 20 20 20 53 69 20 76 un ..... Si v
000090: 6F 75 73 20 61 76 65 7A 20 9F E1 63 72 61 73 9F ous avez ..cras.
0000A0: E1 20 61 76 65 63 20 20 73 75 62 74 69 6C 69 74 . avec subtilit
0000B0: 9F E1 20 20 76 6F 73 20 20 73 65 63 74 65 75 72 .. vos secteur
0000C0: 73 20 20 2C 20 6C 61 20 72 65 70 72 6F 64 75 63 s , la reproduc
0000D0: 74 69 6F 6E 20 64 65 73 0D 0A 64 6F 6E 6E 9F E1 tion des..donn..
0000E0: 65 73 20 20 73 65 72 61 20 20 63 6F 72 72 65 63 es sera correc
0000F0: 74 65 20 20 6D 61 69 73 20 20 63 65 72 74 61 69 te mais certai
000100: 6E 73 20 20 6F 63 74 65 74 73 20 20 65 6E 74 72 ns octets entr
000110: 65 20 20 6C 65 73 20 20 73 65 63 74 65 75 72 73 e les secteurs
000120: 20 20 73 65 72 6F 6E 74 0D 0A 64 69 66 66 9F E1 seront..diff..
000130: 72 65 6E 74 73 20 73 75 72 20 6C 61 20 63 6F 70 rents sur la cop
000140: 69 65 20 2E 20 53 69 20 20 76 6F 75 73 20 20 61 ie . Si vous a
000150: 72 72 69 76 65 7A 20 20 9F EA 20 20 9F E1 63 72 rrivez .. ..cr
000160: 69 72 65 20 75 6E 65 20 72 6F 75 74 69 6E 65 20 ire une routine
000170: 63 61 70 61 62 6C 65 20 64 65 0D 0A 72 65 70 72 capable de..repr
000180: 6F 64 75 69 72 65 20 9F EA 20 6C 27 6F 63 74 65 oduire .. l'octe
000190: 74 20 70 72 9F EB 73 20 63 65 20 67 65 6E 72 65 t pr..s ce genre
0001A0: 20 64 65 20 70 69 73 74 65 20 76 6F 74 72 65 20 de piste votre
0001B0: 74 61 6C 65 6E 74 20 6E 6F 75 73 20 69 6E 74 9F talent nous int.
0001C0: E1 72 65 73 73 65 20 2E 2E 2E 0D 0A 20 20 20 20 .resse .....
0001D0: 43 45 20 51 55 27 49 4C 20 41 55 52 41 49 54 20 CE QU'IL AURAIT
0001E0: 50 55 20 46 41 49 52 45 20 44 45 20 20 50 4C 55 PU FAIRE DE PLU
0001F0: 53 20 20 3A 20 20 28 45 74 20 20 71 75 27 69 6C S : (Et qu'il
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6F 72 for
000010: 6D 61 74 65 72 20 75 6E 20 73 65 63 74 65 75 72 mater un secteur
000020: 20 64 65 20 74 61 69 6C 6C 65 20 35 0D 0A 20 20 de taille 5..
000030: 20 20 20 20 20 20 20 54 41 49 4C 4C 45 20 44 55 TAILLE DU
000040: 20 46 4F 52 4D 41 54 20 3A 20 32 20 20 20 20 20 FORMAT : 2
000050: 0D 0A 20 20 20 20 2B 2D 2D 2D 2D 2B 2D 2D 2D 2D .. +----+----
000060: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2B 2D 2D 2D 2D 2D ----------+-----
000070: 2D 2D 2D 2D 2B 20 20 20 20 20 20 20 20 51 75 61 ----+ Qua
000080: 6E 64 20 40 20 7B 63 72 61 73 65 72 20 75 6E 20 nd @ {craser un
000090: 73 65 63 74 65 75 72 73 20 20 64 65 0D 0A 20 20 secteurs de..
0000A0: 20 20 21 20 46 54 20 21 20 20 47 41 50 20 46 4F ! FT ! GAP FO
0000B0: 52 4D 41 54 20 20 21 20 45 43 52 41 53 45 53 20 RMAT ! ECRASES
0000C0: 21 20 20 20 20 20 20 20 20 74 61 69 6C 6C 65 20 ! taille
0000D0: 35 20 69 6C 20 66 61 75 64 72 61 69 74 20 70 6F 5 il faudrait po
0000E0: 75 72 20 20 63 65 6C 61 0D 0A 20 20 20 20 21 2D ur cela.. !-
0000F0: 2D 2D 2D 2B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ---+------------
000100: 2D 2D 2B 2D 2D 2D 2D 2D 2D 2D 2D 2D 21 20 20 20 --+---------!
000110: 20 20 20 20 20 70 6F 75 76 6F 69 72 20 7B 63 72 pouvoir {cr
000120: 69 72 65 20 20 75 6E 20 20 73 65 63 74 65 75 72 ire un secteur
000130: 20 20 64 65 0D 0A 20 20 20 20 21 20 20 33 20 21 de.. ! 3 !
000140: 20 44 65 20 20 20 31 20 40 20 20 30 30 20 21 20 De 1 @ 00 !
000150: 20 20 20 31 20 20 20 20 21 20 20 20 20 20 20 20 1 !
000160: 20 74 61 69 6C 6C 65 20 36 2E 20 43 6F 6D 6D 65 taille 6. Comme
000170: 20 6C 27 7B 63 72 69 74 75 72 65 20 64 27 75 6E l'{criture d'un
000180: 0D 0A 20 20 20 20 21 2D 2D 2D 2D 2B 2D 2D 2D 2D .. !----+----
000190: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2B 2D 2D 2D 2D 2D ----------+-----
0001A0: 2D 2D 2D 2D 21 20 20 20 20 20 20 20 20 73 65 63 ----! sec
0001B0: 74 65 75 72 20 3E 20 35 20 20 64 7B 74 72 75 69 teur > 5 d{trui
0001C0: 74 20 20 6C 61 20 20 70 69 73 74 65 0D 0A 20 20 t la piste..
0001D0: 20 20 21 20 20 34 20 21 20 44 65 20 20 20 31 20 ! 4 ! De 1
0001E0: 40 20 23 37 46 20 21 20 20 20 20 33 20 20 20 20 @ #7F ! 3
0001F0: 21 20 20 20 20 20 20 20 20 63 27 65 73 74 20 64 ! c'est d
Size : 512 (Real : 512)
000000: 6F 6E 63 20 69 6D 70 6F 73 73 69 62 6C 65 20 2E onc impossible .
000010: 0D 0A 20 20 20 20 21 20 20 34 20 21 20 44 65 20 .. ! 4 ! De
000020: 23 38 30 20 40 20 23 30 30 20 21 20 20 20 20 32 #80 @ #00 ! 2
000030: 20 20 20 20 21 0D 0A 20 20 20 20 21 2D 2D 2D 2D !.. !----
000040: 2B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2B +--------------+
000050: 2D 2D 2D 2D 2D 2D 2D 2D 2D 21 0D 0A 20 20 20 20 ---------!..
000060: 21 20 20 35 20 21 20 44 65 20 20 20 31 20 40 20 ! 5 ! De 1 @
000070: 23 30 30 20 21 20 20 20 20 35 20 20 20 20 21 0D #00 ! 5 !.
000080: 0A 20 20 20 20 2B 2D 2D 2D 2D 2B 2D 2D 2D 2D 2D . +----+-----
000090: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2B 2D 2D 2D 2D 2D 2D ---------+------
0000A0: 2D 2D 2D 2B 0D 0A 20 0D 0A 20 20 20 20 20 20 20 ---+.. ..
0000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000C0: 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D -----------
0000D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 0D 0A -----------.. ..
0000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000F0: 4D 41 49 53 20 45 4E 20 51 55 4F 49 20 50 45 55 MAIS EN QUOI PEU
000100: 54 20 4E 4F 55 53 20 53 45 52 56 49 52 20 43 45 T NOUS SERVIR CE
000110: 54 54 45 20 43 55 49 53 49 4E 45 20 3F 3F 21 0D TTE CUISINE ??!.
000120: 0A 20 0D 0A 20 20 20 20 20 4C 27 75 73 61 67 65 . .. L'usage
000130: 20 6C 65 20 70 6C 75 73 20 7B 76 69 64 65 6E 74 le plus {vident
000140: 20 65 73 74 20 64 27 69 6E 74 65 72 64 69 72 65 est d'interdire
000150: 20 61 75 20 63 6F 70 69 65 75 72 20 64 65 20 64 au copieur de d
000160: 7B 74 65 72 6D 69 6E 65 72 20 6C 61 20 76 72 61 {terminer la vra
000170: 69 65 0D 0A 20 74 61 69 6C 6C 65 20 64 75 20 66 ie.. taille du f
000180: 6F 72 6D 61 74 20 65 74 20 70 61 72 20 6C 65 20 ormat et par le
000190: 66 61 69 74 20 6D 65 08 5E 6D 65 20 2C 20 64 27 fait me.^me , d'
0001A0: 69 6E 74 65 72 64 69 72 65 20 75 6E 65 20 72 65 interdire une re
0001B0: 70 72 6F 64 75 63 74 69 6F 6E 20 45 58 41 43 54 production EXACT
0001C0: 45 20 64 65 0D 0A 20 6C 61 20 70 69 73 74 65 20 E de.. la piste
0001D0: 2E 20 45 6E 74 65 6E 64 65 7A 20 70 61 72 20 20 . Entendez par
0001E0: 6C 40 20 20 71 75 65 20 20 6C 65 73 20 20 6F 63 l@ que les oc
0001F0: 74 65 74 73 20 20 64 65 20 64 6F 6E 6E 7B 65 73 tets de donn{es
Size : 512 (Real : 512)
000000: 20 73 65 72 6F 6E 74 20 63 6F 72 72 65 63 74 65 seront correcte
000010: 6D 65 6E 74 0D 0A 20 72 65 70 72 6F 64 75 69 74 ment.. reproduit
000020: 73 20 6D 61 69 73 20 6C 65 73 20 6F 63 74 65 74 s mais les octet
000030: 73 20 73 69 74 75 7B 73 20 65 6E 74 72 65 20 32 s situ{s entre 2
000040: 20 73 65 63 74 65 75 72 73 20 73 65 72 6F 6E 74 secteurs seront
000050: 20 64 69 66 66 7B 72 65 6E 74 73 20 65 6E 74 72 diff{rents entr
000060: 65 20 6C 61 0D 0A 20 63 6F 70 69 65 20 65 74 20 e la.. copie et
000070: 6C 27 6F 72 69 67 69 6E 61 6C 20 2E 20 55 6E 20 l'original . Un
000080: 65 78 65 6D 70 6C 65 20 64 65 73 20 70 6C 75 73 exemple des plus
000090: 20 66 72 61 70 70 61 6E 74 73 20 65 73 74 20 6C frappants est l
0000A0: 65 20 73 75 69 76 61 6E 74 20 3A 0D 0A 0D 0A 20 e suivant :....
0000B0: 20 20 20 20 4F 52 49 47 49 4E 41 4C 20 20 20 20 ORIGINAL
0000C0: 21 20 20 20 20 43 4F 50 49 45 20 20 20 20 20 20 ! COPIE
0000D0: 20 20 20 20 20 20 20 20 4D 61 69 73 20 20 71 75 Mais qu
0000E0: 65 20 20 63 27 65 73 74 2D 69 6C 20 20 70 61 73 e c'est-il pas
0000F0: 73 7B 20 20 3F 3F 20 20 56 6F 74 72 65 0D 0A 20 s{ ?? Votre..
000100: 30 31 2C 30 30 2C 43 31 2C 30 30 20 4F 4B 20 20 01,00,C1,00 OK
000110: 21 20 30 31 2C 30 30 2C 43 31 2C 30 30 20 43 52 ! 01,00,C1,00 CR
000120: 2F 44 44 20 20 63 6F 70 69 65 75 72 20 66 61 76 /DD copieur fav
000130: 6F 72 69 20 73 27 65 73 74 20 62 72 75 08 5E 6C ori s'est bru.^l
000140: 7B 20 65 6E 20 70 72 65 6E 61 6E 74 20 73 61 0D { en prenant sa.
000150: 0A 20 30 31 2C 30 30 2C 43 31 2C 30 32 20 4F 4B . 01,00,C1,02 OK
000160: 20 20 21 20 30 31 2C 30 30 2C 43 31 2C 30 32 20 ! 01,00,C1,02
000170: 4F 4B 20 20 20 20 20 76 65 73 73 69 65 20 20 70 OK vessie p
000180: 6F 75 72 20 20 75 6E 65 20 20 6C 61 6E 74 65 72 our une lanter
000190: 6E 65 20 20 21 20 20 44 61 6E 73 20 20 6C 61 0D ne ! Dans la.
0001A0: 0A 20 30 31 2C 30 30 2C 43 31 2C 30 32 20 4F 4B . 01,00,C1,02 OK
0001B0: 20 20 21 20 30 31 2C 30 30 2C 43 31 2C 30 32 20 ! 01,00,C1,02
0001C0: 4F 4B 20 20 20 20 20 6D 65 73 75 72 65 20 6F 7C OK mesure o|
0001D0: 20 39 20 73 65 63 74 65 75 72 73 20 20 64 65 20 9 secteurs de
0001E0: 20 74 61 69 6C 6C 65 20 20 32 20 2B 20 75 6E 0D taille 2 + un.
0001F0: 0A 20 30 31 2C 30 30 2C 43 31 2C 30 32 20 4F 4B . 01,00,C1,02 OK
Size : 512 (Real : 512)
000000: 20 20 21 20 30 31 2C 30 30 2C 43 31 2C 30 32 20 ! 01,00,C1,02
000010: 4F 4B 20 20 20 20 20 73 65 63 74 65 75 72 73 20 OK secteurs
000020: 20 64 65 20 20 74 61 69 6C 6C 65 20 20 20 30 20 de taille 0
000030: 20 20 70 65 75 76 65 6E 74 20 20 65 08 5E 74 72 peuvent e.^tr
000040: 65 0D 0A 20 30 31 2C 30 30 2C 43 31 2C 30 32 20 e.. 01,00,C1,02
000050: 4F 4B 20 20 21 20 30 31 2C 30 30 2C 43 31 2C 30 OK ! 01,00,C1,0
000060: 32 20 4F 4B 20 20 20 20 20 66 6F 72 6D 61 74 7B 2 OK format{
000070: 73 20 74 6F 75 74 20 20 40 20 20 66 61 69 74 20 s tout @ fait
000080: 20 6C 7B 67 61 6C 65 6D 65 6E 74 20 20 2C 20 6C l{galement , l
000090: 65 0D 0A 20 30 31 2C 30 30 2C 43 31 2C 30 32 20 e.. 01,00,C1,02
0000A0: 4F 4B 20 20 21 20 30 31 2C 30 30 2C 43 31 2C 30 OK ! 01,00,C1,0
0000B0: 32 20 4F 4B 20 20 20 20 20 63 6F 70 69 65 75 72 2 OK copieur
0000C0: 20 76 61 20 61 75 20 20 70 6C 75 73 20 20 73 69 va au plus si
0000D0: 6D 70 6C 65 20 65 74 20 63 6F 6E 73 69 64 7D 72 mple et consid}r
0000E0: 65 0D 0A 20 30 31 2C 30 30 2C 43 31 2C 30 32 20 e.. 01,00,C1,02
0000F0: 4F 4B 20 20 21 20 30 31 2C 30 30 2C 43 31 2C 30 OK ! 01,00,C1,0
000100: 32 20 4F 4B 20 20 20 20 20 71 75 65 20 6C 61 20 2 OK que la
000110: 76 72 61 69 65 20 74 61 69 6C 6C 65 20 64 75 20 vraie taille du
000120: 66 6F 72 6D 61 74 20 65 73 74 20 64 65 20 32 20 format est de 2
000130: 2E 0D 0A 20 30 31 2C 30 30 2C 43 31 2C 30 32 20 ... 01,00,C1,02
000140: 4F 4B 20 20 21 20 30 31 2C 30 30 2C 43 31 2C 30 OK ! 01,00,C1,0
000150: 32 20 4F 4B 20 20 20 20 20 52 65 73 74 65 20 20 2 OK Reste
000160: 40 20 20 20 76 6F 69 72 20 20 20 63 6F 6D 6D 65 @ voir comme
000170: 6E 74 20 20 20 7B 74 61 62 6C 69 72 20 20 75 6E nt {tablir un
000180: 65 0D 0A 20 30 31 2C 30 30 2C 43 31 2C 30 32 20 e.. 01,00,C1,02
000190: 4F 4B 20 20 21 20 30 31 2C 30 30 2C 43 31 2C 30 OK ! 01,00,C1,0
0001A0: 32 20 4F 4B 20 20 20 20 20 70 72 6F 74 65 63 74 2 OK protect
0001B0: 69 6F 6E 20 62 61 73 7B 65 20 73 75 72 20 63 65 ion bas{e sur ce
0001C0: 20 66 61 69 74 20 2E 0D 0A 20 30 31 2C 30 30 2C fait ... 01,00,
0001D0: 43 31 2C 30 32 20 4F 4B 20 20 21 20 30 31 2C 30 C1,02 OK ! 01,0
0001E0: 30 2C 43 31 2C 30 32 20 4F 4B 20 20 20 20 20 20 0,C1,02 OK
0001F0: 20 20 4C 65 20 70 6C 75 73 20 7B 6C 7B 6D 65 6E Le plus {l{men
Size : 512 (Real : 512)
000000: 74 61 69 72 65 20 63 6F 6E 73 69 73 74 65 20 40 taire consiste @
000010: 20 74 65 73 74 65 72 0D 0A 20 2D 2D 2D 2D 2D 2D tester.. ------
000020: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D ----------!-----
000030: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 20 20 20 6C ----------- l
000040: 65 20 73 65 63 74 65 75 72 20 72 65 73 74 61 6E e secteur restan
000050: 74 20 65 6E 20 20 74 61 69 6C 6C 65 20 20 30 20 t en taille 0
000060: 2E 20 53 69 20 69 6C 0D 0A 20 54 61 69 6C 6C 65 . Si il.. Taille
000070: 20 66 6F 72 6D 61 74 20 30 20 21 20 54 61 69 6C format 0 ! Tail
000080: 6C 65 20 66 6F 72 6D 61 74 20 32 20 20 20 20 65 le format 2 e
000090: 73 74 20 4F 4B 20 2C 20 6C 65 20 66 6F 72 6D 61 st OK , le forma
0000A0: 74 20 20 65 73 74 20 62 69 65 6E 20 72 65 70 72 t est bien repr
0000B0: 6F 64 75 69 74 20 2E 0D 0A 20 2D 2D 2D 2D 2D 2D oduit ... ------
0000C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D ----------!-----
0000D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 20 20 20 53 ----------- S
0000E0: 69 20 69 6C 20 65 73 74 20 20 65 6E 20 20 43 52 i il est en CR
0000F0: 2F 44 44 20 20 63 27 65 73 74 20 75 6E 65 20 6D /DD c'est une m
000100: 61 75 76 61 69 73 65 0D 0A 20 63 6F 70 69 65 20 auvaise.. copie
000110: 65 74 20 6F 6E 20 70 6C 61 6E 74 65 20 6C 65 20 et on plante le
000120: 70 72 6F 67 72 61 6D 6D 65 20 21 20 53 65 63 6F programme ! Seco
000130: 6E 64 65 20 20 73 6F 6C 75 74 69 6F 6E 20 3A 20 nde solution :
000140: 43 6F 6D 6D 65 20 6C 65 20 63 72 7B 61 74 65 75 Comme le cr{ateu
000150: 72 20 64 65 20 6C 61 0D 0A 20 70 69 73 74 65 20 r de la.. piste
000160: 61 20 6C 27 61 76 61 6E 74 61 67 65 20 73 75 72 a l'avantage sur
000170: 20 6C 65 20 20 63 6F 70 69 65 75 72 20 20 64 65 le copieur de
000180: 20 20 63 6F 6E 6E 61 69 08 5E 74 72 65 20 20 40 connai.^tre @
000190: 20 20 6C 27 6F 63 74 65 74 20 70 72 7D 73 20 74 l'octet pr}s t
0001A0: 6F 75 74 65 73 20 6C 65 73 0D 0A 20 64 6F 6E 6E outes les.. donn
0001B0: 7B 65 73 20 64 65 20 63 65 6C 6C 65 2D 63 69 20 {es de celle-ci
0001C0: 2C 20 69 6C 20 6C 75 69 20 73 75 66 66 69 74 20 , il lui suffit
0001D0: 20 64 27 69 6E 63 6C 75 72 65 20 75 6E 65 20 72 d'inclure une r
0001E0: 6F 75 74 69 6E 65 20 64 61 6E 73 20 73 6F 6E 20 outine dans son
0001F0: 70 72 6F 67 72 61 6D 6D 65 0D 0A 20 71 75 69 20 programme.. qui
Size : 512 (Real : 512)
000000: 69 72 61 20 6C 69 72 65 20 65 6E 74 72 65 20 32 ira lire entre 2
000010: 20 73 65 63 74 65 75 72 73 20 28 43 65 20 20 71 secteurs (Ce q
000020: 75 65 20 20 66 6F 6E 74 20 74 6F 75 74 65 73 20 ue font toutes
000030: 6C 65 73 20 72 6F 75 74 69 6E 65 73 20 64 27 61 les routines d'a
000040: 6E 61 6C 79 73 65 20 64 75 0D 0A 20 47 41 50 20 nalyse du.. GAP
000050: 64 65 73 20 70 72 6F 67 72 61 6D 6D 65 73 20 70 des programmes p
000060: 72 7B 73 65 6E 74 7B 73 20 64 61 6E 73 20 20 53 r{sent{s dans S
000070: 4F 53 20 20 50 52 4F 47 52 41 4D 4D 45 55 52 53 OS PROGRAMMEURS
000080: 29 20 20 2E 20 53 69 20 6C 61 20 72 65 63 68 65 ) . Si la reche
000090: 72 63 68 65 20 64 27 75 6E 0D 0A 20 47 41 50 20 rche d'un.. GAP
0000A0: 23 34 45 20 73 75 72 20 75 6E 20 66 6F 72 6D 61 #4E sur un forma
0000B0: 74 20 64 65 20 74 61 69 6C 6C 65 20 30 20 20 7B t de taille 0 {
0000C0: 63 68 6F 75 65 20 63 27 65 73 74 20 75 6E 65 20 choue c'est une
0000D0: 63 6F 70 69 65 20 70 69 72 61 74 65 20 65 74 20 copie pirate et
0000E0: 6F 6E 20 70 6C 61 6E 74 65 0D 0A 20 6C 65 20 70 on plante.. le p
0000F0: 72 6F 67 72 61 6D 6D 65 20 21 20 43 6F 6D 6D 65 rogramme ! Comme
000100: 20 6F 6E 20 6C 65 20 76 65 72 72 61 20 20 64 61 on le verra da
000110: 6E 73 20 6C 61 20 70 61 72 74 69 65 20 6D 6F 64 ns la partie mod
000120: 65 20 64 27 65 6D 70 6C 6F 69 20 2C 20 6C 27 7B e d'emploi , l'{
000130: 63 72 61 73 65 6D 65 6E 74 0D 0A 20 64 65 20 73 crasement.. de s
000140: 65 63 74 65 75 72 73 20 73 75 69 76 69 20 64 27 ecteurs suivi d'
000150: 75 6E 65 20 72 65 6C 65 63 74 75 72 65 20 20 64 une relecture d
000160: 65 73 20 20 6F 63 74 65 74 73 20 20 47 41 50 53 es octets GAPS
000170: 20 6D 65 74 20 65 6E 20 7B 76 69 64 65 6E 63 65 met en {vidence
000180: 20 71 75 65 6C 71 75 65 73 0D 0A 20 62 69 7A 61 quelques.. biza
000190: 72 72 65 72 69 65 73 20 2C 20 71 75 69 20 2C 20 rreries , qui ,
0001A0: 73 61 76 61 6D 65 6E 74 20 6D 69 73 65 73 20 20 savament mises
0001B0: 40 20 20 70 72 6F 66 69 74 20 20 70 65 72 6D 65 @ profit perme
0001C0: 74 74 65 6E 74 20 64 65 20 63 72 7B 65 72 20 64 ttent de cr{er d
0001D0: 65 73 20 70 69 73 74 65 73 0D 0A 20 71 75 69 20 es pistes.. qui
0001E0: 73 6F 6E 74 20 49 4D 50 4F 53 53 49 42 4C 45 53 sont IMPOSSIBLES
0001F0: 20 40 20 20 72 65 70 72 6F 64 75 69 72 65 20 20 @ reproduire
Size : 512 (Real : 512)
000000: 66 69 64 7D 6C 65 6D 65 6E 74 20 20 64 65 20 20 fid}lement de
000010: 6D 61 6E 69 7D 72 65 20 20 61 75 74 6F 6D 61 74 mani}re automat
000020: 69 71 75 65 20 2E 20 4C 61 0D 0A 20 76 61 6C 65 ique . La.. vale
000030: 75 72 20 64 65 73 20 6F 63 74 65 74 73 20 73 69 ur des octets si
000040: 74 75 7B 73 20 65 6E 74 72 65 20 32 20 20 73 65 tu{s entre 2 se
000050: 63 74 65 75 72 73 20 20 64 7B 70 65 6E 64 20 20 cteurs d{pend
000060: 65 6E 20 20 65 66 66 65 74 20 28 64 61 6E 73 20 en effet (dans
000070: 6C 65 20 63 61 73 20 64 65 0D 0A 20 73 65 63 74 le cas de.. sect
000080: 65 75 72 73 20 7B 63 72 61 73 7B 73 29 20 64 75 eurs {cras{s) du
000090: 20 47 41 50 20 52 2F 57 20 2C 20 64 65 73 20 74 GAP R/W , des t
0000A0: 61 69 6C 6C 65 73 20 64 65 20 73 65 63 74 65 75 ailles de secteu
0000B0: 72 73 20 65 6E 20 6A 65 75 20 2C 20 65 74 20 70 rs en jeu , et p
0000C0: 61 72 66 6F 69 73 20 64 65 0D 0A 20 6C 27 6F 72 arfois de.. l'or
0000D0: 64 72 65 20 64 61 6E 73 20 6C 65 71 75 65 6C 20 dre dans lequel
0000E0: 73 6F 6E 74 20 20 7B 63 72 69 74 73 20 20 6C 65 sont {crits le
0000F0: 73 20 20 73 65 63 74 65 75 72 73 20 20 2E 2E 2E s secteurs ...
000100: 20 20 49 6C 20 20 73 75 66 66 69 74 20 20 64 65 Il suffit de
000110: 20 62 61 73 65 72 20 6C 61 0D 0A 20 70 72 6F 74 baser la.. prot
000120: 65 63 74 69 6F 6E 20 73 75 72 20 75 6E 20 6F 75 ection sur un ou
000130: 20 70 6C 75 73 69 65 75 72 73 20 64 65 20 63 65 plusieurs de ce
000140: 75 78 2D 63 69 20 65 74 20 62 6F 6E 6A 6F 75 72 ux-ci et bonjour
000150: 20 6C 65 73 20 64 7B 67 61 74 73 20 21 0D 0A 20 les d{gats !..
000160: 20 20 20 20 4E 4F 54 45 20 3A 20 4C 27 65 78 65 NOTE : L'exe
000170: 6D 70 6C 65 20 64 6F 6E 6E 7B 20 65 6E 20 74 61 mple donn{ en ta
000180: 69 6C 6C 65 20 30 20 7B 63 72 61 73 7B 65 20 20 ille 0 {cras{e
000190: 70 61 72 20 75 6E 65 20 74 61 69 6C 6C 65 20 32 par une taille 2
0001A0: 20 40 20 7B 74 7B 20 63 68 6F 69 73 69 0D 0A 20 @ {t{ choisi..
0001B0: 65 6E 20 66 6F 6E 63 74 69 6F 6E 20 64 65 20 73 en fonction de s
0001C0: 61 20 20 73 69 6D 70 6C 69 63 69 74 7B 20 20 2E a simplicit{ .
0001D0: 20 20 49 6C 20 20 65 73 74 20 20 62 69 65 6E 20 Il est bien
0001E0: 20 73 75 72 20 20 70 6F 73 73 69 62 6C 65 20 64 sur possible d
0001F0: 27 75 74 69 6C 69 73 65 72 20 64 65 73 0D 0A 20 'utiliser des..
Size : 512 (Real : 512)
000000: 74 61 69 6C 6C 65 73 20 20 64 69 66 66 7B 72 65 tailles diff{re
000010: 6E 74 65 73 20 20 76 6F 69 72 65 20 20 64 27 7B ntes voire d'{
000020: 63 72 61 73 65 72 20 20 20 75 6E 65 20 20 20 74 craser une t
000030: 61 69 6C 6C 65 20 20 64 6F 6E 6E 7B 65 20 20 73 aille donn{e s
000040: 6F 75 73 20 20 64 27 61 75 74 72 65 73 0D 0A 20 ous d'autres..
000050: 64 69 66 66 7B 72 65 6E 74 65 73 20 64 61 6E 73 diff{rentes dans
000060: 20 6C 65 20 67 65 6E 72 65 20 3A 0D 0A 20 0D 0A le genre :.. ..
000070: 20 78 2C 78 2C 78 2C 33 20 4F 4B 20 20 49 63 69 x,x,x,3 OK Ici
000080: 20 75 6E 65 20 74 61 69 6C 6C 65 20 30 20 65 73 une taille 0 es
000090: 74 20 72 65 63 6F 75 76 65 72 74 65 20 70 61 72 t recouverte par
0000A0: 20 33 20 74 61 69 6C 6C 65 73 20 64 69 66 66 7B 3 tailles diff{
0000B0: 72 65 6E 74 65 73 20 2E 0D 0A 20 78 2C 78 2C 78 rentes ... x,x,x
0000C0: 2C 30 20 4F 4B 0D 0A 20 78 2C 78 2C 78 2C 32 20 ,0 OK.. x,x,x,2
0000D0: 4F 4B 0D 0A 20 78 2C 78 2C 78 2C 32 20 4F 4B 0D OK.. x,x,x,2 OK.
0000E0: 0A 20 78 2C 78 2C 78 2C 31 20 4F 4B 0D 0A 20 0D . x,x,x,1 OK.. .
0000F0: 0A 20 78 2C 78 2C 78 2C 30 20 4F 4B 20 20 49 63 . x,x,x,0 OK Ic
000100: 69 20 75 6E 20 66 6F 72 6D 61 74 20 74 61 69 6C i un format tail
000110: 6C 65 20 30 20 61 76 65 63 20 47 41 50 20 3E 20 le 0 avec GAP >
000120: 71 75 65 20 20 23 37 37 20 20 70 65 72 6D 65 74 que #77 permet
000130: 20 20 64 27 7B 63 72 61 73 65 72 20 20 75 6E 0D d'{craser un.
000140: 0A 20 78 2C 78 2C 78 2C 31 20 4F 4B 20 20 73 65 . x,x,x,1 OK se
000150: 63 74 65 75 72 20 64 65 20 74 61 69 6C 6C 65 20 cteur de taille
000160: 31 20 53 41 4E 53 20 45 43 52 41 53 45 52 20 61 1 SANS ECRASER a
000170: 75 63 75 6E 20 73 65 63 74 65 75 72 20 2E 20 53 ucun secteur . S
000180: 69 20 6C 65 20 6E 6F 6D 62 72 65 20 20 64 65 0D i le nombre de.
000190: 0A 20 78 2C 78 2C 78 2C 30 20 4F 4B 20 20 73 65 . x,x,x,0 OK se
0001A0: 63 74 65 75 72 73 20 65 73 74 20 61 75 20 6D 61 cteurs est au ma
0001B0: 78 69 6D 75 6D 20 28 56 6F 69 72 20 6C 65 73 20 ximum (Voir les
0001C0: 53 4F 53 20 70 72 7B 63 7B 64 65 6E 74 73 20 70 SOS pr{c{dents p
0001D0: 6F 75 72 20 20 6C 65 20 20 6E 6F 6D 62 72 65 0D our le nombre.
0001E0: 0A 20 78 2C 78 2C 78 2C 31 20 4F 4B 20 20 6D 61 . x,x,x,1 OK ma
0001F0: 78 69 6D 75 6D 20 70 6F 73 73 69 62 6C 65 20 65 ximum possible e
Size : 512 (Real : 512)
000000: 6E 20 66 6F 6E 63 74 69 6F 6E 20 64 75 20 47 41 n fonction du GA
000010: 50 20 29 20 20 63 65 72 74 61 69 6E 73 20 20 63 P ) certains c
000020: 6F 70 69 65 75 72 73 20 20 73 65 72 6F 6E 74 0D opieurs seront.
000030: 0A 20 45 74 63 20 2E 2E 2E 20 20 20 20 20 70 65 . Etc ... pe
000040: 72 70 6C 65 78 65 73 20 2E 2E 2E 0D 0A 20 0D 0A rplexes ..... ..
000050: 20 78 2C 78 2C 78 2C 31 20 20 20 20 20 4C 40 20 x,x,x,1 L@
000060: 33 31 20 73 65 63 74 65 75 72 73 20 64 65 20 74 31 secteurs de t
000070: 61 69 6C 6C 65 20 30 20 6F 6E 74 20 7B 74 7B 20 aille 0 ont {t{
000080: 7B 63 72 61 73 7B 73 20 73 6F 75 73 20 64 65 73 {cras{s sous des
000090: 20 74 61 69 6C 6C 65 73 20 31 20 26 20 32 0D 0A tailles 1 & 2..
0000A0: 20 78 2C 78 2C 78 2C 31 20 20 20 20 20 6C 65 73 x,x,x,1 les
0000B0: 20 76 65 72 73 69 6F 6E 73 20 72 7B 63 65 6E 74 versions r{cent
0000C0: 65 73 20 64 65 20 20 63 6F 70 69 65 75 72 73 20 es de copieurs
0000D0: 20 6E 65 20 20 73 27 79 20 74 72 6F 6D 70 65 6E ne s'y trompen
0000E0: 74 20 70 61 73 20 6D 61 69 73 20 6C 65 73 20 0D t pas mais les .
0000F0: 0A 20 78 2C 78 2C 78 2C 32 20 20 20 20 20 61 6E . x,x,x,2 an
000100: 63 69 65 6E 73 20 64 7B 74 65 72 6D 69 6E 65 6E ciens d{terminen
000110: 74 20 75 6E 65 20 74 61 69 6C 6C 65 20 64 65 20 t une taille de
000120: 66 6F 72 6D 61 74 20 20 64 65 20 20 31 20 20 2E format de 1 .
000130: 20 44 61 6E 73 20 63 65 20 63 61 73 20 6C 65 20 Dans ce cas le
000140: 0D 0A 20 78 2C 78 2C 78 2C 32 20 20 20 20 20 6E .. x,x,x,2 n
000150: 6F 6D 62 72 65 20 64 65 20 73 65 63 74 65 75 72 ombre de secteur
000160: 73 20 63 61 6C 63 75 6C 7B 73 20 70 6F 75 72 20 s calcul{s pour
000170: 6C 65 20 20 66 6F 72 6D 61 74 20 65 73 74 20 74 le format est t
000180: 72 6F 70 20 67 72 61 6E 64 20 2C 20 64 27 6F 7C rop grand , d'o|
000190: 20 0D 0A 20 78 2C 78 2C 78 2C 32 20 20 20 20 20 .. x,x,x,2
0001A0: 75 6E 20 63 65 72 74 61 69 6E 20 6D 61 6C 61 69 un certain malai
0001B0: 73 65 20 2E 0D 0A 20 78 2C 78 2C 78 2C 32 0D 0A se ... x,x,x,2..
0001C0: 20 78 2C 78 2C 78 2C 32 0D 0A 20 78 2C 78 2C 78 x,x,x,2.. x,x,x
0001D0: 2C 32 0D 0A 20 78 2C 78 2C 78 2C 32 0D 0A 20 78 ,2.. x,x,x,2.. x
0001E0: 2C 78 2C 78 2C 32 0D 0A 20 0D 0A 20 20 20 20 20 ,x,x,2.. ..
0001F0: 4C 65 20 6D 6F 64 65 20 64 27 65 6D 70 6C 6F 69 Le mode d'emploi
Size : 512 (Real : 512)
000000: 20 64 65 73 20 70 72 6F 67 72 61 6D 6D 65 73 20 des programmes
000010: 63 6F 6E 74 69 65 6E 74 20 20 64 27 61 75 74 72 contient d'autr
000020: 65 73 20 20 65 78 65 6D 70 6C 65 73 20 64 65 20 es exemples de
000030: 63 65 20 74 79 70 65 20 2C 0D 0A 20 6C 65 20 6E ce type ,.. le n
000040: 6F 6D 62 72 65 20 64 65 20 63 6F 6D 62 69 6E 61 ombre de combina
000050: 69 73 6F 6E 73 20 20 70 6F 73 73 69 62 6C 65 73 isons possibles
000060: 20 20 65 73 74 20 20 64 65 20 20 6C 6F 69 6E 20 est de loin
000070: 20 74 72 6F 70 20 69 6D 70 6F 72 74 61 6E 74 20 trop important
000080: 70 6F 75 72 20 65 08 5E 74 72 65 0D 0A 20 64 7B pour e.^tre.. d{
000090: 63 72 69 74 20 63 61 73 20 70 61 72 20 63 61 73 crit cas par cas
0000A0: 20 2C 20 76 6F 74 72 65 20 69 6D 61 67 69 6E 61 , votre imagina
0000B0: 74 69 6F 6E 20 65 74 20 76 6F 73 20 65 73 73 61 tion et vos essa
0000C0: 69 73 20 66 65 72 6F 6E 74 20 6C 65 20 72 65 73 is feront le res
0000D0: 74 65 20 2E 2E 2E 0D 0A 20 20 20 20 20 4E 27 6F te ..... N'o
0000E0: 75 62 6C 69 65 7A 20 70 61 73 20 71 75 65 20 72 ubliez pas que r
0000F0: 7B 61 6C 69 73 65 72 20 75 6E 65 20 20 70 69 73 {aliser une pis
000100: 74 65 20 20 6E 6F 6E 20 20 72 65 70 72 6F 64 75 te non reprodu
000110: 63 74 69 62 6C 65 20 6E 65 20 67 61 72 61 6E 74 ctible ne garant
000120: 69 74 20 70 61 73 0D 0A 20 6E 7B 63 7B 73 73 61 it pas.. n{c{ssa
000130: 69 72 65 6D 65 6E 74 20 75 6E 65 20 70 72 6F 74 irement une prot
000140: 65 63 74 69 6F 6E 20 65 66 66 69 63 61 63 65 20 ection efficace
000150: 63 6F 6E 74 72 65 20 6C 61 20 20 63 6F 70 69 65 contre la copie
000160: 20 21 20 4C 65 20 6D 6F 64 65 20 64 27 65 6D 70 ! Le mode d'emp
000170: 6C 6F 69 20 64 75 0D 0A 20 62 69 64 6F 75 69 6C loi du.. bidouil
000180: 6C 65 75 72 20 70 72 7B 73 65 6E 74 65 72 61 20 leur pr{sentera
000190: 75 6E 20 65 78 65 6D 70 6C 65 20 66 6C 61 67 72 un exemple flagr
0001A0: 61 6E 74 20 64 65 20 70 69 73 74 65 20 56 52 41 ant de piste VRA
0001B0: 49 4D 45 4E 54 20 66 6F 72 6D 61 74 7B 65 20 61 IMENT format{e a
0001C0: 76 65 63 20 75 6E 0D 0A 20 46 44 43 20 73 70 7B vec un.. FDC sp{
0001D0: 63 69 61 6C 20 65 74 20 61 76 65 63 20 75 6E 20 cial et avec un
0001E0: 47 41 50 20 20 49 52 52 45 50 52 4F 44 55 43 54 GAP IRREPRODUCT
0001F0: 49 42 4C 45 20 20 2E 20 20 53 65 75 6C 20 20 64 IBLE . Seul d
Size : 512 (Real : 512)
000000: 7B 74 61 69 6C 20 20 2C 20 6C 65 20 74 65 73 74 {tail , le test
000010: 20 64 65 20 6C 61 0D 0A 20 70 72 6F 74 65 63 74 de la.. protect
000020: 69 6F 6E 20 65 73 74 20 73 69 20 20 6E 75 6C 20 ion est si nul
000030: 20 71 75 27 75 6E 65 20 20 61 73 74 75 63 65 20 qu'une astuce
000040: 20 65 6E 66 61 6E 74 69 6E 65 20 20 73 75 66 66 enfantine suff
000050: 69 74 20 20 70 6F 75 72 20 20 71 75 65 20 6C 61 it pour que la
000060: 20 63 6F 70 69 65 0D 0A 20 66 6F 6E 63 74 69 6F copie.. fonctio
000070: 6E 6E 65 20 61 76 65 63 20 75 6E 65 20 72 65 70 nne avec une rep
000080: 72 6F 64 75 63 74 69 6F 6E 20 64 65 73 20 70 6C roduction des pl
000090: 75 73 20 69 6D 70 61 72 66 61 69 74 65 20 2E 0D us imparfaite ..
0000A0: 0A 20 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 . ..
0000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000C0: 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ------------
0000D0: 2D 2D 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 --..
0000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000F0: 20 20 20 20 2D 20 4C 45 20 43 4F 50 49 45 55 52 - LE COPIEUR
000100: 20 2D 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 -..
000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000120: 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ------------
000130: 2D 2D 0D 0A 20 0D 0A 20 20 20 20 20 43 45 20 51 --.. .. CE Q
000140: 55 27 49 4C 20 46 41 49 54 20 3A 20 49 6C 20 72 U'IL FAIT : Il r
000150: 65 63 6F 70 69 65 20 69 6E 74 7B 67 72 61 6C 65 ecopie int{grale
000160: 6D 65 6E 74 20 20 6C 65 73 20 70 69 73 74 65 73 ment les pistes
000170: 20 6C 65 73 20 70 6C 75 73 20 74 6F 72 64 75 65 les plus tordue
000180: 73 20 71 75 65 0D 0A 20 76 6F 75 73 20 70 75 69 s que.. vous pui
000190: 73 73 69 65 7A 20 69 6D 61 67 69 6E 65 72 20 20 ssiez imaginer
0001A0: 2E 20 20 49 6C 20 20 72 65 73 74 61 75 72 65 20 . Il restaure
0001B0: 20 74 61 6E 74 20 20 62 69 65 6E 20 20 71 75 65 tant bien que
0001C0: 20 20 6D 61 6C 20 20 6C 65 73 20 64 69 73 71 75 mal les disqu
0001D0: 65 74 74 65 73 0D 0A 20 65 6E 64 6F 6D 6D 61 67 ettes.. endommag
0001E0: 7B 65 73 20 2E 0D 0A 20 20 20 20 20 43 45 20 51 {es ... CE Q
0001F0: 55 27 49 4C 20 4E 45 20 46 41 49 54 20 50 41 53 U'IL NE FAIT PAS
Size : 512 (Real : 512)
000000: 20 3A 20 20 49 6C 20 20 6E 65 20 20 72 65 70 72 : Il ne repr
000010: 6F 64 75 69 74 20 20 70 61 73 20 61 76 65 63 20 oduit pas avec
000020: 65 78 61 63 74 69 74 75 64 65 20 6C 65 73 20 70 exactitude les p
000030: 69 73 74 65 73 0D 0A 20 66 6F 72 6D 61 74 7B 65 istes.. format{e
000040: 73 20 61 76 65 63 20 75 6E 20 47 41 50 20 64 69 s avec un GAP di
000050: 66 66 7B 72 65 6E 74 20 64 65 20 23 34 45 20 2E ff{rent de #4E .
000060: 20 44 61 6E 73 20 63 65 72 74 61 69 6E 73 20 63 Dans certains c
000070: 61 73 20 2C 20 63 65 74 74 65 20 64 69 66 66 69 as , cette diffi
000080: 63 75 6C 74 7B 0D 0A 20 70 65 75 74 20 65 08 5E cult{.. peut e.^
000090: 74 72 65 20 63 6F 6E 74 6F 75 72 6E 7B 65 20 70 tre contourn{e p
0000A0: 61 72 20 63 65 20 71 75 65 20 6C 27 6F 6E 20 20 ar ce que l'on
0000B0: 61 70 70 65 6C 65 20 20 75 6E 20 73 65 63 74 65 appele un secte
0000C0: 75 72 20 64 65 20 73 75 62 73 74 69 74 75 74 69 ur de substituti
0000D0: 6F 6E 20 2E 20 45 6E 0D 0A 20 64 65 68 6F 72 73 on . En.. dehors
0000E0: 20 64 65 20 6C 27 65 78 65 6D 70 6C 65 20 63 69 de l'exemple ci
0000F0: 74 7B 20 40 20 6C 61 20 20 66 69 6E 20 20 64 75 t{ @ la fin du
000100: 20 20 70 61 72 61 67 72 61 70 68 65 20 70 72 7B paragraphe pr{
000110: 63 7B 64 65 6E 74 20 6C 65 20 73 75 6A 65 74 20 c{dent le sujet
000120: 6E 65 20 73 65 72 61 0D 0A 20 70 61 73 20 74 72 ne sera.. pas tr
000130: 61 69 74 7B 20 70 6F 75 72 20 32 20 72 61 69 73 ait{ pour 2 rais
000140: 6F 6E 73 20 3A 20 0D 0A 20 20 20 20 20 31 20 2D ons : .. 1 -
000150: 20 43 65 6C 61 20 6E 65 20 66 6F 6E 63 74 69 6F Cela ne fonctio
000160: 6E 6E 65 20 70 61 73 20 64 61 6E 73 20 20 74 6F nne pas dans to
000170: 75 73 20 20 6C 65 73 20 63 61 73 20 65 74 20 6C us les cas et l
000180: 65 20 6E 6F 6D 62 72 65 20 64 65 20 73 69 74 75 e nombre de situ
000190: 61 74 69 6F 6E 73 0D 0A 20 6F 7C 20 63 65 6C 61 ations.. o| cela
0001A0: 20 70 6F 75 72 72 61 69 74 20 66 6F 6E 63 74 69 pourrait foncti
0001B0: 6F 6E 6E 65 72 20 65 73 74 20 73 69 20 6E 6F 6D onner est si nom
0001C0: 62 72 65 75 78 20 71 75 65 20 6C 65 20 63 6F 64 breux que le cod
0001D0: 65 20 73 6F 75 72 63 65 20 70 72 65 6E 64 72 61 e source prendra
0001E0: 69 74 20 75 6E 65 0D 0A 20 74 6F 75 72 6E 75 72 it une.. tournur
0001F0: 65 20 6B 69 6C 6F 6D 7B 74 72 69 71 75 65 20 2E e kilom{trique .
Size : 512 (Real : 512)
000000: 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ------------
000010: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000020: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000030: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000040: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 20 20 -----------..
000050: 20 2D 20 41 4E 41 4C 59 53 45 20 43 4F 4D 50 4C - ANALYSE COMPL
000060: 45 54 45 20 44 45 53 20 47 41 50 53 20 2D 20 4C ETE DES GAPS - L
000070: 4F 4E 47 55 45 55 52 53 20 44 45 20 53 45 43 54 ONGUEURS DE SECT
000080: 45 55 52 53 20 45 54 20 54 59 50 45 20 44 45 20 EURS ET TYPE DE
000090: 46 4F 52 4D 41 54 20 2D 0D 0A 20 20 20 20 2D 2D FORMAT -.. --
0000A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0000B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0000C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0000D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0000E0: 2D 2D 2D 2D 2D 0D 0A 20 0D 0A 20 20 20 20 20 20 -----.. ..
0000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000100: 20 20 20 20 20 20 20 28 43 4F 50 49 45 55 52 20 (COPIEUR
000110: 34 45 4D 45 20 50 41 52 54 49 45 29 0D 0A 20 0D 4EME PARTIE).. .
000120: 0A 20 20 20 20 20 4C 65 20 67 72 6F 73 20 2C 20 . Le gros ,
000130: 74 72 7D 73 20 67 72 6F 73 20 6D 6F 72 63 65 61 tr}s gros morcea
000140: 75 20 64 65 20 63 65 20 20 74 72 69 6D 65 73 74 u de ce trimest
000150: 72 65 20 2E 20 54 6F 75 74 20 6C 65 20 73 65 63 re . Tout le sec
000160: 72 65 74 20 64 27 75 6E 65 20 63 6F 70 69 65 0D ret d'une copie.
000170: 0A 20 65 66 66 69 63 61 63 65 20 72 7B 73 69 64 . efficace r{sid
000180: 65 20 64 61 6E 73 20 63 65 74 74 65 20 73 65 63 e dans cette sec
000190: 74 69 6F 6E 20 20 2E 2E 2E 20 20 50 61 73 20 20 tion ... Pas
0001A0: 64 65 20 20 62 61 72 61 74 69 6E 20 20 69 6E 75 de baratin inu
0001B0: 74 69 6C 65 20 2C 20 6F 6E 20 65 6E 74 72 65 0D tile , on entre.
0001C0: 0A 20 64 65 72 65 63 68 65 66 20 64 61 6E 73 20 . derechef dans
0001D0: 6C 65 20 76 69 66 20 64 75 20 20 73 75 6A 65 74 le vif du sujet
0001E0: 20 20 61 76 65 63 20 20 6C 61 20 20 70 72 65 6D avec la prem
0001F0: 69 7D 72 65 20 20 73 65 63 74 69 6F 6E 20 64 65 i}re section de
Size : 512 (Real : 512)
000000: 20 63 65 74 74 65 20 73 7B 72 69 65 20 64 65 0D cette s{rie de.
000010: 0A 20 72 6F 75 74 69 6E 65 73 20 2E 0D 0A 20 0D . routines ... .
000020: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2D 20 -
000040: 49 4E 46 4F 52 4D 41 54 49 4F 4E 20 50 49 53 54 INFORMATION PIST
000050: 45 20 2D 0D 0A 20 0D 0A 20 20 20 20 20 51 75 6F E -.. .. Quo
000060: 69 71 75 65 20 67 7B 6E 7B 72 61 6C 65 6D 65 6E ique g{n{ralemen
000070: 74 20 65 66 66 69 63 61 63 65 20 2C 20 6C 65 20 t efficace , le
000080: 20 73 79 73 74 7D 6D 65 20 70 72 7B 73 65 6E 74 syst}me pr{sent
000090: 7B 20 6C 65 20 74 72 69 6D 65 73 74 72 65 20 64 { le trimestre d
0000A0: 65 72 6E 69 65 72 0D 0A 20 6E 65 20 72 7B 73 6F ernier.. ne r{so
0000B0: 75 74 20 70 61 73 20 20 74 6F 75 73 20 20 6C 65 ut pas tous le
0000C0: 73 20 20 63 61 73 20 20 64 65 20 20 66 69 67 75 s cas de figu
0000D0: 72 65 20 20 65 74 20 20 69 6C 20 20 73 27 65 6E re et il s'en
0000E0: 20 20 66 61 75 74 20 20 2E 2E 2E 20 4C 61 20 73 faut ... La s
0000F0: 65 63 74 69 6F 6E 0D 0A 20 49 4E 46 4F 52 4D 41 ection.. INFORMA
000100: 54 49 4F 4E 20 50 49 53 54 45 20 72 65 63 75 65 TION PISTE recue
000110: 69 6C 6C 65 20 75 6E 20 6D 61 78 69 6D 75 6D 20 ille un maximum
000120: 20 64 65 20 20 64 6F 6E 6E 7B 65 73 20 20 73 75 de donn{es su
000130: 72 20 20 6C 27 7B 74 61 74 20 67 6C 6F 62 61 6C r l'{tat global
000140: 20 64 65 20 6C 61 0D 0A 20 70 69 73 74 65 20 2E de la.. piste .
000150: 20 45 6E 20 63 61 73 20 64 27 7B 63 68 65 63 20 En cas d'{chec
000160: 64 65 20 6C 61 20 70 72 65 6D 69 7D 72 65 20 72 de la premi}re r
000170: 65 63 68 65 72 63 68 65 20 2C 20 6C 27 7B 74 75 echerche , l'{tu
000180: 64 65 20 64 65 20 63 65 73 20 69 6E 66 6F 72 6D de de ces inform
000190: 61 74 69 6F 6E 73 0D 0A 20 70 65 72 6D 65 74 74 ations.. permett
0001A0: 72 61 20 64 65 20 64 7B 74 65 72 6D 69 6E 65 72 ra de d{terminer
0001B0: 20 75 6E 65 20 72 7B 61 63 74 69 6F 6E 20 61 70 une r{action ap
0001C0: 70 72 6F 70 72 69 7B 65 20 61 75 20 63 61 73 20 propri{e au cas
0001D0: 72 65 6E 63 6F 6E 74 72 7B 20 2E 0D 0A 20 0D 0A rencontr{ ... ..
0001E0: 20 20 20 20 20 45 6E 20 73 6F 72 74 69 65 20 64 En sortie d
0001F0: 65 20 63 65 74 74 65 20 73 65 63 74 69 6F 6E 20 e cette section
Size : 512 (Real : 512)
000000: 6F 6E 20 73 61 75 72 61 20 3A 0D 0A 20 0D 0A 20 on saura :.. ..
000010: 20 20 20 20 31 20 53 69 20 69 6C 20 79 2D 61 20 1 Si il y-a
000020: 64 65 73 20 73 65 63 74 65 75 72 73 20 43 52 2F des secteurs CR/
000030: 44 44 20 73 75 72 20 6C 61 20 70 69 73 74 65 20 DD sur la piste
000040: 2E 0D 0A 20 20 20 20 20 32 20 4C 61 20 74 61 69 ... 2 La tai
000050: 6C 6C 65 20 49 44 20 64 75 20 70 6C 75 73 20 67 lle ID du plus g
000060: 72 61 6E 64 20 64 65 20 63 65 73 20 43 52 2F 44 rand de ces CR/D
000070: 44 20 73 27 69 6C 20 79 2D 65 6E 20 61 0D 0A 20 D s'il y-en a..
000080: 20 20 20 20 33 20 53 69 20 70 6C 75 73 69 65 75 3 Si plusieu
000090: 72 73 20 74 61 69 6C 6C 65 73 20 64 65 20 73 65 rs tailles de se
0000A0: 63 74 65 75 72 73 20 45 46 46 45 43 54 49 56 45 cteurs EFFECTIVE
0000B0: 4D 45 4E 54 20 45 43 52 49 54 53 20 73 6F 6E 74 MENT ECRITS sont
0000C0: 20 70 72 7B 73 65 6E 74 65 73 0D 0A 20 20 20 20 pr{sentes..
0000D0: 20 34 20 4C 61 20 74 61 69 6C 6C 65 20 64 75 20 4 La taille du
0000E0: 70 6C 75 73 20 67 72 61 6E 64 20 73 65 63 74 65 plus grand secte
0000F0: 75 72 20 45 46 46 45 43 54 49 56 45 4D 45 4E 54 ur EFFECTIVEMENT
000100: 20 45 43 52 49 54 0D 0A 20 20 20 20 20 35 20 4C ECRIT.. 5 L
000110: 61 20 74 61 69 6C 6C 65 20 64 75 20 70 6C 75 73 a taille du plus
000120: 20 70 65 74 69 74 20 73 65 63 74 65 75 72 20 45 petit secteur E
000130: 46 46 45 43 54 49 56 45 4D 45 4E 54 20 45 43 52 FFECTIVEMENT ECR
000140: 49 54 0D 0A 20 20 20 20 20 36 20 53 69 20 63 65 IT.. 6 Si ce
000150: 72 74 61 69 6E 73 20 73 65 63 74 65 75 72 73 20 rtains secteurs
000160: 73 6F 6E 74 20 65 6E 20 4D 41 4D 0D 0A 20 0D 0A sont en MAM.. ..
000170: 20 20 20 20 20 4C 61 20 76 61 72 69 61 62 6C 65 La variable
000180: 20 4C 4D 49 4E 20 65 73 74 20 75 6E 20 70 65 75 LMIN est un peu
000190: 20 20 64 7B 72 6F 75 74 61 6E 74 65 20 20 2C 20 d{routante ,
0001A0: 65 6C 6C 65 20 64 6F 69 74 20 65 6E 20 70 72 69 elle doit en pri
0001B0: 6E 63 69 70 65 20 63 6F 6E 74 65 6E 69 72 0D 0A ncipe contenir..
0001C0: 20 6C 61 20 76 61 6C 65 75 72 20 64 65 20 6C 61 la valeur de la
0001D0: 20 70 6C 75 73 20 20 70 65 74 69 74 65 20 20 6C plus petite l
0001E0: 6F 6E 67 75 65 75 72 20 20 49 44 20 20 45 46 46 ongueur ID EFF
0001F0: 45 43 54 49 56 45 4D 45 4E 54 20 7B 63 72 69 74 ECTIVEMENT {crit
Size : 512 (Real : 512)
000000: 65 20 2E 20 43 65 74 74 65 20 63 61 73 65 0D 0A e . Cette case..
000010: 20 6D 7B 6D 6F 69 72 65 20 6E 65 20 73 65 72 61 m{moire ne sera
000020: 20 70 61 73 20 69 6E 69 74 69 61 6C 69 73 7B 65 pas initialis{e
000030: 20 65 74 20 72 65 73 74 65 72 61 20 40 20 23 46 et restera @ #F
000040: 46 20 73 69 20 3A 0D 0A 20 0D 0A 20 20 20 20 20 F si :.. ..
000050: 31 20 3A 20 54 6F 75 73 20 6C 65 73 20 73 65 63 1 : Tous les sec
000060: 74 65 75 72 73 20 4F 4B 20 73 6F 6E 74 20 64 65 teurs OK sont de
000070: 20 6C 6F 6E 67 75 65 75 72 20 69 64 65 6E 74 69 longueur identi
000080: 71 75 65 0D 0A 20 20 20 20 20 32 20 3A 20 41 75 que.. 2 : Au
000090: 63 75 6E 20 73 65 63 74 65 75 72 20 6E 27 65 73 cun secteur n'es
0000A0: 74 20 72 65 63 6F 6E 6E 75 20 4F 4B 20 2E 20 28 t reconnu OK . (
0000B0: 44 61 6E 73 20 63 65 20 63 61 73 20 4C 49 44 4D Dans ce cas LIDM
0000C0: 41 58 20 72 65 73 74 65 20 40 20 30 29 0D 0A 20 AX reste @ 0)..
0000D0: 0D 0A 20 20 20 20 20 43 65 74 74 65 20 70 65 74 .. Cette pet
0000E0: 69 74 65 20 63 6F 6D 70 6C 69 63 61 74 69 6F 6E ite complication
0000F0: 20 70 65 72 6D 65 74 20 64 65 20 74 65 73 74 65 permet de teste
000100: 72 20 71 75 65 6C 71 75 65 73 20 70 6F 69 6E 74 r quelques point
000110: 73 20 70 61 72 74 69 63 75 6C 69 65 72 73 2E 0D s particuliers..
000120: 0A 20 0D 0A 20 20 20 20 20 4F 6E 20 63 6F 6D 6D . .. On comm
000130: 65 6E 63 65 20 70 61 72 20 69 6E 69 74 69 61 6C ence par initial
000140: 69 73 65 72 20 63 6F 6D 6D 65 20 73 75 69 74 20 iser comme suit
000150: 3A 0D 0A 20 3B 0D 0A 20 46 49 4E 44 4C 45 4E 20 :.. ;.. FINDLEN
000160: 58 4F 52 20 41 20 20 20 20 20 20 20 20 20 20 20 XOR A
000170: 20 20 20 20 3B 4F 4E 20 52 45 4D 45 54 20 54 4F ;ON REMET TO
000180: 55 53 20 4C 45 53 20 50 41 52 41 4D 45 54 52 45 US LES PARAMETRE
000190: 53 20 41 20 30 0D 0A 20 20 20 20 20 20 20 20 20 S A 0..
0001A0: 4C 44 20 28 47 41 50 46 4F 52 4D 29 2C 41 20 20 LD (GAPFORM),A
0001B0: 20 20 20 20 3B 47 41 50 23 33 0D 0A 20 20 20 20 ;GAP#3..
0001C0: 20 20 20 20 20 4C 44 20 28 56 41 4C 47 41 50 46 LD (VALGAPF
0001D0: 29 2C 41 20 20 20 20 20 20 3B 4C 6F 6E 67 75 65 ),A ;Longue
0001E0: 75 72 20 47 41 50 23 33 0D 0A 20 20 20 20 20 20 ur GAP#3..
0001F0: 20 20 20 4C 44 20 28 46 4C 47 44 49 46 49 44 29 LD (FLGDIFID)
Size : 512 (Real : 512)
000000: 2C 41 20 20 20 20 20 3B 4D 61 72 71 75 65 20 73 ,A ;Marque s
000010: 69 20 64 69 66 66 65 72 65 6E 74 73 20 49 44 53 i differents IDS
000020: 20 4F 4B 20 28 53 65 63 74 65 75 72 73 20 65 63 OK (Secteurs ec
000030: 72 69 74 73 29 0D 0A 20 20 20 20 20 20 20 20 20 rits)..
000040: 4C 44 20 28 46 4C 41 47 43 52 44 44 29 2C 41 20 LD (FLAGCRDD),A
000050: 20 20 20 20 3B 4D 61 72 71 75 65 20 73 69 20 70 ;Marque si p
000060: 72 65 73 65 6E 63 65 20 43 52 2F 44 44 0D 0A 20 resence CR/DD..
000070: 20 20 20 20 20 20 20 20 4C 44 20 28 46 4C 41 47 LD (FLAG
000080: 4D 41 4D 29 2C 41 20 20 20 20 20 20 3B 4D 61 72 MAM),A ;Mar
000090: 71 75 65 20 70 72 65 73 65 6E 63 65 20 73 65 63 que presence sec
0000A0: 74 65 75 72 20 4D 41 4D 0D 0A 20 20 20 20 20 20 teur MAM..
0000B0: 20 20 20 4C 44 20 28 46 41 55 58 47 41 50 29 2C LD (FAUXGAP),
0000C0: 41 20 20 20 20 20 20 3B 45 76 65 6E 74 75 65 6C A ;Eventuel
0000D0: 20 66 61 75 78 20 47 41 50 20 73 69 20 65 63 72 faux GAP si ecr
0000E0: 61 73 65 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 ase.. LD
0000F0: 20 28 46 41 55 58 4C 47 46 29 2C 41 20 20 20 20 (FAUXLGF),A
000100: 20 20 3B 61 76 65 63 20 73 61 20 6C 6F 6E 67 75 ;avec sa longu
000110: 65 75 72 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 eur.. LD
000120: 20 28 4C 4D 41 58 29 2C 41 20 20 20 20 20 20 20 (LMAX),A
000130: 20 20 3B 50 6C 75 73 20 67 72 61 6E 64 65 20 74 ;Plus grande t
000140: 61 69 6C 6C 65 20 61 64 6D 69 73 73 69 62 6C 65 aille admissible
000150: 20 70 61 72 20 6C 65 20 66 6F 72 6D 61 74 0D 0A par le format..
000160: 20 20 20 20 20 20 20 20 20 4C 44 20 28 4C 49 44 LD (LID
000170: 4D 41 58 29 2C 41 20 20 20 20 20 20 20 3B 54 61 MAX),A ;Ta
000180: 69 6C 6C 65 20 64 75 20 70 6C 75 73 20 67 72 61 ille du plus gra
000190: 6E 64 20 73 65 63 74 65 75 72 20 45 43 52 49 54 nd secteur ECRIT
0001A0: 0D 0A 20 20 20 20 20 20 20 20 20 44 45 43 20 41 .. DEC A
0001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B ;
0001C0: 54 61 69 6C 6C 65 20 64 75 20 70 6C 75 73 20 70 Taille du plus p
0001D0: 65 74 69 74 20 73 65 63 74 65 75 72 20 45 46 46 etit secteur EFF
0001E0: 45 43 54 49 56 45 4D 45 4E 54 0D 0A 20 20 20 20 ECTIVEMENT..
0001F0: 20 20 20 20 20 4C 44 20 28 4C 4D 49 4E 29 2C 41 LD (LMIN),A
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 3B 45 43 52 54 49 20 ;ECRTI
000010: 28 61 20 23 46 46 20 70 6F 75 72 20 6E 65 20 70 (a #FF pour ne p
000020: 61 73 20 69 67 6E 6F 72 65 72 20 6C 65 20 30 29 as ignorer le 0)
000030: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 4C .. LD (L
000040: 45 4E 43 52 44 44 29 2C 41 20 20 20 20 20 20 3B ENCRDD),A ;
000050: 4C 6F 6E 67 75 65 75 72 20 64 75 20 70 6C 75 73 Longueur du plus
000060: 20 67 72 61 6E 64 20 73 65 63 74 65 75 72 20 65 grand secteur e
000070: 6E 20 43 52 2F 44 44 0D 0A 20 20 20 20 20 20 20 n CR/DD..
000080: 20 20 4C 44 20 41 2C 23 45 35 20 20 20 20 20 20 LD A,#E5
000090: 20 20 20 20 20 20 3B 4F 63 74 65 74 20 66 69 6C ;Octet fil
0000A0: 6C 20 66 69 78 65 20 70 72 6F 76 69 73 6F 69 72 l fixe provisoir
0000B0: 65 6D 65 6E 74 0D 0A 20 20 20 20 20 20 20 20 20 ement..
0000C0: 4C 44 20 28 4F 43 52 45 4D 50 29 2C 41 0D 0A 20 LD (OCREMP),A..
0000D0: 20 20 20 20 20 20 20 20 4C 44 20 41 2C 28 4E 42 LD A,(NB
0000E0: 53 45 43 29 20 20 20 20 20 20 20 20 3B 43 6F 70 SEC) ;Cop
0000F0: 69 65 72 20 6E 6F 6D 62 72 65 20 64 65 20 73 65 ier nombre de se
000100: 63 74 65 75 72 73 20 74 72 6F 75 76 65 73 20 61 cteurs trouves a
000110: 75 20 63 61 73 20 6F 75 0D 0A 20 20 20 20 20 20 u cas ou..
000120: 20 20 20 4C 44 20 28 4E 42 53 50 52 4F 56 29 2C LD (NBSPROV),
000130: 41 20 20 20 20 20 20 3B 6D 69 73 65 20 65 6E 20 A ;mise en
000140: 65 76 69 64 65 6E 63 65 20 64 65 20 73 65 63 74 evidence de sect
000150: 65 75 72 73 20 65 63 72 61 73 65 73 20 2E 0D 0A eurs ecrases ...
000160: 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 ;..
000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000180: 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D --------------
000190: 2D 2D 2D 2D 0D 0A 20 20 20 20 20 43 65 63 69 20 ----.. Ceci
0001A0: 66 61 69 74 20 6F 6E 20 62 61 6C 61 69 65 20 6C fait on balaie l
0001B0: 61 20 6C 69 73 74 65 20 64 65 73 20 49 44 53 20 a liste des IDS
0001C0: 6C 6F 6E 67 75 65 75 72 20 73 69 6D 75 6C 74 61 longueur simulta
0001D0: 6E 7B 6D 65 6E 74 20 61 76 65 63 20 6C 61 20 6C n{ment avec la l
0001E0: 69 73 74 65 0D 0A 20 64 65 73 20 65 72 72 65 75 iste.. des erreu
0001F0: 72 73 20 2E 20 48 4C 20 63 6F 6E 74 69 65 6E 74 rs . HL contient
Size : 512 (Real : 512)
000000: 20 6C 27 49 44 20 20 4C 45 4E 20 20 73 65 63 74 l'ID LEN sect
000010: 65 75 72 20 20 2C 20 44 45 20 6C 27 7B 74 61 74 eur , DE l'{tat
000020: 20 64 27 65 72 72 65 75 72 20 67 7B 6E 7B 72 7B d'erreur g{n{r{
000030: 20 70 61 72 0D 0A 20 6C 61 20 73 65 63 74 69 6F par.. la sectio
000040: 6E 20 41 4E 41 4C 59 53 45 20 2E 20 44 61 6E 73 n ANALYSE . Dans
000050: 20 6C 65 73 20 63 6F 6D 6D 65 6E 74 61 69 72 65 les commentaire
000060: 73 20 20 64 75 20 20 6C 69 73 74 69 6E 67 20 2C s du listing ,
000070: 20 74 72 61 64 75 69 73 65 7A 20 49 44 20 4C 45 traduisez ID LE
000080: 4E 20 4F 4B 0D 0A 20 70 61 72 20 49 44 20 6C 6F N OK.. par ID lo
000090: 6E 67 75 65 75 72 20 64 27 75 6E 20 73 65 63 74 ngueur d'un sect
0000A0: 65 75 72 20 76 72 61 69 6D 65 6E 74 20 7B 63 72 eur vraiment {cr
0000B0: 69 74 20 2E 0D 0A 20 0D 0A 20 20 20 20 20 20 20 it ... ..
0000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000D0: 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D -----------
0000E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 3B ------------.. ;
0000F0: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 44 45 .. LD DE
000100: 2C 4C 49 53 54 45 52 52 20 20 20 3B 43 68 65 72 ,LISTERR ;Cher
000110: 63 68 65 72 20 70 72 65 73 65 6E 63 65 20 64 65 cher presence de
000120: 20 43 52 2F 44 44 20 6F 75 20 64 65 20 4D 41 4D CR/DD ou de MAM
000130: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 48 4C .. LD HL
000140: 2C 49 44 49 4E 44 52 41 2B 33 20 3B 56 6F 69 72 ,IDINDRA+3 ;Voir
000150: 20 73 69 20 6C 65 73 20 49 44 53 20 4C 45 4E 20 si les IDS LEN
000160: 73 6F 6E 74 20 74 6F 75 73 20 69 64 65 6E 74 69 sont tous identi
000170: 71 75 65 73 0D 0A 20 20 20 20 20 20 20 20 20 4C ques.. L
000180: 44 20 41 2C 28 4E 42 53 45 43 29 20 20 20 20 3B D A,(NBSEC) ;
000190: 6D 65 6D 6F 72 69 73 65 72 20 6C 65 20 70 6C 75 memoriser le plu
0001A0: 73 20 67 72 61 6E 64 20 65 74 20 6C 65 20 70 6C s grand et le pl
0001B0: 75 73 20 70 65 74 69 74 0D 0A 20 20 20 20 20 20 us petit..
0001C0: 20 20 20 4C 44 20 42 2C 41 20 20 20 20 20 20 20 LD B,A
0001D0: 20 20 20 3B 43 6F 6D 6D 65 20 64 27 68 61 62 69 ;Comme d'habi
0001E0: 74 75 64 65 20 2C 20 6C 65 20 6E 6F 6D 62 72 65 tude , le nombre
0001F0: 20 64 65 20 73 65 63 74 65 75 72 73 20 65 73 74 de secteurs est
Size : 512 (Real : 512)
000000: 20 64 61 6E 73 20 42 0D 0A 20 3B 0D 0A 20 53 45 dans B.. ;.. SE
000010: 54 46 4C 41 47 53 20 4C 44 20 43 2C 28 48 4C 29 TFLAGS LD C,(HL)
000020: 20 20 20 20 20 20 3B 4C 27 49 44 20 6C 6F 6E 67 ;L'ID long
000030: 75 65 75 72 20 73 65 63 74 65 75 72 20 72 65 73 ueur secteur res
000040: 74 65 20 64 61 6E 73 20 43 20 6A 75 73 71 75 27 te dans C jusqu'
000050: 61 20 6C 61 20 66 69 6E 0D 0A 20 20 20 20 20 20 a la fin..
000060: 20 20 20 4C 44 20 41 2C 28 44 45 29 20 20 20 20 LD A,(DE)
000070: 20 20 20 3B 45 74 61 74 20 64 27 65 72 72 65 75 ;Etat d'erreu
000080: 72 0D 0A 20 20 20 20 20 20 20 20 20 41 4E 44 20 r.. AND
000090: 25 30 30 30 30 30 30 31 31 20 20 20 3B 4D 41 4D %00000011 ;MAM
0000A0: 20 26 20 44 41 4D 20 3F 0D 0A 20 20 20 20 20 20 & DAM ?..
0000B0: 20 20 20 4A 52 20 5A 2C 4E 4F 4D 41 4D 44 41 20 JR Z,NOMAMDA
0000C0: 20 20 20 3B 4E 4F 4E 20 2C 20 63 6F 6E 74 69 6E ;NON , contin
0000D0: 75 65 72 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 uer.. ;..
0000E0: 20 20 4C 44 20 49 59 2C 46 4C 41 47 4D 41 4D 20 LD IY,FLAGMAM
0000F0: 20 20 3B 4F 75 69 20 6D 61 72 71 75 65 72 20 65 ;Oui marquer e
000100: 74 20 73 61 75 74 65 72 20 61 75 20 73 75 69 76 t sauter au suiv
000110: 61 6E 74 0D 0A 20 20 20 20 20 20 20 20 20 49 4E ant.. IN
000120: 43 20 28 49 59 2B 30 29 0D 0A 20 20 20 20 20 20 C (IY+0)..
000130: 20 20 20 4A 52 20 54 45 53 54 4F 55 54 0D 0A 20 JR TESTOUT..
000140: 3B 0D 0A 20 4E 4F 4D 41 4D 44 41 20 4C 44 20 41 ;.. NOMAMDA LD A
000150: 2C 28 44 45 29 20 20 20 20 20 20 20 3B 52 65 70 ,(DE) ;Rep
000160: 72 65 6E 64 72 65 20 65 74 61 74 20 64 27 65 72 rendre etat d'er
000170: 72 65 75 72 0D 0A 20 20 20 20 20 20 20 20 20 41 reur.. A
000180: 4E 44 20 25 30 30 31 30 30 31 30 30 20 20 20 3B ND %00100100 ;
000190: 43 52 20 26 20 44 44 0D 0A 20 20 20 20 20 20 20 CR & DD..
0001A0: 20 20 43 50 20 25 30 30 31 30 30 31 30 30 20 20 CP %00100100
0001B0: 20 20 3B 49 4C 20 6E 6F 75 73 20 66 61 75 74 20 ;IL nous faut
0001C0: 56 52 41 49 4D 45 4E 54 20 4C 45 53 20 32 20 45 VRAIMENT LES 2 E
0001D0: 4E 53 45 4D 42 4C 45 20 21 21 0D 0A 20 20 20 20 NSEMBLE !!..
0001E0: 20 20 20 20 20 4A 52 20 4E 5A 2C 43 52 44 44 4E JR NZ,CRDDN
0001F0: 4F 54 20 20 20 3B 4E 4F 4E 20 63 6F 6E 74 69 6E OT ;NON contin
Size : 512 (Real : 512)
000000: 75 65 72 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 uer.. ;..
000010: 20 20 4C 44 20 49 59 2C 46 4C 41 47 43 52 44 44 LD IY,FLAGCRDD
000020: 20 20 3B 4D 65 74 74 72 65 20 6C 65 20 70 6C 75 ;Mettre le plu
000030: 73 20 67 72 61 6E 64 20 43 52 2F 44 44 20 74 72 s grand CR/DD tr
000040: 6F 75 76 65 20 64 61 6E 73 20 6C 65 20 66 6C 61 ouve dans le fla
000050: 67 0D 0A 20 20 20 20 20 20 20 20 20 52 45 53 20 g.. RES
000060: 37 2C 28 49 59 2B 30 29 20 20 20 20 3B 4C 65 20 7,(IY+0) ;Le
000070: 62 69 74 20 37 20 65 73 74 20 6D 69 73 20 70 6F bit 7 est mis po
000080: 75 72 20 65 76 69 74 65 72 20 63 6F 6E 66 75 73 ur eviter confus
000090: 69 6F 6E 20 61 76 65 63 0D 0A 20 20 20 20 20 20 ion avec..
0000A0: 20 20 20 4C 44 20 41 2C 43 20 20 20 20 20 20 20 LD A,C
0000B0: 20 20 20 3B 75 6E 20 65 76 65 6E 74 75 65 6C 20 ;un eventuel
0000C0: 43 52 2F 44 44 20 64 65 20 74 61 69 6C 6C 65 20 CR/DD de taille
0000D0: 30 20 2E 20 43 20 63 6F 6E 74 69 65 6E 74 20 74 0 . C contient t
0000E0: 6F 75 6A 6F 75 72 73 0D 0A 20 20 20 20 20 20 20 oujours..
0000F0: 20 20 43 50 20 28 49 59 2B 30 29 20 20 20 20 20 CP (IY+0)
000100: 20 20 3B 4C 45 4E 20 49 44 20 65 6E 20 63 6F 75 ;LEN ID en cou
000110: 72 73 20 2E 20 53 69 20 69 6C 20 65 73 74 20 70 rs . Si il est p
000120: 6C 75 73 20 70 65 74 69 74 20 71 75 65 20 63 65 lus petit que ce
000130: 6C 75 69 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 lui.. JR
000140: 20 43 2C 4E 4F 4D 45 4D 4F 43 52 20 20 20 3B 65 C,NOMEMOCR ;e
000150: 76 65 6E 74 75 65 6C 6C 65 6D 65 6E 74 20 73 74 ventuellement st
000160: 6F 63 6B 65 20 2C 20 69 6C 20 65 73 74 20 69 6E ocke , il est in
000170: 75 74 69 6C 65 0D 0A 20 3B 0D 0A 20 20 20 20 20 utile.. ;..
000180: 20 20 20 20 4C 44 20 28 49 59 2B 30 29 2C 41 20 LD (IY+0),A
000190: 20 20 20 20 3B 53 69 6E 6F 6E 20 6F 6E 20 73 74 ;Sinon on st
0001A0: 6F 63 6B 65 0D 0A 20 4E 4F 4D 45 4D 4F 43 52 20 ocke.. NOMEMOCR
0001B0: 53 45 54 20 37 2C 28 49 59 2B 30 29 20 20 20 3B SET 7,(IY+0) ;
0001C0: 4F 6E 20 72 65 6D 65 74 20 6C 65 20 62 69 74 20 On remet le bit
0001D0: 37 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 20 54 7.. JR T
0001E0: 45 53 54 4F 55 54 20 20 20 20 20 20 3B 45 74 20 ESTOUT ;Et
0001F0: 6F 6E 20 70 61 73 73 65 20 61 75 20 73 75 69 76 on passe au suiv
Size : 512 (Real : 512)
000000: 61 6E 74 0D 0A 20 3B 0D 0A 20 43 52 44 44 4E 4F ant.. ;.. CRDDNO
000010: 54 20 4C 44 20 41 2C 28 44 45 29 0D 0A 20 20 20 T LD A,(DE)..
000020: 20 20 20 20 20 20 41 4E 44 20 25 30 30 31 31 30 AND %00110
000030: 31 31 31 20 20 20 3B 49 67 6E 6F 72 65 72 20 45 111 ;Ignorer E
000040: 50 20 48 44 20 43 4D 20 2E 20 53 69 20 75 6E 20 P HD CM . Si un
000050: 73 65 75 6C 20 64 65 73 20 61 75 74 72 65 73 20 seul des autres
000060: 62 69 74 73 0D 0A 20 20 20 20 20 20 20 20 20 4A bits.. J
000070: 52 20 4E 5A 2C 54 45 53 54 4F 55 54 20 20 20 3B R NZ,TESTOUT ;
000080: 65 73 74 20 6D 69 73 20 2C 20 6C 65 20 73 65 63 est mis , le sec
000090: 74 65 75 72 20 6E 27 65 73 74 20 70 61 73 20 4F teur n'est pas O
0000A0: 4B 20 64 6F 6E 63 20 70 61 73 20 65 63 72 69 74 K donc pas ecrit
0000B0: 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 4C .. ;.. L
0000C0: 44 20 41 2C 43 20 20 20 20 20 20 20 20 20 20 3B D A,C ;
0000D0: 43 68 65 72 63 68 65 72 20 6C 65 20 70 6C 75 73 Chercher le plus
0000E0: 20 67 72 61 6E 64 20 49 44 20 4C 45 4E 20 4F 4B grand ID LEN OK
0000F0: 20 64 65 20 6C 61 20 70 69 73 74 65 0D 0A 20 20 de la piste..
000100: 20 20 20 20 20 20 20 4C 44 20 49 59 2C 4C 49 44 LD IY,LID
000110: 4D 41 58 0D 0A 20 20 20 20 20 20 20 20 20 43 50 MAX.. CP
000120: 20 28 49 59 2B 30 29 0D 0A 20 20 20 20 20 20 20 (IY+0)..
000130: 20 20 4A 52 20 43 2C 50 4C 55 50 45 54 49 20 20 JR C,PLUPETI
000140: 20 20 3B 50 61 73 20 70 6C 75 73 20 67 72 61 6E ;Pas plus gran
000150: 64 20 76 6F 69 72 20 73 69 20 70 6C 75 73 20 70 d voir si plus p
000160: 65 74 69 74 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 etit.. ;..
000170: 20 20 20 4C 44 20 28 49 59 2B 30 29 2C 41 20 20 LD (IY+0),A
000180: 20 20 20 3B 4D 65 6D 6F 72 69 73 65 72 20 6C 27 ;Memoriser l'
000190: 49 44 20 4F 4B 20 6C 65 20 70 6C 75 73 20 67 72 ID OK le plus gr
0001A0: 61 6E 64 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 and.. JR
0001B0: 20 54 45 53 54 4F 55 54 0D 0A 20 3B 0D 0A 20 50 TESTOUT.. ;.. P
0001C0: 4C 55 50 45 54 49 20 4C 44 20 49 59 2C 4C 4D 49 LUPETI LD IY,LMI
0001D0: 4E 0D 0A 20 20 20 20 20 20 20 20 20 43 50 20 28 N.. CP (
0001E0: 49 59 2B 30 29 0D 0A 20 20 20 20 20 20 20 20 20 IY+0)..
0001F0: 4A 52 20 4E 43 2C 54 45 53 54 4F 55 54 0D 0A 20 JR NC,TESTOUT..
Size : 512 (Real : 512)
000000: 3B 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 ;.. LD (
000010: 49 59 2B 30 29 2C 41 20 20 20 20 20 3B 4D 65 6D IY+0),A ;Mem
000020: 6F 72 69 73 65 72 20 6C 65 20 70 6C 75 73 20 70 oriser le plus p
000030: 65 74 69 74 20 49 44 20 4C 45 4E 20 4F 4B 0D 0A etit ID LEN OK..
000040: 20 3B 0D 0A 20 54 45 53 54 4F 55 54 20 20 49 4E ;.. TESTOUT IN
000050: 43 20 44 45 20 20 20 20 20 20 20 20 20 3B 41 76 C DE ;Av
000060: 61 6E 63 65 72 20 64 27 75 6E 20 65 74 61 74 20 ancer d'un etat
000070: 64 27 65 72 72 65 75 72 0D 0A 20 20 20 20 20 20 d'erreur..
000080: 20 20 20 49 4E 43 20 48 4C 20 20 20 20 20 20 20 INC HL
000090: 20 20 20 3B 41 6C 6C 65 72 20 73 75 72 20 6C 65 ;Aller sur le
0000A0: 20 70 72 6F 63 68 61 69 6E 20 49 44 20 4C 45 4E prochain ID LEN
0000B0: 0D 0A 20 20 20 20 20 20 20 20 20 49 4E 43 20 48 .. INC H
0000C0: 4C 0D 0A 20 20 20 20 20 20 20 20 20 49 4E 43 20 L.. INC
0000D0: 48 4C 0D 0A 20 20 20 20 20 20 20 20 20 49 4E 43 HL.. INC
0000E0: 20 48 4C 0D 0A 20 20 20 20 20 20 20 20 20 44 4A HL.. DJ
0000F0: 4E 5A 20 53 45 54 46 4C 41 47 53 20 20 20 3B 52 NZ SETFLAGS ;R
000100: 65 63 6F 6D 6D 65 6E 63 65 72 20 70 6F 75 72 20 ecommencer pour
000110: 63 68 61 71 75 65 20 73 65 63 74 65 75 72 0D 0A chaque secteur..
000120: 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 ;..
000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2D -
000140: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000150: 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 0D 0A 20 20 20 --------.. ..
000160: 20 20 41 20 63 65 20 70 6F 69 6E 74 20 2C 20 6E A ce point , n
000170: 6F 75 73 20 61 76 6F 6E 73 20 64 7B 6A 40 20 20 ous avons d{j@
000180: 6C 27 65 73 73 65 6E 74 69 65 6C 20 64 65 20 6E l'essentiel de n
000190: 6F 73 20 69 6E 66 6F 72 6D 61 74 69 6F 6E 73 20 os informations
0001A0: 2C 20 72 65 73 74 65 20 75 6E 65 0D 0A 20 61 6D , reste une.. am
0001B0: 62 69 67 75 69 74 7B 20 3A 20 53 69 20 69 6C 20 biguit{ : Si il
0001C0: 6E 27 79 2D 40 20 71 75 65 20 64 65 73 20 73 65 n'y-@ que des se
0001D0: 63 74 65 75 72 73 20 20 43 52 2F 44 44 20 20 6F cteurs CR/DD o
0001E0: 75 20 73 65 63 74 65 75 72 73 20 6E 6F 6E 20 4F u secteurs non O
0001F0: 4B 53 20 2C 20 73 69 20 6C 65 73 0D 0A 20 73 65 KS , si les.. se
Size : 512 (Real : 512)
000000: 63 74 65 75 72 73 20 4F 4B 20 73 6F 6E 74 20 74 cteurs OK sont t
000010: 6F 75 73 20 64 65 20 74 61 69 6C 6C 65 20 20 69 ous de taille i
000020: 64 65 6E 74 69 71 75 65 20 20 2C 20 20 4C 4D 49 dentique , LMI
000030: 4E 20 6E 27 61 20 70 61 73 20 7B 74 7B 20 69 6E N n'a pas {t{ in
000040: 69 74 69 61 6C 69 73 7B 20 65 74 0D 0A 20 72 65 itialis{ et.. re
000050: 73 74 65 20 40 20 23 46 46 20 2E 20 43 65 20 66 ste @ #FF . Ce f
000060: 61 69 74 20 61 79 61 6E 74 20 75 6E 65 20 20 73 ait ayant une s
000070: 69 67 6E 69 66 69 63 61 74 69 6F 6E 20 20 70 72 ignification pr
000080: 7B 63 69 73 65 20 70 6F 75 72 20 63 65 20 71 75 {cise pour ce qu
000090: 69 20 73 75 69 74 20 2C 20 6F 6E 0D 0A 20 6C 65 i suit , on.. le
0000A0: 20 6C 61 69 73 73 65 20 40 20 23 46 46 20 65 74 laisse @ #FF et
0000B0: 20 6F 6E 20 63 6F 6E 73 69 64 7D 72 65 20 20 70 on consid}re p
0000C0: 72 6F 76 69 73 6F 69 72 65 6D 65 6E 74 20 20 71 rovisoirement q
0000D0: 75 65 20 73 69 20 4C 4D 49 4E 3D 23 46 46 20 6C ue si LMIN=#FF l
0000E0: 61 20 74 61 69 6C 6C 65 20 64 65 0D 0A 20 66 6F a taille de.. fo
0000F0: 72 6D 61 74 20 6D 69 6E 69 6D 75 6D 20 65 73 74 rmat minimum est
000100: 20 64 65 20 7A 7B 72 6F 20 2E 0D 0A 20 20 20 20 de z{ro ...
000110: 20 50 6F 75 72 20 73 61 76 6F 69 72 20 73 69 20 Pour savoir si
000120: 69 6C 20 79 2D 61 20 70 6C 75 73 69 65 75 72 73 il y-a plusieurs
000130: 20 20 74 61 69 6C 6C 65 73 20 20 64 65 20 73 65 tailles de se
000140: 63 74 65 75 72 73 20 4F 4B 20 64 7B 63 6C 61 72 cteurs OK d{clar
000150: 7B 65 73 20 73 75 72 20 6C 61 0D 0A 20 70 69 73 {es sur la.. pis
000160: 74 65 20 6F 6E 20 73 6F 75 73 74 72 61 69 74 20 te on soustrait
000170: 4C 49 44 4D 41 58 20 64 65 20 4C 4D 49 4E 20 2E LIDMAX de LMIN .
000180: 20 4C 61 20 64 69 66 66 7B 72 65 6E 63 65 20 65 La diff{rence e
000190: 73 74 20 73 74 6F 63 6B 7B 65 20 64 61 6E 73 20 st stock{e dans
0001A0: 46 4C 47 44 49 46 49 44 20 2E 0D 0A 20 53 69 20 FLGDIFID ... Si
0001B0: 4C 4D 49 4E 20 3D 20 23 46 46 20 6F 6E 20 65 73 LMIN = #FF on es
0001C0: 74 69 6D 65 20 70 6F 73 73 69 62 6C 65 20 6C 61 time possible la
0001D0: 20 20 70 72 7B 73 65 6E 63 65 20 64 65 20 74 61 pr{sence de ta
0001E0: 69 6C 6C 65 20 30 20 71 75 69 20 70 6F 75 72 72 ille 0 qui pourr
0001F0: 61 69 65 6E 74 20 62 69 65 6E 0D 0A 20 65 08 5E aient bien.. e.^
Size : 512 (Real : 512)
000000: 74 72 65 20 65 6E 20 4D 41 4D 20 6F 75 20 43 52 tre en MAM ou CR
000010: 2F 44 44 20 2E 0D 0A 20 0D 0A 20 20 20 20 20 20 /DD ... ..
000020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000030: 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ------------
000040: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D ---------------.
000050: 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 . ;.. LD
000060: 20 41 2C 28 4C 4D 49 4E 29 0D 0A 20 20 20 20 20 A,(LMIN)..
000070: 20 20 20 20 43 50 20 23 46 46 0D 0A 20 20 20 20 CP #FF..
000080: 20 20 20 20 20 4A 52 20 4E 5A 2C 4C 4D 49 4E 46 JR NZ,LMINF
000090: 49 4E 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 IN.. ;..
0000A0: 20 49 4E 43 20 41 20 20 20 20 20 20 20 3B 53 69 INC A ;Si
0000B0: 20 4C 4D 49 4E 20 72 65 73 74 65 20 61 20 23 46 LMIN reste a #F
0000C0: 46 20 61 75 63 75 6E 20 73 65 63 74 65 75 72 20 F aucun secteur
0000D0: 6E 27 65 73 74 20 4F 4B 20 4C 4D 49 4E 3D 30 0D n'est OK LMIN=0.
0000E0: 0A 20 3B 0D 0A 20 4C 4D 49 4E 46 49 4E 20 4C 44 . ;.. LMINFIN LD
0000F0: 20 42 2C 41 20 20 20 20 20 20 20 20 3B 49 63 69 B,A ;Ici
000100: 20 46 4C 47 44 49 46 49 44 20 73 65 72 61 20 61 FLGDIFID sera a
000110: 20 30 20 73 69 20 70 61 73 20 64 27 49 44 20 4F 0 si pas d'ID O
000120: 4B 20 3C 3E 20 73 69 6E 6F 6E 20 69 6C 0D 0A 20 K <> sinon il..
000130: 20 20 20 20 20 20 20 20 4C 44 20 41 2C 28 4C 49 LD A,(LI
000140: 44 4D 41 58 29 20 3B 63 6F 6E 74 69 65 6E 64 72 DMAX) ;contiendr
000150: 61 20 6C 61 20 64 69 66 66 65 72 65 6E 63 65 20 a la difference
000160: 64 65 20 4C 4D 41 58 20 61 20 4C 4D 49 4E 0D 0A de LMAX a LMIN..
000170: 20 20 20 20 20 20 20 20 20 53 55 42 20 42 0D 0A SUB B..
000180: 20 20 20 20 20 20 20 20 20 4C 44 20 28 46 4C 47 LD (FLG
000190: 44 49 46 49 44 29 2C 41 0D 0A 20 3B 0D 0A 20 20 DIFID),A.. ;..
0001A0: 20 20 20 43 6F 6D 6D 65 20 64 69 74 20 64 61 6E Comme dit dan
0001B0: 73 20 6C 61 20 73 65 63 74 69 6F 6E 20 74 68 7B s la section th{
0001C0: 6F 72 69 65 20 64 65 20 20 63 65 20 74 72 69 6D orie de ce trim
0001D0: 65 73 74 72 65 20 2C 20 6C 61 20 70 72 7B 73 65 estre , la pr{se
0001E0: 6E 63 65 20 64 27 75 6E 20 4D 41 4D 0D 0A 20 65 nce d'un MAM.. e
0001F0: 6E 20 31 65 72 20 73 65 63 74 65 75 72 20 69 6E n 1er secteur in
Size : 512 (Real : 512)
000000: 74 65 72 64 69 74 20 74 6F 75 74 20 75 73 61 67 terdit tout usag
000010: 65 20 20 64 65 20 20 6C 69 72 65 20 20 70 69 73 e de lire pis
000020: 74 65 20 20 21 20 43 27 65 73 74 20 64 6F 6E 63 te ! C'est donc
000030: 20 6C 61 20 70 72 65 6D 69 7D 72 65 0D 0A 20 63 la premi}re.. c
000040: 68 6F 73 65 20 40 20 74 65 73 74 65 72 20 2E 20 hose @ tester .
000050: 53 69 20 63 27 65 73 74 20 20 6C 65 20 20 63 61 Si c'est le ca
000060: 73 20 20 2C 20 20 6F 6E 20 20 72 65 63 68 65 72 s , on recher
000070: 63 68 65 72 61 20 75 6E 20 7B 76 65 6E 74 75 65 chera un {ventue
000080: 6C 20 43 52 2F 44 44 20 61 76 65 63 0D 0A 20 6C l CR/DD avec.. l
000090: 27 65 73 70 6F 69 72 20 64 27 79 20 74 72 6F 75 'espoir d'y trou
0000A0: 76 65 72 20 6C 65 20 67 61 70 20 28 53 4F 4C 55 ver le gap (SOLU
0000B0: 54 49 4F 4E 32 29 20 2E 20 53 69 20 69 6C 20 6E TION2) . Si il n
0000C0: 27 79 20 40 20 71 75 27 75 6E 20 73 65 75 6C 20 'y @ qu'un seul
0000D0: 73 65 63 74 65 75 72 20 2C 20 6F 6E 0D 0A 20 75 secteur , on.. u
0000E0: 74 69 6C 69 73 65 20 6C 65 20 50 49 46 4F 4D 45 tilise le PIFOME
0000F0: 54 52 45 20 2E 0D 0A 20 3B 0D 0A 20 20 20 20 20 TRE ... ;..
000100: 20 20 20 20 4C 44 20 41 2C 28 4C 49 53 54 45 52 LD A,(LISTER
000110: 52 29 20 3B 56 6F 69 72 20 73 69 20 4D 41 4D 20 R) ;Voir si MAM
000120: 65 6E 20 31 65 72 20 73 65 63 74 65 75 72 0D 0A en 1er secteur..
000130: 20 20 20 20 20 20 20 20 20 41 4E 44 20 25 30 30 AND %00
000140: 30 30 30 30 31 31 20 20 3B 53 69 20 6F 75 69 20 000011 ;Si oui
000150: 2C 20 69 6E 61 6E 61 6C 69 73 61 62 6C 65 20 70 , inanalisable p
000160: 61 72 20 6C 69 72 65 20 70 69 73 74 65 0D 0A 20 ar lire piste..
000170: 20 20 20 20 20 20 20 20 43 50 20 25 30 30 30 30 CP %0000
000180: 30 30 31 31 0D 0A 20 20 20 20 20 20 20 20 20 4A 0011.. J
000190: 52 20 4E 5A 2C 53 4F 4C 55 54 49 4F 4E 31 20 3B R NZ,SOLUTION1 ;
0001A0: 53 69 20 6E 6F 6E 20 73 61 75 74 65 72 20 61 75 Si non sauter au
0001B0: 20 31 65 72 20 73 79 73 74 65 6D 65 20 64 27 61 1er systeme d'a
0001C0: 6E 61 6C 79 73 65 0D 0A 20 3B 0D 0A 20 20 20 20 nalyse.. ;..
0001D0: 20 20 20 20 20 43 41 4C 4C 20 55 4E 53 45 55 4C CALL UNSEUL
0001E0: 20 20 20 3B 4D 65 74 20 6C 65 20 63 61 72 72 79 ;Met le carry
0001F0: 20 73 69 20 6C 61 20 70 69 73 74 65 20 6E 27 61 si la piste n'a
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000010: 20 20 20 20 20 20 20 20 20 20 20 2D 2D 2D 2D 2D -----
000020: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000030: 2D 2D 2D 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ---..
000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000050: 2D 20 45 43 52 41 53 45 52 20 4C 45 53 20 53 45 - ECRASER LES SE
000060: 43 54 45 55 52 53 20 2D 0D 0A 20 20 20 20 20 20 CTEURS -..
000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000080: 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D -----------
000090: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 -------------..
0000A0: 0D 0A 20 20 20 20 20 41 54 54 45 4E 54 49 4F 4E .. ATTENTION
0000B0: 20 2E 20 50 6F 75 72 20 66 6F 6E 63 74 69 6F 6E . Pour fonction
0000C0: 6E 65 72 20 65 6E 20 73 69 6D 70 6C 65 20 64 65 ner en simple de
0000D0: 6E 73 69 74 7B 20 2C 20 74 6F 75 74 65 73 20 6C nsit{ , toutes l
0000E0: 65 73 20 76 61 6C 65 75 72 73 20 6D 69 73 65 73 es valeurs mises
0000F0: 0D 0A 20 64 61 6E 73 20 6C 65 73 20 74 61 62 6C .. dans les tabl
000100: 65 73 20 54 42 2E 2E 2E 20 65 74 20 6C 65 73 20 es TB... et les
000110: 76 61 6C 65 75 72 73 20 64 65 20 63 6F 6D 70 61 valeurs de compa
000120: 72 61 69 73 6F 6E 73 20 64 65 76 72 6F 6E 74 20 raisons devront
000130: 65 08 5E 74 72 65 20 6D 6F 64 69 66 69 7B 65 73 e.^tre modifi{es
000140: 20 2E 0D 0A 20 20 20 20 20 4C 61 20 73 65 63 74 ... La sect
000150: 69 6F 6E 20 70 6F 75 72 72 61 20 65 08 5E 74 72 ion pourra e.^tr
000160: 65 20 62 65 61 75 63 6F 75 70 20 70 6C 75 73 20 e beaucoup plus
000170: 20 63 6F 75 72 74 65 20 20 63 61 72 20 20 65 6E courte car en
000180: 20 20 53 44 20 2C 20 69 6C 20 6E 27 79 20 40 20 SD , il n'y @
000190: 70 6C 75 73 0D 0A 20 67 72 61 6E 64 20 63 68 6F plus.. grand cho
0001A0: 73 65 20 40 20 7B 63 72 61 73 65 72 20 2E 2E 2E se @ {craser ...
0001B0: 20 0D 0A 20 0D 0A 20 20 20 20 20 53 69 20 76 6F .. .. Si vo
0001C0: 75 73 20 6E 27 61 76 65 7A 20 74 6F 75 6A 6F 75 us n'avez toujou
0001D0: 72 73 20 70 61 73 20 63 6F 6D 70 72 69 73 20 63 rs pas compris c
0001E0: 65 20 71 75 27 65 73 74 20 75 6E 20 73 65 63 74 e qu'est un sect
0001F0: 65 75 72 20 7B 63 72 61 73 7B 20 2C 20 72 65 76 eur {cras{ , rev
Size : 512 (Real : 512)
000000: 6F 79 65 7A 0D 0A 20 64 6F 6E 63 20 6C 61 20 73 oyez.. donc la s
000010: 65 63 74 69 6F 6E 20 74 68 7B 6F 72 69 65 20 2E ection th{orie .
000020: 2E 2E 0D 0A 20 0D 0A 20 20 20 20 20 44 61 6E 73 .... .. Dans
000030: 20 70 72 65 73 71 75 65 20 74 6F 75 73 20 6C 65 presque tous le
000040: 73 20 63 61 73 20 20 6F 7C 20 20 6C 61 20 20 72 s cas o| la r
000050: 6F 75 74 69 6E 65 20 20 53 4F 4C 55 54 49 4F 4E outine SOLUTION
000060: 31 20 20 61 75 72 61 20 7B 63 68 6F 75 7B 20 65 1 aura {chou{ e
000070: 74 20 71 75 65 0D 0A 20 70 6C 75 73 69 65 75 72 t que.. plusieur
000080: 73 20 74 61 69 6C 6C 65 73 20 64 65 20 73 65 63 s tailles de sec
000090: 74 65 75 72 73 20 76 72 61 69 6D 65 6E 74 20 7B teurs vraiment {
0000A0: 63 72 69 74 73 20 61 75 72 6F 6E 74 20 7B 74 7B crits auront {t{
0000B0: 20 74 72 6F 75 76 7B 73 20 73 75 72 20 75 6E 65 trouv{s sur une
0000C0: 20 6D 65 08 5E 6D 65 0D 0A 20 70 69 73 74 65 20 me.^me.. piste
0000D0: 2C 20 69 6C 20 79 2D 61 75 72 61 20 20 61 75 20 , il y-aura au
0000E0: 20 6D 6F 69 6E 73 20 20 75 6E 65 20 20 73 7B 72 moins une s{r
0000F0: 69 65 75 73 65 20 20 73 75 73 70 69 73 63 69 6F ieuse suspiscio
000100: 6E 20 20 73 75 72 20 20 6C 65 20 20 62 6F 6E 20 n sur le bon
000110: 61 6C 6F 69 20 64 75 0D 0A 20 66 6F 72 6D 61 74 aloi du.. format
000120: 61 67 65 20 2E 20 4C 27 65 78 70 7B 72 69 65 6E age . L'exp{rien
000130: 63 65 20 61 79 61 6E 74 20 20 64 7B 6D 6F 6E 74 ce ayant d{mont
000140: 72 7B 20 20 71 75 27 7B 63 72 61 73 65 72 20 20 r{ qu'{craser
000150: 73 61 6E 73 20 6E 7B 63 7B 73 73 69 74 7B 20 65 sans n{c{ssit{ e
000160: 73 74 20 73 61 6E 73 0D 0A 20 65 66 66 65 74 20 st sans.. effet
000170: 6E 6F 63 69 66 20 73 75 72 20 6C 61 20 20 63 6F nocif sur la co
000180: 70 69 65 20 20 61 6C 6F 72 73 20 20 71 75 65 20 pie alors que
000190: 20 6C 27 69 6E 76 65 72 73 65 20 20 70 72 6F 64 l'inverse prod
0001A0: 75 69 74 20 20 73 6F 75 76 65 6E 74 20 64 65 73 uit souvent des
0001B0: 20 63 6F 70 69 65 73 0D 0A 20 6E 65 20 66 6F 6E copies.. ne fon
0001C0: 63 74 69 6F 6E 6E 61 6E 74 20 70 61 73 20 2E 20 ctionnant pas .
0001D0: 44 61 6E 73 20 6C 65 20 64 6F 75 74 65 20 2C 20 Dans le doute ,
0001E0: 6F 6E 20 7B 63 72 61 73 65 20 64 27 61 62 6F 72 on {crase d'abor
0001F0: 64 20 65 74 20 6F 6E 20 64 69 73 63 75 74 65 20 d et on discute
Size : 512 (Real : 512)
000000: 0F 2C 19 0A 01 BF 22 18 5B 46 5D 18 69 6E 69 20 .,....".[F].ini
000010: 2D 20 18 5B 52 5D 18 65 70 72 65 6E 64 72 65 22 - .[R].eprendre"
000020: 00 31 00 66 4E 03 00 00 C1 EF 22 22 01 D6 20 03 .1.fN....."".. .
000030: 00 00 E1 F2 22 46 22 FA 20 03 00 00 E1 F2 22 52 ...."F". ....."R
000040: 22 01 03 00 00 E1 EF FF 1C 28 FF 43 29 01 D5 01 "........(.C)...
000050: C9 00 16 00 70 4E 0B 00 00 64 EC EF 19 10 01 0B ....pN...d......
000060: 00 00 64 E8 EF 19 10 00 07 00 7A 4E 01 C0 00 22 ..d.......zN..."
000070: 00 84 4E 01 C0 2A 2A 2A 20 46 65 6E 65 74 72 61 ..N..*** Fenetra
000080: 67 65 20 2D 20 63 61 64 72 61 67 65 20 2A 2A 2A ge - cadrage ***
000090: 00 07 00 8E 4E 01 C0 00 7C 00 98 4E 0B 00 00 F4 ....N...|..N....
0000A0: EF 12 01 D8 20 23 0F 2C 0B 00 00 77 B1 2C 0B 00 .... #.,...w.,..
0000B0: 00 77 B2 2C 0B 00 00 77 B3 2C 0B 00 00 77 B4 01 .w.,...w.,...w..
0000C0: BA 20 23 0F 2C 0B 00 00 E1 01 0B 00 00 F8 EF 0B . #.,...........
0000D0: 00 00 77 B1 01 0B 00 00 F9 EF 0B 00 00 77 B3 F4 ..w..........w..
0000E0: 0F 01 0B 00 00 EC EF 0B 00 00 77 B2 F5 0B 00 00 ..........w.....
0000F0: 77 B1 01 0B 00 00 E8 EF 0B 00 00 77 B4 F5 0B 00 w..........w....
000100: 00 77 B3 01 8A 23 0F 01 9F 20 1E 6A 27 01 A0 20 .w...#... .j'..
000110: 1E D8 27 00 27 00 A2 4E 0B 00 00 77 B1 EF 10 01 ..'.'..N...w....
000120: 0B 00 00 77 B2 EF 19 27 01 0B 00 00 77 B3 EF 19 ...w...'....w...
000130: 0A 01 0B 00 00 77 B4 EF 19 18 00 31 00 AC 4E D8 .....w.....1..N.
000140: 20 23 0F 2C 0B 00 00 77 B1 2C 0B 00 00 77 B2 2C #.,...w.,...w.,
000150: 0B 00 00 77 B3 2C 0B 00 00 77 B4 01 BA 20 23 0F ...w.,...w... #.
000160: 2C 0B 00 00 E1 01 8A 23 0F 01 C9 00 07 00 B6 4E ,......#.......N
000170: 01 C0 00 29 00 C0 4E 01 C0 2A 2A 2A 20 41 66 66 ...)..N..*** Aff
000180: 69 63 68 65 72 20 73 65 6C 65 63 74 69 6F 6E 20 icher selection
000190: 72 65 70 6F 6E 73 65 20 2A 2A 2A 00 07 00 CA 4E reponse ***....N
0001A0: 01 C0 00 C5 00 D4 4E 7C 00 4D 49 44 C3 2C 0B 00 ......N|.MID.,..
0001B0: 00 63 B2 2C 0B 00 00 63 B3 2C 0E 2C 0B 00 00 79 .c.,...c.,.,...y
0001C0: B1 2C 40 03 00 00 E1 01 0B 00 00 77 B3 EF 0B 00 .,@........w....
0001D0: 00 77 B3 F4 10 01 0B 00 00 77 B1 EF 0B 00 00 77 .w.......w.....w
0001E0: B1 F4 0F 01 0B 00 00 77 B2 EF 0B 00 00 77 B2 F5 .......w.....w..
0001F0: 0F 01 0B 00 00 77 B4 EF 0B 00 00 77 B4 F5 0F 01 .....w.....w....
Size : 512 (Real : 512)
000000: 0B 00 00 E1 EF 0E 01 9F 20 1E AC 4E 01 0B 00 00 ........ ..N....
000010: 77 B3 EF 0B 00 00 77 B3 F5 10 01 0B 00 00 77 B1 w.....w.......w.
000020: EF 0B 00 00 77 B1 F5 0F 01 0B 00 00 77 B2 EF 0B ....w.......w...
000030: 00 00 77 B2 F4 0F 01 0B 00 00 77 B4 EF 0B 00 00 ..w.......w.....
000040: 77 B4 F4 0F 01 7C 00 4D 49 44 C3 2C 0B 00 00 63 w....|.MID.,...c
000050: B2 2C 0B 00 00 63 B3 2C 0E 2C 0B 00 00 79 B1 2C .,...c.,.,...y.,
000060: 40 03 00 00 E1 01 C9 00 07 00 DE 4E 01 C0 00 31 @..........N...1
000070: 00 E8 4E 01 C0 2A 2A 2A 20 52 65 73 74 61 75 72 ..N..*** Restaur
000080: 65 20 66 65 6E 65 74 72 65 20 72 65 70 6F 6E 73 e fenetre repons
000090: 65 73 20 73 69 20 61 3D 2D 31 36 20 2A 2A 2A 00 es si a=-16 ***.
0000A0: 07 00 F2 4E 01 C0 00 3B 00 FC 4E 0B 00 00 77 B1 ...N...;..N...w.
0000B0: EF 19 0A 01 0B 00 00 77 B2 EF 19 1F 01 0B 00 00 .......w........
0000C0: 77 B3 EF 19 0A 01 0B 00 00 77 B4 EF 19 0A 01 0B w........w......
0000D0: 00 00 E1 EF 10 01 9F 20 1E AC 4E 01 A0 20 1E 2E ....... ..N.. ..
0000E0: 4F 00 07 00 06 4F 01 C0 00 25 00 10 4F 01 C0 2A O....O...%..O..*
0000F0: 2A 2A 20 49 6E 69 74 69 61 6C 69 73 61 74 69 6F ** Initialisatio
000100: 6E 20 6D 65 6E 75 73 20 32 20 2A 2A 2A 00 07 00 n menus 2 ***...
000110: 1A 4F 01 C0 00 F2 00 24 4F 0B 00 00 E1 EF 10 01 .O.....$O.......
000120: 9F 20 1E A2 4E 01 0B 00 00 77 B1 EF 12 01 0B 00 . ..N....w......
000130: 00 77 B2 EF 14 01 0B 00 00 77 B3 EF 19 0B 01 0B .w.......w......
000140: 00 00 77 B4 EF 19 15 01 0B 00 00 E1 EF 0E 01 9F ..w.............
000150: 20 1E AC 4E 01 0B 00 00 77 B1 EF 19 23 01 0B 00 ..N....w...#...
000160: 00 77 B2 EF 19 25 01 9F 20 1E AC 4E 01 03 00 00 .w...%.. ..N....
000170: E2 EF 22 20 53 45 43 54 49 4F 4E 20 22 01 7C 00 .." SECTION ".|.
000180: 50 52 54 D6 2C 0E 2C 11 2C 0E 2C 13 2C 19 0C 2C PRT.,.,.,.,.,..,
000190: 40 03 00 00 E2 01 7C 00 50 52 54 D6 2C 0E 2C 11 @.....|.PRT.,.,.
0001A0: 2C 0E 2C 19 24 2C 19 0C 2C 40 03 00 00 E3 01 0B ,.,.$,..,@......
0001B0: 00 00 F8 EF 13 01 0B 00 00 F9 EF 19 0C 01 0B 00 ................
0001C0: 00 EC EF 0F 01 0B 00 00 E8 EF FF 0E 28 03 00 00 ............(...
0001D0: E2 29 01 0B 00 00 E3 EF 0F 01 0B 00 00 F4 EF 12 .)..............
0001E0: 01 0B 00 00 64 EC EF 19 10 01 0B 00 00 64 E8 EF ....d........d..
0001F0: 19 10 01 9F 20 1E 92 27 01 0B 00 00 F8 EF 19 24 .... ..'.......$
Size : 512 (Real : 512)
000000: 61 70 72 7D 73 20 21 0D 0A 20 0D 0A 20 20 20 20 apr}s !.. ..
000010: 20 43 65 20 6E 27 65 73 74 20 70 61 73 20 76 72 Ce n'est pas vr
000020: 61 69 6D 65 6E 74 20 73 69 6D 70 6C 65 20 20 2C aiment simple ,
000030: 20 20 6D 61 69 73 20 20 6C 61 20 20 73 74 72 75 mais la stru
000040: 63 74 75 72 65 20 20 65 6E 20 63 61 73 63 61 64 cture en cascad
000050: 65 20 64 65 20 63 65 74 74 65 0D 0A 20 72 6F 75 e de cette.. rou
000060: 74 69 6E 65 20 65 73 74 20 75 6E 20 70 65 75 20 tine est un peu
000070: 70 6C 75 73 20 63 6C 61 69 72 65 20 71 75 65 20 plus claire que
000080: 63 65 6C 6C 65 20 64 65 73 20 72 6F 75 74 69 6E celle des routin
000090: 65 73 20 64 27 61 6E 61 6C 79 73 65 20 2E 0D 0A es d'analyse ...
0000A0: 20 0D 0A 20 20 20 20 20 4C 65 73 20 73 65 63 74 .. Les sect
0000B0: 69 6F 6E 73 20 64 27 61 6E 61 6C 79 73 65 20 73 ions d'analyse s
0000C0: 6F 6E 74 20 63 65 6E 73 7B 65 73 20 6E 6F 75 73 ont cens{es nous
0000D0: 20 20 61 76 6F 69 72 20 20 64 6F 6E 6E 7B 20 6C avoir donn{ l
0000E0: 61 20 76 72 61 69 65 20 74 61 69 6C 6C 65 20 64 a vraie taille d
0000F0: 75 0D 0A 20 66 6F 72 6D 61 74 20 2E 20 20 44 61 u.. format . Da
000100: 6E 73 20 20 6C 65 20 20 70 69 72 65 20 20 64 65 ns le pire de
000110: 73 20 20 63 61 73 20 20 2C 20 20 6F 6E 20 20 64 s cas , on d
000120: 69 73 70 6F 73 65 20 20 64 65 20 20 4C 4D 49 4E ispose de LMIN
000130: 20 20 71 75 69 20 20 73 65 72 61 20 61 6C 6F 72 qui sera alor
000140: 73 0D 0A 20 63 6F 6E 73 69 64 7B 72 7B 65 20 63 s.. consid{r{e c
000150: 6F 6D 6D 65 20 74 61 69 6C 6C 65 20 64 75 20 66 omme taille du f
000160: 6F 72 6D 61 74 20 64 27 6F 72 69 67 69 6E 65 20 ormat d'origine
000170: 2E 0D 0A 20 0D 0A 20 20 20 20 20 4C 61 20 76 72 ... .. La vr
000180: 61 69 65 20 6C 6F 6E 67 75 65 75 72 20 64 75 20 aie longueur du
000190: 47 41 50 20 3A 20 20 45 6C 6C 65 20 20 61 20 20 GAP : Elle a
0001A0: 7B 74 7B 20 20 64 7B 74 65 72 6D 69 6E 7B 65 20 {t{ d{termin{e
0001B0: 2C 20 6F 75 20 6D 69 73 65 20 61 75 20 6D 69 6E , ou mise au min
0001C0: 69 6D 75 6D 0D 0A 20 61 64 6D 69 73 73 69 62 6C imum.. admissibl
0001D0: 65 20 2E 20 43 65 20 6E 27 65 73 74 20 70 61 73 e . Ce n'est pas
0001E0: 20 76 72 61 69 6D 65 6E 74 20 75 6E 20 70 72 6F vraiment un pro
0001F0: 62 6C 7D 6D 65 20 2E 0D 0A 20 0D 0A 20 20 20 20 bl}me ... ..
Size : 512 (Real : 512)
000000: 20 41 20 63 65 20 70 6F 69 6E 74 20 2C 20 20 6E A ce point , n
000010: 6F 73 20 20 70 65 72 66 65 63 74 69 6F 6E 6E 69 os perfectionni
000020: 73 74 65 73 20 20 66 61 76 6F 72 69 73 20 20 61 stes favoris a
000030: 75 72 6F 6E 74 20 6F 62 73 65 72 76 7B 20 71 75 uront observ{ qu
000040: 65 20 71 75 65 6C 71 75 65 73 0D 0A 20 72 6F 75 e quelques.. rou
000050: 74 69 6E 65 73 20 65 74 20 76 61 72 69 61 62 6C tines et variabl
000060: 65 73 20 66 6F 6E 74 20 64 6F 75 62 6C 65 20 20 es font double
000070: 65 6D 70 6C 6F 69 20 20 2C 20 6C 65 73 20 6D 6F emploi , les mo
000080: 69 6E 73 20 63 68 65 76 72 6F 6E 6E 7B 73 20 70 ins chevronn{s p
000090: 72 7B 66 7B 72 65 72 6F 6E 74 0D 0A 20 73 6E 61 r{f{reront.. sna
0000A0: 73 20 64 6F 75 74 65 20 63 65 74 65 20 73 74 72 s doute cete str
0000B0: 75 63 74 75 72 65 20 71 75 69 20 6C 65 75 72 20 ucture qui leur
0000C0: 20 7B 76 69 74 65 20 64 65 20 72 65 63 68 65 72 {vite de recher
0000D0: 63 68 65 72 20 76 61 72 69 61 62 6C 65 73 20 65 cher variables e
0000E0: 74 20 72 6F 75 74 69 6E 65 73 0D 0A 20 64 61 6E t routines.. dan
0000F0: 73 20 6C 65 73 20 66 69 63 68 69 65 72 73 20 70 s les fichiers p
000100: 72 7B 63 7B 64 65 6E 74 73 20 2E 2E 2E 0D 0A 20 r{c{dents .....
000110: 0D 0A 20 20 20 20 20 41 6C 6F 72 73 20 65 6E 20 .. Alors en
000120: 70 72 65 6D 69 65 72 20 2C 20 71 75 65 6C 71 75 premier , quelqu
000130: 65 73 20 6D 7B 6D 6F 72 69 73 61 74 69 6F 6E 73 es m{morisations
000140: 20 69 6E 64 69 73 70 65 6E 73 61 62 6C 65 73 20 indispensables
000150: 63 61 72 20 6C 65 20 6E 6F 6D 62 72 65 20 64 65 car le nombre de
000160: 0D 0A 20 73 65 63 74 65 75 72 73 20 40 20 66 6F .. secteurs @ fo
000170: 72 6D 61 74 65 72 20 73 65 72 61 20 70 6C 75 73 rmater sera plus
000180: 20 67 72 61 6E 64 20 71 75 65 20 20 63 65 6C 75 grand que celu
000190: 69 20 20 74 72 6F 75 76 7B 20 6C 6F 72 73 20 64 i trouv{ lors d
0001A0: 65 20 6C 27 61 6E 61 6C 79 73 65 20 2E 20 49 6C e l'analyse . Il
0001B0: 0D 0A 20 66 61 75 74 20 61 75 73 73 69 20 70 65 .. faut aussi pe
0001C0: 6E 73 65 72 20 40 20 20 27 7B 71 75 69 6C 69 62 nser @ '{quilib
0001D0: 72 65 72 27 20 20 6C 61 20 20 6C 69 73 74 65 20 rer' la liste
0001E0: 20 64 65 73 20 20 65 72 72 65 75 72 73 20 20 2C des erreurs ,
0001F0: 20 20 73 69 6E 6F 6E 20 67 61 72 65 20 61 75 78 sinon gare aux
Size : 512 (Real : 512)
000000: 0D 0A 20 73 75 72 70 72 69 73 65 73 20 6C 6F 72 .. surprises lor
000010: 73 20 64 65 73 20 6F 70 7B 72 61 74 69 6F 6E 73 s des op{rations
000020: 20 64 65 20 6C 65 63 74 75 72 65 20 65 63 72 69 de lecture ecri
000030: 74 75 72 65 20 21 0D 0A 20 3B 0D 0A 20 3B 2D 52 ture !.. ;.. ;-R
000040: 6F 75 74 69 6E 65 20 64 65 20 72 65 63 72 65 61 outine de recrea
000050: 74 69 6F 6E 20 64 65 20 70 69 73 74 65 20 61 76 tion de piste av
000060: 65 63 20 73 65 63 74 65 75 72 73 20 65 63 72 61 ec secteurs ecra
000070: 73 65 73 20 2D 0D 0A 20 3B 0D 0A 20 45 43 52 41 ses -.. ;.. ECRA
000080: 53 45 52 20 4C 44 20 48 4C 2C 49 44 49 4E 44 52 SER LD HL,IDINDR
000090: 41 2B 33 20 3B 31 65 72 20 49 44 20 4C 45 4E 20 A+3 ;1er ID LEN
0000A0: 64 65 20 6C 61 20 6C 69 73 74 65 20 64 65 73 20 de la liste des
0000B0: 49 44 53 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 IDS.. LD
0000C0: 20 44 45 2C 4C 45 52 50 52 4F 56 20 20 20 3B 5A DE,LERPROV ;Z
0000D0: 6F 6E 65 20 64 65 20 74 72 61 6E 73 66 65 72 74 one de transfert
0000E0: 20 70 6F 75 72 20 6C 61 20 6C 69 73 74 65 20 64 pour la liste d
0000F0: 65 73 20 65 72 72 65 75 72 73 0D 0A 20 20 20 20 es erreurs..
000100: 20 20 20 20 20 4C 44 20 28 50 45 52 50 52 4F 56 LD (PERPROV
000110: 29 2C 44 45 20 3B 65 74 20 73 6F 6E 20 70 6F 69 ),DE ;et son poi
000120: 6E 74 65 75 72 0D 0A 20 20 20 20 20 20 20 20 20 nteur..
000130: 4C 44 20 44 45 2C 4C 49 53 54 45 52 52 20 20 20 LD DE,LISTERR
000140: 3B 56 72 61 69 65 20 6C 69 73 74 65 20 64 65 73 ;Vraie liste des
000150: 20 65 72 72 65 75 72 73 0D 0A 20 20 20 20 20 20 erreurs..
000160: 20 20 20 4C 44 20 28 50 4F 49 4E 54 45 52 29 2C LD (POINTER),
000170: 44 45 20 3B 65 74 20 73 6F 6E 20 70 6F 69 6E 74 DE ;et son point
000180: 65 75 72 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 eur.. LD
000190: 20 49 58 2C 4C 49 53 54 49 44 53 20 20 20 3B 44 IX,LISTIDS ;D
0001A0: 7B 62 75 74 20 64 27 75 6E 65 20 6C 69 73 74 65 {but d'une liste
0001B0: 20 71 75 69 20 6E 65 20 63 6F 6E 74 69 65 6E 64 qui ne contiend
0001C0: 72 61 20 71 75 65 20 6C 65 73 20 49 44 53 20 4C ra que les IDS L
0001D0: 45 4E 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 EN.. LD
0001E0: 41 2C 28 4E 42 53 50 52 4F 56 29 20 20 3B 4E 6F A,(NBSPROV) ;No
0001F0: 6D 62 72 65 20 70 72 6F 76 69 73 6F 69 72 65 20 mbre provisoire
Size : 512 (Real : 512)
000000: 64 65 20 73 65 63 74 65 75 72 73 20 71 75 69 20 de secteurs qui
000010: 40 20 7B 74 7B 20 69 6E 69 74 69 61 6C 69 73 7B @ {t{ initialis{
000020: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 42 2C .. LD B,
000030: 41 20 20 20 20 20 20 20 20 20 20 3B 40 20 6C 61 A ;@ la
000040: 20 76 61 6C 65 75 72 20 4E 42 53 45 43 20 64 61 valeur NBSEC da
000050: 6E 73 20 6C 65 73 20 72 6F 75 74 69 6E 65 73 20 ns les routines
000060: 70 72 7B 63 7B 64 65 6E 74 65 73 20 0D 0A 20 3B pr{c{dentes .. ;
000070: 0D 0A 20 20 20 20 20 20 20 20 20 50 55 53 48 20 .. PUSH
000080: 42 43 20 20 20 20 20 20 20 20 20 3B 44 75 20 64 BC ;Du d
000090: 7B 62 75 74 20 40 20 6C 61 20 66 69 6E 20 2C 20 {but @ la fin ,
0000A0: 42 20 63 6F 6E 74 69 65 6E 64 72 61 20 74 6F 75 B contiendra tou
0000B0: 6A 6F 75 72 73 20 4E 42 53 45 43 0D 0A 20 52 41 jours NBSEC.. RA
0000C0: 4E 47 45 4F 4B 20 4C 44 20 43 2C 23 46 46 20 20 NGEOK LD C,#FF
0000D0: 20 20 20 20 20 20 3B 52 61 6E 67 65 72 20 74 6F ;Ranger to
0000E0: 75 74 65 73 20 6C 65 73 20 6C 6F 6E 67 75 65 75 utes les longueu
0000F0: 72 73 20 64 65 20 73 65 63 74 65 75 72 73 20 4F rs de secteurs O
000100: 4B 20 40 20 6C 61 20 73 75 69 74 65 0D 0A 20 20 K @ la suite..
000110: 20 20 20 20 20 20 20 4C 44 20 41 2C 28 44 45 29 LD A,(DE)
000120: 20 20 20 20 20 20 20 3B 73 69 20 6C 65 20 73 65 ;si le se
000130: 63 74 65 75 72 20 6E 27 65 73 74 20 70 61 73 20 cteur n'est pas
000140: 4F 4B 20 2C 20 6D 65 74 74 72 65 20 23 46 46 20 OK , mettre #FF
000150: 0D 0A 20 20 20 20 20 20 20 20 20 41 4E 44 20 25 .. AND %
000160: 30 30 31 31 31 31 31 31 20 20 20 3B 49 67 6E 6F 00111111 ;Igno
000170: 72 65 72 20 45 50 20 48 44 20 71 75 69 20 6E 65 rer EP HD qui ne
000180: 20 73 6F 6E 74 20 70 61 73 20 64 65 20 76 72 61 sont pas de vra
000190: 69 65 73 20 65 72 72 65 75 72 73 0D 0A 20 20 20 ies erreurs..
0001A0: 20 20 20 20 20 20 4A 52 20 4E 5A 2C 42 41 44 53 JR NZ,BADS
0001B0: 45 43 20 20 20 20 3B 53 69 20 70 61 73 20 4F 4B EC ;Si pas OK
0001C0: 20 2C 20 6C 61 69 73 73 65 72 20 23 46 46 20 64 , laisser #FF d
0001D0: 61 6E 73 20 43 20 70 6F 75 72 20 6D 61 72 71 75 ans C pour marqu
0001E0: 65 72 20 6C 65 20 66 61 69 74 0D 0A 20 20 20 20 er le fait..
0001F0: 20 20 20 20 20 4C 44 20 43 2C 28 48 4C 29 20 20 LD C,(HL)
Size : 512 (Real : 512)
000000: 20 20 20 20 20 3B 53 69 20 4F 4B 20 72 61 6E 67 ;Si OK rang
000010: 65 72 20 6C 27 6F 63 74 65 74 20 4C 45 4E 53 45 er l'octet LENSE
000020: 43 20 64 61 6E 73 20 6C 61 20 6C 69 73 74 65 0D C dans la liste.
000030: 0A 20 42 41 44 53 45 43 20 20 4C 44 20 28 49 58 . BADSEC LD (IX
000040: 2B 30 29 2C 43 0D 0A 20 20 20 20 20 20 20 20 20 +0),C..
000050: 49 4E 43 20 48 4C 20 20 20 20 20 20 20 20 20 20 INC HL
000060: 3B 41 76 61 6E 63 65 72 20 64 65 20 34 20 6F 63 ;Avancer de 4 oc
000070: 74 65 74 73 20 70 6F 75 72 20 70 6F 69 6E 74 65 tets pour pointe
000080: 72 20 70 72 6F 63 68 61 69 6E 20 49 44 20 4C 45 r prochain ID LE
000090: 4E 0D 0A 20 20 20 20 20 20 20 20 20 49 4E 43 20 N.. INC
0000A0: 48 4C 0D 0A 20 20 20 20 20 20 20 20 20 49 4E 43 HL.. INC
0000B0: 20 48 4C 0D 0A 20 20 20 20 20 20 20 20 20 49 4E HL.. IN
0000C0: 43 20 48 4C 0D 0A 20 20 20 20 20 20 20 20 20 49 C HL.. I
0000D0: 4E 43 20 44 45 20 20 20 20 20 20 20 20 20 20 3B NC DE ;
0000E0: 41 76 61 6E 63 65 72 20 64 61 6E 73 20 6C 61 20 Avancer dans la
0000F0: 6C 69 73 74 65 20 64 65 73 20 65 72 72 65 75 72 liste des erreur
000100: 73 0D 0A 20 20 20 20 20 20 20 20 20 49 4E 43 20 s.. INC
000110: 49 58 20 20 20 20 20 20 20 20 20 20 3B 45 74 20 IX ;Et
000120: 64 61 6E 73 20 6C 61 20 6C 69 73 74 65 20 4C 45 dans la liste LE
000130: 4E 53 45 43 20 65 6E 20 63 6F 75 72 73 20 64 65 NSEC en cours de
000140: 20 63 72 7B 61 74 69 6F 6E 0D 0A 20 20 20 20 20 cr{ation..
000150: 20 20 20 20 44 4A 4E 5A 20 52 41 4E 47 45 4F 4B DJNZ RANGEOK
000160: 0D 0A 20 20 20 20 20 20 20 20 20 50 4F 50 20 42 .. POP B
000170: 43 20 20 20 20 20 20 20 20 20 20 3B 52 65 70 72 C ;Repr
000180: 65 6E 64 72 65 20 4E 42 53 45 43 0D 0A 20 3B 0D endre NBSEC.. ;.
000190: 0A 20 20 20 20 20 49 63 69 20 76 69 65 6E 74 20 . Ici vient
0001A0: 64 27 65 08 5E 74 72 65 20 20 63 72 7B 65 20 20 d'e.^tre cr{e
0001B0: 75 6E 65 20 20 6C 69 73 74 65 20 20 64 65 20 20 une liste de
0001C0: 74 6F 75 74 65 73 20 20 6C 65 73 20 20 6C 6F 6E toutes les lon
0001D0: 67 75 65 75 72 73 20 64 65 20 73 65 63 74 65 75 gueurs de secteu
0001E0: 72 0D 0A 20 66 69 67 75 72 61 6E 74 20 73 75 72 r.. figurant sur
0001F0: 20 6C 61 20 70 69 73 74 65 20 2E 20 4C 65 73 20 la piste . Les
Size : 512 (Real : 512)
000000: 73 65 63 74 65 75 72 73 20 6E 6F 6E 20 20 4F 4B secteurs non OK
000010: 20 20 6E 65 20 70 6F 75 76 61 6E 74 20 65 08 5E ne pouvant e.^
000020: 74 72 65 20 7B 63 72 69 74 73 20 2C 20 69 6C 73 tre {crits , ils
000030: 20 6E 65 0D 0A 20 70 65 75 76 65 6E 74 20 70 61 ne.. peuvent pa
000040: 73 20 65 6E 20 7B 63 72 61 73 65 72 20 75 6E 20 s en {craser un
000050: 61 75 74 72 65 20 2E 20 20 4C 65 75 72 20 20 65 autre . Leur e
000060: 6D 70 6C 61 63 65 6D 65 6E 74 20 64 61 6E 73 20 mplacement dans
000070: 6C 61 20 6C 69 73 74 65 20 65 73 74 20 6D 61 72 la liste est mar
000080: 71 75 7B 0D 0A 20 70 61 72 20 75 6E 20 23 46 46 qu{.. par un #FF
000090: 20 71 75 69 20 6E 65 20 72 69 73 71 75 65 20 70 qui ne risque p
0000A0: 61 73 20 64 27 65 08 5E 74 72 65 20 63 6F 6E 66 as d'e.^tre conf
0000B0: 6F 6E 64 75 20 61 76 65 63 20 75 6E 20 6C 6F 6E ondu avec un lon
0000C0: 67 75 65 75 72 20 2E 0D 0A 20 0D 0A 20 20 20 20 gueur ... ..
0000D0: 20 4C 65 20 63 6F 6E 74 65 6E 75 20 64 65 20 6C Le contenu de l
0000E0: 61 20 6C 69 73 74 65 20 20 70 6F 75 72 72 61 69 a liste pourrai
0000F0: 74 20 20 72 65 73 73 65 6D 62 6C 65 72 20 40 20 t ressembler @
000100: 63 65 63 69 20 3A 20 30 2C 32 2C 32 2C 32 2C 32 ceci : 0,2,2,2,2
000110: 2C 23 46 46 2C 32 2C 32 2C 32 0D 0A 20 6F 7C 20 ,#FF,2,2,2.. o|
000120: 31 20 73 65 63 74 65 75 72 20 64 65 20 74 61 69 1 secteur de tai
000130: 6C 6C 65 20 30 20 65 73 74 20 4F 4B 20 2C 20 37 lle 0 est OK , 7
000140: 20 73 65 63 74 65 75 72 73 20 64 65 20 74 61 69 secteurs de tai
000150: 6C 6C 65 20 32 20 7B 63 72 61 73 65 6E 74 20 75 lle 2 {crasent u
000160: 6E 20 6E 6F 6D 62 72 65 20 58 0D 0A 20 64 65 20 n nombre X.. de
000170: 73 65 63 74 65 75 72 73 20 65 74 20 6C 65 20 36 secteurs et le 6
000180: 7D 6D 65 20 73 65 63 74 65 75 72 20 20 64 65 20 }me secteur de
000190: 20 6C 61 20 20 70 69 73 74 65 20 72 65 6E 76 6F la piste renvo
0001A0: 79 61 6E 74 20 75 6E 65 20 65 72 72 65 75 72 20 yant une erreur
0001B0: 71 75 65 6C 63 6F 6E 71 75 65 0D 0A 20 64 6F 69 quelconque.. doi
0001C0: 74 20 65 08 5E 74 72 65 20 69 67 6E 6F 72 7B 20 t e.^tre ignor{
0001D0: 70 61 72 20 6C 65 20 70 72 6F 67 72 61 6D 6D 65 par le programme
0001E0: 20 2E 0D 0A 20 0D 0A 20 20 20 20 20 43 65 63 69 ... .. Ceci
0001F0: 20 7B 74 61 6E 74 20 66 61 69 74 20 2C 20 69 6C {tant fait , il
Size : 512 (Real : 512)
000000: 20 66 61 75 74 20 65 6E 20 20 66 6F 6E 63 74 69 faut en foncti
000010: 6F 6E 20 20 64 65 20 20 6C 61 20 74 61 69 6C 6C on de la taill
000020: 65 20 72 65 63 6F 75 76 72 61 6E 74 65 20 2C 20 e recouvrante ,
000030: 64 65 20 6C 61 0D 0A 20 74 61 69 6C 6C 65 20 40 de la.. taille @
000040: 20 72 65 63 6F 75 76 72 69 72 20 28 56 72 61 69 recouvrir (Vrai
000050: 65 20 74 61 69 6C 6C 65 20 64 65 20 20 66 6F 72 e taille de for
000060: 6D 61 74 61 67 65 29 20 20 65 74 20 20 64 65 20 matage) et de
000070: 20 6C 61 20 6C 6F 6E 67 75 65 75 72 20 64 75 20 la longueur du
000080: 47 41 50 20 2C 0D 0A 20 64 7B 74 65 72 6D 69 6E GAP ,.. d{termin
000090: 65 72 20 6C 65 20 6E 6F 6D 62 72 65 20 64 65 20 er le nombre de
0000A0: 73 65 63 74 65 75 72 73 20 40 20 61 6A 6F 75 74 secteurs @ ajout
0000B0: 65 72 20 20 40 20 6E 6F 74 72 65 20 66 6F 72 6D er @ notre form
0000C0: 61 74 61 67 65 20 2E 20 43 65 63 69 20 65 73 74 atage . Ceci est
0000D0: 20 66 61 69 74 0D 0A 20 40 20 6C 27 61 69 64 65 fait.. @ l'aide
0000E0: 20 64 65 20 74 61 62 6C 65 73 20 70 6F 75 72 20 de tables pour
0000F0: 6C 65 73 20 20 47 41 50 53 20 20 2C 20 20 64 27 les GAPS , d'
000100: 75 6E 65 20 20 63 61 73 63 61 64 65 20 64 65 20 une cascade de
000110: 63 6F 6D 70 61 72 61 69 73 6F 6E 73 20 70 6F 75 comparaisons pou
000120: 72 20 6C 65 73 0D 0A 20 6C 6F 6E 67 75 65 75 72 r les.. longueur
000130: 73 20 65 74 20 64 27 75 6E 65 20 20 62 6F 6E 6E s et d'une bonn
000140: 65 20 20 62 72 6F 75 65 74 74 65 20 20 64 65 20 e brouette de
000150: 20 70 6F 69 6E 74 65 75 72 73 20 20 64 69 76 65 pointeurs dive
000160: 72 73 20 20 70 6F 75 72 20 20 67 7B 72 65 72 20 rs pour g{rer
000170: 63 65 74 74 65 0D 0A 20 70 61 6E 69 71 75 65 20 cette.. panique
000180: 2E 0D 0A 20 20 20 20 20 51 75 65 6C 71 75 65 20 ... Quelque
000190: 73 6F 69 74 20 6C 61 20 74 61 69 6C 6C 65 20 40 soit la taille @
0001A0: 20 7B 63 72 61 73 65 72 20 2C 20 6C 65 20 70 72 {craser , le pr
0001B0: 69 6E 63 69 70 65 20 65 73 74 20 6C 65 20 6D 65 incipe est le me
0001C0: 08 5E 6D 65 20 2E 20 53 65 75 6C 65 20 6C 65 20 .^me . Seule le
0001D0: 63 61 73 0D 0A 20 64 65 20 6C 61 20 74 61 69 6C cas.. de la tail
0001E0: 6C 65 20 30 20 65 73 74 20 63 6F 6D 6D 65 6E 74 le 0 est comment
0001F0: 7B 20 2E 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 { ... ;..
Size : 512 (Real : 512)
000000: 20 20 4C 44 20 49 59 2C 49 44 4F 55 54 44 52 41 LD IY,IDOUTDRA
000010: 20 20 3B 4C 69 73 74 65 20 64 65 73 20 49 44 53 ;Liste des IDS
000020: 20 41 20 45 43 52 49 52 45 20 4C 4F 52 53 20 44 A ECRIRE LORS D
000030: 45 20 4C 41 20 52 45 50 52 4F 44 55 43 54 49 4F E LA REPRODUCTIO
000040: 4E 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 49 N.. LD I
000050: 58 2C 49 44 49 4E 44 52 41 20 20 20 3B 4C 69 73 X,IDINDRA ;Lis
000060: 74 65 20 64 65 73 20 49 44 53 20 4C 55 53 20 53 te des IDS LUS S
000070: 55 52 20 4C 41 20 56 45 52 53 49 4F 4E 20 44 27 UR LA VERSION D'
000080: 4F 52 49 47 49 4E 45 0D 0A 20 20 20 20 20 20 20 ORIGINE..
000090: 20 20 4C 44 20 44 45 2C 4C 49 53 54 49 44 53 20 LD DE,LISTIDS
0000A0: 20 20 3B 4C 69 73 74 65 20 64 65 73 20 6C 6F 6E ;Liste des lon
0000B0: 67 75 65 75 72 73 20 76 65 6E 61 6E 74 20 64 27 gueurs venant d'
0000C0: 65 74 72 65 20 63 72 65 65 65 0D 0A 20 3B 0D 0A etre creee.. ;..
0000D0: 20 20 20 20 20 20 20 20 20 4C 44 20 41 2C 28 4C LD A,(L
0000E0: 4D 49 4E 29 20 20 20 20 20 3B 4F 6E 20 70 72 65 MIN) ;On pre
0000F0: 6E 64 20 4C 4D 49 4E 20 63 6F 6D 6D 65 20 76 72 nd LMIN comme vr
000100: 61 69 65 20 6C 6F 6E 67 75 65 75 72 0D 0A 20 20 aie longueur..
000110: 20 20 20 20 20 20 20 43 50 20 23 46 46 20 20 20 CP #FF
000120: 20 20 20 20 20 20 20 3B 45 73 74 20 70 65 75 74 ;Est peut
000130: 2D 65 74 72 65 20 65 6E 63 6F 72 65 20 61 20 23 -etre encore a #
000140: 46 46 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 20 FF.. JR
000150: 4E 5A 2C 58 58 58 58 0D 0A 20 20 20 20 20 20 20 NZ,XXXX..
000160: 20 20 49 4E 43 20 41 20 20 20 20 20 20 20 20 20 INC A
000170: 20 20 3B 53 69 20 6F 75 69 20 63 27 65 73 74 20 ;Si oui c'est
000180: 30 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 0.. LD (
000190: 4C 4D 49 4E 29 2C 41 20 20 20 20 20 3B 45 74 20 LMIN),A ;Et
0001A0: 63 65 74 74 65 20 66 6F 69 73 20 63 27 65 73 74 cette fois c'est
0001B0: 20 64 65 66 69 6E 69 74 69 66 20 21 0D 0A 20 58 definitif !.. X
0001C0: 58 58 58 20 20 20 20 4C 44 20 28 4C 45 4E 53 45 XXX LD (LENSE
0001D0: 43 29 2C 41 20 20 20 3B 45 74 20 61 75 73 73 69 C),A ;Et aussi
0001E0: 20 6C 61 20 76 72 61 69 65 20 74 61 69 6C 6C 65 la vraie taille
0001F0: 20 64 75 20 66 6F 72 6D 61 74 20 64 27 6F 72 69 du format d'ori
Size : 512 (Real : 512)
000000: 67 69 6E 65 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 gine.. ;..
000010: 20 20 20 4F 52 20 41 0D 0A 20 20 20 20 20 20 20 OR A..
000020: 20 20 4A 52 20 5A 2C 45 43 52 41 30 20 20 20 20 JR Z,ECRA0
000030: 20 20 3B 45 63 72 61 73 65 72 20 74 61 69 6C 6C ;Ecraser taill
000040: 65 20 30 0D 0A 20 20 20 20 20 20 20 20 20 44 45 e 0.. DE
000050: 43 20 41 0D 0A 20 20 20 20 20 20 20 20 20 4A 50 C A.. JP
000060: 20 5A 2C 45 43 52 41 31 20 20 20 20 20 20 3B 45 Z,ECRA1 ;E
000070: 63 72 61 73 65 72 20 74 61 69 6C 6C 65 20 31 0D craser taille 1.
000080: 0A 20 20 20 20 20 20 20 20 20 44 45 43 20 41 0D . DEC A.
000090: 0A 20 20 20 20 20 20 20 20 20 4A 50 20 5A 2C 45 . JP Z,E
0000A0: 43 52 41 32 20 20 20 20 20 20 3B 45 63 72 61 73 CRA2 ;Ecras
0000B0: 65 72 20 74 61 69 6C 6C 65 20 32 0D 0A 20 20 20 er taille 2..
0000C0: 20 20 20 20 20 20 44 45 43 20 41 0D 0A 20 20 20 DEC A..
0000D0: 20 20 20 20 20 20 4A 50 20 5A 2C 45 43 52 41 33 JP Z,ECRA3
0000E0: 20 20 20 20 20 20 3B 45 63 72 61 73 65 72 20 74 ;Ecraser t
0000F0: 61 69 6C 6C 65 20 33 0D 0A 20 3B 0D 0A 20 52 45 aille 3.. ;.. RE
000100: 54 20 20 20 20 20 3B 4E 65 20 64 65 76 72 61 69 T ;Ne devrai
000110: 74 20 6A 61 6D 61 69 73 20 70 61 73 73 65 72 20 t jamais passer
000120: 69 63 69 20 28 49 6C 20 20 66 61 75 74 20 75 6E ici (Il faut un
000130: 20 74 61 69 6C 6C 65 20 35 20 70 6F 75 72 20 7B taille 5 pour {
000140: 63 72 61 73 65 72 20 75 6E 65 0D 0A 20 74 61 69 craser une.. tai
000150: 6C 6C 65 20 34 20 65 74 20 64 61 6E 73 20 63 65 lle 4 et dans ce
000160: 20 63 61 73 20 69 6C 20 6E 27 79 20 40 20 70 6C cas il n'y @ pl
000170: 75 73 20 71 75 27 75 6E 20 73 65 63 74 65 75 72 us qu'un secteur
000180: 20 54 35 20 2E 20 43 27 65 73 74 20 64 6F 6E 63 T5 . C'est donc
000190: 20 69 6E 75 74 69 6C 65 2C 0D 0A 20 71 75 61 6E inutile,.. quan
0001A0: 64 20 40 20 7B 63 72 61 73 65 72 20 75 6E 20 73 d @ {craser un s
0001B0: 65 63 74 65 75 72 20 64 65 20 74 61 69 6C 6C 65 ecteur de taille
0001C0: 20 35 20 2C 20 40 20 6C 61 20 62 6F 6E 6E 65 20 5 , @ la bonne
0001D0: 76 6F 74 72 65 20 21 29 0D 0A 20 3B 0D 0A 20 3B votre !).. ;.. ;
0001E0: 2D 20 45 43 52 41 53 45 52 20 54 41 49 4C 4C 45 - ECRASER TAILLE
0001F0: 20 30 20 2D 0D 0A 20 3B 0D 0A 20 45 43 52 41 30 0 -.. ;.. ECRA0
Size : 512 (Real : 512)
000000: 20 20 20 4C 44 20 41 2C 28 44 45 29 20 20 20 3B LD A,(DE) ;
000010: 4C 6F 6E 67 75 65 75 72 20 64 75 20 73 65 63 74 Longueur du sect
000020: 65 75 72 20 72 65 63 6F 70 69 7B 65 20 64 61 6E eur recopi{e dan
000030: 73 20 6C 61 20 6C 69 73 74 65 20 70 72 6F 76 69 s la liste provi
000040: 73 6F 69 72 65 0D 0A 20 20 20 20 20 20 20 20 20 soire..
000050: 4F 52 20 41 20 20 20 20 20 20 20 20 3B 45 73 74 OR A ;Est
000060: 2D 63 65 20 30 20 3F 0D 0A 20 20 20 20 20 20 20 -ce 0 ?..
000070: 20 20 4A 52 20 5A 2C 52 45 43 4F 50 30 20 3B 4F JR Z,RECOP0 ;O
000080: 75 69 20 64 6F 6E 63 20 74 61 69 6C 6C 65 20 69 ui donc taille i
000090: 64 65 6E 74 69 71 75 65 20 2E 20 50 61 73 20 64 dentique . Pas d
0000A0: 65 20 63 68 61 6E 67 65 6D 65 6E 74 0D 0A 20 20 e changement..
0000B0: 20 20 20 20 20 20 20 43 50 20 23 46 46 20 20 20 CP #FF
0000C0: 20 20 20 3B 45 73 74 2D 63 65 20 75 6E 20 73 65 ;Est-ce un se
0000D0: 63 74 65 75 72 20 65 6E 20 65 72 72 65 75 72 20 cteur en erreur
0000E0: 3F 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 20 5A ?.. JR Z
0000F0: 2C 52 45 43 4F 50 30 20 3B 4F 75 69 20 2C 20 69 ,RECOP0 ;Oui , i
000100: 6C 20 6E 27 65 73 74 20 70 61 73 20 61 20 65 63 l n'est pas a ec
000110: 72 69 72 65 20 2E 20 50 61 73 20 64 65 20 63 68 rire . Pas de ch
000120: 61 6E 67 65 6D 65 6E 74 0D 0A 20 3B 0D 0A 20 20 angement.. ;..
000130: 20 20 20 20 20 20 20 44 45 43 20 41 20 20 20 20 DEC A
000140: 20 20 20 20 3B 45 73 74 20 70 6C 75 73 20 67 72 ;Est plus gr
000150: 61 6E 64 20 45 54 20 61 20 65 63 72 69 72 65 20 and ET a ecrire
000160: 2E 20 4F 6E 20 63 68 61 6E 67 65 20 2E 0D 0A 20 . On change ...
000170: 20 20 20 20 20 20 20 20 4A 52 20 4E 5A 2C 50 41 JR NZ,PA
000180: 53 31 53 30 20 3B 45 73 74 2D 63 65 20 75 6E 65 S1S0 ;Est-ce une
000190: 20 74 61 69 6C 6C 65 20 31 20 3F 0D 0A 20 3B 0D taille 1 ?.. ;.
0001A0: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 41 2C 28 . LD A,(
0001B0: 47 41 50 46 4F 52 4D 29 20 3B 4F 75 69 20 2E 20 GAPFORM) ;Oui .
0001C0: 54 61 69 6C 6C 65 20 31 20 65 63 72 61 73 65 20 Taille 1 ecrase
0001D0: 20 54 61 69 6C 6C 65 20 30 20 2E 20 45 6E 63 6F Taille 0 . Enco
0001E0: 72 65 20 66 61 75 74 2D 69 6C 0D 0A 20 20 20 20 re faut-il..
0001F0: 20 20 20 20 20 43 50 20 23 37 37 20 20 20 20 20 CP #77
Size : 512 (Real : 512)
000000: 20 20 20 20 3B 73 61 76 6F 69 72 20 63 6F 6D 62 ;savoir comb
000010: 69 65 6E 20 6F 6E 20 65 6E 20 65 63 72 61 73 65 ien on en ecrase
000020: 20 21 20 49 63 69 20 2C 20 73 69 20 6C 65 20 47 ! Ici , si le G
000030: 41 50 20 65 73 74 0D 0A 20 20 20 20 20 20 20 20 AP est..
000040: 20 4A 52 20 4E 43 2C 52 45 43 4F 50 30 20 20 20 JR NC,RECOP0
000050: 3B 70 6C 75 73 20 67 72 61 6E 64 20 71 75 65 20 ;plus grand que
000060: 23 37 36 20 2C 20 69 6C 20 73 27 69 6E 74 65 72 #76 , il s'inter
000070: 63 61 6C 65 20 73 61 6E 73 20 74 6F 75 63 68 65 cale sans touche
000080: 72 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 43 r.. LD C
000090: 2C 31 20 20 20 20 20 20 20 20 20 3B 61 75 20 73 ,1 ;au s
0000A0: 75 69 76 61 6E 74 20 20 2E 20 20 53 69 6E 6F 6E uivant . Sinon
0000B0: 20 20 69 6C 20 20 66 61 75 74 20 20 61 6A 6F 75 il faut ajou
0000C0: 74 65 72 20 20 61 75 20 6E 6F 6D 62 72 65 0D 0A ter au nombre..
0000D0: 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 50 4C CALL PL
0000E0: 55 53 49 44 53 20 20 20 3B 74 6F 74 61 6C 20 64 USIDS ;total d
0000F0: 65 20 73 65 63 74 65 75 72 73 20 63 65 6C 75 69 e secteurs celui
000100: 20 71 75 69 20 73 65 72 61 20 65 63 72 61 73 65 qui sera ecrase
000110: 20 6C 6F 72 73 20 64 65 0D 0A 20 20 20 20 20 20 lors de..
000120: 20 20 20 4A 52 20 45 43 52 41 30 41 20 20 20 20 JR ECRA0A
000130: 20 20 3B 6C 27 65 63 72 69 74 75 72 65 20 65 74 ;l'ecriture et
000140: 20 6F 6E 20 76 61 20 74 65 73 74 65 72 20 6C 65 on va tester le
000150: 20 73 75 69 76 61 6E 74 0D 0A 20 3B 0D 0A 20 50 suivant.. ;.. P
000160: 41 53 31 53 30 20 20 44 45 43 20 41 20 20 20 20 AS1S0 DEC A
000170: 20 20 20 20 20 20 3B 50 61 73 20 74 61 69 6C 6C ;Pas taill
000180: 65 20 31 20 2E 20 45 73 74 2D 63 65 20 74 61 69 e 1 . Est-ce tai
000190: 6C 6C 65 20 32 20 3F 0D 0A 20 20 20 20 20 20 20 lle 2 ?..
0001A0: 20 20 4A 52 20 4E 5A 2C 50 41 53 32 53 30 20 20 JR NZ,PAS2S0
0001B0: 20 3B 4E 6F 6E 20 2E 0D 0A 20 3B 0D 0A 20 20 20 ;Non ... ;..
0001C0: 20 20 20 20 20 20 4C 44 20 48 4C 2C 54 42 30 32 LD HL,TB02
0001D0: 20 20 20 20 3B 4F 75 69 20 2E 20 54 61 69 6C 6C ;Oui . Taill
0001E0: 65 20 32 20 73 75 72 20 74 61 69 6C 6C 65 20 30 e 2 sur taille 0
0001F0: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 43 2C .. LD C,
Size : 512 (Real : 512)
000000: 31 20 20 20 20 20 20 20 20 3B 4C 61 20 6D 65 6D 1 ;La mem
000010: 65 20 63 75 69 73 69 6E 65 20 71 75 65 20 70 72 e cuisine que pr
000020: 65 63 65 64 65 6D 65 6E 74 20 2C 20 6D 61 69 73 ecedement , mais
000030: 20 63 6F 6D 6D 65 20 69 6C 20 79 2D 61 0D 0A 20 comme il y-a..
000040: 20 20 20 20 20 20 20 20 43 41 4C 4C 20 46 47 41 CALL FGA
000050: 50 54 42 20 20 20 3B 70 6C 75 73 20 64 65 20 70 PTB ;plus de p
000060: 6F 73 73 69 62 69 6C 69 74 65 73 20 6F 6E 20 6D ossibilites on m
000070: 65 74 20 6C 65 20 6E 6F 6D 62 72 65 20 6D 69 6E et le nombre min
000080: 69 6D 75 6D 20 64 65 0D 0A 20 20 20 20 20 20 20 imum de..
000090: 20 20 4A 52 20 45 43 52 41 30 41 20 20 20 20 20 JR ECRA0A
0000A0: 3B 73 65 63 74 65 75 72 73 20 61 20 65 63 72 61 ;secteurs a ecra
0000B0: 73 65 72 20 64 61 6E 73 20 43 20 65 74 20 6F 6E ser dans C et on
0000C0: 20 75 74 69 6C 69 73 65 20 75 6E 65 20 74 61 62 utilise une tab
0000D0: 6C 65 0D 0A 20 3B 0D 0A 20 50 41 53 32 53 30 20 le.. ;.. PAS2S0
0000E0: 20 44 45 43 20 41 20 20 20 20 20 20 20 20 20 3B DEC A ;
0000F0: 54 61 69 6C 6C 65 20 33 20 3F 0D 0A 20 20 20 20 Taille 3 ?..
000100: 20 20 20 20 20 4A 52 20 4E 5A 2C 50 41 53 33 53 JR NZ,PAS3S
000110: 30 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 0.. ;..
000120: 4C 44 20 48 4C 2C 54 42 30 33 20 20 20 20 3B 4F LD HL,TB03 ;O
000130: 75 69 20 54 33 20 73 75 72 20 54 30 0D 0A 20 20 ui T3 sur T0..
000140: 20 20 20 20 20 20 20 4C 44 20 43 2C 32 20 20 20 LD C,2
000150: 20 20 20 20 20 3B 65 74 20 63 61 20 63 6F 6E 74 ;et ca cont
000160: 69 6E 75 65 20 74 61 6E 74 20 71 75 65 20 74 6F inue tant que to
000170: 75 74 65 73 20 6C 65 73 20 63 6F 6D 62 69 6E 61 utes les combina
000180: 69 73 6F 6E 73 0D 0A 20 20 20 20 20 20 20 20 20 isons..
000190: 43 41 4C 4C 20 46 47 41 50 54 42 20 20 20 3B 70 CALL FGAPTB ;p
0001A0: 6F 73 73 69 62 6C 65 73 20 6E 65 20 73 6F 6E 74 ossibles ne sont
0001B0: 20 70 61 73 20 65 70 75 69 73 65 65 73 20 2E 0D pas epuisees ..
0001C0: 0A 20 20 20 20 20 20 20 20 20 4A 52 20 45 43 52 . JR ECR
0001D0: 41 30 41 0D 0A 20 3B 0D 0A 20 50 41 53 33 53 30 A0A.. ;.. PAS3S0
0001E0: 20 20 44 45 43 20 41 0D 0A 20 20 20 20 20 20 20 DEC A..
0001F0: 20 20 4A 52 20 4E 5A 2C 50 41 53 34 53 30 0D 0A JR NZ,PAS4S0..
Size : 512 (Real : 512)
000000: 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 ;.. LD
000010: 48 4C 2C 54 42 30 34 20 20 20 3B 54 34 20 73 75 HL,TB04 ;T4 su
000020: 72 20 54 30 0D 0A 20 20 20 20 20 20 20 20 20 4C r T0.. L
000030: 44 20 43 2C 34 0D 0A 20 20 20 20 20 20 20 20 20 D C,4..
000040: 43 41 4C 4C 20 46 47 41 50 54 42 0D 0A 20 20 20 CALL FGAPTB..
000050: 20 20 20 20 20 20 4A 52 20 45 43 52 41 30 41 0D JR ECRA0A.
000060: 0A 20 3B 0D 0A 20 50 41 53 34 53 30 20 20 4C 44 . ;.. PAS4S0 LD
000070: 20 48 4C 2C 54 42 30 35 0D 0A 20 20 20 20 20 20 HL,TB05..
000080: 20 20 20 4C 44 20 43 2C 39 0D 0A 20 20 20 20 20 LD C,9..
000090: 20 20 20 20 43 41 4C 4C 20 46 47 41 50 54 42 0D CALL FGAPTB.
0000A0: 0A 20 20 20 20 20 20 20 20 20 4A 52 20 45 43 52 . JR ECR
0000B0: 41 30 41 0D 0A 20 3B 0D 0A 20 52 45 43 4F 50 30 A0A.. ;.. RECOP0
0000C0: 20 20 43 41 4C 4C 20 43 4F 50 34 49 44 20 3B 4C CALL COP4ID ;L
0000D0: 65 20 73 65 63 74 65 75 72 20 65 6E 20 63 6F 75 e secteur en cou
0000E0: 72 73 20 6E 27 65 63 72 61 73 65 20 72 69 65 6E rs n'ecrase rien
0000F0: 20 65 74 20 65 73 74 20 72 65 63 6F 70 69 65 20 et est recopie
000100: 2E 0D 0A 20 3B 0D 0A 20 45 43 52 41 30 41 20 20 ... ;.. ECRA0A
000110: 49 4E 43 20 44 45 20 20 20 20 20 20 3B 4C 65 73 INC DE ;Les
000120: 20 73 65 63 74 65 75 72 73 20 61 20 65 63 72 61 secteurs a ecra
000130: 73 65 73 20 6F 6E 74 20 65 74 65 20 70 72 69 73 ses ont ete pris
000140: 20 65 6E 20 63 6F 6D 70 74 65 20 65 74 0D 0A 20 en compte et..
000150: 20 20 20 20 20 20 20 20 44 4A 4E 5A 20 45 43 52 DJNZ ECR
000160: 41 30 20 20 3B 6F 6E 20 63 6F 6E 74 69 6E 75 65 A0 ;on continue
000170: 0D 0A 20 20 20 20 20 20 20 20 20 4A 50 20 45 58 .. JP EX
000180: 49 45 43 52 41 0D 0A 20 3B 0D 0A 20 3B 2D 20 45 IECRA.. ;.. ;- E
000190: 43 52 41 53 45 52 20 54 41 49 4C 4C 45 20 31 20 CRASER TAILLE 1
0001A0: 2D 0D 0A 20 3B 0D 0A 20 45 43 52 41 31 20 20 20 -.. ;.. ECRA1
0001B0: 4C 44 20 41 2C 28 44 45 29 20 20 20 3B 4E 4F 20 LD A,(DE) ;NO
0001C0: 43 4F 4D 4D 45 4E 54 20 2C 20 41 56 41 4E 43 45 COMMENT , AVANCE
0001D0: 5A 20 44 41 4E 53 20 4C 45 20 54 45 58 54 45 20 Z DANS LE TEXTE
0001E0: 4A 55 53 51 55 27 41 55 20 50 4F 49 4E 54 0D 0A JUSQU'AU POINT..
0001F0: 20 20 20 20 20 20 20 20 20 43 50 20 32 20 20 20 CP 2
Size : 512 (Real : 512)
000000: 20 20 20 20 20 3B 53 54 52 41 54 45 47 49 51 55 ;STRATEGIQU
000010: 45 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 20 43 E.. JR C
000020: 2C 52 45 43 4F 50 31 0D 0A 20 20 20 20 20 20 20 ,RECOP1..
000030: 20 20 43 50 20 23 46 46 0D 0A 20 20 20 20 20 20 CP #FF..
000040: 20 20 20 4A 52 20 5A 2C 52 45 43 4F 50 31 0D 0A JR Z,RECOP1..
000050: 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 44 45 43 ;.. DEC
000060: 20 41 0D 0A 20 20 20 20 20 20 20 20 20 44 45 43 A.. DEC
000070: 20 41 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 20 A.. JR
000080: 4E 5A 2C 50 41 53 32 53 31 0D 0A 20 3B 0D 0A 20 NZ,PAS2S1.. ;..
000090: 20 20 20 20 20 20 20 20 4C 44 20 41 2C 28 47 41 LD A,(GA
0000A0: 50 46 4F 52 4D 29 0D 0A 20 20 20 20 20 20 20 20 PFORM)..
0000B0: 20 43 50 20 23 46 41 0D 0A 20 20 20 20 20 20 20 CP #FA..
0000C0: 20 20 4A 52 20 4E 43 2C 52 45 43 4F 50 31 0D 0A JR NC,RECOP1..
0000D0: 20 20 20 20 20 20 20 20 20 4C 44 20 43 2C 31 0D LD C,1.
0000E0: 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 50 . CALL P
0000F0: 4C 55 53 49 44 53 0D 0A 20 20 20 20 20 20 20 20 LUSIDS..
000100: 20 4A 52 20 45 43 52 41 31 41 0D 0A 20 3B 0D 0A JR ECRA1A.. ;..
000110: 20 50 41 53 32 53 31 20 20 44 45 43 20 41 0D 0A PAS2S1 DEC A..
000120: 20 20 20 20 20 20 20 20 20 4A 52 20 4E 5A 2C 50 JR NZ,P
000130: 41 53 33 53 31 0D 0A 20 3B 0D 0A 20 20 20 20 20 AS3S1.. ;..
000140: 20 20 20 20 4C 44 20 48 4C 2C 54 42 31 33 0D 0A LD HL,TB13..
000150: 20 20 20 20 20 20 20 20 20 4C 44 20 43 2C 31 0D LD C,1.
000160: 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 46 . CALL F
000170: 47 41 50 54 42 0D 0A 20 20 20 20 20 20 20 20 20 GAPTB..
000180: 4A 52 20 45 43 52 41 31 41 0D 0A 20 3B 0D 0A 20 JR ECRA1A.. ;..
000190: 50 41 53 33 53 31 20 20 44 45 43 20 41 20 20 20 PAS3S1 DEC A
0001A0: 20 20 20 20 20 20 20 20 3B 41 56 41 4E 43 45 5A ;AVANCEZ
0001B0: 20 45 4E 43 4F 52 45 20 2E 2E 2E 2E 0D 0A 20 20 ENCORE ......
0001C0: 20 20 20 20 20 20 20 4A 52 20 4E 5A 2C 50 41 53 JR NZ,PAS
0001D0: 34 53 31 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 4S1.. ;..
0001E0: 20 20 4C 44 20 48 4C 2C 54 42 31 34 0D 0A 20 20 LD HL,TB14..
0001F0: 20 20 20 20 20 20 20 4C 44 20 43 2C 33 0D 0A 20 LD C,3..
Size : 512 (Real : 512)
000000: 20 71 75 27 75 6E 20 73 65 75 6C 20 73 65 63 74 qu'un seul sect
000010: 65 75 72 0D 0A 20 20 20 20 20 20 20 20 20 4A 50 eur.. JP
000020: 20 43 2C 50 49 46 4F 4D 45 54 52 20 3B 66 69 78 C,PIFOMETR ;fix
000030: 65 72 20 61 75 20 70 69 66 20 2E 2E 2E 0D 0A 20 er au pif .....
000040: 3B 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 48 ;.. LD H
000050: 4C 2C 54 5A 4D 41 4D 20 20 20 3B 54 72 61 69 74 L,TZMAM ;Trait
000060: 65 72 20 4D 41 4D 20 65 6E 20 74 65 74 65 20 70 er MAM en tete p
000070: 61 72 20 72 65 63 68 65 72 63 68 65 20 43 52 43 ar recherche CRC
000080: 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 .. CALL
000090: 50 52 54 0D 0A 20 20 20 20 20 20 20 20 20 4A 50 PRT.. JP
0000A0: 20 53 4F 4C 55 54 49 4F 4E 32 0D 0A 20 3B 0D 0A SOLUTION2.. ;..
0000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000C0: 20 20 20 20 20 20 20 20 20 20 20 2D 2D 2D 2D 2D -----
0000D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0000E0: 2D 2D 2D 2D 0D 0A 20 0D 0A 20 20 20 20 20 50 6F ----.. .. Po
0000F0: 75 72 20 75 6E 20 62 72 65 66 20 69 6E 73 74 61 ur un bref insta
000100: 6E 74 20 6E 6F 75 73 20 72 65 74 6F 6D 62 6F 6E nt nous retombon
000110: 73 20 20 65 6E 20 20 27 74 65 72 72 61 65 20 63 s en 'terrae c
000120: 6F 67 6E 69 74 61 27 20 2E 20 43 65 74 74 65 20 ognita' . Cette
000130: 72 6F 75 74 69 6E 65 0D 0A 20 65 73 74 20 63 65 routine.. est ce
000140: 6C 6C 65 20 64 75 20 74 72 69 6D 65 73 74 72 65 lle du trimestre
000150: 20 64 65 72 6E 69 65 72 20 40 20 63 65 63 69 20 dernier @ ceci
000160: 70 72 7D 73 20 3A 20 53 69 20 6C 61 20 6C 6F 6E pr}s : Si la lon
000170: 67 75 65 75 72 20 64 75 20 47 41 50 20 65 78 63 gueur du GAP exc
000180: 7D 64 65 20 23 37 45 0D 0A 20 6C 69 72 65 20 70 }de #7E.. lire p
000190: 69 73 74 65 20 61 76 65 63 20 4C 45 4E 53 45 43 iste avec LENSEC
0001A0: 2B 31 20 69 67 6E 6F 72 65 20 6C 61 20 73 75 69 +1 ignore la sui
0001B0: 74 65 20 64 75 20 20 47 41 50 20 2E 20 50 6F 75 te du GAP . Pou
0001C0: 72 20 65 08 5E 74 72 65 20 74 72 61 6E 71 75 69 r e.^tre tranqui
0001D0: 6C 6C 65 73 20 2C 20 6F 6E 0D 0A 20 6C 69 74 20 lles , on.. lit
0001E0: 61 76 65 63 20 37 20 63 6F 6D 6D 65 20 69 6E 64 avec 7 comme ind
0001F0: 69 63 61 74 69 6F 6E 20 20 44 27 49 44 20 20 4C ication D'ID L
Size : 512 (Real : 512)
000000: 45 4E 20 20 2E 20 20 4C 61 20 20 73 74 72 75 63 EN . La struc
000010: 74 75 72 65 20 20 64 65 20 20 6C 61 20 62 6F 75 ture de la bou
000020: 63 6C 65 20 40 20 7B 74 7B 0D 0A 20 6D 6F 64 69 cle @ {t{.. modi
000030: 66 69 7B 65 20 70 6F 75 72 20 70 65 72 6D 65 74 fi{e pour permet
000040: 74 72 65 20 6C 27 61 70 70 65 6C 20 70 61 72 20 tre l'appel par
000050: 27 43 41 4C 4C 27 20 20 64 65 73 20 20 72 6F 75 'CALL' des rou
000060: 74 69 6E 65 73 20 61 6E 6E 65 78 65 73 20 2E 20 tines annexes .
000070: 43 6F 6D 6D 65 20 64 69 74 0D 0A 20 64 61 6E 73 Comme dit.. dans
000080: 20 6C 61 20 70 61 72 74 69 65 20 74 68 7B 6F 72 la partie th{or
000090: 69 65 20 2C 20 6C 61 20 72 7B 75 73 73 69 74 65 ie , la r{ussite
0000A0: 20 64 65 20 63 65 20 74 65 73 74 20 70 65 72 6D de ce test perm
0000B0: 65 74 20 64 27 61 66 66 69 72 6D 65 72 20 71 75 et d'affirmer qu
0000C0: 27 69 6C 20 6E 27 79 20 61 0D 0A 20 70 61 73 20 'il n'y a.. pas
0000D0: 65 75 20 7B 63 72 61 73 65 6D 65 6E 74 20 64 65 eu {crasement de
0000E0: 20 73 65 63 74 65 75 72 73 20 65 74 20 73 6F 6E secteurs et son
0000F0: 20 20 7B 63 68 65 63 20 61 66 66 69 72 6D 65 20 {chec affirme
000100: 6C 27 69 6E 76 65 72 73 65 20 65 74 20 71 75 65 l'inverse et que
000110: 20 74 6F 75 74 20 65 73 74 0D 0A 20 70 6F 73 73 tout est.. poss
000120: 69 62 6C 65 20 2E 20 53 69 20 6C 65 20 20 47 41 ible . Si le GA
000130: 50 20 20 72 65 6E 76 6F 79 7B 20 20 65 6E 20 20 P renvoy{ en
000140: 63 61 73 20 20 64 65 20 20 72 7B 75 73 73 69 74 cas de r{ussit
000150: 65 20 20 6E 27 65 73 74 20 20 70 61 73 20 20 23 e n'est pas #
000160: 34 45 20 6F 6E 20 65 73 74 0D 0A 20 71 75 61 73 4E on est.. quas
000170: 69 6D 65 6E 74 20 63 65 72 74 61 69 6E 20 20 71 iment certain q
000180: 75 27 75 6E 20 20 46 44 43 20 20 73 70 7B 63 69 u'un FDC sp{ci
000190: 61 6C 20 20 61 20 20 7B 74 7B 20 20 75 74 69 6C al a {t{ util
0001A0: 69 73 7B 20 20 2E 20 20 43 65 74 74 65 20 20 76 is{ . Cette v
0001B0: 65 72 73 69 6F 6E 20 64 75 0D 0A 20 70 72 6F 67 ersion du.. prog
0001C0: 72 61 6D 6D 65 20 73 65 20 63 6F 6E 74 65 6E 74 ramme se content
0001D0: 65 20 64 65 20 73 69 67 6E 61 6C 65 72 20 6C 65 e de signaler le
0001E0: 20 66 61 69 74 20 2E 20 20 53 69 20 20 6F 6E 20 fait . Si on
0001F0: 74 72 6F 75 76 65 20 75 6E 20 47 41 50 20 74 72 trouve un GAP tr
Size : 512 (Real : 512)
000000: 6F 70 20 6C 6F 6E 67 20 2C 0D 0A 20 71 75 65 6C op long ,.. quel
000010: 71 75 65 20 63 68 6F 73 65 20 6E 65 20 76 61 20 que chose ne va
000020: 70 61 73 20 65 74 20 6F 6E 20 61 6E 6E 6F 6E 63 pas et on annonc
000030: 65 20 20 6C 27 7B 63 68 65 63 20 64 65 20 6C 27 e l'{chec de l'
000040: 61 6E 61 6C 79 73 65 20 70 61 72 20 4A 45 43 4F analyse par JECO
000050: 49 4E 43 45 20 2E 20 4F 6E 0D 0A 20 63 6F 6E 63 INCE . On.. conc
000060: 6C 75 74 20 65 6E 20 65 73 73 61 79 61 6E 74 20 lut en essayant
000070: 64 65 20 74 72 6F 75 76 65 72 20 6C 27 6F 63 74 de trouver l'oct
000080: 65 74 20 20 64 65 20 20 66 6F 72 6D 61 74 61 67 et de formatag
000090: 65 20 28 66 69 6C 6C 29 20 64 61 6E 73 20 75 6E e (fill) dans un
0000A0: 20 7B 76 65 6E 74 75 65 6C 0D 0A 20 43 52 2F 44 {ventuel.. CR/D
0000B0: 44 20 2E 0D 0A 20 0D 0A 20 20 20 20 20 20 20 20 D ... ..
0000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000D0: 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ---------------
0000E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 -------------..
0000F0: 3B 0D 0A 20 53 4F 4C 55 54 49 4F 4E 31 20 4C 44 ;.. SOLUTION1 LD
000100: 20 48 4C 2C 54 46 47 41 50 20 20 20 3B 43 68 65 HL,TFGAP ;Che
000110: 72 63 68 65 72 20 76 72 61 69 65 20 4C 53 20 73 rcher vraie LS s
000120: 69 20 70 6F 73 73 69 62 6C 65 0D 0A 20 20 20 20 i possible..
000130: 20 20 20 20 20 43 41 4C 4C 20 50 52 54 0D 0A 20 CALL PRT..
000140: 20 20 20 20 20 20 20 20 4C 44 20 48 4C 2C 4C 49 LD HL,LI
000150: 54 46 44 43 32 0D 0A 20 20 20 20 20 20 20 20 20 TFDC2..
000160: 43 41 4C 4C 20 43 4F 4D 4C 49 50 49 20 20 20 20 CALL COMLIPI
000170: 3B 49 6E 69 74 69 61 6C 69 73 65 72 20 63 6F 6D ;Initialiser com
000180: 6D 61 6E 64 65 20 6C 69 72 65 20 70 69 73 74 65 mande lire piste
000190: 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 4C .. ;.. L
0001A0: 44 20 48 4C 2C 31 32 38 20 20 20 20 20 20 20 3B D HL,128 ;
0001B0: 4F 6E 20 63 6F 6D 6D 65 6E 63 65 20 61 75 20 70 On commence au p
0001C0: 6C 75 73 20 70 65 74 69 74 20 70 6F 73 73 69 62 lus petit possib
0001D0: 6C 65 0D 0A 20 20 20 20 20 20 20 20 20 58 4F 52 le.. XOR
0001E0: 20 41 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C A.. CAL
0001F0: 4C 20 52 41 4E 47 4C 4F 4E 20 20 20 20 3B 48 4C L RANGLON ;HL
Size : 512 (Real : 512)
000000: 20 64 61 6E 73 20 4C 4F 4E 47 53 45 43 20 2C 20 dans LONGSEC ,
000010: 41 20 64 61 6E 73 20 51 55 41 54 52 49 44 2B 33 A dans QUATRID+3
000020: 20 65 74 20 4C 45 4E 53 45 43 0D 0A 20 3B 0D 0A et LENSEC.. ;..
000030: 20 4E 45 58 54 4C 4F 4E 20 43 41 4C 4C 20 49 4E NEXTLON CALL IN
000040: 53 54 52 55 39 20 20 20 20 3B 4C 69 72 65 20 50 STRU9 ;Lire P
000050: 69 73 2E 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 is... ;..
000060: 20 20 4C 44 20 41 2C 28 45 54 31 29 20 20 20 20 LD A,(ET1)
000070: 20 20 3B 4D 41 4D 20 3F 0D 0A 20 20 20 20 20 20 ;MAM ?..
000080: 20 20 20 42 49 54 20 30 2C 41 20 20 20 20 20 20 BIT 0,A
000090: 20 20 20 3B 53 69 20 6F 75 69 20 2C 20 6C 6F 6E ;Si oui , lon
0000A0: 67 75 65 75 72 20 70 61 73 20 74 72 6F 75 76 65 gueur pas trouve
0000B0: 65 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 20 4E e.. JR N
0000C0: 5A 2C 4D 41 4D 46 49 4E 44 20 20 20 3B 43 6F 6E Z,MAMFIND ;Con
0000D0: 74 69 6E 75 65 72 0D 0A 20 3B 0D 0A 20 20 20 20 tinuer.. ;..
0000E0: 20 20 20 20 20 4C 44 20 48 4C 2C 45 54 32 20 20 LD HL,ET2
0000F0: 20 20 20 20 20 3B 44 44 3F 0D 0A 20 20 20 20 20 ;DD?..
000100: 20 20 20 20 42 49 54 20 35 2C 28 48 4C 29 20 20 BIT 5,(HL)
000110: 20 20 20 20 3B 53 69 20 70 61 73 20 44 44 20 6C ;Si pas DD l
000120: 6F 6E 67 75 65 75 72 20 74 72 6F 75 76 65 65 0D ongueur trouvee.
000130: 0A 20 20 20 20 20 20 20 20 20 4A 52 20 4E 5A 2C . JR NZ,
000140: 4D 41 4D 46 49 4E 44 20 20 20 3B 53 69 6E 6F 6E MAMFIND ;Sinon
000150: 20 63 6F 6E 74 69 6E 75 65 72 0D 0A 20 3B 0D 0A continuer.. ;..
000160: 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 4F 4B CALL OK
000170: 4C 4F 4E 47 20 20 20 20 20 3B 44 65 74 65 72 6D LONG ;Determ
000180: 69 6E 65 72 20 76 61 6C 65 75 72 20 47 41 50 0D iner valeur GAP.
000190: 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 46 . CALL F
0001A0: 49 4E 44 47 41 50 20 20 20 20 3B 45 74 20 6C 6F INDGAP ;Et lo
0001B0: 6E 67 75 65 75 72 20 2E 20 4E 43 20 65 6E 20 72 ngueur . NC en r
0001C0: 65 74 6F 75 72 20 73 69 20 70 61 73 20 62 6F 6E etour si pas bon
0001D0: 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 .. CALL
0001E0: 4E 43 2C 4A 45 43 4F 49 4E 43 45 0D 0A 20 3B 0D NC,JECOINCE.. ;.
0001F0: 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 46 . CALL F
Size : 512 (Real : 512)
000000: 49 4E 44 52 45 4D 50 20 20 20 3B 43 68 65 72 63 INDREMP ;Cherc
000010: 68 65 72 20 6F 63 74 65 74 20 46 49 4C 4C 0D 0A her octet FILL..
000020: 20 20 20 20 20 20 20 20 20 4A 50 20 45 58 49 54 JP EXIT
000030: 47 41 50 20 20 20 20 20 20 3B 46 69 6E 69 0D 0A GAP ;Fini..
000040: 20 3B 0D 0A 20 4D 41 4D 46 49 4E 44 20 43 41 4C ;.. MAMFIND CAL
000050: 4C 20 49 4E 43 4C 4F 4E 47 20 20 3B 41 3D 41 2B L INCLONG ;A=A+
000060: 31 20 44 61 6E 73 20 51 55 41 54 52 49 44 2B 33 1 Dans QUATRID+3
000070: 20 65 74 20 4C 53 20 2C 20 48 4C 3D 48 4C 2B 48 et LS , HL=HL+H
000080: 4C 20 64 61 6E 73 20 4C 4F 4E 47 53 45 43 0D 0A L dans LONGSEC..
000090: 20 20 20 20 20 20 20 20 20 43 50 20 36 0D 0A 20 CP 6..
0000A0: 20 20 20 20 20 20 20 20 4A 52 20 4E 5A 2C 4E 45 JR NZ,NE
0000B0: 58 54 4C 4F 4E 20 3B 43 6F 6E 74 69 6E 75 65 72 XTLON ;Continuer
0000C0: 20 74 61 6E 74 20 71 75 65 20 74 6F 75 74 65 20 tant que toute
0000D0: 74 61 69 6C 6C 65 20 64 65 20 30 20 61 20 35 20 taille de 0 a 5
0000E0: 70 61 73 20 74 65 73 74 65 65 73 0D 0A 20 3B 0D pas testees.. ;.
0000F0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
000100: 20 20 20 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D -------
000110: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000120: 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 0D 0A 20 20 20 20 -------.. ..
000130: 20 49 63 69 20 63 6F 6D 6D 65 6E 63 65 6E 74 20 Ici commencent
000140: 6C 65 73 20 76 72 61 69 73 20 70 72 6F 62 6C 7D les vrais probl}
000150: 6D 65 73 20 21 20 53 6F 69 74 20 20 75 6E 20 4D mes ! Soit un M
000160: 41 4D 20 65 6E 20 31 65 72 20 73 65 63 74 65 75 AM en 1er secteu
000170: 72 20 6E 6F 75 73 20 79 2D 61 0D 0A 20 65 6E 76 r nous y-a.. env
000180: 6F 79 7B 20 2C 20 73 6F 69 74 20 6C 61 20 53 4F oy{ , soit la SO
000190: 4C 55 54 49 4F 4E 31 20 61 20 6C 61 6D 65 6E 74 LUTION1 a lament
0001A0: 61 62 6C 65 6D 65 6E 74 20 20 7B 63 68 6F 75 7B ablement {chou{
0001B0: 20 20 2E 20 20 4F 6E 20 65 73 74 20 73 75 72 20 . On est sur
0001C0: 64 65 20 72 69 65 6E 20 65 74 0D 0A 20 73 75 72 de rien et.. sur
0001D0: 74 6F 75 74 20 70 61 73 20 64 65 20 6C 61 20 74 tout pas de la t
0001E0: 61 69 6C 6C 65 20 64 65 20 20 66 6F 72 6D 61 74 aille de format
0001F0: 20 20 21 20 20 45 6E 20 20 70 72 65 6D 69 65 72 ! En premier
Size : 512 (Real : 512)
000000: 20 6C 69 65 75 20 6F 6E 20 61 70 70 65 6C 6C 65 lieu on appelle
000010: 20 4D 41 58 49 4C 45 4E 20 2E 0D 0A 20 43 65 74 MAXILEN ... Cet
000020: 74 65 20 72 6F 75 74 69 6E 65 20 63 61 6C 63 75 te routine calcu
000030: 6C 65 20 6C 61 20 74 61 69 6C 6C 65 20 64 65 20 le la taille de
000040: 66 6F 72 6D 61 74 20 20 28 4C 45 4E 20 49 44 29 format (LEN ID)
000050: 20 61 64 6D 69 73 73 69 62 6C 65 20 65 6E 20 66 admissible en f
000060: 6F 6E 63 74 69 6F 6E 20 64 75 0D 0A 20 6E 6F 6D onction du.. nom
000070: 62 72 65 20 64 65 20 73 65 63 74 65 75 72 73 20 bre de secteurs
000080: 70 72 7B 73 65 6E 74 73 20 73 75 72 20 6C 61 20 pr{sents sur la
000090: 70 69 73 74 65 20 20 2E 20 43 65 74 74 65 20 6E piste . Cette n
0000A0: 6F 75 76 65 6C 6C 65 20 64 6F 6E 6E 7B 65 20 6E ouvelle donn{e n
0000B0: 6F 75 73 20 70 65 72 6D 65 74 0D 0A 20 64 65 20 ous permet.. de
0000C0: 64 7B 74 65 72 6D 69 6E 65 72 20 71 75 65 6C 71 d{terminer quelq
0000D0: 75 65 73 20 70 6F 69 6E 74 73 20 65 73 73 65 6E ues points essen
0000E0: 74 69 65 6C 73 20 2E 0D 0A 20 0D 0A 20 20 20 20 tiels ... ..
0000F0: 20 31 20 3A 20 53 69 20 75 6E 20 7B 76 65 6E 74 1 : Si un {vent
000100: 75 65 6C 20 43 52 2F 44 44 20 65 73 74 20 70 6C uel CR/DD est pl
000110: 75 73 20 67 72 61 6E 64 20 20 71 75 65 20 4D 41 us grand que MA
000120: 58 49 4C 45 4E 20 2E 20 44 61 6E 73 20 63 65 20 XILEN . Dans ce
000130: 63 61 73 20 6F 6E 20 65 73 74 0D 0A 20 73 75 72 cas on est.. sur
000140: 20 64 27 79 20 64 7B 6E 69 63 68 65 72 20 6C 61 d'y d{nicher la
000150: 20 76 72 61 69 65 20 74 61 69 6C 6C 65 20 64 65 vraie taille de
000160: 20 20 66 6F 72 6D 61 74 20 20 2C 20 20 6C 65 20 format , le
000170: 47 41 50 20 65 74 20 65 6E 20 70 72 69 6D 65 20 GAP et en prime
000180: 6C 27 6F 63 74 65 74 20 64 65 0D 0A 20 66 6F 72 l'octet de.. for
000190: 6D 61 74 61 67 65 20 2E 0D 0A 20 20 20 20 20 32 matage ... 2
0001A0: 20 3A 20 53 69 20 75 6E 20 7B 76 65 6E 74 75 65 : Si un {ventue
0001B0: 6C 20 20 43 52 2F 44 44 20 20 7B 67 61 6C 65 20 l CR/DD {gale
0001C0: 20 4D 41 58 49 4C 45 4E 20 20 2E 20 20 4F 6E 20 MAXILEN . On
0001D0: 79 2D 74 72 6F 75 76 65 72 61 20 70 65 75 74 20 y-trouvera peut
0001E0: 65 08 5E 74 72 65 20 6C 65 73 0D 0A 20 64 6F 6E e.^tre les.. don
0001F0: 6E 7B 65 73 20 70 72 7B 63 69 74 7B 65 73 20 6F n{es pr{cit{es o
Size : 512 (Real : 512)
000000: 75 20 6C 27 61 73 73 75 72 61 6E 63 65 20 71 75 u l'assurance qu
000010: 27 69 6C 20 73 27 61 67 69 74 20 64 27 75 6E 65 'il s'agit d'une
000020: 20 70 69 73 74 65 20 61 62 69 6D 7B 65 20 2E 0D piste abim{e ..
000030: 0A 20 20 20 20 20 33 20 3A 20 4C 45 4E 43 52 44 . 3 : LENCRD
000040: 44 20 43 6F 6E 74 69 65 6E 64 72 61 20 6C 61 20 D Contiendra la
000050: 6C 6F 6E 67 75 65 75 72 20 64 75 20 70 6C 75 73 longueur du plus
000060: 20 67 72 61 6E 64 20 43 52 2F 44 44 20 64 65 20 grand CR/DD de
000070: 6C 61 20 70 69 73 74 65 20 2E 0D 0A 20 0D 0A 20 la piste ... ..
000080: 20 20 20 20 4E 6F 74 65 20 3A 20 4C 65 20 72 7B Note : Le r{
000090: 73 75 6C 74 61 74 20 64 65 20 4D 41 58 49 4C 45 sultat de MAXILE
0000A0: 4E 20 65 73 74 20 72 61 6E 67 7B 20 64 61 6E 73 N est rang{ dans
0000B0: 20 4C 4D 41 58 20 65 74 20 64 61 6E 73 20 43 20 LMAX et dans C
0000C0: 2E 20 4C 65 20 72 65 67 69 73 74 72 65 0D 0A 20 . Le registre..
0000D0: 43 20 65 73 74 20 70 72 7B 73 65 72 76 7B 20 65 C est pr{serv{ e
0000E0: 74 20 73 65 72 74 20 64 65 20 62 61 73 65 20 70 t sert de base p
0000F0: 6F 75 72 20 74 6F 75 73 20 6C 65 73 20 74 65 73 our tous les tes
000100: 74 73 20 64 65 20 6C 61 20 73 65 63 74 69 6F 6E ts de la section
000110: 20 2E 0D 0A 20 0D 0A 20 20 20 20 20 20 20 20 20 ... ..
000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000130: 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ------------
000140: 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 3B 0D 0A 20 ---------.. ;..
000150: 53 4F 4C 55 54 49 4F 4E 32 20 43 41 4C 4C 20 4D SOLUTION2 CALL M
000160: 41 58 49 4C 45 4E 20 3B 52 65 74 6F 75 72 20 61 AXILEN ;Retour a
000170: 76 65 63 20 70 6C 75 73 20 67 72 61 6E 64 65 20 vec plus grande
000180: 74 61 69 6C 6C 65 20 49 44 20 70 6F 73 73 69 62 taille ID possib
000190: 6C 65 20 64 61 6E 73 20 43 0D 0A 20 3B 0D 0A 20 le dans C.. ;..
0001A0: 3B 2D 20 4C 45 4E 20 47 41 50 20 35 20 2D 0D 0A ;- LEN GAP 5 -..
0001B0: 20 3B 0D 0A 20 3B 2D 20 52 65 63 68 65 72 63 68 ;.. ;- Recherch
0001C0: 65 20 64 27 75 6E 20 43 52 2F 44 44 20 3E 3D 20 e d'un CR/DD >=
0001D0: 4C 4D 41 58 20 2D 0D 0A 20 3B 0D 0A 20 20 20 20 LMAX -.. ;..
0001E0: 20 20 20 20 20 4C 44 20 41 2C 28 46 4C 41 47 43 LD A,(FLAGC
0001F0: 52 44 44 29 20 3B 53 69 20 61 75 63 75 6E 20 43 RDD) ;Si aucun C
Size : 512 (Real : 512)
000000: 52 2F 44 44 20 74 72 6F 75 76 7B 20 73 75 72 20 R/DD trouv{ sur
000010: 6C 61 20 70 69 73 74 65 20 2C 20 63 61 20 73 27 la piste , ca s'
000020: 61 67 67 72 61 76 65 0D 0A 20 20 20 20 20 20 20 aggrave..
000030: 20 20 42 49 54 20 37 2C 41 20 20 20 20 20 20 20 BIT 7,A
000040: 20 20 3B 70 61 73 73 65 7A 20 75 6E 20 74 6F 75 ;passez un tou
000050: 72 20 65 74 20 72 65 6E 64 65 7A 20 76 6F 75 73 r et rendez vous
000060: 20 73 75 72 20 6C 61 20 63 61 73 65 20 53 4F 4C sur la case SOL
000070: 55 54 49 4F 4E 33 0D 0A 20 20 20 20 20 20 20 20 UTION3..
000080: 20 4A 50 20 5A 2C 53 4F 4C 55 54 49 4F 4E 33 0D JP Z,SOLUTION3.
000090: 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 41 4E . ;.. AN
0000A0: 44 20 25 30 31 31 31 31 31 31 31 20 20 20 3B 45 D %01111111 ;E
0000B0: 6C 69 6D 69 6E 65 72 20 62 69 74 20 38 20 64 75 liminer bit 8 du
0000C0: 20 66 6C 61 67 20 43 52 2F 44 44 0D 0A 20 20 20 flag CR/DD..
0000D0: 20 20 20 20 20 20 4C 44 20 28 4C 45 4E 43 52 44 LD (LENCRD
0000E0: 44 29 2C 41 20 20 3B 53 74 6F 63 6B 65 72 20 6C D),A ;Stocker l
0000F0: 6F 6E 67 75 65 75 72 20 64 75 20 3E 20 43 52 2F ongueur du > CR/
000100: 44 44 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 DD.. ;..
000110: 20 43 50 20 43 20 20 20 20 20 20 20 20 20 20 20 CP C
000120: 20 3B 43 6F 6D 70 61 72 65 72 20 43 52 2F 44 44 ;Comparer CR/DD
000130: 20 61 76 65 63 20 4C 4D 41 58 20 3F 0D 0A 20 20 avec LMAX ?..
000140: 20 20 20 20 20 20 20 4A 52 20 5A 2C 54 53 54 43 JR Z,TSTC
000150: 52 44 44 20 20 20 20 3B 53 69 20 43 52 2F 44 44 RDD ;Si CR/DD
000160: 20 3D 20 4C 4D 41 58 20 2E 20 56 6F 69 72 20 73 = LMAX . Voir s
000170: 69 20 49 44 53 20 4C 45 4E 20 64 69 66 66 65 72 i IDS LEN differ
000180: 65 6E 74 73 0D 0A 20 20 20 20 20 20 20 20 20 4A ents.. J
000190: 52 20 4E 43 2C 50 4F 53 49 43 52 44 44 20 20 3B R NC,POSICRDD ;
0001A0: 53 69 20 43 52 2F 44 44 20 3E 20 4C 4D 41 58 20 Si CR/DD > LMAX
0001B0: 2C 20 61 6C 6C 65 72 20 63 68 65 72 63 68 65 72 , aller chercher
0001C0: 20 6C 65 20 47 41 50 0D 0A 20 3B 0D 0A 20 20 20 le GAP.. ;..
0001D0: 20 20 20 20 20 20 4C 44 20 41 2C 28 4C 49 44 4D LD A,(LIDM
0001E0: 41 58 29 20 20 20 3B 49 63 69 20 6C 65 20 43 52 AX) ;Ici le CR
0001F0: 2F 44 44 20 65 73 74 20 3C 20 71 75 65 20 4C 4D /DD est < que LM
Size : 512 (Real : 512)
000000: 41 58 20 6F 6E 20 72 65 67 61 72 64 65 20 73 69 AX on regarde si
000010: 20 6C 65 0D 0A 20 20 20 20 20 20 20 20 20 43 50 le.. CP
000020: 20 43 20 20 20 20 20 20 20 20 20 20 20 20 3B 3C C ;<
000030: 20 49 44 20 4C 45 4E 20 4F 4B 20 65 73 74 20 61 ID LEN OK est a
000040: 75 73 73 69 20 3C 20 71 75 65 20 4C 4D 41 58 0D ussi < que LMAX.
000050: 0A 20 20 20 20 20 20 20 20 20 4A 50 20 4E 43 2C . JP NC,
000060: 53 4F 4C 55 54 49 4F 4E 33 20 3B 4E 6F 6E 20 2C SOLUTION3 ;Non ,
000070: 20 72 69 65 6E 20 61 20 66 61 69 72 65 20 61 76 rien a faire av
000080: 65 63 20 43 52 2F 44 44 0D 0A 20 3B 0D 0A 20 20 ec CR/DD.. ;..
000090: 20 20 20 20 20 20 20 4C 44 20 43 2C 41 20 20 20 LD C,A
0000A0: 20 20 20 20 20 20 20 3B 4F 55 49 20 6F 6E 20 72 ;OUI on r
0000B0: 65 64 75 69 74 20 4C 4D 41 58 20 61 20 6C 61 20 eduit LMAX a la
0000C0: 6C 6F 6E 67 75 65 75 72 20 64 65 20 4C 49 44 4D longueur de LIDM
0000D0: 41 58 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 AX.. LD
0000E0: 41 2C 28 4C 45 4E 43 52 44 44 29 20 20 3B 45 74 A,(LENCRDD) ;Et
0000F0: 20 6F 6E 20 72 65 74 65 73 74 65 20 73 69 20 4C on reteste si L
000100: 45 4E 20 43 52 2F 44 44 20 3E 20 3D 20 6E 6F 75 EN CR/DD > = nou
000110: 76 65 61 75 20 4C 4D 41 58 0D 0A 20 20 20 20 20 veau LMAX..
000120: 20 20 20 20 43 50 20 43 0D 0A 20 20 20 20 20 20 CP C..
000130: 20 20 20 4A 52 20 5A 2C 54 53 54 43 52 44 44 20 JR Z,TSTCRDD
000140: 20 20 20 3B 53 69 20 4C 45 4E 20 43 52 2F 44 44 ;Si LEN CR/DD
000150: 20 3D 20 6E 6F 75 76 65 61 75 20 4C 4D 41 58 20 = nouveau LMAX
000160: 2C 20 65 6E 63 6F 72 65 20 75 6E 20 74 65 73 74 , encore un test
000170: 0D 0A 20 20 20 20 20 20 20 20 20 4A 50 20 4E 43 .. JP NC
000180: 2C 53 4F 4C 55 54 49 4F 4E 33 20 3B 53 69 20 4C ,SOLUTION3 ;Si L
000190: 45 4E 20 43 52 2F 44 44 20 3E 20 6E 6F 75 76 65 EN CR/DD > nouve
0001A0: 61 75 20 4C 4D 41 58 20 63 27 65 73 74 20 62 6F au LMAX c'est bo
0001B0: 6E 20 65 74 20 69 6E 63 75 72 61 62 6C 65 0D 0A n et incurable..
0001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001D0: 20 20 20 20 20 20 20 20 20 3B 70 61 72 20 53 4F ;par SO
0001E0: 4C 55 54 49 4F 4E 32 20 73 69 6E 6F 6E 0D 0A 20 LUTION2 sinon..
0001F0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 20 20 2D 2D 2D 2D ----
000010: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000020: 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 0D 0A 20 20 20 --------.. ..
000030: 20 20 41 72 72 69 76 7B 20 69 63 69 20 6F 6E 20 Arriv{ ici on
000040: 20 61 20 20 6C 61 20 20 74 61 69 6C 6C 65 20 20 a la taille
000050: 6D 61 78 69 6D 75 6D 20 20 64 75 20 20 66 6F 72 maximum du for
000060: 6D 61 74 20 20 64 6F 6E 6E 7B 65 20 64 69 72 65 mat donn{e dire
000070: 63 74 65 6D 65 6E 74 20 70 61 72 0D 0A 20 4D 41 ctement par.. MA
000080: 58 49 4C 45 4E 20 6F 75 20 63 65 6C 6C 65 20 70 XILEN ou celle p
000090: 72 69 73 65 20 64 61 6E 73 20 4C 49 44 4D 41 58 rise dans LIDMAX
0000A0: 20 2E 20 4F 6E 20 20 40 20 61 75 73 73 69 20 6C . On @ aussi l
0000B0: 61 20 63 65 72 74 69 74 75 64 65 20 64 27 75 6E a certitude d'un
0000C0: 20 43 52 2F 44 44 20 7B 67 61 6C 0D 0A 20 40 20 CR/DD {gal.. @
0000D0: 4C 4D 41 58 20 2E 20 53 69 20 65 6E 20 70 6C 75 LMAX . Si en plu
0000E0: 73 20 64 65 20 63 65 20 43 52 2F 44 44 20 74 6F s de ce CR/DD to
0000F0: 75 73 20 20 6C 65 73 20 49 44 53 20 4C 45 4E 20 us les IDS LEN
000100: 4F 4B 20 73 6F 6E 74 20 64 65 20 6D 65 08 5E 6D OK sont de me.^m
000110: 65 20 74 61 69 6C 6C 65 20 2C 20 6F 6E 0D 0A 20 e taille , on..
000120: 61 20 6C 61 20 63 65 72 74 69 74 69 74 75 64 65 a la certititude
000130: 20 64 27 75 6E 65 20 70 69 73 74 65 20 72 7B 67 d'une piste r{g
000140: 75 6C 69 7D 72 65 20 20 61 62 69 6D 7B 65 20 20 uli}re abim{e
000150: 2E 20 20 4F 6E 20 20 73 69 67 6E 61 6C 65 20 6C . On signale l
000160: 65 20 66 61 69 74 20 70 61 72 20 75 6E 0D 0A 20 e fait par un..
000170: 6D 65 73 73 61 67 65 20 65 74 20 75 6E 20 62 69 message et un bi
000180: 74 20 64 61 6E 73 20 46 4C 41 47 46 4E 43 20 20 t dans FLAGFNC
000190: 2C 20 20 6F 6E 20 20 72 65 6D 65 74 20 20 61 20 , on remet a
0001A0: 20 7A 7B 72 6F 20 6C 65 73 20 66 6C 61 67 73 20 z{ro les flags
0001B0: 63 6F 6E 63 65 72 6E 61 6E 74 20 6C 65 0D 0A 20 concernant le..
0001C0: 43 52 2F 44 44 20 70 6F 75 72 20 7B 76 69 74 65 CR/DD pour {vite
0001D0: 72 20 74 6F 75 74 65 20 63 6F 6E 66 75 73 69 6F r toute confusio
0001E0: 6E 20 20 75 6C 74 7B 72 69 65 75 72 65 20 20 65 n ult{rieure e
0001F0: 74 20 20 6F 6E 20 20 73 61 75 74 65 20 65 6E 20 t on saute en
Size : 512 (Real : 512)
000000: 53 4F 4C 55 54 49 4F 4E 35 20 71 75 69 0D 0A 20 SOLUTION5 qui..
000010: 61 6E 61 6C 79 73 65 20 63 65 20 67 65 6E 72 65 analyse ce genre
000020: 20 64 65 20 70 72 6F 62 6C 7D 6D 65 20 2E 0D 0A de probl}me ...
000030: 20 20 20 20 20 53 69 20 43 52 2F 44 44 20 3D 20 Si CR/DD =
000040: 4C 4D 41 58 20 65 74 20 71 75 65 20 6C 61 20 20 LMAX et que la
000050: 70 69 73 74 65 20 20 6E 27 65 73 74 20 70 61 73 piste n'est pas
000060: 20 72 65 63 6F 6E 6E 75 65 20 61 62 69 6D 7B 65 reconnue abim{e
000070: 20 2C 20 6F 6E 20 20 75 74 69 6C 69 73 65 0D 0A , on utilise..
000080: 20 75 6E 65 20 70 61 72 74 69 65 20 64 65 20 6C une partie de l
000090: 61 20 72 6F 75 74 69 6E 65 20 64 65 20 43 52 2F a routine de CR/
0000A0: 44 44 20 70 6F 75 72 20 20 6C 65 20 6C 6F 63 61 DD pour le loca
0000B0: 6C 69 73 65 72 20 65 74 20 6F 6E 20 73 61 75 74 liser et on saut
0000C0: 65 20 40 20 75 6E 65 20 61 6E 6E 65 78 65 0D 0A e @ une annexe..
0000D0: 20 64 65 20 6C 61 20 53 4F 4C 55 54 49 4F 4E 33 de la SOLUTION3
0000E0: 20 2E 0D 0A 20 0D 0A 20 20 20 20 20 20 20 20 20 ... ..
0000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000100: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000110: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 3B ------------.. ;
000120: 0D 0A 20 54 53 54 43 52 44 44 20 4C 44 20 41 2C .. TSTCRDD LD A,
000130: 28 46 4C 47 44 49 46 49 44 29 20 3B 53 69 20 43 (FLGDIFID) ;Si C
000140: 52 2F 44 44 20 3D 20 4C 45 4E 20 65 74 20 74 6F R/DD = LEN et to
000150: 75 73 20 49 44 53 20 4C 45 4E 20 69 64 65 6D 0D us IDS LEN idem.
000160: 0A 20 20 20 20 20 20 20 20 20 4F 52 20 41 0D 0A . OR A..
000170: 20 20 20 20 20 20 20 20 20 4A 52 20 5A 2C 50 49 JR Z,PI
000180: 53 4D 4F 52 54 0D 0A 20 3B 0D 0A 20 20 20 20 20 SMORT.. ;..
000190: 20 20 20 20 4C 44 20 41 2C 28 4C 4D 49 4E 29 20 LD A,(LMIN)
0001A0: 20 20 20 20 3B 53 69 20 74 6F 75 73 20 49 44 53 ;Si tous IDS
0001B0: 20 69 64 65 6E 74 69 71 75 65 73 20 65 74 20 3C identiques et <
0001C0: 3E 20 30 20 4C 4D 49 4E 0D 0A 20 20 20 20 20 20 > 0 LMIN..
0001D0: 20 20 20 43 50 20 23 46 46 20 20 20 20 20 20 20 CP #FF
0001E0: 20 20 20 3B 65 73 74 20 72 65 73 74 65 20 61 20 ;est reste a
0001F0: 23 46 46 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 #FF.. JR
Size : 512 (Real : 512)
000000: 20 4E 5A 2C 50 4F 53 49 43 52 44 44 0D 0A 20 3B NZ,POSICRDD.. ;
000010: 0D 0A 20 50 49 53 4D 4F 52 54 20 4C 44 20 48 4C .. PISMORT LD HL
000020: 2C 54 46 4F 49 52 45 45 0D 0A 20 20 20 20 20 20 ,TFOIREE..
000030: 20 20 20 43 41 4C 4C 20 50 52 54 0D 0A 20 20 20 CALL PRT..
000040: 20 20 20 20 20 20 58 4F 52 20 41 20 20 20 20 20 XOR A
000050: 20 20 20 20 20 3B 49 67 6E 6F 72 65 72 20 74 6F ;Ignorer to
000060: 75 74 65 20 6F 70 65 72 61 74 69 6F 6E 20 75 6C ute operation ul
000070: 74 65 72 69 65 75 72 65 20 73 75 72 20 43 52 2F terieure sur CR/
000080: 44 44 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 DD.. LD
000090: 28 46 4C 41 47 43 52 44 44 29 2C 41 0D 0A 20 20 (FLAGCRDD),A..
0000A0: 20 20 20 20 20 20 20 44 45 43 20 41 0D 0A 20 20 DEC A..
0000B0: 20 20 20 20 20 20 20 4C 44 20 28 4C 45 4E 43 52 LD (LENCR
0000C0: 44 44 29 2C 41 0D 0A 20 3B 0D 0A 20 20 20 20 20 DD),A.. ;..
0000D0: 20 20 20 20 4C 44 20 48 4C 2C 46 4C 41 47 46 4E LD HL,FLAGFN
0000E0: 43 0D 0A 20 20 20 20 20 20 20 20 20 53 45 54 20 C.. SET
0000F0: 36 2C 28 48 4C 29 0D 0A 20 20 20 20 20 20 20 20 6,(HL)..
000100: 20 4A 50 20 53 4F 4C 55 54 49 4F 4E 35 0D 0A 20 JP SOLUTION5..
000110: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
000120: 20 20 20 20 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D ------
000130: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000140: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 0D 0A -----------.. ..
000150: 20 20 20 20 20 49 63 69 20 6F 6E 20 63 68 65 72 Ici on cher
000160: 63 68 65 20 6C 65 20 47 41 50 20 64 61 6E 73 20 che le GAP dans
000170: 75 6E 20 43 52 2F 44 44 20 2E 20 20 4F 6E 20 72 un CR/DD . On r
000180: 61 6E 67 65 20 4C 4D 41 58 20 64 61 6E 73 20 73 ange LMAX dans s
000190: 6F 6E 20 74 69 72 6F 69 72 20 2C 20 6F 6E 0D 0A on tiroir , on..
0001A0: 20 61 66 66 69 63 68 65 20 6C 65 20 6D 65 73 73 affiche le mess
0001B0: 61 67 65 20 63 6F 72 72 65 73 70 6F 6E 64 61 6E age correspondan
0001C0: 74 20 2C 20 20 65 74 20 20 6F 6E 20 20 64 7B 74 t , et on d{t
0001D0: 65 72 6D 69 6E 65 20 6C 61 20 70 6F 73 69 74 69 ermine la positi
0001E0: 6F 6E 20 70 68 79 73 69 71 75 65 20 64 75 0D 0A on physique du..
0001F0: 20 43 52 2F 44 44 20 76 6F 75 6C 75 20 73 75 72 CR/DD voulu sur
Size : 512 (Real : 512)
000000: 20 6C 61 20 70 69 73 74 65 20 2E 0D 0A 20 0D 0A la piste ... ..
000010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000020: 20 20 20 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D -------
000030: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000040: 2D 2D 2D 2D 2D 0D 0A 20 3B 0D 0A 20 50 4F 53 49 -----.. ;.. POSI
000050: 43 52 44 44 20 4C 44 20 41 2C 43 0D 0A 20 20 20 CRDD LD A,C..
000060: 20 20 20 20 20 20 4C 44 20 28 4C 4D 41 58 29 2C LD (LMAX),
000070: 41 20 20 20 20 20 3B 52 61 6E 67 65 72 20 74 61 A ;Ranger ta
000080: 69 6C 6C 65 20 6D 61 78 69 20 70 6F 73 73 69 62 ille maxi possib
000090: 6C 65 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 le.. ;..
0000A0: 20 4C 44 20 48 4C 2C 54 46 47 41 50 31 41 20 20 LD HL,TFGAP1A
0000B0: 20 3B 4D 65 73 73 61 67 65 0D 0A 20 20 20 20 20 ;Message..
0000C0: 20 20 20 20 43 41 4C 4C 20 50 52 54 0D 0A 20 3B CALL PRT.. ;
0000D0: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 41 2C .. LD A,
0000E0: 28 4E 42 53 45 43 29 20 20 20 20 3B 52 65 63 68 (NBSEC) ;Rech
0000F0: 65 72 63 68 65 72 20 6C 61 20 70 6F 73 69 74 69 ercher la positi
000100: 6F 6E 20 65 74 20 6C 27 49 44 20 64 75 20 43 52 on et l'ID du CR
000110: 2F 44 44 20 3E 20 4C 4D 41 58 0D 0A 20 20 20 20 /DD > LMAX..
000120: 20 20 20 20 20 4C 44 20 42 2C 41 0D 0A 20 20 20 LD B,A..
000130: 20 20 20 20 20 20 4C 44 20 49 59 2C 43 4F 55 4E LD IY,COUN
000140: 54 20 20 20 20 20 3B 43 6F 6D 70 74 65 75 72 20 T ;Compteur
000150: 40 20 7A 7B 72 6F 0D 0A 20 20 20 20 20 20 20 20 @ z{ro..
000160: 20 4C 44 20 28 49 59 2B 30 29 2C 30 0D 0A 20 3B LD (IY+0),0.. ;
000170: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 44 45 .. LD DE
000180: 2C 4C 49 53 54 45 52 52 20 20 20 3B 4C 69 73 74 ,LISTERR ;List
000190: 65 20 64 65 73 20 7B 74 61 74 73 20 64 27 65 72 e des {tats d'er
0001A0: 72 65 75 72 0D 0A 20 20 20 20 20 20 20 20 20 4C reur.. L
0001B0: 44 20 48 4C 2C 49 44 49 4E 44 52 41 2B 33 20 3B D HL,IDINDRA+3 ;
0001C0: 4C 6F 6E 67 75 65 75 72 20 49 44 0D 0A 20 3B 0D Longueur ID.. ;.
0001D0: 0A 20 56 45 55 54 43 4D 20 20 4C 44 20 41 2C 28 . VEUTCM LD A,(
0001E0: 44 45 29 0D 0A 20 20 20 20 20 20 20 20 20 41 4E DE).. AN
0001F0: 44 20 25 30 30 31 30 30 31 30 30 20 20 20 3B 49 D %00100100 ;I
Size : 512 (Real : 512)
000000: 73 6F 6C 65 72 20 43 52 2F 44 44 0D 0A 20 20 20 soler CR/DD..
000010: 20 20 20 20 20 20 43 50 20 25 30 30 31 30 30 31 CP %001001
000020: 30 30 20 20 20 20 3B 54 65 73 74 65 72 20 73 69 00 ;Tester si
000030: 20 43 52 2F 44 44 20 69 6C 20 66 61 75 74 20 6C CR/DD il faut l
000040: 65 73 20 32 20 61 20 6C 61 20 66 6F 69 73 20 21 es 2 a la fois !
000050: 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 20 4E 5A .. JR NZ
000060: 2C 50 41 43 52 44 44 20 20 20 20 3B 50 61 73 20 ,PACRDD ;Pas
000070: 43 52 2F 44 44 0D 0A 20 3B 0D 0A 20 20 20 20 20 CR/DD.. ;..
000080: 20 20 20 20 4C 44 20 41 2C 43 20 20 20 20 20 20 LD A,C
000090: 20 20 20 20 3B 43 20 43 6F 6E 74 69 65 6E 74 20 ;C Contient
0000A0: 74 6F 75 6A 6F 75 72 73 20 4C 4D 41 58 0D 0A 20 toujours LMAX..
0000B0: 20 20 20 20 20 20 20 20 43 50 20 28 48 4C 29 0D CP (HL).
0000C0: 0A 20 20 20 20 20 20 20 20 20 4A 52 20 43 2C 46 . JR C,F
0000D0: 49 4E 44 43 52 44 44 20 20 20 3B 4F 6E 20 61 20 INDCRDD ;On a
0000E0: 74 72 6F 75 76 65 20 6C 65 20 43 52 2F 44 44 20 trouve le CR/DD
0000F0: 3E 20 71 75 65 20 4C 4D 41 58 0D 0A 20 20 20 20 > que LMAX..
000100: 20 20 20 20 20 4A 50 20 5A 2C 53 4F 4C 55 54 49 JP Z,SOLUTI
000110: 4F 33 41 20 20 3B 53 69 20 6C 65 20 43 52 2F 44 O3A ;Si le CR/D
000120: 44 3D 4C 4D 41 58 20 2C 20 6E 65 20 70 61 73 20 D=LMAX , ne pas
000130: 79 20 63 68 65 72 63 68 65 72 20 6C 65 20 47 41 y chercher le GA
000140: 50 20 21 0D 0A 20 3B 0D 0A 20 50 41 43 52 44 44 P !.. ;.. PACRDD
000150: 20 20 49 4E 43 20 28 49 59 2B 30 29 20 20 20 20 INC (IY+0)
000160: 3B 43 6F 6D 70 74 65 75 72 20 2B 20 31 0D 0A 20 ;Compteur + 1..
000170: 20 20 20 20 20 20 20 20 49 4E 43 20 44 45 20 20 INC DE
000180: 20 20 20 20 20 20 3B 4C 49 53 54 45 52 52 2B 31 ;LISTERR+1
000190: 0D 0A 20 20 20 20 20 20 20 20 20 49 4E 43 20 48 .. INC H
0001A0: 4C 20 20 20 20 20 20 20 20 3B 49 44 53 20 4C 45 L ;IDS LE
0001B0: 4E 20 73 75 69 76 61 6E 74 0D 0A 20 20 20 20 20 N suivant..
0001C0: 20 20 20 20 49 4E 43 20 48 4C 0D 0A 20 20 20 20 INC HL..
0001D0: 20 20 20 20 20 49 4E 43 20 48 4C 0D 0A 20 20 20 INC HL..
0001E0: 20 20 20 20 20 20 49 4E 43 20 48 4C 0D 0A 20 20 INC HL..
0001F0: 20 20 20 20 20 20 20 44 4A 4E 5A 20 56 45 55 54 DJNZ VEUT
Size : 512 (Real : 512)
000000: 43 4D 0D 0A 20 3B 0D 0A 20 3B 4C 61 20 62 6F 75 CM.. ;.. ;La bou
000010: 63 6C 65 20 44 4A 4E 5A 20 6E 65 20 76 61 20 6A cle DJNZ ne va j
000020: 61 6D 61 69 73 20 6A 75 73 71 75 27 40 20 42 3D amais jusqu'@ B=
000030: 30 20 64 6F 6E 63 20 6E 65 20 73 6F 72 74 20 6A 0 donc ne sort j
000040: 61 6D 61 69 73 20 70 61 72 20 69 63 69 0D 0A 20 amais par ici..
000050: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2D 2D --
000070: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000080: 2D 2D 2D 2D 0D 0A 20 0D 0A 20 20 20 20 20 4D 61 ----.. .. Ma
000090: 69 6E 74 65 6E 61 6E 74 20 71 75 65 20 6C 27 6F intenant que l'o
0000A0: 6E 20 65 73 74 20 73 75 72 20 64 27 61 76 6F 69 n est sur d'avoi
0000B0: 72 20 20 75 6E 20 20 43 52 2F 44 44 20 20 70 6C r un CR/DD pl
0000C0: 75 73 20 20 67 72 61 6E 64 20 71 75 65 20 4C 4D us grand que LM
0000D0: 41 58 20 2C 20 73 61 0D 0A 20 6C 65 63 74 75 72 AX , sa.. lectur
0000E0: 65 20 70 61 72 20 4C 49 54 46 44 43 34 20 6E 6F e par LITFDC4 no
0000F0: 75 73 20 64 6F 6E 6E 65 72 61 20 74 6F 75 74 20 us donnera tout
000100: 63 65 20 20 71 75 27 69 6C 20 20 66 61 75 74 20 ce qu'il faut
000110: 73 61 76 6F 69 72 20 73 75 72 20 6C 61 20 74 61 savoir sur la ta
000120: 69 6C 6C 65 20 64 65 0D 0A 20 66 6F 72 6D 61 74 ille de.. format
000130: 20 2C 20 6C 65 20 47 41 50 20 2C 20 65 74 63 20 , le GAP , etc
000140: 2E 2E 2E 20 4C 49 54 46 44 43 34 20 65 73 74 20 ... LITFDC4 est
000150: 75 6E 65 20 72 6F 75 74 69 6E 65 20 73 70 7B 63 une routine sp{c
000160: 69 61 6C 65 20 71 75 69 20 73 65 72 61 20 65 78 iale qui sera ex
000170: 70 6C 69 71 75 7B 65 0D 0A 20 64 61 6E 73 20 6C pliqu{e.. dans l
000180: 61 20 73 65 63 74 69 6F 6E 20 52 4F 55 54 49 4E a section ROUTIN
000190: 45 53 20 2E 0D 0A 20 0D 0A 20 20 20 20 20 20 20 ES ... ..
0001A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001B0: 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D -----------
0001C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 3B 0D -----------.. ;.
0001D0: 0A 20 46 49 4E 44 43 52 44 44 20 44 45 43 20 48 . FINDCRDD DEC H
0001E0: 4C 20 20 20 20 20 20 20 3B 52 65 70 6F 69 6E 74 L ;Repoint
0001F0: 65 72 20 64 65 62 75 74 20 49 44 20 43 52 2F 44 er debut ID CR/D
Size : 512 (Real : 512)
000000: 44 0D 0A 20 20 20 20 20 20 20 20 20 44 45 43 20 D.. DEC
000010: 48 4C 0D 0A 20 20 20 20 20 20 20 20 20 44 45 43 HL.. DEC
000020: 20 48 4C 0D 0A 20 20 20 20 20 20 20 20 20 43 41 HL.. CA
000030: 4C 4C 20 54 52 41 4E 53 33 49 44 20 3B 45 74 20 LL TRANS3ID ;Et
000040: 66 69 78 65 72 20 70 61 72 61 6D 65 74 72 65 73 fixer parametres
000050: 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 4C .. ;.. L
000060: 44 20 48 4C 2C 54 46 47 41 50 31 41 20 3B 54 65 D HL,TFGAP1A ;Te
000070: 78 74 65 20 61 6E 61 6C 79 73 65 20 43 52 2F 44 xte analyse CR/D
000080: 44 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C D.. CALL
000090: 20 50 52 54 0D 0A 20 20 20 20 20 20 20 20 20 4C PRT.. L
0000A0: 44 20 41 2C 23 34 36 20 20 20 20 20 20 3B 4C 69 D A,#46 ;Li
0000B0: 74 20 46 44 43 34 20 64 6F 6E 6E 65 20 6C 27 6F t FDC4 donne l'o
0000C0: 63 74 65 74 20 64 65 20 72 65 6D 70 6C 69 73 73 ctet de rempliss
0000D0: 61 67 65 20 2C 20 6C 65 20 47 41 50 0D 0A 20 20 age , le GAP..
0000E0: 20 20 20 20 20 20 20 4C 44 20 48 4C 2C 4C 49 54 LD HL,LIT
0000F0: 46 44 43 34 20 3B 6C 61 20 6C 6F 6E 67 75 65 75 FDC4 ;la longueu
000100: 72 20 64 75 20 47 41 50 20 65 74 20 6C 61 20 6C r du GAP et la l
000110: 6F 6E 67 75 65 75 72 20 72 65 65 6C 6C 65 20 65 ongueur reelle e
000120: 6E 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C n.. CALL
000130: 20 53 45 54 43 4F 4D 32 20 20 3B 6F 63 74 65 74 SETCOM2 ;octet
000140: 73 20 64 27 61 70 72 65 73 20 75 6E 20 43 52 2F s d'apres un CR/
000150: 44 44 20 3E 20 71 75 65 20 6C 61 20 6E 6F 72 6D DD > que la norm
000160: 61 6C 65 0D 0A 20 20 20 20 20 20 20 20 20 43 41 ale.. CA
000170: 4C 4C 20 56 49 53 49 4E 53 54 20 20 3B 56 69 73 LL VISINST ;Vis
000180: 65 72 20 73 65 63 74 65 75 72 20 65 74 20 65 78 er secteur et ex
000190: 65 63 75 74 65 72 20 69 6E 73 74 72 75 63 74 69 ecuter instructi
0001A0: 6F 6E 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 on.. ;..
0001B0: 20 4C 44 20 48 4C 2C 46 4C 41 47 46 4E 43 20 3B LD HL,FLAGFNC ;
0001C0: 53 65 63 74 65 75 72 20 6C 75 20 65 74 20 73 74 Secteur lu et st
0001D0: 6F 63 6B 65 20 2E 20 53 69 67 6E 61 6C 65 72 20 ocke . Signaler
0001E0: 6F 63 74 65 74 20 66 6F 72 6D 61 74 61 67 65 0D octet formatage.
0001F0: 0A 20 20 20 20 20 20 20 20 20 53 45 54 20 30 2C . SET 0,
Size : 512 (Real : 512)
000000: 20 20 20 20 21 0D 0A 20 20 45 54 20 46 49 4E 49 !.. ET FINI
000010: 20 20 20 20 20 21 20 20 21 20 20 20 20 20 20 20 ! !
000020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 !
000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000040: 20 20 20 20 20 21 0D 0A 20 20 20 20 20 20 20 20 !..
000050: 20 20 20 20 20 20 21 20 20 21 20 20 20 20 20 20 ! !
000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2B +
000070: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000080: 2D 2D 2D 2D 2B 20 21 0D 0A 20 20 20 20 20 20 20 ----+ !..
000090: 20 20 20 20 20 20 20 21 20 20 21 20 20 20 20 20 ! !
0000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000C0: 20 20 20 20 20 21 20 21 0D 0A 20 20 20 20 20 20 ! !..
0000D0: 20 20 20 20 20 20 20 20 21 20 20 2B 2D 2D 2D 2D ! +----
0000E0: 2D 2D 2D 3E 20 52 45 43 48 45 52 43 48 45 20 50 ---> RECHERCHE P
0000F0: 41 52 20 53 4F 4C 55 54 49 4F 4E 33 20 20 20 20 AR SOLUTION3
000100: 20 20 20 20 20 20 21 20 21 0D 0A 20 20 20 20 20 ! !..
000110: 20 20 20 20 20 20 20 20 20 21 20 20 20 20 20 20 !
000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 55 REU
000130: 53 53 49 20 3F 20 20 20 20 20 20 20 20 20 20 20 SSI ?
000140: 20 20 20 20 20 20 20 21 20 21 0D 0A 20 20 20 20 ! !..
000150: 20 20 20 20 20 20 20 20 20 20 21 20 20 20 20 20 !
000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000170: 20 20 21 20 20 20 20 20 20 20 20 20 20 20 20 20 !
000180: 20 20 20 20 20 20 20 20 21 20 21 0D 0A 20 20 20 ! !..
000190: 20 20 20 20 20 20 20 20 20 20 20 21 20 20 20 20 !
0001A0: 2B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 3C 20 +-------------<
0001B0: 4F 55 49 20 4E 4F 4E 20 3E 2D 2D 2D 2D 2D 2D 2B OUI NON >------+
0001C0: 20 20 20 20 20 20 20 20 20 21 20 21 0D 0A 20 20 ! !..
0001D0: 20 20 20 20 20 20 20 20 20 20 20 20 21 20 20 20 !
0001E0: 20 21 20 20 20 20 20 20 20 20 20 20 20 20 20 20 !
0001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
Size : 512 (Real : 512)
000000: 21 20 20 20 20 20 20 20 20 20 21 20 21 0D 0A 20 ! ! !..
000010: 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 20 !
000020: 20 20 21 20 20 20 20 20 20 20 20 20 20 20 41 55 ! AU
000030: 54 52 45 20 52 45 43 48 45 52 43 48 45 20 3C 2D TRE RECHERCHE <-
000040: 2D 2B 20 20 20 20 20 20 20 20 20 21 20 21 0D 0A -+ ! !..
000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 !
000060: 20 20 20 21 20 20 20 20 20 20 20 20 20 20 20 20 !
000070: 20 20 20 20 20 20 21 20 20 20 20 20 20 20 20 20 !
000080: 20 20 20 20 20 20 20 20 20 20 20 20 21 20 21 0D ! !.
000090: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 . !
0000A0: 20 20 20 20 2B 2D 2D 2D 2D 2D 2D 3E 20 4E 4F 54 +------> NOT
0000B0: 45 52 20 53 45 43 54 45 55 52 53 20 45 43 52 41 ER SECTEURS ECRA
0000C0: 53 45 53 20 20 20 20 20 20 20 20 20 20 21 20 21 SES ! !
0000D0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
0000E0: 21 20 20 20 20 20 20 20 20 54 52 4F 55 56 45 52 ! TROUVER
0000F0: 20 52 45 4D 50 4C 49 53 53 41 47 45 20 53 49 20 REMPLISSAGE SI
000100: 50 4F 53 53 49 42 4C 45 20 20 20 20 20 20 21 20 POSSIBLE !
000110: 21 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 !..
000120: 20 21 20 20 20 20 20 20 41 4C 4C 45 52 20 45 43 ! ALLER EC
000130: 52 41 53 45 52 20 4C 45 53 20 53 45 43 54 45 55 RASER LES SECTEU
000140: 52 53 20 45 54 20 46 49 4E 49 20 20 20 20 20 21 RS ET FINI !
000150: 20 21 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 !..
000160: 20 20 21 20 20 20 20 20 20 20 20 20 20 20 20 20 !
000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000190: 21 20 21 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ! !..
0001A0: 20 20 20 2B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 3E 20 +---------->
0001B0: 52 45 43 48 45 52 43 48 45 20 50 41 52 20 53 4F RECHERCHE PAR SO
0001C0: 4C 55 54 49 4F 4E 34 20 20 20 20 20 20 20 20 20 LUTION4
0001D0: 20 21 20 21 0D 0A 20 20 20 20 20 20 20 20 20 20 ! !..
0001E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001F0: 20 20 20 50 52 45 53 45 4E 43 45 20 45 43 52 41 PRESENCE ECRA
Size : 512 (Real : 512)
000000: 53 45 53 20 3F 20 20 20 20 20 20 20 20 20 20 20 SES ?
000010: 20 20 21 20 21 0D 0A 20 20 20 20 20 20 20 20 20 ! !..
000020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 20 !
000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000050: 20 20 20 21 20 21 0D 0A 20 45 43 52 41 53 45 52 ! !.. ECRASER
000060: 20 45 54 20 46 49 4E 49 20 3C 2D 2D 2D 2D 2D 2D ET FINI <------
000070: 2D 2D 2D 2D 2D 2D 2D 2D 2D 3C 20 4F 55 49 20 4E ---------< OUI N
000080: 4F 4E 20 3E 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ON >------------
000090: 2D 2D 2B 20 21 20 21 0D 0A 20 20 20 20 20 20 20 --+ ! !..
0000A0: 20 5E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ^
0000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000D0: 20 20 20 21 20 21 20 21 0D 0A 20 20 20 20 20 20 ! ! !..
0000E0: 20 20 21 20 20 20 20 20 20 20 20 20 20 20 20 44 ! D
0000F0: 45 54 45 52 4D 49 4E 45 52 20 52 45 4D 50 4C 49 ETERMINER REMPLI
000100: 53 53 41 47 45 20 53 49 20 50 4F 53 53 49 42 4C SSAGE SI POSSIBL
000110: 45 20 3C 2D 2B 2D 21 2D 2B 0D 0A 20 20 20 20 20 E <-+-!-+..
000120: 20 20 20 21 20 20 20 20 20 20 20 20 20 20 20 20 !
000130: 20 20 20 20 20 20 54 45 53 54 45 52 20 50 52 45 TESTER PRE
000140: 53 45 4E 43 45 20 45 43 52 41 53 45 53 20 3C 2D SENCE ECRASES <-
000150: 2D 2D 2D 2D 2D 2D 2D 2B 0D 0A 20 20 20 20 20 20 -------+..
000160: 20 20 21 20 20 20 20 20 20 20 20 20 20 20 20 20 !
000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000180: 21 0D 0A 20 20 20 20 20 20 20 20 2B 2D 2D 2D 2D !.. +----
000190: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0001A0: 2D 2D 2D 2D 3C 20 4F 55 49 20 4E 4F 4E 20 3E 2D ----< OUI NON >-
0001B0: 2D 2D 2D 2D 2D 2D 2D 2D 3E 20 46 49 4E 49 0D 0A --------> FINI..
0001C0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
0001D0: 20 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D ---------
0001E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0001F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 46 49 4E ----------.. FIN
Size : 512 (Real : 512)
000000: 20 44 45 20 53 45 43 54 49 4F 4E 20 2E 20 53 49 DE SECTION . SI
000010: 20 56 4F 55 53 20 56 4F 55 53 20 53 45 4E 54 45 VOUS VOUS SENTE
000020: 5A 20 45 4E 20 46 4F 52 4D 45 20 2C 20 50 4F 55 Z EN FORME , POU
000030: 52 53 55 49 56 45 5A 20 41 56 45 43 20 54 45 53 RSUIVEZ AVEC TES
000040: 54 20 50 49 53 54 45 20 31 0D 0A 20 20 20 20 20 T PISTE 1..
000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000060: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000070: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000080: 2D 2D 2D 1A 54 52 55 32 0D 0A 20 20 20 20 20 20 ---.TRU2..
000090: 20 20 20 43 41 4C 4C 20 52 45 53 55 4C 54 0D 0A CALL RESULT..
0000A0: 20 20 20 20 20 20 20 20 20 44 4A 4E 5A 20 50 4F DJNZ PO
0000B0: 49 4E 53 45 43 0D 0A 20 20 20 20 20 20 20 20 20 INSEC..
0000C0: 50 4F 50 20 42 43 0D 0A 20 3B 0D 0A 20 20 20 20 POP BC.. ;..
0000D0: 20 20 20 20 20 4A 50 20 49 4E 53 54 52 55 39 0D JP INSTRU9.
0000E0: 0A 20 3B 0D 0A 20 3B 2D 20 41 66 66 69 63 68 65 . ;.. ;- Affiche
0000F0: 72 20 6C 65 73 20 65 72 72 65 75 72 73 20 61 20 r les erreurs a
000100: 3B 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 41 ;.. LD A
000110: 2C 28 46 4C 41 47 49 4D 50 29 20 20 3B 49 6D 70 ,(FLAGIMP) ;Imp
000120: 72 65 73 73 69 6F 6E 20 65 6E 20 63 6F 75 72 73 ression en cours
000130: 20 3F 0D 0A 20 20 20 20 20 20 20 20 20 4F 52 20 ?.. OR
000140: 41 0D 0A 20 20 20 20 20 20 20 20 20 52 45 54 20 A.. RET
000150: 5A 20 20 20 20 20 20 20 20 20 20 20 3B 4E 6F 6E Z ;Non
000160: 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 43 .. ;.. C
000170: 41 4C 4C 20 53 45 54 49 4D 50 20 20 20 20 20 3B ALL SETIMP ;
000180: 4F 75 69 0D 0A 20 20 20 20 20 20 20 20 20 43 41 Oui.. CA
000190: 4C 4C 20 49 4D 50 50 49 53 54 20 20 20 20 3B 49 LL IMPPIST ;I
0001A0: 6D 70 72 69 6D 65 72 20 6E 75 6D 7B 72 6F 20 64 mprimer num{ro d
0001B0: 65 20 70 69 73 74 65 0D 0A 20 20 20 20 20 20 20 e piste..
0001C0: 20 20 4C 44 20 48 4C 2C 54 50 41 46 4F 52 4D 20 LD HL,TPAFORM
0001D0: 20 20 3B 45 74 20 70 61 73 20 66 6F 72 6D 61 74 ;Et pas format
0001E0: 65 65 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C ee.. CAL
0001F0: 4C 20 50 52 54 0D 0A 20 20 20 20 20 20 20 20 20 L PRT..
Size : 512 (Real : 512)
000000: 20 28 4A 65 20 20 64 6F 75 74 65 20 20 64 75 20 (Je doute du
000010: 20 72 65 73 74 65 20 20 71 75 27 75 6E 20 20 63 reste qu'un c
000020: 6F 64 65 20 62 69 6E 61 69 72 65 20 6C 65 20 66 ode binaire le f
000030: 61 69 73 61 6E 74 0D 0A 20 70 75 69 73 73 65 20 aisant.. puisse
000040: 65 08 5E 74 72 65 20 63 6F 6E 74 65 6E 75 20 64 e.^tre contenu d
000050: 61 6E 73 20 6C 61 20 52 41 4D 20 64 75 20 43 50 ans la RAM du CP
000060: 43 29 20 2E 0D 0A 20 20 20 20 20 32 20 2D 20 50 C) ... 2 - P
000070: 6F 75 72 20 71 75 65 20 63 65 6C 61 20 66 6F 6E our que cela fon
000080: 63 74 69 6F 6E 6E 65 20 20 2C 20 20 69 6C 20 20 ctionne , il
000090: 66 61 75 74 20 20 63 6F 6E 6E 61 69 08 5E 74 72 faut connai.^tr
0000A0: 65 20 40 20 66 6F 6E 64 20 6C 65 20 73 79 73 74 e @ fond le syst
0000B0: 7D 6D 65 20 64 65 0D 0A 20 70 72 6F 74 65 63 74 }me de.. protect
0000C0: 69 6F 6E 20 65 6D 70 6C 6F 79 7B 20 70 6F 75 72 ion employ{ pour
0000D0: 20 20 74 65 73 74 65 72 20 20 6C 61 20 20 70 69 tester la pi
0000E0: 73 74 65 20 20 2E 20 20 4F 75 20 20 6F 6E 20 20 ste . Ou on
0000F0: 61 70 70 65 6C 65 20 20 5C 61 20 20 75 6E 20 76 appele \a un v
000100: 69 6F 6C 20 64 65 0D 0A 20 63 6F 70 69 72 79 67 iol de.. copiryg
000110: 68 74 20 6F 75 20 6A 65 20 73 75 69 73 20 6C 27 ht ou je suis l'
000120: 7B 76 65 08 5E 71 75 65 20 64 27 41 75 74 75 6E {ve.^que d'Autun
000130: 20 2E 2E 2E 0D 0A 20 20 20 20 20 53 69 20 76 6F ..... Si vo
000140: 75 73 20 61 76 65 7A 20 7B 63 72 61 73 7B 20 61 us avez {cras{ a
000150: 76 65 63 20 20 73 75 62 74 69 6C 69 74 7B 20 20 vec subtilit{
000160: 76 6F 73 20 20 73 65 63 74 65 75 72 73 20 20 2C vos secteurs ,
000170: 20 6C 61 20 72 65 70 72 6F 64 75 63 74 69 6F 6E la reproduction
000180: 20 64 65 73 0D 0A 20 64 6F 6E 6E 7B 65 73 20 20 des.. donn{es
000190: 73 65 72 61 20 20 63 6F 72 72 65 63 74 65 20 20 sera correcte
0001A0: 6D 61 69 73 20 20 63 65 72 74 61 69 6E 73 20 20 mais certains
0001B0: 6F 63 74 65 74 73 20 20 65 6E 74 72 65 20 20 6C octets entre l
0001C0: 65 73 20 20 73 65 63 74 65 75 72 73 20 20 73 65 es secteurs se
0001D0: 72 6F 6E 74 0D 0A 20 64 69 66 66 7B 72 65 6E 74 ront.. diff{rent
0001E0: 73 20 73 75 72 20 6C 61 20 63 6F 70 69 65 20 2E s sur la copie .
0001F0: 20 53 69 20 20 76 6F 75 73 20 20 61 72 72 69 76 Si vous arriv
Size : 512 (Real : 512)
000000: 65 7A 20 20 40 20 20 7B 63 72 69 72 65 20 75 6E ez @ {crire un
000010: 65 20 72 6F 75 74 69 6E 65 20 63 61 70 61 62 6C e routine capabl
000020: 65 20 64 65 0D 0A 20 72 65 70 72 6F 64 75 69 72 e de.. reproduir
000030: 65 20 40 20 6C 27 6F 63 74 65 74 20 70 72 7D 73 e @ l'octet pr}s
000040: 20 63 65 20 67 65 6E 72 65 20 64 65 20 70 69 73 ce genre de pis
000050: 74 65 20 76 6F 74 72 65 20 74 61 6C 65 6E 74 20 te votre talent
000060: 6E 6F 75 73 20 69 6E 74 7B 72 65 73 73 65 20 2E nous int{resse .
000070: 2E 2E 0D 0A 20 20 20 20 20 43 45 20 51 55 27 49 .... CE QU'I
000080: 4C 20 41 55 52 41 49 54 20 50 55 20 46 41 49 52 L AURAIT PU FAIR
000090: 45 20 44 45 20 20 50 4C 55 53 20 20 3A 20 20 28 E DE PLUS : (
0000A0: 45 74 20 20 71 75 27 69 6C 20 66 65 72 61 20 75 Et qu'il fera u
0000B0: 6E 20 6A 6F 75 72 20 70 72 6F 63 68 61 69 6E 20 n jour prochain
0000C0: 65 6E 0D 0A 20 74 61 6E 74 20 71 75 65 20 70 61 en.. tant que pa
0000D0: 72 74 69 65 20 64 27 75 6E 20 74 6F 75 74 20 62 rtie d'un tout b
0000E0: 61 70 74 69 73 7B 20 44 49 53 43 20 20 50 4C 55 aptis{ DISC PLU
0000F0: 53 20 55 4C 54 52 41 20 71 75 69 20 66 65 72 61 S ULTRA qui fera
000100: 20 62 65 61 75 63 6F 75 70 20 64 65 20 62 72 75 beaucoup de bru
000110: 69 74 0D 0A 20 64 61 6E 73 20 6C 65 73 20 63 68 it.. dans les ch
000120: 61 75 6D 69 7D 72 65 73 20 2E 2E 2E 29 20 20 2E aumi}res ...) .
000130: 20 20 52 7B 70 61 72 65 72 20 20 74 6F 74 61 6C R{parer total
000140: 65 6D 65 6E 74 20 20 6C 65 73 20 20 64 69 73 71 ement les disq
000150: 75 65 74 74 65 73 20 44 41 54 41 20 6F 75 20 43 uettes DATA ou C
000160: 50 4D 0D 0A 20 65 6E 64 6F 6D 6D 61 67 7B 65 73 PM.. endommag{es
000170: 20 2C 20 63 6F 70 69 65 72 20 63 6F 6E 76 65 6E , copier conven
000180: 61 62 6C 65 6D 65 6E 74 20 63 65 72 74 61 69 6E ablement certain
000190: 73 20 20 63 61 73 20 20 74 72 7D 73 20 70 61 72 s cas tr}s par
0001A0: 74 69 63 75 6C 69 65 72 73 20 2C 20 63 6F 70 69 ticuliers , copi
0001B0: 65 72 0D 0A 20 70 6C 75 73 20 72 61 70 69 64 65 er.. plus rapide
0001C0: 6D 65 6E 74 20 2C 20 65 08 5E 74 72 65 20 70 6C ment , e.^tre pl
0001D0: 75 73 20 6A 6F 6C 69 20 65 74 20 70 6C 75 73 20 us joli et plus
0001E0: 65 72 67 6F 6E 6F 6D 69 71 75 65 20 2C 20 65 74 ergonomique , et
0001F0: 63 20 2E 2E 2E 0D 0A 20 20 20 20 20 50 4F 55 52 c ..... POUR
Size : 512 (Real : 512)
000000: 01 9F 20 1E 92 27 00 5F 00 2E 4F 0B 00 00 63 B0 .. ..'._..O...c.
000010: EF 10 01 0B 00 00 63 B1 EF 0E 01 0B 00 00 63 B2 ......c.......c.
000020: EF 0F 01 0B 00 00 63 B3 EF 11 01 0B 00 00 E3 EF ......c.........
000030: 0B 00 00 63 B2 01 0B 00 00 77 B1 EF 17 01 0B 00 ...c.....w......
000040: 00 77 B2 EF 19 20 01 0B 00 00 77 B3 EF 19 0B 01 .w... ....w.....
000050: 0B 00 00 77 B4 EF 19 15 01 0B 00 00 E1 EF 0E 01 ...w............
000060: A0 20 1E 70 4E 00 00 00 1A 66 F1 DD AB 36 F2 69 . .pN....f...6.i
000070: F1 CB BE AC 5A C9 5A 32 07 E3 9B FA BF 6A C2 7B ....Z.Z2.....j.{
000080: 65 20 66 65 6E 65 74 72 65 20 72 65 70 6F 6E 73 e fenetre repons
000090: 65 73 20 73 69 20 61 3D 2D 31 36 20 2A 2A 2A 00 es si a=-16 ***.
0000A0: 07 00 F2 4E 01 C0 00 3B 00 FC 4E 0B 00 00 77 B1 ...N...;..N...w.
0000B0: EF 19 0A 01 0B 00 00 77 B2 EF 19 1F 01 0B 00 00 .......w........
0000C0: 77 B3 EF 19 0A 01 0B 00 00 77 B4 EF 19 0A 01 0B w........w......
0000D0: 00 00 E1 EF 10 01 9F 20 1E AC 4E 01 A0 20 1E 2E ....... ..N.. ..
0000E0: 4F 00 07 00 06 4F 01 C0 00 25 00 10 4F 01 C0 2A O....O...%..O..*
0000F0: 2A 2A 20 49 6E 69 74 69 61 6C 69 73 61 74 69 6F ** Initialisatio
000100: 6E 20 6D 65 6E 75 73 20 32 20 2A 2A 2A 00 07 00 n menus 2 ***...
000110: 1A 4F 01 C0 00 F2 00 24 4F 0B 00 00 E1 EF 10 01 .O.....$O.......
000120: 9F 20 1E A2 4E 01 0B 00 00 77 B1 EF 12 01 0B 00 . ..N....w......
000130: 00 77 B2 EF 14 01 0B 00 00 77 B3 EF 19 0B 01 0B .w.......w......
000140: 00 00 77 B4 EF 19 15 01 0B 00 00 E1 EF 0E 01 9F ..w.............
000150: 20 1E AC 4E 01 0B 00 00 77 B1 EF 19 23 01 0B 00 ..N....w...#...
000160: 00 77 B2 EF 19 25 01 9F 20 1E AC 4E 01 03 00 00 .w...%.. ..N....
000170: E2 EF 22 20 53 45 43 54 49 4F 4E 20 22 01 7C 00 .." SECTION ".|.
000180: 50 52 54 D6 2C 0E 2C 11 2C 0E 2C 13 2C 19 0C 2C PRT.,.,.,.,.,..,
000190: 40 03 00 00 E2 01 7C 00 50 52 54 D6 2C 0E 2C 11 @.....|.PRT.,.,.
0001A0: 2C 0E 2C 19 24 2C 19 0C 2C 40 03 00 00 E3 01 0B ,.,.$,..,@......
0001B0: 00 00 F8 EF 13 01 0B 00 00 F9 EF 19 0C 01 0B 00 ................
0001C0: 00 EC EF 0F 01 0B 00 00 E8 EF FF 0E 28 03 00 00 ............(...
0001D0: E2 29 01 0B 00 00 E3 EF 0F 01 0B 00 00 F4 EF 12 .)..............
0001E0: 01 0B 00 00 64 EC EF 19 10 01 0B 00 00 64 E8 EF ....d........d..
0001F0: 19 10 01 9F 20 1E 92 27 01 0B 00 00 F8 EF 19 24 .... ..'.......$
Size : 512 (Real : 512)
000000: 20 20 4A 50 20 50 2C 54 45 53 54 46 44 43 0D 0A JP P,TESTFDC..
000010: 20 20 41 4E 44 20 23 32 30 0D 0A 20 20 4A 52 20 AND #20.. JR
000020: 4E 5A 2C 42 43 4C 57 52 54 0D 0A 20 4F 55 54 57 NZ,BCLWRT.. OUTW
000030: 52 49 54 20 4C 44 20 28 4E 42 4C 55 53 29 2C 44 RIT LD (NBLUS),D
000040: 45 0D 0A 20 20 4A 50 20 52 45 53 55 4C 54 0D 0A E.. JP RESULT..
000050: 20 3B 0D 0A 20 57 52 49 54 46 44 43 32 20 4C 44 ;.. WRITFDC2 LD
000060: 20 44 45 2C 30 20 20 20 20 20 20 20 20 3B 52 45 DE,0 ;RE
000070: 50 45 54 45 52 20 4C 45 20 4D 45 4D 45 20 4F 43 PETER LE MEME OC
000080: 54 45 54 20 45 4E 20 45 43 52 49 54 55 52 45 0D TET EN ECRITURE.
000090: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 48 4C 2C . LD HL,
0000A0: 28 41 44 42 55 46 46 29 20 20 3B 48 4C 20 6E 27 (ADBUFF) ;HL n'
0000B0: 65 73 74 20 6A 61 6D 61 69 73 20 69 6E 63 72 65 est jamais incre
0000C0: 6D 65 6E 74 65 0D 0A 20 20 20 20 20 20 20 20 20 mente..
0000D0: 4A 52 20 54 45 53 54 46 44 43 32 0D 0A 20 42 43 JR TESTFDC2.. BC
0000E0: 4C 57 52 54 31 20 49 4E 43 20 43 0D 0A 20 20 20 LWRT1 INC C..
0000F0: 20 20 20 20 20 20 4C 44 20 41 2C 28 48 4C 29 0D LD A,(HL).
000100: 0A 20 20 20 20 20 20 20 20 20 4F 55 54 20 28 43 . OUT (C
000110: 29 2C 41 0D 0A 20 20 20 20 20 20 20 20 20 44 45 ),A.. DE
000120: 43 20 43 0D 0A 20 20 20 20 20 20 20 20 20 49 4E C C.. IN
000130: 43 20 44 45 0D 0A 20 54 45 53 54 46 44 43 32 20 C DE.. TESTFDC2
000140: 49 4E 20 41 2C 28 43 29 0D 0A 20 20 20 20 20 20 IN A,(C)..
000150: 20 20 20 4A 50 20 50 2C 54 45 53 54 46 44 43 32 JP P,TESTFDC2
000160: 0D 0A 20 20 20 20 20 20 20 20 20 41 4E 44 20 23 .. AND #
000170: 32 30 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 20 20.. JR
000180: 4E 5A 2C 42 43 4C 57 52 54 31 0D 0A 20 20 20 20 NZ,BCLWRT1..
000190: 20 20 20 20 20 4A 52 20 4F 55 54 57 52 49 54 0D JR OUTWRIT.
0001A0: 0A 20 3B 0D 0A 20 4C 49 54 46 44 43 20 20 4C 44 . ;.. LITFDC LD
0001B0: 20 44 45 2C 28 4E 42 41 4C 49 52 45 29 20 20 3B DE,(NBALIRE) ;
0001C0: 2D 20 4C 69 72 65 20 65 74 20 73 74 6F 63 6B 65 - Lire et stocke
0001D0: 72 20 6C 65 20 6E 6F 6D 62 72 65 20 64 27 6F 63 r le nombre d'oc
0001E0: 74 65 74 73 20 64 6F 6E 6E 65 73 0D 0A 20 20 4C tets donnes.. L
0001F0: 44 20 48 4C 2C 28 41 44 42 55 46 46 29 0D 0A 20 D HL,(ADBUFF)..
Size : 512 (Real : 512)
000000: 20 45 54 31 0D 0A 20 20 42 49 54 20 35 2C 28 48 ET1.. BIT 5,(H
000010: 4C 29 0D 0A 20 20 4A 52 20 5A 2C 4E 4F 45 52 43 L).. JR Z,NOERC
000020: 52 43 0D 0A 20 20 53 45 54 20 35 2C 28 49 59 2B RC.. SET 5,(IY+
000030: 30 29 0D 0A 20 4E 4F 45 52 43 52 43 20 42 49 54 0).. NOERCRC BIT
000040: 20 32 2C 28 48 4C 29 0D 0A 20 20 4A 52 20 5A 2C 2,(HL).. JR Z,
000050: 4F 4B 44 41 54 41 0D 0A 20 20 53 45 54 20 34 2C OKDATA.. SET 4,
000060: 28 49 59 2B 30 29 0D 0A 20 4F 4B 44 41 54 41 20 (IY+0).. OKDATA
000070: 20 42 49 54 20 30 2C 28 48 4C 29 0D 0A 20 20 4A BIT 0,(HL).. J
000080: 52 20 5A 2C 4F 4B 4D 41 0D 0A 20 20 53 45 54 20 R Z,OKMA.. SET
000090: 31 2C 28 49 59 2B 30 29 0D 0A 20 4F 4B 4D 41 20 1,(IY+0).. OKMA
0000A0: 20 20 20 49 4E 43 20 48 4C 20 3B 53 75 72 20 45 INC HL ;Sur E
0000B0: 54 32 0D 0A 20 20 42 49 54 20 36 2C 28 48 4C 29 T2.. BIT 6,(HL)
0000C0: 0D 0A 20 20 4A 52 20 5A 2C 4F 4B 43 4D 0D 0A 20 .. JR Z,OKCM..
0000D0: 20 53 45 54 20 33 2C 28 49 59 2B 30 29 0D 0A 20 SET 3,(IY+0)..
0000E0: 4F 4B 43 4D 20 20 20 20 42 49 54 20 35 2C 28 48 OKCM BIT 5,(H
0000F0: 4C 29 0D 0A 20 20 4A 52 20 5A 2C 4F 4B 44 44 0D L).. JR Z,OKDD.
000100: 0A 20 20 53 45 54 20 32 2C 28 49 59 2B 30 29 0D . SET 2,(IY+0).
000110: 0A 20 4F 4B 44 44 20 20 20 20 42 49 54 20 30 2C . OKDD BIT 0,
000120: 28 48 4C 29 0D 0A 20 20 4A 52 20 5A 2C 4F 4B 44 (HL).. JR Z,OKD
000130: 41 0D 0A 20 20 53 45 54 20 30 2C 28 49 59 2B 30 A.. SET 0,(IY+0
000140: 29 0D 0A 20 4F 4B 44 41 20 20 20 20 4C 44 20 41 ).. OKDA LD A
000150: 2C 28 51 55 41 54 52 49 44 29 0D 0A 20 20 4C 44 ,(QUATRID).. LD
000160: 20 4C 2C 41 0D 0A 20 20 4C 44 20 41 2C 28 50 49 L,A.. LD A,(PI
000170: 53 54 53 45 4C 29 0D 0A 20 20 53 55 42 20 4C 0D STSEL).. SUB L.
000180: 0A 20 20 52 45 54 20 5A 0D 0A 20 20 53 45 54 20 . RET Z.. SET
000190: 37 2C 28 49 59 2B 30 29 0D 0A 20 20 52 45 54 0D 7,(IY+0).. RET.
0001A0: 0A 20 54 45 4D 50 41 4D 53 20 50 55 53 48 20 41 . TEMPAMS PUSH A
0001B0: 46 20 20 20 20 20 20 20 20 20 3B 20 54 65 6D 70 F ; Temp
0001C0: 6F 72 69 73 61 74 69 6F 6E 20 64 65 20 41 2A 32 orisation de A*2
0001D0: 37 20 4D 73 0D 0A 20 20 4C 44 20 41 2C 31 32 0D 7 Ms.. LD A,12.
0001E0: 0A 20 20 43 41 4C 4C 20 54 45 4D 50 4D 49 4C 0D . CALL TEMPMIL.
0001F0: 0A 20 20 50 4F 50 20 41 46 0D 0A 20 20 44 45 43 . POP AF.. DEC
Size : 512 (Real : 512)
000000: 20 41 0D 0A 20 20 4A 52 20 4E 5A 2C 54 45 4D 50 A.. JR NZ,TEMP
000010: 41 4D 53 0D 0A 20 20 4C 44 20 41 2C 31 35 0D 0A AMS.. LD A,15..
000020: 20 20 43 41 4C 4C 20 54 45 4D 50 4D 49 4C 0D 0A CALL TEMPMIL..
000030: 20 20 4A 52 20 4C 49 54 53 54 41 54 0D 0A 20 3B JR LITSTAT.. ;
000040: 0D 0A 20 20 54 45 4D 50 4D 49 4C 20 50 55 53 48 .. TEMPMIL PUSH
000050: 20 41 46 0D 0A 20 20 4C 44 20 41 2C 23 46 36 0D AF.. LD A,#F6.
000060: 0A 20 42 43 4C 54 45 4D 50 20 44 45 43 20 41 0D . BCLTEMP DEC A.
000070: 0A 20 20 4A 52 20 4E 5A 2C 42 43 4C 54 45 4D 50 . JR NZ,BCLTEMP
000080: 0D 0A 20 20 50 4F 50 20 41 46 0D 0A 20 20 44 45 .. POP AF.. DE
000090: 43 20 41 0D 0A 20 20 4A 52 20 4E 5A 2C 54 45 4D C A.. JR NZ,TEM
0000A0: 50 4D 49 4C 0D 0A 20 20 52 45 54 0D 0A 20 3B 0D PMIL.. RET.. ;.
0000B0: 0A 20 52 41 5A 49 4E 54 45 20 43 41 4C 4C 20 4C . RAZINTE CALL L
0000C0: 49 54 53 54 41 54 20 3B 2D 20 41 74 74 65 6E 64 ITSTAT ;- Attend
0000D0: 72 65 20 71 75 65 20 6C 65 20 46 44 43 20 73 6F re que le FDC so
0000E0: 69 74 20 62 69 65 6E 20 64 69 73 70 6F 73 65 20 it bien dispose
0000F0: 2D 0D 0A 20 20 43 50 20 23 38 30 0D 0A 20 20 4A -.. CP #80.. J
000100: 52 20 4E 5A 2C 52 41 5A 49 4E 54 45 0D 0A 20 20 R NZ,RAZINTE..
000110: 52 45 54 0D 0A 20 3B 0D 0A 20 54 53 54 44 52 49 RET.. ;.. TSTDRI
000120: 56 20 43 41 4C 4C 20 52 41 5A 49 4E 54 45 20 3B V CALL RAZINTE ;
000130: 2D 20 54 65 73 74 20 64 72 69 76 65 20 2D 0D 0A - Test drive -..
000140: 20 20 4C 44 20 41 2C 34 0D 0A 20 20 43 41 4C 4C LD A,4.. CALL
000150: 20 49 4E 53 54 52 55 31 20 3B 45 6E 76 6F 79 65 INSTRU1 ;Envoye
000160: 72 20 69 6E 73 74 72 75 63 74 69 6F 6E 20 26 20 r instruction &
000170: 64 72 69 76 65 0D 0A 20 20 4A 50 20 52 45 53 55 drive.. JP RESU
000180: 4C 54 0D 0A 20 3B 0D 0A 20 4C 49 54 53 54 41 54 LT.. ;.. LITSTAT
000190: 20 4C 44 20 41 2C 23 30 38 20 20 20 20 3B 4C 69 LD A,#08 ;Li
0001A0: 72 65 20 73 74 61 74 75 74 73 20 46 44 43 20 2D re statuts FDC -
0001B0: 0D 0A 20 20 43 41 4C 4C 20 45 4E 56 4F 46 44 43 .. CALL ENVOFDC
0001C0: 0D 0A 20 20 4A 50 20 52 45 53 55 4C 54 0D 0A 20 .. JP RESULT..
0001D0: 3B 0D 0A 20 3B 2D 20 54 65 74 65 20 73 75 72 20 ;.. ;- Tete sur
0001E0: 6C 61 20 70 69 73 74 65 20 30 20 2D 0D 0A 20 3B la piste 0 -.. ;
0001F0: 0D 0A 20 43 41 4C 49 42 52 45 20 4C 44 20 41 2C .. CALIBRE LD A,
Size : 512 (Real : 512)
000000: 37 20 20 20 20 20 20 20 20 20 20 3B 52 45 53 54 7 ;REST
000010: 52 55 43 54 55 52 45 20 44 45 20 4D 41 4E 49 45 RUCTURE DE MANIE
000020: 52 45 20 41 20 54 45 53 54 45 52 20 55 4E 20 45 RE A TESTER UN E
000030: 56 45 4E 54 55 45 4C 0D 0A 20 20 20 20 20 20 20 VENTUEL..
000040: 20 20 43 41 4C 4C 20 49 4E 53 54 52 55 31 20 20 CALL INSTRU1
000050: 20 20 3B 27 44 49 53 43 20 4D 49 53 53 49 4E 47 ;'DISC MISSING
000060: 27 20 4C 4F 52 53 20 44 45 20 47 4F 50 49 53 54 ' LORS DE GOPIST
000070: 45 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C E.. CALL
000080: 20 54 45 4D 50 31 0D 0A 20 20 20 20 20 20 20 20 TEMP1..
000090: 20 4C 44 20 41 2C 28 45 54 31 29 0D 0A 20 20 20 LD A,(ET1)..
0000A0: 20 20 20 20 20 20 4F 52 20 41 0D 0A 20 20 20 20 OR A..
0000B0: 20 20 20 20 20 4A 52 20 4E 5A 2C 43 41 4C 49 42 JR NZ,CALIB
0000C0: 52 45 0D 0A 20 20 20 20 20 20 20 20 20 52 45 54 RE.. RET
0000D0: 0D 0A 20 3B 0D 0A 20 47 4F 50 49 53 54 4E 20 4C .. ;.. GOPISTN L
0000E0: 44 20 41 2C 23 46 20 20 20 20 20 20 20 20 20 3B D A,#F ;
0000F0: 41 6C 6C 65 72 20 65 6E 20 70 69 73 74 65 20 4E Aller en piste N
000100: 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 .. CALL
000110: 49 4E 53 54 52 55 20 20 20 20 20 3B 45 6E 76 6F INSTRU ;Envo
000120: 79 65 72 20 69 6E 73 74 72 75 63 74 69 6F 6E 20 yer instruction
000130: 2C 20 64 72 69 76 65 20 65 74 20 70 69 73 74 65 , drive et piste
000140: 20 73 65 6C 65 63 74 69 6F 6E 6E 65 73 0D 0A 20 selectionnes..
000150: 54 45 4D 50 31 20 20 20 4C 44 20 41 2C 28 57 41 TEMP1 LD A,(WA
000160: 49 54 50 49 53 29 0D 0A 20 20 20 20 20 20 20 20 ITPIS)..
000170: 20 43 41 4C 4C 20 54 45 4D 50 41 4D 53 0D 0A 20 CALL TEMPAMS..
000180: 3B 0D 0A 20 52 45 54 54 53 44 52 20 44 42 20 30 ;.. RETTSDR DB 0
000190: 20 20 20 20 20 20 20 20 20 3B 49 63 69 20 75 6E ;Ici un
0001A0: 20 52 45 54 20 70 6F 75 72 20 6E 65 20 70 61 73 RET pour ne pas
0001B0: 20 62 6C 6F 71 75 65 72 20 65 6E 20 65 6E 74 72 bloquer en entr
0001C0: 65 65 20 64 65 20 70 72 6F 67 72 61 6D 6D 65 0D ee de programme.
0001D0: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 44 45 2C . LD DE,
0001E0: 23 30 32 31 33 20 20 20 20 20 3B 73 69 20 64 72 #0213 ;si dr
0001F0: 69 76 65 20 42 20 61 62 73 65 6E 74 20 6F 75 20 ive B absent ou
Size : 512 (Real : 512)
000000: 73 61 6E 73 20 64 69 73 63 20 28 54 53 54 44 52 sans disc (TSTDR
000010: 49 56 29 0D 0A 20 20 20 20 20 20 20 20 20 43 41 IV).. CA
000020: 4C 4C 20 54 53 54 4D 49 53 53 0D 0A 20 20 20 20 LL TSTMISS..
000030: 20 20 20 20 20 4A 52 20 4E 43 2C 47 4F 50 49 53 JR NC,GOPIS
000040: 54 4E 0D 0A 20 20 20 20 20 20 20 20 20 52 45 54 TN.. RET
000050: 0D 0A 20 3B 0D 0A 20 46 4F 52 4D 41 54 45 20 50 .. ;.. FORMATE P
000060: 55 53 48 20 44 45 20 20 20 20 3B 2D 20 46 6F 72 USH DE ;- For
000070: 6D 61 74 65 72 20 2D 0D 0A 20 20 50 55 53 48 20 mater -.. PUSH
000080: 42 43 0D 0A 20 20 4C 44 20 42 2C 23 34 44 0D 0A BC.. LD B,#4D..
000090: 20 20 43 41 4C 4C 20 43 4F 4D 50 43 4F 4D 0D 0A CALL COMPCOM..
0000A0: 20 20 43 41 4C 4C 20 49 4E 53 54 52 55 32 0D 0A CALL INSTRU2..
0000B0: 20 20 4C 44 20 41 2C 28 4C 45 4E 53 45 43 29 20 LD A,(LENSEC)
0000C0: 3B 45 6E 76 2E 50 61 72 2E 0D 0A 20 20 43 41 4C ;Env.Par... CAL
0000D0: 4C 20 45 4E 56 4F 46 44 43 0D 0A 20 20 4C 44 20 L ENVOFDC.. LD
0000E0: 41 2C 28 4E 42 53 45 43 29 0D 0A 20 20 43 41 4C A,(NBSEC).. CAL
0000F0: 4C 20 45 4E 56 4F 46 44 43 0D 0A 20 20 4C 44 20 L ENVOFDC.. LD
000100: 41 2C 28 47 41 50 46 4F 52 4D 29 0D 0A 20 20 43 A,(GAPFORM).. C
000110: 41 4C 4C 20 45 4E 56 4F 46 44 43 0D 0A 20 20 4C ALL ENVOFDC.. L
000120: 44 20 41 2C 28 4F 43 52 45 4D 50 29 0D 0A 20 20 D A,(OCREMP)..
000130: 43 41 4C 4C 20 45 4E 56 4F 46 44 43 0D 0A 20 20 CALL ENVOFDC..
000140: 44 49 0D 0A 20 20 4C 44 20 42 43 2C 23 46 42 37 DI.. LD BC,#FB7
000150: 45 0D 0A 20 20 43 41 4C 4C 20 57 52 49 54 46 44 E.. CALL WRITFD
000160: 43 31 0D 0A 20 20 50 4F 50 20 42 43 20 20 0D 0A C1.. POP BC ..
000170: 20 20 50 4F 50 20 44 45 0D 0A 20 20 52 45 54 0D POP DE.. RET.
000180: 0A 20 3B 0D 0A 20 54 53 54 44 49 44 43 20 44 49 . ;.. TSTDIDC DI
000190: 0D 0A 20 20 50 55 53 48 20 42 43 20 20 20 20 20 .. PUSH BC
0001A0: 20 20 3B 2D 20 4C 69 72 65 20 6C 65 73 20 49 44 ;- Lire les ID
0001B0: 53 20 2D 0D 0A 20 20 4C 44 20 42 2C 23 34 41 20 S -.. LD B,#4A
0001C0: 20 20 20 20 20 3B 50 61 73 73 65 72 20 65 6E 20 ;Passer en
0001D0: 64 6F 75 62 6C 65 20 64 65 6E 73 69 74 65 0D 0A double densite..
0001E0: 20 20 4C 44 20 41 2C 23 41 0D 0A 20 20 43 41 4C LD A,#A.. CAL
0001F0: 4C 20 49 4E 53 54 52 55 31 20 20 3B 4C 69 72 65 L INSTRU1 ;Lire
Size : 512 (Real : 512)
000000: 20 6C 65 73 20 49 44 53 20 65 6E 20 73 69 6D 70 les IDS en simp
000010: 6C 65 20 64 65 6E 73 69 74 65 20 70 6F 75 72 20 le densite pour
000020: 70 72 6F 76 6F 71 75 65 72 20 65 72 72 65 75 72 provoquer erreur
000030: 0D 0A 20 20 43 41 4C 4C 20 52 45 53 55 4C 54 0D .. CALL RESULT.
000040: 0A 20 20 4A 52 20 4E 43 2C 52 41 4E 47 43 4F 4D . JR NC,RANGCOM
000050: 20 3B 53 69 20 65 72 72 65 75 72 20 63 27 65 73 ;Si erreur c'es
000060: 74 20 62 69 65 6E 20 44 44 20 65 74 20 63 27 65 t bien DD et c'e
000070: 73 74 20 66 69 6E 69 0D 0A 20 3B 0D 0A 20 20 44 st fini.. ;.. D
000080: 49 0D 0A 20 20 4C 44 20 42 2C 23 41 3B 53 69 20 I.. LD B,#A;Si
000090: 6E 6F 6E 20 70 61 73 73 65 72 20 65 6E 20 53 44 non passer en SD
0000A0: 0D 0A 20 20 4C 44 20 41 2C 23 34 41 20 20 20 20 .. LD A,#4A
0000B0: 20 20 3B 45 74 20 6C 69 72 65 20 65 6E 20 44 44 ;Et lire en DD
0000C0: 20 70 6F 75 72 20 65 72 72 65 75 72 0D 0A 20 20 pour erreur..
0000D0: 43 41 4C 4C 20 49 4E 53 54 52 55 31 20 20 3B 53 CALL INSTRU1 ;S
0000E0: 44 3D 45 72 72 2E 0D 0A 20 20 43 41 4C 4C 20 52 D=Err... CALL R
0000F0: 45 53 55 4C 54 0D 0A 20 3B 0D 0A 20 52 41 4E 47 ESULT.. ;.. RANG
000100: 43 4F 4D 20 44 49 0D 0A 20 20 4C 44 20 41 2C 42 COM DI.. LD A,B
000110: 0D 0A 20 20 4C 44 20 28 43 4F 4D 4D 41 4E 44 29 .. LD (COMMAND)
000120: 2C 41 0D 0A 20 20 50 4F 50 20 42 43 0D 0A 20 20 ,A.. POP BC..
000130: 53 43 46 0D 0A 20 20 52 45 54 0D 0A 20 3B 0D 0A SCF.. RET.. ;..
000140: 20 49 4E 53 54 52 55 20 20 43 41 4C 4C 20 45 4E INSTRU CALL EN
000150: 56 4F 46 44 43 20 20 3B 2D 20 45 6E 76 6F 79 65 VOFDC ;- Envoye
000160: 72 20 61 75 20 46 44 43 20 64 72 69 76 65 20 2C r au FDC drive ,
000170: 20 74 65 74 65 20 65 74 20 70 69 73 74 65 20 2D tete et piste -
000180: 0D 0A 20 20 4C 44 20 44 45 2C 28 44 52 53 45 4C .. LD DE,(DRSEL
000190: 45 43 29 20 3B 45 3D 44 72 2E 44 3D 50 2E 0D 0A EC) ;E=Dr.D=P...
0001A0: 20 20 4C 44 20 41 2C 28 48 45 41 44 29 0D 0A 20 LD A,(HEAD)..
0001B0: 20 4F 52 20 45 0D 0A 20 20 43 41 4C 4C 20 45 4E OR E.. CALL EN
0001C0: 56 4F 46 44 43 0D 0A 20 20 4C 44 20 41 2C 44 0D VOFDC.. LD A,D.
0001D0: 0A 20 48 4F 50 20 20 20 20 20 4A 50 20 45 4E 56 . HOP JP ENV
0001E0: 4F 46 44 43 0D 0A 20 3B 0D 0A 20 49 4E 53 54 52 OFDC.. ;.. INSTR
0001F0: 55 32 20 4C 44 20 41 2C 28 43 4F 4D 4D 41 4E 44 U2 LD A,(COMMAND
Size : 512 (Real : 512)
000000: 29 20 3B 2D 20 45 6E 76 6F 79 65 72 20 61 75 20 ) ;- Envoyer au
000010: 46 44 43 20 2C 20 63 6F 6D 6D 61 6E 64 65 20 2C FDC , commande ,
000020: 20 68 65 61 64 20 2C 20 64 72 69 76 65 20 2D 0D head , drive -.
000030: 0A 20 49 4E 53 54 52 55 31 20 43 41 4C 4C 20 45 . INSTRU1 CALL E
000040: 4E 56 4F 46 44 43 0D 0A 20 20 50 55 53 48 20 44 NVOFDC.. PUSH D
000050: 45 0D 0A 20 20 4C 44 20 41 2C 28 48 45 41 44 29 E.. LD A,(HEAD)
000060: 0D 0A 20 20 4C 44 20 45 2C 41 0D 0A 20 20 4C 44 .. LD E,A.. LD
000070: 20 41 2C 28 44 52 53 45 4C 45 43 29 0D 0A 20 20 A,(DRSELEC)..
000080: 4F 52 20 45 0D 0A 20 20 50 4F 50 20 44 45 0D 0A OR E.. POP DE..
000090: 20 20 4A 52 20 48 4F 50 0D 0A 20 3B 0D 0A 20 49 JR HOP.. ;.. I
0000A0: 4E 53 54 52 55 39 20 43 41 4C 4C 20 43 4F 4D 50 NSTRU9 CALL COMP
0000B0: 43 4F 31 20 20 20 3B 2D 20 45 6E 76 6F 79 65 72 CO1 ;- Envoyer
0000C0: 20 63 6F 6D 6D 61 6E 64 65 20 65 74 20 39 20 6F commande et 9 o
0000D0: 63 74 65 74 73 20 70 6F 75 72 20 72 65 61 64 20 ctets pour read
0000E0: 77 72 69 74 65 20 2D 0D 0A 20 20 43 41 4C 4C 20 write -.. CALL
0000F0: 49 4E 53 54 52 55 32 0D 0A 20 20 50 55 53 48 20 INSTRU2.. PUSH
000100: 42 43 0D 0A 20 20 50 55 53 48 20 48 4C 0D 0A 20 BC.. PUSH HL..
000110: 20 4C 44 20 42 2C 37 0D 0A 20 20 4C 44 20 48 4C LD B,7.. LD HL
000120: 2C 51 55 41 54 52 49 44 0D 0A 20 4E 45 58 54 39 ,QUATRID.. NEXT9
000130: 20 20 20 4C 44 20 41 2C 28 48 4C 29 0D 0A 20 20 LD A,(HL)..
000140: 43 41 4C 4C 20 45 4E 56 4F 46 44 43 0D 0A 20 20 CALL ENVOFDC..
000150: 49 4E 43 20 48 4C 0D 0A 20 20 44 4A 4E 5A 20 4E INC HL.. DJNZ N
000160: 45 58 54 39 0D 0A 20 20 44 49 20 20 20 20 20 20 EXT9.. DI
000170: 0D 0A 20 20 4C 44 20 42 43 2C 23 46 42 37 45 0D .. LD BC,#FB7E.
000180: 0A 20 20 50 4F 50 20 48 4C 20 20 20 20 20 20 20 . POP HL
000190: 3B 52 65 70 72 65 6E 64 72 65 20 61 64 72 65 73 ;Reprendre adres
0001A0: 73 65 20 62 75 66 66 65 72 20 76 61 72 69 61 62 se buffer variab
0001B0: 6C 65 20 70 6F 75 72 20 4C 49 54 46 44 43 33 0D le pour LITFDC3.
0001C0: 0A 20 20 50 55 53 48 20 48 4C 0D 0A 20 43 4F 44 . PUSH HL.. COD
0001D0: 45 4F 50 45 20 43 41 4C 4C 20 4C 49 54 46 44 43 EOPE CALL LITFDC
0001E0: 20 20 3B 43 41 4C 4C 20 56 41 52 49 41 42 4C 45 ;CALL VARIABLE
0001F0: 0D 0A 20 20 50 4F 50 20 48 4C 0D 0A 20 20 50 4F .. POP HL.. PO
Size : 512 (Real : 512)
000000: 50 20 42 43 0D 0A 20 20 52 45 54 0D 0A 20 3B 0D P BC.. RET.. ;.
000010: 0A 20 45 4E 56 4F 46 44 43 20 44 49 20 20 20 20 . ENVOFDC DI
000020: 20 20 20 20 20 20 20 20 20 3B 45 6E 76 6F 79 65 ;Envoye
000030: 72 20 75 6E 20 6F 63 74 65 74 20 61 75 20 46 44 r un octet au FD
000040: 43 0D 0A 20 20 50 55 53 48 20 42 43 0D 0A 20 20 C.. PUSH BC..
000050: 4C 44 20 42 43 2C 23 46 42 37 45 0D 0A 20 20 50 LD BC,#FB7E.. P
000060: 55 53 48 20 41 46 0D 0A 20 57 41 49 54 46 44 43 USH AF.. WAITFDC
000070: 20 49 4E 20 41 2C 28 43 29 0D 0A 20 20 41 44 44 IN A,(C).. ADD
000080: 20 41 2C 41 0D 0A 20 20 4A 52 20 4E 43 2C 57 41 A,A.. JR NC,WA
000090: 49 54 46 44 43 0D 0A 20 20 41 44 44 20 41 2C 41 ITFDC.. ADD A,A
0000A0: 0D 0A 20 20 4A 52 20 4E 43 2C 56 45 55 54 4F 43 .. JR NC,VEUTOC
0000B0: 54 0D 0A 20 20 50 4F 50 20 41 46 0D 0A 20 20 50 T.. POP AF.. P
0000C0: 4F 50 20 42 43 0D 0A 20 20 45 49 0D 0A 20 20 52 OP BC.. EI.. R
0000D0: 45 54 0D 0A 20 3B 0D 0A 20 56 45 55 54 4F 43 54 ET.. ;.. VEUTOCT
0000E0: 20 50 4F 50 20 41 46 0D 0A 20 20 49 4E 43 20 43 POP AF.. INC C
0000F0: 0D 0A 20 20 4F 55 54 20 28 43 29 2C 41 0D 0A 20 .. OUT (C),A..
000100: 20 44 45 43 20 43 0D 0A 20 20 4C 44 20 41 2C 35 DEC C.. LD A,5
000110: 0D 0A 20 44 49 47 45 52 45 20 20 44 45 43 20 41 .. DIGERE DEC A
000120: 0D 0A 20 20 4E 4F 50 0D 0A 20 20 4A 52 20 4E 5A .. NOP.. JR NZ
000130: 2C 44 49 47 45 52 45 0D 0A 20 20 50 4F 50 20 42 ,DIGERE.. POP B
000140: 43 0D 0A 20 20 45 49 0D 0A 20 20 52 45 54 0D 0A C.. EI.. RET..
000150: 20 3B 0D 0A 20 57 52 49 54 46 44 43 20 4C 44 20 ;.. WRITFDC LD
000160: 48 4C 2C 28 41 44 42 55 46 46 29 20 20 3B 2D 20 HL,(ADBUFF) ;-
000170: 45 63 72 69 72 65 20 64 61 6E 73 20 6C 65 20 46 Ecrire dans le F
000180: 44 43 20 2D 0D 0A 20 57 52 49 54 46 44 43 31 20 DC -.. WRITFDC1
000190: 4C 44 20 44 45 2C 30 0D 0A 20 20 4A 52 20 54 45 LD DE,0.. JR TE
0001A0: 53 54 46 44 43 0D 0A 20 42 43 4C 57 52 54 20 20 STFDC.. BCLWRT
0001B0: 49 4E 43 20 43 0D 0A 20 20 4C 44 20 41 2C 28 48 INC C.. LD A,(H
0001C0: 4C 29 0D 0A 20 20 4F 55 54 20 28 43 29 2C 41 0D L).. OUT (C),A.
0001D0: 0A 20 20 44 45 43 20 43 0D 0A 20 20 49 4E 43 20 . DEC C.. INC
0001E0: 44 45 0D 0A 20 20 49 4E 43 20 48 4C 0D 0A 20 54 DE.. INC HL.. T
0001F0: 45 53 54 46 44 43 20 49 4E 20 41 2C 28 43 29 0D ESTFDC IN A,(C).
Size : 512 (Real : 512)
000000: 0A 20 20 4A 50 20 50 2C 54 45 53 54 46 44 43 0D . JP P,TESTFDC.
000010: 0A 20 20 41 4E 44 20 23 32 30 0D 0A 20 20 4A 52 . AND #20.. JR
000020: 20 4E 5A 2C 42 43 4C 57 52 54 0D 0A 20 4F 55 54 NZ,BCLWRT.. OUT
000030: 57 52 49 54 20 4C 44 20 28 4E 42 4C 55 53 29 2C WRIT LD (NBLUS),
000040: 44 45 0D 0A 20 20 4A 50 20 52 45 53 55 4C 54 0D DE.. JP RESULT.
000050: 0A 20 3B 0D 0A 20 57 52 49 54 46 44 43 32 20 4C . ;.. WRITFDC2 L
000060: 44 20 44 45 2C 30 20 20 20 20 20 20 20 20 3B 52 D DE,0 ;R
000070: 45 50 45 54 45 52 20 4C 45 20 4D 45 4D 45 20 4F EPETER LE MEME O
000080: 43 54 45 54 20 45 4E 20 45 43 52 49 54 55 52 45 CTET EN ECRITURE
000090: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 48 4C .. LD HL
0000A0: 2C 28 41 44 42 55 46 46 29 20 20 3B 48 4C 20 6E ,(ADBUFF) ;HL n
0000B0: 27 65 73 74 20 6A 61 6D 61 69 73 20 69 6E 63 72 'est jamais incr
0000C0: 65 6D 65 6E 74 65 0D 0A 20 20 20 20 20 20 20 20 emente..
0000D0: 20 4A 52 20 54 45 53 54 46 44 43 32 0D 0A 20 42 JR TESTFDC2.. B
0000E0: 43 4C 57 52 54 31 20 49 4E 43 20 43 0D 0A 20 20 CLWRT1 INC C..
0000F0: 20 20 20 20 20 20 20 4C 44 20 41 2C 28 48 4C 29 LD A,(HL)
000100: 0D 0A 20 20 20 20 20 20 20 20 20 4F 55 54 20 28 .. OUT (
000110: 43 29 2C 41 0D 0A 20 20 20 20 20 20 20 20 20 44 C),A.. D
000120: 45 43 20 43 0D 0A 20 20 20 20 20 20 20 20 20 49 EC C.. I
000130: 4E 43 20 44 45 0D 0A 20 54 45 53 54 46 44 43 32 NC DE.. TESTFDC2
000140: 20 49 4E 20 41 2C 28 43 29 0D 0A 20 20 20 20 20 IN A,(C)..
000150: 20 20 20 20 4A 50 20 50 2C 54 45 53 54 46 44 43 JP P,TESTFDC
000160: 32 0D 0A 20 20 20 20 20 20 20 20 20 41 4E 44 20 2.. AND
000170: 23 32 30 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 #20.. JR
000180: 20 4E 5A 2C 42 43 4C 57 52 54 31 0D 0A 20 20 20 NZ,BCLWRT1..
000190: 20 20 20 20 20 20 4A 52 20 4F 55 54 57 52 49 54 JR OUTWRIT
0001A0: 0D 0A 20 3B 0D 0A 20 4C 49 54 46 44 43 20 20 4C .. ;.. LITFDC L
0001B0: 44 20 44 45 2C 28 4E 42 41 4C 49 52 45 29 20 20 D DE,(NBALIRE)
0001C0: 3B 2D 20 4C 69 72 65 20 65 74 20 73 74 6F 63 6B ;- Lire et stock
0001D0: 65 72 20 6C 65 20 6E 6F 6D 62 72 65 20 64 27 6F er le nombre d'o
0001E0: 63 74 65 74 73 20 64 6F 6E 6E 65 73 0D 0A 20 20 ctets donnes..
0001F0: 4C 44 20 48 4C 2C 28 41 44 42 55 46 46 29 0D 0A LD HL,(ADBUFF)..
Size : 512 (Real : 512)
000000: 20 4C 49 54 46 44 43 33 20 50 55 53 48 20 48 4C LITFDC3 PUSH HL
000010: 0D 0A 20 20 4A 52 20 54 53 54 46 44 43 0D 0A 20 .. JR TSTFDC..
000020: 52 45 54 45 53 54 20 20 4C 44 20 41 2C 44 0D 0A RETEST LD A,D..
000030: 20 20 4F 52 20 45 0D 0A 20 20 4A 52 20 5A 2C 54 OR E.. JR Z,T
000040: 53 54 46 44 43 0D 0A 20 20 49 4E 43 20 43 0D 0A STFDC.. INC C..
000050: 20 20 49 4E 49 0D 0A 20 20 44 45 43 20 43 0D 0A INI.. DEC C..
000060: 20 20 49 4E 43 20 42 0D 0A 20 20 44 45 43 20 44 INC B.. DEC D
000070: 45 0D 0A 20 54 53 54 46 44 43 20 20 49 4E 20 41 E.. TSTFDC IN A
000080: 2C 28 43 29 0D 0A 20 20 4A 50 20 50 2C 54 53 54 ,(C).. JP P,TST
000090: 46 44 43 0D 0A 20 20 41 4E 44 20 23 32 30 0D 0A FDC.. AND #20..
0000A0: 20 20 4A 52 20 4E 5A 2C 52 45 54 45 53 54 0D 0A JR NZ,RETEST..
0000B0: 20 45 58 49 4C 49 54 20 20 50 4F 50 20 44 45 0D EXILIT POP DE.
0000C0: 0A 20 20 41 4E 44 20 41 0D 0A 20 20 53 42 43 20 . AND A.. SBC
0000D0: 48 4C 2C 44 45 0D 0A 20 20 4C 44 20 28 4E 42 4C HL,DE.. LD (NBL
0000E0: 55 53 29 2C 48 4C 0D 0A 20 20 4A 50 20 52 45 53 US),HL.. JP RES
0000F0: 55 4C 54 0D 0A 20 3B 0D 0A 20 4C 49 54 46 44 43 ULT.. ;.. LITFDC
000100: 58 20 50 55 53 48 20 48 4C 0D 0A 20 20 4A 52 20 X PUSH HL.. JR
000110: 54 53 54 46 44 43 58 0D 0A 20 52 45 54 45 53 54 TSTFDCX.. RETEST
000120: 58 20 49 4E 43 20 43 0D 0A 20 20 49 4E 20 41 2C X INC C.. IN A,
000130: 28 43 29 0D 0A 20 20 44 45 43 20 43 0D 0A 20 20 (C).. DEC C..
000140: 49 4E 43 20 48 4C 0D 0A 20 54 53 54 46 44 43 58 INC HL.. TSTFDCX
000150: 20 49 4E 20 41 2C 28 43 29 0D 0A 20 20 4A 50 20 IN A,(C).. JP
000160: 50 2C 54 53 54 46 44 43 58 0D 0A 20 20 41 4E 44 P,TSTFDCX.. AND
000170: 20 23 32 30 0D 0A 20 20 4A 52 20 4E 5A 2C 52 45 #20.. JR NZ,RE
000180: 54 45 53 54 58 0D 0A 20 20 4A 52 20 45 58 49 4C TESTX.. JR EXIL
000190: 49 54 0D 0A 20 3B 0D 0A 20 4C 49 54 46 44 43 32 IT.. ;.. LITFDC2
0001A0: 20 4C 44 20 48 4C 2C 28 4C 4F 4E 47 53 45 43 29 LD HL,(LONGSEC)
0001B0: 20 3B 4C 65 63 74 75 72 65 20 70 6F 75 72 20 43 ;Lecture pour C
0001C0: 68 65 72 63 68 65 72 20 6C 61 20 76 72 61 69 65 hercher la vraie
0001D0: 20 74 61 69 6C 6C 65 20 64 27 75 6E 20 73 65 63 taille d'un sec
0001E0: 74 65 75 72 0D 0A 20 20 49 4E 43 20 48 4C 0D 0A teur.. INC HL..
0001F0: 20 54 53 54 46 44 43 33 20 4C 44 20 41 2C 48 0D TSTFDC3 LD A,H.
Size : 512 (Real : 512)
000000: 0A 20 20 4F 52 20 4C 0D 0A 20 20 4A 52 20 5A 2C . OR L.. JR Z,
000010: 54 53 54 47 41 50 0D 0A 20 54 53 54 46 44 43 41 TSTGAP.. TSTFDCA
000020: 20 49 4E 20 41 2C 28 43 29 0D 0A 20 20 4A 50 20 IN A,(C).. JP
000030: 50 2C 54 53 54 46 44 43 41 0D 0A 20 20 41 4E 44 P,TSTFDCA.. AND
000040: 20 23 32 30 0D 0A 20 20 4A 50 20 5A 2C 52 45 53 #20.. JP Z,RES
000050: 55 4C 54 0D 0A 20 20 49 4E 43 20 43 0D 0A 20 20 ULT.. INC C..
000060: 49 4E 20 41 2C 28 43 29 0D 0A 20 20 44 45 43 20 IN A,(C).. DEC
000070: 43 0D 0A 20 20 44 45 43 20 48 4C 0D 0A 20 20 4A C.. DEC HL.. J
000080: 52 20 54 53 54 46 44 43 33 0D 0A 20 3B 0D 0A 20 R TSTFDC3.. ;..
000090: 54 53 54 47 41 50 20 20 49 4E 20 41 2C 28 43 29 TSTGAP IN A,(C)
0000A0: 0D 0A 20 20 4A 50 20 50 2C 54 53 54 47 41 50 0D .. JP P,TSTGAP.
0000B0: 0A 20 20 4C 44 20 48 4C 2C 42 55 46 47 41 50 53 . LD HL,BUFGAPS
0000C0: 0D 0A 20 20 4C 44 20 44 45 2C 32 36 37 0D 0A 20 .. LD DE,267..
0000D0: 20 4A 52 20 4C 49 54 46 44 43 33 0D 0A 20 3B 0D JR LITFDC3.. ;.
0000E0: 0A 20 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D . ;-------------
0000F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 3B 2D -----------.. ;-
000100: 20 4C 49 54 46 44 43 34 20 4C 69 72 65 20 65 74 LITFDC4 Lire et
000110: 20 73 74 6F 63 6B 65 72 20 6C 27 6F 63 74 65 74 stocker l'octet
000120: 20 64 65 20 72 65 6D 70 6C 69 73 73 61 67 65 20 de remplissage
000130: 65 74 20 73 61 75 74 65 72 20 2D 0D 0A 20 3B 2D et sauter -.. ;-
000140: 20 4C 49 54 46 44 43 35 20 43 6F 6D 70 74 65 72 LITFDC5 Compter
000150: 20 6C 65 73 20 6F 63 74 65 74 73 20 64 65 20 72 les octets de r
000160: 65 6D 70 6C 69 73 73 61 67 65 20 6A 75 73 71 75 emplissage jusqu
000170: 27 61 75 20 43 52 43 20 65 74 20 73 61 75 74 65 'au CRC et saute
000180: 72 20 2D 0D 0A 20 3B 2D 20 4C 49 54 46 44 43 36 r -.. ;- LITFDC6
000190: 20 4C 69 72 65 20 65 74 20 63 6F 6D 70 74 65 72 Lire et compter
0001A0: 20 6C 65 20 47 41 50 20 2D 0D 0A 20 3B 2D 20 4C le GAP -.. ;- L
0001B0: 49 54 46 44 43 37 20 41 74 74 65 6E 64 72 65 20 ITFDC7 Attendre
0001C0: 6C 61 20 66 69 6E 20 64 65 20 6C 61 20 6C 65 63 la fin de la lec
0001D0: 74 75 72 65 20 2D 0D 0A 20 3B 0D 0A 20 4C 49 54 ture -.. ;.. LIT
0001E0: 46 44 43 34 20 50 55 53 48 20 48 4C 0D 0A 20 20 FDC4 PUSH HL..
0001F0: 20 20 20 20 20 20 20 4C 44 20 44 45 2C 2D 32 20 LD DE,-2
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 3B 4C 6F 6E 67 75 65 75 72 20 ;Longueur
000010: 73 65 63 74 65 75 72 20 61 20 2D 33 20 70 6F 75 secteur a -3 pou
000020: 72 20 32 20 43 52 43 0D 0A 20 20 20 20 20 20 20 r 2 CRC..
000030: 20 20 4A 52 20 54 53 54 46 44 43 34 0D 0A 20 52 JR TSTFDC4.. R
000040: 45 54 45 53 54 34 20 49 4E 43 20 43 0D 0A 20 20 ETEST4 INC C..
000050: 20 20 20 20 20 20 20 49 4E 20 41 2C 28 43 29 0D IN A,(C).
000060: 0A 20 20 20 20 20 20 20 20 20 44 45 43 20 43 0D . DEC C.
000070: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 4F 43 . LD (OC
000080: 52 45 4D 50 29 2C 41 20 20 3B 4C 69 72 65 20 6C REMP),A ;Lire l
000090: 65 20 31 65 72 20 6F 63 74 65 74 20 28 72 65 6D e 1er octet (rem
0000A0: 70 6C 69 73 73 61 67 65 29 20 65 74 20 73 74 6F plissage) et sto
0000B0: 63 6B 65 72 0D 0A 20 20 20 20 20 20 20 20 20 4A cker.. J
0000C0: 52 20 4C 49 54 46 44 43 35 0D 0A 20 54 53 54 46 R LITFDC5.. TSTF
0000D0: 44 43 34 20 49 4E 20 41 2C 28 43 29 0D 0A 20 20 DC4 IN A,(C)..
0000E0: 20 20 20 20 20 20 20 4A 50 20 50 2C 54 53 54 46 JP P,TSTF
0000F0: 44 43 34 0D 0A 20 20 20 20 20 20 20 20 20 41 4E DC4.. AN
000100: 44 20 23 32 30 0D 0A 20 20 20 20 20 20 20 20 20 D #20..
000110: 4A 52 20 4E 5A 2C 52 45 54 45 53 54 34 0D 0A 20 JR NZ,RETEST4..
000120: 20 20 20 20 20 20 20 20 4A 50 20 52 45 53 55 4C JP RESUL
000130: 54 20 20 20 20 20 20 3B 53 65 63 75 72 69 74 65 T ;Securite
000140: 0D 0A 20 3B 0D 0A 20 4C 49 54 46 44 43 35 20 4C .. ;.. LITFDC5 L
000150: 44 20 4C 2C 41 20 20 20 20 20 20 20 20 20 3B 4D D L,A ;M
000160: 65 6D 6F 72 69 73 65 72 20 76 61 6C 65 75 72 20 emoriser valeur
000170: 72 65 6D 70 6C 69 73 73 61 67 65 0D 0A 20 20 20 remplissage..
000180: 20 20 20 20 20 20 4C 44 20 48 2C 33 20 20 20 20 LD H,3
000190: 20 20 20 20 20 3B 32 20 6F 63 74 65 74 73 20 43 ;2 octets C
0001A0: 52 43 20 61 20 73 61 75 74 65 72 20 65 74 20 6C RC a sauter et l
0001B0: 69 72 65 20 47 41 50 0D 0A 20 20 20 20 20 20 20 ire GAP..
0001C0: 20 20 4A 52 20 54 53 54 46 44 43 35 0D 0A 20 52 JR TSTFDC5.. R
0001D0: 45 54 45 53 54 35 20 49 4E 43 20 44 45 20 20 20 ETEST5 INC DE
0001E0: 20 20 20 20 20 20 3B 43 6F 6D 70 74 65 72 20 6C ;Compter l
0001F0: 65 73 20 6F 63 74 65 74 73 20 64 65 20 72 65 6D es octets de rem
Size : 512 (Real : 512)
000000: 70 6C 69 73 73 61 67 65 0D 0A 20 20 20 20 20 20 plissage..
000010: 20 20 20 49 4E 43 20 43 20 20 20 20 20 20 20 20 INC C
000020: 20 20 3B 6F 6E 20 61 75 72 61 20 61 69 6E 73 69 ;on aura ainsi
000030: 20 6C 61 20 76 72 61 69 65 20 6C 6F 6E 67 75 65 la vraie longue
000040: 75 72 0D 0A 20 20 20 20 20 20 20 20 20 49 4E 20 ur.. IN
000050: 41 2C 28 43 29 0D 0A 20 20 20 20 20 20 20 20 20 A,(C)..
000060: 44 45 43 20 43 0D 0A 20 20 20 20 20 20 20 20 20 DEC C..
000070: 43 50 20 4C 20 20 20 20 20 20 20 20 20 20 20 3B CP L ;
000080: 56 6F 69 72 20 73 69 20 6F 6E 20 65 73 74 20 61 Voir si on est a
000090: 72 72 69 76 65 20 61 75 20 31 65 72 20 6F 63 74 rrive au 1er oct
0000A0: 65 74 20 64 75 20 43 52 43 0D 0A 20 20 20 20 20 et du CRC..
0000B0: 20 20 20 20 4A 52 20 5A 2C 54 53 54 46 44 43 35 JR Z,TSTFDC5
0000C0: 0D 0A 20 20 20 20 20 20 20 20 20 44 45 43 20 48 .. DEC H
0000D0: 20 20 20 20 20 20 20 20 20 20 3B 53 61 75 74 65 ;Saute
0000E0: 72 20 43 52 43 0D 0A 20 20 20 20 20 20 20 20 20 r CRC..
0000F0: 4A 52 20 5A 2C 4C 49 54 46 44 43 36 0D 0A 20 54 JR Z,LITFDC6.. T
000100: 53 54 46 44 43 35 20 49 4E 20 41 2C 28 43 29 0D STFDC5 IN A,(C).
000110: 0A 20 20 20 20 20 20 20 20 20 4A 50 20 50 2C 54 . JP P,T
000120: 53 54 46 44 43 35 0D 0A 20 20 20 20 20 20 20 20 STFDC5..
000130: 20 41 4E 44 20 23 32 30 0D 0A 20 20 20 20 20 20 AND #20..
000140: 20 20 20 4A 52 20 4E 5A 2C 52 45 54 45 53 54 35 JR NZ,RETEST5
000150: 0D 0A 20 20 20 20 20 20 20 20 20 4A 50 20 52 45 .. JP RE
000160: 53 55 4C 54 0D 0A 20 3B 0D 0A 20 4C 49 54 46 44 SULT.. ;.. LITFD
000170: 43 36 20 4C 44 20 28 56 41 4C 47 41 50 46 29 2C C6 LD (VALGAPF),
000180: 41 20 3B 52 61 6E 67 65 72 20 6C 65 20 47 41 50 A ;Ranger le GAP
000190: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 48 2C .. LD H,
0001A0: 41 20 20 20 20 20 20 20 20 20 3B 4D 65 6D 6F 72 A ;Memor
0001B0: 69 73 65 72 20 6C 65 20 47 41 50 0D 0A 20 20 20 iser le GAP..
0001C0: 20 20 20 20 20 20 4C 44 20 4C 2C 31 20 20 20 20 LD L,1
0001D0: 20 20 20 20 20 3B 43 6F 6D 70 74 65 75 72 20 70 ;Compteur p
0001E0: 6F 75 72 20 6C 6F 6E 67 75 65 75 72 20 47 41 50 our longueur GAP
0001F0: 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 20 54 53 .. JR TS
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 43 41 4C 4C 20 46 47 41 CALL FGA
000010: 50 54 42 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 PTB.. JR
000020: 20 45 43 52 41 31 41 0D 0A 20 3B 0D 0A 20 50 41 ECRA1A.. ;.. PA
000030: 53 34 53 31 20 20 4C 44 20 48 4C 2C 54 42 31 35 S4S1 LD HL,TB15
000040: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 43 2C .. LD C,
000050: 37 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 7.. CALL
000060: 20 46 47 41 50 54 42 0D 0A 20 20 20 20 20 20 20 FGAPTB..
000070: 20 20 4A 52 20 45 43 52 41 31 41 0D 0A 20 3B 0D JR ECRA1A.. ;.
000080: 0A 20 52 45 43 4F 50 31 20 20 43 41 4C 4C 20 43 . RECOP1 CALL C
000090: 4F 50 34 49 44 0D 0A 20 45 43 52 41 31 41 20 20 OP4ID.. ECRA1A
0000A0: 49 4E 43 20 44 45 0D 0A 20 20 20 20 20 20 20 20 INC DE..
0000B0: 20 44 4A 4E 5A 20 45 43 52 41 31 0D 0A 20 20 20 DJNZ ECRA1..
0000C0: 20 20 20 20 20 20 4A 50 20 45 58 49 45 43 52 41 JP EXIECRA
0000D0: 0D 0A 20 3B 0D 0A 20 3B 2D 20 45 43 52 41 53 45 .. ;.. ;- ECRASE
0000E0: 52 20 54 41 49 4C 4C 45 20 32 20 2D 0D 0A 20 3B R TAILLE 2 -.. ;
0000F0: 0D 0A 20 45 43 52 41 32 20 20 20 4C 44 20 41 2C .. ECRA2 LD A,
000100: 28 44 45 29 20 20 20 20 20 20 20 3B 54 4F 55 54 (DE) ;TOUT
000110: 20 41 20 55 4E 45 20 46 49 4E 20 2C 20 50 45 52 A UNE FIN , PER
000120: 53 45 56 45 52 45 5A 20 2E 2E 2E 2E 0D 0A 20 20 SEVEREZ ......
000130: 20 20 20 20 20 20 20 43 50 20 33 0D 0A 20 20 20 CP 3..
000140: 20 20 20 20 20 20 4A 52 20 43 2C 52 45 43 4F 50 JR C,RECOP
000150: 32 0D 0A 20 20 20 20 20 20 20 20 20 43 50 20 23 2.. CP #
000160: 46 46 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 20 FF.. JR
000170: 5A 2C 52 45 43 4F 50 32 0D 0A 20 3B 0D 0A 20 20 Z,RECOP2.. ;..
000180: 20 20 20 20 20 20 20 53 55 42 20 33 0D 0A 20 20 SUB 3..
000190: 20 20 20 20 20 20 20 4A 52 20 4E 5A 2C 50 41 53 JR NZ,PAS
0001A0: 33 53 32 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 3S2.. ;..
0001B0: 20 20 4C 44 20 43 2C 31 0D 0A 20 20 20 20 20 20 LD C,1..
0001C0: 20 20 20 43 41 4C 4C 20 50 4C 55 53 49 44 53 0D CALL PLUSIDS.
0001D0: 0A 20 20 20 20 20 20 20 20 20 4A 52 20 45 43 52 . JR ECR
0001E0: 41 32 41 0D 0A 20 3B 0D 0A 20 50 41 53 33 53 32 A2A.. ;.. PAS3S2
0001F0: 20 20 44 45 43 20 41 0D 0A 20 20 20 20 20 20 20 DEC A..
Size : 512 (Real : 512)
000000: 20 20 4A 52 20 4E 5A 2C 50 41 53 34 53 32 0D 0A JR NZ,PAS4S2..
000010: 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 ;.. LD
000020: 48 4C 2C 54 42 32 34 0D 0A 20 20 20 20 20 20 20 HL,TB24..
000030: 20 20 4C 44 20 43 2C 32 0D 0A 20 20 20 20 20 20 LD C,2..
000040: 20 20 20 43 41 4C 4C 20 46 47 41 50 54 42 0D 0A CALL FGAPTB..
000050: 20 20 20 20 20 20 20 20 20 4A 52 20 45 43 52 41 JR ECRA
000060: 32 41 0D 0A 20 3B 0D 0A 20 50 41 53 34 53 32 20 2A.. ;.. PAS4S2
000070: 20 4C 44 20 43 2C 35 0D 0A 20 20 20 20 20 20 20 LD C,5..
000080: 20 20 43 41 4C 4C 20 50 4C 55 53 49 44 53 0D 0A CALL PLUSIDS..
000090: 20 20 20 20 20 20 20 20 20 4A 52 20 45 43 52 41 JR ECRA
0000A0: 32 41 20 20 20 20 20 20 20 3B 43 4F 55 52 41 47 2A ;COURAG
0000B0: 45 20 56 4F 55 53 20 41 50 50 52 4F 43 48 45 5A E VOUS APPROCHEZ
0000C0: 20 2E 2E 2E 0D 0A 20 3B 0D 0A 20 52 45 43 4F 50 ..... ;.. RECOP
0000D0: 32 20 20 43 41 4C 4C 20 43 4F 50 34 49 44 0D 0A 2 CALL COP4ID..
0000E0: 20 45 43 52 41 32 41 20 20 49 4E 43 20 44 45 0D ECRA2A INC DE.
0000F0: 0A 20 20 20 20 20 20 20 20 20 44 4A 4E 5A 20 45 . DJNZ E
000100: 43 52 41 32 0D 0A 20 20 20 20 20 20 20 20 20 4A CRA2.. J
000110: 50 20 45 58 49 45 43 52 41 0D 0A 20 3B 0D 0A 20 P EXIECRA.. ;..
000120: 3B 2D 20 45 43 52 41 53 45 52 20 54 41 49 4C 4C ;- ECRASER TAILL
000130: 45 20 33 20 2D 0D 0A 20 3B 0D 0A 20 45 43 52 41 E 3 -.. ;.. ECRA
000140: 33 20 20 20 4C 44 20 41 2C 28 44 45 29 0D 0A 20 3 LD A,(DE)..
000150: 20 20 20 20 20 20 20 20 43 50 20 34 0D 0A 20 20 CP 4..
000160: 20 20 20 20 20 20 20 4A 52 20 43 2C 52 45 43 4F JR C,RECO
000170: 50 33 0D 0A 20 20 20 20 20 20 20 20 20 43 50 20 P3.. CP
000180: 23 46 46 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 #FF.. JR
000190: 20 5A 2C 52 45 43 4F 50 33 0D 0A 20 3B 0D 0A 20 Z,RECOP3.. ;..
0001A0: 20 20 20 20 20 20 20 20 53 55 42 20 34 0D 0A 20 SUB 4..
0001B0: 20 20 20 20 20 20 20 20 4A 52 20 4E 5A 2C 52 45 JR NZ,RE
0001C0: 43 4F 50 33 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 COP3.. ;..
0001D0: 20 20 20 4C 44 20 43 2C 31 0D 0A 20 20 20 20 20 LD C,1..
0001E0: 20 20 20 20 43 41 4C 4C 20 50 4C 55 53 49 44 53 CALL PLUSIDS
0001F0: 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 20 45 43 .. JR EC
Size : 512 (Real : 512)
000000: 52 41 32 41 0D 0A 20 3B 0D 0A 20 52 45 43 4F 50 RA2A.. ;.. RECOP
000010: 33 20 20 43 41 4C 4C 20 43 4F 50 34 49 44 0D 0A 3 CALL COP4ID..
000020: 20 45 43 52 41 33 41 20 20 49 4E 43 20 44 45 0D ECRA3A INC DE.
000030: 0A 20 20 20 20 20 20 20 20 20 44 4A 4E 5A 20 45 . DJNZ E
000040: 43 52 41 33 20 20 3B 56 4F 55 53 20 59 20 45 54 CRA3 ;VOUS Y ET
000050: 45 53 20 21 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 ES !.. ;..
000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000070: 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D -----------
000080: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 -------------..
000090: 0D 0A 20 20 20 20 20 49 63 69 20 6C 65 73 20 32 .. Ici les 2
0000A0: 20 72 6F 75 74 69 6E 65 73 20 65 73 73 65 6E 74 routines essent
0000B0: 69 65 6C 6C 65 73 20 2E 20 4C 61 20 20 70 72 65 ielles . La pre
0000C0: 6D 69 7D 72 65 20 20 2C 20 43 4F 50 34 49 44 20 mi}re , COP4ID
0000D0: 2C 20 73 65 20 63 6F 6E 74 65 6E 74 65 20 64 65 , se contente de
0000E0: 0D 0A 20 72 65 63 6F 70 69 65 72 20 6C 65 73 20 .. recopier les
0000F0: 49 44 53 20 64 65 20 6C 61 20 7A 6F 6E 65 20 6C IDS de la zone l
000100: 65 63 74 75 72 65 20 20 76 65 72 73 20 20 6C 61 ecture vers la
000110: 20 7A 6F 6E 65 20 7B 63 72 69 74 75 72 65 20 2E zone {criture .
000120: 20 4C 27 7B 74 61 74 20 64 27 65 72 72 65 75 72 L'{tat d'erreur
000130: 0D 0A 20 65 73 74 20 72 65 63 6F 70 69 7B 20 64 .. est recopi{ d
000140: 61 6E 73 20 64 61 6E 73 20 6C 61 20 73 65 63 6F ans dans la seco
000150: 6E 64 65 20 6C 69 73 74 65 20 64 27 65 72 72 65 nde liste d'erre
000160: 75 72 73 20 71 75 69 20 73 65 72 76 69 72 61 20 urs qui servira
000170: 40 20 6C 27 7B 63 72 69 74 75 72 65 20 2E 0D 0A @ l'{criture ...
000180: 20 0D 0A 20 20 20 20 20 4C 61 20 73 65 63 6F 6E .. La secon
000190: 64 65 20 73 27 6F 63 63 75 70 65 20 64 65 20 6C de s'occupe de l
0001A0: 27 7B 63 72 61 73 65 6D 65 6E 74 20 2E 20 4C 65 '{crasement . Le
0001B0: 20 73 65 63 74 65 75 72 20 40 20 7B 63 72 69 72 secteur @ {crir
0001C0: 65 20 65 73 74 20 72 65 63 6F 70 69 7B 20 70 61 e est recopi{ pa
0001D0: 72 0D 0A 20 43 4F 50 34 49 44 20 2C 20 65 6E 73 r.. COP4ID , ens
0001E0: 75 69 74 65 20 2C 20 6F 6E 20 20 61 75 67 6D 65 uite , on augme
0001F0: 6E 74 65 20 20 6C 65 20 20 6E 6F 6D 62 72 65 20 nte le nombre
Size : 512 (Real : 512)
000000: 20 74 6F 74 61 6C 20 20 64 65 20 20 73 65 63 74 total de sect
000010: 65 75 72 73 20 73 75 72 20 6C 61 20 70 69 73 74 eurs sur la pist
000020: 65 0D 0A 20 65 6E 20 66 6F 6E 63 74 69 6F 6E 20 e.. en fonction
000030: 64 75 20 6E 6F 6D 62 72 65 20 64 65 20 73 65 63 du nombre de sec
000040: 74 65 75 72 73 20 71 75 69 20 73 65 72 6F 6E 74 teurs qui seront
000050: 20 7B 63 72 61 73 7B 73 20 70 61 72 20 6C 27 7B {cras{s par l'{
000060: 63 72 69 74 75 72 65 20 2E 20 49 6C 20 66 61 75 criture . Il fau
000070: 74 0D 0A 20 7B 76 69 64 65 6D 65 6E 74 20 61 75 t.. {videment au
000080: 67 6D 65 6E 74 65 72 20 6C 61 20 6C 69 73 74 65 gmenter la liste
000090: 20 64 65 73 20 49 44 53 20 40 20 20 7B 63 72 69 des IDS @ {cri
0000A0: 72 65 20 20 64 27 61 75 74 61 6E 74 20 2C 20 63 re d'autant , c
0000B0: 6F 6D 6D 65 20 63 65 73 20 49 44 53 20 73 6F 6E omme ces IDS son
0000C0: 74 0D 0A 20 64 65 73 74 69 6E 7B 73 20 40 20 75 t.. destin{s @ u
0000D0: 6E 65 20 66 69 6E 20 72 61 70 69 64 65 20 65 74 ne fin rapide et
0000E0: 20 20 6E 65 20 20 73 65 72 6F 6E 74 20 20 6A 61 ne seront ja
0000F0: 6D 61 69 73 20 20 6C 75 73 20 20 6E 69 20 20 7B mais lus ni {
000100: 63 72 69 74 73 20 2C 20 6F 6E 20 70 65 75 74 20 crits , on peut
000110: 79 0D 0A 20 6D 65 74 74 72 65 20 6E 27 69 6D 70 y.. mettre n'imp
000120: 6F 72 74 65 20 71 75 6F 69 20 2E 20 52 65 73 74 orte quoi . Rest
000130: 65 20 20 6C 61 20 20 6C 69 73 74 65 20 20 64 65 e la liste de
000140: 73 20 20 65 72 72 65 75 72 73 20 2E 20 51 75 6F s erreurs . Quo
000150: 69 71 75 65 20 70 65 75 20 75 74 69 6C 69 73 7B ique peu utilis{
000160: 65 0D 0A 20 6A 75 73 71 75 27 69 63 69 20 2C 20 e.. jusqu'ici ,
000170: 65 6C 6C 65 20 65 73 74 20 76 69 74 61 6C 65 20 elle est vitale
000180: 70 6F 75 72 20 20 6C 61 20 20 73 75 69 74 65 20 pour la suite
000190: 20 64 65 73 20 20 6F 70 7B 72 61 74 69 6F 6E 73 des op{rations
0001A0: 20 2E 20 43 27 65 73 74 20 65 6C 6C 65 20 71 75 . C'est elle qu
0001B0: 69 0D 0A 20 64 7B 63 69 64 65 20 73 69 20 69 6C i.. d{cide si il
0001C0: 20 66 61 75 74 20 6C 69 72 65 20 2C 20 20 7B 63 faut lire , {c
0001D0: 72 69 72 65 20 20 6F 75 20 20 69 67 6E 6F 72 65 rire ou ignore
0001E0: 72 20 20 75 6E 20 20 73 65 63 74 65 75 72 20 2E r un secteur .
0001F0: 20 50 61 73 20 71 75 65 73 74 69 6F 6E 20 64 27 Pas question d'
Size : 512 (Real : 512)
000000: 79 0D 0A 20 6D 65 74 74 72 65 20 6E 27 69 6D 70 y.. mettre n'imp
000010: 6F 72 74 65 20 20 71 75 6F 69 20 20 21 20 20 49 orte quoi ! I
000020: 6C 20 20 66 61 75 74 20 20 75 6E 20 20 6F 63 74 l faut un oct
000030: 65 74 20 20 73 70 7B 63 69 66 69 71 75 65 20 20 et sp{cifique
000040: 71 75 69 20 20 73 69 67 6E 61 6C 65 72 61 20 61 qui signalera a
000050: 75 0D 0A 20 70 72 6F 67 72 61 6D 6D 65 20 64 27 u.. programme d'
000060: 69 67 6E 6F 72 65 72 20 63 65 20 73 65 63 74 65 ignorer ce secte
000070: 75 72 20 20 73 61 6E 73 20 20 65 08 5E 74 72 65 ur sans e.^tre
000080: 20 20 63 6F 6E 66 6F 6E 64 75 20 20 61 76 65 63 confondu avec
000090: 20 20 75 6E 20 76 7B 72 69 74 61 62 6C 65 20 7B un v{ritable {
0000A0: 74 61 74 0D 0A 20 64 27 65 72 72 65 75 72 20 2E tat.. d'erreur .
0000B0: 20 23 37 46 20 28 30 31 31 31 31 31 31 31 29 20 #7F (01111111)
0000C0: 65 73 74 20 74 6F 75 74 20 40 20 20 66 61 69 74 est tout @ fait
0000D0: 20 20 63 6F 6E 76 65 6E 61 62 6C 65 20 2E 20 49 convenable . I
0000E0: 6C 20 66 61 75 64 72 61 69 74 20 61 75 20 6D 6F l faudrait au mo
0000F0: 69 6E 73 0D 0A 20 6D 61 73 73 61 63 72 65 72 20 ins.. massacrer
000100: 6C 65 20 64 72 69 76 65 20 40 20 6C 61 20 68 61 le drive @ la ha
000110: 63 68 65 20 65 74 20 65 6E 20 70 6C 65 69 6E 20 che et en plein
000120: 76 6F 6C 20 70 6F 75 72 20 6F 62 74 65 6E 69 72 vol pour obtenir
000130: 20 75 6E 20 74 65 6C 20 72 7B 73 75 6C 74 61 74 un tel r{sultat
000140: 20 2E 0D 0A 20 0D 0A 20 20 20 20 20 20 20 20 20 ... ..
000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000160: 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D -------------
000170: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 3B 0D 0A ----------.. ;..
000180: 20 43 4F 50 34 49 44 20 20 50 55 53 48 20 42 43 COP4ID PUSH BC
000190: 20 20 20 20 20 20 3B 50 72 65 73 65 72 76 65 72 ;Preserver
0001A0: 20 4E 42 53 45 43 0D 0A 20 20 20 20 20 20 20 20 NBSEC..
0001B0: 20 4C 44 20 42 2C 34 20 20 20 20 20 20 20 3B 43 LD B,4 ;C
0001C0: 6F 70 69 65 72 20 34 20 49 44 53 20 64 65 20 49 opier 4 IDS de I
0001D0: 4E 20 76 65 72 73 20 4F 55 54 0D 0A 20 42 43 4C N vers OUT.. BCL
0001E0: 43 4F 50 20 20 4C 44 20 41 2C 28 49 58 2B 30 29 COP LD A,(IX+0)
0001F0: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 49 .. LD (I
Size : 512 (Real : 512)
000000: 59 2B 30 29 2C 41 0D 0A 20 20 20 20 20 20 20 20 Y+0),A..
000010: 20 49 4E 43 20 49 58 0D 0A 20 20 20 20 20 20 20 INC IX..
000020: 20 20 49 4E 43 20 49 59 0D 0A 20 20 20 20 20 20 INC IY..
000030: 20 20 20 44 4A 4E 5A 20 42 43 4C 43 4F 50 0D 0A DJNZ BCLCOP..
000040: 20 20 20 20 20 20 20 20 20 50 4F 50 20 42 43 0D POP BC.
000050: 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 . ;.. LD
000060: 20 48 4C 2C 28 50 4F 49 4E 54 45 52 29 20 3B 41 HL,(POINTER) ;A
000070: 76 61 6E 63 65 72 20 6C 65 20 70 6F 69 6E 74 65 vancer le pointe
000080: 75 72 20 65 74 61 74 20 64 27 65 72 72 65 75 72 ur etat d'erreur
000090: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 41 2C .. LD A,
0000A0: 28 48 4C 29 0D 0A 20 20 20 20 20 20 20 20 20 49 (HL).. I
0000B0: 4E 43 20 48 4C 0D 0A 20 20 20 20 20 20 20 20 20 NC HL..
0000C0: 4C 44 20 28 50 4F 49 4E 54 45 52 29 2C 48 4C 0D LD (POINTER),HL.
0000D0: 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 . ;.. LD
0000E0: 20 48 4C 2C 28 50 45 52 50 52 4F 56 29 20 3B 45 HL,(PERPROV) ;E
0000F0: 74 20 72 65 63 6F 70 69 65 72 20 63 65 74 20 65 t recopier cet e
000100: 74 61 74 20 64 27 65 72 72 65 75 72 20 64 61 6E tat d'erreur dan
000110: 73 20 6C 61 0D 0A 20 20 20 20 20 20 20 20 20 4C s la.. L
000120: 44 20 28 48 4C 29 2C 41 20 20 20 20 20 20 20 3B D (HL),A ;
000130: 6C 69 73 74 65 20 70 72 6F 76 69 73 6F 69 72 65 liste provisoire
000140: 20 74 6F 75 74 20 65 6E 20 61 76 61 6E 63 61 6E tout en avancan
000150: 74 20 6C 65 20 70 6F 69 6E 74 65 75 72 0D 0A 20 t le pointeur..
000160: 20 20 20 20 20 20 20 20 49 4E 43 20 48 4C 20 20 INC HL
000170: 20 20 20 20 20 20 20 20 3B 64 65 20 63 65 6C 6C ;de cell
000180: 65 2D 63 69 0D 0A 20 20 20 20 20 20 20 20 20 4C e-ci.. L
000190: 44 20 28 50 45 52 50 52 4F 56 29 2C 48 4C 0D 0A D (PERPROV),HL..
0001A0: 20 20 20 20 20 20 20 20 20 52 45 54 0D 0A 20 3B RET.. ;
0001B0: 0D 0A 20 3B 2D 20 44 45 54 45 52 4D 49 4E 45 20 .. ;- DETERMINE
0001C0: 45 54 20 41 4A 4F 55 54 45 20 0D 0A 20 3B 0D 0A ET AJOUTE .. ;..
0001D0: 20 46 47 41 50 54 42 20 20 4C 44 20 41 2C 28 47 FGAPTB LD A,(G
0001E0: 41 50 46 4F 52 4D 29 20 20 3B 48 4C 20 43 6F 6E APFORM) ;HL Con
0001F0: 74 69 65 6E 74 20 6C 65 20 31 65 72 20 6F 63 74 tient le 1er oct
Size : 512 (Real : 512)
000000: 65 74 20 64 65 20 6C 61 20 74 61 62 6C 65 20 63 et de la table c
000010: 6F 6E 63 65 72 6E 7B 65 0D 0A 20 46 47 41 50 54 oncern{e.. FGAPT
000020: 42 31 20 43 50 20 28 48 4C 29 20 20 20 20 20 20 B1 CP (HL)
000030: 20 20 20 3B 44 65 74 65 72 6D 69 6E 65 72 20 6C ;Determiner l
000040: 65 20 6E 6F 6D 62 72 65 20 64 65 20 73 65 63 74 e nombre de sect
000050: 65 75 72 73 20 71 75 69 20 73 65 72 6F 6E 74 0D eurs qui seront.
000060: 0A 20 20 20 20 20 20 20 20 20 4A 52 20 4E 43 2C . JR NC,
000070: 50 4C 55 53 49 44 53 20 20 20 3B 65 63 72 61 73 PLUSIDS ;ecras
000080: 65 73 20 65 6E 20 66 6F 6E 63 74 69 6F 6E 20 64 es en fonction d
000090: 75 20 47 41 50 0D 0A 20 20 20 20 20 20 20 20 20 u GAP..
0000A0: 49 4E 43 20 43 20 20 20 20 20 20 20 20 20 20 20 INC C
0000B0: 3B 50 61 73 20 74 72 6F 75 76 65 20 65 6E 20 74 ;Pas trouve en t
0000C0: 61 62 6C 65 20 64 6F 6E 63 20 75 6E 20 73 65 63 able donc un sec
0000D0: 74 65 75 72 20 64 65 20 70 6C 75 73 0D 0A 20 20 teur de plus..
0000E0: 20 20 20 20 20 20 20 49 4E 43 20 48 4C 20 20 20 INC HL
0000F0: 20 20 20 20 20 20 20 3B 65 74 20 6F 63 74 65 74 ;et octet
000100: 20 73 75 69 76 61 6E 74 20 64 65 20 6C 61 20 74 suivant de la t
000110: 61 62 6C 65 0D 0A 20 20 20 20 20 20 20 20 20 4A able.. J
000120: 52 20 46 47 41 50 54 42 31 0D 0A 20 3B 0D 0A 20 R FGAPTB1.. ;..
000130: 50 4C 55 53 49 44 53 20 43 41 4C 4C 20 43 4F 50 PLUSIDS CALL COP
000140: 34 49 44 20 20 20 20 20 3B 41 6A 6F 75 74 65 72 4ID ;Ajouter
000150: 20 64 65 73 20 49 44 53 20 2E 20 4F 6E 20 72 65 des IDS . On re
000160: 63 6F 70 69 65 20 6C 27 49 44 20 64 27 6F 72 69 copie l'ID d'ori
000170: 67 69 6E 65 0D 0A 20 20 20 20 20 20 20 20 20 4C gine.. L
000180: 44 20 41 2C 28 4E 42 53 50 52 4F 56 29 0D 0A 20 D A,(NBSPROV)..
000190: 20 20 20 20 20 20 20 20 41 44 44 20 41 2C 43 20 ADD A,C
0001A0: 20 20 20 20 20 20 20 20 3B 4F 6E 20 61 75 67 6D ;On augm
0001B0: 65 6E 74 65 20 6C 65 20 6E 6F 6D 62 72 65 20 64 ente le nombre d
0001C0: 65 20 73 65 63 74 65 75 72 73 0D 0A 20 20 20 20 e secteurs..
0001D0: 20 20 20 20 20 4C 44 20 28 4E 42 53 50 52 4F 56 LD (NBSPROV
0001E0: 29 2C 41 20 20 3B 65 74 20 6F 6E 20 6C 65 20 72 ),A ;et on le r
0001F0: 61 6E 67 65 0D 0A 20 3B 0D 0A 20 52 45 42 4F 55 ange.. ;.. REBOU
Size : 512 (Real : 512)
000000: 43 48 20 50 55 53 48 20 42 43 20 20 20 20 20 20 CH PUSH BC
000010: 20 20 20 3B 50 72 65 73 65 72 76 65 72 20 4E 42 ;Preserver NB
000020: 53 45 43 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 SEC.. LD
000030: 20 42 2C 33 0D 0A 20 20 20 20 20 20 20 20 20 4C B,3.. L
000040: 44 20 41 2C 28 50 49 53 54 53 45 4C 29 0D 0A 20 D A,(PISTSEL)..
000050: 20 20 20 20 20 20 20 20 4C 44 20 28 49 59 2B 30 LD (IY+0
000060: 29 2C 30 20 20 20 20 20 3B 4F 6E 20 6D 65 74 20 ),0 ;On met
000070: 65 6E 20 70 6C 61 63 65 20 6C 61 20 73 65 72 69 en place la seri
000080: 65 20 64 27 49 44 53 20 71 75 69 20 73 65 72 61 e d'IDS qui sera
000090: 20 65 63 72 61 73 65 65 0D 0A 20 20 20 20 20 20 ecrasee..
0000A0: 20 20 20 49 4E 43 20 49 59 0D 0A 20 42 4F 55 43 INC IY.. BOUC
0000B0: 48 45 20 20 4C 44 20 28 49 59 2B 30 29 2C 30 0D HE LD (IY+0),0.
0000C0: 0A 20 20 20 20 20 20 20 20 20 49 4E 43 20 49 59 . INC IY
0000D0: 0D 0A 20 20 20 20 20 20 20 20 20 44 4A 4E 5A 20 .. DJNZ
0000E0: 42 4F 55 43 48 45 0D 0A 20 20 20 20 20 20 20 20 BOUCHE..
0000F0: 20 50 4F 50 20 42 43 0D 0A 20 3B 0D 0A 20 20 20 POP BC.. ;..
000100: 20 20 20 20 20 20 4C 44 20 48 4C 2C 28 50 45 52 LD HL,(PER
000110: 50 52 4F 56 29 20 3B 4D 61 72 71 75 65 20 69 6E PROV) ;Marque in
000120: 76 72 61 69 73 73 65 6D 62 6C 61 62 6C 65 20 20 vraissemblable
000130: 64 61 6E 73 20 6C 69 73 74 65 20 70 72 6F 76 69 dans liste provi
000140: 73 6F 69 72 65 0D 0A 20 20 20 20 20 20 20 20 20 soire..
000150: 4C 44 20 28 48 4C 29 2C 23 37 46 20 20 20 20 20 LD (HL),#7F
000160: 3B 70 6F 75 72 20 69 6E 76 61 6C 69 64 65 72 20 ;pour invalider
000170: 6C 65 63 74 75 72 65 20 65 63 72 69 74 75 72 65 lecture ecriture
000180: 0D 0A 20 20 20 20 20 20 20 20 20 49 4E 43 20 48 .. INC H
000190: 4C 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 L.. LD (
0001A0: 50 45 52 50 52 4F 56 29 2C 48 4C 0D 0A 20 20 20 PERPROV),HL..
0001B0: 20 20 20 20 20 20 44 45 43 20 43 0D 0A 20 20 20 DEC C..
0001C0: 20 20 20 20 20 20 4A 52 20 4E 5A 2C 52 45 42 4F JR NZ,REBO
0001D0: 55 43 48 0D 0A 20 20 20 20 20 20 20 20 20 52 45 UCH.. RE
0001E0: 54 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 T.. ;..
0001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
Size : 512 (Real : 512)
000000: 54 46 44 43 36 0D 0A 20 52 45 54 45 53 54 36 20 TFDC6.. RETEST6
000010: 49 4E 43 20 43 0D 0A 20 20 20 20 20 20 20 20 20 INC C..
000020: 49 4E 20 41 2C 28 43 29 0D 0A 20 20 20 20 20 20 IN A,(C)..
000030: 20 20 20 44 45 43 20 43 0D 0A 20 20 20 20 20 20 DEC C..
000040: 20 20 20 43 50 20 48 0D 0A 20 20 20 20 20 20 20 CP H..
000050: 20 20 4A 52 20 4E 5A 2C 4C 49 54 46 44 43 37 0D JR NZ,LITFDC7.
000060: 0A 20 20 20 20 20 20 20 20 20 49 4E 43 20 4C 0D . INC L.
000070: 0A 20 54 53 54 46 44 43 36 20 49 4E 20 41 2C 28 . TSTFDC6 IN A,(
000080: 43 29 0D 0A 20 20 20 20 20 20 20 20 20 4A 50 20 C).. JP
000090: 50 2C 54 53 54 46 44 43 36 0D 0A 20 20 20 20 20 P,TSTFDC6..
0000A0: 20 20 20 20 41 4E 44 20 23 32 30 0D 0A 20 20 20 AND #20..
0000B0: 20 20 20 20 20 20 4A 52 20 4E 5A 2C 52 45 54 45 JR NZ,RETE
0000C0: 53 54 36 0D 0A 20 20 20 20 20 20 20 20 20 4A 50 ST6.. JP
0000D0: 20 52 45 53 55 4C 54 0D 0A 20 3B 0D 0A 20 4C 49 RESULT.. ;.. LI
0000E0: 54 46 44 43 37 20 4C 44 20 28 4C 4F 4E 47 53 45 TFDC7 LD (LONGSE
0000F0: 43 29 2C 44 45 20 3B 52 61 6E 67 65 72 20 6C 6F C),DE ;Ranger lo
000100: 6E 67 75 65 75 72 0D 0A 20 20 20 20 20 20 20 20 ngueur..
000110: 20 4C 44 20 41 2C 4C 0D 0A 20 20 20 20 20 20 20 LD A,L..
000120: 20 20 4C 44 20 28 47 41 50 46 4F 52 4D 29 2C 41 LD (GAPFORM),A
000130: 20 20 3B 65 74 20 47 41 50 0D 0A 20 20 20 20 20 ;et GAP..
000140: 20 20 20 20 50 4F 50 20 48 4C 0D 0A 20 3B 2D 2D POP HL.. ;--
000150: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000160: 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 4C 49 54 46 44 43 -------.. LITFDC
000170: 31 20 49 4E 20 41 2C 28 43 29 20 20 20 20 20 20 1 IN A,(C)
000180: 20 20 3B 2D 20 4C 69 72 65 20 73 61 6E 73 20 72 ;- Lire sans r
000190: 69 65 6E 20 73 74 6F 63 6B 65 72 20 2D 0D 0A 20 ien stocker -..
0001A0: 20 4A 50 20 50 2C 4C 49 54 46 44 43 31 0D 0A 20 JP P,LITFDC1..
0001B0: 20 41 4E 44 20 23 32 30 0D 0A 20 20 4A 50 20 5A AND #20.. JP Z
0001C0: 2C 52 45 53 55 4C 54 0D 0A 20 20 49 4E 43 20 43 ,RESULT.. INC C
0001D0: 0D 0A 20 20 49 4E 20 41 2C 28 43 29 0D 0A 20 20 .. IN A,(C)..
0001E0: 44 45 43 20 43 0D 0A 20 20 4A 52 20 4C 49 54 46 DEC C.. JR LITF
0001F0: 44 43 31 0D 0A 20 3B 0D 0A 20 52 45 53 55 4C 54 DC1.. ;.. RESULT
Size : 512 (Real : 512)
000000: 20 20 44 49 20 20 3B 2D 20 52 65 73 75 6C 74 61 DI ;- Resulta
000010: 74 20 2D 0D 0A 20 20 50 55 53 48 20 42 43 0D 0A t -.. PUSH BC..
000020: 20 20 4C 44 20 42 43 2C 23 46 42 37 45 0D 0A 20 LD BC,#FB7E..
000030: 20 50 55 53 48 20 48 4C 0D 0A 20 20 50 55 53 48 PUSH HL.. PUSH
000040: 20 44 45 0D 0A 20 20 4C 44 20 44 2C 30 0D 0A 20 DE.. LD D,0..
000050: 20 4C 44 20 48 4C 2C 45 54 30 0D 0A 20 20 50 55 LD HL,ET0.. PU
000060: 53 48 20 48 4C 0D 0A 20 4A 45 42 4F 53 53 45 20 SH HL.. JEBOSSE
000070: 49 4E 20 41 2C 28 43 29 0D 0A 20 43 50 20 23 43 IN A,(C).. CP #C
000080: 30 0D 0A 20 4A 52 20 43 2C 4A 45 42 4F 53 53 45 0.. JR C,JEBOSSE
000090: 0D 0A 20 49 4E 43 20 43 0D 0A 20 49 4E 20 41 2C .. INC C.. IN A,
0000A0: 28 43 29 0D 0A 20 4C 44 20 28 48 4C 29 2C 41 0D (C).. LD (HL),A.
0000B0: 0A 20 49 4E 43 20 48 4C 0D 0A 20 49 4E 43 20 44 . INC HL.. INC D
0000C0: 0D 0A 20 44 45 43 20 43 0D 0A 20 3B 0D 0A 20 54 .. DEC C.. ;.. T
0000D0: 45 4D 50 52 45 53 20 44 45 43 20 41 0D 0A 20 20 EMPRES DEC A..
0000E0: 4A 52 20 4E 5A 2C 54 45 4D 50 52 45 53 0D 0A 20 JR NZ,TEMPRES..
0000F0: 20 49 4E 20 41 2C 28 43 29 0D 0A 20 20 41 4E 44 IN A,(C).. AND
000100: 20 23 31 30 0D 0A 20 20 4A 52 20 4E 5A 2C 4A 45 #10.. JR NZ,JE
000110: 42 4F 53 53 45 0D 0A 20 20 50 4F 50 20 48 4C 0D BOSSE.. POP HL.
000120: 0A 20 20 4C 44 20 41 2C 28 48 4C 29 0D 0A 20 20 . LD A,(HL)..
000130: 41 4E 44 20 23 43 30 0D 0A 20 20 44 45 43 20 48 AND #C0.. DEC H
000140: 4C 0D 0A 20 20 4C 44 20 28 48 4C 29 2C 44 0D 0A L.. LD (HL),D..
000150: 20 20 50 4F 50 20 44 45 0D 0A 20 20 50 4F 50 20 POP DE.. POP
000160: 48 4C 0D 0A 20 20 50 4F 50 20 42 43 0D 0A 20 20 HL.. POP BC..
000170: 4C 44 20 41 2C 28 45 54 30 29 0D 0A 20 20 45 49 LD A,(ET0).. EI
000180: 0D 0A 20 20 52 45 54 20 4E 5A 0D 0A 20 20 53 43 .. RET NZ.. SC
000190: 46 0D 0A 20 20 52 45 54 0D 0A 3B 0D 0A 52 45 53 F.. RET..;..RES
0001A0: 55 31 20 20 20 4C 44 20 42 43 2C 23 46 42 37 45 U1 LD BC,#FB7E
0001B0: 20 20 20 3B 4C 45 43 54 55 52 45 20 52 45 53 55 ;LECTURE RESU
0001C0: 4C 54 41 54 20 52 41 50 49 44 45 20 45 54 20 53 LTAT RAPIDE ET S
0001D0: 41 4E 53 20 44 49 20 50 4F 55 52 20 4C 49 54 52 ANS DI POUR LITR
0001E0: 45 20 49 44 53 0D 0A 20 20 20 20 20 20 20 20 4C E IDS.. L
0001F0: 44 20 48 4C 2C 45 54 30 0D 0A 4A 45 42 4F 53 31 D HL,ET0..JEBOS1
Size : 512 (Real : 512)
000000: 20 20 49 4E 20 41 2C 28 43 29 0D 0A 20 20 20 20 IN A,(C)..
000010: 20 20 20 20 43 50 20 23 43 30 0D 0A 20 20 20 20 CP #C0..
000020: 20 20 20 20 4A 52 20 43 2C 4A 45 42 4F 53 31 20 JR C,JEBOS1
000030: 0D 0A 20 20 20 20 20 20 20 20 49 4E 43 20 43 0D .. INC C.
000040: 0A 20 20 20 20 20 20 20 20 49 4E 20 41 2C 28 43 . IN A,(C
000050: 29 0D 0A 20 20 20 20 20 20 20 20 4C 44 20 28 48 ).. LD (H
000060: 4C 29 2C 41 0D 0A 20 20 20 20 20 20 20 20 49 4E L),A.. IN
000070: 43 20 48 4C 0D 0A 20 20 20 20 20 20 20 20 44 45 C HL.. DE
000080: 43 20 43 0D 0A 20 20 20 20 20 20 20 20 4C 44 20 C C.. LD
000090: 41 2C 35 0D 0A 54 45 4D 50 52 31 20 20 44 45 43 A,5..TEMPR1 DEC
0000A0: 20 41 0D 0A 20 20 20 20 20 20 20 20 4A 52 20 4E A.. JR N
0000B0: 5A 2C 54 45 4D 50 52 31 20 0D 0A 20 20 20 20 20 Z,TEMPR1 ..
0000C0: 20 20 20 49 4E 20 41 2C 28 43 29 0D 0A 20 20 20 IN A,(C)..
0000D0: 20 20 20 20 20 41 4E 44 20 23 31 30 0D 0A 20 20 AND #10..
0000E0: 20 20 20 20 20 20 4A 52 20 4E 5A 2C 4A 45 42 4F JR NZ,JEBO
0000F0: 53 31 20 0D 0A 20 20 20 20 20 20 20 20 52 45 54 S1 .. RET
000100: 0D 0A 20 3B 0D 0A 20 3B 2D 20 41 76 61 6E 63 65 .. ;.. ;- Avance
000110: 72 20 64 27 75 6E 65 20 70 69 73 74 65 20 2D 0D r d'une piste -.
000120: 0A 20 3B 0D 0A 20 49 4E 43 50 49 53 54 20 50 55 . ;.. INCPIST PU
000130: 53 48 20 48 4C 20 20 20 20 20 20 20 20 3B 41 76 SH HL ;Av
000140: 61 6E 63 65 72 20 64 27 75 6E 65 20 70 69 73 74 ancer d'une pist
000150: 65 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 48 e.. LD H
000160: 4C 2C 44 45 52 50 49 53 54 0D 0A 20 20 20 20 20 L,DERPIST..
000170: 20 20 20 20 4C 44 20 41 2C 28 50 49 53 54 53 45 LD A,(PISTSE
000180: 4C 29 0D 0A 20 20 20 20 20 20 20 20 20 43 50 20 L).. CP
000190: 28 48 4C 29 20 20 20 20 20 20 3B 50 2E 4D 61 78 (HL) ;P.Max
0001A0: 2E 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 20 5A ... JR Z
0001B0: 2C 50 41 53 49 4E 43 0D 0A 20 20 20 20 20 20 20 ,PASINC..
0001C0: 20 20 49 4E 43 20 41 0D 0A 20 20 20 20 20 20 20 INC A..
0001D0: 20 20 4C 44 20 28 50 49 53 54 53 45 4C 29 2C 41 LD (PISTSEL),A
0001E0: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 41 2C .. LD A,
0001F0: 31 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 1.. LD (
Size : 512 (Real : 512)
000000: 57 41 49 54 50 49 53 29 2C 41 0D 0A 20 20 20 20 WAITPIS),A..
000010: 20 20 20 20 20 53 43 46 20 20 20 20 20 20 20 20 SCF
000020: 20 20 20 20 3B 46 6C 61 67 20 43 20 73 69 20 65 ;Flag C si e
000030: 6E 63 6F 72 65 20 70 69 73 74 65 20 2C 20 4E 43 ncore piste , NC
000040: 20 73 69 20 6E 6F 6E 0D 0A 20 20 20 20 20 20 20 si non..
000050: 20 20 50 4F 50 20 48 4C 0D 0A 20 20 20 20 20 20 POP HL..
000060: 20 20 20 52 45 54 0D 0A 20 50 41 53 49 4E 43 20 RET.. PASINC
000070: 20 4C 44 20 41 2C 34 31 0D 0A 20 20 20 20 20 20 LD A,41..
000080: 20 20 20 4C 44 20 28 57 41 49 54 50 49 53 29 2C LD (WAITPIS),
000090: 41 0D 0A 20 20 20 20 20 20 20 20 20 50 4F 50 20 A.. POP
0000A0: 48 4C 0D 0A 20 20 20 20 20 20 20 20 20 58 4F 52 HL.. XOR
0000B0: 20 41 0D 0A 20 20 20 20 20 20 20 20 20 52 45 54 A.. RET
0000C0: 0D 0A 20 3B 0D 0A 20 3B 2D 20 43 6F 6D 70 6F 73 .. ;.. ;- Compos
0000D0: 65 72 20 6C 65 73 20 63 6F 6D 6D 61 6E 64 65 73 er les commandes
0000E0: 20 2D 0D 0A 20 3B 0D 0A 20 43 4F 4D 50 43 4F 31 -.. ;.. COMPCO1
0000F0: 20 4C 44 20 41 2C 28 43 4F 4D 4D 41 4E 32 29 0D LD A,(COMMAN2).
000100: 0A 20 20 4C 44 20 42 2C 41 0D 0A 20 43 4F 4D 50 . LD B,A.. COMP
000110: 43 4F 4D 20 4C 44 20 41 2C 28 46 4C 41 47 44 45 COM LD A,(FLAGDE
000120: 4E 29 20 20 3B 45 6E 74 72 65 65 20 61 76 65 63 N) ;Entree avec
000130: 20 63 6F 6D 6D 61 6E 64 65 20 64 61 6E 73 20 42 commande dans B
000140: 0D 0A 20 20 4C 44 20 43 2C 41 0D 0A 20 20 4C 44 .. LD C,A.. LD
000150: 20 41 2C 42 20 20 20 20 20 20 20 20 20 20 3B 42 A,B ;B
000160: 3D 4F 63 74 65 74 20 63 6F 6D 6D 61 6E 64 65 0D =Octet commande.
000170: 0A 20 20 41 4E 44 20 43 0D 0A 20 20 4C 44 20 43 . AND C.. LD C
000180: 2C 41 20 20 20 20 20 20 20 20 20 20 3B 2B 44 65 ,A ;+De
000190: 6E 73 69 74 65 0D 0A 20 20 4C 44 20 41 2C 28 46 nsite.. LD A,(F
0001A0: 4C 41 47 4D 54 29 0D 0A 20 20 4F 52 20 43 20 20 LAGMT).. OR C
0001B0: 20 20 20 20 20 20 20 20 20 20 3B 2B 4D 75 6C 74 ;+Mult
0001C0: 69 74 72 61 63 6B 0D 0A 20 20 4C 44 20 28 43 4F itrack.. LD (CO
0001D0: 4D 4D 41 4E 44 29 2C 41 0D 0A 20 20 52 45 54 0D MMAND),A.. RET.
0001E0: 0A 20 3B 0D 0A 20 43 4F 4D 4C 49 50 49 20 4C 44 . ;.. COMLIPI LD
0001F0: 20 41 2C 23 34 32 0D 0A 20 53 45 54 43 4F 4D 32 A,#42.. SETCOM2
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000010: 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------
000020: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000030: 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 20 20 20 20 20 --------..
000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2D -
000050: 20 50 52 4F 47 52 41 4D 4D 45 20 44 45 20 43 4F PROGRAMME DE CO
000060: 50 49 45 20 2E 20 31 45 52 45 20 50 41 52 54 49 PIE . 1ERE PARTI
000070: 45 20 2D 0D 0A 20 20 20 20 20 20 20 20 20 20 20 E -..
000080: 20 20 20 20 20 20 20 20 20 20 20 2D 2D 2D 2D 2D -----
000090: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0000A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 -------------..
0000B0: 0D 0A 20 20 20 20 20 4E 6F 75 73 20 70 72 7B 73 .. Nous pr{s
0000C0: 65 6E 74 6F 6E 73 20 69 63 69 20 6C 65 20 20 70 entons ici le p
0000D0: 72 69 6E 63 69 70 65 20 20 65 74 20 20 6C 27 61 rincipe et l'a
0000E0: 6C 67 6F 72 79 74 68 6D 65 20 20 67 7B 6E 7B 72 lgorythme g{n{r
0000F0: 61 6C 20 64 75 20 63 6F 70 69 65 75 72 20 64 65 al du copieur de
000100: 0D 0A 20 64 69 73 71 75 65 74 74 65 73 20 55 54 .. disquettes UT
000110: 49 4C 2D 53 4F 46 54 20 2E 20 41 20 6C 61 20 66 IL-SOFT . A la f
000120: 69 6E 20 64 65 20 20 63 65 20 63 68 61 70 69 74 in de ce chapit
000130: 72 65 20 66 69 67 75 72 65 20 6C 65 20 6C 69 73 re figure le lis
000140: 74 69 6E 67 20 63 6F 6D 6D 65 6E 74 7B 20 64 65 ting comment{ de
000150: 0D 0A 20 6C 61 20 73 65 63 74 69 6F 6E 20 64 65 .. la section de
000160: 20 70 72 6F 67 72 61 6D 6D 65 20 67 7B 72 61 6E programme g{ran
000170: 74 20 6C 27 65 6E 73 65 6D 62 6C 65 20 64 75 20 t l'ensemble du
000180: 63 6F 70 69 65 75 72 20 2E 0D 0A 20 0D 0A 20 20 copieur ... ..
000190: 20 20 20 4C 65 20 70 72 69 6E 63 69 70 65 20 64 Le principe d
0001A0: 27 65 6E 73 65 6D 62 6C 65 20 65 73 74 20 6C 65 'ensemble est le
0001B0: 20 73 75 69 76 61 6E 74 20 2E 0D 0A 20 0D 0A 20 suivant ... ..
0001C0: 20 20 20 2B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D +------------
0001D0: 2D 2D 2D 2D 2D 2D 3E 20 20 41 4C 4C 45 52 20 53 ------> ALLER S
0001E0: 55 52 20 4C 41 20 50 49 53 54 45 20 41 20 43 4F UR LA PISTE A CO
0001F0: 50 49 45 52 0D 0A 20 20 20 20 21 20 20 20 20 20 PIER.. !
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000010: 20 20 20 20 20 20 20 20 20 41 4E 41 4C 59 53 45 ANALYSE
000020: 52 0D 0A 20 20 20 20 21 20 20 20 20 20 20 20 20 R.. !
000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000040: 20 20 20 20 20 20 53 54 4F 43 4B 41 47 45 0D 0A STOCKAGE..
000050: 20 20 20 20 21 20 20 20 56 4F 49 52 20 53 49 20 ! VOIR SI
000060: 4F 4E 20 41 20 45 4E 43 4F 52 45 20 44 45 20 4C ON A ENCORE DE L
000070: 41 20 50 4C 41 43 45 20 50 4F 55 52 20 53 54 4F A PLACE POUR STO
000080: 43 4B 45 52 20 4C 41 20 50 52 4F 43 48 41 49 4E CKER LA PROCHAIN
000090: 45 20 50 49 53 54 45 0D 0A 20 20 20 20 21 0D 0A E PISTE.. !..
0000A0: 20 20 20 20 21 20 20 20 20 20 20 20 20 20 20 20 !
0000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000C0: 50 4C 55 53 20 44 45 20 50 4C 41 43 45 20 3E 2D PLUS DE PLACE >-
0000D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0000E0: 2D 2D 2D 2D 2D 2B 0D 0A 20 20 20 20 21 20 20 20 -----+.. !
0000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0D 0A !..
000130: 20 20 20 20 21 20 20 20 20 20 20 20 20 20 20 20 !
000140: 20 20 20 45 4E 43 4F 52 45 20 44 45 20 4C 41 20 ENCORE DE LA
000150: 50 4C 41 43 45 20 54 45 53 54 45 52 20 50 49 53 PLACE TESTER PIS
000160: 54 45 20 53 55 49 56 41 4E 54 45 20 20 20 20 20 TE SUIVANTE
000170: 20 20 20 20 20 21 0D 0A 20 20 20 20 21 20 20 20 !.. !
000180: 20 20 20 20 20 20 20 20 20 20 20 56 4F 49 52 20 VOIR
000190: 53 49 20 43 27 45 53 54 20 4C 41 20 44 45 52 4E SI C'EST LA DERN
0001A0: 49 45 52 45 20 50 49 53 54 45 20 41 20 43 4F 50 IERE PISTE A COP
0001B0: 49 45 52 20 20 20 20 20 20 20 20 20 20 21 0D 0A IER !..
0001C0: 20 20 20 20 21 20 20 20 20 20 20 20 20 20 20 20 !
0001D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
Size : 512 (Real : 512)
000000: 20 4C 44 20 28 43 4F 4D 4D 41 4E 32 29 2C 41 0D LD (COMMAN2),A.
000010: 0A 20 20 4C 44 20 28 43 4F 44 45 4F 50 45 2B 31 . LD (CODEOPE+1
000020: 29 2C 48 4C 0D 0A 20 20 52 45 54 0D 0A 20 3B 0D ),HL.. RET.. ;.
000030: 0A 20 3B 2D 20 53 75 62 20 72 6F 75 74 69 6E 65 . ;- Sub routine
000040: 73 20 73 65 6C 65 63 74 69 6F 6E 20 70 61 72 61 s selection para
000050: 6D 65 74 72 65 73 20 6C 65 63 74 75 72 65 20 2F metres lecture /
000060: 20 65 63 72 69 74 75 72 65 20 2D 0D 0A 20 3B 0D ecriture -.. ;.
000070: 0A 20 53 45 54 4C 45 43 54 20 4C 44 20 41 2C 28 . SETLECT LD A,(
000080: 44 52 4C 29 20 20 20 20 20 3B 53 65 6C 65 63 74 DRL) ;Select
000090: 69 6F 6E 20 64 72 69 76 65 20 2D 20 68 65 61 64 ion drive - head
0000A0: 20 2D 20 70 69 73 74 65 20 6C 65 63 74 75 72 65 - piste lecture
0000B0: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 44 .. LD (D
0000C0: 52 53 45 4C 45 43 29 2C 41 0D 0A 20 20 20 20 20 RSELEC),A..
0000D0: 20 20 20 20 4C 44 20 41 2C 28 48 44 4C 29 0D 0A LD A,(HDL)..
0000E0: 20 20 20 20 20 20 20 20 20 4C 44 20 28 48 45 41 LD (HEA
0000F0: 44 29 2C 41 0D 0A 20 20 20 20 20 20 20 20 20 4C D),A.. L
000100: 44 20 41 2C 28 50 49 53 54 4C 29 0D 0A 20 20 20 D A,(PISTL)..
000110: 20 20 20 20 20 20 4C 44 20 28 50 49 53 54 53 45 LD (PISTSE
000120: 4C 29 2C 41 0D 0A 20 20 20 20 20 20 20 20 20 52 L),A.. R
000130: 45 54 0D 0A 20 3B 0D 0A 20 53 45 54 57 52 49 54 ET.. ;.. SETWRIT
000140: 20 4C 44 20 41 2C 28 44 52 57 29 20 20 20 20 20 LD A,(DRW)
000150: 3B 53 65 6C 65 63 74 69 6F 6E 20 64 72 69 76 65 ;Selection drive
000160: 20 2D 20 68 65 61 64 20 2D 20 70 69 73 74 65 20 - head - piste
000170: 65 63 72 69 74 75 72 65 0D 0A 20 20 20 20 20 20 ecriture..
000180: 20 20 20 4C 44 20 28 44 52 53 45 4C 45 43 29 2C LD (DRSELEC),
000190: 41 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 41 A.. LD A
0001A0: 2C 28 48 44 57 29 0D 0A 20 20 20 20 20 20 20 20 ,(HDW)..
0001B0: 20 4C 44 20 28 48 45 41 44 29 2C 41 0D 0A 20 20 LD (HEAD),A..
0001C0: 20 20 20 20 20 20 20 4C 44 20 41 2C 28 50 49 53 LD A,(PIS
0001D0: 54 57 29 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 TW).. LD
0001E0: 20 28 50 49 53 54 53 45 4C 29 2C 41 0D 0A 20 20 (PISTSEL),A..
0001F0: 20 20 20 20 20 20 20 52 45 54 0D 0A 20 3B 0D 0A RET.. ;..
Size : 512 (Real : 512)
000000: 20 3B 2D 20 53 75 62 20 72 6F 75 74 69 6E 65 73 ;- Sub routines
000010: 20 63 6F 6D 70 61 72 61 69 73 6F 6E 73 20 2D 0D comparaisons -.
000020: 0A 20 3B 0D 0A 20 43 50 44 52 49 56 45 20 4C 44 . ;.. CPDRIVE LD
000030: 20 41 2C 28 44 52 4C 29 20 20 20 20 20 3B 43 6F A,(DRL) ;Co
000040: 6D 70 61 72 65 72 20 64 72 69 76 65 20 73 6F 75 mparer drive sou
000050: 72 63 65 20 65 74 20 64 65 73 74 69 6E 61 74 69 rce et destinati
000060: 6F 6E 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 on.. LD
000070: 42 2C 41 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 B,A.. LD
000080: 20 41 2C 28 44 52 57 29 0D 0A 20 20 20 20 20 20 A,(DRW)..
000090: 20 20 20 43 50 20 42 0D 0A 20 20 20 20 20 20 20 CP B..
0000A0: 20 20 4C 44 20 41 2C 30 0D 0A 20 20 20 20 20 20 LD A,0..
0000B0: 20 20 20 52 45 54 20 5A 0D 0A 20 20 20 20 20 20 RET Z..
0000C0: 20 20 20 49 4E 43 20 41 0D 0A 20 20 20 20 20 20 INC A..
0000D0: 20 20 20 53 43 46 0D 0A 20 20 20 20 20 20 20 20 SCF..
0000E0: 20 52 45 54 0D 0A 20 3B 0D 0A 20 43 50 50 49 53 RET.. ;.. CPPIS
0000F0: 54 20 20 4C 44 20 41 2C 28 50 49 53 54 4C 29 20 T LD A,(PISTL)
000100: 20 20 20 3B 43 6F 6D 70 61 72 65 72 20 70 69 73 ;Comparer pis
000110: 74 65 73 20 73 6F 75 72 63 65 2F 64 65 73 74 69 tes source/desti
000120: 6E 61 74 69 6F 6E 0D 0A 20 20 20 20 20 20 20 20 nation..
000130: 20 4C 44 20 42 2C 41 0D 0A 20 20 20 20 20 20 20 LD B,A..
000140: 20 20 4C 44 20 41 2C 28 50 49 53 54 57 29 0D 0A LD A,(PISTW)..
000150: 20 20 20 20 20 20 20 20 20 43 50 20 42 0D 0A 20 CP B..
000160: 20 20 20 20 20 20 20 20 52 45 54 0D 0A 20 3B 0D RET.. ;.
000170: 0A 20 44 49 46 4C 45 4E 4C 20 4C 44 20 41 2C 28 . DIFLENL LD A,(
000180: 4C 45 4E 53 45 43 29 20 20 3B 43 6F 6D 70 61 72 LENSEC) ;Compar
000190: 65 72 20 74 61 69 6C 6C 65 20 49 44 20 73 65 63 er taille ID sec
0001A0: 74 65 75 72 73 20 65 74 20 76 72 61 69 65 20 74 teurs et vraie t
0001B0: 61 69 6C 6C 65 0D 0A 20 20 20 20 20 20 20 20 20 aille..
0001C0: 4C 44 20 28 56 52 41 49 4C 45 4E 29 2C 41 0D 0A LD (VRAILEN),A..
0001D0: 20 20 20 20 20 20 20 20 20 4C 44 20 42 2C 41 0D LD B,A.
0001E0: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 41 2C 28 . LD A,(
0001F0: 51 55 41 54 52 49 44 2B 33 29 0D 0A 20 20 20 20 QUATRID+3)..
Size : 512 (Real : 512)
000000: 20 20 20 20 20 43 50 20 42 0D 0A 20 20 20 20 20 CP B..
000010: 20 20 20 20 52 45 54 20 5A 0D 0A 20 20 20 20 20 RET Z..
000020: 20 20 20 20 4C 44 20 28 4C 45 4E 53 45 43 29 2C LD (LENSEC),
000030: 41 0D 0A 20 20 20 20 20 20 20 20 20 52 45 54 0D A.. RET.
000040: 0A 20 56 52 41 49 4C 45 4E 20 44 42 20 30 0D 0A . VRAILEN DB 0..
000050: 20 3B 0D 0A 20 3B 2D 20 56 65 72 69 66 2E 56 61 ;.. ;- Verif.Va
000060: 6C 69 64 20 70 69 73 74 2E 20 2D 0D 0A 20 3B 0D lid pist. -.. ;.
000070: 0A 20 56 45 52 49 50 49 53 20 4C 44 20 41 2C 28 . VERIPIS LD A,(
000080: 50 49 53 54 4D 41 58 29 0D 0A 20 20 20 20 20 20 PISTMAX)..
000090: 20 20 20 4C 44 20 42 2C 41 0D 0A 20 20 20 20 20 LD B,A..
0000A0: 20 20 20 20 4C 44 20 41 2C 28 44 45 52 50 49 53 LD A,(DERPIS
0000B0: 54 29 0D 0A 20 20 20 20 20 20 20 20 20 43 50 20 T).. CP
0000C0: 42 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B B ;
0000D0: 46 69 6E 20 3E 20 4D 61 78 69 20 3F 0D 0A 20 20 Fin > Maxi ?..
0000E0: 20 20 20 20 20 20 20 52 45 54 20 4E 43 20 20 20 RET NC
0000F0: 20 20 20 20 20 20 20 20 20 3B 4F 75 69 0D 0A 20 ;Oui..
000100: 20 20 20 20 20 20 20 20 4C 44 20 42 2C 41 0D 0A LD B,A..
000110: 20 20 20 20 20 20 20 20 20 4C 44 20 41 2C 28 50 LD A,(P
000120: 52 45 4D 50 49 53 29 0D 0A 20 20 20 20 20 20 20 REMPIS)..
000130: 20 20 49 4E 43 20 42 0D 0A 20 20 20 20 20 20 20 INC B..
000140: 20 20 43 50 20 42 20 20 20 20 20 20 20 20 20 20 CP B
000150: 20 20 20 20 3B 44 65 62 2E 3E 46 69 6E 20 3F 0D ;Deb.>Fin ?.
000160: 0A 20 20 20 20 20 20 20 20 20 52 45 54 0D 0A 20 . RET..
000170: 3B 0D 0A 20 54 53 54 4E 42 53 45 20 4C 44 20 41 ;.. TSTNBSE LD A
000180: 2C 28 4E 42 53 45 43 29 20 3B 54 65 73 74 65 72 ,(NBSEC) ;Tester
000190: 20 6E 6F 6D 62 72 65 20 73 65 63 74 65 75 72 73 nombre secteurs
0001A0: 20 2E 20 4E 43 20 73 69 20 72 61 74 65 20 2E 0D . NC si rate ..
0001B0: 0A 20 20 4F 52 20 41 0D 0A 20 20 52 45 54 20 5A . OR A.. RET Z
0001C0: 0D 0A 20 20 43 50 20 33 33 0D 0A 20 20 52 45 54 .. CP 33.. RET
0001D0: 0D 0A 20 3B 0D 0A 20 43 41 4C 49 47 41 50 20 4C .. ;.. CALIGAP L
0001E0: 44 20 41 2C 28 4C 45 4E 53 45 43 29 20 20 20 3B D A,(LENSEC) ;
0001F0: 43 61 6C 69 62 72 65 72 20 6C 65 20 47 41 50 0D Calibrer le GAP.
Size : 512 (Real : 512)
000000: 0A 20 20 20 20 20 20 20 20 20 4F 52 20 41 0D 0A . OR A..
000010: 20 20 20 20 20 20 20 20 20 4C 44 20 48 4C 2C 54 LD HL,T
000020: 30 44 44 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 0DD.. LD
000030: 20 43 2C 31 35 0D 0A 20 20 20 20 20 20 20 20 20 C,15..
000040: 4A 52 20 5A 2C 47 41 50 56 45 52 49 0D 0A 20 3B JR Z,GAPVERI.. ;
000050: 0D 0A 20 20 20 20 20 20 20 20 20 44 45 43 20 41 .. DEC A
000060: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 48 4C .. LD HL
000070: 2C 54 31 44 44 0D 0A 20 20 20 20 20 20 20 20 20 ,T1DD..
000080: 4C 44 20 43 2C 31 32 0D 0A 20 20 20 20 20 20 20 LD C,12..
000090: 20 20 4A 52 20 5A 2C 47 41 50 56 45 52 49 0D 0A JR Z,GAPVERI..
0000A0: 20 20 20 20 20 20 20 20 20 44 45 43 20 41 0D 0A DEC A..
0000B0: 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 ;.. LD
0000C0: 48 4C 2C 54 32 44 44 0D 0A 20 20 20 20 20 20 20 HL,T2DD..
0000D0: 20 20 4C 44 20 43 2C 38 0D 0A 20 20 20 20 20 20 LD C,8..
0000E0: 20 20 20 4A 52 20 5A 2C 47 41 50 56 45 52 49 0D JR Z,GAPVERI.
0000F0: 0A 20 20 20 20 20 20 20 20 20 44 45 43 20 41 0D . DEC A.
000100: 0A 20 20 20 20 20 20 20 20 20 4A 52 20 5A 2C 47 . JR Z,G
000110: 41 50 56 45 52 49 0D 0A 20 3B 0D 0A 20 20 20 20 APVERI.. ;..
000120: 20 20 20 20 20 4C 44 20 48 4C 2C 54 33 44 44 0D LD HL,T3DD.
000130: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 43 2C 35 . LD C,5
000140: 0D 0A 20 20 20 20 20 20 20 20 20 44 45 43 20 41 .. DEC A
000150: 0D 0A 20 20 20 20 20 20 20 20 20 52 45 54 20 4E .. RET N
000160: 5A 0D 0A 20 3B 0D 0A 20 3B 2D 20 52 65 63 74 69 Z.. ;.. ;- Recti
000170: 66 69 65 72 20 6C 65 20 47 41 50 20 6C 75 20 2D fier le GAP lu -
000180: 0D 0A 20 3B 0D 0A 20 47 41 50 56 45 52 49 20 4C .. ;.. GAPVERI L
000190: 44 20 41 2C 28 4E 42 53 45 43 29 20 20 20 3B 4E D A,(NBSEC) ;N
0001A0: 6F 6D 62 72 65 20 73 65 63 74 65 75 72 73 20 3C ombre secteurs <
0001B0: 20 6E 6F 6D 62 72 65 20 61 20 70 72 6F 62 6C 65 nombre a proble
0001C0: 6D 65 0D 0A 20 20 20 20 20 20 20 20 20 43 50 20 me.. CP
0001D0: 43 0D 0A 20 20 20 20 20 20 20 20 20 52 45 54 20 C.. RET
0001E0: 43 0D 0A 20 3B 0D 0A 20 42 43 4C 47 41 50 56 20 C.. ;.. BCLGAPV
0001F0: 43 50 20 43 20 20 20 20 20 20 20 20 20 20 20 3B CP C ;
Size : 512 (Real : 512)
000000: 28 48 4C 29 20 20 20 20 3B 74 72 6F 75 76 65 0D (HL) ;trouve.
000010: 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 46 . CALL F
000020: 4C 45 4E 4C 4F 4E 20 20 3B 43 6F 6E 76 65 72 74 LENLON ;Convert
000030: 69 72 20 6C 6F 6E 67 75 65 75 72 20 65 6E 20 6F ir longueur en o
000040: 63 74 65 74 73 20 65 6E 20 74 61 69 69 6C 65 20 ctets en taiile
000050: 64 65 20 30 20 61 20 35 0D 0A 20 3B 0D 0A 20 20 de 0 a 5.. ;..
000060: 20 20 20 20 20 20 20 4C 44 20 41 2C 28 56 41 4C LD A,(VAL
000070: 47 41 50 46 29 0D 0A 20 20 20 20 20 20 20 20 20 GAPF)..
000080: 43 50 20 23 34 45 0D 0A 20 20 20 20 20 20 20 20 CP #4E..
000090: 20 43 41 4C 4C 20 4E 5A 2C 53 45 54 4E 4F 47 41 CALL NZ,SETNOGA
0000A0: 50 20 3B 47 41 50 20 70 61 73 20 23 34 45 20 73 P ;GAP pas #4E s
0000B0: 69 6D 70 6C 65 6D 65 6E 74 20 73 69 67 6E 61 6C implement signal
0000C0: 65 72 20 2E 0D 0A 20 20 20 20 20 20 20 20 20 4A er ... J
0000D0: 50 20 45 58 49 54 47 41 50 20 20 20 20 20 20 20 P EXITGAP
0000E0: 3B 43 27 65 73 74 20 66 69 6E 69 20 70 6F 75 72 ;C'est fini pour
0000F0: 20 6C 65 20 63 61 73 20 43 52 2F 44 44 20 2E 0D le cas CR/DD ..
000100: 0A 20 3B 0D 0A 20 20 20 20 20 4E 6F 75 73 20 76 . ;.. Nous v
000110: 65 6E 6F 6E 73 20 64 27 65 6E 20 66 69 6E 69 72 enons d'en finir
000120: 20 61 76 65 63 20 6C 65 20 74 79 70 65 20 20 43 avec le type C
000130: 52 2F 44 44 20 2E 20 4C 65 73 20 61 63 68 61 72 R/DD . Les achar
000140: 6E 7B 73 20 61 75 72 6F 6E 74 20 72 65 6D 61 72 n{s auront remar
000150: 71 75 7B 0D 0A 20 71 75 65 20 6C 27 7B 76 65 6E qu{.. que l'{ven
000160: 74 75 65 6C 6C 65 20 70 72 7B 73 65 6E 63 65 20 tuelle pr{sence
000170: 20 64 65 20 20 73 65 63 74 65 75 72 73 20 20 7B de secteurs {
000180: 63 72 61 73 7B 73 20 20 61 76 65 63 20 20 64 65 cras{s avec de
000190: 73 20 20 43 52 2F 44 44 20 20 6E 27 65 73 74 20 s CR/DD n'est
0001A0: 70 61 73 0D 0A 20 65 6E 76 69 73 61 67 7B 65 20 pas.. envisag{e
0001B0: 21 20 4C 65 20 74 65 73 74 20 73 65 20 66 61 69 ! Le test se fai
0001C0: 74 20 65 6E 20 45 58 49 47 41 50 20 28 42 65 61 t en EXIGAP (Bea
0001D0: 75 63 6F 75 70 20 70 6C 75 73 20 6C 6F 69 6E 20 ucoup plus loin
0001E0: 2E 2E 2E 29 0D 0A 20 0D 0A 20 20 20 20 20 20 20 ...).. ..
0001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------
000010: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 0D 0A -----------.. ..
000020: 20 20 20 20 20 56 6F 69 63 69 20 6D 61 69 6E 74 Voici maint
000030: 65 6E 61 6E 74 20 6C 65 20 63 61 73 20 6C 65 20 enant le cas le
000040: 70 6C 75 73 20 7B 70 69 6E 65 75 78 20 20 6F 75 plus {pineux ou
000050: 20 6C 61 20 74 61 69 6C 6C 65 20 72 7B 65 6C 6C la taille r{ell
000060: 65 20 64 75 20 66 6F 72 6D 61 74 20 65 74 0D 0A e du format et..
000070: 20 64 65 73 20 47 41 50 53 20 6E 27 61 20 70 75 des GAPS n'a pu
000080: 20 65 08 5E 74 72 65 20 64 7B 74 65 72 6D 69 6E e.^tre d{termin
000090: 7B 65 20 20 70 6F 75 72 20 20 63 61 75 73 65 20 {e pour cause
0000A0: 20 64 27 7B 63 72 61 73 65 6D 65 6E 74 20 2E 20 d'{crasement .
0000B0: 4F 6E 20 6E 6F 74 65 72 61 20 71 75 65 20 6C 65 On notera que le
0000C0: 0D 0A 20 47 41 50 20 65 73 74 20 63 6F 6E 73 69 .. GAP est consi
0000D0: 64 7B 72 7B 20 63 6F 6D 6D 65 20 6E 6F 72 6D 61 d{r{ comme norma
0000E0: 6C 20 28 23 34 45 29 20 2E 20 53 69 20 20 75 6E l (#4E) . Si un
0000F0: 20 70 65 74 69 74 20 6D 61 6C 69 6E 20 61 20 62 petit malin a b
000100: 72 69 63 6F 6C 7B 20 75 6E 65 20 70 69 73 74 65 ricol{ une piste
000110: 0D 0A 20 61 76 65 63 20 75 6E 20 46 44 43 20 73 .. avec un FDC s
000120: 70 7B 63 69 61 6C 20 45 54 20 75 6E 20 20 7B 63 p{cial ET un {c
000130: 72 61 73 65 6D 65 6E 74 20 20 64 65 20 20 73 65 rasement de se
000140: 63 74 65 75 72 73 20 20 2C 20 20 69 6C 20 65 73 cteurs , il es
000150: 74 20 74 72 6F 70 20 64 6F 75 7B 20 70 6F 75 72 t trop dou{ pour
000160: 0D 0A 20 71 75 27 6F 6E 20 6C 75 69 20 70 69 71 .. qu'on lui piq
000170: 75 65 20 73 61 20 70 69 73 74 65 20 2E 2E 2E 0D ue sa piste ....
000180: 0A 20 0D 0A 20 20 20 20 20 4F 6E 20 61 72 72 69 . .. On arri
000190: 76 65 20 65 6E 20 53 4F 4C 55 54 49 4F 33 41 20 ve en SOLUTIO3A
0001A0: 73 69 20 75 6E 20 43 52 2F 44 44 20 20 45 47 41 si un CR/DD EGA
0001B0: 4C 20 20 40 20 20 4C 4D 41 58 20 61 20 7B 74 7B L @ LMAX a {t{
0001C0: 20 64 65 74 65 63 74 7B 20 2E 20 44 61 6E 73 20 detect{ . Dans
0001D0: 63 65 0D 0A 20 63 61 73 20 4C 4D 41 58 20 6E 65 ce.. cas LMAX ne
0001E0: 20 70 65 75 74 20 70 61 73 20 65 08 5E 74 72 65 peut pas e.^tre
0001F0: 20 7B 67 61 6C 20 20 61 75 20 20 43 52 2F 44 44 {gal au CR/DD
Size : 512 (Real : 512)
000000: 20 20 2E 20 20 43 6F 6D 6D 65 20 64 27 61 75 74 . Comme d'aut
000010: 72 65 20 70 61 72 74 20 4C 4D 41 58 20 6E 65 20 re part LMAX ne
000020: 70 65 75 74 0D 0A 20 65 08 5E 74 72 65 20 61 75 peut.. e.^tre au
000030: 67 6D 65 6E 74 7B 20 2C 20 6F 6E 20 6E 65 20 70 gment{ , on ne p
000040: 65 75 74 20 71 75 65 20 20 6C 61 20 20 64 69 6D eut que la dim
000050: 69 6E 75 65 72 20 20 64 65 20 20 31 20 65 74 20 inuer de 1 et
000060: 61 66 66 69 6E 65 72 20 75 6E 20 70 65 75 20 70 affiner un peu p
000070: 6C 75 73 20 6C 61 0D 0A 20 72 65 63 68 65 72 63 lus la.. recherc
000080: 68 65 20 2E 20 49 6C 20 66 61 75 74 20 71 75 61 he . Il faut qua
000090: 6E 64 20 6D 65 08 5E 6D 65 20 70 72 7B 76 6F 69 nd me.^me pr{voi
0000A0: 72 20 20 71 75 65 20 6C 61 20 70 72 7B 73 65 6E r que la pr{sen
0000B0: 63 65 20 65 78 74 72 7D 6D 65 6D 65 6E 74 20 72 ce extr}mement r
0000C0: 61 72 65 20 64 27 75 6E 0D 0A 20 73 65 63 74 65 are d'un.. secte
0000D0: 75 72 20 4C 45 4E 20 30 20 61 62 69 6D 7B 20 70 ur LEN 0 abim{ p
0000E0: 65 75 72 20 61 75 73 73 69 20 72 65 6E 76 6F 79 eur aussi renvoy
0000F0: 65 72 20 75 6E 20 20 43 52 2F 44 44 20 2E 20 44 er un CR/DD . D
000100: 61 6E 73 20 63 65 20 63 61 73 20 6D 69 65 75 78 ans ce cas mieux
000110: 20 76 61 75 74 20 6E 65 0D 0A 20 70 61 73 20 74 vaut ne.. pas t
000120: 6F 75 63 68 65 72 20 40 20 4C 4D 41 58 20 71 75 oucher @ LMAX qu
000130: 69 20 70 61 73 73 65 72 61 69 74 20 40 20 23 46 i passerait @ #F
000140: 46 20 21 0D 0A 20 0D 0A 20 20 20 20 20 45 6E 20 F !.. .. En
000150: 53 4F 4C 55 54 49 4F 4E 33 20 6F 6E 20 74 65 73 SOLUTION3 on tes
000160: 74 65 20 4C 4D 49 4E 20 2E 20 20 53 69 20 20 63 te LMIN . Si c
000170: 65 74 74 65 20 20 63 61 73 65 20 40 20 65 6E 72 ette case @ enr
000180: 65 67 69 73 74 72 7B 20 61 75 20 70 61 73 73 61 egistr{ au passa
000190: 67 65 20 75 6E 65 0D 0A 20 74 61 69 6C 6C 65 20 ge une.. taille
0001A0: 30 20 4F 4B 20 2C 20 63 27 65 73 74 20 66 6F 72 0 OK , c'est for
0001B0: 63 7B 6D 65 6E 74 20 6C 61 20 76 72 61 69 65 20 c{ment la vraie
0001C0: 74 61 69 6C 6C 65 20 64 65 20 66 6F 72 6D 61 74 taille de format
0001D0: 20 2E 20 44 61 6E 73 20 74 6F 75 74 20 61 75 74 . Dans tout aut
0001E0: 72 65 20 63 61 73 0D 0A 20 75 6E 20 73 65 63 74 re cas.. un sect
0001F0: 65 75 72 20 30 20 72 65 6E 76 65 72 61 69 74 20 eur 0 renverait
Size : 512 (Real : 512)
000000: 43 52 2F 44 44 20 6F 75 20 4D 41 4D 20 21 20 44 CR/DD ou MAM ! D
000010: 61 6E 73 20 6C 65 20 63 61 73 20 63 6F 6E 74 72 ans le cas contr
000020: 61 69 72 65 20 2C 20 63 27 65 73 74 20 6C 61 20 aire , c'est la
000030: 74 61 69 6C 6C 65 0D 0A 20 6D 61 78 69 6D 75 6D taille.. maximum
000040: 20 63 61 6C 63 75 6C 7B 65 20 71 75 69 20 73 65 calcul{e qui se
000050: 72 74 20 61 75 20 74 65 73 74 20 2E 0D 0A 20 20 rt au test ...
000060: 20 20 20 50 6F 75 72 20 72 7B 75 73 73 69 72 20 Pour r{ussir
000070: 63 65 20 74 65 73 74 20 2C 20 20 6F 6E 20 20 75 ce test , on u
000080: 74 69 6C 69 73 65 20 20 6C 69 72 65 20 20 70 69 tilise lire pi
000090: 73 74 65 20 20 63 6F 6D 6D 65 20 65 6E 20 53 4F ste comme en SO
0000A0: 4C 55 54 49 4F 4E 31 20 6D 61 69 73 0D 0A 20 63 LUTION1 mais.. c
0000B0: 6F 6D 6D 65 20 6C 65 20 74 65 73 74 20 73 75 72 omme le test sur
0000C0: 20 4E 44 20 7B 63 68 6F 75 65 72 61 20 20 73 79 ND {chouera sy
0000D0: 73 74 7B 6D 61 74 69 71 75 65 6D 65 6E 74 20 20 st{matiquement
0000E0: 65 6E 20 20 72 61 69 73 6F 6E 20 64 65 20 6C 61 en raison de la
0000F0: 20 70 72 7B 73 65 6E 63 65 20 64 65 0D 0A 20 64 pr{sence de.. d
000100: 69 66 66 7B 72 65 6E 74 65 73 20 74 61 69 6C 6C iff{rentes taill
000110: 65 73 20 7B 63 72 69 74 65 73 20 2C 20 20 6F 6E es {crites , on
000120: 20 20 72 65 63 68 65 72 63 68 65 20 20 75 6E 20 recherche un
000130: 20 6F 63 74 65 74 20 20 64 65 20 20 76 61 6C 65 octet de vale
000140: 75 72 20 20 23 34 45 20 40 20 6C 61 0D 0A 20 70 ur #4E @ la.. p
000150: 6F 73 69 74 69 6F 6E 20 64 75 20 47 41 50 20 2E osition du GAP .
000160: 20 53 69 20 6F 6E 20 6C 65 20 74 72 6F 75 76 65 Si on le trouve
000170: 20 2C 20 6F 6E 20 20 40 20 64 7B 6A 61 20 75 6E , on @ d{ja un
000180: 65 20 69 64 7B 65 20 64 65 20 6C 61 20 76 72 61 e id{e de la vra
000190: 69 65 20 74 61 69 6C 6C 65 20 64 65 0D 0A 20 66 ie taille de.. f
0001A0: 6F 72 6D 61 74 20 65 6D 70 6C 6F 79 7B 65 20 2E ormat employ{e .
0001B0: 20 53 69 20 6F 6E 20 6E 65 20 6C 65 20 74 72 6F Si on ne le tro
0001C0: 75 76 65 20 20 70 61 73 20 20 2C 20 69 6C 20 72 uve pas , il r
0001D0: 65 73 74 65 20 70 6F 73 73 69 62 6C 65 20 71 75 este possible qu
0001E0: 65 20 6C 65 20 73 65 63 74 65 75 72 0D 0A 20 74 e le secteur.. t
0001F0: 65 73 74 7B 20 70 61 72 20 6C 69 72 65 20 70 69 est{ par lire pi
Size : 512 (Real : 512)
000000: 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ------------
000010: 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 0D 0A 20 20 20 --------.. ..
000020: 20 20 45 58 49 45 43 52 41 20 65 73 74 20 6C 65 EXIECRA est le
000030: 20 70 6F 69 6E 74 20 64 65 20 20 73 6F 72 74 69 point de sorti
000040: 65 20 20 64 75 20 20 70 72 6F 67 72 61 6D 6D 65 e du programme
000050: 20 20 2E 20 20 44 61 6E 73 20 39 39 25 20 64 65 . Dans 99% de
000060: 73 20 63 61 73 20 63 27 65 73 74 0D 0A 20 65 6E s cas c'est.. en
000070: 66 69 6E 20 66 69 6E 69 20 2E 20 49 6C 20 72 65 fin fini . Il re
000080: 73 74 65 20 68 7B 6C 61 73 20 20 75 6E 20 20 64 ste h{las un d
000090: 65 72 6E 69 65 72 20 20 70 6F 69 6E 74 20 20 40 ernier point @
0000A0: 20 20 76 7B 72 69 66 69 65 72 20 3A 20 51 75 65 v{rifier : Que
0000B0: 20 6C 65 20 6E 6F 75 76 65 61 75 0D 0A 20 6E 6F le nouveau.. no
0000C0: 6D 62 72 65 20 64 65 20 73 65 63 74 65 75 72 73 mbre de secteurs
0000D0: 20 64 7B 74 65 72 6D 69 6E 7B 20 70 61 72 20 27 d{termin{ par '
0000E0: 45 43 52 41 53 45 52 27 20 70 75 69 73 73 65 20 ECRASER' puisse
0000F0: 65 66 66 65 63 74 69 76 65 6D 65 6E 74 20 74 65 effectivement te
000100: 6E 69 72 20 73 75 72 20 75 6E 65 0D 0A 20 70 69 nir sur une.. pi
000110: 73 74 65 20 21 20 4C 6F 67 69 71 75 65 6D 65 6E ste ! Logiquemen
000120: 74 20 5C 61 20 64 65 76 72 61 69 74 20 20 2E 20 t \a devrait .
000130: 20 50 6F 75 72 74 61 6E 74 20 20 2C 20 20 73 69 Pourtant , si
000140: 20 20 6F 6E 20 20 73 27 61 6D 75 73 65 20 40 20 on s'amuse @
000150: 66 6F 72 6D 61 74 65 72 20 65 6E 0D 0A 20 74 61 formater en.. ta
000160: 69 6C 6C 65 20 30 20 65 74 20 61 20 74 6F 75 74 ille 0 et a tout
000170: 20 7B 63 72 61 73 65 72 20 73 6F 75 73 20 64 65 {craser sous de
000180: 73 20 20 74 61 69 6C 6C 65 73 20 64 69 76 65 72 s tailles diver
000190: 73 65 73 20 73 61 6E 73 20 6C 61 69 73 73 65 72 ses sans laisser
0001A0: 20 75 6E 20 73 65 75 6C 20 49 44 0D 0A 20 4C 45 un seul ID.. LE
0001B0: 4E 20 40 20 30 20 2E 20 43 65 72 74 61 69 6E 65 N @ 0 . Certaine
0001C0: 73 20 63 6F 6D 62 69 6E 61 69 73 6F 6E 73 20 6E s combinaisons n
0001D0: 65 20 70 65 72 6D 65 74 74 72 6F 6E 74 20 70 61 e permettront pa
0001E0: 73 20 61 75 78 20 72 6F 75 74 69 6E 65 73 20 64 s aux routines d
0001F0: 27 61 6E 61 6C 79 73 65 20 6C 61 0D 0A 20 76 72 'analyse la.. vr
Size : 512 (Real : 512)
000000: 61 69 65 20 74 61 69 6C 6C 65 20 64 65 20 66 6F aie taille de fo
000010: 72 6D 61 74 20 2E 20 45 78 65 6D 70 6C 65 20 20 rmat . Exemple
000020: 3A 20 20 55 6E 20 20 66 6F 72 6D 61 74 61 67 65 : Un formatage
000030: 20 20 64 65 20 20 74 61 69 6C 6C 65 20 30 20 7B de taille 0 {
000040: 63 72 61 73 7B 20 64 65 20 6C 61 0D 0A 20 6D 61 cras{ de la.. ma
000050: 6E 69 7D 72 65 20 73 75 69 76 61 6E 74 65 20 3A ni}re suivante :
000060: 20 31 2C 32 2C 32 2C 32 2C 32 2C 32 2C 32 2C 32 1,2,2,2,2,2,2,2
000070: 2C 32 2C 32 2C 31 20 72 65 6E 76 65 72 72 61 20 ,2,2,1 renverra
000080: 73 79 73 74 7B 6D 61 74 69 71 75 65 6D 65 6E 74 syst{matiquement
000090: 20 75 6E 20 4C 4D 49 4E 20 64 65 0D 0A 20 31 20 un LMIN de.. 1
0000A0: 2E 20 44 61 6E 73 20 6C 61 20 20 6D 65 73 75 72 . Dans la mesur
0000B0: 65 20 20 6F 75 20 20 6C 65 20 20 72 61 70 70 6F e ou le rappo
0000C0: 72 74 20 20 64 27 7B 63 72 61 73 65 6D 65 6E 74 rt d'{crasement
0000D0: 20 20 65 73 74 20 64 69 66 66 7B 72 65 6E 74 20 est diff{rent
0000E0: 70 6F 75 72 20 63 68 61 71 75 65 0D 0A 20 74 61 pour chaque.. ta
0000F0: 69 6C 6C 65 20 2C 20 75 6E 20 7B 63 72 61 73 65 ille , un {crase
000100: 6D 65 6E 74 20 73 75 72 20 6C 61 20 62 61 73 65 ment sur la base
000110: 20 20 31 20 63 61 6C 63 75 6C 65 72 61 20 75 6E 1 calculera un
000120: 20 6E 6F 75 76 65 61 75 20 6E 6F 6D 62 72 65 20 nouveau nombre
000130: 64 65 20 73 65 63 74 65 75 72 73 0D 0A 20 65 78 de secteurs.. ex
000140: 63 65 73 73 69 66 20 2E 20 50 61 73 20 20 64 65 cessif . Pas de
000150: 20 20 70 61 6E 69 71 75 65 20 20 2C 20 20 52 45 panique , RE
000160: 43 54 49 4E 42 31 20 20 66 61 69 74 20 20 6C 65 CTINB1 fait le
000170: 20 20 67 65 6E 64 61 72 6D 65 20 20 40 20 20 6C gendarme @ l
000180: 61 20 73 6F 72 74 69 65 20 64 65 0D 0A 20 6C 27 a sortie de.. l'
000190: 61 75 74 6F 72 75 74 65 20 21 20 53 69 20 6C 65 autorute ! Si le
0001A0: 20 6E 6F 6D 62 72 65 20 64 65 20 73 65 63 74 65 nombre de secte
0001B0: 75 72 73 20 20 65 73 74 20 20 63 6F 6E 76 65 6E urs est conven
0001C0: 61 62 6C 65 20 2C 20 6F 6E 20 70 72 65 6E 64 20 able , on prend
0001D0: 6C 61 20 62 72 65 74 65 6C 6C 65 0D 0A 20 64 65 la bretelle.. de
0001E0: 20 73 6F 72 74 69 65 20 2C 20 73 69 6E 6F 6E 20 sortie , sinon
0001F0: 50 2E 56 2E 20 65 74 20 72 65 74 6F 75 72 20 40 P.V. et retour @
Size : 512 (Real : 512)
000000: 20 20 20 20 20 21 0D 0A 20 20 20 20 2B 2D 2D 2D !.. +---
000010: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 3C 20 --------------<
000020: 20 49 4C 20 52 45 53 54 45 20 44 45 53 20 50 49 IL RESTE DES PI
000030: 53 54 45 53 20 41 20 43 4F 50 49 45 52 20 20 20 STES A COPIER
000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0D 0A !..
000050: 20 20 20 20 21 20 20 20 20 20 20 20 20 20 20 20 !
000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000090: 20 20 20 20 20 21 0D 0A 20 20 20 20 21 20 20 20 !.. !
0000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 I
0000B0: 4C 20 4E 27 59 2D 41 20 50 4C 55 53 20 44 45 20 L N'Y-A PLUS DE
0000C0: 50 49 53 54 45 53 20 41 20 43 4F 50 49 45 52 20 PISTES A COPIER
0000D0: 3E 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2B 0D 0A >------------+..
0000E0: 20 20 20 20 21 20 20 20 20 20 20 20 20 20 20 20 !
0000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000120: 20 20 20 20 20 21 0D 0A 20 20 20 20 21 20 20 20 !.. !
000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000140: 20 20 20 20 20 49 4E 49 54 49 41 4C 49 53 45 52 INITIALISER
000150: 20 45 43 52 49 54 55 52 45 20 20 3C 2D 2D 2D 2D ECRITURE <----
000160: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2B 0D 0A -------------+..
000170: 20 20 20 20 21 20 20 20 20 20 20 2B 2D 2D 2D 2D ! +----
000180: 2D 3E 20 56 4F 49 52 20 53 49 20 4F 4E 20 45 53 -> VOIR SI ON ES
000190: 54 20 53 55 52 20 4C 41 20 44 45 52 4E 49 45 52 T SUR LA DERNIER
0001A0: 45 20 50 49 53 54 45 20 4C 55 45 0D 0A 20 20 20 E PISTE LUE..
0001B0: 20 21 20 20 20 20 20 20 21 0D 0A 20 20 20 20 21 ! !.. !
0001C0: 20 20 20 20 20 20 21 20 20 20 20 20 20 20 20 20 !
0001D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001E0: 20 4E 4F 4E 20 3E 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D NON >----------
0001F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
Size : 512 (Real : 512)
000000: 2B 0D 0A 20 20 20 20 21 20 20 20 20 20 20 21 20 +.. ! !
000010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000040: 20 20 20 20 20 20 20 20 21 0D 0A 20 20 20 20 21 !.. !
000050: 20 20 20 20 20 20 5E 20 20 20 20 20 20 20 20 20 ^
000060: 4F 55 49 20 3A 20 52 45 49 4E 49 54 49 41 4C 49 OUI : REINITIALI
000070: 53 45 52 20 42 55 46 46 45 52 20 45 54 20 4C 45 SER BUFFER ET LE
000080: 43 54 55 52 45 20 20 20 20 20 20 20 20 20 20 20 CTURE
000090: 21 0D 0A 20 20 20 20 21 2D 2D 2D 2D 2D 2D 2D 2D !.. !--------
0000A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0000B0: 2D 3C 20 20 45 54 20 43 4F 4E 54 49 4E 55 45 52 -< ET CONTINUER
0000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000D0: 20 20 20 20 20 20 20 20 21 0D 0A 20 20 20 20 20 !..
0000E0: 20 20 20 20 20 20 5E 20 20 20 20 20 20 20 20 20 ^
0000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000120: 21 0D 0A 20 20 20 20 20 20 20 20 20 20 20 21 20 !.. !
000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000140: 52 45 50 52 4F 44 55 49 52 45 20 4C 45 20 46 4F REPRODUIRE LE FO
000150: 52 4D 41 54 20 3C 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D RMAT <----------
000160: 2D 2D 2D 2D 2D 2D 2D 2D 2B 0D 0A 20 20 20 20 20 --------+..
000170: 20 20 20 20 20 20 21 20 20 20 20 20 20 45 43 52 ! ECR
000180: 49 52 45 20 4C 45 53 20 53 45 43 54 45 55 52 53 IRE LES SECTEURS
000190: 20 53 49 20 49 4C 20 59 2D 41 20 55 4E 20 46 4F SI IL Y-A UN FO
0001A0: 52 4D 41 54 41 47 45 0D 0A 20 20 20 20 20 20 20 RMATAGE..
0001B0: 20 20 20 20 21 20 20 20 20 20 20 20 20 20 20 20 !
0001C0: 20 20 20 20 20 20 20 41 56 41 4E 43 45 52 20 44 AVANCER D
0001D0: 27 55 4E 45 20 50 49 53 54 45 20 20 20 20 0D 0A 'UNE PISTE ..
0001E0: 20 20 20 20 20 20 20 20 20 20 20 21 20 20 20 20 !
0001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 45 53 54 EST
Size : 512 (Real : 512)
000000: 2D 43 45 20 4C 41 20 44 45 52 4E 49 45 52 45 20 -CE LA DERNIERE
000010: 3F 0D 0A 20 20 20 20 20 20 20 20 20 20 20 21 0D ?.. !.
000020: 0A 20 20 20 20 20 20 20 20 20 20 20 2B 2D 2D 2D . +---
000030: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000040: 2D 2D 2D 2D 2D 3C 20 4E 4F 4E 0D 0A 20 20 20 20 -----< NON..
000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000070: 20 20 4F 55 49 0D 0A 20 0D 0A 20 20 20 20 20 20 OUI.. ..
000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000090: 20 20 20 20 20 20 20 20 20 20 20 20 54 48 41 54 THAT
0000A0: 53 27 45 4E 44 20 21 0D 0A 20 0D 0A 20 20 20 20 S'END !.. ..
0000B0: 20 41 76 61 6E 74 20 64 27 61 6C 6C 65 72 20 70 Avant d'aller p
0000C0: 6C 75 73 20 6C 6F 69 6E 20 2C 20 20 7B 74 75 64 lus loin , {tud
0000D0: 69 6F 6E 73 20 20 6C 61 20 20 6D 61 6E 69 7D 72 ions la mani}r
0000E0: 65 20 20 64 65 20 6D 7B 6D 6F 72 69 73 65 72 20 e de m{moriser
0000F0: 6C 65 20 63 6F 6E 74 65 6E 75 0D 0A 20 63 6F 6D le contenu.. com
000100: 70 6C 65 74 20 64 27 75 6E 65 20 70 69 73 74 65 plet d'une piste
000110: 20 2E 0D 0A 20 0D 0A 20 20 20 20 20 43 6F 6D 6D ... .. Comm
000120: 65 20 70 6C 75 73 69 65 75 72 73 20 70 69 73 74 e plusieurs pist
000130: 65 73 20 73 65 72 6F 6E 74 20 73 74 6F 63 6B 7B es seront stock{
000140: 65 73 20 40 20 20 6C 61 20 20 73 75 69 74 65 20 es @ la suite
000150: 20 2C 20 6F 6E 20 63 6F 6D 6D 65 6E 63 65 20 70 , on commence p
000160: 61 72 20 6C 65 0D 0A 20 6E 75 6D 7B 72 6F 20 64 ar le.. num{ro d
000170: 65 20 6C 61 20 70 69 73 74 65 20 65 6E 20 63 6F e la piste en co
000180: 75 72 73 20 20 2E 20 20 45 6E 73 75 69 74 65 20 urs . Ensuite
000190: 20 76 69 65 6E 64 72 61 20 20 75 6E 20 6F 63 74 viendra un oct
0001A0: 65 74 20 6E 6F 6D 6D 7B 20 46 4C 41 47 46 4E 43 et nomm{ FLAGFNC
0001B0: 20 64 6F 6E 74 0D 0A 20 63 68 61 71 75 65 20 62 dont.. chaque b
0001C0: 69 74 20 63 6F 6E 74 69 65 6E 64 72 61 20 20 75 it contiendra u
0001D0: 6E 65 20 20 69 6E 66 6F 72 6D 61 74 69 6F 6E 20 ne information
0001E0: 20 76 69 74 61 6C 65 20 20 73 75 72 20 20 6C 65 vitale sur le
0001F0: 20 20 72 7B 73 75 6C 74 61 74 20 20 67 6C 6F 62 r{sultat glob
Size : 512 (Real : 512)
000000: 61 6C 20 64 65 0D 0A 20 6C 27 61 6E 61 6C 79 73 al de.. l'analys
000010: 65 20 2E 20 4C 61 20 6C 6F 6E 67 75 65 75 72 20 e . La longueur
000020: 64 65 73 20 73 65 63 74 65 75 72 73 20 20 65 78 des secteurs ex
000030: 70 72 69 6D 7B 65 20 65 6E 20 6F 63 74 65 74 73 prim{e en octets
000040: 20 70 65 75 74 20 74 6F 75 6A 6F 75 72 73 20 73 peut toujours s
000050: 65 72 76 69 72 0D 0A 20 2C 20 6F 6E 20 6C 61 20 ervir.. , on la
000060: 6D 65 74 20 40 20 20 6C 61 20 20 73 75 69 74 65 met @ la suite
000070: 20 20 2E 20 20 49 6C 20 20 66 61 75 74 20 20 62 . Il faut b
000080: 69 65 6E 20 20 73 75 72 20 63 6F 6E 73 65 72 76 ien sur conserv
000090: 65 72 20 74 6F 75 74 65 73 20 6C 65 73 20 64 6F er toutes les do
0000A0: 6E 6E 7B 65 73 0D 0A 20 61 66 66 7B 72 65 6E 74 nn{es.. aff{rent
0000B0: 65 73 20 61 75 20 66 6F 72 6D 61 74 20 70 6F 75 es au format pou
0000C0: 72 20 72 65 70 72 6F 64 75 69 72 65 20 63 65 74 r reproduire cet
0000D0: 74 65 20 70 69 73 74 65 20 2C 20 6F 6E 20 61 6A te piste , on aj
0000E0: 6F 75 74 65 20 4C 45 4E 53 45 43 20 2C 20 4E 42 oute LENSEC , NB
0000F0: 53 45 43 20 2C 0D 0A 20 47 41 50 46 4F 52 4D 20 SEC ,.. GAPFORM
000100: 2C 20 4F 43 52 45 4D 50 20 2E 20 42 69 65 6E 20 , OCREMP . Bien
000110: 7B 76 69 64 65 6D 65 6E 74 20 2C 20 6C 65 73 20 {videment , les
000120: 20 49 44 53 20 73 6F 6E 74 20 76 69 74 61 75 78 IDS sont vitaux
000130: 20 2C 20 69 6C 73 20 73 75 69 76 65 6E 74 20 2E , ils suivent .
000140: 20 50 6F 75 72 0D 0A 20 75 6E 65 20 62 6F 6E 6E Pour.. une bonn
000150: 65 20 72 65 70 72 6F 64 75 63 74 69 6F 6E 20 64 e reproduction d
000160: 65 73 20 73 65 63 74 65 75 72 73 20 69 6C 20 6E es secteurs il n
000170: 6F 75 73 20 66 61 75 74 20 65 6E 63 6F 72 65 20 ous faut encore
000180: 6C 61 20 6C 69 73 74 65 20 64 65 20 6C 27 7B 74 la liste de l'{t
000190: 61 74 20 64 65 0D 0A 20 6C 65 63 74 75 72 65 20 at de.. lecture
0001A0: 64 65 20 63 68 61 63 75 6E 20 64 27 65 75 78 20 de chacun d'eux
0001B0: 65 74 20 63 65 6C 61 20 63 6F 6D 6D 65 6E 63 65 et cela commence
0001C0: 20 20 40 20 20 66 61 69 72 65 20 64 75 20 6D 6F @ faire du mo
0001D0: 6E 64 65 20 2E 20 50 6F 75 72 20 7B 76 69 74 65 nde . Pour {vite
0001E0: 72 20 64 65 73 0D 0A 20 63 61 6C 63 75 6C 73 20 r des.. calculs
0001F0: 40 20 63 68 61 71 75 65 20 6F 70 7B 72 61 74 69 @ chaque op{rati
Size : 512 (Real : 512)
000000: 6F 6E 20 20 6F 6E 20 20 61 6A 6F 75 74 65 20 20 on on ajoute
000010: 6C 27 61 64 72 65 73 73 65 20 20 64 65 20 20 64 l'adresse de d
000020: 7B 62 75 74 20 20 64 65 20 73 74 6F 63 6B 61 67 {but de stockag
000030: 65 20 64 65 73 0D 0A 20 64 6F 6E 6E 7B 65 73 20 e des.. donn{es
000040: 70 6F 75 72 20 63 68 61 71 75 65 20 73 65 63 74 pour chaque sect
000050: 65 75 72 73 20 20 2C 20 20 64 61 6E 73 20 20 6C eurs , dans l
000060: 65 20 20 6D 65 08 5E 6D 65 20 20 62 75 74 20 20 e me.^me but
000070: 6F 6E 20 20 70 6F 6E 63 74 75 65 20 6C 65 20 74 on ponctue le t
000080: 6F 75 74 20 70 61 72 0D 0A 20 6C 27 61 64 72 65 out par.. l'adre
000090: 73 73 65 20 6F 75 20 64 65 76 72 61 20 63 6F 6D sse ou devra com
0000A0: 6D 65 6E 63 65 72 20 6C 65 20 70 72 6F 63 68 61 mencer le procha
0000B0: 69 6E 20 73 74 6F 63 6B 61 67 65 20 2E 20 43 65 in stockage . Ce
0000C0: 63 69 20 6E 6F 75 73 20 64 6F 6E 6E 65 72 61 20 ci nous donnera
0000D0: 3A 0D 0A 20 0D 0A 20 20 20 20 20 4E 75 6D 7B 72 :.. .. Num{r
0000E0: 6F 20 64 65 20 70 69 73 74 65 20 6C 75 65 20 20 o de piste lue
0000F0: 20 20 20 20 20 20 20 20 20 20 20 3A 20 20 50 49 : PI
000100: 53 54 4C 20 20 20 20 20 3A 20 31 20 4F 63 74 65 STL : 1 Octe
000110: 74 0D 0A 20 20 20 20 20 46 6C 61 67 20 7B 74 61 t.. Flag {ta
000120: 74 20 70 69 73 74 65 20 20 20 20 20 20 20 20 20 t piste
000130: 20 20 20 20 20 20 20 20 3A 20 20 46 4C 41 47 46 : FLAGF
000140: 4E 43 20 20 20 3A 20 31 20 4F 63 74 65 74 0D 0A NC : 1 Octet..
000150: 20 20 20 20 20 4C 6F 6E 67 75 65 75 72 20 73 65 Longueur se
000160: 63 74 65 75 72 73 20 65 6E 20 6F 63 74 65 74 73 cteurs en octets
000170: 20 20 20 20 20 3A 20 20 4C 4F 4E 47 53 45 43 20 : LONGSEC
000180: 20 20 3A 20 32 20 4F 63 74 65 74 73 0D 0A 20 20 : 2 Octets..
000190: 20 20 20 4C 6F 6E 67 75 65 75 72 20 73 65 63 74 Longueur sect
0001A0: 65 75 72 20 61 20 66 6F 72 6D 61 74 65 72 20 20 eur a formater
0001B0: 20 20 20 3A 20 20 4C 45 4E 53 45 43 20 20 20 20 : LENSEC
0001C0: 3A 20 31 20 4F 63 74 65 74 0D 0A 20 20 20 20 20 : 1 Octet..
0001D0: 4E 6F 6D 62 72 65 20 64 65 20 73 65 63 74 65 75 Nombre de secteu
0001E0: 72 73 20 73 75 72 20 6C 61 20 70 69 73 74 65 20 rs sur la piste
0001F0: 3A 20 20 4E 42 53 45 43 20 20 20 20 20 3A 20 31 : NBSEC : 1
Size : 512 (Real : 512)
000000: 20 4F 63 74 65 74 0D 0A 20 20 20 20 20 47 41 50 Octet.. GAP
000010: 20 70 6F 75 72 20 66 6F 72 6D 61 74 61 67 65 20 pour formatage
000020: 20 20 20 20 20 20 20 20 20 20 20 20 20 3A 20 20 :
000030: 47 41 50 46 4F 52 4D 20 20 20 3A 20 31 20 4F 63 GAPFORM : 1 Oc
000040: 74 65 74 0D 0A 20 20 20 20 20 4F 63 74 65 74 20 tet.. Octet
000050: 64 65 20 72 65 6D 70 6C 69 73 73 61 67 65 20 73 de remplissage s
000060: 65 63 74 65 75 72 20 20 20 20 3A 20 20 4F 43 52 ecteur : OCR
000070: 45 4D 50 20 20 20 20 3A 20 31 20 4F 63 74 65 74 EMP : 1 Octet
000080: 0D 0A 20 20 20 20 20 0D 0A 20 20 20 20 20 4C 61 .. .. La
000090: 20 73 7B 72 69 65 20 64 65 73 20 49 44 53 20 73 s{rie des IDS s
0000A0: 65 63 74 65 75 72 73 20 20 20 20 20 20 20 3A 20 ecteurs :
0000B0: 20 49 44 49 4E 44 52 41 20 20 20 3A 20 34 20 4F IDINDRA : 4 O
0000C0: 63 74 65 74 73 20 2A 20 4E 62 2E 53 65 63 74 65 ctets * Nb.Secte
0000D0: 75 72 73 0D 0A 20 20 20 20 20 4C 61 20 73 7B 72 urs.. La s{r
0000E0: 69 65 20 64 65 73 20 7B 74 61 74 73 20 64 27 65 ie des {tats d'e
0000F0: 72 72 65 75 72 20 20 20 20 20 3A 20 20 4C 49 53 rreur : LIS
000100: 54 45 52 52 20 20 20 3A 20 31 20 4F 63 74 65 74 TERR : 1 Octet
000110: 20 2A 20 4E 62 2E 53 65 63 74 65 75 72 73 0D 0A * Nb.Secteurs..
000120: 20 20 20 20 20 4C 65 73 20 61 64 72 65 73 73 65 Les adresse
000130: 73 20 64 65 20 73 74 6F 63 6B 61 67 65 20 20 20 s de stockage
000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000150: 20 20 3A 20 32 20 4F 63 74 65 74 73 20 2A 20 4E : 2 Octets * N
000160: 62 2E 53 65 63 74 65 75 72 73 0D 0A 20 20 20 20 b.Secteurs..
000170: 20 4C 27 61 64 72 65 73 73 65 20 64 65 20 73 74 L'adresse de st
000180: 6F 63 6B 61 67 65 20 64 65 20 6C 61 20 70 72 6F ockage de la pro
000190: 63 68 61 69 6E 65 20 73 7B 72 69 65 20 20 3A 20 chaine s{rie :
0001A0: 32 20 4F 63 74 65 74 73 0D 0A 20 0D 0A 20 20 20 2 Octets.. ..
0001B0: 20 20 4C 65 20 63 6F 6E 74 65 6E 75 20 64 65 73 Le contenu des
0001C0: 20 73 65 63 74 65 75 72 73 20 2E 2E 2E 2E 0D 0A secteurs ......
0001D0: 20 3B 0D 0A 20 20 20 20 20 46 4C 41 47 46 4E 43 ;.. FLAGFNC
0001E0: 20 4E 6F 75 73 20 64 69 72 61 20 20 65 6E 74 72 Nous dira entr
0001F0: 65 20 20 61 75 74 72 65 20 20 73 69 20 20 6C 61 e autre si la
Size : 512 (Real : 512)
000000: 20 20 70 69 73 74 65 20 20 40 20 20 72 65 70 72 piste @ repr
000010: 6F 64 75 69 72 65 20 20 65 73 74 20 6F 75 20 6E oduire est ou n
000020: 6F 6E 0D 0A 20 66 6F 72 6D 61 74 7B 65 20 2E 0D on.. format{e ..
000030: 0A 20 20 20 20 20 4C 49 53 54 45 52 52 20 49 6E . LISTERR In
000040: 66 6F 72 6D 65 72 61 20 6C 65 20 70 72 6F 67 72 formera le progr
000050: 61 6D 6D 65 20 73 69 20 69 6C 20 64 6F 69 74 20 amme si il doit
000060: 6F 75 20 6E 6F 6E 20 72 7B 7B 63 72 69 72 65 20 ou non r{{crire
000070: 6C 65 20 73 65 63 74 65 75 72 20 2C 20 65 74 0D le secteur , et.
000080: 0A 20 64 65 20 71 75 65 6C 6C 65 20 6D 61 6E 69 . de quelle mani
000090: 7D 72 65 20 6C 65 20 66 61 69 72 65 20 2E 0D 0A }re le faire ...
0000A0: 20 20 20 20 20 4C 65 20 64 7B 74 61 69 6C 20 64 Le d{tail d
0000B0: 65 20 63 65 73 20 66 6C 61 67 73 20 73 65 72 61 e ces flags sera
0000C0: 20 76 75 20 70 65 74 69 74 20 40 20 70 65 74 69 vu petit @ peti
0000D0: 74 20 2E 0D 0A 20 0D 0A 20 20 20 20 20 44 61 6E t ... .. Dan
0000E0: 73 20 63 65 20 71 75 69 20 73 75 69 74 20 3A 20 s ce qui suit :
0000F0: 50 4F 49 4E 50 49 53 20 63 6F 6E 74 69 65 6E 74 POINPIS contient
000100: 20 20 74 6F 75 6A 6F 75 72 73 20 6C 27 61 64 72 toujours l'adr
000110: 65 73 73 65 20 64 65 20 73 74 6F 63 6B 61 67 65 esse de stockage
000120: 20 64 65 20 6C 61 0D 0A 20 70 69 73 74 65 20 40 de la.. piste @
000130: 20 6D 7B 6D 6F 72 69 73 65 72 20 2E 20 55 6E 20 m{moriser . Un
000140: 73 65 63 6F 6E 64 20 70 6F 69 6E 74 65 75 72 20 second pointeur
000150: 50 4F 49 4E 45 52 50 20 65 73 74 20 69 6E 64 7B POINERP est ind{
000160: 70 65 6E 64 61 6E 74 20 64 75 20 62 75 66 66 65 pendant du buffe
000170: 72 20 2E 20 49 6C 0D 0A 20 64 7B 73 69 67 6E 65 r . Il.. d{signe
000180: 20 75 6E 65 20 6C 69 73 74 65 20 64 65 20 20 32 une liste de 2
000190: 20 20 6F 63 74 65 74 73 20 20 2A 20 20 6E 6F 6D octets * nom
0001A0: 62 72 65 20 20 64 65 20 20 70 69 73 74 65 20 20 bre de piste
0001B0: 74 72 61 69 74 7B 65 73 20 20 65 74 20 70 65 72 trait{es et per
0001C0: 6D 65 74 20 64 65 0D 0A 20 6D 7B 6D 6F 72 69 73 met de.. m{moris
0001D0: 65 72 20 6C 65 73 20 70 69 73 74 65 73 20 70 72 er les pistes pr
0001E0: 7B 73 65 6E 74 61 6E 74 20 64 65 73 20 63 61 73 {sentant des cas
0001F0: 20 70 61 72 74 69 63 75 6C 69 65 72 73 20 2E 20 particuliers .
Size : 512 (Real : 512)
000000: 43 65 74 74 65 20 7A 6F 6E 65 20 64 65 20 73 74 Cette zone de st
000010: 6F 63 6B 61 67 65 0D 0A 20 70 65 72 6D 65 74 20 ockage.. permet
000020: 64 65 20 70 72 7B 73 65 6E 74 65 72 20 75 6E 20 de pr{senter un
000030: 72 7B 73 75 6D 7B 20 64 27 61 6E 61 6C 79 73 65 r{sum{ d'analyse
000040: 20 65 6E 20 66 69 6E 20 64 65 20 70 72 6F 67 72 en fin de progr
000050: 61 6D 6D 65 20 2E 0D 0A 20 0D 0A 20 20 20 20 20 amme ... ..
000060: 44 61 6E 73 20 6C 61 20 20 6D 65 73 75 72 65 20 Dans la mesure
000070: 20 6F 75 20 20 6C 65 73 20 20 72 6F 75 74 69 6E ou les routin
000080: 65 73 20 20 72 7B 65 6C 6C 65 6D 65 6E 74 20 20 es r{ellement
000090: 63 6F 6D 70 6C 65 78 65 73 20 20 66 69 67 75 72 complexes figur
0000A0: 65 6E 74 20 20 64 61 6E 73 0D 0A 20 64 27 61 75 ent dans.. d'au
0000B0: 74 72 65 73 20 73 65 63 74 69 6F 6E 73 20 2C 20 tres sections ,
0000C0: 69 6C 20 6E 27 79 20 40 20 70 6C 75 73 20 20 67 il n'y @ plus g
0000D0: 72 61 6E 64 20 20 63 68 6F 73 65 20 40 20 64 69 rand chose @ di
0000E0: 72 65 20 73 75 72 20 6C 65 20 6C 69 73 74 69 6E re sur le listin
0000F0: 67 20 73 75 69 76 61 6E 74 0D 0A 20 71 75 69 20 g suivant.. qui
000100: 65 73 74 20 61 62 6F 6E 64 61 6D 6D 65 6E 74 20 est abondamment
000110: 63 6F 6D 6D 65 6E 74 7B 20 2E 0D 0A 20 3B 0D 0A comment{ ... ;..
000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000130: 20 20 20 20 20 20 20 20 20 20 3B 2D 2D 2D 2D 2D ;-----
000140: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000150: 2D 2D 2D 2D 0D 0A 20 20 20 20 20 20 20 20 20 20 ----..
000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000170: 3B 2D 20 49 4E 49 54 49 41 4C 49 53 45 52 20 50 ;- INITIALISER P
000180: 52 4F 47 52 41 4D 4D 45 20 2D 0D 0A 20 20 20 20 ROGRAMME -..
000190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001A0: 20 20 20 20 20 20 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D ;---------
0001B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0001C0: 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 58 .. ;.. X
0001D0: 4F 52 20 41 20 20 20 20 20 20 20 20 20 20 20 20 OR A
0001E0: 20 20 20 3B 49 4E 49 54 49 41 4C 49 53 45 52 20 ;INITIALISER
0001F0: 56 41 52 49 41 42 4C 45 53 0D 0A 20 20 20 20 20 VARIABLES..
Size : 512 (Real : 512)
000000: 20 20 20 20 4C 44 20 28 44 52 4C 29 2C 41 20 20 LD (DRL),A
000010: 20 20 20 20 20 20 20 20 3B 44 72 69 76 65 20 6C ;Drive l
000020: 65 63 74 75 72 65 0D 0A 20 20 20 20 20 20 20 20 ecture..
000030: 20 4C 44 20 28 44 52 57 29 2C 41 20 20 20 20 20 LD (DRW),A
000040: 20 20 20 20 20 3B 44 72 69 76 65 20 65 63 72 69 ;Drive ecri
000050: 74 75 72 65 0D 0A 20 20 20 20 20 20 20 20 20 4C ture.. L
000060: 44 20 28 48 44 4C 29 2C 41 20 20 20 20 20 20 20 D (HDL),A
000070: 20 20 20 3B 54 65 74 65 20 6C 65 63 74 75 72 65 ;Tete lecture
000080: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 48 .. LD (H
000090: 44 57 29 2C 41 20 20 20 20 20 20 20 20 20 20 3B DW),A ;
0000A0: 54 65 74 65 20 65 63 72 69 74 75 72 65 0D 0A 20 Tete ecriture..
0000B0: 20 20 20 20 20 20 20 20 4C 44 20 28 50 52 45 4D LD (PREM
0000C0: 50 49 53 29 2C 41 20 20 20 20 20 20 3B 50 72 65 PIS),A ;Pre
0000D0: 6D 69 65 72 65 20 70 69 73 74 65 0D 0A 20 20 20 miere piste..
0000E0: 20 20 20 20 20 20 4C 44 20 28 46 4C 41 47 4D 4F LD (FLAGMO
0000F0: 54 29 2C 41 20 20 20 20 20 20 3B 46 6C 61 67 20 T),A ;Flag
000100: 6D 6F 74 65 75 72 20 4F 46 46 0D 0A 20 20 20 20 moteur OFF..
000110: 20 20 20 20 20 4C 44 20 28 46 4C 41 47 49 4D 50 LD (FLAGIMP
000120: 29 2C 41 20 20 20 20 20 20 3B 46 6C 61 67 20 69 ),A ;Flag i
000130: 6D 70 72 69 6D 61 6E 74 65 20 4F 46 46 0D 0A 20 mprimante OFF..
000140: 20 20 20 20 20 20 20 20 41 44 44 20 41 2C 23 34 ADD A,#4
000150: 31 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 1.. LD (
000160: 54 53 4F 55 44 45 53 2B 32 30 29 2C 41 20 20 20 TSOUDES+20),A
000170: 3B 4D 6F 64 69 66 69 65 72 20 74 65 78 74 65 73 ;Modifier textes
000180: 20 64 72 69 76 65 73 0D 0A 20 20 20 20 20 20 20 drives..
000190: 20 20 4C 44 20 28 54 53 4F 55 52 43 45 2B 33 33 LD (TSOURCE+33
0001A0: 29 2C 41 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 ),A.. LD
0001B0: 20 28 54 53 4F 55 44 45 53 2B 34 37 29 2C 41 0D (TSOUDES+47),A.
0001C0: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 54 44 . LD (TD
0001D0: 45 53 54 49 4E 2B 33 38 29 2C 41 0D 0A 20 20 20 ESTIN+38),A..
0001E0: 20 20 20 20 20 20 43 41 4C 4C 20 44 45 55 58 4E CALL DEUXN
0001F0: 42 20 20 20 20 20 20 20 20 20 3B 43 6F 6E 76 65 B ;Conve
Size : 512 (Real : 512)
000000: 72 73 69 6F 6E 73 20 6E 75 6D 65 72 69 71 75 65 rsions numerique
000010: 73 20 73 75 72 20 32 20 6E 6F 6D 62 72 65 73 0D s sur 2 nombres.
000020: 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 . ;.. LD
000030: 20 42 43 2C 30 20 20 20 20 20 20 20 20 20 3B 49 BC,0 ;I
000040: 4E 49 54 49 41 4C 49 53 45 52 20 4D 4F 44 45 20 NITIALISER MODE
000050: 26 20 43 4F 55 4C 45 55 52 53 0D 0A 20 20 20 20 & COULEURS..
000060: 20 20 20 20 20 43 41 4C 4C 20 23 42 43 33 38 20 CALL #BC38
000070: 20 20 20 20 20 3B 42 6F 72 64 65 72 20 30 0D 0A ;Border 0..
000080: 20 20 20 20 20 20 20 20 20 4C 44 20 42 43 2C 30 LD BC,0
000090: 0D 0A 20 20 20 20 20 20 20 20 20 58 4F 52 20 41 .. XOR A
0000A0: 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 .. CALL
0000B0: 23 42 43 33 32 20 20 20 20 20 20 3B 49 6E 6B 20 #BC32 ;Ink
0000C0: 30 2C 30 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 0,0.. LD
0000D0: 20 41 2C 31 0D 0A 20 20 20 20 20 20 20 20 20 4C A,1.. L
0000E0: 44 20 42 43 2C 23 30 46 30 46 0D 0A 20 20 20 20 D BC,#0F0F..
0000F0: 20 20 20 20 20 43 41 4C 4C 20 23 42 43 33 32 20 CALL #BC32
000100: 20 20 20 20 20 3B 49 6E 6B 20 31 2C 31 35 0D 0A ;Ink 1,15..
000110: 20 20 20 20 20 20 20 20 20 58 4F 52 20 41 0D 0A XOR A..
000120: 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 23 42 CALL #B
000130: 42 39 36 20 20 20 20 20 20 3B 50 61 70 65 72 20 B96 ;Paper
000140: 30 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 41 0.. LD A
000150: 2C 31 20 20 20 20 20 20 20 20 20 20 0D 0A 20 20 ,1 ..
000160: 20 20 20 20 20 20 20 43 41 4C 4C 20 23 42 42 39 CALL #BB9
000170: 30 20 20 20 20 20 20 3B 50 65 6E 20 31 0D 0A 20 0 ;Pen 1..
000180: 20 20 20 20 20 20 20 20 4C 44 20 41 2C 32 20 20 LD A,2
000190: 20 20 20 20 20 20 20 20 0D 0A 20 20 20 20 20 20 ..
0001A0: 20 20 20 43 41 4C 4C 20 23 42 43 30 45 20 20 20 CALL #BC0E
0001B0: 20 20 20 3B 4D 6F 64 65 20 32 0D 0A 20 3B 0D 0A ;Mode 2.. ;..
0001C0: 20 20 20 20 20 20 20 20 20 4C 44 20 48 4C 2C 54 LD HL,T
0001D0: 55 53 20 20 20 20 20 20 20 41 66 66 69 63 68 65 US Affiche
0001E0: 72 20 74 65 78 74 65 20 69 6E 74 72 6F 64 75 63 r texte introduc
0001F0: 74 69 6F 6E 0D 0A 20 20 20 20 20 20 20 20 20 43 tion.. C
Size : 512 (Real : 512)
000000: 41 4C 4C 20 50 52 54 0D 0A 20 3B 0D 0A 20 20 20 ALL PRT.. ;..
000010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000020: 20 20 20 20 20 20 20 20 20 3B 2D 20 54 45 53 54 ;- TEST
000030: 45 52 20 4C 45 53 20 44 52 49 56 45 53 20 2D 0D ER LES DRIVES -.
000040: 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 43 41 . ;.. CA
000050: 4C 4C 20 4D 4F 54 4F 4E 20 20 20 20 20 20 3B 4D LL MOTON ;M
000060: 6F 74 65 75 72 20 65 6E 20 72 6F 75 74 65 0D 0A oteur en route..
000070: 20 52 45 54 53 54 20 20 20 43 41 4C 4C 20 45 46 RETST CALL EF
000080: 46 53 43 52 20 20 20 20 20 3B 45 66 66 61 63 65 FSCR ;Efface
000090: 72 20 65 63 72 61 6E 0D 0A 20 3B 0D 0A 20 4E 45 r ecran.. ;.. NE
0000A0: 57 54 53 54 20 20 4C 44 20 41 2C 23 43 39 20 20 WTST LD A,#C9
0000B0: 20 20 20 20 20 20 3B 49 6E 76 61 6C 69 64 65 72 ;Invalider
0000C0: 20 72 6F 75 74 69 6E 65 20 65 72 72 65 75 72 20 routine erreur
0000D0: 64 72 69 76 65 20 70 6F 75 72 0D 0A 20 20 20 20 drive pour..
0000E0: 20 20 20 20 20 4C 44 20 28 52 45 54 54 53 44 52 LD (RETTSDR
0000F0: 29 2C 41 20 20 3B 6E 65 20 70 61 73 20 62 6C 6F ),A ;ne pas blo
000100: 71 75 65 72 20 65 6E 20 63 61 73 20 64 65 20 64 quer en cas de d
000110: 69 73 63 20 6D 69 73 73 69 6E 67 0D 0A 20 20 20 isc missing..
000120: 20 20 20 20 20 20 43 41 4C 4C 20 20 54 53 54 32 CALL TST2
000130: 44 52 20 20 20 20 3B 54 65 73 74 65 72 20 64 72 DR ;Tester dr
000140: 69 76 65 73 20 63 6F 6D 6D 65 20 64 61 6E 73 20 ives comme dans
000150: 76 65 72 73 69 6F 6E 73 20 70 72 65 63 65 64 65 versions precede
000160: 6E 74 65 73 0D 0A 20 20 20 20 20 20 20 20 20 4C ntes.. L
000170: 44 20 48 4C 2C 23 32 32 30 36 20 20 20 20 20 3B D HL,#2206 ;
000180: 4C 6F 63 61 74 65 20 70 6F 75 72 20 43 4F 4E 46 Locate pour CONF
000190: 49 52 4D 0D 0A 20 20 20 20 20 20 20 20 20 43 41 IRM.. CA
0001A0: 4C 4C 20 43 4F 4E 46 49 52 4D 20 20 20 20 3B 44 LL CONFIRM ;D
0001B0: 72 69 76 65 73 20 4F 4B 20 3F 0D 0A 20 20 20 20 rives OK ?..
0001C0: 20 20 20 20 20 4A 52 20 4E 43 2C 4E 45 57 54 53 JR NC,NEWTS
0001D0: 54 20 20 20 20 3B 4E 6F 6E 20 21 0D 0A 20 20 20 T ;Non !..
0001E0: 20 20 20 20 20 20 58 4F 52 20 41 0D 0A 20 20 20 XOR A..
0001F0: 20 20 20 20 20 20 4C 44 20 28 52 45 54 54 53 44 LD (RETTSD
Size : 512 (Real : 512)
000000: 52 29 2C 41 0D 0A 20 3B 0D 0A 20 4E 45 57 43 48 R),A.. ;.. NEWCH
000010: 47 20 20 4C 44 20 48 4C 2C 54 4D 45 4E 43 48 47 G LD HL,TMENCHG
000020: 20 20 20 3B 4D 45 4E 55 20 50 52 49 4E 43 49 50 ;MENU PRINCIP
000030: 41 4C 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C AL.. CAL
000040: 4C 20 50 52 54 0D 0A 20 20 20 20 20 20 20 20 20 L PRT..
000050: 4C 44 20 48 4C 2C 54 49 4D 50 52 49 4D 0D 0A 20 LD HL,TIMPRIM..
000060: 20 20 20 20 20 20 20 20 43 41 4C 4C 20 50 52 54 CALL PRT
000070: 0D 0A 20 3B 0D 0A 20 54 53 54 43 48 47 20 20 4C .. ;.. TSTCHG L
000080: 44 20 48 4C 2C 54 53 4F 55 44 45 53 0D 0A 20 20 D HL,TSOUDES..
000090: 20 20 20 20 20 20 20 43 41 4C 4C 20 50 52 54 0D CALL PRT.
0000A0: 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 23 . CALL #
0000B0: 42 42 30 36 0D 0A 20 20 20 20 20 20 20 20 20 41 BB06.. A
0000C0: 4E 44 20 23 44 46 0D 0A 20 3B 0D 0A 20 20 20 20 ND #DF.. ;..
0000D0: 20 20 20 20 20 43 50 20 22 41 22 0D 0A 20 20 20 CP "A"..
0000E0: 20 20 20 20 20 20 4A 52 20 5A 2C 43 48 47 53 20 JR Z,CHGS
0000F0: 20 20 20 20 20 20 3B 43 68 61 6E 67 65 72 20 64 ;Changer d
000100: 72 69 76 65 20 73 6F 75 72 63 65 0D 0A 20 20 20 rive source..
000110: 20 20 20 20 20 20 43 50 20 22 42 22 0D 0A 20 20 CP "B"..
000120: 20 20 20 20 20 20 20 4A 52 20 5A 2C 43 48 47 44 JR Z,CHGD
000130: 52 56 20 20 20 20 20 3B 43 68 61 6E 67 65 72 20 RV ;Changer
000140: 64 72 69 76 65 20 64 65 73 74 69 6E 61 74 69 6F drive destinatio
000150: 6E 0D 0A 20 20 20 20 20 20 20 20 20 43 50 20 22 n.. CP "
000160: 43 22 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 20 C".. JR
000170: 5A 2C 43 48 47 54 53 20 20 20 20 20 20 3B 43 68 Z,CHGTS ;Ch
000180: 61 6E 67 65 72 20 74 65 74 65 20 73 6F 75 72 63 anger tete sourc
000190: 65 0D 0A 20 20 20 20 20 20 20 20 20 43 50 20 22 e.. CP "
0001A0: 44 22 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 20 D".. JR
0001B0: 5A 2C 43 48 47 54 44 20 20 20 20 20 20 3B 43 68 Z,CHGTD ;Ch
0001C0: 61 6E 67 65 72 20 74 65 74 65 20 64 65 73 74 69 anger tete desti
0001D0: 6E 61 74 69 6F 6E 0D 0A 20 20 20 20 20 20 20 20 nation..
0001E0: 20 43 50 20 22 45 22 0D 0A 20 20 20 20 20 20 20 CP "E"..
0001F0: 20 20 4A 50 20 5A 2C 43 48 47 49 4D 50 20 20 20 JP Z,CHGIMP
Size : 512 (Real : 512)
000000: 20 20 3B 49 6D 70 72 69 6D 61 6E 74 65 20 4F 4E ;Imprimante ON
000010: 2F 4F 46 46 0D 0A 20 20 20 20 20 20 20 20 20 43 /OFF.. C
000020: 50 20 31 33 0D 0A 20 20 20 20 20 20 20 20 20 4A P 13.. J
000030: 52 20 5A 2C 44 4F 4E 50 49 53 54 20 20 20 20 3B R Z,DONPIST ;
000040: 46 69 6E 20 64 65 20 73 65 6C 65 63 74 69 6F 6E Fin de selection
000050: 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 20 54 53 .. JR TS
000060: 54 43 48 47 0D 0A 20 3B 0D 0A 20 43 48 47 53 20 TCHG.. ;.. CHGS
000070: 20 20 20 4C 44 20 41 2C 28 44 52 4C 29 20 20 20 LD A,(DRL)
000080: 20 20 20 20 20 20 20 3B 43 48 41 4E 47 45 20 44 ;CHANGE D
000090: 52 49 56 45 20 53 4F 55 52 43 45 0D 0A 20 20 20 RIVE SOURCE..
0000A0: 20 20 20 20 20 20 43 41 4C 4C 20 43 48 41 4E 47 CALL CHANG
0000B0: 45 20 20 20 20 20 20 20 20 20 3B 42 61 73 63 75 E ;Bascu
0000C0: 6C 65 20 30 2D 31 20 6F 75 20 31 2D 30 0D 0A 20 le 0-1 ou 1-0..
0000D0: 20 20 20 20 20 20 20 20 4C 44 20 28 44 52 4C 29 LD (DRL)
0000E0: 2C 41 0D 0A 20 20 20 20 20 20 20 20 20 41 44 44 ,A.. ADD
0000F0: 20 41 2C 23 34 31 20 20 20 20 20 20 20 20 20 20 A,#41
000100: 20 3B 4E 75 6D 65 72 6F 20 64 72 69 76 65 20 65 ;Numero drive e
000110: 6E 20 41 53 43 49 49 0D 0A 20 20 20 20 20 20 20 n ASCII..
000120: 20 20 4C 44 20 28 54 53 4F 55 44 45 53 2B 32 30 LD (TSOUDES+20
000130: 29 2C 41 20 20 20 3B 4D 6F 64 69 66 69 65 72 20 ),A ;Modifier
000140: 74 65 78 74 65 73 0D 0A 20 20 20 20 20 20 20 20 textes..
000150: 20 4C 44 20 28 54 53 4F 55 52 43 45 2B 33 33 29 LD (TSOURCE+33)
000160: 2C 41 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 20 ,A.. JR
000170: 54 53 54 43 48 47 0D 0A 20 3B 0D 0A 20 43 48 47 TSTCHG.. ;.. CHG
000180: 44 52 56 20 20 4C 44 20 41 2C 28 44 52 57 29 20 DRV LD A,(DRW)
000190: 20 20 20 20 20 20 20 20 20 3B 43 48 41 4E 47 45 ;CHANGE
0001A0: 20 44 52 49 56 45 20 44 45 53 54 49 4E 41 54 49 DRIVE DESTINATI
0001B0: 4F 4E 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C ON.. CAL
0001C0: 4C 20 43 48 41 4E 47 45 0D 0A 20 20 20 20 20 20 L CHANGE..
0001D0: 20 20 20 4C 44 20 28 44 52 57 29 2C 41 0D 0A 20 LD (DRW),A..
0001E0: 20 20 20 20 20 20 20 20 41 44 44 20 41 2C 23 34 ADD A,#4
0001F0: 31 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 1.. LD (
Size : 512 (Real : 512)
000000: 54 53 4F 55 44 45 53 2B 34 37 29 2C 41 0D 0A 20 TSOUDES+47),A..
000010: 20 20 20 20 20 20 20 20 4C 44 20 28 54 44 45 53 LD (TDES
000020: 54 49 4E 2B 33 38 29 2C 41 0D 0A 20 20 20 20 20 TIN+38),A..
000030: 20 20 20 20 4A 52 20 54 53 54 43 48 47 0D 0A 20 JR TSTCHG..
000040: 3B 0D 0A 20 43 48 47 54 53 20 20 20 4C 44 20 41 ;.. CHGTS LD A
000050: 2C 28 48 44 4C 29 20 20 20 20 20 20 20 20 20 20 ,(HDL)
000060: 3B 43 48 41 4E 47 45 20 54 45 54 45 20 53 4F 55 ;CHANGE TETE SOU
000070: 52 43 45 0D 0A 20 20 20 20 20 20 20 20 20 43 41 RCE.. CA
000080: 4C 4C 20 43 48 41 4E 47 45 0D 0A 20 20 20 20 20 LL CHANGE..
000090: 20 20 20 20 4C 44 20 28 48 44 4C 29 2C 41 0D 0A LD (HDL),A..
0000A0: 20 20 20 20 20 20 20 20 20 4C 44 20 48 4C 2C 54 LD HL,T
0000B0: 53 4F 55 44 45 53 2B 32 31 0D 0A 20 20 20 20 20 SOUDES+21..
0000C0: 20 20 20 20 4A 52 20 43 48 47 48 44 0D 0A 20 3B JR CHGHD.. ;
0000D0: 0D 0A 20 43 48 47 54 44 20 20 20 4C 44 20 41 2C .. CHGTD LD A,
0000E0: 28 48 44 57 29 20 20 20 20 20 20 20 20 20 20 3B (HDW) ;
0000F0: 43 48 41 4E 47 45 20 54 45 54 45 20 44 45 53 54 CHANGE TETE DEST
000100: 49 4E 41 54 49 4F 4E 0D 0A 20 20 20 20 20 20 20 INATION..
000110: 20 20 43 41 4C 4C 20 43 48 41 4E 47 45 0D 0A 20 CALL CHANGE..
000120: 20 20 20 20 20 20 20 20 4C 44 20 28 48 44 57 29 LD (HDW)
000130: 2C 41 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 ,A.. LD
000140: 48 4C 2C 54 53 4F 55 44 45 53 2B 34 38 0D 0A 20 HL,TSOUDES+48..
000150: 43 48 47 48 44 20 20 20 41 44 44 20 41 2C 22 30 CHGHD ADD A,"0
000160: 22 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 ".. LD (
000170: 48 4C 29 2C 41 0D 0A 20 20 20 20 20 20 20 20 20 HL),A..
000180: 4A 52 20 54 53 54 43 48 47 0D 0A 20 3B 0D 0A 20 JR TSTCHG.. ;..
000190: 43 48 47 49 4D 50 20 20 4C 44 20 41 2C 28 46 4C CHGIMP LD A,(FL
0001A0: 41 47 49 4D 50 29 20 20 20 20 20 20 3B 49 4D 50 AGIMP) ;IMP
0001B0: 52 49 4D 41 4E 54 45 20 4F 4E 2F 4F 46 46 0D 0A RIMANTE ON/OFF..
0001C0: 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 43 48 CALL CH
0001D0: 41 4E 47 45 0D 0A 20 20 20 20 20 20 20 20 20 4C ANGE.. L
0001E0: 44 20 48 4C 2C 54 4E 4F 4E 20 20 20 20 20 20 20 D HL,TNON
0001F0: 20 20 20 3B 54 65 78 74 65 20 27 4E 4F 4E 27 0D ;Texte 'NON'.
Size : 512 (Real : 512)
000000: 0A 20 20 20 20 20 20 20 20 20 4F 52 20 41 0D 0A . OR A..
000010: 20 20 20 20 20 20 20 20 20 4A 52 20 5A 2C 49 4D JR Z,IM
000020: 50 4F 46 46 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 POFF.. ;..
000030: 20 20 20 43 41 4C 4C 20 23 42 44 32 45 20 20 20 CALL #BD2E
000040: 20 20 20 20 20 20 20 3B 53 69 20 69 6D 70 72 69 ;Si impri
000050: 6D 61 6E 74 65 20 70 61 73 20 72 65 61 64 79 20 mante pas ready
000060: 2C 20 42 49 50 20 65 74 20 61 62 61 6E 64 6F 6E , BIP et abandon
000070: 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 20 4E 43 .. JR NC
000080: 2C 49 4D 50 4F 4E 0D 0A 20 20 20 20 20 20 20 20 ,IMPON..
000090: 20 4C 44 20 41 2C 37 0D 0A 20 20 20 20 20 20 20 LD A,7..
0000A0: 20 20 43 41 4C 4C 20 23 42 42 35 41 0D 0A 20 20 CALL #BB5A..
0000B0: 20 20 20 20 20 20 20 4A 50 20 54 53 54 43 48 47 JP TSTCHG
0000C0: 0D 0A 20 3B 0D 0A 20 49 4D 50 4F 4E 20 20 20 4C .. ;.. IMPON L
0000D0: 44 20 48 4C 2C 54 4F 55 49 20 20 20 20 20 20 20 D HL,TOUI
0000E0: 20 20 20 3B 54 65 78 74 65 20 27 4F 55 49 27 0D ;Texte 'OUI'.
0000F0: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 41 2C 31 . LD A,1
000100: 0D 0A 20 49 4D 50 4F 46 46 20 20 4C 44 20 28 46 .. IMPOFF LD (F
000110: 4C 41 47 49 4D 50 29 2C 41 0D 0A 20 3B 0D 0A 20 LAGIMP),A.. ;..
000120: 49 4D 50 53 45 54 20 20 4C 44 20 44 45 2C 54 49 IMPSET LD DE,TI
000130: 4D 50 52 49 4D 2B 33 30 20 20 20 20 3B 4D 6F 64 MPRIM+30 ;Mod
000140: 69 66 69 65 72 20 74 65 78 74 65 20 69 6D 70 72 ifier texte impr
000150: 69 6D 61 6E 74 65 0D 0A 20 20 20 20 20 20 20 20 imante..
000160: 20 4C 44 20 42 43 2C 33 0D 0A 20 20 20 20 20 20 LD BC,3..
000170: 20 20 20 4C 44 49 52 0D 0A 20 20 20 20 20 20 20 LDIR..
000180: 20 20 4C 44 20 48 4C 2C 54 49 4D 50 52 49 4D 0D LD HL,TIMPRIM.
000190: 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 50 . CALL P
0001A0: 52 54 0D 0A 20 20 20 20 20 20 20 20 20 4A 50 20 RT.. JP
0001B0: 54 53 54 43 48 47 0D 0A 20 3B 0D 0A 20 43 48 41 TSTCHG.. ;.. CHA
0001C0: 4E 47 45 20 20 49 4E 43 20 41 20 20 20 20 20 20 NGE INC A
0001D0: 20 20 20 20 20 3B 53 69 20 41 20 65 74 61 69 74 ;Si A etait
0001E0: 20 31 2C 41 20 64 65 76 69 65 6E 74 20 30 2E 20 1,A devient 0.
0001F0: 53 69 20 65 74 61 69 74 20 30 20 64 65 76 69 65 Si etait 0 devie
Size : 512 (Real : 512)
000000: 6E 74 20 31 0D 0A 20 20 20 20 20 20 20 20 20 43 nt 1.. C
000010: 50 20 31 0D 0A 20 20 20 20 20 20 20 20 20 52 45 P 1.. RE
000020: 54 20 5A 0D 0A 20 20 20 20 20 20 20 20 20 58 4F T Z.. XO
000030: 52 20 41 0D 0A 20 20 20 20 20 20 20 20 20 52 45 R A.. RE
000040: 54 0D 0A 20 3B 0D 0A 20 44 4F 4E 50 49 53 54 20 T.. ;.. DONPIST
000050: 4C 44 20 41 2C 34 31 20 20 20 20 20 20 20 20 20 LD A,41
000060: 3B 49 6E 69 74 69 61 6C 69 73 65 72 20 64 65 72 ;Initialiser der
000070: 6E 69 65 72 65 73 20 70 69 73 74 65 73 20 61 75 nieres pistes au
000080: 20 6D 61 78 69 6D 75 6D 0D 0A 20 20 20 20 20 20 maximum..
000090: 20 20 20 43 41 4C 4C 20 53 45 54 44 45 52 0D 0A CALL SETDER..
0000A0: 20 20 20 20 20 20 20 20 20 4C 44 20 48 4C 2C 54 LD HL,T
0000B0: 50 49 53 54 31 20 20 20 20 3B 44 6F 6E 6E 65 72 PIST1 ;Donner
0000C0: 20 70 69 73 74 65 20 64 65 20 64 65 62 75 74 0D piste de debut.
0000D0: 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 49 . CALL I
0000E0: 4E 50 55 50 52 54 32 0D 0A 20 20 20 20 20 20 20 NPUPRT2..
0000F0: 20 20 4C 44 20 28 50 52 45 4D 50 49 53 29 2C 41 LD (PREMPIS),A
000100: 20 20 3B 50 72 65 6D 69 65 72 65 20 70 69 73 74 ;Premiere pist
000110: 65 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 e.. LD (
000120: 4D 45 4D 4F 44 45 42 29 2C 41 20 20 3B 4D 65 6D MEMODEB),A ;Mem
000130: 6F 72 69 73 65 72 20 70 6F 75 72 20 72 65 70 72 oriser pour repr
000140: 69 73 65 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 ise.. LD
000150: 20 28 50 49 53 54 4C 29 2C 41 20 20 20 20 3B 50 (PISTL),A ;P
000160: 6F 75 72 20 6C 65 63 74 75 72 65 0D 0A 20 20 20 our lecture..
000170: 20 20 20 20 20 20 4C 44 20 28 50 49 53 54 57 29 LD (PISTW)
000180: 2C 41 20 20 20 20 3B 65 74 20 70 6F 75 72 20 65 ,A ;et pour e
000190: 63 72 69 74 75 72 65 0D 0A 20 3B 0D 0A 20 20 20 criture.. ;..
0001A0: 20 20 20 20 20 20 4C 44 20 48 4C 2C 54 50 49 53 LD HL,TPIS
0001B0: 54 32 20 20 20 20 3B 44 6F 6E 6E 65 72 20 70 69 T2 ;Donner pi
0001C0: 73 74 65 20 64 65 20 66 69 6E 0D 0A 20 20 20 20 ste de fin..
0001D0: 20 20 20 20 20 43 41 4C 4C 20 49 4E 50 55 50 52 CALL INPUPR
0001E0: 54 32 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C T2.. CAL
0001F0: 4C 20 53 45 54 44 45 52 20 20 20 20 20 3B 4D 45 L SETDER ;ME
Size : 512 (Real : 512)
000000: 20 20 6C 61 20 20 63 61 73 65 20 64 7B 70 61 72 la case d{par
000010: 74 20 61 76 65 63 20 75 6E 20 70 6F 69 6E 74 20 t avec un point
000020: 64 65 20 6C 6F 6E 67 75 65 75 72 0D 0A 20 65 6E de longueur.. en
000030: 20 6D 6F 69 6E 73 20 2E 0D 0A 20 0D 0A 20 20 20 moins ... ..
000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000050: 20 20 20 20 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D ------
000060: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D ---------------.
000070: 0A 20 3B 0D 0A 20 45 58 49 45 43 52 41 20 4C 44 . ;.. EXIECRA LD
000080: 20 41 2C 28 4E 42 53 50 52 4F 56 29 20 20 3B 56 A,(NBSPROV) ;V
000090: 6F 69 72 20 73 69 20 6C 65 20 6E 6F 6D 62 72 65 oir si le nombre
0000A0: 20 6D 61 78 69 6D 75 6D 20 64 65 20 73 65 63 74 maximum de sect
0000B0: 65 75 72 73 20 74 6F 6C 65 72 65 73 20 70 61 72 eurs toleres par
0000C0: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 42 2C .. LD B,
0000D0: 41 20 20 20 20 20 20 20 20 20 20 3B 6C 61 20 74 A ;la t
0000E0: 61 69 6C 6C 65 20 64 65 20 66 6F 72 6D 61 74 20 aille de format
0000F0: 65 73 74 20 64 65 70 61 73 73 65 20 2E 0D 0A 20 est depasse ...
000100: 20 20 20 20 20 20 20 20 43 41 4C 4C 20 52 45 43 CALL REC
000110: 54 49 4E 42 31 20 20 20 3B 52 45 43 54 49 4E 42 TINB1 ;RECTINB
000120: 31 20 66 61 69 74 20 6C 65 73 20 63 6F 6D 70 74 1 fait les compt
000130: 65 73 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 20 es.. JR
000140: 43 2C 46 49 4E 45 43 52 41 20 20 20 20 3B 53 69 C,FINECRA ;Si
000150: 20 63 27 65 73 74 20 6A 75 73 74 65 20 2C 20 63 c'est juste , c
000160: 27 65 73 74 20 66 69 6E 69 20 2E 0D 0A 20 3B 0D 'est fini ... ;.
000170: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 41 2C 28 . LD A,(
000180: 4C 4D 49 4E 29 20 20 20 20 20 3B 4F 6E 20 64 65 LMIN) ;On de
000190: 62 6F 72 64 65 20 2E 20 53 69 20 4C 4D 49 4E 20 borde . Si LMIN
0001A0: 65 74 61 69 74 20 7A 65 72 6F 20 6F 6E 20 61 20 etait zero on a
0001B0: 76 72 61 69 6D 65 6E 74 0D 0A 20 20 20 20 20 20 vraiment..
0001C0: 20 20 20 4F 52 20 41 20 20 20 20 20 20 20 20 20 OR A
0001D0: 20 20 20 3B 75 6E 20 70 72 6F 62 6C 65 6D 65 20 ;un probleme
0001E0: 65 74 20 6F 6E 20 6C 61 69 73 73 65 20 74 6F 6D et on laisse tom
0001F0: 62 65 72 20 21 20 28 43 61 73 20 69 6E 63 6F 6E ber ! (Cas incon
Size : 512 (Real : 512)
000000: 6E 75 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 20 nu.. JR
000010: 5A 2C 46 49 4E 45 43 52 41 20 20 20 20 3B 61 20 Z,FINECRA ;a
000020: 63 65 20 6A 6F 75 72 29 0D 0A 20 3B 0D 0A 20 20 ce jour).. ;..
000030: 20 20 20 20 20 20 20 44 45 43 20 41 0D 0A 20 20 DEC A..
000040: 20 20 20 20 20 20 20 4C 44 20 28 4C 4D 49 4E 29 LD (LMIN)
000050: 2C 41 20 20 20 20 20 3B 53 69 6E 6F 6E 20 6F 6E ,A ;Sinon on
000060: 20 72 65 63 6F 6D 6D 65 6E 63 65 20 61 76 65 63 recommence avec
000070: 20 6C 61 20 74 61 69 6C 6C 65 20 65 6E 20 64 65 la taille en de
000080: 73 73 6F 75 73 0D 0A 20 20 20 20 20 20 20 20 20 ssous..
000090: 43 41 4C 4C 20 41 44 44 4C 4F 4E 20 20 20 20 20 CALL ADDLON
0000A0: 3B 52 65 66 61 69 72 65 20 4C 4F 4E 47 53 45 43 ;Refaire LONGSEC
0000B0: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 41 2C .. LD A,
0000C0: 33 20 20 20 20 20 20 20 20 20 20 3B 44 61 6E 73 3 ;Dans
0000D0: 20 63 65 20 63 61 73 20 6C 65 20 47 41 50 20 61 ce cas le GAP a
0000E0: 20 39 39 25 20 64 65 20 63 68 61 6E 63 65 73 20 99% de chances
0000F0: 64 27 65 74 72 65 0D 0A 20 20 20 20 20 20 20 20 d'etre..
000100: 20 4C 44 20 28 47 41 50 46 4F 52 4D 29 2C 41 20 LD (GAPFORM),A
000110: 20 3B 66 61 75 78 20 21 20 4F 6E 20 6C 65 20 6D ;faux ! On le m
000120: 65 74 20 61 75 20 6D 69 6E 69 6D 75 6D 0D 0A 20 et au minimum..
000130: 20 20 20 20 20 20 20 20 43 41 4C 4C 20 53 45 54 CALL SET
000140: 47 52 57 20 20 20 20 20 3B 73 61 6E 73 20 6F 75 GRW ;sans ou
000150: 62 6C 69 65 72 20 6C 65 20 47 41 50 20 52 2F 57 blier le GAP R/W
000160: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 41 2C .. LD A,
000170: 28 4E 42 53 45 43 29 20 20 20 20 3B 4C 65 20 6E (NBSEC) ;Le n
000180: 6F 6D 62 72 65 20 64 65 20 73 65 63 74 65 75 72 ombre de secteur
000190: 73 20 64 6F 69 74 20 65 74 72 65 20 72 65 69 6E s doit etre rein
0001A0: 69 74 69 61 6C 69 73 65 0D 0A 20 20 20 20 20 20 itialise..
0001B0: 20 20 20 4C 44 20 28 4E 42 53 50 52 4F 56 29 2C LD (NBSPROV),
0001C0: 41 20 20 3B 61 20 73 6F 6E 20 6E 6F 6D 62 72 65 A ;a son nombre
0001D0: 20 69 6E 69 74 69 61 6C 0D 0A 20 20 20 20 20 20 initial..
0001E0: 20 20 20 4A 50 20 45 43 52 41 53 45 52 0D 0A 20 JP ECRASER..
0001F0: 3B 0D 0A 20 46 49 4E 45 43 52 41 20 4C 44 20 41 ;.. FINECRA LD A
Size : 512 (Real : 512)
000000: 2C 42 20 20 20 20 20 20 20 20 20 20 3B 4E 6F 75 ,B ;Nou
000010: 76 65 61 75 20 6E 6F 6D 62 72 65 20 64 65 20 73 veau nombre de s
000020: 65 63 74 65 75 72 73 20 63 61 6C 63 75 6C 65 73 ecteurs calcules
000030: 20 63 6F 6D 6D 65 0D 0A 20 20 20 20 20 20 20 20 comme..
000040: 20 4C 44 20 28 4E 42 53 45 43 29 2C 41 20 20 20 LD (NBSEC),A
000050: 20 3B 6E 6F 6D 62 72 65 20 61 20 66 6F 72 6D 61 ;nombre a forma
000060: 74 65 72 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 ter.. LD
000070: 20 48 4C 2C 49 44 4F 55 54 44 52 41 20 20 3B 52 HL,IDOUTDRA ;R
000080: 65 63 6F 70 69 65 72 20 6C 65 73 20 6E 6F 75 76 ecopier les nouv
000090: 65 61 75 78 20 49 44 53 20 64 61 6E 73 20 6C 61 eaux IDS dans la
0000A0: 20 7A 6F 6E 65 20 49 44 20 4C 55 53 0D 0A 20 20 zone ID LUS..
0000B0: 20 20 20 20 20 20 20 4C 44 20 44 45 2C 49 44 49 LD DE,IDI
0000C0: 4E 44 52 41 20 20 20 3B 70 6F 75 72 20 6E 65 20 NDRA ;pour ne
0000D0: 70 61 73 20 61 76 6F 69 72 20 64 65 20 70 72 6F pas avoir de pro
0000E0: 62 6C 65 6D 65 73 20 6C 6F 72 73 20 64 75 20 73 blemes lors du s
0000F0: 74 6F 63 6B 61 67 65 0D 0A 20 20 20 20 20 20 20 tockage..
000100: 20 20 4C 44 20 42 43 2C 32 35 36 0D 0A 20 20 20 LD BC,256..
000110: 20 20 20 20 20 20 4C 44 49 52 0D 0A 20 20 20 20 LDIR..
000120: 20 20 20 20 20 4C 44 20 42 2C 30 0D 0A 20 20 20 LD B,0..
000130: 20 20 20 20 20 20 4C 44 20 43 2C 41 20 20 20 20 LD C,A
000140: 20 20 20 20 20 20 3B 41 3D 4E 42 53 45 43 0D 0A ;A=NBSEC..
000150: 20 20 20 20 20 20 20 20 20 4C 44 20 48 4C 2C 4C LD HL,L
000160: 45 52 50 52 4F 56 20 20 20 3B 45 74 20 72 65 63 ERPROV ;Et rec
000170: 6F 70 69 65 72 20 6C 61 20 6E 6F 75 76 65 6C 6C opier la nouvell
000180: 65 20 6C 69 73 74 65 20 64 65 73 20 65 72 72 65 e liste des erre
000190: 75 72 73 20 61 76 65 63 0D 0A 20 20 20 20 20 20 urs avec..
0001A0: 20 20 20 4C 44 20 44 45 2C 4C 49 53 54 45 52 52 LD DE,LISTERR
0001B0: 20 20 20 3B 73 65 73 20 6F 63 74 65 74 73 20 61 ;ses octets a
0001C0: 20 23 37 46 20 63 6F 72 72 65 73 70 6F 6E 64 61 #7F corresponda
0001D0: 6E 74 20 61 75 78 20 49 44 53 0D 0A 20 20 20 20 nt aux IDS..
0001E0: 20 20 20 20 20 4C 44 49 52 20 20 20 20 20 20 20 LDIR
0001F0: 20 20 20 20 20 3B 71 75 69 20 73 65 72 6F 6E 74 ;qui seront
Size : 512 (Real : 512)
000000: 20 64 65 74 72 75 69 74 73 20 70 61 72 20 6C 61 detruits par la
000010: 20 73 75 69 74 65 0D 0A 20 20 20 20 20 20 20 20 suite..
000020: 20 52 45 54 20 0D 0A 20 3B 0D 0A 20 54 42 30 32 RET .. ;.. TB02
000030: 20 20 20 20 44 42 20 23 35 44 2C 30 0D 0A 20 54 DB #5D,0.. T
000040: 42 30 33 20 20 20 20 44 42 20 23 41 33 2C 23 34 B03 DB #A3,#4
000050: 38 2C 23 31 41 2C 30 0D 0A 20 54 42 30 34 20 20 8,#1A,0.. TB04
000060: 20 20 44 42 20 23 45 37 2C 23 41 31 2C 23 36 46 DB #E7,#A1,#6F
000070: 2C 23 34 39 2C 30 0D 0A 20 54 42 30 35 20 20 20 ,#49,0.. TB05
000080: 20 44 42 20 23 45 31 2C 23 42 43 2C 23 39 43 2C DB #E1,#BC,#9C,
000090: 23 38 32 2C 23 36 42 2C 23 35 37 2C 23 34 36 2C #82,#6B,#57,#46,
0000A0: 23 33 38 2C 23 32 39 2C 23 31 44 2C 23 31 32 2C #38,#29,#1D,#12,
0000B0: 23 30 38 2C 30 0D 0A 20 3B 0D 0A 20 54 42 31 33 #08,0.. ;.. TB13
0000C0: 20 20 20 20 44 42 20 23 44 44 2C 23 32 41 2C 30 DB #DD,#2A,0
0000D0: 0D 0A 20 54 42 31 34 20 20 20 20 44 42 20 23 44 .. TB14 DB #D
0000E0: 30 2C 23 36 37 2C 23 32 31 2C 30 0D 0A 20 54 42 0,#67,#21,0.. TB
0000F0: 31 35 20 20 20 20 44 42 20 23 43 39 2C 23 39 30 15 DB #C9,#90
000100: 2C 23 36 32 2C 23 33 43 2C 23 31 43 2C 30 0D 0A ,#62,#3C,#1C,0..
000110: 20 3B 0D 0A 20 54 42 32 34 20 20 20 20 44 42 20 ;.. TB24 DB
000120: 23 38 30 2C 30 0D 0A 20 3B 0D 0A 20 52 45 43 54 #80,0.. ;.. RECT
000130: 49 4E 42 20 4C 44 20 41 2C 28 4E 42 53 45 43 29 INB LD A,(NBSEC)
000140: 20 20 20 20 3B 4A 75 73 74 65 20 75 6E 65 20 73 ;Juste une s
000150: 75 69 74 65 20 64 65 20 63 6F 6D 70 61 72 61 69 uite de comparai
000160: 73 6F 6E 73 20 71 75 69 20 73 27 61 73 73 75 72 sons qui s'assur
000170: 65 0D 0A 20 52 45 43 54 49 4E 42 31 20 4C 44 20 e.. RECTINB1 LD
000180: 42 2C 41 20 20 20 20 20 20 20 20 20 3B 64 75 20 B,A ;du
000190: 62 6F 6E 20 72 61 70 70 6F 72 74 20 65 6E 74 72 bon rapport entr
0001A0: 65 20 6E 6F 6D 62 72 65 20 64 65 20 73 65 63 74 e nombre de sect
0001B0: 65 75 72 73 20 65 74 0D 0A 20 3B 20 20 20 20 20 eurs et.. ;
0001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001D0: 20 20 3B 74 61 69 6C 6C 65 20 64 75 20 66 6F 72 ;taille du for
0001E0: 6D 61 74 20 2E 20 49 63 69 20 6C 61 20 74 61 69 mat . Ici la tai
0001F0: 6C 6C 65 20 64 75 20 47 41 50 20 6E 27 61 20 70 lle du GAP n'a p
Size : 512 (Real : 512)
000000: 4D 4F 45 4E 44 3D 44 45 52 50 49 53 54 20 2C 20 MOEND=DERPIST ,
000010: 50 49 53 54 4D 41 58 3D 44 45 52 50 49 53 54 2B PISTMAX=DERPIST+
000020: 31 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 1.. CALL
000030: 20 56 45 52 49 50 49 53 0D 0A 20 20 20 20 20 20 VERIPIS..
000040: 20 20 20 4A 52 20 4E 43 2C 44 4F 4E 50 49 53 54 JR NC,DONPIST
000050: 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 4C .. ;.. L
000060: 44 20 48 4C 2C 23 32 32 31 35 0D 0A 20 20 20 20 D HL,#2215..
000070: 20 20 20 20 20 43 41 4C 4C 20 43 4F 4E 46 49 52 CALL CONFIR
000080: 4D 20 20 20 20 3B 43 61 20 76 6F 75 73 20 76 61 M ;Ca vous va
000090: 20 3F 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 20 ?.. JR
0000A0: 4E 43 2C 44 4F 4E 50 49 53 54 20 20 20 3B 4E 4F NC,DONPIST ;NO
0000B0: 4E 20 21 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 N !.. ;..
0000C0: 20 20 20 20 20 20 20 20 20 20 20 20 3B 2D 2D 2D ;---
0000D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0000E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0000F0: 2D 2D 2D 2D 2D 0D 0A 20 20 20 20 20 20 20 20 20 -----..
000100: 20 20 20 20 20 20 20 20 20 20 3B 2D 20 50 4F 49 ;- POI
000110: 4E 54 20 44 45 20 52 45 50 52 49 53 45 20 50 4F NT DE REPRISE PO
000120: 55 52 20 4D 45 4D 45 20 4F 50 45 52 41 54 49 4F UR MEME OPERATIO
000130: 4E 20 2D 0D 0A 20 20 20 20 20 20 20 20 20 20 20 N -..
000140: 20 20 20 20 20 20 20 20 3B 2D 2D 2D 2D 2D 2D 2D ;-------
000150: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000160: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000170: 2D 0D 0A 20 3B 0D 0A 20 4D 45 4D 45 4F 50 20 20 -.. ;.. MEMEOP
000180: 43 41 4C 4C 20 45 46 46 53 43 52 20 20 20 20 3B CALL EFFSCR ;
000190: 45 66 66 61 63 65 72 20 64 65 20 6C 61 20 6C 69 Effacer de la li
0001A0: 67 6E 65 20 35 20 61 20 6C 61 20 66 69 6E 20 64 gne 5 a la fin d
0001B0: 65 20 6C 27 65 63 72 61 6E 0D 0A 20 20 20 20 20 e l'ecran..
0001C0: 20 20 20 20 4C 44 20 41 2C 34 31 20 20 20 20 20 LD A,41
0001D0: 20 20 20 3B 54 65 6D 70 6F 72 69 73 61 74 69 6F ;Temporisatio
0001E0: 6E 20 47 4F 50 49 53 54 45 20 61 75 20 6D 61 78 n GOPISTE au max
0001F0: 69 6D 75 6D 20 73 69 6E 6F 6E 20 75 6E 0D 0A 20 imum sinon un..
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 4C 44 20 28 57 41 49 54 LD (WAIT
000010: 50 49 53 29 2C 41 20 3B 64 65 70 6C 61 63 65 6D PIS),A ;deplacem
000020: 65 6E 74 20 69 6D 70 6F 72 74 61 6E 74 20 6E 65 ent important ne
000030: 20 74 72 6F 75 76 65 20 70 61 73 20 6C 61 20 70 trouve pas la p
000040: 69 73 74 65 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 iste.. ;..
000050: 20 20 20 58 4F 52 20 41 20 20 20 20 20 20 20 20 XOR A
000060: 20 20 3B 41 66 66 69 63 68 65 72 20 74 65 78 74 ;Afficher text
000070: 65 73 20 64 65 73 74 69 6E 61 74 69 6F 6E 2D 73 es destination-s
000080: 6F 75 72 63 65 0D 0A 20 20 20 20 20 20 20 20 20 ource..
000090: 43 41 4C 4C 20 52 45 49 4E 49 54 20 20 20 20 3B CALL REINIT ;
0000A0: 52 41 5A 20 42 75 66 66 65 72 20 65 74 20 70 6F RAZ Buffer et po
0000B0: 69 6E 74 65 75 72 73 20 53 45 54 4C 45 43 54 20 inteurs SETLECT
0000C0: 2C 20 50 49 53 54 53 45 4C 3D 50 49 53 54 4C 0D , PISTSEL=PISTL.
0000D0: 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 43 41 . ;.. CA
0000E0: 4C 4C 20 43 50 44 52 49 56 45 20 20 20 3B 56 6F LL CPDRIVE ;Vo
0000F0: 69 72 20 73 69 20 32 20 64 72 69 76 65 73 20 3F ir si 2 drives ?
000100: 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 20 5A 2C .. JR Z,
000110: 55 4E 44 52 49 56 20 20 20 20 3B 4E 4F 4E 0D 0A UNDRIV ;NON..
000120: 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 ;.. LD
000130: 48 4C 2C 23 32 39 31 39 20 20 20 20 3B 32 20 44 HL,#2919 ;2 D
000140: 72 69 76 65 73 20 2E 20 41 74 74 65 6E 64 72 65 rives . Attendre
000150: 20 64 69 73 71 75 65 20 64 65 73 74 69 6E 61 74 disque destinat
000160: 69 6F 6E 0D 0A 20 20 20 20 20 20 20 20 20 43 41 ion.. CA
000170: 4C 4C 20 23 42 42 37 35 0D 0A 20 20 20 20 20 20 LL #BB75..
000180: 20 20 20 4C 44 20 48 4C 2C 54 44 45 53 54 49 4E LD HL,TDESTIN
000190: 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 .. CALL
0001A0: 50 52 54 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 PRT.. ;..
0001B0: 20 20 20 20 20 20 20 3B 2D 2D 2D 2D 2D 2D 2D 2D ;--------
0001C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0001D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0001E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 20 20 20 20 ---------..
0001F0: 20 20 20 20 20 20 20 20 20 3B 2D 20 41 4E 41 4C ;- ANAL
Size : 512 (Real : 512)
000000: 59 53 45 20 2C 20 49 4E 54 45 52 50 52 45 54 41 YSE , INTERPRETA
000010: 54 49 4F 4E 20 2C 20 4C 45 43 54 55 52 45 20 2C TION , LECTURE ,
000020: 20 53 54 4F 43 4B 41 47 45 20 2D 0D 0A 20 20 20 STOCKAGE -..
000030: 20 20 20 20 20 20 20 20 20 20 20 3B 2D 2D 2D 2D ;----
000040: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000050: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000060: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 -------------..
000070: 3B 0D 0A 20 55 4E 44 52 49 56 20 20 43 41 4C 4C ;.. UNDRIV CALL
000080: 20 23 42 42 30 36 0D 0A 20 20 20 20 20 20 20 20 #BB06..
000090: 20 4C 44 20 48 4C 2C 4C 49 53 54 45 52 50 20 20 LD HL,LISTERP
0000A0: 20 3B 4D 69 73 65 20 61 20 7A 65 72 6F 20 64 65 ;Mise a zero de
0000B0: 20 6C 61 20 6C 69 73 74 65 20 64 65 73 20 65 72 la liste des er
0000C0: 72 65 75 72 73 20 70 69 73 74 65 0D 0A 20 20 20 reurs piste..
0000D0: 20 20 20 20 20 20 4C 44 20 28 50 4F 49 4E 45 52 LD (POINER
0000E0: 50 29 2C 48 4C 0D 0A 20 3B 0D 0A 20 20 20 20 20 P),HL.. ;..
0000F0: 20 20 20 20 20 20 20 20 20 20 20 20 3B 2D 20 50 ;- P
000100: 4F 49 4E 54 20 44 45 20 52 45 50 52 49 53 45 20 OINT DE REPRISE
000110: 41 50 52 45 53 20 49 4E 54 45 52 52 55 50 54 49 APRES INTERRUPTI
000120: 4F 4E 20 45 53 43 20 2D 0D 0A 20 3B 0D 0A 20 52 ON ESC -.. ;.. R
000130: 45 50 52 49 53 45 20 4C 44 20 42 43 2C 23 30 31 EPRISE LD BC,#01
000140: 30 31 20 20 20 3B 42 6F 75 63 6C 65 20 70 6F 75 01 ;Boucle pou
000150: 72 20 75 6E 65 20 70 69 73 74 65 0D 0A 20 20 20 r une piste..
000160: 20 20 20 20 20 20 43 41 4C 4C 20 23 42 43 33 38 CALL #BC38
000170: 20 20 20 20 3B 42 6F 72 64 20 62 6C 65 75 0D 0A ;Bord bleu..
000180: 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 ;.. LD
000190: 41 2C 36 36 20 20 20 20 20 20 20 3B 53 74 6F 70 A,66 ;Stop
0001A0: 70 65 72 20 73 69 20 45 53 43 20 70 72 65 73 73 per si ESC press
0001B0: 65 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C e.. CALL
0001C0: 20 23 42 42 31 45 0D 0A 20 20 20 20 20 20 20 20 #BB1E..
0001D0: 20 4A 50 20 4E 5A 2C 46 49 4E 49 53 48 0D 0A 20 JP NZ,FINISH..
0001E0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 48 ;.. LD H
0001F0: 4C 2C 54 4C 49 54 50 49 53 20 20 20 3B 41 66 66 L,TLITPIS ;Aff
Size : 512 (Real : 512)
000000: 69 63 68 65 72 20 70 69 73 74 65 20 65 6E 20 63 icher piste en c
000010: 6F 75 72 73 20 64 65 20 6C 65 63 74 75 72 65 0D ours de lecture.
000020: 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 50 . CALL P
000030: 52 54 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 RT.. LD
000040: 41 2C 28 50 49 53 54 4C 29 0D 0A 20 20 20 20 20 A,(PISTL)..
000050: 20 20 20 20 43 41 4C 4C 20 50 52 54 44 45 43 49 CALL PRTDECI
000060: 41 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 A.. ;..
000070: 43 41 4C 4C 20 47 4F 50 49 53 54 45 20 20 20 20 CALL GOPISTE
000080: 3B 41 4C 4C 45 52 20 50 49 53 54 45 0D 0A 20 20 ;ALLER PISTE..
000090: 20 20 20 20 20 20 20 43 41 4C 4C 20 41 4E 41 50 CALL ANAP
0000A0: 49 53 54 20 20 20 20 3B 41 4E 41 4C 59 53 45 52 IST ;ANALYSER
0000B0: 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 4C .. ;.. L
0000C0: 44 20 42 43 2C 23 30 39 30 39 0D 0A 20 20 20 20 D BC,#0909..
0000D0: 20 20 20 20 20 43 41 4C 4C 20 23 42 43 33 38 20 CALL #BC38
0000E0: 20 20 20 20 20 3B 42 6F 72 64 20 76 65 72 74 0D ;Bord vert.
0000F0: 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 53 . CALL S
000100: 54 4F 4B 50 49 53 54 20 20 20 3B 53 54 4F 43 4B TOKPIST ;STOCK
000110: 45 52 0D 0A 20 3B 0D 0A 20 57 41 49 54 53 50 41 ER.. ;.. WAITSPA
000120: 20 4C 44 20 41 2C 34 37 20 20 20 20 20 20 20 20 LD A,47
000130: 20 3B 41 74 74 65 6E 64 72 65 20 73 69 20 65 73 ;Attendre si es
000140: 70 61 63 65 20 70 72 65 73 73 65 0D 0A 20 20 20 pace presse..
000150: 20 20 20 20 20 20 43 41 4C 4C 20 23 42 42 31 45 CALL #BB1E
000160: 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 20 4E 5A .. JR NZ
000170: 2C 57 41 49 54 53 50 41 0D 0A 20 3B 0D 0A 20 20 ,WAITSPA.. ;..
000180: 20 20 20 20 20 20 20 4C 44 20 48 4C 2C 28 50 4F LD HL,(PO
000190: 49 4E 50 49 53 29 20 3B 50 4F 49 4E 50 49 53 20 INPIS) ;POINPIS
0001A0: 63 6F 6E 74 69 65 6E 74 20 6C 27 61 64 72 65 73 contient l'adres
0001B0: 73 65 20 64 65 20 66 69 6E 20 64 65 20 73 74 6F se de fin de sto
0001C0: 63 6B 61 67 65 20 2B 20 31 0D 0A 20 20 20 20 20 ckage + 1..
0001D0: 20 20 20 20 4C 44 20 44 45 2C 36 30 30 30 20 20 LD DE,6000
0001E0: 20 20 20 20 3B 54 65 73 74 65 72 20 73 69 20 69 ;Tester si i
0001F0: 6C 20 79 2D 61 20 64 65 20 6C 61 20 70 6C 61 63 l y-a de la plac
Size : 512 (Real : 512)
000000: 65 20 70 6F 75 72 20 6C 65 20 70 72 6F 63 68 61 e pour le procha
000010: 69 6E 0D 0A 20 20 20 20 20 20 20 20 20 41 44 44 in.. ADD
000020: 20 48 4C 2C 44 45 20 20 20 20 20 20 20 3B 73 74 HL,DE ;st
000030: 6F 63 6B 61 67 65 0D 0A 20 20 20 20 20 20 20 20 ockage..
000040: 20 4C 44 20 44 45 2C 33 30 30 30 30 20 20 20 20 LD DE,30000
000050: 20 3B 31 65 72 20 6F 63 74 65 74 20 6F 63 63 75 ;1er octet occu
000060: 70 65 20 70 61 72 20 6C 65 20 70 72 6F 67 72 61 pe par le progra
000070: 6D 6D 65 0D 0A 20 20 20 20 20 20 20 20 20 41 4E mme.. AN
000080: 44 20 41 0D 0A 20 20 20 20 20 20 20 20 20 53 42 D A.. SB
000090: 43 20 48 4C 2C 44 45 0D 0A 20 20 20 20 20 20 20 C HL,DE..
0000A0: 20 20 4A 52 20 4E 43 2C 43 4F 50 49 45 52 20 20 JR NC,COPIER
0000B0: 20 20 3B 43 61 20 63 6F 69 6E 63 65 20 21 20 41 ;Ca coince ! A
0000C0: 6C 6C 65 72 20 63 6F 70 69 65 72 20 65 74 20 76 ller copier et v
0000D0: 69 64 61 6E 67 65 72 20 6C 65 20 62 75 66 66 65 idanger le buffe
0000E0: 72 0D 0A 20 3B 0D 0A 20 4C 49 54 45 4E 43 4F 52 r.. ;.. LITENCOR
0000F0: 20 43 41 4C 4C 20 49 4E 43 50 49 53 54 20 20 20 CALL INCPIST
000100: 3B 43 61 20 70 61 73 73 65 20 2E 20 41 6C 6C 65 ;Ca passe . Alle
000110: 72 20 70 69 73 74 65 20 73 75 69 76 61 6E 74 65 r piste suivante
000120: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 41 2C .. LD A,
000130: 28 50 49 53 54 53 45 4C 29 20 20 3B 65 74 20 6D (PISTSEL) ;et m
000140: 65 6D 6F 72 69 73 65 72 20 70 69 73 74 65 20 6C emoriser piste l
000150: 65 63 74 75 72 65 20 65 6E 20 63 6F 75 72 73 20 ecture en cours
000160: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 50 .. LD (P
000170: 49 53 54 4C 29 2C 41 20 20 20 20 3B 53 69 20 69 ISTL),A ;Si i
000180: 6C 20 72 65 73 74 65 20 64 65 73 20 70 69 73 74 l reste des pist
000190: 65 73 20 61 20 74 72 61 69 74 65 72 20 49 4E 43 es a traiter INC
0001A0: 50 49 53 54 20 6D 65 74 20 6C 65 0D 0A 20 20 20 PIST met le..
0001B0: 20 20 20 20 20 20 4A 52 20 43 2C 52 45 50 52 49 JR C,REPRI
0001C0: 53 45 20 20 20 20 3B 43 41 52 52 59 20 73 69 20 SE ;CARRY si
0001D0: 4E 43 20 63 27 65 73 74 20 66 69 6E 69 20 6F 6E NC c'est fini on
0001E0: 20 72 65 70 72 6F 64 75 69 74 20 63 65 20 71 75 reproduit ce qu
0001F0: 69 20 72 65 73 74 65 0D 0A 20 3B 0D 0A 20 20 20 i reste.. ;..
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000010: 20 20 20 20 20 20 20 20 3B 2D 2D 2D 2D 2D 2D 2D ;-------
000020: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000030: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 2D 20 ;-
000050: 52 45 43 4F 50 49 45 52 20 4C 45 53 20 50 49 53 RECOPIER LES PIS
000060: 54 45 53 20 2D 0D 0A 20 20 20 20 20 20 20 20 20 TES -..
000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000080: 20 20 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ;-------------
000090: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 3B 0D 0A ----------.. ;..
0000A0: 20 43 4F 50 49 45 52 20 20 4C 44 20 41 2C 32 31 COPIER LD A,21
0000B0: 20 20 20 20 20 20 20 20 20 3B 52 65 70 72 6F 64 ;Reprod
0000C0: 75 69 72 65 20 73 69 20 62 75 66 66 65 72 20 70 uire si buffer p
0000D0: 6C 65 69 6E 20 6F 75 20 64 65 72 6E 69 65 72 65 lein ou derniere
0000E0: 20 70 69 73 74 65 0D 0A 20 20 20 20 20 20 20 20 piste..
0000F0: 20 43 41 4C 4C 20 45 46 46 42 41 53 20 20 20 20 CALL EFFBAS
000100: 20 3B 45 66 66 61 63 65 72 20 62 61 73 20 64 27 ;Effacer bas d'
000110: 65 63 72 61 6E 0D 0A 20 20 20 20 20 20 20 20 20 ecran..
000120: 4C 44 20 48 4C 2C 31 30 30 30 20 20 20 20 20 20 LD HL,1000
000130: 3B 50 6F 69 6E 74 65 72 20 31 65 72 20 6F 63 74 ;Pointer 1er oct
000140: 65 74 20 64 75 20 62 75 66 66 65 72 0D 0A 20 20 et du buffer..
000150: 20 20 20 20 20 20 20 4C 44 20 28 50 4F 49 4E 50 LD (POINP
000160: 49 53 29 2C 48 4C 0D 0A 20 20 20 20 20 20 20 20 IS),HL..
000170: 20 43 41 4C 4C 20 53 45 54 57 52 49 54 20 20 20 CALL SETWRIT
000180: 20 3B 50 61 72 61 6D 65 74 72 65 72 20 64 72 69 ;Parametrer dri
000190: 76 65 2D 74 65 74 65 20 65 63 72 69 74 75 72 65 ve-tete ecriture
0001A0: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 41 2C .. LD A,
0001B0: 28 50 49 53 54 57 29 20 20 20 20 3B 52 65 63 75 (PISTW) ;Recu
0001C0: 70 65 72 65 72 20 70 69 73 74 65 20 65 63 72 69 perer piste ecri
0001D0: 74 75 72 65 0D 0A 20 20 20 20 20 20 20 20 20 4C ture.. L
0001E0: 44 20 28 50 49 53 54 53 45 4C 29 2C 41 20 20 3B D (PISTSEL),A ;
0001F0: 49 6E 69 74 69 61 6C 69 73 65 72 20 70 69 73 74 Initialiser pist
Size : 512 (Real : 512)
000000: 65 20 65 63 72 69 74 75 72 65 0D 0A 20 3B 0D 0A e ecriture.. ;..
000010: 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 43 50 CALL CP
000020: 44 52 49 56 45 20 20 20 20 3B 32 20 64 72 69 76 DRIVE ;2 driv
000030: 65 73 20 3F 0D 0A 20 20 20 20 20 20 20 20 20 4C es ?.. L
000040: 44 20 48 4C 2C 54 44 45 53 54 49 4E 0D 0A 20 20 D HL,TDESTIN..
000050: 20 20 20 20 20 20 20 43 41 4C 4C 20 5A 2C 57 41 CALL Z,WA
000060: 49 54 44 49 53 43 20 3B 53 69 20 75 6E 20 73 65 ITDISC ;Si un se
000070: 75 6C 20 64 72 69 76 65 2C 20 6D 65 73 73 61 67 ul drive, messag
000080: 65 20 64 65 73 74 69 6E 61 74 69 6F 6E 20 65 74 e destination et
000090: 20 61 74 74 65 6E 64 72 65 0D 0A 20 3B 0D 0A 20 attendre.. ;..
0000A0: 20 20 20 20 20 20 20 20 4C 44 20 41 2C 23 34 31 LD A,#41
0000B0: 20 20 20 20 20 20 20 20 3B 52 65 63 61 6C 69 62 ;Recalib
0000C0: 72 65 72 20 73 75 72 20 70 69 73 74 65 20 30 20 rer sur piste 0
0000D0: 63 27 65 73 74 20 70 6C 75 73 20 70 72 75 64 65 c'est plus prude
0000E0: 6E 74 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 nt.. LD
0000F0: 28 57 41 49 54 50 49 53 29 2C 41 20 20 3B 54 65 (WAITPIS),A ;Te
000100: 6D 70 6F 72 69 73 61 74 69 6F 6E 20 47 4F 50 49 mporisation GOPI
000110: 53 54 45 20 61 75 20 4D 41 58 49 0D 0A 20 20 20 STE au MAXI..
000120: 20 20 20 20 20 20 43 41 4C 4C 20 43 41 4C 49 42 CALL CALIB
000130: 52 45 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 RE.. LD
000140: 42 43 2C 23 30 36 30 36 0D 0A 20 20 20 20 20 20 BC,#0606..
000150: 20 20 20 43 41 4C 4C 20 23 42 43 33 38 20 20 20 CALL #BC38
000160: 20 20 20 3B 42 6F 72 64 20 72 6F 75 67 65 0D 0A ;Bord rouge..
000170: 20 3B 0D 0A 20 52 45 57 52 49 54 45 20 4C 44 20 ;.. REWRITE LD
000180: 41 2C 28 50 49 53 54 4C 29 20 20 20 20 3B 53 69 A,(PISTL) ;Si
000190: 20 70 69 73 74 65 20 65 63 72 69 74 75 72 65 20 piste ecriture
0001A0: 3D 20 64 65 72 6E 69 65 72 65 20 70 69 73 74 65 = derniere piste
0001B0: 0D 0A 20 20 20 20 20 20 20 20 20 49 4E 43 20 41 .. INC A
0001C0: 20 20 20 20 20 20 20 20 20 20 20 3B 6C 75 65 20 ;lue
0001D0: 2B 20 31 20 2C 20 72 65 74 6F 75 72 6E 65 72 20 + 1 , retourner
0001E0: 6C 69 72 65 0D 0A 20 20 20 20 20 20 20 20 20 4C lire.. L
0001F0: 44 20 42 2C 41 0D 0A 20 20 20 20 20 20 20 20 20 D B,A..
Size : 512 (Real : 512)
000000: 4C 44 20 41 2C 28 50 49 53 54 53 45 4C 29 0D 0A LD A,(PISTSEL)..
000010: 20 20 20 20 20 20 20 20 20 43 50 20 42 0D 0A 20 CP B..
000020: 20 20 20 20 20 20 20 20 4A 52 20 43 2C 4E 45 58 JR C,NEX
000030: 54 57 52 49 20 20 20 20 3B 43 41 52 52 59 20 3D TWRI ;CARRY =
000040: 20 63 6F 6E 74 69 6E 75 65 72 20 65 63 72 69 74 continuer ecrit
000050: 75 72 65 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 ure.. ;..
000060: 20 20 43 41 4C 4C 20 52 45 49 4E 49 54 31 20 20 CALL REINIT1
000070: 20 20 3B 52 41 5A 20 42 75 66 66 65 72 20 65 74 ;RAZ Buffer et
000080: 20 70 6F 69 6E 74 65 75 72 73 20 53 45 54 4C 45 pointeurs SETLE
000090: 43 54 20 50 49 53 54 53 45 4C 3D 50 49 53 54 4C CT PISTSEL=PISTL
0000A0: 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 20 4C 49 .. JR LI
0000B0: 54 45 4E 43 4F 52 20 20 20 20 20 3B 52 65 74 6F TENCOR ;Reto
0000C0: 75 72 6E 65 72 20 61 75 78 20 6F 70 65 72 61 74 urner aux operat
0000D0: 69 6F 6E 73 20 64 65 20 6C 65 63 74 75 72 65 0D ions de lecture.
0000E0: 0A 20 3B 0D 0A 20 4E 45 58 54 57 52 49 20 50 55 . ;.. NEXTWRI PU
0000F0: 53 48 20 41 46 20 20 20 20 20 20 20 20 20 3B 4F SH AF ;O
000100: 50 45 52 41 54 49 4F 4E 53 20 44 45 20 52 45 50 PERATIONS DE REP
000110: 52 4F 44 55 43 54 49 4F 4E 0D 0A 20 20 20 20 20 RODUCTION..
000120: 20 20 20 20 4C 44 20 48 4C 2C 54 57 52 49 50 49 LD HL,TWRIPI
000130: 53 20 20 20 3B 41 66 66 69 63 68 65 72 20 70 69 S ;Afficher pi
000140: 73 74 65 20 65 63 72 69 74 75 72 65 0D 0A 20 20 ste ecriture..
000150: 20 20 20 20 20 20 20 43 41 4C 4C 20 50 52 54 0D CALL PRT.
000160: 0A 20 20 20 20 20 20 20 20 20 50 4F 50 20 41 46 . POP AF
000170: 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 .. CALL
000180: 50 52 54 44 45 43 49 41 0D 0A 20 3B 0D 0A 20 20 PRTDECIA.. ;..
000190: 20 20 20 20 20 20 20 43 41 4C 4C 20 47 4F 50 49 CALL GOPI
0001A0: 53 54 45 20 20 20 20 3B 41 4C 4C 45 52 20 50 49 STE ;ALLER PI
0001B0: 53 54 45 0D 0A 20 20 20 20 20 20 20 20 20 43 41 STE.. CA
0001C0: 4C 4C 20 46 4F 52 4D 41 54 45 52 20 20 20 3B 46 LL FORMATER ;F
0001D0: 4F 52 4D 41 54 45 52 0D 0A 20 20 20 20 20 20 20 ORMATER..
0001E0: 20 20 43 41 4C 4C 20 43 2C 45 43 52 49 52 45 20 CALL C,ECRIRE
0001F0: 20 20 3B 45 43 52 49 52 45 20 53 69 20 70 61 73 ;ECRIRE Si pas
Size : 512 (Real : 512)
000000: 20 64 65 66 6F 72 6D 61 74 65 65 0D 0A 20 3B 0D deformatee.. ;.
000010: 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 49 . CALL I
000020: 4E 43 50 49 53 54 20 20 20 20 3B 50 69 73 74 65 NCPIST ;Piste
000030: 20 65 63 72 69 74 75 72 65 20 73 75 69 76 61 6E ecriture suivan
000040: 74 65 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 te.. LD
000050: 41 2C 28 50 49 53 54 53 45 4C 29 0D 0A 20 20 20 A,(PISTSEL)..
000060: 20 20 20 20 20 20 4C 44 20 28 50 49 53 54 57 29 LD (PISTW)
000070: 2C 41 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 20 ,A.. JR
000080: 43 2C 52 45 57 52 49 54 45 20 20 20 20 3B 53 69 C,REWRITE ;Si
000090: 20 49 4E 43 50 49 53 54 20 6E 65 20 6D 65 74 20 INCPIST ne met
0000A0: 70 61 73 20 6C 65 20 43 41 52 52 59 20 63 27 65 pas le CARRY c'e
0000B0: 73 74 20 66 69 6E 69 0D 0A 20 3B 0D 0A 20 20 20 st fini.. ;..
0000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000D0: 20 20 20 20 20 20 20 20 20 20 3B 2D 2D 2D 2D 2D ;-----
0000E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A --------------..
0000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 2D 20 ;-
000110: 53 4F 52 54 49 45 20 44 45 20 43 4F 50 49 45 20 SORTIE DE COPIE
000120: 2D 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 -..
000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000140: 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ;---------------
000150: 2D 2D 2D 2D 0D 0A 20 3B 0D 0A 20 46 49 4E 49 53 ----.. ;.. FINIS
000160: 48 20 20 43 41 4C 4C 20 41 4E 41 45 4E 44 20 20 H CALL ANAEND
000170: 20 20 20 3B 54 65 73 74 65 72 20 4C 49 53 54 45 ;Tester LISTE
000180: 52 50 20 65 74 20 61 66 66 69 63 68 65 72 20 61 RP et afficher a
000190: 6E 61 6C 79 73 65 20 67 6C 6F 62 61 6C 65 0D 0A nalyse globale..
0001A0: 20 46 49 4E 49 53 48 31 20 4C 44 20 42 43 2C 30 FINISH1 LD BC,0
0001B0: 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 .. CALL
0001C0: 23 42 43 33 38 20 20 20 20 20 20 3B 42 6F 72 64 #BC38 ;Bord
0001D0: 65 72 20 30 0D 0A 20 20 20 20 20 20 20 20 20 4C er 0.. L
0001E0: 44 20 48 4C 2C 54 4D 45 4E 55 45 4E 44 20 20 3B D HL,TMENUEND ;
0001F0: 41 66 66 69 63 68 65 72 20 6F 70 74 69 6F 6E 73 Afficher options
Size : 512 (Real : 512)
000000: 20 64 65 20 66 69 6E 20 64 65 20 63 6F 70 69 65 de fin de copie
000010: 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 .. CALL
000020: 50 52 54 0D 0A 20 3B 0D 0A 20 54 53 54 45 4E 44 PRT.. ;.. TSTEND
000030: 20 20 43 41 4C 4C 20 23 42 42 30 36 0D 0A 20 3B CALL #BB06.. ;
000040: 0D 0A 20 20 20 20 20 20 20 20 20 41 4E 44 20 23 .. AND #
000050: 44 46 0D 0A 20 20 20 20 20 20 20 20 20 43 50 20 DF.. CP
000060: 22 51 22 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 "Q".. JR
000070: 20 5A 2C 46 49 4E 50 52 47 20 20 20 20 20 3B 51 Z,FINPRG ;Q
000080: 55 49 54 54 45 52 0D 0A 20 20 20 20 20 20 20 20 UITTER..
000090: 20 43 50 20 22 52 22 0D 0A 20 20 20 20 20 20 20 CP "R"..
0000A0: 20 20 4A 50 20 5A 2C 52 45 50 52 49 53 45 20 20 JP Z,REPRISE
0000B0: 20 20 3B 52 45 50 52 45 4E 44 52 45 20 6F 75 20 ;REPRENDRE ou
0000C0: 6C 27 6F 6E 20 61 76 61 69 74 20 69 6E 74 65 72 l'on avait inter
0000D0: 72 6F 6D 70 75 20 6C 61 20 6C 65 63 74 75 72 65 rompu la lecture
0000E0: 0D 0A 20 20 20 20 20 20 20 20 20 43 50 20 22 4E .. CP "N
0000F0: 22 0D 0A 20 20 20 20 20 20 20 20 20 4A 50 20 5A ".. JP Z
000100: 2C 52 45 54 53 54 20 20 20 20 20 20 3B 4E 4F 55 ,RETST ;NOU
000110: 56 45 4C 4C 45 20 4F 50 45 52 41 54 49 4F 4E 0D VELLE OPERATION.
000120: 0A 20 20 20 20 20 20 20 20 20 43 50 20 22 4D 22 . CP "M"
000130: 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 20 4E 5A .. JR NZ
000140: 2C 54 53 54 45 4E 44 0D 0A 20 3B 0D 0A 20 20 20 ,TSTEND.. ;..
000150: 20 20 20 20 20 20 4C 44 20 41 2C 28 4D 45 4D 4F LD A,(MEMO
000160: 44 45 42 29 20 20 3B 4D 45 4D 45 20 4F 50 45 52 DEB) ;MEME OPER
000170: 41 54 49 4F 4E 0D 0A 20 20 20 20 20 20 20 20 20 ATION..
000180: 4C 44 20 28 50 52 45 4D 50 49 53 29 2C 41 20 20 LD (PREMPIS),A
000190: 3B 52 65 63 75 70 65 72 65 72 20 6C 65 73 20 70 ;Recuperer les p
0001A0: 61 72 61 6D 65 74 72 65 73 20 64 27 6F 72 69 67 arametres d'orig
0001B0: 69 6E 65 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 ine.. LD
0001C0: 20 28 50 49 53 54 4C 29 2C 41 0D 0A 20 20 20 20 (PISTL),A..
0001D0: 20 20 20 20 20 4C 44 20 28 50 49 53 54 57 29 2C LD (PISTW),
0001E0: 41 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 41 A.. LD A
0001F0: 2C 28 4D 45 4D 4F 45 4E 44 29 0D 0A 20 20 20 20 ,(MEMOEND)..
Size : 512 (Real : 512)
000000: 20 20 20 20 20 4C 44 20 28 44 45 52 50 49 53 54 LD (DERPIST
000010: 29 2C 41 0D 0A 20 20 20 20 20 20 20 20 20 43 41 ),A.. CA
000020: 4C 4C 20 45 46 46 53 43 52 0D 0A 20 20 20 20 20 LL EFFSCR..
000030: 20 20 20 20 4A 50 20 4D 45 4D 45 4F 50 20 20 20 JP MEMEOP
000040: 20 20 20 20 3B 65 74 20 72 65 63 6F 6D 6D 65 6E ;et recommen
000050: 63 65 72 0D 0A 20 3B 0D 0A 20 46 49 4E 50 52 47 cer.. ;.. FINPRG
000060: 20 20 43 41 4C 4C 20 53 45 54 4C 45 43 54 20 20 CALL SETLECT
000070: 20 20 3B 52 65 63 61 6C 69 62 72 65 72 20 6C 65 ;Recalibrer le
000080: 73 20 32 20 64 72 69 76 65 73 0D 0A 20 20 20 20 s 2 drives..
000090: 20 20 20 20 20 43 41 4C 4C 20 43 41 4C 49 42 52 CALL CALIBR
0000A0: 45 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C E.. CALL
0000B0: 20 53 45 54 57 52 49 54 0D 0A 20 20 20 20 20 20 SETWRIT..
0000C0: 20 20 20 43 41 4C 4C 20 43 41 4C 49 42 52 45 0D CALL CALIBRE.
0000D0: 0A 20 20 20 20 20 20 20 20 20 4A 50 20 4D 4F 54 . JP MOT
0000E0: 4F 46 46 20 20 20 20 20 20 20 3B 41 72 72 65 74 OFF ;Arret
0000F0: 65 72 20 6D 6F 74 65 75 72 20 65 74 20 63 27 65 er moteur et c'e
000100: 73 74 20 66 69 6E 69 0D 0A 20 3B 0D 0A 20 20 20 st fini.. ;..
000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000120: 20 20 20 20 20 20 20 3B 2D 2D 2D 2D 2D 2D 2D 2D ;--------
000130: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000140: 2D 2D 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 --..
000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 2D ;-
000160: 20 53 55 42 20 52 4F 55 54 49 4E 45 53 20 44 49 SUB ROUTINES DI
000170: 56 45 53 52 53 45 53 20 2D 0D 0A 20 20 20 20 20 VESRSES -..
000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000190: 20 20 20 20 20 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ;----------
0001A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0001B0: 0D 0A 20 3B 0D 0A 20 46 45 4E 52 45 53 20 20 4C .. ;.. FENRES L
0001C0: 44 20 48 4C 2C 54 46 45 4E 52 45 53 20 20 20 3B D HL,TFENRES ;
0001D0: 45 66 66 61 63 65 72 20 66 65 6E 65 74 72 65 20 Effacer fenetre
0001E0: 72 65 73 75 6C 74 61 74 0D 0A 20 20 20 20 20 20 resultat..
0001F0: 20 20 20 4A 50 20 50 52 54 0D 0A 20 3B 0D 0A 20 JP PRT.. ;..
Size : 512 (Real : 512)
000000: 46 45 4E 52 45 53 31 20 43 41 4C 4C 20 46 45 4E FENRES1 CALL FEN
000010: 52 45 53 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 RES.. LD
000020: 20 48 4C 2C 54 44 45 4E 53 49 54 0D 0A 20 20 20 HL,TDENSIT..
000030: 20 20 20 20 20 20 4A 50 20 50 52 54 49 4E 56 31 JP PRTINV1
000040: 0D 0A 20 3B 0D 0A 20 46 45 4E 53 43 52 20 20 4C .. ;.. FENSCR L
000050: 44 20 48 4C 2C 54 46 45 4E 53 43 52 20 20 20 3B D HL,TFENSCR ;
000060: 45 66 66 61 63 65 72 20 66 65 6E 65 74 72 65 20 Effacer fenetre
000070: 65 63 72 61 6E 0D 0A 20 20 20 20 20 20 20 20 20 ecran..
000080: 4A 50 20 50 52 54 0D 0A 20 3B 0D 0A 20 43 48 47 JP PRT.. ;.. CHG
000090: 44 20 20 20 20 4C 44 20 28 46 4C 41 47 44 45 4E D LD (FLAGDEN
0000A0: 29 2C 41 20 20 3B 43 68 61 6E 67 65 20 64 65 6E ),A ;Change den
0000B0: 73 69 74 65 20 2E 20 4E 27 61 20 76 61 6C 65 75 site . N'a valeu
0000C0: 72 20 71 75 65 20 64 27 69 6E 66 6F 72 6D 61 74 r que d'informat
0000D0: 69 6F 6E 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 ion.. LD
0000E0: 20 44 45 2C 54 44 45 4E 53 49 54 2B 34 20 3B 6C DE,TDENSIT+4 ;l
0000F0: 27 65 6E 73 65 6D 62 6C 65 20 64 75 20 70 72 6F 'ensemble du pro
000100: 67 72 61 6D 6D 65 20 6E 65 20 66 6F 6E 63 74 69 gramme ne foncti
000110: 6F 6E 6E 61 6E 74 20 71 75 27 65 6E 0D 0A 20 20 onnant qu'en..
000120: 20 20 20 20 20 20 20 4C 44 20 42 43 2C 36 20 20 LD BC,6
000130: 20 20 20 20 20 20 20 3B 64 6F 75 62 6C 65 20 64 ;double d
000140: 65 6E 73 69 74 65 20 2E 0D 0A 20 46 49 4E 44 45 ensite ... FINDE
000150: 4E 31 20 4C 44 49 52 0D 0A 20 20 20 20 20 20 20 N1 LDIR..
000160: 20 20 52 45 54 0D 0A 20 3B 0D 0A 20 45 46 46 53 RET.. ;.. EFFS
000170: 43 52 20 20 4C 44 20 41 2C 35 20 20 20 20 20 20 CR LD A,5
000180: 20 20 20 20 3B 45 66 66 61 63 65 72 20 62 61 73 ;Effacer bas
000190: 20 65 63 72 61 6E 20 64 65 70 75 69 73 20 6C 69 ecran depuis li
0001A0: 67 6E 65 20 35 0D 0A 20 20 20 20 20 20 20 20 20 gne 5..
0001B0: 4A 50 20 45 46 46 42 41 53 0D 0A 20 3B 0D 0A 20 JP EFFBAS.. ;..
0001C0: 57 41 49 54 44 49 53 43 20 50 55 53 48 20 48 4C WAITDISC PUSH HL
0001D0: 20 20 20 20 20 20 20 3B 41 74 74 65 6E 64 72 65 ;Attendre
0001E0: 20 64 69 73 63 20 73 6F 75 72 63 65 20 6F 75 20 disc source ou
0001F0: 64 65 73 74 69 6E 61 74 69 6F 6E 0D 0A 20 20 20 destination..
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 4C 44 20 48 4C 2C 23 30 32 31 LD HL,#021
000010: 39 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 9.. CALL
000020: 20 23 42 42 37 35 0D 0A 20 20 20 20 20 20 20 20 #BB75..
000030: 20 50 4F 50 20 48 4C 0D 0A 20 20 20 20 20 20 20 POP HL..
000040: 20 20 43 41 4C 4C 20 50 52 54 0D 0A 20 20 20 20 CALL PRT..
000050: 20 20 20 20 20 4A 50 20 23 42 42 30 36 0D 0A 20 JP #BB06..
000060: 3B 0D 0A 20 53 45 54 44 45 52 20 20 4C 44 20 28 ;.. SETDER LD (
000070: 44 45 52 50 49 53 54 29 2C 41 20 20 3B 46 69 78 DERPIST),A ;Fix
000080: 65 72 20 6C 69 6D 69 74 65 73 20 64 65 72 6E 69 er limites derni
000090: 65 72 65 20 70 69 73 74 65 0D 0A 20 20 20 20 20 ere piste..
0000A0: 20 20 20 20 4C 44 20 28 4D 45 4D 4F 45 4E 44 29 LD (MEMOEND)
0000B0: 2C 41 0D 0A 20 20 20 20 20 20 20 20 20 49 4E 43 ,A.. INC
0000C0: 20 41 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 A.. LD
0000D0: 28 50 49 53 54 4D 41 58 29 2C 41 0D 0A 20 20 20 (PISTMAX),A..
0000E0: 20 20 20 20 20 20 52 45 54 0D 0A 20 3B 0D 0A 20 RET.. ;..
0000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000100: 20 20 20 20 20 20 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D ;---------
000110: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000120: 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 20 20 20 20 20 20 -------..
000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000140: 3B 2D 20 41 4E 41 4C 59 53 45 20 46 49 4E 41 4C ;- ANALYSE FINAL
000150: 45 20 53 45 4C 4F 4E 20 4C 49 53 54 45 52 50 20 E SELON LISTERP
000160: 2D 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 -..
000170: 20 20 20 20 20 20 20 20 20 20 3B 2D 2D 2D 2D 2D ;-----
000180: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000190: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 3B 0D -----------.. ;.
0001A0: 0A 20 41 4E 41 45 4E 44 20 20 4C 44 20 41 2C 32 . ANAEND LD A,2
0001B0: 31 20 20 20 20 20 20 20 20 20 3B 45 66 66 61 63 1 ;Effac
0001C0: 65 72 20 65 63 72 61 6E 0D 0A 20 20 20 20 20 20 er ecran..
0001D0: 20 20 20 43 41 4C 4C 20 45 46 46 42 41 53 0D 0A CALL EFFBAS..
0001E0: 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 46 45 CALL FE
0001F0: 4E 52 45 53 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 NRES.. ;..
Size : 512 (Real : 512)
000000: 20 20 20 4C 44 20 48 4C 2C 28 50 4F 49 4E 45 52 LD HL,(POINER
000010: 50 29 20 3B 50 4F 49 4E 45 52 50 20 63 6F 6E 74 P) ;POINERP cont
000020: 69 65 6E 74 20 69 63 69 20 6C 61 20 64 65 72 6E ient ici la dern
000030: 69 65 72 65 20 61 64 72 65 73 73 65 20 6F 63 63 iere adresse occ
000040: 75 70 65 65 0D 0A 20 20 20 20 20 20 20 20 20 4C upee.. L
000050: 44 20 28 48 4C 29 2C 23 46 46 20 20 20 20 20 3B D (HL),#FF ;
000060: 70 61 72 20 6C 61 20 6C 69 73 74 65 20 2B 20 31 par la liste + 1
000070: 20 2E 20 4D 61 72 71 75 65 72 20 6C 61 20 66 69 . Marquer la fi
000080: 6E 20 64 65 20 6C 61 20 6C 69 73 74 65 0D 0A 20 n de la liste..
000090: 20 20 20 20 20 20 20 20 49 4E 43 20 48 4C 20 20 INC HL
0000A0: 20 20 20 20 20 20 20 20 3B 61 76 65 63 20 23 46 ;avec #F
0000B0: 46 20 63 6F 6D 6D 65 20 6E 75 6D 65 72 6F 20 64 F comme numero d
0000C0: 65 20 70 69 73 74 65 0D 0A 20 20 20 20 20 20 20 e piste..
0000D0: 20 20 4C 44 20 28 48 4C 29 2C 23 46 46 0D 0A 20 LD (HL),#FF..
0000E0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 48 ;.. LD H
0000F0: 4C 2C 54 46 45 4E 45 4E 44 20 20 20 3B 46 65 6E L,TFENEND ;Fen
000100: 65 74 72 65 20 66 69 6E 20 64 65 20 70 72 6F 67 etre fin de prog
000110: 72 61 6D 6D 65 0D 0A 20 20 20 20 20 20 20 20 20 ramme..
000120: 43 41 4C 4C 20 50 52 54 0D 0A 20 3B 0D 0A 20 20 CALL PRT.. ;..
000130: 20 20 20 20 20 20 20 4C 44 20 48 4C 2C 23 30 33 LD HL,#03
000140: 30 31 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C 01.. CAL
000150: 4C 20 23 42 42 37 35 0D 0A 20 3B 0D 0A 20 20 20 L #BB75.. ;..
000160: 20 20 20 20 20 20 4C 44 20 48 4C 2C 54 52 45 50 LD HL,TREP
000170: 41 52 2D 33 31 20 3B 44 61 6E 73 20 63 65 74 74 AR-31 ;Dans cett
000180: 65 20 73 65 63 74 69 6F 6E 20 2C 20 6C 65 73 20 e section , les
000190: 74 65 78 74 65 73 20 73 6F 6E 74 20 64 65 20 6C textes sont de l
0001A0: 6F 6E 67 75 65 75 72 73 0D 0A 20 20 20 20 20 20 ongueurs..
0001B0: 20 20 20 4C 44 20 42 2C 38 20 20 20 20 20 20 20 LD B,8
0001C0: 20 20 20 3B 69 64 65 6E 74 69 71 75 65 73 20 2E ;identiques .
0001D0: 0D 0A 20 3B 0D 0A 20 53 45 50 54 46 4F 49 20 4C .. ;.. SEPTFOI L
0001E0: 44 20 44 45 2C 33 31 0D 0A 20 20 20 20 20 20 20 D DE,31..
0001F0: 20 20 41 44 44 20 48 4C 2C 44 45 20 20 20 20 20 ADD HL,DE
Size : 512 (Real : 512)
000000: 61 73 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 as.. LD
000010: 41 2C 28 4C 45 4E 53 45 43 29 20 20 20 3B 61 20 A,(LENSEC) ;a
000020: 65 74 72 65 20 70 72 69 73 65 20 65 6E 20 63 6F etre prise en co
000030: 6D 70 74 65 20 63 61 72 20 6C 61 20 72 6F 75 74 mpte car la rout
000040: 69 6E 65 20 64 65 20 66 6F 72 6D 61 74 61 67 65 ine de formatage
000050: 0D 0A 20 20 20 20 20 20 20 20 20 4F 52 20 41 20 .. OR A
000060: 20 20 20 20 20 20 20 20 20 20 20 3B 70 61 73 73 ;pass
000070: 65 20 70 61 72 20 43 41 4C 49 47 41 50 20 28 53 e par CALIGAP (S
000080: 4F 53 33 29 20 2E 0D 0A 20 20 20 20 20 20 20 20 OS3) ...
000090: 20 4C 44 20 43 2C 33 32 0D 0A 20 20 20 20 20 20 LD C,32..
0000A0: 20 20 20 4A 52 20 5A 2C 4E 42 4D 41 58 20 3B 4C JR Z,NBMAX ;L
0000B0: 30 0D 0A 20 20 20 20 20 20 20 20 20 44 45 43 20 0.. DEC
0000C0: 41 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 43 A.. LD C
0000D0: 2C 31 39 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 ,19.. JR
0000E0: 20 5A 2C 4E 42 4D 41 58 20 3B 4C 31 0D 0A 20 20 Z,NBMAX ;L1..
0000F0: 20 20 20 20 20 20 20 44 45 43 20 41 0D 0A 20 20 DEC A..
000100: 20 20 20 20 20 20 20 4C 44 20 43 2C 31 30 0D 0A LD C,10..
000110: 20 20 20 20 20 20 20 20 20 4A 52 20 5A 2C 4E 42 JR Z,NB
000120: 4D 41 58 20 3B 4C 32 0D 0A 20 20 20 20 20 20 20 MAX ;L2..
000130: 20 20 44 45 43 20 41 0D 0A 20 20 20 20 20 20 20 DEC A..
000140: 20 20 4C 44 20 43 2C 35 0D 0A 20 20 20 20 20 20 LD C,5..
000150: 20 20 20 4A 52 20 5A 2C 4E 42 4D 41 58 20 3B 4C JR Z,NBMAX ;L
000160: 33 0D 0A 20 20 20 20 20 20 20 20 20 44 45 43 20 3.. DEC
000170: 41 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 43 A.. LD C
000180: 2C 32 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 20 ,2.. JR
000190: 5A 2C 4E 42 4D 41 58 20 3B 4C 34 0D 0A 20 20 20 Z,NBMAX ;L4..
0001A0: 20 20 20 20 20 20 4C 44 20 43 2C 31 0D 0A 20 3B LD C,1.. ;
0001B0: 0D 0A 20 4E 42 4D 41 58 20 20 20 4C 44 20 41 2C .. NBMAX LD A,
0001C0: 42 20 20 20 20 20 20 3B 54 72 6F 70 20 64 65 20 B ;Trop de
0001D0: 73 65 63 74 65 75 72 73 20 6C 75 73 20 70 6F 75 secteurs lus pou
0001E0: 72 20 6C 61 20 74 61 69 6C 6C 65 20 2E 20 43 61 r la taille . Ca
0001F0: 20 61 72 72 69 76 65 20 73 69 0D 0A 20 20 20 20 arrive si..
Size : 512 (Real : 512)
000000: 20 20 20 20 20 44 45 43 20 41 20 20 20 20 20 20 DEC A
000010: 20 3B 6F 6E 20 65 63 72 61 73 65 20 64 65 73 20 ;on ecrase des
000020: 74 61 69 6C 6C 65 73 20 30 20 73 6F 75 73 20 70 tailles 0 sous p
000030: 6C 75 73 69 65 75 72 73 20 74 61 69 6C 6C 65 73 lusieurs tailles
000040: 0D 0A 20 20 20 20 20 20 20 20 20 43 50 20 43 20 .. CP C
000050: 20 20 20 20 20 20 20 3B 64 69 66 66 65 72 65 6E ;differen
000060: 74 65 73 20 4E 43 20 73 69 20 6F 75 69 20 2E 0D tes NC si oui ..
000070: 0A 20 20 20 20 20 20 20 20 20 52 45 54 0D 0A 20 . RET..
000080: 0D 0A 20 4C 49 53 54 0D 0A 20 4E 42 53 50 52 4F .. LIST.. NBSPRO
000090: 56 20 44 42 20 30 0D 0A 20 50 45 52 50 52 4F 56 V DB 0.. PERPROV
0000A0: 20 44 57 20 30 0D 0A 20 4C 45 52 50 52 4F 56 20 DW 0.. LERPROV
0000B0: 44 53 20 34 30 0D 0A 20 4C 49 53 54 49 44 53 20 DS 40.. LISTIDS
0000C0: 44 53 20 34 30 0D 0A 20 4E 4F 4C 49 53 54 0D 0A DS 40.. NOLIST..
0000D0: 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 ;..
0000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2D 2D --
0000F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000100: 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 0D 0A 20 20 ---------.. ..
000110: 20 20 20 56 6F 75 73 20 76 65 6E 65 7A 20 64 65 Vous venez de
000120: 20 20 76 69 76 72 65 20 20 6C 65 20 20 70 69 72 vivre le pir
000130: 65 20 20 2E 20 20 54 6F 75 74 65 73 20 20 6C 65 e . Toutes le
000140: 73 20 20 69 6E 66 6F 72 6D 61 74 69 6F 6E 73 20 s informations
000150: 20 75 74 69 6C 65 73 20 73 6F 6E 74 0D 0A 20 6D utiles sont.. m
000160: 61 69 6E 74 65 6E 61 6E 74 20 6D 7B 6D 6F 72 69 aintenant m{mori
000170: 73 7B 65 73 20 2E 20 49 6C 20 6E 65 20 72 65 73 s{es . Il ne res
000180: 74 65 20 70 6C 75 73 20 71 75 27 40 20 73 74 6F te plus qu'@ sto
000190: 63 6B 65 72 20 2C 20 66 6F 72 6D 61 74 65 72 20 cker , formater
0001A0: 2C 20 72 65 70 72 6F 64 75 69 72 65 0D 0A 20 73 , reproduire.. s
0001B0: 69 6D 70 6C 65 20 66 6F 72 6D 61 6C 69 74 7B 20 imple formalit{
0001C0: 71 75 65 20 6C 27 6F 6E 20 74 72 6F 75 76 65 72 que l'on trouver
0001D0: 61 20 20 64 61 6E 73 20 20 6C 61 20 20 73 65 63 a dans la sec
0001E0: 74 69 6F 6E 20 20 52 45 50 52 4F 44 55 43 54 49 tion REPRODUCTI
0001F0: 4F 4E 20 2E 20 28 50 61 73 20 64 65 0D 0A 20 6D ON . (Pas de.. m
Size : 512 (Real : 512)
000000: 61 75 76 61 69 73 65 73 20 70 65 6E 73 7B 65 73 auvaises pens{es
000010: 20 2C 20 63 65 20 74 79 70 65 20 64 65 20 72 65 , ce type de re
000020: 70 72 6F 64 75 63 74 69 6F 6E 20 6E 27 61 20 72 production n'a r
000030: 69 65 6E 20 40 20 76 6F 69 72 20 61 76 65 63 20 ien @ voir avec
000040: 42 4C 4F 4F 44 29 20 2E 0D 0A 20 0D 0A 20 20 20 BLOOD) ... ..
000050: 20 20 20 20 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D ------
000060: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000070: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000080: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A --------------..
000090: 20 1A 4E 42 4D 41 58 20 3B 4C 34 0D 0A 20 20 20 .NBMAX ;L4..
0000A0: 20 20 20 20 20 20 4C 44 20 43 2C 31 0D 0A 20 3B LD C,1.. ;
0000B0: 0D 0A 20 4E 42 4D 41 58 20 20 20 4C 44 20 41 2C .. NBMAX LD A,
0000C0: 42 20 20 20 20 20 20 3B 54 72 6F 70 20 64 65 20 B ;Trop de
0000D0: 73 65 63 74 65 75 72 73 20 6C 75 73 20 70 6F 75 secteurs lus pou
0000E0: 72 20 6C 61 20 74 61 69 6C 6C 65 20 2E 20 43 61 r la taille . Ca
0000F0: 20 61 72 72 69 76 65 20 73 69 0D 0A 20 20 20 20 arrive si..
000100: 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 0D -----------...
000110: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
000120: 20 20 20 20 20 20 20 20 20 20 43 4F 4D 4D 41 4E COMMAN
000130: 44 45 53 20 43 4F 55 4C 45 55 52 53 20 28 52 41 DES COULEURS (RA
000140: 50 50 45 4C 29 0D 0A 0D 0A 20 20 20 20 20 50 61 PPEL).... Pa
000150: 76 7B 20 6E 75 6D 7B 72 69 71 75 65 20 3A 20 20 v{ num{rique :
000160: 20 20 20 20 20 20 20 20 43 54 52 4C 2B 27 2E 27 CTRL+'.'
000170: 20 3A 20 42 6F 72 64 0D 0A 20 20 20 20 20 20 20 : Bord..
000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000190: 20 20 20 20 20 20 20 20 43 54 52 4C 2B 27 30 27 CTRL+'0'
0001A0: 20 3A 20 50 61 70 65 72 0D 0A 20 20 20 20 20 20 : Paper..
0001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001C0: 20 20 20 20 20 20 20 20 20 43 52 54 4C 2B 27 31 CRTL+'1
0001D0: 27 20 3A 20 50 65 6E 20 31 0D 0A 20 20 20 20 20 ' : Pen 1..
0001E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001F0: 20 20 20 20 20 20 20 20 20 20 43 54 52 4C 2B 27 CTRL+'
Size : 512 (Real : 512)
000000: 0A 20 20 20 20 20 20 20 20 42 49 54 20 30 2C 41 . BIT 0,A
000010: 20 20 20 20 20 20 20 20 20 3B 53 69 20 6F 75 69 ;Si oui
000020: 20 2C 20 6C 6F 6E 67 75 65 75 72 20 70 61 73 20 , longueur pas
000030: 74 72 6F 75 76 65 65 0D 0A 20 20 20 20 20 20 20 trouvee..
000040: 20 4A 52 20 4E 5A 2C 4D 41 4D 46 49 4E 44 20 20 JR NZ,MAMFIND
000050: 20 3B 43 6F 6E 74 69 6E 75 65 72 0D 0A 3B 0D 0A ;Continuer..;..
000060: 20 20 20 20 20 20 20 20 4C 44 20 48 4C 2C 45 54 LD HL,ET
000070: 32 20 20 20 20 20 20 20 3B 44 44 3F 0D 0A 20 20 2 ;DD?..
000080: 20 20 20 20 20 20 42 49 54 20 35 2C 28 48 4C 29 BIT 5,(HL)
000090: 20 20 20 20 20 20 3B 53 69 20 70 61 73 20 44 44 ;Si pas DD
0000A0: 20 6C 6F 6E 67 75 65 75 72 20 74 72 6F 75 76 65 longueur trouve
0000B0: 65 0D 0A 20 20 20 20 20 20 20 20 4A 52 20 4E 5A e.. JR NZ
0000C0: 2C 4D 41 4D 46 49 4E 44 20 20 20 3B 53 69 6E 6F ,MAMFIND ;Sino
0000D0: 6E 20 63 6F 6E 74 69 6E 75 65 72 0D 0A 3B 0D 0A n continuer..;..
0000E0: 20 20 20 20 20 20 20 20 43 41 4C 4C 20 4F 4B 4C CALL OKL
0000F0: 4F 4E 47 20 20 20 20 20 3B 44 65 74 65 72 6D 69 ONG ;Determi
000100: 6E 65 72 20 76 61 6C 65 75 72 20 47 41 50 0D 0A ner valeur GAP..
000110: 20 20 20 20 20 20 20 20 43 41 4C 4C 20 46 49 4E CALL FIN
000120: 44 47 41 50 20 20 20 20 3B 45 74 20 6C 6F 6E 67 DGAP ;Et long
000130: 75 65 75 72 20 2E 20 4E 43 20 65 6E 20 72 65 74 ueur . NC en ret
000140: 6F 75 72 20 73 69 20 70 61 73 20 62 6F 6E 0D 0A our si pas bon..
000150: 20 20 20 20 20 20 20 20 43 41 4C 4C 20 4E 43 2C CALL NC,
000160: 4A 45 43 4F 49 4E 43 45 0D 0A 3B 0D 0A 20 20 20 JECOINCE..;..
000170: 20 20 20 20 20 43 41 4C 4C 20 46 49 4E 44 52 45 CALL FINDRE
000180: 4D 50 20 20 20 3B 43 68 65 72 63 68 65 72 20 6F MP ;Chercher o
000190: 63 74 65 74 20 46 49 4C 4C 0D 0A 20 20 20 20 20 ctet FILL..
0001A0: 20 20 20 4A 50 20 45 58 49 54 47 41 50 20 20 20 JP EXITGAP
0001B0: 20 20 20 3B 46 69 6E 69 0D 0A 3B 0D 0A 4D 41 4D ;Fini..;..MAM
0001C0: 46 49 4E 44 20 43 41 4C 4C 20 49 4E 43 4C 4F 4E FIND CALL INCLON
0001D0: 47 20 20 3B 41 3D 41 2B 31 20 44 61 6E 73 20 51 G ;A=A+1 Dans Q
0001E0: 55 41 54 52 49 44 2B 33 20 65 74 20 4C 53 20 2C UATRID+3 et LS ,
0001F0: 20 48 4C 3D 48 4C 2B 48 4C 20 64 61 6E 73 20 4C HL=HL+HL dans L
Size : 512 (Real : 512)
000000: 20 20 3B 4F 6E 20 61 76 61 6E 63 65 20 64 61 6E ;On avance dan
000010: 73 20 6C 61 20 73 65 72 69 65 20 64 65 20 74 65 s la serie de te
000020: 78 74 65 20 65 6E 20 66 61 69 73 61 6E 74 20 73 xte en faisant s
000030: 75 69 76 72 65 0D 0A 20 20 20 20 20 20 20 20 20 uivre..
000040: 50 55 53 48 20 48 4C 20 20 20 20 20 20 20 20 20 PUSH HL
000050: 3B 6C 65 20 63 75 72 73 65 75 72 20 74 65 78 74 ;le curseur text
000060: 65 0D 0A 20 20 20 20 20 20 20 20 20 50 55 53 48 e.. PUSH
000070: 20 42 43 0D 0A 20 3B 0D 0A 20 50 52 41 4E 41 45 BC.. ;.. PRANAE
000080: 4E 44 20 43 41 4C 4C 20 50 52 54 0D 0A 20 20 20 ND CALL PRT..
000090: 20 20 20 20 20 20 4C 44 20 48 4C 2C 54 4E 49 45 LD HL,TNIE
0000A0: 54 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C T.. CALL
0000B0: 20 50 52 54 0D 0A 20 20 20 20 20 20 20 20 20 4C PRT.. L
0000C0: 44 20 48 4C 2C 4C 49 53 54 45 52 50 0D 0A 20 3B D HL,LISTERP.. ;
0000D0: 0D 0A 20 4E 58 54 54 45 53 54 20 50 55 53 48 20 .. NXTTEST PUSH
0000E0: 48 4C 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C HL.. CAL
0000F0: 4C 20 23 42 42 37 38 20 20 20 20 20 3B 4F 75 20 L #BB78 ;Ou
000100: 65 73 74 20 63 75 72 73 65 75 72 20 74 65 78 74 est curseur text
000110: 65 20 3F 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 e ?.. LD
000120: 20 41 2C 4C 20 20 20 20 20 20 20 20 20 3B 53 69 A,L ;Si
000130: 20 74 72 6F 70 20 6C 6F 69 6E 20 64 65 73 63 65 trop loin desce
000140: 6E 64 72 65 20 64 27 75 6E 65 20 6C 69 67 6E 65 ndre d'une ligne
000150: 0D 0A 20 20 20 20 20 20 20 20 20 43 50 20 35 32 .. CP 52
000160: 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 20 43 2C .. JR C,
000170: 4F 4B 4C 4F 43 0D 0A 20 20 20 20 20 20 20 20 20 OKLOC..
000180: 4C 44 20 48 2C 33 0D 0A 20 20 20 20 20 20 20 20 LD H,3..
000190: 20 49 4E 43 20 4C 0D 0A 20 20 20 20 20 20 20 20 INC L..
0001A0: 20 43 41 4C 4C 20 23 42 42 37 35 20 20 20 20 20 CALL #BB75
0001B0: 20 3B 52 65 6C 6F 63 61 74 65 20 63 75 72 73 65 ;Relocate curse
0001C0: 75 72 0D 0A 20 4F 4B 4C 4F 43 20 20 20 50 4F 50 ur.. OKLOC POP
0001D0: 20 48 4C 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 HL.. ;..
0001E0: 20 20 49 4E 43 20 48 4C 20 20 20 20 20 20 20 20 INC HL
0001F0: 20 20 3B 46 61 69 72 65 20 74 6F 75 72 6E 65 72 ;Faire tourner
Size : 512 (Real : 512)
000000: 20 6C 61 20 63 61 73 65 20 46 4C 41 47 20 64 65 la case FLAG de
000010: 20 4C 49 53 54 45 52 50 20 2E 20 53 69 20 75 6E LISTERP . Si un
000020: 20 62 69 74 0D 0A 20 20 20 20 20 20 20 20 20 52 bit.. R
000030: 52 43 20 28 48 4C 29 20 20 20 20 20 20 20 20 3B RC (HL) ;
000040: 6D 69 73 20 65 73 74 20 74 72 6F 75 76 65 20 70 mis est trouve p
000050: 6F 69 6E 74 65 72 20 6C 65 20 6E 75 6D 65 72 6F ointer le numero
000060: 20 64 65 20 70 69 73 74 65 20 63 6F 6E 63 65 72 de piste concer
000070: 6E 65 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 20 ne.. JR
000080: 4E 43 2C 4E 4F 54 50 52 20 20 20 20 20 3B 65 74 NC,NOTPR ;et
000090: 20 6C 27 61 66 66 69 63 68 65 72 20 65 6E 20 66 l'afficher en f
0000A0: 61 63 65 20 64 75 20 74 65 78 74 65 20 63 6F 72 ace du texte cor
0000B0: 72 65 73 70 6F 6E 64 61 6E 74 20 2E 0D 0A 20 3B respondant ... ;
0000C0: 0D 0A 20 20 20 20 20 20 20 20 20 44 45 43 20 48 .. DEC H
0000D0: 4C 20 20 20 20 20 20 20 20 20 20 3B 53 65 20 73 L ;Se s
0000E0: 6F 75 76 65 6E 69 72 20 71 75 65 20 52 52 43 20 ouvenir que RRC
0000F0: 28 48 4C 29 20 61 66 66 65 63 74 65 20 6C 27 6F (HL) affecte l'o
000100: 63 74 65 74 20 70 6F 69 6E 74 65 0D 0A 20 20 20 ctet pointe..
000110: 20 20 20 20 20 20 4C 44 20 41 2C 28 48 4C 29 0D LD A,(HL).
000120: 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 50 . CALL P
000130: 52 54 44 45 43 49 41 0D 0A 20 20 20 20 20 20 20 RTDECIA..
000140: 20 20 49 4E 43 20 48 4C 0D 0A 20 3B 0D 0A 20 4E INC HL.. ;.. N
000150: 4F 54 50 52 20 20 20 49 4E 43 20 48 4C 0D 0A 20 OTPR INC HL..
000160: 20 20 20 20 20 20 20 20 4C 44 20 41 2C 28 48 4C LD A,(HL
000170: 29 20 20 20 20 20 20 20 3B 53 69 20 28 48 4C 29 ) ;Si (HL)
000180: 20 3C 3E 20 23 46 46 20 6F 6E 20 63 6F 6E 74 69 <> #FF on conti
000190: 6E 75 65 0D 0A 20 20 20 20 20 20 20 20 20 49 4E nue.. IN
0001A0: 43 20 41 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 C A.. JR
0001B0: 20 4E 5A 2C 4E 58 54 54 45 53 54 0D 0A 20 3B 0D NZ,NXTTEST.. ;.
0001C0: 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 23 . CALL #
0001D0: 42 42 37 38 20 20 20 20 20 20 3B 53 69 6E 6F 6E BB78 ;Sinon
0001E0: 20 72 65 70 6C 61 63 65 72 20 63 75 72 73 65 75 replacer curseu
0001F0: 72 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 48 r.. LD H
Size : 512 (Real : 512)
000000: 2C 33 0D 0A 20 20 20 20 20 20 20 20 20 49 4E 43 ,3.. INC
000010: 20 4C 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C L.. CAL
000020: 4C 20 23 42 42 37 35 0D 0A 20 3B 0D 0A 20 20 20 L #BB75.. ;..
000030: 20 20 20 20 20 20 50 4F 50 20 42 43 0D 0A 20 20 POP BC..
000040: 20 20 20 20 20 20 20 50 4F 50 20 48 4C 0D 0A 20 POP HL..
000050: 20 20 20 20 20 20 20 20 44 4A 4E 5A 20 53 45 50 DJNZ SEP
000060: 54 46 4F 49 20 20 20 20 3B 45 74 20 72 65 63 6F TFOI ;Et reco
000070: 6D 6D 65 6E 63 65 72 20 61 76 65 63 20 6C 65 20 mmencer avec le
000080: 74 65 78 74 65 20 73 75 69 76 61 6E 74 0D 0A 20 texte suivant..
000090: 20 20 20 20 20 20 20 20 4A 50 20 46 45 4E 53 43 JP FENSC
0000A0: 52 0D 0A 20 3B 0D 0A 20 3B 0D 0A 20 52 45 49 4E R.. ;.. ;.. REIN
0000B0: 49 54 31 20 4C 44 20 41 2C 32 31 20 20 20 20 20 IT1 LD A,21
0000C0: 20 20 20 20 3B 52 65 69 6E 69 74 69 61 6C 69 73 ;Reinitialis
0000D0: 65 72 20 6C 65 20 62 75 66 66 65 72 20 64 65 20 er le buffer de
0000E0: 63 6F 70 69 65 20 65 74 20 6C 65 73 20 70 69 73 copie et les pis
0000F0: 74 65 73 0D 0A 20 20 20 20 20 20 20 20 20 43 41 tes.. CA
000100: 4C 4C 20 45 46 46 42 41 53 20 20 20 20 20 3B 6C LL EFFBAS ;l
000110: 65 63 74 75 72 65 20 65 63 72 69 74 75 72 65 0D ecture ecriture.
000120: 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 43 . CALL C
000130: 50 44 52 49 56 45 20 20 20 20 3B 32 20 64 72 69 PDRIVE ;2 dri
000140: 76 65 73 20 2C 20 70 61 73 20 64 65 20 6D 65 73 ves , pas de mes
000150: 73 61 67 65 0D 0A 20 3B 0D 0A 20 52 45 49 4E 49 sage.. ;.. REINI
000160: 54 20 20 4C 44 20 48 4C 2C 54 53 4F 55 52 43 45 T LD HL,TSOURCE
000170: 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 .. CALL
000180: 5A 2C 57 41 49 54 44 49 53 43 0D 0A 20 20 20 20 Z,WAITDISC..
000190: 20 20 20 20 20 4C 44 20 48 4C 2C 31 30 30 30 0D LD HL,1000.
0001A0: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 50 4F . LD (PO
0001B0: 49 4E 50 49 53 29 2C 48 4C 20 3B 50 6F 69 6E 74 INPIS),HL ;Point
0001C0: 65 75 72 20 62 75 66 66 65 72 20 61 75 20 64 65 eur buffer au de
0001D0: 62 75 74 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 but.. ;..
0001E0: 20 20 4C 44 20 42 43 2C 32 38 39 39 39 0D 0A 20 LD BC,28999..
0001F0: 52 41 5A 53 54 4F 4B 20 4C 44 20 28 48 4C 29 2C RAZSTOK LD (HL),
Size : 512 (Real : 512)
000000: 23 46 46 20 20 20 20 20 3B 56 69 64 65 72 20 6C #FF ;Vider l
000010: 65 20 62 75 66 66 65 72 0D 0A 20 20 20 20 20 20 e buffer..
000020: 20 20 20 49 4E 43 20 48 4C 0D 0A 20 20 20 20 20 INC HL..
000030: 20 20 20 20 44 45 43 20 42 43 0D 0A 20 20 20 20 DEC BC..
000040: 20 20 20 20 20 4C 44 20 41 2C 42 0D 0A 20 20 20 LD A,B..
000050: 20 20 20 20 20 20 4F 52 20 43 0D 0A 20 20 20 20 OR C..
000060: 20 20 20 20 20 4A 52 20 4E 5A 2C 52 41 5A 53 54 JR NZ,RAZST
000070: 4F 4B 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 OK.. ;..
000080: 20 4C 44 20 41 2C 28 50 49 53 54 4C 29 20 20 20 LD A,(PISTL)
000090: 20 3B 49 6E 69 74 69 61 6C 69 73 65 72 20 70 61 ;Initialiser pa
0000A0: 72 61 6D 65 74 72 65 73 20 6C 65 63 74 75 72 65 rametres lecture
0000B0: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 50 .. LD (P
0000C0: 49 53 54 53 45 4C 29 2C 41 0D 0A 20 20 20 20 20 ISTSEL),A..
0000D0: 20 20 20 20 4A 50 20 53 45 54 4C 45 43 54 0D 0A JP SETLECT..
0000E0: 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 ;..
0000F0: 20 20 20 20 20 20 20 20 20 20 20 20 3B 2D 2D 2D ;---
000100: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000110: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 20 20 -----------..
000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000130: 20 20 20 20 20 3B 2D 20 56 41 52 49 41 42 4C 45 ;- VARIABLE
000140: 53 20 45 54 20 54 45 58 54 45 53 20 44 49 56 45 S ET TEXTES DIVE
000150: 52 53 20 2D 0D 0A 20 20 20 20 20 20 20 20 20 20 RS -..
000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 2D ;-
000170: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000180: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 -------------..
000190: 3B 0D 0A 20 4D 45 4D 4F 44 45 42 20 44 42 20 30 ;.. MEMODEB DB 0
0001A0: 0D 0A 20 4D 45 4D 4F 45 4E 44 20 44 42 20 30 0D .. MEMOEND DB 0.
0001B0: 0A 20 50 4F 49 4E 50 49 53 20 44 57 20 31 30 30 . POINPIS DW 100
0001C0: 30 0D 0A 20 4C 49 53 54 0D 0A 20 4C 49 53 54 45 0.. LIST.. LISTE
0001D0: 52 50 20 44 53 20 31 30 30 0D 0A 20 4E 4F 4C 49 RP DS 100.. NOLI
0001E0: 53 54 0D 0A 20 50 4F 49 4E 45 52 50 20 44 57 20 ST.. POINERP DW
0001F0: 30 0D 0A 20 3B 0D 0A 20 54 55 53 20 20 20 20 20 0.. ;.. TUS
Size : 512 (Real : 512)
000000: 44 42 20 32 34 2C 22 20 53 4F 53 20 50 52 4F 47 DB 24," SOS PROG
000010: 52 41 4D 4D 45 55 52 53 20 2D 20 45 74 75 64 65 RAMMEURS - Etude
000020: 20 64 75 20 46 44 43 20 2D 20 28 43 29 20 4D 2E du FDC - (C) M.
000030: 4D 41 49 47 52 4F 54 20 41 6F 75 74 20 38 39 20 MAIGROT Aout 89
000040: 22 2C 32 34 0D 0A 20 20 20 20 20 20 20 20 20 44 ",24.. D
000050: 42 20 22 20 20 20 20 22 2C 32 34 2C 22 20 55 20 B " ",24," U
000060: 54 20 49 20 4C 20 2D 20 53 20 4F 20 46 20 54 20 T I L - S O F T
000070: 22 2C 32 34 0D 0A 20 54 53 54 41 54 44 52 20 44 ",24.. TSTATDR D
000080: 42 20 32 34 2C 22 20 44 52 49 56 45 20 41 30 20 B 24," DRIVE A0
000090: 3A 20 22 2C 32 34 2C 22 20 22 2C 33 31 2C 33 34 : ",24," ",31,34
0000A0: 2C 32 2C 32 34 2C 22 20 44 52 49 56 45 20 42 30 ,2,24," DRIVE B0
0000B0: 20 3A 20 22 2C 32 34 3B 23 38 30 0D 0A 20 54 53 : ",24;#80.. TS
0000C0: 4F 55 44 45 53 20 44 42 20 33 31 2C 31 2C 33 2C OUDES DB 31,1,3,
0000D0: 32 34 2C 22 20 44 52 49 56 45 20 53 4F 55 52 43 24," DRIVE SOURC
0000E0: 45 20 3A 20 41 30 20 22 2C 33 31 2C 33 34 2C 33 E : A0 ",31,34,3
0000F0: 2C 22 20 44 52 49 56 45 20 44 45 53 54 49 4E 41 ," DRIVE DESTINA
000100: 54 49 4F 4E 20 3A 20 41 30 20 22 0D 0A 20 20 20 TION : A0 "..
000110: 20 20 20 20 20 20 44 42 20 32 34 2B 23 38 30 0D DB 24+#80.
000120: 0A 20 54 4D 45 4E 43 48 47 20 44 42 20 32 34 2C . TMENCHG DB 24,
000130: 33 31 2C 32 36 2C 37 2C 22 20 5B 41 5D 20 43 68 31,26,7," [A] Ch
000140: 61 6E 67 65 20 6C 65 20 20 64 72 69 76 65 20 20 ange le drive
000150: 73 6F 75 72 63 65 20 22 0D 0A 20 20 20 20 20 20 source "..
000160: 20 20 20 44 42 20 33 31 2C 32 36 2C 38 2C 22 20 DB 31,26,8,"
000170: 5B 42 5D 20 43 68 61 6E 67 65 20 64 72 69 76 65 [B] Change drive
000180: 20 64 65 73 74 69 6E 61 74 69 6F 6E 20 22 0D 0A destination "..
000190: 20 20 20 20 20 20 20 20 20 44 42 20 33 31 2C 32 DB 31,2
0001A0: 36 2C 39 2C 22 20 5B 43 5D 20 43 68 61 6E 67 65 6,9," [C] Change
0001B0: 20 20 6C 61 20 20 74 65 74 65 20 20 73 6F 75 72 la tete sour
0001C0: 63 65 20 22 0D 0A 20 20 20 20 20 20 20 20 20 44 ce ".. D
0001D0: 42 20 33 31 2C 32 36 2C 31 30 2C 22 20 5B 44 5D B 31,26,10," [D]
0001E0: 20 43 68 61 6E 67 65 20 74 65 74 65 20 20 64 65 Change tete de
0001F0: 73 74 69 6E 61 74 69 6F 6E 20 22 0D 0A 20 20 20 stination "..
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 44 42 20 33 31 2C 32 36 2C 31 DB 31,26,1
000010: 32 2C 22 20 20 20 20 20 20 20 5B 45 4E 54 45 52 2," [ENTER
000020: 5D 20 3D 20 41 72 72 65 74 20 20 20 20 20 20 20 ] = Arret
000030: 20 22 2C 32 34 2B 23 38 30 0D 0A 20 54 49 4D 50 ",24+#80.. TIMP
000040: 52 49 4D 20 44 42 20 33 31 2C 32 36 2C 31 31 2C RIM DB 31,26,11,
000050: 32 34 2C 22 20 5B 45 5D 20 49 6D 70 72 69 6D 65 24," [E] Imprime
000060: 72 20 20 6C 27 61 6E 61 6C 79 73 65 20 20 4E 4F r l'analyse NO
000070: 4E 20 22 2C 32 34 2C 23 38 30 0D 0A 20 54 4F 55 N ",24,#80.. TOU
000080: 49 20 20 20 20 44 42 20 22 4F 55 49 22 0D 0A 20 I DB "OUI"..
000090: 54 4E 4F 4E 20 20 20 20 44 42 20 22 4E 4F 4E 22 TNON DB "NON"
0000A0: 0D 0A 20 54 50 49 53 54 31 20 20 44 42 20 33 31 .. TPIST1 DB 31
0000B0: 2C 32 36 2C 37 2C 32 30 2C 22 20 44 6F 6E 6E 65 ,26,7,20," Donne
0000C0: 72 20 6C 61 20 70 69 73 74 65 20 64 65 20 64 65 r la piste de de
0000D0: 62 75 74 20 3A 20 20 20 22 2C 38 2C 38 2B 23 38 but : ",8,8+#8
0000E0: 30 0D 0A 20 54 50 49 53 54 32 20 20 44 42 20 33 0.. TPIST2 DB 3
0000F0: 31 2C 32 36 2C 38 2C 22 20 44 6F 6E 6E 65 72 20 1,26,8," Donner
000100: 6C 61 20 64 65 72 6E 69 65 72 65 20 70 69 73 74 la derniere pist
000110: 65 20 3A 20 20 20 22 2C 38 2C 38 2B 23 38 30 0D e : ",8,8+#80.
000120: 0A 20 54 53 4F 55 52 43 45 20 44 42 20 32 34 2C . TSOURCE DB 24,
000130: 22 20 50 6C 61 63 65 72 20 64 69 73 71 75 65 74 " Placer disquet
000140: 74 65 20 73 6F 75 72 63 65 20 64 61 6E 73 20 3A te source dans :
000150: 20 41 20 22 2C 37 2C 32 34 2B 23 38 30 0D 0A 20 A ",7,24+#80..
000160: 54 44 45 53 54 49 4E 20 44 42 20 32 34 2C 22 20 TDESTIN DB 24,"
000170: 50 6C 61 63 65 72 20 64 69 73 71 75 65 74 74 65 Placer disquette
000180: 20 64 65 73 74 69 6E 61 74 69 6F 6E 20 64 61 6E destination dan
000190: 73 20 3A 20 41 20 22 2C 37 2C 32 34 2B 23 38 30 s : A ",7,24+#80
0001A0: 0D 0A 20 54 4C 49 54 50 49 53 20 44 42 20 33 31 .. TLITPIS DB 31
0001B0: 2C 32 2C 32 34 2C 22 4C 65 63 74 75 72 65 20 20 ,2,24,"Lecture
0001C0: 70 69 73 74 65 3A 20 22 2C 32 30 2C 23 38 30 0D piste: ",20,#80.
0001D0: 0A 20 54 57 52 49 50 49 53 20 44 42 20 33 31 2C . TWRIPIS DB 31,
0001E0: 32 2C 32 34 2C 22 45 63 72 69 74 75 72 65 20 70 2,24,"Ecriture p
0001F0: 69 73 74 65 3A 20 22 2C 32 30 2C 23 38 30 0D 0A iste: ",20,#80..
Size : 512 (Real : 512)
000000: 20 3B 0D 0A 20 54 52 45 50 41 52 20 20 44 42 20 ;.. TREPAR DB
000010: 32 34 2C 22 20 50 49 53 54 45 20 52 45 50 41 52 24," PISTE REPAR
000020: 45 45 20 20 41 20 56 45 52 49 46 49 45 52 20 22 EE A VERIFIER "
000030: 2C 32 34 2C 33 32 2C 23 38 30 0D 0A 20 3B 0D 0A ,24,32,#80.. ;..
000040: 20 20 20 20 20 20 20 20 20 44 42 20 32 34 2C 22 DB 24,"
000050: 20 50 4C 55 53 49 45 55 52 53 20 54 41 49 4C 4C PLUSIEURS TAILL
000060: 45 53 20 20 46 4F 52 4D 41 54 20 22 2C 32 34 2C ES FORMAT ",24,
000070: 33 32 2C 23 38 30 0D 0A 20 20 20 20 20 20 20 20 32,#80..
000080: 20 44 42 20 32 34 2C 22 20 50 52 45 53 45 4E 43 DB 24," PRESENC
000090: 45 20 53 45 43 54 45 55 52 53 20 45 43 52 41 53 E SECTEURS ECRAS
0000A0: 45 53 20 22 2C 32 34 2C 33 32 2C 23 38 30 0D 0A ES ",24,32,#80..
0000B0: 20 20 20 20 20 20 20 20 20 44 42 20 32 34 2C 22 DB 24,"
0000C0: 20 54 41 49 4C 4C 45 20 44 55 20 47 41 50 33 20 TAILLE DU GAP3
0000D0: 20 52 45 54 4F 55 43 48 45 45 20 22 2C 32 34 2C RETOUCHEE ",24,
0000E0: 33 32 2C 23 38 30 0D 0A 20 3B 0D 0A 20 20 20 20 32,#80.. ;..
0000F0: 20 20 20 20 20 44 42 20 32 34 2C 22 20 4C 27 41 DB 24," L'A
000100: 4E 41 4C 59 53 45 55 52 20 53 27 45 53 54 20 20 NALYSEUR S'EST
000110: 50 4C 41 4E 54 45 20 22 2C 32 34 2C 33 32 2C 23 PLANTE ",24,32,#
000120: 38 30 0D 0A 20 20 20 20 20 20 20 20 20 44 42 20 80.. DB
000130: 32 34 2C 22 20 46 4F 52 4D 41 54 45 45 20 41 56 24," FORMATEE AV
000140: 45 43 20 46 44 43 20 53 50 45 43 49 41 4C 20 22 EC FDC SPECIAL "
000150: 2C 32 34 2C 33 32 2C 23 38 30 0D 0A 20 20 20 20 ,24,32,#80..
000160: 20 20 20 20 20 44 42 20 32 34 2C 22 20 4E 4F 4D DB 24," NOM
000170: 42 52 45 20 20 53 45 43 54 45 55 52 53 20 20 44 BRE SECTEURS D
000180: 49 4D 49 4E 55 45 20 22 2C 32 34 2C 33 32 2C 23 IMINUE ",24,32,#
000190: 38 30 0D 0A 20 20 20 20 20 20 20 20 20 44 42 20 80.. DB
0001A0: 32 34 2C 22 20 50 49 53 54 45 53 20 20 20 20 4E 24," PISTES N
0001B0: 4F 4E 20 20 20 46 4F 52 4D 41 54 45 45 53 20 22 ON FORMATEES "
0001C0: 2C 32 34 2C 33 32 2C 23 38 30 0D 0A 20 3B 0D 0A ,24,32,#80.. ;..
0001D0: 20 54 4E 49 45 54 20 20 20 44 42 20 22 20 4E 4F TNIET DB " NO
0001E0: 4E 22 2C 38 2C 38 2C 38 2C 23 38 30 0D 0A 20 3B N",8,8,8,#80.. ;
0001F0: 0D 0A 20 54 4D 45 4E 55 45 4E 44 20 44 42 20 33 .. TMENUEND DB 3
Size : 512 (Real : 512)
000000: 31 2C 32 2C 31 36 2C 32 34 2C 22 20 4F 50 45 52 1,2,16,24," OPER
000010: 41 54 49 4F 4E 53 20 54 45 52 4D 49 4E 45 45 53 ATIONS TERMINEES
000020: 20 22 2C 31 30 2C 31 33 2C 31 30 2C 31 33 0D 0A ",10,13,10,13..
000030: 20 20 20 20 20 20 20 20 20 44 42 20 39 2C 22 20 DB 9,"
000040: 20 20 20 20 20 20 5B 51 5D 75 69 74 74 65 20 20 [Q]uitte
000050: 20 20 20 20 20 22 2C 31 30 2C 31 33 0D 0A 20 20 ",10,13..
000060: 20 20 20 20 20 20 20 44 42 20 39 2C 22 20 20 20 DB 9,"
000070: 20 20 20 5B 52 5D 65 70 72 65 6E 64 73 20 20 20 [R]eprends
000080: 20 20 20 22 2C 31 30 2C 31 33 0D 0A 20 20 20 20 ",10,13..
000090: 20 20 20 20 20 44 42 20 39 2C 22 20 20 20 5B 4D DB 9," [M
0000A0: 5D 65 6D 65 20 6F 70 65 72 61 74 69 6F 6E 20 20 ]eme operation
0000B0: 20 22 2C 31 30 2C 31 33 0D 0A 20 20 20 20 20 20 ",10,13..
0000C0: 20 20 20 44 42 20 39 2C 22 20 5B 4E 5D 6F 75 76 DB 9," [N]ouv
0000D0: 65 6C 6C 65 20 6F 70 65 72 61 74 69 6F 6E 20 22 elle operation "
0000E0: 2C 32 34 2C 37 2B 23 38 30 0D 0A 20 54 44 45 4E ,24,7+#80.. TDEN
0000F0: 53 49 54 20 44 42 20 33 31 2C 33 2C 31 2C 22 20 SIT DB 31,3,1,"
000100: 44 4F 55 42 4C 45 20 44 45 4E 53 49 54 45 22 2C DOUBLE DENSITE",
000110: 23 38 30 0D 0A 20 54 44 44 45 4E 53 20 44 42 20 #80.. TDDENS DB
000120: 22 44 4F 55 42 4C 45 22 0D 0A 20 54 53 44 45 4E "DOUBLE".. TSDEN
000130: 53 20 44 42 20 22 53 49 4D 50 4C 45 22 0D 0A 20 S DB "SIMPLE"..
000140: 54 46 45 4E 52 45 53 20 44 42 20 23 31 41 2C 31 TFENRES DB #1A,1
000150: 2C 23 31 37 2C 34 2C 32 30 2C 31 32 2C 23 38 30 ,#17,4,20,12,#80
000160: 0D 0A 20 54 46 45 4E 53 43 52 20 44 42 20 32 36 .. TFENSCR DB 26
000170: 2C 30 2C 37 39 2C 30 2C 32 34 2C 23 38 30 0D 0A ,0,79,0,24,#80..
000180: 20 54 46 45 4E 45 4E 44 20 44 42 20 32 36 2C 32 TFENEND DB 26,2
000190: 34 2C 37 39 2C 34 2C 32 35 2C 31 32 2C 23 38 30 4,79,4,25,12,#80
0001A0: 0D 0A 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 2D ..;.. -
0001B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0001C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0001D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0001E0: 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 20 20 20 20 20 20 -------..
0001F0: 20 20 20 46 49 4E 20 44 45 20 53 45 43 54 49 4F FIN DE SECTIO
Size : 512 (Real : 512)
000000: 4E 20 2E 20 53 55 47 47 45 53 54 49 4F 4E 20 3A N . SUGGESTION :
000010: 20 4E 4F 55 56 45 4C 4C 45 20 52 4F 55 54 49 4E NOUVELLE ROUTIN
000020: 45 20 44 27 41 4E 41 4C 59 53 45 0D 0A 20 20 20 E D'ANALYSE..
000030: 20 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D ---------
000040: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000050: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000060: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 1A ---------------.
000070: 20 3B 0D 0A 20 52 45 57 52 49 54 45 20 4C 44 20 ;.. REWRITE LD
000080: 00 00 F7 F7 F7 F7 F7 F7 F7 F7 F7 F7 F7 F7 F7 F7 ................
000090: F7 F7 F7 F7 F7 F7 F7 F7 F7 20 20 20 20 20 20 20 .........
0000A0: 20 20 20 20 20 20 20 20 20 00 00 14 00 20 20 20 ....
0000B0: 20 30 A9 90 A8 A9 A8 B9 A8 00 00 20 20 20 20 20 0.........
0000C0: 20 30 A9 D0 A8 E9 A8 F9 A8 E5 E5 E5 E5 E5 E5 E5 0..............
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 20 42 75 66 66 65 72 20 65 74 20 70 6F 69 6E 74 Buffer et point
000010: 65 75 72 73 20 53 45 54 4C 45 43 54 20 2C 20 50 eurs SETLECT , P
000020: 49 53 54 53 45 4C 3D 50 49 53 54 4C 0D 0A 3B 0D ISTSEL=PISTL..;.
000030: 0A 20 20 20 20 20 20 20 20 43 41 4C 4C 20 43 50 . CALL CP
000040: 44 52 49 56 45 20 20 20 3B 56 6F 69 72 20 73 69 DRIVE ;Voir si
000050: 20 32 20 64 72 69 76 65 73 20 3F 0D 0A 20 20 20 2 drives ?..
000060: 20 20 20 20 20 4A 52 20 5A 2C 55 4E 44 52 49 56 JR Z,UNDRIV
000070: 20 20 20 20 3B 4E 4F 4E 0D 0A 3B 0D 0A 20 20 20 ;NON..;..
000080: 20 20 20 20 20 4C 44 20 48 4C 2C 23 32 39 31 39 LD HL,#2919
000090: 20 20 20 20 3B 32 20 44 72 69 76 65 73 20 2E 20 ;2 Drives .
0000A0: 41 74 74 65 6E 64 72 65 20 64 69 73 71 75 65 20 Attendre disque
0000B0: 64 65 73 74 69 6E 61 74 69 6F 6E 0D 0A 20 20 20 destination..
0000C0: 20 20 20 20 20 43 41 4C 4C 20 23 42 42 37 35 0D CALL #BB75.
0000D0: 0A 20 20 20 20 20 20 20 20 4C 44 20 48 4C 2C 54 . LD HL,T
0000E0: 44 45 53 54 49 4E 0D 0A 20 20 20 20 20 20 20 20 DESTIN..
0000F0: 43 41 4C 4C 20 50 52 54 0D 0A 3B 0D 0A 20 20 20 CALL PRT..;..
000100: 20 20 20 20 20 20 20 20 20 20 3B 2D 2D 2D 2D 2D ;-----
000110: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000120: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000130: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 20 ------------..
000140: 20 20 20 20 20 20 20 20 20 20 20 3B 2D 20 41 4E ;- AN
000150: 41 4C 59 53 45 20 2C 20 49 4E 54 45 52 50 52 45 ALYSE , INTERPRE
000160: 54 41 54 49 4F 4E 20 2C 20 4C 45 43 54 55 52 45 TATION , LECTURE
000170: 20 2C 20 53 54 4F 43 4B 41 47 45 20 2D 0D 0A 20 , STOCKAGE -..
000180: 20 20 20 20 20 20 20 20 20 20 20 20 3B 2D 2D 2D ;---
000190: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0001A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0001B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A --------------..
0001C0: 3B 0D 0A 55 4E 44 52 49 56 20 20 43 41 4C 4C 20 ;..UNDRIV CALL
0001D0: 23 42 42 30 36 0D 0A 20 20 20 20 20 20 20 20 4C #BB06.. L
0001E0: 44 20 48 4C 2C 4C 49 53 54 45 52 50 20 20 20 3B D HL,LISTERP ;
0001F0: 4D 69 73 65 20 61 20 7A 65 72 6F 20 64 65 20 6C Mise a zero de l
Size : 512 (Real : 512)
000000: 73 74 65 20 28 71 75 69 20 20 65 73 74 20 20 6C ste (qui est l
000010: 65 20 20 70 72 65 6D 69 65 72 20 20 64 65 20 20 e premier de
000020: 6C 61 20 20 70 69 73 74 65 29 20 2C 20 73 6F 69 la piste) , soi
000030: 74 20 75 6E 20 73 65 63 74 65 75 72 0D 0A 20 64 t un secteur.. d
000040: 27 65 63 72 61 73 65 6D 65 6E 74 20 50 4C 55 53 'ecrasement PLUS
000050: 20 47 52 41 4E 44 20 71 75 65 20 6C 61 20 20 74 GRAND que la t
000060: 61 69 6C 6C 65 20 20 6D 61 78 69 6D 75 6D 20 20 aille maximum
000070: 64 65 20 20 66 6F 72 6D 61 74 20 2E 20 4F 6E 20 de format . On
000080: 74 65 73 74 65 72 61 20 64 6F 6E 63 0D 0A 20 61 testera donc.. a
000090: 75 73 73 69 20 63 65 20 63 61 73 20 2E 20 53 69 ussi ce cas . Si
0000A0: 20 20 63 65 63 69 20 20 7B 63 68 6F 75 65 20 20 ceci {choue
0000B0: 7B 67 61 6C 65 6D 65 6E 74 20 20 2C 20 6C 27 61 {galement , l'a
0000C0: 76 65 72 74 69 73 73 65 6D 65 6E 74 20 27 4A 45 vertissement 'JE
0000D0: 43 4F 49 4E 43 45 27 20 73 65 72 61 0D 0A 20 61 COINCE' sera.. a
0000E0: 63 74 69 76 7B 20 2C 20 69 6C 20 6E 65 20 72 65 ctiv{ , il ne re
0000F0: 73 74 65 20 70 6C 75 73 20 71 75 27 40 20 70 72 ste plus qu'@ pr
000100: 69 65 72 20 70 6F 75 72 20 71 75 65 20 6C 27 65 ier pour que l'e
000110: 72 72 65 75 72 20 73 65 20 63 6F 72 72 69 67 65 rreur se corrige
000120: 20 64 27 65 6C 6C 65 20 6D 65 08 5E 6D 65 0D 0A d'elle me.^me..
000130: 20 64 61 6E 73 20 6C 65 73 20 72 6F 75 74 69 6E dans les routin
000140: 65 73 20 71 75 69 20 73 75 69 76 65 6E 74 20 2E es qui suivent .
000150: 2E 2E 0D 0A 20 0D 0A 20 20 20 20 20 20 20 20 20 .... ..
000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000170: 20 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D ---------
000180: 2D 2D 2D 2D 2D 2D 0D 0A 20 3B 0D 0A 20 53 4F 4C ------.. ;.. SOL
000190: 55 54 49 4F 33 41 20 4C 44 20 48 4C 2C 54 46 47 UTIO3A LD HL,TFG
0001A0: 41 50 32 41 20 3B 43 52 2F 44 44 3D 4C 4D 41 58 AP2A ;CR/DD=LMAX
0001B0: 20 65 74 20 70 6C 75 73 69 65 75 72 73 20 4C 45 et plusieurs LE
0001C0: 4E 53 20 4F 4B 0D 0A 20 20 20 20 20 20 20 20 20 NS OK..
0001D0: 43 41 4C 4C 20 50 52 54 0D 0A 20 3B 20 0D 0A 20 CALL PRT.. ; ..
0001E0: 20 20 20 20 20 20 20 20 4C 44 20 41 2C 28 4C 4D LD A,(LM
0001F0: 41 58 29 20 20 20 20 20 3B 53 65 63 74 65 75 72 AX) ;Secteur
Size : 512 (Real : 512)
000000: 20 30 20 61 62 69 6D 65 20 70 65 75 74 20 61 76 0 abime peut av
000010: 6F 69 72 20 43 52 2F 44 44 20 2E 0D 0A 20 20 20 oir CR/DD ...
000020: 20 20 20 20 20 20 4F 52 20 41 20 20 20 20 20 20 OR A
000030: 20 20 20 20 20 20 3B 44 61 6E 73 20 63 65 20 63 ;Dans ce c
000040: 61 73 20 70 61 73 20 6D 65 74 74 72 65 20 23 46 as pas mettre #F
000050: 46 20 64 61 6E 73 20 4C 4D 41 58 20 21 21 0D 0A F dans LMAX !!..
000060: 20 20 20 20 20 20 20 20 20 4A 52 20 5A 2C 53 4F JR Z,SO
000070: 4C 55 54 49 4F 4E 33 0D 0A 20 20 20 20 20 20 20 LUTION3..
000080: 20 20 44 45 43 20 43 20 20 20 20 20 20 20 20 20 DEC C
000090: 20 20 3B 4C 4D 41 58 2D 31 20 73 69 20 43 52 2F ;LMAX-1 si CR/
0000A0: 44 44 20 3D 20 4C 4D 41 58 0D 0A 20 3B 0D 0A 20 DD = LMAX.. ;..
0000B0: 53 4F 4C 55 54 49 4F 4E 33 20 4C 44 20 41 2C 28 SOLUTION3 LD A,(
0000C0: 4C 4D 49 4E 29 20 3B 53 69 20 74 72 6F 75 76 65 LMIN) ;Si trouve
0000D0: 20 74 61 69 6C 6C 65 20 30 20 4F 4B 20 63 27 65 taille 0 OK c'e
0000E0: 73 74 20 66 6F 72 63 65 6D 65 6E 74 20 6C 61 20 st forcement la
0000F0: 76 72 61 69 65 20 21 0D 0A 20 20 20 20 20 20 20 vraie !..
000100: 20 20 4F 52 20 41 0D 0A 20 20 20 20 20 20 20 20 OR A..
000110: 20 4A 52 20 5A 2C 56 52 41 49 54 5A 45 52 0D 0A JR Z,VRAITZER..
000120: 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 4C 44 ;.. LD
000130: 20 41 2C 43 20 20 20 20 20 20 20 20 20 3B 50 6C A,C ;Pl
000140: 75 73 20 67 72 61 6E 64 65 20 74 61 69 6C 6C 65 us grande taille
000150: 20 75 74 69 6C 69 73 65 65 20 70 61 72 20 6C 65 utilisee par le
000160: 73 20 49 44 53 0D 0A 20 56 52 41 49 54 5A 45 52 s IDS.. VRAITZER
000170: 20 4C 44 20 28 4C 4D 41 58 29 2C 41 20 20 20 20 LD (LMAX),A
000180: 3B 4F 75 20 74 61 69 6C 6C 65 20 6D 61 78 69 20 ;Ou taille maxi
000190: 63 61 6C 63 75 6C 65 65 20 73 69 20 6C 65 20 3E calculee si le >
0001A0: 20 49 44 20 65 73 74 20 3E 20 4C 4D 41 58 0D 0A ID est > LMAX..
0001B0: 20 3B 0D 0A 20 3B 20 20 20 20 20 20 20 20 20 20 ;.. ;
0001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 45 63 ;Ec
0001D0: 68 65 63 20 61 6E 61 6C 79 73 65 20 70 69 73 74 hec analyse pist
0001E0: 65 20 6E 6F 72 6D 61 6C 65 20 73 75 76 69 20 64 e normale suvi d
0001F0: 65 20 65 63 68 65 63 20 43 52 2F 44 44 0D 0A 20 e echec CR/DD..
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 4C 44 20 48 4C 2C 54 46 LD HL,TF
000010: 47 41 50 32 20 20 20 20 3B 64 61 6E 73 20 39 39 GAP2 ;dans 99
000020: 25 20 64 65 73 20 63 61 73 20 63 27 65 73 74 20 % des cas c'est
000030: 75 6E 65 20 70 69 73 74 65 20 61 76 65 63 20 64 une piste avec d
000040: 65 73 20 73 65 63 74 65 75 72 73 0D 0A 20 20 20 es secteurs..
000050: 20 20 20 20 20 20 43 41 4C 4C 20 50 52 54 20 20 CALL PRT
000060: 20 20 20 20 20 20 3B 65 63 72 61 73 65 73 20 72 ;ecrases r
000070: 65 6E 76 6F 79 61 6E 74 20 75 6E 20 66 61 75 78 envoyant un faux
000080: 20 47 41 50 20 6F 6E 20 72 65 63 68 65 72 63 68 GAP on recherch
000090: 65 20 64 6F 6E 63 20 75 6E 0D 0A 20 3B 20 20 20 e donc un.. ;
0000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000B0: 20 20 20 20 3B 23 34 45 20 70 6F 75 72 20 61 76 ;#4E pour av
0000C0: 6F 69 72 20 6C 61 20 74 61 69 6C 6C 65 20 64 75 oir la taille du
0000D0: 20 66 6F 72 6D 61 74 20 61 76 61 6E 74 20 65 63 format avant ec
0000E0: 72 61 73 65 6D 65 6E 74 0D 0A 20 20 20 20 20 20 rasement..
0000F0: 20 20 20 4C 44 20 41 2C 28 4C 49 53 54 45 52 52 LD A,(LISTERR
000100: 29 20 20 3B 4D 41 4D 20 65 6E 20 74 65 74 65 20 ) ;MAM en tete
000110: 69 6E 76 61 6C 69 64 65 20 6C 69 72 65 20 70 69 invalide lire pi
000120: 73 74 65 0D 0A 20 20 20 20 20 20 20 20 20 41 4E ste.. AN
000130: 44 20 25 30 30 30 30 30 30 31 31 20 20 20 3B 53 D %00000011 ;S
000140: 61 75 74 65 72 20 65 6E 20 73 6F 6C 75 74 69 6F auter en solutio
000150: 6E 20 34 0D 0A 20 20 20 20 20 20 20 20 20 43 50 n 4.. CP
000160: 20 25 30 30 30 30 30 30 31 31 0D 0A 20 20 20 20 %00000011..
000170: 20 20 20 20 20 4A 50 20 5A 2C 53 4F 4C 55 54 49 JP Z,SOLUTI
000180: 4F 4E 34 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 ON4.. ;..
000190: 20 20 4C 44 20 48 4C 2C 4C 49 54 46 44 43 32 0D LD HL,LITFDC2.
0001A0: 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 43 . CALL C
0001B0: 4F 4D 4C 49 50 49 0D 0A 20 20 20 20 20 20 20 20 OMLIPI..
0001C0: 20 4C 44 20 49 59 2C 4C 4D 41 58 20 20 20 20 20 LD IY,LMAX
0001D0: 20 3B 4C 69 6D 69 74 65 20 64 65 20 72 65 63 68 ;Limite de rech
0001E0: 65 72 63 68 65 20 61 20 4C 4D 41 58 0D 0A 20 3B erche a LMAX.. ;
0001F0: 0D 0A 20 20 20 20 20 20 20 20 20 58 4F 52 20 41 .. XOR A
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 20 3B 44 65 70 61 ;Depa
000010: 72 74 20 61 75 20 6D 69 6E 69 6D 75 6D 0D 0A 20 rt au minimum..
000020: 20 20 20 20 20 20 20 20 4C 44 20 48 4C 2C 31 32 LD HL,12
000030: 38 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 8.. CALL
000040: 20 52 41 4E 47 4C 4F 4E 0D 0A 20 3B 0D 0A 20 4E RANGLON.. ;.. N
000050: 45 58 54 4C 4F 31 20 4C 44 20 41 2C 23 46 46 0D EXTLO1 LD A,#FF.
000060: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 42 55 . LD (BU
000070: 46 47 41 50 53 29 2C 41 0D 0A 20 20 20 20 20 20 FGAPS),A..
000080: 20 20 20 4C 44 20 41 2C 28 51 55 41 54 52 49 44 LD A,(QUATRID
000090: 2B 33 29 20 3B 50 72 65 73 65 72 76 65 72 20 70 +3) ;Preserver p
0000A0: 61 72 61 6D 65 74 72 65 20 49 44 0D 0A 20 20 20 arametre ID..
0000B0: 20 20 20 20 20 20 50 55 53 48 20 41 46 0D 0A 20 PUSH AF..
0000C0: 20 20 20 20 20 20 20 20 4C 44 20 41 2C 37 20 20 LD A,7
0000D0: 20 20 20 20 20 20 20 20 20 3B 4C 69 72 65 20 70 ;Lire p
0000E0: 69 73 74 65 20 73 75 72 20 4C 45 4E 20 37 0D 0A iste sur LEN 7..
0000F0: 20 20 20 20 20 20 20 20 20 4C 44 20 28 51 55 41 LD (QUA
000100: 54 52 49 44 2B 33 29 2C 41 0D 0A 20 20 20 20 20 TRID+3),A..
000110: 20 20 20 20 43 41 4C 4C 20 49 4E 53 54 52 55 39 CALL INSTRU9
000120: 0D 0A 20 20 20 20 20 20 20 20 20 50 4F 50 20 41 .. POP A
000130: 46 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 F.. LD (
000140: 51 55 41 54 52 49 44 2B 33 29 2C 41 20 3B 52 65 QUATRID+3),A ;Re
000150: 63 75 70 65 72 65 72 20 70 61 72 61 6D 65 74 72 cuperer parametr
000160: 65 20 49 44 0D 0A 20 20 20 20 20 20 20 20 20 4C e ID.. L
000170: 44 20 41 2C 28 42 55 46 47 41 50 53 29 0D 0A 20 D A,(BUFGAPS)..
000180: 20 20 20 20 20 20 20 20 43 50 20 23 34 45 20 20 CP #4E
000190: 20 20 20 20 20 20 20 20 20 3B 54 65 73 74 65 72 ;Tester
0001A0: 20 47 41 50 0D 0A 20 20 20 20 20 20 20 20 20 4A GAP.. J
0001B0: 52 20 4E 5A 2C 50 41 53 42 4F 4E 32 0D 0A 20 3B R NZ,PASBON2.. ;
0001C0: 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 .. CALL
0001D0: 46 49 4E 44 47 41 50 20 20 20 20 3B 54 72 6F 75 FINDGAP ;Trou
0001E0: 76 65 20 6F 63 74 65 74 20 23 34 45 20 65 6E 20 ve octet #4E en
0001F0: 70 6F 73 69 74 69 6F 6E 0D 0A 20 20 20 20 20 20 position..
Size : 512 (Real : 512)
000000: 20 20 20 4A 52 20 43 2C 46 49 4E 41 4C 20 20 20 JR C,FINAL
000010: 20 20 20 3B 53 69 20 6C 6F 6E 67 75 65 75 72 20 ;Si longueur
000020: 47 41 50 20 4F 4B 20 63 27 65 73 74 20 73 61 6E GAP OK c'est san
000030: 73 20 64 6F 75 74 65 20 62 6F 6E 0D 0A 20 20 20 s doute bon..
000040: 20 20 20 20 20 20 52 45 53 20 32 2C 28 48 4C 29 RES 2,(HL)
000050: 20 20 20 20 20 20 3B 53 69 6E 6F 6E 20 63 27 65 ;Sinon c'e
000060: 73 74 20 61 20 72 65 76 6F 69 72 0D 0A 20 3B 0D st a revoir.. ;.
000070: 0A 20 50 41 53 42 4F 4E 32 20 4C 44 20 41 2C 28 . PASBON2 LD A,(
000080: 51 55 41 54 52 49 44 2B 33 29 20 3B 56 6F 69 72 QUATRID+3) ;Voir
000090: 20 73 69 20 64 65 72 6E 69 65 72 65 20 6C 6F 6E si derniere lon
0000A0: 67 75 65 75 72 20 74 65 73 74 65 65 3D 4C 4D 41 gueur testee=LMA
0000B0: 58 2B 31 0D 0A 20 20 20 20 20 20 20 20 20 43 50 X+1.. CP
0000C0: 20 28 49 59 2B 30 29 0D 0A 20 20 20 20 20 20 20 (IY+0)..
0000D0: 20 20 4A 52 20 5A 2C 44 55 52 44 55 52 20 20 20 JR Z,DURDUR
0000E0: 20 20 20 3B 53 69 20 6F 75 69 20 70 72 6F 62 6C ;Si oui probl
0000F0: 65 6D 65 20 65 74 20 74 65 73 74 65 72 20 73 75 eme et tester su
000100: 72 20 6C 6F 6E 67 75 65 75 72 20 31 65 72 20 73 r longueur 1er s
000110: 65 63 74 65 75 72 0D 0A 20 3B 0D 0A 20 20 20 20 ecteur.. ;..
000120: 20 20 20 20 20 43 41 4C 4C 20 49 4E 43 4C 4F 4E CALL INCLON
000130: 47 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 20 4E G.. JR N
000140: 45 58 54 4C 4F 31 0D 0A 20 3B 0D 0A 20 44 55 52 EXTLO1.. ;.. DUR
000150: 44 55 52 20 20 4C 44 20 41 2C 28 49 44 49 4E 44 DUR LD A,(IDIND
000160: 52 41 2B 33 29 20 3B 4C 65 20 31 65 72 20 73 65 RA+3) ;Le 1er se
000170: 63 74 65 75 72 20 65 63 72 69 74 20 65 73 74 20 cteur ecrit est
000180: 70 65 75 74 2D 65 74 72 65 20 70 6C 75 73 20 67 peut-etre plus g
000190: 72 61 6E 64 0D 0A 20 20 20 20 20 20 20 20 20 43 rand.. C
0001A0: 41 4C 4C 20 41 44 44 4C 4F 4E 20 20 20 20 20 20 ALL ADDLON
0001B0: 3B 71 75 65 20 6C 61 20 74 61 69 6C 6C 65 20 6D ;que la taille m
0001C0: 61 78 69 20 70 6F 73 73 69 62 6C 65 20 2C 20 6F axi possible , o
0001D0: 6E 20 72 65 6E 6F 75 76 65 6C 6C 65 0D 0A 20 20 n renouvelle..
0001E0: 20 20 20 20 20 20 20 4C 44 20 41 2C 37 20 20 20 LD A,7
0001F0: 20 20 20 20 20 20 20 20 3B 6C 27 6F 70 65 72 61 ;l'opera
Size : 512 (Real : 512)
000000: 74 69 6F 6E 20 73 75 72 20 63 65 74 74 65 20 62 tion sur cette b
000010: 61 73 65 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 ase.. LD
000020: 20 28 51 55 41 54 52 49 44 2B 33 29 2C 41 0D 0A (QUATRID+3),A..
000030: 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 49 4E CALL IN
000040: 53 54 52 55 39 20 20 20 20 20 3B 52 65 74 6F 75 STRU9 ;Retou
000050: 72 6E 65 72 20 76 6F 69 72 20 6C 65 20 47 41 50 rner voir le GAP
000060: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 41 2C .. LD A,
000070: 28 42 55 46 47 41 50 53 29 0D 0A 20 20 20 20 20 (BUFGAPS)..
000080: 20 20 20 20 43 50 20 23 34 45 0D 0A 20 20 20 20 CP #4E..
000090: 20 20 20 20 20 43 41 4C 4C 20 4E 5A 2C 4A 45 43 CALL NZ,JEC
0000A0: 4F 49 4E 43 45 20 3B 52 69 65 6E 20 61 20 66 61 OINCE ;Rien a fa
0000B0: 69 72 65 20 21 0D 0A 20 20 20 20 20 20 20 20 20 ire !..
0000C0: 43 41 4C 4C 20 46 49 4E 44 47 41 50 0D 0A 20 20 CALL FINDGAP..
0000D0: 20 20 20 20 20 20 20 43 41 4C 4C 20 4E 43 2C 4A CALL NC,J
0000E0: 45 43 4F 49 4E 43 45 0D 0A 20 3B 0D 0A 20 20 20 ECOINCE.. ;..
0000F0: 20 20 20 20 20 20 4C 44 20 41 2C 28 4C 4D 49 4E LD A,(LMIN
000100: 29 20 20 20 20 3B 4F 6E 20 63 6F 6E 73 69 64 65 ) ;On conside
000110: 72 65 20 61 6C 6F 72 73 20 6C 61 20 70 6C 75 73 re alors la plus
000120: 20 70 65 74 69 74 65 20 74 61 69 6C 6C 65 20 0D petite taille .
000130: 0A 20 20 20 20 20 20 20 20 20 43 50 20 23 46 46 . CP #FF
000140: 20 20 20 20 20 20 20 20 20 3B 70 6F 73 73 69 62 ;possib
000150: 6C 65 20 63 6F 6D 6D 65 20 6C 61 20 76 72 61 69 le comme la vrai
000160: 65 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 20 4E e.. JR N
000170: 5A 2C 4C 4D 49 4E 49 4E 49 0D 0A 20 20 20 20 20 Z,LMININI..
000180: 20 20 20 20 49 4E 43 20 41 20 20 20 20 20 20 20 INC A
000190: 20 20 20 3B 53 69 20 72 65 73 74 65 20 61 20 23 ;Si reste a #
0001A0: 46 46 20 63 65 20 73 65 72 61 20 30 0D 0A 20 4C FF ce sera 0.. L
0001B0: 4D 49 4E 49 4E 49 20 50 55 53 48 20 41 46 0D 0A MININI PUSH AF..
0001C0: 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 41 44 CALL AD
0001D0: 44 4C 4F 4E 20 20 20 20 3B 4F 6E 20 70 61 72 61 DLON ;On para
0001E0: 6D 65 74 72 65 20 65 74 20 6F 6E 20 65 73 70 65 metre et on espe
0001F0: 72 65 20 71 75 65 20 45 43 52 41 53 45 52 20 72 re que ECRASER r
Size : 512 (Real : 512)
000000: 65 73 6F 75 64 72 61 0D 0A 20 20 20 20 20 20 20 esoudra..
000010: 20 20 50 4F 50 20 41 46 20 20 20 20 20 20 20 20 POP AF
000020: 20 3B 6C 65 20 70 72 6F 62 6C 65 6D 65 20 2E 0D ;le probleme ..
000030: 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 52 . CALL R
000040: 41 4E 47 4C 4F 4E 0D 0A 20 3B 0D 0A 20 20 20 20 ANGLON.. ;..
000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000060: 20 20 20 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D -------
000070: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 -------------..
000080: 0D 0A 20 20 20 20 20 49 63 69 20 6F 6E 20 61 20 .. Ici on a
000090: 74 72 6F 75 76 7B 20 61 20 63 6F 75 70 20 73 75 trouv{ a coup su
0000A0: 72 20 6F 75 20 20 65 73 74 69 6D 7B 20 20 6C 61 r ou estim{ la
0000B0: 20 20 76 72 61 69 65 20 74 61 69 6C 6C 65 20 64 vraie taille d
0000C0: 75 20 66 6F 72 6D 61 74 20 2E 20 53 69 20 63 65 u format . Si ce
0000D0: 0D 0A 20 70 72 6F 67 72 61 6D 6D 65 20 7B 74 61 .. programme {ta
0000E0: 69 74 20 6D 6F 69 6E 73 20 61 73 74 75 63 69 65 it moins astucie
0000F0: 75 78 20 2C 20 69 6C 20 20 61 75 72 61 69 74 20 ux , il aurait
000100: 20 62 65 08 5E 74 65 6D 65 6E 74 20 63 68 65 72 be.^tement cher
000110: 63 68 7B 20 6C 65 20 47 41 50 20 61 76 65 63 20 ch{ le GAP avec
000120: 75 6E 0D 0A 20 6C 69 72 65 20 70 69 73 74 65 20 un.. lire piste
000130: 73 75 72 20 20 6C 61 20 20 74 61 69 6C 6C 65 20 sur la taille
000140: 20 6D 61 78 69 6D 75 6D 20 20 70 6F 73 73 69 62 maximum possib
000150: 6C 65 20 20 65 74 20 20 73 65 20 20 73 65 72 61 le et se sera
000160: 69 74 20 20 70 6C 61 6E 74 7B 20 20 2E 20 50 6F it plant{ . Po
000170: 75 72 0D 0A 20 69 6E 66 6F 72 6D 61 74 69 6F 6E ur.. information
000180: 20 2C 20 6F 6E 20 65 66 66 65 63 74 75 65 20 71 , on effectue q
000190: 75 61 6E 64 20 20 6D 65 08 5E 6D 65 20 20 63 65 uand me.^me ce
0001A0: 74 74 65 20 20 6F 70 7B 72 61 74 69 6F 6E 20 20 tte op{ration
0001B0: 61 66 69 6E 20 64 65 20 63 6F 6E 6E 61 69 08 5E afin de connai.^
0001C0: 74 72 65 20 6C 61 0D 0A 20 66 61 75 73 73 65 20 tre la.. fausse
0001D0: 74 61 69 6C 6C 65 20 65 74 20 6C 65 73 20 76 61 taille et les va
0001E0: 6C 65 75 72 73 20 74 72 6F 75 76 7B 65 73 20 20 leurs trouv{es
0001F0: 70 61 72 20 20 6C 69 72 65 20 20 70 69 73 74 65 par lire piste
Size : 512 (Real : 512)
000000: 20 65 6E 20 6C 69 65 75 20 65 74 20 70 6C 61 63 en lieu et plac
000010: 65 20 64 27 75 6E 0D 0A 20 47 41 50 20 67 61 72 e d'un.. GAP gar
000020: 61 6E 74 69 20 73 61 6E 73 20 63 6F 6C 6F 72 61 anti sans colora
000030: 6E 74 20 21 20 2E 20 49 6C 20 65 73 74 20 20 7B nt ! . Il est {
000040: 76 69 64 65 6E 74 20 71 75 65 20 64 61 6E 73 20 vident que dans
000050: 6C 65 20 63 61 73 20 6F 75 20 6C 65 20 70 72 6F le cas ou le pro
000060: 67 72 61 6D 6D 65 0D 0A 20 65 73 74 20 70 61 73 gramme.. est pas
000070: 73 7B 20 70 61 72 20 44 55 52 44 55 52 20 2C 20 s{ par DURDUR ,
000080: 63 65 73 20 76 61 6C 65 75 72 73 20 73 65 20 63 ces valeurs se c
000090: 6F 6E 66 6F 6E 64 72 6F 6E 74 20 61 76 65 63 20 onfondront avec
0000A0: 6C 65 73 20 76 72 61 69 65 73 20 76 61 6C 65 75 les vraies valeu
0000B0: 72 73 20 2E 0D 0A 20 0D 0A 20 20 20 20 20 20 20 rs ... ..
0000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000D0: 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------
0000E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 3B 0D 0A ----------.. ;..
0000F0: 20 46 49 4E 41 4C 20 20 20 4C 44 20 41 2C 28 51 FINAL LD A,(Q
000100: 55 41 54 52 49 44 2B 33 29 20 3B 50 72 65 73 65 UATRID+3) ;Prese
000110: 72 76 65 72 20 6C 65 73 20 76 72 61 69 65 73 20 rver les vraies
000120: 76 61 6C 65 75 72 73 20 64 65 20 66 6F 72 6D 61 valeurs de forma
000130: 74 0D 0A 20 20 20 20 20 20 20 20 20 50 55 53 48 t.. PUSH
000140: 20 41 46 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 AF.. LD
000150: 20 48 4C 2C 28 4C 4F 4E 47 53 45 43 29 0D 0A 20 HL,(LONGSEC)..
000160: 20 20 20 20 20 20 20 20 50 55 53 48 20 48 4C 0D PUSH HL.
000170: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 41 2C 28 . LD A,(
000180: 47 41 50 46 4F 52 4D 29 0D 0A 20 20 20 20 20 20 GAPFORM)..
000190: 20 20 20 4C 44 20 42 2C 41 0D 0A 20 20 20 20 20 LD B,A..
0001A0: 20 20 20 20 50 55 53 48 20 42 43 0D 0A 20 3B 0D PUSH BC.. ;.
0001B0: 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 53 . CALL S
0001C0: 45 54 45 43 52 41 20 20 3B 4D 61 72 71 75 65 72 ETECRA ;Marquer
0001D0: 20 65 74 20 61 6E 6E 6F 6E 63 65 72 20 73 65 63 et annoncer sec
0001E0: 74 65 75 72 73 20 65 63 72 61 73 65 73 0D 0A 20 teurs ecrases..
0001F0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 41 ;.. LD A
Size : 512 (Real : 512)
000000: 2C 28 4C 49 44 4D 41 58 29 20 20 3B 43 68 65 72 ,(LIDMAX) ;Cher
000010: 63 68 65 72 20 76 61 6C 65 75 72 73 20 64 75 20 cher valeurs du
000020: 66 61 75 78 20 67 61 70 0D 0A 20 20 20 20 20 20 faux gap..
000030: 20 20 20 4C 44 20 28 46 41 55 58 4C 45 4E 29 2C LD (FAUXLEN),
000040: 41 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 A.. LD (
000050: 51 55 41 54 52 49 44 2B 33 29 2C 41 0D 0A 20 20 QUATRID+3),A..
000060: 20 20 20 20 20 20 20 43 41 4C 4C 20 41 44 44 4C CALL ADDL
000070: 4F 4E 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 ON.. LD
000080: 41 2C 37 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 A,7.. LD
000090: 20 28 51 55 41 54 52 49 44 2B 33 29 2C 41 0D 0A (QUATRID+3),A..
0000A0: 20 3B 0D 0A 20 4E 45 58 54 4C 4F 20 20 43 41 4C ;.. NEXTLO CAL
0000B0: 4C 20 49 4E 53 54 52 55 39 20 20 20 3B 52 65 6C L INSTRU9 ;Rel
0000C0: 69 72 65 20 70 69 73 74 65 20 6D 61 69 73 20 61 ire piste mais a
0000D0: 76 65 63 20 6C 61 20 66 61 75 73 73 65 20 74 61 vec la fausse ta
0000E0: 69 6C 6C 65 20 6D 61 78 69 0D 0A 20 20 20 20 20 ille maxi..
0000F0: 20 20 20 20 4C 44 20 41 2C 28 42 55 46 47 41 50 LD A,(BUFGAP
000100: 53 29 20 3B 64 65 73 20 73 65 63 74 65 75 72 73 S) ;des secteurs
000110: 20 65 74 20 73 74 6F 63 6B 65 72 0D 0A 20 20 20 et stocker..
000120: 20 20 20 20 20 20 4C 44 20 28 46 41 55 58 47 41 LD (FAUXGA
000130: 50 29 2C 41 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 P),A.. ;..
000140: 20 20 20 4C 44 20 48 4C 2C 53 45 54 42 41 44 32 LD HL,SETBAD2
000150: 20 20 20 20 20 3B 49 63 69 20 63 27 65 73 74 20 ;Ici c'est
000160: 66 6F 72 63 65 6D 65 6E 74 20 75 6E 20 72 65 73 forcement un res
000170: 75 6C 74 61 74 20 66 61 75 78 20 2C 20 6F 6E 0D ultat faux , on.
000180: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 53 41 . LD (SA
000190: 55 54 42 41 44 2B 31 29 2C 48 4C 20 3B 61 6E 6E UTBAD+1),HL ;ann
0001A0: 75 6C 65 20 75 6E 65 20 70 61 72 74 69 65 20 64 ule une partie d
0001B0: 75 20 74 65 73 74 20 64 27 65 72 72 65 75 72 0D u test d'erreur.
0001C0: 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 43 41 . ;.. CA
0001D0: 4C 4C 20 46 49 4E 44 47 41 50 32 20 20 20 20 20 LL FINDGAP2
0001E0: 3B 50 6F 75 72 20 73 65 63 74 65 75 72 73 20 65 ;Pour secteurs e
0001F0: 63 72 69 74 73 0D 0A 20 3B 0D 0A 20 20 20 20 20 crits.. ;..
Size : 512 (Real : 512)
000000: 20 20 20 20 4C 44 20 48 4C 2C 53 45 54 42 41 44 LD HL,SETBAD
000010: 4C 45 4E 20 20 20 3B 50 6F 75 72 20 6C 61 20 72 LEN ;Pour la r
000020: 65 73 74 61 75 72 65 72 20 61 75 73 73 69 74 6F estaurer aussito
000030: 74 20 2E 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 t ... LD
000040: 20 28 53 41 55 54 42 41 44 2B 31 29 2C 48 4C 0D (SAUTBAD+1),HL.
000050: 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 . ;.. LD
000060: 20 41 2C 28 47 41 50 46 4F 52 4D 29 20 20 3B 45 A,(GAPFORM) ;E
000070: 74 20 6F 6E 20 72 61 6E 67 65 20 6C 65 73 20 66 t on range les f
000080: 61 75 73 73 65 73 20 76 61 6C 65 75 72 73 0D 0A ausses valeurs..
000090: 20 20 20 20 20 20 20 20 20 4C 44 20 28 46 41 55 LD (FAU
0000A0: 58 4C 47 46 29 2C 41 0D 0A 20 3B 0D 0A 20 20 20 XLGF),A.. ;..
0000B0: 20 20 20 20 20 20 50 4F 50 20 42 43 20 20 20 20 POP BC
0000C0: 20 20 20 20 20 20 3B 41 76 61 6E 74 20 64 65 20 ;Avant de
0000D0: 72 65 63 75 70 65 72 65 72 20 6C 65 73 20 76 72 recuperer les vr
0000E0: 61 69 65 73 0D 0A 20 20 20 20 20 20 20 20 20 4C aies.. L
0000F0: 44 20 41 2C 42 0D 0A 20 20 20 20 20 20 20 20 20 D A,B..
000100: 4C 44 20 28 47 41 50 46 4F 52 4D 29 2C 41 0D 0A LD (GAPFORM),A..
000110: 20 20 20 20 20 20 20 20 20 50 4F 50 20 48 4C 0D POP HL.
000120: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 4C 4F . LD (LO
000130: 4E 47 53 45 43 29 2C 48 4C 0D 0A 20 20 20 20 20 NGSEC),HL..
000140: 20 20 20 20 50 4F 50 20 41 46 0D 0A 20 20 20 20 POP AF..
000150: 20 20 20 20 20 4C 44 20 28 4C 45 4E 53 45 43 29 LD (LENSEC)
000160: 2C 41 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 ,A.. LD
000170: 28 51 55 41 54 52 49 44 2B 33 29 2C 41 0D 0A 20 (QUATRID+3),A..
000180: 20 20 20 20 20 20 20 20 4C 44 20 41 2C 23 34 45 LD A,#4E
000190: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 56 .. LD (V
0001A0: 41 4C 47 41 50 46 29 2C 41 0D 0A 20 20 20 20 20 ALGAPF),A..
0001B0: 20 20 20 20 43 41 4C 4C 20 46 49 4E 44 52 45 4D CALL FINDREM
0001C0: 50 20 20 20 3B 43 68 65 72 63 68 65 72 20 6F 63 P ;Chercher oc
0001D0: 74 65 74 20 46 49 4C 4C 0D 0A 20 20 20 20 20 20 tet FILL..
0001E0: 20 20 20 4A 50 20 45 43 52 41 53 45 52 20 20 20 JP ECRASER
0001F0: 20 20 20 3B 45 74 20 61 6C 6C 65 72 20 61 75 20 ;Et aller au
Size : 512 (Real : 512)
000000: 74 72 61 69 74 65 6D 65 6E 74 20 64 65 73 20 73 traitement des s
000010: 65 63 74 65 75 72 73 20 65 63 72 61 73 65 73 0D ecteurs ecrases.
000020: 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 . ;..
000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000040: 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ------------
000050: 2D 2D 2D 2D 0D 0A 20 0D 0A 20 20 20 20 46 49 4E ----.. .. FIN
000060: 20 44 45 20 53 45 43 54 49 4F 4E 20 3A 20 4C 41 DE SECTION : LA
000070: 20 4C 45 43 54 55 52 45 20 44 45 20 27 46 49 4E LECTURE DE 'FIN
000080: 44 47 41 50 32 27 20 45 53 54 20 53 55 47 47 45 DGAP2' EST SUGGE
000090: 52 45 45 20 41 56 45 43 20 56 49 52 55 4C 45 4E REE AVEC VIRULEN
0000A0: 43 45 20 21 0D 0A 20 0D 0A 20 20 20 20 20 20 20 CE !.. ..
0000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000C0: 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D -------------
0000D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A --------------..
0000E0: 20 1A 64 75 20 66 6F 72 6D 61 74 20 65 74 0D 0A .du format et..
0000F0: 20 64 65 73 20 47 41 50 53 20 6E 27 61 20 70 75 des GAPS n'a pu
000100: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
000110: 20 20 20 20 20 20 20 3B 2D 20 41 46 46 49 43 48 ;- AFFICH
000120: 41 47 45 20 44 55 20 52 45 53 55 4C 54 41 54 20 AGE DU RESULTAT
000130: 47 45 4E 45 52 41 4C 20 2D 0D 0A 20 20 20 20 20 GENERAL -..
000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000150: 20 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ;--------------
000160: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000170: 2D 2D 2D 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 ---.. ;..
000180: 20 20 43 41 4C 4C 20 46 45 4E 52 45 53 31 20 20 CALL FENRES1
000190: 3B 41 66 66 69 63 68 65 72 0D 0A 20 3B 0D 0A 20 ;Afficher.. ;..
0001A0: 20 20 20 20 20 20 20 20 4C 44 20 48 4C 2C 54 4E LD HL,TN
0001B0: 42 53 45 43 20 20 3B 4E 6F 6D 62 72 65 20 73 65 BSEC ;Nombre se
0001C0: 63 74 65 75 72 73 0D 0A 20 20 20 20 20 20 20 20 cteurs..
0001D0: 20 43 41 4C 4C 20 50 52 54 0D 0A 20 20 20 20 20 CALL PRT..
0001E0: 20 20 20 20 4C 44 20 41 2C 28 4E 42 53 45 43 29 LD A,(NBSEC)
0001F0: 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 .. CALL
Size : 512 (Real : 512)
000000: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 48 4C 2C . LD HL,
000010: 49 44 49 4E 44 52 41 20 20 20 3B 49 44 53 0D 0A IDINDRA ;IDS..
000020: 20 20 20 20 20 20 20 20 20 4C 44 20 44 45 2C 4C LD DE,L
000030: 49 53 54 45 52 52 0D 0A 20 20 20 20 20 20 20 20 ISTERR..
000040: 20 4C 44 20 41 2C 28 4E 42 53 45 43 29 0D 0A 20 LD A,(NBSEC)..
000050: 20 20 20 20 20 20 20 20 4C 44 20 42 2C 41 0D 0A LD B,A..
000060: 20 20 20 20 20 20 20 20 20 4C 44 20 43 2C 34 0D LD C,4.
000070: 0A 20 4E 45 58 54 49 4D 50 20 44 45 43 20 43 0D . NEXTIMP DEC C.
000080: 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 5A . CALL Z
000090: 2C 43 52 49 4D 50 31 0D 0A 20 20 20 20 20 20 20 ,CRIMP1..
0000A0: 20 20 50 55 53 48 20 42 43 0D 0A 20 57 41 49 54 PUSH BC.. WAIT
0000B0: 49 4D 50 20 43 41 4C 4C 20 23 42 44 32 45 20 20 IMP CALL #BD2E
0000C0: 20 20 20 20 3B 41 74 74 65 6E 64 72 65 20 75 6E ;Attendre un
0000D0: 20 70 65 75 20 70 6F 75 72 20 6E 65 20 70 61 73 peu pour ne pas
0000E0: 20 70 65 72 64 72 65 20 64 65 73 20 63 61 72 61 perdre des cara
0000F0: 63 74 65 72 65 73 0D 0A 20 20 20 20 20 20 20 20 cteres..
000100: 20 4A 52 20 43 2C 57 41 49 54 49 4D 50 0D 0A 20 JR C,WAITIMP..
000110: 20 20 20 20 20 20 20 20 43 41 4C 4C 20 41 46 46 CALL AFF
000120: 34 49 44 0D 0A 20 20 20 20 20 20 20 20 20 50 4F 4ID.. PO
000130: 50 20 42 43 0D 0A 20 20 20 20 20 20 20 20 20 4C P BC.. L
000140: 44 20 41 2C 28 44 45 29 0D 0A 20 20 20 20 20 20 D A,(DE)..
000150: 20 20 20 49 4E 43 20 44 45 0D 0A 20 20 20 20 20 INC DE..
000160: 20 20 20 20 50 55 53 48 20 48 4C 0D 0A 20 20 20 PUSH HL..
000170: 20 20 20 20 20 20 50 55 53 48 20 44 45 0D 0A 20 PUSH DE..
000180: 20 20 20 20 20 20 20 20 50 55 53 48 20 42 43 0D PUSH BC.
000190: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 46 4C . LD (FL
0001A0: 41 47 45 52 52 29 2C 41 20 20 0D 0A 20 20 20 20 AGERR),A ..
0001B0: 20 20 20 20 20 43 41 4C 4C 20 50 52 54 33 45 52 CALL PRT3ER
0001C0: 52 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 48 R.. LD H
0001D0: 4C 2C 54 53 45 50 49 4D 50 0D 0A 20 20 20 20 20 L,TSEPIMP..
0001E0: 20 20 20 20 43 41 4C 4C 20 50 52 54 0D 0A 20 20 CALL PRT..
0001F0: 20 20 20 20 20 20 20 50 4F 50 20 42 43 0D 0A 20 POP BC..
Size : 512 (Real : 512)
000000: 51 55 4F 49 20 4E 45 20 4C 45 20 46 41 49 54 2D QUOI NE LE FAIT-
000010: 49 4C 20 50 41 53 20 3F 20 56 6F 75 73 20 61 76 IL PAS ? Vous av
000020: 65 7A 20 20 76 75 20 6C 61 20 74 61 69 6C 6C 65 ez vu la taille
000030: 20 64 75 20 63 6F 64 65 20 73 6F 75 72 63 65 20 du code source
000040: 64 65 20 6C 61 0D 0A 20 76 65 72 73 69 6F 6E 20 de la.. version
000050: 61 63 74 75 65 6C 6C 65 20 3F 21 21 0D 0A 20 20 actuelle ?!!..
000060: 20 20 20 43 4F 4D 4D 45 4E 54 20 49 4C 20 46 41 COMMENT IL FA
000070: 49 54 20 43 45 20 51 55 27 49 4C 20 50 45 55 54 IT CE QU'IL PEUT
000080: 20 3A 20 54 6F 75 73 20 6C 65 73 20 64 7B 74 61 : Tous les d{ta
000090: 69 6C 73 20 73 75 69 76 65 6E 74 20 64 61 6E 73 ils suivent dans
0000A0: 20 6C 61 20 6D 61 72 7B 65 20 64 65 0D 0A 20 66 la mar{e de.. f
0000B0: 69 63 68 69 65 72 73 20 71 75 69 20 76 61 20 6E ichiers qui va n
0000C0: 6F 79 65 72 20 76 6F 73 20 20 65 73 70 72 69 74 oyer vos esprit
0000D0: 73 20 20 7B 62 61 68 69 73 20 20 2E 20 50 6F 75 s {bahis . Pou
0000E0: 72 20 65 73 70 7B 72 65 72 20 63 6F 6D 70 72 65 r esp{rer compre
0000F0: 6E 64 72 65 20 71 75 65 6C 71 75 65 0D 0A 20 63 ndre quelque.. c
000100: 68 6F 73 65 20 6E 6F 74 65 7A 20 62 69 65 6E 20 hose notez bien
000110: 63 65 20 71 75 69 20 73 75 69 74 20 3A 0D 0A 20 ce qui suit :..
000120: 0D 0A 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D .. -----------
000130: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000140: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000150: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000160: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A --------------..
000170: 20 20 2D 20 52 41 50 50 45 4C 20 44 45 53 20 45 - RAPPEL DES E
000180: 54 41 54 53 20 44 27 45 52 52 45 55 52 20 4C 45 TATS D'ERREUR LE
000190: 53 20 50 4C 55 53 20 43 4F 55 52 41 4E 54 53 20 S PLUS COURANTS
0001A0: 45 54 20 43 45 20 51 55 27 4F 4E 20 50 45 55 54 ET CE QU'ON PEUT
0001B0: 20 45 4E 20 44 45 44 55 49 52 45 20 2D 0D 0A 20 EN DEDUIRE -..
0001C0: 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D --------------
0001D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0001E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0001F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
Size : 512 (Real : 512)
000000: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 0D 0A -----------.. ..
000010: 20 20 20 20 20 43 52 2F 44 44 20 3A 20 4C 6F 72 CR/DD : Lor
000020: 73 71 75 65 20 63 65 73 20 32 20 6D 65 73 73 61 sque ces 2 messa
000030: 67 65 73 20 73 6F 6E 74 20 73 69 6D 75 6C 74 61 ges sont simulta
000040: 6E 7B 73 20 6F 6E 20 73 61 69 74 20 71 75 65 20 n{s on sait que
000050: 3A 0D 0A 20 0D 0A 20 20 20 20 20 31 20 3A 20 4C :.. .. 1 : L
000060: 61 20 20 6C 6F 6E 67 75 65 75 72 20 20 64 7B 63 a longueur d{c
000070: 6C 61 72 7B 65 20 20 64 61 6E 73 20 20 6C 27 49 lar{e dans l'I
000080: 44 20 20 65 73 74 20 20 64 69 66 66 7B 72 65 6E D est diff{ren
000090: 74 65 20 20 64 65 20 20 6C 61 20 74 61 69 6C 6C te de la taill
0000A0: 65 20 64 65 0D 0A 20 66 6F 72 6D 61 74 61 67 65 e de.. formatage
0000B0: 20 2E 20 4F 6E 20 70 65 75 74 20 64 7B 6A 40 20 . On peut d{j@
0000C0: 20 64 69 72 65 20 20 64 65 20 20 71 75 65 6C 6C dire de quell
0000D0: 65 28 73 29 20 20 74 61 69 6C 6C 65 28 73 29 20 e(s) taille(s)
0000E0: 20 6C 65 20 66 6F 72 6D 61 74 20 4E 27 45 53 54 le format N'EST
0000F0: 20 50 41 53 0D 0A 20 43 4F 4E 53 54 49 54 55 45 PAS.. CONSTITUE
000100: 0D 0A 20 20 20 20 20 32 20 3A 20 53 69 20 6C 61 .. 2 : Si la
000110: 20 6C 6F 6E 67 75 65 75 72 20 64 27 75 6E 20 20 longueur d'un
000120: 43 52 2F 44 44 20 20 65 73 74 20 20 50 4C 55 53 CR/DD est PLUS
000130: 20 20 47 52 41 4E 44 45 20 20 71 75 65 20 6C 61 GRANDE que la
000140: 20 76 72 61 69 65 20 74 61 69 6C 6C 65 20 64 65 vraie taille de
000150: 0D 0A 20 66 6F 72 6D 61 74 61 67 65 20 6F 6E 20 .. formatage on
000160: 65 73 74 20 73 75 72 20 64 27 79 20 74 72 6F 75 est sur d'y trou
000170: 76 65 72 20 20 6C 65 20 20 47 41 50 20 20 65 74 ver le GAP et
000180: 20 20 73 61 20 6C 6F 6E 67 75 65 75 72 20 65 74 sa longueur et
000190: 20 64 27 65 6E 20 64 7B 64 75 69 72 65 20 6C 61 d'en d{duire la
0001A0: 0D 0A 20 76 72 61 69 65 20 74 61 69 6C 6C 65 20 .. vraie taille
0001B0: 64 75 20 66 6F 72 6D 61 74 20 2E 0D 0A 20 20 20 du format ...
0001C0: 20 20 33 20 3A 20 55 6E 20 73 65 63 74 65 75 72 3 : Un secteur
0001D0: 20 43 52 2F 44 44 20 6E 27 61 20 50 41 53 20 20 CR/DD n'a PAS
0001E0: 45 54 45 20 20 45 43 52 49 54 20 20 2E 20 20 4F ETE ECRIT . O
0001F0: 6E 20 65 73 74 20 61 73 73 75 72 7B 20 64 27 79 n est assur{ d'y
Size : 512 (Real : 512)
000000: 20 74 72 6F 75 76 65 72 20 6C 65 0D 0A 20 76 7B trouver le.. v{
000010: 72 69 74 61 62 6C 65 20 6F 63 74 65 74 20 64 65 ritable octet de
000020: 20 72 65 6D 70 6C 69 73 73 61 67 65 20 2E 0D 0A remplissage ...
000030: 20 0D 0A 20 20 20 20 20 43 52 20 6F 75 20 44 44 .. CR ou DD
000040: 20 3A 20 53 69 20 20 6C 27 75 6E 20 20 6F 75 20 : Si l'un ou
000050: 20 6C 27 61 75 74 72 65 20 20 61 70 70 61 72 61 l'autre appara
000060: 69 08 5E 74 20 20 69 73 6F 6C 7B 6D 65 6E 74 20 i.^t isol{ment
000070: 20 2C 20 6C 61 20 6C 65 63 74 75 72 65 20 61 20 , la lecture a
000080: 7B 74 7B 0D 0A 20 69 6E 66 6C 75 65 6E 63 7B 65 {t{.. influenc{e
000090: 20 70 61 72 20 75 6E 65 20 65 72 72 65 75 72 20 par une erreur
0000A0: 64 75 20 64 72 69 76 65 20 6F 75 20 75 6E 20 64 du drive ou un d
0000B0: 7B 66 61 75 74 20 64 65 20 73 75 72 66 61 63 65 {faut de surface
0000C0: 20 64 75 20 64 69 73 71 75 65 20 2E 0D 0A 20 0D du disque ... .
0000D0: 0A 20 20 20 20 20 4D 41 4D 20 3A 20 53 69 20 63 . MAM : Si c
0000E0: 65 20 6D 65 73 73 61 67 65 20 20 63 6F 6E 63 65 e message conce
0000F0: 72 6E 65 20 20 75 6E 20 20 73 65 63 74 65 75 72 rne un secteur
000100: 20 20 64 65 20 20 74 61 69 6C 6C 65 20 20 30 20 de taille 0
000110: 63 27 65 73 74 20 6E 6F 72 6D 61 6C 20 65 74 0D c'est normal et.
000120: 0A 20 63 65 6C 61 20 73 69 67 6E 69 66 69 65 20 . cela signifie
000130: 71 75 27 75 6E 20 73 65 63 74 65 75 72 20 64 6F qu'un secteur do
000140: 6E 74 20 6C 61 20 20 74 61 69 6C 6C 65 20 20 64 nt la taille d
000150: 7B 63 6C 61 72 7B 65 20 20 64 61 6E 73 20 20 6C {clar{e dans l
000160: 27 49 44 20 65 73 74 20 30 20 61 20 7B 74 7B 0D 'ID est 0 a {t{.
000170: 0A 20 7B 63 72 69 74 20 2E 20 28 45 63 72 69 74 . {crit . (Ecrit
000180: 75 72 65 20 64 27 75 6E 20 74 61 69 6C 6C 65 20 ure d'un taille
000190: 30 20 63 6F 72 72 65 63 74 65 20 69 6D 70 6F 73 0 correcte impos
0001A0: 73 69 62 6C 65 20 40 20 63 65 20 6A 6F 75 72 20 sible @ ce jour
0001B0: 73 75 72 20 43 50 43 29 20 2E 20 44 61 6E 73 0D sur CPC) . Dans.
0001C0: 0A 20 74 6F 75 74 20 61 75 74 72 65 20 63 61 73 . tout autre cas
0001D0: 20 6D 65 08 5E 6D 65 20 73 69 67 6E 69 66 69 63 me.^me signific
0001E0: 61 74 69 6F 6E 20 71 75 65 20 43 52 20 6F 75 20 ation que CR ou
0001F0: 44 44 20 73 65 75 6C 20 2E 0D 0A 20 0D 0A 20 20 DD seul ... ..
Size : 512 (Real : 512)
000000: 20 20 20 4F 4B 20 3A 20 4D 65 73 73 61 67 65 20 OK : Message
000010: 6C 6F 75 72 64 20 64 65 20 73 69 67 6E 69 66 69 lourd de signifi
000020: 63 61 74 69 6F 6E 73 20 21 20 20 53 69 20 20 69 cations ! Si i
000030: 6C 20 20 65 73 74 20 6A 6F 69 6E 74 20 40 20 75 l est joint @ u
000040: 6E 20 73 65 63 74 65 75 72 20 64 65 0D 0A 20 74 n secteur de.. t
000050: 61 69 6C 6C 65 20 30 20 6F 6E 20 73 61 69 74 20 aille 0 on sait
000060: 71 75 65 20 20 6C 65 20 20 73 65 63 74 65 75 72 que le secteur
000070: 20 20 63 6F 6E 63 65 72 6E 7B 20 20 6E 27 65 73 concern{ n'es
000080: 74 20 20 70 61 73 20 20 7B 63 72 69 74 20 20 2C t pas {crit ,
000090: 20 71 75 65 20 6C 27 6F 6E 20 79 2D 0D 0A 20 74 que l'on y-.. t
0000A0: 72 6F 75 76 65 72 61 20 6C 27 6F 63 74 65 74 20 rouvera l'octet
0000B0: 64 65 20 66 6F 72 6D 61 74 61 67 65 20 2C 20 71 de formatage , q
0000C0: 75 65 20 20 63 27 65 73 74 20 20 6C 61 20 76 72 ue c'est la vr
0000D0: 61 69 65 20 74 61 69 6C 6C 65 20 64 75 20 66 6F aie taille du fo
0000E0: 72 6D 61 74 20 70 75 69 73 71 75 65 0D 0A 20 64 rmat puisque.. d
0000F0: 61 6E 73 20 74 6F 75 74 20 61 75 74 72 65 20 63 ans tout autre c
000100: 61 73 20 6F 6E 20 61 75 72 61 69 74 20 75 6E 20 as on aurait un
000110: 43 52 2F 44 44 20 6F 75 20 75 6E 20 4D 41 4D 20 CR/DD ou un MAM
000120: 2E 0D 0A 20 20 20 20 20 50 6F 75 72 20 74 6F 75 ... Pour tou
000130: 74 20 61 75 74 72 65 20 74 61 69 6C 6C 65 20 2C t autre taille ,
000140: 20 6F 6E 20 70 6F 75 72 72 61 20 65 6E 76 69 73 on pourra envis
000150: 61 67 65 72 20 63 65 74 74 65 20 76 61 6C 65 75 ager cette valeu
000160: 72 20 63 6F 6D 6D 65 20 6C 27 75 6E 65 20 64 65 r comme l'une de
000170: 73 0D 0A 20 74 61 69 6C 6C 65 73 20 64 65 20 66 s.. tailles de f
000180: 6F 72 6D 61 74 20 70 6F 73 73 69 62 6C 65 73 20 ormat possibles
000190: 65 74 20 6F 6E 20 65 73 74 20 20 73 75 72 20 20 et on est sur
0001A0: 71 75 65 20 63 65 20 73 65 63 74 65 75 72 20 65 que ce secteur e
0001B0: 73 74 20 7B 63 72 69 74 20 61 76 65 63 20 64 65 st {crit avec de
0001C0: 73 0D 0A 20 64 6F 6E 6E 7B 65 73 20 63 6F 68 7B s.. donn{es coh{
0001D0: 72 65 6E 74 65 73 20 2E 0D 0A 20 0D 0A 20 20 20 rentes ... ..
0001E0: 20 20 53 69 20 6C 61 20 20 72 6F 75 74 69 6E 65 Si la routine
0001F0: 20 20 46 49 4E 44 4C 45 4E 20 20 64 65 20 20 53 FINDLEN de S
Size : 512 (Real : 512)
000000: 4F 53 33 20 20 28 72 7B 75 74 69 6C 69 73 7B 65 OS3 (r{utilis{e
000010: 20 20 63 6F 6D 6D 65 20 20 31 65 72 20 20 74 65 comme 1er te
000020: 73 74 29 20 72 7B 75 73 73 69 74 0D 0A 20 74 6F st) r{ussit.. to
000030: 75 74 20 76 61 20 62 69 65 6E 20 2C 20 20 73 69 ut va bien , si
000040: 6E 6F 6E 20 20 6C 27 61 70 70 6C 69 63 61 74 69 non l'applicati
000050: 6F 6E 20 20 70 72 61 74 69 71 75 65 20 20 64 65 on pratique de
000060: 20 20 63 65 73 20 64 7B 64 75 63 74 69 6F 6E 73 ces d{ductions
000070: 20 70 65 72 6D 65 74 20 75 6E 65 0D 0A 20 70 72 permet une.. pr
000080: 65 6D 69 7D 72 65 20 64 7B 63 61 6E 74 61 74 69 emi}re d{cantati
000090: 6F 6E 20 64 75 20 70 72 6F 62 6C 7D 6D 65 20 2E on du probl}me .
0000A0: 20 20 44 61 6E 73 20 20 6C 65 73 20 20 73 69 74 Dans les sit
0000B0: 75 61 74 69 6F 6E 73 20 64 27 7B 63 68 65 63 20 uations d'{chec
0000C0: 64 65 20 63 65 73 20 64 65 75 78 0D 0A 20 73 79 de ces deux.. sy
0000D0: 73 74 7D 6D 65 73 20 2C 20 73 61 63 68 61 6E 74 st}mes , sachant
0000E0: 20 71 75 65 20 6C 65 20 6E 6F 6D 62 72 65 20 20 que le nombre
0000F0: 64 65 20 20 73 65 63 74 65 75 72 73 20 20 73 75 de secteurs su
000100: 72 20 75 6E 65 20 70 69 73 74 65 20 65 73 74 20 r une piste est
000110: 66 6F 6E 63 74 69 6F 6E 20 64 65 0D 0A 20 6C 65 fonction de.. le
000120: 75 72 20 74 61 69 6C 6C 65 20 65 74 20 64 75 20 ur taille et du
000130: 20 47 41 50 20 20 2C 20 20 75 6E 65 20 20 73 7B GAP , une s{
000140: 72 69 65 20 20 64 65 20 20 63 6F 6D 70 61 72 61 rie de compara
000150: 69 73 6F 6E 73 20 65 6E 74 72 65 20 6C 65 73 20 isons entre les
000160: 64 69 66 66 7B 72 65 6E 74 65 73 0D 0A 20 76 61 diff{rentes.. va
000170: 6C 65 75 72 73 20 70 6F 73 73 69 62 6C 65 73 20 leurs possibles
000180: 65 74 20 6C 65 73 20 76 61 6C 65 75 72 73 20 6D et les valeurs m
000190: 61 78 69 6D 61 6C 65 73 20 74 6F 6C 7B 72 7B 65 aximales tol{r{e
0001A0: 73 20 70 65 72 6D 65 74 74 72 6F 6E 74 20 64 65 s permettront de
0001B0: 20 63 68 6F 69 73 69 72 20 6C 61 0D 0A 20 72 6F choisir la.. ro
0001C0: 75 74 69 6E 65 20 64 65 20 74 72 61 69 74 65 6D utine de traitem
0001D0: 65 6E 74 20 61 70 70 72 6F 70 72 69 7B 65 20 2E ent appropri{e .
0001E0: 0D 0A 20 0D 0A 20 20 20 20 20 44 61 6E 73 20 6C .. .. Dans l
0001F0: 65 20 63 61 73 20 64 65 20 73 65 63 74 65 75 72 e cas de secteur
Size : 512 (Real : 512)
000000: 73 20 7B 63 72 61 73 7B 73 20 2C 20 69 6C 20 79 s {cras{s , il y
000010: 2D 40 20 70 61 72 66 6F 69 73 20 75 6E 65 20 61 -@ parfois une a
000020: 6D 62 69 67 75 69 74 7B 20 63 6F 6E 63 65 72 6E mbiguit{ concern
000030: 61 6E 74 0D 0A 20 6C 61 20 74 61 69 6C 6C 65 20 ant.. la taille
000040: 64 27 6F 72 69 67 69 6E 65 20 64 75 20 66 6F 72 d'origine du for
000050: 6D 61 74 20 2E 20 44 61 6E 73 20 63 65 20 63 61 mat . Dans ce ca
000060: 73 20 2C 20 6C 61 20 72 65 63 68 65 72 63 68 65 s , la recherche
000070: 20 64 75 20 47 41 50 20 71 75 69 20 73 65 20 66 du GAP qui se f
000080: 61 69 74 0D 0A 20 74 6F 75 6A 6F 75 72 73 20 70 ait.. toujours p
000090: 61 72 20 75 6E 65 20 69 6E 73 74 72 75 63 74 69 ar une instructi
0000A0: 6F 6E 20 27 4C 69 72 65 20 70 69 73 74 65 27 20 on 'Lire piste'
0000B0: 73 65 20 20 66 61 69 74 20 20 32 20 66 6F 69 73 se fait 2 fois
0000C0: 20 2E 20 4C 61 20 70 72 65 6D 69 7D 72 65 20 61 . La premi}re a
0000D0: 76 65 63 0D 0A 20 6C 61 20 74 61 69 6C 6C 65 20 vec.. la taille
0000E0: 64 65 20 66 6F 72 6D 61 74 20 71 75 65 20 6C 27 de format que l'
0000F0: 6F 6E 20 61 75 72 61 69 74 20 61 69 6D 7B 20 20 on aurait aim{
000100: 6E 6F 75 73 20 66 61 69 72 65 20 70 72 65 6E 64 nous faire prend
000110: 72 65 20 70 6F 75 72 20 6C 61 20 76 72 61 69 65 re pour la vraie
000120: 20 65 74 0D 0A 20 64 61 6E 73 20 63 65 20 63 61 et.. dans ce ca
000130: 73 20 6F 6E 20 74 72 6F 75 76 65 72 61 20 75 6E s on trouvera un
000140: 65 20 76 61 6C 65 75 72 20 64 65 20 47 41 50 3C e valeur de GAP<
000150: 3E 20 23 34 45 20 2E 20 4C 61 20 73 65 63 6F 6E > #4E . La secon
000160: 64 65 20 73 65 20 66 61 69 74 20 61 76 65 63 20 de se fait avec
000170: 6C 65 73 0D 0A 20 76 72 61 69 65 73 20 76 61 6C les.. vraies val
000180: 65 75 72 73 20 65 74 20 64 6F 6E 6E 65 20 6C 65 eurs et donne le
000190: 20 72 7B 73 75 6C 74 61 74 20 63 6F 6E 76 65 6E r{sultat conven
0001A0: 61 62 6C 65 20 2E 20 41 70 72 7D 73 20 61 6E 61 able . Apr}s ana
0001B0: 6C 79 73 65 20 64 27 75 6E 65 20 70 69 73 74 65 lyse d'une piste
0001C0: 20 64 65 0D 0A 20 63 65 20 67 65 6E 72 65 20 2C de.. ce genre ,
0001D0: 20 65 6E 20 70 6C 75 73 20 64 65 73 20 76 72 61 en plus des vra
0001E0: 69 65 73 20 64 6F 6E 6E 7B 65 73 20 2C 20 6C 65 ies donn{es , le
0001F0: 20 70 72 6F 67 72 61 6D 6D 65 20 76 6F 75 73 20 programme vous
Size : 512 (Real : 512)
000000: 69 6E 66 6F 72 6D 65 20 64 65 73 20 76 61 6C 65 informe des vale
000010: 75 72 73 0D 0A 20 74 72 6F 75 76 7B 65 73 20 6C urs.. trouv{es l
000020: 6F 72 73 20 64 65 20 20 6C 61 20 20 70 72 65 6D ors de la prem
000030: 69 7D 72 65 20 20 72 65 63 68 65 72 63 68 65 20 i}re recherche
000040: 20 73 6F 75 73 20 20 6C 65 73 20 20 6E 6F 6D 20 sous les nom
000050: 20 46 41 55 58 20 20 47 41 50 20 2C 20 46 41 55 FAUX GAP , FAU
000060: 53 53 45 0D 0A 20 4C 4F 4E 47 55 45 55 52 20 44 SSE.. LONGUEUR D
000070: 45 20 47 41 50 20 2C 20 46 41 55 53 53 45 20 54 E GAP , FAUSSE T
000080: 41 49 4C 4C 45 20 44 45 20 20 46 4F 52 4D 41 54 AILLE DE FORMAT
000090: 20 2E 20 49 6C 20 61 72 72 69 76 65 20 61 75 73 . Il arrive aus
0000A0: 73 69 20 71 75 27 75 6E 65 20 61 6D 62 69 67 75 si qu'une ambigu
0000B0: 69 74 7B 0D 0A 20 70 65 72 73 69 73 74 65 20 28 it{.. persiste (
0000C0: 50 6C 75 73 69 65 75 72 73 20 49 44 53 20 64 65 Plusieurs IDS de
0000D0: 20 20 6C 6F 6E 67 75 65 75 72 20 20 73 6F 6E 74 longueur sont
0000E0: 20 20 64 69 66 66 7B 72 65 6E 74 73 20 20 6D 61 diff{rents ma
0000F0: 69 73 20 20 69 6C 20 20 6E 27 79 20 61 20 61 75 is il n'y a au
000100: 63 75 6E 0D 0A 20 7B 6C 7B 6D 65 6E 74 20 70 65 cun.. {l{ment pe
000110: 72 6D 65 74 74 61 6E 74 20 64 65 20 63 65 72 74 rmettant de cert
000120: 69 66 69 65 72 20 71 75 65 20 6C 61 20 20 70 69 ifier que la pi
000130: 73 74 65 20 20 70 6F 72 74 65 20 75 6E 20 66 6F ste porte un fo
000140: 72 6D 61 74 20 7B 63 72 61 73 7B 29 20 2E 20 44 rmat {cras{) . D
000150: 61 6E 73 0D 0A 20 63 65 20 63 61 73 20 6C 65 73 ans.. ce cas les
000160: 20 73 65 63 74 65 75 72 73 20 73 6F 6E 74 20 20 secteurs sont
000170: 6D 61 6C 67 72 7B 20 20 74 6F 75 74 20 20 7B 63 malgr{ tout {c
000180: 72 61 73 7B 73 20 20 70 61 72 20 20 6C 65 20 20 ras{s par le
000190: 63 6F 70 69 65 75 72 20 65 74 20 6C 61 20 6C 69 copieur et la li
0001A0: 67 6E 65 0D 0A 20 27 54 41 49 4C 4C 45 20 50 4F gne.. 'TAILLE PO
0001B0: 53 53 49 42 4C 45 27 20 76 6F 75 73 20 64 6F 6E SSIBLE' vous don
0001C0: 6E 65 20 6C 61 20 73 65 63 6F 6E 64 65 20 74 61 ne la seconde ta
0001D0: 69 6C 6C 65 20 64 65 20 73 65 63 74 65 75 72 73 ille de secteurs
0001E0: 20 71 75 69 20 41 55 52 41 49 54 20 50 55 20 65 qui AURAIT PU e
0001F0: 08 5E 74 72 65 0D 0A 20 76 61 6C 61 62 6C 65 20 .^tre.. valable
Size : 512 (Real : 512)
000000: 2E 0D 0A 20 0D 0A 20 20 20 20 20 42 69 65 6E 20 ... .. Bien
000010: 71 75 65 20 6C 65 20 70 72 6F 67 72 61 6D 6D 65 que le programme
000020: 20 73 6F 69 74 20 74 72 7D 73 20 64 69 66 66 7B soit tr}s diff{
000030: 72 65 6E 74 20 20 64 65 20 20 63 65 20 71 75 69 rent de ce qui
000040: 20 40 20 7B 74 7B 20 70 72 7B 73 65 6E 74 7B 20 @ {t{ pr{sent{
000050: 64 61 6E 73 0D 0A 20 6C 65 73 20 6E 75 6D 7B 72 dans.. les num{r
000060: 6F 73 20 70 72 7B 63 7B 64 65 6E 74 73 20 2C 20 os pr{c{dents ,
000070: 64 65 20 6E 6F 6D 62 72 65 75 73 65 73 20 20 72 de nombreuses r
000080: 6F 75 74 69 6E 65 73 20 20 73 6F 6E 74 20 6C 65 outines sont le
000090: 73 20 6D 65 08 5E 6D 65 73 20 2E 20 4C 65 73 20 s me.^mes . Les
0000A0: 6C 61 62 65 6C 73 0D 0A 20 64 65 73 20 72 6F 75 labels.. des rou
0000B0: 74 69 6E 65 73 20 63 6F 6D 6D 75 6E 65 73 20 40 tines communes @
0000C0: 20 74 6F 75 73 20 6C 65 73 20 6E 75 6D 7B 72 6F tous les num{ro
0000D0: 73 20 64 65 20 53 4F 53 20 50 52 4F 47 52 41 4D s de SOS PROGRAM
0000E0: 4D 45 55 52 53 20 6E 27 6F 6E 74 20 70 61 73 20 MEURS n'ont pas
0000F0: 63 68 61 6E 67 7B 0D 0A 20 64 27 75 6E 20 63 61 chang{.. d'un ca
000100: 72 61 63 74 7D 72 65 20 65 74 20 6F 6E 74 20 74 ract}re et ont t
000110: 6F 75 6A 6F 75 72 73 20 6C 61 20 6D 65 08 5E 6D oujours la me.^m
000120: 65 20 66 6F 6E 63 74 69 6F 6E 20 2E 0D 0A 20 0D e fonction ... .
000130: 0A 20 20 20 20 20 41 75 74 61 6E 74 20 71 75 65 . Autant que
000140: 20 66 61 69 72 65 20 73 65 20 70 65 75 74 20 2C faire se peut ,
000150: 20 6C 65 73 20 72 65 67 69 73 74 72 65 73 20 20 les registres
000160: 64 75 20 5A 38 30 20 73 6F 6E 74 20 75 74 69 6C du Z80 sont util
000170: 69 73 7B 73 20 64 65 20 6C 61 20 6D 65 08 5E 6D is{s de la me.^m
000180: 65 0D 0A 20 6D 61 6E 69 7D 72 65 20 2E 20 43 65 e.. mani}re . Ce
000190: 20 20 71 75 69 20 20 73 75 69 74 20 20 70 65 75 qui suit peu
0001A0: 74 20 20 76 6F 75 73 20 20 73 65 72 76 69 72 20 t vous servir
0001B0: 20 64 65 20 20 67 75 69 64 65 20 20 64 61 6E 73 de guide dans
0001C0: 20 20 39 35 25 20 64 65 73 20 67 72 6F 73 73 65 95% des grosse
0001D0: 73 0D 0A 20 72 6F 75 74 69 6E 65 73 20 2E 0D 0A s.. routines ...
0001E0: 20 0D 0A 20 20 20 20 20 48 4C 20 3A 20 50 6F 69 .. HL : Poi
0001F0: 6E 74 65 75 72 20 70 72 69 6E 63 69 70 61 6C 20 nteur principal
Size : 512 (Real : 512)
000000: 64 65 20 6C 61 20 6C 69 73 74 65 20 20 64 65 73 de la liste des
000010: 20 64 6F 6E 6E 7B 65 73 20 65 6E 20 63 6F 75 72 donn{es en cour
000020: 73 20 64 65 20 74 72 61 69 74 65 6D 65 6E 74 20 s de traitement
000030: 2E 0D 0A 20 50 65 75 74 20 65 08 5E 74 72 65 20 ... Peut e.^tre
000040: 75 74 69 6C 69 73 7B 20 74 65 6D 70 6F 72 61 69 utilis{ temporai
000050: 72 65 6D 65 6E 74 20 70 6F 75 72 20 75 6E 65 20 rement pour une
000060: 69 6E 63 72 7B 6D 65 6E 74 61 74 69 6F 6E 20 6F incr{mentation o
000070: 75 20 75 6E 65 20 61 64 64 69 74 69 6F 6E 20 6D u une addition m
000080: 61 69 73 0D 0A 20 64 61 6E 73 20 63 65 20 63 61 ais.. dans ce ca
000090: 73 20 65 73 74 20 74 6F 75 6A 6F 75 72 73 20 70 s est toujours p
0000A0: 72 7B 73 65 72 76 7B 20 65 74 20 72 65 73 74 69 r{serv{ et resti
0000B0: 74 75 7B 20 2E 0D 0A 20 20 20 20 20 44 45 20 3A tu{ ... DE :
0000C0: 20 50 6F 69 6E 74 65 75 72 20 64 65 20 6C 61 20 Pointeur de la
0000D0: 6C 69 73 74 65 20 64 65 20 20 64 6F 6E 6E 7B 65 liste de donn{e
0000E0: 73 20 73 65 63 6F 6E 64 61 69 72 65 73 20 71 75 s secondaires qu
0000F0: 61 6E 74 20 6F 6E 20 65 6E 20 75 74 69 6C 69 73 ant on en utilis
000100: 65 20 75 6E 65 0D 0A 20 28 4C 49 53 54 45 52 52 e une.. (LISTERR
000110: 20 70 61 72 20 65 78 65 6D 70 6C 65 29 20 2E 20 par exemple) .
000120: 46 6F 75 72 72 65 20 74 6F 75 74 20 64 61 6E 73 Fourre tout dans
000130: 20 6C 65 73 20 61 75 74 72 65 73 20 63 61 73 20 les autres cas
000140: 2E 0D 0A 20 20 20 20 20 42 20 20 3A 20 44 61 6E ... B : Dan
000150: 73 20 6C 65 73 20 62 6F 75 63 6C 65 73 20 20 64 s les boucles d
000160: 65 20 20 74 72 61 69 74 65 6D 65 6E 74 20 20 2C e traitement ,
000170: 20 20 63 6F 6E 74 69 65 6E 74 20 20 74 6F 75 6A contient touj
000180: 6F 75 72 73 20 6C 65 20 6E 6F 6D 62 72 65 20 64 ours le nombre d
000190: 65 0D 0A 20 73 65 63 74 65 75 72 73 20 65 74 20 e.. secteurs et
0001A0: 65 73 74 20 74 6F 75 6A 6F 75 72 73 20 70 72 7B est toujours pr{
0001B0: 73 65 72 76 7B 20 2E 0D 0A 20 20 20 20 20 43 20 serv{ ... C
0001C0: 3A 20 43 6F 6D 70 74 65 75 72 20 73 65 63 6F 6E : Compteur secon
0001D0: 64 61 69 72 65 20 38 20 62 69 74 73 20 6F 7C 20 daire 8 bits o|
0001E0: 6D 7B 6D 6F 72 69 73 65 20 75 6E 65 20 76 61 6C m{morise une val
0001F0: 65 75 72 20 64 65 20 63 6F 6D 70 61 72 61 69 73 eur de comparais
Size : 512 (Real : 512)
000000: 6F 6E 20 64 61 6E 73 0D 0A 20 6C 65 73 20 73 7B on dans.. les s{
000010: 72 69 65 73 20 64 65 20 74 65 73 74 73 20 2E 0D ries de tests ..
000020: 0A 20 20 20 20 20 49 58 20 3A 20 54 6F 75 6A 6F . IX : Toujo
000030: 75 72 73 20 6C 65 20 20 70 6F 69 6E 74 65 75 72 urs le pointeur
000040: 20 20 64 65 73 20 20 49 44 53 20 20 64 61 6E 73 des IDS dans
000050: 20 20 6C 65 73 20 20 73 65 63 74 69 6F 6E 73 20 les sections
000060: 64 27 61 6E 61 6C 79 73 65 20 65 74 20 6C 65 0D d'analyse et le.
000070: 0A 20 70 6F 69 6E 74 65 75 72 20 64 65 73 20 61 . pointeur des a
000080: 64 72 65 73 73 65 73 20 62 75 66 66 65 72 20 65 dresses buffer e
000090: 6E 20 73 74 6F 63 6B 61 67 65 20 65 74 20 7B 63 n stockage et {c
0000A0: 72 69 74 75 72 65 20 2E 0D 0A 20 20 20 20 20 49 riture ... I
0000B0: 59 20 3A 20 48 6F 6D 6D 65 20 64 65 20 70 61 69 Y : Homme de pai
0000C0: 6C 6C 65 20 40 20 75 73 61 67 65 73 20 6D 75 6C lle @ usages mul
0000D0: 74 69 70 6C 65 73 20 2E 0D 0A 20 0D 0A 20 20 20 tiples ... ..
0000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000F0: 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ------------
000100: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000110: 2D 2D 2D 2D 0D 0A 20 0D 0A 20 46 49 4E 20 44 45 ----.. .. FIN DE
000120: 20 53 45 43 54 49 4F 4E 20 2E 20 4C 45 53 20 20 SECTION . LES
000130: 46 49 43 48 49 45 52 53 20 20 43 4F 50 49 45 55 FICHIERS COPIEU
000140: 52 20 20 2C 20 20 52 4F 55 54 49 4E 45 53 20 20 R , ROUTINES
000150: 46 44 43 20 20 2C 20 50 45 55 56 45 4E 54 20 45 FDC , PEUVENT E
000160: 54 52 45 20 4C 55 53 0D 0A 20 49 4E 44 45 50 45 TRE LUS.. INDEPE
000170: 4E 44 41 4D 45 4E 54 20 2E 20 54 4F 55 54 20 43 NDAMENT . TOUT C
000180: 45 20 51 55 49 20 20 43 4F 4E 43 45 52 4E 45 20 E QUI CONCERNE
000190: 20 4C 27 41 4E 41 4C 59 53 45 20 20 45 54 20 20 L'ANALYSE ET
0001A0: 4C 41 20 52 45 50 52 4F 44 55 43 54 49 4F 4E 20 LA REPRODUCTION
0001B0: 41 20 47 52 41 4E 44 0D 0A 20 49 4E 54 45 52 45 A GRAND.. INTERE
0001C0: 54 20 41 20 45 54 52 45 20 53 55 49 56 49 20 44 T A ETRE SUIVI D
0001D0: 41 4E 53 20 4C 27 4F 52 44 52 45 20 2E 0D 0A 1A ANS L'ORDRE ....
0001E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2B 2D 2D 2D 2D 2D ----------+-----
0001F0: 2D 2D 2D 2D 2B 20 20 20 20 20 20 20 20 51 75 61 ----+ Qua
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000010: 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------
000020: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000030: 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 20 20 20 20 ---------..
000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000050: 2D 20 46 4F 52 4D 41 54 41 47 45 20 45 54 20 45 - FORMATAGE ET E
000060: 43 52 49 54 55 52 45 20 44 45 20 4C 41 20 50 49 CRITURE DE LA PI
000070: 53 54 45 20 2D 0D 0A 20 20 20 20 20 20 20 20 20 STE -..
000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 2D 2D 2D ---
000090: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0000A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0000B0: 0D 0A 20 0D 0A 20 20 20 20 20 20 20 20 20 20 20 .. ..
0000C0: 20 43 65 74 74 65 20 63 6F 75 72 74 65 20 72 6F Cette courte ro
0000D0: 75 74 69 6E 65 20 73 65 20 70 61 73 73 65 20 66 utine se passe f
0000E0: 6F 72 74 20 62 69 65 6E 20 64 65 20 70 72 7B 61 ort bien de pr{a
0000F0: 6D 62 75 6C 65 20 2E 0D 0A 20 0D 0A 20 20 20 20 mbule ... ..
000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000110: 20 20 20 20 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D ------
000120: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 -------------..
000130: 3B 0D 0A 20 3B 2D 20 53 74 6F 63 6B 65 72 20 75 ;.. ;- Stocker u
000140: 6E 65 20 70 69 73 74 65 20 63 6F 6D 70 6C 65 74 ne piste complet
000150: 65 20 2E 20 53 69 20 62 75 66 66 65 72 20 70 6C e . Si buffer pl
000160: 65 69 6E 20 72 65 74 6F 75 72 20 61 76 65 63 20 ein retour avec
000170: 4E 43 20 2D 0D 0A 20 3B 0D 0A 20 46 4F 52 4D 41 NC -.. ;.. FORMA
000180: 54 45 52 20 4C 44 20 48 4C 2C 54 46 4F 52 4D 41 TER LD HL,TFORMA
000190: 54 45 20 20 20 20 20 3B 41 66 66 69 63 68 65 72 TE ;Afficher
0001A0: 20 74 65 78 74 65 20 66 6F 72 6D 61 74 61 67 65 texte formatage
0001B0: 20 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C .. CALL
0001C0: 20 50 52 54 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 PRT.. ;..
0001D0: 20 20 20 4C 44 20 48 4C 2C 28 50 4F 49 4E 50 49 LD HL,(POINPI
0001E0: 53 29 20 20 20 20 20 3B 50 72 65 6E 64 72 65 20 S) ;Prendre
0001F0: 6C 65 20 70 6F 69 6E 74 65 75 72 0D 0A 20 20 20 le pointeur..
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 49 4E 43 20 48 4C 0D 0A 20 20 INC HL..
000010: 20 20 20 20 20 20 20 4C 44 20 41 2C 28 48 4C 29 LD A,(HL)
000020: 20 20 20 20 20 20 20 20 20 20 20 3B 65 74 20 72 ;et r
000030: 65 63 75 70 65 72 65 72 20 46 4C 41 47 46 4E 43 ecuperer FLAGFNC
000040: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 46 .. LD (F
000050: 4C 41 47 46 4E 43 29 2C 41 0D 0A 20 20 20 20 20 LAGFNC),A..
000060: 20 20 20 20 49 4E 43 20 48 4C 0D 0A 20 20 20 20 INC HL..
000070: 20 20 20 20 20 4C 44 20 28 50 4F 49 4E 50 49 53 LD (POINPIS
000080: 29 2C 48 4C 20 20 20 20 20 3B 50 6F 69 6E 74 65 ),HL ;Pointe
000090: 20 73 75 72 20 70 69 73 74 65 20 73 75 69 76 61 sur piste suiva
0000A0: 6E 74 65 20 73 69 20 70 61 73 20 66 6F 72 6D 61 nte si pas forma
0000B0: 74 65 65 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 tee.. ;..
0000C0: 20 20 42 49 54 20 33 2C 41 0D 0A 20 20 20 20 20 BIT 3,A..
0000D0: 20 20 20 20 4A 50 20 4E 5A 2C 44 45 46 4F 52 4D JP NZ,DEFORM
0000E0: 41 20 20 20 20 20 20 20 3B 50 69 73 74 65 20 6F A ;Piste o
0000F0: 72 69 67 69 6E 65 20 70 61 73 20 66 6F 72 6D 61 rigine pas forma
000100: 74 65 65 20 2C 20 64 65 66 6F 72 6D 61 74 65 72 tee , deformater
000110: 20 70 69 73 74 65 0D 0A 20 3B 0D 0A 20 20 20 20 piste.. ;..
000120: 20 20 20 20 20 49 4E 43 20 41 20 20 20 20 20 20 INC A
000130: 20 20 20 20 20 20 20 20 20 3B 49 6E 75 74 69 6C ;Inutil
000140: 69 73 65 20 64 61 6E 73 20 63 65 74 74 65 20 76 ise dans cette v
000150: 65 72 73 69 6F 6E 0D 0A 20 20 20 20 20 20 20 20 ersion..
000160: 20 52 45 54 20 5A 20 20 20 20 20 20 20 20 20 20 RET Z
000170: 20 20 20 20 20 3B 50 69 73 74 65 20 65 6E 20 61 ;Piste en a
000180: 74 74 65 6E 74 65 0D 0A 20 3B 0D 0A 20 3B 2D 20 ttente.. ;.. ;-
000190: 50 69 73 74 65 20 66 6F 72 6D 61 74 65 65 20 2E Piste formatee .
0001A0: 20 52 65 70 72 65 6E 64 72 65 20 70 61 72 61 6D Reprendre param
0001B0: 65 74 72 65 73 20 70 69 73 74 65 20 65 74 20 72 etres piste et r
0001C0: 65 6D 65 74 74 72 65 20 64 61 6E 73 20 70 72 6F emettre dans pro
0001D0: 67 72 61 6D 6D 65 20 2D 0D 0A 20 3B 0D 0A 20 47 gramme -.. ;.. G
0001E0: 4F 46 4F 52 4D 20 20 4C 44 20 45 2C 28 48 4C 29 OFORM LD E,(HL)
0001F0: 20 20 20 20 20 3B 52 65 63 75 70 65 72 65 20 6C ;Recupere l
Size : 512 (Real : 512)
000000: 6F 6E 67 75 65 75 72 20 64 65 20 73 65 63 74 65 ongueur de secte
000010: 75 72 0D 0A 20 20 20 20 20 20 20 20 20 49 4E 43 ur.. INC
000020: 20 48 4C 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 HL.. LD
000030: 20 44 2C 28 48 4C 29 0D 0A 20 20 20 20 20 20 20 D,(HL)..
000040: 20 20 4C 44 20 28 4C 4F 4E 47 53 45 43 29 2C 44 LD (LONGSEC),D
000050: 45 0D 0A 20 20 20 20 20 20 20 20 20 49 4E 43 20 E.. INC
000060: 48 4C 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 HL.. ;..
000070: 20 4C 44 20 44 45 2C 4C 45 4E 53 45 43 20 3B 52 LD DE,LENSEC ;R
000080: 65 63 75 70 65 72 65 72 20 4C 45 4E 53 45 43 20 ecuperer LENSEC
000090: 2D 20 4E 42 53 45 43 20 2D 20 47 41 50 46 4F 52 - NBSEC - GAPFOR
0000A0: 4D 20 2D 20 4F 43 52 45 4D 50 0D 0A 20 20 20 20 M - OCREMP..
0000B0: 20 20 20 20 20 4C 44 20 42 43 2C 34 0D 0A 20 20 LD BC,4..
0000C0: 20 20 20 20 20 20 20 4C 44 49 52 0D 0A 20 3B 0D LDIR.. ;.
0000D0: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 41 2C 28 . LD A,(
0000E0: 4E 42 53 45 43 29 0D 0A 20 20 20 20 20 20 20 20 NBSEC)..
0000F0: 20 4C 44 20 43 2C 41 0D 0A 20 20 20 20 20 20 20 LD C,A..
000100: 20 20 4C 44 20 42 2C 30 0D 0A 20 20 20 20 20 20 LD B,0..
000110: 20 20 20 50 55 53 48 20 42 43 0D 0A 20 20 20 20 PUSH BC..
000120: 20 20 20 20 20 53 4C 41 20 43 20 20 20 20 20 20 SLA C
000130: 20 20 3B 43 20 3D 20 43 2A 34 0D 0A 20 20 20 20 ;C = C*4..
000140: 20 20 20 20 20 53 4C 41 20 43 0D 0A 20 20 20 20 SLA C..
000150: 20 20 20 20 20 4C 44 20 44 45 2C 49 44 4F 55 54 LD DE,IDOUT
000160: 44 52 41 20 20 3B 52 65 63 75 70 65 72 65 72 20 DRA ;Recuperer
000170: 6C 65 73 20 49 44 53 20 65 74 20 6C 65 73 20 73 les IDS et les s
000180: 74 6F 63 6B 65 72 20 64 61 6E 73 20 6C 61 20 6C tocker dans la l
000190: 69 73 74 65 0D 0A 20 20 20 20 20 20 20 20 20 4C iste.. L
0001A0: 44 49 52 20 20 20 20 20 20 20 20 20 20 20 20 3B DIR ;
0001B0: 64 65 20 73 6F 72 74 69 65 0D 0A 20 20 20 20 20 de sortie..
0001C0: 20 20 20 20 50 4F 50 20 42 43 0D 0A 20 3B 0D 0A POP BC.. ;..
0001D0: 20 20 20 20 20 20 20 20 20 50 55 53 48 20 42 43 PUSH BC
0001E0: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 44 45 .. LD DE
0001F0: 2C 4C 49 53 54 45 52 52 20 20 20 3B 45 74 20 6C ,LISTERR ;Et l
Size : 512 (Real : 512)
000000: 61 20 6C 69 73 74 65 20 64 65 73 20 65 74 61 74 a liste des etat
000010: 73 20 64 27 65 72 72 65 75 72 0D 0A 20 20 20 20 s d'erreur..
000020: 20 20 20 20 20 4C 44 49 52 0D 0A 20 20 20 20 20 LDIR..
000030: 20 20 20 20 50 4F 50 20 42 43 0D 0A 20 3B 0D 0A POP BC.. ;..
000040: 20 20 20 20 20 20 20 20 20 4C 44 20 28 50 4F 49 LD (POI
000050: 4E 50 49 53 29 2C 48 4C 20 3B 53 74 6F 70 70 65 NPIS),HL ;Stoppe
000060: 72 20 70 6F 69 6E 74 65 75 72 20 73 75 72 20 31 r pointeur sur 1
000070: 65 72 73 20 6F 63 74 65 74 73 20 61 64 72 65 73 ers octets adres
000080: 73 65 20 62 75 66 66 65 72 0D 0A 20 3B 0D 0A 20 se buffer.. ;..
000090: 3B 2D 20 46 6F 72 6D 61 74 65 72 20 2D 0D 0A 20 ;- Formater -..
0000A0: 3B 20 0D 0A 20 57 41 49 54 44 49 53 20 4C 44 20 ; .. WAITDIS LD
0000B0: 48 4C 2C 49 44 4F 55 54 44 52 41 0D 0A 20 20 20 HL,IDOUTDRA..
0000C0: 20 20 20 20 20 20 43 41 4C 4C 20 46 4F 52 4D 41 CALL FORMA
0000D0: 54 45 20 20 20 20 3B 4C 61 20 70 69 73 74 65 20 TE ;La piste
0000E0: 65 73 74 20 66 6F 72 6D 61 74 65 65 20 70 61 72 est formatee par
0000F0: 20 6C 61 20 72 6F 75 74 69 6E 65 20 46 4F 52 4D la routine FORM
000100: 41 54 45 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 ATE.. LD
000110: 20 44 45 2C 23 30 32 31 33 20 20 20 20 20 3B 4C DE,#0213 ;L
000120: 6F 63 61 74 65 20 70 6F 75 72 20 65 72 72 65 75 ocate pour erreu
000130: 72 20 64 72 69 76 65 0D 0A 20 20 20 20 20 20 20 r drive..
000140: 20 20 43 41 4C 4C 20 54 53 4D 49 53 50 52 4F 54 CALL TSMISPROT
000150: 20 20 3B 56 6F 69 72 20 73 69 20 65 72 72 65 75 ;Voir si erreu
000160: 72 20 64 72 69 76 65 20 2E 20 4E 43 20 73 69 20 r drive . NC si
000170: 6F 75 69 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 oui.. JR
000180: 20 4E 43 2C 57 41 49 54 44 49 53 20 20 20 3B 41 NC,WAITDIS ;A
000190: 74 74 65 6E 64 72 65 20 71 75 65 20 64 72 69 76 ttendre que driv
0001A0: 65 20 72 65 61 64 79 0D 0A 20 20 20 20 20 20 20 e ready..
0001B0: 20 20 53 43 46 20 20 20 20 20 20 20 20 20 20 20 SCF
0001C0: 20 20 3B 4D 61 72 71 75 65 72 20 66 6F 72 6D 61 ;Marquer forma
0001D0: 74 20 65 66 66 65 63 74 75 65 0D 0A 20 20 20 20 t effectue..
0001E0: 20 20 20 20 20 52 45 54 20 20 20 20 20 20 20 20 RET
0001F0: 20 20 20 20 20 3B 46 69 6E 69 0D 0A 20 3B 0D 0A ;Fini.. ;..
Size : 512 (Real : 512)
000000: 20 3B 2D 20 44 65 66 6F 72 6D 61 74 65 72 20 2D ;- Deformater -
000010: 0D 0A 20 3B 0D 0A 20 44 45 46 4F 52 4D 41 20 4C .. ;.. DEFORMA L
000020: 44 20 48 4C 2C 54 44 45 46 4F 52 4D 20 20 20 3B D HL,TDEFORM ;
000030: 54 65 78 74 65 20 64 65 66 6F 72 6D 61 74 61 67 Texte deformatag
000040: 65 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C e.. CALL
000050: 20 50 52 54 0D 0A 20 20 20 20 20 20 20 20 20 4C PRT.. L
000060: 44 20 41 2C 31 20 20 20 20 20 20 20 20 20 20 3B D A,1 ;
000070: 55 6E 20 73 65 75 6C 20 73 65 63 74 65 75 72 0D Un seul secteur.
000080: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 4E 42 . LD (NB
000090: 53 45 43 29 2C 41 0D 0A 20 20 20 20 20 20 20 20 SEC),A..
0000A0: 20 4C 44 20 41 2C 36 20 20 20 20 20 20 20 20 20 LD A,6
0000B0: 20 3B 44 65 20 74 61 69 6C 6C 65 20 36 0D 0A 20 ;De taille 6..
0000C0: 20 20 20 20 20 20 20 20 4C 44 20 28 4C 45 4E 53 LD (LENS
0000D0: 45 43 29 2C 41 0D 0A 20 3B 0D 0A 20 57 41 49 54 EC),A.. ;.. WAIT
0000E0: 44 49 53 31 20 4C 44 20 48 4C 2C 54 41 42 44 45 DIS1 LD HL,TABDE
0000F0: 46 4F 52 20 3B 41 76 65 63 20 64 65 73 20 49 44 FOR ;Avec des ID
000100: 53 20 62 69 64 6F 6E 73 20 73 75 66 66 69 74 20 S bidons suffit
000110: 61 20 64 65 66 6F 72 6D 61 74 65 72 20 75 6E 65 a deformater une
000120: 20 70 69 73 74 65 0D 0A 20 20 20 20 20 20 20 20 piste..
000130: 20 43 41 4C 4C 20 46 4F 52 4D 41 54 45 0D 0A 20 CALL FORMATE..
000140: 20 20 20 20 20 20 20 20 4C 44 20 44 45 2C 23 30 LD DE,#0
000150: 32 31 33 20 20 20 20 20 3B 4C 6F 63 61 74 65 20 213 ;Locate
000160: 70 6F 75 72 20 65 72 72 65 75 72 20 64 72 69 76 pour erreur driv
000170: 65 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C e.. CALL
000180: 20 54 53 4D 49 53 50 52 4F 54 20 20 3B 56 6F 69 TSMISPROT ;Voi
000190: 72 20 73 69 20 65 72 72 65 75 72 20 64 72 69 76 r si erreur driv
0001A0: 65 20 2E 20 4E 43 20 73 69 20 6F 75 69 0D 0A 20 e . NC si oui..
0001B0: 20 20 20 20 20 20 20 20 4A 52 20 4E 43 2C 57 41 JR NC,WA
0001C0: 49 54 44 49 53 31 0D 0A 20 20 20 20 20 20 20 20 ITDIS1..
0001D0: 20 58 4F 52 20 41 20 20 20 20 20 20 20 20 20 20 XOR A
0001E0: 20 3B 45 6E 6C 65 76 65 72 20 43 41 52 52 59 20 ;Enlever CARRY
0001F0: 70 6F 75 72 20 73 69 67 6E 61 6C 65 72 20 64 65 pour signaler de
Size : 512 (Real : 512)
000000: 66 6F 72 6D 61 74 61 67 65 0D 0A 20 20 20 20 20 formatage..
000010: 20 20 20 20 52 45 54 0D 0A 20 3B 0D 0A 20 54 41 RET.. ;.. TA
000020: 42 44 45 46 4F 52 20 44 42 20 23 46 46 2C 23 46 BDEFOR DB #FF,#F
000030: 46 2C 23 46 46 2C 36 0D 0A 20 54 46 4F 52 4D 41 F,#FF,6.. TFORMA
000040: 54 45 20 44 42 20 33 31 2C 32 2C 32 30 2C 32 34 TE DB 31,2,20,24
000050: 2C 22 20 46 4F 52 4D 41 54 41 47 45 20 20 50 49 ," FORMATAGE PI
000060: 53 54 45 20 22 2C 32 34 2C 23 38 30 0D 0A 20 54 STE ",24,#80.. T
000070: 44 45 46 4F 52 4D 20 20 44 42 20 33 31 2C 32 2C DEFORM DB 31,2,
000080: 32 30 2C 32 34 2C 22 20 44 45 46 4F 52 4D 41 54 20,24," DEFORMAT
000090: 45 20 20 50 49 53 54 45 20 22 2C 32 34 2C 23 38 E PISTE ",24,#8
0000A0: 30 0D 0A 20 3B 0D 0A 20 0D 0A 20 20 20 20 20 20 0.. ;.. ..
0000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000C0: 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------
0000D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 20 ------------..
0000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000F0: 20 20 20 20 20 20 20 20 20 2D 20 45 43 52 49 54 - ECRIT
000100: 55 52 45 20 44 45 20 4C 41 20 50 49 53 54 45 20 URE DE LA PISTE
000110: 2D 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 -..
000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2D -
000130: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000140: 2D 2D 2D 2D 2D 0D 0A 20 0D 0A 20 20 20 20 20 20 -----.. ..
000150: 20 20 20 20 43 27 65 73 74 20 65 78 61 63 74 65 C'est exacte
000160: 6D 65 6E 74 20 6C 27 69 6E 76 65 72 73 65 20 64 ment l'inverse d
000170: 65 20 20 6C 61 20 20 72 6F 75 74 69 6E 65 20 20 e la routine
000180: 64 65 20 20 73 74 6F 63 6B 61 67 65 20 2E 0D 0A de stockage ...
000190: 20 3B 0D 0A 20 3B 2D 20 45 63 72 69 72 65 20 75 ;.. ;- Ecrire u
0001A0: 6E 65 20 70 69 73 74 65 20 63 6F 6D 70 6C 65 74 ne piste complet
0001B0: 65 20 20 2D 0D 0A 20 3B 0D 0A 20 45 43 52 49 52 e -.. ;.. ECRIR
0001C0: 45 20 20 4C 44 20 48 4C 2C 54 45 43 52 49 50 49 E LD HL,TECRIPI
0001D0: 20 20 20 3B 54 65 78 74 65 73 20 65 63 72 69 74 ;Textes ecrit
0001E0: 75 72 65 0D 0A 20 20 20 20 20 20 20 20 20 43 41 ure.. CA
0001F0: 4C 4C 20 50 52 54 0D 0A 20 20 20 20 20 20 20 20 LL PRT..
Size : 512 (Real : 512)
000000: 20 4C 44 20 48 4C 2C 54 47 41 50 52 57 20 20 20 LD HL,TGAPRW
000010: 20 3B 47 41 50 20 52 57 0D 0A 20 20 20 20 20 20 ;GAP RW..
000020: 20 20 20 43 41 4C 4C 20 50 52 54 0D 0A 20 20 20 CALL PRT..
000030: 20 20 20 20 20 20 4C 44 20 41 2C 28 47 41 50 52 LD A,(GAPR
000040: 57 29 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C W).. CAL
000050: 4C 20 50 52 54 48 45 58 31 0D 0A 20 20 20 20 20 L PRTHEX1..
000060: 20 20 20 20 4C 44 20 48 4C 2C 54 53 45 43 54 53 LD HL,TSECTS
000070: 20 20 20 20 3B 65 74 20 73 65 63 74 65 75 72 73 ;et secteurs
000080: 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 .. CALL
000090: 50 52 54 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 PRT.. ;..
0000A0: 20 20 4C 44 20 48 4C 2C 28 50 4F 49 4E 50 49 53 LD HL,(POINPIS
0000B0: 29 20 3B 52 65 63 75 70 65 72 65 72 20 6C 65 20 ) ;Recuperer le
0000C0: 64 65 62 75 74 20 64 65 20 6C 61 20 7A 6F 6E 65 debut de la zone
0000D0: 20 64 65 73 20 61 64 72 65 73 73 65 73 0D 0A 20 des adresses..
0000E0: 20 20 20 20 20 20 20 20 50 55 53 48 20 48 4C 20 PUSH HL
0000F0: 20 20 20 20 20 20 20 20 3B 64 65 20 73 74 6F 63 ;de stoc
000100: 6B 61 67 65 20 65 74 20 6D 65 74 74 72 65 20 64 kage et mettre d
000110: 61 6E 73 20 49 58 0D 0A 20 20 20 20 20 20 20 20 ans IX..
000120: 20 50 4F 50 20 49 58 20 20 20 20 20 20 20 20 20 POP IX
000130: 20 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 .. ;..
000140: 4C 44 20 48 4C 2C 4C 49 53 54 45 52 52 20 20 20 LD HL,LISTERR
000150: 3B 45 74 61 74 73 20 64 27 65 72 72 65 75 72 0D ;Etats d'erreur.
000160: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 50 4F . LD (PO
000170: 49 4E 54 45 52 29 2C 48 4C 0D 0A 20 20 20 20 20 INTER),HL..
000180: 20 20 20 20 4C 44 20 48 4C 2C 49 44 4F 55 54 44 LD HL,IDOUTD
000190: 52 41 20 20 3B 45 74 20 49 44 53 20 61 20 65 63 RA ;Et IDS a ec
0001A0: 72 69 72 65 0D 0A 20 20 20 20 20 20 20 20 20 4C rire.. L
0001B0: 44 20 28 50 4F 49 4E 54 49 44 29 2C 48 4C 0D 0A D (POINTID),HL..
0001C0: 20 3B 0D 0A 20 3B 2D 20 52 6F 75 74 69 6E 65 20 ;.. ;- Routine
0001D0: 65 63 72 69 74 75 72 65 20 70 68 79 73 69 71 75 ecriture physiqu
0001E0: 65 20 2D 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 e -.. ;..
0001F0: 20 20 58 4F 52 20 41 20 20 20 20 20 20 20 20 20 XOR A
Size : 512 (Real : 512)
000000: 20 20 3B 43 6F 6D 70 74 65 75 72 20 40 20 30 0D ;Compteur @ 0.
000010: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 43 4F . LD (CO
000020: 55 4E 54 29 2C 41 0D 0A 20 20 20 20 20 20 20 20 UNT),A..
000030: 20 4C 44 20 41 2C 28 4E 42 53 45 43 29 0D 0A 20 LD A,(NBSEC)..
000040: 20 20 20 20 20 20 20 20 4C 44 20 42 2C 41 0D 0A LD B,A..
000050: 20 3B 0D 0A 20 42 43 4C 57 52 49 50 20 50 55 53 ;.. BCLWRIP PUS
000060: 48 20 42 43 0D 0A 20 20 20 20 20 20 20 20 20 4C H BC.. L
000070: 44 20 48 4C 2C 28 50 4F 49 4E 54 49 44 29 20 3B D HL,(POINTID) ;
000080: 50 61 73 73 65 72 20 6C 65 73 20 34 49 44 53 20 Passer les 4IDS
000090: 61 75 20 70 72 6F 67 72 61 6D 6D 65 20 79 20 63 au programme y c
0000A0: 6F 6D 70 72 69 73 20 6C 61 20 70 69 73 74 65 20 ompris la piste
0000B0: 2E 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C ... CALL
0000C0: 20 49 44 54 52 41 4E 53 34 0D 0A 20 20 20 20 20 IDTRANS4..
0000D0: 20 20 20 20 4C 44 20 41 2C 28 51 55 41 54 52 49 LD A,(QUATRI
0000E0: 44 2B 32 29 20 3B 4C 65 73 20 73 65 63 74 65 75 D+2) ;Les secteu
0000F0: 72 73 20 73 6F 6E 74 20 65 63 72 69 74 73 20 75 rs sont ecrits u
000100: 6E 20 61 20 75 6E 20 2C 20 6C 65 20 64 65 72 6E n a un , le dern
000110: 69 65 72 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 ier.. LD
000120: 20 28 44 45 52 53 45 43 29 2C 41 20 20 20 20 3B (DERSEC),A ;
000130: 73 65 63 74 65 75 72 20 61 20 65 63 72 69 72 65 secteur a ecrire
000140: 20 65 73 74 20 64 6F 6E 63 20 6C 65 20 6D 65 6D est donc le mem
000150: 65 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 e.. LD (
000160: 50 4F 49 4E 54 49 44 29 2C 48 4C 20 20 3B 50 6F POINTID),HL ;Po
000170: 69 6E 74 65 72 20 6C 61 20 73 75 69 74 65 20 64 inter la suite d
000180: 65 73 20 49 44 53 0D 0A 20 3B 0D 0A 20 20 20 20 es IDS.. ;..
000190: 20 20 20 20 20 4C 44 20 4C 2C 28 49 58 2B 30 29 LD L,(IX+0)
0001A0: 20 20 20 20 20 3B 41 64 72 65 73 73 65 20 64 65 ;Adresse de
0001B0: 20 64 65 70 61 72 74 20 65 63 72 69 74 75 72 65 depart ecriture
0001C0: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 48 2C .. LD H,
0001D0: 28 49 58 2B 31 29 0D 0A 20 20 20 20 20 20 20 20 (IX+1)..
0001E0: 20 4C 44 20 28 41 44 42 55 46 46 29 2C 48 4C 20 LD (ADBUFF),HL
0001F0: 20 3B 44 61 6E 73 20 41 44 42 55 46 46 0D 0A 20 ;Dans ADBUFF..
Size : 512 (Real : 512)
000000: 3B 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 48 ;.. LD H
000010: 4C 2C 28 50 4F 49 4E 54 45 52 29 0D 0A 20 20 20 L,(POINTER)..
000020: 20 20 20 20 20 20 4C 44 20 41 2C 28 48 4C 29 20 LD A,(HL)
000030: 20 20 20 20 20 20 3B 4D 61 72 71 75 65 20 73 65 ;Marque se
000040: 63 74 65 75 72 20 65 63 72 61 73 65 20 3F 0D 0A cteur ecrase ?..
000050: 20 20 20 20 20 20 20 20 20 43 50 20 23 37 46 20 CP #7F
000060: 20 20 20 20 20 20 20 20 20 3B 4F 75 69 20 2E 20 ;Oui .
000070: 43 65 20 73 65 63 74 65 75 72 20 61 20 65 74 65 Ce secteur a ete
000080: 20 64 65 74 72 75 69 74 20 70 61 72 20 6C 27 65 detruit par l'e
000090: 63 72 69 74 75 72 65 0D 0A 20 20 20 20 20 20 20 criture..
0000A0: 20 20 4A 50 20 5A 2C 43 52 55 4E 43 48 45 20 20 JP Z,CRUNCHE
0000B0: 20 20 3B 70 72 65 63 65 64 65 6E 74 65 20 2E 20 ;precedente .
0000C0: 53 61 75 74 65 72 20 53 41 4E 53 20 41 56 41 4E Sauter SANS AVAN
0000D0: 43 45 52 20 4C 45 20 43 4F 4D 50 54 45 55 52 20 CER LE COMPTEUR
0000E0: 2E 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 ... ;..
0000F0: 43 50 20 23 46 46 20 20 20 20 20 20 20 20 3B 56 CP #FF ;V
000100: 6F 69 72 20 73 69 20 6C 65 20 73 65 63 74 65 75 oir si le secteu
000110: 72 20 61 20 65 74 65 20 73 74 6F 63 6B 65 20 73 r a ete stocke s
000120: 6F 75 73 20 66 6F 72 6D 65 20 63 6F 6D 70 61 63 ous forme compac
000130: 74 65 65 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 tee.. LD
000140: 20 42 2C 23 34 35 20 20 20 20 20 20 3B 53 69 20 B,#45 ;Si
000150: 6F 75 69 20 65 63 72 69 72 65 20 65 6E 20 72 65 oui ecrire en re
000160: 70 65 74 61 6E 74 20 4F 43 52 45 4D 50 20 70 61 petant OCREMP pa
000170: 72 20 72 6F 75 74 69 6E 65 20 73 70 65 63 69 61 r routine specia
000180: 6C 65 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 20 le.. JR
000190: 5A 2C 4E 4F 43 4D 43 4F 4D 50 20 3B 53 61 6E 73 Z,NOCMCOMP ;Sans
0001A0: 20 43 4D 0D 0A 20 20 20 20 20 20 20 20 20 43 50 CM.. CP
0001B0: 20 23 46 37 20 20 20 20 20 20 20 20 3B 41 76 65 #F7 ;Ave
0001C0: 63 20 43 4D 0D 0A 20 20 20 20 20 20 20 20 20 4A c CM.. J
0001D0: 52 20 4E 5A 2C 50 41 43 4F 4D 50 41 43 20 3B 4F R NZ,PACOMPAC ;O
0001E0: 63 74 65 74 20 61 20 73 75 62 69 20 75 6E 20 58 ctet a subi un X
0001F0: 4F 52 20 23 46 46 20 73 69 20 63 6F 6D 70 61 63 OR #FF si compac
Size : 512 (Real : 512)
000000: 74 65 20 64 27 6F 75 20 23 46 46 20 26 20 23 46 te d'ou #FF & #F
000010: 37 20 21 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 7 !.. ;..
000020: 20 20 4C 44 20 42 2C 23 34 39 0D 0A 20 4E 4F 43 LD B,#49.. NOC
000030: 4D 43 4F 4D 50 20 4C 44 20 41 2C 42 20 20 20 20 MCOMP LD A,B
000040: 20 20 20 20 3B 45 63 72 69 72 65 20 61 76 65 63 ;Ecrire avec
000050: 20 6C 61 20 72 6F 75 74 69 6E 65 20 73 70 65 63 la routine spec
000060: 69 61 6C 65 20 71 75 69 20 74 72 61 6E 73 65 6D iale qui transem
000070: 65 74 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 et.. LD
000080: 48 4C 2C 57 52 49 54 46 44 43 32 20 3B 74 6F 75 HL,WRITFDC2 ;tou
000090: 6A 6F 75 72 73 20 6C 65 20 6D 65 6D 65 20 6F 63 jours le meme oc
0000A0: 74 65 74 20 2E 0D 0A 20 20 20 20 20 20 20 20 20 tet ...
0000B0: 43 41 4C 4C 20 53 45 54 43 4F 4D 32 0D 0A 20 20 CALL SETCOM2..
0000C0: 20 20 20 20 20 20 20 4A 52 20 45 43 52 49 52 31 JR ECRIR1
0000D0: 20 20 20 20 20 20 3B 41 6C 6C 65 72 20 65 63 72 ;Aller ecr
0000E0: 69 72 65 0D 0A 20 3B 0D 0A 20 50 41 43 4F 4D 50 ire.. ;.. PACOMP
0000F0: 41 43 20 4C 44 20 41 2C 28 51 55 41 54 52 49 44 AC LD A,(QUATRID
000100: 2B 33 29 20 3B 56 6F 69 72 20 73 69 20 74 61 69 +3) ;Voir si tai
000110: 6C 6C 65 20 30 0D 0A 20 20 20 20 20 20 20 20 20 lle 0..
000120: 4F 52 20 41 0D 0A 20 20 20 20 20 20 20 20 20 4A OR A.. J
000130: 52 20 4E 5A 2C 50 41 53 54 5A 45 52 20 20 20 3B R NZ,PASTZER ;
000140: 4E 6F 6E 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 Non.. ;..
000150: 20 20 4C 44 20 48 4C 2C 28 50 4F 49 4E 54 45 52 LD HL,(POINTER
000160: 29 20 3B 4E 27 65 63 72 69 72 65 20 74 61 69 6C ) ;N'ecrire tail
000170: 6C 65 20 30 20 71 75 65 20 73 69 20 4D 41 4D 20 le 0 que si MAM
000180: 6F 75 20 44 41 4D 0D 0A 20 20 20 20 20 20 20 20 ou DAM..
000190: 20 4C 44 20 41 2C 28 48 4C 29 0D 0A 20 20 20 20 LD A,(HL)..
0001A0: 20 20 20 20 20 41 4E 44 20 25 30 30 30 30 30 30 AND %000000
0001B0: 31 31 20 20 20 3B 4D 41 4D 20 2D 20 44 41 4D 20 11 ;MAM - DAM
0001C0: 3F 0D 0A 20 20 20 20 20 20 20 20 20 4A 50 20 5A ?.. JP Z
0001D0: 2C 52 49 45 4E 45 43 52 49 20 20 20 3B 4E 4F 4E ,RIENECRI ;NON
0001E0: 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 4C .. ;.. L
0001F0: 44 20 42 2C 23 34 35 0D 0A 20 20 20 20 20 20 20 D B,#45..
Size : 512 (Real : 512)
000000: 20 20 4A 52 20 43 4D 4E 4F 54 31 20 20 20 20 20 JR CMNOT1
000010: 20 20 3B 53 69 6E 6F 6E 20 65 63 72 69 72 65 20 ;Sinon ecrire
000020: 6E 27 69 6D 70 6F 72 74 65 20 71 75 6F 69 20 70 n'importe quoi p
000030: 6F 75 72 20 72 65 70 72 6F 64 75 69 72 65 20 4D our reproduire M
000040: 41 4D 0D 0A 20 3B 0D 0A 20 50 41 53 54 5A 45 52 AM.. ;.. PASTZER
000050: 20 4C 44 20 41 2C 28 46 4C 41 47 46 4E 43 29 20 LD A,(FLAGFNC)
000060: 3B 53 69 20 70 69 73 74 65 20 61 20 72 65 70 61 ;Si piste a repa
000070: 72 65 72 20 2C 20 69 67 6E 6F 72 65 72 20 63 65 rer , ignorer ce
000080: 20 71 75 69 20 73 75 69 74 20 65 74 20 74 65 6E qui suit et ten
000090: 74 65 72 0D 0A 20 20 20 20 20 20 20 20 20 41 4E ter.. AN
0000A0: 44 20 25 30 31 30 30 30 30 30 30 20 20 3B 6C 27 D %01000000 ;l'
0000B0: 65 63 72 69 74 75 72 65 20 64 65 20 74 6F 75 74 ecriture de tout
0000C0: 65 20 6D 61 6E 69 65 72 65 0D 0A 20 20 20 20 20 e maniere..
0000D0: 20 20 20 20 4A 52 20 4E 5A 2C 45 43 52 49 52 32 JR NZ,ECRIR2
0000E0: 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 4C .. ;.. L
0000F0: 44 20 48 4C 2C 28 50 4F 49 4E 54 45 52 29 0D 0A D HL,(POINTER)..
000100: 20 20 20 20 20 20 20 20 20 4C 44 20 41 2C 28 48 LD A,(H
000110: 4C 29 0D 0A 20 20 20 20 20 20 20 20 20 41 4E 44 L).. AND
000120: 20 25 30 30 31 31 30 31 31 31 20 20 3B 53 69 20 %00110111 ;Si
000130: 70 61 73 20 64 27 65 72 72 65 75 72 20 50 52 4F pas d'erreur PRO
000140: 56 4F 51 55 45 45 20 73 61 75 66 20 45 50 2D 48 VOQUEE sauf EP-H
000150: 44 2D 43 4D 20 2C 20 63 27 65 73 74 20 62 6F 6E D-CM , c'est bon
000160: 0D 0A 20 20 20 20 20 20 20 20 20 4A 50 20 4E 5A .. JP NZ
000170: 2C 52 49 45 4E 45 43 52 49 20 3B 53 69 6E 6F 6E ,RIENECRI ;Sinon
000180: 20 6E 65 20 72 69 65 6E 20 65 63 72 69 72 65 0D ne rien ecrire.
000190: 0A 20 3B 0D 0A 20 45 43 52 49 52 32 20 20 4C 44 . ;.. ECRIR2 LD
0001A0: 20 42 2C 23 34 35 20 20 20 20 20 20 20 20 3B 43 B,#45 ;C
0001B0: 4D 20 6F 72 20 6E 6F 74 20 43 4D 20 3F 0D 0A 20 M or not CM ?..
0001C0: 20 20 20 20 20 20 20 20 4C 44 20 48 4C 2C 28 50 LD HL,(P
0001D0: 4F 49 4E 54 45 52 29 0D 0A 20 20 20 20 20 20 20 OINTER)..
0001E0: 20 20 4C 44 20 41 2C 28 48 4C 29 0D 0A 20 20 20 LD A,(HL)..
0001F0: 20 20 20 20 20 20 41 4E 44 20 25 30 30 30 30 31 AND %00001
Size : 512 (Real : 512)
000000: 30 30 30 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 000.. JR
000010: 20 5A 2C 43 4D 4E 4F 54 31 0D 0A 20 20 20 20 20 Z,CMNOT1..
000020: 20 20 20 20 4C 44 20 42 2C 23 34 39 0D 0A 20 3B LD B,#49.. ;
000030: 0D 0A 20 43 4D 4E 4F 54 31 20 20 4C 44 20 41 2C .. CMNOT1 LD A,
000040: 42 20 20 20 20 20 20 20 20 20 20 3B 43 6F 6D 6D B ;Comm
000050: 61 6E 64 65 20 65 63 72 69 72 65 20 73 65 63 74 ande ecrire sect
000060: 65 75 72 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 eur.. LD
000070: 20 48 4C 2C 57 52 49 54 46 44 43 0D 0A 20 20 20 HL,WRITFDC..
000080: 20 20 20 20 20 20 43 41 4C 4C 20 53 45 54 43 4F CALL SETCO
000090: 4D 32 0D 0A 20 3B 0D 0A 20 45 43 52 49 52 31 20 M2.. ;.. ECRIR1
0000A0: 20 43 41 4C 4C 20 56 49 53 49 4E 53 54 20 3B 56 CALL VISINST ;V
0000B0: 69 73 65 72 20 64 27 61 70 72 65 73 20 43 4F 55 iser d'apres COU
0000C0: 4E 54 20 65 74 20 65 78 65 63 75 74 65 72 20 69 NT et executer i
0000D0: 6E 73 74 72 75 63 74 69 6F 6E 0D 0A 20 3B 0D 0A nstruction.. ;..
0000E0: 20 20 20 20 20 20 20 20 20 4C 44 20 44 45 2C 23 LD DE,#
0000F0: 30 32 31 33 20 20 20 20 3B 4C 6F 63 61 74 65 20 0213 ;Locate
000100: 70 6F 75 72 20 65 72 72 65 75 72 20 64 72 69 76 pour erreur driv
000110: 65 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C e.. CALL
000120: 20 54 53 4D 49 53 50 52 4F 54 20 3B 56 6F 69 72 TSMISPROT ;Voir
000130: 20 73 69 20 65 72 72 65 75 72 20 64 72 69 76 65 si erreur drive
000140: 20 2E 20 4E 43 20 73 69 20 6F 75 69 0D 0A 20 20 . NC si oui..
000150: 20 20 20 20 20 20 20 4A 52 20 4E 43 2C 45 43 52 JR NC,ECR
000160: 49 52 31 20 20 20 3B 42 6F 75 63 6C 65 72 20 73 IR1 ;Boucler s
000170: 69 20 46 44 43 20 70 61 73 20 63 6F 6E 74 65 6E i FDC pas conten
000180: 74 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 t.. ;..
000190: 43 41 4C 4C 20 54 53 54 45 52 52 53 20 20 20 3B CALL TSTERRS ;
0001A0: 54 65 73 74 65 72 20 65 74 61 74 20 64 27 65 72 Tester etat d'er
0001B0: 72 65 75 72 20 0D 0A 20 3B 0D 0A 20 20 20 20 20 reur .. ;..
0001C0: 20 20 20 20 4C 44 20 41 2C 22 26 22 20 20 20 20 LD A,"&"
0001D0: 20 20 20 20 3B 41 66 66 69 63 68 65 72 20 72 65 ;Afficher re
0001E0: 73 75 6C 74 61 74 20 64 27 65 63 72 69 74 75 72 sultat d'ecritur
0001F0: 65 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C e.. CALL
Size : 512 (Real : 512)
000000: 20 23 42 42 35 41 0D 0A 20 20 20 20 20 20 20 20 #BB5A..
000010: 20 4C 44 20 41 2C 28 51 55 41 54 52 49 44 2B 32 LD A,(QUATRID+2
000020: 29 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C ).. CALL
000030: 20 50 52 54 48 45 58 31 0D 0A 20 20 20 20 20 20 PRTHEX1..
000040: 20 20 20 43 41 4C 4C 20 49 4E 56 0D 0A 20 20 20 CALL INV..
000050: 20 20 20 20 20 20 43 41 4C 4C 20 50 52 54 33 45 CALL PRT3E
000060: 52 52 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C RR.. CAL
000070: 4C 20 49 4E 56 0D 0A 20 3B 0D 0A 20 52 49 45 4E L INV.. ;.. RIEN
000080: 45 43 52 49 20 4C 44 20 48 4C 2C 43 4F 55 4E 54 ECRI LD HL,COUNT
000090: 20 20 20 20 3B 41 75 20 73 75 69 76 61 6E 74 0D ;Au suivant.
0000A0: 0A 20 20 20 20 20 20 20 20 20 49 4E 43 20 28 48 . INC (H
0000B0: 4C 29 0D 0A 20 43 52 55 4E 43 48 45 20 4C 44 20 L).. CRUNCHE LD
0000C0: 48 4C 2C 28 50 4F 49 4E 54 45 52 29 0D 0A 20 20 HL,(POINTER)..
0000D0: 20 20 20 20 20 20 20 49 4E 43 20 48 4C 0D 0A 20 INC HL..
0000E0: 20 20 20 20 20 20 20 20 4C 44 20 28 50 4F 49 4E LD (POIN
0000F0: 54 45 52 29 2C 48 4C 0D 0A 20 20 20 20 20 20 20 TER),HL..
000100: 20 20 49 4E 43 20 49 58 0D 0A 20 20 20 20 20 20 INC IX..
000110: 20 20 20 49 4E 43 20 49 58 20 0D 0A 20 20 20 20 INC IX ..
000120: 20 20 20 20 20 50 4F 50 20 42 43 0D 0A 20 20 20 POP BC..
000130: 20 20 20 20 20 20 44 45 43 20 42 0D 0A 20 20 20 DEC B..
000140: 20 20 20 20 20 20 4A 50 20 4E 5A 2C 42 43 4C 57 JP NZ,BCLW
000150: 52 49 50 20 3B 53 27 69 6C 20 65 6E 20 72 65 73 RIP ;S'il en res
000160: 74 65 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 te.. ;..
000170: 20 4C 44 20 4C 2C 28 49 58 2B 30 29 20 3B 41 64 LD L,(IX+0) ;Ad
000180: 72 65 73 73 65 20 64 65 20 64 65 70 61 72 74 20 resse de depart
000190: 70 72 6F 63 68 61 69 6E 65 20 65 63 72 69 74 75 prochaine ecritu
0001A0: 72 65 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 re.. LD
0001B0: 48 2C 28 49 58 2B 31 29 0D 0A 20 20 20 20 20 20 H,(IX+1)..
0001C0: 20 20 20 4C 44 20 28 50 4F 49 4E 50 49 53 29 2C LD (POINPIS),
0001D0: 48 4C 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 HL.. LD
0001E0: 41 2C 32 33 0D 0A 20 20 20 20 20 20 20 20 20 43 A,23.. C
0001F0: 41 4C 4C 20 45 46 46 4C 49 4E 45 0D 0A 20 20 20 ALL EFFLINE..
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 53 43 46 0D 0A 20 20 20 20 20 SCF..
000010: 20 20 20 20 52 45 54 0D 0A 20 3B 0D 0A 20 54 45 RET.. ;.. TE
000020: 43 52 49 50 49 20 44 42 20 33 31 2C 32 2C 32 31 CRIPI DB 31,2,21
000030: 2C 32 34 2C 22 20 45 43 52 49 54 55 52 45 20 20 ,24," ECRITURE
000040: 20 50 49 53 54 45 20 22 2C 32 34 2C 31 38 2C 23 PISTE ",24,18,#
000050: 38 30 0D 0A 20 54 53 45 43 54 53 20 20 44 42 20 80.. TSECTS DB
000060: 33 31 2C 32 30 2C 32 32 2C 32 34 2C 22 20 53 45 31,20,22,24," SE
000070: 43 54 45 55 52 53 20 3A 20 22 2C 32 34 2C 33 32 CTEURS : ",24,32
000080: 2C 31 38 2C 23 38 30 0D 0A 20 54 47 41 50 52 57 ,18,#80.. TGAPRW
000090: 20 20 44 42 20 33 31 2C 32 2C 32 32 2C 32 34 2C DB 31,2,22,24,
0000A0: 22 20 47 41 50 20 52 57 20 3A 20 22 2C 32 34 2C " GAP RW : ",24,
0000B0: 33 32 2C 22 26 22 2C 31 38 2C 23 38 30 0D 0A 20 32,"&",18,#80..
0000C0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
0000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2D 2D --
0000E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0000F0: 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 0D 0A 20 20 20 20 -------.. ..
000100: 20 56 6F 69 6C 40 20 2E 20 43 27 65 73 74 20 6C Voil@ . C'est l
000110: 61 20 66 69 6E 20 64 65 20 6C 61 20 67 72 6F 73 a fin de la gros
000120: 73 65 20 20 74 61 72 74 69 6E 65 20 21 20 52 65 se tartine ! Re
000130: 73 74 65 20 40 20 70 61 72 63 6F 75 72 69 72 20 ste @ parcourir
000140: 6C 61 20 73 65 63 74 69 6F 6E 0D 0A 20 72 6F 75 la section.. rou
000150: 74 69 6E 65 73 20 70 6F 75 72 20 79 20 74 72 6F tines pour y tro
000160: 75 76 65 72 20 6C 65 73 20 71 75 65 6C 71 75 65 uver les quelque
000170: 73 20 6D 6F 64 69 66 69 63 61 74 69 6F 6E 73 20 s modifications
000180: 61 70 70 6F 72 74 7B 65 73 20 70 61 72 20 72 61 apport{es par ra
000190: 70 70 6F 72 74 20 40 20 6C 61 0D 0A 20 76 65 72 pport @ la.. ver
0001A0: 73 69 6F 6E 20 70 72 7B 63 7B 64 65 6E 74 65 20 sion pr{c{dente
0001B0: 2E 0D 0A 20 20 20 20 20 0D 0A 20 20 20 20 20 20 ... ..
0001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001D0: 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D -----------
0001E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 1A 49 --------------.I
0001F0: 53 54 45 20 2D 0D 0A 20 20 20 20 20 20 20 20 20 STE -..
Size : 512 (Real : 512)
000000: 50 6F 69 6E 74 65 72 20 47 41 50 20 4D 41 58 49 Pointer GAP MAXI
000010: 20 64 61 6E 73 20 74 61 62 6C 65 0D 0A 20 20 20 dans table..
000020: 20 20 20 20 20 20 4A 52 20 5A 2C 47 41 50 56 45 JR Z,GAPVE
000030: 52 49 31 0D 0A 20 20 20 20 20 20 20 20 20 49 4E RI1.. IN
000040: 43 20 48 4C 0D 0A 20 20 20 20 20 20 20 20 20 49 C HL.. I
000050: 4E 43 20 43 0D 0A 20 20 20 20 20 20 20 20 20 4A NC C.. J
000060: 52 20 42 43 4C 47 41 50 56 0D 0A 20 3B 0D 0A 20 R BCLGAPV.. ;..
000070: 47 41 50 56 45 52 49 31 20 4C 44 20 41 2C 28 47 GAPVERI1 LD A,(G
000080: 41 50 46 4F 52 4D 29 3B 56 6F 69 72 20 73 69 20 APFORM);Voir si
000090: 47 41 50 20 68 6F 72 73 20 6C 69 6D 69 74 65 0D GAP hors limite.
0000A0: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 42 2C 41 . LD B,A
0000B0: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 41 2C .. LD A,
0000C0: 28 48 4C 29 0D 0A 20 20 20 20 20 20 20 20 20 43 (HL).. C
0000D0: 50 20 42 0D 0A 20 20 20 20 20 20 20 20 20 52 45 P B.. RE
0000E0: 54 20 4E 43 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 T NC.. ;..
0000F0: 20 20 20 4C 44 20 28 47 41 50 46 4F 52 4D 29 2C LD (GAPFORM),
000100: 41 20 3B 52 65 63 74 69 66 69 65 72 20 73 69 20 A ;Rectifier si
000110: 6F 75 69 0D 0A 20 20 20 20 20 20 20 20 20 52 45 oui.. RE
000120: 54 20 0D 0A 20 3B 0D 0A 20 53 45 54 47 52 57 20 T .. ;.. SETGRW
000130: 20 4C 44 20 41 2C 28 47 41 50 46 4F 52 4D 29 0D LD A,(GAPFORM).
000140: 0A 20 20 20 20 20 20 20 20 20 43 50 20 31 0D 0A . CP 1..
000150: 20 20 20 20 20 20 20 20 20 4A 52 20 5A 2C 53 45 JR Z,SE
000160: 54 47 52 57 31 0D 0A 20 20 20 20 20 20 20 20 20 TGRW1..
000170: 53 52 4C 20 41 0D 0A 20 53 45 54 47 52 57 31 20 SRL A.. SETGRW1
000180: 4C 44 20 28 47 41 50 52 57 29 2C 41 0D 0A 20 20 LD (GAPRW),A..
000190: 20 20 20 20 20 20 20 52 45 54 0D 0A 20 3B 0D 0A RET.. ;..
0001A0: 20 54 30 44 44 20 20 20 20 44 42 20 32 33 39 2C T0DD DB 239,
0001B0: 32 31 30 2C 31 38 35 2C 31 36 33 2C 31 34 34 2C 210,185,163,144,
0001C0: 31 32 36 2C 31 31 30 2C 39 36 2C 38 33 2C 37 31 126,110,96,83,71
0001D0: 2C 35 39 2C 35 30 2C 33 38 2C 33 31 2C 32 34 2C ,59,50,38,31,24,
0001E0: 31 37 2C 31 30 2C 33 0D 0A 20 54 31 44 44 20 20 17,10,3.. T1DD
0001F0: 20 20 44 42 20 32 31 36 2C 31 37 31 2C 31 33 34 DB 216,171,134
Size : 512 (Real : 512)
000000: 2C 31 30 32 2C 37 34 2C 34 39 2C 31 36 2C 38 0D ,102,74,49,16,8.
000010: 0A 20 54 32 44 44 20 20 20 20 44 42 20 32 33 30 . T2DD DB 230
000020: 2C 31 32 39 2C 35 30 0D 0A 20 54 33 44 44 20 20 ,129,50.. T3DD
000030: 20 20 44 42 20 31 39 31 0D 0A 20 3B 0D 0A 20 3B DB 191.. ;.. ;
000040: 2D 20 56 61 72 69 61 62 6C 65 73 20 62 75 66 66 - Variables buff
000050: 65 72 0D 0A 20 3B 0D 0A 20 41 44 42 55 46 46 20 er.. ;.. ADBUFF
000060: 20 44 57 20 30 20 3B 41 64 72 65 73 73 65 20 62 DW 0 ;Adresse b
000070: 75 66 66 65 72 0D 0A 20 3B 0D 0A 20 45 46 46 4C uffer.. ;.. EFFL
000080: 42 31 20 20 52 45 54 0D 0A 20 41 46 46 50 49 53 B1 RET.. AFFPIS
000090: 54 20 52 45 54 0D 0A 20 54 43 4F 50 44 52 56 20 T RET.. TCOPDRV
0000A0: 44 53 20 31 30 30 0D 0A 20 3B 0D 0A 20 20 20 20 DS 100.. ;..
0000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000C0: 20 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D ---------
0000D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0000E0: 0D 0A 20 0D 0A 20 20 20 20 20 46 69 6E 20 64 65 .. .. Fin de
0000F0: 73 20 70 72 6F 67 72 61 6D 6D 65 73 20 20 63 6F s programmes co
000100: 6D 6D 65 6E 74 7B 73 20 20 46 44 43 20 20 2E 20 mment{s FDC .
000110: 20 4C 65 73 20 20 73 65 63 74 69 6F 6E 73 20 20 Les sections
000120: 63 6F 6D 70 72 65 6E 61 6E 74 20 6C 65 73 20 73 comprenant les s
000130: 6F 75 73 0D 0A 20 72 6F 75 74 69 6E 65 73 20 64 ous.. routines d
000140: 27 61 66 66 69 63 68 61 67 65 20 2C 20 64 27 65 'affichage , d'e
000150: 64 69 74 69 6F 6E 20 2C 20 20 65 74 63 20 20 2E dition , etc .
000160: 2E 2E 20 20 41 69 6E 73 69 20 20 71 75 65 20 6C .. Ainsi que l
000170: 61 20 73 65 63 74 69 6F 6E 20 76 61 72 69 61 62 a section variab
000180: 6C 65 73 0D 0A 20 6E 27 61 79 61 6E 74 20 70 61 les.. n'ayant pa
000190: 73 20 73 75 62 69 20 64 65 20 6D 6F 64 69 66 69 s subi de modifi
0001A0: 63 61 74 69 6F 6E 73 20 64 65 70 75 69 73 20 6C cations depuis l
0001B0: 65 20 20 6E 75 6D 7B 72 6F 20 32 20 6E 65 20 73 e num{ro 2 ne s
0001C0: 6F 6E 74 20 70 61 73 20 72 65 70 72 6F 64 75 69 ont pas reprodui
0001D0: 74 65 73 0D 0A 20 69 63 69 20 2E 0D 0A 20 20 20 tes.. ici ...
0001E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001F0: 20 20 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D --------
Size : 512 (Real : 512)
000000: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000010: 2D 0D 0A 20 20 20 1A 20 20 20 20 20 20 4C 44 20 -.. . LD
000020: 48 4C 2C 45 54 30 0D 0A 4A 45 42 4F 53 31 20 20 HL,ET0..JEBOS1
000030: 49 4E 20 41 2C 28 43 29 0D 0A 20 20 20 20 20 20 IN A,(C)..
000040: 20 20 43 50 20 23 43 30 0D 0A 20 20 20 20 20 20 CP #C0..
000050: 20 20 4A 52 20 43 2C 4A 45 42 4F 53 31 20 0D 0A JR C,JEBOS1 ..
000060: 20 20 20 20 20 20 20 20 49 4E 43 20 43 0D 0A 20 INC C..
000070: 20 20 20 20 20 20 20 49 4E 20 41 2C 28 43 29 0D IN A,(C).
000080: 42 31 20 20 52 45 54 0D 0A 20 41 46 46 50 49 53 B1 RET.. AFFPIS
000090: 54 20 52 45 54 0D 0A 20 54 43 4F 50 44 52 56 20 T RET.. TCOPDRV
0000A0: 44 53 20 31 30 30 0D 0A 20 3B 0D 0A 20 20 20 20 DS 100.. ;..
0000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000C0: 20 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D ---------
0000D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0000E0: 0D 0A 20 0D 0A 20 20 20 20 20 46 69 6E 20 64 65 .. .. Fin de
0000F0: 73 20 70 72 6F 67 72 61 6D 6D 65 73 20 20 63 6F s programmes co
000100: 6D 6D 65 6E 74 7B 73 20 20 46 44 43 20 20 2E 20 mment{s FDC .
000110: 20 4C 65 73 20 20 73 65 63 74 69 6F 6E 73 20 20 Les sections
000120: 63 6F 6D 70 72 65 6E 61 6E 74 20 6C 65 73 20 73 comprenant les s
000130: 6F 75 73 0D 0A 20 72 6F 75 74 69 6E 65 73 20 64 ous.. routines d
000140: 27 61 66 66 69 63 68 61 67 65 20 2C 20 64 27 65 'affichage , d'e
000150: 64 69 74 69 6F 6E 20 2C 20 20 65 74 63 20 20 2E dition , etc .
000160: 2E 2E 20 20 41 69 6E 73 69 20 20 71 75 65 20 6C .. Ainsi que l
000170: 61 20 73 65 63 74 69 6F 6E 20 76 61 72 69 61 62 a section variab
000180: 6C 65 73 0D 0A 20 6E 27 61 79 61 6E 74 20 70 61 les.. n'ayant pa
000190: 73 20 73 75 62 69 20 64 65 20 6D 6F 64 69 66 69 s subi de modifi
0001A0: 63 61 74 69 6F 6E 73 20 64 65 70 75 69 73 20 6C cations depuis l
0001B0: 65 20 20 6E 75 6D 7B 72 6F 20 32 20 6E 65 20 73 e num{ro 2 ne s
0001C0: 6F 6E 74 20 70 61 73 20 72 65 70 72 6F 64 75 69 ont pas reprodui
0001D0: 74 65 73 0D 0A 20 69 63 69 20 2E 0D 0A 20 20 20 tes.. ici ...
0001E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001F0: 20 20 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D --------
Size : 512 (Real : 512)
000000: 0A 20 20 4F 52 20 4C 0D 0A 20 20 4A 52 20 5A 2C . OR L.. JR Z,
000010: 54 53 54 47 41 50 0D 0A 20 54 53 54 46 44 43 41 TSTGAP.. TSTFDCA
000020: 20 49 4E 20 41 2C 28 43 29 0D 0A 20 20 4A 50 20 IN A,(C).. JP
000030: 50 2C 54 53 54 46 44 43 41 0D 0A 20 20 41 4E 44 P,TSTFDCA.. AND
000040: 20 23 32 30 0D 0A 20 20 4A 50 20 5A 2C 52 45 53 #20.. JP Z,RES
000050: 55 4C 54 0D 0A 20 20 49 4E 43 20 43 0D 0A 20 20 ULT.. INC C..
000060: 49 4E 20 41 2C 28 43 29 0D 0A 20 20 44 45 43 20 IN A,(C).. DEC
000070: 43 0D 0A 20 20 44 45 43 20 48 4C 0D 0A 20 20 4A C.. DEC HL.. J
000080: 52 20 54 53 54 46 44 43 33 0D 0A 20 3B 0D 0A 20 R TSTFDC3.. ;..
000090: 54 53 54 47 41 50 20 20 49 4E 20 41 2C 28 43 29 TSTGAP IN A,(C)
0000A0: 0D 0A 20 20 4A 50 20 50 2C 54 53 54 47 41 50 0D .. JP P,TSTGAP.
0000B0: 0A 20 20 4C 44 20 48 4C 2C 42 55 46 47 41 50 53 . LD HL,BUFGAPS
0000C0: 0D 0A 20 20 4C 44 20 44 45 2C 32 36 37 0D 0A 20 .. LD DE,267..
0000D0: 20 4A 52 20 4C 49 54 46 44 43 33 0D 0A 20 3B 0D JR LITFDC3.. ;.
0000E0: 0A 20 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D . ;-------------
0000F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 3B 2D -----------.. ;-
000100: 20 4C 49 54 46 44 43 34 20 4C 69 72 65 20 65 74 LITFDC4 Lire et
000110: 20 73 74 6F 63 6B 65 72 20 6C 27 6F 63 74 65 74 stocker l'octet
000120: 20 64 65 20 72 65 6D 70 6C 69 73 73 61 67 65 20 de remplissage
000130: 65 74 20 73 61 75 74 65 72 20 2D 0D 0A 20 3B 2D et sauter -.. ;-
000140: 20 4C 49 54 46 44 43 35 20 43 6F 6D 70 74 65 72 LITFDC5 Compter
000150: 20 6C 65 73 20 6F 63 74 65 74 73 20 64 65 20 72 les octets de r
000160: 65 6D 70 6C 69 73 73 61 67 65 20 6A 75 73 71 75 emplissage jusqu
000170: 27 61 75 20 43 52 43 20 65 74 20 73 61 75 74 65 'au CRC et saute
000180: 72 20 2D 0D 0A 20 3B 2D 20 4C 49 54 46 44 43 36 r -.. ;- LITFDC6
000190: 20 4C 69 72 65 20 65 74 20 63 6F 6D 70 74 65 72 Lire et compter
0001A0: 20 6C 65 20 47 41 50 20 2D 0D 0A 20 3B 2D 20 4C le GAP -.. ;- L
0001B0: 49 54 46 44 43 37 20 41 74 74 65 6E 64 72 65 20 ITFDC7 Attendre
0001C0: 6C 61 20 66 69 6E 20 64 65 20 6C 61 20 6C 65 63 la fin de la lec
0001D0: 74 75 72 65 20 2D 0D 0A 20 3B 0D 0A 20 4C 49 54 ture -.. ;.. LIT
0001E0: 46 44 43 34 20 50 55 53 48 20 48 4C 0D 0A 20 20 FDC4 PUSH HL..
0001F0: 20 20 20 20 20 20 20 4C 44 20 44 45 2C 2D 32 20 LD DE,-2
Size : 512 (Real : 512)
000000: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
000010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000020: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000030: 2D 2D 2D 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ---..
000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000050: 20 20 2D 20 52 45 50 4F 4E 53 45 53 20 44 49 56 - REPONSES DIV
000060: 45 52 53 45 53 20 2D 0D 0A 20 20 20 20 20 20 20 ERSES -..
000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000080: 20 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D ---------
000090: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 0D 0A 20 ----------.. ..
0000A0: 20 20 20 20 43 4C 45 41 52 20 49 4E 50 55 54 20 CLEAR INPUT
0000B0: 6E 27 65 73 74 20 70 61 73 20 76 61 6C 61 62 6C n'est pas valabl
0000C0: 65 20 73 75 72 20 20 43 50 43 20 20 34 36 34 20 e sur CPC 464
0000D0: 6D 61 69 73 20 6C 65 20 63 61 6C 6C 20 26 42 42 mais le call &BB
0000E0: 30 33 20 66 6F 6E 63 74 69 6F 6E 6E 65 20 0D 0A 03 fonctionne ..
0000F0: 20 73 75 72 20 74 6F 75 73 20 6C 65 73 20 43 50 sur tous les CP
000100: 43 20 2E 20 20 4F 6E 20 20 70 65 75 74 20 20 61 C . On peut a
000110: 75 73 73 69 20 20 72 7B 61 6C 69 73 65 72 20 20 ussi r{aliser
000120: 6C 27 7B 71 75 69 76 61 6C 65 6E 74 20 64 65 20 l'{quivalent de
000130: 43 4C 45 41 52 20 49 4E 50 55 54 20 65 6E 20 0D CLEAR INPUT en .
000140: 0A 20 62 61 73 69 63 20 61 76 65 63 20 6C 61 20 . basic avec la
000150: 6C 69 67 6E 65 20 73 75 69 76 61 6E 74 65 20 3A ligne suivante :
000160: 0D 0A 20 0D 0A 20 20 20 20 20 31 30 20 57 48 49 .. .. 10 WHI
000170: 4C 45 20 49 4E 4B 45 59 24 3C 3E 22 22 3A 57 45 LE INKEY$<>"":WE
000180: 4E 44 0D 0A 20 0D 0A 20 20 20 20 20 4C 61 20 66 ND.. .. La f
000190: 6F 6E 63 74 69 6F 6E 20 62 61 73 69 63 20 20 49 onction basic I
0001A0: 4E 4B 45 59 24 20 20 61 79 61 6E 74 20 20 70 6F NKEY$ ayant po
0001B0: 75 72 20 20 72 6F 08 5E 6C 65 20 20 64 27 65 78 ur ro.^le d'ex
0001C0: 74 72 61 69 72 65 20 20 75 6E 20 63 61 72 61 63 traire un carac
0001D0: 74 7D 72 65 20 64 75 20 0D 0A 20 62 75 66 66 65 t}re du .. buffe
0001E0: 72 20 63 6C 61 76 69 65 72 20 2C 20 6C 65 20 70 r clavier , le p
0001F0: 72 6F 67 72 61 6D 6D 65 20 20 72 65 73 74 65 72 rogramme rester
Size : 512 (Real : 512)
000000: 61 20 20 65 6E 20 20 61 74 74 65 6E 74 65 20 64 a en attente d
000010: 61 6E 73 20 6C 61 20 62 6F 75 63 6C 65 20 57 48 ans la boucle WH
000020: 49 4C 45 3A 57 45 4E 44 20 0D 0A 20 74 61 6E 74 ILE:WEND .. tant
000030: 20 71 75 65 20 6C 61 20 66 6F 6E 63 74 69 6F 6E que la fonction
000040: 20 49 4E 4B 45 59 24 20 70 6F 75 72 72 61 20 65 INKEY$ pourra e
000050: 78 74 72 61 69 72 65 20 20 75 6E 20 20 63 61 72 xtraire un car
000060: 61 63 74 7D 72 65 20 2E 20 51 75 61 6E 74 20 65 act}re . Quant e
000070: 6C 6C 65 20 6E 65 20 6C 65 20 0D 0A 20 70 6F 75 lle ne le .. pou
000080: 72 72 61 20 70 6C 75 73 20 2C 20 6C 65 20 62 75 rra plus , le bu
000090: 66 66 65 72 20 63 6C 61 76 69 65 72 20 73 65 72 ffer clavier ser
0000A0: 61 20 76 69 64 65 20 2E 20 43 2E 51 2E 46 2E 44 a vide . C.Q.F.D
0000B0: 2E 0D 0A 20 0D 0A 20 20 20 20 20 20 20 20 20 20 ... ..
0000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000D0: 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D --------------
0000E0: 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 0D 0A 20 20 20 --------.. ..
0000F0: 20 20 41 20 6D 6F 69 6E 73 20 64 65 20 72 7B 7B A moins de r{{
000100: 63 72 69 72 65 20 6C 65 20 70 72 6F 67 72 61 6D crire le program
000110: 6D 65 20 20 62 69 6E 61 69 72 65 20 20 2C 20 20 me binaire ,
000120: 41 4D 53 57 4F 52 44 20 6E 65 20 70 65 75 74 20 AMSWORD ne peut
000130: 65 78 63 7B 64 65 72 20 31 32 38 20 0D 0A 20 63 exc{der 128 .. c
000140: 6F 6C 6F 6E 6E 65 73 20 2E 0D 0A 20 0D 0A 20 20 olonnes ... ..
000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000160: 20 20 20 20 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D ------
000170: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000180: 0D 0A 20 0D 0A 20 20 20 20 20 50 6F 75 72 20 6F .. .. Pour o
000190: 62 74 65 6E 69 72 20 6C 27 61 66 66 69 63 68 61 btenir l'afficha
0001A0: 67 65 20 65 6E 20 20 64 7B 63 69 6D 61 6C 20 20 ge en d{cimal
0001B0: 64 65 73 20 20 76 61 6C 65 75 72 73 20 20 61 62 des valeurs ab
0001C0: 73 6F 6C 75 65 73 20 65 78 70 72 69 6D 7B 65 73 solues exprim{es
0001D0: 20 65 6E 20 0D 0A 20 68 65 78 61 64 7B 63 69 6D en .. hexad{cim
0001E0: 61 6C 20 61 75 20 64 65 73 73 75 73 20 64 65 20 al au dessus de
0001F0: 26 38 30 30 30 20 70 61 72 20 50 52 49 4E 54 20 &8000 par PRINT
Size : 512 (Real : 512)
000000: 2C 20 75 6E 65 20 73 65 75 6C 65 20 73 6F 6C 75 , une seule solu
000010: 74 69 6F 6E 20 3A 20 41 6A 6F 75 74 65 72 20 36 tion : Ajouter 6
000020: 35 35 33 36 20 0D 0A 20 40 20 6C 61 20 76 61 6C 5536 .. @ la val
000030: 65 75 72 20 40 20 65 78 70 72 69 6D 65 72 20 2E eur @ exprimer .
000040: 0D 0A 20 0D 0A 20 20 20 20 20 20 20 20 20 20 20 .. ..
000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000060: 20 20 20 20 50 52 49 4E 54 20 26 39 30 30 30 2B PRINT &9000+
000070: 36 35 35 33 36 0D 0A 20 0D 0A 20 20 20 20 20 52 65536.. .. R
000080: 69 65 6E 20 64 27 61 75 74 72 65 20 40 20 66 61 ien d'autre @ fa
000090: 69 72 65 20 2C 20 6C 65 20 20 43 50 43 20 63 6F ire , le CPC co
0000A0: 6E 73 69 64 7D 72 65 20 20 6C 65 73 20 76 61 6C nsid}re les val
0000B0: 65 75 72 73 20 68 65 78 61 64 7B 63 69 6D 61 6C eurs hexad{cimal
0000C0: 65 73 20 63 6F 6D 6D 65 20 0D 0A 20 64 65 73 20 es comme .. des
0000D0: 65 6E 74 69 65 72 73 20 53 49 47 4E 45 53 20 20 entiers SIGNES
0000E0: 65 74 20 20 64 61 6E 73 20 20 63 65 20 20 63 61 et dans ce ca
0000F0: 73 20 20 74 6F 75 74 65 20 20 76 61 6C 65 75 72 s toute valeur
000100: 20 20 64 65 20 20 26 38 30 30 31 20 20 40 20 20 de &8001 @
000110: 26 46 46 46 46 20 65 73 74 20 0D 0A 20 63 6F 6E &FFFF est .. con
000120: 73 69 64 7B 72 7B 65 20 63 6F 6D 6D 65 20 6E 7B sid{r{e comme n{
000130: 67 61 74 69 76 65 20 2E 0D 0A 20 0D 0A 20 20 20 gative ... ..
000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000150: 20 20 20 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D -------
000160: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D ---------------.
000170: 0A 20 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 . ..
000180: 20 20 20 20 20 41 64 61 70 74 61 74 69 6F 6E 20 Adaptation
000190: 64 27 75 6E 20 35 70 2E 31 2F 34 20 65 6E 20 6C d'un 5p.1/4 en l
0001A0: 65 63 74 65 75 72 20 41 20 73 75 72 20 34 36 34 ecteur A sur 464
0001B0: 20 2E 0D 0A 20 0D 0A 20 20 20 20 20 20 20 20 20 ... ..
0001C0: 20 20 20 20 20 20 20 20 51 75 65 73 74 69 6F 6E Question
0001D0: 20 71 75 69 20 61 70 70 65 6C 6C 65 20 64 27 61 qui appelle d'a
0001E0: 62 6F 72 64 20 75 6E 20 63 6F 6D 6D 65 6E 74 61 bord un commenta
0001F0: 69 72 65 20 2E 0D 0A 20 0D 0A 20 20 20 20 20 53 ire ... .. S
Size : 512 (Real : 512)
000000: 4F 53 20 50 52 4F 47 52 41 4D 4D 45 55 52 53 20 OS PROGRAMMEURS
000010: 72 7B 70 6F 6E 64 20 40 20 54 4F 55 54 45 20 71 r{pond @ TOUTE q
000020: 75 65 73 74 69 6F 6E 20 20 64 65 20 50 52 4F 47 uestion de PROG
000030: 52 41 4D 4D 41 54 49 4F 4E 20 65 74 20 5C 61 20 RAMMATION et \a
000040: 63 27 65 73 74 20 64 65 20 0D 0A 20 6C 27 7B 6C c'est de .. l'{l
000050: 65 63 74 72 6F 6E 69 71 75 65 20 21 20 4E 6F 75 ectronique ! Nou
000060: 73 20 6E 27 61 76 6F 6E 73 20 70 61 73 20 20 64 s n'avons pas d
000070: 27 7B 6C 65 63 74 72 6F 6E 69 63 69 65 6E 20 20 '{lectronicien
000080: 63 61 70 61 62 6C 65 20 64 65 20 62 69 64 6F 75 capable de bidou
000090: 69 6C 6C 65 72 20 6C 65 73 20 0D 0A 20 74 72 69 iller les .. tri
0000A0: 70 65 73 20 64 75 20 43 50 43 20 65 74 20 65 6E pes du CPC et en
0000B0: 63 6F 72 65 20 6D 6F 69 6E 73 20 64 65 20 63 72 core moins de cr
0000C0: 7B 65 72 20 6C 65 73 20 70 6C 61 6E 73 20 64 27 {er les plans d'
0000D0: 75 6E 65 20 69 6E 74 65 72 66 61 63 65 20 2E 0D une interface ..
0000E0: 0A 20 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 . ..
0000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000100: 53 65 63 6F 6E 64 65 20 63 6F 6E 73 69 64 7B 72 Seconde consid{r
000110: 61 74 69 6F 6E 20 2E 0D 0A 20 0D 0A 20 20 20 20 ation ... ..
000120: 20 43 65 74 74 65 20 71 75 65 73 74 69 6F 6E 20 Cette question
000130: 6E 6F 75 73 20 40 20 7B 74 7B 20 70 6F 73 7B 65 nous @ {t{ pos{e
000140: 20 70 61 72 20 20 4D 2E 42 49 54 41 4E 20 20 64 par M.BITAN d
000150: 65 20 43 52 45 54 45 49 4C 20 28 51 75 69 20 6E e CRETEIL (Qui n
000160: 65 20 66 61 69 74 20 70 61 73 20 0D 0A 20 70 61 e fait pas .. pa
000170: 72 74 69 65 20 64 65 20 6E 6F 73 20 61 62 6F 6E rtie de nos abon
000180: 6E 7B 73 29 20 2E 20 44 61 6E 73 20 20 6C 61 20 n{s) . Dans la
000190: 20 6D 65 73 75 72 65 20 20 6F 7C 20 20 69 6C 20 mesure o| il
0001A0: 73 65 20 72 65 63 6F 6D 6D 61 6E 64 61 69 74 20 se recommandait
0001B0: 64 27 75 6E 20 64 65 20 6E 6F 73 20 0D 0A 20 70 d'un de nos .. p
0001C0: 6C 75 73 20 66 69 64 7D 6C 65 73 20 73 6F 75 74 lus fid}les sout
0001D0: 69 65 6E 74 73 20 2C 20 6E 6F 75 73 20 61 76 6F ients , nous avo
0001E0: 6E 73 20 63 68 65 72 63 68 7B 20 64 61 6E 73 20 ns cherch{ dans
0001F0: 6C 61 20 62 69 62 6C 69 6F 74 68 7D 71 75 65 20 la biblioth}que
Size : 512 (Real : 512)
000000: 55 54 49 4C 2D 53 4F 46 54 20 75 6E 20 0D 0A 20 UTIL-SOFT un ..
000010: 6F 75 76 72 61 67 65 20 74 72 61 69 74 61 6E 74 ouvrage traitant
000020: 20 64 75 20 73 75 6A 65 74 20 2E 20 20 43 6F 6D du sujet . Com
000030: 6D 65 20 20 6C 65 20 20 73 63 68 7B 6D 61 20 20 me le sch{ma
000040: 73 27 61 70 70 6C 69 71 75 61 69 74 20 20 40 20 s'appliquait @
000050: 75 6E 20 43 50 43 20 36 31 32 38 20 2C 20 0D 0A un CPC 6128 , ..
000060: 20 4D 2E 4D 41 49 47 52 4F 54 20 40 20 20 70 72 M.MAIGROT @ pr
000070: 69 73 20 20 6C 61 20 20 70 65 69 6E 65 20 20 64 is la peine d
000080: 27 6F 75 76 72 69 72 20 20 73 6F 6E 20 20 69 6E 'ouvrir son in
000090: 74 65 72 66 61 63 65 20 20 64 72 69 76 65 20 20 terface drive
0000A0: 70 6F 75 72 20 6C 6F 63 61 6C 69 73 65 72 20 0D pour localiser .
0000B0: 0A 20 6C 27 7B 71 75 69 76 61 6C 65 6E 63 65 20 . l'{quivalence
0000C0: 64 65 73 20 63 6F 6E 6E 65 78 69 6F 6E 73 20 65 des connexions e
0000D0: 74 20 64 65 20 20 72 7B 70 6F 6E 64 72 65 20 20 t de r{pondre
0000E0: 70 61 72 20 63 6F 75 72 72 69 65 72 20 65 6E 20 par courrier en
0000F0: 66 6F 75 72 6E 69 73 73 61 6E 74 20 6C 65 73 20 fournissant les
000100: 0D 0A 20 72 7B 66 7B 72 65 6E 63 65 73 20 64 65 .. r{f{rences de
000110: 20 6C 27 6F 75 76 72 61 67 65 20 6F 7C 20 74 72 l'ouvrage o| tr
000120: 6F 75 76 65 72 20 20 6C 65 20 20 73 63 68 7B 6D ouver le sch{m
000130: 61 20 20 2E 20 20 4E 6F 75 73 20 6E 65 20 70 6F a . Nous ne po
000140: 75 76 6F 6E 73 20 6C 75 69 20 64 6F 6E 6E 65 72 uvons lui donner
000150: 20 0D 0A 20 70 6C 75 73 20 64 27 69 6E 66 6F 72 .. plus d'infor
000160: 6D 61 74 69 6F 6E 73 20 40 20 63 65 20 73 75 6A mations @ ce suj
000170: 65 74 20 20 65 74 20 20 6E 65 20 20 63 6F 6D 70 et et ne comp
000180: 72 65 6E 6F 6E 73 20 20 70 61 73 20 70 6F 75 72 renons pas pour
000190: 71 75 6F 69 20 69 6C 20 72 65 70 6F 73 65 20 6C quoi il repose l
0001A0: 61 20 0D 0A 20 71 75 65 73 74 69 6F 6E 20 20 2C a .. question ,
0001B0: 20 20 63 65 74 74 65 20 20 66 6F 69 73 20 20 70 cette fois p
0001C0: 61 72 20 20 6C 27 69 6E 74 65 72 6D 7B 64 69 61 ar l'interm{dia
0001D0: 69 72 65 20 20 20 64 65 20 20 6C 27 61 62 6F 6E ire de l'abon
0001E0: 6E 7B 20 20 64 75 71 75 65 6C 20 20 69 6C 20 20 n{ duquel il
0001F0: 73 65 20 0D 0A 20 72 65 63 6F 6D 6D 61 6E 64 61 se .. recommanda
Size : 512 (Real : 512)
000000: 69 74 20 3F 3F 3F 0D 0A 20 0D 0A 20 20 20 20 20 it ???.. ..
000010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000020: 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------
000030: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 20 --------------
000040: 0D 0A 20 0D 0A 20 20 20 20 20 43 6F 6D 6D 65 6E .. .. Commen
000050: 74 20 66 61 69 72 65 20 75 6E 65 20 20 61 64 64 t faire une add
000060: 69 74 69 6F 6E 20 20 31 36 20 20 62 69 74 73 20 ition 16 bits
000070: 20 73 75 72 20 20 48 4C 20 20 71 75 61 6E 64 20 sur HL quand
000080: 20 74 6F 75 73 20 6C 65 73 20 72 65 67 69 73 74 tous les regist
000090: 72 65 73 20 0D 0A 20 64 6F 75 62 6C 65 73 20 73 res .. doubles s
0000A0: 6F 6E 74 20 6F 63 63 75 70 7B 73 20 3F 20 41 76 ont occup{s ? Av
0000B0: 65 7A 20 20 76 6F 75 73 20 20 64 65 73 20 20 61 ez vous des a
0000C0: 73 74 75 63 65 73 20 20 70 6F 75 72 20 20 64 65 stuces pour de
0000D0: 73 20 63 61 6C 63 75 6C 73 20 73 69 6D 70 6C 65 s calculs simple
0000E0: 73 20 65 6E 20 0D 0A 20 61 73 73 65 6D 62 6C 65 s en .. assemble
0000F0: 75 72 20 3F 0D 0A 20 20 20 20 20 50 6F 75 72 20 ur ?.. Pour
000100: 6C 61 20 70 72 65 6D 69 7D 72 65 20 70 61 72 74 la premi}re part
000110: 69 65 20 64 65 20 6C 61 20 20 71 75 65 73 74 69 ie de la questi
000120: 6F 6E 20 20 5C 61 20 20 76 61 20 20 6D 61 69 73 on \a va mais
000130: 20 70 6F 75 72 20 6C 61 20 73 65 63 6F 6E 64 65 pour la seconde
000140: 20 2C 20 40 20 0D 0A 20 6C 27 69 6E 73 74 61 72 , @ .. l'instar
000150: 20 64 65 20 42 4C 4F 4F 44 20 64 7B 62 61 72 71 de BLOOD d{barq
000160: 75 61 6E 74 20 73 75 72 20 6C 61 20 20 70 6C 61 uant sur la pla
000170: 6E 7D 74 65 20 20 64 65 20 20 4D 41 58 58 4F 4E n}te de MAXXON
000180: 20 2C 20 6A 65 20 73 65 72 61 69 73 20 74 65 6E , je serais ten
000190: 74 7B 20 64 65 20 0D 0A 20 72 7B 70 6F 6E 64 72 t{ de .. r{pondr
0001A0: 65 20 3A 20 4F 55 49 20 4D 4F 49 20 43 4F 4E 4E e : OUI MOI CONN
0001B0: 41 49 54 52 45 20 41 53 54 55 43 45 53 20 20 21 AITRE ASTUCES !
0001C0: 20 20 65 74 20 64 27 61 6A 6F 75 74 65 72 20 4D et d'ajouter M
0001D0: 4F 49 20 56 4F 55 4C 4F 49 52 20 53 41 56 4F 49 OI VOULOIR SAVOI
0001E0: 52 20 51 55 4F 49 20 0D 0A 20 54 4F 49 20 43 4F R QUOI .. TOI CO
0001F0: 4E 4E 41 49 54 52 45 20 2E 2E 2E 20 4E 27 7B 74 NNAITRE ... N'{t
Size : 512 (Real : 512)
000000: 61 6E 74 20 70 61 73 20 64 27 75 6E 65 20 6E 61 ant pas d'une na
000010: 74 75 72 65 20 20 40 20 20 73 75 63 63 6F 6D 62 ture @ succomb
000020: 65 72 20 40 20 6C 61 20 74 65 6E 74 61 74 69 6F er @ la tentatio
000030: 6E 20 2C 20 75 6E 65 20 0D 0A 20 73 7B 72 69 65 n , une .. s{rie
000040: 20 64 27 69 64 7B 65 73 20 64 69 76 65 72 73 65 d'id{es diverse
000050: 73 20 73 75 72 20 6D 75 6C 74 69 70 6C 69 63 61 s sur multiplica
000060: 74 69 6F 6E 73 20 65 74 20 64 69 76 69 73 69 6F tions et divisio
000070: 6E 73 20 2C 20 73 75 69 74 20 2E 0D 0A 20 0D 0A ns , suit ... ..
000080: 20 20 20 20 20 31 7D 72 65 20 72 7B 70 6F 6E 73 1}re r{pons
000090: 65 20 3A 0D 0A 20 0D 0A 20 20 20 20 20 45 6E 20 e :.. .. En
0000A0: 70 72 69 6E 63 69 70 65 20 6F 6E 20 66 61 69 74 principe on fait
0000B0: 20 3A 20 50 55 53 48 20 42 43 0D 0A 20 20 20 20 : PUSH BC..
0000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000D0: 20 20 20 20 20 20 20 4C 44 20 20 42 43 2C 4E 4E LD BC,NN
0000E0: 20 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
0000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 41 44 AD
000100: 44 20 48 4C 2C 42 43 20 0D 0A 20 20 20 20 20 20 D HL,BC ..
000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000120: 20 20 20 20 20 50 4F 50 20 42 43 0D 0A 20 0D 0A POP BC.. ..
000130: 20 20 20 20 20 4F 6E 20 70 65 75 74 20 74 6F 75 On peut tou
000140: 74 65 66 6F 69 73 20 20 61 76 6F 69 72 20 20 64 tefois avoir d
000150: 65 20 20 62 6F 6E 6E 65 73 20 20 72 61 69 73 6F e bonnes raiso
000160: 6E 73 20 20 64 65 20 20 6E 65 20 20 70 61 73 20 ns de ne pas
000170: 75 74 69 6C 69 73 65 72 20 63 65 74 74 65 20 0D utiliser cette .
000180: 0A 20 73 74 72 75 63 74 75 72 65 20 2C 20 6E 6F . structure , no
000190: 74 61 6D 65 6E 74 20 6C 6F 72 73 71 75 65 20 6C tament lorsque l
0001A0: 65 20 74 65 6D 70 73 20 64 27 7B 78 7B 63 75 74 e temps d'{x{cut
0001B0: 69 6F 6E 20 20 65 73 74 20 20 76 69 74 61 6C 20 ion est vital
0001C0: 2E 20 44 61 6E 73 20 63 65 20 63 61 73 20 2C 20 . Dans ce cas ,
0001D0: 0D 0A 20 63 65 20 71 75 69 20 73 75 69 74 20 2C .. ce qui suit ,
0001E0: 20 62 69 65 6E 20 71 75 65 20 20 70 6C 75 73 20 bien que plus
0001F0: 20 6C 6F 6E 67 20 20 65 6E 20 20 6F 63 74 65 74 long en octet
Size : 512 (Real : 512)
000000: 73 20 2C 20 64 65 6D 61 6E 64 65 20 75 6E 20 74 s , demande un t
000010: 65 6D 70 73 20 64 27 7B 78 7B 63 75 74 69 6F 6E emps d'{x{cution
000020: 20 0D 0A 20 69 6E 66 7B 72 69 65 75 72 20 40 20 .. inf{rieur @
000030: 63 65 20 71 75 69 20 70 72 7B 63 7D 64 65 20 2E ce qui pr{c}de .
000040: 0D 0A 20 0D 0A 20 41 44 44 49 54 31 20 20 4C 44 .. .. ADDIT1 LD
000050: 20 41 2C 23 4E 20 20 20 20 20 20 20 20 20 3B 41 A,#N ;A
000060: 64 64 69 74 69 6F 6E 20 64 65 20 6C 61 20 76 61 ddition de la va
000070: 6C 65 75 72 20 38 20 42 69 74 73 20 63 6F 6E 74 leur 8 Bits cont
000080: 65 6E 75 65 20 64 61 6E 73 20 41 20 61 75 0D 0A enue dans A au..
000090: 20 20 20 20 20 20 20 20 20 41 44 44 20 41 2C 4C ADD A,L
0000A0: 20 20 20 20 20 20 20 20 20 3B 64 6F 75 62 6C 65 ;double
0000B0: 20 72 65 67 69 73 74 72 65 20 48 4C 20 2E 0D 0A registre HL ...
0000C0: 20 20 20 20 20 20 20 20 20 4A 52 20 4E 43 2C 4E JR NC,N
0000D0: 4F 43 41 52 52 59 20 20 20 3B 53 69 20 6C 65 20 OCARRY ;Si le
0000E0: 43 41 52 52 59 20 65 73 74 20 6D 69 73 20 2C 20 CARRY est mis ,
0000F0: 69 6C 20 66 61 75 74 20 62 69 65 6E 20 73 75 72 il faut bien sur
000100: 20 69 6E 63 72 7B 6D 65 6E 74 65 72 0D 0A 20 20 incr{menter..
000110: 20 20 20 20 20 20 20 49 4E 43 20 48 20 20 20 20 INC H
000120: 20 20 20 20 20 20 20 3B 6C 27 6F 63 74 65 74 20 ;l'octet
000130: 66 6F 72 74 20 63 6F 6D 6D 65 20 64 61 6E 73 20 fort comme dans
000140: 74 6F 75 74 65 20 6F 70 7B 72 61 74 69 6F 6E 20 toute op{ration
000150: 61 72 79 74 68 6D 7B 74 69 71 75 65 0D 0A 20 4E arythm{tique.. N
000160: 4F 43 41 52 52 59 20 4C 44 20 4C 2C 41 20 20 20 OCARRY LD L,A
000170: 20 20 20 20 20 20 20 3B 6E 6F 72 6D 61 6C 65 20 ;normale
000180: 2E 0D 0A 20 20 20 20 20 20 20 20 20 2E 2E 2E 2E ... ....
000190: 2E 2E 2E 2E 2E 0D 0A 20 0D 0A 20 53 55 42 53 31 ....... .. SUBS1
0001A0: 20 20 20 4C 44 20 41 2C 4C 20 20 20 20 20 20 20 LD A,L
0001B0: 20 20 20 3B 4C 61 20 6D 65 6D 65 20 70 6F 75 72 ;La meme pour
0001C0: 20 75 6E 65 20 73 6F 75 73 74 72 61 63 74 69 6F une soustractio
0001D0: 6E 20 2E 0D 0A 20 20 20 20 20 20 20 20 20 53 55 n ... SU
0001E0: 42 20 23 4E 0D 0A 20 20 20 20 20 20 20 20 20 4A B #N.. J
0001F0: 52 20 4E 43 2C 4E 4F 43 41 52 52 59 0D 0A 20 20 R NC,NOCARRY..
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 44 45 43 20 48 0D 0A 20 4E DEC H.. N
000010: 4F 43 41 52 52 59 20 4C 44 20 4C 2C 41 0D 0A 20 OCARRY LD L,A..
000020: 20 20 20 20 20 20 20 20 2E 2E 2E 2E 2E 2E 2E 2E ........
000030: 2E 0D 0A 20 0D 0A 20 20 20 20 20 20 20 20 20 4C ... .. L
000040: 44 20 41 2C 48 20 20 20 20 20 20 20 20 20 20 3B D A,H ;
000050: 4C 65 73 20 32 20 6D 65 08 5E 6D 65 73 20 64 61 Les 2 me.^mes da
000060: 6E 73 20 6C 65 20 63 61 73 20 6F 7C 20 6C 61 20 ns le cas o| la
000070: 76 61 6C 65 75 72 20 40 20 61 6A 6F 75 74 65 72 valeur @ ajouter
000080: 0D 0A 20 20 20 20 20 20 20 20 20 41 44 44 20 41 .. ADD A
000090: 2C 23 4E 20 20 20 20 20 20 20 20 3B 6F 75 20 73 ,#N ;ou s
0000A0: 6F 75 73 74 72 61 69 72 65 20 65 73 74 20 73 75 oustraire est su
0000B0: 72 20 31 36 20 62 69 74 73 20 2E 20 4E 6F 74 65 r 16 bits . Note
0000C0: 72 20 71 75 65 20 64 61 6E 73 0D 0A 20 20 20 20 r que dans..
0000D0: 20 20 20 20 20 4C 44 20 48 2C 41 20 20 20 20 20 LD H,A
0000E0: 20 20 20 20 20 3B 63 65 20 63 61 73 20 2C 20 6C ;ce cas , l
0000F0: 61 20 73 6F 6C 75 74 69 6F 6E 20 64 27 6F 72 69 a solution d'ori
000100: 67 69 6E 65 20 61 76 65 63 20 50 55 53 48 20 26 gine avec PUSH &
000110: 20 50 4F 50 0D 0A 20 20 20 20 20 20 20 20 20 4A POP.. J
000120: 52 20 41 44 44 49 54 31 20 20 20 20 20 20 20 3B R ADDIT1 ;
000130: 65 73 74 20 61 75 73 73 69 20 62 6F 6E 6E 65 20 est aussi bonne
000140: 21 0D 0A 20 0D 0A 20 20 20 20 20 20 20 20 20 4C !.. .. L
000150: 44 20 41 2C 48 0D 0A 20 20 20 20 20 20 20 20 20 D A,H..
000160: 53 55 42 20 23 4E 0D 0A 20 20 20 20 20 20 20 20 SUB #N..
000170: 20 4C 44 20 48 2C 41 0D 0A 20 20 20 20 20 20 20 LD H,A..
000180: 20 20 4A 52 20 53 55 42 53 31 0D 0A 20 0D 0A 20 JR SUBS1.. ..
000190: 20 20 20 20 50 65 6E 73 65 7A 20 20 61 75 73 73 Pensez auss
0001A0: 69 20 20 71 75 65 20 20 73 69 20 20 6C 27 7B 74 i que si l'{t
0001B0: 61 74 20 20 64 75 20 20 20 63 61 72 72 79 20 20 at du carry
0001C0: 65 73 74 20 20 69 6E 64 69 66 66 7B 72 65 6E 74 est indiff{rent
0001D0: 20 20 6C 6F 72 73 20 20 64 27 75 6E 65 20 0D 0A lors d'une ..
0001E0: 20 73 6F 75 73 74 72 61 63 74 69 6F 6E 20 31 36 soustraction 16
0001F0: 20 62 69 74 73 0D 0A 20 0D 0A 20 20 20 20 20 20 bits.. ..
Size : 512 (Real : 512)
000000: 20 20 20 41 4E 44 20 41 20 20 20 20 20 20 20 3B AND A ;
000010: 44 61 6E 73 20 63 65 20 63 61 73 20 2C 20 6C 65 Dans ce cas , le
000020: 20 43 41 52 52 59 20 65 73 74 20 6D 69 73 20 73 CARRY est mis s
000030: 69 20 48 4C 20 3C 20 42 43 0D 0A 20 20 20 20 20 i HL < BC..
000040: 20 20 20 20 4C 44 20 42 43 2C 23 41 33 33 35 0D LD BC,#A335.
000050: 0A 20 20 20 20 20 20 20 20 20 53 42 43 20 48 4C . SBC HL
000060: 2C 42 43 0D 0A 20 0D 0A 20 20 20 20 20 4F 6E 20 ,BC.. .. On
000070: 70 65 75 74 20 66 61 69 72 65 20 3A 0D 0A 20 0D peut faire :.. .
000080: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 42 43 2C . LD BC,
000090: 2D 23 41 33 33 35 20 3B 4C 65 20 70 6C 75 73 20 -#A335 ;Le plus
0000A0: 6D 69 6E 61 62 6C 65 20 64 65 73 20 61 73 73 65 minable des asse
0000B0: 6D 62 6C 65 75 72 73 20 63 6F 6E 6E 61 69 08 5E mbleurs connai.^
0000C0: 74 20 6C 65 20 73 69 67 6E 65 20 6D 6F 69 6E 73 t le signe moins
0000D0: 0D 0A 20 20 20 20 20 20 20 20 20 41 44 44 20 48 .. ADD H
0000E0: 4C 2C 42 43 20 20 20 20 3B 4D 61 69 73 20 64 61 L,BC ;Mais da
0000F0: 6E 73 20 63 65 20 63 61 73 20 6C 65 20 43 41 52 ns ce cas le CAR
000100: 52 59 20 20 6E 27 65 73 74 20 70 6C 75 73 20 6D RY n'est plus m
000110: 69 73 20 73 69 20 48 4C 20 3C 20 42 43 20 63 65 is si HL < BC ce
000120: 20 0D 0A 20 71 75 69 20 70 65 75 74 20 65 08 5E .. qui peut e.^
000130: 74 72 65 20 74 72 7D 73 20 67 7B 6E 61 6E 74 20 tre tr}s g{nant
000140: 73 69 20 6C 27 6F 6E 20 66 61 69 74 20 75 6E 20 si l'on fait un
000150: 74 65 73 74 20 64 65 20 63 6F 6D 70 61 72 61 69 test de comparai
000160: 73 6F 6E 20 48 4C 20 3C 3D 42 43 20 21 0D 0A 20 son HL <=BC !..
000170: 0D 0A 20 20 20 20 20 32 7D 6D 65 20 72 7B 70 6F .. 2}me r{po
000180: 6E 73 65 20 3A 20 49 64 7B 65 73 20 65 6E 20 76 nse : Id{es en v
000190: 72 61 63 20 2E 0D 0A 20 0D 0A 20 20 20 20 20 4D rac ... .. M
0001A0: 75 6C 74 69 70 6C 69 65 72 20 6F 75 20 64 69 76 ultiplier ou div
0001B0: 69 73 65 72 20 75 6E 20 72 65 67 69 73 74 72 65 iser un registre
0001C0: 20 38 20 62 69 74 73 20 70 61 72 20 32 20 3A 0D 8 bits par 2 :.
0001D0: 0A 20 0D 0A 20 20 20 20 20 4F 75 20 52 20 72 65 . .. Ou R re
0001E0: 70 72 7B 73 65 6E 74 65 20 6E 27 69 6D 70 6F 72 pr{sente n'impor
0001F0: 74 65 20 71 75 65 6C 20 72 65 67 69 73 74 72 65 te quel registre
Size : 512 (Real : 512)
000000: 20 38 20 62 69 74 73 20 2E 0D 0A 20 0D 0A 20 20 8 bits ... ..
000010: 20 20 20 53 4C 41 20 52 20 20 20 4D 75 6C 74 69 SLA R Multi
000020: 70 6C 69 63 61 74 69 6F 6E 20 70 61 72 20 32 20 plication par 2
000030: 2E 20 4C 65 20 43 41 52 52 59 20 65 73 74 20 6D . Le CARRY est m
000040: 69 73 20 65 6E 20 63 61 73 20 64 65 20 64 7B 62 is en cas de d{b
000050: 6F 72 64 65 6D 65 6E 74 20 2E 0D 0A 20 20 20 20 ordement ...
000060: 20 50 6F 75 72 20 6C 65 20 72 65 67 69 73 74 72 Pour le registr
000070: 65 20 41 20 73 70 7B 63 69 66 69 71 75 65 6D 65 e A sp{cifiqueme
000080: 6E 74 20 2C 20 41 44 44 20 41 2C 41 20 7B 63 6F nt , ADD A,A {co
000090: 6E 6F 6D 69 73 65 72 61 20 75 6E 20 6F 63 74 65 nomisera un octe
0000A0: 74 20 2E 0D 0A 20 3B 0D 0A 20 20 20 20 20 53 52 t ... ;.. SR
0000B0: 4C 20 52 20 20 20 44 69 76 69 73 69 6F 6E 20 2E L R Division .
0000C0: 20 4C 65 20 43 41 52 52 59 20 65 73 74 20 6D 69 Le CARRY est mi
0000D0: 73 20 65 6E 20 63 61 73 20 64 65 20 64 7B 62 6F s en cas de d{bo
0000E0: 72 64 65 6D 65 6E 74 20 2E 0D 0A 20 0D 0A 20 20 rdement ... ..
0000F0: 20 20 20 53 69 20 6C 27 6F 6E 20 61 6A 6F 75 74 Si l'on ajout
000100: 65 20 64 65 73 20 53 4C 41 20 6F 75 20 53 52 4C e des SLA ou SRL
000110: 20 61 70 72 7D 73 20 20 6C 65 20 70 72 65 6D 69 apr}s le premi
000120: 65 72 20 2C 20 6C 27 6F 70 7B 72 61 74 69 6F 6E er , l'op{ration
000130: 20 73 65 20 66 65 72 61 20 70 61 72 20 0D 0A 20 se fera par ..
000140: 34 2C 38 2C 31 36 2C 33 32 2C 36 34 20 2E 0D 0A 4,8,16,32,64 ...
000150: 20 0D 0A 20 20 20 20 20 4D 75 6C 74 69 70 6C 69 .. Multipli
000160: 65 72 20 6F 75 20 64 69 76 69 73 65 72 20 75 6E er ou diviser un
000170: 20 72 65 67 69 73 74 72 65 20 31 36 20 62 69 74 registre 16 bit
000180: 73 20 70 61 72 20 32 20 3A 0D 0A 20 0D 0A 20 20 s par 2 :.. ..
000190: 20 20 20 53 4C 41 20 45 20 20 20 3B 4D 75 6C 74 SLA E ;Mult
0001A0: 69 70 6C 69 65 20 45 20 70 61 72 20 32 20 65 6E iplie E par 2 en
0001B0: 20 74 65 6E 61 6E 74 20 63 6F 6D 70 74 65 20 64 tenant compte d
0001C0: 75 20 43 41 52 52 59 0D 0A 20 20 20 20 20 52 4C u CARRY.. RL
0001D0: 20 44 20 20 20 20 3B 43 6F 6D 6D 65 20 53 4C 41 D ;Comme SLA
0001E0: 20 6D 61 69 73 20 65 6E 20 70 6C 75 73 20 2C 20 mais en plus ,
0001F0: 6C 65 20 43 41 52 52 59 20 65 73 74 20 72 65 63 le CARRY est rec
Size : 512 (Real : 512)
000000: 6F 70 69 7B 20 64 61 6E 73 20 6C 65 20 42 49 54 opi{ dans le BIT
000010: 20 30 0D 0A 20 0D 0A 20 20 20 20 20 50 6F 75 72 0.. .. Pour
000020: 20 48 4C 20 65 74 20 49 58 20 2C 20 6F 6E 20 61 HL et IX , on a
000030: 75 72 61 20 69 6E 74 7D 72 65 08 5E 74 20 61 20 ura int}re.^t a
000040: 66 61 69 72 65 20 3A 20 41 44 44 20 48 4C 2C 48 faire : ADD HL,H
000050: 4C 20 2D 20 41 44 44 20 49 58 2C 49 58 0D 0A 20 L - ADD IX,IX..
000060: 0D 0A 20 20 20 20 20 53 52 4C 20 45 20 20 20 3B .. SRL E ;
000070: 44 69 76 69 73 69 6F 6E 20 70 61 72 20 32 20 2E Division par 2 .
000080: 0D 0A 20 20 20 20 20 52 52 20 44 0D 0A 20 0D 0A .. RR D.. ..
000090: 20 20 20 20 20 43 6F 6D 6D 65 20 73 75 72 20 20 Comme sur
0000A0: 38 20 20 62 69 74 73 20 20 2C 20 20 6C 61 20 20 8 bits , la
0000B0: 72 7B 70 7B 74 69 6F 6E 20 20 64 65 20 20 63 65 r{p{tion de ce
0000C0: 73 20 20 32 20 20 69 6E 73 74 72 75 63 74 69 6F s 2 instructio
0000D0: 6E 73 20 20 65 66 66 65 63 74 75 65 72 61 20 0D ns effectuera .
0000E0: 0A 20 6C 27 6F 70 7B 72 61 74 69 6F 6E 20 70 61 . l'op{ration pa
0000F0: 72 20 34 2C 38 2C 31 36 2C 33 32 2C 36 34 2C 31 r 4,8,16,32,64,1
000100: 32 38 2C 45 74 63 20 2E 2E 2E 0D 0A 20 0D 0A 20 28,Etc ..... ..
000110: 20 20 20 20 50 6F 75 72 20 76 6F 69 72 20 73 69 Pour voir si
000120: 20 75 6E 20 72 65 67 69 73 74 72 65 20 64 6F 75 un registre dou
000130: 62 6C 65 20 3D 20 30 20 3A 0D 0A 20 0D 0A 20 20 ble = 0 :.. ..
000140: 20 20 20 4C 44 20 41 2C 44 20 20 3B 4C 65 20 46 LD A,D ;Le F
000150: 4C 41 47 20 5A 20 65 73 74 20 6D 69 73 20 73 69 LAG Z est mis si
000160: 20 44 45 3D 30 0D 0A 20 20 20 20 20 4F 52 20 45 DE=0.. OR E
000170: 0D 0A 20 0D 0A 20 20 20 20 20 56 6F 69 6C 40 20 .. .. Voil@
000180: 70 6F 75 72 20 6C 61 20 73 65 63 6F 6E 64 65 20 pour la seconde
000190: 70 61 72 74 69 65 20 2E 20 53 27 69 6C 20 20 76 partie . S'il v
0001A0: 6F 75 73 20 20 65 6E 20 66 61 75 74 20 70 6C 75 ous en faut plu
0001B0: 73 20 2C 20 7B 63 72 69 76 65 7A 20 6E 6F 75 73 s , {crivez nous
0001C0: 20 65 6E 20 0D 0A 20 70 72 7B 63 69 73 61 6E 74 en .. pr{cisant
0001D0: 20 76 6F 74 72 65 20 70 65 6E 73 7B 65 20 2E 0D votre pens{e ..
0001E0: 0A 20 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 . ..
0001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
Size : 512 (Real : 512)
000000: 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ---------------
000010: 2D 2D 2D 2D 2D 0D 0A 20 20 20 20 20 0D 0A 20 20 -----.. ..
000020: 20 20 20 20 20 20 20 20 20 20 43 6F 6D 6D 65 6E Commen
000030: 74 20 70 61 73 73 65 72 20 64 65 73 20 70 61 72 t passer des par
000040: 61 6D 7D 74 72 65 73 20 64 75 20 62 61 73 69 63 am}tres du basic
000050: 20 40 20 6C 27 61 73 73 65 6D 62 6C 65 75 72 20 @ l'assembleur
000060: 3F 0D 0A 20 0D 0A 20 20 20 20 20 53 69 20 69 6C ?.. .. Si il
000070: 20 6E 27 79 2D 61 20 71 75 27 75 6E 20 73 65 75 n'y-a qu'un seu
000080: 6C 20 70 61 72 61 6D 7D 74 72 65 20 20 28 43 41 l param}tre (CA
000090: 4C 4C 20 20 41 44 52 45 53 53 45 2C 4E 29 20 6C LL ADRESSE,N) l
0000A0: 65 20 70 72 6F 62 6C 7D 6D 65 20 65 73 74 20 72 e probl}me est r
0000B0: 7B 67 6C 7B 20 0D 0A 20 65 6E 20 35 20 6C 69 67 {gl{ .. en 5 lig
0000C0: 6E 65 73 20 64 27 61 73 73 65 6D 62 6C 65 75 72 nes d'assembleur
0000D0: 20 2E 20 41 20 6C 27 65 6E 74 72 7B 65 20 64 75 . A l'entr{e du
0000E0: 20 20 70 72 6F 67 72 61 6D 6D 65 20 2C 20 41 20 programme , A
0000F0: 63 6F 6E 74 69 65 6E 74 20 6C 65 20 6E 6F 6D 62 contient le nomb
000100: 72 65 20 64 65 20 0D 0A 20 70 61 72 61 6D 7D 74 re de .. param}t
000110: 72 65 20 74 72 61 6E 73 6D 69 73 20 65 74 20 44 re transmis et D
000120: 45 20 6C 61 20 76 61 6C 65 75 72 20 64 75 20 70 E la valeur du p
000130: 61 72 61 6D 7D 74 72 65 2E 0D 0A 20 0D 0A 20 20 aram}tre... ..
000140: 20 20 20 50 6F 73 73 69 62 69 6C 69 74 7B 73 20 Possibilit{s
000150: 3A 0D 0A 20 0D 0A 20 20 20 20 20 43 41 4C 4C 20 :.. .. CALL
000160: 33 30 30 30 30 2C 31 32 33 34 20 6F 75 20 58 25 30000,1234 ou X%
000170: 3D 32 33 34 3A 43 41 4C 4C 20 33 30 30 30 30 2C =234:CALL 30000,
000180: 58 25 0D 0A 20 20 20 20 20 6F 75 20 58 25 3D 32 X%.. ou X%=2
000190: 33 34 3A 59 25 3D 31 32 34 3A 20 43 41 4C 4C 20 34:Y%=124: CALL
0001A0: 33 30 30 30 30 2C 58 25 2B 59 25 2D 31 32 33 0D 30000,X%+Y%-123.
0001B0: 0A 20 0D 0A 20 20 20 20 20 4E 4F 54 45 20 3A 20 . .. NOTE :
0001C0: 4C 65 73 20 20 76 61 72 69 61 62 6C 65 73 20 20 Les variables
0001D0: 40 20 20 74 72 61 6E 73 6D 65 74 74 72 65 20 20 @ transmettre
0001E0: 64 6F 69 76 65 6E 74 20 20 74 6F 75 6A 6F 75 72 doivent toujour
0001F0: 73 20 65 08 5E 74 72 65 20 70 72 7B 64 7B 66 69 s e.^tre pr{d{fi
Size : 512 (Real : 512)
000000: 6E 69 65 73 20 0D 0A 20 66 61 75 74 65 20 64 65 nies .. faute de
000010: 20 71 75 6F 69 20 6F 6E 20 72 65 63 65 76 72 61 quoi on recevra
000020: 20 20 75 6E 20 20 49 4D 50 52 4F 50 45 52 20 20 un IMPROPER
000030: 41 52 47 55 4D 45 4E 54 20 20 2E 20 20 4C 65 20 ARGUMENT . Le
000040: 6D 65 73 73 61 67 65 20 4F 56 45 52 46 4C 4F 57 message OVERFLOW
000050: 20 73 65 72 61 20 0D 0A 20 72 65 6E 76 6F 79 7B sera .. renvoy{
000060: 20 73 69 20 6C 27 6F 6E 20 65 6E 76 6F 69 65 20 si l'on envoie
000070: 75 6E 65 20 76 61 6C 65 75 72 20 65 6E 74 69 7D une valeur enti}
000080: 72 65 20 28 20 3E 20 71 75 65 20 36 35 35 33 36 re ( > que 65536
000090: 29 20 40 20 63 65 73 20 72 6F 75 74 69 6E 65 73 ) @ ces routines
0000A0: 20 2E 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 ... ;..
0000B0: 20 4F 52 47 20 33 30 30 30 30 0D 0A 20 3B 0D 0A ORG 30000.. ;..
0000C0: 20 20 20 20 20 20 20 20 20 43 50 20 31 20 20 20 CP 1
0000D0: 20 20 20 20 20 20 20 20 20 3B 41 3D 4E 6F 6D 62 ;A=Nomb
0000E0: 72 65 20 64 65 20 70 61 72 61 6D 7D 74 72 65 73 re de param}tres
0000F0: 20 74 72 61 6E 73 6D 69 73 0D 0A 20 20 20 20 20 transmis..
000100: 20 20 20 20 52 45 54 20 4E 5A 0D 0A 20 20 20 20 RET NZ..
000110: 20 20 20 20 20 4C 44 20 28 53 54 4F 43 4B 29 2C LD (STOCK),
000120: 44 45 20 20 20 3B 4F 6E 20 74 72 6F 75 76 65 20 DE ;On trouve
000130: 74 6F 75 6A 6F 75 72 73 20 6C 65 20 64 65 72 6E toujours le dern
000140: 69 65 72 20 70 61 72 61 6D 7D 74 72 65 20 0D 0A ier param}tre ..
000150: 20 20 20 20 20 20 20 20 20 52 45 54 20 20 20 20 RET
000160: 20 20 20 20 20 20 20 20 20 3B 64 61 6E 73 20 44 ;dans D
000170: 45 0D 0A 20 3B 0D 0A 20 53 54 4F 43 4B 20 20 20 E.. ;.. STOCK
000180: 44 42 20 30 0D 0A 20 0D 0A 20 20 20 20 20 53 69 DB 0.. .. Si
000190: 20 69 6C 20 66 61 75 74 20 70 61 73 73 65 72 20 il faut passer
0001A0: 70 6C 75 73 69 65 75 72 73 20 70 61 72 61 6D 7D plusieurs param}
0001B0: 74 72 65 73 20 2C 20 6F 6E 20 6C 65 73 20 72 7B tres , on les r{
0001C0: 63 75 70 7D 72 65 72 61 20 73 75 63 63 65 73 73 cup}rera success
0001D0: 69 76 65 6D 65 6E 74 20 0D 0A 20 64 61 6E 73 20 ivement .. dans
0001E0: 6C 65 20 72 65 67 69 73 74 72 65 20 49 58 20 2C le registre IX ,
0001F0: 20 63 65 63 69 20 73 61 6E 73 20 6F 75 62 6C 69 ceci sans oubli
Size : 512 (Real : 512)
000000: 65 72 20 71 75 65 20 6C 27 61 64 72 65 73 73 61 er que l'adressa
000010: 67 65 20 64 75 20 5A 38 30 20 66 61 69 74 20 6C ge du Z80 fait l
000020: 65 73 20 70 69 65 64 73 20 0D 0A 20 61 75 20 6D es pieds .. au m
000030: 75 72 20 65 74 20 71 75 65 20 6C 27 6F 63 74 65 ur et que l'octe
000040: 74 20 66 61 69 62 6C 65 20 64 27 75 6E 65 20 76 t faible d'une v
000050: 61 6C 65 75 72 20 31 36 20 62 69 74 73 20 65 73 aleur 16 bits es
000060: 74 20 73 74 6F 63 6B 7B 20 65 6E 20 74 65 08 5E t stock{ en te.^
000070: 74 65 20 21 0D 0A 20 3B 0D 0A 20 20 20 20 20 43 te !.. ;.. C
000080: 41 4C 4C 20 33 30 30 30 30 2C 20 20 50 41 52 41 ALL 30000, PARA
000090: 31 20 20 2C 20 20 50 41 52 41 32 20 20 2C 20 20 1 , PARA2 ,
0000A0: 50 41 52 41 33 20 20 65 74 63 20 2E 2E 2E 2E 0D PARA3 etc .....
0000B0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
0000C0: 20 20 20 20 20 20 20 5E 20 20 20 20 20 20 20 20 ^
0000D0: 20 5E 20 20 20 20 20 20 20 20 20 5E 0D 0A 20 20 ^ ^..
0000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000F0: 20 20 20 20 28 49 58 2B 35 29 26 34 20 20 28 49 (IX+5)&4 (I
000100: 58 2B 33 29 26 32 20 20 28 49 58 2B 31 29 26 30 X+3)&2 (IX+1)&0
000110: 0D 0A 20 20 20 20 20 20 20 20 20 4F 52 47 20 33 .. ORG 3
000120: 30 30 30 30 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 0000.. ;..
000130: 20 20 20 43 50 20 33 20 20 20 20 20 20 20 20 20 CP 3
000140: 20 20 20 20 3B 41 3D 4E 6F 6D 62 72 65 20 64 65 ;A=Nombre de
000150: 20 70 61 72 61 6D 7D 74 72 65 73 20 74 72 61 6E param}tres tran
000160: 73 6D 69 73 0D 0A 20 20 20 20 20 20 20 20 20 52 smis.. R
000170: 45 54 20 4E 5A 0D 0A 20 3B 0D 0A 20 20 20 20 20 ET NZ.. ;..
000180: 20 20 20 20 4C 44 20 4C 2C 28 49 58 2B 30 29 0D LD L,(IX+0).
000190: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 48 2C 28 . LD H,(
0001A0: 49 58 2B 31 29 0D 0A 20 3B 0D 0A 20 20 20 20 20 IX+1).. ;..
0001B0: 20 20 20 20 4C 44 20 45 2C 28 49 58 2B 32 29 0D LD E,(IX+2).
0001C0: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 44 2C 28 . LD D,(
0001D0: 49 58 2B 33 29 0D 0A 20 3B 0D 0A 20 20 20 20 20 IX+3).. ;..
0001E0: 20 20 20 20 4C 44 20 43 2C 28 49 58 2B 34 29 0D LD C,(IX+4).
0001F0: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 42 2C 28 . LD B,(
Size : 512 (Real : 512)
000000: 49 58 2B 35 29 0D 0A 20 3B 0D 0A 20 20 20 20 20 IX+5).. ;..
000010: 4C 44 20 28 53 54 4F 43 4B 29 2C 48 4C 0D 0A 20 LD (STOCK),HL..
000020: 20 20 20 20 4C 44 20 28 53 54 4F 43 4B 31 29 2C LD (STOCK1),
000030: 44 45 0D 0A 20 20 20 20 20 4C 44 20 28 53 54 4F DE.. LD (STO
000040: 43 4B 32 29 2C 42 43 0D 0A 20 3B 0D 0A 20 20 20 CK2),BC.. ;..
000050: 20 20 20 20 20 20 52 45 54 0D 0A 20 3B 0D 0A 20 RET.. ;..
000060: 53 54 4F 43 4B 31 20 20 44 57 20 30 0D 0A 20 53 STOCK1 DW 0.. S
000070: 54 4F 43 4B 32 20 20 44 57 20 30 0D 0A 20 53 54 TOCK2 DW 0.. ST
000080: 4F 43 4B 32 20 20 44 57 20 30 0D 0A 20 3B 0D 0A OCK2 DW 0.. ;..
000090: 20 20 20 20 20 50 6F 75 72 20 64 65 73 20 76 61 Pour des va
0000A0: 72 69 61 62 6C 65 73 20 65 6E 74 69 7D 72 65 73 riables enti}res
0000B0: 20 6F 75 20 61 6C 70 68 61 6E 75 6D 7B 72 69 71 ou alphanum{riq
0000C0: 75 65 73 20 20 2C 20 6F 6E 20 70 72 6F 63 7B 64 ues , on proc{d
0000D0: 65 72 61 20 64 65 20 6C 61 20 6D 65 08 5E 6D 65 era de la me.^me
0000E0: 20 0D 0A 20 6D 61 6E 69 7D 72 65 20 6D 61 69 73 .. mani}re mais
0000F0: 20 63 27 65 73 74 20 6C 65 20 70 6F 69 6E 74 65 c'est le pointe
000100: 75 72 20 64 65 20 20 76 61 72 69 61 62 6C 65 20 ur de variable
000110: 20 71 75 69 20 20 73 65 72 61 20 74 72 61 6E 73 qui sera trans
000120: 6D 69 73 20 61 75 20 6C 69 65 75 20 64 65 20 6C mis au lieu de l
000130: 61 20 0D 0A 20 76 61 72 69 61 62 6C 65 20 65 6C a .. variable el
000140: 6C 65 20 6D 65 08 5E 6D 65 20 2E 0D 0A 20 20 20 le me.^me ...
000150: 20 20 50 55 42 20 3A 20 43 65 20 70 72 6F 62 6C PUB : Ce probl
000160: 7D 6D 65 20 40 20 7B 74 7B 20 20 74 72 61 69 74 }me @ {t{ trait
000170: 7B 20 20 28 65 6E 74 72 65 20 20 61 75 74 72 65 { (entre autre
000180: 73 29 20 20 65 6E 20 20 6C 6F 6E 67 20 65 6E 20 s) en long en
000190: 6C 61 72 67 65 20 65 74 20 65 6E 20 0D 0A 20 74 large et en .. t
0001A0: 72 61 76 65 72 73 20 64 61 6E 73 20 6C 65 20 31 ravers dans le 1
0001B0: 65 72 20 63 6F 75 72 73 20 64 27 61 73 73 65 6D er cours d'assem
0001C0: 62 6C 65 75 72 20 55 54 49 4C 2D 53 4F 46 54 20 bleur UTIL-SOFT
0001D0: 71 75 69 20 6E 65 20 63 6F 75 08 5E 74 65 20 71 qui ne cou.^te q
0001E0: 75 65 20 31 36 35 46 0D 0A 20 0D 0A 20 20 20 20 ue 165F.. ..
0001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
Size : 512 (Real : 512)
000000: 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ------------
000010: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 0D 0A -----------.. ..
000020: 20 20 20 20 20 47 41 54 45 20 41 52 52 41 59 20 GATE ARRAY
000030: 65 74 20 43 52 54 43 20 3A 20 55 54 49 4C 2D 53 et CRTC : UTIL-S
000040: 4F 46 54 20 40 20 72 7B 70 6F 6E 73 65 20 20 40 OFT @ r{ponse @
000050: 20 50 52 45 53 51 55 45 20 74 6F 75 74 20 2C 20 PRESQUE tout ,
000060: 64 61 6E 73 20 6C 61 20 6D 65 73 75 72 65 20 0D dans la mesure .
000070: 0A 20 6F 7C 20 6C 65 20 47 41 54 45 20 41 52 52 . o| le GATE ARR
000080: 41 59 20 65 73 74 20 75 6E 20 20 63 69 72 63 75 AY est un circu
000090: 69 74 20 20 73 75 72 20 6C 65 71 75 65 6C 20 69 it sur lequel i
0000A0: 6C 20 6E 27 65 78 69 73 74 65 20 61 75 63 75 6E l n'existe aucun
0000B0: 65 20 64 6F 63 75 6D 65 6E 74 61 74 69 6F 6E 20 e documentation
0000C0: 0D 0A 20 69 6C 20 65 73 74 20 64 69 66 66 69 63 .. il est diffic
0000D0: 69 6C 65 20 64 65 20 66 61 69 72 65 20 75 6E 20 ile de faire un
0000E0: 20 63 6F 75 72 73 20 20 73 75 72 20 20 63 65 20 cours sur ce
0000F0: 73 75 6A 65 74 20 73 61 6E 73 20 72 65 63 6F 70 sujet sans recop
000100: 69 65 72 20 64 65 73 20 65 78 74 72 61 69 74 73 ier des extraits
000110: 20 0D 0A 20 64 27 6F 75 76 72 61 67 65 73 20 70 .. d'ouvrages p
000120: 75 62 6C 69 7B 73 20 70 6C 75 73 20 6F 7C 20 6D ubli{s plus o| m
000130: 6F 69 6E 73 20 72 7B 63 65 6D 65 6E 74 20 2E 20 oins r{cement .
000140: 4C 27 7B 74 75 64 65 20 64 65 20 63 65 73 20 63 L'{tude de ces c
000150: 69 72 63 75 69 74 73 20 2C 20 64 6F 6E 74 20 6C ircuits , dont l
000160: 61 20 0D 0A 20 6D 61 69 08 5E 74 72 69 73 65 20 a .. mai.^trise
000170: 65 73 74 20 6C 65 20 73 65 63 72 65 74 20 20 64 est le secret d
000180: 65 73 20 20 73 63 72 6F 6C 6C 69 6E 67 73 20 20 es scrollings
000190: 70 65 72 66 6F 72 6D 61 6E 74 73 20 20 2C 20 20 performants ,
0001A0: 65 73 74 20 20 65 6E 20 63 6F 75 72 73 20 2E 20 est en cours .
0001B0: 4E 6F 75 73 20 0D 0A 20 61 75 72 6F 6E 73 20 73 Nous .. aurons s
0001C0: 61 6E 73 20 64 6F 75 74 65 20 64 65 73 20 72 7B ans doute des r{
0001D0: 76 7B 6C 61 74 69 6F 6E 73 20 20 69 6E 74 7B 72 v{lations int{r
0001E0: 72 65 73 73 61 6E 74 65 73 20 20 40 20 76 6F 75 ressantes @ vou
0001F0: 73 20 66 61 69 72 65 20 6C 27 61 6E 20 70 72 6F s faire l'an pro
Size : 512 (Real : 512)
000000: 63 68 61 69 6E 20 0D 0A 20 64 61 6E 73 20 6C 65 chain .. dans le
000010: 73 20 63 6F 75 72 73 20 20 64 65 20 20 67 72 61 s cours de gra
000020: 70 68 69 73 6D 65 20 20 73 61 6E 73 20 20 71 75 phisme sans qu
000030: 27 69 6C 20 20 73 6F 69 74 20 20 6E 7B 63 7B 73 'il soit n{c{s
000040: 73 61 69 72 65 20 20 64 65 20 72 65 63 6F 70 69 saire de recopi
000050: 65 72 20 6C 65 73 20 0D 0A 20 6F 75 76 72 61 67 er les .. ouvrag
000060: 65 73 20 64 65 20 6E 6F 73 20 63 6F 6E 66 72 7D es de nos confr}
000070: 72 65 73 20 2E 0D 0A 20 0D 0A 20 20 20 20 20 43 res ... .. C
000080: 4F 55 52 53 20 44 45 20 47 52 41 50 48 49 53 4D OURS DE GRAPHISM
000090: 45 20 3A 20 4C 65 73 20 63 6F 75 72 73 20 64 27 E : Les cours d'
0000A0: 61 6E 69 6D 61 74 69 6F 6E 20 67 72 61 70 68 69 animation graphi
0000B0: 71 75 65 20 72 65 6D 70 6C 61 63 65 72 6F 6E 74 que remplaceront
0000C0: 20 6C 27 7B 74 75 64 65 20 0D 0A 20 64 75 20 46 l'{tude .. du F
0000D0: 44 43 20 64 61 6E 73 20 6C 61 20 76 65 72 73 69 DC dans la versi
0000E0: 6F 6E 20 53 4F 53 20 20 50 52 4F 47 52 41 4D 4D on SOS PROGRAMM
0000F0: 45 55 52 53 20 20 31 39 39 30 20 20 2C 20 20 63 EURS 1990 , c
000100: 27 65 73 74 20 64 6F 6E 63 20 70 72 7B 76 75 20 'est donc pr{vu
000110: 2E 20 49 6C 20 66 61 75 74 20 0D 0A 20 74 6F 75 . Il faut .. tou
000120: 74 65 66 6F 69 73 20 6E 6F 74 65 72 20 71 75 65 tefois noter que
000130: 20 70 6F 75 72 20 66 6F 6E 63 74 69 6F 6E 6E 65 pour fonctionne
000140: 72 20 63 6F 72 72 65 63 74 65 6D 65 6E 74 20 2C r correctement ,
000150: 20 6C 61 20 73 7B 72 69 65 20 53 4F 53 20 50 52 la s{rie SOS PR
000160: 4F 47 52 41 4D 4D 45 55 52 53 20 0D 0A 20 64 6F OGRAMMEURS .. do
000170: 69 74 20 63 6F 6D 70 74 65 72 20 61 75 20 6D 6F it compter au mo
000180: 69 6E 73 20 20 31 30 30 20 20 73 6F 75 73 63 72 ins 100 souscr
000190: 69 70 74 65 75 72 73 20 20 28 41 62 6F 6E 6E 65 ipteurs (Abonne
0001A0: 6D 65 6E 74 20 20 70 6F 75 72 20 6C 65 73 20 34 ment pour les 4
0001B0: 20 64 69 73 71 75 65 74 74 65 73 20 0D 0A 20 61 disquettes .. a
0001C0: 6E 6E 75 65 6C 6C 65 73 20 61 76 61 6E 74 20 6C nnuelles avant l
0001D0: 65 20 31 65 72 20 64 7B 63 65 6D 62 72 65 20 38 e 1er d{cembre 8
0001E0: 39 29 20 20 2E 20 20 41 62 6F 6E 6E 65 7A 20 20 9) . Abonnez
0001F0: 76 6F 75 73 20 2C 20 61 62 6F 6F 6E 65 7A 20 76 vous , aboonez v
Size : 512 (Real : 512)
000000: 6F 73 20 61 6D 69 73 20 70 6F 75 72 20 0D 0A 20 os amis pour ..
000010: 6E 6F 65 6C 20 2C 20 76 6F 74 72 65 20 63 6F 6E noel , votre con
000020: 63 69 65 72 67 65 20 2C 20 76 6F 74 72 65 20 63 cierge , votre c
000030: 68 69 65 6E 20 2C 20 65 74 63 20 2E 2E 2E 0D 0A hien , etc .....
000040: 20 0D 0A 20 20 20 20 20 47 7B 6E 7B 72 61 74 65 .. G{n{rate
000050: 75 72 20 64 65 20 73 70 72 69 74 65 73 20 3A 20 ur de sprites :
000060: 20 4D 65 72 63 69 20 20 64 65 20 20 6C 27 69 6E Merci de l'in
000070: 74 7B 72 65 08 5E 74 20 20 71 75 65 20 20 76 6F t{re.^t que vo
000080: 75 73 20 20 6C 75 69 20 74 7B 6D 6F 69 67 6E 65 us lui t{moigne
000090: 7A 20 2E 20 0D 0A 20 52 7B 70 6F 6E 73 65 20 64 z . .. R{ponse d
0000A0: 61 6E 73 20 69 6E 66 6F 72 6D 61 74 69 6F 6E 73 ans informations
0000B0: 20 55 54 49 4C 2D 53 4F 46 54 20 2E 0D 0A 20 0D UTIL-SOFT ... .
0000C0: 0A 20 20 20 20 20 53 63 72 6F 6C 6C 69 6E 67 20 . Scrolling
0000D0: 3A 20 56 6F 69 72 20 64 61 6E 73 20 6C 27 61 75 : Voir dans l'au
0000E0: 72 65 20 73 65 63 74 69 6F 6E 20 72 7B 70 6F 6E re section r{pon
0000F0: 73 65 73 20 2E 0D 0A 20 0D 0A 20 20 20 20 20 20 ses ... ..
000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000110: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000120: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000130: 2D 2D 2D 0D 0A 20 1A 20 20 20 20 20 20 20 20 20 ---.. .
000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000150: 20 20 2D 20 52 45 50 4F 4E 53 45 53 20 44 49 56 - REPONSES DIV
000160: 45 52 53 45 53 20 2D 0D 0A 20 20 20 20 20 20 20 ERSES -..
000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000180: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000190: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
Size : 512 (Real : 512)
000000: 8F CD B3 90 2A 1E 8F CD 1F 8E CD 08 8F C3 06 BB ....*...........
000010: CD 49 8E C3 93 8E 20 43 4F 4E 56 45 52 54 49 52 .I.... CONVERTIR
000020: 20 3F A0 20 3D A0 00 00 00 00 00 00 00 00 00 00 ?. =...........
000030: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000040: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000050: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000100: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000110: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000120: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000130: 00 FD 2A 6B 9F E5 FD E5 E1 F5 CD 75 BB F1 E1 C9 ..*k.......u....
000140: 21 3A 95 CD B3 90 21 A8 91 18 56 21 F1 94 18 51 !:....!...V!...Q
000150: 21 F9 94 18 4C 21 0A 95 18 47 21 01 95 18 42 21 !...L!...G!...B!
000160: 12 95 18 3D 21 40 95 18 38 21 46 95 18 33 E5 21 ...=!@..8!F..3.!
000170: 1A 95 18 22 E5 21 22 95 18 04 E5 21 32 95 CD B3 ...".!"....!2...
000180: 90 21 E2 94 18 16 E5 21 22 95 18 0A E5 21 2A 95 .!.....!"....!*.
000190: 18 04 E5 21 32 95 CD B3 90 21 D3 94 CD B3 90 E1 ...!2....!......
0001A0: C9 18 18 CD B3 90 18 27 FD 21 17 02 F5 CD 2D 90 .......'.!....-.
0001B0: 18 0A E5 21 84 87 CD B3 90 E1 C9 F5 7E FE 80 30 ...!........~..0
0001C0: 06 CD 5A BB 23 18 F5 E6 7F 23 CD 5A BB F1 C9 F5 ..Z.#....#.Z....
0001D0: 3E 0A CD 5A BB 3E 0D 18 F1 F5 3E 20 18 EC F5 3E >..Z.>....> ...>
0001E0: 18 18 E7 F5 3E 07 18 E2 CD B3 90 18 EC CD B3 90 ....>...........
0001F0: CD D1 90 F5 3E 26 18 D2 CD D6 90 18 06 CD D6 90 ....>&..........
Size : 512 (Real : 512)
000000: CD D1 90 CD B3 90 CD D1 90 CD D6 90 C3 D1 90 CD ................
000010: F5 90 18 DF CD 1C 91 3E 12 C3 5A BB CD 1C 91 3E .......>..Z....>
000020: 14 C3 5A BB E5 26 01 6F CD 75 BB E1 C9 CD 75 BB ..Z..&.o.u....u.
000030: 21 47 91 CD B3 90 CD 39 91 F5 3E 11 CD 5A BB F1 !G.....9..>..Z..
000040: C9 CD 18 BB E6 DF FE 4E C8 FE 4F 20 F4 37 C9 18 .......N..O .7..
000050: 20 4F 4B 20 3F 20 28 4F 2F 4E 29 20 18 87 18 20 OK ? (O/N) ...
000060: 53 4F 53 20 50 52 4F 47 52 41 4D 4D 45 55 52 53 SOS PROGRAMMEURS
000070: 20 2D 20 45 74 75 64 65 20 64 75 20 46 44 43 20 - Etude du FDC
000080: 2D 20 28 43 29 20 4D 2E 4D 41 49 47 52 4F 54 20 - (C) M.MAIGROT
000090: 41 4F 55 54 38 39 20 18 20 20 20 18 20 55 20 54 AOUT89 . . U T
0000A0: 20 49 20 4C 20 2D 20 53 20 4F 20 46 20 54 20 18 I L - S O F T .
0000B0: 1A 00 4F 01 98 1F 01 04 20 5B 41 5D 20 54 65 73 ..O..... [A] Tes
0000C0: 74 65 72 20 65 74 61 74 20 64 72 69 76 65 20 0A ter etat drive .
0000D0: 0D 20 5B 42 5D 20 50 61 72 61 6D 65 74 72 65 72 . [B] Parametrer
0000E0: 20 70 72 6F 67 72 2E 20 0A 0D 20 5B 43 5D 20 43 progr. .. [C] C
0000F0: 6F 6E 76 65 72 73 2E 6E 75 6D 65 72 69 71 75 65 onvers.numerique
000100: 20 0A 0D 20 5B 44 5D 20 46 6F 72 6D 61 74 20 20 .. [D] Format
000110: 20 72 65 67 75 6C 69 65 72 20 0A 0D 20 5B 45 5D regulier .. [E]
000120: 20 46 6F 72 6D 61 74 20 69 72 72 65 67 75 6C 69 Format irreguli
000130: 65 72 20 0A 0D 20 5B 46 5D 20 41 6E 61 6C 79 73 er .. [F] Analys
000140: 65 20 64 65 20 70 69 73 74 65 73 20 0A 0D 20 5B e de pistes .. [
000150: 47 5D 20 4C 69 72 65 20 64 6F 6E 6E 65 65 73 20 G] Lire donnees
000160: 73 65 63 2E 20 0A 0D 20 5B 48 5D 20 52 65 70 72 sec. .. [H] Repr
000170: 6F 64 75 69 72 65 20 73 65 63 74 73 2E 20 0A 0D oduire sects. ..
000180: 20 5B 49 5D 20 4C 69 72 65 20 20 75 6E 65 20 20 [I] Lire une
000190: 20 70 69 73 74 65 20 0A 0D 20 5B 4A 5D 20 53 61 piste .. [J] Sa
0001A0: 75 76 65 72 20 62 75 66 66 65 72 2E 62 69 6E 20 uver buffer.bin
0001B0: 0A 0D 20 5B 4B 5D 20 43 68 61 72 67 65 20 62 75 .. [K] Charge bu
0001C0: 66 66 65 72 2E 62 69 6E 20 0A 0D 20 5B 4C 5D 20 ffer.bin .. [L]
0001D0: 43 72 65 65 20 70 69 73 74 65 20 62 75 66 66 65 Cree piste buffe
0001E0: 72 20 0A 0D 20 5B 51 5D 20 51 75 69 74 74 65 72 r .. [Q] Quitter
0001F0: 20 70 72 6F 67 72 61 6D 6D 65 20 0A 8D 0A 0D 18 programme .....
Size : 512 (Real : 512)
000000: 45 55 4C 20 20 4C 44 20 41 2C 28 4E 42 53 45 43 EUL LD A,(NBSEC
000010: 29 20 20 20 20 3B 54 65 73 74 65 72 20 73 69 20 ) ;Tester si
000020: 75 6E 20 73 65 75 6C 20 73 65 63 74 65 75 72 20 un seul secteur
000030: 73 75 72 20 6C 61 20 70 69 73 74 65 0D 0A 20 20 sur la piste..
000040: 20 20 20 20 20 20 44 45 43 20 41 1A 2D 21 2D 2D DEC A.-!--
000050: 2D 21 2D 2D 2D 21 2D 2D 2D 21 2D 2D 2D 21 2D 2D -!---!---!---!--
000060: 2D 21 2D 2D 2D 21 2D 2D 2D 21 2D 2D 2D 21 2D 2D -!---!---!---!--
000070: 2D 21 2D 2D 2D 21 2D 2D 2D 21 2D 2D 2D 21 2D 2D -!---!---!---!--
000080: 65 75 72 20 72 65 73 74 65 20 64 61 6E 73 20 43 eur reste dans C
000090: 20 6A 75 73 71 75 27 61 20 6C 61 20 66 69 6E 0D jusqu'a la fin.
0000A0: 0A 20 20 20 20 20 20 20 20 4C 44 20 41 2C 28 44 . LD A,(D
0000B0: 45 29 20 20 20 20 20 20 20 3B 45 74 61 74 20 64 E) ;Etat d
0000C0: 27 65 72 72 65 75 72 0D 0A 20 20 20 20 20 20 20 'erreur..
0000D0: 20 41 4E 44 20 25 30 30 30 30 30 30 31 31 20 20 AND %00000011
0000E0: 20 3B 4D 41 4D 20 26 20 44 41 4D 20 3F 0D 0A 20 ;MAM & DAM ?..
0000F0: 20 20 20 20 20 20 20 4A 52 20 5A 2C 4E 4F 4D 41 JR Z,NOMA
000100: 4D 44 41 09 3B 4E 4F 4E 20 2C 20 63 6F 6E 74 69 MDA.;NON , conti
000110: 6E 75 65 72 0D 0A 3B 0D 0A 20 20 20 20 20 20 20 nuer..;..
000120: 20 4C 44 20 49 59 2C 46 4C 41 47 4D 41 4D 20 20 LD IY,FLAGMAM
000130: 20 3B 4F 75 69 20 6D 61 72 71 75 65 72 20 65 74 ;Oui marquer et
000140: 20 73 61 75 74 65 72 20 61 75 20 73 75 69 76 61 sauter au suiva
000150: 6E 74 0D 0A 20 20 20 20 20 20 20 20 49 4E 43 20 nt.. INC
000160: 28 49 59 2B 30 29 0D 0A 20 20 20 20 20 20 20 20 (IY+0)..
000170: 4A 52 20 54 45 53 54 4F 55 54 0D 0A 3B 0D 0A 4E JR TESTOUT..;..N
000180: 4F 4D 41 4D 44 41 20 4C 44 20 41 2C 28 44 45 29 OMAMDA LD A,(DE)
000190: 09 09 3B 52 65 70 72 65 6E 64 72 65 20 65 74 61 ..;Reprendre eta
0001A0: 74 20 64 27 65 72 72 65 75 72 0D 0A 20 20 20 20 t d'erreur..
0001B0: 20 20 20 20 41 4E 44 20 25 30 30 31 30 30 31 30 AND %0010010
0001C0: 30 20 20 20 3B 43 52 20 26 20 44 44 0D 0A 20 20 0 ;CR & DD..
0001D0: 20 20 20 20 20 20 43 50 20 25 30 30 31 30 30 31 CP %001001
0001E0: 30 30 09 3B 49 4C 20 6E 6F 75 73 20 66 61 75 74 00.;IL nous faut
0001F0: 20 56 52 41 49 4D 45 4E 54 20 4C 45 53 20 32 20 VRAIMENT LES 2
Tous droits réservés. Reproduction sans autorisation interdite. © Kukulcan