045
07.12.2008, 00:52 Uhr
holm
|
Hrrrm...
Mönsch Rüdiger...
>;--- hd_sl ------------------------------------------------------ >; Kopfselektierung >; A: Kopfnummer 0...max, Test auf Richtigkeit muss vorher erfolgen >;------------------------------------------------------------------ >hd_sl rrca > rrca > rrca > rrca > ld b,a > ld a,(dsk_c1) > and 0fh ;Loeschen der HS-Bits > or b ;neue HS-Bits > ld (dsk_c1),a > out (DSKC1),a > ret
.. U8000 Crossassembler? ... wohl eher nicht.
Aber mit einem U880 Simulator im Zielboard evtl.
Gruß,
Holm -- float R,y=1.5,x,r,A,P,B;int u,h=80,n=80,s;main(c,v)int c;char **v; {s=(c>1?(h=atoi(v[1])):h)*h/2;for(R=6./h;s%h||(y-=R,x=-2),s;4<(P=B*B)+ (r=A*A)|++u==n&&putchar(*(((--s%h)?(u<n?--u%6:6):7)+"World! \n"))&& (A=B=P=u=r=0,x+=R/2))A=B*2*A+y,B=P+x-r;} |