home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1993 February / 64er_Magazin_93-02_1993_Markt__Technik_de_Side_A.d64 / dypp.src_seq < prev    next >
Text File  |  2022-10-26  |  7KB  |  285 lines
  1.          *= $2000
  2.  
  3. ;{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}
  4. ;  d.y.p.p.-routine by uwe michel '92
  5. ;         'twilight'
  6. ;      turbo-ass format...
  7. ;{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}
  8.  
  9.  
  10. move1    = $00
  11.  
  12.          lda #$01    ;zeichenfarbe
  13.          sta $0286   ;
  14.          jsr $e544
  15.          lda #$00    ; char maske fuer
  16.          ldx #$00    ; d.y.p.p.
  17.          tay
  18. map      tya
  19.          sta $0400,x
  20.          iny
  21.          tya
  22.          sta $0428,x
  23.          iny
  24.          tya
  25.          sta $0450,x
  26.          iny
  27.          tya
  28.          sta $0478,x
  29.          iny
  30.          tya
  31.          sta $04a0,x
  32.          iny
  33.          tya
  34.          sta $04c8,x
  35.          iny
  36.          tya
  37.          sta $04f0,x
  38.          iny
  39.          tya
  40.          sta $0518,x
  41.          iny
  42.          tya
  43.          sta $0540,x
  44.          inx
  45.          iny
  46.          cpx #$01
  47.          bne map
  48.  
  49.          ldx #$00
  50. char     lda #$ff    ;werte fuer char
  51.          sta $5300,x ;in diesem beisp.
  52.          inx         ;ein karro...!
  53.          cpx #$08
  54.          bne char
  55. ;{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}
  56.  
  57.          sei         ;irq sperren!
  58.          lda #$7f    ;timer
  59.          sta $dc0d   ;setzen
  60.          lda #$01    ;nur raster irq
  61.          sta $d01a   ;zulassen
  62.          lda #$30    ;raster irq bei
  63.          sta $d012   ;rasterzeile 30
  64.          lda #<irq1
  65.          sta $0314
  66.          lda #>irq1
  67.          sta $0315
  68.          cli
  69. com      lda $dc01   ;wenn c= gerueckt
  70.          cmp #$df    ;ruecksprung in
  71.          bne com     ;turbo-ass...
  72.          jmp $9000
  73. ;{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}
  74.  
  75. irq1     inc $d019
  76.          lda #$1b
  77.          sta $d011
  78.          lda #$1f    ;charset bei $3800
  79.          sta $d018
  80.          lda #$c8    ;single color
  81.          sta $d016
  82.          lda #$00    ;rahmen u. hinterg.
  83.          sta $d020   ;schwarz
  84.          sta $d021
  85.          ldx #$00
  86. clear    lda #$00    ;charsetloeschen
  87.          sta $3800,x
  88.          inx
  89.          bne clear
  90.          dec move1
  91.          jsr dypp
  92.          lda #$fa
  93.          sta $d012
  94.          lda #<irq1
  95.          sta $0314
  96.          lda #>irq1
  97.          sta $0315
  98.          jmp $ea7e
  99. ;{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}
  100.  
  101. dypp     ldx move1
  102.          ldy sin,x
  103.          lda $5300   ;_ erstes charbyte
  104.          and #$c0    ;_ erstezeile char
  105.          ora $3800,y
  106.          sta $3800,y
  107.          lda $5301   ;zweites...
  108.          and #$c0
  109.          ora $3801,y
  110.          sta $3801,y
  111.          lda $5302   ;3.
  112.          and #$c0
  113.          ora $3802,y
  114.          sta $3802,y
  115.          lda $5303   ;4.
  116.          and #$c0
  117.          ora $3803,y
  118.          sta $3803,y
  119.          lda $5304   ;5.
  120.          and #$c0
  121.          ora $3804,y
  122.          sta $3804,y
  123.          lda $5305   ;6.
  124.          and #$c0
  125.          ora $3805,y
  126.          sta $3805,y
  127.          lda $5306   ;7.
  128.          and #$c0
  129.          ora $3806,y
  130.          sta $3806,y
  131.          lda $5307   ;8.
  132.          and #$c0
  133.          ora $3807,y
  134.          sta $3807,y
  135.          inx
  136.          ldy sin,x
  137.          lda $5300
  138.          and #$30    ;_ zweitezeile char
  139.          ora $3800,y
  140.          sta $3800,y
  141.          lda $5301
  142.          and #$30
  143.          ora $3801,y
  144.          sta $3801,y
  145.          lda $5302
  146.          and #$30
  147.          ora $3802,y
  148.          sta $3802,y
  149.          lda $5303
  150.          and #$30
  151.          ora $3803,y
  152.          sta $3803,y
  153.          lda $5304
  154.          and #$30
  155.          ora $3804,y
  156.          sta $3804,y
  157.          lda $5305
  158.          and #$30
  159.          ora $3805,y
  160.          sta $3805,y
  161.          lda $5306
  162.          and #$30
  163.          ora $3806,y
  164.          sta $3806,y
  165.          lda $5307
  166.          and #$30
  167.          ora $3807,y
  168.          sta $3807,y
  169.          inx
  170.          ldy sin,x
  171.          lda $5300
  172.          and #$0c    ;3.zeile char
  173.          ora $3800,y
  174.          sta $3800,y
  175.          lda $5301
  176.          and #$0c
  177.          ora $3801,y
  178.          sta $3801,y
  179.          lda $5302
  180.          and #$0c
  181.          ora $3802,y
  182.          sta $3802,y
  183.          lda $5303
  184.          and #$0c
  185.          ora $3803,y
  186.          sta $3803,y
  187.          lda $5304
  188.          and #$0c
  189.          ora $3804,y
  190.          sta $3804,y
  191.          lda $5305
  192.          and #$0c
  193.          ora $3805,y
  194.          sta $3805,y
  195.          lda $5306
  196.          and #$0c
  197.          ora $3806,y
  198.          sta $3806,y
  199.          lda $5307
  200.          and #$0c
  201.          ora $3807,y
  202.          sta $3807,y
  203.          inx
  204.          ldy sin,x
  205.          lda $5300
  206.          and #$03    ;4.zeile char
  207.          ora $3800,y
  208.          sta $3800,y
  209.          lda $5301
  210.          and #$03
  211.          ora $3801,y
  212.          sta $3801,y
  213.          lda $5302
  214.          and #$03
  215.          ora $3802,y
  216.          sta $3802,y
  217.          lda $5303
  218.          and #$03
  219.          ora $3803,y
  220.          sta $3803,y
  221.          lda $5304
  222.          and #$03
  223.          ora $3804,y
  224.          sta $3804,y
  225.          lda $5305
  226.          and #$03
  227.          ora $3805,y
  228.          sta $3805,y
  229.          lda $5306
  230.          and #$03
  231.          ora $3806,y
  232.          sta $3806,y
  233.          lda $5307
  234.          and #$03
  235.          ora $3807,y
  236.          sta $3807,y
  237.          rts
  238. ;{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}
  239.  
  240. sin      .byte $2f,$2e,$2c,$2b,$29,$27
  241.          .byte $26,$25,$23,$22,$21,$20
  242.          .byte $20,$1f,$1e,$1e,$1e,$1e
  243.          .byte $1e,$1e,$1e,$1f,$1f,$20
  244.          .byte $21,$22,$23,$24,$26,$27
  245.          .byte $28,$29,$2b,$2c,$2d,$2f
  246.          .byte $30,$31,$32,$33,$34,$34
  247.          .byte $35,$36,$36,$36,$36,$36
  248.          .byte $36,$35,$34,$34,$33,$32
  249.          .byte $30,$2f,$2d,$2c,$2a,$28
  250.          .byte $26,$24,$23,$21,$1e,$1c
  251.          .byte $1b,$19,$17,$15,$13,$11
  252.          .byte $10,$0e,$0d,$0c,$0b,$0a
  253.          .byte $09,$09,$08,$08,$08,$08
  254.          .byte $08,$09,$09,$0a,$0b,$0c
  255.          .byte $0d,$0e,$0f,$10,$11,$13
  256.          .byte $14,$15,$17,$18,$19,$1a
  257.          .byte $1b,$1c,$1d,$1e,$1f,$1f
  258.          .byte $20,$20,$20,$20,$20,$20
  259.          .byte $1f,$1f,$1e,$1d,$1c,$1b
  260.          .byte $1a,$19,$17,$16,$14,$13
  261.          .byte $11,$0f,$0e,$0c,$0b,$09
  262.          .byte $08,$06,$05,$04,$03,$02
  263.          .byte $01,$01,$00,$00,$00,$00
  264.          .byte $00,$00,$01,$01,$02,$03
  265.          .byte $04,$05,$07,$08,$0a,$0b
  266.          .byte $0d,$0f,$11,$13,$15,$17
  267.          .byte $18,$1a,$1c,$1e,$1f,$21
  268.          .byte $22,$24,$25,$26,$27,$28
  269.          .byte $28,$29,$29,$29,$2a,$29
  270.          .byte $29,$29,$28,$28,$27,$26
  271.          .byte $25,$24,$23,$22,$21,$1f
  272.          .byte $1e,$1d,$1c,$1b,$1a,$19
  273.          .byte $18,$17,$16,$15,$15,$15
  274.          .byte $15,$14,$15,$15,$15,$16
  275.          .byte $17,$17,$18,$1a,$1b,$1c
  276.          .byte $1e,$1f,$21,$23,$25,$27
  277.          .byte $28,$2a,$2c,$2e,$30,$32
  278.          .byte $33,$35,$37,$38,$39,$3b
  279.          .byte $3c,$3c,$3d,$3e,$3e,$3e
  280.          .byte $3e,$3e,$3e,$3e,$3d,$3c
  281.          .byte $3c,$3b,$39,$38,$37,$36
  282.          .byte $34,$33,$31,$2f,$ff
  283. ;{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}
  284.  
  285.