
 1000  *--------------------------------
 1010  STACK        .EQ $100
 1020  AMPER.VECTOR .EQ $3F5
 1030  RETURN       .EQ $FF58
 1040  HOME   .EQ $FC58
 1050  *--------------------------------
 1060         .OR $300
 1070         .TF B.AMPEXAMPLE
 1080  *--------------------------------
 1090  SETUP  JSR RETURN        PUT CURRENT ADDR ON STACK
 1100  .1     TSX               GET STACK POINTER FOR OFFSET
 1110         LDY STACK,X       MSB OF ADDR ON STACK
 1120         DEX
 1130         LDA STACK,X       LSB
 1140         CLC
 1150         ADC #START-.1+1   OFFSET TO ENTRY POINT
 1160         BCC .2
 1170         INY               (Y) IS HI BYTE
 1180  .2     STA AMPER.VECTOR+1  LSB OF ENTRY ADDRESS
 1190         STY AMPER.VECTOR+2  MSB
 1200         LDA #$4C            JMP OPCODE
 1210         STA AMPER.VECTOR
 1220         RTS
 1230  *--------------------------------
 1240  START  JSR HOME     CLEAR SCREEN
 1250         NOP          DO WHATEVER
 1260         NOP          YOU LIKE
 1270         RTS

