Т > Map Т Map out JSW rooms Т 25-07-97 JGH: 0.01 (1Т 29-07-97 JGH: 0.20 Will also do single room 2: <:К&84:чbuf%256,Obj%513,Sprite%8,Icon%32:Рassem:room%=-1 FIЯ"JSW Mapping Program"'"1: Small Map"'"2: Large Map"'"3: Single room" PУA$=Ў:Щї"123",A$):Я'A$' Z3Я"Print out? (Y/N)";:УP$=Ў:Щї"YyNn",P$):Я" "P$' dГP$="Y"└P$="y":P$="Y" nХ"Rom: "rom%:Гrom%=0:rom%=4 x Рcopy(&A3FF,Obj%,513,rom%+1) ┌!Х"Start room: "b%:Гb%=0:b%=60 ▄ГA$="1":Рsmall:Ю √ГA$="2":К&80:Рlarge:Ю ═ ГA$="3":Рroom(b%,0,0):A%=╔:Ы ╙Ю Є: ЎщРsmall хш:x%=0:y%=576 р: эУ Фmiddle%=b%:x0%=x%:y0%=y% П У:here%=b%:Рmap(here%,x%,y%) З5b%=buf%?235:y%=y%+64:Щb%=here% └ (b%=0 ─ here%>2) b%=middle%:y%=y0% У:here%=b%:Рmap(here%,x%,y%) 5b%=buf%?236:y%=y%-64:Щb%=here% └ (b%=0 ─ here%>2) "-here%=middle%:y%=y0%:x%=x%+128:Рrd(here%) , Гx%>&4FF:x%=0:y0%=128:y%=128 6,b%=buf%?234:Щb%=here% └ (b%=0 ─ here%>2) @ГP$="Y":Рdump(32) JА T: ^щРassem:чmc%50:Цa%=0╦1 hAP%=mc%:[OPT a%*2:\ &70/1=>src, &72/3=>dst, &74/5=len, &76=rom r"LDA &F4:PHA:LDA &76:JSR SetRom | LDY #0:LDA &75:BEQ ZeroPages ├ .loop ░(LDA (&70),Y:STA (&72),Y:INY:BNE loop $INC &71:INC &73:DEC &75:BNE loop є.ZeroPages ўLDA &74:BEQ ZeroBytes ╦.ZeroPageLp бLDA (&70),Y:STA (&72),Y:INY лDEC &74:BNE ZeroPageLp ж.ZeroBytes ЮPLA Й.SetRom ТSTA &F4:STA &FE30:RTS Ч]М:А : щРmap(r%,x%,y%):Рrd(r%) "Цz%=0 ╦ 127:b%=buf%?z%:Цa%=0╦3 &0Г(b%─&C0):П69,x%+(a%+(z%─7)*4)*4,y%-(z%│8)*4 0b%=(b%─&3F)*4:М:М :4Цz%=0 ╦ 1:cx%=buf%!(215+z%*4):n%=buf%?(217+z%*4) D1d%=buf%?(214+z%*4):cy%=(cx%│32)─15:cx%=cx%─31 NIГn%:Цa%=0╦n%-1:П69,x%+(cx%+((d%└(1-z%))*2-1)*a%)*4,y%-(cy%-a%*z%)*4:М XМ:А b: lщРrd(r%):Гr%=room%:А v0Рcopy(&8000+256*r%,buf%,256,rom%):room%=r%:А ─: ┼щРcopy(Src%,Dst%,Len%,Rom%) ■2!&70=Src%:!&72=Dst%:!&74=Len%:?&76=Rom%:жmc%:А ·: ╗щРlarge ╡ О 23,138,16,0,16,0,16,0,16,0 ╪,О 23,139,&3C,&42,&99,&A1,&A1,&99,&42,&3C ф: пУ:Рup:top%=here%:b%=here% зУ:here%=b%:О26,12 Д]Рroom(here%,0,0):b%=buf%?234:Гb%<>here%:Рroom(b%,32,0):Гbuf%?234<>b%:Рroom(buf%?234,0,16) НГP$="Y":Рdump(17) Ь7Рrd(here%):b%=buf%?236:Щb%=here% └ (b%=0 ─ here%>2) ГP$="Y":О2:Я''':О3 b%=top%:У 4here%=b%:Рrd(here%):b%=buf%?236:Щbuf%?234<>here% ;b%=buf%?234:Рrd(b%):b%=buf%?234:Рrd(b%):b%=buf%?234:Рup * Рrd(here%):b%=buf%?235:Щb%=0 4: >А H: R;щРup:У:here%=b%:Рrd(here%):b%=buf%?235:Щb%=here% └ b%<2 \А f: p2щРroom(r%,x%,y%):О28,x%,y%+15,x%+32,y%:Рrd(r%) zРDisp:А └: ▌%щРDisp:ЦA%=0╦7:О23,128+A%:ЦB%=0╦7 ≤(Оbuf%?(161+A%*9+B%-1*(A%=7)):М:М:О30 ╒;ЦA%=0╦127:B%=buf%?A%:ЦC%=0╦3:О128+(B%│64):B%=(B%*4)─&FF ╛М:Г(A%─7)=7 ─ A%<>127:Я І М:ЦA%=0╦1 ю@Рslope(A%,buf%?(214+4*A%),buf%!(215+4*A%),buf%?(217+4*A%)):М йGРObjects:A%=240:УГbuf%?A%<>255:РSprite(buf%?A%,buf%?(A%+1)):A%=A%+2 т#Щbuf%?A%=255:РPrN(buf%+128,╧):А ч: Х*щРslope(Type%,Dir%,Ad%,Num%):ГNum%<1:А Р"sx%=Ad%─31:sy%=(Ad%─&1E0)│32:У ЭFЯ┼sx%,sy%);Ґ(133-A%);:sx%=sx%+2*((Dir%└(1-Type%)))-1:sy%=sy%-Type% 2Num%=Num%-1:ЩNum%<1 └ sx%>31 └ sx%<0 └ sy%<0:А : 4щРPrN(A%,F%):О26,31,32+32*(A$="3"),16+x%│32+y%│8 $!ЦC%=0╦31:B%=A%?C%:ГB%>32:F%=╧ .1ГF%:ГB%>31 ─ B%<128:ОB%-12*(B%=127) ▀ ГF%:О32 8М:А B: L*щРObjects:Num%=?Obj%:Ц A%=Num%+1 ╦ 256 VTГ((Obj%?A%)─63)=room%:Я┼(Obj%?(A%+256))─31,Obj%?(A%+256)│32-8*(Obj%?A%>127))"┤"; `М:А j: t<щРSprite(Num%,Psn%):Рcopy(&A000+8*Num%,Sprite%,8,rom%+1) ~,Sprite%?2=Psn%:Num%=?Sprite%─7:ГNum%=0:А ┬&ГNum%=3:Цz%=0╦10:Я┼16,z%)Ґ138;:М:А ▓ГNum%=4:А:Т Arrows °@ic%=(((Sprite%?1 ─ Sprite%?0)└ Sprite%?2)─&E0)+256*Sprite%?5 і"Я┼Sprite%?2 ─31,Sprite%?3│16); ╟Рcopy(ic%,Icon%,32,rom%+1) ╨<Цz%=0╦3:О23,140+z%:Цw%=0╦7:ОIcon%?(w%*2+(z%─1)+8*(z%─2)) д!М:М:О140,141,8,8,10,142,143:А н: ь(щРdump(Lines%):Lines%=16:num%=768:О2 БО1,27,1,65,1,8 Л-Ц y%=1023 ╦ 1024-32*Lines% ┬ -32:*FX229,1 Ж!О 1,27,1,76,1,num%,1,num%│256 Ц x%=0 ╦ 1535 ┬ 2:byte%=0 Ц pixel%=0 ╦ 7 7byte%=byte%*2+╟(x%─&3FF),y%-pixel%*4+512*(x%>&3FF)) М:О 1,byte%:М (О 1,10,1,13:М:*FX229 2Г√(-1):Г╔=27:*FX125 <*FX229,1 F!О 1,27,1,76,1,num%,1,num%│256 PЦ x%=0 ╦ 1535 ┬ 2:byte%=0 ZЦ pixel%=0 ╦ 7 d@byte%=byte%*2+╟&200+(x%─&1FF),511-pixel%*4-((x%─&FFE00)│16)) nМ:О 1,byte%:М:*FX229 x%О 1,10,1,13,3:Г√(-1):Г╔=27:*FX125 ┌А Ъ