home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 13 / Tiger_Disk_013_19xx_Tiger-Crew-Disk_de_Side_A.d64 / scrolling.seq < prev    next >
Text File  |  2023-02-26  |  2KB  |  93 lines
  1.  
  2.          *= $1000
  3.  
  4.          sei
  5.          lda #$7f
  6.          sta $dc0d
  7.          lda #$1b
  8.          sta $d011
  9.          lda #$01
  10.          sta $d01a
  11.          lda #$c7
  12.          sta $d016
  13.          sta zp1
  14.          lda #<scroll
  15.          sta $0314
  16.          lda #>scroll
  17.          sta $0315
  18.          cli
  19.          rts
  20. scroll   lda #$01
  21.          sta $d019
  22.          lda zp2
  23.          bne sc1
  24.          lda #$01
  25.          sta zp2
  26.          lda zp1
  27.          sta $d016
  28.          lda #$00
  29.          sta $d012
  30.          jmp $ea31
  31. sc1      lda #$00
  32.          sta zp2
  33.          lda #$c8
  34.          sta $d016
  35.          dec zp1
  36.          dec zp1
  37.          lda zp1
  38.          cmp #$bf
  39.          beq sc2
  40.          lda #$f2
  41.          sta $d012
  42.          jmp $ea31
  43. sc2      ldy #0
  44. sc3      lda 1985,y
  45.          sta 1984,y
  46.          iny
  47.          cpy #40
  48.          bne sc3
  49.  
  50. nextchar lda text
  51.          cmp #160
  52.          beq anfang
  53.          sta $07e7
  54.          jmp sc4
  55.  
  56. anfang   lda #<text
  57.          sta nextchar+1
  58.          lda #>text
  59.          sta nextchar+2
  60.          jmp sc5
  61. sc4      inc nextchar+1
  62.          lda nextchar+1
  63.          bne sc5
  64.          inc nextchar+2
  65. sc5      lda #$f2
  66.          sta $d012
  67.          lda #$c7
  68.          sta zp1
  69.          jmp $ea31
  70.  
  71. pf1      .byte 0
  72. pf2      .byte 0
  73. zp1      .byte 0
  74. zp2      .byte 0
  75.  
  76.  
  77. text
  78.          .text "     "
  79.          .text " - "
  80.          .text "  1994  "
  81.          .text " 
  82.  
  83. /-/"
  84.          .text "
  85.   ...  ... "
  86.          .text "                   "
  87.  
  88.          .byte 160,160,160
  89.  
  90. ;---------------------------------------
  91. ;routine written in '94 by madrom/crm/tc
  92.  
  93.