Subversion Repositories NedoOS

        DEVICE ZXSPECTRUM128
        include "../../_sdk/sys_h.asm"

atm=1

OLDMUZ=0

TEXBMP=1
NTEXPGS=5
NSPRPGS=2;1

SPOIL6BSTACK=0x4000
STACK=SPOIL6BSTACK-6
INTSTACK=0x3e80
;scrbase=0x8000

addhlbc=1 ;ьюцэю scrhgt=200 ш т юфэющ ёЄЁрэшЎх
customscales=0;1

IMPOSSIBLECOLOR=0x01 ;(╫+┴)

muz=0x8000

        org PROGSTART
begin
        ld sp,STACK
        OS_HIDEFROMPARENT

        ld e,0;+0x80
        OS_SETGFX ;e=0:EGA, e=2:MC, e=3:6912, e=6:text ;+0x80=keep screen ;+SET FOCUS ;e=-1: disable gfx (out: e=old gfxmode)
        ld e,0 ;color byte
        OS_CLS
        ld e,1
        OS_SETSCREEN
        ld e,0 ;color byte
        OS_CLS
               
                ld de,res_path
                OS_CHDIR

        OS_GETMAINPAGES
;dehl=эюьхЁр ёЄЁрэшЎ т 0000,4000,8000,c000
        ld a,e
        LD (pgmain4000),A
        ld a,h
        LD (pgmain8000),A
        ld a,l
        LD (pgscalersnum),A
       if 1==0 ; OLDMUZ
        ld a,h
        ld (pgmuznum),a
       endif

        ;OS_GETSCREENPAGES
;de=ёЄЁрэшЎ√ 0-ую ¤ъЁрэр (d=ёЄрЁ°р ), hl=ёЄЁрэшЎ√ 1-ую ¤ъЁрэр (h=ёЄрЁ°р )
        ;ld a,l
        ;ld (setpgs_scr_low),a
        ;xor e
        ;ld (setpgs_scr_xor),a
        ;ld a,d
        ;xor e
        ;ld (setpgs_scr_high_xor_low),a

       if OLDMUZ
        ;ld hl,muzfilename
        ;call loadpage
        ;ld (pgsfx),a
        ;call loadpage
        ;ld (pgmusic),a
        ;call setpgsmain40008000
        ;ld a,(pgscalersnum)
        ;SETPGC000
        ;OS_NEWPAGE
        ;ld a,e
        ;ld (pgmuznum),a
        ;SETPG8000
        ld hl,wasmuz
        ld de,muz
        ld bc,wasmuz_sz
        ldir
        call muz
       else
        ld hl,muzfilename
        call loadpage
        ld (pgsfx),a
        call loadpage
        ld (pgmusic),a
        SETPG4000
       
;¤Єю юЄэюёшЄё  ъ чруЁєчъх єЁютэ 
        push af
        call 0x4000 ;init
       
        ld a,(pgsfx)
        SETPG8000
        pop af
        ld hl,0x4005 ;play
        OS_SETMUSIC
        call setpgsmain40008000
        ld a,(pgscalersnum)
        SETPGC000
       endif
       
        ;pop af ;LD a,(pg8000)
        ;SETPG8000

        OS_NEWPAGE
        ld a,e
        ld (pgmapnum),a

        if TEXBMP
        ld de,texfilename
        call openfile_skipbmpheader
;b=handle
        ld hl,ttexpgs+NTEXPGS-1
        ld c,NTEXPGS
gettexpgs0
        push bc
        push hl
        call ldpgrecodebmp
       
        push de
       
;2. яЁюїюфшь яю hl яЁрт√щ тхЁїэшщ ЄЁхєуюы№эшъ ЄхъёЄєЁ√, р яю de - ыхт√щ эшцэшщ, ьхэ хь шї ьхёЄрьш
        ld hl,0x4000
gettexpgsrot0
        push hl    
        ld b,64
gettexpgsrot1
        push bc
        push hl
        ld d,h
        ld e,l
gettexpgsrot2
        ld c,(hl)
        ld a,(de)
        ld (hl),a
        ld a,c
        ld (de),a
        inc l
        inc d
        djnz gettexpgsrot2
        pop hl
        inc l
        inc h
        pop bc
        djnz gettexpgsrot1
        pop hl
        ld a,l
        add a,64
        ld l,a
        jr nz,gettexpgsrot0
       
        pop de
        pop hl
        ld (hl),e
        dec hl
        pop bc
        dec c
        jr nz,gettexpgs0

        OS_CLOSEHANDLE

        ld de,sprfilename
        call openfile_skipbmpheader
;b=handle
        ld hl,ttexpgs+NTEXPGS+NSPRPGS-1
        ld c,NSPRPGS
getsprpgs0
        push bc
        push hl
        call ldpgrecodebmp        
        pop hl
        ld (hl),e
        dec hl
        pop bc
        dec c
        jr nz,getsprpgs0

        OS_CLOSEHANDLE

        else
       
        ld hl,ttexpgs
        ld b,5
getttexpgs0
        push bc
        push hl
        OS_NEWPAGE
       
        push de
        ld a,e
        SETPG4000
        ld de,texfilename
        OS_OPENHANDLE
        push bc
        ld de,0x4000 ;addr
        ld hl,0x4000 ;size
        OS_READHANDLE
        pop bc
        OS_CLOSEHANDLE
       
        ld hl,texfilenamenum
        inc (hl)
        pop de
       
        pop hl
        ld (hl),e
        inc hl
        pop bc
        djnz getttexpgs0

        endif


        LD HL,tID
REtID0  LD A,(HL)
        add a,ttexpgs&0xff
        ld e,a
        adc a,ttexpgs/256
        sub e
        ld d,a
        ld a,(de)
;basepggfx=$+1
;        ADD A,0
        LD (HL),A
        INC L
        INC L
        jr NZ,REtID0
         ld hl,tID+128
         ld de,tID
         ld bc,128
         ldir ;ID_DOOR < 128

        ld ix,tscales
        ld hl,tscales_rev
        ld b,64
revscale0
        push bc
        push hl
        ld c,(ix)
        inc ix
        ld b,(ix)
        inc ix
        ld de,256
;фхыхэшх
;DE=+-7.8;BC=+7.8
;DE=DE/BC=+-8.7/2
    ;BC ёюїЁрэ хЄё !!!
        call MONDIV
        pop hl
        sla e
        rl d
        ld (hl),e
        inc hl
        ld (hl),d
        inc hl
        pop bc
        djnz revscale0

        ;YIELD ;шэрўх эх єёЄрэютшЄё  тшфхюЁхцшь ш ярышЄЁр?

        if 1==0 ;эхы№ч  яЁш шэЄхЁяюы Ўшш
        ld hl,tlogd2sca
retlogd2sca0
        sla (hl)
        sla (hl)
        inc l
        jr nz,retlogd2sca0
        endif

        call genscalers

        call swapimer

        call TEXCODEGO
       
        call swapimer
       
        ;call shutay        
pgmusic=$+1
        ld a,0
        SETPG4000
        halt
        ld hl,0x4000;0x4008+3 ;stop
        OS_SETMUSIC
        halt
        QUIT

setpgsmain40008000
pgmain4000=$+1
        ld a,0
        SETPG4000
pgmain8000=$+1
        ld a,0
        SETPG8000
        ret

        if 1==0
setpgsscr40008000_current
        call getuser_scr_low_cur
        SETPG4000
        call getuser_scr_high_cur
        SETPG8000
        ret

setpgsscr40008000
        call getuser_scr_low
        SETPG4000
        call getuser_scr_high
        SETPG8000
        ret

setpgscrlow4000
        call getuser_scr_low
        SETPG4000
        ret

setpgscrhigh4000
        call getuser_scr_high
        SETPG4000
        ret
        endif

getuser_scr_low
getuser_scr_low_patch=$+1
getuser_scr_low_patchN=0xff&(user_scr0_low^user_scr1_low)
        ld a,(user_scr1_low) ;ok
        ret

getuser_scr_high
getuser_scr_high_patch=$+1
getuser_scr_high_patchN=0xff&(user_scr0_high^user_scr1_high)
        ld a,(user_scr1_high) ;ok
        ret

getuser_scr_low_cur
getuser_scr_low_cur_patch=$+1
getuser_scr_low_cur_patchN=0xff&(user_scr0_low^user_scr1_low)
        ld a,(user_scr0_low) ;ok
        ret

getuser_scr_high_cur
getuser_scr_high_cur_patch=$+1
getuser_scr_high_cur_patchN=0xff&(user_scr0_high^user_scr1_high)
        ld a,(user_scr0_high) ;ok
        ret

changescrpg_current
;        ld a,(setpgs_scr_low)
;setpgs_scr_scrxor=$+1
;        xor 0
;        ld (setpgs_scr_low),a
        ld hl,getuser_scr_low_patch
        ld a,(hl)
        xor getuser_scr_low_patchN
        ld (hl),a
        ld hl,getuser_scr_high_patch
        ld a,(hl)
        xor getuser_scr_high_patchN
        ld (hl),a
        ld hl,getuser_scr_low_cur_patch
        ld a,(hl)
        xor getuser_scr_low_cur_patchN
        ld (hl),a
        ld hl,getuser_scr_high_cur_patch
        ld a,(hl)
        xor getuser_scr_high_cur_patchN
        ld (hl),a

        ld a,1
curscrnum=$+1
        xor 0
        ld ($-1),a
         ;add a,a
         ;add a,a
         ;add a,a
         ;ld (imer_curscreen_value),a
        ret
       
changescrpg
        ;jr $
        call changescrpg_current
        ;ld (curscrnum_physical),a
        ld e,a
        OS_SETSCREEN
        ret

openfile_skipbmpheader
        OS_OPENHANDLE
        push bc
        ld de,bmpbuf;0x4000 ;addr
        ld hl,14+2;0x0076 ;size
        OS_READHANDLE ;b=handle
        pop bc
        push bc
        ld de,bmpbuf;0x4000 ;addr
        ld hl,(bmpbuf+14)
        dec hl
        dec hl
        OS_READHANDLE ;b=handle
        pop bc
        push bc
        ld de,bmpbuf;0x4000 ;addr
        ld hl,4*16;0x0076 ;size
        OS_READHANDLE ;b=handle
        pop bc
        ret

ldpgrecodebmp
        push bc
        OS_NEWPAGE
        ld a,e
        SETPG4000
        pop bc ;b=handle
        push de
       
        ld de,0x4000 ;addr
        ld hl,0x4000 ;size
        OS_READHANDLE

        ld hl,0x4000
        ld d,trecolor/256
gettexpgsrecode0
        ld e,(hl)
        ld a,(de)
        ld (hl),a
        inc hl
        bit 7,h
        jr z,gettexpgsrecode0

;яютхЁэєЄ№ ЄхъёЄєЁ√ эр 90 уЁрфєёют (фы  ёЄхэ, р фы  ёяЁрщЄют яЁюёЄю яхЁхтхЁэєЄ№?)
;1. яхЁхтюЁюЄ ЄхъёЄєЁ
        ld hl,0x4000
        ld de,0x4000+0x3f00
        ld b,32
gettexpgsturn0
gettexpgsturn1
        ld c,(hl)
        ld a,(de)
        ld (hl),a
        ld a,c
        ld (de),a
        inc l
        inc e
        jr nz,gettexpgsturn1
        inc h
        dec d
        djnz gettexpgsturn0
       
        pop de ;e=pg
        ret

shutay
        ld de,0xe00
shutay0
        dec d
        ld bc,0xfffd
        out (c),d
        ld b,0xbf
        out (c),e
        jr nz,shutay0
        ret
       
texfilename
        if TEXBMP
        db "wolftex.bmp",0
        else
        db "wolftex.0",0
texfilenamenum=$-2
        endif
sprfilename
        db "wolfspr.bmp",0

        align 256
t1x
        db 255
        dup 255
        db (255*2/($&0xff)+1)/2
        edup
ttexpgs
        ds NTEXPGS+NSPRPGS

setpgmap4000
pgmapnum=$+1
        ld a,0
        SETPG4000
        ret

swapimer
        di
         ld hl,(0x0026) ;ok
         ld (on_int_0026),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
        jp 0x0038+3

on_int
;restore stack with de
        ld (on_int_hl),hl
        ld (on_int_sp),sp
        pop hl
        ld (on_int_sp2),sp
        ld (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 ;тюёёЄрэютшыш чряюЁюЄ√щ ёЄхъ

on_int_0026=$+1
        ld hl,0
        ld (0x0026),hl ;тюёёЄрэютшыш чряюЁюЄ√щ ёЄхъ 0x0028 (=40)

        push ix
        push iy
        ex af,af' ;'
        exx
        push af
        push bc
        push de
        push hl
        ld a,(curscrnum)
        ld e,a
        OS_SETSCREEN ;т√ч√трхь чфхё№, р эх т Ёрэфюьэюь ьхёЄх, шэрўх фрцх ё юфэющ чрфрўхщ ьюцхь яюыєўшЄ№ эхяЁхфёърчєхьє■ чрфхЁцъє, ъюЄюЁє■ эх ЇшъёшЁєхЄ эр° ЄрщьхЁ? ё эхёъюы№ъшьш чрфрўрьш эрфю єўшЄ√трЄ№ ш ёшёЄхьэ√щ - TODO
       
        if atm
       
curpalette=$+1
        ld de,wolfpal
        OS_SETPAL
       
       if 1==0
        ld a,(curpg32klow) ;ok
        push af
pgmuznum=$+1
        ld a,0
        SETPG8000
        call muz+6
        ;TODO music + sound effects in OS_SETMUSIC
        pop af
        SETPG8000
       endif
       
        call oldimer ;ei
       
        GET_KEY
        or a
        jr z,$+5
        ld (curkey),a
       
        else
curpg=$+1
        ld a,0
        setpgafast
        endif
       
        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

sfxplay
        push af
pgsfx=$+1
        ld a,0
        SETPG8000
        pop af
        jp 0x8000 ;SFXPLAY

loadpage
;чрърч√трхЄ ёЄЁрэшўъє ш уЁєчшЄ Єєфр Їрщы (шь  Їрщыр т hl)
;out: hl=яюёых шьхэш Їрщыр, a=pg
        push hl
        OS_NEWPAGE
        pop hl
        ld a,e
        push af ;pg
        SETPGC000
        push hl
        ex de,hl
        OS_OPENHANDLE
        push bc
        ld de,0xc000 ;addr
        ld hl,0x4000 ;size
        OS_READHANDLE
        pop bc
        OS_CLOSEHANDLE                
        pop hl
        ld b,1
        xor a
        cpir ;after 0
        pop af ;pg
        ret

muzfilename
        db "sfx.bin",0
        db "music.bin",0

wolfpal
        dw 0xffff,0x0c0c,0x3f3f,0xdede,0xfefe,0xdfdf,0x4c4c,0xaeae
        dw 0xbdbd,0xfdfd,0xbfbf,0xeded,0x8d8d,0x7d7d,0xecec,0x1f1f

        include "WATM2.asm"

scale2ytop
;bc=scale
;out: de=Y, lx=y
        XOR A
        LD L,A
        ld H,A
        SBC HL,BC ;-scale = -0x40..-0x410
        ADD HL,HL
        ADD HL,HL
        ADD HL,HL
        ADD HL,HL
        ADD HL,HL ;*32 = -0x800..-0x8200
        EXD
        LD LX,E
        LD a,D
        LD D,-1
        ADD A,Ycenter ;0x64
        LD E,A
        ret nc ;jr NC,$+3
        INC D
        ret

YtoADDR
       PUSH HL
        LD H,D
        ld L,E
        ADD HL,HL
        ADD HL,HL
        ADD HL,DE ;*5
        ADD HL,HL
        ADD HL,HL
        ADD HL,HL ;*40
        LD DE,scrbase
        ADD HL,DE
;genX=$+1
;        LD DE,0
;        ADD HL,DE
        EXD
       POP HL
        RET
        ;align 256;DS .(-$)
tscales
       IF customscales == 0
        INCBIN "scalesw3" ;ёэрўрыр ьхыъшх
       ELSE
        DS 8,5,0
        DS 7,6,0
        DS 6,7,0
        DS 5,8,0
        DS 4,9,0
        DS 3,10,0
        DS 2,11,0
        DS 1,12,0
        DS 1,13,0
        DS 1,14,0
        DS 1,15,0
        DS 1,16,0
        DS 1,17,0
        DS 1,18,0
        DS 1,19,0
        DS 1,20,0
        DS 1,21,0
        DS 1,22,0
        DS 1,23,0
        DS 1,24,0
        DS 1,25,0
        DS 1,26,0
        DS 1,27,0
        DS 1,28,0
        DS 1,29,0
        DS 1,30,0
        DS 1,31,0
        DS 1,32,0
        DS 1,33,0
        DS 1,34,0
        DS 1,35,0
        DS 1,36,0
        DS 1,38,0
        DS 1,40,0
        DS 1,42,0
        DS 1,44,0
        DISPLAY $-tscales,"=#80"
       ENDIF
tscales_rev
        ds 128

tsprites
;pg,xmid,xleft-1,xright-1
        macro TSPRITES pg,xleft,wid
xright=xleft+wid
xmid=(xleft+xright)/2
        db NTEXPGS+pg
        db xmid/2
        db xleft/2
        db xright/2
        endm
;TODO эрфю яЁртшы№эю ЎхэЄЁютрЄ№
        ;TSPRITES 0,0,0 ;ID 0 not used
        TSPRITES 0,0,44 ;ID 1
        TSPRITES 0,44,42
        TSPRITES 0,86,36
        TSPRITES 0,122,56
        TSPRITES 0,178,40
        TSPRITES 0,218,48
        TSPRITES 0,266,36
        TSPRITES 0,302,56
        TSPRITES 0,358,38
        TSPRITES 0,396,50 ;10
        TSPRITES 0,448,24
        TSPRITES 1,472,26

MONSTAB
;ZOMBIEMAN stay
        db 1
        db 2
        db 1
        db 2
        db 1
        db 2
        db 0,0
;ZOMBIEMAN go1
        db 3
        db 4
        db 5
        db 6
        db 3
        db 4
        db 0,0
;ZOMBIEMAN go2
        db 7
        db 8
        db 9
        db 10
        db 7
        db 8
        db 0,0
;AMMO
        db 12 ;G
        db 12 ;R
        db 12 ;MEGAHEALTH
        db 12 ;RL
        db 12 ;AMMO
        db 12
        db 0,0
;STOLB
        db 11
        db 11
        db 11
        db 11
        db 11
        db 11
        db 11
        db 11

        if 1==0
        DS ((-$)&7)&0xff
MONSTRS
;Xx,Yy,TYPEphase,TIMEenergy
        DW #0F80,#AF80,#000,-1;ENEMY
        DW #2680,#A080,#000,64
        DW #0380,#BA80,#000,64
        DW #0780,#B780,#000,64

        DW #0F80,#B080,#002,64
        DW #1380,#A080,#000,64
        DW #1380,#AA80,#000,64
        DW #1380,#B280,#000,64
        DW #1380,#B380,#000,64
        DW #1280,#B580,#002,64
        DW #1480,#AB80,#000,64
        DW #1480,#AE80,#002,64

        DW #1480,#B080,#002,64
        DW #1480,#B380,#000,64
        DW #1580,#A180,#002,80
        DW #1680,#AD80,#002,90
        DW #1680,#B180,#002,100
        DW #2180,#AD80,#002,10
        DW #2380,#A080,#000,50
        DW #2380,#A580,#002,50

        DW #2680,#A480,#003,50
        DW #2680,#B280,#004,50
        DW #2780,#A880,#005,50
        DW #2780,#B180,#003,64

        DW #2780,#A380,#100,150
        DW #2080,#A580,#101,100
        DW #2280,#A580,#102,100
        DW #2580,#A080,#103,20
        DW #2080,#A080,#104,40

        DW #1380,#A2C0,#200,0
        DW #1380,#A440,#200,0
        DW #1280,#A2C0,#200,0
        DW #1280,#A440,#200,0
        DW #1180,#A2C0,#200,0
        DW #1180,#A440,#200,0
        DW #1080,#A2C0,#200,0
        DW #1080,#A440,#200,0
        DW #0F80,#A2C0,#200,0
        DW #0F80,#A440,#200,0
        DW #0E80,#A2C0,#200,0
        DW #0E80,#A440,#200,0
        DW #0D80,#A2C0,#200,0
        DW #0D80,#A440,#200,0
        DW -1
eNDMONS
        endif

level
        DB "W"
gfxnr   DB "0"
muznr   DB "A"
pol     DB #E7
potolok DB #F3
color   DB 7
levname DS 23
        DB 0
monstrs DB 0
prizes  DW 0 ;$$$/10
EXITx   DB 23
EXITy   DB 15+0xA0
yx      DW 0x8080
YX      DW 0xBA08
angle   DW 64
endlev

        DS ((-$)&7)&0xff
MONSTRS
;Xx,Yy,TYPEphase,TIMEenergy
        ;DW -1

;ёхщўрё TYPE ъюфшЁєхЄё  Єръ (ўЄю тшфэю т ЁхфръЄюЁх: ўЄю т TYPE):
;31: тїюф
;29: т√їюф
;32..63: goods (58..63: gold 5,10,20,50,100,200)
;1..28: monsters

;        ds 64
;INTSTACK

        align 256
trecolor
;%00003210 => %.3...210
        dup 256
_3=$&8
_210=$&7
_3L=($>>4)&8
_210L=($>>4)&7
        db (_3L*0x08) + (_210L*0x01) + (_3*0x10) + (_210*0x08)
        edup

bmpbuf

        display "free before stack=",0x3e00-$

        ds 0x8000-$

       IF atm
        ;ORG #C000;,pgscalers
        ;ds 0xc000-$
        ;INCBIN "scalers"
wasmuz
        ;ds 9,201
        incbin "DOOM-MUS" ;TODO load
wasmuz_sz=$-wasmuz

        include "genscale.asm"

        display "WASMAP=",$
WASMAP
        INCBIN "mapatm.E" ;TODO load
szMAP=$-WASMAP

res_path
        defb "wolf3d",0
     

       else ;~atm
WASMAP
        INCBIN "map48.E"
szMAP=$-WASMAP
        ;ORG #C000,pgscale
        ds 0xc000-$
      IF 1
        INCBIN "48kblock" ;with 48K textures
      ELSE
       IF scale64
       IF scale64 == 3
        INCBIN "tscale3"
       ELSE
        INCBIN "tscale2"
       ENDIF
       ELSE
        INCBIN "tscale"
       ENDIF
      ENDIF
       ENDIF
end

        ;display "End=",end
        ;display "Free after end=",/d,#c000-end
        ;display "Size ",/d,end-begin," bytes"
       
        savebin "wolf3d.com",begin,end-begin
       
        LABELSLIST "../../../us/user.l"