Almost lost technologies

ここは昔の CPU を用いた工作記事を書くために用意しました。

LチカまではOK

A0-A7 の8bit ジャンパを逆向きに挿していたのを直して動くようになりました。CPUは動いている。次はシリアルを確認したら基板を着手しましょう。

       1/       0 :                     ;;; L-chika for MELPS740
       2/       0 :                     ;;; 2022-11/08 efialtes_htn
       3/       0 :                     ;;;
       4/       0 :                         CPU    MELPS740
       5/       0 :                     ;    
       6/       0 : =MELPS740           TARGET:    EQU    "MELPS740"
       7/       0 :                     ;
       8/       0 :                     ;; VECTORS
       9/    FFFA :                         ORG    $FFFA
      10/    FFFA : 00 00                   FDB    $0000    ; NMI
      11/    FFFC : 00 F0                   FDB    $F000    ; RESET
      12/    FFFE : 00 F0                   FDB    $F000    ; IRQ/BRK
      13/   10000 :                     ;
      14/    F000 :                         ORG    $F000
      15/    F000 : A9 12               CSTART:    LDA    #$12    ; Stack-page1, Microprocessor mode
      16/    F002 : 85 FF                   STA    $0FF
      17/    F004 : A6 FF                   LDX    $0FF
      18/    F006 : 9A                      TXS
      19/    F007 : D8                      CLD
      20/    F008 : 12                      CLT
      21/    F009 :                     ;
      22/    F009 : A9 00               CSTA1:    LDA    #$00
      23/    F00B : 85 10                   STA    $010    ; 0x10 - internal port value
      24/    F00D :                     ;
      25/    F00D : A5 10               CSTA2:    LDA    $010
      26/    F00F : 85 EE                   STA    $0EE    ; Port P6 - output port
      27/    F011 :                     ;
      28/    F011 : A9 20               CSTA2B:    LDA    #$20    ; 256x32x11cy
      29/    F013 : 85 12                   STA    $012
      30/    F015 :                     ;
      31/    F015 : A9 00               CSTA3:    LDA    #$0
      32/    F017 : 85 11                   STA    $011    ; 0x11 - wait counter
      33/    F019 : EA                  CSTA4:    NOP        ; 2cy
      34/    F01A : EA                      NOP        ; 2cy
      35/    F01B : E6 11                   INC    $011    ; 5cy
      36/    F01D : D0 FA                   BNE    CSTA4    ; 2cy
      37/    F01F :                     ;
      38/    F01F : C6 12                   DEC    $012
      39/    F021 : D0 F2                   BNE    CSTA3
      40/    F023 :                     ;
      41/    F023 : E6 10                   INC    $010
      42/    F025 : 80 E6                   BRA    CSTA2