开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 磁盘/存储 > SCSI/ASPI > 查看源码
RIPCD.PAS
资源名称：0cd.zip　[点击查看]
上传用户：hstrip
上传日期：2007-01-06
资源大小：51k
文件大小：8k
源码类别：

SCSI/ASPI

开发平台：

Pascal

RIPCD.PAS：源码内容
  1. {$A+,B-,D+,E+,F+,G+,I+,L+,N+,O+,P+,Q+,R+,S+,T-,V+,X+,Y+}
  2. {$M 16384,0,16384}
  3. Program RipCD;
  5. Uses
  6. Crt,Dos;
  8. Const
  9. DriveNo : Word = 4;
  11. Var
  12. _AX, _Flags : Word;
  14. Const
  15. DriverOk : Byte = 255;
  16. CDOk : Byte = 255;
  17. CDDrives : Byte = 0;
  19. Function cdExist : Boolean; Assembler;
  20. Asm
  21. CMP [CDOk],-1
  22. JE @@DOCHECK
  23. MOV AL,[CDOk]
  24. JMP @@EXIT
  25. @@DOCHECK:
  26. MOV AX,$1500
  27. XOR BX,BX
  28. XOR CX,CX
  29. INT $2F
  30. TEST BX,BX
  31. JNZ @@OK
  32. MOV AL,FALSE
  33. JMP @@EXIT
  34. @@OK:
  35. MOV AL,TRUE
  36. MOV [CDDrives],BL
  37. @@EXIT:
  38. MOV [CDOk],AL
  39. End;
  41. Function cdDriveCount : Byte; Assembler;
  42. Asm
  43. CALL cdExist
  44. OR AL,AL
  45. JZ @@NO_CD
  46. MOV AL,[CDDrives]
  47. JMP @@EXIT
  48. @@NO_CD:
  49. XOR AX,AX
  50. @@EXIT:
  51. End;
  53. Function driverExist : Boolean; Assembler;
  54. Asm
  55. CMP [DriverOk],-1
  56. JE @@DOCHECK
  57. MOV AL,[DriverOk]
  58. JMP @@EXIT
  59. @@DOCHECK:
  60. MOV AX,$1100
  61. PUSH $DADA
  62. INT $2F
  63. POP BX
  64. CMP AL,$FF
  65. JE @@OK
  66. @@NOT_OK:
  67. MOV AL,FALSE
  68. JMP @@EXIT
  69. @@OK:
  70. CMP BX,$ADAD
  71. JNE @@NOT_OK
  72. MOV AL,TRUE
  73. @@EXIT:
  74. MOV [DriverOK],AL
  75. End;
  77. Procedure Request(Prompt: String; rCommand,rParam: Byte; rDataLength: Byte; Var rData);
  78. Var
  79. DeviceRequest : Record
  80. Len : Byte;
  81. UnitNo : Byte;
  82. Command : Byte;
  83. Status : Word;
  84. Reserved : Array[1..8] Of Byte;
  85. TheData : Array[0..31] Of Byte;
  86. End;
  87. Data : Array[0..31] Of Byte;
  88. P : PChar;
  89. W : Word;
  91. Procedure SendRequest(Var R);
  92. Begin
  93. Asm
  94. MOV AX,$1510
  95. MOV CX,[DriveNo]
  96. LES BX,[DWORD PTR R]
  97. INT $2F
  98. End;
  99. End;
  101. Begin
  102. If Prompt<>'' Then
  103. Write('Reading: ',Prompt);
  104. With DeviceRequest Do Begin
  105. Len:=13;
  106. UnitNo:=0;
  107. Command:=3;
  109. TheData[0]:=0;
  110. P:=@Data;
  111. Move(P,TheData[1],4);
  112. W:=rDataLength+1;
  113. Move(W,TheData[5],2);
  114. TheData[7]:=0;
  115. TheData[8]:=0;
  116. TheData[9]:=0;
  117. TheData[10]:=0;
  118. TheData[11]:=0;
  119. TheData[12]:=0;
  120. End;
  121. Data[0]:=rCommand;
  122. Data[1]:=rParam;
  123. SendRequest(DeviceRequest);
  124. Move(Data[1],rData,rDataLength);
  125. If Prompt<>'' Then
  126. WriteLn;
  127. End;
  129. Function ReadVTOC(Var VTOC; Index : Word) : Word; Assembler;
  130. Asm
  131. MOV AX,$1505
  132. LES BX,[DWORD PTR VTOC]
  133. MOV CX,[DriveNo]
  134. MOV DX,[Index]
  135. INT $2F
  136. PUSHF
  137. POP [_Flags]
  138. MOV [_AX],AX
  139. JC @@ERR
  141. MOV [DosError],0
  142. JMP @@EXIT
  143. @@ERR:
  144. MOV [DosError],AX
  145. XOR AX,AX
  146. @@EXIT:
  147. End;
  149. Function cdDrive(Index : Byte) : Char; Assembler;
  150. Var
  151. Letters : Array[1..26] Of Char;
  152. Asm
  153. CMP [Index],0
  154. JE @@NO_DRIVE
  155. CALL cdDriveCount
  156. CMP AL,[Index]
  157. JB @@NO_DRIVE
  158. MOV AX,$150D
  159. MOV BX,SS
  160. MOV ES,BX
  161. LEA BX,[Letters]
  162. INT $2F
  163. MOV BL,[Index]
  164. XOR BH,BH
  165. MOV SI,BX
  166. MOV AL,[BYTE PTR Letters+SI-1]
  167. ADD AL,'A'
  168. JMP @@EXIT
  169. @@NO_DRIVE:
  170. MOV AL,0
  171. @@EXIT:
  172. End;
  174. Function cdDriveExist(Drive : Char) : Boolean; Assembler;
  175. Asm
  176. CALL driverExist
  177. OR AL,AL
  178. JZ @@NO_DRIVER
  179. MOV CL,[Drive]
  180. XOR CH,CH
  181. AND CL,$DF
  182. CMP CL,'A'
  183. JB @@NO_DRIVER
  184. CMP CL,'Z'
  185. JA @@NO_DRIVER
  186. SUB CL,'A'
  187. MOV AX,$150B
  188. XOR BX,BX
  189. INT $2F
  190. CMP BX,$ADAD
  191. JNE @@NO_DRIVER
  192. TEST AX,AX
  193. JZ @@NO_DRIVER
  194. MOV AL,TRUE
  195. JMP @@EXIT
  196. @@NO_DRIVER:
  197. MOV AL,FALSE
  198. @@EXIT:
  199. End;
  201. Function GetFileName(Func: Byte; Var Name) : Boolean; Assembler;
  202. Asm
  203. MOV AH,$15
  204. MOV AL,[Func]
  205. LES BX,[DWORD PTR Name]
  206. MOV CX,[DriveNo]
  207. INT $2F
  208. End;
  210. Procedure ReadSector(Index : LongInt; Var Sector); Assembler;
  211. Asm
  212. mov ax,$1508
  213. les bx,[dword ptr Sector]
  214. mov cx,[DriveNo]
  215. mov dx,$0001
  216. mov di,[word ptr Index]
  217. mov si,[word ptr Index+2]
  218. int $2f
  219. End;
  221. Procedure GetDiskFree(Var _ax,_bx,_cx,_dx : Word); Assembler;
  222. Asm
  223. mov ah,$36
  224. mov   dx,[DriveNo]
  225. inc dx
  226. int $21
  227. les di,[dword ptr _ax]
  228. mov [es:di],ax
  229. les di,[dword ptr _bx]
  230. mov [es:di],bx
  231. les di,[dword ptr _cx]
  232. mov [es:di],cx
  233. les di,[dword ptr _dx]
  234. mov [es:di],dx
  235. End;
  237. Procedure GetVolumeLabel(Var VL);
  238. Var
  239. SR : SearchRec;
  240. Begin
  241. Write('Reading: Volume label');
  242. FillChar(VL,13,#0);
  243. FindFirst(Chr(65+DriveNo)+':*.*',VolumeID,SR);
  244. While DosError=0 Do Begin
  245. If (SR.Attr And VolumeID)<>0 Then Begin
  246. If Pos('.',SR.Name)>0 Then
  247. Delete(SR.name,Pos('.',SR.Name),1);
  248. Move(SR.Name[1],VL,Length(SR.Name));
  249. Break;
  250. End;
  251. FindNext(SR);
  252. End;
  253. WriteLn;
  254. End;
  256. Var
  257. Data : Array[1..16] Of Byte;
  258. F,F2 : File;
  259. I : Word;
  260. TrackLo : Byte;
  261. TrackHi : Byte;
  262. VTOC : Array[0..16383] Of Byte;
  263. Index : Word;
  265. Dir : DirStr;
  266. Name : NameStr;
  267. Ext : ExtStr;
  268. Size : Word;
  269. InBuffer : Word;
  270. S : String;
  271. C : Char;
  272. _bx,_cx,_dx : Word;
  274. Begin
  275. If Not driverExist Then Begin
  276. WriteLn('MSCDEX not loaded');
  277. Halt(1);
  278. End;
  279. If ParamStr(1)='/?' Then Begin
  280. WriteLn('Usage: RIPCD filename d:');
  281. Halt(1);
  282. End;
  283. If cdDriveCount=1 Then Begin
  284. If (ParamCount<1) Or (ParamCount>2) Then Begin
  285. WriteLn('Invalid number of parameters; RIPCD /? for help');
  286. Halt(1);
  287. End;
  288. DriveNo:=Ord(cdDrive(1))-Ord('A');
  289. End Else Begin
  290. If ParamCount<>2 Then Begin
  291. WriteLn('Invalid number of parameters; RIPCD /? for help');
  292. Halt(1);
  293. End;
  294. S:=ParamStr(2);
  295. If (Length(S)=2) And (S[2]=':') And (UpCase(S[1]) In ['A'..'Z']) Then Begin
  296. C:=UpCase(S[1]);
  297. If Not cdDriveExist(C) Then Begin
  298. WriteLn('Drive ',C,': is not a cd-rom');
  299. Halt(1);
  300. End;
  301. DriveNo:=Ord(C)-Ord('A');
  302. End Else Begin
  303. WriteLn('Invalid parameters; RIPCD /? for help');
  304. Halt(1);
  305. End;
  306. End;
  307. FSplit(ParamStr(0),Dir,Name,Ext);
  308. Assign(F,ParamStr(1));
  309. ReWrite(F,1);
  310. I:=0;
  311. BlockWrite(F,I,2); { Offset of VTOC }
  312. BlockWrite(F,I,2); { Offset of Sectors }
  313. Request('Sector size',7,0,3,Data);
  314. BlockWrite(F,Data,3);
  315. Request('Volume size',8,0,4,Data);
  316. BlockWrite(F,Data,4);
  317. Request('Audio disk info',10,0,6,Data);
  318. BlockWrite(F,Data,6);
  319. TrackLo:=Data[1];
  320. TrackHi:=Data[2];
  321. Request('UPC code',14,0,10,Data);
  322. BlockWrite(F,Data,10);
  324. Write('Reading: Filenames');
  325. GetFileName(2,VTOC);
  326. BlockWrite(F,VTOC,38);
  328. GetFileName(3,VTOC);
  329. BlockWrite(F,VTOC,38);
  331. GetFileName(4,VTOC);
  332. BlockWrite(F,VTOC,38);
  333. WriteLn;
  335. GetVolumeLabel(VTOC);
  336. BlockWrite(F,VTOC,12);
  338. Write('Reading: Disk free data');
  339. GetDiskFree(_ax,_bx,_cx,_dx);
  340. BlockWrite(F,_ax,2);
  341. BlockWrite(F,_bx,2);
  342. BlockWrite(F,_cx,2);
  343. BlockWrite(F,_dx,2);
  344. WriteLn;
  346. BlockWrite(F,TrackLo,1);
  347. BlockWrite(F,TrackHi,1);
  348. Write('Reading: Audio track info, tracks ',TrackLo,'-',TrackHi);
  349. For I:=TrackLo To TrackHi Do Begin
  350. WriteLn(I);
  351. Request('',11,I,6,Data);
  352. BlockWrite(F,Data[2],5);
  353. End;
  354. WriteLn;
  356. I:=FileSize(F);
  357. Seek(F,0);
  358. BlockWrite(F,I,2);
  359. Seek(F,I);
  361. ReadVTOC(VTOC,0);
  362. Index:=0;
  363. Repeat
  364. Write('Reading: Sector ',Index);
  365. Write(', reading');
  366. ReadVTOC(VTOC,Index);
  367. If DosError<>0 Then Begin
  368. WriteLn(', end of table');
  369. Break;
  370. End;
  371. Write(', compressing');
  372. Assign(F2,'VTOC.TMP');
  373. ReWrite(F2,1);
  374. BlockWrite(F2,VTOC,2048);
  375. Close(F2);
  376. SwapVectors;
  377. If GetEnv('COMSPEC')='' Then
  378. Exec('C:COMMAND.COM','/C '+Dir+'CRUNCH.COM VTOC.TMP VTOC_C.TMP >NUL')
  379. Else
  380. Exec(GetEnv('COMSPEC'),'/C '+Dir+'CRUNCH.COM VTOC.TMP VTOC_C.TMP >NUL');
  381. SwapVectors;
  383. Assign(F2,'VTOC.TMP');
  384. Erase(F2);
  385. Assign(F2,'VTOC_C.TMP');
  386. ReSet(F2,1);
  387. BlockWrite(F,Index,2);
  388. Size:=FileSize(F2)+6;
  389. BlockWrite(F,Size,2);
  390. BlockWrite(F,_AX,2);
  391. BlockWrite(F,_Flags,2);
  392. BlockRead(F2,VTOC,16384,InBuffer);
  393. BlockWrite(F,VTOC,InBuffer);
  394. Close(F2);
  395. Erase(F2);
  396. WriteLn;
  398. Inc(Index);
  399. Until FALSE;
  400. ReadVTOC(VTOC,$FFFF);
  401. Index:=$FFFF;
  402. BlockWrite(F,Index,2);
  403. BlockWrite(F,Size,2);
  404. BlockWrite(F,_AX,2);
  405. _Flags:=_Flags Or 1;
  406. BlockWrite(F,_Flags,2);
  407. I:=FileSize(F);
  408. Seek(F,2);
  409. BlockWrite(F,I,2);
  410. Seek(F,I);
  411. Write('Reading: System sector 16');
  412. ReadSector(16,VTOC);
  413. Assign(F2,'VTOC.TMP');
  414. ReWrite(F2,1);
  415. BlockWrite(F2,VTOC,2048);
  416. Close(F2);
  418. SwapVectors;
  419. Exec(GetEnv('COMSPEC'),'/C '+Dir+'CRUNCH.COM VTOC.TMP VTOC_C.TMP >NUL');
  420. SwapVectors;
  422. Assign(F2,'VTOC.TMP');
  423. Erase(F2);
  424. Assign(F2,'VTOC_C.TMP');
  425. ReSet(F2,1);
  426. Size:=FileSize(F2)+6;
  427. BlockRead(F2,VTOC,16384,InBuffer);
  428. BlockWrite(F,VTOC,InBuffer);
  429. Close(F2);
  430. Erase(F2);
  432. WriteLn;
  433. Close(F);
  434. End.
  435. { return 33032 for invalid tracks }