Zang CPU code


	[Note from pm: This is the code as received by Jesse on floppy disk. There shouldn't be any errors.] * 415 * THIS PROGRAM WILL DRIVE 2 A-TO-D CONVERTERS. THESE CONVERTERS WILL DRIVE * THE X AND Y AXIS SERVOS FOR A LASER DISPLAY.I AM USING INDEXED LOOKUP * TABLES FOR XYPLOT.THERE WILL ALSO BE A 8 BIT SWITCH CONNECTED TO PORTC * TO DETERMINE THE SPEED THAT THE MIRRORS CAN HANDLE. * THIS CODE DOES A MATH FUNGTION TO GIVE AUTODRAW CAPABILITIES * * SHOULD DISPLAY ITT, A+, ZANG ,STARS, SMILEY FACE AND BYE IN BLOCK LETTERS * DEFRES EQU $0A ***** CLRA CLRX RSP CLI ;BEGIN MAIN LOOP NOW **** END INIT ******************************************************** ************************************************************************** ************************************************************************* **** MAIN LOOP *************************************************** ************************** MAIN NOP ;FIND CURRENT PAGE LDA PAGE CMPA #$00 BEQ ZLOAD0JMP CMPA #$01 BEQ ZLOAD1JMP CMPA #$02 BEQ ZLOAD2JMP CMPA #$03 BEQ ZLOAD3JMP CMPA #$04 BEQ ZLOAD4JMP CMPA #$05 BEQ ZLOAD5JMP CMPA #$06 BEQ ZLOAD6JMP CMPA #$07 BEQ ZLOAD7JMP JMP ERROR ZLOAD0JMP JMP ZLOAD0 ZLOAD1JMP JMP ZLOAD1 ZLOAD2JMP JMP ZLOAD2 ZLOAD3JMP JMP ZLOAD3 ZLOAD4JMP JMP ZLOAD4 ZLOAD5JMP JMP ZLOAD5 ZLOAD6JMP JMP ZLOAD6 ZLOAD7JMP JMP ZLOAD7 ERROR CLR PAGE CLR HOLD CLR INDEX JMP MAIN *************************************************** ******** DISPLAY "ITT" ************************ *************************************************** ZLOAD0 NOP LDA #DEFRES STA RES ;SET THIS FRAME SPEED ADJUST ************************************ ************************************ STATCHK0 LDA STAT ;IS BOTH XY DONE? CMPA #$03 BNE NOTHEREX0 INC INDEX CLR STAT ************************** ****** XPLOT ********* ************************** NOTHEREX0 LDX INDEX LDA XLOOK0,X CMPA PORTAREDY BEQ YESEQX0 BLO LOREGX0 HIREGX0 INC PORTAREDY INC PORTAREDY INC PORTAREDY INC PORTAREDY INC PORTAREDY INC PORTAREDY INC PORTAREDY INC PORTAREDY JMP ISEQX0 LOREGX0 DEC PORTAREDY DEC PORTAREDY DEC PORTAREDY DEC PORTAREDY DEC PORTAREDY DEC PORTAREDY DEC PORTAREDY DEC PORTAREDY ISEQX0 CMPA PORTAREDY BNE NOEQX0 YESEQX0 LDA STAT ORA #%00000001 STA STAT NOEQX0 NOP ************************** ******* YPLOT ******** ************************** LDX INDEX LDA YLOOK0,X CMPA PORTBREDY BEQ YESEQY0 BLO LOREGY0 HIREGY0 INC PORTBREDY INC PORTBREDY INC PORTBREDY INC PORTBREDY INC PORTBREDY INC PORTBREDY INC PORTBREDY INC PORTBREDY JMP ISEQY0 LOREGY0 DEC PORTBREDY DEC PORTBREDY DEC PORTBREDY DEC PORTBREDY DEC PORTBREDY DEC PORTBREDY DEC PORTBREDY DEC PORTBREDY ISEQY0 CMPA PORTBREDY BNE NOEQY0 YESEQY0 LDA STAT ORA #%00000010 STA STAT NOEQY0 NOP ***************************** **** FRAME CONTROL ****** ***************************** * LDA INDEX CMPA #$29 ;END OF TABLE BEQ NXTPAGE0 JSR LATCH JMP MAIN *** NXTPAGE0 CLR INDEX JSR LATCH INC HOLD LDA HOLD CMPA #$80 ;REPEAT FRAME? BEQ NEXTFRAM0 JMP MAIN NEXTFRAM0 INC PAGE CLR HOLD * CLR PAGE ;START OVER JMP MAIN ********************* *************************************************** ************** DISPLAY "A+" ****************** *************************************************** ZLOAD1 NOP LDA #DEFRES STA RES ;SET THIS FRAME SPEED ADJUST ************************************ ************************************ STATCHK1 LDA STAT ;IS BOTH XY DONE? CMPA #$03 BNE NOTHEREX1 INC INDEX CLR STAT ************************** ****** XPLOT ********* ************************** NOTHEREX1 LDX INDEX LDA XLOOK1,X CMPA PORTAREDY BEQ YESEQX1 BLO LOREGX1 HIREGX1 INC PORTAREDY INC PORTAREDY INC PORTAREDY INC PORTAREDY INC PORTAREDY INC PORTAREDY INC PORTAREDY INC PORTAREDY JMP ISEQX1 LOREGX1 DEC PORTAREDY DEC PORTAREDY DEC PORTAREDY DEC PORTAREDY DEC PORTAREDY DEC PORTAREDY DEC PORTAREDY DEC PORTAREDY ISEQX1 CMPA PORTAREDY BNE NOEQX1 YESEQX1 LDA STAT ORA #$01 STA STAT NOEQX1 NOP ************************** ******* YPLOT ******** ************************** LDX INDEX LDA YLOOK1,X CMPA PORTBREDY BEQ YESEQY1 BLO LOREGY1 HIREGY1 INC PORTBREDY INC PORTBREDY INC PORTBREDY INC PORTBREDY INC PORTBREDY INC PORTBREDY INC PORTBREDY INC PORTBREDY JMP ISEQY1 LOREGY1 DEC PORTBREDY DEC PORTBREDY DEC PORTBREDY DEC PORTBREDY DEC PORTBREDY DEC PORTBREDY DEC PORTBREDY DEC PORTBREDY ISEQY1 CMPA PORTBREDY BNE NOEQY1 YESEQY1 LDA STAT ORA #$02 STA STAT NOEQY1 NOP ***************************** **** FRAME CONTROL ****** ***************************** * LDA INDEX CMPA #$7F ;END OF TABLE BEQ NXTPAGE1 INCA ;PREPARE FOR NEXT POINT STA INDEX JSR LATCH JMP MAIN * NXTPAGE1 CLR INDEX JSR LATCH INC HOLD LDA HOLD CMPA #$80 ;REPEAT FRAME? BEQ NEXTFRAM1 JMP MAIN NEXTFRAM1 INC PAGE CLR HOLD JMP MAIN ***************************************************** *************************************************** **********ZANG2000***************************** **************************************************** ZLOAD2 NOP LDA #DEFRES+1 STA RES ;SET THIS FRAME SPEED ADJUST ************************************ ************************************ STATCHK2 LDA STAT ;IS BOTH XY DONE? CMPA #$03 BNE NOTHEREX2 INC INDEX CLR STAT ************************** ****** XPLOT ********* ************************** NOTHEREX2 LDX INDEX LDA XLOOK2,X CMPA PORTAREDY BEQ YESEQX2 BLO LOREGX2 HIREGX2 INC PORTAREDY INC PORTAREDY INC PORTAREDY INC PORTAREDY INC PORTAREDY INC PORTAREDY INC PORTAREDY INC PORTAREDY JMP ISEQX2 LOREGX2 DEC PORTAREDY DEC PORTAREDY DEC PORTAREDY DEC PORTAREDY DEC PORTAREDY DEC PORTAREDY DEC PORTAREDY DEC PORTAREDY ISEQX2 CMPA PORTAREDY BNE NOEQX2 YESEQX2 LDA STAT ORA #$01 STA STAT NOEQX2 NOP ************************** ******* YPLOT ******** ************************** LDX INDEX LDA YLOOK2,X CMPA PORTBREDY BEQ YESEQY2 BLO LOREGY2 HIREGY2 INC PORTBREDY INC PORTBREDY INC PORTBREDY INC PORTBREDY INC PORTBREDY INC PORTBREDY INC PORTBREDY INC PORTBREDY JMP ISEQY2 LOREGY2 DEC PORTBREDY DEC PORTBREDY DEC PORTBREDY DEC PORTBREDY DEC PORTBREDY DEC PORTBREDY DEC PORTBREDY DEC PORTBREDY ISEQY2 CMPA PORTBREDY BNE NOEQY2 YESEQY2 LDA STAT ORA #$02 STA STAT NOEQY2 NOP ***************************** **** FRAME CONTROL ****** ***************************** * LDA INDEX CMPA #$FF ;END OF TABLE BEQ NXTPAGE2 INCA ;PREPARE FOR NEXT POINT STA INDEX JSR LATCH JMP MAIN *** NXTPAGE2 CLR INDEX JSR LATCH INC HOLD LDA HOLD CMPA #$80 ;REPEAT FRAME? BEQ NEXTFRAM2 JMP MAIN NEXTFRAM2 INC PAGE CLR HOLD * CLR PAGE ;START OVER JMP MAIN ******************************************************* *************************************************** ******** DISPLAY "SMMALL STAR" **************** *************************************************** ZLOAD3 NOP LDA #DEFRES STA RES ;SET THIS FRAME SPEED ADJUST ************************************ ************************************ STATCHK3 LDA STAT ;IS BOTH XY DONE? CMPA #$03 BNE NOTHEREX3 INC INDEX CLR STAT ************************** ****** XPLOT ********* ************************** NOTHEREX3 LDX INDEX LDA XLOOK3,X CMPA PORTAREDY BEQ YESEQX3 BLO LOREGX3 HIREGX3 INC PORTAREDY INC PORTAREDY INC PORTAREDY INC PORTAREDY INC PORTAREDY INC PORTAREDY INC PORTAREDY INC PORTAREDY JMP ISEQX3 LOREGX3 DEC PORTAREDY DEC PORTAREDY DEC PORTAREDY DEC PORTAREDY DEC PORTAREDY DEC PORTAREDY DEC PORTAREDY DEC PORTAREDY ISEQX3 CMPA PORTAREDY BNE NOEQX3 YESEQX3 LDA STAT ORA #%00000001 STA STAT NOEQX3 NOP ************************** ******* YPLOT ******** ************************** LDX INDEX LDA YLOOK3,X CMPA PORTBREDY BEQ YESEQY3 BLO LOREGY3 HIREGY3 INC PORTBREDY INC PORTBREDY INC PORTBREDY INC PORTBREDY INC PORTBREDY INC PORTBREDY INC PORTBREDY INC PORTBREDY JMP ISEQY3 LOREGY3 DEC PORTBREDY DEC PORTBREDY DEC PORTBREDY DEC PORTBREDY DEC PORTBREDY DEC PORTBREDY DEC PORTBREDY DEC PORTBREDY ISEQY3 CMPA PORTBREDY BNE NOEQY3 YESEQY3 LDA STAT ORA #%00000010 STA STAT NOEQY3 NOP ***************************** **** FRAME CONTROL ****** ***************************** * LDA INDEX CMPA #$08 ;END OF TABLE BEQ NXTPAGE3 JSR LATCH JMP MAIN *** NXTPAGE3 CLR INDEX JSR LATCH INC HOLD LDA HOLD CMPA #$50 ;REPEAT FRAME? BEQ NEXTFRAM3 JMP MAIN NEXTFRAM3 INC PAGE CLR HOLD * CLR PAGE ;START OVER JMP MAIN ********************* *************************************************** ******** DISPLAY "MEDIUMM STAR" *************** *************************************************** ZLOAD4 NOP LDA #DEFRES STA RES ;SET THIS FRAME SPEED ADJUST ************************************ ************************************ STATCHK4 LDA STAT ;IS BOTH XY DONE? CMPA #$03 BNE NOTHEREX4 INC INDEX CLR STAT ************************** ****** XPLOT ********* ************************** NOTHEREX4 LDX INDEX LDA XLOOK4,X CMPA PORTAREDY BEQ YESEQX4 BLO LOREGX4 HIREGX4 INC PORTAREDY INC PORTAREDY INC PORTAREDY INC PORTAREDY INC PORTAREDY INC PORTAREDY INC PORTAREDY INC PORTAREDY JMP ISEQX4 LOREGX4 DEC PORTAREDY DEC PORTAREDY DEC PORTAREDY DEC PORTAREDY DEC PORTAREDY DEC PORTAREDY DEC PORTAREDY DEC PORTAREDY ISEQX4 CMPA PORTAREDY BNE NOEQX4 YESEQX4 LDA STAT ORA #%00000001 STA STAT NOEQX4 NOP ************************** ******* YPLOT ******** ************************** LDX INDEX LDA YLOOK4,X CMPA PORTBREDY BEQ YESEQY4 BLO LOREGY4 HIREGY4 INC PORTBREDY INC PORTBREDY INC PORTBREDY INC PORTBREDY INC PORTBREDY INC PORTBREDY INC PORTBREDY INC PORTBREDY JMP ISEQY4 LOREGY4 DEC PORTBREDY DEC PORTBREDY DEC PORTBREDY DEC PORTBREDY DEC PORTBREDY DEC PORTBREDY DEC PORTBREDY DEC PORTBREDY ISEQY4 CMPA PORTBREDY BNE NOEQY4 YESEQY4 LDA STAT ORA #%00000010 STA STAT NOEQY4 NOP ***************************** **** FRAME CONTROL ****** ***************************** * LDA INDEX CMPA #$0D ;END OF TABLE BEQ NXTPAGE4 JSR LATCH JMP MAIN *** NXTPAGE4 CLR INDEX JSR LATCH INC HOLD LDA HOLD CMPA #$10 ;REPEAT FRAME? BEQ NEXTFRAM4 JMP MAIN NEXTFRAM4 INC PAGE CLR HOLD * CLR PAGE ;START OVER JMP MAIN ********************* *************************************************** ******** DISPLAY "LARGE STAR" ***************** *************************************************** ZLOAD5 NOP LDA #DEFRES STA RES ;SET THIS FRAME SPEED ADJUST ************************************ ************************************ STATCHK5 LDA STAT ;IS BOTH XY DONE? CMPA #$03 BNE NOTHEREX5 INC INDEX CLR STAT ************************** ****** XPLOT ********* ************************** NOTHEREX5 LDX INDEX LDA XLOOK5,X CMPA PORTAREDY BEQ YESEQX5 BLO LOREGX5 HIREGX5 INC PORTAREDY INC PORTAREDY INC PORTAREDY INC PORTAREDY INC PORTAREDY INC PORTAREDY INC PORTAREDY INC PORTAREDY JMP ISEQX5 LOREGX5 DEC PORTAREDY DEC PORTAREDY DEC PORTAREDY DEC PORTAREDY DEC PORTAREDY DEC PORTAREDY DEC PORTAREDY DEC PORTAREDY ISEQX5 CMPA PORTAREDY BNE NOEQX5 YESEQX5 LDA STAT ORA #%00000001 STA STAT NOEQX5 NOP ************************** ******* YPLOT ******** ************************** LDX INDEX LDA YLOOK5,X CMPA PORTBREDY BEQ YESEQY5 BLO LOREGY5 HIREGY5 INC PORTBREDY INC PORTBREDY INC PORTBREDY INC PORTBREDY INC PORTBREDY INC PORTBREDY INC PORTBREDY INC PORTBREDY JMP ISEQY5 LOREGY5 DEC PORTBREDY DEC PORTBREDY DEC PORTBREDY DEC PORTBREDY DEC PORTBREDY DEC PORTBREDY DEC PORTBREDY DEC PORTBREDY ISEQY5 CMPA PORTBREDY BNE NOEQY5 YESEQY5 LDA STAT ORA #%00000010 STA STAT NOEQY5 NOP ***************************** **** FRAME CONTROL ****** ***************************** * LDA INDEX CMPA #$14 ;END OF TABLE BEQ NXTPAGE5 JSR LATCH JMP MAIN *** NXTPAGE5 CLR INDEX JSR LATCH INC HOLD LDA HOLD CMPA #$80 ;REPEAT FRAME? BEQ NEXTFRAM5 JMP MAIN NEXTFRAM5 INC PAGE CLR HOLD * CLR PAGE ;START OVER JMP MAIN ********************************************* *************************************************** ******** DISPLAY "SMILEY FACE" **************** *************************************************** ZLOAD6 NOP LDA #DEFRES-1 STA RES ;SET THIS FRAME SPEED ADJUST ************************************ ************************************ STATCHK6 LDA STAT ;IS BOTH XY DONE? CMPA #$03 BNE NOTHEREX6 INC INDEX CLR STAT ************************** ****** XPLOT ********* ************************** NOTHEREX6 LDX INDEX LDA XLOOK6,X CMPA PORTAREDY BEQ YESEQX6 BLO LOREGX6 HIREGX6 INC PORTAREDY INC PORTAREDY INC PORTAREDY INC PORTAREDY INC PORTAREDY INC PORTAREDY INC PORTAREDY INC PORTAREDY JMP ISEQX6 LOREGX6 DEC PORTAREDY DEC PORTAREDY DEC PORTAREDY DEC PORTAREDY DEC PORTAREDY DEC PORTAREDY DEC PORTAREDY DEC PORTAREDY ISEQX6 CMPA PORTAREDY BNE NOEQX6 YESEQX6 LDA STAT ORA #%00000001 STA STAT NOEQX6 NOP ************************** ******* YPLOT ******** ************************** LDX INDEX LDA YLOOK6,X CMPA PORTBREDY BEQ YESEQY6 BLO LOREGY6 HIREGY6 INC PORTBREDY INC PORTBREDY INC PORTBREDY INC PORTBREDY INC PORTBREDY INC PORTBREDY INC PORTBREDY INC PORTBREDY JMP ISEQY6 LOREGY6 DEC PORTBREDY DEC PORTBREDY DEC PORTBREDY DEC PORTBREDY DEC PORTBREDY DEC PORTBREDY DEC PORTBREDY DEC PORTBREDY ISEQY6 CMPA PORTBREDY BNE NOEQY6 YESEQY6 LDA STAT ORA #%00000010 STA STAT NOEQY6 NOP ***************************** **** FRAME CONTROL ****** ***************************** * LDA INDEX CMPA #$48 ;END OF TABLE BEQ NXTPAGE6 JSR LATCH JMP MAIN *** NXTPAGE6 CLR INDEX JSR LATCH INC HOLD LDA HOLD CMPA #$FF ;REPEAT FRAME? BEQ NEXTFRAM6 JMP MAIN NEXTFRAM6 INC PAGE CLR HOLD * CLR PAGE ;START OVER JMP MAIN ********************* *************************************************** ******** DISPLAY "BYE" ************************ *************************************************** ZLOAD7 NOP LDA #DEFRES STA RES ;SET THIS FRAME SPEED ADJUST ************************************ ************************************ STATCHK7 LDA STAT ;IS BOTH XY DONE? CMPA #$03 BNE NOTHEREX7 INC INDEX CLR STAT ************************** ****** XPLOT ********* ************************** NOTHEREX7 LDX INDEX LDA XLOOK7,X CMPA PORTAREDY BEQ YESEQX7 BLO LOREGX7 HIREGX7 INC PORTAREDY INC PORTAREDY INC PORTAREDY INC PORTAREDY INC PORTAREDY INC PORTAREDY INC PORTAREDY INC PORTAREDY JMP ISEQX7 LOREGX7 DEC PORTAREDY DEC PORTAREDY DEC PORTAREDY DEC PORTAREDY DEC PORTAREDY DEC PORTAREDY DEC PORTAREDY DEC PORTAREDY ISEQX7 CMPA PORTAREDY BNE NOEQX7 YESEQX7 LDA STAT ORA #%00000001 STA STAT NOEQX7 NOP ************************** ******* YPLOT ******** ************************** LDX INDEX LDA YLOOK7,X CMPA PORTBREDY BEQ YESEQY7 BLO LOREGY7 HIREGY7 INC PORTBREDY INC PORTBREDY INC PORTBREDY INC PORTBREDY INC PORTBREDY INC PORTBREDY INC PORTBREDY INC PORTBREDY JMP ISEQY7 LOREGY7 DEC PORTBREDY DEC PORTBREDY DEC PORTBREDY DEC PORTBREDY DEC PORTBREDY DEC PORTBREDY DEC PORTBREDY DEC PORTBREDY ISEQY7 CMPA PORTBREDY BNE NOEQY7 YESEQY7 LDA STAT ORA #%00000010 STA STAT NOEQY7 NOP ***************************** **** FRAME CONTROL ****** ***************************** * LDA INDEX CMPA #$28 ;END OF TABLE BEQ NXTPAGE7 JSR LATCH JMP MAIN * NXTPAGE7 CLR INDEX JSR LATCH INC HOLD LDA HOLD CMPA #$FF ;REPEAT FRAME? BEQ NEXTFRAM7 JMP MAIN NEXTFRAM7 INC PAGE CLR HOLD CLR PAGE ;START OVER JMP MAIN ******************* ****************************** ***SUB ROUTINES*************** ********************************** ************************ ****************************** ** STORING THE POINTS FROM * *** RAM CONSECITIVELY FOR ** * LEAST AMMOMUNT OF DELAY ****************************** LATCH LDA PORTAREDY ;AQUQIRE CURRENT POINT X LDX PORTBREDY ;AQUQIRE CURRENT POINT Y STA PORTA ;OUTPUT THEM FAST STX PORTB JSR WAIT ;WAIT FOR SERVO RTS ************************ ************************ WAIT LDA PORTC SET STA SWITCH LDA RES STALL DECA BNE STALL LDA SWITCH DECA BNE SET RTS ************************ ****************************************************************** ****************************************************************** ****************************************************************** * X AXIS LOOKUP TABLE **************************************** ****************************************************************** ****************************************************************** ****************************************************************** ****************************************************************** ****************************** *XPLOT FOR ITT *********** ****************************** XLOOK0 FCB $10 FCB $30 FCB $50 FCB $50 FCB $30 FCB $30 FCB $30 FCB $30 FCB $10 FCB $10 FCB $78 FCB $78 FCB $78 FCB $78 FCB $78 FCB $78 FCB $E8 FCB $E8 FCB $C0 FCB $C0 FCB $C0 FCB $C0 FCB $C0 FCB $C0 FCB $E8 FCB $E8 FCB $78 FCB $78 FCB $78 FCB $78 FCB $78 FCB $78 FCB $10 FCB $10 FCB $30 FCB $30 FCB $30 FCB $30 FCB $50 FCB $50 FCB $10 *$29/41 ******************************* * XPLOT FOR A+ ************ ******************************* XLOOK1 FCB $A0 FCB $A0 FCB $98 FCB $98 FCB $90 FCB $90 FCB $88 FCB $88 FCB $88 FCB $80 FCB $78 FCB $78 FCB $70 FCB $70 FCB $70 FCB $68 FCB $68 FCB $60 FCB $60 FCB $58 FCB $58 FCB $50 FCB $50 FCB $48 FCB $48 FCB $48 FCB $40 FCB $40 FCB $38 FCB $38 FCB $30 FCB $30 FCB $30 FCB $28 FCB $28 FCB $20 FCB $18 FCB $18 FCB $10 FCB $10 FCB $10 FCB $10 FCB $18 FCB $18 FCB $20 FCB $20 FCB $28 FCB $28 FCB $30 FCB $30 FCB $30 FCB $30 FCB $38 FCB $40 FCB $48 FCB $50 FCB $58 FCB $60 FCB $68 FCB $70 FCB $78 FCB $80 FCB $88 FCB $90 FCB $98 FCB $A0 FCB $A8 FCB $B0 FCB $B8 FCB $C0 FCB $C8 FCB $D0 FCB $D8 FCB $E0 FCB $E8 FCB $E8 FCB $E0 FCB $D8 FCB $D0 FCB $C8 FCB $C0 FCB $C0 FCB $C0 FCB $C0 FCB $C0 FCB $C0 FCB $C0 FCB $C0 FCB $C0 FCB $C0 FCB $C0 FCB $C0 FCB $C0 FCB $C0 FCB $C0 FCB $C0 FCB $C0 FCB $C0 FCB $C0 FCB $C0 FCB $C0 FCB $C0 FCB $C0 FCB $C0 FCB $C0 FCB $C0 FCB $C0 FCB $C0 FCB $B8 FCB $B0 FCB $A8 FCB $A0 FCB $98 FCB $90 FCB $88 FCB $80 FCB $80 FCB $80 FCB $80 FCB $80 FCB $88 FCB $90 FCB $90 FCB $98 FCB $A0 FCB $A0 127/$7F **************************** **XPLOT FOR ZANG******* *************************** XLOOK2 FCB $10 FCB $18 FCB $20 FCB $28 FCB $30 FCB $38 FCB $40 FCB $48 FCB $50 FCB $50 FCB $48 FCB $40 FCB $38 FCB $30 FCB $28 FCB $20 FCB $28 FCB $30 FCB $38 FCB $40 FCB $38 FCB $30 FCB $28 FCB $20 FCB $18 FCB $10 FCB $10 FCB $18 FCB $20 FCB $28 FCB $30 FCB $38 FCB $40 FCB $48 FCB $50 FCB $50 FCB $50 FCB $50 FCB $50 FCB $58 FCB $60 FCB $58 FCB $50 FCB $50 FCB $50 FCB $50 FCB $58 FCB $60 FCB $60 FCB $69 FCB $70 FCB $70 FCB $70 FCB $70 FCB $69 FCB $60 FCB $69 FCB $70 FCB $70 FCB $70 FCB $70 FCB $70 FCB $78 FCB $80 FCB $80 FCB $80 FCB $80 FCB $80 FCB $80 FCB $80 FCB $80 FCB $80 FCB $80 FCB $80 FCB $88 FCB $90 FCB $98 FCB $A0 FCB $A0 FCB $A0 FCB $A0 FCB $A0 FCB $A8 FCB $B0 FCB $B8 FCB $C0 FCB $C8 FCB $D0 FCB $D0 FCB $C8 FCB $C0 FCB $B8 FCB $B0 FCB $B0 FCB $B0 FCB $B8 FCB $C0 FCB $C8 FCB $D0 FCB $D0 FCB $D0 FCB $D0 FCB $D0 FCB $D0 FCB $D0 FCB $C8 FCB $C0 FCB $B8 FCB $B0 FCB $A8 FCB $A0 FCB $98 FCB $90 FCB $88 FCB $80 FCB $78 FCB $70 FCB $69 FCB $60 FCB $58 FCB $50 FCB $48 FCB $40 FCB $38 FCB $30 FCB $28 FCB $20 FCB $18 FCB $10 FCB $18 FCB $20 FCB $28 FCB $30 FCB $38 FCB $40 FCB $48 FCB $50 FCB $58 FCB $60 FCB $69 FCB $70 FCB $78 FCB $80 FCB $88 FCB $90 FCB $98 FCB $A0 FCB $A8 FCB $B0 FCB $B8 FCB $C0 FCB $C8 FCB $D0 FCB $D0 FCB $D0 FCB $D0 FCB $D0 FCB $D0 FCB $D0 FCB $C8 FCB $C0 FCB $B8 FCB $B0 FCB $B0 FCB $B0 FCB $B8 FCB $C0 FCB $C8 FCB $D0 FCB $D0 FCB $C8 FCB $C0 FCB $B8 FCB $B0 FCB $A8 FCB $A0 FCB $A0 FCB $A0 FCB $A0 FCB $A0 FCB $98 FCB $90 FCB $88 FCB $80 FCB $80 FCB $80 FCB $80 FCB $80 FCB $80 FCB $80 FCB $80 FCB $80 FCB $80 FCB $80 FCB $78 FCB $70 FCB $70 FCB $70 FCB $70 FCB $70 FCB $69 FCB $60 FCB $69 FCB $70 FCB $70 FCB $70 FCB $70 FCB $69 FCB $60 FCB $60 FCB $58 FCB $50 FCB $50 FCB $50 FCB $50 FCB $58 FCB $60 FCB $58 FCB $50 FCB $50 FCB $50 FCB $50 FCB $50 FCB $48 FCB $40 FCB $38 FCB $30 FCB $28 FCB $20 FCB $18 FCB $10 FCB $10 FCB $18 FCB $20 FCB $28 FCB $30 FCB $38 FCB $40 FCB $38 FCB $30 FCB $28 FCB $20 FCB $28 FCB $30 FCB $38 FCB $40 FCB $48 FCB $50 FCB $50 FCB $48 FCB $40 FCB $38 FCB $30 FCB $28 FCB $20 FCB $18 ***256 *************************** **XPLOT FOR SMALL STAR* *************************** XLOOK3 FCB $70 FCB $78 FCB $80 FCB $60 FCB $88 FCB $68 FCB $70 FCB $70 ****************************** *XPLOT FOR MEDIUM STAR *** ****************************** XLOOK4 FCB $70 FCB $78 FCB $80 FCB $88 FCB $90 FCB $50 FCB $98 FCB $58 FCB $60 FCB $60 FCB $68 FCB $70 FCB $70 ****************************** *XPLOT FOR LARGE STAR *** ******************************** XLOOK5 FCB $70 FCB $80 FCB $88 FCB $90 FCB $98 FCB $A0 FCB $A8 FCB $A8 FCB $28 FCB $28 FCB $C0 FCB $C0 FCB $40 FCB $40 FCB $48 FCB $50 FCB $58 FCB $60 FCB $68 FCB $70 #$14 ******************************* *XPLOT FOR SMMILEY FACE*** ****************************** XLOOK6 FCB $E0 FCB $E8 FCB $E8 FCB $E0 FCB $D8 FCB $B8 FCB $B0 FCB $A8 FCB $A8 FCB $A8 FCB $B0 FCB $B8 FCB $C0 FCB $C0 FCB $C0 FCB $D8 ;NEW FCB $C8 FCB $B0 FCB $98 FCB $80 FCB $70 FCB $58 FCB $48 FCB $40 FCB $58 FCB $58 FCB $60 FCB $68 FCB $70 FCB $70 FCB $70 FCB $68 FCB $60 FCB $58 FCB $40 ;NEW FCB $30 FCB $28 FCB $28 FCB $28 FCB $30 FCB $40 FCB $60 FCB $80 FCB $A0 FCB $C8 FCB $D8 FCB $E0 ;NEW FCB $C0 FCB $C0 FCB $B0 FCB $A8 FCB $A0 FCB $98 FCB $88 FCB $80 FCB $70 FCB $68 FCB $58 FCB $58 FCB $50 FCB $50 FCB $58 FCB $58 FCB $68 FCB $70 FCB $80 FCB $88 FCB $98 FCB $A0 FCB $A8 FCB $B0 FCB $C0 ****************************** *XPLOT FOR BUBLE BYE *** ****************************** XLOOK7 FCB $38 FCB $08 FCB $08 FCB $08 FCB $08 FCB $30 FCB $50 FCB $30 FCB $58 FCB $38 FCB $38 FCB $70 FCB $70 FCB $70 FCB $48 FCB $48 FCB $60 FCB $78 FCB $80 FCB $98 FCB $B0 FCB $B0 FCB $88 FCB $88 FCB $88 FCB $B0 FCB $B0 FCB $B0 FCB $B0 FCB $E8 FCB $E8 FCB $C0 FCB $C0 FCB $E0 FCB $E0 FCB $C0 FCB $C0 FCB $E8 FCB $E8 FCB $08 ****************************************************************** ****************************************************************** ****************************************************************** * Y AXIS LOOKUP TABLE **************************************** ********************************************************************