80-Bus News

  

Spring 1985, Volume 4, Issue 1











Page 15 of 31











Index file loader for Dbase M-80 17 May 1985 21:53 PAGE 1 Title Index file loader for Dbase

. 280 0000’ aseg

; CP/M equates

0005 bdos equ 0005h 0080 dma equ 0080h OOoF opnfil equ 16 0010 clsfil equ 16 0011 srchfst equ 17 0012 srchnxt equ 18 0013 delfil equ 19 0014 rdfil equ 20 0015 wrfil equ 21 0016 makfil equ 22 OO1A setdma equ 26 org 100h

-phase 0c000h

cooo C3 cO4A jp start

; Workspace C003 dstdrv: defs 1 ; Destination drive name

; Source fcb

coo4 febl: defs 1 ; Source drive name .. co05 fcbla: defs ll : .. file name mask .. co10 feblb: defs 23 : .. rest of source feb C027 feb2: defs 35 ; Destination fcb

; Find the files to copy

CO4A 11 0080 start: ld de, dma ; Set the DMA address co4D OE 1A la c,setdma

co4F cD 0005 call bdos

C052 cD coco call clr

C055 1l co04 ld de, febl ; Search for first C058 OE 11 ld c,srchfst

COSA cD 0005 call bdos

cosp FE FF cp offh ; Quit if not found CosF ce ret Zz

cose CD COB3 call loc ; Put it in save C063 11 c10D la de, save

CO66 01 0008 ld be, 11

co6s ED BO ldir

CO6B DS push de

coec ll co04 srch: ld de, febl ; Search for next COGF OE 12 ld co, srcehnxt

C071 cD 0005 call bdos

coT4 FE FF cp Offh ; No more ?

co76 28 0C jr z,schdon

co78 CD COBS call loc ; Put it in save

CO7B DL pop de


This is an OCR’d version of the scanned page and likely contains recognition errors.











Page 15 of 31