D1A887     B7            or a, a				0->I
D1A888     ED62          sbc hl, hl
D1A88A     DD2F80        ld (ix-$80), hl
D1A88D     1811          jr $D1A8A0				Check For( loop exit
D1A88F     DD2783        ld hl, (ix-$7D)		B
D1A892     DD1780        ld de, (ix-$80)		I
D1A895     19            add hl, de				B+I
D1A896     3E00          ld a, $00
D1A898     77            ld (hl), a				0->*{B+I}
D1A899     DD2780        ld hl, (ix-$80)		Increment For( loop variable
D1A89C     23            inc hl
D1A89D     DD2F80        ld (ix-$80), hl
D1A8A0     11040000      ld de, $000004			Check against exit value
D1A8A4     B7            or a, a
D1A8A5     ED52          sbc hl, de
D1A8A7     38E6          jr c, $D1A88F			If not, loop
D1A8A9     C9            ret 					Return