The original is the exact octets that chaatGPT<g> gave you. QP encoding is not the original.
________________________________________ From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> on behalf of Paul Gilmartin <0000042bfe9c879d-dmarc-requ...@listserv.ua.edu> Sent: Monday, September 4, 2023 3:46 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Simple request from chatGPT to write assembler program. On Mon, 4 Sep 2023 18:54:21 +0000, Seymour J Metz wrote: >I'd have to view the original in hex before I'd even try to guess. > Ask ChatGPT to fix it! What's "the original"? Here's what my MUA shows as "Raw Source". no linebreaks; no trailing spaces; lotsa NBSP: Chatgpt: Certainly! Here=E2=80=99s a simple example of a mainframe assembly program = written in High-Level Assembler (HLASM) that reads two numbers from input a= nd prints their sum: =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0PRINT NOGEN=C2=A0 =C2=A0 =C2=A0 =C2=A0 = =C2=A0TITLE 'Simple Addition Program'** Define storage for input numbers an= d result*NUM1 =C2=A0 =C2=A0 DS =C2=A0 =C2=A0F =C2=A0 =C2=A0 =C2=A0 =C2=A0 = =C2=A0 =C2=A0 First input numberNUM2 =C2=A0 =C2=A0 DS =C2=A0 =C2=A0F =C2=A0= =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 Second input numberRESULT =C2=A0 DS =C2= =A0 =C2=A0F =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 Result of addition** = Main program*MAIN =C2=A0 =C2=A0 C =C2=A0 =C2=A0 =C2=A00 =C2=A0 =C2=A0 =C2= =A0NUM1 =C2=A0 Check if NUM1 is zero=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0BE = =C2=A0 =C2=A0 ZERO =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0Branch to ZERO = if true** Read the first number from input*=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0GET =C2=A0 =C2=A0NUM1,NUMIN =C2=A0 =C2=A0 =C2=A0Read NUM1 from input=C2= =A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0LA =C2=A0 =C2=A0 0,NUM1 =C2=A0 =C2=A0 =C2=A0= =C2=A0 =C2=A0Load NUM1 into register** Read the second number from input*= -- gil ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
