mirror of
https://frontier.innolan.net/github/AmigaExamples.git
synced 2026-09-13 08:33:44 +00:00
Refactored slideshow example
This commit is contained in:
alpine9000
+13
-205
@@ -1,7 +1,6 @@
|
||||
include "includes.i"
|
||||
|
||||
xdef LoadNextImage
|
||||
xdef LoadModule
|
||||
xdef SetupImage
|
||||
|
||||
LoadNextImage:
|
||||
@@ -26,29 +25,28 @@ LoadImage:
|
||||
;; d0 - size
|
||||
;; a1 - start address
|
||||
;; a2 - InstallColorPalette(X) address
|
||||
|
||||
move.l bitplanesp3,a0 ; load compressed data into bitplanes3
|
||||
bsr DoLoadImage ; load data from disk
|
||||
|
||||
lea bitplanes3,a0
|
||||
bsr LoadDiskData ; load data from disk
|
||||
|
||||
move.l nextbitplane,a1 ; decompress into offscreen bitplanesp(1/2)
|
||||
move.l (a1),a1
|
||||
;a0 = Input buffer to be decompressed. Must be 16-bit aligned!
|
||||
;a1 = Output buffer. Points to the end of the data at exit
|
||||
|
||||
;; a0 = Input buffer to be decompressed. Must be 16-bit aligned!
|
||||
;; a1 = Output buffer. Points to the end of the data at exit
|
||||
jsr Depack
|
||||
|
||||
jsr WaitVerticalBlank ; avoid tearing when we show the new image
|
||||
jsr (a2) ; install new color palette
|
||||
bsr SetupImage ; display new image
|
||||
|
||||
|
||||
;; toggle offscreen bitplane
|
||||
cmp.l #bitplanesp1,nextbitplane
|
||||
beq .setbitplanesp2
|
||||
.setbitplanesp1:
|
||||
move.l #bitplanesp1,nextbitplane
|
||||
cmp.l #bitplanes1,nextbitplane
|
||||
beq .setbitplanes2
|
||||
.setbitplanes1:
|
||||
move.l #bitplanes1,nextbitplane
|
||||
bra .done
|
||||
.setbitplanesp2:
|
||||
move.l #bitplanesp2,nextbitplane
|
||||
.setbitplanes2:
|
||||
move.l #bitplanes2,nextbitplane
|
||||
.done:
|
||||
rts
|
||||
|
||||
@@ -69,199 +67,9 @@ SetupImage:
|
||||
movem.l (sp)+,d0-a6
|
||||
rts
|
||||
|
||||
DoLoadImage:
|
||||
;; a0 - destination address
|
||||
;; a1 - start address
|
||||
;; d0 - size
|
||||
movem.l d0-a6,-(sp)
|
||||
lea $dff002,a6 ; LoadMFMB uses this custom base addr
|
||||
|
||||
move.l d0,d1
|
||||
|
||||
move.l a1,d0
|
||||
move.l #startCode,d2
|
||||
sub.l d2,d0 ; offset from start of this module
|
||||
lsr.l #6,d0 ; bytes -> sectors
|
||||
lsr.l #3,d0
|
||||
add.l #2,d0 ; offset for bootblock
|
||||
|
||||
|
||||
add.l #512,d1
|
||||
lsr.l #6,d1 ; bytes -> sectors
|
||||
lsr.l #3,d1
|
||||
neg.w d1
|
||||
jsr LoadMFMB ; load the data!
|
||||
|
||||
movem.l (sp)+,d0-a6
|
||||
rts
|
||||
|
||||
imageLookupTable: ; configure slideshow here
|
||||
dc.l InstallColorPalette ; palette installation routine
|
||||
dc.l imageData1 ; compressed image data
|
||||
dc.l endImageData1-imageData1 ; compressed image data size
|
||||
|
||||
dc.l InstallColorPalette2
|
||||
dc.l imageData2
|
||||
dc.l endImageData2-imageData2
|
||||
|
||||
dc.l InstallColorPalette3
|
||||
dc.l imageData3
|
||||
dc.l endImageData3-imageData3
|
||||
|
||||
dc.l InstallColorPalette4
|
||||
dc.l imageData4
|
||||
dc.l endImageData4-imageData4
|
||||
|
||||
dc.l InstallColorPalette5
|
||||
dc.l imageData5
|
||||
dc.l endImageData5-imageData5
|
||||
|
||||
dc.l InstallColorPalette6
|
||||
dc.l imageData6
|
||||
dc.l endImageData6-imageData6
|
||||
|
||||
|
||||
dc.l InstallColorPalette7
|
||||
dc.l imageData7
|
||||
dc.l endImageData7-imageData7
|
||||
|
||||
if INTERLACE==0
|
||||
dc.l InstallColorPalette8
|
||||
dc.l imageData8
|
||||
dc.l endImageData8-imageData8
|
||||
endif; INTERLACE==0
|
||||
dc.l 0 ; terminate list
|
||||
|
||||
imageIndex:
|
||||
dc.l 0
|
||||
nextbitplane:
|
||||
dc.l bitplanesp1
|
||||
|
||||
LoadModule:
|
||||
;; a0 - destination address
|
||||
;; a1 - start address
|
||||
;; d0 - size
|
||||
movem.l d0-a6,-(sp)
|
||||
lea endCode,a0
|
||||
lea compressedModule,a1
|
||||
move.l #endCompressedModule,d0
|
||||
sub.l #compressedModule,d0
|
||||
jsr DoLoadImage
|
||||
|
||||
;a0 = input buffer to be decompressed. Must be 16-bit aligned!
|
||||
;a1 = output buffer. Points to the end of the data at exit
|
||||
lea endCode,a0
|
||||
lea Module1,a1
|
||||
move.l (a1),a1
|
||||
jsr Depack
|
||||
dc.l bitplanes1
|
||||
|
||||
movem.l (sp)+,d0-a6
|
||||
rts
|
||||
|
||||
InstallColorPalette:
|
||||
include "out/mr-palette.s"
|
||||
rts
|
||||
InstallColorPalette2:
|
||||
include "out/mr2-palette.s"
|
||||
rts
|
||||
InstallColorPalette3:
|
||||
include "out/mr3-palette.s"
|
||||
rts
|
||||
InstallColorPalette4:
|
||||
include "out/mr4-palette.s"
|
||||
rts
|
||||
InstallColorPalette5:
|
||||
include "out/mr9-palette.s"
|
||||
rts
|
||||
InstallColorPalette6:
|
||||
include "out/mr6-palette.s"
|
||||
rts
|
||||
InstallColorPalette7:
|
||||
include "out/mr10-palette.s"
|
||||
rts
|
||||
if INTERLACE==0
|
||||
InstallColorPalette8:
|
||||
include "out/mr8-palette.s"
|
||||
rts
|
||||
endif; INTERLACE==0
|
||||
|
||||
section .photo ; data in this section will not be loaded by the bootloader
|
||||
cnop 0,512 ; each image must be aligned to a sector boundary
|
||||
imageData1: ; because I am too lazy to read non aligned data
|
||||
if HAM_MODE==1
|
||||
incbin "out/mr-ham.lz"
|
||||
else
|
||||
incbin "out/mr.lz"
|
||||
endif
|
||||
endImageData1:
|
||||
|
||||
cnop 0,512 ; each image must be aligned to a sector boundary
|
||||
imageData2: ; because I am too lazy to read non aligned data
|
||||
if HAM_MODE==1
|
||||
incbin "out/mr2-ham.lz"
|
||||
else
|
||||
incbin "out/mr2.lz"
|
||||
endif
|
||||
endImageData2:
|
||||
|
||||
cnop 0,512 ; each image must be aligned to a sector boundary
|
||||
imageData3:
|
||||
if HAM_MODE==1
|
||||
incbin "out/mr3-ham.lz"
|
||||
else
|
||||
incbin "out/mr3.lz"
|
||||
endif
|
||||
endImageData3:
|
||||
|
||||
cnop 0,512 ; each image must be aligned to a sector boundary
|
||||
imageData4:
|
||||
if HAM_MODE==1
|
||||
incbin "out/mr4-ham.lz"
|
||||
else
|
||||
incbin "out/mr4.lz"
|
||||
endif
|
||||
endImageData4:
|
||||
|
||||
cnop 0,512 ; each image must be aligned to a sector boundary
|
||||
imageData5:
|
||||
if HAM_MODE==1
|
||||
incbin "out/mr9-ham.lz"
|
||||
else
|
||||
incbin "out/mr9.lz"
|
||||
endif
|
||||
endImageData5:
|
||||
|
||||
cnop 0,512 ; each image must be aligned to a sector boundary
|
||||
imageData6:
|
||||
if HAM_MODE==1
|
||||
incbin "out/mr6-ham.lz"
|
||||
else
|
||||
incbin "out/mr6.lz"
|
||||
endif
|
||||
endImageData6:
|
||||
|
||||
cnop 0,512 ; each image must be aligned to a sector boundary
|
||||
imageData7:
|
||||
if HAM_MODE==1
|
||||
incbin "out/mr10-ham.lz"
|
||||
else
|
||||
incbin "out/mr10.lz"
|
||||
endif
|
||||
endImageData7:
|
||||
|
||||
if INTERLACE==0
|
||||
cnop 0,512 ; each image must be aligned to a sector boundary
|
||||
imageData8:
|
||||
if HAM_MODE==1
|
||||
incbin "out/mr8-ham.lz"
|
||||
else
|
||||
incbin "out/mr8.lz"
|
||||
endif
|
||||
endImageData8:
|
||||
endif; INTERLACE==0
|
||||
|
||||
cnop 0,512
|
||||
compressedModule:
|
||||
incbin "out/P61.breath_of_life.lz"
|
||||
endCompressedModule:
|
||||
|
||||
|
||||
Reference in New Issue
Block a user