Program Logic Manual - All about the IBM 1130 Computing System

into a 31 word work area which has been initialized to/FO. The field is then placed in the RPG record.The RPG field is set to zeroes or nines if thereal number being converted is too small or too largerespectively to fit into the RPG field.INTERNAL SUBROUTINES:INSRT- Subroutine which places the converted fieldinto the RPG record. It uses the techniqueof placing one eight-bit character (or twofour-bit packed digits) into the RPG fieldat a time, alternating between the left andright halves of a word. If a numeric fieldis packed, two decimal digits are retrievedat a time; if unpacked, single digit retrievalis used. Alphabetic retrieval correspondsto that of numeric unpacked exceptthat characters are returned from units of1,2 or 3 words rather than a one characterper word work area. Once a numeric fieldhas been retrieved, the sign sign is added tothe Field (F=positive; D=negative). SeeDFCNV field type examples section of IBM1130 Disk Monitor System, Version 2, Programmingand Operator's Guide, Form C26-Form C26-3717.FBTN2 - Subroutine which generates the first decimaldigit and the decimal exponent of areal number field (adapted from RBTDsubroutine, see IBM 1130 SubroutineLibrary, Form C26-5929).MPY - Subroutine which generates the decimaldigits of a real number field (adaptedfrom FBTD subroutine, see IBM 1130Subroutine Library, Form C26-5929).EXTERNAL SUBROUTINES:FLD- Subroutine which loads a standard precisionfloating point number into the FAC(see IBM 1130 Subroutine Library, FormC26-5929).E LD— Subroutine which loads an extended precisionfloating point number into the FAC(see IBM 1130 Subroutine Library, FromC26-5929).NORM- Subroutine which normalizes the numberin the FAC (see IBM 1130 SubroutineLibrary, Form C26-5929).ERRORS DETECTED: The F10 error is detected inthe R-conversion subroutine RCNVT.107.3 •