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

Default to a new century in PDTIM

Browse Source 
Boldly moving into the 21st century
This commit is contained in:
Björn Victor 2021-06-22 14:22:56 +02:00 committed by Lars Brinkhoff
parent 7d755dab01
commit 6a6a2ae390
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/sysen1/pdset.115 → src/sysen1/pdset.116
View File

@ -448,12 +448,12 @@ SBKUP: .RDTIME A, ;SEE HOW LONG IT'S BEEN SINCE . TYPED
CMD "C,CENSET,SET CENTURY (precede by NN, for example 20C)
CENSET: PUSHJ P,ARGET ;GET CENTURY (-1)
MOVEI A,19. ;NO ARG, RESET TO DEFAULT
MOVEI A,20. ;NO ARG, RESET TO DEFAULT
IMULI A,100. ;CONVERT TO YEAR
MOVEM A,CENTURY ;SET CENTURY
POPJ P,
CENTURY: 1900. ;CENTURY (FOR FIRST TWO DIGITS OF YEAR)
CENTURY: 2000. ;CENTURY (FOR FIRST TWO DIGITS OF YEAR)
CMD "A,AM
CMD "P,PM