,8(;NUENU cE 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^߰")(݃   $DDG@Н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,)MLL[IL3 GDIɛ ɜ DI  , JȊGм  G I) GȦ=*GG ȄI1200820I H1E 1h0hIGI2ȢI`FE 0ɛ rɛ$ l '蚦TTUV D`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 2 :  /1[F:M #.!  `>C #   #`>   eL'>/b;\I\o@ @LK~ L  % /e  LL HH0S0N:;=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 ʤ Ȅ LF 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 hN MSп` ED` OIH`hhXhh  nL Free Fil-DBreakI/O-Error 170Disk fullWrite protectedFile MismatchBad FilenameDOS II+/D - Version 6.4 RUN:(c) '87 by S.D.Br`čLLockedDevice doneDIR fullNot foundLoad?Bad DOSHex?AbortFromToHD) S)Eh` ɛLn ;LD2:+DOS SYSMOC.I   J ٍl-DM 011 R2 BAT 001 R`x` `ɜ;H/`TD`EHI B V-U`` /`i% `l Trup Assembler 1.01 by JBWNo room!`d!qL9eLfLfL/mLMmLiLkfLzfLfLWhL^fLVLhLhLjiLvm v pp m QgL$e f [rr``j`j`` ʥː``[r$``^r>` ro ep  Dd fhrLdZljjmBhNooozhPg$v'v*v-vh2h:hPhajjjjajlmml;e9e q`pqoroqeuppppp>q[qX/oZ2prpnpp poMSANRPJBO.6 "$):$#&ile%dit2un!ssembly3etup)/error<<</utofmemory<<<.oroom7ipeall<<<&ilemodified<<3ave#ontinue<&ileexists<<2eplace!bort<&   D8:QA.SET*.* D8:;q>qD8:Xq]qD8:P:uqwqD8:qqD8:*.*qhr9%8!&300+*-=~-=,oad<3ave<.ew<$ir<0rn</bj<1uit<7smode<2un<-emhi<3avesetup<1asm<"ʔF``Lwd@` ```A `?`pppB@`A ````ddo;prvwLvL?wL!&wL`wLvLIvLGvLvL0vL9vL|wLwLwLwLwLwH 9vhJJJJ) i`(e`H Gvhe`8吅Ƒ8(ƕ`8`` `XY GvLIv褙 v< Ie Gv'`ȽwwwLGvH Svh v v褚 ]v0 v v w wƗLw8eȦ v褚 vLuv w d w wI`Ł* w䖐論 dLw`䖰`hhhh``H w0 wLwIh`FMGVBGNF(vwwxx v%uȑΤȄŅĢ ) Viȕ󅦅0r +y $;iiؠ 7{ 7{$<b _Lqx$I0@ 'd…Lqxp @ zL)Ix 'di v$ꃑʈ`a{E`e橩$ ʥ˰+`@B䃝D僝EAHI dL) `i ɛ` ,{L:z:$@<>    y`0L{z0  yXY*Nԩ@l yɛ' y'  z0 * yI`! yɛ ,{ { A`ߝمjjj y { Lz FƢ z80 e y {`Lz $P  e`$p&` +z` zĥ z zeąeŅ`0$p2`G A:8`_A[`H @{hJJJJ) i`)Ƨ$Pʆ |@$[ 8 ĥȱɛ dįI(!"&` m情ĭ,iŠȑđH`)Ӧ$ O{)`0@  $dLxy |0 |0 |0ݨ |0Ѩ浹ĵ |0 |Į`i ɛ)hi . d毥` vĥ v%Ĉ銠%` ĥυ`Ɔ$pL}-L}$ʥ˰ zL }ƁP$#)cE@<)Ș $d xyL} BHI), d0ܩ d0ե) |Ču} d0 d0 Ȅ 7{櫦` y `8 JfJfeũ` }Q)ټ(Ķ.$P )ąȱą`iĐ8ЭЩ 8` yALz yLz }$P }@)` }LzLz@Ĉ ĥąŅ` yNAGAĭ郅Ž:i@ą))?/űąıąɛ LzLzL}08eąĥ)?ĢJ0ܩǥA };$P1 Lz Ld@LzLd) Lz "ee y  yL8弅彅Lw`J yL, L5II I  0 y M]Y)0Lz )L)) y51<)  yLLz`Lz y`)"Lzڥ ) yť)0)040)3iF 'L€$0 Lz)  $0`i71O$PS8媅嫅8ƥi3 LzFf 00 Lzie;00膯 |` y$P  7{ 7{ })**|&" #~ ~$0/  ˀɛ yL$P { H @ {h2` ܁L ՃHԃH` y_A6ƶ2A)C E`HL y y ĦLzB$H  LzLzʥ񆴢 |' y@жDf$ d | y ЋL灥 ` 700P3.@$ ȥ`3 7{L7{ LzLz Lz y@@Lz@ *d@ $dLxy$`Lz hh$`)PI@) 7!))pJJJJ))` Lz |8ȥ` 709* z?#  |ȹ` Lz4 LzLz恟ꂦ'B#omplete&ailure;фeuiaqm}y%5)!1-=9 $,0PpXʈEUIAQM]YLl JFVN^  Hh(*&6.>jfvn~@`8xAAABBBBBBBBBBCCCCCCCDDDDEEEEIIIIJJLLLLNOOOPPPPRR5RRSSSSSSSTTTTTTDNSCCEIMNPRVVLLLLMPPEEETNOQXCNNNMSDDDSOPRRHHLLOOTTBEEETTTAASXXYCDLCSQTIELKCSCDIVPXYCXYADRUTLCXYPRAXYRPTAGAPAPLRISCCDIAXYXYXASA !"#$,/2678@DEFHIQV[`aijklmrwxy$$  4,6  󀀀䀀򀀀쀀耀7倀倀瀀#"@ 0ass,ineD0:xփ 'Õ)-LL-Lv'ȭ(ɩ8``d d` {L0(e`Hhui`8H8 dh ( Ȅ)*)`H hJJJJ) )`H 詛ȢȠʩ Jʠ 6 h` | d d d dLۈ)?<#' " Lۈ Lۈ`I`Lۈ`I `Lۈ()?Q` L0d9ɛ@ L? J JHH hh?` Y8e` 6  68墨壪 eƅʥeDžeƅ̥eDž`ޥ¥å8…ƥÅX[$00eƅޥeDžߥޥߐ8eƅޥeDž߭`ޭ`ߐeÅe ‘:` -dl ‘İ‘ץ`لڢȠ 6 YȘ FLLFȠ 6ąŪ¥ÐĤ`ɛŢ٦ܽٽڽӖݠ? ݰٙ閈%&@Ӗ`? 詛閤݆8eمi8eم;i Ӱ ְ֦ܥٝڝݝӖ轧ȽɐeƝeǝ޹閑و`х҅Ѕ܅ˠɛ Lʠ 6 J Ƞ 68܅٥ڥ YȘ FLʥ˰" Y8ӖeL8<ӖL뽦Ƚɰ8`8}Җi˰-ԖӖ YҖ`ȭɰ8`ʽӖԖɛ8eiܘIӖ` - WL8}Ӗi` ¥ (`hh=L$ - $ a (`%`?䚰8` - ܥL - ahhhh - L|HH)JJJ` hh`8ʪ˨`%,Q,`0T:`ʽW `8Y `9& XѤ>ȩ ] ]XQ J)ȄL: ‹ 獩]Ě :8܅¥8ª8ªŦ ⽧ӖL)e88ǩ  0? 0 0 ?i(j%$pFƐ Fǐʆ%EĚ :L`,`EЄ'( = - ‹ 8 ְ 8 6LTA[a{M`M`?,` ' Ѓ?H閝@閘hɛ,` А ְL ڈ,`0 [  L Õ޽ĕ L l 6 -L -Ƞ 6 ʥˢ ܥѐц ‹L? -Ԡ 6 6Ӆ`Lv -נ 6 6օ`Lv - d0EʝD˝E8AʝH˝I d%ʅ˅HIe̥e L L'd 8 d DE8HI dL -֦פ 6ӦԤL`Ӡ ԑР ԑhhL$` 8 䑢 6  68 -8ݐ 9eЅiB8嬪奰e楥eeee 6 6 ʠ 6 ɛ إŦ姐L‹ 8 䑩Р ԑƭ  6ee $0/8娅¥婅 Ċֆׄ8娅¥婅 ĊӆԄLL‹Ѕۅ`CC- 8Ѕ & t`? 獐Ѕ,` Z` `L6 tleӅօ   ? -eЅi J ‹( eЅӥ( eЅ֥`Щꖝ> Ӱ ְ` 6 3 TLЩ D?` 8 Ԡ 6Ӆ L‹ M``H` h`` 6 ƏL I`Е0Е0 d*>)`KQ 8 ڈ d+H |h)*+޽| ޽lP ``I``Ъ)JJJ8j]``` d0$P -E 6$pݐݰ)ɛ#썖:)a{I ݍ8eمِʥˠ $LH  6 6hLv`L | 4)*` TTtt6?󔰔XX򓁓%%tt֍֍.@͒3+&reeF,o)ns,ine#ol)ns/vr,5op  ~ bkhdrwycvrcbkyf**Kii)I)iեԍՍ8ԝL՝M8ֽeօԥeׅՠiԥi Dнѽҽ8LԥMզѥG D`~%ґ 7 @`) T) M҅ȱ҅׈ LHMhL Dשֆ8֑ 7L/ґ 7L`i(`ԥeׅՠiԥi Dнѽҽ8LԥMզѥDA__rp_sk sty j stx i brk rtsmx brkre02,x cmp x bcs __rp inx bne _rp__rp lda x cmp tre02,y bcֆ8֑ 7L/ґ 7L`i(`ԥeׅՠiԥi Dнѽҽ8LԥMզѥ* Version 1.1** proc for Rip with height 200* uncompress, this is important** height 200=200*40byte(widght)=8000* 2x16kb banks for 1 picture* all Rip = 16kb memory for 200 line* Rip header* d'RIP1.0 ',a(0),a(header lenght),* a(widght),a(heig Jht+1),* a(name lenght),d'T:',name,* how many colors(default=9 in RIP1.0)* d'CM:',d'123456789'* opt 37 org $b000ad1 equ $2010 ;screen 1ad2 equ $4010 ;screen 2pic equ $80rip equ pic+2x equ rip+2y equ x+2line equ y+2*--main ldx K<$6000 ;rip adres ldy >$6000 ;file load to this ...* ldx $600 ;parametr /adres/ stx pic* ldy $601 sty pic+1 ldy #11 ;lsb byte of header lenght lda (pic),y sec sbc #9 ;index for color pallete tay ldx #0 ;colorscl lda (pic L),y sta $2c0,x iny inx cpx #9 bne cl lda $2c8 ;for dli sta col1+1 sta col2+1 lda #$22 sta $22f lda
dl sta $231 lda #$80 sta $26f jsr copy jsr _conv lda dli sta $201 lda #$c0 sta $d40et j Mmp t ;loop or exitdli pha txa pha ldx #100_d0 lda #$40 sta $d40a sta $d01b lda #0 sta $d01a lda #$80 sta $d40a sta $d01bcol1 lda #$0 sta $d01a dex bpl _d0 lda >ad2 sta adr+1 lda >ad2+$1000 sta adr2+1 lda d Nli2 sta $201 pla tax pla rtidli2 pha txa pha ldx #100_d1 lda #$80 sta $d40a sta $d01bcol2 lda #$0 sta $d01a lda #$40 sta $d40a sta $d01b lda #0 sta $d01a dex bpl _d1 lda >ad1 sta adr+1 lda >ad1+$1000 sta adr2+1 lda dli sta $201 pla tax pla rti*- Copy* Rip data /2 picture/* to adres ad1, ad2*-copy ldy #11 ;header lenght lda (pic),y sta mem+1 lda pic ;get absolute adres clc ;of rip data /skip header/mem adc #0 sta rip lda pic+ P1 adc #0 sta rip+1 lda rip sta c1+1 clc adc <8000 sta c3+1 lda rip+1 sta c1+2 adc >8000 sta c3+2 ldx ad1 stx c2+1 sty c2+2 ldx ad2 stx c4+1 sty c4+2 ldy #0 ldx #32c1 lda $ffff,y ;picture 1c2 sta ad1,y Qc3 lda $ffff+8000,y ;picture 2c4 sta ad2,y iny bne c1 inc c1+2 inc c2+2 inc c3+2 inc c4+2 dex bne c1 rts*--_conv lda #99 sta line lda ad1 sta x+1 lda ad2 sta y+1 ldy #39exc lda (x),y tax lda ( Ry),y sta (x),y txa sta (y),y dey bpl exc ldy #39 clc lda x adc <80 sta x bcc *+4 inc x+1 clc lda y adc <80 sta y bcc *+4 inc y+1 dec line bpl exc rtsdl dta d'pp',b($4f)adr dta a(ad1) dta d'////////////////' dta d'//////////// S////' dta d'////////////////' dta d'////////////////' dta d'////////////////' dta d'////////////////' dta d'/////',b($4f)adr2 dta b(0),h(ad1+$1000) dta d'////////////////' dta d'////////////////' dta d'////////////////' dta d'////////////////' T dta d'////////////////' dta d'////////////////' dta d'/',b($41),a(dl) org $2e0 dta a(main)//////' dta d'/////',b($4f)adr2 dta b(0),h(ad1+$1000) dta d'////////////////' dta d'////////////////' dta d'////////////////' dta d'////////////////' b7` 8  m"/f01o ư &RLOHHd@ ԍЩЩ ԍЩ@kPӱhh@HHd ԍЩЩ@ ԍЩ k0ӱRhh@ Ѱiii@ i V @  ?@ `c @''iPiPƈ`ppO O0WAf'iPiPƈ`ppO O0J* Version 2.0** proc for Rip with height 200* uncompress, this is important** height 200=200*40byte(widght)=8000* 2x16kb banks for 1 picture* all Rip = 16kb memory for 200 line* Rip header* d'RIP1.0 ',b(0),b(packed=1, unpack=0)* a(header lenYCht),a(widght),a(height+1),* a(name lenght),d'T:',name,* how many colors(default=9 in RIP1.0)* d'CM:',d'123456789'** ASM source: line 144,148 - 8000 for 200line* or 9520 for 238line opt 37 org $b000ad1 equ $2010 ;screen 1ad2 equ $4010 ;screeZn 2pic equ $80rip equ pic+2x equ rip+2y equ x+2line equ y+2*--main ldx <$6000 ;rip adres ldy >$6000 ;file load to this ...* ldx $600 ;parametr /adres/ stx pic* ldy $601 sty pic+1 lda $2c8 ;for dli sta col1+1 sta col2+1[ lda #$22 sta $22f lda
dl sta $231 lda #$80 sta $26f jsr copy jsr _conv lda dli sta $201 lda #$c0 sta $d40et jmp t ;loop or exitdli pha txa pha ldx #100_d0 lda #$40 sta $d40a sta $d01b\ lda #0 sta $d01a lda #$80 sta $d40a sta $d01bcol1 lda #$0 sta $d01a dex bpl _d0 lda >ad2 sta adr+1 lda >ad2+$1000 sta adr2+1 lda dli2 sta $201 pla tax pla rtidli2 pha txa pha ldx #100_d1 lda #$80 sta $d40]a sta $d01bcol2 lda #$0 sta $d01a lda #$40 sta $d40a sta $d01b lda #0 sta $d01a dex bpl _d1 lda >ad1 sta adr+1 lda >ad1+$1000 sta adr2+1 lda dli sta $201 pla tax pla rti*- Copy* Rip data /2 picture/* to adr^es ad1, ad2*-copy ldy #11 ;header lenght lda (pic),y sta mem+1 lda pic ;get absolute adres clc ;of rip data /skip header/mem adc #0 sta rip lda pic+1 adc #0 sta rip+1 lda rip sta c1+1 clc adc <9520 ;238line x 40byte=9520 sta _c3+1 lda rip+1 sta c1+2 adc >9520 sta c3+2 ldx ad1 stx c2+1 sty c2+2 ldx ad2 stx c4+1 sty c4+2 ldy #0 ldx #32c1 lda $ffff,y ;picture 1c2 sta ad1,yc3 lda $ffff+8000,y ;picture 2c4 sta ad2,y iny bne c1 inc` c1+2 inc c2+2 inc c3+2 inc c4+2 dex bne c1 rts*--_conv lda #99 sta line lda ad1 sta x+1 lda ad2 sta y+1 ldy #39exc lda (x),y tax lda (y),y sta (x),y txa sta (y),y dey bpl exc ldy #39 clc lada x adc <80 sta x bcc *+4 inc x+1 clc lda y adc <80 sta y bcc *+4 inc y+1 dec line bpl exc rtsdl dta d'pp',b($4f)adr dta a(ad1) dta d'////////////////' dta d'////////////////' dta d'////////////////' dta d'////////////////' dta db'////////////////' dta d'////////////////' dta d'/////',b($4f)adr2 dta b(0),h(ad1+$1000) dta d'////////////////' dta d'////////////////' dta d'////////////////' dta d'////////////////' dta d'////////////////' dta d'////////////////' dta d'/',bc($41),a(dl) org $2e0 dta a(main)//////' dta d'/////',b($4f)adr2 dta b(0),h(ad1+$1000) dta d'////////////////' dta d'////////////////' dta d'////////////////' dta d'////////////////' dta d'////////////////' dta d'////////////////' dta d'/',b$"`X"/Q01o =L:HHd@ ԍЩЩ ԍЩ@VPwhh@HHd ԍЩЩ@ ԍЩ V0=hh@ iii0i% @ e ?@`c @''iPiPƈ`ppO O0fAQ'iPiPƈ`ppO O05' uncompress RIPLOA COYOTE.RIP 6000RIP.OBJAf'iPiPƈ`ppO .O0.RIP1.0 'PT:coyote CM:#($%333333333333333333333333333331133333333333333333333333333333333311333333333333333333333333333333333113333333333333333333333333333333331133333333333333333333333333333333311333333333333333333 i333333333333333113333333333333333333333333333333331133333333333333333333333333333333313333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333 j33333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333 k3333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333331333333333333333333338333333333331333333333333333333333333333338333133333333333333333 l3333333338333313333333333333333333833333333333133333333333333333333838833333333333333333333333333833333338333333333333333333338388333883333333333333333333333383833383313333333333333883333333838888 m3331333333333333333388383833133333333333333383381333333333333383888313333333333338838888333333333338888888833333333383883831333 n33333333888881333333333333888333333333388333333333388883883333333333333333338883333338 o88133333333838333333388333333883333338883333333888833333388 p13333333388388383333338833833338888883333313883388133333833333338833338883333383311 q3333883333338333133333133333333333333333318333833833333333318388338333333383333133833333333333333333331383333333333333833333331 r333333333333331333333331333333333333331333333331333333333333333333333331333333333333333133333333133333333333333133333333133333333333333333333331333333333 s333333333333313333333333333333333333133333333333333133333333133333333333333333333333333333333333333333333333333333333333333333333333333333333333 t3333333333333333333"3333333333333333333333"3333333333333333333333!3333333333333333333331(33333333333333333333313333333333333333333331"333333331 u33333333333331!3336S333133333333333331(3336S333133333333333331(#3335c33313333333333333#3335S33313133333333333#3335S333133333333333#3334C3331333333 v33333#3337s333133333333333#333DD33313333333331#333DE33313333333331#333UU33313333333331(#333fe33313333333331(#333UV33313333333331(#33 w3UU3331333333333(#333UU3331333333333(#334DD3331333333333(334DD333333333331(334DD31333333331(334DD3333333331(336eg3 x33333333(337wu333333331(335UUS333333(33UUfc333331(33UfUS33333(33fUfc34U31(33fffc3UE3 y33fffc3UT333fffcDD1!36ffffDD8!36ffffDD!36ffffDD!36fwwwEU3 z7wfffTA36UVUVDA6UfUfefefefdUQUUUfdUXffffdwHffffd {DHffffDHfffTDHfUUfDVffDDeUDDDUDDDUX |DDDDUXDDUXDUUqUUUATDDADDDD3 }DDDUU38DDDUU338DDDeUQ333DDfffc333DDfffc333UUffff333ff ~Vff"3311ff""""s383ff""r""383ff"'"'%U83xww"r'uUUX3QUU'UUUUU3UUU tUUUUU5UUUEUUUU5VUVUUUUU5fXUfUUUUU6ehefeUUUUUUUQUTDUDDDDUUUDDDTDDDDHU UUDDDUUUUUXUUTDDDDDUUUUUXTDDDDDEUUUUUUXDDDDDUUUUUUUUQDDDDDUUUUDDDDDDDDDEUUUUUDDDDDADEUUUUUUU DDDDDAUUUUUUUUUDDDDDAUUUUUUUUUUUUUUQUUUUUUUUDDDDDAUUUDDDDDVUVUVQDDDVUVUfUfUfUfQQUfUfVf efefefeafefebfUUUUUUUQU%UVbfUUUUUUUQUUUffUUUUUUUUQQU%VfbUeUUUUUUQUVffe%ffUUUUUUVffeR&ffffffUUQ fffUe&fffffff&faffbU%&ffQfb&ffffafffffb&ffaUffffffaff"f&ffffffUUUUUffaffffb&UUUUffRUUUUUUDDDDffURUUUU&UUUUUfUUR"Fb DEUUUUUVabfff&Bb&f""fbdBDBDDB!$DDDDf&&"b"&f&f&&ffffffffbff"&b&"bfeffff%&fVffbf&f!""&ffeeUUUVffffffb&fbeUQ%B$DBbfffff"""&ffffab""%"!bUVUUVffe&effV""""%"! B$EFAR%%U%&fVfdf&%bfbR""""""""eRVURR"ERVfffbbffVb"""""%""fff&fR$eU"EUUVfb&f%fU"UVURbbff&&B%TTU$eUUUUffVfff&A&b&fbfffb&$UeU&UT$"U"UVff"BD!feb""ff"b"""UebffBeUR%U&D&fabV! bfb&ffEbeUdbfbdFf%U%DV&&&fVa"bf&"bER&f"e%e&$TBEDfffbfff"feUb"E%RU"RbV"fbfB&b&bff&feU&e%V%ReU"UVfRbfdbf&&f"f!Q%fVXU"eV%VRRUVVVffbb&b"a!UVeh%"e&%fefUfbbUb"fVb%!%fUhbe&e b%"Ufefdfe&b"b"UfefhT$"%R%RRVRV"V&&df&fbR&f(%BU"B%%RU"bU%VUU%UE%!TeeXDBRdRR"%RU"Rbb%e%E%VbUeU(") ")") ) ) ) ) ))   """"" """""""""ظ """ ؈ۈ" ؋" ظ߽ ߈ ؈ ݈؍ ۿۈ ߏ ؈߸ݸ۽ ݿݻۻ )ز )ݏ߈ ߲ )ݿ )ߏ߿ )ۈ߲ ) ))ۿݽ))ۿߋ߿ ))݈ݸ)) ݍ))ؿ ߈؋))" ""؋ۈ؋))" ""݈ۻۋ))"""" ۋ؈))߈ """""+؈ݸ))"/""""""(ظ؈) )؈" """"""(ۻ؈؈) + """""""" )"""""""" ߈ )""""""""""ۈ؈")""""""""""" "" ) """""""""""߈""" """ """""""""")""" """"""""")""""""""""" " """""""""""( """""""" """( " """"""" """( "" """"""""""("""""""""""""(""" """""""""""(""""""""""""""(""""""""""""""("""" """""""""""("""""""""""""""(""""""""""""""( """"""" """""($""""""" """"" $""""""" """"" "D """"""""""" " "D """"""""""""" $@ """"""""""""" $O """"""""""""" $ """""""""""" $ @D""""""""""" D"/Bt"""""""""""( @"/Bw """"""""""(O"/BD """"""""""(O"/BD """"""""""("/""""""""""" """"""""""""/$"""""""""""/$" """"""""""/$"D""""""""""/$"ww""""""""""/$BDD"""""""""" BDD"""""""""" BDD"""""""""" /B """"""" "  /B"""""" "" /B"""""/ "@/B""""""OBty""""""OBH"""""OBDDH""" OBDGx""  OBGtH  O"tffH"ffffHH"ffffD "ffff"ff gw"wwvfD"ffff D"fD fffDDDDD twtw tw wtwvDD DDffDD  ffffIfffffffgfgwt wtDGDwwx wDI II DO􀙙 DDODO  @  DDI  dD@ OfffhOffff DOffff ffoFffDHffDDDDH ffoDDD DHffoDIDDODDDIDDODDDDDIDDDODDDDDID DDDDDDIDIDDDDDDDIwp wtwDDDDDI (twtwtDDDDDI (DDDDD(DDD HD$DDD@DDDDDI$DDHDDDDDI$DD DDDDD@(DDoDDDDDD (DDDDo(DDDDD(DDDDDDDO $DDDDDDDD$DDDDDDDDO DDDDDI$DDDDDDDDO$DDDDDDDD@I(DDDDwOtwtwtwpy'ttwtwwwOtwtwtwtpy$p ttwtwGODDDDDDDD "DDDtwGO"DDDDDDDD)""D DDGwtO""DDDDDDDD)""DDGwwDO"""DDDDDDD ""DwttD"""'wDDDDDD ""GwwDDwr"""'wwwwwDDD" ""GwwtDwr""" wwwwwwtw" ""'wtGDGff@""""wwwGwwwp" ""GwwwG ffff""""Dwwwwwwr" ""wwtwwoffdff"""DDDDDwwr" ""wtwwwoDDDDFfb"""DDDDDDB ""wwoDDDDDDfb"""$DDDDDGr)""GGDoDDDDDD`"""&ffdgwt)""'DDtDGOGw""" ")""$GDtDGOwwwwGwwwDG""" twwwww")""$DGGDGOwtwwwwtwGwwr"""wDwwwv)""$tDvDwOtDDDDwDwwwGDr"""twtDD ""GHGwwwtwDDGwwwG@"""'DDDDD" ""DttGDOtwwwGwtDDDDDDD"""$tG@"""GDGGDGOwwwwtwtwGDDDDD""" DDDDB"""DDDDDODDGttwGGGtDDD"""DDDD"" ffdtdDDDDDDDDwGDDtGDDB"""DGDB""dgFFgDDDDDDDGtDDDww"""'GDtB "wGwDGDHgDGHDDDDDtGwHxp"""'DDG "DwwwGDDDDtDdDddDDDGHttt""" wGG")"wttGwHFtvtwddDFfDDGGtwt""""wtp")"$DwwwtDHtGgDfffFHxdfdf"""Db")"$DwDDtDDDDDDD DddFfvfDgDvFb"""&d")"$DtGDwDDDDDDDdfDFddffGgDfb"""&D"")"$DtGODDtDDDDDDFDFFfGDFdf@""" p"")"$GDwODDDGtDtwttFwtwGttD"""""" "$wtwttwDwDwtwtGFgDDDGDwt""" "" "'wwwDDtDDGDtDHGgtdDhgr"""""""$wtwODDtDDDDDDDGDHDtGH @""""""$GtGODDDDDDDxDGDxtDttDHt""""""$GGGDO)"$GDwODDDGtDtwttFwtwGttD"""""" "$wtwttwDwDwtwtGFgDDDGDwt""" "" "'wwwDDtDDGDtDHGgtdDhgr"""""""$wtwODDtDDDDDDDGDHDtGH d' compress RIPLOA RAZOR2.RIP 2000DEP_RIP.OBJRIP2.OBJAf'iPiPƈ`ppO  9wGttD"""""" "$wtwttwDwDwtwtGFgDDDGDwt""" "" "'wwwDDtDDGDtDHGgtdDhgr"""""""$wtwODDtDDDDDDDGDHDtGH$9* LZSS depacker V4.1* kody wstawia do drzewa binarnego* najszybsza, rozpisany DEP 0,64,320* dane -zrodlowe- mozna umiescic* w obszarze -docelowym-* w naglowku PCK (0..15) bajty 12..13* okreslaja ofset o jaki maja byc* przemieszczone dane -zrodl(owe-* wzgledem adresu -docelowego- opt 37 org $400 ;od poczatku strony*-* +$21 = RIP header lenght*-src equ $2000 ;packed rip filebuf equ src+$21 ;zrodlowy, sourceout equ $6000 ;docelowy, destinationadl0 equ $b500 ;576adh0( equ adl0+576 ;576 1 wg tejadl1 equ adh0+576 ;576 2 kolejnosciadh1 equ adl1+576 ;576 3 w pamiecitre01 equ adh1+576 ;256 lo =0tre02 equ tre01+256 ;256 lo =0pic equ $80err equ $80 ;2mx equ err+2 ;1l0 equ mx+1 ;2l1 equ l0+2 ;2h0 equ (l1+2 ;2h1 equ h0+2 ;2*-p equ h1+2 ;2l equ p+2 ;1nxt equ l+1 ;1val equ nxt+1 ;1tmp equ val+1 ;2pom equ tmp+2 ;16*-ind equ p ;2lic equ ind+2 ;1csh equ lic+1 ;1tand equ $f8* Wstep, parametry pliku* mozna je pominac*-----(------------------lzss lda buf+3 ;stopien kompresji and #$7f sta ratio lda buf+4 ;dlugosc oryginalna sta lng lda buf+5 sta lng+1 lda buf+6 ;dlugosc spakowana sta lnght lda buf+7 sta lnght+1* wywolanie Fano dla 3 typow danych* matc(h_len 64* ofset 256* unpack 256*----------------------------------go ldx src stx pic sty pic+1 ldy #11 ;lsb byte of header lenght lda (pic),y sec sbc #9 ;index for color pallete tay ldx #0 ;colorsco lda (pi(c),y sta $2c0,x iny inx cpx #9 bne co lda adl0 jsr set_hv lda buf+16 ldy #64 jsr fano lda adl0+64 jsr set_hv lda buf+16+32 ldy #0 jsr fano lda adl0+320 jsr set_hv lda buf+16+160 ldy #0 jsr fano* dekompresja* glowna proc*------------* lda buf+8 ;liczba znacznikow 1bit* sta ln* lda buf+9* sta ln+1 ldx buf+16+288( stx stc+1 sty stc+2 lda out ;LLN HLN koniec danych sta ind+1 adc buf+5 sta hln+1* init licznik LIC lda #$ff sta lic*--(---------lop jsr gbit ;0 - unpack bcs dp_ofs ;1 - match_len, ofsetdp_unp equ *dep320 lda #0 tay jsr gbit bcs *+13 lda adh0+320,y bne *-9 lda adl0+320,y jmp j1 lda adh1+320,y bne *-20 lda adl1+320,yj1 ldy #0 sta (ind),y inc (ind bne *+4 inc ind+1tst lda ind+1hln cmp #0 bne lop lda indlln cmp #0 bcc lopexit equ * ; koniec dekompresji rtsdp_ofs equ *dep64 lda #0 tay jsr gbit bcs *+13 lda adh0+64,y bne *-9 lda adl0+64,y jmp j2 lda adh1+64,y bn(e *-20 lda adl1+64,yj2 clc ;OFS=OFS+2 adc #1 ;zamiast 'adc #2' sta ofs+1 lda ind ;IND=IND-OFS sta _adr+1* secofs sbc #0 ;CLC ustawione sta adr+1 ;czyli doda 1 lda ind+1 sta _adr+2 sbc #0 sta adr+2dep0( lda #0 tay jsr gbit bcs *+13 lda adh0,y bne *-9 lda adl0,y jmp j3 lda adh1,y bne *-20 lda adl1,yj3 tay ;LEN=LEN+2 iny ;dla BPL -1 tya sec adc ind sta ind bcc *+4 inc ind+1adr lda $ffff,y_adr sta $ffff,y ;s(ta (ind),y dey bpl adr jmp tst*---------gbit inc lic bne g_ lda #tand sta licstc lda $ffff sta csh inc stc+1 bne *+5 inc stc+2g_ rol csh rts*------------set_hv sta l0 stx l0+1 clc adc <576 sta h0 txa adc >576 sta h0+1 lda( h0 clc adc <576 sta l1 lda h0+1 adc >576 sta l1+1 lda l1 clc adc <576 sta h1 lda l1+1 adc >576 sta h1+1 rts* generowanie kodow* Shannon-Fano*------------------* TRE01 - stare pozycje* TRE02 - dlugosci kodowfano sty mx jsr sort( ldy #0 tyacl sta (l0),y sta (l1),y sta (h0),y sta (h1),y iny cpy mx bne cl sta p ; code sta p+1 sta err ; code increment sta err+1 sta l ; last bit length sta nxt ldy #0 ;tworzymy kod FANOlp lda tre02,y ;if TRE0(2<>0 then SKP beq skp lda p ;P=P+ERR clc adc err sta p lda p+1 adc err+1 sta p+1 ldx tre02,y cpx l beq sp stx l lda lmsk-1,x sta err lda hmsk-1,x sta err+1sp lda p sta tmp lda p+1 sta tmp+1* wstaw do drzewa*-----------(----- lda tre01,y sta val ldx tre02,y sty skp_+1 lda #0 ;next link=0_l1 dex taybit asl tmp rol tmp+1 bcs _1_0 cpx #0 bne _s1 lda val sta (l0),y jmp skp__s1 lda (h0),y bne _l1 inc nxt lda nxt sta (h0),y jmp _l1_1 cpx #0 bn(e _s2 lda val sta (l1),y jmp skp__s2 lda (h1),y bne _l1 inc nxt lda nxt sta (h1),y jmp _l1skp_ ldy #0skp iny cpy mx bne lp rts* SORT sortujemy match_len z HUFL+??* i zapamietujemy stara kolejnosc* wystepowania danych w TRE01* VFAST(*------sort jsr cnibl lda #0 ldy #15c1 sta pom,y dey bpl c1 sta md+1 sta md_+1 tay ; liczymy elementyc2 ldx tre02,y inc pom,x iny cpy mx bne c2 ldx #0 ; pozycje elementowl2_ ldy #0 ; nie posortowanychl2 txa ( ; do tablicy TRE01 cmp tre02,y ; dla celow PCK bne s2md_ sty tre01 inc md_+1s2 iny cpy mx bne l2 inx cpx #16 bne l2_ ldx #0 ; sortujel_ ldy pom,x beq s1md stx tre02 inc md+1 dey bne mds1 inx cpx #16 bne l_ rtscnibl st(a ld_bf+1 ;zamiana na nible stx ld_bf+2 ;do TRE02 ldy #0 ldx #0ld_bf lda $ffff,x pha ;starszy nibel lsr @ lsr @ lsr @ lsr @ sta tre02,y iny pla and #$f ;mlodszy nibel sta tre02,y inx iny cpy mx bne ld_bf( rts*-----lmsk dta l($8000),l($4000),l($2000) dta l($1000),l($800),l($400) dta l($200),l($100),l($80) dta l($40),l($20),l($10) dta l(8),l(4),l(2),l(1)hmsk dta h($8000),h($4000),h($2000) dta h($1000),h($800),h($400) dta h($200),h($100),h($80)( dta h($40),h($20),h($10) dta h(8),h(4),h(2),h(1)ratio brklng dta a(0)lnght dta a(0)($100),l($80) dta l($40),l($20),l($10) dta l(8),l(4),l(2),l(1)hmsk dta h($8000),h($4000),h($2000) dta h($1000),h($800),h($400) dta h($200),h($100),h($80)(^$ )% & ' (  8  G1 @ p@ GQ p@ GѢ pQ!89m% `m&  /2 / @L挥Х` / @Li'$(,% / @L김Ș8e挹L89&`i@ii@ii@i` Ă󅋅oee |ʨ&L接L,L接LĂЇ` ZL6Ă6Ă L`efHJJJJh)Ă`@ @  |ʨ&L接L,RIP1.0 !PT: CM:  PCK1`JM&"0$5Vw 77GəGWwGwxpUffwef vVvp fevi˰iwf yfeg0yh{yw̰zh x   ɺm׫ 4R޻ "+4 y}B` }[XJDžKbȅy}}c:ok/½'8o#`ʲ^V~ {C0X@4@36wFI8&*jj+J>[I>,`\`> sVXEek}'"ATimZ!?c25՟XA$I s-ȗt5>x ^AP lDg곲05>GrrWe~P'Ӊ/ٮ'gi,{8S !ѐFW O?7PaY6PUzMF| [:bb0]жv!cWv]y>],طVpDcrZgWw`B; ,SVE%s8\SGF-;Xѫ-Xlt^.Ѥӫo38ԧ\U9q9&0&}:kv ?qPڶAF"_QVcU+N~-8A@J.{^ 4N,N;| +5V]6]EP\ה,q1[eO$0fKU2^; q/ft3}OU+悵\_A8yYFyN JC>س]bT7aRhOΏp1a㉭=5I_v<2+<}ۤ:pCGWN_:#yOL.%v">TQAQۗ#ͺZ5E6Uԫ,bwFO45iޓ4yT08[gŰj{] ^y$n]oPWV5bSj5#׾7Rag zW1nEF̿SxDsPCҺK8^r0errguE獙GJM[AcJѼdlO(Mq*K5SaPMj&G.")uUKNW,9=p<ߢcGfWp[t h,;]/tc I,4z=Ж -z+SѪWi!_@N"jo +˼VJl|&1h ,Z2?-Z_[S'Rm 5i\q^eiY+V0 nQϖu0Y Oxo,R,-<W 9s:jc>f44 *?J=L5Vz~+5qk^}r~+Q<5꼳zq<ð^,ȏarW-[ȬS׸FrWloCiNuu^{~f7nlMs1^˳4Xk6y;XU6I7 x0;*ڼw-XV0oFw![E0ѩv:nju<Tܣr <$AXlt ݥO+׊kyWs 4uB.ɲZ<5yW]+XNGk{ tp.n;a ޫp~B<x7rt͎\;@8? ki>o6 >ߛ*xig0678vfQR"K]X086r[R\1j{?+W'nS020i^fLޚ͋-q [|&h濓u!C1_ζ uiyA.׊Gc:~w' 6q ͦ zle8[$I~~.ӳ-A Iͮ 2J<+^Kk3F[O?XF*EIn:T04@^E- }3afج6vf`fq+!`>e%ֆ09 ܺj}> K�sFH#1$Ei&8` uy#G!>8F]@&Vف-H#c4a?fy8b2Wb~EH{>پ3ЉsSOIiڽ!5NeE 6Ԋ+E bh% +i'(z X8g>jl?'U`&SK|kWv4SoPI.A14YK0vyvG7!S^DK.T i3/SFPQheAhhj^8ԺiTyS2ѹ#(^wcH0h ʙtvi.Mz4Uw2ҭ~Ts Fu3-n7aThvBٓ{UÂuno֎pCuV)܅σ-ґa5_vD]r-CjċXlkq<Ӫîu6w}0^] |r)lᾡwhoYH0nW݋!@'e8'ҋZ.ŠXj'J4q.˘۪\+n?;Nڄݗ*Pfqe-<]~),8iVǕ̍Vv*3D8;߱厠"j/Ncw0?97.pLیZ${~NG}7xC%q"=.0,GG.\9K+OʠOl|wpQvEQV(o*mIO<_ײFO%CkQ-}}ꚊjE#}YM\Dy tʭ+~A`hj65uuNeAVDj[`v66T(+yp:p\q'.WBuX|E;<@.ָ0|d*6?R,xϛk X1(݇*,MlK-IGt= ͈in,L*BTXGvċ}YBuOfJan<Zm\sZN?ݍ>\၊es*c8U5)_mȶzvP1G^*B:=ӽT5@obdz͛~05]qMwcr&eOV:愪Wpi0 *%;!6sdzf baF` Ulbzڴ7_~2LSsaVWUdn큇D4Ӌ~ wEWg ;-}Җ#5KC75 P8e6v ^۫:Ҿb0j!W(-.鯼wdk9rUR壽 Fc*Jۮ;m n aEEVC@#DdhT0g­/%kS 1yqb꺺߼~qU0z{5#GuW-&#BY3L_=ԙI|h苫tU&lW eUs*CP4xLI.]C ɪrlwMnSz~h7ޫ*6dɋ"l}{o25dƠ}2%7Rrt=YbcV`Ђ Z?5ee ;*>(GhI0{ikd+%[g!#(NW HY8IILX<LnWݬeL[bȝ5Cő 둍e}2ˉپ:H:\g fQ"9'>=6o*Ǟa>@u_׷RϞ"ooP@G"@ܛEow5d낀|}7ع0ʬL2anpVuP > A~(_C)`$bqԙoX+>be!OrL`L\ogilF[.e C2I]~L{q10HFQ() ף-dQXQ"8 ̛Oh5 z"#us!mIs@`虀*^d| mg LYq~BV)*>3YAC `"22jD0}v GTw#]d`>^@, ~k|MEs߭ 1 10B%*g3̒2`13H }:  zIh9dj#P;ƎI?$ YcbӣvhF1ї~~vsgg kd/ "uN֟=Sf+[nZINw;ݥI&&ƴ9ofLNg0FV7rm#+ [k^ccp~\I#uq-YJg3#ߵttB=7;#(vđtJ:cp>-&-OpI$ܝG8_A"C뤅.d/ >飧7đ$`ymO[u T{9\i^Z}uM>­8/"NWl=2SqT?A×Y4l N5s#q9cgXxn^"p PY&ѐcr1v]zW>f7yԧ|Nǁc~F"8a^"]rL|,>f\cm٧ΥTHBdt]V'0߱}TP̵lQBXױXEJHG`bf_},z2cl bp@{k)@~Af^7HAn)+͎:)ꏤ6ߨvGwP#JPݦS{Tyd&}wgxOϔ $,5BxM[#!~Aw;Ѽӡu-1AdݞD|> $J{}Xf#廳~D]~7b|0`S&S}8aO/w?W?&4o_ c=:[u!F0xv]FT0ywht$U-茧ɇ7A*$fb3b?a&t@i]SFs03lkD;FPsTTۋTL4G <'`߱c V!+7 G~B=a0&0:ehш'γP5D(듯ih0+č\l2#s͋E-U8ɁOx!W?UôuP4Fځ"Rz2z Io^Ѧewf"!jI퉯th)&ZsQ-}r)8 <2ZE2Z ysxYj>΅M<Ȫu l%g,Wn7ݣ'.)l"<=0O }5qPf}$͠^W;QcѬO|S~`sekE;ӘLEN#;3:msiZ':nAk#n;LlSPz40$NUL,Z$GW22֐ɝ;fq֫ɄJ&6@!iYOFf U KQ*Mb@N0+0vKP6-N΋T/{R"D#=% n\b8}:OT(Vp`jRBl}w[/r.L>o/B/hmpoӷt3(Z)2϶2pFN[Ož_ 3$ +wqH[QWk=up#>,볉k'lI?$HmX%%we'X{0:WZ v.!ק+d.#ओ޻թQ`,# ,h}҅2;wWl XJ?_BOk!E]ZUc}wHiOФbI 1=Xq1 %FF5NtTa\^s8CrXL;F !B S (BzĂ)Z =PsHǢ[ns7WK GGa8W:B$]dx0l[{ fFB4Ij-؍6B~Gs=1UiyI7ov9.fžp<v~B!|' 7 S>W*{,GUxI2N |:ƙ"qo5_28̀&AzD`ŧP?o+#A@¼N41KaG$}E^ߋHj0D4&Hy#<"Ղ}9'Nu42F|0?ns&R7Bh oe^hy7P-!՞b_l ^G l4ӓy`YxǕ]~($gf Oڻp#CـymbB0 OetB"Hpjco}08"NUחdFщ$H :8DBB3 Mn. :o\񚌊hL %^GЍTc)G3 :ߓQ> _DWaD!th5 ;<㴐Un6]Mf!k^co0? .n&B2@+>q-<7gy&R1.Ѫq&4co1I tےn tpi0ɼysNxV Zk}jwL}ՂPXbw>1+x-ly"'ᅯ7_1 9"P7(yonks x4c4bpu͎(pOjMl&AYA.v0#LWc&8(6q | l,OC4Uo~&󔢠C1 DK{?1mכz(dZaqSމkQ_70+kk`vcFqXeC~$\e]ayq&aB >r87~>`N3&`Z8lGnEE(ú Q䭀H:' +)fX"22UIúeAźT܇)b i@28?8F!Z)=)țc"_ҷX.d4mKDD= fK=0u 6FGbyhR,M#&nh 0y(ddZe5>#c.~rVr s."HcZltELyd$/5-VE&SUyѕ&Dti30dЩ#e~5LH‘k@0LoN"WZIFWeCi@leM*k5=S$m9B h86>">GӘ[)Z4R MAO pEn0 5q{;ccpgϳ9O ~!CU0}Hb/5q4Q,N!H904gC_QqA DReÈi2$X2$D7NG_\Ӡp1R`'a2/0IsƊVu'#*q`*ދ} %KUҭ<׃7wCP$$ǩ'Um8\ -L"`@cN HIɽ HZn=Meyq|i _5&#'pW6,M0k,cJT&jEs=x˦Sq %4/ۉʬGӌC2<9eg"Hr9*gkNrbc|,I3(,WC(L)|/ #5q~ ߙx_r?8Z|srw8*9IWr0 p[is8^215|6J-`*GzLpuW]~\dR0RBlw rS9'&x,E<hҿtNqrpFR-i53M&#C T+׭;5=7**ׯ7?_t(~cy @1yZ?f|o6>F Sa7 :J'v? o&~HOu! Yaf>ӣ~#{acmOx]~\dR0C lda pic ;get absolute adres clc ;of rip data /skip header/mem adc #0 sta rip lda pic+1 adc #0 sta rip+1 lda rip sta c1+1 clc adc <8000 sta c3+1 lda rip+1 sta c1+2 adc >8000 sta c3+2 ldx ad1 stx c2+1 sty c2+2 ldx ad2 stx c4+1 sty c4+2 ldy #0 ldx #32c1 lda $ffff,y ;picture 1c2 sta ad1,yc3 lda $ffff+8000,y ;picture 2c4 sta ad2,y iny bne c1 inc c1+2 inc c2+2 inc c3+2 inc c4+2 dex bne c1 rts*--_conv lda #99 sta line lda ad1 sta x+1 lda ad2 sta y+1 ldy #39exc lda (x),y tax lda (y),y sta (x),y txa sta (y),y dey bpl exc ldy #39 clc lda x adc <80 sta x bcc *+4 inc x+1 clc lda y adc <80 sta y bcc *+4 inc y+1 dec line bpl exc rtsdl dta d'pp',b($4f)adr dta a(ad1) dta d'////////////////' dta d'////////////////' dta d'////////////////' dta d'////////////////' dta d'////////////////' dta d'////////////////' dta d'/////',b($4f)adr2 dta b(0),h(ad1+$1000) dta d'////////////////' dta d'////////////////' dta d'////////////////' dta d'////////////////' dta d'////////////////' dta d'////////////////' dta d'/',b($41),a(dl) org $2e0 dta a(main)//////' dta d'/////',b($4f)adr2 dta b(0),h(ad1+$1000)GHTWcfgBDOS SYSB1QA COMBHQA SETB IRIP ASMBURIP OBJB XRIP2 ASMBdRIP2 OBJBgR BATB@hCOYOTE RIPBR2 BATBDEP_RIP ASMBDEP_RIP OBJB'RAZOR2 RIP