0100 ;MULTIPLE PLAYER DEMO, SOURCE
0110 ;BY PAUL LAY
0120 ;(FROM PAGE 6 MAGAZINE, ENGLAND)
0130 HPOSP0 = $D000
0140 WSYNC = $D40A
0150     *=  $0600
0160     PHA 
0170     TXA 
0180     PHA 
0190     LDX #$C0    ; Loop over
0200 ;                 192 scans
0210 LOOP
0220     LDA $CB     ; First position
0230     STA WSYNC
0240     STA HPOSP0
0250     CPX #$C0    ; First LMS ?
0260     BEQ SKIP1
0270 ;
0280     NOP 
0290 SKIP1
0300     CPX #$62    ; Second LMS ?
0310     BEQ SKIP2
0320 ;
0330     LDA $CC     ; Three cycle
0340 ;                 delay !
0350 SKIP2
0360     LDA $CC     ; Second position
0370     NOP 
0380     NOP 
0390     NOP 
0400     NOP 
0410     NOP 
0420     STA HPOSP0
0430     DEX 
0440     BNE LOOP
0441 ;
0450     PLA 
0460     TAX 
0470     PLA 
0480     RTI 

---

Back to previous page