; > 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.14 (10 Mar 2009)"	; 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,&04,&C9,&09,&D0,&5C	; Service code to match *command
EQUB &48,&6A,&98,&48,&08,&A2,&00,&B1	; with ROM title, and enter ROM
EQUB &F2,&C9,&0D,&F0,&14,&C9,&2E,&F0
EQUB &1A,&DD,&09,&80,&F0,&07,&49,&20
EQUB &DD,&09,&80,&D0,&3B,&C8,&E8,&D0
EQUB &E6,&8A,&F0,&07,&BD,&09,&80,&C9
EQUB &21,&B0,&2D,&28,&B0,&07,&A6,&F4
EQUB &A9,&8E,&4C,&F4,&FF,&20,&E7,&FF
EQUB &A2,&00,&A0,&20,&BD,&09,&80,&D0
EQUB &05,&98,&A0,&00,&F0,&08,&C8,&88
EQUB &D0,&04,&C9,&20,&F0,&06,&20,&EE
EQUB &FF,&E8,&D0,&E8,&20,&E7,&FF,&08
EQUB &28,&68,&A8,&68,&60
;
ALIGN
.CodeHeader