ORG $8000 BCLR DDRB,%00001111 BSET DDRA,%11111111 LDX #XSQR_TABLE B2 LDAA PORTB ANDA #$0F LDAA A,X STAA PORTA BRA B2 ORG $8500 XSQR_TABLE DC.B 0,1,4,9,16,25,36,49,64,81 END