Assembler


- 3


. 8087,
ASCII.
, , ,
8087.
 
$STORAGE=4
INTEGER A,HOURS,MINS,SECS,HSECS
CALL TIMER(A)
HOURS=A/65543
A=A-HOURS*65543
MINS=A/1092
A=A-MINS*1092
SECS=A/18
HSECS=(100*(A-SECS*18))/18
WRITE(*,10)HOURS,MINS,SECS,HSECS
10 FORMAT(1X,'THE TIME IS: ',I2,':',I2,':',I2,'.',I2)
END
 
. 10.11
 
Microsoft (R) Macro Assembler Version 5.00 4/2/89 16:07:35
. 10.12 堠 Page 1-1
 
PAGE ,132
TITLE . 10.12
FRAME STRUC
0000 ???? SAVEBP DW ?
0002 ???????? SAVERET DD ?
0006 ???????? A DD ? ;
000A FRAME ENDS
 
0000 CODE SEGMENT 'CODE'
DGROUP GROUP DATA
ASSUME CS:CODE,DS:DGROUP,ES:DGROUP,SS:DGROUP
0000 TIMER PROC FAR
PUBLIC TIMER ; LINK
; TIMER
0000 55 PUSH BP
0001 8B EC MOV BP,SP ;
0003 B4 00 MOV AH,0