[ceffc47] | 1 | ****************************************
|
---|
| 2 | * *
|
---|
| 3 | **** M U L T I M O D ****
|
---|
| 4 | *HCL* *HCL*
|
---|
| 5 | ****************************************
|
---|
| 6 | * J'ai honte ! Pourtant c'est bien moi *
|
---|
| 7 |
|
---|
| 8 |
|
---|
| 9 | ORG $A000
|
---|
| 10 | MAP2 EQU $A477
|
---|
| 11 |
|
---|
| 12 |
|
---|
| 13 | G ORCC #80
|
---|
| 14 | LDA #$E7
|
---|
| 15 | EXG A,DP
|
---|
| 16 | STA RDP+1
|
---|
| 17 | LDD #32
|
---|
| 18 | STA <$DB
|
---|
| 19 | STA <$DA
|
---|
| 20 | DECB
|
---|
| 21 | BNE *-3
|
---|
| 22 | LDA #$21
|
---|
| 23 | STA <$DC
|
---|
| 24 | CLR <$DD
|
---|
| 25 | LDA <$C3
|
---|
| 26 | ORA #1
|
---|
| 27 | STA <$C3
|
---|
| 28 | LDX #$4000
|
---|
| 29 | CLR ,X+
|
---|
| 30 | CMPX #$5F40
|
---|
| 31 | BNE *-5
|
---|
| 32 | DEC <$C3
|
---|
| 33 | CLR ,-X
|
---|
| 34 | CMPX #$4000
|
---|
| 35 | BNE *-5
|
---|
| 36 | LDX #MAP
|
---|
| 37 | STX $616B
|
---|
| 38 | LDD #$FF0E
|
---|
| 39 | STA $6249
|
---|
| 40 | STB $616D
|
---|
| 41 | LDD #$60B
|
---|
| 42 | STD $61D6
|
---|
| 43 | CLR $6288
|
---|
| 44 | LDB #69
|
---|
| 45 | JSR $EC0C
|
---|
| 46 | LDA #255
|
---|
| 47 | LDX #DATAS-8
|
---|
| 48 | JSR $EC00
|
---|
| 49 | LDA <$CD
|
---|
| 50 | BITA #64
|
---|
| 51 | BNE *-4
|
---|
| 52 | LDD #32
|
---|
| 53 | STA <$DB
|
---|
| 54 | STA <$DA
|
---|
| 55 | DECB
|
---|
| 56 | BNE *-3
|
---|
| 57 | LDX #MAP2
|
---|
| 58 | STX $616B
|
---|
| 59 | LDD #$FF0E
|
---|
| 60 | STA $6249
|
---|
| 61 | STB $616D
|
---|
| 62 | LDD #$100
|
---|
| 63 | STD $61D6
|
---|
| 64 | CLR $6288
|
---|
| 65 | LDB #69
|
---|
| 66 | JSR $EC0C
|
---|
| 67 |
|
---|
| 68 | LDA #32
|
---|
| 69 | BITA <$E7
|
---|
| 70 | BEQ *-2
|
---|
| 71 | BITA <$E7
|
---|
| 72 | BNE *-2
|
---|
| 73 | PSHS A
|
---|
| 74 | MUL
|
---|
| 75 | MUL
|
---|
| 76 | MUL
|
---|
| 77 | MUL
|
---|
| 78 | PULS A
|
---|
| 79 | BITA <$E7
|
---|
| 80 | BEQ *-10
|
---|
| 81 | MUL
|
---|
| 82 | MUL
|
---|
| 83 | MUL
|
---|
| 84 | MUL
|
---|
| 85 | MUL
|
---|
| 86 | TST <$E7
|
---|
| 87 | BPL *-7
|
---|
| 88 | MUL
|
---|
| 89 | MUL
|
---|
| 90 | MUL
|
---|
| 91 | MUL
|
---|
| 92 | MUL
|
---|
| 93 | TST <$E7
|
---|
| 94 | BMI *-7
|
---|
| 95 | LDX #892
|
---|
| 96 | LEAX -1,X
|
---|
| 97 | BNE *-2
|
---|
| 98 | TST ,X
|
---|
| 99 | LDU #DATAS
|
---|
| 100 |
|
---|
| 101 | PULU X
|
---|
| 102 | WAIT MUL
|
---|
| 103 | MUL
|
---|
| 104 | MUL
|
---|
| 105 | MUL
|
---|
| 106 | TST ,Y++
|
---|
| 107 | LEAX -1,X
|
---|
| 108 | BEQ *+4
|
---|
| 109 | BRA WAIT
|
---|
| 110 | LDX #7
|
---|
| 111 | COULS LDA ,U+
|
---|
| 112 | ASLA
|
---|
| 113 | STA <$DB
|
---|
| 114 | PULU D
|
---|
| 115 | STB <$DA
|
---|
| 116 | STA <$DA
|
---|
| 117 | TST 1,Y
|
---|
| 118 | MUL
|
---|
| 119 | MUL
|
---|
| 120 | LEAX -1,X
|
---|
| 121 | BNE COULS
|
---|
| 122 | MODE LDA ,U+
|
---|
| 123 | NOP
|
---|
| 124 | STA <$DC
|
---|
| 125 | CMPU #FINDAT
|
---|
| 126 | BEQ *+4
|
---|
| 127 | BRA *+5
|
---|
| 128 | LDU #DATAS
|
---|
| 129 | MUL
|
---|
| 130 | MUL
|
---|
| 131 | ABX
|
---|
| 132 | TST <$C8
|
---|
| 133 | BEQ WAIT-2
|
---|
| 134 | RDP LDA #0
|
---|
| 135 | TFR A,DP
|
---|
| 136 | LDB #12
|
---|
| 137 | JSR $E803
|
---|
| 138 | LDA #255
|
---|
| 139 | LDX #FINDAT
|
---|
| 140 | JSR $EC00
|
---|
| 141 | RTS
|
---|
| 142 |
|
---|
| 143 | FDB 0,$F0,$20,$60
|
---|
| 144 | DATAS FDB 64,$10F,4,$0016,0,6,$2B
|
---|
| 145 | FDB 0,8,$5F,0,$2A
|
---|
| 146 | FDB 32,$102,$2202,$555,$30F
|
---|
| 147 | FDB $FF0A,$1BF,0,$C,$6FE,0,$21
|
---|
| 148 | FDB 40,0,2,$2,0,$E,$DFD,0,0,0
|
---|
| 149 | FDB 0,$7B
|
---|
| 150 | FDB 40,$103,3,$1B,$601,$6F08
|
---|
| 151 | FDB $777,$A00,$400C,$841,$E0F
|
---|
| 152 | FDB $9400
|
---|
| 153 | FDB 96,$501,$2407,$FFF,$0901
|
---|
| 154 | FDB $150B,$049F,$0D01,$3E00,0
|
---|
| 155 | FDB 0,0
|
---|
| 156 |
|
---|
| 157 | FINDAT FDB 0,15,240,255,3840,3855
|
---|
| 158 | FDB 4080,4095,1911,826,931,938
|
---|
| 159 | FDB 2611,2618,3815,123
|
---|
| 160 | MAP
|
---|
| 161 | END
|
---|