BASHM START: CALL COASM LXI H,1 SHLD INDEXA SHLD INDEXB LXI D,ARRAYA LXI H,N MVI A,GETNM CALL DOIT JNZ HELP1 LXI H,N+2 MVI B,#10ARRAY1: LDAX D MOV M,A INX H INX D DCR B JNZ ARRAY1 LXI D,ARRAYB LXI H,N MVI A,PUTNM CALL DOIT JNZ HELP2 LXI H,N+2 MVI B,#10 XCHG ARRAY2: LDAX D MOV M,A INX H INX D DCR B JNZ ARRAY2 RET HELP1: LXI D,1HELP3: LXI H,GETBF MVI A,FIXFL CALL DOIT LXI H,GETBF LXI D,FLAG MVI A,PUTNM CALL DOIT RET HELP2: LXI D,2 JMP HELP3;"ARRAYA: DB 'A',VPAR,'1',INKNS"INDEXA: DB 0,0,HPAR,DELIM"ARRAYB: DB 'B',VPAR,'1',INKNS"INDEXB: DB 0,0,HPAR,DELIMFLAG: DB 'FLAG',DELIMGETBF: DS 4N: DS #10 END START END STARTcccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc