02 ;GRAPHICS, DRAWTO AND FILL›04 ;PAGE #'S FROM 1982 TECH. REF. NOTES›06 ;PROGRAM BY JT.›08 ;ASSEMBLE AND TYPE "BUG"; "G0602"›10 ;›12 ;SET UP PLAYFIELD COLOR REGISTERS›14 ;pg. 62›16 COLPF0 = $2C4›18 COLPF1 = $2C5›20 COLPF2 = $2C6 ;TEXT WINDOW›22 COLPF3 = $2C7›24 COLPF4 = $2C8 ;BACKGROUND›26 ;SOME COLORS YOU CAN USE pg. 190›28 GOLD = $18›30 REDOR = $34›32 BLUE = $78›34 GREEN = $C4›36 ;›38 ;CURSOR REGISTERS pg. 61,212-225›40 ROWCRS = $54›42 COLCRS = $55›44 NEWROW = $60›46 NEWCOL = $61›48 CRSINH = $02F0›50 OLDROW = $5A›52 OLDCOL = $5B›54 FILDAT = $2FD ;FOR FILL COLOR›56 ATACHR = $2FB ;FOR DRAW COLOR›58 *=$0600 ;STARTING ADRESS›60 DEV .BYTE "S:" :SCREEN›62 LDX #$60 ;IOCB #6›64 LDA #$3 ;OPEN›66 STA $342,X ;ICCOM COMMAND CODE›68 LDA #DEV&$00FF ;MASK OFF HI BYTE›70 STA $344,X ;ICBAL BUFFER ADR. LO BYTE›72 LDA #DEV/256 ;HI BYTE›74 STA $345,X ;ICBAH›76 LDA #$0C ;READ/WRITE. SPLIT SCREEN›78 STA $34A,X ;ICAX1›80 LDA #3 ;GR. 3›82 STA $34B,X ;ICAX2›84 JSR $E456 ;LET CIOV HANDLER DO IT›86 LDA #REDOR ;RED-ORANGE FOR PF1›88 STA COLPF1›90 LDA #2›92 ;IN GR.3 DATA VALUE FOR PF1 = 2›94 ;SEE TECH. NOTES APPENDIX H, 60-62, 188-189›96 STA ATACHR›98 LDA #0 ;PLOT AND›0100 STA OLDCOL›0102 LDA #12›0104 STA OLDROW›0106 STA COLCRS ;DRAWTO POSITIONS›0108 STA ROWCRS›0110 LDX #$60 ;IOCB #6›0112 LDA #$11 ;DRAW COMMAND pg. 60,218›0114 STA $342,X ;ICCOM›0116 JSR $E456 ;CIOV›0118 LDA #0 ;DRAW NEW POSITIONS›0120 STA ROWCRS›0122 JSR $E456›0124 LDA #0›0126 STA COLCRS›0128 JSR $E456›0130 LDA #12›0132 STA ROWCRS›0134 JSR $E456›0136 LDA #0›0138 STA ROWCRS›0140 LDA #1 ;PF0 COLOR DATA›0142 STA FILDAT ;FILL WITH PF0 COLOR›0144 LDX #$60›0146 LDA #$12 ;FILL CODE›0148 STA $342,X›0150 JSR $E456›0152 STOP JMP STOP ;HOLD ON SCREEN›0154 ;NOW MAKE YOUR OWN PLAYFIELDS›