LaC
OBJ
LINE
SOURCE
F03E
FEC68C183266FEOO
5864
DB
OFEH,OC6H,08CH,OI8H,03ZH,066H.OFEH,OOOH
j Z O_5A
FD46
7860606060607800
5865
DB
078H,D60H,060H.060H.06OH,060H,078H,000H
j [
0_5B
F04E
C06030180C060200
5866
DB
BACKSlASH
0_5C
OCOH,060H.030H.018H,00CH,006H,00ZH,OOOH
I
FDS6
7818181818187800
5867
DB
078H,018H,OI8H,018H,018H,OI8H,078H,OOOH
I I
0_50
FOSE
10386(C600000000
5868
DB
010H,038H.06CH,OC6H.000H,000H.000H,000H
I CIRCUMFLEX
0_5E
F066
OOOOOOOOOQOOOOFF
5869
D8
OOOH.OOOH,
OOOH,
OOOH
.OOOH
.OOOH,
OOOH
.OFFH I _
0_5F
FD6E
3030180000000000
5870
DB
030H.030H.018H,000H,000H.000H,000H,000H
I •
0_6D
FD76 0000760C7CCC7600
5871
DB
1
CASE
A
o_61
000H.00DH,078H,OOCH,07CH.oCCH,076H,OoOcH
LOWER
F07E
£060607C66660COO
5872:
DB
OEOH,060H,060H.07CH,066H,066H,00CH,000H
I
L.C.
B
0_62
f086
000078CCCOCC7800
5873
D8
000H,000H,078H.OCCH,OCOH.OCCH.078H,000H
I
L.C.
C
0_61
F08E lCOCOC7CCCCC7600
5874
DB
OiCH,00CH.OOCH.07CH.OCCH,OCCH,076H,000H
I
L.C.
0
o_64
FD96 aOOQ78CCFCC07800
5875
D.
000H.000H,078H,OCCH,OFCH,OCOH.078H.000H
j
L.C.
E
0_65
FD9E 386C60F06D60FOOO
587.
DB
038H,06CH,060H.OFOH,060H,060H.OFOH.000H
I
l.C.
F
o_66
FDA6
OOOQ76CCCC7COCF8
5877
DB
000H,000H,076H,OCCH,OCCH,07CH,00CH,OF8H
I
L.C.
G
0_67
FOAE
£0606C766666£600
5878
DB
OEOH,060H,06CH.076H.066H,066H,OE6H.000H
I
L.C.
H
0_68
FDS6
3000703030307800
5879
DB
030H,OOOH,070H.030H.030H,030H,078H,000H
;
l.C.
I 0_69-
FOBE
DCOOOCOCOCCCCC78
5880
DB
00CH.000H.00CH,00CH,OOCH.OCCH.OCCH.078H
;
l.C.
J
0_6A
FOCo
E060666C786CE600
5881
DB
OEDH,060H.066H,06CH.07SH,06CH,OE6H,000H
I
l.C.
K
0_6B
FOCE
7030303030307800
588Z
DB
070H,030H,030H.030H.030H,03-0H,07SH,000H
i
l.C.
L
0_6C
FODb
OOOOCCFEFE06C600
5883
DB
000H,OOOH,OCCH,OFEH,OFEH,006H,OC6H,000H
;
L.C.
M
o_60
FODE
OOOOF8CCCCCCCCOO
5884
DB
000H.000H.OF8H,oCCH,OCCH.OCCH,OCCH,000H
;
L.C.
N
0_6E
FOE6 000078CCCCCC7800
5885
DB
OOOH,OOOH.078H.OCCH.OCCH,OCCH.078H.000H
I
L.C.
OO_6F
FOEE
00000C66667C60FO
DB
000H,OOOH,OOCH.066H,066H,07CH.060H.OFOH
I
L.C.
P
o_70
....
FDF6
OOQ076CCCC7COCIE
5887
DB
000H,OOOH,076H,OCCH,OCCH,07CH,OOCH,OlEH
I
L.C.
Q
0_71
FOFE
OOODDC766660FOOO
5888
DB
000H,OOOH,00CH,D76H,066H,060H,OFOH,000H
I
L.C.
R
0_72
FE06
00001CC0780CF800
5889
DB
000H,OOOH,07CH,ocDH,07SH,OOCH,OFSH,OOOH
I
l.C.
S
0_73
FEOE
10307C3030341800
5890
DB
010H,030H,07CH,030H.030H,034H,018H,oOOH
I
l.C.
T
0_74
FEIo
OOOOCCCCCCCC7600
5891
DB
000H,OOOH,OCCH,OCCH,OCCH.OCCH,076H,000H ;
l.C.
U
0_75
FEIE
0000CCCCCC783000
589Z
DB
000H,000H.OCCH,OCCH,OCCH,078H,030H,OOOH
I
L,e.
v
0_76
FE26
QOOOC6D6FEFE6COO
5893
DB
DDOH,000H,OC6H.D06H,OFEH,OFEH.06CH,000H
i
L.C.
W
o_77
FE2E
0000C66C386CC600
5894
DB
000H,OOOH,DC6H,D6CH,0l8H.06CH.OC6H,OODH
;
l.C.
X
0_78
FE36 0000CCCCCC7COCF8
5895
DB
OOOH,OOOH.OCCH,OCCH,DCCH.07CH,OOCH,OFSH ;
L.C.
Y
0_79
FE3E 0000FC983064FCOO
5896
DB
000H.000H,OFCH,098H.030H,064H,OFCH,OOOH
J
L.C.
Z
0_7A
FE46
lC3030E030301COO
5897
DB
OlCH.030H,a30H,OEOH,03DH.030H,01CH,OOOH
{0_76
FE4E
1818180018181800
5898
DB
018H.018H,OI8H,OOOH,018H,0ISH,018H,00DH
; I
0_7C
FE56 E030301C3030EOOO
5899
DB
OEOH.030H,030H.OICH,030H,030H,OEOH,000H
I }
0_70
FE5E
760COOOOOOOOOOOO
5900
DB
076H,ODCH.000H.000H.000H,000H,OOOH,OOOH
I
TILDE
0_7E
FE66 0010386CC6C6FEOO
5901
DB
000H,OI0H.036H.06CH.OC6H,OC6H.OFEH,OOOH
I DELTA D_7F
590Z
5903
;
---
INT
lA
---------------------------------------------
5904
; TIME_OF _DAY
5905
I
THIS
ROUTINE
ALLOWS
THE
CLOCK
TO
BE
SET/READ
5906
5907
INPUT
5908
(AH)
= 0
READ
THE
CURRENT
CLOCK
SETTING
5909
RETURNS
CX
= HIGH PORTION
OF
COUNT
5910
ox
::
LOW
PORTION
OF
COUNT
5911
AL = 0
IF
TIMER'
HAS
NOT
PASSEO
5912:
24
H~S
SINCE
lAST
READ
5913
<>0
IF
ON
AHaTHER
DAY
5914
(AH)
= 1
SET
THE
CURRENT
CLOCK
5915
CX
= HIGH PORTION
OF
COUNT
5916
ox
::;
lOW PORTION
OF
COUNT
5917
j NOTE:
COUNTS
OCCUR
AT
THE
RATE
OF
StH8
1193160/65536
COUNTS/SEC
5919
lOR
ABOUT
18.2
PER
SECOND
--
SEE EQUATES BELOW)
5920
;
-----
-
_________________________________________________
_
5921
ASSUHE
CS:COOE
.DS:oATA
FE6E
592Z
DR.
OFE6EH
FE6E
59Z3
TIME_OF _DAY
PROC
FAR
FE6E FS
59Z4
SH
I INTERRUPTS BACK
ON
FE6F 1 E
59Z5
PUSH
DS
; SAVE
SEGMENT
FE70
E8CBOO
59Z6
CALL
DDS
FE73 OAE4
59Z7
D.
AH,AH
;
AH=O
FE75
7407
5928
JZ
T2
; READ_TIME
FE77
FEce
59Z9
DEC
AH
; AH=1
fE79
7416
5930
JZ
T3
I
SET_TIME
FE7B
5931
T1:
I TOO_RETURN
FE7B
F6
5932:
STI
; INTERRUPTS BACK
ON
FE7C
IF
5933
PDP
DS
;
RECOVER
SEGMENT
FE7D
CF
5934
IRET
;
RETURN
TO
CALLER
FE7E
5935
T2:
I READ_TIME
FE7E FA
5936
CLI
i
NO
TIMER INTERRUPTS WHILE
RfAon~
FE7F .0.07000
5937
MDV
Al,
TII1ER_OFL
FE82
C606700000
5936
Mev
TIMER_OFl.O
,
GET
OVERFLOW,
AtI)
RESET
THE
FLAG
FE87
SBOE6EOO
5939
MOV
CX.
TIMER_HIGH
FE8S 86166COO
5940
HOV
OX, TIMER_LOW
5-110
System
BIOS