home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol041 / cdossap.z80 < prev    next >
Encoding:
Text File  |  1984-04-29  |  8.4 KB  |  394 lines
  1. ;    SAP - SORT AND PACK DISK DIRECTORY
  2. ;
  3. ; Originally coded for CP/M by L.E. Hughes  8080SDC
  4. ;    Modified 5/30/78 BY B.R. Ratoff
  5. ;        1) PICK UP VECTORS FOR ANY SIZE SYSTEM
  6. ;        2) HANDLE NULL EXTENTS OF NON-NULL FILES
  7. ;            PROPERLY
  8. ; 
  9. ; Modified by Trevor MARSHALL 18/10/79
  10. ;    add SAP B:,etc AND ATTRIBUTE HIDE
  11. ; 
  12. ;
  13. ; Rewritten by Trevor MARSHALL, 13 Apr 80
  14. ;        Elec Eng Dept
  15. ;        Uni W.A.
  16. ; to be compatible with all disks supported by CDOS 2.17
  17. ; by including the 'READ SYSTEM DIRECTORY' feature 
  18. ; of the CDOS
  19. ;
  20. ; Modified 31 Oct '80 to handle the large files of
  21. ;  CDOS 2.36 by adding double precision pointer bumping
  22. ;
  23. ;********** WARNING ********* Do not use with hard disks
  24. ; (not tested other than with floppies)
  25. ;
  26. BDOS:    EQU    5
  27. FCB:    EQU    5CH
  28. ;
  29.     ORG    100H
  30. ;
  31. SAP:    LD    SP,STACK+64
  32.     LD    C,19H    ;WHAT DSK IS CURRENT?
  33.     CALL    BDOS
  34.     LD    (DSKSAV),A
  35.     LD    A,(FCB)    ;DSK REQUEST PRESENT?
  36.     LD    (SYSDIR),A ;Set up 'SYS   DIR' FCB
  37.     LD    (DSK),A       ;Save it for write
  38. ; Now check CDOS ver 1 or higher is in use
  39.     LD    C,8DH
  40.     CALL    BDOS
  41.     LD    A,B
  42.     CP    1
  43.     JR    GE,NEXT21
  44.     LD    DE,CDOSERR ;Must be incompatible sys
  45.     LD    C,9 ;Write error msg and exit
  46.     CALL    BDOS
  47.     JP    0
  48. NEXT21:    LD    C,0FH    ;Open SYS  DIR
  49.     LD    DE,SYSDIR
  50.     CALL    BDOS
  51.     CP    A,0FFH    ;Error?
  52.     JR    NZ,NEXT
  53.     LD    DE,OPENERROR ;Yes
  54.     LD    C,9    ;Print the message
  55.     CALL    BDOS
  56.     JP    0
  57. NEXT:    LD    DE,MSG1    ;.....reading
  58.     LD    C,9
  59.     CALL    BDOS
  60. ;
  61.     LD    A,0    ;Initialize
  62.     LD    (SECTORCOUNT),A ;the sector count
  63.     LD    DE,BUF-80H ;prepare for DMA increment
  64. LP1:    LD    HL,SECTORCOUNT
  65.     INC    (HL)    ;Incr the sectorcount
  66.     LD    HL,80H    ;Need to increment bffr pointer
  67.     ADD    HL,DE
  68.     EX    DE,HL
  69.     LD    C,1AH    ;Set DMA address to buffer
  70.     PUSH    DE    ;Save it
  71.     CALL    BDOS
  72.     LD    C,14H    ;Read next record
  73.     LD    DE,SYSDIR ;Point at 'FCB'
  74.     CALL    BDOS
  75.     POP    DE    ;Fetch buffer DMA addr
  76.     CP    A,0    ;Any errors?
  77.     JR    Z,LP1    ;No, get more sectors
  78.     CP    1
  79.     JR    Z,NEXT1 ;End of file OK
  80.     LD    DE,READERROR ;All else are errors
  81.     LD    C,9
  82.     CALL    BDOS
  83.     JP    0
  84. NEXT1:    LD    HL,SECTORCOUNT
  85.     DEC    (HL)    ;As we musn't pass the EOF
  86. ; We have now read in the directory. The number of
  87. ; records read is in sectorcount.
  88. ; Now calculate the directory memory image length.
  89.     LD    A,(HL)
  90.     LD    L,A
  91.     LD    H,0
  92. ; How long are the sectors?
  93. ; We may have to use a system call to find out
  94.     LD    DE,80H    ;Presently 80H
  95.     LD    C,89H    ;Multiply DE = DE * HL
  96.     CALL    BDOS
  97. ;
  98.     LD    HL,BUF    ;Add the buffer base addr
  99.     ADD    HL,DE
  100.     LD    (BUFEND),HL ;Save end addr in BUFEND
  101. ;
  102.     CALL    CLEAN         ;CLEAN THE DIRECTORY
  103. ;
  104.     LD    DE,MSG2    ;.....Sorting
  105.     LD    C,9
  106.     CALL    BDOS
  107. ;
  108.     CALL    SORT         ;SORT THE DIRECTORY
  109. ; I have deleted PACK as it is assumed that single disk systems
  110. ; will not be used under CDOS. User may modify as required
  111. ;    CALL    PACK         ;PACK THE DIRECTORY
  112. ;
  113. ; Now we must write the directory to the disk    
  114. WRITE:  LD    DE,MSG3    ;.....Writing
  115.     LD    C,9
  116.     CALL    BDOS
  117. ;
  118.     LD    A,(DSK)
  119.     LD    (SYSDIR),A ;Poke byte 1 of FCB
  120.     LD    C,0FH    ;Open SYS  DIR
  121.     LD    DE,SYSDIR
  122.     CALL    BDOS
  123.     CP    A,0FFH    ;Error?
  124.     JR    NZ,NEXT2
  125.     LD    DE,WRITEERROR ;Yes
  126.     LD    C,9    ;Print the message
  127.     CALL    BDOS
  128.     JP    0
  129. NEXT2:    LD    A,1    ;Initialize
  130.     LD    (SECTORSWRITTEN),A
  131.     LD    HL,SYSDIR
  132.     RES    7,(HL) ;Reset the 'read only' atribute
  133.     LD    DE,BUF-80H ;prepare for DMA increment
  134. LP11:    LD    HL,SECTORSWRITTEN
  135.     INC    (HL) ;increment the count of sectors
  136.     LD    HL,80H    ;Need to increment bffr pointer
  137.     ADD    HL,DE
  138.     EX    DE,HL
  139.     LD    C,1AH    ;Set DMA address to buffer
  140.     PUSH    DE    ;Save it
  141.     CALL    BDOS
  142.     LD    C,15H    ;Write next record
  143.     LD    DE,SYSDIR ;Point at 'FCB'
  144.     CALL    BDOS
  145.     POP    DE    ;Fetch buffer DMA addr
  146.     CP    A,0    ;Any errors?
  147.     JR    NZ,WERR    ;Yes
  148. ; Now see if we have finished write
  149.     LD    A,(SECTORCOUNT)
  150.     LD    HL,SECTORSWRITTEN
  151.     CP    (HL) ;Have we written enough?
  152.     JR    NC,LP11    ;No, get more sectors
  153.     JR    NEXT12
  154. WERR:    LD    DE,WRITEERROR ;All else are errors
  155.     LD    C,9
  156.     CALL    BDOS
  157.     JP    0
  158. NEXT12:    
  159. ; We have now written the directory.
  160.     LD    A,(DSKSAV) ;Restore logged disk
  161.     LD    E,A
  162.     LD    C,0EH
  163.     CALL    BDOS
  164.     JP    0    ;And exit to CDOS
  165. ;
  166. ;
  167. CLEAN:    LD    BC,0         ;III = 0
  168. CLEAN1:    LD    (III),BC
  169.     CALL    INDEX2         ;HL = BUF + 16 * III
  170.     PUSH    HL
  171. ; HL now contains the addr of the buffer entry
  172. ; we want to return if it is beyond BUFEND
  173.     XOR    A    ;Clear carry
  174.     LD    DE,(BUFEND) 
  175.     SBC    HL,DE    ;HL = HL - DE - CY
  176. ; DE should be  > HL, if not, return
  177.     POP    HL
  178.     RET    NC
  179. ;
  180. ; Continue
  181.     LD    A,(HL)         ;JUMP IF THIS IS A DELETED FILE
  182.     CP    0E5H
  183.     JP    Z,CLEAN2
  184.     LD    A,L         ;HL = HL + 12
  185.     ADD    12
  186.     LD    L,A
  187.     JP    NC,$+4
  188.     INC    H
  189.     LD    A,(HL)         ;CHECK EXTENT FIELD
  190.     OR    A
  191.     JP    NZ,CLEAN4    ;SKIP IF NOT EXTENT ZERO
  192. EXTENT0: INC    HL         ;POINT TO RECORD COUNT FIELD
  193.     INC    HL
  194.     INC    HL
  195.     LD    A,(HL)         ;CHECK RECORD COUNT FIELD
  196.     OR    A
  197.     JP    NZ,CLEAN4    ;JUMP IF NON-ZERO
  198.     LD    BC,(III)    ;Clear all 32 bytes
  199.     CALL    INDEX2
  200. CLEAN2:    LD    C,32
  201. CLEAN3:    LD    (HL),0E5H
  202.     INC    HL
  203.     DEC    C
  204.     JP    NZ,CLEAN3
  205. CLEAN4:    LD    BC,(III) ; III = III + 1
  206.     INC    BC
  207.     JP    CLEAN1
  208.     RET    
  209. ;
  210. COMP:    LD    BC,(III) ;;HL = BUF + 16 * III
  211.     CALL    INDEX2
  212.     PUSH    HL
  213.     LD    BC,(J)         ;HL = BUF + 16 * J
  214.     CALL    INDEX2
  215.     EX    DE,HL
  216.     POP    HL
  217. ; Need to allocate highest priority to disk label
  218.     LD    A,(DE) ;Is 2nd entry a label?
  219.     CP    81H    ;The label's attribute
  220.     JR    NZ,NEXT56 ;NZ=> not a label
  221.     SCF        ;Must be a disk label
  222.     RET        ;Swap them
  223. NEXT56:    LD    A,(HL) ;Is 1st entry a label?
  224.     CP    81H
  225.     JR    NZ,NEXT57
  226.     SCF
  227.     CCF    ;Dont swap
  228.     RET
  229. NEXT57: INC    HL
  230.     INC    DE    ;POINT PAST ATRIBUTES
  231.     LD    C,12         ;NUMBER OF BYTES TO COMPARE
  232. COMP1:    LD    A,(DE)         ;COMPARE NEXT BYTE
  233.     CP    (HL)
  234.     RET    NZ         ;RETURN IF NOT EQUAL
  235.     INC    DE
  236.     INC    HL
  237.     DEC    C         ;LOOP THRU FIRST 13 BYTES
  238.     JP    NZ,COMP1
  239.     XOR    A         ;CLEAR FLAGS AND EXIT
  240.     RET    
  241.     
  242. SORT:    LD    BC,0         ;III = 0
  243.     LD    (III),BC
  244. SORT1:    LD    BC,(III)         ;J = III + 1 
  245.     INC    BC
  246.     LD    (J),BC
  247. SORT2:    CALL    COMP         ;IF NAME(J)<NAME(III), SWAP
  248.     CALL    C,SWAP
  249.     LD    BC,(J)         ;J = J + 1
  250.     INC    BC
  251.     LD    (J),BC
  252. ;
  253. ; See if J beyond BUFEND
  254.     CALL    INDEX2
  255. ; HL now contains the addr of the buffer entry
  256. ; we want to jump if it is not beyond BUFEND
  257.     XOR    A    ;Clear carry
  258.     LD    DE,(BUFEND) 
  259.     DEC    DE ;Make end addr not inclusive
  260.     SBC    HL,DE    ;HL = HL - DE - CY
  261. ; DE should be  > HL 
  262.     JR    C,SORT2
  263. ;
  264.     LD    BC,(III)  ;III = III + 1
  265.     INC    BC
  266.     LD    (III),BC
  267. ;
  268. ; See if I beyond BUFEND - 10H
  269.     CALL    INDEX2
  270.     PUSH    HL
  271. ; HL now contains the addr of the buffer entry
  272. ; we want to jump if it is not beyond BUFEND-20H
  273.     LD    DE,(BUFEND) 
  274.     DEC    DE ;Make end addr not inclusive
  275.     LD    HL,-20H
  276.     ADD    HL,DE
  277.     EX    DE,HL ;Now have end addr - 10H
  278.     XOR    A    ;Clear carry
  279.     POP    HL
  280.     SBC    HL,DE    ;HL = HL - DE - CY
  281. ; DE should be  > HL 
  282.     JR    C,SORT1
  283. ;
  284.     RET    
  285. ;
  286. ;    
  287. SWAP:    LD    BC,(III)
  288.     CALL    INDEX2
  289.     PUSH    HL
  290.     LD    BC,(J)
  291.     CALL    INDEX2
  292.     EX    DE,HL
  293.     POP    HL
  294.     LD    C,32
  295. SWAP1:    LD    A,(DE)
  296.     LD    B,A
  297.     LD    A,(HL)
  298.     LD    (DE),A
  299.     LD    (HL),B
  300.     INC    DE
  301.     INC    HL
  302.     DEC    C
  303.     JP    NZ,SWAP1
  304.     RET    
  305.     
  306. ; Bump index in double precision
  307. INDEX2:    PUSH    BC    ;Get BC
  308.     POP    HL    ;into HL
  309.     ADD    HL,HL    ; X 2
  310.     ADD    HL,HL    ; X 4
  311.     ADD    HL,HL
  312.     ADD    HL,HL
  313.     ADD    HL,HL    ; X 32
  314.     LD    DE,BUF
  315.     ADD    HL,DE
  316.     RET    
  317.     
  318. ;PACK:    LD    BC,0         ;III = 0
  319. ;    LD    (III),BC
  320. ;PACK1:    LD    BC,(III)
  321. ;    CALL    INDEX2         ;HL = BUF + 16 * I
  322. ;    LD    A,L         ;HL = HL + 9
  323. ;    ADD    9
  324. ;    LD    L,A
  325. ;    JP    NC,$+4
  326. ;    INC    H
  327. ;    LD    A,(HL)         ;JUMP IF FILETYPE NOT 'X$$'
  328. ;    SUB    '0'         ;  WHERE 0.LE.X.LE.9
  329. ;    JP    C,PACK2
  330. ;    CP    10
  331. ;    JP    NC,PACK2
  332. ;    LD    (J),A    ;  ?????
  333. ;    INC    HL
  334. ;    LD    A,(HL)
  335. ;    CP    '$'
  336. ;    JP    NZ,PACK2
  337. ;    INC    HL
  338. ;    LD    A,(HL)
  339. ;    CP    '$'
  340. ;    JP    NZ,PACK2
  341. ;    INC    HL         ;SET EXTENT NUMBER TO X
  342. ;    LD    A,(J)    ; ????
  343. ;    LD    (HL),A
  344. ;    DEC    HL         ;SET FILETYPE TO '$$$'
  345. ;    LD    (HL),'$'
  346. ;    DEC    HL
  347. ;    LD    (HL),'$'
  348. ;    DEC    HL
  349. ;    LD    (HL),'$'
  350. ;PACK2:    LD    BC,(III)         ;I = I + 1
  351. ;    INC    BC
  352. ;    LD    (III),BC
  353. ;
  354. ; See if I beyond BUFEND
  355. ;    CALL    INDEX2
  356. ; HL now contains the addr of the buffer entry
  357. ; we want to jump if it is not beyond BUFEND
  358. ;    XOR    A    ;Clear carry
  359. ;    LD    DE,(BUFEND) 
  360. ;    SBC    HL,DE    ;HL = HL - DE - CY
  361. ; DE should be  < HL 
  362. ;    JR    C,PACK1
  363. ;    RET    
  364. ;
  365. ; ERROR MESSAGES
  366. ;
  367. CDOSERR:   DB    0AH,0DH,'Incompatible with this version of CDOS.$'
  368. OPENERROR: DB    0AH,0DH,'Error in opening directory file.$'
  369. READERROR: DB    0AH,0DH,'Error whilst reading directory.$'
  370. WRITEERROR: DB    0AH,0DH,'Error whilst writing directory.'
  371.         DB    0AH,0DH,'The image starts in memory at 500 H'
  372.         DB    0AH,0DH,'Save it on a BLANK disk (allow 40 Blocks).$'
  373. MSG1:    DB    0AH,0DH,'......Reading$'
  374. MSG2:    DB    0AH,0DH,'......Sorting$'
  375. MSG3:    DB    0AH,0DH,'......Writing$'
  376. ;
  377. ;    DATA AREA
  378. ;
  379. SYSDIR:    DB    0,'SYS     DIR',0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  380. ;
  381. STACK:    DEFS    64
  382. SECNO:    DEFS    1
  383. SECTORSWRITTEN: DS 1
  384. SECTORCOUNT: DS    1
  385. III:    DEFS    2
  386. J:    DEFS    2
  387. DSKSAV: DS    1
  388. DSK:    DS    1
  389. BUFEND:    DS    2
  390.     ORG    500H
  391. BUF:    DEFS    8192
  392. ;
  393.     END    100H
  394.