///// MENU1___.2__ FOP EQU $DE80 ORG $8200 O CLRA LDX #0 LDY #0 JSR $EC00 LDA #1 LDX #0 LDY $DFD0 JSR $EC00 LDA #2 LDX #0 LDY $DFD2 JSR $EC00 LDA #3 LDX #0 LDY $DFD4 JSR $EC00 RTS MOD0 LDB #$1B JSR $E803 LDB #$5A JSR $E803 RTS MOD2 LDB #$1B JSR $E803 LDB #$59 JSR $E803 RTS DEB JSR MOD2 JSR DECOMP JSR O BOUC JSR EFPGG LDX #TBMN LDY #$44D9 JSR AFTXT BC1 JSR $E806 CMPB #49 BLT BC1 CMPB #57 BGT BC1 PSHS B STB ,X JSR AF1 PULS B SUBB #49 LSLB LDX #TBOPT JMP [B,X] AFTXT TFR Y,U AF1 LDA ,X+ CMPA #33 BEQ AFF CMPA #94 BNE AF2 LEAY 320,Y BRA AFTXT AF2 CMPA #38 BNE AF4 PSHS X JSR EFPGG PULS X LDY ,X++ BRA AFTXT AF4 SUBA #32 LDB #8 MUL PSHS X,U LDX $60CF LEAX D,X LDA #8 AF3 LDB ,X+ STB ,U LEAU -40,U DECA BNE AF3 PULS X,U LEAU 1,U BRA AF1 AFF RTS TBOPT FDB JEU,INIT,CREA,LOAD,SAVE FDB CATA,PARA,SCORE,OPTION JEU JSR EFPGG LDA FOP LBEQ BOUC LDX #$8820 LDY #$A000 LDU #$B7E0 LDA #$E7 JSR TRFRAM JSR $9A7D JMP BOUC INIT LDX #$4000 LDD #0 IN1 STD $6000,X STD $7F40,X INC $E7C3 STD ,X DEC $E7C3 STD ,X++ CMPX #$5F40 BNE IN1 CLR FOP LDX #$4000+56 LDY #198 IN2 LDD #$4080 STA ,X STA $6000,X STB $7F40,X LDD #$102 STB 23,X STA $6000+23,X STB $7F40+23,X LEAX 40,X LEAY -1,Y BNE IN2 LDX #$4000+16 IN3 LDD #$55AA STA $6000,X STB $7F40,X STB $6000+7960,X STA $7F40+7960,X INC $E7C3 DEC 7960,X DEC $E7C3 DEC ,X+ CMPX #$4028 BNE IN3 LDD #$3131 STD $DFF2 STA $DFF4 JMP BOUC CREA JSR EFPGG LDX #$9280 LDY #$A000 LDU #$AD80 LDA #$67 JSR TRFRAM JSR $96F0 JMP BOUC SAVE JSR COMP JSR INPUT LDA #0 SA1 STA $DFFF LDA #$54 STA $E7E7 RTS LOAD JSR COMP JSR INPUT LDA #1 BRA SA1 CATA JSR COMP JSR MOD0 LDA #2 BRA SA1 SP1 JSR EFPGG LDX #$9000 LDY #$AD80 LDU #$B5D0 LDA #$67 JSR TRFRAM RTS PARA JSR SP1 JSR $905E JMP BOUC SCORE JSR SP1 JSR $90E6 JMP BOUC OPTION JSR SP1 JSR $9171 JSR O JMP BOUC EFPGG LDX #$4000 EF0 LDB #16 EF1 INC $E7C3 CLR ,X DEC $E7C3 CLR ,X+ DECB BNE EF1 LEAX 24,X CMPX #$5F40 BNE EF0 RTS TRFRAM JSR CHGBK STU M1 TRF1 LDA ,Y+ STA ,X+ CMPY M1 BNE TRF1 LDA #$17 BRA CHGBK INPUT LDX #TBINP JSR AFTXT TFR U,Y LDX #$DFF5 LDD #$2020 STD 1,X STD 3,X STD 5,X STD 7,X LDD #$7F21 STA ,X STB 9,X LDU #$DFF5 INP0 PSHS X,U JSR AFTXT PULS X,U INP1 JSR $E806 CMPB #8 BEQ INP2 CMPB #13 BEQ INP3 CMPB #32 BLT INP1 CMPU #$DFFD BEQ INP1 STB ,U+ LDA #$7F STA ,U BRA INP0 INP2 CMPU #$DFF5 BEQ INP1 LDA #32 STA ,U LEAU -1,U LDA #$7F STA ,U BRA INP0 INP3 LDA #$20 STA ,U RTS CHGBK LDB #$44 STB $E7E7 LDB $E7CB ANDB #$FB STB $E7CB STA $E7C9 ORB #4 STB $E7CB RTS DECOMP LDA #$17 JSR CHGBK LDA $E7C3 ANDA #$FE STA $E7C3 LDX #$4000 LDU #$9380 LDD #$A640 BSR RDCMP INC $E7C3 LDX #$4000 LDU #$A640 LDD #$B900 BSR RDCMP LDX #$A000 LDU #$B900 LDD #$DE80 BSR RDCMP DEC $E7C3 RTS RDCMP STD M1 RDC2 LDA #24 LEAX 16,X RDC1 LDB ,U+ STB ,X+ DECA BNE RDC1 CMPU M1 BNE RDC2 RTS COMP LDA #$17 JSR CHGBK LDX #$DE80 LDU #$DE80 LDD #$B900 BSR RCOMP LDA $E7C3 ANDA #$FE STA $E7C3 LDX #$5F40 LDU #$A640 LDD #$9380 BSR RCOMP INC $E7C3 LDX #$5F40 LDU #$B900 LDD #$A640 BSR RCOMP DEC $E7C3 RTS RCOMP STD M1 RCP2 LDA #24 RCP1 LDB ,-X STB ,-U DECA BNE RCP1 LEAX -16,X CMPU M1 BNE RCP2 RTS ERROR JSR MOD2 JSR EFPGG LDD $DFFE LDX #FNF CMPA #62 BEQ ERR1 LDX #ECR TSTB BEQ ERR1 LDX #LEC ERR1 LDY #$44D9 JSR AFTXT LDX #ENT JSR AFTXT ERR2 JSR $E806 CMPB #13 BNE ERR2 JMP DEB FNF FCC /CE FLIPPER^N'EST PAS SUR/ FCC /^LA DISQUETTE!/ ECR FCC /ECRITURE^ IMPOSSIBLE!/ LEC FCC /LECTURE^ IMPOSSIBLE!/ ENT FCC /^^^APPUYEZ SUR^ 'ENTREE'/ FCC /!/ TBMN FCC /MENU:^^1.JEU^2.INITIALI/ FCC /SER^ LE FLIPPER^3.CREER/ FCC / UN^ FLIPPER^4.CHARGER / FCC /UN^ FLIPPER^5.SAUVER LE/ FCC /^ FLIPPER^6.CATALOGUE^/ FCC /7.MODIFIER LE/ FCC /S^ PARAMETRES^8.SCORES^/ FCC /9.OPTIONS/ FCC /^^VOTRE CHOIX>! !/ TBINP FCC /^^NOM DU FLIPPER:^!/ M1 FDB 0 CT FCB 0 C1 FCB 0 P1 FDB 0 P2 FDB 0 P3 FDB 0 END ///// PARA1___.5__ TBKF EQU $DF97 APPEL LDB #$1B JSR $E803 LDB #$59 JSR $E803 LDA $E7C3 ANDA #$FE STA $E7C3 JSR EFPGG JSR PARA LDB #$1B JSR $E803 LDB #$5A JSR $E803 SWI EFPGG LDX #$4000 EF0 LDB #16 EF1 CLR ,X+ DECB BNE EF1 LEAX 24,X CMPX #$5F40 BNE EF0 RTS ORG $9000 AFTXT TFR Y,U AF1 LDA ,X+ CMPA #33 BEQ AFF CMPA #94 BNE AF4 LEAY 320,Y CMPY #$5F40-320 BLO AFTXT LDA #4 STA C1 PSHS X AF0 LDX #$4000 AF2 LDA #16 AF0A LDB 80,X STB ,X+ DECA BNE AF0A LEAX 24,X CMPX #$5F40-80 BLO AF2 DEC C1 BNE AF0 PULS X LEAY -320,Y BRA AFTXT AF4 SUBA #32 LDB #8 MUL PSHS X,U LDX $60CF LEAX D,X LDA #8 AF3 LDB ,X+ STB ,U LEAU -40,U DECA BNE AF3 PULS X,U LEAU 1,U BRA AF1 AFF RTS PARA LDD #TBPAR1 STD P1 LDD #$DF80 STD P2 LDD #$DFE0 STD P3 LDX #TBPAR0 LDY #$4259 TFR Y,U PA0 JSR AF1 PSHS U LDU P3 LDB ,U STB ,X PULS U JSR AF1 PSHS U,Y LDU P3 PA1 JSR $E806 CMPB #2 BEQ PA6 CMPB #13 BEQ PA3 CMPB #48 BLO PA1 CMPB #57 BHI PA1 STB ,U PA3 LDB ,U+ STB C1 STU P3 SUBB #48 LDU P2 LDY P1 LDA ,Y+ BMI PA4 LDA B,Y STA ,U+ LEAY 10,Y BRA PA5 PA4 LSLB LDD B,Y STD ,U++ LEAY 20,Y PA5 STU P2 STY P1 PULS U,Y LDB C1 LEAX -2,X LEAU -1,U STB ,X JSR AF1 CMPX #TBFIN BNE PA0 RTS PA6 PULS U,Y,PC SCORE LDY #$4259 TFR Y,U LDX #TBSC LDD #$DF20 STD P1 SC0 JSR AF1 PSHS U LDU P1 LDA #3 SC1 LDB ,U LSRB LSRB LSRB LSRB ADDB #48 STB ,X+ LDB ,U+ ANDB #15 ADDD #48 STB ,X+ DECA BNE SC1 PULS U LEAX -6,X SC2 JSR AF1 LEAX -7,X SC3 JSR $E806 CMPB #2 BEQ SC6 CMPB #13 BEQ SC4 CMPB #48 BLT SC3 CMPB #57 BGT SC3 PSHS B LEAU -6,U LDD 1,X STD ,X LDD 3,X STD 2,X LDA 5,X PULS B STD 4,X BRA SC2 SC4 PSHS U LDU P1 LDA #3 SC5 LDB ,X+ SUBB #48 LSLB LSLB LSLB LSLB STB ,U LDB ,X+ SUBB #48 ORB ,U STB ,U+ DECA BNE SC5 LEAX 1,X STU P1 CMPU #$DF20+60 PULS U LBLO SC0 SC6 RTS OPTION LDY #$4259 TFR Y,U LDX #TBKEY LDD #$DF93 STD P1 KY0 JSR AF1 PSHS U LDU P1 LDA ,U STA ,X PULS U JSR AF1 PSHS U LDU P1 KY1 JSR $E806 CMPB #2 LBEQ KY3 CMPB #13 BEQ KY2 CMPB #32 BLO KY1 STB ,U KY2 LDB ,U+ STU P1 LEAX -2,X STB ,X PULS U LEAU -1,U JSR AF1 LDD P1 CMPD #TBKF BLO KY0 LDD #$DF60 STD P1 COMB JSR AF1 PSHS X LDX P1 LDA #33 STA 6,X COM0 JSR AF1 COM1 JSR $E806 CMPB #2 LBEQ COM3 CMPB #13 BEQ COM2 CMPB #65 BLO COM1 CMPB #72 BHI COM1 LEAX -7,X PSHS B LDD 1,X STD ,X LDD 3,X STD 2,X LDA 5,X PULS B STD 4,X LEAU -6,U BRA COM0 COM2 LEAX 1,X STX P1 CMPX #$DF70 PULS X BLO COMB LDD #$DFD0 STD P1 CLR CT COL0 INC CT JSR AF1 LDB #$1B JSR $E803 LDB CT ADDB #$60 JSR $E803 DEC $E7C3 PSHS X LDX #COLOR JSR AF1 PSHS U,Y LDU P1 LDA ,U+ STA C2+2 LDB ,U LSRB LSRB LSRB LSRB STB C2+1 LDB ,U ANDB #15 STB C2 INC $E7C3 COL0A JSR AFCRS COL1 JSR $E806 CMPB #2 LBEQ COL6 CMPB #13 BEQ COL5 CMPB #49 BLO COL1 CMPB #54 BHI COL1 PSHS B JSR AFCRS PULS B SUBB #49 PSHS B CMPB #3 BLO COL2 SUBB #3 COL2 LDX #C2 LEAX B,X PULS B SUBB #3 BMI COL3 LDA ,X CMPA #15 BEQ COL4 INC ,X BRA COL4 COL3 TST ,X BEQ COL4 DEC ,X COL4 LDA C2+1 LDB #16 MUL ADDB C2 LDA C2+2 TFR D,Y LDX #0 LDA CT JSR $EC00 BRA COL0A COL5 LDU P1 LDA C2+1 LDB #16 MUL ADDB C2 LDA C2+2 STD ,U++ STU P1 JSR AFCRS DEC $E7C3 JSR AFCRS PULS U,Y PULS X LDA CT CMPA #3 LBLO COL0 COL7 LDB #$1B JSR $E803 LDB #$60 JSR $E803 DEC $E7C3 RTS KY3 PULS U,PC COM3 PULS X,PC COL6 PULS U,Y PULS X BRA COL7 AFCRS LDY #$5C23 LDX #C2 AFC0 LDA ,X+ LSLA LDB #160 MUL COMA COMB ADDD #1 COM D,Y LEAY 4,Y CMPX #C2+3 BNE AFC0 RTS TBKEY FCC /TOUCHES:^/ FCC /^BAISSER LE^ RESSORT :!/ FCC /0!/ FCC /^LACHER LE^ RESSORT :!0/ FCC /!^FLIPS^ GAUCHES:!0!/ FCC /^FLIPS^ DROITS :!0!/ FCC /^^^COMBINAISONS:/ FCC /^A.PASSAGE A^ POINTS/ FCC /^B.CIBLE^ HORIZONTALE/ FCC /^C.CIBLE^ VERTICALE/ FCC /^D.CASE C^E.CASE D/ FCC /^F.CASE E^G.PORTE/ FCC /^H.TROU^/ FCC /^COMBINAISON^ SPECIALE / FCC /:^ !^EXTRABALLE:/ FCC /^ !/ FCC /^^^PALETTE :^^COULEUR1:!/ FCC /^^^^^COULEUR2:!^^^^^COUL/ FCC /EUR3:!/ COLOR FCC /^ R V B^ + + +/ FCC /^^^^^^^^^^^^^^^^^ - -/ FCC / -!/ TBPAR0 FCC /PARAMETRES:^INCLINAISON / FCC />!0!^FROTTEMENTS >!0!^/ FCC /ELASTICITE >!0!^VITESSE / FCC />!0!^RESISTANCE DU^PASSA/ FCC /GE A POINT^>!0!^FORCE DU/ FCC /^TRIANGLE >!0!^FORCE DU / FCC /GRAND^CHAMPIGNON >!0!^FO/ FCC /RCE DU PETIT^CHAMPIGNON / FCC />!0!^SENSIBILITE DU^TRIA/ FCC /NGLE>!0!^FORCE DES^FLIPS/ FCC />!0!/ TBFIN FCB 0 TBPAR1 FCB 0 FCB 10,14,18,22,26,30,34,38,42 FCB 46 FCB -1 FDB 0,5,10,15,20,25,30,35,40 FDB 45 FCB -1 FDB $2500 FDB $2100,$1D00,$1900,$1500 FDB $1100,$D00,$900,$500,$100 FCB -1 FDB 16,20,24,28,32,36,40,44,48 FDB 52 FCB 0,0,4,8,12,16,20,24,28,32 FCB 36,-1 FDB $3000,$2B00,$2600,$2000 FDB $1C00,$1800,$1400,$1000 FDB $A00,$500 FCB -1 FDB $3000,$2B00,$2600,$2000 FDB $1C00,$1800,$1400,$1000 FDB $A00,$500 FCB -1 FDB $3000,$2B00,$2600,$2000 FDB $1C00,$1800,$1400,$1000 FDB $A00,$500 FCB 0,$80,$8E,$9C,$AA,$B8,$C6 FCB $D4,$E2,$F0,$FE,-1 FDB $690,$6A0,$5A8,$5B0,$4B8 FDB $4C0,$3C8,$3D0,$2D8,$2DF TBSC FCC /SCORES & BONUS:^/ FCC /^SCORE PASSAGE^A POINTS/ FCC /^!000000!/ FCC /^BONUS PASSAGE^A POINTS/ FCC /^!000000!/ FCC /^SCORE CIBLE^HORIZONTALE/ FCC /^!000000!/ FCC /^BONUS CIBLE^HORIZONTALE/ FCC /^!000000!/ FCC /^SCORE CIBLE^VERTICALE/ FCC /^!000000!/ FCC /^BONUS CIBLE^VERTICALE/ FCC /^!000000!/ FCC /^SCORE TROU/ FCC /^!000000!/ FCC /^BONUS TROU/ FCC /^!000000!/ FCC /^SCORE TRIANGLE/ FCC /^!000000!/ FCC /^SCORE PORTE/ FCC /^!000000!/ FCC /^SCORE GRAND^CHAMPIGNON/ FCC /^!000000!/ FCC /^SCORE PETIT^CHAMPIGNON/ FCC /^!000000!/ FCC /^SCORE CASE C/ FCC /^!000000!/ FCC /^BONUS CASE C/ FCC /^!000000!/ FCC /^SCORE CASE D/ FCC /^!000000!/ FCC /^BONUS CASE D/ FCC /^!000000!/ FCC /^SCORE CASE E/ FCC /^!000000!/ FCC /^BONUS CASE E/ FCC /^!000000!/ FCC /^BONUS SPECIAL/ FCC /^!000000!/ FCC /^BONUS EXTRA/ FCC /^!000000!/ M1 FDB 0 CT FCB 0 C1 FCB 0 P1 FDB 0 P2 FDB 0 P3 FDB 0 C2 RMB 3 END ////// FAB1____.2__ MID EQU $A000 ORG $9D00 TSTE CLRA CMPX #130 BGE RP1 ORA #1 RP1 CMPX #317 BLE RP2 ORA #2 RP2 CMPY #1 BGE RP3 ORA #4 RP3 CMPY #198 BLE RP4 ORA #8 RP4 TSTA RTS PSEOR JSR TSTE BNE PSF PS1 LDA BT ANDA C1 EORA ,U STA ,U INC $E7C3 LDA BT ANDA C2 EORA ,U STA ,U DEC $E7C3 PSF RTS PSTST PSHS U JSR TSTE BNE PS2 LEAU MID-$4000,U JSR SP1 BITA ,U BNE PS2 ANDA $1F40,U ANDA #$AA BEQ PS3 PS2 ORA TEST STA TEST PS3 PULS U,PC SP1 LDA BT BITA #$55 BEQ S1A LSLA S1A STA B1 LSRA ORA B1 STA B1 RTS PSAF LDB C1 JSR SP2 INC $E7C3 LDB C2 JSR SP2 DEC $E7C3 PSHS U LEAU MID-$4000,U JSR SP1 LDB D1 JSR SP3 LEAU $1F40,U LDB D2 JSR SP3 PULS U,PC SP2 LDA BT COMA ANDA ,U STA B1 ANDB BT ORB B1 STB ,U RTS SP3 LDA B1 COMA ANDA ,U ANDB B1 STB B2 ORA B2 STA ,U RTS DEPC PSHS U LDU #TBD LDA B,U TST RET BPL DP0 TFR A,B ANDB #3 LDU #TBR ANDA #$FC ORA B,U DP0 PULS U DP0A LSRA BCC DP1 LEAX 1,X LSR BT BNE DP1 ROR BT LEAU 1,U DP1 LSRA BCC DP2 LEAX -1,X LSL BT BNE DP2 ROL BT LEAU -1,U DP2 LSRA BCC DP3 LEAY 1,Y LEAU 40,U DP3 LSRA BCC DP4 LEAY -1,Y LEAU -40,U DP4 RTS TBD FCB 8,9,1,5,4,6,2,10,0 TBR FCB 0,2,1,3 DSVC LDB BT PSHS X,Y,U,B STX P1 LDX ADOBJ LDA #$80 STA N2 DV0 LDA ,X+ STA CT BEQ DSVCF LDA ,X+ LDB MOD BEQ DV2 CLRA DV2 PSHS U LDU #TBCT PSHS A ANDA #15 LSLA LDD A,U STD D1 PULS A DV3 LSRA LSRA LSRA ANDA #$FE LDD A,U STD C1 PULS U DV1 LDA ,X+ STX P2 LDX P1 STA N1 ANDA #7 STA DR LDA N1 ANDA #120 LSRA LSRA LSRA STA CT2 TST N2 BPL DV7 DV8 LDA N1 BMI DV7 JSR PSEOR DV7 DEC CT2 BMI DV9 LDB DR JSR DEPC BRA DV8 DV9 LDA N1 STA N2 STX P1 LDX P2 DEC CT BNE DV1 BRA DV0 DSVCF PULS X,U,Y,B STB BT RTS TBCT FDB 0,$55,$AA,$FF,$5500,$5555 FDB $55AA,$55FF,$AA00,$AA55 FDB $AAAA,$AAFF,$FF00,$FF55 FDB $FFAA,$FFFF N2 FCB 0 ORG $9F00 BT FCB 0 C1 FCB 0 C2 FCB 0 D1 FCB 0 D2 FCB 0 TEST FCB 0 B1 FCB 0 B2 FCB 0 ADOBJ FDB 0 CT FCB 0 CT2 FCB 0 MOD FCB 0 RET FCB 0 N1 FCB 0 P1 FDB 0 P2 FDB 0 DR FCB 0 END ////// FAB2____.2__ MID EQU $A000 FOP EQU $DE80 MOD0 EQU $9EE0 MOD2 EQU $9EEB TSTE EQU $9D00 PSEOR EQU $9D21 PS1 EQU $9D26 PSTST EQU $9D41 PSAF EQU $9D76 DEPC EQU $9DC7 DP0A EQU $9DE0 DSVC EQU $9E1C DV7 EQU $9E80 TBCT EQU $9EA6 AFPGF RTS ORG $96F0 FBAF CLR MOD JSR AFPGF LDA #15 STA COL JSR SP4 JSR TCS LDD #$5CC3 STD UCCV LDD #$5EAA STD UCCH JSR AFCC LDX #224 LDY #100 LDU #$4FBC LDA #128 STA BT LDB #20 JMP TCO1 FB CLR FLGL FBB LDB FLGL BEQ FB0A LDD #PSEOR STD LB1+1 JSR LINE FB0A LDD ADOBD STD ADOBJ LDD #PSEOR STD DV7-2 JSR DSVC FB0 JSR $E806 TSTB BEQ FB0 PSHS B LDA FLGL BEQ FB0B JSR LINE FB0B JSR DSVC PULS B CMPB #69 BNE FB1 PSHS X JSR SP5 PULS X LDA NBAL BEQ FBB LDA NRES BEQ FBB RTS FB1 CMPB #83 LBEQ ATCS CMPB #68 LBEQ TCD CMPB #67 LBEQ TCC CMPB #81 LBEQ TCQ CMPB #76 LBEQ TCL CMPB #79 LBEQ TCO PSHS X LDX #TBTCD FB4 CMPB ,X BEQ DPCS TST ,X++ BNE FB4 FBF PULS X BRA FBB TCO JSR $E806 SUBB #65 BMI TCO CMPB #24 BGT TCO TCO1 PSHS X LDA #6 MUL LDX #TBTCO LEAX D,X LDD 2,X STD ADOBP LDD 4,X STD ADOBD LDA 1,X LSRA ROR MTR LSRA ROR RET STA COBJ PULS X JMP FB DPCS LSR RET LDB 1,X PULS X PSHS B ANDB #$7F JSR DEPC JSR REPC PULS B LSL RET TSTB LBPL FBB LDD ADOBP STD ADOBJ LDD #PSTST STD DV7-2 CLR TEST JSR DSVC TST TEST LBNE FB TST MTR BPL AFO PSHS X LDA COL LSLA LSLA LSLA LSLA ORA CST LDX ADOBP STA 1,X PULS X FBA LDD #PSAF STD DV7-2 JSR DSVC LDA MTR LBMI FB LDB #20 JMP TCO1 AFO LDD ADOBP CMPD #CLIN1 BNE AFO0 INC FLGL STX X1 STY Y1 JMP FBB AFO0 PSHS X JSR SP5 LDA COBJ LDB BT AFO1 LSLB BCS AFO3 ADDA #32 BRA AFO1 AFO3 STA ,X STU 1,X CLR 3,X JSR SP5 LDD NOBJ CMPA #50 BHI AFO2 CMPB #1 BHI AFO2 LDD NRES CMPA #3 BHI AFO2 CMPB #5 BHI AFO2 LDD NFLD ADDA NFLG CMPA #6 BHI AFO2 CMPB #5 BHI AFO2 LDD NCBH CMPA #5 BHI AFO2 CMPB #5 BHI AFO2 PULS X JMP FBA AFO2 CLR -3,X PULS X JMP FBB SP5 PSHS U LDX #FOP LDD #0 STD NBAL STD NTRU STD NFLD STD NCBH CLR NOBJ LDU #NOBJ S5A LDA ,X BEQ S5F INC NOBJ LEAX 3,X ANDA #$1F CMPA #8 BGT S5A INC A,U BRA S5A S5F PULS U,PC ATCS BSR TCS JMP FBB TCS LDA #1 STA CST PSHS U,X LDU #TRUELL JSR AFCST PULS U,X,PC AFCST LDX #$5B8D LDA #8 STA C1 AFCST1 LDD ,U++ STD ,X LEAX 40,X DEC C1 BNE AFCST1 RTS TCD CLR CST PSHS U,X LDU #PINCE JSR AFCST PULS U,X JMP FBB AFD127 LDA #8 STA CT LDD C1 AF127A STA ,U STA 1,U INC $E7C3 STB ,U STB 1,U DEC $E7C3 LEAU 40,U DEC CT BNE AF127A RTS TCC JSR $E806 CMPB #13 BEQ TCC1 CMPB #32 BNE TCC JSR AFCC PSHS X LDA COL INCA LDX UCCH LEAX 2,X BITA #3 BNE TCC0 SUBA #4 LEAX -8,X TCC0 STA COL STX UCCH BSR SP4 PULS X JSR AFCC BRA TCC TCC1 JSR $E806 CMPB #13 LBEQ FBB CMPB #32 BNE TCC1 JSR AFCC PSHS X LDA COL ADDA #4 LDX UCCV LEAX 320,X BITA #12 BNE TCC2 SUBA #16 LEAX -1280,X TCC2 STA COL STX UCCV BSR SP4 PULS X JSR AFCC BRA TCC1 SP4 LDX #TBCT LSLA LDD A,X STD C1 PSHS U LDU #$5A4D JSR AFD127 PULS U,PC AFCC LDB BT PSHS X,Y,U,B LDB #16 STB BT LDD #PS1 STD DV7-2 LSR RET LDD #CCV STD ADOBJ LDU UCCV JSR DSVC LDD #CCH STD ADOBJ LDU UCCH JSR DSVC LSL RET PULS X,Y,U,B STB BT RTS REPC JSR TSTE BNE RP5 RTS RP5 JSR DP0A BRA REPC TCQ LDB BT PSHS X,Y,U,B LDX #FOP ROR RET TST ,X LBEQ TCQF TCQ0 LDB ,X LDU #TBOBJ ANDB #$1F LSLB LSLB LEAU B,U LDD ,U STD ADOBJ LDB RET ANDB #$7F ORB 3,U STB RET LDB ,X+ ANDB #$E0 LSRB LSRB LSRB LSRB LSRB LDU #TBBT LDA B,U STA BT LDU ,X++ LDD #PS1 STD DV7-2 TCQ1 JSR DSVC JSR $E806 CMPB #13 BEQ TCQ2 PSHS B JSR DSVC PULS B CMPB #9 BEQ TCQ4 CMPB #8 BEQ TCQ5 CMPB #32 BNE TCQ1 BRA TCQF TCQ4 TST ,X BNE TCQ0 LDX #FOP BRA TCQ0 TCQ5 LEAX -6,X CMPX #FOP BHS TCQ0 TCQ6 LEAX 3,X TST 3,X BNE TCQ6 BRA TCQ0 TCQ2 INC MOD LDD #PSAF STD DV7-2 JSR DSVC DEC MOD TCQ3 LDA ,X STA -3,X BEQ TCQF LDD 1,X STD -2,X LEAX 3,X BRA TCQ3 TCQF PULS X,Y,U,B STB BT ROL RET JMP FBB TBBT FCB 128,64,32,16,8,4,2,1 TCL LDA FLGL LBEQ FB LDD #PSTST STD LB1+1 CLR TEST JSR LINE LDA TEST LBNE FBB LDD #PSAF STD LB1+1 JSR LINE JMP FB LINE LDB BT PSHS X,Y,U,B LDD #$FFD8 STA DX STD DY TFR X,D SUBD X1 BPL L1 COMA COMB ADDD #1 NEG DX L1 ADDD #1 STD A1 TFR Y,D SUBD Y1 BPL L2 COMA COMB ADDD #1 NEG DY NEG DS L2 ADDD #1 STD A2 LDD #0 STD K PSHS X LDX #TBCT LDA COL LSLA LDD A,X STD C1 LDA CST LSLA LDD A,X STD D1 PULS X LB0 LDD K ADDD A2 STD K LB1 JSR PSEOR CMPX X1 BNE LB1A CMPY Y1 BNE LB1A PULS X,Y,U,B STB BT RTS LB1A LDD K SUBD A1 BMI LB2 STD K LDD DY LEAY A,Y LEAU B,U LDD K CMPD A1 BHS LB1 LB2 LDB DX LEAX B,X TSTB BMI OX2 LSR BT BNE LB0 ROR BT LEAU B,U BRA LB0 OX2 LSL BT BNE LB0 ROL BT LEAU B,U BRA LB0 TRUELL FDB 0,$F800,$F580,$5E0,$3F8 FDB $FFE,$1FFF,0 PINCE FDB $3C,$7E,$1BA,$780,$1E00 FDB $3800,$6000,$8000 CCV FCB 1,$30,60,0 CCH FCB 1,$30,58,0 CLINE FCB 4,$30,191,115,240,117,0 CLIN1 FCB 0 TBTCD FCB 8,6,9,2,10,4,11,0 FCB 56,128,57,129,54,130 FCB 51,131,50,132,49,133 FCB 52,134,55,135,53,136,0 TBTCO RMB 192 TBOBJ RMB 128 FIN FCB 0 ORG $9F00 BT FCB 0 C1 FCB 0 C2 FCB 0 D1 FCB 0 D2 FCB 0 TEST FCB 0 B1 FCB 0 B2 FCB 0 ADOBJ FDB 0 CT FCB 0 CT2 FCB 0 MOD FCB 0 RET FCB 0 N1 FCB 0 P1 FDB 0 P2 FDB 0 DR FCB 0 COL FCB 0 CST FCB 0 UCCV FDB 0 UCCH FDB 0 FLGL FCB 0 ADOBD FDB 0 ADOBP FDB 0 MTR FCB 0 COBJ FCB 0 X1 FDB 0 Y1 FDB 0 NOBJ FCB 0 NBAL FCB 0 NRES FCB 0 NTRU FCB 0 NFLG FCB 0 NFLD FCB 0 NCBV FCB 0 NCBH FCB 0 NPPT FCB 0 K FDB 0 A1 FDB 0 A2 FDB 0 DX FCB 0 DY FCB 0 DS FCB 0 END ////// FAB3____.2__ MID EQU $A000 FOP EQU $DE80 MOD0 EQU $9EE0 MOD2 EQU $9EEB PS1 EQU $9D26 DSVC EQU $9E1C DV7 EQU $9E80 TBCT EQU $9EA6 FBAF EQU $96F0 AFD127 EQU $990A ORG $9500 AFPGF CLR COL LDA #4 STA CT3 LDU #$5904 AF1 LDA #4 STA CT2 AF2 LDA COL LSLA LDX #TBCT LDD A,X STD C1 PSHS U JSR AFD127 PULS U INC COL LEAU 2,U DEC CT2 BNE AF2 LEAU 312,U DEC CT3 BNE AF1 LDD #PS1 STD DV7-2 LDU #$58DB LDB #1 STB BT LDD #CADR1 STD ADOBJ JSR DSVC LDU #$5A24 LDD #CADR2 STD ADOBJ JSR DSVC INC $E7C3 LDY #$4321 LDX #TBTXT AFTXT TFR Y,U AFT1 LDA ,X+ BEQ AFTF CMPA #94 BNE AFT2 LEAY 320,Y BRA AFTXT AFT2 SUBA #32 LDB #8 MUL PSHS X,U LDX $60CF LEAX D,X LDA #8 AFT3 LDB ,X+ STB ,U LEAU -40,U DECA BNE AFT3 PULS X,U LEAU 1,U BRA AFT1 AFTF DEC $E7C3 LDX #TBPG AF8 LDD ,X++ BEQ AF9 LSRA ROR RET STB BT LDD ,X++ STD ADOBJ LDU ,X++ JSR DSVC BRA AF8 AF9 RTS CP FCB 0 CADR1 FCB 16,$30,122,122,122,122,42 FCB 124,124,28,126,126,126,126 FCB 46,120,120,16,0 CADR2 FCB 8,$30,122,18,124,20,126 FCB 22,120,8,0 TBTXT FCC /A B C D E^^^F G H / FCC / I^^^J K L N^^^ / FCC / M O^^^^^P Q / FCC /R S T^^^U V W X/ FDB 0 TBPG RMB 192 FIN FCB 0 ORG $96F3 JSR AFPGF ORG $9F00 BT FCB 0 C1 FCB 0 C2 FCB 0 D1 FCB 0 D2 FCB 0 TEST FCB 0 B1 FCB 0 B2 FCB 0 ADOBJ FDB 0 CT FCB 0 CT2 FCB 0 MOD FCB 0 RET FCB 0 N1 FCB 0 P1 FDB 0 P2 FDB 0 DR FCB 0 COL FCB 0 CST FCB 0 UCCV FDB 0 UCCH FDB 0 FLGL FCB 0 ADOBD FDB 0 ADOBP FDB 0 MTR FCB 0 COBJ FCB 0 X1 FDB 0 Y1 FDB 0 NOBJ FCB 0 NBAL FCB 0 NRES FCB 0 NTRU FCB 0 NFLG FCB 0 NFLD FCB 0 NCBV FCB 0 NCBH FCB 0 NPPT FCB 0 K FDB 0 A1 FDB 0 A2 FDB 0 DX FCB 0 DY FCB 0 DS FCB 0 CT3 FCB 0 END ////// FAB4____.2__ MID EQU $A000 FOP EQU $DE80 MOD0 EQU $9EE0 MOD2 EQU $9EEB FBAF EQU $96F0 CLINE EQU $9B8D CLIN1 EQU $9B94 APPEL JSR MOD2 LDA #254 ANDA $E7C3 STA $E7C3 LDX #MID LDD #0 AP1 STD ,X++ CMPX #FOP+2 BNE AP1 JSR FBAF JSR MOD0 SWI ORG $9280 CAR1 FCB 1,0,0,0 CRS1 FCB 4,$30,190,114,191,116,0 CAR2 FCB 5,0,18,136,22,136,18,0 CRS2 FCB 5,$30,141,32,34,36,30,0 CAR3 FCB 9,0,34,136,38,136,34 FCB 136,38,136,34,0 CRS3 FCB 5,$30,141,48,50,52,46,0 BAL FCB 11,$C6,138,139,18,11,38 FCB 12,34,12,38,11,18,0 CBV FCB 6,$F6,143,18,252,204,22 FCB 137,7,$34,32,144,32,144,32 FCB 144,32,0 CBH FCB 6,$F6,141,16,250,202,20 FCB 143,7,$33,38,150,38,150,38 FCB 150,38,0 TRU FCB 8,$35,138,34,11,36,13,38 FCB 15,32,0 FLIP FCB 22,$6,170,137,18,9,10,9,18 FCB 9,10,9,18,11,12,13,14,29 FCB 14,21,14,29,14,183 FLPF FCB 27,$C6,154,18,139,10,27,10 FCB 19,10,27,10,139,12,13,22 FCB 143,14,143,22,143,14,143 FCB 22,143,22,23,24,9,0 PORT FCB 7,$F6,11,16,11,202,15,20 FCB 15,2,$C8,142,46,0 PASS FCB 2,$3C,8,65,6,$30,190,19 FCB 144,14,13,12,0 GCHP FCB 32,$3A,28,139,12,19,10,139 FCB 26,137,10,17,8,137,24,143 FCB 8,23,14,143,30,141,14,21 FCB 12,139,28,27,26,25,24,31 FCB 30,21,16,$CA,140,12,138,16 FCB 137,28,138,24,163,30,140 FCB 26,141,22,140,10,0 PCHP FCB 24,$3B,13,14,13,12,13,28 FCB 11,12,11,10,11,26,9,10,9,8 FCB 9,24,15,8,15,14,15,22 FCB 18,$CB,148,29,8,17,11,21 FCB 10,9,12,11,12,9,10,21,11 FCB 17,8,29,0 PPT FCB 8,$32,34,196,38,196,34,196 FCB 38,150,7,$C6,120,88,17,34 FCB 19,124,92,0 RES FCB 6,$36,142,124,44,74,120,40 FCB 13,$6,140,141,62,140,58 FCB 140,62,140,58,140,62,177 FCB 138,27,$C6,62,140,58,149 FCB 14,13,14,156,10,9,10 FCB 156,14,13,14,156,10,9,10 FCB 156,14,13,14,156,10,9,10,0 TRG FCB 50,$36,14,21,124,20,11,12 FCB 19,10,19,10,19,10,19,10,19 FCB 10,11,10,9,8,14,15,8,15,8 FCB 15,8,15,8,15,8,15,8,15,8 FCB 15,8,15,8,15,8,15,8,15,8 FCB 15,8,15,8,15,29,$C7,138,11 FCB 12,11,12,11,12,11,12,11,12 FCB 11,12,11,12,11,12,11,12,11 FCB 12,11,12,11,12,11,12,11,12 FCB 0 OBV FCB 16,$36,18,19,116,21,30,23 FCB 112,17,156,100,11,10,9,96 FCB 15,14,0 OBD FCB 16,$36,19,28,85,30,23,24 FCB 81,18,148,14,77,12,11,10 FCB 73,8,0 CAS1 FCB 9,$3D,34,140,38,140,34,140 FCB 38,140,34,0 CAS2 FCB 9,$CE,34,140,38,140,34,140 FCB 38,140,34,0 CAS3 FCB 9,$FF,34,140,38,140,34,140 FCB 38,140,34,0 FIN FCB 0 ORG $962A TBPG FDB 128,BAL,$4142 FDB 128,TRU,$4145 FDB 64,CAS1,$4170 FDB 64,CAS2,$4173 FDB 64,CAS3,$4176 FDB 1,FLPF,$4410 FDB $180,FLPF,$4416 FDB 32,PORT,$4507 FDB 128,PASS,$4583 FDB 32,PPT,$464E FDB 128,CBH,$48C1 FDB 16,CBV,$4785 FDB 16,GCHP,$4918 FDB 1,PCHP,$4CD8 FDB 32,RES,$4B4E FDB 16,TRG,$4E61 FDB $108,TRG,$4E66 FDB 16,OBV,$4FD1 FDB 128,OBD,$5025 FDB $101,OBD,$5025 FDB 32,CRS1,$5682 FDB 64,CRS2,$56D5 FDB 128,CRS3,$5700 FDB 128,CLINE,$568C FDB 0 ORG $9BB0 TBTCO FDB 4,BAL,BAL FDB 12,TRU,TRU FDB 48,CAS1,CAS1 FDB 52,CAS2,CAS2 FDB 56,CAS3,CAS3 FDB 16,FLIP,FLPF FDB 22,FLIP,FLPF FDB 36,PORT,PORT FDB 68,PASS,PASS FDB 28,CBH,CBH FDB 24,CBV,CBV FDB 64,GCHP,GCHP FDB 60,PCHP,PCHP FDB 32,PPT,PPT FDB 8,RES,RES FDB 44,TRG,TRG FDB 42,TRG,TRG FDB 72,OBV,OBV FDB 76,OBD,OBD FDB 82,OBD,OBD FDB 1,CAR1,CRS1 FDB 1,CAR2,CRS2 FDB 1,CAR3,CRS3 FDB 0,CLIN1,CLINE ORG $9C70 TBOBJ FDB 0,0,BAL,0,RES,0,TRU,0 FDB FLIP,0,FLIP,128,CBV,0 FDB CBH,0,PPT,0,PORT,0,TRG,128 FDB TRG,0,CAS1,0,CAS2,0,CAS3,0 FDB PCHP,0,GCHP,0,PASS,0 FDB OBV,0,OBD,0,OBD,128 END ///// JEU1____.4__ FOP EQU $DE80 ORG $99D0 AFTXT TFR Y,U AFT1 LDA ,X+ CMPA #33 BEQ AFTF CMPA #94 BNE AFT2 LEAY 320,Y BRA AFTXT AFT2 SUBA #32 LDB #8 MUL PSHS X,U LDX $60CF LEAX D,X LDA #8 AFT3 LDB ,X+ STB ,U LEAU -40,U DECA BNE AFT3 PULS X,U LEAU 1,U BRA AFT1 AFTF RTS AFPGJ LDY #$4899 LDX #TBAF JSR AFTXT RTS TBAF FCC /JOUEUR1:000000^^^JOUEUR2/ FCC /:000000^^^JOUEUR3:000000/ FCC /^^^JOUEUR4:000000^^^BONU/ FCC /S 000000^^SPECIAL/ FCC /^^EXTRA!/ ORG $9A7D JEU JSR AFPGJ BRA J3 J1 JSR $E806 CMPB #13 BEQ J4 CMPB #32 BNE J1 LEAX 1,X CMPX #NB4+1 BNE J2 J3 LDX #NB1 LDD #0 STD NB1 STD NB3 J2 LDA #6 STA ,X JSR AFBALS BRA J1 AFBALS PSHS X LDU #$48C8 LDX #NB1 AF1 LDA ,X+ BSR AF2 LEAU 960,U CMPX #NB4+1 BNE AF1 PULS X,PC AF2 PSHS U LDB #6 STD C1 AF3 TST C1 BEQ AF4 LDY #BAL BSR AF6 DEC C2 DEC C1 BNE AF3 AF4 TST C2 BEQ AF5 LDY #VIDE BSR AF6 DEC C2 BNE AF4 AF5 PULS U,PC AF6 LEAU 1,U PSHS U LDA #8 AF7 LDB ,Y+ STB ,U LEAU 40,U DECA BNE AF7 PULS U,PC J4 LDX #FOP LDD #FFLIP STD PNTFLP LDD #FCBV STD PNTCBV LDD #FCBH STD PNTCBH LDD #FTRU STD PNTTRU LDD #FPPT STD PNTPPT LDD #FRES STD PNTRES LDD #0 STD NCBV STD NPPT STD NFLP J5 LDA ,X+ LBEQ J5A TFR A,B LDU ,X++ ANDA #$E0 LSRA LSRA LSRA LSRA LSRA STA BT ANDB #$1F CMPB #1 LBEQ PREPB CMPB #2 LBEQ PREPR CMPB #3 LBEQ PREPT CMPB #4 LBEQ PREPFL CMPB #5 LBEQ PREPFL CMPB #6 LBEQ PREPCV CMPB #7 LBEQ PREPCH CMPB #8 LBEQ PREPPT BRA J5 SP1 LDD #0 LEAU -$4000,U S1A CMPU #40 BLT S1B LEAU -40,U INCB BRA S1A S1B STD 2,Y TFR U,D LDA #8 MUL STD ,Y CLRA LDB BT ADDD ,Y STD ,Y LDU #TBBT LDB BT LDB B,U STB BT RTS PREPB STU UBC LDY #XBC JSR SP1 LDB BT STB BTC LDD #$3800 STD M1BC LDD #$7C00 STD M2BC LDB BTC PR1A LSLB LBCS J5 LSR M1BC ROR M1BC+1 LSR M2BC ROR M2BC+1 BRA PR1A TBBT FCB 128,64,32,16,8,4,2,1 PREPR LDY PNTRES STU 4,Y JSR SP1 CLR DECR LDD #$3000 STD 6,Y LDD #$0C00 STD 8,Y LDD #$FF00 STD 10,Y PR2A LSL BT LBCS PR2B LSR 6,Y ROR 7,Y LSR 8,Y ROR 9,Y LSR 10,Y ROR 11,Y BRA PR2A PR2B LEAY 12,Y STY PNTRES INC NRES JMP J5 PREPCV LDY PNTCBV STU 4,Y JSR SP1 LDB BT STB 6,Y LDA #$F STA 7,Y INC NCBV LEAY 8,Y STY PNTCBV JMP J5 PREPCH LDY PNTCBH STU 4,Y JSR SP1 LDB BT STB 6,Y LDA #$F STA 7,Y INC NCBH LEAY 8,Y STY PNTCBH JMP J5 PREPPT LDY PNTPPT STU 4,Y JSR SP1 LDD #$F800 PR10A LSL BT BCS PR10B LSRA RORB BRA PR10A PR10B STD 6,Y LDA #$F STA 8,Y INC NPPT LEAY 9,Y STY PNTPPT JMP J5 PREPT LDY PNTTRU STU 4,Y JSR SP1 LDB BT STB 6,Y INC NTRU LEAY 7,Y STY PNTTRU JMP J5 PREPFL SUBB #4 LSLB LDY #TBFLP LDY B,Y LDA ,Y+ PSHS X LEAX A,U TFR X,D LDX PNTFLP INC NFLP STD ,X++ PSHS Y TFR X,Y JSR SP1 PULS Y LDA #53 LEAX 4,X PRFL0 LDB ,Y+ STB ,X+ DECA BNE PRFL0 LDU PNTFLP STX PNTFLP LDA BT LEAX 7,U PRFL3 LSL BT BEQ PRFL6 LDB #13 PSHS X PRFL4 LDA #3 LSR ,X+ PRFL5 ROR ,X+ DECA BNE PRFL5 DECB BNE PRFL4 PULS X BRA PRFL3 PRFL6 PULS X JMP J5 J5A RMB 3 BAL FDB 0,$1C3E,$3E3E,$1C00 VIDE FDB 0,0,0,0 C1 FCB 0 C2 FCB 0 NB1 FCB 0 NB2 FCB 0 NB3 FCB 0 NB4 FCB 0 NCBV FCB 0 NCBH FCB 0 NPPT FCB 0 NTRU FCB 0 NFLP FCB 0 NRES FCB 0 PNTFLP FDB 0 PNTCBV FDB 0 PNTCBH FDB 0 PNTTRU FDB 0 PNTPPT FDB 0 PNTRES FDB 0 M1 FDB 0 BT FCB 0 M1BC FDB 0 M2BC FDB 0 UBC FDB 0 BTC FCB 0 XBC FDB 0 YBC FDB 0 XT FDB 0 YT FDB 0 M1R FDB 0 M2R FDB 0 UR FDB 0 X1R FDB 0 Y1R FDB 0 X2R FDB 0 DECR FDB 0 FFLIP RMB 6*59 FCBV RMB 5*8 FCBH RMB 5*8 FTRU RMB 5*7 FPPT RMB 5*9 FRES RMB 12*3 TBFLP FDB FLIPG,FLIPD FLIPG FCB 0,-1 FDB $1C00,$0000,$2300,$0000 FDB $4080,$0000,$4040,$0000 FDB $4030,$0000,$4008,$0000 FDB $2006,$0000,$1C01,$0000 FDB $0380,$8000,$0060,$6000 FDB $001C,$1000,$0003,$1000 FDB $0000,$E000 FLIPD FCB -3,0 FDB $0000,$1C00,$0000,$6200 FDB $0000,$8100,$0001,$0100 FDB $0006,$0100,$0008,$0100 FDB $0030,$0200,$0040,$1C00 FDB $0080,$E000,$0303,$0000 FDB $041C,$0000,$0460,$0000 FDB $0380,$0000 FIN FCB 0 END ///// JEU2____.4__ JEU EQU $9A7D AF2 EQU $9AC0 FOP EQU $DE80 ORG $9560 J5A CLR POSFLG CLR POSFLD LDD #0 STD BONUS STA BONUS+2 LDX #SC1 J5AA STA ,X+ CMPX #SC1+16 BNE J5AA STD SPECIA STD SPECIA+2 STD EXTRA STD EXTRA+2 LDX #FETAT LDA #$F J5AB STA ,X+ CMPX #FETAT+75 BNE J5AB JSR SP3 J6 CLR PNTJ CLR FLJEU J7 LDX #NB1 LDA PNTJ LDB A,X LBEQ J14 INC FLJEU JSR AFLIN LDA PNTJ LDX #SPECIA LDB A,X STB CSPE LDX #EXTRA LDB A,X STB CEXT AFSPE RMB 6 LDA PNTJ LDX #SC1 LSLA LSLA LEAX A,X LDU ,X STU SCORE LDB 2,X STB SCORE+2 LDB #240 MUL ADDD #$48A1 STD ADSC LDA PNTJ LDB #15 MUL ADDD #FETAT TFR D,Y PSHS Y JSR INIFLP JSR PARTIE PULS Y JSR SETAT LDX #SCORE LDU #BONUS JSR ADT LDU ADSC JSR AFSC LDD #0 STD BONUS STA BONUS+2 LDX #BONUS LDU #$57A1 JSR AFSC JSR AFLIN LDX #NB1 LDA PNTJ DEC A,X LDA A,X LDU ADSC LEAU 39,U JSR AF2 LDA PNTJ LSLA LSLA LDX #SC1 LEAX A,X LDD SCORE STD ,X LDA SCORE+2 STA 2,X LDA PNTJ LDX #SPECIA LDB CSPE STB A,X LDX #EXTRA LDB CEXT STB A,X J14 INC PNTJ LDA PNTJ CMPA #4 LBNE J7 TST FLJEU LBNE J6 LDY #FETAT+60 JSR INIFLP J15 JSR $E806 CMPB #13 BNE J15 RTS SETAT LDX #FCBV LDA NCBV STA C1 SET0 DEC C1 BMI SET1 LDB 7,X STB ,Y+ LEAX 8,X BRA SET0 SET1 LDX #FCBH LDA NCBH STA C1 SET2 DEC C1 BMI SET3 LDB 7,X STB ,Y+ LEAX 8,X BRA SET2 SET3 LDX #FPPT LDA NPPT STA C1 SET4 DEC C1 BMI SET5 LDB 8,X STB ,Y+ LEAX 9,X BRA SET4 SET5 RTS INIFLP JSR AFBAL JSR SP3 JSR AFBAL LDX #FCBV LDA NCBV STA CT IN0 DEC CT BMI IN1 LDU 4,X LDA 6,X LDB ,Y+ STB 7,X JSR AFCBV LEAX 8,X BRA IN0 IN1 LDX #FCBH LDA NCBH STA CT IN2 DEC CT BMI IN3 LDU 4,X LDA 6,X LDB ,Y+ STB 7,X JSR AFCBH LEAX 8,X BRA IN2 IN3 LDX #FPPT LDA NPPT STA CT IN4 DEC CT BMI IN5 LDU 4,X LDD 6,X STD M1 LDB ,Y+ STB 8,X JSR AFPPT LEAX 9,X BRA IN4 IN5 CLRA JSR AFRES LDA POSFLG BEQ IN6 CLR FLFLG JSR DPFLG IN6 LDA POSFLD BEQ IN7 CLR FLFLD JSR DPFLD IN7 RTS AFLIN LDA PNTJ LSLA LSLA LDB #240 MUL ADDD #$48C1 TFR D,U LDA #$7 AFC3 COM ,U INC $E7C3 COM ,U+ DEC $E7C3 DECA BNE AFC3 RTS ORG $9767 AFCBV INC $E7C3 STD C1 LDA #4 STA C3 AFV1 LSR C2 ROR M1 LDB #5 AFV2 LDA C1 TST M1 BPL AFV5 ORA ,U BRA AFV6 AFV5 COMA ANDA ,U AFV6 STA ,U AFV4 LEAU 40,U DECB BEQ AFV4 BPL AFV2 DEC C3 BNE AFV1 DEC $E7C3 RTS AFCBH INC $E7C3 STD C1 LDA #4 STA C3 AFH1 LSR C2 ROR M1 LDB #5 AFH2 LDA C1 TST M1 BPL AFH5 ORA ,U BRA AFH6 AFH5 COMA ANDA ,U AFH6 STA ,U AFH4 LSR C1 BNE AFH3 ROR C1 LEAU 1,U AFH3 DECB BEQ AFH4 BPL AFH2 DEC C3 BNE AFH1 DEC $E7C3 RTS AFPPT INC $E7C3 LDA #4 STD C1 AFP1 LDD M1 LSR C2 BCC AFP2 ORA ,U ORB 1,U BRA AFP3 AFP2 COMA COMB ANDA ,U ANDB 1,U AFP3 STD ,U LEAU 320,U DEC C1 BNE AFP1 DEC $E7C3 RTS AFRES PSHS A LDA DECR BSR AFR0 PULS A STA DECR BSR AFR0 RTS AFR0 LDX #FRES LDA NRES STA CT AFR0A LDU 4,X LEAU 760,U LDA #6 STA C1 CLR C2 AFR1 LDD 6,X EORA ,U EORB 1,U STD ,U LDD 8,X EORA -40,U EORB -39,U STD -40,U LEAU -120,U LDA C2 ADDA DECR CMPA #6 BLO AFR2 SUBA #6 LEAU 40,U AFR2 STA C2 DEC C1 BNE AFR1 LDD 10,X EORA ,U EORB 1,U STD ,U LDD 10,X EORA -40,U EORB -39,U STD -40,U LEAX 12,X DEC CT BNE AFR0A RTS AFBAL PSHS U LDU UB LDD M1B EORA 40,U EORB 41,U STD 40,U LDD M2B EORA 80,U EORB 81,U STD 80,U LDD M2B EORA 120,U EORB 121,U STD 120,U LDD M2B EORA 160,U EORB 161,U STD 160,U LDD M1B EORA 200,U EORB 201,U STD 200,U PULS U,PC SP3 LDD M1BC STD M1B LDD M2BC STD M2B LDD UBC STD UB LDD XBC STD XB LDD YBC STD YB LDA BTC STA BT RTS ADT LDA 2,X ADDA 2,U DAA STA 2,X LDA 1,X ADCA 1,U DAA STA 1,X LDA ,X ADCA ,U DAA STA ,X RTS AFSC LDA #3 STA CT AFSC1 LDA ,X LSRA LSRA LSRA LSRA BSR AFCH LEAU 1,U LDA ,X+ ANDA #15 BSR AFCH LEAU 1,U DEC CT BNE AFSC1 RTS AFCH PSHS U ADDA #16 LDB #8 MUL LDY $60CF LEAY D,Y LDA #8 AFCH1 LDB ,Y+ STB ,U LEAU -40,U DECA BNE AFCH1 PULS U,PC DPFLG RMB 3 DPFLD RMB 3 PARTIE RMB 3 C3 FCB 0 M1B FDB 0 M2B FDB 0 UB FDB 0 XB FDB 0 YB FDB 0 SCORE RMB 3 BONUS RMB 3 SPECIA RMB 4 EXTRA RMB 4 FETAT RMB 75 CSPE FCB 0 CEXT FCB 0 PNTJ FCB 0 FLJEU FCB 0 POSFLG FCB 0 POSFLD FCB 0 FLFLG FCB 0 FLFLD FCB 0 CT FCB 0 SC1 RMB 16 ADSC FDB 0 M2 FDB 0 FIN FCB 0 ORG $9CF3 JMP J5A BAL FDB 0,$1C3E,$3E3E,$1C00 VIDE FDB 0,0,0,0 C1 FCB 0 C2 FCB 0 NB1 FCB 0 NB2 FCB 0 NB3 FCB 0 NB4 FCB 0 NCBV FCB 0 NCBH FCB 0 NPPT FCB 0 NTRU FCB 0 NFLP FCB 0 NRES FCB 0 PNTFLP FDB 0 PNTCBV FDB 0 PNTCBH FDB 0 PNTTRU FDB 0 PNTPPT FDB 0 PNTRES FDB 0 M1 FDB 0 BT FCB 0 M1BC FDB 0 M2BC FDB 0 UBC FDB 0 BTC FCB 0 XBC FDB 0 YBC FDB 0 XT FDB 0 YT FDB 0 M1R FDB 0 M2R FDB 0 UR FDB 0 X1R FDB 0 Y1R FDB 0 X2R FDB 0 DECR FDB 0 FFLIP RMB 6*59 FCBV RMB 5*8 FCBH RMB 5*8 FTRU RMB 5*7 FPPT RMB 5*9 FRES RMB 12*3 END ///// JEU3____.4__ J5A EQU $9560 AFBAL EQU $9871 AFRES EQU $9803 AFSC EQU $98F5 ORG $8F90 TEST LDD #0 STD FLREB STD FLAG0 STD FLSC STD ANGM LDD XB STD XT LDU UB LDA BT STA B1 LDA DR LSLA LDY #TBTST LDY A,Y LDA ,Y+ STA ALPH1 T0 LDB ,Y+ CMPB #-1 BEQ T1 CMPB #-2 BNE T3 LSR B1 BNE T2 ROR B1 LEAU 1,U T2 LDD XT ADDD #1 STD XT BRA T0 T3 LDX YB LEAX B,X STX YT LDA #40 MUL LEAX D,U LDA ,Y+ ADDA ALPH1 STA Z JSR SP4 TSTB BEQ T0 LDX #TBCST JSR [B,X] LDA FLATT BEQ T0 T1 LDA FLAG0 STA FLAG1 STY M1 LDA FLSC BEQ T1A LDX #SCORE LDU ADSC JSR AFSC T1A LDA FLBN BEQ T1B LDX #BONUS LDU #$57A1 JSR AFSC T1B LDA FLOUT LBNE PA2A LDA FLATT LBNE PA2 LDA FLTRN LBNE PA2 LDA FLREB LBNE T4 JSR DEPBAL LDA FLRSF LBEQ PA2 DEC FLRSF CMPA #4 LBNE PA2 LDD #0 STD ALPH INC FLIN JMP PA2 DEPBAL LDU UB LDX XB LDY YB JSR AFBAL LDA DR BITA #8 BNE DEPH BITA #4 BNE DEPB DP1 LDA DR BITA #2 BNE DEPG BITA #1 BNE DEPD DP2 STU UB JSR AFBAL STX XB STY YB RTS DEPH LEAU -40,U LEAY -1,Y BRA DP1 DEPB LEAU 40,U LEAY 1,Y BRA DP1 DEPG LEAX -1,X LSL M1B+1 ROL M1B LSL M2B+1 ROL M2B LSL BT BNE DP2 ROL BT LEAU -1,U DP3 LDD M1B EXG A,B STD M1B LDD M2B EXG A,B STD M2B BRA DP2 DEPD LEAX 1,X LSR M1B ROR M1B+1 LSR M2B ROR M2B+1 LSR BT BNE DP2 ROR BT LEAU 1,U BRA DP3 T4 LDU UB LDA BT STA B1 LDY M1 T4A LDB ,Y+ CMPB #-1 BEQ T6 CMPB #-2 BNE T5 LSR B1 BNE T4A ROR B1 LEAU 1,U BRA T4A T5 LDA #40 MUL LEAX D,U JSR SP4 LDX #TBMUR LDA ,Y+ ADDA ALPH1 LSRB LDB B,X BEQ T4A TFR A,B CLRA ADDD ANGM STD ANGM INC FLREB BRA T4A T6 LDD #0 STD RESX INC FLIN JSR DIV2 SUBB ALPH1 LDA FLRSF BEQ T10 LDA #4 STA FLRSF LDA #$40 CMPB #$40 BEQ T7 BLO T8 NEGA T8 STA ALPH JMP PA2 T7 CLR ALPH JMP PA2 T10 CLRA LSLB SUBB ALPH STB ALPH1 SUBB ALPH BPL T11 INCA NEGB T11 CMPB #$20 LBHI T9 SUBB #$20 NEGB LSRB TSTA BEQ T12 SUBB ALPH1 NEGB BRA T9A T12 ADDB ALPH1 BRA T9A T9 LDB ALPH1 T9A STB ALPH LDX RND LDB ,X ANDB #15 SUBB #8 ADDB ALPH STB ALPH LDD FORC ADDD ELAST BCC T13 LDD #$0 STD ALPH INC FLRSF LDD #$FFFF T13 STD FORC JMP PA2 SP4 CLRB LDA ,X ANDA B1 BNE S4A INC $E7C3 LDA ,X DEC $E7C3 ANDA B1 BNE S4A RTS S4A LDA B1 BITA #$AA BNE S4B LSLA S4B STA M1 LSRA ORA M1 LEAX $6000,X PSHS A ANDA ,X BITA #$AA BEQ S4C ORB #16 S4C BITA #$55 BEQ S4D ORB #8 S4D PULS A ANDA $1F40,X BITA #$AA BEQ S4E ORB #4 S4E BITA #$55 BEQ S4F ORB #2 S4F RTS DIV2 LDA #16 STA CT LDD ANGM STA M2 CLRA DV2A LSLB ROL M2 ROLA CMPA FLREB BLO DV2B SUBA FLREB INCB DV2B DEC CT BNE DV2A RTS DPFLG LDA POSFLG STA POSFL LDA #$2A STA DPFB LDA FLFLG STA POSFLG JMP DPFL DPFLD LDA POSFLD STA POSFL LDA #$2B STA DPFB LDA FLFLD STA POSFLD DPFL LDX #FFLIP LDA NFLP STA CT INC FLBOUC DPFA LDA 6,X DPFB BPL DPFF JSR DFG0 DPFF LEAX 59,X DEC CT BNE DPFA RTS DFG0 JSR AFFLIP LDD XB SUBD 2,X TST 6,X BMI DFG1 COMA COMB SUBD #6 DFG1 CMPD #1 LBLT DFG3 CMPD #19 LBGT DFG3 STB DLX LDD 4,X SUBD YB CMPD #11 LBGT DFG3 CMPD #-12 LBLT DFG3 LDA DLX LDU YB TST POSFL BNE DFG2 LDY #TBFLB CMPB A,Y BLE DFG3 LDY #TBFLH SUBB A,Y BGT DFG3 LEAU B,U LDY #TBALH NEGB PSHS D PSHS B JSR AFBAL PULS B LDA #40 MUL COMA COMB ADDD #1 DFG1A ADDD UB STD UB JSR AFBAL PULS D LDA A,Y TST 6,X BMI DFG1B NEGA DFG1B STA ALPH LDA FOFLP MUL ADDB FOFLP+1 NEGB STB FORC CLR RESX CLR RESY INC FLIN CLR FLRSF STU YB BRA DFG3 DFG2 LDY #TBFLH CMPB A,Y BGE DFG3 LDY #TBFLB SUBB A,Y BLT DFG3 LEAU B,U LDY #TBALB PSHS D PSHS B JSR AFBAL PULS B LDA #40 MUL BRA DFG1A DFG3 DEC POSFL JSR AFFLIP INC POSFL RTS AFFLIP LDU ,X LEAY 7,X LDA #40 LDB POSFL BEQ AFF0 NEGA LEAU 280,U AFF0 STA C1 LDA #13 STA C2 AFF2 LDA #4 PSHS U AFF3 LDB ,Y+ EORB ,U STB ,U+ DECA BNE AFF3 LDA C1 PULS U LEAU A,U DEC C2 BNE AFF2 RTS PA2 RMB 3 PA2A RMB 3 PA3A RMB 3 POSFL FCB 0 DLX FCB 0 ALPH FDB 0 FORC FDB 0 RESX FCB 0 RESY FCB 0 TBFLH FCB 0,6,7,7,7,8,8,9,9,9,10,10 FCB 11,11,11,11,11,10,9,3 TBFLB FCB 0,-7,-8,-8,-8,-9,-9,-10 FCB -10,-10,-11,-11,-12,-12 FCB -12,-12,-12,-11,-10,-4 TBALH FCB 0,$A0,$90,$80,$7E,$7C,$7A FCB $78,$76,$74,$72,$70,$6E FCB $6C,$69,$66,$62,$5A,$4A TBALB FCB 0,93,112,128,130,132,134 FCB 136,138,140,142,144,146 FCB 150,155,160,165,170,192 FLBOUC FCB 0 BUFF FCB 0 FLRSF FCB 0 FOLAT FCB 0 FOFRN FCB 0 RND FDB 0 SX FCB 0 SY FCB 0 DX FCB 0 DY FCB 0 DR FCB 0 ANGM FDB 0 B1 FCB 0 Z FCB 0 FLREB FCB 0 FLOUT FCB 0 FLAG0 FCB 0 FLTRN FCB 0 FLSC FCB 0 FLBN FCB 0 FLAG1 FCB 0 ALPH1 FDB 0 FLATT FCB 0 FLIN FCB 0 TBANG FCB 0,1,1,4,1,4,1,3,1,2,1,2 FCB 2,3,3,4,1,1,4,3,3,2,2,1 FCB 3,1,4,1,4,1,1,0,1,0 TBTST FDB TBN,TBD,TBG,0,TBB,TBDB FDB TBGB,0,TBH,TBDH,TBGH TBN FCB -1 TBD FCB 0 FCB -2,-2,-2,-2,-2,1,$A0,5,$60 FCB -2,2,$90,3,$80,4,$70,-1 FCB -2,-2,-2,-2,0,$B0,6,$50,-2 FCB 0,$A8,6,$58,-2,1,$98,5,$68 FCB -1 TBG FCB $80 FCB 2,$F0,3,$0,4,$10,-2,1,$E0 FCB 5,$20,-1,1,$E8,5,$18,-2,0 FCB $D8,6,$28,-2,0,$D0,6,$30 FCB -1 TBB FCB $40 FCB -2,5,$20,-2,6,$30,-2,6,$40 FCB -2,6,$50,-2,5,$60,-1,4,$10 FCB 5,$18,-2,6,$28,-2,-2,-2,-2 FCB 6,$58,-2,4,$70,5,$68,-1 TBH FCB $C0 FCB -2,1,$E0,-2,0,$D0,-2,0,$C0 FCB -2,0,$B0,-2,1,$A0,-1,1,$E8 FCB 2,$F0,-2,0,$D8,-2,-2,-2,-2 FCB 0,$A8,-2,1,$98,2,$90,-1 TBDB FCB $20 FCB -2,-2,-2,6,$40,-2,6,$50,-2 FCB 5,$60,6,$58,-2,3,$80,4,$70 FCB 5,$68,-1,-2,6,$28,-2,6,$30 FCB -2,-2,-2,-2,1,$98,2,$90,-1 TBDH FCB $E0 FCB -2,-2,-2,0,$C0,-2,0,$B0,-2 FCB 1,$A0,0,$A8,-2,3,$80,2,$90 FCB 1,$98,-1,-2,0,$D8,-2,0,$D0 FCB -2,-2,-2,-2,4,$70,5,$68,-1 TBGB FCB $60 FCB 3,$0,4,$10,5,$18,-2,5,$20 FCB 6,$28,-2,6,$30,-2,6,$40,-1 FCB 1,$E8,2,$F0,-2,-2,-2,-2 FCB 6,$50,-2,6,$58,-1 TBGH FCB $A0 FCB 3,$0,2,$F0,1,$E8,-2,1,$E0 FCB 0,$D8,-2,0,$D0,-2,0,$C0,-1 FCB 4,$10,5,$18,-2,-2,-2,-2 FCB 0,$B0,-2,0,$A8,-1 TBMUR FCB 0,-1,0,0,0,0,-1,0,0,0 FCB 0,0,0,0,0,0 TBCST RMB 32 FIN FCB 0 ORG $DF80 INCP FCB 0 FROTT FDB 0 ELAST FDB 0 ORG $DF8F FOFLP FDB 0 ORG $992D JMP DPFLG JMP DPFLD PARTIE RMB 3 C3 FCB 0 M1B FDB 0 M2B FDB 0 UB FDB 0 XB FDB 0 YB FDB 0 SCORE RMB 3 BONUS RMB 3 SPECIA RMB 4 EXTRA RMB 4 FETAT RMB 75 CSPE FCB 0 CEXT FCB 0 PNTJ FCB 0 FLJEU FCB 0 POSFLG FCB 0 POSFLD FCB 0 FLFLG FCB 0 FLFLD FCB 0 CT FCB 0 SC1 RMB 16 ADSC FDB 0 M2 FDB 0 ORG $9CF3 JMP J5A BAL FDB 0,$1C3E,$3E3E,$1C00 VIDE FDB 0,0,0,0 C1 FCB 0 C2 FCB 0 NB1 FCB 0 NB2 FCB 0 NB3 FCB 0 NB4 FCB 0 NCBV FCB 0 NCBH FCB 0 NPPT FCB 0 NTRU FCB 0 NFLP FCB 0 NRES FCB 0 PNTFLP FDB 0 PNTCBV FDB 0 PNTCBH FDB 0 PNTTRU FDB 0 PNTPPT FDB 0 PNTRES FDB 0 M1 FDB 0 BT FCB 0 M1BC FDB 0 M2BC FDB 0 UBC FDB 0 BTC FCB 0 XBC FDB 0 YBC FDB 0 XT FDB 0 YT FDB 0 M1R FDB 0 M2R FDB 0 UR FDB 0 X1R FDB 0 Y1R FDB 0 X2R FDB 0 DECR FDB 0 FFLIP RMB 6*59 FCBV RMB 5*8 FCBH RMB 5*8 FTRU RMB 5*7 FPPT RMB 5*9 FRES RMB 12*3 END ///// JEU4____.4__ JEU EQU $9A7D J5A EQU $9560 AFBAL EQU $9871 AFRES EQU $9803 AFSC EQU $98F5 ADT EQU $98DF TEST EQU $8F90 DPFLG EQU $921C DPFLD EQU $9230 TBSC EQU $DF20 AFPPT EQU $97D8 AFCBH EQU $979C AFCBV EQU $9767 ORG $8B00 DIV1 LDA #8 STA CT CLRA LDB M1 BEQ DV1C LDB INCP DV1A LSLB ROLA CMPA M1 BLO DV1B SUBA M1 INCB DV1B DEC CT BNE DV1A STB M1 DV1C RTS TIMER LDA FLATT BEQ TIM1 DEC FLATT TIM1 CLR $605E CLRB LDA $E7C8 LSRA BCC TIM2 LDX $6079 LDB ,X TIM2 STB BUFF CLR $6067 JMP $E830 SPEEXT RMB 3 CS0 RTS CS1 INC FLREB CLRA LDB Z ADDD ANGM STD ANGM RTS FREIN LDA FORC ADDA FR BCC FR1 LDA #$FF FR1 STA FORC RTS CS2 LDA ALPH SUBA #$40 LBMI CS2FF PSHS U LDX #FPPT LDB NPPT STB CT CS2A LDD XT SUBD ,X BMI CS2F CMPD #4 BGT CS2F LDD YT SUBD 2,X BMI CS2F CMPD #24 BGT CS2F LDA #1 CS2C SUBB #8 BMI CS2B LSLA BRA CS2C CS2B PSHS X,A JSR FREIN LDX #SCORE LDU #TBSC INC FLSC JSR ADT PULS X,A COMA ANDA 8,X STA 8,X BNE CS2D PSHS X LDX #BONUS LDU #TBSC+3 INC FLBN JSR ADT PULS X LDA #65 JSR SPEEXT LDA #$F CS2D STA 8,X LDU 4,X LDD 6,X STD M1 LDB 8,X JSR AFPPT PULS U,PC CS2F LEAX 9,X DEC CT LBNE CS2A PULS U,PC CS2FF RTS CS3 PSHS U LDX #FCBH LDB NCBH STB CT CS3A LDD YT CMPD 2,X BNE CS3F LDD XT SUBD ,X BMI CS3F CMPD #22 BGT CS3F LDA #1 CS3C SUBB #6 BMI CS3B LSLA BRA CS3C CS3B PSHS X,A LDX #SCORE LDU #TBSC+6 INC FLSC JSR ADT PULS X,A COMA ANDA 7,X BNE CS3G PSHS X LDX #BONUS LDU #TBSC+9 INC FLBN JSR ADT PULS X LDA #66 JSR SPEEXT LDA #$F CS3G STA 7,X LDU 4,X LDD 6,X JSR AFCBH PULS U JMP CS1 CS3F LEAX 8,X DEC CT LBNE CS3A PULS U,PC CS4 PSHS U LDX #FCBV LDB NCBV STB CT CS4A LDD XT CMPD ,X BNE CS4F LDD YT SUBD 2,X BMI CS4F CMPD #22 BGT CS4F LDA #1 CS4C SUBB #6 BMI CS4B LSLA BRA CS4C CS4B PSHS X,A LDX #SCORE LDU #TBSC+12 INC FLSC JSR ADT PULS X,A COMA ANDA 7,X BNE CS4G PSHS X LDX #BONUS LDU #TBSC+15 INC FLBN JSR ADT PULS X LDA #67 JSR SPEEXT LDA #$F CS4G STA 7,X LDD 6,X LDU 4,X JSR AFCBV PULS U JMP CS1 CS4F LEAX 8,X DEC CT LBNE CS4A PULS U,PC PARTIE CLR FLATT LDD #$FFFF STD FORC LDD #0 STD ALPH STD RESX STD BUFF STD RND STA FLAG1 STA FLIN STA FLREB STA FLRSF LDX #TIMER STX $6027 LDA $6019 ORA #32 STA $6019 INC FLIN PA2 LDA BUFF CMPA #2 BNE PA3 PA2A LDA $6019 ANDA #$DF STA $6019 RTS PA3 CMPA TCB LBEQ BAIRES CMPA TCL LBEQ LACRES PA3A CLR FLFLG CLR FLFLD CLR FLBOUC CMPA TCG BNE PA4 INC FLFLG PA4 CMPA TCD BNE PA5 INC FLFLD PA5 LDA FLFLG CMPA POSFLG BEQ PA6 JSR DPFLG PA6 LDA FLFLD CMPA POSFLD BEQ PA7 JSR DPFLD PA7 LDA FLBOUC BNE PA8 LDD RND ADDD #1 ANDA #$3F STD RND LDD FORC TST DX BNE BOUC4 CMPA #$F0 BLO BOUC4 CMPA #$F8 BLO BOUC2 BOUC0 LDX #6 BOUC1 LEAX -1,X BNE BOUC1 SUBD DT CMPD #$F800 BHI BOUC0 BOUC2 LDX #3 BOUC3 LEAX -1,X BNE BOUC3 NOP NOP SUBD DT CMPD #$F000 BHI BOUC2 BOUC4 SUBD DT BHI BOUC4 PA8 LDA FLATT LBNE PA2 LDA FLIN LBNE PA18 LDA FOFRN LDB FORC MUL LSRA RORB LSRA RORB LSRA RORB STD M1 LDA ALPH SUBA #$40 BMI PA9 LDD FORC ADDD M1 BCC PA9A LDD #$FFFF TST DX BNE PA9A STD FORC LDD #0 STD ALPH STD RESX BRA PA18 PA9 LDD FORC SUBD M1 BLO PA9B CMPD #$500 BHI PA9A PA9B LDD #$500 PA9A STD FORC PA10 ADDD FROTT BCC PA10A LDD #$FFFF PA10A STD FORC LDB FOLAT MUL LSRA RORB LSRA RORB LSRA RORB TST ALPH BMI PA11 COMA COMB ADDD #1 PA11 ADDD ALPH STD ALPH PA12 LDA RESX CMPA RESY BEQ PA16 BHI PA17 DEC RESY LDA SY STA DR JMP TEST PA17 DEC RESX LDA SX STA DR JMP TEST PA16 TSTA BEQ PA18 DEC RESX DEC RESY LDA SX ADDA SY STA DR JMP TEST PA18 LDD #$101 STD SX LDA ALPH BPL PA20 NEGA INC SX PA20 CMPA #$40 BLO PA21 SUBA #$80 NEGA INC SY PA21 LDX #TBANG LSRA ANDA #$FE LDD A,X STD RESX STD DX LSL SY LSL SY LDB DX ADDB DY STB M1 JSR DIV1 LDB M1 LDA DX MUL STB FOLAT LDB M1 LDA DY MUL STB FOFRN TST FLIN LBEQ PA12 CLR FLIN JMP PA8 BAIRES PSHS A LDA DECR CMPA #6 BEQ BRF INCA JSR AFRES BRF PULS A CLR BUFF JMP PA3A LACRES LDB DECR LBEQ PA3A PSHS A LDX #FRES LDA NRES STA C1 LAC1 LDD XB SUBD ,X ADDD #4 BMI LR1 CMPD #9 BGT LR1 LDD YB SUBD 2,X ADDD #6 BMI LR1 CMPD #6 BGT LR1 PSHS B JSR AFBAL PULS B LDA #40 MUL COMA COMB ADDD #1 ADDD UB STD UB LDD 2,X SUBD #6 STD YB JSR AFBAL LDA #$80 STA ALPH LDA DECR LDB #27 MUL ADDB #83 NEGB STB FORC LDD #0 STD RESX INC FLIN CLR FLRSF LR1 LEAX 12,X DEC C1 BNE LAC1 CLRA JSR AFRES INC FLBOUC PULS A CLR BUFF JMP PA3A FIN FCB 0 ORG $935A JMP PA2 JMP PA2A JMP PA3A POSFL FCB 0 DLX FCB 0 ALPH FDB 0 FORC FDB 0 RESX FCB 0 RESY FCB 0 ORG $93B9 FLBOUC FCB 0 BUFF FCB 0 FLRSF FCB 0 FOLAT FCB 0 FOFRN FCB 0 RND FDB 0 SX FCB 0 SY FCB 0 DX FCB 0 DY FCB 0 DR FCB 0 ANGM FDB 0 B1 FCB 0 Z FCB 0 FLREB FCB 0 FLOUT FCB 0 FLAG0 FCB 0 FLTRN FCB 0 FLSC FCB 0 FLBN FCB 0 FLAG1 FCB 0 ALPH1 FDB 0 FLATT FCB 0 FLIN FCB 0 TBANG FCB 0,1,1,4,1,4,1,3,1,2,1,2 FCB 2,3,3,4,1,1,4,3,3,2,2,1 FCB 3,1,4,1,4,1,1,0,1,0 ORG $DF80 INCP FCB 0 FROTT FDB 0 ELAST FDB 0 DT FDB 0 FR FCB 0 TR FDB 0 GCHP FDB 0 PCHP FDB 0 SSTR FCB 0 RMB 4 TCB FCB 0 TCL FCB 0 TCG FCB 0 TCD FCB 0 ORG $992D JMP DPFLG JMP DPFLD JMP PARTIE C3 FCB 0 M1B FDB 0 M2B FDB 0 UB FDB 0 XB FDB 0 YB FDB 0 SCORE RMB 3 BONUS RMB 3 SPECIA RMB 4 EXTRA RMB 4 FETAT RMB 75 CSPE FCB 0 CEXT FCB 0 PNTJ FCB 0 FLJEU FCB 0 POSFLG FCB 0 POSFLD FCB 0 FLFLG FCB 0 FLFLD FCB 0 CT FCB 0 SC1 RMB 16 ADSC FDB 0 M2 FDB 0 ORG $9CF3 JMP J5A BAL FDB 0,$1C3E,$3E3E,$1C00 VIDE FDB 0,0,0,0 C1 FCB 0 C2 FCB 0 NB1 FCB 0 NB2 FCB 0 NB3 FCB 0 NB4 FCB 0 NCBV FCB 0 NCBH FCB 0 NPPT FCB 0 NTRU FCB 0 NFLP FCB 0 NRES FCB 0 PNTFLP FDB 0 PNTCBV FDB 0 PNTCBH FDB 0 PNTTRU FDB 0 PNTPPT FDB 0 PNTRES FDB 0 M1 FDB 0 BT FCB 0 M1BC FDB 0 M2BC FDB 0 UBC FDB 0 BTC FCB 0 XBC FDB 0 YBC FDB 0 XT FDB 0 YT FDB 0 M1R FDB 0 M2R FDB 0 UR FDB 0 X1R FDB 0 Y1R FDB 0 X2R FDB 0 DECR FDB 0 FFLIP RMB 6*59 FCBV RMB 5*8 FCBH RMB 5*8 FTRU RMB 5*7 FPPT RMB 5*9 FRES RMB 12*3 END ///// JEU5____.4__ JEU EQU $9A7D J5A EQU $9560 AFBAL EQU $9871 ADT EQU $98DF TBSC EQU $DF20 CS0 EQU $8B45 CS1 EQU $8B46 CS2 EQU $8B62 CS3 EQU $8BE6 CS4 EQU $8C54 AF2 EQU $9AC0 CMBSPE EQU $DF60 CMBEXT EQU $DF68 AFTXT EQU $99D0 ORG $8820 CS5 LDA FLAG0 ORA FLAG1 ANDA #1 LBNE CS5FF PSHS U LDX #FTRU LDB NTRU STB CT CS5A LDD XT SUBD ,X LBMI CS5F CMPD #6 LBGT CS5F LDD YT SUBD 2,X LBMI CS5F CMPD #6 LBGT CS5F JSR AFBAL LDD ,X STD XB LDD 2,X STD YB LDD 4,X STD UB LDD #$3800 STD M1B LDD #$7C00 STD M2B LDA 6,X STA BT CS5B LSLA BEQ CS5C LSR M1B ROR M1B+1 LSR M2B ROR M2B+1 BRA CS5B CS5C JSR AFBAL LDX #SCORE LDU #TBSC+18 INC FLSC JSR ADT LDX #BONUS LDU #TBSC+21 INC FLBN JSR ADT LDA #72 JSR SPEEXT LDD #0 STD ALPH STD RESX INC FLIN LDD #$FFFF STD FORC LDA #5 STA FLATT PULS U BRA CS5FF CS5F LEAX 7,X DEC CT LBNE CS5A PULS U,PC CS5FF LDA #1 ORA FLAG0 STA FLAG0 RTS CS7 LDA FORC CMPA SSTR LBHI CS1 LDA FLAG0 BITA #2 BNE CS7F INC FLIN CLR FLRSF LDD TR STD FORC LDX RND LDA ,X ANDA #$1F SUBA #16 LDB Z SUBB ALPH1 SUBB #40 BPL CS7A SUBA #$40 CS7A ADDA #$A0 STA ALPH INC FLTRN PSHS U LDX #SCORE LDU #TBSC+24 INC FLSC JSR ADT LDA FLAG0 ORA #2 STA FLAG0 PULS U CS7F RTS CS8 LDA FLAG0 ORA FLAG1 ANDA #4 BNE CS8F LDA ALPH SUBA #$10 CMPA #$60 BLO CS8B CMPA #$80 BLO CS8A CMPA #$D0 BHI CS8A CS8B JMP CS1 CS8A PSHS U LDX #SCORE LDU #TBSC+27 INC FLSC JSR ADT LDA #71 JSR SPEEXT PULS U CS8F LDA FLAG0 ORA #4 STA FLAG0 RTS CS9 INC FLOUT RTS CS10 LDX GCHP LDA #8 PSHS U LDU #TBSC+30 CS10A STA M1 ANDA FLAG0 BNE CS10F STX FORC LDX #SCORE INC FLSC JSR ADT LDA M1 ORA FLAG0 STA FLAG0 CLR FLRSF CS10F PULS U JMP CS1 CS11 LDX PCHP LDA #16 PSHS U LDU #TBSC+33 BRA CS10A CS12 LDA ALPH SUBA #$60 LBMI CS1 RTS CS13 LDX #TBSC+36 LDD #$2044 CS13A STD M1 LDA FLAG0 ORA FLAG1 ANDA M1 BNE CS13F PSHS U TFR X,U LDX #SCORE INC FLSC JSR ADT LDX #BONUS LEAU 3,U INC FLBN JSR ADT LDA M1+1 JSR SPEEXT PULS U CS13F LDA FLAG0 ORA M1 STA FLAG0 RTS CS14 LDX #TBSC+42 LDD #$4045 BRA CS13A CS15 LDX #TBSC+48 LDD #$8046 BRA CS13A SPEEXT PSHS X,U,Y PSHS A LDB CSPE LDX #CMBSPE CMPA B,X BNE SE1 INCB CMPB #6 BNE SE2 LDX #BONUS LDU #TBSC+54 INC FLBN JSR ADT CLRB SE2 STB CSPE JSR AFSPE SE1 PULS A LDX #CMBEXT LDB CEXT CMPA B,X BNE SE3 INCB CMPB #6 BNE SE4 LDX #BONUS LDU #TBSC+57 INC FLBN JSR ADT LDB PNTJ LDX #NB1 LDA B,X CMPA #6 BEQ SE5 INC B,X LDU ADSC LEAU 40,U JSR AF2 SE5 CLRB SE4 STB CEXT JSR AFEXT SE3 PULS X,U,Y,PC AFSPE PSHS X,Y,U LDY #$5B5C LDX #CMBSPE LDB CSPE BRA AFSE1 AFEXT PSHS X,Y,U LDY #$5DDC LDX #CMBEXT LDB CEXT AFSE1 PSHS B LDA B,X SUBA #65 LDB #10 MUL LDX #TBCMB LEAX D,X PULS B ADDB #49 STB ,X JSR AFTXT PULS X,Y,U,PC TBCMB FCC /0:PASSAGE!/ FCC /0:C.HORI.!/ FCC /0:C.VERT.!/ FCC /0:CASE C !/ FCC /0:CASE D !/ FCC /0:CASE E !/ FCC /0:PORTE !/ FCC /0:TROU !/ FIN FCB 0 ORG $8B42 JMP SPEEXT ORG $935A+9 POSFL FCB 0 DLX FCB 0 ALPH FDB 0 FORC FDB 0 RESX FCB 0 RESY FCB 0 ORG $93B9 FLBOUC FCB 0 BUFF FCB 0 FLRSF FCB 0 FOLAT FCB 0 FOFRN FCB 0 RND FDB 0 SX FCB 0 SY FCB 0 DX FCB 0 DY FCB 0 DR FCB 0 ANGM FDB 0 B1 FCB 0 Z FCB 0 FLREB FCB 0 FLOUT FCB 0 FLAG0 FCB 0 FLTRN FCB 0 FLSC FCB 0 FLBN FCB 0 FLAG1 FCB 0 ALPH1 FDB 0 FLATT FCB 0 FLIN FCB 0 ORG $9532 TBCST FDB CS0,CS1,CS2,CS3,CS4,CS5 FDB CS1,CS7,CS8,CS9,CS10,CS11 FDB CS12,CS13,CS14,CS15 ORG $DF80 INCP FCB 0 FROTT FDB 0 ELAST FDB 0 DT FDB 0 FR FCB 0 TR FDB 0 GCHP FDB 0 PCHP FDB 0 SSTR FCB 0 ORG $95BF JSR AFSPE JSR AFEXT ORG $992D+9 C3 FCB 0 M1B FDB 0 M2B FDB 0 UB FDB 0 XB FDB 0 YB FDB 0 SCORE RMB 3 BONUS RMB 3 SPECIA RMB 4 EXTRA RMB 4 FETAT RMB 75 CSPE FCB 0 CEXT FCB 0 PNTJ FCB 0 FLJEU FCB 0 POSFLG FCB 0 POSFLD FCB 0 FLFLG FCB 0 FLFLD FCB 0 CT FCB 0 SC1 RMB 16 ADSC FDB 0 M2 FDB 0 ORG $9CF3 JMP J5A BAL FDB 0,$1C3E,$3E3E,$1C00 VIDE FDB 0,0,0,0 C1 FCB 0 C2 FCB 0 NB1 FCB 0 NB2 FCB 0 NB3 FCB 0 NB4 FCB 0 NCBV FCB 0 NCBH FCB 0 NPPT FCB 0 NTRU FCB 0 NFLP FCB 0 NRES FCB 0 PNTFLP FDB 0 PNTCBV FDB 0 PNTCBH FDB 0 PNTTRU FDB 0 PNTPPT FDB 0 PNTRES FDB 0 M1 FDB 0 BT FCB 0 M1BC FDB 0 M2BC FDB 0 UBC FDB 0 BTC FCB 0 XBC FDB 0 YBC FDB 0 XT FDB 0 YT FDB 0 M1R FDB 0 M2R FDB 0 UR FDB 0 X1R FDB 0 Y1R FDB 0 X2R FDB 0 DECR FDB 0 FFLIP RMB 6*59 FCBV RMB 5*8 FCBH RMB 5*8 FTRU RMB 5*7 FPPT RMB 5*9 FRES RMB 12*3 END