1000 ; LISTING 2 PMCURSOR.SRC
1010 ; PLAYER CURSOR BY JERRY WHITE
1020 ; AND CARLOS REYES
1030 ;
1040 ;System Equates
1050 ;
1060 ROWCRS=$54
1070 COLCRS=$55
1080 DINDEX=$57
1090 FR0=$D4
1100 SRTIMR=$22B
1110 SDMCTL=$22F
1120 GPRIOR=$26F
1130 TXTROW=$290
1140 TXTCOL=$291
1150 TINDEX=$293
1160 BOTSCR=$2BF
1170 PCOLR2=$2C2
1180 CRSINH=$2F0
1190 HPOSP2=$D002
1200 SIZEP2=$D00A
1210 COLPM2=$D014
1220 GRACTL=$D01D
1230 PRIOR=$D01B
1240 DMACTL=$D400
1250 PMBASE=$D407
1260 SETVBV=$E45C
1270 XITVBV=$E462
1280 ;
1290 ;Program Equates
1300 ;
1310 PSTART=0
1320 PLAYER2=PSTART+$600
1330 PSHAPE=PSTART+$600 ;Shape data
1340 PCOLOR=10
1350 PRATE=8
1360 PFLASH=PSHAPE+8
1370 ;
1380 ;Call from BASIC where ROUTINE
1390 ;is the address of this routine
1400 ;CURSOR=USR(ROUTINE)
1410 ;
1420  *=$4000        ;Relocatable
1430 ;
1440 INIT
1450  PLA            ;# arguments=0
1460  LDA FR0        ;FR0=INIT
1470  CLC
1480  ADC #MAIN-INIT&$FF
1490  STA FR0
1500  LDA FR0+1
1510  ADC #MAIN-INIT/$100
1520  STA FR0+1      ;FR0=MAIN
1530  LDX #8-1       ;Move cursor data
1540  LDY #SHAPE-MAIN+7
1550 LOOP
1560  LDA (FR0),Y
1570  STA PSHAPE,X
1580  DEY
1590  DEX
1600  BPL LOOP
1610  LDY FR0        ;Enable VBLANK
1620  LDX FR0+1
1630  LDA #7         ;Deferred
1640  JMP SETVBV     ;Return
1650 ;
1660 ;Start of the VBLANK routine
1670 ;
1680 MAIN
1690  LDA CRSINH     ;PEEK(752)
1700  BEQ ERASE      ;No PM cursor
1710  LDA SRTIMR     ;Key pressed?
1720  BEQ SKIP
1730  LDA #0         ;Yes, show cursor
1740  BEQ SKIP1      ;Forced branch
1750 SKIP
1760  LDA PFLASH     ;Flashing logic
1770  CLC
1780  ADC #PRATE
1790 SKIP1
1800  STA PFLASH
1810  BMI ERASE      ;Cursor invisible
1820  LDY #255       ;Clear the player RAM
1830  LDA #0
1840 LOOP1
1850  STA PLAYER2,Y
1860  DEY
1870  CPY #8
1880  BNE LOOP1
1890  LDA #PCOLOR    ;Init PM variables
1900  STA PCOLR2     ;Player 2 color
1910  STA COLPM2
1920  LDA #1
1930  STA GPRIOR
1940  STA PRIOR
1950  LDA #0
1960  STA SIZEP2
1970  LDA #PSTART/$100
1980  STA PMBASE
1990  LDA #2
2000  STA GRACTL
2010  LDA #2+32+8+16
2020  STA SDMCTL
2030  STA DMACTL
2040  LDX COLCRS     ;Check screen mode
2050  LDY ROWCRS
2060  LDA DINDEX
2070  ORA TINDEX
2080  BEQ SKIP2      ;Full screen
2090  LDA BOTSCR
2100  CMP #4
2110  BNE ERASE      ;No text window
2120  TYA            ;Add offset to line
2130  CLC
2140  ADC #20
2150  TAY
2160 SKIP2
2170  TXA            ;Find hor. pos.
2180  ASL A
2190  ASL A
2200  ADC #48
2210  STA HPOSP2
2220  TYA            ;Find vert. pos.
2230  ASL A
2240  ASL A
2250  ASL A
2260  ADC #32+7
2270  TAY            ;Move cursor into
2280  LDX #7         ;position
2290 LOOP2
2300  LDA PSHAPE,X
2310  STA PLAYER2,Y
2320  DEY
2330  DEX
2340  BPL LOOP2
2350  JMP XITVBV     ;RETURN
2380 ;
2390 ERASE
2400  LDA #0         ;Move player
2410  STA HPOSP2     ;off screen
2420  JMP XITVBV
2430 ;
2440 ;Data for underline shape
2450 ;
2460 SHAPE
2470  .BYTE 0,0,0,0,0,0,0,240