home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / utilpc / cc64 / cc64.d64 / c-charset.asm < prev    next >
Assembly Source File  |  1994-09-25  |  3KB  |  169 lines
  1.  
  2. ; C-SONDERZEICHEN FUER CC64
  3.  
  4. ; PHILIP ZEMBROD , 3.9.94
  5. ; LETZTE AENDERUNG 3.9.94
  6.  
  7.         *= $CB3B
  8.  
  9. BASOUT   = $FFD2
  10. CLRCHN   = $FFCC
  11.  
  12.         JMP INIT
  13.  
  14. CHARLIST
  15.         .BYTE $1C
  16.         .BYTE %00000000
  17.         .BYTE %01100000
  18.         .BYTE %00110000
  19.         .BYTE %00011000
  20.         .BYTE %00001100
  21.         .BYTE %00000110
  22.         .BYTE %00000011
  23.         .BYTE %00000000
  24.  
  25.         .BYTE $1E
  26.         .BYTE %00000000
  27.         .BYTE %00011000
  28.         .BYTE %00111100
  29.         .BYTE %01100110
  30.         .BYTE %00000000
  31.         .BYTE %00000000
  32.         .BYTE %00000000
  33.         .BYTE %00000000
  34.  
  35.         .BYTE $1F
  36.         .BYTE %00000000
  37.         .BYTE %00000000
  38.         .BYTE %00000000
  39.         .BYTE %00000000
  40.         .BYTE %00000000
  41.         .BYTE %00000000
  42.         .BYTE %00000000
  43.         .BYTE %11111111
  44.  
  45.         .BYTE $5B
  46.         .BYTE %00001100
  47.         .BYTE %00011000
  48.         .BYTE %00011000
  49.         .BYTE %00110000
  50.         .BYTE %00011000
  51.         .BYTE %00011000
  52.         .BYTE %00001100
  53.         .BYTE %00000000
  54.  
  55.         .BYTE $5C
  56.         .BYTE %00011000
  57.         .BYTE %00011000
  58.         .BYTE %00011000
  59.         .BYTE %00000000
  60.         .BYTE %00011000
  61.         .BYTE %00011000
  62.         .BYTE %00011000
  63.         .BYTE %00000000
  64.  
  65.         .BYTE $5D
  66.         .BYTE %00110000
  67.         .BYTE %00011000
  68.         .BYTE %00011000
  69.         .BYTE %00001100
  70.         .BYTE %00011000
  71.         .BYTE %00011000
  72.         .BYTE %00110000
  73.         .BYTE %00000000
  74.  
  75.         .BYTE $5E
  76.         .BYTE %00000000
  77.         .BYTE %00110010
  78.         .BYTE %01111110
  79.         .BYTE %01001100
  80.         .BYTE %00000000
  81.         .BYTE %00000000
  82.         .BYTE %00000000
  83.         .BYTE %00000000
  84.  
  85.         .BYTE $20
  86.  
  87. INIT    SEI
  88.         LDA $01
  89.         PHA
  90.         LDA #$33
  91.         STA $01
  92.  
  93.         LDA #$00
  94.         STA $22
  95.         LDA #$D0
  96.         STA $23
  97.         LDX #$10
  98.         LDY #0
  99.  
  100. INIT1   LDA ($22),Y
  101.         STA ($22),Y
  102.         INY
  103.         BNE INIT1
  104.         INC $23
  105.         DEX
  106.         BNE INIT1
  107.  
  108.         LDA #$34
  109.         STA $01
  110.         LDX #0
  111.  
  112. INIT2   LDA #$1B ; $D8 >> 3
  113.         STA $23
  114.         LDA CHARLIST,X
  115.         INX
  116.         CMP #$20
  117.         BEQ INIT5
  118.         ASL
  119.         ROL $23
  120.         ASL
  121.         ROL $23
  122.         ASL
  123.         ROL $23
  124.         STA $22
  125.  
  126.         LDY #0
  127. INIT3   LDA CHARLIST,X
  128.         INX
  129.         PHA
  130.         STA ($22),Y
  131.         INY
  132.         CPY #8
  133.         BNE INIT3
  134.  
  135.         DEY
  136.         LDA $23
  137.         ORA #$04
  138.         STA $23
  139.  
  140. INIT4   PLA
  141.         EOR #$FF
  142.         STA ($22),Y
  143.         DEY
  144.         BPL INIT4
  145.  
  146.         JMP INIT2
  147.  
  148. INIT5   PLA
  149.         STA $01
  150.         CLI
  151.  
  152. REñINIT LDA #$CC
  153.         STA $0288
  154.  
  155.         JSR CLRCHN
  156.         LDA #$93 ; CLR
  157.         JSR BASOUT
  158.  
  159.         LDA #%00110111
  160.         STA $D018
  161.         LDA $DD00
  162.         AND #$FC
  163.         STA $DD00
  164.  
  165.         RTS
  166.  
  167. MAGIC   .WORD REñINIT,$6502,$1103
  168.  
  169.