BASHM START: CALL COASM LXI H,1 SHLD INDEXA SHLD TAL  LXI D,ARRAYA LXI H,TAL MVI A,PUTNM CALL DOIT JNZ HELP2 LXI H,2 ARRAY1: SHLD TAL XCHG  PUSH D MVI E,2ARRAY2: LDAX B MOV M,A DCX H INX B DCR E JNZ ARRAY2 POP D INX D XCHG  MVI A,#11 CMP L JNZ ARRAY1 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 #10TAL: DS 2 END START LXI H,TAL MVI A,PUTNM CALL DOIT JNcccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc