home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1993 October / 64er_Magazin_93-10_1993_Markt__Technik_de_Side_A.d64 / ass-bib.seq < prev    next >
Encoding:
Text File  |  1993-01-01  |  3.5 KB  |  152 lines
  1. ;set cursor on screen position
  2.  
  3. :setcur lda #$00
  4.         sta $d6
  5.         lda #$00
  6.         sta $d3
  7.         jsr 58640
  8.         rts
  9.  
  10.  
  11.  
  12. ;where is the cursor?
  13.  
  14. :curver lda $d6
  15.         cmp #$01  ;oberer  rand erreicht ?
  16.         bcc cur1  ;wenn kleiner dann
  17.         cmp #$15  ;unterer rand erreicht ?
  18.         bcs cur2  ;wenn groesser
  19.         rts
  20.  
  21. :cur1   lda #$14
  22.         sta $d6
  23.         jsr 58640
  24.         rts
  25.  
  26. :cur2   lda #$01
  27.         sta $d6
  28.         jsr 58640
  29.         rts
  30.  
  31.  
  32.  
  33. ;lange warteschleife in assembler
  34.  
  35. :ab1   ldx #$00
  36. :ab2   ldy #$00
  37. :ab3   iny
  38.        cpy #$ff
  39.        bne ab3
  40.        inx
  41.        cpx #$ff
  42.        bne ab2
  43.        rts
  44.  
  45.  
  46.  
  47. ;---------------------------------------
  48. ;nur fuer profis: der tictac-effekt
  49. ;schwingt bildschirmbereich hin und
  50. ;her. dazu muss das logo im bekannten
  51. ;tictac-format im speicher liegen
  52. ;---------------------------------------
  53.  
  54. ste      = $xxxx
  55. swa      = $yyyy
  56. tzae     = $zzzz
  57.  
  58. tictac   lda ste      ;ste=1.tabelement
  59.          sta swa
  60. lc       lsr swa
  61.          lsr swa
  62.          lsr swa
  63.  
  64.          lda ste
  65.          and #$07
  66.          eor #$07
  67.          clc
  68.          adc #%00010000
  69.          sta $d016    ;scroll flag
  70.  
  71.          lda swa
  72.          tax
  73.          ldy #$00
  74. coloo1
  75.          lda $2600,x
  76.          sta $0540,y
  77.          lda $2640,x
  78.          sta $0568,y
  79.          lda $2680,x
  80.          sta $0590,y
  81.          lda $26c0,x
  82.          sta $05b8,y
  83.          lda $2700,x
  84.          sta $05e0,y
  85.          lda $2740,x
  86.          sta $0608,y
  87.          lda $2780,x
  88.          sta $0630,y
  89.          lda $27c0,x
  90.          sta $0658,y
  91.          inx
  92.          iny
  93.          cpy #$27
  94.          bne coloo1
  95.          ldx tzae     ;tab element zae
  96.          lda rltab,x
  97.          sta ste
  98.          lda tzae
  99.          clc
  100.          adc #$02     ;swing-speed
  101.          sta tzae
  102. coend    rts
  103.  
  104. ;---------------------------------------
  105. tictab1  .byte $c7,$c6,$c6,$c6,$c5,$c4
  106.          .byte $c3,$c1,$c0,$be,$bc,$ba
  107.          .byte $b7,$b5,$b2,$af,$ac,$a9
  108.          .byte $a5,$a2,$9e,$9b,$97,$93
  109.          .byte $8f,$8b,$86,$82,$7e,$79
  110.          .byte $75,$71,$6c,$68,$63,$5f
  111.          .byte $5b,$56,$52,$4e,$4a,$46
  112.          .byte $42,$3e,$3a,$37,$33,$30
  113.          .byte $2d,$29,$27,$24,$21,$1f
  114.          .byte $1d,$1b,$19,$18,$16,$15
  115.          .byte $14,$13,$13,$13,$13,$13
  116.          .byte $13,$14,$14,$15,$17,$18
  117.          .byte $1a,$1b,$1d,$20,$22,$25
  118.          .byte $27,$2a,$2d,$31,$34,$38
  119.          .byte $3b,$3f,$43,$47,$4b,$4f
  120.          .byte $53,$58,$5c,$60,$65,$69
  121.          .byte $6d,$72,$76,$7b,$7f,$83
  122.          .byte $88,$8c,$90,$94,$98,$9c
  123.          .byte $9f,$a3,$a6,$aa,$ad,$b0
  124.          .byte $b3,$b5,$b8,$ba,$bc,$be
  125.          .byte $c0,$c2,$c3,$c4,$c5,$c6
  126.          .byte $c6,$c6,$c6,$c6,$c6,$c5
  127.          .byte $c4,$c3,$c2,$c1,$bf
  128.          .byte $bb,$b9,$b7,$b4,$b1,$ae
  129.          .byte $ab,$a8,$a4,$a1,$9d,$99
  130.          .byte $96,$92,$8e,$89,$85,$81
  131.          .byte $7d,$78,$74,$6f,$6b,$66
  132.          .byte $62,$5e,$59,$55,$51,$4d
  133.          .byte $48,$44,$41,$3d,$39,$35
  134.          .byte $32,$2f,$2c,$29,$26,$23
  135.          .byte $21,$1e,$1c,$1a,$19,$17
  136.          .byte $16,$15,$14,$13,$13,$13
  137.          .byte $13,$13,$13,$14,$15,$16
  138.          .byte $17,$18,$1a,$1c,$1e,$20
  139.          .byte $23,$25,$28,$2b,$2e,$32
  140.          .byte $35,$39,$3c,$40,$44,$48
  141.          .byte $4c,$50,$54,$59,$5d,$62
  142.          .byte $66,$6a,$6f,$73,$78,$7c
  143.          .byte $80,$85,$89,$8d,$91,$95
  144.          .byte $99,$9d,$a0,$a4,$a7,$ab
  145.          .byte $ae,$b1,$b4,$b6,$b9,$bb
  146.          .byte $bd,$bf,$c1,$c2,$c3,$c4
  147.          .byte $c5,$c6,$c6,$c6,$00
  148. ;---------------------------------------
  149.  
  150.  
  151.  
  152.