home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1993 September / 64er_Magazin_93-09_1993_Markt__Technik_de_Side_B.d64 / flyp 8lines .bib < prev    next >
Encoding:
Text File  |  1993-01-01  |  1.9 KB  |  77 lines
  1. flyp     ldy #$00
  2. zl0      ldx ztab,y
  3. zl1      lda $d012
  4.          adc #$07
  5.          and #$07
  6.          ora #$18
  7.          sta $d011
  8.          jsr wait
  9.          dex
  10.          bpl zl1
  11.  
  12.          ldx #$05
  13. zl2      jsr wait
  14.          dex
  15.          bpl zl2
  16.  
  17.          iny
  18.          iny
  19.          nop
  20.          nop
  21.          cpy #$10
  22.          bne zl0
  23.  
  24.          inc zl0+1
  25.          lda zl0+1
  26.          bpl zl3
  27.          lda #$00
  28.          sta zl0+1
  29.  
  30. zl3      ldx #$04
  31. zl4      dex
  32.          bne zl4
  33.          rts
  34.  
  35. wait     lda $d012
  36. st3      cmp $d052
  37.          bcs st3
  38.          rts
  39.  
  40. ;$1700----------------------------------
  41.          *= $4200
  42. ztab     .byte $04,$04,$05,$05,$06,$06
  43.          .byte $06,$06,$06,$06,$05,$05
  44.          .byte $04,$03,$03,$02,$01,$01
  45.          .byte $01,$01,$01,$01,$01,$02
  46.          .byte $02,$03,$04,$05,$05,$06
  47.          .byte $06,$06,$06,$06,$06,$06
  48.          .byte $05,$05,$04,$03,$02,$02
  49.          .byte $01,$01,$01,$01,$01,$01
  50.          .byte $01,$02,$03,$03,$04,$05
  51.          .byte $05,$06,$06,$06,$06,$06
  52.          .byte $06,$06,$05,$04,$03,$03
  53.          .byte $02,$01,$01,$01,$01,$01
  54.          .byte $01,$01,$02,$02,$03,$03
  55.          .byte $04,$04,$04,$05,$05,$05
  56.          .byte $06,$06,$06,$05,$05,$04
  57.          .byte $03,$02,$02,$01,$01,$01
  58.          .byte $01,$01,$01,$01,$02,$02
  59.          .byte $03,$04,$05,$05,$06,$06
  60.          .byte $06,$06,$06,$06,$06,$05
  61.          .byte $04,$04,$03,$02,$02,$01
  62.          .byte $01,$01,$01,$01,$01,$01
  63.          .byte $02,$03,$03,$04,$05,$06
  64.          .byte $06,$06,$06,$06
  65.          .byte $06,$05,$04,$03,$02,$02
  66.          .byte $01,$01,$01,$01,$01,$02
  67.          .byte $02,$03,$04,$05,$06,$06
  68.          .byte $06,$06,$06,$06,$05,$04
  69.          .byte $04,$03,$02,$01,$01,$01
  70.          .byte $01,$01,$01,$02,$03,$04
  71.          .byte $05,$05,$06,$06,$06,$06
  72.          .byte $06,$05,$04,$03,$02,$02
  73.          .byte $01,$01,$01,$01,$01,$02
  74.          .byte $02,$03
  75. ;$17bf----------------------------------
  76.  
  77.