; > ROMHeader

ORG  &8000
EQUB 0
EQUW 0
EQUB &4C			; 6502 RTS for service entry
EQUW Service
EQUB &E7			; Service+Language+Tube+PDP11
EQUB Copyright
EQUB 0				; Version
EQUS "PDP-11 BASIC"		; ROM title
EQUB 0
EQUS "0.12 (10 Sep 2008)"	; Version string
.Copyright
EQUB 0
EQUS "(C)J.G.Harston"		; Copyright message
EQUB 0
EQUD &8000			; Tube transfer address
EQUD CodeHeader-&8000		; Offset to Tube execution address
;
.Service
EQUB &C9,&04,&F0,&01,&60,&A2,&00,&98	; Service code to match *command
EQUB &48,&B1,&F2,&C9,&0D,&F0,&0F,&C9	; with ROM title, and enter ROM
EQUB &2E,&F0,&10,&29,&FF,&DD,&09,&80
EQUB &D0,&10,&C8,&E8,&D0,&EB,&BD,&09
EQUB &80,&D0,&07,&A6,&F4,&A9,&8E,&4C
EQUB &F4,&FF,&68,&A8,&A6,&F4,&A9,&04
EQUB &60
;
ALIGN
.CodeHeader