home *** CD-ROM | disk | FTP | other *** search
- ; test buffers module. Copy file to console
- ;
- ; SEE BUFFERS.DOC for linking instructions
- ;
- boot equ 0
- tfcb equ boot+05ch
- ;
- @cout equ 2
- ;
- extrn .dos, .bfgetc, .bfropen
- ;
- begin: lhld 6
- mvi l,0
- sphl
- lxi d,-buffer-128; allow 128 bytes stack & overhead
- dad d; form buffer size available
- mov b,h ! mov c,l
- lxi d,tfcb
- lxi h,buffer
- xra a; default user
- call .bfropen; open for read
- jc nofile
- ; " "
- loop: call .bfgetc
- jc done
- cpi 01ah; for text files, omit
- jz done; for binary files
- call couta; Can use .bfputc here
- jmp loop
- ;
- nofile: mvi a,9
- lxi d,nofmsg
- call .dos
- ; " "
- done: jmp boot
- ;
- nofmsg: db 'No file$'
- ;
- couta: push d
- mov e,a
- mvi a,@cout
- call .dos
- pop d
- ret
- ;
- dseg
- buffer: ds 0; actually rest of memory
- ;
- end
- =b