mirror of
https://github.com/Pecusx/no_internet.git
synced 2026-05-20 22:33:43 +02:00
79 lines
1.0 KiB
NASM
79 lines
1.0 KiB
NASM
; @com.wudsn.ide.asm.mainsourcefile=ni.asm
|
|
icl 'atari.asm'
|
|
icl 'macro.asm'
|
|
|
|
.zpvar tmp, tmp0, tmp1, tmp2, tmp3 .word
|
|
sw = $80 ;physical screen width in bytes (distance between beginnings of consecutive lines)
|
|
sw_log = $40 ;logical screen width
|
|
sh = 128 ;screen height in lines
|
|
screen = $4000
|
|
pmgraph = $9000
|
|
org $2000
|
|
dl
|
|
.byte $70,$70,$70
|
|
dl_addrs ;start of lines
|
|
.REPT sh
|
|
.byte $5f
|
|
.word screen+#*sw
|
|
.ENDR
|
|
.byte $41
|
|
.word DL
|
|
start
|
|
mva #%00100011 DMACTLS
|
|
mwa #dl DLPTRS
|
|
mva #12 move_scr.hscr_state ;hscroll initialisation
|
|
sta HSCROL
|
|
|
|
mva #0 COLPF1S
|
|
mva #$0F COLBAKS
|
|
mva #$0f COLPF2S
|
|
|
|
jsr dl_addr_init
|
|
jsr sprites_init
|
|
pause 1
|
|
jsr ground_init
|
|
|
|
ldx #20
|
|
ldy #0
|
|
jsr cactus
|
|
ldx #30
|
|
ldy #1
|
|
jsr cactus
|
|
ldx #40
|
|
ldy #2
|
|
jsr cactus
|
|
|
|
xx ldx #0 ; anim phaze
|
|
yy ldy #54
|
|
jsr dino_pm
|
|
inc:lda xx+1
|
|
cmp #3
|
|
sne
|
|
mva #0 xx+1
|
|
key
|
|
jsr move_scr
|
|
jmp xx
|
|
|
|
|
|
llp
|
|
mva #0 ntmp
|
|
lp
|
|
ldx ntmp
|
|
ldy #98
|
|
jsr dino
|
|
key
|
|
jsr dino_clear
|
|
key
|
|
inc:lda ntmp
|
|
cmp #3
|
|
bne lp
|
|
jmp llp
|
|
|
|
|
|
halt 03
|
|
|
|
run start
|
|
ntmp .by 0
|
|
|
|
icl 'procs.asm'
|
|
icl 'artwork.asm' |