Session end : 12h00m00s | Hide picture Sexe : OFF | Donations 2024 : 785.48 € |
130 MEMORY &AB4F
130 MEMORY &A64F
140 DEFINT a-m,o-z
140 DEFINT a-m,o-r,t-z
160 DATA &df,&54,&ab,&c9,&57,&ab,&fc,&3a,0,0,&32,&5e,&ab,&c9
930 FOR i=0 TO 13:READ x:POKE &AB50+i,x:NEXT i
2980 POKE &AB58,al:POKE &AB59,ah
2990 CALL &AB50:a=PEEK(&AB5E)
160 DATA &df,&54,&a6,&c9,&57,&a6,&fc,&3a,0,0,&32,&5e,&a6,&c9
930 FOR i=0 TO 13:READ x:POKE &A650+i,x:NEXT i
2980 POKE &A658,al:POKE &A659,ah
2990 CALL &A650:a=PEEK(&A65E)
1050 FOR i=0 TO 7:cb$(56+i)="srl "+reg$(i):NEXT i
1050 FOR i=0 TO 7:cb$(56+i)="srl "+reg$(i):cb$(48+i)="sll "+reg$(i):NEXT i
1630 IF dd$(a)=""THEN 1490
1730 IF fd$(a)=""THEN 1490
1950 nadr=start+1:GOSUB 2940
2000 nadr=start+1:GOSUB 2940
2230 nadr=start+1:GOSUB 2940
2250 anz=2
2280 nadr=start+1:GOSUB 2940
2300 anz=2
1630 IF dd$(a)=""THEN code$=code$(a):IF code$=""THEN 1490 ELSE op$="ix":GOTO 5000
1730 IF fd$(a)=""THEN code$=code$(a):IF code$=""THEN 1490 ELSE op$="iy":GOTO 5000
1950 nadr=start+anz:GOSUB 2940
2000 nadr=start+anz:GOSUB 2940
2230 nadr=start+anz:GOSUB 2940
2250 anz=anz+1
2280 nadr=start+anz:GOSUB 2940
2300 anz=anz+1
5000 v=VAL(code$):anz=2:IF v THEN ofs=1 ELSE ofs=0
5010 IF MID$(code$,1+ofs,3)="rst" THEN 1390
5020 IF MID$(code$,8+ofs,1)="h" OR MID$(code$,8+ofs,1)="l" THEN code$=LEFT$(code$,7+ofs)+op$+MID$(code$,8+ofs)
5030 IF MID$(code$,6+ofs,1)="h" OR MID$(code$,6+ofs,1)="l" THEN code$=LEFT$(code$,5+ofs)+op$+MID$(code$,6+ofs)
5040 GOTO 1390
3930 GOTO 3820
1670 nadr=start+3:GOSUB 2940
3930 GOTO 3810
1670 nadr=start+2:GOSUB 2940