//-------------------------------
// Snakes of Atari Island
//
// Author: Jakub "JKR" Krzak
// Katowice, April 2012
//-------------------------------

; ATARI machine registers

RANDOM equ 53770
CHBAS equ 756
VCOUNT equ 54283
WSYNC equ 54282
STRIG0 equ 644
STICK0 equ 632
STRIG1 equ 645
STICK1 equ 633
COLOR0 equ 708
CH equ 764
KBCODE equ 53769
SKSTAT equ $D20F
SDLSTL equ 560
NMIEN equ 54286
VDSLST equ 512
VVBLKD equ 548
RTCLOCK equ 20
PORTB equ $D301

COL_BK equ 53274
COL_PF1 equ 53271
COL_PF2 equ 53272
COL_BK_S equ 712
COL_PF1_S equ 709
COL_PF2_S equ 710
PM_PATRN equ 53261
PM_XPOS equ 53248
PM_WIDTH equ 53256
PM_COLS0 equ 704
PM_COLS1 equ 705
PM_COLS2 equ 706
PM0_XPOS equ 53248
PM1_XPOS equ 53249

HSCROL equ 54276


; Characters

chrHead_R equ 69
chrHead_U equ 70
chrHead_D equ 71
chrHead_L equ 72
chrBody_UL equ 75
chrBody_UR equ 76
chrBody_DL equ 77
chrBody_DR equ 78
chrBody_V equ 79
chrBody_H equ 80
chrTail_U equ 65
chrTail_L equ 66
chrTail_D equ 67
chrTail_R equ 68
chrHeadB_R equ 86
chrHeadB_U equ 87
chrHeadB_D equ 88
chrHeadB_L equ 89
chrBodyB_UL equ 90
chrBodyB_UR equ 91
chrBodyB_DL equ 92
chrBodyB_DR equ 93
chrBodyB_V equ 94
chrBodyB_H equ 95
chrTailB_U equ 82
chrTailB_L equ 83
chrTailB_D equ 84
chrTailB_R equ 85
chrFruit equ 96
chrFruitEx equ 63
chrWall equ 73


; Other
btn_pressed         equ 0
btn_not_pressed     equ 1

cLeft       equ 11
cRight      equ 7
cUp         equ 14
cDown       equ 13
cTrigger	equ 0

cMaxMsgBrtnss 		equ 10