&d OPEN2,8,2,"0:SCROLLER.OBJ,P,W",i:2n:Xs WRITTEN BY KEVIN J ZIESE 7/3/87^x:} EMAIL ME AT DESTINATION UNKNOWN 808-262-0545 24 HRS:: 700.OPT P,OO;; .OPT P,O2 ( DISK IO); ; ; $CB00 ;. IRQLO $0314A IRQHI $0315G :Z HIDDEN $07E7m START $07C1 FINISH $07C0 : RASTHI $D011 RTR $D012 SCROLL $D016 TYPCHR $D018 IRQREG $D019 ENLIRQ $D01A : BDER $D020 BCK $D0212 CIACLK $DC0DE EXIT $FEBCX CHROUT $FFD2k NRMIRQ $EA31q ":w '; ,BEGIN LDA #$16 1: STA TYPCHR 6: LDA #$00 ;: STA BDER @: STA BCK E: LDA #$11 J: LDY #$18$ OLFOUT JSR CHROUT4 T: DEYJ Y: BNE LFOUT_ ^: LDY #$27t c: LDA #$20 hSPCOUT JSR CHROUT m: DEY r: BNE SPCOUT w: LDA #$13 |: JSR CHROUT ENABLE SEI : LDA #IRQ : STA IRQLO2 : LDA #IRQH : STA IRQHI_ : LDA RASTHIr : #$7F : STA RASTHI : LDA #$BA : STA RTR : LDA #$81 : STA ENLIRQ : LDX #$00 : STX $FB : CLI( : RTS= IRQ LDA IRQREGT : STA IRQREGk : BMI OURIRQ : LDA CIACLK : CLI : JMP NRMIRQ OURIRQ LDA $02 : CMP #$01 : BEQ HSKEEP : LDA #$01: STA $02': STA RTR> : JSR CHRMOVS: JMP EXIThHSKEEP LDA #$00|: STA $02!: LDA #$E7&: STA RTR+: LDA #$C80: STA SCROLL5: JMP EXIT:CHRMOV LDX $FC ?: DEXD: STX $FC6I: STX SCROLLKN: CPX #$FFbS: BEQ RESETRrX: RTS]RESETR LDX #$07b: STX $FCg: STX SCROLLl: LDX #$00qMOVER LDA START,Xv: STA FINISH,X{: INX: CPX #$273: BNE MOVERG: LDX $FBW: INXk: STX $FBTXT LDA TEXT,X: CMP #$00: BNE : LDX #$00: STX $FB: BEQ TXT STA HIDDEN : RTS::;TEXT . " THIS IS ONLY A TEST"a: . " OF ZARF'S SCROLLER!": . " AND IT'S COMPLETEL": . "Y RELOCATABLE TOO!!!": .BYTE $20,$20,$20,$20,$20: .BYTE $20,$20,$20,$20,$20: .BYTE $00:.