Miscellaneous > 16 bit DOS Programming

End GO

(1/3) > >>

herge:

 Hello ALL i e *.*:

 Yes I love DOS, I still have to use it because Bloated Windows can't do it
 with less Memory, the bloody Pig!

 This above code is relatively short!

 So U will have to change start to GO.


--- Code: ---GO proc
start:
nop
CA SU0;<SYSTEMTIME>
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;*L618*
GO endp


--- End code ---


--- Code: ---I MB,0,A B,A ANTZName,K
m edi,O B
call Stanley
m esi,O Wai
CA LAZ
I MB,0,A B,A Wai,K
exit
END GO
;X \masm32\bin\TIME\WORLD.ASM *L912*

--- End code ---

This is just a snippet so don't try to assembler it!

 PS Happy Valentine's Day!

herge:

 This is another typeing saving device. Go is slightly shorter than Start.
 And my eye sight and math skills are any Good! We R(are) saving
 three bytes.

 Reagrds Herge

 PS EWB Snider - A father of HEPC. It Starts here. We Light up your Home!
 HEPC Hydro Electric Power Commission. Its Hepsi generation! Apologies to
 Pepsi Cola! We all bitch about electrical rates. It starts Here, in F***ing
 St. Jacobs, take a GRT NB 21. GRT Grand River Transit, NB North Bound.
 Get OFF @ Front in Saint Jacobs, X Bridge i e Grand River. X king U need 2 be on
 West side of King & North of grand River. There is a tall monument to EWBS put up
 by the Electrical Utilities for some strange Reason! It has a electric light on top
 of it! X is Cross! as in KX, a small Railway Station in London,England. King's Cross RR Station.
 RR Railway!
 The 21 goes from CM, Conestoga Mall to Elmira,Ontario,CANADA. CM is on King@85.
 85 aka Conestoga Parkway. CM is in Waterloo, Ontario,CANADA.
 GRT is the Bus people in Region of Waterloo. Only Monday >> Saturday - NO Sunday
 or Holiday Service.
 We were First! Electricity Generators!
 Elais Weber Bingeman Snider. It also explains the road or Street names in Berlin,Waterloo,Kit che ner.
 EWBS Started June 19,1842 >> 1921 End GO!
 *$$ EOJ - IBM 370 End of File - Card Reader

herge:
Good Morning:

I am now a Official Welfare bum!
aka I have been 2 99 Regina Street 2 Register 4
ODSP & Ontario Work and Food Supplement,
I am diabetic means I get > $.
I went 2 Henry's Their have a nice Camera Store in
the ION Destruction Zone! Do not go down either
king or northfield 2 GO 2 Conestoga Mall!
We R in Waterloo, Ontario, CANADA, EARTH!
We will b downing all components of WORLD.EXE
because of 20k limits it might B a long download!
Lot of my files need all of the 20k!

please B patient!

Regards- Herge! UTC-04 aka edt 10:25:00 PM!
 

herge:

--- Code: ---;WORLD Wednesday, November 11, 2015 4:43:14 PM EST
;Sunday, April 17, 2016 9:50:03 PM EDT Herge
A4 MACRO
align 4
dd 0
ENDM
R4 MACRO
ret
A4
ENDM
F MACRO Fx:REQ
Fx SYSTEMTIME<>
ENDM
G MACRO
push eax
xor ax,ax
MOV YN,ax;No Print
pop eax
ENDM
H MACRO
push eax
mov eax,1
MOV YN,ax;Print
pop eax
ENDM
J MACRO Jx:REQ
Jx db"Date & Time in "
ENDM
j MACRO jx:REQ
jx proc
ENDM
k MACRO kx:REQ
kx endp
ENDM
.data
Q EQU EQU
A Q addr
CA Q call
D Q dec
D_L Q DATE_LONGDATE
a Q 10;LineFeed
d Q dd
e Q db
g Q 13;Return
FT2ST Q FileTimeToSystemTime
GD_F Q GetDateFormat
GS_T Q GetSystemTime
GT_F Q GetTimeFormat
I Q invoke
IT Q insertTime
K Q MB_OK
MB Q MessageBox
m Q mov
O Q offset
P Q add
R Q 14346;LCID Uru
r Q MB_RIGHT
S Q 1053
TF24 Q TIME_FORCE24HOURFORMAT
ST2FT Q SystemTimeToFileTime
Z Q ret
A4
LCH Q 13322;Chile
LCHI Q 2052;China
LD Q 1030;Den
LG Q 1031;Ger
V Q 1033; USA
LS Q 1034;Sp
LF Q 1036;Fr
LH Q 1038;Hun
LIN Q 1639;Ind
LIT Q 1040;Ita
LJ Q 1041;Jap
LN Q 1043;Du
LPO Q 1045;Pol
LB Q 1046;Bra
LR Q 1049;Russ
LRO Q 0418h;Rom
LSG Q 2055;SwG
U Q 2057;UK
LM Q 2058;Mx
LSI Q 2064;SwI
LP Q 2070;Port
PQ Q 3084;Que
v Q 3079;Viet
LC Q 4105;CAN
LSF Q 4108;SwF
A4
l dw 0A00h;LineFeed
;*Read Me SU*
F M2_5;-2.5NFLD
F M3_5;-3.5NFLS
F M4_5;-4.5Ven
F P3_5;3.5Iran S
F P4_5;4.5Afgh Iran D
F P5_5;5.5India
F P5_45;5.75Nepal
F P6_5;6½ Myanmar
F P8_5;8½ North Korea
F P10_5;+10½ Lord Howe D
F P12X;Chatham S NZ
F P13X;Chatham D NZ
F U0;UTC-12
F U1;-11
F U2;-10CKT Cook SST Midway
F U3;-9Alaska
F U4;-8Pac D AKD PIS
F U5;-7Mtn S
F U6;-6Mtn D
F U7;-6Cen S GALT
F U8;-5ECT Ecuador Peru EST
F U9;-4cdt Cuba D EDT
F U10;-3;UY,SRT,CLS
F U11;-2;UYS M Uru D Green
F U12;-1Azores
F U13;0 UTC GMT+0 UK WET
F U14;+1 UK D CET S Azores Morocco WES
F U15;+2Libya Eur D CEST Tis Israel SAST SAfrica
F U16;3Saudia AST EAT MKT TID Israel Kenya Russia
F U17;4UAEPersian Gulf
F U18;5PKTPak
F U19;6IOTDiego Garcia
F U20;7Christmas CXT WIB
F U21;8China Perth,WA
F U22;9KSTKorea ACSTAust Cen S JSTJapan
F U23;10Guam
F U24;11Lord Howe
F U25;12Fij NZ S Bikini
F U26;UTC+13Fij NZ D
Y FILETIME<>
B db 10000 dup(0)
BEOB dw 0;X Buff
A4
DST dd 0
buf db 120 dup(0)
cr db g,a,0;13,10,0
tf db"HH':'mm':'ss tt",0
dfo db" dddd, MMMM, d, yyyy ",0
db 0
A4
YN dw 1
db 0
BSYSb db" "
BSYS db 120 dup(0);+0 U13
db 0
BADSb db" "
BADS db 120 dup(0);Aust Cen
db 0
BAMTb db" "
BAMT db 120 dup(0);Amaz
db 0
BAEDb db" "
BAED db 120 dup(0);Syd
db 0
BNCTb db" "
BNCT db 120 dup(0);New Cale
db 0
BAESb db" "
BAES db 120 dup(0);Aust
db 0
BAFTb db" "
BAFT db 120 dup(0);Afgh
db 0
BAWSb db" "
BAWS db 120 dup(0);Perth
db 0
BARb db" "
BAR db 120 dup(0);Argentina
db 0
BARSb db" "
BARS db 120 dup(0);Saudi
db 0
BCb db" "
BC db 120 dup(0);British Columbia
db 0
BAKDb db" "
BAKD db 120 dup(0);AlaskaD
db 0
B3b db" "
B3 db 120 dup(0);AlaskaS
db 0
B4b db" "
B4 db 120 dup(0);PacS
db 0
Bce db" "
db 120 dup(0);CubaD
db 0
Bcsb db" "
Bcs db 120 dup(0);CubaS
db 0
BChb db" "
BCh db 120 dup(0);Guam
BCKb db" "
BCK db 120 dup(0);Cook
db 0
BeCETb db" "
BeCET db 120 dup(0);U14CenEur
db 0
B15b db" "
B15 db 120 dup(0);Cent EurD
db 0
BCETb db" "
BCET db 120 dup(0);U14Cent EurS
db 0
BCESb db" "
BCES db 120 dup(0);U15Cent EurD
db 0
BCHDb db" "
BCHD db 120 dup(0);ChatD
db 0
BCHAb db" "
BCHA db 120 dup(0);ChatS
db 0
BCLSb db" "
BCLS db 120 dup(0);Chile D
db 0
BCLb db" "
BCL db 120 dup(0);Chile S
db 0
BCXb db" "
BCX db 120 dup(0);Christmas
db 0
BEAb db" "
BEA db 120 dup(0);E D
db 0
B20b db" "
B20 db 120 dup(0);U20Kras,CIS
db 0
B21b db" "
B21 db 120 dup(0);U21China
db 0
b21b db" "
b21 db 120 dup(0);+9Malay
db 0
B16Fb db" "
B16F db 120 dup(0);Djibouti
db 0
BEEb db" "
BEE db 120 dup(0);E Euro
db 0
BEECb db" "
BEEC db 120 dup(0);Egypt
db 0
B5b db" "
B5 db 120 dup(0);U5 MST Reno
db 0
B6b db" "
B6 db 120 dup(0);Pacific D
db 0
B7b db" "
B7 db 120 dup(0);Eastern D
db 0
B7Sb db" "
B7S db 120 dup(0);Central S
db 0
B8Db db" "
B8D db 120 dup(0);Central D
db 0
B8b db" "
B8 db 120 dup(0);EST-5BufNY TorON
db 0
B8Cb db" "
B8C db 120 dup(0);-4Que
db 0
B8Pb db" "
B8P db 120 dup(0);-5PET Lima,PERU
db 0
B9b db" "
B9 db 120 dup(0);-4EDTBufNY TorON
db 0
B8Sb db" "
B8S db 120 dup(0);-5ESTBufNY TorON
db 0
B9Db db" "
B9D db 120 dup(0);-4EDT D BufNY TorON
db 0
BASTb db" "
BAST db 120 dup(0);-4Atlantic
db 0
B9Cb db" "
B9C db 120 dup(0);-4Quebec
db 0
B10b db" "
B10 db 120 dup(0);AtlanticD
db 0
BF10b db" "
BF10 db 120 dup(0);-3Falkland
db 0
B10Cb db" "
B10C db 120 dup(0);-3Quebec
db 0
B11LDb db" "
B11LD db 120 dup(0);-2GreenlandU11
db 0
BFJb db" "
BFJ db 120 dup(0);FijiS
db 0
BFJSb db" "
BFJS db 120 dup(0);FijiD
db 0
BGUb db" "
BGU db 120 dup(0);UAE Persian Gulf
db 0
BHUNb db" "
BHUN db 120 dup(0);gary D
db 0
BHUSb db" "
BHUS db 120 dup(0);Hungary S
db 0
BICb db" "
BIC db 120 dup(0);Vietnam
db 0
BLHDb db" "
BLHD db 120 dup(0);Lord HoweD
db 0
BLHSb db" "
BLHS db 120 dup(0);S
db 0
BLIb db" "
BLI db 120 dup(0);Liberia
db 0
BMHb db" "
BMH db 120 dup(0);Bikini
db 0
BMMb db" "
BMM db 120 dup(0);MyanmarBurma
db 0
BMXDb db" "
BMXD db 120 dup(0);MXD
db 0
BMXSb db" "
BMXS db 120 dup(0);MXS
db 0
BMKb db" "
BMK db 120 dup(0);U16Moscow,CIS
db 0
BPHb db" "
BPH db 120 dup(0);Phil
db 0
Bisb db" "
Bis db 120 dup(0);Israel
db 0
BIDb db" "
BID db 120 dup(0);Israel
db 0
BIOb db" "
BIO db 120 dup(0);Diego Garcia
db 0
BIRDb db" "
BIRD db 120 dup(0);IranD
db 0
BIRSb db" "
BIRS db 120 dup(0);IranS
db 0
B22b db" "
B22 db 120 dup(0);9Japan
db 0
B22Ab db" "
B22A db 120 dup(0);9Australia ACST Alice Springs,NT
db 0
BNKb db" "
BNK db 120 dup(0);+8½ North Korea
db 0
BMDb db" "
BMD db 120 dup(0);USA MtnD
db 0
BNDb db" "
BND db 120 dup(0);NFLDD
db 0
BROMSEb db" "
BROMSE db 120 dup(0);Roma D E
db 0
BROMEb db" "
BROME db 120 dup(0);Roma S E
db 0
BROMSb db" "
BROMS db 120 dup(0);Roma D
db 0
BROMb db" "
BROM db 120 dup(0);Roma S
db 0
BNSb db" "
BNS db 120 dup(0);S
db 0
BSWEb db" "
BSWE db 120 dup(0);denS
db 0
BSWESb db" "
BSWES db 120 dup(0);SweD
db 0
B18b db" "
B18 db 120 dup(0)
db 0
B25b db" "
B25 db 120 dup(0);NZS
db 0
B26b db" "
B26 db 120 dup(0);NZD
db 0
BPISb db" "
BPIS db 120 dup(0);Pit
db 0
BPYb db" "
BPY db 120 dup(0);North Korea
db 0
BHADb db" "
BHAD db 120 dup(0);Alaska
db 0
B8Fb db" "
B8F db 120 dup(0);PQS
db 0
B9Fb db" "
B9F db 120 dup(0);PQD
db 0
BEb db" "
BE db 120 dup(0)
db 0
B14Fb db" "
B14F db 120 dup(0);FraS
dw 0
db 0
B15Fb db" "
B15F db 120 dup(0);FraD
db 0
BMb db" "
BM db 120 dup(0)
db 0
BMSb db" "
BMS db 120 dup(0)
db 0
BGb db" "
BG db 120 dup(0);SwG
db 0
BGSb db" "
BGS db 120 dup(0);SwGD
db 0
BIb db" "
BI db 120 dup(0);ItaS
db 0
BISb db" "
BIS db 120 dup(0);SwID
db 0
B14Db db" "
B14D db 120 dup(0);DutS
db 0
B15Db db" "
B15D db 120 dup(0);DutD
db 0
BEESb db" "
BEES db 120 dup(0);FinS
db 0
BEESFb db" "
BEESF db 120 dup(0);FinD
db 0
BEETFb db" "
BEETF db 120 dup(0);FinS
db 0
BPCESb db" "
BPCES db 120 dup(0);PolD
db 0
BPCETb db" "
BPCET db 120 dup(0);PolS
db 0
BPob db" "
BPo db 120 dup(0);PortD
db 0
BPoSb db" "
BPoS db 120 dup(0);PortS
db 0
BPzb db" "
BPz db 120 dup(0);AzoreS
db 0
BPzSb db" "
BPzS db 120 dup(0);AzoreD
db 0
BSb db" "
BS db 120 dup(0);Spain
db 0
BSSb db" "
BSS db 120 dup(0);Spain
db 0
BECb db" "
BEC db 120 dup(0);Ecuador
db 0
BGAb db" "
BGA db 120 dup(0);Galapagos
db 0
BSREb db" "
BSRE db 120 dup(0);,CIS
db 0
BTUNb db" "
BTUN db 120 dup(0);isa
db 0
B2b db" "
B2 db 120 dup(0);Hawaii
db 0
BCVb db" "
BCV db 120 dup(0);Cape Verde
db 0
B12b db" "
B12 db 120 dup(0);Greenland
db 0
BICEb db" "
BICE db 120 dup(0);land
db 0
B13b db" "
B13 db 120 dup(0);UK Std
db 0
E13b db" "
E13 db 120 dup(0);Ire Std
db 0
B14b db" "
B14 db 120 dup(0);+1UK BST Day
db 0
E14b db" "
E14 db 120 dup(0);IreD
db 0
B16b db" "
B16 db 120 dup(0);+3EATKenya,Somolia,Yemen
db 0
BISTb db" "
BIST db 120 dup(0);5½ India
db 0
BNORb db" "
BNOR db 120 dup(0);wayS
db 0
BNOSb db" "
BNOS db 120 dup(0);NorD
db 0
BNPb db" "
BNP db 120 dup(0);Nepal
db 0
BPANb db" "
BPAN db 120 dup(0);Panama
db 0
BRETb db" "
BRET db 120 dup(0);Reu
db 0
BSASb db" "
BSAS db 120 dup(0);S Africa
db 0
BSGIb db" "
BSGI db 120 dup(0);S Georgia
db 0
BSGTb db" "
BSGT db 120 dup(0);Singapore
db 0
BSSTb db" "
BSST db 120 dup(0);Midway
db 0
BBRTb db" "
BBRT db 120 dup(0);Brazil
db 0
BU10LBb db" "
BU10LB db 120 dup(0);-3BraS
db 0
BU10b db" "
BU10 db 120 dup(0);-3Green
db 0
BU11LBb db" "
BU11LB db 120 dup(0);-2BraD
db 0
BU11b db" "
BU11 db 120 dup(0);-2GreenlandD
db 0
BUb db" "
BU db 120 dup(0);ViennaD
db 0
BVb db" "
BV db 120 dup(0);ViennaS
db 0
BSCTb db" "
BSCT db 120 dup(0);Seyc
db 0
BSRTb db" "
BSRT db 120 dup(0);Surin
db 0
BTUKDb db" "
BTUKD db 120 dup(0);ey
db 0
BTUKSb db" "
BTUKS db 120 dup(0);eyS
db 0
BUDb db" "
BUD db 120 dup(0);-3UruSUYT
db 0
BUSb db" "
BUS db 120 dup(0);-2UruDUYST
db 0
BVETb db" "
BVET db 120 dup(0);-4½ Venez
db 0
BVLAb db" "
BVLA db 120 dup(0);Vlat
db 0
BWATb db" "
BWAT db 120 dup(0);Nigeria
db 0
BCIWETb db" "
BCIWET db 120 dup(0);CanaryS
db 0
BCIWESTb db" "
BCIWEST db 120 dup(0);CanaryD
db 0
BWb db" "
BW db 120 dup(0);0WaleS
db 0
BWSb db" "
BWS db 120 dup(0);1WaleD
db 0
BWAKb db" "
BWAK db 120 dup(0);Wake
db 0
BWETb db" "
BWET db 120 dup(0);MoroccoS
db 0
BWESb db" "
BWES db 120 dup(0);D
db 0
BWGSb db" "
BWGS db 120 dup(0);GreenD
db 0
BWGb db" "
BWG db 120 dup(0);GreenS
db 0
BWIBb db" "
BWIB db 120 dup(0);Indonesia
dw 0
A4
J AN
db"SWITZERLAND",0
J ANABU
db"Abuja,NIGERIA",0
J ANACS
db"Alice Springs,Northern Territory,AUSTRALIA",0
J ANADE
db"Aden,YEMEN",0
J ANAD
db"Halifax,Nova Scotia,CANADA",0
J ANAfr
db" AFRICA",0
J ANAFT
db"Kubal,AFGHANISTAN",0
J ANAK
db"Fairbanks,Alaska,USA",0
J ANALG
db"Algiers,ALGERIA",0
J ANAMT
db"Manaus,BRAZIL",0
J ANANAT
ANAna db"Anadyr,CIS",0
J ANAR
db"Buenos Aires,ARGENTINA",0
J ANARST
db"SAUDI ARABIA",0
J ANAU
db"AUSTRALIA",0
J ANAZ
db"AZORES",0
J ANB16
db"Mogadishu,SOMOLIA",0
J ANBUL
db"Sofia,BULGARIA",0
J ANCan
db"CANADA",0
J ANCRO
db"Zagreb,CROATIA",0
J ANCZ
db"CZECH",0
J ANDov
db"Dover,Delaware,USA",0
J ANest
db"ESTONIA",0
J ANFIN
db"Helsinki,FINLAND",0
J ANBR
db"BRAZIL",0
J ANC
db"Ottawa,Ontario,CANADA",0
J ANCDT
db"Chicago,illinois,USA",0
J ANCES
db"CEST Europe",0
J ANCET
db"CET Europe",0
J ANCH
db"CHATHAM ISLANDS",0
J ANCHI
db"Beijing,CHINA",0
J ANCKT
db"Rarotonga,COOK ISLANDS",0
J ANCL
db"CHILE",0
J ANCV
db"Praia,CAPE VERDE",0
J ANCX
CXI db"Christmas Island,AUSTRALIA",0
J ANCh
db"Hagatna,GUAM",0
J ANcst
db"Havana,CUBA",0
J ANDJI
db"DJIBOUTI",0
J ANDUT
db"Amsterdam,NETHERLANDS",0
J ANUTC
db"London,England U13 UTC+0",0
J ANBS
db"London,England U14 BST UTC+1",0
J ANEu
db"Europe",0
J ANF
db"Geneva-French SWISSE",0
J ANG
db"Zurich-German SCHWEIZ",0
J AP
db"Paris,FRANCE",0
J ANASAM
db"Pago Pago,AMERICAN SAMOA",0
J ANEA
db"Easter Island,CHILE",0
J ANEAT
db"KENYA",0
J ANEC
db"Quito,ECUADOR",0
J ANED
db"New York City,New York,USA",0
J ANEE
db"Tripoli,LIBYA",0
J ANEES
db"Kyiv,UKRAINE",0
J ANEg
db"Cairo,EGYPT",0
J ANFJ
db "Suva,FIJI",0
J ANFK
db"Stanley,FALKLAND ISLANDS",0
J ANFa
db"Torshavn,FAROE ISLANDS",0
J ANGA
db"GALAPAGOS ISLANDS",0
J ANGREEN
db"Greenwich,ENGLAND U13 GMT+0 UTC+0 ",0;Universal Co-Ordinated
J ANGU
db"UNITED ARAB EMIRATES",0;U17
J ANHAD
db"Adak,Alaska,USA",0
J ANHAS
db"Honolulu,Hawaii,USA",0
J ANHUN
db"Budapest,HUNGARY",0
J ANI
db"SWITZERLAND-ITALIAN SVIZZERA",0
J ANIRQ
db"Baghdad,IRAQ",0
J ANICE
db"Reykjavik,ICELAND",0
J ANIC
db"Hanoi,VIETNAM",0
J ANDG
db"DIEGO GARCIA USAF Base",0
J ANIRAQ
db"IRAQ",0
J ANIRST
db"Tehran,IRAN",0
J ANIS
db"New Delhi,INDIA",0
J ANJST
db"Tokyo,JAPAN",0
J ANKST
db"SOUTH KOREA",0
J ANNK
db"NORTH KOREA",0;+8½PYT
J ANLH
db"Lord Howe Island,AUSTRALIA",0
J ANLI
db"Tripoli,LIBYA",0
J ANMAL
db"Valleta,MALTA",0
J ANMH
db"Bikini,MARSHALL ISLANDS",0
J ANMK
db"Moscow,CIS RUSSIA",0
J ANMM
db"Rangoon,MYANNAR",0
J ANMST
db"Phoenix,Arizona,USA",0
J ANMX
db"Mexico City,MEXICO",0
J ANMY
db"Kular Lumpur,MALAYASIA",0
J ANNCT
db"Noumea,NEW CALEDONIA",0
J ANNDT
db"Saint John",27h,"s,Newfoundland & Labrador,CANADA",0
J ANNOR
db"Oslo,NORWAY",0
J ANNPT
db"Katmandu,NEPAL",0
J ANNZ
db"Wellington,NEW ZEALAND",0
J ANis
db"Jerulesum,ISRAEL",0
J ANON
db"Towns in Ontario",0
J ANP
db"Warsaw,POLAND",0
J ANPAN
db"Colon,PANAMA",0
J ANPDT
db"Los Angeles,California,USA",0;LAX Airport
J ANPET
db"Lima,PERU",0
J ANPHT
db"Manila,PHILIPPINES",0
J ANPIST
db"PITCAIRN ISLANDS",0
J ANPORT
db"Lisbon,PORTUGAL",0
J ANPY
db"Pyongyang,NORTH KOREA",0
J ANROM
db"Bucharest,ROMANIA",0
J ANRET
db"Saint-Denis,REUNION",0
J ANSG
db"SOUTH GEORGIA ISLAND",0
J ANSLO
db"Bratislava,SLOVAKIA",0
J ANSWE
db"Stockholm,SWEDEN",0
J ANTUN
db"Tunis,TUNISA",0
J ANTUK
db"Ankara,TURKEY",0
J ANPKT
db"Islamabad,PAKISTAN",0
J ANQ
db"Montreal,Quebec,CANADA",0
J ANR
db"Rome,ITALY",0
J ANS
db"Madrid,SPAIN",0
J ANSAST
db"Cape Town,SOUTH AFRICA",0
J ANSCT
db"Victoria,SEYCHELLES",0
J ANSGT
db"SINGAPORE",0
J ANSRT
db"Paramaribo,SURINAME",0
J ANSST
db"MIDWAY ATOLL",0
J ANSYS;SysTime
db"London,ENGLAND U13 UTC+0 GMT+0",0
J ANTRI
db"Port of Spain,TRINDAD & TOBAGO",0
J ANTX
db"Towns in Texas",0
J ANUK
db"UNITED KINGDOM",0
J ANUsa
db"AMERICA",0
J ANV
db"Vorenezh,CIS",0
J ANv
db"Vienna,AUSTRIA",0
J ANVET
db"Caracas,VENEZUELA",0
J ANVLA
db"Vladivostok,CIS",0
J ANW
db"Cardiff,WALES",0
J ANWAK
db"WAKE ISLAND",0
J ANWE
db"Casablanca,MOROCCO",0
J ANWG
db"GREENLAND",0
J ANWH
db"Whitehorse,Yukon,CANADA",0
J ANWIB
db"Jakarta,INDONESIA",0
J ANX
db"Dublin,IRELAND",0
J ANY
db"Montevideo,URUGUAY",0
A4 
Psst db" SST [UTC-11]",a,0;U2Midway
Pckt db" CKT [UTC-10]",a,0;Cook
Pakst db" AKST [UTC-9]",a,0;Alaska
Phast db" HAST [UTC-10]",a,0;Hawaii 5O H
Phadt db" HADT [UTC-9]",a,0
Pakdt db" AKDT [UTC-8]",a,0
Ppist db" PIST [UTC-8]",a,0
Ppst db" PST [UTC-8]",a,0
Ppdt db" PDT [UTC-7]",a,0;Pacific
Pmst db" MST [UTC-7]",a,0;Mount
Pmdt db" MDT [UTC-6]",a,0
Pcst db" CST [UTC-6]",a,0;Central
Pgalt db" GALT [UTC-6]",a,0;Galapagos
PCST db" CST [UTC-5]",a,0
Pcdt db" CDT [UTC-5]",a,0
Ppet db" PET [UTC-5]",a,0;Peru
Peasst db" EASST [UTC-5]",a,0;Easter
Pect db" ECT [UTC-5]",a,0
Pest db" EST [UTC-5]",a,0;East CAN-USA
Pvet db" VET [UTC-4½]",a,0;VENEZ
Pamt db" AMT [UTC-4]",a,0
Past db" AST [UTC-4]",a,0
PCDT db" CDT [UTC-4]",a,0;CENT
Pedt db" EDT [UTC-4]",a,0;EAST CAN-USA
Pnst db" NST [UTC-3½]",a,0;Newfoundland
Padt db" ADT [UTC-3]",a,0;Atlantic
Part db" ART [UTC-3]",a,0
Pbrt db" BRT [UTC-3]",a,0
Pclst db" CLST [UTC-3]",a,0;Chile
Pclt db" CLT [UTC-3]",a,0
Pfkst db" FKST [UTC-3]",a,0;Falk
Psrt db" SRT [UTC-3]",a,0
Puyt db" UYT[UTC-3]",a,0
Pwgt db" WGT [UTC-3]",a,0;GREEN
Pndt db" NDT [UTC-2½]",a,0;M2_5
Pbrst db" BRST [UTC-2]",a,0
PGST db" GST [UTC-2]",a,0;GULF UAE
Puyst db" UYST [UTC-2]",a,0
Pwgst db" WGST [UTC-2]",a,0;GREEN
Pcvt db" CVT [UTC-1]",a,0;CAPE VERDE
Pazot db" AZOT [UTC-1]",a,0;Azores
Pazost db" AZOST [UTC+0]",a,0;Portugal
Pwet db" WET [UTC+0]",a,0
Pgmt db" GMT [GMT+0]",a,0;U13 UTC+0London
Putc db" UTC [UTC+0]",a,0;UTC+0GMT+0UK
Pbst db" BST [UTC+1]",a,0;U14 UTC+1GMT+1England
Pcet db" CET [UTC+1]",a,0;U14 Central European
Eist db" IST [UTC+1]",a,0;U14 Ireland Day Erie
Pwest db" WEST [UTC+1]",a,0
Pwat db" WAT [UTC+1]",a,0;West AFRICA
Peet db" EET [UTC+2]",a,0;East Europe
Pcest db" CEST [UTC+2]",a,0;U15Central Euro Day 
PIST db" IST [UTC+2]",a,0;Israel
Psast db" SAST [UTC+2]",a,0;U15 S AFRICA
Parst db" AST [UTC+3]",a,0;Arab Std
Peat db" EAT [UTC+3]",a,0;East Africa
Peest db" EEST [UTC+3]",a,0
Pidt db" IDT [UTC+3]",a,0
Pmkt db" MKT [UTC+3]",a,0;U16Moscow CIS
Pirst db" IRST [UTC+3½]",a,0;3½ Iran
Pgst db" GST [UTC+4]",a,0;Gulf UAE
Psamt db" SAMT [UTC+4]",a,0;U17
Psct db" SCT [UTC+4]",a,0
Pret db" RET [UTC+4]",a,0
Paft db" AFT [UTC+4½]",a,0
Pirdt db" IRDT [UTC+4½]",a,0
Ppkt db" PKT [UTC+5]",a,0;U18Paki
Pyekt db" YEKT [UTC+5]",a,0;U18
Pist db" IST [UTC+05½]",a,0;5½ India Std
Pnpt db" NPT [UTC+05¾]",a,0
Piot db" IOT [UTC+6]",a,0;Diego Garcia
Pomst db" OMST [UTC+6]",a,0;U19
Pnovt db" NOVT [UTC+6]",a,0;U19
Pmmt db" MMT [UTC+6½]",a,0;Myanmar-Burma
Pkrat db" KRAT [UTC+7]",a,0;U20,Russia-CIS
Pcxt db" CXT [UTC+7:00]",a,0;Christmas
Pict db" ICT [UTC+7]",a,0;U20Vietnam IndoChina
Pwib db" WIB [UTC+7]",a,0;Jakrarta,Indonesia
Pawst db" AWST [UTC+8:00]",a,0;Darwin NT
Pchi db" CST [UTC+8]",a,0;CHINA
Pirkt db" IRKT [UTC+8]",a,0;U20Irkutsk
Pmyt db " MYT [UTC+8]",a,0
Ppht db" PHT [UTC+8]",a,0
Psgt db" SGT [UTC+8]",a,0
Ppyt db" PYT [UTC+8½]",a,0;N Korea
Pjst db" JST [UTC+9]",a,0;U22Japan
PU22 db" ACST [UTC+9]",a,0;U22Australia
Pyakt db" YAKT [UTC+9]",a,0;U22CIS
Pkst db" KST [UTC+9]",a,0;U22South Korea
Pacst db" ACST [UTC+09½]",a,0;Central
Paest db" AEST [UTC+10.0]",a,0;U23Sydney,NSW,Australia
Pchst db" ChST [UTC+10]",a,0;Guam
Ppett db" PETT [UTC+10]",a,0;U23
Pmagt db" MAGT [UTC+10]",a,0;R23M
Psakt db" SAKT [UTC+10]",a,0;R23S
Pvlat db" VLAT [UTC+10]",a,0;R23V
Pacdt db" ACDT [UTC+10½]",a,0
Plhst db" LHST [UTC+10½]",a,0
Plhdt db" LHDT [UTC+11.0]",a,0;LORD HOWE
Paedt db" AEDT [UTC+11.0]",a,0
Pnct db" NCT [UTC+11]",a,0;New Caledonia
Psret db" SRET [UTC+11]",a,0
Panat db" ANAT [UTC+12]",a,0
Pfjt db" FJT [UTC+12]",a,0;U25Fiji
Pmht db" MHT [UTC+12]",a,0;Marshall,Bikini
Pnzst db" NZST [UTC+12.00]",a,0
Pwakt db" WAKT [UTC+12]",a,0;WAKE
Pfjst db" FJST [UTC+13]",a,0;U26FIJI
Pnzdt db" NZDT [UTC+13.00]",a,0;NEW ZEALAND
Pchadt db" CHADT [UTC+13¾]",a,0;P13¾ NZ
Pchast db" CHAST [UTC+12¾]",a,0;NZ
.code
A4
I_TX PROTO Stm:LPVOID
I_TX proc Stm:LPVOID
push esi
m esi,Stm
call zeroHour
pop esi
I GT_F,2057,TF24,Stm,A tf,eax,32
R4
I_TX endp
;EDI>Out ESI>to In Direction Flag is UP
CAZ proc
mov eax,MAXCity
cmp eax,esi
jc @2
lodsb
cmp al,7;BackSpace
jnz @F
mov al," "
@@:
stosb
and al,al
jnz CAZ
D edi
R4
CAY proc;CAZ&Space
CA CAZ
push eax
m al," "
stosb
pop eax
R4
CAY endp
@2:
Z
int 3;*L1035*
mov esi,O LSUsaTDay
;Fudge ESI too Large
R4
CAZ endp
A1HR proc;+1Hour
P[edx].FILETIME.dwLowDateTime,061C46800h
adc[edx].FILETIME.dwHighDateTime,8
D cx
jnz A1HR
R4
A1HR endp
S1HR proc;-1Hour
sub[edx].FILETIME.dwLowDateTime,061C46800h
sbb[edx].FILETIME.dwHighDateTime,8
D cx
jnz S1HR
R4
S1HR endp
A30M proc;430E23400h+½Hour
P[edx].FILETIME.dwLowDateTime,030E23400h
adc[edx].FILETIME.dwHighDateTime,4
R4
A30M endp
S30M proc;-½Hour
sub[edx].FILETIME.dwLowDateTime,030E23400h
sbb[edx].FILETIME.dwHighDateTime,4
R4
S30M endp
A15M proc;218711A00h+15min
P[edx].FILETIME.dwLowDateTime,018711A00h
adc[edx].FILETIME.dwHighDateTime,2
R4
A15M endp
S15M proc;218711A00h-15Min
sub[edx].FILETIME.dwLowDateTime,018711A00h
sbb[edx].FILETIME.dwHighDateTime,2
R4
S15M endp
A45M proc;+¾Hour
CA A30M
CA A15M
R4
A45M endp
AH30 proc;+CX Hour+½Hour
CA A1HR
CA A30M
R4
AH30 endp
SH30 proc;-CX -½Hour
CA S1HR
CA S30M
R4
SH30 endp
PT proc USES EDI _ST:LPVOID,_b:LPVOID,_A:LPSTR,_TZ:LPSTR,_LC:DWORD
;36000000000=1Hour 18000000000=30Minute
m edi,_b
I GD_F,_LC,0,_ST,A dfo,edi,98
.if eax
add eax,edi
D eax
.else
m eax,edi
.endif
I I_TX,_ST
m esi,_b
@@:
lodsb
and al,al
jnz @B
D esi
mov al,32
mov[esi],al
inc esi
m edi,esi
m esi,_TZ
call CAZ
inc edi
m ax,YN
and ax,ax
jz @F
I MB,0,_b,_A,K
@@:
R4
PT endp
.data
include \masm32\bin\time\city
;X\masm32\bin\time\world*L1122*

--- End code ---

herge:
;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*

Navigation

[0] Message Index

[#] Next page

Go to full version