| 1 | ORG $6280
|
|---|
| 2 | FCB 0,5,6,'Z-64,$5F,$EC
|
|---|
| 3 | FDB H-$6280 adresse exécution
|
|---|
| 4 | GOTO FDB MYEND-2
|
|---|
| 5 | COLORS FDB 0,15,240,255,3840,3855
|
|---|
| 6 | FDB 4080,4095,1911,826,931,938
|
|---|
| 7 | FDB 2611,2618,3815,123
|
|---|
| 8 | FCB 27,$40,27,$50,27,$60,12
|
|---|
| 9 | FCB 31,32,$28,27,$47,12,27,$68
|
|---|
| 10 | FCB 0
|
|---|
| 11 | FDB 980,4567,23571,9804,13879
|
|---|
| 12 | FCC "ASM"
|
|---|
| 13 | FDB 28486,6480,4889,19687,1225
|
|---|
| 14 |
|
|---|
| 15 | MODCOD NEG <0
|
|---|
| 16 | PSHS U
|
|---|
| 17 | DAA
|
|---|
| 18 | PSHS PC,Y,DP
|
|---|
| 19 | LDD 2,S
|
|---|
| 20 | FCB $71,$35,$F1 NEG >35F1
|
|---|
| 21 | ASLA
|
|---|
| 22 | COMA
|
|---|
| 23 | INCA
|
|---|
| 24 | FCC " Rules" BRA DEVIE
|
|---|
| 25 |
|
|---|
| 26 | FDB 7813,4089,10389,23586,8912
|
|---|
| 27 |
|
|---|
| 28 | RETURN LEAS 4,S
|
|---|
| 29 | FCB $6D,$F0 TST [,S+]
|
|---|
| 30 | LDB -4,S
|
|---|
| 31 | ORA #1 A=$B1
|
|---|
| 32 | BMI LAB1
|
|---|
| 33 | FCB $1B,$19,0
|
|---|
| 34 |
|
|---|
| 35 | LAB2 ROLA
|
|---|
| 36 | PULS U
|
|---|
| 37 | ORCC #$10
|
|---|
| 38 | RORB
|
|---|
| 39 | FCB $72,$10,$23 COM >$1023
|
|---|
| 40 | ROLA
|
|---|
| 41 | ADDD >$0001
|
|---|
| 42 | PSHS D
|
|---|
| 43 | LDA ,X++
|
|---|
| 44 | BVC LAB3
|
|---|
| 45 | FCB $0B,$0F
|
|---|
| 46 |
|
|---|
| 47 | LAB1 TFR D,Y
|
|---|
| 48 | LEAX D,Y !!! seul Z changé
|
|---|
| 49 | BPL H-15
|
|---|
| 50 | FCB $1F,$70 TFR ?,D
|
|---|
| 51 | ADDD $627E,PCR
|
|---|
| 52 | FCB $01,$27 NEG <27
|
|---|
| 53 | SUBD #$39BD !
|
|---|
| 54 | ADCA #$10 +--------+
|
|---|
| 55 | ROLB !
|
|---|
| 56 | SEX \/
|
|---|
| 57 | SB6327 FCB $BE,$45,$51 COMA LSRA NEGB
|
|---|
| 58 | LBRN $1972
|
|---|
| 59 | LBRA LAB2
|
|---|
| 60 | FCB 9
|
|---|
| 61 | BRA *+72
|
|---|
| 62 | DEVIE LDU [GOTO,PCR]
|
|---|
| 63 | FDB $0153 NEG <53
|
|---|
| 64 | FCB $6E,$C7 JMP A,U
|
|---|
| 65 | FCB 17
|
|---|
| 66 |
|
|---|
| 67 | LAB3 ADDA 1,S
|
|---|
| 68 | LDB ,X
|
|---|
| 69 | FCB $CF,$12,$6E STUl 2,PCR
|
|---|
| 70 | ADDB ,S++
|
|---|
| 71 | STB ,--X
|
|---|
| 72 | FCB $E6,$90 LDB [,X+]
|
|---|
| 73 | STA 1,X
|
|---|
| 74 | RTS
|
|---|
| 75 |
|
|---|
| 76 | FDB 30899,3278,7810,12488
|
|---|
| 77 | FDB 26252,15478
|
|---|
| 78 | FCB 32
|
|---|
| 79 |
|
|---|
| 80 | H BSR CHKIND
|
|---|
| 81 | CLR >$60D1
|
|---|
| 82 | LDA #-1
|
|---|
| 83 | LDX #COLORS
|
|---|
| 84 | JSR $EC00 initialise palette
|
|---|
| 85 | LDU #$E004
|
|---|
| 86 | LDY #$CB28 change 6396 & 6398
|
|---|
| 87 | CPT LDD #$E766
|
|---|
| 88 | LEAX $FD79,PCR
|
|---|
| 89 | INCA
|
|---|
| 90 | DAA
|
|---|
| 91 | DECB
|
|---|
| 92 | BPL *-3
|
|---|
| 93 | TFR A,B
|
|---|
| 94 | SUBA #($58-$65)
|
|---|
| 95 | JSR D,X
|
|---|
| 96 | BSR MAPPRO
|
|---|
| 97 | LDU #COLORS+32
|
|---|
| 98 | LDB ,U+
|
|---|
| 99 | JSR $E803
|
|---|
| 100 | BNE *-5 écran noir
|
|---|
| 101 | LDU #0
|
|---|
| 102 | LDY #$4000 effacement & copie
|
|---|
| 103 | LDD ,X en $4000 de la
|
|---|
| 104 | CODCHG EORA #$7B
|
|---|
| 105 | EORB #$DE
|
|---|
| 106 | EXG A,B
|
|---|
| 107 | STU ,X++ suite du programme
|
|---|
| 108 | STD ,Y++
|
|---|
| 109 | CMPX #MYEND+$500
|
|---|
| 110 | BLO CODCHG-2
|
|---|
| 111 | RTS
|
|---|
| 112 | CHKIND LDD #$63FF
|
|---|
| 113 | TFR A,DP
|
|---|
| 114 | TFR B,CC
|
|---|
| 115 | LDX >$600A FAB-Mon déjà actif
|
|---|
| 116 | CMPX #$E000 => RESET à froid
|
|---|
| 117 | BHS CHKIND-1
|
|---|
| 118 | STX >$60FE
|
|---|
| 119 | JMP $FDC8
|
|---|
| 120 | MAPPRO LDU #MYEND
|
|---|
| 121 | LDX #$6300
|
|---|
| 122 | LDB ,X+
|
|---|
| 123 | SUBB ,U
|
|---|
| 124 | STB ,U+
|
|---|
| 125 | CMPX #MYEND
|
|---|
| 126 | BNE *-9
|
|---|
| 127 | CMPU #MYEND+$500
|
|---|
| 128 | BLO MAPPRO+3
|
|---|
| 129 | RTS
|
|---|
| 130 | FDB RETURN+$50
|
|---|
| 131 | MYEND
|
|---|
| 132 | END
|
|---|
