github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-02-04 15:53:01 +00:00
Code Issues Releases Wiki Activity

Fix unbalanced brackets.

Browse Source
This commit is contained in:
Lars Brinkhoff
2021-06-26 11:20:00 +02:00
parent 96e382460d
commit 21d5b72cfd
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/system/time.952
View File

@@ -217,7 +217,7 @@ IFL TZONE,[ ;; negative offset
GLPDT2: JFCL ;POPJ FOR STD TIME
;JRST CRDDST FOR DAY LIGHT TIME
;JFCL "NORMAL"
IFDEF DSTEU,IFN DSTEU,[
IFDEF DSTEU,[IFN DSTEU,[
;; [BV] hack DST for EU rules
CAML A,[<MAR <31.-6>>*SPD+7200.] ;If before 2am last Sunday in March,
CAML A,[<OCT 31.>*SPD+7200.] ;or after 2am Oct 31 (standard time!),
@@ -226,7 +226,7 @@ IFDEF DSTEU,IFN DSTEU,[
CAML A,[<OCT <31.-6>>*SPD+7200.] ;or after 2am possbly last Sunday in October,
JRST GLPDT3 ;then we have to compute
;; else it's obviously DST
]
]]
.ELSE [
CAML A,[<APR 1>*SPD+7200.] ;IF BEFORE 2AM APR 1,
CAML A,[<OCT 31.>*SPD+3600.] ;OR IF AFTER 1AM STANDARD TIME OCT 31,
@@ -263,13 +263,13 @@ GLPDT3: PUSH P,A ;SAVE # SECS
POP P,A ;DAYLIGHT SAVINGS TIME, RESTORE A
JRST CRDDST ;MUNG A AND E AND RETURN
IFDEF DSTEU,IFN DSTEU,[
IFDEF DSTEU,[IFN DSTEU,[
CRDSB: 7200. ;In Mar changes at 2AM (standard time)
7200. ;In October also changes at 2AM (standard time!)
CRDTST: CAIGE A,<MAR <31.-6>> ;First possible last Sunday in March
CAIL A,<OCT <31.-6>> ;First possible last Sunday in October
]
]]
.ELSE [
CRDSB: 7200. ;IN APR CHANGES AT 2AM EST
3600. ;IN OCTOBER CHANGES AT 1AM EST