Tandy 1000 Programmer's Reference Guide

Chapter 1 I System Calls
Example:
The following program gets the date, increments the day,
increments the month
or year, if necessary, and sets the
new date.
month db 31,28,31 ,30,31 ,30,31 ,31 ,3% ,31 ,30,31
func-2BH: get-date
i nc
xor
mov
dec
CmP
1le
mov
inc
CmP
J'e
mov
i nc
month-ok: set-date
dl
bx, bx
bl ,dh
bx
dl,month[bxl
month-ok
dl,1
dh
dh,l2
mon
t h-o k
dh,l
cx
cx,dh,dl
;see Function 2AH
;increment day
;so EL can be used as
;index
;move month to index
; reg1 ster
;month table starts with
0
;past end of month?
;no, set the new date
;yes, set day to
1
;and increment month
;past end
of year?
;no, set the new date
;ye5, set the month
;to 1
;increment year
;THIS
FUNCTION
87

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