8(;:WATSON2.COM0669 Fr c}E q0 \C)CC8`DCeECiD` RP h1$E ȍ @y b Y)hܭ]L]` q  DMD   u j)`0  ,p0i2 &28jJ1f02 9 g iJf0i1)xԍӭ232002XԦ`  *'  } *(L `(  L l pL[,L] C i0 } p  gފދLh ( LD 0  C  C  \i +$+0'}; $(%)  b L[C `D P^߰")(݃   $DD}G@НL]S")M T H0 G$Ș݃ b 8$}$%8(() T `$E0(0)8`$GE` P} Li 8GD }L[ PH >iJ ;  yyB } ' |L[ "E( % H$ H#`L]B  0 G LO<  ( d lH۪!A3 A }jA !B EIC Y$E0 F  < 7 JN8Ndâ!,P h0ʠJd,6 } ' r/ $ ɛ ` '  L[  l }-     }    L[L  }  '  L[   p  ` g  l }) g ' }L[) ̠,L]T-0 |LM N݃:ː6UV LM N L(TU N,)M}LL[IL3GDIɛ ɜ DI  , JȊGм  G I) GȦ=}*GG ȄI1200820I H1E 1h0hIGI2ȢI`FE 0ɛ rɛ$ l '}蚦TTUVD`M L$:;Pyȱ$` r  iȱ$/:ȱ$VWyA**⩀ / }`$***? mL]-+ȱ$ɛ m* ? g. $0f.?'@ wAsTt/` }0: gL  `$0`j`& CpCi s L0JCܢj? I#}𴽎F ގМގ& & 0 C4 08L`0   | 레L] EGȽGȽ}G | E` 8,  }EG)݀G)ȱGȱG`"!L] l!i}栠$8  (IƭIp  h,g+j? 8 ii(Lq)! }S S0$} ) E9`H)N,L]8GH Lq`gNgfj****8jHi h` } 2J  &e2i`"%?&;^$IM ! ! <u hh`$}Ev옝^! 1EHFHjm GHm H`u$Ev`L=? +`!,pFE ȄD8 }q D&E`I0` i`+DOS SYSMOC.I   J ٍ = ) F)}8`Ll T!U<; Ln <JM -18     HH =}D 4 :  /1[F:M #.!  `>C #   #`>   e}L'>/b;\I\o@ @LK~ L  % /e  LL H}H0S0N:;=91D,1ɛK$ɛ`:;ʾ  ,ɛ}`XYȄ #`DTDRLUFFFCICLRSJ==CIYEEONSMDLNOOUAOOOARPLNCL#####PANVBNFR*),-PQOR}a/%<}) j ө  RES L%-, # 3 0 %   4(H 4(` }( 3  #  ZOiۨ L4RE 3 =F S Z +8!} 0+  FF % 4 4& 4(X)Y    # 4 ʤ Ȅ L"}F F LH hL4`*J 0 B B 0a   8#}    Lkl  );<  : ` 0 } T T 7̀΀$}LIl <;`<L 3   #/ ! R( 7 7   7 89i L7 ,(&  %} L480  ` Ln    `   HJJJJ h) ii0 ``0  ,BLV&}[J  B Vso Fhh` GH ,H hɐɀɡ)HDCȱCɛeCD먥D h'}N MSп` ED` OIH`hhXhh  nL Free Fil-DBreakI/O-Error 170Disk f(}ullWrite protectedFile MismatchBad FilenameDOS II+/D - Version 6.4 RUN:(c) '87 by S.D.Br`čLLockedDe)}vice doneDIR fullNot foundLoad?Bad DOSHex?AbortFromToHD) S)Eh` ɛLn ;LD4:+DOS SY*}SMOC.I   J ٍ DCMLIST CFG 001 PRINT CFG9U Bƥj @ B l `Loading ϠĠ Please, off Basic ...R BJ V䩷jK,}EZDB VX"0"0LvLvX]  ˠɿ l B-}rak miejsc w Hatabs.Juz jest zainstalowany Blizzard.OK. Blizzard pod litera X, w $B700-$BFFF.Xn:* Pyta sie, czy wc.}zytac. X2: Daje krotkie przerwy. Pajero/MadTeam. Enjoy. Y BJ V䩷jKEZDB V0-X/}&"0 "0X]`E:kŻL+$2>:$%*A` 0 zd ? 0} ۺ  ?H q  ` 0 z ߹ ' Q H 30$*$ɛ L> ` K1}  e 򩂢 e H hNзL۷qr{ɛ L`(Y/N)? `>9?`2}4ӥH z 3> ?LCCD`0`CCD`H z z q3} > ` . ߹$ A Qҩ 0 8&002 a  4`  y`,,4} ҭҍЌҎ)`/0ҩPҠ/809 89`ԍԍҍҍxҩ(`66q67475`ҍҩ@5}ԥX`452637` \**`ҩ `2384253` . ߹A 4. ۺ/*0 06}эҰ ú a/ LL, ҩҩҌ`ҩ҄/ Ҍ ú /ҩ ú  ú`,7}ҩҌ`_ i/0 i//80dR0 iRMB`,, `4 ?H`H<`?8}CD`CD$ɛCO` CO`yy!H z z ? q ` $D20FSKCTL EQU $D20FPb/* TURBO BLIZZARD by Pajero/MadTeam* last modyfi: 16.5.1998 * Handler Blizzarda wczytujcy si pod $B700-$BFFF.* Pod li:}ter "X"* Ripowane pod BugHunterem, Codowane pod QuickAssemblerem* komentarze zawieraj oryginalne adresowanie $0700-...;}* Dostosowane pod MADS: 3.8.2009*/BUFOR EQU $bfff-$403BUF_2 EQU BUFOR+2BUF_4C EQU BUFOR+$4CBUF_END EQU BUFOR+$403<}EOL EQU 155* etykietyDOSRUN EQU $ADOSINI EQU $CICHIDZ EQU $20ICBADZ EQU $24ICAX1Z EQU $2AICAX2Z EQU $2BCIOCHR =}EQU $2FSTATF EQU $30CHKSUM EQU $31BUFRFL EQU $38RECVDN EQU $39GAPTYP EQU $3EFTYPE EQU $3EFEOF EQU $3FSOUNDR EQU >}$41ERRNN EQU $48ERRNO EQU $49LMARG EQU $52RMARG EQU $53ROWCRS EQU $54COLCRS EQU $55SAVMSC EQU $58OLDCHR EQU $5D?}RAMTOP EQU $6AVSERIN EQU $20AVSEROR EQU $20CVSEROC EQU $20ECDTMF3 EQU $22AWMODE EQU $289INVFLG EQU $2B6RUNADR EQ@}U $2E0INITAD EQU $2E2MEMLO EQU $2E7CRSINH EQU $2F0CHAR EQU $2FAATACHR EQU $2FBDSPFLG EQU $2FEDAUX2 EQU $30BSTACA}KP EQU $318HATABS EQU $31AIO EQU $340COLBAK EQU $D01AKONSOL EQU $D01FAUDF3 EQU $D204AUDC3 EQU $D205AUDF4 EQU $D2B}06AUDC4 EQU $D207AUDCTL EQU $D208STIMER EQU $D209IRQST EQU $D20EIRQEN EQU $D20ESKSTAT EQU $D20FSKCTL EQU $D20FPC}ORTA EQU $D300PORTB EQU $D301PACTL EQU $D302DMACTL EQU $D400VCOUNT EQU $D40BNMIEN EQU $D40ECIOV EQU $E456BEEP ED}QU $FDFCKBGBYT EQU $F2FDSHIFT EQU %00001000EOUTCH EQU $F2B0* WITAM WITAM EQU $9A00 ORG WITAM LDA #EOLE} JSR EOUTCH LDX TOJA JSR $C642 LDA RAMTOP ;Basic off? CMP #$C0 BEQ O1 LDX F}ZLE JSR $C642 JSR KBGBYT JMP (10)O1 RTSTOJA DTA C'Loading ',b($0D),b($95),b($8E),C' TURBO BLIZZARD '*,b($8G}E),b($95),b($0D),B(EOL)ZLE DTA C'Please, off Basic ...',B(EOL) ORG $2E2 DTA A(WITAM)* INSTAL ORG $A000H}RUN LDX #0 LDA #12 STA IO+2,X STA IO+10,X ;cls E: JSR CIOV LDA #$B7 STA RAMTOP TXA I} STA IO+11,X LDA >Enam STA IO+5,X LDA BrakMiejsc JMP ERRORFOUND LDX JuzJestX JMP ERROREMPY LDA #'X' STA HATABS,X M} LDA T_STER STA HATABS+2,X LDA 12 LDX 13 STA DOS+1 ;reset N} STX DOS+2 LDA DOS STA 12 STX 13 LDX zainstERROR STX $80 STY $81 LDY #0O}pi1 STY $82 LDA ($80),Y ;pisz txt CMP #'?'* BEQ pi5 JSR EOUTCH LDY $82 INY BNE pi1pi5 JSR KBGBYT P} JMP (10)BrakMiejsc DTA B(EOL),C'Brak miejsc w Hatabs.',b($bf)JuzJestX DTA B(EOL),C'Juz jest zainstalowany Blizzard.',b($Q}bf)Zainst DTA B(EOL),C'OK. Blizzard pod litera X,' DTA B(EOL),C' w $B700-$BFFF.' DTA B(EOL),C'Xn:* Pyta sR}ie, czy wczytac. ' DTA B(EOL),C'X2: Daje krotkie przerwy.',B(EOL) DTA B(EOL),C' Pajero/MadTeam. Enjoy.',S}b($bf) ORG $2E0 DTA A(RUN)* HANDLER ORG $B700DOS JSR F3 LDX #0 LDA #12 STA IO+2,X T} STA IO+10,X ;cls E: JSR CIOV LDA #$B7 STA RAMTOP TXA STA IO+11,X LDA >Enam STA IO+5,XU} LDA T_STER STA HATABS+2,XF3 RTSEnam DTA C'E:',B(EOL)T_STER DTA A(OPEN-1) DTA A(CLOSE-1) Y} DTA A(GET-1) DTA A(PUT-1) DTA A(STATUS-1) DTA A(STATUS-1)*  HANDLER ERR_BREAK JMP ERR ;$0Z}CBDOPEN LDX ICAX2Z ;$2B LDY #1 LDA ($24),Y CMP #'2' BNE sk1 LDX #$80sk1 STX FTYPE ;$3E CMP [}#':' BEQ sk2 INC $24 BNE sk2 INC $25sk2 TSX STX STACKP ;$318 LDA ICAX1Z CMP #4 BEQ O\}rea CMP #8 BEQ Osav LDY #$92 RTSOsav LDA #$80 STA WMODE ;$289 LDA #02 JSR BEEP ;$FDFC]} BMI ERR_BREAK JSR j10B9 JSR ON_MOTOR ;j108F LDY #$64 JSR PAUSE ;j0D79 JSR NUL_SPACE ;j0D^}19 LDX #$01 LDY #$0D JSR j0E15 JSR VBI_IRQ ;$0D4F LDY #5 JSR PAUSE ;j0D79 LDX BUF_4C ;#$07 JSR j0DAB JSR CLR_BUF ;j10A6 LDY #1 JSR OFF_MOTOR ;j109C TYA RTS`}Orea LDA #00 STA WMODE ;$289 LDA #01 JSR BEEP ;$FDFC BMI ERR_BREAKsk12 JSR ON_MOTOR ;$108Fsk5 JSRa} NUL_SPACE ;$0D19 LDX #01 LDY #09 JSR j0CF1 JSR j0E61 LDX #$84 LDY #$00 JSR j0D8B Jb}SR VBI_IRQ ;$0D4F LDX BUF_4C ;#$07 JSR j0C6D BMI sk5 LDX #0 LDY #2py4 LDA (c}$24),Y CMP #'*' BEQ pytpy6 LDA ($24),Y CMP #EOL BEQ sk11 CMP BUFOR,X BNE sk5 INY INX CPX #$4C BCC pyd}6sk11 LDA FTYPE ;$3E BNE sk9 JSR OFF_MOTOR ;$109Csk9 JSR CLR_BUF ;$10A6 LDY #1 RTSpyt JSR OFF_Me}OTOR LDX #$4C-1 LDA #' 'py3 CMP BUFOR,X BNE py3_ DEX BPL py3py3_ LDA #EOL STA BUFOR+1,X JSR EOUTCf}H LDA BUFOR JSR PISZ JSR EOUTCH LDA YorN JSR PISZ JSR KBGBYT LDA ATACHR PHA JSR EOUTCH Lg}DA #EOL JSR EOUTCH PLA CMP #'N' BNE sk11 JMP SK12PISZ STA piA+1 STX piA+2 LDX #0pi3 STX piZ+1piA LDA $FFFh}F,X CMP #EOL BEQ piQ JSR EOUTCHpiZ LDX #0 INX CPX #$4C BCC pi3piQ RTSYorN DTA C'(Y/N)? ',B(EOL)i}* getGET LDA WMODE BPL sk19 LDY #$83 RTSsk19 LDA BUFOR BNE sk20 LDA BUFOR+1 BNE sk20 LDA j}FEOF ;$3F BEQ sk21 LDY #$88 RTSsk21 TSX STX STACKP ;$318 LDA #$34 STA PACTL ;$D302 LDk}A ERRNN ;$48 BNE sk22 JSR ON_MOTOR ;$108Fsk22 LDX BUF_END ;#$0B JSR j0C6D LDAl} FTYPE ;$3E BNE sk23 JSR OFF_MOTOR ;$109Csk23 JSR SET_43 ;$10B0 LDA #$04 CMP BUFOR+1 BEQ sk24 m} LDA #$80 STA FEOF ;$3Fsk24 TYA BPL sk19 JMP OFF_MOTOR ;$109Csk20 LDY #00 LDA ($43),Y INC $4n}3 BNE sk25 INC $44sk25 LDX BUFOR BNE sk26 DEC BUFOR+1sk26 DEC BUFORSTATUS EQU *SPECJAL LDY #1 o} RTS* putPUT LDY WMODE BMI sk13 LDY #$87 RTSsk13 LDY #0 STA ($43),Y INC $43 BNE sK14 p}INC $44sk14 INC BUFOR ;$700 BNE sk15 INC BUFOR+1 ;$701sk15 LDA BUFOR+1 ;$701 CMP #4 BEQ sk16 q}LDY #1 RTSsk16 TSX STX $0318 LDA $48 BNE sK17 JSR ON_MOTOR ;j108F JSR ON_MOTOR ;j108Fsk17r} LDX BUF_END ;#$0B JSR j0DAB JSR CLR_BUF ;j10A6 LDA $3E BNE sk18 JSR OFFs}_MOTOR ;j109Csk18 LDY #1 RTS* procedury* ;$0C6Dj0C6D JSR SET_34_32_36 ;$0D68 JSR NUL_SPACE ;$0D19 t} LDY #$01 LDX #$24 JSR j0CF1 LDA SOUNDR ;$41 BEQ sk66 LDA #$AF STA AUDC4 ;$D207sk66 JSR j0u}D8Bp0C87 EQU *+1 LDA #$80 STA AUDF3 ;$D204p0C8C EQU *+1 LDA #$01 STA AUDF4 ;$D206 JSR BORDERv} ;$0CD1sk69 LDA #$01 STA $30sk68 JSR BORDER ;$0CD1 CLC BNE sk67 SECsk67 ROL $30 BCC sk68 w} LDA $30 STA ($32),Y JSR INC_32 ;$0D9B BCS sk69 JSR VBI_IRQ ;$0D4F JSR j0D36 LDX #$00 Lx}DY #$8F CMP ($34,X) BNE sk70 LDY #1ERR_Y EQU *sk70 TYA RTS* ;$0CBDERR JSR VBI_IRQ ;$0D4Fy} LDX $0318 TXS JSR OFF_MOTOR ;$109C LDY #0 STY $11 LDY #$80 STY NOPS RTS* ;$0CD1z}BORDER LDA #$10sk522 BIT SKSTAT ;$D20F BEQ sk522sk53 BIT SKSTAT ;$D20F BNE sk53 STX STIMER ;$D209 {}LDA IRQST ;$D20E STA COLBAK ;$D01A STY IRQEN ;$D20E STX IRQEN ;$D20E BPL ERR AND #04 RTS* |};$0CF1j0CF1 STX CIOCHR ;$2F STY STATF ;$30 LDA #$02 STA AUDF4 ;$D206 LDA #$50 STA AUDF3 ;$D204}} LDY #$00 LDX #$84sk55 LDA CIOCHR ;$2F STA BUFRFL ;$38 LDA STATF ;$30 STA RECVDN ;$39sk56 JSR~} BORDER ;$0CD1 BNE sk55 DEC BUFRFL ;$38 BNE sk56 DEC RECVDN ;$39 BNE sk56 RTS* ;$0D19NUL_}SPACE LDA #0 STA NMIEN ;$D40E STA DMACTL ;$D400 STA IRQEN ;$D20E STA AUDC4 ;$D207 STA AUDC3 ;$D}205 SEI LDA #$83 ;%10000011 STA SKCTL ;$D20F LDA #$28 ;%00101000 STA AUDCTL ;$D208 RTS* };$0D36j0D36 LDY $36 LDA #0 STA $36sk48 CLC ADC ($36),Y INY BNE sk47 INC $37sk47 CPY $3}4 BNE sk48 LDX $37 CPX $35 BNE sk48 RTS* ;$0D4FVBI_IRQ LDA #0 STA IRQEN ;$D20E }STA AUDC4 ;$D207 LDA #$40 STA NMIEN ;$D40E LDA $10 STA IRQEN ;$D20E CLI LDA #3 STA SKC}TL ;$D20F RTS* ;$0D68SET_34_32_36 STX $34 STY $35 LDX BUFOR STX $33 STX $37 RTS* ;$0D79PAUSE LDX #0 LDA #3 JSR $E45C LDA #$FF STA CDTMF}3 ;$22Ask42 LDA CDTMF3 ;$22A BNE sk42 RTS* 0D8Bj0D8B LDA #5 STA AUDF3 ;$D204 LDA #2 STA AUDF}4 ;$D206sK65 JSR BORDER ;$0CD1 BEQ sk65 RTS* ;$0D9BINC_32 INC $32 BNE sk51 INC $33sk51 SEC } LDA $34 SBC $32 LDA $35 SBC $33 RTS* ;$0DABj0DAB JSR SET_34_32_36 ;$0D68 JSR NUL_SPACE ;$}0D19 LDA SOUNDR ;$41 BEQ sk466 LDA #$A8 STA AUDC4 ;$D207sk466 JSR j0D36 LDX #0 STA ($34,X)} LDY #$02 LDX #$2E JSR j0E15 DEC CIOCHR ;$2Fsk52 LDX #8 LDA ($2A,X) STA $30sk50 JSR j0E4A} ASL $30 BCC sk49 LDA #$D1 STA AUDF3 ;$D204 BCS sk499sk49 LDA #$87 STA AUDF3 ;$D204sk499 J}SR j0DFD DEX BNE sk50 JSR INC_32 ;$0D9B BCS sk52 INC CIOCHR ;$2F BEQ sk52 JSR VBI_IRQ} ;$0D4F LDY #1 JMP ERR_Ysk44 JMP ERR ;$0CBD* ;$0DFDj0DFD LDA #4sk43 BIT IRQST ;$D20E BNE sk43 }STY STIMER ;$D209 LDA #$83 STA SKCTL ;$D20F LDA #$FB STA IRQEN ;$D20E STY IRQEN ;$D20E RTS*} ;$0E15j0E15 LDA #1 STA AUDF4 ;$D206 LDA #$AE STA AUDF3 ;$D204 STY CIOCHR ;$2F LDY #$84 S}TY STIMER ;$D209 STY IRQEN ;$D20Esk46 JSR j0DFD JSR j0E4A DEX BNE sk46 DEC CIOCHR ;$2F BNE }sk46 LDA #0 STA AUDF4 ;$D206 LDA #$87 STA AUDF3 ;$D204 JSR j0DFD JSR j0E4A JSR j0DFD } RTS* ;$0E4Aj0E4A LDA #4sk45 BIT IRQEN ;$D20E BPL sk44 BNE sk45 LDA #3 STA SKCTL ;$D20F LD}A #$FB STA IRQEN ;$D20E STY IRQEN ;$D20E RTS* ;$0E61j0E61 LDX #$5F LDY #$00 JSR j0EA3 S}TA CIOCHR ;$2F STA STATF ;$30sk60 JSR j0EA3 CMP CIOCHR ;$2F STA CIOCHR ;$2F BCS sk59 INYsk59 DE}X BNE sk60 SEC SBC $30 BCS sk61 SBC #$64 DEYsk61 STX p0C8Csk63 DEY BMI sk62 CL}C ADC #$9C BCC sk63 INC p0C8C BCS sk63sk62 STA p0C87 LDX #$42 CPX $0 BEQ sk64 CP}X $03EA BEQ sk64 NOP NOP NOPsk64 RTS* 0EA3j0EA3 LDA #$10sk57 BIT SKSTAT ;$D20F BEQ sk57sk}58 BIT SKSTAT ;$D20F BNE sk58 LDA VCOUNT ;$D40B RTSNOPS DTA B(0)* ;$108FON_MOTOR LDY #$34 STY} PACTL ;$D302 JSR PAUSE ;$0D79 LDA #$80 STA ERRNN ;$48 RTS* ;$109COFF_MOTOR LDA #0 STA ER}RNN ;$48 LDA #$3C STA PACTL ;$D302 RTS* ;$10A6CLR_BUF LDA #0 STA FEOF ;$3F STA BUFOR S}TA BUFOR+1* ;$10B0SET_43 LDA BUF_2 STA $44 RTS* ;$10B9j10B9 LDX BUFOR-2 ;#$06 STX $44 LDY #2sk31 LDA ($24),Y CMP #EOL BEQ sk30 } STA ($43),Y INY CPY #$4F BNE sk31 RTSsk30 LDA #$20sK32 STA ($43),Y INY CPY #$4F BN}E sK32 RTS* close dla odczytuCLOSE LDA #$00 LDY #$80 LDX NOPS STA NOPS BNE sk28 LDY #01 L}DA $0289 BPL sk28 TSX STX $0318 LDA $48 BNE sk29 JSR ON_MOTOR ;j108F JSR ON_MOTOR ;j108Fs}k29 LDY #$14 JSR PAUSE ;j0D79 LDX BUF_END ;#$0B JSR j0DABsk28 JSR OFF_MOTOR ;$1}09C TYA RTS END(%?B'DOS SYSB+BLIZZARDCOMBi9BLIZZARDASMCreation ATR: by Pajero/Madteam/Poland (pajero_pn@poczta.onet.pl)