R/'01!/L$pppppppppppBA' 7!2.).' #ettedisquettecontientdesfichierssourcesenassembleur!4!2)#ependant ellenesedetruirapasimmediatement6otremission sivouslaccep ez consisteaumoinsenlassemblageetlelancementdesprogs0100 ;-------------------------------0110 ; CE PROGRAMME VA CONFIGURER0120 ; UNE DISQUETTE DE FACON A CE0130 ; QU'ELLE AFF}ICHE UN MESSAGE0140 ; D'INFORMATION LORSQU'ELLE0150 ; SERA BOOTEE.0160 ; * Pierre FALLER 1987 *0170 ;------------}-------------------0180 BOOTSEC=$80000190 SCREEN=$80800200 BUF=$81800210 *=$79800220 START0230 LDA #0 ; EFFACEM}ENT DU0240 TAX ; FUTUR ECRAN0250 STA SCREEN,X ; PRESENTANT0260 INX ; LA DISQUETTE0270 BNE *-40280 } JMP MENU0290 ;-------------------------------0300 ; SOUS PROGRAMMES0310 ;-------------------------------0320 CATA }LOG0330 LDX #16 ; CE SOUS PROG.0340 LDA #12 ; AFFICHE UN0350 STA 834,X ; CATALOGUE.0360 JSR 58454 ; < }== EQUIVALENT A0370 LDA #DEV&255 ; CLOSE #10380 STA 836,X0390 LDA #DEV/2560400 STA 837,X0410 LDA #400420 STA 840, }X0430 LDA #00440 STA 841,X0450 LDA #60460 STA 842,X0470 LDA #30480 STA 834,X0490 JSR 58454 ; <== EQUIVALENT A0 }500 BPL *+5 ; OPEN #1,6,0,"D:*.*"0510 JMP ERROR0520 LDA #190530 STA 8400540 STA 840,X0550 LDA #BUF&2550560 STA } 8360570 STA 836,X0580 LDA #BUF/2560590 STA 8370600 STA 837,X0610 LDA #00620 STA 8410630 STA 841,X0640 LDA #5}0650 STA 834,X0660 LDA #90670 STA 8340680 LOOP0690 LDX #160700 JSR 58454 ; <== EQUIVALENT A0710 BPL *+5 ; }INPUT #1,A$0720 JMP TEST0730 LDX #00740 JSR 58454 ; <== EQUIVALENT A0750 JMP LOOP ; PRINT A$0760 TEST0770 CPY} #1360780 BEQ FIN0790 JSR 584540800 FIN0810 LDX #160820 LDA #120830 STA 834,X0840 JSR 58454 ; <== EQUIVALENT }A0850 JMP GOCHOICE ; CLOSE #10860 ;-------------------------------0870 CREATE0880 LDA #M0&2550890 LDY #M0/2560900 J}SR PRINT0910 LDA #M1&2550920 LDY #M1/2560930 JSR PRINT0940 LDA #M2&2550950 LDY #M2/2560960 JSR PRINT0970 LDA #1}0980 STA 8410990 LDA #CADRE&2551000 LDY #CADRE/2561010 LDX #1041020 JSR PAUSE1030 JSR INPUT1040 LDA #81050 ST}A 2051060 LDA #01070 SEC1080 SBC #1241090 STA 2031100 LDA 1061110 SBC #21120 STA 2041130 LDX #01140 TRANS11}50 LDY #01160 LDA (203),Y1170 STA SCREEN,X1180 INX1190 INY1200 CPY #321210 BNE *-91220 CLC1230 LDA 2031240 } ADC #401250 STA 2031260 BCC *+41270 INC 2041280 DEC 2051290 BNE TRANS1300 LDA #181310 STA 841320 LDA #21330} STA 851340 JMP CHOICE1350 ;-------------------------------1360 ; PROGRAMME PRINCIPAL1370 ;------------------------}-------1380 MENU1390 LDA #M0&255 ;AFFICHAGE DU1400 LDY #M0/256 ;MENU PRINCIPAL1410 JSR PRINT1420 LDA #M8&2551430 } LDY #M8/2561440 JSR PRINT1450 LDA #M9&2551460 LDY #M9/2561470 JSR PRINT1480 LDA #M10&2551490 LDY #M10/2561500 }JSR PRINT1510 LDA #M11&2551520 LDY #M11/2561530 JSR PRINT1540 CHOICE1550 LDA #M3&2551560 LDY #M3/2561570 JSR PRI}NT1580 JSR INPUT ; CHOIX AU CLAVIER1590 LDA 14081600 CMP #'C' ; ANALYSE DU CHOIX1610 BNE *+51620 JMP CHOOSE ;} ET AIGUILLAGE1630 CMP #'V'1640 BNE *+5 ; VERS LES1650 JMP SEE1660 CMP #'W' ; SOUS PROGS.1670 BNE *+51680 }JMP WRITE1690 CMP #'M'1700 BNE *+51710 JMP CREATE1720 CMP #'F'1730 BNE *+51740 JMP FORMAT1750 CMP #1551760 BN}E *+51770 JMP MENU1780 CMP #'I'1790 BNE *+51800 JMP CATALOG1810 CMP #'G'1820 BNE *+51830 JMP DUP1840 JMP CHOI}CE1850 ;-------------------------------1860 ; ENCORE DES SOUS-PROGS...1870 ;-------------------------------1880 CHOOSE }1890 LDA #M4&2551900 LDY #M4/2561910 JSR PRINT1920 COLOOP1930 LDA 7531940 CMP #3 ; ANALYSE DU1950 BNE *-5 !} ; CLAVIER ...1960 LDA 7641970 CMP #71980 BNE *+51990 JMP COLPLUS2000 CMP #62010 BNE *+52020 JMP COLMOINS2"}030 CMP #142040 BNE *+52050 JMP INKPLUS2060 CMP #152070 BNE *+52080 JMP INKMOINS2090 CMP #122100 BEQ GOCHOICE#}2110 JMP COLOOP2120 GOCHOICE2130 LDA #2552140 STA 7642150 JMP CHOICE2160 COLPLUS2170 INC 7102180 LDA 7102190 S$}TA COLOR1+12200 JSR TEMPO2210 JMP COLOOP2220 INKPLUS2230 INC 7092240 LDA 7092250 STA COLOR2+12260 JSR TEMPO2270%} JMP COLOOP2280 COLMOINS2290 DEC 7102300 LDA 7102310 STA COLOR1+12320 JSR TEMPO2330 JMP COLOOP2340 INKMOINS2350&} DEC 7092360 LDA 7092370 STA COLOR2+12380 JSR TEMPO2390 JMP COLOOP2400 ;-------------------------------2410 SEE24'}20 LDA 560 ; ON CHANGE D'ECRAN2430 STA BUF ; ET ON ADMIRE LE2440 LDA 561 ; BOOT MESSAGE...2450 STA BUF+12(}460 LDA #DL&2552470 STA 5602480 LDA #DL/2562490 STA 5612500 LDA 5592510 STA BUF+22520 LDA #332530 STA 5592540)} JSR INPUT ; L'APPUI DE RETURN2550 LDA BUF ; RETABLIT L'ECRAN2560 STA 560 ; DU MENU ET NOUS2570 LDA BUF+1 *}; RENVOIE AU PRG.2580 STA 5612590 LDA BUF+22600 STA 5592610 JMP GOCHOICE2620 ;-------------------------------2630 W+}RITE2640 LDA #M5&255 ; ICI ON ECRIT LA2650 LDY #M5/256 ; ROUTINE BOOT SUR2660 JSR PRINT ; LA DISQUETTE2670 JSR INPU,}T2680 LDA 14082690 CMP #'Y'2700 BEQ *+52710 JMP CHOICE2720 LDA #12730 STA 769 ; DRIVE No 12740 STA 778 -}; SECTEUR 12750 LDA #02760 STA 7792770 STA 7722780 LDA #1282790 STA 7732800 LDA #80 ; ECRITURE2810 STA 770.}2820 LDA #32830 STA 2052840 WLOOP2850 JSR 58451 ; APPEL ROUTINE2860 BPL *+5 ; I/O SERIE2870 JMP ERROR2880 I/}NC 7782890 LDA 7722900 CLC2910 ADC #1282920 STA 7722930 BCC *+52940 INC 7732950 DEC 2052960 BNE WLOOP2970 J0}MP GOCHOICE2980 ;-------------------------------2990 FORMAT3000 LDX #163010 LDA #123020 STA 834,X3030 JSR 58454 ;1}<== CLOSE #13040 LDA #M5&2553050 LDY #M5/2563060 JSR PRINT3070 JSR INPUT ; ARE YOU SURE?3080 LDA 14083090 CMP #2}'Y'3100 BEQ *+53110 JMP CHOICE3120 LDA #M7&2553130 LDY #M7/2563140 JSR PRINT3150 JSR INPUT ; SINGLE OR DOUBLE33}160 LDA 1408 ; DENSITY3170 CMP #'S'3180 BNE *+73190 LDA #2533200 JMP FIO3210 CMP #'D'3220 BEQ *+53230 JMP G4}OCHOICE3240 LDA #2543250 FIO3260 LDX #16 ; FORMATAGE SOUS3270 STA 834,X ; DOS 2.53280 LDA #DEV&2553290 STA5} 836,X3300 LDA #DEV/2563310 STA 837,X3320 LDA #1283330 STA 840,X3340 LDA #03350 STA 841,X3360 STA 842,X3370 S6}TA 843,X3380 JSR 584543390 BMI *+53400 JMP GOCHOICE3410 JMP ERROR3420 ;-------------------------------3430 DUP34407} LDA #M12&2553450 LDY #M12/2563460 JSR PRINT3470 JSR INPUT ; RETOUR AU DOS?3480 LDA 14083490 CMP #'Y'3500 BEQ8} *+53510 JMP CHOICE3520 LDA #1483530 STA 7103540 LDA #103550 STA 7093560 LDA #123570 STA 7643580 RTS3590 ;--9}-----------------------------3600 ; CES SOUS PROGS. SONT CAPITAUX3610 ; CAR ILS FONT LA MEME CHOSE3620 ; QUE LES COMMANDES:} BASICS D'OU3630 ; ILS TIRENT LEURS NOMS ...3640 ; UN COMMENTAIRE PLUS DETAILLE3650 ; EST INCLUS DANS LE FICHIER3660 ; SO;}URCE "TOOLKIT.ASM"3670 ;-------------------------------3680 PRINT3690 LDX #03700 STA 8363710 STY 8373720 LDA #0373<}0 STA 8413740 LDA #1283750 STA 8403760 LDA #03770 STA 8413780 LDA #93790 STA 8343800 JMP 584543810 PAUSE3820=} STX 8403830 LDX #03840 STA 8363850 STY 8373860 LDA #113870 STA 8343880 JMP 584543890 INPUT3900 LDA #03910 >}STA 8413920 LDA #1283930 STA 8403940 LDA #$803950 STA 8363960 LDA #53970 STA 8373980 STA 8343990 JMP 5845440?}00 ;-------------------------------4010 TEMPO4020 LDY #3 ; BOUCLE DE4030 LDA 20 ; TEMPORISATION4040 CMP 20 @} ; TOUTE BETE ...4050 BEQ *-24060 DEY4070 BNE *-74080 RTS4090 ;-------------------------------4100 ERROR4110 LDA A}#M6&255 ; TRAITEMENT DES4120 LDY #M6/256 ; I/O ERRORS,4130 JSR PRINT ; ON PREVIENT,4140 JMP CHOICE ; SANS PLUS.B}4150 ;-------------------------------4160 ; DONNEES DES DIFFERENTS4170 ; MESSAGES AFFICHES A L'ECRAN4180 ;----------------C}---------------4190 M04200 .BYTE" } *** Titles'Maker *** "4210 .BYTE" (c) 1987 by P.FALTON",15D}54220 M14230 .BYTE"Write the message in the box,",1554240 M24250 .BYTE"Leave it & press ",1554260 M34270 .BYE}TE"Select ITEM or for MENU",1554280 M44290 .BYTE"Color with  MENU with ",1554300 M54310 .BYTE"InseF}rt disk & type 'Y' to comfirm",1554320 M64330 .BYTE"Sorry, I/O error...",1554340 M74350 .BYTE"ingle or ouble densityG}",1554360 M84370 .BYTE " F. Format disk W. Write on disk",1554380 M94390 .BYTE " C. Choose color M. Make message ",H}1554400 M104410 .BYTE " V. View screen I. Index 'D1:*.*'",1554420 M114430 .BYTE " G. Goto DUP",1554440 M124450 .I}BYTE " Type 'Y' to goto DUP",1554460 CADRE4470 .BYTE" ",1554480 .BYTE" | J} |",1554490 .BYTE" | |",1554500 .BYTE" | |K}",1554510 .BYTE" | |",1554520 .BYTE" | |",1554530 .BYTE" L}| |",1554540 .BYTE" | |",1554550 .BYTE" | M} |",1554560 .BYTE" ",1554570 DEV .BYTE"D1:*.*",1554580 ;-----------------N}--------------4590 ; ICI EST STOCKE LE PROGRAMME4600 ; D'AFFICHAGE QUI SERA TRANSFERE4610 ; SUR LA DISQUETTE4620 ;-------O}------------------------4630 *=BOOTSEC4640 .BYTE 0,3,0,128,82,84650 LDA #04660 STA 5594670 COLOR14680 LDA #148469P}0 STA 7104700 COLOR24710 LDA #104720 STA 7094730 LDA #DL&2554740 STA 5604750 LDA #DL/2564760 STA 5614770 LDA Q}#334780 STA 5594790 BOUCLE4800 JMP BOUCLE4810 ;-------------------------------4820 ; DISPLAY LIST DU BOOT MESSAGE4830R} ;-------------------------------4840 DL4850 .BYTE"ppppppppppp",664860 .WORD SCREEN4870 .BYTE 2,2,2,2,2,2,2,654880 .S}WORD DL4890 ;-------------------------------4900 ; VECTEUR DE DEMARRAGE AUTO-4910 ; MATIQUE AU CHARGEMENT.4920 ;---------T}----------------------4930 *=$2E04940 .WORD STARTECTEUR DE DEMARRAGE AUTO-4910 ; MATIQUE AU CHARGEMENT.4920 ;---------60100 ;---------------------------------0110 ; CE PROGRAMME INSTALLE UNE HORLO-0120 ; GE EN INTERRUPTION. L'HEURE SERA0130 V}; TOUJOURS ECRITE A LA MEME ADRES-0140 ; SE ; 40008 OU $9C480150 ; AU MOMENT D'ASSEMBLER, LE CUR-0160 ; DOIT ETRE EN HAUT W}DE L'ECRAN0170 ;---------------------------------0180 TIME=400080190 LCEN=TIME+200200 HCEN=TIME+190210 LSEC=TIME+170220X} HSEC=TIME+160230 LMIN=TIME+140240 HMIN=TIME+130250 LHEU=TIME+110260 HHEU=TIME+100270 PM=$92000280 *=$80000290 JMP DY}EBUT0300 ;---------------------------------0310 ; ICI L'INTERRUPTION ELLE MEME0320 ;---------------------------------0330Z} VBI0340 LDA LCEN0350 CMP #240360 BEQ H10370 INC LCEN0380 INC LCEN0390 JMP OUTHOUR0400 H10410 LDA #160420 ST[}A LCEN0430 LDA HCEN0440 CMP #250450 BEQ H20460 INC HCEN0470 JMP OUTHOUR0480 H20490 LDA #160500 STA HCEN0510 \}LDA LSEC0520 CMP #250530 BEQ H30540 INC LSEC0550 JMP OUTHOUR0560 H30570 LDA #160580 STA LSEC0590 LDA HSEC0600]} CMP #210610 BEQ H40620 INC HSEC0630 JMP OUTHOUR0640 H40650 LDA #160660 STA HSEC0670 LDA LMIN0680 CMP #25069^}0 BEQ H50700 INC LMIN0710 JMP OUTHOUR0720 H50730 LDA #160740 STA LMIN0750 LDA HMIN0760 CMP #210770 BEQ H6078_}0 INC HMIN0790 JMP OUTHOUR0800 H60810 LDA #160820 STA HMIN0830 LDA LHEU0840 CMP #250850 BEQ H70860 INC LHEU0`}870 JMP OUTHOUR0880 H70890 LDA #160900 STA LHEU0910 INC HHEU0920 OUTHOUR0930 JMP $E45F ;FIN, RETOUR AU S.E.0940 ;a}---------------------------------0950 ; PROGRAMME PRINCIPAL0960 ;---------------------------------0970 DEBUT0980 ; b} ɠΠɠӛ0990 ; ڠś1000 ; ҠŠÛ1010 LDY #111020 c} LDA TCOP,Y1030 STA HHEU,Y1040 DEY1050 BPL *-71060 LDX #VBI/256 ; LA ROUTINE S.E1070 LDY #VBI&255 ; RECOIT L'ADRESSd}E1080 LDA #6 ; ET LE TYPE1090 JSR $E45C ; DE NOTRE INTERRUP.1100 BRK ; ɠΠӠɠӛ1110 ; e} ڠŠǛ1120 ; ħӠŠ͛1130 TCOP1140 .BYTE""Ӡɠӛ1110 ; f0100 ;-------------------------------0110 ;EXEMPLE SIMPLE D'UTILISATION DE0120 ;TOOLKIT. AJOUTEZ LE PAR LA COM-0130 ;MANDEg} ENTER #D:TOOLKIT.ASM,M0140 ;-------------------------------0200 *=$80000210 LDA #M1&255 ; LOWBUF M10220 LDY #M1/256 ;h} HIBUF M10230 JSR PRINT ; APPEL DE TOOLKIT0240 LDA #M2&255 ; LOWBUF M20250 LDY #M2/256 ; HIBUF M20260 JSR PRINT i} ; APPEL DE TOOLKIT0270 BRK0280 M1 .BYTE " }VOICI UN EXEMPLE DE ",1550290 M2 .BYTE "L'UTILISATION DE TOOLKIT...",155 {0100 .OPT NOLIST0110 ;SCROLOW=2070120 ;SCROLHI=2060130 ;HPOSPM =2050140 ;FIVCOL >2040150 ;SPEED =2030160 ;YPOSPM =202}8000 ;-------------------------------8010 ; CET ENSEMBLE DE ROUTINE VOUS8020 ; SIMPLIFIE LA GESTION DU CLA-8030 ; VIER ET l}DE L'ECRAN. METTEZ8040 ; LE DANS TOUT VOS PROGRAMMES8050 ; PAR LA FONCTION SUIVANTE;8060 ;------------------------------- m}8070 ; ENTER #D,TOOLKIT.ASM,M8080 ; LE ",M" SIGNIFIANT MELANGER8090 ; LES DEUX FICHIERS8100 ; NE DOIVENT PAS AVO n}IR DES8110 ; C'EST LES DERNIERES LIGNES8120 ; ENTREES QUI COMPTENT.8130 ;-------------------------------8140 ;TOUTE LES R o}OUTINES MARCHENT SUR8150 ;LE CANAL #0 (E: EDITOR)8160 ;ԛ8170 ;LOWBUF DANS A HIBUF DANS Y8180 ;BUF DOIT FINIR PAR RETU p}RN (155)8190 ;QUAND TOUT EST PRET JSR PRINT8200 ;ԛ8210 ;LA ROUTINE ECRIT LE CODE ASCII8220 ;CONTENU DANS A8230 ; q}ś8240 ;LOWBUF DANS A HIBUF DANS Y8250 ;LA LONGUEUR SE MET DANS X8260 ;QUAND TOUT EST PRET JSR PAUSE8270 ;ԛ8280 ;AC r}CEPTE UNE CHAINE PAR LE8290 ;CLAVIER QUI DOIT SE TERMINER8300 ;PAR UN RETOUR CHARIOT (155)8310 ;ELLE EST ENSUITE PLACEE DA s}NS8320 ;$580-&5FF (1408,1535) ELLE SE8330 ;TERMINE TOUJOURS PAR 1558340 ; ACCEPTE UN NOMBRE ENTIER8350 ;DU CLAVIER t}ET LE PLACE EN8360 ;212-213: SI ON TAPE UN SIMPLE8370 ;RETOUR CHARIOT ON RETOURNE8380 ;A L'ADRESSE CHOICE8390 ; IMP u}RIME LE NOMBRE ENTIER8400 ;CONTENU EN 212-213 SANS8410 ;RETOUR CHARIOT8420 ; ECRIT EN L'ALIGNANT LE8430 ;NOMBRE 212 v}-213 SUIVANT A8440 ;SI A CONTIENT 3, LE NOMBRE SERA8450 ;ALIGNE SUR TROIS COLONES.8460 ;POUR FAIRE DES TABLEAUX.8470 ;--- w}----------------------------8480 PRINT8490 LDX #08500 STA 836,X8510 TYA8520 STA 837,X8530 LDA #1288540 STA 840,X x}8550 LDA #08560 STA 841,X8570 LDA #98580 STA 834,X8590 JMP 584548600 ;-------------------------------8610 PAUSE8 y}620 STX 840 ; PRESQUE IDENTIQUE A8630 LDX #0 ; PRINT, MAIS RETOUR8640 STA 836,X ; CHARIOT FACULTATIF8650 TYA8660 z} STA 837,X8670 LDA #08680 STA 841,X8690 LDA #118700 STA 834,X8710 JMP 584548720 ;------------------------------- {}8730 INPUT8740 LDA #2558750 LDX #08760 LDA #1288770 STA 840,X8780 STA 836,X8790 LDA #58800 STA 837,X8810 STA |}834,X8820 LDA #08830 STA 841,X8840 JMP 584548850 ;-------------------------------8860 NINP8870 JSR INPUT8880 LDA }}840,X8890 LDA #1288900 STA 2438910 LDA #58920 STA 2448930 LDA #08940 STA 2428950 JSR $D800;ASCFLP8960 JSR $D9 ~}D2;FLPINT8970 RTS8980 ;-------------------------------8990 NUMPRT9000 JSR $D9AA ;INTFLP9010 LDA #09020 STA 2429030 } LDA #1289040 STA 2439050 LDA #59060 STA 2449070 JSR $D8E6 ;FLPASC9080 LDY #2559090 INY9100 LDA (243),Y9110 }BPL *-39120 AND #1279130 STA (243),Y9140 INY9150 TYA9160 TAX9170 LDA 2439180 LDY 2449190 JMP PAUSE9200 MINIB }UF .BYTE 09210 MINIPRT9220 STA MINIBUF9230 LDA #MINIBUF&2559240 LDY #MINIBUF/2569250 LDX #19260 JMP PAUSE9270 ;- }------------------------------9280 TRECOL9290 LDA #39300 COLCLT9310 STA 182 ; UTILISE 180-1839320 JSR $D9AA ;INTFLP9 }330 LDA #09340 STA 2429350 LDA #1289360 STA 2439370 LDA #59380 STA 2449390 JSR $D8E6 ;FLPASC9400 LDY #2559410 } INY9420 LDA (243),Y9430 BPL *-39440 AND #1279450 STA (243),Y9460 INY9470 STY 1839480 COLTEST9490 LDA 183950 }0 CMP 1829510 BEQ FINCOL9520 LDA 2439530 STA 1809540 LDA 2449550 STA 1819560 INC 1809570 BNE *+49580 INC 181 }9590 LDY #49600 LDA (243),Y9610 STA (180),Y9620 DEY9630 BPL *-59640 INY9650 LDA #489660 STA (243),Y9670 INC } 1839680 JMP COLTEST9690 FINCOL9700 LDX 1839710 LDA 2439720 LDY 2449730 JMP PAUSE #489660 STA (243),Y9670 INC ]0170 ;MYCARX =2010180 ;MUSNOT =1990190 ;MUSVOL =1980200 ;DRUM =1970210 ;COLLISION DETECTOR=1960220 ;COUNT =1950230 };EVIT =1940240 ;FLAG MELODY=1930250 ;FIVCOL >1920260 ;LIVES =1910270 ;FIVCOL >1800280 ;FIVCOL >1810290 *=$90000300} WINDOW=408000310 NEWFONT=$70000320 OLDFONT=573440330 XITVBV=$E4620340 LDY #00350 COPYLOOP0360 LDA PM,Y ;MISE ENP}LACE DES0370 STA $7700,Y ;DIFFERENTES DON-0380 LDA MSG,Y ;NEES, ECRAN, PMS,0390 STA $7900,Y ;JEU DE CARACTERES040}0 LDA EMPTY,Y ;ETC...0410 STA $7A00,Y0420 LDA TROT,Y0430 STA $7B00,Y0440 LDA LIGBLA,Y0450 STA $7C00,Y0460 LDA D}L,Y0470 STA $7800,Y0480 DEY0490 BNE COPYLOOP0500 LDA #00510 STA 5600520 LDA #$780530 STA 5610540 LDA #00550 } STA 2030560 STA 2050570 STA 5590580 STA $780A0590 STA $781A0600 STA $78120610 STA $78230620 STA 1990630 LDA }#10640 STA 1930650 LDA #1770660 STA 1980670 LDA #OLDFONT/2560680 STA 2040690 LDA #NEWFONT/2560700 STA 2060710 } STA 7560720 LDX #30730 LDY #00740 FONTLOOP0750 LDA (203),Y0760 STA (205),Y0770 INY0780 BNE FONTLOOP0790 INC 2}040800 INC 2060810 DEX0820 BPL FONTLOOP0830 LDY #390840 LDA CARAC,Y0850 STA NEWFONT+8,Y0860 DEY0870 BPL *-70}880 ;-------------------------------0890 ;ON REDEMARRE ICI A CHAQUE RESET0900 ;(SI ON DETOURNE LE RESET...)0910 ;---------}----------------------0920 RST0930 LDA #3 ; VALIDATION PMS0940 STA 537750950 LDA #00960 STA 537680970 STA 53761}0980 STA 537640990 STA 537631000 STA 537651010 STA 537671020 STA SCORE1030 STA SCORE+11040 LDA #196 ; COULEURS}1050 STA 7101060 LDA #2341070 STA 7081080 LDA #61090 STA 7111100 LDA #121110 STA 7051120 LDA #71130 STA 207}1140 LDA #791150 STA 2061160 LDY #VBI&255 ;MISE EN PLACE1170 LDX #VBI/256 ;DE LA VBI (PMS,1180 LDA #7 ;MUSIQU}E, DETEC-1190 JSR $E45C ;TION COLLISIONS)1200 JSR EFPM01210 JSR EFPM11220 LDA #DLI&255 ;MISE EN PLACE DLI1230 ST}A 512 ;(GESTION DES DEUX1240 LDA #DLI/256 ;SCROLLS HOR. UN1250 STA 513 ;LENT L'AUTRE1260 LDA #192 ;RAPIDE})1270 STA $D40E1280 LDA #461290 STA 5591300 LDA #11310 STA 6231320 STA 7521330 LDA #1361340 STA 542791350 L}DA #31360 STA 532771370 LDA #31380 STA 532561390 STA 532571400 STA 532581410 STA 532591420 LDA #M5&2551430 LD}Y #M5/2561440 JSR PRINT ;ISSU DU TOOLKIT...1450 LDA #201460 STA 841470 LDA #M4&2551480 LDY #M4/2561490 JSR PRIN}T ;IDEM1500 LDA #M2&2551510 LDY #M2/2561520 JSR PRINT ;IDEM1530 LDA #M3&2551540 LDY #M3/2561550 JSR PRINT ;}IDEM1560 LDA TOP1570 STA 2121580 LDA TOP+11590 STA 2131600 DEC 841610 LDA #331620 STA 851630 JSR FIVCOL ;IDE}M1640 JSR EFPM11650 LDA #01660 STA 1911670 ;-------------------------------1680 ;FIN DES INITS, LE JEU COMMENCE1690 };-------------------------------1700 RESTART1710 LDA #11720 STA 1931730 JSR EFPM11740 JSR TEMPO1750 LDA #1681760 } STA 537611770 STA 537671780 JSR TEMPO1790 LDA 6441800 BNE *-81810 LDA #2481820 STA 2051830 JSR TEMPO1840 LDA} #21850 STA 851860 LDA #201870 STA 841880 LDA #M1&2551890 LDY #M1/2561900 JSR PRINT1910 LDA #01920 STA SCORE}1930 STA SCORE+11940 STA 1911950 LDA #21960 STA 851970 LDA #221980 STA 841990 LDA #M3&2552000 LDY #M3/2562010} JSR PRINT2020 CONT2030 LDA #02040 STA 1932050 STA 537672060 LDA #2002070 STA 537612080 LDA #2552090 STA 5376}02100 LDA #1602110 STA 2012120 LDA #702130 STA 2002140 TAX2150 JSR CARYPOS2160 LDA #122170 STA 7072180 LDA }#242190 STA 7062200 LDA #02210 STA 1942220 WLOOP2230 LDA 1942240 BEQ *+52250 JSR CINQ2260 LDA 1962270 BEQ *+}52280 JMP CRASH2290 LDA 6322300 AND #82310 BNE *+152320 INC 2012330 INC 2012340 INC 2012350 INC 2012360 BNE} *+52370 JSR DIX2380 LDA 6322390 AND #42400 BNE *+62410 DEC 2012420 DEC 2012430 LDA 6322440 AND #22450 BNE }CARM2460 LDX 2002470 CPX #722480 BEQ CARM2490 INX2500 INX2510 JSR CARYPOS2520 CARM2530 LDA 6322540 AND #125}50 BNE OUT-62560 LDX 2002570 CPX #362580 BEQ OUT-62590 DEX2600 DEX2610 JSR CARYPOS2620 JSR TEMPO2630 JMP WLO}OP2640 ;-------------------------------2650 ;QUOIQU'INUTILISEE ICI, CETTE2660 ;PETITE ROUTINE SORT TRES2670 ;PROPREMENT D}U PROGRAMME ET2680 ;REDONNE LA MAIN AU DOS2690 ;-------------------------------2700 OUT2710 LDA #72720 LDY #XITVBV&255}2730 LDX #XITVBV/2562740 JSR $E45C2750 LDA #02760 STA 532482770 STA 532492780 STA 532502790 STA 532512800 STA} 2012810 STA 2052820 LDA #122830 LDX #962840 STA 834,X2850 JSR 584542860 LDA #02870 STA 843,X2880 STA 841,X2}890 LDA #82900 STA 842,X2910 LDA #32920 STA 834,X2930 LDA #SC&2552940 STA 836,X2950 LDA #SC/2562960 STA 837,X}2970 JSR 584542980 LDA #2552990 STA 7643000 LDA #23010 STA 7553020 LDA #03030 STA 7523040 LDA #03050 STA 537}683060 STA 537613070 STA 537633080 STA 537653090 STA 537673100 LDA #33110 STA 537753120 RTS3130 SC .BYTE"S:",}1553140 EFPM03150 LDA #03160 TAY3170 STA $8A00,Y3180 INY3190 BNE *-43200 RTS3210 EFPM13220 LDA #03230 TAY3}240 STA $8B00,Y3250 INY3260 BNE *-43270 RTS3280 ;-------------------------------3290 ; ICI EST LA VBI, AUSSI APPELEE}3300 ; INTERRUPTION 50 hz3310 ;-------------------------------3320 VBI3330 LDA #0 ;COLLISION3340 STA 1963350 LDA 532}603360 AND #123370 STA 1963380 LDA 532613390 AND #123400 ORA 1963410 STA 1963420 STA 532783430 LDA 1973440 }BMI MUSDO3450 DEC 1973460 DEC 1973470 LDA 1973480 STA 537653490 MUSDO3500 DEC 1983510 DEC 1983520 LDA 1983530} CMP #1593540 BNE DOMUS3550 INC 1993560 LDA 1933570 BEQ NOMELO3580 LDA 1993590 TAY3600 LDA MELOD0,Y3610 STA }537603620 LDA MELOD1,Y3630 STA 537663640 NOMELO3650 LDA 1993660 AND #313670 TAY3680 LDA MUS1,Y3690 STA 537623}700 LDA MUS2,Y3710 STA 537653720 STA 1973730 LDA #1753740 STA 1983750 DOMUS3760 STA 537633770 LDA 2013780 STA} 532503790 STA 532513800 LDA 2053810 CLC3820 ADC 2033830 STA 2053840 STA 532483850 STA 532493860 BNE *+53870} JMP SETPM3880 SETRET3890 DEC 2073900 DEC 2073910 BMI OCTPL3920 LDA 2073930 STA $D4043940 JMP XITVBV3950 OCTPL}3960 LDA 2063970 AND #83980 LSR A3990 LSR A4000 LSR A4010 STA 7554020 LDA #74030 STA $D4044040 STA 2074050} INC $780A4060 INC $781A4070 INC $78124080 INC $78234090 DEC 2064100 BMI *+54110 JMP XITVBV4120 LDA #794130 }STA 2064140 LDA #04150 STA $780A4160 STA $781A4170 STA $78124180 STA $78234190 JMP XITVBV4200 ;-----------------}--------------4210 ;ICI LA DLI (DISPLAY LIST INTER-4220 ;RUPT) QUI GERE LES SCROLLINGS4230 ;------------------------------}-4240 DLI4250 PHA4260 LDA 2074270 LSR A4280 STA $D4044290 PLA4300 RTI4310 ;-------------------------------4320} ; ROUTINES TOOLKIT...4330 ;-------------------------------4340 PRINT4350 STY 8374360 STA 8364370 LDA #1284380 STA }8404390 LDX #04400 STX 8414410 LDA #94420 STA 8344430 JMP 584544440 FIVCOL4450 LDA #294460 STA 537664470 LDA} #1754480 STA 537674490 LDA #54500 STA 1924510 JSR $D9AA ;INTFLP4520 LDA #04530 STA 2424540 LDA #1284550 STA }2434560 LDA #54570 STA 2444580 JSR $D8E6 ;FLPASC4590 LDY #2554600 INY4610 LDA (243),Y4620 BPL *-34630 AND #12}74640 STA (243),Y4650 INY4660 STY 2044670 COLTEST4680 LDA 2044690 CMP 1924700 BEQ FINCOL4710 LDA 2434720 STA} 1804730 LDA 2444740 STA 1814750 INC 1804760 BNE *+44770 INC 1814780 LDY #44790 LDA (243),Y4800 STA (180),Y4}810 DEY4820 BPL *-54830 INY4840 LDA #484850 STA (243),Y4860 INC 2044870 JMP COLTEST4880 FINCOL4890 LDA 20449}00 STA 8404910 LDA 2434920 STA 8364930 LDA 2444940 STA 8374950 LDA #04960 STA 8414970 LDA #94980 STA 834499}0 LDX #05000 JSR 584545010 LDA #05020 STA 537675030 RTS5040 ;-------------------------------5050 ;CETTE ROUTINE GE}RE L'APPARITION5060 ;DES ENNEMIS, TYPE COULEUR ET5070 ;VITESSE SONT CHOISIS ICI5080 ;-------------------------------5090 }SETPM5100 LDA #15110 STA 1945120 LDA 53770 ;SET SPEED5130 AND #35140 TAX5150 LDA #15160 ASL A5170 DEX5180 B}NE *-25190 STA 2035200 LDX 1935210 BNE SETCOLOR5220 LDY #2005230 STY 537615240 CMP #25250 BNE *+75260 LDY #$F}F5270 STY 537605280 CMP #45290 BNE *+75300 LDY #$C05310 STY 537605320 CMP #85330 BNE *+75340 LDY #$605350 S}TY 537605360 CMP #165370 BNE *+75380 LDY #605390 STY 537605400 SETCOLOR5410 LDA 53770 ;SET COLOR5420 AND #24054}30 EOR #85440 STA 7045450 LDY #155460 LDA #1385470 STA 1775480 STA 1795490 LDA 2025500 STA 1765510 EOR #128}5520 STA 1785530 LDA #05540 STA (176),Y5550 STA (178),Y5560 DEY5570 BPL *-55580 LDA 53770 ;SET YPOS5590 AND #3}15600 CLC5610 ADC #395620 STA 2025630 EOR #1285640 STA 1765650 LDY #155660 LDA 53770 ;SET VEHICLE5670 AND #7}5680 ASL A ;LE VEHICULE EST5690 ASL A ;CHOISI AU HASARD5700 ASL A ;PARMI LES HUITS5710 ASL A ;}EN MEMOIRE5720 ASL A5730 EOR #315740 TAX5750 LDA PM,X5760 STA (176),Y5770 DEX5780 DEY5790 BPL *-75800 LDY #}155810 LDA 1765820 AND #1275830 STA 1765840 LDA PM,X5850 STA (176),Y5860 DEX5870 DEY5880 BPL *-75890 JMP SE}TRET5900 TEMPO5910 LDA 532795920 CMP #35930 BNE TEMSUI5940 PLA5950 PLA5960 JMP OUT5970 TEMSUI5980 LDA 205990} CMP 206000 BEQ *-26010 RTS6020 CARYPOS6030 LDA #1396040 STA 1776050 STA 1796060 LDA 2006070 STA 1766080 EO}R #1286090 STA 1786100 LDA #06110 LDY #156120 STA (176),Y6130 STA (178),Y6140 DEY6150 BPL *-56160 TXA6170 S}TA 2006180 STA 1766190 EOR #1286200 STA 1786210 LDY #156220 LDA PM,Y6230 STA (176),Y6240 LDA PM+16,Y6250 STA }(178),Y6260 DEY6270 BPL *-116280 RTS6290 ;-------------------------------6300 ;CRAC BOUM HUUUUUE!!!!!6310 ;---------}----------------------6320 CRASH6330 LDA 2006340 STA 1806350 EOR #1286360 STA 1826370 LDA #1396380 STA 1816390 } STA 1836400 LDA #1286410 STA 1956420 LDA #1756430 STA 537676440 CRASHLOOP6450 DEC 2016460 DEC 2016470 LDA 537}706480 AND #156490 TAY6500 LDA 537706510 AND PM,Y6520 STA (180),Y6530 LDA 537706540 AND PM+16,Y6550 STA (182)},Y6560 LDA 1956570 STA 537666580 JSR TEMPO6590 INC 1956600 BMI CRASHLOOP6610 LDY #156620 CRASHEND6630 TYA6640} ORA #1606650 STA 537676660 DEC 2016670 DEC 2016680 JSR TEMPO6690 DEC 2016700 DEC 2016710 JSR TEMPO6720 DEY}6730 BPL CRASHEND6740 JSR EFPM16750 JSR TEMPO6760 INC 1916770 INC 1916780 INC 1916790 LDA 1916800 CMP #126810} BEQ OVER6820 LDA #LIVES&2556830 CLC6840 ADC 1916850 STA 8366860 LDA #LIVES/2566870 ADC #06880 STA 8376890 L}DA #116900 STA 8346910 LDA #96920 STA 8406930 LDX #06940 LDA #166950 STA 856960 LDA #226970 STA 846980 JSR }584546990 LDA 1917000 BEQ OVER7010 JSR EFPM17020 LDA #2487030 STA 2057040 STA 532787050 JSR TEMPO7060 JMP CON}T7070 ;-------------------------------7080 ; GAME OVER !7090 ;-------------------------------7100 OVER7110 LDA #07120 } STA SCORE7130 STA SCORE+17140 LDA #207150 STA 847160 LDA #27170 STA 857180 LDA #M4&2557190 LDY #M4/2567200 J}SR PRINT7210 LDA #2557220 STA 7647230 JMP RESTART7240 CINQ7250 LDA #07260 STA 1947270 CLC7280 LDA SCORE7290 }ADC #57300 AFFICH7310 STA SCORE7320 STA 2127330 LDA SCORE+17340 ADC #07350 STA SCORE+17360 STA 2137370 LDA #2}7380 STA 857390 LDA #227400 STA 847410 JSR FIVCOL7420 LDA SCORE+17430 CMP TOP+17440 BCC RETURN7450 BNE RECORD}7460 LDA SCORE7470 CMP TOP7480 BCC RETURN7490 RECORD7500 LDA SCORE7510 STA TOP7520 LDA SCORE+17530 STA TOP+175}40 LDY #47550 LDA 40882,Y7560 STA 40913,Y7570 DEY7580 BPL *-77590 RETURN7600 RTS7610 DIX7620 CLC7630 LDA SCO}RE7640 ADC #107650 JMP AFFICH7660 ;-------------------------------7670 ;QUELQUES MALHEUREUX DATAS POUR7680 ;VOS OREILL}ES...7690 ;-------------------------------7700 MELOD0 .BYTE 33,33,33,33,33,33,33,337710 .BYTE 35,35,35,35,35,35,35,3577}20 .BYTE 37,37,37,37,37,37,37,377730 .BYTE 40,40,40,40,0,33,35,07740 .BYTE 33,33,33,33,33,33,33,337750 .BYTE 35,35,35,}35,35,35,35,357760 .BYTE 37,37,37,37,37,37,37,377770 .BYTE 40,40,40,40,0,33,35,07780 .BYTE 60,68,60,50,50,42,45,50 ;77}90 .BYTE 60,68,53,60,50,53,45,507800 .BYTE 60,68,60,50,50,42,45,507810 .BYTE 60,68,53,60,50,53,45,507820 .BYTE 60,68,6}0,50,50,42,45,507830 .BYTE 60,68,53,60,50,53,45,507840 .BYTE 60,68,60,50,50,42,45,507850 .BYTE 60,68,53,60,50,53,45,50}7860 .BYTE 40,40,40,40,40,40,40,40 ;7870 .BYTE 37,37,37,37,37,37,37,377880 .BYTE 35,35,35,35,35,35,35,357890 .BYTE 37,}37,37,37,37,37,37,377900 .BYTE 40,40,40,40,40,40,40,407910 .BYTE 37,37,37,37,37,37,37,377920 .BYTE 35,35,35,35,35,35,35},357930 .BYTE 29,29,29,29,29,29,29,297940 .BYTE 33,33,33,33,33,33,33,33 ;7950 .BYTE 35,35,35,35,35,35,35,357960 .BYTE} 37,37,37,37,37,37,37,377970 .BYTE 40,40,40,40,40,40,40,407980 .BYTE 33,33,33,33,33,33,33,337990 .BYTE 35,35,35,35,35,3}5,35,358000 .BYTE 37,37,37,37,37,37,37,378010 .BYTE 40,40,40,40,40,40,40,408020 MELOD1 .BYTE 40,40,40,40,40,40,40,4080}30 .BYTE 42,42,42,42,42,42,42,428040 .BYTE 45,45,45,45,45,45,45,458050 .BYTE 50,50,50,50,0,42,45,08060 .BYTE 40,40,40,}40,40,40,40,408070 .BYTE 42,42,42,42,42,42,42,428080 .BYTE 45,45,45,45,45,45,45,458090 .BYTE 50,50,50,50,0,42,45,08100} .BYTE 59,67,59,49,49,41,44,49 ;8110 .BYTE 59,67,52,59,49,52,44,498120 .BYTE 59,67,59,49,49,41,44,498130 .BYTE 59,67,5}2,59,49,52,44,498140 .BYTE 59,67,59,49,49,41,44,498150 .BYTE 59,67,52,59,49,52,44,498160 .BYTE 59,67,59,49,49,41,44,49}8170 .BYTE 59,67,52,59,49,52,44,498180 .BYTE 50,50,50,50,50,50,50,50 ;8190 .BYTE 50,50,50,50,50,50,50,508200 .BYTE 50,}50,50,50,50,50,50,508210 .BYTE 50,50,50,50,50,50,50,508220 .BYTE 50,50,50,50,50,50,50,508230 .BYTE 50,50,50,50,50,50,50},508240 .BYTE 50,50,50,50,50,50,50,508250 .BYTE 50,50,50,50,50,50,50,508260 .BYTE 121,102,81,85,0,81,0,102 ;8270 .BYT}E 0,102,0,108,0,102,121,08280 .BYTE 121,102,81,85,0,81,0,1028290 .BYTE 0,102,0,108,0,102,121,08300 .BYTE 121,102,81,85,}0,81,0,1028310 .BYTE 0,102,0,108,0,102,121,08320 .BYTE 121,102,81,85,0,81,0,1028330 .BYTE 0,102,0,108,0,102,121,08340 };-------------------------------8350 ; DIVERS MESSAGES8360 ;-------------------------------8370 M1 .BYTE" } ",1558380 M2 .BYTE"SCORE TOP",1558390 M3 .BYTE"00000 $% $% $%",1558400 M4 .}BYTE" ** Š **",1558410 M5 .BYTE "}",1558420 LIVES .BYTE "$% $% $% ",1558430 ;---------------}----------------8440 ;BASSE (LE PLUS POSSIBLE MAIS8450 ;C'EST PAS TERRIBLE)8460 ;-------------------------------8470 MUS1}8480 .BYTE 243,0,0,204,0,182,0,1628490 .BYTE 243,0,0,204,0,182,0,1628500 .BYTE 243,0,0,204,0,182,0,1628510 .BYTE 121,}162,243,0,0,0,0,08520 ;-------------------------------8530 ; RYTHME (SIMILI CAISSE CLAIRE)8540 ;--------------------------}-----8550 MUS28560 .BYTE 0,0,15,0,0,0,15,08570 .BYTE 0,0,15,0,0,0,15,08580 .BYTE 0,0,15,0,0,0,15,08590 .BYTE 0,0,15,}0,0,15,15,08600 ;-------------------------------8610 ; CARACTERES REDEFINIS8620 ;-------------------------------8630 CARA}C8640 .BYTE 0,255,255,255,255,255,255,08650 .BYTE 0,127,127,127,127,127,127,08660 .BYTE 0,0,255,255,255,255,0,08670 .}BYTE 63,12,63,15,15,63,12,638680 .BYTE 0,12,240,62,62,240,12,08690 SCORE .BYTE 0,08700 TOP .BYTE 0,08710 ;------------}-------------------8720 ;DISPLAY LIST8730 ;-------------------------------8740 DL .BYTE 112,112,1128750 .BYTE 668760 }.WORD WINDOW8770 .BYTE 2,2,28780 .BYTE 868790 .WORD $7B008800 .BYTE 718810 .WORD $7A008820 .BYTE 7,78830 .BYTE  }868840 .WORD $7C008850 .BYTE 718860 .WORD $7A008870 .BYTE 7,78880 .BYTE 868890 .WORD $7B008900 .BYTE 668910 . }WORD $7A008920 .BYTE 1948930 .WORD $7A008940 .BYTE 828950 .WORD $79008960 .BYTE 668970 .WORD $7A008980 .BYTE 66 }8990 .WORD $7A009000 .BYTE 659010 .WORD $78009020 ;-------------------------------9030 ;LE MESSAGE QUI SCROLLE EN BAS }9040 ;DE L'ECRAN, LA OU LES MALINS9050 ;ECRIVENT TOUJOURS "CRACKED BY"9060 ;-------------------------------9070 MSG9080  } .BYTE ""9090 .BYTE ""9100 .BYTE "4he2oad-achine"9110 .BYTE "c 0}&!,4/."9120 .BYTE ""9130 .BYTE ""9140 EMPTY9150 .BYTE "}"9160 .BYTE ""9170 .BYTE ""9180 .BYTE ""9190 .BYTE "}"9200 .BYTE ""9210 ;-------------------------------9220 ; LE TROTTOIR9230 ;--------}-----------------------9240 TROT9250 .BYTE ""9260 .BYTE ""9270 .BYTE "}"9280 .BYTE ""9290 .BYTE ""9300 .BYTE ""9310 ;}-------------------------------9320 ;LA LIGNE BLANCHE9330 ;-------------------------------9340 LIGBLA9350 .BYTE "}"9360 .BYTE ""9370 .BYTE ""9380 .BYTE ""9390 } .BYTE ""9400 ;-------------------------------9410 ; RIEN QUE POUR VOS YEUX...9420 ; (LES 8 VEHICULES }DIFFERENTS)9430 ;-------------------------------9440 PM9450 .BYTE 0,0,64,64,112,120,92,959460 .BYTE 95,92,120,112,64,64},0,09470 .BYTE 224,224,0,0,128,2,32,329480 .BYTE 32,32,2,128,0,0,224,2249490 .BYTE 0,0,0,0,2,66,231,669500 .BYTE 2,0,}0,0,0,0,0,09510 .BYTE 0,0,0,6,16,24,24,249520 .BYTE 16,6,0,0,0,0,0,09530 .BYTE 252,30,239,247,247,247,247,2479540 .BY}TE 247,247,247,247,247,239,30,2529550 .BYTE 0,224,16,8,8,8,8,89560 .BYTE 8,8,8,8,8,16,224,09570 .BYTE 0,0,0,0,240,242,1}91,1599580 .BYTE 159,191,242,240,0,0,0,09590 .BYTE 240,240,240,96,7,0,64,969600 .BYTE 96,64,0,7,96,240,240,2409610 .B}YTE 0,255,1,123,125,125,125,1259620 .BYTE 125,125,125,125,123,1,255,09630 .BYTE 102,0,126,4,2,2,2,29640 .BYTE 2,2,2,2,4},126,0,1029650 .BYTE 0,0,132,252,204,204,204,1929660 .BYTE 192,204,204,204,252,132,0,09670 .BYTE 252,120,0,0,48,48,49,6}39680 .BYTE 63,49,48,48,0,0,120,2529690 .BYTE 0,0,16,254,135,254,133,2539700 .BYTE 133,253,133,254,135,254,16,09710 .}BYTE 0,108,108,0,120,1,122,29720 .BYTE 122,2,122,1,120,0,108,1089730 .BYTE 32,0,32,124,254,239,247,2479740 .BYTE 247,24}7,239,254,124,32,0,329750 .BYTE 0,112,2,0,0,16,8,89760 .BYTE 8,8,16,0,0,2,112,09770 DUP9780 LDA #09790 LDX #79800  }STA 53248,X9810 DEX9820 BPL *-49830 RTS9840 9830 ;---------------------------------9850 ; LE DEMMARAGE AUTOMATIQUE98!}60 ;---------------------------------9870 *=$2E09880 .WORD $9000---------------------9850 ; LE DEMMARAGE AUTOMATIQUE98E0100 ;-------------------------------0110 ;Ρ CHARGEZ D'ABORD LE0120 ;FICHIER BINAIRE BREAKOUT.DGT0130 ;PAR LA COM#}MANDE LOAD AVANT DE0140 ;LANCER CE PROGRAMME QUI SIMULE0150 ;LA ROM DE VOTRE LECTEUR LASER.0160 ;LE FICHIER *.DGT SIMULE A$}LORS0170 ;UN DISQUE COMPACT0180 ;-------------------------------0190 COLOR=$D01A0200 AUDC1=$D2010210 NMIEN=$D40E0220 WS%}YNC=542820230 *=$76000240 JMP START0250 PRO .BYTE 0,00260 DLIST0270 .BYTE 112,112,112,112,112,112,1120280 .BYTE 112&},112,112,112,660290 .WORD SCREEN0300 .BYTE 2,2,2,650310 .WORD DLIST0320 SETVBI0330 LDA $2220340 STA PRO0350 LDA '}$2230360 STA PRO+10370 LDY #VBI&2550380 LDX #VBI/2560390 LDA #60400 JMP $E45C0410 RESVBI0420 LDY PRO0430 LDX P(}RO+10440 LDA #60450 JMP $E45C0460 VBI0470 INC 200480 LDX 200490 PLA0500 PLA0510 PLA0520 RTI0530 START0540 )}