home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol096 / crck-51.a86 < prev    next >
Text File  |  1984-04-29  |  17KB  |  827 lines
  1.  
  2. ;    CRCK.ASM Version 5.1 (Originally by: Keith Petersen, W8SDZ)
  3. ; 
  4. ; CRCK  is  a  program to read any CP/M file and  print  a  cyclic-
  5. ; redundancy-check number based on the CCITT standard polynominal:
  6. ; 
  7. ;           x^16 + x^15 + x^13 + x^7 + x^4 + x^2 + x + 1
  8. ; 
  9. ; Useful for checking accuracy of file transfers, and more accurate 
  10. ; than a simple checksum.   Optionally will write an output file to 
  11. ; the  default drive,  listing the CRC's of all files checked in  a 
  12. ; single session.
  13. ; 
  14. ; Commands:   crck [drive:]<filename.filetype> [f]<cr>
  15. ; 
  16. ; Examples:
  17. ; 
  18. ; crck myfile.asm<cr>      (check only myfile.asm)
  19. ; crck *.asm<cr>           (check all .asm files
  20. ; crck *.* f<cr>           (check all files, make file of results)
  21. ; 
  22. ; 
  23. ; Program  updates/fixes  (these  are written in reverse  order  to 
  24. ; minimize reading time to find latest update):
  25. ; 
  26. ; 04/10/82 version 5.1, Kelly Smith 
  27. ; 
  28. ; Removed requirement for MAC.ASM and SEQIO.LIB for assembly
  29. ; 
  30. ; 11/27/81 version 5.0, Dave Barker
  31. ; 
  32. ; All  earlier  versions of CRCK.ASM (up to at least  Ver.  4.2  of 
  33. ; 10/06/80)  seen by this writer (DAB) have a serious flaw  in  the 
  34. ; algorithm  used to generate the CRC value.   Mr.  Petersen used a 
  35. ; routine from "EDN" magazine,  June 5, 1979.  Although the routine 
  36. ; published  in  EDN was a workable one,  the way in which  it  was 
  37. ; applied in CRCK.ASM was incorrect (i.e.  the routine should  have 
  38. ; been called 8 times per byte,  each time with only one bit of the 
  39. ; message in the A register,  then,  at the end of the file, 2 null 
  40. ; bytes  should  have  been processed as if they were part  of  the 
  41. ; file). The method that is used in CRCK.ASM Version 5.0 is a table 
  42. ; lookup method.  Instead of calling a routine 8 times each byte of 
  43. ; the  message  is processed in one short piece  of  straight  line 
  44. ; code.    The table that is used in this method is first generated 
  45. ; during initialization.
  46. ; 
  47. ;                           - Validity -
  48. ; 
  49. ; Version 5.0 generates exactly the same CRC value that the earlier 
  50. ; versions  would  have  generated if they had correctly  used  the 
  51. ; algorithm.   The message (the file) is processed in the order: MS 
  52. ; bit  of the MS byte first (if the file were to be processed as  a 
  53. ; serial  data transmission,  then the LS bit of the MS byte  would 
  54. ; come  first  --> the order in which it is transmitted  through  a 
  55. ; UART).
  56. ; 
  57. ; Note:   Usually, the CRC of a message is appended to the end of a 
  58. ; message  when it is sent.   This causes the resultant CRC at  the 
  59. ; receiving  end  to be zero (this is the reason that the  2  dummy 
  60. ; null  bytes are added to the end of the message when the  CRC  is 
  61. ; generated or checked).
  62. ;
  63. ;
  64. ; 
  65. ; define true and false
  66. ; 
  67. false    EQU    0
  68. true    EQU    not false
  69. ; 
  70. ; conditional assembly switches
  71. ; 
  72. stdcpm    EQU    true            ; true is standard cp/m
  73. altcpm    EQU    false            ; true is h8 or trs-80
  74. nosys    EQU    false            ; true if sys files not wanted
  75. ;
  76. M    EQU    Byte Ptr 0[BX]
  77. ; 
  78. ; system equates
  79. ; 
  80. base    EQU    0
  81. ; 
  82. ; define write buffer size (presently set for 8k)
  83. ; 
  84. bsize    EQU    8*1024            ; disk write buffer size
  85. ; 
  86. ; bdos equates
  87. ; 
  88. rdcon    EQU    1
  89. wrcon    EQU    2
  90. print    EQU    9
  91. cstat    EQU    11
  92. open    EQU    15
  93. close    EQU    16
  94. srchf    EQU    17
  95. srchn    EQU    18
  96. delet    EQU    19
  97. read    EQU    20
  98. write    EQU    21
  99. make    EQU    22
  100. renam    EQU    23
  101. stdma    EQU    26
  102. stbas    EQU    51
  103. ;
  104. bdos    EQU    base+5
  105. ;
  106. fcb    EQU    base+5ch
  107. fcbext    EQU    fcb+12
  108. fcbrno    EQU    fcb+32
  109. fcb2    EQU    base+6ch
  110. ;
  111. tbuf    EQU    base+80h        ; temporary buffer (default) address
  112. buf@siz    EQU    80h            ; buffer size (128 bytes)
  113. ;
  114. crcfilesiz EQU    2000h
  115. ;
  116. tab    EQU    09h            ; tab character
  117. lf    EQU    0ah            ; line feed character
  118. cr    EQU    0dh            ; carriage return character
  119. eof    EQU    'Z'-40h            ; end-of-file character
  120. ;
  121. ; CCIT CRC polynomial mask bytes
  122. ;
  123. himsk    EQU    0a0h            ; high mask byte
  124. lomsk    EQU    097h            ; low mask byte
  125. ; 
  126. ;
  127. ;
  128. ; program starts here
  129. ; 
  130.      ORG    base+100h
  131. ; 
  132. begin:    MOV    SP,(offset stktop)    ; make local stack
  133.     CALL    crlf            ; turn up a new line
  134.     MOV    AL,Byte Ptr .fcb+1
  135.     CMP    AL,' '            ; see if name there
  136.     JNZ    begin2            ; yes, continue
  137.     CALL    erxit            ; print msg, then exit
  138.     DB    '++No File Name Specified++',cr,lf,'$'
  139. ; 
  140. begin2:    CALL    ilprt            ; print:
  141.     DB    '--------- CRCK Ver 5.1 ---------'
  142.     DB    cr,lf
  143.     DB    'CTRL-S to Pause, CTRL-C to Abort'
  144.     DB    cr,lf,cr,lf,0
  145. ;
  146. ; generate the lookup table for fast crc
  147. ;
  148.     MOV    BX,(Offset hitab)
  149.     MOV    CL,0            ; the table index
  150. gloop:    XCHG    BX,DX
  151.     MOV    BX,0            ; init the crc
  152.     MOV    AL,CL
  153.     CALL    lcrc
  154.     XCHG    BX,DX            ; de now has the crc, hl pointing into table
  155.     MOV    M,DH            ; store the high byte of crc
  156.     INC    BH
  157.     MOV    M,DL            ; store the low byte
  158.     DEC    BH
  159.     INC    BX            ; move to next table entry
  160.     INC    CL            ; next index
  161.     JNZ    gloop
  162.     MOV    AL,Byte Ptr .fcb2+1    ; get option
  163.     MOV    Byte Ptr fflag,AL    ; save it for later
  164.     CMP    AL,'F'            ; file wanted?
  165.     JZ    L_1    
  166.     JMP    again            ; no, skip file init
  167. L_1:
  168.     XOR    AL,AL
  169.     MOV    Byte Ptr fcbcrcfile+12,AL    ; clear extent
  170.     MOV    Byte Ptr fcbcrcfile+32,AL    ; clear current record count
  171.     MOV    BX,crcfilesiz        ; set buffer size
  172.     MOV    Word Ptr crcfilelen,BX
  173.     MOV    BX,0            ; set next to fill
  174.     MOV    Word Ptr crcfileptr,BX
  175.     MOV    CL,delet        ; delete file function
  176.     MOV    DX,(Offset fcbcrcfile)    ; delete 'old' crcklist file
  177.     INT    224
  178.     MOV    CL,make            ; make file function
  179.     MOV    DX,(Offset fcbcrcfile)    ; make 'new' crcklist file
  180.     INT    224
  181.     INC    AL            ; make ok?
  182.     JZ    L_2    
  183.     JMP    again
  184. L_2:
  185.     MOV    CL,print        ; print string function
  186.     MOV    DX,(Offset dir@full)    ; indicate that directory is full
  187.     INT    224
  188.     JMP    filerr
  189. ;
  190. ;
  191. ;
  192. putcrcfile:
  193. ;
  194.     LAHF                ; save output character
  195.     XCHG    AL,AH
  196.     PUSH    AX
  197.     MOV    BX,Word Ptr crcfilelen    ; get current buffer length
  198.     XCHG    BX,DX            ; de has length
  199.     MOV    BX,Word Ptr crcfileptr    ; load next to get/put to hl
  200.     MOV    AL,BL            ; compute current length
  201.     SUB    AL,DL
  202.     MOV    AL,BH
  203.     SBB    AL,DH            ; carry if next < length
  204.     JB    putcrc4            ; carry if length > current
  205.     MOV    BX,0            ; end of buffer, fill (empty) buffers    
  206.     MOV    Word Ptr crcfileptr,BX    ; clear next to get/put
  207. ;
  208. putcrc1:                ; process next disk sector
  209. ;
  210.     XCHG    BX,DX            ; file pointer to de
  211.     MOV    BX,Word Ptr crcfilelen    ; hl is maximum buffer length
  212.     MOV    AL,DL            ; compute next length
  213.     SUB    AL,BL            ; to get carry, if more fill
  214.     MOV    AL,DH
  215.     SBB    AL,BH
  216.     JNB    putcrc3
  217.     MOV    BX,Word Ptr crcfileadr    ; got carry, more to fill yet
  218.     ADD    BX,DX            ; hl is next buffer address
  219.     XCHG    BX,DX
  220.     MOV    CL,stdma        ; set dma address
  221.     INT    224
  222.     MOV    CL,stbas        ; set dma base
  223.     MOV    DX,DS
  224.     INT    224
  225.     MOV    DX,(Offset fcbcrcfile)    ; fcb address to de
  226.     MOV    CL,write        ; file write
  227.     INT    224
  228.     OR    AL,AL            ; check return code
  229.     JNZ    putcrc2            ; end-of-file yet?
  230.     MOV    DX,buf@siz        ; not eof, increment length by 128
  231.     MOV    BX,Word Ptr crcfileptr    ; next to fill
  232.     ADD    BX,DX
  233.     MOV    Word Ptr crcfileptr,BX    ; save new pointer
  234.     JMPS    putcrc1            ; process another sector
  235. ;
  236. putcrc2:                ; got end-of-file
  237. ;
  238.     MOV    CL,print        ; print string function
  239.     MOV    DX,(Offset dsk@full)    ; disk is full
  240.     INT    224
  241.     POP    AX            ; clean stack
  242.     XCHG    AL,AH
  243.     JMP    filerr            ; file error, exit
  244. ;
  245. putcrc3:                ; end of buffer, reset dma and pointer
  246. ;
  247.     MOV    DX,tbuf            ; point to temporary buffer
  248.     MOV    CL,stdma        ; set dma function
  249.     INT    224
  250.     MOV    CL,stbas        ; set dma base
  251.     MOV    DX,DS
  252.     INT    224
  253.     MOV    BX,0            ; reset pointer for next to get
  254.     MOV    Word Ptr crcfileptr,BX
  255. ;
  256. putcrc4:                ; process the next character
  257. ;
  258.     XCHG    BX,DX            ; index to get/put in de
  259.     MOV    BX,Word Ptr crcfileadr    ; base of buffer
  260.     ADD    BX,DX            ; address of character in hl
  261.     XCHG    BX,DX            ; and swap to de
  262.     POP    AX            ; get save character
  263.     XCHG    AL,AH
  264.     SAHF
  265.     MOV    DI,DX            ; character to buffer
  266.     MOV    [DI],AL
  267.     MOV    BX,Word Ptr crcfileptr    ; index to get/put
  268.     LAHF                ; and update for next character
  269.     INC    BX
  270.     SAHF
  271.     MOV    Word Ptr crcfileptr,BX
  272.     RET
  273. ; 
  274. again:    MOV    SP,(offset stktop)    ; make local stack
  275.     CALL    mfname            ; search for names
  276.     JNAE    L_3    
  277.     JMP    namtst            ; another found, print name
  278. L_3:
  279.     MOV    AL,Byte Ptr mfflg1    ; nothing found, check...
  280.     OR    AL,AL            ; ... first time flag
  281.     JZ    done            ; at least one was found
  282.     CALL    abexit            ; print msg, then exit
  283.     DB    '++File Not Found++$'
  284. ; 
  285. done:    MOV    AL,Byte Ptr fflag    ; see if we're making file
  286.     CMP    AL,'F'
  287.     JNZ    done2            ; no, skip the file stuff
  288. ; 
  289. ; close crcklist.$$$
  290. ;
  291. closecrc:
  292. ;
  293.     MOV    BX,Word Ptr crcfileptr
  294.     MOV    AL,BL
  295.     AND    AL,07fh
  296.     JNZ    close1
  297.     MOV    Word Ptr crcfilelen,BX
  298. close1:    MOV    AL,eof
  299.     LAHF
  300.     XCHG    AL,AH
  301.     PUSH    AX
  302.     XCHG    AL,AH
  303.     CALL    putcrcfile
  304.     POP    AX
  305.     XCHG    AL,AH
  306.     SAHF
  307.     JNZ    closecrc
  308.     MOV    CL,close
  309.     MOV    DX,(Offset fcbcrcfile)
  310.     INT    224
  311.     INC    AL
  312.     JNZ    erase
  313.     MOV    CL,print
  314.     MOV    DX,(Offset no@close)
  315.     INT    224
  316. ; 
  317. ; erase any existing old file
  318. ;
  319. erase:    MOV    CL,delet
  320.     MOV    DX,(Offset fcbfinal)
  321.     INT    224
  322. ; 
  323. ; rename crcklist.$$$ to crcklist.crc
  324. ;
  325.     MOV    BX,(Offset fcbcrcfile)
  326.     MOV    DX,(Offset fcbfinal)
  327.     PUSH    BX
  328.     MOV    CX,16
  329.     LAHF
  330.     ADD    BX,CX
  331.     RCR    SI,1
  332.     SAHF
  333.     RCL    SI,1
  334. ;
  335. mov@name:
  336. ;
  337.     MOV    SI,DX
  338.     MOV    AL,[SI]
  339.     MOV    M,AL
  340.     LAHF
  341.     INC    DX
  342.     SAHF
  343.     LAHF
  344.     INC    BX
  345.     SAHF
  346.     DEC    CL
  347.     JNZ    mov@name
  348.     POP    DX
  349.     MOV    CL,renam
  350.     INT    224
  351. ; 
  352. ; now exit to cp/m
  353. ;
  354. done2:    CALL    erxit            ; print done, then exit
  355.     DB    cr,lf,'Done$'
  356. ; 
  357. ; test for names to ignore
  358. ; 
  359. namtst:    
  360. ;
  361.     if    nosys            ; if $SYS file, ignore it
  362.     MOV    AL,Byte Ptr .fcb+10    ; get $SYS file attribute
  363.     AND    AL,080h            ; is it $SYS?
  364.     JNZ    again            ; yes, ignore this file
  365.     endif                ; nosys 
  366. ; 
  367. ; ignore files with .$$$ filetype (they are usually
  368. ; zero-length and clutter up our display.  we also
  369. ; want to ignore our own crcklist.$$$ temporary file).
  370. ; 
  371.     MOV    BX,fcb+9        ; point to filetype in fcb
  372.     CALL    tstbad            ; check for .$$$ files
  373.     JNZ    L_4    
  374.     JMP    again            ; if zero flag, ignore them
  375. L_4:
  376. ; 
  377. ; move 8 characters from fcb+1 to fname
  378. ;
  379.     MOV    BX,fcb+1
  380.     MOV    DX,(Offset fname)
  381.     MOV    CX,8
  382.     CALL    mover
  383. ;
  384. ; move 3 characters from fcb+9 to fname+9
  385. ;
  386.     MOV    BX,fcb+9
  387.     MOV    DX,(Offset fname)+9
  388.     MOV    CX,3
  389.     CALL    mover
  390. ;
  391. ; now print filename.type
  392. ;
  393.     CALL    ilprt            ; print:
  394. ;
  395. fname    DB    'xxxxxxxx.xxx',tab,'CRC = ',0
  396. ; 
  397. ; open the file
  398. ;
  399.     MOV    DX,fcb
  400.     MOV    CL,open
  401.     INT    224
  402.     INC    AL
  403.     JNZ    rdinit
  404.     CALL    abexit
  405.     DB    '++Open Failed++$'
  406. ; 
  407. ; initialize crc to zero and set bufad to cause initial read
  408. ;
  409. rdinit:    MOV    BX,0
  410.     MOV    Word Ptr rem,BX        ; init remainder to zero
  411.     MOV    BX,base+100h
  412.     MOV    Word Ptr bufad,BX    ; init buffer adrs
  413. ; 
  414. ; this is the read loop
  415. ;
  416. readit:    MOV    BX,Word Ptr bufad
  417.     MOV    AL,BH            ; time to read?
  418.     CMP    AL,base shr 8
  419.     JZ    nord            ; no read
  420.     MOV    CL,cstat
  421.     INT    224            ; check for operator abort
  422.     OR    AL,AL
  423.     JZ    read2            ; nothing from operator
  424.     MOV    CL,rdcon
  425.     INT    224            ; get character inputted
  426.     CMP    AL,'C'-40h        ; control c?
  427.     JNZ    L_5    
  428.     JMP    abext2            ; yes exit
  429. L_5:
  430. ; 
  431. read2:    MOV    DX,fcb
  432.     MOV    CL,read            ; read another sector of file
  433.     INT    224
  434.     OR    AL,AL            ; check return code
  435.     JNZ    finish            ; error or eof
  436.     MOV    BX,tbuf            ; buffer location
  437. ; 
  438. nord:    MOV    AL,M            ; get file character
  439.     INC    BX
  440.     MOV    Word Ptr bufad,BX
  441.     MOV    BX,Word Ptr rem        ; pick up the partial remainder
  442. ; 
  443. ; table lookup method for crc generation
  444. ;
  445.     XCHG    BX,DX            ; de now has the partial
  446.     MOV    CH,0
  447.     XOR    AL,DH
  448.     MOV    CL,AL
  449.     MOV    BX,(Offset hitab)
  450.     ADD    BX,CX
  451.     MOV    AL,M
  452.     XOR    AL,DL
  453.     MOV    DH,AL
  454.     INC    BH
  455.     MOV    DL,M
  456.     XCHG    BX,DX
  457.     MOV    Word Ptr rem,BX
  458.     JMPS    readit            ; go read more characters
  459. ; 
  460. ;
  461. ;
  462. finish:    CMP    AL,1            ; normal end-of-file?
  463.     JNZ    filerr            ; no, it was a read error
  464.     MOV    AL,Byte Ptr rem+1    ; get msp of crc
  465.     CALL    hexo            ; print it
  466.     MOV    AL,Byte Ptr rem        ; get lsp of crc
  467.     CALL    hexo            ; print it
  468.     CALL    crlf            ; turn up new line
  469.     JMP    again            ; see if more files to do
  470. ; 
  471. filerr:    CALL    abexit            ; abort because of file read error
  472.     DB    '++File Read Error++$'
  473. ; 
  474. ;  hl contains the partial, a the character to be crc'd
  475. ; 
  476. lcrc:    PUSH    CX
  477.     MOV    CH,8
  478.     XOR    AL,BH
  479.     MOV    BH,AL
  480. loop:    SHL    BX,1
  481.     JNB    skip
  482.     MOV    AL,himsk
  483.     XOR    AL,BH
  484.     MOV    BH,AL
  485.     MOV    AL,lomsk
  486.     XOR    AL,BL
  487.     MOV    BL,AL
  488. skip:    DEC    CH
  489.     JNZ    loop
  490.     POP    CX
  491.     RET
  492. ; 
  493. ; hex output
  494. ; 
  495. hexo:    LAHF                ; save for right digit
  496.     XCHG    AL,AH
  497.     PUSH    AX
  498.     XCHG    AL,AH
  499.     RCR    AL,1            ; right..
  500.     RCR    AL,1            ; ..justify..
  501.     RCR    AL,1            ; ..left..
  502.     RCR    AL,1            ; ..digit..
  503.     CALL    nibbl            ; print left digit
  504.     POP    AX            ; restore right
  505.     XCHG    AL,AH
  506. ; 
  507. nibbl:    AND    AL,0fh            ; isolate digit
  508.     CMP    AL,10            ; is is <10?
  509.     JB    isnum            ; yes, not alpha
  510.     ADD    AL,7            ; add alpha bias
  511. ; 
  512. isnum:    ADD    AL,'0'            ; make printable
  513.     JMPS    display            ; print it, then return
  514. ; 
  515. ;
  516. ;
  517. ; inline print routine
  518. ; 
  519. ilprt:    MOV    BP,SP            ; save hl, get msg
  520.     XCHG    BX,[BP]
  521. ; 
  522. ilplp:    MOV    AL,M            ; get char
  523.     CALL    display            ; output it
  524.     INC    BX            ; point to next
  525.     MOV    AL,M            ; test
  526.     OR    AL,AL            ; ..for end
  527.     JNZ    ilplp
  528.     INC    BX            ; bump pointer for return address
  529.     MOV    BP,SP            ; restore hl, ret addr
  530.     XCHG    BX,[BP]
  531.     RET                ; ret past msg
  532. ; 
  533. ;
  534. ;
  535. ; send carriage return, line feed to output
  536. ; 
  537. crlf:    MOV    AL,cr            ; carriage return
  538.     CALL    display
  539.     MOV    AL,lf            ; line feed, fall into 'type'
  540. ; 
  541. ; send character in a register to output
  542. ; 
  543. display:
  544. ;
  545.     PUSH    CX
  546.     PUSH    DX
  547.     PUSH    BX
  548.     AND    AL,7fh            ; strip parity bit
  549.     MOV    DL,AL
  550.     PUSH    DX
  551.     CALL    wrfile            ; write to file if requested
  552.     POP    DX
  553.     MOV    CL,wrcon        ; send character to console
  554.     INT    224
  555.     POP    BX
  556.     POP    DX
  557.     POP    CX
  558.     RET
  559. ; 
  560. ;
  561. ;
  562. ; write character in e register to output file
  563. ; 
  564. wrfile:    MOV    AL,Byte Ptr fflag    ; get file trigger
  565.     CMP    AL,'F'            ; is it set?
  566.     JZ    L_6    
  567.     RET                ; no, return
  568. L_6:
  569.     MOV    AL,DL            ; get character back
  570.     CALL    putcrcfile
  571.     RET
  572. ; 
  573. ; multi-file access subroutine.  allows processing
  574. ; of multiple files (i.e. *.asm) from disk.  this
  575. ; routine builds the proper name in the fcb each
  576. ; time it is called. carry is set if no more names
  577. ; can be found.
  578. ; 
  579. mfname:                ; init dma addr and fcb
  580.     MOV    CL,stdma
  581.     MOV    DX,tbuf
  582.     INT    224
  583.     MOV    CL,stbas        ; set dma base
  584.     MOV    DX,DS
  585.     INT    224
  586.     XOR    AL,AL
  587.     MOV    Byte Ptr .fcbext,AL
  588.     MOV    Byte Ptr .fcbrno,AL
  589. ;
  590. ; if first time
  591. ;
  592.     MOV    AL,Byte Ptr mfflg1
  593.     OR    AL,AL
  594.     JZ    mfn01
  595. ;
  596. ; save the requested name
  597. ;
  598.     MOV    BX,fcb
  599.     MOV    DX,(Offset mfreq)
  600.     MOV    CX,12
  601.     CALL    mover
  602.     MOV    AL,Byte Ptr .fcb
  603.     MOV    Byte Ptr mfcur,AL    ; save disk in curr fcb
  604. ;
  605. ; srchf requested name
  606. ;
  607.     MOV    BX,(Offset mfreq)
  608.     MOV    DX,fcb
  609.     MOV    CX,12
  610.     CALL    mover
  611.     MOV    CL,srchf
  612.     MOV    DX,fcb
  613.     INT    224
  614. ;
  615. ; else
  616. ;
  617.     JMPS    mfn02
  618. ; 
  619. mfn01:                    ; srchf current name
  620.     MOV    BX,(Offset mfcur)
  621.     MOV    DX,fcb
  622.     MOV    CX,12
  623.     CALL    mover
  624.     MOV    CL,srchf
  625.     MOV    DX,fcb
  626.     INT    224
  627. ;
  628. ; srchn requested name
  629. ;
  630.     MOV    BX,(Offset mfreq)
  631.     MOV    DX,fcb
  632.     MOV    CX,12
  633.     CALL    mover
  634.     MOV    CL,srchn
  635.     MOV    DX,fcb
  636.     INT    224
  637. ;
  638. ; endif
  639. ;
  640. mfn02:                    ; return carry if not found
  641.     INC    AL
  642.     STC
  643.     JNZ    L_7
  644.     RET
  645. L_7:
  646. ;
  647. ; move name found to current name
  648. ;
  649.     DEC    AL
  650.     AND    AL,3
  651.     ADD    AL,AL
  652.     ADD    AL,AL
  653.     ADD    AL,AL
  654.     ADD    AL,AL
  655.     ADD    AL,AL
  656.     ADD    AL,81h
  657.     MOV    BL,AL
  658.     MOV    BH,0
  659.     PUSH    BX            ; save name pointer
  660.     MOV    DX,(Offset mfcur)+1
  661.     MOV    CX,11
  662.     CALL    mover
  663. ;
  664. ; move name found to fcb
  665. ;
  666.     POP    BX
  667.     MOV    DX,fcb+1
  668.     MOV    CX,11
  669.     CALL    mover
  670. ;
  671. ; setup fcb
  672. ;
  673.     XOR    AL,AL
  674.     MOV    Byte Ptr .fcbext,AL
  675.     MOV    Byte Ptr .fcbrno,AL
  676.     MOV    Byte Ptr mfflg1,AL    ; turn off 1st time sw
  677.     RET
  678. ;
  679. ;
  680. ; 
  681. ; check for .$$$ files
  682. ; 
  683. tstbad:    CALL    testit            ; check first one for '$'
  684.     JZ    L_8    
  685.     RET                ; no, return
  686. L_8:
  687.     CALL    testit            ; check second one
  688.     JZ    L_9    
  689.     RET                ; no, return
  690. L_9:
  691. testit:    MOV    AL,M
  692.     AND    AL,7fh            ; strip attribute
  693.     CMP    AL,'$'            ; check for $ filetype
  694.     LAHF
  695.     INC    BX
  696.     SAHF
  697.     RET
  698. ;
  699. ;
  700. ; 
  701. ; move (bc) bytes from (hl) to (de)
  702. ; 
  703. mover:    MOV    AL,M
  704.     MOV    SI,DX
  705.     MOV    [SI],AL
  706.     INC    BX
  707.     INC    DX
  708.     DEC    CX
  709.     MOV    AL,CH
  710.     OR    AL,CL
  711.     JNZ    mover
  712.     RET
  713. ; 
  714. ;
  715. ;
  716. ; aborted - print reason.  if making output file,
  717. ; close the incomplete file to update cp/m's bit map,
  718. ; then erase it.
  719. ; 
  720. abexit:    POP    DX            ; get msg adrs
  721.     MOV    CL,print
  722.     INT    224            ; print msg
  723. ; 
  724. abext2:    MOV    AL,Byte Ptr fflag    ; see if we are making file
  725.     CMP    AL,'F'
  726.     JNZ    abext5            ; no file, skip file stuff
  727. abext3:    MOV    BX,Word Ptr crcfileptr
  728.     MOV    AL,BL
  729.     AND    AL,07fh
  730.     JNZ    abext4
  731.     MOV    Word Ptr crcfilelen,BX
  732. abext4:    MOV    AL,eof
  733.     LAHF
  734.     XCHG    AL,AH
  735.     PUSH    AX
  736.     XCHG    AL,AH
  737.     CALL    putcrcfile
  738.     POP    AX
  739.     XCHG    AL,AH
  740.     SAHF
  741.     JNZ    abext3
  742.     MOV    CL,close
  743.     MOV    DX,(Offset fcbcrcfile)
  744.     INT    224
  745.     INC    AL
  746.     JNZ    era@crc
  747.     MOV    CL,print
  748.     MOV    DX,(Offset no@close)
  749.     INT    224
  750. ;
  751. ; erase incomplete file
  752. ;
  753. era@crc:
  754. ;
  755.     MOV    CL,delet
  756.     MOV    DX,(Offset fcbcrcfile)
  757.     INT    224
  758. ; 
  759. abext5:    CALL    erxit            ; print msg, exit
  760.     DB    cr,lf,cr,lf,'++Aborted++$'
  761. ;
  762. ; exit with message
  763. ; 
  764. erxit:    POP    DX            ; get msg
  765.     MOV    CL,print
  766.     INT    224
  767. ; 
  768. ; exit, via system warm boot
  769. ; 
  770. exit:    mov    cl,0    ; warm boot to cp/m
  771.     mov    dl,0
  772.     int 224
  773. ;
  774. ;
  775. ;
  776. dir@full DB    cr,lf
  777.     DB    '++No Directory Space for CRC File++'
  778.     DB    '$'
  779. ;
  780. dsk@full DB    cr,lf
  781.     DB    '++No Disk Space for CRC File++'
  782.     DB    '$'
  783. ;
  784. no@close DB    cr,lf
  785.     DB    '++Cannot Close CRC File++'
  786.     DB    '$'
  787.  
  788. ; 
  789. ; program storage area
  790. ; 
  791.     RS    64        ; 32 level local stack
  792. stktop    equ    $        ; top of local stack
  793. ;
  794. fflag    DB    0            ; file write request flag
  795. rem    DW    0            ; crc remainder storage
  796. mess    DB    0            ; crc message char goes here
  797. mfflg1    DB    1            ; 1st time switch
  798. mfreq    RS    12            ; requested name
  799. mfcur    RS    12            ; current name
  800. bufad    RS    2            ; read buffer address
  801. ;
  802. hitab    RS    512            ; the 2 tables for crc lookup
  803. ;
  804. crcfilelen    DW    crcfilesiz
  805. ;
  806. crcfileptr    RS    2
  807. ; 
  808. ; build fcb for final name of crcklist.crc
  809. ;
  810. fcbfinal    DB    0,'CRCKLISTCRC'
  811.         DB    0
  812.         RS    20
  813. ;
  814. ; 'declare' fcb for output file (temporarily named crcklist.$$$)
  815. ;
  816. fcbcrcfile    DB    0,'CRCKLIST$$$'
  817.         DB    0
  818.         RS    20
  819. ;
  820. crcfileadr    DW    crcfileadr+2    ; buffer all crc file data here
  821.         RS    02000h        ; force buffer area
  822.         DB    0        ; tag 'end' for GENCMD
  823. ;
  824. ;
  825. ; 
  826.     END
  827.