Subversion Repositories NedoOS

        device zxspectrum128

        ; Compile from this file with sjasmplus !!!!!!!!!!!

DEBUG = 0
;MACHINE = 9            ; 9k version with basic loader
; MACHINE = 16          ; 16k cartrige version
; MACHINE = 48          ; 48k full version
MACHINE = 1024          ; ATM2+ with NedoOS
//--------------------------------------------------------------------------

        include "code/struct.asm"

        if MACHINE == 9
                include "code/basic.asm"        ; for basic loader
        endif

        if MACHINE == 16
                include "code/rom.asm"          ; for cartrige
        endif

        if MACHINE == 1024
        include "../../_sdk/sys_h.asm"  

STACK=0x4000;0x61a8
GAMESTACK=0x4000;0xFFFF
L_FDFD=0xfdfd
L_FE00=0xfe00

scrbase=0x4000+4
sprmaxwid=32
sprmaxhgt=32
scrwid=160 ;double pixels
scrhgt=192;200
INTSTACK=0x3f80
tempsp=0x3f86 ;6 bytes for prspr
;UVSCROLL_SCRWID=320 ;8*(TILEMAPWID-2)
;UVSCROLL_SCRHGT=192 ;(╨┤╨╡╨╗╨╕╤В╤Б╤П ╨╜╨░ 16!!!) ;8*(TILEMAPHGT-2) ;╤З╤В╨╛╨▒╤Л ╨▓╤Л╨▓╨╛╨┤╨╕╤В╤М ╨▓╤Б╨╡╨│╨┤╨░ 12 ╨╝╨╡╤В╨░╤В╨░╨╣╨╗╨╛╨▓ (3 ╨▒╨╗╨╛╨║╨░ ╨┐╨╛ 8) ╨┐╨╛ ╨▓╤Л╤Б╨╛╤В╨╡

;screenYtable=0x8b00

EGA=1

        org PROGSTART
begin
        ;jp begin2 ;/prsprqwid (sprites in file are made so that they return here)
;begin2
        OS_HIDEFROMPARENT

        ld e,3+0x80 ;6912+keep
        ;ld e,0+0x80 ;EGA+keep
        ;OS_SETGFX ;e=0:EGA, e=2:MC, e=3:6912, e=6:text ;+SET FOCUS ;e=-1: disable gfx (out: e=old gfxmode)
        call setgfx

        ld e,0 ;color byte
        OS_CLS

        OS_GETMAINPAGES
;dehl=pages in 0000,4000,8000,c000
        ld a,e
        ld (pgmain4000),a
        ld a,h
        ld (pgmain8000),a
        ld a,l
        ld (pgspr),a

        ld hl,wassprites
        ld de,0xc000
        ld bc,sz_sprites
        ldir

        ;OS_NEWPAGE
        ;ld a,e
        ;ld (pgmain4000),a

       if 1==0
        ld de,res_path
        OS_CHDIR

        call setpgsscr40008000

        ld de,emptypal
        OS_SETPAL
        ;ld de,bmpfilename
        ;call openstream_file
        ;call readbmphead_pal
        ;call readbmpscr
        ;call closestream_file
        ;ld de,path
        ;OS_CHDIR
        ;ld a,(pgscrdata0)
        ld de,filename0 ;╨╕╨╝╤П ╤Д╨░╨╣╨╗╨░
        ld hl,0x4000 ;╨║╤Г╨┤╨░ ╨│╤А╤Г╨╖╨╕╨╝
        call loadfile_in_hl ;╨╖╨░╨│╤А╤Г╨╖╨╕╨╗╨╕ ╨╛╨┤╨╕╨╜ ╤Н╨║╤А╨░╨╜╨╜╤Л╨╣ ╤Д╨░╨╣╨╗ ╨▓ ╨╛╨┤╨╜╤Г ╤Б╤В╤А╨░╨╜╨╕╤Ж╤Г
        ;ld a,(pgscrdata1)
        ld de,filename1 ;╨╕╨╝╤П ╤Д╨░╨╣╨╗╨░
        ld hl,0x8000 ;╨║╤Г╨┤╨░ ╨│╤А╤Г╨╖╨╕╨╝
        call loadfile_in_hl ;╨╖╨░╨│╤А╤Г╨╖╨╕╨╗╨╕ ╨┤╤А╤Г╨│╨╛╨╣ ╤Н╨║╤А╨░╨╜╨╜╤Л╨╣ ╤Д╨░╨╣╨╗ ╨▓ ╨┤╤А╤Г╨│╤Г╤О ╤Б╤В╤А╨░╨╜╨╕╤Ж╤Г
        ld hl,0x4000+8000 ;╤В╨░╨╝ ╨▓ ╨║╨░╤А╤В╨╕╨╜╨║╨╡ ╨┐╨░╨╗╨╕╤В╤А╨░ (╨┐╨╛ ╨▒╨░╨╣╤В╤Г ╨╜╨░ ╤Ж╨▓╨╡╤В)
        ld de,pal
        ld b,16
copypal0
        ld a,(hl)
        inc hl
        ld (de),a
        inc de
        ld (de),a
        inc de
        djnz copypal0 ;╤Б╨║╨╛╨┐╨╕╤А╨╛╨▓╨░╨╗╨╕ ╨┐╨░╨╗╨╕╤В╤А╤Г ╨▓ pal (╨┐╨╛ 2 ╨▒╨░╨╣╤В╨░ ╨╜╨░ ╤Ж╨▓╨╡╤В)
        ld de,pal
        OS_SETPAL
       
        call setpgsmain40008000

        ;ld b,50
        ;halt
        ;djnz $-1
        YIELDGETKEYLOOP

        ld e,3+8+0x80 ;6912+noturbo+keep
        OS_SETGFX ;e=0:EGA, e=2:MC, e=3:6912, e=6:text ;+SET FOCUS ;e=-1: disable gfx (out: e=old gfxmode)
        ld e,0 ;color byte
        OS_CLS
        ld de,standardpal
        OS_SETPAL
        YIELD
       endif

       if 0
        call setpgsscr40008000_current
       
        ld de,floor_2
        ld hl,0x4000
        ld bc,0x1008
;b=hgt,c=wid (/2)
;de=gfx
;hl=scr
        call primgega_onescreen
        ;jr $
       endif

        ld a,(user_scr0_high) ;ok
        SETPG16K
       
        call swapimer

       if 0;EGA
        ld hl,prsprqwid
        ld (0x0101),hl ;sprites in file are made so that they return in 0x0100
       endif

        ld sp,STACK
        ;YIELDGETKEYLOOP
       
        ;jp GO
code:
        include "includes.asm"
        include "mem.asm"
        include "int.asm"

curgfxmode
        db 0

setgfx
       ld a,e
       ld (curgfxmode),a
        OS_SETGFX ;e=0:EGA, e=2:MC, e=3:6912, e=6:text ;+SET FOCUS ;e=-1: disable gfx (out: e=old gfxmode)
        ret

set6912
        ld de,emptypal
        OS_SETPAL
        ld e,3+0x80 ;6912+keep
        call setgfx
        ld a,(user_scr0_high) ;ok
        SETPG16K
        ld e,0
        OS_CLS
        ld de,standardpal
        OS_SETPAL
        ret

setEGA
        ld de,emptypal
        OS_SETPAL
        ld e,0+0x80 ;EGA+keep
        call setgfx
        ld e,0 ;color byte
        OS_CLS
        call setpgsscr40008000_current
        ld de,pal
        OS_SETPAL
        ret

primgega_onescreen
;b=hgt,c=wid (/2)
;de=gfx
;hl=scr
       push ix
primgega0
        push bc
        ld hx,b
        push hl
        ld bc,40
primgegacolumn0
        ld a,(de)
        inc de
        ld (hl),a
        add hl,bc
        dec hx
        jr nz,primgegacolumn0
        pop hl
        ld a,0x9f;0xa0
        cp h
        ld bc,0x4000
        adc hl,bc
        jp pe,primgegacolumn0q ;╨▓ ╨┐╨╛╨╗╨╛╨▓╨╕╨╜╨╡ ╤Б╨╗╤Г╤З╨░╨╡╨▓
;8000->╤Б000 (╨╜╨░╨┤╨╛ 6000) ╨╕╨╗╨╕ a000->e001 (╨╜╨░╨┤╨╛ 4001)
         inc a
        xor h
        ld h,a
primgegacolumn0q
        pop bc
        dec c
        jr nz,primgega0
       pop ix
        ret

prbgforspr
;de=scr
;(ix+oData.x)
;(ix+oData.y)
       ld a,(ix+oData.drawMethod)
       cp 2
       ret z
       
    if 1
        ld a,(ix+oData.y)
        cp (ix+oData.preY)
        jr c,$+5
        ld a,(ix+oData.preY)
        ld l,a
        ld e,(ix+oData.x)
; L = Y; E = X (in pixels)
       push hl ;l=minY
        call getScrAddrByCoords ;hl=scraddr
        ex de,hl
       pop hl ;l=minY
        ld a,(ix+oData.y)
        cp (ix+oData.preY)
        jr nc,$+5
        ld a,(ix+oData.preY)
        add a,16 ;a=maxY
        sub l
       push af ;hsb=hgt
       ld c,l ;minY
        ld a,(ix+oData.x)
        rra
        and 4
        ld l,a
        ld h,0
        add hl,hl
        add hl,hl
        add hl,hl
        add hl,hl
        add hl,hl
        add hl,hl
       ld a,c ;minY
        and 15
        ld c,a
        ld b,0
        add hl,bc
        ld bc,megafloor
        add hl,bc
       pop bc ;hsb=hgt
        ld c,8
;hl=gfx
;de=scr
;b=hgt,c=8
    else    
       
        ld e,(ix+oData.x)
        ld a,(ix+oData.y)
        and 0xf0
        ld l,a
; L = Y; E = X (in pixels)
        call getScrAddrByCoords ;hl=scraddr
        ex de,hl

        ld a,(ix+oData.x)
        rra
        and 4
        ld l,a
        ld h,0
        add hl,hl
        add hl,hl
        add hl,hl
        add hl,hl
        add hl,hl
        add hl,hl
        ;ld a,(ix+oData.y)
        ;and 15
        ;ld c,a
        ;ld b,0
        ;add hl,bc
        ld bc,megafloor
        add hl,bc
        ld bc,0x1008
       ;ld a,(ix+oData.y)
       ;and 7
       ;jr z,$+3
       ;  inc b
        ;ld a,(ix+oData.direction)
        ;and 4+8 ;up+down
          ld a,(ix+oData.y)
          cp (ix+oData.preY)
        jr z,.nogovert
;╨╜╨░ ╤Б╨╗╤Г╤З╨░╨╣, ╨║╨╛╨│╨┤╨░ ╨┐╤А╨╕╨╡╨╖╨╢╨░╨╡╨╝ ╨▓╨╜╨╕╨╖ ╨╕ ╨▓╤В╤Л╨║╨░╨╡╨╝╤Б╤П ╨▓ ╤Б╤В╨╡╨╜╤Г
;╤Н╤В╨╛ ╨┤╨▓╨╕╨╢╨╡╨╜╨╕╨╡ ╨▓╨╜╨╕╨╖ + ╨║╤А╤Г╨│╨╗╤Л╨╣ y
;╨┐╤А╨╕ ╤Н╤В╨╛╨╝ ╨╜╨╡ ╤А╨░╤Б╤И╨╕╤А╤П╨╡╨╝ ╨╛╨▒╨╗╨░╤Б╤В╤М ╨╛╤З╨╕╤Б╤В╨║╨╕
          ld a,(ix+oData.y)
          cp (ix+oData.preY)
          jr c,.nogodown
          ld a,(ix+oData.y)
          and 15
          jr z,.godownskipbigmask
.nogodown
          ld a,b
          add a,16
          ld b,a
.godownskipbigmask
;╨╜╨░ ╤Б╨╗╤Г╤З╨░╨╣, ╨║╨╛╨│╨┤╨░ ╨╝╤Л ╨▓╤Л╨╡╤Е╨░╨╗╨╕ ╨╕╨╖ ╤В╨░╨╣╨╗╨░, ╨░ ╨╛╤Б╤В╨░╨╗╨╕╤Б╤М ╨╜╨╛╨│╨╕
          ld a,(ix+oData.preY)
          and 0x0f
          jr z,.nogovert
          ld a,(ix+oData.y)
          xor (ix+oData.preY)
          and 0xf0
          jr z,.nogovert
        ;ld a,(ix+oData.direction)
        ;and 8 ;down
          ld a,(ix+oData.y)
          cp (ix+oData.preY)
        jr c,.nogovertdown
        ex de,hl
        push bc
        ld bc,-(40*16)
        add hl,bc
        pop bc
        ex de,hl
.nogovertdown
          ld a,b
          add a,16
          ld b,a
.nogovert

   endif
;hl=gfx
;de=scr
;b=hgt

       ld a,(ix+oData.x)
       and 7
       jr z,$+4
         ld c,12
        ex de,hl
prmegaimgega
        ;ret
;b=hgt,c=wid (/2)
;de=gfx
;hl=scr
prmegaimgega0
        push bc
        ld hx,b
        push hl
        ld bc,40
prmegaimgegacolumn0
        ld a,(de)
        inc de
        ld (hl),a
        add hl,bc
        dec hx
        jr nz,prmegaimgegacolumn0
        pop hl
        ld a,0x9f;0xa0
        cp h
        ld bc,0x4000
        adc hl,bc
        jp pe,prmegaimgegacolumn0q ;╨▓ ╨┐╨╛╨╗╨╛╨▓╨╕╨╜╨╡ ╤Б╨╗╤Г╤З╨░╨╡╨▓
;8000->╤Б000 (╨╜╨░╨┤╨╛ 6000) ╨╕╨╗╨╕ a000->e001 (╨╜╨░╨┤╨╛ 4001)
         inc a
        xor h
        ld h,a
prmegaimgegacolumn0q
        pop bc
        ld a,64
        sub b
       add a,e
       ld e,a
       jr nc,$+3
       inc d
        dec c
        jr nz,prmegaimgega0
        ret

setpgsprc000
pgspr=$+1
        ld a,0
        SETPGC000
        ret
SEED
        dw 0
cartrigeFont
        incbin "font/font.SpecCHR"
        include "variables.asm"
        include "prspr.asm"
       
        display $,"<0x3f00"
       
wassprites
       disp 0xc000
        include "sprites.ast"
        include "pal.ast"
standardpal
        STANDARDPAL
emptypal
        ds 32,0xff        
       if EGA
ss:
        include "sprites/storage.asm"
ess        
        ;display enemy_1-enemy_0
       endif
       ent
sz_sprites=$-wassprites
        display sz_sprites,"<=0x4000"
        endif

    display "level CELLS address: ",/A,levelCells
    display "getDrawData address: ",/A,getDrawData
    display "object data size: ",/A,OBJECT_DATA_SIZE
    display "OBJECTS DATA : ",/A,objectsData

    display "LEVELS_MAP: ",/A,LEVELS_MAP
    display "LEVELS_BEGIN: ",/A,LEVELS_BEGIN

    display "SPRITE_STORAGE: ",/A,SPRITE_MAP


    display "::::::::: ",/A,PASS.input.printNext

        display "SPRITE STORAGE SIZE = ",/A, ess - ss
        display "ALL LEVELS SIZE = ",/A, elds - lds

        if MACHINE == 48 || MACHINE == 9
        display "CODE SIZE = ",/A, vars - basic
        display "FULL SIZE = ",/A, $ - basic
        endif
end

    display "LAST ADDRESS = ",/A, $

        if MACHINE == 9 && __ERRORS__ == 0
                SHELLEXEC "P:\ZX\Emulators\ue\unreal.exe Wow.tap"
        endif

        if MACHINE == 16 && __ERRORS__ == 0
                SHELLEXEC "P:\ZX\Emulators\xpeccy_0.6.20210407_win32\xpeccy.exe Wow.bin"
        endif

        if MACHINE == 1024 && __ERRORS__ == 0
        display "Size ",/d,end-begin," bytes"
        savebin "wow.com",begin,end-begin
        LABELSLIST "../../../us/user.l"
        endif