!6 : G $4F50<:L: SEIa(: LDA #$00w2: STA $FF16<: LDA #142F: JSR $FFD2P: LDA #147Z: JSR $FFD2d: JSR On: LDX #IRQ x: LDY #IRQ": STX $FFFE8: STY $FFFFM: LDA #$02c: STA $FF0Ax: LDA #$72: STA $FF0B: STA $FF3F: CLI:XX JMP XX: STA $FF3E: RTS::IRQ : LDA $FF09( : STA $FF09> : LDA $FF0BS ": CMP #$D0h ,: BEQ IRQ2} 6: CMP #$01 @: BNE HAN J: JMP IRQ3 T:HAN LDA #192 ^: STA 65298 h: LDA #112 r: STA 65299!|: LDA WEICH(!: STA $FF07?!: JSR RASTERT!: LDA #192j!: STA 65298!: LDA #104!: STA 65299!: LDA #$08!: STA $FF07!: LDA #$40!: STA $FD30": STA $FF08": LDX #$02,":KLK LDA $FF1DB":IOP CMP $FF1DV": BEQ IOPf": DEXz"&: BNE KLK"0: LDA WEINS":: STA $FF06"D: LDA WZWEI"N: STA $FF1F"X: LDA #$D0"b: STA $FF0B #l: RTI#v:#:IRQ22#: LDA #$1BH#: STA $FF06\#: LDA #00r#: STA $FF1F#: LDA #$01#: STA $FF0B#:; LDA #$71#:; STA $FF15#: JSR SCROLL#: JSR UPMANAG $: JSR UPCOL%$: JSR COLMOVE:$: LDX #$17O$ : LDY #$19e$: STY Z001{$ : STY Z011$*: STY Z021$4: STY Z031$>: STX Y001$H: STX Y011$R: STX Y021$\: STX Y031%f: LDA #$6E*%p: STA A021@%z: STA X011V%: STA X021l%: STA X031%: LDA #$03%: STA W001%: RTI%:%:IRQ3%: LDA #192%: STA 65298%: LDA #124 &: STA 65299#&: LDA $FF076&: A #16L&: STA $FF07b&: LDA $FF1Dx&:LOO CMP $FF1D&$: BEQ LOO&.: JSR RASTER&8: LDX #$19&B: LDY #$15&L: STY Z001&V: STY Z011'`: STY Z021%'j: STY Z031;'t: STX Y001Q'~: STX Y011g': STX Y021}': STX Y031': LDA #$00': STA A021': STA X011': STA X021': STA X031': LDA #$72(: STA $FF0B*(: LDA #$08@(: STA W001P(: RTIV(:b( :RASTERx(: LDA $FF1D(:UU CMP $FF1D((: BEQ UU(2: LDX #$11 ;0C(<:HIJ DEX(F: BNE HIJ(P: LDX #$00 )Z:B01 LDY #$00")d:A02 LDA $6000,X8)n:Y00 STA $FF19P)x: LDA $6050,Xf):Z00 STA $FF15}): A ($FF,X)): A ($FF,X)): A ($FF,X)): A ($FF,X)): A ($FF,X)): A ($FF,X)*: A $FF,X*: INX%*: INY:*: CPY #$05N*: BNE A02f*:X01 LDA $6000,X|*:Y01 STA $FF19*: LDA $6050,X*:Z01 STA $FF15*": A $FF,X*,: INX*6:X02 LDA $6000,X*@:Y02 STA $FF19+J: LDA $6050,X++T:Z02 STA $FF15;+^: INXP+h: A $FF,Xh+r:X03 LDA $6000,X~+|:Y03 STA $FF19+: LDA $6050,X+:Z03 STA $FF15+: INX+: LDY #$06+:KLM DEY+: BNE KLM ,: A ($FF,X)",: ZAEHLER6,: BNE B01K,:W00 LDA #$03c,: STA ZAEHLERs,: RTSy,:,:ZAEHLER,: BYT $03,:,&:TXAUS,0: LDA TXMERK,:: BNE K01,D: INC TXMERK-N: JSR VNE-X: RTS'-b:K01 TXMERK<-l: JSR HENL-v: RTS`-:TXMERK BYT $00p-: RTSv-:-:SCROLL-: WEICH-: LDA WEICH-: CMP #$071288-: BNE C00-: LDA #$07081288.: STA WEICH$.: JSR HART4.:C00 RTSQ.:WEICH BYT $07081288W.:a. :HARTv.: LDX #$00. :KL LDA $0C00601,X.*: STA $0C00600,X.4: LDA $0C0060140,X.>: STA $0C0060040,X.H: INX/R: CPX #39#/\: BNE KL9/f: JSR TXAUSI/p: RTSO/z:Y/:VNEn/: JSR ZHO/: STA $0C00639/: A #128/: STA $0C0063940/: RTS/:/:HEN/: LDA $0C006390: A #64 0: STA $0C00639=0: LDA $0C0063940P0: A #64m0 : STA $0C0063940}0 : RTS0 :0$ :WEINS0. : BYT 247808 :WZWEI0B : BYT 770L :YUP0V : WEINS0` : INC WZWEI 1j : LDA WEINS#1t : CMP #23871~ : BNE QWEO1 : LDA #2478e1 : STA WEINSz1 : LDA #771 : STA WZWEI1 :QWE LDA WEINS1 : CMP #2481 : BNE KAL1 : JSR HARTYU1 :KAL RTS 2 :AKTIV BYT $002 :2 :#2 :HARTYU:2 : JSR SCRUTXN2 : LDX #39m2 :LAW LDA $0C0068040,X2( : LDA $0C0068000,X22 : LDA $0C0072040,X2< : STA $0C0072000,X2F : LDA $0C0076040,X3P : STA $0C0076000,X'3Z : LDA $0C0080040,XF3d : STA $0C0080000,Xe3n : LDA $0C0084040,X3x : STA $0C0084000,X3 : LDA $0C0088040,X3 : STA $0C0088000,X3 : LDA $0C0092040,X4 : STA $0C0092000,X4 : LDA $0C0096040,X>4 : STA $0C0096000,XN4 : DEXb4 : BPL LAWx4 : INC AKTIV4 : RTS4 :4 :SCRUTX4 : LDX #$004 :KAP LDA $7800,X4 : STA $0C001000,X4 : INX5" : CPX #405, : BNE KAP,56 : CLCB5@ : LDA KAP1V5J : ADC #40l5T : STA KAP15^ : BCC LA5h : INC KAP25r :LA RTS5| :YWN5 : INC WEINS5 : WZWEI5 : LDA WEINS6 : CMP #24886 : BNE DWE16 : LDA #248G6 : STA WEINSZ6 : LDA #7p6 : STA WZWEI6 :DWE LDA WEINS6 : CMP #2586 : BNE YAL6 : JSR HARTWN6 :YAL RTS6 :6 :HARTWN6& : LDX #3970 :LPO LDA $0C0096000,X=7: : STA $0C0096040,X\7D : LDA $0C0092000,X{7N : STA $0C0092040,X7X : LDA $0C0088000,X7b : STA $0C0088040,X7l : LDA $0C0084000,X7v : STA $0C0084040,X8 : LDA $0C0080000,X58 : STA $0C0080040,XT8 : LDA $0C0076000,Xs8 : STA $0C0076040,X8 : LDA $0C0072000,X8 : STA $0C0072040,X8 : LDA $0C0068000,X8 : STA $0C0068040,X8 : DEX9 : BPL LPO)9 : INC AKTIV99 : RTS?9 :J9 :UPCOL^9 : LDX #39v9 :LOW LDA $6102,X9 : STA $0800720,X9* : LDA $6101,X94 : STA $080072040,X9> : LDA $6100,X:H : STA $080072080,X:R : LDA $6100,X8:\ : STA $0800720120,XP:f : LDA $6101,Xp:p : STA $0800720160,X:z : LDA $6102,X: : STA $0800720200,X: : LDA $6102,X: : STA $0800720240,X: : DEX; : BPL LOW; : RTS; :'; :COLMOVE9; : VERM; : BNE KOAb; : LDA #$02v; : STA VER; : LDY $612F;: LDX #$2E;:NRE LDA $6100,X;: STA $6101,X;$: DEX;.: BPL NRE <8: STY $6100P: STY LOL2>Z: PAGES.>d: BNE MERC>n: LDA #$02Y>x: STA PAGESn>: LDX #$00>: LDY #$78>: STX KAP1>: STY KAP2>:MER RTS>:PAGES>: BYT $02>:>:ZHO?:QQQ LDA $6A00?: BEQ MAI.?: INC QQQ1B?: BNE MSOX?: INC QQQ2h?:MSO RTSq?:MAI?": LDX #$00?,: LDY #$6A?6: STX QQQ1?@: STY QQQ2?J: JMP ZHO?T:?^: RTS?h:?r:@|:O@: LDX #$003@:OWP LDA $7E00,XQ@: STA $0C004010,Xf@: LDA #$08@: STA $08004010,X@: INX@: BNE OWP@: LDX #$0A@:LLP LDA $7F00,X@: STA $0D004010,XA: LDA #$08&A: STA $09004010,X6A: DEXJA: BPL LLPZA: RTS