mirror of https://github.com/KarolS/millfork.git
222 lines
7.4 KiB
Plaintext
222 lines
7.4 KiB
Plaintext
// BUILD with millfork demo.mfk -t atari_lynx -o lynx
|
|
// the lynx.o file will have the correct header to load into Handy Emulator
|
|
|
|
// highly recommended to use compressed atari bitmap formats for art via
|
|
// https://github.com/Wookie/sprpck
|
|
// sprpck.exe -a080014 -v logo.pcx logo
|
|
|
|
// from CC64 suzy.h
|
|
// this is the suzy sprite format
|
|
// this is the largest type supported
|
|
// see atari lynx hardware documents found here
|
|
// https://atarilynxdeveloper.wordpress.com/documentation/
|
|
|
|
struct SCB_REHVST_PAL {
|
|
byte spctrl0
|
|
byte spctrl1
|
|
byte spcollision
|
|
word next
|
|
word image
|
|
word xpos
|
|
word ypos
|
|
word width
|
|
word height
|
|
word stretch
|
|
word tilt
|
|
byte remap01
|
|
byte remap23
|
|
byte remap45
|
|
byte remap67
|
|
byte remap89
|
|
byte remapAB
|
|
byte remapCD
|
|
byte remapEF
|
|
}
|
|
SCB_REHVST_PAL demosp @$5000
|
|
|
|
void initDemoSprite() {
|
|
|
|
// set Bits per pixel and type of sprite SEE atari_lynx.mfk for options
|
|
demosp.spctrl0 = BPP_4 | TYPE_BACKNONCOLL
|
|
// set the sprite format, here we use the most complex one.
|
|
demosp.spctrl1 = REHVST
|
|
demosp.spcollision = 0
|
|
// set location
|
|
demosp.xpos = 80
|
|
demosp.ypos = 51
|
|
// atari sprites are a chain so to draw more you add them to the prior sprite's next
|
|
demosp.next = 0
|
|
// width is defined as 8:8 fixed point , where $100 = 1.00,$200 = 2.0,$80=0.5 etc
|
|
demosp.width = $100
|
|
demosp.height = $100
|
|
|
|
demosp.tilt = 0
|
|
demosp.stretch = 0
|
|
|
|
// image to use
|
|
demosp.image = background_sprite.addr
|
|
|
|
// you can remap any pen per sprite if you wish
|
|
// more useful for BPP_1-BPP_3
|
|
demosp.remap01 = $01
|
|
demosp.remap23 = $23
|
|
demosp.remap45 = $45
|
|
demosp.remap67 = $67
|
|
demosp.remap89 = $89
|
|
demosp.remapAB = $ab
|
|
demosp.remapCD = $cd
|
|
demosp.remapEF = $ef
|
|
}
|
|
|
|
void main() {
|
|
byte i
|
|
byte t
|
|
pointer dest
|
|
pointer source
|
|
|
|
// see atari_lynx_hardware.mfk
|
|
// we set suzy to $dc00 for display address
|
|
// 60hz display as recommended
|
|
|
|
lynx_init()
|
|
initDemoSprite()
|
|
|
|
// copy the palette
|
|
i = 0
|
|
for t,0,until,16 {
|
|
palette_ram_green[t]=palette[i]
|
|
palette_ram_blue_red[t]=palette[i+1]
|
|
i+=2
|
|
}
|
|
|
|
while true {
|
|
// wait for the "raster" to hit 60
|
|
// while we wait set the blue + red to the current raster pos
|
|
while RASTER!=60 {
|
|
palette_ram_blue_red[0]=RASTER
|
|
}
|
|
read_joy()
|
|
|
|
// tell suzy to process our commands
|
|
VIDBASE = $dc00
|
|
SPRGO = 1
|
|
SCBNEXT=demosp.addr
|
|
SUZYDONEACK = 1
|
|
|
|
// wait until finished
|
|
lynx_wait_suzy()
|
|
SUZYDONEACK = 0
|
|
|
|
// check for button held
|
|
// if so , we scale the sprite
|
|
|
|
if input_btn!=0 {
|
|
demosp.width += input_dx
|
|
demosp.height += input_dy
|
|
}
|
|
else {
|
|
// or just move it
|
|
demosp.ypos -= input_dy
|
|
demosp.xpos += input_dx
|
|
}
|
|
}
|
|
}
|
|
|
|
// image encoded with sprpack
|
|
|
|
array background_sprite=[
|
|
$18, $15, $10, $23, $BC, $7A, $80, $8C, $0B, $49, $08, $8C,
|
|
$8B, $89, $52, $91, $01, $88, $74, $20, $98, $80, $A0, $00,
|
|
$1A, $15, $14, $24, $35, $C4, $A9, $75, $68, $80, $B4, $B0,
|
|
$9E, $CD, $71, $68, $5B, $0E, $15, $46, $44, $20, $88, $80,
|
|
$9C, $00, $15, $15, $1C, $23, $BC, $7A, $88, $81, $69, $A1,
|
|
$11, $90, $D4, $38, $75, $0E, $3D, $43, $5E, $01, $00, $12,
|
|
$15, $24, $03, $C5, $A8, $F4, $96, $9E, $10, $10, $D4, $39,
|
|
$74, $1E, $78, $40, $00, $12, $15, $24, $20, $21, $E2, $D4,
|
|
$38, $B4, $F0, $08, $40, $43, $CC, $A8, $F6, $B8, $00, $11,
|
|
$15, $2C, $21, $A1, $E5, $53, $80, $42, $10, $86, $B6, $A1,
|
|
$C1, $A8, $0A, $C0, $12, $15, $30, $22, $3A, $AA, $58, $40,
|
|
$4B, $10, $10, $84, $35, $B5, $3E, $AD, $14, $80, $13, $15,
|
|
$38, $24, $35, $C7, $A4, $04, $05, $70, $20, $86, $87, $97,
|
|
$41, $E8, $C8, $98, $00, $12, $15, $3C, $24, $13, $C6, $A2,
|
|
$84, $05, $B0, $50, $86, $87, $97, $41, $E8, $69, $40, $11,
|
|
$15, $3C, $02, $10, $D3, $51, $01, $B0, $80, $80, $87, $99,
|
|
$41, $E8, $08, $C0, $0E, $78, $38, $20, $2D, $88, $0A, $C2,
|
|
$5B, $D4, $DE, $86, $88, $00, $07, $78, $3C, $1E, $0F, $07,
|
|
$80, $07, $78, $3C, $1E, $0F, $07, $80, $07, $78, $3C, $1E,
|
|
$0F, $07, $80, $01, $17, $85, $07, $84, $10, $10, $F1, $28,
|
|
$3D, $0D, $28, $16, $90, $10, $D3, $54, $64, $42, $05, $80,
|
|
$8A, $61, $60, $13, $97, $50, $84, $21, $A1, $E2, $54, $BA,
|
|
$84, $C0, $5A, $78, $08, $20, $2F, $88, $43, $40, $11, $86,
|
|
$88, $23, $3C, $4A, $0F, $43, $50, $05, $A7, $84, $01, $F0,
|
|
$18, $78, $00, $11, $08, $40, $43, $C5, $A8, $F4, $A4, $0B,
|
|
$4E, $08, $0B, $E2, $30, $2F, $08, $00, $14, $84, $87, $89,
|
|
$52, $EA, $15, $81, $69, $61, $01, $7C, $46, $04, $21, $01,
|
|
$0F, $40, $5A, $00, $10, $3D, $43, $5A, $05, $A5, $03, $E0,
|
|
$30, $10, $8E, $D1, $3A, $12, $B0, $00, $12, $35, $42, $5C,
|
|
$05, $A4, $03, $E0, $30, $10, $86, $8B, $89, $41, $E8, $C8,
|
|
$A0, $00, $13, $1D, $07, $A1, $AF, $02, $D1, $81, $F0, $18,
|
|
$20, $47, $68, $3C, $5A, $0F, $46, $B4, $C0, $14, $15, $07,
|
|
$A0, $2F, $08, $01, $68, $81, $01, $7C, $46, $04, $E1, $0D,
|
|
$0F, $26, $A1, $24, $00, $0E, $16, $BC, $06, $05, $D1, $84,
|
|
$05, $D1, $01, $60, $38, $42, $00, $07, $78, $3C, $1E, $0F,
|
|
$07, $80, $07, $78, $3C, $1E, $0F, $07, $80, $07, $78, $3C,
|
|
$1E, $0F, $07, $80, $07, $78, $3C, $1E, $0F, $07, $80, $01,
|
|
$16, $35, $47, $B5, $A1, $0D, $0F, $1A, $A1, $22, $00, $F1,
|
|
$6A, $3D, $AF, $00, $84, $25, $35, $0E, $10, $00, $15, $35,
|
|
$47, $B5, $81, $19, $E3, $54, $78, $44, $11, $AE, $3D, $47,
|
|
$B5, $E1, $10, $94, $D4, $38, $40, $16, $0F, $12, $A3, $DA,
|
|
$B0, $8D, $71, $AA, $3D, $A2, $08, $8F, $2E, $A0, $2E, $08,
|
|
$4A, $6A, $1C, $20, $00, $14, $88, $F1, $2A, $3D, $A9, $08,
|
|
$09, $E8, $3C, $50, $88, $F2, $E9, $C1, $09, $4D, $43, $84,
|
|
$00, $18, $10, $47, $78, $35, $1E, $D3, $84, $24, $3C, $6A,
|
|
$80, $A4, $23, $BC, $9A, $8F, $53, $02, $12, $9A, $87, $08,
|
|
$00, $19, $86, $88, $28, $3D, $5D, $A5, $08, $8F, $1A, $83,
|
|
$D0, $D5, $84, $77, $93, $41, $E8, $0A, $82, $12, $9A, $87,
|
|
$08, $00, $19, $97, $50, $84, $26, $35, $DA, $40, $80, $87,
|
|
$8B, $52, $EA, $16, $84, $35, $54, $1E, $86, $A4, $21, $29,
|
|
$A8, $70, $80, $17, $15, $43, $44, $11, $D1, $18, $43, $4D,
|
|
$41, $E8, $6B, $C2, $40, $3C, $AA, $87, $24, $21, $29, $A8,
|
|
$70, $80, $17, $0D, $07, $A1, $25, $09, $0D, $71, $AA, $3C,
|
|
$2F, $01, $04, $77, $97, $50, $13, $84, $25, $35, $0E, $10,
|
|
$00, $0F, $2E, $C0, $44, $09, $D7, $81, $C2, $02, $CD, $30,
|
|
$40, $55, $A2, $00, $07, $78, $3C, $1E, $0F, $07, $80, $07,
|
|
$78, $3C, $1E, $0F, $07, $80, $07, $78, $3C, $1E, $0F, $07,
|
|
$80, $07, $78, $3C, $1E, $0F, $07, $80, $01, $14, $35, $47,
|
|
$B5, $E1, $01, $45, $4E, $44, $34, $75, $2E, $A1, $78, $08,
|
|
$21, $29, $A8, $70, $80, $16, $35, $47, $B5, $E1, $30, $1A,
|
|
$E2, $D0, $7A, $62, $03, $21, $A8, $C8, $BC, $06, $10, $94,
|
|
$D4, $38, $40, $13, $35, $47, $B5, $E0, $10, $90, $EF, $1E,
|
|
$A1, $A1, $00, $EB, $C0, $A0, $9A, $0F, $08, $00, $11, $35,
|
|
$47, $B5, $E0, $40, $8D, $71, $EA, $1A, $F0, $38, $42, $53,
|
|
$50, $E1, $00, $0E, $35, $47, $B5, $E0, $40, $8E, $F1, $EA,
|
|
$1C, $F0, $78, $18, $00, $0F, $35, $47, $B5, $E0, $40, $8E,
|
|
$F1, $EA, $1C, $60, $78, $B0, $44, $00, $11, $35, $47, $B5,
|
|
$E0, $40, $8E, $F1, $EA, $1C, $50, $86, $BE, $97, $50, $E1,
|
|
$00, $12, $35, $47, $B5, $E0, $40, $8E, $F1, $EA, $1C, $50,
|
|
$8E, $F3, $E9, $55, $0E, $10, $00, $11, $35, $47, $B5, $E0,
|
|
$40, $8E, $F2, $28, $A1, $1D, $E7, $D2, $AA, $1C, $20, $00,
|
|
$10, $35, $47, $B5, $E0, $40, $86, $A6, $8A, $11, $DE, $7D,
|
|
$2A, $A1, $C2, $00, $07, $78, $3C, $1E, $0F, $07, $80, $07,
|
|
$78, $3C, $1E, $0F, $07, $80, $07, $78, $3C, $1E, $0F, $07,
|
|
$80, $07, $78, $3C, $1E, $0F, $07, $80, $00
|
|
]
|
|
// colors are 0000GGGG,BBBBRRRR
|
|
array palette = [
|
|
$00,$10,
|
|
$02,$33,
|
|
$04,$65,
|
|
$03,$77,
|
|
$08,$A8,
|
|
$0C,$C7,
|
|
$08,$93,
|
|
$04,$41,
|
|
$03,$39,
|
|
$06,$49,
|
|
$09,$3E,
|
|
$06,$7D,
|
|
$09,$7D,
|
|
$07,$36,
|
|
$0C,$4C,
|
|
$0E,$BF
|
|
] |