Warning: assert() has been disabled for security reasons in /webHome/host6010759/www/wordpress/wp-includes/sodium_compat/autoload.php on line 68 {"id":166,"date":"2024-09-18T19:25:06","date_gmt":"2024-09-18T11:25:06","guid":{"rendered":"http:\/\/www.nantz.top\/wordpress\/?p=166"},"modified":"2024-09-18T20:15:09","modified_gmt":"2024-09-18T12:15:09","slug":"%e5%85%b3%e4%ba%8evc2022%e4%b8%8enesasm","status":"publish","type":"post","link":"http:\/\/www.nantz.top\/wordpress\/?p=166","title":{"rendered":"\u5173\u4e8eVC2022\u4e0eNESasm"},"content":{"rendered":"\n

VC 2022\u662fc\u8bed\u8a00\u7f16\u8bd1\u5668\u3002 NESASM\u662f\u4efb\u5929\u5802\u7ea2\u767d\u673a\u7a0b\u5e8f\u7684\u6c47\u7f16\u7a0b\u5e8f\u3002\u5b66\u4e60\u7248\u7684VC\u7f16\u8bd1 nesasm.\u901a\u4e0d\u8fc7\uff0c\u5176\u539f\u56e0\u662f\u3002\u539f\u6807\u51c6\u5e93\u5217\u4e3a\u4e0d\u5b89\u5168\u6587\u4ef6\u62a5\u9519\uff0c\u52a0\u201c_CRT_SECURE_NO_WARNINGS” \u5b8f\u901a\u8fc7\u7f16\u8bd1\u5668\uff0c\u548clink\u7a0b\u5e8f\u7c7b\u578b\u4e0d\u7b26\uff0c\u5077\u4e86\u4e00\u4e2a\u61d2\u4e0b\u4e86\u4e00\u4e2a\u6700\u65b0\u7248\u7684NESASM\uff0c\u7f16\u4efb\u5929\u58026502\u673a\u987a\u5229\u901a\u8fc7\u3002nesasm \u539f\u6765\u662flinux\u4e0b\u4f7f\u7528\u7684\u3002\u7528VC60\u4f1a\u901a\u8fc7\u3002\u53ef\u601c\u7684\u7535\u8111\u4f7f\u7528\u73af\u5883\u3002\u5b66\u4e60\u7248\u603b\u4f1a\u4e0d\u6e05\u767d\u3002<\/p>\n\n\n\n

\"\"<\/figure>\n\n\n\n
\"\"<\/figure>\n\n\n\n
\"\"<\/figure>\n\n\n\n

\u4e00\u4e2a\u6e90\u6587\u4ef6\u4f8b\u5b50 enemy.bas<\/p>\n\n\n\n

array enemy_x\t\t2\narray enemy_y\t\t2\narray enemy_xoff\t2\narray enemy_yoff\t2\narray enemy_type\t2\narray enemy_status 2\n\nenemysetup:\n\tset enemy_type  1\n\tset enemy_xoff  8\n\tset enemy_yoff  0\n\tset enemy_x  3\n\tset enemy_y  3\n\tset enemy_dir 0\n\tset enemy_frame 0\n\tset which_enemy 0\n\tset maxenemies 0 \/\/number of enemies -1\n\tset goomba_feet 0\n\tset deadsecs 6\n\tset deadframes 120\n\treturn\n\nenemyhandler:\n\tset enemy_typevar enemy_type\n\tgosub goomba_move\n\/\/\tfor which_enemy = 0 to maxenemies\n\/\/\t\tset enemy_typevar [ enemy_type which_enemy ]\n\/\/\t\tif enemy_typevar = 1 gosub goomba_move\n\/\/\tnext which_enemy\n\treturn\n\n\/\/requires which_enemy\ngoomba_move:\n\tif enemy_frame <> 0 goto goomba_move_2\n\tif enemy_dir = 255 goto goomba_dead\n\tif enemy_dir = 0 then\n\t\tgosub goomba_request_right\n\t\tgoto goomba_move_2\n\t\tendif\n\tif enemy_dir = 1\n\t\tgosub goomba_request_left\ngoomba_move_2:\n\tgosub goomba_request_fall\n\tinc enemy_frame\n\tif enemy_frame = 4 set enemy_frame 0\n\tset enemy_sprite 20\n\tif + screen_x 1 > enemy_x then\n\t\tset enemy_yloc 241\n\t\tgoto goomba_move_3\n\t\tendif\n\tif + screen_x 14 <= enemy_x then\n\t\tset enemy_yloc 241\n\t\tgoto goomba_move_3\n\t\tendif\n\tset enemy_tile 12\n\tset enemy_yloc + << enemy_y 4 enemy_yoff\n\tset enemy_xloc + << - enemy_x screen_x 4 - enemy_xoff screen_xoff\ngoomba_move_3:\n\tif goomba_feet < 12 then\n\t\tset enemy_colorbit 2\n\t\tgosub draw_enemy\n\t\tendif\n\tif goomba_feet >= 12 then\n\t\tset enemy_colorbit 66\n\t\tgosub draw_enemy_reverse\n\t\tendif\n\tinc goomba_feet\n\tif goomba_feet = 24 set goomba_feet 0\n\treturn\n\ngoomba_dead:\n\tgosub goomba_request_fall\n\tset enemy_colorbit %10000010\n\tset enemy_yloc + << enemy_y 4 enemy_yoff\n\tif + screen_x 14 <= enemy_x set enemy_yloc 245 \/\/hide off-screen\n\tif + screen_x 1 > enemy_x set enemy_yloc 245 \/\/hide off-screen\n\tset enemy_xloc + << - enemy_x screen_x 4 - enemy_xoff screen_xoff\n\tgosub draw_enemy\n\tdec deadframes\n\tif deadframes = 0 then\n\t\tset deadframes 120\n\t\tdec deadsecs\n\t\tif deadsecs = 0 then\n\t\t\tset deadsecs 6\n\t\t\tset enemy_dir 1\n\t\t\tendif\n\t\tendif\n\treturn\n\ngoomba_request_right:\n\tset idx + + << enemy_y 4 enemy_x 1\n\tset collide_right [ leveldata idx ]\n\tif enemy_x >= 16 set collide_right [ leveldata2 idx ]\ngoomba_request_right_2:\n\tif collide_right = 0 then\n\t\tinc enemy_xoff\n\t\tif enemy_xoff = 16 then\n\t\t\tset enemy_xoff 0\n\t\t\tinc enemy_x\n\t\t\tendif\n\t\treturn\n\t\tendif\n\tset enemy_dir 1 \/\/go left now\n\treturn\n\ngoomba_request_left:\n\tset idx + << enemy_y 4 enemy_x\n\tset collide_left [ leveldata idx ]\n\tif enemy_x >= 16 set collide_left [ leveldata2 idx ]\n\tif collide_left = 0 then\n\t\tdec enemy_xoff\n\t\tif enemy_xoff = 255 then\n\t\t\tset enemy_xoff 15\n\t\t\tdec enemy_x\n\t\t\tendif\n\t\treturn\n\t\tendif\n\tset enemy_dir 0 \/\/go right now\n\treturn\n\ngoomba_request_fall:\n\tset idx + + << enemy_y 4 enemy_x 16\n\tset collide_down [ leveldata idx ]\n\tif enemy_x >= 16 then\n\t\tset idx - idx 16\n\t\tset collide_down [ leveldata2 idx ]\n\t\tendif\n\tif collide_down = 0 then\n\t\tinc enemy_yoff\n\t\tif enemy_yoff = 16 then\n\t\t\tset enemy_yoff 0\n\t\t\tinc enemy_y\n\t\t\tendif\n\t\treturn\n\t\tendif\n\treturn\n\ndraw_enemies:\n\tfor which_enemy = 0 to maxenemies\n\t\tset enemy_typevar [ enemy_type which_enemy ]\n\t\tif enemy_typevar = 1 gosub draw_enemy\n\tnext which_enemy\n\treturn\n\n\/\/requires enemy_sprite, enemy_tile, enemy_xloc, enemy_yloc, enemy_colorbit\ndraw_enemy:\n\tset [ spritemem 16 ] enemy_yloc\n\tset [ spritemem 17 ] enemy_tile\n\tset [ spritemem 18 ] enemy_colorbit\n\tset [ spritemem 19 ] enemy_xloc\n\n\tset [ spritemem 20 ] enemy_yloc\n\tset [ spritemem 21 ] + enemy_tile 2\n\tset [ spritemem 22 ] enemy_colorbit\n\tset [ spritemem 23 ] + enemy_xloc 8\n\treturn\n\ndraw_enemy_reverse:\n\tset [ spritemem 16 ] enemy_yloc\n\tset [ spritemem 17 ] + enemy_tile 2\n\tset [ spritemem 18 ] enemy_colorbit\n\tset [ spritemem 19 ] enemy_xloc\n\n\tset [ spritemem 20 ] enemy_yloc\n\tset [ spritemem 21 ] enemy_tile\n\tset [ spritemem 22 ] enemy_colorbit\n\tset [ spritemem 23 ] + enemy_xloc 8\n\treturn\n<\/code><\/pre>\n\n\n\n
enemytest.asm<\/p>\n\n\n\n
spritemem=0
nbasic_temp2=256
reset_game=257
joya=258
joyb=259
joyup=260
joydown=261
joyright=262
joyleft=263
joyselect=264
joystart=265
frame=266
inflight=267
direction=268
facing=269
i=270
scrollval=271
screen_x=272
screen_xoff=273
sack_x=274
sack_xoff=275
spritex=276
sack_x2=277
spritey=278
sack_sprite=279
sack_moveframe=280
musicframe=281
notelength=282
whichnote=283
enemy_x=284
enemy_y=286
enemy_xoff=288
enemy_yoff=290
enemy_type=292
enemy_status=294
enemy_dir=296
enemy_frame=297
which_enemy=298
maxenemies=299
goomba_feet=300
deadsecs=301
deadframes=302
enemy_typevar=303
enemy_sprite=304
enemy_yloc=305
enemy_tile=306
nbasic_temp=307
enemy_xloc=308
enemy_colorbit=309
idx=310
collide_right=311
collide_left=312
collide_down=313
sack_dead_secs=314
sack_dead_frames=315
is_crouching=316
okjump=317
collide_low=318
collide_top=319
gravindex=320
gravity_delta=321
collide_y1=322
collide_y2=323
collide_x1=324
collide_x2=325
collide_result=326
column_read=327
which_column=329
my_x=330
temp_column=331
highbyte=332
lowbyte=333
numcolumns=334
.inesprg 2
.ineschr 1
.inesmir 1
.inesmap 0<\/p>\n\n\n\n
.org $8000\n.bank 0\n.db $ff,$ff,$ff,$ff,0,0,0,0,0,0,0,0,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,0,0,0,0,0,0,0,0\n.db $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,0,0,0,0,0,0,0,0\n.db $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,0,0,0,0,0,0,0,0\n.db $ff,$ff,$ff,$ff<\/code><\/pre>\n\n\n\n
start:
jsr initsound
jsr vwait
lda #48
sta $2000
lda #4
sta $2001
jsr palette
jsr clearsprites
jsr varsetup
jsr musicsetup
jsr enemysetup
jsr vwait
jsr loadbackground
lda #48
sta $2000
lda #28
sta $2001
mainloop:
jsr joystick
jsr joyhandler
jsr jumphandler
jsr enemyhandler
jsr drawsack
jsr musicloop
jsr vwait
jsr drawstuff
lda #1
sta nbasic_temp2
lda reset_game
cmp nbasic_temp2
bne nbasic_autolabel1
jmp start
nbasic_autolabel1:
jmp mainloop
varsetup:
lda #0
sta joya
lda #0
sta joyb
lda #0
sta joyup
lda #0
sta joydown
lda #0
sta joyright
lda #0
sta joyleft
lda #0
sta joyselect
lda #0
sta joystart
lda #0
sta frame
lda #2
sta inflight
lda #0
sta direction
lda #1
sta facing
lda #0
sta i
lda #0
sta scrollval
lda #0
sta screen_x
lda #0
sta screen_xoff
lda #2
sta sack_x
lda #0
sta sack_xoff
lda sack_x
asl a
asl a
asl a
asl a
sta spritex
lda spritex
sta sack_x2
lda #60
sta spritey
lda #0
sta reset_game
lda #32
sta sack_sprite
lda #0
sta sack_moveframe
rts
initsound:
lda #0
sta $4015
lda #31
sta $4015
rts
musicsetup:
lda #0
sta musicframe
lda #0
sta notelength
lda #0
sta whichnote
rts
musicloop:
lda #0
sta nbasic_temp2
lda notelength
cmp nbasic_temp2
beq nbasic_autolabel2
dec notelength
rts
nbasic_autolabel2:
lda #91
sta nbasic_temp2
lda whichnote
cmp nbasic_temp2
bmi nbasic_autolabel3
lda #0
sta whichnote
nbasic_autolabel3:
ldx whichnote
lda musicdata, x
sta notelength
lda #0
sta nbasic_temp2
lda notelength
cmp nbasic_temp2
bne nbasic_autolabel4
inc whichnote
ldx whichnote
lda musicdata, x
sta notelength
inc whichnote
lda #0
sta $4004
sta $4005
sta $4006
sta $4007
rts
nbasic_autolabel4:
inc whichnote
ldx whichnote
lda musicdata, x
sta $4004
inx
lda musicdata, x
sta $4005
inx
lda musicdata, x
sta $4006
inx
lda musicdata, x
sta $4007
inx
lda whichnote
clc
adc #4
sta whichnote
rts
musicdata:
.db 23,145,0,253,48
.db 22,145,0,239,48
.db 23,145,0,201,48
.db 22,145,0,190,48
.db 23,145,0,201,48
.db 22,145,0,239,48
.db 23,145,0,253,48
.db 22,145,0,239,48
.db 23,145,0,201,48
.db 22,145,0,190,48
.db 23,145,0,201,48
.db 22,145,0,239,48
.db 23,145,0,253,48
.db 23,145,0,239,48
.db 0,22
.db 22,145,0,253,48
.db 23,145,0,239,48
.db 0,22
.db 23,145,0,239,48
.db 0,22
enemysetup:
lda #1
sta enemy_type
lda #8
sta enemy_xoff
lda #0
sta enemy_yoff
lda #3
sta enemy_x
lda #3
sta enemy_y
lda #0
sta enemy_dir
lda #0
sta enemy_frame
lda #0
sta which_enemy
lda #0
sta maxenemies
lda #0
sta goomba_feet
lda #6
sta deadsecs
lda #120
sta deadframes
rts
enemyhandler:
lda enemy_type
sta enemy_typevar
jsr goomba_move
rts
goomba_move:
lda #0
sta nbasic_temp2
lda enemy_frame
cmp nbasic_temp2
beq nbasic_autolabel5
jmp goomba_move_2
nbasic_autolabel5:
lda #255
sta nbasic_temp2
lda enemy_dir
cmp nbasic_temp2
bne nbasic_autolabel6
jmp goomba_dead
nbasic_autolabel6:
lda #0
sta nbasic_temp2
lda enemy_dir
cmp nbasic_temp2
bne nbasic_autolabel7
jsr goomba_request_right
jmp goomba_move_2
nbasic_autolabel7:
lda #1
sta nbasic_temp2
lda enemy_dir
cmp nbasic_temp2
bne nbasic_autolabel8
jsr goomba_request_left
nbasic_autolabel8:
goomba_move_2:
jsr goomba_request_fall
inc enemy_frame
lda #4
sta nbasic_temp2
lda enemy_frame
cmp nbasic_temp2
bne nbasic_autolabel9
lda #0
sta enemy_frame
nbasic_autolabel9:
lda #20
sta enemy_sprite
lda enemy_x
sta nbasic_temp2
lda screen_x
clc
adc #1
cmp nbasic_temp2
bmi nbasic_autolabel10
beq nbasic_autolabel10
lda #241
sta enemy_yloc
jmp goomba_move_3
nbasic_autolabel10:
lda enemy_x
sta nbasic_temp2
lda screen_x
clc
adc #14
cmp nbasic_temp2
bpl nbasic_autolabel11
lda #241
sta enemy_yloc
jmp goomba_move_3
nbasic_autolabel11:
lda #12
sta enemy_tile
lda enemy_y
asl a
asl a
asl a
asl a
clc
adc enemy_yoff
sta enemy_yloc
lda enemy_x
sec
sbc screen_x
asl a
asl a
asl a
asl a
pha
lda enemy_xoff
sec
sbc screen_xoff
sta nbasic_temp
pla
clc
adc nbasic_temp
sta enemy_xloc
goomba_move_3:
lda #12
sta nbasic_temp2
lda goomba_feet
cmp nbasic_temp2
bpl nbasic_autolabel12
beq nbasic_autolabel12
lda #2
sta enemy_colorbit
jsr draw_enemy
nbasic_autolabel12:
lda #12
sta nbasic_temp2
lda goomba_feet
cmp nbasic_temp2
bmi nbasic_autolabel13
lda #66
sta enemy_colorbit
jsr draw_enemy_reverse
nbasic_autolabel13:
inc goomba_feet
lda #24
sta nbasic_temp2
lda goomba_feet
cmp nbasic_temp2
bne nbasic_autolabel14
lda #0
sta goomba_feet
nbasic_autolabel14:
rts
goomba_dead:
jsr goomba_request_fall
lda #130
sta enemy_colorbit
lda enemy_y
asl a
asl a
asl a
asl a
clc
adc enemy_yoff
sta enemy_yloc
lda enemy_x
sta nbasic_temp2
lda screen_x
clc
adc #14
cmp nbasic_temp2
bpl nbasic_autolabel15
lda #245
sta enemy_yloc
nbasic_autolabel15:
lda enemy_x
sta nbasic_temp2
lda screen_x
clc
adc #1
cmp nbasic_temp2
bmi nbasic_autolabel16
beq nbasic_autolabel16
lda #245
sta enemy_yloc
nbasic_autolabel16:
lda enemy_x
sec
sbc screen_x
asl a
asl a
asl a
asl a
pha
lda enemy_xoff
sec
sbc screen_xoff
sta nbasic_temp
pla
clc
adc nbasic_temp
sta enemy_xloc
jsr draw_enemy
dec deadframes
lda #0
sta nbasic_temp2
lda deadframes
cmp nbasic_temp2
bne nbasic_autolabel17
lda #120
sta deadframes
dec deadsecs
lda #0
sta nbasic_temp2
lda deadsecs
cmp nbasic_temp2
bne nbasic_autolabel18
lda #6
sta deadsecs
lda #1
sta enemy_dir
nbasic_autolabel18:
nbasic_autolabel17:
rts
goomba_request_right:
lda enemy_y
asl a
asl a
asl a
asl a
clc
adc enemy_x
clc
adc #1
sta idx
ldx idx
lda leveldata, x
sta collide_right
lda #16
sta nbasic_temp2
lda enemy_x
cmp nbasic_temp2
bmi nbasic_autolabel19
ldx idx
lda leveldata2, x
sta collide_right
nbasic_autolabel19:
goomba_request_right_2:
lda #0
sta nbasic_temp2
lda collide_right
cmp nbasic_temp2
bne nbasic_autolabel20
inc enemy_xoff
lda #16
sta nbasic_temp2
lda enemy_xoff
cmp nbasic_temp2
bne nbasic_autolabel21
lda #0
sta enemy_xoff
inc enemy_x
nbasic_autolabel21:
rts
nbasic_autolabel20:
lda #1
sta enemy_dir
rts
goomba_request_left:
lda enemy_y
asl a
asl a
asl a
asl a
clc
adc enemy_x
sta idx
ldx idx
lda leveldata, x
sta collide_left
lda #16
sta nbasic_temp2
lda enemy_x
cmp nbasic_temp2
bmi nbasic_autolabel22
ldx idx
lda leveldata2, x
sta collide_left
nbasic_autolabel22:
lda #0
sta nbasic_temp2
lda collide_left
cmp nbasic_temp2
bne nbasic_autolabel23
dec enemy_xoff
lda #255
sta nbasic_temp2
lda enemy_xoff
cmp nbasic_temp2
bne nbasic_autolabel24
lda #15
sta enemy_xoff
dec enemy_x
nbasic_autolabel24:
rts
nbasic_autolabel23:
lda #0
sta enemy_dir
rts
goomba_request_fall:
lda enemy_y
asl a
asl a
asl a
asl a
clc
adc enemy_x
clc
adc #16
sta idx
ldx idx
lda leveldata, x
sta collide_down
lda #16
sta nbasic_temp2
lda enemy_x
cmp nbasic_temp2
bmi nbasic_autolabel25
lda idx
sec
sbc #16
sta idx
ldx idx
lda leveldata2, x
sta collide_down
nbasic_autolabel25:
lda #0
sta nbasic_temp2
lda collide_down
cmp nbasic_temp2
bne nbasic_autolabel26
inc enemy_yoff
lda #16
sta nbasic_temp2
lda enemy_yoff
cmp nbasic_temp2
bne nbasic_autolabel27
lda #0
sta enemy_yoff
inc enemy_y
nbasic_autolabel27:
rts
nbasic_autolabel26:
rts
draw_enemies:
lda #0
sta which_enemy
nbasic_autolabel28:
ldx which_enemy
lda enemy_type, x
sta enemy_typevar
lda #1
sta nbasic_temp2
lda enemy_typevar
cmp nbasic_temp2
bne nbasic_autolabel29
jsr draw_enemy
nbasic_autolabel29:
sta nbasic_temp
inc which_enemy
lda which_enemy
cmp nbasic_temp
bmi nbasic_autolabel28
beq nbasic_autolabel28
rts
draw_enemy:
ldx #16
lda enemy_yloc
sta spritemem, x
ldx #17
lda enemy_tile
sta spritemem, x
ldx #18
lda enemy_colorbit
sta spritemem, x
ldx #19
lda enemy_xloc
sta spritemem, x
ldx #20
lda enemy_yloc
sta spritemem, x
ldx #21
lda enemy_tile
clc
adc #2
sta spritemem, x
ldx #22
lda enemy_colorbit
sta spritemem, x
ldx #23
lda enemy_xloc
clc
adc #8
sta spritemem, x
rts
draw_enemy_reverse:
ldx #16
lda enemy_yloc
sta spritemem, x
ldx #17
lda enemy_tile
clc
adc #2
sta spritemem, x
ldx #18
lda enemy_colorbit
sta spritemem, x
ldx #19
lda enemy_xloc
sta spritemem, x
ldx #20
lda enemy_yloc
sta spritemem, x
ldx #21
lda enemy_tile
sta spritemem, x
ldx #22
lda enemy_colorbit
sta spritemem, x
ldx #23
lda enemy_xloc
clc
adc #8
sta spritemem, x
rts
joyhandler:
lda #0
sta nbasic_temp2
lda sack_dead_secs
cmp nbasic_temp2
beq nbasic_autolabel30
lda #32
sta sack_sprite
jsr jumphandler
dec sack_dead_frames
lda #0
sta nbasic_temp2
lda sack_dead_frames
cmp nbasic_temp2
bne nbasic_autolabel31
lda #60
sta sack_dead_frames
dec sack_dead_secs
nbasic_autolabel31:
rts
nbasic_autolabel30:
lda #0
sta direction
lda #0
sta is_crouching
lda #1
sta nbasic_temp2
lda joyright
cmp nbasic_temp2
bne nbasic_autolabel32
lda #1
sta direction
lda #1
sta facing
jmp joyhandler2
nbasic_autolabel32:
lda #1
sta nbasic_temp2
lda joyleft
cmp nbasic_temp2
bne nbasic_autolabel33
lda #255
sta direction
lda #0
sta facing
jmp joyhandler2
nbasic_autolabel33:
lda #32
sta sack_sprite
joyhandler2:
lda #1
sta nbasic_temp2
lda joydown
cmp nbasic_temp2
bne nbasic_autolabel34
lda #56
sta sack_sprite
lda #1
sta is_crouching
nbasic_autolabel34:
jsr sack_collide_enemy
lda #0
sta nbasic_temp2
lda direction
cmp nbasic_temp2
beq nbasic_autolabel35
jsr request_move
nbasic_autolabel35:
lda #1
sta nbasic_temp2
lda joya
cmp nbasic_temp2
bne nbasic_autolabel36
lda #1
sta nbasic_temp2
lda okjump
cmp nbasic_temp2
bne nbasic_autolabel37
jsr jumpstart
nbasic_autolabel37:
nbasic_autolabel36:
lda #1
sta nbasic_temp2
lda joyselect
cmp nbasic_temp2
bne nbasic_autolabel38
lda #1
sta reset_game
nbasic_autolabel38:
rts
request_move:
inc sack_moveframe
lda #12
sta nbasic_temp2
lda sack_moveframe
cmp nbasic_temp2
bne nbasic_autolabel39
lda #0
sta sack_moveframe
lda #32
sta nbasic_temp2
lda sack_sprite
cmp nbasic_temp2
bne nbasic_autolabel40
lda #40
sta sack_sprite
jmp request_move_2
nbasic_autolabel40:
lda #32
sta sack_sprite
nbasic_autolabel39:
request_move_2:
lda #255
sta nbasic_temp2
lda direction
cmp nbasic_temp2
bne nbasic_autolabel41
jmp request_left
nbasic_autolabel41:
request_right:
lda sack_x2
clc
adc #8
lsr a
lsr a
lsr a
lsr a
sta idx
lda spritey
and #240
clc
adc idx
sta idx
ldx idx
lda leveldata, x
sta collide_low
lda idx
sec
sbc #16
tax
lda leveldata, x
sta collide_top
lda #16
sta nbasic_temp2
lda sack_x
cmp nbasic_temp2
bmi nbasic_autolabel42
ldx idx
lda leveldata2, x
sta collide_low
lda idx
sec
sbc #16
tax
lda leveldata2, x
sta collide_top
nbasic_autolabel42:
lda #0
sta nbasic_temp2
lda collide_low
cmp nbasic_temp2
beq nbasic_autolabel43
jmp collision
nbasic_autolabel43:
lda #1
sta nbasic_temp2
lda is_crouching
cmp nbasic_temp2
bne nbasic_autolabel44
lda #0
sta collide_top
nbasic_autolabel44:
lda #0
sta nbasic_temp2
lda collide_top
cmp nbasic_temp2
beq nbasic_autolabel45
jmp collision
nbasic_autolabel45:
jsr move_right
lda #0
sta nbasic_temp2
lda inflight
cmp nbasic_temp2
bne nbasic_autolabel46
lda #2
sta inflight
nbasic_autolabel46:
rts
request_left:
lda sack_x2
sec
sbc #8
lsr a
lsr a
lsr a
lsr a
sta idx
lda spritey
and #240
clc
adc idx
sta idx
ldx idx
lda leveldata, x
sta collide_low
lda idx
sec
sbc #16
tax
lda leveldata, x
sta collide_top
lda #17
sta nbasic_temp2
lda sack_x
cmp nbasic_temp2
bmi nbasic_autolabel47
ldx idx
lda leveldata2, x
sta collide_low
lda idx
sec
sbc #16
tax
lda leveldata2, x
sta collide_top
nbasic_autolabel47:
lda #0
sta nbasic_temp2
lda collide_low
cmp nbasic_temp2
beq nbasic_autolabel48
jmp collision
nbasic_autolabel48:
lda #1
sta nbasic_temp2
lda is_crouching
cmp nbasic_temp2
bne nbasic_autolabel49
lda #0
sta collide_top
nbasic_autolabel49:
lda #0
sta nbasic_temp2
lda collide_top
cmp nbasic_temp2
beq nbasic_autolabel50
jmp collision
nbasic_autolabel50:
jsr move_left
lda #0
sta nbasic_temp2
lda inflight
cmp nbasic_temp2
bne nbasic_autolabel51
lda #2
sta inflight
nbasic_autolabel51:
rts
collision:
lda #0
sta direction
rts
move_right:
lda #31
sta nbasic_temp2
lda sack_x
cmp nbasic_temp2
bne nbasic_autolabel52
rts
nbasic_autolabel52:
inc sack_xoff
lda #16
sta nbasic_temp2
lda sack_xoff
cmp nbasic_temp2
bne nbasic_autolabel53
lda #0
sta sack_xoff
inc sack_x
nbasic_autolabel53:
lda #10
sta nbasic_temp2
lda sack_x
sec
sbc screen_x
cmp nbasic_temp2
bmi nbasic_autolabel54
beq nbasic_autolabel54
jsr scroll_right
nbasic_autolabel54:
jsr set_x_coords
rts
move_left:
lda #0
sta nbasic_temp2
lda sack_x
cmp nbasic_temp2
bne nbasic_autolabel55
rts
nbasic_autolabel55:
dec sack_xoff
lda #255
sta nbasic_temp2
lda sack_xoff
cmp nbasic_temp2
bne nbasic_autolabel56
lda #15
sta sack_xoff
dec sack_x
nbasic_autolabel56:
lda #6
sta nbasic_temp2
lda sack_x
sec
sbc screen_x
cmp nbasic_temp2
bpl nbasic_autolabel57
beq nbasic_autolabel57
jsr scroll_left
nbasic_autolabel57:
jsr set_x_coords
rts
set_x_coords:
lda sack_x
sec
sbc screen_x
asl a
asl a
asl a
asl a
pha
lda sack_xoff
sec
sbc screen_xoff
sta nbasic_temp
pla
clc
adc nbasic_temp
sta spritex
lda #16
sta nbasic_temp2
lda sack_x
cmp nbasic_temp2
bmi nbasic_autolabel58
lda sack_x
sec
sbc #16
asl a
asl a
asl a
asl a
clc
adc sack_xoff
sta sack_x2
rts
nbasic_autolabel58:
lda sack_x
asl a
asl a
asl a
asl a
clc
adc sack_xoff
sta sack_x2
rts
jumpstart:
lda #1
sta nbasic_temp2
lda okjump
cmp nbasic_temp2
beq nbasic_autolabel59
rts
nbasic_autolabel59:
jsr playsound_jump
lda #1
sta inflight
lda #50
sta gravindex
lda #0
sta gravity_delta
lda #0
sta okjump
rts
highjump:
lda #1
sta inflight
lda #64
sta gravindex
lda #0
sta gravity_delta
lda #0
sta okjump
rts
gravity:
.db 0, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 1, 0, 1, 1, 0, 1
.db 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 2, 1, 1, 2, 1
.db 2, 1, 2, 2, 1, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2
.db 3, 3, 3, 3, 3, 3
.db 0, 0, 0, 0, 1, 0, 0, 1, 0, 1, 1, 0, 1, 1, 1, 1, 1, 2, 1, 1
.db 2, 1, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 3, 2, 3, 2, 3, 3, 3, 2
.db 3, 3, 3, 3, 3, 3, 4, 3, 3, 4, 4, 4, 3, 4, 4, 4, 4, 4, 4, 4
.db 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4
jumphandler:
lda #0
sta nbasic_temp2
lda inflight
cmp nbasic_temp2
bne nbasic_autolabel60
lda #0
sta nbasic_temp2
lda joya
cmp nbasic_temp2
bne nbasic_autolabel61
lda #1
sta okjump
nbasic_autolabel61:
rts
nbasic_autolabel60:
ldx gravindex
lda gravity, x
sta gravity_delta
lda #1
sta nbasic_temp2
lda inflight
cmp nbasic_temp2
bne nbasic_autolabel62
lda #48
sta sack_sprite
lda sack_x2
lsr a
lsr a
lsr a
lsr a
sta idx
lda spritey
sec
sbc #16
sec
sbc gravity_delta
and #240
clc
adc idx
sta idx
ldx idx
lda leveldata, x
sta collide_top
lda #16
sta nbasic_temp2
lda sack_x
cmp nbasic_temp2
bmi nbasic_autolabel63
ldx idx
lda leveldata2, x
sta collide_top
nbasic_autolabel63:
lda #0
sta nbasic_temp2
lda collide_top
cmp nbasic_temp2
beq nbasic_autolabel64
lda #2
sta inflight
dec gravindex
rts
nbasic_autolabel64:
lda spritey
sec
sbc gravity_delta
sta spritey
lda #0
sta nbasic_temp2
lda gravindex
cmp nbasic_temp2
bmi nbasic_autolabel65
beq nbasic_autolabel65
dec gravindex
rts
nbasic_autolabel65:
lda #2
sta inflight
rts
nbasic_autolabel62:
lda sack_x2
lsr a
lsr a
lsr a
lsr a
sta idx
lda spritey
clc
adc gravity_delta
and #240
clc
adc idx
sta idx
ldx idx
lda leveldata, x
sta collide_low
lda #16
sta nbasic_temp2
lda sack_x
cmp nbasic_temp2
bmi nbasic_autolabel66
ldx idx
lda leveldata2, x
sta collide_low
nbasic_autolabel66:
lda #0
sta nbasic_temp2
lda collide_low
cmp nbasic_temp2
beq nbasic_autolabel67
lda #54
sta nbasic_temp2
lda gravindex
cmp nbasic_temp2
bmi nbasic_autolabel68
jsr playsound_thump
nbasic_autolabel68:
lda #0
sta inflight
lda #0
sta nbasic_temp2
lda joya
cmp nbasic_temp2
bne nbasic_autolabel69
lda #1
sta okjump
nbasic_autolabel69:
lda #6
sta gravindex
rts
nbasic_autolabel67:
lda spritey
clc
adc gravity_delta
sta spritey
lda #55
sta nbasic_temp2
lda gravindex
cmp nbasic_temp2
bpl nbasic_autolabel70
lda #0
sta okjump
inc gravindex
lda #48
sta sack_sprite
rts
nbasic_autolabel70:
lda #2
sta inflight
lda #48
sta sack_sprite
rts
sack_collide_enemy:
lda #255
sta nbasic_temp2
lda enemy_dir
cmp nbasic_temp2
bne nbasic_autolabel71
rts
nbasic_autolabel71:
lda #0
sta nbasic_temp2
lda sack_dead_secs
cmp nbasic_temp2
beq nbasic_autolabel72
rts
nbasic_autolabel72:
lda enemy_y
asl a
asl a
asl a
asl a
clc
adc enemy_yoff
sta collide_y1
lda spritey
sec
sbc collide_y1
sta collide_y2
lda collide_y1
sta nbasic_temp2
lda spritey
cmp nbasic_temp2
bpl nbasic_autolabel73
beq nbasic_autolabel73
rts
nbasic_autolabel73:
lda #24
sta nbasic_temp2
lda collide_y2
cmp nbasic_temp2
bmi nbasic_autolabel74
beq nbasic_autolabel74
rts
nbasic_autolabel74:
lda enemy_x
asl a
asl a
asl a
pha
lda enemy_xoff
lsr a
sta nbasic_temp
pla
clc
adc nbasic_temp
sta collide_x1
lda sack_x
asl a
asl a
asl a
pha
lda sack_xoff
lsr a
sta nbasic_temp
pla
clc
adc nbasic_temp
sta collide_x2
lda collide_x2
sec
sbc collide_x1
sta collide_result
lda collide_x2
sta nbasic_temp2
lda collide_x1
cmp nbasic_temp2
bmi nbasic_autolabel75
beq nbasic_autolabel75
lda #254
sta nbasic_temp2
lda collide_result
cmp nbasic_temp2
bmi nbasic_autolabel76
jmp sack_collide_enemy_right
nbasic_autolabel76:
nbasic_autolabel75:
lda collide_x2
sta nbasic_temp2
lda collide_x1
cmp nbasic_temp2
bpl nbasic_autolabel77
beq nbasic_autolabel77
lda #12
sta nbasic_temp2
lda collide_result
cmp nbasic_temp2
bpl nbasic_autolabel78
jmp sack_collide_enemy_left
nbasic_autolabel78:
nbasic_autolabel77:
rts
sack_collide_enemy_right:
lda #2
sta nbasic_temp2
lda inflight
cmp nbasic_temp2
bne nbasic_autolabel79
lda #1
sta nbasic_temp2
lda collide_y2
cmp nbasic_temp2
bpl nbasic_autolabel80
jmp sack_collide_enemy_bottom
nbasic_autolabel80:
nbasic_autolabel79:
lda #0
sta enemy_dir
lda #1
sta nbasic_temp2
lda direction
cmp nbasic_temp2
bne nbasic_autolabel81
lda #0
sta direction
nbasic_autolabel81:
lda #6
sta sack_dead_secs
lda #60
sta sack_dead_frames
rts
sack_collide_enemy_left:
lda #2
sta nbasic_temp2
lda inflight
cmp nbasic_temp2
bne nbasic_autolabel82
lda #4
sta nbasic_temp2
lda collide_y2
cmp nbasic_temp2
bpl nbasic_autolabel83
beq nbasic_autolabel83
jmp sack_collide_enemy_bottom
nbasic_autolabel83:
nbasic_autolabel82:
lda #1
sta enemy_dir
lda #255
sta nbasic_temp2
lda direction
cmp nbasic_temp2
bne nbasic_autolabel84
lda #0
sta direction
nbasic_autolabel84:
lda #6
sta sack_dead_secs
lda #60
sta sack_dead_frames
rts
sack_collide_enemy_bottom:
jsr playsound_squish
lda #255
sta enemy_dir
lda #1
sta inflight
lda #25
sta gravindex
lda #1
sta nbasic_temp2
lda joya
cmp nbasic_temp2
bne nbasic_autolabel85
jsr highjump
nbasic_autolabel85:
rts
joystick:
lda #$01 ;\/\/strobe the joystick
sta $4016
lda #$00
sta $4016
lda $4016 ;\/\/now read values
and #$01
sta joya
lda $4016
and #$01
sta joyb
lda $4016
and #$01
sta joyselect
lda $4016
and #$01
sta joystart
lda $4016
and #$01
sta joyup
lda $4016
and #$01
sta joydown
lda $4016
and #$01
sta joyleft
lda $4016
and #$01
sta joyright
rts
playsound_jump:
lda #152
sta $4000
lda #140
sta $4001
lda #77
sta $4002
lda #149
sta $4003
rts
playsound_thump:
lda #159
sta $4000
lda #132
sta $4001
lda #211
sta $4002
lda #252
sta $4003
rts
playsound_squish:
lda #136
sta $4000
lda #72
sta $4001
lda #37
sta $4002
lda #75
sta $4003
rts
scrollhandler:
lda screen_x
asl a
asl a
asl a
asl a
clc
adc screen_xoff
sta $2005
lda #0
sta $2005
rts
scroll_right:
lda #15
sta nbasic_temp2
lda screen_x
cmp nbasic_temp2
beq nbasic_autolabel86
inc screen_xoff
lda #16
sta nbasic_temp2
lda screen_xoff
cmp nbasic_temp2
bne nbasic_autolabel87
lda #0
sta screen_xoff
inc screen_x
nbasic_autolabel87:
rts
nbasic_autolabel86:
lda #15
sta nbasic_temp2
lda screen_xoff
cmp nbasic_temp2
bne nbasic_autolabel88
rts
nbasic_autolabel88:
inc screen_xoff
rts
scroll_left:
lda #0
sta nbasic_temp2
lda screen_x
cmp nbasic_temp2
beq nbasic_autolabel89
dec screen_xoff
lda #255
sta nbasic_temp2
lda screen_xoff
cmp nbasic_temp2
bne nbasic_autolabel90
lda #15
sta screen_xoff
dec screen_x
nbasic_autolabel90:
rts
nbasic_autolabel89:
lda #0
sta nbasic_temp2
lda screen_xoff
cmp nbasic_temp2
bne nbasic_autolabel91
rts
nbasic_autolabel91:
dec screen_xoff
rts
marker:
lda #20
sta $2003
pla ;\/\/y val
sta $2004
lda #1
sta $2004 ;\/\/sprite index
sta $2004 ;\/\/color bit
pla ;\/\/x val
sta $2004
rts
drawsack:
lda #0
sta nbasic_temp2
lda sack_dead_secs
cmp nbasic_temp2
beq nbasic_autolabel92
jsr drawdead
rts
nbasic_autolabel92:
lda #1
sta nbasic_temp2
lda facing
cmp nbasic_temp2
bne nbasic_autolabel93
jsr drawright
rts
nbasic_autolabel93:
jsr drawleft
rts
clearattrib:
lda #35
sta $2006
lda #192
sta $2006
ldy #63
clearlabel0:
lda #0
sta $2007
dey
cpy #0
bne clearlabel0
rts
clearsprites:
lda #0
sta $2003
lda #0
sta i
nbasic_autolabel94:
lda #245
sta $2004
lda #0
sta $2004
lda #0
sta $2004
lda #0
sta $2004
sta nbasic_temp
inc i
lda i
cmp nbasic_temp
bmi nbasic_autolabel94
beq nbasic_autolabel94
rts
drawleft:
ldx #0
lda spritey
sec
sbc #32
sta spritemem, x
ldx #1
lda sack_sprite
sta spritemem, x
ldx #2
lda #65
sta spritemem, x
ldx #3
lda spritex
sta spritemem, x
ldx #4
lda spritey
sec
sbc #16
sta spritemem, x
ldx #5
lda sack_sprite
clc
adc #2
sta spritemem, x
ldx #6
lda #65
sta spritemem, x
ldx #7
lda spritex
sta spritemem, x
ldx #8
lda spritey
sec
sbc #32
sta spritemem, x
ldx #9
lda sack_sprite
clc
adc #4
sta spritemem, x
ldx #10
lda #65
sta spritemem, x
ldx #11
lda spritex
sec
sbc #8
sta spritemem, x
ldx #12
lda spritey
sec
sbc #16
sta spritemem, x
ldx #13
lda sack_sprite
clc
adc #6
sta spritemem, x
ldx #14
lda #65
sta spritemem, x
ldx #15
lda spritex
sec
sbc #8
sta spritemem, x
rts
drawright:
ldx #0
lda spritey
sec
sbc #32
sta spritemem, x
ldx #1
lda sack_sprite
sta spritemem, x
ldx #2
lda #1
sta spritemem, x
ldx #3
lda spritex
sec
sbc #8
sta spritemem, x
ldx #4
lda spritey
sec
sbc #16
sta spritemem, x
ldx #5
lda sack_sprite
clc
adc #2
sta spritemem, x
ldx #6
lda #1
sta spritemem, x
ldx #7
lda spritex
sec
sbc #8
sta spritemem, x
ldx #8
lda spritey
sec
sbc #32
sta spritemem, x
ldx #9
lda sack_sprite
clc
adc #4
sta spritemem, x
ldx #10
lda #1
sta spritemem, x
ldx #11
lda spritex
sta spritemem, x
ldx #12
lda spritey
sec
sbc #16
sta spritemem, x
ldx #13
lda sack_sprite
clc
adc #6
sta spritemem, x
ldx #14
lda #1
sta spritemem, x
ldx #15
lda spritex
sta spritemem, x
rts
drawdead:
ldx #0
lda spritey
sec
sbc #22
sta spritemem, x
ldx #1
lda sack_sprite
clc
adc #6
sta spritemem, x
ldx #2
lda #193
sta spritemem, x
ldx #3
lda spritex
sec
sbc #8
sta spritemem, x
ldx #4
lda spritey
sec
sbc #6
sta spritemem, x
ldx #5
lda sack_sprite
clc
adc #4
sta spritemem, x
ldx #6
lda #193
sta spritemem, x
ldx #7
lda spritex
sec
sbc #8
sta spritemem, x
ldx #8
lda spritey
sec
sbc #22
sta spritemem, x
ldx #9
lda sack_sprite
clc
adc #2
sta spritemem, x
ldx #10
lda #193
sta spritemem, x
ldx #11
lda spritex
sta spritemem, x
ldx #12
lda spritey
sec
sbc #6
sta spritemem, x
ldx #13
lda sack_sprite
sta spritemem, x
ldx #14
lda #193
sta spritemem, x
ldx #15
lda spritex
sta spritemem, x
rts
vwait:
lda $2002
bpl vwait ;\/\/wait for start of retrace
rts ;\/\/RETURN FOR NOW. THIS IS INCOMPATIBLE WITH OTHER EMULATORS
vwait2:
lda $2002
bmi vwait2 ;\/\/wait for end of retrace
inc frame
rts
ppuinit:
jsr vwait
lda #48
sta $2000
lda #28
sta $2001
rts
titlepal:
;\/\/ .db $00,$05,$09,$28,$00,$18,$09,$28,$00,$19,$18,$0c,$00,$03,$07,$00<\/p>\n\n\n\n
.db $28,$38,$37,$08, $28,$21,$37,$38, $28,$38,$01,$08, $28,$21,$37,$01\n.db $27,13,32,3,0,13,32,$10,0,13,57,24,0,10,11,12 ;\/\/foreground palette<\/code><\/pre>\n\n\n\n
palette:\nlda #63\nsta $2006\nlda #0\nsta $2006\nlda #0\nsta i\npalette_2:\nldx i\nlda titlepal, x\nsta $2007\ninc i\nlda #32\nsta nbasic_temp2\nlda i\ncmp nbasic_temp2\nbne nbasic_autolabel95\nrts\nnbasic_autolabel95:\njmp palette_2\ndrawstuff:\njsr scrollhandler\nlda #0\nsta $4014\nrts\nnmi:\nrti\nhigh_bytes:\n;\/\/name table 0\n.db $20,$20,$20,$20,$20,$20,$20,$20\n.db $21,$21,$21,$21,$21,$21,$21,$21\n.db $22,$22,$22,$22,$22,$22,$22,$22\n.db $23,$23,$23,$23,$23,$23,$23,$23\nhigh_bytes2:\n;\/\/name table 1\n.db $24,$24,$24,$24,$24,$24,$24,$24\n.db $25,$25,$25,$25,$25,$25,$25,$25\n.db $26,$26,$26,$26,$26,$26,$26,$26\n.db $27,$27,$27,$27,$27,$27,$27,$27\nlow_bytes:\n;\/\/name table 0\n.db 0,32,64,96,128,160,192,224\n.db 0,32,64,96,128,160,192,224\n.db 0,32,64,96,128,160,192,224\n.db 0,32,64,96,128,160,192,224\nlow_bytes2:\n;\/\/name table 1\n.db 0,32,64,96,128,160,192,224\n.db 0,32,64,96,128,160,192,224\n.db 0,32,64,96,128,160,192,224\n.db 0,32,64,96,128,160,192,224\nloadbackground:\nlda #0\nsta which_column\nloadbackground_2:\njsr loadcolumn\njsr load_attrib_column\njsr vwait\ninc which_column\nlda #16\nsta nbasic_temp2\nlda which_column\ncmp nbasic_temp2\nbpl nbasic_autolabel96\njmp loadbackground_2\nnbasic_autolabel96:\nrts\nloadcolumn:\nlda #8\nsta nbasic_temp2\nlda which_column\ncmp nbasic_temp2\nbmi nbasic_autolabel97\njmp loadhighcolumn\nnbasic_autolabel97:\nlda which_column\nasl a\nasl a\nasl a\nasl a\nasl a\nsec\nsbc which_column\nsec\nsbc which_column\nsta my_x\nwrite_column_work_0:\nldy #0\nldx my_x\nwrite_column_work_1:\n;\/\/set ppu memory address\nlda high_bytes,y\nsta $2006\nlda which_column\nasl a\nasl a\nclc\nadc low_bytes,y\nsta $2006\n;\/\/write top blocks\nclc\nlda the_level, x\nsta $2007\nadc #1\nsta $2007\ninx\nlda the_level,x\nsta $2007\nadc #1\nsta $2007\ndex\n;\/\/now write the blocks under\niny\nlda high_bytes,y\nsta $2006\nlda which_column\nasl a\nasl a\nclc\nadc low_bytes,y\nsta $2006\nclc\nlda the_level, x\nadc #16\nsta $2007\nadc #1\nsta $2007\ninx\nlda the_level,x\nadc #16\nsta $2007\nadc #1\nsta $2007\ninx\n;\/\/now check if we're done with the column\niny\ncpy #30\nbne write_column_work_1\nrts\nloadhighcolumn:\nlda which_column\nsec\nsbc #8\nsta temp_column\nlda temp_column\nasl a\nasl a\nasl a\nasl a\nasl a\nsec\nsbc temp_column\nsec\nsbc temp_column\nsta my_x\nldy #0\nldx my_x\nwrite_column_work_2:\n;\/\/set ppu memory address\nlda high_bytes2,y\nsta $2006\nlda temp_column\nasl a\nasl a\nclc\nadc low_bytes2,y\nsta $2006\n;\/\/write top blocks\nclc\nlda the_level2, x\nsta $2007\nadc #1\nsta $2007\ninx\nlda the_level2,x\nsta $2007\nadc #1\nsta $2007\ndex\n;\/\/now write the blocks under\niny\nlda high_bytes2,y\nsta $2006\nlda temp_column\nasl a\nasl a\nclc\nadc low_bytes2,y\nsta $2006\nclc\nlda the_level2, x\nadc #16\nsta $2007\nadc #1\nsta $2007\ninx\nlda the_level2,x\nadc #16\nsta $2007\nadc #1\nsta $2007\ninx\n;\/\/now check if we're done with the column\niny\ncpy #30\nbne write_column_work_2\nrts\nload_attrib_column:\nlda #8\nsta nbasic_temp2\nlda which_column\ncmp nbasic_temp2\nbpl nbasic_autolabel98\nbeq nbasic_autolabel98\nlda #35\nsta highbyte\nlda #192\nclc\nadc which_column\nsta lowbyte\njmp load_attrib_column_1\nnbasic_autolabel98:\nlda #39\nsta highbyte\nlda #184\nclc\nadc which_column\nsta lowbyte\nload_attrib_column_1:\nlda which_column\nasl a\nasl a\nasl a\nsta idx\nlda #0\nsta numcolumns\nload_attrib_column_2:\nlda highbyte\nsta $2006\nlda lowbyte\nsta $2006\nldx idx\nlda attrib_table, x\nsta $2007\nlda lowbyte\nclc\nadc #8\nsta lowbyte\ninc idx\ninc numcolumns\nlda #8\nsta nbasic_temp2\nlda numcolumns\ncmp nbasic_temp2\nbne nbasic_autolabel99\nrts\nnbasic_autolabel99:\njmp load_attrib_column_2\nthe_level:\n.incbin \"level\/name1.tbl\"\nthe_level2:\n.incbin \"level\/name2.tbl\"\nattrib_table:\n.incbin \"level\/attrib.tbl\"\nleveldata:\n.db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0\n.db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0\n.db 0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0\n.db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0\n.db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0\n.db 0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0\n.db 0,0,0,0,0,0,1,1,1,1,0,0,1,1,1,0\n.db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0\n.db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0\n.db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0\n.db 0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0\n.db 0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0\n.db 0,1,1,1,1,1,1,1,1,0,0,1,1,1,1,1\n.db 0,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0\n.db 0,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0\n.db 0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1\nleveldata2:\n.db 0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1\n.db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0\n.db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0\n.db 1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1\n.db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0\n.db 0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0\n.db 0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0\n.db 0,1,1,0,0,0,0,0,0,0,0,0,0,1,0,0\n.db 0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0\n.db 0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,1\n.db 0,0,0,1,1,0,0,0,0,0,0,0,1,1,0,0\n.db 0,0,1,1,1,1,1,0,0,0,1,1,1,1,0,0\n.db 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0\n.db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0\n.db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0\n.db 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1\n.bank 3\n.org $fffa\n.dw nmi ;\/\/NMI\n.dw start ;\/\/Reset\n.dw start ;\/\/BRK\n.bank 4\n.org $0000\n.incbin \"foreground.chr\"\n.incbin \"background.chr\"\n;\/\/end of file<\/code><\/pre>\n\n\n\n
enemytest.bas<\/p>\n\n\n\n
\/\/ines header setup\nasm\n\t.inesprg 2\n\t.ineschr 1\n\t.inesmir 1\n\t.inesmap 0\n\t\n\t.org $8000\n\t.bank 0\nendasm\n\/\/test sound, address $8000, 64 bytes\nasm\n\t.db $ff,$ff,$ff,$ff,0,0,0,0,0,0,0,0,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,0,0,0,0,0,0,0,0\n\t.db $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,0,0,0,0,0,0,0,0\n\t.db $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,0,0,0,0,0,0,0,0\n\t.db $ff,$ff,$ff,$ff\nendasm\n\narray spritemem 256\n\n\/\/program start\nstart:\n\tgosub initsound\n\tgosub vwait\n\tset $2000 %00110000\n\tset $2001 %00000100\n\tgosub palette\n\tgosub clearsprites\n\tgosub varsetup\n\tgosub musicsetup\n\tgosub enemysetup\n\tgosub vwait\n\tgosub loadbackground\n\tset $2000 %00110000\n\tset $2001 %00011100\nmainloop:\n\tgosub joystick\n\tgosub joyhandler\n\tgosub jumphandler\n\tgosub enemyhandler\n\tgosub drawsack\n\tgosub musicloop\n\tgosub vwait\n\tgosub drawstuff\n\tif reset_game = 1 goto start\n\tgoto mainloop\n\n\/\/initialization\nvarsetup:\n\tset joya 0\n\tset joyb 0\n\tset joyup 0\n\tset joydown 0\n\tset joyright 0\n\tset joyleft 0\n\tset joyselect 0\n\tset joystart 0\n\tset frame 0\n\tset inflight 2\n\tset direction 0\n\tset facing 1\n\tset i 0\n\tset scrollval 0\n\tset screen_x 0\n\tset screen_xoff 0\n\tset sack_x 2\n\tset sack_xoff 0\n\tset spritex << sack_x 4\n\tset sack_x2 spritex\n\tset spritey 60\n\tset reset_game 0\n\tset sack_sprite 32\n\tset sack_moveframe 0\n\treturn\n\ninitsound:\n\tset $4015 0 \/\/turn off all channels\n\tset $4015 %00011111 \/\/turn them back on\n\/\/\tset $4001 0\n\treturn\n\nmusicsetup:\n\tset musicframe 0\n\tset notelength 0\n\tset whichnote 0\n\treturn\n\nmusicloop:\n\tif notelength <> 0 then\n\t\tdec notelength\n\t\treturn\n\t\tendif\n\tif whichnote >= 91 set whichnote 0\n\tset notelength [ musicdata whichnote ]\n\tif notelength = 0 then\n\t\t\/\/rest handler\n\t\tinc whichnote\n\t\tset notelength [ musicdata whichnote ]\n\t\tinc whichnote\n\/\/\t\tasm\n\/\/\t\t\tlda $4015\n\/\/\t\t\tand %11111101\n\/\/\t\t\tsta $4015 ;\/\/turn off square 2\n\/\/\t\tendasm\n\t\tasm\n\t\t\tlda #0\n\t\t\tsta $4004\n\t\t\tsta $4005\n\t\t\tsta $4006\n\t\t\tsta $4007\n\t\tendasm\n\/\/\t\tset $4004 0\n\t\treturn\n\t\tendif\n\tinc whichnote\n\tasm\n\t\tldx whichnote\n\t\tlda musicdata, x\n\t\tsta $4004\n\t\tinx\n\t\tlda musicdata, x\n\t\tsta $4005\n\t\tinx\n\t\tlda musicdata, x\n\t\tsta $4006\n\t\tinx\n\t\tlda musicdata, x\n\t\tsta $4007\n\t\tinx\n\tendasm\n\/\/\tset $4015 %00011111\n\tset whichnote + whichnote 4\n\treturn\n\nmusicdata:\n\tasm\n  .db 23,145,0,253,48\n  .db 22,145,0,239,48\n  .db 23,145,0,201,48\n  .db 22,145,0,190,48\n  .db 23,145,0,201,48\n  .db 22,145,0,239,48\n  .db 23,145,0,253,48\n  .db 22,145,0,239,48\n  .db 23,145,0,201,48\n  .db 22,145,0,190,48\n  .db 23,145,0,201,48\n  .db 22,145,0,239,48\n  .db 23,145,0,253,48\n  .db 23,145,0,239,48\n  .db 0,22\n  .db 22,145,0,253,48\n  .db 23,145,0,239,48\n  .db 0,22\n  .db 23,145,0,239,48\n  .db 0,22\n\tendasm\n\narray enemy_x\t\t2\narray enemy_y\t\t2\narray enemy_xoff\t2\narray enemy_yoff\t2\narray enemy_type\t2\narray enemy_status 2\n\nenemysetup:\n\tset enemy_type  1\n\tset enemy_xoff  8\n\tset enemy_yoff  0\n\tset enemy_x  3\n\tset enemy_y  3\n\tset enemy_dir 0\n\tset enemy_frame 0\n\tset which_enemy 0\n\tset maxenemies 0 \/\/number of enemies -1\n\tset goomba_feet 0\n\tset deadsecs 6\n\tset deadframes 120\n\treturn\n\nenemyhandler:\n\tset enemy_typevar enemy_type\n\tgosub goomba_move\n\/\/\tfor which_enemy = 0 to maxenemies\n\/\/\t\tset enemy_typevar [ enemy_type which_enemy ]\n\/\/\t\tif enemy_typevar = 1 gosub goomba_move\n\/\/\tnext which_enemy\n\treturn\n\n\/\/requires which_enemy\ngoomba_move:\n\tif enemy_frame <> 0 goto goomba_move_2\n\tif enemy_dir = 255 goto goomba_dead\n\tif enemy_dir = 0 then\n\t\tgosub goomba_request_right\n\t\tgoto goomba_move_2\n\t\tendif\n\tif enemy_dir = 1\n\t\tgosub goomba_request_left\ngoomba_move_2:\n\tgosub goomba_request_fall\n\tinc enemy_frame\n\tif enemy_frame = 4 set enemy_frame 0\n\tset enemy_sprite 20\n\tif + screen_x 1 > enemy_x then\n\t\tset enemy_yloc 241\n\t\tgoto goomba_move_3\n\t\tendif\n\tif + screen_x 14 <= enemy_x then\n\t\tset enemy_yloc 241\n\t\tgoto goomba_move_3\n\t\tendif\n\tset enemy_tile 12\n\tset enemy_yloc + << enemy_y 4 enemy_yoff\n\tset enemy_xloc + << - enemy_x screen_x 4 - enemy_xoff screen_xoff\ngoomba_move_3:\n\tif goomba_feet < 12 then\n\t\tset enemy_colorbit 2\n\t\tgosub draw_enemy\n\t\tendif\n\tif goomba_feet >= 12 then\n\t\tset enemy_colorbit 66\n\t\tgosub draw_enemy_reverse\n\t\tendif\n\tinc goomba_feet\n\tif goomba_feet = 24 set goomba_feet 0\n\treturn\n\ngoomba_dead:\n\tgosub goomba_request_fall\n\tset enemy_colorbit %10000010\n\tset enemy_yloc + << enemy_y 4 enemy_yoff\n\tif + screen_x 14 <= enemy_x set enemy_yloc 245 \/\/hide off-screen\n\tif + screen_x 1 > enemy_x set enemy_yloc 245 \/\/hide off-screen\n\tset enemy_xloc + << - enemy_x screen_x 4 - enemy_xoff screen_xoff\n\tgosub draw_enemy\n\tdec deadframes\n\tif deadframes = 0 then\n\t\tset deadframes 120\n\t\tdec deadsecs\n\t\tif deadsecs = 0 then\n\t\t\tset deadsecs 6\n\t\t\tset enemy_dir 1\n\t\t\tendif\n\t\tendif\n\treturn\n\ngoomba_request_right:\n\tset idx + + << enemy_y 4 enemy_x 1\n\tset collide_right [ leveldata idx ]\n\tif enemy_x >= 16 set collide_right [ leveldata2 idx ]\ngoomba_request_right_2:\n\tif collide_right = 0 then\n\t\tinc enemy_xoff\n\t\tif enemy_xoff = 16 then\n\t\t\tset enemy_xoff 0\n\t\t\tinc enemy_x\n\t\t\tendif\n\t\treturn\n\t\tendif\n\tset enemy_dir 1 \/\/go left now\n\treturn\n\ngoomba_request_left:\n\tset idx + << enemy_y 4 enemy_x\n\tset collide_left [ leveldata idx ]\n\tif enemy_x >= 16 set collide_left [ leveldata2 idx ]\n\tif collide_left = 0 then\n\t\tdec enemy_xoff\n\t\tif enemy_xoff = 255 then\n\t\t\tset enemy_xoff 15\n\t\t\tdec enemy_x\n\t\t\tendif\n\t\treturn\n\t\tendif\n\tset enemy_dir 0 \/\/go right now\n\treturn\n\ngoomba_request_fall:\n\tset idx + + << enemy_y 4 enemy_x 16\n\tset collide_down [ leveldata idx ]\n\tif enemy_x >= 16 then\n\t\tset idx - idx 16\n\t\tset collide_down [ leveldata2 idx ]\n\t\tendif\n\tif collide_down = 0 then\n\t\tinc enemy_yoff\n\t\tif enemy_yoff = 16 then\n\t\t\tset enemy_yoff 0\n\t\t\tinc enemy_y\n\t\t\tendif\n\t\treturn\n\t\tendif\n\treturn\n\ndraw_enemies:\n\tfor which_enemy = 0 to maxenemies\n\t\tset enemy_typevar [ enemy_type which_enemy ]\n\t\tif enemy_typevar = 1 gosub draw_enemy\n\tnext which_enemy\n\treturn\n\n\/\/requires enemy_sprite, enemy_tile, enemy_xloc, enemy_yloc, enemy_colorbit\ndraw_enemy:\n\tset [ spritemem 16 ] enemy_yloc\n\tset [ spritemem 17 ] enemy_tile\n\tset [ spritemem 18 ] enemy_colorbit\n\tset [ spritemem 19 ] enemy_xloc\n\n\tset [ spritemem 20 ] enemy_yloc\n\tset [ spritemem 21 ] + enemy_tile 2\n\tset [ spritemem 22 ] enemy_colorbit\n\tset [ spritemem 23 ] + enemy_xloc 8\n\treturn\n\ndraw_enemy_reverse:\n\tset [ spritemem 16 ] enemy_yloc\n\tset [ spritemem 17 ] + enemy_tile 2\n\tset [ spritemem 18 ] enemy_colorbit\n\tset [ spritemem 19 ] enemy_xloc\n\n\tset [ spritemem 20 ] enemy_yloc\n\tset [ spritemem 21 ] enemy_tile\n\tset [ spritemem 22 ] enemy_colorbit\n\tset [ spritemem 23 ] + enemy_xloc 8\n\treturn\n\/\/act on joystick buttons\njoyhandler:\n\tif sack_dead_secs <> 0 then\n\t\tset sack_sprite 32\n\t\tgosub jumphandler\n\t\tdec sack_dead_frames\n\t\tif sack_dead_frames = 0 then\n\t\t\tset sack_dead_frames 60\n\t\t\tdec sack_dead_secs\n\t\t\tendif\n\t\treturn\n\t\tendif\n\t\/\/set left and right facing\n\tset direction 0\n\tset is_crouching 0\n\tif joyright = 1 then\n\t\tset direction 1\n\t\tset facing 1\n\t\tgoto joyhandler2\n\t\tendif\n\tif joyleft = 1 then\n\t\tset direction 255\n\t\tset facing 0\n\t\tgoto joyhandler2\n\t\tendif\n\tset sack_sprite 32 \/\/no movement, use still sprite\n\t\/\/handle jump and gravity\n\tjoyhandler2:\n\t\tif joydown = 1 then\n\t\t\tset sack_sprite 56\n\t\t\tset is_crouching 1\n\t\t\tendif\n\t\tgosub sack_collide_enemy\n\t\tif direction <> 0 gosub request_move\n\t\tif joya = 1 if okjump = 1 gosub jumpstart\n\tif joyselect = 1 set reset_game 1\n\treturn\n\n\/\/collision detection left and right\nrequest_move:\n\tinc sack_moveframe\n\tif sack_moveframe = 12 then \/\/number of frames before sack changes moving sprite\n\t\tset sack_moveframe 0\n\t\tif sack_sprite = 32 then\n\t\t\tset sack_sprite 40 \/\/set to the other sprite\n\t\t\tgoto request_move_2\n\t\t\tendif\n\t\tset sack_sprite 32\n\t\tendif\n\trequest_move_2:\n\tif direction = 255 goto request_left\n\t\t\/\/else fall to request_right\n\trequest_right:\n\t\tset idx >> + sack_x2 8 4\n\t\tset idx + & spritey %11110000 idx\n\t\tset collide_low [ leveldata idx ]\n\t\tset collide_top [ leveldata - idx 16 ]\n\t\tif sack_x >= 16 then\n\t\t\tset collide_low [ leveldata2 idx ]\n\t\t\tset collide_top [ leveldata2 - idx 16 ]\n\t\tendif\n\t\tif collide_low <> 0 goto collision\n\t\tif is_crouching = 1 set collide_top 0\n\t\tif collide_top <> 0 goto collision\n\t\tgosub move_right \/\/no collision, move right\n\t\tif inflight = 0 set inflight 2\n\t\treturn\n\trequest_left:\n\t\tset idx >> - sack_x2 8 4\n\t\tset idx + & spritey %11110000 idx\n\t\tset collide_low [ leveldata idx ]\n\t\tset collide_top [ leveldata - idx 16 ]\n\t\tif sack_x >= 17 then\n\t\t\tset collide_low [ leveldata2 idx ]\n\t\t\tset collide_top [ leveldata2 - idx 16 ]\n\t\tendif\n\t\tif collide_low <> 0 goto collision\n\t\tif is_crouching = 1 set collide_top 0\n\t\tif collide_top <> 0 goto collision\n\t\tgosub move_left \/\/no collision, move left\n\t\tif inflight = 0 set inflight 2\n\t\treturn\n\tcollision:\n\t\tset direction 0\n\t\treturn\n\nmove_right:\n\tif sack_x = 31 return\n\tinc sack_xoff\n\tif sack_xoff = 16 then\n\t\tset sack_xoff 0\n\t\tinc sack_x\n\t\tendif\n\tif - sack_x screen_x > 10 gosub scroll_right\n\tgosub set_x_coords\n\treturn\n\t\t\nmove_left:\n\tif sack_x = 0 return\n\tdec sack_xoff\n\tif sack_xoff = 255 then\n\t\tset sack_xoff 15\n\t\tdec sack_x\n\t\tendif\n\tif - sack_x screen_x < 6 gosub scroll_left\n\tgosub set_x_coords\n\treturn\n\nset_x_coords:\n\tset spritex + << - sack_x screen_x 4 - sack_xoff screen_xoff\n\tif sack_x >= 16 then\n\t\tset sack_x2 + << - sack_x 16 4 sack_xoff\n\t\treturn\n\t\tendif\n\tset sack_x2 + << sack_x 4 sack_xoff\n\treturn\n\n\/\/start a jump action\njumpstart:\n\tif okjump <> 1 return\n\/\/\tif inflight <> 0 return\n\tgosub playsound_jump\n\tset inflight 1 \/\/1=up, 2=down\n\tset gravindex 50\n\tset gravity_delta 0\n\tset okjump 0\n\treturn\n\nhighjump:\n\tset inflight 1\n\tset gravindex 64\n\tset gravity_delta 0\n\tset okjump 0\n\treturn\n\n\/\/max height=48\n\/\/max gravity index=50\ngravity:\n\t\/\/old gravity array\n\tasm\n\t.db 0, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 1, 0, 1, 1, 0, 1\n\t.db 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 2, 1, 1, 2, 1\n\t.db 2, 1, 2, 2, 1, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2\n\t.db 3, 3, 3, 3, 3, 3\n\tendasm\n\t\/\/new gravity array\n\tasm\n\t.db 0, 0, 0, 0, 1, 0, 0, 1, 0, 1, 1, 0, 1, 1, 1, 1, 1, 2, 1, 1\n\t.db 2, 1, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 3, 2, 3, 2, 3, 3, 3, 2\n\t.db\t3, 3, 3, 3, 3, 3, 4, 3, 3, 4, 4, 4, 3, 4, 4, 4, 4, 4, 4, 4\n\t.db 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4\n\tendasm\n\n\/\/called each frame. advances gravity\t\njumphandler:\n\tif inflight = 0 then\n\t\tif joya = 0 set okjump 1\n\t\treturn\n\t\tendif\n\tset gravity_delta [ gravity gravindex ]\n\tif inflight = 1 then \/\/jump up\n\t\tset sack_sprite 48\n\t\tset idx >> sack_x2 4\n\t\tset idx + & - - spritey 16 gravity_delta %11110000 idx\n\t\tset collide_top [ leveldata idx ]\n\t\tif sack_x >= 16 set collide_top [ leveldata2 idx ]\n\t\tif collide_top <> 0 then\n\t\t\tset inflight 2\n\t\t\tdec gravindex\n\/\/\t\t\tif joya = 0 set okjump 1\n\t\t\treturn\n\t\t\tendif\n\t\tset spritey - spritey gravity_delta\n\t\tif gravindex > 0 then\n\t\t\tdec gravindex\n\t\t\treturn\n\t\t\tendif\n\t\tset inflight 2\n\t\treturn\n\t\tendif\n\t\/\/else jump down\n\t\tset idx >> sack_x2 4\n\t\tset idx + & + spritey gravity_delta %11110000 idx\n\t\tset collide_low [ leveldata idx ]\n\t\tif sack_x >= 16 set collide_low [ leveldata2 idx ]\n\t\tif collide_low <> 0 then\n\t\t\tif gravindex >= 54 gosub playsound_thump \/\/hard landing\n\t\t\tset inflight 0\n\t\t\tif joya = 0 set okjump 1\n\t\t\tset gravindex 6 \/\/the first \"1\" in gravity array\n\t\t\treturn\n\t\t\tendif\n\t\tset spritey + spritey gravity_delta\n\t\tif gravindex <= 55 then\n\t\t\tset okjump 0\n\t\t\tinc gravindex\n\t\t\tset sack_sprite 48\n\t\t\treturn\n\t\t\tendif\n\t\tset inflight 2\n\t\tset sack_sprite 48\n\t\treturn\n\nsack_collide_enemy:\n\tif enemy_dir = 255 return \/\/he's dead\n\tif sack_dead_secs <> 0 return \/\/sack is dead\n\tset collide_y1 + << enemy_y 4 enemy_yoff\n\tset collide_y2 - spritey collide_y1\n\/\/\tset collide_y1 - spritey + << enemy_y 4 enemy_yoff\n\tif spritey < collide_y1 return\n\t\/\/if spritey > collide_y1 \n\tif collide_y2 > 24 return\n\/\/\tif >> spritey 4 <> enemy_y return\n\tset collide_x1 + << enemy_x 3 >> enemy_xoff 1\n\tset collide_x2 + << sack_x 3 >> sack_xoff 1\n\tset collide_result - collide_x2 collide_x1\n\tif collide_x1 > collide_x2 if collide_result >= 254 goto sack_collide_enemy_right\n\tif collide_x1 < collide_x2 if collide_result <= 12 goto sack_collide_enemy_left\n\treturn \/\/no collision\n\tsack_collide_enemy_right:\n\t\tif inflight = 2 if collide_y2 <= 1 goto sack_collide_enemy_bottom\n\t\tset enemy_dir 0\n\t\tif direction = 1 set direction 0\n\t\tset sack_dead_secs 6\n\t\tset sack_dead_frames 60\n\t\treturn\n\tsack_collide_enemy_left:\n\t\tif inflight = 2 if collide_y2 < 4 goto sack_collide_enemy_bottom\n\t\tset enemy_dir 1\n\t\tif direction = 255 set direction 0\n\t\tset sack_dead_secs 6\n\t\tset sack_dead_frames 60\n\t\treturn\n\tsack_collide_enemy_bottom: \/\/sack on top of enemy\n\t\tgosub playsound_squish\n\t\tset enemy_dir 255\n\t\tset inflight 1\n\t\tset gravindex 25\n\t\tif joya = 1 gosub highjump\n\t\treturn\n\njoystick:\n\tasm\n\tlda #$01\t;\/\/strobe the joystick\n\tsta $4016\n\tlda #$00\n\tsta $4016\n\tlda $4016\t\t;\/\/now read values\n\tand #$01\n\tsta joya\n\tlda $4016\n\tand #$01\n\tsta joyb\n\tlda $4016\n\tand #$01\n\tsta joyselect\n\tlda $4016\n\tand #$01\n\tsta joystart\n\tlda $4016\n\tand #$01\n\tsta joyup\n\tlda $4016\n\tand #$01\n\tsta joydown\n\tlda $4016\n\tand #$01\n\tsta joyleft\n\tlda $4016\n\tand #$01\n\tsta joyright\n\tendasm\n\treturn\n\nplaysound_jump:\n\tset $4000 %10011000\n\tset $4001 %10001100\n\tset $4002 %01001101\n\tset $4003 %10010101\n\treturn\n\nplaysound_thump:\n\tset $4000 %10011111\n\tset $4001 %10000100\n\tset $4002 %11010011\n\tset $4003 %11111100\n\treturn\n\nplaysound_squish:\n\tset $4000 %10001000\n\tset $4001 %01001000\n\tset $4002 %00100101\n\tset $4003 %01001011\n\treturn\n\narray column_read 2\n\nscrollhandler:\n\tset $2005 + << screen_x 4 screen_xoff\n\tset $2005 0\n\treturn\n\nscroll_right:\n\tif screen_x <> 15 then\n\t\tinc screen_xoff\n\t\tif screen_xoff = 16 then\n\t\t\tset screen_xoff 0\n\t\t\tinc screen_x\n\t\t\tendif\n\t\treturn\n\t\tendif\n\tif screen_xoff = 15 return\n\tinc screen_xoff\n\treturn\n\nscroll_left:\n\tif screen_x <> 0 then\n\t\tdec screen_xoff\n\t\tif screen_xoff = 255 then\n\t\t\tset screen_xoff 15\n\t\t\tdec screen_x\n\t\t\tendif\n\t\treturn\n\t\tendif\n\tif screen_xoff = 0 return\n\tdec screen_xoff\n\treturn\n\n\nmarker:\n\tset $2003 20\n\tasm\n\tpla ;\/\/y val\n\tsta $2004\n\tlda #1\n\tsta $2004 ;\/\/sprite index\n\tsta $2004 ;\/\/color bit\n\tpla ;\/\/x val\n\tsta $2004\n\tendasm\n\treturn\n\n\ndrawsack:\n\tif sack_dead_secs <> 0 then\n\t\tgosub drawdead\n\t\treturn\n\t\tendif\n\tif facing = 1 then\n\t\tgosub drawright\n\t\treturn\n\t\tendif\n\t\/\/else if facing <> 1\n\t\tgosub drawleft\n\treturn\n\nclearattrib:\n\tset $2006 $23\n\tset $2006 $c0\n\tasm\n\tldy #63\nclearlabel0:\n\tlda #0\n\tsta $2007\n\tdey\n\tcpy #0\n\tbne clearlabel0\n\tendasm\n\treturn\n\t\nclearsprites:\n\tset $2003 0\n\tfor i = 0 to 63\n\t\tset $2004 245\n\t\tset $2004 0\n\t\tset $2004 0\n\t\tset $2004 0\n\tnext i\n\treturn\n\n\/\/*******************************************************************\n\/\/*******************************************************************\n\t\n\/\/drawsprite:\n\/\/\tset $2004 sprite_yloc\n\/\/\tset $2004 sprite_indx\n\/\/\tset $2004 sprite_cbit\n\/\/\tset $2004 sprite_xloc\n\/\/\treturn\n\n\/\/spritex, spritey is bottom middle of sack\ndrawleft:\n\tset [ spritemem 0 ] - spritey 32\n\tset [ spritemem 1 ] sack_sprite\n\tset [ spritemem 2 ] 65\n\tset [ spritemem 3 ] spritex\n\n\tset [ spritemem 4 ] - spritey 16\n\tset [ spritemem 5 ] + sack_sprite 2\n\tset [ spritemem 6 ] 65\n\tset [ spritemem 7 ] spritex\n\n\tset [ spritemem 8 ] - spritey 32\n\tset [ spritemem 9 ] + sack_sprite 4\n\tset [ spritemem 10 ] 65\n\tset [ spritemem 11 ] - spritex 8\n\n\tset [ spritemem 12 ] - spritey 16\n\tset [ spritemem 13 ] + sack_sprite 6\n\tset [ spritemem 14 ] 65\n\tset [ spritemem 15 ] - spritex 8\n\treturn\t\n\n\/\/spritex, spritey is middle of sack\ndrawright:\n\tset [ spritemem 0 ] - spritey 32\n\tset [ spritemem 1 ] sack_sprite\n\tset [ spritemem 2 ] 1\n\tset [ spritemem 3 ] - spritex 8\n\n\tset [ spritemem 4 ] - spritey 16\n\tset [ spritemem 5 ] + sack_sprite 2\n\tset [ spritemem 6 ] 1\n\tset [ spritemem 7 ] - spritex 8\n\n\tset [ spritemem 8 ] - spritey 32\n\tset [ spritemem 9 ] + sack_sprite 4\n\tset [ spritemem 10 ] 1\n\tset [ spritemem 11 ] spritex\n\n\tset [ spritemem 12 ] - spritey 16\n\tset [ spritemem 13 ] + sack_sprite 6\n\tset [ spritemem 14 ] 1\n\tset [ spritemem 15 ] spritex\n\treturn\n\ndrawdead:\n\tset [ spritemem 0 ] - spritey 22\n\tset [ spritemem 1 ] + sack_sprite 6\n\tset [ spritemem 2 ] %11000001\n\tset [ spritemem 3 ] - spritex 8\n\n\tset [ spritemem 4 ] - spritey 6\n\tset [ spritemem 5 ] + sack_sprite 4\n\tset [ spritemem 6 ] %11000001\n\tset [ spritemem 7 ] - spritex 8\n\n\tset [ spritemem 8 ] - spritey 22\n\tset [ spritemem 9 ] + sack_sprite 2\n\tset [ spritemem 10 ] %11000001\n\tset [ spritemem 11 ] spritex\n\n\tset [ spritemem 12 ] - spritey 6\n\tset [ spritemem 13 ] sack_sprite\n\tset [ spritemem 14 ] %11000001\n\tset [ spritemem 15 ] spritex\n\treturn\n\n\/\/*******************************************************************\n\/\/*******************************************************************\n\nvwait:\n\tasm\n\tlda $2002\n\tbpl vwait ;\/\/wait for start of retrace\n\trts ;\/\/RETURN FOR NOW. THIS IS INCOMPATIBLE WITH OTHER EMULATORS\nvwait2:\n\tlda $2002\n\tbmi vwait2 ;\/\/wait for end of retrace\n\tendasm\n\tinc frame\n\treturn\n\nppuinit:\n\tgosub vwait\n\tset $2000 %00110000\n\tset $2001 %00011100\n\treturn\n\ntitlepal:\n\tasm\n;\/\/\t.db $00,$05,$09,$28,$00,$18,$09,$28,$00,$19,$18,$0c,$00,$03,$07,$00\n\n\t.db $28,$38,$37,$08, $28,$21,$37,$38, $28,$38,$01,$08, $28,$21,$37,$01\n\t.db $27,13,32,3,0,13,32,$10,0,13,57,24,0,10,11,12 ;\/\/foreground palette\n\tendasm\n\npalette:\n\tset $2006 $3f\n\tset $2006 0\n\tset i 0\n\tpalette_2:\n\tset $2007 [ titlepal i ]\n\tinc i\n\tif i = 32 return\n\tgoto palette_2\n\ndrawstuff:\n\tgosub scrollhandler\n\tset $4014 0 \/\/sprite DMA\n\treturn\n\t\t\nnmi:\n\tresume\n\n\/\/***************************************************************\nhigh_bytes:\n\tasm\n\t;\/\/name table 0\n\t.db $20,$20,$20,$20,$20,$20,$20,$20\n\t.db $21,$21,$21,$21,$21,$21,$21,$21\n\t.db $22,$22,$22,$22,$22,$22,$22,$22\n\t.db $23,$23,$23,$23,$23,$23,$23,$23\nhigh_bytes2:\n\t;\/\/name table 1\n\t.db $24,$24,$24,$24,$24,$24,$24,$24\n\t.db $25,$25,$25,$25,$25,$25,$25,$25\n\t.db $26,$26,$26,$26,$26,$26,$26,$26\n\t.db $27,$27,$27,$27,$27,$27,$27,$27\n\tendasm\n\nlow_bytes:\n\tasm\n\t;\/\/name table 0\n\t.db 0,32,64,96,128,160,192,224\n\t.db 0,32,64,96,128,160,192,224\n\t.db 0,32,64,96,128,160,192,224\n\t.db 0,32,64,96,128,160,192,224\nlow_bytes2:\n\t;\/\/name table 1\n\t.db 0,32,64,96,128,160,192,224\n\t.db 0,32,64,96,128,160,192,224\n\t.db 0,32,64,96,128,160,192,224\n\t.db 0,32,64,96,128,160,192,224\n\tendasm\n\nloadbackground:\n\tset which_column 0\nloadbackground_2:\n\tgosub loadcolumn\n\tgosub load_attrib_column\n\tgosub vwait\n\tinc which_column\n\tif which_column <= 16 goto loadbackground_2\n\treturn\n\nloadcolumn:\n\tif which_column >= 8 goto loadhighcolumn\n\tset my_x - - << which_column 5 which_column which_column \/\/30*column\n\t\/\/setup index regs\n\twrite_column_work_0:\n\t\tasm\n\t\tldy #0\n\t\tldx my_x\n\twrite_column_work_1:\n\t;\/\/set ppu memory address\n\t\tlda high_bytes,y\n\t\tsta $2006\n\t\tlda which_column\n\t\tasl a\n\t\tasl a\n\t\tclc\n\t\tadc low_bytes,y\n\t\tsta $2006\n\t;\/\/write top blocks\n\t\tclc\n\t\tlda the_level, x\n\t\tsta $2007\n\t\tadc #1\n\t\tsta $2007\n\t\tinx\n\t\tlda the_level,x\n\t\tsta $2007\n\t\tadc #1\n\t\tsta $2007\n\t\tdex\n\t;\/\/now write the blocks under\n\t\tiny\n\t\tlda high_bytes,y\n\t\tsta $2006\n\t\tlda which_column\n\t\tasl a\n\t\tasl a\n\t\tclc\n\t\tadc low_bytes,y\n\t\tsta $2006\n\t\tclc\n\t\tlda the_level, x\n\t\tadc #16\n\t\tsta $2007\n\t\tadc #1\n\t\tsta $2007\n\t\tinx\n\t\tlda the_level,x\n\t\tadc #16\n\t\tsta $2007\n\t\tadc #1\n\t\tsta $2007\n\t\tinx\n\t;\/\/now check if we're done with the column\n\t\tiny\n\t\tcpy #30\n\t\tbne write_column_work_1\n\tendasm\n\treturn\n\nloadhighcolumn:\n\tset temp_column - which_column 8\n\tset my_x - - << temp_column 5 temp_column temp_column \/\/30*column\n\t\/\/setup index regs\n\t\tasm\n\t\tldy #0\n\t\tldx my_x\n\twrite_column_work_2:\n\t;\/\/set ppu memory address\n\t\tlda high_bytes2,y\n\t\tsta $2006\n\t\tlda temp_column\n\t\tasl a\n\t\tasl a\n\t\tclc\n\t\tadc low_bytes2,y\n\t\tsta $2006\n\t;\/\/write top blocks\n\t\tclc\n\t\tlda the_level2, x\n\t\tsta $2007\n\t\tadc #1\n\t\tsta $2007\n\t\tinx\n\t\tlda the_level2,x\n\t\tsta $2007\n\t\tadc #1\n\t\tsta $2007\n\t\tdex\n\t;\/\/now write the blocks under\n\t\tiny\n\t\tlda high_bytes2,y\n\t\tsta $2006\n\t\tlda temp_column\n\t\tasl a\n\t\tasl a\n\t\tclc\n\t\tadc low_bytes2,y\n\t\tsta $2006\n\t\tclc\n\t\tlda the_level2, x\n\t\tadc #16\n\t\tsta $2007\n\t\tadc #1\n\t\tsta $2007\n\t\tinx\n\t\tlda the_level2,x\n\t\tadc #16\n\t\tsta $2007\n\t\tadc #1\n\t\tsta $2007\n\t\tinx\n\t;\/\/now check if we're done with the column\n\t\tiny\n\t\tcpy #30\n\t\tbne write_column_work_2\n\tendasm\n\treturn\n\t\nload_attrib_column:\n\tif which_column < 8 then\n\t\tset highbyte $23\n\t\tset lowbyte + $c0 which_column\n\t\tgoto load_attrib_column_1\n\t\tendif\n\t\/\/else name table 2\n\t\tset highbyte $27\n\t\tset lowbyte + $b8 which_column\n\tload_attrib_column_1:\n\tset idx << which_column 3\n\tset numcolumns 0\n\tload_attrib_column_2:\n\t\tset $2006 highbyte\n\t\tset $2006 lowbyte\n\t\tset $2007 [ attrib_table idx ]\n\t\tset lowbyte + lowbyte 8\n\t\tinc idx\n\t\tinc numcolumns\n\t\tif numcolumns = 8 return\n\/\/\t\tif & idx %00000111 = 0 return\n\tgoto load_attrib_column_2\n\/\/the level data, vertical RLE\n\/\/byte, repeat. set upper left block of 4-block area\n\/\/  tilenum:  n    n+2\n\/\/            n+1  n+3\nthe_level:\n\tasm\n\t.incbin \"level\/name1.tbl\"\nthe_level2:\n\t.incbin \"level\/name2.tbl\"\n\tendasm\nattrib_table:\n\tasm\n\t.incbin \"level\/attrib.tbl\"\n\tendasm\n\n\/\/the level, RLE for display, uncompressed for collision detection\nasm\nleveldata:\n\t.db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0\n\t.db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0\n\t.db 0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0\n\t.db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0\n\t.db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0\n\t.db 0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0\n\t.db 0,0,0,0,0,0,1,1,1,1,0,0,1,1,1,0\n\t.db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0\n\t.db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0\n\t.db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0\n\t.db 0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0\n\t.db 0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0\n\t.db 0,1,1,1,1,1,1,1,1,0,0,1,1,1,1,1\n\t.db 0,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0\n\t.db 0,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0\n\t.db 0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1\nleveldata2:\n\t.db 0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1\n\t.db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0\n\t.db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0\n\t.db 1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1\n\t.db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0\n\t.db 0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0\n\t.db 0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0\n\t.db 0,1,1,0,0,0,0,0,0,0,0,0,0,1,0,0\n\t.db 0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0\n\t.db 0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,1\n\t.db 0,0,0,1,1,0,0,0,0,0,0,0,1,1,0,0\n\t.db 0,0,1,1,1,1,1,0,0,0,1,1,1,1,0,0\n\t.db 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0\n\t.db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0\n\t.db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0\n\t.db 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1\nendasm\nasm\n\t.bank 3\n\t.org $fffa\n\t.dw nmi\t\t;\/\/NMI\n\t.dw start\t;\/\/Reset\n\t.dw start\t;\/\/BRK\n\t.bank 4\n\t.org $0000\n\t.incbin \"foreground.chr\"\n\t.incbin \"background.chr\"\nendasm\nasm\n\t;\/\/end of file\nendasm\n<\/code><\/pre>\n","protected":false},"excerpt":{"rendered":"
VC 2022\u662fc\u8bed\u8a00\u7f16\u8bd1\u5668\u3002 NESASM\u662f\u4efb\u5929\u5802\u7ea2\u767d\u673a\u7a0b\u5e8f\u7684\u6c47\u7f16\u7a0b\u5e8f\u3002\u5b66\u4e60\u7248\u7684VC\u7f16\u8bd1 nesasm.\u901a\u4e0d […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[1],"tags":[],"class_list":["post-166","post","type-post","status-publish","format-standard","hentry","category-uncategorized"],"_links":{"self":[{"href":"http:\/\/www.nantz.top\/wordpress\/index.php?rest_route=\/wp\/v2\/posts\/166","targetHints":{"allow":["GET"]}}],"collection":[{"href":"http:\/\/www.nantz.top\/wordpress\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/www.nantz.top\/wordpress\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/www.nantz.top\/wordpress\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/www.nantz.top\/wordpress\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=166"}],"version-history":[{"count":5,"href":"http:\/\/www.nantz.top\/wordpress\/index.php?rest_route=\/wp\/v2\/posts\/166\/revisions"}],"predecessor-version":[{"id":176,"href":"http:\/\/www.nantz.top\/wordpress\/index.php?rest_route=\/wp\/v2\/posts\/166\/revisions\/176"}],"wp:attachment":[{"href":"http:\/\/www.nantz.top\/wordpress\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=166"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.nantz.top\/wordpress\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=166"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.nantz.top\/wordpress\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=166"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}