terug.gif
10 REM TRUE CPU 
20 DIM LL9,OO9,VV9
30 FOR A=0 TO 9
40 LL(A)=#FFF;OO(A)=#FFF;VV(A)=#FFF
50 NEXT A
60 FOR A=0 TO 1
70 P=#FC5D
80[
90:LL0 LDA @11;JSR #FFC2;BCC LL0
95 STX #E4;STY #E5;PHP
100 LDA @#00;JSR #FFC8;LDA @#19;JSR #FFC8
110 LDA @#00;JSR #FFC8;LDA @2;JSR #FFC8
120 LDA @#00;JSR #FFC8;LDA @#19;JSR #FFC8
130 LDA @#00;JSR #FFC8;LDA @2;JSR #FFC8 
140 LDX @#00;TXA;TAY;STA #B810
150:LL1 LDA #B81D;AND @#10;BNE LL2
160 INX;BNE LL1;INY;JMP LL1
170:LL2 LDA @#00;JSR #FFC8
180 LDA @10;JSR #FFC2
190 LDA @0;CPY @45;BMI LL3;ORA @#02
200:LL3 PHA;SED;LDA @#99;CLC;ADC @#01;BMI LL4
210 PLA;ORA @#01;JMP LL5
220:LL4 PLA
222:LL5 LDY #E5;LDX #E4;PLP
224:LL6 RTS;]
390 NEXT A;PRINT $6
400 END
terug.gif