title "suspend slave program" ; ; (c) 1985 S. Kluger. All Rights Reserved. ; ; Suspends slave ; cr equ 0dh lf equ 0ah tfunc equ 50h jconv equ 10958 ; .z80 .request syslib ; dseg ; @dcfld::db '00/00/00 at ',0 id: db '.tShell.' offset: db 0 ; ; cseg ; start: ld de,80h ld hl,id ld bc,8 ldir ld bc,41 ld l,0 call tfunc or a jp z,fatal ld (offset),a call print## cr,lf 'Current time: ',0 ld c,10 call tfunc push hl call time call print## cr,lf 'Suspend till: ',0 ld hl,5dh call eval10## push af ld hl,6dh call eval10## pop af ld d,a pop hl ld bc,0 ld (80h),hl ld (82h),de call time ld bc,41 ld a,(offset) add a,17 ld l,a call tfunc call print## cr,lf,lf,7,0 rst 0 ; time: push bc push de ld de,-jconv add hl,de call @dcvrt## ld hl,@dcfld call pstr## pop de ld a,d call ..10 ld a,':' call cout## ld a,e call ..10 ld a,':' call cout## pop bc ld a,b ..10: cp 10 jr nc,..10. push af ld a,'0' call cout## pop af ..10.: jp pafdc## ; fatal: call print## cr,lf,lf,7 'ERROR: tShell not installed',cr,lf,lf,0 rst 0 end