Tandy 1000 Programmer's Reference Manual page 78

Chapter
1 I
System Calls
c u r r e n t - r e c o r d equ 32 ; o f f s e t o f C u r r e n t R e c o r d
f
i l e - 5 i z e
f c b
f
i
l e n a m e
p r o m p t 1
p r o m p t 2
c r l f
f i l e - l e n g t h
b u f f e r
f u n c - 2 4 H :
db
d b
d b
d b
db
dw
db
1 6
; f i e l d o f FCB
; o f f s e t o f F i l e S i z e
; f i e l d o f FCB
37 dup
( 7 )
1 7 d u p ( 7 )
" F i l e t o c o p y :
$ "
; s e e F u n c t i o n 0 9 H f o r
"Name o f c o p y :
$ "
1 3 , l
0
, " $ ' I
7
3 2 7 6 7 d u p ( 7 )
; e x p l a n a t i o n o f 0
s e t - d t a b u f f e r ; s e e F u n c t i o n 1RH
d i s p l a y p r o m p t 1 ; s e e F u n c t i o n 09H
g e t - s t r i n g 1 5 , f
I
l e n a m e ; 5 e e F u n c t i o n 0 A H
d i s p l a y c r l f ; s e e F u n c t i o n 09H
p a r s e f i l e n a r n e [ P l , f c b ; s e e F u n c t i o n 2 9 H
o p e n f c b ; s e e F u n c t i o n B F H
mov f c b [ c u r r e n t - r e c o r d l , B ; 5 e t C u r r e n t R e c o r d
s e t - r e l a t i v e - r e c o r d f c b ;THISFUNCTION
mov a x , w o r d p t r f c b I f i l e - s i z e 1 ; g e t f i l e 5 i z e
mov f i l e - l e n g t h , a x ; s a v e
i t
f o r
r a n - b l o o t - r e a d f c b , l , a x ; r a n - b l o c k - w r i t e
; 5 e e
F u n c t i o n 2 7 H
d i s p l a y p r o m p t 2 ; s e e F u n c t i o n 09H
g e t - 5 t r i n g 1 5 , f i l e n a m e ; s e e F u n c t i o n
0 A H
d i s p l a y c r l f ; s e e F u n c t i o n 09H
p a r s e f i l e n a m e [ 2 l , f c b ; s e e F u n c t i o n 29H
c r e a t e f c b ; s e e F u n c t i o n 16H
mov f c b [ c u r r e n t - r e c o r d l , B ; s e t C u r r e n t R e c o r d
s e t - r e l a t i v e - r e c o r d f c b ;THISFUNCTION
mov a x , f i l e - l e n g t h ; g e t o r i g i n a l f i l e
r a n - b l o c k - w r i t e f c b , l , a x ; 5 e e F u n c t i o n 2 8 H
c l o s e f c b
; s e e
F u n c t i o n 10H
; f i e l d
; f i e l d
; l e n g t h
76