ときどきの雑記帖 RE* (新南口)
愚か者の船
値上げ
「夕刊フジ」 1部売り160円から180円に値上げ - 文化通信デジタル
会社帰りに寄ったコンビニの新聞コーナーで見かけた。 前回の値上げはいつだったっけと調べたら去年(2022年)のことだった。
2008年10月2日号（10月1日発行）から、1部売りが120円から130円に、2014年4月2日号（4月1日発行）からは130円から140円に、 2019年4月2日号（4月1日発行）からは140円から150円に、2022年1月5日号（1月4日発行）からは150円から160円に、 2023年3月7日号（3月6日発行）からは160円から180円に値上げした。
東スポも遠くない未来に値上げかねえ。
売店
通勤経路にある駅の売店が最近リニューアルしたのだけど、 それに伴って新聞と雑誌の取り扱いを止めてしまった。 他ではあまり見かけないマイナーな業界紙も扱っていたし 家の近くのコンビニでは東スポが売り切れていたり ラス1のこともわりとあるので重宝してたんがなあ。
前回の値上げのときも結構悩んだけどどうするか＞東スポ
黒猫
カフェ「シャノアール」、58年の歴史に幕 最後の店舗が閉店へ：3月24日 - ITmedia ビジネスオンライン
なんと。 通っていた大学の近く(と言っていいのかなあ…)にあってそこそこ行っていた覚えが＞シャノアール
(わたしのきおくがたしかならば)ここで初めてラザニア食べたのよ😄 家から歩いて行けるくらいのところにもあったのだけど、 そこは2年位前に閉店してしまった。
シャノアール丸ごとなくなるとはねえ。
raise the bar
に関連してredditにスレッドがあるのを見つけたのだけど
- Raising the bar for software security: GitHub 2FA begins March 13 | The GitHub Blog : programming
- Raising the bar for software security: GitHub 2FA begins March 13 | The GitHub Blog
- raise the barの意味・使い方・読み方 | Weblio英和辞書
- 彼がハードルを上げた。（水準を上げた） – He raised the bar. | ニック式英会話
こういう表現があるんだ＞raise the bar
FORTRAN Compiler on IBM 704
STATEB
ARITHMETIC のSTATE Bのはなし。
さて
REM ARITHMETIC / STATE B= 4F13441
REM 704 FORTRAN MASTER RECORD CARD / STATE B = F0180000. 4F13442
ORG 0 4F134421
PZE ORGB,,DMWR06 4F134422
PZE ENDB-1 4F134423
REM 4F13443
ORGB ORG 1824 4F13444
REM 4F13445
REM THIS IS A RECODED VERSION OF STATE B OF SECTION ONE, 704 4F13446
REM FORTRAN II. THE SCAN HAS BEEN COMPLETELY RECODED AND LEVEL 4F13447
REM ANALYSIS HAS BEEN FOLDED OVER. 4F13440
REM 4F13449
REM STATE B CONSISTS OF TWO PARTS....SCAN AND LEVEL ANALYSIS. 4F13450
REM THE SCAN IS LEFT TO RIGHT OVER THE SOURCE STATEMENT WHICH IS 4F13451
REM IN THE F REGION OF COMMON AND IS IN BCD. 4F13452
REM EACH FIXED POINT CONSTANT, FLOATING POINT CONSTANT, AND BCD 4F13453
REM ( HOLLERITH) ARGUMENT IN CALL NAME STATEMENTS ARE ENTERED IN 4F13454
REM TABLES AND GIVEN AN INTERNAL VARIABLE NAME. 4F13455
REM LEVEL ANALYSIS IS PREFORMED FOR EACH ELEMENT OF THE STATEMENT4F13456
REM WHERE AN ELEMENT IS DEFINED AS A VARIABLE, FUNCTION NAME OR (4F13457
REM AND THE OPERATOR WHICH PRECEDES IT. 4F13458
SLF 4F13459
CLA SIG1ST 4F13460
STO SIG1IX-3 4F13461
STZ ARGCTR CLEAR 4F13462
STZ CHSAVE X 4F13463
STZ 3LBAR X 4F13464
STZ NBAR X 4F13465
STZ CBAR X 4F13466
STZ ABAR X 4F13467
STZ FSTYPE X 4F13468
LXD 1BAR,4 SET NBAR=-1 4F13469
SXD NBAR,4 X 4F13470
CAL E( SET ARERAS - E( 4F13471
SLW ARERAS X 4F13472
TSX C0190X,4 SET FWA --F AND CHCTR - 0 4F13473
CAL TXHOP SET SWITCHES FOR LEFT SCAN. 4F13474
STP MS093 X 4F13475
STP MS310 X 4F13476
STP MS321 X 4F13477
*
MS010 CAL ADPLUS SET OP TO ADDITION 4F13478
*
MS030 SLW E+1 X 4F13479
STZ FNBITS CLEAR FUNCTION NAME INDICATOR 4F13480
STZ FNCTR CLEAR FUNCTION ARG COUNTER. 4F13481
STZ G CLEAR RECEIVING CELL. 4F13482
CLS L(0) SET E = -0 4F13483
STO E X 4F13484
LXA L(6),2 SET IR2 FOR SIX CHARS. 4F13485
*
MS040 CAL CHSAVE CHAR IN CHSAVE, IF ANY, TO AC. 4F13486
TNZ MS041 X 4F13467
TSX C0190,4 CHSAVE EMPTY, GET NEXT CHAR. 4F13488
*
MS041 CAS L(9) IS CHAR. NUMERIC 4F13489
TRA MS050 N/, TAKE TRA 4F13490
MS4007 TXH CM4100,0 4F13491
TSX ROYCNV,4 X 4F13492
TRA HOLL RETURN 1, THIS WAS HOLLERITH. 4F13493
TRA LATXH THIS WAS FIXED OR FLOATING CONSTANT. 4F13494
*
MS050 LXA L(10),4 PREPARE TO TEST FOR PUNCTUATION. 4F13495
ワークエリアを初期化した後の MS010、MS030、MS040、MS041というラベルが ループの入り口になっていて、 色々処理をした時の状態によって どれかに戻ってくるような流れになっている (たぶん)。
このSTATE Bの終わりの方は
CM4200 TXI CM4201,A,-3 4F13964
CM4201 SXD 3LBAR,A 4F13965
TXI CM4303,C,-1 4F13966
CM4300 TXI CM4301,A,-6 4F13967
CM4301 SXD 3LBAR,A 4F13968
TXI CM4303,C,-1 4F13969
CM4303 SXD ABAR,C 4F13970
TXI CM4102,B,-1 4F13971
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13972
REM 4F13973
REM CLOSED SUBROUTINE TO MAKE ENTRIES IN HOLARG TABLE 4F13974
この辺り。
抜けや最後の一桁を使った追加もあるのであくまで目安として右端の数字を使って計算すると
13971 - 13459 = 512
で500行以上ある。 さらにCLOSED SUBROUTINEも加えると
ALPHA BSS 139 4F14196
LAMBDA BSS 1200 4F14197
REM END OF ARITHMETIC / STATE B. 4F14198
14198 - 13459 = 739
で700行越えと結構な分量があるのでさてどう進めたものか。
ARITHMETIC STATEMENTの処理はこのSTATEBだけではすまなくて、 STATE Cと移り
MS232 LXD ARGCTR,4 WAS THIS AN ARITH FUNCTION STATEMENT 4F13600
TXL STATEC,4,0 4F13601
STATE CはSTATE Cで
REM ARITHMETIC / STATE C= 4F14201
REM STATE C. PERFOPMS OPTIMIZATION ON LAMBDA TABLE. 4F14204
REM 4F14205
ORG STATEC 4F14206
R00000 LDQ L(0) CLEAR MQ 4F14207
これも結構な長さがある。そしてこれでも終わらなくてSTATE Dへと移る。
TRA STATED GO FETCH STATE D 4F14904
そのSTATE Dも
REM ARITHMETIC / STATE D= 4F14936
ORG STATED 4F14939
MC00OO LXD 3QBAR,A MODE CHECKING ROUTINE 4F14940
から
ES1590 CLA FNSW 4F15741
TZE MTR000 4F15742
CLA F-1 4F15743
SUB 5BLANS 4F15744
TZE MTR000 4F15745
CLS EIFNO 4F15746
STO EIFNO 4F15747
TSX TET00,A 4F15748
HTR 0 4F15749
CLS EIFNO 4F15750
STO EIFNO 4F15751
TRA MTR000 4F15752
ES1710 LXD BBOX,B 4F15753
CLA OPNWRD 4F15754
STO CIB-3,B 4F15755
TRA MTR000 4F15756
まである。 ここでようやくSTATE D → STATE A(上記のコードの MTR000はSTATEAのシノニム)
MTR000 SYN STATEA 4F15938
と遷移して「振出し」に戻る。
STATE Aの先頭から見ると
REM STATEA/1-ASSEMBLE AND CLASSIFY ALL STATEMENTS= 4F11637
ORGA ORG 1824 4F11638
REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11639
STATEA BSS 0 4F11640
REM CA000/ CALLS=CA100,SR6DC1,TET00,DIAG. 4F11641
REM CA000 ASSEMBLES STATEMENT IN THE F-REGION ANO ASSIGNS AN IFN.4F11642
CA010 LXD ENDWRD,4 IF THE FINAL STATEMENT HAS BEEN 4F11643
で始まり
CPBETA BSS 300 4F15864
SCRIPL BSS 600 4F15865
REM END OF ARITHMETIC / STATE D. 4F15866
までなので、長いよねえ💺
ばーくはつだ♪
📺特撮テレビ番組『#TAROMAN #岡本太郎 式特撮活劇』の楽曲をカラオケ配信開始🎉
— JOYSOUND(ジョイサウンド)公式 (@JOYSOUND_PR) March 10, 2023
🎤タローマン合唱団
🎵爆発だッ!タローマン
🎵なんだこれは ! (奇獣行進A)
🎵なんだこれは ! (奇獣行進B)
🎵なんだこれは ! (戦闘序曲)
JOYSOUNDで歌って楽しんでね☀https://t.co/U9fvWb3GjU@ryofujii2000
歴史は繰り返す?
1960年代:「COBOLがあればプログラマは不要になる!」
— 新山祐介 (Yusuke Shinyama) (@mootastic) March 11, 2023
1980年代:「4GLがあればプログラマは不要になる!」
2000年代:「UMLがあればプログラマは不要になる!」
2020年代:「AIがあればプログラマは不要になる!」
つづく。 https://t.co/nvzWJGeFaA
新山さんの取り上げた元ツイートに この人が反応していてちょっとびっくり。
2000s: "UML will let non-programmers make the software!"
— Grady Booch (@Grady_Booch) March 4, 2023
I never claimed that. Not once. And I opposed the push some made to make the UML a programming language. The UML was a language for visualizing and reasoning about the design of a software-intensive system.
笑わない数学
去年やってたＮＨＫの笑わない数学って番組で、無限を取り上げてたことがありました。その中で、無限にも種類があるとかやってましたね。大きい無限、小さい無限。
— まてばしい (@matebashiieat) March 11, 2023
調べたら来月から再放送するみたいなので、気になったら見せてあげてみてください！ pic.twitter.com/5Bt67n813j
再放送するのか! Eテレで土曜日の2130からと。