MV - CPCEMU Disk-File Disk-Info *Track-Info  NMESSAGESSM> MESSAGESAS MESSAGESBINV MESSAGESDAT !"#$%MESSAGESDAT&'()*+,-./012345MESSAGESDAT6789:;<=>?@ABCDEMESSAGESDATFGHIJKLMNOPQRSTUMESSAGESDATVWXYZ[\]^_`abcdeMESSAGESDATfghijklmnopqrstuMESSAGESDATvwxyz{|}~MESSAGESDATMESSAGESDATMESSAGESDAT p; ***** MESSAGES by THE JOKER ***** ; Assemblerlisting to study (--- please do not change anything !!! ---) ; to use with MAXAM --------------------------------- ; Anfang - &5B12 ; AnfangSound - &1000 (&4000) ; AnfangGrafix - &4B71 org &5b12,&52b1 firsttrack equ 5 firstsector equ &c1 ;sound von &4000 an &1000 vorverlegen ld hl,&4000 ld de,&1000 ld bc,&b72 ldir call &1000 ld a,2 call &bc0e ; mode 2 ld hl,scrolltext ld (textadr),hl call &b906 ld de,char ld hl,&3800 ld bc,&800 ldir call &b909 call lesen ld a,(buffer) ld (platz2),a cp 255 ; kein platz mehr fuer neue messages jp z,haupt ; dann zum Hauptprogramm ld h,0 ld l,a ld bc,vs1 call decstr ld a,(buffer+1) ld h,0 ld l,a ld bc,vs2 call decstr ld bc,scrolltext2-scrolltext loopscroll push bc call scroll_1 call scroll_2 call &bd19 pop bc dec bc ld a,b or c jr nz,loopscroll ld de,511 ; ziffern-ausgabe call &bb06 cp 13 ; enter ? jp z,haupt ld hl,buffer push hl push de jp sprungweiter nextchar push hl push de ld hl,platz ld (textadr),hl ld (platz),a call &bd19 call scroll_1 call scroll_2 call &bb06 sprungweiter pop de pop hl ld (hl),a inc hl cp 13 jp z,next_schritt dec de ld b,a ld a,d or e jp z,chr_13 ld a,b push af push hl push de pop hl ld bc,platz4 push de call decstr pop de ld hl,&2010 call &bb75 ld b,5 ld hl,platz4 next_ziffer ld a,(hl) inc hl call &bb5a djnz next_ziffer pop hl pop af jp nextchar chr_13 ld (hl),13 next_schritt ld a,(platz2) ld b,a inc b wiederholen call next_sector djnz wiederholen call schreiben ld hl,sectornr ld (hl),firstsector ld hl,tracknr ld (hl),firsttrack call lesen ld hl,scrolltext2 ld (textadr),hl ld bc,scrolltext3-scrolltext2 loopscroll2 push bc call scroll_1 call scroll_2 call &bd19 pop bc dec bc ld a,b or c jr nz,loopscroll2 ld hl,buffer+1 ld b,(hl) push bc jp sprung next_char2 cp 13 ; enter ? jp z,erneuern ld hl,platz ld (textadr),hl ld (platz),a xor b ld b,a push bc call &bd19 call scroll_1 call scroll_2 sprung call &bb06 pop bc jp next_char2 erneuern ld hl,buffer inc (hl) inc hl ld (hl),b call schreiben haupt ld a,firstsector ld (sectornr),a ld a,firsttrack ld (tracknr),a call next_sector call lesen ld hl,buffer ld (textadr),hl ld a,0 call &bc0e ; set mode 0 call show call textart ld a,(6) cp 128 ; 464 ? jp nz,unterschied ld hl,unterschied inc hl ld (hl),&39 unterschied ld hl,&b941 ld (hl),&c9 ;hauptprogTrack-Info  Nramm endlos call &bd19 call interrupt jp endlos rasteradr db 84,68,85,92,88,93,76,69,77,86,70,87,94,64,95,78,71,79,82,66,83,90 db 89,91,74,67,75,75,67,74,91,89,90,83,66,82,79,71,78,95,64,94,87,70,86,77,69 db 76,93,88,92,85,68,84,84 ink_tab db 84,68,92,93,69,86,87,64,78,79,82,83,89,74,75 rasteradr2 db 50,50,50,50,50,50,50,50,50,50,50,50,50,142 db 142,142,142,142,142,142,142,142,142,142,142,53,53,53 db 53,142,142,142,142,142,142,142,142,142,142,142,142,142,53,53 db 53,142,142,142 ;ink-scroll interrupt call scroll_1 ; scroll teil 1 ld b,&7f ld hl,ink_tab ld d,15 ld c,1 next_ink ld a,(hl) out (c),c out (c),a inc c inc hl dec d jp nz,next_ink ;***** raster ld b,1 warte1 djnz warte1 nop di ld hl,rasteradr ld b,55 ; anzahl next_raster push bc ld b,6 verzoegerung2 djnz verzoegerung2 nop nop nop ld bc,&7f10 ld a,(hl) inc hl out (c),c out (c),a ld c,0 out (c),c out (c),a pop bc djnz next_raster ei ;***** new colours new_colours ld b,7 ld d,1 ld hl,farben next_farbe push bc ld b,&7f ld a,(hl) inc hl out (c),d out (c),a inc d pop bc djnz next_farbe ; ***** schwabbler ld bc,120 warte2 dec bc ld a,b or c jp nz,warte2 ld hl,rasteradr2 ld b,48 ; anzahl next_raster2 push bc ld b,8 verzoegerung3 djnz verzoegerung3 ld bc,&bc03 ld a,(hl) inc hl out (c),c ld b,&bd out (c),a pop bc djnz next_raster2 ld hl,rasteradr2 push hl pop de inc hl ld a,(de) ld bc,46 ldir dec hl ld (hl),a ;****** ende schwabbler call &1003 ; sound_routine mode_2_rasterscroll ld b,&7f ld a,%10000010 out (c),a ; mode 2 exx push bc exx pop bc ld a,c and %11111100 or 2 ld c,a ld b,&7f push bc exx pop bc exx ld bc,&7f01 ld a,75 out (c),c out (c),a ld hl,rasteradr ld a,(hl) push hl pop de inc hl ld bc,53 ldir dec hl ld (hl),a ;***** scroll ***** call scroll_2 ;inks scrollen ld de,ink_tab push de pop hl inc hl ld a,(de) ld bc,14 ldir dec hl ld (hl),a ;***** ld bc,400 loopwarte dec bc ld a,b or c jp nz,loopwarte ld b,&7f ld a,%10000000 out (c),a ; mode 0 exx push bc exx pop bc ld a,c and %11111100 ld c,a ld b,&7f push bc exx pop bc exx ; alter mode geloescht ret ;textart aussuchen textart call &b906 ld de,char ld hl,&3800 ld bc,&800 ldir call &b909 ld hl,platz3 nicht_in_ordnung ld a,r cp (hl) jp nz,in_ordnung jp nicht_in_ordnung in_ordnung ld (hl),a rra call c,duenn rra call c,fett rra call c,kursiv rra call c,unterstrichen ret duenn push af ld hl,char ld c,255 dnext1 ld b,8 dnext2 ld a,(hl) srl a and (hl) ld (hl),a inc hl djnz dnext2 dec c jr nz,dnext1 pop af ret fett push af ld hl,char ld c,255 fnext1 ld b,8 fnext2 ld a,(hl) srl a or (hl) ld (hl),a inc hl djnz fnext2 dec c jr nz,fnext1 pop af ret kursiv ld hl,char ld b,255 knext srl (hl) srl (hl) inc hl srl (hl) inc hl srl (hl) inc hl inc hl inc hl sla (hl) inc hl sla (hl) inc hl sla (hl) sla (hl) inc hl djnz knext ret unterstrichen ld hl,char ld b,255 ld de,8 dec hl unext add hl,de ld (hl),&ff djnz unext ret scroll_1 ld b,8 ; scroll teil 1 ld hl,&c731 ldirlp push bc push hl push hl pop de dec de ld bc,&4f ldir pop hl ld de,&800 add hl,de pop bc djnz ldirlp ret scroll_2 ld hl,(textadr) ; scroll teil 2 ld a,(hl) inc hl cp 13 ; end-byte bei message call z,rout ld (textadr),hl or a ret z ld l,a ld h,0 add hl,hl ; *8 add hl,hl add hl,hl ld de,char ex de,hl add hl,de ex de,hl ld hl,&c731+78 ld b,8 nextzeile ld a,(de) ld (hl),a inc de push de ld de,&800 add hl,de pop de djnz nextzeile ret decstr ld de,10000 call subtst ld de,1000 call subtst ld de,100 call subtst ld de,10 call subtst ld de,1 subtst ld a,47 and a subcnt sbc hl,de inc a jr nc,subcnt add hl,de ld (bc),a inc bc ret lesen ld e,0 ld hl,tracknr ld d,(hl) inc hl ld c,(hl) ld hl,buffer rst &18 dw lesenadr ret schreiben ld e,0 ld hl,tracknr ld d,(hl) inc hl ld c,(hl) ld hl,buffer rst &18 dw schreibenadr ret next_sector ld hl,sectornr inc (hl) ld a,(hl) cp &ca ret nz ld (hl),&c1 dec hl inc (hl) ret tracknr db firsttrack sectornr db firstsector lesenadr dw &c666 db 7 schreibenadr dw &c64e db 7 rout call textart call next_sector call lesen ld hl,buffer ld a,(hl) cp &e5 jp nz,kein_ende ld hl,rout ld (hl),&c3 ld hl,vector ld (rout+1),hl vector ld Track-Info  Nhl,scrolltext3 kein_ende ld a,32 ret show ld de,&c000 ld hl,&4b71 show2 ld b,(hl) inc hl ld a,(hl) inc hl or a ret z push af push bc pop af pop bc show1 ld (de),a inc de djnz show1 jp show2 textadr dw scrolltext scrolltext defm "This is JOKER's MESSAGES vs." vs1 defm "------" vs2 defm "-----. You have now the possibility to enter a message. " defm "If you don't want to write a message, then press 'ENTER'. So please " defm "press now 'ENTER' or write your message >" scrolltext2 defm "------- Please enter now your name for the new " defm "version number >" scrolltext3 defm "THIS IS THE END !!! " db 13 farben db 68,85,93,76,69,78,71 platz ds 1 platz2 ds 1 platz3 db 0 platz4 ds 5 char ds &800 buffer ds 512 to use with MAis is JOKER's MESSAGES vs." vs1 defm "------" vs2 defm "-----. You have now the possibility to enter a message. " defm "If you don't want to write a message, then press 'ENTER'. So please " defm "press now 'ENTER' or write your message >" scrolltext2 MESSAGESBASpin",@ [8:*************** MESSAGES by JOKER ***************** % "MESSAGES by JOKER (9.9.1991)' @ "messages.bin",@ [8..MESSAGESBIN@V*V*s 2"@2"OO!# !_!2L>^#V#6ppsr^#V6psr = <22" $:">2!5 F!_J!J!J!6!_""2*!"$2+!"&2,>2(!. ^QI>yIYyI+MC?QI>yIYyI͵|Rw\~ O8!ww\!~ /w>wtppw w^2LWwwwH>p96@36-'pT5 Pp^VwF(2f ~w~w~w~wrs~_0458D 8$8'0O! N u u t t  2݆Gn f ~8n f ~#u t !0_^#Vnu(HgF }~(A m ݖ0 ݆8xw8_z0Ơ8#0ywQ(!FN y(nf utpF( >2>/>8 :2>!)ݦ w~?|@Dp,X |X8{eQ>, ~wpkd^YTOKGB?;852/,*'%#!!$'*,.024       )_<SfSt   #5#8<SfStg  #5  #8;;KK;;KKQ;;;;d;;;d;j;pv|v   66  66HZZ    d   d   6H  6Hll~ ll~135365686568651〇3131013568:;683"')*,./.'./3568503./.〇:958356*.340/,/..36:<7858705140),)%(%(),*',.33.358.65.356.535.156.53.135.3133.35;.:8.35:.865.15;.:8.158.6581*158*656*169*8689;/4;!+_")_U`!8 ͼ^:Uh2N`7\&oG_͕^:Vh&oM_͕^Q^i^ x  7\!UhTrack-Info  NÜ[!M`")_2M`Q^i^w# [Gz[xP`͕^! u!P`~#ZÅ[6 :N`G^^!^6!^6ͼ^!_")_?Q^i^ x !VhF'\ .\!M`")_2M`GQ^i^ \!Uh4#p^>2^>2^^ͼ^!Uh")_>_]:f\!f\#69!A6\k\TDU\X]LEMVFW^@_NGORBSZY[JCKKCJ[YZSBROGN_@^WFVMEL]X\UDTTTD\]EVW@NORSYJK22222222222225555555Q^!\~Iy #\!t\7~#IyIy!F`~#Qyx x>]!\0~#Iy!\#.+w>yyO>KIy!t\~#5+wi^\#+w x®]>yyOU`!8 !O`_]]w] ^"^B^!U`~?w# !U`~?w# !U`>>#>#>###&#&#&&#!U`+6!1O*)_~# ^")_o&)))U`!w'Ͱ^Ͱ^dͰ^ Ͱ^>/R<0!^V#N!Uh^!^V#N!Uh^!^4~6+4fN]^ͼ^!Uh~_!^6! _"^!1`> !qKF#~#_+_This is JOKER's MESSAGES vs.-----------. You have now the possibility to enter a message. If you don't want to write a message, then press 'ENTER'. So please press now 'ENTER' or write your message >------- Please enter now your name for the new version number >THIS IS THE END !!! DU]LENG kkkkkkkITrack-Info  NHy ! Here is the JOKER speaking ! Today is the 09.09.1991 and I have finished this piece of software some minutes ago. WARNING ! If you want to copy this, than you have to copy the whole side with FAST-COPY or so. If you want to write a message, than don't forget your name and the date. The "MESSAGES" has after than a new version-number! I hope you will write a lot of messages ! So, enjoy it !!! >>> THE JOKER <<< Hy, this is the second message of JOKER ! I want to greet the following freax : CYAFT, K-OS, Pyrannia, Incognito V, Red Storm, Humanist, Crown and TBD. Further Greetinx are going to : Logon System, Thriller and to all other demo-writers for their hard work, Black Mission, X-Or, Spanish Hacker and to all other crackers for their hard work, too. Special greetinx are going to Red Storm for the sound. THANX !!! And hello you, greetings are going to you, too, if you write a message !!!! So, this is the last messages from THE JOKER. I hope, that this scroller will be the longest scrolltext ever seen on AMSTRAD CPC. I have only a greeny screeny, so I don't know, how the colours will be in the colourful world. The assemblerlisting of this proggy is in the file "messages.asm". And now, THE LARCHE ! (Have you seen Monty Pithon's Flying Circus ? ) So, now you have to continue to write a scrolltext !!! Bye, the JOKER Hello Joker! Hi, JO K E R !!..... Many thanks for your disk with "MESSAGES"! Witzig, witzig, im neuen Rundc#$% "Rundschlag 4.0" steht die Bitte an Dich, uns doch mal die "MESSAGES" zu schicken! Witzig , was ?? *** Kannst Du Gedanken lesen ?? .............. Ich mache hier laengere Pausen, weil mir (und uns allen) Deine Scrolltexte etwas zu schnell laufen ! Aber, so ist das eben, wenn man langsam M a r a b u - C r i t t e r s o a p - H i ro y u k i u. BIOS of H J T : Hi J O K E R !! HI < CPC - O d i e !> ****** Deine Scorlls Scrolls sind uns viel zu schnell -------------- deswegen die langen Zwi schen raueme ! Wie kann man einen zweiten Text schreiben ? fragt M a r a b u ! C r i tt e r s o a p d a n k t fuer d e n Brief ! Schlu H i r o y u k i of H J T : Hi, Joker ! H i r o y u k i heisst : Weisser Schneee eeeeee ! Den Namen habe ich aus einem japanischen Ninja / Kung Fu - Film * * * * * * * * * * * * * * * * .......... Marabu greetings ^^^^ Marabu greetings to  J O K E R to  H e x e n m e i s t e r to Olpitec to OAS O A S O m e g a S o f t<<<<< to >>>> Koga Miyata //// K-OS /// Thriller,WEEE  M A R A B U greetings]]]]] M A R A B U greetings to Axel Meyn ````` Philip Koeltzsch ? Peter Egginger    C G A  Cheopspyramide  ! ! D a S i l v a ! ! D S C ]]][[[ N A N D O O R {{{}}} M i k e B e h r e n d t |||@@@ Frank Meurer +++;;; ||| A M O ||| B l a c k b i r d ::::: Christoph D u e s m a n n ::: A x e l ,,,, Werner ,,,, Kalle ,,,     M A R A B U / B I O S d a s L E T Z T E : " M E S S A G E S " ist ein wirklich huebsches Programmm, huebsches Programmm , huebsches Programmm * * * * * Aber der S c r o l l laeuft viel zu schnell, viel zu schnell, viel zu schnell ***** Sonst Klasse ! A b e r w i e k a n n i c h .>.> Messages von an de/falsch/ wie kann ich Messages von Deinen anderen CPC- Freunden laden ??? Ciao 1 ! E N D E Track-Info  N12344455555kkkkkkaaaaaaaaaaasaassdfd timur 1223 lkgfsd ahjkslhjd akjslhdkjsldkjlhgfsdkjlhsd Track-Info  NTrack-Info  NTrack-Info  N         Track-Info  N         Track-Info  N         Track-Info  N         Track-Info  N          I want to greet the following freax : CYAFT, K-OS, Pyrannia, Incognito V, Red Storm, Humanist, Crown and TBD. Further Greetinx are going to : Logon System, Thriller and to all other demo-writers for their hard work, Black Mission, X-Or, Spanish Hacker and to all other crackers for their hard work, too. Special greetinx are going to Red Storm for the sound. THANX !!! And hello you, greetings are going to you, too, if you write a message !!!! Track-Info  NTrack-Info  NTrack-Info  NTrack-Info  NTrack-Info  NTrack-Info  NTrack-Info  NTrack-Info  NTrack-Info  NTrack-Info  NTrack-Info  NTrack-Info  NTrack-Info  NTrack-Info  NTrack-Info  NTrack-Info  NTrack-Info  NTrack-Info  NTrack-Info  N         Track-Info ! N!!!!!!!!!Track-Info " N"""""""""Track-Info # N#########Track-Info $ N$$$$$$$$$Track-Info % N%%%%%%%%%Track-Info & N&&&&&&&&&Track-Info ' N'''''''''Track-Info ( N(((((((((Track-Info ) N)))))))))