;WORLD.ASM Tuesday, December 08, 2015 12:57:51 AM EST
;*Herge*Sunday, April 17, 2016 9:50:45 PM EDT
;Windows Build-Show World Times!
include \masm32\include\masm32rt.inc
include \masm32\bin\time\world
include \masm32\bin\time\motto
include \masm32\bin\time\cita
WORLD SEGMENT PUBLIC 'DATA'
ASSUME DS:WORLD,ES:WORLD
.data
A4
LSNZ Q $;NZ
d NZDT;U26UTC+13Day
d g
d Ham
d NZ
d B26
d Chr
d NZ
d B26
d Wel
d NZ
d B26
d NZST;U25UTC+12Std
d cr
d Chr
d NZ
d B25
d Ham
d NZ
d B25
d Wel
d NZ
d B25
d CHAST;Chatham S
d cr
d ChI
d NZ
d BCHA;P13¾ Chatham D
d CHADT;Chatham D
d cr
d ChI
d NZ
d BCHD;P13¾ D
d 0
LSAUStd Q $;Australia
d Adel
d SOA
d B22A
d Adel
d SOA
d BADS
d Alice
d NT
d B22A
d Bris
d QL
d BAES
d Canb
d ACT
d BAED
d Canb
d ACT
d BAES
d CXI
d BCX
d Hob
d TAS
d BAED
d Hob
d TAS
d BAES
d Dar
d NT
d B22A
d LHI
d BLHD
d LHI
d BLHS
d Mel
d VIC
d BAED
d Mel
d VIC
d BAES
d Per
d WA
d BAWS
d Syd
d NSW
d BAED
d Syd
d NSW
d BAES;Sydney,New South Wales,AUSTRALIA
d 0
include \masm32\bin\time\CAN
LSUkDay Q $;London,England-United Kingdom
d B13;UTC+0 GMT+0 Universal Co-Ordinated Time-Greenwich Mean-Std
d B14;UTC+1 BST+0 British Summer-Day-London,England-United Kingdom
d 0
LSBR Q $;Brazil
d BU10LB;-3
d BBRT
d BAMT
d 0
LSIR Q $;Iran
d BIRD
d BIRS
d 0
LSIS Q $;Israel
d Bis
d BID
d 0
LSCU Q $
d Bcs
d B8
d 0
LSMX Q $;Mex
d BMXS
d BMXD
d 0
LSCH Q $;Chile
d Span
d San
d BCLS
d Span
d East
d BEA
d 0
include\masm32\bin\time\su;Read Me
.code
A4
SU0 proc;-13NO EDIT Address
I GS_T,A U0
I ST2FT,O U0,O Y
m cx,g
m edx,O Y
CA S1HR
I FT2ST,edx,O U0
SU0 endp
SU1 proc;-12
I GS_T,A U1
I ST2FT,O U1,O Y
m cx,12
m edx,O Y
CA S1HR
I FT2ST,edx,O U1
SU1 endp
SU2 proc;-11HAST Hawaii
I GS_T,A U2
I ST2FT,O U2,O Y
m cx,11
m edx,O Y
CA S1HR
I FT2ST,edx,O U2
SU2 endp
SU3 proc;-10Adak
I GS_T,A U3
I ST2FT,O U3,O Y
m cx,a
m edx,O Y
CA S1HR
I FT2ST,edx,O U3
SU3 endp
SU4 proc;-9PIS
I GS_T,A U4
I ST2FT,O U4,O Y
m cx,9
m edx,O Y
CA S1HR
I FT2ST,edx,O U4
SU4 endp
SU5 proc;-8MST PDT British Columbia-California
I GS_T,A U5
I ST2FT,O U5,O Y
m cx,8
m edx,O Y
CA S1HR
I FT2ST,edx,O U5
SU5 endp
SU6 proc;-7
I GS_T,A U6
I ST2FT,O U6,O Y
m cx,7
m edx,O Y
CA S1HR
I FT2ST,edx,O U6
SU6 endp
SU7 proc;-6GALTGalapagos
I GS_T,A U7
I ST2FT,O U7,O Y
m cx,6
m edx,O Y
CA S1HR
I FT2ST,edx,O U7
SU7 endp
SU8 proc;-5EASST Easter Is EST Buffalo,N Y Toronto,ON
I GS_T,A U8
I ST2FT,O U8,O Y
m cx,5
m edx,O Y
CA S1HR
I FT2ST,edx,O U8
SU8 endp
SM4_5 proc;UTC-4.5Venezeuela
I GS_T,A M4_5
I ST2FT,O M4_5,O Y
m cx,4
m edx,O Y
CA SH30
I FT2ST,edx,O M4_5
SM4_5 endp
SU9 proc;-4Buffalo,N Y,USA-Cuba D-Toronto,ON,CANADA
I GS_T,A U9;CDT ADT EDT
I ST2FT,O U9,O Y
m cx,4
m edx,O Y
CA S1HR
I FT2ST,edx,O U9
SU9 endp
SM3_5 proc;-3.5Newfoundland & Labrador,CANADA
I GS_T,A M3_5
I ST2FT,O M3_5,O Y
m cx,3
m edx,O Y
CA SH30
I FT2ST,edx,O M3_5
SM3_5 endp
SU10 proc;-3ADT ART BRT CLST FKST SRT WGT UYT Atlantic Argentina Brazil Chile Falklands Greenland Uruguay
I GS_T,A U10
I ST2FT,O U10,O Y
m cx,3
m edx,O Y
CA S1HR
I FT2ST,edx,O U10
SU10 endp
SM2_5 proc;U-2.5Newfoundland & Labrador
I GS_T,A M2_5
I ST2FT,O M2_5,O Y
m cx,2
m edx,O Y
CA SH30
I FT2ST,edx,O M2_5
SM2_5 endp
SU11 proc
I GS_T,A U11;-2Greenland-Denmark
I ST2FT,O U11,O Y
m cx,2
m edx,O Y
CA S1HR
I FT2ST,edx,O U11
SU11 endp
SU12 proc;-1AZOT Azores
I GS_T,A U12
I ST2FT,O U12,O Y
m cx,1
m edx,O Y
CA S1HR
I FT2ST,edx,O U12
SU12 endp
SU13 proc;UTC,GMT+0London,England-UK-Iceland
I GS_T,A U13;SYSTEMTIME UTC+00 GMT+00
I ST2FT,O U13,O Y
m edx,O Y
I FT2ST,edx,O U13
SU13 endp
SU14 proc;1 BST CET British Day Central European S
I GS_T,A U14
I ST2FT,O U14,O Y
m cx,1
m edx,O Y
CA A1HR
I FT2ST,edx,O U14
SU14 endp
SU15 proc;2CEST SEE SCPT Paris-Europe Day-South Africa Std
I GS_T,A U15
I ST2FT,O U15,O Y
m cx,2
m edx,O Y
CA A1HR
I FT2ST,edx,O U15
SU15 endp
SU16 proc;3EES EAT MKT Libya Kenya Russia CIS
I GS_T,A U16
I ST2FT,O U16,O Y
m cx,3
m edx,O Y
CA A1HR
I FT2ST,edx,O U16
SU16 endp
SP3_5 proc;3.5Iran
I GS_T,A P3_5
I ST2FT,O P3_5,O Y
m cx,3
m edx,O Y
CA AH30
I FT2ST,edx,O P3_5
SP3_5 endp
SU17 proc;4GST SCT UAE-Persian Gulf-United Arab Emirates
I GS_T,A U17;4Gulf,Reunion,Seychelles
I ST2FT,O U17,O Y
m cx,4
m edx,O Y
CA A1HR
I FT2ST,edx,O U17
SU17 endp
SP4_5 proc;UTC+04.5Kabul,Afghanistan-Tehran,Iran
I GS_T,A P4_5
I ST2FT,O P4_5,O Y
m cx,4
m edx,O Y
CA AH30
I FT2ST,edx,O P4_5
SP4_5 endp
SU18 proc;5Islambabad,Pakistan PKT U18
I GS_T,A U18
I ST2FT,O U18,O Y
m cx,5
m edx,O Y
CA A1HR
I FT2ST,edx,O U18
SU18 endp
SU19 proc;6Deigo Garcia IOT
I GS_T,A U19
I ST2FT,O U19,O Y
m cx,6
m edx,O Y
CA A1HR
I FT2ST,edx,O U19
SU19 endp
SU20 proc;7Christmas CXT Indonesia WIB KRAT
I GS_T,A U20
I ST2FT,O U20,O Y
m cx,7
m edx,O Y
CA A1HR
I FT2ST,edx,O U20
SU20 endp
SU21 proc;8MY AWST Perth,WA
I GS_T,A U21
I ST2FT,O U21,O Y
m cx,8
m edx,O Y
CA A1HR
I FT2ST,edx,O U21
SU21 endp
SU22 proc;9Japan Korea JS KS
I GS_T,A U22
I ST2FT,O U22,O Y
m cx,9
m edx,O Y
CA A1HR
I FT2ST,edx,O U22
SU22 endp
SP5_5 proc;+5.5New Delhi,India
I GS_T,A P5_5;India Std
I ST2FT,O P5_5,O Y
m cx,5
m edx,O Y
CA AH30
I FT2ST,edx,O P5_5
SP5_5 endp
SP5_45 proc;5¾ Katmandu,Nepal
I GS_T,A P5_45
I ST2FT,O P5_45,O Y
m cx,5
m edx,O Y
CA A1HR
CA A45M
I FT2ST,edx,O P5_45
SP5_45 endp
SP6_5 proc;6.5Rangoon,Burma
I GS_T,A P6_5
I ST2FT,O P6_5,O Y
m cx,6
m edx,O Y
CA AH30
I FT2ST,edx,O P6_5
SP6_5 endp
SP8_5 proc;8.5North Korea PY
I GS_T,A P8_5
I ST2FT,O P8_5,O Y
m cx,8
m edx,O Y
CA AH30
I FT2ST,edx,O P8_5
SP8_5 endp
SU23 proc;+10
I GS_T,A U23
I ST2FT,O U23,O Y
m cx,a
m edx,O Y
CA A1HR
I FT2ST,edx,O U23
SU23 endp
SP10_5 proc;10.5Lord Howe
I GS_T,A P10_5
I ST2FT,O P10_5,O Y
m cx,a
m edx,O Y
CA AH30
I FT2ST,edx,O P10_5
SP10_5 endp
SU24 proc;+11
I GS_T,A U24
I ST2FT,O U24,O Y
m cx,11
m edx,O Y
CA A1HR
I FT2ST,edx,O U24
SU24 endp
SU25 proc;12AUSTRALIA FIJI
I GS_T,A U25
I ST2FT,O U25,O Y
m cx,12
m edx,O Y
CA A1HR
I FT2ST,edx,O U25
SU25 endp
SP12_45 proc;+12X Chatham Islands,NZ
I GS_T,A P12X
I ST2FT,O P12X,O Y
m cx,g
m edx,O Y
CA A1HR
CA A45M
I FT2ST,edx,O P12X
SP12_45 endp
SU26 proc;+13NEW ZEALAND
I GS_T,A U26
I ST2FT,O U26,O Y
m cx,g;**
m edx,O Y
CA A1HR
I FT2ST,edx,O U26
SU26 endp
SP13_45 proc;+13X Chatham
I GS_T,A P13X
I ST2FT,O P13X,O Y
m cx,g
m edx,O Y
CA A1HR
CA A45M
I FT2ST,edx,O P13X
SP13_45 endp
SSS proc;-11Return is Here Midway
R4; See SU2 WAY Above
SSS endp
zeroHour proc
push eax
;ESI>Stm if midnight hour change 0 to a 12
;Make sure ESI > to SYSTEMTIME
m al,[esi]
cmp al,0DFh
jnz @1
m ax,word ptr[esi+8];get wHour
and ax,ax;is Hour 0?
jnz @F
m ax,12;Twelve
m[esi+8],ax;System.wHour
@@:
pop eax
ret
@1:
pop eax
;int 3
mov esi,O LSUsaTDay
R4
zeroHour endp
SBEJ proc;Bejing
m edi,O B
m esi,O B21
CA CAZ
I MB,0,A B,A ANCHI,K
R4
SBEJ endp
SIJ proc;Israel
m esi,O Bis
CA CAZ
m esi,O BID
CA CAZ
I MB,0,A B,A ANis,K
R4
SIJ endp
LAZ proc;Load Ascii 0
mov edi,O B
LAZ0:
mov eax,dword ptr[esi]
and eax,eax
jz LAZx
push esi
mov esi,eax
call CAZ
pop esi
add esi,sizeof DWORD
jmp LAZ0
LAZx:;EAX 0 Exit
R4
LAZ endp
CIS proc;Moscow,Commonwealth of Independent States
nop
I PT,A U16,A R16,A MKT,A Pmkt,U;UTC+3 Moscow,CIS=Russia
R4
CIS endp
BUCH proc;Bucharest,Romania
nop
I PT,A U16,A BROMS,A ANROM,A Peest,LRO;3 EEST Buc,Rom
I PT,A U15,A BROM,A ANROM,A Peet,LRO; +2 EET Buc,Rom
I PT,A U16,A BROMSE,A ANROM,A Peest,U;+3 EEST
I PT,A U15,A BROME,A ANROM,A Peet,U;+2 EET
R4
BUCH endp
ATLCAN proc;Atlantic CANADA-Halifax,Nova Scotia,CANADA
nop
I PT,A U9,A BAST,A ANAD,A Past,U;-4 U9 Atlantic S
I PT,A U10,A B10C,A ANAD,A Padt,U;-3 U8 Atlantic D
R4
ATLCAN endp;Alice Springs,Northern Territory,Australia
Alice_Springs proc;ACST DateTime*L519*00000BF8h
nop
I PT,A U22,A B22A,A ANACS,A Pacst,U;L*523*Alice Springs
I PT,A P10_5,A BADS,A ANACS,A Pacdt,U;+10.5ACDT Australia
R4
Alice_Springs endp
call CIS
ERIE proc;Ireland
nop
I PT,A U13,A E13,A ANX,A Putc,2108;+0 Dublin S
I PT,A U14,A E14,A ANX,A Eist,2108;+1 Dublin D
R4
ERIE endp
Hanoi proc
nop
I PT,A U20,A BIC,A ANIC,A Pict,1066;+8.5 Hanoi,IndoChina
R4
Hanoi endp
_LAX proc;LAX Airport,Los Angeles,California,USA
nop
I PT,A U5,A B5,A PST,A Ppst,V;U5-8Pacific Std
I PT,A U6,A B6,A PDT,A Ppdt,V;U6-7Pacific Day
ret
A4
_LAX endp
Paddington proc
nop
I PT,A U8,A B8P,A ANPET,A Ppet,U;-5 U8 Lima,PERU*L546
R4
Paddington endp
Rangoon proc
nop
I PT,A P6_5,A BMM,A ANMM,A Pmmt,U;6.5 Rangoon,Burma
R4
Rangoon endp
Stanley proc;Falkland-South Atlantic-South America
nop;Falklands War-1982
I PT,A U10,A B10,A ANFK,A Pfkst,U;-3
R4
Stanley endp
Toronto proc
nop
H
I PT,A U8,A B8S,A EST,A Pest,V;-5ES East S Toronto,ON Buffalo,N Y Concord,Vermont
I PT,A U9,A B9D,A EDT,A Pedt,V;-4ED East D Toronto,ON Buffalo,N Y Concord,Vermont
;G
R4
Toronto endp
Winago proc;CS CD Central Time Winnipeg or Chicago or A.A. Milne-When We Are Six-Winnie the Pooh
nop
;H
I PT,A U7,A B7S,A CST,A Pcst,V;-6CST Central S Winnipeg,Man Chicago,ill
I PT,A U8,A B8D,A CDT,A Pcdt,V;-5CDT Central D Winnipeg,Man Chicago,ill
R4
Winago endp
UTAH proc;Park City,UTAH,USA
nop
H
I PT,A U7,A BMD,A MDT,A Pmst,U;-6 Mtn S
I PT,A U7,A BMD,A ANPCUT,A Pmst,U;-6 Mtn S
I PT,A U6,A B6,A ANPCUT,A Pmdt,U;-7 Mtn D
I PT,A U6,A B6,A MST,A Pmdt,U;-7 Mtn D
G
R4
UTAH endp
GO proc; GO Code-end start
start:
nop
CA SU0;<SYSTEMTIME> (s)
m DST,1
I PT,A U13,A BSYS,A ANGREEN,A Pgmt,U;Greenwich Mean
; Time GMT or Universal Co-ordinated Time UTC-U13
I PT,A U14,A B14,A ANBS,A Pbst,U;Greenwich,UNITED KINGDOM
I PT,A U13,A BSYS,A ANSYS,A Putc,U;UTC Time in London,ENGLAND
I PT,A U14,A BCET,A ANABU,A Pwat,U;Abuja,Nigeria
;G;Print OFF
I PT,A U3,A BHAD,A ANHAD,A Phadt,U;-10
I PT,A U16,A B16,A ANADE,A Parst,U;UTC+3Aden
I PT,A U14,A BCET,A ANALG,A Pcet,LF;1 ALGERIA;*L597*
GO endp
call Alice_Springs
I PT,A U14,A B14D,A ANDUT,A Pcet,LN;1Amsterdam,Netherlands
I PT,A U15,A B15D,A ANDUT,A Pcest,LN;2Amsterdam
I PT,A U25,A R25,A ANANAT,A Panat,U;13Anat,CIS
I PT,A U15,A BTUKS,A ANTUK,A Peet,1055;+2TURKEYS
I PT,A U16,A BTUKD,A ANTUK,A Peest,1055;+3TURKEYD
;G;PRINT Off
call ATLCAN;Halifax,Nova Scotia
I PT,A U8,A B8C,A ANED,A Pest,LC;-5East Std
I PT,A U9,A B9C,A ANED,A Pedt,LC;-4East Day
;G
I PT,A U24,A BAED,A ANAU,A Paedt,U;+11Sydney,NSW
I PT,A U23,A BAES,A ANAU,A Paest,U;10
I PT,A U21,A BAWS,A ANAU,A Pawst,U;+08;8Perth WA
I PT,A U12,A BPz,A ANAZ,A Pazot,LP;-1Azores S
I PT,A U13,A BPzS,A ANAZ,A Pazost,LP;+0Azores D
I PT,A U16,A B16,A ANIRQ,A Parst,U;Baghdad,IRAQ
I PT,A U21,A B21,A ANCHI,A Pchi,U;B China Hong Kong
I MB,0,A B8S,A ChHB,U;-5Hudson Bay
I MB,0,A B9D,A ChHBD,U;-4Churchill,Manitoba
I PT,A U25,A BMH,A ANMH,A Pmht,U;13Bikini Marshall
I PT,A U9,A B9,A ANBAR,A Past,U;BARBADOS
I PT,A U14,A BCET,A ANSLO,A Pcet,1051;1SLOVAKIA
I PT,A U15,A BCES,A ANSLO,A Pcest,1051;2
I PT,A U10,A BBRT,A ANBR,A Pbrt,LB;-3BRAZIL
I PT,A U11,A BU11LB,A ANBR,A Pbrst,LB;-2BRAZIL
I PT,A U10,A BU10LB,A ANBR,A Pamt,LB;-3Man Amaz
call BUCH
I PT,A U15,A BHUS,A ANHUN,A Pcest,LH;2Budapest,
I PT,A U14,A BHUN,A ANHUN,A Pcet,LH;1HUNGARY
call Winago; Burlington,Vermont,USA
I PT,A U10,A BAR,A ANAR,A Part,U;Bu Arg
I PT,A U15,A BEEC,A ANEg,A Peet,U;2Cairo,Egypt
I PT,A U13,A BCIWET,A ANCI,A Pwet,LS;+0Canary
I PT,A U14,A BCIWEST,A ANCI,A Pwest,LS;1Canary
CapeTown proc
nop
I PT,A U15,A BSAS,A ANSAST,A Psast,U;2C S Africa
CapeTown endp
I PT,A U13,A BW,A ANW,A Putc,1106;0Cardiff,Wales
I PT,A U14,A BWS,A ANW,A Pbst,1106;1Wales,UK
I PT,A M4_5,A BVET,A ANVET,A Pvet,U;UTC-4.5Caracas,VENEZUELA
I PT,A U13,A BWET,A ANWE,A Pwet,U;0Mor
I PT,A U14,A BWES,A ANWE,A Pwest,U;1Mor
I PT,A P12X,A BCHA,A ANCH,A Pchast,U;12¾ Chatham S
I PT,A P13X,A BCHD,A ANCH,A Pchadt,U;13¾ Chatham D
call Winago;Winnipeg,Man,CANADA-Chicago,ill,USA
I PT,A U10,A BCLS,A ANCL,A Pclst,LCH;UTC-3CHILE
I PT,A U10,A BCL,A ANCL,A Pclt,LCH;-3CHILE
I PT,A U7,A B7S,A ANCDT,A Pcst,V;-6Central S
I PT,A U8,A B8D,A ANCDT,A Pcdt,V;-5Central D
I PT,A U20,A BCX,A ANCX,A Pcxt,U;7Christmas I
I PT,A U8,A BPAN,A ANPAN,A Pest,U;-5Colon,PANAMA
call Toronto;Concord,Vermont
I PT,A U16,A BEES,A ANCZ,A Peest,1029;+3CZECH
I PT,A U7,A B7S,A ANDov,A Pest,U;7Dover
I PT,A U8,A B8D,A ANDov,A Pedt,U;8Dover,Delaware
I PT,A U19,A BIO,A ANDG,A Piot,U;6Diego Garcia
I PT,A U16,A B16F,A ANDJI,A Peat,LF;+3DJI EAT East Africa
I PT,A U16,A B16,A ANDJI,A Peat,U;3EAT
call ERIE;Ire
Easter proc;Island
nop
I PT,A U8,A BEA,A ANEA,A Peasst,LCH;-5CHILE
Easter endp
I PT,A U16,A BEES,A ANest,A Peest,1061;3ESTONIA
I PT,A U15,A BEE,A ANest,A Peet,1061;2ESTONIA
I PT,A U14,A BeCET,A ANCET,A Pcet,U;1 Europe E S
I PT,A U15,A B15,A ANCES,A Pcest,U;2 Europe E D
I PT,A U3,A B3,A ANAK,A Pakst,V;-10 Alaksa S
I PT,A U4,A BAKD,A ANAK,A Pakdt,V;-9Alaska D
I PT,A U7,A BGA,A ANGA,A Pgalt,U;-6Galapagos
I PT,A U15,A B15F,A ANF,A Pcest,LSF;2SwF
I PT,A U14,A B14F,A ANF,A Pcet,LSF;+1SwF
I PT,A U11,A B11LD,A ANWG,A Pwgst,LD;-2Green
I PT,A U10,A BU10,A ANWG,A Pwgt,LD;-3Green
I PT,A U23,A BCh,A ANCh,A Pchst,U;10Guam
I MB,0,A B9,A ANBER,K;-4Ham,Bermuda
I MB,0,A B10C,A ANBER,K;-3
;H
call Hanoi;indoChina-Vietnam
I PT,A U8,A Bcs,A ANcst,A PCST,U;-5CUBA
I PT,A U9,A B9,A ANcst,A PCDT,U;-4CUBA
I PT,A U16,A BEESF,A EEST,A Peest,1035;3Helsinki,FINLAND
I PT,A U15,A BEETF,A EET,A Peet,1035;2
;G
I PT,A U2,A B2,A ANHAS,A Phast,U;-11Hawaii 50
I PT,A U21,A R21,A ANR21I,A Pirkt,U;8IRKT
I PT,A U18,A B18,A ANPKT,A Ppkt,U;5Pakistan
I PT,A U20,A BWIB,A ANWIB,A Pwib,U;7Jakarta
I PT,A U15,A Bis,A ANis,A PIST,U;2ISRAEL
I PT,A U16,A B16,A ANis,A Pidt,U;3ISRAEL
;G
I PT,A P4_5,A BAFT,A ANAFT,A Paft,U;4.5 Kabul
I PT,A U15,A R15,A ANKa,A Peet,U;+2Kalin
I PT,A P5_45,A BNP,A ANNPT,A Pnpt,U;5¾ NEPAL
I PT,A U16,A B16,A ANEAT,A Peat,U;KENYA Dji SOMOLIA
I PT,A U22,A B22,A ANKST,A Pkst,U;9SKorea
I PT,A U21,A b21,A ANMY,A Pmyt,U;8Malay
I PT,A U20,A B20,A ANKRAT,A Pkrat,U;7KRAT
I PT,A U15,A BEE,A ANEES,A Peet,U;2
I PT,A U16,A B16,A ANEES,A Peest,U;3
call Paddington;PERU
I PT,A U13,A BPo,A ANPORT,A Putc,LP;0Port
I PT,A U14,A BPoS,A ANPORT,A Pwest,LP;1
;H
I PT,A U13,A B13,A ANUTC,A Putc,U;0UK UTC Greenwich
I PT,A U14,A B14,A ANBS,A Pbst,U;1UK British D
I PT,A P10_5,A BLHS,A ANLH,A Plhst,U;Lord Howe
I PT,A U24,A BLHD,A ANLH,A Plhdt,U
call _LAX
G;
I PT,A U15,A BS,A CEST,A Pcest,LS;2Spain D ANS
I PT,A U14,A BSS,A CET,A Pcet,LS;1Spain S
;G
;H
I PT,A U23,A R23M,A ANMAGT,A Pmagt,U;10Magdan
;G
I PT,A U9,A BAMT,A ANAMT,A Pamt,U;-4Man,BRAZIL
I PT,A U21,A BPH,A ANPHT,A Ppht,U;8Manila
I PT,A U7,A BMXS,A CST,A Pcst,LM;-6MEXICO
I PT,A U8,A BMXD,A CDT,A Pcdt,LM;-5Mex
I PT,A U2,A BSST,A ANSST,A Psst,U;UTC-11Midway
I PT,A U16,A B16,A ANB16,A Peat,U;+3 EAT Mog SOMOLIA
I PT,A U10,A BUD,A ANY,A Puyt,R;-3Std URUGUAY S
I PT,A U11,A BUS,A ANY,A Puyst,R;-2M Uru D
I PT,A U8,A B8F,A ANQ,A Pest,PQ;-5Quebec
I PT,A U9,A B9F,A ANQ,A Pedt,PQ;-4PQ
call CIS;Russia aka Moscow aka CIS
I PT,A U17,A R17,A SAMT,A Psamt,U;4 Samara,CIS
I PT,A P5_5,A BIS,A ANIS,A Pist,U;+5.5INDIA Standard Time
call Toronto;ED,ES Eastern of North America
;H
I PT,A U24,A BNCT,A ANNCT,A Pnct,U;N NEW CALEDONIA
I PT,A U19,A R19O,A ANR19O,A Pomst,U;+6 Omsk
I PT,A U15,A BNOR,A CEST,A Pcest,U;2NORWAY
I PT,A U14,A BNOS,A CET,A Pcet,U;1
;G
I PT,A U2,A BSST,A ANASAM,A Psst,U;Pago Pago
I PT,A U25,A R25P,A ANPETT,A Ppett,U;+13R25 Petr,CIS
I PT,A U10,A BSRT,A ANSRT,A Psrt,LN;Surin
I PT,A U18,A B18,A PKT,A Ppkt,U;5PAKISTAN PKT
I PT,A U14,A B14F,A CET,A Pcet,LF;1 Paris,FRANCE AP
I PT,A U15,A B15F,A CEST,A Pcest,LF;+2 French
;H
call UTAH
I PT,A U4,A BPIS,A ANPIST,A Ppist,U;PITCAIRN
I MB,0,A B9,A ANTRI,K;nidad
I PT,A U14,A BCV,A ANCV,A Pcvt,LP;1P CAPE VERDE
;H
I PT,A P8_5,A BPY,A ANPY,A Ppyt,U;+8.5N KOREA
I PT,A U8,A BEC,A ANEC,A Pect,U;Ecuador
I PT,A U13,A BICE,A ANICE,A Putc,1039;0R ICELAND
;G
I PT,A U17,A BRET,A ANRET,A Pret,U;4REUNION
I PT,A U9,A B9,A ANANT,A Past,U;-4S ANTIGUA
I PT,A M2_5,A BND,A ANNDT,A Pndt,LC;Newfoundland
I PT,A M3_5,A BNS,A ANNDT,A Pnst,LC;NFLD
I PT,A U17,A R17,A ANR17,A Psamt,U;4Sama
I PT,A U24,A BSRE,A ANSRET,A Psret,U;Sret,CIS
I PT,A U25,A BFJ,A ANFJ,A Pfjt,U;12Suva,FIJI
I PT,A U26,A BFJS,A ANFJ,A Pfjst,U;13Suva,FIJI
I PT,A P3_5,A BIRS,A ANIRST,A Pirst,U;+3.5Tehran,IRAN
I PT,A P4_5,A BIRD,A ANIRST,A Pirdt,U;4.5
I PT,A U13,A BWET,A ANFa,A Pwet,U;0 S Canary
I PT,A U14,A BWES,A ANFa,A Pwest,U;1 D
I PT,A U15,A BLI,A ANLI,A Peet,U;2Tripoli,LIBYA-USMC Hymn
I PT,A U14,A BTUN,A ANTUN,A Pcet,U;1TUNISA
call Rangoon
I PT,A U2,A BCK,A ANCKT,A Pckt,U;-11Cook
I PT,A U15,A BI,A ANR,A Pcest,LIT;2CEST Italy D
I PT,A U14,A BIS,A ANR,A Pcet,LIT;1CET Italy S
I PT,A U22,A B22A,A ANACS,A Pacst,U;9Town like Alice
I PT,A U22,A B22,A ANJST,A Pjst,U;9JAPAN
I PT,A U22,A BK22,A ANKST,A Pkst,U;9SOUTH KOREA
I PT,A U16,A BARS,A ANARST,A Parst,U;3R Saud
I PT,A U21,A BSGT,A ANSGT,A Psgt,U;+8Singapore
I PT,A U16,A BEES,A ANBUL,A Peest,U;3S BULGARIA
I PT,A U15,A BEE,A ANBUL,A Peet,U;2
I PT,A U11,A BSGI,A ANSG,A PGST,U;-2S GEORGIA I
I PT,A U15,A BSWE,A ANSWE,A Pcest,S;2S SWEDEN D
I PT,A U14,A BSWES,A ANSWE,A Pcet,S;1 S
I PT,A U15,A BI,A ANI,A Pcest,LSI;2Swi Itl D
I PT,A U14,A BIS,A ANI,A Pcet,LSI
I PT,A U15,A BEE,A ANEE,A Peet,U
I PT,A U17,A BGU,A ANGU,A Pgst,U;4United Arab Emirates-UAE Gulf
I PT,A U14,A BM,A ANMAL,A Pcet,U
I PT,A U15,A BMS,A ANMAL,A Pcest,U;2V Malta
I PT,A U17,A BSCT,A ANSCT,A Psct,U;4V Seyc
Vienna proc;,AUSTRIA
nop
I PT,A U15,A BU,A ANv,A Pcest,v;2D
I PT,A U14,A BV,A ANv,A Pcet,v;1S
Vienna endp
I PT,A U23,A BVLA,A ANVLA,A Pvlat,U;+10V,CIS
I MB,0,A R16,A ANVOR,K;+3Veronezh,CIS;U16 MKT
I PT,A U25,A BWAK,A ANWAK,A Pwakt,U;WAKE
I PT,A U14,A BPCET,A ANP,A Pcet,LPO;PORTUGAL
I PT,A U15,A BPCES,A ANP,A Pcest,LPO
;H
I PT,A U25,A B25,A ANNZ,A Pnzst,U;12W NEW ZEALAND
I PT,A U26,A B26,A ANNZ,A Pnzdt,U;13W NEW ZEALAND
I PT,A U18,A R18,A ANR18Y,A Pyekt,U;5Yeka,CIS
I PT,A U15,A BCES,A ANCRO,A Pcest,1050;Z Croatia
I PT,A U14,A BCET,A ANCRO,A Pcet,1050
Zurich proc;Swiss German
nop
I PT,A U15,A BGS,A ANG,A Pcest,LSG;2
I PT,A U14,A BG,A ANG,A Pcet,LSG;1
H
Zurich endp
m esi,O Carr
CA LAZ
I MB,0,A B,A ANBEAN,r
m esi,O USMO
CA LAZ
I MB,0,A B,A ANUSMO,r
CA LAZ
m esi,O LSUsaDay
WHY:;add esi,400000h;*WHY
CA LAZ
I MB,0,A B,A ANUsa,r
m esi,O LSUsaTDay
CA LAZ
I MB,0,A B,A ANUsa,r
m esi,O LTUsaDay
CA LAZ
I MB,0,A B,A ANUsa,r
m esi,O LSUsaStd
CA LAZ
I MB,0,A B,A ANUsa,r
crash proc
nop
crash endp
CMW proc
nop
m esi,O LSUsaTStd
CMW endp
CA LAZ
I MB,0,A B,A ANUsa,r
CMB proc
m esi,O LTUsaStd
CA LAZ
I MB,0,A B,A ANUsa,r
mov esi,O LSUsaTStd
CMB endp
CA LAZ
I MB,0,A B,A ANUsa,r
m esi,O TEXAS
CA LAZ
I MB,0,A B,A ANTX,r
m esi,O Carr
CA LAZ
I MB,0,A B,A ANBEAN,r
m esi,O LSAUStd
CA LAZ
I MB,0,A B,A ANAU,r
m esi,O LSCanDay
CA LAZ
I MB,0,A B,A ANCan,r
m esi,O LSCanStd
CA LAZ
I MB,0,A B,A ANCan,r
m esi,O OntPlaces
CA LAZ
I MB,0,A B,A ANON,r
m esi,O LSUkDay
CA LAZ
I MB,0,A B,A ANUK,K
m esi,O LSEuDay
CA LAZ
I MB,0,A B,A ANEu,r
m esi,O LSEuStd
CA LAZ
I MB,0,A B,A ANEu,r
m esi,O LSNZ
CA LAZ
I MB,0,A B,A ANNZ,r
call Moscow
CA SBEJ
m esi,O LSIS
CA LAZ
I MB,0,A B,A ANis,K
m esi,O LSIR
CA LAZ
I MB,0,A B,A ANIRST,K
I MB,0,A B22,A ANJST,K
m esi,O LSCU
CA LAZ
I MB,0,A B,A ANcst,K
m esi,O LSMX
CA LAZ
I MB,0,A B,A ANMX,K
m esi,O LSBR
CA LAZ
I MB,0,A B,A ANBR,K
m esi,O LSCH
CA LAZ
I MB,0,A B,A ANCL,K
m esi,O TZFullName
CA LAZ
I MB,0,A B,A ANTZName,K
m edi,O B
call Stanley
m esi,O Wai
CA LAZ
xor al,al
m esi,O B;NO Buffer B
mov [esi],al
I MB,0,A B,A Wai,K
exit
END GO
;X \masm32\bin\TIME\WORLD.ASM *L912*