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

Fix Y2K bug in TECO.

Browse Source
This commit is contained in:
Lars Brinkhoff
2019-06-17 12:02:38 +02:00
parent 8d42d009e8
commit 80bdb40d41
1 changed files with 6 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/_teco_/teco.1213
View File

@@ -22345,6 +22345,12 @@ PTLAB9: MOVEI A,"0
TLZ FF,FLNEG
IRPS Q,R,[270400/220500/330800]
LDB C,[Q,,PTLFCD]
IFSE R,,[
PUSH P,D
IDIVI C,100.
MOVE C,D
POP P,D
]
MOVEI TT,1
PUSHJ P,DPT1
IFSE R,/,[ MOVEI CH,"/