5 ; modified by Jonah Cohen 11-14-99
133 call _vputs ;scoremsg
396 ld de,HiScore-_asm_exec_ram+2
408 NewPea: ;------------------------------procs
466 ld bc,1000h+(7921/256)
476 ld (Seed),hl ;seed=(seed*7921+1) MOD 65536
493 CheckPixel: ;at bc in d
502 FindPixel: ;bc to ahl + de gone
506 add a,offsets_table & 255
508 ld d,offsets_table/256
567 .db 128,64,32,16,8,4,2,1
605 .db 5,9 ;5 peas, speed 7
608 .db 0 ;no additional lines
688 #include "trigtab.asm"
691 WormMsg .db "Wonderworm!",0
692 LevelMsg .db "Level ",0
693 LivesMsg .db "Lives: ",0
694 ScoreMsg .db "Score: ",0
695 LeftMsg .db "Food: ",0
704 ScrBuffer =8200h ;size $1400 (at least)
730 ld (ShiftBitsRight),a
755 ld a,(ShiftBitsRight)
781 .db 5,2 ;5 peas, speed 9
783 .db 0,0 ;field width, height
784 .db 0 ;no additional lines
864 #include "trigtab.asm"
867 WormMsg .db "Wonderworm!",0
868 LevelMsg .db "Level ",0
869 LivesMsg .db "Lives: ",0
870 ScoreMsg .db "Score: ",0
871 LeftMsg .db "Food: ",0
880 ScrBuffer =$8200 ;32x256 bytes