PMIN equ -2250
PMAX equ 750
QMIN equ -1500
QMAX equ 1500

M equ 16*1000*1000
ANZAHL equ 100

           org $9c00

START:
           move #0, d1
XSCHLEIFE:
           move #0, d2
YSCHLEIFE:
           move #PMAX-PMIN, d3
           muls d1, d3
           divs #511, d3
           add #PMIN, d3
           move.l #QMAX-QMIN, d4
           muls d2, d4
           divs #255, d4
           add #QMIN, d4
           clr.l d5
           clr.l d6
           clr d7
           movem.l d1-d2,-(a7)
ITERAT:
           move d5, d1
           muls d1, d1
           move d6, d0
           muls d0, d0
           sub.l d0, d1
           divs #1000, d1
           add d3, d1
           move d5, d2
           muls d6, d2
           divs #500, d2
           add d4, d2
           move d1, d5
           move d2, d6
           add #1, d7
           muls d1, d1
           muls d2, d2
           add.l d2, d1
           cmp.l #M, d1
           bge AUSGABE
           cmp #ANZAHL, d7
           beq AUSGABE
           bra ITERAT
AUSGABE:
           movem.l (a7)+,d1-d2
           btst #0,d7
           beq WEITER
           JSR @MOVETO
           move.b #$80, d0
           JSR @CMD
WEITER:
           add #1, d2
           cmp #256, d2
           blt YSCHLEIFE
           add #1, d1
           cmp #512, d1
           blt XSCHLEIFE
WARTE:
           jsr @CI
           cmp.b #'m', d0
           bne WARTE
           RTS