i think i have a good idea of what this code does i was thinking it was better to hear it from the experts
;assex2b.asm
.AREA CODE1 (ABS);
.RADIX H;
.ORG 1000;
LD SP,#1100;
LD A,#98;
OUT (03), A;
again: IN A,(00);
AND A,(00);
JP Z,again;
LD A,#00;
LOOP: OUT (01),A;
CALL DELAY;
INC A;
JP LOOP;
DELAY: PUSH AF;
LD D,#0FF;
DECR: DEC D;
JP NZ,DECR;
POP AF;
RET;