BASHM START: CALL COASM LXI H,1 SHLD INDEXA SHLD TAL  LXI D,ARRAYA LXI H,TAL MVI A,PUTNM CALL DOIT JNZ HELP2 INX D XCHG  MOV E,M INX H MOV D,M JMP HELP3 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,INTGR,DELIM$"ARRAYB: DB 'B',VPAR,'1',INKNS"INDEXB: DB 0,0,HPAR,DELIMFLAG: DB 'FLAG',DELIMGETBF: DS 4N: DS #10TAL: DS 2 END STARTccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc