DEVICE ZXSPECTRUM128
include "../../_sdk/sys_h.asm"
EGA=1
bmpbuf=0xbf00
egagfx=0x6000 ;converted gfx (256 tiles *32 bytes vertically) = 0x2000
muz=0xc000
muzplay=muz+3
INTSTACK=0x3f00
org PROGSTART
begin
ld sp,0x4000
OS_HIDEFROMPARENT
if EGA
ld e,0 ;EGA
else
ld e,3 ;6912
endif
OS_SETGFX ;e=0:EGA, e=2:MC, e=3:6912, e=6:text ;+SET FOCUS ;e=-1: disable gfx (out: e=old gfxmode)
if EGA
ld e,0
OS_CLS
;jr $
;ld de,dirname
;OS_CHDIR
ld de,gfxname
call openstream_file
;or a
;jp nz,noloadgfx
ld de,bmpbuf
ld hl,14+2
;DE = Buffer address, HL = Number of bytes to read
call readstream_file
ld de,bmpbuf
ld hl,(bmpbuf+14)
dec hl
dec hl
;DE = Buffer address, HL = Number of bytes to read
call readstream_file
ld de,bmpbuf
ld hl,16384+(4*16);16504 ;8bit bmp 128x128
;DE = Buffer address, HL = Number of bytes to read
call readstream_file
call closestream_file
call recodepal
ld de,pal
OS_SETPAL
ld hl,bmpbuf+(128*127)+(4*16);+0x76 ;bottom
ld e,0
recodegfx0
push hl
ld lx,16
recodegfx0bmpline
ld d,egagfx/256
call recodegfxsubchr
inc hl
inc hl
call recodegfxsubchr
inc hl
inc hl
call recodegfxsubchr
inc hl
inc hl
call recodegfxsubchr
inc hl
inc hl
inc e
dec lx
jr nz,recodegfx0bmpline
pop hl
ld bc,-(128*8)
add hl,bc
inc e
dec e
jr nz,recodegfx0
endif
OS_GETMAINPAGES
;dehl=номера страниц в 0000,4000,8000,c000
ld a,l
LD (pgmuznum),A
ld hl,wasmuz
ld de,muz
ld bc,muzsz
ldir
;OS_GETSCREENPAGES
;if EGA
;ld a,e
;SETPG32KLOW
;ld a,d
;ld (pgc000),a
;SETPG32KHIGH
;else ;6912
;ld a,d
;SETPG16K
;endif
;call setpgs_scr
ld a,(pgmuznum)
SETPG32KHIGH
;ld a,(pgmuznum)
ld hl,muzplay
OS_SETMUSIC
call swapimer
include "eric1.asm"
;oldtimer
; dw 0
quiter
halt
ld a,(pgmuznum)
SETPG32KHIGH
;ld a,(pgmuznum)
ld hl,muz
OS_SETMUSIC
;call muz ;shutay
halt
call swapimer
QUIT ;rasmer
swapimer
di
ld hl,(0x0038+3) ;адрес intjp
ld (intjpaddr),hl
ld de,0x0038
ld hl,oldimer
ld bc,3
swapimer0
ld a,(de)
ldi ;[oldimer] -> [0x0038]
dec hl
ld (hl),a ;[0x0038] -> [oldimer]
inc hl
jp pe,swapimer0
ei
ret
oldimer
jp on_int ;заменится на код из 0x0038
on_int
;restore stack with de
ld (on_int_hl),hl
ld (on_int_sp),sp
pop hl
ld (on_int_sp2),sp
intjpaddr=$+1
ld (0),hl ;ok ;(on_int_jp),hl
ld sp,INTSTACK
push af
push bc
push de
;imer_curscreen_value=$+1
;ld a,0
;ld bc,0x7ffd
;out (c),a
ex de,hl;ld hl,0
on_int_sp=$+1
ld (0),hl ;ok ;восстановили запоротый стек
push ix
push iy
ex af,af'
exx
push af
push bc
push de
push hl
;ld a,(curscreen)
;ld e,a
;OS_SETSCREEN ;вызываем здесь, а не в рандомном месте, иначе даже с одной задачей можем получить непредсказуемую задержку, которую не фиксирует наш таймер? с несколькими задачами надо учитывать и системный - TODO
;curpalette=$+1
;ld de,wolfpal
;OS_SETPAL
GET_KEY
ld (curkey),a
ld a,(CURPG32KHIGH) ;ok
push af
pgmuznum=$+1
ld a,0
SETPG32KHIGH
;call muzplay
;pgc000=$+1
pop af
SETPG32KHIGH
pop hl
pop de
pop bc
pop af
exx
ex af,af'
pop iy
pop ix
;ld hl,(timer)
;inc hl
;ld (timer),hl
pop de
pop bc
pop af
on_int_hl=$+1
ld hl,0
on_int_sp2=$+1
ld sp,0
; ei
;on_int_jp=$+1
; jp 0
push de
ex de,hl
;(intjp)=адрес выхода
;de="hl", в стеке "de"
jp 0x0038+5
;вход в стандартный обработчик:
;ex de,hl ;de="hl", hl="de"
;ex (sp),hl ;hl=адрес выхода, de="hl", в стеке "de"
;ld (intjp),hl ;TODO писать не прямо в intjp, а в промежуточную локацию (иначе хвост обработчика нельзя с ei - он сам не может сменить режим обработки прерывания после jp)
;(intjp)=адрес выхода
;de="hl", в стеке "de"
;ld l,a
;user_fdvalue6=$+1
;ld a,fd_system
;out (0xfd),a ;10 b
if EGA
macro RECODEBYTE
ld a,(hl)
ld ($+4),a
ld a,(trecodebyteleft)
ld b,a
inc hl
ld a,(hl)
dec hl
ld ($+4),a
ld a,(trecodebyteright)
or b
endm
recodegfxsubchr
;из hl в de
;de растёт по +256 (сохраняем положение в конце)
;hl растёт по -128 (возвращаем в конце как было)
push bc
push hl
ld c,128
dup 7
RECODEBYTE
ld b,0xff
ld (de),a
inc d
add hl,bc
edup
RECODEBYTE
ld (de),a
inc d
pop hl
pop bc
ret
recodepal
ld hl,bmpbuf;+54
ld ix,pal
ld b,16
recodepal0
ld e,(hl)
inc hl
ld d,(hl)
inc hl
push hl
ld l,(hl) ;e=B, d=G, l=R
call readfile_rgbtopal
pop hl
inc hl
inc hl
djnz recodepal0
ret
readfile_rgbtopal
;e=B, d=G, l=R
call calcRGBtopal_pp
ld (ix+1),a
call calcRGBtopal_pp
ld (ix),a
inc ix
inc ix
ret
calcRGBtopal_pp
;e=B, d=G, l=R
;DDp palette: %grbG11RB(low),%grbG11RB(high), инверсные
xor a
rl e ;B
rra
rl l ;R
rra
rrca
rrca
rl d ;G
rra
rl e ;b
rra
rl l ;r
rra
rl d ;g
rra
cpl
ret
;INTSTACK ;затирает процедуры выше (по доке надо 0x3b00+)
pal
ds 32
include "../../_sdk/file.asm"
;dirname
; db "eric",0
gfxname
db "eric/ericgfx.bmp",0
align 256
trecodebyteleft
dup 256
;%00003210 => %.3...210
_3=$&8
_210=$&7
db (_3*0x08) + (_210*0x01)
edup
trecodebyteright
dup 256
;%00003210 => %3.210...
_3=$&8
_210=$&7
db (_3*0x10) + (_210*0x08)
edup
endif
wasmuz
incbin "ericmuz.bin"
muzsz=$-wasmuz
end
display "End=",end
;display "Free after end=",/d,#c000-end
display "Size ",/d,end-begin," bytes"
savebin "eric.com",begin,end-begin