;ACME 0.96.4

!ifdef lib_cbm_c128_petscii_a !eof
lib_cbm_c128_petscii_a = 1

!source <cbm/petscii.a>

; color codes
; vic				vdc
petscii_BLACK		= 144:	petscii_DBLACK		= 144
petscii_WHITE		=   5:	petscii_LWHITE		=   5
petscii_RED		=  28:	petscii_DRED		=  28
petscii_CYAN		= 159:	petscii_LCYAN		= 159
petscii_PURPLE		= 156:	petscii_LMAGENTA	= 156
petscii_GREEN		=  30:	petscii_DGREEN		=  30
petscii_BLUE		=  31:	petscii_DBLUE		=  31
petscii_YELLOW		= 158:	petscii_LYELLOW		= 158
petscii_ORANGE		= 129:	petscii_DMAGENTA	= 129
petscii_BROWN		= 149:	petscii_DYELLOW		= 149
petscii_LRED		= 150
petscii_GRAY1		= 151:	petscii_DCYAN		= 151
petscii_GRAY2		= 152:	petscii_LBLACK		= 152:	petscii_DGRAY		= 152
petscii_LGREEN		= 153
petscii_LBLUE		= 154
petscii_GRAY3		= 155:	petscii_DWHITE		= 155:	petscii_LGRAY		= 155

; switching character set
petscii_LOCK		=  11	; forbid CBM-shift (C64 uses 8 instead)
petscii_UNLOCK		=  12	; allow CBM-shift (C64 uses 9 instead)
petscii_LOWERCASE	=  14	; switch to lowercase/uppercase character set
petscii_UPPERCASE	= 142	; switch to uppercase/graphics character set

; function keys
petscii_F1		= 133:	petscii_F2		= 137
petscii_F3		= 134:	petscii_F4		= 138
petscii_F5		= 135:	petscii_F6		= 139
petscii_F7		= 136:	petscii_F8		= 140

; C128-specific stuff
petscii_UNDERLINEON	=   2
petscii_UNDERLINEOFF	= 130
petscii_FLASHON		=  15	; (264 series machines use 130 instead)
petscii_FLASHOFF	= 143	; (264 series machines use 131 instead)
petscii_BELL		=   7
petscii_TAB		=   9
petscii_SETTAB		=  24
petscii_LINEFEED	=  10
petscii_ESCAPE		=  27
petscii_SHIFTSTOP	= 131
petscii_HELP		= 132	; (264 series machines use 140 instead)