Tandy 1000 Programmer's Reference Guide

Chapter 1 I System Calls
Example:
The following program deletes each file on the disk in Drive B
that was last written before December 31, 1982.
year
month
files
ten
message
day
fcb
buffer
func-13H:
compare
:
next:
a1 1-done
:
dw
db
db
db
db
db
db
db
db
1982
12
31
0
10
"NO FILES DELETED.
2 , "7 7 7 7 7 7 7 7 7 7 7"
25 dup (7)
128 dup (7)
set-dta buffer
search-first fcb
CmP
a1 ,FFH
le all-done
convert-date buffer
CmP cx,year
19 next
CmP
dl ,month
19 next
CmP dh ,day
19e next
delete buffer
inc file5
search-next fcb
CmP al,00H
le compare
CmP f I le5,B
le all-done
convert files,ten,me55age
display message
" , 1 3,l 0 , "0"
;seeFunction 09Hfor
;explanationof
$
;5eeFunction 1AH
;5eeFunctionllH
;directoryentry found7
;no,nofile5 ondisk
;seeend of chapter
;next several lines
;check date in directory
;entryagainst date
;above bcheck next file
;if date in directory
;entry isn'tearlier.
;THISFUNCTION
;bump deleted-files
;counter
;see FunctionlZH
;directoryentry found?
;yes, check date
;any files deleted?
;no, display NOFILES
;message.
;seeendof chapter
;see Function 09H
57

Tandy 1000 Specifications

General

Processor	Intel 8088
Processor Speed	4.77 MHz
RAM	128 KB (expandable to 640 KB)
Operating System	MS-DOS 2.11
Manufacturer	Tandy Corporation
Release Year	1984
Storage	Single or double 5.25" floppy disk drive (360 KB), optional hard drive
Sound	Tandy 3-voice sound
Ports	Parallel, Serial
Graphics	CGA (Color Graphics Adapter)
Graphics Modes	320x200, 640x200