title "Last System Reset Display" ; ; (c) 1985 S. Kluger. All Rights Reserved. ; ; Displays date/time of last system reset ; 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,0fe29h ld de,0 ld l,0 call tfunc or a jp z,fatal ld bc,0fe29h ld de,0 add a,14 ld l,a call tfunc call print## cr,lf,lf 'Last system reset occurred on ',0 call time call print## cr,lf 'Last slave reset occurred on ',0 ld bc,41 ld l,0 call tfunc or a jp z,fatal ld bc,41 add a,14 ld l,a call tfunc call time call print## cr,lf,lf,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