home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1993 March / 64er_Magazin_93-03_1993_Markt__Technik_de_Side_B.d64 / 2pxl-fpp.src < prev    next >
Text File  |  2022-10-26  |  7KB  |  288 lines
  1.  
  2.  
  3.          *= $2100
  4. ;
  5. ; **** externe spruenge ****
  6. ;
  7. eea7e    = $ea7e
  8. ;
  9. ; **** felder ****
  10. ;
  11. f2300    = $2300
  12. f2308    = $2308
  13. f2310    = $2310
  14. f2320    = $2320
  15. f232e    = $232e
  16. f2340    = $2340
  17. f2350    = $2350
  18. f4028    = $4028
  19. f40c0    = $40c0
  20. f4140    = $4140
  21. f4141    = $4141
  22. f4180    = $4180
  23. f4181    = $4181
  24. f4428    = $4428
  25. f4828    = $4828
  26. f4c28    = $4c28
  27. f5028    = $5028
  28. f5428    = $5428
  29. f5828    = $5828
  30. f6140    = $6140
  31. f6141    = $6141
  32. f6180    = $6180
  33. f6181    = $6181
  34. fd000    = $d000
  35. fd001    = $d001
  36. ;
  37. ; **** absolute adressen ****
  38. ;
  39. aa9      = $a9
  40. af8      = $f8
  41. af9      = $f9
  42. a0314    = $0314
  43. a0315    = $0315
  44. ad010    = $d010
  45. ad011    = $d011
  46. ad012    = $d012
  47. ad015    = $d015
  48. ad016    = $d016
  49. ad017    = $d017
  50. ad018    = $d018
  51. ad019    = $d019
  52. ad01a    = $d01a
  53. ad020    = $d020
  54. ad021    = $d021
  55. adc0e    = $dc0e
  56. add00    = $dd00
  57. ;
  58. ; **** pointer ****
  59. ;
  60. pb1      = $b1
  61. pea      = $ea
  62. pf8      = $f8
  63. ;
  64. ; **** programm ****
  65. ;
  66. ;
  67.          sei         ;start
  68.          ldx #$00
  69. i2103    lda #$ff    ;1.pixel %11111111
  70.          sta f4140,x
  71.          sta f4180,x
  72.          sta f6141,x
  73.          sta f6181,x
  74.          lda #$55    ;2.pixel %01010101
  75.          sta f4141,x
  76.          sta f4181,x
  77.          sta f6140,x ;pixel 3-8 nicht
  78.          sta f6180,x ;   noetig
  79.          txa
  80.          clc
  81.          adc #$08
  82.          tax
  83.          bne i2103
  84. ;---------------------------------------
  85.          lda #$f8    ;setzen der
  86.          ldx #$43    ; spritepointer
  87.          sta af8     ;auf $40c0
  88.          stx af9
  89.          ldx #$00
  90. i2130    ldy #$07    ;7 bildschirme
  91.          lda #$03
  92. i2134    sta (pf8),y
  93.          dey
  94.          bpl i2134
  95.          lda af9
  96.          clc
  97.          adc #$04
  98.          sta af9
  99.          inx
  100.          cpx #$07
  101.          bne i2130
  102. ;---------------------------------------
  103.          ldx #$3f    ;sprite-inhalt
  104.          lda #$c3
  105. i2149    sta f40c0,x
  106.          dex
  107.          bpl i2149
  108. ;---------------------------------------
  109.          lda #$ff
  110.          sta ad015
  111.          sta ad017
  112.          lda #$58
  113.          ldx #$00
  114. i215b    sta fd000,x
  115.          clc
  116.          adc #$18
  117.          tay
  118.          lda #$3c
  119.          sta fd001,x
  120.          tya
  121.          inx
  122.          inx
  123.          cpx #$10
  124.          bne i215b
  125.          lda #$80
  126.          sta ad010
  127. ;---------------------------------------
  128.          sta ad020
  129.          sta ad021
  130.          lda #$96  ;bildschirm auf
  131.          sta add00 ;$4000-$8000 schalten
  132. ;---------------------------------------
  133.          ldx #$0f
  134. i2180    lda f2268,x ;setzen der farben
  135.          sta f22a8,x ;5 mal
  136.          sta f22b8,x ;da zum auslesen
  137.          sta f22c8,x ;mind. $58 byte
  138.          sta f22d8,x ;benoetigt
  139.          sta f22e8,x ;werden
  140.          sta f22f8,x
  141.          dex
  142.          bpl i2180
  143.          ldx #$07
  144. i219a    lda f22a0,x
  145.          sta f2300,x
  146.          sta f2308,x
  147.          sta f2310,x
  148.          dex
  149.          bpl i219a
  150. ;---------------------------------------
  151.          ldx #$0d
  152. i21ab    lda f2288,x ;kopieren
  153.          sta f2320,x ;von $d018-werten
  154.          sta f232e,x
  155.          dex
  156.          bpl i21ab
  157. ;---------------------------------------
  158.          ldx #$0f
  159. i21b9    lda f2278,x
  160.          sta f2340,x ;kopieren
  161.          sta f2350,x ;von $d016-werten
  162.          dex
  163.          bpl i21b9
  164. ;---------------------------------------
  165.          lda #$01    ;irq-routine
  166.          sta ad01a   ;initialisieren
  167.          lda #$00
  168.          sta adc0e
  169.          lda #$3a
  170.          sta ad012
  171.          lda #$1b
  172.          sta ad011
  173.          lda #$e7
  174.          ldx #$21
  175.          sta a0314
  176.          stx a0315
  177.          cli
  178. ;---------------------------------------
  179. i21e4    jmp i21e4   ;endlos
  180. ;---------------------------------------
  181.          ldy #$05    ;irq-routine-start
  182. i21e9    dey         ;austimen
  183.          bne i21e9
  184.          lda #$a5
  185. ;---------------------------------------
  186.          ldx #$00
  187. i21f0    lda f2300,x ;aus tabelle
  188.          sta ad011   ;$d011 setzen
  189.          lda aa9
  190.          lda f2320,x ;aus tabelle
  191.          sta ad018   ;$d018 setzen
  192.          lda f2340,x ;aus tabelle
  193.          sta ad016   ;$d016 setzen
  194. ;---------------------------------------
  195.          ldy #$01    ;verzoegerung
  196. i2206    dey         ;bis zur naechsten
  197.          bne i2206   ;rasterzeile
  198.          lda (pb1),y ;eine schon
  199.          inx         ;"uebersprungen"!
  200.          cpx #$15    ;alle 42 raster-
  201.          bne i21f0   ;zeilen vorbei
  202. ;---------------------------------------
  203.          ldy #$03    ;verzoegerung
  204. i2212    dey         ;damit $d011
  205.          bne i2212   ;nicht zu frueh
  206.          lda (pea,x) ;gesetzt wird
  207. ;---------------------------------------
  208.          lda #$7b    ;bildschirm
  209.          sta ad011   ;aus
  210. ;---------------------------------------
  211.          ldx #$00    ;tabelle
  212. a221f    = *+1       ;rotieren
  213.          ldy #$1a
  214. i2220    lda f22a8,y
  215.          sta f4028,x
  216.          lda f22a9,y
  217.          sta f4428,x
  218.          lda f22aa,y
  219.          sta f4828,x
  220.          lda f22ab,y
  221.          sta f4c28,x
  222.          lda f22ac,y
  223.          sta f5028,x
  224.          lda f22ad,y
  225.          sta f5428,x
  226.          lda f22ae,y
  227.          sta f5828,x
  228.          iny
  229.          inx
  230.          cpx #$28
  231.          bne i2220
  232.          inc a221f
  233.          lda a221f
  234.          cmp #$30
  235.          bne i225f
  236.          lda #$00
  237.          sta a221f
  238. i225f    inc ad019
  239.          jmp eea7e   ;irq-ausgang
  240.          brk
  241.          brk
  242.          brk
  243. ;---------------------------------------
  244. f2268    .byte $09,$92,$28,$8a;farb
  245.          .byte $af,$f7,$71,$11;tabelle
  246.          .byte $17,$7f,$fa,$a8
  247.          .byte $82,$29,$90,$00
  248. f2278    .byte $c0,$c1,$c2,$c3;tabelle
  249.          .byte $c4,$c5,$c6,$c7;fuer
  250.          .byte $c7,$c6,$c5,$c4;$d016
  251.          .byte $c3,$c2,$c1,$c0
  252. f2288    .byte $00,$10,$20,$30;tabelle
  253.          .byte $40,$50,$60,$68;fuer
  254.          .byte $58,$48,$38,$28;$d018
  255.          .byte $18,$08,$00,$00
  256.          .byte $3c,$3e,$38,$3a;tabelle
  257.          .byte $3c,$3e,$38,$3a;fuer
  258. f22a0    .byte $3c,$3e,$38,$3a;$d011
  259.          .byte $3c,$3e,$38,$3a
  260. f22a8    .byte $09
  261. f22a9    .byte $92
  262. f22aa    .byte $28
  263. f22ab    .byte $8a
  264. f22ac    .byte $af
  265. f22ad    .byte $f7
  266. f22ae    .byte $71,$11,$17,$7f
  267.          .byte $fa,$a8,$82,$29
  268.          .byte $90,$00
  269. f22b8    .byte $09,$92,$28,$8a
  270.          .byte $af,$f7,$71,$11
  271.          .byte $17,$7f,$fa,$a8
  272.          .byte $82,$29,$90,$00
  273. f22c8    .byte $09,$92,$28,$8a
  274.          .byte $af,$f7,$71,$11
  275.          .byte $17,$7f,$fa,$a8
  276.          .byte $82,$29,$90,$00
  277. f22d8    .byte $09,$92,$28,$8a
  278.          .byte $af,$f7,$71,$11
  279.          .byte $17,$7f,$fa,$a8
  280.          .byte $82,$29,$90,$00
  281. f22e8    .byte $09,$92,$28,$8a
  282.          .byte $af,$f7,$71,$11
  283.          .byte $17,$7f,$fa,$a8
  284.          .byte $82,$29,$90,$00
  285. f22f8    .byte $09,$92,$28,$8a
  286.          .byte $af,$f7,$71,$11
  287.  
  288.