ùúùú¦¦¦¦¦¦¦¦¦¦******************************************************************* * * * [ . Writer . ] * * * * [ . by . ] * * * * [ rebb . instinct ] * * * ******************************************************************* ; howdy coma ; so you've now loaded this source to asm-one's editor ; and discovered to press esc to see this thing ; so i've put sum info about this source after lines ; check them out ( just scroll screen downwards ) ; wherever you see sum info you can change sumthing ; i think i'll documented this one good enoug :) ; so change things like i'll have guided and ; press esc again , press a (+ enter ;) ; if you've done everything right asm-one should print you ; no errors on screen ,remember to change dir on your module name ; i have it like ; incbin "asmone:source/002.TP3" ,as i keep my tracked packed modules ; on my assigned asmone dir ; so if everything went right you can save your source by pressing w ; then you can try your intro by pressing j ; after wathcing your masterpiece (exit with lmb) ; recompile it again with a ; then type wo to save your work at executable ; and that's it art: movem.l d0-a6,-(a7) main: move.l $4,a6 lea dosname,a1 move.l #0,d0 jsr -$0228(a6) move.l d0,dosbase beq.l exit move.l $4,a6 lea gfxname,a1 move.l #0,d0 jsr -$0228(a6) move.l d0,gfxbase beq.l exit move.l $4,a6 lea intuiname,a1 move.l #0,d0 jsr -$0228(a6) move.l d0,intuibase beq.l exit move.l $4,a6 lea diskfontname,a1 move.l #0,d0 jsr -$0228(a6) move.l d0,diskfontbase beq.l exit AvaaFontti: move.l diskfontbase,a6 lea Textattr,a0 jsr -$001e(a6) move.l d0,Fontti beq.l exit main2: AvaaRuutu: move.l intuibase,a6 lea screen,a0 jsr -$00c6(a6) move.l d0,ruutu avaaikkuna: move.l ruutu,ikk lea newwindow,a0 jsr -$00cc(a6) move.l d0,iqu orastport: move.l iqu,a0 move.l 50(a0),rastport oviewport: move.l screen,a0 add.l #44,a0 move.l a0,viewport blaa: move.l gfxbase,a6 move.l rastport,a1 move.l fontti,a0 jsr -$0042(a6) move.l gfxbase,a6 move.w 0,d0 moveq.l #1,d0 move.l rastport,a1 jsr -$00ea(A6) start: move.l gfxbase,a6 move.l #2,d0 move.l rastport,a1 jsr -$0156(a6) move.l gfxbase,a6 move.l 0,d0 move.l rastport,a1 jsr -$0162(a6) move.l gfxbase,a6 move.l rastport,a1 move.l #30,d0 move.l #20,d1 move.l #80,d2 move.l #60,d3 jsr -$0132(a6) loi: BSR EKA_SIVU BSR TOKA_SIVU BSR KOKA_SIVU BSR neljas_sivu BSR viides_sivu bsr kuudes_sivu btst #6,$bfe001 bne.s loi JMP LOPUN_ALKUA weiro: move.l #4,simpe move.l #4,kohde move.l #0,colow move.l #8,hei move.l #136,coloe move.l #30,coloe1 move.l #60,d4 move.l d4,lys move.l #0,kyi move.l #0,hyi play: move.l hyi,d3 move.l coloe1,d4 cmp.l d3,d4 beq.l play1 has2se: move.l hyi,d5 add.l #1,d5 move.l d5,hyi move.l fakki,d3 move.l hei,d4 cmp.l d3,d4 beq.l juppi move.l coloe,d5 add.l #14,d5 move.l d5,coloe move.l kyi,d4 move.l #2,d5 add d4,d5 move.l d5,kyi move.l coloe,d0 move.l lys,d1 jsr sijainti hasw: ;move.l a4,hus move.l hus,d4 move.b colow,d3 add.l d3,d4 move.l d4,a0 move.l #1,d0 jsr print move.l testi,d3 move.l kohde,d4 cmp.l d3,d4 beq.l hidaste move.l dosbase,a6 move.l #1,d1 jsr -$00c6(a6) hidaste: move.b colow,d2 add.b #1,d2 move.b d2,colow btst #6,$bfe001 bne.w play RTS Lopun_alkua: suljeikkuna: move.l intuibase,a6 move.l iqu,a0 jsr -72(a6) suljeruutu: move.l ruutu,a0 move.l intuibase,a6 jsr -$0042(a6) beq.l exit move.l gfxbase,a6 move.l fontti,a1 jsr -$004e(a6) poistu: move.l $4,a6 move.l intuibase,a1 jsr -$019e(a6) move.l $4,a6 move.l diskfontbase,a1 jsr -$019e(a6) move.l $4,a6 move.l gfxbase,a1 jsr -$019e(a6) move.l $4,a6 move.l dosbase,a1 jsr -$019e(a6) exit: movem.l (a7)+,d0-a6 rts ************************************************* * Subroutines: * * * * print location linedraw * * * * Done Here * ************************************************* eka_sivu: lea teksti,a4 move.l a4,hus move.l #0,testi jmp weiro toka_sivu: lea teksti1,a4 move.l a4,hus move.l #0,testi JMP weiro koka_sivu: lea teksti2,a4 move.l a4,hus move.l #0,testi JMP weiro neljas_sivu: lea teksti3,a4 move.l a4,hus move.l #0,testi JMP weiro viides_sivu: lea teksti4,a4 move.l a4,hus move.l #0,testi JMP weiro kuudes_sivu: lea teksti5,a4 move.l a4,hus move.l #0,testi JMP weiro juppi: move.l koe1,d3 move.l #1,d4 cmp.l d3,d4 beq.l vaihda_kyna_taas move.l dosbase,a6 move.l #50,d1 jsr -$00c6(a6) move.l gfxbase,a6 move.l #1,d0 move.l rastport,a1 jsr -$0156(a6) move.l #0,colow move.l #0,fakki move.l #4,testi move.l #2,testi1 add.l #1,koe1 JMP WEIRO print: move.l gfxbase,a6 move.l rastport,a1 jsr -$003c(a6) RTS vaihda_kyna_taas: move.l gfxbase,a6 move.l #2,d0 move.l rastport,a1 jsr -$0156(a6) move.l #0,fakki move.l #0,koe1 RTS sijainti: move.l gfxbase,a6 move.l rastport,a1 jsr -$00f0(a6) RTS play1: move.l lys,d4 move.l #20,d5 add.l d5,d4 move.l d4,lys move.l Fakki,d3 move.l #1,D4 add.l d4,d3 move.l d3,fakki move.l #0,hyi move.l #136,coloe move.l #0,kyi move.l dosbase,a6 move.l #50,d1 jsr -$00c6(a6) jmp play error: rts Screen: dc.w -25,-8,695,280 dc.w 5 dc.b 0,0 dc.w $8000 dc.w $000f dc.l 0 dc.l otsikko dc.l 0,0 newwindow: dc.w 0 dc.w 0 dc.w 695 dc.w 280 dc.b 0,0 dc.l 0,0 dc.l 0,0 dc.l otsikko ikk: dc.l 0 dc.l 0 dc.w 0,0,640,256 dc.w $000f Textattr: dc.l FontinNimi dc.w 8 ; from here you can change ; size of the font ; can be other than on ; fonts: dir ; like you can resize topaz ; font to 4 if you like !!! dc.b 0 dc.b 0 Fontinnimi: dc.b 'pt.font',0 ; type your font name here ; must be on fonts: maarittelyt: fakki: dc.l 0 hei: dc.l 0 kohde: dc.l 0 colow: dc.l 0 kyi1: dc.l 0 kyi: dc.l 0 vari: dc.l 0 vari1: dc.l 0 hyi: dc.l 0 kani: dc.l 0 fontti: dc.l 0 testi: dc.l 0 lys: dc.l 0 thyi: dc.l 0 tys: dc.l 0 kyt: dc.l 0 hus: dc.l 0 rastport: dc.l 0 viewport: dc.l 0 iqu: dc.l 0 dosbase: dc.l 0 diskfontbase: dc.l 0 simpe: dc.l 0 simpe1: dc.l 0 gfxbase: dc.l 0 testi1: dc.l 0 intuibase: dc.l 0 koe1: dc.l 0 ruutu: dc.l 0 eww: dc.l 0 coloe: dc.l 0 coloe1: dc.l 0 dosname: dc.b 'dos.library',0 intuiname: dc.b 'intuition.library',0 diskfontname: dc.b 'diskfont.library',0 gfxname: dc.b 'graphics.library',0 otsikko: dc.b 'tm!c',0 reijo: dc.b 0 teksti: dc.b " Do You Need More Contacts ?? " ; so write your texts dc.b " YOu do ! then write to: " ; between these " " dc.b " Rebb / Instinct " ; don't change their dc.b " Teemu Pohjanlehto " ; distances between dc.b " Tiilitehtaanpk.11as4 " ; each others dc.b " SF-28120 Pori " ; so keep it 30 ascs dc.b " Finland " ; per line .... dc.b " 100% Answer to everyone " teksti1: dc.b " Greetings to " ; you really can't dc.b " " ; display more or less dc.b " Splatterhead ^ Scoopex " ; than 6 pages dc.b " Blaze ^ Endzeit " dc.b " Coma ^ 3LE " ; if you need sumthing dc.b " Punisher ^ Instinct " ; else ,just request dc.b " Hawk ^ Darkage ,Ambrosia " ; about it dc.b " Carp ^ Instinct " teksti2: dc.b " Bucko ^ Void ,Vortex " ; no more than 8 lines dc.b " Trasher ^ Bomb " ; per screen ... dc.b " Icebeat / Mellow Chips " ; so you are forced dc.b " Digger / Iris " ; to use font big dc.b " DechTech / Avance ^ Tm!c " ; enough dc.b " " dc.b " and to Forgotten " dc.b " Ones " teksti3: dc.b " Finally my Writer " ; remember to put dc.b " Works Fully AFter " ; space on empty dc.b " MAny ,Many Hours " ; line or asc . dc.b " Of Pure Metal Coding :) " ; otherwise the dc.b " You Know " ; word counter dc.b " " ; go mad and show dc.b " Small Credits Cuming " ; more than 30 ascs dc.b " Next " ; on each line teksti4: dc.b " ASM-ONE Code By " dc.b " Rebb / Itc " dc.b " " dc.b " PTR Tune By " dc.b " Rebb / Itc " dc.b " " dc.b " FONTS Used " dc.b " EUROCHART BIG " teksti5: dc.b " " dc.b " Text Restarting " dc.b " " dc.b " " dc.b " " dc.b " " dc.b " BYE , BYE FOLKS " dc.b " "