PROGRAM LISTING: 85-10/GUP.ASM
10 ; G.U.P.
20 ;
30 ; (THE SOURCE CODE
40 ; FOR THE POPULAR
50 ; GRAPHICS UTILITY
60 ; PUBLISHED IN THE
70 ; JUNE 1985 ISSUE OF ANTIC.)
80 ;
90 ; BY DAREK MIHOCKA
0100 ; (c) 1985, ANTIC PUBLISHING
0110 ;
0120 ;
0130 ;
0140 START = $4000
0150 *= START
0160 JSR INIT
0170 .WORD RANDOM
0180 .WORD SQUARE
0190 .WORD DRAWTO
0200 .WORD LINE
0210 .WORD CIRCLE
0220 .WORD COLOR
0230 .WORD GRAPHICS
0240 .WORD C128
0250 .WORD CIRF
0260 .WORD TEXTPLOT
0270 .WORD ONEPLOT
0280 .WORD COLORN
0290 .WORD SETCOLOR
0300 ;FUTURE EXPANSION
0310 .WORD END
0320 .WORD END
0330 TITLE .SBYTE " GRAPHICS UTILITY PACKAGE. DAREK MIHOCKA"
0340 ;ZERO PAGE VARIABLES
0350 XLOC = 203
0360 YLOC = 204
0370 COL = 205
0380 OFFSET = 206
0390 ONEORMANY = 207
0400 XLOCOFFSET = 208
0410 HBYTES = 209
0420 ;THE FOLLOWING ARE TEMPORARY
0430 ;VARIABLES STORED IN FR0
0440 REG1 = 212
0450 REG2 = 214
0460 REG3 = 216
0470 SLOPE = 218
0480 MASK = 220
0490 XMAX = 221
0500 YMAX = 222
0510 XTEMP = 223
0520 YTEMP = 224
0530 IDEAL = 225
0540 RAD = 227
0550 ORAD = 228
0560 RADS = 229
0570 XC = 230
0580 YC = 231
0590 YTEMP2 = 232
0600 STRHI = 233
0610 STRLO = 234
0620 STRLEN = 235
0630 LCOUNT = 236
0640 ;THE SUPERFAST PLOT
0650 PLOT LDA XLOC
0660 AND #$07 ;0-7
0670 ORA OFFSET ;8n
0680 TAX ;=MASK OFFSET
0690 LDA YLOC
0700 AND #3
0710 TAY
0720 LDA MASKTABLE,X
0730 AND ONEORMANY ;0 MAKES MANY
0740 STA MASK
0750 EOR #255
0760 AND COLOR,Y
0770 STA COL
0780 ;ENTER HERE FOR MORE SPEED
0790 MINIPLOT LDX YLOC
0800 CPX #192
0810 BCS PLOTFIN
0820 LDA XLOC
0830 YDIV
0840 LDY #2
0850 BEQ MEM87
0860 LSR A
0870 DEY
0880 BEQ MEM87
0890 LSR A
0900 DEY
0910 BEQ MEM87
0920 LSR A
0930 MEM87 TAY
0940 MEM88
0950 LDA SCR.TABLE,X
0960 STA REG2
0970 LDA SCR.TABLE+$C0,X
0980 MEM89
0990 STA REG2+1
1000 LDA (REG2),Y
1010 AND MASK
1020 ORA COL
1030 STA (REG2),Y ;THE PLOT
1040 PLOTFIN RTS
1050 XINT .WORD 0
1060 COLOR .WORD $FFFF,$FFFF
1070 MUL .WORD 0
1080 ;MASK FOR PLOT
1090 MASKTABLE .BYTE 0,0,0,0,0,0,0,0,15,240,15,240,15,240,15,240,$3F,$CF,$F3,$FC,$3F,$CF,$F3,$FC
1100 .BYTE $7F,$BF,$DF,$EF,$F7,$FB,$FD,$FE
1110 HLINMACH
1120 LDA XMAX ;NO ENTRY FROM BASIC
1130 CMP XLOC ;MAKE SURE
1140 BEQ FINI.2 ;XLOC<XMAX
1150 BCS HLIN2
1160 LDX XLOC
1170 STX XMAX
1180 STA XLOC
1190 HLIN2 LDA XMAX
1200 AND MASKFORHLIN
1210 STA XTEMP
1220 LDA XLOC
1230 AND MASKFORHLIN
1240 CMP XTEMP
1250 BEQ HLIN4.4
1260 CMP XLOC
1270 BEQ HLIN3.2
1280 ADC HBYTES
1290 STA YTEMP ;XLOC/4+1
1300 HLIN2.2
1310 JSR PLOT
1320 INC XLOC
1330 LDA XLOC
1340 CMP XMAX
1350 FINI.2
1360 BEQ HLIN4.4
1370 CMP XTEMP
1380 BEQ HLIN4.4
1390 CMP YTEMP
1400 BNE HLIN2.2
1410 HLIN3.2
1420 LDA #0
1430 STA ONEORMANY
1440 JSR PLOT
1450 LDA XLOC
1460 CLC
1470 ADC HBYTES
1480 STA XLOC
1490 JMP HLIN3.5
1500 HLIN3.3
1510 INC REG2
1520 BNE HLIN3.4
1530 INC REG2+1
1540 HLIN3.4
1550 LDA COL
1560 STA (REG2),Y
1570 LDA XLOC
1580 CLC
1590 ADC HBYTES
1600 STA XLOC
1610 HLIN3.5
1620 CMP XTEMP
1630 BNE HLIN3.3
1640 LDA #$FF
1650 STA ONEORMANY
1660 HLIN4.4
1670 JSR PLOT
1680 LDA XLOC
1690 CMP XMAX
1700 BEQ FINI
1710 INC XLOC
1720 JMP HLIN4.4
1730 FINI
1740 RTS
1750 MASKFORHLIN .BYTE 0
1760 SQUARE PLA ;A=USR(BOX,A,B,C,D)
1770 PLA
1780 PLA
1790 STA XMIN
1800 PLA
1810 PLA
1820 STA YLOC
1830 PLA
1840 PLA
1850 STA XMAX
1860 PLA
1870 PLA
1880 STA YMAX
1890 SQRMACH
1900 LDA XMIN
1910 CMP XMAX
1920 BCC S01
1930 LDX XMAX
1940 STX XMIN
1950 STA XMAX
1960 S01 LDA YLOC
1970 CMP YMAX
1980 BCC S02
1990 LDX YMAX
2000 STX YLOC
2010 STA YMAX
2020 S02
2030 LDA XMIN
2040 STA XLOC
2050 JSR HLIN2
2060 INC YLOC
2070 LDA YLOC
2080 CMP YMAX
2090 BNE S02
2100 LDA XMIN
2110 STA XLOC
2120 JSR HLIN2
2130 END2 RTS
2140 YMIN .WORD 0
2150 XMIN .WORD 0
2160 DRAWTO PLA ;BASIC DR.
2170 STA NARG
2180 INC NARG
2190 INC NARG
2200 LDA TYMAX
2210 PHA
2220 LDA #0
2230 PHA
2240 LDA TXMAX
2250 PHA
2260 LDA #0
2270 PHA
2280 LDA NARG
2290 PHA
2300 LINE
2310 PLA ;LINE X,Y,A,B...
2320 LSR A
2330 BEQ END2
2340 CMP #1
2350 BNE LINE3
2360 JMP PLOT
2370 LINE3 STA NARG
2380 DEC NARG
2390 PLA
2400 PLA
2410 STA XLOC
2420 PLA
2430 PLA
2440 STA YLOC
2450 STA IDEAL+1
2460 JMP ARGLOOPINIT
2470 ARGLOOP
2480 LDA TXMAX
2490 STA XLOC
2500 LDA TYMAX
2510 STA YLOC
2520 STA IDEAL+1
2530 ARGLOOPINIT
2540 PLA
2550 STA NEGSL
2560 PLA
2570 STA XMAX
2580 STA TXMAX
2590 PLA
2600 PLA
2610 STA YMAX
2620 STA TYMAX
2630 JSR DRAWTOMACH
2640 DEC NARG
2650 BNE ARGLOOP
2660 RTS
2670 NARG .WORD 0
2680 TXMAX .WORD 0
2690 TYMAX .WORD 0
2700 DRAWTOMACH LDA YMAX
2710 CMP YLOC
2720 BNE DIV1 ;SAME Y?
2730 JMP HLINMACH ;YES, DO HLIN
2740 DIV1
2750 LDA XMAX
2760 CMP XLOC
2770 BNE DIV2 ;SAME X?
2780 JMP VLINMACH ;YES, DO VLIN
2790 DIV2 BCS DIV22
2800 LDX XLOC
2810 STX XMAX
2820 STA XLOC
2830 LDA YLOC
2840 LDY YMAX
2850 STA YMAX
2860 STY YLOC
2870 STY IDEAL+1
2880 LDA XMAX
2890 DIV22 SEC
2900 SBC XLOC
2910 STA DIV ;DIVISOR
2920 PHA
2930 LDA YLOC
2940 STA IDEAL+1
2950 LDA #0
2960 STA G128
2970 STA NEGSL
2980 PLA
2990 BPL DIV.OK
3000 STA G128
3010 LSR DIV
3020 DIV.OK
3030 INC DIV
3040 LDA YMAX
3050 SEC
3060 SBC YLOC
3070 BCS DIV23
3080 PHA
3090 LDA #1
3100 STA NEGSL
3110 PLA
3120 EOR #255
3130 DIV23 CLC ;DIVIDEND
3140 ADC #1
3150 STA LOBYT
3160 LDA #0
3170 JSR DIV3 ;M=Y/X
3180 PHA
3190 STA LOBYT
3200 LDA QUT
3210 STA SLOPE+1 ;M-HI BYTE
3220 LDA #0
3230 STA LOBYT
3240 PLA
3250 CLC
3260 ADC #0
3270 JSR DIV3
3280 LDA QUT
3290 STA SLOPE ;M-LO BYTE
3300 LDA #128 ;XLOC+1
3310 STA IDEAL ;TO ROUND OFF
3320 LDA #$E6
3330 STA INYLOC
3340 STA INYLOC2
3350 LDA G128
3360 BEQ L128
3370 CLC
3380 ROR SLOPE+1
3390 ROR SLOPE
3400 L128
3410 LDA SLOPE+1
3420 STA MSMALL
3430 CMP #1
3440 BNE L129
3450 LDA SLOPE
3460 STA MSMALL
3470 ;IF SLOPE <=1 THEN MSMALL=0
3480 L129
3490 LDA NEGSL
3500 BEQ FIRSTPLOT
3510 LDA SLOPE
3520 EOR #255
3530 STA SLOPE
3540 LDA SLOPE+1
3550 EOR #255
3560 STA SLOPE+1
3570 LDA #$C6
3580 STA INYLOC
3590 STA INYLOC2
3600 FIRSTPLOT LDA MSMALL
3610 BEQ CHECK1
3620 JSR PLOT
3630 NEXTIDEAL CLC ;CALCULATE
3640 LDA IDEAL ;IDEAL POS.
3650 ADC SLOPE
3660 STA IDEAL
3670 LDA IDEAL+1
3680 ADC SLOPE+1
3690 STA IDEAL+1
3700 LDA YLOC
3710 CMP IDEAL+1
3720 BEQ CHECK1
3730 INYLOC2 INC YLOC
3740 DRAWLOOP LDA YLOC
3750 CMP IDEAL+1
3760 BEQ CHECK1 ;Y=IDEAL?
3770 CMP YMAX
3780 BEQ CHECK1 ;Y=MAX?
3790 JSR PLOT
3800 INYLOC INC YLOC
3810 JMP DRAWLOOP
3820 CHECK1
3830 JSR PLOT
3840 LDA XLOC
3850 CMP XMAX
3860 BEQ DRDONE
3870 INC XLOC
3880 JMP NEXTIDEAL
3890 DRDONE RTS
3900 DIV .WORD 0
3910 QUT .WORD 0
3920 LOBYT .WORD 0
3930 REMDR .WORD 0
3940 NEGSL .WORD 0
3950 MSMALL .BYTE 0
3960 DIV3
3970 LDY #8
3980 SEC
3990 SBC DIV
4000 DLOOP
4010 PHP
4020 ROL QUT
4030 ASL LOBYT
4040 ROL A
4050 PLP
4060 BCC WORDDD
4070 SBC DIV
4080 JMP DNEXT
4090 WORDDD ADC DIV
4100 DNEXT DEY
4110 BNE DLOOP
4120 BCS DLAST
4130 ADC DIV
4140 CLC
4150 DLAST ROL QUT
4160 RTS
4170 VLINMACH LDA YLOC
4180 CMP YMAX
4190 BCC VLIN22
4200 LDY YMAX
4210 STA YMAX
4220 STY YLOC
4230 VLIN22 JSR PLOT
4240 LDA YLOC
4250 CMP YMAX
4260 BEQ VEND
4270 VLINLOOP INC YLOC
4280 JSR PLOT
4290 LDA YLOC
4300 CMP YMAX
4310 BNE VLINLOOP
4320 VEND RTS
4330 CIRCLE
4340 PLA ;A=USR(CIRCLE,X,Y,R)
4350 PLA
4360 PLA
4370 STA XC
4380 PLA
4390 PLA
4400 STA YC
4410 PLA
4420 STA IDEAL
4430 STA IDEAL+1
4440 PLA
4450 STA RAD
4460 BEQ VEND
4470 CIRMACH
4480 STA DIV ;DIV=RAD
4490 LDA #128
4500 STA LOBYT
4510 LDA #0
4520 JSR DIV3
4530 PHA
4540 LDA #0
4550 STA LOBYT
4560 LDA QUT
4570 STA SLOPE+1 ;HI BYTE OF /
4580 PLA
4590 JSR DIV3
4600 LDA QUT
4610 STA SLOPE ;LO BYTE
4620 LDA #255
4630 STA LCOUNT
4640 YLOOP
4650 LDA IDEAL
4660 CLC
4670 ADC SLOPE
4680 STA IDEAL
4690 LDA IDEAL+1
4700 ADC SLOPE+1
4710 STA IDEAL+1
4720 TAX
4730 BIT IDEAL+1
4740 BMI VEND ;FINISHED?
4750 INC LCOUNT
4760 LDA YC
4770 SEC
4780 SBC LCOUNT
4790 STA YLOC
4800 LDA CIRWORD,X
4810 STA MUL
4820 LDA #0
4830 STA LOBYT
4840 LDX #8
4850 MULOOP LSR MUL
4860 BCC NOADD
4870 CLC
4880 ADC RAD
4890 NOADD ROR A
4900 ROR LOBYT
4910 DEX
4920 BNE MULOOP
4930 CIRCLESTRETCH.1 NOP
4940 CIRCLESTRETCH.2 NOP
4950 STA RADS
4960 LDA CIRF
4970 BEQ RING
4980 LDA XC
4990 CLC
5000 ADC RADS
5010 STA XMAX
5020 LDA XC
5030 SEC
5040 SBC RADS
5050 STA XLOC
5060 JSR HLIN2 ;UPPER LINE
5070 LDA YC
5080 CLC
5090 ADC LCOUNT
5100 STA YLOC
5110 LDA XC
5120 SEC
5130 SBC RADS
5140 STA XLOC
5150 JSR HLIN2 ;LOWER LINE
5160 JMP YLOOP
5170 RING
5180 LDA LCOUNT
5190 BNE RING2
5200 LDA YC
5210 STA YLOC
5220 LDA XC
5230 CLC
5240 ADC RADS
5250 STA XLOC
5260 JSR PLOT
5270 LDA XC
5280 SEC
5290 SBC RADS
5300 STA XLOC
5310 JSR PLOT
5320 RING4 LDA RADS
5330 STA ORAD
5340 JMP YLOOP
5350 RING2
5360 LDA YC
5370 CLC
5380 ADC LCOUNT
5390 STA YLOC
5400 JSR RING3
5410 LDA YC
5420 SEC
5430 SBC LCOUNT
5440 STA YLOC
5450 JSR RING3
5460 JMP RING4
5470 RING3 LDA XC
5480 SEC ;DOES THE LEFT
5490 SBC ORAD ;SIDE OF
5500 STA XLOC ;THE RING
5510 LDA XC
5520 SEC
5530 SBC RADS
5540 STA XMAX
5550 JSR HLINMACH
5560 LDA XC
5570 CLC ;DOES THE RIGHT
5580 ADC ORAD ;SIDE OF
5590 STA XMAX ;THE RING
5600 LDA XC
5610 CLC
5620 ADC RADS
5630 STA XLOC
5640 JSR HLINMACH ;DRAWIT
5650 RTS
5660 CIRF .WORD 1
5670 NUMDIV .BYTE 0
5680 ;DATA FOR OFFSET TO BIT MASK
5690 TABOFFSET .BYTE 0,0,0,16,24,16,24,16,24,8,8,8,0,0,24,16
5700 ;DATA FOR CIRCLE RATIO
5710 TABRATIO .BYTE 255,0,1,255,255,255,255,255,255,1,1,1,255,255,1,0
5720 GRAPHICS
5730 PLA ;BASIC GR. (0-63)
5740 PLA
5750 PLA
5760 STA GRMODE
5770 AND #$0F
5780 TAX
5790 LDA TABOFFSET,X
5800 STA OFFSET
5810 LDA #$EA
5820 STA CIRCLESTRETCH.1
5830 STA CIRCLESTRETCH.2 ;NOP'S
5840 LDA TABRATIO,X
5850 BEQ NOSTRETCH
5860 CMP #255
5870 BEQ GR8
5880 CMP #2
5890 BEQ STRETCH2
5900 STRETCH1 LDA #$4A
5910 STA CIRCLESTRETCH.1
5920 JMP NOSTRETCH
5930 STRETCH2 LDA #$4A
5940 STA CIRCLESTRETCH.2
5950 JMP STRETCH1
5960 GR8 LDA #$0A
5970 JMP STRETCH1+2
5980 NOSTRETCH
5990 LDA BYTAB,X
6000 STA BYTES
6010 LDA TABHLIN,X
6020 STA MASKFORHLIN
6030 LDA DTAB,X
6040 STA YDIV+1 ;£ OF ROT'S
6050 STA NUMDIV
6060 LDA HBTAB,X
6070 STA HBYTES ;£OF PIXELS/BYTE
6080 TXA
6090 CMP #12
6100 BPL OK12
6110 LDA GRMODE
6120 JSR GRAPHICSMACH ;EXIT TO OS
6130 LDA GRMODE
6140 AND #$0F
6150 CMP #9
6160 BMI CALC
6170 LDA #4
6180 STA 703 ;SUPPRESS GR.0
6190 BNE CALC
6200 OK12 LDA GRMODE
6210 AND #$30
6220 STA TEMP
6230 LDA GRMODE
6240 AND #3 ;SUB 12
6250 TAX
6260 PHA ;SAVE X
6270 LDA GTAB,X
6280 ORA TEMP
6290 JSR GRAPHICSMACH ;DO GR.
6300 PLA ;GET X
6310 TAX
6320 LDA ATAB,X
6330 STA ANTICMOD+1
6340 LDX GRMODE
6350 LDY #202
6360 ANTICLOOP LDA (REG2),Y
6370 AND #$BF ;LDA FROM DL
6380 CMP ANTICMOD ;NEW MODE?
6390 BNE NEXTANTIC
6400 LDA (REG2),Y
6410 AND #$F0
6420 ORA ANTICMOD+1 ;CHANGE MODE
6430 STA (REG2),Y
6440 NEXTANTIC DEY
6450 BNE ANTICLOOP
6460 CALC
6470 LDX #8
6480 CALC.COL
6490 LDA SETCOLOR,X
6500 STA 704,X
6510 DEX
6520 BPL CALC.COL
6530 LDA 88
6540 CLC
6550 ADC XLOCOFFSET
6560 STA IDEAL
6570 STA SCR.TABLE
6580 LDA 89
6590 STA IDEAL+1
6600 STA SCR.TABLE+$C0
6610 LDY #1
6620 CALCLOOP CLC
6630 LDA IDEAL
6640 ADC BYTES
6650 STA IDEAL
6660 STA SCR.TABLE,Y
6670 LDA IDEAL+1
6680 ADC #0
6690 STA IDEAL+1
6700 STA SCR.TABLE+$C0,Y
6710 INY
6720 CPY #192
6730 BNE CALCLOOP
6740 RTS
6750 ;IMITATE GR.12-15 WITH 0 OR 8
6760 GTAB .BYTE 0,0,8,8
6770 ANTICMOD .WORD 0
6780 ATAB .BYTE 4,5,12,14
6790 GRMODE .WORD 0
6800 BYTAB .BYTE 40,20,20,10,10,20,20,40,40,40,40,40,40,40,20,40
6810 ;BYTES PER SCREEN
6820 TABHLIN .BYTE 255,255,255,$FC,$F8,$FC,$F8,$FC,$F8,$FE,$FE,$FE,255,255,$F8,$FC
6830 BYTES .WORD 0
6840 C128
6850 TDLO = 544 ;TIMER 5
6860 PLA
6870 PLA
6880 STA TDLO+1 ;TIME DELAY HI
6890 PLA
6900 STA TDLO ;TIME DELAY LO
6910 PLA
6920 PLA
6930 TAX ;COLOR REGISTER
6940 LDA #255
6950 STA 558
6960 CLOOP
6970 LDA 54283
6980 CLC
6990 ADC 20
7000 ASL A
7010 STA 54282
7020 STA 53266,X
7030 LDA 558
7040 BNE CLOOP
7050 RTS
7060 GRAPHICSMACH PHA
7070 LDX #$60
7080 LDA #255&CCLOSE
7090 STA ICCOM,X
7100 JSR CIO
7110 LDX #$60
7120 LDA #255&COPEN
7130 STA ICCOM,X
7140 LDA #SCREENNAME&255
7150 STA ICBADR,X
7160 LDA #SCREENNAME/256
7170 STA ICBADR+1,X
7180 PLA
7190 STA ICAUX2,X
7200 AND #$F0
7210 EOR #$1C
7220 STA ICAUX1,X
7230 JSR CIO
7240 LDA 560
7250 STA REG2
7260 LDA 561
7270 STA REG2+1
7280 LDY #7
7290 LDA (REG2),Y
7300 STA ANTICMOD
7310 RTS
7320 CIO = $E456
7330 ICCOM = $0342
7340 ICBADR = $0344
7350 ICAUX1 = $034A
7360 ICAUX2 = $034B
7370 COPEN = 3
7380 CCLOSE = 12
7390 SCREENNAME .BYTE "S:"
7400 CIRWORD
7410 ;THE CIRCLE DATA. HERE GOES:
7420 .BYTE 153,153,153,153,153,153,153,153,153,153,153,152,152,152,152,152,152,152,151,151
7430 .BYTE 151,151,151,150,150,150,150,150,149,149,149,148,148,148,147,147,147,146,146,146
7440 .BYTE 145,145,144,144,144,143,143,142,142,141,141,140,140,139,138,138,137,137,136,135
7450 .BYTE 135,134,134,133,132,131,131,130,129,128,128,127,126,125,124,123,123,122,121,120
7460 .BYTE 119,118,117,116,115,114,113,111,110,109,108,107,105,104,103,102,100,99,97,96
7470 .BYTE 94,93,91,90,88,86,84,82,81,79,76,74,72,70,67,65,62,60,57,53
7480 .BYTE 50,46,43,38,33,27,19,0
7490 TEXTPLOT
7500 PLA
7510 PLA
7520 PLA
7530 STA XLOC
7540 PLA
7550 PLA
7560 STA YLOC
7570 PLA
7580 STA STRHI
7590 PLA
7600 STA STRLO
7610 PLA
7620 PLA
7630 STA STRLEN
7640 DEC STRLEN
7650 LDY #0
7660 TEXT.1
7670 LDA STRLO
7680 STA REG2
7690 LDA STRHI
7700 STA REG2+1
7710 LDA (REG2),Y
7720 STY YTEMP
7730 PHA ; STORE LETTER
7740 AND #$60
7750 LSR A
7760 LSR A
7770 LSR A
7780 LSR A
7790 LSR A
7800 TAY ;CONVERSION
7810 LDA CONV,Y
7820 STA XTEMP
7830 PLA
7840 AND #$9F
7850 ORA XTEMP ;DONE!
7860 STA SLOPE
7870 LDA #0
7880 STA SLOPE+1
7890 CLC
7900 ROL SLOPE
7910 ROL SLOPE+1
7920 ROL SLOPE
7930 ROL SLOPE+1
7940 ROL SLOPE
7950 ROL SLOPE+1
7960 LDA SLOPE
7970 STA REG2
7980 LDA SLOPE+1
7990 CLC
8000 ADC #57344/256
8010 STA REG2+1 ;REG2=CHS+8*ASC
8020 LDY #7
8030 TEXT.2 STY YTEMP2
8040 TYA
8050 CLC
8060 ADC YLOC
8070 TAX
8080 LDA XLOC
8090 LSR A
8100 LSR A
8110 CLC
8120 MEM88.1
8130 ADC SCR.TABLE,X
8140 STA REG1
8150 LDA SCR.TABLE+$C0,X
8160 ADC #0
8170 MEM89.1
8180 STA REG1+1 ;REG1=SCR.BYTE
8190 LDA XLOC
8200 AND #$03
8210 TAX
8220 CLC
8230 LDY YTEMP2
8240 LDA (REG2),Y
8250 STA REG3
8260 LDA #0
8270 STA REG3+1
8280 TEXT.3
8290 ROR REG3
8300 ROR REG3+1
8310 DEX
8320 BPL TEXT.3
8330 LDY #0
8340 LDA TEXT.CLEAR
8350 AND (REG1),Y
8360 EOR REG3
8370 STA (REG1),Y
8380 INY
8390 LDA TEXT.CLEAR
8400 AND (REG1),Y
8410 EOR REG3+1
8420 STA (REG1),Y
8430 LDY YTEMP2
8440 DEY
8450 BPL TEXT.2
8460 INC XLOC
8470 INC XLOC
8480 INC XLOC
8490 INC XLOC
8500 LDA XLOC
8510 CMP #152
8520 BCC TEXT.5
8530 SEC
8540 SBC #152
8550 STA XLOC
8560 LDA YLOC
8570 CLC
8580 ADC #8
8590 STA YLOC
8600 CMP #184
8610 BCC TEXT.5
8620 TEXT.5
8630 LDY YTEMP
8640 CPY STRLEN
8650 BEQ TEXT.4
8660 INY
8670 JMP TEXT.1
8680 TEXT.4
8690 RTS
8700 TEXT.CLEAR .WORD 255
8710 CONV .BYTE $40,$00,$20,$60
8720 G128 .WORD 0
8730 DTAB .BYTE 0,0,0,2,3,2,3,2,3,1,1,1,0,0,3,2
8740 ;LOG2 OF HBTAB
8750 HBTAB .BYTE 1,1,1,4,8,4,8,4,8,2,2,2,1,1,8,4
8760 ;PIXELS PER BYTE
8770 TEMP .WORD 0
8780 ONEPLOT
8790 PLA ;BASIC ENTRY - PLOT
8800 PLA
8810 PLA
8820 STA XLOC
8830 PLA
8840 PLA
8850 STA YLOC
8860 JMP PLOT
8870 COLORN
8880 PLA ;A=USR(SET,A1,A2,A3,A4)
8890 LDX #4
8900 LDY #0
8910 COLOR.2
8920 PLA
8930 PLA
8940 STA COLOR,Y
8950 INY
8960 DEX
8970 BNE COLOR.2
8980 RTS
8990 RANDOM
9000 PLA
9010 LDX #3
9020 RND.LOOP
9030 LDA 53770
9040 STA COLOR,X
9050 DEX
9060 BPL RND.LOOP
9070 RTS
9080 INIT
9090 LDA 88
9100 STA REG1
9110 LDA 89
9120 STA REG1+1
9130 LDY #39
9140 INITLOOP
9150 LDA TITLE,Y
9160 STA (REG1),Y
9170 DEY
9180 BPL INITLOOP
9190 LDA #255
9200 STA ONEORMANY
9210 LDA #$24
9220 STA 710
9230 RTS
9240 SETCOLOR
9250 *= *+9
9260 SCR.TABLE
9270 *= *+384
9280 END
Back to previous page