*
*  PAGESMIX
*
       ORG   $5000
       PUT   $3000
*
WHAT   EQU   $77
*
       ORCC  #$50
       STA   $FFC0
       STA   $FFC3
       STA   $FFC5
       STA   $FFC6
       STA   $FFC9
       STA   $FFCB
       STA   $FFCC
       STA   $FFCE
       STA   $FFD0
       STA   $FFD2
       LDA   #$E0
       STA   $FF22
       CLR   <WHAT
*
       LDX   <$72
       STX   OLDRST+1,PCR
       LDX   $010D
       STX   OLDISR+1,PCR
       LEAX  RESET,PCR
       STX   <$72
       LEAX  ISR,PCR
       STX   $010D
*
REDGE  LDA   $FF03
       ORA   #$03
       STA   $FF03
       ANDCC #$AF
*
TEST   BSR   INKEY
       BEQ   TEST
       CMPA  #$03
       BEQ   EXIT
       BRA   TEST
*
EXIT   ORCC  #$50
       CLRA
*
RESET  NOP
OLDRST LDX   #$B44F
       STX   <$72
OLDISR LDU   #$9D3D
       STU   >$010D
       CMPA  #$12
       BNE   FEDGE
       JMP   ,X
*
FEDGE  LDA   $FF03
       ANDA  #$FD
       STA   $FF03
       ANDCC #$AF
       RTS
*
ISR    LDA   $FF03
       BMI   SWITCH
       RTI
SWITCH LDA   <WHAT
       BEQ   P1
P5     STA   $FFCA
       STA   $FFCF
       CLR   <WHAT
       BRA   SW2
P1     STA   $FFCB
       STA   $FFCE
       INC   <WHAT
SW2    LDA   $FF02
INTRTN RTI
*
INKEY  LDX   >COUNT
       LEAX  -1,X
       BNE   UPDATE
       LDX   #$0100
       STX   >COUNT
       SYNC
       JMP   $BBE5
UPDATE STX   >COUNT
NOKEY  CLRA
       RTS
*
COUNT  FCB   1
ZZZ    FCB   0
*
