2021年04月05日(Mon)の独り言

2021年04月05日(Mon)の呟きは 34

< 2021年04月04日(Sun)の独り言 | 2021年04月05日(Mon)の独り言 | 2021年04月06日(Tue)の独り言 >

2021年04月04日(Sun) 23:58:16 #
https://ja.wikipedia.org/wiki/Fizz_Buzz

へぇ
- 2021年04月05日(Mon) 00:00:56 #
  ３の倍数は桁和が３の倍数
  ５の倍数は下一桁が０か５
  コレを用いてFizzBuzzしないのかね
  - 2021年04月05日(Mon) 00:01:30 #
    ＞３の倍数は桁和が３の倍数
    
    ３，６，９のいずれかになるまで再帰的に桁和を求めるとかしないとだめか？
2021年04月05日(Mon) 00:02:00 #
やる気が無限消滅
2021年04月05日(Mon) 00:05:19 #
[18-1] ツノ系女子は告れない【18】 / うさみみき / まんがライフWIN http://mangalifewin.takeshobo.co.jp/rensai/tsunokeijyoshihakokurenai/tsunokei_018/22638/

マジかー、これは発展しないとな
2021年04月05日(Mon) 01:18:09 #
https://twitter.com/Reuters/status/1378725294656356353

やば
2021年04月05日(Mon) 01:33:59 #
https://twitter.com/i/lists/1372099362877100034

海外ニュースでもCOVIDじゃなくcoronavirusって書くのが出てきたのは変異株とやらの関係？
- 2021年04月05日(Mon) 01:37:14 #
  単に記者それぞれの好み(?)の問題か？
  coronavirusと書くかCovidと書くかCOVID-19と書くか、、、
  - 2021年04月05日(Mon) 01:40:26 #
    あるいは、文脈の問題か？
    - 2021年04月05日(Mon) 01:40:33 #
      英語読めないからな・・・俺は・・・
2021年04月05日(Mon) 01:45:05 #
https://twitter.com/NASA_Marshall/status/1378063777653006342

火星飛行実験は11日か
2021年04月05日(Mon) 01:49:06 #
vivaldi
もしかして自動アップデートが有効になってないか・・・マジか・・・
- 2021年04月05日(Mon) 01:50:52 #
  分からんが・・・
  - 2021年04月05日(Mon) 01:53:20 #
    なってはないか、
    なんか右クリックメニューの並びに違和感あるんだが
    なんでだろう・・・
2021年04月05日(Mon) 02:25:35 #
ちゃんと動かないことあるんか・・・
遭遇したくないなあ・・・
2021年04月05日(Mon) 02:37:09 (UPD 2021年04月05日(Mon) 02:37:50) #
Notepad++で
<=の記号が≼に置き換わるのだけど・・・？
これはフォントの問題・・・？わからん・・・
2021年04月05日(Mon) 02:43:54 #
https://twitter.com/CNETNews/status/1378754235844681730

86て・・・
- 2021年04月05日(Mon) 02:47:35 #
  1週間前からくらいのニュースぽいな
2021年04月05日(Mon) 02:45:46 #
https://twitter.com/Reuters/status/1378749201622855680

ワシントンＤＣでも桜が満開、と？

桜を愛でる(?)文化って海外にもあったんか・・・
2021年04月05日(Mon) 02:49:16 #
shower timeしないと
2021年04月05日(Mon) 02:54:27 #
あー、driveのアプデしないと
- 2021年04月05日(Mon) 18:02:08 #
  やった
2021年04月05日(Mon) 02:54:42 #
ひとまずshower time
- 2021年04月05日(Mon) 02:59:00 #
  showwwweeeeeeeeeeeeeerrrrrrrrrrrr
2021年04月05日(Mon) 05:50:35 #
謎バグ踏んでブチ切れそう・・・
- 2021年04月05日(Mon) 05:52:44 #
  謎の600にブチ切れそう
- 2021年04月05日(Mon) 06:31:45 #
  原因は不明だが
  ファイル分割すればいけるっぽいが
  分割したファイルそれぞれコンパイルする必要性があり・・・めんどう
2021年04月05日(Mon) 06:18:04 #
あー
Midステートメントはコピー先にオフセットがあり
Mid関数はコピー元にオフセットがあるのか…
2021年04月05日(Mon) 07:32:28 #
そーと

' *** STRSORT ***
Dim i As Integer
Dim p0 As Integer
Dim p1 As Integer
Dim p2 As Integer
Dim cnt As Integer
Dim ub As Integer
Dim s As String
Dim w1 As String
Dim w2 As String
Print "WORDS?"
Input s
ub = Len(s) - 1
For i = 0 To ub
If s(i) = ","c Then
cnt += 1
End If
Next i
For i = 1 To cnt
p0 = 0
For p1 = 0 To ub
If s(p1) = ","c Then
Exit For
End If
Next p1
For p2 = p1 + 1 To ub
If s(p2) = ","c Then
w1 = Mid(s, p0, p1 - p0)
w2 = Mid(s, p1 + 1, p2 - (p1 + 1))
If w1 > w2 Then
Mid(s, p0) = w2 & "," & w1
p0 += Len(w2) + 1
Else
p0 = p1 + 1
End If
p1 = p2
End If
Next p2
w1 = Mid(s, p0, p1 - p0)
w2 = Mid(s, p1 + 1, p2 - (p1 + 1))
If w1 > w2 Then
Mid(s, p0) = w2 & "," & w1
End If
Next i
Print s
- 2021年04月05日(Mon) 07:32:41 #
  
  STRSORT START
  LAD GR1,I1
  XOR GR2,GR2
  LAD GR3,778
  CALL C14
  ; Print "WORDS?"
  OUT LB1,LL1
  ; Input s
  IN SB7,SL7
  LD GR0,SL7
  JPL J1
  JZE J1
  ST GR0,EOF
  XOR GR0,GR0
  ST GR0,SL7
  J1 NOP
  ; ub = (Len(s) - 1)
  LD GR7,SL7
  SUBA GR7,=1
  ST GR7,I6
  ; For i = 0 To ub Step 1
  LD GR7,I6
  ST GR7,T1
  LAD GR7,0
  ST GR7,I1
  J2 NOP
  LD GR1,I1
  CPA GR1,T1
  JPL J4
  ; If (s(i) = ","c) Then
  LD GR7,I1
  LD GR1,GR7
  LD GR2,SL7
  CALL C16
  LD GR7,GR0
  LD GR7,SB7,GR7
  LD GR6,=','
  SUBA GR7,GR6
  JZE J8
  LAD GR7,#FFFF
  J8 XOR GR7,=#FFFF
  AND GR7,GR7
  JZE J5
  ; cnt += 1
  LAD GR7,1
  ADDA GR7,I5
  ST GR7,I5
  ; End If
  J5 NOP
  ; Next i
  J3 NOP
  LD GR1,I1
  LAD GR1,1,GR1
  ST GR1,I1
  JUMP J2
  J4 NOP
  ; For i = 1 To cnt Step 1
  LD GR7,I5
  ST GR7,T1
  LAD GR7,1
  ST GR7,I1
  J9 NOP
  LD GR1,I1
  CPA GR1,T1
  JPL J11
  ; p0 = 0
  LAD GR7,0
  ST GR7,I2
  ; For p1 = 0 To ub Step 1
  LD GR7,I6
  ST GR7,T2
  LAD GR7,0
  ST GR7,I3
  J12 NOP
  LD GR1,I3
  CPA GR1,T2
  JPL J14
  ; If (s(p1) = ","c) Then
  LD GR7,I3
  LD GR1,GR7
  LD GR2,SL7
  CALL C16
  LD GR7,GR0
  LD GR7,SB7,GR7
  LD GR6,=','
  SUBA GR7,GR6
  JZE J16
  LAD GR7,#FFFF
  J16 XOR GR7,=#FFFF
  AND GR7,GR7
  JZE J15
  ; Exit For
  JUMP J14
  ; End If
  J15 NOP
  ; Next p1
  J13 NOP
  LD GR1,I3
  LAD GR1,1,GR1
  ST GR1,I3
  JUMP J12
  J14 NOP
  ; For p2 = (p1 + 1) To ub Step 1
  LD GR7,I6
  ST GR7,T2
  LD GR7,I3
  LAD GR7,1,GR7
  ST GR7,I4
  J17 NOP
  LD GR1,I4
  CPA GR1,T2
  JPL J19
  ; If (s(p2) = ","c) Then
  LD GR7,I4
  LD GR1,GR7
  LD GR2,SL7
  CALL C16
  LD GR7,GR0
  LD GR7,SB7,GR7
  LD GR6,=','
  SUBA GR7,GR6
  JZE J21
  LAD GR7,#FFFF
  J21 XOR GR7,=#FFFF
  AND GR7,GR7
  JZE J20
  ; w1 = Mid(s, p0, (p1 - p0))
  LD GR7,I2
  LD GR6,I3
  LD GR5,I2
  SUBA GR6,GR5
  PUSH 0,GR6
  PUSH 0,GR6
  LD GR5,GR7
  POP GR6
  LAD GR1,TB1
  LAD GR3,SB7
  LD GR4,SL7
  LD GR2,GR4
  CALL C10
  ST GR0,TL1
  POP GR6
  LAD GR1,SB8
  LAD GR2,SL8
  LAD GR3,TB1
  LD GR4,TL1
  CALL C11
  ; w2 = Mid(s, (p1 + 1), (p2 - (p1 + 1)))
  LD GR7,I3
  LAD GR7,1,GR7
  LD GR6,I4
  LD GR5,I3
  LAD GR5,1,GR5
  SUBA GR6,GR5
  PUSH 0,GR6
  PUSH 0,GR6
  LD GR5,GR7
  POP GR6
  LAD GR1,TB1
  LAD GR3,SB7
  LD GR4,SL7
  LD GR2,GR4
  CALL C10
  ST GR0,TL1
  POP GR6
  LAD GR1,SB9
  LAD GR2,SL9
  LAD GR3,TB1
  LD GR4,TL1
  CALL C11
  ; If (w1 > w2) Then
  LAD GR3,SB8
  LD GR4,SL8
  LAD GR1,SB9
  LD GR2,SL9
  CALL C8
  SRA GR0,15
  LD GR7,GR0
  AND GR7,GR7
  JZE J27
  ; Mid( s, p0 ) = *1
  LD GR7,I2
  LD GR6,I3
  LD GR5,I2
  SUBA GR6,GR5
  PUSH 0,GR6
  PUSH 0,GR6
  LD GR5,GR7
  POP GR6
  LAD GR1,TB1
  LAD GR3,SB7
  LD GR4,SL7
  LD GR2,GR4
  CALL C10
  ST GR0,TL1
  POP GR6
  LAD GR1,SB8
  LAD GR2,SL8
  LAD GR3,TB1
  LD GR4,TL1
  CALL C11
  ; w2 = Mid(s, (p1 + 1), (p2 - (p1 + 1)))
  LD GR7,I3
  LAD GR7,1,GR7
  LD GR6,I4
  LD GR5,I3
  LAD GR5,1,GR5
  SUBA GR6,GR5
  PUSH 0,GR6
  PUSH 0,GR6
  LD GR5,GR7
  POP GR6
  LAD GR1,TB1
  LAD GR3,SB7
  LD GR4,SL7
  LD GR2,GR4
  CALL C10
  ST GR0,TL1
  POP GR6
  LAD GR1,SB9
  LAD GR2,SL9
  LAD GR3,TB1
  LD GR4,TL1
  CALL C11
  ; If (w1 > w2) Then
  LAD GR3,SB8
  LD GR4,SL8
  LAD GR1,SB9
  LD GR2,SL9
  CALL C8
  SRA GR0,15
  LD GR7,GR0
  AND GR7,GR7
  JZE J37
  ; Mid( s, p0 ) = *2
  End If
  Next i
  For i = 0 To c
  For j = 0 To c - 1 - i
  p = arr(j + 1)
  If arr(j) < p Then
  arr(j + 1) = arr(j)
  arr(j) = p
  End If
  Next j
  t = t & CStr(arr(j)) & ","
  Next i
  Print t
  - 2021年04月05日(Mon) 07:39:51 #
    
    INTSORT START
    LAD GR1,I1
    XOR GR2,GR2
    LAD GR3,775
    CALL C14
    ; Print "NUMBERS?"
    OUT LB1,LL1
    ; Input s
    IN SB5,SL5
    LD GR0,SL5
    JPL J1
    JZE J1
    ST GR0,EOF
    XOR GR0,GR0
    ST GR0,SL5
    J1 NOP
    ; arr( 0 ) = CInt(s)
    LAD GR7,0
    LD GR1,GR7
    LAD GR2,256
    CALL C16
    LD GR7,GR0
    LAD GR1,SB5
    LD GR2,SL5
    CALL C1
    LD GR6,GR0
    ST GR6,IA7,GR7
    ; For i = 0 To (Len(s) - 1) Step 1
    LD GR7,SL5
    SUBA GR7,=1
    ST GR7,T1
    LAD GR7,0
    ST GR7,I2
    J7 NOP
    LD GR1,I2
    CPA GR1,T1
    JPL J9
    ; If (s(i) = ","c) Then
    LD GR7,I2
    LD GR1,GR7
    LD GR2,SL5
    CALL C16
    LD GR7,GR0
    LD GR7,SB5,GR7
    LD GR6,=','
    SUBA GR7,GR6
    JZE J11
    LAD GR7,#FFFF
    J11 XOR GR7,=#FFFF
    AND GR7,GR7
    JZE J10
    ; c += 1
    LAD GR7,1
    ADDA GR7,I1
    ST GR7,I1
    ; arr( c ) = CInt(Mid(s, (i + 1)))
    LD GR7,I1
    LD GR1,GR7
    LAD GR2,256
    CALL C16
    LD GR7,GR0
    LD GR6,I2
    LAD GR6,1,GR6
    PUSH 0,GR6
    LD GR5,GR6
    LAD GR1,TB1
    LAD GR3,SB5
    LD GR4,SL5
    LD GR2,GR4
    LD GR6,GR4
    CALL C10
    ST GR0,TL1
    POP GR6
    LAD GR1,TB1
    LD GR2,TL1
    CALL C1
    LD GR6,GR0
    ST GR6,IA7,GR7
    ; End If
    J10 NOP
    ; Next i
    J8 NOP
    LD GR1,I2
    LAD GR1,1,GR1
    ST GR1,I2
    JUMP J7
    J9 NOP
    ; For i = 0 To c Step 1
    LD GR7,I1
    ST GR7,T1
    LAD GR7,0
    ST GR7,I2
    J14 NOP
    LD GR1,I2
    CPA GR1,T1
    JPL J16
    ; For j = 0 To ((c - 1) - i) Step 1
    LD GR7,I1
    SUBA GR7,=1
    LD GR6,I2
    SUBA GR7,GR6
    ST GR7,T2
    LAD GR7,0
    ST GR7,I3
    J17 NOP
    LD GR1,I3
    CPA GR1,T2
    JPL J19
    ; p = arr(j + 1)
    LD GR7,I3
    LAD GR7,1,GR7
    LD GR1,GR7
    LAD GR2,256
    CALL C16
    LD GR7,GR0
    LD GR7,IA7,GR7
    ST GR7,I4
    ; If (arr(j) < p) Then
    LD GR7,I3
    LD GR1,GR7
    LAD GR2,256
    CALL C16
    LD GR7,GR0
    LD GR7,IA7,GR7
    LD GR6,I4
    LAD GR0,#FFFF
    CPA GR7,GR6
    JMI J21
    XOR GR0,GR0
    J21 LD GR7,GR0
    AND GR7,GR7
    JZE J20
    ; arr( (j + 1) ) = arr(j)
    LD GR7,I3
    LAD GR7,1,GR7
    LD GR1,GR7
    LAD GR2,256
    CALL C16
    LD GR7,GR0
    LD GR6,I3
    LD GR1,GR6
    LAD GR2,256
    CALL C16
    LD GR6,GR0
    LD GR6,IA7,GR6
    ST GR6,IA7,GR7
    ; arr( j ) = p
    LD GR7,I3
    LD GR1,GR7
    LAD GR2,256
    CALL C16
    LD GR7,GR0
    LD GR6,I4
    ST GR6,IA7,GR7
    ; End If
    J20 NOP
    ; Next j
    J18 NOP
    LD GR1,I3
    LAD GR1,1,GR1
    ST GR1,I3
    JUMP J17
    J19 NOP
    ; t = ((t & CStr(arr(j))) & ",")
    LD GR7,I3
    LD GR1,GR7
    LAD GR2,256
    CALL C16
    LD GR7,GR0
    LD GR7,IA7,GR7
    LD GR3,GR7
    LAD GR1,TB1
    LAD GR2,TL1
    CALL C3
    LAD GR1,TB2
    LAD GR2,TL2
    LAD GR3,SB6
    LD GR4,SL6
    CALL C11
    LAD GR1,TB2
    LAD GR2,TL2
    LAD GR3,TB1
    LD GR4,TL1
    CALL C9
    LAD GR1,TB2
    LAD GR2,TL2
    LAD GR3,=','
    LD GR4,=1
    CALL C9
    LAD GR1,SB6
    LAD GR2,SL6
    LAD GR3,TB2
    LD GR4,TL2
    CALL C11
    ; Next i
    J15 NOP
    LD GR1,I2
    LAD GR1,1,GR1
    ST GR1,I2
    JUMP J14
    J16 NOP
    ; Print t
    OUT SB6,SL6
    RET
    ; Dim c As Integer
    I1 DS 1
    ; Dim i As Integer
    I2 DS 1
    ; Dim j As Integer
    I3 DS 1
    ; Dim p As Integer
    I4 DS 1
    ; Dim s As String
    SL5 DS 1
    SB5 DS 256
    ; Dim t As String
    SL6 DS 1
    SB6 DS 256
    ; Dim arr(255) As Integer
    IA7 DS 256
    EOF DS 1
    T1 DS 1
    T2 DS 1
    TL1 DS 1
    TB1 DS 256
    TL2 DS 1
    TB2 DS 256
    LL1 DC 8
    LB1 DC 'NUMBERS?'
    ; FuncAbs
    C0 LD GR0,GR1
    JMI J42
    RET
    J42 XOR GR0,GR0
    SUBA GR0,GR1
    RET
    ; FuncCInt
    C1 PUSH 0,GR1
    PUSH 0,GR2
    PUSH 0,GR3
    PUSH 0,GR4
    PUSH 0,GR5
    ADDL GR2,GR1
    XOR GR0,GR0
    XOR GR4,GR4
    CPL GR1,GR2
    JZE J4
    LD GR3,0,GR1
    CPL GR3,='+'
    JNZ J6
    LAD GR1,1,GR1
    JUMP J5
    J6 CPL GR3,='-'
    JNZ J5
    LAD GR4,-1
    LAD GR1,1,GR1
    J5 CPL GR1,GR2
    JZE J4
    LD GR3,0,GR1
    SUBL GR3,='0'
    JMI J4
    CPL GR3,=9
    JPL J4
    LD GR5,GR0
    SLL GR0,3
    ADDL GR0,GR5
    ADDL GR0,GR5
    ADDL GR0,GR3
    LAD GR1,1,GR1
    JUMP J5
    J4 XOR GR0,GR4
    SUBL GR0,GR4
    POP GR5
    POP GR4
    POP GR3
    POP GR2
    POP GR1
    RET
    ; FuncCStrArgInt
    C3 CPL GR3,=#8000
    JNZ J22
    PUSH 0,GR3
    PUSH 0,GR4
    LAD GR3,='-32768'
    LAD GR4,6
    CALL C11
    POP GR4
    POP GR3
    RET
    J22 AND GR3,GR3
    JNZ J23
    LAD GR3,1
    ST GR3,0,GR2
    LD GR3,='0'
    ST GR3,0,GR1
    XOR GR3,GR3
    RET
    J23 PUSH 0,GR1
    PUSH 0,GR2
    PUSH 0,GR3
    PUSH 0,GR4
    PUSH 0,GR5
    JPL J24
    LD GR4,='-'
    ST GR4,0,GR1
    LAD GR1,1,GR1
    XOR GR3,=#FFFF
    LAD GR3,1,GR3
    J24 LAD GR4,V1
    LD GR5,GR1
    LD GR2,GR3
    LAD GR3,10
    J25 CALL C13
    ADDL GR1,='0'
    ST GR1,0,GR4
    LAD GR4,1,GR4
    LD GR2,GR0
    JPL J25
    LAD GR2,V1
    LAD GR4,-1,GR4
    J26 LD GR1,0,GR4
    ST GR1,0,GR5
    LAD GR5,1,GR5
    LAD GR4,-1,GR4
    CPL GR4,GR2
    JPL J26
    JZE J26
    LD GR0,GR5
    POP GR5
    POP GR4
    POP GR3
    POP GR2
    POP GR1
    SUBL GR0,GR1
    ST GR0,0,GR2
    RET
    V1 DS 6
    ; FuncMax
    C4 CPA GR1,GR2
    JMI J3
    LD GR0,GR1
    RET
    J3 LD GR0,GR2
    RET
    ; FuncMin
    C5 CPA GR1,GR2
    JMI J2
    LD GR0,GR2
    RET
    J2 LD GR0,GR1
    RET
    ; UtilConcatStr
    C9 PUSH 0,GR1
    PUSH 0,GR2
    PUSH 0,GR3
    PUSH 0,GR4
    LD GR0,0,GR2
    LD GR2,GR1
    ADDL GR1,GR0
    LAD GR2,256,GR2
    ADDL GR4,GR3
    J43 CPL GR1,GR2
    JZE J44
    CPL GR3,GR4
    JZE J44
    LD GR0,0,GR3
    ST GR0,0,GR1
    LAD GR1,1,GR1
    LAD GR3,1,GR3
    JUMP J43
    J44 LD GR0,GR1
    POP GR4
    POP GR3
    POP GR2
    POP GR1
    SUBL GR0,GR1
    ST GR0,0,GR2
    RET
    ; UtilCopyFromOffsetStr
    C10 PUSH 0,GR1
    PUSH 0,GR2
    PUSH 0,GR3
    PUSH 0,GR4
    PUSH 0,GR5
    PUSH 0,GR6
    LD GR0,GR2
    LD GR2,GR4
    LD GR4,GR0
    LD GR0,GR1
    LD GR1,GR5
    LD GR5,GR0
    CALL C16
    LD GR1,GR6
    LD GR6,GR0
    CALL C5
    LD GR1,GR0
    ADDL GR1,GR6
    CALL C5
    SUBL GR0,GR6
    LD GR1,GR0
    LD GR2,GR4
    CALL C5
    ADDL GR3,GR6
    LD GR6,GR5
    ADDL GR6,GR0
    J12 CPL GR5,GR6
    JZE J13
    LD GR1,0,GR3
    ST GR1,0,GR5
    LAD GR3,1,GR3
    LAD GR5,1,GR5
    JUMP J12
    J13 POP GR6
    POP GR5
    POP GR4
    POP GR3
    POP GR2
    POP GR1
    RET
    ; UtilCopyStr
    C11 PUSH 0,GR1
    PUSH 0,GR2
    PUSH 0,GR3
    PUSH 0,GR4
    ST GR4,0,GR2
    AND GR4,GR4
    JZE J28
    J27 LD GR2,0,GR3
    ST GR2,0,GR1
    LAD GR3,1,GR3
    LAD GR1,1,GR1
    SUBA GR4,=1
    JPL J27
    J28 POP GR4
    POP GR3
    POP GR2
    POP GR1
    RET
    ; UtilDivMod
    C13 AND GR3,GR3
    JNZ J29
    XOR GR0,GR0
    LAD GR1,-1
    RET
    J29 PUSH 0,GR2
    PUSH 0,GR3
    PUSH 0,GR4
    PUSH 0,GR5
    LD GR4,GR2
    LD GR1,GR2
    CALL C0
    LD GR5,GR0
    LD GR1,GR3
    CALL C0
    LD GR1,GR0
    LAD GR0,1
    J30 ADDL GR1,GR1
    JOV J31
    ADDL GR0,GR0
    JUMP J30
    J31 SRL GR1,1
    LAD GR1,#8000,GR1
    XOR GR2,GR2
    J32 CPL GR5,GR1
    JMI J33
    SUBL GR5,GR1
    ADDL GR2,GR0
    J33 SRL GR0,1
    JZE J34
    SRL GR1,1
    JUMP J32
    J34 LD GR5,GR4
    XOR GR5,GR3
    SRA GR5,15
    XOR GR2,GR5
    SUBA GR2,GR5
    CALL C15
    LD GR1,GR4
    SUBA GR1,GR0
    LD GR0,GR2
    POP GR5
    POP GR4
    POP GR3
    POP GR2
    RET
    ; UtilFill
    C14 PUSH 0,GR1
    PUSH 0,GR2
    PUSH 0,GR3
    ADDL GR3,GR1
    J45 CPL GR1,GR3
    JZE J46
    ST GR2,0,GR1
    LAD GR1,1,GR1
    JUMP J45
    J46 POP GR3
    POP GR2
    POP GR1
    RET
    ; UtilMul
    C15 PUSH 0,GR2
    PUSH 0,GR3
    PUSH 0,GR4
    PUSH 0,GR5
    XOR GR0,GR0
    XOR GR1,GR1
    LD GR4,GR2
    LD GR5,GR3
    J35 SRL GR2,1
    JOV J36
    JNZ J38
    JUMP J39
    J36 ADDL GR0,GR3
    JOV J37
    JUMP J38
    J37 LAD GR1,1,GR1
    J38 SLL GR3,1
    JUMP J35
    J39 SRL GR5,1
    SLL GR4,1
    JOV J40
    JNZ J39
    JUMP J41
    J40 ADDL GR1,GR5
    JUMP J39
    J41 POP GR5
    POP GR4
    POP GR3
    POP GR2
    RET
    ; UtilSafeIndex
    C16 PUSH 0,GR1
    PUSH 0,GR2
    LAD GR2,-1,GR2
    CALL C5
    XOR GR1,GR1
    LD GR2,GR0
    CALL C4
    POP GR2
    POP GR1
    RET
    END
- 2021年04月05日(Mon) 17:27:25 #
  寒い
- 2021年04月05日(Mon) 17:53:38 #
  買い食いしすぎ
  おなか苦しい
  - 2021年04月05日(Mon) 17:53:53 #
    食べすぎ
< 2021年04月04日(Sun)の独り言 | 2021年04月05日(Mon)の独り言 | 2021年04月06日(Tue)の独り言 >

*1:w2 & ",") & w1)
LAD GR1,TB1
LAD GR2,TL1
LAD GR3,SB9
LD GR4,SL9
CALL C11
LAD GR1,TB1
LAD GR2,TL1
LAD GR3,=','
LD GR4,=1
CALL C9
LAD GR1,TB1
LAD GR2,TL1
LAD GR3,SB8
LD GR4,SL8
CALL C9
LD GR7,I2
LD GR5,GR7
LAD GR1,SB7
LD GR2,SL7
LAD GR3,TB1
LD GR4,TL1
LD GR6,GR2
CALL C12
; p0 += (Len(w2) + 1)
LD GR7,SL9
LAD GR7,1,GR7
ADDA GR7,I2
ST GR7,I2
JUMP J26
; Else
J27 NOP
; p0 = (p1 + 1)
LD GR7,I3
LAD GR7,1,GR7
ST GR7,I2
; End If
J26 NOP
; p1 = p2
LD GR7,I4
ST GR7,I3
; End If
J20 NOP
; Next p2
J18 NOP
LD GR1,I4
LAD GR1,1,GR1
ST GR1,I4
JUMP J17
J19 NOP
; w1 = Mid(s, p0, (p1 - p0

*2:w2 & ",") & w1)
LAD GR1,TB1
LAD GR2,TL1
LAD GR3,SB9
LD GR4,SL9
CALL C11
LAD GR1,TB1
LAD GR2,TL1
LAD GR3,=','
LD GR4,=1
CALL C9
LAD GR1,TB1
LAD GR2,TL1
LAD GR3,SB8
LD GR4,SL8
CALL C9
LD GR7,I2
LD GR5,GR7
LAD GR1,SB7
LD GR2,SL7
LAD GR3,TB1
LD GR4,TL1
LD GR6,GR2
CALL C12
; End If
J37 NOP
; Next i
J10 NOP
LD GR1,I1
LAD GR1,1,GR1
ST GR1,I1
JUMP J9
J11 NOP
; Print s
OUT SB7,SL7
RET
; Dim i As Integer
I1 DS 1
; Dim p0 As Integer
I2 DS 1
; Dim p1 As Integer
I3 DS 1
; Dim p2 As Integer
I4 DS 1
; Dim cnt As Integer
I5 DS 1
; Dim ub As Integer
I6 DS 1
; Dim s As String
SL7 DS 1
SB7 DS 256
; Dim w1 As String
SL8 DS 1
SB8 DS 256
; Dim w2 As String
SL9 DS 1
SB9 DS 256
EOF DS 1
T1 DS 1
T2 DS 1
TL1 DS 1
TB1 DS 256
LL1 DC 6
LB1 DC 'WORDS?'
; FuncMax
C4 CPA GR1,GR2
JMI J7
LD GR0,GR1
RET
J7 LD GR0,GR2
RET
; FuncMin
C5 CPA GR1,GR2
JMI J6
LD GR0,GR2
RET
J6 LD GR0,GR1
RET
; UtilCompareStr
C8 PUSH 0,GR1
PUSH 0,GR2
PUSH 0,GR3
PUSH 0,GR4
PUSH 0,GR5
XOR GR0,GR0
J28 AND GR2,GR2
JPL J29
CPL GR2,GR4
JNZ J30
JUMP J32
J29 AND GR4,GR4
JZE J31
LD GR5,0,GR1
CPL GR5,0,GR3
JMI J30
JPL J31
LAD GR1,1,GR1
LAD GR2,-1,GR2
LAD GR3,1,GR3
LAD GR4,-1,GR4
JUMP J28
J30 LAD GR0,-1
J31 OR GR0,=1
J32 POP GR5
POP GR4
POP GR3
POP GR2
POP GR1
RET
; UtilConcatStr
C9 PUSH 0,GR1
PUSH 0,GR2
PUSH 0,GR3
PUSH 0,GR4
LD GR0,0,GR2
LD GR2,GR1
ADDL GR1,GR0
LAD GR2,256,GR2
ADDL GR4,GR3
J33 CPL GR1,GR2
JZE J34
CPL GR3,GR4
JZE J34
LD GR0,0,GR3
ST GR0,0,GR1
LAD GR1,1,GR1
LAD GR3,1,GR3
JUMP J33
J34 LD GR0,GR1
POP GR4
POP GR3
POP GR2
POP GR1
SUBL GR0,GR1
ST GR0,0,GR2
RET
; UtilCopyFromOffsetStr
C10 PUSH 0,GR1
PUSH 0,GR2
PUSH 0,GR3
PUSH 0,GR4
PUSH 0,GR5
PUSH 0,GR6
LD GR0,GR2
LD GR2,GR4
LD GR4,GR0
LD GR0,GR1
LD GR1,GR5
LD GR5,GR0
CALL C16
LD GR1,GR6
LD GR6,GR0
CALL C5
LD GR1,GR0
ADDL GR1,GR6
CALL C5
SUBL GR0,GR6
LD GR1,GR0
LD GR2,GR4
CALL C5
ADDL GR3,GR6
LD GR6,GR5
ADDL GR6,GR0
J22 CPL GR5,GR6
JZE J23
LD GR1,0,GR3
ST GR1,0,GR5
LAD GR3,1,GR3
LAD GR5,1,GR5
JUMP J22
J23 POP GR6
POP GR5
POP GR4
POP GR3
POP GR2
POP GR1
RET
; UtilCopyStr
C11 PUSH 0,GR1
PUSH 0,GR2
PUSH 0,GR3
PUSH 0,GR4
ST GR4,0,GR2
AND GR4,GR4
JZE J25
J24 LD GR2,0,GR3
ST GR2,0,GR1
LAD GR3,1,GR3
LAD GR1,1,GR1
SUBA GR4,=1
JPL J24
J25 POP GR4
POP GR3
POP GR2
POP GR1
RET
; UtilCopyToOffsetStr
C12 PUSH 0,GR1
PUSH 0,GR2
PUSH 0,GR3
PUSH 0,GR4
PUSH 0,GR5
PUSH 0,GR6
LD GR0,GR1
LD GR1,GR5
LD GR5,GR0
CALL C16
LD GR1,GR6
LD GR6,GR0
CALL C5
LD GR1,GR0
ADDL GR1,GR6
CALL C5
SUBL GR0,GR6
LD GR1,GR0
LD GR2,GR4
CALL C5
ADDL GR5,GR6
LD GR6,GR5
ADDL GR5,GR0
ADDL GR3,GR0
J35 CPL GR5,GR6
JZE J36
LAD GR3,-1,GR3
LAD GR5,-1,GR5
LD GR1,0,GR3
ST GR1,0,GR5
JUMP J35
J36 POP GR6
POP GR5
POP GR4
POP GR3
POP GR2
POP GR1
RET
; UtilFill
C14 PUSH 0,GR1
PUSH 0,GR2
PUSH 0,GR3
ADDL GR3,GR1
J38 CPL GR1,GR3
JZE J39
ST GR2,0,GR1
LAD GR1,1,GR1
JUMP J38
J39 POP GR3
POP GR2
POP GR1
RET
; UtilSafeIndex
C16 PUSH 0,GR1
PUSH 0,GR2
LAD GR2,-1,GR2
CALL C5
XOR GR1,GR1
LD GR2,GR0
CALL C4
POP GR2
POP GR1
RET
END

2021年04月05日(Mon) 07:39:45 (UPD 2021年04月05日(Mon) 07:39:59) #

ソート

' *** INTSORT ***
Dim c As Integer
Dim i As Integer
Dim j As Integer
Dim p As Integer
Dim s As String
Dim t As String
Dim arr(255) As Integer
Print "NUMBERS?"
Input s
arr(0) = CInt(s)
For i = 0 To Len(s) - 1
If s(i) = ","c Then
c += 1
arr(c) = CInt(Mid(s, i + 1

usakdsteen

ゆうさくですてぃーん

2021年04月05日(Mon)の独り言