C64 Software  <  SCA: The C64 Software Collection / WAPPEN.S

  Run
1000              ;
1010              ; WAPPEN-ANZEIGER
1020              ; 28-DEC-1987 CHW
1030              ; VERSION 1.0
1040              ; 01-JAN-1988 CHW
1050              ;
1060              ;
1070              ORG 20000
1080              ;
1090 V            EQU 53248
1100 SPDATA       EQU 20480
1110 SPBUF        EQU 15872
1120 SPPTR        EQU 2040
1130 SPNUM        EQU 248
1140              ;
1150 TMP1         EQU 250
1160              ;
1170              ;
1180 INIT         CMP #0
1190              BEQ SPRITEOFF
1200              ;
1210              TAX
1220              DEX
1230              LDY #0
1240              STY TMP1
1250              ASL    ; 512ER BLOCKS
1260              CLC
1270              ADC #>SPDATA-2
1280              STA TMP1+1
1290              ;
1300              LDY #0
1310 MOV          LDA (TMP1),Y
1320              STA SPBUF,Y
1330              INC TMP1+1
1340              LDA (TMP1),Y
1350              STA SPBUF+256,Y
1360              DEC TMP1+1
1370              DEY
1380              BNE MOV
1390              ;
1400              LDA #0
1410              STA V+39 ; FARBE SPR0
1420              STA V+40 ; FARBE SPR1
1430              STA V+41 ; FARBE SPR2
1440              STA V+42 ; FARBE SPR3
1450              STA V+43 ; FARBE SPR4
1460              STA V+44 ; FARBE SPR5
1470              LDA COL6,X
1480              STA V+45    ; SPR6
1490              LDA COL7,X
1500              STA V+46    ; SPR7
1510              LDA MCOL1,X
1520              STA V+37    ; FARBE 1
1530              LDA MCOL2,X
1540              STA V+38    ; FARBE 2
1550              LDX #15
1560 COLLOOP      LDA COORDS,X
1570              STA V,X
1580              DEX
1590              BPL COLLOOP
1600              ;
1610              LDX #0
1620              LDA #SPNUM
1630 PTLOOP       STA SPPTR,X
1640              CLC
1650              ADC #1
1660              INX
1670              CPX #8
1680              BNE PTLOOP
1690              ;
1700              LDA #%11000000
1710              STA V+29   ; EXPAND X
1720              STA V+28   ; MULTICOL
1730              LDA #%01000000
1740              STA V+23   ; EXPAND Y
1750              LDA #255
1760              STA V+21   ; ENABLE
1770              RTS
1780              ;
1790              ;
1800 SPRITEOFF    LDA #0
1810              STA V+21
1820              RTS
1830              ;
1840              DFB ""
1850              ;
1860              ;
1870 COORDS       DFB 100,130,124,130,100,151,124,151
1880              DFB 100,172,124,172,100,130,100,172
1890              ;
1900 COL6         DFB 7,7,1,5,1,1,7,7,5,5,1,1,5,1,1,1,1,1,2,7,7,5,1
1910 COL7         DFB 7,7,2,5,1,1,5,7,5,5,1,1,5,1,1,1,1,1,2,7,5,5,1
1920 MCOL1        DFB 2,6,7,1,2,1,7,6,2,2,1,2,2,2,2,2,2,7,7,2,7,2,7
1930 MCOL2        DFB 5,5,7,1,0,7,1,1,1,1,7,7,1,7,7,5,7,7,7,1,1,1,2
READY.