Serious Magazine 5/Serious_Magazine_05_1999_Dial_pl_Side_B.atr/sstuff05.arc/BYTE256.ARC/TRON256.MAE

Text File | 1988-09-01 | 2KB | 1 lines

.outron256.obj¢¢rtclock =$12¢iccomz=$22¢icax1z=$2a¢icax2z=$2b¢rowcrs=$54¢colcrs=$55¢¢jstick0 =$0278¢colpf1s =$02c5¢colpf2s =$02c6¢runad=$02e0¢¢scrvec=$e410¢¢consol=$d01f¢audf1=$d200¢audc1=$d201¢skstat=$d20f¢wsync=$d40a¢¢bit=$2c¢¢z.page.or$80¢y0.ds1¢y1.ds1¢x0.ds1¢x1.ds1¢dir0.ds1¢dir1.ds1¢player.ds1¢¢.or$2000¢startldx#$05; Set Zero Page¢?lpldazp,x¢staz.page,x¢dex¢bpl?lp¢¢newlda#$07; Graphics 7¢jsrgr.opn¢¢lda#$9f; Drawto 159,0¢jsrdrawto¢dey; Drawto 159,95¢lda#$5f¢jsrdrawto¢lda#$00; Drawto 0,95¢jsrdrawto¢dey; Drawto 0,0¢tya¢jsrdrawto¢¢lda#$c6; Setcolor 1,12,6¢stacolpf1s¢lda#$38; Setcolor 2,3,8¢stacolpf2s¢¢m.loopldartclock+2; Pause 3¢adc#$02¢waitcmprtclock+2¢bnewait¢¢ldx#$02; Player 1¢jsrchkjoy¢bneboom¢ldx#03; Player 2¢jsrchkjoy¢beqm.loop¢¢boomlsr; Boom!!!¢bnesound¢ldxplayer; Set begining¢?lpldazp-2,x; position of¢stay0-2,x; player¢inx¢inx¢cpx#$08¢bcc?lp¢¢soundlda#$8f; Explosion¢staaudc1; For X=1 To 70¢ldx#$01; Sound 0,X,8,15¢?lpstxaudf1; Pause 0¢ldartclock+2; Next X¢?wcmprtclock+2¢beq?w¢inx¢cpx#$50¢bcc?lp¢dey; Sound 0,0,0,0¢styaudc1¢styaudf1¢¢w.keyldaconsol; Play it again?¢lsr¢bccnew¢ldaskstat; Exit?!¢and#$08¢bnew.key¢¢gr.opnstaicax2z; Graphics 0¢lda#$0c¢staicax1z¢ldx#$00¢jsrgo.scr¢biticax2z¢bneput.it¢rts; Exit¢¢chkjoysei; direction¢lda#$00¢?lplsrjstick0-2,x¢bcc?out¢adc#$3f¢bcc?lp¢.bybit¢?outstadir0-2,x¢cli¢¢moveldadir0-2,x; Check¢asl¢bcs?h¢bpl?u¢¢incy0-2,x; Down¢.bybit¢?udecy0-2,x; Up¢bccchkcol; BRA¢¢?hbmi?r¢decx0-2,x; Left¢.bybit¢?rincx0-2,x; Right¢¢chkcollday0-2,x; Check collision¢starowcrs¢ldax0-2,x¢stacolcrs¢stxplayer¢ldx#$04¢jsrgo.scr¢pha¢¢; Showplayer¢¢ldyplayer¢ldax0-2,y¢ldxy0-2,y; Set position¢jsrputpxl¢ldxplayer¢pla¢rts¢¢drawtostarowcrs,y; Draw line¢lda#$11¢staiccomz¢ldx#$0a¢bnego.scr¢¢putpxlstacolcrs; Plot¢stxrowcrs¢put.itldx#$06¢¢go.scrldascrvec+1,x; Screen¢pha; operation¢ldascrvec,x¢pha¢tya¢rts¢¢zp.by48 48 20 139 192 128¢¢.orrunad¢.wostart¢.en¢