;--------------------------------------;
;$FFE4 ÉNPUT ÅXAMPLE                   ;
;--------------------------------------;

         *= $4000

         JSR SETUP

         SEI
         LDA #$7F
         STA $DC0D
         LDA #$01
         STA $D01A
         LDA #$32
         STA $D012
         LDA #$1B
         STA $D011
         LDA #<IRQ1
         LDX #>IRQ1
         STA $0314
         STX $0315
         CLI
SPACECK  LDA $DC01
         CMP #$EF
         BNE SPACECK
         JMP $9000
IRQ1     INC $D019
         LDA #<IRQ1
         LDX #>IRQ1
         STA $0314
         STX $0315
         LDA #$FF
         STA $D012
         LDA #$08
         STA $D016
         LDA #$15
         STA $D018
         JSR GETIN
         JMP $EA31
GETIN    JSR $FFE4
         BEQ EXIT2
         CMP #"A"
         BEQ JUMP1
         CMP #"C"
         BEQ JUMP3
         CMP #"D"
         BEQ JUMP4
         CMP #"E"
         BEQ JUMP5
         CMP #"F"
         BEQ JUMP6
         CMP #"G"
         BEQ JUMP7
         CMP #"H"
         BEQ JUMP8
         CMP #"Q"
         BEQ JUMP9
         CMP #"B"
         BEQ JUMP10
EXIT2    RTS
JUMP1 ;  JMP CHOICEA
JUMP3  ; JMP CHOICEC
JUMP4   ;JMP CHOICED
JUMP5 ;  JMP CHOICEE
JUMP6  ; JMP CHOICEF
JUMP7   ;JMP CHOICEG
JUMP8 ;  JMP CHOICEH
JUMP9  ; JMP CHOICEQ
JUMP10  ;JMP CHOICEB1
PMENU    LDX #$00
PM1      LDA MENU,X
         BEQ EXIT
         JSR $FFD2
         INX
         BNE PM1
EXIT     RTS
MENU     .TEXT "MENU"
         .BYTE $0D,$0D
         .TEXT "[A] CHOICE A        [E]"
         .TEXT " CHOICE E       "
         .BYTE $0D,$0D
         .TEXT "[B] CHOICE B        [F]"
         .TEXT " CHOICE F       "
         .BYTE $0D,$0D
         .TEXT "[C] CHOICE C        [G]"
         .TEXT " CHOICE G       "
         .BYTE $0D,$0D
         .TEXT "[D] CHOICE D        [H]"
         .TEXT " CHOICE H       "
         .BYTE $0D,$0D,$0D
         .TEXT "               [Q] QUIT"
         .BYTE $00
SETUP    JSR $E544
         JSR PMENU
         LDA #$00
         STA $D020
         STA $D021
         RTS