PowerExchange for CDC and Mainframe
- PowerExchange for CDC and Mainframe 10.5.3
- All Products
L R3,0(R1) get address of argument 1 L R4,0(R3) get NumberFields value C R4,=F'2' Required value of 2 ? BNE BADARGS *---------------------------------------------------------------------- * Get arguments *---------------------------------------------------------------------- NBRARGOK DS 0H L R3,4(R1) get address of argument 2 ST R3,AMSGBFF = address of message buffer L R3,8(R1) get address of argument 3 ST R3,AMSGBFSZ = size of message buffer L R3,12(R1) get address of argument 4 ST R3,ATEXT = address of text argument L R3,16(R1) get address of argument 5 ST R3,ATEXTLEN = length of text argument (15) L R3,20(R1) get address of argument 6 ST R3,ANUMBER = address of number L R3,24(R1) get address of argument 7 ST R3,ANUMBLEN = length of number (always 4) ... AMSGBFF DS F AMSGBFSZ DS F ATEXT DS F ATEXTLEN DS F ANUMBER DS F ANUMBLEN DS F