5 ; modified by Jonah Cohen 11-19-99
188 call _vputs ;scoremsg
240 ld hl,(HeadPos) ;<====NEW
468 ld de,HiScore-_asm_exec_ram+2
481 NewPea: ;------------------------------procs ;<====NEW
487 ld bc,1000h+(7921/256)
497 ld (Seed),hl ;seed=(seed*7921+1) MOD 65536
546 ;no random routine here ;<====NEW
561 CheckPixel: ;at bc in d
570 FindPixel: ;bc to ahl + de gone ;<====NEW
574 add a,offsets_table & 255
576 ld d,offsets_table/256
632 .db 128,64,32,16,8,4,2,1
634 DisplayField: ;<====NEW
745 ShiftRight1: ;<====NEW
748 ld (ShiftRightCounter),a
750 ld (ShiftRightChunk),a
764 ShiftRightCounter = $-1
783 ShiftLeft1: ;<====NEW
786 ld (ShiftLeftCounter),a
788 ld (ShiftLeftChunk),a
790 jr nc,ShiftLeftSameByte
808 ShiftLeftCounter = $-1
858 .db 5,3 ;5 peas, speed 5
860 .db 0,0 ;field width, height
861 .db 0 ;no additional lines
941 #include "trigtab.asm"
944 WormMsg .db "Wonderworm!",0
945 LevelMsg .db "Level ",0
946 LivesMsg .db "Lives: ",0
947 ScoreMsg .db "Score: ",0
948 LeftMsg .db "Food: ",0
957 ScrBuffer =$8200 ;32x256 bytes