home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.barnyard.co.uk
/
2015.02.ftp.barnyard.co.uk.tar
/
ftp.barnyard.co.uk
/
cpm
/
walnut-creek-CDROM
/
CPM
/
TURBODSG
/
TIMECL.MAC
< prev
next >
Wrap
Text File
|
2000-06-30
|
1KB
|
76 lines
; TIMECL - time addition to command line in TurboDOS
; This is version 1.2
;
; Written : 08-23-84 by S. Kluger
; Updated : 08-25-84 (added station display, made version independent)
;
.z80
;
; unserialized for general distribution
;
; The following effect is achieved by integrating TIMECL
; into the SYS file:
;
; Before:
; 0A}
; After:
; [17:23 A] 0A}
; ^station number
; use CMDINT + 0C = TIMECL in .PAR file
;
cseg
;
extrn ocntry ;C-funtion entry point
extrn otntry ;T-function entry point
extrn clblen ;a pointer
public timecl
;
timecl: ld c,12 ;TD version call
call otntry
ld a,c
cp 14h ;if not 1.4...
jr nz,dotime ;...then do it no matter what
ld a,(clblen+9)
or a ;if prompt inhibit...
jr nz,skip ;...then don't display time
dotime: ld c,105 ;time call
ld de,time ;work area
call ocntry
ld hl,timst+1
ld a,(time+2) ;get hours
call bytout ;output hours
inc hl
ld a,(time+3) ;get minutes
call bytout ;output minutes
ld c,12
call ocntry
ld a,e
add a,'@'
ld (sta),a
ld c,9
ld de,timst
call ocntry
skip: ld c,32 ;get user code
ld e,0ffh
jp ocntry ;continue
;
bytout: push af
rra
rra
rra
rra
call nybout
pop af
nybout: and 0fh
add a,'0'
ld (hl),a
inc hl
ret
;
dseg
;
time: db 0,0,0,0,0
timst: db '[00:00 '
sta: db 'A] $'
end