;
;
; Here is an interesting "patch" to Digital Research's
; MAC.COM, that incorporates a "real time clock display. This
; patch works with MAC.COM version 2.0 ONLY. Merge it into
; MAC.COM as follows:
;
; A>DDT MAC.COM<cr>
; NEXT PC
; 2F00 0100
; -IMACTIME.HEX<cr>
; -R<cr>
; NEXT PC
; 308E 0000
; -^C
; A>SAVE 48 MACTIME.COM<cr>
;
; Now you have a new "MAC" command file called MACTIME.COM;
; now re-assemble MACTIME.ASM (assuming your clock/calendar
; board, and the time is properly set) with MACTIME.COM.
;
; Notice, that the date and time will be displayed at the
; start of execution. Also because the "title" pseudo-op was
; used, the time is listed in the ".PRN" file that is
; generated, on each page heading.
;
; Best regards,
;
; Kelly Smith, MP/M-Net (tm) Sysop
; (805) 527-9321 (Modem, 300 Baud)
;
;
;
; For Compu-Time T-102 TIME/DATE board (With MM 5375 AC)
;
; or,
;
; QT Computer Systems Inc. "Clock/Calendar +" board
;
;
true equ -1 ; define true
false equ not true; define false
qt equ true ; define QT Computer Systems Inc. board
ct equ false ; define Compu-Time board
clock equ 080h ; real time clock base port address
endif
if ct
clock equ 024h ; real time clock base port address
endif
org 100h
jmp date ; jump to set date and time
org 2f00h ; date and time routine
date: lxi h,month ; point to month
mvi d,8 ; select month tens digit
call digit ; read and store high digit
rlc ! rlc ! rlc ! rlc ; shift to high order hex digit
mov b,a ; save in b reg.
call digit ; read and store month units digit
ora b ; or-in the units and tens digit
mov b,a ; save the month in b reg.
call digit ; read and store the day tens digit
rlc ! rlc ! rlc ! rlc ; shift to high order hex digit
mov c,a ; save in c reg.
call digit ; read and store day units digit
ora c ; or-in the units and tens digit
mov c,a ; save the day in c reg.
;
; test the date, and convert it to four year calendar format
;
cpi 031h ; 31st day?
mov a,b ; get the month, for next test
jnz m2 ; if not the 31st, test for february
cpi 2 ; test for months < 31 days
jz fix ; ...and fix if needed
cpi 4
jz fix
cpi 6
jz fix
cpi 9
jz fix
cpi 011h
jz fix
m2: cpi 2 ; test for february
jnz time ; if not february, then read time
mov a,c ; get day for test
cpi 029h ; is this the 29th day?
;
; insert two NOP's over previous instruction, if this is a leap year
;
jz fix ; fix date...
cpi 030h ; 30th day?
jnz time ; if not the 29th or 30th, go read time
fix: mvi a,41 ; select month units and fast set
call rdigit ; read the month units digit
mov b,a ; save in b reg.
floop: in clock ; read the months unit digit
cmp b ; test for digit changed
jz floop ; wait until month is bumped (stable data)
time: lxi h,hour ; point to hour
mvi d,0 ; select hour tens digit
call ddigit ; read hour tens and units
inx h ; step over ":"
call ddigit ; read minutes tens and units
inx h ; step over ":"
call ddigit ; read second tens and units
lda month ; get high byte of the month
cpi ' ' ; in the range of january to september?
jz jansept
lda month+1 ; must be october to december...
cpi '0' ; october?
lxi d,oct
jz mmonth ; move, if so
cpi '1' ; november?
lxi d,nov
jz mmonth ; move, if so
lxi d,dec ; december!
jmp mmonth ; move it...
jansept:lda month+1 ; it's january to september
cpi '1' ; january?
lxi d,jan
jz mmonth ; move, if so
cpi '2' ; february?
lxi d,feb
jz mmonth ; move, if so
cpi '3' ; march?
lxi d,mar
jz mmonth ; move, if so
cpi '4' ; april?
lxi d,apr
jz mmonth ; move, if so
cpi '5' ; may?
lxi d,may
jz mmonth ; move, if so
cpi '6' ; june?
lxi d,jun
jz mmonth ; move month
cpi '7' ; july?
lxi d,jul
jz mmonth ; move, if so
cpi '8' ; august?
lxi d,aug
jz mmonth ; move, if so
lxi d,sep ; it's september
mmonth: mvi b,4 ; four characters to move
lxi h,fakem ; place to move real month
movem: ldax d ; get the character to move
mov m,a ; move it
inx h ; bump both pointers
inx d
dcr b ; de-bump the count left to move..
jnz movem ; loop 'till all characters moved
lxi h,overlay ; point to overlay area
lxi d,fakem ; point to stuff to be moved
mvi b,end$move-start$move ; how much to move...
move1: ldax d ; get stuff to move
mov m,a ; move it...
inx h ; bump both pointers
inx d
dcr b ; de-bump the move counter
jnz move1 ; loop 'till it's all moved
done: jmp mac ; now jump into MAC...
ddigit: call digit ; read and store two digits
digit: mov a,d ; move digit select code to a reg.
call rdigit ; read a clock digit
cpi 0ffh ; test for board present
jz nobrd ; go print error message
ori 030h ; convert digit to ASCII
cpi 03fh ; test for blanked leading zero
jnz store ; go store digit, if not blanked
mvi a,020h ; convert to a blank
store: mov m,a ; store the digit in message buffer
inx h ; bump message pointer buffer location
inr d ; step to next digit
ani 00fh ; mask off high ASCII nibble
ret ; return with digit in a reg.
nobrd: pop h ; adjust the stack
lxi d,errmsg; point to the error message
mvi c,pbuf ; print buffer function
call bdos ; let CP/M do the work
jmp done ; print error message, and exit to CP/M
rdigit: out clock ; select digit
mvi a,0 ; ...some delay time for settling
dloop: dcr a
jnz dloop
in clock ; read a digit
ret ; return with digit in a reg.
;
; message buffers
;
start$move equ $ ; start moving from here
fakem: ds 2 ; storage for faked-out month,
; which will overlay the next four bytes
month: ds 4 ; storage for the real month and date
db ',1980 '; the year...
hour: db 'xx:' ; the hour...
db 'xx:' ; the minute...
db 'xx' ; the second...
db 0dh ; string delimeter
end$move equ $ ; end of move
errmsg: db cr,lf,'The Clock Board is NOT INSTALLED!',cr,lf,'$'
jan: db 'Jan '
feb: db 'Feb '
mar: db 'Mar '
apr: db 'Apr '
may: db 'May '
jun: db 'Jun '
jul: db 'Jul '
Aug: db 'Aug '
sep: db 'Sep '
oct: db 'Oct '
nov: db 'Nov '
dec: db 'Dec '
