SOS Programmeurs Issue 4 (F) (Face B) (1989) [DISCMAG].dsk
HexaDumpAscii only
000000: 45 58 54 45 4E 44 45 44 20 43 50 43 20 44 53 4B EXTENDED CPC DSK
000010: 20 46 69 6C 65 0D 0A 44 69 73 6B 2D 49 6E 66 6F File..Disk-Info
000020: 0D 0A 53 41 4D 64 69 73 6B 31 33 30 36 32 35 00 ..SAMdisk130625.
000030: 28 01 00 00 13 13 13 13 13 13 13 13 13 13 13 13 (...............
000040: 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 ................
000050: 13 13 13 13 13 13 13 13 13 13 13 13 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: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
000110: 00 00 01 00 02 09 4E E5 00 00 C1 02 00 00 00 02 ......N.........
000120: 00 00 C2 02 00 00 00 02 00 00 C3 02 00 00 00 02 ................
000130: 00 00 C4 02 00 00 00 02 00 00 C5 02 00 00 00 02 ................
000140: 00 00 C6 02 00 00 00 02 00 00 C7 02 00 00 00 02 ................
000150: 00 00 C8 02 00 00 00 02 00 00 C9 02 00 00 00 02 ................
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 ................
000200: 00 DE 43 4F 50 53 54 4F 4B 41 53 43 00 3C 00 74 ..COPSTOKASC.<.t
000210: 02 03 04 05 06 07 08 09 0A 0B 0C 11 12 13 14 00 ................
000220: 00 DE 43 4F 50 41 4E 41 4C 41 53 43 00 03 00 80 ..COPANALASC....
000230: 15 16 17 18 19 1A 1B 1C 1D 31 32 33 34 35 36 37 .........1234567
000240: 00 5E 43 4F 50 47 41 50 32 41 53 43 00 00 00 64 .^COPGAP2ASC...d
000250: 1E 1F 20 21 22 23 24 2B 2C 2D 2E 2F 30 00 00 00 .. !"#$+,-./0...
000260: 00 DE 43 4F 50 41 4E 41 4C 41 53 43 01 03 00 2E ..COPANALASC....
000270: 38 39 3A 3B 67 68 00 00 00 00 00 00 00 00 00 00 89:;gh..........
000280: 00 46 44 43 20 20 20 20 20 42 41 53 00 00 00 39 .FDC BAS...9
000290: 25 26 27 28 29 2A 57 6A 00 00 00 00 00 00 00 00 %&'()*Wj........
0002A0: 00 DE 46 44 43 34 4D 45 20 41 53 43 00 26 00 0C ..FDC4ME ASC.&..
0002B0: 3C 3D 00 00 00 00 00 00 00 00 00 00 00 00 00 00 <=..............
0002C0: 00 4C 45 43 54 45 55 52 35 43 4F 44 00 00 00 08 .LECTEUR5COD....
0002D0: 44 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 D...............
0002E0: 00 DE 43 4F 50 47 41 50 31 41 53 43 00 61 00 80 ..COPGAP1ASC.a..
0002F0: 4F 50 51 52 53 54 55 5F 60 61 62 63 64 65 66 7A OPQRSTU_`abcdefz
000300: 00 DE 43 4F 50 45 43 52 41 41 53 43 00 11 00 80 ..COPECRAASC....
000310: 56 58 59 5A 5B 5C 5D 5E 71 72 73 74 7C 85 86 8E VXYZ[\]^qrst|...
000320: 00 DE 43 4F 50 45 43 52 41 41 53 43 01 11 00 02 ..COPECRAASC....
000330: 8F 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000340: 00 5E 43 4F 50 52 4F 55 54 41 53 43 00 00 00 79 .^COPROUTASC...y
000350: 0D 0E 0F 10 6B 6C 6D 6E 6F 70 75 76 78 79 A7 A8 ....klmnopuvxy..
000360: 00 DE 43 4F 50 49 4E 49 54 41 53 43 00 6F 00 80 ..COPINITASC.o..
000370: 77 7D 7E 7F 80 81 82 83 84 87 88 89 8A 8B 8C 8D w}~.............
000380: 00 DE 43 4F 50 49 4E 49 54 41 53 43 01 6F 00 21 ..COPINITASC.o.!
000390: 90 91 92 93 94 00 00 00 00 00 00 00 00 00 00 00 ................
0003A0: 00 DE 43 4F 50 47 41 50 31 41 53 43 01 61 00 32 ..COPGAP1ASC.a.2
0003B0: 7B 95 96 97 98 99 9A 00 00 00 00 00 00 00 00 00 {...............
0003C0: 00 DE 46 44 43 54 48 45 4F 41 53 43 00 5F 00 80 ..FDCTHEOASC._..
0003D0: 3E 3F 40 41 42 43 49 4A 4B 4C 4D 4E 69 9B 9C 9D >?@ABCIJKLMNi...
0003E0: 00 DE 46 44 43 54 48 45 4F 41 53 43 01 5F 00 10 ..FDCTHEOASC._..
0003F0: 9E 9F 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000400: 00 DE 43 4F 50 45 43 52 49 41 53 43 00 6E 00 38 ..COPECRIASC.n.8
000410: A0 A1 A2 A3 A4 A5 A6 00 00 00 00 00 00 00 00 00 ...£............
000420: 00 52 53 58 50 52 54 20 20 43 4F 44 00 00 00 15 .RSXPRT COD....
000430: 45 46 47 00 00 00 00 00 00 00 00 00 00 00 00 00 EFG.............
000440: 00 2D 49 4E 4B 2D 49 4E 54 42 49 4E 00 00 00 03 .-INK-INTBIN....
000450: 48 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 H...............
000460: 00 21 52 45 50 44 49 56 34 41 53 43 00 00 00 4B .!REPDIV4ASC...K
000470: A9 AA AB AC AD AE AF B0 B1 B2 00 00 00 00 00 00 ................
000480: E5 DE 46 44 43 4E 4F 54 49 42 41 4B 00 2C 00 1E ..FDCNOTIBAK.,..
000490: AC AD AE AF 00 00 00 00 00 00 00 00 00 00 00 00 ................
0004A0: E5 46 44 43 42 55 46 46 20 4D 41 58 00 00 00 5B .FDCBUFF MAX...[
0004B0: 85 86 87 88 89 8A 8B 8C 8D 8E 8F 90 00 00 00 00 ................
0004C0: E5 46 44 43 46 4F 52 4D 20 4D 41 58 00 00 00 3F .FDCFORM MAX...?
0004D0: 91 92 93 94 95 96 97 98 00 00 00 00 00 00 00 00 ................
0004E0: E5 46 44 43 49 44 53 20 20 4D 41 58 00 00 00 15 .FDCIDS MAX....
0004F0: 99 9A 9B 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000500: E5 46 44 43 49 4E 49 54 20 4D 41 58 00 00 00 2E .FDCINIT MAX....
000510: 9C 9D 9E 9F A0 A1 00 00 00 00 00 00 00 00 00 00 ................
000520: E5 46 44 43 52 4F 55 54 20 4D 41 58 00 00 00 6F .FDCROUT MAX...o
000530: A2 A3 A4 A5 A6 A7 A8 A9 AA AB AC AD AE AF 00 00 .£..............
000540: E5 46 44 43 52 57 20 20 20 24 24 24 00 00 00 20 .FDCRW $$$...
000550: B0 B1 B2 B3 00 00 00 00 00 00 00 00 00 00 00 00 ................
000560: E5 55 53 4E 41 47 45 20 20 45 43 43 00 00 00 3A .USNAGE ECC...:
000570: 90 91 92 93 A5 A6 A9 AA 00 00 00 00 00 00 00 00 ................
000580: E5 DE 45 44 49 54 4F 33 20 41 53 43 00 4B 00 29 ..EDITO3 ASC.K.)
000590: 21 31 96 97 98 99 00 00 00 00 00 00 00 00 00 00 !1..............
0005A0: E5 2D 49 4E 4B 2D 49 4E 54 42 49 4E 00 00 00 03 .-INK-INTBIN....
0005B0: 03 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0005C0: E5 55 53 50 55 42 33 20 20 42 41 4B 00 00 00 09 .USPUB3 BAK....
0005D0: AB AC 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0005E0: E5 2D 50 41 53 57 4F 52 44 20 20 20 00 00 00 0F .-PASWORD ....
0005F0: 7D 85 00 00 00 00 00 00 00 00 00 00 00 00 00 00 }...............
000600: E5 2D 4B 45 59 2D 45 53 20 20 20 20 00 00 00 0D .-KEY-ES ....
000610: 58 59 00 00 00 00 00 00 00 00 00 00 00 00 00 00 XY..............
000620: E5 55 53 50 55 42 33 20 20 42 41 4B 00 00 00 09 .USPUB3 BAK....
000630: AD AE 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000640: E5 54 45 53 54 20 20 20 20 42 49 4E 00 00 00 04 .TEST BIN....
000650: 80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000660: E5 55 53 50 55 42 33 20 20 42 41 53 00 00 00 09 .USPUB3 BAS....
000670: AF B0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000680: E5 2D 49 4E 54 2D 44 45 4D 42 41 4B 00 00 00 0A .-INT-DEMBAK....
000690: 29 2F 00 00 00 00 00 00 00 00 00 00 00 00 00 00 )/..............
0006A0: E5 2D 49 4E 54 45 52 53 20 20 20 20 00 00 00 0A .-INTERS ....
0006B0: 2D 35 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -5..............
0006C0: E5 58 20 20 20 20 20 20 20 42 41 4B 00 00 00 03 .X BAK....
0006D0: AA 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0006E0: E5 2D 49 4E 54 46 52 45 49 4D 41 58 00 00 00 08 .-INTFREIMAX....
0006F0: 70 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 p...............
000700: E5 2D 49 4E 54 46 52 45 49 42 41 4B 00 00 00 28 .-INTFREIBAK...(
000710: 23 4B AE AF B0 00 00 00 00 00 00 00 00 00 00 00 #K..............
000720: E5 58 20 20 20 20 20 20 20 42 41 53 00 00 00 0B .X BAS....
000730: B2 B3 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000740: E5 58 20 20 20 20 20 20 20 42 41 53 00 00 00 0B .X BAS....
000750: B2 B3 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0007A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0007B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0007C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0007D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0007E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0007F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0008A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0008B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0008C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0008D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0008E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0008F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000900: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000910: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000920: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000930: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000940: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000950: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000960: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000970: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000980: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000990: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0009A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0009B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0009C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0009D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0009E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0009F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000A00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000A10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000A20: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A --------------..
000A30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000A40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2D -
000A50: 20 52 45 50 52 4F 44 55 43 54 49 4F 4E 20 2D 0D REPRODUCTION -.
000A60: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
000A70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000A80: 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D --------------.
000A90: 0A 20 0D 0A 20 20 20 20 20 4C 65 73 20 73 65 63 . .. Les sec
000AA0: 74 69 6F 6E 73 20 70 72 7B 63 7B 64 65 6E 74 65 tions pr{c{dente
000AB0: 73 20 61 79 61 6E 74 20 72 65 63 75 65 75 6C 6C s ayant recueull
000AC0: 69 20 74 6F 75 74 65 73 20 6C 65 73 20 69 6E 66 i toutes les inf
000AD0: 6F 72 6D 61 74 69 6F 6E 73 20 75 74 69 6C 65 73 ormations utiles
000AE0: 20 2C 0D 0A 20 69 6C 20 65 73 74 20 6D 61 69 6E ,.. il est main
000AF0: 74 65 6E 61 6E 74 20 70 6F 73 73 69 62 6C 65 20 tenant possible
000B00: 64 65 20 20 6C 69 72 65 20 20 65 74 20 20 64 65 de lire et de
000B10: 20 20 73 74 6F 63 6B 65 72 20 20 6C 65 20 63 6F stocker le co
000B20: 6E 74 65 6E 75 20 64 65 73 20 73 65 63 74 65 75 ntenu des secteu
000B30: 72 73 0D 0A 20 61 63 63 65 73 73 69 62 6C 65 73 rs.. accessibles
000B40: 20 2E 0D 0A 20 20 20 20 20 53 69 20 6C 61 20 70 ... Si la p
000B50: 69 73 74 65 20 6E 27 65 73 74 20 70 61 73 20 66 iste n'est pas f
000B60: 6F 72 6D 61 74 7B 65 20 2C 20 20 6F 6E 20 73 65 ormat{e , on se
000B70: 20 63 6F 6E 74 65 6E 74 65 72 61 20 64 65 20 6D contentera de m
000B80: 7B 6D 6F 72 69 73 65 72 20 6C 65 20 6E 75 6D 7B {moriser le num{
000B90: 72 6F 0D 0A 20 65 74 20 6C 65 20 66 6C 61 67 20 ro.. et le flag
000BA0: 64 27 7B 74 61 74 20 64 65 20 6C 61 20 70 69 73 d'{tat de la pis
000BB0: 74 65 20 2E 20 53 69 6E 6F 6E 20 20 2C 20 61 76 te . Sinon , av
000BC0: 61 6E 74 20 6C 65 20 73 74 6F 63 6B 61 67 65 20 ant le stockage
000BD0: 2C 20 6F 6E 20 76 7B 72 69 66 69 65 72 61 20 71 , on v{rifiera q
000BE0: 75 65 0D 0A 20 6C 65 20 6E 6F 6D 62 72 65 20 20 ue.. le nombre
000BF0: 64 65 20 20 73 65 63 74 65 75 72 73 20 20 65 74 de secteurs et
000C00: 20 20 6C 61 20 20 74 61 69 6C 6C 65 20 20 64 75 la taille du
000C10: 20 20 47 41 50 20 20 63 61 6C 63 75 6C 7B 73 20 GAP calcul{s
000C20: 20 70 61 72 20 20 6C 65 73 20 72 6F 75 74 69 6E par les routin
000C30: 65 73 0D 0A 20 70 72 7B 63 7B 64 65 6E 74 65 73 es.. pr{c{dentes
000C40: 20 6E 65 20 73 6F 6E 74 20 70 61 73 20 65 78 63 ne sont pas exc
000C50: 65 73 73 69 66 73 20 20 2E 20 20 51 75 6F 69 71 essifs . Quoiq
000C60: 75 65 20 20 74 72 7D 73 20 20 72 61 72 65 20 2C ue tr}s rare ,
000C70: 20 63 65 74 74 65 20 7B 76 65 6E 74 75 61 6C 69 cette {ventuali
000C80: 74 7B 0D 0A 20 70 65 75 74 20 73 75 72 76 65 6E t{.. peut surven
000C90: 69 72 20 61 76 65 63 20 64 65 73 20 70 69 73 74 ir avec des pist
000CA0: 65 73 20 74 72 7D 73 20 73 70 7B 63 69 61 6C 65 es tr}s sp{ciale
000CB0: 73 20 2E 0D 0A 20 20 20 20 20 49 6C 20 6E 65 20 s ... Il ne
000CC0: 66 61 75 74 20 70 61 73 20 6F 75 62 6C 69 65 72 faut pas oublier
000CD0: 20 71 75 27 75 6E 20 70 61 73 73 61 67 65 20 20 qu'un passage
000CE0: 70 61 72 20 6C 61 20 72 6F 75 74 69 6E 65 20 45 par la routine E
000CF0: 43 52 41 53 45 52 20 61 75 72 61 20 6D 6F 64 69 CRASER aura modi
000D00: 66 69 7B 0D 0A 20 6C 65 20 20 6E 6F 6D 62 72 65 fi{.. le nombre
000D10: 20 20 64 65 73 20 20 73 65 63 74 65 75 72 73 20 des secteurs
000D20: 20 73 75 72 20 20 6C 61 20 20 70 69 73 74 65 20 sur la piste
000D30: 20 2E 20 20 44 61 6E 73 20 20 63 65 20 20 63 61 . Dans ce ca
000D40: 73 20 20 2C 20 20 63 65 73 20 20 73 65 63 74 65 s , ces secte
000D50: 75 72 73 0D 0A 20 73 75 70 70 6C 7B 6D 65 6E 74 urs.. suppl{ment
000D60: 61 69 72 65 73 20 64 6F 69 76 65 6E 74 20 65 08 aires doivent e.
000D70: 5E 74 72 65 20 54 4F 54 41 4C 45 4D 45 4E 54 20 ^tre TOTALEMENT
000D80: 49 47 4E 4F 52 45 53 20 20 63 61 72 20 20 69 6C IGNORES car il
000D90: 73 20 6E 27 65 78 69 73 74 65 72 6F 6E 74 20 71 s n'existeront q
000DA0: 75 65 20 64 65 0D 0A 20 6D 61 6E 69 7D 72 65 20 ue de.. mani}re
000DB0: 7B 70 68 7B 6D 7D 72 65 20 6C 6F 72 73 20 64 75 {ph{m}re lors du
000DC0: 20 66 6F 72 6D 61 74 61 67 65 20 64 65 20 6C 61 formatage de la
000DD0: 20 63 6F 70 69 65 20 21 0D 0A 20 3B 0D 0A 20 3B copie !.. ;.. ;
000DE0: 2D 20 53 74 6F 63 6B 65 72 20 75 6E 65 20 70 69 - Stocker une pi
000DF0: 73 74 65 20 63 6F 6D 70 6C 65 74 65 20 2E 20 53 ste complete . S
000E00: 69 20 62 75 66 66 65 72 20 70 6C 65 69 6E 20 72 i buffer plein r
000E10: 65 74 6F 75 72 20 61 76 65 63 20 4E 43 20 2D 0D etour avec NC -.
000E20: 0A 20 3B 0D 0A 20 53 54 4F 4B 50 49 53 54 20 4C . ;.. STOKPIST L
000E30: 44 20 48 4C 2C 54 53 54 4F 4B 50 20 20 20 3B 4D D HL,TSTOKP ;M
000E40: 65 73 73 61 67 65 20 73 74 6F 63 6B 65 20 70 69 essage stocke pi
000E50: 73 74 65 0D 0A 20 20 20 20 20 20 20 20 20 43 41 ste.. CA
000E60: 4C 4C 20 50 52 54 0D 0A 20 20 20 20 20 20 20 20 LL PRT..
000E70: 20 58 4F 52 20 41 0D 0A 20 20 20 20 20 20 20 20 XOR A..
000E80: 20 4C 44 20 28 46 4C 41 47 29 2C 41 20 20 20 20 LD (FLAG),A
000E90: 20 3B 46 4C 41 47 20 6E 65 20 73 65 72 74 20 71 ;FLAG ne sert q
000EA0: 75 65 20 70 6F 75 72 20 70 6F 73 69 74 69 6F 6E ue pour position
000EB0: 6E 65 72 20 75 6E 20 74 65 78 74 65 0D 0A 20 3B ner un texte.. ;
000EC0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
000ED0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000EE0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000EF0: 2D 2D 2D 0D 0A 20 0D 0A 20 20 20 20 20 41 70 72 ---.. .. Apr
000F00: 7D 73 20 63 65 74 74 65 20 62 72 7D 76 65 20 69 }s cette br}ve i
000F10: 6E 69 74 69 61 6C 69 73 61 74 69 6F 6E 20 2C 20 nitialisation ,
000F20: 6F 6E 20 20 63 6F 6D 6D 65 6E 63 65 20 70 61 72 on commence par
000F30: 20 72 61 6E 67 65 72 20 6C 65 73 20 70 61 72 61 ranger les para
000F40: 6D 7D 74 72 65 73 0D 0A 20 67 7B 6E 7B 72 61 75 m}tres.. g{n{rau
000F50: 78 20 63 6F 6E 63 65 72 6E 61 6E 74 20 6C 61 20 x concernant la
000F60: 70 69 73 74 65 20 2E 0D 0A 20 0D 0A 20 20 20 20 piste ... ..
000F70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000F80: 20 20 20 20 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D ------
000F90: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 -------------..
000FA0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 48 ;.. LD H
000FB0: 4C 2C 28 50 4F 49 4E 50 49 53 29 20 3B 50 6F 69 L,(POINPIS) ;Poi
000FC0: 6E 74 65 75 72 20 62 75 66 66 65 72 20 64 65 62 nteur buffer deb
000FD0: 75 74 20 70 69 73 74 65 0D 0A 20 20 20 20 20 20 ut piste..
000FE0: 20 20 20 4C 44 20 41 2C 28 50 49 53 54 53 45 4C LD A,(PISTSEL
000FF0: 29 20 20 3B 52 61 6E 67 65 72 20 70 69 73 74 65 ) ;Ranger piste
001000: 20 65 74 20 6F 63 74 65 74 20 65 74 61 74 20 70 et octet etat p
001010: 69 73 74 65 0D 0A 20 20 20 20 20 20 20 20 20 4C iste.. L
001020: 44 20 28 48 4C 29 2C 41 20 20 20 20 20 20 20 3B D (HL),A ;
001030: 4E 75 6D 7B 72 6F 20 64 65 20 70 69 73 74 65 0D Num{ro de piste.
001040: 0A 20 20 20 20 20 20 20 20 20 49 4E 43 20 48 4C . INC HL
001050: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 41 2C .. LD A,
001060: 28 46 4C 41 47 46 4E 43 29 20 20 3B 46 6C 61 67 (FLAGFNC) ;Flag
001070: 20 64 65 73 20 65 72 72 65 75 72 73 20 70 69 73 des erreurs pis
001080: 74 65 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 te.. LD
001090: 28 48 4C 29 2C 41 20 20 20 20 20 20 20 3B 43 65 (HL),A ;Ce
0010A0: 73 20 64 65 75 78 20 64 6F 6E 6E 65 65 73 20 7B s deux donnees {
0010B0: 74 61 6E 74 20 72 61 6E 67 65 65 73 20 2C 20 6F tant rangees , o
0010C0: 6E 20 73 74 6F 63 6B 65 20 6C 61 0D 0A 20 20 20 n stocke la..
0010D0: 20 20 20 20 20 20 49 4E 43 20 48 4C 20 20 20 20 INC HL
0010E0: 20 20 20 20 20 20 3B 70 6F 73 69 74 69 6F 6E 20 ;position
0010F0: 64 75 20 6E 6F 75 76 65 61 75 20 70 6F 69 6E 74 du nouveau point
001100: 65 75 72 20 2E 20 53 69 20 6C 61 20 70 69 73 74 eur . Si la pist
001110: 65 20 6E 27 65 73 74 0D 0A 20 20 20 20 20 20 20 e n'est..
001120: 20 20 4C 44 20 28 50 4F 49 4E 50 49 53 29 2C 48 LD (POINPIS),H
001130: 4C 20 3B 70 61 73 20 66 6F 72 6D 61 74 65 65 20 L ;pas formatee
001140: 63 65 20 73 65 72 61 20 74 6F 75 74 20 2E 0D 0A ce sera tout ...
001150: 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 ;..
001160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
001170: 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D --------------
001180: 2D 2D 2D 2D 2D 0D 0A 20 0D 0A 20 20 20 20 20 49 -----.. .. I
001190: 63 69 20 6F 6E 20 72 65 63 72 7B 65 20 75 6E 20 ci on recr{e un
0011A0: 6E 6F 75 76 65 6C 20 6F 63 74 65 74 20 20 64 27 nouvel octet d'
0011B0: 69 6E 66 6F 72 6D 61 74 69 6F 6E 20 20 73 75 72 information sur
0011C0: 20 20 6C 27 65 74 61 74 20 64 65 20 6C 61 20 70 l'etat de la p
0011D0: 69 73 74 65 20 71 75 65 0D 0A 20 6C 27 6F 6E 20 iste que.. l'on
0011E0: 72 61 6E 67 65 20 64 61 6E 73 20 75 6E 65 20 6C range dans une l
0011F0: 69 73 74 65 20 73 7B 70 61 72 7B 65 20 70 6F 75 iste s{par{e pou
001200: 72 20 70 6F 75 76 6F 69 72 20 6C 65 20 72 65 6C r pouvoir le rel
001210: 69 72 65 20 65 6E 20 66 69 6E 20 64 65 20 63 6F ire en fin de co
001220: 70 69 65 20 2E 0D 0A 20 0D 0A 20 20 20 20 20 20 pie ... ..
001230: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
001240: 20 20 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D --------
001250: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 3B 0D -----------.. ;.
001260: 0A 20 3B 2D 20 43 6F 6D 70 6F 73 65 72 20 65 74 . ;- Composer et
001270: 61 74 20 70 69 73 74 65 20 2D 0D 0A 20 3B 0D 0A at piste -.. ;..
001280: 20 20 20 20 20 20 20 20 20 4C 44 20 48 4C 2C 28 LD HL,(
001290: 50 4F 49 4E 45 52 50 29 20 3B 4D 65 74 74 72 65 POINERP) ;Mettre
0012A0: 20 6C 65 20 6E 75 6D 65 72 6F 20 64 65 20 70 69 le numero de pi
0012B0: 73 74 65 20 64 61 6E 73 20 6C 61 20 73 65 72 69 ste dans la seri
0012C0: 65 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 41 e.. LD A
0012D0: 2C 28 50 49 53 54 53 45 4C 29 20 20 3B 64 65 73 ,(PISTSEL) ;des
0012E0: 20 65 72 72 65 75 72 73 20 70 69 73 74 65 73 0D erreurs pistes.
0012F0: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 48 4C . LD (HL
001300: 29 2C 41 20 20 20 20 20 20 20 3B 50 69 73 74 65 ),A ;Piste
001310: 0D 0A 20 20 20 20 20 20 20 20 20 49 4E 43 20 48 .. INC H
001320: 4C 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 L.. LD (
001330: 48 4C 29 2C 30 20 20 20 20 20 20 20 3B 52 41 5A HL),0 ;RAZ
001340: 20 61 75 20 70 61 73 73 61 67 65 0D 0A 20 3B 0D au passage.. ;.
001350: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 41 2C 28 . LD A,(
001360: 46 4C 41 47 46 4E 43 29 0D 0A 20 20 20 20 20 20 FLAGFNC)..
001370: 20 20 20 42 49 54 20 33 2C 41 20 20 20 20 20 20 BIT 3,A
001380: 20 20 20 3B 46 6F 72 6D 61 74 65 65 20 3F 0D 0A ;Formatee ?..
001390: 20 20 20 20 20 20 20 20 20 4A 52 20 5A 2C 50 46 JR Z,PF
0013A0: 20 20 20 20 20 20 20 20 20 3B 4F 55 49 0D 0A 20 ;OUI..
0013B0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 49 4E 43 20 ;.. INC
0013C0: 41 20 20 20 20 20 20 20 20 20 20 20 3B 56 6F 69 A ;Voi
0013D0: 72 20 73 69 20 46 4E 43 20 3D 20 23 46 46 20 73 r si FNC = #FF s
0013E0: 69 20 6F 75 69 20 70 69 73 74 65 20 61 20 6E 65 i oui piste a ne
0013F0: 20 70 61 73 20 74 72 61 69 74 65 72 0D 0A 20 20 pas traiter..
001400: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
001410: 01 00 01 00 02 09 4E E5 01 00 C1 02 00 00 00 02 ......N.........
001420: 01 00 C2 02 00 00 00 02 01 00 C3 02 00 00 00 02 ................
001430: 01 00 C4 02 00 00 00 02 01 00 C5 02 00 00 00 02 ................
001440: 01 00 C6 02 00 00 00 02 01 00 C7 02 00 00 00 02 ................
001450: 01 00 C8 02 00 00 00 02 01 00 C9 02 00 00 00 02 ................
001460: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001470: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001480: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001490: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0014A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0014B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0014C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0014D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0014E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0014F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001500: 20 20 20 20 20 20 20 4A 52 20 4E 5A 2C 54 52 41 JR NZ,TRA
001510: 49 54 45 20 20 20 20 3B 28 49 6E 75 74 69 6C 69 ITE ;(Inutili
001520: 73 65 20 64 61 6E 73 20 63 65 74 74 65 20 76 65 se dans cette ve
001530: 72 73 69 6F 6E 20 64 75 20 70 72 6F 67 72 61 6D rsion du program
001540: 6D 65 29 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 me).. LD
001550: 20 28 48 4C 29 2C 23 46 46 0D 0A 20 3B 0D 0A 20 (HL),#FF.. ;..
001560: 54 52 41 49 54 45 20 20 53 45 54 20 37 2C 28 48 TRAITE SET 7,(H
001570: 4C 29 20 20 20 20 20 20 3B 4C 61 20 70 69 73 74 L) ;La pist
001580: 65 20 6E 27 65 73 74 20 70 61 73 20 66 6F 72 6D e n'est pas form
001590: 61 74 65 65 20 2C 20 6F 6E 20 6C 61 69 73 73 65 atee , on laisse
0015A0: 20 74 6F 6D 62 65 72 0D 0A 20 20 20 20 20 20 20 tomber..
0015B0: 20 20 49 4E 43 20 48 4C 0D 0A 20 20 20 20 20 20 INC HL..
0015C0: 20 20 20 4C 44 20 28 50 4F 49 4E 45 52 50 29 2C LD (POINERP),
0015D0: 48 4C 0D 0A 20 20 20 20 20 20 20 20 20 58 4F 52 HL.. XOR
0015E0: 20 41 0D 0A 20 20 20 20 20 20 20 20 20 52 45 54 A.. RET
0015F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 46 69 ;Fi
001600: 6E 69 20 2E 20 52 69 65 6E 20 6E 27 61 20 65 74 ni . Rien n'a et
001610: 65 20 73 74 6F 63 6B 65 0D 0A 20 3B 0D 0A 20 3B e stocke.. ;.. ;
001620: 2D 20 50 69 73 74 65 20 66 6F 72 6D 61 74 65 65 - Piste formatee
001630: 20 61 20 74 72 61 69 74 65 72 20 2E 20 43 6F 6E a traiter . Con
001640: 74 69 6E 75 65 72 20 2D 0D 0A 20 3B 0D 0A 20 50 tinuer -.. ;.. P
001650: 46 20 20 20 20 20 20 43 41 4C 4C 20 52 45 43 54 F CALL RECT
001660: 49 4E 42 20 3B 54 65 73 74 65 72 20 73 69 20 6C INB ;Tester si l
001670: 65 20 6E 6F 6D 62 72 65 20 64 65 20 73 65 63 74 e nombre de sect
001680: 65 75 72 73 20 64 6F 6E 6E 65 73 20 65 73 74 20 eurs donnes est
001690: 61 64 6D 69 73 73 69 62 6C 65 0D 0A 20 20 20 20 admissible..
0016A0: 20 20 20 20 20 4A 52 20 43 2C 4F 4B 4E 42 53 45 JR C,OKNBSE
0016B0: 43 20 3B 43 41 52 52 59 20 73 69 20 4F 4B 20 4E C ;CARRY si OK N
0016C0: 43 20 73 69 20 6E 6F 6E 20 65 74 20 43 20 63 6F C si non et C co
0016D0: 6E 74 69 65 6E 74 20 4E 42 53 45 43 20 4D 41 58 ntient NBSEC MAX
0016E0: 49 20 2E 20 44 61 6E 73 0D 0A 20 3B 20 20 20 20 I . Dans.. ;
0016F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
001700: 3B 39 39 25 20 64 65 73 20 63 61 73 20 63 27 65 ;99% des cas c'e
001710: 73 74 20 74 6F 75 6A 6F 75 72 73 20 4F 4B 20 67 st toujours OK g
001720: 72 61 63 65 20 61 75 20 72 6F 75 74 69 6E 65 73 race au routines
001730: 0D 0A 20 20 20 20 20 20 20 20 20 53 45 54 20 36 .. SET 6
001740: 2C 28 48 4C 29 20 20 20 3B 70 72 65 63 65 64 65 ,(HL) ;precede
001750: 6E 74 65 73 20 2E 0D 0A 20 20 20 20 20 20 20 20 ntes ...
001760: 20 4C 44 20 41 2C 43 20 20 20 20 20 20 20 3B 52 LD A,C ;R
001770: 65 63 74 69 66 69 65 72 20 4E 42 53 45 43 20 70 ectifier NBSEC p
001780: 6F 75 72 20 6E 65 20 70 61 73 20 70 6C 61 6E 74 our ne pas plant
001790: 65 72 20 6C 65 20 70 72 6F 67 72 61 6D 6D 65 20 er le programme
0017A0: 6D 61 69 73 0D 0A 20 20 20 20 20 20 20 20 20 4C mais.. L
0017B0: 44 20 28 4E 42 53 45 43 29 2C 41 20 3B 6C 61 20 D (NBSEC),A ;la
0017C0: 63 6F 70 69 65 20 73 65 72 61 20 72 61 74 65 65 copie sera ratee
0017D0: 0D 0A 20 3B 0D 0A 20 4F 4B 4E 42 53 45 43 20 4C .. ;.. OKNBSEC L
0017E0: 44 20 41 2C 28 47 41 50 46 4F 52 4D 29 20 20 3B D A,(GAPFORM) ;
0017F0: 56 6F 69 72 20 73 69 20 6C 61 20 6C 6F 6E 67 75 Voir si la longu
001800: 65 75 72 20 64 75 20 47 41 50 20 65 73 74 20 61 eur du GAP est a
001810: 64 6D 69 73 73 69 62 6C 65 20 70 6F 75 72 0D 0A dmissible pour..
001820: 20 20 20 20 20 20 20 20 20 4C 44 20 42 2C 41 20 LD B,A
001830: 20 20 20 20 20 20 20 20 20 3B 6C 65 20 66 6F 72 ;le for
001840: 6D 61 74 0D 0A 20 20 20 20 20 20 20 20 20 50 55 mat.. PU
001850: 53 48 20 42 43 20 20 20 20 20 20 20 20 20 3B 50 SH BC ;P
001860: 72 65 73 65 72 76 65 72 20 47 41 50 23 33 20 74 reserver GAP#3 t
001870: 72 6F 75 76 65 0D 0A 20 20 20 20 20 20 20 20 20 rouve..
001880: 50 55 53 48 20 48 4C 20 20 20 20 20 20 20 20 20 PUSH HL
001890: 3B 50 72 65 73 65 72 76 65 72 20 70 6F 69 6E 74 ;Preserver point
0018A0: 65 75 72 20 65 74 61 74 20 70 69 73 74 65 0D 0A eur etat piste..
0018B0: 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 43 41 CALL CA
0018C0: 4C 49 47 41 50 0D 0A 20 20 20 20 20 20 20 20 20 LIGAP..
0018D0: 43 41 4C 4C 20 53 45 54 47 52 57 20 20 20 20 20 CALL SETGRW
0018E0: 3B 52 65 66 61 69 72 65 20 47 41 50 20 52 57 20 ;Refaire GAP RW
0018F0: 61 75 20 63 61 73 20 6F 75 20 47 41 50 23 33 20 au cas ou GAP#3
001900: 61 75 72 61 69 74 20 65 74 65 20 63 68 61 6E 67 aurait ete chang
001910: 65 0D 0A 20 20 20 20 20 20 20 20 20 50 4F 50 20 e.. POP
001920: 48 4C 0D 0A 20 20 20 20 20 20 20 20 20 50 4F 50 HL.. POP
001930: 20 42 43 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 BC.. ;..
001940: 20 20 4C 44 20 41 2C 28 47 41 50 46 4F 52 4D 29 LD A,(GAPFORM)
001950: 20 20 3B 47 41 50 23 33 20 61 20 63 68 61 6E 67 ;GAP#3 a chang
001960: 65 20 3F 0D 0A 20 20 20 20 20 20 20 20 20 43 50 e ?.. CP
001970: 20 42 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 20 B.. JR
001980: 5A 2C 50 41 52 45 43 54 49 46 20 20 20 3B 4E 4F Z,PARECTIF ;NO
001990: 4E 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 N.. ;..
0019A0: 53 45 54 20 33 2C 28 48 4C 29 20 20 20 20 20 20 SET 3,(HL)
0019B0: 3B 53 69 67 6E 61 6C 65 72 20 71 75 65 20 6C 61 ;Signaler que la
0019C0: 20 74 61 69 6C 6C 65 20 64 75 20 47 41 50 20 61 taille du GAP a
0019D0: 20 65 74 65 20 72 65 63 74 69 66 69 65 65 0D 0A ete rectifiee..
0019E0: 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 ;..
0019F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
001A00: 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D --------------
001A10: 2D 2D 2D 2D 2D 0D 0A 20 0D 0A 20 20 20 20 20 4C -----.. .. L
001A20: 65 73 20 70 61 72 61 6D 7D 74 72 65 73 20 64 75 es param}tres du
001A30: 20 66 6F 72 6D 61 74 20 74 65 73 74 7B 73 20 20 format test{s
001A40: 2C 20 20 6F 6E 20 20 72 65 63 6F 70 69 65 20 6C , on recopie l
001A50: 65 73 20 69 6E 64 69 63 61 74 69 6F 6E 73 20 75 es indications u
001A60: 74 69 6C 65 73 20 64 65 0D 0A 20 46 4C 41 47 46 tiles de.. FLAGF
001A70: 4E 43 20 64 61 6E 73 20 6E 6F 74 72 65 20 6F 63 NC dans notre oc
001A80: 74 65 74 20 64 27 7B 74 61 74 20 70 69 73 74 65 tet d'{tat piste
001A90: 20 2E 20 20 4C 27 6F 70 7B 72 61 74 69 6F 6E 20 . L'op{ration
001AA0: 52 4C 43 41 20 6D 65 74 20 6C 65 20 43 41 52 52 RLCA met le CARR
001AB0: 59 20 63 68 61 71 75 65 0D 0A 20 66 6F 69 73 20 Y chaque.. fois
001AC0: 71 75 65 20 6C 65 20 62 69 74 20 6C 65 20 70 6C que le bit le pl
001AD0: 75 73 20 40 20 67 61 75 63 68 65 20 64 65 20 6C us @ gauche de l
001AE0: 27 6F 63 74 65 74 20 65 73 74 20 40 20 31 20 2E 'octet est @ 1 .
001AF0: 0D 0A 20 0D 0A 20 20 20 20 20 20 20 20 20 20 20 .. ..
001B00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
001B10: 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D -------------
001B20: 2D 2D 2D 2D 2D 2D 0D 0A 20 3B 0D 0A 20 50 41 52 ------.. ;.. PAR
001B30: 45 43 54 49 46 20 4C 44 20 41 2C 28 46 4C 41 47 ECTIF LD A,(FLAG
001B40: 46 4E 43 29 20 3B 52 65 63 6F 70 69 65 72 20 6C FNC) ;Recopier l
001B50: 65 73 20 69 6E 64 69 63 61 74 69 6F 6E 73 20 75 es indications u
001B60: 74 69 6C 65 73 20 64 65 20 46 4C 41 47 46 4E 43 tiles de FLAGFNC
001B70: 0D 0A 20 20 20 20 20 20 20 20 20 52 4C 43 41 20 .. RLCA
001B80: 20 20 20 20 20 20 20 20 20 20 20 3B 64 61 6E 73 ;dans
001B90: 20 6C 61 20 6C 69 73 74 65 20 64 65 20 65 72 72 la liste de err
001BA0: 65 75 72 73 20 70 6F 73 73 69 62 6C 65 73 0D 0A eurs possibles..
001BB0: 20 20 20 20 20 20 20 20 20 4A 52 20 4E 43 2C 50 JR NC,P
001BC0: 41 52 41 54 45 0D 0A 20 20 20 20 20 20 20 20 20 ARATE..
001BD0: 53 45 54 20 34 2C 28 48 4C 29 20 20 20 20 20 20 SET 4,(HL)
001BE0: 3B 41 6E 61 6C 79 73 65 20 72 61 74 65 65 20 2E ;Analyse ratee .
001BF0: 20 50 65 72 73 6F 6E 6E 65 6C 6C 65 6D 65 6E 74 Personnellement
001C00: 20 63 61 20 6D 27 65 74 6F 6E 6E 65 72 61 69 74 ca m'etonnerait
001C10: 0D 0A 20 50 41 52 41 54 45 20 20 52 4C 43 41 20 .. PARATE RLCA
001C20: 20 20 20 20 20 20 20 20 20 20 20 3B 6D 61 69 73 ;mais
001C30: 20 76 61 20 73 61 76 6F 69 72 20 2E 2E 2E 0D 0A va savoir .....
001C40: 20 20 20 20 20 20 20 20 20 4A 52 20 4E 43 2C 50 JR NC,P
001C50: 41 53 52 45 50 41 0D 0A 20 20 20 20 20 20 20 20 ASREPA..
001C60: 20 53 45 54 20 30 2C 28 48 4C 29 20 20 20 20 20 SET 0,(HL)
001C70: 20 3B 50 69 73 74 65 20 72 65 70 61 72 65 65 20 ;Piste reparee
001C80: 70 6C 75 73 20 6F 75 20 6D 6F 69 6E 73 20 62 69 plus ou moins bi
001C90: 65 6E 0D 0A 20 50 41 53 52 45 50 41 20 52 4C 43 en.. PASREPA RLC
001CA0: 41 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 20 4E A.. JR N
001CB0: 43 2C 50 41 53 4D 55 4C 54 0D 0A 20 20 20 20 20 C,PASMULT..
001CC0: 20 20 20 20 53 45 54 20 31 2C 28 48 4C 29 20 20 SET 1,(HL)
001CD0: 20 20 20 20 3B 50 6C 75 73 69 65 75 72 73 20 74 ;Plusieurs t
001CE0: 61 69 6C 6C 65 73 20 64 65 20 66 6F 72 6D 61 74 ailles de format
001CF0: 20 70 6F 73 73 69 62 6C 65 73 20 28 65 63 72 61 possibles (ecra
001D00: 73 65 73 29 0D 0A 20 50 41 53 4D 55 4C 54 20 52 ses).. PASMULT R
001D10: 4C 43 41 20 20 20 20 20 20 20 20 20 20 20 20 3B LCA ;
001D20: 28 41 6D 62 69 67 75 69 74 65 20 61 73 73 65 7A (Ambiguite assez
001D30: 20 72 61 72 65 20 2E 29 0D 0A 20 20 20 20 20 20 rare .)..
001D40: 20 20 20 4A 52 20 4E 43 2C 50 41 45 43 0D 0A 20 JR NC,PAEC..
001D50: 20 20 20 20 20 20 20 20 53 45 54 20 32 2C 28 48 SET 2,(H
001D60: 4C 29 20 20 20 20 20 20 3B 50 72 65 73 65 6E 63 L) ;Presenc
001D70: 65 20 63 65 72 74 61 69 6E 65 20 64 65 20 73 65 e certaine de se
001D80: 63 74 65 75 72 73 20 65 63 72 61 73 65 73 0D 0A cteurs ecrases..
001D90: 20 50 41 45 43 20 20 20 20 52 4C 43 41 0D 0A 20 PAEC RLCA..
001DA0: 20 20 20 20 20 20 20 20 52 4C 43 41 20 20 20 20 RLCA
001DB0: 20 20 20 20 20 20 20 20 3B 4C 65 73 20 32 20 62 ;Les 2 b
001DC0: 69 74 73 20 73 75 69 76 61 6E 74 73 20 73 6F 6E its suivants son
001DD0: 74 20 69 6E 75 74 69 6C 65 73 0D 0A 20 20 20 20 t inutiles..
001DE0: 20 20 20 20 20 52 4C 43 41 0D 0A 20 20 20 20 20 RLCA..
001DF0: 20 20 20 20 4A 52 20 4E 43 2C 43 4F 4E 46 0D 0A JR NC,CONF..
001E00: 20 20 20 20 20 20 20 20 20 53 45 54 20 35 2C 28 SET 5,(
001E10: 48 4C 29 20 20 20 20 20 20 3B 47 41 50 20 6E 6F HL) ;GAP no
001E20: 6E 20 63 6F 6E 66 6F 72 6D 65 20 28 43 61 20 63 n conforme (Ca c
001E30: 27 65 73 74 20 6D 6F 72 74 65 6C 20 70 6F 75 72 'est mortel pour
001E40: 20 6C 61 20 63 6F 70 69 65 29 0D 0A 20 43 4F 4E la copie).. CON
001E50: 46 20 20 20 20 49 4E 43 20 48 4C 20 20 20 20 20 F INC HL
001E60: 20 20 20 20 20 3B 43 27 65 73 74 20 66 69 6E 69 ;C'est fini
001E70: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 50 .. LD (P
001E80: 4F 49 4E 45 52 50 29 2C 48 4C 20 3B 4F 6E 20 72 OINERP),HL ;On r
001E90: 61 6E 67 65 20 6E 6F 74 72 65 20 6E 6F 75 76 65 ange notre nouve
001EA0: 61 75 20 70 6F 69 6E 74 65 75 72 20 64 65 20 6C au pointeur de l
001EB0: 69 73 74 65 20 2E 0D 0A 20 3B 0D 0A 20 20 20 20 iste ... ;..
001EC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
001ED0: 20 20 20 20 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D ------
001EE0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 -------------..
001EF0: 0D 0A 20 20 20 20 20 54 6F 75 74 20 65 73 74 20 .. Tout est
001F00: 6D 61 69 6E 74 65 6E 61 6E 74 20 76 7B 72 69 66 maintenant v{rif
001F10: 69 7B 20 65 74 20 6C 65 73 20 63 61 75 73 65 73 i{ et les causes
001F20: 20 70 6F 73 73 69 62 6C 65 73 20 64 27 75 6E 65 possibles d'une
001F30: 20 65 72 72 65 75 72 20 64 65 20 63 6F 70 69 65 erreur de copie
001F40: 0D 0A 20 73 6F 6E 74 20 6E 6F 74 7B 65 73 20 65 .. sont not{es e
001F50: 74 20 20 72 61 6E 67 7B 65 73 20 20 2E 20 20 4F t rang{es . O
001F60: 6E 20 20 63 6F 6D 6D 65 6E 63 65 20 20 6C 65 20 n commence le
001F70: 20 73 74 6F 63 6B 61 67 65 20 20 70 72 6F 70 72 stockage propr
001F80: 65 6D 65 6E 74 20 20 64 69 74 20 20 2E 20 4C 61 ement dit . La
001F90: 0D 0A 20 73 74 72 75 63 74 75 72 65 20 64 75 20 .. structure du
001FA0: 73 74 6F 63 6B 61 67 65 20 61 20 7B 74 7B 20 64 stockage a {t{ d
001FB0: 7B 63 72 69 74 65 20 70 72 7B 63 7B 64 65 6D 65 {crite pr{c{deme
001FC0: 6E 74 20 2E 0D 0A 20 0D 0A 20 20 20 20 20 20 20 nt ... ..
001FD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
001FE0: 20 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D ---------
001FF0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 3B 0D 0A ----------.. ;..
002000: 20 3B 2D 20 4D 65 6D 6F 72 69 73 65 72 20 6C 65 ;- Memoriser le
002010: 73 20 64 6F 6E 6E 65 65 73 20 70 69 73 74 65 73 s donnees pistes
002020: 20 64 61 6E 73 20 6C 65 20 62 75 66 66 65 72 20 dans le buffer
002030: 2D 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 -.. ;..
002040: 4C 44 20 48 4C 2C 28 50 4F 49 4E 50 49 53 29 20 LD HL,(POINPIS)
002050: 3B 52 65 70 72 65 6E 64 72 65 20 6C 65 20 70 6F ;Reprendre le po
002060: 69 6E 74 65 75 72 20 62 75 66 66 65 72 20 2E 0D inteur buffer ..
002070: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 44 45 2C . LD DE,
002080: 28 4C 4F 4E 47 53 45 43 29 20 3B 53 74 6F 63 6B (LONGSEC) ;Stock
002090: 65 72 20 6C 6F 6E 67 75 65 75 72 20 64 65 20 73 er longueur de s
0020A0: 65 63 74 65 75 72 20 65 6E 20 6F 63 74 65 74 73 ecteur en octets
0020B0: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 48 .. LD (H
0020C0: 4C 29 2C 45 0D 0A 20 20 20 20 20 20 20 20 20 49 L),E.. I
0020D0: 4E 43 20 48 4C 0D 0A 20 20 20 20 20 20 20 20 20 NC HL..
0020E0: 4C 44 20 28 48 4C 29 2C 44 0D 0A 20 20 20 20 20 LD (HL),D..
0020F0: 20 20 20 20 49 4E 43 20 48 4C 0D 0A 20 3B 0D 0A INC HL.. ;..
002100: 20 50 41 46 4C 45 4E 20 20 45 58 20 44 45 2C 48 PAFLEN EX DE,H
002110: 4C 20 20 20 20 20 20 20 20 3B 43 6F 70 69 65 72 L ;Copier
002120: 20 4C 45 4E 53 45 43 20 2D 20 4E 42 53 45 43 20 LENSEC - NBSEC
002130: 2D 20 47 41 50 46 4F 52 4D 20 2D 20 4F 43 52 45 - GAPFORM - OCRE
002140: 4D 50 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 MP.. LD
002150: 48 4C 2C 4C 45 4E 53 45 43 20 20 20 20 3B 4C 65 HL,LENSEC ;Le
002160: 20 70 6F 69 6E 74 65 75 72 20 70 61 73 73 65 20 pointeur passe
002170: 64 65 20 48 4C 20 64 61 6E 73 20 44 45 20 70 6F de HL dans DE po
002180: 75 72 20 6C 65 73 20 4C 44 49 52 0D 0A 20 20 20 ur les LDIR..
002190: 20 20 20 20 20 20 4C 44 20 42 43 2C 34 0D 0A 20 LD BC,4..
0021A0: 20 20 20 20 20 20 20 20 4C 44 49 52 0D 0A 20 3B LDIR.. ;
0021B0: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 41 2C .. LD A,
0021C0: 28 4E 42 53 45 43 29 20 20 20 20 3B 43 6F 70 69 (NBSEC) ;Copi
0021D0: 65 72 20 6C 65 73 20 49 44 53 0D 0A 20 20 20 20 er les IDS..
0021E0: 20 20 20 20 20 4C 44 20 43 2C 41 0D 0A 20 20 20 LD C,A..
0021F0: 20 20 20 20 20 20 4C 44 20 42 2C 30 0D 0A 20 20 LD B,0..
002200: 20 20 20 20 20 20 20 50 55 53 48 20 42 43 20 20 PUSH BC
002210: 20 20 20 20 20 20 20 3B 50 72 65 73 65 72 76 65 ;Preserve
002220: 72 20 6E 6F 6D 62 72 65 20 73 65 63 74 65 75 72 r nombre secteur
002230: 73 20 64 61 6E 73 20 42 43 20 70 6F 75 72 20 4C s dans BC pour L
002240: 44 49 52 0D 0A 20 20 20 20 20 20 20 20 20 53 4C DIR.. SL
002250: 41 20 43 20 20 20 20 20 20 20 20 20 20 20 3B 43 A C ;C
002260: 20 3D 20 43 2A 34 20 70 75 69 73 71 75 27 6F 6E = C*4 puisqu'on
002270: 20 61 20 34 20 49 44 53 20 70 61 72 20 73 65 63 a 4 IDS par sec
002280: 74 65 75 72 0D 0A 20 20 20 20 20 20 20 20 20 53 teur.. S
002290: 4C 41 20 43 0D 0A 20 20 20 20 20 20 20 20 20 4C LA C.. L
0022A0: 44 20 48 4C 2C 49 44 49 4E 44 52 41 20 20 20 3B D HL,IDINDRA ;
0022B0: 4F 6E 20 65 6E 20 70 72 6F 66 69 74 65 20 70 6F On en profite po
0022C0: 75 72 20 69 6E 69 74 69 61 6C 69 73 65 72 20 6C ur initialiser l
0022D0: 65 20 70 6F 69 6E 74 65 75 72 0D 0A 20 20 20 20 e pointeur..
0022E0: 20 20 20 20 20 4C 44 20 28 50 4F 49 4E 54 49 44 LD (POINTID
0022F0: 29 2C 48 4C 20 3B 64 65 73 20 49 44 53 20 70 6F ),HL ;des IDS po
002300: 75 72 20 6C 65 20 73 74 6F 63 6B 61 67 65 20 64 ur le stockage d
002310: 65 73 20 64 6F 6E 6E 65 65 73 0D 0A 20 20 20 20 es donnees..
002320: 20 20 20 20 20 4C 44 49 52 0D 0A 20 20 20 20 20 LDIR..
002330: 20 20 20 20 50 4F 50 20 42 43 0D 0A 20 3B 0D 0A POP BC.. ;..
002340: 20 20 20 20 20 20 20 20 20 4C 44 20 28 53 54 4F LD (STO
002350: 4B 45 52 52 29 2C 44 45 20 3B 4C 61 20 6C 69 73 KERR),DE ;La lis
002360: 74 65 20 64 65 73 20 65 74 61 74 73 20 64 27 65 te des etats d'e
002370: 72 72 65 75 72 20 65 73 74 20 73 74 6F 63 6B 65 rreur est stocke
002380: 65 20 61 20 6C 61 0D 0A 20 20 20 20 20 20 20 20 e a la..
002390: 20 50 55 53 48 20 42 43 20 20 20 20 20 20 20 20 PUSH BC
0023A0: 20 3B 73 75 69 74 65 20 64 65 73 20 49 44 53 0D ;suite des IDS.
0023B0: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 48 4C 2C . LD HL,
0023C0: 4C 49 53 54 45 52 52 0D 0A 20 20 20 20 20 20 20 LISTERR..
0023D0: 20 20 4C 44 49 52 0D 0A 20 20 20 20 20 20 20 20 LDIR..
0023E0: 20 50 4F 50 20 42 43 20 20 20 20 20 20 20 20 20 POP BC
0023F0: 20 3B 42 43 20 63 6F 6E 74 69 65 6E 74 20 74 6F ;BC contient to
002400: 75 6A 6F 75 72 73 20 6C 65 20 6E 6F 6D 62 72 65 ujours le nombre
002410: 20 64 65 20 73 65 63 74 65 75 72 73 0D 0A 20 3B de secteurs.. ;
002420: 0D 0A 20 20 20 20 20 20 20 20 20 45 58 20 44 45 .. EX DE
002430: 2C 48 4C 20 20 20 20 3B 4C 65 20 70 6F 69 6E 74 ,HL ;Le point
002440: 65 75 72 20 64 65 73 20 61 64 72 65 73 73 65 73 eur des adresses
002450: 20 62 75 66 66 65 72 20 65 73 74 20 72 65 6D 69 buffer est remi
002460: 73 20 64 61 6E 73 20 48 4C 0D 0A 20 20 20 20 20 s dans HL..
002470: 20 20 20 20 50 55 53 48 20 48 4C 20 20 20 20 20 PUSH HL
002480: 3B 65 74 20 72 65 63 6F 70 69 65 20 64 61 6E 73 ;et recopie dans
002490: 20 49 58 0D 0A 20 20 20 20 20 20 20 20 20 50 4F IX.. PO
0024A0: 50 20 49 58 0D 0A 20 20 20 20 20 20 20 20 20 41 P IX.. A
0024B0: 44 44 20 48 4C 2C 42 43 20 20 20 3B 46 61 69 72 DD HL,BC ;Fair
0024C0: 65 20 70 6C 61 63 65 20 70 6F 75 72 20 61 64 72 e place pour adr
0024D0: 65 73 73 65 73 20 62 75 66 66 65 72 0D 0A 20 20 esses buffer..
0024E0: 20 20 20 20 20 20 20 41 44 44 20 48 4C 2C 42 43 ADD HL,BC
0024F0: 20 20 20 3B 32 20 66 6F 69 73 20 63 61 72 20 32 ;2 fois car 2
002500: 20 6F 63 74 65 74 73 20 70 61 72 20 61 64 72 65 octets par adre
002510: 73 73 65 0D 0A 20 20 20 20 20 20 20 20 20 49 4E sse.. IN
002520: 43 20 48 4C 20 20 20 20 20 20 3B 45 74 20 65 6E C HL ;Et en
002530: 63 6F 72 65 20 32 20 70 6F 75 72 20 6D 65 6D 6F core 2 pour memo
002540: 20 64 65 70 61 72 74 20 70 72 6F 63 68 61 69 6E depart prochain
002550: 65 20 70 69 73 74 65 0D 0A 20 20 20 20 20 20 20 e piste..
002560: 20 20 49 4E 43 20 48 4C 0D 0A 20 20 20 20 20 20 INC HL..
002570: 20 20 20 4C 44 20 28 41 44 42 55 46 46 29 2C 48 LD (ADBUFF),H
002580: 4C 20 3B 43 27 65 73 74 20 61 20 70 61 72 74 69 L ;C'est a parti
002590: 72 20 64 65 20 41 44 42 55 46 46 20 71 75 27 6F r de ADBUFF qu'o
0025A0: 6E 20 73 74 6F 63 6B 65 0D 0A 20 3B 0D 0A 20 20 n stocke.. ;..
0025B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0025C0: 20 20 20 20 20 20 20 20 20 20 20 20 2D 2D 2D 2D ----
0025D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D ---------------.
0025E0: 0A 20 0D 0A 20 20 20 20 20 54 6F 75 74 20 63 65 . .. Tout ce
0025F0: 20 71 75 69 20 63 6F 6E 63 65 72 6E 65 20 6C 61 qui concerne la
002600: 20 70 69 73 74 65 20 65 73 74 20 20 69 63 69 20 piste est ici
002610: 73 74 6F 63 6B 7B 20 40 20 6C 27 65 78 63 65 70 stock{ @ l'excep
002620: 74 69 6F 6E 20 64 65 73 20 64 6F 6E 6E 7B 65 73 tion des donn{es
002630: 20 2E 0D 0A 20 42 72 65 66 20 72 61 70 70 65 6C ... Bref rappel
002640: 20 64 65 20 6C 61 20 73 69 67 6E 69 66 69 63 61 de la significa
002650: 74 69 6F 6E 20 64 65 73 20 70 6F 69 6E 74 65 75 tion des pointeu
002660: 72 73 20 2E 0D 0A 20 0D 0A 20 20 20 20 20 50 4F rs ... .. PO
002670: 49 4E 50 49 53 20 3A 20 50 6F 69 6E 74 65 75 72 INPIS : Pointeur
002680: 20 67 6C 6F 62 61 6C 20 6F 75 20 64 65 76 72 61 global ou devra
002690: 20 72 65 70 72 65 6E 64 72 65 20 6C 65 20 73 74 reprendre le st
0026A0: 6F 63 6B 61 67 65 20 73 75 69 76 61 6E 74 20 2E ockage suivant .
0026B0: 0D 0A 20 20 20 20 20 50 4F 49 4E 54 49 44 20 3A .. POINTID :
0026C0: 20 31 65 72 20 6F 63 74 65 74 20 64 65 73 20 34 1er octet des 4
0026D0: 20 49 44 53 20 64 75 20 73 65 63 74 65 75 72 20 IDS du secteur
0026E0: 40 20 73 74 6F 63 6B 65 72 20 2E 0D 0A 20 20 20 @ stocker ...
0026F0: 20 20 53 54 4F 4B 45 52 52 20 3A 20 50 6F 69 6E STOKERR : Poin
002700: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
002710: 02 00 01 00 02 09 4E E5 02 00 C1 02 00 00 00 02 ......N.........
002720: 02 00 C2 02 00 00 00 02 02 00 C3 02 00 00 00 02 ................
002730: 02 00 C4 02 00 00 00 02 02 00 C5 02 00 00 00 02 ................
002740: 02 00 C6 02 00 00 00 02 02 00 C7 02 00 00 00 02 ................
002750: 02 00 C8 02 00 00 00 02 02 00 C9 02 00 00 00 02 ................
002760: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002770: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002780: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002790: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0027A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0027B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0027C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0027D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0027E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0027F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002800: 74 65 75 72 20 64 65 20 6C 61 20 6C 69 73 74 65 teur de la liste
002810: 20 64 65 73 20 65 72 72 65 75 72 73 20 2E 20 20 des erreurs .
002820: 20 20 0D 0A 20 20 20 20 20 41 44 42 55 46 46 20 .. ADBUFF
002830: 20 3A 20 41 64 72 65 73 73 65 20 64 65 20 64 7B : Adresse de d{
002840: 70 61 72 74 20 70 6F 75 72 20 6C 65 20 73 74 6F part pour le sto
002850: 63 6B 61 67 65 20 64 27 75 6E 20 73 65 63 74 65 ckage d'un secte
002860: 75 72 0D 0A 20 20 20 20 20 49 58 20 63 6F 6E 74 ur.. IX cont
002870: 69 65 6E 74 20 6C 65 20 64 7B 62 75 74 20 64 65 ient le d{but de
002880: 20 6C 61 20 7A 6F 6E 65 20 20 6F 75 20 20 6C 27 la zone ou l'
002890: 6F 6E 20 6D 7B 6D 6F 72 69 73 65 20 6C 65 73 20 on m{morise les
0028A0: 61 64 72 65 73 73 65 73 20 64 65 20 64 7B 70 61 adresses de d{pa
0028B0: 72 74 0D 0A 20 64 65 73 20 64 6F 6E 6E 7B 65 73 rt.. des donn{es
0028C0: 20 64 65 20 63 68 61 71 75 65 20 73 65 63 74 65 de chaque secte
0028D0: 75 72 73 20 2E 0D 0A 20 0D 0A 20 20 20 20 20 44 urs ... .. D
0028E0: 61 6E 73 20 6C 65 20 63 61 73 20 20 64 27 75 6E ans le cas d'un
0028F0: 65 20 20 70 69 73 74 65 20 20 61 62 69 6D 7B 65 e piste abim{e
002900: 20 20 2C 20 20 70 6C 75 73 69 65 75 72 73 20 20 , plusieurs
002910: 74 65 6E 74 61 74 69 76 65 73 20 20 64 65 20 72 tentatives de r
002920: 65 6C 65 63 74 75 72 65 0D 0A 20 70 65 75 76 65 electure.. peuve
002930: 6E 74 20 70 61 72 66 6F 69 73 20 73 61 75 76 65 nt parfois sauve
002940: 72 20 6C 65 73 20 6D 65 75 62 6C 65 73 20 2E 2E r les meubles ..
002950: 2E 20 52 45 4C 49 52 45 20 73 65 72 61 20 75 74 . RELIRE sera ut
002960: 69 6C 65 20 2E 0D 0A 20 0D 0A 20 20 20 20 20 20 ile ... ..
002970: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
002980: 20 20 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D --------
002990: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 3B 0D -----------.. ;.
0029A0: 0A 20 3B 2D 20 52 6F 75 74 69 6E 65 20 6C 65 63 . ;- Routine lec
0029B0: 74 75 72 65 20 70 68 79 73 69 71 75 65 20 2D 0D ture physique -.
0029C0: 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 . ;.. LD
0029D0: 20 49 59 2C 52 45 4C 49 52 45 20 20 20 20 3B 4E IY,RELIRE ;N
0029E0: 6F 6D 62 72 65 20 64 65 20 72 65 6C 65 63 74 75 ombre de relectu
0029F0: 72 65 73 20 73 69 20 73 65 63 74 65 75 72 20 56 res si secteur V
002A00: 52 41 49 4D 45 4E 54 20 61 62 69 6D 65 0D 0A 20 RAIMENT abime..
002A10: 20 20 20 20 20 20 20 20 58 4F 52 20 41 0D 0A 20 XOR A..
002A20: 20 20 20 20 20 20 20 20 4C 44 20 28 43 4F 55 4E LD (COUN
002A30: 54 29 2C 41 20 20 20 20 3B 43 6F 6D 70 74 65 75 T),A ;Compteu
002A40: 72 20 61 20 7A 65 72 6F 20 70 6F 75 72 20 76 69 r a zero pour vi
002A50: 73 65 72 20 6C 65 73 20 73 65 63 74 65 75 72 73 ser les secteurs
002A60: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 41 2C .. LD A,
002A70: 28 4E 42 53 45 43 29 0D 0A 20 20 20 20 20 20 20 (NBSEC)..
002A80: 20 20 4C 44 20 42 2C 41 0D 0A 20 3B 0D 0A 20 42 LD B,A.. ;.. B
002A90: 43 4C 4C 49 54 50 20 4C 44 20 28 49 59 2B 30 29 CLLITP LD (IY+0)
002AA0: 2C 35 20 20 20 20 20 3B 35 20 52 65 6C 65 63 74 ,5 ;5 Relect
002AB0: 75 72 65 73 20 65 6E 20 63 61 73 20 64 65 20 70 ures en cas de p
002AC0: 72 6F 62 6C 65 6D 65 0D 0A 20 3B 0D 0A 20 20 20 robleme.. ;..
002AD0: 20 20 20 20 20 20 4C 44 20 48 4C 2C 28 41 44 42 LD HL,(ADB
002AE0: 55 46 46 29 20 20 3B 41 64 72 65 73 73 65 20 64 UFF) ;Adresse d
002AF0: 65 20 73 74 6F 63 6B 61 67 65 20 64 75 20 73 65 e stockage du se
002B00: 63 74 65 75 72 0D 0A 20 20 20 20 20 20 20 20 20 cteur..
002B10: 50 55 53 48 20 42 43 0D 0A 20 20 20 20 20 20 20 PUSH BC..
002B20: 20 20 4C 44 20 28 49 58 2B 30 29 2C 4C 20 20 20 LD (IX+0),L
002B30: 20 20 3B 4D 65 6D 6F 72 69 73 65 72 20 64 65 70 ;Memoriser dep
002B40: 61 72 74 20 64 65 73 20 64 6F 6E 6E 65 65 73 20 art des donnees
002B50: 64 75 20 73 65 63 74 65 75 72 20 65 6E 20 63 6F du secteur en co
002B60: 75 72 73 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 urs.. LD
002B70: 20 28 49 58 2B 31 29 2C 48 20 20 20 20 20 3B 64 (IX+1),H ;d
002B80: 61 6E 73 20 6C 61 20 6C 69 73 74 65 0D 0A 20 3B ans la liste.. ;
002B90: 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 .. CALL
002BA0: 23 42 42 37 38 20 20 20 20 20 20 3B 4D 65 6D 6F #BB78 ;Memo
002BB0: 72 69 73 65 72 20 70 6F 73 69 74 69 6F 6E 20 63 riser position c
002BC0: 75 72 73 65 75 72 20 74 65 78 74 65 0D 0A 20 20 urseur texte..
002BD0: 20 20 20 20 20 20 20 50 55 53 48 20 48 4C 0D 0A PUSH HL..
002BE0: 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 ;.. LD
002BF0: 48 4C 2C 28 50 4F 49 4E 54 49 44 29 20 3B 31 65 HL,(POINTID) ;1e
002C00: 72 20 6F 63 74 65 74 20 64 65 73 20 34 20 49 44 r octet des 4 ID
002C10: 53 20 61 20 6C 69 72 65 0D 0A 20 20 20 20 20 20 S a lire..
002C20: 20 20 20 50 55 53 48 20 48 4C 0D 0A 20 3B 0D 0A PUSH HL.. ;..
002C30: 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 54 52 CALL TR
002C40: 41 4E 53 33 49 44 20 20 20 3B 4C 65 73 20 6D 65 ANS3ID ;Les me
002C50: 74 74 72 65 20 64 61 6E 73 20 6C 61 20 7A 6F 6E ttre dans la zon
002C60: 65 20 71 75 69 20 73 65 72 74 20 61 75 78 20 69 e qui sert aux i
002C70: 6E 73 74 72 75 63 74 69 6F 6E 73 0D 0A 20 20 20 nstructions..
002C80: 20 20 20 20 20 20 49 4E 43 20 48 4C 20 20 20 20 INC HL
002C90: 20 20 20 20 20 20 3B 64 65 20 6C 65 63 74 75 72 ;de lectur
002CA0: 65 20 73 61 75 66 20 6C 61 20 70 69 73 74 65 20 e sauf la piste
002CB0: 2E 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 ... LD (
002CC0: 50 4F 49 4E 54 49 44 29 2C 48 4C 20 3B 52 61 6E POINTID),HL ;Ran
002CD0: 67 65 72 20 6E 6F 76 65 61 75 20 70 6F 69 6E 74 ger noveau point
002CE0: 65 75 72 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 eur.. ;..
002CF0: 20 20 4C 44 20 48 4C 2C 23 31 39 31 36 20 20 20 LD HL,#1916
002D00: 20 3B 41 66 66 69 63 68 65 72 20 73 65 63 74 65 ;Afficher secte
002D10: 75 72 20 65 6E 20 63 6F 75 72 73 20 64 65 20 6C ur en cours de l
002D20: 65 63 74 75 72 65 0D 0A 20 20 20 20 20 20 20 20 ecture..
002D30: 20 43 41 4C 4C 20 23 42 42 37 35 20 20 20 20 20 CALL #BB75
002D40: 3B 41 20 6C 61 20 70 6F 73 69 74 69 6F 6E 20 76 ;A la position v
002D50: 6F 75 6C 75 65 0D 0A 20 20 20 20 20 20 20 20 20 oulue..
002D60: 50 4F 50 20 48 4C 20 20 20 20 20 20 20 20 20 3B POP HL ;
002D70: 52 65 70 72 65 6E 64 72 65 20 6C 65 73 20 49 44 Reprendre les ID
002D80: 53 20 65 6E 20 63 6F 75 72 73 0D 0A 20 20 20 20 S en cours..
002D90: 20 20 20 20 20 43 41 4C 4C 20 41 46 46 34 49 44 CALL AFF4ID
002DA0: 20 20 20 20 3B 65 74 20 6C 65 73 20 61 66 66 69 ;et les affi
002DB0: 63 68 65 72 0D 0A 20 20 20 20 20 20 20 20 20 50 cher.. P
002DC0: 4F 50 20 48 4C 20 20 20 20 20 20 20 20 20 3B 52 OP HL ;R
002DD0: 65 70 72 65 6E 64 72 65 20 6C 61 20 70 6F 73 69 eprendre la posi
002DE0: 74 69 6F 6E 20 64 75 20 63 75 72 73 65 75 72 20 tion du curseur
002DF0: 74 65 78 74 65 0D 0A 20 20 20 20 20 20 20 20 20 texte..
002E00: 43 41 4C 4C 20 23 42 42 37 35 20 20 20 20 20 3B CALL #BB75 ;
002E10: 65 74 20 6C 65 20 72 65 6D 65 74 74 72 65 20 61 et le remettre a
002E20: 20 73 61 20 70 6C 61 63 65 0D 0A 20 3B 0D 0A 20 sa place.. ;..
002E30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
002E40: 20 20 20 20 20 20 20 20 20 20 20 20 20 2D 2D 2D ---
002E50: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
002E60: 0D 0A 20 0D 0A 20 20 20 20 20 43 69 20 64 65 73 .. .. Ci des
002E70: 73 6F 75 73 20 6F 6E 20 7B 74 75 64 69 65 20 64 sous on {tudie d
002E80: 27 61 70 72 7D 73 20 46 4C 41 47 46 4E 43 20 20 'apr}s FLAGFNC
002E90: 6C 61 20 20 6E 7B 63 7B 73 73 69 74 7B 20 64 65 la n{c{ssit{ de
002EA0: 20 6C 69 72 65 20 65 74 20 73 74 6F 63 6B 65 72 lire et stocker
002EB0: 20 6C 65 0D 0A 20 73 65 63 74 65 75 72 20 2E 20 le.. secteur .
002EC0: 4F 6E 20 6E 27 65 66 66 65 63 74 75 65 72 61 20 On n'effectuera
002ED0: 70 61 73 20 6C 65 20 73 74 6F 63 6B 61 67 65 20 pas le stockage
002EE0: 64 61 6E 73 20 6C 65 73 20 63 61 73 20 73 75 69 dans les cas sui
002EF0: 76 61 6E 74 73 20 3A 0D 0A 20 0D 0A 20 20 20 20 vants :.. ..
002F00: 20 43 52 2F 44 44 20 2E 20 20 20 20 51 75 69 20 CR/DD . Qui
002F10: 65 73 74 20 74 6F 75 6A 6F 75 72 73 20 75 6E 20 est toujours un
002F20: 73 65 63 74 65 75 72 20 76 69 65 72 67 65 20 2E secteur vierge .
002F30: 0D 0A 20 20 20 20 20 4D 41 4D 2F 44 41 4D 20 2E .. MAM/DAM .
002F40: 20 20 53 65 63 74 65 75 72 20 73 69 6E 69 73 74 Secteur sinist
002F50: 72 7B 20 76 6F 6C 6F 6E 74 61 69 72 65 6D 65 6E r{ volontairemen
002F60: 74 20 6F 75 20 6E 6F 6E 20 2E 0D 0A 20 20 20 20 t ou non ...
002F70: 20 53 45 43 54 45 55 52 20 44 45 20 54 41 49 49 SECTEUR DE TAII
002F80: 4C 45 20 30 20 2E 20 74 6F 75 6A 6F 75 72 73 20 LE 0 . toujours
002F90: 69 6C 6C 69 73 69 62 6C 65 20 65 74 20 64 65 20 illisible et de
002FA0: 74 6F 75 74 65 20 6D 61 6E 69 7D 72 65 20 6E 65 toute mani}re ne
002FB0: 20 70 65 75 74 20 65 08 5E 74 72 65 0D 0A 20 7B peut e.^tre.. {
002FC0: 63 72 69 74 20 63 6F 6E 76 65 6E 61 62 6C 65 6D crit convenablem
002FD0: 65 6E 74 20 2E 0D 0A 20 20 20 20 20 53 45 43 54 ent ... SECT
002FE0: 45 55 52 20 41 20 45 43 52 41 53 45 52 20 2E 20 EUR A ECRASER .
002FF0: 51 75 69 20 65 73 74 20 75 6E 20 66 61 75 78 20 Qui est un faux
003000: 73 65 63 74 65 75 72 20 63 72 7B 7B 20 70 61 72 secteur cr{{ par
003010: 20 45 43 52 41 53 45 52 20 65 74 20 64 65 73 74 ECRASER et dest
003020: 69 6E 7B 20 40 0D 0A 20 64 69 73 70 61 72 61 69 in{ @.. disparai
003030: 08 5E 74 72 65 20 6C 6F 72 73 20 64 65 20 6C 61 .^tre lors de la
003040: 20 72 7B 7B 63 72 69 74 75 72 65 20 64 65 20 20 r{{criture de
003050: 6C 61 20 20 70 69 73 74 65 20 20 2E 20 20 44 61 la piste . Da
003060: 6E 73 20 20 63 65 20 63 61 73 20 2C 20 6F 6E 20 ns ce cas , on
003070: 6E 65 20 64 6F 69 74 0D 0A 20 73 75 72 74 6F 75 ne doit.. surtou
003080: 74 20 70 61 73 20 61 76 61 6E 63 65 72 20 43 4F t pas avancer CO
003090: 55 4E 54 20 63 61 72 20 63 65 20 73 65 63 74 65 UNT car ce secte
0030A0: 75 72 20 6E 27 65 78 69 73 74 65 72 61 20 71 75 ur n'existera qu
0030B0: 27 61 70 72 7D 73 20 6C 65 20 66 6F 72 6D 61 74 'apr}s le format
0030C0: 61 67 65 20 21 0D 0A 20 0D 0A 20 20 20 20 20 20 age !.. ..
0030D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0030E0: 20 20 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D --------
0030F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 3B 0D -----------.. ;.
003100: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 41 2C 28 . LD A,(
003110: 46 4C 41 47 46 4E 43 29 20 0D 0A 20 20 20 20 20 FLAGFNC) ..
003120: 20 20 20 20 41 4E 44 20 25 30 31 30 30 30 30 30 AND %0100000
003130: 30 20 20 3B 53 69 20 70 69 73 74 65 20 73 69 6E 0 ;Si piste sin
003140: 69 73 74 72 65 65 20 2C 20 74 65 6E 74 65 72 20 istree , tenter
003150: 72 65 70 61 72 61 74 69 6F 6E 20 65 74 20 65 73 reparation et es
003160: 73 61 79 65 72 0D 0A 20 20 20 20 20 20 20 20 20 sayer..
003170: 4A 52 20 4E 5A 2C 4C 49 52 45 20 20 20 20 20 3B JR NZ,LIRE ;
003180: 64 65 20 6C 69 72 65 20 71 75 65 6C 71 75 65 20 de lire quelque
003190: 73 6F 69 74 20 6C 27 7B 74 61 74 20 64 27 65 72 soit l'{tat d'er
0031A0: 72 65 75 72 20 2E 0D 0A 20 3B 0D 0A 20 20 20 20 reur ... ;..
0031B0: 20 20 20 20 20 4C 44 20 48 4C 2C 28 53 54 4F 4B LD HL,(STOK
0031C0: 45 52 52 29 20 3B 50 6F 69 6E 74 65 75 72 20 64 ERR) ;Pointeur d
0031D0: 65 20 6C 61 20 6C 69 73 74 65 20 64 65 73 20 65 e la liste des e
0031E0: 72 72 65 75 72 73 20 2E 20 50 65 75 74 20 61 76 rreurs . Peut av
0031F0: 6F 69 72 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 oir.. LD
003200: 20 41 2C 28 48 4C 29 20 20 20 20 20 20 20 3B 70 A,(HL) ;p
003210: 72 69 73 20 6C 61 20 76 61 6C 65 75 72 20 23 37 ris la valeur #7
003220: 46 20 73 69 20 6C 65 20 73 65 63 74 65 75 72 20 F si le secteur
003230: 65 73 74 20 75 6E 20 61 64 64 69 74 69 66 0D 0A est un additif..
003240: 20 20 20 20 20 20 20 20 20 43 50 20 23 37 46 20 CP #7F
003250: 20 20 20 20 20 20 20 20 20 3B 63 72 65 65 20 70 ;cree p
003260: 61 72 20 45 43 52 41 53 45 52 20 2E 20 49 67 6E ar ECRASER . Ign
003270: 6F 72 65 72 20 74 6F 74 61 6C 65 6D 65 6E 74 20 orer totalement
003280: 73 69 20 6F 75 69 20 45 54 0D 0A 20 20 20 20 20 si oui ET..
003290: 20 20 20 20 4A 50 20 5A 2C 53 41 55 54 4C 49 54 JP Z,SAUTLIT
0032A0: 20 20 20 20 3B 4E 45 20 50 41 53 20 49 4E 43 52 ;NE PAS INCR
0032B0: 45 4D 45 4E 54 45 52 20 4C 45 20 43 4F 4D 50 54 EMENTER LE COMPT
0032C0: 45 55 52 20 2E 0D 0A 20 3B 0D 0A 20 20 20 20 20 EUR ... ;..
0032D0: 20 20 20 20 41 4E 44 20 25 30 30 31 31 30 31 31 AND %0011011
0032E0: 31 20 20 3B 53 69 20 70 61 73 20 64 27 65 72 72 1 ;Si pas d'err
0032F0: 65 75 72 20 50 52 4F 56 4F 51 55 45 45 20 73 61 eur PROVOQUEE sa
003300: 75 66 20 45 50 2D 48 44 2D 43 4D 20 2C 20 63 27 uf EP-HD-CM , c'
003310: 65 73 74 20 62 6F 6E 0D 0A 20 20 20 20 20 20 20 est bon..
003320: 20 20 4A 50 20 4E 5A 2C 52 49 45 4E 4C 49 52 45 JP NZ,RIENLIRE
003330: 20 3B 53 69 6E 6F 6E 20 6E 65 20 70 61 73 20 73 ;Sinon ne pas s
003340: 74 6F 63 6B 65 72 20 6C 65 73 20 64 6F 6E 6E 65 tocker les donne
003350: 65 73 20 65 74 20 49 4E 43 2E 20 43 4F 4D 50 54 es et INC. COMPT
003360: 45 55 52 0D 0A 20 3B 0D 0A 20 4C 49 52 45 20 20 EUR.. ;.. LIRE
003370: 20 20 4C 44 20 41 2C 28 51 55 41 54 52 49 44 2B LD A,(QUATRID+
003380: 33 29 20 3B 54 61 69 6C 6C 65 20 30 20 69 67 6E 3) ;Taille 0 ign
003390: 6F 72 65 65 20 65 6E 20 6C 65 63 74 75 72 65 20 oree en lecture
0033A0: 2C 20 6A 75 73 74 65 20 61 76 61 6E 63 65 72 0D , juste avancer.
0033B0: 0A 20 20 20 20 20 20 20 20 20 4F 52 20 41 20 20 . OR A
0033C0: 20 20 20 20 20 20 20 20 20 20 20 3B 63 6F 6D 70 ;comp
0033D0: 74 65 75 72 0D 0A 20 20 20 20 20 20 20 20 20 4A teur.. J
0033E0: 50 20 5A 2C 52 49 45 4E 4C 49 52 45 0D 0A 20 3B P Z,RIENLIRE.. ;
0033F0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
003400: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
003410: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
003420: 2D 2D 2D 0D 0A 20 0D 0A 20 20 20 20 20 41 20 63 ---.. .. A c
003430: 65 20 70 6F 69 6E 74 20 2C 20 6F 6E 20 73 61 69 e point , on sai
003440: 74 20 71 75 65 20 6C 65 20 73 65 63 74 65 75 72 t que le secteur
003450: 20 20 70 65 75 74 20 65 08 5E 74 72 65 20 6C 75 peut e.^tre lu
003460: 20 65 74 20 73 74 6F 63 6B 7B 20 2E 20 4F 6E 20 et stock{ . On
003470: 74 65 73 74 65 20 6C 61 0D 0A 20 70 72 7B 73 65 teste la.. pr{se
003480: 6E 63 65 20 64 75 20 43 4D 20 65 74 20 6F 6E 20 nce du CM et on
003490: 79 20 76 61 20 2E 20 20 53 69 20 20 75 6E 65 20 y va . Si une
0034A0: 20 65 72 72 65 75 72 20 20 64 65 20 6C 65 63 74 erreur de lect
0034B0: 75 72 65 20 73 65 20 70 72 6F 64 75 69 74 20 35 ure se produit 5
0034C0: 20 66 6F 69 73 20 64 65 0D 0A 20 73 75 69 74 65 fois de.. suite
0034D0: 20 2C 20 6F 6E 20 63 6F 6E 73 69 64 7D 72 65 20 , on consid}re
0034E0: 71 75 65 20 63 27 65 73 74 20 75 6E 65 20 63 61 que c'est une ca
0034F0: 75 73 65 20 70 65 72 64 75 65 20 65 74 20 6C 27 use perdue et l'
003500: 65 72 72 65 75 72 20 65 73 74 20 61 66 66 69 63 erreur est affic
003510: 68 7B 65 20 2E 0D 0A 20 0D 0A 20 20 20 20 20 20 h{e ... ..
003520: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
003530: 20 20 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D --------
003540: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 3B 0D -----------.. ;.
003550: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 42 2C 23 . LD B,#
003560: 34 36 20 20 20 20 20 20 20 20 3B 43 4D 20 6F 72 46 ;CM or
003570: 20 6E 6F 74 20 43 4D 20 3F 0D 0A 20 20 20 20 20 not CM ?..
003580: 20 20 20 20 4C 44 20 48 4C 2C 28 53 54 4F 4B 45 LD HL,(STOKE
003590: 52 52 29 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 RR).. LD
0035A0: 20 41 2C 28 48 4C 29 0D 0A 20 20 20 20 20 20 20 A,(HL)..
0035B0: 20 20 41 4E 44 20 25 30 30 30 30 31 30 30 30 0D AND %00001000.
0035C0: 0A 20 20 20 20 20 20 20 20 20 4A 52 20 5A 2C 43 . JR Z,C
0035D0: 4D 4E 4F 54 0D 0A 20 20 20 20 20 20 20 20 20 4C MNOT.. L
0035E0: 44 20 42 2C 23 34 43 20 20 20 20 20 20 20 20 3B D B,#4C ;
0035F0: 4F 55 49 0D 0A 20 3B 0D 0A 20 43 4D 4E 4F 54 20 OUI.. ;.. CMNOT
003600: 20 20 4C 44 20 41 2C 42 20 20 20 20 20 20 20 20 LD A,B
003610: 20 20 3B 43 6F 6D 6D 61 6E 64 65 20 6C 69 72 65 ;Commande lire
003620: 20 73 65 63 74 65 75 72 0D 0A 20 20 20 20 20 20 secteur..
003630: 20 20 20 4C 44 20 48 4C 2C 4C 49 54 46 44 43 0D LD HL,LITFDC.
003640: 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 53 . CALL S
003650: 45 54 43 4F 4D 32 0D 0A 20 3B 0D 0A 20 4E 45 57 ETCOM2.. ;.. NEW
003660: 4C 49 54 20 20 4C 44 20 44 45 2C 28 4C 4F 4E 47 LIT LD DE,(LONG
003670: 53 45 43 29 0D 0A 20 20 20 20 20 20 20 20 20 43 SEC).. C
003680: 41 4C 4C 20 56 49 53 49 4E 53 54 20 20 20 20 3B ALL VISINST ;
003690: 56 69 73 65 72 20 65 74 20 65 78 65 63 75 74 65 Viser et execute
0036A0: 72 20 63 6F 6D 6D 61 6E 64 65 20 6C 65 63 74 75 r commande lectu
0036B0: 72 65 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 re.. ;..
0036C0: 20 4C 44 20 44 45 2C 23 30 32 31 33 20 20 20 20 LD DE,#0213
0036D0: 20 3B 4C 6F 63 61 74 65 20 70 6F 75 72 20 65 72 ;Locate pour er
0036E0: 72 65 75 72 20 64 72 69 76 65 0D 0A 20 20 20 20 reur drive..
0036F0: 20 20 20 20 20 43 41 4C 4C 20 54 53 54 4D 49 53 CALL TSTMIS
003700: 53 20 20 20 20 3B 56 6F 69 72 20 73 69 20 65 72 S ;Voir si er
003710: 72 65 75 72 20 64 72 69 76 65 20 2E 20 4E 43 20 reur drive . NC
003720: 73 69 20 6F 75 69 0D 0A 20 20 20 20 20 20 20 20 si oui..
003730: 20 4A 52 20 4E 43 2C 4E 45 57 4C 49 54 20 20 20 JR NC,NEWLIT
003740: 20 3B 42 6F 75 63 6C 65 72 20 74 61 6E 74 20 71 ;Boucler tant q
003750: 75 65 20 46 44 43 20 70 61 73 20 63 6F 6E 74 65 ue FDC pas conte
003760: 6E 74 20 2E 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 nt ... ;..
003770: 20 20 20 50 55 53 48 20 49 59 20 20 20 20 20 20 PUSH IY
003780: 20 20 20 3B 49 59 20 65 73 74 20 6D 6F 64 69 66 ;IY est modif
003790: 69 65 20 70 61 72 20 54 53 54 45 52 52 53 0D 0A ie par TSTERRS..
0037A0: 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 54 53 CALL TS
0037B0: 54 45 52 52 53 20 20 20 20 3B 50 6C 75 73 20 64 TERRS ;Plus d
0037C0: 27 65 72 72 65 75 72 20 64 72 69 76 65 20 2C 20 'erreur drive ,
0037D0: 74 65 73 74 65 72 20 61 75 74 72 65 73 20 65 72 tester autres er
0037E0: 72 65 75 72 73 0D 0A 20 20 20 20 20 20 20 20 20 reurs..
0037F0: 50 4F 50 20 49 59 0D 0A 20 20 20 20 20 20 20 20 POP IY..
003800: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
003810: 20 20 20 20 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D ------
003820: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
003830: 2D 2D 2D 2D 0D 0A 20 20 20 20 20 20 20 20 20 20 ----..
003840: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2D -
003850: 20 53 55 42 20 52 4F 55 54 49 4E 45 53 20 50 4F SUB ROUTINES PO
003860: 55 52 20 4C 45 20 46 44 43 20 2D 0D 0A 20 20 20 UR LE FDC -..
003870: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
003880: 20 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D ---------
003890: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0038A0: 2D 0D 0A 20 0D 0A 20 20 20 20 20 50 6F 75 72 20 -.. .. Pour
0038B0: 6C 61 20 64 65 72 6E 69 7D 72 65 20 64 75 20 46 la derni}re du F
0038C0: 44 43 20 20 2C 20 20 63 65 74 74 65 20 20 73 65 DC , cette se
0038D0: 63 74 69 6F 6E 20 65 73 74 20 72 65 70 72 6F 64 ction est reprod
0038E0: 75 69 74 65 20 69 6E 74 7B 67 72 61 6C 65 6D 65 uite int{graleme
0038F0: 6E 74 20 2E 0D 0A 20 4C 65 73 20 70 61 72 74 69 nt ... Les parti
003900: 65 73 20 63 6F 6C 6C 7B 65 73 20 40 20 6C 61 20 es coll{es @ la
003910: 6D 61 72 67 65 20 6E 27 6F 6E 74 20 70 61 73 20 marge n'ont pas
003920: 73 75 62 69 20 64 65 20 6D 6F 64 69 66 69 63 61 subi de modifica
003930: 74 69 6F 6E 20 6E 6F 74 61 62 6C 65 73 20 2E 0D tion notables ..
003940: 0A 20 3B 0D 0A 20 3B 2D 20 52 6F 75 74 69 6E 65 . ;.. ;- Routine
003950: 73 20 63 6F 6D 70 6C 65 74 65 73 20 46 44 43 20 s completes FDC
003960: 2D 0D 0A 20 3B 0D 0A 20 3B 2D 20 41 46 46 2E 52 -.. ;.. ;- AFF.R
003970: 45 53 55 2E 20 2D 0D 0A 20 3B 0D 0A 20 41 46 46 ESU. -.. ;.. AFF
003980: 52 45 53 31 20 4C 44 20 49 59 2C 23 32 30 31 38 RES1 LD IY,#2018
003990: 0D 0A 20 41 46 46 52 45 53 55 20 50 55 53 48 20 .. AFFRESU PUSH
0039A0: 48 4C 0D 0A 20 20 50 55 53 48 20 42 43 0D 0A 20 HL.. PUSH BC..
0039B0: 20 43 41 4C 4C 20 4C 4F 43 41 54 45 0D 0A 20 20 CALL LOCATE..
0039C0: 4C 44 20 42 2C 33 0D 0A 20 20 4C 44 20 48 4C 2C LD B,3.. LD HL,
0039D0: 45 54 30 0D 0A 20 42 43 4C 41 52 45 53 20 4C 44 ET0.. BCLARES LD
0039E0: 20 41 2C 28 48 4C 29 0D 0A 20 20 43 41 4C 4C 20 A,(HL).. CALL
0039F0: 50 52 54 42 49 4E 0D 0A 20 20 49 4E 43 20 48 4C PRTBIN.. INC HL
003A00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
003A10: 03 00 01 00 02 09 4E E5 03 00 C1 02 00 00 00 02 ......N.........
003A20: 03 00 C2 02 00 00 00 02 03 00 C3 02 00 00 00 02 ................
003A30: 03 00 C4 02 00 00 00 02 03 00 C5 02 00 00 00 02 ................
003A40: 03 00 C6 02 00 00 00 02 03 00 C7 02 00 00 00 02 ................
003A50: 03 00 C8 02 00 00 00 02 03 00 C9 02 00 00 00 02 ................
003A60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003A70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003A80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003A90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003AA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003AB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003AC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003AD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003AE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003AF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003B00: 0D 0A 20 20 44 4A 4E 5A 20 42 43 4C 41 52 45 53 .. DJNZ BCLARES
003B10: 0D 0A 20 20 4C 44 20 42 2C 34 0D 0A 20 42 43 4C .. LD B,4.. BCL
003B20: 41 52 45 31 20 4C 44 20 41 2C 22 26 22 0D 0A 20 ARE1 LD A,"&"..
003B30: 20 43 41 4C 4C 20 23 42 42 35 41 0D 0A 20 20 4C CALL #BB5A.. L
003B40: 44 20 41 2C 28 48 4C 29 0D 0A 20 20 50 55 53 48 D A,(HL).. PUSH
003B50: 20 48 4C 0D 0A 20 20 43 41 4C 4C 20 50 52 54 48 HL.. CALL PRTH
003B60: 45 58 31 0D 0A 20 20 50 4F 50 20 48 4C 0D 0A 20 EX1.. POP HL..
003B70: 20 49 4E 43 20 48 4C 0D 0A 20 20 44 4A 4E 5A 20 INC HL.. DJNZ
003B80: 42 43 4C 41 52 45 31 0D 0A 20 20 50 4F 50 20 42 BCLARE1.. POP B
003B90: 43 0D 0A 20 20 50 4F 50 20 48 4C 0D 0A 20 20 52 C.. POP HL.. R
003BA0: 45 54 0D 0A 20 3B 0D 0A 20 3B 2D 20 4D 6F 74 65 ET.. ;.. ;- Mote
003BB0: 75 72 20 2D 0D 0A 20 3B 0D 0A 20 4D 4F 54 4F 4E ur -.. ;.. MOTON
003BC0: 20 20 20 4C 44 20 41 2C 28 46 4C 41 47 4D 4F 54 LD A,(FLAGMOT
003BD0: 29 0D 0A 20 20 43 50 20 31 0D 0A 20 20 52 45 54 ).. CP 1.. RET
003BE0: 20 5A 0D 0A 20 20 4C 44 20 41 2C 31 0D 0A 20 20 Z.. LD A,1..
003BF0: 43 41 4C 4C 20 4D 4F 54 43 4F 4D 0D 0A 20 20 4C CALL MOTCOM.. L
003C00: 44 20 41 2C 28 54 45 4D 50 4D 4F 54 29 20 3B 4D D A,(TEMPMOT) ;M
003C10: 69 6E 69 20 35 35 0D 0A 20 20 4A 50 20 54 45 4D ini 55.. JP TEM
003C20: 50 41 4D 53 0D 0A 20 4D 4F 54 43 4F 4D 20 20 4C PAMS.. MOTCOM L
003C30: 44 20 28 46 4C 41 47 4D 4F 54 29 2C 41 0D 0A 20 D (FLAGMOT),A..
003C40: 20 4C 44 20 42 43 2C 23 46 41 37 45 0D 0A 20 20 LD BC,#FA7E..
003C50: 4F 55 54 20 28 43 29 2C 41 0D 0A 20 20 52 45 54 OUT (C),A.. RET
003C60: 0D 0A 20 3B 0D 0A 20 4D 4F 54 4F 46 46 20 20 58 .. ;.. MOTOFF X
003C70: 4F 52 20 41 0D 0A 20 20 4A 52 20 4D 4F 54 43 4F OR A.. JR MOTCO
003C80: 4D 0D 0A 20 3B 0D 0A 20 3B 2D 20 54 65 73 74 65 M.. ;.. ;- Teste
003C90: 72 20 6C 65 73 20 32 20 64 72 69 76 65 73 20 2D r les 2 drives -
003CA0: 0D 0A 20 3B 0D 0A 20 54 53 54 32 44 52 20 20 58 .. ;.. TST2DR X
003CB0: 4F 52 20 41 20 20 20 20 20 20 20 20 20 20 20 3B OR A ;
003CC0: 52 45 4D 41 4E 49 45 20 45 4E 20 46 4F 4E 43 54 REMANIE EN FONCT
003CD0: 49 4F 4E 20 44 45 20 4C 41 20 4E 4F 55 56 45 4C ION DE LA NOUVEL
003CE0: 4C 45 20 50 52 45 53 45 4E 54 41 54 49 4F 4E 0D LE PRESENTATION.
003CF0: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 44 52 . LD (DR
003D00: 53 45 4C 45 43 29 2C 41 20 20 3B 4D 41 49 53 20 SELEC),A ;MAIS
003D10: 50 52 49 4E 43 49 50 45 20 49 44 45 4E 54 49 51 PRINCIPE IDENTIQ
003D20: 55 45 20 41 20 56 45 52 53 49 4F 4E 20 50 52 45 UE A VERSION PRE
003D30: 43 45 44 45 4E 54 45 0D 0A 20 20 20 20 20 20 20 CEDENTE..
003D40: 20 20 4C 44 20 28 50 49 53 54 53 45 4C 29 2C 41 LD (PISTSEL),A
003D50: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 50 .. LD (P
003D60: 49 53 54 4C 29 2C 41 0D 0A 20 20 20 20 20 20 20 ISTL),A..
003D70: 20 20 4C 44 20 28 50 49 53 54 57 29 2C 41 0D 0A LD (PISTW),A..
003D80: 20 3B 0D 0A 20 54 53 54 32 44 52 31 20 43 41 4C ;.. TST2DR1 CAL
003D90: 4C 20 43 41 4C 49 42 52 45 20 20 20 3B 41 6C 6C L CALIBRE ;All
003DA0: 65 72 20 70 69 73 74 65 20 30 0D 0A 20 20 20 20 er piste 0..
003DB0: 20 20 20 20 20 43 41 4C 4C 20 54 53 54 44 52 49 CALL TSTDRI
003DC0: 56 20 20 20 3B 54 65 73 74 65 72 20 65 74 61 74 V ;Tester etat
003DD0: 20 64 72 69 76 65 20 2E 20 41 20 3D 20 45 54 33 drive . A = ET3
003DE0: 20 61 75 20 72 65 74 6F 75 72 0D 0A 20 20 20 20 au retour..
003DF0: 20 20 20 20 20 4C 44 20 28 45 54 44 52 41 29 2C LD (ETDRA),
003E00: 41 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 48 A.. LD H
003E10: 4C 2C 23 30 44 30 32 20 20 20 20 3B 4C 6F 63 61 L,#0D02 ;Loca
003E20: 74 65 20 70 6F 75 72 20 74 65 78 74 65 20 65 74 te pour texte et
003E30: 61 74 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C at.. CAL
003E40: 4C 20 41 46 52 45 53 44 52 20 20 20 3B 54 65 73 L AFRESDR ;Tes
003E50: 74 65 72 20 65 74 61 74 20 65 74 20 61 66 66 69 ter etat et affi
003E60: 63 68 65 72 20 0D 0A 20 3B 0D 0A 20 20 20 20 20 cher .. ;..
003E70: 20 20 20 20 4C 44 20 41 2C 31 20 20 20 20 20 20 LD A,1
003E80: 20 20 20 3B 49 64 65 6D 20 73 75 72 20 64 72 69 ;Idem sur dri
003E90: 76 65 20 42 0D 0A 20 20 20 20 20 20 20 20 20 4C ve B.. L
003EA0: 44 20 28 44 52 53 45 4C 45 43 29 2C 41 0D 0A 20 D (DRSELEC),A..
003EB0: 52 45 43 41 4C 49 20 20 43 41 4C 4C 20 43 41 4C RECALI CALL CAL
003EC0: 49 42 52 45 0D 0A 20 20 20 20 20 20 20 20 20 43 IBRE.. C
003ED0: 50 20 23 38 30 0D 0A 20 20 20 20 20 20 20 20 20 P #80..
003EE0: 4A 52 20 4E 5A 2C 42 41 4C 4C 55 4D 45 0D 0A 20 JR NZ,BALLUME..
003EF0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 48 ;.. LD H
003F00: 4C 2C 54 4A 45 56 45 55 42 20 20 20 20 20 3B 42 L,TJEVEUB ;B
003F10: 20 64 6F 69 74 20 65 74 72 65 20 61 6C 6C 75 6D doit etre allum
003F20: 65 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C e.. CALL
003F30: 20 50 52 54 0D 0A 20 20 20 20 20 20 20 20 20 43 PRT.. C
003F40: 41 4C 4C 20 23 42 42 30 36 0D 0A 20 20 20 20 20 ALL #BB06..
003F50: 20 20 20 20 4C 44 20 41 2C 31 37 20 20 20 20 20 LD A,17
003F60: 20 20 20 20 20 20 3B 45 66 66 61 63 65 72 20 74 ;Effacer t
003F70: 65 78 74 65 0D 0A 20 20 20 20 20 20 20 20 20 43 exte.. C
003F80: 41 4C 4C 20 23 42 42 35 41 0D 0A 20 20 20 20 20 ALL #BB5A..
003F90: 20 20 20 20 4A 52 20 52 45 43 41 4C 49 0D 0A 20 JR RECALI..
003FA0: 3B 0D 0A 20 42 41 4C 4C 55 4D 45 20 43 41 4C 4C ;.. BALLUME CALL
003FB0: 20 54 53 54 44 52 49 56 0D 0A 20 20 20 20 20 20 TSTDRIV..
003FC0: 20 20 20 4C 44 20 28 45 54 44 52 42 29 2C 41 0D LD (ETDRB),A.
003FD0: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 48 4C 2C . LD HL,
003FE0: 23 32 45 30 32 0D 0A 20 3B 0D 0A 20 3B 2D 20 41 #2E02.. ;.. ;- A
003FF0: 66 66 69 63 68 65 72 20 65 74 61 74 20 64 72 69 fficher etat dri
004000: 76 65 73 20 2D 0D 0A 20 3B 0D 0A 20 41 46 52 45 ves -.. ;.. AFRE
004010: 53 44 52 20 50 55 53 48 20 41 46 20 20 20 20 20 SDR PUSH AF
004020: 20 20 20 20 20 20 3B 50 72 65 73 65 72 76 65 72 ;Preserver
004030: 20 45 54 33 0D 0A 20 20 20 20 20 20 20 20 20 43 ET3.. C
004040: 41 4C 4C 20 23 42 42 37 35 20 20 20 20 20 20 20 ALL #BB75
004050: 20 3B 50 6C 61 63 65 72 20 74 65 78 74 65 0D 0A ;Placer texte..
004060: 20 20 20 20 20 20 20 20 20 4C 44 20 48 4C 2C 54 LD HL,T
004070: 4E 4F 4C 45 43 54 0D 0A 20 20 20 20 20 20 20 20 NOLECT..
004080: 20 50 4F 50 20 41 46 20 20 20 20 20 20 20 20 20 POP AF
004090: 20 20 20 3B 52 65 63 75 70 65 72 65 72 20 45 54 ;Recuperer ET
0040A0: 33 0D 0A 20 20 20 20 20 20 20 20 20 43 50 20 31 3.. CP 1
0040B0: 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 20 5A 2C .. JR Z,
0040C0: 44 52 48 53 20 20 20 20 20 20 20 20 20 3B 4C 65 DRHS ;Le
0040D0: 63 74 65 75 72 20 48 53 0D 0A 20 20 20 20 20 20 cteur HS..
0040E0: 20 20 20 42 49 54 20 35 2C 41 0D 0A 20 20 20 20 BIT 5,A..
0040F0: 20 20 20 20 20 4A 52 20 4E 5A 2C 44 52 45 41 44 JR NZ,DREAD
004100: 59 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 Y.. ;..
004110: 4C 44 20 48 4C 2C 54 4D 49 53 53 20 20 20 20 20 LD HL,TMISS
004120: 20 20 3B 44 69 73 71 75 65 20 6D 61 6E 71 75 65 ;Disque manque
004130: 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 20 44 52 .. JR DR
004140: 48 53 0D 0A 20 3B 0D 0A 20 44 52 45 41 44 59 20 HS.. ;.. DREADY
004150: 20 4C 44 20 48 4C 2C 54 50 52 4F 54 0D 0A 20 20 LD HL,TPROT..
004160: 20 20 20 20 20 20 20 42 49 54 20 36 2C 41 0D 0A BIT 6,A..
004170: 20 20 20 20 20 20 20 20 20 4A 52 20 4E 5A 2C 44 JR NZ,D
004180: 52 48 53 20 20 20 20 20 20 20 20 3B 50 72 6F 74 RHS ;Prot
004190: 65 67 65 20 65 63 72 69 74 75 72 65 0D 0A 20 3B ege ecriture.. ;
0041A0: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 48 4C .. LD HL
0041B0: 2C 54 4E 4F 50 52 4F 54 20 20 20 20 20 3B 4F 4B ,TNOPROT ;OK
0041C0: 20 45 63 72 69 74 75 72 65 0D 0A 20 44 52 48 53 Ecriture.. DRHS
0041D0: 20 20 20 20 4A 50 20 50 52 54 0D 0A 20 3B 0D 0A JP PRT.. ;..
0041E0: 20 54 4A 45 56 45 55 42 20 44 42 20 33 31 2C 34 TJEVEUB DB 31,4
0041F0: 36 2C 32 2C 32 34 2C 22 20 41 4C 4C 55 4D 45 52 6,2,24," ALLUMER
004200: 20 44 52 49 56 45 20 42 20 21 20 22 2C 32 34 2C DRIVE B ! ",24,
004210: 37 2C 31 33 2B 23 38 30 0D 0A 20 54 4E 4F 4C 45 7,13+#80.. TNOLE
004220: 43 54 20 44 42 20 22 20 4C 65 63 74 65 75 72 20 CT DB " Lecteur
004230: 61 62 73 65 6E 74 20 20 22 2C 23 38 30 0D 0A 20 absent ",#80..
004240: 54 4D 49 53 53 20 20 20 44 42 20 22 20 44 69 73 TMISS DB " Dis
004250: 71 75 65 20 6D 61 6E 71 75 61 6E 74 20 22 2C 23 que manquant ",#
004260: 38 30 0D 0A 20 54 50 52 4F 54 20 20 20 44 42 20 80.. TPROT DB
004270: 22 20 50 72 6F 74 65 67 65 20 65 63 72 69 74 75 " Protege ecritu
004280: 72 65 22 2C 23 38 30 0D 0A 20 54 4E 4F 50 52 4F re",#80.. TNOPRO
004290: 54 20 44 42 20 22 20 4F 4B 20 65 6E 20 65 63 72 T DB " OK en ecr
0042A0: 69 74 75 72 65 20 20 22 2C 23 38 30 0D 0A 20 3B iture ",#80.. ;
0042B0: 0D 0A 20 54 53 4D 49 53 50 52 4F 54 20 43 41 4C .. TSMISPROT CAL
0042C0: 4C 20 54 53 54 4D 49 53 53 20 3B 54 65 73 74 65 L TSTMISS ;Teste
0042D0: 72 20 64 69 73 63 20 6D 69 73 73 69 6E 67 20 45 r disc missing E
0042E0: 54 20 77 72 69 74 65 20 70 72 6F 74 65 63 74 65 T write protecte
0042F0: 64 0D 0A 20 20 20 20 20 20 20 20 20 52 45 54 20 d.. RET
004300: 4E 43 0D 0A 20 20 20 20 20 20 20 20 20 4A 50 20 NC.. JP
004310: 54 53 54 50 52 4F 54 0D 0A 20 3B 0D 0A 20 54 53 TSTPROT.. ;.. TS
004320: 54 4D 49 53 53 20 4C 44 20 41 2C 28 45 54 30 29 TMISS LD A,(ET0)
004330: 20 20 20 20 20 20 3B 54 65 73 74 65 72 20 27 44 ;Tester 'D
004340: 69 73 63 20 6D 69 73 73 69 6E 67 27 0D 0A 20 20 isc missing'..
004350: 20 20 20 20 20 20 20 41 4E 44 20 25 30 30 30 30 AND %0000
004360: 31 30 30 30 0D 0A 20 20 20 20 20 20 20 20 20 53 1000.. S
004370: 43 46 0D 0A 20 20 20 20 20 20 20 20 20 52 45 54 CF.. RET
004380: 20 5A 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 Z.. ;..
004390: 20 4C 44 20 48 4C 2C 54 4D 49 53 53 0D 0A 20 20 LD HL,TMISS..
0043A0: 20 20 20 20 20 20 20 4A 52 20 53 54 4F 50 44 52 JR STOPDR
0043B0: 56 0D 0A 20 3B 0D 0A 20 54 53 54 50 52 4F 54 20 V.. ;.. TSTPROT
0043C0: 4C 44 20 41 2C 28 45 54 31 29 20 20 20 20 20 20 LD A,(ET1)
0043D0: 3B 54 65 73 74 65 72 20 27 57 72 69 74 65 20 70 ;Tester 'Write p
0043E0: 72 6F 74 65 63 74 65 64 27 0D 0A 20 20 20 20 20 rotected'..
0043F0: 20 20 20 20 41 4E 44 20 25 30 30 30 30 30 30 31 AND %0000001
004400: 30 0D 0A 20 20 20 20 20 20 20 20 20 53 43 46 0D 0.. SCF.
004410: 0A 20 20 20 20 20 20 20 20 20 52 45 54 20 5A 0D . RET Z.
004420: 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 . ;.. LD
004430: 20 48 4C 2C 54 50 52 4F 54 0D 0A 20 3B 0D 0A 20 HL,TPROT.. ;..
004440: 53 54 4F 50 44 52 56 20 50 55 53 48 20 48 4C 20 STOPDRV PUSH HL
004450: 20 20 20 20 20 20 3B 44 65 20 64 6F 69 74 20 63 ;De doit c
004460: 6F 6E 74 65 6E 69 72 20 63 6F 6F 72 64 6F 6E 6E ontenir coordonn
004470: 65 65 73 20 6C 6F 63 61 74 65 0D 0A 20 20 20 20 ees locate..
004480: 20 20 20 20 20 45 58 20 44 45 2C 48 4C 0D 0A 20 EX DE,HL..
004490: 20 20 20 20 20 20 20 20 43 41 4C 4C 20 23 42 42 CALL #BB
0044A0: 37 35 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C 75.. CAL
0044B0: 4C 20 49 4E 56 0D 0A 20 20 20 20 20 20 20 20 20 L INV..
0044C0: 43 41 4C 4C 20 53 50 41 43 45 0D 0A 20 20 20 20 CALL SPACE..
0044D0: 20 20 20 20 20 4C 44 20 41 2C 28 44 52 53 45 4C LD A,(DRSEL
0044E0: 45 43 29 0D 0A 20 20 20 20 20 20 20 20 20 41 44 EC).. AD
0044F0: 44 20 41 2C 23 34 31 0D 0A 20 20 20 20 20 20 20 D A,#41..
004500: 20 20 43 41 4C 4C 20 23 42 42 35 41 0D 0A 20 20 CALL #BB5A..
004510: 20 20 20 20 20 20 20 4C 44 20 41 2C 22 3A 22 0D LD A,":".
004520: 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 23 . CALL #
004530: 42 42 35 41 0D 0A 20 20 20 20 20 20 20 20 20 50 BB5A.. P
004540: 4F 50 20 48 4C 0D 0A 20 3B 0D 0A 20 20 20 20 20 OP HL.. ;..
004550: 20 20 20 20 43 41 4C 4C 20 50 52 54 0D 0A 20 20 CALL PRT..
004560: 20 20 20 20 20 20 20 43 41 4C 4C 20 53 50 41 43 CALL SPAC
004570: 45 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C E.. CALL
004580: 20 49 4E 56 0D 0A 20 20 20 20 20 20 20 20 20 43 INV.. C
004590: 41 4C 4C 20 53 4F 4E 4E 45 0D 0A 20 20 20 20 20 ALL SONNE..
0045A0: 20 20 20 20 43 41 4C 4C 20 23 42 42 30 36 0D 0A CALL #BB06..
0045B0: 20 20 20 20 20 20 20 20 20 4C 44 20 41 2C 31 37 LD A,17
0045C0: 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 .. CALL
0045D0: 23 42 42 35 41 0D 0A 20 20 20 20 20 20 20 20 20 #BB5A..
0045E0: 58 4F 52 20 41 0D 0A 20 20 20 20 20 20 20 20 20 XOR A..
0045F0: 52 45 54 0D 0A 20 3B 0D 0A 20 3B 2D 20 41 6C 6C RET.. ;.. ;- All
004600: 65 72 20 65 6E 20 70 69 73 74 65 20 50 49 53 54 er en piste PIST
004610: 53 45 4C 20 2D 0D 0A 20 3B 0D 0A 20 47 4F 50 49 SEL -.. ;.. GOPI
004620: 53 54 45 20 50 55 53 48 20 44 45 20 20 20 20 20 STE PUSH DE
004630: 20 20 20 20 3B 51 55 45 4C 51 55 45 20 50 45 55 ;QUELQUE PEU
004640: 20 52 45 54 4F 55 43 48 45 45 20 45 54 20 52 45 RETOUCHEE ET RE
004650: 4D 50 4C 41 43 45 20 27 47 4F 50 49 53 54 31 27 MPLACE 'GOPIST1'
004660: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 41 2C .. LD A,
004670: 28 4E 42 54 45 4E 54 29 0D 0A 20 20 20 20 20 20 (NBTENT)..
004680: 20 20 20 4C 44 20 42 2C 41 0D 0A 20 42 43 4C 50 LD B,A.. BCLP
004690: 49 53 54 20 43 41 4C 4C 20 47 4F 50 49 53 54 4E IST CALL GOPISTN
0046A0: 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 20 43 2C .. JR C,
0046B0: 53 55 52 50 49 53 54 0D 0A 20 20 20 20 20 20 20 SURPIST..
0046C0: 20 20 44 45 43 20 42 0D 0A 20 20 20 20 20 20 20 DEC B..
0046D0: 20 20 4A 52 20 5A 2C 46 49 4E 50 49 53 31 0D 0A JR Z,FINPIS1..
0046E0: 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 43 41 CALL CA
0046F0: 4C 49 42 52 45 0D 0A 20 20 20 20 20 20 20 20 20 LIBRE..
004700: 4A 52 20 42 43 4C 50 49 53 54 0D 0A 20 3B 0D 0A JR BCLPIST.. ;..
004710: 20 53 55 52 50 49 53 54 20 50 55 53 48 20 41 46 SURPIST PUSH AF
004720: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 41 2C .. LD A,
004730: 28 50 49 53 54 53 45 4C 29 0D 0A 20 20 20 20 20 (PISTSEL)..
004740: 20 20 20 20 50 55 53 48 20 42 43 0D 0A 20 20 20 PUSH BC..
004750: 20 20 20 20 20 20 4C 44 20 42 2C 41 0D 0A 20 20 LD B,A..
004760: 20 20 20 20 20 20 20 4C 44 20 41 2C 28 45 54 31 LD A,(ET1
004770: 29 0D 0A 20 20 20 20 20 20 20 20 20 43 50 20 42 ).. CP B
004780: 0D 0A 20 20 20 20 20 20 20 20 20 50 4F 50 20 42 .. POP B
004790: 43 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 20 5A C.. JR Z
0047A0: 2C 46 49 4E 50 49 53 54 0D 0A 20 20 20 20 20 20 ,FINPIST..
0047B0: 20 20 20 50 4F 50 20 41 46 0D 0A 20 20 20 20 20 POP AF..
0047C0: 20 20 20 20 44 45 43 20 42 0D 0A 20 20 20 20 20 DEC B..
0047D0: 20 20 20 20 4A 52 20 4E 5A 2C 42 43 4C 50 49 53 JR NZ,BCLPIS
0047E0: 54 0D 0A 20 46 49 4E 50 49 53 54 20 50 4F 50 20 T.. FINPIST POP
0047F0: 41 46 0D 0A 20 46 49 4E 50 49 53 31 20 50 4F 50 AF.. FINPIS1 POP
004800: 20 44 45 0D 0A 20 20 20 20 20 20 20 20 20 52 45 DE.. RE
004810: 54 0D 0A 20 3B 0D 0A 20 3B 2D 20 49 6E 69 74 69 T.. ;.. ;- Initi
004820: 61 6C 69 73 61 74 69 6F 6E 20 64 65 73 20 62 69 alisation des bi
004830: 74 73 20 64 65 20 46 4C 41 47 45 52 52 20 73 65 ts de FLAGERR se
004840: 6C 6F 6E 20 69 6E 74 65 72 70 72 65 74 61 74 69 lon interpretati
004850: 6F 6E 20 72 65 73 75 6C 74 61 74 0D 0A 20 3B 0D on resultat.. ;.
004860: 0A 20 54 53 54 45 52 52 53 20 4C 44 20 49 59 2C . TSTERRS LD IY,
004870: 46 4C 41 47 45 52 52 20 20 20 20 3B 52 41 5A 20 FLAGERR ;RAZ
004880: 45 72 72 65 75 72 73 0D 0A 20 20 4C 44 20 28 49 Erreurs.. LD (I
004890: 59 2B 30 29 2C 30 0D 0A 20 20 4C 44 20 41 2C 28 Y+0),0.. LD A,(
0048A0: 51 55 41 54 52 49 44 2B 31 29 20 3B 54 65 73 74 QUATRID+1) ;Test
0048B0: 20 64 65 73 20 65 72 72 65 75 72 73 0D 0A 20 20 des erreurs..
0048C0: 4F 52 20 41 0D 0A 20 20 4A 52 20 5A 2C 4F 4B 48 OR A.. JR Z,OKH
0048D0: 45 41 44 0D 0A 20 20 53 45 54 20 36 2C 28 49 59 EAD.. SET 6,(IY
0048E0: 2B 30 29 0D 0A 20 4F 4B 48 45 41 44 20 20 4C 44 +0).. OKHEAD LD
0048F0: 20 48 4C 2C 45 54 31 20 20 20 20 20 3B 53 75 72 HL,ET1 ;Sur
004900: 20 4C 44 20 41 2C 28 46 4C 41 47 45 52 52 29 0D LD A,(FLAGERR).
004910: 0A 20 20 20 20 20 20 20 20 20 41 4E 44 20 25 30 . AND %0
004920: 30 31 31 30 31 31 31 20 20 20 3B 53 69 20 70 61 0110111 ;Si pa
004930: 73 20 64 27 65 72 72 65 75 72 20 73 61 75 66 20 s d'erreur sauf
004940: 45 50 2D 48 44 2D 43 4D 20 2C 20 63 27 65 73 74 EP-HD-CM , c'est
004950: 20 62 6F 6E 0D 0A 20 20 20 20 20 20 20 20 20 4A bon.. J
004960: 52 20 5A 2C 43 45 53 54 4C 55 0D 0A 20 3B 0D 0A R Z,CESTLU.. ;..
004970: 20 20 20 20 20 20 20 20 20 44 45 43 20 28 49 59 DEC (IY
004980: 2B 30 29 20 20 20 20 20 20 3B 53 69 20 65 72 72 +0) ;Si err
004990: 65 75 72 20 2E 20 35 20 65 73 73 61 69 73 20 64 eur . 5 essais d
0049A0: 65 20 6C 65 63 74 75 72 65 20 70 6F 75 72 20 73 e lecture pour s
0049B0: 65 63 74 65 75 72 0D 0A 20 20 20 20 20 20 20 20 ecteur..
0049C0: 20 4A 52 20 4E 5A 2C 4E 45 57 4C 49 54 20 20 20 JR NZ,NEWLIT
0049D0: 20 3B 56 52 41 49 4D 45 4E 54 20 65 6E 64 6F 6D ;VRAIMENT endom
0049E0: 6D 61 67 65 20 2E 0D 0A 20 3B 0D 0A 20 20 20 20 mage ... ;..
0049F0: 20 20 20 20 20 4C 44 20 41 2C 28 46 4C 41 47 29 LD A,(FLAG)
004A00: 20 20 20 20 20 3B 50 61 73 20 61 66 66 69 63 68 ;Pas affich
004A10: 65 72 20 6C 65 20 74 65 78 74 65 20 45 52 52 45 er le texte ERRE
004A20: 55 52 20 70 6C 75 73 69 65 75 72 73 20 66 6F 69 UR plusieurs foi
004A30: 73 0D 0A 20 20 20 20 20 20 20 20 20 4F 52 20 41 s.. OR A
004A40: 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 20 4E 5A .. JR NZ
004A50: 2C 50 52 53 45 43 45 52 0D 0A 20 3B 0D 0A 20 20 ,PRSECER.. ;..
004A60: 20 20 20 20 20 20 20 4C 44 20 48 4C 2C 54 4C 45 LD HL,TLE
004A70: 43 54 45 52 20 20 20 3B 54 65 78 74 65 20 65 72 CTER ;Texte er
004A80: 72 65 75 72 20 6C 65 63 74 75 72 65 0D 0A 20 20 reur lecture..
004A90: 20 20 20 20 20 20 20 43 41 4C 4C 20 50 52 54 0D CALL PRT.
004AA0: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 41 2C 23 . LD A,#
004AB0: 46 46 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 FF.. LD
004AC0: 28 46 4C 41 47 29 2C 41 0D 0A 20 3B 0D 0A 20 50 (FLAG),A.. ;.. P
004AD0: 52 53 45 43 45 52 20 4C 44 20 41 2C 22 26 22 20 RSECER LD A,"&"
004AE0: 20 20 20 20 20 20 20 3B 41 66 66 69 63 68 65 72 ;Afficher
004AF0: 20 6C 65 20 6E 75 6D 65 72 6F 20 64 65 20 73 65 le numero de se
004B00: 63 74 65 75 72 20 65 6E 20 65 72 72 65 75 72 0D cteur en erreur.
004B10: 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 23 . CALL #
004B20: 42 42 35 41 0D 0A 20 20 20 20 20 20 20 20 20 4C BB5A.. L
004B30: 44 20 41 2C 28 51 55 41 54 52 49 44 2B 32 29 0D D A,(QUATRID+2).
004B40: 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 50 . CALL P
004B50: 52 54 48 45 58 31 0D 0A 20 3B 0D 0A 20 20 20 20 RTHEX1.. ;..
004B60: 20 20 20 20 20 4C 44 20 48 4C 2C 28 53 54 4F 4B LD HL,(STOK
004B70: 45 52 52 29 20 3B 45 72 72 65 75 72 20 69 6D 70 ERR) ;Erreur imp
004B80: 72 65 76 75 65 20 61 70 70 61 72 75 65 20 2C 20 revue apparue ,
004B90: 6D 6F 64 69 66 69 65 72 20 6C 61 20 6C 69 73 74 modifier la list
004BA0: 65 20 64 65 73 0D 0A 20 20 20 20 20 20 20 20 20 e des..
004BB0: 4C 44 20 41 2C 28 46 4C 41 47 45 52 52 29 20 20 LD A,(FLAGERR)
004BC0: 3B 65 72 72 65 75 72 73 20 65 6E 20 63 6F 6E 73 ;erreurs en cons
004BD0: 65 71 75 65 6E 63 65 20 2E 0D 0A 20 20 20 20 20 equence ...
004BE0: 20 20 20 20 4C 44 20 28 48 4C 29 2C 41 0D 0A 20 LD (HL),A..
004BF0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
004C00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
004C10: 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ---------------
004C20: 2D 2D 2D 2D 0D 0A 20 0D 0A 20 20 20 20 20 41 76 ----.. .. Av
004C30: 65 63 20 6F 75 20 73 61 6E 73 20 65 72 72 65 75 ec ou sans erreu
004C40: 72 20 2C 20 6C 65 20 20 73 65 63 74 65 75 72 20 r , le secteur
004C50: 20 40 20 20 7B 74 7B 20 20 6C 75 20 20 65 74 20 @ {t{ lu et
004C60: 20 73 74 6F 63 6B 7B 20 2E 20 4C 61 20 72 6F 75 stock{ . La rou
004C70: 74 69 6E 65 20 64 65 0D 0A 20 6C 65 63 74 75 72 tine de.. lectur
004C80: 65 20 72 65 6E 76 6F 79 61 6E 74 20 6C 65 20 6E e renvoyant le n
004C90: 6F 6D 62 72 65 20 64 27 6F 63 74 65 74 73 20 20 ombre d'octets
004CA0: 52 45 45 4C 4C 45 4D 45 4E 54 20 20 4C 55 53 20 REELLEMENT LUS
004CB0: 20 64 61 6E 73 20 4E 42 4C 55 53 20 2C 20 69 6C dans NBLUS , il
004CC0: 20 73 75 66 66 69 74 0D 0A 20 64 27 61 6A 6F 75 suffit.. d'ajou
004CD0: 74 65 72 20 63 65 74 74 65 20 76 61 6C 65 75 72 ter cette valeur
004CE0: 20 40 20 41 44 42 55 46 46 20 70 6F 75 72 20 20 @ ADBUFF pour
004CF0: 61 76 6F 69 72 20 20 6C 61 20 70 72 6F 63 68 61 avoir la procha
004D00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
004D10: 04 00 01 00 02 09 4E E5 04 00 C1 02 00 00 00 02 ......N.........
004D20: 04 00 C2 02 00 00 00 02 04 00 C3 02 00 00 00 02 ................
004D30: 04 00 C4 02 00 00 00 02 04 00 C5 02 00 00 00 02 ................
004D40: 04 00 C6 02 00 00 00 02 04 00 C7 02 00 00 00 02 ................
004D50: 04 00 C8 02 00 00 00 02 04 00 C9 02 00 00 00 02 ................
004D60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004D70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004D80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004D90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004DA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004DB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004DC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004DD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004DE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004DF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004E00: 69 6E 65 20 61 64 72 65 73 73 65 20 64 65 20 73 ine adresse de s
004E10: 74 6F 63 6B 61 67 65 0D 0A 20 64 65 73 20 64 6F tockage.. des do
004E20: 6E 6E 7B 65 73 20 2E 20 44 61 6E 73 20 6C 65 20 nn{es . Dans le
004E30: 63 61 73 20 6F 75 20 6C 65 20 73 65 63 74 65 75 cas ou le secteu
004E40: 72 20 20 65 73 74 20 76 69 65 72 67 65 20 2C 20 r est vierge ,
004E50: 63 27 65 73 74 20 6C 65 20 6D 65 08 5E 6D 65 20 c'est le me.^me
004E60: 6F 63 74 65 74 20 71 75 69 0D 0A 20 73 65 20 72 octet qui.. se r
004E70: 7B 70 7D 74 65 20 2E 20 49 6E 75 74 69 6C 65 20 {p}te . Inutile
004E80: 61 6C 6F 72 73 20 64 27 65 6E 63 6F 6D 62 72 65 alors d'encombre
004E90: 72 20 6C 65 20 62 75 66 66 65 72 20 2C 20 73 65 r le buffer , se
004EA0: 75 6C 20 75 6E 20 6F 63 74 65 74 20 65 73 74 20 ul un octet est
004EB0: 73 74 6F 63 6B 7B 20 65 74 0D 0A 20 6F 6E 20 75 stock{ et.. on u
004EC0: 74 69 6C 69 73 65 20 65 6E 63 6F 72 65 20 6C 61 tilise encore la
004ED0: 20 6C 69 73 74 65 20 64 65 73 20 7B 74 61 74 73 liste des {tats
004EE0: 20 64 27 65 72 72 65 75 72 20 70 6F 75 72 20 73 d'erreur pour s
004EF0: 69 67 6E 61 6C 65 72 20 6C 61 20 63 68 6F 73 65 ignaler la chose
004F00: 20 2E 0D 0A 20 0D 0A 20 20 20 20 20 20 20 20 20 ... ..
004F10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
004F20: 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D -----------
004F30: 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 3B 0D 0A 20 43 --------.. ;.. C
004F40: 45 53 54 4C 55 20 20 4C 44 20 48 4C 2C 28 41 44 ESTLU LD HL,(AD
004F50: 42 55 46 46 29 20 20 3B 41 64 72 65 73 73 65 20 BUFF) ;Adresse
004F60: 62 75 66 66 65 72 0D 0A 20 20 20 20 20 20 20 20 buffer..
004F70: 20 4C 44 20 42 43 2C 28 4E 42 4C 55 53 29 20 20 LD BC,(NBLUS)
004F80: 20 3B 4E 6F 6D 62 72 65 20 6F 63 74 65 74 73 20 ;Nombre octets
004F90: 6C 75 73 20 2D 31 0D 0A 20 20 20 20 20 20 20 20 lus -1..
004FA0: 20 44 45 43 20 42 43 0D 0A 20 3B 0D 0A 20 20 20 DEC BC.. ;..
004FB0: 20 20 20 20 20 20 4C 44 20 41 2C 28 48 4C 29 20 LD A,(HL)
004FC0: 20 20 20 20 20 20 3B 56 6F 69 72 20 73 69 20 74 ;Voir si t
004FD0: 6F 75 73 20 6C 65 73 20 6F 63 74 65 74 73 20 64 ous les octets d
004FE0: 75 20 73 65 63 74 65 75 72 20 73 6F 6E 74 20 69 u secteur sont i
004FF0: 64 65 6E 74 69 71 75 65 73 0D 0A 20 42 43 4C 49 dentiques.. BCLI
005000: 44 45 4D 20 43 50 20 28 48 4C 29 20 20 20 20 20 DEM CP (HL)
005010: 20 20 20 20 3B 53 69 20 6F 75 69 20 6F 6E 20 73 ;Si oui on s
005020: 74 6F 63 6B 65 20 73 6F 75 73 20 66 6F 72 6D 65 tocke sous forme
005030: 20 63 6F 6D 70 72 65 73 73 65 0D 0A 20 20 20 20 compresse..
005040: 20 20 20 20 20 4A 52 20 4E 5A 2C 4E 4F 4E 4D 45 JR NZ,NONME
005050: 4D 45 20 20 20 3B 53 69 20 6E 6F 6E 20 6F 6E 20 ME ;Si non on
005060: 73 61 75 74 65 0D 0A 20 20 20 20 20 20 20 20 20 saute..
005070: 49 4E 43 20 48 4C 0D 0A 20 20 20 20 20 20 20 20 INC HL..
005080: 20 44 45 43 20 42 43 0D 0A 20 20 20 20 20 20 20 DEC BC..
005090: 20 20 42 49 54 20 37 2C 42 20 20 20 20 20 20 20 BIT 7,B
0050A0: 20 3B 53 69 20 6D 69 73 65 20 61 20 31 20 64 75 ;Si mise a 1 du
0050B0: 20 42 49 54 20 37 20 2C 20 42 43 20 76 69 65 6E BIT 7 , BC vien
0050C0: 74 20 64 65 20 70 61 73 73 65 72 20 61 20 30 0D t de passer a 0.
0050D0: 0A 20 20 20 20 20 20 20 20 20 4A 52 20 5A 2C 42 . JR Z,B
0050E0: 43 4C 49 44 45 4D 0D 0A 20 3B 0D 0A 20 20 20 20 CLIDEM.. ;..
0050F0: 20 20 20 20 20 4C 44 20 48 4C 2C 28 53 54 4F 4B LD HL,(STOK
005100: 45 52 52 29 20 3B 54 6F 75 73 20 6C 65 73 20 6F ERR) ;Tous les o
005110: 63 74 65 74 73 20 73 6F 6E 74 20 69 64 65 6E 74 ctets sont ident
005120: 69 71 75 65 73 20 2E 20 4F 6E 20 75 74 69 6C 69 iques . On utili
005130: 73 65 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 se.. LD
005140: 41 2C 28 48 4C 29 20 20 20 20 20 20 20 3B 6C 65 A,(HL) ;le
005150: 20 70 6F 69 6E 74 65 75 72 20 64 27 65 72 72 65 pointeur d'erre
005160: 75 72 73 20 70 6F 75 72 20 73 69 67 6E 61 6C 65 urs pour signale
005170: 72 20 63 65 20 66 61 69 74 0D 0A 20 20 20 20 20 r ce fait..
005180: 20 20 20 20 41 4E 44 20 25 30 30 30 30 31 30 30 AND %0000100
005190: 30 20 20 20 3B 65 74 20 6F 6E 20 6E 65 20 73 74 0 ;et on ne st
0051A0: 6F 63 6B 65 20 71 75 27 75 6E 20 6F 63 74 65 74 ocke qu'un octet
0051B0: 20 2E 0D 0A 20 20 20 20 20 20 20 20 20 58 4F 52 ... XOR
0051C0: 20 23 46 46 20 20 20 20 20 20 20 20 20 3B 4E 4F #FF ;NO
0051D0: 54 45 52 20 51 27 58 4F 52 20 23 46 46 20 43 4F TER Q'XOR #FF CO
0051E0: 4E 53 45 52 56 45 20 4C 45 20 42 49 54 20 43 4D NSERVE LE BIT CM
0051F0: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 48 .. LD (H
005200: 4C 29 2C 41 0D 0A 20 20 20 20 20 20 20 20 20 4C L),A.. L
005210: 44 20 48 4C 2C 28 41 44 42 55 46 46 29 0D 0A 20 D HL,(ADBUFF)..
005220: 20 20 20 20 20 20 20 20 49 4E 43 20 48 4C 0D 0A INC HL..
005230: 20 20 20 20 20 20 20 20 20 4A 52 20 53 55 49 54 JR SUIT
005240: 4C 49 52 45 0D 0A 20 3B 0D 0A 20 4E 4F 4E 4D 45 LIRE.. ;.. NONME
005250: 4D 45 20 4C 44 20 48 4C 2C 28 41 44 42 55 46 46 ME LD HL,(ADBUFF
005260: 29 20 20 3B 53 69 6E 6F 6E 20 61 64 72 65 73 73 ) ;Sinon adress
005270: 65 20 62 75 66 66 65 72 20 3D 20 61 64 72 65 73 e buffer = adres
005280: 73 65 20 62 75 66 66 65 72 20 2B 20 6E 6F 6D 62 se buffer + nomb
005290: 72 65 20 6C 75 73 0D 0A 20 20 20 20 20 20 20 20 re lus..
0052A0: 20 4C 44 20 44 45 2C 28 4E 42 4C 55 53 29 0D 0A LD DE,(NBLUS)..
0052B0: 20 20 20 20 20 20 20 20 20 41 44 44 20 48 4C 2C ADD HL,
0052C0: 44 45 0D 0A 20 3B 0D 0A 20 53 55 49 54 4C 49 52 DE.. ;.. SUITLIR
0052D0: 45 20 4C 44 20 28 41 44 42 55 46 46 29 2C 48 4C E LD (ADBUFF),HL
0052E0: 20 3B 3D 20 4E 6F 75 76 65 6C 6C 65 20 61 64 72 ;= Nouvelle adr
0052F0: 65 73 73 65 20 73 74 6F 63 6B 61 67 65 20 70 6F esse stockage po
005300: 75 72 20 70 72 6F 63 68 61 69 6E 20 73 65 63 74 ur prochain sect
005310: 65 75 72 0D 0A 20 3B 0D 0A 20 52 49 45 4E 4C 49 eur.. ;.. RIENLI
005320: 52 45 20 4C 44 20 48 4C 2C 43 4F 55 4E 54 20 20 RE LD HL,COUNT
005330: 20 20 3B 41 75 20 73 75 69 76 61 6E 74 0D 0A 20 ;Au suivant..
005340: 20 20 20 20 20 20 20 20 49 4E 43 20 28 48 4C 29 INC (HL)
005350: 0D 0A 20 3B 0D 0A 20 53 41 55 54 4C 49 54 20 4C .. ;.. SAUTLIT L
005360: 44 20 48 4C 2C 28 53 54 4F 4B 45 52 52 29 20 3B D HL,(STOKERR) ;
005370: 45 74 61 74 20 64 27 65 72 72 65 75 72 20 73 75 Etat d'erreur su
005380: 69 76 61 6E 74 0D 0A 20 20 20 20 20 20 20 20 20 ivant..
005390: 49 4E 43 20 48 4C 0D 0A 20 20 20 20 20 20 20 20 INC HL..
0053A0: 20 4C 44 20 28 53 54 4F 4B 45 52 52 29 2C 48 4C LD (STOKERR),HL
0053B0: 0D 0A 20 20 20 20 20 20 20 20 20 49 4E 43 20 49 .. INC I
0053C0: 58 20 20 20 20 20 20 20 20 20 20 3B 5A 6F 6E 65 X ;Zone
0053D0: 20 6D 65 6D 6D 6F 20 61 64 72 65 73 73 65 20 64 memmo adresse d
0053E0: 6F 6E 6E 65 65 73 20 73 75 69 76 61 6E 74 65 0D onnees suivante.
0053F0: 0A 20 20 20 20 20 20 20 20 20 49 4E 43 20 49 58 . INC IX
005400: 20 0D 0A 20 20 20 20 20 20 20 20 20 50 4F 50 20 .. POP
005410: 42 43 20 20 20 20 20 20 20 20 20 20 3B 4E 6F 6D BC ;Nom
005420: 62 72 65 20 73 65 63 74 65 75 72 73 20 72 65 73 bre secteurs res
005430: 74 61 6E 74 20 61 20 6C 69 72 65 0D 0A 20 20 20 tant a lire..
005440: 20 20 20 20 20 20 44 45 43 20 42 20 20 20 20 20 DEC B
005450: 20 20 20 20 20 20 3B 2D 31 0D 0A 20 20 20 20 20 ;-1..
005460: 20 20 20 20 4A 50 20 4E 5A 2C 42 43 4C 4C 49 54 JP NZ,BCLLIT
005470: 50 20 20 20 3B 53 27 69 6C 20 65 6E 20 72 65 73 P ;S'il en res
005480: 74 65 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 te.. ;..
005490: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0054A0: 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------
0054B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 0D 0A 20 20 ---------.. ..
0054C0: 20 20 20 4C 65 20 73 74 6F 63 6B 61 67 65 20 64 Le stockage d
0054D0: 65 20 6C 61 20 70 69 73 74 65 20 65 73 74 20 20 e la piste est
0054E0: 74 65 72 6D 69 6E 7B 20 20 2C 20 20 6F 6E 20 20 termin{ , on
0054F0: 6D 65 74 20 20 40 20 6A 6F 75 72 20 6C 65 73 20 met @ jour les
005500: 70 6F 69 6E 74 65 75 72 73 20 65 74 0D 0A 20 63 pointeurs et.. c
005510: 27 65 73 74 20 66 69 6E 69 20 2E 0D 0A 20 0D 0A 'est fini ... ..
005520: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
005530: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2D 2D --
005540: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
005550: 2D 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 -.. ;..
005560: 4C 44 20 48 4C 2C 28 41 44 42 55 46 46 29 0D 0A LD HL,(ADBUFF)..
005570: 20 20 20 20 20 20 20 20 20 4C 44 20 28 50 4F 49 LD (POI
005580: 4E 50 49 53 29 2C 48 4C 20 3B 41 64 72 65 73 73 NPIS),HL ;Adress
005590: 65 20 64 65 62 75 74 20 73 74 6F 63 6B 61 67 65 e debut stockage
0055A0: 20 70 72 6F 63 68 61 69 6E 65 20 70 69 73 74 65 prochaine piste
0055B0: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 49 .. LD (I
0055C0: 58 2B 30 29 2C 4C 20 20 20 20 20 3B 4D 65 6D 6F X+0),L ;Memo
0055D0: 72 69 73 65 72 20 64 65 70 61 72 74 20 64 65 73 riser depart des
0055E0: 20 64 6F 6E 6E 65 65 73 20 70 72 6F 63 68 61 69 donnees prochai
0055F0: 6E 65 20 70 69 73 74 65 0D 0A 20 20 20 20 20 20 ne piste..
005600: 20 20 20 4C 44 20 28 49 58 2B 31 29 2C 48 0D 0A LD (IX+1),H..
005610: 20 20 20 20 20 20 20 20 20 58 4F 52 20 41 0D 0A XOR A..
005620: 20 20 20 20 20 20 20 20 20 4C 44 20 28 46 4C 41 LD (FLA
005630: 47 29 2C 41 0D 0A 20 20 20 20 20 20 20 20 20 53 G),A.. S
005640: 43 46 0D 0A 20 20 20 20 20 20 20 20 20 52 45 54 CF.. RET
005650: 0D 0A 20 3B 0D 0A 20 54 53 54 4F 4B 50 20 20 44 .. ;.. TSTOKP D
005660: 42 20 33 31 2C 32 2C 32 31 2C 32 34 2C 22 20 53 B 31,2,21,24," S
005670: 54 4F 43 4B 41 47 45 20 20 20 50 49 53 54 45 20 TOCKAGE PISTE
005680: 22 2C 32 34 0D 0A 20 54 53 54 4F 53 45 43 20 44 ",24.. TSTOSEC D
005690: 42 20 33 31 2C 32 2C 32 32 2C 32 34 2C 22 20 53 B 31,2,22,24," S
0056A0: 54 4F 43 4B 41 47 45 20 53 45 43 54 45 55 52 20 TOCKAGE SECTEUR
0056B0: 22 2C 32 34 2C 23 38 30 0D 0A 20 54 4C 45 43 54 ",24,#80.. TLECT
0056C0: 45 52 20 44 42 20 33 31 2C 32 2C 32 34 2C 31 38 ER DB 31,2,24,18
0056D0: 2C 32 34 2C 22 20 45 52 52 45 55 52 20 4C 45 43 ,24," ERREUR LEC
0056E0: 54 55 52 45 20 53 55 52 20 53 45 43 54 45 55 52 TURE SUR SECTEUR
0056F0: 20 3A 20 22 2C 32 34 2C 22 20 22 2C 37 2C 23 38 : ",24," ",7,#8
005700: 30 0D 0A 20 52 45 4C 49 52 45 20 20 44 42 20 30 0.. RELIRE DB 0
005710: 0D 0A 20 50 4F 49 4E 54 49 44 20 44 57 20 30 0D .. POINTID DW 0.
005720: 0A 20 53 54 4F 4B 45 52 52 20 44 57 20 30 0D 0A . STOKERR DW 0..
005730: 20 46 4C 41 47 20 20 20 20 44 42 20 30 0D 0A 20 FLAG DB 0..
005740: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
005750: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
005760: 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ---------------
005770: 2D 2D 2D 2D 0D 0A 20 0D 0A 20 20 20 20 20 20 20 ----.. ..
005780: 20 20 20 20 20 20 20 20 20 4C 41 20 53 55 49 54 LA SUIT
005790: 45 20 44 45 20 4C 27 41 56 45 4E 54 55 52 45 20 E DE L'AVENTURE
0057A0: 44 41 4E 53 20 52 45 50 52 4F 44 55 43 54 49 4F DANS REPRODUCTIO
0057B0: 4E 20 32 20 2E 2E 2E 0D 0A 20 00 00 1A 20 20 20 N 2 ..... ...
0057C0: 20 20 20 20 20 20 20 20 20 20 20 20 2D 2D 2D 2D ----
0057D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D ---------------.
0057E0: 0A 20 0D 0A 20 20 20 20 20 54 6F 75 74 20 63 65 . .. Tout ce
0057F0: 20 71 75 69 20 63 6F 6E 63 65 72 6E 65 20 6C 61 qui concerne la
005800: 3B 0D 0A 45 46 46 53 43 52 20 20 4C 44 20 41 2C ;..EFFSCR LD A,
005810: 35 20 20 20 20 20 20 20 20 20 20 3B 45 66 66 61 5 ;Effa
005820: 63 65 72 20 62 61 73 20 65 63 72 61 6E 20 64 65 cer bas ecran de
005830: 70 75 69 73 20 6C 69 67 6E 65 20 35 0D 0A 20 20 puis ligne 5..
005840: 20 20 20 20 20 20 4A 50 20 45 46 46 42 41 53 0D JP EFFBAS.
005850: 0A 3B 0D 0A 57 41 49 54 44 49 53 43 20 50 55 53 .;..WAITDISC PUS
005860: 48 20 48 4C 20 20 20 20 20 20 20 3B 41 74 74 65 H HL ;Atte
005870: 6E 64 72 65 20 64 69 73 63 20 73 6F 75 72 63 65 ndre disc source
005880: 20 6F 75 20 64 65 73 74 69 6E 61 74 69 6F 6E 0D ou destination.
005890: 0A 20 20 20 20 20 20 20 20 4C 44 20 48 4C 2C 23 . LD HL,#
0058A0: 30 32 31 39 0D 0A 20 20 20 20 20 20 20 20 43 41 0219.. CA
0058B0: 4C 4C 20 23 42 42 37 35 0D 0A 20 20 20 20 20 20 LL #BB75..
0058C0: 20 20 50 4F 50 20 48 4C 0D 0A 20 20 20 20 20 20 POP HL..
0058D0: 20 20 43 41 4C 4C 20 50 52 54 0D 0A 20 20 20 20 CALL PRT..
0058E0: 20 20 20 20 4A 50 20 23 42 42 30 36 0D 0A 3B 0D JP #BB06..;.
0058F0: 0A 53 45 54 44 45 52 20 20 4C 44 20 28 44 45 52 .SETDER LD (DER
005900: 50 49 53 54 29 2C 41 20 20 3B 46 69 78 65 72 20 PIST),A ;Fixer
005910: 6C 69 6D 69 74 65 73 20 64 65 72 6E 69 65 72 65 limites derniere
005920: 20 70 69 73 74 65 0D 0A 20 20 20 20 20 20 20 20 piste..
005930: 4C 44 20 28 4D 45 4D 4F 45 4E 44 29 2C 41 0D 0A LD (MEMOEND),A..
005940: 20 20 20 20 20 20 20 20 49 4E 43 20 41 0D 0A 20 INC A..
005950: 20 20 20 20 20 20 20 4C 44 20 28 50 49 53 54 4D LD (PISTM
005960: 41 58 29 2C 41 0D 0A 20 20 20 20 20 20 20 20 52 AX),A.. R
005970: 45 54 0D 0A 3B 0D 0A 20 20 20 20 20 20 20 20 20 ET..;..
005980: 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 2D 2D ;--
005990: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0059A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A --------------..
0059B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0059C0: 20 20 20 20 20 20 3B 2D 20 41 4E 41 4C 59 53 45 ;- ANALYSE
0059D0: 20 46 49 4E 41 4C 45 20 53 45 4C 4F 4E 20 4C 49 FINALE SELON LI
0059E0: 53 54 45 52 50 20 2D 0D 0A 20 20 20 20 20 20 20 STERP -..
0059F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B ;
005A00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
005A10: 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ---------------
005A20: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
005A30: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A --------------..
005A40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
005A50: 20 2D 20 43 4F 50 49 45 55 52 20 32 45 4D 45 20 - COPIEUR 2EME
005A60: 50 41 52 54 49 45 20 3A 20 41 4E 41 4C 59 53 45 PARTIE : ANALYSE
005A70: 20 44 45 20 4C 41 20 50 49 53 54 45 20 2D 0D 0A DE LA PISTE -..
005A80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
005A90: 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ---------------
005AA0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
005AB0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A --------------..
005AC0: 20 3B 0D 0A 20 20 20 20 20 43 65 74 74 65 20 73 ;.. Cette s
005AD0: 65 63 74 69 6F 6E 20 6E 27 61 20 73 75 62 69 20 ection n'a subi
005AE0: 71 75 65 20 70 65 75 20 64 65 20 6D 6F 64 69 66 que peu de modif
005AF0: 69 63 61 74 69 6F 6E 73 20 66 6F 6E 64 61 6D 65 ications fondame
005B00: 6E 74 61 6C 65 73 20 70 61 72 20 72 61 70 70 6F ntales par rappo
005B10: 72 74 0D 0A 20 40 20 6C 61 20 20 76 65 72 73 69 rt.. @ la versi
005B20: 6F 6E 20 20 70 72 7B 63 7B 64 65 6E 74 65 20 20 on pr{c{dente
005B30: 2E 20 20 4C 65 73 20 20 71 75 65 6C 71 75 65 73 . Les quelques
005B40: 20 20 63 68 61 6E 67 65 6D 65 6E 74 73 20 20 61 changements a
005B50: 70 70 6F 72 74 7B 73 20 20 73 6F 6E 74 20 20 6C pport{s sont l
005B60: 65 73 0D 0A 20 73 75 69 76 61 6E 74 73 20 3A 0D es.. suivants :.
005B70: 0A 20 0D 0A 20 20 20 20 20 4C 65 20 74 65 73 74 . .. Le test
005B80: 20 64 65 20 70 69 73 74 65 20 66 6F 72 6D 61 74 de piste format
005B90: 7B 65 20 6F 75 20 6E 6F 6E 20 40 20 7B 74 7B 20 {e ou non @ {t{
005BA0: 64 7B 70 6C 61 63 7B 20 65 6E 20 4C 49 54 49 44 d{plac{ en LITID
005BB0: 53 20 2E 0D 0A 20 20 20 20 20 4C 27 6F 72 64 72 S ... L'ordr
005BC0: 65 20 64 65 73 20 6F 70 7B 72 61 74 69 6F 6E 73 e des op{rations
005BD0: 20 40 20 63 68 61 6E 67 7B 20 20 21 20 20 4F 6E @ chang{ ! On
005BE0: 20 20 72 65 63 75 65 69 6C 6C 65 20 44 27 41 42 recueille D'AB
005BF0: 4F 52 44 20 6C 27 7B 74 61 74 20 64 27 65 72 72 ORD l'{tat d'err
005C00: 65 75 72 0D 0A 20 64 65 73 20 73 65 63 74 65 75 eur.. des secteu
005C10: 72 73 20 61 76 61 6E 74 20 64 65 20 63 61 6C 63 rs avant de calc
005C20: 75 6C 65 72 20 6C 61 20 74 61 69 6C 6C 65 20 64 uler la taille d
005C30: 65 20 66 6F 72 6D 61 74 20 65 74 20 64 75 20 47 e format et du G
005C40: 41 50 20 2E 0D 0A 20 20 20 20 20 4C 61 20 72 6F AP ... La ro
005C50: 75 74 69 6E 65 20 20 56 49 53 45 53 45 43 20 20 utine VISESEC
005C60: 64 65 76 69 65 6E 74 20 20 56 49 53 49 4E 53 54 devient VISINST
005C70: 20 20 2E 20 20 45 6C 6C 65 20 20 65 73 74 20 20 . Elle est
005C80: 70 6C 75 73 20 20 72 61 70 69 64 65 20 20 71 75 plus rapide qu
005C90: 65 20 6C 61 0D 0A 20 70 72 7B 63 7B 64 65 6E 74 e la.. pr{c{dent
005CA0: 65 20 2C 20 70 6F 69 6E 74 65 20 6C 65 20 73 65 e , pointe le se
005CB0: 63 74 65 75 72 20 64 65 6D 61 6E 64 7B 20 65 74 cteur demand{ et
005CC0: 20 7B 78 7B 63 75 74 65 20 6C 27 69 6E 73 74 72 {x{cute l'instr
005CD0: 75 63 74 69 6F 6E 20 2E 0D 0A 20 20 20 20 20 4C uction ... L
005CE0: 27 65 6E 73 65 6D 62 6C 65 20 66 6F 72 75 6E 69 'ensemble foruni
005CF0: 74 20 70 6C 75 73 20 64 27 69 6E 66 6F 72 6D 61 t plus d'informa
005D00: 74 69 6F 6E 73 20 71 75 65 20 6C 61 20 70 72 7B tions que la pr{
005D10: 63 7B 64 65 6E 74 65 20 73 65 6C 6F 6E 20 6C 27 c{dente selon l'
005D20: 7B 74 61 74 20 64 65 73 0D 0A 20 66 6C 61 67 73 {tat des.. flags
005D30: 20 72 65 6E 76 6F 79 7B 73 20 70 61 72 20 6C 65 renvoy{s par le
005D40: 20 63 61 6C 63 75 6C 20 64 65 73 20 47 41 50 53 calcul des GAPS
005D50: 20 2E 0D 0A 20 20 20 20 20 4C 65 20 66 65 6E 7B ... Le fen{
005D60: 74 72 61 67 65 20 65 74 20 6C 27 69 6D 70 72 65 trage et l'impre
005D70: 73 73 69 6F 6E 20 6F 6E 74 20 20 7B 74 7B 20 20 ssion ont {t{
005D80: 61 64 61 70 74 7B 73 20 20 61 75 78 20 62 65 73 adapt{s aux bes
005D90: 6F 69 6E 73 20 64 65 20 63 65 20 6E 6F 75 76 65 oins de ce nouve
005DA0: 61 75 0D 0A 20 70 72 6F 67 72 61 6D 6D 65 20 2E au.. programme .
005DB0: 0D 0A 20 20 20 20 20 50 6F 75 72 20 6C 65 20 72 .. Pour le r
005DC0: 65 73 74 65 20 2C 20 72 65 70 6F 72 74 65 7A 20 este , reportez
005DD0: 76 6F 75 73 20 61 75 20 20 6E 75 6D 7B 72 6F 20 vous au num{ro
005DE0: 70 72 7B 63 7B 64 65 6E 74 20 64 65 20 53 4F 53 pr{c{dent de SOS
005DF0: 20 50 52 4F 47 52 41 4D 4D 45 55 52 53 20 73 69 PROGRAMMEURS si
005E00: 0D 0A 20 76 6F 75 73 20 6E 27 61 76 65 7A 20 70 .. vous n'avez p
005E10: 61 73 20 74 6F 75 74 20 63 6F 6D 70 72 69 73 20 as tout compris
005E20: 2E 20 4C 65 20 6C 69 73 74 69 6E 67 20 65 73 74 . Le listing est
005E30: 20 69 63 69 20 66 6F 72 74 20 70 65 75 20 63 6F ici fort peu co
005E40: 6D 6D 65 6E 74 7B 20 2C 20 6C 61 20 66 61 63 65 mment{ , la face
005E50: 0D 0A 20 46 44 43 20 6E 65 20 66 61 69 74 20 71 .. FDC ne fait q
005E60: 75 65 20 31 37 38 4B 20 21 0D 0A 20 0D 0A 20 20 ue 178K !.. ..
005E70: 20 20 20 56 6F 69 63 69 20 6C 61 20 73 69 67 6E Voici la sign
005E80: 69 66 69 63 61 74 69 6F 6E 20 64 65 73 20 62 69 ification des bi
005E90: 74 73 20 64 65 20 46 4C 41 47 46 4E 43 20 3A 0D ts de FLAGFNC :.
005EA0: 0A 20 0D 0A 20 20 20 20 20 42 69 74 20 30 20 3A . .. Bit 0 :
005EB0: 20 4C 27 6F 63 74 65 74 20 64 65 20 66 6F 72 6D L'octet de form
005EC0: 61 74 61 67 65 20 40 20 7B 74 7B 20 74 72 6F 75 atage @ {t{ trou
005ED0: 76 7B 20 64 61 6E 73 20 75 6E 20 43 52 2F 44 44 v{ dans un CR/DD
005EE0: 0D 0A 20 20 20 20 20 42 69 74 20 31 20 3A 20 4C .. Bit 1 : L
005EF0: 65 20 47 41 50 23 33 20 65 73 74 20 64 69 66 66 e GAP#3 est diff
005F00: 7B 72 65 6E 74 20 64 65 20 23 34 45 0D 0A 20 20 {rent de #4E..
005F10: 20 20 20 42 69 74 20 32 20 3A 20 4C 65 20 47 41 Bit 2 : Le GA
005F20: 50 20 65 73 74 20 74 72 6F 70 20 6C 6F 6E 67 20 P est trop long
005F30: 2E 20 28 4E 65 20 64 65 76 72 61 69 74 20 70 6C . (Ne devrait pl
005F40: 75 73 20 73 65 20 70 72 6F 64 75 69 72 65 29 0D us se produire).
005F50: 0A 20 20 20 20 20 42 69 74 20 33 20 3A 20 4C 61 . Bit 3 : La
005F60: 20 70 69 73 74 65 20 6E 27 65 73 74 20 70 61 73 piste n'est pas
005F70: 20 66 6F 72 6D 61 74 7B 65 0D 0A 20 20 20 20 20 format{e..
005F80: 42 69 74 20 34 20 3A 20 50 72 7B 73 65 6E 63 65 Bit 4 : Pr{sence
005F90: 20 43 45 52 54 41 49 4E 45 20 64 65 20 73 65 63 CERTAINE de sec
005FA0: 74 65 75 72 73 20 7B 63 72 61 73 7B 73 20 73 75 teurs {cras{s su
005FB0: 72 20 6C 61 20 70 69 73 74 65 0D 0A 20 20 20 20 r la piste..
005FC0: 20 42 69 74 20 35 20 3A 20 50 72 7B 73 65 6E 63 Bit 5 : Pr{senc
005FD0: 65 20 50 4F 53 53 49 42 4C 45 20 64 65 20 73 65 e POSSIBLE de se
005FE0: 63 74 65 75 72 73 20 7B 63 72 61 73 7B 73 20 73 cteurs {cras{s s
005FF0: 75 72 20 6C 61 20 70 69 73 74 65 0D 0A 20 20 20 ur la piste..
006000: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
006010: 05 00 01 00 02 09 4E E5 05 00 C1 02 00 00 00 02 ......N.........
006020: 05 00 C2 02 00 00 00 02 05 00 C3 02 00 00 00 02 ................
006030: 05 00 C4 02 00 00 00 02 05 00 C5 02 00 00 00 02 ................
006040: 05 00 C6 02 00 00 00 02 05 00 C7 02 00 00 00 02 ................
006050: 05 00 C8 02 00 00 00 02 05 00 C9 02 00 00 00 02 ................
006060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0060A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0060B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0060C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0060D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0060E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0060F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006100: 20 20 42 69 74 20 36 20 3A 20 50 69 73 74 65 20 Bit 6 : Piste
006110: 6E 6F 72 6D 61 6C 65 20 61 62 69 6D 7B 65 0D 0A normale abim{e..
006120: 20 20 20 20 20 42 69 74 20 37 20 3A 20 4C 27 61 Bit 7 : L'a
006130: 6E 61 6C 79 73 65 75 72 20 73 27 65 73 74 20 70 nalyseur s'est p
006140: 6C 61 6E 74 7B 20 21 20 28 4E 65 20 64 65 76 72 lant{ ! (Ne devr
006150: 61 69 74 20 74 70 61 73 20 61 72 72 69 76 65 72 ait tpas arriver
006160: 29 0D 0A 0D 0A 20 20 20 20 20 20 20 20 20 20 20 )....
006170: 20 20 20 20 20 20 20 20 20 20 20 2D 2D 2D 2D 2D -----
006180: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
006190: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 20 ------------..
0061A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0061B0: 20 20 20 2D 20 41 4C 47 4F 52 48 59 54 4D 45 20 - ALGORHYTME
0061C0: 47 45 4E 45 52 41 4C 20 44 45 20 4C 27 41 4E 41 GENERAL DE L'ANA
0061D0: 4C 59 53 45 20 2D 0D 0A 20 20 20 20 20 20 20 20 LYSE -..
0061E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2D 2D --
0061F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
006200: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D ---------------.
006210: 0A 0D 0A 20 20 20 20 20 20 4E 6F 74 65 20 3A 20 ... Note :
006220: 43 65 20 73 63 68 7B 6D 61 20 69 6E 63 6C 75 74 Ce sch{ma inclut
006230: 20 6C 65 73 20 33 20 73 65 63 74 69 6F 6E 73 20 les 3 sections
006240: 73 75 69 76 61 6E 74 65 73 20 61 6E 6E 6F 74 7B suivantes annot{
006250: 65 73 20 28 50 2E 53 2E 29 0D 0A 0D 0A 0D 0A 20 es (P.S.)......
006260: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006270: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4C L
006280: 49 52 45 20 4C 45 53 20 49 44 53 0D 0A 20 20 20 IRE LES IDS..
006290: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0062A0: 20 20 20 20 59 2D 41 20 54 2D 49 4C 20 44 45 53 Y-A T-IL DES
0062B0: 20 49 44 53 20 53 55 52 20 4C 41 20 50 49 53 54 IDS SUR LA PIST
0062C0: 45 20 3F 0D 0A 20 20 20 20 20 20 20 20 20 20 20 E ?..
0062D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0062E0: 20 20 20 20 20 20 20 20 20 20 20 21 0D 0A 20 20 !..
0062F0: 20 20 20 20 20 2B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D +----------
006300: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 3C ---------------<
006310: 20 4F 55 49 20 4E 4F 4E 20 3E 2D 2D 2D 2D 2D 2D OUI NON >------
006320: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
006330: 2D 2D 2D 2B 0D 0A 20 20 20 20 20 20 20 21 20 20 ---+.. !
006340: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006350: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006360: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006370: 20 20 20 20 20 20 20 20 20 20 20 21 0D 0A 20 20 !..
006380: 20 20 20 20 20 2B 2D 2D 2D 2D 2D 3E 20 4C 49 52 +-----> LIR
006390: 45 20 4C 45 53 20 53 45 43 54 45 55 52 53 20 45 E LES SECTEURS E
0063A0: 54 20 54 45 53 54 45 52 20 4C 45 55 52 20 45 54 T TESTER LEUR ET
0063B0: 41 54 20 44 27 45 52 52 45 55 52 20 20 20 20 20 AT D'ERREUR
0063C0: 20 20 20 21 0D 0A 20 20 20 20 20 20 20 20 20 20 !..
0063D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0063E0: 20 20 41 46 46 49 43 48 45 52 20 4C 45 53 20 53 AFFICHER LES S
0063F0: 45 43 54 45 55 52 53 20 20 20 20 20 20 20 20 20 ECTEURS
006400: 20 20 20 20 20 20 20 20 20 20 20 21 0D 0A 20 20 !..
006410: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006420: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006430: 20 20 20 20 21 20 20 20 20 20 20 20 20 20 20 20 !
006440: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006450: 20 20 20 21 0D 0A 20 20 20 20 20 20 20 20 20 20 !..
006460: 44 45 54 45 52 4D 49 4E 45 52 20 4C 45 53 20 47 DETERMINER LES G
006470: 41 50 53 20 45 54 20 4C 45 20 46 4F 52 4D 41 54 APS ET LE FORMAT
006480: 20 45 58 41 43 54 20 44 45 20 4C 41 20 50 49 53 EXACT DE LA PIS
006490: 54 45 20 28 50 2E 53 2E 29 20 20 21 0D 0A 20 20 TE (P.S.) !..
0064A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0064B0: 20 59 2D 41 20 54 2D 49 4C 20 44 45 53 20 53 45 Y-A T-IL DES SE
0064C0: 43 54 45 55 52 53 20 45 43 52 41 53 45 53 20 3F CTEURS ECRASES ?
0064D0: 20 28 50 2E 53 2E 29 20 20 20 20 20 20 20 20 20 (P.S.)
0064E0: 20 20 20 21 0D 0A 20 20 20 20 20 20 20 20 20 20 !..
0064F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006500: 20 20 20 20 20 20 20 20 20 20 20 20 21 20 20 20 !
006510: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006520: 20 20 20 20 20 20 20 20 20 20 20 21 0D 0A 20 20 !..
006530: 20 20 20 20 20 2B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D +----------
006540: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 3C ---------------<
006550: 20 4F 55 49 20 4E 4F 4E 20 3E 2D 2D 2D 2D 2D 2D OUI NON >------
006560: 2D 2D 2D 2D 2D 2B 20 20 20 20 20 20 20 20 20 20 -----+
006570: 20 20 20 21 0D 0A 20 20 20 20 20 20 20 21 20 20 !.. !
006580: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006590: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0065A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 20 !
0065B0: 20 4E 4F 54 45 52 20 4E 4F 4E 20 46 4F 52 4D 41 NOTER NON FORMA
0065C0: 54 45 45 0D 0A 20 20 20 20 20 20 20 2B 2D 2D 2D TEE.. +---
0065D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 3E 20 52 45 ------------> RE
0065E0: 43 41 4C 43 55 4C 45 52 20 4C 45 20 46 4F 52 4D CALCULER LE FORM
0065F0: 41 54 20 28 50 2E 53 29 20 20 20 20 21 20 20 20 AT (P.S) !
006600: 20 20 20 20 20 20 20 20 20 20 21 0D 0A 20 20 20 !..
006610: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006620: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006630: 20 20 20 21 20 20 20 20 20 20 20 20 20 20 20 20 !
006640: 20 20 20 20 21 20 20 20 20 20 20 20 20 20 20 20 !
006650: 20 20 21 0D 0A 20 20 20 20 20 20 20 20 20 20 20 !..
006660: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 41 46 AF
006670: 46 49 43 48 45 52 20 4C 45 53 20 44 4F 4E 4E 45 FICHER LES DONNE
006680: 45 53 20 50 49 53 54 45 20 3C 2D 2D 2B 2D 2D 2D ES PISTE <--+---
006690: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2B 0D 0A 20 20 20 ----------+..
0066A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0066B0: 20 20 20 20 49 4D 50 52 49 4D 45 52 20 53 27 49 IMPRIMER S'I
0066C0: 4C 20 59 2D 41 20 4C 49 45 55 20 45 54 20 46 49 L Y-A LIEU ET FI
0066D0: 4E 49 0D 0A 0D 0A 20 20 20 20 20 20 20 20 20 20 NI....
0066E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0066F0: 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ;---------------
006700: 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 20 20 20 20 20 --------..
006710: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006720: 20 20 20 20 3B 2D 20 41 4E 41 4C 59 53 45 20 44 ;- ANALYSE D
006730: 45 20 4C 41 20 50 49 53 54 45 20 2D 0D 0A 20 20 E LA PISTE -..
006740: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006750: 20 20 20 20 20 20 20 20 3B 2D 2D 2D 2D 2D 2D 2D ;-------
006760: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
006770: 0D 0A 20 3B 0D 0A 20 41 4E 41 50 49 53 54 20 58 .. ;.. ANAPIST X
006780: 4F 52 20 41 0D 0A 20 20 20 20 20 20 20 20 20 4C OR A.. L
006790: 44 20 28 46 4C 41 47 46 4E 43 29 2C 41 20 20 3B D (FLAGFNC),A ;
0067A0: 52 65 6D 69 73 65 20 61 20 7A 65 72 6F 20 64 75 Remise a zero du
0067B0: 20 66 6C 61 67 20 61 6E 61 6C 79 73 65 20 70 69 flag analyse pi
0067C0: 73 74 65 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 ste.. ;..
0067D0: 20 20 4C 44 20 41 2C 23 31 37 20 20 20 20 20 20 LD A,#17
0067E0: 20 20 3B 45 66 66 61 63 65 72 20 65 63 72 61 6E ;Effacer ecran
0067F0: 20 65 74 20 6F 75 76 72 69 72 20 66 65 6E 65 74 et ouvrir fenet
006800: 72 65 73 20 49 44 53 0D 0A 20 20 20 20 20 20 20 res IDS..
006810: 20 20 43 41 4C 4C 20 45 46 46 4C 49 4E 45 0D 0A CALL EFFLINE..
006820: 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 46 45 CALL FE
006830: 4E 49 44 45 0D 0A 20 20 20 20 20 20 20 20 20 43 NIDE.. C
006840: 41 4C 4C 20 46 45 4E 49 44 45 31 41 0D 0A 20 20 ALL FENIDE1A..
006850: 20 20 20 20 20 20 20 43 41 4C 4C 20 46 45 4E 49 CALL FENI
006860: 44 4C 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C DL.. CAL
006870: 4C 20 46 45 4E 49 44 4C 31 41 0D 0A 20 20 20 20 L FENIDL1A..
006880: 20 20 20 20 20 43 41 4C 4C 20 46 45 4E 52 45 53 CALL FENRES
006890: 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 .. CALL
0068A0: 46 45 4E 53 43 52 0D 0A 20 3B 0D 0A 20 20 20 20 FENSCR.. ;..
0068B0: 20 20 20 20 20 43 41 4C 4C 20 56 45 52 49 49 44 CALL VERIID
0068C0: 20 20 20 20 20 3B 41 6C 6C 65 72 20 6C 69 72 65 ;Aller lire
0068D0: 20 6C 65 73 20 49 44 53 0D 0A 20 20 20 20 20 20 les IDS..
0068E0: 20 20 20 4A 52 20 43 2C 50 49 53 54 46 4F 52 4D JR C,PISTFORM
0068F0: 20 20 20 3B 53 69 20 4E 43 20 6C 61 20 70 69 73 ;Si NC la pis
006900: 74 65 20 6E 27 65 73 74 20 70 61 73 20 66 6F 72 te n'est pas for
006910: 6D 61 74 65 65 0D 0A 20 3B 0D 0A 20 20 20 20 20 matee.. ;..
006920: 20 20 20 20 43 41 4C 4C 20 46 45 4E 53 43 52 20 CALL FENSCR
006930: 20 20 20 20 3B 50 61 73 20 66 6F 72 6D 61 74 65 ;Pas formate
006940: 65 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 48 e.. LD H
006950: 4C 2C 54 4E 4F 46 4F 52 4D 20 20 20 3B 41 66 66 L,TNOFORM ;Aff
006960: 69 63 68 65 72 0D 0A 20 20 20 20 20 20 20 20 20 icher..
006970: 43 41 4C 4C 20 50 52 54 49 4E 56 31 20 20 20 20 CALL PRTINV1
006980: 3B 45 6E 20 69 6E 76 65 72 73 65 0D 0A 20 20 20 ;En inverse..
006990: 20 20 20 20 20 20 4C 44 20 41 2C 28 46 4C 41 47 LD A,(FLAG
0069A0: 46 4E 43 29 20 20 3B 4D 65 6D 6F 72 69 73 65 72 FNC) ;Memoriser
0069B0: 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 53 .. ;.. S
0069C0: 45 54 20 33 2C 41 0D 0A 20 20 20 20 20 20 20 20 ET 3,A..
0069D0: 20 4C 44 20 28 46 4C 41 47 46 4E 43 29 2C 41 20 LD (FLAGFNC),A
0069E0: 20 3B 4D 65 74 74 72 65 20 6C 65 20 62 69 74 20 ;Mettre le bit
0069F0: 70 61 73 20 64 65 20 66 6F 72 6D 61 74 0D 0A 20 pas de format..
006A00: 3B 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 41 ;.. LD A
006A10: 2C 28 46 4C 41 47 49 4D 50 29 20 20 3B 49 6D 70 ,(FLAGIMP) ;Imp
006A20: 72 65 73 73 69 6F 6E 20 65 6E 20 63 6F 75 72 73 ression en cours
006A30: 20 3F 0D 0A 20 20 20 20 20 20 20 20 20 4F 52 20 ?.. OR
006A40: 41 0D 0A 20 20 20 20 20 20 20 20 20 52 45 54 20 A.. RET
006A50: 5A 20 20 20 20 20 20 20 20 20 20 20 3B 4E 6F 6E Z ;Non
006A60: 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 43 .. ;.. C
006A70: 41 4C 4C 20 53 45 54 49 4D 50 20 20 20 20 20 3B ALL SETIMP ;
006A80: 4F 75 69 0D 0A 20 20 20 20 20 20 20 20 20 43 41 Oui.. CA
006A90: 4C 4C 20 49 4D 50 50 49 53 54 20 20 20 20 3B 49 LL IMPPIST ;I
006AA0: 6D 70 72 69 6D 65 72 20 6E 75 6D 7B 72 6F 20 64 mprimer num{ro d
006AB0: 65 20 70 69 73 74 65 0D 0A 20 20 20 20 20 20 20 e piste..
006AC0: 20 20 4C 44 20 48 4C 2C 54 50 41 46 4F 52 4D 20 LD HL,TPAFORM
006AD0: 20 20 3B 45 74 20 70 61 73 20 66 6F 72 6D 61 74 ;Et pas format
006AE0: 65 65 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C ee.. CAL
006AF0: 4C 20 50 52 54 0D 0A 20 20 20 20 20 20 20 20 20 L PRT..
006B00: 43 41 4C 4C 20 41 53 54 45 52 49 51 55 45 20 20 CALL ASTERIQUE
006B10: 3B 41 66 66 69 63 68 65 20 75 6E 20 27 2A 27 20 ;Affiche un '*'
006B20: 65 74 20 72 65 73 65 74 20 64 65 20 6C 27 69 6D et reset de l'im
006B30: 70 72 65 73 73 69 6F 6E 0D 0A 20 20 20 20 20 20 pression..
006B40: 20 20 20 58 4F 52 20 41 0D 0A 20 20 20 20 20 20 XOR A..
006B50: 20 20 20 52 45 54 0D 0A 20 3B 0D 0A 20 54 50 41 RET.. ;.. TPA
006B60: 46 4F 52 4D 20 44 42 20 22 20 4E 4F 4E 20 46 4F FORM DB " NON FO
006B70: 52 4D 41 54 45 45 22 2C 23 38 30 0D 0A 20 3B 0D RMATEE",#80.. ;.
006B80: 0A 20 50 49 53 54 46 4F 52 4D 20 43 41 4C 4C 20 . PISTFORM CALL
006B90: 46 45 4E 53 43 52 20 20 20 20 3B 52 65 73 74 61 FENSCR ;Resta
006BA0: 75 72 65 72 20 70 6C 65 69 6E 20 65 63 72 61 6E urer plein ecran
006BB0: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 48 4C .. LD HL
006BC0: 2C 54 4C 49 54 53 45 43 54 20 20 3B 54 65 78 74 ,TLITSECT ;Text
006BD0: 65 20 6C 69 74 20 73 65 63 74 65 75 72 73 0D 0A e lit secteurs..
006BE0: 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 50 52 CALL PR
006BF0: 54 49 4E 56 20 20 20 20 20 3B 41 66 66 69 63 68 TINV ;Affich
006C00: 65 72 20 65 6E 20 69 6E 76 65 72 73 65 0D 0A 20 er en inverse..
006C10: 3B 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 41 ;.. LD A
006C20: 2C 28 4E 42 53 45 43 29 20 20 20 20 3B 50 61 72 ,(NBSEC) ;Par
006C30: 61 6D 65 74 72 65 72 20 62 6F 75 63 6C 65 20 61 ametrer boucle a
006C40: 6E 61 6C 79 73 65 0D 0A 20 20 20 20 20 20 20 20 nalyse..
006C50: 20 4C 44 20 42 2C 41 0D 0A 20 20 20 20 20 20 20 LD B,A..
006C60: 20 20 58 4F 52 20 41 0D 0A 20 20 20 20 20 20 20 XOR A..
006C70: 20 20 4C 44 20 28 43 4F 55 4E 54 29 2C 41 0D 0A LD (COUNT),A..
006C80: 20 20 20 20 20 20 20 20 20 4C 44 20 48 4C 2C 4C LD HL,L
006C90: 49 54 46 44 43 31 20 20 20 3B 4C 69 72 65 20 73 ITFDC1 ;Lire s
006CA0: 61 6E 73 20 73 74 6F 63 6B 65 72 20 6C 65 73 20 ans stocker les
006CB0: 64 6F 6E 6E 7B 65 73 0D 0A 20 3B 0D 0A 20 20 20 donn{es.. ;..
006CC0: 20 20 20 20 20 20 4C 44 20 41 2C 23 34 36 20 20 LD A,#46
006CD0: 20 20 20 20 20 20 3B 43 6F 6D 6D 61 6E 64 65 20 ;Commande
006CE0: 6C 69 72 65 20 73 65 63 74 65 75 72 73 0D 0A 20 lire secteurs..
006CF0: 20 20 20 20 20 20 20 20 43 41 4C 4C 20 53 45 54 CALL SET
006D00: 43 4F 4D 32 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 COM2.. ;..
006D10: 20 20 20 4C 44 20 48 4C 2C 4C 49 53 54 45 52 52 LD HL,LISTERR
006D20: 20 20 20 3B 50 6F 69 6E 74 65 72 20 6C 65 20 64 ;Pointer le d
006D30: 65 62 75 74 20 64 65 20 6C 61 20 6C 69 73 74 65 ebut de la liste
006D40: 20 64 65 73 20 65 72 72 65 75 72 73 0D 0A 20 20 des erreurs..
006D50: 20 20 20 20 20 20 20 4C 44 20 28 50 4F 49 4E 54 LD (POINT
006D60: 45 52 29 2C 48 4C 20 20 20 20 20 0D 0A 20 20 20 ER),HL ..
006D70: 20 20 20 20 20 20 4C 44 20 48 4C 2C 49 44 49 4E LD HL,IDIN
006D80: 44 52 41 20 20 20 3B 45 74 20 6C 65 20 64 7B 62 DRA ;Et le d{b
006D90: 75 74 20 64 65 20 6C 61 20 7A 6F 6E 65 20 64 65 ut de la zone de
006DA0: 73 20 49 44 53 0D 0A 20 3B 0D 0A 20 20 20 20 20 s IDS.. ;..
006DB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006DC0: 20 20 20 20 20 20 20 20 3B 2D 2D 2D 2D 2D 2D 2D ;-------
006DD0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 -------------..
006DE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006DF0: 20 20 20 20 20 20 20 20 20 20 20 20 3B 2D 20 42 ;- B
006E00: 4F 55 43 4C 45 20 44 27 41 4E 41 4C 59 53 45 20 OUCLE D'ANALYSE
006E10: 2D 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 -..
006E20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006E30: 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ;---------------
006E40: 2D 2D 2D 2D 2D 0D 0A 20 3B 0D 0A 20 4E 45 58 54 -----.. ;.. NEXT
006E50: 56 45 52 20 43 41 4C 4C 20 54 52 41 4E 53 33 49 VER CALL TRANS3I
006E60: 44 20 20 20 3B 49 67 6E 6F 72 65 72 20 49 44 20 D ;Ignorer ID
006E70: 70 69 73 74 65 20 65 74 20 72 65 63 6F 70 69 65 piste et recopie
006E80: 72 20 6C 65 73 20 61 75 74 72 65 73 0D 0A 20 20 r les autres..
006E90: 20 20 20 20 20 20 20 49 4E 43 20 48 4C 0D 0A 20 INC HL..
006EA0: 20 20 20 20 20 20 20 20 43 41 4C 4C 20 46 49 58 CALL FIX
006EB0: 4C 46 46 20 20 20 20 20 3B 30 20 6F 75 20 23 46 LFF ;0 ou #F
006EC0: 46 20 73 65 6C 6F 6E 20 74 61 69 6C 6C 65 20 73 F selon taille s
006ED0: 65 63 74 65 75 72 20 63 6F 6D 6D 65 20 64 65 72 ecteur comme der
006EE0: 6E 69 65 72 0D 0A 20 20 20 20 20 20 20 20 20 50 nier.. P
006EF0: 55 53 48 20 48 4C 20 20 20 20 20 20 20 20 20 3B USH HL ;
006F00: 70 61 72 61 6D 7D 74 72 65 73 20 64 65 73 20 6F param}tres des o
006F10: 63 74 65 74 73 20 61 20 65 6E 76 6F 79 65 72 20 ctets a envoyer
006F20: 61 75 20 46 44 43 0D 0A 20 20 20 20 20 20 20 20 au FDC..
006F30: 20 50 55 53 48 20 42 43 0D 0A 20 20 20 20 20 20 PUSH BC..
006F40: 20 20 20 43 41 4C 4C 20 56 49 53 49 4E 53 54 20 CALL VISINST
006F50: 20 20 20 3B 56 69 73 65 72 20 65 74 20 65 78 65 ;Viser et exe
006F60: 63 75 74 65 72 20 63 6F 6D 6D 61 6E 64 65 0D 0A cuter commande..
006F70: 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 54 53 CALL TS
006F80: 54 45 52 52 53 20 20 20 20 3B 52 65 63 75 70 65 TERRS ;Recupe
006F90: 72 65 72 20 65 74 61 74 73 20 64 27 65 72 72 65 rer etats d'erre
006FA0: 75 72 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 ur.. LD
006FB0: 41 2C 28 49 59 2B 30 29 20 20 20 20 20 3B 52 61 A,(IY+0) ;Ra
006FC0: 6E 67 65 72 20 65 74 20 61 75 20 73 75 69 76 61 nger et au suiva
006FD0: 6E 74 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 nt.. LD
006FE0: 48 4C 2C 28 50 4F 49 4E 54 45 52 29 0D 0A 20 20 HL,(POINTER)..
006FF0: 20 20 20 20 20 20 20 4C 44 20 28 48 4C 29 2C 41 LD (HL),A
007000: 0D 0A 20 20 20 20 20 20 20 20 20 49 4E 43 20 48 .. INC H
007010: 4C 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 L.. LD (
007020: 50 4F 49 4E 54 45 52 29 2C 48 4C 0D 0A 20 20 20 POINTER),HL..
007030: 20 20 20 20 20 20 50 4F 50 20 42 43 0D 0A 20 20 POP BC..
007040: 20 20 20 20 20 20 20 50 4F 50 20 48 4C 0D 0A 20 POP HL..
007050: 20 20 20 20 20 20 20 20 44 4A 4E 5A 20 4E 45 58 DJNZ NEX
007060: 54 56 45 52 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 TVER.. ;..
007070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
007080: 20 20 20 20 20 20 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D ;---------
007090: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 20 ------------..
0070A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0070B0: 20 20 20 20 20 20 20 20 20 20 3B 2D 20 41 46 46 ;- AFF
0070C0: 49 43 48 41 47 45 20 41 4E 41 4C 59 53 45 20 2D ICHAGE ANALYSE -
0070D0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
0070E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 2D ;-
0070F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
007100: 2D 2D 2D 2D 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 ----.. ;..
007110: 20 20 20 4C 44 20 48 4C 2C 49 44 49 4E 44 52 41 LD HL,IDINDRA
007120: 20 20 20 3B 41 66 66 69 63 68 65 72 20 49 44 53 ;Afficher IDS
007130: 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 .. CALL
007140: 49 44 53 34 41 46 46 20 20 20 20 3B 42 43 20 65 IDS4AFF ;BC e
007150: 73 74 20 70 72 65 73 65 72 76 65 0D 0A 20 3B 0D st preserve.. ;.
007160: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 48 4C 2C . LD HL,
007170: 4C 49 53 54 45 52 52 20 20 20 3B 45 74 20 65 72 LISTERR ;Et er
007180: 72 65 75 72 73 0D 0A 20 20 20 20 20 20 20 20 20 reurs..
007190: 4C 44 20 28 50 4F 49 4E 54 45 52 29 2C 48 4C 0D LD (POINTER),HL.
0071A0: 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 43 41 . ;.. CA
0071B0: 4C 4C 20 46 45 4E 49 44 45 31 41 20 20 20 3B 43 LL FENIDE1A ;C
0071C0: 4F 4D 4D 45 20 44 41 4E 53 20 50 52 45 43 45 44 OMME DANS PRECED
0071D0: 45 4E 54 45 20 56 45 52 53 49 4F 4E 0D 0A 20 42 ENTE VERSION.. B
0071E0: 43 4C 45 52 52 53 20 50 55 53 48 20 48 4C 0D 0A CLERRS PUSH HL..
0071F0: 20 20 20 20 20 20 20 20 20 50 55 53 48 20 42 43 PUSH BC
007200: 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 .. CALL
007210: 49 4E 56 0D 0A 20 20 20 20 20 20 20 20 20 43 41 INV.. CA
007220: 4C 4C 20 53 50 41 43 45 0D 0A 20 20 20 20 20 20 LL SPACE..
007230: 20 20 20 4C 44 20 41 2C 28 48 4C 29 0D 0A 20 20 LD A,(HL)..
007240: 20 20 20 20 20 20 20 43 41 4C 4C 20 50 52 54 33 CALL PRT3
007250: 45 52 32 0D 0A 20 20 20 20 20 20 20 20 20 43 41 ER2.. CA
007260: 4C 4C 20 49 4E 56 0D 0A 20 20 20 20 20 20 20 20 LL INV..
007270: 20 50 4F 50 20 42 43 20 20 0D 0A 20 20 20 20 20 POP BC ..
007280: 20 20 20 20 43 41 4C 4C 20 54 53 54 43 31 0D 0A CALL TSTC1..
007290: 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 4E 5A CALL NZ
0072A0: 2C 43 52 0D 0A 20 20 20 20 20 20 20 20 20 43 41 ,CR.. CA
0072B0: 4C 4C 20 5A 2C 46 45 4E 49 44 4C 31 41 0D 0A 20 LL Z,FENIDL1A..
0072C0: 20 20 20 20 20 20 20 20 4C 44 20 48 4C 2C 43 4F LD HL,CO
0072D0: 55 4E 54 0D 0A 20 20 20 20 20 20 20 20 20 49 4E UNT.. IN
0072E0: 43 20 28 48 4C 29 0D 0A 20 20 20 20 20 20 20 20 C (HL)..
0072F0: 20 50 4F 50 20 48 4C 0D 0A 20 20 20 20 20 20 20 POP HL..
007300: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
007310: 06 00 01 00 02 09 4E E5 06 00 C1 02 00 00 00 02 ......N.........
007320: 06 00 C2 02 00 00 00 02 06 00 C3 02 00 00 00 02 ................
007330: 06 00 C4 02 00 00 00 02 06 00 C5 02 00 00 00 02 ................
007340: 06 00 C6 02 00 00 00 02 06 00 C7 02 00 00 00 02 ................
007350: 06 00 C8 02 00 00 00 02 06 00 C9 02 00 00 00 02 ................
007360: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007370: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007380: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007390: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0073A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0073B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0073C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0073D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0073E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0073F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007400: 20 20 49 4E 43 20 48 4C 0D 0A 20 20 20 20 20 20 INC HL..
007410: 20 20 20 44 4A 4E 5A 20 42 43 4C 45 52 52 53 0D DJNZ BCLERRS.
007420: 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 43 41 . ;.. CA
007430: 4C 4C 20 46 45 4E 53 43 52 0D 0A 20 3B 0D 0A 20 LL FENSCR.. ;..
007440: 20 20 20 20 20 20 20 20 43 41 4C 4C 20 46 49 4E CALL FIN
007450: 44 4C 45 4E 20 20 3B 43 68 65 72 63 68 65 72 20 DLEN ;Chercher
007460: 47 41 50 53 20 28 43 61 20 63 27 65 73 74 20 6C GAPS (Ca c'est l
007470: 65 20 67 72 6F 73 20 6D 6F 72 63 65 61 75 20 61 e gros morceau a
007480: 20 64 69 67 65 72 65 72 29 0D 0A 20 3B 0D 0A 20 digerer).. ;..
007490: 20 20 20 20 20 20 20 20 43 41 4C 4C 20 46 49 58 CALL FIX
0074A0: 50 41 52 41 20 20 3B 49 6E 69 74 69 61 6C 69 73 PARA ;Initialis
0074B0: 65 72 20 70 61 72 61 6D 65 74 72 65 73 0D 0A 20 er parametres..
0074C0: 3B 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 ;.. ;..
0074D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 2D 2D ;--
0074E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0074F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D ---------------.
007500: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
007510: 20 20 20 20 20 20 20 3B 2D 20 41 46 46 49 43 48 ;- AFFICH
007520: 41 47 45 20 44 55 20 52 45 53 55 4C 54 41 54 20 AGE DU RESULTAT
007530: 47 45 4E 45 52 41 4C 20 2D 0D 0A 20 20 20 20 20 GENERAL -..
007540: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
007550: 20 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ;--------------
007560: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
007570: 2D 2D 2D 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 ---.. ;..
007580: 20 20 43 41 4C 4C 20 46 45 4E 52 45 53 31 20 20 CALL FENRES1
007590: 3B 41 66 66 69 63 68 65 72 0D 0A 20 3B 0D 0A 20 ;Afficher.. ;..
0075A0: 20 20 20 20 20 20 20 20 4C 44 20 48 4C 2C 54 4E LD HL,TN
0075B0: 42 53 45 43 20 20 3B 4E 6F 6D 62 72 65 20 73 65 BSEC ;Nombre se
0075C0: 63 74 65 75 72 73 0D 0A 20 20 20 20 20 20 20 20 cteurs..
0075D0: 20 43 41 4C 4C 20 50 52 54 0D 0A 20 20 20 20 20 CALL PRT..
0075E0: 20 20 20 20 4C 44 20 41 2C 28 4E 42 53 45 43 29 LD A,(NBSEC)
0075F0: 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 .. CALL
007600: 50 52 54 44 45 43 49 41 0D 0A 20 3B 0D 0A 20 20 PRTDECIA.. ;..
007610: 20 20 20 20 20 20 20 4C 44 20 48 4C 2C 54 4C 45 LD HL,TLE
007620: 4E 20 20 20 3B 54 61 69 6C 6C 65 0D 0A 20 20 20 N ;Taille..
007630: 20 20 20 20 20 20 43 41 4C 4C 20 50 52 54 0D 0A CALL PRT..
007640: 20 20 20 20 20 20 20 20 20 4C 44 20 41 2C 28 4C LD A,(L
007650: 45 4E 53 45 43 29 0D 0A 20 20 20 20 20 20 20 20 ENSEC)..
007660: 20 43 41 4C 4C 20 50 52 54 48 45 58 31 0D 0A 20 CALL PRTHEX1..
007670: 3B 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 48 ;.. LD H
007680: 4C 2C 54 4C 4F 4E 47 20 20 20 20 3B 4F 63 74 65 L,TLONG ;Octe
007690: 74 73 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C ts.. CAL
0076A0: 4C 20 50 52 54 0D 0A 20 20 20 20 20 20 20 20 20 L PRT..
0076B0: 4C 44 20 48 4C 2C 28 4C 4F 4E 47 53 45 43 29 0D LD HL,(LONGSEC).
0076C0: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 56 41 . LD (VA
0076D0: 4C 45 55 52 29 2C 48 4C 0D 0A 20 20 20 20 20 20 LEUR),HL..
0076E0: 20 20 20 43 41 4C 4C 20 43 49 4E 51 4E 42 0D 0A CALL CINQNB..
0076F0: 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 50 52 CALL PR
007700: 54 44 45 43 49 0D 0A 20 20 20 20 20 20 20 20 20 TDECI..
007710: 43 41 4C 4C 20 44 45 55 58 4E 42 0D 0A 20 3B 0D CALL DEUXNB.. ;.
007720: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 48 4C 2C . LD HL,
007730: 54 47 41 50 46 20 20 20 3B 47 41 50 0D 0A 20 20 TGAPF ;GAP..
007740: 20 20 20 20 20 20 20 43 41 4C 4C 20 50 52 54 0D CALL PRT.
007750: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 41 2C 28 . LD A,(
007760: 56 41 4C 47 41 50 46 29 0D 0A 20 20 20 20 20 20 VALGAPF)..
007770: 20 20 20 43 41 4C 4C 20 50 52 54 48 45 58 31 0D CALL PRTHEX1.
007780: 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 . ;.. LD
007790: 20 48 4C 2C 54 4C 47 41 50 46 0D 0A 20 20 20 20 HL,TLGAPF..
0077A0: 20 20 20 20 20 43 41 4C 4C 20 50 52 54 0D 0A 20 CALL PRT..
0077B0: 20 20 20 20 20 20 20 20 4C 44 20 41 2C 28 47 41 LD A,(GA
0077C0: 50 46 4F 52 4D 29 0D 0A 20 20 20 20 20 20 20 20 PFORM)..
0077D0: 20 43 41 4C 4C 20 50 52 54 48 45 58 31 0D 0A 20 CALL PRTHEX1..
0077E0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 48 ;.. LD H
0077F0: 4C 2C 54 4F 43 52 45 4D 50 20 20 3B 4F 63 74 65 L,TOCREMP ;Octe
007800: 74 20 66 6F 72 6D 61 74 0D 0A 20 20 20 20 20 20 t format..
007810: 20 20 20 43 41 4C 4C 20 50 52 54 0D 0A 20 20 20 CALL PRT..
007820: 20 20 20 20 20 20 4C 44 20 41 2C 28 4F 43 52 45 LD A,(OCRE
007830: 4D 50 29 0D 0A 20 20 20 20 20 20 20 20 20 43 41 MP).. CA
007840: 4C 4C 20 50 52 54 48 45 58 31 0D 0A 20 3B 0D 0A LL PRTHEX1.. ;..
007850: 20 20 20 20 20 20 20 20 20 4C 44 20 41 2C 28 46 LD A,(F
007860: 4C 41 47 46 4E 43 29 0D 0A 20 20 20 20 20 20 20 LAGFNC)..
007870: 20 20 41 4E 44 20 25 30 31 30 31 30 30 30 30 20 AND %01010000
007880: 3B 53 65 63 74 65 75 72 73 20 65 63 72 61 73 65 ;Secteurs ecrase
007890: 73 20 6F 75 20 70 69 73 74 65 20 65 6E 64 6F 6D s ou piste endom
0078A0: 6D 61 67 65 65 20 3F 0D 0A 20 20 20 20 20 20 20 magee ?..
0078B0: 20 20 4A 52 20 5A 2C 4E 4F 46 41 55 58 20 20 20 JR Z,NOFAUX
0078C0: 3B 4E 4F 4E 20 21 0D 0A 20 3B 0D 0A 20 20 20 20 ;NON !.. ;..
0078D0: 20 20 20 20 20 4C 44 20 48 4C 2C 54 46 41 55 47 LD HL,TFAUG
0078E0: 41 50 20 20 20 3B 41 66 66 69 63 68 65 72 20 6C AP ;Afficher l
0078F0: 65 20 66 61 75 78 20 47 41 50 0D 0A 20 20 20 20 e faux GAP..
007900: 20 20 20 20 20 43 41 4C 4C 20 50 52 54 0D 0A 20 CALL PRT..
007910: 20 20 20 20 20 20 20 20 4C 44 20 41 2C 28 46 41 LD A,(FA
007920: 55 58 47 41 50 29 0D 0A 20 20 20 20 20 20 20 20 UXGAP)..
007930: 20 43 41 4C 4C 20 50 52 54 48 45 58 31 0D 0A 20 CALL PRTHEX1..
007940: 3B 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 48 ;.. LD H
007950: 4C 2C 54 4C 46 41 55 47 41 20 20 20 3B 45 74 20 L,TLFAUGA ;Et
007960: 73 61 20 6C 6F 6E 67 75 65 75 72 0D 0A 20 20 20 sa longueur..
007970: 20 20 20 20 20 20 43 41 4C 4C 20 50 52 54 0D 0A CALL PRT..
007980: 20 20 20 20 20 20 20 20 20 4C 44 20 41 2C 28 46 LD A,(F
007990: 41 55 58 4C 47 46 29 0D 0A 20 20 20 20 20 20 20 AUXLGF)..
0079A0: 20 20 43 41 4C 4C 20 50 52 54 48 45 58 31 0D 0A CALL PRTHEX1..
0079B0: 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 ;.. LD
0079C0: 48 4C 2C 54 46 41 55 4C 45 4E 20 20 20 3B 45 74 HL,TFAULEN ;Et
0079D0: 20 6C 61 20 66 61 75 73 73 65 20 74 61 69 6C 6C la fausse taill
0079E0: 65 20 64 65 20 66 6F 72 6D 61 74 0D 0A 20 20 20 e de format..
0079F0: 20 20 20 20 20 20 43 41 4C 4C 20 50 52 54 0D 0A CALL PRT..
007A00: 20 20 20 20 20 20 20 20 20 4C 44 20 41 2C 28 46 LD A,(F
007A10: 41 55 58 4C 45 4E 29 0D 0A 20 20 20 20 20 20 20 AUXLEN)..
007A20: 20 20 43 41 4C 4C 20 50 52 54 44 45 43 49 41 0D CALL PRTDECIA.
007A30: 0A 20 3B 0D 0A 20 4E 4F 46 41 55 58 20 20 4C 44 . ;.. NOFAUX LD
007A40: 20 41 2C 28 46 4C 41 47 46 4E 43 29 20 20 3B 53 A,(FLAGFNC) ;S
007A50: 65 63 74 65 75 72 73 20 65 63 72 61 73 65 73 20 ecteurs ecrases
007A60: 70 6F 73 73 69 62 6C 65 73 20 3F 0D 0A 20 20 20 possibles ?..
007A70: 20 20 20 20 20 20 41 4E 44 20 25 30 30 31 30 30 AND %00100
007A80: 30 30 30 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 000.. JR
007A90: 20 5A 2C 50 41 53 44 49 46 20 20 20 20 20 3B 4E Z,PASDIF ;N
007AA0: 4F 4E 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 ON.. ;..
007AB0: 20 4C 44 20 48 4C 2C 54 44 49 46 4C 45 4E 0D 0A LD HL,TDIFLEN..
007AC0: 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 50 52 CALL PR
007AD0: 54 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 41 T.. LD A
007AE0: 2C 28 4C 4D 49 4E 29 20 20 20 20 20 3B 41 66 66 ,(LMIN) ;Aff
007AF0: 69 63 68 65 72 20 70 6C 75 73 20 70 65 74 69 74 icher plus petit
007B00: 65 20 6C 6F 6E 67 75 65 75 72 20 70 6F 73 73 69 e longueur possi
007B10: 62 6C 65 0D 0A 20 20 20 20 20 20 20 20 20 43 41 ble.. CA
007B20: 4C 4C 20 50 52 54 44 45 43 49 41 0D 0A 20 20 20 LL PRTDECIA..
007B30: 20 20 20 20 20 20 4C 44 20 41 2C 22 61 22 0D 0A LD A,"a"..
007B40: 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 23 42 CALL #B
007B50: 42 35 41 0D 0A 20 20 20 20 20 20 20 20 20 43 41 B5A.. CA
007B60: 4C 4C 20 53 50 41 43 45 0D 0A 20 20 20 20 20 20 LL SPACE..
007B70: 20 20 20 4C 44 20 41 2C 28 4C 4D 41 58 29 20 20 LD A,(LMAX)
007B80: 20 20 20 3B 45 74 20 70 6C 75 73 20 67 72 61 6E ;Et plus gran
007B90: 64 65 20 6C 6F 6E 67 75 65 75 72 20 70 6F 73 73 de longueur poss
007BA0: 69 62 6C 65 0D 0A 20 20 20 20 20 20 20 20 20 4C ible.. L
007BB0: 44 20 28 46 41 55 58 4C 45 4E 29 2C 41 0D 0A 20 D (FAUXLEN),A..
007BC0: 20 20 20 20 20 20 20 20 43 41 4C 4C 20 50 52 54 CALL PRT
007BD0: 44 45 43 49 41 0D 0A 20 3B 0D 0A 20 50 41 53 44 DECIA.. ;.. PASD
007BE0: 49 46 20 20 43 41 4C 4C 20 46 45 4E 53 43 52 20 IF CALL FENSCR
007BF0: 20 20 20 20 3B 50 6C 65 69 6E 20 65 63 72 61 6E ;Plein ecran
007C00: 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 4C .. ;.. L
007C10: 44 20 41 2C 28 46 4C 41 47 49 4D 50 29 20 20 3B D A,(FLAGIMP) ;
007C20: 49 6D 70 72 69 6D 65 72 20 3F 0D 0A 20 20 20 20 Imprimer ?..
007C30: 20 20 20 20 20 4F 52 20 41 0D 0A 20 20 20 20 20 OR A..
007C40: 20 20 20 20 4A 52 20 4E 5A 2C 49 4D 50 41 4E 41 JR NZ,IMPANA
007C50: 4C 20 20 20 3B 4F 75 69 20 21 0D 0A 20 20 20 20 L ;Oui !..
007C60: 20 20 20 20 20 53 43 46 0D 0A 20 20 20 20 20 20 SCF..
007C70: 20 20 20 52 45 54 20 0D 0A 20 3B 0D 0A 20 3B 2D RET .. ;.. ;-
007C80: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
007C90: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
007CA0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D ---------------.
007CB0: 0A 20 3B 2D 20 49 4D 50 52 45 53 53 49 4F 4E 20 . ;- IMPRESSION
007CC0: 44 45 20 4C 27 41 4E 41 4C 59 53 45 20 53 49 20 DE L'ANALYSE SI
007CD0: 4C 45 20 46 4C 41 47 20 41 20 45 54 45 20 4D 49 LE FLAG A ETE MI
007CE0: 53 20 2D 0D 0A 20 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D S -.. ;---------
007CF0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
007D00: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
007D10: 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 3B 0D 0A 20 49 4D -------.. ;.. IM
007D20: 50 41 4E 41 4C 20 43 41 4C 4C 20 53 45 54 49 4D PANAL CALL SETIM
007D30: 50 20 20 20 20 3B 49 6D 70 72 69 6D 65 72 0D 0A P ;Imprimer..
007D40: 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 44 45 CALL DE
007D50: 55 58 4E 42 0D 0A 20 20 20 20 20 20 20 20 20 43 UXNB.. C
007D60: 41 4C 4C 20 49 4D 50 50 49 53 54 20 20 20 3B 50 ALL IMPPIST ;P
007D70: 69 73 74 65 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 iste.. ;..
007D80: 20 20 20 4C 44 20 48 4C 2C 4E 42 53 45 43 49 20 LD HL,NBSECI
007D90: 20 20 3B 43 6F 6D 6D 65 20 76 65 72 73 69 6F 6E ;Comme version
007DA0: 20 70 72 65 63 65 64 65 6E 74 65 0D 0A 20 20 20 precedente..
007DB0: 20 20 20 20 20 20 43 41 4C 4C 20 50 52 54 0D 0A CALL PRT..
007DC0: 20 20 20 20 20 20 20 20 20 4C 44 20 41 2C 28 4E LD A,(N
007DD0: 42 53 45 43 29 0D 0A 20 20 20 20 20 20 20 20 20 BSEC)..
007DE0: 43 41 4C 4C 20 50 52 54 44 45 43 49 41 0D 0A 20 CALL PRTDECIA..
007DF0: 20 20 20 20 20 20 20 20 43 41 4C 4C 20 43 52 0D CALL CR.
007E00: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 48 4C 2C . LD HL,
007E10: 49 44 49 4E 44 52 41 20 20 20 3B 49 44 53 0D 0A IDINDRA ;IDS..
007E20: 20 20 20 20 20 20 20 20 20 4C 44 20 44 45 2C 4C LD DE,L
007E30: 49 53 54 45 52 52 0D 0A 20 20 20 20 20 20 20 20 ISTERR..
007E40: 20 4C 44 20 41 2C 28 4E 42 53 45 43 29 0D 0A 20 LD A,(NBSEC)..
007E50: 20 20 20 20 20 20 20 20 4C 44 20 42 2C 41 0D 0A LD B,A..
007E60: 20 20 20 20 20 20 20 20 20 4C 44 20 43 2C 34 0D LD C,4.
007E70: 0A 20 4E 45 58 54 49 4D 50 20 44 45 43 20 43 0D . NEXTIMP DEC C.
007E80: 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 5A . CALL Z
007E90: 2C 43 52 49 4D 50 31 0D 0A 20 20 20 20 20 20 20 ,CRIMP1..
007EA0: 20 20 50 55 53 48 20 42 43 0D 0A 20 57 41 49 54 PUSH BC.. WAIT
007EB0: 49 4D 50 20 43 41 4C 4C 20 23 42 44 32 45 20 20 IMP CALL #BD2E
007EC0: 20 20 20 20 3B 41 74 74 65 6E 64 72 65 20 75 6E ;Attendre un
007ED0: 20 70 65 75 20 70 6F 75 72 20 6E 65 20 70 61 73 peu pour ne pas
007EE0: 20 70 65 72 64 72 65 20 64 65 73 20 63 61 72 61 perdre des cara
007EF0: 63 74 65 72 65 73 0D 0A 20 20 20 20 20 20 20 20 cteres..
007F00: 20 4A 52 20 43 2C 57 41 49 54 49 4D 50 0D 0A 20 JR C,WAITIMP..
007F10: 20 20 20 20 20 20 20 20 43 41 4C 4C 20 41 46 46 CALL AFF
007F20: 34 49 44 0D 0A 20 20 20 20 20 20 20 20 20 50 4F 4ID.. PO
007F30: 50 20 42 43 0D 0A 20 20 20 20 20 20 20 20 20 4C P BC.. L
007F40: 44 20 41 2C 28 44 45 29 0D 0A 20 20 20 20 20 20 D A,(DE)..
007F50: 20 20 20 49 4E 43 20 44 45 0D 0A 20 20 20 20 20 INC DE..
007F60: 20 20 20 20 50 55 53 48 20 48 4C 0D 0A 20 20 20 PUSH HL..
007F70: 20 20 20 20 20 20 50 55 53 48 20 44 45 0D 0A 20 PUSH DE..
007F80: 20 20 20 20 20 20 20 20 50 55 53 48 20 42 43 0D PUSH BC.
007F90: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 46 4C . LD (FL
007FA0: 41 47 45 52 52 29 2C 41 20 20 0D 0A 20 20 20 20 AGERR),A ..
007FB0: 20 20 20 20 20 43 41 4C 4C 20 50 52 54 33 45 52 CALL PRT3ER
007FC0: 52 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 48 R.. LD H
007FD0: 4C 2C 54 53 45 50 49 4D 50 0D 0A 20 20 20 20 20 L,TSEPIMP..
007FE0: 20 20 20 20 43 41 4C 4C 20 50 52 54 0D 0A 20 20 CALL PRT..
007FF0: 20 20 20 20 20 20 20 50 4F 50 20 42 43 0D 0A 20 POP BC..
008000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
008010: 20 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D ---------
008020: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
008030: 2D 2D 2D 2D 2D 2D 0D 0A 20 20 20 20 20 20 20 20 ------..
008040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 S
008050: 55 49 54 45 20 44 45 20 4C 41 20 52 4F 55 54 49 UITE DE LA ROUTI
008060: 4E 45 20 45 54 55 44 45 20 50 49 53 54 45 0D 0A NE ETUDE PISTE..
008070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
008080: 20 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D ---------
008090: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0080A0: 2D 2D 2D 2D 2D 2D 0D 0A 0D 0A 20 20 20 20 20 20 ------....
0080B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0080C0: 20 20 20 20 20 20 28 43 4F 50 49 45 55 52 20 35 (COPIEUR 5
0080D0: 45 4D 45 20 50 41 52 54 49 45 29 0D 0A 20 0D 0A EME PARTIE).. ..
0080E0: 20 20 20 20 20 53 4F 4C 55 54 49 4F 4E 34 20 65 SOLUTION4 e
0080F0: 73 74 20 75 74 69 6C 69 73 7B 65 20 64 61 6E 73 st utilis{e dans
008100: 20 6C 65 20 20 63 61 73 20 20 6F 75 20 20 75 6E le cas ou un
008110: 20 20 4D 41 4D 20 20 65 6E 20 31 65 72 20 73 65 MAM en 1er se
008120: 63 74 65 75 72 20 69 6E 74 65 72 64 69 74 0D 0A cteur interdit..
008130: 20 74 6F 75 74 65 20 6F 70 7B 72 61 74 69 6F 6E toute op{ration
008140: 20 73 75 72 20 6C 69 72 65 20 70 69 73 74 65 20 sur lire piste
008150: 2E 20 4F 6E 20 63 6F 6E 73 69 64 7D 72 65 20 70 . On consid}re p
008160: 72 6F 76 69 73 6F 69 72 65 6D 65 6E 74 20 4C 4D rovisoirement LM
008170: 41 58 20 63 6F 6D 6D 65 20 76 72 61 69 65 0D 0A AX comme vraie..
008180: 20 6C 6F 6E 67 75 65 75 72 20 2E 20 45 6E 73 75 longueur . Ensu
008190: 69 74 65 20 2C 20 73 69 20 6C 27 6F 6E 20 64 7B ite , si l'on d{
0081A0: 74 65 63 74 65 20 70 6C 75 73 69 65 75 72 73 20 tecte plusieurs
0081B0: 20 4C 45 4E 20 49 44 20 4F 4B 20 69 6C 20 65 73 LEN ID OK il es
0081C0: 74 20 50 4F 53 53 49 42 4C 45 20 71 75 65 0D 0A t POSSIBLE que..
0081D0: 20 64 65 73 20 73 65 63 74 65 75 72 73 20 61 69 des secteurs ai
0081E0: 65 6E 74 20 7B 74 7B 20 7B 63 72 61 73 7B 73 20 ent {t{ {cras{s
0081F0: 2E 20 20 53 69 20 20 64 65 20 20 70 6C 75 73 20 . Si de plus
008200: 20 4C 49 44 4D 41 58 20 65 73 74 20 73 75 70 7B LIDMAX est sup{
008210: 72 69 65 75 72 20 40 20 4C 4D 41 58 20 2C 0D 0A rieur @ LMAX ,..
008220: 20 63 65 6C 61 20 64 65 76 69 65 6E 74 20 43 45 cela devient CE
008230: 52 54 41 49 4E 20 20 2E 20 20 41 70 72 7D 73 20 RTAIN . Apr}s
008240: 20 6F 6E 20 20 6D 65 74 20 20 6C 65 20 20 47 41 on met le GA
008250: 50 20 20 61 75 20 20 6D 61 78 69 6D 75 6D 20 20 P au maximum
008260: 65 74 20 20 43 41 4C 49 47 41 50 20 6C 65 0D 0A et CALIGAP le..
008270: 20 72 65 74 61 69 6C 6C 65 72 61 20 61 75 20 6D retaillera au m
008280: 61 78 69 6D 75 6D 20 61 75 74 6F 72 69 73 7B 20 aximum autoris{
008290: 70 61 72 20 4C 4D 41 58 20 20 2E 20 53 69 20 61 par LMAX . Si a
0082A0: 75 63 75 6E 65 20 70 6F 73 73 69 62 69 6C 69 74 ucune possibilit
0082B0: 7B 20 64 27 7B 63 72 61 73 65 6D 65 6E 74 0D 0A { d'{crasement..
0082C0: 20 6E 27 61 20 7B 74 7B 20 64 65 74 65 63 74 7B n'a {t{ detect{
0082D0: 65 20 6F 6E 20 61 72 72 65 08 5E 74 65 20 6C 40 e on arre.^te l@
0082E0: 20 20 2E 20 20 44 61 6E 73 20 20 6C 65 20 20 63 . Dans le c
0082F0: 61 73 20 20 63 6F 6E 74 72 61 69 72 65 20 20 2C as contraire ,
008300: 20 6F 6E 20 6D 65 74 20 6C 65 20 47 41 50 20 40 on met le GAP @
008310: 0D 0A 20 6C 27 75 6C 74 69 6D 65 20 6D 69 6E 69 .. l'ultime mini
008320: 6D 75 6D 20 65 74 20 6F 6E 20 70 61 73 73 65 20 mum et on passe
008330: 40 20 6C 61 20 72 6F 75 74 69 6E 65 20 64 27 7B @ la routine d'{
008340: 63 72 61 73 65 6D 65 6E 74 20 2E 0D 0A 20 0D 0A crasement ... ..
008350: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
008360: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2D -
008370: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
008380: 0D 0A 20 3B 0D 0A 20 53 4F 4C 55 54 49 4F 4E 34 .. ;.. SOLUTION4
008390: 20 4C 44 20 48 4C 2C 54 47 41 50 50 49 46 0D 0A LD HL,TGAPPIF..
0083A0: 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 50 52 CALL PR
0083B0: 54 0D 0A 20 3B 20 0D 0A 20 20 20 20 20 20 20 20 T.. ; ..
0083C0: 20 4C 44 20 41 2C 28 4C 4D 41 58 29 20 20 20 3B LD A,(LMAX) ;
0083D0: 50 69 73 74 65 20 69 6E 61 6E 61 6C 69 73 61 62 Piste inanalisab
0083E0: 6C 65 20 70 61 72 20 6C 69 72 65 20 70 69 73 74 le par lire pist
0083F0: 65 20 65 74 20 70 61 73 20 64 65 20 43 52 2F 44 e et pas de CR/D
008400: 44 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 43 D.. LD C
008410: 2C 41 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 ,A.. LD
008420: 28 4C 45 4E 53 45 43 29 2C 41 20 3B 41 6C 6C 65 (LENSEC),A ;Alle
008430: 72 20 70 6C 75 73 20 73 69 6D 70 6C 65 20 65 6E r plus simple en
008440: 20 63 6F 6E 73 69 64 65 72 61 6E 74 20 6C 61 20 considerant la
008450: 74 61 69 6C 6C 65 0D 0A 20 20 20 20 20 20 20 20 taille..
008460: 20 43 41 4C 4C 20 41 44 44 4C 4F 4E 20 20 20 3B CALL ADDLON ;
008470: 6D 61 78 69 6D 75 6D 20 63 6F 6D 6D 65 20 76 72 maximum comme vr
008480: 61 69 65 20 74 61 69 6C 6C 65 20 64 65 20 66 6F aie taille de fo
008490: 72 6D 61 74 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 rmat.. ;..
0084A0: 20 20 20 4C 44 20 41 2C 28 46 4C 47 44 49 46 49 LD A,(FLGDIFI
0084B0: 44 29 20 0D 0A 20 20 20 20 20 20 20 20 20 4F 52 D) .. OR
0084C0: 20 41 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 20 A.. JR
0084D0: 5A 2C 4E 4F 44 49 46 49 44 20 20 3B 56 6F 69 72 Z,NODIFID ;Voir
0084E0: 20 73 69 20 70 6C 75 73 69 65 75 72 73 20 49 44 si plusieurs ID
0084F0: 53 20 4F 4B 20 64 69 66 66 65 72 65 6E 74 73 0D S OK differents.
008500: 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 . ;.. LD
008510: 20 48 4C 2C 46 4C 41 47 46 4E 43 0D 0A 20 20 20 HL,FLAGFNC..
008520: 20 20 20 20 20 20 53 45 54 20 35 2C 28 48 4C 29 SET 5,(HL)
008530: 20 20 20 20 3B 4D 61 72 71 75 65 72 20 70 6C 75 ;Marquer plu
008540: 73 69 65 75 72 73 20 74 61 69 6C 6C 65 73 20 66 sieurs tailles f
008550: 6F 72 6D 61 74 20 70 6F 73 73 69 62 6C 65 73 0D ormat possibles.
008560: 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 . ;.. LD
008570: 20 48 4C 2C 54 45 43 52 50 4F 53 53 0D 0A 20 20 HL,TECRPOSS..
008580: 20 20 20 20 20 20 20 43 41 4C 4C 20 50 52 54 0D CALL PRT.
008590: 0A 20 20 20 20 20 20 20 20 20 0D 0A 20 20 20 20 . ..
0085A0: 20 20 20 20 20 4C 44 20 41 2C 28 4C 49 44 4D 41 LD A,(LIDMA
0085B0: 58 29 20 3B 4C 49 44 4D 41 58 20 3E 20 4C 4D 41 X) ;LIDMAX > LMA
0085C0: 58 0D 0A 20 20 20 20 20 20 20 20 20 49 4E 43 20 X.. INC
0085D0: 43 0D 0A 20 20 20 20 20 20 20 20 20 43 50 20 43 C.. CP C
0085E0: 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 20 43 2C .. JR C,
0085F0: 4E 4F 44 49 46 49 44 0D 0A 20 3B 0D 0A 20 20 20 NODIFID.. ;..
008600: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
008610: 07 00 01 00 02 09 4E E5 07 00 C1 02 00 00 00 02 ......N.........
008620: 07 00 C2 02 00 00 00 02 07 00 C3 02 00 00 00 02 ................
008630: 07 00 C4 02 00 00 00 02 07 00 C5 02 00 00 00 02 ................
008640: 07 00 C6 02 00 00 00 02 07 00 C7 02 00 00 00 02 ................
008650: 07 00 C8 02 00 00 00 02 07 00 C9 02 00 00 00 02 ................
008660: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008670: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008680: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008690: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0086A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0086B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0086C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0086D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0086E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0086F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008700: 20 20 20 20 20 20 43 41 4C 4C 20 53 45 54 45 43 CALL SETEC
008710: 52 41 20 20 3B 45 63 72 61 73 65 73 20 63 65 72 RA ;Ecrases cer
008720: 74 61 69 6E 73 20 2E 0D 0A 20 3B 0D 0A 20 4E 4F tains ... ;.. NO
008730: 44 49 46 49 44 20 4C 44 20 41 2C 23 46 46 20 20 DIFID LD A,#FF
008740: 20 20 20 20 3B 46 69 78 65 72 20 47 41 50 20 61 ;Fixer GAP a
008750: 72 62 69 74 72 61 69 72 65 6D 65 6E 74 0D 0A 20 rbitrairement..
008760: 20 20 20 20 20 20 20 20 4C 44 20 28 47 41 50 46 LD (GAPF
008770: 4F 52 4D 29 2C 41 0D 0A 20 20 20 20 20 20 20 20 ORM),A..
008780: 20 43 41 4C 4C 20 43 41 4C 49 47 41 50 20 20 3B CALL CALIGAP ;
008790: 50 61 72 20 63 61 6C 69 67 61 70 0D 0A 20 20 20 Par caligap..
0087A0: 20 20 20 20 20 20 4C 44 20 41 2C 23 34 45 0D 0A LD A,#4E..
0087B0: 20 20 20 20 20 20 20 20 20 4C 44 20 28 56 41 4C LD (VAL
0087C0: 47 41 50 46 29 2C 41 0D 0A 20 3B 0D 0A 20 20 20 GAPF),A.. ;..
0087D0: 20 20 20 20 20 20 4C 44 20 41 2C 28 46 4C 41 47 LD A,(FLAG
0087E0: 46 4E 43 29 0D 0A 20 20 20 20 20 20 20 20 20 41 FNC).. A
0087F0: 4E 44 20 25 30 30 31 31 30 30 30 30 20 3B 53 75 ND %00110000 ;Su
008800: 72 20 6F 75 20 70 65 75 74 2D 65 74 72 65 20 65 r ou peut-etre e
008810: 63 72 61 73 65 73 20 3F 0D 0A 20 20 20 20 20 20 crases ?..
008820: 20 20 20 53 43 46 0D 0A 20 20 20 20 20 20 20 20 SCF..
008830: 20 4A 50 20 5A 2C 45 58 49 54 47 41 50 20 0D 0A JP Z,EXITGAP ..
008840: 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 ;.. LD
008850: 41 2C 33 20 20 20 20 20 20 20 20 3B 47 41 50 20 A,3 ;GAP
008860: 61 72 62 69 74 72 61 69 72 65 20 70 6F 75 72 20 arbitraire pour
008870: 65 63 72 61 73 65 6D 65 6E 74 0D 0A 20 20 20 20 ecrasement..
008880: 20 20 20 20 20 4C 44 20 28 47 41 50 46 4F 52 4D LD (GAPFORM
008890: 29 2C 41 0D 0A 20 20 20 20 20 20 20 20 20 4A 50 ),A.. JP
0088A0: 20 45 43 52 41 53 45 52 0D 0A 20 3B 0D 0A 20 20 ECRASER.. ;..
0088B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0088C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2D 2D 2D ---
0088D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A --------------..
0088E0: 20 0D 0A 20 20 20 20 20 53 4F 4C 55 54 49 4F 4E .. SOLUTION
0088F0: 35 20 45 73 74 20 75 6E 69 71 75 65 6D 65 6E 74 5 Est uniquement
008900: 20 20 64 7B 64 69 7B 65 20 20 61 75 20 20 74 72 d{di{e au tr
008910: 61 69 74 65 6D 65 6E 74 20 20 64 65 73 20 20 70 aitement des p
008920: 69 73 74 65 73 20 63 6F 6E 73 69 64 7B 72 7B 65 istes consid{r{e
008930: 73 0D 0A 20 63 6F 6D 6D 65 20 61 62 69 6D 7B 65 s.. comme abim{e
008940: 73 20 2E 20 44 61 6E 73 20 63 65 20 63 61 73 20 s . Dans ce cas
008950: 6C 65 73 20 76 61 6C 65 75 72 73 20 20 64 65 20 les valeurs de
008960: 47 41 50 20 70 65 75 76 65 6E 74 20 65 08 5E 74 GAP peuvent e.^t
008970: 72 65 20 66 61 75 73 73 65 73 20 2E 20 4F 6E 20 re fausses . On
008980: 6C 65 73 0D 0A 20 6E 6F 74 65 72 61 20 70 6F 75 les.. notera pou
008990: 72 20 69 6E 66 6F 72 6D 61 74 69 6F 6E 20 20 6D r information m
0089A0: 61 69 73 20 20 6F 6E 20 20 75 74 69 6C 69 73 65 ais on utilise
0089B0: 72 61 20 20 75 6E 65 20 20 76 61 6C 65 75 72 20 ra une valeur
0089C0: 20 61 72 62 69 74 72 61 69 72 65 20 70 6F 75 72 arbitraire pour
0089D0: 20 6C 61 0D 0A 20 72 65 70 72 6F 64 75 63 74 69 la.. reproducti
0089E0: 6F 6E 20 2E 0D 0A 20 3B 0D 0A 20 53 4F 4C 55 54 on ... ;.. SOLUT
0089F0: 49 4F 4E 35 20 4C 44 20 41 2C 43 20 20 20 20 20 ION5 LD A,C
008A00: 3B 54 65 6E 74 61 74 69 76 65 20 64 27 61 6E 61 ;Tentative d'ana
008A10: 6C 79 73 65 20 73 75 72 20 70 69 73 74 65 20 56 lyse sur piste V
008A20: 52 41 49 4D 45 4E 54 20 61 62 69 6D 65 65 0D 0A RAIMENT abimee..
008A30: 20 20 20 20 20 20 20 20 20 4C 44 20 28 4C 4D 41 LD (LMA
008A40: 58 29 2C 41 0D 0A 20 20 20 20 20 20 20 20 20 4C X),A.. L
008A50: 44 20 28 4C 45 4E 53 45 43 29 2C 41 0D 0A 20 20 D (LENSEC),A..
008A60: 20 20 20 20 20 20 20 43 41 4C 4C 20 41 44 44 4C CALL ADDL
008A70: 4F 4E 0D 0A 20 20 20 20 20 20 20 20 20 49 4E 43 ON.. INC
008A80: 20 41 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 A.. LD
008A90: 28 51 55 41 54 52 49 44 2B 33 29 2C 41 0D 0A 20 (QUATRID+3),A..
008AA0: 20 20 20 20 20 20 20 20 4C 44 20 48 4C 2C 4C 49 LD HL,LI
008AB0: 54 46 44 43 32 0D 0A 20 20 20 20 20 20 20 20 20 TFDC2..
008AC0: 43 41 4C 4C 20 43 4F 4D 4C 49 50 49 0D 0A 20 3B CALL COMLIPI.. ;
008AD0: 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 .. CALL
008AE0: 49 4E 53 54 52 55 39 20 20 20 3B 4C 69 72 65 20 INSTRU9 ;Lire
008AF0: 70 69 73 74 65 20 61 76 65 63 20 74 61 69 6C 6C piste avec taill
008B00: 65 20 4D 41 58 49 2B 31 0D 0A 20 20 20 20 20 20 e MAXI+1..
008B10: 20 20 20 4C 44 20 41 2C 28 42 55 46 47 41 50 53 LD A,(BUFGAPS
008B20: 29 20 3B 64 65 73 20 73 65 63 74 65 75 72 73 0D ) ;des secteurs.
008B30: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 46 41 . LD (FA
008B40: 55 58 47 41 50 29 2C 41 0D 0A 20 20 20 20 20 20 UXGAP),A..
008B50: 20 20 20 43 41 4C 4C 20 46 49 4E 44 47 41 50 0D CALL FINDGAP.
008B60: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 41 2C 28 . LD A,(
008B70: 47 41 50 46 4F 52 4D 29 0D 0A 20 20 20 20 20 20 GAPFORM)..
008B80: 20 20 20 4C 44 20 28 46 41 55 58 4C 47 46 29 2C LD (FAUXLGF),
008B90: 41 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 A.. LD (
008BA0: 47 41 50 46 4F 52 4D 29 2C 41 0D 0A 20 20 20 20 GAPFORM),A..
008BB0: 20 20 20 20 20 4C 44 20 41 2C 23 34 45 20 20 20 LD A,#4E
008BC0: 20 20 20 20 3B 56 72 61 69 20 47 41 50 20 53 55 ;Vrai GAP SU
008BD0: 50 50 4F 53 45 20 23 34 45 0D 0A 20 20 20 20 20 PPOSE #4E..
008BE0: 20 20 20 20 4C 44 20 28 56 41 4C 47 41 50 46 29 LD (VALGAPF)
008BF0: 2C 41 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C ,A.. CAL
008C00: 4C 20 43 41 4C 49 47 41 50 0D 0A 20 20 20 20 20 L CALIGAP..
008C10: 20 20 20 20 4A 50 20 45 58 49 54 47 41 50 0D 0A JP EXITGAP..
008C20: 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 ;..
008C30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
008C40: 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D -------------
008C50: 2D 2D 2D 0D 0A 20 0D 0A 20 20 20 20 20 53 69 20 ---.. .. Si
008C60: 6F 6E 20 61 20 71 75 27 75 6E 20 73 65 75 6C 20 on a qu'un seul
008C70: 73 65 63 74 65 75 72 20 73 75 72 20 6C 61 20 70 secteur sur la p
008C80: 69 73 74 65 20 65 74 20 71 75 27 69 6C 20 65 73 iste et qu'il es
008C90: 74 20 65 6E 20 4D 41 4D 20 2C 20 6F 6E 20 66 69 t en MAM , on fi
008CA0: 78 65 20 6C 65 73 0D 0A 20 76 61 6C 65 75 72 73 xe les.. valeurs
008CB0: 20 61 75 20 70 69 66 6F 6D 7D 74 72 65 20 2E 0D au pifom}tre ..
008CC0: 0A 20 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 . ..
008CD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
008CE0: 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D -------------
008CF0: 2D 2D 2D 0D 0A 20 3B 0D 0A 20 50 49 46 4F 4D 45 ---.. ;.. PIFOME
008D00: 54 52 20 4C 44 20 48 4C 2C 54 47 41 50 50 49 46 TR LD HL,TGAPPIF
008D10: 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 .. CALL
008D20: 50 52 54 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 PRT.. LD
008D30: 20 41 2C 28 51 55 41 54 52 49 44 2B 33 29 0D 0A A,(QUATRID+3)..
008D40: 20 20 20 20 20 20 20 20 20 4C 44 20 28 4C 45 4E LD (LEN
008D50: 53 45 43 29 2C 41 0D 0A 20 20 20 20 20 20 20 20 SEC),A..
008D60: 20 4C 44 20 41 2C 23 34 45 20 20 20 20 20 20 20 LD A,#4E
008D70: 20 3B 55 6E 20 73 65 75 6C 20 4D 41 4D 20 74 61 ;Un seul MAM ta
008D80: 69 6C 6C 65 20 30 20 2C 20 66 69 78 65 72 20 61 ille 0 , fixer a
008D90: 72 62 69 74 72 61 69 72 65 6D 65 6E 74 0D 0A 20 rbitrairement..
008DA0: 20 20 20 20 20 20 20 20 4C 44 20 28 56 41 4C 47 LD (VALG
008DB0: 41 50 46 29 2C 41 20 20 3B 65 74 20 66 69 6E 69 APF),A ;et fini
008DC0: 0D 0A 20 20 20 20 20 20 20 20 20 53 43 46 0D 0A .. SCF..
008DD0: 20 20 20 20 20 20 20 20 20 52 45 54 0D 0A 20 3B RET.. ;
008DE0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
008DF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
008E00: 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ---------------
008E10: 2D 2D 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 --..
008E20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
008E30: 20 20 20 2D 20 53 4F 55 53 20 52 4F 55 54 49 4E - SOUS ROUTIN
008E40: 45 53 20 2D 0D 0A 20 20 20 20 20 20 20 20 20 20 ES -..
008E50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
008E60: 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D -----------
008E70: 2D 2D 2D 2D 2D 2D 0D 0A 20 3B 0D 0A 20 4A 45 43 ------.. ;.. JEC
008E80: 4F 49 4E 43 45 20 4C 44 20 48 4C 2C 54 43 4F 49 OINCE LD HL,TCOI
008E90: 4E 43 45 20 20 3B 41 6E 61 6C 79 73 65 20 69 6D NCE ;Analyse im
008EA0: 70 6F 73 73 69 62 6C 65 20 21 0D 0A 20 20 20 20 possible !..
008EB0: 20 20 20 20 20 43 41 4C 4C 20 50 52 54 0D 0A 20 CALL PRT..
008EC0: 20 20 20 20 20 20 20 20 4C 44 20 48 4C 2C 46 4C LD HL,FL
008ED0: 41 47 46 4E 43 0D 0A 20 20 20 20 20 20 20 20 20 AGFNC..
008EE0: 53 45 54 20 37 2C 28 48 4C 29 0D 0A 20 20 20 20 SET 7,(HL)..
008EF0: 20 20 20 20 20 4C 44 20 41 2C 28 42 55 46 47 41 LD A,(BUFGA
008F00: 50 53 29 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 PS).. LD
008F10: 20 28 56 41 4C 47 41 50 46 29 2C 41 0D 0A 20 20 (VALGAPF),A..
008F20: 20 20 20 20 20 20 20 4C 44 20 41 2C 23 46 46 0D LD A,#FF.
008F30: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 47 41 . LD (GA
008F40: 50 46 4F 52 4D 29 2C 41 0D 0A 20 20 20 20 20 20 PFORM),A..
008F50: 20 20 20 52 45 54 0D 0A 20 3B 0D 0A 20 4F 4B 4C RET.. ;.. OKL
008F60: 4F 4E 47 20 20 4C 44 20 41 2C 34 20 20 20 20 20 ONG LD A,4
008F70: 20 20 20 20 20 20 20 20 20 3B 43 68 65 72 63 68 ;Cherch
008F80: 65 72 20 6C 65 20 47 41 50 20 70 61 72 20 6C 69 er le GAP par li
008F90: 72 65 20 70 69 73 74 65 20 2E 20 46 6F 6E 63 74 re piste . Fonct
008FA0: 69 6F 6E 6E 65 20 0D 0A 20 20 20 20 20 20 20 20 ionne ..
008FB0: 20 4C 44 20 28 52 45 54 45 4E 54 29 2C 41 20 20 LD (RETENT),A
008FC0: 20 20 20 20 20 3B 63 6F 6D 6D 65 20 64 61 6E 73 ;comme dans
008FD0: 20 6C 61 20 76 65 72 73 69 6F 6E 20 70 72 7B 63 la version pr{c
008FE0: 7B 64 65 6E 74 65 20 6D 61 69 73 20 65 66 66 65 {dente mais effe
008FF0: 63 74 75 65 0D 0A 20 3B 0D 0A 20 45 4E 43 4F 47 ctue.. ;.. ENCOG
009000: 41 50 20 4C 44 20 41 2C 28 51 55 41 54 52 49 44 AP LD A,(QUATRID
009010: 2B 33 29 20 20 20 20 3B 34 20 74 65 6E 74 61 74 +3) ;4 tentat
009020: 69 76 65 73 20 65 6E 20 63 61 73 20 64 27 65 63 ives en cas d'ec
009030: 68 65 63 20 63 61 72 20 69 6C 20 61 72 72 69 76 hec car il arriv
009040: 65 20 71 75 65 0D 0A 20 20 20 20 20 20 20 20 20 e que..
009050: 50 55 53 48 20 41 46 20 20 20 20 20 20 20 20 20 PUSH AF
009060: 20 20 20 20 3B 6C 69 72 65 20 70 69 73 74 65 20 ;lire piste
009070: 70 61 74 69 6E 65 20 75 6D 20 70 65 75 20 2E 2E patine um peu ..
009080: 2E 20 4C 61 20 6C 65 63 74 75 72 65 20 73 65 20 . La lecture se
009090: 66 61 69 74 0D 0A 20 20 20 20 20 20 20 20 20 4C fait.. L
0090A0: 44 20 41 2C 37 20 20 20 20 20 20 20 20 20 20 20 D A,7
0090B0: 20 20 20 3B 73 75 72 20 75 6E 65 20 74 61 69 6C ;sur une tail
0090C0: 6C 65 20 37 20 2E 20 41 20 70 61 72 74 20 63 61 le 7 . A part ca
0090D0: 20 72 69 65 6E 20 64 65 20 6E 65 75 66 20 2E 0D rien de neuf ..
0090E0: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 51 55 . LD (QU
0090F0: 41 54 52 49 44 2B 33 29 2C 41 0D 0A 20 20 20 20 ATRID+3),A..
009100: 20 20 20 20 20 43 41 4C 4C 20 49 4E 53 54 52 55 CALL INSTRU
009110: 39 20 20 20 20 20 20 20 20 3B 4C 69 72 65 20 47 9 ;Lire G
009120: 41 50 0D 0A 20 20 20 20 20 20 20 20 20 50 4F 50 AP.. POP
009130: 20 41 46 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 AF.. LD
009140: 20 28 51 55 41 54 52 49 44 2B 33 29 2C 41 0D 0A (QUATRID+3),A..
009150: 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 ;.. LD
009160: 48 4C 2C 42 55 46 47 41 50 53 0D 0A 20 20 20 20 HL,BUFGAPS..
009170: 20 20 20 20 20 4C 44 20 41 2C 28 48 4C 29 0D 0A LD A,(HL)..
009180: 20 4F 4B 47 41 50 31 20 20 4C 44 20 28 56 41 4C OKGAP1 LD (VAL
009190: 47 41 50 46 29 2C 41 0D 0A 20 20 20 20 20 20 20 GAPF),A..
0091A0: 20 20 43 50 20 23 34 45 0D 0A 20 20 20 20 20 20 CP #4E..
0091B0: 20 20 20 52 45 54 20 5A 0D 0A 20 3B 0D 0A 20 20 RET Z.. ;..
0091C0: 20 20 20 20 20 20 20 4C 44 20 48 4C 2C 52 45 54 LD HL,RET
0091D0: 45 4E 54 20 20 20 3B 49 6C 20 61 72 72 69 76 65 ENT ;Il arrive
0091E0: 20 71 75 65 20 6C 69 72 65 20 70 69 73 74 65 20 que lire piste
0091F0: 70 61 74 69 6E 65 20 2E 2E 2E 0D 0A 20 20 20 20 patine .....
009200: 20 20 20 20 20 44 45 43 20 28 48 4C 29 0D 0A 20 DEC (HL)..
009210: 20 20 20 20 20 20 20 20 4A 52 20 4E 5A 2C 45 4E JR NZ,EN
009220: 43 4F 47 41 50 0D 0A 20 3B 0D 0A 20 20 20 20 20 COGAP.. ;..
009230: 20 20 20 20 4C 44 20 41 2C 28 46 4C 41 47 44 45 LD A,(FLAGDE
009240: 4E 29 20 3B 47 41 50 3C 3E 23 34 45 20 2E 20 50 N) ;GAP<>#4E . P
009250: 65 75 74 20 65 74 72 65 20 65 6E 20 53 44 20 2E eut etre en SD .
009260: 20 56 65 72 69 66 69 65 72 0D 0A 20 20 20 20 20 Verifier..
009270: 20 20 20 20 43 50 20 23 46 46 0D 0A 20 20 20 20 CP #FF..
009280: 20 20 20 20 20 4A 50 20 5A 2C 53 45 54 4E 4F 47 JP Z,SETNOG
009290: 41 50 20 20 3B 47 41 50 3C 3E 23 34 45 20 26 20 AP ;GAP<>#4E &
0092A0: 53 44 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 SD.. LD
0092B0: 41 2C 23 34 45 20 20 20 20 20 20 20 3B 46 69 78 A,#4E ;Fix
0092C0: 65 72 20 61 72 62 69 74 72 61 69 72 65 6D 65 6E er arbitrairemen
0092D0: 74 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 20 4F t.. JR O
0092E0: 4B 47 41 50 31 0D 0A 20 3B 0D 0A 20 46 49 4E 44 KGAP1.. ;.. FIND
0092F0: 47 41 50 20 43 41 4C 4C 20 55 4E 53 45 55 4C 20 GAP CALL UNSEUL
009300: 20 20 3B 53 69 20 75 6E 20 73 65 75 6C 20 73 65 ;Si un seul se
009310: 63 74 65 75 72 20 2C 20 47 41 50 20 3D 20 23 46 cteur , GAP = #F
009320: 46 20 64 27 6F 66 66 69 63 65 0D 0A 20 20 20 20 F d'office..
009330: 20 20 20 20 20 52 45 54 20 43 20 20 20 20 20 20 RET C
009340: 20 20 20 3B 31 2D 32 20 3D 20 23 46 46 20 65 74 ;1-2 = #FF et
009350: 20 6D 69 73 65 20 43 41 52 52 59 0D 0A 20 3B 0D mise CARRY.. ;.
009360: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 48 4C 2C . LD HL,
009370: 42 55 46 47 41 50 53 2B 31 20 3B 43 6F 6D 70 74 BUFGAPS+1 ;Compt
009380: 65 72 20 6C 61 20 6C 6F 6E 67 75 65 75 72 20 64 er la longueur d
009390: 75 20 47 41 50 20 64 61 6E 73 20 6C 65 20 62 75 u GAP dans le bu
0093A0: 66 66 65 72 0D 0A 20 20 20 20 20 20 20 20 20 4C ffer.. L
0093B0: 44 20 42 2C 32 35 35 20 20 20 20 20 20 20 20 3B D B,255 ;
0093C0: 46 6F 6E 63 74 69 6F 6E 6E 65 20 63 6F 6D 6D 65 Fonctionne comme
0093D0: 20 64 61 6E 73 20 6C 61 20 76 65 72 73 69 6F 6E dans la version
0093E0: 20 70 72 7B 63 7B 64 65 6E 74 65 0D 0A 20 20 20 pr{c{dente..
0093F0: 20 20 20 20 20 20 4C 44 20 43 2C 31 20 20 20 20 LD C,1
009400: 20 20 20 20 20 20 3B 6D 61 69 73 20 6C 61 20 70 ;mais la p
009410: 6F 73 73 69 62 69 6C 69 74 7B 20 64 27 75 6E 20 ossibilit{ d'un
009420: 47 41 50 20 30 20 28 32 35 36 20 6F 63 74 65 74 GAP 0 (256 octet
009430: 73 29 0D 0A 20 42 43 4C 47 41 50 53 20 4C 44 20 s).. BCLGAPS LD
009440: 41 2C 28 48 4C 29 20 20 20 20 20 20 20 3B 79 2D A,(HL) ;y-
009450: 65 73 74 20 6D 61 69 6E 74 65 6E 61 6E 74 20 70 est maintenant p
009460: 72 69 73 65 20 65 6E 20 63 6F 6D 70 74 65 20 2E rise en compte .
009470: 20 45 6E 20 63 61 73 20 64 65 0D 0A 20 20 20 20 En cas de..
009480: 20 20 20 20 20 4F 52 20 41 20 20 20 20 20 20 20 OR A
009490: 20 20 20 20 20 3B 6C 6F 6E 67 75 65 75 72 20 47 ;longueur G
0094A0: 41 50 20 74 72 6F 70 20 67 72 61 6E 64 65 20 2C AP trop grande ,
0094B0: 20 6F 6E 20 65 66 66 65 63 74 75 65 20 75 6E 20 on effectue un
0094C0: 73 65 63 6F 6E 64 0D 0A 20 20 20 20 20 20 20 20 second..
0094D0: 20 4A 52 20 5A 2C 4E 45 58 54 53 59 4E 20 20 20 JR Z,NEXTSYN
0094E0: 20 3B 74 65 73 74 20 65 6E 20 46 49 4E 44 47 41 ;test en FINDGA
0094F0: 50 32 0D 0A 20 20 20 20 20 20 20 20 20 43 50 20 P2.. CP
009500: 23 46 46 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 #FF.. JR
009510: 20 5A 2C 4E 45 58 54 53 59 4E 0D 0A 20 53 55 49 Z,NEXTSYN.. SUI
009520: 54 47 41 50 20 49 4E 43 20 48 4C 0D 0A 20 20 20 TGAP INC HL..
009530: 20 20 20 20 20 20 49 4E 43 20 43 0D 0A 20 20 20 INC C..
009540: 20 20 20 20 20 20 44 4A 4E 5A 20 42 43 4C 47 41 DJNZ BCLGA
009550: 50 53 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 PS.. ;..
009560: 20 4C 44 20 41 2C 43 20 20 20 20 20 20 20 20 20 LD A,C
009570: 20 3B 50 72 69 73 65 20 65 6E 20 63 6F 6D 70 74 ;Prise en compt
009580: 65 20 64 27 75 6E 20 47 41 50 20 64 65 20 32 35 e d'un GAP de 25
009590: 36 20 6F 63 74 65 74 73 0D 0A 20 20 20 20 20 20 6 octets..
0095A0: 20 20 20 4F 52 20 41 0D 0A 20 20 20 20 20 20 20 OR A..
0095B0: 20 20 4A 52 20 4E 5A 2C 46 49 4E 44 47 41 50 32 JR NZ,FINDGAP2
0095C0: 20 20 3B 32 20 7B 6D 65 20 65 73 73 61 69 20 73 ;2 {me essai s
0095D0: 69 20 7B 63 68 65 63 0D 0A 20 20 20 20 20 20 20 i {chec..
0095E0: 20 20 4A 52 20 53 45 54 47 41 50 4C 0D 0A 20 3B JR SETGAPL.. ;
0095F0: 0D 0A 20 4E 45 58 54 53 59 4E 20 50 55 53 48 20 .. NEXTSYN PUSH
009600: 48 4C 20 20 20 20 20 20 20 20 20 3B 54 65 73 74 HL ;Test
009610: 20 73 75 72 20 53 59 4E 43 0D 0A 20 20 20 20 20 sur SYNC..
009620: 20 20 20 20 49 4E 43 20 48 4C 0D 0A 20 20 20 20 INC HL..
009630: 20 20 20 20 20 49 4E 43 20 48 4C 0D 0A 20 20 20 INC HL..
009640: 20 20 20 20 20 20 49 4E 43 20 48 4C 0D 0A 20 20 INC HL..
009650: 20 20 20 20 20 20 20 43 50 20 28 48 4C 29 0D 0A CP (HL)..
009660: 20 20 20 20 20 20 20 20 20 50 4F 50 20 48 4C 0D POP HL.
009670: 0A 20 20 20 20 20 20 20 20 20 4A 52 20 4E 5A 2C . JR NZ,
009680: 53 55 49 54 47 41 50 0D 0A 20 3B 0D 0A 20 53 45 SUITGAP.. ;.. SE
009690: 54 47 41 50 4C 31 20 4C 44 20 41 2C 43 20 20 20 TGAPL1 LD A,C
0096A0: 20 20 20 20 20 20 3B 4C 6F 6E 67 75 65 75 72 20 ;Longueur
0096B0: 47 41 50 20 74 72 6F 75 76 65 65 0D 0A 20 53 45 GAP trouvee.. SE
0096C0: 54 47 41 50 4C 20 4C 44 20 28 47 41 50 46 4F 52 TGAPL LD (GAPFOR
0096D0: 4D 29 2C 41 0D 0A 20 20 20 20 20 20 20 20 20 53 M),A.. S
0096E0: 43 46 0D 0A 20 20 20 20 20 20 20 20 20 52 45 54 CF.. RET
0096F0: 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 .. ;..
009700: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
009710: 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------
009720: 2D 2D 2D 2D 2D 0D 0A 20 0D 0A 20 20 20 20 20 53 -----.. .. S
009730: 69 20 6C 65 20 73 65 63 74 65 75 72 20 74 65 73 i le secteur tes
009740: 74 65 20 70 61 72 20 6C 69 72 65 20 70 69 73 74 te par lire pist
009750: 65 20 40 20 20 7B 74 7B 20 7B 63 72 69 74 20 2C e @ {t{ {crit ,
009760: 20 6C 61 20 73 7B 72 69 65 20 64 27 6F 63 74 65 la s{rie d'octe
009770: 74 73 20 70 72 69 73 65 0D 0A 20 64 61 6E 73 20 ts prise.. dans
009780: 42 55 46 47 41 50 53 20 73 65 20 70 72 7B 73 65 BUFGAPS se pr{se
009790: 6E 74 65 20 20 64 69 66 66 7B 72 65 6E 6D 65 6E nte diff{renmen
0097A0: 74 20 20 2E 20 20 4C 65 20 20 74 65 73 74 20 20 t . Le test
0097B0: 6E 65 20 20 73 65 20 20 66 61 69 74 20 70 6C 75 ne se fait plu
0097C0: 73 20 73 75 72 20 6C 61 0D 0A 20 72 65 6E 63 6F s sur la.. renco
0097D0: 6E 74 72 65 20 61 76 65 63 20 6C 65 73 20 6F 63 ntre avec les oc
0097E0: 74 65 74 73 20 27 53 59 4E 43 48 52 4F 27 20 71 tets 'SYNCHRO' q
0097F0: 75 69 20 20 6E 65 20 20 73 6F 6E 74 20 20 70 6C ui ne sont pl
009800: 75 73 20 20 6C 75 73 20 70 61 72 20 6C 69 72 65 us lus par lire
009810: 20 70 69 73 74 65 20 2C 0D 0A 20 6D 61 69 73 20 piste ,.. mais
009820: 73 75 72 20 6C 65 20 6E 6F 6D 62 72 65 20 64 65 sur le nombre de
009830: 20 72 7B 70 7B 74 69 74 69 6F 6E 73 20 64 65 20 r{p{titions de
009840: 6C 27 6F 63 74 65 74 20 71 75 69 20 73 75 69 74 l'octet qui suit
009850: 20 6C 27 6F 63 74 65 74 20 64 65 20 47 41 50 20 l'octet de GAP
009860: 23 34 45 20 2E 0D 0A 20 0D 0A 20 20 20 20 20 20 #4E ... ..
009870: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
009880: 20 20 20 20 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D ------
009890: 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 3B 0D 0A 20 ---------.. ;..
0098A0: 46 49 4E 44 47 41 50 32 20 4C 44 20 48 4C 2C 42 FINDGAP2 LD HL,B
0098B0: 55 46 47 41 50 53 20 3B 32 65 6D 65 20 74 65 6E UFGAPS ;2eme ten
0098C0: 74 61 74 69 76 65 0D 0A 20 20 20 20 20 20 20 20 tative..
0098D0: 20 49 4E 43 20 48 4C 20 20 20 20 20 20 20 20 20 INC HL
0098E0: 3B 53 61 75 74 65 72 20 6C 27 6F 63 74 65 74 20 ;Sauter l'octet
0098F0: 40 20 23 34 45 0D 0A 20 20 20 20 20 20 20 20 20 @ #4E..
009900: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
009910: 08 00 01 00 02 09 4E E5 08 00 C1 02 00 00 00 02 ......N.........
009920: 08 00 C2 02 00 00 00 02 08 00 C3 02 00 00 00 02 ................
009930: 08 00 C4 02 00 00 00 02 08 00 C5 02 00 00 00 02 ................
009940: 08 00 C6 02 00 00 00 02 08 00 C7 02 00 00 00 02 ................
009950: 08 00 C8 02 00 00 00 02 08 00 C9 02 00 00 00 02 ................
009960: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009970: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009980: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009990: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0099A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0099B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0099C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0099D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0099E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0099F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009A00: 4C 44 20 41 2C 28 48 4C 29 0D 0A 20 20 20 20 20 LD A,(HL)..
009A10: 20 20 20 20 4C 44 20 43 2C 31 0D 0A 20 3B 0D 0A LD C,1.. ;..
009A20: 20 43 4E 54 47 41 50 20 20 43 50 20 28 48 4C 29 CNTGAP CP (HL)
009A30: 20 20 20 20 20 20 20 20 3B 49 6E 63 72 65 6D 65 ;Increme
009A40: 6E 74 65 72 20 43 20 74 61 6E 74 20 71 75 65 20 nter C tant que
009A50: 6C 27 6F 63 74 65 74 20 73 65 20 72 65 70 65 74 l'octet se repet
009A60: 65 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 20 4E e.. JR N
009A70: 5A 2C 53 45 54 47 41 50 4C 31 0D 0A 20 20 20 20 Z,SETGAPL1..
009A80: 20 20 20 20 20 49 4E 43 20 48 4C 0D 0A 20 20 20 INC HL..
009A90: 20 20 20 20 20 20 49 4E 43 20 43 0D 0A 20 20 20 INC C..
009AA0: 20 20 20 20 20 20 4A 52 20 4E 5A 2C 43 4E 54 47 JR NZ,CNTG
009AB0: 41 50 0D 0A 20 20 20 20 20 20 20 20 20 43 50 20 AP.. CP
009AC0: 28 48 4C 29 20 20 20 20 20 20 20 20 20 3B 54 65 (HL) ;Te
009AD0: 73 74 65 72 20 47 41 50 20 32 35 36 0D 0A 20 53 ster GAP 256.. S
009AE0: 41 55 54 42 41 44 20 4A 50 20 5A 2C 53 45 54 42 AUTBAD JP Z,SETB
009AF0: 41 44 4C 45 4E 0D 0A 20 20 20 20 20 20 20 20 20 ADLEN..
009B00: 4A 52 20 53 45 54 47 41 50 4C 31 0D 0A 20 3B 0D JR SETGAPL1.. ;.
009B10: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
009B20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2D -
009B30: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
009B40: 2D 0D 0A 20 0D 0A 20 20 20 20 20 54 72 6F 75 76 -.. .. Trouv
009B50: 65 72 20 6C 27 6F 63 74 65 74 20 64 65 20 66 6F er l'octet de fo
009B60: 72 6D 61 74 61 67 65 20 64 61 6E 73 20 75 6E 20 rmatage dans un
009B70: 20 43 52 2F 44 44 20 20 28 53 27 69 6C 20 20 79 CR/DD (S'il y
009B80: 2D 65 6E 20 20 61 20 75 6E 29 20 2E 20 52 69 65 -en a un) . Rie
009B90: 6E 20 64 65 0D 0A 20 70 6C 75 73 20 73 69 6D 70 n de.. plus simp
009BA0: 6C 65 20 3A 20 4F 6E 20 6C 6F 63 61 6C 69 73 65 le : On localise
009BB0: 20 73 61 20 70 6F 73 69 74 69 6F 6E 20 64 61 6E sa position dan
009BC0: 73 20 20 6C 61 20 73 7B 72 69 65 20 64 27 49 44 s la s{rie d'ID
009BD0: 53 20 65 74 20 6F 6E 20 6C 65 20 6C 69 74 20 63 S et on le lit c
009BE0: 6F 6D 6D 65 0D 0A 20 75 6E 20 73 65 63 74 65 75 omme.. un secteu
009BF0: 72 20 6E 6F 72 6D 61 6C 20 2E 20 4C 65 20 31 65 r normal . Le 1e
009C00: 72 20 6F 63 74 65 74 20 6C 75 20 65 73 74 20 6C r octet lu est l
009C10: 65 20 62 6F 6E 20 2E 0D 0A 20 0D 0A 20 20 20 20 e bon ... ..
009C20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
009C30: 20 20 20 20 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D ------
009C40: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 3B ------------.. ;
009C50: 0D 0A 20 46 49 4E 44 52 45 4D 50 20 4C 44 20 41 .. FINDREMP LD A
009C60: 2C 28 46 4C 41 47 43 52 44 44 29 20 3B 54 72 6F ,(FLAGCRDD) ;Tro
009C70: 75 76 65 72 20 6F 63 74 65 74 20 72 65 6D 70 6C uver octet rempl
009C80: 69 73 73 61 67 65 20 64 61 6E 73 20 65 76 65 6E issage dans even
009C90: 74 75 65 6C 20 43 52 2F 44 44 0D 0A 20 20 20 20 tuel CR/DD..
009CA0: 20 20 20 20 20 41 4E 44 20 25 31 30 30 30 30 30 AND %100000
009CB0: 30 30 0D 0A 20 20 20 20 20 20 20 20 20 52 45 54 00.. RET
009CC0: 20 5A 20 20 20 20 20 20 20 20 20 20 20 3B 50 41 Z ;PA
009CD0: 53 20 44 45 20 43 52 2F 44 44 20 2C 20 4C 61 69 S DE CR/DD , Lai
009CE0: 73 73 65 72 20 74 6F 6D 62 65 72 0D 0A 20 3B 0D sser tomber.. ;.
009CF0: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 48 4C 2C . LD HL,
009D00: 54 46 52 45 4D 50 0D 0A 20 20 20 20 20 20 20 20 TFREMP..
009D10: 20 43 41 4C 4C 20 50 52 54 0D 0A 20 3B 0D 0A 20 CALL PRT.. ;..
009D20: 20 20 20 20 20 20 20 20 4C 44 20 48 4C 2C 46 4C LD HL,FL
009D30: 41 47 46 4E 43 0D 0A 20 20 20 20 20 20 20 20 20 AGFNC..
009D40: 53 45 54 20 30 2C 28 48 4C 29 0D 0A 20 3B 0D 0A SET 0,(HL).. ;..
009D50: 20 20 20 20 20 20 20 20 20 4C 44 20 41 2C 28 4E LD A,(N
009D60: 42 53 45 43 29 20 3B 52 65 63 68 65 72 63 68 65 BSEC) ;Recherche
009D70: 72 20 6C 61 20 70 6F 73 69 74 69 6F 6E 20 65 74 r la position et
009D80: 20 6C 27 49 44 20 64 75 20 43 52 2F 44 44 0D 0A l'ID du CR/DD..
009D90: 20 20 20 20 20 20 20 20 20 4C 44 20 42 2C 41 0D LD B,A.
009DA0: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 49 59 2C . LD IY,
009DB0: 43 4F 55 4E 54 0D 0A 20 20 20 20 20 20 20 20 20 COUNT..
009DC0: 4C 44 20 28 49 59 2B 30 29 2C 30 0D 0A 20 3B 0D LD (IY+0),0.. ;.
009DD0: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 44 45 2C . LD DE,
009DE0: 4C 49 53 54 45 52 52 0D 0A 20 20 20 20 20 20 20 LISTERR..
009DF0: 20 20 4C 44 20 48 4C 2C 49 44 49 4E 44 52 41 2B LD HL,IDINDRA+
009E00: 00 46 44 43 20 20 20 20 20 42 41 53 00 00 00 00 .FDC BAS....
009E10: 00 00 00 00 00 70 01 00 E8 1B 00 00 00 00 00 00 .....p..........
009E20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009E30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009E40: E8 1B 00 BA 04 01 9F 20 1E 92 27 00 5F 00 2E 4F ....... ..'._..O
009E50: 0B 00 00 63 B0 EF 10 01 0B 00 00 63 B1 EF 0E 01 ...c.......c....
009E60: 0B 00 00 63 B2 EF 0F 01 0B 00 00 63 B3 EF 11 01 ...c.......c....
009E70: 0B 00 00 E3 EF 0B 00 00 63 B2 01 0B 00 00 77 B1 ........c.....w.
009E80: 07 00 0A 00 01 C0 00 25 00 14 00 01 C0 2A 2A 2A .......%.....***
009E90: 20 4D 45 4E 55 20 50 52 49 4E 43 49 50 41 4C 20 MENU PRINCIPAL
009EA0: 53 4F 53 20 4E 2E 34 20 2A 2A 2A 00 07 00 1E 00 SOS N.4 ***.....
009EB0: 01 C0 00 1E 00 28 00 AA 20 1C FF 3F 01 B7 22 78 .....(.. ..?.."x
009EC0: 22 01 AA 20 FF 42 F5 0F 01 89 01 8E 20 61 2D 7A ".. .B...... a-z
009ED0: 00 18 00 32 00 A8 22 72 73 78 70 72 74 2E 63 6F ...2.."rsxprt.co
009EE0: 64 22 01 83 20 1C 00 80 00 1B 00 3C 00 A8 22 6C d".. ......<.."l
009EF0: 65 63 74 65 75 72 35 2E 63 6F 64 22 2C 1F 00 00 ecteur5.cod",...
009F00: 40 1C 90 00 07 00 46 00 01 C0 00 22 00 50 00 01 @.....F....".P..
009F10: C0 2A 2A 2A 20 49 4E 49 54 49 41 4C 49 53 41 54 .*** INITIALISAT
009F20: 49 4F 4E 20 50 41 47 45 20 2A 2A 2A 00 07 00 5A ION PAGE ***...Z
009F30: 00 01 C0 00 27 00 64 00 AD 20 0F 01 82 20 19 0D ....'.d.. ... ..
009F40: 01 A2 20 0E 2C 19 0A 01 A2 20 0F 2C 0E 01 A2 20 .. .,.... .,...
009F50: 10 2C 11 01 A2 20 11 2C 19 0F 00 80 00 6E 00 0B .,... .,.....n..
009F60: 00 00 77 B1 EF 0F 01 0B 00 00 77 B2 EF 19 28 01 ..w.......w...(.
009F70: 0B 00 00 77 B3 EF 0F 01 0B 00 00 77 B4 EF 17 01 ...w.......w....
009F80: 0B 00 00 E1 EF 0F 01 9F 20 1E AC 4E 01 0B 00 00 ........ ..N....
009F90: 77 B1 EF 0F 01 0B 00 00 77 B2 EF 0F 01 0B 00 00 w.......w.......
009FA0: 77 B4 EF 19 19 01 9F 20 1E AC 4E 01 0B 00 00 77 w...... ..N....w
009FB0: B1 EF 19 28 01 0B 00 00 77 B2 EF 19 28 01 9F 20 ...(....w...(..
009FC0: 1E AC 4E 01 0B 00 00 77 B1 EF 0F 01 0B 00 00 77 ..N....w.......w
009FD0: B3 EF 19 19 01 9F 20 1E AC 4E 00 09 01 78 00 03 ...... ..N...x..
009FE0: 00 00 E1 EF FF 16 28 19 14 29 01 7C 00 50 52 54 ......(..).|.PRT
009FF0: D6 2C 0F 2C 11 2C 0E 2C 0F 2C 13 2C 40 03 00 00 .,.,.,.,.,.,@...
00A000: E1 01 7C 00 50 52 54 D6 2C 0F 2C 11 2C 0E 2C 19 ..|.PRT.,.,.,.,.
00A010: 28 2C 13 2C 40 03 00 00 E1 01 03 00 00 E1 EF 22 (,.,@.........."
00A020: 53 4F 53 20 50 52 4F 47 52 41 4D 4D 45 55 52 53 SOS PROGRAMMEURS
00A030: 20 4E 2E 34 22 01 7C 00 44 D4 01 7C 00 4D 49 44 N.4".|.D..|.MID
00A040: C3 2C 0F 2C 11 2C 0E 2C 11 2C 40 03 00 00 E1 01 .,.,.,.,.,@.....
00A050: 03 00 00 E1 EF 22 20 28 43 29 20 55 54 49 4C 2D ....." (C) UTIL-
00A060: 53 4F 46 54 20 31 39 38 39 20 22 01 7C 00 44 CC SOFT 1989 ".|.D.
00A070: 01 7C 00 4D 49 44 C3 2C 0F 2C 11 2C 0E 2C 13 2C .|.MID.,.,.,.,.,
00A080: 40 03 00 00 E1 01 7C 00 53 D4 01 03 00 00 E1 EF @.....|.S.......
00A090: 22 4D 2E 4D 41 49 47 52 4F 54 20 4C 61 20 47 64 "M.MAIGROT La Gd
00A0A0: 65 20 56 65 72 72 69 65 72 65 22 01 7C 00 4D 49 e Verriere".|.MI
00A0B0: 44 C3 2C 0F 2C 11 2C 0E 2C 14 2C 40 03 00 00 E1 D.,.,.,.,.,@....
00A0C0: 01 03 00 00 E1 EF 22 37 31 39 39 30 20 53 74 2E ......"71990 St.
00A0D0: 4C 45 47 45 52 20 73 6F 75 73 20 42 45 55 56 52 LEGER sous BEUVR
00A0E0: 41 59 22 00 19 00 82 00 7C 00 4D 49 44 C3 2C 0F AY".....|.MID.,.
00A0F0: 2C 11 2C 0E 2C 15 2C 40 03 00 00 E1 00 07 00 D0 ,.,.,.,@........
00A100: 07 01 C0 00 21 00 DA 07 01 C0 2A 2A 2A 20 46 44 ....!.....*** FD
00A110: 43 20 4D 45 4E 55 20 50 52 49 4E 43 49 50 41 4C C MENU PRINCIPAL
00A120: 20 2A 2A 2A 00 07 00 E4 07 01 C0 00 1B 00 EE 07 ***............
00A130: 03 00 00 E3 EF 22 20 46 44 43 20 37 36 35 20 22 ....." FDC 765 "
00A140: 01 9F 20 1E 24 4F 00 88 00 F8 07 03 00 00 C1 28 .. .$O.........(
00A150: 0E 29 EF 22 20 55 74 69 6C 69 73 61 74 69 6F 6E .)." Utilisation
00A160: 20 20 73 65 63 74 69 6F 6E 20 22 01 03 00 00 C1 section ".....
00A170: 28 0F 29 EF 22 20 53 65 63 74 69 6F 6E 20 74 68 (.)." Section th
00A180: 65 6F 72 69 65 20 20 46 44 43 20 22 01 03 00 00 eorie FDC "....
00A190: C1 28 10 29 EF 22 20 50 72 6F 67 72 61 6D 6D 65 .(.)." Programme
00A1A0: 73 20 63 6F 6D 6D 65 6E 74 65 73 20 22 01 03 00 s commentes "...
00A1B0: 00 C1 28 11 29 EF 22 20 51 75 69 74 74 65 72 20 ..(.)." Quitter
00A1C0: 6C 61 20 73 65 63 74 69 6F 6E 20 2A 20 22 00 07 la section * "..
00A1D0: 00 02 08 01 C0 00 1F 00 0C 08 03 00 00 E2 EF FF ................
00A1E0: 16 28 FF 0E 28 03 00 00 E1 28 0E 29 29 29 01 9F .(..(....(.)))..
00A1F0: 20 1E D8 13 00 1F 00 16 08 B2 20 0B 00 00 E9 F4 ......... .....
00A200: 0F 20 A0 20 1E 2A 08 2C 1E 52 08 2C 1E 70 08 2C . . .*.,.R.,.p.,
00A210: 1E 34 08 00 07 00 20 08 01 C0 00 23 00 2A 08 03 .4.... ....#.*..
00A220: 00 00 E1 EF 22 5E 66 64 63 34 6D 65 2E 61 73 63 ...."^fdc4me.asc
00A230: 22 01 9F 20 1E 3E 4E 01 A0 20 1E 3C 00 00 1A 00 ".. .>N.. .<....
00A240: 34 08 9F 20 1E BA 27 01 85 22 73 6F 73 34 2E 62 4.. ..'.."sos4.b
00A250: 61 73 22 2C 1A 06 04 00 07 00 3E 08 01 C0 00 07 as",......>.....
00A260: 00 48 08 01 C0 00 24 00 52 08 03 00 00 E1 EF 22 .H....$.R......"
00A270: 5E 66 64 63 74 68 65 6F 2E 61 73 63 22 01 9F 20 ^fdctheo.asc"..
00A280: 1E 3E 4E 01 A0 20 1E 3C 00 00 5A 00 53 08 01 C0 .>N.. .<..Z.S...
00A290: 61 24 28 30 29 3D 22 20 20 54 68 65 6F 72 69 65 a$(0)=" Theorie
00A2A0: 20 70 61 72 74 69 65 20 31 20 22 3A 61 24 28 31 partie 1 ":a$(1
00A2B0: 29 3D 22 20 20 54 68 65 6F 72 69 65 31 20 28 73 )=" Theorie1 (s
00A2C0: 75 69 74 65 29 20 22 3A 61 24 28 32 29 3D 22 20 uite) ":a$(2)="
00A2D0: 20 54 68 65 6F 72 69 65 20 70 61 72 74 69 65 20 Theorie partie
00A2E0: 32 20 22 00 6D 00 5C 08 0D 00 00 6D 61 78 E9 EF 2 ".m.\....max..
00A2F0: 10 01 0D 00 00 E4 EF 10 01 0D 00 00 E5 EF 19 13 ................
00A300: 01 0D 00 00 77 B1 EF 19 0B 01 0D 00 00 77 B2 EF ....w........w..
00A310: 19 1E 01 0D 00 00 77 B3 EF 19 0A 01 0D 00 00 77 ......w........w
00A320: B4 EF 19 15 01 0D 00 00 E1 EF 0E 01 0D 00 00 64 ...............d
00A330: E8 EF 19 0E 01 0D 00 00 64 EC EF 19 0E 01 9F 20 ........d......
00A340: 1E 98 4E 01 0D 00 00 79 B1 EF 0D 00 00 F9 F4 11 ..N....y........
00A350: 00 23 00 5D 08 9F 20 1E A6 13 01 A1 20 0B 00 00 .#.].. ..... ...
00A360: E1 F2 F5 19 10 20 EB 20 9F 20 1E FC 4E 01 A0 20 ..... . . ..N..
00A370: 1E F8 07 00 2E 00 5E 08 A1 20 FF 75 28 03 00 00 ......^.. .u(...
00A380: E1 28 0B 00 00 E9 29 2C 0F 29 EF 22 7E 22 EB 20 .(....),.)."~".
00A390: 9F 20 1E CE 27 01 9F 20 1E B0 13 01 A0 20 1E 8E . ..'.. ..... ..
00A3A0: 08 00 21 00 5F 08 9F 20 1E D4 4E 01 B2 20 0D 00 ..!._.. ..N.. ..
00A3B0: 00 E9 F4 0F 20 A0 20 1E 60 08 2C 1E 61 08 2C 1E .... . .`.,.a.,.
00A3C0: 62 08 00 1F 00 60 08 03 00 00 E1 EF 22 66 64 63 b....`......"fdc
00A3D0: 2E 61 73 63 22 01 9F 20 1E 3E 4E 01 A0 20 1E 3C .asc".. .>N.. .<
00A3E0: 00 00 20 00 61 08 03 00 00 E1 EF 22 66 64 63 31 .. .a......"fdc1
00A3F0: 2E 61 73 63 22 01 9F 20 1E 3E 4E 01 A0 20 1E 3C .asc".. .>N.. .<
00A400: 00 00 20 00 62 08 03 00 00 E1 EF 22 66 64 63 32 .. .b......"fdc2
00A410: 2E 61 73 63 22 01 9F 20 1E 3E 4E 01 A0 20 1E 3C .asc".. .>N.. .<
00A420: 00 00 07 00 66 08 01 C0 00 F5 00 70 08 03 00 00 ....f......p....
00A430: E1 28 0E 29 EF 22 20 20 43 6F 70 69 65 75 72 20 .(.)." Copieur
00A440: 70 68 79 73 69 71 75 65 20 22 01 03 00 00 E1 28 physique ".....(
00A450: 0F 29 EF 22 20 20 41 6E 61 6C 79 73 65 20 64 65 .)." Analyse de
00A460: 20 70 69 73 74 65 20 22 01 03 00 00 E1 28 10 29 piste ".....(.)
00A470: EF 22 20 20 52 65 63 68 65 72 63 68 65 20 67 61 ." Recherche ga
00A480: 70 73 20 31 20 22 01 03 00 00 E1 28 11 29 EF 22 ps 1 ".....(.)."
00A490: 20 20 52 65 63 68 65 72 63 68 65 20 67 61 70 73 Recherche gaps
00A4A0: 20 32 20 22 01 03 00 00 E1 28 12 29 EF 22 20 20 2 ".....(.)."
00A4B0: 45 63 72 61 73 65 72 20 73 65 63 74 65 75 72 73 Ecraser secteurs
00A4C0: 20 22 01 03 00 00 E1 28 13 29 EF 22 20 20 53 74 ".....(.)." St
00A4D0: 6F 63 6B 65 72 20 6C 61 20 70 69 73 74 65 20 22 ocker la piste "
00A4E0: 01 03 00 00 E1 28 14 29 EF 22 20 20 52 65 70 72 .....(.)." Repr
00A4F0: 6F 64 75 69 72 65 20 70 69 73 74 65 20 22 01 03 oduire piste "..
00A500: 00 00 E1 28 15 29 EF 22 20 20 53 75 62 20 72 6F ...(.)." Sub ro
00A510: 75 74 69 6E 65 73 20 46 44 43 20 22 20 00 22 00 utines FDC " .".
00A520: 71 08 01 C0 61 24 28 38 29 3D 22 20 20 41 63 63 q...a$(8)=" Acc
00A530: 65 73 20 20 70 72 6F 67 72 61 6D 6D 65 20 22 00 es programme ".
00A540: 1D 00 75 08 0B 00 00 6D 61 78 E9 EF 15 01 0B 00 ..u....max......
00A550: 00 E4 EF 10 01 0B 00 00 E5 EF 19 13 00 54 00 7A .............T.z
00A560: 08 0B 00 00 77 B1 EF 19 0B 01 0B 00 00 77 B2 EF ....w........w..
00A570: 19 1E 01 0B 00 00 77 B3 EF 19 0A 01 0B 00 00 77 ......w........w
00A580: B4 EF 19 15 01 0B 00 00 E1 EF 0E 01 0B 00 00 64 ...............d
00A590: E8 EF 19 0E 01 0B 00 00 64 EC EF 19 0E 01 9F 20 ........d......
00A5A0: 1E 98 4E 01 0B 00 00 79 B1 EF 0B 00 00 F9 F4 0F ..N....y........
00A5B0: 00 23 00 84 08 9F 20 1E A6 13 01 A1 20 0B 00 00 .#.... ..... ...
00A5C0: E1 F2 F5 19 10 20 EB 20 9F 20 1E FC 4E 01 A0 20 ..... . . ..N..
00A5D0: 1E F8 07 00 2E 00 8E 08 A1 20 FF 75 28 03 00 00 ......... .u(...
00A5E0: E1 28 0B 00 00 E9 29 2C 0F 29 EF 22 7E 22 EB 20 .(....),.)."~".
00A5F0: 9F 20 1E CE 27 01 9F 20 1E B0 13 01 A0 20 1E 8E . ..'.. ..... ..
00A600: 08 00 35 00 98 08 9F 20 1E D4 4E 01 B2 20 0B 00 ..5.... ..N.. ..
00A610: 00 E9 F4 0F 20 A0 20 1E C0 08 2C 1E E8 08 2C 1E .... . ...,...,.
00A620: 10 09 2C 1E 38 09 2C 1E 60 09 2C 1E 7E 09 2C 1E ..,.8.,.`.,.~.,.
00A630: 88 09 2C 1E B0 09 00 07 00 A2 08 01 C0 00 24 00 ..,...........$.
00A640: C0 08 03 00 00 E1 EF 22 5E 63 6F 70 69 6E 69 74 ......."^copinit
00A650: 2E 61 73 63 22 01 9F 20 1E 3E 4E 01 A0 20 1E 3C .asc".. .>N.. .<
00A660: 00 00 25 00 E8 08 03 00 00 E1 EF 22 5E 63 6F 70 ..%........"^cop
00A670: 61 6E 61 6C 2E 61 73 63 22 01 9F 20 1E 3E 4E 01 anal.asc".. .>N.
00A680: A0 20 1E 3C 00 20 00 24 00 10 09 03 00 00 E1 EF . .<. .$........
00A690: 22 5E 63 6F 70 67 61 70 31 2E 61 73 63 22 01 9F "^copgap1.asc"..
00A6A0: 20 1E 3E 4E 01 A0 20 1E 3C 00 00 24 00 38 09 03 .>N.. .<..$.8..
00A6B0: 00 00 E1 EF 22 5E 63 6F 70 67 61 70 32 2E 61 73 ...."^copgap2.as
00A6C0: 63 22 01 9F 20 1E 3E 4E 01 A0 20 1E 3C 00 00 24 c".. .>N.. .<..$
00A6D0: 00 60 09 03 00 00 E1 EF 22 5E 63 6F 70 65 63 72 .`......"^copecr
00A6E0: 61 2E 61 73 63 22 01 9F 20 1E 3E 4E 01 A0 20 1E a.asc".. .>N.. .
00A6F0: 3C 00 00 24 00 7E 09 03 00 00 E1 EF 22 5E 63 6F <..$.~......"^co
00A700: 70 73 74 6F 6B 2E 61 73 63 22 01 9F 20 1E 3E 4E pstok.asc".. .>N
00A710: 01 A0 20 1E 3C 00 00 24 00 88 09 03 00 00 E1 EF .. .<..$........
00A720: 22 5E 63 6F 70 65 63 72 69 2E 61 73 63 22 01 9F "^copecri.asc"..
00A730: 20 1E 3E 4E 01 A0 20 1E 3C 00 00 24 00 B0 09 03 .>N.. .<..$....
00A740: 00 00 E1 EF 22 5E 63 6F 70 72 6F 75 74 2E 61 73 ...."^coprout.as
00A750: 63 22 01 9F 20 1E 3E 4E 01 A0 20 1E 3C 00 00 16 c".. .>N.. .<...
00A760: 00 C4 09 01 C0 52 55 4E 22 74 73 74 69 6E 74 2E .....RUN"tstint.
00A770: 62 61 73 22 00 07 00 CE 09 01 C0 00 10 00 D8 09 bas"............
00A780: 9F 20 1E CE 27 01 A0 20 1E 84 08 00 1E 00 E2 09 . ..'.. ........
00A790: A8 22 2D 46 44 43 56 34 2E 42 49 4E 22 01 83 20 ."-FDCV4.BIN"..
00A7A0: 1A 30 75 01 A0 20 1E 32 00 00 07 00 EC 09 01 C0 .0u.. .2........
00A7B0: 00 0F 00 F6 09 01 C0 64 69 76 65 72 73 20 22 00 .......divers ".
00A7C0: 07 00 00 0A 01 C0 00 12 00 0A 0A 9F 20 1E CE 27 ............ ..'
00A7D0: 01 A0 20 1E 84 08 20 20 00 07 00 14 0A 01 C0 00 .. ... ........
00A7E0: 17 00 1E 0A 01 C0 2A 2A 2A 20 58 58 58 58 58 58 ......*** XXXXXX
00A7F0: 58 58 20 2A 2A 2A 00 07 00 28 0A 01 C0 00 10 00 XX ***...(......
00A800: 32 0A 9F 20 1E CE 27 01 A0 20 1E 84 08 00 07 00 2.. ..'.. ......
00A810: 3C 0A 01 C0 00 07 00 46 0A 01 C0 00 07 00 50 0A <......F......P.
00A820: 01 C0 00 17 00 5A 0A 01 C0 2A 2A 2A 20 41 20 53 .....Z...*** A S
00A830: 55 49 56 52 45 20 2A 2A 2A 00 07 00 64 0A 01 C0 UIVRE ***...d...
00A840: 00 1E 00 6E 0A A1 20 0D 00 00 E1 F2 F5 19 10 20 ...n.. ........
00A850: EB 20 1E 70 08 20 01 97 20 9F 20 1E C4 27 00 49 . .p. .. . ..'.I
00A860: 00 78 0A 03 00 00 C1 EF AC 28 03 00 00 C1 28 0B .x.......(....(.
00A870: 00 00 C9 29 2C 19 13 2C 16 29 01 A1 20 03 00 00 ...),..,.).. ...
00A880: F2 EF 22 44 22 EB 20 CA 20 03 00 00 C1 20 01 97 .."D". . .... ..
00A890: 20 03 00 00 E1 EF 03 00 00 E1 F4 22 2E 41 53 43 ..........".ASC
00A8A0: 22 01 A0 20 1E 3E 4E 00 1C 00 82 0A 03 00 00 E3 ".. .>N.........
00A8B0: EF 22 20 41 20 53 55 49 56 52 45 22 01 9F 20 1E ." A SUIVRE".. .
00A8C0: 24 4F 20 00 07 00 83 0A 01 C0 00 3E 00 8C 0A 9F $O ........>....
00A8D0: 20 1E 48 4E 01 A9 20 0F 2C 19 0C 01 BF 22 18 20 .HN.. .,....".
00A8E0: 52 45 50 4C 41 43 45 52 20 46 41 43 45 31 20 53 REPLACER FACE1 S
00A8F0: 56 50 20 18 07 22 01 83 20 1C 06 BB 01 85 20 22 VP ..".. ..... "
00A900: 53 4F 53 34 22 2C 19 3C 00 25 00 96 0A 9F 20 1E SOS4",.<.%.... .
00A910: D8 13 01 B2 20 0B 00 00 E9 F4 0F 20 A0 20 1E B4 .... ...... . ..
00A920: 0A 2C 1E BE 0A 2C 1E C8 0A 2C 1E 34 08 00 1F 00 .,...,...,.4....
00A930: A0 0A 03 00 00 E2 EF FF 16 28 FF 0E 28 03 00 00 .........(..(...
00A940: E1 28 0E 29 29 29 01 9F 20 1E D8 13 00 1F 00 AA .(.))).. .......
00A950: 0A B2 20 0D 00 00 E9 F4 0F 20 A0 20 1E B4 0A 2C .. ...... . ...,
00A960: 1E BE 0A 2C 1E C8 0A 2C 1E 34 08 00 0E 00 B4 0A ...,...,.4......
00A970: BF 20 22 6F 70 31 22 01 CE 00 1F 00 BE 0A 9F 20 . "op1"........
00A980: 1E BA 27 01 03 00 00 E1 EF 22 46 44 43 2E 42 41 ..'......"FDC.BA
00A990: 53 22 01 A0 20 1E D2 0A 00 20 00 C8 0A 9F 20 1E S".. .... .... .
00A9A0: BA 27 01 03 00 00 E1 EF 22 49 4E 46 4F 2E 42 41 .'......"INFO.BA
00A9B0: 53 22 01 A0 20 1E D2 0A 00 0E 00 D2 0A 85 20 03 S".. ......... .
00A9C0: 00 00 E1 2C 19 3C 00 07 00 88 13 01 C0 00 3C 00 ...,.<........<.
00A9D0: 92 13 01 C0 2A 2A 2A 20 4D 65 6E 75 20 63 65 6E ....*** Menu cen
00A9E0: 74 72 65 20 6D 69 64 24 28 61 24 2C 28 69 29 2C tre mid$(a$,(i),
00A9F0: 65 2C 64 29 20 73 61 6E 73 20 69 6E 74 65 72 6C e,d) sans interl
00AA00: 69 67 6E 65 73 20 2A 2A 2A 00 07 00 9C 13 01 C0 ignes ***.......
00AA10: 00 7A 00 A6 13 0B 00 00 6D 65 EE EF 0F 01 0B 00 .z......me......
00AA20: 00 64 F9 EF 0F 01 9E 20 0B 00 00 E9 EF 0E 20 EC .d..... ...... .
00AA30: 20 0B 00 00 6D 61 78 E9 01 03 00 00 E1 EF AC 28 ...max........(
00AA40: 03 00 00 E1 28 0B 00 00 E9 29 2C 0B 00 00 E4 2C ....(....),....,
00AA50: 0B 00 00 E5 29 01 7C 00 4D 49 44 C3 2C 0B 00 00 ....).|.MID.,...
00AA60: 63 B1 2C 0B 00 00 63 B2 2C 0E 2C 0B 00 00 79 B1 c.,...c.,.,...y.
00AA70: F4 0B 00 00 64 F9 F6 0B 00 00 E9 2C 40 03 00 00 ....d......,@...
00AA80: E1 01 B0 01 0B 00 00 E9 EF 0E 00 0A 00 B0 13 A0 ................
00AA90: 20 1E 1E 14 00 07 00 BA 13 01 C0 00 2C 00 C4 13 ...........,...
00AAA0: 01 C0 2A 2A 2A 20 4D 65 6E 75 20 63 65 6E 74 72 ..*** Menu centr
00AAB0: 65 20 34 20 6C 69 67 6E 65 73 20 65 73 70 61 63 e 4 lignes espac
00AAC0: 65 65 73 20 2A 2A 2A 00 07 00 CE 13 01 C0 00 23 ees ***........#
00AAD0: 00 D8 13 0B 00 00 79 B1 EF 0B 00 00 F9 F4 0F 01 ......y.........
00AAE0: 0B 00 00 64 F9 EF 10 01 0B 00 00 6D 61 78 E9 EF ...d.......max..
00AAF0: 11 00 82 00 E2 13 0B 00 00 6D 65 EE EF 10 01 9E .........me.....
00AB00: 20 0B 00 00 E9 EF 0E 20 EC 20 0B 00 00 6D 61 78 ...... . ...max
00AB10: E9 01 7C 00 4D 49 44 C3 2C 0B 00 00 63 B1 2C 0B ..|.MID.,...c.,.
00AB20: 00 00 63 B2 2C 0E 2C 0B 00 00 79 B1 F4 0B 00 00 ..c.,.,...y.....
00AB30: 64 F9 F6 0B 00 00 E9 2C 40 03 00 00 E1 28 0B 00 d......,@....(..
00AB40: 00 E9 29 01 7C 00 4D 49 44 C3 2C 0B 00 00 63 B3 ..).|.MID.,...c.
00AB50: 2C 0B 00 00 63 B2 2C 0E 2C 0B 00 00 79 B1 F4 0B ,...c.,.,...y...
00AB60: 00 00 64 F9 F6 0B 00 00 E9 F5 0F 2C 40 03 00 00 ..d........,@...
00AB70: E2 01 B0 00 3D 00 EC 13 7C 00 4D 49 44 C3 2C 0B ....=...|.MID.,.
00AB80: 00 00 63 B3 2C 0B 00 00 63 B2 2C 0E 2C 0B 00 00 ..c.,...c.,.,...
00AB90: 79 B1 F4 0B 00 00 64 F9 F6 28 0B 00 00 E9 F5 0F y.....d..(......
00ABA0: 29 F4 0F 2C 40 03 00 00 E2 01 0B 00 00 E9 EF 0E )..,@...........
00ABB0: 00 20 00 F6 13 9F 20 1E 1E 14 01 A1 20 0B 00 00 . .... ..... ...
00ABC0: E1 EF F5 19 10 20 EB 20 C9 20 01 97 20 1E F6 13 ..... . . .. ...
00ABD0: 00 07 00 00 14 01 C0 00 23 00 0A 14 01 C0 2A 2A ........#.....**
00ABE0: 2A 20 53 6F 75 73 20 70 72 6F 67 72 61 6D 6D 65 * Sous programme
00ABF0: 20 6D 65 6E 75 73 20 2A 2A 2A 00 07 00 14 14 01 menus ***......
00AC00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
00AC10: 09 00 01 00 02 09 4E E5 09 00 C1 02 00 00 00 02 ......N.........
00AC20: 09 00 C2 02 00 00 00 02 09 00 C3 02 00 00 00 02 ................
00AC30: 09 00 C4 02 00 00 00 02 09 00 C5 02 00 00 00 02 ................
00AC40: 09 00 C6 02 00 00 00 02 09 00 C7 02 00 00 00 02 ................
00AC50: 09 00 C8 02 00 00 00 02 09 00 C9 02 00 00 00 02 ................
00AC60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00AC70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00AC80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00AC90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ACA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ACB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ACC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ACD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ACE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ACF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00AD00: C0 00 43 00 1E 14 A1 20 0B 00 00 6D 65 EE EF 10 ..C.... ...me...
00AD10: 20 EB 20 7C 00 4D 49 44 C3 2C 0B 00 00 63 B3 2C . |.MID.,...c.,
00AD20: 0B 00 00 63 B2 2C 0E 2C 0B 00 00 79 B1 F4 0B 00 ...c.,.,...y....
00AD30: 00 E9 F6 0B 00 00 64 F9 2C 40 03 00 00 E1 28 0B ......d.,@....(.
00AD40: 00 00 E9 29 00 A1 00 28 14 A1 20 0B 00 00 6D 65 ...)...(.. ...me
00AD50: EE EF 0F 20 EB 20 03 00 00 E1 EF AC 28 03 00 00 ... . ......(...
00AD60: E1 28 0B 00 00 E9 29 2C 0B 00 00 E4 2C 0B 00 00 .(....),....,...
00AD70: E5 29 01 A1 20 FF 75 28 03 00 00 E1 28 0B 00 00 .).. .u(....(...
00AD80: E9 29 2C 0F 29 F2 22 7E 22 EB 20 7C 00 4D 49 44 .),.)."~". |.MID
00AD90: C3 2C 0B 00 00 63 B3 2C 0B 00 00 63 B2 2C 0E 2C .,...c.,...c.,.,
00ADA0: 0B 00 00 79 B1 F4 0B 00 00 E9 F6 0B 00 00 64 F9 ...y..........d.
00ADB0: 2C 40 03 00 00 E1 20 01 97 20 7C 00 4D 49 44 C3 ,@.... .. |.MID.
00ADC0: 2C 0B 00 00 63 B1 2C 0B 00 00 63 B0 2C 0E 2C 0B ,...c.,...c.,.,.
00ADD0: 00 00 79 B1 F4 0B 00 00 E9 F6 0B 00 00 64 F9 2C ..y..........d.,
00ADE0: 40 03 00 00 E1 00 33 00 32 14 03 00 00 D2 EF 22 @.....3.2......"
00ADF0: DC 22 01 7C 00 57 4B 45 D9 2C 40 03 00 00 D2 01 .".|.WKE.,@.....
00AE00: 0B 00 00 E1 EF FF 01 28 03 00 00 F2 29 F5 19 D0 .......(....)...
00AE10: 01 0B 00 00 E6 EF 19 7D 00 1E 00 3C 14 A1 20 0B .......}...<.. .
00AE20: 00 00 E1 EF F5 19 10 20 FC 20 0B 00 00 E1 EF F5 ....... . ......
00AE30: 19 72 20 EB 20 C9 00 50 00 46 14 A1 20 0B 00 00 .r . ..P.F.. ...
00AE40: E1 F1 0E 20 FC 20 0B 00 00 E1 EE 0B 00 00 6D 65 ... . ........me
00AE50: EE 20 EB 20 A1 20 0B 00 00 6D 65 EE F1 11 20 EB . . . ...me... .
00AE60: 20 0B 00 00 E3 EF 0B 00 00 63 B2 01 0B 00 00 E6 ........c......
00AE70: EF 19 FA 01 9F 20 1E 42 27 01 A0 20 1E 32 14 20 ..... .B'.. .2.
00AE80: 01 97 20 1E 32 14 00 43 00 50 14 A1 20 0B 00 00 .. .2..C.P.. ...
00AE90: 6D 65 EE EF 10 20 EB 20 7C 00 4D 49 44 C3 2C 0B me... . |.MID.,.
00AEA0: 00 00 63 B1 2C 0B 00 00 63 B2 2C 0E 2C 0B 00 00 ..c.,...c.,.,...
00AEB0: 79 B1 F4 0B 00 00 E9 F6 0B 00 00 64 F9 2C 40 03 y..........d.,@.
00AEC0: 00 00 E1 28 0B 00 00 E9 29 00 3D 00 5A 14 A1 20 ...(....).=.Z..
00AED0: 0B 00 00 6D 65 EE EF 0F 20 EB 20 7C 00 4D 49 44 ...me... . |.MID
00AEE0: C3 2C 0B 00 00 63 B1 2C 0B 00 00 63 B2 2C 0E 2C .,...c.,...c.,.,
00AEF0: 0B 00 00 79 B1 F4 0B 00 00 E9 F6 0B 00 00 64 F9 ...y..........d.
00AF00: 2C 40 03 00 00 E1 00 1F 00 64 14 B2 20 0B 00 00 ,@.......d.. ...
00AF10: E1 F4 0F 20 A0 20 1E 6E 14 2C 1E 78 14 2C 1E 8C ... . .n.,.x.,..
00AF20: 14 2C 1E 96 14 00 37 00 6E 14 A1 20 0B 00 00 E9 .,....7.n.. ....
00AF30: EE 0E 20 EB 20 0B 00 00 E9 EF 0B 00 00 E9 F5 0F .. . ...........
00AF40: 01 A0 20 1E A0 14 20 01 97 20 0B 00 00 E9 EF 0B .. ... .. ......
00AF50: 00 00 6D 61 78 E9 01 A0 20 1E A0 14 00 37 00 78 ..max... ....7.x
00AF60: 14 A1 20 0B 00 00 E9 F1 0B 00 00 6D 61 78 E9 20 .. ........max.
00AF70: EB 20 0B 00 00 E9 EF 0B 00 00 E9 F4 0F 01 A0 20 . .............
00AF80: 1E A0 14 20 01 97 20 0B 00 00 E9 EF 0E 01 A0 20 ... .. ........
00AF90: 1E A0 14 00 06 00 82 14 CE 00 71 00 8C 14 A1 20 ..........q....
00AFA0: 0D 00 00 78 B2 EE 0D 00 00 78 B1 20 EB 20 0D 00 ...x.....x. . ..
00AFB0: 00 E9 EF 0D 00 00 E9 F5 0D 00 00 6D 61 78 E9 F7 ...........max..
00AFC0: 10 01 0D 00 00 78 B2 EF 0D 00 00 78 B2 F5 0D 00 .....x.....x....
00AFD0: 00 64 F8 01 A0 20 1E A0 14 20 01 97 20 0D 00 00 .d... ... .. ...
00AFE0: 78 B2 EF 0D 00 00 78 B2 F4 0D 00 00 64 F8 01 0D x.....x.....d...
00AFF0: 00 00 E9 EF 0D 00 00 E9 F4 0D 00 00 6D 61 78 E9 ............max.
00B000: F6 11 01 CE 01 A0 20 1E A0 14 00 65 00 96 14 A1 ...... ....e....
00B010: 20 0D 00 00 78 B2 F1 0D 00 00 78 B1 20 EB 20 0D ...x.....x. . .
00B020: 00 00 78 B2 EF 0D 00 00 78 B2 F4 0D 00 00 64 F8 ..x.....x.....d.
00B030: 01 0D 00 00 E9 EF 0D 00 00 E9 F4 0D 00 00 6D 61 ..............ma
00B040: 78 E9 F6 11 20 01 97 20 0D 00 00 E9 EF 0D 00 00 x... .. ........
00B050: E9 F5 0D 00 00 6D 61 78 E9 F7 10 01 0D 00 00 78 .....max.......x
00B060: B2 EF 0D 00 00 78 B2 F5 0D 00 00 64 F8 01 CE 00 .....x.....d....
00B070: 29 00 A0 14 A1 20 0B 00 00 6D 65 EE F1 11 20 EB ).... ...me... .
00B080: 20 0B 00 00 E3 EF 0B 00 00 63 B3 01 9F 20 1E 42 ........c... .B
00B090: 27 20 01 97 20 1E 1E 14 00 0A 00 AA 14 A0 20 1E ' .. ......... .
00B0A0: 1E 14 00 20 00 B4 14 01 C0 2A 2A 2A 20 46 4C 41 ... .....*** FLA
00B0B0: 53 48 49 4E 47 20 64 75 20 63 61 64 72 65 20 2A SHING du cadre *
00B0C0: 2A 2A 00 07 00 10 27 01 C0 00 25 00 1A 27 01 C0 **....'...%..'..
00B0D0: 2A 2A 2A 20 53 4F 55 53 20 50 52 4F 47 52 41 4D *** SOUS PROGRAM
00B0E0: 4D 45 53 20 44 49 56 45 52 53 20 2A 2A 2A 00 07 MES DIVERS ***..
00B0F0: 00 24 27 01 C0 00 20 00 2E 27 01 C0 2A 2A 2A 20 .$'... ..'..***
00B100: 46 4C 41 53 48 49 4E 47 20 73 75 20 63 61 64 72 FLASHING su cadr
00B110: 65 20 2A 2A 2A 00 07 00 38 27 01 C0 00 65 00 42 e ***...8'...e.B
00B120: 27 CC 20 0F 2C 0B 00 00 E6 2C 19 14 2C 19 0F 01 '. .,....,..,...
00B130: 0B 00 00 F4 EF 16 01 0B 00 00 64 EC EF 11 01 0B ..........d.....
00B140: 00 00 64 E8 EF 11 01 9F 20 1E 6A 27 01 0B 00 00 ..d..... .j'....
00B150: E3 EF 0B 00 00 63 B1 01 9F 20 1E 6A 27 01 0B 00 .....c... .j'...
00B160: 00 E3 EF 0B 00 00 63 B2 01 0B 00 00 F4 EF 12 01 ......c.........
00B170: 0B 00 00 64 EC EF 19 10 01 0B 00 00 64 E8 EF 19 ...d........d...
00B180: 10 00 07 00 4C 27 01 C0 00 3C 00 56 27 01 C0 2A ....L'...<.V'..*
00B190: 2A 2A 20 54 72 61 63 65 20 75 6E 20 63 61 64 72 ** Trace un cadr
00B1A0: 65 20 49 4E 54 45 52 4E 45 20 61 20 6C 61 20 73 e INTERNE a la s
00B1B0: 75 72 66 61 63 65 20 64 75 20 74 65 78 74 65 20 urface du texte
00B1C0: 2A 2A 2A 20 00 07 00 60 27 01 C0 00 7D 00 6A 27 *** ...`'...}.j'
00B1D0: 7C 00 43 41 C4 2C 28 0B 00 00 F8 F5 0F 29 F6 19 |.CA.,(......)..
00B1E0: 10 F5 10 2C 28 28 19 1A F5 0B 00 00 F9 29 F6 19 ...,((.......)..
00B1F0: 10 29 F4 28 19 10 F5 0B 00 00 64 E8 29 F4 0B 00 .).(......d.)...
00B200: 00 64 E8 2C 28 28 0B 00 00 EC F4 0F 29 F6 19 10 .d.,((......)...
00B210: 29 F4 10 2C 0B 00 00 64 E8 F4 28 0B 00 00 E8 F6 )..,...d..(.....
00B220: 19 10 29 F4 28 19 10 F5 0B 00 00 64 E8 29 F4 10 ..).(......d.)..
00B230: 2C 0B 00 00 E3 2C 0B 00 00 F4 2C 0B 00 00 64 EC ,....,....,...d.
00B240: 2C 0B 00 00 64 E8 01 C9 00 07 00 74 27 01 C0 00 ,...d......t'...
00B250: 3D 00 7E 27 01 C0 2A 2A 2A 20 54 72 61 63 65 20 =.~'..*** Trace
00B260: 75 6E 20 63 61 64 72 65 20 45 58 54 45 52 49 45 un cadre EXTERIE
00B270: 55 52 20 61 20 6C 61 20 73 75 72 66 61 63 65 20 UR a la surface
00B280: 64 75 20 74 65 78 74 65 20 2A 2A 2A 00 07 00 88 du texte ***....
00B290: 27 01 C0 00 9C 00 92 27 7C 00 43 41 C4 2C 28 0B '......'|.CA.,(.
00B2A0: 00 00 F8 F5 0F 29 F6 19 10 F5 28 28 0B 00 00 F4 .....)....((....
00B2B0: F5 11 29 F6 0B 00 00 64 EC 29 F5 10 2C 28 19 1A ..)....d.)..,(..
00B2C0: F5 0B 00 00 F9 29 F6 19 10 F4 28 28 0B 00 00 F4 .....)....((....
00B2D0: F5 11 29 F6 0B 00 00 64 E8 29 2C 0B 00 00 EC F6 ..)....d.),.....
00B2E0: 19 10 F4 10 F6 28 28 0B 00 00 F4 F5 11 29 F6 0B .....((......)..
00B2F0: 00 00 64 EC 29 F4 10 2C 28 0B 00 00 F4 F5 11 29 ..d.)..,(......)
00B300: F6 28 0B 00 00 64 E8 F6 10 29 F4 0B 00 00 E8 F6 .(...d...)......
00B310: 19 10 F4 10 2C 0B 00 00 E3 2C 0B 00 00 F4 2C 0B ....,....,....,.
00B320: 00 00 64 EC 2C 0B 00 00 64 E8 01 C9 20 20 20 00 ..d.,...d... .
00B330: 07 00 9C 27 01 C0 00 40 00 A6 27 01 C0 2A 2A 2A ...'...@..'..***
00B340: 20 41 66 66 69 63 68 65 20 6D 65 73 73 61 67 65 Affiche message
00B350: 20 43 4F 50 59 20 6F 75 20 49 4E 41 43 54 49 46 COPY ou INACTIF
00B360: 20 6F 75 20 52 45 54 4F 55 52 4E 45 52 20 44 49 ou RETOURNER DI
00B370: 53 43 20 2A 2A 2A 00 07 00 B0 27 01 C0 00 3B 00 SC ***....'...;.
00B380: BA 27 03 00 00 C1 EF 22 20 52 45 54 4F 55 52 4E .'....." RETOURN
00B390: 45 52 20 44 49 53 51 55 45 20 21 20 22 01 CC 20 ER DISQUE ! "..
00B3A0: 0F 2C 19 C8 2C 19 14 2C 19 0F 01 9F 20 1E E2 27 .,..,..,.... ..'
00B3B0: 01 83 20 1C 06 BB 01 C9 00 5F 00 C4 27 03 00 00 .. ......_..'...
00B3C0: C1 EF 22 20 5B 44 5D 65 6D 6F 20 6F 75 20 5B 54 .." [D]emo ou [T
00B3D0: 5D 65 78 74 65 3F 20 22 01 CC 20 0F 2C 19 C8 2C ]exte? ".. .,..,
00B3E0: 19 14 2C 19 0F 01 9F 20 1E E2 27 01 7C 00 57 4B ..,.... ..'.|.WK
00B3F0: 45 D9 2C 40 03 00 00 F2 01 A1 20 03 00 00 F2 F2 E.,@...... .....
00B400: 22 44 22 FA 20 03 00 00 F2 F2 22 54 22 EB 20 1E "D". ....."T". .
00B410: C4 27 20 01 97 20 C9 00 46 00 CE 27 03 00 00 C1 .' .. ..F..'....
00B420: EF 22 20 52 55 42 52 49 51 55 45 20 49 4E 41 43 ." RUBRIQUE INAC
00B430: 54 49 56 45 21 20 22 01 9F 20 1E E2 27 01 CC 20 TIVE! ".. ..'..
00B440: 0F 2C 1A 2C 01 2C 19 3C 2C 19 0F 01 9E 20 0D 00 .,.,.,.<,.... ..
00B450: 00 74 F0 EF 0F 20 EC 20 1A D0 07 01 B0 00 32 00 .t... . ......2.
00B460: D8 27 03 00 00 C1 EF 22 20 22 F4 FF 03 28 19 F0 .'....." "...(..
00B470: 29 F4 22 20 22 F4 FF 03 28 19 F1 29 F4 22 20 20 )." "...(..)."
00B480: 5B 43 4F 50 59 5D 20 56 61 6C 69 64 65 20 22 00 [COPY] Valide ".
00B490: B8 00 E2 27 9F 20 1E EC 27 01 7C 00 4D 49 44 C3 ...'. ..'.|.MID.
00B4A0: 2C 0B 00 00 63 B3 2C 0B 00 00 63 B2 2C 0E 2C 19 ,...c.,...c.,.,.
00B4B0: 17 2C 40 03 00 00 E1 01 0B 00 00 F8 EF 19 0B 01 .,@.............
00B4C0: 0B 00 00 F9 EF 19 17 01 0B 00 00 EC EF FF 0E 28 ...............(
00B4D0: 03 00 00 E1 29 01 0B 00 00 E8 EF 0F 01 0B 00 00 ....)...........
00B4E0: E3 EF 0B 00 00 63 B1 01 0B 00 00 F4 EF 15 01 0B .....c..........
00B4F0: 00 00 64 EC EF 10 01 0B 00 00 64 E8 EF 10 01 9F ..d.......d.....
00B500: 20 1E 92 27 01 0B 00 00 E3 EF 0B 00 00 63 B2 01 ..'.........c..
00B510: 0B 00 00 F4 EF 12 01 0B 00 00 64 EC EF 16 01 0B ..........d.....
00B520: 00 00 64 E8 EF 16 01 03 00 00 E2 EF FF 16 28 FF ..d...........(.
00B530: 0E 28 03 00 00 C1 28 0E 29 29 29 01 9F 20 1E 92 .(....(.))).. ..
00B540: 27 01 A0 20 1E F6 27 00 57 00 EC 27 0B 00 00 72 '.. ..'.W..'...r
00B550: F8 EF 0B 00 00 F8 01 0B 00 00 72 F9 EF 0B 00 00 ..........r.....
00B560: F9 01 0B 00 00 72 EC EF 0B 00 00 EC 01 0B 00 00 .....r..........
00B570: 72 E8 EF 0B 00 00 E8 01 0B 00 00 72 F4 EF 0B 00 r..........r....
00B580: 00 F4 01 0B 00 00 72 64 EC EF 0B 00 00 64 EC 01 ......rd.....d..
00B590: 0B 00 00 72 64 E8 EF 0B 00 00 64 E8 01 C9 00 57 ...rd.....d....W
00B5A0: 00 F6 27 0B 00 00 F8 EF 0B 00 00 72 F8 01 0B 00 ..'........r....
00B5B0: 00 F9 EF 0B 00 00 72 F9 01 0B 00 00 EC EF 0B 00 ......r.........
00B5C0: 00 72 EC 01 0B 00 00 E8 EF 0B 00 00 72 E8 01 0B .r..........r...
00B5D0: 00 00 F4 EF 0B 00 00 72 F4 01 0B 00 00 64 EC EF .......r.....d..
00B5E0: 0B 00 00 72 64 EC 01 0B 00 00 64 E8 EF 0B 00 00 ...rd.....d.....
00B5F0: 72 64 E8 01 C9 00 07 00 20 4E 01 C0 00 43 00 2A rd...... N...C.*
00B600: 4E 01 C0 2A 2A 2A 20 42 72 61 6E 63 68 65 6D 65 N..*** Brancheme
00B610: 6E 74 20 4C 45 43 54 45 55 52 34 20 65 74 20 72 nt LECTEUR4 et r
00B620: 65 74 6F 75 72 20 64 65 62 75 74 20 65 6E 20 63 etour debut en c
00B630: 61 73 20 64 27 65 72 72 65 75 72 20 2A 2A 2A 00 as d'erreur ***.
00B640: 07 00 34 4E 01 C0 00 35 00 3E 4E 9F 20 1E 48 4E ..4N...5.>N. .HN
00B650: 01 A1 20 0B 00 00 65 F2 EF 0F 20 EB 20 7C 00 57 .. ...e... . |.W
00B660: 4B 45 D9 2C 0F 2C 0E 2C 0E 2C 19 12 2C 12 01 A0 KE.,.,.,.,..,...
00B670: 20 1E 64 00 20 01 97 20 1E 64 00 00 3B 00 48 4E .d. .. .d..;.HN
00B680: BE 20 1C 4D 9E 2C 0E 01 0B 00 00 65 F2 EF 0E 01 . .M.,.....e....
00B690: 83 20 1F 00 00 40 1C 90 2C 40 03 00 00 E1 01 A1 . ...@..,@......
00B6A0: 20 FF 12 28 1C 4D 9E 29 F2 0E 20 EB 20 0D 00 00 ..(.M.).. . ...
00B6B0: 65 F2 EF 0F 01 C9 00 3F 00 52 4E 9F 20 1E 5C 4E e......?.RN. .\N
00B6C0: 01 A1 20 03 00 00 E1 EF 22 46 22 EB 20 A8 22 72 .. ....."F". ."r
00B6D0: 73 78 70 72 74 2E 63 6F 64 22 01 83 20 1C 00 80 sxprt.cod".. ...
00B6E0: 01 C9 20 01 97 20 AD 20 10 01 83 20 1C AB 9C 01 .. .. . ... ....
00B6F0: A0 20 1E 52 4E 00 2B 00 5C 4E AD 20 0E 01 A9 20 . .RN.+.\N. ...
00B700: 33 20 3B 4C 6F 6E 67 75 65 75 72 20 49 44 0D 0A 3 ;Longueur ID..
00B710: 20 3B 0D 0A 20 56 45 55 54 43 4D 31 20 4C 44 20 ;.. VEUTCM1 LD
00B720: 41 2C 28 44 45 29 0D 0A 20 20 20 20 20 20 20 20 A,(DE)..
00B730: 20 41 4E 44 20 25 30 30 31 30 30 31 30 30 20 3B AND %00100100 ;
00B740: 49 73 6F 6C 65 72 20 43 52 2F 44 44 0D 0A 20 20 Isoler CR/DD..
00B750: 20 20 20 20 20 20 20 43 50 20 25 30 30 31 30 30 CP %00100
00B760: 31 30 30 20 20 3B 54 65 73 74 65 72 20 73 69 20 100 ;Tester si
00B770: 43 52 2F 44 44 0D 0A 20 20 20 20 20 20 20 20 20 CR/DD..
00B780: 4A 52 20 5A 2C 47 4F 52 45 4D 50 20 20 20 3B 4F JR Z,GOREMP ;O
00B790: 75 69 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 ui.. ;..
00B7A0: 20 49 4E 43 20 28 49 59 2B 30 29 20 20 20 20 3B INC (IY+0) ;
00B7B0: 43 6F 6D 70 74 65 75 72 20 2B 20 31 0D 0A 20 20 Compteur + 1..
00B7C0: 20 20 20 20 20 20 20 49 4E 43 20 44 45 20 20 20 INC DE
00B7D0: 20 20 20 20 20 3B 4C 49 53 54 45 52 52 2B 31 0D ;LISTERR+1.
00B7E0: 0A 20 20 20 20 20 20 20 20 20 49 4E 43 20 48 4C . INC HL
00B7F0: 20 20 20 20 20 20 20 20 3B 49 44 53 20 4C 45 4E ;IDS LEN
00B800: 20 73 75 69 76 61 6E 74 0D 0A 20 20 20 20 20 20 suivant..
00B810: 20 20 20 49 4E 43 20 48 4C 0D 0A 20 20 20 20 20 INC HL..
00B820: 20 20 20 20 49 4E 43 20 48 4C 0D 0A 20 20 20 20 INC HL..
00B830: 20 20 20 20 20 49 4E 43 20 48 4C 0D 0A 20 20 20 INC HL..
00B840: 20 20 20 20 20 20 44 4A 4E 5A 20 56 45 55 54 43 DJNZ VEUTC
00B850: 4D 31 0D 0A 20 3B 0D 0A 20 3B 4E 65 20 64 65 76 M1.. ;.. ;Ne dev
00B860: 72 61 69 74 20 6A 61 6D 61 69 73 20 73 6F 72 74 rait jamais sort
00B870: 69 72 20 69 63 69 20 2E 0D 0A 20 3B 0D 0A 20 47 ir ici ... ;.. G
00B880: 4F 52 45 4D 50 20 20 44 45 43 20 48 4C 0D 0A 20 OREMP DEC HL..
00B890: 20 20 20 20 20 20 20 20 44 45 43 20 48 4C 0D 0A DEC HL..
00B8A0: 20 20 20 20 20 20 20 20 20 44 45 43 20 48 4C 0D DEC HL.
00B8B0: 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 54 . CALL T
00B8C0: 52 41 4E 53 33 49 44 0D 0A 20 3B 0D 0A 20 20 20 RANS3ID.. ;..
00B8D0: 20 20 20 20 20 20 4C 44 20 41 2C 23 34 36 20 20 LD A,#46
00B8E0: 20 20 20 20 3B 4C 69 74 20 6A 75 73 74 65 20 6C ;Lit juste l
00B8F0: 65 20 31 65 72 20 6F 63 74 65 74 20 64 75 20 73 e 1er octet du s
00B900: 65 63 74 65 75 72 20 65 74 20 6C 65 0D 0A 20 20 ecteur et le..
00B910: 20 20 20 20 20 20 20 4C 44 20 48 4C 2C 4C 49 54 LD HL,LIT
00B920: 46 44 43 33 20 3B 72 61 6E 67 65 20 64 61 6E 73 FDC3 ;range dans
00B930: 20 4F 43 52 45 4D 50 0D 0A 20 20 20 20 20 20 20 OCREMP..
00B940: 20 20 43 41 4C 4C 20 53 45 54 43 4F 4D 32 0D 0A CALL SETCOM2..
00B950: 20 20 20 20 20 20 20 20 20 4C 44 20 44 45 2C 31 LD DE,1
00B960: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 48 4C .. LD HL
00B970: 2C 4F 43 52 45 4D 50 0D 0A 20 20 20 20 20 20 20 ,OCREMP..
00B980: 20 20 43 41 4C 4C 20 56 49 53 49 4E 53 54 20 20 CALL VISINST
00B990: 3B 56 69 73 65 72 20 65 78 65 63 75 74 65 72 0D ;Viser executer.
00B9A0: 0A 20 20 20 20 20 20 20 20 20 53 43 46 0D 0A 20 . SCF..
00B9B0: 20 20 20 20 20 20 20 20 52 45 54 0D 0A 20 3B 0D RET.. ;.
00B9C0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
00B9D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00B9E0: 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ---------------
00B9F0: 0D 0A 20 0D 0A 20 20 20 20 20 53 6F 72 74 69 65 .. .. Sortie
00BA00: 20 64 65 20 74 72 61 69 74 65 6D 65 6E 74 20 6E de traitement n
00BA10: 6F 72 6D 61 6C 65 20 6F 75 20 43 52 2F 44 44 20 ormale ou CR/DD
00BA20: 20 2E 20 20 4F 6E 20 76 7B 72 69 66 69 65 20 71 . On v{rifie q
00BA30: 75 65 20 4C 49 44 4D 41 58 20 6E 27 65 73 74 20 ue LIDMAX n'est
00BA40: 70 61 73 0D 0A 20 70 6C 75 73 20 67 72 61 6E 64 pas.. plus grand
00BA50: 20 71 75 65 20 4C 4D 41 58 20 2E 20 53 69 20 63 que LMAX . Si c
00BA60: 27 65 73 74 20 20 6C 65 20 20 63 61 73 20 20 63 'est le cas c
00BA70: 27 65 73 74 20 66 69 6E 69 20 73 69 6E 6F 6E 20 'est fini sinon
00BA80: 69 6C 20 79 2D 61 20 64 65 73 20 73 65 63 74 65 il y-a des secte
00BA90: 75 72 73 0D 0A 20 7B 63 72 61 73 7B 73 20 65 74 urs.. {cras{s et
00BAA0: 20 6F 6E 20 64 6F 69 74 20 6C 65 73 20 74 72 61 on doit les tra
00BAB0: 69 74 65 72 20 2E 0D 0A 20 0D 0A 20 20 20 20 20 iter ... ..
00BAC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00BAD0: 20 20 20 20 20 20 20 20 20 20 20 2D 2D 2D 2D 2D -----
00BAE0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 3B 0D 0A ----------.. ;..
00BAF0: 20 45 58 49 54 47 41 50 20 4C 44 20 41 2C 28 4C EXITGAP LD A,(L
00BB00: 49 44 4D 41 58 29 20 3B 53 69 20 3E 20 49 44 20 IDMAX) ;Si > ID
00BB10: 4F 4B 20 65 73 74 20 3E 20 71 75 65 20 74 61 69 OK est > que tai
00BB20: 6C 6C 65 20 66 6F 72 6D 61 74 0D 0A 20 20 20 20 lle format..
00BB30: 20 20 20 20 20 4C 44 20 42 2C 41 20 20 20 20 20 LD B,A
00BB40: 20 20 20 3B 6F 6E 20 61 20 64 65 73 20 65 63 72 ;on a des ecr
00BB50: 61 73 65 73 20 61 20 63 6F 75 70 20 73 75 72 0D ases a coup sur.
00BB60: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 41 2C 28 . LD A,(
00BB70: 4C 45 4E 53 45 43 29 0D 0A 20 20 20 20 20 20 20 LENSEC)..
00BB80: 20 20 43 50 20 42 0D 0A 20 20 20 20 20 20 20 20 CP B..
00BB90: 20 4A 52 20 4E 43 2C 45 58 49 47 31 0D 0A 20 3B JR NC,EXIG1.. ;
00BBA0: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 41 2C .. LD A,
00BBB0: 42 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 B.. LD (
00BBC0: 46 41 55 58 4C 45 4E 29 2C 41 0D 0A 20 20 20 20 FAUXLEN),A..
00BBD0: 20 20 20 20 20 43 41 4C 4C 20 53 45 54 45 43 52 CALL SETECR
00BBE0: 41 0D 0A 20 20 20 20 20 20 20 20 20 4A 50 20 45 A.. JP E
00BBF0: 43 52 41 53 45 52 0D 0A 20 3B 20 20 20 20 20 20 CRASER.. ;
00BC00: 20 20 0D 0A 20 45 58 49 47 31 20 20 20 4C 44 20 .. EXIG1 LD
00BC10: 48 4C 2C 49 44 49 4E 44 52 41 20 20 20 3B 56 72 HL,IDINDRA ;Vr
00BC20: 61 69 6D 65 6E 74 20 66 69 6E 69 20 2C 20 72 65 aiment fini , re
00BC30: 63 6F 70 69 65 72 20 6C 65 73 20 49 44 53 20 6C copier les IDS l
00BC40: 75 73 20 64 61 6E 73 0D 0A 20 20 20 20 20 20 20 us dans..
00BC50: 20 20 4C 44 20 44 45 2C 49 44 4F 55 54 44 52 41 LD DE,IDOUTDRA
00BC60: 20 20 3B 6C 61 20 7A 6F 6E 65 20 64 65 73 20 49 ;la zone des I
00BC70: 44 53 20 61 20 65 63 72 69 72 65 0D 0A 20 20 20 DS a ecrire..
00BC80: 20 20 20 20 20 20 4C 44 20 42 43 2C 32 35 35 0D LD BC,255.
00BC90: 0A 20 20 20 20 20 20 20 20 20 4C 44 49 52 0D 0A . LDIR..
00BCA0: 20 20 20 20 20 20 20 20 20 53 43 46 0D 0A 20 20 SCF..
00BCB0: 20 20 20 20 20 20 20 52 45 54 0D 0A 20 3B 0D 0A RET.. ;..
00BCC0: 20 52 41 5A 49 44 53 20 20 4C 44 20 42 2C 32 35 RAZIDS LD B,25
00BCD0: 35 20 20 20 20 20 20 20 20 3B 45 66 66 61 63 65 5 ;Efface
00BCE0: 72 20 6C 61 20 73 65 72 69 65 20 64 65 73 20 49 r la serie des I
00BCF0: 44 53 20 61 20 6C 69 72 65 0D 0A 20 20 20 20 20 DS a lire..
00BD00: 20 20 20 20 4C 44 20 48 4C 2C 49 44 49 4E 44 52 LD HL,IDINDR
00BD10: 41 0D 0A 20 42 43 4C 52 49 44 53 20 4C 44 20 28 A.. BCLRIDS LD (
00BD20: 48 4C 29 2C 23 46 46 0D 0A 20 20 20 20 20 20 20 HL),#FF..
00BD30: 20 20 49 4E 43 20 48 4C 0D 0A 20 20 20 20 20 20 INC HL..
00BD40: 20 20 20 44 4A 4E 5A 20 42 43 4C 52 49 44 53 0D DJNZ BCLRIDS.
00BD50: 0A 20 20 20 20 20 20 20 20 20 52 45 54 0D 0A 20 . RET..
00BD60: 3B 0D 0A 20 53 45 54 4E 4F 47 41 50 20 4C 44 20 ;.. SETNOGAP LD
00BD70: 48 4C 2C 46 4C 41 47 46 4E 43 20 20 3B 53 69 67 HL,FLAGFNC ;Sig
00BD80: 6E 61 6C 65 72 20 47 41 50 20 3C 3E 20 23 34 45 naler GAP <> #4E
00BD90: 0D 0A 20 20 20 20 20 20 20 20 20 53 45 54 20 31 .. SET 1
00BDA0: 2C 28 48 4C 29 0D 0A 20 20 20 20 20 20 20 20 20 ,(HL)..
00BDB0: 4C 44 20 48 4C 2C 54 42 41 44 47 41 50 0D 0A 20 LD HL,TBADGAP..
00BDC0: 20 20 20 20 20 20 20 20 43 41 4C 4C 20 50 52 54 CALL PRT
00BDD0: 0D 0A 20 20 20 20 20 20 20 20 20 52 45 54 0D 0A .. RET..
00BDE0: 20 3B 0D 0A 20 53 45 54 42 41 44 4C 45 4E 20 4C ;.. SETBADLEN L
00BDF0: 44 20 48 4C 2C 54 47 41 50 54 4C 20 3B 47 41 50 D HL,TGAPTL ;GAP
00BE00: 20 74 72 6F 70 20 6C 6F 6E 67 20 2E 20 4D 61 72 trop long . Mar
00BE10: 71 75 65 72 20 6C 27 65 72 72 65 75 72 20 65 74 quer l'erreur et
00BE20: 20 66 69 78 65 72 0D 0A 20 20 20 20 20 20 20 20 fixer..
00BE30: 20 43 41 4C 4C 20 50 52 54 20 20 20 20 20 20 20 CALL PRT
00BE40: 3B 70 72 6F 76 69 73 6F 69 72 65 6D 65 6E 74 20 ;provisoirement
00BE50: 61 20 23 46 46 0D 0A 20 20 20 20 20 20 20 20 20 a #FF..
00BE60: 4C 44 20 48 4C 2C 46 4C 41 47 46 4E 43 0D 0A 20 LD HL,FLAGFNC..
00BE70: 20 20 20 20 20 20 20 20 53 45 54 20 32 2C 28 48 SET 2,(H
00BE80: 4C 29 0D 0A 20 53 45 54 42 41 44 32 20 4C 44 20 L).. SETBAD2 LD
00BE90: 41 2C 23 46 46 0D 0A 20 20 20 20 20 20 20 20 20 A,#FF..
00BEA0: 4C 44 20 28 47 41 50 46 4F 52 4D 29 2C 41 0D 0A LD (GAPFORM),A..
00BEB0: 20 20 20 20 20 20 20 20 20 58 4F 52 20 41 0D 0A XOR A..
00BEC0: 20 20 20 20 20 20 20 20 20 52 45 54 0D 0A 20 3B RET.. ;
00BED0: 0D 0A 20 53 45 54 45 43 52 41 20 4C 44 20 48 4C .. SETECRA LD HL
00BEE0: 2C 46 4C 41 47 46 4E 43 20 3B 4D 61 72 71 75 65 ,FLAGFNC ;Marque
00BEF0: 72 20 70 72 65 73 65 6E 63 65 20 63 65 72 74 61 r presence certa
00BF00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
00BF10: 0A 00 01 00 02 09 4E E5 0A 00 C1 02 00 00 00 02 ......N.........
00BF20: 0A 00 C2 02 00 00 00 02 0A 00 C3 02 00 00 00 02 ................
00BF30: 0A 00 C4 02 00 00 00 02 0A 00 C5 02 00 00 00 02 ................
00BF40: 0A 00 C6 02 00 00 00 02 0A 00 C7 02 00 00 00 02 ................
00BF50: 0A 00 C8 02 00 00 00 02 0A 00 C9 02 00 00 00 02 ................
00BF60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BF70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BF80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BF90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BFA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BFB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BFC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BFD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BFE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BFF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C000: 69 6E 65 20 64 65 20 73 65 63 74 65 75 72 73 20 ine de secteurs
00C010: 65 63 72 61 73 65 73 0D 0A 20 20 20 20 20 20 20 ecrases..
00C020: 20 20 53 45 54 20 34 2C 28 48 4C 29 0D 0A 20 20 SET 4,(HL)..
00C030: 20 20 20 20 20 20 20 4C 44 20 48 4C 2C 54 53 45 LD HL,TSE
00C040: 43 45 43 52 0D 0A 20 20 20 20 20 20 20 20 20 4A CECR.. J
00C050: 50 20 50 52 54 0D 0A 20 3B 0D 0A 20 49 4E 43 4C P PRT.. ;.. INCL
00C060: 4F 4E 47 20 4C 44 20 48 4C 2C 28 4C 4F 4E 47 53 ONG LD HL,(LONGS
00C070: 45 43 29 20 3B 49 6E 63 72 65 6D 65 6E 74 65 72 EC) ;Incrementer
00C080: 20 64 27 75 6E 65 20 6C 6F 6E 67 75 65 75 72 20 d'une longueur
00C090: 64 65 20 73 65 63 74 65 75 72 0D 0A 20 20 20 20 de secteur..
00C0A0: 20 20 20 20 20 41 44 44 20 48 4C 2C 48 4C 0D 0A ADD HL,HL..
00C0B0: 20 20 20 20 20 20 20 20 20 4C 44 20 41 2C 28 51 LD A,(Q
00C0C0: 55 41 54 52 49 44 2B 33 29 0D 0A 20 20 20 20 20 UATRID+3)..
00C0D0: 20 20 20 20 49 4E 43 20 41 0D 0A 20 3B 0D 0A 20 INC A.. ;..
00C0E0: 52 41 4E 47 4C 4F 4E 20 4C 44 20 28 4C 4F 4E 47 RANGLON LD (LONG
00C0F0: 53 45 43 29 2C 48 4C 20 20 3B 65 74 20 72 61 6E SEC),HL ;et ran
00C100: 67 65 72 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 ger.. LD
00C110: 20 28 51 55 41 54 52 49 44 2B 33 29 2C 41 0D 0A (QUATRID+3),A..
00C120: 20 20 20 20 20 20 20 20 20 4C 44 20 28 4C 45 4E LD (LEN
00C130: 53 45 43 29 2C 41 0D 0A 20 20 20 20 20 20 20 20 SEC),A..
00C140: 20 52 45 54 0D 0A 20 3B 0D 0A 20 41 44 44 4C 4F RET.. ;.. ADDLO
00C150: 4E 20 20 4C 44 20 48 4C 2C 31 32 38 20 20 20 20 N LD HL,128
00C160: 20 20 3B 43 61 6C 63 75 6C 65 72 20 6C 6F 6E 67 ;Calculer long
00C170: 75 65 75 72 20 65 6E 20 6F 63 74 65 74 73 20 64 ueur en octets d
00C180: 27 61 70 72 65 73 20 4C 45 4E 20 66 6F 72 6D 61 'apres LEN forma
00C190: 74 0D 0A 20 41 44 44 4C 4F 4E 31 20 4F 52 20 41 t.. ADDLON1 OR A
00C1A0: 0D 0A 20 52 45 41 44 44 20 20 20 4A 52 20 5A 2C .. READD JR Z,
00C1B0: 41 44 44 46 49 4E 0D 0A 20 20 20 20 20 20 20 20 ADDFIN..
00C1C0: 20 41 44 44 20 48 4C 2C 48 4C 0D 0A 20 20 20 20 ADD HL,HL..
00C1D0: 20 20 20 20 20 44 45 43 20 41 0D 0A 20 20 20 20 DEC A..
00C1E0: 20 20 20 20 20 4A 52 20 52 45 41 44 44 0D 0A 20 JR READD..
00C1F0: 41 44 44 46 49 4E 20 20 4C 44 20 28 4C 4F 4E 47 ADDFIN LD (LONG
00C200: 53 45 43 29 2C 48 4C 0D 0A 20 20 20 20 20 20 20 SEC),HL..
00C210: 20 20 52 45 54 0D 0A 20 3B 0D 0A 20 46 4C 45 4E RET.. ;.. FLEN
00C220: 4C 4F 4E 20 58 4F 52 20 41 20 20 20 20 20 20 20 LON XOR A
00C230: 20 20 20 3B 43 61 6C 63 75 6C 65 72 20 4C 45 4E ;Calculer LEN
00C240: 20 49 44 20 64 27 61 70 72 65 73 0D 0A 20 20 20 ID d'apres..
00C250: 20 20 20 20 20 20 4C 44 20 48 4C 2C 31 32 38 20 LD HL,128
00C260: 20 20 20 20 20 3B 6C 6F 6E 67 75 65 75 72 20 73 ;longueur s
00C270: 65 63 74 65 75 72 20 64 6F 6E 6E 65 65 20 65 6E ecteur donnee en
00C280: 20 6F 63 74 65 74 73 20 0D 0A 20 20 20 20 20 20 octets ..
00C290: 20 20 20 4C 44 20 44 45 2C 28 4C 4F 4E 47 53 45 LD DE,(LONGSE
00C2A0: 43 29 0D 0A 20 46 56 4C 45 4E 20 20 20 50 55 53 C).. FVLEN PUS
00C2B0: 48 20 48 4C 0D 0A 20 20 20 20 20 20 20 20 20 41 H HL.. A
00C2C0: 4E 44 20 41 0D 0A 20 20 20 20 20 20 20 20 20 53 ND A.. S
00C2D0: 42 43 20 48 4C 2C 44 45 0D 0A 20 20 20 20 20 20 BC HL,DE..
00C2E0: 20 20 20 50 4F 50 20 48 4C 0D 0A 20 20 20 20 20 POP HL..
00C2F0: 20 20 20 20 4A 52 20 5A 2C 53 45 54 56 4C 45 4E JR Z,SETVLEN
00C300: 0D 0A 20 20 20 20 20 20 20 20 20 49 4E 43 20 41 .. INC A
00C310: 0D 0A 20 20 20 20 20 20 20 20 20 41 44 44 20 48 .. ADD H
00C320: 4C 2C 48 4C 0D 0A 20 20 20 20 20 20 20 20 20 4A L,HL.. J
00C330: 52 20 46 56 4C 45 4E 0D 0A 20 3B 0D 0A 20 53 45 R FVLEN.. ;.. SE
00C340: 54 56 4C 45 4E 20 4C 44 20 28 4C 45 4E 53 45 43 TVLEN LD (LENSEC
00C350: 29 2C 41 0D 0A 20 20 20 20 20 20 20 20 20 52 45 ),A.. RE
00C360: 54 0D 0A 20 3B 0D 0A 20 55 4E 53 45 55 4C 20 20 T.. ;.. UNSEUL
00C370: 4C 44 20 41 2C 28 4E 42 53 45 43 29 20 20 20 20 LD A,(NBSEC)
00C380: 3B 54 65 73 74 65 72 20 73 69 20 75 6E 20 73 65 ;Tester si un se
00C390: 75 6C 20 73 65 63 74 65 75 72 20 73 75 72 20 6C ul secteur sur l
00C3A0: 61 20 70 69 73 74 65 0D 0A 20 20 20 20 20 20 20 a piste..
00C3B0: 20 20 44 45 43 20 41 0D 0A 20 20 20 20 20 20 20 DEC A..
00C3C0: 20 20 52 45 54 20 4E 5A 20 20 20 20 20 20 20 20 RET NZ
00C3D0: 20 20 3B 43 41 52 52 59 20 6E 6F 6E 20 6D 69 73 ;CARRY non mis
00C3E0: 20 73 69 20 70 6C 75 73 69 65 75 72 73 0D 0A 20 si plusieurs..
00C3F0: 20 20 20 20 20 20 20 20 44 45 43 20 41 0D 0A 20 DEC A..
00C400: 20 20 20 20 20 20 20 20 4C 44 20 28 47 41 50 46 LD (GAPF
00C410: 4F 52 4D 29 2C 41 20 20 3B 53 69 6E 6F 6E 20 6C ORM),A ;Sinon l
00C420: 6F 6E 67 75 65 75 72 20 47 41 50 3D 23 46 46 20 ongueur GAP=#FF
00C430: 65 74 20 6D 69 73 65 20 64 75 20 43 41 52 52 59 et mise du CARRY
00C440: 0D 0A 20 20 20 20 20 20 20 20 20 53 43 46 0D 0A .. SCF..
00C450: 20 20 20 20 20 20 20 20 20 52 45 54 0D 0A 20 3B RET.. ;
00C460: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
00C470: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00C480: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00C490: 2D 2D 0D 0A 20 0D 0A 20 20 20 20 20 43 69 2D 64 --.. .. Ci-d
00C4A0: 65 73 73 6F 75 73 20 6C 61 20 20 72 6F 75 74 69 essous la routi
00C4B0: 6E 65 20 20 64 7B 74 65 72 6D 69 6E 61 6E 74 20 ne d{terminant
00C4C0: 20 6C 61 20 20 74 61 69 6C 6C 65 20 20 6D 61 78 la taille max
00C4D0: 69 6D 75 6D 20 20 64 65 20 20 73 65 63 74 65 75 imum de secteu
00C4E0: 72 73 20 65 6E 0D 0A 20 66 6F 6E 63 74 69 6F 6E rs en.. fonction
00C4F0: 20 64 65 20 6C 65 75 72 20 6E 6F 6D 62 72 65 20 de leur nombre
00C500: 2E 20 4C 65 20 47 41 50 20 65 73 74 20 20 73 75 . Le GAP est su
00C510: 70 70 6F 73 7B 20 20 61 75 20 6D 69 6E 69 6D 75 ppos{ au minimu
00C520: 6D 20 64 65 20 73 61 20 6C 6F 6E 67 75 65 75 72 m de sa longueur
00C530: 20 2C 20 64 65 0D 0A 20 74 6F 75 74 65 20 6D 61 , de.. toute ma
00C540: 6E 69 7D 72 65 20 69 6C 20 65 73 74 20 72 65 63 ni}re il est rec
00C550: 61 6C 63 75 6C 7B 20 70 61 72 20 6C 61 20 73 75 alcul{ par la su
00C560: 69 74 65 20 65 6E 20 63 61 73 20 64 65 20 70 72 ite en cas de pr
00C570: 6F 62 6C 7D 6D 65 20 2E 0D 0A 20 0D 0A 20 20 20 obl}me ... ..
00C580: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00C590: 20 20 20 20 20 20 20 20 20 20 20 2D 2D 2D 2D 2D -----
00C5A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 -------------..
00C5B0: 3B 0D 0A 20 4D 41 58 49 4C 45 4E 20 4C 44 20 48 ;.. MAXILEN LD H
00C5C0: 4C 2C 54 46 47 41 50 31 20 3B 54 72 6F 75 76 65 L,TFGAP1 ;Trouve
00C5D0: 72 20 6C 61 20 74 61 69 6C 6C 65 20 6D 61 78 69 r la taille maxi
00C5E0: 20 70 6F 73 73 69 62 6C 65 20 64 27 61 70 72 65 possible d'apre
00C5F0: 73 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C s.. CALL
00C600: 20 50 52 54 20 20 20 20 3B 6C 65 20 6E 6F 6D 62 PRT ;le nomb
00C610: 72 65 20 64 65 20 73 65 63 74 65 75 72 73 0D 0A re de secteurs..
00C620: 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 ;.. LD
00C630: 41 2C 28 4E 42 53 45 43 29 0D 0A 20 20 20 20 20 A,(NBSEC)..
00C640: 20 20 20 20 43 50 20 32 30 20 20 20 20 20 20 20 CP 20
00C650: 3B 53 69 20 6E 6F 6D 62 72 65 20 73 65 63 74 65 ;Si nombre secte
00C660: 75 72 20 70 6C 75 73 20 67 72 61 6E 64 20 71 75 ur plus grand qu
00C670: 65 20 32 30 20 6C 61 20 74 61 69 6C 6C 65 0D 0A e 20 la taille..
00C680: 20 20 20 20 20 20 20 20 20 4C 44 20 43 2C 30 20 LD C,0
00C690: 20 20 20 20 20 3B 65 73 74 20 6F 62 6C 69 67 61 ;est obliga
00C6A0: 74 6F 69 72 65 6D 65 6E 74 20 30 0D 0A 20 20 20 toirement 0..
00C6B0: 20 20 20 20 20 20 52 45 54 20 4E 43 0D 0A 20 3B RET NC.. ;
00C6C0: 0D 0A 20 20 20 20 20 20 20 20 20 49 4E 43 20 43 .. INC C
00C6D0: 0D 0A 20 20 20 20 20 20 20 20 20 43 50 20 31 31 .. CP 11
00C6E0: 20 20 20 20 20 20 20 3B 50 6C 75 73 20 64 65 20 ;Plus de
00C6F0: 31 30 20 73 65 63 74 65 75 72 73 20 3D 20 74 61 10 secteurs = ta
00C700: 69 6C 6C 65 20 31 0D 0A 20 20 20 20 20 20 20 20 ille 1..
00C710: 20 52 45 54 20 4E 43 0D 0A 20 3B 0D 0A 20 20 20 RET NC.. ;..
00C720: 20 20 20 20 20 20 49 4E 43 20 43 0D 0A 20 20 20 INC C..
00C730: 20 20 20 20 20 20 43 50 20 36 20 20 20 20 20 20 CP 6
00C740: 20 20 3B 50 6C 75 73 20 64 65 20 35 20 73 65 63 ;Plus de 5 sec
00C750: 74 65 75 72 73 20 6E 65 20 70 65 75 74 20 65 74 teurs ne peut et
00C760: 72 65 20 74 61 69 6C 6C 65 20 33 0D 0A 20 20 20 re taille 3..
00C770: 20 20 20 20 20 20 52 45 54 20 4E 43 20 20 20 20 RET NC
00C780: 20 20 3B 63 27 65 73 74 20 64 6F 6E 63 20 32 0D ;c'est donc 2.
00C790: 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 49 4E . ;.. IN
00C7A0: 43 20 43 0D 0A 20 20 20 20 20 20 20 20 20 43 50 C C.. CP
00C7B0: 20 33 20 20 20 20 20 20 20 20 3B 50 6C 75 73 20 3 ;Plus
00C7C0: 64 65 20 33 20 73 65 63 74 65 75 72 73 20 63 27 de 3 secteurs c'
00C7D0: 65 73 74 20 74 61 69 6C 6C 65 20 33 0D 0A 20 20 est taille 3..
00C7E0: 20 20 20 20 20 20 20 52 45 54 20 4E 43 0D 0A 20 RET NC..
00C7F0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 49 4E 43 20 ;.. INC
00C800: 43 0D 0A 20 20 20 20 20 20 20 20 20 43 50 20 32 C.. CP 2
00C810: 20 20 20 20 20 20 20 20 3B 50 6C 75 73 20 64 65 ;Plus de
00C820: 20 31 20 73 65 63 74 65 75 72 20 6E 65 20 70 65 1 secteur ne pe
00C830: 75 74 20 65 74 72 65 20 35 20 64 6F 6E 63 20 63 ut etre 5 donc c
00C840: 27 65 73 74 20 34 0D 0A 20 20 20 20 20 20 20 20 'est 4..
00C850: 20 52 45 54 20 4E 43 0D 0A 20 3B 0D 0A 20 20 20 RET NC.. ;..
00C860: 20 20 20 20 20 20 49 4E 43 20 43 20 20 20 20 20 INC C
00C870: 20 20 3B 55 6E 65 20 74 61 69 6C 6C 65 20 35 20 ;Une taille 5
00C880: 73 69 6E 6F 6E 20 72 69 65 6E 20 21 0D 0A 20 20 sinon rien !..
00C890: 20 20 20 20 20 20 20 52 45 54 0D 0A 20 3B 0D 0A RET.. ;..
00C8A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00C8B0: 20 20 20 20 20 20 20 20 20 20 20 20 2D 20 56 41 - VA
00C8C0: 52 49 41 42 4C 45 53 20 45 54 20 54 45 58 54 45 RIABLES ET TEXTE
00C8D0: 53 20 2D 0D 0A 20 3B 0D 0A 20 52 45 54 45 4E 54 S -.. ;.. RETENT
00C8E0: 20 20 44 42 20 31 30 0D 0A 20 46 41 55 58 4C 45 DB 10.. FAUXLE
00C8F0: 4E 20 44 42 20 30 0D 0A 20 46 41 55 58 47 41 50 N DB 0.. FAUXGAP
00C900: 20 44 42 20 30 0D 0A 20 46 41 55 58 4C 47 46 20 DB 0.. FAUXLGF
00C910: 44 42 20 30 0D 0A 20 4C 4D 49 4E 20 20 20 20 44 DB 0.. LMIN D
00C920: 42 20 30 0D 0A 20 4C 4D 41 58 20 20 20 20 44 42 B 0.. LMAX DB
00C930: 20 30 0D 0A 20 4C 49 44 4D 41 58 20 20 44 42 20 0.. LIDMAX DB
00C940: 30 0D 0A 20 4C 45 4E 43 52 44 44 20 44 42 20 30 0.. LENCRDD DB 0
00C950: 0D 0A 20 46 4C 41 47 4D 41 4D 20 44 42 20 30 0D .. FLAGMAM DB 0.
00C960: 0A 20 46 4C 41 47 43 52 44 44 20 44 42 20 30 0D . FLAGCRDD DB 0.
00C970: 0A 20 46 4C 47 44 49 46 49 44 20 44 42 20 30 0D . FLGDIFID DB 0.
00C980: 0A 20 3B 0D 0A 20 54 4C 49 54 49 44 53 20 44 42 . ;.. TLITIDS DB
00C990: 20 33 31 2C 32 2C 32 32 2C 32 34 2C 22 20 4C 45 31,2,22,24," LE
00C9A0: 43 54 55 52 45 20 20 44 45 53 20 49 44 53 20 22 CTURE DES IDS "
00C9B0: 2C 32 34 2C 31 38 2C 33 31 2C 32 2C 32 33 2C 31 ,24,18,31,2,23,1
00C9C0: 38 2C 23 38 30 0D 0A 20 54 46 47 41 50 20 20 20 8,#80.. TFGAP
00C9D0: 44 42 20 33 31 2C 32 2C 32 32 2C 32 34 2C 22 20 DB 31,2,22,24,"
00C9E0: 52 45 43 48 45 52 43 48 45 20 44 55 20 47 41 50 RECHERCHE DU GAP
00C9F0: 20 22 2C 32 34 2C 23 38 30 0D 0A 20 54 42 41 44 ",24,#80.. TBAD
00CA00: 47 41 50 20 44 42 20 33 31 2C 32 31 2C 32 33 2C GAP DB 31,21,23,
00CA10: 32 34 2C 22 20 47 41 50 20 4E 4F 4E 20 43 4F 4E 24," GAP NON CON
00CA20: 46 4F 52 4D 45 20 22 2C 32 34 2C 23 38 30 0D 0A FORME ",24,#80..
00CA30: 20 54 47 41 50 54 4C 20 20 44 42 20 33 31 2C 34 TGAPTL DB 31,4
00CA40: 30 2C 32 33 2C 32 34 2C 22 20 47 41 50 20 20 54 0,23,24," GAP T
00CA50: 52 4F 50 20 20 47 52 41 4E 44 20 22 2C 32 34 2C ROP GRAND ",24,
00CA60: 23 38 30 0D 0A 20 54 43 4F 49 4E 43 45 20 44 42 #80.. TCOINCE DB
00CA70: 20 33 31 2C 35 39 2C 32 33 2C 32 34 2C 22 20 4A 31,59,23,24," J
00CA80: 45 20 43 4F 49 4E 43 45 20 21 21 21 21 21 21 20 E COINCE !!!!!!
00CA90: 22 2C 32 34 2C 23 38 30 0D 0A 20 3B 0D 0A 20 54 ",24,#80.. ;.. T
00CAA0: 5A 4D 41 4D 20 20 20 44 42 20 33 31 2C 32 31 2C ZMAM DB 31,21,
00CAB0: 32 34 2C 32 34 2C 22 20 50 52 45 4D 49 45 52 20 24,24," PREMIER
00CAC0: 45 4E 20 4D 41 2F 44 41 20 22 2C 32 34 2C 23 38 EN MA/DA ",24,#8
00CAD0: 30 0D 0A 20 54 46 47 41 50 31 20 20 44 42 20 33 0.. TFGAP1 DB 3
00CAE0: 31 2C 34 30 2C 32 34 2C 32 34 2C 22 20 52 45 43 1,40,24,24," REC
00CAF0: 48 45 52 43 48 45 20 20 43 52 2F 44 44 20 22 2C HERCHE CR/DD ",
00CB00: 32 34 2C 23 38 30 0D 0A 20 54 46 47 41 50 31 41 24,#80.. TFGAP1A
00CB10: 20 44 42 20 33 31 2C 35 39 2C 32 34 2C 32 34 2C DB 31,59,24,24,
00CB20: 22 20 41 4E 41 4C 59 53 45 20 44 55 20 43 52 2F " ANALYSE DU CR/
00CB30: 44 44 20 22 2C 32 34 2C 23 38 30 0D 0A 20 54 46 DD ",24,#80.. TF
00CB40: 47 41 50 32 41 20 44 42 20 33 31 2C 34 30 2C 32 GAP2A DB 31,40,2
00CB50: 34 2C 32 34 2C 22 20 43 52 2F 44 44 20 3D 20 4C 4,24," CR/DD = L
00CB60: 45 4E 20 4D 41 58 49 20 22 2C 32 34 2C 23 38 30 EN MAXI ",24,#80
00CB70: 0D 0A 20 54 46 47 41 50 32 20 20 44 42 20 33 31 .. TFGAP2 DB 31
00CB80: 2C 35 39 2C 32 34 2C 32 34 2C 22 20 43 52 2F 44 ,59,24,24," CR/D
00CB90: 44 20 50 41 53 20 54 52 4F 55 56 45 20 22 2C 32 D PAS TROUVE ",2
00CBA0: 34 2C 23 38 30 0D 0A 20 54 46 52 45 4D 50 20 20 4,#80.. TFREMP
00CBB0: 44 42 20 33 31 2C 35 39 2C 32 34 2C 32 34 2C 22 DB 31,59,24,24,"
00CBC0: 20 4F 43 54 45 54 20 46 49 4C 2E 54 52 4F 55 56 OCTET FIL.TROUV
00CBD0: 45 20 22 2C 32 34 2C 23 38 30 0D 0A 20 54 46 4F E ",24,#80.. TFO
00CBE0: 49 52 45 45 20 44 42 20 33 31 2C 35 39 2C 32 34 IREE DB 31,59,24
00CBF0: 2C 32 34 2C 22 20 50 49 53 54 45 20 45 4E 44 4F ,24," PISTE ENDO
00CC00: 4D 4D 41 47 45 45 20 22 2C 32 34 2C 23 38 30 0D MMAGEE ",24,#80.
00CC10: 0A 20 54 47 41 50 50 49 46 20 44 42 20 33 31 2C . TGAPPIF DB 31,
00CC20: 35 39 2C 32 34 2C 32 34 2C 22 20 50 49 46 4F 4D 59,24,24," PIFOM
00CC30: 45 54 52 45 20 41 43 54 49 56 45 20 22 2C 32 34 ETRE ACTIVE ",24
00CC40: 2C 23 38 30 0D 0A 20 54 4E 4F 46 4F 52 4D 20 44 ,#80.. TNOFORM D
00CC50: 42 20 33 31 2C 32 2C 32 33 0D 0A 20 54 4E 4F 46 B 31,2,23.. TNOF
00CC60: 4F 52 4D 49 20 44 42 20 22 20 50 41 53 20 44 45 ORMI DB " PAS DE
00CC70: 20 46 4F 52 4D 41 54 41 47 45 22 2C 23 38 30 0D FORMATAGE",#80.
00CC80: 0A 20 3B 0D 0A 20 54 53 45 43 45 43 52 20 44 42 . ;.. TSECECR DB
00CC90: 20 33 31 2C 32 31 2C 32 33 2C 32 34 2C 22 20 47 31,21,23,24," G
00CCA0: 41 50 20 52 45 45 4C 20 23 34 45 20 4D 41 49 53 AP REEL #4E MAIS
00CCB0: 20 53 45 43 54 45 55 52 53 20 45 43 52 41 53 45 SECTEURS ECRASE
00CCC0: 53 21 20 22 2C 32 34 2C 23 38 30 0D 0A 20 54 45 S! ",24,#80.. TE
00CCD0: 43 52 50 4F 53 53 20 44 42 20 33 31 2C 32 31 2C CRPOSS DB 31,21,
00CCE0: 32 33 2C 32 34 2C 22 20 50 52 45 53 45 4E 43 45 23,24," PRESENCE
00CCF0: 20 53 45 43 54 45 55 52 53 20 45 43 52 41 53 45 SECTEURS ECRASE
00CD00: 53 20 50 4F 53 53 49 42 4C 45 21 20 22 2C 32 34 S POSSIBLE! ",24
00CD10: 2C 23 38 30 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 ,#80.. ;..
00CD20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00CD30: 20 20 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D --------
00CD40: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 0D 0A -----------.. ..
00CD50: 20 20 4C 45 20 50 45 4E 53 55 4D 20 4E 27 45 53 LE PENSUM N'ES
00CD60: 54 20 50 41 53 20 46 49 4E 49 20 21 20 4C 49 53 T PAS FINI ! LIS
00CD70: 45 5A 20 27 45 43 52 41 53 45 4D 45 4E 54 20 53 EZ 'ECRASEMENT S
00CD80: 45 43 54 45 55 52 53 27 20 2E 20 43 27 45 53 54 ECTEURS' . C'EST
00CD90: 20 55 4E 20 4F 52 44 52 45 20 21 21 0D 0A 20 0D UN ORDRE !!.. .
00CDA0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
00CDB0: 20 20 20 20 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D ------
00CDC0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00CDD0: 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 1A 52 4F 55 54 49 -------.. .ROUTI
00CDE0: 4E 45 20 45 54 55 44 45 20 50 49 53 54 45 0D 0A NE ETUDE PISTE..
00CDF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00CE00: 4E 5A 2C 50 4F 53 49 43 52 44 44 0D 0A 20 3B 0D NZ,POSICRDD.. ;.
00CE10: 0A 20 50 49 53 4D 4F 52 54 20 4C 44 20 48 4C 2C . PISMORT LD HL,
00CE20: 54 46 4F 49 52 45 45 0D 0A 20 20 20 20 20 20 20 TFOIREE..
00CE30: 20 20 43 41 4C 4C 20 50 52 54 0D 0A 20 20 20 20 CALL PRT..
00CE40: 20 20 20 20 20 58 4F 52 20 41 20 20 20 20 20 20 XOR A
00CE50: 20 20 20 20 3B 49 67 6E 6F 72 65 72 20 74 6F 75 ;Ignorer tou
00CE60: 74 65 20 6F 70 65 72 61 74 69 6F 6E 20 75 6C 74 te operation ult
00CE70: 65 72 69 65 75 72 65 20 73 75 72 20 43 52 2F 44 erieure sur CR/D
00CE80: 44 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 D.. LD (
00CE90: 46 4C 41 47 43 52 44 44 29 2C 41 0D 0A 20 20 20 FLAGCRDD),A..
00CEA0: 20 20 20 20 20 20 44 45 43 20 41 0D 0A 20 20 20 DEC A..
00CEB0: 20 20 20 20 20 20 4C 44 20 28 4C 45 4E 43 52 44 LD (LENCRD
00CEC0: 44 29 2C 41 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 D),A.. ;..
00CED0: 20 20 20 4C 44 20 48 4C 2C 46 4C 41 47 46 4E 43 LD HL,FLAGFNC
00CEE0: 0D 0A 20 20 20 20 20 20 20 20 20 53 45 54 20 36 .. SET 6
00CEF0: 2C 28 48 4C 29 0D 0A 20 20 20 20 20 20 20 20 20 ,(HL)..
00CF00: 4A 50 20 53 4F 4C 55 54 49 4F 4E 35 0D 0A 20 3B JP SOLUTION5.. ;
00CF10: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
00CF20: 20 20 20 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D -------
00CF30: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00CF40: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 0D 0A 20 ----------.. ..
00CF50: 20 20 20 20 49 63 69 20 6F 6E 20 63 68 65 72 63 Ici on cherc
00CF60: 68 65 20 6C 65 20 47 41 50 20 64 61 6E 73 20 75 he le GAP dans u
00CF70: 6E 20 43 52 2F 44 44 20 2E 20 20 4F 6E 20 72 61 n CR/DD . On ra
00CF80: 6E 67 65 20 4C 4D 41 58 20 64 61 6E 73 20 73 6F nge LMAX dans so
00CF90: 6E 20 74 69 72 6F 69 72 20 2C 20 6F 6E 0D 0A 20 n tiroir , on..
00CFA0: 61 66 66 69 63 68 65 20 6C 65 20 6D 65 73 73 61 affiche le messa
00CFB0: 67 65 20 63 6F 72 72 65 73 70 6F 6E 64 61 6E 74 ge correspondant
00CFC0: 20 2C 20 20 65 74 20 20 6F 6E 20 20 64 7B 74 65 , et on d{te
00CFD0: 72 6D 69 6E 65 20 6C 61 20 70 6F 73 69 74 69 6F rmine la positio
00CFE0: 6E 20 70 68 79 73 69 71 75 65 20 64 75 0D 0A 20 n physique du..
00CFF0: 43 52 2F 44 44 20 76 6F 75 6C 75 20 73 75 72 20 CR/DD voulu sur
00D000: 20 20 20 20 20 20 20 20 50 4F 50 20 44 45 0D 0A POP DE..
00D010: 20 20 20 20 20 20 20 20 20 50 4F 50 20 48 4C 0D POP HL.
00D020: 0A 20 20 20 20 20 20 20 20 20 44 4A 4E 5A 20 4E . DJNZ N
00D030: 45 58 54 49 4D 50 20 20 20 20 0D 0A 20 20 20 20 EXTIMP ..
00D040: 20 20 20 20 20 43 41 4C 4C 20 43 52 0D 0A 20 3B CALL CR.. ;
00D050: 0D 0A 20 57 41 49 54 49 4D 31 20 43 41 4C 4C 20 .. WAITIM1 CALL
00D060: 23 42 44 32 45 20 20 20 20 20 20 0D 0A 20 20 20 #BD2E ..
00D070: 20 20 20 20 20 20 4A 52 20 43 2C 57 41 49 54 49 JR C,WAITI
00D080: 4D 31 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 M1.. LD
00D090: 48 4C 2C 54 4C 45 4E 53 49 0D 0A 20 20 20 20 20 HL,TLENSI..
00D0A0: 20 20 20 20 43 41 4C 4C 20 50 52 54 0D 0A 20 20 CALL PRT..
00D0B0: 20 20 20 20 20 20 20 4C 44 20 41 2C 28 4C 45 4E LD A,(LEN
00D0C0: 53 45 43 29 0D 0A 20 20 20 20 20 20 20 20 20 43 SEC).. C
00D0D0: 41 4C 4C 20 50 52 54 48 45 58 31 20 20 20 20 0D ALL PRTHEX1 .
00D0E0: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 48 4C 2C . LD HL,
00D0F0: 54 47 41 50 49 0D 0A 20 20 20 20 20 20 20 20 20 TGAPI..
00D100: 43 41 4C 4C 20 50 52 54 0D 0A 20 20 20 20 20 20 CALL PRT..
00D110: 20 20 20 4C 44 20 41 2C 28 56 41 4C 47 41 50 46 LD A,(VALGAPF
00D120: 29 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C ).. CALL
00D130: 20 50 52 54 48 45 58 31 0D 0A 20 20 20 20 20 20 PRTHEX1..
00D140: 20 20 20 4C 44 20 48 4C 2C 54 4C 47 41 50 49 0D LD HL,TLGAPI.
00D150: 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 50 . CALL P
00D160: 52 54 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 RT.. LD
00D170: 41 2C 28 47 41 50 46 4F 52 4D 29 0D 0A 20 20 20 A,(GAPFORM)..
00D180: 20 20 20 20 20 20 43 41 4C 4C 20 50 52 54 48 45 CALL PRTHE
00D190: 58 31 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 X1.. LD
00D1A0: 48 4C 2C 54 4F 43 46 4F 52 49 0D 0A 20 20 20 20 HL,TOCFORI..
00D1B0: 20 20 20 20 20 43 41 4C 4C 20 50 52 54 0D 0A 20 CALL PRT..
00D1C0: 20 20 20 20 20 20 20 20 4C 44 20 41 2C 28 4F 43 LD A,(OC
00D1D0: 52 45 4D 50 29 0D 0A 20 20 20 20 20 20 20 20 20 REMP)..
00D1E0: 43 41 4C 4C 20 50 52 54 48 45 58 31 0D 0A 20 20 CALL PRTHEX1..
00D1F0: 20 20 20 20 20 20 20 43 41 4C 4C 20 41 53 54 45 CALL ASTE
00D200: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
00D210: 0B 00 01 00 02 09 4E E5 0B 00 C1 02 00 00 00 02 ......N.........
00D220: 0B 00 C2 02 00 00 00 02 0B 00 C3 02 00 00 00 02 ................
00D230: 0B 00 C4 02 00 00 00 02 0B 00 C5 02 00 00 00 02 ................
00D240: 0B 00 C6 02 00 00 00 02 0B 00 C7 02 00 00 00 02 ................
00D250: 0B 00 C8 02 00 00 00 02 0B 00 C9 02 00 00 00 02 ................
00D260: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D270: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D280: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D290: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D2A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D2B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D2C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D2D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D2E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D2F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D300: 52 49 51 55 45 0D 0A 20 20 20 20 20 20 20 20 20 RIQUE..
00D310: 53 43 46 0D 0A 20 20 20 20 20 20 20 20 20 52 45 SCF.. RE
00D320: 54 0D 0A 20 3B 0D 0A 20 49 4D 50 50 49 53 54 20 T.. ;.. IMPPIST
00D330: 4C 44 20 48 4C 2C 54 50 49 53 54 20 20 20 20 20 LD HL,TPIST
00D340: 3B 53 75 62 20 72 6F 75 74 69 6E 65 20 69 6D 70 ;Sub routine imp
00D350: 72 69 6D 65 72 20 70 69 73 74 65 0D 0A 20 20 20 rimer piste..
00D360: 20 20 20 20 20 20 43 41 4C 4C 20 50 52 54 0D 0A CALL PRT..
00D370: 20 20 20 20 20 20 20 20 20 4C 44 20 41 2C 28 50 LD A,(P
00D380: 49 53 54 53 45 4C 29 0D 0A 20 20 20 20 20 20 20 ISTSEL)..
00D390: 20 20 43 41 4C 4C 20 50 52 54 44 45 43 49 41 0D CALL PRTDECIA.
00D3A0: 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 . ;.. LD
00D3B0: 20 41 2C 28 46 4C 41 47 46 4E 43 29 20 20 3B 49 A,(FLAGFNC) ;I
00D3C0: 6D 70 72 69 6D 65 72 20 73 27 69 6C 20 79 2D 61 mprimer s'il y-a
00D3D0: 20 6C 69 65 75 20 6C 65 73 20 66 61 75 78 20 47 lieu les faux G
00D3E0: 41 50 53 20 6F 75 0D 0A 20 20 20 20 20 20 20 20 APS ou..
00D3F0: 20 41 4E 44 20 25 30 31 30 31 30 30 30 30 20 20 AND %01010000
00D400: 20 3B 66 61 75 73 73 65 73 20 6C 6F 6E 67 75 65 ;fausses longue
00D410: 75 72 73 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 urs.. JR
00D420: 20 5A 2C 50 41 53 46 31 0D 0A 20 3B 0D 0A 20 20 Z,PASF1.. ;..
00D430: 20 20 20 20 20 20 20 4C 44 20 48 4C 2C 54 46 41 LD HL,TFA
00D440: 55 47 41 49 0D 0A 20 20 20 20 20 20 20 20 20 43 UGAI.. C
00D450: 41 4C 4C 20 50 52 54 0D 0A 20 20 20 20 20 20 20 ALL PRT..
00D460: 20 20 4C 44 20 41 2C 28 46 41 55 58 47 41 50 29 LD A,(FAUXGAP)
00D470: 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 .. CALL
00D480: 50 52 54 48 45 58 31 0D 0A 20 3B 0D 0A 20 20 20 PRTHEX1.. ;..
00D490: 20 20 20 20 20 20 4C 44 20 48 4C 2C 54 4C 46 41 LD HL,TLFA
00D4A0: 55 47 49 0D 0A 20 20 20 20 20 20 20 20 20 43 41 UGI.. CA
00D4B0: 4C 4C 20 50 52 54 0D 0A 20 20 20 20 20 20 20 20 LL PRT..
00D4C0: 20 4C 44 20 41 2C 28 46 41 55 58 4C 47 46 29 0D LD A,(FAUXLGF).
00D4D0: 0A 20 20 20 20 20 20 20 20 20 4A 50 20 50 52 54 . JP PRT
00D4E0: 48 45 58 31 0D 0A 20 3B 0D 0A 20 50 41 53 46 31 HEX1.. ;.. PASF1
00D4F0: 20 20 20 4C 44 20 41 2C 28 46 4C 41 47 46 4E 43 LD A,(FLAGFNC
00D500: 29 0D 0A 20 20 20 20 20 20 20 20 20 41 4E 44 20 ).. AND
00D510: 25 30 30 31 30 30 30 30 30 0D 0A 20 20 20 20 20 %00100000..
00D520: 20 20 20 20 52 45 54 20 5A 20 20 20 0D 0A 20 3B RET Z .. ;
00D530: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 48 4C .. LD HL
00D540: 2C 54 44 49 46 4C 45 49 0D 0A 20 20 20 20 20 20 ,TDIFLEI..
00D550: 20 20 20 43 41 4C 4C 20 50 52 54 20 20 20 20 0D CALL PRT .
00D560: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 41 2C 28 . LD A,(
00D570: 4C 4D 49 4E 29 0D 0A 20 20 20 20 20 20 20 20 20 LMIN)..
00D580: 43 41 4C 4C 20 50 52 54 44 45 43 49 41 0D 0A 20 CALL PRTDECIA..
00D590: 3B 0D 0A 20 57 41 49 54 41 20 20 20 4C 44 20 41 ;.. WAITA LD A
00D5A0: 2C 22 61 22 0D 0A 20 20 20 20 20 20 20 20 20 43 ,"a".. C
00D5B0: 41 4C 4C 20 23 42 44 32 42 0D 0A 20 20 20 20 20 ALL #BD2B..
00D5C0: 20 20 20 20 4A 52 20 4E 43 2C 57 41 49 54 41 0D JR NC,WAITA.
00D5D0: 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 43 41 . ;.. CA
00D5E0: 4C 4C 20 53 50 41 43 45 0D 0A 20 20 20 20 20 20 LL SPACE..
00D5F0: 20 20 20 4C 44 20 41 2C 28 4C 4D 41 58 29 0D 0A LD A,(LMAX)..
00D600: 20 20 20 20 20 20 20 20 20 4A 50 20 50 52 54 44 JP PRTD
00D610: 45 43 49 41 20 0D 0A 20 3B 0D 0A 20 41 53 54 45 ECIA .. ;.. ASTE
00D620: 52 49 51 55 45 20 43 41 4C 4C 20 43 52 20 20 20 RIQUE CALL CR
00D630: 3B 49 6D 70 72 69 6D 65 72 20 6C 27 61 73 74 65 ;Imprimer l'aste
00D640: 72 69 71 75 65 20 66 69 6E 61 6C 20 65 74 20 72 rique final et r
00D650: 65 69 6E 69 74 69 61 6C 69 73 65 72 20 6C 65 20 einitialiser le
00D660: 6D 6F 64 65 0D 0A 20 20 20 20 20 20 20 20 20 57 mode.. W
00D670: 41 49 54 41 53 54 20 20 20 20 20 3B 70 72 6F 67 AITAST ;prog
00D680: 72 61 6D 6D 65 20 6E 6F 72 6D 61 6C 0D 0A 20 20 ramme normal..
00D690: 20 20 20 20 20 20 20 4C 44 20 41 2C 22 2A 22 0D LD A,"*".
00D6A0: 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 23 . CALL #
00D6B0: 42 44 32 42 0D 0A 20 20 20 20 20 20 20 20 20 4A BD2B.. J
00D6C0: 52 20 4E 43 2C 57 41 49 54 41 53 54 0D 0A 20 20 R NC,WAITAST..
00D6D0: 20 20 20 20 20 20 20 43 41 4C 4C 20 43 52 0D 0A CALL CR..
00D6E0: 20 20 20 20 20 20 20 20 20 4A 50 20 52 45 53 49 JP RESI
00D6F0: 4D 50 0D 0A 20 0D 0A 20 43 52 49 4D 50 31 20 20 MP.. .. CRIMP1
00D700: 4C 44 20 43 2C 33 0D 0A 20 20 20 20 20 20 20 20 LD C,3..
00D710: 20 4A 50 20 43 52 0D 0A 20 3B 0D 0A 20 54 50 49 JP CR.. ;.. TPI
00D720: 53 54 20 20 20 44 42 20 22 50 69 73 74 65 3A 20 ST DB "Piste:
00D730: 22 2C 23 38 30 20 20 20 20 20 20 20 20 20 20 20 ",#80
00D740: 20 20 20 20 20 3B 54 45 58 54 45 53 20 49 4D 50 ;TEXTES IMP
00D750: 52 49 4D 41 4E 54 45 0D 0A 20 54 4C 45 4E 53 49 RIMANTE.. TLENSI
00D760: 20 20 44 42 20 22 54 61 69 6C 6C 65 20 72 65 65 DB "Taille ree
00D770: 6C 6C 65 20 3A 20 26 22 2C 23 38 30 0D 0A 20 54 lle : &",#80.. T
00D780: 47 41 50 49 20 20 20 44 42 20 22 47 41 50 2D 46 GAPI DB "GAP-F
00D790: 20 20 26 22 2C 23 38 30 0D 0A 20 54 4C 47 41 50 &",#80.. TLGAP
00D7A0: 49 20 20 44 42 20 22 4C 6F 6E 67 75 65 75 72 20 I DB "Longueur
00D7B0: 47 41 50 20 3A 20 26 22 2C 23 38 30 0D 0A 20 54 GAP : &",#80.. T
00D7C0: 4F 43 46 4F 52 49 20 44 42 20 22 4F 63 74 65 74 OCFORI DB "Octet
00D7D0: 20 66 6F 72 6D 61 74 61 67 65 20 3A 20 26 22 2C formatage : &",
00D7E0: 23 38 30 0D 0A 20 4E 42 53 45 43 49 20 20 44 42 #80.. NBSECI DB
00D7F0: 20 22 4E 6F 6D 62 72 65 20 64 65 20 73 65 63 74 "Nombre de sect
00D800: 65 75 72 73 20 3A 20 22 2C 23 38 30 0D 0A 20 54 eurs : ",#80.. T
00D810: 53 45 50 49 4D 50 20 44 42 20 22 20 20 20 3E 20 SEPIMP DB " >
00D820: 22 2C 23 38 30 0D 0A 20 3B 0D 0A 20 53 45 54 49 ",#80.. ;.. SETI
00D830: 4D 50 20 20 4C 44 20 48 4C 2C 23 42 44 32 42 20 MP LD HL,#BD2B
00D840: 20 20 20 20 3B 52 45 4D 50 4C 41 43 45 52 20 4C ;REMPLACER L
00D850: 45 53 20 23 42 42 35 41 20 44 55 20 50 52 4F 47 ES #BB5A DU PROG
00D860: 52 41 4D 4D 45 20 50 41 52 20 55 4E 20 56 45 43 RAMME PAR UN VEC
00D870: 54 45 55 52 0D 0A 20 20 20 20 20 20 20 20 20 4C TEUR.. L
00D880: 44 20 41 2C 23 43 39 20 20 20 20 20 20 20 20 3B D A,#C9 ;
00D890: 49 4D 50 52 49 4D 41 4E 54 45 0D 0A 20 20 20 20 IMPRIMANTE..
00D8A0: 20 20 20 20 20 4A 52 20 49 4E 49 4D 50 0D 0A 20 JR INIMP..
00D8B0: 3B 0D 0A 20 52 45 53 49 4D 50 20 20 4C 44 20 48 ;.. RESIMP LD H
00D8C0: 4C 2C 23 42 42 35 41 20 20 20 20 20 3B 46 41 49 L,#BB5A ;FAI
00D8D0: 52 45 20 4C 45 20 43 4F 4E 54 52 41 49 52 45 0D RE LE CONTRAIRE.
00D8E0: 0A 20 20 20 20 20 20 20 20 20 58 4F 52 20 41 0D . XOR A.
00D8F0: 0A 20 49 4E 49 4D 50 20 20 20 4C 44 20 28 43 52 . INIMP LD (CR
00D900: 31 2B 31 29 2C 48 4C 0D 0A 20 20 20 20 20 20 20 1+1),HL..
00D910: 20 20 4C 44 20 28 50 52 54 32 2B 31 29 2C 48 4C LD (PRT2+1),HL
00D920: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 4F .. LD (O
00D930: 4B 48 45 58 2B 31 29 2C 48 4C 0D 0A 20 20 20 20 KHEX+1),HL..
00D940: 20 20 20 20 20 4C 44 20 28 49 4D 50 45 52 52 31 LD (IMPERR1
00D950: 2B 31 29 2C 48 4C 0D 0A 20 20 20 20 20 20 20 20 +1),HL..
00D960: 20 4C 44 20 28 43 41 52 52 59 2B 31 29 2C 48 4C LD (CARRY+1),HL
00D970: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 50 .. LD (P
00D980: 52 54 41 2B 31 29 2C 48 4C 0D 0A 20 20 20 20 20 RTA+1),HL..
00D990: 20 20 20 20 4C 44 20 28 52 45 54 49 4D 50 29 2C LD (RETIMP),
00D9A0: 41 0D 0A 20 20 20 20 20 20 20 20 20 52 45 54 20 A.. RET
00D9B0: 0D 0A 20 3B 0D 0A 20 54 52 41 4E 53 33 49 44 20 .. ;.. TRANS3ID
00D9C0: 49 4E 43 20 48 4C 20 20 20 20 20 20 20 20 20 3B INC HL ;
00D9D0: 43 6F 6D 6D 65 20 76 65 72 73 69 6F 6E 20 70 72 Comme version pr
00D9E0: 65 63 65 64 65 6E 74 65 0D 0A 20 20 20 20 20 20 ecedente..
00D9F0: 20 20 20 4C 44 20 41 2C 28 48 4C 29 0D 0A 20 20 LD A,(HL)..
00DA00: 20 20 20 20 20 20 20 4C 44 20 28 51 55 41 54 52 LD (QUATR
00DA10: 49 44 2B 31 29 2C 41 0D 0A 20 20 20 20 20 20 20 ID+1),A..
00DA20: 20 20 49 4E 43 20 48 4C 0D 0A 20 20 20 20 20 20 INC HL..
00DA30: 20 20 20 4C 44 20 41 2C 28 48 4C 29 0D 0A 20 20 LD A,(HL)..
00DA40: 20 20 20 20 20 20 20 4C 44 20 28 51 55 41 54 52 LD (QUATR
00DA50: 49 44 2B 32 29 2C 41 20 20 20 20 0D 0A 20 20 20 ID+2),A ..
00DA60: 20 20 20 20 20 20 4C 44 20 28 44 45 52 53 45 43 LD (DERSEC
00DA70: 29 2C 41 20 20 20 0D 0A 20 20 20 20 20 20 20 20 ),A ..
00DA80: 20 49 4E 43 20 48 4C 20 20 0D 0A 20 20 20 20 20 INC HL ..
00DA90: 20 20 20 20 4C 44 20 41 2C 28 48 4C 29 0D 0A 20 LD A,(HL)..
00DAA0: 20 20 20 20 20 20 20 20 4C 44 20 28 51 55 41 54 LD (QUAT
00DAB0: 52 49 44 2B 33 29 2C 41 0D 0A 20 20 20 20 20 20 RID+3),A..
00DAC0: 20 20 20 52 45 54 0D 0A 20 3B 0D 0A 20 46 49 58 RET.. ;.. FIX
00DAD0: 50 41 52 41 20 43 41 4C 4C 20 49 44 34 54 52 41 PARA CALL ID4TRA
00DAE0: 4E 53 20 20 20 3B 43 6F 6D 6D 65 20 76 65 72 73 NS ;Comme vers
00DAF0: 69 6F 6E 20 70 72 65 63 65 64 65 6E 74 65 0D 0A ion precedente..
00DB00: 20 20 20 20 20 20 20 20 20 4C 44 20 41 2C 28 4C LD A,(L
00DB10: 45 4E 53 45 43 29 0D 0A 20 20 20 20 20 20 20 20 ENSEC)..
00DB20: 20 4C 44 20 28 51 55 41 54 52 49 44 2B 33 29 2C LD (QUATRID+3),
00DB30: 41 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 44 A.. LD D
00DB40: 45 2C 2D 34 0D 0A 20 20 20 20 20 20 20 20 20 41 E,-4.. A
00DB50: 44 44 20 48 4C 2C 44 45 0D 0A 20 20 20 20 20 20 DD HL,DE..
00DB60: 20 20 20 4C 44 20 48 4C 2C 51 55 41 54 52 49 44 LD HL,QUATRID
00DB70: 2B 32 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 +2.. LD
00DB80: 41 2C 28 48 4C 29 0D 0A 20 20 20 20 20 20 20 20 A,(HL)..
00DB90: 20 4C 44 20 28 50 52 45 4D 53 45 43 29 2C 41 20 LD (PREMSEC),A
00DBA0: 20 0D 0A 20 20 20 20 20 20 20 20 20 49 4E 43 20 .. INC
00DBB0: 48 4C 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 HL.. LD
00DBC0: 41 2C 28 4E 42 53 45 43 29 0D 0A 20 20 20 20 20 A,(NBSEC)..
00DBD0: 20 20 20 20 4C 44 20 48 4C 2C 49 44 49 4E 44 52 LD HL,IDINDR
00DBE0: 41 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 44 A.. LD D
00DBF0: 45 2C 34 0D 0A 20 20 20 20 20 20 20 20 20 44 45 E,4.. DE
00DC00: 43 20 41 0D 0A 20 50 54 44 45 52 53 45 43 20 41 C A.. PTDERSEC A
00DC10: 44 44 20 48 4C 2C 44 45 0D 0A 20 20 20 20 20 20 DD HL,DE..
00DC20: 20 20 20 44 45 43 20 41 0D 0A 20 20 20 20 20 20 DEC A..
00DC30: 20 20 20 4A 52 20 4E 5A 2C 50 54 44 45 52 53 45 JR NZ,PTDERSE
00DC40: 43 0D 0A 20 20 20 20 20 20 20 20 20 49 4E 43 20 C.. INC
00DC50: 48 4C 0D 0A 20 20 20 20 20 20 20 20 20 49 4E 43 HL.. INC
00DC60: 20 48 4C 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 HL.. LD
00DC70: 20 41 2C 28 48 4C 29 0D 0A 20 20 20 20 20 20 20 A,(HL)..
00DC80: 20 20 4C 44 20 28 44 45 52 53 45 43 29 2C 41 0D LD (DERSEC),A.
00DC90: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 41 2C 28 . LD A,(
00DCA0: 47 41 50 46 4F 52 4D 29 0D 0A 20 20 20 20 20 20 GAPFORM)..
00DCB0: 20 20 20 53 52 4C 20 41 0D 0A 20 20 20 20 20 20 SRL A..
00DCC0: 20 20 20 4A 52 20 4E 5A 2C 4F 4B 47 41 50 52 57 JR NZ,OKGAPRW
00DCD0: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 41 2C .. LD A,
00DCE0: 31 0D 0A 20 4F 4B 47 41 50 52 57 20 4C 44 20 28 1.. OKGAPRW LD (
00DCF0: 47 41 50 52 57 29 2C 41 0D 0A 20 20 20 20 20 20 GAPRW),A..
00DD00: 20 20 20 53 43 46 0D 0A 20 20 20 20 20 20 20 20 SCF..
00DD10: 20 52 45 54 0D 0A 20 0D 0A 20 46 49 58 4C 46 46 RET.. .. FIXLFF
00DD20: 20 20 4C 44 20 41 2C 28 51 55 41 54 52 49 44 2B LD A,(QUATRID+
00DD30: 33 29 0D 0A 20 20 20 20 20 20 20 20 20 4F 52 20 3).. OR
00DD40: 41 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 20 5A A.. JR Z
00DD50: 2C 4E 4F 54 5A 45 52 58 0D 0A 20 20 20 20 20 20 ,NOTZERX..
00DD60: 20 20 20 4C 44 20 41 2C 23 46 46 0D 0A 20 4E 4F LD A,#FF.. NO
00DD70: 54 5A 45 52 58 20 4C 44 20 28 4C 53 5A 45 52 4F TZERX LD (LSZERO
00DD80: 29 2C 41 0D 0A 20 20 20 20 20 20 20 20 20 52 45 ),A.. RE
00DD90: 54 0D 0A 20 3B 0D 0A 20 56 49 53 49 4E 53 54 20 T.. ;.. VISINST
00DDA0: 50 55 53 48 20 48 4C 20 20 20 20 20 20 20 20 20 PUSH HL
00DDB0: 3B 43 61 20 63 27 65 73 74 20 56 49 53 45 53 45 ;Ca c'est VISESE
00DDC0: 43 20 6D 6F 64 69 66 69 65 20 6C 65 20 70 72 69 C modifie le pri
00DDD0: 6E 63 69 70 65 20 65 73 74 20 6C 65 20 6D 65 6D ncipe est le mem
00DDE0: 65 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C e.. CALL
00DDF0: 20 54 53 54 44 49 44 43 20 20 20 20 3B 6D 61 69 TSTDIDC ;mai
00DE00: 73 20 63 27 65 73 74 20 75 6E 20 70 65 75 20 70 s c'est un peu p
00DE10: 6C 75 73 20 72 61 70 69 64 65 20 2E 20 4F 6E 20 lus rapide . On
00DE20: 56 69 73 65 20 61 75 73 73 69 20 6C 65 0D 0A 20 Vise aussi le..
00DE30: 20 20 20 20 20 20 20 20 50 4F 50 20 20 48 4C 20 POP HL
00DE40: 20 20 20 20 20 20 20 20 3B 70 72 65 6D 69 65 72 ;premier
00DE50: 20 73 65 63 74 65 75 72 20 2C 20 64 61 6E 73 20 secteur , dans
00DE60: 63 65 72 74 61 69 6E 73 20 63 61 73 20 63 27 65 certains cas c'e
00DE70: 73 74 20 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 st .. ;..
00DE80: 20 20 4C 44 20 41 2C 28 43 4F 55 4E 54 29 20 20 LD A,(COUNT)
00DE90: 20 20 3B 69 6E 64 69 73 70 65 6E 73 61 62 6C 65 ;indispensable
00DEA0: 0D 0A 20 20 20 20 20 20 20 20 20 4F 52 20 41 20 .. OR A
00DEB0: 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 4A 50 .. JP
00DEC0: 20 5A 2C 49 4E 53 54 52 55 39 0D 0A 20 3B 0D 0A Z,INSTRU9.. ;..
00DED0: 20 20 20 20 20 20 20 20 20 50 55 53 48 20 42 43 PUSH BC
00DEE0: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 42 2C .. LD B,
00DEF0: 41 0D 0A 20 50 4F 49 4E 53 45 43 20 43 41 4C 4C A.. POINSEC CALL
00DF00: 20 49 4E 53 54 52 55 32 0D 0A 20 20 20 20 20 20 INSTRU2..
00DF10: 20 20 20 43 41 4C 4C 20 52 45 53 55 4C 54 0D 0A CALL RESULT..
00DF20: 20 20 20 20 20 20 20 20 20 44 4A 4E 5A 20 50 4F DJNZ PO
00DF30: 49 4E 53 45 43 0D 0A 20 20 20 20 20 20 20 20 20 INSEC..
00DF40: 50 4F 50 20 42 43 0D 0A 20 3B 0D 0A 20 20 20 20 POP BC.. ;..
00DF50: 20 20 20 20 20 4A 50 20 49 4E 53 54 52 55 39 0D JP INSTRU9.
00DF60: 0A 20 3B 0D 0A 20 3B 2D 20 41 66 66 69 63 68 65 . ;.. ;- Affiche
00DF70: 72 20 6C 65 73 20 65 72 72 65 75 72 73 20 61 20 r les erreurs a
00DF80: 6C 27 61 6E 61 6C 79 73 65 20 2D 0D 0A 20 3B 0D l'analyse -.. ;.
00DF90: 0A 20 50 52 54 33 45 52 52 31 20 4C 44 20 48 4C . PRT3ERR1 LD HL
00DFA0: 2C 54 45 52 52 53 20 20 20 20 3B 43 6F 6D 6D 65 ,TERRS ;Comme
00DFB0: 20 76 65 72 73 69 6F 6E 20 70 72 65 63 65 64 65 version precede
00DFC0: 6E 74 65 0D 0A 20 20 20 20 20 20 20 20 20 43 41 nte.. CA
00DFD0: 4C 4C 20 50 52 54 0D 0A 20 3B 0D 0A 20 50 52 54 LL PRT.. ;.. PRT
00DFE0: 33 45 52 52 20 4C 44 20 41 2C 28 46 4C 41 47 45 3ERR LD A,(FLAGE
00DFF0: 52 52 29 0D 0A 20 50 52 54 33 45 52 32 20 4C 44 RR).. PRT3ER2 LD
00E000: 20 48 4C 2C 54 4F 4B 0D 0A 20 3B 0D 0A 20 20 20 HL,TOK.. ;..
00E010: 20 20 20 20 20 20 4F 52 20 41 0D 0A 20 20 20 20 OR A..
00E020: 20 20 20 20 20 4A 50 20 5A 2C 50 52 54 0D 0A 20 JP Z,PRT..
00E030: 3B 0D 0A 20 50 52 54 45 52 52 33 20 4C 44 20 48 ;.. PRTERR3 LD H
00E040: 4C 2C 54 45 52 52 46 44 43 0D 0A 20 20 20 20 20 L,TERRFDC..
00E050: 20 20 20 20 4C 44 20 44 45 2C 33 0D 0A 20 20 20 LD DE,3..
00E060: 20 20 20 20 20 20 4C 44 20 42 2C 38 0D 0A 20 4C LD B,8.. L
00E070: 4F 4F 4B 45 52 52 20 52 4C 43 20 41 0D 0A 20 20 OOKERR RLC A..
00E080: 20 20 20 20 20 20 20 4A 52 20 4E 43 2C 4E 4F 42 JR NC,NOB
00E090: 49 54 0D 0A 20 20 20 20 20 20 20 20 20 50 55 53 IT.. PUS
00E0A0: 48 20 42 43 0D 0A 20 20 20 20 20 20 20 20 20 50 H BC.. P
00E0B0: 55 53 48 20 41 46 0D 0A 20 20 20 20 20 20 20 20 USH AF..
00E0C0: 20 4C 44 20 42 2C 33 20 20 0D 0A 20 50 52 54 45 LD B,3 .. PRTE
00E0D0: 52 52 31 20 4C 44 20 41 2C 28 48 4C 29 0D 0A 20 RR1 LD A,(HL)..
00E0E0: 49 4D 50 45 52 52 31 20 43 41 4C 4C 20 23 42 42 IMPERR1 CALL #BB
00E0F0: 35 41 0D 0A 20 20 20 20 20 20 20 20 20 49 4E 43 5A.. INC
00E100: 20 48 4C 0D 0A 20 20 20 20 20 20 20 20 20 44 4A HL.. DJ
00E110: 4E 5A 20 50 52 54 45 52 52 31 0D 0A 20 20 20 20 NZ PRTERR1..
00E120: 20 20 20 20 20 50 4F 50 20 41 46 0D 0A 20 20 20 POP AF..
00E130: 20 20 20 20 20 20 50 4F 50 20 42 43 0D 0A 20 20 POP BC..
00E140: 20 20 20 20 20 20 20 4A 52 20 4F 55 49 42 49 54 JR OUIBIT
00E150: 20 20 20 0D 0A 20 4E 4F 42 49 54 20 20 20 41 44 .. NOBIT AD
00E160: 44 20 48 4C 2C 44 45 0D 0A 20 4F 55 49 42 49 54 D HL,DE.. OUIBIT
00E170: 20 20 44 4A 4E 5A 20 4C 4F 4F 4B 45 52 52 0D 0A DJNZ LOOKERR..
00E180: 20 52 45 54 49 4D 50 20 20 44 42 20 30 20 20 20 RETIMP DB 0
00E190: 3B 52 65 74 6F 75 72 20 69 6D 70 72 69 6D 61 6E ;Retour impriman
00E1A0: 74 65 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 te.. LD
00E1B0: 41 2C 38 0D 0A 20 20 20 20 20 20 20 20 20 43 41 A,8.. CA
00E1C0: 4C 4C 20 23 42 42 35 41 20 20 20 20 3B 52 65 63 LL #BB5A ;Rec
00E1D0: 75 6C 65 72 20 75 6E 65 20 63 61 73 65 20 73 69 uler une case si
00E1E0: 20 74 72 6F 70 20 64 27 65 72 72 65 75 72 73 0D trop d'erreurs.
00E1F0: 0A 20 20 20 20 20 20 20 20 20 52 45 54 0D 0A 20 . RET..
00E200: 3B 0D 0A 20 54 4F 4B 20 20 20 20 20 44 42 20 22 ;.. TOK DB "
00E210: 4F 4B 22 2C 38 2C 23 38 38 0D 0A 20 54 45 52 52 OK",8,#88.. TERR
00E220: 53 20 20 20 44 42 20 23 31 46 2C 31 2C 23 31 36 S DB #1F,1,#16
00E230: 2C 37 2C 23 31 38 0D 0A 20 20 20 20 20 20 20 20 ,7,#18..
00E240: 20 44 42 20 22 20 45 74 61 74 20 64 27 65 72 72 DB " Etat d'err
00E250: 65 75 72 20 20 22 2C 23 31 38 2C 22 20 4F 4B 22 eur ",#18," OK"
00E260: 2C 38 2C 23 38 38 0D 0A 20 54 45 52 52 46 44 43 ,8,#88.. TERRFDC
00E270: 20 44 42 20 22 45 50 20 48 44 20 43 52 20 4E 44 DB "EP HD CR ND
00E280: 20 43 4D 20 44 44 20 4D 41 20 44 41 20 22 0D 0A CM DD MA DA "..
00E290: 20 54 4E 42 53 45 43 20 20 44 42 20 33 31 2C 31 TNBSEC DB 31,1
00E2A0: 2C 33 2C 22 4E 6F 6D 62 72 65 20 73 65 63 74 65 ,3,"Nombre secte
00E2B0: 75 72 73 3A 20 22 2C 23 38 30 0D 0A 20 54 4C 45 urs: ",#80.. TLE
00E2C0: 4E 20 20 20 20 44 42 20 33 31 2C 31 2C 34 2C 22 N DB 31,1,4,"
00E2D0: 54 61 69 6C 6C 65 20 72 65 65 6C 6C 65 20 20 3A Taille reelle :
00E2E0: 20 26 22 2C 23 38 30 0D 0A 20 54 4C 4F 4E 47 20 &",#80.. TLONG
00E2F0: 20 20 44 42 20 33 31 2C 31 2C 35 2C 22 4E 6F 6D DB 31,1,5,"Nom
00E300: 62 72 65 20 6F 63 74 65 74 73 20 20 3A 20 22 2C bre octets : ",
00E310: 23 38 30 0D 0A 20 54 47 41 50 46 20 20 20 44 42 #80.. TGAPF DB
00E320: 20 33 31 2C 31 2C 36 2C 22 4F 63 74 65 74 20 47 31,1,6,"Octet G
00E330: 41 50 2D 46 20 20 20 20 3A 20 26 22 2C 23 38 30 AP-F : &",#80
00E340: 0D 0A 20 54 4C 47 41 50 46 20 20 44 42 20 33 31 .. TLGAPF DB 31
00E350: 2C 31 2C 37 2C 22 4C 6F 6E 67 75 65 75 72 20 47 ,1,7,"Longueur G
00E360: 41 50 2D 46 20 3A 20 26 22 2C 23 38 30 0D 0A 20 AP-F : &",#80..
00E370: 54 4F 43 52 45 4D 50 20 44 42 20 33 31 2C 31 2C TOCREMP DB 31,1,
00E380: 38 2C 22 4F 63 74 65 74 20 66 6F 72 6D 61 74 61 8,"Octet formata
00E390: 67 65 3A 20 26 22 2C 23 38 30 0D 0A 20 54 46 41 ge: &",#80.. TFA
00E3A0: 55 47 41 50 20 44 42 20 33 31 2C 31 2C 31 30 0D UGAP DB 31,1,10.
00E3B0: 0A 20 54 46 41 55 47 41 49 20 44 42 20 22 56 41 . TFAUGAI DB "VA
00E3C0: 4C 45 55 52 20 46 41 55 58 20 47 41 50 3A 20 26 LEUR FAUX GAP: &
00E3D0: 22 2C 23 38 30 0D 0A 20 54 4C 46 41 55 47 41 20 ",#80.. TLFAUGA
00E3E0: 44 42 20 33 31 2C 31 2C 31 31 0D 0A 20 54 4C 46 DB 31,1,11.. TLF
00E3F0: 41 55 47 49 20 44 42 20 22 4C 4F 4E 47 2E 20 20 AUGI DB "LONG.
00E400: 46 41 55 58 20 47 41 50 3A 20 26 22 2C 23 38 30 FAUX GAP: &",#80
00E410: 0D 0A 20 54 46 41 55 4C 45 4E 20 44 42 20 33 31 .. TFAULEN DB 31
00E420: 2C 31 2C 31 32 2C 22 46 41 55 53 53 45 20 54 41 ,1,12,"FAUSSE TA
00E430: 49 4C 4C 45 20 20 3A 20 22 2C 23 38 30 0D 0A 20 ILLE : ",#80..
00E440: 54 44 49 46 4C 45 4E 20 44 42 20 33 31 2C 31 2C TDIFLEN DB 31,1,
00E450: 31 30 0D 0A 20 54 44 49 46 4C 45 49 20 44 42 20 10.. TDIFLEI DB
00E460: 22 4C 4F 4E 47 2E 20 50 4F 53 53 2E 20 3A 22 2C "LONG. POSS. :",
00E470: 23 38 30 0D 0A 20 54 4C 49 54 53 45 43 54 20 44 #80.. TLITSECT D
00E480: 42 20 33 31 2C 32 2C 32 33 2C 22 20 4C 45 43 54 B 31,2,23," LECT
00E490: 55 52 45 20 53 45 43 54 45 55 52 53 22 2C 23 38 URE SECTEURS",#8
00E4A0: 30 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 0.. ;..
00E4B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00E4C0: 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ---------------
00E4D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 0D 0A 20 20 20 ---------....
00E4E0: 20 49 63 69 20 6C 65 20 20 6C 69 73 74 69 6E 67 Ici le listing
00E4F0: 20 20 27 6C 65 63 74 75 72 65 20 20 64 65 73 20 'lecture des
00E500: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
00E510: 0C 00 01 00 02 09 4E E5 0C 00 C1 02 00 00 00 02 ......N.........
00E520: 0C 00 C2 02 00 00 00 02 0C 00 C3 02 00 00 00 02 ................
00E530: 0C 00 C4 02 00 00 00 02 0C 00 C5 02 00 00 00 02 ................
00E540: 0C 00 C6 02 00 00 00 02 0C 00 C7 02 00 00 00 02 ................
00E550: 0C 00 C8 02 00 00 00 02 0C 00 C9 02 00 00 00 02 ................
00E560: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E570: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E580: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E590: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E5A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E5B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E5C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E5D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E5E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E5F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E600: 20 49 44 53 27 20 20 2E 20 20 4C 27 69 6E 73 74 IDS' . L'inst
00E610: 72 75 63 74 69 6F 6E 20 20 27 48 41 4C 54 27 20 ruction 'HALT'
00E620: 20 72 7B 73 6F 75 74 20 6C 65 20 0D 0A 70 72 6F r{sout le ..pro
00E630: 62 6C 7D 6D 65 20 64 65 20 62 6C 6F 63 61 67 65 bl}me de blocage
00E640: 20 64 65 73 20 76 65 72 73 69 6F 6E 73 20 70 72 des versions pr
00E650: 7B 63 7B 64 65 6E 74 65 73 20 2E 0D 0A 20 20 20 {c{dentes ...
00E660: 20 50 6F 75 72 71 75 6F 69 20 63 65 20 62 6F 67 Pourquoi ce bog
00E670: 75 65 20 3F 20 50 61 72 63 65 20 20 71 75 65 20 ue ? Parce que
00E680: 20 64 61 6E 73 20 20 63 65 20 20 63 61 73 20 20 dans ce cas
00E690: 70 72 7B 63 69 73 20 2C 20 6C 65 73 20 69 6E 74 pr{cis , les int
00E6A0: 65 72 72 75 70 74 69 6F 6E 73 20 0D 0A 72 65 73 erruptions ..res
00E6B0: 74 65 6E 74 20 61 63 74 69 76 65 73 20 6C 6F 72 tent actives lor
00E6C0: 73 20 64 65 20 6C 61 20 6C 65 63 74 75 72 65 20 s de la lecture
00E6D0: 64 75 20 20 72 7B 73 75 6C 74 61 74 20 28 56 6F du r{sultat (Vo
00E6E0: 69 72 20 53 4F 53 32 20 6C 65 63 74 75 72 65 20 ir SOS2 lecture
00E6F0: 64 65 73 20 49 44 53 29 20 2E 20 0D 0A 53 69 20 des IDS) . ..Si
00E700: 70 61 72 20 6D 61 6C 68 65 75 72 20 6C 65 20 5A par malheur le Z
00E710: 38 30 20 72 65 6C 61 6E 63 65 20 73 6F 6E 20 63 80 relance son c
00E720: 79 63 6C 65 20 64 27 69 6E 74 65 72 72 75 70 74 ycle d'interrupt
00E730: 69 6F 6E 20 61 75 20 6D 6F 6D 65 6E 74 20 70 72 ion au moment pr
00E740: 7B 63 69 73 20 6F 7C 20 6C 65 20 0D 0A 46 44 43 {cis o| le ..FDC
00E750: 20 64 6F 6E 6E 65 20 6C 61 20 70 68 61 73 65 20 donne la phase
00E760: 72 7B 73 75 6C 74 61 74 20 2C 20 69 6C 20 79 2D r{sultat , il y-
00E770: 40 20 75 6E 20 63 6F 6E 66 6C 69 74 20 65 6E 74 @ un conflit ent
00E780: 72 65 20 32 20 74 79 70 65 73 20 64 27 69 6E 74 re 2 types d'int
00E790: 65 72 72 75 70 74 69 6F 6E 73 20 0D 0A 65 74 20 erruptions ..et
00E7A0: 6C 65 20 70 72 6F 67 72 61 6D 6D 65 20 62 6C 6F le programme blo
00E7B0: 71 75 65 20 2E 0D 0A 20 20 20 20 53 6F 6C 75 74 que ... Solut
00E7C0: 69 6F 6E 20 3A 20 4C 27 69 6E 73 74 72 75 63 74 ion : L'instruct
00E7D0: 69 6F 6E 20 27 48 41 4C 54 27 20 73 74 6F 70 70 ion 'HALT' stopp
00E7E0: 65 20 74 6F 75 74 65 20 20 6F 70 7B 72 61 74 69 e toute op{rati
00E7F0: 6F 6E 20 65 6E 20 63 6F 75 72 73 20 54 41 4E 54 on en cours TANT
00E800: 20 51 55 45 20 0D 0A 4C 45 20 5A 38 30 20 4E 27 QUE ..LE Z80 N'
00E810: 41 20 50 41 53 20 47 45 4E 45 52 45 20 55 4E 20 A PAS GENERE UN
00E820: 4E 4F 55 56 45 41 55 20 20 43 59 43 4C 45 20 20 NOUVEAU CYCLE
00E830: 44 27 49 4E 54 45 52 52 55 50 54 49 4F 4E 20 2E D'INTERRUPTION .
00E840: 20 49 6C 20 65 73 74 20 64 6F 6E 63 20 7B 76 69 Il est donc {vi
00E850: 64 65 6E 74 20 0D 0A 71 75 65 20 6C 61 20 70 6F dent ..que la po
00E860: 73 69 74 69 6F 6E 20 20 64 75 20 20 48 41 4C 54 sition du HALT
00E870: 20 20 61 73 73 75 72 65 20 20 71 75 27 61 75 20 assure qu'au
00E880: 20 6D 6F 6D 65 6E 74 20 20 64 65 20 20 6C 61 20 moment de la
00E890: 20 6C 65 63 74 75 72 65 20 64 75 20 72 7B 73 75 lecture du r{su
00E8A0: 6C 74 61 74 20 0D 0A 75 6E 65 20 69 6E 74 65 72 ltat ..une inter
00E8B0: 72 75 70 74 69 6F 6E 20 76 69 65 6E 74 20 64 65 ruption vient de
00E8C0: 20 73 65 20 20 70 72 6F 64 75 69 72 65 20 20 65 se produire e
00E8D0: 74 20 20 71 75 65 20 20 6E 6F 75 73 20 64 69 73 t que nous dis
00E8E0: 70 6F 73 6F 6E 73 20 64 27 31 2F 33 30 30 7D 6D posons d'1/300}m
00E8F0: 65 20 64 65 20 0D 0A 73 65 63 6F 6E 64 65 20 20 e de ..seconde
00E900: 61 76 61 6E 74 20 6C 61 20 73 75 69 76 61 6E 74 avant la suivant
00E910: 65 20 20 2E 20 20 4C 65 20 20 6D 6F 6D 65 6E 74 e . Le moment
00E920: 20 20 76 69 74 61 6C 20 20 64 65 20 20 6C 61 20 vital de la
00E930: 70 68 61 73 65 20 72 7B 73 75 6C 74 61 74 20 7B phase r{sultat {
00E940: 74 61 6E 74 20 0D 0A 65 78 7B 63 75 74 7B 20 64 tant ..ex{cut{ d
00E950: 61 6E 73 20 75 6E 20 64 7B 6C 61 69 20 70 6C 75 ans un d{lai plu
00E960: 73 20 62 72 65 66 20 2C 20 20 69 6C 20 20 65 73 s bref , il es
00E970: 74 20 20 61 6C 6F 72 73 20 63 65 72 74 61 69 6E t alors certain
00E980: 20 71 75 65 20 6C 65 20 72 7B 73 75 6C 74 61 74 que le r{sultat
00E990: 20 65 73 74 20 0D 0A 74 6F 75 6A 6F 75 72 73 20 est ..toujours
00E9A0: 72 65 6E 64 75 20 65 6E 74 72 65 20 32 20 69 6E rendu entre 2 in
00E9B0: 74 65 72 72 75 70 74 69 6F 6E 73 20 2E 20 43 2E terruptions . C.
00E9C0: 51 2E 46 2E 44 2E 2E 2E 2E 0D 0A 20 0D 0A 20 20 Q.F.D...... ..
00E9D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00E9E0: 20 20 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D --------
00E9F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00EA00: 0D 0A 3B 0D 0A 20 3B 2D 20 4C 49 52 45 20 4C 45 ..;.. ;- LIRE LE
00EA10: 53 20 49 44 20 2D 0D 0A 20 3B 0D 0A 20 56 45 52 S ID -.. ;.. VER
00EA20: 49 49 44 20 20 4C 44 20 48 4C 2C 54 4C 49 54 49 IID LD HL,TLITI
00EA30: 44 53 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C DS.. CAL
00EA40: 4C 20 50 52 54 0D 0A 20 3B 0D 0A 20 4C 49 52 45 L PRT.. ;.. LIRE
00EA50: 49 44 31 20 4C 44 20 49 58 2C 49 44 49 4E 44 52 ID1 LD IX,IDINDR
00EA60: 41 20 20 20 3B 54 61 62 6C 65 20 49 44 53 20 41 A ;Table IDS A
00EA70: 0D 0A 20 20 20 20 20 20 20 20 20 50 55 53 48 20 .. PUSH
00EA80: 49 58 0D 0A 20 20 20 20 20 20 20 20 20 50 4F 50 IX.. POP
00EA90: 20 48 4C 0D 0A 20 20 20 20 20 20 20 20 20 43 41 HL.. CA
00EAA0: 4C 4C 20 52 41 5A 49 44 53 20 20 20 20 20 3B 52 LL RAZIDS ;R
00EAB0: 41 5A 20 7A 6F 6E 65 20 49 44 0D 0A 20 3B 0D 0A AZ zone ID.. ;..
00EAC0: 20 20 20 20 20 20 20 20 20 4C 44 20 44 45 2C 49 LD DE,I
00EAD0: 44 49 4E 44 52 41 0D 0A 20 20 20 20 20 20 20 20 DINDRA..
00EAE0: 20 4C 44 20 28 50 54 52 49 44 53 29 2C 44 45 0D LD (PTRIDS),DE.
00EAF0: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 48 4C 2C . LD HL,
00EB00: 28 23 33 39 29 20 20 20 20 20 3B 50 65 74 69 74 (#39) ;Petit
00EB10: 65 20 6D 6F 64 69 66 69 63 61 74 69 6F 6E 20 0D e modification .
00EB20: 0A 20 20 20 20 20 20 20 20 20 50 55 53 48 20 48 . PUSH H
00EB30: 4C 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 L.. ;..
00EB40: 43 41 4C 4C 20 54 53 54 44 49 44 43 20 20 20 20 CALL TSTDIDC
00EB50: 3B 43 68 65 72 63 68 65 72 20 64 65 6E 73 69 74 ;Chercher densit
00EB60: 65 20 65 74 20 64 65 62 75 74 20 70 69 73 74 65 e et debut piste
00EB70: 0D 0A 20 20 20 20 20 20 20 20 20 58 4F 52 20 41 .. XOR A
00EB80: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 4E .. LD (N
00EB90: 42 46 4F 49 53 29 2C 41 0D 0A 20 3B 0D 0A 20 20 BFOIS),A.. ;..
00EBA0: 20 20 20 20 20 20 20 44 49 0D 0A 20 20 20 20 20 DI..
00EBB0: 20 20 20 20 4C 44 20 48 4C 2C 53 55 42 52 4F 55 LD HL,SUBROU
00EBC0: 54 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 T.. LD (
00EBD0: 23 33 39 29 2C 48 4C 0D 0A 20 20 20 20 20 20 20 #39),HL..
00EBE0: 20 20 4C 44 20 43 2C 23 46 46 20 20 20 20 20 20 LD C,#FF
00EBF0: 20 20 3B 23 46 46 20 50 61 72 63 65 20 71 75 27 ;#FF Parce qu'
00EC00: 75 6E 20 73 65 63 74 65 75 72 20 64 65 20 70 6C un secteur de pl
00EC10: 75 73 20 65 73 74 20 6C 75 0D 0A 20 20 20 20 20 us est lu..
00EC20: 20 20 20 20 45 49 0D 0A 20 3B 0D 0A 20 4E 45 58 EI.. ;.. NEX
00EC30: 54 49 44 20 20 49 4E 43 20 43 0D 0A 20 20 20 20 TID INC C..
00EC40: 20 20 20 20 20 50 55 53 48 20 42 43 0D 0A 20 20 PUSH BC..
00EC50: 20 20 20 20 20 20 20 43 41 4C 4C 20 49 4E 53 54 CALL INST
00EC60: 52 55 32 0D 0A 3B 0D 0A 20 20 20 20 20 20 20 20 RU2..;..
00EC70: 20 48 41 4C 54 20 20 20 20 20 20 20 20 20 20 20 HALT
00EC80: 20 3B 2A 2A 20 56 4F 49 52 20 54 45 58 54 45 20 ;** VOIR TEXTE
00EC90: 45 4E 20 54 45 54 45 20 2A 2A 0D 0A 3B 0D 0A 20 EN TETE **..;..
00ECA0: 20 20 20 20 20 20 20 20 43 41 4C 4C 20 52 45 53 CALL RES
00ECB0: 55 31 20 20 20 20 20 20 3B 52 45 53 55 4C 54 20 U1 ;RESULT
00ECC0: 73 61 6E 73 20 44 49 0D 0A 20 20 20 20 20 20 20 sans DI..
00ECD0: 20 20 4C 44 20 48 4C 2C 45 54 50 49 53 54 0D 0A LD HL,ETPIST..
00ECE0: 20 20 20 20 20 20 20 20 20 4C 44 20 44 45 2C 28 LD DE,(
00ECF0: 50 54 52 49 44 53 29 0D 0A 20 20 20 20 20 20 20 PTRIDS)..
00ED00: 20 20 4C 44 20 42 43 2C 34 20 20 20 20 20 20 20 LD BC,4
00ED10: 20 20 3B 52 61 6E 67 65 20 34 20 6F 63 74 65 74 ;Range 4 octet
00ED20: 73 20 64 75 20 72 65 73 75 6C 74 61 74 0D 0A 20 s du resultat..
00ED30: 20 20 20 20 20 20 20 20 4C 44 49 52 20 0D 0A 20 LDIR ..
00ED40: 20 20 20 20 20 20 20 20 4C 44 20 28 50 54 52 49 LD (PTRI
00ED50: 44 53 29 2C 44 45 0D 0A 20 20 20 20 20 20 20 20 DS),DE..
00ED60: 20 4C 44 20 41 2C 28 4E 42 46 4F 49 53 29 0D 0A LD A,(NBFOIS)..
00ED70: 20 20 20 20 20 20 20 20 20 43 50 20 36 30 20 20 CP 60
00ED80: 20 20 20 20 20 20 20 20 20 3B 36 30 20 66 6F 69 ;60 foi
00ED90: 73 0D 0A 20 20 20 20 20 20 20 20 20 50 4F 50 20 s.. POP
00EDA0: 42 43 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 20 BC.. JR
00EDB0: 43 2C 4E 45 58 54 49 44 0D 0A 20 3B 0D 0A 20 20 C,NEXTID.. ;..
00EDC0: 20 20 20 20 20 20 20 44 49 0D 0A 20 20 20 20 20 DI..
00EDD0: 20 20 20 20 50 4F 50 20 48 4C 0D 0A 20 20 20 20 POP HL..
00EDE0: 20 20 20 20 20 4C 44 20 28 23 33 39 29 2C 48 4C LD (#39),HL
00EDF0: 0D 0A 20 20 20 20 20 20 20 20 20 45 49 0D 0A 20 .. EI..
00EE00: 3B 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 41 ;.. LD A
00EE10: 2C 43 20 20 20 20 20 20 20 20 20 20 3B 4E 4F 55 ,C ;NOU
00EE20: 56 45 41 55 20 21 20 53 69 20 61 75 63 75 6E 20 VEAU ! Si aucun
00EE30: 73 65 63 74 65 75 72 20 70 69 73 74 65 20 6E 6F secteur piste no
00EE40: 6E 20 66 6F 72 6D 61 74 65 65 0D 0A 20 20 20 20 n formatee..
00EE50: 20 20 20 20 20 4C 44 20 28 4E 42 53 45 43 29 2C LD (NBSEC),
00EE60: 41 0D 0A 20 20 20 20 20 20 20 20 20 4F 52 20 41 A.. OR A
00EE70: 0D 0A 20 20 20 20 20 20 20 20 20 52 45 54 20 5A .. RET Z
00EE80: 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 43 .. ;.. C
00EE90: 41 4C 4C 20 49 44 34 54 52 41 4E 53 0D 0A 20 3B ALL ID4TRANS.. ;
00EEA0: 0D 0A 20 20 20 20 20 20 20 20 20 50 55 53 48 20 .. PUSH
00EEB0: 48 4C 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 HL.. LD
00EEC0: 41 2C 28 43 4F 4D 4D 41 4E 44 29 20 20 20 20 3B A,(COMMAND) ;
00EED0: 41 66 66 69 63 68 65 72 20 64 65 6E 73 69 74 65 Afficher densite
00EEE0: 0D 0A 20 20 20 20 20 20 20 20 20 43 50 20 23 34 .. CP #4
00EEF0: 41 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 41 A.. LD A
00EF00: 2C 23 46 46 0D 0A 20 20 20 20 20 20 20 20 20 4C ,#FF.. L
00EF10: 44 20 48 4C 2C 54 44 44 45 4E 53 0D 0A 20 20 20 D HL,TDDENS..
00EF20: 20 20 20 20 20 20 4A 52 20 5A 2C 53 45 54 44 45 JR Z,SETDE
00EF30: 4E 53 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 NS.. LD
00EF40: 41 2C 25 31 30 31 31 31 31 31 31 20 0D 0A 20 20 A,%10111111 ..
00EF50: 20 20 20 20 20 20 20 4C 44 20 48 4C 2C 54 53 44 LD HL,TSD
00EF60: 45 4E 53 0D 0A 20 53 45 54 44 45 4E 53 20 43 41 ENS.. SETDENS CA
00EF70: 4C 4C 20 43 48 47 44 0D 0A 20 20 20 20 20 20 20 LL CHGD..
00EF80: 20 20 50 4F 50 20 48 4C 0D 0A 20 20 20 20 20 20 POP HL..
00EF90: 20 20 20 53 43 46 0D 0A 20 20 20 20 20 20 20 20 SCF..
00EFA0: 20 52 45 54 0D 0A 20 3B 0D 0A 20 3B 2D 20 43 69 RET.. ;.. ;- Ci
00EFB0: 20 64 65 73 73 6F 75 73 20 6C 65 67 65 72 65 20 dessous legere
00EFC0: 6D 6F 64 69 66 69 63 61 74 69 6F 6E 20 71 75 69 modification qui
00EFD0: 20 70 65 72 6D 65 74 20 64 27 75 74 69 6C 69 73 permet d'utilis
00EFE0: 65 72 20 6C 61 20 6D 65 6D 65 20 72 6F 75 74 69 er la meme routi
00EFF0: 6E 65 0D 0A 20 3B 2D 20 70 6F 75 72 20 6C 65 73 ne.. ;- pour les
00F000: 20 32 20 70 72 6F 67 72 61 6D 6D 65 73 20 70 72 2 programmes pr
00F010: 65 73 65 6E 74 65 73 0D 0A 20 3B 0D 0A 20 49 44 esentes.. ;.. ID
00F020: 46 4F 52 4D 41 54 20 4C 44 20 44 45 2C 46 45 4E FORMAT LD DE,FEN
00F030: 49 44 4C 20 3B 41 66 66 69 63 68 65 72 20 6C 61 IDL ;Afficher la
00F040: 20 73 65 72 69 65 20 64 27 49 44 53 20 70 6F 75 serie d'IDS pou
00F050: 72 20 66 6F 72 6D 61 74 0D 0A 20 20 20 20 20 20 r format..
00F060: 20 20 20 4C 44 20 42 43 2C 46 45 4E 49 44 4C 31 LD BC,FENIDL1
00F070: 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 20 53 4F .. JR SO
00F080: 52 54 49 44 0D 0A 20 3B 0D 0A 20 49 44 53 34 41 RTID.. ;.. IDS4A
00F090: 46 46 20 4C 44 20 44 45 2C 46 45 4E 49 44 45 20 FF LD DE,FENIDE
00F0A0: 20 3B 41 66 66 69 63 68 65 72 20 6C 61 20 73 65 ;Afficher la se
00F0B0: 72 69 65 20 64 27 49 44 53 20 70 6F 75 72 20 61 rie d'IDS pour a
00F0C0: 6E 61 6C 79 73 65 0D 0A 20 20 20 20 20 20 20 20 nalyse..
00F0D0: 20 4C 44 20 42 43 2C 46 45 4E 49 44 4C 0D 0A 20 LD BC,FENIDL..
00F0E0: 3B 0D 0A 20 53 4F 52 54 49 44 20 20 4C 44 20 28 ;.. SORTID LD (
00F0F0: 58 46 45 4E 2B 31 29 2C 44 45 0D 0A 20 20 20 20 XFEN+1),DE..
00F100: 20 20 20 20 20 4C 44 20 28 58 46 45 4E 31 2B 31 LD (XFEN1+1
00F110: 29 2C 42 43 0D 0A 20 20 20 20 20 20 20 20 20 50 ),BC.. P
00F120: 55 53 48 20 49 58 0D 0A 20 20 20 20 20 20 20 20 USH IX..
00F130: 20 50 4F 50 20 48 4C 0D 0A 20 20 20 20 20 20 20 POP HL..
00F140: 20 20 4C 44 20 41 2C 28 4E 42 53 45 43 29 0D 0A LD A,(NBSEC)..
00F150: 20 20 20 20 20 20 20 20 20 4C 44 20 42 2C 41 0D LD B,A.
00F160: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 43 2C 30 . LD C,0
00F170: 0D 0A 20 20 20 20 20 20 20 20 20 50 55 53 48 20 .. PUSH
00F180: 42 43 0D 0A 20 3B 0D 0A 20 58 46 45 4E 20 20 20 BC.. ;.. XFEN
00F190: 20 43 41 4C 4C 20 46 45 4E 49 44 45 0D 0A 20 20 CALL FENIDE..
00F1A0: 20 20 20 20 20 20 20 43 41 4C 4C 20 49 4E 56 0D CALL INV.
00F1B0: 0A 20 41 46 46 49 44 53 20 20 43 41 4C 4C 20 41 . AFFIDS CALL A
00F1C0: 46 46 34 49 44 0D 0A 20 58 46 45 4E 31 20 20 20 FF4ID.. XFEN1
00F1D0: 43 41 4C 4C 20 5A 2C 46 45 4E 49 44 45 31 0D 0A CALL Z,FENIDE1..
00F1E0: 20 20 20 20 20 20 20 20 20 44 4A 4E 5A 20 41 46 DJNZ AF
00F1F0: 46 49 44 53 0D 0A 20 20 20 20 20 20 20 20 20 43 FIDS.. C
00F200: 41 4C 4C 20 49 4E 56 0D 0A 20 3B 0D 0A 20 20 20 ALL INV.. ;..
00F210: 20 20 20 20 20 20 50 4F 50 20 42 43 0D 0A 20 20 POP BC..
00F220: 20 20 20 20 20 20 20 52 45 54 0D 0A 20 3B 0D 0A RET.. ;..
00F230: 20 3B 2D 20 41 66 66 69 63 68 61 67 65 20 64 65 ;- Affichage de
00F240: 73 20 49 44 53 20 65 6E 20 32 20 63 6F 6C 6F 6E s IDS en 2 colon
00F250: 6E 65 73 20 2D 0D 0A 20 3B 0D 0A 20 41 46 46 34 nes -.. ;.. AFF4
00F260: 49 44 20 20 50 55 53 48 20 42 43 0D 0A 20 20 20 ID PUSH BC..
00F270: 20 20 20 20 20 20 4C 44 20 42 2C 34 20 0D 0A 20 LD B,4 ..
00F280: 20 20 20 20 20 20 20 20 43 41 4C 4C 20 53 50 41 CALL SPA
00F290: 43 45 0D 0A 20 42 43 4C 41 46 49 44 20 4C 44 20 CE.. BCLAFID LD
00F2A0: 41 2C 28 48 4C 29 20 20 20 20 20 20 20 20 20 3B A,(HL) ;
00F2B0: 41 66 66 2E 20 65 74 20 63 6F 70 2E 49 64 73 20 Aff. et cop.Ids
00F2C0: 64 61 6E 73 20 62 75 66 2E 66 6F 72 6D 61 74 0D dans buf.format.
00F2D0: 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 50 . CALL P
00F2E0: 52 54 48 45 58 31 0D 0A 20 20 20 20 20 20 20 20 RTHEX1..
00F2F0: 20 49 4E 43 20 48 4C 0D 0A 20 20 20 20 20 20 20 INC HL..
00F300: 20 20 44 4A 4E 5A 20 42 43 4C 41 46 49 44 0D 0A DJNZ BCLAFID..
00F310: 20 20 20 20 20 20 20 20 20 50 4F 50 20 42 43 0D POP BC.
00F320: 0A 20 54 53 54 43 20 20 20 20 49 4E 43 20 43 0D . TSTC INC C.
00F330: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 41 2C 43 . LD A,C
00F340: 0D 0A 20 20 20 20 20 20 20 20 20 43 50 20 31 36 .. CP 16
00F350: 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 54 65 ;Te
00F360: 73 74 65 72 20 73 69 20 31 36 20 49 44 53 20 73 ster si 16 IDS s
00F370: 6F 72 74 69 73 0D 0A 20 20 20 20 20 20 20 20 20 ortis..
00F380: 52 45 54 0D 0A 20 54 53 54 43 31 20 20 20 43 41 RET.. TSTC1 CA
00F390: 4C 4C 20 54 53 54 43 0D 0A 20 20 20 20 20 20 20 LL TSTC..
00F3A0: 20 20 52 45 54 20 5A 0D 0A 20 20 20 20 20 20 20 RET Z..
00F3B0: 20 20 43 50 20 33 32 0D 0A 20 20 20 20 20 20 20 CP 32..
00F3C0: 20 20 52 45 54 20 4E 5A 0D 0A 20 20 20 20 20 20 RET NZ..
00F3D0: 20 20 20 4C 44 20 41 2C 31 31 0D 0A 20 20 20 20 LD A,11..
00F3E0: 20 20 20 20 20 43 41 4C 4C 20 23 42 42 35 41 20 CALL #BB5A
00F3F0: 20 3B 41 6E 6E 75 6C 65 72 20 6C 65 20 64 65 72 ;Annuler le der
00F400: 6E 69 65 72 20 43 52 20 73 69 6E 6F 6E 20 73 63 nier CR sinon sc
00F410: 72 6F 6C 6C 20 46 45 4E 32 20 73 69 20 33 32 20 roll FEN2 si 32
00F420: 73 65 63 74 65 75 72 73 0D 0A 20 20 20 20 20 20 secteurs..
00F430: 20 20 20 58 4F 52 20 41 0D 0A 20 20 20 20 20 20 XOR A..
00F440: 20 20 20 49 4E 43 20 41 20 20 20 20 20 20 20 20 INC A
00F450: 20 20 20 20 20 3B 53 45 54 20 4E 5A 0D 0A 20 20 ;SET NZ..
00F460: 20 20 20 20 20 20 20 52 45 54 0D 0A 20 3B 0D 0A RET.. ;..
00F470: 20 49 44 34 54 52 41 4E 53 20 4C 44 20 48 4C 2C ID4TRANS LD HL,
00F480: 49 44 49 4E 44 52 41 0D 0A 20 49 44 54 52 41 4E IDINDRA.. IDTRAN
00F490: 53 34 20 50 55 53 48 20 42 43 0D 0A 20 20 20 20 S4 PUSH BC..
00F4A0: 20 20 20 20 20 50 55 53 48 20 44 45 0D 0A 20 20 PUSH DE..
00F4B0: 20 20 20 20 20 20 20 4C 44 20 44 45 2C 51 55 41 LD DE,QUA
00F4C0: 54 52 49 44 0D 0A 20 20 20 20 20 20 20 20 20 4C TRID.. L
00F4D0: 44 20 42 43 2C 34 0D 0A 20 20 20 20 20 20 20 20 D BC,4..
00F4E0: 20 4C 44 49 52 0D 0A 20 20 20 20 20 20 20 20 20 LDIR..
00F4F0: 50 4F 50 20 44 45 0D 0A 20 20 20 20 20 20 20 20 POP DE..
00F500: 20 50 4F 50 20 42 43 0D 0A 20 20 20 20 20 20 20 POP BC..
00F510: 20 20 52 45 54 0D 0A 20 3B 0D 0A 20 53 55 42 52 RET.. ;.. SUBR
00F520: 4F 55 54 20 44 49 20 0D 0A 20 20 20 20 20 20 20 OUT DI ..
00F530: 20 20 50 55 53 48 20 48 4C 20 0D 0A 20 20 20 20 PUSH HL ..
00F540: 20 20 20 20 20 4C 44 20 48 4C 2C 4E 42 46 4F 49 LD HL,NBFOI
00F550: 53 20 0D 0A 20 20 20 20 20 20 20 20 20 49 4E 43 S .. INC
00F560: 20 28 48 4C 29 20 0D 0A 20 20 20 20 20 20 20 20 (HL) ..
00F570: 20 50 4F 50 20 48 4C 0D 0A 20 20 20 20 20 20 20 POP HL..
00F580: 20 20 45 49 0D 0A 20 20 20 20 20 20 20 20 20 52 EI.. R
00F590: 45 54 0D 0A 20 3B 0D 0A 20 4E 42 46 4F 49 53 20 ET.. ;.. NBFOIS
00F5A0: 20 44 42 20 30 0D 0A 20 50 54 52 49 44 53 20 20 DB 0.. PTRIDS
00F5B0: 44 45 46 57 20 30 0D 0A 3B 0D 0A 20 20 20 20 20 DEFW 0..;..
00F5C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00F5D0: 20 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D ---------
00F5E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 20 ------------..
00F5F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00F600: 20 20 20 20 20 20 20 20 20 20 2D 20 45 54 55 44 - ETUD
00F610: 45 20 44 45 20 4C 41 20 50 49 53 54 45 20 2D 0D E DE LA PISTE -.
00F620: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
00F630: 20 20 20 20 20 20 20 20 20 20 20 20 20 2D 2D 2D ---
00F640: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00F650: 2D 2D 0D 0A 0D 0A 20 20 4E 6F 75 73 20 70 72 7B --.... Nous pr{
00F660: 73 65 6E 74 6F 6E 73 20 69 63 69 20 6C 27 61 6C sentons ici l'al
00F670: 67 6F 72 79 74 68 6D 65 20 54 52 45 53 20 73 69 gorythme TRES si
00F680: 6D 70 6C 69 66 69 9F E1 20 64 65 73 20 33 20 73 mplifi.. des 3 s
00F690: 65 63 74 69 6F 6E 73 20 73 75 69 76 61 6E 74 65 ections suivante
00F6A0: 73 0D 0A 0D 0A 20 20 20 20 20 20 20 20 20 20 20 s....
00F6B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00F6C0: 20 20 52 2E 41 2E 5A 20 44 45 53 20 56 41 52 49 R.A.Z DES VARI
00F6D0: 41 42 4C 45 53 0D 0A 20 20 20 20 20 20 20 20 20 ABLES..
00F6E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00F6F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0D 0A !..
00F700: 20 20 20 20 20 20 20 20 20 20 4D 41 52 51 55 45 MARQUE
00F710: 52 20 4C 41 20 50 52 45 53 45 4E 43 45 20 45 56 R LA PRESENCE EV
00F720: 45 4E 54 55 45 4C 4C 45 20 44 45 20 53 45 43 54 ENTUELLE DE SECT
00F730: 45 55 52 53 20 4D 2E 41 2E 4D 20 4F 55 20 43 52 EURS M.A.M OU CR
00F740: 2F 44 44 0D 0A 20 20 20 20 20 20 20 20 20 20 20 /DD..
00F750: 20 20 20 20 20 4D 45 4D 4F 52 49 53 45 52 20 4C MEMORISER L
00F760: 41 20 54 41 49 4C 4C 45 20 44 55 20 50 4C 55 53 A TAILLE DU PLUS
00F770: 20 47 52 41 4E 44 20 53 45 43 54 45 55 52 20 4F GRAND SECTEUR O
00F780: 4B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 K..
00F790: 20 20 20 4D 45 4D 4F 52 49 53 45 52 20 4C 41 20 MEMORISER LA
00F7A0: 54 41 49 4C 4C 45 20 44 55 20 50 4C 55 53 20 50 TAILLE DU PLUS P
00F7B0: 45 54 49 54 20 53 45 43 54 45 55 52 20 4F 4B 0D ETIT SECTEUR OK.
00F7C0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 4E 4F 54 . NOT
00F7D0: 45 52 20 4C 41 20 50 52 45 53 45 4E 43 45 20 45 ER LA PRESENCE E
00F7E0: 56 45 4E 54 55 45 4C 4C 45 20 44 45 20 50 4C 55 VENTUELLE DE PLU
00F7F0: 53 49 45 55 52 53 20 54 41 49 4C 4C 45 53 20 4F SIEURS TAILLES O
00F800: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
00F810: 0D 00 01 00 02 09 4E E5 0D 00 C1 02 00 00 00 02 ......N.........
00F820: 0D 00 C2 02 00 00 00 02 0D 00 C3 02 00 00 00 02 ................
00F830: 0D 00 C4 02 00 00 00 02 0D 00 C5 02 00 00 00 02 ................
00F840: 0D 00 C6 02 00 00 00 02 0D 00 C7 02 00 00 00 02 ................
00F850: 0D 00 C8 02 00 00 00 02 0D 00 C9 02 00 00 00 02 ................
00F860: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F870: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F880: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F890: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F8A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F8B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F8C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F8D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F8E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F8F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F900: 4B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 K..
00F910: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00F920: 20 20 20 20 20 20 20 20 20 21 0D 0A 20 20 20 20 !..
00F930: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00F940: 20 20 20 20 20 20 20 20 56 4F 49 52 20 53 49 20 VOIR SI
00F950: 4D 2E 41 2E 4D 20 45 4E 20 54 45 54 45 0D 0A 20 M.A.M EN TETE..
00F960: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00F970: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00F980: 20 20 20 20 20 21 0D 0A 20 20 20 20 20 20 20 20 !..
00F990: 20 20 20 20 20 20 20 20 20 20 2B 2D 2D 2D 2D 2D +-----
00F9A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 3C 20 4E 4F 4E 20 4F ---------< NON O
00F9B0: 55 49 20 3E 2D 2D 2D 2D 2D 2D 2B 0D 0A 20 20 20 UI >------+..
00F9C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 !
00F9D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00F9E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 !
00F9F0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
00FA00: 20 20 20 20 21 20 20 20 20 20 20 20 20 20 20 20 !
00FA10: 55 4E 20 53 45 55 4C 20 53 45 43 54 45 55 52 20 UN SEUL SECTEUR
00FA20: 3F 20 3C 2D 2B 0D 0A 20 20 20 20 20 20 20 20 20 ? <-+..
00FA30: 20 20 20 20 20 20 20 20 20 21 20 20 20 20 20 20 !
00FA40: 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0D 0A !..
00FA50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00FA60: 20 20 21 20 20 2B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ! +----------
00FA70: 2D 3C 20 4E 4F 4E 20 4F 55 49 20 3E 2D 2D 2D 2D -< NON OUI >----
00FA80: 2D 2D 2D 2D 2D 2D 3E 20 50 49 46 4F 4D 45 54 52 ------> PIFOMETR
00FA90: 45 20 45 54 20 46 49 4E 49 0D 0A 20 20 20 20 20 E ET FINI..
00FAA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 20 !
00FAB0: 21 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 !..
00FAC0: 20 20 20 20 20 21 20 20 2B 2D 2D 2D 3E 20 56 4F ! +---> VO
00FAD0: 49 52 20 53 49 20 45 58 49 53 54 45 20 55 4E 20 IR SI EXISTE UN
00FAE0: 43 52 2F 44 44 0D 0A 20 20 20 20 20 20 20 20 20 CR/DD..
00FAF0: 20 20 20 20 20 20 20 20 20 21 20 20 20 20 20 20 !
00FB00: 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0D 0A !..
00FB10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2B 2D +-
00FB20: 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D --!-------------
00FB30: 2D 3C 20 4E 4F 4E 20 4F 55 49 20 3E 2D 2D 2D 2D -< NON OUI >----
00FB40: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2B 0D 0A 20 20 20 20 ---------+..
00FB50: 20 20 20 20 20 20 20 20 20 20 21 20 20 20 21 20 ! !
00FB60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00FB70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00FB80: 20 20 20 20 20 21 0D 0A 20 20 20 20 20 20 20 20 !..
00FB90: 20 20 20 20 20 20 21 20 20 20 2B 2D 2D 2D 2D 2D ! +-----
00FBA0: 2D 3E 20 52 45 43 48 45 52 43 48 45 20 50 41 52 -> RECHERCHE PAR
00FBB0: 20 53 4F 4C 55 54 49 4F 4E 31 20 20 20 20 20 20 SOLUTION1
00FBC0: 20 21 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 !..
00FBD0: 20 20 21 20 20 20 20 20 20 20 20 20 20 20 20 20 !
00FBE0: 20 20 20 20 20 20 52 45 55 53 53 49 45 20 3F 20 REUSSIE ?
00FBF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0D 0A !..
00FC00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 !
00FC10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00FC20: 20 20 20 20 20 20 21 20 20 20 20 20 20 20 20 20 !
00FC30: 20 20 20 20 20 20 20 20 20 21 0D 0A 20 20 20 20 !..
00FC40: 20 20 20 20 20 20 20 20 20 20 21 20 20 20 20 2B ! +
00FC50: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 3C 20 4E -------------< N
00FC60: 4F 4E 20 4F 55 49 20 3E 2D 2D 2D 2D 2D 2D 2D 2D ON OUI >--------
00FC70: 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2B 0D 0A 20 20 20 -----!----+..
00FC80: 20 20 20 20 20 20 20 20 20 20 20 21 20 20 20 20 !
00FC90: 21 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 !
00FCA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00FCB0: 20 20 20 20 20 20 21 20 20 20 20 21 0D 0A 20 20 ! !..
00FCC0: 20 20 20 20 20 20 20 20 20 20 20 20 21 20 20 20 !
00FCD0: 20 2B 2D 3E 20 52 45 43 48 45 52 43 48 45 52 20 +-> RECHERCHER
00FCE0: 54 41 49 4C 4C 45 20 4D 41 58 49 20 50 4F 53 53 TAILLE MAXI POSS
00FCF0: 49 42 4C 45 20 3C 2D 2B 20 20 20 20 21 0D 0A 20 IBLE <-+ !..
00FD00: 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 20 !
00FD10: 20 20 20 20 20 20 56 4F 49 52 20 53 49 20 45 58 VOIR SI EX
00FD20: 49 53 54 45 20 55 4E 20 43 52 2F 44 44 20 3E 20 ISTE UN CR/DD >
00FD30: 4C 4D 41 58 20 20 20 20 20 20 20 20 20 21 0D 0A LMAX !..
00FD40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 !
00FD50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00FD60: 20 20 20 20 20 20 21 20 20 20 20 20 20 20 20 20 !
00FD70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0D !.
00FD80: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 . !
00FD90: 20 20 2B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D +-------------
00FDA0: 2D 2D 3C 20 4E 4F 4E 20 4F 55 49 20 3E 2D 2D 2D --< NON OUI >---
00FDB0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2B 20 20 21 ------------+ !
00FDC0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
00FDD0: 21 20 20 21 20 20 20 20 20 20 20 20 20 20 20 20 ! !
00FDE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00FDF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 20 !
00FE00: 21 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 !..
00FE10: 20 21 20 20 21 20 20 56 4F 49 52 20 53 49 20 43 ! ! VOIR SI C
00FE20: 52 2F 44 44 20 50 52 4F 56 4F 51 55 45 20 4F 55 R/DD PROVOQUE OU
00FE30: 20 41 43 43 49 44 45 4E 54 45 4C 20 3C 2D 2B 20 ACCIDENTEL <-+
00FE40: 20 21 0D 0A 20 53 4F 4C 55 54 49 4F 4E 35 20 3C !.. SOLUTION5 <
00FE50: 2D 2D 21 2D 2D 21 2D 2D 2D 2D 2D 2D 2D 2D 3C 20 --!--!--------<
00FE60: 41 43 43 49 44 45 4E 54 45 4C 20 2F 20 50 52 4F ACCIDENTEL / PRO
00FE70: 56 4F 51 55 45 20 3E 2D 2D 2B 20 20 20 20 20 20 VOQUE >--+
00FE80: 20 20 21 0D 0A 50 4F 55 52 20 20 50 49 53 54 45 !..POUR PISTE
00FE90: 20 20 20 21 20 20 21 20 20 20 20 20 20 20 20 20 ! !
00FEA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00FEB0: 20 20 20 20 20 20 20 20 20 20 21 20 20 20 20 20 !
00FEC0: 20 20 20 21 0D 0A 20 20 41 42 49 4D 45 45 20 20 !.. ABIMEE
00FED0: 20 20 20 20 21 20 20 21 20 20 20 20 20 20 20 20 ! !
00FEE0: 20 20 20 52 45 43 48 45 52 43 48 45 20 50 41 52 RECHERCHE PAR
00FEF0: 20 43 52 2F 44 44 20 3C 2D 2D 2D 2B 20 20 20 20 CR/DD <---+
00FF00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00FF10: 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------
00FF20: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00FF30: 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 20 20 20 20 20 20 -------..
00FF40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2D -
00FF50: 20 49 4E 54 52 4F 44 55 43 54 49 4F 4E 20 41 20 INTRODUCTION A
00FF60: 4C 41 20 53 45 43 54 49 4F 4E 20 46 44 43 20 2D LA SECTION FDC -
00FF70: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
00FF80: 20 20 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D --------
00FF90: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00FFA0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 0D 0A 20 20 20 ---------....
00FFB0: 20 20 4C 27 65 6E 73 65 6D 62 6C 65 20 64 65 73 L'ensemble des
00FFC0: 20 66 69 63 68 69 65 72 73 20 27 2E 4D 41 58 27 fichiers '.MAX'
00FFD0: 20 64 7B 64 69 7B 73 20 61 75 20 20 46 44 43 20 d{di{s au FDC
00FFE0: 64 7B 70 61 73 73 65 20 6D 61 69 6E 74 65 6E 61 d{passe maintena
00FFF0: 6E 74 20 39 30 4B 20 2E 20 49 6C 0D 0A 20 64 65 nt 90K . Il.. de
010000: 76 69 65 6E 74 20 69 6D 70 6F 73 73 69 62 6C 65 vient impossible
010010: 20 64 65 20 20 6C 65 73 20 20 61 64 6A 6F 69 6E de les adjoin
010020: 64 72 65 20 20 64 61 6E 73 20 20 53 4F 53 20 20 dre dans SOS
010030: 50 52 4F 47 52 41 4D 4D 45 55 52 53 20 20 2E 20 PROGRAMMEURS .
010040: 20 53 65 75 6C 65 73 20 6C 65 73 0D 0A 20 6D 6F Seules les.. mo
010050: 64 69 66 69 63 61 74 69 6F 6E 73 20 65 74 20 20 difications et
010060: 6E 6F 75 76 65 6C 6C 65 73 20 20 72 6F 75 74 69 nouvelles routi
010070: 6E 65 73 20 20 73 65 72 6F 6E 74 20 20 64 7B 74 nes seront d{t
010080: 61 69 6C 6C 7B 65 73 20 20 64 61 6E 73 20 20 6C aill{es dans l
010090: 65 73 20 66 69 63 68 69 65 72 73 0D 0A 20 27 2E es fichiers.. '.
0100A0: 41 53 43 27 20 2E 20 53 69 20 76 6F 75 73 20 64 ASC' . Si vous d
0100B0: 7B 73 69 72 65 7A 20 6C 27 65 6E 73 65 6D 62 6C {sirez l'ensembl
0100C0: 65 20 20 64 65 73 20 20 66 69 63 68 69 65 72 73 e des fichiers
0100D0: 20 27 2E 4D 41 58 27 20 2C 20 65 6E 76 6F 79 65 '.MAX' , envoye
0100E0: 7A 20 75 6E 20 64 69 73 71 75 65 0D 0A 20 76 69 z un disque.. vi
0100F0: 65 72 67 65 20 65 74 20 75 6E 65 20 65 6E 76 65 erge et une enve
010100: 6C 6F 70 70 65 20 61 66 66 72 61 6E 63 68 69 65 loppe affranchie
010110: 20 40 20 33 2C 37 30 46 20 40 20 6C 27 61 64 72 @ 3,70F @ l'adr
010120: 65 73 73 65 20 68 61 62 69 74 75 65 6C 6C 65 20 esse habituelle
010130: 2E 0D 0A 0D 0A 20 20 20 20 43 65 74 74 65 20 66 ..... Cette f
010140: 6F 69 73 20 63 69 20 20 63 27 65 73 74 20 20 64 ois ci c'est d
010150: 27 75 6E 20 20 63 6F 70 69 65 75 72 20 20 63 6F 'un copieur co
010160: 6D 70 6C 65 74 20 20 71 75 27 69 6C 20 20 73 27 mplet qu'il s'
010170: 61 67 69 74 20 20 2E 20 4C 61 20 20 73 65 63 74 agit . La sect
010180: 69 6F 6E 0D 0A 20 74 68 7B 6F 72 69 65 20 73 65 ion.. th{orie se
010190: 20 20 72 61 70 70 6F 72 74 65 20 20 65 73 73 65 rapporte esse
0101A0: 6E 74 69 65 6C 6C 65 6D 65 6E 74 20 20 61 75 78 ntiellement aux
0101B0: 20 20 73 65 63 74 65 75 72 73 20 20 7B 63 72 61 secteurs {cra
0101C0: 73 7B 73 20 20 2E 20 20 44 65 73 20 6E 6F 74 69 s{s . Des noti
0101D0: 6F 6E 73 0D 0A 20 63 6F 6D 70 6C 7B 6D 65 6E 74 ons.. compl{ment
0101E0: 61 69 72 65 73 20 73 6F 6E 74 20 6A 6F 69 6E 74 aires sont joint
0101F0: 65 73 20 61 75 20 6D 6F 64 65 20 64 27 65 6D 70 es au mode d'emp
010200: 6C 6F 69 20 64 75 20 62 69 64 6F 75 69 6C 6C 65 loi du bidouille
010210: 75 72 20 2E 20 4C 65 73 20 70 72 6F 67 72 61 6D ur . Les program
010220: 6D 65 73 0D 0A 20 62 69 64 6F 75 69 6C 6C 65 75 mes.. bidouilleu
010230: 72 20 65 74 20 20 63 6F 70 69 65 75 72 20 20 61 r et copieur a
010240: 76 65 63 20 20 6C 65 75 72 20 20 6E 6F 74 69 63 vec leur notic
010250: 65 20 20 73 6F 6E 74 20 20 73 75 72 20 20 6C 27 e sont sur l'
010260: 61 75 74 72 65 20 20 66 61 63 65 20 20 64 65 20 autre face de
010270: 20 6C 61 0D 0A 20 64 69 73 71 75 65 74 74 65 20 la.. disquette
010280: 2E 20 43 65 73 20 32 20 70 72 6F 67 72 61 6D 6D . Ces 2 programm
010290: 65 73 20 75 74 69 6C 69 73 65 6E 74 20 20 6C 61 es utilisent la
0102A0: 20 20 74 6F 74 61 6C 69 74 7B 20 20 64 65 20 6C totalit{ de l
0102B0: 61 20 20 6D 7B 6D 6F 69 72 65 20 64 75 20 43 50 a m{moire du CP
0102C0: 43 20 2E 0D 0A 20 49 6C 73 20 6E 65 20 70 65 72 C ... Ils ne per
0102D0: 6D 65 74 74 65 6E 74 20 70 6C 75 73 20 64 65 20 mettent plus de
0102E0: 72 65 76 65 6E 69 72 20 61 75 20 6D 65 6E 75 20 revenir au menu
0102F0: 64 65 20 53 4F 53 20 50 52 4F 47 52 41 4D 4D 45 de SOS PROGRAMME
010300: 55 52 53 20 2E 20 41 70 72 7D 73 20 75 73 61 67 URS . Apr}s usag
010310: 65 20 2C 0D 0A 20 66 61 69 74 65 73 20 75 6E 20 e ,.. faites un
010320: 52 45 53 45 54 20 65 74 20 72 65 6C 61 6E 63 65 RESET et relance
010330: 7A 20 53 4F 53 20 50 52 4F 47 52 41 4D 4D 45 55 z SOS PROGRAMMEU
010340: 52 53 20 2E 0D 0A 20 20 20 20 53 65 75 6C 20 6C RS ... Seul l
010350: 65 20 63 6F 64 65 20 20 62 69 6E 61 69 72 65 20 e code binaire
010360: 20 64 75 20 20 70 72 6F 67 72 61 6D 6D 65 20 20 du programme
010370: 62 69 64 6F 75 69 6C 6C 65 75 72 20 20 65 73 74 bidouilleur est
010380: 20 20 6A 6F 69 6E 74 20 20 2E 20 4C 61 20 20 70 joint . La p
010390: 6C 61 63 65 0D 0A 20 64 69 73 70 6F 6E 69 62 6C lace.. disponibl
0103A0: 65 20 65 73 74 20 74 72 6F 70 20 6C 69 6D 69 74 e est trop limit
0103B0: 7B 65 20 70 6F 75 72 20 70 61 73 73 65 72 20 20 {e pour passer
0103C0: 75 6E 20 20 73 65 75 6C 20 20 7B 6C 7B 6D 65 6E un seul {l{men
0103D0: 74 20 64 65 20 63 6F 64 65 20 73 6F 75 72 63 65 t de code source
0103E0: 20 71 75 69 0D 0A 20 6E 27 65 73 74 20 61 75 74 qui.. n'est aut
0103F0: 72 65 20 71 75 27 75 6E 65 20 61 64 61 70 74 61 re qu'une adapta
010400: 74 69 6F 6E 20 64 65 73 20 76 65 72 73 69 6F 6E tion des version
010410: 73 20 70 72 7B 63 7B 64 65 6E 74 65 73 20 73 75 s pr{c{dentes su
010420: 72 20 6C 61 71 75 65 6C 6C 65 20 73 65 20 67 72 r laquelle se gr
010430: 65 66 66 65 0D 0A 20 6C 65 20 6E 6F 75 76 65 6C effe.. le nouvel
010440: 20 61 6E 61 6C 79 73 65 75 72 20 75 74 69 6C 69 analyseur utili
010450: 73 7B 20 70 61 72 20 6C 65 20 63 6F 70 69 65 75 s{ par le copieu
010460: 72 20 2E 0D 0A 0D 0A 20 20 20 20 20 20 20 20 20 r .....
010470: 20 20 20 20 20 20 20 2D 20 46 49 4E 20 44 45 20 - FIN DE
010480: 53 45 43 54 49 4F 4E 20 2E 20 53 55 49 54 45 20 SECTION . SUITE
010490: 44 41 4E 53 20 3A 20 54 48 45 4F 52 49 45 20 46 DANS : THEORIE F
0104A0: 44 43 20 2D 0D 0A 1A 2D 2D 2D 2D 2D 2D 2D 2D 2D DC -...---------
0104B0: 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 20 20 20 20 20 20 -------..
0104C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2D -
0104D0: 20 49 4E 54 52 4F 44 55 43 54 49 4F 4E 20 41 20 INTRODUCTION A
0104E0: 4C 41 20 53 45 43 54 49 4F 4E 20 46 44 43 20 2D LA SECTION FDC -
0104F0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
010500: 00 20 00 62 08 03 00 00 E1 EF 22 66 64 63 32 2E . .b......"fdc2.
010510: 61 73 63 22 01 9F 20 1E 3E 4E 01 A0 20 1E 3C 00 asc".. .>N.. .<.
010520: 00 07 00 66 08 01 C0 00 F4 00 70 08 03 00 00 E1 ...f......p.....
010530: 28 0E 29 EF 22 20 4C 65 63 74 75 72 65 20 20 70 (.)." Lecture p
010540: 68 79 73 69 71 75 65 20 22 01 03 00 00 E1 28 0F hysique ".....(.
010550: 29 EF 22 20 45 63 72 69 74 75 72 65 20 73 65 63 )." Ecriture sec
010560: 74 65 75 72 73 20 22 01 03 00 00 E1 28 10 29 EF teurs ".....(.).
010570: 22 20 45 64 69 74 69 6F 6E 20 20 20 20 62 75 66 " Edition buf
010580: 66 65 72 20 22 01 03 00 00 E1 28 11 29 EF 22 20 fer ".....(.)."
010590: 43 72 65 65 72 20 20 75 6E 65 20 20 70 69 73 74 Creer une pist
0105A0: 65 20 22 01 03 00 00 E1 28 12 29 EF 22 20 4D 6F e ".....(.)." Mo
0105B0: 64 69 66 69 63 61 74 69 6F 6E 73 20 67 65 6E 2E difications gen.
0105C0: 22 01 03 00 00 E1 28 13 29 EF 22 20 4D 6F 64 65 ".....(.)." Mode
0105D0: 20 65 6D 70 6C 6F 69 20 70 72 6F 67 2E 20 22 01 emploi prog. ".
0105E0: 03 00 00 E1 28 14 29 EF 22 20 4C 61 6E 63 65 72 ....(.)." Lancer
0105F0: 20 20 70 72 6F 67 72 61 6D 6D 65 20 22 01 01 C0 programme "...
010600: 61 24 28 37 29 3D 22 20 20 55 74 69 6C 69 73 61 a$(7)=" Utilisa
010610: 74 69 6F 6E 20 44 65 6D 6F 20 22 00 22 00 71 08 tion Demo ".".q.
010620: 01 C0 61 24 28 38 29 3D 22 20 20 41 63 63 65 73 ..a$(8)=" Acces
010630: 20 20 70 72 6F 67 72 61 6D 6D 65 20 22 00 1D 00 programme "...
010640: 75 08 0D 00 00 6D 61 78 E9 EF 14 01 0D 00 00 E4 u....max........
010650: EF 10 01 0D 00 00 E5 EF 19 13 00 54 00 7A 08 0B ...........T.z..
010660: 00 00 77 B1 EF 19 0B 01 0B 00 00 77 B2 EF 19 1E ..w........w....
010670: 01 0B 00 00 77 B3 EF 19 0A 01 0B 00 00 77 B4 EF ....w........w..
010680: 19 15 01 0B 00 00 E1 EF 0E 01 0B 00 00 64 E8 EF .............d..
010690: 19 0E 01 0B 00 00 64 EC EF 19 0E 01 9F 20 1E 98 ......d...... ..
0106A0: 4E 01 0B 00 00 79 B1 EF 0B 00 00 F9 F4 0F 00 23 N....y.........#
0106B0: 00 84 08 9F 20 1E A6 13 01 A1 20 0B 00 00 E1 F2 .... ..... .....
0106C0: F5 19 10 20 EB 20 9F 20 1E FC 4E 01 A0 20 1E F8 ... . . ..N.. ..
0106D0: 07 00 2E 00 8E 08 A1 20 FF 75 28 03 00 00 E1 28 ....... .u(....(
0106E0: 0B 00 00 E9 29 2C 0F 29 EF 22 7E 22 EB 20 9F 20 ....),.)."~". .
0106F0: 1E CE 27 01 9F 20 1E B0 13 01 A0 20 1E 8E 08 00 ..'.. ..... ....
010700: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
010710: 20 20 20 20 20 20 20 20 20 20 20 20 20 2D 2D 2D ---
010720: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
010730: 2D 2D 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 --..
010740: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
010750: 20 2D 20 54 48 45 4F 52 49 45 20 46 44 43 20 53 - THEORIE FDC S
010760: 4F 53 20 34 20 2D 0D 0A 20 20 20 20 20 20 20 20 OS 4 -..
010770: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
010780: 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D -----------
010790: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 0D 0A 20 ----------.. ..
0107A0: 20 20 20 20 45 43 52 41 53 45 4D 45 4E 54 20 44 ECRASEMENT D
0107B0: 45 20 53 45 43 54 45 55 52 53 20 3A 0D 0A 20 0D E SECTEURS :.. .
0107C0: 0A 20 20 20 20 20 43 27 65 73 74 20 73 75 72 20 . C'est sur
0107D0: 63 65 20 70 6F 69 6E 74 20 71 75 65 20 70 6F 72 ce point que por
0107E0: 74 65 72 61 20 6C 27 65 73 73 65 6E 74 69 65 6C tera l'essentiel
0107F0: 20 20 64 65 20 20 6C 61 20 74 68 7B 6F 72 69 65 de la th{orie
010800: 20 64 65 20 63 65 20 6E 75 6D 7B 72 6F 20 2E 0D de ce num{ro ..
010810: 0A 20 43 27 65 73 74 20 65 6E 20 65 66 66 65 74 . C'est en effet
010820: 20 70 61 72 20 63 65 20 70 72 6F 63 7B 64 7B 20 par ce proc{d{
010830: 71 75 65 20 20 6C 27 6F 6E 20 70 65 75 74 20 63 que l'on peut c
010840: 72 7B 7B 72 20 64 65 73 20 70 69 73 74 65 73 20 r{{r des pistes
010850: 69 6E 63 6F 70 69 61 62 6C 65 73 20 70 61 72 0D incopiables par.
010860: 0A 20 6C 65 73 20 63 6F 70 69 65 75 72 73 20 61 . les copieurs a
010870: 63 74 75 65 6C 73 20 28 79 2D 63 6F 6D 70 72 69 ctuels (y-compri
010880: 73 20 63 65 6C 75 69 20 70 72 7B 73 65 6E 74 7B s celui pr{sent{
010890: 20 20 69 63 69 29 20 2E 20 44 65 73 20 65 78 65 ici) . Des exe
0108A0: 6D 70 6C 65 73 20 70 72 61 74 69 71 75 65 73 0D mples pratiques.
0108B0: 0A 20 73 6F 6E 74 20 64 6F 6E 6E 7B 73 20 61 76 . sont donn{s av
0108C0: 65 63 20 6C 65 20 6D 6F 64 65 20 64 27 65 6D 70 ec le mode d'emp
0108D0: 6C 6F 69 20 64 75 20 62 69 64 6F 75 69 6C 6C 65 loi du bidouille
0108E0: 75 72 20 28 53 75 72 20 6C 27 61 75 74 72 65 20 ur (Sur l'autre
0108F0: 66 61 63 65 29 20 2E 0D 0A 20 0D 0A 20 20 20 20 face) ... ..
010900: 20 44 65 70 75 69 73 20 6C 65 20 74 65 6D 70 73 Depuis le temps
010910: 20 2C 20 76 6F 75 73 20 20 61 76 65 7A 20 20 64 , vous avez d
010920: 75 20 20 61 70 70 72 65 6E 64 72 65 20 20 71 75 u apprendre qu
010930: 65 20 20 6C 65 73 20 20 49 44 53 20 64 65 20 6C e les IDS de l
010940: 6F 6E 67 75 65 75 72 20 64 65 0D 0A 20 73 65 63 ongueur de.. sec
010950: 74 65 75 72 73 20 64 6F 6E 6E 7B 73 20 63 6F 6D teurs donn{s com
010960: 6D 65 20 70 61 72 61 6D 7D 74 72 65 73 20 64 65 me param}tres de
010970: 20 66 6F 72 6D 61 74 61 67 65 20 73 6F 6E 74 20 formatage sont
010980: 74 6F 75 74 20 40 20 66 61 69 74 20 69 6E 64 69 tout @ fait indi
010990: 66 66 7B 72 65 6E 74 73 20 2E 0D 0A 20 0D 0A 20 ff{rents ... ..
0109A0: 20 20 20 20 45 78 65 6D 70 6C 65 20 3A 20 44 6F Exemple : Do
0109B0: 6E 6E 7B 65 73 20 67 7B 6E 7B 72 61 6C 65 73 20 nn{es g{n{rales
0109C0: 3A 20 31 33 20 73 65 63 74 65 75 72 73 20 64 65 : 13 secteurs de
0109D0: 20 74 61 69 6C 6C 65 20 30 20 47 41 50 23 33 20 taille 0 GAP#3
0109E0: 71 75 65 6C 63 6F 6E 71 75 65 20 2E 0D 0A 20 0D quelconque ... .
0109F0: 0A 20 20 20 20 20 45 74 20 6C 61 20 20 73 7B 72 . Et la s{r
010A00: 69 65 20 20 64 27 49 44 53 20 20 73 75 69 76 61 ie d'IDS suiva
010A10: 6E 74 73 20 20 6F 75 20 20 70 69 73 74 65 20 20 nts ou piste
010A20: 2C 20 20 68 65 61 64 20 20 2C 20 20 6E 75 6D 7B , head , num{
010A30: 72 6F 20 20 64 65 20 73 65 63 74 65 75 72 73 0D ro de secteurs.
010A40: 0A 20 73 6F 6E 74 20 69 6E 64 69 66 66 7B 72 65 . sont indiff{re
010A50: 6E 74 73 20 70 6F 75 72 20 63 65 20 71 75 69 20 nts pour ce qui
010A60: 6E 6F 75 73 20 69 6E 74 7B 72 65 73 73 65 20 3A nous int{resse :
010A70: 0D 0A 20 0D 0A 20 20 20 46 4F 52 4D 41 54 45 52 .. .. FORMATER
010A80: 20 20 20 21 20 20 41 50 52 45 53 20 46 4F 52 4D ! APRES FORM
010A90: 41 54 41 47 45 20 20 20 20 21 20 20 41 50 52 45 ATAGE ! APRE
010AA0: 53 20 45 43 52 49 54 55 52 45 20 44 45 53 20 20 S ECRITURE DES
010AB0: 21 20 4F 55 20 20 43 45 43 49 20 53 49 20 4C 45 ! OU CECI SI LE
010AC0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
010AD0: 21 20 4C 27 41 4E 41 4C 59 53 45 20 44 4F 4E 4E ! L'ANALYSE DONN
010AE0: 45 52 41 20 20 20 21 20 53 45 43 54 45 55 52 53 ERA ! SECTEURS
010AF0: 20 45 4E 20 54 41 49 4C 4C 45 20 32 20 21 20 47 EN TAILLE 2 ! G
010B00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
010B10: 0E 00 01 00 02 09 4E E5 0E 00 C1 02 00 00 00 02 ......N.........
010B20: 0E 00 C2 02 00 00 00 02 0E 00 C3 02 00 00 00 02 ................
010B30: 0E 00 C4 02 00 00 00 02 0E 00 C5 02 00 00 00 02 ................
010B40: 0E 00 C6 02 00 00 00 02 0E 00 C7 02 00 00 00 02 ................
010B50: 0E 00 C8 02 00 00 00 02 0E 00 C9 02 00 00 00 02 ................
010B60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010B70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010B80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010B90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010BA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010BB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010BC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010BD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010BE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010BF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010C00: 41 50 20 20 46 4F 52 4D 41 54 41 47 45 0D 0A 20 AP FORMATAGE..
010C10: 49 44 20 4C 45 4E 20 2D 2D 2D 2B 20 20 21 20 20 ID LEN ---+ !
010C20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
010C30: 20 20 20 21 20 20 4C 27 41 4E 41 4C 59 53 45 20 ! L'ANALYSE
010C40: 44 4F 4E 4E 45 52 41 20 20 20 21 20 45 53 54 20 DONNERA ! EST
010C50: 54 52 45 53 20 47 52 41 4E 44 0D 0A 20 20 20 20 TRES GRAND..
010C60: 20 20 20 20 20 20 20 21 20 20 21 20 20 20 20 20 ! !
010C70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
010C80: 21 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 !
010C90: 20 20 20 20 20 20 20 21 0D 0A 20 30 31 20 20 78 !.. 01 x
010CA0: 2C 78 2C 78 2C 30 20 20 21 20 20 30 31 20 20 78 ,x,x,0 ! 01 x
010CB0: 2C 78 2C 78 2C 30 20 20 4F 4B 20 20 20 20 21 20 ,x,x,0 OK !
010CC0: 20 20 30 31 20 78 2C 78 2C 78 2C 30 20 20 4F 4B 01 x,x,x,0 OK
010CD0: 20 20 20 20 20 21 20 30 31 20 20 78 2C 78 2C 78 ! 01 x,x,x
010CE0: 2C 30 20 20 4F 4B 0D 0A 20 30 32 20 20 78 2C 78 ,0 OK.. 02 x,x
010CF0: 2C 78 2C 32 20 20 21 20 20 30 32 20 20 78 2C 78 ,x,2 ! 02 x,x
010D00: 2C 78 2C 32 20 20 43 52 2F 44 44 20 21 20 20 20 ,x,2 CR/DD !
010D10: 30 32 20 78 2C 78 2C 78 2C 32 20 20 4F 4B 20 20 02 x,x,x,2 OK
010D20: 20 20 20 21 20 30 32 20 20 78 2C 78 2C 78 2C 32 ! 02 x,x,x,2
010D30: 20 20 4F 4B 0D 0A 20 30 33 20 20 78 2C 78 2C 78 OK.. 03 x,x,x
010D40: 2C 30 20 20 21 20 20 30 33 20 20 78 2C 78 2C 78 ,0 ! 03 x,x,x
010D50: 2C 30 20 20 4F 4B 20 20 20 20 21 20 20 20 30 33 ,0 OK ! 03
010D60: 20 78 2C 78 2C 78 2C 32 20 20 4F 4B 20 20 20 20 x,x,x,2 OK
010D70: 20 21 20 30 33 20 20 78 2C 78 2C 78 2C 30 20 20 ! 03 x,x,x,0
010D80: 4F 4B 0D 0A 20 30 34 20 20 78 2C 78 2C 78 2C 30 OK.. 04 x,x,x,0
010D90: 20 20 21 20 20 30 34 20 20 78 2C 78 2C 78 2C 30 ! 04 x,x,x,0
010DA0: 20 20 4F 4B 20 20 20 20 21 20 20 20 30 34 20 78 OK ! 04 x
010DB0: 2C 78 2C 78 2C 32 20 20 4F 4B 20 20 20 20 20 21 ,x,x,2 OK !
010DC0: 20 30 34 20 20 78 2C 78 2C 78 2C 32 20 20 4F 4B 04 x,x,x,2 OK
010DD0: 0D 0A 20 30 35 20 20 78 2C 78 2C 78 2C 32 20 20 .. 05 x,x,x,2
010DE0: 21 20 20 30 35 20 20 78 2C 78 2C 78 2C 32 20 20 ! 05 x,x,x,2
010DF0: 43 52 2F 44 44 20 21 20 20 20 30 35 20 78 2C 78 CR/DD ! 05 x,x
010E00: 2C 78 2C 32 20 20 4F 4B 20 20 20 20 20 21 20 30 ,x,2 OK ! 0
010E10: 35 20 20 78 2C 78 2C 78 2C 30 20 20 4F 4B 0D 0A 5 x,x,x,0 OK..
010E20: 20 30 36 20 20 78 2C 78 2C 78 2C 30 20 20 21 20 06 x,x,x,0 !
010E30: 20 30 36 20 20 78 2C 78 2C 78 2C 30 20 20 4F 4B 06 x,x,x,0 OK
010E40: 20 20 20 20 21 20 20 20 20 20 20 20 20 20 20 20 !
010E50: 20 20 20 20 20 20 20 20 20 20 20 21 20 30 36 20 ! 06
010E60: 20 78 2C 78 2C 78 2C 32 20 20 4F 4B 0D 0A 20 30 x,x,x,2 OK.. 0
010E70: 37 20 20 78 2C 78 2C 78 2C 30 20 20 21 20 20 30 7 x,x,x,0 ! 0
010E80: 37 20 20 78 2C 78 2C 78 2C 30 20 20 4F 4B 20 20 7 x,x,x,0 OK
010E90: 20 20 21 20 20 20 20 20 20 20 20 20 20 20 20 20 !
010EA0: 20 20 20 20 20 20 20 20 20 21 20 30 37 20 20 78 ! 07 x
010EB0: 2C 78 2C 78 2C 30 20 20 4F 4B 0D 0A 20 30 38 20 ,x,x,0 OK.. 08
010EC0: 20 78 2C 78 2C 78 2C 32 20 20 21 20 20 30 38 20 x,x,x,2 ! 08
010ED0: 20 78 2C 78 2C 78 2C 32 20 20 43 52 2F 44 44 20 x,x,x,2 CR/DD
010EE0: 21 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 !
010EF0: 20 20 20 20 20 20 20 21 20 30 38 20 20 78 2C 78 ! 08 x,x
010F00: 2C 78 2C 32 20 20 4F 4B 0D 0A 20 30 39 20 20 78 ,x,2 OK.. 09 x
010F10: 2C 78 2C 78 2C 30 20 20 21 20 20 30 39 20 20 78 ,x,x,0 ! 09 x
010F20: 2C 78 2C 78 2C 30 20 20 4F 4B 20 20 20 20 21 20 ,x,x,0 OK !
010F30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
010F40: 20 20 20 20 20 21 20 30 39 20 20 78 2C 78 2C 78 ! 09 x,x,x
010F50: 2C 30 20 20 4F 4B 0D 0A 20 31 30 20 20 78 2C 78 ,0 OK.. 10 x,x
010F60: 2C 78 2C 30 20 20 21 20 20 31 30 20 20 78 2C 78 ,x,0 ! 10 x,x
010F70: 2C 78 2C 30 20 20 4F 4B 20 20 20 20 21 0D 0A 20 ,x,0 OK !..
010F80: 31 31 20 20 78 2C 78 2C 78 2C 32 20 20 21 20 20 11 x,x,x,2 !
010F90: 31 31 20 20 78 2C 78 2C 78 2C 32 20 20 43 52 2F 11 x,x,x,2 CR/
010FA0: 44 44 20 21 0D 0A 20 31 32 20 20 78 2C 78 2C 78 DD !.. 12 x,x,x
010FB0: 2C 30 20 20 21 20 20 31 32 20 20 78 2C 78 2C 78 ,0 ! 12 x,x,x
010FC0: 2C 30 20 20 4F 4B 20 20 20 20 21 0D 0A 20 31 33 ,0 OK !.. 13
010FD0: 20 20 78 2C 78 2C 78 2C 30 20 20 21 20 20 31 33 x,x,x,0 ! 13
010FE0: 20 20 78 2C 78 2C 78 2C 30 20 20 4F 4B 20 20 20 x,x,x,0 OK
010FF0: 20 21 0D 0A 20 0D 0A 20 20 20 20 20 45 78 70 6C !.. .. Expl
011000: 69 63 61 74 69 6F 6E 20 3A 20 54 6F 75 74 20 64 ication : Tout d
011010: 65 20 73 75 69 74 65 20 20 61 70 72 7D 73 20 20 e suite apr}s
011020: 6C 65 20 20 66 6F 72 6D 61 74 61 67 65 20 2C 20 le formatage ,
011030: 6C 27 61 6E 61 6C 79 73 65 20 72 65 6E 76 65 72 l'analyse renver
011040: 72 61 20 75 6E 0D 0A 20 43 52 2F 44 44 20 70 6F ra un.. CR/DD po
011050: 75 72 20 74 6F 75 74 20 73 65 63 74 65 75 72 20 ur tout secteur
011060: 64 6F 6E 74 20 6C 27 49 44 20 20 6C 6F 6E 67 75 dont l'ID longu
011070: 65 75 72 20 20 65 73 74 20 64 69 66 66 7B 72 65 eur est diff{re
011080: 6E 74 20 64 65 20 6C 61 20 76 72 61 69 65 20 74 nt de la vraie t
011090: 61 69 6C 6C 65 0D 0A 20 64 75 20 66 6F 72 6D 61 aille.. du forma
0110A0: 74 20 63 65 20 71 75 69 20 65 73 74 20 74 6F 75 t ce qui est tou
0110B0: 74 20 40 20 66 61 69 74 20 6C 7B 67 69 74 69 6D t @ fait l{gitim
0110C0: 65 20 2E 20 45 6E 20 72 65 76 61 6E 63 68 65 20 e . En revanche
0110D0: 2C 20 73 69 20 6C 27 6F 6E 20 76 65 75 74 20 7B , si l'on veut {
0110E0: 63 72 69 72 65 0D 0A 20 63 65 73 20 73 65 63 74 crire.. ces sect
0110F0: 65 75 72 73 20 70 6C 75 73 20 67 72 61 6E 64 73 eurs plus grands
011100: 20 71 75 65 20 20 6C 61 20 20 74 61 69 6C 6C 65 que la taille
011110: 20 20 6F 72 69 67 69 6E 65 6C 6C 65 20 20 64 75 originelle du
011120: 20 20 66 6F 72 6D 61 74 20 20 2C 20 6C 65 20 46 format , le F
011130: 44 43 20 6E 65 0D 0A 20 72 7B 63 68 69 67 6E 65 DC ne.. r{chigne
011140: 20 70 61 73 20 40 20 6C 61 20 74 63 68 65 20 63 pas @ la tche c
011150: 61 72 20 69 6C 20 7B 63 72 69 74 20 20 28 6F 75 ar il {crit (ou
011160: 20 6C 69 74 29 20 75 6E 69 71 75 65 6D 65 6E 74 lit) uniquement
011170: 20 65 6E 20 73 65 20 62 61 73 61 6E 74 20 73 75 en se basant su
011180: 72 20 6C 61 0D 0A 20 74 61 69 6C 6C 65 20 73 70 r la.. taille sp
011190: 7B 63 69 66 69 7B 65 20 64 61 6E 73 20 6C 27 49 {cifi{e dans l'I
0111A0: 44 20 71 75 65 6C 71 75 65 20 73 6F 69 74 20 20 D quelque soit
0111B0: 63 65 74 74 65 20 20 64 65 72 6E 69 7D 72 65 20 cette derni}re
0111C0: 20 21 20 44 61 6E 73 20 6C 65 20 63 61 73 20 6F ! Dans le cas o
0111D0: 75 20 6C 61 0D 0A 20 6C 6F 6E 67 75 65 75 72 20 u la.. longueur
0111E0: 49 44 20 64 7B 63 6C 61 72 7B 65 20 65 78 63 7D ID d{clar{e exc}
0111F0: 64 65 20 6C 61 20 74 61 69 6C 6C 65 20 20 64 65 de la taille de
011200: 20 20 66 6F 72 6D 61 74 20 20 3A 20 20 4C 45 20 format : LE
011210: 53 45 43 54 45 55 52 20 45 53 54 20 45 43 52 49 SECTEUR EST ECRI
011220: 54 20 45 4E 0D 0A 20 54 4F 54 41 4C 49 54 45 20 T EN.. TOTALITE
011230: 45 54 20 44 45 54 52 55 49 54 20 4C 45 53 20 49 ET DETRUIT LES I
011240: 44 53 20 51 55 49 20 53 45 20 54 52 4F 55 56 45 DS QUI SE TROUVE
011250: 4E 54 20 20 53 55 52 20 20 53 41 20 5A 4F 4E 45 NT SUR SA ZONE
011260: 20 44 45 20 44 4F 4E 4E 45 45 53 20 21 20 44 6F DE DONNEES ! Do
011270: 6E 63 20 2C 0D 0A 20 75 6E 65 20 64 69 6D 69 6E nc ,.. une dimin
011280: 75 74 69 6F 6E 20 64 75 20 6E 6F 6D 62 72 65 20 ution du nombre
011290: 64 65 20 73 65 63 74 65 75 72 73 20 65 74 20 20 de secteurs et
0112A0: 64 65 73 20 73 65 63 74 65 75 72 73 20 64 65 20 des secteurs de
0112B0: 74 61 69 6C 6C 65 20 64 69 66 66 7B 72 65 6E 74 taille diff{rent
0112C0: 65 20 64 75 0D 0A 20 66 6F 72 6D 61 74 20 72 65 e du.. format re
0112D0: 73 74 61 6E 74 20 74 6F 75 74 20 40 20 66 61 69 stant tout @ fai
0112E0: 74 20 6C 69 73 69 62 6C 65 73 20 20 2E 20 20 4C t lisibles . L
0112F0: 61 20 64 65 72 6E 69 7D 72 65 20 63 6F 6C 6F 6E a derni}re colon
011300: 6E 65 20 64 75 20 74 61 62 6C 65 61 75 20 6D 6F ne du tableau mo
011310: 6E 74 72 65 0D 0A 20 6C 27 69 6D 70 6F 72 74 61 ntre.. l'importa
011320: 6E 63 65 20 64 65 20 20 6C 61 20 20 76 61 6C 65 nce de la vale
011330: 75 72 20 20 64 75 20 20 47 41 50 23 33 20 20 2E ur du GAP#3 .
011340: 20 20 50 6C 75 73 20 20 63 65 6C 75 69 2D 63 69 Plus celui-ci
011350: 20 20 65 73 74 20 20 67 72 61 6E 64 20 20 2C 20 est grand ,
011360: 70 6C 75 73 0D 0A 20 6C 27 69 6E 74 65 72 76 61 plus.. l'interva
011370: 6C 6C 65 20 65 6E 74 72 65 20 6C 65 73 20 73 65 lle entre les se
011380: 63 74 65 75 72 73 20 65 73 74 20 69 6D 70 6F 72 cteurs est impor
011390: 74 61 6E 74 20 2E 20 41 75 20 64 65 6C 40 20 64 tant . Au del@ d
0113A0: 27 75 6E 65 20 63 65 72 74 61 69 6E 65 20 6C 69 'une certaine li
0113B0: 6D 69 74 65 0D 0A 20 2C 20 6C 65 20 6E 6F 6D 62 mite.. , le nomb
0113C0: 72 65 20 64 27 49 44 53 20 7B 63 72 61 73 7B 73 re d'IDS {cras{s
0113D0: 20 70 6F 75 72 20 20 75 6E 65 20 20 74 61 69 6C pour une tail
0113E0: 6C 65 20 20 64 6F 6E 6E 7B 65 20 73 65 72 61 20 le donn{e sera
0113F0: 6D 6F 69 6E 73 20 69 6D 70 6F 72 74 61 6E 74 20 moins important
011400: 2E 20 43 69 0D 0A 20 64 65 73 73 6F 75 73 20 3A . Ci.. dessous :
011410: 20 55 6E 20 74 61 62 6C 65 61 75 20 20 64 6F 6E Un tableau don
011420: 6E 61 6E 74 20 20 74 6F 75 74 65 73 20 20 6C 65 nant toutes le
011430: 73 20 20 76 61 6C 65 75 72 73 20 20 63 72 75 63 s valeurs cruc
011440: 69 61 6C 65 73 20 20 64 65 20 47 41 50 53 20 6F iales de GAPS o
011450: 75 20 6C 65 0D 0A 20 6E 6F 6D 62 72 65 20 64 65 u le.. nombre de
011460: 20 73 65 63 74 65 75 72 73 20 64 7B 74 72 75 69 secteurs d{trui
011470: 74 73 20 70 61 72 20 75 6E 65 20 7B 63 72 69 74 ts par une {crit
011480: 75 72 65 20 64 65 20 74 61 69 6C 6C 65 20 73 75 ure de taille su
011490: 70 7B 72 69 65 75 72 65 20 63 68 61 6E 67 65 20 p{rieure change
0114A0: 2E 20 4F 6E 0D 0A 20 72 65 6D 61 72 71 75 65 72 . On.. remarquer
0114B0: 61 20 71 75 65 20 6C 65 20 70 6C 75 73 20 67 72 a que le plus gr
0114C0: 61 6E 64 20 47 41 50 20 70 72 69 73 20 65 6E 20 and GAP pris en
0114D0: 20 63 6F 6D 70 74 65 20 20 65 73 74 20 30 20 2E compte est 0 .
0114E0: 20 45 6E 20 65 66 66 65 74 20 2C 20 66 6F 72 6D En effet , form
0114F0: 61 74 65 72 0D 0A 20 75 6E 65 20 70 69 73 74 65 ater.. une piste
011500: 20 61 76 65 63 20 75 6E 20 47 41 50 20 30 20 72 avec un GAP 0 r
011510: 65 76 69 65 6E 74 20 40 20 64 6F 6E 6E 65 72 20 evient @ donner
011520: 40 20 63 65 20 47 41 50 20 75 6E 65 20 6C 6F 6E @ ce GAP une lon
011530: 67 75 65 75 72 20 64 65 20 32 35 36 20 6F 63 74 gueur de 256 oct
011540: 65 74 73 2E 0D 0A 20 0D 0A 20 20 20 20 20 20 20 ets... ..
011550: 20 20 20 20 20 20 20 20 20 20 20 20 46 54 20 3D FT =
011560: 20 46 61 75 73 73 65 20 74 61 69 6C 6C 65 20 28 Fausse taille (
011570: 43 65 6C 6C 65 20 6D 69 73 65 20 64 61 6E 73 20 Celle mise dans
011580: 6C 27 49 44 29 0D 0A 20 20 20 20 20 20 20 20 20 l'ID)..
011590: 20 20 20 20 20 20 45 43 52 41 53 45 53 20 3D 20 ECRASES =
0115A0: 4E 6F 6D 62 72 65 20 73 65 63 74 65 75 72 73 20 Nombre secteurs
0115B0: 64 7B 74 72 75 69 74 73 20 70 61 72 20 6C 27 7B d{truits par l'{
0115C0: 63 72 69 74 75 72 65 0D 0A 20 0D 0A 20 20 20 20 criture.. ..
0115D0: 20 20 20 20 20 54 41 49 4C 4C 45 20 44 55 20 46 TAILLE DU F
0115E0: 4F 52 4D 41 54 20 3A 20 30 20 20 20 20 20 20 20 ORMAT : 0
0115F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 54 41 49 TAI
011600: 4C 4C 45 20 44 55 20 46 4F 52 4D 41 54 20 3A 20 LLE DU FORMAT :
011610: 31 20 20 20 20 20 0D 0A 20 20 20 20 2B 2D 2D 2D 1 .. +---
011620: 2D 2B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D -+--------------
011630: 2B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2B 20 20 20 20 20 +---------+
011640: 20 20 20 2B 2D 2D 2D 2D 2B 2D 2D 2D 2D 2D 2D 2D +----+-------
011650: 2D 2D 2D 2D 2D 2D 2D 2B 2D 2D 2D 2D 2D 2D 2D 2D -------+--------
011660: 2D 2B 0D 0A 20 20 20 20 21 20 46 54 20 21 20 20 -+.. ! FT !
011670: 47 41 50 20 46 4F 52 4D 41 54 20 20 21 20 45 43 GAP FORMAT ! EC
011680: 52 41 53 45 53 20 21 20 20 20 20 20 20 20 20 21 RASES ! !
011690: 20 46 54 20 21 20 20 47 41 50 20 46 4F 52 4D 41 FT ! GAP FORMA
0116A0: 54 20 20 21 20 45 43 52 41 53 45 53 20 21 0D 0A T ! ECRASES !..
0116B0: 20 20 20 20 21 2D 2D 2D 2D 2B 2D 2D 2D 2D 2D 2D !----+------
0116C0: 2D 2D 2D 2D 2D 2D 2D 2D 2B 2D 2D 2D 2D 2D 2D 2D --------+-------
0116D0: 2D 2D 21 20 20 20 20 20 20 20 20 21 2D 2D 2D 2D --! !----
0116E0: 2B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2B +--------------+
0116F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 21 0D 0A 20 20 20 20 ---------!..
011700: 21 20 20 31 20 21 20 44 65 20 20 20 31 20 40 20 ! 1 ! De 1 @
011710: 23 37 37 20 21 20 20 20 20 31 20 20 20 20 21 20 #77 ! 1 !
011720: 20 20 20 20 20 20 20 21 20 20 32 20 21 20 44 65 ! 2 ! De
011730: 20 20 20 31 20 40 20 23 46 37 20 21 20 20 20 20 1 @ #F7 !
011740: 31 20 20 20 20 21 0D 0A 20 20 20 20 21 20 20 31 1 !.. ! 1
011750: 20 21 20 44 65 20 23 37 38 20 40 20 20 30 30 20 ! De #78 @ 00
011760: 21 20 20 41 55 43 55 4E 20 20 21 20 20 20 20 20 ! AUCUN !
011770: 20 20 20 21 20 20 32 20 21 20 44 65 20 23 46 38 ! 2 ! De #F8
011780: 20 40 20 20 30 30 20 21 20 20 41 55 43 55 4E 20 @ 00 ! AUCUN
011790: 20 21 0D 0A 20 20 20 20 21 2D 2D 2D 2D 2B 2D 2D !.. !----+--
0117A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2B 2D 2D 2D ------------+---
0117B0: 2D 2D 2D 2D 2D 2D 21 20 20 20 20 20 20 20 20 21 ------! !
0117C0: 2D 2D 2D 2D 2B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----+-----------
0117D0: 2D 2D 2D 2B 2D 2D 2D 2D 2D 2D 2D 2D 2D 21 0D 0A ---+---------!..
0117E0: 20 20 20 20 21 20 20 32 20 21 20 44 65 20 20 20 ! 2 ! De
0117F0: 31 20 40 20 23 35 43 20 21 20 20 20 20 32 20 20 1 @ #5C ! 2
011800: 20 20 21 20 20 20 20 20 20 20 20 21 20 20 33 20 ! ! 3
011810: 21 20 44 65 20 20 20 31 20 40 20 23 32 39 20 21 ! De 1 @ #29 !
011820: 20 20 20 20 33 20 20 20 20 21 0D 0A 20 20 20 20 3 !..
011830: 21 20 20 32 20 21 20 44 65 20 23 35 44 20 40 20 ! 2 ! De #5D @
011840: 20 30 30 20 21 20 20 20 20 31 20 20 20 20 21 20 00 ! 1 !
011850: 20 20 20 20 20 20 20 21 20 20 33 20 21 20 44 65 ! 3 ! De
011860: 20 23 32 41 20 40 20 23 44 43 20 21 20 20 20 20 #2A @ #DC !
011870: 32 20 20 20 20 21 0D 0A 20 20 20 20 21 2D 2D 2D 2 !.. !---
011880: 2D 2B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D -+--------------
011890: 2B 2D 2D 2D 2D 2D 2D 2D 2D 2D 21 20 20 20 20 20 +---------!
0118A0: 20 20 20 21 20 20 33 20 21 20 44 65 20 23 44 44 ! 3 ! De #DD
0118B0: 20 40 20 20 30 30 20 21 20 20 20 20 31 20 20 20 @ 00 ! 1
0118C0: 20 21 0D 0A 20 20 20 20 21 20 20 33 20 21 20 44 !.. ! 3 ! D
0118D0: 65 20 20 20 31 20 40 20 23 31 39 20 21 20 20 20 e 1 @ #19 !
0118E0: 20 35 20 20 20 20 21 20 20 20 20 20 20 20 20 21 5 ! !
0118F0: 2D 2D 2D 2D 2B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----+-----------
011900: 2D 2D 2D 2B 2D 2D 2D 2D 2D 2D 2D 2D 2D 21 0D 0A ---+---------!..
011910: 20 20 20 20 21 20 20 33 20 21 20 44 65 20 23 31 ! 3 ! De #1
011920: 41 20 40 20 23 34 37 20 21 20 20 20 20 34 20 20 A @ #47 ! 4
011930: 20 20 21 20 20 20 20 20 20 20 20 21 20 20 34 20 ! ! 4
011940: 21 20 44 65 20 20 20 31 20 40 20 23 32 30 20 21 ! De 1 @ #20 !
011950: 20 20 20 20 36 20 20 20 20 21 0D 0A 20 20 20 20 6 !..
011960: 21 20 20 33 20 21 20 44 65 20 23 34 38 20 40 20 ! 3 ! De #48 @
011970: 23 41 32 20 21 20 20 20 20 33 20 20 20 20 21 20 #A2 ! 3 !
011980: 20 20 20 20 20 20 20 21 20 20 34 20 21 20 44 65 ! 4 ! De
011990: 20 23 32 31 20 40 20 23 36 36 20 21 20 20 20 20 #21 @ #66 !
0119A0: 35 20 20 20 20 21 0D 0A 20 20 20 20 21 20 20 33 5 !.. ! 3
0119B0: 20 21 20 44 65 20 23 41 33 20 40 20 20 30 30 20 ! De #A3 @ 00
0119C0: 21 20 20 20 20 32 20 20 20 20 21 20 20 20 20 20 ! 2 !
0119D0: 20 20 20 21 20 20 34 20 21 20 44 65 20 23 36 37 ! 4 ! De #67
0119E0: 20 40 20 23 43 46 20 21 20 20 20 20 34 20 20 20 @ #CF ! 4
0119F0: 20 21 0D 0A 20 20 20 20 21 2D 2D 2D 2D 2B 2D 2D !.. !----+--
011A00: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2B 2D 2D 2D ------------+---
011A10: 2D 2D 2D 2D 2D 2D 21 20 20 20 20 20 20 20 20 21 ------! !
011A20: 20 20 34 20 21 20 44 65 20 23 44 30 20 40 20 20 4 ! De #D0 @
011A30: 30 30 20 21 20 20 20 20 33 20 20 20 20 21 0D 0A 00 ! 3 !..
011A40: 20 20 20 20 21 20 20 34 20 21 20 44 65 20 20 20 ! 4 ! De
011A50: 31 20 40 20 23 34 38 20 21 20 20 20 20 38 20 20 1 @ #48 ! 8
011A60: 20 20 21 20 20 20 20 20 20 20 20 21 2D 2D 2D 2D ! !----
011A70: 2B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2B +--------------+
011A80: 2D 2D 2D 2D 2D 2D 2D 2D 2D 21 0D 0A 20 20 20 20 ---------!..
011A90: 21 20 20 34 20 21 20 44 65 20 23 34 39 20 40 20 ! 4 ! De #49 @
011AA0: 23 36 45 20 21 20 20 20 20 37 20 20 20 20 21 20 #6E ! 7 !
011AB0: 20 20 20 20 20 20 20 21 20 20 35 20 21 20 44 65 ! 5 ! De
011AC0: 20 20 20 31 20 40 20 23 31 42 20 21 20 20 20 31 1 @ #1B ! 1
011AD0: 32 20 20 20 20 21 0D 0A 20 20 20 20 21 20 20 34 2 !.. ! 4
011AE0: 20 21 20 44 65 20 23 36 46 20 40 20 23 41 30 20 ! De #6F @ #A0
011AF0: 21 20 20 20 20 36 20 20 20 20 21 20 20 20 20 20 ! 6 !
011B00: 20 20 20 21 20 20 35 20 21 20 44 65 20 23 31 43 ! 5 ! De #1C
011B10: 20 40 20 23 33 42 20 21 20 20 20 31 31 20 20 20 @ #3B ! 11
011B20: 20 21 0D 0A 20 20 20 20 21 20 20 34 20 21 20 44 !.. ! 4 ! D
011B30: 65 20 23 41 31 20 40 20 23 45 36 20 21 20 20 20 e #A1 @ #E6 !
011B40: 20 35 20 20 20 20 21 20 20 20 20 20 20 20 20 21 5 ! !
011B50: 20 20 35 20 21 20 44 65 20 23 33 43 20 40 20 23 5 ! De #3C @ #
011B60: 36 31 20 21 20 20 20 31 30 20 20 20 20 21 0D 0A 61 ! 10 !..
011B70: 20 20 20 20 21 20 20 34 20 21 20 44 65 20 23 45 ! 4 ! De #E
011B80: 37 20 40 20 20 30 30 20 21 20 20 20 20 34 20 20 7 @ 00 ! 4
011B90: 20 20 21 20 20 20 20 20 20 20 20 21 20 20 35 20 ! ! 5
011BA0: 21 20 44 65 20 23 36 32 20 40 20 23 38 46 20 21 ! De #62 @ #8F !
011BB0: 20 20 20 20 39 20 20 20 20 21 0D 0A 20 20 20 20 9 !..
011BC0: 21 2D 2D 2D 2D 2B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D !----+----------
011BD0: 2D 2D 2D 2D 2B 2D 2D 2D 2D 2D 2D 2D 2D 2D 21 20 ----+---------!
011BE0: 20 20 20 20 20 20 20 21 20 20 35 20 21 20 44 65 ! 5 ! De
011BF0: 20 23 39 30 20 40 20 23 43 38 20 21 20 20 20 20 #90 @ #C8 !
011C00: 38 20 20 20 20 21 0D 0A 20 20 20 20 21 20 20 35 8 !.. ! 5
011C10: 20 21 20 44 65 20 20 20 31 20 40 20 20 20 37 20 ! De 1 @ 7
011C20: 21 20 20 20 32 31 20 20 20 20 21 20 20 20 20 20 ! 21 !
011C30: 20 20 20 21 20 20 35 20 21 20 44 65 20 23 43 39 ! 5 ! De #C9
011C40: 20 40 20 20 30 30 20 21 20 20 20 20 37 20 20 20 @ 00 ! 7
011C50: 20 21 0D 0A 20 20 20 20 21 20 20 35 20 21 20 44 !.. ! 5 ! D
011C60: 65 20 20 20 38 20 40 20 23 31 31 20 21 20 20 20 e 8 @ #11 !
011C70: 32 30 20 20 20 20 21 20 20 20 20 20 20 20 20 2B 20 ! +
011C80: 2D 2D 2D 2D 2B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----+-----------
011C90: 2D 2D 2D 2B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2B 0D 0A ---+---------+..
011CA0: 20 20 20 20 21 20 20 35 20 21 20 44 65 20 23 31 ! 5 ! De #1
011CB0: 32 20 40 20 23 31 43 20 21 20 20 20 31 39 20 20 2 @ #1C ! 19
011CC0: 20 20 21 0D 0A 20 20 20 20 21 20 20 35 20 21 20 !.. ! 5 !
011CD0: 44 65 20 23 31 44 20 40 20 23 32 38 20 21 20 20 De #1D @ #28 !
011CE0: 20 31 38 20 20 20 20 21 20 20 20 20 20 20 20 20 18 !
011CF0: 20 20 20 20 20 20 54 41 49 4C 4C 45 20 44 55 20 TAILLE DU
011D00: 46 4F 52 4D 41 54 20 3A 20 33 20 20 20 20 20 0D FORMAT : 3 .
011D10: 0A 20 20 20 20 21 20 20 35 20 21 20 44 65 20 23 . ! 5 ! De #
011D20: 32 39 20 40 20 23 33 37 20 21 20 20 20 31 37 20 29 @ #37 ! 17
011D30: 20 20 20 21 20 20 20 20 20 20 20 20 2B 2D 2D 2D ! +---
011D40: 2D 2B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D -+--------------
011D50: 2B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2B 0D 0A 20 20 20 +---------+..
011D60: 20 21 20 20 35 20 21 20 44 65 20 23 33 38 20 40 ! 5 ! De #38 @
011D70: 20 23 34 35 20 21 20 20 20 31 36 20 20 20 20 21 #45 ! 16 !
011D80: 20 20 20 20 20 20 20 20 21 20 46 54 20 21 20 20 ! FT !
011D90: 47 41 50 20 46 4F 52 4D 41 54 20 20 21 20 45 43 GAP FORMAT ! EC
011DA0: 52 41 53 45 53 20 21 0D 0A 20 20 20 20 21 20 20 RASES !.. !
011DB0: 35 20 21 20 44 65 20 23 34 36 20 40 20 23 35 36 5 ! De #46 @ #56
011DC0: 20 21 20 20 20 31 35 20 20 20 20 21 20 20 20 20 ! 15 !
011DD0: 20 20 20 20 21 2D 2D 2D 2D 2B 2D 2D 2D 2D 2D 2D !----+------
011DE0: 2D 2D 2D 2D 2D 2D 2D 2D 2B 2D 2D 2D 2D 2D 2D 2D --------+-------
011DF0: 2D 2D 21 0D 0A 20 20 20 20 21 20 20 35 20 21 20 --!.. ! 5 !
011E00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
011E10: 0F 00 01 00 02 09 4E E5 0F 00 C1 02 00 00 00 02 ......N.........
011E20: 0F 00 C2 02 00 00 00 02 0F 00 C3 02 00 00 00 02 ................
011E30: 0F 00 C4 02 00 00 00 02 0F 00 C5 02 00 00 00 02 ................
011E40: 0F 00 C6 02 00 00 00 02 0F 00 C7 02 00 00 00 02 ................
011E50: 0F 00 C8 02 00 00 00 02 0F 00 C9 02 00 00 00 02 ................
011E60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011E70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011E80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011E90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011EA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011EB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011EC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011ED0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011EE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011EF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011F00: 44 65 20 23 35 37 20 40 20 23 36 41 20 21 20 20 De #57 @ #6A !
011F10: 20 31 34 20 20 20 20 21 20 20 20 20 20 20 20 20 14 !
011F20: 21 20 20 34 20 21 20 44 65 20 20 20 31 20 40 20 ! 4 ! De 1 @
011F30: 20 30 30 20 21 20 20 20 20 31 20 20 20 20 21 0D 00 ! 1 !.
011F40: 0A 20 20 20 20 21 20 20 35 20 21 20 44 65 20 23 . ! 5 ! De #
011F50: 36 42 20 40 20 23 38 31 20 21 20 20 20 31 33 20 6B @ #81 ! 13
011F60: 20 20 20 21 20 20 20 20 20 20 20 20 21 2D 2D 2D ! !---
011F70: 2D 2B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D -+--------------
011F80: 2B 2D 2D 2D 2D 2D 2D 2D 2D 2D 21 0D 0A 20 20 20 +---------!..
011F90: 20 21 20 20 35 20 21 20 44 65 20 23 38 32 20 40 ! 5 ! De #82 @
011FA0: 20 23 39 42 20 21 20 20 20 31 32 20 20 20 20 21 #9B ! 12 !
011FB0: 20 20 20 20 20 20 20 20 21 20 20 35 20 21 20 44 ! 5 ! D
011FC0: 65 20 20 20 31 20 40 20 23 37 46 20 21 20 20 54 e 1 @ #7F ! T
011FD0: 4F 55 54 20 20 20 21 0D 0A 20 20 20 20 21 20 20 OUT !.. !
011FE0: 35 20 21 20 44 65 20 23 39 43 20 40 20 23 42 42 5 ! De #9C @ #BB
011FF0: 20 21 20 20 20 31 31 20 20 20 20 21 20 20 20 20 ! 11 !
012000: 20 20 20 20 21 2D 2D 2D 2D 2B 2D 2D 2D 2D 2D 2D !----+------
012010: 2D 2D 2D 2D 2D 2D 2D 2D 2B 2D 2D 2D 2D 2D 2D 2D --------+-------
012020: 2D 2D 21 0D 0A 20 20 20 20 21 20 20 35 20 21 20 --!.. ! 5 !
012030: 44 65 20 23 42 43 20 40 20 23 45 30 20 21 20 20 De #BC @ #E0 !
012040: 20 31 30 20 20 20 20 21 0D 0A 20 20 20 20 21 20 10 !.. !
012050: 20 35 20 21 20 44 65 20 23 45 31 20 40 20 20 30 5 ! De #E1 @ 0
012060: 30 20 21 20 20 20 20 39 20 20 20 20 21 20 20 20 0 ! 9 !
012070: 20 20 20 20 20 45 63 72 61 73 65 72 20 75 6E 65 Ecraser une
012080: 20 20 74 61 69 6C 6C 65 20 34 20 20 73 6F 75 73 taille 4 sous
012090: 20 20 75 6E 0D 0A 20 20 20 20 2B 2D 2D 2D 2D 2B un.. +----+
0120A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2B 2D --------------+-
0120B0: 2D 2D 2D 2D 2D 2D 2D 2D 2B 20 20 20 20 20 20 20 --------+
0120C0: 20 73 65 63 74 65 75 72 20 64 65 20 74 61 69 6C secteur de tail
0120D0: 6C 65 20 35 20 20 72 65 76 69 65 6E 74 20 20 61 le 5 revient a
0120E0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
0120F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
012100: 00 4C 45 43 54 45 55 52 35 42 49 4E 00 00 00 00 .LECTEUR5BIN....
012110: 00 00 02 00 00 C3 24 00 02 03 00 00 00 00 00 00 ......$.........
012120: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
012130: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
012140: 02 03 00 15 04 00 00 1A 45 43 54 45 55 52 35 24 ........ECTEUR5$
012150: 24 24 FF 00 FF EA 21 23 70 BC 3A A1 40 1A 1D E2 $$....!#p.:.@...
012160: 73 A9 CD 16 CF E3 70 1A 0F 06 94 F2 1B D1 0C 65 s.....p........e
012170: 57 5E 75 F0 AD 9D AE 22 C3 A9 E1 5F 27 03 6B 34 W^u...."..._'.k4
012180: DD 6E 00 DD 66 01 22 51 9E 7E 32 4A 9E 23 5E 23 .n..f."Q.~2J.#^#
012190: 56 EB 11 51 9E D5 E5 06 00 4F ED B0 E1 21 7B 9E V..Q.....O...!{.
0121A0: CD C9 9D E1 AF 32 4D 9E 3A 4A 9E 47 11 00 C0 CD .....2M.:J.G....
0121B0: 77 BC D2 B6 9D CA B6 9D 21 00 40 CD 80 BC D2 B6 w.......!.@.....
0121C0: 9D CA B6 9D 77 23 C3 7B 9C AF 77 CD 7A BC CD 14 ....w#.{..w.z...
0121D0: BC CD 6C BB 21 00 40 22 97 9E 2B 36 00 2B 36 00 ..l.!.@"..+6.+6.
0121E0: 3E FF 32 4E 9E 01 00 00 CD 9C 9E CD 30 9E CD 06 >.2N........0...
0121F0: BB FE 0D CA DD 9E FE F1 CA D9 9C FE F0 CA 25 9D ..............%.
012200: FE F4 CA 3D 9D FE F5 CA F8 9C FE 09 CC 6A 9D 18 ...=.........j..
012210: DD 3E 07 CD 5A BB C3 AE 9C CD E0 9D 26 01 2E 1A .>..Z.......&...
012220: CD 75 BB 2A 99 9E CD D3 9D 22 99 9E 2A 97 9E CD .u.*....."..*...
012230: 00 9E 22 97 9E C3 AE 9C CD E0 9D CD 6C BB 2A 99 ..".........l.*.
012240: 9E 06 19 0E 00 CD 00 9E 23 0C 7E B7 28 02 10 F5 ........#.~.(...
012250: 41 22 99 9E 2A 97 9E CD 00 9E 10 FB 22 97 9E CD A"..*......."...
012260: 30 9E C3 AE 9C CD EA 9D CD 07 9E E5 26 01 2E FF 0...........&...
012270: CD 75 BB E1 CD D3 9D CD 21 9E C3 AE 9C 3A 4E 9E .u......!....:N.
012280: B7 C2 D1 9C CD 6C BB 06 19 0E 00 0C 2A 97 9E 2B .....l......*..+
012290: CD 07 9E 30 04 10 F4 18 05 3E FF 32 4E 9E 41 CD ...0.....>.2N.A.
0122A0: 21 9E 10 FB CD 30 9E C3 AE 9C CD 2E BD 30 05 3E !....0.......0.>
0122B0: 07 C3 5A BB 2A 97 9E AF 32 50 9E 7E B7 C8 FE 5E ..Z.*...2P.~...^
0122C0: 20 07 F5 3E 08 CD 2B BD F1 E5 F5 CD 2E BD 38 FB ..>..+.......8.
0122D0: CD 2B BD F1 FE 0A 20 14 3A 50 9E 3C FE 3C 20 09 .+.... .:P.<.< .
0122E0: 3E 07 CD 5A BB CD 06 BB AF 32 50 9E 3E 42 CD 1E >..Z.....2P.>B..
0122F0: BB E1 C0 23 18 C5 FE 1A CA 89 9C CD 7D BC CD DD ...#........}...
012300: 9E 3E FF 32 4D 9E 21 63 9E 7E FE FF C8 CD 5A BB .>.2M.!c.~....Z.
012310: 23 18 F6 7E 23 B7 C8 FE 0A 37 C8 CD 5A BB 18 F3 #..~#....7..Z...
012320: CD FA 9D 28 10 AF 32 4E 9E C9 3A 4E 9E B7 20 05 ...(..2N..:N.. .
012330: 2A 97 9E 2B C9 FD E1 C3 D1 9C 2A 99 9E 7E B7 C9 *..+......*..~..
012340: 7E 23 FE 0A 20 FA C9 2B 7E B7 C2 14 9E 3E FF 32 ~#.. ..+~....>.2
012350: 4E 9E 18 0A FE 0A 20 EF 37 23 22 97 9E C9 AF 18 N..... .7#".....
012360: F8 2A 99 9E 2B 2B 7E FE 0A 20 FA 23 22 99 9E C9 .*..++~.. .#"...
012370: 2A 97 9E 06 19 7E B7 28 0D 23 F5 CD 5A BB F1 FE *....~.(.#..Z...
012380: 0A 20 F2 10 F0 37 22 99 9E C9 00 00 00 00 00 00 . ...7".........
012390: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0123A0: 00 00 00 18 1F 04 04 20 45 52 52 45 55 52 20 44 ....... ERREUR D
0123B0: 52 49 56 45 20 07 18 1F 04 0A FF 04 02 1F 02 02 RIVE ...........
0123C0: 43 48 41 52 47 45 4D 45 4E 54 20 45 4E 20 43 4F CHARGEMENT EN CO
0123D0: 55 52 53 1F 01 01 FF 00 00 00 00 00 21 EF 9F 11 URS.........!...
0123E0: 3F 00 CD AB BB 21 06 9F 11 08 00 06 06 7E 23 C5 ?....!.......~#.
0123F0: D5 E5 CD A8 BB E1 D1 C1 19 10 F2 C3 F4 9E FE 5E ...............^
012400: 20 17 E5 C5 D5 06 05 21 3C 9F E5 C5 7E CD D9 9E ......!<...~...
012410: C1 E1 23 10 F5 D1 C1 E1 C9 CF 00 00 C9 ED 5B DA ..#...........[.
012420: 9E 21 5A BB 36 CF 23 73 23 72 21 EF 9F 16 00 1E .!Z.6.#s#r!.....
012430: F5 C3 AB BB 2A 5B BB 22 DA 9E 21 BE 9E 22 5B BB ....*[."..!.."[.
012440: 3E C3 32 5A BB C9 40 30 18 78 0C 7C CC 76 00 5C >.2Z..@0.x.|.v.\
012450: 00 00 3C 66 60 66 36 18 5E 18 66 00 00 00 00 00 ..<f`f6.^.f.....
012460: 00 7B 0C 18 3C 66 7E 60 3C 00 7C 30 18 66 66 66 .{..<f~`<.|0.fff
012470: 66 3E 00 7D 30 18 3C 66 7E 60 3C 00 16 01 5E 16 f>.}0.<f~`<...^.
012480: 00 00 1A 45 43 54 45 55 52 35 24 24 24 FF 00 FF ...ECTEUR5$$$...
012490: EA 21 23 70 BC 3A A1 40 1A 1D E2 73 A9 CD 16 CF .!#p.:.@...s....
0124A0: E3 70 1A 0F 06 94 F2 1B D1 0C 65 57 5E 75 F0 AD .p........eW^u..
0124B0: 9D AE 22 C3 A9 E1 5F 27 03 6B 34 95 52 F0 45 75 .."..._'.k4.R.Eu
0124C0: 6C 34 2B 0C D3 CC F8 47 3F A5 13 89 41 A6 73 CA l4+....G?...A.s.
0124D0: 48 57 72 48 61 8F DC 02 29 05 E8 53 F1 84 5F AB HWrHa...)..S.._.
0124E0: 75 DD 3A 07 76 5B EB 59 EA 66 F1 DD AB 36 F2 69 u.:.v[.Y.f...6.i
0124F0: F1 CB BE AC 5A C9 5A 32 07 E3 9B FA BF 6A C2 7B ....Z.Z2.....j.{
012500: 00 52 53 58 50 52 54 20 20 42 49 4E 00 00 00 00 .RSXPRT BIN....
012510: 00 00 02 00 00 00 80 00 C4 09 00 00 00 00 00 00 ................
012520: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
012530: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
012540: C4 09 00 28 05 00 00 00 00 00 00 00 00 00 00 00 ...(............
012550: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
012560: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
012570: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
012580: 2A D4 BD 22 4E 80 01 0F 80 21 8E 80 C3 D1 BC 50 *.."N....!.....P
012590: 80 C3 93 80 C3 D1 81 C3 38 82 C3 4B 82 C3 A8 82 ........8..K....
0125A0: C3 36 83 C3 3A 83 C3 3E 83 C3 8F 83 C3 A7 83 C3 .6..:..>........
0125B0: BC 83 C3 CE 83 C3 E0 83 C3 26 84 C3 34 84 C3 3C .........&..4..<
0125C0: 84 C3 44 84 C3 38 85 C3 3D 85 C3 9F 85 C3 00 00 ..D..8..=.......
0125D0: 43 4F 4E D6 45 44 49 C3 50 52 54 C3 50 52 54 D6 CON.EDI.PRT.PRT.
0125E0: 4D 49 44 C3 45 CC 45 D5 45 C4 44 50 C5 44 50 CF MID.E.E.E.DP.DP.
0125F0: 54 D0 54 44 D0 57 4B 45 D9 44 CC 44 C8 44 D4 53 T.TD.WKE.D.D.D.S
012600: D4 4C 49 4E 45 D2 4C 49 4E C5 43 41 C4 00 00 00 .LINE.LIN.CA....
012610: 00 00 00 FE 02 C2 6C 83 DD 6E 00 DD 66 01 22 3F ......l..n..f."?
012620: 89 DD 6E 02 26 01 3E 19 BD DA 67 83 CD 75 BB 21 ..n.&.>...g..u.!
012630: C4 87 CD 85 83 CD CA 80 21 C9 87 CD 85 83 CD F7 ........!.......
012640: 80 21 CF 87 CD 85 83 C3 2F 81 2A 3F 89 06 04 FD .!....../.*?....
012650: 21 59 89 FD 5E 00 FD 56 01 AF A7 ED 52 38 03 3C !Y..^..V....R8.<
012660: 18 F8 CD F1 80 FD 23 FD 23 19 10 E7 7D CD F1 80 ......#.#...}...
012670: C9 C6 30 CD 5A BB C9 3E 26 CD 5A BB 2A 3F 89 06 ..0.Z..>&.Z.*?..
012680: 03 FD 21 63 89 FD 5E 00 FD 56 01 AF A7 ED 52 38 ..!c..^..V....R8
012690: 03 3C 18 F8 CD 23 81 FD 23 FD 23 19 10 E7 7D CD .<...#..#.#...}.
0126A0: 23 81 C9 FE 0A 38 02 C6 07 C6 30 CD 5A BB C9 2A #....8....0.Z..*
0126B0: 3F 89 06 08 4C 3E 30 CB 01 30 01 3C CD 5A BB 10 ?...L>0..0.<.Z..
0126C0: F4 06 08 4D 3E 30 CB 01 30 01 3C CD 5A BB 10 F4 ...M>0..0.<.Z...
0126D0: C9 FD E1 DD 2B DD 2B 18 0A FD E1 FE 06 C2 6C 83 ....+.+.......l.
0126E0: CD 99 81 DD 6E 02 7D FE 1A D2 67 83 DD 66 04 22 ....n.}...g..f."
0126F0: 3B 89 22 3D 89 CD B1 87 D2 67 83 DD 7E 06 B7 C4 ;."=.....g..~...
012700: AF 81 FD E5 CD C4 81 DD 7E 08 CD 90 BB DD 7E 0A ........~.....~.
012710: CD 96 BB 2A 3B 89 C3 75 BB DD 6E 00 DD 66 01 22 ...*;..u..n..f."
012720: 41 89 7E 32 43 89 23 5E 23 56 ED 53 45 89 C9 FE A.~2C.#^#V.SE...
012730: 01 28 04 3E 14 18 02 3E 12 F5 2A 3B 89 CD 75 BB .(.>...>..*;..u.
012740: F1 C3 5A BB CD 93 BB 32 4A 89 CD 99 BB 32 4B 89 ..Z....2J....2K.
012750: C9 CD 59 81 21 3B 88 06 FF 36 00 23 10 FB CD 90 ..Y.!;...6.#....
012760: 87 21 3B 88 CD 00 B9 CD 3A BD CD 03 B9 06 00 21 .!;.....:......!
012770: 3B 88 7E B7 28 04 04 23 18 F8 78 B7 28 06 3A 43 ;.~.(..#..x.(.:C
012780: 89 B8 30 15 3E 07 CD 5A BB 3E 42 CD 1E BB C2 2B ..0.>..Z.>B....+
012790: 82 2A 3B 89 CD 75 BB 18 C8 ED 5B 45 89 C5 4F 06 .*;..u....[E..O.
0127A0: 00 21 3B 88 ED B0 2A 41 89 C1 70 3A 4A 89 CD 90 .!;...*A..p:J...
0127B0: BB 3A 4B 89 CD 96 BB C9 CD 59 81 2A 45 89 3A 43 .:K......Y.*E.:C
0127C0: 89 47 7E CD 5A BB 23 10 F9 18 E0 CD 59 81 ED 5B .G~.Z.#.....Y..[
0127D0: 69 89 7A B3 C4 44 84 3E 1B 2A 3B 89 95 47 3A 43 i.z..D.>.*;..G:C
0127E0: 89 B8 D2 71 83 2A 5B BB 22 A5 82 3E C3 32 5A BB ...q.*[."..>.2Z.
0127F0: 21 96 82 22 5B BB 2A 45 89 3A 43 89 47 CD 8E 82 !.."[.*E.:C.G...
012800: 2A A5 82 22 5B BB 3E CF 32 5A BB C3 2B 82 7E CD *.."[.>.2Z..+.~.
012810: 5A BB 23 10 F9 C9 CD A4 82 3E 08 CD A4 82 3E 0A Z.#......>....>.
012820: CD A4 82 C9 CF 00 00 C9 FE 05 C2 6C 83 CD 99 81 ...........l....
012830: 32 3E 89 CD B1 87 D2 71 83 05 78 32 3E 89 DD 6E 2>.....q..x2>..n
012840: 02 7D FE 1A D2 67 83 26 01 22 3B 89 DD 7E 04 B7 .}...g.&.";..~..
012850: C4 AF 81 CD C4 81 DD 7E 06 CD 90 BB DD 7E 08 CD .......~.....~..
012860: 96 BB AF 32 47 89 3A 43 89 47 CB 47 28 06 3E FF ...2G.:C.G.G(.>.
012870: 32 47 89 04 3A 69 89 B7 28 02 CB 20 3A 3E 89 90 2G..:i..(.. :>..
012880: 1F 2A 3B 89 67 24 CD 75 BB 3A 47 89 B7 CA 3B 82 .*;.g$.u.:G...;.
012890: 3A 43 89 47 2A 45 89 7E FE 20 F5 CC 28 83 F1 CD :C.G*E.~. ..(...
0128A0: 5A BB 23 10 F2 C3 2B 82 3A 47 89 B7 C8 AF 32 47 Z.#...+.:G....2G
0128B0: 89 3E 20 C3 5A BB 06 12 18 08 06 13 18 04 06 14 .> .Z...........
0128C0: 18 00 FE 02 C2 6C 83 DD 7E 00 FE 1A D2 67 83 6F .....l..~....g.o
0128D0: 26 01 C5 CD 75 BB CD C4 81 DD 7E 02 CD 96 BB C1 &...u.....~.....
0128E0: 78 CD 5A BB C3 2B 82 21 D5 87 18 08 21 EB 87 18 x.Z..+.!....!...
0128F0: 03 21 05 88 E5 CD 44 84 E1 7E FE FF CA 06 BB CD .!....D..~......
012900: 5A BB 23 18 F4 7E FE FF C8 CD 5A BB 23 18 F6 FE Z.#..~....Z.#...
012910: 02 C2 6C 83 DD 5E 00 DD 56 01 DD 6E 02 DD 66 03 ..l..^..V..n..f.
012920: 7E 12 23 13 7E 12 C9 FE 02 C2 6C 83 DD 5E 00 DD ~.#.~.....l..^..
012930: 56 01 DD 6E 02 DD 66 03 73 23 72 C9 FE 02 C2 6C V..n..f.s#r....l
012940: 83 DD 6E 00 DD 66 01 7E 6F 26 00 C3 9E 80 FE 02 ..n..f.~o&......
012950: C2 6C 83 DD 6E 00 DD 66 01 5E 23 56 EB C3 9E 80 .l..n..f.^#V....
012960: FE 01 CA F5 83 FE 05 20 26 CD 51 81 21 25 88 CD ....... &.Q.!%..
012970: 79 83 C3 2B 82 CD 99 81 CD 06 BB FE 20 38 F9 FE y..+........ 8..
012980: 61 38 02 E6 DF 2A 45 89 77 2A 41 89 36 01 C9 FE a8...*E.w*A.6...
012990: 02 C2 6C 83 CD 99 81 CD 06 BB E6 DF FE 4F 28 E5 ..l..........O(.
0129A0: FE 4E 28 E1 18 F1 21 4C 84 11 FF 00 ED 53 69 89 .N(...!L.....Si.
0129B0: 22 D4 BD C9 21 9A 84 11 00 FF 18 F0 21 D1 84 11 "...!.......!...
0129C0: FF FF 18 E8 2A 4E 80 11 00 00 18 E0 F5 E5 1E 02 ....*N..........
0129D0: CD A5 BB 3E 19 CD 5A BB 3E FF CD 5A BB 0E 08 06 ...>..Z.>..Z....
0129E0: 04 56 AF CB 4B 20 0E CB 22 CB 22 CB 22 CB 22 18 .V..K ..".".".".
0129F0: 04 CB 27 CB 27 CB 22 30 02 F6 03 10 F4 CD 5A BB ..'.'."0......Z.
012A00: 23 0D 20 DB 3E FF E1 D5 E5 CD 4D 80 E1 D1 1D C8 #. .>.....M.....
012A10: 3E 09 CD 5A BB F1 24 E5 18 B6 F5 2D E5 1E 02 CD >..Z..$....-....
012A20: A5 BB 3E 19 CD 5A BB 3E FF CD 5A BB 06 04 CB 4B ..>..Z.>..Z....K
012A30: 20 04 23 23 23 23 7E CD 5A BB CD 5A BB 23 10 F6 .####~.Z..Z.#..
012A40: 3E FF E1 D5 E5 CD 4D 80 E1 2C D1 1D C8 F1 E5 18 >.....M..,......
012A50: CE F5 2D E5 1E 04 CD A5 BB 3E 19 CD 5A BB 3E FF ..-......>..Z.>.
012A60: CD 5A BB CB 43 28 04 23 23 23 23 0E 04 06 04 56 .Z..C(.####....V
012A70: 7B FE 03 30 08 CB 22 CB 22 CB 22 CB 22 AF CB 27 {..0.."."."."..'
012A80: CB 27 CB 22 30 02 F6 03 10 F4 CD 5A BB CD 5A BB .'."0......Z..Z.
012A90: 23 0D 20 D9 3E FF E1 D5 E5 CD 4D 80 E1 D1 CB 43 #. .>.....M....C
012AA0: C2 24 85 2C 7B FE 03 C2 31 85 3E 09 CD 5A BB 2D .$.,{...1.>..Z.-
012AB0: 24 F1 1D C8 F5 E5 18 9E 21 F9 BB 18 03 21 F6 BB $.......!....!..
012AC0: 22 75 85 FE 06 DA 6C 83 47 CD E1 BB 32 4C 89 DD "u....l.G...2L..
012AD0: 7E 00 FE 10 30 04 CD DE BB 05 CB 40 C2 6C 83 C5 ~...0......@.l..
012AE0: 05 DD 23 DD 23 10 FA C1 CB 38 21 C0 BB 22 93 85 ..#.#....8!.."..
012AF0: CD 85 85 05 21 F6 BB 22 93 85 CD 85 85 10 FB 3A ....!..".......:
012B00: 4C 89 C3 DE BB DD 56 03 DD 5E 02 DD 66 01 DD 6E L.....V..^..f..n
012B10: 00 C5 CD 00 00 C1 DD 2B DD 2B DD 2B DD 2B C9 FE .......+.+.+.+..
012B20: 06 28 19 FE 08 C2 6C 83 DD 6E 00 26 00 DD 5E 02 .(....l..n.&..^.
012B30: 16 00 DD 23 DD 23 DD 23 DD 23 18 06 21 16 00 11 ...#.#.#.#..!...
012B40: 16 00 22 57 89 ED 53 55 89 DD 7E 00 47 C5 CD E1 .."W..SU..~.G...
012B50: BB 32 4C 89 DD 7E 02 CD DE BB DD 56 0B DD 5E 0A .2L..~.....V..^.
012B60: DD 66 09 DD 6E 08 ED 53 4D 89 22 4F 89 CD C0 BB .f..n..SM."O....
012B70: DD 56 07 DD 5E 06 DD 66 05 DD 6E 04 ED 53 51 89 .V..^..f..n..SQ.
012B80: 22 53 89 CD 56 87 C1 78 B7 CA 46 87 FE 01 20 22 "S..V..x..F... "
012B90: CD 16 86 C3 46 87 2A 4F 89 A7 ED 5B 57 89 ED 52 ....F.*O...[W..R
012BA0: ED 5B 4D 89 CD C0 BB ED 5B 51 89 21 00 00 CD F9 .[M.....[Q.!....
012BB0: BB C9 FE 02 20 18 CD 16 86 2A 4F 89 A7 ED 5B 53 .... ....*O...[S
012BC0: 89 ED 52 ED 5B 57 89 19 CD 20 86 C3 46 87 FE 03 ..R.[W... ..F...
012BD0: 20 35 CD 58 86 C3 46 87 2A 4D 89 ED 5B 55 89 19 5.X..F.*M..[U..
012BE0: 22 4D 89 2A 51 89 A7 ED 52 ED 52 22 51 89 2A 4F "M.*Q...R.R"Q.*O
012BF0: 89 ED 5B 57 89 ED 52 22 4F 89 2A 53 89 ED 52 ED ..[W..R"O.*S..R.
012C00: 52 22 53 89 C3 4C 87 FE 04 C2 16 87 CD 92 86 C3 R"S..L..........
012C10: 46 87 CD 58 86 2A 4F 89 ED 5B 4D 89 E5 D5 CD C0 F..X.*O..[M.....
012C20: BB ED 5B 55 89 CD 83 87 2A 57 89 CD F9 BB 2A 4D ..[U....*W....*M
012C30: 89 ED 5B 51 89 19 22 4D 89 EB 2A 4F 89 CD C0 BB ..[Q.."M..*O....
012C40: 2A 57 89 ED 5B 55 89 CD F9 BB 2A 4F 89 ED 5B 53 *W..[U....*O..[S
012C50: 89 A7 ED 52 22 4F 89 ED 5B 4D 89 CD C0 BB 2A 57 ...R"O..[M....*W
012C60: 89 CD 89 87 ED 5B 55 89 CD F9 BB 2A 4D 89 ED 5B .....[U....*M..[
012C70: 51 89 A7 ED 52 EB 2A 4F 89 CD C0 BB 2A 57 89 CD Q...R.*O....*W..
012C80: 89 87 ED 5B 55 89 CD 83 87 CD F9 BB D1 E1 22 4F ...[U........."O
012C90: 89 ED 53 4D 89 C9 FE 10 30 2C D6 03 47 C5 C5 C5 ..SM....0,..G...
012CA0: CD 58 86 C1 10 F9 C1 2A 57 89 CD 3F 87 22 57 89 .X.....*W..?."W.
012CB0: C1 2A 55 89 CD 3F 87 22 55 89 CD 95 86 18 07 E5 .*U..?."U.......
012CC0: D1 05 19 10 FD C9 3A 4A 89 C3 DE BB 2A 4F 89 ED ......:J....*O..
012CD0: 5B 4D 89 CD C0 BB ED 5B 51 89 21 00 00 CD F9 BB [M.....[Q.!.....
012CE0: 11 00 00 2A 53 89 CD 89 87 CD F9 BB 21 00 00 ED ...*S.......!...
012CF0: 5B 51 89 CD 83 87 CD F9 BB 11 00 00 2A 53 89 CD [Q..........*S..
012D00: F9 BB C9 EB CD 89 87 EB C9 AF 95 6F 9C 95 67 C9 ...........o..g.
012D10: CD 00 B9 3A 01 DE FE 71 28 0E FE C9 20 05 21 5E ...:...q(... .!^
012D20: BD 18 08 21 5B BD 18 03 21 3A BD 22 E8 81 C3 03 ...![...!:."....
012D30: B9 CD 11 BC 06 14 38 06 28 02 CB 20 CB 20 3A 3E ......8.(.. . :>
012D40: 89 04 B8 C9 44 45 43 3A FF 20 48 45 58 3A FF 20 ....DEC:. HEX:.
012D50: 42 49 4E 3A FF 1F 01 01 18 20 45 52 52 45 55 52 BIN:..... ERREUR
012D60: 20 4C 4F 43 41 54 45 20 07 18 FF 1F 01 01 18 20 LOCATE .......
012D70: 45 52 52 45 55 52 20 50 41 52 41 4D 45 54 52 45 ERREUR PARAMETRE
012D80: 53 20 07 18 FF 1F 01 01 18 20 54 52 4F 50 20 4C S ....... TROP L
012D90: 4F 4E 47 20 50 4F 55 52 20 41 46 46 49 43 48 45 ONG POUR AFFICHE
012DA0: 52 20 07 18 FF 07 20 50 72 65 73 73 65 72 20 75 R .... Presser u
012DB0: 6E 65 20 74 6F 75 63 68 65 20 FF 00 00 00 00 00 ne touche ......
012DC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
012DD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
012DE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
012DF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
012E00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
012E10: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
012E20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
012E30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
012E40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
012E50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
012E60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
012E70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
012E80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
012E90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
012EA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
012EB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
012EC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
012ED0: 00 00 00 00 00 16 00 16 00 10 27 E8 03 64 00 0A ..........'..d..
012EE0: 00 01 00 00 10 00 01 10 00 00 00 00 00 00 00 00 ................
012EF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
012F00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
012F10: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
012F20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
012F30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
012F40: 00 00 00 00 1A 42 42 35 41 0D 0A 4D 41 54 41 44 .....BB5A..MATAD
012F50: 52 20 20 45 51 55 20 23 42 42 41 35 0D 0A 49 4E R EQU #BBA5..IN
012F60: 44 50 52 54 20 20 45 51 55 20 23 42 44 44 34 0D DPRT EQU #BDD4.
012F70: 0A 3B 0D 0A 20 20 20 20 20 20 20 20 4C 44 20 48 .;.. LD H
012F80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
012F90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
012FA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
012FB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
012FC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
012FD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
012FE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
012FF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
013000: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
013010: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
013020: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
013030: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
013040: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
013050: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
013060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
013070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
013080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
013090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0130A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0130B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0130C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0130D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0130E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0130F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
013100: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
013110: 10 00 01 00 02 09 4E E5 10 00 C1 02 00 00 00 02 ......N.........
013120: 10 00 C2 02 00 00 00 02 10 00 C3 02 00 00 00 02 ................
013130: 10 00 C4 02 00 00 00 02 10 00 C5 02 00 00 00 02 ................
013140: 10 00 C6 02 00 00 00 02 10 00 C7 02 00 00 00 02 ................
013150: 10 00 C8 02 00 00 00 02 10 00 C9 02 00 00 00 02 ................
013160: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
013170: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
013180: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
013190: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0131A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0131B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0131C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0131D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0131E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0131F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
013200: 00 2D 49 4E 4B 2D 49 4E 54 42 49 4E 00 00 00 00 .-INK-INTBIN....
013210: 00 00 02 00 00 8F 28 00 9A 00 00 00 00 00 00 00 ......(.........
013220: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
013230: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
013240: 9A 00 00 ED 04 04 3E 1B B8 20 02 06 00 48 F1 CD ......>.. ...H..
013250: 32 BC DD 36 00 19 DD E1 F1 C1 D1 E1 FB C9 19 1A 2..6............
013260: F7 B2 42 03 43 B6 FD 22 99 0E 1F F1 96 C5 86 73 ..B.C..".......s
013270: DC 09 E7 9E 30 C8 FD 3A D3 BE E1 5C 36 03 79 26 ....0..:...\6.y&
013280: CD 00 B9 21 ED B4 3A 01 DE FE 71 28 03 21 37 B6 ...!..:...q(.!7.
013290: 22 C8 BE CD 03 B9 21 AF BE 06 81 0E 00 11 B7 BE ".....!.........
0132A0: C3 D7 BC 21 AF BE C3 DA BC 21 AF BE C3 DD BC 00 ...!.....!......
0132B0: 00 00 00 00 00 00 00 F3 E5 D5 C5 F5 DD E5 DD 21 ...............!
0132C0: 19 BF DD 35 00 20 4A 21 ED B4 7E 07 30 3F 06 00 ...5. J!..~.0?..
0132D0: 2D 7E 07 38 26 07 38 21 07 38 1F 2D 7E CB 07 38 -~.8&.8!.8.-~..8
0132E0: 06 07 07 30 28 18 11 CD 3B BC 04 3E 1B B8 20 02 ...0(...;..>.. .
0132F0: 06 00 48 CD 38 BC 18 15 04 04 04 78 F5 CD 35 BC ..H.8......x..5.
013300: 04 3E 1B B8 20 02 06 00 48 F1 CD 32 BC DD 36 00 .>.. ...H..2..6.
013310: 19 DD E1 F1 C1 D1 E1 FB C9 19 1A F7 B2 42 03 43 .............B.C
013320: B6 FD 22 99 0E 1F F1 96 C5 86 73 DC 09 E7 9E 30 ..".......s....0
013330: C8 FD 3A D3 BE E1 5C 36 03 79 26 18 5C A3 D5 18 ..:...\6.y&.\£..
013340: FD FC A7 97 35 5D F7 D0 4C 99 1B 00 58 D9 F0 F7 ....5]..L...X...
013350: 82 00 EF 20 2D 20 53 6F 72 74 69 65 20 64 65 20 ... - Sortie de
013360: 72 6F 75 74 69 6E 65 20 2D F0 EF F0 F1 72 69 65 routine -....rie
013370: 6E 66 61 69 72 E5 64 12 EE 52 65 63 75 70 65 72 nfair.d..Recuper
013380: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
013390: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0133A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0133B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0133C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0133D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0133E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0133F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
013400: 74 9F EB 6D 65 20 64 65 0D 0A 70 72 6F 74 65 63 t..me de..protec
013410: 74 69 6F 6E 20 65 6D 70 6C 6F 79 9F E1 20 70 6F tion employ.. po
013420: 75 72 20 20 74 65 73 74 65 72 20 20 6C 61 20 20 ur tester la
013430: 70 69 73 74 65 20 20 2E 20 20 4F 75 20 20 6F 6E piste . Ou on
013440: 20 20 61 70 70 65 6C 65 20 20 9F F5 61 20 20 75 appele ..a u
013450: 6E 20 76 69 6F 6C 20 64 65 0D 0A 63 6F 70 69 72 n viol de..copir
013460: 79 67 68 74 20 6F 75 20 6A 65 20 73 75 69 73 20 yght ou je suis
013470: 6C 27 9F E1 76 9F E6 71 75 65 20 64 27 41 75 74 l'..v..que d'Aut
013480: 75 6E 20 2E 2E 2E 0D 0A 20 20 20 20 53 69 20 76 un ..... Si v
013490: 6F 75 73 20 61 76 65 7A 20 9F E1 63 72 61 73 9F ous avez ..cras.
0134A0: E1 20 61 76 65 63 20 20 73 75 62 74 69 6C 69 74 . avec subtilit
0134B0: 9F E1 20 20 76 6F 73 20 20 73 65 63 74 65 75 72 .. vos secteur
0134C0: 73 20 20 2C 20 6C 61 20 72 65 70 72 6F 64 75 63 s , la reproduc
0134D0: 74 69 6F 6E 20 64 65 73 0D 0A 64 6F 6E 6E 9F E1 tion des..donn..
0134E0: 65 73 20 20 73 65 72 61 20 20 63 6F 72 72 65 63 es sera correc
0134F0: 74 65 20 20 6D 61 69 73 20 20 63 65 72 74 61 69 te mais certai
013500: 6E 73 20 20 6F 63 74 65 74 73 20 20 65 6E 74 72 ns octets entr
013510: 65 20 20 6C 65 73 20 20 73 65 63 74 65 75 72 73 e les secteurs
013520: 20 20 73 65 72 6F 6E 74 0D 0A 64 69 66 66 9F E1 seront..diff..
013530: 72 65 6E 74 73 20 73 75 72 20 6C 61 20 63 6F 70 rents sur la cop
013540: 69 65 20 2E 20 53 69 20 20 76 6F 75 73 20 20 61 ie . Si vous a
013550: 72 72 69 76 65 7A 20 20 9F EA 20 20 9F E1 63 72 rrivez .. ..cr
013560: 69 72 65 20 75 6E 65 20 72 6F 75 74 69 6E 65 20 ire une routine
013570: 63 61 70 61 62 6C 65 20 64 65 0D 0A 72 65 70 72 capable de..repr
013580: 6F 64 75 69 72 65 20 9F EA 20 6C 27 6F 63 74 65 oduire .. l'octe
013590: 74 20 70 72 9F EB 73 20 63 65 20 67 65 6E 72 65 t pr..s ce genre
0135A0: 20 64 65 20 70 69 73 74 65 20 76 6F 74 72 65 20 de piste votre
0135B0: 74 61 6C 65 6E 74 20 6E 6F 75 73 20 69 6E 74 9F talent nous int.
0135C0: E1 72 65 73 73 65 20 2E 2E 2E 0D 0A 20 20 20 20 .resse .....
0135D0: 43 45 20 51 55 27 49 4C 20 41 55 52 41 49 54 20 CE QU'IL AURAIT
0135E0: 50 55 20 46 41 49 52 45 20 44 45 20 20 50 4C 55 PU FAIRE DE PLU
0135F0: 53 20 20 3A 20 20 28 45 74 20 20 71 75 27 69 6C S : (Et qu'il
013600: 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6F 72 for
013610: 6D 61 74 65 72 20 75 6E 20 73 65 63 74 65 75 72 mater un secteur
013620: 20 64 65 20 74 61 69 6C 6C 65 20 35 0D 0A 20 20 de taille 5..
013630: 20 20 20 20 20 20 20 54 41 49 4C 4C 45 20 44 55 TAILLE DU
013640: 20 46 4F 52 4D 41 54 20 3A 20 32 20 20 20 20 20 FORMAT : 2
013650: 0D 0A 20 20 20 20 2B 2D 2D 2D 2D 2B 2D 2D 2D 2D .. +----+----
013660: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2B 2D 2D 2D 2D 2D ----------+-----
013670: 2D 2D 2D 2D 2B 20 20 20 20 20 20 20 20 51 75 61 ----+ Qua
013680: 6E 64 20 40 20 7B 63 72 61 73 65 72 20 75 6E 20 nd @ {craser un
013690: 73 65 63 74 65 75 72 73 20 20 64 65 0D 0A 20 20 secteurs de..
0136A0: 20 20 21 20 46 54 20 21 20 20 47 41 50 20 46 4F ! FT ! GAP FO
0136B0: 52 4D 41 54 20 20 21 20 45 43 52 41 53 45 53 20 RMAT ! ECRASES
0136C0: 21 20 20 20 20 20 20 20 20 74 61 69 6C 6C 65 20 ! taille
0136D0: 35 20 69 6C 20 66 61 75 64 72 61 69 74 20 70 6F 5 il faudrait po
0136E0: 75 72 20 20 63 65 6C 61 0D 0A 20 20 20 20 21 2D ur cela.. !-
0136F0: 2D 2D 2D 2B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ---+------------
013700: 2D 2D 2B 2D 2D 2D 2D 2D 2D 2D 2D 2D 21 20 20 20 --+---------!
013710: 20 20 20 20 20 70 6F 75 76 6F 69 72 20 7B 63 72 pouvoir {cr
013720: 69 72 65 20 20 75 6E 20 20 73 65 63 74 65 75 72 ire un secteur
013730: 20 20 64 65 0D 0A 20 20 20 20 21 20 20 33 20 21 de.. ! 3 !
013740: 20 44 65 20 20 20 31 20 40 20 20 30 30 20 21 20 De 1 @ 00 !
013750: 20 20 20 31 20 20 20 20 21 20 20 20 20 20 20 20 1 !
013760: 20 74 61 69 6C 6C 65 20 36 2E 20 43 6F 6D 6D 65 taille 6. Comme
013770: 20 6C 27 7B 63 72 69 74 75 72 65 20 64 27 75 6E l'{criture d'un
013780: 0D 0A 20 20 20 20 21 2D 2D 2D 2D 2B 2D 2D 2D 2D .. !----+----
013790: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2B 2D 2D 2D 2D 2D ----------+-----
0137A0: 2D 2D 2D 2D 21 20 20 20 20 20 20 20 20 73 65 63 ----! sec
0137B0: 74 65 75 72 20 3E 20 35 20 20 64 7B 74 72 75 69 teur > 5 d{trui
0137C0: 74 20 20 6C 61 20 20 70 69 73 74 65 0D 0A 20 20 t la piste..
0137D0: 20 20 21 20 20 34 20 21 20 44 65 20 20 20 31 20 ! 4 ! De 1
0137E0: 40 20 23 37 46 20 21 20 20 20 20 33 20 20 20 20 @ #7F ! 3
0137F0: 21 20 20 20 20 20 20 20 20 63 27 65 73 74 20 64 ! c'est d
013800: 6F 6E 63 20 69 6D 70 6F 73 73 69 62 6C 65 20 2E onc impossible .
013810: 0D 0A 20 20 20 20 21 20 20 34 20 21 20 44 65 20 .. ! 4 ! De
013820: 23 38 30 20 40 20 23 30 30 20 21 20 20 20 20 32 #80 @ #00 ! 2
013830: 20 20 20 20 21 0D 0A 20 20 20 20 21 2D 2D 2D 2D !.. !----
013840: 2B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2B +--------------+
013850: 2D 2D 2D 2D 2D 2D 2D 2D 2D 21 0D 0A 20 20 20 20 ---------!..
013860: 21 20 20 35 20 21 20 44 65 20 20 20 31 20 40 20 ! 5 ! De 1 @
013870: 23 30 30 20 21 20 20 20 20 35 20 20 20 20 21 0D #00 ! 5 !.
013880: 0A 20 20 20 20 2B 2D 2D 2D 2D 2B 2D 2D 2D 2D 2D . +----+-----
013890: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2B 2D 2D 2D 2D 2D 2D ---------+------
0138A0: 2D 2D 2D 2B 0D 0A 20 0D 0A 20 20 20 20 20 20 20 ---+.. ..
0138B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0138C0: 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D -----------
0138D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 0D 0A -----------.. ..
0138E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0138F0: 4D 41 49 53 20 45 4E 20 51 55 4F 49 20 50 45 55 MAIS EN QUOI PEU
013900: 54 20 4E 4F 55 53 20 53 45 52 56 49 52 20 43 45 T NOUS SERVIR CE
013910: 54 54 45 20 43 55 49 53 49 4E 45 20 3F 3F 21 0D TTE CUISINE ??!.
013920: 0A 20 0D 0A 20 20 20 20 20 4C 27 75 73 61 67 65 . .. L'usage
013930: 20 6C 65 20 70 6C 75 73 20 7B 76 69 64 65 6E 74 le plus {vident
013940: 20 65 73 74 20 64 27 69 6E 74 65 72 64 69 72 65 est d'interdire
013950: 20 61 75 20 63 6F 70 69 65 75 72 20 64 65 20 64 au copieur de d
013960: 7B 74 65 72 6D 69 6E 65 72 20 6C 61 20 76 72 61 {terminer la vra
013970: 69 65 0D 0A 20 74 61 69 6C 6C 65 20 64 75 20 66 ie.. taille du f
013980: 6F 72 6D 61 74 20 65 74 20 70 61 72 20 6C 65 20 ormat et par le
013990: 66 61 69 74 20 6D 65 08 5E 6D 65 20 2C 20 64 27 fait me.^me , d'
0139A0: 69 6E 74 65 72 64 69 72 65 20 75 6E 65 20 72 65 interdire une re
0139B0: 70 72 6F 64 75 63 74 69 6F 6E 20 45 58 41 43 54 production EXACT
0139C0: 45 20 64 65 0D 0A 20 6C 61 20 70 69 73 74 65 20 E de.. la piste
0139D0: 2E 20 45 6E 74 65 6E 64 65 7A 20 70 61 72 20 20 . Entendez par
0139E0: 6C 40 20 20 71 75 65 20 20 6C 65 73 20 20 6F 63 l@ que les oc
0139F0: 74 65 74 73 20 20 64 65 20 64 6F 6E 6E 7B 65 73 tets de donn{es
013A00: 20 73 65 72 6F 6E 74 20 63 6F 72 72 65 63 74 65 seront correcte
013A10: 6D 65 6E 74 0D 0A 20 72 65 70 72 6F 64 75 69 74 ment.. reproduit
013A20: 73 20 6D 61 69 73 20 6C 65 73 20 6F 63 74 65 74 s mais les octet
013A30: 73 20 73 69 74 75 7B 73 20 65 6E 74 72 65 20 32 s situ{s entre 2
013A40: 20 73 65 63 74 65 75 72 73 20 73 65 72 6F 6E 74 secteurs seront
013A50: 20 64 69 66 66 7B 72 65 6E 74 73 20 65 6E 74 72 diff{rents entr
013A60: 65 20 6C 61 0D 0A 20 63 6F 70 69 65 20 65 74 20 e la.. copie et
013A70: 6C 27 6F 72 69 67 69 6E 61 6C 20 2E 20 55 6E 20 l'original . Un
013A80: 65 78 65 6D 70 6C 65 20 64 65 73 20 70 6C 75 73 exemple des plus
013A90: 20 66 72 61 70 70 61 6E 74 73 20 65 73 74 20 6C frappants est l
013AA0: 65 20 73 75 69 76 61 6E 74 20 3A 0D 0A 0D 0A 20 e suivant :....
013AB0: 20 20 20 20 4F 52 49 47 49 4E 41 4C 20 20 20 20 ORIGINAL
013AC0: 21 20 20 20 20 43 4F 50 49 45 20 20 20 20 20 20 ! COPIE
013AD0: 20 20 20 20 20 20 20 20 4D 61 69 73 20 20 71 75 Mais qu
013AE0: 65 20 20 63 27 65 73 74 2D 69 6C 20 20 70 61 73 e c'est-il pas
013AF0: 73 7B 20 20 3F 3F 20 20 56 6F 74 72 65 0D 0A 20 s{ ?? Votre..
013B00: 30 31 2C 30 30 2C 43 31 2C 30 30 20 4F 4B 20 20 01,00,C1,00 OK
013B10: 21 20 30 31 2C 30 30 2C 43 31 2C 30 30 20 43 52 ! 01,00,C1,00 CR
013B20: 2F 44 44 20 20 63 6F 70 69 65 75 72 20 66 61 76 /DD copieur fav
013B30: 6F 72 69 20 73 27 65 73 74 20 62 72 75 08 5E 6C ori s'est bru.^l
013B40: 7B 20 65 6E 20 70 72 65 6E 61 6E 74 20 73 61 0D { en prenant sa.
013B50: 0A 20 30 31 2C 30 30 2C 43 31 2C 30 32 20 4F 4B . 01,00,C1,02 OK
013B60: 20 20 21 20 30 31 2C 30 30 2C 43 31 2C 30 32 20 ! 01,00,C1,02
013B70: 4F 4B 20 20 20 20 20 76 65 73 73 69 65 20 20 70 OK vessie p
013B80: 6F 75 72 20 20 75 6E 65 20 20 6C 61 6E 74 65 72 our une lanter
013B90: 6E 65 20 20 21 20 20 44 61 6E 73 20 20 6C 61 0D ne ! Dans la.
013BA0: 0A 20 30 31 2C 30 30 2C 43 31 2C 30 32 20 4F 4B . 01,00,C1,02 OK
013BB0: 20 20 21 20 30 31 2C 30 30 2C 43 31 2C 30 32 20 ! 01,00,C1,02
013BC0: 4F 4B 20 20 20 20 20 6D 65 73 75 72 65 20 6F 7C OK mesure o|
013BD0: 20 39 20 73 65 63 74 65 75 72 73 20 20 64 65 20 9 secteurs de
013BE0: 20 74 61 69 6C 6C 65 20 20 32 20 2B 20 75 6E 0D taille 2 + un.
013BF0: 0A 20 30 31 2C 30 30 2C 43 31 2C 30 32 20 4F 4B . 01,00,C1,02 OK
013C00: 20 20 21 20 30 31 2C 30 30 2C 43 31 2C 30 32 20 ! 01,00,C1,02
013C10: 4F 4B 20 20 20 20 20 73 65 63 74 65 75 72 73 20 OK secteurs
013C20: 20 64 65 20 20 74 61 69 6C 6C 65 20 20 20 30 20 de taille 0
013C30: 20 20 70 65 75 76 65 6E 74 20 20 65 08 5E 74 72 peuvent e.^tr
013C40: 65 0D 0A 20 30 31 2C 30 30 2C 43 31 2C 30 32 20 e.. 01,00,C1,02
013C50: 4F 4B 20 20 21 20 30 31 2C 30 30 2C 43 31 2C 30 OK ! 01,00,C1,0
013C60: 32 20 4F 4B 20 20 20 20 20 66 6F 72 6D 61 74 7B 2 OK format{
013C70: 73 20 74 6F 75 74 20 20 40 20 20 66 61 69 74 20 s tout @ fait
013C80: 20 6C 7B 67 61 6C 65 6D 65 6E 74 20 20 2C 20 6C l{galement , l
013C90: 65 0D 0A 20 30 31 2C 30 30 2C 43 31 2C 30 32 20 e.. 01,00,C1,02
013CA0: 4F 4B 20 20 21 20 30 31 2C 30 30 2C 43 31 2C 30 OK ! 01,00,C1,0
013CB0: 32 20 4F 4B 20 20 20 20 20 63 6F 70 69 65 75 72 2 OK copieur
013CC0: 20 76 61 20 61 75 20 20 70 6C 75 73 20 20 73 69 va au plus si
013CD0: 6D 70 6C 65 20 65 74 20 63 6F 6E 73 69 64 7D 72 mple et consid}r
013CE0: 65 0D 0A 20 30 31 2C 30 30 2C 43 31 2C 30 32 20 e.. 01,00,C1,02
013CF0: 4F 4B 20 20 21 20 30 31 2C 30 30 2C 43 31 2C 30 OK ! 01,00,C1,0
013D00: 32 20 4F 4B 20 20 20 20 20 71 75 65 20 6C 61 20 2 OK que la
013D10: 76 72 61 69 65 20 74 61 69 6C 6C 65 20 64 75 20 vraie taille du
013D20: 66 6F 72 6D 61 74 20 65 73 74 20 64 65 20 32 20 format est de 2
013D30: 2E 0D 0A 20 30 31 2C 30 30 2C 43 31 2C 30 32 20 ... 01,00,C1,02
013D40: 4F 4B 20 20 21 20 30 31 2C 30 30 2C 43 31 2C 30 OK ! 01,00,C1,0
013D50: 32 20 4F 4B 20 20 20 20 20 52 65 73 74 65 20 20 2 OK Reste
013D60: 40 20 20 20 76 6F 69 72 20 20 20 63 6F 6D 6D 65 @ voir comme
013D70: 6E 74 20 20 20 7B 74 61 62 6C 69 72 20 20 75 6E nt {tablir un
013D80: 65 0D 0A 20 30 31 2C 30 30 2C 43 31 2C 30 32 20 e.. 01,00,C1,02
013D90: 4F 4B 20 20 21 20 30 31 2C 30 30 2C 43 31 2C 30 OK ! 01,00,C1,0
013DA0: 32 20 4F 4B 20 20 20 20 20 70 72 6F 74 65 63 74 2 OK protect
013DB0: 69 6F 6E 20 62 61 73 7B 65 20 73 75 72 20 63 65 ion bas{e sur ce
013DC0: 20 66 61 69 74 20 2E 0D 0A 20 30 31 2C 30 30 2C fait ... 01,00,
013DD0: 43 31 2C 30 32 20 4F 4B 20 20 21 20 30 31 2C 30 C1,02 OK ! 01,0
013DE0: 30 2C 43 31 2C 30 32 20 4F 4B 20 20 20 20 20 20 0,C1,02 OK
013DF0: 20 20 4C 65 20 70 6C 75 73 20 7B 6C 7B 6D 65 6E Le plus {l{men
013E00: 74 61 69 72 65 20 63 6F 6E 73 69 73 74 65 20 40 taire consiste @
013E10: 20 74 65 73 74 65 72 0D 0A 20 2D 2D 2D 2D 2D 2D tester.. ------
013E20: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D ----------!-----
013E30: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 20 20 20 6C ----------- l
013E40: 65 20 73 65 63 74 65 75 72 20 72 65 73 74 61 6E e secteur restan
013E50: 74 20 65 6E 20 20 74 61 69 6C 6C 65 20 20 30 20 t en taille 0
013E60: 2E 20 53 69 20 69 6C 0D 0A 20 54 61 69 6C 6C 65 . Si il.. Taille
013E70: 20 66 6F 72 6D 61 74 20 30 20 21 20 54 61 69 6C format 0 ! Tail
013E80: 6C 65 20 66 6F 72 6D 61 74 20 32 20 20 20 20 65 le format 2 e
013E90: 73 74 20 4F 4B 20 2C 20 6C 65 20 66 6F 72 6D 61 st OK , le forma
013EA0: 74 20 20 65 73 74 20 62 69 65 6E 20 72 65 70 72 t est bien repr
013EB0: 6F 64 75 69 74 20 2E 0D 0A 20 2D 2D 2D 2D 2D 2D oduit ... ------
013EC0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D ----------!-----
013ED0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 20 20 20 53 ----------- S
013EE0: 69 20 69 6C 20 65 73 74 20 20 65 6E 20 20 43 52 i il est en CR
013EF0: 2F 44 44 20 20 63 27 65 73 74 20 75 6E 65 20 6D /DD c'est une m
013F00: 61 75 76 61 69 73 65 0D 0A 20 63 6F 70 69 65 20 auvaise.. copie
013F10: 65 74 20 6F 6E 20 70 6C 61 6E 74 65 20 6C 65 20 et on plante le
013F20: 70 72 6F 67 72 61 6D 6D 65 20 21 20 53 65 63 6F programme ! Seco
013F30: 6E 64 65 20 20 73 6F 6C 75 74 69 6F 6E 20 3A 20 nde solution :
013F40: 43 6F 6D 6D 65 20 6C 65 20 63 72 7B 61 74 65 75 Comme le cr{ateu
013F50: 72 20 64 65 20 6C 61 0D 0A 20 70 69 73 74 65 20 r de la.. piste
013F60: 61 20 6C 27 61 76 61 6E 74 61 67 65 20 73 75 72 a l'avantage sur
013F70: 20 6C 65 20 20 63 6F 70 69 65 75 72 20 20 64 65 le copieur de
013F80: 20 20 63 6F 6E 6E 61 69 08 5E 74 72 65 20 20 40 connai.^tre @
013F90: 20 20 6C 27 6F 63 74 65 74 20 70 72 7D 73 20 74 l'octet pr}s t
013FA0: 6F 75 74 65 73 20 6C 65 73 0D 0A 20 64 6F 6E 6E outes les.. donn
013FB0: 7B 65 73 20 64 65 20 63 65 6C 6C 65 2D 63 69 20 {es de celle-ci
013FC0: 2C 20 69 6C 20 6C 75 69 20 73 75 66 66 69 74 20 , il lui suffit
013FD0: 20 64 27 69 6E 63 6C 75 72 65 20 75 6E 65 20 72 d'inclure une r
013FE0: 6F 75 74 69 6E 65 20 64 61 6E 73 20 73 6F 6E 20 outine dans son
013FF0: 70 72 6F 67 72 61 6D 6D 65 0D 0A 20 71 75 69 20 programme.. qui
014000: 69 72 61 20 6C 69 72 65 20 65 6E 74 72 65 20 32 ira lire entre 2
014010: 20 73 65 63 74 65 75 72 73 20 28 43 65 20 20 71 secteurs (Ce q
014020: 75 65 20 20 66 6F 6E 74 20 74 6F 75 74 65 73 20 ue font toutes
014030: 6C 65 73 20 72 6F 75 74 69 6E 65 73 20 64 27 61 les routines d'a
014040: 6E 61 6C 79 73 65 20 64 75 0D 0A 20 47 41 50 20 nalyse du.. GAP
014050: 64 65 73 20 70 72 6F 67 72 61 6D 6D 65 73 20 70 des programmes p
014060: 72 7B 73 65 6E 74 7B 73 20 64 61 6E 73 20 20 53 r{sent{s dans S
014070: 4F 53 20 20 50 52 4F 47 52 41 4D 4D 45 55 52 53 OS PROGRAMMEURS
014080: 29 20 20 2E 20 53 69 20 6C 61 20 72 65 63 68 65 ) . Si la reche
014090: 72 63 68 65 20 64 27 75 6E 0D 0A 20 47 41 50 20 rche d'un.. GAP
0140A0: 23 34 45 20 73 75 72 20 75 6E 20 66 6F 72 6D 61 #4E sur un forma
0140B0: 74 20 64 65 20 74 61 69 6C 6C 65 20 30 20 20 7B t de taille 0 {
0140C0: 63 68 6F 75 65 20 63 27 65 73 74 20 75 6E 65 20 choue c'est une
0140D0: 63 6F 70 69 65 20 70 69 72 61 74 65 20 65 74 20 copie pirate et
0140E0: 6F 6E 20 70 6C 61 6E 74 65 0D 0A 20 6C 65 20 70 on plante.. le p
0140F0: 72 6F 67 72 61 6D 6D 65 20 21 20 43 6F 6D 6D 65 rogramme ! Comme
014100: 20 6F 6E 20 6C 65 20 76 65 72 72 61 20 20 64 61 on le verra da
014110: 6E 73 20 6C 61 20 70 61 72 74 69 65 20 6D 6F 64 ns la partie mod
014120: 65 20 64 27 65 6D 70 6C 6F 69 20 2C 20 6C 27 7B e d'emploi , l'{
014130: 63 72 61 73 65 6D 65 6E 74 0D 0A 20 64 65 20 73 crasement.. de s
014140: 65 63 74 65 75 72 73 20 73 75 69 76 69 20 64 27 ecteurs suivi d'
014150: 75 6E 65 20 72 65 6C 65 63 74 75 72 65 20 20 64 une relecture d
014160: 65 73 20 20 6F 63 74 65 74 73 20 20 47 41 50 53 es octets GAPS
014170: 20 6D 65 74 20 65 6E 20 7B 76 69 64 65 6E 63 65 met en {vidence
014180: 20 71 75 65 6C 71 75 65 73 0D 0A 20 62 69 7A 61 quelques.. biza
014190: 72 72 65 72 69 65 73 20 2C 20 71 75 69 20 2C 20 rreries , qui ,
0141A0: 73 61 76 61 6D 65 6E 74 20 6D 69 73 65 73 20 20 savament mises
0141B0: 40 20 20 70 72 6F 66 69 74 20 20 70 65 72 6D 65 @ profit perme
0141C0: 74 74 65 6E 74 20 64 65 20 63 72 7B 65 72 20 64 ttent de cr{er d
0141D0: 65 73 20 70 69 73 74 65 73 0D 0A 20 71 75 69 20 es pistes.. qui
0141E0: 73 6F 6E 74 20 49 4D 50 4F 53 53 49 42 4C 45 53 sont IMPOSSIBLES
0141F0: 20 40 20 20 72 65 70 72 6F 64 75 69 72 65 20 20 @ reproduire
014200: 66 69 64 7D 6C 65 6D 65 6E 74 20 20 64 65 20 20 fid}lement de
014210: 6D 61 6E 69 7D 72 65 20 20 61 75 74 6F 6D 61 74 mani}re automat
014220: 69 71 75 65 20 2E 20 4C 61 0D 0A 20 76 61 6C 65 ique . La.. vale
014230: 75 72 20 64 65 73 20 6F 63 74 65 74 73 20 73 69 ur des octets si
014240: 74 75 7B 73 20 65 6E 74 72 65 20 32 20 20 73 65 tu{s entre 2 se
014250: 63 74 65 75 72 73 20 20 64 7B 70 65 6E 64 20 20 cteurs d{pend
014260: 65 6E 20 20 65 66 66 65 74 20 28 64 61 6E 73 20 en effet (dans
014270: 6C 65 20 63 61 73 20 64 65 0D 0A 20 73 65 63 74 le cas de.. sect
014280: 65 75 72 73 20 7B 63 72 61 73 7B 73 29 20 64 75 eurs {cras{s) du
014290: 20 47 41 50 20 52 2F 57 20 2C 20 64 65 73 20 74 GAP R/W , des t
0142A0: 61 69 6C 6C 65 73 20 64 65 20 73 65 63 74 65 75 ailles de secteu
0142B0: 72 73 20 65 6E 20 6A 65 75 20 2C 20 65 74 20 70 rs en jeu , et p
0142C0: 61 72 66 6F 69 73 20 64 65 0D 0A 20 6C 27 6F 72 arfois de.. l'or
0142D0: 64 72 65 20 64 61 6E 73 20 6C 65 71 75 65 6C 20 dre dans lequel
0142E0: 73 6F 6E 74 20 20 7B 63 72 69 74 73 20 20 6C 65 sont {crits le
0142F0: 73 20 20 73 65 63 74 65 75 72 73 20 20 2E 2E 2E s secteurs ...
014300: 20 20 49 6C 20 20 73 75 66 66 69 74 20 20 64 65 Il suffit de
014310: 20 62 61 73 65 72 20 6C 61 0D 0A 20 70 72 6F 74 baser la.. prot
014320: 65 63 74 69 6F 6E 20 73 75 72 20 75 6E 20 6F 75 ection sur un ou
014330: 20 70 6C 75 73 69 65 75 72 73 20 64 65 20 63 65 plusieurs de ce
014340: 75 78 2D 63 69 20 65 74 20 62 6F 6E 6A 6F 75 72 ux-ci et bonjour
014350: 20 6C 65 73 20 64 7B 67 61 74 73 20 21 0D 0A 20 les d{gats !..
014360: 20 20 20 20 4E 4F 54 45 20 3A 20 4C 27 65 78 65 NOTE : L'exe
014370: 6D 70 6C 65 20 64 6F 6E 6E 7B 20 65 6E 20 74 61 mple donn{ en ta
014380: 69 6C 6C 65 20 30 20 7B 63 72 61 73 7B 65 20 20 ille 0 {cras{e
014390: 70 61 72 20 75 6E 65 20 74 61 69 6C 6C 65 20 32 par une taille 2
0143A0: 20 40 20 7B 74 7B 20 63 68 6F 69 73 69 0D 0A 20 @ {t{ choisi..
0143B0: 65 6E 20 66 6F 6E 63 74 69 6F 6E 20 64 65 20 73 en fonction de s
0143C0: 61 20 20 73 69 6D 70 6C 69 63 69 74 7B 20 20 2E a simplicit{ .
0143D0: 20 20 49 6C 20 20 65 73 74 20 20 62 69 65 6E 20 Il est bien
0143E0: 20 73 75 72 20 20 70 6F 73 73 69 62 6C 65 20 64 sur possible d
0143F0: 27 75 74 69 6C 69 73 65 72 20 64 65 73 0D 0A 20 'utiliser des..
014400: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
014410: 11 00 01 00 02 09 4E E5 11 00 C1 02 00 00 00 02 ......N.........
014420: 11 00 C2 02 00 00 00 02 11 00 C3 02 00 00 00 02 ................
014430: 11 00 C4 02 00 00 00 02 11 00 C5 02 00 00 00 02 ................
014440: 11 00 C6 02 00 00 00 02 11 00 C7 02 00 00 00 02 ................
014450: 11 00 C8 02 00 00 00 02 11 00 C9 02 00 00 00 02 ................
014460: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014470: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014480: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014490: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0144A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0144B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0144C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0144D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0144E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0144F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014500: 74 61 69 6C 6C 65 73 20 20 64 69 66 66 7B 72 65 tailles diff{re
014510: 6E 74 65 73 20 20 76 6F 69 72 65 20 20 64 27 7B ntes voire d'{
014520: 63 72 61 73 65 72 20 20 20 75 6E 65 20 20 20 74 craser une t
014530: 61 69 6C 6C 65 20 20 64 6F 6E 6E 7B 65 20 20 73 aille donn{e s
014540: 6F 75 73 20 20 64 27 61 75 74 72 65 73 0D 0A 20 ous d'autres..
014550: 64 69 66 66 7B 72 65 6E 74 65 73 20 64 61 6E 73 diff{rentes dans
014560: 20 6C 65 20 67 65 6E 72 65 20 3A 0D 0A 20 0D 0A le genre :.. ..
014570: 20 78 2C 78 2C 78 2C 33 20 4F 4B 20 20 49 63 69 x,x,x,3 OK Ici
014580: 20 75 6E 65 20 74 61 69 6C 6C 65 20 30 20 65 73 une taille 0 es
014590: 74 20 72 65 63 6F 75 76 65 72 74 65 20 70 61 72 t recouverte par
0145A0: 20 33 20 74 61 69 6C 6C 65 73 20 64 69 66 66 7B 3 tailles diff{
0145B0: 72 65 6E 74 65 73 20 2E 0D 0A 20 78 2C 78 2C 78 rentes ... x,x,x
0145C0: 2C 30 20 4F 4B 0D 0A 20 78 2C 78 2C 78 2C 32 20 ,0 OK.. x,x,x,2
0145D0: 4F 4B 0D 0A 20 78 2C 78 2C 78 2C 32 20 4F 4B 0D OK.. x,x,x,2 OK.
0145E0: 0A 20 78 2C 78 2C 78 2C 31 20 4F 4B 0D 0A 20 0D . x,x,x,1 OK.. .
0145F0: 0A 20 78 2C 78 2C 78 2C 30 20 4F 4B 20 20 49 63 . x,x,x,0 OK Ic
014600: 69 20 75 6E 20 66 6F 72 6D 61 74 20 74 61 69 6C i un format tail
014610: 6C 65 20 30 20 61 76 65 63 20 47 41 50 20 3E 20 le 0 avec GAP >
014620: 71 75 65 20 20 23 37 37 20 20 70 65 72 6D 65 74 que #77 permet
014630: 20 20 64 27 7B 63 72 61 73 65 72 20 20 75 6E 0D d'{craser un.
014640: 0A 20 78 2C 78 2C 78 2C 31 20 4F 4B 20 20 73 65 . x,x,x,1 OK se
014650: 63 74 65 75 72 20 64 65 20 74 61 69 6C 6C 65 20 cteur de taille
014660: 31 20 53 41 4E 53 20 45 43 52 41 53 45 52 20 61 1 SANS ECRASER a
014670: 75 63 75 6E 20 73 65 63 74 65 75 72 20 2E 20 53 ucun secteur . S
014680: 69 20 6C 65 20 6E 6F 6D 62 72 65 20 20 64 65 0D i le nombre de.
014690: 0A 20 78 2C 78 2C 78 2C 30 20 4F 4B 20 20 73 65 . x,x,x,0 OK se
0146A0: 63 74 65 75 72 73 20 65 73 74 20 61 75 20 6D 61 cteurs est au ma
0146B0: 78 69 6D 75 6D 20 28 56 6F 69 72 20 6C 65 73 20 ximum (Voir les
0146C0: 53 4F 53 20 70 72 7B 63 7B 64 65 6E 74 73 20 70 SOS pr{c{dents p
0146D0: 6F 75 72 20 20 6C 65 20 20 6E 6F 6D 62 72 65 0D our le nombre.
0146E0: 0A 20 78 2C 78 2C 78 2C 31 20 4F 4B 20 20 6D 61 . x,x,x,1 OK ma
0146F0: 78 69 6D 75 6D 20 70 6F 73 73 69 62 6C 65 20 65 ximum possible e
014700: 6E 20 66 6F 6E 63 74 69 6F 6E 20 64 75 20 47 41 n fonction du GA
014710: 50 20 29 20 20 63 65 72 74 61 69 6E 73 20 20 63 P ) certains c
014720: 6F 70 69 65 75 72 73 20 20 73 65 72 6F 6E 74 0D opieurs seront.
014730: 0A 20 45 74 63 20 2E 2E 2E 20 20 20 20 20 70 65 . Etc ... pe
014740: 72 70 6C 65 78 65 73 20 2E 2E 2E 0D 0A 20 0D 0A rplexes ..... ..
014750: 20 78 2C 78 2C 78 2C 31 20 20 20 20 20 4C 40 20 x,x,x,1 L@
014760: 33 31 20 73 65 63 74 65 75 72 73 20 64 65 20 74 31 secteurs de t
014770: 61 69 6C 6C 65 20 30 20 6F 6E 74 20 7B 74 7B 20 aille 0 ont {t{
014780: 7B 63 72 61 73 7B 73 20 73 6F 75 73 20 64 65 73 {cras{s sous des
014790: 20 74 61 69 6C 6C 65 73 20 31 20 26 20 32 0D 0A tailles 1 & 2..
0147A0: 20 78 2C 78 2C 78 2C 31 20 20 20 20 20 6C 65 73 x,x,x,1 les
0147B0: 20 76 65 72 73 69 6F 6E 73 20 72 7B 63 65 6E 74 versions r{cent
0147C0: 65 73 20 64 65 20 20 63 6F 70 69 65 75 72 73 20 es de copieurs
0147D0: 20 6E 65 20 20 73 27 79 20 74 72 6F 6D 70 65 6E ne s'y trompen
0147E0: 74 20 70 61 73 20 6D 61 69 73 20 6C 65 73 20 0D t pas mais les .
0147F0: 0A 20 78 2C 78 2C 78 2C 32 20 20 20 20 20 61 6E . x,x,x,2 an
014800: 63 69 65 6E 73 20 64 7B 74 65 72 6D 69 6E 65 6E ciens d{terminen
014810: 74 20 75 6E 65 20 74 61 69 6C 6C 65 20 64 65 20 t une taille de
014820: 66 6F 72 6D 61 74 20 20 64 65 20 20 31 20 20 2E format de 1 .
014830: 20 44 61 6E 73 20 63 65 20 63 61 73 20 6C 65 20 Dans ce cas le
014840: 0D 0A 20 78 2C 78 2C 78 2C 32 20 20 20 20 20 6E .. x,x,x,2 n
014850: 6F 6D 62 72 65 20 64 65 20 73 65 63 74 65 75 72 ombre de secteur
014860: 73 20 63 61 6C 63 75 6C 7B 73 20 70 6F 75 72 20 s calcul{s pour
014870: 6C 65 20 20 66 6F 72 6D 61 74 20 65 73 74 20 74 le format est t
014880: 72 6F 70 20 67 72 61 6E 64 20 2C 20 64 27 6F 7C rop grand , d'o|
014890: 20 0D 0A 20 78 2C 78 2C 78 2C 32 20 20 20 20 20 .. x,x,x,2
0148A0: 75 6E 20 63 65 72 74 61 69 6E 20 6D 61 6C 61 69 un certain malai
0148B0: 73 65 20 2E 0D 0A 20 78 2C 78 2C 78 2C 32 0D 0A se ... x,x,x,2..
0148C0: 20 78 2C 78 2C 78 2C 32 0D 0A 20 78 2C 78 2C 78 x,x,x,2.. x,x,x
0148D0: 2C 32 0D 0A 20 78 2C 78 2C 78 2C 32 0D 0A 20 78 ,2.. x,x,x,2.. x
0148E0: 2C 78 2C 78 2C 32 0D 0A 20 0D 0A 20 20 20 20 20 ,x,x,2.. ..
0148F0: 4C 65 20 6D 6F 64 65 20 64 27 65 6D 70 6C 6F 69 Le mode d'emploi
014900: 20 64 65 73 20 70 72 6F 67 72 61 6D 6D 65 73 20 des programmes
014910: 63 6F 6E 74 69 65 6E 74 20 20 64 27 61 75 74 72 contient d'autr
014920: 65 73 20 20 65 78 65 6D 70 6C 65 73 20 64 65 20 es exemples de
014930: 63 65 20 74 79 70 65 20 2C 0D 0A 20 6C 65 20 6E ce type ,.. le n
014940: 6F 6D 62 72 65 20 64 65 20 63 6F 6D 62 69 6E 61 ombre de combina
014950: 69 73 6F 6E 73 20 20 70 6F 73 73 69 62 6C 65 73 isons possibles
014960: 20 20 65 73 74 20 20 64 65 20 20 6C 6F 69 6E 20 est de loin
014970: 20 74 72 6F 70 20 69 6D 70 6F 72 74 61 6E 74 20 trop important
014980: 70 6F 75 72 20 65 08 5E 74 72 65 0D 0A 20 64 7B pour e.^tre.. d{
014990: 63 72 69 74 20 63 61 73 20 70 61 72 20 63 61 73 crit cas par cas
0149A0: 20 2C 20 76 6F 74 72 65 20 69 6D 61 67 69 6E 61 , votre imagina
0149B0: 74 69 6F 6E 20 65 74 20 76 6F 73 20 65 73 73 61 tion et vos essa
0149C0: 69 73 20 66 65 72 6F 6E 74 20 6C 65 20 72 65 73 is feront le res
0149D0: 74 65 20 2E 2E 2E 0D 0A 20 20 20 20 20 4E 27 6F te ..... N'o
0149E0: 75 62 6C 69 65 7A 20 70 61 73 20 71 75 65 20 72 ubliez pas que r
0149F0: 7B 61 6C 69 73 65 72 20 75 6E 65 20 20 70 69 73 {aliser une pis
014A00: 74 65 20 20 6E 6F 6E 20 20 72 65 70 72 6F 64 75 te non reprodu
014A10: 63 74 69 62 6C 65 20 6E 65 20 67 61 72 61 6E 74 ctible ne garant
014A20: 69 74 20 70 61 73 0D 0A 20 6E 7B 63 7B 73 73 61 it pas.. n{c{ssa
014A30: 69 72 65 6D 65 6E 74 20 75 6E 65 20 70 72 6F 74 irement une prot
014A40: 65 63 74 69 6F 6E 20 65 66 66 69 63 61 63 65 20 ection efficace
014A50: 63 6F 6E 74 72 65 20 6C 61 20 20 63 6F 70 69 65 contre la copie
014A60: 20 21 20 4C 65 20 6D 6F 64 65 20 64 27 65 6D 70 ! Le mode d'emp
014A70: 6C 6F 69 20 64 75 0D 0A 20 62 69 64 6F 75 69 6C loi du.. bidouil
014A80: 6C 65 75 72 20 70 72 7B 73 65 6E 74 65 72 61 20 leur pr{sentera
014A90: 75 6E 20 65 78 65 6D 70 6C 65 20 66 6C 61 67 72 un exemple flagr
014AA0: 61 6E 74 20 64 65 20 70 69 73 74 65 20 56 52 41 ant de piste VRA
014AB0: 49 4D 45 4E 54 20 66 6F 72 6D 61 74 7B 65 20 61 IMENT format{e a
014AC0: 76 65 63 20 75 6E 0D 0A 20 46 44 43 20 73 70 7B vec un.. FDC sp{
014AD0: 63 69 61 6C 20 65 74 20 61 76 65 63 20 75 6E 20 cial et avec un
014AE0: 47 41 50 20 20 49 52 52 45 50 52 4F 44 55 43 54 GAP IRREPRODUCT
014AF0: 49 42 4C 45 20 20 2E 20 20 53 65 75 6C 20 20 64 IBLE . Seul d
014B00: 7B 74 61 69 6C 20 20 2C 20 6C 65 20 74 65 73 74 {tail , le test
014B10: 20 64 65 20 6C 61 0D 0A 20 70 72 6F 74 65 63 74 de la.. protect
014B20: 69 6F 6E 20 65 73 74 20 73 69 20 20 6E 75 6C 20 ion est si nul
014B30: 20 71 75 27 75 6E 65 20 20 61 73 74 75 63 65 20 qu'une astuce
014B40: 20 65 6E 66 61 6E 74 69 6E 65 20 20 73 75 66 66 enfantine suff
014B50: 69 74 20 20 70 6F 75 72 20 20 71 75 65 20 6C 61 it pour que la
014B60: 20 63 6F 70 69 65 0D 0A 20 66 6F 6E 63 74 69 6F copie.. fonctio
014B70: 6E 6E 65 20 61 76 65 63 20 75 6E 65 20 72 65 70 nne avec une rep
014B80: 72 6F 64 75 63 74 69 6F 6E 20 64 65 73 20 70 6C roduction des pl
014B90: 75 73 20 69 6D 70 61 72 66 61 69 74 65 20 2E 0D us imparfaite ..
014BA0: 0A 20 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 . ..
014BB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
014BC0: 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ------------
014BD0: 2D 2D 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 --..
014BE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
014BF0: 20 20 20 20 2D 20 4C 45 20 43 4F 50 49 45 55 52 - LE COPIEUR
014C00: 20 2D 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 -..
014C10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
014C20: 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ------------
014C30: 2D 2D 0D 0A 20 0D 0A 20 20 20 20 20 43 45 20 51 --.. .. CE Q
014C40: 55 27 49 4C 20 46 41 49 54 20 3A 20 49 6C 20 72 U'IL FAIT : Il r
014C50: 65 63 6F 70 69 65 20 69 6E 74 7B 67 72 61 6C 65 ecopie int{grale
014C60: 6D 65 6E 74 20 20 6C 65 73 20 70 69 73 74 65 73 ment les pistes
014C70: 20 6C 65 73 20 70 6C 75 73 20 74 6F 72 64 75 65 les plus tordue
014C80: 73 20 71 75 65 0D 0A 20 76 6F 75 73 20 70 75 69 s que.. vous pui
014C90: 73 73 69 65 7A 20 69 6D 61 67 69 6E 65 72 20 20 ssiez imaginer
014CA0: 2E 20 20 49 6C 20 20 72 65 73 74 61 75 72 65 20 . Il restaure
014CB0: 20 74 61 6E 74 20 20 62 69 65 6E 20 20 71 75 65 tant bien que
014CC0: 20 20 6D 61 6C 20 20 6C 65 73 20 64 69 73 71 75 mal les disqu
014CD0: 65 74 74 65 73 0D 0A 20 65 6E 64 6F 6D 6D 61 67 ettes.. endommag
014CE0: 7B 65 73 20 2E 0D 0A 20 20 20 20 20 43 45 20 51 {es ... CE Q
014CF0: 55 27 49 4C 20 4E 45 20 46 41 49 54 20 50 41 53 U'IL NE FAIT PAS
014D00: 20 3A 20 20 49 6C 20 20 6E 65 20 20 72 65 70 72 : Il ne repr
014D10: 6F 64 75 69 74 20 20 70 61 73 20 61 76 65 63 20 oduit pas avec
014D20: 65 78 61 63 74 69 74 75 64 65 20 6C 65 73 20 70 exactitude les p
014D30: 69 73 74 65 73 0D 0A 20 66 6F 72 6D 61 74 7B 65 istes.. format{e
014D40: 73 20 61 76 65 63 20 75 6E 20 47 41 50 20 64 69 s avec un GAP di
014D50: 66 66 7B 72 65 6E 74 20 64 65 20 23 34 45 20 2E ff{rent de #4E .
014D60: 20 44 61 6E 73 20 63 65 72 74 61 69 6E 73 20 63 Dans certains c
014D70: 61 73 20 2C 20 63 65 74 74 65 20 64 69 66 66 69 as , cette diffi
014D80: 63 75 6C 74 7B 0D 0A 20 70 65 75 74 20 65 08 5E cult{.. peut e.^
014D90: 74 72 65 20 63 6F 6E 74 6F 75 72 6E 7B 65 20 70 tre contourn{e p
014DA0: 61 72 20 63 65 20 71 75 65 20 6C 27 6F 6E 20 20 ar ce que l'on
014DB0: 61 70 70 65 6C 65 20 20 75 6E 20 73 65 63 74 65 appele un secte
014DC0: 75 72 20 64 65 20 73 75 62 73 74 69 74 75 74 69 ur de substituti
014DD0: 6F 6E 20 2E 20 45 6E 0D 0A 20 64 65 68 6F 72 73 on . En.. dehors
014DE0: 20 64 65 20 6C 27 65 78 65 6D 70 6C 65 20 63 69 de l'exemple ci
014DF0: 74 7B 20 40 20 6C 61 20 20 66 69 6E 20 20 64 75 t{ @ la fin du
014E00: 20 20 70 61 72 61 67 72 61 70 68 65 20 70 72 7B paragraphe pr{
014E10: 63 7B 64 65 6E 74 20 6C 65 20 73 75 6A 65 74 20 c{dent le sujet
014E20: 6E 65 20 73 65 72 61 0D 0A 20 70 61 73 20 74 72 ne sera.. pas tr
014E30: 61 69 74 7B 20 70 6F 75 72 20 32 20 72 61 69 73 ait{ pour 2 rais
014E40: 6F 6E 73 20 3A 20 0D 0A 20 20 20 20 20 31 20 2D ons : .. 1 -
014E50: 20 43 65 6C 61 20 6E 65 20 66 6F 6E 63 74 69 6F Cela ne fonctio
014E60: 6E 6E 65 20 70 61 73 20 64 61 6E 73 20 20 74 6F nne pas dans to
014E70: 75 73 20 20 6C 65 73 20 63 61 73 20 65 74 20 6C us les cas et l
014E80: 65 20 6E 6F 6D 62 72 65 20 64 65 20 73 69 74 75 e nombre de situ
014E90: 61 74 69 6F 6E 73 0D 0A 20 6F 7C 20 63 65 6C 61 ations.. o| cela
014EA0: 20 70 6F 75 72 72 61 69 74 20 66 6F 6E 63 74 69 pourrait foncti
014EB0: 6F 6E 6E 65 72 20 65 73 74 20 73 69 20 6E 6F 6D onner est si nom
014EC0: 62 72 65 75 78 20 71 75 65 20 6C 65 20 63 6F 64 breux que le cod
014ED0: 65 20 73 6F 75 72 63 65 20 70 72 65 6E 64 72 61 e source prendra
014EE0: 69 74 20 75 6E 65 0D 0A 20 74 6F 75 72 6E 75 72 it une.. tournur
014EF0: 65 20 6B 69 6C 6F 6D 7B 74 72 69 71 75 65 20 2E e kilom{trique .
014F00: 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ------------
014F10: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
014F20: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
014F30: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
014F40: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 20 20 -----------..
014F50: 20 2D 20 41 4E 41 4C 59 53 45 20 43 4F 4D 50 4C - ANALYSE COMPL
014F60: 45 54 45 20 44 45 53 20 47 41 50 53 20 2D 20 4C ETE DES GAPS - L
014F70: 4F 4E 47 55 45 55 52 53 20 44 45 20 53 45 43 54 ONGUEURS DE SECT
014F80: 45 55 52 53 20 45 54 20 54 59 50 45 20 44 45 20 EURS ET TYPE DE
014F90: 46 4F 52 4D 41 54 20 2D 0D 0A 20 20 20 20 2D 2D FORMAT -.. --
014FA0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
014FB0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
014FC0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
014FD0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
014FE0: 2D 2D 2D 2D 2D 0D 0A 20 0D 0A 20 20 20 20 20 20 -----.. ..
014FF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
015000: 20 20 20 20 20 20 20 28 43 4F 50 49 45 55 52 20 (COPIEUR
015010: 34 45 4D 45 20 50 41 52 54 49 45 29 0D 0A 20 0D 4EME PARTIE).. .
015020: 0A 20 20 20 20 20 4C 65 20 67 72 6F 73 20 2C 20 . Le gros ,
015030: 74 72 7D 73 20 67 72 6F 73 20 6D 6F 72 63 65 61 tr}s gros morcea
015040: 75 20 64 65 20 63 65 20 20 74 72 69 6D 65 73 74 u de ce trimest
015050: 72 65 20 2E 20 54 6F 75 74 20 6C 65 20 73 65 63 re . Tout le sec
015060: 72 65 74 20 64 27 75 6E 65 20 63 6F 70 69 65 0D ret d'une copie.
015070: 0A 20 65 66 66 69 63 61 63 65 20 72 7B 73 69 64 . efficace r{sid
015080: 65 20 64 61 6E 73 20 63 65 74 74 65 20 73 65 63 e dans cette sec
015090: 74 69 6F 6E 20 20 2E 2E 2E 20 20 50 61 73 20 20 tion ... Pas
0150A0: 64 65 20 20 62 61 72 61 74 69 6E 20 20 69 6E 75 de baratin inu
0150B0: 74 69 6C 65 20 2C 20 6F 6E 20 65 6E 74 72 65 0D tile , on entre.
0150C0: 0A 20 64 65 72 65 63 68 65 66 20 64 61 6E 73 20 . derechef dans
0150D0: 6C 65 20 76 69 66 20 64 75 20 20 73 75 6A 65 74 le vif du sujet
0150E0: 20 20 61 76 65 63 20 20 6C 61 20 20 70 72 65 6D avec la prem
0150F0: 69 7D 72 65 20 20 73 65 63 74 69 6F 6E 20 64 65 i}re section de
015100: 20 63 65 74 74 65 20 73 7B 72 69 65 20 64 65 0D cette s{rie de.
015110: 0A 20 72 6F 75 74 69 6E 65 73 20 2E 0D 0A 20 0D . routines ... .
015120: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
015130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2D 20 -
015140: 49 4E 46 4F 52 4D 41 54 49 4F 4E 20 50 49 53 54 INFORMATION PIST
015150: 45 20 2D 0D 0A 20 0D 0A 20 20 20 20 20 51 75 6F E -.. .. Quo
015160: 69 71 75 65 20 67 7B 6E 7B 72 61 6C 65 6D 65 6E ique g{n{ralemen
015170: 74 20 65 66 66 69 63 61 63 65 20 2C 20 6C 65 20 t efficace , le
015180: 20 73 79 73 74 7D 6D 65 20 70 72 7B 73 65 6E 74 syst}me pr{sent
015190: 7B 20 6C 65 20 74 72 69 6D 65 73 74 72 65 20 64 { le trimestre d
0151A0: 65 72 6E 69 65 72 0D 0A 20 6E 65 20 72 7B 73 6F ernier.. ne r{so
0151B0: 75 74 20 70 61 73 20 20 74 6F 75 73 20 20 6C 65 ut pas tous le
0151C0: 73 20 20 63 61 73 20 20 64 65 20 20 66 69 67 75 s cas de figu
0151D0: 72 65 20 20 65 74 20 20 69 6C 20 20 73 27 65 6E re et il s'en
0151E0: 20 20 66 61 75 74 20 20 2E 2E 2E 20 4C 61 20 73 faut ... La s
0151F0: 65 63 74 69 6F 6E 0D 0A 20 49 4E 46 4F 52 4D 41 ection.. INFORMA
015200: 54 49 4F 4E 20 50 49 53 54 45 20 72 65 63 75 65 TION PISTE recue
015210: 69 6C 6C 65 20 75 6E 20 6D 61 78 69 6D 75 6D 20 ille un maximum
015220: 20 64 65 20 20 64 6F 6E 6E 7B 65 73 20 20 73 75 de donn{es su
015230: 72 20 20 6C 27 7B 74 61 74 20 67 6C 6F 62 61 6C r l'{tat global
015240: 20 64 65 20 6C 61 0D 0A 20 70 69 73 74 65 20 2E de la.. piste .
015250: 20 45 6E 20 63 61 73 20 64 27 7B 63 68 65 63 20 En cas d'{chec
015260: 64 65 20 6C 61 20 70 72 65 6D 69 7D 72 65 20 72 de la premi}re r
015270: 65 63 68 65 72 63 68 65 20 2C 20 6C 27 7B 74 75 echerche , l'{tu
015280: 64 65 20 64 65 20 63 65 73 20 69 6E 66 6F 72 6D de de ces inform
015290: 61 74 69 6F 6E 73 0D 0A 20 70 65 72 6D 65 74 74 ations.. permett
0152A0: 72 61 20 64 65 20 64 7B 74 65 72 6D 69 6E 65 72 ra de d{terminer
0152B0: 20 75 6E 65 20 72 7B 61 63 74 69 6F 6E 20 61 70 une r{action ap
0152C0: 70 72 6F 70 72 69 7B 65 20 61 75 20 63 61 73 20 propri{e au cas
0152D0: 72 65 6E 63 6F 6E 74 72 7B 20 2E 0D 0A 20 0D 0A rencontr{ ... ..
0152E0: 20 20 20 20 20 45 6E 20 73 6F 72 74 69 65 20 64 En sortie d
0152F0: 65 20 63 65 74 74 65 20 73 65 63 74 69 6F 6E 20 e cette section
015300: 6F 6E 20 73 61 75 72 61 20 3A 0D 0A 20 0D 0A 20 on saura :.. ..
015310: 20 20 20 20 31 20 53 69 20 69 6C 20 79 2D 61 20 1 Si il y-a
015320: 64 65 73 20 73 65 63 74 65 75 72 73 20 43 52 2F des secteurs CR/
015330: 44 44 20 73 75 72 20 6C 61 20 70 69 73 74 65 20 DD sur la piste
015340: 2E 0D 0A 20 20 20 20 20 32 20 4C 61 20 74 61 69 ... 2 La tai
015350: 6C 6C 65 20 49 44 20 64 75 20 70 6C 75 73 20 67 lle ID du plus g
015360: 72 61 6E 64 20 64 65 20 63 65 73 20 43 52 2F 44 rand de ces CR/D
015370: 44 20 73 27 69 6C 20 79 2D 65 6E 20 61 0D 0A 20 D s'il y-en a..
015380: 20 20 20 20 33 20 53 69 20 70 6C 75 73 69 65 75 3 Si plusieu
015390: 72 73 20 74 61 69 6C 6C 65 73 20 64 65 20 73 65 rs tailles de se
0153A0: 63 74 65 75 72 73 20 45 46 46 45 43 54 49 56 45 cteurs EFFECTIVE
0153B0: 4D 45 4E 54 20 45 43 52 49 54 53 20 73 6F 6E 74 MENT ECRITS sont
0153C0: 20 70 72 7B 73 65 6E 74 65 73 0D 0A 20 20 20 20 pr{sentes..
0153D0: 20 34 20 4C 61 20 74 61 69 6C 6C 65 20 64 75 20 4 La taille du
0153E0: 70 6C 75 73 20 67 72 61 6E 64 20 73 65 63 74 65 plus grand secte
0153F0: 75 72 20 45 46 46 45 43 54 49 56 45 4D 45 4E 54 ur EFFECTIVEMENT
015400: 20 45 43 52 49 54 0D 0A 20 20 20 20 20 35 20 4C ECRIT.. 5 L
015410: 61 20 74 61 69 6C 6C 65 20 64 75 20 70 6C 75 73 a taille du plus
015420: 20 70 65 74 69 74 20 73 65 63 74 65 75 72 20 45 petit secteur E
015430: 46 46 45 43 54 49 56 45 4D 45 4E 54 20 45 43 52 FFECTIVEMENT ECR
015440: 49 54 0D 0A 20 20 20 20 20 36 20 53 69 20 63 65 IT.. 6 Si ce
015450: 72 74 61 69 6E 73 20 73 65 63 74 65 75 72 73 20 rtains secteurs
015460: 73 6F 6E 74 20 65 6E 20 4D 41 4D 0D 0A 20 0D 0A sont en MAM.. ..
015470: 20 20 20 20 20 4C 61 20 76 61 72 69 61 62 6C 65 La variable
015480: 20 4C 4D 49 4E 20 65 73 74 20 75 6E 20 70 65 75 LMIN est un peu
015490: 20 20 64 7B 72 6F 75 74 61 6E 74 65 20 20 2C 20 d{routante ,
0154A0: 65 6C 6C 65 20 64 6F 69 74 20 65 6E 20 70 72 69 elle doit en pri
0154B0: 6E 63 69 70 65 20 63 6F 6E 74 65 6E 69 72 0D 0A ncipe contenir..
0154C0: 20 6C 61 20 76 61 6C 65 75 72 20 64 65 20 6C 61 la valeur de la
0154D0: 20 70 6C 75 73 20 20 70 65 74 69 74 65 20 20 6C plus petite l
0154E0: 6F 6E 67 75 65 75 72 20 20 49 44 20 20 45 46 46 ongueur ID EFF
0154F0: 45 43 54 49 56 45 4D 45 4E 54 20 7B 63 72 69 74 ECTIVEMENT {crit
015500: 65 20 2E 20 43 65 74 74 65 20 63 61 73 65 0D 0A e . Cette case..
015510: 20 6D 7B 6D 6F 69 72 65 20 6E 65 20 73 65 72 61 m{moire ne sera
015520: 20 70 61 73 20 69 6E 69 74 69 61 6C 69 73 7B 65 pas initialis{e
015530: 20 65 74 20 72 65 73 74 65 72 61 20 40 20 23 46 et restera @ #F
015540: 46 20 73 69 20 3A 0D 0A 20 0D 0A 20 20 20 20 20 F si :.. ..
015550: 31 20 3A 20 54 6F 75 73 20 6C 65 73 20 73 65 63 1 : Tous les sec
015560: 74 65 75 72 73 20 4F 4B 20 73 6F 6E 74 20 64 65 teurs OK sont de
015570: 20 6C 6F 6E 67 75 65 75 72 20 69 64 65 6E 74 69 longueur identi
015580: 71 75 65 0D 0A 20 20 20 20 20 32 20 3A 20 41 75 que.. 2 : Au
015590: 63 75 6E 20 73 65 63 74 65 75 72 20 6E 27 65 73 cun secteur n'es
0155A0: 74 20 72 65 63 6F 6E 6E 75 20 4F 4B 20 2E 20 28 t reconnu OK . (
0155B0: 44 61 6E 73 20 63 65 20 63 61 73 20 4C 49 44 4D Dans ce cas LIDM
0155C0: 41 58 20 72 65 73 74 65 20 40 20 30 29 0D 0A 20 AX reste @ 0)..
0155D0: 0D 0A 20 20 20 20 20 43 65 74 74 65 20 70 65 74 .. Cette pet
0155E0: 69 74 65 20 63 6F 6D 70 6C 69 63 61 74 69 6F 6E ite complication
0155F0: 20 70 65 72 6D 65 74 20 64 65 20 74 65 73 74 65 permet de teste
015600: 72 20 71 75 65 6C 71 75 65 73 20 70 6F 69 6E 74 r quelques point
015610: 73 20 70 61 72 74 69 63 75 6C 69 65 72 73 2E 0D s particuliers..
015620: 0A 20 0D 0A 20 20 20 20 20 4F 6E 20 63 6F 6D 6D . .. On comm
015630: 65 6E 63 65 20 70 61 72 20 69 6E 69 74 69 61 6C ence par initial
015640: 69 73 65 72 20 63 6F 6D 6D 65 20 73 75 69 74 20 iser comme suit
015650: 3A 0D 0A 20 3B 0D 0A 20 46 49 4E 44 4C 45 4E 20 :.. ;.. FINDLEN
015660: 58 4F 52 20 41 20 20 20 20 20 20 20 20 20 20 20 XOR A
015670: 20 20 20 20 3B 4F 4E 20 52 45 4D 45 54 20 54 4F ;ON REMET TO
015680: 55 53 20 4C 45 53 20 50 41 52 41 4D 45 54 52 45 US LES PARAMETRE
015690: 53 20 41 20 30 0D 0A 20 20 20 20 20 20 20 20 20 S A 0..
0156A0: 4C 44 20 28 47 41 50 46 4F 52 4D 29 2C 41 20 20 LD (GAPFORM),A
0156B0: 20 20 20 20 3B 47 41 50 23 33 0D 0A 20 20 20 20 ;GAP#3..
0156C0: 20 20 20 20 20 4C 44 20 28 56 41 4C 47 41 50 46 LD (VALGAPF
0156D0: 29 2C 41 20 20 20 20 20 20 3B 4C 6F 6E 67 75 65 ),A ;Longue
0156E0: 75 72 20 47 41 50 23 33 0D 0A 20 20 20 20 20 20 ur GAP#3..
0156F0: 20 20 20 4C 44 20 28 46 4C 47 44 49 46 49 44 29 LD (FLGDIFID)
015700: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
015710: 12 00 01 00 02 09 4E E5 12 00 C1 02 00 00 00 02 ......N.........
015720: 12 00 C2 02 00 00 00 02 12 00 C3 02 00 00 00 02 ................
015730: 12 00 C4 02 00 00 00 02 12 00 C5 02 00 00 00 02 ................
015740: 12 00 C6 02 00 00 00 02 12 00 C7 02 00 00 00 02 ................
015750: 12 00 C8 02 00 00 00 02 12 00 C9 02 00 00 00 02 ................
015760: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
015770: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
015780: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
015790: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0157A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0157B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0157C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0157D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0157E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0157F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
015800: 2C 41 20 20 20 20 20 3B 4D 61 72 71 75 65 20 73 ,A ;Marque s
015810: 69 20 64 69 66 66 65 72 65 6E 74 73 20 49 44 53 i differents IDS
015820: 20 4F 4B 20 28 53 65 63 74 65 75 72 73 20 65 63 OK (Secteurs ec
015830: 72 69 74 73 29 0D 0A 20 20 20 20 20 20 20 20 20 rits)..
015840: 4C 44 20 28 46 4C 41 47 43 52 44 44 29 2C 41 20 LD (FLAGCRDD),A
015850: 20 20 20 20 3B 4D 61 72 71 75 65 20 73 69 20 70 ;Marque si p
015860: 72 65 73 65 6E 63 65 20 43 52 2F 44 44 0D 0A 20 resence CR/DD..
015870: 20 20 20 20 20 20 20 20 4C 44 20 28 46 4C 41 47 LD (FLAG
015880: 4D 41 4D 29 2C 41 20 20 20 20 20 20 3B 4D 61 72 MAM),A ;Mar
015890: 71 75 65 20 70 72 65 73 65 6E 63 65 20 73 65 63 que presence sec
0158A0: 74 65 75 72 20 4D 41 4D 0D 0A 20 20 20 20 20 20 teur MAM..
0158B0: 20 20 20 4C 44 20 28 46 41 55 58 47 41 50 29 2C LD (FAUXGAP),
0158C0: 41 20 20 20 20 20 20 3B 45 76 65 6E 74 75 65 6C A ;Eventuel
0158D0: 20 66 61 75 78 20 47 41 50 20 73 69 20 65 63 72 faux GAP si ecr
0158E0: 61 73 65 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 ase.. LD
0158F0: 20 28 46 41 55 58 4C 47 46 29 2C 41 20 20 20 20 (FAUXLGF),A
015900: 20 20 3B 61 76 65 63 20 73 61 20 6C 6F 6E 67 75 ;avec sa longu
015910: 65 75 72 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 eur.. LD
015920: 20 28 4C 4D 41 58 29 2C 41 20 20 20 20 20 20 20 (LMAX),A
015930: 20 20 3B 50 6C 75 73 20 67 72 61 6E 64 65 20 74 ;Plus grande t
015940: 61 69 6C 6C 65 20 61 64 6D 69 73 73 69 62 6C 65 aille admissible
015950: 20 70 61 72 20 6C 65 20 66 6F 72 6D 61 74 0D 0A par le format..
015960: 20 20 20 20 20 20 20 20 20 4C 44 20 28 4C 49 44 LD (LID
015970: 4D 41 58 29 2C 41 20 20 20 20 20 20 20 3B 54 61 MAX),A ;Ta
015980: 69 6C 6C 65 20 64 75 20 70 6C 75 73 20 67 72 61 ille du plus gra
015990: 6E 64 20 73 65 63 74 65 75 72 20 45 43 52 49 54 nd secteur ECRIT
0159A0: 0D 0A 20 20 20 20 20 20 20 20 20 44 45 43 20 41 .. DEC A
0159B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B ;
0159C0: 54 61 69 6C 6C 65 20 64 75 20 70 6C 75 73 20 70 Taille du plus p
0159D0: 65 74 69 74 20 73 65 63 74 65 75 72 20 45 46 46 etit secteur EFF
0159E0: 45 43 54 49 56 45 4D 45 4E 54 0D 0A 20 20 20 20 ECTIVEMENT..
0159F0: 20 20 20 20 20 4C 44 20 28 4C 4D 49 4E 29 2C 41 LD (LMIN),A
015A00: 20 20 20 20 20 20 20 20 20 3B 45 43 52 54 49 20 ;ECRTI
015A10: 28 61 20 23 46 46 20 70 6F 75 72 20 6E 65 20 70 (a #FF pour ne p
015A20: 61 73 20 69 67 6E 6F 72 65 72 20 6C 65 20 30 29 as ignorer le 0)
015A30: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 4C .. LD (L
015A40: 45 4E 43 52 44 44 29 2C 41 20 20 20 20 20 20 3B ENCRDD),A ;
015A50: 4C 6F 6E 67 75 65 75 72 20 64 75 20 70 6C 75 73 Longueur du plus
015A60: 20 67 72 61 6E 64 20 73 65 63 74 65 75 72 20 65 grand secteur e
015A70: 6E 20 43 52 2F 44 44 0D 0A 20 20 20 20 20 20 20 n CR/DD..
015A80: 20 20 4C 44 20 41 2C 23 45 35 20 20 20 20 20 20 LD A,#E5
015A90: 20 20 20 20 20 20 3B 4F 63 74 65 74 20 66 69 6C ;Octet fil
015AA0: 6C 20 66 69 78 65 20 70 72 6F 76 69 73 6F 69 72 l fixe provisoir
015AB0: 65 6D 65 6E 74 0D 0A 20 20 20 20 20 20 20 20 20 ement..
015AC0: 4C 44 20 28 4F 43 52 45 4D 50 29 2C 41 0D 0A 20 LD (OCREMP),A..
015AD0: 20 20 20 20 20 20 20 20 4C 44 20 41 2C 28 4E 42 LD A,(NB
015AE0: 53 45 43 29 20 20 20 20 20 20 20 20 3B 43 6F 70 SEC) ;Cop
015AF0: 69 65 72 20 6E 6F 6D 62 72 65 20 64 65 20 73 65 ier nombre de se
015B00: 63 74 65 75 72 73 20 74 72 6F 75 76 65 73 20 61 cteurs trouves a
015B10: 75 20 63 61 73 20 6F 75 0D 0A 20 20 20 20 20 20 u cas ou..
015B20: 20 20 20 4C 44 20 28 4E 42 53 50 52 4F 56 29 2C LD (NBSPROV),
015B30: 41 20 20 20 20 20 20 3B 6D 69 73 65 20 65 6E 20 A ;mise en
015B40: 65 76 69 64 65 6E 63 65 20 64 65 20 73 65 63 74 evidence de sect
015B50: 65 75 72 73 20 65 63 72 61 73 65 73 20 2E 0D 0A eurs ecrases ...
015B60: 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 ;..
015B70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
015B80: 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D --------------
015B90: 2D 2D 2D 2D 0D 0A 20 20 20 20 20 43 65 63 69 20 ----.. Ceci
015BA0: 66 61 69 74 20 6F 6E 20 62 61 6C 61 69 65 20 6C fait on balaie l
015BB0: 61 20 6C 69 73 74 65 20 64 65 73 20 49 44 53 20 a liste des IDS
015BC0: 6C 6F 6E 67 75 65 75 72 20 73 69 6D 75 6C 74 61 longueur simulta
015BD0: 6E 7B 6D 65 6E 74 20 61 76 65 63 20 6C 61 20 6C n{ment avec la l
015BE0: 69 73 74 65 0D 0A 20 64 65 73 20 65 72 72 65 75 iste.. des erreu
015BF0: 72 73 20 2E 20 48 4C 20 63 6F 6E 74 69 65 6E 74 rs . HL contient
015C00: 20 6C 27 49 44 20 20 4C 45 4E 20 20 73 65 63 74 l'ID LEN sect
015C10: 65 75 72 20 20 2C 20 44 45 20 6C 27 7B 74 61 74 eur , DE l'{tat
015C20: 20 64 27 65 72 72 65 75 72 20 67 7B 6E 7B 72 7B d'erreur g{n{r{
015C30: 20 70 61 72 0D 0A 20 6C 61 20 73 65 63 74 69 6F par.. la sectio
015C40: 6E 20 41 4E 41 4C 59 53 45 20 2E 20 44 61 6E 73 n ANALYSE . Dans
015C50: 20 6C 65 73 20 63 6F 6D 6D 65 6E 74 61 69 72 65 les commentaire
015C60: 73 20 20 64 75 20 20 6C 69 73 74 69 6E 67 20 2C s du listing ,
015C70: 20 74 72 61 64 75 69 73 65 7A 20 49 44 20 4C 45 traduisez ID LE
015C80: 4E 20 4F 4B 0D 0A 20 70 61 72 20 49 44 20 6C 6F N OK.. par ID lo
015C90: 6E 67 75 65 75 72 20 64 27 75 6E 20 73 65 63 74 ngueur d'un sect
015CA0: 65 75 72 20 76 72 61 69 6D 65 6E 74 20 7B 63 72 eur vraiment {cr
015CB0: 69 74 20 2E 0D 0A 20 0D 0A 20 20 20 20 20 20 20 it ... ..
015CC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
015CD0: 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D -----------
015CE0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 3B ------------.. ;
015CF0: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 44 45 .. LD DE
015D00: 2C 4C 49 53 54 45 52 52 20 20 20 3B 43 68 65 72 ,LISTERR ;Cher
015D10: 63 68 65 72 20 70 72 65 73 65 6E 63 65 20 64 65 cher presence de
015D20: 20 43 52 2F 44 44 20 6F 75 20 64 65 20 4D 41 4D CR/DD ou de MAM
015D30: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 48 4C .. LD HL
015D40: 2C 49 44 49 4E 44 52 41 2B 33 20 3B 56 6F 69 72 ,IDINDRA+3 ;Voir
015D50: 20 73 69 20 6C 65 73 20 49 44 53 20 4C 45 4E 20 si les IDS LEN
015D60: 73 6F 6E 74 20 74 6F 75 73 20 69 64 65 6E 74 69 sont tous identi
015D70: 71 75 65 73 0D 0A 20 20 20 20 20 20 20 20 20 4C ques.. L
015D80: 44 20 41 2C 28 4E 42 53 45 43 29 20 20 20 20 3B D A,(NBSEC) ;
015D90: 6D 65 6D 6F 72 69 73 65 72 20 6C 65 20 70 6C 75 memoriser le plu
015DA0: 73 20 67 72 61 6E 64 20 65 74 20 6C 65 20 70 6C s grand et le pl
015DB0: 75 73 20 70 65 74 69 74 0D 0A 20 20 20 20 20 20 us petit..
015DC0: 20 20 20 4C 44 20 42 2C 41 20 20 20 20 20 20 20 LD B,A
015DD0: 20 20 20 3B 43 6F 6D 6D 65 20 64 27 68 61 62 69 ;Comme d'habi
015DE0: 74 75 64 65 20 2C 20 6C 65 20 6E 6F 6D 62 72 65 tude , le nombre
015DF0: 20 64 65 20 73 65 63 74 65 75 72 73 20 65 73 74 de secteurs est
015E00: 20 64 61 6E 73 20 42 0D 0A 20 3B 0D 0A 20 53 45 dans B.. ;.. SE
015E10: 54 46 4C 41 47 53 20 4C 44 20 43 2C 28 48 4C 29 TFLAGS LD C,(HL)
015E20: 20 20 20 20 20 20 3B 4C 27 49 44 20 6C 6F 6E 67 ;L'ID long
015E30: 75 65 75 72 20 73 65 63 74 65 75 72 20 72 65 73 ueur secteur res
015E40: 74 65 20 64 61 6E 73 20 43 20 6A 75 73 71 75 27 te dans C jusqu'
015E50: 61 20 6C 61 20 66 69 6E 0D 0A 20 20 20 20 20 20 a la fin..
015E60: 20 20 20 4C 44 20 41 2C 28 44 45 29 20 20 20 20 LD A,(DE)
015E70: 20 20 20 3B 45 74 61 74 20 64 27 65 72 72 65 75 ;Etat d'erreu
015E80: 72 0D 0A 20 20 20 20 20 20 20 20 20 41 4E 44 20 r.. AND
015E90: 25 30 30 30 30 30 30 31 31 20 20 20 3B 4D 41 4D %00000011 ;MAM
015EA0: 20 26 20 44 41 4D 20 3F 0D 0A 20 20 20 20 20 20 & DAM ?..
015EB0: 20 20 20 4A 52 20 5A 2C 4E 4F 4D 41 4D 44 41 20 JR Z,NOMAMDA
015EC0: 20 20 20 3B 4E 4F 4E 20 2C 20 63 6F 6E 74 69 6E ;NON , contin
015ED0: 75 65 72 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 uer.. ;..
015EE0: 20 20 4C 44 20 49 59 2C 46 4C 41 47 4D 41 4D 20 LD IY,FLAGMAM
015EF0: 20 20 3B 4F 75 69 20 6D 61 72 71 75 65 72 20 65 ;Oui marquer e
015F00: 74 20 73 61 75 74 65 72 20 61 75 20 73 75 69 76 t sauter au suiv
015F10: 61 6E 74 0D 0A 20 20 20 20 20 20 20 20 20 49 4E ant.. IN
015F20: 43 20 28 49 59 2B 30 29 0D 0A 20 20 20 20 20 20 C (IY+0)..
015F30: 20 20 20 4A 52 20 54 45 53 54 4F 55 54 0D 0A 20 JR TESTOUT..
015F40: 3B 0D 0A 20 4E 4F 4D 41 4D 44 41 20 4C 44 20 41 ;.. NOMAMDA LD A
015F50: 2C 28 44 45 29 20 20 20 20 20 20 20 3B 52 65 70 ,(DE) ;Rep
015F60: 72 65 6E 64 72 65 20 65 74 61 74 20 64 27 65 72 rendre etat d'er
015F70: 72 65 75 72 0D 0A 20 20 20 20 20 20 20 20 20 41 reur.. A
015F80: 4E 44 20 25 30 30 31 30 30 31 30 30 20 20 20 3B ND %00100100 ;
015F90: 43 52 20 26 20 44 44 0D 0A 20 20 20 20 20 20 20 CR & DD..
015FA0: 20 20 43 50 20 25 30 30 31 30 30 31 30 30 20 20 CP %00100100
015FB0: 20 20 3B 49 4C 20 6E 6F 75 73 20 66 61 75 74 20 ;IL nous faut
015FC0: 56 52 41 49 4D 45 4E 54 20 4C 45 53 20 32 20 45 VRAIMENT LES 2 E
015FD0: 4E 53 45 4D 42 4C 45 20 21 21 0D 0A 20 20 20 20 NSEMBLE !!..
015FE0: 20 20 20 20 20 4A 52 20 4E 5A 2C 43 52 44 44 4E JR NZ,CRDDN
015FF0: 4F 54 20 20 20 3B 4E 4F 4E 20 63 6F 6E 74 69 6E OT ;NON contin
016000: 75 65 72 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 uer.. ;..
016010: 20 20 4C 44 20 49 59 2C 46 4C 41 47 43 52 44 44 LD IY,FLAGCRDD
016020: 20 20 3B 4D 65 74 74 72 65 20 6C 65 20 70 6C 75 ;Mettre le plu
016030: 73 20 67 72 61 6E 64 20 43 52 2F 44 44 20 74 72 s grand CR/DD tr
016040: 6F 75 76 65 20 64 61 6E 73 20 6C 65 20 66 6C 61 ouve dans le fla
016050: 67 0D 0A 20 20 20 20 20 20 20 20 20 52 45 53 20 g.. RES
016060: 37 2C 28 49 59 2B 30 29 20 20 20 20 3B 4C 65 20 7,(IY+0) ;Le
016070: 62 69 74 20 37 20 65 73 74 20 6D 69 73 20 70 6F bit 7 est mis po
016080: 75 72 20 65 76 69 74 65 72 20 63 6F 6E 66 75 73 ur eviter confus
016090: 69 6F 6E 20 61 76 65 63 0D 0A 20 20 20 20 20 20 ion avec..
0160A0: 20 20 20 4C 44 20 41 2C 43 20 20 20 20 20 20 20 LD A,C
0160B0: 20 20 20 3B 75 6E 20 65 76 65 6E 74 75 65 6C 20 ;un eventuel
0160C0: 43 52 2F 44 44 20 64 65 20 74 61 69 6C 6C 65 20 CR/DD de taille
0160D0: 30 20 2E 20 43 20 63 6F 6E 74 69 65 6E 74 20 74 0 . C contient t
0160E0: 6F 75 6A 6F 75 72 73 0D 0A 20 20 20 20 20 20 20 oujours..
0160F0: 20 20 43 50 20 28 49 59 2B 30 29 20 20 20 20 20 CP (IY+0)
016100: 20 20 3B 4C 45 4E 20 49 44 20 65 6E 20 63 6F 75 ;LEN ID en cou
016110: 72 73 20 2E 20 53 69 20 69 6C 20 65 73 74 20 70 rs . Si il est p
016120: 6C 75 73 20 70 65 74 69 74 20 71 75 65 20 63 65 lus petit que ce
016130: 6C 75 69 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 lui.. JR
016140: 20 43 2C 4E 4F 4D 45 4D 4F 43 52 20 20 20 3B 65 C,NOMEMOCR ;e
016150: 76 65 6E 74 75 65 6C 6C 65 6D 65 6E 74 20 73 74 ventuellement st
016160: 6F 63 6B 65 20 2C 20 69 6C 20 65 73 74 20 69 6E ocke , il est in
016170: 75 74 69 6C 65 0D 0A 20 3B 0D 0A 20 20 20 20 20 utile.. ;..
016180: 20 20 20 20 4C 44 20 28 49 59 2B 30 29 2C 41 20 LD (IY+0),A
016190: 20 20 20 20 3B 53 69 6E 6F 6E 20 6F 6E 20 73 74 ;Sinon on st
0161A0: 6F 63 6B 65 0D 0A 20 4E 4F 4D 45 4D 4F 43 52 20 ocke.. NOMEMOCR
0161B0: 53 45 54 20 37 2C 28 49 59 2B 30 29 20 20 20 3B SET 7,(IY+0) ;
0161C0: 4F 6E 20 72 65 6D 65 74 20 6C 65 20 62 69 74 20 On remet le bit
0161D0: 37 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 20 54 7.. JR T
0161E0: 45 53 54 4F 55 54 20 20 20 20 20 20 3B 45 74 20 ESTOUT ;Et
0161F0: 6F 6E 20 70 61 73 73 65 20 61 75 20 73 75 69 76 on passe au suiv
016200: 61 6E 74 0D 0A 20 3B 0D 0A 20 43 52 44 44 4E 4F ant.. ;.. CRDDNO
016210: 54 20 4C 44 20 41 2C 28 44 45 29 0D 0A 20 20 20 T LD A,(DE)..
016220: 20 20 20 20 20 20 41 4E 44 20 25 30 30 31 31 30 AND %00110
016230: 31 31 31 20 20 20 3B 49 67 6E 6F 72 65 72 20 45 111 ;Ignorer E
016240: 50 20 48 44 20 43 4D 20 2E 20 53 69 20 75 6E 20 P HD CM . Si un
016250: 73 65 75 6C 20 64 65 73 20 61 75 74 72 65 73 20 seul des autres
016260: 62 69 74 73 0D 0A 20 20 20 20 20 20 20 20 20 4A bits.. J
016270: 52 20 4E 5A 2C 54 45 53 54 4F 55 54 20 20 20 3B R NZ,TESTOUT ;
016280: 65 73 74 20 6D 69 73 20 2C 20 6C 65 20 73 65 63 est mis , le sec
016290: 74 65 75 72 20 6E 27 65 73 74 20 70 61 73 20 4F teur n'est pas O
0162A0: 4B 20 64 6F 6E 63 20 70 61 73 20 65 63 72 69 74 K donc pas ecrit
0162B0: 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 4C .. ;.. L
0162C0: 44 20 41 2C 43 20 20 20 20 20 20 20 20 20 20 3B D A,C ;
0162D0: 43 68 65 72 63 68 65 72 20 6C 65 20 70 6C 75 73 Chercher le plus
0162E0: 20 67 72 61 6E 64 20 49 44 20 4C 45 4E 20 4F 4B grand ID LEN OK
0162F0: 20 64 65 20 6C 61 20 70 69 73 74 65 0D 0A 20 20 de la piste..
016300: 20 20 20 20 20 20 20 4C 44 20 49 59 2C 4C 49 44 LD IY,LID
016310: 4D 41 58 0D 0A 20 20 20 20 20 20 20 20 20 43 50 MAX.. CP
016320: 20 28 49 59 2B 30 29 0D 0A 20 20 20 20 20 20 20 (IY+0)..
016330: 20 20 4A 52 20 43 2C 50 4C 55 50 45 54 49 20 20 JR C,PLUPETI
016340: 20 20 3B 50 61 73 20 70 6C 75 73 20 67 72 61 6E ;Pas plus gran
016350: 64 20 76 6F 69 72 20 73 69 20 70 6C 75 73 20 70 d voir si plus p
016360: 65 74 69 74 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 etit.. ;..
016370: 20 20 20 4C 44 20 28 49 59 2B 30 29 2C 41 20 20 LD (IY+0),A
016380: 20 20 20 3B 4D 65 6D 6F 72 69 73 65 72 20 6C 27 ;Memoriser l'
016390: 49 44 20 4F 4B 20 6C 65 20 70 6C 75 73 20 67 72 ID OK le plus gr
0163A0: 61 6E 64 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 and.. JR
0163B0: 20 54 45 53 54 4F 55 54 0D 0A 20 3B 0D 0A 20 50 TESTOUT.. ;.. P
0163C0: 4C 55 50 45 54 49 20 4C 44 20 49 59 2C 4C 4D 49 LUPETI LD IY,LMI
0163D0: 4E 0D 0A 20 20 20 20 20 20 20 20 20 43 50 20 28 N.. CP (
0163E0: 49 59 2B 30 29 0D 0A 20 20 20 20 20 20 20 20 20 IY+0)..
0163F0: 4A 52 20 4E 43 2C 54 45 53 54 4F 55 54 0D 0A 20 JR NC,TESTOUT..
016400: 3B 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 ;.. LD (
016410: 49 59 2B 30 29 2C 41 20 20 20 20 20 3B 4D 65 6D IY+0),A ;Mem
016420: 6F 72 69 73 65 72 20 6C 65 20 70 6C 75 73 20 70 oriser le plus p
016430: 65 74 69 74 20 49 44 20 4C 45 4E 20 4F 4B 0D 0A etit ID LEN OK..
016440: 20 3B 0D 0A 20 54 45 53 54 4F 55 54 20 20 49 4E ;.. TESTOUT IN
016450: 43 20 44 45 20 20 20 20 20 20 20 20 20 3B 41 76 C DE ;Av
016460: 61 6E 63 65 72 20 64 27 75 6E 20 65 74 61 74 20 ancer d'un etat
016470: 64 27 65 72 72 65 75 72 0D 0A 20 20 20 20 20 20 d'erreur..
016480: 20 20 20 49 4E 43 20 48 4C 20 20 20 20 20 20 20 INC HL
016490: 20 20 20 3B 41 6C 6C 65 72 20 73 75 72 20 6C 65 ;Aller sur le
0164A0: 20 70 72 6F 63 68 61 69 6E 20 49 44 20 4C 45 4E prochain ID LEN
0164B0: 0D 0A 20 20 20 20 20 20 20 20 20 49 4E 43 20 48 .. INC H
0164C0: 4C 0D 0A 20 20 20 20 20 20 20 20 20 49 4E 43 20 L.. INC
0164D0: 48 4C 0D 0A 20 20 20 20 20 20 20 20 20 49 4E 43 HL.. INC
0164E0: 20 48 4C 0D 0A 20 20 20 20 20 20 20 20 20 44 4A HL.. DJ
0164F0: 4E 5A 20 53 45 54 46 4C 41 47 53 20 20 20 3B 52 NZ SETFLAGS ;R
016500: 65 63 6F 6D 6D 65 6E 63 65 72 20 70 6F 75 72 20 ecommencer pour
016510: 63 68 61 71 75 65 20 73 65 63 74 65 75 72 0D 0A chaque secteur..
016520: 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 ;..
016530: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2D -
016540: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
016550: 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 0D 0A 20 20 20 --------.. ..
016560: 20 20 41 20 63 65 20 70 6F 69 6E 74 20 2C 20 6E A ce point , n
016570: 6F 75 73 20 61 76 6F 6E 73 20 64 7B 6A 40 20 20 ous avons d{j@
016580: 6C 27 65 73 73 65 6E 74 69 65 6C 20 64 65 20 6E l'essentiel de n
016590: 6F 73 20 69 6E 66 6F 72 6D 61 74 69 6F 6E 73 20 os informations
0165A0: 2C 20 72 65 73 74 65 20 75 6E 65 0D 0A 20 61 6D , reste une.. am
0165B0: 62 69 67 75 69 74 7B 20 3A 20 53 69 20 69 6C 20 biguit{ : Si il
0165C0: 6E 27 79 2D 40 20 71 75 65 20 64 65 73 20 73 65 n'y-@ que des se
0165D0: 63 74 65 75 72 73 20 20 43 52 2F 44 44 20 20 6F cteurs CR/DD o
0165E0: 75 20 73 65 63 74 65 75 72 73 20 6E 6F 6E 20 4F u secteurs non O
0165F0: 4B 53 20 2C 20 73 69 20 6C 65 73 0D 0A 20 73 65 KS , si les.. se
016600: 63 74 65 75 72 73 20 4F 4B 20 73 6F 6E 74 20 74 cteurs OK sont t
016610: 6F 75 73 20 64 65 20 74 61 69 6C 6C 65 20 20 69 ous de taille i
016620: 64 65 6E 74 69 71 75 65 20 20 2C 20 20 4C 4D 49 dentique , LMI
016630: 4E 20 6E 27 61 20 70 61 73 20 7B 74 7B 20 69 6E N n'a pas {t{ in
016640: 69 74 69 61 6C 69 73 7B 20 65 74 0D 0A 20 72 65 itialis{ et.. re
016650: 73 74 65 20 40 20 23 46 46 20 2E 20 43 65 20 66 ste @ #FF . Ce f
016660: 61 69 74 20 61 79 61 6E 74 20 75 6E 65 20 20 73 ait ayant une s
016670: 69 67 6E 69 66 69 63 61 74 69 6F 6E 20 20 70 72 ignification pr
016680: 7B 63 69 73 65 20 70 6F 75 72 20 63 65 20 71 75 {cise pour ce qu
016690: 69 20 73 75 69 74 20 2C 20 6F 6E 0D 0A 20 6C 65 i suit , on.. le
0166A0: 20 6C 61 69 73 73 65 20 40 20 23 46 46 20 65 74 laisse @ #FF et
0166B0: 20 6F 6E 20 63 6F 6E 73 69 64 7D 72 65 20 20 70 on consid}re p
0166C0: 72 6F 76 69 73 6F 69 72 65 6D 65 6E 74 20 20 71 rovisoirement q
0166D0: 75 65 20 73 69 20 4C 4D 49 4E 3D 23 46 46 20 6C ue si LMIN=#FF l
0166E0: 61 20 74 61 69 6C 6C 65 20 64 65 0D 0A 20 66 6F a taille de.. fo
0166F0: 72 6D 61 74 20 6D 69 6E 69 6D 75 6D 20 65 73 74 rmat minimum est
016700: 20 64 65 20 7A 7B 72 6F 20 2E 0D 0A 20 20 20 20 de z{ro ...
016710: 20 50 6F 75 72 20 73 61 76 6F 69 72 20 73 69 20 Pour savoir si
016720: 69 6C 20 79 2D 61 20 70 6C 75 73 69 65 75 72 73 il y-a plusieurs
016730: 20 20 74 61 69 6C 6C 65 73 20 20 64 65 20 73 65 tailles de se
016740: 63 74 65 75 72 73 20 4F 4B 20 64 7B 63 6C 61 72 cteurs OK d{clar
016750: 7B 65 73 20 73 75 72 20 6C 61 0D 0A 20 70 69 73 {es sur la.. pis
016760: 74 65 20 6F 6E 20 73 6F 75 73 74 72 61 69 74 20 te on soustrait
016770: 4C 49 44 4D 41 58 20 64 65 20 4C 4D 49 4E 20 2E LIDMAX de LMIN .
016780: 20 4C 61 20 64 69 66 66 7B 72 65 6E 63 65 20 65 La diff{rence e
016790: 73 74 20 73 74 6F 63 6B 7B 65 20 64 61 6E 73 20 st stock{e dans
0167A0: 46 4C 47 44 49 46 49 44 20 2E 0D 0A 20 53 69 20 FLGDIFID ... Si
0167B0: 4C 4D 49 4E 20 3D 20 23 46 46 20 6F 6E 20 65 73 LMIN = #FF on es
0167C0: 74 69 6D 65 20 70 6F 73 73 69 62 6C 65 20 6C 61 time possible la
0167D0: 20 20 70 72 7B 73 65 6E 63 65 20 64 65 20 74 61 pr{sence de ta
0167E0: 69 6C 6C 65 20 30 20 71 75 69 20 70 6F 75 72 72 ille 0 qui pourr
0167F0: 61 69 65 6E 74 20 62 69 65 6E 0D 0A 20 65 08 5E aient bien.. e.^
016800: 74 72 65 20 65 6E 20 4D 41 4D 20 6F 75 20 43 52 tre en MAM ou CR
016810: 2F 44 44 20 2E 0D 0A 20 0D 0A 20 20 20 20 20 20 /DD ... ..
016820: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
016830: 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ------------
016840: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D ---------------.
016850: 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 . ;.. LD
016860: 20 41 2C 28 4C 4D 49 4E 29 0D 0A 20 20 20 20 20 A,(LMIN)..
016870: 20 20 20 20 43 50 20 23 46 46 0D 0A 20 20 20 20 CP #FF..
016880: 20 20 20 20 20 4A 52 20 4E 5A 2C 4C 4D 49 4E 46 JR NZ,LMINF
016890: 49 4E 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 IN.. ;..
0168A0: 20 49 4E 43 20 41 20 20 20 20 20 20 20 3B 53 69 INC A ;Si
0168B0: 20 4C 4D 49 4E 20 72 65 73 74 65 20 61 20 23 46 LMIN reste a #F
0168C0: 46 20 61 75 63 75 6E 20 73 65 63 74 65 75 72 20 F aucun secteur
0168D0: 6E 27 65 73 74 20 4F 4B 20 4C 4D 49 4E 3D 30 0D n'est OK LMIN=0.
0168E0: 0A 20 3B 0D 0A 20 4C 4D 49 4E 46 49 4E 20 4C 44 . ;.. LMINFIN LD
0168F0: 20 42 2C 41 20 20 20 20 20 20 20 20 3B 49 63 69 B,A ;Ici
016900: 20 46 4C 47 44 49 46 49 44 20 73 65 72 61 20 61 FLGDIFID sera a
016910: 20 30 20 73 69 20 70 61 73 20 64 27 49 44 20 4F 0 si pas d'ID O
016920: 4B 20 3C 3E 20 73 69 6E 6F 6E 20 69 6C 0D 0A 20 K <> sinon il..
016930: 20 20 20 20 20 20 20 20 4C 44 20 41 2C 28 4C 49 LD A,(LI
016940: 44 4D 41 58 29 20 3B 63 6F 6E 74 69 65 6E 64 72 DMAX) ;contiendr
016950: 61 20 6C 61 20 64 69 66 66 65 72 65 6E 63 65 20 a la difference
016960: 64 65 20 4C 4D 41 58 20 61 20 4C 4D 49 4E 0D 0A de LMAX a LMIN..
016970: 20 20 20 20 20 20 20 20 20 53 55 42 20 42 0D 0A SUB B..
016980: 20 20 20 20 20 20 20 20 20 4C 44 20 28 46 4C 47 LD (FLG
016990: 44 49 46 49 44 29 2C 41 0D 0A 20 3B 0D 0A 20 20 DIFID),A.. ;..
0169A0: 20 20 20 43 6F 6D 6D 65 20 64 69 74 20 64 61 6E Comme dit dan
0169B0: 73 20 6C 61 20 73 65 63 74 69 6F 6E 20 74 68 7B s la section th{
0169C0: 6F 72 69 65 20 64 65 20 20 63 65 20 74 72 69 6D orie de ce trim
0169D0: 65 73 74 72 65 20 2C 20 6C 61 20 70 72 7B 73 65 estre , la pr{se
0169E0: 6E 63 65 20 64 27 75 6E 20 4D 41 4D 0D 0A 20 65 nce d'un MAM.. e
0169F0: 6E 20 31 65 72 20 73 65 63 74 65 75 72 20 69 6E n 1er secteur in
016A00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
016A10: 13 00 01 00 02 09 4E E5 13 00 C1 02 00 00 00 02 ......N.........
016A20: 13 00 C2 02 00 00 00 02 13 00 C3 02 00 00 00 02 ................
016A30: 13 00 C4 02 00 00 00 02 13 00 C5 02 00 00 00 02 ................
016A40: 13 00 C6 02 00 00 00 02 13 00 C7 02 00 00 00 02 ................
016A50: 13 00 C8 02 00 00 00 02 13 00 C9 02 00 00 00 02 ................
016A60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016A70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016A80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016A90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016AA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016AB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016AC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016AD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016AE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016AF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016B00: 74 65 72 64 69 74 20 74 6F 75 74 20 75 73 61 67 terdit tout usag
016B10: 65 20 20 64 65 20 20 6C 69 72 65 20 20 70 69 73 e de lire pis
016B20: 74 65 20 20 21 20 43 27 65 73 74 20 64 6F 6E 63 te ! C'est donc
016B30: 20 6C 61 20 70 72 65 6D 69 7D 72 65 0D 0A 20 63 la premi}re.. c
016B40: 68 6F 73 65 20 40 20 74 65 73 74 65 72 20 2E 20 hose @ tester .
016B50: 53 69 20 63 27 65 73 74 20 20 6C 65 20 20 63 61 Si c'est le ca
016B60: 73 20 20 2C 20 20 6F 6E 20 20 72 65 63 68 65 72 s , on recher
016B70: 63 68 65 72 61 20 75 6E 20 7B 76 65 6E 74 75 65 chera un {ventue
016B80: 6C 20 43 52 2F 44 44 20 61 76 65 63 0D 0A 20 6C l CR/DD avec.. l
016B90: 27 65 73 70 6F 69 72 20 64 27 79 20 74 72 6F 75 'espoir d'y trou
016BA0: 76 65 72 20 6C 65 20 67 61 70 20 28 53 4F 4C 55 ver le gap (SOLU
016BB0: 54 49 4F 4E 32 29 20 2E 20 53 69 20 69 6C 20 6E TION2) . Si il n
016BC0: 27 79 20 40 20 71 75 27 75 6E 20 73 65 75 6C 20 'y @ qu'un seul
016BD0: 73 65 63 74 65 75 72 20 2C 20 6F 6E 0D 0A 20 75 secteur , on.. u
016BE0: 74 69 6C 69 73 65 20 6C 65 20 50 49 46 4F 4D 45 tilise le PIFOME
016BF0: 54 52 45 20 2E 0D 0A 20 3B 0D 0A 20 20 20 20 20 TRE ... ;..
016C00: 20 20 20 20 4C 44 20 41 2C 28 4C 49 53 54 45 52 LD A,(LISTER
016C10: 52 29 20 3B 56 6F 69 72 20 73 69 20 4D 41 4D 20 R) ;Voir si MAM
016C20: 65 6E 20 31 65 72 20 73 65 63 74 65 75 72 0D 0A en 1er secteur..
016C30: 20 20 20 20 20 20 20 20 20 41 4E 44 20 25 30 30 AND %00
016C40: 30 30 30 30 31 31 20 20 3B 53 69 20 6F 75 69 20 000011 ;Si oui
016C50: 2C 20 69 6E 61 6E 61 6C 69 73 61 62 6C 65 20 70 , inanalisable p
016C60: 61 72 20 6C 69 72 65 20 70 69 73 74 65 0D 0A 20 ar lire piste..
016C70: 20 20 20 20 20 20 20 20 43 50 20 25 30 30 30 30 CP %0000
016C80: 30 30 31 31 0D 0A 20 20 20 20 20 20 20 20 20 4A 0011.. J
016C90: 52 20 4E 5A 2C 53 4F 4C 55 54 49 4F 4E 31 20 3B R NZ,SOLUTION1 ;
016CA0: 53 69 20 6E 6F 6E 20 73 61 75 74 65 72 20 61 75 Si non sauter au
016CB0: 20 31 65 72 20 73 79 73 74 65 6D 65 20 64 27 61 1er systeme d'a
016CC0: 6E 61 6C 79 73 65 0D 0A 20 3B 0D 0A 20 20 20 20 nalyse.. ;..
016CD0: 20 20 20 20 20 43 41 4C 4C 20 55 4E 53 45 55 4C CALL UNSEUL
016CE0: 20 20 20 3B 4D 65 74 20 6C 65 20 63 61 72 72 79 ;Met le carry
016CF0: 20 73 69 20 6C 61 20 70 69 73 74 65 20 6E 27 61 si la piste n'a
016D00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
016D10: 20 20 20 20 20 20 20 20 20 20 20 2D 2D 2D 2D 2D -----
016D20: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
016D30: 2D 2D 2D 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ---..
016D40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
016D50: 2D 20 45 43 52 41 53 45 52 20 4C 45 53 20 53 45 - ECRASER LES SE
016D60: 43 54 45 55 52 53 20 2D 0D 0A 20 20 20 20 20 20 CTEURS -..
016D70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
016D80: 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D -----------
016D90: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 -------------..
016DA0: 0D 0A 20 20 20 20 20 41 54 54 45 4E 54 49 4F 4E .. ATTENTION
016DB0: 20 2E 20 50 6F 75 72 20 66 6F 6E 63 74 69 6F 6E . Pour fonction
016DC0: 6E 65 72 20 65 6E 20 73 69 6D 70 6C 65 20 64 65 ner en simple de
016DD0: 6E 73 69 74 7B 20 2C 20 74 6F 75 74 65 73 20 6C nsit{ , toutes l
016DE0: 65 73 20 76 61 6C 65 75 72 73 20 6D 69 73 65 73 es valeurs mises
016DF0: 0D 0A 20 64 61 6E 73 20 6C 65 73 20 74 61 62 6C .. dans les tabl
016E00: 65 73 20 54 42 2E 2E 2E 20 65 74 20 6C 65 73 20 es TB... et les
016E10: 76 61 6C 65 75 72 73 20 64 65 20 63 6F 6D 70 61 valeurs de compa
016E20: 72 61 69 73 6F 6E 73 20 64 65 76 72 6F 6E 74 20 raisons devront
016E30: 65 08 5E 74 72 65 20 6D 6F 64 69 66 69 7B 65 73 e.^tre modifi{es
016E40: 20 2E 0D 0A 20 20 20 20 20 4C 61 20 73 65 63 74 ... La sect
016E50: 69 6F 6E 20 70 6F 75 72 72 61 20 65 08 5E 74 72 ion pourra e.^tr
016E60: 65 20 62 65 61 75 63 6F 75 70 20 70 6C 75 73 20 e beaucoup plus
016E70: 20 63 6F 75 72 74 65 20 20 63 61 72 20 20 65 6E courte car en
016E80: 20 20 53 44 20 2C 20 69 6C 20 6E 27 79 20 40 20 SD , il n'y @
016E90: 70 6C 75 73 0D 0A 20 67 72 61 6E 64 20 63 68 6F plus.. grand cho
016EA0: 73 65 20 40 20 7B 63 72 61 73 65 72 20 2E 2E 2E se @ {craser ...
016EB0: 20 0D 0A 20 0D 0A 20 20 20 20 20 53 69 20 76 6F .. .. Si vo
016EC0: 75 73 20 6E 27 61 76 65 7A 20 74 6F 75 6A 6F 75 us n'avez toujou
016ED0: 72 73 20 70 61 73 20 63 6F 6D 70 72 69 73 20 63 rs pas compris c
016EE0: 65 20 71 75 27 65 73 74 20 75 6E 20 73 65 63 74 e qu'est un sect
016EF0: 65 75 72 20 7B 63 72 61 73 7B 20 2C 20 72 65 76 eur {cras{ , rev
016F00: 6F 79 65 7A 0D 0A 20 64 6F 6E 63 20 6C 61 20 73 oyez.. donc la s
016F10: 65 63 74 69 6F 6E 20 74 68 7B 6F 72 69 65 20 2E ection th{orie .
016F20: 2E 2E 0D 0A 20 0D 0A 20 20 20 20 20 44 61 6E 73 .... .. Dans
016F30: 20 70 72 65 73 71 75 65 20 74 6F 75 73 20 6C 65 presque tous le
016F40: 73 20 63 61 73 20 20 6F 7C 20 20 6C 61 20 20 72 s cas o| la r
016F50: 6F 75 74 69 6E 65 20 20 53 4F 4C 55 54 49 4F 4E outine SOLUTION
016F60: 31 20 20 61 75 72 61 20 7B 63 68 6F 75 7B 20 65 1 aura {chou{ e
016F70: 74 20 71 75 65 0D 0A 20 70 6C 75 73 69 65 75 72 t que.. plusieur
016F80: 73 20 74 61 69 6C 6C 65 73 20 64 65 20 73 65 63 s tailles de sec
016F90: 74 65 75 72 73 20 76 72 61 69 6D 65 6E 74 20 7B teurs vraiment {
016FA0: 63 72 69 74 73 20 61 75 72 6F 6E 74 20 7B 74 7B crits auront {t{
016FB0: 20 74 72 6F 75 76 7B 73 20 73 75 72 20 75 6E 65 trouv{s sur une
016FC0: 20 6D 65 08 5E 6D 65 0D 0A 20 70 69 73 74 65 20 me.^me.. piste
016FD0: 2C 20 69 6C 20 79 2D 61 75 72 61 20 20 61 75 20 , il y-aura au
016FE0: 20 6D 6F 69 6E 73 20 20 75 6E 65 20 20 73 7B 72 moins une s{r
016FF0: 69 65 75 73 65 20 20 73 75 73 70 69 73 63 69 6F ieuse suspiscio
017000: 6E 20 20 73 75 72 20 20 6C 65 20 20 62 6F 6E 20 n sur le bon
017010: 61 6C 6F 69 20 64 75 0D 0A 20 66 6F 72 6D 61 74 aloi du.. format
017020: 61 67 65 20 2E 20 4C 27 65 78 70 7B 72 69 65 6E age . L'exp{rien
017030: 63 65 20 61 79 61 6E 74 20 20 64 7B 6D 6F 6E 74 ce ayant d{mont
017040: 72 7B 20 20 71 75 27 7B 63 72 61 73 65 72 20 20 r{ qu'{craser
017050: 73 61 6E 73 20 6E 7B 63 7B 73 73 69 74 7B 20 65 sans n{c{ssit{ e
017060: 73 74 20 73 61 6E 73 0D 0A 20 65 66 66 65 74 20 st sans.. effet
017070: 6E 6F 63 69 66 20 73 75 72 20 6C 61 20 20 63 6F nocif sur la co
017080: 70 69 65 20 20 61 6C 6F 72 73 20 20 71 75 65 20 pie alors que
017090: 20 6C 27 69 6E 76 65 72 73 65 20 20 70 72 6F 64 l'inverse prod
0170A0: 75 69 74 20 20 73 6F 75 76 65 6E 74 20 64 65 73 uit souvent des
0170B0: 20 63 6F 70 69 65 73 0D 0A 20 6E 65 20 66 6F 6E copies.. ne fon
0170C0: 63 74 69 6F 6E 6E 61 6E 74 20 70 61 73 20 2E 20 ctionnant pas .
0170D0: 44 61 6E 73 20 6C 65 20 64 6F 75 74 65 20 2C 20 Dans le doute ,
0170E0: 6F 6E 20 7B 63 72 61 73 65 20 64 27 61 62 6F 72 on {crase d'abor
0170F0: 64 20 65 74 20 6F 6E 20 64 69 73 63 75 74 65 20 d et on discute
017100: 0F 2C 19 0A 01 BF 22 18 5B 46 5D 18 69 6E 69 20 .,....".[F].ini
017110: 2D 20 18 5B 52 5D 18 65 70 72 65 6E 64 72 65 22 - .[R].eprendre"
017120: 00 31 00 66 4E 03 00 00 C1 EF 22 22 01 D6 20 03 .1.fN....."".. .
017130: 00 00 E1 F2 22 46 22 FA 20 03 00 00 E1 F2 22 52 ...."F". ....."R
017140: 22 01 03 00 00 E1 EF FF 1C 28 FF 43 29 01 D5 01 "........(.C)...
017150: C9 00 16 00 70 4E 0B 00 00 64 EC EF 19 10 01 0B ....pN...d......
017160: 00 00 64 E8 EF 19 10 00 07 00 7A 4E 01 C0 00 22 ..d.......zN..."
017170: 00 84 4E 01 C0 2A 2A 2A 20 46 65 6E 65 74 72 61 ..N..*** Fenetra
017180: 67 65 20 2D 20 63 61 64 72 61 67 65 20 2A 2A 2A ge - cadrage ***
017190: 00 07 00 8E 4E 01 C0 00 7C 00 98 4E 0B 00 00 F4 ....N...|..N....
0171A0: EF 12 01 D8 20 23 0F 2C 0B 00 00 77 B1 2C 0B 00 .... #.,...w.,..
0171B0: 00 77 B2 2C 0B 00 00 77 B3 2C 0B 00 00 77 B4 01 .w.,...w.,...w..
0171C0: BA 20 23 0F 2C 0B 00 00 E1 01 0B 00 00 F8 EF 0B . #.,...........
0171D0: 00 00 77 B1 01 0B 00 00 F9 EF 0B 00 00 77 B3 F4 ..w..........w..
0171E0: 0F 01 0B 00 00 EC EF 0B 00 00 77 B2 F5 0B 00 00 ..........w.....
0171F0: 77 B1 01 0B 00 00 E8 EF 0B 00 00 77 B4 F5 0B 00 w..........w....
017200: 00 77 B3 01 8A 23 0F 01 9F 20 1E 6A 27 01 A0 20 .w...#... .j'..
017210: 1E D8 27 00 27 00 A2 4E 0B 00 00 77 B1 EF 10 01 ..'.'..N...w....
017220: 0B 00 00 77 B2 EF 19 27 01 0B 00 00 77 B3 EF 19 ...w...'....w...
017230: 0A 01 0B 00 00 77 B4 EF 19 18 00 31 00 AC 4E D8 .....w.....1..N.
017240: 20 23 0F 2C 0B 00 00 77 B1 2C 0B 00 00 77 B2 2C #.,...w.,...w.,
017250: 0B 00 00 77 B3 2C 0B 00 00 77 B4 01 BA 20 23 0F ...w.,...w... #.
017260: 2C 0B 00 00 E1 01 8A 23 0F 01 C9 00 07 00 B6 4E ,......#.......N
017270: 01 C0 00 29 00 C0 4E 01 C0 2A 2A 2A 20 41 66 66 ...)..N..*** Aff
017280: 69 63 68 65 72 20 73 65 6C 65 63 74 69 6F 6E 20 icher selection
017290: 72 65 70 6F 6E 73 65 20 2A 2A 2A 00 07 00 CA 4E reponse ***....N
0172A0: 01 C0 00 C5 00 D4 4E 7C 00 4D 49 44 C3 2C 0B 00 ......N|.MID.,..
0172B0: 00 63 B2 2C 0B 00 00 63 B3 2C 0E 2C 0B 00 00 79 .c.,...c.,.,...y
0172C0: B1 2C 40 03 00 00 E1 01 0B 00 00 77 B3 EF 0B 00 .,@........w....
0172D0: 00 77 B3 F4 10 01 0B 00 00 77 B1 EF 0B 00 00 77 .w.......w.....w
0172E0: B1 F4 0F 01 0B 00 00 77 B2 EF 0B 00 00 77 B2 F5 .......w.....w..
0172F0: 0F 01 0B 00 00 77 B4 EF 0B 00 00 77 B4 F5 0F 01 .....w.....w....
017300: 0B 00 00 E1 EF 0E 01 9F 20 1E AC 4E 01 0B 00 00 ........ ..N....
017310: 77 B3 EF 0B 00 00 77 B3 F5 10 01 0B 00 00 77 B1 w.....w.......w.
017320: EF 0B 00 00 77 B1 F5 0F 01 0B 00 00 77 B2 EF 0B ....w.......w...
017330: 00 00 77 B2 F4 0F 01 0B 00 00 77 B4 EF 0B 00 00 ..w.......w.....
017340: 77 B4 F4 0F 01 7C 00 4D 49 44 C3 2C 0B 00 00 63 w....|.MID.,...c
017350: B2 2C 0B 00 00 63 B3 2C 0E 2C 0B 00 00 79 B1 2C .,...c.,.,...y.,
017360: 40 03 00 00 E1 01 C9 00 07 00 DE 4E 01 C0 00 31 @..........N...1
017370: 00 E8 4E 01 C0 2A 2A 2A 20 52 65 73 74 61 75 72 ..N..*** Restaur
017380: 65 20 66 65 6E 65 74 72 65 20 72 65 70 6F 6E 73 e fenetre repons
017390: 65 73 20 73 69 20 61 3D 2D 31 36 20 2A 2A 2A 00 es si a=-16 ***.
0173A0: 07 00 F2 4E 01 C0 00 3B 00 FC 4E 0B 00 00 77 B1 ...N...;..N...w.
0173B0: EF 19 0A 01 0B 00 00 77 B2 EF 19 1F 01 0B 00 00 .......w........
0173C0: 77 B3 EF 19 0A 01 0B 00 00 77 B4 EF 19 0A 01 0B w........w......
0173D0: 00 00 E1 EF 10 01 9F 20 1E AC 4E 01 A0 20 1E 2E ....... ..N.. ..
0173E0: 4F 00 07 00 06 4F 01 C0 00 25 00 10 4F 01 C0 2A O....O...%..O..*
0173F0: 2A 2A 20 49 6E 69 74 69 61 6C 69 73 61 74 69 6F ** Initialisatio
017400: 6E 20 6D 65 6E 75 73 20 32 20 2A 2A 2A 00 07 00 n menus 2 ***...
017410: 1A 4F 01 C0 00 F2 00 24 4F 0B 00 00 E1 EF 10 01 .O.....$O.......
017420: 9F 20 1E A2 4E 01 0B 00 00 77 B1 EF 12 01 0B 00 . ..N....w......
017430: 00 77 B2 EF 14 01 0B 00 00 77 B3 EF 19 0B 01 0B .w.......w......
017440: 00 00 77 B4 EF 19 15 01 0B 00 00 E1 EF 0E 01 9F ..w.............
017450: 20 1E AC 4E 01 0B 00 00 77 B1 EF 19 23 01 0B 00 ..N....w...#...
017460: 00 77 B2 EF 19 25 01 9F 20 1E AC 4E 01 03 00 00 .w...%.. ..N....
017470: E2 EF 22 20 53 45 43 54 49 4F 4E 20 22 01 7C 00 .." SECTION ".|.
017480: 50 52 54 D6 2C 0E 2C 11 2C 0E 2C 13 2C 19 0C 2C PRT.,.,.,.,.,..,
017490: 40 03 00 00 E2 01 7C 00 50 52 54 D6 2C 0E 2C 11 @.....|.PRT.,.,.
0174A0: 2C 0E 2C 19 24 2C 19 0C 2C 40 03 00 00 E3 01 0B ,.,.$,..,@......
0174B0: 00 00 F8 EF 13 01 0B 00 00 F9 EF 19 0C 01 0B 00 ................
0174C0: 00 EC EF 0F 01 0B 00 00 E8 EF FF 0E 28 03 00 00 ............(...
0174D0: E2 29 01 0B 00 00 E3 EF 0F 01 0B 00 00 F4 EF 12 .)..............
0174E0: 01 0B 00 00 64 EC EF 19 10 01 0B 00 00 64 E8 EF ....d........d..
0174F0: 19 10 01 9F 20 1E 92 27 01 0B 00 00 F8 EF 19 24 .... ..'.......$
017500: 61 70 72 7D 73 20 21 0D 0A 20 0D 0A 20 20 20 20 apr}s !.. ..
017510: 20 43 65 20 6E 27 65 73 74 20 70 61 73 20 76 72 Ce n'est pas vr
017520: 61 69 6D 65 6E 74 20 73 69 6D 70 6C 65 20 20 2C aiment simple ,
017530: 20 20 6D 61 69 73 20 20 6C 61 20 20 73 74 72 75 mais la stru
017540: 63 74 75 72 65 20 20 65 6E 20 63 61 73 63 61 64 cture en cascad
017550: 65 20 64 65 20 63 65 74 74 65 0D 0A 20 72 6F 75 e de cette.. rou
017560: 74 69 6E 65 20 65 73 74 20 75 6E 20 70 65 75 20 tine est un peu
017570: 70 6C 75 73 20 63 6C 61 69 72 65 20 71 75 65 20 plus claire que
017580: 63 65 6C 6C 65 20 64 65 73 20 72 6F 75 74 69 6E celle des routin
017590: 65 73 20 64 27 61 6E 61 6C 79 73 65 20 2E 0D 0A es d'analyse ...
0175A0: 20 0D 0A 20 20 20 20 20 4C 65 73 20 73 65 63 74 .. Les sect
0175B0: 69 6F 6E 73 20 64 27 61 6E 61 6C 79 73 65 20 73 ions d'analyse s
0175C0: 6F 6E 74 20 63 65 6E 73 7B 65 73 20 6E 6F 75 73 ont cens{es nous
0175D0: 20 20 61 76 6F 69 72 20 20 64 6F 6E 6E 7B 20 6C avoir donn{ l
0175E0: 61 20 76 72 61 69 65 20 74 61 69 6C 6C 65 20 64 a vraie taille d
0175F0: 75 0D 0A 20 66 6F 72 6D 61 74 20 2E 20 20 44 61 u.. format . Da
017600: 6E 73 20 20 6C 65 20 20 70 69 72 65 20 20 64 65 ns le pire de
017610: 73 20 20 63 61 73 20 20 2C 20 20 6F 6E 20 20 64 s cas , on d
017620: 69 73 70 6F 73 65 20 20 64 65 20 20 4C 4D 49 4E ispose de LMIN
017630: 20 20 71 75 69 20 20 73 65 72 61 20 61 6C 6F 72 qui sera alor
017640: 73 0D 0A 20 63 6F 6E 73 69 64 7B 72 7B 65 20 63 s.. consid{r{e c
017650: 6F 6D 6D 65 20 74 61 69 6C 6C 65 20 64 75 20 66 omme taille du f
017660: 6F 72 6D 61 74 20 64 27 6F 72 69 67 69 6E 65 20 ormat d'origine
017670: 2E 0D 0A 20 0D 0A 20 20 20 20 20 4C 61 20 76 72 ... .. La vr
017680: 61 69 65 20 6C 6F 6E 67 75 65 75 72 20 64 75 20 aie longueur du
017690: 47 41 50 20 3A 20 20 45 6C 6C 65 20 20 61 20 20 GAP : Elle a
0176A0: 7B 74 7B 20 20 64 7B 74 65 72 6D 69 6E 7B 65 20 {t{ d{termin{e
0176B0: 2C 20 6F 75 20 6D 69 73 65 20 61 75 20 6D 69 6E , ou mise au min
0176C0: 69 6D 75 6D 0D 0A 20 61 64 6D 69 73 73 69 62 6C imum.. admissibl
0176D0: 65 20 2E 20 43 65 20 6E 27 65 73 74 20 70 61 73 e . Ce n'est pas
0176E0: 20 76 72 61 69 6D 65 6E 74 20 75 6E 20 70 72 6F vraiment un pro
0176F0: 62 6C 7D 6D 65 20 2E 0D 0A 20 0D 0A 20 20 20 20 bl}me ... ..
017700: 20 41 20 63 65 20 70 6F 69 6E 74 20 2C 20 20 6E A ce point , n
017710: 6F 73 20 20 70 65 72 66 65 63 74 69 6F 6E 6E 69 os perfectionni
017720: 73 74 65 73 20 20 66 61 76 6F 72 69 73 20 20 61 stes favoris a
017730: 75 72 6F 6E 74 20 6F 62 73 65 72 76 7B 20 71 75 uront observ{ qu
017740: 65 20 71 75 65 6C 71 75 65 73 0D 0A 20 72 6F 75 e quelques.. rou
017750: 74 69 6E 65 73 20 65 74 20 76 61 72 69 61 62 6C tines et variabl
017760: 65 73 20 66 6F 6E 74 20 64 6F 75 62 6C 65 20 20 es font double
017770: 65 6D 70 6C 6F 69 20 20 2C 20 6C 65 73 20 6D 6F emploi , les mo
017780: 69 6E 73 20 63 68 65 76 72 6F 6E 6E 7B 73 20 70 ins chevronn{s p
017790: 72 7B 66 7B 72 65 72 6F 6E 74 0D 0A 20 73 6E 61 r{f{reront.. sna
0177A0: 73 20 64 6F 75 74 65 20 63 65 74 65 20 73 74 72 s doute cete str
0177B0: 75 63 74 75 72 65 20 71 75 69 20 6C 65 75 72 20 ucture qui leur
0177C0: 20 7B 76 69 74 65 20 64 65 20 72 65 63 68 65 72 {vite de recher
0177D0: 63 68 65 72 20 76 61 72 69 61 62 6C 65 73 20 65 cher variables e
0177E0: 74 20 72 6F 75 74 69 6E 65 73 0D 0A 20 64 61 6E t routines.. dan
0177F0: 73 20 6C 65 73 20 66 69 63 68 69 65 72 73 20 70 s les fichiers p
017800: 72 7B 63 7B 64 65 6E 74 73 20 2E 2E 2E 0D 0A 20 r{c{dents .....
017810: 0D 0A 20 20 20 20 20 41 6C 6F 72 73 20 65 6E 20 .. Alors en
017820: 70 72 65 6D 69 65 72 20 2C 20 71 75 65 6C 71 75 premier , quelqu
017830: 65 73 20 6D 7B 6D 6F 72 69 73 61 74 69 6F 6E 73 es m{morisations
017840: 20 69 6E 64 69 73 70 65 6E 73 61 62 6C 65 73 20 indispensables
017850: 63 61 72 20 6C 65 20 6E 6F 6D 62 72 65 20 64 65 car le nombre de
017860: 0D 0A 20 73 65 63 74 65 75 72 73 20 40 20 66 6F .. secteurs @ fo
017870: 72 6D 61 74 65 72 20 73 65 72 61 20 70 6C 75 73 rmater sera plus
017880: 20 67 72 61 6E 64 20 71 75 65 20 20 63 65 6C 75 grand que celu
017890: 69 20 20 74 72 6F 75 76 7B 20 6C 6F 72 73 20 64 i trouv{ lors d
0178A0: 65 20 6C 27 61 6E 61 6C 79 73 65 20 2E 20 49 6C e l'analyse . Il
0178B0: 0D 0A 20 66 61 75 74 20 61 75 73 73 69 20 70 65 .. faut aussi pe
0178C0: 6E 73 65 72 20 40 20 20 27 7B 71 75 69 6C 69 62 nser @ '{quilib
0178D0: 72 65 72 27 20 20 6C 61 20 20 6C 69 73 74 65 20 rer' la liste
0178E0: 20 64 65 73 20 20 65 72 72 65 75 72 73 20 20 2C des erreurs ,
0178F0: 20 20 73 69 6E 6F 6E 20 67 61 72 65 20 61 75 78 sinon gare aux
017900: 0D 0A 20 73 75 72 70 72 69 73 65 73 20 6C 6F 72 .. surprises lor
017910: 73 20 64 65 73 20 6F 70 7B 72 61 74 69 6F 6E 73 s des op{rations
017920: 20 64 65 20 6C 65 63 74 75 72 65 20 65 63 72 69 de lecture ecri
017930: 74 75 72 65 20 21 0D 0A 20 3B 0D 0A 20 3B 2D 52 ture !.. ;.. ;-R
017940: 6F 75 74 69 6E 65 20 64 65 20 72 65 63 72 65 61 outine de recrea
017950: 74 69 6F 6E 20 64 65 20 70 69 73 74 65 20 61 76 tion de piste av
017960: 65 63 20 73 65 63 74 65 75 72 73 20 65 63 72 61 ec secteurs ecra
017970: 73 65 73 20 2D 0D 0A 20 3B 0D 0A 20 45 43 52 41 ses -.. ;.. ECRA
017980: 53 45 52 20 4C 44 20 48 4C 2C 49 44 49 4E 44 52 SER LD HL,IDINDR
017990: 41 2B 33 20 3B 31 65 72 20 49 44 20 4C 45 4E 20 A+3 ;1er ID LEN
0179A0: 64 65 20 6C 61 20 6C 69 73 74 65 20 64 65 73 20 de la liste des
0179B0: 49 44 53 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 IDS.. LD
0179C0: 20 44 45 2C 4C 45 52 50 52 4F 56 20 20 20 3B 5A DE,LERPROV ;Z
0179D0: 6F 6E 65 20 64 65 20 74 72 61 6E 73 66 65 72 74 one de transfert
0179E0: 20 70 6F 75 72 20 6C 61 20 6C 69 73 74 65 20 64 pour la liste d
0179F0: 65 73 20 65 72 72 65 75 72 73 0D 0A 20 20 20 20 es erreurs..
017A00: 20 20 20 20 20 4C 44 20 28 50 45 52 50 52 4F 56 LD (PERPROV
017A10: 29 2C 44 45 20 3B 65 74 20 73 6F 6E 20 70 6F 69 ),DE ;et son poi
017A20: 6E 74 65 75 72 0D 0A 20 20 20 20 20 20 20 20 20 nteur..
017A30: 4C 44 20 44 45 2C 4C 49 53 54 45 52 52 20 20 20 LD DE,LISTERR
017A40: 3B 56 72 61 69 65 20 6C 69 73 74 65 20 64 65 73 ;Vraie liste des
017A50: 20 65 72 72 65 75 72 73 0D 0A 20 20 20 20 20 20 erreurs..
017A60: 20 20 20 4C 44 20 28 50 4F 49 4E 54 45 52 29 2C LD (POINTER),
017A70: 44 45 20 3B 65 74 20 73 6F 6E 20 70 6F 69 6E 74 DE ;et son point
017A80: 65 75 72 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 eur.. LD
017A90: 20 49 58 2C 4C 49 53 54 49 44 53 20 20 20 3B 44 IX,LISTIDS ;D
017AA0: 7B 62 75 74 20 64 27 75 6E 65 20 6C 69 73 74 65 {but d'une liste
017AB0: 20 71 75 69 20 6E 65 20 63 6F 6E 74 69 65 6E 64 qui ne contiend
017AC0: 72 61 20 71 75 65 20 6C 65 73 20 49 44 53 20 4C ra que les IDS L
017AD0: 45 4E 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 EN.. LD
017AE0: 41 2C 28 4E 42 53 50 52 4F 56 29 20 20 3B 4E 6F A,(NBSPROV) ;No
017AF0: 6D 62 72 65 20 70 72 6F 76 69 73 6F 69 72 65 20 mbre provisoire
017B00: 64 65 20 73 65 63 74 65 75 72 73 20 71 75 69 20 de secteurs qui
017B10: 40 20 7B 74 7B 20 69 6E 69 74 69 61 6C 69 73 7B @ {t{ initialis{
017B20: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 42 2C .. LD B,
017B30: 41 20 20 20 20 20 20 20 20 20 20 3B 40 20 6C 61 A ;@ la
017B40: 20 76 61 6C 65 75 72 20 4E 42 53 45 43 20 64 61 valeur NBSEC da
017B50: 6E 73 20 6C 65 73 20 72 6F 75 74 69 6E 65 73 20 ns les routines
017B60: 70 72 7B 63 7B 64 65 6E 74 65 73 20 0D 0A 20 3B pr{c{dentes .. ;
017B70: 0D 0A 20 20 20 20 20 20 20 20 20 50 55 53 48 20 .. PUSH
017B80: 42 43 20 20 20 20 20 20 20 20 20 3B 44 75 20 64 BC ;Du d
017B90: 7B 62 75 74 20 40 20 6C 61 20 66 69 6E 20 2C 20 {but @ la fin ,
017BA0: 42 20 63 6F 6E 74 69 65 6E 64 72 61 20 74 6F 75 B contiendra tou
017BB0: 6A 6F 75 72 73 20 4E 42 53 45 43 0D 0A 20 52 41 jours NBSEC.. RA
017BC0: 4E 47 45 4F 4B 20 4C 44 20 43 2C 23 46 46 20 20 NGEOK LD C,#FF
017BD0: 20 20 20 20 20 20 3B 52 61 6E 67 65 72 20 74 6F ;Ranger to
017BE0: 75 74 65 73 20 6C 65 73 20 6C 6F 6E 67 75 65 75 utes les longueu
017BF0: 72 73 20 64 65 20 73 65 63 74 65 75 72 73 20 4F rs de secteurs O
017C00: 4B 20 40 20 6C 61 20 73 75 69 74 65 0D 0A 20 20 K @ la suite..
017C10: 20 20 20 20 20 20 20 4C 44 20 41 2C 28 44 45 29 LD A,(DE)
017C20: 20 20 20 20 20 20 20 3B 73 69 20 6C 65 20 73 65 ;si le se
017C30: 63 74 65 75 72 20 6E 27 65 73 74 20 70 61 73 20 cteur n'est pas
017C40: 4F 4B 20 2C 20 6D 65 74 74 72 65 20 23 46 46 20 OK , mettre #FF
017C50: 0D 0A 20 20 20 20 20 20 20 20 20 41 4E 44 20 25 .. AND %
017C60: 30 30 31 31 31 31 31 31 20 20 20 3B 49 67 6E 6F 00111111 ;Igno
017C70: 72 65 72 20 45 50 20 48 44 20 71 75 69 20 6E 65 rer EP HD qui ne
017C80: 20 73 6F 6E 74 20 70 61 73 20 64 65 20 76 72 61 sont pas de vra
017C90: 69 65 73 20 65 72 72 65 75 72 73 0D 0A 20 20 20 ies erreurs..
017CA0: 20 20 20 20 20 20 4A 52 20 4E 5A 2C 42 41 44 53 JR NZ,BADS
017CB0: 45 43 20 20 20 20 3B 53 69 20 70 61 73 20 4F 4B EC ;Si pas OK
017CC0: 20 2C 20 6C 61 69 73 73 65 72 20 23 46 46 20 64 , laisser #FF d
017CD0: 61 6E 73 20 43 20 70 6F 75 72 20 6D 61 72 71 75 ans C pour marqu
017CE0: 65 72 20 6C 65 20 66 61 69 74 0D 0A 20 20 20 20 er le fait..
017CF0: 20 20 20 20 20 4C 44 20 43 2C 28 48 4C 29 20 20 LD C,(HL)
017D00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
017D10: 14 00 01 00 02 09 4E E5 14 00 C1 02 00 00 00 02 ......N.........
017D20: 14 00 C2 02 00 00 00 02 14 00 C3 02 00 00 00 02 ................
017D30: 14 00 C4 02 00 00 00 02 14 00 C5 02 00 00 00 02 ................
017D40: 14 00 C6 02 00 00 00 02 14 00 C7 02 00 00 00 02 ................
017D50: 14 00 C8 02 00 00 00 02 14 00 C9 02 00 00 00 02 ................
017D60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017D70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017D80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017D90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017DA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017DB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017DC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017DD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017DE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017DF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017E00: 20 20 20 20 20 3B 53 69 20 4F 4B 20 72 61 6E 67 ;Si OK rang
017E10: 65 72 20 6C 27 6F 63 74 65 74 20 4C 45 4E 53 45 er l'octet LENSE
017E20: 43 20 64 61 6E 73 20 6C 61 20 6C 69 73 74 65 0D C dans la liste.
017E30: 0A 20 42 41 44 53 45 43 20 20 4C 44 20 28 49 58 . BADSEC LD (IX
017E40: 2B 30 29 2C 43 0D 0A 20 20 20 20 20 20 20 20 20 +0),C..
017E50: 49 4E 43 20 48 4C 20 20 20 20 20 20 20 20 20 20 INC HL
017E60: 3B 41 76 61 6E 63 65 72 20 64 65 20 34 20 6F 63 ;Avancer de 4 oc
017E70: 74 65 74 73 20 70 6F 75 72 20 70 6F 69 6E 74 65 tets pour pointe
017E80: 72 20 70 72 6F 63 68 61 69 6E 20 49 44 20 4C 45 r prochain ID LE
017E90: 4E 0D 0A 20 20 20 20 20 20 20 20 20 49 4E 43 20 N.. INC
017EA0: 48 4C 0D 0A 20 20 20 20 20 20 20 20 20 49 4E 43 HL.. INC
017EB0: 20 48 4C 0D 0A 20 20 20 20 20 20 20 20 20 49 4E HL.. IN
017EC0: 43 20 48 4C 0D 0A 20 20 20 20 20 20 20 20 20 49 C HL.. I
017ED0: 4E 43 20 44 45 20 20 20 20 20 20 20 20 20 20 3B NC DE ;
017EE0: 41 76 61 6E 63 65 72 20 64 61 6E 73 20 6C 61 20 Avancer dans la
017EF0: 6C 69 73 74 65 20 64 65 73 20 65 72 72 65 75 72 liste des erreur
017F00: 73 0D 0A 20 20 20 20 20 20 20 20 20 49 4E 43 20 s.. INC
017F10: 49 58 20 20 20 20 20 20 20 20 20 20 3B 45 74 20 IX ;Et
017F20: 64 61 6E 73 20 6C 61 20 6C 69 73 74 65 20 4C 45 dans la liste LE
017F30: 4E 53 45 43 20 65 6E 20 63 6F 75 72 73 20 64 65 NSEC en cours de
017F40: 20 63 72 7B 61 74 69 6F 6E 0D 0A 20 20 20 20 20 cr{ation..
017F50: 20 20 20 20 44 4A 4E 5A 20 52 41 4E 47 45 4F 4B DJNZ RANGEOK
017F60: 0D 0A 20 20 20 20 20 20 20 20 20 50 4F 50 20 42 .. POP B
017F70: 43 20 20 20 20 20 20 20 20 20 20 3B 52 65 70 72 C ;Repr
017F80: 65 6E 64 72 65 20 4E 42 53 45 43 0D 0A 20 3B 0D endre NBSEC.. ;.
017F90: 0A 20 20 20 20 20 49 63 69 20 76 69 65 6E 74 20 . Ici vient
017FA0: 64 27 65 08 5E 74 72 65 20 20 63 72 7B 65 20 20 d'e.^tre cr{e
017FB0: 75 6E 65 20 20 6C 69 73 74 65 20 20 64 65 20 20 une liste de
017FC0: 74 6F 75 74 65 73 20 20 6C 65 73 20 20 6C 6F 6E toutes les lon
017FD0: 67 75 65 75 72 73 20 64 65 20 73 65 63 74 65 75 gueurs de secteu
017FE0: 72 0D 0A 20 66 69 67 75 72 61 6E 74 20 73 75 72 r.. figurant sur
017FF0: 20 6C 61 20 70 69 73 74 65 20 2E 20 4C 65 73 20 la piste . Les
018000: 73 65 63 74 65 75 72 73 20 6E 6F 6E 20 20 4F 4B secteurs non OK
018010: 20 20 6E 65 20 70 6F 75 76 61 6E 74 20 65 08 5E ne pouvant e.^
018020: 74 72 65 20 7B 63 72 69 74 73 20 2C 20 69 6C 73 tre {crits , ils
018030: 20 6E 65 0D 0A 20 70 65 75 76 65 6E 74 20 70 61 ne.. peuvent pa
018040: 73 20 65 6E 20 7B 63 72 61 73 65 72 20 75 6E 20 s en {craser un
018050: 61 75 74 72 65 20 2E 20 20 4C 65 75 72 20 20 65 autre . Leur e
018060: 6D 70 6C 61 63 65 6D 65 6E 74 20 64 61 6E 73 20 mplacement dans
018070: 6C 61 20 6C 69 73 74 65 20 65 73 74 20 6D 61 72 la liste est mar
018080: 71 75 7B 0D 0A 20 70 61 72 20 75 6E 20 23 46 46 qu{.. par un #FF
018090: 20 71 75 69 20 6E 65 20 72 69 73 71 75 65 20 70 qui ne risque p
0180A0: 61 73 20 64 27 65 08 5E 74 72 65 20 63 6F 6E 66 as d'e.^tre conf
0180B0: 6F 6E 64 75 20 61 76 65 63 20 75 6E 20 6C 6F 6E ondu avec un lon
0180C0: 67 75 65 75 72 20 2E 0D 0A 20 0D 0A 20 20 20 20 gueur ... ..
0180D0: 20 4C 65 20 63 6F 6E 74 65 6E 75 20 64 65 20 6C Le contenu de l
0180E0: 61 20 6C 69 73 74 65 20 20 70 6F 75 72 72 61 69 a liste pourrai
0180F0: 74 20 20 72 65 73 73 65 6D 62 6C 65 72 20 40 20 t ressembler @
018100: 63 65 63 69 20 3A 20 30 2C 32 2C 32 2C 32 2C 32 ceci : 0,2,2,2,2
018110: 2C 23 46 46 2C 32 2C 32 2C 32 0D 0A 20 6F 7C 20 ,#FF,2,2,2.. o|
018120: 31 20 73 65 63 74 65 75 72 20 64 65 20 74 61 69 1 secteur de tai
018130: 6C 6C 65 20 30 20 65 73 74 20 4F 4B 20 2C 20 37 lle 0 est OK , 7
018140: 20 73 65 63 74 65 75 72 73 20 64 65 20 74 61 69 secteurs de tai
018150: 6C 6C 65 20 32 20 7B 63 72 61 73 65 6E 74 20 75 lle 2 {crasent u
018160: 6E 20 6E 6F 6D 62 72 65 20 58 0D 0A 20 64 65 20 n nombre X.. de
018170: 73 65 63 74 65 75 72 73 20 65 74 20 6C 65 20 36 secteurs et le 6
018180: 7D 6D 65 20 73 65 63 74 65 75 72 20 20 64 65 20 }me secteur de
018190: 20 6C 61 20 20 70 69 73 74 65 20 72 65 6E 76 6F la piste renvo
0181A0: 79 61 6E 74 20 75 6E 65 20 65 72 72 65 75 72 20 yant une erreur
0181B0: 71 75 65 6C 63 6F 6E 71 75 65 0D 0A 20 64 6F 69 quelconque.. doi
0181C0: 74 20 65 08 5E 74 72 65 20 69 67 6E 6F 72 7B 20 t e.^tre ignor{
0181D0: 70 61 72 20 6C 65 20 70 72 6F 67 72 61 6D 6D 65 par le programme
0181E0: 20 2E 0D 0A 20 0D 0A 20 20 20 20 20 43 65 63 69 ... .. Ceci
0181F0: 20 7B 74 61 6E 74 20 66 61 69 74 20 2C 20 69 6C {tant fait , il
018200: 20 66 61 75 74 20 65 6E 20 20 66 6F 6E 63 74 69 faut en foncti
018210: 6F 6E 20 20 64 65 20 20 6C 61 20 74 61 69 6C 6C on de la taill
018220: 65 20 72 65 63 6F 75 76 72 61 6E 74 65 20 2C 20 e recouvrante ,
018230: 64 65 20 6C 61 0D 0A 20 74 61 69 6C 6C 65 20 40 de la.. taille @
018240: 20 72 65 63 6F 75 76 72 69 72 20 28 56 72 61 69 recouvrir (Vrai
018250: 65 20 74 61 69 6C 6C 65 20 64 65 20 20 66 6F 72 e taille de for
018260: 6D 61 74 61 67 65 29 20 20 65 74 20 20 64 65 20 matage) et de
018270: 20 6C 61 20 6C 6F 6E 67 75 65 75 72 20 64 75 20 la longueur du
018280: 47 41 50 20 2C 0D 0A 20 64 7B 74 65 72 6D 69 6E GAP ,.. d{termin
018290: 65 72 20 6C 65 20 6E 6F 6D 62 72 65 20 64 65 20 er le nombre de
0182A0: 73 65 63 74 65 75 72 73 20 40 20 61 6A 6F 75 74 secteurs @ ajout
0182B0: 65 72 20 20 40 20 6E 6F 74 72 65 20 66 6F 72 6D er @ notre form
0182C0: 61 74 61 67 65 20 2E 20 43 65 63 69 20 65 73 74 atage . Ceci est
0182D0: 20 66 61 69 74 0D 0A 20 40 20 6C 27 61 69 64 65 fait.. @ l'aide
0182E0: 20 64 65 20 74 61 62 6C 65 73 20 70 6F 75 72 20 de tables pour
0182F0: 6C 65 73 20 20 47 41 50 53 20 20 2C 20 20 64 27 les GAPS , d'
018300: 75 6E 65 20 20 63 61 73 63 61 64 65 20 64 65 20 une cascade de
018310: 63 6F 6D 70 61 72 61 69 73 6F 6E 73 20 70 6F 75 comparaisons pou
018320: 72 20 6C 65 73 0D 0A 20 6C 6F 6E 67 75 65 75 72 r les.. longueur
018330: 73 20 65 74 20 64 27 75 6E 65 20 20 62 6F 6E 6E s et d'une bonn
018340: 65 20 20 62 72 6F 75 65 74 74 65 20 20 64 65 20 e brouette de
018350: 20 70 6F 69 6E 74 65 75 72 73 20 20 64 69 76 65 pointeurs dive
018360: 72 73 20 20 70 6F 75 72 20 20 67 7B 72 65 72 20 rs pour g{rer
018370: 63 65 74 74 65 0D 0A 20 70 61 6E 69 71 75 65 20 cette.. panique
018380: 2E 0D 0A 20 20 20 20 20 51 75 65 6C 71 75 65 20 ... Quelque
018390: 73 6F 69 74 20 6C 61 20 74 61 69 6C 6C 65 20 40 soit la taille @
0183A0: 20 7B 63 72 61 73 65 72 20 2C 20 6C 65 20 70 72 {craser , le pr
0183B0: 69 6E 63 69 70 65 20 65 73 74 20 6C 65 20 6D 65 incipe est le me
0183C0: 08 5E 6D 65 20 2E 20 53 65 75 6C 65 20 6C 65 20 .^me . Seule le
0183D0: 63 61 73 0D 0A 20 64 65 20 6C 61 20 74 61 69 6C cas.. de la tail
0183E0: 6C 65 20 30 20 65 73 74 20 63 6F 6D 6D 65 6E 74 le 0 est comment
0183F0: 7B 20 2E 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 { ... ;..
018400: 20 20 4C 44 20 49 59 2C 49 44 4F 55 54 44 52 41 LD IY,IDOUTDRA
018410: 20 20 3B 4C 69 73 74 65 20 64 65 73 20 49 44 53 ;Liste des IDS
018420: 20 41 20 45 43 52 49 52 45 20 4C 4F 52 53 20 44 A ECRIRE LORS D
018430: 45 20 4C 41 20 52 45 50 52 4F 44 55 43 54 49 4F E LA REPRODUCTIO
018440: 4E 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 49 N.. LD I
018450: 58 2C 49 44 49 4E 44 52 41 20 20 20 3B 4C 69 73 X,IDINDRA ;Lis
018460: 74 65 20 64 65 73 20 49 44 53 20 4C 55 53 20 53 te des IDS LUS S
018470: 55 52 20 4C 41 20 56 45 52 53 49 4F 4E 20 44 27 UR LA VERSION D'
018480: 4F 52 49 47 49 4E 45 0D 0A 20 20 20 20 20 20 20 ORIGINE..
018490: 20 20 4C 44 20 44 45 2C 4C 49 53 54 49 44 53 20 LD DE,LISTIDS
0184A0: 20 20 3B 4C 69 73 74 65 20 64 65 73 20 6C 6F 6E ;Liste des lon
0184B0: 67 75 65 75 72 73 20 76 65 6E 61 6E 74 20 64 27 gueurs venant d'
0184C0: 65 74 72 65 20 63 72 65 65 65 0D 0A 20 3B 0D 0A etre creee.. ;..
0184D0: 20 20 20 20 20 20 20 20 20 4C 44 20 41 2C 28 4C LD A,(L
0184E0: 4D 49 4E 29 20 20 20 20 20 3B 4F 6E 20 70 72 65 MIN) ;On pre
0184F0: 6E 64 20 4C 4D 49 4E 20 63 6F 6D 6D 65 20 76 72 nd LMIN comme vr
018500: 61 69 65 20 6C 6F 6E 67 75 65 75 72 0D 0A 20 20 aie longueur..
018510: 20 20 20 20 20 20 20 43 50 20 23 46 46 20 20 20 CP #FF
018520: 20 20 20 20 20 20 20 3B 45 73 74 20 70 65 75 74 ;Est peut
018530: 2D 65 74 72 65 20 65 6E 63 6F 72 65 20 61 20 23 -etre encore a #
018540: 46 46 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 20 FF.. JR
018550: 4E 5A 2C 58 58 58 58 0D 0A 20 20 20 20 20 20 20 NZ,XXXX..
018560: 20 20 49 4E 43 20 41 20 20 20 20 20 20 20 20 20 INC A
018570: 20 20 3B 53 69 20 6F 75 69 20 63 27 65 73 74 20 ;Si oui c'est
018580: 30 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 0.. LD (
018590: 4C 4D 49 4E 29 2C 41 20 20 20 20 20 3B 45 74 20 LMIN),A ;Et
0185A0: 63 65 74 74 65 20 66 6F 69 73 20 63 27 65 73 74 cette fois c'est
0185B0: 20 64 65 66 69 6E 69 74 69 66 20 21 0D 0A 20 58 definitif !.. X
0185C0: 58 58 58 20 20 20 20 4C 44 20 28 4C 45 4E 53 45 XXX LD (LENSE
0185D0: 43 29 2C 41 20 20 20 3B 45 74 20 61 75 73 73 69 C),A ;Et aussi
0185E0: 20 6C 61 20 76 72 61 69 65 20 74 61 69 6C 6C 65 la vraie taille
0185F0: 20 64 75 20 66 6F 72 6D 61 74 20 64 27 6F 72 69 du format d'ori
018600: 67 69 6E 65 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 gine.. ;..
018610: 20 20 20 4F 52 20 41 0D 0A 20 20 20 20 20 20 20 OR A..
018620: 20 20 4A 52 20 5A 2C 45 43 52 41 30 20 20 20 20 JR Z,ECRA0
018630: 20 20 3B 45 63 72 61 73 65 72 20 74 61 69 6C 6C ;Ecraser taill
018640: 65 20 30 0D 0A 20 20 20 20 20 20 20 20 20 44 45 e 0.. DE
018650: 43 20 41 0D 0A 20 20 20 20 20 20 20 20 20 4A 50 C A.. JP
018660: 20 5A 2C 45 43 52 41 31 20 20 20 20 20 20 3B 45 Z,ECRA1 ;E
018670: 63 72 61 73 65 72 20 74 61 69 6C 6C 65 20 31 0D craser taille 1.
018680: 0A 20 20 20 20 20 20 20 20 20 44 45 43 20 41 0D . DEC A.
018690: 0A 20 20 20 20 20 20 20 20 20 4A 50 20 5A 2C 45 . JP Z,E
0186A0: 43 52 41 32 20 20 20 20 20 20 3B 45 63 72 61 73 CRA2 ;Ecras
0186B0: 65 72 20 74 61 69 6C 6C 65 20 32 0D 0A 20 20 20 er taille 2..
0186C0: 20 20 20 20 20 20 44 45 43 20 41 0D 0A 20 20 20 DEC A..
0186D0: 20 20 20 20 20 20 4A 50 20 5A 2C 45 43 52 41 33 JP Z,ECRA3
0186E0: 20 20 20 20 20 20 3B 45 63 72 61 73 65 72 20 74 ;Ecraser t
0186F0: 61 69 6C 6C 65 20 33 0D 0A 20 3B 0D 0A 20 52 45 aille 3.. ;.. RE
018700: 54 20 20 20 20 20 3B 4E 65 20 64 65 76 72 61 69 T ;Ne devrai
018710: 74 20 6A 61 6D 61 69 73 20 70 61 73 73 65 72 20 t jamais passer
018720: 69 63 69 20 28 49 6C 20 20 66 61 75 74 20 75 6E ici (Il faut un
018730: 20 74 61 69 6C 6C 65 20 35 20 70 6F 75 72 20 7B taille 5 pour {
018740: 63 72 61 73 65 72 20 75 6E 65 0D 0A 20 74 61 69 craser une.. tai
018750: 6C 6C 65 20 34 20 65 74 20 64 61 6E 73 20 63 65 lle 4 et dans ce
018760: 20 63 61 73 20 69 6C 20 6E 27 79 20 40 20 70 6C cas il n'y @ pl
018770: 75 73 20 71 75 27 75 6E 20 73 65 63 74 65 75 72 us qu'un secteur
018780: 20 54 35 20 2E 20 43 27 65 73 74 20 64 6F 6E 63 T5 . C'est donc
018790: 20 69 6E 75 74 69 6C 65 2C 0D 0A 20 71 75 61 6E inutile,.. quan
0187A0: 64 20 40 20 7B 63 72 61 73 65 72 20 75 6E 20 73 d @ {craser un s
0187B0: 65 63 74 65 75 72 20 64 65 20 74 61 69 6C 6C 65 ecteur de taille
0187C0: 20 35 20 2C 20 40 20 6C 61 20 62 6F 6E 6E 65 20 5 , @ la bonne
0187D0: 76 6F 74 72 65 20 21 29 0D 0A 20 3B 0D 0A 20 3B votre !).. ;.. ;
0187E0: 2D 20 45 43 52 41 53 45 52 20 54 41 49 4C 4C 45 - ECRASER TAILLE
0187F0: 20 30 20 2D 0D 0A 20 3B 0D 0A 20 45 43 52 41 30 0 -.. ;.. ECRA0
018800: 20 20 20 4C 44 20 41 2C 28 44 45 29 20 20 20 3B LD A,(DE) ;
018810: 4C 6F 6E 67 75 65 75 72 20 64 75 20 73 65 63 74 Longueur du sect
018820: 65 75 72 20 72 65 63 6F 70 69 7B 65 20 64 61 6E eur recopi{e dan
018830: 73 20 6C 61 20 6C 69 73 74 65 20 70 72 6F 76 69 s la liste provi
018840: 73 6F 69 72 65 0D 0A 20 20 20 20 20 20 20 20 20 soire..
018850: 4F 52 20 41 20 20 20 20 20 20 20 20 3B 45 73 74 OR A ;Est
018860: 2D 63 65 20 30 20 3F 0D 0A 20 20 20 20 20 20 20 -ce 0 ?..
018870: 20 20 4A 52 20 5A 2C 52 45 43 4F 50 30 20 3B 4F JR Z,RECOP0 ;O
018880: 75 69 20 64 6F 6E 63 20 74 61 69 6C 6C 65 20 69 ui donc taille i
018890: 64 65 6E 74 69 71 75 65 20 2E 20 50 61 73 20 64 dentique . Pas d
0188A0: 65 20 63 68 61 6E 67 65 6D 65 6E 74 0D 0A 20 20 e changement..
0188B0: 20 20 20 20 20 20 20 43 50 20 23 46 46 20 20 20 CP #FF
0188C0: 20 20 20 3B 45 73 74 2D 63 65 20 75 6E 20 73 65 ;Est-ce un se
0188D0: 63 74 65 75 72 20 65 6E 20 65 72 72 65 75 72 20 cteur en erreur
0188E0: 3F 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 20 5A ?.. JR Z
0188F0: 2C 52 45 43 4F 50 30 20 3B 4F 75 69 20 2C 20 69 ,RECOP0 ;Oui , i
018900: 6C 20 6E 27 65 73 74 20 70 61 73 20 61 20 65 63 l n'est pas a ec
018910: 72 69 72 65 20 2E 20 50 61 73 20 64 65 20 63 68 rire . Pas de ch
018920: 61 6E 67 65 6D 65 6E 74 0D 0A 20 3B 0D 0A 20 20 angement.. ;..
018930: 20 20 20 20 20 20 20 44 45 43 20 41 20 20 20 20 DEC A
018940: 20 20 20 20 3B 45 73 74 20 70 6C 75 73 20 67 72 ;Est plus gr
018950: 61 6E 64 20 45 54 20 61 20 65 63 72 69 72 65 20 and ET a ecrire
018960: 2E 20 4F 6E 20 63 68 61 6E 67 65 20 2E 0D 0A 20 . On change ...
018970: 20 20 20 20 20 20 20 20 4A 52 20 4E 5A 2C 50 41 JR NZ,PA
018980: 53 31 53 30 20 3B 45 73 74 2D 63 65 20 75 6E 65 S1S0 ;Est-ce une
018990: 20 74 61 69 6C 6C 65 20 31 20 3F 0D 0A 20 3B 0D taille 1 ?.. ;.
0189A0: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 41 2C 28 . LD A,(
0189B0: 47 41 50 46 4F 52 4D 29 20 3B 4F 75 69 20 2E 20 GAPFORM) ;Oui .
0189C0: 54 61 69 6C 6C 65 20 31 20 65 63 72 61 73 65 20 Taille 1 ecrase
0189D0: 20 54 61 69 6C 6C 65 20 30 20 2E 20 45 6E 63 6F Taille 0 . Enco
0189E0: 72 65 20 66 61 75 74 2D 69 6C 0D 0A 20 20 20 20 re faut-il..
0189F0: 20 20 20 20 20 43 50 20 23 37 37 20 20 20 20 20 CP #77
018A00: 20 20 20 20 3B 73 61 76 6F 69 72 20 63 6F 6D 62 ;savoir comb
018A10: 69 65 6E 20 6F 6E 20 65 6E 20 65 63 72 61 73 65 ien on en ecrase
018A20: 20 21 20 49 63 69 20 2C 20 73 69 20 6C 65 20 47 ! Ici , si le G
018A30: 41 50 20 65 73 74 0D 0A 20 20 20 20 20 20 20 20 AP est..
018A40: 20 4A 52 20 4E 43 2C 52 45 43 4F 50 30 20 20 20 JR NC,RECOP0
018A50: 3B 70 6C 75 73 20 67 72 61 6E 64 20 71 75 65 20 ;plus grand que
018A60: 23 37 36 20 2C 20 69 6C 20 73 27 69 6E 74 65 72 #76 , il s'inter
018A70: 63 61 6C 65 20 73 61 6E 73 20 74 6F 75 63 68 65 cale sans touche
018A80: 72 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 43 r.. LD C
018A90: 2C 31 20 20 20 20 20 20 20 20 20 3B 61 75 20 73 ,1 ;au s
018AA0: 75 69 76 61 6E 74 20 20 2E 20 20 53 69 6E 6F 6E uivant . Sinon
018AB0: 20 20 69 6C 20 20 66 61 75 74 20 20 61 6A 6F 75 il faut ajou
018AC0: 74 65 72 20 20 61 75 20 6E 6F 6D 62 72 65 0D 0A ter au nombre..
018AD0: 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 50 4C CALL PL
018AE0: 55 53 49 44 53 20 20 20 3B 74 6F 74 61 6C 20 64 USIDS ;total d
018AF0: 65 20 73 65 63 74 65 75 72 73 20 63 65 6C 75 69 e secteurs celui
018B00: 20 71 75 69 20 73 65 72 61 20 65 63 72 61 73 65 qui sera ecrase
018B10: 20 6C 6F 72 73 20 64 65 0D 0A 20 20 20 20 20 20 lors de..
018B20: 20 20 20 4A 52 20 45 43 52 41 30 41 20 20 20 20 JR ECRA0A
018B30: 20 20 3B 6C 27 65 63 72 69 74 75 72 65 20 65 74 ;l'ecriture et
018B40: 20 6F 6E 20 76 61 20 74 65 73 74 65 72 20 6C 65 on va tester le
018B50: 20 73 75 69 76 61 6E 74 0D 0A 20 3B 0D 0A 20 50 suivant.. ;.. P
018B60: 41 53 31 53 30 20 20 44 45 43 20 41 20 20 20 20 AS1S0 DEC A
018B70: 20 20 20 20 20 20 3B 50 61 73 20 74 61 69 6C 6C ;Pas taill
018B80: 65 20 31 20 2E 20 45 73 74 2D 63 65 20 74 61 69 e 1 . Est-ce tai
018B90: 6C 6C 65 20 32 20 3F 0D 0A 20 20 20 20 20 20 20 lle 2 ?..
018BA0: 20 20 4A 52 20 4E 5A 2C 50 41 53 32 53 30 20 20 JR NZ,PAS2S0
018BB0: 20 3B 4E 6F 6E 20 2E 0D 0A 20 3B 0D 0A 20 20 20 ;Non ... ;..
018BC0: 20 20 20 20 20 20 4C 44 20 48 4C 2C 54 42 30 32 LD HL,TB02
018BD0: 20 20 20 20 3B 4F 75 69 20 2E 20 54 61 69 6C 6C ;Oui . Taill
018BE0: 65 20 32 20 73 75 72 20 74 61 69 6C 6C 65 20 30 e 2 sur taille 0
018BF0: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 43 2C .. LD C,
018C00: 31 20 20 20 20 20 20 20 20 3B 4C 61 20 6D 65 6D 1 ;La mem
018C10: 65 20 63 75 69 73 69 6E 65 20 71 75 65 20 70 72 e cuisine que pr
018C20: 65 63 65 64 65 6D 65 6E 74 20 2C 20 6D 61 69 73 ecedement , mais
018C30: 20 63 6F 6D 6D 65 20 69 6C 20 79 2D 61 0D 0A 20 comme il y-a..
018C40: 20 20 20 20 20 20 20 20 43 41 4C 4C 20 46 47 41 CALL FGA
018C50: 50 54 42 20 20 20 3B 70 6C 75 73 20 64 65 20 70 PTB ;plus de p
018C60: 6F 73 73 69 62 69 6C 69 74 65 73 20 6F 6E 20 6D ossibilites on m
018C70: 65 74 20 6C 65 20 6E 6F 6D 62 72 65 20 6D 69 6E et le nombre min
018C80: 69 6D 75 6D 20 64 65 0D 0A 20 20 20 20 20 20 20 imum de..
018C90: 20 20 4A 52 20 45 43 52 41 30 41 20 20 20 20 20 JR ECRA0A
018CA0: 3B 73 65 63 74 65 75 72 73 20 61 20 65 63 72 61 ;secteurs a ecra
018CB0: 73 65 72 20 64 61 6E 73 20 43 20 65 74 20 6F 6E ser dans C et on
018CC0: 20 75 74 69 6C 69 73 65 20 75 6E 65 20 74 61 62 utilise une tab
018CD0: 6C 65 0D 0A 20 3B 0D 0A 20 50 41 53 32 53 30 20 le.. ;.. PAS2S0
018CE0: 20 44 45 43 20 41 20 20 20 20 20 20 20 20 20 3B DEC A ;
018CF0: 54 61 69 6C 6C 65 20 33 20 3F 0D 0A 20 20 20 20 Taille 3 ?..
018D00: 20 20 20 20 20 4A 52 20 4E 5A 2C 50 41 53 33 53 JR NZ,PAS3S
018D10: 30 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 0.. ;..
018D20: 4C 44 20 48 4C 2C 54 42 30 33 20 20 20 20 3B 4F LD HL,TB03 ;O
018D30: 75 69 20 54 33 20 73 75 72 20 54 30 0D 0A 20 20 ui T3 sur T0..
018D40: 20 20 20 20 20 20 20 4C 44 20 43 2C 32 20 20 20 LD C,2
018D50: 20 20 20 20 20 3B 65 74 20 63 61 20 63 6F 6E 74 ;et ca cont
018D60: 69 6E 75 65 20 74 61 6E 74 20 71 75 65 20 74 6F inue tant que to
018D70: 75 74 65 73 20 6C 65 73 20 63 6F 6D 62 69 6E 61 utes les combina
018D80: 69 73 6F 6E 73 0D 0A 20 20 20 20 20 20 20 20 20 isons..
018D90: 43 41 4C 4C 20 46 47 41 50 54 42 20 20 20 3B 70 CALL FGAPTB ;p
018DA0: 6F 73 73 69 62 6C 65 73 20 6E 65 20 73 6F 6E 74 ossibles ne sont
018DB0: 20 70 61 73 20 65 70 75 69 73 65 65 73 20 2E 0D pas epuisees ..
018DC0: 0A 20 20 20 20 20 20 20 20 20 4A 52 20 45 43 52 . JR ECR
018DD0: 41 30 41 0D 0A 20 3B 0D 0A 20 50 41 53 33 53 30 A0A.. ;.. PAS3S0
018DE0: 20 20 44 45 43 20 41 0D 0A 20 20 20 20 20 20 20 DEC A..
018DF0: 20 20 4A 52 20 4E 5A 2C 50 41 53 34 53 30 0D 0A JR NZ,PAS4S0..
018E00: 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 ;.. LD
018E10: 48 4C 2C 54 42 30 34 20 20 20 3B 54 34 20 73 75 HL,TB04 ;T4 su
018E20: 72 20 54 30 0D 0A 20 20 20 20 20 20 20 20 20 4C r T0.. L
018E30: 44 20 43 2C 34 0D 0A 20 20 20 20 20 20 20 20 20 D C,4..
018E40: 43 41 4C 4C 20 46 47 41 50 54 42 0D 0A 20 20 20 CALL FGAPTB..
018E50: 20 20 20 20 20 20 4A 52 20 45 43 52 41 30 41 0D JR ECRA0A.
018E60: 0A 20 3B 0D 0A 20 50 41 53 34 53 30 20 20 4C 44 . ;.. PAS4S0 LD
018E70: 20 48 4C 2C 54 42 30 35 0D 0A 20 20 20 20 20 20 HL,TB05..
018E80: 20 20 20 4C 44 20 43 2C 39 0D 0A 20 20 20 20 20 LD C,9..
018E90: 20 20 20 20 43 41 4C 4C 20 46 47 41 50 54 42 0D CALL FGAPTB.
018EA0: 0A 20 20 20 20 20 20 20 20 20 4A 52 20 45 43 52 . JR ECR
018EB0: 41 30 41 0D 0A 20 3B 0D 0A 20 52 45 43 4F 50 30 A0A.. ;.. RECOP0
018EC0: 20 20 43 41 4C 4C 20 43 4F 50 34 49 44 20 3B 4C CALL COP4ID ;L
018ED0: 65 20 73 65 63 74 65 75 72 20 65 6E 20 63 6F 75 e secteur en cou
018EE0: 72 73 20 6E 27 65 63 72 61 73 65 20 72 69 65 6E rs n'ecrase rien
018EF0: 20 65 74 20 65 73 74 20 72 65 63 6F 70 69 65 20 et est recopie
018F00: 2E 0D 0A 20 3B 0D 0A 20 45 43 52 41 30 41 20 20 ... ;.. ECRA0A
018F10: 49 4E 43 20 44 45 20 20 20 20 20 20 3B 4C 65 73 INC DE ;Les
018F20: 20 73 65 63 74 65 75 72 73 20 61 20 65 63 72 61 secteurs a ecra
018F30: 73 65 73 20 6F 6E 74 20 65 74 65 20 70 72 69 73 ses ont ete pris
018F40: 20 65 6E 20 63 6F 6D 70 74 65 20 65 74 0D 0A 20 en compte et..
018F50: 20 20 20 20 20 20 20 20 44 4A 4E 5A 20 45 43 52 DJNZ ECR
018F60: 41 30 20 20 3B 6F 6E 20 63 6F 6E 74 69 6E 75 65 A0 ;on continue
018F70: 0D 0A 20 20 20 20 20 20 20 20 20 4A 50 20 45 58 .. JP EX
018F80: 49 45 43 52 41 0D 0A 20 3B 0D 0A 20 3B 2D 20 45 IECRA.. ;.. ;- E
018F90: 43 52 41 53 45 52 20 54 41 49 4C 4C 45 20 31 20 CRASER TAILLE 1
018FA0: 2D 0D 0A 20 3B 0D 0A 20 45 43 52 41 31 20 20 20 -.. ;.. ECRA1
018FB0: 4C 44 20 41 2C 28 44 45 29 20 20 20 3B 4E 4F 20 LD A,(DE) ;NO
018FC0: 43 4F 4D 4D 45 4E 54 20 2C 20 41 56 41 4E 43 45 COMMENT , AVANCE
018FD0: 5A 20 44 41 4E 53 20 4C 45 20 54 45 58 54 45 20 Z DANS LE TEXTE
018FE0: 4A 55 53 51 55 27 41 55 20 50 4F 49 4E 54 0D 0A JUSQU'AU POINT..
018FF0: 20 20 20 20 20 20 20 20 20 43 50 20 32 20 20 20 CP 2
019000: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
019010: 15 00 01 00 02 09 4E E5 15 00 C1 02 00 00 00 02 ......N.........
019020: 15 00 C2 02 00 00 00 02 15 00 C3 02 00 00 00 02 ................
019030: 15 00 C4 02 00 00 00 02 15 00 C5 02 00 00 00 02 ................
019040: 15 00 C6 02 00 00 00 02 15 00 C7 02 00 00 00 02 ................
019050: 15 00 C8 02 00 00 00 02 15 00 C9 02 00 00 00 02 ................
019060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
019070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
019080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
019090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0190A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0190B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0190C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0190D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0190E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0190F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
019100: 20 20 20 20 20 3B 53 54 52 41 54 45 47 49 51 55 ;STRATEGIQU
019110: 45 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 20 43 E.. JR C
019120: 2C 52 45 43 4F 50 31 0D 0A 20 20 20 20 20 20 20 ,RECOP1..
019130: 20 20 43 50 20 23 46 46 0D 0A 20 20 20 20 20 20 CP #FF..
019140: 20 20 20 4A 52 20 5A 2C 52 45 43 4F 50 31 0D 0A JR Z,RECOP1..
019150: 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 44 45 43 ;.. DEC
019160: 20 41 0D 0A 20 20 20 20 20 20 20 20 20 44 45 43 A.. DEC
019170: 20 41 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 20 A.. JR
019180: 4E 5A 2C 50 41 53 32 53 31 0D 0A 20 3B 0D 0A 20 NZ,PAS2S1.. ;..
019190: 20 20 20 20 20 20 20 20 4C 44 20 41 2C 28 47 41 LD A,(GA
0191A0: 50 46 4F 52 4D 29 0D 0A 20 20 20 20 20 20 20 20 PFORM)..
0191B0: 20 43 50 20 23 46 41 0D 0A 20 20 20 20 20 20 20 CP #FA..
0191C0: 20 20 4A 52 20 4E 43 2C 52 45 43 4F 50 31 0D 0A JR NC,RECOP1..
0191D0: 20 20 20 20 20 20 20 20 20 4C 44 20 43 2C 31 0D LD C,1.
0191E0: 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 50 . CALL P
0191F0: 4C 55 53 49 44 53 0D 0A 20 20 20 20 20 20 20 20 LUSIDS..
019200: 20 4A 52 20 45 43 52 41 31 41 0D 0A 20 3B 0D 0A JR ECRA1A.. ;..
019210: 20 50 41 53 32 53 31 20 20 44 45 43 20 41 0D 0A PAS2S1 DEC A..
019220: 20 20 20 20 20 20 20 20 20 4A 52 20 4E 5A 2C 50 JR NZ,P
019230: 41 53 33 53 31 0D 0A 20 3B 0D 0A 20 20 20 20 20 AS3S1.. ;..
019240: 20 20 20 20 4C 44 20 48 4C 2C 54 42 31 33 0D 0A LD HL,TB13..
019250: 20 20 20 20 20 20 20 20 20 4C 44 20 43 2C 31 0D LD C,1.
019260: 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 46 . CALL F
019270: 47 41 50 54 42 0D 0A 20 20 20 20 20 20 20 20 20 GAPTB..
019280: 4A 52 20 45 43 52 41 31 41 0D 0A 20 3B 0D 0A 20 JR ECRA1A.. ;..
019290: 50 41 53 33 53 31 20 20 44 45 43 20 41 20 20 20 PAS3S1 DEC A
0192A0: 20 20 20 20 20 20 20 20 3B 41 56 41 4E 43 45 5A ;AVANCEZ
0192B0: 20 45 4E 43 4F 52 45 20 2E 2E 2E 2E 0D 0A 20 20 ENCORE ......
0192C0: 20 20 20 20 20 20 20 4A 52 20 4E 5A 2C 50 41 53 JR NZ,PAS
0192D0: 34 53 31 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 4S1.. ;..
0192E0: 20 20 4C 44 20 48 4C 2C 54 42 31 34 0D 0A 20 20 LD HL,TB14..
0192F0: 20 20 20 20 20 20 20 4C 44 20 43 2C 33 0D 0A 20 LD C,3..
019300: 20 71 75 27 75 6E 20 73 65 75 6C 20 73 65 63 74 qu'un seul sect
019310: 65 75 72 0D 0A 20 20 20 20 20 20 20 20 20 4A 50 eur.. JP
019320: 20 43 2C 50 49 46 4F 4D 45 54 52 20 3B 66 69 78 C,PIFOMETR ;fix
019330: 65 72 20 61 75 20 70 69 66 20 2E 2E 2E 0D 0A 20 er au pif .....
019340: 3B 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 48 ;.. LD H
019350: 4C 2C 54 5A 4D 41 4D 20 20 20 3B 54 72 61 69 74 L,TZMAM ;Trait
019360: 65 72 20 4D 41 4D 20 65 6E 20 74 65 74 65 20 70 er MAM en tete p
019370: 61 72 20 72 65 63 68 65 72 63 68 65 20 43 52 43 ar recherche CRC
019380: 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 .. CALL
019390: 50 52 54 0D 0A 20 20 20 20 20 20 20 20 20 4A 50 PRT.. JP
0193A0: 20 53 4F 4C 55 54 49 4F 4E 32 0D 0A 20 3B 0D 0A SOLUTION2.. ;..
0193B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0193C0: 20 20 20 20 20 20 20 20 20 20 20 2D 2D 2D 2D 2D -----
0193D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0193E0: 2D 2D 2D 2D 0D 0A 20 0D 0A 20 20 20 20 20 50 6F ----.. .. Po
0193F0: 75 72 20 75 6E 20 62 72 65 66 20 69 6E 73 74 61 ur un bref insta
019400: 6E 74 20 6E 6F 75 73 20 72 65 74 6F 6D 62 6F 6E nt nous retombon
019410: 73 20 20 65 6E 20 20 27 74 65 72 72 61 65 20 63 s en 'terrae c
019420: 6F 67 6E 69 74 61 27 20 2E 20 43 65 74 74 65 20 ognita' . Cette
019430: 72 6F 75 74 69 6E 65 0D 0A 20 65 73 74 20 63 65 routine.. est ce
019440: 6C 6C 65 20 64 75 20 74 72 69 6D 65 73 74 72 65 lle du trimestre
019450: 20 64 65 72 6E 69 65 72 20 40 20 63 65 63 69 20 dernier @ ceci
019460: 70 72 7D 73 20 3A 20 53 69 20 6C 61 20 6C 6F 6E pr}s : Si la lon
019470: 67 75 65 75 72 20 64 75 20 47 41 50 20 65 78 63 gueur du GAP exc
019480: 7D 64 65 20 23 37 45 0D 0A 20 6C 69 72 65 20 70 }de #7E.. lire p
019490: 69 73 74 65 20 61 76 65 63 20 4C 45 4E 53 45 43 iste avec LENSEC
0194A0: 2B 31 20 69 67 6E 6F 72 65 20 6C 61 20 73 75 69 +1 ignore la sui
0194B0: 74 65 20 64 75 20 20 47 41 50 20 2E 20 50 6F 75 te du GAP . Pou
0194C0: 72 20 65 08 5E 74 72 65 20 74 72 61 6E 71 75 69 r e.^tre tranqui
0194D0: 6C 6C 65 73 20 2C 20 6F 6E 0D 0A 20 6C 69 74 20 lles , on.. lit
0194E0: 61 76 65 63 20 37 20 63 6F 6D 6D 65 20 69 6E 64 avec 7 comme ind
0194F0: 69 63 61 74 69 6F 6E 20 20 44 27 49 44 20 20 4C ication D'ID L
019500: 45 4E 20 20 2E 20 20 4C 61 20 20 73 74 72 75 63 EN . La struc
019510: 74 75 72 65 20 20 64 65 20 20 6C 61 20 62 6F 75 ture de la bou
019520: 63 6C 65 20 40 20 7B 74 7B 0D 0A 20 6D 6F 64 69 cle @ {t{.. modi
019530: 66 69 7B 65 20 70 6F 75 72 20 70 65 72 6D 65 74 fi{e pour permet
019540: 74 72 65 20 6C 27 61 70 70 65 6C 20 70 61 72 20 tre l'appel par
019550: 27 43 41 4C 4C 27 20 20 64 65 73 20 20 72 6F 75 'CALL' des rou
019560: 74 69 6E 65 73 20 61 6E 6E 65 78 65 73 20 2E 20 tines annexes .
019570: 43 6F 6D 6D 65 20 64 69 74 0D 0A 20 64 61 6E 73 Comme dit.. dans
019580: 20 6C 61 20 70 61 72 74 69 65 20 74 68 7B 6F 72 la partie th{or
019590: 69 65 20 2C 20 6C 61 20 72 7B 75 73 73 69 74 65 ie , la r{ussite
0195A0: 20 64 65 20 63 65 20 74 65 73 74 20 70 65 72 6D de ce test perm
0195B0: 65 74 20 64 27 61 66 66 69 72 6D 65 72 20 71 75 et d'affirmer qu
0195C0: 27 69 6C 20 6E 27 79 20 61 0D 0A 20 70 61 73 20 'il n'y a.. pas
0195D0: 65 75 20 7B 63 72 61 73 65 6D 65 6E 74 20 64 65 eu {crasement de
0195E0: 20 73 65 63 74 65 75 72 73 20 65 74 20 73 6F 6E secteurs et son
0195F0: 20 20 7B 63 68 65 63 20 61 66 66 69 72 6D 65 20 {chec affirme
019600: 6C 27 69 6E 76 65 72 73 65 20 65 74 20 71 75 65 l'inverse et que
019610: 20 74 6F 75 74 20 65 73 74 0D 0A 20 70 6F 73 73 tout est.. poss
019620: 69 62 6C 65 20 2E 20 53 69 20 6C 65 20 20 47 41 ible . Si le GA
019630: 50 20 20 72 65 6E 76 6F 79 7B 20 20 65 6E 20 20 P renvoy{ en
019640: 63 61 73 20 20 64 65 20 20 72 7B 75 73 73 69 74 cas de r{ussit
019650: 65 20 20 6E 27 65 73 74 20 20 70 61 73 20 20 23 e n'est pas #
019660: 34 45 20 6F 6E 20 65 73 74 0D 0A 20 71 75 61 73 4E on est.. quas
019670: 69 6D 65 6E 74 20 63 65 72 74 61 69 6E 20 20 71 iment certain q
019680: 75 27 75 6E 20 20 46 44 43 20 20 73 70 7B 63 69 u'un FDC sp{ci
019690: 61 6C 20 20 61 20 20 7B 74 7B 20 20 75 74 69 6C al a {t{ util
0196A0: 69 73 7B 20 20 2E 20 20 43 65 74 74 65 20 20 76 is{ . Cette v
0196B0: 65 72 73 69 6F 6E 20 64 75 0D 0A 20 70 72 6F 67 ersion du.. prog
0196C0: 72 61 6D 6D 65 20 73 65 20 63 6F 6E 74 65 6E 74 ramme se content
0196D0: 65 20 64 65 20 73 69 67 6E 61 6C 65 72 20 6C 65 e de signaler le
0196E0: 20 66 61 69 74 20 2E 20 20 53 69 20 20 6F 6E 20 fait . Si on
0196F0: 74 72 6F 75 76 65 20 75 6E 20 47 41 50 20 74 72 trouve un GAP tr
019700: 6F 70 20 6C 6F 6E 67 20 2C 0D 0A 20 71 75 65 6C op long ,.. quel
019710: 71 75 65 20 63 68 6F 73 65 20 6E 65 20 76 61 20 que chose ne va
019720: 70 61 73 20 65 74 20 6F 6E 20 61 6E 6E 6F 6E 63 pas et on annonc
019730: 65 20 20 6C 27 7B 63 68 65 63 20 64 65 20 6C 27 e l'{chec de l'
019740: 61 6E 61 6C 79 73 65 20 70 61 72 20 4A 45 43 4F analyse par JECO
019750: 49 4E 43 45 20 2E 20 4F 6E 0D 0A 20 63 6F 6E 63 INCE . On.. conc
019760: 6C 75 74 20 65 6E 20 65 73 73 61 79 61 6E 74 20 lut en essayant
019770: 64 65 20 74 72 6F 75 76 65 72 20 6C 27 6F 63 74 de trouver l'oct
019780: 65 74 20 20 64 65 20 20 66 6F 72 6D 61 74 61 67 et de formatag
019790: 65 20 28 66 69 6C 6C 29 20 64 61 6E 73 20 75 6E e (fill) dans un
0197A0: 20 7B 76 65 6E 74 75 65 6C 0D 0A 20 43 52 2F 44 {ventuel.. CR/D
0197B0: 44 20 2E 0D 0A 20 0D 0A 20 20 20 20 20 20 20 20 D ... ..
0197C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0197D0: 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ---------------
0197E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 -------------..
0197F0: 3B 0D 0A 20 53 4F 4C 55 54 49 4F 4E 31 20 4C 44 ;.. SOLUTION1 LD
019800: 20 48 4C 2C 54 46 47 41 50 20 20 20 3B 43 68 65 HL,TFGAP ;Che
019810: 72 63 68 65 72 20 76 72 61 69 65 20 4C 53 20 73 rcher vraie LS s
019820: 69 20 70 6F 73 73 69 62 6C 65 0D 0A 20 20 20 20 i possible..
019830: 20 20 20 20 20 43 41 4C 4C 20 50 52 54 0D 0A 20 CALL PRT..
019840: 20 20 20 20 20 20 20 20 4C 44 20 48 4C 2C 4C 49 LD HL,LI
019850: 54 46 44 43 32 0D 0A 20 20 20 20 20 20 20 20 20 TFDC2..
019860: 43 41 4C 4C 20 43 4F 4D 4C 49 50 49 20 20 20 20 CALL COMLIPI
019870: 3B 49 6E 69 74 69 61 6C 69 73 65 72 20 63 6F 6D ;Initialiser com
019880: 6D 61 6E 64 65 20 6C 69 72 65 20 70 69 73 74 65 mande lire piste
019890: 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 4C .. ;.. L
0198A0: 44 20 48 4C 2C 31 32 38 20 20 20 20 20 20 20 3B D HL,128 ;
0198B0: 4F 6E 20 63 6F 6D 6D 65 6E 63 65 20 61 75 20 70 On commence au p
0198C0: 6C 75 73 20 70 65 74 69 74 20 70 6F 73 73 69 62 lus petit possib
0198D0: 6C 65 0D 0A 20 20 20 20 20 20 20 20 20 58 4F 52 le.. XOR
0198E0: 20 41 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C A.. CAL
0198F0: 4C 20 52 41 4E 47 4C 4F 4E 20 20 20 20 3B 48 4C L RANGLON ;HL
019900: 20 64 61 6E 73 20 4C 4F 4E 47 53 45 43 20 2C 20 dans LONGSEC ,
019910: 41 20 64 61 6E 73 20 51 55 41 54 52 49 44 2B 33 A dans QUATRID+3
019920: 20 65 74 20 4C 45 4E 53 45 43 0D 0A 20 3B 0D 0A et LENSEC.. ;..
019930: 20 4E 45 58 54 4C 4F 4E 20 43 41 4C 4C 20 49 4E NEXTLON CALL IN
019940: 53 54 52 55 39 20 20 20 20 3B 4C 69 72 65 20 50 STRU9 ;Lire P
019950: 69 73 2E 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 is... ;..
019960: 20 20 4C 44 20 41 2C 28 45 54 31 29 20 20 20 20 LD A,(ET1)
019970: 20 20 3B 4D 41 4D 20 3F 0D 0A 20 20 20 20 20 20 ;MAM ?..
019980: 20 20 20 42 49 54 20 30 2C 41 20 20 20 20 20 20 BIT 0,A
019990: 20 20 20 3B 53 69 20 6F 75 69 20 2C 20 6C 6F 6E ;Si oui , lon
0199A0: 67 75 65 75 72 20 70 61 73 20 74 72 6F 75 76 65 gueur pas trouve
0199B0: 65 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 20 4E e.. JR N
0199C0: 5A 2C 4D 41 4D 46 49 4E 44 20 20 20 3B 43 6F 6E Z,MAMFIND ;Con
0199D0: 74 69 6E 75 65 72 0D 0A 20 3B 0D 0A 20 20 20 20 tinuer.. ;..
0199E0: 20 20 20 20 20 4C 44 20 48 4C 2C 45 54 32 20 20 LD HL,ET2
0199F0: 20 20 20 20 20 3B 44 44 3F 0D 0A 20 20 20 20 20 ;DD?..
019A00: 20 20 20 20 42 49 54 20 35 2C 28 48 4C 29 20 20 BIT 5,(HL)
019A10: 20 20 20 20 3B 53 69 20 70 61 73 20 44 44 20 6C ;Si pas DD l
019A20: 6F 6E 67 75 65 75 72 20 74 72 6F 75 76 65 65 0D ongueur trouvee.
019A30: 0A 20 20 20 20 20 20 20 20 20 4A 52 20 4E 5A 2C . JR NZ,
019A40: 4D 41 4D 46 49 4E 44 20 20 20 3B 53 69 6E 6F 6E MAMFIND ;Sinon
019A50: 20 63 6F 6E 74 69 6E 75 65 72 0D 0A 20 3B 0D 0A continuer.. ;..
019A60: 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 4F 4B CALL OK
019A70: 4C 4F 4E 47 20 20 20 20 20 3B 44 65 74 65 72 6D LONG ;Determ
019A80: 69 6E 65 72 20 76 61 6C 65 75 72 20 47 41 50 0D iner valeur GAP.
019A90: 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 46 . CALL F
019AA0: 49 4E 44 47 41 50 20 20 20 20 3B 45 74 20 6C 6F INDGAP ;Et lo
019AB0: 6E 67 75 65 75 72 20 2E 20 4E 43 20 65 6E 20 72 ngueur . NC en r
019AC0: 65 74 6F 75 72 20 73 69 20 70 61 73 20 62 6F 6E etour si pas bon
019AD0: 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 .. CALL
019AE0: 4E 43 2C 4A 45 43 4F 49 4E 43 45 0D 0A 20 3B 0D NC,JECOINCE.. ;.
019AF0: 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 46 . CALL F
019B00: 49 4E 44 52 45 4D 50 20 20 20 3B 43 68 65 72 63 INDREMP ;Cherc
019B10: 68 65 72 20 6F 63 74 65 74 20 46 49 4C 4C 0D 0A her octet FILL..
019B20: 20 20 20 20 20 20 20 20 20 4A 50 20 45 58 49 54 JP EXIT
019B30: 47 41 50 20 20 20 20 20 20 3B 46 69 6E 69 0D 0A GAP ;Fini..
019B40: 20 3B 0D 0A 20 4D 41 4D 46 49 4E 44 20 43 41 4C ;.. MAMFIND CAL
019B50: 4C 20 49 4E 43 4C 4F 4E 47 20 20 3B 41 3D 41 2B L INCLONG ;A=A+
019B60: 31 20 44 61 6E 73 20 51 55 41 54 52 49 44 2B 33 1 Dans QUATRID+3
019B70: 20 65 74 20 4C 53 20 2C 20 48 4C 3D 48 4C 2B 48 et LS , HL=HL+H
019B80: 4C 20 64 61 6E 73 20 4C 4F 4E 47 53 45 43 0D 0A L dans LONGSEC..
019B90: 20 20 20 20 20 20 20 20 20 43 50 20 36 0D 0A 20 CP 6..
019BA0: 20 20 20 20 20 20 20 20 4A 52 20 4E 5A 2C 4E 45 JR NZ,NE
019BB0: 58 54 4C 4F 4E 20 3B 43 6F 6E 74 69 6E 75 65 72 XTLON ;Continuer
019BC0: 20 74 61 6E 74 20 71 75 65 20 74 6F 75 74 65 20 tant que toute
019BD0: 74 61 69 6C 6C 65 20 64 65 20 30 20 61 20 35 20 taille de 0 a 5
019BE0: 70 61 73 20 74 65 73 74 65 65 73 0D 0A 20 3B 0D pas testees.. ;.
019BF0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
019C00: 20 20 20 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D -------
019C10: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
019C20: 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 0D 0A 20 20 20 20 -------.. ..
019C30: 20 49 63 69 20 63 6F 6D 6D 65 6E 63 65 6E 74 20 Ici commencent
019C40: 6C 65 73 20 76 72 61 69 73 20 70 72 6F 62 6C 7D les vrais probl}
019C50: 6D 65 73 20 21 20 53 6F 69 74 20 20 75 6E 20 4D mes ! Soit un M
019C60: 41 4D 20 65 6E 20 31 65 72 20 73 65 63 74 65 75 AM en 1er secteu
019C70: 72 20 6E 6F 75 73 20 79 2D 61 0D 0A 20 65 6E 76 r nous y-a.. env
019C80: 6F 79 7B 20 2C 20 73 6F 69 74 20 6C 61 20 53 4F oy{ , soit la SO
019C90: 4C 55 54 49 4F 4E 31 20 61 20 6C 61 6D 65 6E 74 LUTION1 a lament
019CA0: 61 62 6C 65 6D 65 6E 74 20 20 7B 63 68 6F 75 7B ablement {chou{
019CB0: 20 20 2E 20 20 4F 6E 20 65 73 74 20 73 75 72 20 . On est sur
019CC0: 64 65 20 72 69 65 6E 20 65 74 0D 0A 20 73 75 72 de rien et.. sur
019CD0: 74 6F 75 74 20 70 61 73 20 64 65 20 6C 61 20 74 tout pas de la t
019CE0: 61 69 6C 6C 65 20 64 65 20 20 66 6F 72 6D 61 74 aille de format
019CF0: 20 20 21 20 20 45 6E 20 20 70 72 65 6D 69 65 72 ! En premier
019D00: 20 6C 69 65 75 20 6F 6E 20 61 70 70 65 6C 6C 65 lieu on appelle
019D10: 20 4D 41 58 49 4C 45 4E 20 2E 0D 0A 20 43 65 74 MAXILEN ... Cet
019D20: 74 65 20 72 6F 75 74 69 6E 65 20 63 61 6C 63 75 te routine calcu
019D30: 6C 65 20 6C 61 20 74 61 69 6C 6C 65 20 64 65 20 le la taille de
019D40: 66 6F 72 6D 61 74 20 20 28 4C 45 4E 20 49 44 29 format (LEN ID)
019D50: 20 61 64 6D 69 73 73 69 62 6C 65 20 65 6E 20 66 admissible en f
019D60: 6F 6E 63 74 69 6F 6E 20 64 75 0D 0A 20 6E 6F 6D onction du.. nom
019D70: 62 72 65 20 64 65 20 73 65 63 74 65 75 72 73 20 bre de secteurs
019D80: 70 72 7B 73 65 6E 74 73 20 73 75 72 20 6C 61 20 pr{sents sur la
019D90: 70 69 73 74 65 20 20 2E 20 43 65 74 74 65 20 6E piste . Cette n
019DA0: 6F 75 76 65 6C 6C 65 20 64 6F 6E 6E 7B 65 20 6E ouvelle donn{e n
019DB0: 6F 75 73 20 70 65 72 6D 65 74 0D 0A 20 64 65 20 ous permet.. de
019DC0: 64 7B 74 65 72 6D 69 6E 65 72 20 71 75 65 6C 71 d{terminer quelq
019DD0: 75 65 73 20 70 6F 69 6E 74 73 20 65 73 73 65 6E ues points essen
019DE0: 74 69 65 6C 73 20 2E 0D 0A 20 0D 0A 20 20 20 20 tiels ... ..
019DF0: 20 31 20 3A 20 53 69 20 75 6E 20 7B 76 65 6E 74 1 : Si un {vent
019E00: 75 65 6C 20 43 52 2F 44 44 20 65 73 74 20 70 6C uel CR/DD est pl
019E10: 75 73 20 67 72 61 6E 64 20 20 71 75 65 20 4D 41 us grand que MA
019E20: 58 49 4C 45 4E 20 2E 20 44 61 6E 73 20 63 65 20 XILEN . Dans ce
019E30: 63 61 73 20 6F 6E 20 65 73 74 0D 0A 20 73 75 72 cas on est.. sur
019E40: 20 64 27 79 20 64 7B 6E 69 63 68 65 72 20 6C 61 d'y d{nicher la
019E50: 20 76 72 61 69 65 20 74 61 69 6C 6C 65 20 64 65 vraie taille de
019E60: 20 20 66 6F 72 6D 61 74 20 20 2C 20 20 6C 65 20 format , le
019E70: 47 41 50 20 65 74 20 65 6E 20 70 72 69 6D 65 20 GAP et en prime
019E80: 6C 27 6F 63 74 65 74 20 64 65 0D 0A 20 66 6F 72 l'octet de.. for
019E90: 6D 61 74 61 67 65 20 2E 0D 0A 20 20 20 20 20 32 matage ... 2
019EA0: 20 3A 20 53 69 20 75 6E 20 7B 76 65 6E 74 75 65 : Si un {ventue
019EB0: 6C 20 20 43 52 2F 44 44 20 20 7B 67 61 6C 65 20 l CR/DD {gale
019EC0: 20 4D 41 58 49 4C 45 4E 20 20 2E 20 20 4F 6E 20 MAXILEN . On
019ED0: 79 2D 74 72 6F 75 76 65 72 61 20 70 65 75 74 20 y-trouvera peut
019EE0: 65 08 5E 74 72 65 20 6C 65 73 0D 0A 20 64 6F 6E e.^tre les.. don
019EF0: 6E 7B 65 73 20 70 72 7B 63 69 74 7B 65 73 20 6F n{es pr{cit{es o
019F00: 75 20 6C 27 61 73 73 75 72 61 6E 63 65 20 71 75 u l'assurance qu
019F10: 27 69 6C 20 73 27 61 67 69 74 20 64 27 75 6E 65 'il s'agit d'une
019F20: 20 70 69 73 74 65 20 61 62 69 6D 7B 65 20 2E 0D piste abim{e ..
019F30: 0A 20 20 20 20 20 33 20 3A 20 4C 45 4E 43 52 44 . 3 : LENCRD
019F40: 44 20 43 6F 6E 74 69 65 6E 64 72 61 20 6C 61 20 D Contiendra la
019F50: 6C 6F 6E 67 75 65 75 72 20 64 75 20 70 6C 75 73 longueur du plus
019F60: 20 67 72 61 6E 64 20 43 52 2F 44 44 20 64 65 20 grand CR/DD de
019F70: 6C 61 20 70 69 73 74 65 20 2E 0D 0A 20 0D 0A 20 la piste ... ..
019F80: 20 20 20 20 4E 6F 74 65 20 3A 20 4C 65 20 72 7B Note : Le r{
019F90: 73 75 6C 74 61 74 20 64 65 20 4D 41 58 49 4C 45 sultat de MAXILE
019FA0: 4E 20 65 73 74 20 72 61 6E 67 7B 20 64 61 6E 73 N est rang{ dans
019FB0: 20 4C 4D 41 58 20 65 74 20 64 61 6E 73 20 43 20 LMAX et dans C
019FC0: 2E 20 4C 65 20 72 65 67 69 73 74 72 65 0D 0A 20 . Le registre..
019FD0: 43 20 65 73 74 20 70 72 7B 73 65 72 76 7B 20 65 C est pr{serv{ e
019FE0: 74 20 73 65 72 74 20 64 65 20 62 61 73 65 20 70 t sert de base p
019FF0: 6F 75 72 20 74 6F 75 73 20 6C 65 73 20 74 65 73 our tous les tes
01A000: 74 73 20 64 65 20 6C 61 20 73 65 63 74 69 6F 6E ts de la section
01A010: 20 2E 0D 0A 20 0D 0A 20 20 20 20 20 20 20 20 20 ... ..
01A020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01A030: 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ------------
01A040: 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 3B 0D 0A 20 ---------.. ;..
01A050: 53 4F 4C 55 54 49 4F 4E 32 20 43 41 4C 4C 20 4D SOLUTION2 CALL M
01A060: 41 58 49 4C 45 4E 20 3B 52 65 74 6F 75 72 20 61 AXILEN ;Retour a
01A070: 76 65 63 20 70 6C 75 73 20 67 72 61 6E 64 65 20 vec plus grande
01A080: 74 61 69 6C 6C 65 20 49 44 20 70 6F 73 73 69 62 taille ID possib
01A090: 6C 65 20 64 61 6E 73 20 43 0D 0A 20 3B 0D 0A 20 le dans C.. ;..
01A0A0: 3B 2D 20 4C 45 4E 20 47 41 50 20 35 20 2D 0D 0A ;- LEN GAP 5 -..
01A0B0: 20 3B 0D 0A 20 3B 2D 20 52 65 63 68 65 72 63 68 ;.. ;- Recherch
01A0C0: 65 20 64 27 75 6E 20 43 52 2F 44 44 20 3E 3D 20 e d'un CR/DD >=
01A0D0: 4C 4D 41 58 20 2D 0D 0A 20 3B 0D 0A 20 20 20 20 LMAX -.. ;..
01A0E0: 20 20 20 20 20 4C 44 20 41 2C 28 46 4C 41 47 43 LD A,(FLAGC
01A0F0: 52 44 44 29 20 3B 53 69 20 61 75 63 75 6E 20 43 RDD) ;Si aucun C
01A100: 52 2F 44 44 20 74 72 6F 75 76 7B 20 73 75 72 20 R/DD trouv{ sur
01A110: 6C 61 20 70 69 73 74 65 20 2C 20 63 61 20 73 27 la piste , ca s'
01A120: 61 67 67 72 61 76 65 0D 0A 20 20 20 20 20 20 20 aggrave..
01A130: 20 20 42 49 54 20 37 2C 41 20 20 20 20 20 20 20 BIT 7,A
01A140: 20 20 3B 70 61 73 73 65 7A 20 75 6E 20 74 6F 75 ;passez un tou
01A150: 72 20 65 74 20 72 65 6E 64 65 7A 20 76 6F 75 73 r et rendez vous
01A160: 20 73 75 72 20 6C 61 20 63 61 73 65 20 53 4F 4C sur la case SOL
01A170: 55 54 49 4F 4E 33 0D 0A 20 20 20 20 20 20 20 20 UTION3..
01A180: 20 4A 50 20 5A 2C 53 4F 4C 55 54 49 4F 4E 33 0D JP Z,SOLUTION3.
01A190: 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 41 4E . ;.. AN
01A1A0: 44 20 25 30 31 31 31 31 31 31 31 20 20 20 3B 45 D %01111111 ;E
01A1B0: 6C 69 6D 69 6E 65 72 20 62 69 74 20 38 20 64 75 liminer bit 8 du
01A1C0: 20 66 6C 61 67 20 43 52 2F 44 44 0D 0A 20 20 20 flag CR/DD..
01A1D0: 20 20 20 20 20 20 4C 44 20 28 4C 45 4E 43 52 44 LD (LENCRD
01A1E0: 44 29 2C 41 20 20 3B 53 74 6F 63 6B 65 72 20 6C D),A ;Stocker l
01A1F0: 6F 6E 67 75 65 75 72 20 64 75 20 3E 20 43 52 2F ongueur du > CR/
01A200: 44 44 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 DD.. ;..
01A210: 20 43 50 20 43 20 20 20 20 20 20 20 20 20 20 20 CP C
01A220: 20 3B 43 6F 6D 70 61 72 65 72 20 43 52 2F 44 44 ;Comparer CR/DD
01A230: 20 61 76 65 63 20 4C 4D 41 58 20 3F 0D 0A 20 20 avec LMAX ?..
01A240: 20 20 20 20 20 20 20 4A 52 20 5A 2C 54 53 54 43 JR Z,TSTC
01A250: 52 44 44 20 20 20 20 3B 53 69 20 43 52 2F 44 44 RDD ;Si CR/DD
01A260: 20 3D 20 4C 4D 41 58 20 2E 20 56 6F 69 72 20 73 = LMAX . Voir s
01A270: 69 20 49 44 53 20 4C 45 4E 20 64 69 66 66 65 72 i IDS LEN differ
01A280: 65 6E 74 73 0D 0A 20 20 20 20 20 20 20 20 20 4A ents.. J
01A290: 52 20 4E 43 2C 50 4F 53 49 43 52 44 44 20 20 3B R NC,POSICRDD ;
01A2A0: 53 69 20 43 52 2F 44 44 20 3E 20 4C 4D 41 58 20 Si CR/DD > LMAX
01A2B0: 2C 20 61 6C 6C 65 72 20 63 68 65 72 63 68 65 72 , aller chercher
01A2C0: 20 6C 65 20 47 41 50 0D 0A 20 3B 0D 0A 20 20 20 le GAP.. ;..
01A2D0: 20 20 20 20 20 20 4C 44 20 41 2C 28 4C 49 44 4D LD A,(LIDM
01A2E0: 41 58 29 20 20 20 3B 49 63 69 20 6C 65 20 43 52 AX) ;Ici le CR
01A2F0: 2F 44 44 20 65 73 74 20 3C 20 71 75 65 20 4C 4D /DD est < que LM
01A300: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
01A310: 16 00 01 00 02 09 4E E5 16 00 C1 02 00 00 00 02 ......N.........
01A320: 16 00 C2 02 00 00 00 02 16 00 C3 02 00 00 00 02 ................
01A330: 16 00 C4 02 00 00 00 02 16 00 C5 02 00 00 00 02 ................
01A340: 16 00 C6 02 00 00 00 02 16 00 C7 02 00 00 00 02 ................
01A350: 16 00 C8 02 00 00 00 02 16 00 C9 02 00 00 00 02 ................
01A360: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A370: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A380: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A390: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A3A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A3B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A3C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A3D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A3E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A3F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A400: 41 58 20 6F 6E 20 72 65 67 61 72 64 65 20 73 69 AX on regarde si
01A410: 20 6C 65 0D 0A 20 20 20 20 20 20 20 20 20 43 50 le.. CP
01A420: 20 43 20 20 20 20 20 20 20 20 20 20 20 20 3B 3C C ;<
01A430: 20 49 44 20 4C 45 4E 20 4F 4B 20 65 73 74 20 61 ID LEN OK est a
01A440: 75 73 73 69 20 3C 20 71 75 65 20 4C 4D 41 58 0D ussi < que LMAX.
01A450: 0A 20 20 20 20 20 20 20 20 20 4A 50 20 4E 43 2C . JP NC,
01A460: 53 4F 4C 55 54 49 4F 4E 33 20 3B 4E 6F 6E 20 2C SOLUTION3 ;Non ,
01A470: 20 72 69 65 6E 20 61 20 66 61 69 72 65 20 61 76 rien a faire av
01A480: 65 63 20 43 52 2F 44 44 0D 0A 20 3B 0D 0A 20 20 ec CR/DD.. ;..
01A490: 20 20 20 20 20 20 20 4C 44 20 43 2C 41 20 20 20 LD C,A
01A4A0: 20 20 20 20 20 20 20 3B 4F 55 49 20 6F 6E 20 72 ;OUI on r
01A4B0: 65 64 75 69 74 20 4C 4D 41 58 20 61 20 6C 61 20 eduit LMAX a la
01A4C0: 6C 6F 6E 67 75 65 75 72 20 64 65 20 4C 49 44 4D longueur de LIDM
01A4D0: 41 58 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 AX.. LD
01A4E0: 41 2C 28 4C 45 4E 43 52 44 44 29 20 20 3B 45 74 A,(LENCRDD) ;Et
01A4F0: 20 6F 6E 20 72 65 74 65 73 74 65 20 73 69 20 4C on reteste si L
01A500: 45 4E 20 43 52 2F 44 44 20 3E 20 3D 20 6E 6F 75 EN CR/DD > = nou
01A510: 76 65 61 75 20 4C 4D 41 58 0D 0A 20 20 20 20 20 veau LMAX..
01A520: 20 20 20 20 43 50 20 43 0D 0A 20 20 20 20 20 20 CP C..
01A530: 20 20 20 4A 52 20 5A 2C 54 53 54 43 52 44 44 20 JR Z,TSTCRDD
01A540: 20 20 20 3B 53 69 20 4C 45 4E 20 43 52 2F 44 44 ;Si LEN CR/DD
01A550: 20 3D 20 6E 6F 75 76 65 61 75 20 4C 4D 41 58 20 = nouveau LMAX
01A560: 2C 20 65 6E 63 6F 72 65 20 75 6E 20 74 65 73 74 , encore un test
01A570: 0D 0A 20 20 20 20 20 20 20 20 20 4A 50 20 4E 43 .. JP NC
01A580: 2C 53 4F 4C 55 54 49 4F 4E 33 20 3B 53 69 20 4C ,SOLUTION3 ;Si L
01A590: 45 4E 20 43 52 2F 44 44 20 3E 20 6E 6F 75 76 65 EN CR/DD > nouve
01A5A0: 61 75 20 4C 4D 41 58 20 63 27 65 73 74 20 62 6F au LMAX c'est bo
01A5B0: 6E 20 65 74 20 69 6E 63 75 72 61 62 6C 65 0D 0A n et incurable..
01A5C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01A5D0: 20 20 20 20 20 20 20 20 20 3B 70 61 72 20 53 4F ;par SO
01A5E0: 4C 55 54 49 4F 4E 32 20 73 69 6E 6F 6E 0D 0A 20 LUTION2 sinon..
01A5F0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
01A600: 20 20 20 20 20 20 20 20 20 20 20 20 2D 2D 2D 2D ----
01A610: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
01A620: 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 0D 0A 20 20 20 --------.. ..
01A630: 20 20 41 72 72 69 76 7B 20 69 63 69 20 6F 6E 20 Arriv{ ici on
01A640: 20 61 20 20 6C 61 20 20 74 61 69 6C 6C 65 20 20 a la taille
01A650: 6D 61 78 69 6D 75 6D 20 20 64 75 20 20 66 6F 72 maximum du for
01A660: 6D 61 74 20 20 64 6F 6E 6E 7B 65 20 64 69 72 65 mat donn{e dire
01A670: 63 74 65 6D 65 6E 74 20 70 61 72 0D 0A 20 4D 41 ctement par.. MA
01A680: 58 49 4C 45 4E 20 6F 75 20 63 65 6C 6C 65 20 70 XILEN ou celle p
01A690: 72 69 73 65 20 64 61 6E 73 20 4C 49 44 4D 41 58 rise dans LIDMAX
01A6A0: 20 2E 20 4F 6E 20 20 40 20 61 75 73 73 69 20 6C . On @ aussi l
01A6B0: 61 20 63 65 72 74 69 74 75 64 65 20 64 27 75 6E a certitude d'un
01A6C0: 20 43 52 2F 44 44 20 7B 67 61 6C 0D 0A 20 40 20 CR/DD {gal.. @
01A6D0: 4C 4D 41 58 20 2E 20 53 69 20 65 6E 20 70 6C 75 LMAX . Si en plu
01A6E0: 73 20 64 65 20 63 65 20 43 52 2F 44 44 20 74 6F s de ce CR/DD to
01A6F0: 75 73 20 20 6C 65 73 20 49 44 53 20 4C 45 4E 20 us les IDS LEN
01A700: 4F 4B 20 73 6F 6E 74 20 64 65 20 6D 65 08 5E 6D OK sont de me.^m
01A710: 65 20 74 61 69 6C 6C 65 20 2C 20 6F 6E 0D 0A 20 e taille , on..
01A720: 61 20 6C 61 20 63 65 72 74 69 74 69 74 75 64 65 a la certititude
01A730: 20 64 27 75 6E 65 20 70 69 73 74 65 20 72 7B 67 d'une piste r{g
01A740: 75 6C 69 7D 72 65 20 20 61 62 69 6D 7B 65 20 20 uli}re abim{e
01A750: 2E 20 20 4F 6E 20 20 73 69 67 6E 61 6C 65 20 6C . On signale l
01A760: 65 20 66 61 69 74 20 70 61 72 20 75 6E 0D 0A 20 e fait par un..
01A770: 6D 65 73 73 61 67 65 20 65 74 20 75 6E 20 62 69 message et un bi
01A780: 74 20 64 61 6E 73 20 46 4C 41 47 46 4E 43 20 20 t dans FLAGFNC
01A790: 2C 20 20 6F 6E 20 20 72 65 6D 65 74 20 20 61 20 , on remet a
01A7A0: 20 7A 7B 72 6F 20 6C 65 73 20 66 6C 61 67 73 20 z{ro les flags
01A7B0: 63 6F 6E 63 65 72 6E 61 6E 74 20 6C 65 0D 0A 20 concernant le..
01A7C0: 43 52 2F 44 44 20 70 6F 75 72 20 7B 76 69 74 65 CR/DD pour {vite
01A7D0: 72 20 74 6F 75 74 65 20 63 6F 6E 66 75 73 69 6F r toute confusio
01A7E0: 6E 20 20 75 6C 74 7B 72 69 65 75 72 65 20 20 65 n ult{rieure e
01A7F0: 74 20 20 6F 6E 20 20 73 61 75 74 65 20 65 6E 20 t on saute en
01A800: 53 4F 4C 55 54 49 4F 4E 35 20 71 75 69 0D 0A 20 SOLUTION5 qui..
01A810: 61 6E 61 6C 79 73 65 20 63 65 20 67 65 6E 72 65 analyse ce genre
01A820: 20 64 65 20 70 72 6F 62 6C 7D 6D 65 20 2E 0D 0A de probl}me ...
01A830: 20 20 20 20 20 53 69 20 43 52 2F 44 44 20 3D 20 Si CR/DD =
01A840: 4C 4D 41 58 20 65 74 20 71 75 65 20 6C 61 20 20 LMAX et que la
01A850: 70 69 73 74 65 20 20 6E 27 65 73 74 20 70 61 73 piste n'est pas
01A860: 20 72 65 63 6F 6E 6E 75 65 20 61 62 69 6D 7B 65 reconnue abim{e
01A870: 20 2C 20 6F 6E 20 20 75 74 69 6C 69 73 65 0D 0A , on utilise..
01A880: 20 75 6E 65 20 70 61 72 74 69 65 20 64 65 20 6C une partie de l
01A890: 61 20 72 6F 75 74 69 6E 65 20 64 65 20 43 52 2F a routine de CR/
01A8A0: 44 44 20 70 6F 75 72 20 20 6C 65 20 6C 6F 63 61 DD pour le loca
01A8B0: 6C 69 73 65 72 20 65 74 20 6F 6E 20 73 61 75 74 liser et on saut
01A8C0: 65 20 40 20 75 6E 65 20 61 6E 6E 65 78 65 0D 0A e @ une annexe..
01A8D0: 20 64 65 20 6C 61 20 53 4F 4C 55 54 49 4F 4E 33 de la SOLUTION3
01A8E0: 20 2E 0D 0A 20 0D 0A 20 20 20 20 20 20 20 20 20 ... ..
01A8F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01A900: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
01A910: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 3B ------------.. ;
01A920: 0D 0A 20 54 53 54 43 52 44 44 20 4C 44 20 41 2C .. TSTCRDD LD A,
01A930: 28 46 4C 47 44 49 46 49 44 29 20 3B 53 69 20 43 (FLGDIFID) ;Si C
01A940: 52 2F 44 44 20 3D 20 4C 45 4E 20 65 74 20 74 6F R/DD = LEN et to
01A950: 75 73 20 49 44 53 20 4C 45 4E 20 69 64 65 6D 0D us IDS LEN idem.
01A960: 0A 20 20 20 20 20 20 20 20 20 4F 52 20 41 0D 0A . OR A..
01A970: 20 20 20 20 20 20 20 20 20 4A 52 20 5A 2C 50 49 JR Z,PI
01A980: 53 4D 4F 52 54 0D 0A 20 3B 0D 0A 20 20 20 20 20 SMORT.. ;..
01A990: 20 20 20 20 4C 44 20 41 2C 28 4C 4D 49 4E 29 20 LD A,(LMIN)
01A9A0: 20 20 20 20 3B 53 69 20 74 6F 75 73 20 49 44 53 ;Si tous IDS
01A9B0: 20 69 64 65 6E 74 69 71 75 65 73 20 65 74 20 3C identiques et <
01A9C0: 3E 20 30 20 4C 4D 49 4E 0D 0A 20 20 20 20 20 20 > 0 LMIN..
01A9D0: 20 20 20 43 50 20 23 46 46 20 20 20 20 20 20 20 CP #FF
01A9E0: 20 20 20 3B 65 73 74 20 72 65 73 74 65 20 61 20 ;est reste a
01A9F0: 23 46 46 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 #FF.. JR
01AA00: 20 4E 5A 2C 50 4F 53 49 43 52 44 44 0D 0A 20 3B NZ,POSICRDD.. ;
01AA10: 0D 0A 20 50 49 53 4D 4F 52 54 20 4C 44 20 48 4C .. PISMORT LD HL
01AA20: 2C 54 46 4F 49 52 45 45 0D 0A 20 20 20 20 20 20 ,TFOIREE..
01AA30: 20 20 20 43 41 4C 4C 20 50 52 54 0D 0A 20 20 20 CALL PRT..
01AA40: 20 20 20 20 20 20 58 4F 52 20 41 20 20 20 20 20 XOR A
01AA50: 20 20 20 20 20 3B 49 67 6E 6F 72 65 72 20 74 6F ;Ignorer to
01AA60: 75 74 65 20 6F 70 65 72 61 74 69 6F 6E 20 75 6C ute operation ul
01AA70: 74 65 72 69 65 75 72 65 20 73 75 72 20 43 52 2F terieure sur CR/
01AA80: 44 44 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 DD.. LD
01AA90: 28 46 4C 41 47 43 52 44 44 29 2C 41 0D 0A 20 20 (FLAGCRDD),A..
01AAA0: 20 20 20 20 20 20 20 44 45 43 20 41 0D 0A 20 20 DEC A..
01AAB0: 20 20 20 20 20 20 20 4C 44 20 28 4C 45 4E 43 52 LD (LENCR
01AAC0: 44 44 29 2C 41 0D 0A 20 3B 0D 0A 20 20 20 20 20 DD),A.. ;..
01AAD0: 20 20 20 20 4C 44 20 48 4C 2C 46 4C 41 47 46 4E LD HL,FLAGFN
01AAE0: 43 0D 0A 20 20 20 20 20 20 20 20 20 53 45 54 20 C.. SET
01AAF0: 36 2C 28 48 4C 29 0D 0A 20 20 20 20 20 20 20 20 6,(HL)..
01AB00: 20 4A 50 20 53 4F 4C 55 54 49 4F 4E 35 0D 0A 20 JP SOLUTION5..
01AB10: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
01AB20: 20 20 20 20 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D ------
01AB30: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
01AB40: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 0D 0A -----------.. ..
01AB50: 20 20 20 20 20 49 63 69 20 6F 6E 20 63 68 65 72 Ici on cher
01AB60: 63 68 65 20 6C 65 20 47 41 50 20 64 61 6E 73 20 che le GAP dans
01AB70: 75 6E 20 43 52 2F 44 44 20 2E 20 20 4F 6E 20 72 un CR/DD . On r
01AB80: 61 6E 67 65 20 4C 4D 41 58 20 64 61 6E 73 20 73 ange LMAX dans s
01AB90: 6F 6E 20 74 69 72 6F 69 72 20 2C 20 6F 6E 0D 0A on tiroir , on..
01ABA0: 20 61 66 66 69 63 68 65 20 6C 65 20 6D 65 73 73 affiche le mess
01ABB0: 61 67 65 20 63 6F 72 72 65 73 70 6F 6E 64 61 6E age correspondan
01ABC0: 74 20 2C 20 20 65 74 20 20 6F 6E 20 20 64 7B 74 t , et on d{t
01ABD0: 65 72 6D 69 6E 65 20 6C 61 20 70 6F 73 69 74 69 ermine la positi
01ABE0: 6F 6E 20 70 68 79 73 69 71 75 65 20 64 75 0D 0A on physique du..
01ABF0: 20 43 52 2F 44 44 20 76 6F 75 6C 75 20 73 75 72 CR/DD voulu sur
01AC00: 20 6C 61 20 70 69 73 74 65 20 2E 0D 0A 20 0D 0A la piste ... ..
01AC10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01AC20: 20 20 20 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D -------
01AC30: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
01AC40: 2D 2D 2D 2D 2D 0D 0A 20 3B 0D 0A 20 50 4F 53 49 -----.. ;.. POSI
01AC50: 43 52 44 44 20 4C 44 20 41 2C 43 0D 0A 20 20 20 CRDD LD A,C..
01AC60: 20 20 20 20 20 20 4C 44 20 28 4C 4D 41 58 29 2C LD (LMAX),
01AC70: 41 20 20 20 20 20 3B 52 61 6E 67 65 72 20 74 61 A ;Ranger ta
01AC80: 69 6C 6C 65 20 6D 61 78 69 20 70 6F 73 73 69 62 ille maxi possib
01AC90: 6C 65 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 le.. ;..
01ACA0: 20 4C 44 20 48 4C 2C 54 46 47 41 50 31 41 20 20 LD HL,TFGAP1A
01ACB0: 20 3B 4D 65 73 73 61 67 65 0D 0A 20 20 20 20 20 ;Message..
01ACC0: 20 20 20 20 43 41 4C 4C 20 50 52 54 0D 0A 20 3B CALL PRT.. ;
01ACD0: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 41 2C .. LD A,
01ACE0: 28 4E 42 53 45 43 29 20 20 20 20 3B 52 65 63 68 (NBSEC) ;Rech
01ACF0: 65 72 63 68 65 72 20 6C 61 20 70 6F 73 69 74 69 ercher la positi
01AD00: 6F 6E 20 65 74 20 6C 27 49 44 20 64 75 20 43 52 on et l'ID du CR
01AD10: 2F 44 44 20 3E 20 4C 4D 41 58 0D 0A 20 20 20 20 /DD > LMAX..
01AD20: 20 20 20 20 20 4C 44 20 42 2C 41 0D 0A 20 20 20 LD B,A..
01AD30: 20 20 20 20 20 20 4C 44 20 49 59 2C 43 4F 55 4E LD IY,COUN
01AD40: 54 20 20 20 20 20 3B 43 6F 6D 70 74 65 75 72 20 T ;Compteur
01AD50: 40 20 7A 7B 72 6F 0D 0A 20 20 20 20 20 20 20 20 @ z{ro..
01AD60: 20 4C 44 20 28 49 59 2B 30 29 2C 30 0D 0A 20 3B LD (IY+0),0.. ;
01AD70: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 44 45 .. LD DE
01AD80: 2C 4C 49 53 54 45 52 52 20 20 20 3B 4C 69 73 74 ,LISTERR ;List
01AD90: 65 20 64 65 73 20 7B 74 61 74 73 20 64 27 65 72 e des {tats d'er
01ADA0: 72 65 75 72 0D 0A 20 20 20 20 20 20 20 20 20 4C reur.. L
01ADB0: 44 20 48 4C 2C 49 44 49 4E 44 52 41 2B 33 20 3B D HL,IDINDRA+3 ;
01ADC0: 4C 6F 6E 67 75 65 75 72 20 49 44 0D 0A 20 3B 0D Longueur ID.. ;.
01ADD0: 0A 20 56 45 55 54 43 4D 20 20 4C 44 20 41 2C 28 . VEUTCM LD A,(
01ADE0: 44 45 29 0D 0A 20 20 20 20 20 20 20 20 20 41 4E DE).. AN
01ADF0: 44 20 25 30 30 31 30 30 31 30 30 20 20 20 3B 49 D %00100100 ;I
01AE00: 73 6F 6C 65 72 20 43 52 2F 44 44 0D 0A 20 20 20 soler CR/DD..
01AE10: 20 20 20 20 20 20 43 50 20 25 30 30 31 30 30 31 CP %001001
01AE20: 30 30 20 20 20 20 3B 54 65 73 74 65 72 20 73 69 00 ;Tester si
01AE30: 20 43 52 2F 44 44 20 69 6C 20 66 61 75 74 20 6C CR/DD il faut l
01AE40: 65 73 20 32 20 61 20 6C 61 20 66 6F 69 73 20 21 es 2 a la fois !
01AE50: 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 20 4E 5A .. JR NZ
01AE60: 2C 50 41 43 52 44 44 20 20 20 20 3B 50 61 73 20 ,PACRDD ;Pas
01AE70: 43 52 2F 44 44 0D 0A 20 3B 0D 0A 20 20 20 20 20 CR/DD.. ;..
01AE80: 20 20 20 20 4C 44 20 41 2C 43 20 20 20 20 20 20 LD A,C
01AE90: 20 20 20 20 3B 43 20 43 6F 6E 74 69 65 6E 74 20 ;C Contient
01AEA0: 74 6F 75 6A 6F 75 72 73 20 4C 4D 41 58 0D 0A 20 toujours LMAX..
01AEB0: 20 20 20 20 20 20 20 20 43 50 20 28 48 4C 29 0D CP (HL).
01AEC0: 0A 20 20 20 20 20 20 20 20 20 4A 52 20 43 2C 46 . JR C,F
01AED0: 49 4E 44 43 52 44 44 20 20 20 3B 4F 6E 20 61 20 INDCRDD ;On a
01AEE0: 74 72 6F 75 76 65 20 6C 65 20 43 52 2F 44 44 20 trouve le CR/DD
01AEF0: 3E 20 71 75 65 20 4C 4D 41 58 0D 0A 20 20 20 20 > que LMAX..
01AF00: 20 20 20 20 20 4A 50 20 5A 2C 53 4F 4C 55 54 49 JP Z,SOLUTI
01AF10: 4F 33 41 20 20 3B 53 69 20 6C 65 20 43 52 2F 44 O3A ;Si le CR/D
01AF20: 44 3D 4C 4D 41 58 20 2C 20 6E 65 20 70 61 73 20 D=LMAX , ne pas
01AF30: 79 20 63 68 65 72 63 68 65 72 20 6C 65 20 47 41 y chercher le GA
01AF40: 50 20 21 0D 0A 20 3B 0D 0A 20 50 41 43 52 44 44 P !.. ;.. PACRDD
01AF50: 20 20 49 4E 43 20 28 49 59 2B 30 29 20 20 20 20 INC (IY+0)
01AF60: 3B 43 6F 6D 70 74 65 75 72 20 2B 20 31 0D 0A 20 ;Compteur + 1..
01AF70: 20 20 20 20 20 20 20 20 49 4E 43 20 44 45 20 20 INC DE
01AF80: 20 20 20 20 20 20 3B 4C 49 53 54 45 52 52 2B 31 ;LISTERR+1
01AF90: 0D 0A 20 20 20 20 20 20 20 20 20 49 4E 43 20 48 .. INC H
01AFA0: 4C 20 20 20 20 20 20 20 20 3B 49 44 53 20 4C 45 L ;IDS LE
01AFB0: 4E 20 73 75 69 76 61 6E 74 0D 0A 20 20 20 20 20 N suivant..
01AFC0: 20 20 20 20 49 4E 43 20 48 4C 0D 0A 20 20 20 20 INC HL..
01AFD0: 20 20 20 20 20 49 4E 43 20 48 4C 0D 0A 20 20 20 INC HL..
01AFE0: 20 20 20 20 20 20 49 4E 43 20 48 4C 0D 0A 20 20 INC HL..
01AFF0: 20 20 20 20 20 20 20 44 4A 4E 5A 20 56 45 55 54 DJNZ VEUT
01B000: 43 4D 0D 0A 20 3B 0D 0A 20 3B 4C 61 20 62 6F 75 CM.. ;.. ;La bou
01B010: 63 6C 65 20 44 4A 4E 5A 20 6E 65 20 76 61 20 6A cle DJNZ ne va j
01B020: 61 6D 61 69 73 20 6A 75 73 71 75 27 40 20 42 3D amais jusqu'@ B=
01B030: 30 20 64 6F 6E 63 20 6E 65 20 73 6F 72 74 20 6A 0 donc ne sort j
01B040: 61 6D 61 69 73 20 70 61 72 20 69 63 69 0D 0A 20 amais par ici..
01B050: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
01B060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2D 2D --
01B070: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
01B080: 2D 2D 2D 2D 0D 0A 20 0D 0A 20 20 20 20 20 4D 61 ----.. .. Ma
01B090: 69 6E 74 65 6E 61 6E 74 20 71 75 65 20 6C 27 6F intenant que l'o
01B0A0: 6E 20 65 73 74 20 73 75 72 20 64 27 61 76 6F 69 n est sur d'avoi
01B0B0: 72 20 20 75 6E 20 20 43 52 2F 44 44 20 20 70 6C r un CR/DD pl
01B0C0: 75 73 20 20 67 72 61 6E 64 20 71 75 65 20 4C 4D us grand que LM
01B0D0: 41 58 20 2C 20 73 61 0D 0A 20 6C 65 63 74 75 72 AX , sa.. lectur
01B0E0: 65 20 70 61 72 20 4C 49 54 46 44 43 34 20 6E 6F e par LITFDC4 no
01B0F0: 75 73 20 64 6F 6E 6E 65 72 61 20 74 6F 75 74 20 us donnera tout
01B100: 63 65 20 20 71 75 27 69 6C 20 20 66 61 75 74 20 ce qu'il faut
01B110: 73 61 76 6F 69 72 20 73 75 72 20 6C 61 20 74 61 savoir sur la ta
01B120: 69 6C 6C 65 20 64 65 0D 0A 20 66 6F 72 6D 61 74 ille de.. format
01B130: 20 2C 20 6C 65 20 47 41 50 20 2C 20 65 74 63 20 , le GAP , etc
01B140: 2E 2E 2E 20 4C 49 54 46 44 43 34 20 65 73 74 20 ... LITFDC4 est
01B150: 75 6E 65 20 72 6F 75 74 69 6E 65 20 73 70 7B 63 une routine sp{c
01B160: 69 61 6C 65 20 71 75 69 20 73 65 72 61 20 65 78 iale qui sera ex
01B170: 70 6C 69 71 75 7B 65 0D 0A 20 64 61 6E 73 20 6C pliqu{e.. dans l
01B180: 61 20 73 65 63 74 69 6F 6E 20 52 4F 55 54 49 4E a section ROUTIN
01B190: 45 53 20 2E 0D 0A 20 0D 0A 20 20 20 20 20 20 20 ES ... ..
01B1A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01B1B0: 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D -----------
01B1C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 3B 0D -----------.. ;.
01B1D0: 0A 20 46 49 4E 44 43 52 44 44 20 44 45 43 20 48 . FINDCRDD DEC H
01B1E0: 4C 20 20 20 20 20 20 20 3B 52 65 70 6F 69 6E 74 L ;Repoint
01B1F0: 65 72 20 64 65 62 75 74 20 49 44 20 43 52 2F 44 er debut ID CR/D
01B200: 44 0D 0A 20 20 20 20 20 20 20 20 20 44 45 43 20 D.. DEC
01B210: 48 4C 0D 0A 20 20 20 20 20 20 20 20 20 44 45 43 HL.. DEC
01B220: 20 48 4C 0D 0A 20 20 20 20 20 20 20 20 20 43 41 HL.. CA
01B230: 4C 4C 20 54 52 41 4E 53 33 49 44 20 3B 45 74 20 LL TRANS3ID ;Et
01B240: 66 69 78 65 72 20 70 61 72 61 6D 65 74 72 65 73 fixer parametres
01B250: 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 4C .. ;.. L
01B260: 44 20 48 4C 2C 54 46 47 41 50 31 41 20 3B 54 65 D HL,TFGAP1A ;Te
01B270: 78 74 65 20 61 6E 61 6C 79 73 65 20 43 52 2F 44 xte analyse CR/D
01B280: 44 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C D.. CALL
01B290: 20 50 52 54 0D 0A 20 20 20 20 20 20 20 20 20 4C PRT.. L
01B2A0: 44 20 41 2C 23 34 36 20 20 20 20 20 20 3B 4C 69 D A,#46 ;Li
01B2B0: 74 20 46 44 43 34 20 64 6F 6E 6E 65 20 6C 27 6F t FDC4 donne l'o
01B2C0: 63 74 65 74 20 64 65 20 72 65 6D 70 6C 69 73 73 ctet de rempliss
01B2D0: 61 67 65 20 2C 20 6C 65 20 47 41 50 0D 0A 20 20 age , le GAP..
01B2E0: 20 20 20 20 20 20 20 4C 44 20 48 4C 2C 4C 49 54 LD HL,LIT
01B2F0: 46 44 43 34 20 3B 6C 61 20 6C 6F 6E 67 75 65 75 FDC4 ;la longueu
01B300: 72 20 64 75 20 47 41 50 20 65 74 20 6C 61 20 6C r du GAP et la l
01B310: 6F 6E 67 75 65 75 72 20 72 65 65 6C 6C 65 20 65 ongueur reelle e
01B320: 6E 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C n.. CALL
01B330: 20 53 45 54 43 4F 4D 32 20 20 3B 6F 63 74 65 74 SETCOM2 ;octet
01B340: 73 20 64 27 61 70 72 65 73 20 75 6E 20 43 52 2F s d'apres un CR/
01B350: 44 44 20 3E 20 71 75 65 20 6C 61 20 6E 6F 72 6D DD > que la norm
01B360: 61 6C 65 0D 0A 20 20 20 20 20 20 20 20 20 43 41 ale.. CA
01B370: 4C 4C 20 56 49 53 49 4E 53 54 20 20 3B 56 69 73 LL VISINST ;Vis
01B380: 65 72 20 73 65 63 74 65 75 72 20 65 74 20 65 78 er secteur et ex
01B390: 65 63 75 74 65 72 20 69 6E 73 74 72 75 63 74 69 ecuter instructi
01B3A0: 6F 6E 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 on.. ;..
01B3B0: 20 4C 44 20 48 4C 2C 46 4C 41 47 46 4E 43 20 3B LD HL,FLAGFNC ;
01B3C0: 53 65 63 74 65 75 72 20 6C 75 20 65 74 20 73 74 Secteur lu et st
01B3D0: 6F 63 6B 65 20 2E 20 53 69 67 6E 61 6C 65 72 20 ocke . Signaler
01B3E0: 6F 63 74 65 74 20 66 6F 72 6D 61 74 61 67 65 0D octet formatage.
01B3F0: 0A 20 20 20 20 20 20 20 20 20 53 45 54 20 30 2C . SET 0,
01B400: 20 20 20 20 21 0D 0A 20 20 45 54 20 46 49 4E 49 !.. ET FINI
01B410: 20 20 20 20 20 21 20 20 21 20 20 20 20 20 20 20 ! !
01B420: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 !
01B430: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01B440: 20 20 20 20 20 21 0D 0A 20 20 20 20 20 20 20 20 !..
01B450: 20 20 20 20 20 20 21 20 20 21 20 20 20 20 20 20 ! !
01B460: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2B +
01B470: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
01B480: 2D 2D 2D 2D 2B 20 21 0D 0A 20 20 20 20 20 20 20 ----+ !..
01B490: 20 20 20 20 20 20 20 21 20 20 21 20 20 20 20 20 ! !
01B4A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01B4B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01B4C0: 20 20 20 20 20 21 20 21 0D 0A 20 20 20 20 20 20 ! !..
01B4D0: 20 20 20 20 20 20 20 20 21 20 20 2B 2D 2D 2D 2D ! +----
01B4E0: 2D 2D 2D 3E 20 52 45 43 48 45 52 43 48 45 20 50 ---> RECHERCHE P
01B4F0: 41 52 20 53 4F 4C 55 54 49 4F 4E 33 20 20 20 20 AR SOLUTION3
01B500: 20 20 20 20 20 20 21 20 21 0D 0A 20 20 20 20 20 ! !..
01B510: 20 20 20 20 20 20 20 20 20 21 20 20 20 20 20 20 !
01B520: 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 55 REU
01B530: 53 53 49 20 3F 20 20 20 20 20 20 20 20 20 20 20 SSI ?
01B540: 20 20 20 20 20 20 20 21 20 21 0D 0A 20 20 20 20 ! !..
01B550: 20 20 20 20 20 20 20 20 20 20 21 20 20 20 20 20 !
01B560: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01B570: 20 20 21 20 20 20 20 20 20 20 20 20 20 20 20 20 !
01B580: 20 20 20 20 20 20 20 20 21 20 21 0D 0A 20 20 20 ! !..
01B590: 20 20 20 20 20 20 20 20 20 20 20 21 20 20 20 20 !
01B5A0: 2B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 3C 20 +-------------<
01B5B0: 4F 55 49 20 4E 4F 4E 20 3E 2D 2D 2D 2D 2D 2D 2B OUI NON >------+
01B5C0: 20 20 20 20 20 20 20 20 20 21 20 21 0D 0A 20 20 ! !..
01B5D0: 20 20 20 20 20 20 20 20 20 20 20 20 21 20 20 20 !
01B5E0: 20 21 20 20 20 20 20 20 20 20 20 20 20 20 20 20 !
01B5F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01B600: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
01B610: 17 00 01 00 02 09 4E E5 17 00 C1 02 00 00 00 02 ......N.........
01B620: 17 00 C2 02 00 00 00 02 17 00 C3 02 00 00 00 02 ................
01B630: 17 00 C4 02 00 00 00 02 17 00 C5 02 00 00 00 02 ................
01B640: 17 00 C6 02 00 00 00 02 17 00 C7 02 00 00 00 02 ................
01B650: 17 00 C8 02 00 00 00 02 17 00 C9 02 00 00 00 02 ................
01B660: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B670: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B680: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B690: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B6A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B6B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B6C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B6D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B6E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B6F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B700: 21 20 20 20 20 20 20 20 20 20 21 20 21 0D 0A 20 ! ! !..
01B710: 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 20 !
01B720: 20 20 21 20 20 20 20 20 20 20 20 20 20 20 41 55 ! AU
01B730: 54 52 45 20 52 45 43 48 45 52 43 48 45 20 3C 2D TRE RECHERCHE <-
01B740: 2D 2B 20 20 20 20 20 20 20 20 20 21 20 21 0D 0A -+ ! !..
01B750: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 !
01B760: 20 20 20 21 20 20 20 20 20 20 20 20 20 20 20 20 !
01B770: 20 20 20 20 20 20 21 20 20 20 20 20 20 20 20 20 !
01B780: 20 20 20 20 20 20 20 20 20 20 20 20 21 20 21 0D ! !.
01B790: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 . !
01B7A0: 20 20 20 20 2B 2D 2D 2D 2D 2D 2D 3E 20 4E 4F 54 +------> NOT
01B7B0: 45 52 20 53 45 43 54 45 55 52 53 20 45 43 52 41 ER SECTEURS ECRA
01B7C0: 53 45 53 20 20 20 20 20 20 20 20 20 20 21 20 21 SES ! !
01B7D0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
01B7E0: 21 20 20 20 20 20 20 20 20 54 52 4F 55 56 45 52 ! TROUVER
01B7F0: 20 52 45 4D 50 4C 49 53 53 41 47 45 20 53 49 20 REMPLISSAGE SI
01B800: 50 4F 53 53 49 42 4C 45 20 20 20 20 20 20 21 20 POSSIBLE !
01B810: 21 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 !..
01B820: 20 21 20 20 20 20 20 20 41 4C 4C 45 52 20 45 43 ! ALLER EC
01B830: 52 41 53 45 52 20 4C 45 53 20 53 45 43 54 45 55 RASER LES SECTEU
01B840: 52 53 20 45 54 20 46 49 4E 49 20 20 20 20 20 21 RS ET FINI !
01B850: 20 21 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 !..
01B860: 20 20 21 20 20 20 20 20 20 20 20 20 20 20 20 20 !
01B870: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01B880: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01B890: 21 20 21 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ! !..
01B8A0: 20 20 20 2B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 3E 20 +---------->
01B8B0: 52 45 43 48 45 52 43 48 45 20 50 41 52 20 53 4F RECHERCHE PAR SO
01B8C0: 4C 55 54 49 4F 4E 34 20 20 20 20 20 20 20 20 20 LUTION4
01B8D0: 20 21 20 21 0D 0A 20 20 20 20 20 20 20 20 20 20 ! !..
01B8E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01B8F0: 20 20 20 50 52 45 53 45 4E 43 45 20 45 43 52 41 PRESENCE ECRA
01B900: 53 45 53 20 3F 20 20 20 20 20 20 20 20 20 20 20 SES ?
01B910: 20 20 21 20 21 0D 0A 20 20 20 20 20 20 20 20 20 ! !..
01B920: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01B930: 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 20 !
01B940: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01B950: 20 20 20 21 20 21 0D 0A 20 45 43 52 41 53 45 52 ! !.. ECRASER
01B960: 20 45 54 20 46 49 4E 49 20 3C 2D 2D 2D 2D 2D 2D ET FINI <------
01B970: 2D 2D 2D 2D 2D 2D 2D 2D 2D 3C 20 4F 55 49 20 4E ---------< OUI N
01B980: 4F 4E 20 3E 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ON >------------
01B990: 2D 2D 2B 20 21 20 21 0D 0A 20 20 20 20 20 20 20 --+ ! !..
01B9A0: 20 5E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ^
01B9B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01B9C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01B9D0: 20 20 20 21 20 21 20 21 0D 0A 20 20 20 20 20 20 ! ! !..
01B9E0: 20 20 21 20 20 20 20 20 20 20 20 20 20 20 20 44 ! D
01B9F0: 45 54 45 52 4D 49 4E 45 52 20 52 45 4D 50 4C 49 ETERMINER REMPLI
01BA00: 53 53 41 47 45 20 53 49 20 50 4F 53 53 49 42 4C SSAGE SI POSSIBL
01BA10: 45 20 3C 2D 2B 2D 21 2D 2B 0D 0A 20 20 20 20 20 E <-+-!-+..
01BA20: 20 20 20 21 20 20 20 20 20 20 20 20 20 20 20 20 !
01BA30: 20 20 20 20 20 20 54 45 53 54 45 52 20 50 52 45 TESTER PRE
01BA40: 53 45 4E 43 45 20 45 43 52 41 53 45 53 20 3C 2D SENCE ECRASES <-
01BA50: 2D 2D 2D 2D 2D 2D 2D 2B 0D 0A 20 20 20 20 20 20 -------+..
01BA60: 20 20 21 20 20 20 20 20 20 20 20 20 20 20 20 20 !
01BA70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01BA80: 21 0D 0A 20 20 20 20 20 20 20 20 2B 2D 2D 2D 2D !.. +----
01BA90: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
01BAA0: 2D 2D 2D 2D 3C 20 4F 55 49 20 4E 4F 4E 20 3E 2D ----< OUI NON >-
01BAB0: 2D 2D 2D 2D 2D 2D 2D 2D 3E 20 46 49 4E 49 0D 0A --------> FINI..
01BAC0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
01BAD0: 20 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D ---------
01BAE0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
01BAF0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 46 49 4E ----------.. FIN
01BB00: 20 44 45 20 53 45 43 54 49 4F 4E 20 2E 20 53 49 DE SECTION . SI
01BB10: 20 56 4F 55 53 20 56 4F 55 53 20 53 45 4E 54 45 VOUS VOUS SENTE
01BB20: 5A 20 45 4E 20 46 4F 52 4D 45 20 2C 20 50 4F 55 Z EN FORME , POU
01BB30: 52 53 55 49 56 45 5A 20 41 56 45 43 20 54 45 53 RSUIVEZ AVEC TES
01BB40: 54 20 50 49 53 54 45 20 31 0D 0A 20 20 20 20 20 T PISTE 1..
01BB50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01BB60: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
01BB70: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
01BB80: 2D 2D 2D 1A 54 52 55 32 0D 0A 20 20 20 20 20 20 ---.TRU2..
01BB90: 20 20 20 43 41 4C 4C 20 52 45 53 55 4C 54 0D 0A CALL RESULT..
01BBA0: 20 20 20 20 20 20 20 20 20 44 4A 4E 5A 20 50 4F DJNZ PO
01BBB0: 49 4E 53 45 43 0D 0A 20 20 20 20 20 20 20 20 20 INSEC..
01BBC0: 50 4F 50 20 42 43 0D 0A 20 3B 0D 0A 20 20 20 20 POP BC.. ;..
01BBD0: 20 20 20 20 20 4A 50 20 49 4E 53 54 52 55 39 0D JP INSTRU9.
01BBE0: 0A 20 3B 0D 0A 20 3B 2D 20 41 66 66 69 63 68 65 . ;.. ;- Affiche
01BBF0: 72 20 6C 65 73 20 65 72 72 65 75 72 73 20 61 20 r les erreurs a
01BC00: 3B 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 41 ;.. LD A
01BC10: 2C 28 46 4C 41 47 49 4D 50 29 20 20 3B 49 6D 70 ,(FLAGIMP) ;Imp
01BC20: 72 65 73 73 69 6F 6E 20 65 6E 20 63 6F 75 72 73 ression en cours
01BC30: 20 3F 0D 0A 20 20 20 20 20 20 20 20 20 4F 52 20 ?.. OR
01BC40: 41 0D 0A 20 20 20 20 20 20 20 20 20 52 45 54 20 A.. RET
01BC50: 5A 20 20 20 20 20 20 20 20 20 20 20 3B 4E 6F 6E Z ;Non
01BC60: 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 43 .. ;.. C
01BC70: 41 4C 4C 20 53 45 54 49 4D 50 20 20 20 20 20 3B ALL SETIMP ;
01BC80: 4F 75 69 0D 0A 20 20 20 20 20 20 20 20 20 43 41 Oui.. CA
01BC90: 4C 4C 20 49 4D 50 50 49 53 54 20 20 20 20 3B 49 LL IMPPIST ;I
01BCA0: 6D 70 72 69 6D 65 72 20 6E 75 6D 7B 72 6F 20 64 mprimer num{ro d
01BCB0: 65 20 70 69 73 74 65 0D 0A 20 20 20 20 20 20 20 e piste..
01BCC0: 20 20 4C 44 20 48 4C 2C 54 50 41 46 4F 52 4D 20 LD HL,TPAFORM
01BCD0: 20 20 3B 45 74 20 70 61 73 20 66 6F 72 6D 61 74 ;Et pas format
01BCE0: 65 65 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C ee.. CAL
01BCF0: 4C 20 50 52 54 0D 0A 20 20 20 20 20 20 20 20 20 L PRT..
01BD00: 20 28 4A 65 20 20 64 6F 75 74 65 20 20 64 75 20 (Je doute du
01BD10: 20 72 65 73 74 65 20 20 71 75 27 75 6E 20 20 63 reste qu'un c
01BD20: 6F 64 65 20 62 69 6E 61 69 72 65 20 6C 65 20 66 ode binaire le f
01BD30: 61 69 73 61 6E 74 0D 0A 20 70 75 69 73 73 65 20 aisant.. puisse
01BD40: 65 08 5E 74 72 65 20 63 6F 6E 74 65 6E 75 20 64 e.^tre contenu d
01BD50: 61 6E 73 20 6C 61 20 52 41 4D 20 64 75 20 43 50 ans la RAM du CP
01BD60: 43 29 20 2E 0D 0A 20 20 20 20 20 32 20 2D 20 50 C) ... 2 - P
01BD70: 6F 75 72 20 71 75 65 20 63 65 6C 61 20 66 6F 6E our que cela fon
01BD80: 63 74 69 6F 6E 6E 65 20 20 2C 20 20 69 6C 20 20 ctionne , il
01BD90: 66 61 75 74 20 20 63 6F 6E 6E 61 69 08 5E 74 72 faut connai.^tr
01BDA0: 65 20 40 20 66 6F 6E 64 20 6C 65 20 73 79 73 74 e @ fond le syst
01BDB0: 7D 6D 65 20 64 65 0D 0A 20 70 72 6F 74 65 63 74 }me de.. protect
01BDC0: 69 6F 6E 20 65 6D 70 6C 6F 79 7B 20 70 6F 75 72 ion employ{ pour
01BDD0: 20 20 74 65 73 74 65 72 20 20 6C 61 20 20 70 69 tester la pi
01BDE0: 73 74 65 20 20 2E 20 20 4F 75 20 20 6F 6E 20 20 ste . Ou on
01BDF0: 61 70 70 65 6C 65 20 20 5C 61 20 20 75 6E 20 76 appele \a un v
01BE00: 69 6F 6C 20 64 65 0D 0A 20 63 6F 70 69 72 79 67 iol de.. copiryg
01BE10: 68 74 20 6F 75 20 6A 65 20 73 75 69 73 20 6C 27 ht ou je suis l'
01BE20: 7B 76 65 08 5E 71 75 65 20 64 27 41 75 74 75 6E {ve.^que d'Autun
01BE30: 20 2E 2E 2E 0D 0A 20 20 20 20 20 53 69 20 76 6F ..... Si vo
01BE40: 75 73 20 61 76 65 7A 20 7B 63 72 61 73 7B 20 61 us avez {cras{ a
01BE50: 76 65 63 20 20 73 75 62 74 69 6C 69 74 7B 20 20 vec subtilit{
01BE60: 76 6F 73 20 20 73 65 63 74 65 75 72 73 20 20 2C vos secteurs ,
01BE70: 20 6C 61 20 72 65 70 72 6F 64 75 63 74 69 6F 6E la reproduction
01BE80: 20 64 65 73 0D 0A 20 64 6F 6E 6E 7B 65 73 20 20 des.. donn{es
01BE90: 73 65 72 61 20 20 63 6F 72 72 65 63 74 65 20 20 sera correcte
01BEA0: 6D 61 69 73 20 20 63 65 72 74 61 69 6E 73 20 20 mais certains
01BEB0: 6F 63 74 65 74 73 20 20 65 6E 74 72 65 20 20 6C octets entre l
01BEC0: 65 73 20 20 73 65 63 74 65 75 72 73 20 20 73 65 es secteurs se
01BED0: 72 6F 6E 74 0D 0A 20 64 69 66 66 7B 72 65 6E 74 ront.. diff{rent
01BEE0: 73 20 73 75 72 20 6C 61 20 63 6F 70 69 65 20 2E s sur la copie .
01BEF0: 20 53 69 20 20 76 6F 75 73 20 20 61 72 72 69 76 Si vous arriv
01BF00: 65 7A 20 20 40 20 20 7B 63 72 69 72 65 20 75 6E ez @ {crire un
01BF10: 65 20 72 6F 75 74 69 6E 65 20 63 61 70 61 62 6C e routine capabl
01BF20: 65 20 64 65 0D 0A 20 72 65 70 72 6F 64 75 69 72 e de.. reproduir
01BF30: 65 20 40 20 6C 27 6F 63 74 65 74 20 70 72 7D 73 e @ l'octet pr}s
01BF40: 20 63 65 20 67 65 6E 72 65 20 64 65 20 70 69 73 ce genre de pis
01BF50: 74 65 20 76 6F 74 72 65 20 74 61 6C 65 6E 74 20 te votre talent
01BF60: 6E 6F 75 73 20 69 6E 74 7B 72 65 73 73 65 20 2E nous int{resse .
01BF70: 2E 2E 0D 0A 20 20 20 20 20 43 45 20 51 55 27 49 .... CE QU'I
01BF80: 4C 20 41 55 52 41 49 54 20 50 55 20 46 41 49 52 L AURAIT PU FAIR
01BF90: 45 20 44 45 20 20 50 4C 55 53 20 20 3A 20 20 28 E DE PLUS : (
01BFA0: 45 74 20 20 71 75 27 69 6C 20 66 65 72 61 20 75 Et qu'il fera u
01BFB0: 6E 20 6A 6F 75 72 20 70 72 6F 63 68 61 69 6E 20 n jour prochain
01BFC0: 65 6E 0D 0A 20 74 61 6E 74 20 71 75 65 20 70 61 en.. tant que pa
01BFD0: 72 74 69 65 20 64 27 75 6E 20 74 6F 75 74 20 62 rtie d'un tout b
01BFE0: 61 70 74 69 73 7B 20 44 49 53 43 20 20 50 4C 55 aptis{ DISC PLU
01BFF0: 53 20 55 4C 54 52 41 20 71 75 69 20 66 65 72 61 S ULTRA qui fera
01C000: 20 62 65 61 75 63 6F 75 70 20 64 65 20 62 72 75 beaucoup de bru
01C010: 69 74 0D 0A 20 64 61 6E 73 20 6C 65 73 20 63 68 it.. dans les ch
01C020: 61 75 6D 69 7D 72 65 73 20 2E 2E 2E 29 20 20 2E aumi}res ...) .
01C030: 20 20 52 7B 70 61 72 65 72 20 20 74 6F 74 61 6C R{parer total
01C040: 65 6D 65 6E 74 20 20 6C 65 73 20 20 64 69 73 71 ement les disq
01C050: 75 65 74 74 65 73 20 44 41 54 41 20 6F 75 20 43 uettes DATA ou C
01C060: 50 4D 0D 0A 20 65 6E 64 6F 6D 6D 61 67 7B 65 73 PM.. endommag{es
01C070: 20 2C 20 63 6F 70 69 65 72 20 63 6F 6E 76 65 6E , copier conven
01C080: 61 62 6C 65 6D 65 6E 74 20 63 65 72 74 61 69 6E ablement certain
01C090: 73 20 20 63 61 73 20 20 74 72 7D 73 20 70 61 72 s cas tr}s par
01C0A0: 74 69 63 75 6C 69 65 72 73 20 2C 20 63 6F 70 69 ticuliers , copi
01C0B0: 65 72 0D 0A 20 70 6C 75 73 20 72 61 70 69 64 65 er.. plus rapide
01C0C0: 6D 65 6E 74 20 2C 20 65 08 5E 74 72 65 20 70 6C ment , e.^tre pl
01C0D0: 75 73 20 6A 6F 6C 69 20 65 74 20 70 6C 75 73 20 us joli et plus
01C0E0: 65 72 67 6F 6E 6F 6D 69 71 75 65 20 2C 20 65 74 ergonomique , et
01C0F0: 63 20 2E 2E 2E 0D 0A 20 20 20 20 20 50 4F 55 52 c ..... POUR
01C100: 01 9F 20 1E 92 27 00 5F 00 2E 4F 0B 00 00 63 B0 .. ..'._..O...c.
01C110: EF 10 01 0B 00 00 63 B1 EF 0E 01 0B 00 00 63 B2 ......c.......c.
01C120: EF 0F 01 0B 00 00 63 B3 EF 11 01 0B 00 00 E3 EF ......c.........
01C130: 0B 00 00 63 B2 01 0B 00 00 77 B1 EF 17 01 0B 00 ...c.....w......
01C140: 00 77 B2 EF 19 20 01 0B 00 00 77 B3 EF 19 0B 01 .w... ....w.....
01C150: 0B 00 00 77 B4 EF 19 15 01 0B 00 00 E1 EF 0E 01 ...w............
01C160: A0 20 1E 70 4E 00 00 00 1A 66 F1 DD AB 36 F2 69 . .pN....f...6.i
01C170: F1 CB BE AC 5A C9 5A 32 07 E3 9B FA BF 6A C2 7B ....Z.Z2.....j.{
01C180: 65 20 66 65 6E 65 74 72 65 20 72 65 70 6F 6E 73 e fenetre repons
01C190: 65 73 20 73 69 20 61 3D 2D 31 36 20 2A 2A 2A 00 es si a=-16 ***.
01C1A0: 07 00 F2 4E 01 C0 00 3B 00 FC 4E 0B 00 00 77 B1 ...N...;..N...w.
01C1B0: EF 19 0A 01 0B 00 00 77 B2 EF 19 1F 01 0B 00 00 .......w........
01C1C0: 77 B3 EF 19 0A 01 0B 00 00 77 B4 EF 19 0A 01 0B w........w......
01C1D0: 00 00 E1 EF 10 01 9F 20 1E AC 4E 01 A0 20 1E 2E ....... ..N.. ..
01C1E0: 4F 00 07 00 06 4F 01 C0 00 25 00 10 4F 01 C0 2A O....O...%..O..*
01C1F0: 2A 2A 20 49 6E 69 74 69 61 6C 69 73 61 74 69 6F ** Initialisatio
01C200: 6E 20 6D 65 6E 75 73 20 32 20 2A 2A 2A 00 07 00 n menus 2 ***...
01C210: 1A 4F 01 C0 00 F2 00 24 4F 0B 00 00 E1 EF 10 01 .O.....$O.......
01C220: 9F 20 1E A2 4E 01 0B 00 00 77 B1 EF 12 01 0B 00 . ..N....w......
01C230: 00 77 B2 EF 14 01 0B 00 00 77 B3 EF 19 0B 01 0B .w.......w......
01C240: 00 00 77 B4 EF 19 15 01 0B 00 00 E1 EF 0E 01 9F ..w.............
01C250: 20 1E AC 4E 01 0B 00 00 77 B1 EF 19 23 01 0B 00 ..N....w...#...
01C260: 00 77 B2 EF 19 25 01 9F 20 1E AC 4E 01 03 00 00 .w...%.. ..N....
01C270: E2 EF 22 20 53 45 43 54 49 4F 4E 20 22 01 7C 00 .." SECTION ".|.
01C280: 50 52 54 D6 2C 0E 2C 11 2C 0E 2C 13 2C 19 0C 2C PRT.,.,.,.,.,..,
01C290: 40 03 00 00 E2 01 7C 00 50 52 54 D6 2C 0E 2C 11 @.....|.PRT.,.,.
01C2A0: 2C 0E 2C 19 24 2C 19 0C 2C 40 03 00 00 E3 01 0B ,.,.$,..,@......
01C2B0: 00 00 F8 EF 13 01 0B 00 00 F9 EF 19 0C 01 0B 00 ................
01C2C0: 00 EC EF 0F 01 0B 00 00 E8 EF FF 0E 28 03 00 00 ............(...
01C2D0: E2 29 01 0B 00 00 E3 EF 0F 01 0B 00 00 F4 EF 12 .)..............
01C2E0: 01 0B 00 00 64 EC EF 19 10 01 0B 00 00 64 E8 EF ....d........d..
01C2F0: 19 10 01 9F 20 1E 92 27 01 0B 00 00 F8 EF 19 24 .... ..'.......$
01C300: 20 20 4A 50 20 50 2C 54 45 53 54 46 44 43 0D 0A JP P,TESTFDC..
01C310: 20 20 41 4E 44 20 23 32 30 0D 0A 20 20 4A 52 20 AND #20.. JR
01C320: 4E 5A 2C 42 43 4C 57 52 54 0D 0A 20 4F 55 54 57 NZ,BCLWRT.. OUTW
01C330: 52 49 54 20 4C 44 20 28 4E 42 4C 55 53 29 2C 44 RIT LD (NBLUS),D
01C340: 45 0D 0A 20 20 4A 50 20 52 45 53 55 4C 54 0D 0A E.. JP RESULT..
01C350: 20 3B 0D 0A 20 57 52 49 54 46 44 43 32 20 4C 44 ;.. WRITFDC2 LD
01C360: 20 44 45 2C 30 20 20 20 20 20 20 20 20 3B 52 45 DE,0 ;RE
01C370: 50 45 54 45 52 20 4C 45 20 4D 45 4D 45 20 4F 43 PETER LE MEME OC
01C380: 54 45 54 20 45 4E 20 45 43 52 49 54 55 52 45 0D TET EN ECRITURE.
01C390: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 48 4C 2C . LD HL,
01C3A0: 28 41 44 42 55 46 46 29 20 20 3B 48 4C 20 6E 27 (ADBUFF) ;HL n'
01C3B0: 65 73 74 20 6A 61 6D 61 69 73 20 69 6E 63 72 65 est jamais incre
01C3C0: 6D 65 6E 74 65 0D 0A 20 20 20 20 20 20 20 20 20 mente..
01C3D0: 4A 52 20 54 45 53 54 46 44 43 32 0D 0A 20 42 43 JR TESTFDC2.. BC
01C3E0: 4C 57 52 54 31 20 49 4E 43 20 43 0D 0A 20 20 20 LWRT1 INC C..
01C3F0: 20 20 20 20 20 20 4C 44 20 41 2C 28 48 4C 29 0D LD A,(HL).
01C400: 0A 20 20 20 20 20 20 20 20 20 4F 55 54 20 28 43 . OUT (C
01C410: 29 2C 41 0D 0A 20 20 20 20 20 20 20 20 20 44 45 ),A.. DE
01C420: 43 20 43 0D 0A 20 20 20 20 20 20 20 20 20 49 4E C C.. IN
01C430: 43 20 44 45 0D 0A 20 54 45 53 54 46 44 43 32 20 C DE.. TESTFDC2
01C440: 49 4E 20 41 2C 28 43 29 0D 0A 20 20 20 20 20 20 IN A,(C)..
01C450: 20 20 20 4A 50 20 50 2C 54 45 53 54 46 44 43 32 JP P,TESTFDC2
01C460: 0D 0A 20 20 20 20 20 20 20 20 20 41 4E 44 20 23 .. AND #
01C470: 32 30 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 20 20.. JR
01C480: 4E 5A 2C 42 43 4C 57 52 54 31 0D 0A 20 20 20 20 NZ,BCLWRT1..
01C490: 20 20 20 20 20 4A 52 20 4F 55 54 57 52 49 54 0D JR OUTWRIT.
01C4A0: 0A 20 3B 0D 0A 20 4C 49 54 46 44 43 20 20 4C 44 . ;.. LITFDC LD
01C4B0: 20 44 45 2C 28 4E 42 41 4C 49 52 45 29 20 20 3B DE,(NBALIRE) ;
01C4C0: 2D 20 4C 69 72 65 20 65 74 20 73 74 6F 63 6B 65 - Lire et stocke
01C4D0: 72 20 6C 65 20 6E 6F 6D 62 72 65 20 64 27 6F 63 r le nombre d'oc
01C4E0: 74 65 74 73 20 64 6F 6E 6E 65 73 0D 0A 20 20 4C tets donnes.. L
01C4F0: 44 20 48 4C 2C 28 41 44 42 55 46 46 29 0D 0A 20 D HL,(ADBUFF)..
01C500: 20 45 54 31 0D 0A 20 20 42 49 54 20 35 2C 28 48 ET1.. BIT 5,(H
01C510: 4C 29 0D 0A 20 20 4A 52 20 5A 2C 4E 4F 45 52 43 L).. JR Z,NOERC
01C520: 52 43 0D 0A 20 20 53 45 54 20 35 2C 28 49 59 2B RC.. SET 5,(IY+
01C530: 30 29 0D 0A 20 4E 4F 45 52 43 52 43 20 42 49 54 0).. NOERCRC BIT
01C540: 20 32 2C 28 48 4C 29 0D 0A 20 20 4A 52 20 5A 2C 2,(HL).. JR Z,
01C550: 4F 4B 44 41 54 41 0D 0A 20 20 53 45 54 20 34 2C OKDATA.. SET 4,
01C560: 28 49 59 2B 30 29 0D 0A 20 4F 4B 44 41 54 41 20 (IY+0).. OKDATA
01C570: 20 42 49 54 20 30 2C 28 48 4C 29 0D 0A 20 20 4A BIT 0,(HL).. J
01C580: 52 20 5A 2C 4F 4B 4D 41 0D 0A 20 20 53 45 54 20 R Z,OKMA.. SET
01C590: 31 2C 28 49 59 2B 30 29 0D 0A 20 4F 4B 4D 41 20 1,(IY+0).. OKMA
01C5A0: 20 20 20 49 4E 43 20 48 4C 20 3B 53 75 72 20 45 INC HL ;Sur E
01C5B0: 54 32 0D 0A 20 20 42 49 54 20 36 2C 28 48 4C 29 T2.. BIT 6,(HL)
01C5C0: 0D 0A 20 20 4A 52 20 5A 2C 4F 4B 43 4D 0D 0A 20 .. JR Z,OKCM..
01C5D0: 20 53 45 54 20 33 2C 28 49 59 2B 30 29 0D 0A 20 SET 3,(IY+0)..
01C5E0: 4F 4B 43 4D 20 20 20 20 42 49 54 20 35 2C 28 48 OKCM BIT 5,(H
01C5F0: 4C 29 0D 0A 20 20 4A 52 20 5A 2C 4F 4B 44 44 0D L).. JR Z,OKDD.
01C600: 0A 20 20 53 45 54 20 32 2C 28 49 59 2B 30 29 0D . SET 2,(IY+0).
01C610: 0A 20 4F 4B 44 44 20 20 20 20 42 49 54 20 30 2C . OKDD BIT 0,
01C620: 28 48 4C 29 0D 0A 20 20 4A 52 20 5A 2C 4F 4B 44 (HL).. JR Z,OKD
01C630: 41 0D 0A 20 20 53 45 54 20 30 2C 28 49 59 2B 30 A.. SET 0,(IY+0
01C640: 29 0D 0A 20 4F 4B 44 41 20 20 20 20 4C 44 20 41 ).. OKDA LD A
01C650: 2C 28 51 55 41 54 52 49 44 29 0D 0A 20 20 4C 44 ,(QUATRID).. LD
01C660: 20 4C 2C 41 0D 0A 20 20 4C 44 20 41 2C 28 50 49 L,A.. LD A,(PI
01C670: 53 54 53 45 4C 29 0D 0A 20 20 53 55 42 20 4C 0D STSEL).. SUB L.
01C680: 0A 20 20 52 45 54 20 5A 0D 0A 20 20 53 45 54 20 . RET Z.. SET
01C690: 37 2C 28 49 59 2B 30 29 0D 0A 20 20 52 45 54 0D 7,(IY+0).. RET.
01C6A0: 0A 20 54 45 4D 50 41 4D 53 20 50 55 53 48 20 41 . TEMPAMS PUSH A
01C6B0: 46 20 20 20 20 20 20 20 20 20 3B 20 54 65 6D 70 F ; Temp
01C6C0: 6F 72 69 73 61 74 69 6F 6E 20 64 65 20 41 2A 32 orisation de A*2
01C6D0: 37 20 4D 73 0D 0A 20 20 4C 44 20 41 2C 31 32 0D 7 Ms.. LD A,12.
01C6E0: 0A 20 20 43 41 4C 4C 20 54 45 4D 50 4D 49 4C 0D . CALL TEMPMIL.
01C6F0: 0A 20 20 50 4F 50 20 41 46 0D 0A 20 20 44 45 43 . POP AF.. DEC
01C700: 20 41 0D 0A 20 20 4A 52 20 4E 5A 2C 54 45 4D 50 A.. JR NZ,TEMP
01C710: 41 4D 53 0D 0A 20 20 4C 44 20 41 2C 31 35 0D 0A AMS.. LD A,15..
01C720: 20 20 43 41 4C 4C 20 54 45 4D 50 4D 49 4C 0D 0A CALL TEMPMIL..
01C730: 20 20 4A 52 20 4C 49 54 53 54 41 54 0D 0A 20 3B JR LITSTAT.. ;
01C740: 0D 0A 20 20 54 45 4D 50 4D 49 4C 20 50 55 53 48 .. TEMPMIL PUSH
01C750: 20 41 46 0D 0A 20 20 4C 44 20 41 2C 23 46 36 0D AF.. LD A,#F6.
01C760: 0A 20 42 43 4C 54 45 4D 50 20 44 45 43 20 41 0D . BCLTEMP DEC A.
01C770: 0A 20 20 4A 52 20 4E 5A 2C 42 43 4C 54 45 4D 50 . JR NZ,BCLTEMP
01C780: 0D 0A 20 20 50 4F 50 20 41 46 0D 0A 20 20 44 45 .. POP AF.. DE
01C790: 43 20 41 0D 0A 20 20 4A 52 20 4E 5A 2C 54 45 4D C A.. JR NZ,TEM
01C7A0: 50 4D 49 4C 0D 0A 20 20 52 45 54 0D 0A 20 3B 0D PMIL.. RET.. ;.
01C7B0: 0A 20 52 41 5A 49 4E 54 45 20 43 41 4C 4C 20 4C . RAZINTE CALL L
01C7C0: 49 54 53 54 41 54 20 3B 2D 20 41 74 74 65 6E 64 ITSTAT ;- Attend
01C7D0: 72 65 20 71 75 65 20 6C 65 20 46 44 43 20 73 6F re que le FDC so
01C7E0: 69 74 20 62 69 65 6E 20 64 69 73 70 6F 73 65 20 it bien dispose
01C7F0: 2D 0D 0A 20 20 43 50 20 23 38 30 0D 0A 20 20 4A -.. CP #80.. J
01C800: 52 20 4E 5A 2C 52 41 5A 49 4E 54 45 0D 0A 20 20 R NZ,RAZINTE..
01C810: 52 45 54 0D 0A 20 3B 0D 0A 20 54 53 54 44 52 49 RET.. ;.. TSTDRI
01C820: 56 20 43 41 4C 4C 20 52 41 5A 49 4E 54 45 20 3B V CALL RAZINTE ;
01C830: 2D 20 54 65 73 74 20 64 72 69 76 65 20 2D 0D 0A - Test drive -..
01C840: 20 20 4C 44 20 41 2C 34 0D 0A 20 20 43 41 4C 4C LD A,4.. CALL
01C850: 20 49 4E 53 54 52 55 31 20 3B 45 6E 76 6F 79 65 INSTRU1 ;Envoye
01C860: 72 20 69 6E 73 74 72 75 63 74 69 6F 6E 20 26 20 r instruction &
01C870: 64 72 69 76 65 0D 0A 20 20 4A 50 20 52 45 53 55 drive.. JP RESU
01C880: 4C 54 0D 0A 20 3B 0D 0A 20 4C 49 54 53 54 41 54 LT.. ;.. LITSTAT
01C890: 20 4C 44 20 41 2C 23 30 38 20 20 20 20 3B 4C 69 LD A,#08 ;Li
01C8A0: 72 65 20 73 74 61 74 75 74 73 20 46 44 43 20 2D re statuts FDC -
01C8B0: 0D 0A 20 20 43 41 4C 4C 20 45 4E 56 4F 46 44 43 .. CALL ENVOFDC
01C8C0: 0D 0A 20 20 4A 50 20 52 45 53 55 4C 54 0D 0A 20 .. JP RESULT..
01C8D0: 3B 0D 0A 20 3B 2D 20 54 65 74 65 20 73 75 72 20 ;.. ;- Tete sur
01C8E0: 6C 61 20 70 69 73 74 65 20 30 20 2D 0D 0A 20 3B la piste 0 -.. ;
01C8F0: 0D 0A 20 43 41 4C 49 42 52 45 20 4C 44 20 41 2C .. CALIBRE LD A,
01C900: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
01C910: 18 00 01 00 02 09 4E E5 18 00 C1 02 00 00 00 02 ......N.........
01C920: 18 00 C2 02 00 00 00 02 18 00 C3 02 00 00 00 02 ................
01C930: 18 00 C4 02 00 00 00 02 18 00 C5 02 00 00 00 02 ................
01C940: 18 00 C6 02 00 00 00 02 18 00 C7 02 00 00 00 02 ................
01C950: 18 00 C8 02 00 00 00 02 18 00 C9 02 00 00 00 02 ................
01C960: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C970: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C980: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C990: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C9A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C9B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C9C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C9D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C9E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C9F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01CA00: 37 20 20 20 20 20 20 20 20 20 20 3B 52 45 53 54 7 ;REST
01CA10: 52 55 43 54 55 52 45 20 44 45 20 4D 41 4E 49 45 RUCTURE DE MANIE
01CA20: 52 45 20 41 20 54 45 53 54 45 52 20 55 4E 20 45 RE A TESTER UN E
01CA30: 56 45 4E 54 55 45 4C 0D 0A 20 20 20 20 20 20 20 VENTUEL..
01CA40: 20 20 43 41 4C 4C 20 49 4E 53 54 52 55 31 20 20 CALL INSTRU1
01CA50: 20 20 3B 27 44 49 53 43 20 4D 49 53 53 49 4E 47 ;'DISC MISSING
01CA60: 27 20 4C 4F 52 53 20 44 45 20 47 4F 50 49 53 54 ' LORS DE GOPIST
01CA70: 45 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C E.. CALL
01CA80: 20 54 45 4D 50 31 0D 0A 20 20 20 20 20 20 20 20 TEMP1..
01CA90: 20 4C 44 20 41 2C 28 45 54 31 29 0D 0A 20 20 20 LD A,(ET1)..
01CAA0: 20 20 20 20 20 20 4F 52 20 41 0D 0A 20 20 20 20 OR A..
01CAB0: 20 20 20 20 20 4A 52 20 4E 5A 2C 43 41 4C 49 42 JR NZ,CALIB
01CAC0: 52 45 0D 0A 20 20 20 20 20 20 20 20 20 52 45 54 RE.. RET
01CAD0: 0D 0A 20 3B 0D 0A 20 47 4F 50 49 53 54 4E 20 4C .. ;.. GOPISTN L
01CAE0: 44 20 41 2C 23 46 20 20 20 20 20 20 20 20 20 3B D A,#F ;
01CAF0: 41 6C 6C 65 72 20 65 6E 20 70 69 73 74 65 20 4E Aller en piste N
01CB00: 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 .. CALL
01CB10: 49 4E 53 54 52 55 20 20 20 20 20 3B 45 6E 76 6F INSTRU ;Envo
01CB20: 79 65 72 20 69 6E 73 74 72 75 63 74 69 6F 6E 20 yer instruction
01CB30: 2C 20 64 72 69 76 65 20 65 74 20 70 69 73 74 65 , drive et piste
01CB40: 20 73 65 6C 65 63 74 69 6F 6E 6E 65 73 0D 0A 20 selectionnes..
01CB50: 54 45 4D 50 31 20 20 20 4C 44 20 41 2C 28 57 41 TEMP1 LD A,(WA
01CB60: 49 54 50 49 53 29 0D 0A 20 20 20 20 20 20 20 20 ITPIS)..
01CB70: 20 43 41 4C 4C 20 54 45 4D 50 41 4D 53 0D 0A 20 CALL TEMPAMS..
01CB80: 3B 0D 0A 20 52 45 54 54 53 44 52 20 44 42 20 30 ;.. RETTSDR DB 0
01CB90: 20 20 20 20 20 20 20 20 20 3B 49 63 69 20 75 6E ;Ici un
01CBA0: 20 52 45 54 20 70 6F 75 72 20 6E 65 20 70 61 73 RET pour ne pas
01CBB0: 20 62 6C 6F 71 75 65 72 20 65 6E 20 65 6E 74 72 bloquer en entr
01CBC0: 65 65 20 64 65 20 70 72 6F 67 72 61 6D 6D 65 0D ee de programme.
01CBD0: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 44 45 2C . LD DE,
01CBE0: 23 30 32 31 33 20 20 20 20 20 3B 73 69 20 64 72 #0213 ;si dr
01CBF0: 69 76 65 20 42 20 61 62 73 65 6E 74 20 6F 75 20 ive B absent ou
01CC00: 73 61 6E 73 20 64 69 73 63 20 28 54 53 54 44 52 sans disc (TSTDR
01CC10: 49 56 29 0D 0A 20 20 20 20 20 20 20 20 20 43 41 IV).. CA
01CC20: 4C 4C 20 54 53 54 4D 49 53 53 0D 0A 20 20 20 20 LL TSTMISS..
01CC30: 20 20 20 20 20 4A 52 20 4E 43 2C 47 4F 50 49 53 JR NC,GOPIS
01CC40: 54 4E 0D 0A 20 20 20 20 20 20 20 20 20 52 45 54 TN.. RET
01CC50: 0D 0A 20 3B 0D 0A 20 46 4F 52 4D 41 54 45 20 50 .. ;.. FORMATE P
01CC60: 55 53 48 20 44 45 20 20 20 20 3B 2D 20 46 6F 72 USH DE ;- For
01CC70: 6D 61 74 65 72 20 2D 0D 0A 20 20 50 55 53 48 20 mater -.. PUSH
01CC80: 42 43 0D 0A 20 20 4C 44 20 42 2C 23 34 44 0D 0A BC.. LD B,#4D..
01CC90: 20 20 43 41 4C 4C 20 43 4F 4D 50 43 4F 4D 0D 0A CALL COMPCOM..
01CCA0: 20 20 43 41 4C 4C 20 49 4E 53 54 52 55 32 0D 0A CALL INSTRU2..
01CCB0: 20 20 4C 44 20 41 2C 28 4C 45 4E 53 45 43 29 20 LD A,(LENSEC)
01CCC0: 3B 45 6E 76 2E 50 61 72 2E 0D 0A 20 20 43 41 4C ;Env.Par... CAL
01CCD0: 4C 20 45 4E 56 4F 46 44 43 0D 0A 20 20 4C 44 20 L ENVOFDC.. LD
01CCE0: 41 2C 28 4E 42 53 45 43 29 0D 0A 20 20 43 41 4C A,(NBSEC).. CAL
01CCF0: 4C 20 45 4E 56 4F 46 44 43 0D 0A 20 20 4C 44 20 L ENVOFDC.. LD
01CD00: 41 2C 28 47 41 50 46 4F 52 4D 29 0D 0A 20 20 43 A,(GAPFORM).. C
01CD10: 41 4C 4C 20 45 4E 56 4F 46 44 43 0D 0A 20 20 4C ALL ENVOFDC.. L
01CD20: 44 20 41 2C 28 4F 43 52 45 4D 50 29 0D 0A 20 20 D A,(OCREMP)..
01CD30: 43 41 4C 4C 20 45 4E 56 4F 46 44 43 0D 0A 20 20 CALL ENVOFDC..
01CD40: 44 49 0D 0A 20 20 4C 44 20 42 43 2C 23 46 42 37 DI.. LD BC,#FB7
01CD50: 45 0D 0A 20 20 43 41 4C 4C 20 57 52 49 54 46 44 E.. CALL WRITFD
01CD60: 43 31 0D 0A 20 20 50 4F 50 20 42 43 20 20 0D 0A C1.. POP BC ..
01CD70: 20 20 50 4F 50 20 44 45 0D 0A 20 20 52 45 54 0D POP DE.. RET.
01CD80: 0A 20 3B 0D 0A 20 54 53 54 44 49 44 43 20 44 49 . ;.. TSTDIDC DI
01CD90: 0D 0A 20 20 50 55 53 48 20 42 43 20 20 20 20 20 .. PUSH BC
01CDA0: 20 20 3B 2D 20 4C 69 72 65 20 6C 65 73 20 49 44 ;- Lire les ID
01CDB0: 53 20 2D 0D 0A 20 20 4C 44 20 42 2C 23 34 41 20 S -.. LD B,#4A
01CDC0: 20 20 20 20 20 3B 50 61 73 73 65 72 20 65 6E 20 ;Passer en
01CDD0: 64 6F 75 62 6C 65 20 64 65 6E 73 69 74 65 0D 0A double densite..
01CDE0: 20 20 4C 44 20 41 2C 23 41 0D 0A 20 20 43 41 4C LD A,#A.. CAL
01CDF0: 4C 20 49 4E 53 54 52 55 31 20 20 3B 4C 69 72 65 L INSTRU1 ;Lire
01CE00: 20 6C 65 73 20 49 44 53 20 65 6E 20 73 69 6D 70 les IDS en simp
01CE10: 6C 65 20 64 65 6E 73 69 74 65 20 70 6F 75 72 20 le densite pour
01CE20: 70 72 6F 76 6F 71 75 65 72 20 65 72 72 65 75 72 provoquer erreur
01CE30: 0D 0A 20 20 43 41 4C 4C 20 52 45 53 55 4C 54 0D .. CALL RESULT.
01CE40: 0A 20 20 4A 52 20 4E 43 2C 52 41 4E 47 43 4F 4D . JR NC,RANGCOM
01CE50: 20 3B 53 69 20 65 72 72 65 75 72 20 63 27 65 73 ;Si erreur c'es
01CE60: 74 20 62 69 65 6E 20 44 44 20 65 74 20 63 27 65 t bien DD et c'e
01CE70: 73 74 20 66 69 6E 69 0D 0A 20 3B 0D 0A 20 20 44 st fini.. ;.. D
01CE80: 49 0D 0A 20 20 4C 44 20 42 2C 23 41 3B 53 69 20 I.. LD B,#A;Si
01CE90: 6E 6F 6E 20 70 61 73 73 65 72 20 65 6E 20 53 44 non passer en SD
01CEA0: 0D 0A 20 20 4C 44 20 41 2C 23 34 41 20 20 20 20 .. LD A,#4A
01CEB0: 20 20 3B 45 74 20 6C 69 72 65 20 65 6E 20 44 44 ;Et lire en DD
01CEC0: 20 70 6F 75 72 20 65 72 72 65 75 72 0D 0A 20 20 pour erreur..
01CED0: 43 41 4C 4C 20 49 4E 53 54 52 55 31 20 20 3B 53 CALL INSTRU1 ;S
01CEE0: 44 3D 45 72 72 2E 0D 0A 20 20 43 41 4C 4C 20 52 D=Err... CALL R
01CEF0: 45 53 55 4C 54 0D 0A 20 3B 0D 0A 20 52 41 4E 47 ESULT.. ;.. RANG
01CF00: 43 4F 4D 20 44 49 0D 0A 20 20 4C 44 20 41 2C 42 COM DI.. LD A,B
01CF10: 0D 0A 20 20 4C 44 20 28 43 4F 4D 4D 41 4E 44 29 .. LD (COMMAND)
01CF20: 2C 41 0D 0A 20 20 50 4F 50 20 42 43 0D 0A 20 20 ,A.. POP BC..
01CF30: 53 43 46 0D 0A 20 20 52 45 54 0D 0A 20 3B 0D 0A SCF.. RET.. ;..
01CF40: 20 49 4E 53 54 52 55 20 20 43 41 4C 4C 20 45 4E INSTRU CALL EN
01CF50: 56 4F 46 44 43 20 20 3B 2D 20 45 6E 76 6F 79 65 VOFDC ;- Envoye
01CF60: 72 20 61 75 20 46 44 43 20 64 72 69 76 65 20 2C r au FDC drive ,
01CF70: 20 74 65 74 65 20 65 74 20 70 69 73 74 65 20 2D tete et piste -
01CF80: 0D 0A 20 20 4C 44 20 44 45 2C 28 44 52 53 45 4C .. LD DE,(DRSEL
01CF90: 45 43 29 20 3B 45 3D 44 72 2E 44 3D 50 2E 0D 0A EC) ;E=Dr.D=P...
01CFA0: 20 20 4C 44 20 41 2C 28 48 45 41 44 29 0D 0A 20 LD A,(HEAD)..
01CFB0: 20 4F 52 20 45 0D 0A 20 20 43 41 4C 4C 20 45 4E OR E.. CALL EN
01CFC0: 56 4F 46 44 43 0D 0A 20 20 4C 44 20 41 2C 44 0D VOFDC.. LD A,D.
01CFD0: 0A 20 48 4F 50 20 20 20 20 20 4A 50 20 45 4E 56 . HOP JP ENV
01CFE0: 4F 46 44 43 0D 0A 20 3B 0D 0A 20 49 4E 53 54 52 OFDC.. ;.. INSTR
01CFF0: 55 32 20 4C 44 20 41 2C 28 43 4F 4D 4D 41 4E 44 U2 LD A,(COMMAND
01D000: 29 20 3B 2D 20 45 6E 76 6F 79 65 72 20 61 75 20 ) ;- Envoyer au
01D010: 46 44 43 20 2C 20 63 6F 6D 6D 61 6E 64 65 20 2C FDC , commande ,
01D020: 20 68 65 61 64 20 2C 20 64 72 69 76 65 20 2D 0D head , drive -.
01D030: 0A 20 49 4E 53 54 52 55 31 20 43 41 4C 4C 20 45 . INSTRU1 CALL E
01D040: 4E 56 4F 46 44 43 0D 0A 20 20 50 55 53 48 20 44 NVOFDC.. PUSH D
01D050: 45 0D 0A 20 20 4C 44 20 41 2C 28 48 45 41 44 29 E.. LD A,(HEAD)
01D060: 0D 0A 20 20 4C 44 20 45 2C 41 0D 0A 20 20 4C 44 .. LD E,A.. LD
01D070: 20 41 2C 28 44 52 53 45 4C 45 43 29 0D 0A 20 20 A,(DRSELEC)..
01D080: 4F 52 20 45 0D 0A 20 20 50 4F 50 20 44 45 0D 0A OR E.. POP DE..
01D090: 20 20 4A 52 20 48 4F 50 0D 0A 20 3B 0D 0A 20 49 JR HOP.. ;.. I
01D0A0: 4E 53 54 52 55 39 20 43 41 4C 4C 20 43 4F 4D 50 NSTRU9 CALL COMP
01D0B0: 43 4F 31 20 20 20 3B 2D 20 45 6E 76 6F 79 65 72 CO1 ;- Envoyer
01D0C0: 20 63 6F 6D 6D 61 6E 64 65 20 65 74 20 39 20 6F commande et 9 o
01D0D0: 63 74 65 74 73 20 70 6F 75 72 20 72 65 61 64 20 ctets pour read
01D0E0: 77 72 69 74 65 20 2D 0D 0A 20 20 43 41 4C 4C 20 write -.. CALL
01D0F0: 49 4E 53 54 52 55 32 0D 0A 20 20 50 55 53 48 20 INSTRU2.. PUSH
01D100: 42 43 0D 0A 20 20 50 55 53 48 20 48 4C 0D 0A 20 BC.. PUSH HL..
01D110: 20 4C 44 20 42 2C 37 0D 0A 20 20 4C 44 20 48 4C LD B,7.. LD HL
01D120: 2C 51 55 41 54 52 49 44 0D 0A 20 4E 45 58 54 39 ,QUATRID.. NEXT9
01D130: 20 20 20 4C 44 20 41 2C 28 48 4C 29 0D 0A 20 20 LD A,(HL)..
01D140: 43 41 4C 4C 20 45 4E 56 4F 46 44 43 0D 0A 20 20 CALL ENVOFDC..
01D150: 49 4E 43 20 48 4C 0D 0A 20 20 44 4A 4E 5A 20 4E INC HL.. DJNZ N
01D160: 45 58 54 39 0D 0A 20 20 44 49 20 20 20 20 20 20 EXT9.. DI
01D170: 0D 0A 20 20 4C 44 20 42 43 2C 23 46 42 37 45 0D .. LD BC,#FB7E.
01D180: 0A 20 20 50 4F 50 20 48 4C 20 20 20 20 20 20 20 . POP HL
01D190: 3B 52 65 70 72 65 6E 64 72 65 20 61 64 72 65 73 ;Reprendre adres
01D1A0: 73 65 20 62 75 66 66 65 72 20 76 61 72 69 61 62 se buffer variab
01D1B0: 6C 65 20 70 6F 75 72 20 4C 49 54 46 44 43 33 0D le pour LITFDC3.
01D1C0: 0A 20 20 50 55 53 48 20 48 4C 0D 0A 20 43 4F 44 . PUSH HL.. COD
01D1D0: 45 4F 50 45 20 43 41 4C 4C 20 4C 49 54 46 44 43 EOPE CALL LITFDC
01D1E0: 20 20 3B 43 41 4C 4C 20 56 41 52 49 41 42 4C 45 ;CALL VARIABLE
01D1F0: 0D 0A 20 20 50 4F 50 20 48 4C 0D 0A 20 20 50 4F .. POP HL.. PO
01D200: 50 20 42 43 0D 0A 20 20 52 45 54 0D 0A 20 3B 0D P BC.. RET.. ;.
01D210: 0A 20 45 4E 56 4F 46 44 43 20 44 49 20 20 20 20 . ENVOFDC DI
01D220: 20 20 20 20 20 20 20 20 20 3B 45 6E 76 6F 79 65 ;Envoye
01D230: 72 20 75 6E 20 6F 63 74 65 74 20 61 75 20 46 44 r un octet au FD
01D240: 43 0D 0A 20 20 50 55 53 48 20 42 43 0D 0A 20 20 C.. PUSH BC..
01D250: 4C 44 20 42 43 2C 23 46 42 37 45 0D 0A 20 20 50 LD BC,#FB7E.. P
01D260: 55 53 48 20 41 46 0D 0A 20 57 41 49 54 46 44 43 USH AF.. WAITFDC
01D270: 20 49 4E 20 41 2C 28 43 29 0D 0A 20 20 41 44 44 IN A,(C).. ADD
01D280: 20 41 2C 41 0D 0A 20 20 4A 52 20 4E 43 2C 57 41 A,A.. JR NC,WA
01D290: 49 54 46 44 43 0D 0A 20 20 41 44 44 20 41 2C 41 ITFDC.. ADD A,A
01D2A0: 0D 0A 20 20 4A 52 20 4E 43 2C 56 45 55 54 4F 43 .. JR NC,VEUTOC
01D2B0: 54 0D 0A 20 20 50 4F 50 20 41 46 0D 0A 20 20 50 T.. POP AF.. P
01D2C0: 4F 50 20 42 43 0D 0A 20 20 45 49 0D 0A 20 20 52 OP BC.. EI.. R
01D2D0: 45 54 0D 0A 20 3B 0D 0A 20 56 45 55 54 4F 43 54 ET.. ;.. VEUTOCT
01D2E0: 20 50 4F 50 20 41 46 0D 0A 20 20 49 4E 43 20 43 POP AF.. INC C
01D2F0: 0D 0A 20 20 4F 55 54 20 28 43 29 2C 41 0D 0A 20 .. OUT (C),A..
01D300: 20 44 45 43 20 43 0D 0A 20 20 4C 44 20 41 2C 35 DEC C.. LD A,5
01D310: 0D 0A 20 44 49 47 45 52 45 20 20 44 45 43 20 41 .. DIGERE DEC A
01D320: 0D 0A 20 20 4E 4F 50 0D 0A 20 20 4A 52 20 4E 5A .. NOP.. JR NZ
01D330: 2C 44 49 47 45 52 45 0D 0A 20 20 50 4F 50 20 42 ,DIGERE.. POP B
01D340: 43 0D 0A 20 20 45 49 0D 0A 20 20 52 45 54 0D 0A C.. EI.. RET..
01D350: 20 3B 0D 0A 20 57 52 49 54 46 44 43 20 4C 44 20 ;.. WRITFDC LD
01D360: 48 4C 2C 28 41 44 42 55 46 46 29 20 20 3B 2D 20 HL,(ADBUFF) ;-
01D370: 45 63 72 69 72 65 20 64 61 6E 73 20 6C 65 20 46 Ecrire dans le F
01D380: 44 43 20 2D 0D 0A 20 57 52 49 54 46 44 43 31 20 DC -.. WRITFDC1
01D390: 4C 44 20 44 45 2C 30 0D 0A 20 20 4A 52 20 54 45 LD DE,0.. JR TE
01D3A0: 53 54 46 44 43 0D 0A 20 42 43 4C 57 52 54 20 20 STFDC.. BCLWRT
01D3B0: 49 4E 43 20 43 0D 0A 20 20 4C 44 20 41 2C 28 48 INC C.. LD A,(H
01D3C0: 4C 29 0D 0A 20 20 4F 55 54 20 28 43 29 2C 41 0D L).. OUT (C),A.
01D3D0: 0A 20 20 44 45 43 20 43 0D 0A 20 20 49 4E 43 20 . DEC C.. INC
01D3E0: 44 45 0D 0A 20 20 49 4E 43 20 48 4C 0D 0A 20 54 DE.. INC HL.. T
01D3F0: 45 53 54 46 44 43 20 49 4E 20 41 2C 28 43 29 0D ESTFDC IN A,(C).
01D400: 0A 20 20 4A 50 20 50 2C 54 45 53 54 46 44 43 0D . JP P,TESTFDC.
01D410: 0A 20 20 41 4E 44 20 23 32 30 0D 0A 20 20 4A 52 . AND #20.. JR
01D420: 20 4E 5A 2C 42 43 4C 57 52 54 0D 0A 20 4F 55 54 NZ,BCLWRT.. OUT
01D430: 57 52 49 54 20 4C 44 20 28 4E 42 4C 55 53 29 2C WRIT LD (NBLUS),
01D440: 44 45 0D 0A 20 20 4A 50 20 52 45 53 55 4C 54 0D DE.. JP RESULT.
01D450: 0A 20 3B 0D 0A 20 57 52 49 54 46 44 43 32 20 4C . ;.. WRITFDC2 L
01D460: 44 20 44 45 2C 30 20 20 20 20 20 20 20 20 3B 52 D DE,0 ;R
01D470: 45 50 45 54 45 52 20 4C 45 20 4D 45 4D 45 20 4F EPETER LE MEME O
01D480: 43 54 45 54 20 45 4E 20 45 43 52 49 54 55 52 45 CTET EN ECRITURE
01D490: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 48 4C .. LD HL
01D4A0: 2C 28 41 44 42 55 46 46 29 20 20 3B 48 4C 20 6E ,(ADBUFF) ;HL n
01D4B0: 27 65 73 74 20 6A 61 6D 61 69 73 20 69 6E 63 72 'est jamais incr
01D4C0: 65 6D 65 6E 74 65 0D 0A 20 20 20 20 20 20 20 20 emente..
01D4D0: 20 4A 52 20 54 45 53 54 46 44 43 32 0D 0A 20 42 JR TESTFDC2.. B
01D4E0: 43 4C 57 52 54 31 20 49 4E 43 20 43 0D 0A 20 20 CLWRT1 INC C..
01D4F0: 20 20 20 20 20 20 20 4C 44 20 41 2C 28 48 4C 29 LD A,(HL)
01D500: 0D 0A 20 20 20 20 20 20 20 20 20 4F 55 54 20 28 .. OUT (
01D510: 43 29 2C 41 0D 0A 20 20 20 20 20 20 20 20 20 44 C),A.. D
01D520: 45 43 20 43 0D 0A 20 20 20 20 20 20 20 20 20 49 EC C.. I
01D530: 4E 43 20 44 45 0D 0A 20 54 45 53 54 46 44 43 32 NC DE.. TESTFDC2
01D540: 20 49 4E 20 41 2C 28 43 29 0D 0A 20 20 20 20 20 IN A,(C)..
01D550: 20 20 20 20 4A 50 20 50 2C 54 45 53 54 46 44 43 JP P,TESTFDC
01D560: 32 0D 0A 20 20 20 20 20 20 20 20 20 41 4E 44 20 2.. AND
01D570: 23 32 30 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 #20.. JR
01D580: 20 4E 5A 2C 42 43 4C 57 52 54 31 0D 0A 20 20 20 NZ,BCLWRT1..
01D590: 20 20 20 20 20 20 4A 52 20 4F 55 54 57 52 49 54 JR OUTWRIT
01D5A0: 0D 0A 20 3B 0D 0A 20 4C 49 54 46 44 43 20 20 4C .. ;.. LITFDC L
01D5B0: 44 20 44 45 2C 28 4E 42 41 4C 49 52 45 29 20 20 D DE,(NBALIRE)
01D5C0: 3B 2D 20 4C 69 72 65 20 65 74 20 73 74 6F 63 6B ;- Lire et stock
01D5D0: 65 72 20 6C 65 20 6E 6F 6D 62 72 65 20 64 27 6F er le nombre d'o
01D5E0: 63 74 65 74 73 20 64 6F 6E 6E 65 73 0D 0A 20 20 ctets donnes..
01D5F0: 4C 44 20 48 4C 2C 28 41 44 42 55 46 46 29 0D 0A LD HL,(ADBUFF)..
01D600: 20 4C 49 54 46 44 43 33 20 50 55 53 48 20 48 4C LITFDC3 PUSH HL
01D610: 0D 0A 20 20 4A 52 20 54 53 54 46 44 43 0D 0A 20 .. JR TSTFDC..
01D620: 52 45 54 45 53 54 20 20 4C 44 20 41 2C 44 0D 0A RETEST LD A,D..
01D630: 20 20 4F 52 20 45 0D 0A 20 20 4A 52 20 5A 2C 54 OR E.. JR Z,T
01D640: 53 54 46 44 43 0D 0A 20 20 49 4E 43 20 43 0D 0A STFDC.. INC C..
01D650: 20 20 49 4E 49 0D 0A 20 20 44 45 43 20 43 0D 0A INI.. DEC C..
01D660: 20 20 49 4E 43 20 42 0D 0A 20 20 44 45 43 20 44 INC B.. DEC D
01D670: 45 0D 0A 20 54 53 54 46 44 43 20 20 49 4E 20 41 E.. TSTFDC IN A
01D680: 2C 28 43 29 0D 0A 20 20 4A 50 20 50 2C 54 53 54 ,(C).. JP P,TST
01D690: 46 44 43 0D 0A 20 20 41 4E 44 20 23 32 30 0D 0A FDC.. AND #20..
01D6A0: 20 20 4A 52 20 4E 5A 2C 52 45 54 45 53 54 0D 0A JR NZ,RETEST..
01D6B0: 20 45 58 49 4C 49 54 20 20 50 4F 50 20 44 45 0D EXILIT POP DE.
01D6C0: 0A 20 20 41 4E 44 20 41 0D 0A 20 20 53 42 43 20 . AND A.. SBC
01D6D0: 48 4C 2C 44 45 0D 0A 20 20 4C 44 20 28 4E 42 4C HL,DE.. LD (NBL
01D6E0: 55 53 29 2C 48 4C 0D 0A 20 20 4A 50 20 52 45 53 US),HL.. JP RES
01D6F0: 55 4C 54 0D 0A 20 3B 0D 0A 20 4C 49 54 46 44 43 ULT.. ;.. LITFDC
01D700: 58 20 50 55 53 48 20 48 4C 0D 0A 20 20 4A 52 20 X PUSH HL.. JR
01D710: 54 53 54 46 44 43 58 0D 0A 20 52 45 54 45 53 54 TSTFDCX.. RETEST
01D720: 58 20 49 4E 43 20 43 0D 0A 20 20 49 4E 20 41 2C X INC C.. IN A,
01D730: 28 43 29 0D 0A 20 20 44 45 43 20 43 0D 0A 20 20 (C).. DEC C..
01D740: 49 4E 43 20 48 4C 0D 0A 20 54 53 54 46 44 43 58 INC HL.. TSTFDCX
01D750: 20 49 4E 20 41 2C 28 43 29 0D 0A 20 20 4A 50 20 IN A,(C).. JP
01D760: 50 2C 54 53 54 46 44 43 58 0D 0A 20 20 41 4E 44 P,TSTFDCX.. AND
01D770: 20 23 32 30 0D 0A 20 20 4A 52 20 4E 5A 2C 52 45 #20.. JR NZ,RE
01D780: 54 45 53 54 58 0D 0A 20 20 4A 52 20 45 58 49 4C TESTX.. JR EXIL
01D790: 49 54 0D 0A 20 3B 0D 0A 20 4C 49 54 46 44 43 32 IT.. ;.. LITFDC2
01D7A0: 20 4C 44 20 48 4C 2C 28 4C 4F 4E 47 53 45 43 29 LD HL,(LONGSEC)
01D7B0: 20 3B 4C 65 63 74 75 72 65 20 70 6F 75 72 20 43 ;Lecture pour C
01D7C0: 68 65 72 63 68 65 72 20 6C 61 20 76 72 61 69 65 hercher la vraie
01D7D0: 20 74 61 69 6C 6C 65 20 64 27 75 6E 20 73 65 63 taille d'un sec
01D7E0: 74 65 75 72 0D 0A 20 20 49 4E 43 20 48 4C 0D 0A teur.. INC HL..
01D7F0: 20 54 53 54 46 44 43 33 20 4C 44 20 41 2C 48 0D TSTFDC3 LD A,H.
01D800: 0A 20 20 4F 52 20 4C 0D 0A 20 20 4A 52 20 5A 2C . OR L.. JR Z,
01D810: 54 53 54 47 41 50 0D 0A 20 54 53 54 46 44 43 41 TSTGAP.. TSTFDCA
01D820: 20 49 4E 20 41 2C 28 43 29 0D 0A 20 20 4A 50 20 IN A,(C).. JP
01D830: 50 2C 54 53 54 46 44 43 41 0D 0A 20 20 41 4E 44 P,TSTFDCA.. AND
01D840: 20 23 32 30 0D 0A 20 20 4A 50 20 5A 2C 52 45 53 #20.. JP Z,RES
01D850: 55 4C 54 0D 0A 20 20 49 4E 43 20 43 0D 0A 20 20 ULT.. INC C..
01D860: 49 4E 20 41 2C 28 43 29 0D 0A 20 20 44 45 43 20 IN A,(C).. DEC
01D870: 43 0D 0A 20 20 44 45 43 20 48 4C 0D 0A 20 20 4A C.. DEC HL.. J
01D880: 52 20 54 53 54 46 44 43 33 0D 0A 20 3B 0D 0A 20 R TSTFDC3.. ;..
01D890: 54 53 54 47 41 50 20 20 49 4E 20 41 2C 28 43 29 TSTGAP IN A,(C)
01D8A0: 0D 0A 20 20 4A 50 20 50 2C 54 53 54 47 41 50 0D .. JP P,TSTGAP.
01D8B0: 0A 20 20 4C 44 20 48 4C 2C 42 55 46 47 41 50 53 . LD HL,BUFGAPS
01D8C0: 0D 0A 20 20 4C 44 20 44 45 2C 32 36 37 0D 0A 20 .. LD DE,267..
01D8D0: 20 4A 52 20 4C 49 54 46 44 43 33 0D 0A 20 3B 0D JR LITFDC3.. ;.
01D8E0: 0A 20 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D . ;-------------
01D8F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 3B 2D -----------.. ;-
01D900: 20 4C 49 54 46 44 43 34 20 4C 69 72 65 20 65 74 LITFDC4 Lire et
01D910: 20 73 74 6F 63 6B 65 72 20 6C 27 6F 63 74 65 74 stocker l'octet
01D920: 20 64 65 20 72 65 6D 70 6C 69 73 73 61 67 65 20 de remplissage
01D930: 65 74 20 73 61 75 74 65 72 20 2D 0D 0A 20 3B 2D et sauter -.. ;-
01D940: 20 4C 49 54 46 44 43 35 20 43 6F 6D 70 74 65 72 LITFDC5 Compter
01D950: 20 6C 65 73 20 6F 63 74 65 74 73 20 64 65 20 72 les octets de r
01D960: 65 6D 70 6C 69 73 73 61 67 65 20 6A 75 73 71 75 emplissage jusqu
01D970: 27 61 75 20 43 52 43 20 65 74 20 73 61 75 74 65 'au CRC et saute
01D980: 72 20 2D 0D 0A 20 3B 2D 20 4C 49 54 46 44 43 36 r -.. ;- LITFDC6
01D990: 20 4C 69 72 65 20 65 74 20 63 6F 6D 70 74 65 72 Lire et compter
01D9A0: 20 6C 65 20 47 41 50 20 2D 0D 0A 20 3B 2D 20 4C le GAP -.. ;- L
01D9B0: 49 54 46 44 43 37 20 41 74 74 65 6E 64 72 65 20 ITFDC7 Attendre
01D9C0: 6C 61 20 66 69 6E 20 64 65 20 6C 61 20 6C 65 63 la fin de la lec
01D9D0: 74 75 72 65 20 2D 0D 0A 20 3B 0D 0A 20 4C 49 54 ture -.. ;.. LIT
01D9E0: 46 44 43 34 20 50 55 53 48 20 48 4C 0D 0A 20 20 FDC4 PUSH HL..
01D9F0: 20 20 20 20 20 20 20 4C 44 20 44 45 2C 2D 32 20 LD DE,-2
01DA00: 20 20 20 20 20 20 3B 4C 6F 6E 67 75 65 75 72 20 ;Longueur
01DA10: 73 65 63 74 65 75 72 20 61 20 2D 33 20 70 6F 75 secteur a -3 pou
01DA20: 72 20 32 20 43 52 43 0D 0A 20 20 20 20 20 20 20 r 2 CRC..
01DA30: 20 20 4A 52 20 54 53 54 46 44 43 34 0D 0A 20 52 JR TSTFDC4.. R
01DA40: 45 54 45 53 54 34 20 49 4E 43 20 43 0D 0A 20 20 ETEST4 INC C..
01DA50: 20 20 20 20 20 20 20 49 4E 20 41 2C 28 43 29 0D IN A,(C).
01DA60: 0A 20 20 20 20 20 20 20 20 20 44 45 43 20 43 0D . DEC C.
01DA70: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 4F 43 . LD (OC
01DA80: 52 45 4D 50 29 2C 41 20 20 3B 4C 69 72 65 20 6C REMP),A ;Lire l
01DA90: 65 20 31 65 72 20 6F 63 74 65 74 20 28 72 65 6D e 1er octet (rem
01DAA0: 70 6C 69 73 73 61 67 65 29 20 65 74 20 73 74 6F plissage) et sto
01DAB0: 63 6B 65 72 0D 0A 20 20 20 20 20 20 20 20 20 4A cker.. J
01DAC0: 52 20 4C 49 54 46 44 43 35 0D 0A 20 54 53 54 46 R LITFDC5.. TSTF
01DAD0: 44 43 34 20 49 4E 20 41 2C 28 43 29 0D 0A 20 20 DC4 IN A,(C)..
01DAE0: 20 20 20 20 20 20 20 4A 50 20 50 2C 54 53 54 46 JP P,TSTF
01DAF0: 44 43 34 0D 0A 20 20 20 20 20 20 20 20 20 41 4E DC4.. AN
01DB00: 44 20 23 32 30 0D 0A 20 20 20 20 20 20 20 20 20 D #20..
01DB10: 4A 52 20 4E 5A 2C 52 45 54 45 53 54 34 0D 0A 20 JR NZ,RETEST4..
01DB20: 20 20 20 20 20 20 20 20 4A 50 20 52 45 53 55 4C JP RESUL
01DB30: 54 20 20 20 20 20 20 3B 53 65 63 75 72 69 74 65 T ;Securite
01DB40: 0D 0A 20 3B 0D 0A 20 4C 49 54 46 44 43 35 20 4C .. ;.. LITFDC5 L
01DB50: 44 20 4C 2C 41 20 20 20 20 20 20 20 20 20 3B 4D D L,A ;M
01DB60: 65 6D 6F 72 69 73 65 72 20 76 61 6C 65 75 72 20 emoriser valeur
01DB70: 72 65 6D 70 6C 69 73 73 61 67 65 0D 0A 20 20 20 remplissage..
01DB80: 20 20 20 20 20 20 4C 44 20 48 2C 33 20 20 20 20 LD H,3
01DB90: 20 20 20 20 20 3B 32 20 6F 63 74 65 74 73 20 43 ;2 octets C
01DBA0: 52 43 20 61 20 73 61 75 74 65 72 20 65 74 20 6C RC a sauter et l
01DBB0: 69 72 65 20 47 41 50 0D 0A 20 20 20 20 20 20 20 ire GAP..
01DBC0: 20 20 4A 52 20 54 53 54 46 44 43 35 0D 0A 20 52 JR TSTFDC5.. R
01DBD0: 45 54 45 53 54 35 20 49 4E 43 20 44 45 20 20 20 ETEST5 INC DE
01DBE0: 20 20 20 20 20 20 3B 43 6F 6D 70 74 65 72 20 6C ;Compter l
01DBF0: 65 73 20 6F 63 74 65 74 73 20 64 65 20 72 65 6D es octets de rem
01DC00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
01DC10: 19 00 01 00 02 09 4E E5 19 00 C1 02 00 00 00 02 ......N.........
01DC20: 19 00 C2 02 00 00 00 02 19 00 C3 02 00 00 00 02 ................
01DC30: 19 00 C4 02 00 00 00 02 19 00 C5 02 00 00 00 02 ................
01DC40: 19 00 C6 02 00 00 00 02 19 00 C7 02 00 00 00 02 ................
01DC50: 19 00 C8 02 00 00 00 02 19 00 C9 02 00 00 00 02 ................
01DC60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DC70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DC80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DC90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DCA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DCB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DCC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DCD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DCE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DCF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DD00: 70 6C 69 73 73 61 67 65 0D 0A 20 20 20 20 20 20 plissage..
01DD10: 20 20 20 49 4E 43 20 43 20 20 20 20 20 20 20 20 INC C
01DD20: 20 20 3B 6F 6E 20 61 75 72 61 20 61 69 6E 73 69 ;on aura ainsi
01DD30: 20 6C 61 20 76 72 61 69 65 20 6C 6F 6E 67 75 65 la vraie longue
01DD40: 75 72 0D 0A 20 20 20 20 20 20 20 20 20 49 4E 20 ur.. IN
01DD50: 41 2C 28 43 29 0D 0A 20 20 20 20 20 20 20 20 20 A,(C)..
01DD60: 44 45 43 20 43 0D 0A 20 20 20 20 20 20 20 20 20 DEC C..
01DD70: 43 50 20 4C 20 20 20 20 20 20 20 20 20 20 20 3B CP L ;
01DD80: 56 6F 69 72 20 73 69 20 6F 6E 20 65 73 74 20 61 Voir si on est a
01DD90: 72 72 69 76 65 20 61 75 20 31 65 72 20 6F 63 74 rrive au 1er oct
01DDA0: 65 74 20 64 75 20 43 52 43 0D 0A 20 20 20 20 20 et du CRC..
01DDB0: 20 20 20 20 4A 52 20 5A 2C 54 53 54 46 44 43 35 JR Z,TSTFDC5
01DDC0: 0D 0A 20 20 20 20 20 20 20 20 20 44 45 43 20 48 .. DEC H
01DDD0: 20 20 20 20 20 20 20 20 20 20 3B 53 61 75 74 65 ;Saute
01DDE0: 72 20 43 52 43 0D 0A 20 20 20 20 20 20 20 20 20 r CRC..
01DDF0: 4A 52 20 5A 2C 4C 49 54 46 44 43 36 0D 0A 20 54 JR Z,LITFDC6.. T
01DE00: 53 54 46 44 43 35 20 49 4E 20 41 2C 28 43 29 0D STFDC5 IN A,(C).
01DE10: 0A 20 20 20 20 20 20 20 20 20 4A 50 20 50 2C 54 . JP P,T
01DE20: 53 54 46 44 43 35 0D 0A 20 20 20 20 20 20 20 20 STFDC5..
01DE30: 20 41 4E 44 20 23 32 30 0D 0A 20 20 20 20 20 20 AND #20..
01DE40: 20 20 20 4A 52 20 4E 5A 2C 52 45 54 45 53 54 35 JR NZ,RETEST5
01DE50: 0D 0A 20 20 20 20 20 20 20 20 20 4A 50 20 52 45 .. JP RE
01DE60: 53 55 4C 54 0D 0A 20 3B 0D 0A 20 4C 49 54 46 44 SULT.. ;.. LITFD
01DE70: 43 36 20 4C 44 20 28 56 41 4C 47 41 50 46 29 2C C6 LD (VALGAPF),
01DE80: 41 20 3B 52 61 6E 67 65 72 20 6C 65 20 47 41 50 A ;Ranger le GAP
01DE90: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 48 2C .. LD H,
01DEA0: 41 20 20 20 20 20 20 20 20 20 3B 4D 65 6D 6F 72 A ;Memor
01DEB0: 69 73 65 72 20 6C 65 20 47 41 50 0D 0A 20 20 20 iser le GAP..
01DEC0: 20 20 20 20 20 20 4C 44 20 4C 2C 31 20 20 20 20 LD L,1
01DED0: 20 20 20 20 20 3B 43 6F 6D 70 74 65 75 72 20 70 ;Compteur p
01DEE0: 6F 75 72 20 6C 6F 6E 67 75 65 75 72 20 47 41 50 our longueur GAP
01DEF0: 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 20 54 53 .. JR TS
01DF00: 20 20 20 20 20 20 20 20 43 41 4C 4C 20 46 47 41 CALL FGA
01DF10: 50 54 42 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 PTB.. JR
01DF20: 20 45 43 52 41 31 41 0D 0A 20 3B 0D 0A 20 50 41 ECRA1A.. ;.. PA
01DF30: 53 34 53 31 20 20 4C 44 20 48 4C 2C 54 42 31 35 S4S1 LD HL,TB15
01DF40: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 43 2C .. LD C,
01DF50: 37 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 7.. CALL
01DF60: 20 46 47 41 50 54 42 0D 0A 20 20 20 20 20 20 20 FGAPTB..
01DF70: 20 20 4A 52 20 45 43 52 41 31 41 0D 0A 20 3B 0D JR ECRA1A.. ;.
01DF80: 0A 20 52 45 43 4F 50 31 20 20 43 41 4C 4C 20 43 . RECOP1 CALL C
01DF90: 4F 50 34 49 44 0D 0A 20 45 43 52 41 31 41 20 20 OP4ID.. ECRA1A
01DFA0: 49 4E 43 20 44 45 0D 0A 20 20 20 20 20 20 20 20 INC DE..
01DFB0: 20 44 4A 4E 5A 20 45 43 52 41 31 0D 0A 20 20 20 DJNZ ECRA1..
01DFC0: 20 20 20 20 20 20 4A 50 20 45 58 49 45 43 52 41 JP EXIECRA
01DFD0: 0D 0A 20 3B 0D 0A 20 3B 2D 20 45 43 52 41 53 45 .. ;.. ;- ECRASE
01DFE0: 52 20 54 41 49 4C 4C 45 20 32 20 2D 0D 0A 20 3B R TAILLE 2 -.. ;
01DFF0: 0D 0A 20 45 43 52 41 32 20 20 20 4C 44 20 41 2C .. ECRA2 LD A,
01E000: 28 44 45 29 20 20 20 20 20 20 20 3B 54 4F 55 54 (DE) ;TOUT
01E010: 20 41 20 55 4E 45 20 46 49 4E 20 2C 20 50 45 52 A UNE FIN , PER
01E020: 53 45 56 45 52 45 5A 20 2E 2E 2E 2E 0D 0A 20 20 SEVEREZ ......
01E030: 20 20 20 20 20 20 20 43 50 20 33 0D 0A 20 20 20 CP 3..
01E040: 20 20 20 20 20 20 4A 52 20 43 2C 52 45 43 4F 50 JR C,RECOP
01E050: 32 0D 0A 20 20 20 20 20 20 20 20 20 43 50 20 23 2.. CP #
01E060: 46 46 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 20 FF.. JR
01E070: 5A 2C 52 45 43 4F 50 32 0D 0A 20 3B 0D 0A 20 20 Z,RECOP2.. ;..
01E080: 20 20 20 20 20 20 20 53 55 42 20 33 0D 0A 20 20 SUB 3..
01E090: 20 20 20 20 20 20 20 4A 52 20 4E 5A 2C 50 41 53 JR NZ,PAS
01E0A0: 33 53 32 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 3S2.. ;..
01E0B0: 20 20 4C 44 20 43 2C 31 0D 0A 20 20 20 20 20 20 LD C,1..
01E0C0: 20 20 20 43 41 4C 4C 20 50 4C 55 53 49 44 53 0D CALL PLUSIDS.
01E0D0: 0A 20 20 20 20 20 20 20 20 20 4A 52 20 45 43 52 . JR ECR
01E0E0: 41 32 41 0D 0A 20 3B 0D 0A 20 50 41 53 33 53 32 A2A.. ;.. PAS3S2
01E0F0: 20 20 44 45 43 20 41 0D 0A 20 20 20 20 20 20 20 DEC A..
01E100: 20 20 4A 52 20 4E 5A 2C 50 41 53 34 53 32 0D 0A JR NZ,PAS4S2..
01E110: 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 ;.. LD
01E120: 48 4C 2C 54 42 32 34 0D 0A 20 20 20 20 20 20 20 HL,TB24..
01E130: 20 20 4C 44 20 43 2C 32 0D 0A 20 20 20 20 20 20 LD C,2..
01E140: 20 20 20 43 41 4C 4C 20 46 47 41 50 54 42 0D 0A CALL FGAPTB..
01E150: 20 20 20 20 20 20 20 20 20 4A 52 20 45 43 52 41 JR ECRA
01E160: 32 41 0D 0A 20 3B 0D 0A 20 50 41 53 34 53 32 20 2A.. ;.. PAS4S2
01E170: 20 4C 44 20 43 2C 35 0D 0A 20 20 20 20 20 20 20 LD C,5..
01E180: 20 20 43 41 4C 4C 20 50 4C 55 53 49 44 53 0D 0A CALL PLUSIDS..
01E190: 20 20 20 20 20 20 20 20 20 4A 52 20 45 43 52 41 JR ECRA
01E1A0: 32 41 20 20 20 20 20 20 20 3B 43 4F 55 52 41 47 2A ;COURAG
01E1B0: 45 20 56 4F 55 53 20 41 50 50 52 4F 43 48 45 5A E VOUS APPROCHEZ
01E1C0: 20 2E 2E 2E 0D 0A 20 3B 0D 0A 20 52 45 43 4F 50 ..... ;.. RECOP
01E1D0: 32 20 20 43 41 4C 4C 20 43 4F 50 34 49 44 0D 0A 2 CALL COP4ID..
01E1E0: 20 45 43 52 41 32 41 20 20 49 4E 43 20 44 45 0D ECRA2A INC DE.
01E1F0: 0A 20 20 20 20 20 20 20 20 20 44 4A 4E 5A 20 45 . DJNZ E
01E200: 43 52 41 32 0D 0A 20 20 20 20 20 20 20 20 20 4A CRA2.. J
01E210: 50 20 45 58 49 45 43 52 41 0D 0A 20 3B 0D 0A 20 P EXIECRA.. ;..
01E220: 3B 2D 20 45 43 52 41 53 45 52 20 54 41 49 4C 4C ;- ECRASER TAILL
01E230: 45 20 33 20 2D 0D 0A 20 3B 0D 0A 20 45 43 52 41 E 3 -.. ;.. ECRA
01E240: 33 20 20 20 4C 44 20 41 2C 28 44 45 29 0D 0A 20 3 LD A,(DE)..
01E250: 20 20 20 20 20 20 20 20 43 50 20 34 0D 0A 20 20 CP 4..
01E260: 20 20 20 20 20 20 20 4A 52 20 43 2C 52 45 43 4F JR C,RECO
01E270: 50 33 0D 0A 20 20 20 20 20 20 20 20 20 43 50 20 P3.. CP
01E280: 23 46 46 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 #FF.. JR
01E290: 20 5A 2C 52 45 43 4F 50 33 0D 0A 20 3B 0D 0A 20 Z,RECOP3.. ;..
01E2A0: 20 20 20 20 20 20 20 20 53 55 42 20 34 0D 0A 20 SUB 4..
01E2B0: 20 20 20 20 20 20 20 20 4A 52 20 4E 5A 2C 52 45 JR NZ,RE
01E2C0: 43 4F 50 33 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 COP3.. ;..
01E2D0: 20 20 20 4C 44 20 43 2C 31 0D 0A 20 20 20 20 20 LD C,1..
01E2E0: 20 20 20 20 43 41 4C 4C 20 50 4C 55 53 49 44 53 CALL PLUSIDS
01E2F0: 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 20 45 43 .. JR EC
01E300: 52 41 32 41 0D 0A 20 3B 0D 0A 20 52 45 43 4F 50 RA2A.. ;.. RECOP
01E310: 33 20 20 43 41 4C 4C 20 43 4F 50 34 49 44 0D 0A 3 CALL COP4ID..
01E320: 20 45 43 52 41 33 41 20 20 49 4E 43 20 44 45 0D ECRA3A INC DE.
01E330: 0A 20 20 20 20 20 20 20 20 20 44 4A 4E 5A 20 45 . DJNZ E
01E340: 43 52 41 33 20 20 3B 56 4F 55 53 20 59 20 45 54 CRA3 ;VOUS Y ET
01E350: 45 53 20 21 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 ES !.. ;..
01E360: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01E370: 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D -----------
01E380: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 -------------..
01E390: 0D 0A 20 20 20 20 20 49 63 69 20 6C 65 73 20 32 .. Ici les 2
01E3A0: 20 72 6F 75 74 69 6E 65 73 20 65 73 73 65 6E 74 routines essent
01E3B0: 69 65 6C 6C 65 73 20 2E 20 4C 61 20 20 70 72 65 ielles . La pre
01E3C0: 6D 69 7D 72 65 20 20 2C 20 43 4F 50 34 49 44 20 mi}re , COP4ID
01E3D0: 2C 20 73 65 20 63 6F 6E 74 65 6E 74 65 20 64 65 , se contente de
01E3E0: 0D 0A 20 72 65 63 6F 70 69 65 72 20 6C 65 73 20 .. recopier les
01E3F0: 49 44 53 20 64 65 20 6C 61 20 7A 6F 6E 65 20 6C IDS de la zone l
01E400: 65 63 74 75 72 65 20 20 76 65 72 73 20 20 6C 61 ecture vers la
01E410: 20 7A 6F 6E 65 20 7B 63 72 69 74 75 72 65 20 2E zone {criture .
01E420: 20 4C 27 7B 74 61 74 20 64 27 65 72 72 65 75 72 L'{tat d'erreur
01E430: 0D 0A 20 65 73 74 20 72 65 63 6F 70 69 7B 20 64 .. est recopi{ d
01E440: 61 6E 73 20 64 61 6E 73 20 6C 61 20 73 65 63 6F ans dans la seco
01E450: 6E 64 65 20 6C 69 73 74 65 20 64 27 65 72 72 65 nde liste d'erre
01E460: 75 72 73 20 71 75 69 20 73 65 72 76 69 72 61 20 urs qui servira
01E470: 40 20 6C 27 7B 63 72 69 74 75 72 65 20 2E 0D 0A @ l'{criture ...
01E480: 20 0D 0A 20 20 20 20 20 4C 61 20 73 65 63 6F 6E .. La secon
01E490: 64 65 20 73 27 6F 63 63 75 70 65 20 64 65 20 6C de s'occupe de l
01E4A0: 27 7B 63 72 61 73 65 6D 65 6E 74 20 2E 20 4C 65 '{crasement . Le
01E4B0: 20 73 65 63 74 65 75 72 20 40 20 7B 63 72 69 72 secteur @ {crir
01E4C0: 65 20 65 73 74 20 72 65 63 6F 70 69 7B 20 70 61 e est recopi{ pa
01E4D0: 72 0D 0A 20 43 4F 50 34 49 44 20 2C 20 65 6E 73 r.. COP4ID , ens
01E4E0: 75 69 74 65 20 2C 20 6F 6E 20 20 61 75 67 6D 65 uite , on augme
01E4F0: 6E 74 65 20 20 6C 65 20 20 6E 6F 6D 62 72 65 20 nte le nombre
01E500: 20 74 6F 74 61 6C 20 20 64 65 20 20 73 65 63 74 total de sect
01E510: 65 75 72 73 20 73 75 72 20 6C 61 20 70 69 73 74 eurs sur la pist
01E520: 65 0D 0A 20 65 6E 20 66 6F 6E 63 74 69 6F 6E 20 e.. en fonction
01E530: 64 75 20 6E 6F 6D 62 72 65 20 64 65 20 73 65 63 du nombre de sec
01E540: 74 65 75 72 73 20 71 75 69 20 73 65 72 6F 6E 74 teurs qui seront
01E550: 20 7B 63 72 61 73 7B 73 20 70 61 72 20 6C 27 7B {cras{s par l'{
01E560: 63 72 69 74 75 72 65 20 2E 20 49 6C 20 66 61 75 criture . Il fau
01E570: 74 0D 0A 20 7B 76 69 64 65 6D 65 6E 74 20 61 75 t.. {videment au
01E580: 67 6D 65 6E 74 65 72 20 6C 61 20 6C 69 73 74 65 gmenter la liste
01E590: 20 64 65 73 20 49 44 53 20 40 20 20 7B 63 72 69 des IDS @ {cri
01E5A0: 72 65 20 20 64 27 61 75 74 61 6E 74 20 2C 20 63 re d'autant , c
01E5B0: 6F 6D 6D 65 20 63 65 73 20 49 44 53 20 73 6F 6E omme ces IDS son
01E5C0: 74 0D 0A 20 64 65 73 74 69 6E 7B 73 20 40 20 75 t.. destin{s @ u
01E5D0: 6E 65 20 66 69 6E 20 72 61 70 69 64 65 20 65 74 ne fin rapide et
01E5E0: 20 20 6E 65 20 20 73 65 72 6F 6E 74 20 20 6A 61 ne seront ja
01E5F0: 6D 61 69 73 20 20 6C 75 73 20 20 6E 69 20 20 7B mais lus ni {
01E600: 63 72 69 74 73 20 2C 20 6F 6E 20 70 65 75 74 20 crits , on peut
01E610: 79 0D 0A 20 6D 65 74 74 72 65 20 6E 27 69 6D 70 y.. mettre n'imp
01E620: 6F 72 74 65 20 71 75 6F 69 20 2E 20 52 65 73 74 orte quoi . Rest
01E630: 65 20 20 6C 61 20 20 6C 69 73 74 65 20 20 64 65 e la liste de
01E640: 73 20 20 65 72 72 65 75 72 73 20 2E 20 51 75 6F s erreurs . Quo
01E650: 69 71 75 65 20 70 65 75 20 75 74 69 6C 69 73 7B ique peu utilis{
01E660: 65 0D 0A 20 6A 75 73 71 75 27 69 63 69 20 2C 20 e.. jusqu'ici ,
01E670: 65 6C 6C 65 20 65 73 74 20 76 69 74 61 6C 65 20 elle est vitale
01E680: 70 6F 75 72 20 20 6C 61 20 20 73 75 69 74 65 20 pour la suite
01E690: 20 64 65 73 20 20 6F 70 7B 72 61 74 69 6F 6E 73 des op{rations
01E6A0: 20 2E 20 43 27 65 73 74 20 65 6C 6C 65 20 71 75 . C'est elle qu
01E6B0: 69 0D 0A 20 64 7B 63 69 64 65 20 73 69 20 69 6C i.. d{cide si il
01E6C0: 20 66 61 75 74 20 6C 69 72 65 20 2C 20 20 7B 63 faut lire , {c
01E6D0: 72 69 72 65 20 20 6F 75 20 20 69 67 6E 6F 72 65 rire ou ignore
01E6E0: 72 20 20 75 6E 20 20 73 65 63 74 65 75 72 20 2E r un secteur .
01E6F0: 20 50 61 73 20 71 75 65 73 74 69 6F 6E 20 64 27 Pas question d'
01E700: 79 0D 0A 20 6D 65 74 74 72 65 20 6E 27 69 6D 70 y.. mettre n'imp
01E710: 6F 72 74 65 20 20 71 75 6F 69 20 20 21 20 20 49 orte quoi ! I
01E720: 6C 20 20 66 61 75 74 20 20 75 6E 20 20 6F 63 74 l faut un oct
01E730: 65 74 20 20 73 70 7B 63 69 66 69 71 75 65 20 20 et sp{cifique
01E740: 71 75 69 20 20 73 69 67 6E 61 6C 65 72 61 20 61 qui signalera a
01E750: 75 0D 0A 20 70 72 6F 67 72 61 6D 6D 65 20 64 27 u.. programme d'
01E760: 69 67 6E 6F 72 65 72 20 63 65 20 73 65 63 74 65 ignorer ce secte
01E770: 75 72 20 20 73 61 6E 73 20 20 65 08 5E 74 72 65 ur sans e.^tre
01E780: 20 20 63 6F 6E 66 6F 6E 64 75 20 20 61 76 65 63 confondu avec
01E790: 20 20 75 6E 20 76 7B 72 69 74 61 62 6C 65 20 7B un v{ritable {
01E7A0: 74 61 74 0D 0A 20 64 27 65 72 72 65 75 72 20 2E tat.. d'erreur .
01E7B0: 20 23 37 46 20 28 30 31 31 31 31 31 31 31 29 20 #7F (01111111)
01E7C0: 65 73 74 20 74 6F 75 74 20 40 20 20 66 61 69 74 est tout @ fait
01E7D0: 20 20 63 6F 6E 76 65 6E 61 62 6C 65 20 2E 20 49 convenable . I
01E7E0: 6C 20 66 61 75 64 72 61 69 74 20 61 75 20 6D 6F l faudrait au mo
01E7F0: 69 6E 73 0D 0A 20 6D 61 73 73 61 63 72 65 72 20 ins.. massacrer
01E800: 6C 65 20 64 72 69 76 65 20 40 20 6C 61 20 68 61 le drive @ la ha
01E810: 63 68 65 20 65 74 20 65 6E 20 70 6C 65 69 6E 20 che et en plein
01E820: 76 6F 6C 20 70 6F 75 72 20 6F 62 74 65 6E 69 72 vol pour obtenir
01E830: 20 75 6E 20 74 65 6C 20 72 7B 73 75 6C 74 61 74 un tel r{sultat
01E840: 20 2E 0D 0A 20 0D 0A 20 20 20 20 20 20 20 20 20 ... ..
01E850: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01E860: 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D -------------
01E870: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 3B 0D 0A ----------.. ;..
01E880: 20 43 4F 50 34 49 44 20 20 50 55 53 48 20 42 43 COP4ID PUSH BC
01E890: 20 20 20 20 20 20 3B 50 72 65 73 65 72 76 65 72 ;Preserver
01E8A0: 20 4E 42 53 45 43 0D 0A 20 20 20 20 20 20 20 20 NBSEC..
01E8B0: 20 4C 44 20 42 2C 34 20 20 20 20 20 20 20 3B 43 LD B,4 ;C
01E8C0: 6F 70 69 65 72 20 34 20 49 44 53 20 64 65 20 49 opier 4 IDS de I
01E8D0: 4E 20 76 65 72 73 20 4F 55 54 0D 0A 20 42 43 4C N vers OUT.. BCL
01E8E0: 43 4F 50 20 20 4C 44 20 41 2C 28 49 58 2B 30 29 COP LD A,(IX+0)
01E8F0: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 49 .. LD (I
01E900: 59 2B 30 29 2C 41 0D 0A 20 20 20 20 20 20 20 20 Y+0),A..
01E910: 20 49 4E 43 20 49 58 0D 0A 20 20 20 20 20 20 20 INC IX..
01E920: 20 20 49 4E 43 20 49 59 0D 0A 20 20 20 20 20 20 INC IY..
01E930: 20 20 20 44 4A 4E 5A 20 42 43 4C 43 4F 50 0D 0A DJNZ BCLCOP..
01E940: 20 20 20 20 20 20 20 20 20 50 4F 50 20 42 43 0D POP BC.
01E950: 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 . ;.. LD
01E960: 20 48 4C 2C 28 50 4F 49 4E 54 45 52 29 20 3B 41 HL,(POINTER) ;A
01E970: 76 61 6E 63 65 72 20 6C 65 20 70 6F 69 6E 74 65 vancer le pointe
01E980: 75 72 20 65 74 61 74 20 64 27 65 72 72 65 75 72 ur etat d'erreur
01E990: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 41 2C .. LD A,
01E9A0: 28 48 4C 29 0D 0A 20 20 20 20 20 20 20 20 20 49 (HL).. I
01E9B0: 4E 43 20 48 4C 0D 0A 20 20 20 20 20 20 20 20 20 NC HL..
01E9C0: 4C 44 20 28 50 4F 49 4E 54 45 52 29 2C 48 4C 0D LD (POINTER),HL.
01E9D0: 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 . ;.. LD
01E9E0: 20 48 4C 2C 28 50 45 52 50 52 4F 56 29 20 3B 45 HL,(PERPROV) ;E
01E9F0: 74 20 72 65 63 6F 70 69 65 72 20 63 65 74 20 65 t recopier cet e
01EA00: 74 61 74 20 64 27 65 72 72 65 75 72 20 64 61 6E tat d'erreur dan
01EA10: 73 20 6C 61 0D 0A 20 20 20 20 20 20 20 20 20 4C s la.. L
01EA20: 44 20 28 48 4C 29 2C 41 20 20 20 20 20 20 20 3B D (HL),A ;
01EA30: 6C 69 73 74 65 20 70 72 6F 76 69 73 6F 69 72 65 liste provisoire
01EA40: 20 74 6F 75 74 20 65 6E 20 61 76 61 6E 63 61 6E tout en avancan
01EA50: 74 20 6C 65 20 70 6F 69 6E 74 65 75 72 0D 0A 20 t le pointeur..
01EA60: 20 20 20 20 20 20 20 20 49 4E 43 20 48 4C 20 20 INC HL
01EA70: 20 20 20 20 20 20 20 20 3B 64 65 20 63 65 6C 6C ;de cell
01EA80: 65 2D 63 69 0D 0A 20 20 20 20 20 20 20 20 20 4C e-ci.. L
01EA90: 44 20 28 50 45 52 50 52 4F 56 29 2C 48 4C 0D 0A D (PERPROV),HL..
01EAA0: 20 20 20 20 20 20 20 20 20 52 45 54 0D 0A 20 3B RET.. ;
01EAB0: 0D 0A 20 3B 2D 20 44 45 54 45 52 4D 49 4E 45 20 .. ;- DETERMINE
01EAC0: 45 54 20 41 4A 4F 55 54 45 20 0D 0A 20 3B 0D 0A ET AJOUTE .. ;..
01EAD0: 20 46 47 41 50 54 42 20 20 4C 44 20 41 2C 28 47 FGAPTB LD A,(G
01EAE0: 41 50 46 4F 52 4D 29 20 20 3B 48 4C 20 43 6F 6E APFORM) ;HL Con
01EAF0: 74 69 65 6E 74 20 6C 65 20 31 65 72 20 6F 63 74 tient le 1er oct
01EB00: 65 74 20 64 65 20 6C 61 20 74 61 62 6C 65 20 63 et de la table c
01EB10: 6F 6E 63 65 72 6E 7B 65 0D 0A 20 46 47 41 50 54 oncern{e.. FGAPT
01EB20: 42 31 20 43 50 20 28 48 4C 29 20 20 20 20 20 20 B1 CP (HL)
01EB30: 20 20 20 3B 44 65 74 65 72 6D 69 6E 65 72 20 6C ;Determiner l
01EB40: 65 20 6E 6F 6D 62 72 65 20 64 65 20 73 65 63 74 e nombre de sect
01EB50: 65 75 72 73 20 71 75 69 20 73 65 72 6F 6E 74 0D eurs qui seront.
01EB60: 0A 20 20 20 20 20 20 20 20 20 4A 52 20 4E 43 2C . JR NC,
01EB70: 50 4C 55 53 49 44 53 20 20 20 3B 65 63 72 61 73 PLUSIDS ;ecras
01EB80: 65 73 20 65 6E 20 66 6F 6E 63 74 69 6F 6E 20 64 es en fonction d
01EB90: 75 20 47 41 50 0D 0A 20 20 20 20 20 20 20 20 20 u GAP..
01EBA0: 49 4E 43 20 43 20 20 20 20 20 20 20 20 20 20 20 INC C
01EBB0: 3B 50 61 73 20 74 72 6F 75 76 65 20 65 6E 20 74 ;Pas trouve en t
01EBC0: 61 62 6C 65 20 64 6F 6E 63 20 75 6E 20 73 65 63 able donc un sec
01EBD0: 74 65 75 72 20 64 65 20 70 6C 75 73 0D 0A 20 20 teur de plus..
01EBE0: 20 20 20 20 20 20 20 49 4E 43 20 48 4C 20 20 20 INC HL
01EBF0: 20 20 20 20 20 20 20 3B 65 74 20 6F 63 74 65 74 ;et octet
01EC00: 20 73 75 69 76 61 6E 74 20 64 65 20 6C 61 20 74 suivant de la t
01EC10: 61 62 6C 65 0D 0A 20 20 20 20 20 20 20 20 20 4A able.. J
01EC20: 52 20 46 47 41 50 54 42 31 0D 0A 20 3B 0D 0A 20 R FGAPTB1.. ;..
01EC30: 50 4C 55 53 49 44 53 20 43 41 4C 4C 20 43 4F 50 PLUSIDS CALL COP
01EC40: 34 49 44 20 20 20 20 20 3B 41 6A 6F 75 74 65 72 4ID ;Ajouter
01EC50: 20 64 65 73 20 49 44 53 20 2E 20 4F 6E 20 72 65 des IDS . On re
01EC60: 63 6F 70 69 65 20 6C 27 49 44 20 64 27 6F 72 69 copie l'ID d'ori
01EC70: 67 69 6E 65 0D 0A 20 20 20 20 20 20 20 20 20 4C gine.. L
01EC80: 44 20 41 2C 28 4E 42 53 50 52 4F 56 29 0D 0A 20 D A,(NBSPROV)..
01EC90: 20 20 20 20 20 20 20 20 41 44 44 20 41 2C 43 20 ADD A,C
01ECA0: 20 20 20 20 20 20 20 20 3B 4F 6E 20 61 75 67 6D ;On augm
01ECB0: 65 6E 74 65 20 6C 65 20 6E 6F 6D 62 72 65 20 64 ente le nombre d
01ECC0: 65 20 73 65 63 74 65 75 72 73 0D 0A 20 20 20 20 e secteurs..
01ECD0: 20 20 20 20 20 4C 44 20 28 4E 42 53 50 52 4F 56 LD (NBSPROV
01ECE0: 29 2C 41 20 20 3B 65 74 20 6F 6E 20 6C 65 20 72 ),A ;et on le r
01ECF0: 61 6E 67 65 0D 0A 20 3B 0D 0A 20 52 45 42 4F 55 ange.. ;.. REBOU
01ED00: 43 48 20 50 55 53 48 20 42 43 20 20 20 20 20 20 CH PUSH BC
01ED10: 20 20 20 3B 50 72 65 73 65 72 76 65 72 20 4E 42 ;Preserver NB
01ED20: 53 45 43 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 SEC.. LD
01ED30: 20 42 2C 33 0D 0A 20 20 20 20 20 20 20 20 20 4C B,3.. L
01ED40: 44 20 41 2C 28 50 49 53 54 53 45 4C 29 0D 0A 20 D A,(PISTSEL)..
01ED50: 20 20 20 20 20 20 20 20 4C 44 20 28 49 59 2B 30 LD (IY+0
01ED60: 29 2C 30 20 20 20 20 20 3B 4F 6E 20 6D 65 74 20 ),0 ;On met
01ED70: 65 6E 20 70 6C 61 63 65 20 6C 61 20 73 65 72 69 en place la seri
01ED80: 65 20 64 27 49 44 53 20 71 75 69 20 73 65 72 61 e d'IDS qui sera
01ED90: 20 65 63 72 61 73 65 65 0D 0A 20 20 20 20 20 20 ecrasee..
01EDA0: 20 20 20 49 4E 43 20 49 59 0D 0A 20 42 4F 55 43 INC IY.. BOUC
01EDB0: 48 45 20 20 4C 44 20 28 49 59 2B 30 29 2C 30 0D HE LD (IY+0),0.
01EDC0: 0A 20 20 20 20 20 20 20 20 20 49 4E 43 20 49 59 . INC IY
01EDD0: 0D 0A 20 20 20 20 20 20 20 20 20 44 4A 4E 5A 20 .. DJNZ
01EDE0: 42 4F 55 43 48 45 0D 0A 20 20 20 20 20 20 20 20 BOUCHE..
01EDF0: 20 50 4F 50 20 42 43 0D 0A 20 3B 0D 0A 20 20 20 POP BC.. ;..
01EE00: 20 20 20 20 20 20 4C 44 20 48 4C 2C 28 50 45 52 LD HL,(PER
01EE10: 50 52 4F 56 29 20 3B 4D 61 72 71 75 65 20 69 6E PROV) ;Marque in
01EE20: 76 72 61 69 73 73 65 6D 62 6C 61 62 6C 65 20 20 vraissemblable
01EE30: 64 61 6E 73 20 6C 69 73 74 65 20 70 72 6F 76 69 dans liste provi
01EE40: 73 6F 69 72 65 0D 0A 20 20 20 20 20 20 20 20 20 soire..
01EE50: 4C 44 20 28 48 4C 29 2C 23 37 46 20 20 20 20 20 LD (HL),#7F
01EE60: 3B 70 6F 75 72 20 69 6E 76 61 6C 69 64 65 72 20 ;pour invalider
01EE70: 6C 65 63 74 75 72 65 20 65 63 72 69 74 75 72 65 lecture ecriture
01EE80: 0D 0A 20 20 20 20 20 20 20 20 20 49 4E 43 20 48 .. INC H
01EE90: 4C 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 L.. LD (
01EEA0: 50 45 52 50 52 4F 56 29 2C 48 4C 0D 0A 20 20 20 PERPROV),HL..
01EEB0: 20 20 20 20 20 20 44 45 43 20 43 0D 0A 20 20 20 DEC C..
01EEC0: 20 20 20 20 20 20 4A 52 20 4E 5A 2C 52 45 42 4F JR NZ,REBO
01EED0: 55 43 48 0D 0A 20 20 20 20 20 20 20 20 20 52 45 UCH.. RE
01EEE0: 54 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 T.. ;..
01EEF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01EF00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
01EF10: 1A 00 01 00 02 09 4E E5 1A 00 C1 02 00 00 00 02 ......N.........
01EF20: 1A 00 C2 02 00 00 00 02 1A 00 C3 02 00 00 00 02 ................
01EF30: 1A 00 C4 02 00 00 00 02 1A 00 C5 02 00 00 00 02 ................
01EF40: 1A 00 C6 02 00 00 00 02 1A 00 C7 02 00 00 00 02 ................
01EF50: 1A 00 C8 02 00 00 00 02 1A 00 C9 02 00 00 00 02 ................
01EF60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EF70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EF80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EF90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EFA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EFB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EFC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EFD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EFE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EFF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01F000: 54 46 44 43 36 0D 0A 20 52 45 54 45 53 54 36 20 TFDC6.. RETEST6
01F010: 49 4E 43 20 43 0D 0A 20 20 20 20 20 20 20 20 20 INC C..
01F020: 49 4E 20 41 2C 28 43 29 0D 0A 20 20 20 20 20 20 IN A,(C)..
01F030: 20 20 20 44 45 43 20 43 0D 0A 20 20 20 20 20 20 DEC C..
01F040: 20 20 20 43 50 20 48 0D 0A 20 20 20 20 20 20 20 CP H..
01F050: 20 20 4A 52 20 4E 5A 2C 4C 49 54 46 44 43 37 0D JR NZ,LITFDC7.
01F060: 0A 20 20 20 20 20 20 20 20 20 49 4E 43 20 4C 0D . INC L.
01F070: 0A 20 54 53 54 46 44 43 36 20 49 4E 20 41 2C 28 . TSTFDC6 IN A,(
01F080: 43 29 0D 0A 20 20 20 20 20 20 20 20 20 4A 50 20 C).. JP
01F090: 50 2C 54 53 54 46 44 43 36 0D 0A 20 20 20 20 20 P,TSTFDC6..
01F0A0: 20 20 20 20 41 4E 44 20 23 32 30 0D 0A 20 20 20 AND #20..
01F0B0: 20 20 20 20 20 20 4A 52 20 4E 5A 2C 52 45 54 45 JR NZ,RETE
01F0C0: 53 54 36 0D 0A 20 20 20 20 20 20 20 20 20 4A 50 ST6.. JP
01F0D0: 20 52 45 53 55 4C 54 0D 0A 20 3B 0D 0A 20 4C 49 RESULT.. ;.. LI
01F0E0: 54 46 44 43 37 20 4C 44 20 28 4C 4F 4E 47 53 45 TFDC7 LD (LONGSE
01F0F0: 43 29 2C 44 45 20 3B 52 61 6E 67 65 72 20 6C 6F C),DE ;Ranger lo
01F100: 6E 67 75 65 75 72 0D 0A 20 20 20 20 20 20 20 20 ngueur..
01F110: 20 4C 44 20 41 2C 4C 0D 0A 20 20 20 20 20 20 20 LD A,L..
01F120: 20 20 4C 44 20 28 47 41 50 46 4F 52 4D 29 2C 41 LD (GAPFORM),A
01F130: 20 20 3B 65 74 20 47 41 50 0D 0A 20 20 20 20 20 ;et GAP..
01F140: 20 20 20 20 50 4F 50 20 48 4C 0D 0A 20 3B 2D 2D POP HL.. ;--
01F150: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
01F160: 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 4C 49 54 46 44 43 -------.. LITFDC
01F170: 31 20 49 4E 20 41 2C 28 43 29 20 20 20 20 20 20 1 IN A,(C)
01F180: 20 20 3B 2D 20 4C 69 72 65 20 73 61 6E 73 20 72 ;- Lire sans r
01F190: 69 65 6E 20 73 74 6F 63 6B 65 72 20 2D 0D 0A 20 ien stocker -..
01F1A0: 20 4A 50 20 50 2C 4C 49 54 46 44 43 31 0D 0A 20 JP P,LITFDC1..
01F1B0: 20 41 4E 44 20 23 32 30 0D 0A 20 20 4A 50 20 5A AND #20.. JP Z
01F1C0: 2C 52 45 53 55 4C 54 0D 0A 20 20 49 4E 43 20 43 ,RESULT.. INC C
01F1D0: 0D 0A 20 20 49 4E 20 41 2C 28 43 29 0D 0A 20 20 .. IN A,(C)..
01F1E0: 44 45 43 20 43 0D 0A 20 20 4A 52 20 4C 49 54 46 DEC C.. JR LITF
01F1F0: 44 43 31 0D 0A 20 3B 0D 0A 20 52 45 53 55 4C 54 DC1.. ;.. RESULT
01F200: 20 20 44 49 20 20 3B 2D 20 52 65 73 75 6C 74 61 DI ;- Resulta
01F210: 74 20 2D 0D 0A 20 20 50 55 53 48 20 42 43 0D 0A t -.. PUSH BC..
01F220: 20 20 4C 44 20 42 43 2C 23 46 42 37 45 0D 0A 20 LD BC,#FB7E..
01F230: 20 50 55 53 48 20 48 4C 0D 0A 20 20 50 55 53 48 PUSH HL.. PUSH
01F240: 20 44 45 0D 0A 20 20 4C 44 20 44 2C 30 0D 0A 20 DE.. LD D,0..
01F250: 20 4C 44 20 48 4C 2C 45 54 30 0D 0A 20 20 50 55 LD HL,ET0.. PU
01F260: 53 48 20 48 4C 0D 0A 20 4A 45 42 4F 53 53 45 20 SH HL.. JEBOSSE
01F270: 49 4E 20 41 2C 28 43 29 0D 0A 20 43 50 20 23 43 IN A,(C).. CP #C
01F280: 30 0D 0A 20 4A 52 20 43 2C 4A 45 42 4F 53 53 45 0.. JR C,JEBOSSE
01F290: 0D 0A 20 49 4E 43 20 43 0D 0A 20 49 4E 20 41 2C .. INC C.. IN A,
01F2A0: 28 43 29 0D 0A 20 4C 44 20 28 48 4C 29 2C 41 0D (C).. LD (HL),A.
01F2B0: 0A 20 49 4E 43 20 48 4C 0D 0A 20 49 4E 43 20 44 . INC HL.. INC D
01F2C0: 0D 0A 20 44 45 43 20 43 0D 0A 20 3B 0D 0A 20 54 .. DEC C.. ;.. T
01F2D0: 45 4D 50 52 45 53 20 44 45 43 20 41 0D 0A 20 20 EMPRES DEC A..
01F2E0: 4A 52 20 4E 5A 2C 54 45 4D 50 52 45 53 0D 0A 20 JR NZ,TEMPRES..
01F2F0: 20 49 4E 20 41 2C 28 43 29 0D 0A 20 20 41 4E 44 IN A,(C).. AND
01F300: 20 23 31 30 0D 0A 20 20 4A 52 20 4E 5A 2C 4A 45 #10.. JR NZ,JE
01F310: 42 4F 53 53 45 0D 0A 20 20 50 4F 50 20 48 4C 0D BOSSE.. POP HL.
01F320: 0A 20 20 4C 44 20 41 2C 28 48 4C 29 0D 0A 20 20 . LD A,(HL)..
01F330: 41 4E 44 20 23 43 30 0D 0A 20 20 44 45 43 20 48 AND #C0.. DEC H
01F340: 4C 0D 0A 20 20 4C 44 20 28 48 4C 29 2C 44 0D 0A L.. LD (HL),D..
01F350: 20 20 50 4F 50 20 44 45 0D 0A 20 20 50 4F 50 20 POP DE.. POP
01F360: 48 4C 0D 0A 20 20 50 4F 50 20 42 43 0D 0A 20 20 HL.. POP BC..
01F370: 4C 44 20 41 2C 28 45 54 30 29 0D 0A 20 20 45 49 LD A,(ET0).. EI
01F380: 0D 0A 20 20 52 45 54 20 4E 5A 0D 0A 20 20 53 43 .. RET NZ.. SC
01F390: 46 0D 0A 20 20 52 45 54 0D 0A 3B 0D 0A 52 45 53 F.. RET..;..RES
01F3A0: 55 31 20 20 20 4C 44 20 42 43 2C 23 46 42 37 45 U1 LD BC,#FB7E
01F3B0: 20 20 20 3B 4C 45 43 54 55 52 45 20 52 45 53 55 ;LECTURE RESU
01F3C0: 4C 54 41 54 20 52 41 50 49 44 45 20 45 54 20 53 LTAT RAPIDE ET S
01F3D0: 41 4E 53 20 44 49 20 50 4F 55 52 20 4C 49 54 52 ANS DI POUR LITR
01F3E0: 45 20 49 44 53 0D 0A 20 20 20 20 20 20 20 20 4C E IDS.. L
01F3F0: 44 20 48 4C 2C 45 54 30 0D 0A 4A 45 42 4F 53 31 D HL,ET0..JEBOS1
01F400: 20 20 49 4E 20 41 2C 28 43 29 0D 0A 20 20 20 20 IN A,(C)..
01F410: 20 20 20 20 43 50 20 23 43 30 0D 0A 20 20 20 20 CP #C0..
01F420: 20 20 20 20 4A 52 20 43 2C 4A 45 42 4F 53 31 20 JR C,JEBOS1
01F430: 0D 0A 20 20 20 20 20 20 20 20 49 4E 43 20 43 0D .. INC C.
01F440: 0A 20 20 20 20 20 20 20 20 49 4E 20 41 2C 28 43 . IN A,(C
01F450: 29 0D 0A 20 20 20 20 20 20 20 20 4C 44 20 28 48 ).. LD (H
01F460: 4C 29 2C 41 0D 0A 20 20 20 20 20 20 20 20 49 4E L),A.. IN
01F470: 43 20 48 4C 0D 0A 20 20 20 20 20 20 20 20 44 45 C HL.. DE
01F480: 43 20 43 0D 0A 20 20 20 20 20 20 20 20 4C 44 20 C C.. LD
01F490: 41 2C 35 0D 0A 54 45 4D 50 52 31 20 20 44 45 43 A,5..TEMPR1 DEC
01F4A0: 20 41 0D 0A 20 20 20 20 20 20 20 20 4A 52 20 4E A.. JR N
01F4B0: 5A 2C 54 45 4D 50 52 31 20 0D 0A 20 20 20 20 20 Z,TEMPR1 ..
01F4C0: 20 20 20 49 4E 20 41 2C 28 43 29 0D 0A 20 20 20 IN A,(C)..
01F4D0: 20 20 20 20 20 41 4E 44 20 23 31 30 0D 0A 20 20 AND #10..
01F4E0: 20 20 20 20 20 20 4A 52 20 4E 5A 2C 4A 45 42 4F JR NZ,JEBO
01F4F0: 53 31 20 0D 0A 20 20 20 20 20 20 20 20 52 45 54 S1 .. RET
01F500: 0D 0A 20 3B 0D 0A 20 3B 2D 20 41 76 61 6E 63 65 .. ;.. ;- Avance
01F510: 72 20 64 27 75 6E 65 20 70 69 73 74 65 20 2D 0D r d'une piste -.
01F520: 0A 20 3B 0D 0A 20 49 4E 43 50 49 53 54 20 50 55 . ;.. INCPIST PU
01F530: 53 48 20 48 4C 20 20 20 20 20 20 20 20 3B 41 76 SH HL ;Av
01F540: 61 6E 63 65 72 20 64 27 75 6E 65 20 70 69 73 74 ancer d'une pist
01F550: 65 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 48 e.. LD H
01F560: 4C 2C 44 45 52 50 49 53 54 0D 0A 20 20 20 20 20 L,DERPIST..
01F570: 20 20 20 20 4C 44 20 41 2C 28 50 49 53 54 53 45 LD A,(PISTSE
01F580: 4C 29 0D 0A 20 20 20 20 20 20 20 20 20 43 50 20 L).. CP
01F590: 28 48 4C 29 20 20 20 20 20 20 3B 50 2E 4D 61 78 (HL) ;P.Max
01F5A0: 2E 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 20 5A ... JR Z
01F5B0: 2C 50 41 53 49 4E 43 0D 0A 20 20 20 20 20 20 20 ,PASINC..
01F5C0: 20 20 49 4E 43 20 41 0D 0A 20 20 20 20 20 20 20 INC A..
01F5D0: 20 20 4C 44 20 28 50 49 53 54 53 45 4C 29 2C 41 LD (PISTSEL),A
01F5E0: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 41 2C .. LD A,
01F5F0: 31 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 1.. LD (
01F600: 57 41 49 54 50 49 53 29 2C 41 0D 0A 20 20 20 20 WAITPIS),A..
01F610: 20 20 20 20 20 53 43 46 20 20 20 20 20 20 20 20 SCF
01F620: 20 20 20 20 3B 46 6C 61 67 20 43 20 73 69 20 65 ;Flag C si e
01F630: 6E 63 6F 72 65 20 70 69 73 74 65 20 2C 20 4E 43 ncore piste , NC
01F640: 20 73 69 20 6E 6F 6E 0D 0A 20 20 20 20 20 20 20 si non..
01F650: 20 20 50 4F 50 20 48 4C 0D 0A 20 20 20 20 20 20 POP HL..
01F660: 20 20 20 52 45 54 0D 0A 20 50 41 53 49 4E 43 20 RET.. PASINC
01F670: 20 4C 44 20 41 2C 34 31 0D 0A 20 20 20 20 20 20 LD A,41..
01F680: 20 20 20 4C 44 20 28 57 41 49 54 50 49 53 29 2C LD (WAITPIS),
01F690: 41 0D 0A 20 20 20 20 20 20 20 20 20 50 4F 50 20 A.. POP
01F6A0: 48 4C 0D 0A 20 20 20 20 20 20 20 20 20 58 4F 52 HL.. XOR
01F6B0: 20 41 0D 0A 20 20 20 20 20 20 20 20 20 52 45 54 A.. RET
01F6C0: 0D 0A 20 3B 0D 0A 20 3B 2D 20 43 6F 6D 70 6F 73 .. ;.. ;- Compos
01F6D0: 65 72 20 6C 65 73 20 63 6F 6D 6D 61 6E 64 65 73 er les commandes
01F6E0: 20 2D 0D 0A 20 3B 0D 0A 20 43 4F 4D 50 43 4F 31 -.. ;.. COMPCO1
01F6F0: 20 4C 44 20 41 2C 28 43 4F 4D 4D 41 4E 32 29 0D LD A,(COMMAN2).
01F700: 0A 20 20 4C 44 20 42 2C 41 0D 0A 20 43 4F 4D 50 . LD B,A.. COMP
01F710: 43 4F 4D 20 4C 44 20 41 2C 28 46 4C 41 47 44 45 COM LD A,(FLAGDE
01F720: 4E 29 20 20 3B 45 6E 74 72 65 65 20 61 76 65 63 N) ;Entree avec
01F730: 20 63 6F 6D 6D 61 6E 64 65 20 64 61 6E 73 20 42 commande dans B
01F740: 0D 0A 20 20 4C 44 20 43 2C 41 0D 0A 20 20 4C 44 .. LD C,A.. LD
01F750: 20 41 2C 42 20 20 20 20 20 20 20 20 20 20 3B 42 A,B ;B
01F760: 3D 4F 63 74 65 74 20 63 6F 6D 6D 61 6E 64 65 0D =Octet commande.
01F770: 0A 20 20 41 4E 44 20 43 0D 0A 20 20 4C 44 20 43 . AND C.. LD C
01F780: 2C 41 20 20 20 20 20 20 20 20 20 20 3B 2B 44 65 ,A ;+De
01F790: 6E 73 69 74 65 0D 0A 20 20 4C 44 20 41 2C 28 46 nsite.. LD A,(F
01F7A0: 4C 41 47 4D 54 29 0D 0A 20 20 4F 52 20 43 20 20 LAGMT).. OR C
01F7B0: 20 20 20 20 20 20 20 20 20 20 3B 2B 4D 75 6C 74 ;+Mult
01F7C0: 69 74 72 61 63 6B 0D 0A 20 20 4C 44 20 28 43 4F itrack.. LD (CO
01F7D0: 4D 4D 41 4E 44 29 2C 41 0D 0A 20 20 52 45 54 0D MMAND),A.. RET.
01F7E0: 0A 20 3B 0D 0A 20 43 4F 4D 4C 49 50 49 20 4C 44 . ;.. COMLIPI LD
01F7F0: 20 41 2C 23 34 32 0D 0A 20 53 45 54 43 4F 4D 32 A,#42.. SETCOM2
01F800: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01F810: 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------
01F820: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
01F830: 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 20 20 20 20 20 --------..
01F840: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2D -
01F850: 20 50 52 4F 47 52 41 4D 4D 45 20 44 45 20 43 4F PROGRAMME DE CO
01F860: 50 49 45 20 2E 20 31 45 52 45 20 50 41 52 54 49 PIE . 1ERE PARTI
01F870: 45 20 2D 0D 0A 20 20 20 20 20 20 20 20 20 20 20 E -..
01F880: 20 20 20 20 20 20 20 20 20 20 20 2D 2D 2D 2D 2D -----
01F890: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
01F8A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 -------------..
01F8B0: 0D 0A 20 20 20 20 20 4E 6F 75 73 20 70 72 7B 73 .. Nous pr{s
01F8C0: 65 6E 74 6F 6E 73 20 69 63 69 20 6C 65 20 20 70 entons ici le p
01F8D0: 72 69 6E 63 69 70 65 20 20 65 74 20 20 6C 27 61 rincipe et l'a
01F8E0: 6C 67 6F 72 79 74 68 6D 65 20 20 67 7B 6E 7B 72 lgorythme g{n{r
01F8F0: 61 6C 20 64 75 20 63 6F 70 69 65 75 72 20 64 65 al du copieur de
01F900: 0D 0A 20 64 69 73 71 75 65 74 74 65 73 20 55 54 .. disquettes UT
01F910: 49 4C 2D 53 4F 46 54 20 2E 20 41 20 6C 61 20 66 IL-SOFT . A la f
01F920: 69 6E 20 64 65 20 20 63 65 20 63 68 61 70 69 74 in de ce chapit
01F930: 72 65 20 66 69 67 75 72 65 20 6C 65 20 6C 69 73 re figure le lis
01F940: 74 69 6E 67 20 63 6F 6D 6D 65 6E 74 7B 20 64 65 ting comment{ de
01F950: 0D 0A 20 6C 61 20 73 65 63 74 69 6F 6E 20 64 65 .. la section de
01F960: 20 70 72 6F 67 72 61 6D 6D 65 20 67 7B 72 61 6E programme g{ran
01F970: 74 20 6C 27 65 6E 73 65 6D 62 6C 65 20 64 75 20 t l'ensemble du
01F980: 63 6F 70 69 65 75 72 20 2E 0D 0A 20 0D 0A 20 20 copieur ... ..
01F990: 20 20 20 4C 65 20 70 72 69 6E 63 69 70 65 20 64 Le principe d
01F9A0: 27 65 6E 73 65 6D 62 6C 65 20 65 73 74 20 6C 65 'ensemble est le
01F9B0: 20 73 75 69 76 61 6E 74 20 2E 0D 0A 20 0D 0A 20 suivant ... ..
01F9C0: 20 20 20 2B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D +------------
01F9D0: 2D 2D 2D 2D 2D 2D 3E 20 20 41 4C 4C 45 52 20 53 ------> ALLER S
01F9E0: 55 52 20 4C 41 20 50 49 53 54 45 20 41 20 43 4F UR LA PISTE A CO
01F9F0: 50 49 45 52 0D 0A 20 20 20 20 21 20 20 20 20 20 PIER.. !
01FA00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01FA10: 20 20 20 20 20 20 20 20 20 41 4E 41 4C 59 53 45 ANALYSE
01FA20: 52 0D 0A 20 20 20 20 21 20 20 20 20 20 20 20 20 R.. !
01FA30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01FA40: 20 20 20 20 20 20 53 54 4F 43 4B 41 47 45 0D 0A STOCKAGE..
01FA50: 20 20 20 20 21 20 20 20 56 4F 49 52 20 53 49 20 ! VOIR SI
01FA60: 4F 4E 20 41 20 45 4E 43 4F 52 45 20 44 45 20 4C ON A ENCORE DE L
01FA70: 41 20 50 4C 41 43 45 20 50 4F 55 52 20 53 54 4F A PLACE POUR STO
01FA80: 43 4B 45 52 20 4C 41 20 50 52 4F 43 48 41 49 4E CKER LA PROCHAIN
01FA90: 45 20 50 49 53 54 45 0D 0A 20 20 20 20 21 0D 0A E PISTE.. !..
01FAA0: 20 20 20 20 21 20 20 20 20 20 20 20 20 20 20 20 !
01FAB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01FAC0: 50 4C 55 53 20 44 45 20 50 4C 41 43 45 20 3E 2D PLUS DE PLACE >-
01FAD0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
01FAE0: 2D 2D 2D 2D 2D 2B 0D 0A 20 20 20 20 21 20 20 20 -----+.. !
01FAF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01FB00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01FB10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01FB20: 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0D 0A !..
01FB30: 20 20 20 20 21 20 20 20 20 20 20 20 20 20 20 20 !
01FB40: 20 20 20 45 4E 43 4F 52 45 20 44 45 20 4C 41 20 ENCORE DE LA
01FB50: 50 4C 41 43 45 20 54 45 53 54 45 52 20 50 49 53 PLACE TESTER PIS
01FB60: 54 45 20 53 55 49 56 41 4E 54 45 20 20 20 20 20 TE SUIVANTE
01FB70: 20 20 20 20 20 21 0D 0A 20 20 20 20 21 20 20 20 !.. !
01FB80: 20 20 20 20 20 20 20 20 20 20 20 56 4F 49 52 20 VOIR
01FB90: 53 49 20 43 27 45 53 54 20 4C 41 20 44 45 52 4E SI C'EST LA DERN
01FBA0: 49 45 52 45 20 50 49 53 54 45 20 41 20 43 4F 50 IERE PISTE A COP
01FBB0: 49 45 52 20 20 20 20 20 20 20 20 20 20 21 0D 0A IER !..
01FBC0: 20 20 20 20 21 20 20 20 20 20 20 20 20 20 20 20 !
01FBD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01FBE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01FBF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01FC00: 20 4C 44 20 28 43 4F 4D 4D 41 4E 32 29 2C 41 0D LD (COMMAN2),A.
01FC10: 0A 20 20 4C 44 20 28 43 4F 44 45 4F 50 45 2B 31 . LD (CODEOPE+1
01FC20: 29 2C 48 4C 0D 0A 20 20 52 45 54 0D 0A 20 3B 0D ),HL.. RET.. ;.
01FC30: 0A 20 3B 2D 20 53 75 62 20 72 6F 75 74 69 6E 65 . ;- Sub routine
01FC40: 73 20 73 65 6C 65 63 74 69 6F 6E 20 70 61 72 61 s selection para
01FC50: 6D 65 74 72 65 73 20 6C 65 63 74 75 72 65 20 2F metres lecture /
01FC60: 20 65 63 72 69 74 75 72 65 20 2D 0D 0A 20 3B 0D ecriture -.. ;.
01FC70: 0A 20 53 45 54 4C 45 43 54 20 4C 44 20 41 2C 28 . SETLECT LD A,(
01FC80: 44 52 4C 29 20 20 20 20 20 3B 53 65 6C 65 63 74 DRL) ;Select
01FC90: 69 6F 6E 20 64 72 69 76 65 20 2D 20 68 65 61 64 ion drive - head
01FCA0: 20 2D 20 70 69 73 74 65 20 6C 65 63 74 75 72 65 - piste lecture
01FCB0: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 44 .. LD (D
01FCC0: 52 53 45 4C 45 43 29 2C 41 0D 0A 20 20 20 20 20 RSELEC),A..
01FCD0: 20 20 20 20 4C 44 20 41 2C 28 48 44 4C 29 0D 0A LD A,(HDL)..
01FCE0: 20 20 20 20 20 20 20 20 20 4C 44 20 28 48 45 41 LD (HEA
01FCF0: 44 29 2C 41 0D 0A 20 20 20 20 20 20 20 20 20 4C D),A.. L
01FD00: 44 20 41 2C 28 50 49 53 54 4C 29 0D 0A 20 20 20 D A,(PISTL)..
01FD10: 20 20 20 20 20 20 4C 44 20 28 50 49 53 54 53 45 LD (PISTSE
01FD20: 4C 29 2C 41 0D 0A 20 20 20 20 20 20 20 20 20 52 L),A.. R
01FD30: 45 54 0D 0A 20 3B 0D 0A 20 53 45 54 57 52 49 54 ET.. ;.. SETWRIT
01FD40: 20 4C 44 20 41 2C 28 44 52 57 29 20 20 20 20 20 LD A,(DRW)
01FD50: 3B 53 65 6C 65 63 74 69 6F 6E 20 64 72 69 76 65 ;Selection drive
01FD60: 20 2D 20 68 65 61 64 20 2D 20 70 69 73 74 65 20 - head - piste
01FD70: 65 63 72 69 74 75 72 65 0D 0A 20 20 20 20 20 20 ecriture..
01FD80: 20 20 20 4C 44 20 28 44 52 53 45 4C 45 43 29 2C LD (DRSELEC),
01FD90: 41 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 41 A.. LD A
01FDA0: 2C 28 48 44 57 29 0D 0A 20 20 20 20 20 20 20 20 ,(HDW)..
01FDB0: 20 4C 44 20 28 48 45 41 44 29 2C 41 0D 0A 20 20 LD (HEAD),A..
01FDC0: 20 20 20 20 20 20 20 4C 44 20 41 2C 28 50 49 53 LD A,(PIS
01FDD0: 54 57 29 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 TW).. LD
01FDE0: 20 28 50 49 53 54 53 45 4C 29 2C 41 0D 0A 20 20 (PISTSEL),A..
01FDF0: 20 20 20 20 20 20 20 52 45 54 0D 0A 20 3B 0D 0A RET.. ;..
01FE00: 20 3B 2D 20 53 75 62 20 72 6F 75 74 69 6E 65 73 ;- Sub routines
01FE10: 20 63 6F 6D 70 61 72 61 69 73 6F 6E 73 20 2D 0D comparaisons -.
01FE20: 0A 20 3B 0D 0A 20 43 50 44 52 49 56 45 20 4C 44 . ;.. CPDRIVE LD
01FE30: 20 41 2C 28 44 52 4C 29 20 20 20 20 20 3B 43 6F A,(DRL) ;Co
01FE40: 6D 70 61 72 65 72 20 64 72 69 76 65 20 73 6F 75 mparer drive sou
01FE50: 72 63 65 20 65 74 20 64 65 73 74 69 6E 61 74 69 rce et destinati
01FE60: 6F 6E 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 on.. LD
01FE70: 42 2C 41 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 B,A.. LD
01FE80: 20 41 2C 28 44 52 57 29 0D 0A 20 20 20 20 20 20 A,(DRW)..
01FE90: 20 20 20 43 50 20 42 0D 0A 20 20 20 20 20 20 20 CP B..
01FEA0: 20 20 4C 44 20 41 2C 30 0D 0A 20 20 20 20 20 20 LD A,0..
01FEB0: 20 20 20 52 45 54 20 5A 0D 0A 20 20 20 20 20 20 RET Z..
01FEC0: 20 20 20 49 4E 43 20 41 0D 0A 20 20 20 20 20 20 INC A..
01FED0: 20 20 20 53 43 46 0D 0A 20 20 20 20 20 20 20 20 SCF..
01FEE0: 20 52 45 54 0D 0A 20 3B 0D 0A 20 43 50 50 49 53 RET.. ;.. CPPIS
01FEF0: 54 20 20 4C 44 20 41 2C 28 50 49 53 54 4C 29 20 T LD A,(PISTL)
01FF00: 20 20 20 3B 43 6F 6D 70 61 72 65 72 20 70 69 73 ;Comparer pis
01FF10: 74 65 73 20 73 6F 75 72 63 65 2F 64 65 73 74 69 tes source/desti
01FF20: 6E 61 74 69 6F 6E 0D 0A 20 20 20 20 20 20 20 20 nation..
01FF30: 20 4C 44 20 42 2C 41 0D 0A 20 20 20 20 20 20 20 LD B,A..
01FF40: 20 20 4C 44 20 41 2C 28 50 49 53 54 57 29 0D 0A LD A,(PISTW)..
01FF50: 20 20 20 20 20 20 20 20 20 43 50 20 42 0D 0A 20 CP B..
01FF60: 20 20 20 20 20 20 20 20 52 45 54 0D 0A 20 3B 0D RET.. ;.
01FF70: 0A 20 44 49 46 4C 45 4E 4C 20 4C 44 20 41 2C 28 . DIFLENL LD A,(
01FF80: 4C 45 4E 53 45 43 29 20 20 3B 43 6F 6D 70 61 72 LENSEC) ;Compar
01FF90: 65 72 20 74 61 69 6C 6C 65 20 49 44 20 73 65 63 er taille ID sec
01FFA0: 74 65 75 72 73 20 65 74 20 76 72 61 69 65 20 74 teurs et vraie t
01FFB0: 61 69 6C 6C 65 0D 0A 20 20 20 20 20 20 20 20 20 aille..
01FFC0: 4C 44 20 28 56 52 41 49 4C 45 4E 29 2C 41 0D 0A LD (VRAILEN),A..
01FFD0: 20 20 20 20 20 20 20 20 20 4C 44 20 42 2C 41 0D LD B,A.
01FFE0: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 41 2C 28 . LD A,(
01FFF0: 51 55 41 54 52 49 44 2B 33 29 0D 0A 20 20 20 20 QUATRID+3)..
020000: 20 20 20 20 20 43 50 20 42 0D 0A 20 20 20 20 20 CP B..
020010: 20 20 20 20 52 45 54 20 5A 0D 0A 20 20 20 20 20 RET Z..
020020: 20 20 20 20 4C 44 20 28 4C 45 4E 53 45 43 29 2C LD (LENSEC),
020030: 41 0D 0A 20 20 20 20 20 20 20 20 20 52 45 54 0D A.. RET.
020040: 0A 20 56 52 41 49 4C 45 4E 20 44 42 20 30 0D 0A . VRAILEN DB 0..
020050: 20 3B 0D 0A 20 3B 2D 20 56 65 72 69 66 2E 56 61 ;.. ;- Verif.Va
020060: 6C 69 64 20 70 69 73 74 2E 20 2D 0D 0A 20 3B 0D lid pist. -.. ;.
020070: 0A 20 56 45 52 49 50 49 53 20 4C 44 20 41 2C 28 . VERIPIS LD A,(
020080: 50 49 53 54 4D 41 58 29 0D 0A 20 20 20 20 20 20 PISTMAX)..
020090: 20 20 20 4C 44 20 42 2C 41 0D 0A 20 20 20 20 20 LD B,A..
0200A0: 20 20 20 20 4C 44 20 41 2C 28 44 45 52 50 49 53 LD A,(DERPIS
0200B0: 54 29 0D 0A 20 20 20 20 20 20 20 20 20 43 50 20 T).. CP
0200C0: 42 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B B ;
0200D0: 46 69 6E 20 3E 20 4D 61 78 69 20 3F 0D 0A 20 20 Fin > Maxi ?..
0200E0: 20 20 20 20 20 20 20 52 45 54 20 4E 43 20 20 20 RET NC
0200F0: 20 20 20 20 20 20 20 20 20 3B 4F 75 69 0D 0A 20 ;Oui..
020100: 20 20 20 20 20 20 20 20 4C 44 20 42 2C 41 0D 0A LD B,A..
020110: 20 20 20 20 20 20 20 20 20 4C 44 20 41 2C 28 50 LD A,(P
020120: 52 45 4D 50 49 53 29 0D 0A 20 20 20 20 20 20 20 REMPIS)..
020130: 20 20 49 4E 43 20 42 0D 0A 20 20 20 20 20 20 20 INC B..
020140: 20 20 43 50 20 42 20 20 20 20 20 20 20 20 20 20 CP B
020150: 20 20 20 20 3B 44 65 62 2E 3E 46 69 6E 20 3F 0D ;Deb.>Fin ?.
020160: 0A 20 20 20 20 20 20 20 20 20 52 45 54 0D 0A 20 . RET..
020170: 3B 0D 0A 20 54 53 54 4E 42 53 45 20 4C 44 20 41 ;.. TSTNBSE LD A
020180: 2C 28 4E 42 53 45 43 29 20 3B 54 65 73 74 65 72 ,(NBSEC) ;Tester
020190: 20 6E 6F 6D 62 72 65 20 73 65 63 74 65 75 72 73 nombre secteurs
0201A0: 20 2E 20 4E 43 20 73 69 20 72 61 74 65 20 2E 0D . NC si rate ..
0201B0: 0A 20 20 4F 52 20 41 0D 0A 20 20 52 45 54 20 5A . OR A.. RET Z
0201C0: 0D 0A 20 20 43 50 20 33 33 0D 0A 20 20 52 45 54 .. CP 33.. RET
0201D0: 0D 0A 20 3B 0D 0A 20 43 41 4C 49 47 41 50 20 4C .. ;.. CALIGAP L
0201E0: 44 20 41 2C 28 4C 45 4E 53 45 43 29 20 20 20 3B D A,(LENSEC) ;
0201F0: 43 61 6C 69 62 72 65 72 20 6C 65 20 47 41 50 0D Calibrer le GAP.
020200: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
020210: 1B 00 01 00 02 09 4E E5 1B 00 C1 02 00 00 00 02 ......N.........
020220: 1B 00 C2 02 00 00 00 02 1B 00 C3 02 00 00 00 02 ................
020230: 1B 00 C4 02 00 00 00 02 1B 00 C5 02 00 00 00 02 ................
020240: 1B 00 C6 02 00 00 00 02 1B 00 C7 02 00 00 00 02 ................
020250: 1B 00 C8 02 00 00 00 02 1B 00 C9 02 00 00 00 02 ................
020260: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020270: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020280: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020290: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0202A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0202B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0202C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0202D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0202E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0202F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020300: 0A 20 20 20 20 20 20 20 20 20 4F 52 20 41 0D 0A . OR A..
020310: 20 20 20 20 20 20 20 20 20 4C 44 20 48 4C 2C 54 LD HL,T
020320: 30 44 44 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 0DD.. LD
020330: 20 43 2C 31 35 0D 0A 20 20 20 20 20 20 20 20 20 C,15..
020340: 4A 52 20 5A 2C 47 41 50 56 45 52 49 0D 0A 20 3B JR Z,GAPVERI.. ;
020350: 0D 0A 20 20 20 20 20 20 20 20 20 44 45 43 20 41 .. DEC A
020360: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 48 4C .. LD HL
020370: 2C 54 31 44 44 0D 0A 20 20 20 20 20 20 20 20 20 ,T1DD..
020380: 4C 44 20 43 2C 31 32 0D 0A 20 20 20 20 20 20 20 LD C,12..
020390: 20 20 4A 52 20 5A 2C 47 41 50 56 45 52 49 0D 0A JR Z,GAPVERI..
0203A0: 20 20 20 20 20 20 20 20 20 44 45 43 20 41 0D 0A DEC A..
0203B0: 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 ;.. LD
0203C0: 48 4C 2C 54 32 44 44 0D 0A 20 20 20 20 20 20 20 HL,T2DD..
0203D0: 20 20 4C 44 20 43 2C 38 0D 0A 20 20 20 20 20 20 LD C,8..
0203E0: 20 20 20 4A 52 20 5A 2C 47 41 50 56 45 52 49 0D JR Z,GAPVERI.
0203F0: 0A 20 20 20 20 20 20 20 20 20 44 45 43 20 41 0D . DEC A.
020400: 0A 20 20 20 20 20 20 20 20 20 4A 52 20 5A 2C 47 . JR Z,G
020410: 41 50 56 45 52 49 0D 0A 20 3B 0D 0A 20 20 20 20 APVERI.. ;..
020420: 20 20 20 20 20 4C 44 20 48 4C 2C 54 33 44 44 0D LD HL,T3DD.
020430: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 43 2C 35 . LD C,5
020440: 0D 0A 20 20 20 20 20 20 20 20 20 44 45 43 20 41 .. DEC A
020450: 0D 0A 20 20 20 20 20 20 20 20 20 52 45 54 20 4E .. RET N
020460: 5A 0D 0A 20 3B 0D 0A 20 3B 2D 20 52 65 63 74 69 Z.. ;.. ;- Recti
020470: 66 69 65 72 20 6C 65 20 47 41 50 20 6C 75 20 2D fier le GAP lu -
020480: 0D 0A 20 3B 0D 0A 20 47 41 50 56 45 52 49 20 4C .. ;.. GAPVERI L
020490: 44 20 41 2C 28 4E 42 53 45 43 29 20 20 20 3B 4E D A,(NBSEC) ;N
0204A0: 6F 6D 62 72 65 20 73 65 63 74 65 75 72 73 20 3C ombre secteurs <
0204B0: 20 6E 6F 6D 62 72 65 20 61 20 70 72 6F 62 6C 65 nombre a proble
0204C0: 6D 65 0D 0A 20 20 20 20 20 20 20 20 20 43 50 20 me.. CP
0204D0: 43 0D 0A 20 20 20 20 20 20 20 20 20 52 45 54 20 C.. RET
0204E0: 43 0D 0A 20 3B 0D 0A 20 42 43 4C 47 41 50 56 20 C.. ;.. BCLGAPV
0204F0: 43 50 20 43 20 20 20 20 20 20 20 20 20 20 20 3B CP C ;
020500: 28 48 4C 29 20 20 20 20 3B 74 72 6F 75 76 65 0D (HL) ;trouve.
020510: 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 46 . CALL F
020520: 4C 45 4E 4C 4F 4E 20 20 3B 43 6F 6E 76 65 72 74 LENLON ;Convert
020530: 69 72 20 6C 6F 6E 67 75 65 75 72 20 65 6E 20 6F ir longueur en o
020540: 63 74 65 74 73 20 65 6E 20 74 61 69 69 6C 65 20 ctets en taiile
020550: 64 65 20 30 20 61 20 35 0D 0A 20 3B 0D 0A 20 20 de 0 a 5.. ;..
020560: 20 20 20 20 20 20 20 4C 44 20 41 2C 28 56 41 4C LD A,(VAL
020570: 47 41 50 46 29 0D 0A 20 20 20 20 20 20 20 20 20 GAPF)..
020580: 43 50 20 23 34 45 0D 0A 20 20 20 20 20 20 20 20 CP #4E..
020590: 20 43 41 4C 4C 20 4E 5A 2C 53 45 54 4E 4F 47 41 CALL NZ,SETNOGA
0205A0: 50 20 3B 47 41 50 20 70 61 73 20 23 34 45 20 73 P ;GAP pas #4E s
0205B0: 69 6D 70 6C 65 6D 65 6E 74 20 73 69 67 6E 61 6C implement signal
0205C0: 65 72 20 2E 0D 0A 20 20 20 20 20 20 20 20 20 4A er ... J
0205D0: 50 20 45 58 49 54 47 41 50 20 20 20 20 20 20 20 P EXITGAP
0205E0: 3B 43 27 65 73 74 20 66 69 6E 69 20 70 6F 75 72 ;C'est fini pour
0205F0: 20 6C 65 20 63 61 73 20 43 52 2F 44 44 20 2E 0D le cas CR/DD ..
020600: 0A 20 3B 0D 0A 20 20 20 20 20 4E 6F 75 73 20 76 . ;.. Nous v
020610: 65 6E 6F 6E 73 20 64 27 65 6E 20 66 69 6E 69 72 enons d'en finir
020620: 20 61 76 65 63 20 6C 65 20 74 79 70 65 20 20 43 avec le type C
020630: 52 2F 44 44 20 2E 20 4C 65 73 20 61 63 68 61 72 R/DD . Les achar
020640: 6E 7B 73 20 61 75 72 6F 6E 74 20 72 65 6D 61 72 n{s auront remar
020650: 71 75 7B 0D 0A 20 71 75 65 20 6C 27 7B 76 65 6E qu{.. que l'{ven
020660: 74 75 65 6C 6C 65 20 70 72 7B 73 65 6E 63 65 20 tuelle pr{sence
020670: 20 64 65 20 20 73 65 63 74 65 75 72 73 20 20 7B de secteurs {
020680: 63 72 61 73 7B 73 20 20 61 76 65 63 20 20 64 65 cras{s avec de
020690: 73 20 20 43 52 2F 44 44 20 20 6E 27 65 73 74 20 s CR/DD n'est
0206A0: 70 61 73 0D 0A 20 65 6E 76 69 73 61 67 7B 65 20 pas.. envisag{e
0206B0: 21 20 4C 65 20 74 65 73 74 20 73 65 20 66 61 69 ! Le test se fai
0206C0: 74 20 65 6E 20 45 58 49 47 41 50 20 28 42 65 61 t en EXIGAP (Bea
0206D0: 75 63 6F 75 70 20 70 6C 75 73 20 6C 6F 69 6E 20 ucoup plus loin
0206E0: 2E 2E 2E 29 0D 0A 20 0D 0A 20 20 20 20 20 20 20 ...).. ..
0206F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
020700: 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------
020710: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 0D 0A -----------.. ..
020720: 20 20 20 20 20 56 6F 69 63 69 20 6D 61 69 6E 74 Voici maint
020730: 65 6E 61 6E 74 20 6C 65 20 63 61 73 20 6C 65 20 enant le cas le
020740: 70 6C 75 73 20 7B 70 69 6E 65 75 78 20 20 6F 75 plus {pineux ou
020750: 20 6C 61 20 74 61 69 6C 6C 65 20 72 7B 65 6C 6C la taille r{ell
020760: 65 20 64 75 20 66 6F 72 6D 61 74 20 65 74 0D 0A e du format et..
020770: 20 64 65 73 20 47 41 50 53 20 6E 27 61 20 70 75 des GAPS n'a pu
020780: 20 65 08 5E 74 72 65 20 64 7B 74 65 72 6D 69 6E e.^tre d{termin
020790: 7B 65 20 20 70 6F 75 72 20 20 63 61 75 73 65 20 {e pour cause
0207A0: 20 64 27 7B 63 72 61 73 65 6D 65 6E 74 20 2E 20 d'{crasement .
0207B0: 4F 6E 20 6E 6F 74 65 72 61 20 71 75 65 20 6C 65 On notera que le
0207C0: 0D 0A 20 47 41 50 20 65 73 74 20 63 6F 6E 73 69 .. GAP est consi
0207D0: 64 7B 72 7B 20 63 6F 6D 6D 65 20 6E 6F 72 6D 61 d{r{ comme norma
0207E0: 6C 20 28 23 34 45 29 20 2E 20 53 69 20 20 75 6E l (#4E) . Si un
0207F0: 20 70 65 74 69 74 20 6D 61 6C 69 6E 20 61 20 62 petit malin a b
020800: 72 69 63 6F 6C 7B 20 75 6E 65 20 70 69 73 74 65 ricol{ une piste
020810: 0D 0A 20 61 76 65 63 20 75 6E 20 46 44 43 20 73 .. avec un FDC s
020820: 70 7B 63 69 61 6C 20 45 54 20 75 6E 20 20 7B 63 p{cial ET un {c
020830: 72 61 73 65 6D 65 6E 74 20 20 64 65 20 20 73 65 rasement de se
020840: 63 74 65 75 72 73 20 20 2C 20 20 69 6C 20 65 73 cteurs , il es
020850: 74 20 74 72 6F 70 20 64 6F 75 7B 20 70 6F 75 72 t trop dou{ pour
020860: 0D 0A 20 71 75 27 6F 6E 20 6C 75 69 20 70 69 71 .. qu'on lui piq
020870: 75 65 20 73 61 20 70 69 73 74 65 20 2E 2E 2E 0D ue sa piste ....
020880: 0A 20 0D 0A 20 20 20 20 20 4F 6E 20 61 72 72 69 . .. On arri
020890: 76 65 20 65 6E 20 53 4F 4C 55 54 49 4F 33 41 20 ve en SOLUTIO3A
0208A0: 73 69 20 75 6E 20 43 52 2F 44 44 20 20 45 47 41 si un CR/DD EGA
0208B0: 4C 20 20 40 20 20 4C 4D 41 58 20 61 20 7B 74 7B L @ LMAX a {t{
0208C0: 20 64 65 74 65 63 74 7B 20 2E 20 44 61 6E 73 20 detect{ . Dans
0208D0: 63 65 0D 0A 20 63 61 73 20 4C 4D 41 58 20 6E 65 ce.. cas LMAX ne
0208E0: 20 70 65 75 74 20 70 61 73 20 65 08 5E 74 72 65 peut pas e.^tre
0208F0: 20 7B 67 61 6C 20 20 61 75 20 20 43 52 2F 44 44 {gal au CR/DD
020900: 20 20 2E 20 20 43 6F 6D 6D 65 20 64 27 61 75 74 . Comme d'aut
020910: 72 65 20 70 61 72 74 20 4C 4D 41 58 20 6E 65 20 re part LMAX ne
020920: 70 65 75 74 0D 0A 20 65 08 5E 74 72 65 20 61 75 peut.. e.^tre au
020930: 67 6D 65 6E 74 7B 20 2C 20 6F 6E 20 6E 65 20 70 gment{ , on ne p
020940: 65 75 74 20 71 75 65 20 20 6C 61 20 20 64 69 6D eut que la dim
020950: 69 6E 75 65 72 20 20 64 65 20 20 31 20 65 74 20 inuer de 1 et
020960: 61 66 66 69 6E 65 72 20 75 6E 20 70 65 75 20 70 affiner un peu p
020970: 6C 75 73 20 6C 61 0D 0A 20 72 65 63 68 65 72 63 lus la.. recherc
020980: 68 65 20 2E 20 49 6C 20 66 61 75 74 20 71 75 61 he . Il faut qua
020990: 6E 64 20 6D 65 08 5E 6D 65 20 70 72 7B 76 6F 69 nd me.^me pr{voi
0209A0: 72 20 20 71 75 65 20 6C 61 20 70 72 7B 73 65 6E r que la pr{sen
0209B0: 63 65 20 65 78 74 72 7D 6D 65 6D 65 6E 74 20 72 ce extr}mement r
0209C0: 61 72 65 20 64 27 75 6E 0D 0A 20 73 65 63 74 65 are d'un.. secte
0209D0: 75 72 20 4C 45 4E 20 30 20 61 62 69 6D 7B 20 70 ur LEN 0 abim{ p
0209E0: 65 75 72 20 61 75 73 73 69 20 72 65 6E 76 6F 79 eur aussi renvoy
0209F0: 65 72 20 75 6E 20 20 43 52 2F 44 44 20 2E 20 44 er un CR/DD . D
020A00: 61 6E 73 20 63 65 20 63 61 73 20 6D 69 65 75 78 ans ce cas mieux
020A10: 20 76 61 75 74 20 6E 65 0D 0A 20 70 61 73 20 74 vaut ne.. pas t
020A20: 6F 75 63 68 65 72 20 40 20 4C 4D 41 58 20 71 75 oucher @ LMAX qu
020A30: 69 20 70 61 73 73 65 72 61 69 74 20 40 20 23 46 i passerait @ #F
020A40: 46 20 21 0D 0A 20 0D 0A 20 20 20 20 20 45 6E 20 F !.. .. En
020A50: 53 4F 4C 55 54 49 4F 4E 33 20 6F 6E 20 74 65 73 SOLUTION3 on tes
020A60: 74 65 20 4C 4D 49 4E 20 2E 20 20 53 69 20 20 63 te LMIN . Si c
020A70: 65 74 74 65 20 20 63 61 73 65 20 40 20 65 6E 72 ette case @ enr
020A80: 65 67 69 73 74 72 7B 20 61 75 20 70 61 73 73 61 egistr{ au passa
020A90: 67 65 20 75 6E 65 0D 0A 20 74 61 69 6C 6C 65 20 ge une.. taille
020AA0: 30 20 4F 4B 20 2C 20 63 27 65 73 74 20 66 6F 72 0 OK , c'est for
020AB0: 63 7B 6D 65 6E 74 20 6C 61 20 76 72 61 69 65 20 c{ment la vraie
020AC0: 74 61 69 6C 6C 65 20 64 65 20 66 6F 72 6D 61 74 taille de format
020AD0: 20 2E 20 44 61 6E 73 20 74 6F 75 74 20 61 75 74 . Dans tout aut
020AE0: 72 65 20 63 61 73 0D 0A 20 75 6E 20 73 65 63 74 re cas.. un sect
020AF0: 65 75 72 20 30 20 72 65 6E 76 65 72 61 69 74 20 eur 0 renverait
020B00: 43 52 2F 44 44 20 6F 75 20 4D 41 4D 20 21 20 44 CR/DD ou MAM ! D
020B10: 61 6E 73 20 6C 65 20 63 61 73 20 63 6F 6E 74 72 ans le cas contr
020B20: 61 69 72 65 20 2C 20 63 27 65 73 74 20 6C 61 20 aire , c'est la
020B30: 74 61 69 6C 6C 65 0D 0A 20 6D 61 78 69 6D 75 6D taille.. maximum
020B40: 20 63 61 6C 63 75 6C 7B 65 20 71 75 69 20 73 65 calcul{e qui se
020B50: 72 74 20 61 75 20 74 65 73 74 20 2E 0D 0A 20 20 rt au test ...
020B60: 20 20 20 50 6F 75 72 20 72 7B 75 73 73 69 72 20 Pour r{ussir
020B70: 63 65 20 74 65 73 74 20 2C 20 20 6F 6E 20 20 75 ce test , on u
020B80: 74 69 6C 69 73 65 20 20 6C 69 72 65 20 20 70 69 tilise lire pi
020B90: 73 74 65 20 20 63 6F 6D 6D 65 20 65 6E 20 53 4F ste comme en SO
020BA0: 4C 55 54 49 4F 4E 31 20 6D 61 69 73 0D 0A 20 63 LUTION1 mais.. c
020BB0: 6F 6D 6D 65 20 6C 65 20 74 65 73 74 20 73 75 72 omme le test sur
020BC0: 20 4E 44 20 7B 63 68 6F 75 65 72 61 20 20 73 79 ND {chouera sy
020BD0: 73 74 7B 6D 61 74 69 71 75 65 6D 65 6E 74 20 20 st{matiquement
020BE0: 65 6E 20 20 72 61 69 73 6F 6E 20 64 65 20 6C 61 en raison de la
020BF0: 20 70 72 7B 73 65 6E 63 65 20 64 65 0D 0A 20 64 pr{sence de.. d
020C00: 69 66 66 7B 72 65 6E 74 65 73 20 74 61 69 6C 6C iff{rentes taill
020C10: 65 73 20 7B 63 72 69 74 65 73 20 2C 20 20 6F 6E es {crites , on
020C20: 20 20 72 65 63 68 65 72 63 68 65 20 20 75 6E 20 recherche un
020C30: 20 6F 63 74 65 74 20 20 64 65 20 20 76 61 6C 65 octet de vale
020C40: 75 72 20 20 23 34 45 20 40 20 6C 61 0D 0A 20 70 ur #4E @ la.. p
020C50: 6F 73 69 74 69 6F 6E 20 64 75 20 47 41 50 20 2E osition du GAP .
020C60: 20 53 69 20 6F 6E 20 6C 65 20 74 72 6F 75 76 65 Si on le trouve
020C70: 20 2C 20 6F 6E 20 20 40 20 64 7B 6A 61 20 75 6E , on @ d{ja un
020C80: 65 20 69 64 7B 65 20 64 65 20 6C 61 20 76 72 61 e id{e de la vra
020C90: 69 65 20 74 61 69 6C 6C 65 20 64 65 0D 0A 20 66 ie taille de.. f
020CA0: 6F 72 6D 61 74 20 65 6D 70 6C 6F 79 7B 65 20 2E ormat employ{e .
020CB0: 20 53 69 20 6F 6E 20 6E 65 20 6C 65 20 74 72 6F Si on ne le tro
020CC0: 75 76 65 20 20 70 61 73 20 20 2C 20 69 6C 20 72 uve pas , il r
020CD0: 65 73 74 65 20 70 6F 73 73 69 62 6C 65 20 71 75 este possible qu
020CE0: 65 20 6C 65 20 73 65 63 74 65 75 72 0D 0A 20 74 e le secteur.. t
020CF0: 65 73 74 7B 20 70 61 72 20 6C 69 72 65 20 70 69 est{ par lire pi
020D00: 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ------------
020D10: 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 0D 0A 20 20 20 --------.. ..
020D20: 20 20 45 58 49 45 43 52 41 20 65 73 74 20 6C 65 EXIECRA est le
020D30: 20 70 6F 69 6E 74 20 64 65 20 20 73 6F 72 74 69 point de sorti
020D40: 65 20 20 64 75 20 20 70 72 6F 67 72 61 6D 6D 65 e du programme
020D50: 20 20 2E 20 20 44 61 6E 73 20 39 39 25 20 64 65 . Dans 99% de
020D60: 73 20 63 61 73 20 63 27 65 73 74 0D 0A 20 65 6E s cas c'est.. en
020D70: 66 69 6E 20 66 69 6E 69 20 2E 20 49 6C 20 72 65 fin fini . Il re
020D80: 73 74 65 20 68 7B 6C 61 73 20 20 75 6E 20 20 64 ste h{las un d
020D90: 65 72 6E 69 65 72 20 20 70 6F 69 6E 74 20 20 40 ernier point @
020DA0: 20 20 76 7B 72 69 66 69 65 72 20 3A 20 51 75 65 v{rifier : Que
020DB0: 20 6C 65 20 6E 6F 75 76 65 61 75 0D 0A 20 6E 6F le nouveau.. no
020DC0: 6D 62 72 65 20 64 65 20 73 65 63 74 65 75 72 73 mbre de secteurs
020DD0: 20 64 7B 74 65 72 6D 69 6E 7B 20 70 61 72 20 27 d{termin{ par '
020DE0: 45 43 52 41 53 45 52 27 20 70 75 69 73 73 65 20 ECRASER' puisse
020DF0: 65 66 66 65 63 74 69 76 65 6D 65 6E 74 20 74 65 effectivement te
020E00: 6E 69 72 20 73 75 72 20 75 6E 65 0D 0A 20 70 69 nir sur une.. pi
020E10: 73 74 65 20 21 20 4C 6F 67 69 71 75 65 6D 65 6E ste ! Logiquemen
020E20: 74 20 5C 61 20 64 65 76 72 61 69 74 20 20 2E 20 t \a devrait .
020E30: 20 50 6F 75 72 74 61 6E 74 20 20 2C 20 20 73 69 Pourtant , si
020E40: 20 20 6F 6E 20 20 73 27 61 6D 75 73 65 20 40 20 on s'amuse @
020E50: 66 6F 72 6D 61 74 65 72 20 65 6E 0D 0A 20 74 61 formater en.. ta
020E60: 69 6C 6C 65 20 30 20 65 74 20 61 20 74 6F 75 74 ille 0 et a tout
020E70: 20 7B 63 72 61 73 65 72 20 73 6F 75 73 20 64 65 {craser sous de
020E80: 73 20 20 74 61 69 6C 6C 65 73 20 64 69 76 65 72 s tailles diver
020E90: 73 65 73 20 73 61 6E 73 20 6C 61 69 73 73 65 72 ses sans laisser
020EA0: 20 75 6E 20 73 65 75 6C 20 49 44 0D 0A 20 4C 45 un seul ID.. LE
020EB0: 4E 20 40 20 30 20 2E 20 43 65 72 74 61 69 6E 65 N @ 0 . Certaine
020EC0: 73 20 63 6F 6D 62 69 6E 61 69 73 6F 6E 73 20 6E s combinaisons n
020ED0: 65 20 70 65 72 6D 65 74 74 72 6F 6E 74 20 70 61 e permettront pa
020EE0: 73 20 61 75 78 20 72 6F 75 74 69 6E 65 73 20 64 s aux routines d
020EF0: 27 61 6E 61 6C 79 73 65 20 6C 61 0D 0A 20 76 72 'analyse la.. vr
020F00: 61 69 65 20 74 61 69 6C 6C 65 20 64 65 20 66 6F aie taille de fo
020F10: 72 6D 61 74 20 2E 20 45 78 65 6D 70 6C 65 20 20 rmat . Exemple
020F20: 3A 20 20 55 6E 20 20 66 6F 72 6D 61 74 61 67 65 : Un formatage
020F30: 20 20 64 65 20 20 74 61 69 6C 6C 65 20 30 20 7B de taille 0 {
020F40: 63 72 61 73 7B 20 64 65 20 6C 61 0D 0A 20 6D 61 cras{ de la.. ma
020F50: 6E 69 7D 72 65 20 73 75 69 76 61 6E 74 65 20 3A ni}re suivante :
020F60: 20 31 2C 32 2C 32 2C 32 2C 32 2C 32 2C 32 2C 32 1,2,2,2,2,2,2,2
020F70: 2C 32 2C 32 2C 31 20 72 65 6E 76 65 72 72 61 20 ,2,2,1 renverra
020F80: 73 79 73 74 7B 6D 61 74 69 71 75 65 6D 65 6E 74 syst{matiquement
020F90: 20 75 6E 20 4C 4D 49 4E 20 64 65 0D 0A 20 31 20 un LMIN de.. 1
020FA0: 2E 20 44 61 6E 73 20 6C 61 20 20 6D 65 73 75 72 . Dans la mesur
020FB0: 65 20 20 6F 75 20 20 6C 65 20 20 72 61 70 70 6F e ou le rappo
020FC0: 72 74 20 20 64 27 7B 63 72 61 73 65 6D 65 6E 74 rt d'{crasement
020FD0: 20 20 65 73 74 20 64 69 66 66 7B 72 65 6E 74 20 est diff{rent
020FE0: 70 6F 75 72 20 63 68 61 71 75 65 0D 0A 20 74 61 pour chaque.. ta
020FF0: 69 6C 6C 65 20 2C 20 75 6E 20 7B 63 72 61 73 65 ille , un {crase
021000: 6D 65 6E 74 20 73 75 72 20 6C 61 20 62 61 73 65 ment sur la base
021010: 20 20 31 20 63 61 6C 63 75 6C 65 72 61 20 75 6E 1 calculera un
021020: 20 6E 6F 75 76 65 61 75 20 6E 6F 6D 62 72 65 20 nouveau nombre
021030: 64 65 20 73 65 63 74 65 75 72 73 0D 0A 20 65 78 de secteurs.. ex
021040: 63 65 73 73 69 66 20 2E 20 50 61 73 20 20 64 65 cessif . Pas de
021050: 20 20 70 61 6E 69 71 75 65 20 20 2C 20 20 52 45 panique , RE
021060: 43 54 49 4E 42 31 20 20 66 61 69 74 20 20 6C 65 CTINB1 fait le
021070: 20 20 67 65 6E 64 61 72 6D 65 20 20 40 20 20 6C gendarme @ l
021080: 61 20 73 6F 72 74 69 65 20 64 65 0D 0A 20 6C 27 a sortie de.. l'
021090: 61 75 74 6F 72 75 74 65 20 21 20 53 69 20 6C 65 autorute ! Si le
0210A0: 20 6E 6F 6D 62 72 65 20 64 65 20 73 65 63 74 65 nombre de secte
0210B0: 75 72 73 20 20 65 73 74 20 20 63 6F 6E 76 65 6E urs est conven
0210C0: 61 62 6C 65 20 2C 20 6F 6E 20 70 72 65 6E 64 20 able , on prend
0210D0: 6C 61 20 62 72 65 74 65 6C 6C 65 0D 0A 20 64 65 la bretelle.. de
0210E0: 20 73 6F 72 74 69 65 20 2C 20 73 69 6E 6F 6E 20 sortie , sinon
0210F0: 50 2E 56 2E 20 65 74 20 72 65 74 6F 75 72 20 40 P.V. et retour @
021100: 20 20 20 20 20 21 0D 0A 20 20 20 20 2B 2D 2D 2D !.. +---
021110: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 3C 20 --------------<
021120: 20 49 4C 20 52 45 53 54 45 20 44 45 53 20 50 49 IL RESTE DES PI
021130: 53 54 45 53 20 41 20 43 4F 50 49 45 52 20 20 20 STES A COPIER
021140: 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0D 0A !..
021150: 20 20 20 20 21 20 20 20 20 20 20 20 20 20 20 20 !
021160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
021170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
021180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
021190: 20 20 20 20 20 21 0D 0A 20 20 20 20 21 20 20 20 !.. !
0211A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 I
0211B0: 4C 20 4E 27 59 2D 41 20 50 4C 55 53 20 44 45 20 L N'Y-A PLUS DE
0211C0: 50 49 53 54 45 53 20 41 20 43 4F 50 49 45 52 20 PISTES A COPIER
0211D0: 3E 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2B 0D 0A >------------+..
0211E0: 20 20 20 20 21 20 20 20 20 20 20 20 20 20 20 20 !
0211F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
021200: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
021210: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
021220: 20 20 20 20 20 21 0D 0A 20 20 20 20 21 20 20 20 !.. !
021230: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
021240: 20 20 20 20 20 49 4E 49 54 49 41 4C 49 53 45 52 INITIALISER
021250: 20 45 43 52 49 54 55 52 45 20 20 3C 2D 2D 2D 2D ECRITURE <----
021260: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2B 0D 0A -------------+..
021270: 20 20 20 20 21 20 20 20 20 20 20 2B 2D 2D 2D 2D ! +----
021280: 2D 3E 20 56 4F 49 52 20 53 49 20 4F 4E 20 45 53 -> VOIR SI ON ES
021290: 54 20 53 55 52 20 4C 41 20 44 45 52 4E 49 45 52 T SUR LA DERNIER
0212A0: 45 20 50 49 53 54 45 20 4C 55 45 0D 0A 20 20 20 E PISTE LUE..
0212B0: 20 21 20 20 20 20 20 20 21 0D 0A 20 20 20 20 21 ! !.. !
0212C0: 20 20 20 20 20 20 21 20 20 20 20 20 20 20 20 20 !
0212D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0212E0: 20 4E 4F 4E 20 3E 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D NON >----------
0212F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
021300: 2B 0D 0A 20 20 20 20 21 20 20 20 20 20 20 21 20 +.. ! !
021310: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
021320: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
021330: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
021340: 20 20 20 20 20 20 20 20 21 0D 0A 20 20 20 20 21 !.. !
021350: 20 20 20 20 20 20 5E 20 20 20 20 20 20 20 20 20 ^
021360: 4F 55 49 20 3A 20 52 45 49 4E 49 54 49 41 4C 49 OUI : REINITIALI
021370: 53 45 52 20 42 55 46 46 45 52 20 45 54 20 4C 45 SER BUFFER ET LE
021380: 43 54 55 52 45 20 20 20 20 20 20 20 20 20 20 20 CTURE
021390: 21 0D 0A 20 20 20 20 21 2D 2D 2D 2D 2D 2D 2D 2D !.. !--------
0213A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0213B0: 2D 3C 20 20 45 54 20 43 4F 4E 54 49 4E 55 45 52 -< ET CONTINUER
0213C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0213D0: 20 20 20 20 20 20 20 20 21 0D 0A 20 20 20 20 20 !..
0213E0: 20 20 20 20 20 20 5E 20 20 20 20 20 20 20 20 20 ^
0213F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
021400: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
021410: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
021420: 21 0D 0A 20 20 20 20 20 20 20 20 20 20 20 21 20 !.. !
021430: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
021440: 52 45 50 52 4F 44 55 49 52 45 20 4C 45 20 46 4F REPRODUIRE LE FO
021450: 52 4D 41 54 20 3C 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D RMAT <----------
021460: 2D 2D 2D 2D 2D 2D 2D 2D 2B 0D 0A 20 20 20 20 20 --------+..
021470: 20 20 20 20 20 20 21 20 20 20 20 20 20 45 43 52 ! ECR
021480: 49 52 45 20 4C 45 53 20 53 45 43 54 45 55 52 53 IRE LES SECTEURS
021490: 20 53 49 20 49 4C 20 59 2D 41 20 55 4E 20 46 4F SI IL Y-A UN FO
0214A0: 52 4D 41 54 41 47 45 0D 0A 20 20 20 20 20 20 20 RMATAGE..
0214B0: 20 20 20 20 21 20 20 20 20 20 20 20 20 20 20 20 !
0214C0: 20 20 20 20 20 20 20 41 56 41 4E 43 45 52 20 44 AVANCER D
0214D0: 27 55 4E 45 20 50 49 53 54 45 20 20 20 20 0D 0A 'UNE PISTE ..
0214E0: 20 20 20 20 20 20 20 20 20 20 20 21 20 20 20 20 !
0214F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 45 53 54 EST
021500: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
021510: 1C 00 01 00 02 09 4E E5 1C 00 C1 02 00 00 00 02 ......N.........
021520: 1C 00 C2 02 00 00 00 02 1C 00 C3 02 00 00 00 02 ................
021530: 1C 00 C4 02 00 00 00 02 1C 00 C5 02 00 00 00 02 ................
021540: 1C 00 C6 02 00 00 00 02 1C 00 C7 02 00 00 00 02 ................
021550: 1C 00 C8 02 00 00 00 02 1C 00 C9 02 00 00 00 02 ................
021560: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
021570: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
021580: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
021590: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0215A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0215B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0215C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0215D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0215E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0215F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
021600: 2D 43 45 20 4C 41 20 44 45 52 4E 49 45 52 45 20 -CE LA DERNIERE
021610: 3F 0D 0A 20 20 20 20 20 20 20 20 20 20 20 21 0D ?.. !.
021620: 0A 20 20 20 20 20 20 20 20 20 20 20 2B 2D 2D 2D . +---
021630: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
021640: 2D 2D 2D 2D 2D 3C 20 4E 4F 4E 0D 0A 20 20 20 20 -----< NON..
021650: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
021660: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
021670: 20 20 4F 55 49 0D 0A 20 0D 0A 20 20 20 20 20 20 OUI.. ..
021680: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
021690: 20 20 20 20 20 20 20 20 20 20 20 20 54 48 41 54 THAT
0216A0: 53 27 45 4E 44 20 21 0D 0A 20 0D 0A 20 20 20 20 S'END !.. ..
0216B0: 20 41 76 61 6E 74 20 64 27 61 6C 6C 65 72 20 70 Avant d'aller p
0216C0: 6C 75 73 20 6C 6F 69 6E 20 2C 20 20 7B 74 75 64 lus loin , {tud
0216D0: 69 6F 6E 73 20 20 6C 61 20 20 6D 61 6E 69 7D 72 ions la mani}r
0216E0: 65 20 20 64 65 20 6D 7B 6D 6F 72 69 73 65 72 20 e de m{moriser
0216F0: 6C 65 20 63 6F 6E 74 65 6E 75 0D 0A 20 63 6F 6D le contenu.. com
021700: 70 6C 65 74 20 64 27 75 6E 65 20 70 69 73 74 65 plet d'une piste
021710: 20 2E 0D 0A 20 0D 0A 20 20 20 20 20 43 6F 6D 6D ... .. Comm
021720: 65 20 70 6C 75 73 69 65 75 72 73 20 70 69 73 74 e plusieurs pist
021730: 65 73 20 73 65 72 6F 6E 74 20 73 74 6F 63 6B 7B es seront stock{
021740: 65 73 20 40 20 20 6C 61 20 20 73 75 69 74 65 20 es @ la suite
021750: 20 2C 20 6F 6E 20 63 6F 6D 6D 65 6E 63 65 20 70 , on commence p
021760: 61 72 20 6C 65 0D 0A 20 6E 75 6D 7B 72 6F 20 64 ar le.. num{ro d
021770: 65 20 6C 61 20 70 69 73 74 65 20 65 6E 20 63 6F e la piste en co
021780: 75 72 73 20 20 2E 20 20 45 6E 73 75 69 74 65 20 urs . Ensuite
021790: 20 76 69 65 6E 64 72 61 20 20 75 6E 20 6F 63 74 viendra un oct
0217A0: 65 74 20 6E 6F 6D 6D 7B 20 46 4C 41 47 46 4E 43 et nomm{ FLAGFNC
0217B0: 20 64 6F 6E 74 0D 0A 20 63 68 61 71 75 65 20 62 dont.. chaque b
0217C0: 69 74 20 63 6F 6E 74 69 65 6E 64 72 61 20 20 75 it contiendra u
0217D0: 6E 65 20 20 69 6E 66 6F 72 6D 61 74 69 6F 6E 20 ne information
0217E0: 20 76 69 74 61 6C 65 20 20 73 75 72 20 20 6C 65 vitale sur le
0217F0: 20 20 72 7B 73 75 6C 74 61 74 20 20 67 6C 6F 62 r{sultat glob
021800: 61 6C 20 64 65 0D 0A 20 6C 27 61 6E 61 6C 79 73 al de.. l'analys
021810: 65 20 2E 20 4C 61 20 6C 6F 6E 67 75 65 75 72 20 e . La longueur
021820: 64 65 73 20 73 65 63 74 65 75 72 73 20 20 65 78 des secteurs ex
021830: 70 72 69 6D 7B 65 20 65 6E 20 6F 63 74 65 74 73 prim{e en octets
021840: 20 70 65 75 74 20 74 6F 75 6A 6F 75 72 73 20 73 peut toujours s
021850: 65 72 76 69 72 0D 0A 20 2C 20 6F 6E 20 6C 61 20 ervir.. , on la
021860: 6D 65 74 20 40 20 20 6C 61 20 20 73 75 69 74 65 met @ la suite
021870: 20 20 2E 20 20 49 6C 20 20 66 61 75 74 20 20 62 . Il faut b
021880: 69 65 6E 20 20 73 75 72 20 63 6F 6E 73 65 72 76 ien sur conserv
021890: 65 72 20 74 6F 75 74 65 73 20 6C 65 73 20 64 6F er toutes les do
0218A0: 6E 6E 7B 65 73 0D 0A 20 61 66 66 7B 72 65 6E 74 nn{es.. aff{rent
0218B0: 65 73 20 61 75 20 66 6F 72 6D 61 74 20 70 6F 75 es au format pou
0218C0: 72 20 72 65 70 72 6F 64 75 69 72 65 20 63 65 74 r reproduire cet
0218D0: 74 65 20 70 69 73 74 65 20 2C 20 6F 6E 20 61 6A te piste , on aj
0218E0: 6F 75 74 65 20 4C 45 4E 53 45 43 20 2C 20 4E 42 oute LENSEC , NB
0218F0: 53 45 43 20 2C 0D 0A 20 47 41 50 46 4F 52 4D 20 SEC ,.. GAPFORM
021900: 2C 20 4F 43 52 45 4D 50 20 2E 20 42 69 65 6E 20 , OCREMP . Bien
021910: 7B 76 69 64 65 6D 65 6E 74 20 2C 20 6C 65 73 20 {videment , les
021920: 20 49 44 53 20 73 6F 6E 74 20 76 69 74 61 75 78 IDS sont vitaux
021930: 20 2C 20 69 6C 73 20 73 75 69 76 65 6E 74 20 2E , ils suivent .
021940: 20 50 6F 75 72 0D 0A 20 75 6E 65 20 62 6F 6E 6E Pour.. une bonn
021950: 65 20 72 65 70 72 6F 64 75 63 74 69 6F 6E 20 64 e reproduction d
021960: 65 73 20 73 65 63 74 65 75 72 73 20 69 6C 20 6E es secteurs il n
021970: 6F 75 73 20 66 61 75 74 20 65 6E 63 6F 72 65 20 ous faut encore
021980: 6C 61 20 6C 69 73 74 65 20 64 65 20 6C 27 7B 74 la liste de l'{t
021990: 61 74 20 64 65 0D 0A 20 6C 65 63 74 75 72 65 20 at de.. lecture
0219A0: 64 65 20 63 68 61 63 75 6E 20 64 27 65 75 78 20 de chacun d'eux
0219B0: 65 74 20 63 65 6C 61 20 63 6F 6D 6D 65 6E 63 65 et cela commence
0219C0: 20 20 40 20 20 66 61 69 72 65 20 64 75 20 6D 6F @ faire du mo
0219D0: 6E 64 65 20 2E 20 50 6F 75 72 20 7B 76 69 74 65 nde . Pour {vite
0219E0: 72 20 64 65 73 0D 0A 20 63 61 6C 63 75 6C 73 20 r des.. calculs
0219F0: 40 20 63 68 61 71 75 65 20 6F 70 7B 72 61 74 69 @ chaque op{rati
021A00: 6F 6E 20 20 6F 6E 20 20 61 6A 6F 75 74 65 20 20 on on ajoute
021A10: 6C 27 61 64 72 65 73 73 65 20 20 64 65 20 20 64 l'adresse de d
021A20: 7B 62 75 74 20 20 64 65 20 73 74 6F 63 6B 61 67 {but de stockag
021A30: 65 20 64 65 73 0D 0A 20 64 6F 6E 6E 7B 65 73 20 e des.. donn{es
021A40: 70 6F 75 72 20 63 68 61 71 75 65 20 73 65 63 74 pour chaque sect
021A50: 65 75 72 73 20 20 2C 20 20 64 61 6E 73 20 20 6C eurs , dans l
021A60: 65 20 20 6D 65 08 5E 6D 65 20 20 62 75 74 20 20 e me.^me but
021A70: 6F 6E 20 20 70 6F 6E 63 74 75 65 20 6C 65 20 74 on ponctue le t
021A80: 6F 75 74 20 70 61 72 0D 0A 20 6C 27 61 64 72 65 out par.. l'adre
021A90: 73 73 65 20 6F 75 20 64 65 76 72 61 20 63 6F 6D sse ou devra com
021AA0: 6D 65 6E 63 65 72 20 6C 65 20 70 72 6F 63 68 61 mencer le procha
021AB0: 69 6E 20 73 74 6F 63 6B 61 67 65 20 2E 20 43 65 in stockage . Ce
021AC0: 63 69 20 6E 6F 75 73 20 64 6F 6E 6E 65 72 61 20 ci nous donnera
021AD0: 3A 0D 0A 20 0D 0A 20 20 20 20 20 4E 75 6D 7B 72 :.. .. Num{r
021AE0: 6F 20 64 65 20 70 69 73 74 65 20 6C 75 65 20 20 o de piste lue
021AF0: 20 20 20 20 20 20 20 20 20 20 20 3A 20 20 50 49 : PI
021B00: 53 54 4C 20 20 20 20 20 3A 20 31 20 4F 63 74 65 STL : 1 Octe
021B10: 74 0D 0A 20 20 20 20 20 46 6C 61 67 20 7B 74 61 t.. Flag {ta
021B20: 74 20 70 69 73 74 65 20 20 20 20 20 20 20 20 20 t piste
021B30: 20 20 20 20 20 20 20 20 3A 20 20 46 4C 41 47 46 : FLAGF
021B40: 4E 43 20 20 20 3A 20 31 20 4F 63 74 65 74 0D 0A NC : 1 Octet..
021B50: 20 20 20 20 20 4C 6F 6E 67 75 65 75 72 20 73 65 Longueur se
021B60: 63 74 65 75 72 73 20 65 6E 20 6F 63 74 65 74 73 cteurs en octets
021B70: 20 20 20 20 20 3A 20 20 4C 4F 4E 47 53 45 43 20 : LONGSEC
021B80: 20 20 3A 20 32 20 4F 63 74 65 74 73 0D 0A 20 20 : 2 Octets..
021B90: 20 20 20 4C 6F 6E 67 75 65 75 72 20 73 65 63 74 Longueur sect
021BA0: 65 75 72 20 61 20 66 6F 72 6D 61 74 65 72 20 20 eur a formater
021BB0: 20 20 20 3A 20 20 4C 45 4E 53 45 43 20 20 20 20 : LENSEC
021BC0: 3A 20 31 20 4F 63 74 65 74 0D 0A 20 20 20 20 20 : 1 Octet..
021BD0: 4E 6F 6D 62 72 65 20 64 65 20 73 65 63 74 65 75 Nombre de secteu
021BE0: 72 73 20 73 75 72 20 6C 61 20 70 69 73 74 65 20 rs sur la piste
021BF0: 3A 20 20 4E 42 53 45 43 20 20 20 20 20 3A 20 31 : NBSEC : 1
021C00: 20 4F 63 74 65 74 0D 0A 20 20 20 20 20 47 41 50 Octet.. GAP
021C10: 20 70 6F 75 72 20 66 6F 72 6D 61 74 61 67 65 20 pour formatage
021C20: 20 20 20 20 20 20 20 20 20 20 20 20 20 3A 20 20 :
021C30: 47 41 50 46 4F 52 4D 20 20 20 3A 20 31 20 4F 63 GAPFORM : 1 Oc
021C40: 74 65 74 0D 0A 20 20 20 20 20 4F 63 74 65 74 20 tet.. Octet
021C50: 64 65 20 72 65 6D 70 6C 69 73 73 61 67 65 20 73 de remplissage s
021C60: 65 63 74 65 75 72 20 20 20 20 3A 20 20 4F 43 52 ecteur : OCR
021C70: 45 4D 50 20 20 20 20 3A 20 31 20 4F 63 74 65 74 EMP : 1 Octet
021C80: 0D 0A 20 20 20 20 20 0D 0A 20 20 20 20 20 4C 61 .. .. La
021C90: 20 73 7B 72 69 65 20 64 65 73 20 49 44 53 20 73 s{rie des IDS s
021CA0: 65 63 74 65 75 72 73 20 20 20 20 20 20 20 3A 20 ecteurs :
021CB0: 20 49 44 49 4E 44 52 41 20 20 20 3A 20 34 20 4F IDINDRA : 4 O
021CC0: 63 74 65 74 73 20 2A 20 4E 62 2E 53 65 63 74 65 ctets * Nb.Secte
021CD0: 75 72 73 0D 0A 20 20 20 20 20 4C 61 20 73 7B 72 urs.. La s{r
021CE0: 69 65 20 64 65 73 20 7B 74 61 74 73 20 64 27 65 ie des {tats d'e
021CF0: 72 72 65 75 72 20 20 20 20 20 3A 20 20 4C 49 53 rreur : LIS
021D00: 54 45 52 52 20 20 20 3A 20 31 20 4F 63 74 65 74 TERR : 1 Octet
021D10: 20 2A 20 4E 62 2E 53 65 63 74 65 75 72 73 0D 0A * Nb.Secteurs..
021D20: 20 20 20 20 20 4C 65 73 20 61 64 72 65 73 73 65 Les adresse
021D30: 73 20 64 65 20 73 74 6F 63 6B 61 67 65 20 20 20 s de stockage
021D40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
021D50: 20 20 3A 20 32 20 4F 63 74 65 74 73 20 2A 20 4E : 2 Octets * N
021D60: 62 2E 53 65 63 74 65 75 72 73 0D 0A 20 20 20 20 b.Secteurs..
021D70: 20 4C 27 61 64 72 65 73 73 65 20 64 65 20 73 74 L'adresse de st
021D80: 6F 63 6B 61 67 65 20 64 65 20 6C 61 20 70 72 6F ockage de la pro
021D90: 63 68 61 69 6E 65 20 73 7B 72 69 65 20 20 3A 20 chaine s{rie :
021DA0: 32 20 4F 63 74 65 74 73 0D 0A 20 0D 0A 20 20 20 2 Octets.. ..
021DB0: 20 20 4C 65 20 63 6F 6E 74 65 6E 75 20 64 65 73 Le contenu des
021DC0: 20 73 65 63 74 65 75 72 73 20 2E 2E 2E 2E 0D 0A secteurs ......
021DD0: 20 3B 0D 0A 20 20 20 20 20 46 4C 41 47 46 4E 43 ;.. FLAGFNC
021DE0: 20 4E 6F 75 73 20 64 69 72 61 20 20 65 6E 74 72 Nous dira entr
021DF0: 65 20 20 61 75 74 72 65 20 20 73 69 20 20 6C 61 e autre si la
021E00: 20 20 70 69 73 74 65 20 20 40 20 20 72 65 70 72 piste @ repr
021E10: 6F 64 75 69 72 65 20 20 65 73 74 20 6F 75 20 6E oduire est ou n
021E20: 6F 6E 0D 0A 20 66 6F 72 6D 61 74 7B 65 20 2E 0D on.. format{e ..
021E30: 0A 20 20 20 20 20 4C 49 53 54 45 52 52 20 49 6E . LISTERR In
021E40: 66 6F 72 6D 65 72 61 20 6C 65 20 70 72 6F 67 72 formera le progr
021E50: 61 6D 6D 65 20 73 69 20 69 6C 20 64 6F 69 74 20 amme si il doit
021E60: 6F 75 20 6E 6F 6E 20 72 7B 7B 63 72 69 72 65 20 ou non r{{crire
021E70: 6C 65 20 73 65 63 74 65 75 72 20 2C 20 65 74 0D le secteur , et.
021E80: 0A 20 64 65 20 71 75 65 6C 6C 65 20 6D 61 6E 69 . de quelle mani
021E90: 7D 72 65 20 6C 65 20 66 61 69 72 65 20 2E 0D 0A }re le faire ...
021EA0: 20 20 20 20 20 4C 65 20 64 7B 74 61 69 6C 20 64 Le d{tail d
021EB0: 65 20 63 65 73 20 66 6C 61 67 73 20 73 65 72 61 e ces flags sera
021EC0: 20 76 75 20 70 65 74 69 74 20 40 20 70 65 74 69 vu petit @ peti
021ED0: 74 20 2E 0D 0A 20 0D 0A 20 20 20 20 20 44 61 6E t ... .. Dan
021EE0: 73 20 63 65 20 71 75 69 20 73 75 69 74 20 3A 20 s ce qui suit :
021EF0: 50 4F 49 4E 50 49 53 20 63 6F 6E 74 69 65 6E 74 POINPIS contient
021F00: 20 20 74 6F 75 6A 6F 75 72 73 20 6C 27 61 64 72 toujours l'adr
021F10: 65 73 73 65 20 64 65 20 73 74 6F 63 6B 61 67 65 esse de stockage
021F20: 20 64 65 20 6C 61 0D 0A 20 70 69 73 74 65 20 40 de la.. piste @
021F30: 20 6D 7B 6D 6F 72 69 73 65 72 20 2E 20 55 6E 20 m{moriser . Un
021F40: 73 65 63 6F 6E 64 20 70 6F 69 6E 74 65 75 72 20 second pointeur
021F50: 50 4F 49 4E 45 52 50 20 65 73 74 20 69 6E 64 7B POINERP est ind{
021F60: 70 65 6E 64 61 6E 74 20 64 75 20 62 75 66 66 65 pendant du buffe
021F70: 72 20 2E 20 49 6C 0D 0A 20 64 7B 73 69 67 6E 65 r . Il.. d{signe
021F80: 20 75 6E 65 20 6C 69 73 74 65 20 64 65 20 20 32 une liste de 2
021F90: 20 20 6F 63 74 65 74 73 20 20 2A 20 20 6E 6F 6D octets * nom
021FA0: 62 72 65 20 20 64 65 20 20 70 69 73 74 65 20 20 bre de piste
021FB0: 74 72 61 69 74 7B 65 73 20 20 65 74 20 70 65 72 trait{es et per
021FC0: 6D 65 74 20 64 65 0D 0A 20 6D 7B 6D 6F 72 69 73 met de.. m{moris
021FD0: 65 72 20 6C 65 73 20 70 69 73 74 65 73 20 70 72 er les pistes pr
021FE0: 7B 73 65 6E 74 61 6E 74 20 64 65 73 20 63 61 73 {sentant des cas
021FF0: 20 70 61 72 74 69 63 75 6C 69 65 72 73 20 2E 20 particuliers .
022000: 43 65 74 74 65 20 7A 6F 6E 65 20 64 65 20 73 74 Cette zone de st
022010: 6F 63 6B 61 67 65 0D 0A 20 70 65 72 6D 65 74 20 ockage.. permet
022020: 64 65 20 70 72 7B 73 65 6E 74 65 72 20 75 6E 20 de pr{senter un
022030: 72 7B 73 75 6D 7B 20 64 27 61 6E 61 6C 79 73 65 r{sum{ d'analyse
022040: 20 65 6E 20 66 69 6E 20 64 65 20 70 72 6F 67 72 en fin de progr
022050: 61 6D 6D 65 20 2E 0D 0A 20 0D 0A 20 20 20 20 20 amme ... ..
022060: 44 61 6E 73 20 6C 61 20 20 6D 65 73 75 72 65 20 Dans la mesure
022070: 20 6F 75 20 20 6C 65 73 20 20 72 6F 75 74 69 6E ou les routin
022080: 65 73 20 20 72 7B 65 6C 6C 65 6D 65 6E 74 20 20 es r{ellement
022090: 63 6F 6D 70 6C 65 78 65 73 20 20 66 69 67 75 72 complexes figur
0220A0: 65 6E 74 20 20 64 61 6E 73 0D 0A 20 64 27 61 75 ent dans.. d'au
0220B0: 74 72 65 73 20 73 65 63 74 69 6F 6E 73 20 2C 20 tres sections ,
0220C0: 69 6C 20 6E 27 79 20 40 20 70 6C 75 73 20 20 67 il n'y @ plus g
0220D0: 72 61 6E 64 20 20 63 68 6F 73 65 20 40 20 64 69 rand chose @ di
0220E0: 72 65 20 73 75 72 20 6C 65 20 6C 69 73 74 69 6E re sur le listin
0220F0: 67 20 73 75 69 76 61 6E 74 0D 0A 20 71 75 69 20 g suivant.. qui
022100: 65 73 74 20 61 62 6F 6E 64 61 6D 6D 65 6E 74 20 est abondamment
022110: 63 6F 6D 6D 65 6E 74 7B 20 2E 0D 0A 20 3B 0D 0A comment{ ... ;..
022120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
022130: 20 20 20 20 20 20 20 20 20 20 3B 2D 2D 2D 2D 2D ;-----
022140: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
022150: 2D 2D 2D 2D 0D 0A 20 20 20 20 20 20 20 20 20 20 ----..
022160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
022170: 3B 2D 20 49 4E 49 54 49 41 4C 49 53 45 52 20 50 ;- INITIALISER P
022180: 52 4F 47 52 41 4D 4D 45 20 2D 0D 0A 20 20 20 20 ROGRAMME -..
022190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0221A0: 20 20 20 20 20 20 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D ;---------
0221B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0221C0: 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 58 .. ;.. X
0221D0: 4F 52 20 41 20 20 20 20 20 20 20 20 20 20 20 20 OR A
0221E0: 20 20 20 3B 49 4E 49 54 49 41 4C 49 53 45 52 20 ;INITIALISER
0221F0: 56 41 52 49 41 42 4C 45 53 0D 0A 20 20 20 20 20 VARIABLES..
022200: 20 20 20 20 4C 44 20 28 44 52 4C 29 2C 41 20 20 LD (DRL),A
022210: 20 20 20 20 20 20 20 20 3B 44 72 69 76 65 20 6C ;Drive l
022220: 65 63 74 75 72 65 0D 0A 20 20 20 20 20 20 20 20 ecture..
022230: 20 4C 44 20 28 44 52 57 29 2C 41 20 20 20 20 20 LD (DRW),A
022240: 20 20 20 20 20 3B 44 72 69 76 65 20 65 63 72 69 ;Drive ecri
022250: 74 75 72 65 0D 0A 20 20 20 20 20 20 20 20 20 4C ture.. L
022260: 44 20 28 48 44 4C 29 2C 41 20 20 20 20 20 20 20 D (HDL),A
022270: 20 20 20 3B 54 65 74 65 20 6C 65 63 74 75 72 65 ;Tete lecture
022280: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 48 .. LD (H
022290: 44 57 29 2C 41 20 20 20 20 20 20 20 20 20 20 3B DW),A ;
0222A0: 54 65 74 65 20 65 63 72 69 74 75 72 65 0D 0A 20 Tete ecriture..
0222B0: 20 20 20 20 20 20 20 20 4C 44 20 28 50 52 45 4D LD (PREM
0222C0: 50 49 53 29 2C 41 20 20 20 20 20 20 3B 50 72 65 PIS),A ;Pre
0222D0: 6D 69 65 72 65 20 70 69 73 74 65 0D 0A 20 20 20 miere piste..
0222E0: 20 20 20 20 20 20 4C 44 20 28 46 4C 41 47 4D 4F LD (FLAGMO
0222F0: 54 29 2C 41 20 20 20 20 20 20 3B 46 6C 61 67 20 T),A ;Flag
022300: 6D 6F 74 65 75 72 20 4F 46 46 0D 0A 20 20 20 20 moteur OFF..
022310: 20 20 20 20 20 4C 44 20 28 46 4C 41 47 49 4D 50 LD (FLAGIMP
022320: 29 2C 41 20 20 20 20 20 20 3B 46 6C 61 67 20 69 ),A ;Flag i
022330: 6D 70 72 69 6D 61 6E 74 65 20 4F 46 46 0D 0A 20 mprimante OFF..
022340: 20 20 20 20 20 20 20 20 41 44 44 20 41 2C 23 34 ADD A,#4
022350: 31 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 1.. LD (
022360: 54 53 4F 55 44 45 53 2B 32 30 29 2C 41 20 20 20 TSOUDES+20),A
022370: 3B 4D 6F 64 69 66 69 65 72 20 74 65 78 74 65 73 ;Modifier textes
022380: 20 64 72 69 76 65 73 0D 0A 20 20 20 20 20 20 20 drives..
022390: 20 20 4C 44 20 28 54 53 4F 55 52 43 45 2B 33 33 LD (TSOURCE+33
0223A0: 29 2C 41 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 ),A.. LD
0223B0: 20 28 54 53 4F 55 44 45 53 2B 34 37 29 2C 41 0D (TSOUDES+47),A.
0223C0: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 54 44 . LD (TD
0223D0: 45 53 54 49 4E 2B 33 38 29 2C 41 0D 0A 20 20 20 ESTIN+38),A..
0223E0: 20 20 20 20 20 20 43 41 4C 4C 20 44 45 55 58 4E CALL DEUXN
0223F0: 42 20 20 20 20 20 20 20 20 20 3B 43 6F 6E 76 65 B ;Conve
022400: 72 73 69 6F 6E 73 20 6E 75 6D 65 72 69 71 75 65 rsions numerique
022410: 73 20 73 75 72 20 32 20 6E 6F 6D 62 72 65 73 0D s sur 2 nombres.
022420: 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 . ;.. LD
022430: 20 42 43 2C 30 20 20 20 20 20 20 20 20 20 3B 49 BC,0 ;I
022440: 4E 49 54 49 41 4C 49 53 45 52 20 4D 4F 44 45 20 NITIALISER MODE
022450: 26 20 43 4F 55 4C 45 55 52 53 0D 0A 20 20 20 20 & COULEURS..
022460: 20 20 20 20 20 43 41 4C 4C 20 23 42 43 33 38 20 CALL #BC38
022470: 20 20 20 20 20 3B 42 6F 72 64 65 72 20 30 0D 0A ;Border 0..
022480: 20 20 20 20 20 20 20 20 20 4C 44 20 42 43 2C 30 LD BC,0
022490: 0D 0A 20 20 20 20 20 20 20 20 20 58 4F 52 20 41 .. XOR A
0224A0: 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 .. CALL
0224B0: 23 42 43 33 32 20 20 20 20 20 20 3B 49 6E 6B 20 #BC32 ;Ink
0224C0: 30 2C 30 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 0,0.. LD
0224D0: 20 41 2C 31 0D 0A 20 20 20 20 20 20 20 20 20 4C A,1.. L
0224E0: 44 20 42 43 2C 23 30 46 30 46 0D 0A 20 20 20 20 D BC,#0F0F..
0224F0: 20 20 20 20 20 43 41 4C 4C 20 23 42 43 33 32 20 CALL #BC32
022500: 20 20 20 20 20 3B 49 6E 6B 20 31 2C 31 35 0D 0A ;Ink 1,15..
022510: 20 20 20 20 20 20 20 20 20 58 4F 52 20 41 0D 0A XOR A..
022520: 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 23 42 CALL #B
022530: 42 39 36 20 20 20 20 20 20 3B 50 61 70 65 72 20 B96 ;Paper
022540: 30 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 41 0.. LD A
022550: 2C 31 20 20 20 20 20 20 20 20 20 20 0D 0A 20 20 ,1 ..
022560: 20 20 20 20 20 20 20 43 41 4C 4C 20 23 42 42 39 CALL #BB9
022570: 30 20 20 20 20 20 20 3B 50 65 6E 20 31 0D 0A 20 0 ;Pen 1..
022580: 20 20 20 20 20 20 20 20 4C 44 20 41 2C 32 20 20 LD A,2
022590: 20 20 20 20 20 20 20 20 0D 0A 20 20 20 20 20 20 ..
0225A0: 20 20 20 43 41 4C 4C 20 23 42 43 30 45 20 20 20 CALL #BC0E
0225B0: 20 20 20 3B 4D 6F 64 65 20 32 0D 0A 20 3B 0D 0A ;Mode 2.. ;..
0225C0: 20 20 20 20 20 20 20 20 20 4C 44 20 48 4C 2C 54 LD HL,T
0225D0: 55 53 20 20 20 20 20 20 20 41 66 66 69 63 68 65 US Affiche
0225E0: 72 20 74 65 78 74 65 20 69 6E 74 72 6F 64 75 63 r texte introduc
0225F0: 74 69 6F 6E 0D 0A 20 20 20 20 20 20 20 20 20 43 tion.. C
022600: 41 4C 4C 20 50 52 54 0D 0A 20 3B 0D 0A 20 20 20 ALL PRT.. ;..
022610: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
022620: 20 20 20 20 20 20 20 20 20 3B 2D 20 54 45 53 54 ;- TEST
022630: 45 52 20 4C 45 53 20 44 52 49 56 45 53 20 2D 0D ER LES DRIVES -.
022640: 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 43 41 . ;.. CA
022650: 4C 4C 20 4D 4F 54 4F 4E 20 20 20 20 20 20 3B 4D LL MOTON ;M
022660: 6F 74 65 75 72 20 65 6E 20 72 6F 75 74 65 0D 0A oteur en route..
022670: 20 52 45 54 53 54 20 20 20 43 41 4C 4C 20 45 46 RETST CALL EF
022680: 46 53 43 52 20 20 20 20 20 3B 45 66 66 61 63 65 FSCR ;Efface
022690: 72 20 65 63 72 61 6E 0D 0A 20 3B 0D 0A 20 4E 45 r ecran.. ;.. NE
0226A0: 57 54 53 54 20 20 4C 44 20 41 2C 23 43 39 20 20 WTST LD A,#C9
0226B0: 20 20 20 20 20 20 3B 49 6E 76 61 6C 69 64 65 72 ;Invalider
0226C0: 20 72 6F 75 74 69 6E 65 20 65 72 72 65 75 72 20 routine erreur
0226D0: 64 72 69 76 65 20 70 6F 75 72 0D 0A 20 20 20 20 drive pour..
0226E0: 20 20 20 20 20 4C 44 20 28 52 45 54 54 53 44 52 LD (RETTSDR
0226F0: 29 2C 41 20 20 3B 6E 65 20 70 61 73 20 62 6C 6F ),A ;ne pas blo
022700: 71 75 65 72 20 65 6E 20 63 61 73 20 64 65 20 64 quer en cas de d
022710: 69 73 63 20 6D 69 73 73 69 6E 67 0D 0A 20 20 20 isc missing..
022720: 20 20 20 20 20 20 43 41 4C 4C 20 20 54 53 54 32 CALL TST2
022730: 44 52 20 20 20 20 3B 54 65 73 74 65 72 20 64 72 DR ;Tester dr
022740: 69 76 65 73 20 63 6F 6D 6D 65 20 64 61 6E 73 20 ives comme dans
022750: 76 65 72 73 69 6F 6E 73 20 70 72 65 63 65 64 65 versions precede
022760: 6E 74 65 73 0D 0A 20 20 20 20 20 20 20 20 20 4C ntes.. L
022770: 44 20 48 4C 2C 23 32 32 30 36 20 20 20 20 20 3B D HL,#2206 ;
022780: 4C 6F 63 61 74 65 20 70 6F 75 72 20 43 4F 4E 46 Locate pour CONF
022790: 49 52 4D 0D 0A 20 20 20 20 20 20 20 20 20 43 41 IRM.. CA
0227A0: 4C 4C 20 43 4F 4E 46 49 52 4D 20 20 20 20 3B 44 LL CONFIRM ;D
0227B0: 72 69 76 65 73 20 4F 4B 20 3F 0D 0A 20 20 20 20 rives OK ?..
0227C0: 20 20 20 20 20 4A 52 20 4E 43 2C 4E 45 57 54 53 JR NC,NEWTS
0227D0: 54 20 20 20 20 3B 4E 6F 6E 20 21 0D 0A 20 20 20 T ;Non !..
0227E0: 20 20 20 20 20 20 58 4F 52 20 41 0D 0A 20 20 20 XOR A..
0227F0: 20 20 20 20 20 20 4C 44 20 28 52 45 54 54 53 44 LD (RETTSD
022800: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
022810: 1D 00 01 00 02 09 4E E5 1D 00 C1 02 00 00 00 02 ......N.........
022820: 1D 00 C2 02 00 00 00 02 1D 00 C3 02 00 00 00 02 ................
022830: 1D 00 C4 02 00 00 00 02 1D 00 C5 02 00 00 00 02 ................
022840: 1D 00 C6 02 00 00 00 02 1D 00 C7 02 00 00 00 02 ................
022850: 1D 00 C8 02 00 00 00 02 1D 00 C9 02 00 00 00 02 ................
022860: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
022870: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
022880: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
022890: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0228A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0228B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0228C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0228D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0228E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0228F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
022900: 52 29 2C 41 0D 0A 20 3B 0D 0A 20 4E 45 57 43 48 R),A.. ;.. NEWCH
022910: 47 20 20 4C 44 20 48 4C 2C 54 4D 45 4E 43 48 47 G LD HL,TMENCHG
022920: 20 20 20 3B 4D 45 4E 55 20 50 52 49 4E 43 49 50 ;MENU PRINCIP
022930: 41 4C 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C AL.. CAL
022940: 4C 20 50 52 54 0D 0A 20 20 20 20 20 20 20 20 20 L PRT..
022950: 4C 44 20 48 4C 2C 54 49 4D 50 52 49 4D 0D 0A 20 LD HL,TIMPRIM..
022960: 20 20 20 20 20 20 20 20 43 41 4C 4C 20 50 52 54 CALL PRT
022970: 0D 0A 20 3B 0D 0A 20 54 53 54 43 48 47 20 20 4C .. ;.. TSTCHG L
022980: 44 20 48 4C 2C 54 53 4F 55 44 45 53 0D 0A 20 20 D HL,TSOUDES..
022990: 20 20 20 20 20 20 20 43 41 4C 4C 20 50 52 54 0D CALL PRT.
0229A0: 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 23 . CALL #
0229B0: 42 42 30 36 0D 0A 20 20 20 20 20 20 20 20 20 41 BB06.. A
0229C0: 4E 44 20 23 44 46 0D 0A 20 3B 0D 0A 20 20 20 20 ND #DF.. ;..
0229D0: 20 20 20 20 20 43 50 20 22 41 22 0D 0A 20 20 20 CP "A"..
0229E0: 20 20 20 20 20 20 4A 52 20 5A 2C 43 48 47 53 20 JR Z,CHGS
0229F0: 20 20 20 20 20 20 3B 43 68 61 6E 67 65 72 20 64 ;Changer d
022A00: 72 69 76 65 20 73 6F 75 72 63 65 0D 0A 20 20 20 rive source..
022A10: 20 20 20 20 20 20 43 50 20 22 42 22 0D 0A 20 20 CP "B"..
022A20: 20 20 20 20 20 20 20 4A 52 20 5A 2C 43 48 47 44 JR Z,CHGD
022A30: 52 56 20 20 20 20 20 3B 43 68 61 6E 67 65 72 20 RV ;Changer
022A40: 64 72 69 76 65 20 64 65 73 74 69 6E 61 74 69 6F drive destinatio
022A50: 6E 0D 0A 20 20 20 20 20 20 20 20 20 43 50 20 22 n.. CP "
022A60: 43 22 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 20 C".. JR
022A70: 5A 2C 43 48 47 54 53 20 20 20 20 20 20 3B 43 68 Z,CHGTS ;Ch
022A80: 61 6E 67 65 72 20 74 65 74 65 20 73 6F 75 72 63 anger tete sourc
022A90: 65 0D 0A 20 20 20 20 20 20 20 20 20 43 50 20 22 e.. CP "
022AA0: 44 22 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 20 D".. JR
022AB0: 5A 2C 43 48 47 54 44 20 20 20 20 20 20 3B 43 68 Z,CHGTD ;Ch
022AC0: 61 6E 67 65 72 20 74 65 74 65 20 64 65 73 74 69 anger tete desti
022AD0: 6E 61 74 69 6F 6E 0D 0A 20 20 20 20 20 20 20 20 nation..
022AE0: 20 43 50 20 22 45 22 0D 0A 20 20 20 20 20 20 20 CP "E"..
022AF0: 20 20 4A 50 20 5A 2C 43 48 47 49 4D 50 20 20 20 JP Z,CHGIMP
022B00: 20 20 3B 49 6D 70 72 69 6D 61 6E 74 65 20 4F 4E ;Imprimante ON
022B10: 2F 4F 46 46 0D 0A 20 20 20 20 20 20 20 20 20 43 /OFF.. C
022B20: 50 20 31 33 0D 0A 20 20 20 20 20 20 20 20 20 4A P 13.. J
022B30: 52 20 5A 2C 44 4F 4E 50 49 53 54 20 20 20 20 3B R Z,DONPIST ;
022B40: 46 69 6E 20 64 65 20 73 65 6C 65 63 74 69 6F 6E Fin de selection
022B50: 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 20 54 53 .. JR TS
022B60: 54 43 48 47 0D 0A 20 3B 0D 0A 20 43 48 47 53 20 TCHG.. ;.. CHGS
022B70: 20 20 20 4C 44 20 41 2C 28 44 52 4C 29 20 20 20 LD A,(DRL)
022B80: 20 20 20 20 20 20 20 3B 43 48 41 4E 47 45 20 44 ;CHANGE D
022B90: 52 49 56 45 20 53 4F 55 52 43 45 0D 0A 20 20 20 RIVE SOURCE..
022BA0: 20 20 20 20 20 20 43 41 4C 4C 20 43 48 41 4E 47 CALL CHANG
022BB0: 45 20 20 20 20 20 20 20 20 20 3B 42 61 73 63 75 E ;Bascu
022BC0: 6C 65 20 30 2D 31 20 6F 75 20 31 2D 30 0D 0A 20 le 0-1 ou 1-0..
022BD0: 20 20 20 20 20 20 20 20 4C 44 20 28 44 52 4C 29 LD (DRL)
022BE0: 2C 41 0D 0A 20 20 20 20 20 20 20 20 20 41 44 44 ,A.. ADD
022BF0: 20 41 2C 23 34 31 20 20 20 20 20 20 20 20 20 20 A,#41
022C00: 20 3B 4E 75 6D 65 72 6F 20 64 72 69 76 65 20 65 ;Numero drive e
022C10: 6E 20 41 53 43 49 49 0D 0A 20 20 20 20 20 20 20 n ASCII..
022C20: 20 20 4C 44 20 28 54 53 4F 55 44 45 53 2B 32 30 LD (TSOUDES+20
022C30: 29 2C 41 20 20 20 3B 4D 6F 64 69 66 69 65 72 20 ),A ;Modifier
022C40: 74 65 78 74 65 73 0D 0A 20 20 20 20 20 20 20 20 textes..
022C50: 20 4C 44 20 28 54 53 4F 55 52 43 45 2B 33 33 29 LD (TSOURCE+33)
022C60: 2C 41 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 20 ,A.. JR
022C70: 54 53 54 43 48 47 0D 0A 20 3B 0D 0A 20 43 48 47 TSTCHG.. ;.. CHG
022C80: 44 52 56 20 20 4C 44 20 41 2C 28 44 52 57 29 20 DRV LD A,(DRW)
022C90: 20 20 20 20 20 20 20 20 20 3B 43 48 41 4E 47 45 ;CHANGE
022CA0: 20 44 52 49 56 45 20 44 45 53 54 49 4E 41 54 49 DRIVE DESTINATI
022CB0: 4F 4E 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C ON.. CAL
022CC0: 4C 20 43 48 41 4E 47 45 0D 0A 20 20 20 20 20 20 L CHANGE..
022CD0: 20 20 20 4C 44 20 28 44 52 57 29 2C 41 0D 0A 20 LD (DRW),A..
022CE0: 20 20 20 20 20 20 20 20 41 44 44 20 41 2C 23 34 ADD A,#4
022CF0: 31 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 1.. LD (
022D00: 54 53 4F 55 44 45 53 2B 34 37 29 2C 41 0D 0A 20 TSOUDES+47),A..
022D10: 20 20 20 20 20 20 20 20 4C 44 20 28 54 44 45 53 LD (TDES
022D20: 54 49 4E 2B 33 38 29 2C 41 0D 0A 20 20 20 20 20 TIN+38),A..
022D30: 20 20 20 20 4A 52 20 54 53 54 43 48 47 0D 0A 20 JR TSTCHG..
022D40: 3B 0D 0A 20 43 48 47 54 53 20 20 20 4C 44 20 41 ;.. CHGTS LD A
022D50: 2C 28 48 44 4C 29 20 20 20 20 20 20 20 20 20 20 ,(HDL)
022D60: 3B 43 48 41 4E 47 45 20 54 45 54 45 20 53 4F 55 ;CHANGE TETE SOU
022D70: 52 43 45 0D 0A 20 20 20 20 20 20 20 20 20 43 41 RCE.. CA
022D80: 4C 4C 20 43 48 41 4E 47 45 0D 0A 20 20 20 20 20 LL CHANGE..
022D90: 20 20 20 20 4C 44 20 28 48 44 4C 29 2C 41 0D 0A LD (HDL),A..
022DA0: 20 20 20 20 20 20 20 20 20 4C 44 20 48 4C 2C 54 LD HL,T
022DB0: 53 4F 55 44 45 53 2B 32 31 0D 0A 20 20 20 20 20 SOUDES+21..
022DC0: 20 20 20 20 4A 52 20 43 48 47 48 44 0D 0A 20 3B JR CHGHD.. ;
022DD0: 0D 0A 20 43 48 47 54 44 20 20 20 4C 44 20 41 2C .. CHGTD LD A,
022DE0: 28 48 44 57 29 20 20 20 20 20 20 20 20 20 20 3B (HDW) ;
022DF0: 43 48 41 4E 47 45 20 54 45 54 45 20 44 45 53 54 CHANGE TETE DEST
022E00: 49 4E 41 54 49 4F 4E 0D 0A 20 20 20 20 20 20 20 INATION..
022E10: 20 20 43 41 4C 4C 20 43 48 41 4E 47 45 0D 0A 20 CALL CHANGE..
022E20: 20 20 20 20 20 20 20 20 4C 44 20 28 48 44 57 29 LD (HDW)
022E30: 2C 41 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 ,A.. LD
022E40: 48 4C 2C 54 53 4F 55 44 45 53 2B 34 38 0D 0A 20 HL,TSOUDES+48..
022E50: 43 48 47 48 44 20 20 20 41 44 44 20 41 2C 22 30 CHGHD ADD A,"0
022E60: 22 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 ".. LD (
022E70: 48 4C 29 2C 41 0D 0A 20 20 20 20 20 20 20 20 20 HL),A..
022E80: 4A 52 20 54 53 54 43 48 47 0D 0A 20 3B 0D 0A 20 JR TSTCHG.. ;..
022E90: 43 48 47 49 4D 50 20 20 4C 44 20 41 2C 28 46 4C CHGIMP LD A,(FL
022EA0: 41 47 49 4D 50 29 20 20 20 20 20 20 3B 49 4D 50 AGIMP) ;IMP
022EB0: 52 49 4D 41 4E 54 45 20 4F 4E 2F 4F 46 46 0D 0A RIMANTE ON/OFF..
022EC0: 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 43 48 CALL CH
022ED0: 41 4E 47 45 0D 0A 20 20 20 20 20 20 20 20 20 4C ANGE.. L
022EE0: 44 20 48 4C 2C 54 4E 4F 4E 20 20 20 20 20 20 20 D HL,TNON
022EF0: 20 20 20 3B 54 65 78 74 65 20 27 4E 4F 4E 27 0D ;Texte 'NON'.
022F00: 0A 20 20 20 20 20 20 20 20 20 4F 52 20 41 0D 0A . OR A..
022F10: 20 20 20 20 20 20 20 20 20 4A 52 20 5A 2C 49 4D JR Z,IM
022F20: 50 4F 46 46 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 POFF.. ;..
022F30: 20 20 20 43 41 4C 4C 20 23 42 44 32 45 20 20 20 CALL #BD2E
022F40: 20 20 20 20 20 20 20 3B 53 69 20 69 6D 70 72 69 ;Si impri
022F50: 6D 61 6E 74 65 20 70 61 73 20 72 65 61 64 79 20 mante pas ready
022F60: 2C 20 42 49 50 20 65 74 20 61 62 61 6E 64 6F 6E , BIP et abandon
022F70: 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 20 4E 43 .. JR NC
022F80: 2C 49 4D 50 4F 4E 0D 0A 20 20 20 20 20 20 20 20 ,IMPON..
022F90: 20 4C 44 20 41 2C 37 0D 0A 20 20 20 20 20 20 20 LD A,7..
022FA0: 20 20 43 41 4C 4C 20 23 42 42 35 41 0D 0A 20 20 CALL #BB5A..
022FB0: 20 20 20 20 20 20 20 4A 50 20 54 53 54 43 48 47 JP TSTCHG
022FC0: 0D 0A 20 3B 0D 0A 20 49 4D 50 4F 4E 20 20 20 4C .. ;.. IMPON L
022FD0: 44 20 48 4C 2C 54 4F 55 49 20 20 20 20 20 20 20 D HL,TOUI
022FE0: 20 20 20 3B 54 65 78 74 65 20 27 4F 55 49 27 0D ;Texte 'OUI'.
022FF0: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 41 2C 31 . LD A,1
023000: 0D 0A 20 49 4D 50 4F 46 46 20 20 4C 44 20 28 46 .. IMPOFF LD (F
023010: 4C 41 47 49 4D 50 29 2C 41 0D 0A 20 3B 0D 0A 20 LAGIMP),A.. ;..
023020: 49 4D 50 53 45 54 20 20 4C 44 20 44 45 2C 54 49 IMPSET LD DE,TI
023030: 4D 50 52 49 4D 2B 33 30 20 20 20 20 3B 4D 6F 64 MPRIM+30 ;Mod
023040: 69 66 69 65 72 20 74 65 78 74 65 20 69 6D 70 72 ifier texte impr
023050: 69 6D 61 6E 74 65 0D 0A 20 20 20 20 20 20 20 20 imante..
023060: 20 4C 44 20 42 43 2C 33 0D 0A 20 20 20 20 20 20 LD BC,3..
023070: 20 20 20 4C 44 49 52 0D 0A 20 20 20 20 20 20 20 LDIR..
023080: 20 20 4C 44 20 48 4C 2C 54 49 4D 50 52 49 4D 0D LD HL,TIMPRIM.
023090: 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 50 . CALL P
0230A0: 52 54 0D 0A 20 20 20 20 20 20 20 20 20 4A 50 20 RT.. JP
0230B0: 54 53 54 43 48 47 0D 0A 20 3B 0D 0A 20 43 48 41 TSTCHG.. ;.. CHA
0230C0: 4E 47 45 20 20 49 4E 43 20 41 20 20 20 20 20 20 NGE INC A
0230D0: 20 20 20 20 20 3B 53 69 20 41 20 65 74 61 69 74 ;Si A etait
0230E0: 20 31 2C 41 20 64 65 76 69 65 6E 74 20 30 2E 20 1,A devient 0.
0230F0: 53 69 20 65 74 61 69 74 20 30 20 64 65 76 69 65 Si etait 0 devie
023100: 6E 74 20 31 0D 0A 20 20 20 20 20 20 20 20 20 43 nt 1.. C
023110: 50 20 31 0D 0A 20 20 20 20 20 20 20 20 20 52 45 P 1.. RE
023120: 54 20 5A 0D 0A 20 20 20 20 20 20 20 20 20 58 4F T Z.. XO
023130: 52 20 41 0D 0A 20 20 20 20 20 20 20 20 20 52 45 R A.. RE
023140: 54 0D 0A 20 3B 0D 0A 20 44 4F 4E 50 49 53 54 20 T.. ;.. DONPIST
023150: 4C 44 20 41 2C 34 31 20 20 20 20 20 20 20 20 20 LD A,41
023160: 3B 49 6E 69 74 69 61 6C 69 73 65 72 20 64 65 72 ;Initialiser der
023170: 6E 69 65 72 65 73 20 70 69 73 74 65 73 20 61 75 nieres pistes au
023180: 20 6D 61 78 69 6D 75 6D 0D 0A 20 20 20 20 20 20 maximum..
023190: 20 20 20 43 41 4C 4C 20 53 45 54 44 45 52 0D 0A CALL SETDER..
0231A0: 20 20 20 20 20 20 20 20 20 4C 44 20 48 4C 2C 54 LD HL,T
0231B0: 50 49 53 54 31 20 20 20 20 3B 44 6F 6E 6E 65 72 PIST1 ;Donner
0231C0: 20 70 69 73 74 65 20 64 65 20 64 65 62 75 74 0D piste de debut.
0231D0: 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 49 . CALL I
0231E0: 4E 50 55 50 52 54 32 0D 0A 20 20 20 20 20 20 20 NPUPRT2..
0231F0: 20 20 4C 44 20 28 50 52 45 4D 50 49 53 29 2C 41 LD (PREMPIS),A
023200: 20 20 3B 50 72 65 6D 69 65 72 65 20 70 69 73 74 ;Premiere pist
023210: 65 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 e.. LD (
023220: 4D 45 4D 4F 44 45 42 29 2C 41 20 20 3B 4D 65 6D MEMODEB),A ;Mem
023230: 6F 72 69 73 65 72 20 70 6F 75 72 20 72 65 70 72 oriser pour repr
023240: 69 73 65 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 ise.. LD
023250: 20 28 50 49 53 54 4C 29 2C 41 20 20 20 20 3B 50 (PISTL),A ;P
023260: 6F 75 72 20 6C 65 63 74 75 72 65 0D 0A 20 20 20 our lecture..
023270: 20 20 20 20 20 20 4C 44 20 28 50 49 53 54 57 29 LD (PISTW)
023280: 2C 41 20 20 20 20 3B 65 74 20 70 6F 75 72 20 65 ,A ;et pour e
023290: 63 72 69 74 75 72 65 0D 0A 20 3B 0D 0A 20 20 20 criture.. ;..
0232A0: 20 20 20 20 20 20 4C 44 20 48 4C 2C 54 50 49 53 LD HL,TPIS
0232B0: 54 32 20 20 20 20 3B 44 6F 6E 6E 65 72 20 70 69 T2 ;Donner pi
0232C0: 73 74 65 20 64 65 20 66 69 6E 0D 0A 20 20 20 20 ste de fin..
0232D0: 20 20 20 20 20 43 41 4C 4C 20 49 4E 50 55 50 52 CALL INPUPR
0232E0: 54 32 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C T2.. CAL
0232F0: 4C 20 53 45 54 44 45 52 20 20 20 20 20 3B 4D 45 L SETDER ;ME
023300: 20 20 6C 61 20 20 63 61 73 65 20 64 7B 70 61 72 la case d{par
023310: 74 20 61 76 65 63 20 75 6E 20 70 6F 69 6E 74 20 t avec un point
023320: 64 65 20 6C 6F 6E 67 75 65 75 72 0D 0A 20 65 6E de longueur.. en
023330: 20 6D 6F 69 6E 73 20 2E 0D 0A 20 0D 0A 20 20 20 moins ... ..
023340: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
023350: 20 20 20 20 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D ------
023360: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D ---------------.
023370: 0A 20 3B 0D 0A 20 45 58 49 45 43 52 41 20 4C 44 . ;.. EXIECRA LD
023380: 20 41 2C 28 4E 42 53 50 52 4F 56 29 20 20 3B 56 A,(NBSPROV) ;V
023390: 6F 69 72 20 73 69 20 6C 65 20 6E 6F 6D 62 72 65 oir si le nombre
0233A0: 20 6D 61 78 69 6D 75 6D 20 64 65 20 73 65 63 74 maximum de sect
0233B0: 65 75 72 73 20 74 6F 6C 65 72 65 73 20 70 61 72 eurs toleres par
0233C0: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 42 2C .. LD B,
0233D0: 41 20 20 20 20 20 20 20 20 20 20 3B 6C 61 20 74 A ;la t
0233E0: 61 69 6C 6C 65 20 64 65 20 66 6F 72 6D 61 74 20 aille de format
0233F0: 65 73 74 20 64 65 70 61 73 73 65 20 2E 0D 0A 20 est depasse ...
023400: 20 20 20 20 20 20 20 20 43 41 4C 4C 20 52 45 43 CALL REC
023410: 54 49 4E 42 31 20 20 20 3B 52 45 43 54 49 4E 42 TINB1 ;RECTINB
023420: 31 20 66 61 69 74 20 6C 65 73 20 63 6F 6D 70 74 1 fait les compt
023430: 65 73 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 20 es.. JR
023440: 43 2C 46 49 4E 45 43 52 41 20 20 20 20 3B 53 69 C,FINECRA ;Si
023450: 20 63 27 65 73 74 20 6A 75 73 74 65 20 2C 20 63 c'est juste , c
023460: 27 65 73 74 20 66 69 6E 69 20 2E 0D 0A 20 3B 0D 'est fini ... ;.
023470: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 41 2C 28 . LD A,(
023480: 4C 4D 49 4E 29 20 20 20 20 20 3B 4F 6E 20 64 65 LMIN) ;On de
023490: 62 6F 72 64 65 20 2E 20 53 69 20 4C 4D 49 4E 20 borde . Si LMIN
0234A0: 65 74 61 69 74 20 7A 65 72 6F 20 6F 6E 20 61 20 etait zero on a
0234B0: 76 72 61 69 6D 65 6E 74 0D 0A 20 20 20 20 20 20 vraiment..
0234C0: 20 20 20 4F 52 20 41 20 20 20 20 20 20 20 20 20 OR A
0234D0: 20 20 20 3B 75 6E 20 70 72 6F 62 6C 65 6D 65 20 ;un probleme
0234E0: 65 74 20 6F 6E 20 6C 61 69 73 73 65 20 74 6F 6D et on laisse tom
0234F0: 62 65 72 20 21 20 28 43 61 73 20 69 6E 63 6F 6E ber ! (Cas incon
023500: 6E 75 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 20 nu.. JR
023510: 5A 2C 46 49 4E 45 43 52 41 20 20 20 20 3B 61 20 Z,FINECRA ;a
023520: 63 65 20 6A 6F 75 72 29 0D 0A 20 3B 0D 0A 20 20 ce jour).. ;..
023530: 20 20 20 20 20 20 20 44 45 43 20 41 0D 0A 20 20 DEC A..
023540: 20 20 20 20 20 20 20 4C 44 20 28 4C 4D 49 4E 29 LD (LMIN)
023550: 2C 41 20 20 20 20 20 3B 53 69 6E 6F 6E 20 6F 6E ,A ;Sinon on
023560: 20 72 65 63 6F 6D 6D 65 6E 63 65 20 61 76 65 63 recommence avec
023570: 20 6C 61 20 74 61 69 6C 6C 65 20 65 6E 20 64 65 la taille en de
023580: 73 73 6F 75 73 0D 0A 20 20 20 20 20 20 20 20 20 ssous..
023590: 43 41 4C 4C 20 41 44 44 4C 4F 4E 20 20 20 20 20 CALL ADDLON
0235A0: 3B 52 65 66 61 69 72 65 20 4C 4F 4E 47 53 45 43 ;Refaire LONGSEC
0235B0: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 41 2C .. LD A,
0235C0: 33 20 20 20 20 20 20 20 20 20 20 3B 44 61 6E 73 3 ;Dans
0235D0: 20 63 65 20 63 61 73 20 6C 65 20 47 41 50 20 61 ce cas le GAP a
0235E0: 20 39 39 25 20 64 65 20 63 68 61 6E 63 65 73 20 99% de chances
0235F0: 64 27 65 74 72 65 0D 0A 20 20 20 20 20 20 20 20 d'etre..
023600: 20 4C 44 20 28 47 41 50 46 4F 52 4D 29 2C 41 20 LD (GAPFORM),A
023610: 20 3B 66 61 75 78 20 21 20 4F 6E 20 6C 65 20 6D ;faux ! On le m
023620: 65 74 20 61 75 20 6D 69 6E 69 6D 75 6D 0D 0A 20 et au minimum..
023630: 20 20 20 20 20 20 20 20 43 41 4C 4C 20 53 45 54 CALL SET
023640: 47 52 57 20 20 20 20 20 3B 73 61 6E 73 20 6F 75 GRW ;sans ou
023650: 62 6C 69 65 72 20 6C 65 20 47 41 50 20 52 2F 57 blier le GAP R/W
023660: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 41 2C .. LD A,
023670: 28 4E 42 53 45 43 29 20 20 20 20 3B 4C 65 20 6E (NBSEC) ;Le n
023680: 6F 6D 62 72 65 20 64 65 20 73 65 63 74 65 75 72 ombre de secteur
023690: 73 20 64 6F 69 74 20 65 74 72 65 20 72 65 69 6E s doit etre rein
0236A0: 69 74 69 61 6C 69 73 65 0D 0A 20 20 20 20 20 20 itialise..
0236B0: 20 20 20 4C 44 20 28 4E 42 53 50 52 4F 56 29 2C LD (NBSPROV),
0236C0: 41 20 20 3B 61 20 73 6F 6E 20 6E 6F 6D 62 72 65 A ;a son nombre
0236D0: 20 69 6E 69 74 69 61 6C 0D 0A 20 20 20 20 20 20 initial..
0236E0: 20 20 20 4A 50 20 45 43 52 41 53 45 52 0D 0A 20 JP ECRASER..
0236F0: 3B 0D 0A 20 46 49 4E 45 43 52 41 20 4C 44 20 41 ;.. FINECRA LD A
023700: 2C 42 20 20 20 20 20 20 20 20 20 20 3B 4E 6F 75 ,B ;Nou
023710: 76 65 61 75 20 6E 6F 6D 62 72 65 20 64 65 20 73 veau nombre de s
023720: 65 63 74 65 75 72 73 20 63 61 6C 63 75 6C 65 73 ecteurs calcules
023730: 20 63 6F 6D 6D 65 0D 0A 20 20 20 20 20 20 20 20 comme..
023740: 20 4C 44 20 28 4E 42 53 45 43 29 2C 41 20 20 20 LD (NBSEC),A
023750: 20 3B 6E 6F 6D 62 72 65 20 61 20 66 6F 72 6D 61 ;nombre a forma
023760: 74 65 72 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 ter.. LD
023770: 20 48 4C 2C 49 44 4F 55 54 44 52 41 20 20 3B 52 HL,IDOUTDRA ;R
023780: 65 63 6F 70 69 65 72 20 6C 65 73 20 6E 6F 75 76 ecopier les nouv
023790: 65 61 75 78 20 49 44 53 20 64 61 6E 73 20 6C 61 eaux IDS dans la
0237A0: 20 7A 6F 6E 65 20 49 44 20 4C 55 53 0D 0A 20 20 zone ID LUS..
0237B0: 20 20 20 20 20 20 20 4C 44 20 44 45 2C 49 44 49 LD DE,IDI
0237C0: 4E 44 52 41 20 20 20 3B 70 6F 75 72 20 6E 65 20 NDRA ;pour ne
0237D0: 70 61 73 20 61 76 6F 69 72 20 64 65 20 70 72 6F pas avoir de pro
0237E0: 62 6C 65 6D 65 73 20 6C 6F 72 73 20 64 75 20 73 blemes lors du s
0237F0: 74 6F 63 6B 61 67 65 0D 0A 20 20 20 20 20 20 20 tockage..
023800: 20 20 4C 44 20 42 43 2C 32 35 36 0D 0A 20 20 20 LD BC,256..
023810: 20 20 20 20 20 20 4C 44 49 52 0D 0A 20 20 20 20 LDIR..
023820: 20 20 20 20 20 4C 44 20 42 2C 30 0D 0A 20 20 20 LD B,0..
023830: 20 20 20 20 20 20 4C 44 20 43 2C 41 20 20 20 20 LD C,A
023840: 20 20 20 20 20 20 3B 41 3D 4E 42 53 45 43 0D 0A ;A=NBSEC..
023850: 20 20 20 20 20 20 20 20 20 4C 44 20 48 4C 2C 4C LD HL,L
023860: 45 52 50 52 4F 56 20 20 20 3B 45 74 20 72 65 63 ERPROV ;Et rec
023870: 6F 70 69 65 72 20 6C 61 20 6E 6F 75 76 65 6C 6C opier la nouvell
023880: 65 20 6C 69 73 74 65 20 64 65 73 20 65 72 72 65 e liste des erre
023890: 75 72 73 20 61 76 65 63 0D 0A 20 20 20 20 20 20 urs avec..
0238A0: 20 20 20 4C 44 20 44 45 2C 4C 49 53 54 45 52 52 LD DE,LISTERR
0238B0: 20 20 20 3B 73 65 73 20 6F 63 74 65 74 73 20 61 ;ses octets a
0238C0: 20 23 37 46 20 63 6F 72 72 65 73 70 6F 6E 64 61 #7F corresponda
0238D0: 6E 74 20 61 75 78 20 49 44 53 0D 0A 20 20 20 20 nt aux IDS..
0238E0: 20 20 20 20 20 4C 44 49 52 20 20 20 20 20 20 20 LDIR
0238F0: 20 20 20 20 20 3B 71 75 69 20 73 65 72 6F 6E 74 ;qui seront
023900: 20 64 65 74 72 75 69 74 73 20 70 61 72 20 6C 61 detruits par la
023910: 20 73 75 69 74 65 0D 0A 20 20 20 20 20 20 20 20 suite..
023920: 20 52 45 54 20 0D 0A 20 3B 0D 0A 20 54 42 30 32 RET .. ;.. TB02
023930: 20 20 20 20 44 42 20 23 35 44 2C 30 0D 0A 20 54 DB #5D,0.. T
023940: 42 30 33 20 20 20 20 44 42 20 23 41 33 2C 23 34 B03 DB #A3,#4
023950: 38 2C 23 31 41 2C 30 0D 0A 20 54 42 30 34 20 20 8,#1A,0.. TB04
023960: 20 20 44 42 20 23 45 37 2C 23 41 31 2C 23 36 46 DB #E7,#A1,#6F
023970: 2C 23 34 39 2C 30 0D 0A 20 54 42 30 35 20 20 20 ,#49,0.. TB05
023980: 20 44 42 20 23 45 31 2C 23 42 43 2C 23 39 43 2C DB #E1,#BC,#9C,
023990: 23 38 32 2C 23 36 42 2C 23 35 37 2C 23 34 36 2C #82,#6B,#57,#46,
0239A0: 23 33 38 2C 23 32 39 2C 23 31 44 2C 23 31 32 2C #38,#29,#1D,#12,
0239B0: 23 30 38 2C 30 0D 0A 20 3B 0D 0A 20 54 42 31 33 #08,0.. ;.. TB13
0239C0: 20 20 20 20 44 42 20 23 44 44 2C 23 32 41 2C 30 DB #DD,#2A,0
0239D0: 0D 0A 20 54 42 31 34 20 20 20 20 44 42 20 23 44 .. TB14 DB #D
0239E0: 30 2C 23 36 37 2C 23 32 31 2C 30 0D 0A 20 54 42 0,#67,#21,0.. TB
0239F0: 31 35 20 20 20 20 44 42 20 23 43 39 2C 23 39 30 15 DB #C9,#90
023A00: 2C 23 36 32 2C 23 33 43 2C 23 31 43 2C 30 0D 0A ,#62,#3C,#1C,0..
023A10: 20 3B 0D 0A 20 54 42 32 34 20 20 20 20 44 42 20 ;.. TB24 DB
023A20: 23 38 30 2C 30 0D 0A 20 3B 0D 0A 20 52 45 43 54 #80,0.. ;.. RECT
023A30: 49 4E 42 20 4C 44 20 41 2C 28 4E 42 53 45 43 29 INB LD A,(NBSEC)
023A40: 20 20 20 20 3B 4A 75 73 74 65 20 75 6E 65 20 73 ;Juste une s
023A50: 75 69 74 65 20 64 65 20 63 6F 6D 70 61 72 61 69 uite de comparai
023A60: 73 6F 6E 73 20 71 75 69 20 73 27 61 73 73 75 72 sons qui s'assur
023A70: 65 0D 0A 20 52 45 43 54 49 4E 42 31 20 4C 44 20 e.. RECTINB1 LD
023A80: 42 2C 41 20 20 20 20 20 20 20 20 20 3B 64 75 20 B,A ;du
023A90: 62 6F 6E 20 72 61 70 70 6F 72 74 20 65 6E 74 72 bon rapport entr
023AA0: 65 20 6E 6F 6D 62 72 65 20 64 65 20 73 65 63 74 e nombre de sect
023AB0: 65 75 72 73 20 65 74 0D 0A 20 3B 20 20 20 20 20 eurs et.. ;
023AC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
023AD0: 20 20 3B 74 61 69 6C 6C 65 20 64 75 20 66 6F 72 ;taille du for
023AE0: 6D 61 74 20 2E 20 49 63 69 20 6C 61 20 74 61 69 mat . Ici la tai
023AF0: 6C 6C 65 20 64 75 20 47 41 50 20 6E 27 61 20 70 lle du GAP n'a p
023B00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
023B10: 1E 00 01 00 02 09 4E E5 1E 00 C1 02 00 00 00 02 ......N.........
023B20: 1E 00 C2 02 00 00 00 02 1E 00 C3 02 00 00 00 02 ................
023B30: 1E 00 C4 02 00 00 00 02 1E 00 C5 02 00 00 00 02 ................
023B40: 1E 00 C6 02 00 00 00 02 1E 00 C7 02 00 00 00 02 ................
023B50: 1E 00 C8 02 00 00 00 02 1E 00 C9 02 00 00 00 02 ................
023B60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023B70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023B80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023B90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023BA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023BB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023BC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023BD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023BE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023BF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023C00: 4D 4F 45 4E 44 3D 44 45 52 50 49 53 54 20 2C 20 MOEND=DERPIST ,
023C10: 50 49 53 54 4D 41 58 3D 44 45 52 50 49 53 54 2B PISTMAX=DERPIST+
023C20: 31 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 1.. CALL
023C30: 20 56 45 52 49 50 49 53 0D 0A 20 20 20 20 20 20 VERIPIS..
023C40: 20 20 20 4A 52 20 4E 43 2C 44 4F 4E 50 49 53 54 JR NC,DONPIST
023C50: 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 4C .. ;.. L
023C60: 44 20 48 4C 2C 23 32 32 31 35 0D 0A 20 20 20 20 D HL,#2215..
023C70: 20 20 20 20 20 43 41 4C 4C 20 43 4F 4E 46 49 52 CALL CONFIR
023C80: 4D 20 20 20 20 3B 43 61 20 76 6F 75 73 20 76 61 M ;Ca vous va
023C90: 20 3F 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 20 ?.. JR
023CA0: 4E 43 2C 44 4F 4E 50 49 53 54 20 20 20 3B 4E 4F NC,DONPIST ;NO
023CB0: 4E 20 21 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 N !.. ;..
023CC0: 20 20 20 20 20 20 20 20 20 20 20 20 3B 2D 2D 2D ;---
023CD0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
023CE0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
023CF0: 2D 2D 2D 2D 2D 0D 0A 20 20 20 20 20 20 20 20 20 -----..
023D00: 20 20 20 20 20 20 20 20 20 20 3B 2D 20 50 4F 49 ;- POI
023D10: 4E 54 20 44 45 20 52 45 50 52 49 53 45 20 50 4F NT DE REPRISE PO
023D20: 55 52 20 4D 45 4D 45 20 4F 50 45 52 41 54 49 4F UR MEME OPERATIO
023D30: 4E 20 2D 0D 0A 20 20 20 20 20 20 20 20 20 20 20 N -..
023D40: 20 20 20 20 20 20 20 20 3B 2D 2D 2D 2D 2D 2D 2D ;-------
023D50: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
023D60: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
023D70: 2D 0D 0A 20 3B 0D 0A 20 4D 45 4D 45 4F 50 20 20 -.. ;.. MEMEOP
023D80: 43 41 4C 4C 20 45 46 46 53 43 52 20 20 20 20 3B CALL EFFSCR ;
023D90: 45 66 66 61 63 65 72 20 64 65 20 6C 61 20 6C 69 Effacer de la li
023DA0: 67 6E 65 20 35 20 61 20 6C 61 20 66 69 6E 20 64 gne 5 a la fin d
023DB0: 65 20 6C 27 65 63 72 61 6E 0D 0A 20 20 20 20 20 e l'ecran..
023DC0: 20 20 20 20 4C 44 20 41 2C 34 31 20 20 20 20 20 LD A,41
023DD0: 20 20 20 3B 54 65 6D 70 6F 72 69 73 61 74 69 6F ;Temporisatio
023DE0: 6E 20 47 4F 50 49 53 54 45 20 61 75 20 6D 61 78 n GOPISTE au max
023DF0: 69 6D 75 6D 20 73 69 6E 6F 6E 20 75 6E 0D 0A 20 imum sinon un..
023E00: 20 20 20 20 20 20 20 20 4C 44 20 28 57 41 49 54 LD (WAIT
023E10: 50 49 53 29 2C 41 20 3B 64 65 70 6C 61 63 65 6D PIS),A ;deplacem
023E20: 65 6E 74 20 69 6D 70 6F 72 74 61 6E 74 20 6E 65 ent important ne
023E30: 20 74 72 6F 75 76 65 20 70 61 73 20 6C 61 20 70 trouve pas la p
023E40: 69 73 74 65 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 iste.. ;..
023E50: 20 20 20 58 4F 52 20 41 20 20 20 20 20 20 20 20 XOR A
023E60: 20 20 3B 41 66 66 69 63 68 65 72 20 74 65 78 74 ;Afficher text
023E70: 65 73 20 64 65 73 74 69 6E 61 74 69 6F 6E 2D 73 es destination-s
023E80: 6F 75 72 63 65 0D 0A 20 20 20 20 20 20 20 20 20 ource..
023E90: 43 41 4C 4C 20 52 45 49 4E 49 54 20 20 20 20 3B CALL REINIT ;
023EA0: 52 41 5A 20 42 75 66 66 65 72 20 65 74 20 70 6F RAZ Buffer et po
023EB0: 69 6E 74 65 75 72 73 20 53 45 54 4C 45 43 54 20 inteurs SETLECT
023EC0: 2C 20 50 49 53 54 53 45 4C 3D 50 49 53 54 4C 0D , PISTSEL=PISTL.
023ED0: 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 43 41 . ;.. CA
023EE0: 4C 4C 20 43 50 44 52 49 56 45 20 20 20 3B 56 6F LL CPDRIVE ;Vo
023EF0: 69 72 20 73 69 20 32 20 64 72 69 76 65 73 20 3F ir si 2 drives ?
023F00: 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 20 5A 2C .. JR Z,
023F10: 55 4E 44 52 49 56 20 20 20 20 3B 4E 4F 4E 0D 0A UNDRIV ;NON..
023F20: 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 ;.. LD
023F30: 48 4C 2C 23 32 39 31 39 20 20 20 20 3B 32 20 44 HL,#2919 ;2 D
023F40: 72 69 76 65 73 20 2E 20 41 74 74 65 6E 64 72 65 rives . Attendre
023F50: 20 64 69 73 71 75 65 20 64 65 73 74 69 6E 61 74 disque destinat
023F60: 69 6F 6E 0D 0A 20 20 20 20 20 20 20 20 20 43 41 ion.. CA
023F70: 4C 4C 20 23 42 42 37 35 0D 0A 20 20 20 20 20 20 LL #BB75..
023F80: 20 20 20 4C 44 20 48 4C 2C 54 44 45 53 54 49 4E LD HL,TDESTIN
023F90: 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 .. CALL
023FA0: 50 52 54 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 PRT.. ;..
023FB0: 20 20 20 20 20 20 20 3B 2D 2D 2D 2D 2D 2D 2D 2D ;--------
023FC0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
023FD0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
023FE0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 20 20 20 20 ---------..
023FF0: 20 20 20 20 20 20 20 20 20 3B 2D 20 41 4E 41 4C ;- ANAL
024000: 59 53 45 20 2C 20 49 4E 54 45 52 50 52 45 54 41 YSE , INTERPRETA
024010: 54 49 4F 4E 20 2C 20 4C 45 43 54 55 52 45 20 2C TION , LECTURE ,
024020: 20 53 54 4F 43 4B 41 47 45 20 2D 0D 0A 20 20 20 STOCKAGE -..
024030: 20 20 20 20 20 20 20 20 20 20 20 3B 2D 2D 2D 2D ;----
024040: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
024050: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
024060: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 -------------..
024070: 3B 0D 0A 20 55 4E 44 52 49 56 20 20 43 41 4C 4C ;.. UNDRIV CALL
024080: 20 23 42 42 30 36 0D 0A 20 20 20 20 20 20 20 20 #BB06..
024090: 20 4C 44 20 48 4C 2C 4C 49 53 54 45 52 50 20 20 LD HL,LISTERP
0240A0: 20 3B 4D 69 73 65 20 61 20 7A 65 72 6F 20 64 65 ;Mise a zero de
0240B0: 20 6C 61 20 6C 69 73 74 65 20 64 65 73 20 65 72 la liste des er
0240C0: 72 65 75 72 73 20 70 69 73 74 65 0D 0A 20 20 20 reurs piste..
0240D0: 20 20 20 20 20 20 4C 44 20 28 50 4F 49 4E 45 52 LD (POINER
0240E0: 50 29 2C 48 4C 0D 0A 20 3B 0D 0A 20 20 20 20 20 P),HL.. ;..
0240F0: 20 20 20 20 20 20 20 20 20 20 20 20 3B 2D 20 50 ;- P
024100: 4F 49 4E 54 20 44 45 20 52 45 50 52 49 53 45 20 OINT DE REPRISE
024110: 41 50 52 45 53 20 49 4E 54 45 52 52 55 50 54 49 APRES INTERRUPTI
024120: 4F 4E 20 45 53 43 20 2D 0D 0A 20 3B 0D 0A 20 52 ON ESC -.. ;.. R
024130: 45 50 52 49 53 45 20 4C 44 20 42 43 2C 23 30 31 EPRISE LD BC,#01
024140: 30 31 20 20 20 3B 42 6F 75 63 6C 65 20 70 6F 75 01 ;Boucle pou
024150: 72 20 75 6E 65 20 70 69 73 74 65 0D 0A 20 20 20 r une piste..
024160: 20 20 20 20 20 20 43 41 4C 4C 20 23 42 43 33 38 CALL #BC38
024170: 20 20 20 20 3B 42 6F 72 64 20 62 6C 65 75 0D 0A ;Bord bleu..
024180: 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 ;.. LD
024190: 41 2C 36 36 20 20 20 20 20 20 20 3B 53 74 6F 70 A,66 ;Stop
0241A0: 70 65 72 20 73 69 20 45 53 43 20 70 72 65 73 73 per si ESC press
0241B0: 65 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C e.. CALL
0241C0: 20 23 42 42 31 45 0D 0A 20 20 20 20 20 20 20 20 #BB1E..
0241D0: 20 4A 50 20 4E 5A 2C 46 49 4E 49 53 48 0D 0A 20 JP NZ,FINISH..
0241E0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 48 ;.. LD H
0241F0: 4C 2C 54 4C 49 54 50 49 53 20 20 20 3B 41 66 66 L,TLITPIS ;Aff
024200: 69 63 68 65 72 20 70 69 73 74 65 20 65 6E 20 63 icher piste en c
024210: 6F 75 72 73 20 64 65 20 6C 65 63 74 75 72 65 0D ours de lecture.
024220: 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 50 . CALL P
024230: 52 54 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 RT.. LD
024240: 41 2C 28 50 49 53 54 4C 29 0D 0A 20 20 20 20 20 A,(PISTL)..
024250: 20 20 20 20 43 41 4C 4C 20 50 52 54 44 45 43 49 CALL PRTDECI
024260: 41 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 A.. ;..
024270: 43 41 4C 4C 20 47 4F 50 49 53 54 45 20 20 20 20 CALL GOPISTE
024280: 3B 41 4C 4C 45 52 20 50 49 53 54 45 0D 0A 20 20 ;ALLER PISTE..
024290: 20 20 20 20 20 20 20 43 41 4C 4C 20 41 4E 41 50 CALL ANAP
0242A0: 49 53 54 20 20 20 20 3B 41 4E 41 4C 59 53 45 52 IST ;ANALYSER
0242B0: 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 4C .. ;.. L
0242C0: 44 20 42 43 2C 23 30 39 30 39 0D 0A 20 20 20 20 D BC,#0909..
0242D0: 20 20 20 20 20 43 41 4C 4C 20 23 42 43 33 38 20 CALL #BC38
0242E0: 20 20 20 20 20 3B 42 6F 72 64 20 76 65 72 74 0D ;Bord vert.
0242F0: 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 53 . CALL S
024300: 54 4F 4B 50 49 53 54 20 20 20 3B 53 54 4F 43 4B TOKPIST ;STOCK
024310: 45 52 0D 0A 20 3B 0D 0A 20 57 41 49 54 53 50 41 ER.. ;.. WAITSPA
024320: 20 4C 44 20 41 2C 34 37 20 20 20 20 20 20 20 20 LD A,47
024330: 20 3B 41 74 74 65 6E 64 72 65 20 73 69 20 65 73 ;Attendre si es
024340: 70 61 63 65 20 70 72 65 73 73 65 0D 0A 20 20 20 pace presse..
024350: 20 20 20 20 20 20 43 41 4C 4C 20 23 42 42 31 45 CALL #BB1E
024360: 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 20 4E 5A .. JR NZ
024370: 2C 57 41 49 54 53 50 41 0D 0A 20 3B 0D 0A 20 20 ,WAITSPA.. ;..
024380: 20 20 20 20 20 20 20 4C 44 20 48 4C 2C 28 50 4F LD HL,(PO
024390: 49 4E 50 49 53 29 20 3B 50 4F 49 4E 50 49 53 20 INPIS) ;POINPIS
0243A0: 63 6F 6E 74 69 65 6E 74 20 6C 27 61 64 72 65 73 contient l'adres
0243B0: 73 65 20 64 65 20 66 69 6E 20 64 65 20 73 74 6F se de fin de sto
0243C0: 63 6B 61 67 65 20 2B 20 31 0D 0A 20 20 20 20 20 ckage + 1..
0243D0: 20 20 20 20 4C 44 20 44 45 2C 36 30 30 30 20 20 LD DE,6000
0243E0: 20 20 20 20 3B 54 65 73 74 65 72 20 73 69 20 69 ;Tester si i
0243F0: 6C 20 79 2D 61 20 64 65 20 6C 61 20 70 6C 61 63 l y-a de la plac
024400: 65 20 70 6F 75 72 20 6C 65 20 70 72 6F 63 68 61 e pour le procha
024410: 69 6E 0D 0A 20 20 20 20 20 20 20 20 20 41 44 44 in.. ADD
024420: 20 48 4C 2C 44 45 20 20 20 20 20 20 20 3B 73 74 HL,DE ;st
024430: 6F 63 6B 61 67 65 0D 0A 20 20 20 20 20 20 20 20 ockage..
024440: 20 4C 44 20 44 45 2C 33 30 30 30 30 20 20 20 20 LD DE,30000
024450: 20 3B 31 65 72 20 6F 63 74 65 74 20 6F 63 63 75 ;1er octet occu
024460: 70 65 20 70 61 72 20 6C 65 20 70 72 6F 67 72 61 pe par le progra
024470: 6D 6D 65 0D 0A 20 20 20 20 20 20 20 20 20 41 4E mme.. AN
024480: 44 20 41 0D 0A 20 20 20 20 20 20 20 20 20 53 42 D A.. SB
024490: 43 20 48 4C 2C 44 45 0D 0A 20 20 20 20 20 20 20 C HL,DE..
0244A0: 20 20 4A 52 20 4E 43 2C 43 4F 50 49 45 52 20 20 JR NC,COPIER
0244B0: 20 20 3B 43 61 20 63 6F 69 6E 63 65 20 21 20 41 ;Ca coince ! A
0244C0: 6C 6C 65 72 20 63 6F 70 69 65 72 20 65 74 20 76 ller copier et v
0244D0: 69 64 61 6E 67 65 72 20 6C 65 20 62 75 66 66 65 idanger le buffe
0244E0: 72 0D 0A 20 3B 0D 0A 20 4C 49 54 45 4E 43 4F 52 r.. ;.. LITENCOR
0244F0: 20 43 41 4C 4C 20 49 4E 43 50 49 53 54 20 20 20 CALL INCPIST
024500: 3B 43 61 20 70 61 73 73 65 20 2E 20 41 6C 6C 65 ;Ca passe . Alle
024510: 72 20 70 69 73 74 65 20 73 75 69 76 61 6E 74 65 r piste suivante
024520: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 41 2C .. LD A,
024530: 28 50 49 53 54 53 45 4C 29 20 20 3B 65 74 20 6D (PISTSEL) ;et m
024540: 65 6D 6F 72 69 73 65 72 20 70 69 73 74 65 20 6C emoriser piste l
024550: 65 63 74 75 72 65 20 65 6E 20 63 6F 75 72 73 20 ecture en cours
024560: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 50 .. LD (P
024570: 49 53 54 4C 29 2C 41 20 20 20 20 3B 53 69 20 69 ISTL),A ;Si i
024580: 6C 20 72 65 73 74 65 20 64 65 73 20 70 69 73 74 l reste des pist
024590: 65 73 20 61 20 74 72 61 69 74 65 72 20 49 4E 43 es a traiter INC
0245A0: 50 49 53 54 20 6D 65 74 20 6C 65 0D 0A 20 20 20 PIST met le..
0245B0: 20 20 20 20 20 20 4A 52 20 43 2C 52 45 50 52 49 JR C,REPRI
0245C0: 53 45 20 20 20 20 3B 43 41 52 52 59 20 73 69 20 SE ;CARRY si
0245D0: 4E 43 20 63 27 65 73 74 20 66 69 6E 69 20 6F 6E NC c'est fini on
0245E0: 20 72 65 70 72 6F 64 75 69 74 20 63 65 20 71 75 reproduit ce qu
0245F0: 69 20 72 65 73 74 65 0D 0A 20 3B 0D 0A 20 20 20 i reste.. ;..
024600: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
024610: 20 20 20 20 20 20 20 20 3B 2D 2D 2D 2D 2D 2D 2D ;-------
024620: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
024630: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
024640: 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 2D 20 ;-
024650: 52 45 43 4F 50 49 45 52 20 4C 45 53 20 50 49 53 RECOPIER LES PIS
024660: 54 45 53 20 2D 0D 0A 20 20 20 20 20 20 20 20 20 TES -..
024670: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
024680: 20 20 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ;-------------
024690: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 3B 0D 0A ----------.. ;..
0246A0: 20 43 4F 50 49 45 52 20 20 4C 44 20 41 2C 32 31 COPIER LD A,21
0246B0: 20 20 20 20 20 20 20 20 20 3B 52 65 70 72 6F 64 ;Reprod
0246C0: 75 69 72 65 20 73 69 20 62 75 66 66 65 72 20 70 uire si buffer p
0246D0: 6C 65 69 6E 20 6F 75 20 64 65 72 6E 69 65 72 65 lein ou derniere
0246E0: 20 70 69 73 74 65 0D 0A 20 20 20 20 20 20 20 20 piste..
0246F0: 20 43 41 4C 4C 20 45 46 46 42 41 53 20 20 20 20 CALL EFFBAS
024700: 20 3B 45 66 66 61 63 65 72 20 62 61 73 20 64 27 ;Effacer bas d'
024710: 65 63 72 61 6E 0D 0A 20 20 20 20 20 20 20 20 20 ecran..
024720: 4C 44 20 48 4C 2C 31 30 30 30 20 20 20 20 20 20 LD HL,1000
024730: 3B 50 6F 69 6E 74 65 72 20 31 65 72 20 6F 63 74 ;Pointer 1er oct
024740: 65 74 20 64 75 20 62 75 66 66 65 72 0D 0A 20 20 et du buffer..
024750: 20 20 20 20 20 20 20 4C 44 20 28 50 4F 49 4E 50 LD (POINP
024760: 49 53 29 2C 48 4C 0D 0A 20 20 20 20 20 20 20 20 IS),HL..
024770: 20 43 41 4C 4C 20 53 45 54 57 52 49 54 20 20 20 CALL SETWRIT
024780: 20 3B 50 61 72 61 6D 65 74 72 65 72 20 64 72 69 ;Parametrer dri
024790: 76 65 2D 74 65 74 65 20 65 63 72 69 74 75 72 65 ve-tete ecriture
0247A0: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 41 2C .. LD A,
0247B0: 28 50 49 53 54 57 29 20 20 20 20 3B 52 65 63 75 (PISTW) ;Recu
0247C0: 70 65 72 65 72 20 70 69 73 74 65 20 65 63 72 69 perer piste ecri
0247D0: 74 75 72 65 0D 0A 20 20 20 20 20 20 20 20 20 4C ture.. L
0247E0: 44 20 28 50 49 53 54 53 45 4C 29 2C 41 20 20 3B D (PISTSEL),A ;
0247F0: 49 6E 69 74 69 61 6C 69 73 65 72 20 70 69 73 74 Initialiser pist
024800: 65 20 65 63 72 69 74 75 72 65 0D 0A 20 3B 0D 0A e ecriture.. ;..
024810: 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 43 50 CALL CP
024820: 44 52 49 56 45 20 20 20 20 3B 32 20 64 72 69 76 DRIVE ;2 driv
024830: 65 73 20 3F 0D 0A 20 20 20 20 20 20 20 20 20 4C es ?.. L
024840: 44 20 48 4C 2C 54 44 45 53 54 49 4E 0D 0A 20 20 D HL,TDESTIN..
024850: 20 20 20 20 20 20 20 43 41 4C 4C 20 5A 2C 57 41 CALL Z,WA
024860: 49 54 44 49 53 43 20 3B 53 69 20 75 6E 20 73 65 ITDISC ;Si un se
024870: 75 6C 20 64 72 69 76 65 2C 20 6D 65 73 73 61 67 ul drive, messag
024880: 65 20 64 65 73 74 69 6E 61 74 69 6F 6E 20 65 74 e destination et
024890: 20 61 74 74 65 6E 64 72 65 0D 0A 20 3B 0D 0A 20 attendre.. ;..
0248A0: 20 20 20 20 20 20 20 20 4C 44 20 41 2C 23 34 31 LD A,#41
0248B0: 20 20 20 20 20 20 20 20 3B 52 65 63 61 6C 69 62 ;Recalib
0248C0: 72 65 72 20 73 75 72 20 70 69 73 74 65 20 30 20 rer sur piste 0
0248D0: 63 27 65 73 74 20 70 6C 75 73 20 70 72 75 64 65 c'est plus prude
0248E0: 6E 74 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 nt.. LD
0248F0: 28 57 41 49 54 50 49 53 29 2C 41 20 20 3B 54 65 (WAITPIS),A ;Te
024900: 6D 70 6F 72 69 73 61 74 69 6F 6E 20 47 4F 50 49 mporisation GOPI
024910: 53 54 45 20 61 75 20 4D 41 58 49 0D 0A 20 20 20 STE au MAXI..
024920: 20 20 20 20 20 20 43 41 4C 4C 20 43 41 4C 49 42 CALL CALIB
024930: 52 45 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 RE.. LD
024940: 42 43 2C 23 30 36 30 36 0D 0A 20 20 20 20 20 20 BC,#0606..
024950: 20 20 20 43 41 4C 4C 20 23 42 43 33 38 20 20 20 CALL #BC38
024960: 20 20 20 3B 42 6F 72 64 20 72 6F 75 67 65 0D 0A ;Bord rouge..
024970: 20 3B 0D 0A 20 52 45 57 52 49 54 45 20 4C 44 20 ;.. REWRITE LD
024980: 41 2C 28 50 49 53 54 4C 29 20 20 20 20 3B 53 69 A,(PISTL) ;Si
024990: 20 70 69 73 74 65 20 65 63 72 69 74 75 72 65 20 piste ecriture
0249A0: 3D 20 64 65 72 6E 69 65 72 65 20 70 69 73 74 65 = derniere piste
0249B0: 0D 0A 20 20 20 20 20 20 20 20 20 49 4E 43 20 41 .. INC A
0249C0: 20 20 20 20 20 20 20 20 20 20 20 3B 6C 75 65 20 ;lue
0249D0: 2B 20 31 20 2C 20 72 65 74 6F 75 72 6E 65 72 20 + 1 , retourner
0249E0: 6C 69 72 65 0D 0A 20 20 20 20 20 20 20 20 20 4C lire.. L
0249F0: 44 20 42 2C 41 0D 0A 20 20 20 20 20 20 20 20 20 D B,A..
024A00: 4C 44 20 41 2C 28 50 49 53 54 53 45 4C 29 0D 0A LD A,(PISTSEL)..
024A10: 20 20 20 20 20 20 20 20 20 43 50 20 42 0D 0A 20 CP B..
024A20: 20 20 20 20 20 20 20 20 4A 52 20 43 2C 4E 45 58 JR C,NEX
024A30: 54 57 52 49 20 20 20 20 3B 43 41 52 52 59 20 3D TWRI ;CARRY =
024A40: 20 63 6F 6E 74 69 6E 75 65 72 20 65 63 72 69 74 continuer ecrit
024A50: 75 72 65 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 ure.. ;..
024A60: 20 20 43 41 4C 4C 20 52 45 49 4E 49 54 31 20 20 CALL REINIT1
024A70: 20 20 3B 52 41 5A 20 42 75 66 66 65 72 20 65 74 ;RAZ Buffer et
024A80: 20 70 6F 69 6E 74 65 75 72 73 20 53 45 54 4C 45 pointeurs SETLE
024A90: 43 54 20 50 49 53 54 53 45 4C 3D 50 49 53 54 4C CT PISTSEL=PISTL
024AA0: 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 20 4C 49 .. JR LI
024AB0: 54 45 4E 43 4F 52 20 20 20 20 20 3B 52 65 74 6F TENCOR ;Reto
024AC0: 75 72 6E 65 72 20 61 75 78 20 6F 70 65 72 61 74 urner aux operat
024AD0: 69 6F 6E 73 20 64 65 20 6C 65 63 74 75 72 65 0D ions de lecture.
024AE0: 0A 20 3B 0D 0A 20 4E 45 58 54 57 52 49 20 50 55 . ;.. NEXTWRI PU
024AF0: 53 48 20 41 46 20 20 20 20 20 20 20 20 20 3B 4F SH AF ;O
024B00: 50 45 52 41 54 49 4F 4E 53 20 44 45 20 52 45 50 PERATIONS DE REP
024B10: 52 4F 44 55 43 54 49 4F 4E 0D 0A 20 20 20 20 20 RODUCTION..
024B20: 20 20 20 20 4C 44 20 48 4C 2C 54 57 52 49 50 49 LD HL,TWRIPI
024B30: 53 20 20 20 3B 41 66 66 69 63 68 65 72 20 70 69 S ;Afficher pi
024B40: 73 74 65 20 65 63 72 69 74 75 72 65 0D 0A 20 20 ste ecriture..
024B50: 20 20 20 20 20 20 20 43 41 4C 4C 20 50 52 54 0D CALL PRT.
024B60: 0A 20 20 20 20 20 20 20 20 20 50 4F 50 20 41 46 . POP AF
024B70: 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 .. CALL
024B80: 50 52 54 44 45 43 49 41 0D 0A 20 3B 0D 0A 20 20 PRTDECIA.. ;..
024B90: 20 20 20 20 20 20 20 43 41 4C 4C 20 47 4F 50 49 CALL GOPI
024BA0: 53 54 45 20 20 20 20 3B 41 4C 4C 45 52 20 50 49 STE ;ALLER PI
024BB0: 53 54 45 0D 0A 20 20 20 20 20 20 20 20 20 43 41 STE.. CA
024BC0: 4C 4C 20 46 4F 52 4D 41 54 45 52 20 20 20 3B 46 LL FORMATER ;F
024BD0: 4F 52 4D 41 54 45 52 0D 0A 20 20 20 20 20 20 20 ORMATER..
024BE0: 20 20 43 41 4C 4C 20 43 2C 45 43 52 49 52 45 20 CALL C,ECRIRE
024BF0: 20 20 3B 45 43 52 49 52 45 20 53 69 20 70 61 73 ;ECRIRE Si pas
024C00: 20 64 65 66 6F 72 6D 61 74 65 65 0D 0A 20 3B 0D deformatee.. ;.
024C10: 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 49 . CALL I
024C20: 4E 43 50 49 53 54 20 20 20 20 3B 50 69 73 74 65 NCPIST ;Piste
024C30: 20 65 63 72 69 74 75 72 65 20 73 75 69 76 61 6E ecriture suivan
024C40: 74 65 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 te.. LD
024C50: 41 2C 28 50 49 53 54 53 45 4C 29 0D 0A 20 20 20 A,(PISTSEL)..
024C60: 20 20 20 20 20 20 4C 44 20 28 50 49 53 54 57 29 LD (PISTW)
024C70: 2C 41 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 20 ,A.. JR
024C80: 43 2C 52 45 57 52 49 54 45 20 20 20 20 3B 53 69 C,REWRITE ;Si
024C90: 20 49 4E 43 50 49 53 54 20 6E 65 20 6D 65 74 20 INCPIST ne met
024CA0: 70 61 73 20 6C 65 20 43 41 52 52 59 20 63 27 65 pas le CARRY c'e
024CB0: 73 74 20 66 69 6E 69 0D 0A 20 3B 0D 0A 20 20 20 st fini.. ;..
024CC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
024CD0: 20 20 20 20 20 20 20 20 20 20 3B 2D 2D 2D 2D 2D ;-----
024CE0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A --------------..
024CF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
024D00: 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 2D 20 ;-
024D10: 53 4F 52 54 49 45 20 44 45 20 43 4F 50 49 45 20 SORTIE DE COPIE
024D20: 2D 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 -..
024D30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
024D40: 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ;---------------
024D50: 2D 2D 2D 2D 0D 0A 20 3B 0D 0A 20 46 49 4E 49 53 ----.. ;.. FINIS
024D60: 48 20 20 43 41 4C 4C 20 41 4E 41 45 4E 44 20 20 H CALL ANAEND
024D70: 20 20 20 3B 54 65 73 74 65 72 20 4C 49 53 54 45 ;Tester LISTE
024D80: 52 50 20 65 74 20 61 66 66 69 63 68 65 72 20 61 RP et afficher a
024D90: 6E 61 6C 79 73 65 20 67 6C 6F 62 61 6C 65 0D 0A nalyse globale..
024DA0: 20 46 49 4E 49 53 48 31 20 4C 44 20 42 43 2C 30 FINISH1 LD BC,0
024DB0: 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 .. CALL
024DC0: 23 42 43 33 38 20 20 20 20 20 20 3B 42 6F 72 64 #BC38 ;Bord
024DD0: 65 72 20 30 0D 0A 20 20 20 20 20 20 20 20 20 4C er 0.. L
024DE0: 44 20 48 4C 2C 54 4D 45 4E 55 45 4E 44 20 20 3B D HL,TMENUEND ;
024DF0: 41 66 66 69 63 68 65 72 20 6F 70 74 69 6F 6E 73 Afficher options
024E00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
024E10: 1F 00 01 00 02 09 4E E5 1F 00 C1 02 00 00 00 02 ......N.........
024E20: 1F 00 C2 02 00 00 00 02 1F 00 C3 02 00 00 00 02 ................
024E30: 1F 00 C4 02 00 00 00 02 1F 00 C5 02 00 00 00 02 ................
024E40: 1F 00 C6 02 00 00 00 02 1F 00 C7 02 00 00 00 02 ................
024E50: 1F 00 C8 02 00 00 00 02 1F 00 C9 02 00 00 00 02 ................
024E60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024E70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024E80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024E90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024EA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024EB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024EC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024ED0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024EE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024EF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024F00: 20 64 65 20 66 69 6E 20 64 65 20 63 6F 70 69 65 de fin de copie
024F10: 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 .. CALL
024F20: 50 52 54 0D 0A 20 3B 0D 0A 20 54 53 54 45 4E 44 PRT.. ;.. TSTEND
024F30: 20 20 43 41 4C 4C 20 23 42 42 30 36 0D 0A 20 3B CALL #BB06.. ;
024F40: 0D 0A 20 20 20 20 20 20 20 20 20 41 4E 44 20 23 .. AND #
024F50: 44 46 0D 0A 20 20 20 20 20 20 20 20 20 43 50 20 DF.. CP
024F60: 22 51 22 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 "Q".. JR
024F70: 20 5A 2C 46 49 4E 50 52 47 20 20 20 20 20 3B 51 Z,FINPRG ;Q
024F80: 55 49 54 54 45 52 0D 0A 20 20 20 20 20 20 20 20 UITTER..
024F90: 20 43 50 20 22 52 22 0D 0A 20 20 20 20 20 20 20 CP "R"..
024FA0: 20 20 4A 50 20 5A 2C 52 45 50 52 49 53 45 20 20 JP Z,REPRISE
024FB0: 20 20 3B 52 45 50 52 45 4E 44 52 45 20 6F 75 20 ;REPRENDRE ou
024FC0: 6C 27 6F 6E 20 61 76 61 69 74 20 69 6E 74 65 72 l'on avait inter
024FD0: 72 6F 6D 70 75 20 6C 61 20 6C 65 63 74 75 72 65 rompu la lecture
024FE0: 0D 0A 20 20 20 20 20 20 20 20 20 43 50 20 22 4E .. CP "N
024FF0: 22 0D 0A 20 20 20 20 20 20 20 20 20 4A 50 20 5A ".. JP Z
025000: 2C 52 45 54 53 54 20 20 20 20 20 20 3B 4E 4F 55 ,RETST ;NOU
025010: 56 45 4C 4C 45 20 4F 50 45 52 41 54 49 4F 4E 0D VELLE OPERATION.
025020: 0A 20 20 20 20 20 20 20 20 20 43 50 20 22 4D 22 . CP "M"
025030: 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 20 4E 5A .. JR NZ
025040: 2C 54 53 54 45 4E 44 0D 0A 20 3B 0D 0A 20 20 20 ,TSTEND.. ;..
025050: 20 20 20 20 20 20 4C 44 20 41 2C 28 4D 45 4D 4F LD A,(MEMO
025060: 44 45 42 29 20 20 3B 4D 45 4D 45 20 4F 50 45 52 DEB) ;MEME OPER
025070: 41 54 49 4F 4E 0D 0A 20 20 20 20 20 20 20 20 20 ATION..
025080: 4C 44 20 28 50 52 45 4D 50 49 53 29 2C 41 20 20 LD (PREMPIS),A
025090: 3B 52 65 63 75 70 65 72 65 72 20 6C 65 73 20 70 ;Recuperer les p
0250A0: 61 72 61 6D 65 74 72 65 73 20 64 27 6F 72 69 67 arametres d'orig
0250B0: 69 6E 65 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 ine.. LD
0250C0: 20 28 50 49 53 54 4C 29 2C 41 0D 0A 20 20 20 20 (PISTL),A..
0250D0: 20 20 20 20 20 4C 44 20 28 50 49 53 54 57 29 2C LD (PISTW),
0250E0: 41 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 41 A.. LD A
0250F0: 2C 28 4D 45 4D 4F 45 4E 44 29 0D 0A 20 20 20 20 ,(MEMOEND)..
025100: 20 20 20 20 20 4C 44 20 28 44 45 52 50 49 53 54 LD (DERPIST
025110: 29 2C 41 0D 0A 20 20 20 20 20 20 20 20 20 43 41 ),A.. CA
025120: 4C 4C 20 45 46 46 53 43 52 0D 0A 20 20 20 20 20 LL EFFSCR..
025130: 20 20 20 20 4A 50 20 4D 45 4D 45 4F 50 20 20 20 JP MEMEOP
025140: 20 20 20 20 3B 65 74 20 72 65 63 6F 6D 6D 65 6E ;et recommen
025150: 63 65 72 0D 0A 20 3B 0D 0A 20 46 49 4E 50 52 47 cer.. ;.. FINPRG
025160: 20 20 43 41 4C 4C 20 53 45 54 4C 45 43 54 20 20 CALL SETLECT
025170: 20 20 3B 52 65 63 61 6C 69 62 72 65 72 20 6C 65 ;Recalibrer le
025180: 73 20 32 20 64 72 69 76 65 73 0D 0A 20 20 20 20 s 2 drives..
025190: 20 20 20 20 20 43 41 4C 4C 20 43 41 4C 49 42 52 CALL CALIBR
0251A0: 45 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C E.. CALL
0251B0: 20 53 45 54 57 52 49 54 0D 0A 20 20 20 20 20 20 SETWRIT..
0251C0: 20 20 20 43 41 4C 4C 20 43 41 4C 49 42 52 45 0D CALL CALIBRE.
0251D0: 0A 20 20 20 20 20 20 20 20 20 4A 50 20 4D 4F 54 . JP MOT
0251E0: 4F 46 46 20 20 20 20 20 20 20 3B 41 72 72 65 74 OFF ;Arret
0251F0: 65 72 20 6D 6F 74 65 75 72 20 65 74 20 63 27 65 er moteur et c'e
025200: 73 74 20 66 69 6E 69 0D 0A 20 3B 0D 0A 20 20 20 st fini.. ;..
025210: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
025220: 20 20 20 20 20 20 20 3B 2D 2D 2D 2D 2D 2D 2D 2D ;--------
025230: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
025240: 2D 2D 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 --..
025250: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 2D ;-
025260: 20 53 55 42 20 52 4F 55 54 49 4E 45 53 20 44 49 SUB ROUTINES DI
025270: 56 45 53 52 53 45 53 20 2D 0D 0A 20 20 20 20 20 VESRSES -..
025280: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
025290: 20 20 20 20 20 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ;----------
0252A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0252B0: 0D 0A 20 3B 0D 0A 20 46 45 4E 52 45 53 20 20 4C .. ;.. FENRES L
0252C0: 44 20 48 4C 2C 54 46 45 4E 52 45 53 20 20 20 3B D HL,TFENRES ;
0252D0: 45 66 66 61 63 65 72 20 66 65 6E 65 74 72 65 20 Effacer fenetre
0252E0: 72 65 73 75 6C 74 61 74 0D 0A 20 20 20 20 20 20 resultat..
0252F0: 20 20 20 4A 50 20 50 52 54 0D 0A 20 3B 0D 0A 20 JP PRT.. ;..
025300: 46 45 4E 52 45 53 31 20 43 41 4C 4C 20 46 45 4E FENRES1 CALL FEN
025310: 52 45 53 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 RES.. LD
025320: 20 48 4C 2C 54 44 45 4E 53 49 54 0D 0A 20 20 20 HL,TDENSIT..
025330: 20 20 20 20 20 20 4A 50 20 50 52 54 49 4E 56 31 JP PRTINV1
025340: 0D 0A 20 3B 0D 0A 20 46 45 4E 53 43 52 20 20 4C .. ;.. FENSCR L
025350: 44 20 48 4C 2C 54 46 45 4E 53 43 52 20 20 20 3B D HL,TFENSCR ;
025360: 45 66 66 61 63 65 72 20 66 65 6E 65 74 72 65 20 Effacer fenetre
025370: 65 63 72 61 6E 0D 0A 20 20 20 20 20 20 20 20 20 ecran..
025380: 4A 50 20 50 52 54 0D 0A 20 3B 0D 0A 20 43 48 47 JP PRT.. ;.. CHG
025390: 44 20 20 20 20 4C 44 20 28 46 4C 41 47 44 45 4E D LD (FLAGDEN
0253A0: 29 2C 41 20 20 3B 43 68 61 6E 67 65 20 64 65 6E ),A ;Change den
0253B0: 73 69 74 65 20 2E 20 4E 27 61 20 76 61 6C 65 75 site . N'a valeu
0253C0: 72 20 71 75 65 20 64 27 69 6E 66 6F 72 6D 61 74 r que d'informat
0253D0: 69 6F 6E 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 ion.. LD
0253E0: 20 44 45 2C 54 44 45 4E 53 49 54 2B 34 20 3B 6C DE,TDENSIT+4 ;l
0253F0: 27 65 6E 73 65 6D 62 6C 65 20 64 75 20 70 72 6F 'ensemble du pro
025400: 67 72 61 6D 6D 65 20 6E 65 20 66 6F 6E 63 74 69 gramme ne foncti
025410: 6F 6E 6E 61 6E 74 20 71 75 27 65 6E 0D 0A 20 20 onnant qu'en..
025420: 20 20 20 20 20 20 20 4C 44 20 42 43 2C 36 20 20 LD BC,6
025430: 20 20 20 20 20 20 20 3B 64 6F 75 62 6C 65 20 64 ;double d
025440: 65 6E 73 69 74 65 20 2E 0D 0A 20 46 49 4E 44 45 ensite ... FINDE
025450: 4E 31 20 4C 44 49 52 0D 0A 20 20 20 20 20 20 20 N1 LDIR..
025460: 20 20 52 45 54 0D 0A 20 3B 0D 0A 20 45 46 46 53 RET.. ;.. EFFS
025470: 43 52 20 20 4C 44 20 41 2C 35 20 20 20 20 20 20 CR LD A,5
025480: 20 20 20 20 3B 45 66 66 61 63 65 72 20 62 61 73 ;Effacer bas
025490: 20 65 63 72 61 6E 20 64 65 70 75 69 73 20 6C 69 ecran depuis li
0254A0: 67 6E 65 20 35 0D 0A 20 20 20 20 20 20 20 20 20 gne 5..
0254B0: 4A 50 20 45 46 46 42 41 53 0D 0A 20 3B 0D 0A 20 JP EFFBAS.. ;..
0254C0: 57 41 49 54 44 49 53 43 20 50 55 53 48 20 48 4C WAITDISC PUSH HL
0254D0: 20 20 20 20 20 20 20 3B 41 74 74 65 6E 64 72 65 ;Attendre
0254E0: 20 64 69 73 63 20 73 6F 75 72 63 65 20 6F 75 20 disc source ou
0254F0: 64 65 73 74 69 6E 61 74 69 6F 6E 0D 0A 20 20 20 destination..
025500: 20 20 20 20 20 20 4C 44 20 48 4C 2C 23 30 32 31 LD HL,#021
025510: 39 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 9.. CALL
025520: 20 23 42 42 37 35 0D 0A 20 20 20 20 20 20 20 20 #BB75..
025530: 20 50 4F 50 20 48 4C 0D 0A 20 20 20 20 20 20 20 POP HL..
025540: 20 20 43 41 4C 4C 20 50 52 54 0D 0A 20 20 20 20 CALL PRT..
025550: 20 20 20 20 20 4A 50 20 23 42 42 30 36 0D 0A 20 JP #BB06..
025560: 3B 0D 0A 20 53 45 54 44 45 52 20 20 4C 44 20 28 ;.. SETDER LD (
025570: 44 45 52 50 49 53 54 29 2C 41 20 20 3B 46 69 78 DERPIST),A ;Fix
025580: 65 72 20 6C 69 6D 69 74 65 73 20 64 65 72 6E 69 er limites derni
025590: 65 72 65 20 70 69 73 74 65 0D 0A 20 20 20 20 20 ere piste..
0255A0: 20 20 20 20 4C 44 20 28 4D 45 4D 4F 45 4E 44 29 LD (MEMOEND)
0255B0: 2C 41 0D 0A 20 20 20 20 20 20 20 20 20 49 4E 43 ,A.. INC
0255C0: 20 41 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 A.. LD
0255D0: 28 50 49 53 54 4D 41 58 29 2C 41 0D 0A 20 20 20 (PISTMAX),A..
0255E0: 20 20 20 20 20 20 52 45 54 0D 0A 20 3B 0D 0A 20 RET.. ;..
0255F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
025600: 20 20 20 20 20 20 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D ;---------
025610: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
025620: 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 20 20 20 20 20 20 -------..
025630: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
025640: 3B 2D 20 41 4E 41 4C 59 53 45 20 46 49 4E 41 4C ;- ANALYSE FINAL
025650: 45 20 53 45 4C 4F 4E 20 4C 49 53 54 45 52 50 20 E SELON LISTERP
025660: 2D 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 -..
025670: 20 20 20 20 20 20 20 20 20 20 3B 2D 2D 2D 2D 2D ;-----
025680: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
025690: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 3B 0D -----------.. ;.
0256A0: 0A 20 41 4E 41 45 4E 44 20 20 4C 44 20 41 2C 32 . ANAEND LD A,2
0256B0: 31 20 20 20 20 20 20 20 20 20 3B 45 66 66 61 63 1 ;Effac
0256C0: 65 72 20 65 63 72 61 6E 0D 0A 20 20 20 20 20 20 er ecran..
0256D0: 20 20 20 43 41 4C 4C 20 45 46 46 42 41 53 0D 0A CALL EFFBAS..
0256E0: 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 46 45 CALL FE
0256F0: 4E 52 45 53 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 NRES.. ;..
025700: 20 20 20 4C 44 20 48 4C 2C 28 50 4F 49 4E 45 52 LD HL,(POINER
025710: 50 29 20 3B 50 4F 49 4E 45 52 50 20 63 6F 6E 74 P) ;POINERP cont
025720: 69 65 6E 74 20 69 63 69 20 6C 61 20 64 65 72 6E ient ici la dern
025730: 69 65 72 65 20 61 64 72 65 73 73 65 20 6F 63 63 iere adresse occ
025740: 75 70 65 65 0D 0A 20 20 20 20 20 20 20 20 20 4C upee.. L
025750: 44 20 28 48 4C 29 2C 23 46 46 20 20 20 20 20 3B D (HL),#FF ;
025760: 70 61 72 20 6C 61 20 6C 69 73 74 65 20 2B 20 31 par la liste + 1
025770: 20 2E 20 4D 61 72 71 75 65 72 20 6C 61 20 66 69 . Marquer la fi
025780: 6E 20 64 65 20 6C 61 20 6C 69 73 74 65 0D 0A 20 n de la liste..
025790: 20 20 20 20 20 20 20 20 49 4E 43 20 48 4C 20 20 INC HL
0257A0: 20 20 20 20 20 20 20 20 3B 61 76 65 63 20 23 46 ;avec #F
0257B0: 46 20 63 6F 6D 6D 65 20 6E 75 6D 65 72 6F 20 64 F comme numero d
0257C0: 65 20 70 69 73 74 65 0D 0A 20 20 20 20 20 20 20 e piste..
0257D0: 20 20 4C 44 20 28 48 4C 29 2C 23 46 46 0D 0A 20 LD (HL),#FF..
0257E0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 48 ;.. LD H
0257F0: 4C 2C 54 46 45 4E 45 4E 44 20 20 20 3B 46 65 6E L,TFENEND ;Fen
025800: 65 74 72 65 20 66 69 6E 20 64 65 20 70 72 6F 67 etre fin de prog
025810: 72 61 6D 6D 65 0D 0A 20 20 20 20 20 20 20 20 20 ramme..
025820: 43 41 4C 4C 20 50 52 54 0D 0A 20 3B 0D 0A 20 20 CALL PRT.. ;..
025830: 20 20 20 20 20 20 20 4C 44 20 48 4C 2C 23 30 33 LD HL,#03
025840: 30 31 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C 01.. CAL
025850: 4C 20 23 42 42 37 35 0D 0A 20 3B 0D 0A 20 20 20 L #BB75.. ;..
025860: 20 20 20 20 20 20 4C 44 20 48 4C 2C 54 52 45 50 LD HL,TREP
025870: 41 52 2D 33 31 20 3B 44 61 6E 73 20 63 65 74 74 AR-31 ;Dans cett
025880: 65 20 73 65 63 74 69 6F 6E 20 2C 20 6C 65 73 20 e section , les
025890: 74 65 78 74 65 73 20 73 6F 6E 74 20 64 65 20 6C textes sont de l
0258A0: 6F 6E 67 75 65 75 72 73 0D 0A 20 20 20 20 20 20 ongueurs..
0258B0: 20 20 20 4C 44 20 42 2C 38 20 20 20 20 20 20 20 LD B,8
0258C0: 20 20 20 3B 69 64 65 6E 74 69 71 75 65 73 20 2E ;identiques .
0258D0: 0D 0A 20 3B 0D 0A 20 53 45 50 54 46 4F 49 20 4C .. ;.. SEPTFOI L
0258E0: 44 20 44 45 2C 33 31 0D 0A 20 20 20 20 20 20 20 D DE,31..
0258F0: 20 20 41 44 44 20 48 4C 2C 44 45 20 20 20 20 20 ADD HL,DE
025900: 61 73 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 as.. LD
025910: 41 2C 28 4C 45 4E 53 45 43 29 20 20 20 3B 61 20 A,(LENSEC) ;a
025920: 65 74 72 65 20 70 72 69 73 65 20 65 6E 20 63 6F etre prise en co
025930: 6D 70 74 65 20 63 61 72 20 6C 61 20 72 6F 75 74 mpte car la rout
025940: 69 6E 65 20 64 65 20 66 6F 72 6D 61 74 61 67 65 ine de formatage
025950: 0D 0A 20 20 20 20 20 20 20 20 20 4F 52 20 41 20 .. OR A
025960: 20 20 20 20 20 20 20 20 20 20 20 3B 70 61 73 73 ;pass
025970: 65 20 70 61 72 20 43 41 4C 49 47 41 50 20 28 53 e par CALIGAP (S
025980: 4F 53 33 29 20 2E 0D 0A 20 20 20 20 20 20 20 20 OS3) ...
025990: 20 4C 44 20 43 2C 33 32 0D 0A 20 20 20 20 20 20 LD C,32..
0259A0: 20 20 20 4A 52 20 5A 2C 4E 42 4D 41 58 20 3B 4C JR Z,NBMAX ;L
0259B0: 30 0D 0A 20 20 20 20 20 20 20 20 20 44 45 43 20 0.. DEC
0259C0: 41 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 43 A.. LD C
0259D0: 2C 31 39 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 ,19.. JR
0259E0: 20 5A 2C 4E 42 4D 41 58 20 3B 4C 31 0D 0A 20 20 Z,NBMAX ;L1..
0259F0: 20 20 20 20 20 20 20 44 45 43 20 41 0D 0A 20 20 DEC A..
025A00: 20 20 20 20 20 20 20 4C 44 20 43 2C 31 30 0D 0A LD C,10..
025A10: 20 20 20 20 20 20 20 20 20 4A 52 20 5A 2C 4E 42 JR Z,NB
025A20: 4D 41 58 20 3B 4C 32 0D 0A 20 20 20 20 20 20 20 MAX ;L2..
025A30: 20 20 44 45 43 20 41 0D 0A 20 20 20 20 20 20 20 DEC A..
025A40: 20 20 4C 44 20 43 2C 35 0D 0A 20 20 20 20 20 20 LD C,5..
025A50: 20 20 20 4A 52 20 5A 2C 4E 42 4D 41 58 20 3B 4C JR Z,NBMAX ;L
025A60: 33 0D 0A 20 20 20 20 20 20 20 20 20 44 45 43 20 3.. DEC
025A70: 41 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 43 A.. LD C
025A80: 2C 32 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 20 ,2.. JR
025A90: 5A 2C 4E 42 4D 41 58 20 3B 4C 34 0D 0A 20 20 20 Z,NBMAX ;L4..
025AA0: 20 20 20 20 20 20 4C 44 20 43 2C 31 0D 0A 20 3B LD C,1.. ;
025AB0: 0D 0A 20 4E 42 4D 41 58 20 20 20 4C 44 20 41 2C .. NBMAX LD A,
025AC0: 42 20 20 20 20 20 20 3B 54 72 6F 70 20 64 65 20 B ;Trop de
025AD0: 73 65 63 74 65 75 72 73 20 6C 75 73 20 70 6F 75 secteurs lus pou
025AE0: 72 20 6C 61 20 74 61 69 6C 6C 65 20 2E 20 43 61 r la taille . Ca
025AF0: 20 61 72 72 69 76 65 20 73 69 0D 0A 20 20 20 20 arrive si..
025B00: 20 20 20 20 20 44 45 43 20 41 20 20 20 20 20 20 DEC A
025B10: 20 3B 6F 6E 20 65 63 72 61 73 65 20 64 65 73 20 ;on ecrase des
025B20: 74 61 69 6C 6C 65 73 20 30 20 73 6F 75 73 20 70 tailles 0 sous p
025B30: 6C 75 73 69 65 75 72 73 20 74 61 69 6C 6C 65 73 lusieurs tailles
025B40: 0D 0A 20 20 20 20 20 20 20 20 20 43 50 20 43 20 .. CP C
025B50: 20 20 20 20 20 20 20 3B 64 69 66 66 65 72 65 6E ;differen
025B60: 74 65 73 20 4E 43 20 73 69 20 6F 75 69 20 2E 0D tes NC si oui ..
025B70: 0A 20 20 20 20 20 20 20 20 20 52 45 54 0D 0A 20 . RET..
025B80: 0D 0A 20 4C 49 53 54 0D 0A 20 4E 42 53 50 52 4F .. LIST.. NBSPRO
025B90: 56 20 44 42 20 30 0D 0A 20 50 45 52 50 52 4F 56 V DB 0.. PERPROV
025BA0: 20 44 57 20 30 0D 0A 20 4C 45 52 50 52 4F 56 20 DW 0.. LERPROV
025BB0: 44 53 20 34 30 0D 0A 20 4C 49 53 54 49 44 53 20 DS 40.. LISTIDS
025BC0: 44 53 20 34 30 0D 0A 20 4E 4F 4C 49 53 54 0D 0A DS 40.. NOLIST..
025BD0: 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 ;..
025BE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2D 2D --
025BF0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
025C00: 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 0D 0A 20 20 ---------.. ..
025C10: 20 20 20 56 6F 75 73 20 76 65 6E 65 7A 20 64 65 Vous venez de
025C20: 20 20 76 69 76 72 65 20 20 6C 65 20 20 70 69 72 vivre le pir
025C30: 65 20 20 2E 20 20 54 6F 75 74 65 73 20 20 6C 65 e . Toutes le
025C40: 73 20 20 69 6E 66 6F 72 6D 61 74 69 6F 6E 73 20 s informations
025C50: 20 75 74 69 6C 65 73 20 73 6F 6E 74 0D 0A 20 6D utiles sont.. m
025C60: 61 69 6E 74 65 6E 61 6E 74 20 6D 7B 6D 6F 72 69 aintenant m{mori
025C70: 73 7B 65 73 20 2E 20 49 6C 20 6E 65 20 72 65 73 s{es . Il ne res
025C80: 74 65 20 70 6C 75 73 20 71 75 27 40 20 73 74 6F te plus qu'@ sto
025C90: 63 6B 65 72 20 2C 20 66 6F 72 6D 61 74 65 72 20 cker , formater
025CA0: 2C 20 72 65 70 72 6F 64 75 69 72 65 0D 0A 20 73 , reproduire.. s
025CB0: 69 6D 70 6C 65 20 66 6F 72 6D 61 6C 69 74 7B 20 imple formalit{
025CC0: 71 75 65 20 6C 27 6F 6E 20 74 72 6F 75 76 65 72 que l'on trouver
025CD0: 61 20 20 64 61 6E 73 20 20 6C 61 20 20 73 65 63 a dans la sec
025CE0: 74 69 6F 6E 20 20 52 45 50 52 4F 44 55 43 54 49 tion REPRODUCTI
025CF0: 4F 4E 20 2E 20 28 50 61 73 20 64 65 0D 0A 20 6D ON . (Pas de.. m
025D00: 61 75 76 61 69 73 65 73 20 70 65 6E 73 7B 65 73 auvaises pens{es
025D10: 20 2C 20 63 65 20 74 79 70 65 20 64 65 20 72 65 , ce type de re
025D20: 70 72 6F 64 75 63 74 69 6F 6E 20 6E 27 61 20 72 production n'a r
025D30: 69 65 6E 20 40 20 76 6F 69 72 20 61 76 65 63 20 ien @ voir avec
025D40: 42 4C 4F 4F 44 29 20 2E 0D 0A 20 0D 0A 20 20 20 BLOOD) ... ..
025D50: 20 20 20 20 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D ------
025D60: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
025D70: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
025D80: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A --------------..
025D90: 20 1A 4E 42 4D 41 58 20 3B 4C 34 0D 0A 20 20 20 .NBMAX ;L4..
025DA0: 20 20 20 20 20 20 4C 44 20 43 2C 31 0D 0A 20 3B LD C,1.. ;
025DB0: 0D 0A 20 4E 42 4D 41 58 20 20 20 4C 44 20 41 2C .. NBMAX LD A,
025DC0: 42 20 20 20 20 20 20 3B 54 72 6F 70 20 64 65 20 B ;Trop de
025DD0: 73 65 63 74 65 75 72 73 20 6C 75 73 20 70 6F 75 secteurs lus pou
025DE0: 72 20 6C 61 20 74 61 69 6C 6C 65 20 2E 20 43 61 r la taille . Ca
025DF0: 20 61 72 72 69 76 65 20 73 69 0D 0A 20 20 20 20 arrive si..
025E00: 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 0D -----------...
025E10: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
025E20: 20 20 20 20 20 20 20 20 20 20 43 4F 4D 4D 41 4E COMMAN
025E30: 44 45 53 20 43 4F 55 4C 45 55 52 53 20 28 52 41 DES COULEURS (RA
025E40: 50 50 45 4C 29 0D 0A 0D 0A 20 20 20 20 20 50 61 PPEL).... Pa
025E50: 76 7B 20 6E 75 6D 7B 72 69 71 75 65 20 3A 20 20 v{ num{rique :
025E60: 20 20 20 20 20 20 20 20 43 54 52 4C 2B 27 2E 27 CTRL+'.'
025E70: 20 3A 20 42 6F 72 64 0D 0A 20 20 20 20 20 20 20 : Bord..
025E80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
025E90: 20 20 20 20 20 20 20 20 43 54 52 4C 2B 27 30 27 CTRL+'0'
025EA0: 20 3A 20 50 61 70 65 72 0D 0A 20 20 20 20 20 20 : Paper..
025EB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
025EC0: 20 20 20 20 20 20 20 20 20 43 52 54 4C 2B 27 31 CRTL+'1
025ED0: 27 20 3A 20 50 65 6E 20 31 0D 0A 20 20 20 20 20 ' : Pen 1..
025EE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
025EF0: 20 20 20 20 20 20 20 20 20 20 43 54 52 4C 2B 27 CTRL+'
025F00: 0A 20 20 20 20 20 20 20 20 42 49 54 20 30 2C 41 . BIT 0,A
025F10: 20 20 20 20 20 20 20 20 20 3B 53 69 20 6F 75 69 ;Si oui
025F20: 20 2C 20 6C 6F 6E 67 75 65 75 72 20 70 61 73 20 , longueur pas
025F30: 74 72 6F 75 76 65 65 0D 0A 20 20 20 20 20 20 20 trouvee..
025F40: 20 4A 52 20 4E 5A 2C 4D 41 4D 46 49 4E 44 20 20 JR NZ,MAMFIND
025F50: 20 3B 43 6F 6E 74 69 6E 75 65 72 0D 0A 3B 0D 0A ;Continuer..;..
025F60: 20 20 20 20 20 20 20 20 4C 44 20 48 4C 2C 45 54 LD HL,ET
025F70: 32 20 20 20 20 20 20 20 3B 44 44 3F 0D 0A 20 20 2 ;DD?..
025F80: 20 20 20 20 20 20 42 49 54 20 35 2C 28 48 4C 29 BIT 5,(HL)
025F90: 20 20 20 20 20 20 3B 53 69 20 70 61 73 20 44 44 ;Si pas DD
025FA0: 20 6C 6F 6E 67 75 65 75 72 20 74 72 6F 75 76 65 longueur trouve
025FB0: 65 0D 0A 20 20 20 20 20 20 20 20 4A 52 20 4E 5A e.. JR NZ
025FC0: 2C 4D 41 4D 46 49 4E 44 20 20 20 3B 53 69 6E 6F ,MAMFIND ;Sino
025FD0: 6E 20 63 6F 6E 74 69 6E 75 65 72 0D 0A 3B 0D 0A n continuer..;..
025FE0: 20 20 20 20 20 20 20 20 43 41 4C 4C 20 4F 4B 4C CALL OKL
025FF0: 4F 4E 47 20 20 20 20 20 3B 44 65 74 65 72 6D 69 ONG ;Determi
026000: 6E 65 72 20 76 61 6C 65 75 72 20 47 41 50 0D 0A ner valeur GAP..
026010: 20 20 20 20 20 20 20 20 43 41 4C 4C 20 46 49 4E CALL FIN
026020: 44 47 41 50 20 20 20 20 3B 45 74 20 6C 6F 6E 67 DGAP ;Et long
026030: 75 65 75 72 20 2E 20 4E 43 20 65 6E 20 72 65 74 ueur . NC en ret
026040: 6F 75 72 20 73 69 20 70 61 73 20 62 6F 6E 0D 0A our si pas bon..
026050: 20 20 20 20 20 20 20 20 43 41 4C 4C 20 4E 43 2C CALL NC,
026060: 4A 45 43 4F 49 4E 43 45 0D 0A 3B 0D 0A 20 20 20 JECOINCE..;..
026070: 20 20 20 20 20 43 41 4C 4C 20 46 49 4E 44 52 45 CALL FINDRE
026080: 4D 50 20 20 20 3B 43 68 65 72 63 68 65 72 20 6F MP ;Chercher o
026090: 63 74 65 74 20 46 49 4C 4C 0D 0A 20 20 20 20 20 ctet FILL..
0260A0: 20 20 20 4A 50 20 45 58 49 54 47 41 50 20 20 20 JP EXITGAP
0260B0: 20 20 20 3B 46 69 6E 69 0D 0A 3B 0D 0A 4D 41 4D ;Fini..;..MAM
0260C0: 46 49 4E 44 20 43 41 4C 4C 20 49 4E 43 4C 4F 4E FIND CALL INCLON
0260D0: 47 20 20 3B 41 3D 41 2B 31 20 44 61 6E 73 20 51 G ;A=A+1 Dans Q
0260E0: 55 41 54 52 49 44 2B 33 20 65 74 20 4C 53 20 2C UATRID+3 et LS ,
0260F0: 20 48 4C 3D 48 4C 2B 48 4C 20 64 61 6E 73 20 4C HL=HL+HL dans L
026100: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
026110: 20 00 01 00 02 09 4E E5 20 00 C1 02 00 00 00 02 .....N. .......
026120: 20 00 C2 02 00 00 00 02 20 00 C3 02 00 00 00 02 ....... .......
026130: 20 00 C4 02 00 00 00 02 20 00 C5 02 00 00 00 02 ....... .......
026140: 20 00 C6 02 00 00 00 02 20 00 C7 02 00 00 00 02 ....... .......
026150: 20 00 C8 02 00 00 00 02 20 00 C9 02 00 00 00 02 ....... .......
026160: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
026170: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
026180: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
026190: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0261A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0261B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0261C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0261D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0261E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0261F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
026200: 20 20 3B 4F 6E 20 61 76 61 6E 63 65 20 64 61 6E ;On avance dan
026210: 73 20 6C 61 20 73 65 72 69 65 20 64 65 20 74 65 s la serie de te
026220: 78 74 65 20 65 6E 20 66 61 69 73 61 6E 74 20 73 xte en faisant s
026230: 75 69 76 72 65 0D 0A 20 20 20 20 20 20 20 20 20 uivre..
026240: 50 55 53 48 20 48 4C 20 20 20 20 20 20 20 20 20 PUSH HL
026250: 3B 6C 65 20 63 75 72 73 65 75 72 20 74 65 78 74 ;le curseur text
026260: 65 0D 0A 20 20 20 20 20 20 20 20 20 50 55 53 48 e.. PUSH
026270: 20 42 43 0D 0A 20 3B 0D 0A 20 50 52 41 4E 41 45 BC.. ;.. PRANAE
026280: 4E 44 20 43 41 4C 4C 20 50 52 54 0D 0A 20 20 20 ND CALL PRT..
026290: 20 20 20 20 20 20 4C 44 20 48 4C 2C 54 4E 49 45 LD HL,TNIE
0262A0: 54 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C T.. CALL
0262B0: 20 50 52 54 0D 0A 20 20 20 20 20 20 20 20 20 4C PRT.. L
0262C0: 44 20 48 4C 2C 4C 49 53 54 45 52 50 0D 0A 20 3B D HL,LISTERP.. ;
0262D0: 0D 0A 20 4E 58 54 54 45 53 54 20 50 55 53 48 20 .. NXTTEST PUSH
0262E0: 48 4C 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C HL.. CAL
0262F0: 4C 20 23 42 42 37 38 20 20 20 20 20 3B 4F 75 20 L #BB78 ;Ou
026300: 65 73 74 20 63 75 72 73 65 75 72 20 74 65 78 74 est curseur text
026310: 65 20 3F 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 e ?.. LD
026320: 20 41 2C 4C 20 20 20 20 20 20 20 20 20 3B 53 69 A,L ;Si
026330: 20 74 72 6F 70 20 6C 6F 69 6E 20 64 65 73 63 65 trop loin desce
026340: 6E 64 72 65 20 64 27 75 6E 65 20 6C 69 67 6E 65 ndre d'une ligne
026350: 0D 0A 20 20 20 20 20 20 20 20 20 43 50 20 35 32 .. CP 52
026360: 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 20 43 2C .. JR C,
026370: 4F 4B 4C 4F 43 0D 0A 20 20 20 20 20 20 20 20 20 OKLOC..
026380: 4C 44 20 48 2C 33 0D 0A 20 20 20 20 20 20 20 20 LD H,3..
026390: 20 49 4E 43 20 4C 0D 0A 20 20 20 20 20 20 20 20 INC L..
0263A0: 20 43 41 4C 4C 20 23 42 42 37 35 20 20 20 20 20 CALL #BB75
0263B0: 20 3B 52 65 6C 6F 63 61 74 65 20 63 75 72 73 65 ;Relocate curse
0263C0: 75 72 0D 0A 20 4F 4B 4C 4F 43 20 20 20 50 4F 50 ur.. OKLOC POP
0263D0: 20 48 4C 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 HL.. ;..
0263E0: 20 20 49 4E 43 20 48 4C 20 20 20 20 20 20 20 20 INC HL
0263F0: 20 20 3B 46 61 69 72 65 20 74 6F 75 72 6E 65 72 ;Faire tourner
026400: 20 6C 61 20 63 61 73 65 20 46 4C 41 47 20 64 65 la case FLAG de
026410: 20 4C 49 53 54 45 52 50 20 2E 20 53 69 20 75 6E LISTERP . Si un
026420: 20 62 69 74 0D 0A 20 20 20 20 20 20 20 20 20 52 bit.. R
026430: 52 43 20 28 48 4C 29 20 20 20 20 20 20 20 20 3B RC (HL) ;
026440: 6D 69 73 20 65 73 74 20 74 72 6F 75 76 65 20 70 mis est trouve p
026450: 6F 69 6E 74 65 72 20 6C 65 20 6E 75 6D 65 72 6F ointer le numero
026460: 20 64 65 20 70 69 73 74 65 20 63 6F 6E 63 65 72 de piste concer
026470: 6E 65 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 20 ne.. JR
026480: 4E 43 2C 4E 4F 54 50 52 20 20 20 20 20 3B 65 74 NC,NOTPR ;et
026490: 20 6C 27 61 66 66 69 63 68 65 72 20 65 6E 20 66 l'afficher en f
0264A0: 61 63 65 20 64 75 20 74 65 78 74 65 20 63 6F 72 ace du texte cor
0264B0: 72 65 73 70 6F 6E 64 61 6E 74 20 2E 0D 0A 20 3B respondant ... ;
0264C0: 0D 0A 20 20 20 20 20 20 20 20 20 44 45 43 20 48 .. DEC H
0264D0: 4C 20 20 20 20 20 20 20 20 20 20 3B 53 65 20 73 L ;Se s
0264E0: 6F 75 76 65 6E 69 72 20 71 75 65 20 52 52 43 20 ouvenir que RRC
0264F0: 28 48 4C 29 20 61 66 66 65 63 74 65 20 6C 27 6F (HL) affecte l'o
026500: 63 74 65 74 20 70 6F 69 6E 74 65 0D 0A 20 20 20 ctet pointe..
026510: 20 20 20 20 20 20 4C 44 20 41 2C 28 48 4C 29 0D LD A,(HL).
026520: 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 50 . CALL P
026530: 52 54 44 45 43 49 41 0D 0A 20 20 20 20 20 20 20 RTDECIA..
026540: 20 20 49 4E 43 20 48 4C 0D 0A 20 3B 0D 0A 20 4E INC HL.. ;.. N
026550: 4F 54 50 52 20 20 20 49 4E 43 20 48 4C 0D 0A 20 OTPR INC HL..
026560: 20 20 20 20 20 20 20 20 4C 44 20 41 2C 28 48 4C LD A,(HL
026570: 29 20 20 20 20 20 20 20 3B 53 69 20 28 48 4C 29 ) ;Si (HL)
026580: 20 3C 3E 20 23 46 46 20 6F 6E 20 63 6F 6E 74 69 <> #FF on conti
026590: 6E 75 65 0D 0A 20 20 20 20 20 20 20 20 20 49 4E nue.. IN
0265A0: 43 20 41 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 C A.. JR
0265B0: 20 4E 5A 2C 4E 58 54 54 45 53 54 0D 0A 20 3B 0D NZ,NXTTEST.. ;.
0265C0: 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 23 . CALL #
0265D0: 42 42 37 38 20 20 20 20 20 20 3B 53 69 6E 6F 6E BB78 ;Sinon
0265E0: 20 72 65 70 6C 61 63 65 72 20 63 75 72 73 65 75 replacer curseu
0265F0: 72 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 48 r.. LD H
026600: 2C 33 0D 0A 20 20 20 20 20 20 20 20 20 49 4E 43 ,3.. INC
026610: 20 4C 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C L.. CAL
026620: 4C 20 23 42 42 37 35 0D 0A 20 3B 0D 0A 20 20 20 L #BB75.. ;..
026630: 20 20 20 20 20 20 50 4F 50 20 42 43 0D 0A 20 20 POP BC..
026640: 20 20 20 20 20 20 20 50 4F 50 20 48 4C 0D 0A 20 POP HL..
026650: 20 20 20 20 20 20 20 20 44 4A 4E 5A 20 53 45 50 DJNZ SEP
026660: 54 46 4F 49 20 20 20 20 3B 45 74 20 72 65 63 6F TFOI ;Et reco
026670: 6D 6D 65 6E 63 65 72 20 61 76 65 63 20 6C 65 20 mmencer avec le
026680: 74 65 78 74 65 20 73 75 69 76 61 6E 74 0D 0A 20 texte suivant..
026690: 20 20 20 20 20 20 20 20 4A 50 20 46 45 4E 53 43 JP FENSC
0266A0: 52 0D 0A 20 3B 0D 0A 20 3B 0D 0A 20 52 45 49 4E R.. ;.. ;.. REIN
0266B0: 49 54 31 20 4C 44 20 41 2C 32 31 20 20 20 20 20 IT1 LD A,21
0266C0: 20 20 20 20 3B 52 65 69 6E 69 74 69 61 6C 69 73 ;Reinitialis
0266D0: 65 72 20 6C 65 20 62 75 66 66 65 72 20 64 65 20 er le buffer de
0266E0: 63 6F 70 69 65 20 65 74 20 6C 65 73 20 70 69 73 copie et les pis
0266F0: 74 65 73 0D 0A 20 20 20 20 20 20 20 20 20 43 41 tes.. CA
026700: 4C 4C 20 45 46 46 42 41 53 20 20 20 20 20 3B 6C LL EFFBAS ;l
026710: 65 63 74 75 72 65 20 65 63 72 69 74 75 72 65 0D ecture ecriture.
026720: 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 43 . CALL C
026730: 50 44 52 49 56 45 20 20 20 20 3B 32 20 64 72 69 PDRIVE ;2 dri
026740: 76 65 73 20 2C 20 70 61 73 20 64 65 20 6D 65 73 ves , pas de mes
026750: 73 61 67 65 0D 0A 20 3B 0D 0A 20 52 45 49 4E 49 sage.. ;.. REINI
026760: 54 20 20 4C 44 20 48 4C 2C 54 53 4F 55 52 43 45 T LD HL,TSOURCE
026770: 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 .. CALL
026780: 5A 2C 57 41 49 54 44 49 53 43 0D 0A 20 20 20 20 Z,WAITDISC..
026790: 20 20 20 20 20 4C 44 20 48 4C 2C 31 30 30 30 0D LD HL,1000.
0267A0: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 50 4F . LD (PO
0267B0: 49 4E 50 49 53 29 2C 48 4C 20 3B 50 6F 69 6E 74 INPIS),HL ;Point
0267C0: 65 75 72 20 62 75 66 66 65 72 20 61 75 20 64 65 eur buffer au de
0267D0: 62 75 74 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 but.. ;..
0267E0: 20 20 4C 44 20 42 43 2C 32 38 39 39 39 0D 0A 20 LD BC,28999..
0267F0: 52 41 5A 53 54 4F 4B 20 4C 44 20 28 48 4C 29 2C RAZSTOK LD (HL),
026800: 23 46 46 20 20 20 20 20 3B 56 69 64 65 72 20 6C #FF ;Vider l
026810: 65 20 62 75 66 66 65 72 0D 0A 20 20 20 20 20 20 e buffer..
026820: 20 20 20 49 4E 43 20 48 4C 0D 0A 20 20 20 20 20 INC HL..
026830: 20 20 20 20 44 45 43 20 42 43 0D 0A 20 20 20 20 DEC BC..
026840: 20 20 20 20 20 4C 44 20 41 2C 42 0D 0A 20 20 20 LD A,B..
026850: 20 20 20 20 20 20 4F 52 20 43 0D 0A 20 20 20 20 OR C..
026860: 20 20 20 20 20 4A 52 20 4E 5A 2C 52 41 5A 53 54 JR NZ,RAZST
026870: 4F 4B 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 OK.. ;..
026880: 20 4C 44 20 41 2C 28 50 49 53 54 4C 29 20 20 20 LD A,(PISTL)
026890: 20 3B 49 6E 69 74 69 61 6C 69 73 65 72 20 70 61 ;Initialiser pa
0268A0: 72 61 6D 65 74 72 65 73 20 6C 65 63 74 75 72 65 rametres lecture
0268B0: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 50 .. LD (P
0268C0: 49 53 54 53 45 4C 29 2C 41 0D 0A 20 20 20 20 20 ISTSEL),A..
0268D0: 20 20 20 20 4A 50 20 53 45 54 4C 45 43 54 0D 0A JP SETLECT..
0268E0: 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 ;..
0268F0: 20 20 20 20 20 20 20 20 20 20 20 20 3B 2D 2D 2D ;---
026900: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
026910: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 20 20 -----------..
026920: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
026930: 20 20 20 20 20 3B 2D 20 56 41 52 49 41 42 4C 45 ;- VARIABLE
026940: 53 20 45 54 20 54 45 58 54 45 53 20 44 49 56 45 S ET TEXTES DIVE
026950: 52 53 20 2D 0D 0A 20 20 20 20 20 20 20 20 20 20 RS -..
026960: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 2D ;-
026970: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
026980: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 -------------..
026990: 3B 0D 0A 20 4D 45 4D 4F 44 45 42 20 44 42 20 30 ;.. MEMODEB DB 0
0269A0: 0D 0A 20 4D 45 4D 4F 45 4E 44 20 44 42 20 30 0D .. MEMOEND DB 0.
0269B0: 0A 20 50 4F 49 4E 50 49 53 20 44 57 20 31 30 30 . POINPIS DW 100
0269C0: 30 0D 0A 20 4C 49 53 54 0D 0A 20 4C 49 53 54 45 0.. LIST.. LISTE
0269D0: 52 50 20 44 53 20 31 30 30 0D 0A 20 4E 4F 4C 49 RP DS 100.. NOLI
0269E0: 53 54 0D 0A 20 50 4F 49 4E 45 52 50 20 44 57 20 ST.. POINERP DW
0269F0: 30 0D 0A 20 3B 0D 0A 20 54 55 53 20 20 20 20 20 0.. ;.. TUS
026A00: 44 42 20 32 34 2C 22 20 53 4F 53 20 50 52 4F 47 DB 24," SOS PROG
026A10: 52 41 4D 4D 45 55 52 53 20 2D 20 45 74 75 64 65 RAMMEURS - Etude
026A20: 20 64 75 20 46 44 43 20 2D 20 28 43 29 20 4D 2E du FDC - (C) M.
026A30: 4D 41 49 47 52 4F 54 20 41 6F 75 74 20 38 39 20 MAIGROT Aout 89
026A40: 22 2C 32 34 0D 0A 20 20 20 20 20 20 20 20 20 44 ",24.. D
026A50: 42 20 22 20 20 20 20 22 2C 32 34 2C 22 20 55 20 B " ",24," U
026A60: 54 20 49 20 4C 20 2D 20 53 20 4F 20 46 20 54 20 T I L - S O F T
026A70: 22 2C 32 34 0D 0A 20 54 53 54 41 54 44 52 20 44 ",24.. TSTATDR D
026A80: 42 20 32 34 2C 22 20 44 52 49 56 45 20 41 30 20 B 24," DRIVE A0
026A90: 3A 20 22 2C 32 34 2C 22 20 22 2C 33 31 2C 33 34 : ",24," ",31,34
026AA0: 2C 32 2C 32 34 2C 22 20 44 52 49 56 45 20 42 30 ,2,24," DRIVE B0
026AB0: 20 3A 20 22 2C 32 34 3B 23 38 30 0D 0A 20 54 53 : ",24;#80.. TS
026AC0: 4F 55 44 45 53 20 44 42 20 33 31 2C 31 2C 33 2C OUDES DB 31,1,3,
026AD0: 32 34 2C 22 20 44 52 49 56 45 20 53 4F 55 52 43 24," DRIVE SOURC
026AE0: 45 20 3A 20 41 30 20 22 2C 33 31 2C 33 34 2C 33 E : A0 ",31,34,3
026AF0: 2C 22 20 44 52 49 56 45 20 44 45 53 54 49 4E 41 ," DRIVE DESTINA
026B00: 54 49 4F 4E 20 3A 20 41 30 20 22 0D 0A 20 20 20 TION : A0 "..
026B10: 20 20 20 20 20 20 44 42 20 32 34 2B 23 38 30 0D DB 24+#80.
026B20: 0A 20 54 4D 45 4E 43 48 47 20 44 42 20 32 34 2C . TMENCHG DB 24,
026B30: 33 31 2C 32 36 2C 37 2C 22 20 5B 41 5D 20 43 68 31,26,7," [A] Ch
026B40: 61 6E 67 65 20 6C 65 20 20 64 72 69 76 65 20 20 ange le drive
026B50: 73 6F 75 72 63 65 20 22 0D 0A 20 20 20 20 20 20 source "..
026B60: 20 20 20 44 42 20 33 31 2C 32 36 2C 38 2C 22 20 DB 31,26,8,"
026B70: 5B 42 5D 20 43 68 61 6E 67 65 20 64 72 69 76 65 [B] Change drive
026B80: 20 64 65 73 74 69 6E 61 74 69 6F 6E 20 22 0D 0A destination "..
026B90: 20 20 20 20 20 20 20 20 20 44 42 20 33 31 2C 32 DB 31,2
026BA0: 36 2C 39 2C 22 20 5B 43 5D 20 43 68 61 6E 67 65 6,9," [C] Change
026BB0: 20 20 6C 61 20 20 74 65 74 65 20 20 73 6F 75 72 la tete sour
026BC0: 63 65 20 22 0D 0A 20 20 20 20 20 20 20 20 20 44 ce ".. D
026BD0: 42 20 33 31 2C 32 36 2C 31 30 2C 22 20 5B 44 5D B 31,26,10," [D]
026BE0: 20 43 68 61 6E 67 65 20 74 65 74 65 20 20 64 65 Change tete de
026BF0: 73 74 69 6E 61 74 69 6F 6E 20 22 0D 0A 20 20 20 stination "..
026C00: 20 20 20 20 20 20 44 42 20 33 31 2C 32 36 2C 31 DB 31,26,1
026C10: 32 2C 22 20 20 20 20 20 20 20 5B 45 4E 54 45 52 2," [ENTER
026C20: 5D 20 3D 20 41 72 72 65 74 20 20 20 20 20 20 20 ] = Arret
026C30: 20 22 2C 32 34 2B 23 38 30 0D 0A 20 54 49 4D 50 ",24+#80.. TIMP
026C40: 52 49 4D 20 44 42 20 33 31 2C 32 36 2C 31 31 2C RIM DB 31,26,11,
026C50: 32 34 2C 22 20 5B 45 5D 20 49 6D 70 72 69 6D 65 24," [E] Imprime
026C60: 72 20 20 6C 27 61 6E 61 6C 79 73 65 20 20 4E 4F r l'analyse NO
026C70: 4E 20 22 2C 32 34 2C 23 38 30 0D 0A 20 54 4F 55 N ",24,#80.. TOU
026C80: 49 20 20 20 20 44 42 20 22 4F 55 49 22 0D 0A 20 I DB "OUI"..
026C90: 54 4E 4F 4E 20 20 20 20 44 42 20 22 4E 4F 4E 22 TNON DB "NON"
026CA0: 0D 0A 20 54 50 49 53 54 31 20 20 44 42 20 33 31 .. TPIST1 DB 31
026CB0: 2C 32 36 2C 37 2C 32 30 2C 22 20 44 6F 6E 6E 65 ,26,7,20," Donne
026CC0: 72 20 6C 61 20 70 69 73 74 65 20 64 65 20 64 65 r la piste de de
026CD0: 62 75 74 20 3A 20 20 20 22 2C 38 2C 38 2B 23 38 but : ",8,8+#8
026CE0: 30 0D 0A 20 54 50 49 53 54 32 20 20 44 42 20 33 0.. TPIST2 DB 3
026CF0: 31 2C 32 36 2C 38 2C 22 20 44 6F 6E 6E 65 72 20 1,26,8," Donner
026D00: 6C 61 20 64 65 72 6E 69 65 72 65 20 70 69 73 74 la derniere pist
026D10: 65 20 3A 20 20 20 22 2C 38 2C 38 2B 23 38 30 0D e : ",8,8+#80.
026D20: 0A 20 54 53 4F 55 52 43 45 20 44 42 20 32 34 2C . TSOURCE DB 24,
026D30: 22 20 50 6C 61 63 65 72 20 64 69 73 71 75 65 74 " Placer disquet
026D40: 74 65 20 73 6F 75 72 63 65 20 64 61 6E 73 20 3A te source dans :
026D50: 20 41 20 22 2C 37 2C 32 34 2B 23 38 30 0D 0A 20 A ",7,24+#80..
026D60: 54 44 45 53 54 49 4E 20 44 42 20 32 34 2C 22 20 TDESTIN DB 24,"
026D70: 50 6C 61 63 65 72 20 64 69 73 71 75 65 74 74 65 Placer disquette
026D80: 20 64 65 73 74 69 6E 61 74 69 6F 6E 20 64 61 6E destination dan
026D90: 73 20 3A 20 41 20 22 2C 37 2C 32 34 2B 23 38 30 s : A ",7,24+#80
026DA0: 0D 0A 20 54 4C 49 54 50 49 53 20 44 42 20 33 31 .. TLITPIS DB 31
026DB0: 2C 32 2C 32 34 2C 22 4C 65 63 74 75 72 65 20 20 ,2,24,"Lecture
026DC0: 70 69 73 74 65 3A 20 22 2C 32 30 2C 23 38 30 0D piste: ",20,#80.
026DD0: 0A 20 54 57 52 49 50 49 53 20 44 42 20 33 31 2C . TWRIPIS DB 31,
026DE0: 32 2C 32 34 2C 22 45 63 72 69 74 75 72 65 20 70 2,24,"Ecriture p
026DF0: 69 73 74 65 3A 20 22 2C 32 30 2C 23 38 30 0D 0A iste: ",20,#80..
026E00: 20 3B 0D 0A 20 54 52 45 50 41 52 20 20 44 42 20 ;.. TREPAR DB
026E10: 32 34 2C 22 20 50 49 53 54 45 20 52 45 50 41 52 24," PISTE REPAR
026E20: 45 45 20 20 41 20 56 45 52 49 46 49 45 52 20 22 EE A VERIFIER "
026E30: 2C 32 34 2C 33 32 2C 23 38 30 0D 0A 20 3B 0D 0A ,24,32,#80.. ;..
026E40: 20 20 20 20 20 20 20 20 20 44 42 20 32 34 2C 22 DB 24,"
026E50: 20 50 4C 55 53 49 45 55 52 53 20 54 41 49 4C 4C PLUSIEURS TAILL
026E60: 45 53 20 20 46 4F 52 4D 41 54 20 22 2C 32 34 2C ES FORMAT ",24,
026E70: 33 32 2C 23 38 30 0D 0A 20 20 20 20 20 20 20 20 32,#80..
026E80: 20 44 42 20 32 34 2C 22 20 50 52 45 53 45 4E 43 DB 24," PRESENC
026E90: 45 20 53 45 43 54 45 55 52 53 20 45 43 52 41 53 E SECTEURS ECRAS
026EA0: 45 53 20 22 2C 32 34 2C 33 32 2C 23 38 30 0D 0A ES ",24,32,#80..
026EB0: 20 20 20 20 20 20 20 20 20 44 42 20 32 34 2C 22 DB 24,"
026EC0: 20 54 41 49 4C 4C 45 20 44 55 20 47 41 50 33 20 TAILLE DU GAP3
026ED0: 20 52 45 54 4F 55 43 48 45 45 20 22 2C 32 34 2C RETOUCHEE ",24,
026EE0: 33 32 2C 23 38 30 0D 0A 20 3B 0D 0A 20 20 20 20 32,#80.. ;..
026EF0: 20 20 20 20 20 44 42 20 32 34 2C 22 20 4C 27 41 DB 24," L'A
026F00: 4E 41 4C 59 53 45 55 52 20 53 27 45 53 54 20 20 NALYSEUR S'EST
026F10: 50 4C 41 4E 54 45 20 22 2C 32 34 2C 33 32 2C 23 PLANTE ",24,32,#
026F20: 38 30 0D 0A 20 20 20 20 20 20 20 20 20 44 42 20 80.. DB
026F30: 32 34 2C 22 20 46 4F 52 4D 41 54 45 45 20 41 56 24," FORMATEE AV
026F40: 45 43 20 46 44 43 20 53 50 45 43 49 41 4C 20 22 EC FDC SPECIAL "
026F50: 2C 32 34 2C 33 32 2C 23 38 30 0D 0A 20 20 20 20 ,24,32,#80..
026F60: 20 20 20 20 20 44 42 20 32 34 2C 22 20 4E 4F 4D DB 24," NOM
026F70: 42 52 45 20 20 53 45 43 54 45 55 52 53 20 20 44 BRE SECTEURS D
026F80: 49 4D 49 4E 55 45 20 22 2C 32 34 2C 33 32 2C 23 IMINUE ",24,32,#
026F90: 38 30 0D 0A 20 20 20 20 20 20 20 20 20 44 42 20 80.. DB
026FA0: 32 34 2C 22 20 50 49 53 54 45 53 20 20 20 20 4E 24," PISTES N
026FB0: 4F 4E 20 20 20 46 4F 52 4D 41 54 45 45 53 20 22 ON FORMATEES "
026FC0: 2C 32 34 2C 33 32 2C 23 38 30 0D 0A 20 3B 0D 0A ,24,32,#80.. ;..
026FD0: 20 54 4E 49 45 54 20 20 20 44 42 20 22 20 4E 4F TNIET DB " NO
026FE0: 4E 22 2C 38 2C 38 2C 38 2C 23 38 30 0D 0A 20 3B N",8,8,8,#80.. ;
026FF0: 0D 0A 20 54 4D 45 4E 55 45 4E 44 20 44 42 20 33 .. TMENUEND DB 3
027000: 31 2C 32 2C 31 36 2C 32 34 2C 22 20 4F 50 45 52 1,2,16,24," OPER
027010: 41 54 49 4F 4E 53 20 54 45 52 4D 49 4E 45 45 53 ATIONS TERMINEES
027020: 20 22 2C 31 30 2C 31 33 2C 31 30 2C 31 33 0D 0A ",10,13,10,13..
027030: 20 20 20 20 20 20 20 20 20 44 42 20 39 2C 22 20 DB 9,"
027040: 20 20 20 20 20 20 5B 51 5D 75 69 74 74 65 20 20 [Q]uitte
027050: 20 20 20 20 20 22 2C 31 30 2C 31 33 0D 0A 20 20 ",10,13..
027060: 20 20 20 20 20 20 20 44 42 20 39 2C 22 20 20 20 DB 9,"
027070: 20 20 20 5B 52 5D 65 70 72 65 6E 64 73 20 20 20 [R]eprends
027080: 20 20 20 22 2C 31 30 2C 31 33 0D 0A 20 20 20 20 ",10,13..
027090: 20 20 20 20 20 44 42 20 39 2C 22 20 20 20 5B 4D DB 9," [M
0270A0: 5D 65 6D 65 20 6F 70 65 72 61 74 69 6F 6E 20 20 ]eme operation
0270B0: 20 22 2C 31 30 2C 31 33 0D 0A 20 20 20 20 20 20 ",10,13..
0270C0: 20 20 20 44 42 20 39 2C 22 20 5B 4E 5D 6F 75 76 DB 9," [N]ouv
0270D0: 65 6C 6C 65 20 6F 70 65 72 61 74 69 6F 6E 20 22 elle operation "
0270E0: 2C 32 34 2C 37 2B 23 38 30 0D 0A 20 54 44 45 4E ,24,7+#80.. TDEN
0270F0: 53 49 54 20 44 42 20 33 31 2C 33 2C 31 2C 22 20 SIT DB 31,3,1,"
027100: 44 4F 55 42 4C 45 20 44 45 4E 53 49 54 45 22 2C DOUBLE DENSITE",
027110: 23 38 30 0D 0A 20 54 44 44 45 4E 53 20 44 42 20 #80.. TDDENS DB
027120: 22 44 4F 55 42 4C 45 22 0D 0A 20 54 53 44 45 4E "DOUBLE".. TSDEN
027130: 53 20 44 42 20 22 53 49 4D 50 4C 45 22 0D 0A 20 S DB "SIMPLE"..
027140: 54 46 45 4E 52 45 53 20 44 42 20 23 31 41 2C 31 TFENRES DB #1A,1
027150: 2C 23 31 37 2C 34 2C 32 30 2C 31 32 2C 23 38 30 ,#17,4,20,12,#80
027160: 0D 0A 20 54 46 45 4E 53 43 52 20 44 42 20 32 36 .. TFENSCR DB 26
027170: 2C 30 2C 37 39 2C 30 2C 32 34 2C 23 38 30 0D 0A ,0,79,0,24,#80..
027180: 20 54 46 45 4E 45 4E 44 20 44 42 20 32 36 2C 32 TFENEND DB 26,2
027190: 34 2C 37 39 2C 34 2C 32 35 2C 31 32 2C 23 38 30 4,79,4,25,12,#80
0271A0: 0D 0A 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 2D ..;.. -
0271B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0271C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0271D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0271E0: 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 20 20 20 20 20 20 -------..
0271F0: 20 20 20 46 49 4E 20 44 45 20 53 45 43 54 49 4F FIN DE SECTIO
027200: 4E 20 2E 20 53 55 47 47 45 53 54 49 4F 4E 20 3A N . SUGGESTION :
027210: 20 4E 4F 55 56 45 4C 4C 45 20 52 4F 55 54 49 4E NOUVELLE ROUTIN
027220: 45 20 44 27 41 4E 41 4C 59 53 45 0D 0A 20 20 20 E D'ANALYSE..
027230: 20 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D ---------
027240: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
027250: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
027260: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 1A ---------------.
027270: 20 3B 0D 0A 20 52 45 57 52 49 54 45 20 4C 44 20 ;.. REWRITE LD
027280: 00 00 F7 F7 F7 F7 F7 F7 F7 F7 F7 F7 F7 F7 F7 F7 ................
027290: F7 F7 F7 F7 F7 F7 F7 F7 F7 20 20 20 20 20 20 20 .........
0272A0: 20 20 20 20 20 20 20 20 20 00 00 14 00 20 20 20 ....
0272B0: 20 30 A9 90 A8 A9 A8 B9 A8 00 00 20 20 20 20 20 0.........
0272C0: 20 30 A9 D0 A8 E9 A8 F9 A8 E5 E5 E5 E5 E5 E5 E5 0..............
0272D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0272E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0272F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027300: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027310: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027320: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027330: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027340: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027350: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027360: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027370: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027380: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027390: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0273A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0273B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0273C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0273D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0273E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0273F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027400: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
027410: 21 00 01 00 02 09 4E E5 21 00 C1 02 00 00 00 02 !.....N.!.......
027420: 21 00 C2 02 00 00 00 02 21 00 C3 02 00 00 00 02 !.......!.......
027430: 21 00 C4 02 00 00 00 02 21 00 C5 02 00 00 00 02 !.......!.......
027440: 21 00 C6 02 00 00 00 02 21 00 C7 02 00 00 00 02 !.......!.......
027450: 21 00 C8 02 00 00 00 02 21 00 C9 02 00 00 00 02 !.......!.......
027460: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
027470: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
027480: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
027490: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0274A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0274B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0274C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0274D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0274E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0274F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
027500: 20 42 75 66 66 65 72 20 65 74 20 70 6F 69 6E 74 Buffer et point
027510: 65 75 72 73 20 53 45 54 4C 45 43 54 20 2C 20 50 eurs SETLECT , P
027520: 49 53 54 53 45 4C 3D 50 49 53 54 4C 0D 0A 3B 0D ISTSEL=PISTL..;.
027530: 0A 20 20 20 20 20 20 20 20 43 41 4C 4C 20 43 50 . CALL CP
027540: 44 52 49 56 45 20 20 20 3B 56 6F 69 72 20 73 69 DRIVE ;Voir si
027550: 20 32 20 64 72 69 76 65 73 20 3F 0D 0A 20 20 20 2 drives ?..
027560: 20 20 20 20 20 4A 52 20 5A 2C 55 4E 44 52 49 56 JR Z,UNDRIV
027570: 20 20 20 20 3B 4E 4F 4E 0D 0A 3B 0D 0A 20 20 20 ;NON..;..
027580: 20 20 20 20 20 4C 44 20 48 4C 2C 23 32 39 31 39 LD HL,#2919
027590: 20 20 20 20 3B 32 20 44 72 69 76 65 73 20 2E 20 ;2 Drives .
0275A0: 41 74 74 65 6E 64 72 65 20 64 69 73 71 75 65 20 Attendre disque
0275B0: 64 65 73 74 69 6E 61 74 69 6F 6E 0D 0A 20 20 20 destination..
0275C0: 20 20 20 20 20 43 41 4C 4C 20 23 42 42 37 35 0D CALL #BB75.
0275D0: 0A 20 20 20 20 20 20 20 20 4C 44 20 48 4C 2C 54 . LD HL,T
0275E0: 44 45 53 54 49 4E 0D 0A 20 20 20 20 20 20 20 20 DESTIN..
0275F0: 43 41 4C 4C 20 50 52 54 0D 0A 3B 0D 0A 20 20 20 CALL PRT..;..
027600: 20 20 20 20 20 20 20 20 20 20 3B 2D 2D 2D 2D 2D ;-----
027610: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
027620: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
027630: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 20 ------------..
027640: 20 20 20 20 20 20 20 20 20 20 20 3B 2D 20 41 4E ;- AN
027650: 41 4C 59 53 45 20 2C 20 49 4E 54 45 52 50 52 45 ALYSE , INTERPRE
027660: 54 41 54 49 4F 4E 20 2C 20 4C 45 43 54 55 52 45 TATION , LECTURE
027670: 20 2C 20 53 54 4F 43 4B 41 47 45 20 2D 0D 0A 20 , STOCKAGE -..
027680: 20 20 20 20 20 20 20 20 20 20 20 20 3B 2D 2D 2D ;---
027690: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0276A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0276B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A --------------..
0276C0: 3B 0D 0A 55 4E 44 52 49 56 20 20 43 41 4C 4C 20 ;..UNDRIV CALL
0276D0: 23 42 42 30 36 0D 0A 20 20 20 20 20 20 20 20 4C #BB06.. L
0276E0: 44 20 48 4C 2C 4C 49 53 54 45 52 50 20 20 20 3B D HL,LISTERP ;
0276F0: 4D 69 73 65 20 61 20 7A 65 72 6F 20 64 65 20 6C Mise a zero de l
027700: 73 74 65 20 28 71 75 69 20 20 65 73 74 20 20 6C ste (qui est l
027710: 65 20 20 70 72 65 6D 69 65 72 20 20 64 65 20 20 e premier de
027720: 6C 61 20 20 70 69 73 74 65 29 20 2C 20 73 6F 69 la piste) , soi
027730: 74 20 75 6E 20 73 65 63 74 65 75 72 0D 0A 20 64 t un secteur.. d
027740: 27 65 63 72 61 73 65 6D 65 6E 74 20 50 4C 55 53 'ecrasement PLUS
027750: 20 47 52 41 4E 44 20 71 75 65 20 6C 61 20 20 74 GRAND que la t
027760: 61 69 6C 6C 65 20 20 6D 61 78 69 6D 75 6D 20 20 aille maximum
027770: 64 65 20 20 66 6F 72 6D 61 74 20 2E 20 4F 6E 20 de format . On
027780: 74 65 73 74 65 72 61 20 64 6F 6E 63 0D 0A 20 61 testera donc.. a
027790: 75 73 73 69 20 63 65 20 63 61 73 20 2E 20 53 69 ussi ce cas . Si
0277A0: 20 20 63 65 63 69 20 20 7B 63 68 6F 75 65 20 20 ceci {choue
0277B0: 7B 67 61 6C 65 6D 65 6E 74 20 20 2C 20 6C 27 61 {galement , l'a
0277C0: 76 65 72 74 69 73 73 65 6D 65 6E 74 20 27 4A 45 vertissement 'JE
0277D0: 43 4F 49 4E 43 45 27 20 73 65 72 61 0D 0A 20 61 COINCE' sera.. a
0277E0: 63 74 69 76 7B 20 2C 20 69 6C 20 6E 65 20 72 65 ctiv{ , il ne re
0277F0: 73 74 65 20 70 6C 75 73 20 71 75 27 40 20 70 72 ste plus qu'@ pr
027800: 69 65 72 20 70 6F 75 72 20 71 75 65 20 6C 27 65 ier pour que l'e
027810: 72 72 65 75 72 20 73 65 20 63 6F 72 72 69 67 65 rreur se corrige
027820: 20 64 27 65 6C 6C 65 20 6D 65 08 5E 6D 65 0D 0A d'elle me.^me..
027830: 20 64 61 6E 73 20 6C 65 73 20 72 6F 75 74 69 6E dans les routin
027840: 65 73 20 71 75 69 20 73 75 69 76 65 6E 74 20 2E es qui suivent .
027850: 2E 2E 0D 0A 20 0D 0A 20 20 20 20 20 20 20 20 20 .... ..
027860: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027870: 20 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D ---------
027880: 2D 2D 2D 2D 2D 2D 0D 0A 20 3B 0D 0A 20 53 4F 4C ------.. ;.. SOL
027890: 55 54 49 4F 33 41 20 4C 44 20 48 4C 2C 54 46 47 UTIO3A LD HL,TFG
0278A0: 41 50 32 41 20 3B 43 52 2F 44 44 3D 4C 4D 41 58 AP2A ;CR/DD=LMAX
0278B0: 20 65 74 20 70 6C 75 73 69 65 75 72 73 20 4C 45 et plusieurs LE
0278C0: 4E 53 20 4F 4B 0D 0A 20 20 20 20 20 20 20 20 20 NS OK..
0278D0: 43 41 4C 4C 20 50 52 54 0D 0A 20 3B 20 0D 0A 20 CALL PRT.. ; ..
0278E0: 20 20 20 20 20 20 20 20 4C 44 20 41 2C 28 4C 4D LD A,(LM
0278F0: 41 58 29 20 20 20 20 20 3B 53 65 63 74 65 75 72 AX) ;Secteur
027900: 20 30 20 61 62 69 6D 65 20 70 65 75 74 20 61 76 0 abime peut av
027910: 6F 69 72 20 43 52 2F 44 44 20 2E 0D 0A 20 20 20 oir CR/DD ...
027920: 20 20 20 20 20 20 4F 52 20 41 20 20 20 20 20 20 OR A
027930: 20 20 20 20 20 20 3B 44 61 6E 73 20 63 65 20 63 ;Dans ce c
027940: 61 73 20 70 61 73 20 6D 65 74 74 72 65 20 23 46 as pas mettre #F
027950: 46 20 64 61 6E 73 20 4C 4D 41 58 20 21 21 0D 0A F dans LMAX !!..
027960: 20 20 20 20 20 20 20 20 20 4A 52 20 5A 2C 53 4F JR Z,SO
027970: 4C 55 54 49 4F 4E 33 0D 0A 20 20 20 20 20 20 20 LUTION3..
027980: 20 20 44 45 43 20 43 20 20 20 20 20 20 20 20 20 DEC C
027990: 20 20 3B 4C 4D 41 58 2D 31 20 73 69 20 43 52 2F ;LMAX-1 si CR/
0279A0: 44 44 20 3D 20 4C 4D 41 58 0D 0A 20 3B 0D 0A 20 DD = LMAX.. ;..
0279B0: 53 4F 4C 55 54 49 4F 4E 33 20 4C 44 20 41 2C 28 SOLUTION3 LD A,(
0279C0: 4C 4D 49 4E 29 20 3B 53 69 20 74 72 6F 75 76 65 LMIN) ;Si trouve
0279D0: 20 74 61 69 6C 6C 65 20 30 20 4F 4B 20 63 27 65 taille 0 OK c'e
0279E0: 73 74 20 66 6F 72 63 65 6D 65 6E 74 20 6C 61 20 st forcement la
0279F0: 76 72 61 69 65 20 21 0D 0A 20 20 20 20 20 20 20 vraie !..
027A00: 20 20 4F 52 20 41 0D 0A 20 20 20 20 20 20 20 20 OR A..
027A10: 20 4A 52 20 5A 2C 56 52 41 49 54 5A 45 52 0D 0A JR Z,VRAITZER..
027A20: 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 4C 44 ;.. LD
027A30: 20 41 2C 43 20 20 20 20 20 20 20 20 20 3B 50 6C A,C ;Pl
027A40: 75 73 20 67 72 61 6E 64 65 20 74 61 69 6C 6C 65 us grande taille
027A50: 20 75 74 69 6C 69 73 65 65 20 70 61 72 20 6C 65 utilisee par le
027A60: 73 20 49 44 53 0D 0A 20 56 52 41 49 54 5A 45 52 s IDS.. VRAITZER
027A70: 20 4C 44 20 28 4C 4D 41 58 29 2C 41 20 20 20 20 LD (LMAX),A
027A80: 3B 4F 75 20 74 61 69 6C 6C 65 20 6D 61 78 69 20 ;Ou taille maxi
027A90: 63 61 6C 63 75 6C 65 65 20 73 69 20 6C 65 20 3E calculee si le >
027AA0: 20 49 44 20 65 73 74 20 3E 20 4C 4D 41 58 0D 0A ID est > LMAX..
027AB0: 20 3B 0D 0A 20 3B 20 20 20 20 20 20 20 20 20 20 ;.. ;
027AC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 45 63 ;Ec
027AD0: 68 65 63 20 61 6E 61 6C 79 73 65 20 70 69 73 74 hec analyse pist
027AE0: 65 20 6E 6F 72 6D 61 6C 65 20 73 75 76 69 20 64 e normale suvi d
027AF0: 65 20 65 63 68 65 63 20 43 52 2F 44 44 0D 0A 20 e echec CR/DD..
027B00: 20 20 20 20 20 20 20 20 4C 44 20 48 4C 2C 54 46 LD HL,TF
027B10: 47 41 50 32 20 20 20 20 3B 64 61 6E 73 20 39 39 GAP2 ;dans 99
027B20: 25 20 64 65 73 20 63 61 73 20 63 27 65 73 74 20 % des cas c'est
027B30: 75 6E 65 20 70 69 73 74 65 20 61 76 65 63 20 64 une piste avec d
027B40: 65 73 20 73 65 63 74 65 75 72 73 0D 0A 20 20 20 es secteurs..
027B50: 20 20 20 20 20 20 43 41 4C 4C 20 50 52 54 20 20 CALL PRT
027B60: 20 20 20 20 20 20 3B 65 63 72 61 73 65 73 20 72 ;ecrases r
027B70: 65 6E 76 6F 79 61 6E 74 20 75 6E 20 66 61 75 78 envoyant un faux
027B80: 20 47 41 50 20 6F 6E 20 72 65 63 68 65 72 63 68 GAP on recherch
027B90: 65 20 64 6F 6E 63 20 75 6E 0D 0A 20 3B 20 20 20 e donc un.. ;
027BA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027BB0: 20 20 20 20 3B 23 34 45 20 70 6F 75 72 20 61 76 ;#4E pour av
027BC0: 6F 69 72 20 6C 61 20 74 61 69 6C 6C 65 20 64 75 oir la taille du
027BD0: 20 66 6F 72 6D 61 74 20 61 76 61 6E 74 20 65 63 format avant ec
027BE0: 72 61 73 65 6D 65 6E 74 0D 0A 20 20 20 20 20 20 rasement..
027BF0: 20 20 20 4C 44 20 41 2C 28 4C 49 53 54 45 52 52 LD A,(LISTERR
027C00: 29 20 20 3B 4D 41 4D 20 65 6E 20 74 65 74 65 20 ) ;MAM en tete
027C10: 69 6E 76 61 6C 69 64 65 20 6C 69 72 65 20 70 69 invalide lire pi
027C20: 73 74 65 0D 0A 20 20 20 20 20 20 20 20 20 41 4E ste.. AN
027C30: 44 20 25 30 30 30 30 30 30 31 31 20 20 20 3B 53 D %00000011 ;S
027C40: 61 75 74 65 72 20 65 6E 20 73 6F 6C 75 74 69 6F auter en solutio
027C50: 6E 20 34 0D 0A 20 20 20 20 20 20 20 20 20 43 50 n 4.. CP
027C60: 20 25 30 30 30 30 30 30 31 31 0D 0A 20 20 20 20 %00000011..
027C70: 20 20 20 20 20 4A 50 20 5A 2C 53 4F 4C 55 54 49 JP Z,SOLUTI
027C80: 4F 4E 34 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 ON4.. ;..
027C90: 20 20 4C 44 20 48 4C 2C 4C 49 54 46 44 43 32 0D LD HL,LITFDC2.
027CA0: 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 43 . CALL C
027CB0: 4F 4D 4C 49 50 49 0D 0A 20 20 20 20 20 20 20 20 OMLIPI..
027CC0: 20 4C 44 20 49 59 2C 4C 4D 41 58 20 20 20 20 20 LD IY,LMAX
027CD0: 20 3B 4C 69 6D 69 74 65 20 64 65 20 72 65 63 68 ;Limite de rech
027CE0: 65 72 63 68 65 20 61 20 4C 4D 41 58 0D 0A 20 3B erche a LMAX.. ;
027CF0: 0D 0A 20 20 20 20 20 20 20 20 20 58 4F 52 20 41 .. XOR A
027D00: 20 20 20 20 20 20 20 20 20 20 20 3B 44 65 70 61 ;Depa
027D10: 72 74 20 61 75 20 6D 69 6E 69 6D 75 6D 0D 0A 20 rt au minimum..
027D20: 20 20 20 20 20 20 20 20 4C 44 20 48 4C 2C 31 32 LD HL,12
027D30: 38 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 8.. CALL
027D40: 20 52 41 4E 47 4C 4F 4E 0D 0A 20 3B 0D 0A 20 4E RANGLON.. ;.. N
027D50: 45 58 54 4C 4F 31 20 4C 44 20 41 2C 23 46 46 0D EXTLO1 LD A,#FF.
027D60: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 42 55 . LD (BU
027D70: 46 47 41 50 53 29 2C 41 0D 0A 20 20 20 20 20 20 FGAPS),A..
027D80: 20 20 20 4C 44 20 41 2C 28 51 55 41 54 52 49 44 LD A,(QUATRID
027D90: 2B 33 29 20 3B 50 72 65 73 65 72 76 65 72 20 70 +3) ;Preserver p
027DA0: 61 72 61 6D 65 74 72 65 20 49 44 0D 0A 20 20 20 arametre ID..
027DB0: 20 20 20 20 20 20 50 55 53 48 20 41 46 0D 0A 20 PUSH AF..
027DC0: 20 20 20 20 20 20 20 20 4C 44 20 41 2C 37 20 20 LD A,7
027DD0: 20 20 20 20 20 20 20 20 20 3B 4C 69 72 65 20 70 ;Lire p
027DE0: 69 73 74 65 20 73 75 72 20 4C 45 4E 20 37 0D 0A iste sur LEN 7..
027DF0: 20 20 20 20 20 20 20 20 20 4C 44 20 28 51 55 41 LD (QUA
027E00: 54 52 49 44 2B 33 29 2C 41 0D 0A 20 20 20 20 20 TRID+3),A..
027E10: 20 20 20 20 43 41 4C 4C 20 49 4E 53 54 52 55 39 CALL INSTRU9
027E20: 0D 0A 20 20 20 20 20 20 20 20 20 50 4F 50 20 41 .. POP A
027E30: 46 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 F.. LD (
027E40: 51 55 41 54 52 49 44 2B 33 29 2C 41 20 3B 52 65 QUATRID+3),A ;Re
027E50: 63 75 70 65 72 65 72 20 70 61 72 61 6D 65 74 72 cuperer parametr
027E60: 65 20 49 44 0D 0A 20 20 20 20 20 20 20 20 20 4C e ID.. L
027E70: 44 20 41 2C 28 42 55 46 47 41 50 53 29 0D 0A 20 D A,(BUFGAPS)..
027E80: 20 20 20 20 20 20 20 20 43 50 20 23 34 45 20 20 CP #4E
027E90: 20 20 20 20 20 20 20 20 20 3B 54 65 73 74 65 72 ;Tester
027EA0: 20 47 41 50 0D 0A 20 20 20 20 20 20 20 20 20 4A GAP.. J
027EB0: 52 20 4E 5A 2C 50 41 53 42 4F 4E 32 0D 0A 20 3B R NZ,PASBON2.. ;
027EC0: 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 .. CALL
027ED0: 46 49 4E 44 47 41 50 20 20 20 20 3B 54 72 6F 75 FINDGAP ;Trou
027EE0: 76 65 20 6F 63 74 65 74 20 23 34 45 20 65 6E 20 ve octet #4E en
027EF0: 70 6F 73 69 74 69 6F 6E 0D 0A 20 20 20 20 20 20 position..
027F00: 20 20 20 4A 52 20 43 2C 46 49 4E 41 4C 20 20 20 JR C,FINAL
027F10: 20 20 20 3B 53 69 20 6C 6F 6E 67 75 65 75 72 20 ;Si longueur
027F20: 47 41 50 20 4F 4B 20 63 27 65 73 74 20 73 61 6E GAP OK c'est san
027F30: 73 20 64 6F 75 74 65 20 62 6F 6E 0D 0A 20 20 20 s doute bon..
027F40: 20 20 20 20 20 20 52 45 53 20 32 2C 28 48 4C 29 RES 2,(HL)
027F50: 20 20 20 20 20 20 3B 53 69 6E 6F 6E 20 63 27 65 ;Sinon c'e
027F60: 73 74 20 61 20 72 65 76 6F 69 72 0D 0A 20 3B 0D st a revoir.. ;.
027F70: 0A 20 50 41 53 42 4F 4E 32 20 4C 44 20 41 2C 28 . PASBON2 LD A,(
027F80: 51 55 41 54 52 49 44 2B 33 29 20 3B 56 6F 69 72 QUATRID+3) ;Voir
027F90: 20 73 69 20 64 65 72 6E 69 65 72 65 20 6C 6F 6E si derniere lon
027FA0: 67 75 65 75 72 20 74 65 73 74 65 65 3D 4C 4D 41 gueur testee=LMA
027FB0: 58 2B 31 0D 0A 20 20 20 20 20 20 20 20 20 43 50 X+1.. CP
027FC0: 20 28 49 59 2B 30 29 0D 0A 20 20 20 20 20 20 20 (IY+0)..
027FD0: 20 20 4A 52 20 5A 2C 44 55 52 44 55 52 20 20 20 JR Z,DURDUR
027FE0: 20 20 20 3B 53 69 20 6F 75 69 20 70 72 6F 62 6C ;Si oui probl
027FF0: 65 6D 65 20 65 74 20 74 65 73 74 65 72 20 73 75 eme et tester su
028000: 72 20 6C 6F 6E 67 75 65 75 72 20 31 65 72 20 73 r longueur 1er s
028010: 65 63 74 65 75 72 0D 0A 20 3B 0D 0A 20 20 20 20 ecteur.. ;..
028020: 20 20 20 20 20 43 41 4C 4C 20 49 4E 43 4C 4F 4E CALL INCLON
028030: 47 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 20 4E G.. JR N
028040: 45 58 54 4C 4F 31 0D 0A 20 3B 0D 0A 20 44 55 52 EXTLO1.. ;.. DUR
028050: 44 55 52 20 20 4C 44 20 41 2C 28 49 44 49 4E 44 DUR LD A,(IDIND
028060: 52 41 2B 33 29 20 3B 4C 65 20 31 65 72 20 73 65 RA+3) ;Le 1er se
028070: 63 74 65 75 72 20 65 63 72 69 74 20 65 73 74 20 cteur ecrit est
028080: 70 65 75 74 2D 65 74 72 65 20 70 6C 75 73 20 67 peut-etre plus g
028090: 72 61 6E 64 0D 0A 20 20 20 20 20 20 20 20 20 43 rand.. C
0280A0: 41 4C 4C 20 41 44 44 4C 4F 4E 20 20 20 20 20 20 ALL ADDLON
0280B0: 3B 71 75 65 20 6C 61 20 74 61 69 6C 6C 65 20 6D ;que la taille m
0280C0: 61 78 69 20 70 6F 73 73 69 62 6C 65 20 2C 20 6F axi possible , o
0280D0: 6E 20 72 65 6E 6F 75 76 65 6C 6C 65 0D 0A 20 20 n renouvelle..
0280E0: 20 20 20 20 20 20 20 4C 44 20 41 2C 37 20 20 20 LD A,7
0280F0: 20 20 20 20 20 20 20 20 3B 6C 27 6F 70 65 72 61 ;l'opera
028100: 74 69 6F 6E 20 73 75 72 20 63 65 74 74 65 20 62 tion sur cette b
028110: 61 73 65 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 ase.. LD
028120: 20 28 51 55 41 54 52 49 44 2B 33 29 2C 41 0D 0A (QUATRID+3),A..
028130: 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 49 4E CALL IN
028140: 53 54 52 55 39 20 20 20 20 20 3B 52 65 74 6F 75 STRU9 ;Retou
028150: 72 6E 65 72 20 76 6F 69 72 20 6C 65 20 47 41 50 rner voir le GAP
028160: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 41 2C .. LD A,
028170: 28 42 55 46 47 41 50 53 29 0D 0A 20 20 20 20 20 (BUFGAPS)..
028180: 20 20 20 20 43 50 20 23 34 45 0D 0A 20 20 20 20 CP #4E..
028190: 20 20 20 20 20 43 41 4C 4C 20 4E 5A 2C 4A 45 43 CALL NZ,JEC
0281A0: 4F 49 4E 43 45 20 3B 52 69 65 6E 20 61 20 66 61 OINCE ;Rien a fa
0281B0: 69 72 65 20 21 0D 0A 20 20 20 20 20 20 20 20 20 ire !..
0281C0: 43 41 4C 4C 20 46 49 4E 44 47 41 50 0D 0A 20 20 CALL FINDGAP..
0281D0: 20 20 20 20 20 20 20 43 41 4C 4C 20 4E 43 2C 4A CALL NC,J
0281E0: 45 43 4F 49 4E 43 45 0D 0A 20 3B 0D 0A 20 20 20 ECOINCE.. ;..
0281F0: 20 20 20 20 20 20 4C 44 20 41 2C 28 4C 4D 49 4E LD A,(LMIN
028200: 29 20 20 20 20 3B 4F 6E 20 63 6F 6E 73 69 64 65 ) ;On conside
028210: 72 65 20 61 6C 6F 72 73 20 6C 61 20 70 6C 75 73 re alors la plus
028220: 20 70 65 74 69 74 65 20 74 61 69 6C 6C 65 20 0D petite taille .
028230: 0A 20 20 20 20 20 20 20 20 20 43 50 20 23 46 46 . CP #FF
028240: 20 20 20 20 20 20 20 20 20 3B 70 6F 73 73 69 62 ;possib
028250: 6C 65 20 63 6F 6D 6D 65 20 6C 61 20 76 72 61 69 le comme la vrai
028260: 65 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 20 4E e.. JR N
028270: 5A 2C 4C 4D 49 4E 49 4E 49 0D 0A 20 20 20 20 20 Z,LMININI..
028280: 20 20 20 20 49 4E 43 20 41 20 20 20 20 20 20 20 INC A
028290: 20 20 20 3B 53 69 20 72 65 73 74 65 20 61 20 23 ;Si reste a #
0282A0: 46 46 20 63 65 20 73 65 72 61 20 30 0D 0A 20 4C FF ce sera 0.. L
0282B0: 4D 49 4E 49 4E 49 20 50 55 53 48 20 41 46 0D 0A MININI PUSH AF..
0282C0: 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 41 44 CALL AD
0282D0: 44 4C 4F 4E 20 20 20 20 3B 4F 6E 20 70 61 72 61 DLON ;On para
0282E0: 6D 65 74 72 65 20 65 74 20 6F 6E 20 65 73 70 65 metre et on espe
0282F0: 72 65 20 71 75 65 20 45 43 52 41 53 45 52 20 72 re que ECRASER r
028300: 65 73 6F 75 64 72 61 0D 0A 20 20 20 20 20 20 20 esoudra..
028310: 20 20 50 4F 50 20 41 46 20 20 20 20 20 20 20 20 POP AF
028320: 20 3B 6C 65 20 70 72 6F 62 6C 65 6D 65 20 2E 0D ;le probleme ..
028330: 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 52 . CALL R
028340: 41 4E 47 4C 4F 4E 0D 0A 20 3B 0D 0A 20 20 20 20 ANGLON.. ;..
028350: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
028360: 20 20 20 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D -------
028370: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 -------------..
028380: 0D 0A 20 20 20 20 20 49 63 69 20 6F 6E 20 61 20 .. Ici on a
028390: 74 72 6F 75 76 7B 20 61 20 63 6F 75 70 20 73 75 trouv{ a coup su
0283A0: 72 20 6F 75 20 20 65 73 74 69 6D 7B 20 20 6C 61 r ou estim{ la
0283B0: 20 20 76 72 61 69 65 20 74 61 69 6C 6C 65 20 64 vraie taille d
0283C0: 75 20 66 6F 72 6D 61 74 20 2E 20 53 69 20 63 65 u format . Si ce
0283D0: 0D 0A 20 70 72 6F 67 72 61 6D 6D 65 20 7B 74 61 .. programme {ta
0283E0: 69 74 20 6D 6F 69 6E 73 20 61 73 74 75 63 69 65 it moins astucie
0283F0: 75 78 20 2C 20 69 6C 20 20 61 75 72 61 69 74 20 ux , il aurait
028400: 20 62 65 08 5E 74 65 6D 65 6E 74 20 63 68 65 72 be.^tement cher
028410: 63 68 7B 20 6C 65 20 47 41 50 20 61 76 65 63 20 ch{ le GAP avec
028420: 75 6E 0D 0A 20 6C 69 72 65 20 70 69 73 74 65 20 un.. lire piste
028430: 73 75 72 20 20 6C 61 20 20 74 61 69 6C 6C 65 20 sur la taille
028440: 20 6D 61 78 69 6D 75 6D 20 20 70 6F 73 73 69 62 maximum possib
028450: 6C 65 20 20 65 74 20 20 73 65 20 20 73 65 72 61 le et se sera
028460: 69 74 20 20 70 6C 61 6E 74 7B 20 20 2E 20 50 6F it plant{ . Po
028470: 75 72 0D 0A 20 69 6E 66 6F 72 6D 61 74 69 6F 6E ur.. information
028480: 20 2C 20 6F 6E 20 65 66 66 65 63 74 75 65 20 71 , on effectue q
028490: 75 61 6E 64 20 20 6D 65 08 5E 6D 65 20 20 63 65 uand me.^me ce
0284A0: 74 74 65 20 20 6F 70 7B 72 61 74 69 6F 6E 20 20 tte op{ration
0284B0: 61 66 69 6E 20 64 65 20 63 6F 6E 6E 61 69 08 5E afin de connai.^
0284C0: 74 72 65 20 6C 61 0D 0A 20 66 61 75 73 73 65 20 tre la.. fausse
0284D0: 74 61 69 6C 6C 65 20 65 74 20 6C 65 73 20 76 61 taille et les va
0284E0: 6C 65 75 72 73 20 74 72 6F 75 76 7B 65 73 20 20 leurs trouv{es
0284F0: 70 61 72 20 20 6C 69 72 65 20 20 70 69 73 74 65 par lire piste
028500: 20 65 6E 20 6C 69 65 75 20 65 74 20 70 6C 61 63 en lieu et plac
028510: 65 20 64 27 75 6E 0D 0A 20 47 41 50 20 67 61 72 e d'un.. GAP gar
028520: 61 6E 74 69 20 73 61 6E 73 20 63 6F 6C 6F 72 61 anti sans colora
028530: 6E 74 20 21 20 2E 20 49 6C 20 65 73 74 20 20 7B nt ! . Il est {
028540: 76 69 64 65 6E 74 20 71 75 65 20 64 61 6E 73 20 vident que dans
028550: 6C 65 20 63 61 73 20 6F 75 20 6C 65 20 70 72 6F le cas ou le pro
028560: 67 72 61 6D 6D 65 0D 0A 20 65 73 74 20 70 61 73 gramme.. est pas
028570: 73 7B 20 70 61 72 20 44 55 52 44 55 52 20 2C 20 s{ par DURDUR ,
028580: 63 65 73 20 76 61 6C 65 75 72 73 20 73 65 20 63 ces valeurs se c
028590: 6F 6E 66 6F 6E 64 72 6F 6E 74 20 61 76 65 63 20 onfondront avec
0285A0: 6C 65 73 20 76 72 61 69 65 73 20 76 61 6C 65 75 les vraies valeu
0285B0: 72 73 20 2E 0D 0A 20 0D 0A 20 20 20 20 20 20 20 rs ... ..
0285C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0285D0: 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------
0285E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 3B 0D 0A ----------.. ;..
0285F0: 20 46 49 4E 41 4C 20 20 20 4C 44 20 41 2C 28 51 FINAL LD A,(Q
028600: 55 41 54 52 49 44 2B 33 29 20 3B 50 72 65 73 65 UATRID+3) ;Prese
028610: 72 76 65 72 20 6C 65 73 20 76 72 61 69 65 73 20 rver les vraies
028620: 76 61 6C 65 75 72 73 20 64 65 20 66 6F 72 6D 61 valeurs de forma
028630: 74 0D 0A 20 20 20 20 20 20 20 20 20 50 55 53 48 t.. PUSH
028640: 20 41 46 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 AF.. LD
028650: 20 48 4C 2C 28 4C 4F 4E 47 53 45 43 29 0D 0A 20 HL,(LONGSEC)..
028660: 20 20 20 20 20 20 20 20 50 55 53 48 20 48 4C 0D PUSH HL.
028670: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 41 2C 28 . LD A,(
028680: 47 41 50 46 4F 52 4D 29 0D 0A 20 20 20 20 20 20 GAPFORM)..
028690: 20 20 20 4C 44 20 42 2C 41 0D 0A 20 20 20 20 20 LD B,A..
0286A0: 20 20 20 20 50 55 53 48 20 42 43 0D 0A 20 3B 0D PUSH BC.. ;.
0286B0: 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 53 . CALL S
0286C0: 45 54 45 43 52 41 20 20 3B 4D 61 72 71 75 65 72 ETECRA ;Marquer
0286D0: 20 65 74 20 61 6E 6E 6F 6E 63 65 72 20 73 65 63 et annoncer sec
0286E0: 74 65 75 72 73 20 65 63 72 61 73 65 73 0D 0A 20 teurs ecrases..
0286F0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 41 ;.. LD A
028700: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
028710: 22 00 01 00 02 09 4E E5 22 00 C1 02 00 00 00 02 ".....N.".......
028720: 22 00 C2 02 00 00 00 02 22 00 C3 02 00 00 00 02 ".......".......
028730: 22 00 C4 02 00 00 00 02 22 00 C5 02 00 00 00 02 ".......".......
028740: 22 00 C6 02 00 00 00 02 22 00 C7 02 00 00 00 02 ".......".......
028750: 22 00 C8 02 00 00 00 02 22 00 C9 02 00 00 00 02 ".......".......
028760: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
028770: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
028780: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
028790: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0287A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0287B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0287C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0287D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0287E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0287F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
028800: 2C 28 4C 49 44 4D 41 58 29 20 20 3B 43 68 65 72 ,(LIDMAX) ;Cher
028810: 63 68 65 72 20 76 61 6C 65 75 72 73 20 64 75 20 cher valeurs du
028820: 66 61 75 78 20 67 61 70 0D 0A 20 20 20 20 20 20 faux gap..
028830: 20 20 20 4C 44 20 28 46 41 55 58 4C 45 4E 29 2C LD (FAUXLEN),
028840: 41 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 A.. LD (
028850: 51 55 41 54 52 49 44 2B 33 29 2C 41 0D 0A 20 20 QUATRID+3),A..
028860: 20 20 20 20 20 20 20 43 41 4C 4C 20 41 44 44 4C CALL ADDL
028870: 4F 4E 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 ON.. LD
028880: 41 2C 37 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 A,7.. LD
028890: 20 28 51 55 41 54 52 49 44 2B 33 29 2C 41 0D 0A (QUATRID+3),A..
0288A0: 20 3B 0D 0A 20 4E 45 58 54 4C 4F 20 20 43 41 4C ;.. NEXTLO CAL
0288B0: 4C 20 49 4E 53 54 52 55 39 20 20 20 3B 52 65 6C L INSTRU9 ;Rel
0288C0: 69 72 65 20 70 69 73 74 65 20 6D 61 69 73 20 61 ire piste mais a
0288D0: 76 65 63 20 6C 61 20 66 61 75 73 73 65 20 74 61 vec la fausse ta
0288E0: 69 6C 6C 65 20 6D 61 78 69 0D 0A 20 20 20 20 20 ille maxi..
0288F0: 20 20 20 20 4C 44 20 41 2C 28 42 55 46 47 41 50 LD A,(BUFGAP
028900: 53 29 20 3B 64 65 73 20 73 65 63 74 65 75 72 73 S) ;des secteurs
028910: 20 65 74 20 73 74 6F 63 6B 65 72 0D 0A 20 20 20 et stocker..
028920: 20 20 20 20 20 20 4C 44 20 28 46 41 55 58 47 41 LD (FAUXGA
028930: 50 29 2C 41 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 P),A.. ;..
028940: 20 20 20 4C 44 20 48 4C 2C 53 45 54 42 41 44 32 LD HL,SETBAD2
028950: 20 20 20 20 20 3B 49 63 69 20 63 27 65 73 74 20 ;Ici c'est
028960: 66 6F 72 63 65 6D 65 6E 74 20 75 6E 20 72 65 73 forcement un res
028970: 75 6C 74 61 74 20 66 61 75 78 20 2C 20 6F 6E 0D ultat faux , on.
028980: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 53 41 . LD (SA
028990: 55 54 42 41 44 2B 31 29 2C 48 4C 20 3B 61 6E 6E UTBAD+1),HL ;ann
0289A0: 75 6C 65 20 75 6E 65 20 70 61 72 74 69 65 20 64 ule une partie d
0289B0: 75 20 74 65 73 74 20 64 27 65 72 72 65 75 72 0D u test d'erreur.
0289C0: 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 43 41 . ;.. CA
0289D0: 4C 4C 20 46 49 4E 44 47 41 50 32 20 20 20 20 20 LL FINDGAP2
0289E0: 3B 50 6F 75 72 20 73 65 63 74 65 75 72 73 20 65 ;Pour secteurs e
0289F0: 63 72 69 74 73 0D 0A 20 3B 0D 0A 20 20 20 20 20 crits.. ;..
028A00: 20 20 20 20 4C 44 20 48 4C 2C 53 45 54 42 41 44 LD HL,SETBAD
028A10: 4C 45 4E 20 20 20 3B 50 6F 75 72 20 6C 61 20 72 LEN ;Pour la r
028A20: 65 73 74 61 75 72 65 72 20 61 75 73 73 69 74 6F estaurer aussito
028A30: 74 20 2E 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 t ... LD
028A40: 20 28 53 41 55 54 42 41 44 2B 31 29 2C 48 4C 0D (SAUTBAD+1),HL.
028A50: 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 . ;.. LD
028A60: 20 41 2C 28 47 41 50 46 4F 52 4D 29 20 20 3B 45 A,(GAPFORM) ;E
028A70: 74 20 6F 6E 20 72 61 6E 67 65 20 6C 65 73 20 66 t on range les f
028A80: 61 75 73 73 65 73 20 76 61 6C 65 75 72 73 0D 0A ausses valeurs..
028A90: 20 20 20 20 20 20 20 20 20 4C 44 20 28 46 41 55 LD (FAU
028AA0: 58 4C 47 46 29 2C 41 0D 0A 20 3B 0D 0A 20 20 20 XLGF),A.. ;..
028AB0: 20 20 20 20 20 20 50 4F 50 20 42 43 20 20 20 20 POP BC
028AC0: 20 20 20 20 20 20 3B 41 76 61 6E 74 20 64 65 20 ;Avant de
028AD0: 72 65 63 75 70 65 72 65 72 20 6C 65 73 20 76 72 recuperer les vr
028AE0: 61 69 65 73 0D 0A 20 20 20 20 20 20 20 20 20 4C aies.. L
028AF0: 44 20 41 2C 42 0D 0A 20 20 20 20 20 20 20 20 20 D A,B..
028B00: 4C 44 20 28 47 41 50 46 4F 52 4D 29 2C 41 0D 0A LD (GAPFORM),A..
028B10: 20 20 20 20 20 20 20 20 20 50 4F 50 20 48 4C 0D POP HL.
028B20: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 4C 4F . LD (LO
028B30: 4E 47 53 45 43 29 2C 48 4C 0D 0A 20 20 20 20 20 NGSEC),HL..
028B40: 20 20 20 20 50 4F 50 20 41 46 0D 0A 20 20 20 20 POP AF..
028B50: 20 20 20 20 20 4C 44 20 28 4C 45 4E 53 45 43 29 LD (LENSEC)
028B60: 2C 41 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 ,A.. LD
028B70: 28 51 55 41 54 52 49 44 2B 33 29 2C 41 0D 0A 20 (QUATRID+3),A..
028B80: 20 20 20 20 20 20 20 20 4C 44 20 41 2C 23 34 45 LD A,#4E
028B90: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 56 .. LD (V
028BA0: 41 4C 47 41 50 46 29 2C 41 0D 0A 20 20 20 20 20 ALGAPF),A..
028BB0: 20 20 20 20 43 41 4C 4C 20 46 49 4E 44 52 45 4D CALL FINDREM
028BC0: 50 20 20 20 3B 43 68 65 72 63 68 65 72 20 6F 63 P ;Chercher oc
028BD0: 74 65 74 20 46 49 4C 4C 0D 0A 20 20 20 20 20 20 tet FILL..
028BE0: 20 20 20 4A 50 20 45 43 52 41 53 45 52 20 20 20 JP ECRASER
028BF0: 20 20 20 3B 45 74 20 61 6C 6C 65 72 20 61 75 20 ;Et aller au
028C00: 74 72 61 69 74 65 6D 65 6E 74 20 64 65 73 20 73 traitement des s
028C10: 65 63 74 65 75 72 73 20 65 63 72 61 73 65 73 0D ecteurs ecrases.
028C20: 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 . ;..
028C30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
028C40: 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ------------
028C50: 2D 2D 2D 2D 0D 0A 20 0D 0A 20 20 20 20 46 49 4E ----.. .. FIN
028C60: 20 44 45 20 53 45 43 54 49 4F 4E 20 3A 20 4C 41 DE SECTION : LA
028C70: 20 4C 45 43 54 55 52 45 20 44 45 20 27 46 49 4E LECTURE DE 'FIN
028C80: 44 47 41 50 32 27 20 45 53 54 20 53 55 47 47 45 DGAP2' EST SUGGE
028C90: 52 45 45 20 41 56 45 43 20 56 49 52 55 4C 45 4E REE AVEC VIRULEN
028CA0: 43 45 20 21 0D 0A 20 0D 0A 20 20 20 20 20 20 20 CE !.. ..
028CB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
028CC0: 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D -------------
028CD0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A --------------..
028CE0: 20 1A 64 75 20 66 6F 72 6D 61 74 20 65 74 0D 0A .du format et..
028CF0: 20 64 65 73 20 47 41 50 53 20 6E 27 61 20 70 75 des GAPS n'a pu
028D00: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
028D10: 20 20 20 20 20 20 20 3B 2D 20 41 46 46 49 43 48 ;- AFFICH
028D20: 41 47 45 20 44 55 20 52 45 53 55 4C 54 41 54 20 AGE DU RESULTAT
028D30: 47 45 4E 45 52 41 4C 20 2D 0D 0A 20 20 20 20 20 GENERAL -..
028D40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
028D50: 20 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ;--------------
028D60: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
028D70: 2D 2D 2D 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 ---.. ;..
028D80: 20 20 43 41 4C 4C 20 46 45 4E 52 45 53 31 20 20 CALL FENRES1
028D90: 3B 41 66 66 69 63 68 65 72 0D 0A 20 3B 0D 0A 20 ;Afficher.. ;..
028DA0: 20 20 20 20 20 20 20 20 4C 44 20 48 4C 2C 54 4E LD HL,TN
028DB0: 42 53 45 43 20 20 3B 4E 6F 6D 62 72 65 20 73 65 BSEC ;Nombre se
028DC0: 63 74 65 75 72 73 0D 0A 20 20 20 20 20 20 20 20 cteurs..
028DD0: 20 43 41 4C 4C 20 50 52 54 0D 0A 20 20 20 20 20 CALL PRT..
028DE0: 20 20 20 20 4C 44 20 41 2C 28 4E 42 53 45 43 29 LD A,(NBSEC)
028DF0: 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 .. CALL
028E00: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 48 4C 2C . LD HL,
028E10: 49 44 49 4E 44 52 41 20 20 20 3B 49 44 53 0D 0A IDINDRA ;IDS..
028E20: 20 20 20 20 20 20 20 20 20 4C 44 20 44 45 2C 4C LD DE,L
028E30: 49 53 54 45 52 52 0D 0A 20 20 20 20 20 20 20 20 ISTERR..
028E40: 20 4C 44 20 41 2C 28 4E 42 53 45 43 29 0D 0A 20 LD A,(NBSEC)..
028E50: 20 20 20 20 20 20 20 20 4C 44 20 42 2C 41 0D 0A LD B,A..
028E60: 20 20 20 20 20 20 20 20 20 4C 44 20 43 2C 34 0D LD C,4.
028E70: 0A 20 4E 45 58 54 49 4D 50 20 44 45 43 20 43 0D . NEXTIMP DEC C.
028E80: 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 5A . CALL Z
028E90: 2C 43 52 49 4D 50 31 0D 0A 20 20 20 20 20 20 20 ,CRIMP1..
028EA0: 20 20 50 55 53 48 20 42 43 0D 0A 20 57 41 49 54 PUSH BC.. WAIT
028EB0: 49 4D 50 20 43 41 4C 4C 20 23 42 44 32 45 20 20 IMP CALL #BD2E
028EC0: 20 20 20 20 3B 41 74 74 65 6E 64 72 65 20 75 6E ;Attendre un
028ED0: 20 70 65 75 20 70 6F 75 72 20 6E 65 20 70 61 73 peu pour ne pas
028EE0: 20 70 65 72 64 72 65 20 64 65 73 20 63 61 72 61 perdre des cara
028EF0: 63 74 65 72 65 73 0D 0A 20 20 20 20 20 20 20 20 cteres..
028F00: 20 4A 52 20 43 2C 57 41 49 54 49 4D 50 0D 0A 20 JR C,WAITIMP..
028F10: 20 20 20 20 20 20 20 20 43 41 4C 4C 20 41 46 46 CALL AFF
028F20: 34 49 44 0D 0A 20 20 20 20 20 20 20 20 20 50 4F 4ID.. PO
028F30: 50 20 42 43 0D 0A 20 20 20 20 20 20 20 20 20 4C P BC.. L
028F40: 44 20 41 2C 28 44 45 29 0D 0A 20 20 20 20 20 20 D A,(DE)..
028F50: 20 20 20 49 4E 43 20 44 45 0D 0A 20 20 20 20 20 INC DE..
028F60: 20 20 20 20 50 55 53 48 20 48 4C 0D 0A 20 20 20 PUSH HL..
028F70: 20 20 20 20 20 20 50 55 53 48 20 44 45 0D 0A 20 PUSH DE..
028F80: 20 20 20 20 20 20 20 20 50 55 53 48 20 42 43 0D PUSH BC.
028F90: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 46 4C . LD (FL
028FA0: 41 47 45 52 52 29 2C 41 20 20 0D 0A 20 20 20 20 AGERR),A ..
028FB0: 20 20 20 20 20 43 41 4C 4C 20 50 52 54 33 45 52 CALL PRT3ER
028FC0: 52 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 48 R.. LD H
028FD0: 4C 2C 54 53 45 50 49 4D 50 0D 0A 20 20 20 20 20 L,TSEPIMP..
028FE0: 20 20 20 20 43 41 4C 4C 20 50 52 54 0D 0A 20 20 CALL PRT..
028FF0: 20 20 20 20 20 20 20 50 4F 50 20 42 43 0D 0A 20 POP BC..
029000: 51 55 4F 49 20 4E 45 20 4C 45 20 46 41 49 54 2D QUOI NE LE FAIT-
029010: 49 4C 20 50 41 53 20 3F 20 56 6F 75 73 20 61 76 IL PAS ? Vous av
029020: 65 7A 20 20 76 75 20 6C 61 20 74 61 69 6C 6C 65 ez vu la taille
029030: 20 64 75 20 63 6F 64 65 20 73 6F 75 72 63 65 20 du code source
029040: 64 65 20 6C 61 0D 0A 20 76 65 72 73 69 6F 6E 20 de la.. version
029050: 61 63 74 75 65 6C 6C 65 20 3F 21 21 0D 0A 20 20 actuelle ?!!..
029060: 20 20 20 43 4F 4D 4D 45 4E 54 20 49 4C 20 46 41 COMMENT IL FA
029070: 49 54 20 43 45 20 51 55 27 49 4C 20 50 45 55 54 IT CE QU'IL PEUT
029080: 20 3A 20 54 6F 75 73 20 6C 65 73 20 64 7B 74 61 : Tous les d{ta
029090: 69 6C 73 20 73 75 69 76 65 6E 74 20 64 61 6E 73 ils suivent dans
0290A0: 20 6C 61 20 6D 61 72 7B 65 20 64 65 0D 0A 20 66 la mar{e de.. f
0290B0: 69 63 68 69 65 72 73 20 71 75 69 20 76 61 20 6E ichiers qui va n
0290C0: 6F 79 65 72 20 76 6F 73 20 20 65 73 70 72 69 74 oyer vos esprit
0290D0: 73 20 20 7B 62 61 68 69 73 20 20 2E 20 50 6F 75 s {bahis . Pou
0290E0: 72 20 65 73 70 7B 72 65 72 20 63 6F 6D 70 72 65 r esp{rer compre
0290F0: 6E 64 72 65 20 71 75 65 6C 71 75 65 0D 0A 20 63 ndre quelque.. c
029100: 68 6F 73 65 20 6E 6F 74 65 7A 20 62 69 65 6E 20 hose notez bien
029110: 63 65 20 71 75 69 20 73 75 69 74 20 3A 0D 0A 20 ce qui suit :..
029120: 0D 0A 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D .. -----------
029130: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
029140: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
029150: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
029160: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A --------------..
029170: 20 20 2D 20 52 41 50 50 45 4C 20 44 45 53 20 45 - RAPPEL DES E
029180: 54 41 54 53 20 44 27 45 52 52 45 55 52 20 4C 45 TATS D'ERREUR LE
029190: 53 20 50 4C 55 53 20 43 4F 55 52 41 4E 54 53 20 S PLUS COURANTS
0291A0: 45 54 20 43 45 20 51 55 27 4F 4E 20 50 45 55 54 ET CE QU'ON PEUT
0291B0: 20 45 4E 20 44 45 44 55 49 52 45 20 2D 0D 0A 20 EN DEDUIRE -..
0291C0: 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D --------------
0291D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0291E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0291F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
029200: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 0D 0A -----------.. ..
029210: 20 20 20 20 20 43 52 2F 44 44 20 3A 20 4C 6F 72 CR/DD : Lor
029220: 73 71 75 65 20 63 65 73 20 32 20 6D 65 73 73 61 sque ces 2 messa
029230: 67 65 73 20 73 6F 6E 74 20 73 69 6D 75 6C 74 61 ges sont simulta
029240: 6E 7B 73 20 6F 6E 20 73 61 69 74 20 71 75 65 20 n{s on sait que
029250: 3A 0D 0A 20 0D 0A 20 20 20 20 20 31 20 3A 20 4C :.. .. 1 : L
029260: 61 20 20 6C 6F 6E 67 75 65 75 72 20 20 64 7B 63 a longueur d{c
029270: 6C 61 72 7B 65 20 20 64 61 6E 73 20 20 6C 27 49 lar{e dans l'I
029280: 44 20 20 65 73 74 20 20 64 69 66 66 7B 72 65 6E D est diff{ren
029290: 74 65 20 20 64 65 20 20 6C 61 20 74 61 69 6C 6C te de la taill
0292A0: 65 20 64 65 0D 0A 20 66 6F 72 6D 61 74 61 67 65 e de.. formatage
0292B0: 20 2E 20 4F 6E 20 70 65 75 74 20 64 7B 6A 40 20 . On peut d{j@
0292C0: 20 64 69 72 65 20 20 64 65 20 20 71 75 65 6C 6C dire de quell
0292D0: 65 28 73 29 20 20 74 61 69 6C 6C 65 28 73 29 20 e(s) taille(s)
0292E0: 20 6C 65 20 66 6F 72 6D 61 74 20 4E 27 45 53 54 le format N'EST
0292F0: 20 50 41 53 0D 0A 20 43 4F 4E 53 54 49 54 55 45 PAS.. CONSTITUE
029300: 0D 0A 20 20 20 20 20 32 20 3A 20 53 69 20 6C 61 .. 2 : Si la
029310: 20 6C 6F 6E 67 75 65 75 72 20 64 27 75 6E 20 20 longueur d'un
029320: 43 52 2F 44 44 20 20 65 73 74 20 20 50 4C 55 53 CR/DD est PLUS
029330: 20 20 47 52 41 4E 44 45 20 20 71 75 65 20 6C 61 GRANDE que la
029340: 20 76 72 61 69 65 20 74 61 69 6C 6C 65 20 64 65 vraie taille de
029350: 0D 0A 20 66 6F 72 6D 61 74 61 67 65 20 6F 6E 20 .. formatage on
029360: 65 73 74 20 73 75 72 20 64 27 79 20 74 72 6F 75 est sur d'y trou
029370: 76 65 72 20 20 6C 65 20 20 47 41 50 20 20 65 74 ver le GAP et
029380: 20 20 73 61 20 6C 6F 6E 67 75 65 75 72 20 65 74 sa longueur et
029390: 20 64 27 65 6E 20 64 7B 64 75 69 72 65 20 6C 61 d'en d{duire la
0293A0: 0D 0A 20 76 72 61 69 65 20 74 61 69 6C 6C 65 20 .. vraie taille
0293B0: 64 75 20 66 6F 72 6D 61 74 20 2E 0D 0A 20 20 20 du format ...
0293C0: 20 20 33 20 3A 20 55 6E 20 73 65 63 74 65 75 72 3 : Un secteur
0293D0: 20 43 52 2F 44 44 20 6E 27 61 20 50 41 53 20 20 CR/DD n'a PAS
0293E0: 45 54 45 20 20 45 43 52 49 54 20 20 2E 20 20 4F ETE ECRIT . O
0293F0: 6E 20 65 73 74 20 61 73 73 75 72 7B 20 64 27 79 n est assur{ d'y
029400: 20 74 72 6F 75 76 65 72 20 6C 65 0D 0A 20 76 7B trouver le.. v{
029410: 72 69 74 61 62 6C 65 20 6F 63 74 65 74 20 64 65 ritable octet de
029420: 20 72 65 6D 70 6C 69 73 73 61 67 65 20 2E 0D 0A remplissage ...
029430: 20 0D 0A 20 20 20 20 20 43 52 20 6F 75 20 44 44 .. CR ou DD
029440: 20 3A 20 53 69 20 20 6C 27 75 6E 20 20 6F 75 20 : Si l'un ou
029450: 20 6C 27 61 75 74 72 65 20 20 61 70 70 61 72 61 l'autre appara
029460: 69 08 5E 74 20 20 69 73 6F 6C 7B 6D 65 6E 74 20 i.^t isol{ment
029470: 20 2C 20 6C 61 20 6C 65 63 74 75 72 65 20 61 20 , la lecture a
029480: 7B 74 7B 0D 0A 20 69 6E 66 6C 75 65 6E 63 7B 65 {t{.. influenc{e
029490: 20 70 61 72 20 75 6E 65 20 65 72 72 65 75 72 20 par une erreur
0294A0: 64 75 20 64 72 69 76 65 20 6F 75 20 75 6E 20 64 du drive ou un d
0294B0: 7B 66 61 75 74 20 64 65 20 73 75 72 66 61 63 65 {faut de surface
0294C0: 20 64 75 20 64 69 73 71 75 65 20 2E 0D 0A 20 0D du disque ... .
0294D0: 0A 20 20 20 20 20 4D 41 4D 20 3A 20 53 69 20 63 . MAM : Si c
0294E0: 65 20 6D 65 73 73 61 67 65 20 20 63 6F 6E 63 65 e message conce
0294F0: 72 6E 65 20 20 75 6E 20 20 73 65 63 74 65 75 72 rne un secteur
029500: 20 20 64 65 20 20 74 61 69 6C 6C 65 20 20 30 20 de taille 0
029510: 63 27 65 73 74 20 6E 6F 72 6D 61 6C 20 65 74 0D c'est normal et.
029520: 0A 20 63 65 6C 61 20 73 69 67 6E 69 66 69 65 20 . cela signifie
029530: 71 75 27 75 6E 20 73 65 63 74 65 75 72 20 64 6F qu'un secteur do
029540: 6E 74 20 6C 61 20 20 74 61 69 6C 6C 65 20 20 64 nt la taille d
029550: 7B 63 6C 61 72 7B 65 20 20 64 61 6E 73 20 20 6C {clar{e dans l
029560: 27 49 44 20 65 73 74 20 30 20 61 20 7B 74 7B 0D 'ID est 0 a {t{.
029570: 0A 20 7B 63 72 69 74 20 2E 20 28 45 63 72 69 74 . {crit . (Ecrit
029580: 75 72 65 20 64 27 75 6E 20 74 61 69 6C 6C 65 20 ure d'un taille
029590: 30 20 63 6F 72 72 65 63 74 65 20 69 6D 70 6F 73 0 correcte impos
0295A0: 73 69 62 6C 65 20 40 20 63 65 20 6A 6F 75 72 20 sible @ ce jour
0295B0: 73 75 72 20 43 50 43 29 20 2E 20 44 61 6E 73 0D sur CPC) . Dans.
0295C0: 0A 20 74 6F 75 74 20 61 75 74 72 65 20 63 61 73 . tout autre cas
0295D0: 20 6D 65 08 5E 6D 65 20 73 69 67 6E 69 66 69 63 me.^me signific
0295E0: 61 74 69 6F 6E 20 71 75 65 20 43 52 20 6F 75 20 ation que CR ou
0295F0: 44 44 20 73 65 75 6C 20 2E 0D 0A 20 0D 0A 20 20 DD seul ... ..
029600: 20 20 20 4F 4B 20 3A 20 4D 65 73 73 61 67 65 20 OK : Message
029610: 6C 6F 75 72 64 20 64 65 20 73 69 67 6E 69 66 69 lourd de signifi
029620: 63 61 74 69 6F 6E 73 20 21 20 20 53 69 20 20 69 cations ! Si i
029630: 6C 20 20 65 73 74 20 6A 6F 69 6E 74 20 40 20 75 l est joint @ u
029640: 6E 20 73 65 63 74 65 75 72 20 64 65 0D 0A 20 74 n secteur de.. t
029650: 61 69 6C 6C 65 20 30 20 6F 6E 20 73 61 69 74 20 aille 0 on sait
029660: 71 75 65 20 20 6C 65 20 20 73 65 63 74 65 75 72 que le secteur
029670: 20 20 63 6F 6E 63 65 72 6E 7B 20 20 6E 27 65 73 concern{ n'es
029680: 74 20 20 70 61 73 20 20 7B 63 72 69 74 20 20 2C t pas {crit ,
029690: 20 71 75 65 20 6C 27 6F 6E 20 79 2D 0D 0A 20 74 que l'on y-.. t
0296A0: 72 6F 75 76 65 72 61 20 6C 27 6F 63 74 65 74 20 rouvera l'octet
0296B0: 64 65 20 66 6F 72 6D 61 74 61 67 65 20 2C 20 71 de formatage , q
0296C0: 75 65 20 20 63 27 65 73 74 20 20 6C 61 20 76 72 ue c'est la vr
0296D0: 61 69 65 20 74 61 69 6C 6C 65 20 64 75 20 66 6F aie taille du fo
0296E0: 72 6D 61 74 20 70 75 69 73 71 75 65 0D 0A 20 64 rmat puisque.. d
0296F0: 61 6E 73 20 74 6F 75 74 20 61 75 74 72 65 20 63 ans tout autre c
029700: 61 73 20 6F 6E 20 61 75 72 61 69 74 20 75 6E 20 as on aurait un
029710: 43 52 2F 44 44 20 6F 75 20 75 6E 20 4D 41 4D 20 CR/DD ou un MAM
029720: 2E 0D 0A 20 20 20 20 20 50 6F 75 72 20 74 6F 75 ... Pour tou
029730: 74 20 61 75 74 72 65 20 74 61 69 6C 6C 65 20 2C t autre taille ,
029740: 20 6F 6E 20 70 6F 75 72 72 61 20 65 6E 76 69 73 on pourra envis
029750: 61 67 65 72 20 63 65 74 74 65 20 76 61 6C 65 75 ager cette valeu
029760: 72 20 63 6F 6D 6D 65 20 6C 27 75 6E 65 20 64 65 r comme l'une de
029770: 73 0D 0A 20 74 61 69 6C 6C 65 73 20 64 65 20 66 s.. tailles de f
029780: 6F 72 6D 61 74 20 70 6F 73 73 69 62 6C 65 73 20 ormat possibles
029790: 65 74 20 6F 6E 20 65 73 74 20 20 73 75 72 20 20 et on est sur
0297A0: 71 75 65 20 63 65 20 73 65 63 74 65 75 72 20 65 que ce secteur e
0297B0: 73 74 20 7B 63 72 69 74 20 61 76 65 63 20 64 65 st {crit avec de
0297C0: 73 0D 0A 20 64 6F 6E 6E 7B 65 73 20 63 6F 68 7B s.. donn{es coh{
0297D0: 72 65 6E 74 65 73 20 2E 0D 0A 20 0D 0A 20 20 20 rentes ... ..
0297E0: 20 20 53 69 20 6C 61 20 20 72 6F 75 74 69 6E 65 Si la routine
0297F0: 20 20 46 49 4E 44 4C 45 4E 20 20 64 65 20 20 53 FINDLEN de S
029800: 4F 53 33 20 20 28 72 7B 75 74 69 6C 69 73 7B 65 OS3 (r{utilis{e
029810: 20 20 63 6F 6D 6D 65 20 20 31 65 72 20 20 74 65 comme 1er te
029820: 73 74 29 20 72 7B 75 73 73 69 74 0D 0A 20 74 6F st) r{ussit.. to
029830: 75 74 20 76 61 20 62 69 65 6E 20 2C 20 20 73 69 ut va bien , si
029840: 6E 6F 6E 20 20 6C 27 61 70 70 6C 69 63 61 74 69 non l'applicati
029850: 6F 6E 20 20 70 72 61 74 69 71 75 65 20 20 64 65 on pratique de
029860: 20 20 63 65 73 20 64 7B 64 75 63 74 69 6F 6E 73 ces d{ductions
029870: 20 70 65 72 6D 65 74 20 75 6E 65 0D 0A 20 70 72 permet une.. pr
029880: 65 6D 69 7D 72 65 20 64 7B 63 61 6E 74 61 74 69 emi}re d{cantati
029890: 6F 6E 20 64 75 20 70 72 6F 62 6C 7D 6D 65 20 2E on du probl}me .
0298A0: 20 20 44 61 6E 73 20 20 6C 65 73 20 20 73 69 74 Dans les sit
0298B0: 75 61 74 69 6F 6E 73 20 64 27 7B 63 68 65 63 20 uations d'{chec
0298C0: 64 65 20 63 65 73 20 64 65 75 78 0D 0A 20 73 79 de ces deux.. sy
0298D0: 73 74 7D 6D 65 73 20 2C 20 73 61 63 68 61 6E 74 st}mes , sachant
0298E0: 20 71 75 65 20 6C 65 20 6E 6F 6D 62 72 65 20 20 que le nombre
0298F0: 64 65 20 20 73 65 63 74 65 75 72 73 20 20 73 75 de secteurs su
029900: 72 20 75 6E 65 20 70 69 73 74 65 20 65 73 74 20 r une piste est
029910: 66 6F 6E 63 74 69 6F 6E 20 64 65 0D 0A 20 6C 65 fonction de.. le
029920: 75 72 20 74 61 69 6C 6C 65 20 65 74 20 64 75 20 ur taille et du
029930: 20 47 41 50 20 20 2C 20 20 75 6E 65 20 20 73 7B GAP , une s{
029940: 72 69 65 20 20 64 65 20 20 63 6F 6D 70 61 72 61 rie de compara
029950: 69 73 6F 6E 73 20 65 6E 74 72 65 20 6C 65 73 20 isons entre les
029960: 64 69 66 66 7B 72 65 6E 74 65 73 0D 0A 20 76 61 diff{rentes.. va
029970: 6C 65 75 72 73 20 70 6F 73 73 69 62 6C 65 73 20 leurs possibles
029980: 65 74 20 6C 65 73 20 76 61 6C 65 75 72 73 20 6D et les valeurs m
029990: 61 78 69 6D 61 6C 65 73 20 74 6F 6C 7B 72 7B 65 aximales tol{r{e
0299A0: 73 20 70 65 72 6D 65 74 74 72 6F 6E 74 20 64 65 s permettront de
0299B0: 20 63 68 6F 69 73 69 72 20 6C 61 0D 0A 20 72 6F choisir la.. ro
0299C0: 75 74 69 6E 65 20 64 65 20 74 72 61 69 74 65 6D utine de traitem
0299D0: 65 6E 74 20 61 70 70 72 6F 70 72 69 7B 65 20 2E ent appropri{e .
0299E0: 0D 0A 20 0D 0A 20 20 20 20 20 44 61 6E 73 20 6C .. .. Dans l
0299F0: 65 20 63 61 73 20 64 65 20 73 65 63 74 65 75 72 e cas de secteur
029A00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
029A10: 23 00 01 00 02 09 4E E5 23 00 C1 02 00 00 00 02 #.....N.#.......
029A20: 23 00 C2 02 00 00 00 02 23 00 C3 02 00 00 00 02 #.......#.......
029A30: 23 00 C4 02 00 00 00 02 23 00 C5 02 00 00 00 02 #.......#.......
029A40: 23 00 C6 02 00 00 00 02 23 00 C7 02 00 00 00 02 #.......#.......
029A50: 23 00 C8 02 00 00 00 02 23 00 C9 02 00 00 00 02 #.......#.......
029A60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029A70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029A80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029A90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029AA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029AB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029AC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029AD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029AE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029AF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029B00: 73 20 7B 63 72 61 73 7B 73 20 2C 20 69 6C 20 79 s {cras{s , il y
029B10: 2D 40 20 70 61 72 66 6F 69 73 20 75 6E 65 20 61 -@ parfois une a
029B20: 6D 62 69 67 75 69 74 7B 20 63 6F 6E 63 65 72 6E mbiguit{ concern
029B30: 61 6E 74 0D 0A 20 6C 61 20 74 61 69 6C 6C 65 20 ant.. la taille
029B40: 64 27 6F 72 69 67 69 6E 65 20 64 75 20 66 6F 72 d'origine du for
029B50: 6D 61 74 20 2E 20 44 61 6E 73 20 63 65 20 63 61 mat . Dans ce ca
029B60: 73 20 2C 20 6C 61 20 72 65 63 68 65 72 63 68 65 s , la recherche
029B70: 20 64 75 20 47 41 50 20 71 75 69 20 73 65 20 66 du GAP qui se f
029B80: 61 69 74 0D 0A 20 74 6F 75 6A 6F 75 72 73 20 70 ait.. toujours p
029B90: 61 72 20 75 6E 65 20 69 6E 73 74 72 75 63 74 69 ar une instructi
029BA0: 6F 6E 20 27 4C 69 72 65 20 70 69 73 74 65 27 20 on 'Lire piste'
029BB0: 73 65 20 20 66 61 69 74 20 20 32 20 66 6F 69 73 se fait 2 fois
029BC0: 20 2E 20 4C 61 20 70 72 65 6D 69 7D 72 65 20 61 . La premi}re a
029BD0: 76 65 63 0D 0A 20 6C 61 20 74 61 69 6C 6C 65 20 vec.. la taille
029BE0: 64 65 20 66 6F 72 6D 61 74 20 71 75 65 20 6C 27 de format que l'
029BF0: 6F 6E 20 61 75 72 61 69 74 20 61 69 6D 7B 20 20 on aurait aim{
029C00: 6E 6F 75 73 20 66 61 69 72 65 20 70 72 65 6E 64 nous faire prend
029C10: 72 65 20 70 6F 75 72 20 6C 61 20 76 72 61 69 65 re pour la vraie
029C20: 20 65 74 0D 0A 20 64 61 6E 73 20 63 65 20 63 61 et.. dans ce ca
029C30: 73 20 6F 6E 20 74 72 6F 75 76 65 72 61 20 75 6E s on trouvera un
029C40: 65 20 76 61 6C 65 75 72 20 64 65 20 47 41 50 3C e valeur de GAP<
029C50: 3E 20 23 34 45 20 2E 20 4C 61 20 73 65 63 6F 6E > #4E . La secon
029C60: 64 65 20 73 65 20 66 61 69 74 20 61 76 65 63 20 de se fait avec
029C70: 6C 65 73 0D 0A 20 76 72 61 69 65 73 20 76 61 6C les.. vraies val
029C80: 65 75 72 73 20 65 74 20 64 6F 6E 6E 65 20 6C 65 eurs et donne le
029C90: 20 72 7B 73 75 6C 74 61 74 20 63 6F 6E 76 65 6E r{sultat conven
029CA0: 61 62 6C 65 20 2E 20 41 70 72 7D 73 20 61 6E 61 able . Apr}s ana
029CB0: 6C 79 73 65 20 64 27 75 6E 65 20 70 69 73 74 65 lyse d'une piste
029CC0: 20 64 65 0D 0A 20 63 65 20 67 65 6E 72 65 20 2C de.. ce genre ,
029CD0: 20 65 6E 20 70 6C 75 73 20 64 65 73 20 76 72 61 en plus des vra
029CE0: 69 65 73 20 64 6F 6E 6E 7B 65 73 20 2C 20 6C 65 ies donn{es , le
029CF0: 20 70 72 6F 67 72 61 6D 6D 65 20 76 6F 75 73 20 programme vous
029D00: 69 6E 66 6F 72 6D 65 20 64 65 73 20 76 61 6C 65 informe des vale
029D10: 75 72 73 0D 0A 20 74 72 6F 75 76 7B 65 73 20 6C urs.. trouv{es l
029D20: 6F 72 73 20 64 65 20 20 6C 61 20 20 70 72 65 6D ors de la prem
029D30: 69 7D 72 65 20 20 72 65 63 68 65 72 63 68 65 20 i}re recherche
029D40: 20 73 6F 75 73 20 20 6C 65 73 20 20 6E 6F 6D 20 sous les nom
029D50: 20 46 41 55 58 20 20 47 41 50 20 2C 20 46 41 55 FAUX GAP , FAU
029D60: 53 53 45 0D 0A 20 4C 4F 4E 47 55 45 55 52 20 44 SSE.. LONGUEUR D
029D70: 45 20 47 41 50 20 2C 20 46 41 55 53 53 45 20 54 E GAP , FAUSSE T
029D80: 41 49 4C 4C 45 20 44 45 20 20 46 4F 52 4D 41 54 AILLE DE FORMAT
029D90: 20 2E 20 49 6C 20 61 72 72 69 76 65 20 61 75 73 . Il arrive aus
029DA0: 73 69 20 71 75 27 75 6E 65 20 61 6D 62 69 67 75 si qu'une ambigu
029DB0: 69 74 7B 0D 0A 20 70 65 72 73 69 73 74 65 20 28 it{.. persiste (
029DC0: 50 6C 75 73 69 65 75 72 73 20 49 44 53 20 64 65 Plusieurs IDS de
029DD0: 20 20 6C 6F 6E 67 75 65 75 72 20 20 73 6F 6E 74 longueur sont
029DE0: 20 20 64 69 66 66 7B 72 65 6E 74 73 20 20 6D 61 diff{rents ma
029DF0: 69 73 20 20 69 6C 20 20 6E 27 79 20 61 20 61 75 is il n'y a au
029E00: 63 75 6E 0D 0A 20 7B 6C 7B 6D 65 6E 74 20 70 65 cun.. {l{ment pe
029E10: 72 6D 65 74 74 61 6E 74 20 64 65 20 63 65 72 74 rmettant de cert
029E20: 69 66 69 65 72 20 71 75 65 20 6C 61 20 20 70 69 ifier que la pi
029E30: 73 74 65 20 20 70 6F 72 74 65 20 75 6E 20 66 6F ste porte un fo
029E40: 72 6D 61 74 20 7B 63 72 61 73 7B 29 20 2E 20 44 rmat {cras{) . D
029E50: 61 6E 73 0D 0A 20 63 65 20 63 61 73 20 6C 65 73 ans.. ce cas les
029E60: 20 73 65 63 74 65 75 72 73 20 73 6F 6E 74 20 20 secteurs sont
029E70: 6D 61 6C 67 72 7B 20 20 74 6F 75 74 20 20 7B 63 malgr{ tout {c
029E80: 72 61 73 7B 73 20 20 70 61 72 20 20 6C 65 20 20 ras{s par le
029E90: 63 6F 70 69 65 75 72 20 65 74 20 6C 61 20 6C 69 copieur et la li
029EA0: 67 6E 65 0D 0A 20 27 54 41 49 4C 4C 45 20 50 4F gne.. 'TAILLE PO
029EB0: 53 53 49 42 4C 45 27 20 76 6F 75 73 20 64 6F 6E SSIBLE' vous don
029EC0: 6E 65 20 6C 61 20 73 65 63 6F 6E 64 65 20 74 61 ne la seconde ta
029ED0: 69 6C 6C 65 20 64 65 20 73 65 63 74 65 75 72 73 ille de secteurs
029EE0: 20 71 75 69 20 41 55 52 41 49 54 20 50 55 20 65 qui AURAIT PU e
029EF0: 08 5E 74 72 65 0D 0A 20 76 61 6C 61 62 6C 65 20 .^tre.. valable
029F00: 2E 0D 0A 20 0D 0A 20 20 20 20 20 42 69 65 6E 20 ... .. Bien
029F10: 71 75 65 20 6C 65 20 70 72 6F 67 72 61 6D 6D 65 que le programme
029F20: 20 73 6F 69 74 20 74 72 7D 73 20 64 69 66 66 7B soit tr}s diff{
029F30: 72 65 6E 74 20 20 64 65 20 20 63 65 20 71 75 69 rent de ce qui
029F40: 20 40 20 7B 74 7B 20 70 72 7B 73 65 6E 74 7B 20 @ {t{ pr{sent{
029F50: 64 61 6E 73 0D 0A 20 6C 65 73 20 6E 75 6D 7B 72 dans.. les num{r
029F60: 6F 73 20 70 72 7B 63 7B 64 65 6E 74 73 20 2C 20 os pr{c{dents ,
029F70: 64 65 20 6E 6F 6D 62 72 65 75 73 65 73 20 20 72 de nombreuses r
029F80: 6F 75 74 69 6E 65 73 20 20 73 6F 6E 74 20 6C 65 outines sont le
029F90: 73 20 6D 65 08 5E 6D 65 73 20 2E 20 4C 65 73 20 s me.^mes . Les
029FA0: 6C 61 62 65 6C 73 0D 0A 20 64 65 73 20 72 6F 75 labels.. des rou
029FB0: 74 69 6E 65 73 20 63 6F 6D 6D 75 6E 65 73 20 40 tines communes @
029FC0: 20 74 6F 75 73 20 6C 65 73 20 6E 75 6D 7B 72 6F tous les num{ro
029FD0: 73 20 64 65 20 53 4F 53 20 50 52 4F 47 52 41 4D s de SOS PROGRAM
029FE0: 4D 45 55 52 53 20 6E 27 6F 6E 74 20 70 61 73 20 MEURS n'ont pas
029FF0: 63 68 61 6E 67 7B 0D 0A 20 64 27 75 6E 20 63 61 chang{.. d'un ca
02A000: 72 61 63 74 7D 72 65 20 65 74 20 6F 6E 74 20 74 ract}re et ont t
02A010: 6F 75 6A 6F 75 72 73 20 6C 61 20 6D 65 08 5E 6D oujours la me.^m
02A020: 65 20 66 6F 6E 63 74 69 6F 6E 20 2E 0D 0A 20 0D e fonction ... .
02A030: 0A 20 20 20 20 20 41 75 74 61 6E 74 20 71 75 65 . Autant que
02A040: 20 66 61 69 72 65 20 73 65 20 70 65 75 74 20 2C faire se peut ,
02A050: 20 6C 65 73 20 72 65 67 69 73 74 72 65 73 20 20 les registres
02A060: 64 75 20 5A 38 30 20 73 6F 6E 74 20 75 74 69 6C du Z80 sont util
02A070: 69 73 7B 73 20 64 65 20 6C 61 20 6D 65 08 5E 6D is{s de la me.^m
02A080: 65 0D 0A 20 6D 61 6E 69 7D 72 65 20 2E 20 43 65 e.. mani}re . Ce
02A090: 20 20 71 75 69 20 20 73 75 69 74 20 20 70 65 75 qui suit peu
02A0A0: 74 20 20 76 6F 75 73 20 20 73 65 72 76 69 72 20 t vous servir
02A0B0: 20 64 65 20 20 67 75 69 64 65 20 20 64 61 6E 73 de guide dans
02A0C0: 20 20 39 35 25 20 64 65 73 20 67 72 6F 73 73 65 95% des grosse
02A0D0: 73 0D 0A 20 72 6F 75 74 69 6E 65 73 20 2E 0D 0A s.. routines ...
02A0E0: 20 0D 0A 20 20 20 20 20 48 4C 20 3A 20 50 6F 69 .. HL : Poi
02A0F0: 6E 74 65 75 72 20 70 72 69 6E 63 69 70 61 6C 20 nteur principal
02A100: 64 65 20 6C 61 20 6C 69 73 74 65 20 20 64 65 73 de la liste des
02A110: 20 64 6F 6E 6E 7B 65 73 20 65 6E 20 63 6F 75 72 donn{es en cour
02A120: 73 20 64 65 20 74 72 61 69 74 65 6D 65 6E 74 20 s de traitement
02A130: 2E 0D 0A 20 50 65 75 74 20 65 08 5E 74 72 65 20 ... Peut e.^tre
02A140: 75 74 69 6C 69 73 7B 20 74 65 6D 70 6F 72 61 69 utilis{ temporai
02A150: 72 65 6D 65 6E 74 20 70 6F 75 72 20 75 6E 65 20 rement pour une
02A160: 69 6E 63 72 7B 6D 65 6E 74 61 74 69 6F 6E 20 6F incr{mentation o
02A170: 75 20 75 6E 65 20 61 64 64 69 74 69 6F 6E 20 6D u une addition m
02A180: 61 69 73 0D 0A 20 64 61 6E 73 20 63 65 20 63 61 ais.. dans ce ca
02A190: 73 20 65 73 74 20 74 6F 75 6A 6F 75 72 73 20 70 s est toujours p
02A1A0: 72 7B 73 65 72 76 7B 20 65 74 20 72 65 73 74 69 r{serv{ et resti
02A1B0: 74 75 7B 20 2E 0D 0A 20 20 20 20 20 44 45 20 3A tu{ ... DE :
02A1C0: 20 50 6F 69 6E 74 65 75 72 20 64 65 20 6C 61 20 Pointeur de la
02A1D0: 6C 69 73 74 65 20 64 65 20 20 64 6F 6E 6E 7B 65 liste de donn{e
02A1E0: 73 20 73 65 63 6F 6E 64 61 69 72 65 73 20 71 75 s secondaires qu
02A1F0: 61 6E 74 20 6F 6E 20 65 6E 20 75 74 69 6C 69 73 ant on en utilis
02A200: 65 20 75 6E 65 0D 0A 20 28 4C 49 53 54 45 52 52 e une.. (LISTERR
02A210: 20 70 61 72 20 65 78 65 6D 70 6C 65 29 20 2E 20 par exemple) .
02A220: 46 6F 75 72 72 65 20 74 6F 75 74 20 64 61 6E 73 Fourre tout dans
02A230: 20 6C 65 73 20 61 75 74 72 65 73 20 63 61 73 20 les autres cas
02A240: 2E 0D 0A 20 20 20 20 20 42 20 20 3A 20 44 61 6E ... B : Dan
02A250: 73 20 6C 65 73 20 62 6F 75 63 6C 65 73 20 20 64 s les boucles d
02A260: 65 20 20 74 72 61 69 74 65 6D 65 6E 74 20 20 2C e traitement ,
02A270: 20 20 63 6F 6E 74 69 65 6E 74 20 20 74 6F 75 6A contient touj
02A280: 6F 75 72 73 20 6C 65 20 6E 6F 6D 62 72 65 20 64 ours le nombre d
02A290: 65 0D 0A 20 73 65 63 74 65 75 72 73 20 65 74 20 e.. secteurs et
02A2A0: 65 73 74 20 74 6F 75 6A 6F 75 72 73 20 70 72 7B est toujours pr{
02A2B0: 73 65 72 76 7B 20 2E 0D 0A 20 20 20 20 20 43 20 serv{ ... C
02A2C0: 3A 20 43 6F 6D 70 74 65 75 72 20 73 65 63 6F 6E : Compteur secon
02A2D0: 64 61 69 72 65 20 38 20 62 69 74 73 20 6F 7C 20 daire 8 bits o|
02A2E0: 6D 7B 6D 6F 72 69 73 65 20 75 6E 65 20 76 61 6C m{morise une val
02A2F0: 65 75 72 20 64 65 20 63 6F 6D 70 61 72 61 69 73 eur de comparais
02A300: 6F 6E 20 64 61 6E 73 0D 0A 20 6C 65 73 20 73 7B on dans.. les s{
02A310: 72 69 65 73 20 64 65 20 74 65 73 74 73 20 2E 0D ries de tests ..
02A320: 0A 20 20 20 20 20 49 58 20 3A 20 54 6F 75 6A 6F . IX : Toujo
02A330: 75 72 73 20 6C 65 20 20 70 6F 69 6E 74 65 75 72 urs le pointeur
02A340: 20 20 64 65 73 20 20 49 44 53 20 20 64 61 6E 73 des IDS dans
02A350: 20 20 6C 65 73 20 20 73 65 63 74 69 6F 6E 73 20 les sections
02A360: 64 27 61 6E 61 6C 79 73 65 20 65 74 20 6C 65 0D d'analyse et le.
02A370: 0A 20 70 6F 69 6E 74 65 75 72 20 64 65 73 20 61 . pointeur des a
02A380: 64 72 65 73 73 65 73 20 62 75 66 66 65 72 20 65 dresses buffer e
02A390: 6E 20 73 74 6F 63 6B 61 67 65 20 65 74 20 7B 63 n stockage et {c
02A3A0: 72 69 74 75 72 65 20 2E 0D 0A 20 20 20 20 20 49 riture ... I
02A3B0: 59 20 3A 20 48 6F 6D 6D 65 20 64 65 20 70 61 69 Y : Homme de pai
02A3C0: 6C 6C 65 20 40 20 75 73 61 67 65 73 20 6D 75 6C lle @ usages mul
02A3D0: 74 69 70 6C 65 73 20 2E 0D 0A 20 0D 0A 20 20 20 tiples ... ..
02A3E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02A3F0: 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ------------
02A400: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
02A410: 2D 2D 2D 2D 0D 0A 20 0D 0A 20 46 49 4E 20 44 45 ----.. .. FIN DE
02A420: 20 53 45 43 54 49 4F 4E 20 2E 20 4C 45 53 20 20 SECTION . LES
02A430: 46 49 43 48 49 45 52 53 20 20 43 4F 50 49 45 55 FICHIERS COPIEU
02A440: 52 20 20 2C 20 20 52 4F 55 54 49 4E 45 53 20 20 R , ROUTINES
02A450: 46 44 43 20 20 2C 20 50 45 55 56 45 4E 54 20 45 FDC , PEUVENT E
02A460: 54 52 45 20 4C 55 53 0D 0A 20 49 4E 44 45 50 45 TRE LUS.. INDEPE
02A470: 4E 44 41 4D 45 4E 54 20 2E 20 54 4F 55 54 20 43 NDAMENT . TOUT C
02A480: 45 20 51 55 49 20 20 43 4F 4E 43 45 52 4E 45 20 E QUI CONCERNE
02A490: 20 4C 27 41 4E 41 4C 59 53 45 20 20 45 54 20 20 L'ANALYSE ET
02A4A0: 4C 41 20 52 45 50 52 4F 44 55 43 54 49 4F 4E 20 LA REPRODUCTION
02A4B0: 41 20 47 52 41 4E 44 0D 0A 20 49 4E 54 45 52 45 A GRAND.. INTERE
02A4C0: 54 20 41 20 45 54 52 45 20 53 55 49 56 49 20 44 T A ETRE SUIVI D
02A4D0: 41 4E 53 20 4C 27 4F 52 44 52 45 20 2E 0D 0A 1A ANS L'ORDRE ....
02A4E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2B 2D 2D 2D 2D 2D ----------+-----
02A4F0: 2D 2D 2D 2D 2B 20 20 20 20 20 20 20 20 51 75 61 ----+ Qua
02A500: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02A510: 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------
02A520: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
02A530: 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 20 20 20 20 ---------..
02A540: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02A550: 2D 20 46 4F 52 4D 41 54 41 47 45 20 45 54 20 45 - FORMATAGE ET E
02A560: 43 52 49 54 55 52 45 20 44 45 20 4C 41 20 50 49 CRITURE DE LA PI
02A570: 53 54 45 20 2D 0D 0A 20 20 20 20 20 20 20 20 20 STE -..
02A580: 20 20 20 20 20 20 20 20 20 20 20 20 20 2D 2D 2D ---
02A590: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
02A5A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
02A5B0: 0D 0A 20 0D 0A 20 20 20 20 20 20 20 20 20 20 20 .. ..
02A5C0: 20 43 65 74 74 65 20 63 6F 75 72 74 65 20 72 6F Cette courte ro
02A5D0: 75 74 69 6E 65 20 73 65 20 70 61 73 73 65 20 66 utine se passe f
02A5E0: 6F 72 74 20 62 69 65 6E 20 64 65 20 70 72 7B 61 ort bien de pr{a
02A5F0: 6D 62 75 6C 65 20 2E 0D 0A 20 0D 0A 20 20 20 20 mbule ... ..
02A600: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02A610: 20 20 20 20 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D ------
02A620: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 -------------..
02A630: 3B 0D 0A 20 3B 2D 20 53 74 6F 63 6B 65 72 20 75 ;.. ;- Stocker u
02A640: 6E 65 20 70 69 73 74 65 20 63 6F 6D 70 6C 65 74 ne piste complet
02A650: 65 20 2E 20 53 69 20 62 75 66 66 65 72 20 70 6C e . Si buffer pl
02A660: 65 69 6E 20 72 65 74 6F 75 72 20 61 76 65 63 20 ein retour avec
02A670: 4E 43 20 2D 0D 0A 20 3B 0D 0A 20 46 4F 52 4D 41 NC -.. ;.. FORMA
02A680: 54 45 52 20 4C 44 20 48 4C 2C 54 46 4F 52 4D 41 TER LD HL,TFORMA
02A690: 54 45 20 20 20 20 20 3B 41 66 66 69 63 68 65 72 TE ;Afficher
02A6A0: 20 74 65 78 74 65 20 66 6F 72 6D 61 74 61 67 65 texte formatage
02A6B0: 20 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C .. CALL
02A6C0: 20 50 52 54 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 PRT.. ;..
02A6D0: 20 20 20 4C 44 20 48 4C 2C 28 50 4F 49 4E 50 49 LD HL,(POINPI
02A6E0: 53 29 20 20 20 20 20 3B 50 72 65 6E 64 72 65 20 S) ;Prendre
02A6F0: 6C 65 20 70 6F 69 6E 74 65 75 72 0D 0A 20 20 20 le pointeur..
02A700: 20 20 20 20 20 20 49 4E 43 20 48 4C 0D 0A 20 20 INC HL..
02A710: 20 20 20 20 20 20 20 4C 44 20 41 2C 28 48 4C 29 LD A,(HL)
02A720: 20 20 20 20 20 20 20 20 20 20 20 3B 65 74 20 72 ;et r
02A730: 65 63 75 70 65 72 65 72 20 46 4C 41 47 46 4E 43 ecuperer FLAGFNC
02A740: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 46 .. LD (F
02A750: 4C 41 47 46 4E 43 29 2C 41 0D 0A 20 20 20 20 20 LAGFNC),A..
02A760: 20 20 20 20 49 4E 43 20 48 4C 0D 0A 20 20 20 20 INC HL..
02A770: 20 20 20 20 20 4C 44 20 28 50 4F 49 4E 50 49 53 LD (POINPIS
02A780: 29 2C 48 4C 20 20 20 20 20 3B 50 6F 69 6E 74 65 ),HL ;Pointe
02A790: 20 73 75 72 20 70 69 73 74 65 20 73 75 69 76 61 sur piste suiva
02A7A0: 6E 74 65 20 73 69 20 70 61 73 20 66 6F 72 6D 61 nte si pas forma
02A7B0: 74 65 65 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 tee.. ;..
02A7C0: 20 20 42 49 54 20 33 2C 41 0D 0A 20 20 20 20 20 BIT 3,A..
02A7D0: 20 20 20 20 4A 50 20 4E 5A 2C 44 45 46 4F 52 4D JP NZ,DEFORM
02A7E0: 41 20 20 20 20 20 20 20 3B 50 69 73 74 65 20 6F A ;Piste o
02A7F0: 72 69 67 69 6E 65 20 70 61 73 20 66 6F 72 6D 61 rigine pas forma
02A800: 74 65 65 20 2C 20 64 65 66 6F 72 6D 61 74 65 72 tee , deformater
02A810: 20 70 69 73 74 65 0D 0A 20 3B 0D 0A 20 20 20 20 piste.. ;..
02A820: 20 20 20 20 20 49 4E 43 20 41 20 20 20 20 20 20 INC A
02A830: 20 20 20 20 20 20 20 20 20 3B 49 6E 75 74 69 6C ;Inutil
02A840: 69 73 65 20 64 61 6E 73 20 63 65 74 74 65 20 76 ise dans cette v
02A850: 65 72 73 69 6F 6E 0D 0A 20 20 20 20 20 20 20 20 ersion..
02A860: 20 52 45 54 20 5A 20 20 20 20 20 20 20 20 20 20 RET Z
02A870: 20 20 20 20 20 3B 50 69 73 74 65 20 65 6E 20 61 ;Piste en a
02A880: 74 74 65 6E 74 65 0D 0A 20 3B 0D 0A 20 3B 2D 20 ttente.. ;.. ;-
02A890: 50 69 73 74 65 20 66 6F 72 6D 61 74 65 65 20 2E Piste formatee .
02A8A0: 20 52 65 70 72 65 6E 64 72 65 20 70 61 72 61 6D Reprendre param
02A8B0: 65 74 72 65 73 20 70 69 73 74 65 20 65 74 20 72 etres piste et r
02A8C0: 65 6D 65 74 74 72 65 20 64 61 6E 73 20 70 72 6F emettre dans pro
02A8D0: 67 72 61 6D 6D 65 20 2D 0D 0A 20 3B 0D 0A 20 47 gramme -.. ;.. G
02A8E0: 4F 46 4F 52 4D 20 20 4C 44 20 45 2C 28 48 4C 29 OFORM LD E,(HL)
02A8F0: 20 20 20 20 20 3B 52 65 63 75 70 65 72 65 20 6C ;Recupere l
02A900: 6F 6E 67 75 65 75 72 20 64 65 20 73 65 63 74 65 ongueur de secte
02A910: 75 72 0D 0A 20 20 20 20 20 20 20 20 20 49 4E 43 ur.. INC
02A920: 20 48 4C 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 HL.. LD
02A930: 20 44 2C 28 48 4C 29 0D 0A 20 20 20 20 20 20 20 D,(HL)..
02A940: 20 20 4C 44 20 28 4C 4F 4E 47 53 45 43 29 2C 44 LD (LONGSEC),D
02A950: 45 0D 0A 20 20 20 20 20 20 20 20 20 49 4E 43 20 E.. INC
02A960: 48 4C 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 HL.. ;..
02A970: 20 4C 44 20 44 45 2C 4C 45 4E 53 45 43 20 3B 52 LD DE,LENSEC ;R
02A980: 65 63 75 70 65 72 65 72 20 4C 45 4E 53 45 43 20 ecuperer LENSEC
02A990: 2D 20 4E 42 53 45 43 20 2D 20 47 41 50 46 4F 52 - NBSEC - GAPFOR
02A9A0: 4D 20 2D 20 4F 43 52 45 4D 50 0D 0A 20 20 20 20 M - OCREMP..
02A9B0: 20 20 20 20 20 4C 44 20 42 43 2C 34 0D 0A 20 20 LD BC,4..
02A9C0: 20 20 20 20 20 20 20 4C 44 49 52 0D 0A 20 3B 0D LDIR.. ;.
02A9D0: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 41 2C 28 . LD A,(
02A9E0: 4E 42 53 45 43 29 0D 0A 20 20 20 20 20 20 20 20 NBSEC)..
02A9F0: 20 4C 44 20 43 2C 41 0D 0A 20 20 20 20 20 20 20 LD C,A..
02AA00: 20 20 4C 44 20 42 2C 30 0D 0A 20 20 20 20 20 20 LD B,0..
02AA10: 20 20 20 50 55 53 48 20 42 43 0D 0A 20 20 20 20 PUSH BC..
02AA20: 20 20 20 20 20 53 4C 41 20 43 20 20 20 20 20 20 SLA C
02AA30: 20 20 3B 43 20 3D 20 43 2A 34 0D 0A 20 20 20 20 ;C = C*4..
02AA40: 20 20 20 20 20 53 4C 41 20 43 0D 0A 20 20 20 20 SLA C..
02AA50: 20 20 20 20 20 4C 44 20 44 45 2C 49 44 4F 55 54 LD DE,IDOUT
02AA60: 44 52 41 20 20 3B 52 65 63 75 70 65 72 65 72 20 DRA ;Recuperer
02AA70: 6C 65 73 20 49 44 53 20 65 74 20 6C 65 73 20 73 les IDS et les s
02AA80: 74 6F 63 6B 65 72 20 64 61 6E 73 20 6C 61 20 6C tocker dans la l
02AA90: 69 73 74 65 0D 0A 20 20 20 20 20 20 20 20 20 4C iste.. L
02AAA0: 44 49 52 20 20 20 20 20 20 20 20 20 20 20 20 3B DIR ;
02AAB0: 64 65 20 73 6F 72 74 69 65 0D 0A 20 20 20 20 20 de sortie..
02AAC0: 20 20 20 20 50 4F 50 20 42 43 0D 0A 20 3B 0D 0A POP BC.. ;..
02AAD0: 20 20 20 20 20 20 20 20 20 50 55 53 48 20 42 43 PUSH BC
02AAE0: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 44 45 .. LD DE
02AAF0: 2C 4C 49 53 54 45 52 52 20 20 20 3B 45 74 20 6C ,LISTERR ;Et l
02AB00: 61 20 6C 69 73 74 65 20 64 65 73 20 65 74 61 74 a liste des etat
02AB10: 73 20 64 27 65 72 72 65 75 72 0D 0A 20 20 20 20 s d'erreur..
02AB20: 20 20 20 20 20 4C 44 49 52 0D 0A 20 20 20 20 20 LDIR..
02AB30: 20 20 20 20 50 4F 50 20 42 43 0D 0A 20 3B 0D 0A POP BC.. ;..
02AB40: 20 20 20 20 20 20 20 20 20 4C 44 20 28 50 4F 49 LD (POI
02AB50: 4E 50 49 53 29 2C 48 4C 20 3B 53 74 6F 70 70 65 NPIS),HL ;Stoppe
02AB60: 72 20 70 6F 69 6E 74 65 75 72 20 73 75 72 20 31 r pointeur sur 1
02AB70: 65 72 73 20 6F 63 74 65 74 73 20 61 64 72 65 73 ers octets adres
02AB80: 73 65 20 62 75 66 66 65 72 0D 0A 20 3B 0D 0A 20 se buffer.. ;..
02AB90: 3B 2D 20 46 6F 72 6D 61 74 65 72 20 2D 0D 0A 20 ;- Formater -..
02ABA0: 3B 20 0D 0A 20 57 41 49 54 44 49 53 20 4C 44 20 ; .. WAITDIS LD
02ABB0: 48 4C 2C 49 44 4F 55 54 44 52 41 0D 0A 20 20 20 HL,IDOUTDRA..
02ABC0: 20 20 20 20 20 20 43 41 4C 4C 20 46 4F 52 4D 41 CALL FORMA
02ABD0: 54 45 20 20 20 20 3B 4C 61 20 70 69 73 74 65 20 TE ;La piste
02ABE0: 65 73 74 20 66 6F 72 6D 61 74 65 65 20 70 61 72 est formatee par
02ABF0: 20 6C 61 20 72 6F 75 74 69 6E 65 20 46 4F 52 4D la routine FORM
02AC00: 41 54 45 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 ATE.. LD
02AC10: 20 44 45 2C 23 30 32 31 33 20 20 20 20 20 3B 4C DE,#0213 ;L
02AC20: 6F 63 61 74 65 20 70 6F 75 72 20 65 72 72 65 75 ocate pour erreu
02AC30: 72 20 64 72 69 76 65 0D 0A 20 20 20 20 20 20 20 r drive..
02AC40: 20 20 43 41 4C 4C 20 54 53 4D 49 53 50 52 4F 54 CALL TSMISPROT
02AC50: 20 20 3B 56 6F 69 72 20 73 69 20 65 72 72 65 75 ;Voir si erreu
02AC60: 72 20 64 72 69 76 65 20 2E 20 4E 43 20 73 69 20 r drive . NC si
02AC70: 6F 75 69 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 oui.. JR
02AC80: 20 4E 43 2C 57 41 49 54 44 49 53 20 20 20 3B 41 NC,WAITDIS ;A
02AC90: 74 74 65 6E 64 72 65 20 71 75 65 20 64 72 69 76 ttendre que driv
02ACA0: 65 20 72 65 61 64 79 0D 0A 20 20 20 20 20 20 20 e ready..
02ACB0: 20 20 53 43 46 20 20 20 20 20 20 20 20 20 20 20 SCF
02ACC0: 20 20 3B 4D 61 72 71 75 65 72 20 66 6F 72 6D 61 ;Marquer forma
02ACD0: 74 20 65 66 66 65 63 74 75 65 0D 0A 20 20 20 20 t effectue..
02ACE0: 20 20 20 20 20 52 45 54 20 20 20 20 20 20 20 20 RET
02ACF0: 20 20 20 20 20 3B 46 69 6E 69 0D 0A 20 3B 0D 0A ;Fini.. ;..
02AD00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
02AD10: 24 00 01 00 02 09 4E E5 24 00 C1 02 00 00 00 02 $.....N.$.......
02AD20: 24 00 C2 02 00 00 00 02 24 00 C3 02 00 00 00 02 $.......$.......
02AD30: 24 00 C4 02 00 00 00 02 24 00 C5 02 00 00 00 02 $.......$.......
02AD40: 24 00 C6 02 00 00 00 02 24 00 C7 02 00 00 00 02 $.......$.......
02AD50: 24 00 C8 02 00 00 00 02 24 00 C9 02 00 00 00 02 $.......$.......
02AD60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02AD70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02AD80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02AD90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02ADA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02ADB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02ADC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02ADD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02ADE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02ADF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02AE00: 20 3B 2D 20 44 65 66 6F 72 6D 61 74 65 72 20 2D ;- Deformater -
02AE10: 0D 0A 20 3B 0D 0A 20 44 45 46 4F 52 4D 41 20 4C .. ;.. DEFORMA L
02AE20: 44 20 48 4C 2C 54 44 45 46 4F 52 4D 20 20 20 3B D HL,TDEFORM ;
02AE30: 54 65 78 74 65 20 64 65 66 6F 72 6D 61 74 61 67 Texte deformatag
02AE40: 65 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C e.. CALL
02AE50: 20 50 52 54 0D 0A 20 20 20 20 20 20 20 20 20 4C PRT.. L
02AE60: 44 20 41 2C 31 20 20 20 20 20 20 20 20 20 20 3B D A,1 ;
02AE70: 55 6E 20 73 65 75 6C 20 73 65 63 74 65 75 72 0D Un seul secteur.
02AE80: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 4E 42 . LD (NB
02AE90: 53 45 43 29 2C 41 0D 0A 20 20 20 20 20 20 20 20 SEC),A..
02AEA0: 20 4C 44 20 41 2C 36 20 20 20 20 20 20 20 20 20 LD A,6
02AEB0: 20 3B 44 65 20 74 61 69 6C 6C 65 20 36 0D 0A 20 ;De taille 6..
02AEC0: 20 20 20 20 20 20 20 20 4C 44 20 28 4C 45 4E 53 LD (LENS
02AED0: 45 43 29 2C 41 0D 0A 20 3B 0D 0A 20 57 41 49 54 EC),A.. ;.. WAIT
02AEE0: 44 49 53 31 20 4C 44 20 48 4C 2C 54 41 42 44 45 DIS1 LD HL,TABDE
02AEF0: 46 4F 52 20 3B 41 76 65 63 20 64 65 73 20 49 44 FOR ;Avec des ID
02AF00: 53 20 62 69 64 6F 6E 73 20 73 75 66 66 69 74 20 S bidons suffit
02AF10: 61 20 64 65 66 6F 72 6D 61 74 65 72 20 75 6E 65 a deformater une
02AF20: 20 70 69 73 74 65 0D 0A 20 20 20 20 20 20 20 20 piste..
02AF30: 20 43 41 4C 4C 20 46 4F 52 4D 41 54 45 0D 0A 20 CALL FORMATE..
02AF40: 20 20 20 20 20 20 20 20 4C 44 20 44 45 2C 23 30 LD DE,#0
02AF50: 32 31 33 20 20 20 20 20 3B 4C 6F 63 61 74 65 20 213 ;Locate
02AF60: 70 6F 75 72 20 65 72 72 65 75 72 20 64 72 69 76 pour erreur driv
02AF70: 65 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C e.. CALL
02AF80: 20 54 53 4D 49 53 50 52 4F 54 20 20 3B 56 6F 69 TSMISPROT ;Voi
02AF90: 72 20 73 69 20 65 72 72 65 75 72 20 64 72 69 76 r si erreur driv
02AFA0: 65 20 2E 20 4E 43 20 73 69 20 6F 75 69 0D 0A 20 e . NC si oui..
02AFB0: 20 20 20 20 20 20 20 20 4A 52 20 4E 43 2C 57 41 JR NC,WA
02AFC0: 49 54 44 49 53 31 0D 0A 20 20 20 20 20 20 20 20 ITDIS1..
02AFD0: 20 58 4F 52 20 41 20 20 20 20 20 20 20 20 20 20 XOR A
02AFE0: 20 3B 45 6E 6C 65 76 65 72 20 43 41 52 52 59 20 ;Enlever CARRY
02AFF0: 70 6F 75 72 20 73 69 67 6E 61 6C 65 72 20 64 65 pour signaler de
02B000: 66 6F 72 6D 61 74 61 67 65 0D 0A 20 20 20 20 20 formatage..
02B010: 20 20 20 20 52 45 54 0D 0A 20 3B 0D 0A 20 54 41 RET.. ;.. TA
02B020: 42 44 45 46 4F 52 20 44 42 20 23 46 46 2C 23 46 BDEFOR DB #FF,#F
02B030: 46 2C 23 46 46 2C 36 0D 0A 20 54 46 4F 52 4D 41 F,#FF,6.. TFORMA
02B040: 54 45 20 44 42 20 33 31 2C 32 2C 32 30 2C 32 34 TE DB 31,2,20,24
02B050: 2C 22 20 46 4F 52 4D 41 54 41 47 45 20 20 50 49 ," FORMATAGE PI
02B060: 53 54 45 20 22 2C 32 34 2C 23 38 30 0D 0A 20 54 STE ",24,#80.. T
02B070: 44 45 46 4F 52 4D 20 20 44 42 20 33 31 2C 32 2C DEFORM DB 31,2,
02B080: 32 30 2C 32 34 2C 22 20 44 45 46 4F 52 4D 41 54 20,24," DEFORMAT
02B090: 45 20 20 50 49 53 54 45 20 22 2C 32 34 2C 23 38 E PISTE ",24,#8
02B0A0: 30 0D 0A 20 3B 0D 0A 20 0D 0A 20 20 20 20 20 20 0.. ;.. ..
02B0B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02B0C0: 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------
02B0D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 20 ------------..
02B0E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02B0F0: 20 20 20 20 20 20 20 20 20 2D 20 45 43 52 49 54 - ECRIT
02B100: 55 52 45 20 44 45 20 4C 41 20 50 49 53 54 45 20 URE DE LA PISTE
02B110: 2D 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 -..
02B120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2D -
02B130: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
02B140: 2D 2D 2D 2D 2D 0D 0A 20 0D 0A 20 20 20 20 20 20 -----.. ..
02B150: 20 20 20 20 43 27 65 73 74 20 65 78 61 63 74 65 C'est exacte
02B160: 6D 65 6E 74 20 6C 27 69 6E 76 65 72 73 65 20 64 ment l'inverse d
02B170: 65 20 20 6C 61 20 20 72 6F 75 74 69 6E 65 20 20 e la routine
02B180: 64 65 20 20 73 74 6F 63 6B 61 67 65 20 2E 0D 0A de stockage ...
02B190: 20 3B 0D 0A 20 3B 2D 20 45 63 72 69 72 65 20 75 ;.. ;- Ecrire u
02B1A0: 6E 65 20 70 69 73 74 65 20 63 6F 6D 70 6C 65 74 ne piste complet
02B1B0: 65 20 20 2D 0D 0A 20 3B 0D 0A 20 45 43 52 49 52 e -.. ;.. ECRIR
02B1C0: 45 20 20 4C 44 20 48 4C 2C 54 45 43 52 49 50 49 E LD HL,TECRIPI
02B1D0: 20 20 20 3B 54 65 78 74 65 73 20 65 63 72 69 74 ;Textes ecrit
02B1E0: 75 72 65 0D 0A 20 20 20 20 20 20 20 20 20 43 41 ure.. CA
02B1F0: 4C 4C 20 50 52 54 0D 0A 20 20 20 20 20 20 20 20 LL PRT..
02B200: 20 4C 44 20 48 4C 2C 54 47 41 50 52 57 20 20 20 LD HL,TGAPRW
02B210: 20 3B 47 41 50 20 52 57 0D 0A 20 20 20 20 20 20 ;GAP RW..
02B220: 20 20 20 43 41 4C 4C 20 50 52 54 0D 0A 20 20 20 CALL PRT..
02B230: 20 20 20 20 20 20 4C 44 20 41 2C 28 47 41 50 52 LD A,(GAPR
02B240: 57 29 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C W).. CAL
02B250: 4C 20 50 52 54 48 45 58 31 0D 0A 20 20 20 20 20 L PRTHEX1..
02B260: 20 20 20 20 4C 44 20 48 4C 2C 54 53 45 43 54 53 LD HL,TSECTS
02B270: 20 20 20 20 3B 65 74 20 73 65 63 74 65 75 72 73 ;et secteurs
02B280: 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 .. CALL
02B290: 50 52 54 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 PRT.. ;..
02B2A0: 20 20 4C 44 20 48 4C 2C 28 50 4F 49 4E 50 49 53 LD HL,(POINPIS
02B2B0: 29 20 3B 52 65 63 75 70 65 72 65 72 20 6C 65 20 ) ;Recuperer le
02B2C0: 64 65 62 75 74 20 64 65 20 6C 61 20 7A 6F 6E 65 debut de la zone
02B2D0: 20 64 65 73 20 61 64 72 65 73 73 65 73 0D 0A 20 des adresses..
02B2E0: 20 20 20 20 20 20 20 20 50 55 53 48 20 48 4C 20 PUSH HL
02B2F0: 20 20 20 20 20 20 20 20 3B 64 65 20 73 74 6F 63 ;de stoc
02B300: 6B 61 67 65 20 65 74 20 6D 65 74 74 72 65 20 64 kage et mettre d
02B310: 61 6E 73 20 49 58 0D 0A 20 20 20 20 20 20 20 20 ans IX..
02B320: 20 50 4F 50 20 49 58 20 20 20 20 20 20 20 20 20 POP IX
02B330: 20 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 .. ;..
02B340: 4C 44 20 48 4C 2C 4C 49 53 54 45 52 52 20 20 20 LD HL,LISTERR
02B350: 3B 45 74 61 74 73 20 64 27 65 72 72 65 75 72 0D ;Etats d'erreur.
02B360: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 50 4F . LD (PO
02B370: 49 4E 54 45 52 29 2C 48 4C 0D 0A 20 20 20 20 20 INTER),HL..
02B380: 20 20 20 20 4C 44 20 48 4C 2C 49 44 4F 55 54 44 LD HL,IDOUTD
02B390: 52 41 20 20 3B 45 74 20 49 44 53 20 61 20 65 63 RA ;Et IDS a ec
02B3A0: 72 69 72 65 0D 0A 20 20 20 20 20 20 20 20 20 4C rire.. L
02B3B0: 44 20 28 50 4F 49 4E 54 49 44 29 2C 48 4C 0D 0A D (POINTID),HL..
02B3C0: 20 3B 0D 0A 20 3B 2D 20 52 6F 75 74 69 6E 65 20 ;.. ;- Routine
02B3D0: 65 63 72 69 74 75 72 65 20 70 68 79 73 69 71 75 ecriture physiqu
02B3E0: 65 20 2D 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 e -.. ;..
02B3F0: 20 20 58 4F 52 20 41 20 20 20 20 20 20 20 20 20 XOR A
02B400: 20 20 3B 43 6F 6D 70 74 65 75 72 20 40 20 30 0D ;Compteur @ 0.
02B410: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 43 4F . LD (CO
02B420: 55 4E 54 29 2C 41 0D 0A 20 20 20 20 20 20 20 20 UNT),A..
02B430: 20 4C 44 20 41 2C 28 4E 42 53 45 43 29 0D 0A 20 LD A,(NBSEC)..
02B440: 20 20 20 20 20 20 20 20 4C 44 20 42 2C 41 0D 0A LD B,A..
02B450: 20 3B 0D 0A 20 42 43 4C 57 52 49 50 20 50 55 53 ;.. BCLWRIP PUS
02B460: 48 20 42 43 0D 0A 20 20 20 20 20 20 20 20 20 4C H BC.. L
02B470: 44 20 48 4C 2C 28 50 4F 49 4E 54 49 44 29 20 3B D HL,(POINTID) ;
02B480: 50 61 73 73 65 72 20 6C 65 73 20 34 49 44 53 20 Passer les 4IDS
02B490: 61 75 20 70 72 6F 67 72 61 6D 6D 65 20 79 20 63 au programme y c
02B4A0: 6F 6D 70 72 69 73 20 6C 61 20 70 69 73 74 65 20 ompris la piste
02B4B0: 2E 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C ... CALL
02B4C0: 20 49 44 54 52 41 4E 53 34 0D 0A 20 20 20 20 20 IDTRANS4..
02B4D0: 20 20 20 20 4C 44 20 41 2C 28 51 55 41 54 52 49 LD A,(QUATRI
02B4E0: 44 2B 32 29 20 3B 4C 65 73 20 73 65 63 74 65 75 D+2) ;Les secteu
02B4F0: 72 73 20 73 6F 6E 74 20 65 63 72 69 74 73 20 75 rs sont ecrits u
02B500: 6E 20 61 20 75 6E 20 2C 20 6C 65 20 64 65 72 6E n a un , le dern
02B510: 69 65 72 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 ier.. LD
02B520: 20 28 44 45 52 53 45 43 29 2C 41 20 20 20 20 3B (DERSEC),A ;
02B530: 73 65 63 74 65 75 72 20 61 20 65 63 72 69 72 65 secteur a ecrire
02B540: 20 65 73 74 20 64 6F 6E 63 20 6C 65 20 6D 65 6D est donc le mem
02B550: 65 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 28 e.. LD (
02B560: 50 4F 49 4E 54 49 44 29 2C 48 4C 20 20 3B 50 6F POINTID),HL ;Po
02B570: 69 6E 74 65 72 20 6C 61 20 73 75 69 74 65 20 64 inter la suite d
02B580: 65 73 20 49 44 53 0D 0A 20 3B 0D 0A 20 20 20 20 es IDS.. ;..
02B590: 20 20 20 20 20 4C 44 20 4C 2C 28 49 58 2B 30 29 LD L,(IX+0)
02B5A0: 20 20 20 20 20 3B 41 64 72 65 73 73 65 20 64 65 ;Adresse de
02B5B0: 20 64 65 70 61 72 74 20 65 63 72 69 74 75 72 65 depart ecriture
02B5C0: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 48 2C .. LD H,
02B5D0: 28 49 58 2B 31 29 0D 0A 20 20 20 20 20 20 20 20 (IX+1)..
02B5E0: 20 4C 44 20 28 41 44 42 55 46 46 29 2C 48 4C 20 LD (ADBUFF),HL
02B5F0: 20 3B 44 61 6E 73 20 41 44 42 55 46 46 0D 0A 20 ;Dans ADBUFF..
02B600: 3B 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 48 ;.. LD H
02B610: 4C 2C 28 50 4F 49 4E 54 45 52 29 0D 0A 20 20 20 L,(POINTER)..
02B620: 20 20 20 20 20 20 4C 44 20 41 2C 28 48 4C 29 20 LD A,(HL)
02B630: 20 20 20 20 20 20 3B 4D 61 72 71 75 65 20 73 65 ;Marque se
02B640: 63 74 65 75 72 20 65 63 72 61 73 65 20 3F 0D 0A cteur ecrase ?..
02B650: 20 20 20 20 20 20 20 20 20 43 50 20 23 37 46 20 CP #7F
02B660: 20 20 20 20 20 20 20 20 20 3B 4F 75 69 20 2E 20 ;Oui .
02B670: 43 65 20 73 65 63 74 65 75 72 20 61 20 65 74 65 Ce secteur a ete
02B680: 20 64 65 74 72 75 69 74 20 70 61 72 20 6C 27 65 detruit par l'e
02B690: 63 72 69 74 75 72 65 0D 0A 20 20 20 20 20 20 20 criture..
02B6A0: 20 20 4A 50 20 5A 2C 43 52 55 4E 43 48 45 20 20 JP Z,CRUNCHE
02B6B0: 20 20 3B 70 72 65 63 65 64 65 6E 74 65 20 2E 20 ;precedente .
02B6C0: 53 61 75 74 65 72 20 53 41 4E 53 20 41 56 41 4E Sauter SANS AVAN
02B6D0: 43 45 52 20 4C 45 20 43 4F 4D 50 54 45 55 52 20 CER LE COMPTEUR
02B6E0: 2E 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 ... ;..
02B6F0: 43 50 20 23 46 46 20 20 20 20 20 20 20 20 3B 56 CP #FF ;V
02B700: 6F 69 72 20 73 69 20 6C 65 20 73 65 63 74 65 75 oir si le secteu
02B710: 72 20 61 20 65 74 65 20 73 74 6F 63 6B 65 20 73 r a ete stocke s
02B720: 6F 75 73 20 66 6F 72 6D 65 20 63 6F 6D 70 61 63 ous forme compac
02B730: 74 65 65 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 tee.. LD
02B740: 20 42 2C 23 34 35 20 20 20 20 20 20 3B 53 69 20 B,#45 ;Si
02B750: 6F 75 69 20 65 63 72 69 72 65 20 65 6E 20 72 65 oui ecrire en re
02B760: 70 65 74 61 6E 74 20 4F 43 52 45 4D 50 20 70 61 petant OCREMP pa
02B770: 72 20 72 6F 75 74 69 6E 65 20 73 70 65 63 69 61 r routine specia
02B780: 6C 65 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 20 le.. JR
02B790: 5A 2C 4E 4F 43 4D 43 4F 4D 50 20 3B 53 61 6E 73 Z,NOCMCOMP ;Sans
02B7A0: 20 43 4D 0D 0A 20 20 20 20 20 20 20 20 20 43 50 CM.. CP
02B7B0: 20 23 46 37 20 20 20 20 20 20 20 20 3B 41 76 65 #F7 ;Ave
02B7C0: 63 20 43 4D 0D 0A 20 20 20 20 20 20 20 20 20 4A c CM.. J
02B7D0: 52 20 4E 5A 2C 50 41 43 4F 4D 50 41 43 20 3B 4F R NZ,PACOMPAC ;O
02B7E0: 63 74 65 74 20 61 20 73 75 62 69 20 75 6E 20 58 ctet a subi un X
02B7F0: 4F 52 20 23 46 46 20 73 69 20 63 6F 6D 70 61 63 OR #FF si compac
02B800: 74 65 20 64 27 6F 75 20 23 46 46 20 26 20 23 46 te d'ou #FF & #F
02B810: 37 20 21 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 7 !.. ;..
02B820: 20 20 4C 44 20 42 2C 23 34 39 0D 0A 20 4E 4F 43 LD B,#49.. NOC
02B830: 4D 43 4F 4D 50 20 4C 44 20 41 2C 42 20 20 20 20 MCOMP LD A,B
02B840: 20 20 20 20 3B 45 63 72 69 72 65 20 61 76 65 63 ;Ecrire avec
02B850: 20 6C 61 20 72 6F 75 74 69 6E 65 20 73 70 65 63 la routine spec
02B860: 69 61 6C 65 20 71 75 69 20 74 72 61 6E 73 65 6D iale qui transem
02B870: 65 74 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 et.. LD
02B880: 48 4C 2C 57 52 49 54 46 44 43 32 20 3B 74 6F 75 HL,WRITFDC2 ;tou
02B890: 6A 6F 75 72 73 20 6C 65 20 6D 65 6D 65 20 6F 63 jours le meme oc
02B8A0: 74 65 74 20 2E 0D 0A 20 20 20 20 20 20 20 20 20 tet ...
02B8B0: 43 41 4C 4C 20 53 45 54 43 4F 4D 32 0D 0A 20 20 CALL SETCOM2..
02B8C0: 20 20 20 20 20 20 20 4A 52 20 45 43 52 49 52 31 JR ECRIR1
02B8D0: 20 20 20 20 20 20 3B 41 6C 6C 65 72 20 65 63 72 ;Aller ecr
02B8E0: 69 72 65 0D 0A 20 3B 0D 0A 20 50 41 43 4F 4D 50 ire.. ;.. PACOMP
02B8F0: 41 43 20 4C 44 20 41 2C 28 51 55 41 54 52 49 44 AC LD A,(QUATRID
02B900: 2B 33 29 20 3B 56 6F 69 72 20 73 69 20 74 61 69 +3) ;Voir si tai
02B910: 6C 6C 65 20 30 0D 0A 20 20 20 20 20 20 20 20 20 lle 0..
02B920: 4F 52 20 41 0D 0A 20 20 20 20 20 20 20 20 20 4A OR A.. J
02B930: 52 20 4E 5A 2C 50 41 53 54 5A 45 52 20 20 20 3B R NZ,PASTZER ;
02B940: 4E 6F 6E 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 Non.. ;..
02B950: 20 20 4C 44 20 48 4C 2C 28 50 4F 49 4E 54 45 52 LD HL,(POINTER
02B960: 29 20 3B 4E 27 65 63 72 69 72 65 20 74 61 69 6C ) ;N'ecrire tail
02B970: 6C 65 20 30 20 71 75 65 20 73 69 20 4D 41 4D 20 le 0 que si MAM
02B980: 6F 75 20 44 41 4D 0D 0A 20 20 20 20 20 20 20 20 ou DAM..
02B990: 20 4C 44 20 41 2C 28 48 4C 29 0D 0A 20 20 20 20 LD A,(HL)..
02B9A0: 20 20 20 20 20 41 4E 44 20 25 30 30 30 30 30 30 AND %000000
02B9B0: 31 31 20 20 20 3B 4D 41 4D 20 2D 20 44 41 4D 20 11 ;MAM - DAM
02B9C0: 3F 0D 0A 20 20 20 20 20 20 20 20 20 4A 50 20 5A ?.. JP Z
02B9D0: 2C 52 49 45 4E 45 43 52 49 20 20 20 3B 4E 4F 4E ,RIENECRI ;NON
02B9E0: 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 4C .. ;.. L
02B9F0: 44 20 42 2C 23 34 35 0D 0A 20 20 20 20 20 20 20 D B,#45..
02BA00: 20 20 4A 52 20 43 4D 4E 4F 54 31 20 20 20 20 20 JR CMNOT1
02BA10: 20 20 3B 53 69 6E 6F 6E 20 65 63 72 69 72 65 20 ;Sinon ecrire
02BA20: 6E 27 69 6D 70 6F 72 74 65 20 71 75 6F 69 20 70 n'importe quoi p
02BA30: 6F 75 72 20 72 65 70 72 6F 64 75 69 72 65 20 4D our reproduire M
02BA40: 41 4D 0D 0A 20 3B 0D 0A 20 50 41 53 54 5A 45 52 AM.. ;.. PASTZER
02BA50: 20 4C 44 20 41 2C 28 46 4C 41 47 46 4E 43 29 20 LD A,(FLAGFNC)
02BA60: 3B 53 69 20 70 69 73 74 65 20 61 20 72 65 70 61 ;Si piste a repa
02BA70: 72 65 72 20 2C 20 69 67 6E 6F 72 65 72 20 63 65 rer , ignorer ce
02BA80: 20 71 75 69 20 73 75 69 74 20 65 74 20 74 65 6E qui suit et ten
02BA90: 74 65 72 0D 0A 20 20 20 20 20 20 20 20 20 41 4E ter.. AN
02BAA0: 44 20 25 30 31 30 30 30 30 30 30 20 20 3B 6C 27 D %01000000 ;l'
02BAB0: 65 63 72 69 74 75 72 65 20 64 65 20 74 6F 75 74 ecriture de tout
02BAC0: 65 20 6D 61 6E 69 65 72 65 0D 0A 20 20 20 20 20 e maniere..
02BAD0: 20 20 20 20 4A 52 20 4E 5A 2C 45 43 52 49 52 32 JR NZ,ECRIR2
02BAE0: 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 4C .. ;.. L
02BAF0: 44 20 48 4C 2C 28 50 4F 49 4E 54 45 52 29 0D 0A D HL,(POINTER)..
02BB00: 20 20 20 20 20 20 20 20 20 4C 44 20 41 2C 28 48 LD A,(H
02BB10: 4C 29 0D 0A 20 20 20 20 20 20 20 20 20 41 4E 44 L).. AND
02BB20: 20 25 30 30 31 31 30 31 31 31 20 20 3B 53 69 20 %00110111 ;Si
02BB30: 70 61 73 20 64 27 65 72 72 65 75 72 20 50 52 4F pas d'erreur PRO
02BB40: 56 4F 51 55 45 45 20 73 61 75 66 20 45 50 2D 48 VOQUEE sauf EP-H
02BB50: 44 2D 43 4D 20 2C 20 63 27 65 73 74 20 62 6F 6E D-CM , c'est bon
02BB60: 0D 0A 20 20 20 20 20 20 20 20 20 4A 50 20 4E 5A .. JP NZ
02BB70: 2C 52 49 45 4E 45 43 52 49 20 3B 53 69 6E 6F 6E ,RIENECRI ;Sinon
02BB80: 20 6E 65 20 72 69 65 6E 20 65 63 72 69 72 65 0D ne rien ecrire.
02BB90: 0A 20 3B 0D 0A 20 45 43 52 49 52 32 20 20 4C 44 . ;.. ECRIR2 LD
02BBA0: 20 42 2C 23 34 35 20 20 20 20 20 20 20 20 3B 43 B,#45 ;C
02BBB0: 4D 20 6F 72 20 6E 6F 74 20 43 4D 20 3F 0D 0A 20 M or not CM ?..
02BBC0: 20 20 20 20 20 20 20 20 4C 44 20 48 4C 2C 28 50 LD HL,(P
02BBD0: 4F 49 4E 54 45 52 29 0D 0A 20 20 20 20 20 20 20 OINTER)..
02BBE0: 20 20 4C 44 20 41 2C 28 48 4C 29 0D 0A 20 20 20 LD A,(HL)..
02BBF0: 20 20 20 20 20 20 41 4E 44 20 25 30 30 30 30 31 AND %00001
02BC00: 30 30 30 0D 0A 20 20 20 20 20 20 20 20 20 4A 52 000.. JR
02BC10: 20 5A 2C 43 4D 4E 4F 54 31 0D 0A 20 20 20 20 20 Z,CMNOT1..
02BC20: 20 20 20 20 4C 44 20 42 2C 23 34 39 0D 0A 20 3B LD B,#49.. ;
02BC30: 0D 0A 20 43 4D 4E 4F 54 31 20 20 4C 44 20 41 2C .. CMNOT1 LD A,
02BC40: 42 20 20 20 20 20 20 20 20 20 20 3B 43 6F 6D 6D B ;Comm
02BC50: 61 6E 64 65 20 65 63 72 69 72 65 20 73 65 63 74 ande ecrire sect
02BC60: 65 75 72 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 eur.. LD
02BC70: 20 48 4C 2C 57 52 49 54 46 44 43 0D 0A 20 20 20 HL,WRITFDC..
02BC80: 20 20 20 20 20 20 43 41 4C 4C 20 53 45 54 43 4F CALL SETCO
02BC90: 4D 32 0D 0A 20 3B 0D 0A 20 45 43 52 49 52 31 20 M2.. ;.. ECRIR1
02BCA0: 20 43 41 4C 4C 20 56 49 53 49 4E 53 54 20 3B 56 CALL VISINST ;V
02BCB0: 69 73 65 72 20 64 27 61 70 72 65 73 20 43 4F 55 iser d'apres COU
02BCC0: 4E 54 20 65 74 20 65 78 65 63 75 74 65 72 20 69 NT et executer i
02BCD0: 6E 73 74 72 75 63 74 69 6F 6E 0D 0A 20 3B 0D 0A nstruction.. ;..
02BCE0: 20 20 20 20 20 20 20 20 20 4C 44 20 44 45 2C 23 LD DE,#
02BCF0: 30 32 31 33 20 20 20 20 3B 4C 6F 63 61 74 65 20 0213 ;Locate
02BD00: 70 6F 75 72 20 65 72 72 65 75 72 20 64 72 69 76 pour erreur driv
02BD10: 65 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C e.. CALL
02BD20: 20 54 53 4D 49 53 50 52 4F 54 20 3B 56 6F 69 72 TSMISPROT ;Voir
02BD30: 20 73 69 20 65 72 72 65 75 72 20 64 72 69 76 65 si erreur drive
02BD40: 20 2E 20 4E 43 20 73 69 20 6F 75 69 0D 0A 20 20 . NC si oui..
02BD50: 20 20 20 20 20 20 20 4A 52 20 4E 43 2C 45 43 52 JR NC,ECR
02BD60: 49 52 31 20 20 20 3B 42 6F 75 63 6C 65 72 20 73 IR1 ;Boucler s
02BD70: 69 20 46 44 43 20 70 61 73 20 63 6F 6E 74 65 6E i FDC pas conten
02BD80: 74 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 t.. ;..
02BD90: 43 41 4C 4C 20 54 53 54 45 52 52 53 20 20 20 3B CALL TSTERRS ;
02BDA0: 54 65 73 74 65 72 20 65 74 61 74 20 64 27 65 72 Tester etat d'er
02BDB0: 72 65 75 72 20 0D 0A 20 3B 0D 0A 20 20 20 20 20 reur .. ;..
02BDC0: 20 20 20 20 4C 44 20 41 2C 22 26 22 20 20 20 20 LD A,"&"
02BDD0: 20 20 20 20 3B 41 66 66 69 63 68 65 72 20 72 65 ;Afficher re
02BDE0: 73 75 6C 74 61 74 20 64 27 65 63 72 69 74 75 72 sultat d'ecritur
02BDF0: 65 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C e.. CALL
02BE00: 20 23 42 42 35 41 0D 0A 20 20 20 20 20 20 20 20 #BB5A..
02BE10: 20 4C 44 20 41 2C 28 51 55 41 54 52 49 44 2B 32 LD A,(QUATRID+2
02BE20: 29 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C 4C ).. CALL
02BE30: 20 50 52 54 48 45 58 31 0D 0A 20 20 20 20 20 20 PRTHEX1..
02BE40: 20 20 20 43 41 4C 4C 20 49 4E 56 0D 0A 20 20 20 CALL INV..
02BE50: 20 20 20 20 20 20 43 41 4C 4C 20 50 52 54 33 45 CALL PRT3E
02BE60: 52 52 0D 0A 20 20 20 20 20 20 20 20 20 43 41 4C RR.. CAL
02BE70: 4C 20 49 4E 56 0D 0A 20 3B 0D 0A 20 52 49 45 4E L INV.. ;.. RIEN
02BE80: 45 43 52 49 20 4C 44 20 48 4C 2C 43 4F 55 4E 54 ECRI LD HL,COUNT
02BE90: 20 20 20 20 3B 41 75 20 73 75 69 76 61 6E 74 0D ;Au suivant.
02BEA0: 0A 20 20 20 20 20 20 20 20 20 49 4E 43 20 28 48 . INC (H
02BEB0: 4C 29 0D 0A 20 43 52 55 4E 43 48 45 20 4C 44 20 L).. CRUNCHE LD
02BEC0: 48 4C 2C 28 50 4F 49 4E 54 45 52 29 0D 0A 20 20 HL,(POINTER)..
02BED0: 20 20 20 20 20 20 20 49 4E 43 20 48 4C 0D 0A 20 INC HL..
02BEE0: 20 20 20 20 20 20 20 20 4C 44 20 28 50 4F 49 4E LD (POIN
02BEF0: 54 45 52 29 2C 48 4C 0D 0A 20 20 20 20 20 20 20 TER),HL..
02BF00: 20 20 49 4E 43 20 49 58 0D 0A 20 20 20 20 20 20 INC IX..
02BF10: 20 20 20 49 4E 43 20 49 58 20 0D 0A 20 20 20 20 INC IX ..
02BF20: 20 20 20 20 20 50 4F 50 20 42 43 0D 0A 20 20 20 POP BC..
02BF30: 20 20 20 20 20 20 44 45 43 20 42 0D 0A 20 20 20 DEC B..
02BF40: 20 20 20 20 20 20 4A 50 20 4E 5A 2C 42 43 4C 57 JP NZ,BCLW
02BF50: 52 49 50 20 3B 53 27 69 6C 20 65 6E 20 72 65 73 RIP ;S'il en res
02BF60: 74 65 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 te.. ;..
02BF70: 20 4C 44 20 4C 2C 28 49 58 2B 30 29 20 3B 41 64 LD L,(IX+0) ;Ad
02BF80: 72 65 73 73 65 20 64 65 20 64 65 70 61 72 74 20 resse de depart
02BF90: 70 72 6F 63 68 61 69 6E 65 20 65 63 72 69 74 75 prochaine ecritu
02BFA0: 72 65 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 re.. LD
02BFB0: 48 2C 28 49 58 2B 31 29 0D 0A 20 20 20 20 20 20 H,(IX+1)..
02BFC0: 20 20 20 4C 44 20 28 50 4F 49 4E 50 49 53 29 2C LD (POINPIS),
02BFD0: 48 4C 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 HL.. LD
02BFE0: 41 2C 32 33 0D 0A 20 20 20 20 20 20 20 20 20 43 A,23.. C
02BFF0: 41 4C 4C 20 45 46 46 4C 49 4E 45 0D 0A 20 20 20 ALL EFFLINE..
02C000: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
02C010: 25 00 01 00 02 09 4E E5 25 00 C1 02 00 00 00 02 %.....N.%.......
02C020: 25 00 C2 02 00 00 00 02 25 00 C3 02 00 00 00 02 %.......%.......
02C030: 25 00 C4 02 00 00 00 02 25 00 C5 02 00 00 00 02 %.......%.......
02C040: 25 00 C6 02 00 00 00 02 25 00 C7 02 00 00 00 02 %.......%.......
02C050: 25 00 C8 02 00 00 00 02 25 00 C9 02 00 00 00 02 %.......%.......
02C060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C0A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C0B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C0C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C0D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C0E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C0F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C100: 20 20 20 20 20 20 53 43 46 0D 0A 20 20 20 20 20 SCF..
02C110: 20 20 20 20 52 45 54 0D 0A 20 3B 0D 0A 20 54 45 RET.. ;.. TE
02C120: 43 52 49 50 49 20 44 42 20 33 31 2C 32 2C 32 31 CRIPI DB 31,2,21
02C130: 2C 32 34 2C 22 20 45 43 52 49 54 55 52 45 20 20 ,24," ECRITURE
02C140: 20 50 49 53 54 45 20 22 2C 32 34 2C 31 38 2C 23 PISTE ",24,18,#
02C150: 38 30 0D 0A 20 54 53 45 43 54 53 20 20 44 42 20 80.. TSECTS DB
02C160: 33 31 2C 32 30 2C 32 32 2C 32 34 2C 22 20 53 45 31,20,22,24," SE
02C170: 43 54 45 55 52 53 20 3A 20 22 2C 32 34 2C 33 32 CTEURS : ",24,32
02C180: 2C 31 38 2C 23 38 30 0D 0A 20 54 47 41 50 52 57 ,18,#80.. TGAPRW
02C190: 20 20 44 42 20 33 31 2C 32 2C 32 32 2C 32 34 2C DB 31,2,22,24,
02C1A0: 22 20 47 41 50 20 52 57 20 3A 20 22 2C 32 34 2C " GAP RW : ",24,
02C1B0: 33 32 2C 22 26 22 2C 31 38 2C 23 38 30 0D 0A 20 32,"&",18,#80..
02C1C0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
02C1D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2D 2D --
02C1E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
02C1F0: 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 0D 0A 20 20 20 20 -------.. ..
02C200: 20 56 6F 69 6C 40 20 2E 20 43 27 65 73 74 20 6C Voil@ . C'est l
02C210: 61 20 66 69 6E 20 64 65 20 6C 61 20 67 72 6F 73 a fin de la gros
02C220: 73 65 20 20 74 61 72 74 69 6E 65 20 21 20 52 65 se tartine ! Re
02C230: 73 74 65 20 40 20 70 61 72 63 6F 75 72 69 72 20 ste @ parcourir
02C240: 6C 61 20 73 65 63 74 69 6F 6E 0D 0A 20 72 6F 75 la section.. rou
02C250: 74 69 6E 65 73 20 70 6F 75 72 20 79 20 74 72 6F tines pour y tro
02C260: 75 76 65 72 20 6C 65 73 20 71 75 65 6C 71 75 65 uver les quelque
02C270: 73 20 6D 6F 64 69 66 69 63 61 74 69 6F 6E 73 20 s modifications
02C280: 61 70 70 6F 72 74 7B 65 73 20 70 61 72 20 72 61 apport{es par ra
02C290: 70 70 6F 72 74 20 40 20 6C 61 0D 0A 20 76 65 72 pport @ la.. ver
02C2A0: 73 69 6F 6E 20 70 72 7B 63 7B 64 65 6E 74 65 20 sion pr{c{dente
02C2B0: 2E 0D 0A 20 20 20 20 20 0D 0A 20 20 20 20 20 20 ... ..
02C2C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02C2D0: 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D -----------
02C2E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 1A 49 --------------.I
02C2F0: 53 54 45 20 2D 0D 0A 20 20 20 20 20 20 20 20 20 STE -..
02C300: 50 6F 69 6E 74 65 72 20 47 41 50 20 4D 41 58 49 Pointer GAP MAXI
02C310: 20 64 61 6E 73 20 74 61 62 6C 65 0D 0A 20 20 20 dans table..
02C320: 20 20 20 20 20 20 4A 52 20 5A 2C 47 41 50 56 45 JR Z,GAPVE
02C330: 52 49 31 0D 0A 20 20 20 20 20 20 20 20 20 49 4E RI1.. IN
02C340: 43 20 48 4C 0D 0A 20 20 20 20 20 20 20 20 20 49 C HL.. I
02C350: 4E 43 20 43 0D 0A 20 20 20 20 20 20 20 20 20 4A NC C.. J
02C360: 52 20 42 43 4C 47 41 50 56 0D 0A 20 3B 0D 0A 20 R BCLGAPV.. ;..
02C370: 47 41 50 56 45 52 49 31 20 4C 44 20 41 2C 28 47 GAPVERI1 LD A,(G
02C380: 41 50 46 4F 52 4D 29 3B 56 6F 69 72 20 73 69 20 APFORM);Voir si
02C390: 47 41 50 20 68 6F 72 73 20 6C 69 6D 69 74 65 0D GAP hors limite.
02C3A0: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 42 2C 41 . LD B,A
02C3B0: 0D 0A 20 20 20 20 20 20 20 20 20 4C 44 20 41 2C .. LD A,
02C3C0: 28 48 4C 29 0D 0A 20 20 20 20 20 20 20 20 20 43 (HL).. C
02C3D0: 50 20 42 0D 0A 20 20 20 20 20 20 20 20 20 52 45 P B.. RE
02C3E0: 54 20 4E 43 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 T NC.. ;..
02C3F0: 20 20 20 4C 44 20 28 47 41 50 46 4F 52 4D 29 2C LD (GAPFORM),
02C400: 41 20 3B 52 65 63 74 69 66 69 65 72 20 73 69 20 A ;Rectifier si
02C410: 6F 75 69 0D 0A 20 20 20 20 20 20 20 20 20 52 45 oui.. RE
02C420: 54 20 0D 0A 20 3B 0D 0A 20 53 45 54 47 52 57 20 T .. ;.. SETGRW
02C430: 20 4C 44 20 41 2C 28 47 41 50 46 4F 52 4D 29 0D LD A,(GAPFORM).
02C440: 0A 20 20 20 20 20 20 20 20 20 43 50 20 31 0D 0A . CP 1..
02C450: 20 20 20 20 20 20 20 20 20 4A 52 20 5A 2C 53 45 JR Z,SE
02C460: 54 47 52 57 31 0D 0A 20 20 20 20 20 20 20 20 20 TGRW1..
02C470: 53 52 4C 20 41 0D 0A 20 53 45 54 47 52 57 31 20 SRL A.. SETGRW1
02C480: 4C 44 20 28 47 41 50 52 57 29 2C 41 0D 0A 20 20 LD (GAPRW),A..
02C490: 20 20 20 20 20 20 20 52 45 54 0D 0A 20 3B 0D 0A RET.. ;..
02C4A0: 20 54 30 44 44 20 20 20 20 44 42 20 32 33 39 2C T0DD DB 239,
02C4B0: 32 31 30 2C 31 38 35 2C 31 36 33 2C 31 34 34 2C 210,185,163,144,
02C4C0: 31 32 36 2C 31 31 30 2C 39 36 2C 38 33 2C 37 31 126,110,96,83,71
02C4D0: 2C 35 39 2C 35 30 2C 33 38 2C 33 31 2C 32 34 2C ,59,50,38,31,24,
02C4E0: 31 37 2C 31 30 2C 33 0D 0A 20 54 31 44 44 20 20 17,10,3.. T1DD
02C4F0: 20 20 44 42 20 32 31 36 2C 31 37 31 2C 31 33 34 DB 216,171,134
02C500: 2C 31 30 32 2C 37 34 2C 34 39 2C 31 36 2C 38 0D ,102,74,49,16,8.
02C510: 0A 20 54 32 44 44 20 20 20 20 44 42 20 32 33 30 . T2DD DB 230
02C520: 2C 31 32 39 2C 35 30 0D 0A 20 54 33 44 44 20 20 ,129,50.. T3DD
02C530: 20 20 44 42 20 31 39 31 0D 0A 20 3B 0D 0A 20 3B DB 191.. ;.. ;
02C540: 2D 20 56 61 72 69 61 62 6C 65 73 20 62 75 66 66 - Variables buff
02C550: 65 72 0D 0A 20 3B 0D 0A 20 41 44 42 55 46 46 20 er.. ;.. ADBUFF
02C560: 20 44 57 20 30 20 3B 41 64 72 65 73 73 65 20 62 DW 0 ;Adresse b
02C570: 75 66 66 65 72 0D 0A 20 3B 0D 0A 20 45 46 46 4C uffer.. ;.. EFFL
02C580: 42 31 20 20 52 45 54 0D 0A 20 41 46 46 50 49 53 B1 RET.. AFFPIS
02C590: 54 20 52 45 54 0D 0A 20 54 43 4F 50 44 52 56 20 T RET.. TCOPDRV
02C5A0: 44 53 20 31 30 30 0D 0A 20 3B 0D 0A 20 20 20 20 DS 100.. ;..
02C5B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02C5C0: 20 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D ---------
02C5D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
02C5E0: 0D 0A 20 0D 0A 20 20 20 20 20 46 69 6E 20 64 65 .. .. Fin de
02C5F0: 73 20 70 72 6F 67 72 61 6D 6D 65 73 20 20 63 6F s programmes co
02C600: 6D 6D 65 6E 74 7B 73 20 20 46 44 43 20 20 2E 20 mment{s FDC .
02C610: 20 4C 65 73 20 20 73 65 63 74 69 6F 6E 73 20 20 Les sections
02C620: 63 6F 6D 70 72 65 6E 61 6E 74 20 6C 65 73 20 73 comprenant les s
02C630: 6F 75 73 0D 0A 20 72 6F 75 74 69 6E 65 73 20 64 ous.. routines d
02C640: 27 61 66 66 69 63 68 61 67 65 20 2C 20 64 27 65 'affichage , d'e
02C650: 64 69 74 69 6F 6E 20 2C 20 20 65 74 63 20 20 2E dition , etc .
02C660: 2E 2E 20 20 41 69 6E 73 69 20 20 71 75 65 20 6C .. Ainsi que l
02C670: 61 20 73 65 63 74 69 6F 6E 20 76 61 72 69 61 62 a section variab
02C680: 6C 65 73 0D 0A 20 6E 27 61 79 61 6E 74 20 70 61 les.. n'ayant pa
02C690: 73 20 73 75 62 69 20 64 65 20 6D 6F 64 69 66 69 s subi de modifi
02C6A0: 63 61 74 69 6F 6E 73 20 64 65 70 75 69 73 20 6C cations depuis l
02C6B0: 65 20 20 6E 75 6D 7B 72 6F 20 32 20 6E 65 20 73 e num{ro 2 ne s
02C6C0: 6F 6E 74 20 70 61 73 20 72 65 70 72 6F 64 75 69 ont pas reprodui
02C6D0: 74 65 73 0D 0A 20 69 63 69 20 2E 0D 0A 20 20 20 tes.. ici ...
02C6E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02C6F0: 20 20 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D --------
02C700: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
02C710: 2D 0D 0A 20 20 20 1A 20 20 20 20 20 20 4C 44 20 -.. . LD
02C720: 48 4C 2C 45 54 30 0D 0A 4A 45 42 4F 53 31 20 20 HL,ET0..JEBOS1
02C730: 49 4E 20 41 2C 28 43 29 0D 0A 20 20 20 20 20 20 IN A,(C)..
02C740: 20 20 43 50 20 23 43 30 0D 0A 20 20 20 20 20 20 CP #C0..
02C750: 20 20 4A 52 20 43 2C 4A 45 42 4F 53 31 20 0D 0A JR C,JEBOS1 ..
02C760: 20 20 20 20 20 20 20 20 49 4E 43 20 43 0D 0A 20 INC C..
02C770: 20 20 20 20 20 20 20 49 4E 20 41 2C 28 43 29 0D IN A,(C).
02C780: 42 31 20 20 52 45 54 0D 0A 20 41 46 46 50 49 53 B1 RET.. AFFPIS
02C790: 54 20 52 45 54 0D 0A 20 54 43 4F 50 44 52 56 20 T RET.. TCOPDRV
02C7A0: 44 53 20 31 30 30 0D 0A 20 3B 0D 0A 20 20 20 20 DS 100.. ;..
02C7B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02C7C0: 20 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D ---------
02C7D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
02C7E0: 0D 0A 20 0D 0A 20 20 20 20 20 46 69 6E 20 64 65 .. .. Fin de
02C7F0: 73 20 70 72 6F 67 72 61 6D 6D 65 73 20 20 63 6F s programmes co
02C800: 6D 6D 65 6E 74 7B 73 20 20 46 44 43 20 20 2E 20 mment{s FDC .
02C810: 20 4C 65 73 20 20 73 65 63 74 69 6F 6E 73 20 20 Les sections
02C820: 63 6F 6D 70 72 65 6E 61 6E 74 20 6C 65 73 20 73 comprenant les s
02C830: 6F 75 73 0D 0A 20 72 6F 75 74 69 6E 65 73 20 64 ous.. routines d
02C840: 27 61 66 66 69 63 68 61 67 65 20 2C 20 64 27 65 'affichage , d'e
02C850: 64 69 74 69 6F 6E 20 2C 20 20 65 74 63 20 20 2E dition , etc .
02C860: 2E 2E 20 20 41 69 6E 73 69 20 20 71 75 65 20 6C .. Ainsi que l
02C870: 61 20 73 65 63 74 69 6F 6E 20 76 61 72 69 61 62 a section variab
02C880: 6C 65 73 0D 0A 20 6E 27 61 79 61 6E 74 20 70 61 les.. n'ayant pa
02C890: 73 20 73 75 62 69 20 64 65 20 6D 6F 64 69 66 69 s subi de modifi
02C8A0: 63 61 74 69 6F 6E 73 20 64 65 70 75 69 73 20 6C cations depuis l
02C8B0: 65 20 20 6E 75 6D 7B 72 6F 20 32 20 6E 65 20 73 e num{ro 2 ne s
02C8C0: 6F 6E 74 20 70 61 73 20 72 65 70 72 6F 64 75 69 ont pas reprodui
02C8D0: 74 65 73 0D 0A 20 69 63 69 20 2E 0D 0A 20 20 20 tes.. ici ...
02C8E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02C8F0: 20 20 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D --------
02C900: 0A 20 20 4F 52 20 4C 0D 0A 20 20 4A 52 20 5A 2C . OR L.. JR Z,
02C910: 54 53 54 47 41 50 0D 0A 20 54 53 54 46 44 43 41 TSTGAP.. TSTFDCA
02C920: 20 49 4E 20 41 2C 28 43 29 0D 0A 20 20 4A 50 20 IN A,(C).. JP
02C930: 50 2C 54 53 54 46 44 43 41 0D 0A 20 20 41 4E 44 P,TSTFDCA.. AND
02C940: 20 23 32 30 0D 0A 20 20 4A 50 20 5A 2C 52 45 53 #20.. JP Z,RES
02C950: 55 4C 54 0D 0A 20 20 49 4E 43 20 43 0D 0A 20 20 ULT.. INC C..
02C960: 49 4E 20 41 2C 28 43 29 0D 0A 20 20 44 45 43 20 IN A,(C).. DEC
02C970: 43 0D 0A 20 20 44 45 43 20 48 4C 0D 0A 20 20 4A C.. DEC HL.. J
02C980: 52 20 54 53 54 46 44 43 33 0D 0A 20 3B 0D 0A 20 R TSTFDC3.. ;..
02C990: 54 53 54 47 41 50 20 20 49 4E 20 41 2C 28 43 29 TSTGAP IN A,(C)
02C9A0: 0D 0A 20 20 4A 50 20 50 2C 54 53 54 47 41 50 0D .. JP P,TSTGAP.
02C9B0: 0A 20 20 4C 44 20 48 4C 2C 42 55 46 47 41 50 53 . LD HL,BUFGAPS
02C9C0: 0D 0A 20 20 4C 44 20 44 45 2C 32 36 37 0D 0A 20 .. LD DE,267..
02C9D0: 20 4A 52 20 4C 49 54 46 44 43 33 0D 0A 20 3B 0D JR LITFDC3.. ;.
02C9E0: 0A 20 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D . ;-------------
02C9F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 3B 2D -----------.. ;-
02CA00: 20 4C 49 54 46 44 43 34 20 4C 69 72 65 20 65 74 LITFDC4 Lire et
02CA10: 20 73 74 6F 63 6B 65 72 20 6C 27 6F 63 74 65 74 stocker l'octet
02CA20: 20 64 65 20 72 65 6D 70 6C 69 73 73 61 67 65 20 de remplissage
02CA30: 65 74 20 73 61 75 74 65 72 20 2D 0D 0A 20 3B 2D et sauter -.. ;-
02CA40: 20 4C 49 54 46 44 43 35 20 43 6F 6D 70 74 65 72 LITFDC5 Compter
02CA50: 20 6C 65 73 20 6F 63 74 65 74 73 20 64 65 20 72 les octets de r
02CA60: 65 6D 70 6C 69 73 73 61 67 65 20 6A 75 73 71 75 emplissage jusqu
02CA70: 27 61 75 20 43 52 43 20 65 74 20 73 61 75 74 65 'au CRC et saute
02CA80: 72 20 2D 0D 0A 20 3B 2D 20 4C 49 54 46 44 43 36 r -.. ;- LITFDC6
02CA90: 20 4C 69 72 65 20 65 74 20 63 6F 6D 70 74 65 72 Lire et compter
02CAA0: 20 6C 65 20 47 41 50 20 2D 0D 0A 20 3B 2D 20 4C le GAP -.. ;- L
02CAB0: 49 54 46 44 43 37 20 41 74 74 65 6E 64 72 65 20 ITFDC7 Attendre
02CAC0: 6C 61 20 66 69 6E 20 64 65 20 6C 61 20 6C 65 63 la fin de la lec
02CAD0: 74 75 72 65 20 2D 0D 0A 20 3B 0D 0A 20 4C 49 54 ture -.. ;.. LIT
02CAE0: 46 44 43 34 20 50 55 53 48 20 48 4C 0D 0A 20 20 FDC4 PUSH HL..
02CAF0: 20 20 20 20 20 20 20 4C 44 20 44 45 2C 2D 32 20 LD DE,-2
02CB00: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
02CB10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02CB20: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
02CB30: 2D 2D 2D 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ---..
02CB40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02CB50: 20 20 2D 20 52 45 50 4F 4E 53 45 53 20 44 49 56 - REPONSES DIV
02CB60: 45 52 53 45 53 20 2D 0D 0A 20 20 20 20 20 20 20 ERSES -..
02CB70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02CB80: 20 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D ---------
02CB90: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 0D 0A 20 ----------.. ..
02CBA0: 20 20 20 20 43 4C 45 41 52 20 49 4E 50 55 54 20 CLEAR INPUT
02CBB0: 6E 27 65 73 74 20 70 61 73 20 76 61 6C 61 62 6C n'est pas valabl
02CBC0: 65 20 73 75 72 20 20 43 50 43 20 20 34 36 34 20 e sur CPC 464
02CBD0: 6D 61 69 73 20 6C 65 20 63 61 6C 6C 20 26 42 42 mais le call &BB
02CBE0: 30 33 20 66 6F 6E 63 74 69 6F 6E 6E 65 20 0D 0A 03 fonctionne ..
02CBF0: 20 73 75 72 20 74 6F 75 73 20 6C 65 73 20 43 50 sur tous les CP
02CC00: 43 20 2E 20 20 4F 6E 20 20 70 65 75 74 20 20 61 C . On peut a
02CC10: 75 73 73 69 20 20 72 7B 61 6C 69 73 65 72 20 20 ussi r{aliser
02CC20: 6C 27 7B 71 75 69 76 61 6C 65 6E 74 20 64 65 20 l'{quivalent de
02CC30: 43 4C 45 41 52 20 49 4E 50 55 54 20 65 6E 20 0D CLEAR INPUT en .
02CC40: 0A 20 62 61 73 69 63 20 61 76 65 63 20 6C 61 20 . basic avec la
02CC50: 6C 69 67 6E 65 20 73 75 69 76 61 6E 74 65 20 3A ligne suivante :
02CC60: 0D 0A 20 0D 0A 20 20 20 20 20 31 30 20 57 48 49 .. .. 10 WHI
02CC70: 4C 45 20 49 4E 4B 45 59 24 3C 3E 22 22 3A 57 45 LE INKEY$<>"":WE
02CC80: 4E 44 0D 0A 20 0D 0A 20 20 20 20 20 4C 61 20 66 ND.. .. La f
02CC90: 6F 6E 63 74 69 6F 6E 20 62 61 73 69 63 20 20 49 onction basic I
02CCA0: 4E 4B 45 59 24 20 20 61 79 61 6E 74 20 20 70 6F NKEY$ ayant po
02CCB0: 75 72 20 20 72 6F 08 5E 6C 65 20 20 64 27 65 78 ur ro.^le d'ex
02CCC0: 74 72 61 69 72 65 20 20 75 6E 20 63 61 72 61 63 traire un carac
02CCD0: 74 7D 72 65 20 64 75 20 0D 0A 20 62 75 66 66 65 t}re du .. buffe
02CCE0: 72 20 63 6C 61 76 69 65 72 20 2C 20 6C 65 20 70 r clavier , le p
02CCF0: 72 6F 67 72 61 6D 6D 65 20 20 72 65 73 74 65 72 rogramme rester
02CD00: 61 20 20 65 6E 20 20 61 74 74 65 6E 74 65 20 64 a en attente d
02CD10: 61 6E 73 20 6C 61 20 62 6F 75 63 6C 65 20 57 48 ans la boucle WH
02CD20: 49 4C 45 3A 57 45 4E 44 20 0D 0A 20 74 61 6E 74 ILE:WEND .. tant
02CD30: 20 71 75 65 20 6C 61 20 66 6F 6E 63 74 69 6F 6E que la fonction
02CD40: 20 49 4E 4B 45 59 24 20 70 6F 75 72 72 61 20 65 INKEY$ pourra e
02CD50: 78 74 72 61 69 72 65 20 20 75 6E 20 20 63 61 72 xtraire un car
02CD60: 61 63 74 7D 72 65 20 2E 20 51 75 61 6E 74 20 65 act}re . Quant e
02CD70: 6C 6C 65 20 6E 65 20 6C 65 20 0D 0A 20 70 6F 75 lle ne le .. pou
02CD80: 72 72 61 20 70 6C 75 73 20 2C 20 6C 65 20 62 75 rra plus , le bu
02CD90: 66 66 65 72 20 63 6C 61 76 69 65 72 20 73 65 72 ffer clavier ser
02CDA0: 61 20 76 69 64 65 20 2E 20 43 2E 51 2E 46 2E 44 a vide . C.Q.F.D
02CDB0: 2E 0D 0A 20 0D 0A 20 20 20 20 20 20 20 20 20 20 ... ..
02CDC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02CDD0: 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D --------------
02CDE0: 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 0D 0A 20 20 20 --------.. ..
02CDF0: 20 20 41 20 6D 6F 69 6E 73 20 64 65 20 72 7B 7B A moins de r{{
02CE00: 63 72 69 72 65 20 6C 65 20 70 72 6F 67 72 61 6D crire le program
02CE10: 6D 65 20 20 62 69 6E 61 69 72 65 20 20 2C 20 20 me binaire ,
02CE20: 41 4D 53 57 4F 52 44 20 6E 65 20 70 65 75 74 20 AMSWORD ne peut
02CE30: 65 78 63 7B 64 65 72 20 31 32 38 20 0D 0A 20 63 exc{der 128 .. c
02CE40: 6F 6C 6F 6E 6E 65 73 20 2E 0D 0A 20 0D 0A 20 20 olonnes ... ..
02CE50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02CE60: 20 20 20 20 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D ------
02CE70: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
02CE80: 0D 0A 20 0D 0A 20 20 20 20 20 50 6F 75 72 20 6F .. .. Pour o
02CE90: 62 74 65 6E 69 72 20 6C 27 61 66 66 69 63 68 61 btenir l'afficha
02CEA0: 67 65 20 65 6E 20 20 64 7B 63 69 6D 61 6C 20 20 ge en d{cimal
02CEB0: 64 65 73 20 20 76 61 6C 65 75 72 73 20 20 61 62 des valeurs ab
02CEC0: 73 6F 6C 75 65 73 20 65 78 70 72 69 6D 7B 65 73 solues exprim{es
02CED0: 20 65 6E 20 0D 0A 20 68 65 78 61 64 7B 63 69 6D en .. hexad{cim
02CEE0: 61 6C 20 61 75 20 64 65 73 73 75 73 20 64 65 20 al au dessus de
02CEF0: 26 38 30 30 30 20 70 61 72 20 50 52 49 4E 54 20 &8000 par PRINT
02CF00: 2C 20 75 6E 65 20 73 65 75 6C 65 20 73 6F 6C 75 , une seule solu
02CF10: 74 69 6F 6E 20 3A 20 41 6A 6F 75 74 65 72 20 36 tion : Ajouter 6
02CF20: 35 35 33 36 20 0D 0A 20 40 20 6C 61 20 76 61 6C 5536 .. @ la val
02CF30: 65 75 72 20 40 20 65 78 70 72 69 6D 65 72 20 2E eur @ exprimer .
02CF40: 0D 0A 20 0D 0A 20 20 20 20 20 20 20 20 20 20 20 .. ..
02CF50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02CF60: 20 20 20 20 50 52 49 4E 54 20 26 39 30 30 30 2B PRINT &9000+
02CF70: 36 35 35 33 36 0D 0A 20 0D 0A 20 20 20 20 20 52 65536.. .. R
02CF80: 69 65 6E 20 64 27 61 75 74 72 65 20 40 20 66 61 ien d'autre @ fa
02CF90: 69 72 65 20 2C 20 6C 65 20 20 43 50 43 20 63 6F ire , le CPC co
02CFA0: 6E 73 69 64 7D 72 65 20 20 6C 65 73 20 76 61 6C nsid}re les val
02CFB0: 65 75 72 73 20 68 65 78 61 64 7B 63 69 6D 61 6C eurs hexad{cimal
02CFC0: 65 73 20 63 6F 6D 6D 65 20 0D 0A 20 64 65 73 20 es comme .. des
02CFD0: 65 6E 74 69 65 72 73 20 53 49 47 4E 45 53 20 20 entiers SIGNES
02CFE0: 65 74 20 20 64 61 6E 73 20 20 63 65 20 20 63 61 et dans ce ca
02CFF0: 73 20 20 74 6F 75 74 65 20 20 76 61 6C 65 75 72 s toute valeur
02D000: 20 20 64 65 20 20 26 38 30 30 31 20 20 40 20 20 de &8001 @
02D010: 26 46 46 46 46 20 65 73 74 20 0D 0A 20 63 6F 6E &FFFF est .. con
02D020: 73 69 64 7B 72 7B 65 20 63 6F 6D 6D 65 20 6E 7B sid{r{e comme n{
02D030: 67 61 74 69 76 65 20 2E 0D 0A 20 0D 0A 20 20 20 gative ... ..
02D040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02D050: 20 20 20 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D -------
02D060: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D ---------------.
02D070: 0A 20 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 . ..
02D080: 20 20 20 20 20 41 64 61 70 74 61 74 69 6F 6E 20 Adaptation
02D090: 64 27 75 6E 20 35 70 2E 31 2F 34 20 65 6E 20 6C d'un 5p.1/4 en l
02D0A0: 65 63 74 65 75 72 20 41 20 73 75 72 20 34 36 34 ecteur A sur 464
02D0B0: 20 2E 0D 0A 20 0D 0A 20 20 20 20 20 20 20 20 20 ... ..
02D0C0: 20 20 20 20 20 20 20 20 51 75 65 73 74 69 6F 6E Question
02D0D0: 20 71 75 69 20 61 70 70 65 6C 6C 65 20 64 27 61 qui appelle d'a
02D0E0: 62 6F 72 64 20 75 6E 20 63 6F 6D 6D 65 6E 74 61 bord un commenta
02D0F0: 69 72 65 20 2E 0D 0A 20 0D 0A 20 20 20 20 20 53 ire ... .. S
02D100: 4F 53 20 50 52 4F 47 52 41 4D 4D 45 55 52 53 20 OS PROGRAMMEURS
02D110: 72 7B 70 6F 6E 64 20 40 20 54 4F 55 54 45 20 71 r{pond @ TOUTE q
02D120: 75 65 73 74 69 6F 6E 20 20 64 65 20 50 52 4F 47 uestion de PROG
02D130: 52 41 4D 4D 41 54 49 4F 4E 20 65 74 20 5C 61 20 RAMMATION et \a
02D140: 63 27 65 73 74 20 64 65 20 0D 0A 20 6C 27 7B 6C c'est de .. l'{l
02D150: 65 63 74 72 6F 6E 69 71 75 65 20 21 20 4E 6F 75 ectronique ! Nou
02D160: 73 20 6E 27 61 76 6F 6E 73 20 70 61 73 20 20 64 s n'avons pas d
02D170: 27 7B 6C 65 63 74 72 6F 6E 69 63 69 65 6E 20 20 '{lectronicien
02D180: 63 61 70 61 62 6C 65 20 64 65 20 62 69 64 6F 75 capable de bidou
02D190: 69 6C 6C 65 72 20 6C 65 73 20 0D 0A 20 74 72 69 iller les .. tri
02D1A0: 70 65 73 20 64 75 20 43 50 43 20 65 74 20 65 6E pes du CPC et en
02D1B0: 63 6F 72 65 20 6D 6F 69 6E 73 20 64 65 20 63 72 core moins de cr
02D1C0: 7B 65 72 20 6C 65 73 20 70 6C 61 6E 73 20 64 27 {er les plans d'
02D1D0: 75 6E 65 20 69 6E 74 65 72 66 61 63 65 20 2E 0D une interface ..
02D1E0: 0A 20 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 . ..
02D1F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02D200: 53 65 63 6F 6E 64 65 20 63 6F 6E 73 69 64 7B 72 Seconde consid{r
02D210: 61 74 69 6F 6E 20 2E 0D 0A 20 0D 0A 20 20 20 20 ation ... ..
02D220: 20 43 65 74 74 65 20 71 75 65 73 74 69 6F 6E 20 Cette question
02D230: 6E 6F 75 73 20 40 20 7B 74 7B 20 70 6F 73 7B 65 nous @ {t{ pos{e
02D240: 20 70 61 72 20 20 4D 2E 42 49 54 41 4E 20 20 64 par M.BITAN d
02D250: 65 20 43 52 45 54 45 49 4C 20 28 51 75 69 20 6E e CRETEIL (Qui n
02D260: 65 20 66 61 69 74 20 70 61 73 20 0D 0A 20 70 61 e fait pas .. pa
02D270: 72 74 69 65 20 64 65 20 6E 6F 73 20 61 62 6F 6E rtie de nos abon
02D280: 6E 7B 73 29 20 2E 20 44 61 6E 73 20 20 6C 61 20 n{s) . Dans la
02D290: 20 6D 65 73 75 72 65 20 20 6F 7C 20 20 69 6C 20 mesure o| il
02D2A0: 73 65 20 72 65 63 6F 6D 6D 61 6E 64 61 69 74 20 se recommandait
02D2B0: 64 27 75 6E 20 64 65 20 6E 6F 73 20 0D 0A 20 70 d'un de nos .. p
02D2C0: 6C 75 73 20 66 69 64 7D 6C 65 73 20 73 6F 75 74 lus fid}les sout
02D2D0: 69 65 6E 74 73 20 2C 20 6E 6F 75 73 20 61 76 6F ients , nous avo
02D2E0: 6E 73 20 63 68 65 72 63 68 7B 20 64 61 6E 73 20 ns cherch{ dans
02D2F0: 6C 61 20 62 69 62 6C 69 6F 74 68 7D 71 75 65 20 la biblioth}que
02D300: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
02D310: 26 00 01 00 02 09 4E E5 26 00 C1 02 00 00 00 02 &.....N.&.......
02D320: 26 00 C2 02 00 00 00 02 26 00 C3 02 00 00 00 02 &.......&.......
02D330: 26 00 C4 02 00 00 00 02 26 00 C5 02 00 00 00 02 &.......&.......
02D340: 26 00 C6 02 00 00 00 02 26 00 C7 02 00 00 00 02 &.......&.......
02D350: 26 00 C8 02 00 00 00 02 26 00 C9 02 00 00 00 02 &.......&.......
02D360: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D370: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D380: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D390: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D3A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D3B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D3C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D3D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D3E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D3F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D400: 55 54 49 4C 2D 53 4F 46 54 20 75 6E 20 0D 0A 20 UTIL-SOFT un ..
02D410: 6F 75 76 72 61 67 65 20 74 72 61 69 74 61 6E 74 ouvrage traitant
02D420: 20 64 75 20 73 75 6A 65 74 20 2E 20 20 43 6F 6D du sujet . Com
02D430: 6D 65 20 20 6C 65 20 20 73 63 68 7B 6D 61 20 20 me le sch{ma
02D440: 73 27 61 70 70 6C 69 71 75 61 69 74 20 20 40 20 s'appliquait @
02D450: 75 6E 20 43 50 43 20 36 31 32 38 20 2C 20 0D 0A un CPC 6128 , ..
02D460: 20 4D 2E 4D 41 49 47 52 4F 54 20 40 20 20 70 72 M.MAIGROT @ pr
02D470: 69 73 20 20 6C 61 20 20 70 65 69 6E 65 20 20 64 is la peine d
02D480: 27 6F 75 76 72 69 72 20 20 73 6F 6E 20 20 69 6E 'ouvrir son in
02D490: 74 65 72 66 61 63 65 20 20 64 72 69 76 65 20 20 terface drive
02D4A0: 70 6F 75 72 20 6C 6F 63 61 6C 69 73 65 72 20 0D pour localiser .
02D4B0: 0A 20 6C 27 7B 71 75 69 76 61 6C 65 6E 63 65 20 . l'{quivalence
02D4C0: 64 65 73 20 63 6F 6E 6E 65 78 69 6F 6E 73 20 65 des connexions e
02D4D0: 74 20 64 65 20 20 72 7B 70 6F 6E 64 72 65 20 20 t de r{pondre
02D4E0: 70 61 72 20 63 6F 75 72 72 69 65 72 20 65 6E 20 par courrier en
02D4F0: 66 6F 75 72 6E 69 73 73 61 6E 74 20 6C 65 73 20 fournissant les
02D500: 0D 0A 20 72 7B 66 7B 72 65 6E 63 65 73 20 64 65 .. r{f{rences de
02D510: 20 6C 27 6F 75 76 72 61 67 65 20 6F 7C 20 74 72 l'ouvrage o| tr
02D520: 6F 75 76 65 72 20 20 6C 65 20 20 73 63 68 7B 6D ouver le sch{m
02D530: 61 20 20 2E 20 20 4E 6F 75 73 20 6E 65 20 70 6F a . Nous ne po
02D540: 75 76 6F 6E 73 20 6C 75 69 20 64 6F 6E 6E 65 72 uvons lui donner
02D550: 20 0D 0A 20 70 6C 75 73 20 64 27 69 6E 66 6F 72 .. plus d'infor
02D560: 6D 61 74 69 6F 6E 73 20 40 20 63 65 20 73 75 6A mations @ ce suj
02D570: 65 74 20 20 65 74 20 20 6E 65 20 20 63 6F 6D 70 et et ne comp
02D580: 72 65 6E 6F 6E 73 20 20 70 61 73 20 70 6F 75 72 renons pas pour
02D590: 71 75 6F 69 20 69 6C 20 72 65 70 6F 73 65 20 6C quoi il repose l
02D5A0: 61 20 0D 0A 20 71 75 65 73 74 69 6F 6E 20 20 2C a .. question ,
02D5B0: 20 20 63 65 74 74 65 20 20 66 6F 69 73 20 20 70 cette fois p
02D5C0: 61 72 20 20 6C 27 69 6E 74 65 72 6D 7B 64 69 61 ar l'interm{dia
02D5D0: 69 72 65 20 20 20 64 65 20 20 6C 27 61 62 6F 6E ire de l'abon
02D5E0: 6E 7B 20 20 64 75 71 75 65 6C 20 20 69 6C 20 20 n{ duquel il
02D5F0: 73 65 20 0D 0A 20 72 65 63 6F 6D 6D 61 6E 64 61 se .. recommanda
02D600: 69 74 20 3F 3F 3F 0D 0A 20 0D 0A 20 20 20 20 20 it ???.. ..
02D610: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02D620: 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------
02D630: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 20 --------------
02D640: 0D 0A 20 0D 0A 20 20 20 20 20 43 6F 6D 6D 65 6E .. .. Commen
02D650: 74 20 66 61 69 72 65 20 75 6E 65 20 20 61 64 64 t faire une add
02D660: 69 74 69 6F 6E 20 20 31 36 20 20 62 69 74 73 20 ition 16 bits
02D670: 20 73 75 72 20 20 48 4C 20 20 71 75 61 6E 64 20 sur HL quand
02D680: 20 74 6F 75 73 20 6C 65 73 20 72 65 67 69 73 74 tous les regist
02D690: 72 65 73 20 0D 0A 20 64 6F 75 62 6C 65 73 20 73 res .. doubles s
02D6A0: 6F 6E 74 20 6F 63 63 75 70 7B 73 20 3F 20 41 76 ont occup{s ? Av
02D6B0: 65 7A 20 20 76 6F 75 73 20 20 64 65 73 20 20 61 ez vous des a
02D6C0: 73 74 75 63 65 73 20 20 70 6F 75 72 20 20 64 65 stuces pour de
02D6D0: 73 20 63 61 6C 63 75 6C 73 20 73 69 6D 70 6C 65 s calculs simple
02D6E0: 73 20 65 6E 20 0D 0A 20 61 73 73 65 6D 62 6C 65 s en .. assemble
02D6F0: 75 72 20 3F 0D 0A 20 20 20 20 20 50 6F 75 72 20 ur ?.. Pour
02D700: 6C 61 20 70 72 65 6D 69 7D 72 65 20 70 61 72 74 la premi}re part
02D710: 69 65 20 64 65 20 6C 61 20 20 71 75 65 73 74 69 ie de la questi
02D720: 6F 6E 20 20 5C 61 20 20 76 61 20 20 6D 61 69 73 on \a va mais
02D730: 20 70 6F 75 72 20 6C 61 20 73 65 63 6F 6E 64 65 pour la seconde
02D740: 20 2C 20 40 20 0D 0A 20 6C 27 69 6E 73 74 61 72 , @ .. l'instar
02D750: 20 64 65 20 42 4C 4F 4F 44 20 64 7B 62 61 72 71 de BLOOD d{barq
02D760: 75 61 6E 74 20 73 75 72 20 6C 61 20 20 70 6C 61 uant sur la pla
02D770: 6E 7D 74 65 20 20 64 65 20 20 4D 41 58 58 4F 4E n}te de MAXXON
02D780: 20 2C 20 6A 65 20 73 65 72 61 69 73 20 74 65 6E , je serais ten
02D790: 74 7B 20 64 65 20 0D 0A 20 72 7B 70 6F 6E 64 72 t{ de .. r{pondr
02D7A0: 65 20 3A 20 4F 55 49 20 4D 4F 49 20 43 4F 4E 4E e : OUI MOI CONN
02D7B0: 41 49 54 52 45 20 41 53 54 55 43 45 53 20 20 21 AITRE ASTUCES !
02D7C0: 20 20 65 74 20 64 27 61 6A 6F 75 74 65 72 20 4D et d'ajouter M
02D7D0: 4F 49 20 56 4F 55 4C 4F 49 52 20 53 41 56 4F 49 OI VOULOIR SAVOI
02D7E0: 52 20 51 55 4F 49 20 0D 0A 20 54 4F 49 20 43 4F R QUOI .. TOI CO
02D7F0: 4E 4E 41 49 54 52 45 20 2E 2E 2E 20 4E 27 7B 74 NNAITRE ... N'{t
02D800: 61 6E 74 20 70 61 73 20 64 27 75 6E 65 20 6E 61 ant pas d'une na
02D810: 74 75 72 65 20 20 40 20 20 73 75 63 63 6F 6D 62 ture @ succomb
02D820: 65 72 20 40 20 6C 61 20 74 65 6E 74 61 74 69 6F er @ la tentatio
02D830: 6E 20 2C 20 75 6E 65 20 0D 0A 20 73 7B 72 69 65 n , une .. s{rie
02D840: 20 64 27 69 64 7B 65 73 20 64 69 76 65 72 73 65 d'id{es diverse
02D850: 73 20 73 75 72 20 6D 75 6C 74 69 70 6C 69 63 61 s sur multiplica
02D860: 74 69 6F 6E 73 20 65 74 20 64 69 76 69 73 69 6F tions et divisio
02D870: 6E 73 20 2C 20 73 75 69 74 20 2E 0D 0A 20 0D 0A ns , suit ... ..
02D880: 20 20 20 20 20 31 7D 72 65 20 72 7B 70 6F 6E 73 1}re r{pons
02D890: 65 20 3A 0D 0A 20 0D 0A 20 20 20 20 20 45 6E 20 e :.. .. En
02D8A0: 70 72 69 6E 63 69 70 65 20 6F 6E 20 66 61 69 74 principe on fait
02D8B0: 20 3A 20 50 55 53 48 20 42 43 0D 0A 20 20 20 20 : PUSH BC..
02D8C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02D8D0: 20 20 20 20 20 20 20 4C 44 20 20 42 43 2C 4E 4E LD BC,NN
02D8E0: 20 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
02D8F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 41 44 AD
02D900: 44 20 48 4C 2C 42 43 20 0D 0A 20 20 20 20 20 20 D HL,BC ..
02D910: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02D920: 20 20 20 20 20 50 4F 50 20 42 43 0D 0A 20 0D 0A POP BC.. ..
02D930: 20 20 20 20 20 4F 6E 20 70 65 75 74 20 74 6F 75 On peut tou
02D940: 74 65 66 6F 69 73 20 20 61 76 6F 69 72 20 20 64 tefois avoir d
02D950: 65 20 20 62 6F 6E 6E 65 73 20 20 72 61 69 73 6F e bonnes raiso
02D960: 6E 73 20 20 64 65 20 20 6E 65 20 20 70 61 73 20 ns de ne pas
02D970: 75 74 69 6C 69 73 65 72 20 63 65 74 74 65 20 0D utiliser cette .
02D980: 0A 20 73 74 72 75 63 74 75 72 65 20 2C 20 6E 6F . structure , no
02D990: 74 61 6D 65 6E 74 20 6C 6F 72 73 71 75 65 20 6C tament lorsque l
02D9A0: 65 20 74 65 6D 70 73 20 64 27 7B 78 7B 63 75 74 e temps d'{x{cut
02D9B0: 69 6F 6E 20 20 65 73 74 20 20 76 69 74 61 6C 20 ion est vital
02D9C0: 2E 20 44 61 6E 73 20 63 65 20 63 61 73 20 2C 20 . Dans ce cas ,
02D9D0: 0D 0A 20 63 65 20 71 75 69 20 73 75 69 74 20 2C .. ce qui suit ,
02D9E0: 20 62 69 65 6E 20 71 75 65 20 20 70 6C 75 73 20 bien que plus
02D9F0: 20 6C 6F 6E 67 20 20 65 6E 20 20 6F 63 74 65 74 long en octet
02DA00: 73 20 2C 20 64 65 6D 61 6E 64 65 20 75 6E 20 74 s , demande un t
02DA10: 65 6D 70 73 20 64 27 7B 78 7B 63 75 74 69 6F 6E emps d'{x{cution
02DA20: 20 0D 0A 20 69 6E 66 7B 72 69 65 75 72 20 40 20 .. inf{rieur @
02DA30: 63 65 20 71 75 69 20 70 72 7B 63 7D 64 65 20 2E ce qui pr{c}de .
02DA40: 0D 0A 20 0D 0A 20 41 44 44 49 54 31 20 20 4C 44 .. .. ADDIT1 LD
02DA50: 20 41 2C 23 4E 20 20 20 20 20 20 20 20 20 3B 41 A,#N ;A
02DA60: 64 64 69 74 69 6F 6E 20 64 65 20 6C 61 20 76 61 ddition de la va
02DA70: 6C 65 75 72 20 38 20 42 69 74 73 20 63 6F 6E 74 leur 8 Bits cont
02DA80: 65 6E 75 65 20 64 61 6E 73 20 41 20 61 75 0D 0A enue dans A au..
02DA90: 20 20 20 20 20 20 20 20 20 41 44 44 20 41 2C 4C ADD A,L
02DAA0: 20 20 20 20 20 20 20 20 20 3B 64 6F 75 62 6C 65 ;double
02DAB0: 20 72 65 67 69 73 74 72 65 20 48 4C 20 2E 0D 0A registre HL ...
02DAC0: 20 20 20 20 20 20 20 20 20 4A 52 20 4E 43 2C 4E JR NC,N
02DAD0: 4F 43 41 52 52 59 20 20 20 3B 53 69 20 6C 65 20 OCARRY ;Si le
02DAE0: 43 41 52 52 59 20 65 73 74 20 6D 69 73 20 2C 20 CARRY est mis ,
02DAF0: 69 6C 20 66 61 75 74 20 62 69 65 6E 20 73 75 72 il faut bien sur
02DB00: 20 69 6E 63 72 7B 6D 65 6E 74 65 72 0D 0A 20 20 incr{menter..
02DB10: 20 20 20 20 20 20 20 49 4E 43 20 48 20 20 20 20 INC H
02DB20: 20 20 20 20 20 20 20 3B 6C 27 6F 63 74 65 74 20 ;l'octet
02DB30: 66 6F 72 74 20 63 6F 6D 6D 65 20 64 61 6E 73 20 fort comme dans
02DB40: 74 6F 75 74 65 20 6F 70 7B 72 61 74 69 6F 6E 20 toute op{ration
02DB50: 61 72 79 74 68 6D 7B 74 69 71 75 65 0D 0A 20 4E arythm{tique.. N
02DB60: 4F 43 41 52 52 59 20 4C 44 20 4C 2C 41 20 20 20 OCARRY LD L,A
02DB70: 20 20 20 20 20 20 20 3B 6E 6F 72 6D 61 6C 65 20 ;normale
02DB80: 2E 0D 0A 20 20 20 20 20 20 20 20 20 2E 2E 2E 2E ... ....
02DB90: 2E 2E 2E 2E 2E 0D 0A 20 0D 0A 20 53 55 42 53 31 ....... .. SUBS1
02DBA0: 20 20 20 4C 44 20 41 2C 4C 20 20 20 20 20 20 20 LD A,L
02DBB0: 20 20 20 3B 4C 61 20 6D 65 6D 65 20 70 6F 75 72 ;La meme pour
02DBC0: 20 75 6E 65 20 73 6F 75 73 74 72 61 63 74 69 6F une soustractio
02DBD0: 6E 20 2E 0D 0A 20 20 20 20 20 20 20 20 20 53 55 n ... SU
02DBE0: 42 20 23 4E 0D 0A 20 20 20 20 20 20 20 20 20 4A B #N.. J
02DBF0: 52 20 4E 43 2C 4E 4F 43 41 52 52 59 0D 0A 20 20 R NC,NOCARRY..
02DC00: 20 20 20 20 20 20 20 44 45 43 20 48 0D 0A 20 4E DEC H.. N
02DC10: 4F 43 41 52 52 59 20 4C 44 20 4C 2C 41 0D 0A 20 OCARRY LD L,A..
02DC20: 20 20 20 20 20 20 20 20 2E 2E 2E 2E 2E 2E 2E 2E ........
02DC30: 2E 0D 0A 20 0D 0A 20 20 20 20 20 20 20 20 20 4C ... .. L
02DC40: 44 20 41 2C 48 20 20 20 20 20 20 20 20 20 20 3B D A,H ;
02DC50: 4C 65 73 20 32 20 6D 65 08 5E 6D 65 73 20 64 61 Les 2 me.^mes da
02DC60: 6E 73 20 6C 65 20 63 61 73 20 6F 7C 20 6C 61 20 ns le cas o| la
02DC70: 76 61 6C 65 75 72 20 40 20 61 6A 6F 75 74 65 72 valeur @ ajouter
02DC80: 0D 0A 20 20 20 20 20 20 20 20 20 41 44 44 20 41 .. ADD A
02DC90: 2C 23 4E 20 20 20 20 20 20 20 20 3B 6F 75 20 73 ,#N ;ou s
02DCA0: 6F 75 73 74 72 61 69 72 65 20 65 73 74 20 73 75 oustraire est su
02DCB0: 72 20 31 36 20 62 69 74 73 20 2E 20 4E 6F 74 65 r 16 bits . Note
02DCC0: 72 20 71 75 65 20 64 61 6E 73 0D 0A 20 20 20 20 r que dans..
02DCD0: 20 20 20 20 20 4C 44 20 48 2C 41 20 20 20 20 20 LD H,A
02DCE0: 20 20 20 20 20 3B 63 65 20 63 61 73 20 2C 20 6C ;ce cas , l
02DCF0: 61 20 73 6F 6C 75 74 69 6F 6E 20 64 27 6F 72 69 a solution d'ori
02DD00: 67 69 6E 65 20 61 76 65 63 20 50 55 53 48 20 26 gine avec PUSH &
02DD10: 20 50 4F 50 0D 0A 20 20 20 20 20 20 20 20 20 4A POP.. J
02DD20: 52 20 41 44 44 49 54 31 20 20 20 20 20 20 20 3B R ADDIT1 ;
02DD30: 65 73 74 20 61 75 73 73 69 20 62 6F 6E 6E 65 20 est aussi bonne
02DD40: 21 0D 0A 20 0D 0A 20 20 20 20 20 20 20 20 20 4C !.. .. L
02DD50: 44 20 41 2C 48 0D 0A 20 20 20 20 20 20 20 20 20 D A,H..
02DD60: 53 55 42 20 23 4E 0D 0A 20 20 20 20 20 20 20 20 SUB #N..
02DD70: 20 4C 44 20 48 2C 41 0D 0A 20 20 20 20 20 20 20 LD H,A..
02DD80: 20 20 4A 52 20 53 55 42 53 31 0D 0A 20 0D 0A 20 JR SUBS1.. ..
02DD90: 20 20 20 20 50 65 6E 73 65 7A 20 20 61 75 73 73 Pensez auss
02DDA0: 69 20 20 71 75 65 20 20 73 69 20 20 6C 27 7B 74 i que si l'{t
02DDB0: 61 74 20 20 64 75 20 20 20 63 61 72 72 79 20 20 at du carry
02DDC0: 65 73 74 20 20 69 6E 64 69 66 66 7B 72 65 6E 74 est indiff{rent
02DDD0: 20 20 6C 6F 72 73 20 20 64 27 75 6E 65 20 0D 0A lors d'une ..
02DDE0: 20 73 6F 75 73 74 72 61 63 74 69 6F 6E 20 31 36 soustraction 16
02DDF0: 20 62 69 74 73 0D 0A 20 0D 0A 20 20 20 20 20 20 bits.. ..
02DE00: 20 20 20 41 4E 44 20 41 20 20 20 20 20 20 20 3B AND A ;
02DE10: 44 61 6E 73 20 63 65 20 63 61 73 20 2C 20 6C 65 Dans ce cas , le
02DE20: 20 43 41 52 52 59 20 65 73 74 20 6D 69 73 20 73 CARRY est mis s
02DE30: 69 20 48 4C 20 3C 20 42 43 0D 0A 20 20 20 20 20 i HL < BC..
02DE40: 20 20 20 20 4C 44 20 42 43 2C 23 41 33 33 35 0D LD BC,#A335.
02DE50: 0A 20 20 20 20 20 20 20 20 20 53 42 43 20 48 4C . SBC HL
02DE60: 2C 42 43 0D 0A 20 0D 0A 20 20 20 20 20 4F 6E 20 ,BC.. .. On
02DE70: 70 65 75 74 20 66 61 69 72 65 20 3A 0D 0A 20 0D peut faire :.. .
02DE80: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 42 43 2C . LD BC,
02DE90: 2D 23 41 33 33 35 20 3B 4C 65 20 70 6C 75 73 20 -#A335 ;Le plus
02DEA0: 6D 69 6E 61 62 6C 65 20 64 65 73 20 61 73 73 65 minable des asse
02DEB0: 6D 62 6C 65 75 72 73 20 63 6F 6E 6E 61 69 08 5E mbleurs connai.^
02DEC0: 74 20 6C 65 20 73 69 67 6E 65 20 6D 6F 69 6E 73 t le signe moins
02DED0: 0D 0A 20 20 20 20 20 20 20 20 20 41 44 44 20 48 .. ADD H
02DEE0: 4C 2C 42 43 20 20 20 20 3B 4D 61 69 73 20 64 61 L,BC ;Mais da
02DEF0: 6E 73 20 63 65 20 63 61 73 20 6C 65 20 43 41 52 ns ce cas le CAR
02DF00: 52 59 20 20 6E 27 65 73 74 20 70 6C 75 73 20 6D RY n'est plus m
02DF10: 69 73 20 73 69 20 48 4C 20 3C 20 42 43 20 63 65 is si HL < BC ce
02DF20: 20 0D 0A 20 71 75 69 20 70 65 75 74 20 65 08 5E .. qui peut e.^
02DF30: 74 72 65 20 74 72 7D 73 20 67 7B 6E 61 6E 74 20 tre tr}s g{nant
02DF40: 73 69 20 6C 27 6F 6E 20 66 61 69 74 20 75 6E 20 si l'on fait un
02DF50: 74 65 73 74 20 64 65 20 63 6F 6D 70 61 72 61 69 test de comparai
02DF60: 73 6F 6E 20 48 4C 20 3C 3D 42 43 20 21 0D 0A 20 son HL <=BC !..
02DF70: 0D 0A 20 20 20 20 20 32 7D 6D 65 20 72 7B 70 6F .. 2}me r{po
02DF80: 6E 73 65 20 3A 20 49 64 7B 65 73 20 65 6E 20 76 nse : Id{es en v
02DF90: 72 61 63 20 2E 0D 0A 20 0D 0A 20 20 20 20 20 4D rac ... .. M
02DFA0: 75 6C 74 69 70 6C 69 65 72 20 6F 75 20 64 69 76 ultiplier ou div
02DFB0: 69 73 65 72 20 75 6E 20 72 65 67 69 73 74 72 65 iser un registre
02DFC0: 20 38 20 62 69 74 73 20 70 61 72 20 32 20 3A 0D 8 bits par 2 :.
02DFD0: 0A 20 0D 0A 20 20 20 20 20 4F 75 20 52 20 72 65 . .. Ou R re
02DFE0: 70 72 7B 73 65 6E 74 65 20 6E 27 69 6D 70 6F 72 pr{sente n'impor
02DFF0: 74 65 20 71 75 65 6C 20 72 65 67 69 73 74 72 65 te quel registre
02E000: 20 38 20 62 69 74 73 20 2E 0D 0A 20 0D 0A 20 20 8 bits ... ..
02E010: 20 20 20 53 4C 41 20 52 20 20 20 4D 75 6C 74 69 SLA R Multi
02E020: 70 6C 69 63 61 74 69 6F 6E 20 70 61 72 20 32 20 plication par 2
02E030: 2E 20 4C 65 20 43 41 52 52 59 20 65 73 74 20 6D . Le CARRY est m
02E040: 69 73 20 65 6E 20 63 61 73 20 64 65 20 64 7B 62 is en cas de d{b
02E050: 6F 72 64 65 6D 65 6E 74 20 2E 0D 0A 20 20 20 20 ordement ...
02E060: 20 50 6F 75 72 20 6C 65 20 72 65 67 69 73 74 72 Pour le registr
02E070: 65 20 41 20 73 70 7B 63 69 66 69 71 75 65 6D 65 e A sp{cifiqueme
02E080: 6E 74 20 2C 20 41 44 44 20 41 2C 41 20 7B 63 6F nt , ADD A,A {co
02E090: 6E 6F 6D 69 73 65 72 61 20 75 6E 20 6F 63 74 65 nomisera un octe
02E0A0: 74 20 2E 0D 0A 20 3B 0D 0A 20 20 20 20 20 53 52 t ... ;.. SR
02E0B0: 4C 20 52 20 20 20 44 69 76 69 73 69 6F 6E 20 2E L R Division .
02E0C0: 20 4C 65 20 43 41 52 52 59 20 65 73 74 20 6D 69 Le CARRY est mi
02E0D0: 73 20 65 6E 20 63 61 73 20 64 65 20 64 7B 62 6F s en cas de d{bo
02E0E0: 72 64 65 6D 65 6E 74 20 2E 0D 0A 20 0D 0A 20 20 rdement ... ..
02E0F0: 20 20 20 53 69 20 6C 27 6F 6E 20 61 6A 6F 75 74 Si l'on ajout
02E100: 65 20 64 65 73 20 53 4C 41 20 6F 75 20 53 52 4C e des SLA ou SRL
02E110: 20 61 70 72 7D 73 20 20 6C 65 20 70 72 65 6D 69 apr}s le premi
02E120: 65 72 20 2C 20 6C 27 6F 70 7B 72 61 74 69 6F 6E er , l'op{ration
02E130: 20 73 65 20 66 65 72 61 20 70 61 72 20 0D 0A 20 se fera par ..
02E140: 34 2C 38 2C 31 36 2C 33 32 2C 36 34 20 2E 0D 0A 4,8,16,32,64 ...
02E150: 20 0D 0A 20 20 20 20 20 4D 75 6C 74 69 70 6C 69 .. Multipli
02E160: 65 72 20 6F 75 20 64 69 76 69 73 65 72 20 75 6E er ou diviser un
02E170: 20 72 65 67 69 73 74 72 65 20 31 36 20 62 69 74 registre 16 bit
02E180: 73 20 70 61 72 20 32 20 3A 0D 0A 20 0D 0A 20 20 s par 2 :.. ..
02E190: 20 20 20 53 4C 41 20 45 20 20 20 3B 4D 75 6C 74 SLA E ;Mult
02E1A0: 69 70 6C 69 65 20 45 20 70 61 72 20 32 20 65 6E iplie E par 2 en
02E1B0: 20 74 65 6E 61 6E 74 20 63 6F 6D 70 74 65 20 64 tenant compte d
02E1C0: 75 20 43 41 52 52 59 0D 0A 20 20 20 20 20 52 4C u CARRY.. RL
02E1D0: 20 44 20 20 20 20 3B 43 6F 6D 6D 65 20 53 4C 41 D ;Comme SLA
02E1E0: 20 6D 61 69 73 20 65 6E 20 70 6C 75 73 20 2C 20 mais en plus ,
02E1F0: 6C 65 20 43 41 52 52 59 20 65 73 74 20 72 65 63 le CARRY est rec
02E200: 6F 70 69 7B 20 64 61 6E 73 20 6C 65 20 42 49 54 opi{ dans le BIT
02E210: 20 30 0D 0A 20 0D 0A 20 20 20 20 20 50 6F 75 72 0.. .. Pour
02E220: 20 48 4C 20 65 74 20 49 58 20 2C 20 6F 6E 20 61 HL et IX , on a
02E230: 75 72 61 20 69 6E 74 7D 72 65 08 5E 74 20 61 20 ura int}re.^t a
02E240: 66 61 69 72 65 20 3A 20 41 44 44 20 48 4C 2C 48 faire : ADD HL,H
02E250: 4C 20 2D 20 41 44 44 20 49 58 2C 49 58 0D 0A 20 L - ADD IX,IX..
02E260: 0D 0A 20 20 20 20 20 53 52 4C 20 45 20 20 20 3B .. SRL E ;
02E270: 44 69 76 69 73 69 6F 6E 20 70 61 72 20 32 20 2E Division par 2 .
02E280: 0D 0A 20 20 20 20 20 52 52 20 44 0D 0A 20 0D 0A .. RR D.. ..
02E290: 20 20 20 20 20 43 6F 6D 6D 65 20 73 75 72 20 20 Comme sur
02E2A0: 38 20 20 62 69 74 73 20 20 2C 20 20 6C 61 20 20 8 bits , la
02E2B0: 72 7B 70 7B 74 69 6F 6E 20 20 64 65 20 20 63 65 r{p{tion de ce
02E2C0: 73 20 20 32 20 20 69 6E 73 74 72 75 63 74 69 6F s 2 instructio
02E2D0: 6E 73 20 20 65 66 66 65 63 74 75 65 72 61 20 0D ns effectuera .
02E2E0: 0A 20 6C 27 6F 70 7B 72 61 74 69 6F 6E 20 70 61 . l'op{ration pa
02E2F0: 72 20 34 2C 38 2C 31 36 2C 33 32 2C 36 34 2C 31 r 4,8,16,32,64,1
02E300: 32 38 2C 45 74 63 20 2E 2E 2E 0D 0A 20 0D 0A 20 28,Etc ..... ..
02E310: 20 20 20 20 50 6F 75 72 20 76 6F 69 72 20 73 69 Pour voir si
02E320: 20 75 6E 20 72 65 67 69 73 74 72 65 20 64 6F 75 un registre dou
02E330: 62 6C 65 20 3D 20 30 20 3A 0D 0A 20 0D 0A 20 20 ble = 0 :.. ..
02E340: 20 20 20 4C 44 20 41 2C 44 20 20 3B 4C 65 20 46 LD A,D ;Le F
02E350: 4C 41 47 20 5A 20 65 73 74 20 6D 69 73 20 73 69 LAG Z est mis si
02E360: 20 44 45 3D 30 0D 0A 20 20 20 20 20 4F 52 20 45 DE=0.. OR E
02E370: 0D 0A 20 0D 0A 20 20 20 20 20 56 6F 69 6C 40 20 .. .. Voil@
02E380: 70 6F 75 72 20 6C 61 20 73 65 63 6F 6E 64 65 20 pour la seconde
02E390: 70 61 72 74 69 65 20 2E 20 53 27 69 6C 20 20 76 partie . S'il v
02E3A0: 6F 75 73 20 20 65 6E 20 66 61 75 74 20 70 6C 75 ous en faut plu
02E3B0: 73 20 2C 20 7B 63 72 69 76 65 7A 20 6E 6F 75 73 s , {crivez nous
02E3C0: 20 65 6E 20 0D 0A 20 70 72 7B 63 69 73 61 6E 74 en .. pr{cisant
02E3D0: 20 76 6F 74 72 65 20 70 65 6E 73 7B 65 20 2E 0D votre pens{e ..
02E3E0: 0A 20 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 . ..
02E3F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02E400: 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ---------------
02E410: 2D 2D 2D 2D 2D 0D 0A 20 20 20 20 20 0D 0A 20 20 -----.. ..
02E420: 20 20 20 20 20 20 20 20 20 20 43 6F 6D 6D 65 6E Commen
02E430: 74 20 70 61 73 73 65 72 20 64 65 73 20 70 61 72 t passer des par
02E440: 61 6D 7D 74 72 65 73 20 64 75 20 62 61 73 69 63 am}tres du basic
02E450: 20 40 20 6C 27 61 73 73 65 6D 62 6C 65 75 72 20 @ l'assembleur
02E460: 3F 0D 0A 20 0D 0A 20 20 20 20 20 53 69 20 69 6C ?.. .. Si il
02E470: 20 6E 27 79 2D 61 20 71 75 27 75 6E 20 73 65 75 n'y-a qu'un seu
02E480: 6C 20 70 61 72 61 6D 7D 74 72 65 20 20 28 43 41 l param}tre (CA
02E490: 4C 4C 20 20 41 44 52 45 53 53 45 2C 4E 29 20 6C LL ADRESSE,N) l
02E4A0: 65 20 70 72 6F 62 6C 7D 6D 65 20 65 73 74 20 72 e probl}me est r
02E4B0: 7B 67 6C 7B 20 0D 0A 20 65 6E 20 35 20 6C 69 67 {gl{ .. en 5 lig
02E4C0: 6E 65 73 20 64 27 61 73 73 65 6D 62 6C 65 75 72 nes d'assembleur
02E4D0: 20 2E 20 41 20 6C 27 65 6E 74 72 7B 65 20 64 75 . A l'entr{e du
02E4E0: 20 20 70 72 6F 67 72 61 6D 6D 65 20 2C 20 41 20 programme , A
02E4F0: 63 6F 6E 74 69 65 6E 74 20 6C 65 20 6E 6F 6D 62 contient le nomb
02E500: 72 65 20 64 65 20 0D 0A 20 70 61 72 61 6D 7D 74 re de .. param}t
02E510: 72 65 20 74 72 61 6E 73 6D 69 73 20 65 74 20 44 re transmis et D
02E520: 45 20 6C 61 20 76 61 6C 65 75 72 20 64 75 20 70 E la valeur du p
02E530: 61 72 61 6D 7D 74 72 65 2E 0D 0A 20 0D 0A 20 20 aram}tre... ..
02E540: 20 20 20 50 6F 73 73 69 62 69 6C 69 74 7B 73 20 Possibilit{s
02E550: 3A 0D 0A 20 0D 0A 20 20 20 20 20 43 41 4C 4C 20 :.. .. CALL
02E560: 33 30 30 30 30 2C 31 32 33 34 20 6F 75 20 58 25 30000,1234 ou X%
02E570: 3D 32 33 34 3A 43 41 4C 4C 20 33 30 30 30 30 2C =234:CALL 30000,
02E580: 58 25 0D 0A 20 20 20 20 20 6F 75 20 58 25 3D 32 X%.. ou X%=2
02E590: 33 34 3A 59 25 3D 31 32 34 3A 20 43 41 4C 4C 20 34:Y%=124: CALL
02E5A0: 33 30 30 30 30 2C 58 25 2B 59 25 2D 31 32 33 0D 30000,X%+Y%-123.
02E5B0: 0A 20 0D 0A 20 20 20 20 20 4E 4F 54 45 20 3A 20 . .. NOTE :
02E5C0: 4C 65 73 20 20 76 61 72 69 61 62 6C 65 73 20 20 Les variables
02E5D0: 40 20 20 74 72 61 6E 73 6D 65 74 74 72 65 20 20 @ transmettre
02E5E0: 64 6F 69 76 65 6E 74 20 20 74 6F 75 6A 6F 75 72 doivent toujour
02E5F0: 73 20 65 08 5E 74 72 65 20 70 72 7B 64 7B 66 69 s e.^tre pr{d{fi
02E600: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
02E610: 27 00 01 00 02 09 4E E5 27 00 C1 02 00 00 00 02 '.....N.'.......
02E620: 27 00 C2 02 00 00 00 02 27 00 C3 02 00 00 00 02 '.......'.......
02E630: 27 00 C4 02 00 00 00 02 27 00 C5 02 00 00 00 02 '.......'.......
02E640: 27 00 C6 02 00 00 00 02 27 00 C7 02 00 00 00 02 '.......'.......
02E650: 27 00 C8 02 00 00 00 02 27 00 C9 02 00 00 00 02 '.......'.......
02E660: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E670: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E680: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E690: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E6A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E6B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E6C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E6D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E6E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E6F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E700: 6E 69 65 73 20 0D 0A 20 66 61 75 74 65 20 64 65 nies .. faute de
02E710: 20 71 75 6F 69 20 6F 6E 20 72 65 63 65 76 72 61 quoi on recevra
02E720: 20 20 75 6E 20 20 49 4D 50 52 4F 50 45 52 20 20 un IMPROPER
02E730: 41 52 47 55 4D 45 4E 54 20 20 2E 20 20 4C 65 20 ARGUMENT . Le
02E740: 6D 65 73 73 61 67 65 20 4F 56 45 52 46 4C 4F 57 message OVERFLOW
02E750: 20 73 65 72 61 20 0D 0A 20 72 65 6E 76 6F 79 7B sera .. renvoy{
02E760: 20 73 69 20 6C 27 6F 6E 20 65 6E 76 6F 69 65 20 si l'on envoie
02E770: 75 6E 65 20 76 61 6C 65 75 72 20 65 6E 74 69 7D une valeur enti}
02E780: 72 65 20 28 20 3E 20 71 75 65 20 36 35 35 33 36 re ( > que 65536
02E790: 29 20 40 20 63 65 73 20 72 6F 75 74 69 6E 65 73 ) @ ces routines
02E7A0: 20 2E 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 20 20 ... ;..
02E7B0: 20 4F 52 47 20 33 30 30 30 30 0D 0A 20 3B 0D 0A ORG 30000.. ;..
02E7C0: 20 20 20 20 20 20 20 20 20 43 50 20 31 20 20 20 CP 1
02E7D0: 20 20 20 20 20 20 20 20 20 3B 41 3D 4E 6F 6D 62 ;A=Nomb
02E7E0: 72 65 20 64 65 20 70 61 72 61 6D 7D 74 72 65 73 re de param}tres
02E7F0: 20 74 72 61 6E 73 6D 69 73 0D 0A 20 20 20 20 20 transmis..
02E800: 20 20 20 20 52 45 54 20 4E 5A 0D 0A 20 20 20 20 RET NZ..
02E810: 20 20 20 20 20 4C 44 20 28 53 54 4F 43 4B 29 2C LD (STOCK),
02E820: 44 45 20 20 20 3B 4F 6E 20 74 72 6F 75 76 65 20 DE ;On trouve
02E830: 74 6F 75 6A 6F 75 72 73 20 6C 65 20 64 65 72 6E toujours le dern
02E840: 69 65 72 20 70 61 72 61 6D 7D 74 72 65 20 0D 0A ier param}tre ..
02E850: 20 20 20 20 20 20 20 20 20 52 45 54 20 20 20 20 RET
02E860: 20 20 20 20 20 20 20 20 20 3B 64 61 6E 73 20 44 ;dans D
02E870: 45 0D 0A 20 3B 0D 0A 20 53 54 4F 43 4B 20 20 20 E.. ;.. STOCK
02E880: 44 42 20 30 0D 0A 20 0D 0A 20 20 20 20 20 53 69 DB 0.. .. Si
02E890: 20 69 6C 20 66 61 75 74 20 70 61 73 73 65 72 20 il faut passer
02E8A0: 70 6C 75 73 69 65 75 72 73 20 70 61 72 61 6D 7D plusieurs param}
02E8B0: 74 72 65 73 20 2C 20 6F 6E 20 6C 65 73 20 72 7B tres , on les r{
02E8C0: 63 75 70 7D 72 65 72 61 20 73 75 63 63 65 73 73 cup}rera success
02E8D0: 69 76 65 6D 65 6E 74 20 0D 0A 20 64 61 6E 73 20 ivement .. dans
02E8E0: 6C 65 20 72 65 67 69 73 74 72 65 20 49 58 20 2C le registre IX ,
02E8F0: 20 63 65 63 69 20 73 61 6E 73 20 6F 75 62 6C 69 ceci sans oubli
02E900: 65 72 20 71 75 65 20 6C 27 61 64 72 65 73 73 61 er que l'adressa
02E910: 67 65 20 64 75 20 5A 38 30 20 66 61 69 74 20 6C ge du Z80 fait l
02E920: 65 73 20 70 69 65 64 73 20 0D 0A 20 61 75 20 6D es pieds .. au m
02E930: 75 72 20 65 74 20 71 75 65 20 6C 27 6F 63 74 65 ur et que l'octe
02E940: 74 20 66 61 69 62 6C 65 20 64 27 75 6E 65 20 76 t faible d'une v
02E950: 61 6C 65 75 72 20 31 36 20 62 69 74 73 20 65 73 aleur 16 bits es
02E960: 74 20 73 74 6F 63 6B 7B 20 65 6E 20 74 65 08 5E t stock{ en te.^
02E970: 74 65 20 21 0D 0A 20 3B 0D 0A 20 20 20 20 20 43 te !.. ;.. C
02E980: 41 4C 4C 20 33 30 30 30 30 2C 20 20 50 41 52 41 ALL 30000, PARA
02E990: 31 20 20 2C 20 20 50 41 52 41 32 20 20 2C 20 20 1 , PARA2 ,
02E9A0: 50 41 52 41 33 20 20 65 74 63 20 2E 2E 2E 2E 0D PARA3 etc .....
02E9B0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
02E9C0: 20 20 20 20 20 20 20 5E 20 20 20 20 20 20 20 20 ^
02E9D0: 20 5E 20 20 20 20 20 20 20 20 20 5E 0D 0A 20 20 ^ ^..
02E9E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02E9F0: 20 20 20 20 28 49 58 2B 35 29 26 34 20 20 28 49 (IX+5)&4 (I
02EA00: 58 2B 33 29 26 32 20 20 28 49 58 2B 31 29 26 30 X+3)&2 (IX+1)&0
02EA10: 0D 0A 20 20 20 20 20 20 20 20 20 4F 52 47 20 33 .. ORG 3
02EA20: 30 30 30 30 0D 0A 20 3B 0D 0A 20 20 20 20 20 20 0000.. ;..
02EA30: 20 20 20 43 50 20 33 20 20 20 20 20 20 20 20 20 CP 3
02EA40: 20 20 20 20 3B 41 3D 4E 6F 6D 62 72 65 20 64 65 ;A=Nombre de
02EA50: 20 70 61 72 61 6D 7D 74 72 65 73 20 74 72 61 6E param}tres tran
02EA60: 73 6D 69 73 0D 0A 20 20 20 20 20 20 20 20 20 52 smis.. R
02EA70: 45 54 20 4E 5A 0D 0A 20 3B 0D 0A 20 20 20 20 20 ET NZ.. ;..
02EA80: 20 20 20 20 4C 44 20 4C 2C 28 49 58 2B 30 29 0D LD L,(IX+0).
02EA90: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 48 2C 28 . LD H,(
02EAA0: 49 58 2B 31 29 0D 0A 20 3B 0D 0A 20 20 20 20 20 IX+1).. ;..
02EAB0: 20 20 20 20 4C 44 20 45 2C 28 49 58 2B 32 29 0D LD E,(IX+2).
02EAC0: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 44 2C 28 . LD D,(
02EAD0: 49 58 2B 33 29 0D 0A 20 3B 0D 0A 20 20 20 20 20 IX+3).. ;..
02EAE0: 20 20 20 20 4C 44 20 43 2C 28 49 58 2B 34 29 0D LD C,(IX+4).
02EAF0: 0A 20 20 20 20 20 20 20 20 20 4C 44 20 42 2C 28 . LD B,(
02EB00: 49 58 2B 35 29 0D 0A 20 3B 0D 0A 20 20 20 20 20 IX+5).. ;..
02EB10: 4C 44 20 28 53 54 4F 43 4B 29 2C 48 4C 0D 0A 20 LD (STOCK),HL..
02EB20: 20 20 20 20 4C 44 20 28 53 54 4F 43 4B 31 29 2C LD (STOCK1),
02EB30: 44 45 0D 0A 20 20 20 20 20 4C 44 20 28 53 54 4F DE.. LD (STO
02EB40: 43 4B 32 29 2C 42 43 0D 0A 20 3B 0D 0A 20 20 20 CK2),BC.. ;..
02EB50: 20 20 20 20 20 20 52 45 54 0D 0A 20 3B 0D 0A 20 RET.. ;..
02EB60: 53 54 4F 43 4B 31 20 20 44 57 20 30 0D 0A 20 53 STOCK1 DW 0.. S
02EB70: 54 4F 43 4B 32 20 20 44 57 20 30 0D 0A 20 53 54 TOCK2 DW 0.. ST
02EB80: 4F 43 4B 32 20 20 44 57 20 30 0D 0A 20 3B 0D 0A OCK2 DW 0.. ;..
02EB90: 20 20 20 20 20 50 6F 75 72 20 64 65 73 20 76 61 Pour des va
02EBA0: 72 69 61 62 6C 65 73 20 65 6E 74 69 7D 72 65 73 riables enti}res
02EBB0: 20 6F 75 20 61 6C 70 68 61 6E 75 6D 7B 72 69 71 ou alphanum{riq
02EBC0: 75 65 73 20 20 2C 20 6F 6E 20 70 72 6F 63 7B 64 ues , on proc{d
02EBD0: 65 72 61 20 64 65 20 6C 61 20 6D 65 08 5E 6D 65 era de la me.^me
02EBE0: 20 0D 0A 20 6D 61 6E 69 7D 72 65 20 6D 61 69 73 .. mani}re mais
02EBF0: 20 63 27 65 73 74 20 6C 65 20 70 6F 69 6E 74 65 c'est le pointe
02EC00: 75 72 20 64 65 20 20 76 61 72 69 61 62 6C 65 20 ur de variable
02EC10: 20 71 75 69 20 20 73 65 72 61 20 74 72 61 6E 73 qui sera trans
02EC20: 6D 69 73 20 61 75 20 6C 69 65 75 20 64 65 20 6C mis au lieu de l
02EC30: 61 20 0D 0A 20 76 61 72 69 61 62 6C 65 20 65 6C a .. variable el
02EC40: 6C 65 20 6D 65 08 5E 6D 65 20 2E 0D 0A 20 20 20 le me.^me ...
02EC50: 20 20 50 55 42 20 3A 20 43 65 20 70 72 6F 62 6C PUB : Ce probl
02EC60: 7D 6D 65 20 40 20 7B 74 7B 20 20 74 72 61 69 74 }me @ {t{ trait
02EC70: 7B 20 20 28 65 6E 74 72 65 20 20 61 75 74 72 65 { (entre autre
02EC80: 73 29 20 20 65 6E 20 20 6C 6F 6E 67 20 65 6E 20 s) en long en
02EC90: 6C 61 72 67 65 20 65 74 20 65 6E 20 0D 0A 20 74 large et en .. t
02ECA0: 72 61 76 65 72 73 20 64 61 6E 73 20 6C 65 20 31 ravers dans le 1
02ECB0: 65 72 20 63 6F 75 72 73 20 64 27 61 73 73 65 6D er cours d'assem
02ECC0: 62 6C 65 75 72 20 55 54 49 4C 2D 53 4F 46 54 20 bleur UTIL-SOFT
02ECD0: 71 75 69 20 6E 65 20 63 6F 75 08 5E 74 65 20 71 qui ne cou.^te q
02ECE0: 75 65 20 31 36 35 46 0D 0A 20 0D 0A 20 20 20 20 ue 165F.. ..
02ECF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02ED00: 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ------------
02ED10: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 0D 0A -----------.. ..
02ED20: 20 20 20 20 20 47 41 54 45 20 41 52 52 41 59 20 GATE ARRAY
02ED30: 65 74 20 43 52 54 43 20 3A 20 55 54 49 4C 2D 53 et CRTC : UTIL-S
02ED40: 4F 46 54 20 40 20 72 7B 70 6F 6E 73 65 20 20 40 OFT @ r{ponse @
02ED50: 20 50 52 45 53 51 55 45 20 74 6F 75 74 20 2C 20 PRESQUE tout ,
02ED60: 64 61 6E 73 20 6C 61 20 6D 65 73 75 72 65 20 0D dans la mesure .
02ED70: 0A 20 6F 7C 20 6C 65 20 47 41 54 45 20 41 52 52 . o| le GATE ARR
02ED80: 41 59 20 65 73 74 20 75 6E 20 20 63 69 72 63 75 AY est un circu
02ED90: 69 74 20 20 73 75 72 20 6C 65 71 75 65 6C 20 69 it sur lequel i
02EDA0: 6C 20 6E 27 65 78 69 73 74 65 20 61 75 63 75 6E l n'existe aucun
02EDB0: 65 20 64 6F 63 75 6D 65 6E 74 61 74 69 6F 6E 20 e documentation
02EDC0: 0D 0A 20 69 6C 20 65 73 74 20 64 69 66 66 69 63 .. il est diffic
02EDD0: 69 6C 65 20 64 65 20 66 61 69 72 65 20 75 6E 20 ile de faire un
02EDE0: 20 63 6F 75 72 73 20 20 73 75 72 20 20 63 65 20 cours sur ce
02EDF0: 73 75 6A 65 74 20 73 61 6E 73 20 72 65 63 6F 70 sujet sans recop
02EE00: 69 65 72 20 64 65 73 20 65 78 74 72 61 69 74 73 ier des extraits
02EE10: 20 0D 0A 20 64 27 6F 75 76 72 61 67 65 73 20 70 .. d'ouvrages p
02EE20: 75 62 6C 69 7B 73 20 70 6C 75 73 20 6F 7C 20 6D ubli{s plus o| m
02EE30: 6F 69 6E 73 20 72 7B 63 65 6D 65 6E 74 20 2E 20 oins r{cement .
02EE40: 4C 27 7B 74 75 64 65 20 64 65 20 63 65 73 20 63 L'{tude de ces c
02EE50: 69 72 63 75 69 74 73 20 2C 20 64 6F 6E 74 20 6C ircuits , dont l
02EE60: 61 20 0D 0A 20 6D 61 69 08 5E 74 72 69 73 65 20 a .. mai.^trise
02EE70: 65 73 74 20 6C 65 20 73 65 63 72 65 74 20 20 64 est le secret d
02EE80: 65 73 20 20 73 63 72 6F 6C 6C 69 6E 67 73 20 20 es scrollings
02EE90: 70 65 72 66 6F 72 6D 61 6E 74 73 20 20 2C 20 20 performants ,
02EEA0: 65 73 74 20 20 65 6E 20 63 6F 75 72 73 20 2E 20 est en cours .
02EEB0: 4E 6F 75 73 20 0D 0A 20 61 75 72 6F 6E 73 20 73 Nous .. aurons s
02EEC0: 61 6E 73 20 64 6F 75 74 65 20 64 65 73 20 72 7B ans doute des r{
02EED0: 76 7B 6C 61 74 69 6F 6E 73 20 20 69 6E 74 7B 72 v{lations int{r
02EEE0: 72 65 73 73 61 6E 74 65 73 20 20 40 20 76 6F 75 ressantes @ vou
02EEF0: 73 20 66 61 69 72 65 20 6C 27 61 6E 20 70 72 6F s faire l'an pro
02EF00: 63 68 61 69 6E 20 0D 0A 20 64 61 6E 73 20 6C 65 chain .. dans le
02EF10: 73 20 63 6F 75 72 73 20 20 64 65 20 20 67 72 61 s cours de gra
02EF20: 70 68 69 73 6D 65 20 20 73 61 6E 73 20 20 71 75 phisme sans qu
02EF30: 27 69 6C 20 20 73 6F 69 74 20 20 6E 7B 63 7B 73 'il soit n{c{s
02EF40: 73 61 69 72 65 20 20 64 65 20 72 65 63 6F 70 69 saire de recopi
02EF50: 65 72 20 6C 65 73 20 0D 0A 20 6F 75 76 72 61 67 er les .. ouvrag
02EF60: 65 73 20 64 65 20 6E 6F 73 20 63 6F 6E 66 72 7D es de nos confr}
02EF70: 72 65 73 20 2E 0D 0A 20 0D 0A 20 20 20 20 20 43 res ... .. C
02EF80: 4F 55 52 53 20 44 45 20 47 52 41 50 48 49 53 4D OURS DE GRAPHISM
02EF90: 45 20 3A 20 4C 65 73 20 63 6F 75 72 73 20 64 27 E : Les cours d'
02EFA0: 61 6E 69 6D 61 74 69 6F 6E 20 67 72 61 70 68 69 animation graphi
02EFB0: 71 75 65 20 72 65 6D 70 6C 61 63 65 72 6F 6E 74 que remplaceront
02EFC0: 20 6C 27 7B 74 75 64 65 20 0D 0A 20 64 75 20 46 l'{tude .. du F
02EFD0: 44 43 20 64 61 6E 73 20 6C 61 20 76 65 72 73 69 DC dans la versi
02EFE0: 6F 6E 20 53 4F 53 20 20 50 52 4F 47 52 41 4D 4D on SOS PROGRAMM
02EFF0: 45 55 52 53 20 20 31 39 39 30 20 20 2C 20 20 63 EURS 1990 , c
02F000: 27 65 73 74 20 64 6F 6E 63 20 70 72 7B 76 75 20 'est donc pr{vu
02F010: 2E 20 49 6C 20 66 61 75 74 20 0D 0A 20 74 6F 75 . Il faut .. tou
02F020: 74 65 66 6F 69 73 20 6E 6F 74 65 72 20 71 75 65 tefois noter que
02F030: 20 70 6F 75 72 20 66 6F 6E 63 74 69 6F 6E 6E 65 pour fonctionne
02F040: 72 20 63 6F 72 72 65 63 74 65 6D 65 6E 74 20 2C r correctement ,
02F050: 20 6C 61 20 73 7B 72 69 65 20 53 4F 53 20 50 52 la s{rie SOS PR
02F060: 4F 47 52 41 4D 4D 45 55 52 53 20 0D 0A 20 64 6F OGRAMMEURS .. do
02F070: 69 74 20 63 6F 6D 70 74 65 72 20 61 75 20 6D 6F it compter au mo
02F080: 69 6E 73 20 20 31 30 30 20 20 73 6F 75 73 63 72 ins 100 souscr
02F090: 69 70 74 65 75 72 73 20 20 28 41 62 6F 6E 6E 65 ipteurs (Abonne
02F0A0: 6D 65 6E 74 20 20 70 6F 75 72 20 6C 65 73 20 34 ment pour les 4
02F0B0: 20 64 69 73 71 75 65 74 74 65 73 20 0D 0A 20 61 disquettes .. a
02F0C0: 6E 6E 75 65 6C 6C 65 73 20 61 76 61 6E 74 20 6C nnuelles avant l
02F0D0: 65 20 31 65 72 20 64 7B 63 65 6D 62 72 65 20 38 e 1er d{cembre 8
02F0E0: 39 29 20 20 2E 20 20 41 62 6F 6E 6E 65 7A 20 20 9) . Abonnez
02F0F0: 76 6F 75 73 20 2C 20 61 62 6F 6F 6E 65 7A 20 76 vous , aboonez v
02F100: 6F 73 20 61 6D 69 73 20 70 6F 75 72 20 0D 0A 20 os amis pour ..
02F110: 6E 6F 65 6C 20 2C 20 76 6F 74 72 65 20 63 6F 6E noel , votre con
02F120: 63 69 65 72 67 65 20 2C 20 76 6F 74 72 65 20 63 cierge , votre c
02F130: 68 69 65 6E 20 2C 20 65 74 63 20 2E 2E 2E 0D 0A hien , etc .....
02F140: 20 0D 0A 20 20 20 20 20 47 7B 6E 7B 72 61 74 65 .. G{n{rate
02F150: 75 72 20 64 65 20 73 70 72 69 74 65 73 20 3A 20 ur de sprites :
02F160: 20 4D 65 72 63 69 20 20 64 65 20 20 6C 27 69 6E Merci de l'in
02F170: 74 7B 72 65 08 5E 74 20 20 71 75 65 20 20 76 6F t{re.^t que vo
02F180: 75 73 20 20 6C 75 69 20 74 7B 6D 6F 69 67 6E 65 us lui t{moigne
02F190: 7A 20 2E 20 0D 0A 20 52 7B 70 6F 6E 73 65 20 64 z . .. R{ponse d
02F1A0: 61 6E 73 20 69 6E 66 6F 72 6D 61 74 69 6F 6E 73 ans informations
02F1B0: 20 55 54 49 4C 2D 53 4F 46 54 20 2E 0D 0A 20 0D UTIL-SOFT ... .
02F1C0: 0A 20 20 20 20 20 53 63 72 6F 6C 6C 69 6E 67 20 . Scrolling
02F1D0: 3A 20 56 6F 69 72 20 64 61 6E 73 20 6C 27 61 75 : Voir dans l'au
02F1E0: 72 65 20 73 65 63 74 69 6F 6E 20 72 7B 70 6F 6E re section r{pon
02F1F0: 73 65 73 20 2E 0D 0A 20 0D 0A 20 20 20 20 20 20 ses ... ..
02F200: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02F210: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
02F220: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
02F230: 2D 2D 2D 0D 0A 20 1A 20 20 20 20 20 20 20 20 20 ---.. .
02F240: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02F250: 20 20 2D 20 52 45 50 4F 4E 53 45 53 20 44 49 56 - REPONSES DIV
02F260: 45 52 53 45 53 20 2D 0D 0A 20 20 20 20 20 20 20 ERSES -..
02F270: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02F280: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02F290: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02F2A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02F2B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02F2C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02F2D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02F2E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02F2F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02F300: 8F CD B3 90 2A 1E 8F CD 1F 8E CD 08 8F C3 06 BB ....*...........
02F310: CD 49 8E C3 93 8E 20 43 4F 4E 56 45 52 54 49 52 .I.... CONVERTIR
02F320: 20 3F A0 20 3D A0 00 00 00 00 00 00 00 00 00 00 ?. =...........
02F330: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02F340: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02F350: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02F360: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02F370: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02F380: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02F390: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02F3A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02F3B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02F3C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02F3D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02F3E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02F3F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02F400: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02F410: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02F420: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02F430: 00 FD 2A 6B 9F E5 FD E5 E1 F5 CD 75 BB F1 E1 C9 ..*k.......u....
02F440: 21 3A 95 CD B3 90 21 A8 91 18 56 21 F1 94 18 51 !:....!...V!...Q
02F450: 21 F9 94 18 4C 21 0A 95 18 47 21 01 95 18 42 21 !...L!...G!...B!
02F460: 12 95 18 3D 21 40 95 18 38 21 46 95 18 33 E5 21 ...=!@..8!F..3.!
02F470: 1A 95 18 22 E5 21 22 95 18 04 E5 21 32 95 CD B3 ...".!"....!2...
02F480: 90 21 E2 94 18 16 E5 21 22 95 18 0A E5 21 2A 95 .!.....!"....!*.
02F490: 18 04 E5 21 32 95 CD B3 90 21 D3 94 CD B3 90 E1 ...!2....!......
02F4A0: C9 18 18 CD B3 90 18 27 FD 21 17 02 F5 CD 2D 90 .......'.!....-.
02F4B0: 18 0A E5 21 84 87 CD B3 90 E1 C9 F5 7E FE 80 30 ...!........~..0
02F4C0: 06 CD 5A BB 23 18 F5 E6 7F 23 CD 5A BB F1 C9 F5 ..Z.#....#.Z....
02F4D0: 3E 0A CD 5A BB 3E 0D 18 F1 F5 3E 20 18 EC F5 3E >..Z.>....> ...>
02F4E0: 18 18 E7 F5 3E 07 18 E2 CD B3 90 18 EC CD B3 90 ....>...........
02F4F0: CD D1 90 F5 3E 26 18 D2 CD D6 90 18 06 CD D6 90 ....>&..........
02F500: CD D1 90 CD B3 90 CD D1 90 CD D6 90 C3 D1 90 CD ................
02F510: F5 90 18 DF CD 1C 91 3E 12 C3 5A BB CD 1C 91 3E .......>..Z....>
02F520: 14 C3 5A BB E5 26 01 6F CD 75 BB E1 C9 CD 75 BB ..Z..&.o.u....u.
02F530: 21 47 91 CD B3 90 CD 39 91 F5 3E 11 CD 5A BB F1 !G.....9..>..Z..
02F540: C9 CD 18 BB E6 DF FE 4E C8 FE 4F 20 F4 37 C9 18 .......N..O .7..
02F550: 20 4F 4B 20 3F 20 28 4F 2F 4E 29 20 18 87 18 20 OK ? (O/N) ...
02F560: 53 4F 53 20 50 52 4F 47 52 41 4D 4D 45 55 52 53 SOS PROGRAMMEURS
02F570: 20 2D 20 45 74 75 64 65 20 64 75 20 46 44 43 20 - Etude du FDC
02F580: 2D 20 28 43 29 20 4D 2E 4D 41 49 47 52 4F 54 20 - (C) M.MAIGROT
02F590: 41 4F 55 54 38 39 20 18 20 20 20 18 20 55 20 54 AOUT89 . . U T
02F5A0: 20 49 20 4C 20 2D 20 53 20 4F 20 46 20 54 20 18 I L - S O F T .
02F5B0: 1A 00 4F 01 98 1F 01 04 20 5B 41 5D 20 54 65 73 ..O..... [A] Tes
02F5C0: 74 65 72 20 65 74 61 74 20 64 72 69 76 65 20 0A ter etat drive .
02F5D0: 0D 20 5B 42 5D 20 50 61 72 61 6D 65 74 72 65 72 . [B] Parametrer
02F5E0: 20 70 72 6F 67 72 2E 20 0A 0D 20 5B 43 5D 20 43 progr. .. [C] C
02F5F0: 6F 6E 76 65 72 73 2E 6E 75 6D 65 72 69 71 75 65 onvers.numerique
02F600: 20 0A 0D 20 5B 44 5D 20 46 6F 72 6D 61 74 20 20 .. [D] Format
02F610: 20 72 65 67 75 6C 69 65 72 20 0A 0D 20 5B 45 5D regulier .. [E]
02F620: 20 46 6F 72 6D 61 74 20 69 72 72 65 67 75 6C 69 Format irreguli
02F630: 65 72 20 0A 0D 20 5B 46 5D 20 41 6E 61 6C 79 73 er .. [F] Analys
02F640: 65 20 64 65 20 70 69 73 74 65 73 20 0A 0D 20 5B e de pistes .. [
02F650: 47 5D 20 4C 69 72 65 20 64 6F 6E 6E 65 65 73 20 G] Lire donnees
02F660: 73 65 63 2E 20 0A 0D 20 5B 48 5D 20 52 65 70 72 sec. .. [H] Repr
02F670: 6F 64 75 69 72 65 20 73 65 63 74 73 2E 20 0A 0D oduire sects. ..
02F680: 20 5B 49 5D 20 4C 69 72 65 20 20 75 6E 65 20 20 [I] Lire une
02F690: 20 70 69 73 74 65 20 0A 0D 20 5B 4A 5D 20 53 61 piste .. [J] Sa
02F6A0: 75 76 65 72 20 62 75 66 66 65 72 2E 62 69 6E 20 uver buffer.bin
02F6B0: 0A 0D 20 5B 4B 5D 20 43 68 61 72 67 65 20 62 75 .. [K] Charge bu
02F6C0: 66 66 65 72 2E 62 69 6E 20 0A 0D 20 5B 4C 5D 20 ffer.bin .. [L]
02F6D0: 43 72 65 65 20 70 69 73 74 65 20 62 75 66 66 65 Cree piste buffe
02F6E0: 72 20 0A 0D 20 5B 51 5D 20 51 75 69 74 74 65 72 r .. [Q] Quitter
02F6F0: 20 70 72 6F 67 72 61 6D 6D 65 20 0A 8D 0A 0D 18 programme .....
02F700: 45 55 4C 20 20 4C 44 20 41 2C 28 4E 42 53 45 43 EUL LD A,(NBSEC
02F710: 29 20 20 20 20 3B 54 65 73 74 65 72 20 73 69 20 ) ;Tester si
02F720: 75 6E 20 73 65 75 6C 20 73 65 63 74 65 75 72 20 un seul secteur
02F730: 73 75 72 20 6C 61 20 70 69 73 74 65 0D 0A 20 20 sur la piste..
02F740: 20 20 20 20 20 20 44 45 43 20 41 1A 2D 21 2D 2D DEC A.-!--
02F750: 2D 21 2D 2D 2D 21 2D 2D 2D 21 2D 2D 2D 21 2D 2D -!---!---!---!--
02F760: 2D 21 2D 2D 2D 21 2D 2D 2D 21 2D 2D 2D 21 2D 2D -!---!---!---!--
02F770: 2D 21 2D 2D 2D 21 2D 2D 2D 21 2D 2D 2D 21 2D 2D -!---!---!---!--
02F780: 65 75 72 20 72 65 73 74 65 20 64 61 6E 73 20 43 eur reste dans C
02F790: 20 6A 75 73 71 75 27 61 20 6C 61 20 66 69 6E 0D jusqu'a la fin.
02F7A0: 0A 20 20 20 20 20 20 20 20 4C 44 20 41 2C 28 44 . LD A,(D
02F7B0: 45 29 20 20 20 20 20 20 20 3B 45 74 61 74 20 64 E) ;Etat d
02F7C0: 27 65 72 72 65 75 72 0D 0A 20 20 20 20 20 20 20 'erreur..
02F7D0: 20 41 4E 44 20 25 30 30 30 30 30 30 31 31 20 20 AND %00000011
02F7E0: 20 3B 4D 41 4D 20 26 20 44 41 4D 20 3F 0D 0A 20 ;MAM & DAM ?..
02F7F0: 20 20 20 20 20 20 20 4A 52 20 5A 2C 4E 4F 4D 41 JR Z,NOMA
02F800: 4D 44 41 09 3B 4E 4F 4E 20 2C 20 63 6F 6E 74 69 MDA.;NON , conti
02F810: 6E 75 65 72 0D 0A 3B 0D 0A 20 20 20 20 20 20 20 nuer..;..
02F820: 20 4C 44 20 49 59 2C 46 4C 41 47 4D 41 4D 20 20 LD IY,FLAGMAM
02F830: 20 3B 4F 75 69 20 6D 61 72 71 75 65 72 20 65 74 ;Oui marquer et
02F840: 20 73 61 75 74 65 72 20 61 75 20 73 75 69 76 61 sauter au suiva
02F850: 6E 74 0D 0A 20 20 20 20 20 20 20 20 49 4E 43 20 nt.. INC
02F860: 28 49 59 2B 30 29 0D 0A 20 20 20 20 20 20 20 20 (IY+0)..
02F870: 4A 52 20 54 45 53 54 4F 55 54 0D 0A 3B 0D 0A 4E JR TESTOUT..;..N
02F880: 4F 4D 41 4D 44 41 20 4C 44 20 41 2C 28 44 45 29 OMAMDA LD A,(DE)
02F890: 09 09 3B 52 65 70 72 65 6E 64 72 65 20 65 74 61 ..;Reprendre eta
02F8A0: 74 20 64 27 65 72 72 65 75 72 0D 0A 20 20 20 20 t d'erreur..
02F8B0: 20 20 20 20 41 4E 44 20 25 30 30 31 30 30 31 30 AND %0010010
02F8C0: 30 20 20 20 3B 43 52 20 26 20 44 44 0D 0A 20 20 0 ;CR & DD..
02F8D0: 20 20 20 20 20 20 43 50 20 25 30 30 31 30 30 31 CP %001001
02F8E0: 30 30 09 3B 49 4C 20 6E 6F 75 73 20 66 61 75 74 00.;IL nous faut
02F8F0: 20 56 52 41 49 4D 45 4E 54 20 4C 45 53 20 32 20 VRAIMENT LES 2
RESULT OF SEARCH :
PRO=187 CHEA=0 COD=12 MUSI=0 COP=124 GRA=103 WRIT=20 198=1 199=2 STARTER=0 KBI=0 CAAV=0 L.TOURNIER=0
PRO=187 CHEA=0 COD=12 MUSI=0 COP=124 GRA=103 WRIT=20 198=1 199=2 STARTER=0 KBI=0 CAAV=0 L.TOURNIER=0
EXTENDED CPC DSK File SAMdisk130625( NCOPSTOKASCt COPANALASC1234567COPGAP2AS
Cd !"#$+,-./0COPANALASC.89ghFDC BAS9%&'()*WjFDC4ME ASC&LECTEUR5CODDCOPGAP1AS
CaOPQRSTUabcdefzCOPECRAASCVXYZqrstCOPECRAASCCOPROUTASCy klmnopuvxyCOPINITASCowCO
PINITASCo!COPGAP1ASCa2FDCTHEOASCABCIJKLMNiFDCTHEOASCCOPECRIASCn8£RSXPRT CODEFG-
INK-INTBINH!REPDIV4ASCKFDCNOTIBAK,FDCBUFF MAXFDCFORM MAXFDCIDS MAXFDCINIT MAX.F
DCROUT MAXo£FDCRW $$$ USNAGE ECCEDITO3 ASCK)!1-INK-INTBINUSPUB3 BAK-PASWORD
-KEY-ES XYUSPUB3 BAKTEST BINUSPUB3 BAS-INT-DEMBAK )/-INTERS -5X
BAK-INTFREIMAXp-INTFREIBAK(#KX BASX BAS
-------------- - REPRODUCTION -
-------------- Les sections prcdentes ayant re
cueulli toutes les informations utiles , il est maintenant possible de lire
et de stocker le contenu des secteurs accessibles . Si la piste n'est
pas formate , on se contentera de mmoriser le numro et le flag d'tat de la p
iste . Sinon , avant le stockage , on vrifiera que le nombre de secteurs e
t la taille du GAP calculs par les routines prcdentes ne sont pas exces
sifs . Quoique trs rare , cette ventualit peut survenir avec des pistes tr
s spciales . Il ne faut pas oublier qu'un passage par la routine ECRASER
aura modifi le nombre des secteurs sur la piste . Dans ce cas , ce
s secteurs supplmentaires doivent etre TOTALEMENT IGNORES car ils n'exister
ont que de manire phmre lors du formatage de la copie ! - Stocker une pis
te complete . Si buffer plein retour avec NC - STOKPIST LD HL,TSTOKP Mess
age stocke piste CALL PRT XOR A LD (FLAG),A FL
AG ne sert que pour positionner un texte -----
-------------- Aprs cette brve initialisation , on commence par ranger
les paramtres gnraux concernant la piste .
------------------- LD HL,(POINPIS) Pointeur buffer debut piste
LD A,(PISTSEL) Ranger piste et octet etat piste LD (HL),A
Numro de piste INC HL LD A,(FLAGFNC) Flag des erreurs pis
te LD (HL),A Ces deux donnees tant rangees , on stocke la
INC HL position du nouveau pointeur . Si la piste n'est L
D (POINPIS),HL pas formatee ce sera tout . ---
---------------- Ici on recre un nouvel octet d'information sur l'et
at de la piste que l'on range dans une liste spare pour pouvoir le relire en f
in de copie . ------------------- - Compo
ser etat piste - LD HL,(POINERP) Mettre le numero de piste dans la
serie LD A,(PISTSEL) des erreurs pistes LD (HL),A Pis
te INC HL LD (HL),0 RAZ au passage LD A,(
FLAGFNC) BIT 3,A Formatee JR Z,PF OUI
INC A Voir si FNC #FF si oui piste a ne pas traiter N
JR NZ,TRAITE (Inutilise dans cette version du programme) LD (HL
),#FF TRAITE SET 7,(HL) La piste n'est pas formatee , on laisse tombe
r INC HL LD (POINERP),HL XOR A RET
Fini . Rien n'a ete stocke - Piste formatee a traiter . Continuer -
PF CALL RECTINB Tester si le nombre de secteurs donnes est admissible
JR C,OKNBSEC CARRY si OK NC si non et C contient NBSEC MAXI . Dans
99% des cas c'est toujours OK grace au routines SET
6,(HL) precedentes . LD A,C Rectifier NBSEC pour ne pas plant
er le programme mais LD (NBSEC),A la copie sera ratee OKNBSEC LD
A,(GAPFORM) Voir si la longueur du GAP est admissible pour LD B,A
le format PUSH BC Preserver GAP#3 trouve PUSH
HL Preserver pointeur etat piste CALL CALIGAP CALL S
ETGRW Refaire GAP RW au cas ou GAP#3 aurait ete change POP HL
POP BC LD A,(GAPFORM) GAP#3 a change CP B
JR Z,PARECTIF NON SET 3,(HL) Signaler que la taille du GA
P a ete rectifiee -------------------
Les paramtres du format tests , on recopie les indications utiles de FLAGF
NC dans notre octet d'tat piste . L'opration RLCA met le CARRY chaque fois qu
e le bit le plus gauche de l'octet est 1 . -
------------------ PARECTIF LD A,(FLAGFNC) Recopier les indications utiles
de FLAGFNC RLCA dans la liste de erreurs possibles
JR NC,PARATE SET 4,(HL) Analyse ratee . Personnellement ca m'et
onnerait PARATE RLCA mais va savoir ... JR NC,PASREPA
SET 0,(HL) Piste reparee plus ou moins bien PASREPA RLCA
JR NC,PASMULT SET 1,(HL) Plusieurs tailles de format possibles
(ecrases) PASMULT RLCA (Ambiguite assez rare .) JR NC,PAE
C SET 2,(HL) Presence certaine de secteurs ecrases PAEC RLCA
RLCA Les 2 bits suivants sont inutiles RLCA
JR NC,CONF SET 5,(HL) GAP non conforme (Ca c'est mortel pou
r la copie) CONF INC HL C'est fini LD (POINERP),HL On ra
nge notre nouveau pointeur de liste . --------
----------- Tout est maintenant vrifi et les causes possibles d'une err
eur de copie sont notes et ranges . On commence le stockage proprement
dit . La structure du stockage a t dcrite prcdement .
------------------- - Memoriser les donnees pistes dans le buff
er - LD HL,(POINPIS) Reprendre le pointeur buffer . LD DE
,(LONGSEC) Stocker longueur de secteur en octets LD (HL),E I
NC HL LD (HL),D INC HL PAFLEN EX DE,HL Copier L
ENSEC - NBSEC - GAPFORM - OCREMP LD HL,LENSEC Le pointeur passe de
HL dans DE pour les LDIR LD BC,4 LDIR LD A,(NBS
EC) Copier les IDS LD C,A LD B,0 PUSH BC
Preserver nombre secteurs dans BC pour LDIR SLA C C C*4 p
uisqu'on a 4 IDS par secteur SLA C LD HL,IDINDRA On en pro
fite pour initialiser le pointeur LD (POINTID),HL des IDS pour le stoc
kage des donnees LDIR POP BC LD (STOKERR),DE La
liste des etats d'erreur est stockee a la PUSH BC suite des I
DS LD HL,LISTERR LDIR POP BC BC contient
toujours le nombre de secteurs EX DE,HL Le pointeur des adresses
buffer est remis dans HL PUSH HL et recopie dans IX POP
IX ADD HL,BC Faire place pour adresses buffer ADD HL,BC
2 fois car 2 octets par adresse INC HL Et encore 2 pour memo dep
art prochaine piste INC HL LD (ADBUFF),HL C'est a partir de
ADBUFF qu'on stocke -------------------
Tout ce qui concerne la piste est ici stock l'exception des donnes . Bref
rappel de la signification des pointeurs . POINPIS Pointeur global ou
devra reprendre le stockage suivant . POINTID 1er octet des 4 IDS du sec
teur stocker . STOKERR Poin Nteur de la liste des erreurs . A
DBUFF Adresse de dpart pour le stockage d'un secteur IX contient le dbut
de la zone ou l'on mmorise les adresses de dpart des donnes de chaque secte
urs . Dans le cas d'une piste abime , plusieurs tentatives de re
lecture peuvent parfois sauver les meubles ... RELIRE sera utile .
------------------- - Routine lecture physique -
LD IY,RELIRE Nombre de relectures si secteur VRAIMENT abime
XOR A LD (COUNT),A Compteur a zero pour viser les secteurs
LD A,(NBSEC) LD B,A BCLLITP LD (IY+0),5 5 Relectures en
cas de probleme LD HL,(ADBUFF) Adresse de stockage du secteur
PUSH BC LD (IX+0),L Memoriser depart des donnees du secteur
en cours LD (IX+1),H dans la liste CALL #BB78 Me
moriser position curseur texte PUSH HL LD HL,(POINTID) 1e
r octet des 4 IDS a lire PUSH HL CALL TRANS3ID Les mett
re dans la zone qui sert aux instructions INC HL de lecture s
auf la piste . LD (POINTID),HL Ranger noveau pointeur LD
HL,#1916 Afficher secteur en cours de lecture CALL #BB75 A la p
osition voulue POP HL Reprendre les IDS en cours CAL
L AFF4ID et les afficher POP HL Reprendre la position du cu
rseur texte CALL #BB75 et le remettre a sa place
------------------- Ci dessous on tudie d'aprs FLAGFNC
la ncssit de lire et stocker le secteur . On n'effectuera pas le stockage d
ans les cas suivants CR/DD . Qui est toujours un secteur vierge .
MAM/DAM . Secteur sinistr volontairement ou non . SECTEUR DE TAIILE
0 . toujours illisible et de toute manire ne peut etre crit convenablement .
SECTEUR A ECRASER . Qui est un faux secteur cr par ECRASER et destin dis
paraitre lors de la rcriture de la piste . Dans ce cas , on ne doit surto
ut pas avancer COUNT car ce secteur n'existera qu'aprs le formatage !
------------------- LD A,(FLAGFNC)
AND %01000000 Si piste sinistree , tenter reparation et essayer JR
NZ,LIRE de lire quelque soit l'tat d'erreur . LD HL,(STOKERR)
Pointeur de la liste des erreurs . Peut avoir LD A,(HL) pris la
valeur #7F si le secteur est un additif CP #7F cree par ECRAS
ER . Ignorer totalement si oui ET JP Z,SAUTLIT NE PAS INCREMENTER L
E COMPTEUR . AND %00110111 Si pas d'erreur PROVOQUEE sauf EP-HD-CM
, c'est bon JP NZ,RIENLIRE Sinon ne pas stocker les donnees et INC. C
OMPTEUR LIRE LD A,(QUATRID+3) Taille 0 ignoree en lecture , juste avance
r OR A compteur JP Z,RIENLIRE
------------------- A ce point , on sait que le secteur
peut etre lu et stock . On teste la prsence du CM et on y va . Si une err
eur de lecture se produit 5 fois de suite , on considre que c'est une cause p
erdue et l'erreur est affiche . --------------
----- LD B,#46 CM or not CM LD HL,(STOKERR)
LD A,(HL) AND %00001000 JR Z,CMNOT LD B,#4C
OUI CMNOT LD A,B Commande lire secteur LD HL,LIT
FDC CALL SETCOM2 NEWLIT LD DE,(LONGSEC) CALL VISINST
Viser et executer commande lecture LD DE,#0213 Locate pour er
reur drive CALL TSTMISS Voir si erreur drive . NC si oui
JR NC,NEWLIT Boucler tant que FDC pas content . PUSH IY
IY est modifie par TSTERRS CALL TSTERRS Plus d'erreur drive , teste
r autres erreurs POP IY -----------
--------------- - SUB ROUTINES POUR LE FDC -
-------------------------- Pour la dernire du FDC ,
cette section est reproduite intgralement . Les parties colles la marge n'o
nt pas subi de modification notables . - Routines completes FDC - - AF
F.RESU. - AFFRES1 LD IY,#2018 AFFRESU PUSH HL PUSH BC CALL LOCATE
LD B,3 LD HL,ET0 BCLARES LD A,(HL) CALL PRTBIN INC HL N DJNZ BC
LARES LD B,4 BCLARE1 LD A,"&" CALL #BB5A LD A,(HL) PUSH HL CALL
PRTHEX1 POP HL INC HL DJNZ BCLARE1 POP BC POP HL RET - M
oteur - MOTON LD A,(FLAGMOT) CP 1 RET Z LD A,1 CALL MOTCOM
LD A,(TEMPMOT) Mini 55 JP TEMPAMS MOTCOM LD (FLAGMOT),A LD BC,#FA7E
OUT (C),A RET MOTOFF XOR A JR MOTCOM - Tester les 2 drives -
TST2DR XOR A REMANIE EN FONCTION DE LA NOUVELLE PRESENTATION
LD (DRSELEC),A MAIS PRINCIPE IDENTIQUE A VERSION PRECEDENTE LD
(PISTSEL),A LD (PISTL),A LD (PISTW),A TST2DR1 CALL CALI
BRE Aller piste 0 CALL TSTDRIV Tester etat drive . A ET3 au retou
r LD (ETDRA),A LD HL,#0D02 Locate pour texte etat
CALL AFRESDR Tester etat et afficher LD A,1 Idem sur
drive B LD (DRSELEC),A RECALI CALL CALIBRE CP #80
JR NZ,BALLUME LD HL,TJEVEUB B doit etre allume CAL
L PRT CALL #BB06 LD A,17 Effacer texte C
ALL #BB5A JR RECALI BALLUME CALL TSTDRIV LD (ETDRB),A
LD HL,#2E02 - Afficher etat drives - AFRESDR PUSH AF
Preserver ET3 CALL #BB75 Placer texte LD HL,TNOLECT
POP AF Recuperer ET3 CP 1 JR Z,DRHS
Lecteur HS BIT 5,A JR NZ,DREADY LD HL,TMI
SS Disque manque JR DRHS DREADY LD HL,TPROT BIT
6,A JR NZ,DRHS Protege ecriture LD HL,TNOPROT
OK Ecriture DRHS JP PRT TJEVEUB DB 31,46,2,24," ALLUMER DRIVE B ! ",24
,7,13+#80 TNOLECT DB " Lecteur absent ",#80 TMISS DB " Disque manquant ",
#80 TPROT DB " Protege ecriture",#80 TNOPROT DB " OK en ecriture ",#80
TSMISPROT CALL TSTMISS Tester disc missing ET write protected RET N
C JP TSTPROT TSTMISS LD A,(ET0) Tester 'Disc missing'
AND %00001000 SCF RET Z LD HL,TMISS
JR STOPDRV TSTPROT LD A,(ET1) Tester 'Write protected' AN
D %00000010 SCF RET Z LD HL,TPROT STOPDRV
PUSH HL De doit contenir coordonnees locate EX DE,HL C
ALL #BB75 CALL INV CALL SPACE LD A,(DRSELEC)
ADD A,#41 CALL #BB5A LD A,"" CALL #BB5A
POP HL CALL PRT CALL SPACE CALL INV
CALL SONNE CALL #BB06 LD A,17 CALL #BB5A
XOR A RET - Aller en piste PISTSEL - GOPISTE PUSH DE
QUELQUE PEU RETOUCHEE ET REMPLACE 'GOPIST1' LD A,(NBTENT)
LD B,A BCLPIST CALL GOPISTN JR C,SURPIST DEC B
JR Z,FINPIS1 CALL CALIBRE JR BCLPIST SURPIST PUSH AF
LD A,(PISTSEL) PUSH BC LD B,A LD A,(ET1
) CP B POP BC JR Z,FINPIST POP AF
DEC B JR NZ,BCLPIST FINPIST POP AF FINPIS1 POP DE RE
T - Initialisation des bits de FLAGERR selon interpretation resultat T
STERRS LD IY,FLAGERR RAZ Erreurs LD (IY+0),0 LD A,(QUATRID+1) Test des
erreurs OR A JR Z,OKHEAD SET 6,(IY+0) OKHEAD LD HL,ET1 Sur LD A,
(FLAGERR) AND %00110111 Si pas d'erreur sauf EP-HD-CM , c'est bon
JR Z,CESTLU DEC (IY+0) Si erreur . 5 essais de lecture
pour secteur JR NZ,NEWLIT VRAIMENT endommage . LD A,(
FLAG) Pas afficher le texte ERREUR plusieurs fois OR A J
R NZ,PRSECER LD HL,TLECTER Texte erreur lecture CALL PR
T LD A,#FF LD (FLAG),A PRSECER LD A,"&" Afficher
le numero de secteur en erreur CALL #BB5A LD A,(QUATRID+2)
CALL PRTHEX1 LD HL,(STOKERR) Erreur imprevue apparue , mo
difier la liste des LD A,(FLAGERR) erreurs en consequence .
LD (HL),A ------------------- Avec o
u sans erreur , le secteur t lu et stock . La routine de lecture renvoy
ant le nombre d'octets REELLEMENT LUS dans NBLUS , il suffit d'ajouter cett
e valeur ADBUFF pour avoir la procha Nine adresse de stockage des donnes .
Dans le cas ou le secteur est vierge , c'est le meme octet qui se rpte . Inu
tile alors d'encombrer le buffer , seul un octet est stock et on utilise encor
e la liste des tats d'erreur pour signaler la chose .
------------------- CESTLU LD HL,(ADBUFF) Adresse buffer
LD BC,(NBLUS) Nombre octets lus -1 DEC BC LD A,(HL)
Voir si tous les octets du secteur sont identiques BCLIDEM CP (HL)
Si oui on stocke sous forme compresse JR NZ,NONMEME Si non on saut
e INC HL DEC BC BIT 7,B Si mise a 1 du BIT
7 , BC vient de passer a 0 JR Z,BCLIDEM LD HL,(STOKERR) T
ous les octets sont identiques . On utilise LD A,(HL) le pointeu
r d'erreurs pour signaler ce fait AND %00001000 et on ne stocke qu'u
n octet . XOR #FF NOTER Q'XOR #FF CONSERVE LE BIT CM
LD (HL),A LD HL,(ADBUFF) INC HL JR SUITLIRE
NONMEME LD HL,(ADBUFF) Sinon adresse buffer adresse buffer + nombre lus
LD DE,(NBLUS) ADD HL,DE SUITLIRE LD (ADBUFF),HL Nouvelle adr
esse stockage pour prochain secteur RIENLIRE LD HL,COUNT Au suivant
INC (HL) SAUTLIT LD HL,(STOKERR) Etat d'erreur suivant INC
HL LD (STOKERR),HL INC IX Zone memmo adresse donnee
s suivante INC IX POP BC Nombre secteurs restant a
lire DEC B -1 JP NZ,BCLLITP S'il en reste
------------------- Le stockage de la pist
e est termin , on met jour les pointeurs et c'est fini .
------------------- LD HL,(ADBUFF) LD
(POINPIS),HL Adresse debut stockage prochaine piste LD (IX+0),L Me
moriser depart des donnees prochaine piste LD (IX+1),H XOR A
LD (FLAG),A SCF RET TSTOKP DB 31,2,21,24,"
STOCKAGE PISTE ",24 TSTOSEC DB 31,2,22,24," STOCKAGE SECTEUR ",24,#80 TLEC
TER DB 31,2,24,18,24," ERREUR LECTURE SUR SECTEUR ",24," ",7,#80 RELIRE DB 0
POINTID DW 0 STOKERR DW 0 FLAG DB 0
------------------- LA SUITE DE L'AVENTURE DANS REPRODUCTION
2 ... ------------------- Tout ce qui concerne la EF
FSCR LD A,5 Effacer bas ecran depuis ligne 5 JP EFFBAS WAI
TDISC PUSH HL Attendre disc source ou destination LD HL,#0219
CALL #BB75 POP HL CALL PRT JP #BB06 SETDER
LD (DERPIST),A Fixer limites derniere piste LD (MEMOEND),A IN
C A LD (PISTMAX),A RET --------------
------------------ - ANALYSE FINALE SELON LISTERP -
---------------------------------------------
- COPIEUR 2EME PARTIE ANALYSE DE LA PISTE -
--------------------------------------------- Cette section n'a subi
que peu de modifications fondamentales par rapport la version prcdente .
Les quelques changements apports sont les suivants Le test de p
iste formate ou non t dplac en LITIDS . L'ordre des oprations chang !
On recueille D'ABORD l'tat d'erreur des secteurs avant de calculer la taille
de format et du GAP . La routine VISESEC devient VISINST . Elle est
plus rapide que la prcdente , pointe le secteur demand et xcute l'instructi
on . L'ensemble forunit plus d'informations que la prcdente selon l'tat de
s flags renvoys par le calcul des GAPS . Le fentrage et l'impression ont
t adapts aux besoins de ce nouveau programme . Pour le reste , repor
tez vous au numro prcdent de SOS PROGRAMMEURS si vous n'avez pas tout compris
. Le listing est ici fort peu comment , la face FDC ne fait que 178K !
Voici la signification des bits de FLAGFNC Bit 0 L'octet de format
age t trouv dans un CR/DD Bit 1 Le GAP#3 est diffrent de #4E Bit 2
Le GAP est trop long . (Ne devrait plus se produire) Bit 3 La piste n'e
st pas formate Bit 4 Prsence CERTAINE de secteurs crass sur la piste
Bit 5 Prsence POSSIBLE de secteurs crass sur la piste N Bit 6 Piste n
ormale abime Bit 7 L'analyseur s'est plant ! (Ne devrait tpas arriver)
--------------------------------- -
ALGORHYTME GENERAL DE L'ANALYSE - ----------------------
----------- Note Ce schma inclut les 3 sections suivantes annotes (P.S
.) LIRE LES IDS Y-A
T-IL DES IDS SUR LA PISTE ! +--
----------------------- OUI NON -------------------------+ !
! +----- LIRE LES SECTE
URS ET TESTER LEUR ETAT D'ERREUR ! AFFICHER
LES SECTEURS ! !
! DETERMINER LES GAPS ET LE FORMAT EXACT DE L
A PISTE (P.S.) ! Y-A T-IL DES SECTEURS ECRASES (P.S.)
! ! !
+------------------------- OUI NON -----------+ ! !
! NOTER NON FORMATEE +-
-------------- RECALCULER LE FORMAT (P.S) ! !
! ! ! A
FFICHER LES DONNEES PISTE --+-------------+ IMPRIMER S'I
L Y-A LIEU ET FINI -----------------------
- ANALYSE DE LA PISTE - ----------
------------- ANAPIST XOR A LD (FLAGFNC),A Remise a zero du flag
analyse piste LD A,#17 Effacer ecran et ouvrir fenetres IDS
CALL EFFLINE CALL FENIDE CALL FENIDE1A
CALL FENIDL CALL FENIDL1A CALL FENRES CALL FENSCR
CALL VERIID Aller lire les IDS JR C,PISTFORM Si NC
la piste n'est pas formatee CALL FENSCR Pas formatee
LD HL,TNOFORM Afficher CALL PRTINV1 En inverse LD A,(FL
AGFNC) Memoriser SET 3,A LD (FLAGFNC),A Mettre le bit p
as de format LD A,(FLAGIMP) Impression en cours OR A
RET Z Non CALL SETIMP Oui CALL IMPP
IST Imprimer numro de piste LD HL,TPAFORM Et pas formatee
CALL PRT CALL ASTERIQUE Affiche un '*' et reset de l'impression
XOR A RET TPAFORM DB " NON FORMATEE",#80 PISTFORM CA
LL FENSCR Restaurer plein ecran LD HL,TLITSECT Texte lit secteurs
CALL PRTINV Afficher en inverse LD A,(NBSEC) Param
etrer boucle analyse LD B,A XOR A LD (COUNT),A
LD HL,LITFDC1 Lire sans stocker les donnes LD A,#46
Commande lire secteurs CALL SETCOM2 LD HL,LISTERR Poin
ter le debut de la liste des erreurs LD (POINTER),HL LD
HL,IDINDRA Et le dbut de la zone des IDS ---
----------------- - BOUCLE D'ANALYSE -
-------------------- NEXTVER CALL TRANS3ID Ignorer ID
piste et recopier les autres INC HL CALL FIXLFF 0 ou #FF
selon taille secteur comme dernier PUSH HL paramtres des octe
ts a envoyer au FDC PUSH BC CALL VISINST Viser et execute
r commande CALL TSTERRS Recuperer etats d'erreur LD A,(IY
+0) Ranger et au suivant LD HL,(POINTER) LD (HL),A
INC HL LD (POINTER),HL POP BC POP HL
DJNZ NEXTVER ---------------------
- AFFICHAGE ANALYSE - -----------
---------- LD HL,IDINDRA Afficher IDS CALL IDS4AFF B
C est preserve LD HL,LISTERR Et erreurs LD (POINTER),HL
CALL FENIDE1A COMME DANS PRECEDENTE VERSION BCLERRS PUSH HL
PUSH BC CALL INV CALL SPACE LD A,(HL)
CALL PRT3ER2 CALL INV POP BC CALL TSTC1
CALL NZ,CR CALL Z,FENIDL1A LD HL,COUNT INC
(HL) POP HL N INC HL DJNZ BCLERRS C
ALL FENSCR CALL FINDLEN Chercher GAPS (Ca c'est le gros morceau a
digerer) CALL FIXPARA Initialiser parametres
--------------------------------- - AFFICHAGE DU
RESULTAT GENERAL - ---------------------------------
CALL FENRES1 Afficher LD HL,TNBSEC Nombre secteurs
CALL PRT LD A,(NBSEC) CALL PRTDECIA LD HL,
TLEN Taille CALL PRT LD A,(LENSEC) CALL PRTHEX1
LD HL,TLONG Octets CALL PRT LD HL,(LONGSEC)
LD (VALEUR),HL CALL CINQNB CALL PRTDECI
CALL DEUXNB LD HL,TGAPF GAP CALL PRT LD A,(VA
LGAPF) CALL PRTHEX1 LD HL,TLGAPF CALL PRT
LD A,(GAPFORM) CALL PRTHEX1 LD HL,TOCREMP Octet for
mat CALL PRT LD A,(OCREMP) CALL PRTHEX1
LD A,(FLAGFNC) AND %01010000 Secteurs ecrases ou piste endommagee
JR Z,NOFAUX NON ! LD HL,TFAUGAP Afficher le faux GAP
CALL PRT LD A,(FAUXGAP) CALL PRTHEX1
LD HL,TLFAUGA Et sa longueur CALL PRT LD A,(FAUXLGF)
CALL PRTHEX1 LD HL,TFAULEN Et la fausse taille de format
CALL PRT LD A,(FAUXLEN) CALL PRTDECIA NOFAUX LD
A,(FLAGFNC) Secteurs ecrases possibles AND %00100000 JR Z
,PASDIF NON LD HL,TDIFLEN CALL PRT LD A,(LM
IN) Afficher plus petite longueur possible CALL PRTDECIA
LD A,"a" CALL #BB5A CALL SPACE LD A,(LMAX) Et
plus grande longueur possible LD (FAUXLEN),A CALL PRTDECIA
PASDIF CALL FENSCR Plein ecran LD A,(FLAGIMP) Imprimer
OR A JR NZ,IMPANAL Oui ! SCF RET
------------------------------------------------ - IMPRESSION DE L'ANALYSE SI
LE FLAG A ETE MIS - ------------------------------------------------ IMP
ANAL CALL SETIMP Imprimer CALL DEUXNB CALL IMPPIST Pist
e LD HL,NBSECI Comme version precedente CALL PRT
LD A,(NBSEC) CALL PRTDECIA CALL CR LD HL,IDIND
RA IDS LD DE,LISTERR LD A,(NBSEC) LD B,A
LD C,4 NEXTIMP DEC C CALL Z,CRIMP1 PUSH BC WAITIMP CA
LL #BD2E Attendre un peu pour ne pas perdre des caracteres JR C,W
AITIMP CALL AFF4ID POP BC LD A,(DE) INC
DE PUSH HL PUSH DE PUSH BC LD (FLAGERR),
A CALL PRT3ERR LD HL,TSEPIMP CALL PRT
POP BC -------------------------------
SUITE DE LA ROUTINE ETUDE PISTE ----------------
--------------- (COPIEUR 5EME PARTIE) SO
LUTION4 est utilise dans le cas ou un MAM en 1er secteur interdit toute o
pration sur lire piste . On considre provisoirement LMAX comme vraie longueur
. Ensuite , si l'on dtecte plusieurs LEN ID OK il est POSSIBLE que des secteu
rs aient t crass . Si de plus LIDMAX est suprieur LMAX , cela devient CER
TAIN . Aprs on met le GAP au maximum et CALIGAP le retaillera au max
imum autoris par LMAX . Si aucune possibilit d'crasement n'a t detecte on arr
ete l . Dans le cas contraire , on met le GAP l'ultime minimum et on pa
sse la routine d'crasement . ---------------
-- SOLUTION4 LD HL,TGAPPIF CALL PRT LD A,(LMAX) P
iste inanalisable par lire piste et pas de CR/DD LD C,A LD (
LENSEC),A Aller plus simple en considerant la taille CALL ADDLON max
imum comme vraie taille de format LD A,(FLGDIFID) OR A
JR Z,NODIFID Voir si plusieurs IDS OK differents LD HL,FL
AGFNC SET 5,(HL) Marquer plusieurs tailles format possibles
LD HL,TECRPOSS CALL PRT LD A,(LIDMAX) LIDMA
X LMAX INC C CP C JR C,NODIFID N CA
LL SETECRA Ecrases certains . NODIFID LD A,#FF Fixer GAP arbitraireme
nt LD (GAPFORM),A CALL CALIGAP Par caligap LD A,#
4E LD (VALGAPF),A LD A,(FLAGFNC) AND %00110000
Sur ou peut-etre ecrases SCF JP Z,EXITGAP LD
A,3 GAP arbitraire pour ecrasement LD (GAPFORM),A JP
ECRASER ----------------- SOLUTION5
Est uniquement ddie au traitement des pistes considres comme abimes . Dan
s ce cas les valeurs de GAP peuvent etre fausses . On les notera pour informa
tion mais on utilisera une valeur arbitraire pour la reproduction .
SOLUTION5 LD A,C Tentative d'analyse sur piste VRAIMENT abimee LD
(LMAX),A LD (LENSEC),A CALL ADDLON INC A
LD (QUATRID+3),A LD HL,LITFDC2 CALL COMLIPI C
ALL INSTRU9 Lire piste avec taille MAXI+1 LD A,(BUFGAPS) des secteur
s LD (FAUXGAP),A CALL FINDGAP LD A,(GAPFORM)
LD (FAUXLGF),A LD (GAPFORM),A LD A,#4E Vrai GAP S
UPPOSE #4E LD (VALGAPF),A CALL CALIGAP JP EXITGAP
---------------- Si on a qu'un seul
secteur sur la piste et qu'il est en MAM , on fixe les valeurs au pifomtre .
---------------- PIFOMETR LD HL,TGAPPIF
CALL PRT LD A,(QUATRID+3) LD (LENSEC),A L
D A,#4E Un seul MAM taille 0 , fixer arbitrairement LD (VALGAPF
),A et fini SCF RET ----
------------- - SOUS ROUTINES -
----------------- JECOINCE LD HL,TCOINCE Analyse impossibl
e ! CALL PRT LD HL,FLAGFNC SET 7,(HL) LD
A,(BUFGAPS) LD (VALGAPF),A LD A,#FF LD (GAPFORM),
A RET OKLONG LD A,4 Chercher le GAP par lire piste
. Fonctionne LD (RETENT),A comme dans la version prcdente mais
effectue ENCOGAP LD A,(QUATRID+3) 4 tentatives en cas d'echec car il arr
ive que PUSH AF lire piste patine um peu ... La lecture se
fait LD A,7 sur une taille 7 . A part ca rien de neuf .
LD (QUATRID+3),A CALL INSTRU9 Lire GAP POP
AF LD (QUATRID+3),A LD HL,BUFGAPS LD A,(HL) O
KGAP1 LD (VALGAPF),A CP #4E RET Z LD HL,RETENT
Il arrive que lire piste patine ... DEC (HL) JR NZ,ENCOGA
P LD A,(FLAGDEN) GAP#4E . Peut etre en SD . Verifier CP #
FF JP Z,SETNOGAP GAP#4E & SD LD A,#4E Fixer arbitrair
ement JR OKGAP1 FINDGAP CALL UNSEUL Si un seul secteur , GAP #
FF d'office RET C 1-2 #FF et mise CARRY LD HL,BU
FGAPS+1 Compter la longueur du GAP dans le buffer LD B,255 Fonc
tionne comme dans la version prcdente LD C,1 mais la possibil
it d'un GAP 0 (256 octets) BCLGAPS LD A,(HL) y-est maintenant prise en c
ompte . En cas de OR A longueur GAP trop grande , on effect
ue un second JR Z,NEXTSYN test en FINDGAP2 CP #FF
JR Z,NEXTSYN SUITGAP INC HL INC C DJNZ BCLGAPS
LD A,C Prise en compte d'un GAP de 256 octets OR A
JR NZ,FINDGAP2 2 me essai si chec JR SETGAPL NEXTSYN PUSH H
L Test sur SYNC INC HL INC HL INC HL
CP (HL) POP HL JR NZ,SUITGAP SETGAPL1 LD A,C
Longueur GAP trouvee SETGAPL LD (GAPFORM),A SCF RET
--------------- Si le secteur teste pa
r lire piste t crit , la srie d'octets prise dans BUFGAPS se prsente diffre
nment . Le test ne se fait plus sur la rencontre avec les octets 'SYNCHR
O' qui ne sont plus lus par lire piste , mais sur le nombre de rptitions d
e l'octet qui suit l'octet de GAP #4E . ----
----------- FINDGAP2 LD HL,BUFGAPS 2eme tentative INC HL
Sauter l'octet #4E NLD A,(HL) LD C,1 CNTGAP CP (HL)
Incrementer C tant que l'octet se repete JR NZ,SETGAPL1
INC HL INC C JR NZ,CNTGAP CP (HL) Test
er GAP 256 SAUTBAD JP Z,SETBADLEN JR SETGAPL1
------------------ Trouver l'octet de formatage dans un CR
/DD (S'il y-en a un) . Rien de plus simple On localise sa position dans l
a srie d'IDS et on le lit comme un secteur normal . Le 1er octet lu est le bon
. ------------------ FINDREMP LD A,(FLAG
CRDD) Trouver octet remplissage dans eventuel CR/DD AND %10000000
RET Z PAS DE CR/DD , Laisser tomber LD HL,TFREMP
CALL PRT LD HL,FLAGFNC SET 0,(HL) LD
A,(NBSEC) Rechercher la position et l'ID du CR/DD LD B,A LD
IY,COUNT LD (IY+0),0 LD DE,LISTERR LD HL,IDIND
RA+FDC BASp '.Occcccw %*** MENU PRINCIPAL SOS N.4 ***( "x" B a-z2"rsxprt.cod
" "lecteur5.cod",F"P*** INITIALISATION PAGE ***Z'd , , , ,nww(ww Nwww Nw(w(
Nww Nx()PRT,,,,,,PRT,,,,(,,"SOS PROGRAMMEURS N.4"DMID,,,,," (C) UTIL-SOFT 1989 "
DMID,,,,,S"M.MAIGROT La Gde Verriere"MID,,,,,"71990 St.LEGER sous BEUVRAY"MID,,,
,,!*** FDC MENU PRINCIPAL ***" FDC 765 " $O()" Utilisation section "()" Section
theorie FDC "()" Programmes commentes "()" Quitter la section * "((())) *,R
,p,4 #*"fdc4me.asc" N 4 '"sos4.bas",H$R"fdctheo.asc" N ZSa$(0)" Theorie partie
1 "a$(1)" Theorie1 (suite) "a$(2)" Theorie partie 2 "m max w w w w d d N y
# N . u((),)"" ' ! N ,a,b"fdc.asc" N a"fdc1.asc" N b"fdc2.asc" N fp(
)" Copieur physique "()" Analyse de piste "()" Recherche gaps 1 "()" Recherc
he gaps 2 "()" Ecraser secteurs "()" Stocker la piste "()" Reproduire piste "
()" Sub routines FDC " "qa$(8)" Acces programme "umaxTzwww wdd Ny# N . u(
(),)"" ' 5 N ,,,8,,,,$"copinit.asc" N %"copanal.asc" N $"copgap1.asc" N $8"
copgap2.asc" N $"copecra.asc" N $"copstok.asc" N $"copecri.asc" N $"coprout.asc"
N RUN"tstint.bas" ' "-FDCV4.BIN" 0u 2divers " ' *** XXXXXXXX ***( 2 '
F P Z *** A SUIVRE ***d n p 'Ix ((),,) "D" ".ASC" N " A SUIVRE" $O H
N ," REPLACER FACE1 SVP " "SOS4",% , , ,4 ((())) , , ,4 "op1" '"FD
C.BAS" '"INFO.BAS" ,*** Menu centre mid$(a$,(i),e,d) sans interlignes ***
zmed max((),,)MID,c,c,,yd, ,*** Menu centre 4 lignes espacees ***#ydmaxme m
axMID,c,c,,yd,()MID,c,c,,yd,MID,c,c,,yd(), # *** Sous programme menus ***
NC me MID,c,c,,yd,()( me ((),,) u((),)"" MID,c,c,,yd, MID,c,c,,yd,32""WKE,()
r PF me me c B' 2 2CP me MID,c,c,,yd,()Z me MID,c,c,,yd,d n,x,,7n
max 7x max q x x max x x d x x d max e x x x x d max
max x x d) me c B' *** FLASHING du cadre ***'%'*** SOUS PROGRAMMES DIVERS
***$' .'*** FLASHING su cadre ***8'eB' ,,,dd j'c j'cddL'V'*** Trace un cadre IN
TERNE a la surface du texte *** 'j'CA,(),(())(d)d,(()),d()(d),,,d,dt''*** Trace
un cadre EXTERIEUR a la surface du texte ***''CA,()(()d),()(()d),(()d),()(d),,,d
,d ''*** Affiche message COPY ou INACTIF ou RETOURNER DISC ***''" RETOURNER DI
SQUE ! " ,,, ' '" Demo ou Texte " ,,, 'WKE, "D" "T" ' F'" RUBRIQUE INACTIVE! "
' ,,,, t 2'" "()" "()" COPY Valide "' 'MID,c,c,,,()cdd 'cdd((())) ' 'W'rrrrrr
ddrddW'rrrrrdrddrd NC*N*** Branchement LECTEUR4 et retour debut en cas d'erreur
***4N5N HN e WKE,,,,, d dHN M,e , (M) eRN N "F" "rsxprt.cod" RN+N 3 Lo
ngueur ID VEUTCM1 LD A,(DE) AND %00100100 Isoler CR/DD
CP %00100100 Tester si CR/DD JR Z,GOREMP Oui INC (IY+0
) Compteur + 1 INC DE LISTERR+1 INC HL IDS
LEN suivant INC HL INC HL INC HL DJNZ VE
UTCM1 Ne devrait jamais sortir ici . GOREMP DEC HL DEC HL
DEC HL CALL TRANS3ID LD A,#46 Lit juste le
1er octet du secteur et le LD HL,LITFDC3 range dans OCREMP C
ALL SETCOM2 LD DE,1 LD HL,OCREMP CALL VISINST Vis
er executer SCF RET ----
----------- Sortie de traitement normale ou CR/DD . On vrifie que LID
MAX n'est pas plus grand que LMAX . Si c'est le cas c'est fini sinon il y-a
des secteurs crass et on doit les traiter .
--------------- EXITGAP LD A,(LIDMAX) Si ID OK est que taille format
LD B,A on a des ecrases a coup sur LD A,(LENSEC)
CP B JR NC,EXIG1 LD A,B LD (FAUXLEN),A
CALL SETECRA JP ECRASER EXIG1 LD HL,IDINDRA Vr
aiment fini , recopier les IDS lus dans LD DE,IDOUTDRA la zone des ID
S a ecrire LD BC,255 LDIR SCF RET R
AZIDS LD B,255 Effacer la serie des IDS a lire LD HL,IDINDRA
BCLRIDS LD (HL),#FF INC HL DJNZ BCLRIDS RET
SETNOGAP LD HL,FLAGFNC Signaler GAP #4E SET 1,(HL) LD HL,T
BADGAP CALL PRT RET SETBADLEN LD HL,TGAPTL GAP trop lon
g . Marquer l'erreur et fixer CALL PRT provisoirement a #FF
LD HL,FLAGFNC SET 2,(HL) SETBAD2 LD A,#FF LD (GAPFOR
M),A XOR A RET SETECRA LD HL,FLAGFNC Marquer presence c
erta N ine de secteurs ecrases SET 4,(HL) LD HL,TS
ECECR JP PRT INCLONG LD HL,(LONGSEC) Incrementer d'une longueur d
e secteur ADD HL,HL LD A,(QUATRID+3) INC A RA
NGLON LD (LONGSEC),HL et ranger LD (QUATRID+3),A LD (LENSEC
),A RET ADDLON LD HL,128 Calculer longueur en octets d'apre
s LEN format ADDLON1 OR A READD JR Z,ADDFIN ADD HL,HL
DEC A JR READD ADDFIN LD (LONGSEC),HL RET FLENLON XO
R A Calculer LEN ID d'apres LD HL,128 longueur secteur d
onnee en octets LD DE,(LONGSEC) FVLEN PUSH HL AND A
SBC HL,DE POP HL JR Z,SETVLEN INC A
ADD HL,HL JR FVLEN SETVLEN LD (LENSEC),A RET UN
SEUL LD A,(NBSEC) Tester si un seul secteur sur la piste DEC A
RET NZ CARRY non mis si plusieurs DEC A LD (
GAPFORM),A Sinon longueur GAP#FF et mise du CARRY SCF RET
------------------ Ci-dessous la rout
ine dterminant la taille maximum de secteurs en fonction de leur nombre
. Le GAP est suppos au minimum de sa longueur , de toute manire il est recal
cul par la suite en cas de problme . ---------
--------- MAXILEN LD HL,TFGAP1 Trouver la taille maxi possible d'apres
CALL PRT le nombre de secteurs LD A,(NBSEC) CP 2
0 Si nombre secteur plus grand que 20 la taille LD C,0 est
obligatoirement 0 RET NC INC C CP 11 Plus
de 10 secteurs taille 1 RET NC INC C CP 6
Plus de 5 secteurs ne peut etre taille 3 RET NC c'est donc 2
INC C CP 3 Plus de 3 secteurs c'est taille 3
RET NC INC C CP 2 Plus de 1 secteur ne peut e
tre 5 donc c'est 4 RET NC INC C Une taille 5 sinon
rien ! RET - VARIABLES ET TEXTES -
RETENT DB 10 FAUXLEN DB 0 FAUXGAP DB 0 FAUXLGF DB 0 LMIN DB 0 LM
AX DB 0 LIDMAX DB 0 LENCRDD DB 0 FLAGMAM DB 0 FLAGCRDD DB 0 FLGDIF
ID DB 0 TLITIDS DB 31,2,22,24," LECTURE DES IDS ",24,18,31,2,23,18,#80 T
FGAP DB 31,2,22,24," RECHERCHE DU GAP ",24,#80 TBADGAP DB 31,21,23,24," GAP
NON CONFORME ",24,#80 TGAPTL DB 31,40,23,24," GAP TROP GRAND ",24,#80 TCO
INCE DB 31,59,23,24," JE COINCE !!!!!! ",24,#80 TZMAM DB 31,21,24,24," PR
EMIER EN MA/DA ",24,#80 TFGAP1 DB 31,40,24,24," RECHERCHE CR/DD ",24,#80 T
FGAP1A DB 31,59,24,24," ANALYSE DU CR/DD ",24,#80 TFGAP2A DB 31,40,24,24," CR/
DD LEN MAXI ",24,#80 TFGAP2 DB 31,59,24,24," CR/DD PAS TROUVE ",24,#80 TFR
EMP DB 31,59,24,24," OCTET FIL.TROUVE ",24,#80 TFOIREE DB 31,59,24,24," PISTE
ENDOMMAGEE ",24,#80 TGAPPIF DB 31,59,24,24," PIFOMETRE ACTIVE ",24,#80 TNOF
ORM DB 31,2,23 TNOFORMI DB " PAS DE FORMATAGE",#80 TSECECR DB 31,21,23,24
," GAP REEL #4E MAIS SECTEURS ECRASES! ",24,#80 TECRPOSS DB 31,21,23,24," PRES
ENCE SECTEURS ECRASES POSSIBLE! ",24,#80 -----
-------------- LE PENSUM N'EST PAS FINI ! LISEZ 'ECRASEMENT SECTEURS' . C'
EST UN ORDRE !! ----------------------------- ROU
TINE ETUDE PISTE NZ,POSICRDD PISMORT LD HL,TFOIREE
CALL PRT XOR A Ignorer toute operation ulterieure sur CR/D
D LD (FLAGCRDD),A DEC A LD (LENCRDD),A
LD HL,FLAGFNC SET 6,(HL) JP SOLUTION5
--------------------------------- Ici on cherche le GAP dans un
CR/DD . On range LMAX dans son tiroir , on affiche le message correspondant ,
et on dtermine la position physique du CR/DD voulu sur POP DE
POP HL DJNZ NEXTIMP CALL CR WAITIM1 CALL #BD2
E JR C,WAITIM1 LD HL,TLENSI CALL PRT
LD A,(LENSEC) CALL PRTHEX1 LD HL,TGAPI CALL
PRT LD A,(VALGAPF) CALL PRTHEX1 LD HL,TLGAPI
CALL PRT LD A,(GAPFORM) CALL PRTHEX1 LD HL,T
OCFORI CALL PRT LD A,(OCREMP) CALL PRTHEX1
CALL ASTE NRIQUE SCF RET IMPPIST LD HL,TPIST Su
b routine imprimer piste CALL PRT LD A,(PISTSEL) C
ALL PRTDECIA LD A,(FLAGFNC) Imprimer s'il y-a lieu les faux GAPS o
u AND %01010000 fausses longueurs JR Z,PASF1
LD HL,TFAUGAI CALL PRT LD A,(FAUXGAP) CALL PRTHEX1
LD HL,TLFAUGI CALL PRT LD A,(FAUXLGF)
JP PRTHEX1 PASF1 LD A,(FLAGFNC) AND %00100000 RET Z
LD HL,TDIFLEI CALL PRT LD A,(LMIN)
CALL PRTDECIA WAITA LD A,"a" CALL #BD2B JR NC,W
AITA CALL SPACE LD A,(LMAX) JP PRTDECIA A
STERIQUE CALL CR Imprimer l'asterique final et reinitialiser le mode
WAITAST programme normal LD A,"*" CALL #BD2B
JR NC,WAITAST CALL CR JP RESIMP CRIMP1 LD C,3
JP CR TPIST DB "Piste ",#80 TEXTES IMPRIMANTE TLENSI
DB "Taille reelle &",#80 TGAPI DB "GAP-F &",#80 TLGAPI DB "Longueur GAP
&",#80 TOCFORI DB "Octet formatage &",#80 NBSECI DB "Nombre de secteurs
",#80 TSEPIMP DB " ",#80 SETIMP LD HL,#BD2B REMPLACER LES #BB5A
DU PROGRAMME PAR UN VECTEUR LD A,#C9 IMPRIMANTE JR IN
IMP RESIMP LD HL,#BB5A FAIRE LE CONTRAIRE XOR A INIMP LD
(CR1+1),HL LD (PRT2+1),HL LD (OKHEX+1),HL LD (IMP
ERR1+1),HL LD (CARRY+1),HL LD (PRTA+1),HL LD (RETI
MP),A RET TRANS3ID INC HL Comme version precedente
LD A,(HL) LD (QUATRID+1),A INC HL LD A,(HL)
LD (QUATRID+2),A LD (DERSEC),A INC HL
LD A,(HL) LD (QUATRID+3),A RET FIXPARA CALL ID4TR
ANS Comme version precedente LD A,(LENSEC) LD (QUATRID+3),
A LD DE,-4 ADD HL,DE LD HL,QUATRID+2 LD
A,(HL) LD (PREMSEC),A INC HL LD A,(NBSEC)
LD HL,IDINDRA LD DE,4 DEC A PTDERSEC ADD HL,DE
DEC A JR NZ,PTDERSEC INC HL INC HL LD
A,(HL) LD (DERSEC),A LD A,(GAPFORM) SRL A
JR NZ,OKGAPRW LD A,1 OKGAPRW LD (GAPRW),A SCF
RET FIXLFF LD A,(QUATRID+3) OR A JR Z,NOTZERX
LD A,#FF NOTZERX LD (LSZERO),A RET VISINST PUSH HL C
a c'est VISESEC modifie le principe est le meme CALL TSTDIDC mais c
'est un peu plus rapide . On Vise aussi le POP HL premier sec
teur , dans certains cas c'est LD A,(COUNT) indispensable
OR A JP Z,INSTRU9 PUSH BC LD B,A POI
NSEC CALL INSTRU2 CALL RESULT DJNZ POINSEC POP BC
JP INSTRU9 - Afficher les erreurs a l'analyse - PRT3ERR1
LD HL,TERRS Comme version precedente CALL PRT PRT3ERR LD A,(FL
AGERR) PRT3ER2 LD HL,TOK OR A JP Z,PRT PRTERR3 LD
HL,TERRFDC LD DE,3 LD B,8 LOOKERR RLC A JR NC,NO
BIT PUSH BC PUSH AF LD B,3 PRTERR1 LD A,(HL)
IMPERR1 CALL #BB5A INC HL DJNZ PRTERR1 POP AF
POP BC JR OUIBIT NOBIT ADD HL,DE OUIBIT DJNZ LOOKERR
RETIMP DB 0 Retour imprimante LD A,8 CALL #BB5A Recu
ler une case si trop d'erreurs RET TOK DB "OK",8,#88 TERRS
DB #1F,1,#16,7,#18 DB " Etat d'erreur ",#18," OK",8,#88 TERRFDC D
B "EP HD CR ND CM DD MA DA " TNBSEC DB 31,1,3,"Nombre secteurs ",#80 TLEN
DB 31,1,4,"Taille reelle &",#80 TLONG DB 31,1,5,"Nombre octets ",#80
TGAPF DB 31,1,6,"Octet GAP-F &",#80 TLGAPF DB 31,1,7,"Longueur GAP-F
&",#80 TOCREMP DB 31,1,8,"Octet formatage &",#80 TFAUGAP DB 31,1,10 TFAUGA
I DB "VALEUR FAUX GAP &",#80 TLFAUGA DB 31,1,11 TLFAUGI DB "LONG. FAUX GAP
&",#80 TFAULEN DB 31,1,12,"FAUSSE TAILLE ",#80 TDIFLEN DB 31,1,10 TDIFLE
I DB "LONG. POSS. ",#80 TLITSECT DB 31,2,23," LECTURE SECTEURS",#80
------------------------ Ici le listing 'lecture d
es N IDS' . L'instruction 'HALT' rsout le problme de blocage des version
s prcdentes . Pourquoi ce bogue Parce que dans ce cas prcis , les int
erruptions restent actives lors de la lecture du rsultat (Voir SOS2 lecture d
es IDS) . Si par malheur le Z80 relance son cycle d'interruption au moment prc
is o le FDC donne la phase rsultat , il y- un conflit entre 2 types d'interrup
tions et le programme bloque . Solution L'instruction 'HALT' stoppe tout
e opration en cours TANT QUE LE Z80 N'A PAS GENERE UN NOUVEAU CYCLE D'INTER
RUPTION . Il est donc vident que la position du HALT assure qu'au moment
de la lecture du rsultat une interruption vient de se produire et que n
ous disposons d'1/300me de seconde avant la suivante . Le moment vital d
e la phase rsultat tant excut dans un dlai plus bref , il est alors certai
n que le rsultat est toujours rendu entre 2 interruptions . C.Q.F.D....
------------------------ - LIRE LES ID - VERIID
LD HL,TLITIDS CALL PRT LIREID1 LD IX,IDINDRA Table IDS A
PUSH IX POP HL CALL RAZIDS RAZ zone ID
LD DE,IDINDRA LD (PTRIDS),DE LD HL,(#39) Petite modifi
cation PUSH HL CALL TSTDIDC Chercher densite et debut
piste XOR A LD (NBFOIS),A DI LD HL,S
UBROUT LD (#39),HL LD C,#FF #FF Parce qu'un secteur d
e plus est lu EI NEXTID INC C PUSH BC CALL I
NSTRU2 HALT ** VOIR TEXTE EN TETE ** CALL RES
U1 RESULT sans DI LD HL,ETPIST LD DE,(PTRIDS)
LD BC,4 Range 4 octets du resultat LDIR LD (PTRIDS
),DE LD A,(NBFOIS) CP 60 60 fois POP BC
JR C,NEXTID DI POP HL LD (#39),HL
EI LD A,C NOUVEAU ! Si aucun secteur piste non form
atee LD (NBSEC),A OR A RET Z CALL ID4
TRANS PUSH HL LD A,(COMMAND) Afficher densite
CP #4A LD A,#FF LD HL,TDDENS JR Z,SETDENS
LD A,%10111111 LD HL,TSDENS SETDENS CALL CHGD POP HL
SCF RET - Ci dessous legere modification qui permet d'u
tiliser la meme routine - pour les 2 programmes presentes IDFORMAT LD DE,
FENIDL Afficher la serie d'IDS pour format LD BC,FENIDL1 JR
SORTID IDS4AFF LD DE,FENIDE Afficher la serie d'IDS pour analyse
LD BC,FENIDL SORTID LD (XFEN+1),DE LD (XFEN1+1),BC PU
SH IX POP HL LD A,(NBSEC) LD B,A LD C,0
PUSH BC XFEN CALL FENIDE CALL INV AFFIDS CALL AFF
4ID XFEN1 CALL Z,FENIDE1 DJNZ AFFIDS CALL INV
POP BC RET - Affichage des IDS en 2 colonnes - AFF4ID PU
SH BC LD B,4 CALL SPACE BCLAFID LD A,(HL) Aff. et
cop.Ids dans buf.format CALL PRTHEX1 INC HL DJNZ
BCLAFID POP BC TSTC INC C LD A,C CP 16
Tester si 16 IDS sortis RET TSTC1 CALL TSTC RET Z
CP 32 RET NZ LD A,11 CALL #BB5A Annuler
le dernier CR sinon scroll FEN2 si 32 secteurs XOR A INC A
SET NZ RET ID4TRANS LD HL,IDINDRA IDTRANS4 PUSH BC
PUSH DE LD DE,QUATRID LD BC,4 LDIR
POP DE POP BC RET SUBROUT DI PUSH HL
LD HL,NBFOIS INC (HL) POP HL EI
RET NBFOIS DB 0 PTRIDS DEFW 0 -------
-------------- - ETUDE DE LA PISTE -
--------------------- Nous prsentons ici l'algorythme TRES s
implifi des 3 sections suivantes R.A.Z DES VARIA
BLES ! MARQUER LA PRESENCE EVE
NTUELLE DE SECTEURS M.A.M OU CR/DD MEMORISER LA TAILLE DU PLUS
GRAND SECTEUR OK MEMORISER LA TAILLE DU PLUS PETIT SECTEUR OK
NOTER LA PRESENCE EVENTUELLE DE PLUSIEURS TAILLES O N K
! VOIR SI M.A.
M EN TETE ! +---------
----- NON OUI ------+ ! !
! UN SEUL SECTEUR -+ !
! ! +----------- NON OUI ---------- PIFOMETRE ET FINI
! ! ! +--- VOIR SI EXISTE UN CR/DD
! ! +---!-------------- NON OUI --
-----------+ ! ! !
! +------ RECHERCHE PAR SOLUTION1 ! !
REUSSIE ! ! !
! ! +------------- NON OUI -------------!----+
! ! ! ! ! +
- RECHERCHER TAILLE MAXI POSSIBLE -+ ! ! VOIR SI EXISTE
UN CR/DD LMAX ! ! !
! ! +--------------- NON OUI ---------------+ !
! ! ! ! ! !
VOIR SI CR/DD PROVOQUE OU ACCIDENTEL -+ ! SOLUTION5 --!--!-------- ACCIDENTEL
/ PROVOQUE --+ ! POUR PISTE ! ! !
! ABIMEE ! ! RECHERCHE PAR CR/DD ---+
--------------------------------- - INTRODUCTIO
N A LA SECTION FDC - ---------------------------------
L'ensemble des fichiers '.MAX' ddis au FDC dpasse maintenant 90K . Il d
evient impossible de les adjoindre dans SOS PROGRAMMEURS . Seules les m
odifications et nouvelles routines seront dtailles dans les fichiers '.A
SC' . Si vous dsirez l'ensemble des fichiers '.MAX' , envoyez un disque vier
ge et une enveloppe affranchie 3,70F l'adresse habituelle . Cette fois
ci c'est d'un copieur complet qu'il s'agit . La section thorie se rap
porte essentiellement aux secteurs crass . Des notions complmentaires so
nt jointes au mode d'emploi du bidouilleur . Les programmes bidouilleur et co
pieur avec leur notice sont sur l'autre face de la disquette . Ces 2
programmes utilisent la totalit de la mmoire du CPC . Ils ne permettent pl
us de revenir au menu de SOS PROGRAMMEURS . Aprs usage , faites un RESET et re
lancez SOS PROGRAMMEURS . Seul le code binaire du programme bidouilleur
est joint . La place disponible est trop limite pour passer un seul lm
ent de code source qui n'est autre qu'une adaptation des versions prcdentes su
r laquelle se greffe le nouvel analyseur utilis par le copieur .
- FIN DE SECTION . SUITE DANS THEORIE FDC - ----------------
- INTRODUCTION A LA SECTION FDC - b"fdc2.asc" N fp()
" Lecture physique "()" Ecriture secteurs "()" Edition buffer "()" Creer un
e piste "()" Modifications gen."()" Mode emploi prog. "()" Lancer programme "a
$(7)" Utilisation Demo ""qa$(8)" Acces programme "u max Tzwww wdd Ny# N
. u((),)"" ' ---------------------
- THEORIE FDC SOS 4 - ------------
--------- ECRASEMENT DE SECTEURS C'est sur ce point que porte
ra l'essentiel de la thorie de ce numro . C'est en effet par ce procd que l
'on peut crr des pistes incopiables par les copieurs actuels (y-compris celui
prsent ici) . Des exemples pratiques sont donns avec le mode d'emploi du bido
uilleur (Sur l'autre face) . Depuis le temps , vous avez du apprendr
e que les IDS de longueur de secteurs donns comme paramtres de formatage so
nt tout fait indiffrents . Exemple Donnes gnrales 13 secteurs de tai
lle 0 GAP#3 quelconque . Et la srie d'IDS suivants ou piste , he
ad , numro de secteurs sont indiffrents pour ce qui nous intresse F
ORMATER ! APRES FORMATAGE ! APRES ECRITURE DES ! OU CECI SI LE
! L'ANALYSE DONNERA ! SECTEURS EN TAILLE 2 ! G NAP FORMATAGE ID LEN
---+ ! ! L'ANALYSE DONNERA ! EST TRES GRAND
! ! ! ! 01 x,x,x,0 ! 01 x,x,x,0
OK ! 01 x,x,x,0 OK ! 01 x,x,x,0 OK 02 x,x,x,2 ! 02 x,x,x,2
CR/DD ! 02 x,x,x,2 OK ! 02 x,x,x,2 OK 03 x,x,x,0 ! 03 x,x,x,0 OK
! 03 x,x,x,2 OK ! 03 x,x,x,0 OK 04 x,x,x,0 ! 04 x,x,x,0 OK
! 04 x,x,x,2 OK ! 04 x,x,x,2 OK 05 x,x,x,2 ! 05 x,x,x,2 CR/DD
! 05 x,x,x,2 OK ! 05 x,x,x,0 OK 06 x,x,x,0 ! 06 x,x,x,0 OK !
! 06 x,x,x,2 OK 07 x,x,x,0 ! 07 x,x,x,0 OK !
! 07 x,x,x,0 OK 08 x,x,x,2 ! 08 x,x,x,2 CR/DD !
! 08 x,x,x,2 OK 09 x,x,x,0 ! 09 x,x,x,0 OK !
! 09 x,x,x,0 OK 10 x,x,x,0 ! 10 x,x,x,0 OK ! 11 x,
x,x,2 ! 11 x,x,x,2 CR/DD ! 12 x,x,x,0 ! 12 x,x,x,0 OK ! 13 x,x,
x,0 ! 13 x,x,x,0 OK ! Explication Tout de suite aprs le form
atage , l'analyse renverra un CR/DD pour tout secteur dont l'ID longueur est
diffrent de la vraie taille du format ce qui est tout fait lgitime . En reva
nche , si l'on veut crire ces secteurs plus grands que la taille originelle
du format , le FDC ne rchigne pas la tche car il crit (ou lit) uniquemen
t en se basant sur la taille spcifie dans l'ID quelque soit cette dernire !
Dans le cas ou la longueur ID dclare excde la taille de format LE SECTEU
R EST ECRIT EN TOTALITE ET DETRUIT LES IDS QUI SE TROUVENT SUR SA ZONE DE DO
NNEES ! Donc , une diminution du nombre de secteurs et des secteurs de taille
diffrente du format restant tout fait lisibles . La dernire colonne du tab
leau montre l'importance de la valeur du GAP#3 . Plus celui-ci est gr
and , plus l'intervalle entre les secteurs est important . Au del d'une certa
ine limite , le nombre d'IDS crass pour une taille donne sera moins importa
nt . Ci dessous Un tableau donnant toutes les valeurs cruciales de GAPS
ou le nombre de secteurs dtruits par une criture de taille suprieure change .
On remarquera que le plus grand GAP pris en compte est 0 . En effet , forma
ter une piste avec un GAP 0 revient donner ce GAP une longueur de 256 octets
. FT Fausse taille (Celle mise dans l'ID)
ECRASES Nombre secteurs dtruits par l'criture TAILLE DU FORMAT
0 TAILLE DU FORMAT 1 +----+--------------+--------
-+ +----+--------------+---------+ ! FT ! GAP FORMAT ! ECRASES !
! FT ! GAP FORMAT ! ECRASES ! !----+--------------+---------!
!----+--------------+---------! ! 1 ! De 1 #77 ! 1 ! !
2 ! De 1 #F7 ! 1 ! ! 1 ! De #78 00 ! AUCUN ! ! 2 ! De
#F8 00 ! AUCUN ! !----+--------------+---------! !----+--------
------+---------! ! 2 ! De 1 #5C ! 2 ! ! 3 ! De 1 #29
! 3 ! ! 2 ! De #5D 00 ! 1 ! ! 3 ! De #2A #DC ! 2
! !----+--------------+---------! ! 3 ! De #DD 00 ! 1 !
! 3 ! De 1 #19 ! 5 ! !----+--------------+---------!
! 3 ! De #1A #47 ! 4 ! ! 4 ! De 1 #20 ! 6 ! ! 3
! De #48 #A2 ! 3 ! ! 4 ! De #21 #66 ! 5 ! ! 3 ! De #
A3 00 ! 2 ! ! 4 ! De #67 #CF ! 4 ! !----+-----------
---+---------! ! 4 ! De #D0 00 ! 3 ! ! 4 ! De 1 #48 !
8 ! !----+--------------+---------! ! 4 ! De #49 #6E ! 7
! ! 5 ! De 1 #1B ! 12 ! ! 4 ! De #6F #A0 ! 6 !
! 5 ! De #1C #3B ! 11 ! ! 4 ! De #A1 #E6 ! 5 ! !
5 ! De #3C #61 ! 10 ! ! 4 ! De #E7 00 ! 4 ! ! 5 !
De #62 #8F ! 9 ! !----+--------------+---------! ! 5 ! De #9
0 #C8 ! 8 ! ! 5 ! De 1 7 ! 21 ! ! 5 ! De #C9 00
! 7 ! ! 5 ! De 8 #11 ! 20 ! +----+--------------+---
------+ ! 5 ! De #12 #1C ! 19 ! ! 5 ! De #1D #28 ! 18 !
TAILLE DU FORMAT 3 ! 5 ! De #29 #37 ! 17 !
+----+--------------+---------+ ! 5 ! De #38 #45 ! 16 ! ! FT
! GAP FORMAT ! ECRASES ! ! 5 ! De #46 #56 ! 15 ! !----+---
-----------+---------! ! 5 ! NDe #57 #6A ! 14 ! ! 4 ! De
1 00 ! 1 ! ! 5 ! De #6B #81 ! 13 ! !----+-----------
---+---------! ! 5 ! De #82 #9B ! 12 ! ! 5 ! De 1 #7F !
TOUT ! ! 5 ! De #9C #BB ! 11 ! !----+--------------+-------
--! ! 5 ! De #BC #E0 ! 10 ! ! 5 ! De #E1 00 ! 9 !
Ecraser une taille 4 sous un +----+--------------+---------+ s
ecteur de taille 5 revient a LECTEUR5BIN$ECTEUR
5$$$!#pspeWu"'k4nf"Q2J##VQO!2MJGw!w#wzl!"+6+62N0 %jZ&.u*"*"l*#(A"*"0&.u!Nl*+02NA
!0.0Z*2P +.8+ P Z2PB#2M!cZ## 7Z(2NN *+*# +2N 7#"*++ #"*( #Z 7" ERREUR DRIV
E CHARGEMENT EN COURS!!# !#!Z6#s#r!*"!"2Z0xvff6ff0ffff0fECTEUR5$$$!#pspeWu"'k4R
Eul4+GAsHWrHa)SuvYf6iZZ2jRSXPRT BIN(*"N!P8K6&4D8CONEDIPRTPRTMIDEEEDPDPTTDWKEDDD
SLINELINCAlnf"n&gu!!!/*!YVR8##0Z&Z*!cVR8#### 80Z*L00ZM00Z++ lngf""g *unf"A2C##VS
E(*uZ2J2KY!6#!!(#x(C0ZB+*uEO!*ApJKY*ECGZ#YizD*GCq*"2Z!"*ECG*"2Z+Z# l2qx2ng&"2GCG
G(2Gi( *g$uGCG*E (Z#+G2G Zlgo&uxZ+!!!DZ#Z#lVnf#lVnfs#rlnfo&lnf#V &Q!%y+ 8a8*Ew*A
6lO(N(!LSi"!!*NZZVK """"''"0Z# MZ$-ZZK ####ZZ#M,-ZZC(####V0""""''"0ZZ# MC$,1Z-
$!!"ulG2L0l##8!"!"LVfn++++(ln&####!"WSUG2LV fnSM"OVfnSQ"SVxF "F*OWRMQ! *OSRW F 5
XF*MU"M*QRR"Q*OWR"O*SRR"SLFX*OMU*W*MQ"M*O*WU*OSR"OM*WU*MQR*O*WU"OSM0,GX*W"W*U"UJ
*OMQ!*S!Q*Sogq( !!!"8( DEC HEX BIN ERREUR LOCATE ERREUR PARAMETRES TROP LONG
POUR AFFICHER Presser une touche 'd BB5A MATADR EQU #BBA5 INDPRT EQU #BDD4
LD H N-INK-INTBIN( H26BC"s06y&!q(!7"!!!!5 J!0-8&8!8-80( H8x5 H26BC"s
06y&£5LX - Sortie de routine -rienfairdRecupertme de protection employ pour te
ster la piste . Ou on appele a un viol de copiryght ou je suis l'vque d
'Autun ... Si vous avez cras avec subtilit vos secteurs , la reproducti
on des donnes sera correcte mais certains octets entre les secteurs se
ront diffrents sur la copie . Si vous arrivez crire une routine capable de
reproduire l'octet prs ce genre de piste votre talent nous intresse ...
CE QU'IL AURAIT PU FAIRE DE PLUS (Et qu'il formater un secteur
de taille 5 TAILLE DU FORMAT 2 +----+--------------+-------
--+ Quand craser un secteurs de ! FT ! GAP FORMAT ! ECRASES !
taille 5 il faudrait pour cela !----+--------------+---------!
pouvoir crire un secteur de ! 3 ! De 1 00 ! 1 ! taill
e 6. Comme l'criture d'un !----+--------------+---------! secteur 5
dtruit la piste ! 4 ! De 1 #7F ! 3 ! c'est donc imposs
ible . ! 4 ! De #80 #00 ! 2 ! !----+--------------+---------!
! 5 ! De 1 #00 ! 5 ! +----+--------------+---------+
---------------------- MAIS EN QUOI
PEUT NOUS SERVIR CETTE CUISINE ! L'usage le plus vident est d'interdir
e au copieur de dterminer la vraie taille du format et par le fait meme , d'in
terdire une reproduction EXACTE de la piste . Entendez par l que les octet
s de donnes seront correctement reproduits mais les octets situs entre 2 sect
eurs seront diffrents entre la copie et l'original . Un exemple des plus frapp
ants est le suivant ORIGINAL ! COPIE Mais que c'es
t-il pass Votre 01,00,C1,00 OK ! 01,00,C1,00 CR/DD copieur favori s'est
brul en prenant sa 01,00,C1,02 OK ! 01,00,C1,02 OK vessie pour une lan
terne ! Dans la 01,00,C1,02 OK ! 01,00,C1,02 OK mesure o 9 secteurs d
e taille 2 + un 01,00,C1,02 OK ! 01,00,C1,02 OK secteurs de taille
0 peuvent etre 01,00,C1,02 OK ! 01,00,C1,02 OK formats tout fait l
galement , le 01,00,C1,02 OK ! 01,00,C1,02 OK copieur va au plus simpl
e et considre 01,00,C1,02 OK ! 01,00,C1,02 OK que la vraie taille du form
at est de 2 . 01,00,C1,02 OK ! 01,00,C1,02 OK Reste voir comment
tablir une 01,00,C1,02 OK ! 01,00,C1,02 OK protection base sur ce fait .
01,00,C1,02 OK ! 01,00,C1,02 OK Le plus lmentaire consiste tester
----------------!---------------- le secteur restant en taille 0 . Si il
Taille format 0 ! Taille format 2 est OK , le format est bien reproduit .
----------------!---------------- Si il est en CR/DD c'est une mauvaise
copie et on plante le programme ! Seconde solution Comme le crateur de la pi
ste a l'avantage sur le copieur de connaitre l'octet prs toutes les donn
es de celle-ci , il lui suffit d'inclure une routine dans son programme qui i
ra lire entre 2 secteurs (Ce que font toutes les routines d'analyse du GAP d
es programmes prsents dans SOS PROGRAMMEURS) . Si la recherche d'un GAP #4E
sur un format de taille 0 choue c'est une copie pirate et on plante le progr
amme ! Comme on le verra dans la partie mode d'emploi , l'crasement de secteu
rs suivi d'une relecture des octets GAPS met en vidence quelques bizarrerie
s , qui , savament mises profit permettent de crer des pistes qui sont IMP
OSSIBLES reproduire fidlement de manire automatique . La valeur des octe
ts situs entre 2 secteurs dpend en effet (dans le cas de secteurs crass) d
u GAP R/W , des tailles de secteurs en jeu , et parfois de l'ordre dans lequel
sont crits les secteurs ... Il suffit de baser la protection sur un ou
plusieurs de ceux-ci et bonjour les dgats ! NOTE L'exemple donn en taill
e 0 crase par une taille 2 t choisi en fonction de sa simplicit . Il est
bien sur possible d'utiliser des Ntailles diffrentes voire d'craser
une taille donne sous d'autres diffrentes dans le genre x,x,x,3 OK
Ici une taille 0 est recouverte par 3 tailles diffrentes . x,x,x,0 OK x,x,
x,2 OK x,x,x,2 OK x,x,x,1 OK x,x,x,0 OK Ici un format taille 0 avec GA
P que #77 permet d'craser un x,x,x,1 OK secteur de taille 1 SANS ECRASER
aucun secteur . Si le nombre de x,x,x,0 OK secteurs est au maximum (Voir le
s SOS prcdents pour le nombre x,x,x,1 OK maximum possible en fonction du GA
P ) certains copieurs seront Etc ... perplexes ... x,x,x,1 L 3
1 secteurs de taille 0 ont t crass sous des tailles 1 & 2 x,x,x,1 les vers
ions rcentes de copieurs ne s'y trompent pas mais les x,x,x,2 anciens
dterminent une taille de format de 1 . Dans ce cas le x,x,x,2 nombre d
e secteurs calculs pour le format est trop grand , d'o x,x,x,2 un certai
n malaise . x,x,x,2 x,x,x,2 x,x,x,2 x,x,x,2 x,x,x,2 Le mode d
'emploi des programmes contient d'autres exemples de ce type , le nombre de
combinaisons possibles est de loin trop important pour etre dcrit cas par
cas , votre imagination et vos essais feront le reste ... N'oubliez pas q
ue raliser une piste non reproductible ne garantit pas ncssairement une pro
tection efficace contre la copie ! Le mode d'emploi du bidouilleur prsentera
un exemple flagrant de piste VRAIMENT formate avec un FDC spcial et avec un GA
P IRREPRODUCTIBLE . Seul dtail , le test de la protection est si nul qu
'une astuce enfantine suffit pour que la copie fonctionne avec une reprod
uction des plus imparfaite . --------------
- LE COPIEUR -
-------------- CE QU'IL FAIT Il recopie intgralement les pistes les
plus tordues que vous puissiez imaginer . Il restaure tant bien que mal
les disquettes endommages . CE QU'IL NE FAIT PAS Il ne reproduit
pas avec exactitude les pistes formates avec un GAP diffrent de #4E . Dans cer
tains cas , cette difficult peut etre contourne par ce que l'on appele un se
cteur de substitution . En dehors de l'exemple cit la fin du paragraphe pr
cdent le sujet ne sera pas trait pour 2 raisons 1 - Cela ne fonctionne
pas dans tous les cas et le nombre de situations o cela pourrait fonctionne
r est si nombreux que le code source prendrait une tournure kilomtrique . -
---------------------------------------------------------------------- - AN
ALYSE COMPLETE DES GAPS - LONGUEURS DE SECTEURS ET TYPE DE FORMAT - -------
----------------------------------------------------------------
(COPIEUR 4EME PARTIE) Le gros , trs gros morceau de c
e trimestre . Tout le secret d'une copie efficace rside dans cette section .
.. Pas de baratin inutile , on entre derechef dans le vif du sujet avec
la premire section de cette srie de routines .
- INFORMATION PISTE - Quoique gnralement efficace , le systme prs
ent le trimestre dernier ne rsout pas tous les cas de figure et il s'e
n faut ... La section INFORMATION PISTE recueille un maximum de donnes su
r l'tat global de la piste . En cas d'chec de la premire recherche , l'tude d
e ces informations permettra de dterminer une raction approprie au cas rencont
r . En sortie de cette section on saura 1 Si il y-a des secte
urs CR/DD sur la piste . 2 La taille ID du plus grand de ces CR/DD s'il y-
en a 3 Si plusieurs tailles de secteurs EFFECTIVEMENT ECRITS sont prsentes
4 La taille du plus grand secteur EFFECTIVEMENT ECRIT 5 La taille d
u plus petit secteur EFFECTIVEMENT ECRIT 6 Si certains secteurs sont en MA
M La variable LMIN est un peu droutante , elle doit en principe conte
nir la valeur de la plus petite longueur ID EFFECTIVEMENT crite . Cette ca
se mmoire ne sera pas initialise et restera #FF si 1 Tous les sect
eurs OK sont de longueur identique 2 Aucun secteur n'est reconnu OK . (Da
ns ce cas LIDMAX reste 0) Cette petite complication permet de tester q
uelques points particuliers. On commence par initialiser comme suit
FINDLEN XOR A ON REMET TOUS LES PARAMETRES A 0 LD (GA
PFORM),A GAP#3 LD (VALGAPF),A Longueur GAP#3 LD (F
LGDIFID) N,A Marque si differents IDS OK (Secteurs ecrits) LD (FL
AGCRDD),A Marque si presence CR/DD LD (FLAGMAM),A Marque pres
ence secteur MAM LD (FAUXGAP),A Eventuel faux GAP si ecrase
LD (FAUXLGF),A avec sa longueur LD (LMAX),A Plus gra
nde taille admissible par le format LD (LIDMAX),A Taille du plus
grand secteur ECRIT DEC A Taille du plus petit secteur
EFFECTIVEMENT LD (LMIN),A ECRTI (a #FF pour ne pas ignorer le
0) LD (LENCRDD),A Longueur du plus grand secteur en CR/DD
LD A,#E5 Octet fill fixe provisoirement LD (OCREMP),A
LD A,(NBSEC) Copier nombre de secteurs trouves au cas ou
LD (NBSPROV),A mise en evidence de secteurs ecrases .
------------------ Ceci fait on balaie la liste des IDS lon
gueur simultanment avec la liste des erreurs . HL contient l'ID LEN secteur
, DE l'tat d'erreur gnr par la section ANALYSE . Dans les commentaires du l
isting , traduisez ID LEN OK par ID longueur d'un secteur vraiment crit .
----------------------- LD DE,LISTERR
Chercher presence de CR/DD ou de MAM LD HL,IDINDRA+3 Voir si les IDS
LEN sont tous identiques LD A,(NBSEC) memoriser le plus grand et le
plus petit LD B,A Comme d'habitude , le nombre de secteurs e
st dans B SETFLAGS LD C,(HL) L'ID longueur secteur reste dans C jusqu'
a la fin LD A,(DE) Etat d'erreur AND %00000011 MAM &
DAM JR Z,NOMAMDA NON , continuer LD IY,FLAGMAM Oui
marquer et sauter au suivant INC (IY+0) JR TESTOUT NOM
AMDA LD A,(DE) Reprendre etat d'erreur AND %00100100 CR & DD
CP %00100100 IL nous faut VRAIMENT LES 2 ENSEMBLE !! JR NZ
,CRDDNOT NON continuer LD IY,FLAGCRDD Mettre le plus grand CR/DD
trouve dans le flag RES 7,(IY+0) Le bit 7 est mis pour eviter conf
usion avec LD A,C un eventuel CR/DD de taille 0 . C contient
toujours CP (IY+0) LEN ID en cours . Si il est plus petit que ce
lui JR C,NOMEMOCR eventuellement stocke , il est inutile
LD (IY+0),A Sinon on stocke NOMEMOCR SET 7,(IY+0) On remet le bit 7
JR TESTOUT Et on passe au suivant CRDDNOT LD A,(DE)
AND %00110111 Ignorer EP HD CM . Si un seul des autres bits JR NZ,TE
STOUT est mis , le secteur n'est pas OK donc pas ecrit LD A,C
Chercher le plus grand ID LEN OK de la piste LD IY,LIDMAX
CP (IY+0) JR C,PLUPETI Pas plus grand voir si plus petit
LD (IY+0),A Memoriser l'ID OK le plus grand JR TESTOUT
PLUPETI LD IY,LMIN CP (IY+0) JR NC,TESTOUT LD
(IY+0),A Memoriser le plus petit ID LEN OK TESTOUT INC DE Avan
cer d'un etat d'erreur INC HL Aller sur le prochain ID LEN
INC HL INC HL INC HL DJNZ SETFLAGS Recom
mencer pour chaque secteur ----------------------
--- A ce point , nous avons dj l'essentiel de nos informations , reste
une ambiguit Si il n'y- que des secteurs CR/DD ou secteurs non OKS , si le
s secteurs OK sont tous de taille identique , LMIN n'a pas t initialis et
reste #FF . Ce fait ayant une signification prcise pour ce qui suit , on l
e laisse #FF et on considre provisoirement que si LMIN#FF la taille de form
at minimum est de zro . Pour savoir si il y-a plusieurs tailles de secte
urs OK dclares sur la piste on soustrait LIDMAX de LMIN . La diffrence est sto
cke dans FLGDIFID . Si LMIN #FF on estime possible la prsence de taille 0 qu
i pourraient bien etre en MAM ou CR/DD . -------
-------------------- LD A,(LMIN) CP #FF JR NZ,L
MINFIN INC A Si LMIN reste a #FF aucun secteur n'est OK LMIN0
LMINFIN LD B,A Ici FLGDIFID sera a 0 si pas d'ID OK sinon il
LD A,(LIDMAX) contiendra la difference de LMAX a LMIN SUB B
LD (FLGDIFID),A Comme dit dans la section thorie de ce trimestre
, la prsence d'un MAM en 1er secteur in Nterdit tout usage de lire piste
! C'est donc la premire chose tester . Si c'est le cas , on recherchera
un ventuel CR/DD avec l'espoir d'y trouver le gap (SOLUTION2) . Si il n'y qu'
un seul secteur , on utilise le PIFOMETRE . LD A,(LISTERR) Voir s
i MAM en 1er secteur AND %00000011 Si oui , inanalisable par lire pis
te CP %00000011 JR NZ,SOLUTION1 Si non sauter au 1er systeme
d'analyse CALL UNSEUL Met le carry si la piste n'a
------------------------ - ECRASER LES
SECTEURS - ------------------------ ATTENTI
ON . Pour fonctionner en simple densit , toutes les valeurs mises dans les tab
les TB... et les valeurs de comparaisons devront etre modifies . La sectio
n pourra etre beaucoup plus courte car en SD , il n'y plus grand chose c
raser ... Si vous n'avez toujours pas compris ce qu'est un secteur cra
s , revoyez donc la section thorie ... Dans presque tous les cas o
la routine SOLUTION1 aura chou et que plusieurs tailles de secteurs vraimen
t crits auront t trouvs sur une meme piste , il y-aura au moins une srieus
e suspiscion sur le bon aloi du formatage . L'exprience ayant dmontr qu'
craser sans ncssit est sans effet nocif sur la copie alors que l'inverse
produit souvent des copies ne fonctionnant pas . Dans le doute , on crase d'
abord et on discute , "Fini - Reprendre"1fN"" "F" "R"(C)pNddzN"N*** Fenetrage -
cadrage ***NN #,w,w,w,w #,wwwwww# j' ''Nww'w w1N #,w,w,w,w #,#N)N*** Afficher se
lection reponse ***NNMID,c,c,,y,wwwwwwww NwwwwwwwwMID,c,c,,y,N1N*** Restaure fen
etre reponses si a-16 ***NNw ww w N .OO%O*** Initialisation menus 2 ***O$O Nwww
w Nw#w% N" SECTION "PRT,,,,,,PRT,,,,$,,()dd '$aprs ! Ce n'est pas vraim
ent simple , mais la structure en cascade de cette routine est un peu plu
s claire que celle des routines d'analyse . Les sections d'analyse sont
censes nous avoir donn la vraie taille du format . Dans le pire des ca
s , on dispose de LMIN qui sera alors considre comme taille du format d
'origine . La vraie longueur du GAP Elle a t dtermine , ou mise au
minimum admissible . Ce n'est pas vraiment un problme . A ce point ,
nos perfectionnistes favoris auront observ que quelques routines et varia
bles font double emploi , les moins chevronns prfreront snas doute cete stru
cture qui leur vite de rechercher variables et routines dans les fichiers prc
dents ... Alors en premier , quelques mmorisations indispensables car l
e nombre de secteurs formater sera plus grand que celui trouv lors de l'ana
lyse . Il faut aussi penser 'quilibrer' la liste des erreurs , sinon g
are aux surprises lors des oprations de lecture ecriture ! -Routine de re
creation de piste avec secteurs ecrases - ECRASER LD HL,IDINDRA+3 1er ID LE
N de la liste des IDS LD DE,LERPROV Zone de transfert pour la liste
des erreurs LD (PERPROV),DE et son pointeur LD DE,LISTERR
Vraie liste des erreurs LD (POINTER),DE et son pointeur LD I
X,LISTIDS Dbut d'une liste qui ne contiendra que les IDS LEN LD A,(N
BSPROV) Nombre provisoire de secteurs qui t initialis LD B,A
la valeur NBSEC dans les routines prcdentes PUSH BC Du
dbut la fin , B contiendra toujours NBSEC RANGEOK LD C,#FF Ranger tout
es les longueurs de secteurs OK la suite LD A,(DE) si le secteu
r n'est pas OK , mettre #FF AND %00111111 Ignorer EP HD qui ne sont
pas de vraies erreurs JR NZ,BADSEC Si pas OK , laisser #FF dans C
pour marquer le fait LD C,(HL) N Si OK ranger l'octet LENSEC da
ns la liste BADSEC LD (IX+0),C INC HL Avancer de 4 octets
pour pointer prochain ID LEN INC HL INC HL INC HL
INC DE Avancer dans la liste des erreurs INC IX
Et dans la liste LENSEC en cours de cration DJNZ RANGEOK
POP BC Reprendre NBSEC Ici vient d'etre cre une liste d
e toutes les longueurs de secteur figurant sur la piste . Les secteurs non
OK ne pouvant etre crits , ils ne peuvent pas en craser un autre . Leur em
placement dans la liste est marqu par un #FF qui ne risque pas d'etre confondu
avec un longueur . Le contenu de la liste pourrait ressembler ceci
0,2,2,2,2,#FF,2,2,2 o 1 secteur de taille 0 est OK , 7 secteurs de taille 2 c
rasent un nombre X de secteurs et le 6me secteur de la piste renvoyant une
erreur quelconque doit etre ignor par le programme . Ceci tant fait ,
il faut en fonction de la taille recouvrante , de la taille recouvrir (Vr
aie taille de formatage) et de la longueur du GAP , dterminer le nombre de
secteurs ajouter notre formatage . Ceci est fait l'aide de tables pour le
s GAPS , d'une cascade de comparaisons pour les longueurs et d'une bonne
brouette de pointeurs divers pour grer cette panique . Quelque soi
t la taille craser , le principe est le meme . Seule le cas de la taille 0 es
t comment . LD IY,IDOUTDRA Liste des IDS A ECRIRE LORS DE LA REPRO
DUCTION LD IX,IDINDRA Liste des IDS LUS SUR LA VERSION D'ORIGINE
LD DE,LISTIDS Liste des longueurs venant d'etre creee LD A
,(LMIN) On prend LMIN comme vraie longueur CP #FF Est peu
t-etre encore a #FF JR NZ,XXXX INC A Si oui c'est
0 LD (LMIN),A Et cette fois c'est definitif ! XXXX LD (LENSEC
),A Et aussi la vraie taille du format d'origine OR A J
R Z,ECRA0 Ecraser taille 0 DEC A JP Z,ECRA1 Ecrase
r taille 1 DEC A JP Z,ECRA2 Ecraser taille 2
DEC A JP Z,ECRA3 Ecraser taille 3 RET Ne devrait jamais
passer ici (Il faut un taille 5 pour craser une taille 4 et dans ce cas il n'
y plus qu'un secteur T5 . C'est donc inutile, quand craser un secteur de tai
lle 5 , la bonne votre !) - ECRASER TAILLE 0 - ECRA0 LD A,(DE) Lo
ngueur du secteur recopie dans la liste provisoire OR A Est-ce
0 JR Z,RECOP0 Oui donc taille identique . Pas de changement
CP #FF Est-ce un secteur en erreur JR Z,RECOP0 Oui , il n'est p
as a ecrire . Pas de changement DEC A Est plus grand ET a ec
rire . On change . JR NZ,PAS1S0 Est-ce une taille 1 LD A
,(GAPFORM) Oui . Taille 1 ecrase Taille 0 . Encore faut-il CP #77
savoir combien on en ecrase ! Ici , si le GAP est JR NC,RECOP0
plus grand que #76 , il s'intercale sans toucher LD C,1 au sui
vant . Sinon il faut ajouter au nombre CALL PLUSIDS total de s
ecteurs celui qui sera ecrase lors de JR ECRA0A l'ecriture et on
va tester le suivant PAS1S0 DEC A Pas taille 1 . Est-ce taille 2
JR NZ,PAS2S0 Non . LD HL,TB02 Oui . Taille 2 sur ta
ille 0 LD C,1 La meme cuisine que precedement , mais comme il y
-a CALL FGAPTB plus de possibilites on met le nombre minimum de
JR ECRA0A secteurs a ecraser dans C et on utilise une table PAS2S
0 DEC A Taille 3 JR NZ,PAS3S0 LD HL,TB03 Oui
T3 sur T0 LD C,2 et ca continue tant que toutes les combinaiso
ns CALL FGAPTB possibles ne sont pas epuisees . JR ECRA0A
PAS3S0 DEC A JR NZ,PAS4S0 LD HL,TB04 T4 sur T0
LD C,4 CALL FGAPTB JR ECRA0A PAS4S0 LD HL,TB05
LD C,9 CALL FGAPTB JR ECRA0A RECOP0 CALL CO
P4ID Le secteur en cours n'ecrase rien et est recopie . ECRA0A INC DE
Les secteurs a ecrases ont ete pris en compte et DJNZ ECRA0 on conti
nue JP EXIECRA - ECRASER TAILLE 1 - ECRA1 LD A,(DE) NO C
OMMENT , AVANCEZ DANS LE TEXTE JUSQU'AU POINT CP 2 N STRATEGIQ
UE JR C,RECOP1 CP #FF JR Z,RECOP1 DEC
A DEC A JR NZ,PAS2S1 LD A,(GAPFORM)
CP #FA JR NC,RECOP1 LD C,1 CALL PLUSIDS
JR ECRA1A PAS2S1 DEC A JR NZ,PAS3S1 LD HL,TB13
LD C,1 CALL FGAPTB JR ECRA1A PAS3S1 DEC A
AVANCEZ ENCORE .... JR NZ,PAS4S1 LD HL,TB14
LD C,3 qu'un seul secteur JP C,PIFOMETR fixer au pif ...
LD HL,TZMAM Traiter MAM en tete par recherche CRC CALL PRT
JP SOLUTION2 -------------------------
Pour un bref instant nous retombons en 'terrae cognita' . Cette routine
est celle du trimestre dernier ceci prs Si la longueur du GAP excde #7E lire
piste avec LENSEC+1 ignore la suite du GAP . Pour etre tranquilles , on lit
avec 7 comme indication D'ID LEN . La structure de la boucle t modifie
pour permettre l'appel par 'CALL' des routines annexes . Comme dit dans la
partie thorie , la russite de ce test permet d'affirmer qu'il n'y a pas eu cra
sement de secteurs et son chec affirme l'inverse et que tout est possible . S
i le GAP renvoy en cas de russite n'est pas #4E on est quasiment cert
ain qu'un FDC spcial a t utilis . Cette version du programme se conte
nte de signaler le fait . Si on trouve un GAP trop long , quelque chose ne v
a pas et on annonce l'chec de l'analyse par JECOINCE . On conclut en essayant
de trouver l'octet de formatage (fill) dans un ventuel CR/DD .
---------------------------- SOLUTION1 LD HL,TFGAP Cherc
her vraie LS si possible CALL PRT LD HL,LITFDC2 CA
LL COMLIPI Initialiser commande lire piste LD HL,128 On co
mmence au plus petit possible XOR A CALL RANGLON HL dans
LONGSEC , A dans QUATRID+3 et LENSEC NEXTLON CALL INSTRU9 Lire Pis.
LD A,(ET1) MAM BIT 0,A Si oui , longueur pas tr
ouvee JR NZ,MAMFIND Continuer LD HL,ET2 DD
BIT 5,(HL) Si pas DD longueur trouvee JR NZ,MAMFIND Sinon c
ontinuer CALL OKLONG Determiner valeur GAP CALL FINDG
AP Et longueur . NC en retour si pas bon CALL NC,JECOINCE
CALL FINDREMP Chercher octet FILL JP EXITGAP Fini MAMF
IND CALL INCLONG AA+1 Dans QUATRID+3 et LS , HLHL+HL dans LONGSEC CP
6 JR NZ,NEXTLON Continuer tant que toute taille de 0 a 5 pas testees
------------------------------ Ici commencen
t les vrais problmes ! Soit un MAM en 1er secteur nous y-a envoy , soit la SO
LUTION1 a lamentablement chou . On est sur de rien et surtout pas de la tai
lle de format ! En premier lieu on appelle MAXILEN . Cette routine calcule
la taille de format (LEN ID) admissible en fonction du nombre de secteurs pr
sents sur la piste . Cette nouvelle donne nous permet de dterminer quelques p
oints essentiels . 1 Si un ventuel CR/DD est plus grand que MAXILEN .
Dans ce cas on est sur d'y dnicher la vraie taille de format , le GAP et e
n prime l'octet de formatage . 2 Si un ventuel CR/DD gale MAXILEN .
On y-trouvera peut etre les donnes prcites ou l'assurance qu'il s'agit d'une
piste abime . 3 LENCRDD Contiendra la longueur du plus grand CR/DD de la
piste . Note Le rsultat de MAXILEN est rang dans LMAX et dans C . Le
registre C est prserv et sert de base pour tous les tests de la section .
--------------------- SOLUTION2 CALL MAXILEN R
etour avec plus grande taille ID possible dans C - LEN GAP 5 - - Reche
rche d'un CR/DD LMAX - LD A,(FLAGCRDD) Si aucun CR/DD trouv sur la
piste , ca s'aggrave BIT 7,A passez un tour et rendez vous su
r la case SOLUTION3 JP Z,SOLUTION3 AND %01111111 Elimin
er bit 8 du flag CR/DD LD (LENCRDD),A Stocker longueur du CR/DD
CP C Comparer CR/DD avec LMAX JR Z,TSTCRDD Si
CR/DD LMAX . Voir si IDS LEN differents JR NC,POSICRDD Si CR/DD LMA
X , aller chercher le GAP LD A,(LIDMAX) Ici le CR/DD est que LM
NAX on regarde si le CP C ID LEN OK est aussi que LMAX
JP NC,SOLUTION3 Non , rien a faire avec CR/DD LD C,A
OUI on reduit LMAX a la longueur de LIDMAX LD A,(LENCRDD) Et on r
eteste si LEN CR/DD nouveau LMAX CP C JR Z,TSTCRDD Si L
EN CR/DD nouveau LMAX , encore un test JP NC,SOLUTION3 Si LEN CR/DD
nouveau LMAX c'est bon et incurable par SOLUTION2 sino
n ---------------------------- Arriv ici o
n a la taille maximum du format donne directement par MAXILEN ou celle
prise dans LIDMAX . On aussi la certitude d'un CR/DD gal LMAX . Si en plus
de ce CR/DD tous les IDS LEN OK sont de meme taille , on a la certititude d'u
ne piste rgulire abime . On signale le fait par un message et un bit dans
FLAGFNC , on remet a zro les flags concernant le CR/DD pour viter toute c
onfusion ultrieure et on saute en SOLUTION5 qui analyse ce genre de problm
e . Si CR/DD LMAX et que la piste n'est pas reconnue abime , on utilis
e une partie de la routine de CR/DD pour le localiser et on saute une annexe
de la SOLUTION3 . ----------------------------
TSTCRDD LD A,(FLGDIFID) Si CR/DD LEN et tous IDS LEN idem OR A
JR Z,PISMORT LD A,(LMIN) Si tous IDS identiques et 0 L
MIN CP #FF est reste a #FF JR NZ,POSICRDD PISM
ORT LD HL,TFOIREE CALL PRT XOR A Ignorer toute oper
ation ulterieure sur CR/DD LD (FLAGCRDD),A DEC A L
D (LENCRDD),A LD HL,FLAGFNC SET 6,(HL) JP SOLUT
ION5 --------------------------------- Ici o
n cherche le GAP dans un CR/DD . On range LMAX dans son tiroir , on affiche l
e message correspondant , et on dtermine la position physique du CR/DD voul
u sur la piste . ----------------------------
POSICRDD LD A,C LD (LMAX),A Ranger taille maxi possible
LD HL,TFGAP1A Message CALL PRT LD A,(NBSEC) Reche
rcher la position et l'ID du CR/DD LMAX LD B,A LD IY,COUNT
Compteur zro LD (IY+0),0 LD DE,LISTERR Liste des t
ats d'erreur LD HL,IDINDRA+3 Longueur ID VEUTCM LD A,(DE)
AND %00100100 Isoler CR/DD CP %00100100 Tester si CR/DD il fa
ut les 2 a la fois ! JR NZ,PACRDD Pas CR/DD LD A,C
C Contient toujours LMAX CP (HL) JR C,FINDCRDD On a
trouve le CR/DD que LMAX JP Z,SOLUTIO3A Si le CR/DDLMAX , ne pas y c
hercher le GAP ! PACRDD INC (IY+0) Compteur + 1 INC DE
LISTERR+1 INC HL IDS LEN suivant INC HL IN
C HL INC HL DJNZ VEUTCM La boucle DJNZ ne va jamais jus
qu' B0 donc ne sort jamais par ici -------------
--------- Maintenant que l'on est sur d'avoir un CR/DD plus grand q
ue LMAX , sa lecture par LITFDC4 nous donnera tout ce qu'il faut savoir sur
la taille de format , le GAP , etc ... LITFDC4 est une routine spciale qui ser
a explique dans la section ROUTINES . --------
-------------- FINDCRDD DEC HL Repointer debut ID CR/DD DEC
HL DEC HL CALL TRANS3ID Et fixer parametres LD
HL,TFGAP1A Texte analyse CR/DD CALL PRT LD A,#46 Lit F
DC4 donne l'octet de remplissage , le GAP LD HL,LITFDC4 la longueur du
GAP et la longueur reelle en CALL SETCOM2 octets d'apres un CR/DD q
ue la normale CALL VISINST Viser secteur et executer instruction
LD HL,FLAGFNC Secteur lu et stocke . Signaler octet formatage
SET 0, ! ET FINI ! ! ! !
! ! +--------------------+ ! !
! ! ! ! +------- RECHE
RCHE PAR SOLUTION3 ! ! ! REUSSI
! ! ! ! ! !
! +------------- OUI NON ------+ ! ! !
! N! ! ! ! !
AUTRE RECHERCHE --+ ! ! ! ! !
! ! ! +------ NOTER SECTEURS ECRASES
! ! ! TROUVER REMPLISSAGE SI POSSIBLE ! !
! ALLER ECRASER LES SECTEURS ET FINI ! ! !
! ! +---------- RECHERCHE PAR
SOLUTION4 ! ! PRESENCE ECRASES
! ! ! ! ! ECRAS
ER ET FINI --------------- OUI NON --------------+ ! !
! ! ! ! DETERMINER REMPLISS
AGE SI POSSIBLE -+-!-+ ! TESTER PRESENCE ECRASES -----
---+ ! ! +------------------------
OUI NON --------- FINI --------------------------------
--- FIN DE SECTION . SI VOUS VOUS SENTEZ EN FORME , POURSUIVEZ AVEC TEST PISTE
1 -----------------------------------TRU2 CALL
RESULT DJNZ POINSEC POP BC JP INSTRU9 - Af
ficher les erreurs a LD A,(FLAGIMP) Impression en cours O
R A RET Z Non CALL SETIMP Oui CAL
L IMPPIST Imprimer numro de piste LD HL,TPAFORM Et pas formatee
CALL PRT (Je doute du reste qu'un code binaire le faisa
nt puisse etre contenu dans la RAM du CPC) . 2 - Pour que cela fonctionn
e , il faut connaitre fond le systme de protection employ pour tester l
a piste . Ou on appele a un viol de copiryght ou je suis l'veque d'Autu
n ... Si vous avez cras avec subtilit vos secteurs , la reproduction d
es donnes sera correcte mais certains octets entre les secteurs seron
t diffrents sur la copie . Si vous arrivez crire une routine capable de
reproduire l'octet prs ce genre de piste votre talent nous intresse ...
CE QU'IL AURAIT PU FAIRE DE PLUS (Et qu'il fera un jour prochain en tant
que partie d'un tout baptis DISC PLUS ULTRA qui fera beaucoup de bruit dans l
es chaumires ...) . Rparer totalement les disquettes DATA ou CPM endommag
es , copier convenablement certains cas trs particuliers , copier plus rapid
ement , etre plus joli et plus ergonomique , etc ... POUR '.Occcccww ww pN
f6iZZ2je fenetre reponses si a-16 ***NNw ww w N .OO%O*** Initialisation menus 2
***O$O Nwwww Nw#w% N" SECTION "PRT,,,,,,PRT,,,,$,,()dd '$ JP P,TESTFDC AND
#20 JR NZ,BCLWRT OUTWRIT LD (NBLUS),DE JP RESULT WRITFDC2 LD DE,0
REPETER LE MEME OCTET EN ECRITURE LD HL,(ADBUFF) HL n'est jamai
s incremente JR TESTFDC2 BCLWRT1 INC C LD A,(HL)
OUT (C),A DEC C INC DE TESTFDC2 IN A,(C) JP P,T
ESTFDC2 AND #20 JR NZ,BCLWRT1 JR OUTWRIT LITF
DC LD DE,(NBALIRE) - Lire et stocker le nombre d'octets donnes LD HL,(ADBUF
F) ET1 BIT 5,(HL) JR Z,NOERCRC SET 5,(IY+0) NOERCRC BIT 2,(HL)
JR Z,OKDATA SET 4,(IY+0) OKDATA BIT 0,(HL) JR Z,OKMA SET 1,(IY+0)
OKMA INC HL Sur ET2 BIT 6,(HL) JR Z,OKCM SET 3,(IY+0) OKCM BIT
5,(HL) JR Z,OKDD SET 2,(IY+0) OKDD BIT 0,(HL) JR Z,OKDA SET 0,(
IY+0) OKDA LD A,(QUATRID) LD L,A LD A,(PISTSEL) SUB L RET Z
SET 7,(IY+0) RET TEMPAMS PUSH AF Temporisation de A*27 Ms LD A,
12 CALL TEMPMIL POP AF DEC A JR NZ,TEMPAMS LD A,15 CALL TEMPMI
L JR LITSTAT TEMPMIL PUSH AF LD A,#F6 BCLTEMP DEC A JR NZ,BCLTE
MP POP AF DEC A JR NZ,TEMPMIL RET RAZINTE CALL LITSTAT - Attend
re que le FDC soit bien dispose - CP #80 JR NZ,RAZINTE RET TSTDRIV
CALL RAZINTE - Test drive - LD A,4 CALL INSTRU1 Envoyer instruction & dri
ve JP RESULT LITSTAT LD A,#08 Lire statuts FDC - CALL ENVOFDC J
P RESULT - Tete sur la piste 0 - CALIBRE LD A, N7 RESTRUCTUR
E DE MANIERE A TESTER UN EVENTUEL CALL INSTRU1 'DISC MISSING' LORS
DE GOPISTE CALL TEMP1 LD A,(ET1) OR A JR
NZ,CALIBRE RET GOPISTN LD A,#F Aller en piste N
CALL INSTRU Envoyer instruction , drive et piste selectionnes TEMP1 LD
A,(WAITPIS) CALL TEMPAMS RETTSDR DB 0 Ici un RET pour ne
pas bloquer en entree de programme LD DE,#0213 si drive B absent
ou sans disc (TSTDRIV) CALL TSTMISS JR NC,GOPISTN
RET FORMATE PUSH DE - Formater - PUSH BC LD B,#4D CALL COMPCOM
CALL INSTRU2 LD A,(LENSEC) Env.Par. CALL ENVOFDC LD A,(NBSEC) CAL
L ENVOFDC LD A,(GAPFORM) CALL ENVOFDC LD A,(OCREMP) CALL ENVOFDC
DI LD BC,#FB7E CALL WRITFDC1 POP BC POP DE RET TSTDIDC DI
PUSH BC - Lire les IDS - LD B,#4A Passer en double densite L
D A,#A CALL INSTRU1 Lire les IDS en simple densite pour provoquer erreur
CALL RESULT JR NC,RANGCOM Si erreur c'est bien DD et c'est fini DI L
D B,#ASi non passer en SD LD A,#4A Et lire en DD pour erreur CALL INS
TRU1 SDErr. CALL RESULT RANGCOM DI LD A,B LD (COMMAND),A POP B
C SCF RET INSTRU CALL ENVOFDC - Envoyer au FDC drive , tete et pist
e - LD DE,(DRSELEC) EDr.DP. LD A,(HEAD) OR E CALL ENVOFDC LD A,D
HOP JP ENVOFDC INSTRU2 LD A,(COMMAND) - Envoyer au FDC , commande , h
ead , drive - INSTRU1 CALL ENVOFDC PUSH DE LD A,(HEAD) LD E,A LD A
,(DRSELEC) OR E POP DE JR HOP INSTRU9 CALL COMPCO1 - Envoyer com
mande et 9 octets pour read write - CALL INSTRU2 PUSH BC PUSH HL LD
B,7 LD HL,QUATRID NEXT9 LD A,(HL) CALL ENVOFDC INC HL DJNZ NEXT9
DI LD BC,#FB7E POP HL Reprendre adresse buffer variable po
ur LITFDC3 PUSH HL CODEOPE CALL LITFDC CALL VARIABLE POP HL POP BC
RET ENVOFDC DI Envoyer un octet au FDC PUSH BC LD BC,#F
B7E PUSH AF WAITFDC IN A,(C) ADD A,A JR NC,WAITFDC ADD A,A JR N
C,VEUTOCT POP AF POP BC EI RET VEUTOCT POP AF INC C OUT (
C),A DEC C LD A,5 DIGERE DEC A NOP JR NZ,DIGERE POP BC EI
RET WRITFDC LD HL,(ADBUFF) - Ecrire dans le FDC - WRITFDC1 LD DE,0
JR TESTFDC BCLWRT INC C LD A,(HL) OUT (C),A DEC C INC DE INC H
L TESTFDC IN A,(C) JP P,TESTFDC AND #20 JR NZ,BCLWRT OUTWRIT LD (NB
LUS),DE JP RESULT WRITFDC2 LD DE,0 REPETER LE MEME OCTET EN ECRIT
URE LD HL,(ADBUFF) HL n'est jamais incremente JR TESTFDC2
BCLWRT1 INC C LD A,(HL) OUT (C),A DEC C
INC DE TESTFDC2 IN A,(C) JP P,TESTFDC2 AND #20
JR NZ,BCLWRT1 JR OUTWRIT LITFDC LD DE,(NBALIRE) - Lire et stock
er le nombre d'octets donnes LD HL,(ADBUFF) LITFDC3 PUSH HL JR TSTFDC
RETEST LD A,D OR E JR Z,TSTFDC INC C INI DEC C INC B DEC D
E TSTFDC IN A,(C) JP P,TSTFDC AND #20 JR NZ,RETEST EXILIT POP DE
AND A SBC HL,DE LD (NBLUS),HL JP RESULT LITFDCX PUSH HL JR T
STFDCX RETESTX INC C IN A,(C) DEC C INC HL TSTFDCX IN A,(C) JP P
,TSTFDCX AND #20 JR NZ,RETESTX JR EXILIT LITFDC2 LD HL,(LONGSEC) L
ecture pour Chercher la vraie taille d'un secteur INC HL TSTFDC3 LD A,H
OR L JR Z,TSTGAP TSTFDCA IN A,(C) JP P,TSTFDCA AND #20 JP Z,RESULT
INC C IN A,(C) DEC C DEC HL JR TSTFDC3 TSTGAP IN A,(C)
JP P,TSTGAP LD HL,BUFGAPS LD DE,267 JR LITFDC3 -------------------
----- - LITFDC4 Lire et stocker l'octet de remplissage et sauter - - LITFDC5
Compter les octets de remplissage jusqu'au CRC et sauter - - LITFDC6 Lire et
compter le GAP - - LITFDC7 Attendre la fin de la lecture - LITFDC4 PUSH H
L LD DE,-2 Longueur secteur a -3 pour 2 CRC JR TSTFDC4
RETEST4 INC C IN A,(C) DEC C LD (OCREMP),A Lir
e le 1er octet (remplissage) et stocker JR LITFDC5 TSTFDC4 IN A,(C)
JP P,TSTFDC4 AND #20 JR NZ,RETEST4 JP RE
SULT Securite LITFDC5 LD L,A Memoriser valeur remplissage
LD H,3 2 octets CRC a sauter et lire GAP JR TSTFDC5 RE
TEST5 INC DE Compter les octets de rem Nplissage INC C
on aura ainsi la vraie longueur IN A,(C) DEC C
CP L Voir si on est arrive au 1er octet du CRC JR Z,TSTFDC5
DEC H Sauter CRC JR Z,LITFDC6 TSTFDC5 IN A,(C)
JP P,TSTFDC5 AND #20 JR NZ,RETEST5 JP RESU
LT LITFDC6 LD (VALGAPF),A Ranger le GAP LD H,A Memoriser
le GAP LD L,1 Compteur pour longueur GAP JR TS
CALL FGAPTB JR ECRA1A PAS4S1 LD HL,TB15 LD C,7
CALL FGAPTB JR ECRA1A RECOP1 CALL COP4ID ECRA1A INC DE
DJNZ ECRA1 JP EXIECRA - ECRASER TAILLE 2 - ECRA2
LD A,(DE) TOUT A UNE FIN , PERSEVEREZ .... CP 3 JR C,R
ECOP2 CP #FF JR Z,RECOP2 SUB 3 JR NZ,
PAS3S2 LD C,1 CALL PLUSIDS JR ECRA2A PAS3S
2 DEC A JR NZ,PAS4S2 LD HL,TB24 LD C,2
CALL FGAPTB JR ECRA2A PAS4S2 LD C,5 CALL PLUSIDS
JR ECRA2A COURAGE VOUS APPROCHEZ ... RECOP2 CALL COP4ID EC
RA2A INC DE DJNZ ECRA2 JP EXIECRA - ECRASER TAILLE 3 -
ECRA3 LD A,(DE) CP 4 JR C,RECOP3 CP #FF
JR Z,RECOP3 SUB 4 JR NZ,RECOP3 LD C,
1 CALL PLUSIDS JR ECRA2A RECOP3 CALL COP4ID ECRA3A
INC DE DJNZ ECRA3 VOUS Y ETES ! ------
------------------ Ici les 2 routines essentielles . La premire , COP
4ID , se contente de recopier les IDS de la zone lecture vers la zone critur
e . L'tat d'erreur est recopi dans dans la seconde liste d'erreurs qui servira
l'criture . La seconde s'occupe de l'crasement . Le secteur crire es
t recopi par COP4ID , ensuite , on augmente le nombre total de secteurs
sur la piste en fonction du nombre de secteurs qui seront crass par l'criture
. Il faut videment augmenter la liste des IDS crire d'autant , comme ces ID
S sont destins une fin rapide et ne seront jamais lus ni crits , on peu
t y mettre n'importe quoi . Reste la liste des erreurs . Quoique peu utili
se jusqu'ici , elle est vitale pour la suite des oprations . C'est elle qu
i dcide si il faut lire , crire ou ignorer un secteur . Pas question d'y
mettre n'importe quoi ! Il faut un octet spcifique qui signalera au
programme d'ignorer ce secteur sans etre confondu avec un vritable tat d
'erreur . #7F (01111111) est tout fait convenable . Il faudrait au moins ma
ssacrer le drive la hache et en plein vol pour obtenir un tel rsultat .
----------------------- COP4ID PUSH BC Prese
rver NBSEC LD B,4 Copier 4 IDS de IN vers OUT BCLCOP LD A,(IX
+0) LD (IY+0),A INC IX INC IY DJNZ BCLCO
P POP BC LD HL,(POINTER) Avancer le pointeur etat d'erreu
r LD A,(HL) INC HL LD (POINTER),HL LD
HL,(PERPROV) Et recopier cet etat d'erreur dans la LD (HL),A li
ste provisoire tout en avancant le pointeur INC HL de celle-c
i LD (PERPROV),HL RET - DETERMINE ET AJOUTE FGAPT
B LD A,(GAPFORM) HL Contient le 1er octet de la table concerne FGAPTB1 CP (H
L) Determiner le nombre de secteurs qui seront JR NC,PLUSIDS
ecrases en fonction du GAP INC C Pas trouve en table donc u
n secteur de plus INC HL et octet suivant de la table
JR FGAPTB1 PLUSIDS CALL COP4ID Ajouter des IDS . On recopie l'ID d'o
rigine LD A,(NBSPROV) ADD A,C On augmente le nombre
de secteurs LD (NBSPROV),A et on le range REBOUCH PUSH BC
Preserver NBSEC LD B,3 LD A,(PISTSEL) LD (IY+0),
0 On met en place la serie d'IDS qui sera ecrasee INC IY BOUCHE
LD (IY+0),0 INC IY DJNZ BOUCHE POP BC
LD HL,(PERPROV) Marque invraissemblable dans liste provisoire LD (H
L),#7F pour invalider lecture ecriture INC HL LD (PERPRO
V),HL DEC C JR NZ,REBOUCH RET
NTFDC6 RETEST6 INC C IN A,(C) DEC C C
P H JR NZ,LITFDC7 INC L TSTFDC6 IN A,(C) JP P,TS
TFDC6 AND #20 JR NZ,RETEST6 JP RESULT LITFDC7
LD (LONGSEC),DE Ranger longueur LD A,L LD (GAPFORM),A et G
AP POP HL ------------------------- LITFDC1 IN A,(C) - Lire
sans rien stocker - JP P,LITFDC1 AND #20 JP Z,RESULT INC C IN A,
(C) DEC C JR LITFDC1 RESULT DI - Resultat - PUSH BC LD BC,#FB
7E PUSH HL PUSH DE LD D,0 LD HL,ET0 PUSH HL JEBOSSE IN A,(C)
CP #C0 JR C,JEBOSSE INC C IN A,(C) LD (HL),A INC HL INC D DEC C
TEMPRES DEC A JR NZ,TEMPRES IN A,(C) AND #10 JR NZ,JEBOSSE POP
HL LD A,(HL) AND #C0 DEC HL LD (HL),D POP DE POP HL POP BC
LD A,(ET0) EI RET NZ SCF RET RESU1 LD BC,#FB7E LECTURE RE
SULTAT RAPIDE ET SANS DI POUR LITRE IDS LD HL,ET0 JEBOS1 IN A,(C)
CP #C0 JR C,JEBOS1 INC C IN A,(C) LD
(HL),A INC HL DEC C LD A,5 TEMPR1 DEC A JR
NZ,TEMPR1 IN A,(C) AND #10 JR NZ,JEBOS1 R
ET - Avancer d'une piste - INCPIST PUSH HL Avancer d'une piste
LD HL,DERPIST LD A,(PISTSEL) CP (HL) P.Max.
JR Z,PASINC INC A LD (PISTSEL),A LD A,1
LD (WAITPIS),A SCF Flag C si encore piste , NC si
non POP HL RET PASINC LD A,41 LD (WAITPIS),A
POP HL XOR A RET - Composer les commandes -
COMPCO1 LD A,(COMMAN2) LD B,A COMPCOM LD A,(FLAGDEN) Entree avec command
e dans B LD C,A LD A,B BOctet commande AND C LD C,A
+Densite LD A,(FLAGMT) OR C +Multitrack LD (COMMAND),A
RET COMLIPI LD A,#42 SETCOM2 -----------------------
----------- - PROGRAMME DE COPIE . 1ERE PARTIE -
---------------------------------- Nous prsentons ici le
principe et l'algorythme gnral du copieur de disquettes UTIL-SOFT . A la f
in de ce chapitre figure le listing comment de la section de programme grant
l'ensemble du copieur . Le principe d'ensemble est le suivant .
+------------------ ALLER SUR LA PISTE A COPIER !
ANALYSER ! STOCKAGE ! VOIR SI ON
A ENCORE DE LA PLACE POUR STOCKER LA PROCHAINE PISTE ! !
PLUS DE PLACE ----------------------+ !
! ! ENCORE DE LA PLAC
E TESTER PISTE SUIVANTE ! ! VOIR SI C'EST LA DERNIERE
PISTE A COPIER ! !
LD (COMMAN2),A LD (CODEOPE+1),HL RET - Sub routines sele
ction parametres lecture / ecriture - SETLECT LD A,(DRL) Selection driv
e - head - piste lecture LD (DRSELEC),A LD A,(HDL)
LD (HEAD),A LD A,(PISTL) LD (PISTSEL),A RET
SETWRIT LD A,(DRW) Selection drive - head - piste ecriture LD (DRS
ELEC),A LD A,(HDW) LD (HEAD),A LD A,(PISTW)
LD (PISTSEL),A RET - Sub routines comparaisons - CPDRIVE
LD A,(DRL) Comparer drive source et destination LD B,A
LD A,(DRW) CP B LD A,0 RET Z INC A
SCF RET CPPIST LD A,(PISTL) Comparer pistes source/desti
nation LD B,A LD A,(PISTW) CP B RET
DIFLENL LD A,(LENSEC) Comparer taille ID secteurs et vraie taille LD
(VRAILEN),A LD B,A LD A,(QUATRID+3) CP B
RET Z LD (LENSEC),A RET VRAILEN DB 0 - Verif.Valid
pist. - VERIPIS LD A,(PISTMAX) LD B,A LD A,(DERPIST)
CP B Fin Maxi RET NC Oui L
D B,A LD A,(PREMPIS) INC B CP B Deb.F
in RET TSTNBSE LD A,(NBSEC) Tester nombre secteurs . NC si rate
. OR A RET Z CP 33 RET CALIGAP LD A,(LENSEC) Calibrer le GAP
N OR A LD HL,T0DD LD C,15 JR Z,GAPVERI
DEC A LD HL,T1DD LD C,12 JR Z,GAPVERI
DEC A LD HL,T2DD LD C,8 JR Z,GAPVERI
DEC A JR Z,GAPVERI LD HL,T3DD LD C,5
DEC A RET NZ - Rectifier le GAP lu - GAPVERI LD A
,(NBSEC) Nombre secteurs nombre a probleme CP C RET C
BCLGAPV CP C (HL) trouve CALL FLENLON Convertir longue
ur en octets en taiile de 0 a 5 LD A,(VALGAPF) CP #4E
CALL NZ,SETNOGAP GAP pas #4E simplement signaler . JP EXITGAP
C'est fini pour le cas CR/DD . Nous venons d'en finir avec le type
CR/DD . Les acharns auront remarqu que l'ventuelle prsence de secteurs cr
ass avec des CR/DD n'est pas envisage ! Le test se fait en EXIGAP (Beaucou
p plus loin ...) ---------------------
Voici maintenant le cas le plus pineux ou la taille relle du format et des G
APS n'a pu etre dtermine pour cause d'crasement . On notera que le GAP est
considr comme normal (#4E) . Si un petit malin a bricol une piste avec un FDC
spcial ET un crasement de secteurs , il est trop dou pour qu'on lui piqu
e sa piste ... On arrive en SOLUTIO3A si un CR/DD EGAL LMAX a t det
ect . Dans ce cas LMAX ne peut pas etre gal au CR/DD . Comme d'autre part
LMAX ne peut etre augment , on ne peut que la diminuer de 1 et affiner un
peu plus la recherche . Il faut quand meme prvoir que la prsence extrmement r
are d'un secteur LEN 0 abim peur aussi renvoyer un CR/DD . Dans ce cas mieux
vaut ne pas toucher LMAX qui passerait #FF ! En SOLUTION3 on teste
LMIN . Si cette case enregistr au passage une taille 0 OK , c'est forcment
la vraie taille de format . Dans tout autre cas un secteur 0 renverait CR/DD
ou MAM ! Dans le cas contraire , c'est la taille maximum calcule qui sert au t
est . Pour russir ce test , on utilise lire piste comme en SOLUTION1
mais comme le test sur ND chouera systmatiquement en raison de la prsence d
e diffrentes tailles crites , on recherche un octet de valeur #4E la
position du GAP . Si on le trouve , on dja une ide de la vraie taille de fo
rmat employe . Si on ne le trouve pas , il reste possible que le secteur tes
t par lire pi -------------------- EXIECRA est le point de sortie
du programme . Dans 99% des cas c'est enfin fini . Il reste hlas un derni
er point vrifier Que le nouveau nombre de secteurs dtermin par 'ECRASER'
puisse effectivement tenir sur une piste ! Logiquement a devrait . Pourtant
, si on s'amuse formater en taille 0 et a tout craser sous des tailles d
iverses sans laisser un seul ID LEN 0 . Certaines combinaisons ne permettront
pas aux routines d'analyse la vraie taille de format . Exemple Un formata
ge de taille 0 cras de la manire suivante 1,2,2,2,2,2,2,2,2,2,1 renverra sy
stmatiquement un LMIN de 1 . Dans la mesure ou le rapport d'crasement es
t diffrent pour chaque taille , un crasement sur la base 1 calculera un nouve
au nombre de secteurs excessif . Pas de panique , RECTINB1 fait le gend
arme la sortie de l'autorute ! Si le nombre de secteurs est convenable ,
on prend la bretelle de sortie , sinon P.V. et retour ! +-----------
------ IL RESTE DES PISTES A COPIER ! !
! ! IL N'Y-A P
LUS DE PISTES A COPIER ------------+ !
! ! INITIALISER ECRITURE
-----------------+ ! +----- VOIR SI ON EST SUR LA DERNIERE PISTE LUE
! ! ! ! NON -----------------------
---+ ! ! !
! OUI REINITIALISER BUFFER ET LECTURE ! !-------
------------------ ET CONTINUER !
! ! R
EPRODUIRE LE FORMAT ------------------+ ! ECRIRE LES SECTEURS S
I IL Y-A UN FORMATAGE ! AVANCER D'UNE PISTE
! EST N-CE LA DERNIERE ! +---
--------------------- NON OUI
THATS'END ! Avant d'aller plus loin , tudio
ns la manire de mmoriser le contenu complet d'une piste . Comme pl
usieurs pistes seront stockes la suite , on commence par le numro de la pi
ste en cours . Ensuite viendra un octet nomm FLAGFNC dont chaque bit conti
endra une information vitale sur le rsultat global de l'analyse . La lo
ngueur des secteurs exprime en octets peut toujours servir , on la met la
suite . Il faut bien sur conserver toutes les donnes affrentes au format
pour reproduire cette piste , on ajoute LENSEC , NBSEC , GAPFORM , OCREMP . Bi
en videment , les IDS sont vitaux , ils suivent . Pour une bonne reproduction
des secteurs il nous faut encore la liste de l'tat de lecture de chacun d'eux
et cela commence faire du monde . Pour viter des calculs chaque opration
on ajoute l'adresse de dbut de stockage des donnes pour chaque secteurs
, dans le meme but on ponctue le tout par l'adresse ou devra commencer
le prochain stockage . Ceci nous donnera Numro de piste lue
PISTL 1 Octet Flag tat piste FLAGFNC 1 Octet
Longueur secteurs en octets LONGSEC 2 Octets Longueur sect
eur a formater LENSEC 1 Octet Nombre de secteurs sur la piste
NBSEC 1 Octet GAP pour formatage GAPFORM 1 Octet
Octet de remplissage secteur OCREMP 1 Octet La srie de
s IDS secteurs IDINDRA 4 Octets * Nb.Secteurs La srie des tats
d'erreur LISTERR 1 Octet * Nb.Secteurs Les adresses de stockage
2 Octets * Nb.Secteurs L'adresse de stockage de la pro
chaine srie 2 Octets Le contenu des secteurs .... FLAGFNC No
us dira entre autre si la piste reproduire est ou non formate .
LISTERR Informera le programme si il doit ou non rcrire le secteur , et de qu
elle manire le faire . Le dtail de ces flags sera vu petit petit .
Dans ce qui suit POINPIS contient toujours l'adresse de stockage de la pi
ste mmoriser . Un second pointeur POINERP est indpendant du buffer . Il dsign
e une liste de 2 octets * nombre de piste traites et permet de mmorise
r les pistes prsentant des cas particuliers . Cette zone de stockage permet de
prsenter un rsum d'analyse en fin de programme . Dans la mesure ou
les routines rellement complexes figurent dans d'autres sections , il n'y
plus grand chose dire sur le listing suivant qui est abondamment comment
. -------------------------
- INITIALISER PROGRAMME - ----------------------
--- XOR A INITIALISER VARIABLES LD (DRL),A
Drive lecture LD (DRW),A Drive ecriture LD
(HDL),A Tete lecture LD (HDW),A Tete ecriture
LD (PREMPIS),A Premiere piste LD (FLAGMOT),A Flag moteu
r OFF LD (FLAGIMP),A Flag imprimante OFF ADD A,#41
LD (TSOUDES+20),A Modifier textes drives LD (TSOURCE+33),A
LD (TSOUDES+47),A LD (TDESTIN+38),A CALL DEUXNB
Conversions numeriques sur 2 nombres LD BC,0 INITIALISER
MODE & COULEURS CALL #BC38 Border 0 LD BC,0
XOR A CALL #BC32 Ink 0,0 LD A,1 LD BC,#0F0F
CALL #BC32 Ink 1,15 XOR A CALL #BB96 Pape
r 0 LD A,1 CALL #BB90 Pen 1 LD A,2
CALL #BC0E Mode 2 LD HL,TUS Afficher
texte introduction CALL PRT - TESTER
LES DRIVES - CALL MOTON Moteur en route RETST CALL EFFSCR
Effacer ecran NEWTST LD A,#C9 Invalider routine erreur drive po
ur LD (RETTSDR),A ne pas bloquer en cas de disc missing CAL
L TST2DR Tester drives comme dans versions precedentes LD HL,#2206
Locate pour CONFIRM CALL CONFIRM Drives OK JR NC,NE
WTST Non ! XOR A LD (RETTSD NR),A NEWCHG LD HL,TME
NCHG MENU PRINCIPAL CALL PRT LD HL,TIMPRIM CALL
PRT TSTCHG LD HL,TSOUDES CALL PRT CALL #BB06
AND #DF CP "A" JR Z,CHGS Changer drive source
CP "B" JR Z,CHGDRV Changer drive destination CP "C
" JR Z,CHGTS Changer tete source CP "D" JR Z,
CHGTD Changer tete destination CP "E" JP Z,CHGIMP I
mprimante ON/OFF CP 13 JR Z,DONPIST Fin de selection
JR TSTCHG CHGS LD A,(DRL) CHANGE DRIVE SOURCE C
ALL CHANGE Bascule 0-1 ou 1-0 LD (DRL),A ADD A,#41
Numero drive en ASCII LD (TSOUDES+20),A Modifier textes
LD (TSOURCE+33),A JR TSTCHG CHGDRV LD A,(DRW) CH
ANGE DRIVE DESTINATION CALL CHANGE LD (DRW),A ADD
A,#41 LD (TSOUDES+47),A LD (TDESTIN+38),A JR TSTCH
G CHGTS LD A,(HDL) CHANGE TETE SOURCE CALL CHANGE
LD (HDL),A LD HL,TSOUDES+21 JR CHGHD CHGTD LD A
,(HDW) CHANGE TETE DESTINATION CALL CHANGE LD (HDW)
,A LD HL,TSOUDES+48 CHGHD ADD A,"0" LD (HL),A
JR TSTCHG CHGIMP LD A,(FLAGIMP) IMPRIMANTE ON/OFF CALL CHAN
GE LD HL,TNON Texte 'NON' OR A JR Z,IMPOF
F CALL #BD2E Si imprimante pas ready , BIP et abandon
JR NC,IMPON LD A,7 CALL #BB5A JP TSTCHG
IMPON LD HL,TOUI Texte 'OUI' LD A,1 IMPOFF LD (FLAGIMP)
,A IMPSET LD DE,TIMPRIM+30 Modifier texte imprimante LD BC,3
LDIR LD HL,TIMPRIM CALL PRT JP TSTCHG
CHANGE INC A Si A etait 1,A devient 0. Si etait 0 devient 1
CP 1 RET Z XOR A RET DONPIST LD A,41
Initialiser dernieres pistes au maximum CALL SETDER LD H
L,TPIST1 Donner piste de debut CALL INPUPRT2 LD (PREMPIS)
,A Premiere piste LD (MEMODEB),A Memoriser pour reprise LD
(PISTL),A Pour lecture LD (PISTW),A et pour ecriture
LD HL,TPIST2 Donner piste de fin CALL INPUPRT2 CALL SE
TDER ME la case dpart avec un point de longueur en moins .
--------------------- EXIECRA LD A,(NBSPROV) Voir si l
e nombre maximum de secteurs toleres par LD B,A la taille de
format est depasse . CALL RECTINB1 RECTINB1 fait les comptes
JR C,FINECRA Si c'est juste , c'est fini . LD A,(LMIN) On
deborde . Si LMIN etait zero on a vraiment OR A un problem
e et on laisse tomber ! (Cas inconnu JR Z,FINECRA a ce jour)
DEC A LD (LMIN),A Sinon on recommence avec la taille en des
sous CALL ADDLON Refaire LONGSEC LD A,3 Dans ce
cas le GAP a 99% de chances d'etre LD (GAPFORM),A faux ! On le met a
u minimum CALL SETGRW sans oublier le GAP R/W LD A,(NBSE
C) Le nombre de secteurs doit etre reinitialise LD (NBSPROV),A a s
on nombre initial JP ECRASER FINECRA LD A,B Nouveau nomb
re de secteurs calcules comme LD (NBSEC),A nombre a formater
LD HL,IDOUTDRA Recopier les nouveaux IDS dans la zone ID LUS LD D
E,IDINDRA pour ne pas avoir de problemes lors du stockage LD BC,256
LDIR LD B,0 LD C,A ANBSEC LD HL
,LERPROV Et recopier la nouvelle liste des erreurs avec LD DE,LISTER
R ses octets a #7F correspondant aux IDS LDIR qui seront
detruits par la suite RET TB02 DB #5D,0 TB03 DB #A3,#48,
#1A,0 TB04 DB #E7,#A1,#6F,#49,0 TB05 DB #E1,#BC,#9C,#82,#6B,#57,#46,#3
8,#29,#1D,#12,#08,0 TB13 DB #DD,#2A,0 TB14 DB #D0,#67,#21,0 TB15
DB #C9,#90,#62,#3C,#1C,0 TB24 DB #80,0 RECTINB LD A,(NBSEC) J
uste une suite de comparaisons qui s'assure RECTINB1 LD B,A du bon rap
port entre nombre de secteurs et taille du format . Ici
la taille du GAP n'a p NMOENDDERPIST , PISTMAXDERPIST+1 CALL VERIPIS
JR NC,DONPIST LD HL,#2215 CALL CONFIRM Ca v
ous va JR NC,DONPIST NON ! -----------------
----------------------- - POINT DE REPRISE POUR MEME OPERATI
ON - ---------------------------------------- MEMEOP C
ALL EFFSCR Effacer de la ligne 5 a la fin de l'ecran LD A,41
Temporisation GOPISTE au maximum sinon un LD (WAITPIS),A deplacement
important ne trouve pas la piste XOR A Afficher textes des
tination-source CALL REINIT RAZ Buffer et pointeurs SETLECT , PISTS
ELPISTL CALL CPDRIVE Voir si 2 drives JR Z,UNDRIV N
ON LD HL,#2919 2 Drives . Attendre disque destination
CALL #BB75 LD HL,TDESTIN CALL PRT --------
----------------------------------------- - ANALYSE , INTERPRETAT
ION , LECTURE , STOCKAGE - --------------------------------------
----------- UNDRIV CALL #BB06 LD HL,LISTERP Mise a zero de la
liste des erreurs piste LD (POINERP),HL - POINT D
E REPRISE APRES INTERRUPTION ESC - REPRISE LD BC,#0101 Boucle pour une pi
ste CALL #BC38 Bord bleu LD A,66 Stopper si ESC
presse CALL #BB1E JP NZ,FINISH LD HL,TLITPIS
Afficher piste en cours de lecture CALL PRT LD A,(PISTL)
CALL PRTDECIA CALL GOPISTE ALLER PISTE CALL ANA
PIST ANALYSER LD BC,#0909 CALL #BC38 Bord vert
CALL STOKPIST STOCKER WAITSPA LD A,47 Attendre si espace
presse CALL #BB1E JR NZ,WAITSPA LD HL,(POINPIS)
POINPIS contient l'adresse de fin de stockage + 1 LD DE,6000 Tes
ter si il y-a de la place pour le prochain ADD HL,DE stockage
LD DE,30000 1er octet occupe par le programme AND A
SBC HL,DE JR NC,COPIER Ca coince ! Aller copier et vidanger le
buffer LITENCOR CALL INCPIST Ca passe . Aller piste suivante LD
A,(PISTSEL) et memoriser piste lecture en cours LD (PISTL),A Si
il reste des pistes a traiter INCPIST met le JR C,REPRISE CARRY si
NC c'est fini on reproduit ce qui reste ---------
-------------- - RECOPIER LES PISTES -
----------------------- COPIER LD A,21 Reproduire s
i buffer plein ou derniere piste CALL EFFBAS Effacer bas d'ecran
LD HL,1000 Pointer 1er octet du buffer LD (POINPIS),HL
CALL SETWRIT Parametrer drive-tete ecriture LD A,(PISTW)
Recuperer piste ecriture LD (PISTSEL),A Initialiser piste ecriture
CALL CPDRIVE 2 drives LD HL,TDESTIN CALL Z,
WAITDISC Si un seul drive, message destination et attendre LD A,#41
Recalibrer sur piste 0 c'est plus prudent LD (WAITPIS),A Temp
orisation GOPISTE au MAXI CALL CALIBRE LD BC,#0606
CALL #BC38 Bord rouge REWRITE LD A,(PISTL) Si piste ecriture dern
iere piste INC A lue + 1 , retourner lire LD B,A
LD A,(PISTSEL) CP B JR C,NEXTWRI CARRY continue
r ecriture CALL REINIT1 RAZ Buffer et pointeurs SETLECT PISTSELP
ISTL JR LITENCOR Retourner aux operations de lecture NEXTWRI
PUSH AF OPERATIONS DE REPRODUCTION LD HL,TWRIPIS Afficher pi
ste ecriture CALL PRT POP AF CALL PRTDECIA
CALL GOPISTE ALLER PISTE CALL FORMATER FORMATER C
ALL C,ECRIRE ECRIRE Si pas deformatee CALL INCPIST Piste ecrit
ure suivante LD A,(PISTSEL) LD (PISTW),A JR C,REWR
ITE Si INCPIST ne met pas le CARRY c'est fini
------------------- - SORTIE DE COPIE -
------------------- FINISH CALL ANAEND Tester LI
STERP et afficher analyse globale FINISH1 LD BC,0 CALL #BC38 Bo
rder 0 LD HL,TMENUEND Afficher options N de fin de copie C
ALL PRT TSTEND CALL #BB06 AND #DF CP "Q"
JR Z,FINPRG QUITTER CP "R" JP Z,REPRISE REPRENDRE ou
l'on avait interrompu la lecture CP "N" JP Z,RETST NOUV
ELLE OPERATION CP "M" JR NZ,TSTEND LD A,(MEMODE
B) MEME OPERATION LD (PREMPIS),A Recuperer les parametres d'origine
LD (PISTL),A LD (PISTW),A LD A,(MEMOEND)
LD (DERPIST),A CALL EFFSCR JP MEMEOP et recommencer
FINPRG CALL SETLECT Recalibrer les 2 drives CALL CALIBRE
CALL SETWRIT CALL CALIBRE JP MOTOFF Arreter moteu
r et c'est fini --------------------------
- SUB ROUTINES DIVESRSES - ------
-------------------- FENRES LD HL,TFENRES Effacer fenetre resultat
JP PRT FENRES1 CALL FENRES LD HL,TDENSIT JP PRTINV
1 FENSCR LD HL,TFENSCR Effacer fenetre ecran JP PRT CHGD
LD (FLAGDEN),A Change densite . N'a valeur que d'information LD DE
,TDENSIT+4 l'ensemble du programme ne fonctionnant qu'en LD BC,6
double densite . FINDEN1 LDIR RET EFFSCR LD A,5 Ef
facer bas ecran depuis ligne 5 JP EFFBAS WAITDISC PUSH HL A
ttendre disc source ou destination LD HL,#0219 CALL #BB75
POP HL CALL PRT JP #BB06 SETDER LD (DERPIST),A
Fixer limites derniere piste LD (MEMOEND),A INC A
LD (PISTMAX),A RET ----------------------
---------- - ANALYSE FINALE SELON LISTERP -
-------------------------------- ANAEND LD A,21 Efface
r ecran CALL EFFBAS CALL FENRES LD HL,(POINERP)
POINERP contient ici la derniere adresse occupee LD (HL),#FF par
la liste + 1 . Marquer la fin de la liste INC HL avec #FF com
me numero de piste LD (HL),#FF LD HL,TFENEND Fenetre fi
n de programme CALL PRT LD HL,#0301 CALL #BB75
LD HL,TREPAR-31 Dans cette section , les textes sont de longueurs
LD B,8 identiques . SEPTFOI LD DE,31 ADD HL,DE
as LD A,(LENSEC) a etre prise en compte car la routine de format
age OR A passe par CALIGAP (SOS3) . LD C,32
JR Z,NBMAX L0 DEC A LD C,19 JR Z,NBMAX L1
DEC A LD C,10 JR Z,NBMAX L2 DEC A
LD C,5 JR Z,NBMAX L3 DEC A LD C,2 JR Z,
NBMAX L4 LD C,1 NBMAX LD A,B Trop de secteurs lus pour la
taille . Ca arrive si DEC A on ecrase des tailles 0 sous plusieu
rs tailles CP C differentes NC si oui . RET LIST
NBSPROV DB 0 PERPROV DW 0 LERPROV DS 40 LISTIDS DS 40 NOLIST
--------------------------- Vous venez de vivre
le pire . Toutes les informations utiles sont maintenant mmorises . Il
ne reste plus qu' stocker , formater , reproduire simple formalit que l'on tro
uvera dans la section REPRODUCTION . (Pas de mauvaises penses , ce type de
reproduction n'a rien voir avec BLOOD) . --------------------
-------------------------------- NBMAX L4 LD C,1 NBMAX LD A,B
Trop de secteurs lus pour la taille . Ca arrive si -----------
COMMANDES COULEURS (RAPPEL) Pav numrique
CTRL+'.' Bord CTRL+'0' Paper
CRTL+'1' Pen 1 CTRL+'
BIT 0,A Si oui , longueur pas trouvee JR NZ,MAMFIND Continue
r LD HL,ET2 DD BIT 5,(HL) Si pas DD longueur trou
vee JR NZ,MAMFIND Sinon continuer CALL OKLONG Determin
er valeur GAP CALL FINDGAP Et longueur . NC en retour si pas bon
CALL NC,JECOINCE CALL FINDREMP Chercher octet FILL J
P EXITGAP Fini MAMFIND CALL INCLONG AA+1 Dans QUATRID+3 et LS , HLHL+HL
dans L N On avance dans la serie de texte en faisant suivre
PUSH HL le curseur texte PUSH BC PRANAEND CALL PRT
LD HL,TNIET CALL PRT LD HL,LISTERP NXTTEST PUSH
HL CALL #BB78 Ou est curseur texte LD A,L Si tr
op loin descendre d'une ligne CP 52 JR C,OKLOC LD
H,3 INC L CALL #BB75 Relocate curseur OKLOC POP HL
INC HL Faire tourner la case FLAG de LISTERP . Si un bit
RRC (HL) mis est trouve pointer le numero de piste concerne
JR NC,NOTPR et l'afficher en face du texte correspondant .
DEC HL Se souvenir que RRC (HL) affecte l'octet pointe LD A
,(HL) CALL PRTDECIA INC HL NOTPR INC HL LD
A,(HL) Si (HL) #FF on continue INC A JR NZ,NXTTEST
CALL #BB78 Sinon replacer curseur LD H,3 INC
L CALL #BB75 POP BC POP HL DJNZ SEPT
FOI Et recommencer avec le texte suivant JP FENSCR REINIT1
LD A,21 Reinitialiser le buffer de copie et les pistes CALL EF
FBAS lecture ecriture CALL CPDRIVE 2 drives , pas de message
REINIT LD HL,TSOURCE CALL Z,WAITDISC LD HL,1000
LD (POINPIS),HL Pointeur buffer au debut LD BC,28999 RAZSTOK LD
(HL),#FF Vider le buffer INC HL DEC BC LD A,B
OR C JR NZ,RAZSTOK LD A,(PISTL) Initialiser
parametres lecture LD (PISTSEL),A JP SETLECT
------------------------------ - VARIABLE
S ET TEXTES DIVERS - ------------------------------
MEMODEB DB 0 MEMOEND DB 0 POINPIS DW 1000 LIST LISTERP DS 100 NOLIST
POINERP DW 0 TUS DB 24," SOS PROGRAMMEURS - Etude du FDC - (C) M.MAI
GROT Aout 89 ",24 DB " ",24," U T I L - S O F T ",24 TSTATDR DB 2
4," DRIVE A0 ",24," ",31,34,2,24," DRIVE B0 ",24#80 TSOUDES DB 31,1,3,24," D
RIVE SOURCE A0 ",31,34,3," DRIVE DESTINATION A0 " DB 24+#80 TMENCH
G DB 24,31,26,7," A Change le drive source " DB 31,26,8," B Change d
rive destination " DB 31,26,9," C Change la tete source "
DB 31,26,10," D Change tete destination " DB 31,26,12," ENTER
Arret ",24+#80 TIMPRIM DB 31,26,11,24," E Imprimer l'analyse NON ",2
4,#80 TOUI DB "OUI" TNON DB "NON" TPIST1 DB 31,26,7,20," Donner la
piste de debut ",8,8+#80 TPIST2 DB 31,26,8," Donner la derniere piste "
,8,8+#80 TSOURCE DB 24," Placer disquette source dans A ",7,24+#80 TDESTIN
DB 24," Placer disquette destination dans A ",7,24+#80 TLITPIS DB 31,2,24,"Le
cture piste ",20,#80 TWRIPIS DB 31,2,24,"Ecriture piste ",20,#80 TREPAR
DB 24," PISTE REPAREE A VERIFIER ",24,32,#80 DB 24," PLUSIEURS TA
ILLES FORMAT ",24,32,#80 DB 24," PRESENCE SECTEURS ECRASES ",24,32,#8
0 DB 24," TAILLE DU GAP3 RETOUCHEE ",24,32,#80 DB 24," L
'ANALYSEUR S'EST PLANTE ",24,32,#80 DB 24," FORMATEE AVEC FDC SPECIAL
",24,32,#80 DB 24," NOMBRE SECTEURS DIMINUE ",24,32,#80 D
B 24," PISTES NON FORMATEES ",24,32,#80 TNIET DB " NON",8,8,8,#80
TMENUEND DB 31,2,16,24," OPERATIONS TERMINEES ",10,13,10,13 DB 9,"
Quitte ",10,13 DB 9," Reprends ",10,13
DB 9," Meme operation ",10,13 DB 9," Nouvelle operation ",24,7+#8
0 TDENSIT DB 31,3,1," DOUBLE DENSITE",#80 TDDENS DB "DOUBLE" TSDENS DB "SI
MPLE" TFENRES DB #1A,1,#17,4,20,12,#80 TFENSCR DB 26,0,79,0,24,#80 TFENEND
DB 26,24,79,4,25,12,#80 ------------------------------------------
-------------- FIN DE SECTION . SUGGESTION NOUVELLE ROUTINE D'ANALYS
E -------------------------------------------------------- REWRITE
LD 0 0 !N!!!!!!!!! Buffer et pointeurs SETLECT , PIST
SELPISTL CALL CPDRIVE Voir si 2 drives JR Z,UNDRIV NON
LD HL,#2919 2 Drives . Attendre disque destination CALL
#BB75 LD HL,TDESTIN CALL PRT -----------------
-------------------------------- - ANALYSE , INTERPRETATION , LECT
URE , STOCKAGE - -------------------------------------------------
UNDRIV CALL #BB06 LD HL,LISTERP Mise a zero de lste (qui est l
e premier de la piste) , soit un secteur d'ecrasement PLUS GRAND que la t
aille maximum de format . On testera donc aussi ce cas . Si ceci choue g
alement , l'avertissement 'JECOINCE' sera activ , il ne reste plus qu' prier
pour que l'erreur se corrige d'elle meme dans les routines qui suivent ...
--------------- SOLUTIO3A LD HL,TFGAP2A CR
/DDLMAX et plusieurs LENS OK CALL PRT LD A,(LMAX) Se
cteur 0 abime peut avoir CR/DD . OR A Dans ce cas pas mettr
e #FF dans LMAX !! JR Z,SOLUTION3 DEC C LMAX-1 si
CR/DD LMAX SOLUTION3 LD A,(LMIN) Si trouve taille 0 OK c'est forcement la
vraie ! OR A JR Z,VRAITZER LD A,C Plus
grande taille utilisee par les IDS VRAITZER LD (LMAX),A Ou taille maxi cal
culee si le ID est LMAX Echec analyse piste normal
e suvi de echec CR/DD LD HL,TFGAP2 dans 99% des cas c'est une piste
avec des secteurs CALL PRT ecrases renvoyant un faux GAP on re
cherche donc un #4E pour avoir la taille du format avan
t ecrasement LD A,(LISTERR) MAM en tete invalide lire piste
AND %00000011 Sauter en solution 4 CP %00000011 JP Z,SOLU
TION4 LD HL,LITFDC2 CALL COMLIPI LD IY,LMAX
Limite de recherche a LMAX XOR A Depart au minimum
LD HL,128 CALL RANGLON NEXTLO1 LD A,#FF LD (BUFGA
PS),A LD A,(QUATRID+3) Preserver parametre ID PUSH AF
LD A,7 Lire piste sur LEN 7 LD (QUATRID+3),A C
ALL INSTRU9 POP AF LD (QUATRID+3),A Recuperer parametre ID
LD A,(BUFGAPS) CP #4E Tester GAP JR NZ,PA
SBON2 CALL FINDGAP Trouve octet #4E en position JR C,F
INAL Si longueur GAP OK c'est sans doute bon RES 2,(HL) Sino
n c'est a revoir PASBON2 LD A,(QUATRID+3) Voir si derniere longueur testeeL
MAX+1 CP (IY+0) JR Z,DURDUR Si oui probleme et tester s
ur longueur 1er secteur CALL INCLONG JR NEXTLO1 DURD
UR LD A,(IDINDRA+3) Le 1er secteur ecrit est peut-etre plus grand CAL
L ADDLON que la taille maxi possible , on renouvelle LD A,7
l'operation sur cette base LD (QUATRID+3),A CALL INSTRU
9 Retourner voir le GAP LD A,(BUFGAPS) CP #4E
CALL NZ,JECOINCE Rien a faire ! CALL FINDGAP CALL NC,JECOINC
E LD A,(LMIN) On considere alors la plus petite taille
CP #FF possible comme la vraie JR NZ,LMININI INC A
Si reste a #FF ce sera 0 LMININI PUSH AF CALL ADDLON On
parametre et on espere que ECRASER resoudra POP AF le problem
e . CALL RANGLON --------------------
Ici on a trouv a coup sur ou estim la vraie taille du format . Si c
e programme tait moins astucieux , il aurait betement cherch le GAP avec un
lire piste sur la taille maximum possible et se serait plant . Pour
information , on effectue quand meme cette opration afin de connaitre la
fausse taille et les valeurs trouves par lire piste en lieu et place d'un G
AP garanti sans colorant ! . Il est vident que dans le cas ou le programme es
t pass par DURDUR , ces valeurs se confondront avec les vraies valeurs .
-------------------- FINAL LD A,(QUATRID+3) Pre
server les vraies valeurs de format PUSH AF LD HL,(LONGSEC)
PUSH HL LD A,(GAPFORM) LD B,A PUSH BC
CALL SETECRA Marquer et annoncer secteurs ecrases LD A
"N""""""""",(LIDMAX) Chercher valeurs du faux gap LD (FAUXLEN),A
LD (QUATRID+3),A CALL ADDLON LD A,7 LD (QUA
TRID+3),A NEXTLO CALL INSTRU9 Relire piste mais avec la fausse taille ma
xi LD A,(BUFGAPS) des secteurs et stocker LD (FAUXGAP),A
LD HL,SETBAD2 Ici c'est forcement un resultat faux , on
LD (SAUTBAD+1),HL annule une partie du test d'erreur CALL FINDGAP2
Pour secteurs ecrits LD HL,SETBADLEN Pour la restaurer aussit
ot . LD (SAUTBAD+1),HL LD A,(GAPFORM) Et on range les fa
usses valeurs LD (FAUXLGF),A POP BC Avant de rec
uperer les vraies LD A,B LD (GAPFORM),A POP HL
LD (LONGSEC),HL POP AF LD (LENSEC),A LD (QU
ATRID+3),A LD A,#4E LD (VALGAPF),A CALL FINDREMP
Chercher octet FILL JP ECRASER Et aller au traitement des secteu
rs ecrases ---------------- FIN DE SE
CTION LA LECTURE DE 'FINDGAP2' EST SUGGEREE AVEC VIRULENCE !
--------------------------- du format et des GAPS n'a pu
- AFFICHAGE DU RESULTAT GENERAL - --------
------------------------- CALL FENRES1 Afficher LD HL
,TNBSEC Nombre secteurs CALL PRT LD A,(NBSEC) CAL
L LD HL,IDINDRA IDS LD DE,LISTERR LD A,(NBSEC)
LD B,A LD C,4 NEXTIMP DEC C CALL Z,CRIMP1
PUSH BC WAITIMP CALL #BD2E Attendre un peu pour ne pas perdre des cara
cteres JR C,WAITIMP CALL AFF4ID POP BC L
D A,(DE) INC DE PUSH HL PUSH DE PUSH BC
LD (FLAGERR),A CALL PRT3ERR LD HL,TSEPIMP
CALL PRT POP BC QUOI NE LE FAIT-IL PAS Vous avez vu la taille
du code source de la version actuelle !! COMMENT IL FAIT CE QU'IL PEUT
Tous les dtails suivent dans la mare de fichiers qui va noyer vos esprits ba
his . Pour esprer comprendre quelque chose notez bien ce qui suit ---
---------------------------------------------------------------------- - RAPP
EL DES ETATS D'ERREUR LES PLUS COURANTS ET CE QU'ON PEUT EN DEDUIRE - ------
------------------------------------------------------------------- CR/
DD Lorsque ces 2 messages sont simultans on sait que 1 La longueur
dclare dans l'ID est diffrente de la taille de formatage . On peut dj
dire de quelle(s) taille(s) le format N'EST PAS CONSTITUE 2 Si la l
ongueur d'un CR/DD est PLUS GRANDE que la vraie taille de formatage on es
t sur d'y trouver le GAP et sa longueur et d'en dduire la vraie taille du
format . 3 Un secteur CR/DD n'a PAS ETE ECRIT . On est assur d'y trou
ver le vritable octet de remplissage . CR ou DD Si l'un ou l'autr
e apparait isolment , la lecture a t influence par une erreur du drive ou u
n dfaut de surface du disque . MAM Si ce message concerne un secteu
r de taille 0 c'est normal et cela signifie qu'un secteur dont la taille
dclare dans l'ID est 0 a t crit . (Ecriture d'un taille 0 correcte impossibl
e ce jour sur CPC) . Dans tout autre cas meme signification que CR ou DD seul
. OK Message lourd de significations ! Si il est joint un secteur
de taille 0 on sait que le secteur concern n'est pas crit , que l'on y
- trouvera l'octet de formatage , que c'est la vraie taille du format puisqu
e dans tout autre cas on aurait un CR/DD ou un MAM . Pour tout autre tai
lle , on pourra envisager cette valeur comme l'une des tailles de format possi
bles et on est sur que ce secteur est crit avec des donnes cohrentes .
Si la routine FINDLEN de SOS3 (rutilise comme 1er test) russit tou
t va bien , sinon l'application pratique de ces dductions permet une prem
ire dcantation du problme . Dans les situations d'chec de ces deux systmes
, sachant que le nombre de secteurs sur une piste est fonction de leur tail
le et du GAP , une srie de comparaisons entre les diffrentes valeurs pos
sibles et les valeurs maximales tolres permettront de choisir la routine de tr
aitement approprie . Dans le cas de secteur #N#########s crass , il y-
parfois une ambiguit concernant la taille d'origine du format . Dans ce cas ,
la recherche du GAP qui se fait toujours par une instruction 'Lire piste' se
fait 2 fois . La premire avec la taille de format que l'on aurait aim nous
faire prendre pour la vraie et dans ce cas on trouvera une valeur de GAP #4E .
La seconde se fait avec les vraies valeurs et donne le rsultat convenable . A
prs analyse d'une piste de ce genre , en plus des vraies donnes , le programme
vous informe des valeurs trouves lors de la premire recherche sous les
nom FAUX GAP , FAUSSE LONGUEUR DE GAP , FAUSSE TAILLE DE FORMAT . Il arrive
aussi qu'une ambiguit persiste (Plusieurs IDS de longueur sont diffrents
mais il n'y a aucun lment permettant de certifier que la piste porte un fo
rmat cras) . Dans ce cas les secteurs sont malgr tout crass par le copie
ur et la ligne 'TAILLE POSSIBLE' vous donne la seconde taille de secteurs qui
AURAIT PU etre valable . Bien que le programme soit trs diffrent de
ce qui t prsent dans les numros prcdents , de nombreuses routines sont les
memes . Les labels des routines communes tous les numros de SOS PROGRAMMEURS
n'ont pas chang d'un caractre et ont toujours la meme fonction . Aut
ant que faire se peut , les registres du Z80 sont utiliss de la meme manire .
Ce qui suit peut vous servir de guide dans 95% des grosses routines
. HL Pointeur principal de la liste des donnes en cours de traitement
. Peut etre utilis temporairement pour une incrmentation ou une addition mais
dans ce cas est toujours prserv et restitu . DE Pointeur de la liste d
e donnes secondaires quant on en utilise une (LISTERR par exemple) . Fourre t
out dans les autres cas . B Dans les boucles de traitement , contien
t toujours le nombre de secteurs et est toujours prserv . C Compteur s
econdaire 8 bits o mmorise une valeur de comparaison dans les sries de tests .
IX Toujours le pointeur des IDS dans les sections d'analyse et le
pointeur des adresses buffer en stockage et criture . IY Homme de paill
e usages multiples . -------------------------------
- FIN DE SECTION . LES FICHIERS COPIEUR , ROUTINES FDC , PEUVENT ETRE
LUS INDEPENDAMENT . TOUT CE QUI CONCERNE L'ANALYSE ET LA REPRODUCTION A G
RAND INTERET A ETRE SUIVI DANS L'ORDRE . ----------+---------+ Qua
----------------------------------- - FO
RMATAGE ET ECRITURE DE LA PISTE - -----------------------
------------ Cette courte routine se passe fort bien de prambule
. ------------------- - Stocker une pist
e complete . Si buffer plein retour avec NC - FORMATER LD HL,TFORMATE A
fficher texte formatage CALL PRT LD HL,(POINPIS) Pre
ndre le pointeur INC HL LD A,(HL) et recuperer FLA
GFNC LD (FLAGFNC),A INC HL LD (POINPIS),HL Poi
nte sur piste suivante si pas formatee BIT 3,A JP NZ,DEFO
RMA Piste origine pas formatee , deformater piste INC A
Inutilise dans cette version RET Z Piste en att
ente - Piste formatee . Reprendre parametres piste et remettre dans program
me - GOFORM LD E,(HL) Recupere longueur de secteur INC HL
LD D,(HL) LD (LONGSEC),DE INC HL LD DE,
LENSEC Recuperer LENSEC - NBSEC - GAPFORM - OCREMP LD BC,4 L
DIR LD A,(NBSEC) LD C,A LD B,0 PUSH B
C SLA C C C*4 SLA C LD DE,IDOUTDRA Recupe
rer les IDS et les stocker dans la liste LDIR de sortie
POP BC PUSH BC LD DE,LISTERR Et la liste des eta
ts d'erreur LDIR POP BC LD (POINPIS),HL Stopper
pointeur sur 1ers octets adresse buffer - Formater - WAITDIS LD HL,I
DOUTDRA CALL FORMATE La piste est formatee par la routine FORMATE
LD DE,#0213 Locate pour erreur drive CALL TSMISPROT Voir
si erreur drive . NC si oui JR NC,WAITDIS Attendre que drive ready
SCF Marquer format effectue RET Fini
$N$$$$$$$$$ - Deformater - DEFORMA LD HL,TDEFORM Texte deformatage
CALL PRT LD A,1 Un seul secteur LD (NBSE
C),A LD A,6 De taille 6 LD (LENSEC),A WAITDIS1
LD HL,TABDEFOR Avec des IDS bidons suffit a deformater une piste CALL
FORMATE LD DE,#0213 Locate pour erreur drive CALL TSMIS
PROT Voir si erreur drive . NC si oui JR NC,WAITDIS1 XOR A
Enlever CARRY pour signaler deformatage RET TABDEFOR DB
#FF,#FF,#FF,6 TFORMATE DB 31,2,20,24," FORMATAGE PISTE ",24,#80 TDEFORM D
B 31,2,20,24," DEFORMATE PISTE ",24,#80 ----
------------------ - ECRITURE DE LA PISTE -
---------------------- C'est exactement l'inv
erse de la routine de stockage . - Ecrire une piste complete - EC
RIRE LD HL,TECRIPI Textes ecriture CALL PRT LD HL,TGAPRW
GAP RW CALL PRT LD A,(GAPRW) CALL PRTHEX1
LD HL,TSECTS et secteurs CALL PRT LD HL,(POINPIS)
Recuperer le debut de la zone des adresses PUSH HL de stockag
e et mettre dans IX POP IX LD HL,LISTERR Etat
s d'erreur LD (POINTER),HL LD HL,IDOUTDRA Et IDS a ecrire
LD (POINTID),HL - Routine ecriture physique - XOR A
Compteur 0 LD (COUNT),A LD A,(NBSEC) LD
B,A BCLWRIP PUSH BC LD HL,(POINTID) Passer les 4IDS au programme
y compris la piste . CALL IDTRANS4 LD A,(QUATRID+2) Les sect
eurs sont ecrits un a un , le dernier LD (DERSEC),A secteur a ecrir
e est donc le meme LD (POINTID),HL Pointer la suite des IDS
LD L,(IX+0) Adresse de depart ecriture LD H,(IX+1) L
D (ADBUFF),HL Dans ADBUFF LD HL,(POINTER) LD A,(HL)
Marque secteur ecrase CP #7F Oui . Ce secteur a ete detrui
t par l'ecriture JP Z,CRUNCHE precedente . Sauter SANS AVANCER LE C
OMPTEUR . CP #FF Voir si le secteur a ete stocke sous forme
compactee LD B,#45 Si oui ecrire en repetant OCREMP par routine s
peciale JR Z,NOCMCOMP Sans CM CP #F7 Avec CM
JR NZ,PACOMPAC Octet a subi un XOR #FF si compacte d'ou #FF & #F7 !
LD B,#49 NOCMCOMP LD A,B Ecrire avec la routine speciale qui transem
et LD HL,WRITFDC2 toujours le meme octet . CALL SETCOM2
JR ECRIR1 Aller ecrire PACOMPAC LD A,(QUATRID+3) Voir si taille
0 OR A JR NZ,PASTZER Non LD HL,(POINTER) N'ec
rire taille 0 que si MAM ou DAM LD A,(HL) AND %00000011 MA
M - DAM JP Z,RIENECRI NON LD B,#45 JR CMNOT1
Sinon ecrire n'importe quoi pour reproduire MAM PASTZER LD A,(FLAGFN
C) Si piste a reparer , ignorer ce qui suit et tenter AND %01000000 l
'ecriture de toute maniere JR NZ,ECRIR2 LD HL,(POINTER)
LD A,(HL) AND %00110111 Si pas d'erreur PROVOQUEE sauf EP-HD
-CM , c'est bon JP NZ,RIENECRI Sinon ne rien ecrire ECRIR2 LD B,
#45 CM or not CM LD HL,(POINTER) LD A,(HL)
AND %00001000 JR Z,CMNOT1 LD B,#49 CMNOT1 LD A,B
Commande ecrire secteur LD HL,WRITFDC CALL SETCOM2
ECRIR1 CALL VISINST Viser d'apres COUNT et executer instruction L
D DE,#0213 Locate pour erreur drive CALL TSMISPROT Voir si erreur d
rive . NC si oui JR NC,ECRIR1 Boucler si FDC pas content
CALL TSTERRS Tester etat d'erreur LD A,"&" Afficher res
ultat d'ecriture CALL #BB5A LD A,(QUATRID+2) CALL
PRTHEX1 CALL INV CALL PRT3ERR CALL INV RIENEC
RI LD HL,COUNT Au suivant INC (HL) CRUNCHE LD HL,(POINTER)
INC HL LD (POINTER),HL INC IX INC IX
POP BC DEC B JP NZ,BCLWRIP S'il en reste LD L
,(IX+0) Adresse de depart prochaine ecriture LD H,(IX+1) LD
(POINPIS),HL LD A,23 CALL EFFLINE %N%%%%%%%%% SCF
RET TECRIPI DB 31,2,21,24," ECRITURE PISTE ",24,18,#80 TSECT
S DB 31,20,22,24," SECTEURS ",24,32,18,#80 TGAPRW DB 31,2,22,24," GAP RW "
,24,32,"&",18,#80 -------------------------
Voil . C'est la fin de la grosse tartine ! Reste parcourir la section ro
utines pour y trouver les quelques modifications apportes par rapport la vers
ion prcdente . -------------------------ISTE
- Pointer GAP MAXI dans table JR Z,GAPVERI1 INC HL
INC C JR BCLGAPV GAPVERI1 LD A,(GAPFORM)Voir si GAP ho
rs limite LD B,A LD A,(HL) CP B RET NC
LD (GAPFORM),A Rectifier si oui RET SETGRW LD A,(GA
PFORM) CP 1 JR Z,SETGRW1 SRL A SETGRW1 LD (GAPRW
),A RET T0DD DB 239,210,185,163,144,126,110,96,83,71,59,50,38,
31,24,17,10,3 T1DD DB 216,171,134,102,74,49,16,8 T2DD DB 230,129,50
T3DD DB 191 - Variables buffer ADBUFF DW 0 Adresse buffer EFF
LB1 RET AFFPIST RET TCOPDRV DS 100 ---------
---------------- Fin des programmes comments FDC . Les sections c
omprenant les sous routines d'affichage , d'edition , etc ... Ainsi que la
section variables n'ayant pas subi de modifications depuis le numro 2 ne son
t pas reproduites ici . -------------------------
LD HL,ET0 JEBOS1 IN A,(C) CP #C0 JR C,JEBOS1
INC C IN A,(C) B1 RET AFFPIST RET TCOPDRV DS 100
------------------------- Fin des programmes commen
ts FDC . Les sections comprenant les sous routines d'affichage , d'editio
n , etc ... Ainsi que la section variables n'ayant pas subi de modificatio
ns depuis le numro 2 ne sont pas reproduites ici .
-------- OR L JR Z,TSTGAP TSTFDCA IN A,(C) JP P,TSTFDCA AND #20
JP Z,RESULT INC C IN A,(C) DEC C DEC HL JR TSTFDC3 TSTGAP
IN A,(C) JP P,TSTGAP LD HL,BUFGAPS LD DE,267 JR LITFDC3 ------
------------------ - LITFDC4 Lire et stocker l'octet de remplissage et sauter
- - LITFDC5 Compter les octets de remplissage jusqu'au CRC et sauter - - LIT
FDC6 Lire et compter le GAP - - LITFDC7 Attendre la fin de la lecture - L
ITFDC4 PUSH HL LD DE,-2 --------------
----- - REPONSES DIVERSES -
------------------- CLEAR INPUT n'est pas valable sur CPC 46
4 mais le call &BB03 fonctionne sur tous les CPC . On peut aussi raliser
l'quivalent de CLEAR INPUT en basic avec la ligne suivante 10 WHIL
E INKEY$""WEND La fonction basic INKEY$ ayant pour role d'extraire
un caractre du buffer clavier , le programme restera en attente dans la
boucle WHILEWEND tant que la fonction INKEY$ pourra extraire un caractre .
Quant elle ne le pourra plus , le buffer clavier sera vide . C.Q.F.D.
---------------------- A moins de rcrire le pr
ogramme binaire , AMSWORD ne peut excder 128 colonnes .
---------------------- Pour obtenir l'affichage en dcima
l des valeurs absolues exprimes en hexadcimal au dessus de &8000 par PRINT
, une seule solution Ajouter 65536 la valeur exprimer .
PRINT &9000+65536 Rien d'autre faire , le CPC consi
dre les valeurs hexadcimales comme des entiers SIGNES et dans ce cas to
ute valeur de &8001 &FFFF est considre comme ngative .
---------------------- Adaptation d'un 5p.1
/4 en lecteur A sur 464 . Question qui appelle d'abord un c
ommentaire . SOS PROGRAMMEURS rpond TOUTE question de PROGRAMMATION e
t a c'est de l'lectronique ! Nous n'avons pas d'lectronicien capable de bid
ouiller les tripes du CPC et encore moins de crer les plans d'une interface .
Seconde considration . Cette question
nous t pose par M.BITAN de CRETEIL (Qui ne fait pas partie de nos abonns)
. Dans la mesure o il se recommandait d'un de nos plus fidles soutients ,
nous avons cherch dans la bibliothque &N&&&&&&&&&UTIL-SOFT un ouvrage trai
tant du sujet . Comme le schma s'appliquait un CPC 6128 , M.MAIGROT p
ris la peine d'ouvrir son interface drive pour localiser l'quivalence
des connexions et de rpondre par courrier en fournissant les rfrences de l'
ouvrage o trouver le schma . Nous ne pouvons lui donner plus d'informatio
ns ce sujet et ne comprenons pas pourquoi il repose la question , cett
e fois par l'intermdiaire de l'abonn duquel il se recommandait
------------------------ Comment faire une
addition 16 bits sur HL quand tous les registres doubles sont occups
Avez vous des astuces pour des calculs simples en assembleur Pou
r la premire partie de la question a va mais pour la seconde , l'instar
de BLOOD dbarquant sur la plante de MAXXON , je serais tent de rpondre OU
I MOI CONNAITRE ASTUCES ! et d'ajouter MOI VOULOIR SAVOIR QUOI TOI CONNAITR
E ... N'tant pas d'une nature succomber la tentation , une srie d'ides di
verses sur multiplications et divisions , suit . 1re rponse E
n principe on fait PUSH BC LD BC,NN
ADD HL,BC POP BC On peut to
utefois avoir de bonnes raisons de ne pas utiliser cette structure , n
otament lorsque le temps d'xcution est vital . Dans ce cas , ce qui suit ,
bien que plus long en octets , demande un temps d'xcution infrieur ce qu
i prcde . ADDIT1 LD A,#N Addition de la valeur 8 Bits contenue dan
s A au ADD A,L double registre HL . JR NC,NOCARRY
Si le CARRY est mis , il faut bien sur incrmenter INC H l'oc
tet fort comme dans toute opration arythmtique NOCARRY LD L,A normale
. ......... SUBS1 LD A,L La meme pour une soustractio
n . SUB #N JR NC,NOCARRY DEC H NOCARRY LD L,A
......... LD A,H Les 2 memes dans le cas o la vale
ur ajouter ADD A,#N ou soustraire est sur 16 bits . Noter que
dans LD H,A ce cas , la solution d'origine avec PUSH & POP
JR ADDIT1 est aussi bonne ! LD A,H SUB #N
LD H,A JR SUBS1 Pensez aussi que si l'tat du
carry est indiffrent lors d'une soustraction 16 bits AND A
Dans ce cas , le CARRY est mis si HL BC LD BC,#A335 SB
C HL,BC On peut faire LD BC,-#A335 Le plus minable des as
sembleurs connait le signe moins ADD HL,BC Mais dans ce cas le CARR
Y n'est plus mis si HL BC ce qui peut etre trs gnant si l'on fait un test d
e comparaison HL BC ! 2me rponse Ides en vrac . Multiplier ou
diviser un registre 8 bits par 2 Ou R reprsente n'importe quel regist
re 8 bits . SLA R Multiplication par 2 . Le CARRY est mis en cas de d
bordement . Pour le registre A spcifiquement , ADD A,A conomisera un octet
. SRL R Division . Le CARRY est mis en cas de dbordement .
Si l'on ajoute des SLA ou SRL aprs le premier , l'opration se fera par 4,8,1
6,32,64 . Multiplier ou diviser un registre 16 bits par 2 SLA
E Multiplie E par 2 en tenant compte du CARRY RL D Comme SLA mais en
plus , le CARRY est recopi dans le BIT 0 Pour HL et IX , on aura intre
t a faire ADD HL,HL - ADD IX,IX SRL E Division par 2 . RR D
Comme sur 8 bits , la rption de ces 2 instructions effectuera
l'opration par 4,8,16,32,64,128,Etc ... Pour voir si un registre doub
le 0 LD A,D Le FLAG Z est mis si DE0 OR E Voil pour l
a seconde partie . S'il vous en faut plus , crivez nous en prcisant votre p
ense . --------------------
Comment passer des paramtres du basic l'assembleur Si il n'y-a qu'un
seul paramtre (CALL ADRESSE,N) le problme est rgl en 5 lignes d'assembleur
. A l'entre du programme , A contient le nombre de paramtre transmis et DE
la valeur du paramtre. Possibilits CALL 30000,1234 ou X%234CA
LL 30000,X% ou X%234Y%124 CALL 30000,X%+Y%-123 NOTE Les variabl
es transmettre doivent toujours etre prdfi 'N'''''''''nies faute de quo
i on recevra un IMPROPER ARGUMENT . Le message OVERFLOW sera renvoy si l
'on envoie une valeur entire ( que 65536) ces routines . ORG 3000
0 CP 1 ANombre de paramtres transmis RET NZ
LD (STOCK),DE On trouve toujours le dernier paramtre RET
dans DE STOCK DB 0 Si il faut passer plusieurs paramtr
es , on les rcuprera successivement dans le registre IX , ceci sans oublier q
ue l'adressage du Z80 fait les pieds au mur et que l'octet faible d'une valeu
r 16 bits est stock en tete ! CALL 30000, PARA1 , PARA2 , PARA3 e
tc .... (IX+5)&
4 (IX+3)&2 (IX+1)&0 ORG 30000 CP 3 ANombre
de paramtres transmis RET NZ LD L,(IX+0) LD H,(
IX+1) LD E,(IX+2) LD D,(IX+3) LD C,(IX+4)
LD B,(IX+5) LD (STOCK),HL LD (STOCK1),DE LD (STOCK2
),BC RET STOCK1 DW 0 STOCK2 DW 0 STOCK2 DW 0 P
our des variables entires ou alphanumriques , on procdera de la meme manire
mais c'est le pointeur de variable qui sera transmis au lieu de la variabl
e elle meme . PUB Ce problme t trait (entre autres) en long en larg
e et en travers dans le 1er cours d'assembleur UTIL-SOFT qui ne coute que 165
F ----------------------- GATE ARRAY et CRT
C UTIL-SOFT rponse PRESQUE tout , dans la mesure o le GATE ARRAY est un
circuit sur lequel il n'existe aucune documentation il est difficile de fair
e un cours sur ce sujet sans recopier des extraits d'ouvrages publis plus
o moins rcement . L'tude de ces circuits , dont la maitrise est le secret de
s scrollings performants , est en cours . Nous aurons sans doute des rvl
ations intrressantes vous faire l'an prochain dans les cours de graphism
e sans qu'il soit ncssaire de recopier les ouvrages de nos confrres .
COURS DE GRAPHISME Les cours d'animation graphique remplaceront l'tude
du FDC dans la version SOS PROGRAMMEURS 1990 , c'est donc prvu . Il faut
toutefois noter que pour fonctionner correctement , la srie SOS PROGRAMMEURS
doit compter au moins 100 souscripteurs (Abonnement pour les 4 disquettes
annuelles avant le 1er dcembre 89) . Abonnez vous , aboonez vos amis pour
noel , votre concierge , votre chien , etc ... Gnrateur de sprites
Merci de l'intret que vous lui tmoignez . Rponse dans informations UTIL
-SOFT . Scrolling Voir dans l'aure section rponses .
----------------------------------- - REPO
NSES DIVERSES - *I CONVERTIR *ku!!V!Q!L! G!B!!8!F3!"!"!
2!!" !*!2!'!- !0Z##Z Z &ZZ&ouu!G9ZNO 7 OK (O/N) SOS PROGRAMMEURS - Etude du F
DC - (C) M.MAIGROT AOUT89 U T I L - S O F T O A Tester etat drive B Param
etrer progr. C Convers.numerique D Format regulier E Format irregulie
r F Analyse de pistes G Lire donnees sec. H Reproduire sects. I Lire
une piste J Sauver buffer.bin K Charge buffer.bin L Cree piste buff
er Q Quitter programme EUL LD A,(NBSEC) Tester si un seul secteur sur
la piste DEC A-!---!---!---!---!---!---!---!---!---!---!---!---!--eur r
este dans C jusqu'a la fin LD A,(DE) Etat d'erreur AND %
00000011 MAM & DAM JR Z,NOMAMDANON , continuer LD IY,FLAG
MAM Oui marquer et sauter au suivant INC (IY+0) JR TESTOUT
NOMAMDA LD A,(DE)Reprendre etat d'erreur AND %00100100 CR & DD
CP %00100100IL nous faut VRAIMENT LES 2 Tous droits réservés. Reproduction sans autorisation interdite. © Kukulcan