COMPAC製 PSG GALAXY FLY (814)

    COMPAC製PSGドライバの部分にパッチを当てます。
　　アドレスがずれている可能性がありますので、Originalの値を確認の上
　　パッチしてください。(Original, PatchともPosition Independentです。)

          Original  Patch
    -----------------------
    61E0  3412      3412
    61E2  AE8D      8EFC
    61E4  FD6E      00E7
    61E6  A701      868E
    61E8  8603      FD0D
    61EA  A784      A701
    61EC  6F84      8603
    61EE  E701      A784
    61F0  8602      6F84
    61F2  A784      E701
    61F4  6F84      8602
    61F6  3592      2009
    61F8  3412      3410
    61FA  AE8D      8EFC
    61FC  FD56      00E6
    61FE  A701      8635
    6200  8603      90A7
    6202  A784      846F
    6204  6F84      8435
    6206  8601      9200
    6208  A784      0000
    620A  E601      0000
    620C  6F84      0000
    620E  3592      0000

  アセンブルリスト

    2                              OPT      SYM,MEM,OBJ
    3                   
    4 FD0D              PSGADR     EQU      $FD0D       PSG ADDRESS
    5                   
    6 61E0                         ORG      $61E0
    7                   
    8                   *         WRTPSG
    9                   *           A = Register Address
   10                   *           B = Write Data
   11 61E0              WRTPSG     EQU      *
   12 61E0 3412                    PSHS     A,X
   13 61E2 8EFC00                  LDX      #PSGREG
   14 61E5 E786                    STB      A,X
   15 61E7 8EFD0D                  LDX      #PSGADR
   16 61EA A701                    STA      1,X
   17 61EC 8603                    LDA      #$03        Latch Address
   18 61EE A784                    STA      ,X
   19 61F0 6F84                    CLR      ,X
   20 61F2 E701                    STB      1,X
   21 61F4 8602                    LDA      #$02        Write Data
   22                   *       STA     ,X
   23                   *       CLR     ,X
   24                   *       PULS    A,X,PC
   25 61F6 2009                    BRA      WRTPS2
   26                   
   27                   *         REDPSG
   28                   *           A = Register Address
   29                   *           B = Read Data
   30 61F8              REDPSG     EQU      *
   31 61F8 3410                    PSHS     X
   32 61FA 8EFC00                  LDX      #PSGREG
   33 61FD E686                    LDB      A,X
   34 61FF 3590                    PULS     X,PC
   35                   
   36 6201 A784         WRTPS2     STA      ,X
   37 6203 6F84                    CLR      ,X
   38 6205 3592                    PULS     A,X,PC
   39                   
   40 FC00                         ORG      $FC00
   41                   
   42 FC00 0000         PSGREG     FDB      0
   43 FC02 0000                    FDB      0
   44 FC04 0000                    FDB      0
   45 FC06 0000                    FDB      0
   46 FC08 0000                    FDB      0
   47 FC0A 0000                    FDB      0
   48 FC0C 0000                    FDB      0
   49                   
   50 FC0E                         END