
********************************
*                              *
*  CONFIGURE FOR SYSTEM, AND   *
*  SET AMPERS INTERPETER ADR   *
*                              *
********************************

 ORG $6800

 LDX #$02
INT1 LDA AMPJ,X
 STA $03F5,X
 STA LINNUM-1,X
 DEX
 BPL INT1

 LDA MACHID
 AND #%11000100
 LDX #$07
:LOOP CMP IDCODE,X
 BEQ :NEXT
 DEX
 BPL :LOOP
:NEXT STX ID
 LDA MACHID
 AND #%00110000
 LDX #$03
:LOOP1 CMP MEMORY,X
 BEQ FNDMEM
 DEX
 BPL :LOOP1
FNDMEM STX MEM
 LDA MACHID
 AND #$02
 STA COLUMN
 LDA MACHID
 AND #$01
 STA CLOCK
 RTS

IDCODE DFB %00000000 ;APPLE ][
 DFB %01000000 ;APPLE ][+
 DFB %10000000 ;APPLE ][e
 DFB %11000000 ;APPLE /// Emulation
 DFB %00000100 ;FUTURE
 DFB %01000100 ;FUTURE
 DFB %10000100 ;APPLE ][c
 DFB %11000100 ;FUTURE

MEMORY DFB %00000000 ;UNUSED
 DFB %00010000 ;48K
 DFB %00100000 ;64K
 DFB %00110000 ;128K

AMPJ JMP FIND1
