BITES1A+3 CLC ADC #$40 STA BITES2A+3 CLC ADC #$40 STA BITES3A+3 CLC ADC #$40 STA BITES4A+3 LDA POINT1+1 CMP #$20 BEQ POINT2A LDA #$20 ;YTE 0,0,0,0,0,0 ;---------------------------------------  ; STA POINT1+1 RTS POINT2A LDA #$00 STA POINT1+1 POINT2 INC HAAL+1 LDA HAAL+1 BNE VER INC HAAL+2 VER RTS STOP LDA #$09 STA HAAL+2 LDA #$00 STA HAAL+1 R TS BITE1 .BYTE 0 BITE2 .BYTE 0 BITE3 .BYTE 0 BITES1 .BYTE 0,0,0,0,0,0 BITES2 .BYTE 0,0,0,0,0,0 BITES3 .BYTE 0,0,0,0,0,0 BITES4 .BYTE 0,0,0,0,0,0 BITES1A .BYTE 0,0,0,0,0,0 BITES2A .BYTE 0,0,0,0,0,0 BITES3A .BYTE 0,0,0,0,0,0 BITES4A .B ,Y POIN2 LDA $2800,X STA $0FC5+$18,Y POIN3 LDA $2800,X STA $0F42+$0C,Y POIN4 LDA $2800,X STA $0FC4,Y POIN5 LDA $2800,X STA $0FC4+$18,Y POIN6 LDA $2800,X STA $0F41+$0C,Y POIN7 LDA $2800,X  LDA BITES2A+1 STA BITES2A LDA BITES2A+2 STA BITES2A+1 LDA BITES2A+3 STA BITES2A+2 LDA BITES3A+1 STA BITES3A LDA BITES3A+2 STA BITES3A+1 LDA BITES3A+3 STA  STA POINTS7+1 CLC ADC #$04 STA POINTS8+1 TXA LSR A LSR A LSR A LSR A LSR A ORA #$28 STA POIN10+2 ORA #$02 STA POIN11+2 ORA #$00 BNE OK2 LDA BITES1+1 STA BITES1 LDA BITES1+2 STA BITES1+1 LDA BITES1+3 STA BITES1+2 LDA $0400+40 STA BITES1+3 LDA BITES1A STA $0428+39 LDA BITES2 TXA LSR A LSR A LSR A LSR A LSR A ORA #$28 STA POIN7+2 ORA #$02 STA POIN8+2 ORA #$02 STA POINTS5+2 STA POINTS6+2 ORA #$04 STY POINTS6A LDA $2800,X STA $0E40,Y POINTS7A LDA $2800,X STA $0E85+$18+$18,Y POINTS8A LDA $2800,X STA $0E02,Y INY INY INY INX CPX #$04 BNE POINTS1 ;-------------------------- LSR A ORA #$28 STA POIN4+2 ORA #$02 STA POIN5+2 ORA #$02 STA POINTS3+2 STA POINTS4+2 ORA #$04 STA POIN6+2 INC POINTS3+2 INC POINTS3+2 INC POINPOINTS3 LDA $2800,X STA $0FC4+$18+$18,Y POINTS4 LDA $2800,X STA $0F41,Y POINTS5 LDA $2800,X STA $0FC3+$18+$18,Y POINTS6 LDA $2800,X STA $0F40,Y POINTS7 LDA $2800,X STA $0F85+$18+$18,Y POINTS8 LDA $2800,XOIN8A+2 ORA #$02 STA POINTS5A+2 STA POINTS6A+2 ORA #$04 STA POIN9A+2 INC POINTS5A+2 INC POINTS5A+2 INC POINTS6A+2 INC POINTS6A+2 LDA BITES1+2 TAX ,Y POIN7A LDA $2800,X STA $0EC3,Y POIN8A LDA $2800,X STA $0EC3+$18,Y POIN9A LDA $2800,X STA $0E40+$0C,Y POIN10A LDA $2800,X STA $0E85,Y POIN11A LDA $2800,X STA $0E85+$18,Y POIN12A LDA $2800,X  STA $0FC3,Y POIN8 LDA $2800,X STA $0FC3+$18,Y POIN9 LDA $2800,X STA $0F40+$0C,Y POIN10 LDA $2800,X STA $0F85,Y POIN11 LDA $2800,X STA $0F85+$18,Y POIN12 LDA $2800,X STA $0F02+$0C,Y POIN1A LD BITES3A+2 LDA BITES4A+1 STA BITES4A LDA BITES4A+2 STA BITES4A+1 LDA BITES4A+3 STA BITES4A+2 ;--------------------------------------- HAAL LDA $0900 BEQ STOP POINT1 ORA #$00 STA STA POINTS7+2 STA POINTS8+2 ORA #$04 STA POIN12+2 INC POINTS7+2 INC POINTS7+2 INC POINTS8+2 INC POINTS8+2 LDX #$00 LDY #$00 POIN1 LDA $2800,X STA $0FC5A STA $0450+39 LDA BITES3A STA $0478+39 LDA BITES4A STA $04A0+39 LDA BITES1A+1 STA BITES1A LDA BITES1A+2 STA BITES1A+1 LDA BITES1A+3 STA BITES1A+2 A POIN9+2 INC POINTS5+2 INC POINTS5+2 INC POINTS6+2 INC POINTS6+2 LDA BITES1 TAX ASL A ASL A ASL A STA POIN10+1 STA POIN11+1 STA POIN12+1 ------------- LDX #$00 OK2 LDA $0401+40,X STA $0400+40,X LDA $0429+40,X STA $0428+40,X LDA $0451+40,X STA $0450+40,X LDA $0479+40,X STA $0478+40,X INX CPX #$27TS4+2 INC POINTS4+2 LDA BITES1+1 TAX ASL A ASL A ASL A STA POIN7+1 STA POIN8+1 STA POIN9+1 STA POINTS5+1 CLC ADC #$04 STA POINTS6+1  STA $0F02,Y POINTS1A LDA $2800,X STA $0EC5+$18+$18,Y POINTS2A LDA $2800,X STA $0E42,Y POINTS3A LDA $2800,X STA $0EC4+$18+$18,Y POINTS4A LDA $2800,X STA $0E41,Y POINTS5A LDA $2800,X STA $0EC3+$18+$18,ASL A ASL A ASL A STA POIN4+1 STA POIN5+1 STA POIN6+1 STA POINTS3+1 CLC ADC #$04 STA POINTS4+1 TXA LSR A LSR A LSR A LSR A  STA $0E02+$0C,Y INY INY INY INX CPX #$08 BEQ POIN1S JMP POIN1 POIN1S LDY #$00 LDX #$00 POINTS1 LDA $2800,X STA $0FC5+$18+$18,Y POINTS2 LDA $2800,X STA $0F42,Y  A $2800,X STA $0EC5,Y POIN2A LDA $2800,X STA $0EC5+$18,Y POIN3A LDA $2800,X STA $0E42+$0C,Y POIN4A LDA $2800,X STA $0EC4,Y POIN5A LDA $2800,X STA $0EC4+$18,Y POIN6A LDA $2800,X STA $0E41+$0C LDA BITEA STA $0427 LDA BITEB STA $044F LDA YOL+1 EOR #$40 STA YOL+1 BEQ VER1 RTS VER1 INC TEXT+1 LDA TEXT+1 BNE HOL INC TEXT+2 HOL RTS STOP  Aÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿlÿÿÿÿÿ‡ uÕÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿMAGIC'S ROUTINES  MAGIC     $0428,X INX CPX #$27 BNE POL LDA BITEA+1 STA BITEA LDA BITEA+2 STA BITEA+1 LDA BITEA+3 STA BITEA+2 LDA BITEA+4 STA BITEA+3 LDA BITEB+1 S Á2X2 OPEN BORDER  ÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÂIRQ+UPSCROLLER  ÁUPSCROLLER      ÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀCURSOR           READY           AS              ;--------------------------------------- ; ÃURSOR FOR ÅÄÉÔÏÒ ;--------------------------------------- LDA #$13 JSR $FFD2 POT1 JSR HIER JSR $FFE4 BEQ *-3 TAX JSR HIER TXA JSR $FF ;--------------------------------------- ;2X4 OPEN BORDER BY ÍÁÇÉà OF ÔÒÉÎÏÍÉà ;--------------------------------------- ;USES SPRITE MEMORY $0E00-$0FFF ; ;SORRY FOR THIS SHITTY ROUTINE, BUT THIS ;IS MY 1ST 2X4 OPEN BORDER SCROLLER!!! ;------------- EOR #$20 STA $D00E LDA BITE1 EOR #$D8 STA POS1+1 BCC OK1 RTS OK1 LDA BITES1+3 TAX ASL A ASL A ASL A STA POIN1+1 STA POIN2+1 N2+2 ORA #$02 STA POINTS1+2 STA POINTS2+2 ORA #$04 STA POIN3+2 INC POINTS1+2 INC POINTS1+2 INC POINTS2+2 INC POINTS2+2 LDA BITES1A+3 TAX ASL A LSR A ORA #$28 STA POIN1A+2 ORA #$02 STA POIN2A+2 ORA #$02 STA POINTS1A+2 STA POINTS2A+2 ORA #$04 STA POIN3A+2 INC POINTS1A+2 INC POINTS1A+2 INC PS4A+1 TXA LSR A LSR A LSR A LSR A LSR A ORA #$28 STA POIN4A+2 ORA #$02 STA POIN5A+2 ORA #$02 STA POINTS3A+2 STA POINTS4A+2 ORA #­ LDA #$00 STA TEXT+1 LDA #$40 STA TEXT+2 RTS BITE .BYTE 0 BITEA .BYTE $20,$20,$20,$20,$20 BITEB .BYTE $20,$20,$20,$20,$20 ÂTURBO ASS5$9000 AÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÂIRQ+OPEN BORDER ÁOPEN BORDER     À----------------Á 1X1 OPEN BORDER  Á1X2 OPEN BORDER  Á2X1 OPEN BORDER  TA BITEB LDA BITEB+2 STA BITEB+1 LDA BITEB+3 STA BITEB+2 LDA BITEB+4 STA BITEB+3 TEXT LDA $4000 BEQ STOP YOL EOR #$40 STA BITEA+4 EOR #$80 STA BITEB+4 ÿAS 2             RED             2X4 OPEN BORDER $ÌD2 CLC BCC POT1 JSR HIER JMP POT1 HIER LDY $D3 LDA ($D1),Y EOR #$80 STA ($D1),Y RTS ;--------------------------------------- -------------------------- SCROLL LDA BITE1 SEC SBC #$04 AND #$07 STA BITE1 EOR #$00 STA $D00A ;LINKS BINNEN EOR #$E0 STA $D008 ;LINKS BUITNE EOR #$98 STA $D00C  STA POIN3+1 STA POINTS1+1 CLC ADC #$04 STA POINTS2+1 TXA LSR A LSR A LSR A LSR A LSR A ORA #$28 STA POIN1+2 ORA #$02 STA POI ASL A ASL A STA POIN1A+1 STA POIN2A+1 STA POIN3A+1 STA POINTS1A+1 CLC ADC #$04 STA POINTS2A+1 TXA LSR A LSR A LSR A LSR A  OINTS2A+2 INC POINTS2A+2 LDA BITES1A+2 TAX ASL A ASL A ASL A STA POIN4A+1 STA POIN5A+1 STA POIN6A+1 STA POINTS3A+1 CLC ADC #$04 STA POINT$04 STA POIN6A+2 INC POINTS3A+2 INC POINTS3A+2 INC POINTS4A+2 INC POINTS4A+2 LDA BITES1A+1 TAX ASL A ASL A ASL A STA POIN7A+1 STA POIN8A+1  STA POIN9A+1 STA POINTS5A+1 CLC ADC #$04 STA POINTS6A+1 TXA LSR A LSR A LSR A LSR A LSR A ORA #$28 STA POIN7A+2 ORA #$02 STA P ;--------------------------------------- ; 2X1 OPEN BORDER BY OF ÍÁÇÉÃ/ÔÒÉÎÏÍÉÃ!! ;--------------------------------------- SCROLL LDA BITE SEC SBC #$01 AND #$07 STA BITE EOR #$E8 STA POS1+1  ;--------------------------------------- ; 2X2 OPEN BORDER BY OF ÍÁÇÉÃ/ÔÒÉÎÏÍÉÃ!! ;--------------------------------------- SCROLL LDA BITE SEC SBC #$01 AND #$07 STA BITE EOR #$E8 STA POS1+1  LDX #$00 SET1 LDA $0F06+1,X STA $0F06,X LDA $0F06+2,X STA $0F06+1,X LDA $0F46,X STA $0F06+2,X LDA $0F46+1,X STA $0F46,X LDA $0F46+2,X STA $0F46+1,X LDA $0F86+1ÜOL INC TEXT+2 HOL RTS STOP LDA #$00 STA TEXT+1 LDA #$40 STA TEXT+2 RTS BITE .BYTE 0 BITEA .BYTE $20,$20,$20,$20,$20 ;--------------------------------------- ÿAS 2             RED             2X4 OPEN BORDER $ LDA $0429,X STA $0428,X INX CPX #$27 BNE POL LDA BITEA+1 STA BITEA LDA BITEA+2 STA BITEA+1 LDA BITEA+3 STA BITEA+2 LDA BITEA+4 STA BITEA+3 TÂTURBO ASS5$9000 AÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÂIRQ+OPEN BORDER ÁOPEN BORDER     À----------------Á 1X1 OPEN BORDER  Á1X2 OPEN BORDER  Á2X1 OPEN BORDER   LDA BITEA+4 TAX ASL A ASL A ASL A STA POINT3+1 TXA LSR A LSR A LSR A LSR A LSR A ORA #$20 STA POINT3+2 LDX #$00 ,X STA $0F86,X LDA $0F86+2,X STA $0F86+1,X LDA $0FC6,X STA $0F86+2,X LDA $0FC6+1,X STA $0FC6,X LDA $0FC6+2,X STA $0FC6+1,X INX INX INX CPX #$30 BNE SET1 LDA $0400 TAX ASL A ASL A ASL A STA POINT1+1 STA POINT2+1 TXA LSR A LSR A LSR A LSR A LSR A ORA #$28  BCC OK1 DEC PO1+1 DEC PO2+1 DEC PO3+1 DEC PO4+1 RTS OK1 LDA #$E7 STA PO1+1 LDA #$07 STA PO2+1 LDA #$47 STA PO3+1 LDA #$5F STA PO4+1  BCC OK1 DEC PO1+1 DEC PO2+1 DEC PO3+1 DEC PO4+1 RTS OK1 LDA #$E7 STA PO1+1 LDA #$07 STA PO2+1 LDA #$47 STA PO3+1 LDA #$5F STA PO4+1  ,X STA $0F86,X LDA $0F86+2,X STA $0F86+1,X LDA $0FC6,X STA $0F86+2,X LDA $0FC6+1,X STA $0FC6,X LDA $0FC6+2,X STA $0FC6+1,X INX INX INX CPA LSR A ORA #$28 STA POINT3+2 ORA #$04 STA POINT4+2 LDX #$00 LDY #$00 POINT1 LDA $28A0,X STA $0FC2+$06,Y POINT3 LDA $28A0,X STA $0F42+$06,Y POINT2 LDA $2CA0,X  STA $0FC2+$06+$18,Y POINT4 LDA $2CA0,X STA $0F42+$06+$18,Y INX INY INY INY CPX #$08 BNE POINT1 LDX #$00 POL LDA $0401,X STA $0400,X LDA $0429,X STAEXT LDA $4000 BEQ STOP YOL EOR #$40 STA BITEA+4 LDA BITEA STA $0427 LDA YOL+1 EOR #$40 STA YOL+1 BEQ VER1 RTS VER1 INC TEXT+1 LDA TEXT+1 BNE HÁ2X2 OPEN BORDER  ÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÂIRQ+UPSCROLLER  ÁUPSCROLLER      ÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀCURSOR           READY           AS              LDY #$00 POINT1 LDA $28A0,X STA $0FC2+$06,Y POINT3 LDA $28A0,X STA $0F42+$06,Y INX INY INY INY CPX #$08 BNE POINT1 LDX #$00 POL LDA $0401,X STA $0400,X X #$15 BNE SET1 LDA $0400 TAX ASL A ASL A ASL A STA POINT1+1 TXA LSR A LSR A LSR A LSR A LSR A ORA #$20 STA POINT1+2  STA POINT1+2 ORA #$04 STA POINT2+2 LDA BITEA+4 TAX ASL A ASL A ASL A STA POINT3+1 STA POINT4+1 TXA LSR A LSR A LSR A LSR  LDX #$00 SET1 LDA $0F06+1,X STA $0F06,X LDA $0F06+2,X STA $0F06+1,X LDA $0F46,X STA $0F06+2,X LDA $0F46+1,X STA $0F46,X LDA $0F46+2,X STA $0F46+1,X LDA $0F86+1 Aÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿlÿÿÿÿÿ‡ uÕÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿMAGIC'S ROUTINES  MAGIC     5„1  ÿÝãŒFíe€e€e€e€e€e€e€e€e€e€e€e€.WORD _3S .BYTE _ 03 Ð 8-Œ)Ð)Ð 8-Œ)Ð)Ð 8-Œ)Ð)Ð 8-Œ)Ð)ÐŒ)Ð)Ð 8-Œ)Ð)Ð 8-Œ)Ð,(êêêêêêêêêêêêêêêêêêêêêê¢(©(Р(Ûð%@*É(/­)Ðêêêêêêêêêêêêêêêêêêêêêêêêêêêð%@*É(.­)Ð,(êêÐ%A*ˆ0* (0/L)L- )¨ª©(X)©D8/)©E8/)©D8*)©E8*)Щ() Ü©()Щ(.)Щ(`) Щ( ------------)@TURBO(((ƒ„„„ƒ„ƒ„ƒ„ƒ„ƒ„ƒ„ƒ„ƒ„ƒ„ƒ„ƒ„ƒ„„„„ƒ„„„„ƒ„ƒ„ƒ„ƒ„ƒ„ƒ„ƒ„„„„„„„„„ƒ„‚ÆÅ…ƒ„ƒ…„ƒ…ƒƒƒƒ„ƒ„„ƒ„„„„ƒ„„ƒ„„ƒ„„ƒ„„ƒ„„ƒ„„ƒ„„„„ƒ„„ƒ„„ƒ„„ƒ„„ƒ„„ƒ„„ƒ„„„„ƒ„„„Æ„„„„ƒ„„„Æ„„„„„„„„„„„„„„„`A±L00EÁL520°LD01¶LD01¹LEA8±L510²L510ÆL513±IRÑÌIRQ²TIMÅTIME°NMÉSCMÐ BIT $EA LDA $D012 CMP #$2E BEQ *+2 NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NDA #$D0 LDX #$00 NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP  STA $D016 STY $D016 JSR TIME STA $D016 STY $D016 JSR TIME STA $D016 STY $D016 JSR TIME STA $D016 STY $D016 JSR TIME STA $D016 STY $ÿAS 2             RED             2X4 OPEN BORDER $ STY $D016 JSR TIME STA $D016 STY $D016 JSR TIME STA $D016 STY $D016 JSR TIME STA $D016 STY $D016 JSR TIME STA $D016 STY $D016 JSR TIÂTURBO ASS5$9000 AÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÂIRQ+OPEN BORDER ÁOPEN BORDER     À----------------Á 1X1 OPEN BORDER  Á1X2 OPEN BORDER  Á2X1 OPEN BORDER  `êŽ FêŽ EêŽ DêŽ CêŽ BêŽ AêŽ 9êŽ 8êŽ 7êŽ 6êŽ 5êŽ 4êŽ 3êŽ 2êŽ 10-êŽ 0L)1êî)Ð)Щ(.)©D8*)©E8*0, )L)êî)Ð)Щ(€)©D8,)©E8, 8-Œ)Ð)Ð 8-Œ)Ð)Ð 8-Œ)Ð)Ð 8-Œ)Ð)Ð 8-Œ)Ð)Ð 8-Œ)Ð)Ð 8-Œ)Ð)ÐŒ)Ð)Ð 8-Œ)Ð)Ð 8-Œ)Ð)Ð 8-Œ)Ð)H) Щ()Щ(ð)Ð) Ð) Ð) Щ(0)+Ð),Ð)-Ð).Щ()&Щ(?)%Щ(?)ÿ©(?)þ©(?)ý©(?)ü©(?)Щ(Ð)Щ()Щ(ð)Щ()Щ(x )Då)!Ð) Щ(€---------------------------------------€ ÏPEN BORDER CODED BY ÍÁÇÉà OF ÔÒÉÎÏÍÉÀ---------------------------ìíL031´L031µL031¸L031¹L07FÃL07FÄL07FÅL07FÆL100°LD00¸LD00¹LD00ÁLD00ÂLD00ÃLD00ÄLD00ÅLD00ÆLD01°LD01±LD01²LD01µLD01ÁLD01ÃLD02°LD02±LD02µLD02¶LD02ÂLD02ÃLD02ÄLD02ÅLDC0ÄLE54´L50üOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP LDA $D012 CMP #$2F BEQ *+2 LDY #$DB L NOP NOP NOP NOP BIT $EA STY $D016 JSR TIME STA $D016 STY $D016 JSR TIME STA $D016 STY $D016 STA $D016,X STY $D016 JSR TIME  D016 JSR TIME STA $D016 STY $D016 JSR TIME STA $D016 STY $D016 STA $D016,X STY $D016 JSR TIME STA $D016 STY $D016 JSR TIME STA $D016 Aÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿlÿÿÿÿÿ‡ uÕÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿMAGIC'S ROUTINES  MAGIC    ME Á2X2 OPEN BORDER  ÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÂIRQ+UPSCROLLER  ÁUPSCROLLER      ÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀCURSOR           READY           AS              Aÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿþúìÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ                  00 2A    ÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÂIRQ+OPEN BORDER ÁOPEN BORDER     À----------------Á1X1 OPEN BORDER  Á1X2 OPEN BORDER  Á2X1 OPEN BORDER  Á2X2 OPEN BORDER  ÿÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÂIRQ+UPSCROLLER  ÁUPSCROLLER      ÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀCURSOR          2X4 OPEN BORDER $ ;--------------------------------------- ; 1X1 OPEN BORDER BY ÍÁÇÉà OF ÔÒÉÎÏÍÉÃ!! ;--------------------------------------- SCROLL1 LDA $DF SEC SBC #$01 AND #$07 STA $DF EOR #$E8 STA POS1+1 B TA PO1+1 LDA #$0F STA PO2+1 LDA #$47+8 STA PO3+1 LDA #$5F+8 STA PO4+1 LDX #$00 DOP NOP LDA $0F81+3,X STA $0F80+3,X LDA $0F82+3,X STA $0F81+3,X  STA $0F02+3,X LDA $0F41+3,X STA $0F40+3,X LDA $0F42+3,X STA $0F41+3,X INX INX INX CPX #$18 BNE DOP VER3 LDA $4000 STA $0427 HAAL2 LDA $4004 BNE DOL P NID VE4 TAY LDX #$00 RE2 LDA $2900,Y STA $0FC5+3,X INX INX INX INY CPX #$18 BNE RE2 NID LDA $0680 ASL A ASL A ASL A BCS DP  INX INX INX INY CPX #$18 BNE POL2 NID2 INC VER3+1 INC HAAL2+1 LDA VER3+1 BNE VER4 INC VER3+2 VER4 LDA HAAL2+1 BNE VER5 INC HAAL2+2 VER5 RTS;--------------------------------------- ; 1X2 OPEN BORDER BY ÍÁÇÉà OF ÔÒÉÎÏÍÉÃ!! ;--------------------------------------- SCROLL1 LDA $DF SEC SBC #$01 AND #$07 STA $DF EOR #$E8 STA POS1+1 B BNE VER2 LDA #$EF STA PO1+1 LDA #$0F STA PO2+1 LDA #$47+8 STA PO3+1 LDA #$5F+8 STA PO4+1 LDX #$00 DOP NOP LDA $0F81+3,X STA $0F80+3,X LD $0F01+3,X LDA $0F40+3,X STA $0F02+3,X LDA $0F41+3,X STA $0F40+3,X LDA $0F42+3,X STA $0F41+3,X INX INX INX CPX #$18+$18 BNE DOP VER3 LDA $4000 00,Y STA $0FC5+$18,X INX INX INX INY CPX #$18 BNE RE JMP NID VE4 TAY LDX #$00 RE2 LDA $2100,Y STA $0FC5,X LDA $2300,Y STA $0FC5+$18,X 00,Y STA $0F45+$18,X INY INX INX INX CPX #$18 BNE POL JMP NID2 DP TAY LDX #$00 POL2 LDA $2100,Y STA $0F45,X LDA $2300,Y STA $0F45+$18,X CC VER1 STA POS1+1 DEC PO1+1 DEC PO2+1 DEC PO3+1 DEC PO4+1 RTS VER1 LDX #$00 VER2 LDA $0401,X STA $0400,X INX CPX #$27 BNE VER2 LDA #$EF S LDA $0FC0+3,X STA $0F82+3,X LDA $0FC1+3,X STA $0FC0+3,X LDA $0FC2+3,X STA $0FC1+3,X LDA $0F01+3,X STA $0F00+3,X LDA $0F02+3,X STA $0F01+3,X LDA $0F40+3,X  JMP STOPA DOL ASL A ASL A ASL A BCS VE4 TAY LDX #$00 RE LDA $2800,Y STA $0FC5+3,X INX INX INX INY CPX #$18 BNE RE JM TAY LDX #$00 POL LDA $2800,Y STA $0F45+3,X INY INX INX INX CPX #$18 BNE POL JMP NID2 DP TAY LDX #$00 POL2 LDA $2900,Y STA $0F45+3,X Á STOPA LDA #$00 STA VER3+1 LDA #$04 STA HAAL2+1 LDA #$40 STA VER3+2 STA HAAL2+2 RTS ;--------------------------------------- CC VER1 STA POS1+1 DEC PO1+1 DEC PO2+1 DEC PO3+1 DEC PO4+1 RTS VER1 LDX #$00 VER2 LDA $0591,X STA $0590,X LDA $05B9,X STA $05B8,X INX CPX #$27 A $0F82+3,X STA $0F81+3,X LDA $0FC0+3,X STA $0F82+3,X LDA $0FC1+3,X STA $0FC0+3,X LDA $0FC2+3,X STA $0FC1+3,X LDA $0F01+3,X STA $0F00+3,X LDA $0F02+3,X STA STA $05B7 EOR #$40 STA $05DF HAAL2 LDA $4004 BNE DOL JMP STOPA DOL ASL A ASL A ASL A BCS VE4 TAY LDX #$00 RE LDA $2000,Y STA $0FC5,X LDA $22 INX INX INX INY CPX #$18 BNE RE2 NID LDA $0590 ASL A ASL A ASL A BCS DP TAY LDX #$00 POL LDA $2000,Y STA $0F45,X LDA $22 INX INX INX INY CPX #$18 BNE POL2 NID2 INC VER3+1 INC HAAL2+1 LDA VER3+1 BNE VER4 INC VER3+2 VER4 LDA HAAL2+1 BNE VER5 INC HAAL2+2 VER5  Aÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿlÿÿÿÿÿ‡ uÕÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿMAGIC'S ROUTINES  MAGIC     Á2X2 OPEN BORDER  ÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÂIRQ+UPSCROLLER  ÁUPSCROLLER      ÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀCURSOR           READY           AS               €„ ÿÄ‚ŒÂì<€<€<€<€<€<€<€<€<€<€¥’.TEXT _3S .BYTE _ ---@hªh¨h­) Üî)Ð)©D8)©E8)Щ(. 80 )@hªh¨h­) Üî)Ð)©D8)©E8)Щ(ô)Щ(0ê€---------------------------------------@hªh¨h­) Üî)Ð)©D8)©E8)Щ(¶)Щ(g0ê€---------------------------------------@hªh¨h­) Üî)Ð)©D8)©E8X)©D8)©E8)Щ() Ü©()Щ()Щ(xÐ8 è)€0 ½) ¢( )Då TEXT ON $4000 MUSIC ON $1000 AND $1003)`TURBO„ƒÆ„ƒƒ„ƒ„ƒ„ƒ„„„„„ƒ„‚(ă„„„„„„„(ă„„„„„„„(ă„„„„„„„(ă„„„„„„„(ă„„„„„„„ƃƒ„„QµAB°;--------------------------------------- ; ÕPSCROLLER CODED BY ÍÁÇÉà OF ÔÒÉÎÏÍÉà ;--------------------------------------- DOIT LDA BITE1 SEC SBC #$01 AND #$07 STA BITE1 BCC OK RTS OK LDX #$0 STA $05B8,X LDA $0608,X STA $05E0,X LDA $0630,X STA $0608,X INX CPX #$28 BNE OT LDX #$00 HAAL LDA $4000 BEQ STOP STA $0630,X INC HAAL+1 LDA H RTS STOPA LDA #$00 STA VER3+1 LDA #$04 STA HAAL2+1 LDA #$40 STA VER3+2 STA HAAL2+2 RTS ÂTURBO ASS5$9000 AÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÂIRQ+OPEN BORDER ÁOPEN BORDER     À----------------Á 1X1 OPEN BORDER  Á1X2 OPEN BORDER  Á2X1 OPEN BORDER  ÿAS 2             RED             2X4 OPEN BORDER $€---------------------------------------0(W`0@*©(@0@*0 ©(`Ð8à((0èî0@*Ð8­0@*î0@*)0ð8 0­)@¢(Ð8 à((è)½)0)à½))¸½)à)½)¸)h½))@½)h)½)@)ð½)0 ê¢(8©(W0ê`ð8É(O­8Î80ê€------------------------------------)Щ(¤)ÐI(­8êêêêêêêê0ê€---------------------------------------@hªh¨h­) Üî)Ð)©D8)©E8)Щ(e)ÐI( ­80ê€---------------------------------------@hªh¨h­) Üî)Ð)©D8)©E8)Щ(@)Щ(0ê€---------------------------------------L- )¨ª©(„„„„„(ÃÃÄ„„„„„„„„„„„„„„„ƒƒƒÆƒ„††ƒ†ÃƒƒÅ†ƒ†(`ìIRÑNMÉIRQ²IRQ³UÏBITE±OK±STAÁDOIÔBITÅSEÔCMÏOÔSTOÐHAAÌVEÒBITE²BNEÅHERE±POÔHERE²HERE2ÁIRQÁIRQ´CTÉIR¤0 OT NOP LDA $0518,X STA $04F0,X LDA $0540,X STA $0518,X LDA $0568,X STA $0540,X LDA $0590,X STA $0568,X LDA $05B8,X STA $0590,X LDA $05E0,X  AAL+1 BNE VER INC HAAL+2 VER INX CPX #$28 BNE HAAL RTS STOP LDA #$00 STA HAAL+1 LDA #$40 STA HAAL+2 RTS BITE1 .BYTE $57 ;---------------------------------------