home *** CD-ROM | disk | FTP | other *** search
/ ArachnoPhobia 30 / ArachnoPhobia_30_2003-11-01_Raiders_of_the_Lost_Empire_Spiders-Crew_The_ArachnoPhobia_Staff.d64 / showmpicrout.seq < prev    next >
Text File  |  2023-02-26  |  2KB  |  76 lines
  1.  
  2. ;{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}
  3. ;showmpic.src
  4. ;
  5. ;a routine that displays art studio's
  6. ;multi-hires pictures (.mpic).
  7. ;
  8. ;(change the address used below for
  9. ;viewing koala paint pictures)
  10. ;
  11. ;last modified on 14.10.2003
  12. ;coded by stirf/spiders-crew/role
  13. ;{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}
  14. ;art studio pic present at $2000..$4711,
  15. ;load "beast city  mpic" for example
  16.  
  17. kcol     = $4338 ;colordata! koala=$4328
  18. kscr     = $3f40 ;screendata! (chars)
  19.  
  20.          *= $4800 ;based not at default!
  21.                   ;because that is $2000
  22. ;init...
  23.  
  24.          lda #$00  ;00 to $d011 via accu
  25.          sta $d011 ;to turn off screen
  26.          sta $d020 ;border: black ($00)
  27.          sta $d021 ;screen set black too
  28.  
  29. ;routine usage...
  30.  
  31.          jsr getmpic ;get mpic-data 1st!
  32.          jsr showpic ;view multi hires
  33.  
  34. ;additional...
  35.  
  36. wait
  37.          lda $dc01;read keyboard direct
  38.          cmp #$7f ;run/stop check
  39.          bne wait ;if not try again
  40.  
  41.          jmp $9000;back to assembler
  42. ;{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}
  43. showpic   ;vic settings!
  44.          lda #$18 ;use $18 and $3b
  45.          sta $d016;to set c64-vic up to
  46.          sta $d018;view multi-coloured
  47.          lda #$3b ;high resolution
  48.          sta $d011;pictures
  49.          rts ;end of vic settings
  50. ;{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}
  51. getmpic   ;get screen+colour data!
  52.          ldx #$00    ;start with x=0
  53.  
  54. gdat     lda kcol,x ;first get colordata
  55.          sta $d800,x;place at colormem
  56.          lda kscr,x ;then get screendata
  57.          sta $0400,x;place on screen
  58.          inx         ;x=x+1
  59.          cpx #<$07e8 ;check x=$e8 (lo)
  60.          beq lastpos ;if $e8 check hi
  61.          cpx #$00  ;check x=0
  62.          bne gdat  ;not 0 is continue
  63.  
  64.          inc gdat+2 ;incr #>kcol,x
  65.          inc gdat+5 ;incr #>$d800,x
  66.          inc gdat+8 ;incr #>kscr,x
  67.          inc gdat+11;incr #>0400,x
  68.          jmp gdat  ;always continue
  69. lastpos
  70.          lda gdat+11 ;check is #>$0400
  71.          cmp #>$07e8 ;has become #>$07xx
  72.          bne gdat    ;if not continue
  73.          rts ;last line is reached
  74. ;{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}
  75.  
  76.