home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / BEEHIVE / UTILITYS / PACK10.ARC / PACK.Z80 < prev   
Text File  |  1991-03-10  |  29KB  |  1,465 lines
  1.     .title    'Pack Disk'
  2.  
  3. ;     FDC, 29 August 1987
  4.  
  5. version    equ    10
  6.  
  7. fcb1:    equ    5ch
  8. fcb2:    equ    6ch
  9. buff:    equ    80h
  10.  
  11. lf:    equ    10
  12. cr:    equ    13
  13. ctrlz:    equ    26
  14.  
  15. MAXLIN:    equ    128        ; maximum input line length
  16.  
  17.     extrn    print,cout,cin,condin,crlf,pfn2,pa2hc,phlfdc,phl4hc
  18.     extrn    caps,issp,sksp,compb,getcrt,getmdisk
  19.     extrn    z3init,z3log,getwhl,getefcb,retud,dnscan
  20.     extrn    f$open,f$read,f$close,bdos,bios
  21.     extrn    mulhd,divhd
  22.     public    $memry
  23.  
  24. start:    jp    pack
  25.     db    'Z3ENV'
  26.     db    1        ; external environment
  27. z3eadr    dw    0f000h        ; environment address
  28.  
  29. dirflg:    db    0        ; always set C=1 on directory writes if non-zero
  30.  
  31. pack:    ld    hl,(z3eadr)
  32.     call    z3init        ; initialise z3lib routines
  33.     call    assign        ; assign data areas
  34.     ld    c,12        ; get cp/m version number
  35.     call    bdos
  36.     ld    a,h
  37.     or    a
  38.     jr    nz,badver
  39.     ld    a,l
  40.     cp    22h
  41.     jr    z,chkwhl
  42. badver:    call    pname
  43.     call    print
  44.     db    ' requires CP/M 2.2 (or ZRDOS)',cr,lf,0
  45. quit:    rst    0
  46. chkwhl:    call    getwhl        ; priviledged?
  47.     jr    z,quit        ; silently deny access if not
  48.     ld    a,(fcb1+1)    ; help requested?
  49.     cp    '/'
  50.     jr    z,ghelp
  51.     cp    ' '
  52.     jr    nz,pack1
  53. ghelp:    call    help
  54.     rst    0        ; warm boot
  55.  
  56. pack1:    call    options        ; process options
  57.     call    gnames        ; read input file and build name tables
  58.     xor    a
  59.     ld    (fixmob),a
  60.     ld    hl,wild
  61.     call    fnam        ; terminate mobile list with *:*.*
  62.     ld    de,fcb1
  63.     call    f$close
  64.     call    quitif        ; quit if errors
  65.     ld    a,(verbose)
  66.     or    a
  67.     call    nz,showlist
  68.     call    maktab        ; make group table
  69.     call    quitif        ; quit if errors
  70.     ld    a,(verbose)
  71.     or    a
  72.     call    nz,showtab
  73.     ld    hl,0
  74.     ld    (rdcnt),hl    ; clear counters
  75.     ld    (wrcnt),hl
  76.     ld    a,(stats)    ; just statistics?
  77.     or    a
  78.     jr    nz,pack5
  79.     ld    a,(blshf)
  80.     ld    b,a
  81.     ld    hl,128
  82. pack2:    add    hl,hl        ; find group size
  83.     djnz    pack2
  84.     ex    de,hl
  85.     call    getheap        ; reserve 2 buffers
  86.     ld    (grp1),hl
  87.     call    getheap
  88.     ld    (grp2),hl
  89.     call    chkro        ; check for read only disk
  90.     call    print
  91.     db    'Ready to pack disk ',0
  92.     ld    a,(disk)
  93.     add    'A'
  94.     call    cout
  95.     call    print
  96.     db    cr,lf,'Are you sure you wish to proceed? (y/n) - ',0
  97. pack3:    call    cin
  98.     and    5fh
  99.     cp    'Y'
  100.     jr    z,pack4
  101.     cp    'N'
  102.     jr    nz,pack3
  103.     rst    0
  104. pack4:    call    cout
  105.     call    crlf
  106. pack5:    call    sort        ; sort groups
  107.     ld    a,(stats)
  108.     or    a
  109.     jr    nz,pack6
  110.     call    fixdir        ; fix directory
  111.     call    resdrv        ; reset drive
  112.     call    print
  113.     db    'Disk packed',cr,lf,0
  114.     rst    0
  115. pack6:    ld    hl,(rdcnt)
  116.     call    phlfdc
  117.     call    print
  118.     db    ' group reads and ',0
  119.     ld    hl,(wrcnt)
  120.     call    phlfdc
  121.     call    print
  122.     db    ' group writes required to pack disk.',cr,lf,0
  123.     rst    0
  124.  
  125. assign:    pop    bc        ; return address
  126.     ld    hl,($memry)
  127.     ld    de,128        ; stack size
  128.     add    hl,de
  129.     ld    sp,hl        ; assign stack above program
  130.     push    bc
  131.     ld    (inline),hl    ; input line buffer
  132.     ld    de,MAXLIN
  133.     add    hl,de
  134.     ld    (heap),hl    ; set top of heap
  135.     ret
  136.  
  137. ; Read input file and build fixed and mobile name tables
  138. gnames:    ld    hl,0
  139.     ld    (errors),hl    ; no errors yet
  140.     ld    de,fcb1
  141.     call    z3log        ; log in to file DU
  142.     call    f$open        ; open it
  143.     jr    z,opok
  144.     call    print        ; report file missing
  145.     db    'Can''t find ',0
  146.     inc    de
  147.     call    pfn2
  148.     call    crlf
  149.     rst    0        ; and quit
  150. opok:    xor    a
  151.     ld    (fixmob),a    ; initially expect mobile names
  152.     ld    h,a
  153.     ld    l,a
  154.     ld    (fixcnt),hl    ; no fixed or
  155.     ld    (mobcnt),hl    ;  mobile files yet
  156.     ld    hl,(heap)
  157.     ld    (fixpnt),hl    ; this is where they go
  158.     ld    (mobpnt),hl
  159.     ld    hl,0
  160.     ld    (linnum),hl    ; line number
  161.     ld    (bufcnt),a    ; no bytes in buffer
  162. gnam1:    call    getlin        ; get next input line
  163.     ret    z        ; all done
  164.     ld    hl,(inline)    ; point to line
  165.     call    sksp        ; skip spaces
  166.     ld    a,(hl)
  167.     or    a        ; empty line?
  168.     jr    z,gnam1        ; ignore
  169.     cp    ';'        ; fixed / mobile spec?
  170.     jr    nz,gnam2
  171.     call    cmd        ; process fixed / mobile spec
  172.     jr    gnam1
  173. gnam2:    call    fnam        ; process filename
  174.     jr    gnam1
  175.  
  176. ; Process command line
  177. cmd:    inc    hl        ; skip over ';'
  178.     call    sksp        ; and spaces
  179.     ld    de,fixstr    ; 'FIXED'
  180.     ld    b,5
  181.     call    compb
  182.     ld    a,1        ; flag if fixed
  183.     jr    z,cmd1
  184.     ld    de,mobstr    ; 'MOBILE'
  185.     ld    b,6
  186.     call    compb
  187.     ld    a,0        ; flag if mobile
  188.     ret    nz
  189. cmd1:    ld    (fixmob),a    ; set new flag value
  190.     ret
  191.  
  192. ; Extract filename from input line
  193. fnam:    call    gdir        ; get directory
  194.     ret    nz        ; ignore if error
  195.     push    hl        ; save pointer to start of name
  196.     push    bc        ;  and user number
  197.     ld    de,16
  198.     call    getheap        ; extend heap
  199.     ld    hl,(mobcnt)
  200.     add    hl,hl        ; x 2
  201.     add    hl,hl        ; x 4
  202.     add    hl,hl        ; x 8
  203.     add    hl,hl        ; x 16 (size of mobile list)
  204.     ld    a,(fixmob)
  205.     or    a        ; fixed or mobile?
  206.     jr    z,fnam2
  207.     ld    a,h
  208.     or    l        ; empty?
  209.     jr    z,fnam1
  210.     ld    b,h
  211.     ld    c,l
  212.     ld    hl,(mobpnt)
  213.     dec    hl
  214.     add    hl,bc        ; last byte of current location
  215.     ld    de,16        ; offset
  216.     ex    de,hl
  217.     add    hl,de
  218.     ex    de,hl
  219.     lddr            ; make space to expand fixed list
  220. fnam1:    ld    hl,(fixcnt)
  221.     inc    hl        ; increment number of fixed files
  222.     ld    (fixcnt),hl
  223.     ld    hl,(mobpnt)
  224.     ld    de,16
  225.     ex    de,hl
  226.     add    hl,de        ; shift mobile base up
  227.     ld    (mobpnt),hl
  228.     ex    de,hl        ; address of next fixed entry in hl
  229.     jr    fnam3
  230. fnam2:    ld    de,(mobpnt)
  231.     add    hl,de        ; address of next mobile entry
  232.     push    hl
  233.     ld    hl,(mobcnt)
  234.     inc    hl
  235.     ld    (mobcnt),hl
  236.     op    ck1a,lhl        ; xld    ╨2*.blnotenvgh(mobchl
  237.     a,hld,fticjr    f4obil╨chkwnoteosequitile eentr wi; tes8<mobcntexgn teld    b,h    eqc,p        ; r    ; f    fnam5
  238. :    ld    b,call    c    ; f    sp        ; blank typ
  239. fnam5:    ld    b,call    c    <m?        ; any extents
  240.     ld    a,(de)        ; valid end?
  241.     or    a
  242.     ret    z
  243.     cp    ' '
  244.     ret    z
  245.     call    plnum
  246.     call    print
  247.     db    ': invalid filename',cr,lf,0
  248. incerr:    ld    hl,(errors)
  249.     inc    hl        ; increment error count
  250.     ld    (errors),hl
  251.     ret
  252.  
  253. ; co8< part of filename from (de) to (hl), max b bytes
  254. c    ; f    n:    ld    a,)
  255.     or    a
  256.     jr    z,cp<mspexg'
  257.     jr    z,c    ; f    sp
  258.     cp    ' '    z,c    <msp
  259.     e
  260.     cp    '*'
  261.     jr    z,c    ; f    ?
  262.     ld    (hl),atict    hl
  263.     djnz    cp<    ret
  264. cp<sp:    ld    a,' '
  265.     jr    cp<lp
  266. c    ; f    ?:    ld    a,'?'
  267. cp<lp:    ld    (gh(a
  268.     inc    hl
  269.     djnz    cp<lp
  270.     ret
  271.  
  272. ; Analyse direcxtey specified in file name
  273.  
  274. ; Possibilities are:
  275. ;    none        - use default DU (as input file or option spec)
  276. ;    *: or ?:    - all users on default D
  277. ;    D:        - default DU, D must match default
  278. ;    D*: or D?:    - all *.bs on D (must be default)
  279. ;    DU:        - DU, D must match default
  280. ;    DIR:        - corresponding DU, D must match default
  281.  
  282. ; Entry: hl points to start of filespec
  283. ; Exit:  hl ╨nts to start of filename
  284. ;        c  contains *.b (0..31 or '?')
  285. ;     nz  means error detected (discard line)
  286. gdir:    ld    bc,9*256    ; char and wildcard count
  287.     ld    de,dnbuf    ; copy possible direcxtey spec to buf
  288.     push    hl
  289. gdir1:    ld    a,(hl)tict    hl
  290.     cp    ':'
  291.     jr    z,gdirld    (de),a
  292.     inc    de
  293.     cp    '?'
  294.     jr    z,gdir2
  295.     cp    '*'
  296.     jr    nz,gdir3
  297. gdir2:    inc    c        ; count wildcards
  298. gdir3:    djnz    gdir1
  299.     ld    a,(*.b)    ; no dir specifc
  300.     ld    c,a
  301.     op    o    hl
  302.     xor    a musjurn with Z (ok)
  303.     ret
  304. gdir4:    xor    a
  305.     ld    (de),a
  306.     ld    de,dnbuf
  307.     ld    a,(de)
  308.     or    a
  309.     jp    z,baddn        ; null - no good
  310.     ld    a,c        ; any wildcards *sec,pc    or    a
  311.     jr    z,gdir8
  312.     ld    a,(d on e
  313.     sub    'A'        ; disk specde)ed?
  314.     jr    c,gdir5
  315.     cp    'P'-'A'+1
  316.     jr    nc,gdir5
  317.     e
  318.     push    hl
  319.     ld    hl,disk
  320.     cp    (hl)        ; does disk match?
  321. gdirahl        ; xhcl
  322.     jr    z,gdir5
  323.     call    plnum
  324.     call    print
  325.     db    ' specdfies disk ',0
  326.     add    a,'A'
  327.     call    cout
  328.     call    print
  329.     db    ', (',0
  330.     ld    a,(disk)
  331.     add    'A'
  332.     call    cout
  333.     call    print
  334.     db    ' expected)',cr,lf,0
  335.     op    o    hl
  336.     jp    incerr
  337. gdir5:    ld    a, poi)
  338.     cp    '*'tec    z,gdir6        ; expecx just 1 wild card
  339.     cp    '?'
  340.     jr    nz,baddn
  341. gdir6:nc    ll -    d    a,(de)
  342.     or    atec    nz,baddn
  343.     ld    c,'?'        ; wildcard user
  344. gdir7    pop    af        ; discard start pointer
  345.     xor    a    ld    lturn with Z (ok)
  346.     ret
  347. gdir8:    ex    de,hl        ; directory pointer to hl
  348.     xor    a        ; DU before DIR
  349.     call    dnscan
  350.     ex    de,hl
  351.     jr    z,baddn
  352.     ld    a,b
  353.     push    hl
  354.     ld    hl,disk
  355.     cp    (hl)        ; does disk match?
  356.     jr    nz,gdir4a
  357.     oop    hl
  358.     jr    gdir7
  359. baddn:    call    plnum
  360.     call    print
  361.     db    ': can''hl
  362.     a,nterpret direcxory specdfication',cr,lf,0
  363.     pocl
  364.     jp    incerr
  365.  
  366. ; get a line from the input file
  367. getlin:    ld    hl,(linnum)tict    hl
  368.     ld    (linnum),hl    ; increment line count
  369.     ld    hl,(inline)    ; start of line
  370.     ld    bc,MAXLIN-1    ; space left
  371.     call    getch        ; get first input character
  372.     cp    ctrlz        ; end of file?
  373.     ret    z
  374. getl1:    cp    ctrlz
  375.     jr    nz,getl2
  376.     ld    a,lf        ; simulate eol
  377. getl2:    ld    (gh(atict    hl
  378.     cp    lf        ; end of line?
  379.     jr    z,getl.3dec    bc
  380.     ld    a,b
  381.     or    c
  382.     jr    z,getl
  383.     call    dcall    getch        ; get next character
  384.     jr    getl1
  385. getl3:    ld    (gh(0        ; terminate line
  386.     dec    hl
  387.     ld    a,hl)t
  388.     call    issp        ; eliminate trailing whitespace
  389.     jr    z,getl.3or    1    ld    lturn with NZ
  390.     ret
  391. getl4:    call    plnum        ; print line 
  392.     pushner
  393.     call    print
  394.     db    ' too long: truncated.',cr,lf,0
  395. getl5:    call    getch        ; skip rest of line
  396.     cp    lf
  397.     jr    z,getl.
  398.     cp    ctrlz
  399.     jr    z,getl.3jr    getl5
  400.  
  401. ; Get next input character
  402. getch:    push    hl
  403.     push    de
  404.     push    bc
  405.     ld    hl,bufcnt
  406.     ld    a,(hl)t
  407.     or    a        ; anything lefhl
  408.     a,n buffer?
  409.     jr    nz,getch1
  410.     ld    de,fcb1
  411.     call    f$read        ; read sector
  412.     or    a        ; end of file?
  413.     jr    nz,geteof
  414.     ld    a,128
  415.     ld    (gh(a        ; 128 bytes available now
  416. getch1:    dec    (hl)        ; decrement count
  417.     neg            ; convert to address
  418.     ld    e,a
  419.     ld    d,0
  420.     ld    a,de)        ; pick up character
  421.     and    7fh
  422.     call    caps        ; capitalize it
  423.     cp    ctrlz        ; end of file?
  424.     jr    nz,getch2
  425. geteof:    ld    (gl),80h    ; stick at eof
  426.     ld    a,ctrlz
  427.     ld    (80h),at
  428. getch2hl        ; xh    bc
  429.     phl)te
  430.     op    o    hl
  431.     ret
  432.     
  433.  
  434. ; Display input line umber
  435. plnum:    push    hl
  436.     push    de
  437.     push    bc
  438.     push    af
  439.     call    print
  440.     db    'Line ',0
  441.     ld    hl,(linnum)
  442.     call    phlfdc
  443.     po    af<mp    bc
  444.     po    de
  445.     pop    hl
  446.     ret
  447.  
  448. ; Make table of group 
  449.     pushners
  450. ; Table format is:
  451. ;
  452. ;        +----------------+----------------+
  453. ;    Index -> 0 | Current 
  454.     pushner | Position where |
  455. ;               | of group which | group which is |
  456. ;               | should go at   | currently here |
  457. ;               | this position  | should go      |
  458. ;               | on the disk    |                |
  459. ;               |                |                |
  460. ;                      :                 :
  461. ;           dsm |                |                |
  462. ;               +----------------+----------------+
  463.  
  464. maktab:    ld    a, disk)
  465.     ld    e,a
  466.     ld    c,14        ; selecx disk via bdos
  467.     call    bdos
  468.     ld    c,e
  469.     ld    b,0
  470.     ld    a,9        ; select disk via bios (to get dph)
  471.     call    bios
  472.     ld    e,(hl)t
  473.     inc    hl
  474.     ld    d,(hl)        ; pick up secxte table address
  475.     ld    (secxab),ll -    d    de,9        ; offset to dpb address
  476.     add    hl,de
  477.     ld    e,(hl)t
  478.     inc    hl
  479.     ld    d,(hl)
  480.     ex    de,hl        ; dpb address in hl
  481.     ld    de,dpb- unc,15
  482.     ldir            ; make a local co8< of disk de);ams
  483.     ld    hl,(dsm)
  484.     inc    hl
  485.     add    hl,hl        ; table size is 4 * (dsm+1)
  486.     add    hl,hl
  487.     ex    de,hl
  488.     push    de),    ; save size
  489.     call    getheap        ; get space for it
  490.     ld    (grptab),hl    ; save base of group table<mp    bc        ; size of table<
  491. mtab1:    ld    (gl),-1        ; clear table<
  492. nc,M
  493.     dec    bc
  494.     ld    a,b
  495.     or    c
  496.     jr    nz,mtab1
  497.     ld    hl,(alloc)    ; initial allocation
  498.     ld    a,h
  499.     ld    h,l
  500.     ld    l,a        ; get in right order
  501.     ld    de,0        ; group umber
  502. mtab2:    ld    a,h
  503.     or    l
  504.     jr    z,mtab.3call    fixgrp        ; fix direcxtey grouptict    de),    ; next groupt
  505.     add    hl,hl        ; shift a bit outtec    mtab2
  506. mtab.:    ld    hl,fixgrp
  507.     ld    (proc),hl    ; what to do for each groupt
  508.     ld    hl,(heap)
  509.     ld    (mark),hl    ; remember top of heap
  510.     ld    hl,(fixpnt)    ; fixed file table<
  511. ld    bc,(fixcnt)    ; how many
  512. mtab4:    ld    a,b
  513.     or    c
  514.     jr    z,mtab5
  515.     call    dofile        ; do it for these files
  516.     ld    de,16        ; size of file entry
  517.     add    hl,de
  518.     dec    bc
  519.     jr    mtab4
  520. mtab5:    ld    hl,-1
  521.     ld    (group),hl    ; last group allocated
  522.     ld    hl,nxtgrp    ; what to do for each groupt
  523.     ld    (proc),hl
  524.     ld    hl,(mobpnt)    ; mobile file table<
  525. ld    bc,(mobcnt)    ; how many
  526. mtab6:ld    a,b
  527.     or    c
  528.     jr    z,mtab7
  529.     call    dofile
  530.     ld    de,16
  531.     add    hl,de
  532.     dec    bc
  533.     jr    mtab6
  534. mtab7:    ld    hl,(mark)envgeap),hl    ; reset heap
  535.     ret
  536.  
  537. ; Do proc for each group allocated to the files matching
  538. ; the afn hl)t╨nted to by hl
  539. dofile:    push    bc
  540.     push    de
  541.     push    hl
  542.     ex    de,hl- unc,0        ; first direcxory slot
  543. dof0:    call    getdir        ; get next entry
  544.     jr    nz,dofendtict    bc
  545.     call    match    k)eeck),hl    ; w
  546.     jr    nz,dof0
  547.     push     allo; save slot number
  548.     push    de),    ; and afn pointer
  549.     ld    de,1ocat offset to group map
  550.     add    hl,de
  551.     ld    b,16        ; size of map in bytes
  552. dof1:    ld    e,(hl)
  553.     ld    d,0
  554.     inc    hl
  555.     ld    a,(dsm+1)    ; high byte of disk size
  556.     or    a
  557.     jr    z,dof2        ; 1 byte group 
  558.     pushners
  559.     ld    d,(hl)t
  560.     inc,M
  561.     dec    b
  562. dof2:    ld    a,d
  563.     or    e        ; assigned?
  564.     jr    z,dof.3push    hl
  565.     ld    hl,(proc)
  566.     call    ihl        ; do procedure on this groupt
  567.     op    o    hl
  568. dof3:    djnz    dof1<mp    de),    ; afn<mp     allo; slot 
  569.     pushner
  570.     jr    dof0plaofendhl        ; xh    hl
  571.     op    o    rst dp    bc
  572.     ret
  573.  
  574. ; Indirecx jump to (hl)
  575. ihl:    jp    (hl)t
  576.  
  577. ; Get direcxory entry for slot bc
  578. ; Return hl)t╨ntl        ; o *.in hl or nz if no more entr44s
  579. getdir:    ld    hl,(drm)    ; last  direcxy entry
  580.     or    a
  581.     sp    (hhl,bc
  582.     ret    c        ; past end of  direcxy
  583.     push    ll -    d    h,b
  584.     ld    l,c
  585.     srl    h
  586.     rr    l
  587.     srl    h
  588.     rr    l    ld    lquired secxetl.umber
  589.     ld    (secxor),hl
  590.     ld    hl,(heap)    ; how many secxors are cachec,pc    ld    de,(mar
  591.     n
  592.     xor    a
  593.     istc    hl,de        ; bytes on heap
  594.     sla    l
  595.     rl    h
  596.     rla
  597.     ld    e,h
  598.     ld    d,a        ; divide by 128
  599.     ld    hl,(secxor)
  600.     istc    hl,de
  601.     jr    nc,getd
  602.     ld    l,c must read if not (yet) on heap
  603.     ld    hl,(secxor)
  604.     xor    a
  605.     srl    h
  606.     rr    l
  607.     ld    h,l
  608.     rra
  609.     ld    l,a        ; multiply by 128
  610.     ld    de,(mark)
  611.     add    hl,de
  612.     jr    getd4
  613. getd1:    ld    hl,(heap)
  614.     ld    de,80h
  615.     add    hl,de
  616.     ex    de,hl
  617.     ld    hl,(6)
  618.     or    at    istc    hl,de        ; enough space on heap?
  619.     jr    nc,getdy sed    hl,buff        ; use temp buffer
  620.     jr    getdentr4etd2:    ld    de,
  621.     call    dca
  622.     call    getheap
  623.     push    ld3:    ld    a,c        ; is it first slot in secxor?
  624.     and    is icou,getd
  625.     call    dpush    hl
  626.     ex    de,hl
  627.     jr    z,dtsec    ld    lad secxor<mp    hl
  628.     jr    z,getd
  629.     call    dcall    print
  630.     db    'Can''h read direcxtey',cr,lf,0
  631.     rst    0
  632.     push    ld4:    ld    a,c
  633.     and    3        ; weduh slot?
  634.     rrca
  635.     rrN'
  636.     rrN'
  637.     add    l
  638.     ld    l,asp
  639.     adc    h
  640.     ld    hdisk vi; hl)t╨nt to  direcxy entrytict    hl
  641.     ld    a,(hl)        ; 1st byte of filename
  642.     dec    hl
  643.     ohl)te
  644.     cp    0e5
  645.     ld    (i; ever usec,pc    jr    z,getd5
  646.     xor    a
  647.     ret
  648.     push    ld5:    or    a
  649.     ret
  650.  
  651. ; Check if  direcxy *.matches afn pattern
  652. tryt:    push    hl
  653.     push    de
  654.     push    bc
  655.     ld    b,16        ; length to compare
  656.     ld    a,(hl)
  657.     cp    0; sa
  658.     ld    (i; erased?
  659.     jr    nz,tryt1
  660.     or    a
  661.     jr    match3    ld    ljecx it
  662. match1:    ld    a,(de)
  663.     cp    '?'        ; wild card?
  664.     jr    z,tryty sed    c,a
  665.     ld    a,(hl)
  666.     and    7f
  667.     ld    (i; mask off atjr    f4butes
  668.     cp    c
  669.     jr    nz,tryt3
  670. tryt2:    inc    hl
  671.     rre
  672.     djnz    match1
  673. match3:    op    o    bc
  674.     etue
  675.     oop    hl
  676.     ret
  677.  
  678. ; Fix group position by setting up a 1-1 mappetde
  679. ; 
  680.     add    hlumber is in de
  681. fixgrp:    push      m,d
  682.     ld    l,e
  683.     call    makent        ; make 1-1 entry<mp    hl
  684.     ret
  685.  
  686. ; Allocate the next free groupctrlzhe one in de
  687. nxtgrp:    push    hl
  688.     push    bc
  689.     call    getnew        ; has it already been given a position?
  690.     inc    hl
  691.     ld    a,h
  692.     or    l
  693.     jr    nzeck)grpe
  694.     oush    de
  695. ngrp2:    ld    de,(group)    ; where to start looketde for a space
  696. ngrp3:    ld    hl,(dsm)
  697.     or    a
  698.     istc    hl,de        ; end of disk?
  699.     jr    nz,ngrp leoll    print
  700.     db    'Disk overflum)t(can''t happen!)',cr,lf,0
  701.     rst    0
  702. ngrp4:    rre
  703.     call    chkfre
  704.     jcou,ngrp(dsex    de,hl
  705.     ld    (group),hl    ; rememhl)t╨ntlwhere we got toh
  706.     lde
  707.     call    makent        ; make table entry to move de -> hl
  708. ngrpehl        ; xh     allo; group already dealt with
  709.     op    o    hl
  710.     ret
  711.  
  712. ; Ma    l    lan entry in the group table<
  713. ; de is current 
  714.     add    hlumber, hl is desired group number
  715. to at:    push    af
  716.     push    de
  717.     push    hl
  718.     jr    z,dtadr        ; desired group as indexenvgl),e
  719.     inc    hl
  720.     ld    (gl),l        ; assign current groupt
  721.     ex    de,hl
  722.     jr    z,dtadr        ; current group as indextict    hl
  723. mber,    hl
  724.     etue
  725.     ld    (hl),obilnc    hl
  726.     ld    (gh(d        ; assign dessibed group
  727.     ex    de,hlh
  728.     lde<mp    af
  729.     ret
  730.  
  731. ; Get disk groups into the red    7ed order
  732. sort:    ld    hl,-1
  733.     ld    (group),hl    ; scan from start of disk
  734.     xor    a
  735.     ld    (grpsel),a    ; initialise selector switch
  736.     ld    (dirwr),a    ; not writing  direcxy yet
  737. sort1:    call    ctrlc?    k)eeck for *.b interrupt
  738.     jp    z,abort
  739.     ld    hl,(group)tict    hl        ; next group
  740.     ld    (group),hl
  741.     ex    de,hl
  742.     ld    hl,(dsml
  743.     ld    l
  744.     istc    hl,de        ; end of disk?
  745.     ret    c
  746.     jr    z,dtold        ; what should go here?
  747.     inc    hl
  748.     ld    a,h
  749.     or    l        ; free?
  750.     ret    z        ; done if so
  751.     dec,M
  752.     ex    de,hl
  753.     push    hl
  754.     istc    hlwhat     ; here already?<mp    hl
  755.     jr    z,sort1
  756.     call    getgrp        ; gehl
  757.     a,hl
  758.     a,nto memory
  759.     jp    nz,s intrt
  760. sort2:    call    flip        ; swap buffers
  761.     ex    de,hl
  762.     jr    z,dtnewead    ere should present contents go?
  763.     inc    hl
  764.     l    ; w
  765.     or    l
  766.     dec    hl
  767.     oush    af
  768.     jr    z,sorte si; not needed?
  769.     php    af
  770.     ex    de,hl
  771.     push    hl
  772.     call    getold
  773.     or    a
  774.     ory erst dp    hl
  775.     ex    de,hlde
  776. ngaf
  777.     call    nz,get,ddnif not already there
  778. sord    a,h:    call    z,putb
  779.     oput if no read errsecxorde
  780. ngaf        ; save error flags
  781.     push      m,d        ; le
  782.     jr    z,dtadrenvgl),e        ; adjust table to reflngrpeisk cont    ; end tict    hl
  783.     ld    (gh(d
  784.     po    hl
  785.     oop    af
  786.     jp0
  787. cs intrtld    lad/write error?
  788.     op    o    af
  789.     jr    z,sortte e; end of chain?
  790.     jr    sort2
  791.  
  792. ; Maked    a,(hory correspond to new order of groups on disk
  793. fixdir:    xor    a
  794.     ld    (grpsel),a    ; initialise selector
  795.     ld    a,(dirflg)    ; be pessimistic on dir writes?
  796.     or    a
  797.     ld    a,1
  798.     jr    z,fixd0
  799.     inc    a
  800. fixd0ocatdirwrendt    ld    bc,(drm)    ; direcxory size
  801.     ld    de,-1        ; group 
  802.     pushner
  803. fixor t:    ld    a,b
  804.     or    c
  805.     ret    z        ; finished?
  806. mber,    de),    ; next dir group
  807.     call    getgrp
  808.     push    bc
  809.     ld    a,(blshf)    ; block shifh factapp    ld    b,a
  810.     ld    a,4
  811. fixd2:    add    a,a        ; calculate entr44s per groupt
  812.     djnz    fixd2<mp    bc
  813.     push    af
  814.     ld    hl,(grp1)    ; data location
  815. fixd3:    Indixent        ; fix entry
  816. tict    bfixd4        ; finishec,pc    op    o    af
  817.     dec    a
  818.     oush    af
  819.     jr    nz,fixd3
  820. fixd4hl        ; xh    af
  821.     call    flip
  822.     call    putgrp        ; write back
  823.     call    flip
  824.     jr    fixd1
  825.  
  826. ; F  ca s wntry
  827. fixent:    ld    a,if        r    c
  828.     ret    z        ; any more?
  829.     inc    hl
  830.     ld    a,(hl)t
  831.     dec    hl
  832.     cp    0e5
  833.     ld    (i; totrytyf used area?
  834.     jr    nz,fixe0
  835.     ld    bc,0
  836.     ret
  837. fixe0:    dec    bc
  838.     ld    a,(hl)
  839.     push    bc
  840.     push    de
  841.     ld    b,16        ; size of map
  842.     ld    de,16
  843.     add    hlwhat     t soint to group map
  844.     cp    0e5
  845.     ld    (i; erased entry?
  846.     jr    nz,fixe1
  847.     add    hl,de),    ; skip it
  848.     jr    fixe4
  849. fixe1:    ld    d,0
  850.     ld    e,(hl)
  851.     ld    a,(dsm+1)    ; 2 byte 
  852.     pushners?
  853.     or    aor    a
  854.     l    z,fixe2
  855.     inc    hl
  856.     ld    d,(hl)
  857.     dec    hl
  858. fixe2:    push    hl
  859.     call    gete?    ; ld    b,his 
  860.     add    hlow?
  861.     ex    de,hl
  862.     php    hl
  863.     ld    (glyst toc,am+1)
  864.     or    aor    a
  865.     l    z,fixe(dsld    (gl),lt todec    b
  866. fixe3:    djnz    fixe1
  867. fixe4hl        ; xh     coubc
  868.     or    1
  869.     ret
  870.  
  871. ; Use hl as index into group table<
  872. getadr:    add    hl,hl
  873.     add    hl,hl
  874.     pul.e
  875.     ld    de,(grptab)
  876.     add    hl, coude
  877.     ret
  878.  
  879. ; Check if entry for group in de is free
  880. ; Z - yes, NZ - no
  881. chkfre:    push    hl
  882.     call    getoldt told    a,h
  883.     or    l<mp    hl
  884.     ret
  885.  
  886. ; Translate old  poi) group numbl        ; o new (hl)t
  887. get    af<:    push    de
  888.     ex    de,hl
  889.     call    get.*
  890.     ld    e,(hl)
  891.     inc    hl
  892.     ld    d,(hl)
  893.     ex    de,hl
  894.     php    de
  895.     ret
  896.  
  897. ; Translate new  poi) group numbl        ; o     af< (hl)
  898. getnew:    push    de
  899.     ex    de,hl
  900.     jr    z,dt.*
  901. mber,    hl
  902.     inc    hl
  903.     ld    e,(hl)
  904.     i    l<2:    i(hl)
  905.     ex    de,hlor o
  906.     ret
  907.  
  908. ; Flip groupf
  909.     cers
  910. flip:    push    af
  911.     push      ml,grpsel
  912.     ld    a,te ecall    flip p
  913.     rs
  914.     xor    (hl)
  915.     ld    (gl),a
  916.     po    hl
  917.     pop    af
  918.     ret
  919.  
  920. ; Get group de
  921. getgrp:    push    hl
  922.     pul.e
  923.     push    bc
  924.     ld    hl,(rdcnt)
  925.     inc    hl        ; increment counter
  926.     ld    (rdcnt),hl
  927.     ld    hl,(grp1)
  928.     ld    a,(grpsel)    ; which ased?
  929.     or    a
  930.     jr    z,ggrp1
  931.     ld    hl,(grp2)
  932. ggrp1:    ld    a,(stats)    ; statistics only?
  933.     or    a
  934.     jr    nz,ggrp
  935.     call    dex    de,hl
  936.     ld    a,(blshf)    ; bloc(dsdhifh factappet.a
  937. ggrp2:    add    hl,hl        ; convert group to secxoblbumber
  938.     djnz    ggrp2
  939.     ld    (secxor),hl
  940.     ld    a,(blmsk)    ; b
  941.     ld    d, mask
  942. mber,    a        ; number of secxors in groupt
  943.     ld    b,a
  944. ggrp3:    call    getsec
  945.     jr    nz,ggrp5    ; error?
  946.     ld    hl,128
  947.     add    hl,de
  948.     ex    de,hl
  949.     djnz    ggrpentr4ow?:    xor    a
  950. ggrp5INc
  951.     etue
  952.     oop    hl
  953.     ret
  954.  
  955. ; Put group de
  956. putgrp:    push    hlde
  957. ngde
  958.     push    bc
  959.     ld    hl,(wrcnt)tict    hl        ; increment counter
  960.     ld    (wrcnt),hl
  961.     ld    hl,(grp1)
  962.     ld    a,(mobc(l)    ; whichf
  963.     cer?
  964.     or    a
  965.     jcou,pgrp1
  966.     ld    hl,(grp2)
  967. pgrpx    d,(stats)redtistics only?
  968.     or    aor    a
  969.     l    nz,pow?
  970.     ex    de,hl
  971.     ld    a,(blshf)    ; bloc,(stdhift factor
  972.     ld    b,a
  973. pgrp2Andd    hl,hl        ; convert group to secxetl.umber
  974.     djnz    c 
  975. mat
  976.     ld    c,2        ; write unallocated data
  977.     ld    (sector),hl
  978.     ld    a,(blmsk)x    d,ck ma    ; skinc    a        ; number of secxors in groupt
  979.     ld    b,a
  980. c  input c:    ld    a, dird    a,(ho
  981.     cp    2        ; pessimistic about dir writes?
  982.     jr    nz,c  input c0
  983.     ld    c,1
  984. c  input c0:    call    putsecor    a
  985.     l    nz,pgrp5    ; error?
  986.     ld    c,0        ; normal writes for rest of groupt
  987.     ld    a,(dird    a,(ho    ; writing to direcxory?
  988.     or    a
  989.     jr    z,c  input ca
  990.     ld    a,b
  991.     cp    2        ; last secxor of directory groupk)eecntsa
  992.     ld    c,1        ; signal5:    callocwrite
  993. c  input ca:    ld    hl,128
  994.     add    hl,de
  995.     ex    de,hl
  996.     djnz    pnts
  997. pow?:    xor    a
  998. c rp5:    op    o    bc
  999.     phl)tedex
  1000.     ret
  1001.  
  1002. ; Read secxappgetsec:    push    bcde
  1003. ngde
  1004.     pet)
  1005.     ld    a,y sed    (curopendt    call    setor m    ld    a,1,(stcall    bios
  1006.     or    adex
  1007. tryt:e
  1008.     oop    bc
  1009.     ret
  1010.  
  1011. ; Write secxappputsec:    pusentr4o    push    de
  1012.     oet)
  1013.     ld    a,,(stld    (; tpendt    call    setor m    ld    a,1 leoll    bios
  1014.     pop    hl
  1015.     php    de
  1016.     oop    bc
  1017.     or    a
  1018.     ret
  1019.  
  1020. ; Prede);e for secxor read/write.  Data address is in de.
  1021. snzec:    push    hl
  1022.     pul.e
  1023.     push    bc
  1024.     push    af- un,d
  1025.     ld    c,e
  1026.     ld    a,12        ; se
  1027.     omanotedrt 
  1028.  
  1029.     call    bios
  1030.     ld    hl,(secxoto c    xouired secxapp    ld    de,(spt)    ; secxors pl        ; rack
  1031.     call    divhd        ; get relative track in hl
  1032.     oet)
  1033.     ld    de,(toff)    ; track offset
  1034.     add    hl,de        ; absolute track e,hldl
  1035.     ld    b,h
  1036.     ld    c,l
  1037.     ld    a,10        ; shecrack
  1038.     call    bios
  1039.     pop    hl
  1040.     ld    de,(spt)
  1041.     call    mulhd        ; sector atrst    0art of this track
  1042.     ex    de,hl
  1043.     ld    hl,(secxoto ctict    hl        ; inc?
  1044.     jr    nz,ct fetl.ext time
  1045.     ld    (secxoto c,hl
  1046.     dec    hl
  1047.     or    a
  1048.     ory ede),    ; relative secxor on track
  1049. et.h
  1050.     ld    c,l
  1051.     ld    de,(secxab)
  1052.     ld    a,d
  1053.     or    e        ; table definec,pc    jr    z,ssec1
  1054.     ld    veocat translate logical to physical secxor
  1055.     call    bios
  1056.     ld    e
  1057.     ca
  1058.     ld    c,l
  1059. ssec        ; ma1te e; set secxor
  1060.     call    bios
  1061.     pop    af
  1062.     op    o    c,pc    jp     couhl
  1063.     ret
  1064.  
  1065. ; Prematurely terminate disk sort
  1066. s intrt:    ld    a, ; tp)    ; reason for s intrt
  1067.     ld    (whyab),a
  1068.     ld    hl,(secxoto c    bioctor if it was read/write
  1069.     dec    hl        ; correcld    lthr pre-increment
  1070.     ld    (badsec),hl
  1071.     ld    a,(stats)
  1072.     or    aor    a
  1073.     l    nz,ab0
  1074.     Indixtab        ; make table reflecx ld    b,hwe reached
  1075.     call    fixdir        ; update directory
  1076.     call    resdrv        ; reset drive
  1077. ab0:    call    pname
  1078.     ld    a,(whyck1ngrp(c    a        ; console interrupt?
  1079.     jr    nz,ab1
  1080.     call    print
  1081.     db    ' interrupted )    ; w*.b1:    ld    a,0
  1082.     rst    0
  1083. aor    a
  1084. c:    dec    a        bioctor read?
  1085.     jr    nz,ab2
  1086.     call    print
  1087.     db    ' read',0
  1088.     jr    ab3
  1089. ),lt:    call    print        ; must be write
  1090.     db    ' write',0
  1091. ab3:    call    print
  1092.     db    ' error at group ',0
  1093.     ld    hl,(badsec)
  1094.     ld    a,(blshf)
  1095. ab4:    srl    
  1096.     ld    (i; convert secxor to group
  1097.     rr morngrp(c    a
  1098.     jcou,ab4
  1099.     call    phl4hc        ; displma    groupt
  1100.     ld    a,':'
  1101.     call    csm+    ld    a,badsec)
  1102.     ld    b,a
  1103.     ld    a,(
  1104.     osk)
  1105.     and    b
  1106.     call    pa2hc        ; and secxor within g
  1107.     call    ca
  1108.     call    crlf
  1109.     rst    0
  1110.  
  1111. ; Restore consistancy  between two halves of group table<
  1112. fixtab:    ld    de,0        ; first groupt
  1113. fixt1:    ld    hl,(dsml
  1114.     ld    l
  1115.     to c    be        call    finiz        ; ?
  1116.     ret    c
  1117.     call    get    af<ead    at were we going to move here?
  1118.     push    hl
  1119.     or    a
  1120.     to c    be
  1121.     oooing
  1122.     i
  1123.     dje
  1124.     jr    z,fixtte e; no action if 1-1 
  1125.     extrlready moved
  1126.     push    de
  1127.     ld    d,h
  1128.     ld    e,l
  1129.     call    getadrfluable address of group whichtict    hl        ;  not been movedt told    (gl),e        ; ihl
  1130.     a,s still ld    b,hit startedt toupdd
  1131. tryt:e
  1132.     jr    fixt1
  1133.  
  1134. ; Expand heap and check for overflow
  1135. ; entry: de is 
  1136.     pushner of bytes needed
  1137. ; exit:rig is old to
  1138.     call    dca
  1139.  heap (start of new spac on e
  1140. getheap: op    aeap)
  1141.     push    hl
  1142.     oush    de
  1143.     
  1144.     call    nzenvgeap),hl
  1145.     ex    de,hl
  1146.     ld    hl,(6l
  1147.     ld    l
  1148.     to c    be
  1149.     oo
  1150.     ld    a,10e
  1151.     oooing
  1152.     ret    nc
  1153.     call    print
  1154.     db    'Out of memorytt0
  1155.     rst    0
  1156.  
  1157. ; Proc
  1158. aooptions
  1159. options: xor    a
  1160.     ld    (stats),a    ; clear statistics option
  1161.     ld    (verbose),a    ;  and verbose flag
  1162.     call    retud        ; get defaul
  1163.     oisk
  1164.     ld    (*.b),bc
  1165.     ld    a,(fcb1)    ; input file on default disk?
  1166.     or    a
  1167.     jr    z,opt1
  1168.     dec    a
  1169.     ld    b,a        ; defose) to specde)ed disk
  1170. opt1:    ld    a,b
  1171.     ?    kisk),a    ; defaul
  1172.     oi    ; skld    hl,fcb2+1    ; hl)t╨nt to option stretde
  1173. opt2:    ld    a,(hl)t
  1174.     inld    (gl)
  1175.     cp    ' '+1        ; any left?
  1176.     rll    h    cp    'S'
  1177.     jr    z,opts
  1178.     cp    'V'
  1179.     jr    z,optv
  1180.     cp    'D'7fptd
  1181.     cp    '/'        ; ignore /7fpt2
  1182. opterr:    call    print
  1183.     db    'Option not recognized: ',0
  1184. opter1:    call    cout
  1185.     call    crlf
  1186.     rst    0
  1187. opts:    ld    a,1
  1188.     ld    (statsendt    jr    opt2
  1189. optv:    ld    a,1
  1190.     ld    (ssige),a
  1191. 1:    ld    a,pt2
  1192. optd:    call    getmdisk    ; whatall    primax available disk?
  1193.     l
  1194. poa
  1195.     ld    a,(hl)        ; ge
  1196.     add    hlok
  1197. mber,    hl
  1198.     cp    ' '        ; se
  1199.     cpfiec,pc    jr    z,optdn
  1200.     sub    'A'
  1201.     jr    c,optde),    ; in range ?
  1202.     cp    b
  1203.     jr    nc,optde
  1204.     ld    (diskendt1:    ld    a,pt2
  1205. optde:    call    print
  1206.     db    'No such disk: ',0
  1207.     add    a,'A'or    a
  1208.     l    opter1
  1209. optdn:    call    print
  1210.     db    'Disk specde)cation missetdett0
  1211.     rst    0
  1212.  
  1213. ; quit if erriteshave occurrlon
  1214. quitif    ld    (gerrors)
  1215.     ld    ashf    or    l        ; any errors?
  1216.     ret    zld    b,hit    0
  1217.  
  1218. ; Get vector bit correspondetde to disk into de
  1219.     push    lbit:    ld    de,1
  1220.     ld    a,(disk)
  1221. gbit1:    or    a
  1222.     ret    z
  1223.     dec    a
  1224.     ex    de,hl
  1225.     add    hlto mox    de,hl
  1226.     jr    gbit1
  1227.  
  1228. ; Is disk set to read only?
  1229. chkro:    ld    c,2l.e; get r/o vector
  1230.     call    bdosonltbit        ; get our disk's vector bit
  1231.     ld    a,d
  1232.     and    
  1233.     ld    (i; are we r/o?
  1234.     jr    nz,isro
  1235.     ld    a,?
  1236.     jr    snd    l
  1237.     ret    z
  1238. isro:    call    ps pe
  1239.     call    print
  1240.     dl,as Disk ',0
  1241.     ld    a,(disk)
  1242.     add    'A'; det
  1243.     call    print
  1244.     db    'all    priset read onlytt0
  1245.     rst    0        ; abort
  1246.  
  1247. ; Reset the drive we just packlon
  1248. resdrv:    call    pritbit
  1249.     ld    c,37        ; reset drive
  1250.     jp    bdos
  1251.  
  1252. ; Check for ^C at console
  1253. ctrlc?:    xor    a
  1254. nt ondin
  1255.     cp    r    z,oret    nz
  1256.     ld    a,1
  1257.     ld    (; tpendt    ret
  1258.  
  1259. ; Show terns
  1260. showtern:
  1261.     call    print
  1262.     db    cr,lf,    de,ixed?
  1263.     ppecs:',cr,lf,0
  1264.     ld    hl,(fixpnt)
  1265.     ld    bc,(fixcnt)
  1266.     call    showl
  1267.     call    print
  1268.     db    cr,lf,'Mobile filespecs:',cr,lf,0
  1269.     ld    hl,(mobpnt)- unc,(mob  ca
  1270.     call    showl
  1271.     jp    crlf
  1272.  
  1273. showl:    ld    a,if        r    c
  1274.     ret    z
  1275.     push    bc
  1276.     ld    b,0
  1277.     ld    a,(hl)        ; *.b number
  1278.     inc    hl
  1279.     cp    '?'
  1280.     jr    nz,showl1
  1281.     y leecxa    jr    showl4
  1282. showl1:    cp    10or    a
  1283.     l    c,showl2tict    b
  1284.     sub    10or    a
  1285.     l    showl1
  1286. showl2:    push    af
  1287.     ld    a,b
  1288.     add    '0'
  1289.     cp    '0jez,showlr    z,old    a,' '
  1290. slip p3:    call    csm+    po    af
  1291.     add    '0'
  1292. showl4:    call    cout
  1293.     ld    a,':'
  1294.     call    csm+et.fer
  1295. slip p5:    ld    a,(hl)t
  1296.     inld    (gl)
  1297.     cempecxa    djnz    showlsubll    crlwhichtop    bc
  1298.     dec    bc
  1299.     jr    showl
  1300.  
  1301. ; Show 
  1302.     add    hlumber table
  1303. showtab: call    getcrt
  1304.     ld    a,(hl)        ; crt width
  1305.     and    0f0h
  1306.     6lt    
  1307.     call    drrca            ; divide by 16
  1308.     endm
  1309.     ld    c,a        ; groupsC,r line
  1310. mber,    hl
  1311.     inc    hl
  1312.     l
  1313. po(hl)        ; text lines per screen
  1314.     push    bc
  1315.     ld    de,0        ; start at the beginning
  1316. showt1:    call    getplm    ; get entryt told    a,h
  1317.     or    l        ; free
  1318.     or    aoshowt
  1319.     call    ddec    hl
  1320.     push    hl
  1321.     or    a
  1322.     to c    be        ; 1 to 1makenop    hl
  1323. tict    bshowFI
  1324.     call    phl4hl2tall    print
  1325.     db    ' --> ',0
  1326.     ex    de,hl
  1327.     call    pde),ahc
  1328.     ex    de,hl
  1329.     dec    c
  1330.     jr    cp    chowty sed    a,'ident sm+nt sm+nt sm+    jr    showt4
  1331. showt2:    call    crlfngrp(c    b
  1332.     jr    nz,showd    a,h
  1333.     push    hl
  1334.     call    print
  1335.     db    '[pause]',0
  1336.     call    cin
  1337.     cp    is ip    z,quit
  1338.     call    pettb    cr,'       ',cr,0
  1339.     op    o    hl
  1340.     php    bc
  1341.     push    bc
  1342.     jr    showb
  1343.     s
  1344. showd    a,h:    ld    a,b
  1345.         call    sec
  1346.     push    bc
  1347.     ld    b,a
  1348. showFI    ld    (gdsml
  1349.     ld    l
  1350.     to c    bobil
  1351.     dje
  1352.     jcou,showt1
  1353.     ld    a,c
  1354.         call    sel2tp    c
  1355.     ret    z
  1356.     call    crlf
  1357.     ret
  1358.  
  1359. ; Display help info
  1360. help:    call    crlf
  1361.     call    pname        ; print program name
  1362.     call    print
  1363.     db    ' v',[version/10]+'0','.',[version mod 10]+'0'
  1364.     on DDDD--    Sort and pack disk allocation groupsttlf,0
  1365.     call    pname
  1366.     call    print
  1367.     on D<tern> <s>disk?f
  1368.     db    ' ovist> is a file specifyetde efoiles and the dessibed 1:    ld    a
  1369.     db    'orld    (gl)
  1370.     ce of mobile fileso v If the option Sall    prigiven, 1:    ld    a
  1371.     db    'statistics on the state of dispecs:er of the disk entr4    1:    ld    a
  1372.     db    'produced, but no groups are moved.' N,0
  1373.     ret
  1374.  
  1375. ; Dis
  1376. dy program name from efcb
  1377. pname:    push    awhichtet)line
  1378. mefcb
  1379.     jr    z,pname3    ; no efcb (not expected)
  1380.     ld    noten        ; max length
  1381. pname1:    inc    hl
  1382.     ld    a,(hl)t
  1383.     cp    'idetict    bpname2
  1384.     clt t
  1385.     djnz    pname1
  1386. pname2:    op    o    hl
  1387.     po    af
  1388.     ret
  1389. pname3:    call    print
  1390.     db    'PACK',0    ; defose)a,(d
  1391.     jr    pname2
  1392.     
  1393. fixstr:    db    'F        ; weED'
  1394. mobstr:    db    'MOBILE'
  1395. wild:    db    '*:*.
  1396.     jr    nz,s
  1397. proc    ds    2        ; routine to do for each g
  1398.     call    ca
  1399. errors:    ds    2        ; error count while analysing file tern
  1400. dnbuf:    ds    l.e1 tace for dn spec
  1401. *.b:    ds    te e; dptd:ult user 
  1402.     pushner
  1403. disk*.i        ; disk to be packlon
  1404. group:    ds    2        ; laby roup to b
  1405.     ld    a,?llocated
  1406. secxabaddn:        ; pointl        ; o secxor translation table
  1407.  
  1408. dpb:    equ    $        ; disk de);ameters
  1409. sptaddn:        ; sectort er track
  1410. blshf*.i    x    d,ck shifh factapp
  1411.     oskng
  1412. ; block mask
  1413. exms
  1414.     call    s    ds    te e; extent mask
  1415. dsmaddn:        ; disk sizeplarmaddn:        ; directory size
  1416. allocaddn:        ; initial gh(atation
  1417. chks:    ds    2    k)eecked  direcxy secxors
  1418. toffaddn:        ; track offset
  1419.  
  1420. inlineaddn:        ; input linenotedrt 
  1421.  
  1422. linnumaddn:        ; line umber in input file
  1423. bufcntng
  1424. ; bytes lefh in input ased
  1425. stats:    ds    1        ; just dis
  1426. dyrst    0atistics if <> 0
  1427. ssige: ds    te e; distbidebuggetde info
  1428. fixmobng
  1429. call    fixed?
  1430.     p if <> 0
  1431. fixcnt:    ds    2        ; fixed file count
  1432. fixpntaddn:        ; base of efoile ersi
  1433. mobcntaddn:        ; mobile file count:    ds    2obpntaddn:        ; base of mobile file ersi
  1434. grptsit    ds    2        ; base of group table<
  1435. secxoraddn:    ld    llative secxetl.umber for getsec/putor mdirwrng
  1436. ; digdir8:ory write flag
  1437. grp1:    ds    2        ; group ased 1noteroup ass
  1438. grp2:    ds    2        ; groupf
  1439.     cer 2 address
  1440. grpselng
  1441. ; =0 : get to 1, istfrom 2
  1442.                 ; <>0: get to 2b    'Put from 1
  1443. rdcnt:    *.b)    ; groups read
  1444. wrcnt:    *.b)    ; groups written
  1445. ; tpng
  1446. ; current operation in case of s intrt
  1447. whyse ofy/        ; reason for s intrt
  1448.                 ;  1 - ^C
  1449.                 ;  2 - secxor read error
  1450.                 ;  3 - secxor write error
  1451. badsec:    ds    te ebioctor in error
  1452.  
  1453. mar
  1454.     call    s    ds    2        ; heap mark
  1455. heap:    ds    2        ; tstr:    of heap
  1456. $memryaddn:        ; end of program address (supplactec by linketo c
  1457.  
  1458.     end
  1459. app
  1460. mar
  1461.     call    s    ds    2        ; heap mark
  1462. heapaddn:    d gcall    crlca
  1463.  heap
  1464. $memb
  1465.             ds    2    ',[of pro