GEN-IOL, C$PR, etc.

* 0066-001-H003 (GEN-IOL) DRAWING NO. 41286164-001-01 PAGE 8

0351 * 0352 * THE MODULES ARE ORDERED SO THAT HIGHER LEVEL MODULES PRECEDE 0353 * LOWER LEVEL MODULES. AND WHEN PREPARING INDIVIDUAL SYSTEM TAPES 0354 * THIS CHARACTERISTIC SHOULD BE PRESERVED. 0355 * NO REGISTER PRESERVATION IS ATTEMPTED UNLESS OTHERWYSE STATED. 0356 * 0357 * CONVERT BINARY TO BCI 0358 * 0359 * THE BUFFER ADDRESS GIVEN IS ASSUMED TO REFER TO THE FIRST WORD 0360 * OF A TWO-WORD BUFFER IN WHICH TWO ISO CHARACTERS PER WORD WILL 0361 * BE PACKED. I.E. A FOUR-DIGIT DECIMAL NUMBER. THE BINARY NUMBER 0362 * IN THE A-REGISTER IS CONVERTED TO A NUMBER MODULO 10,000, AND 10 0363 * IS REPEATEDLY SUBTRACTED FROM THIS NUMBER UNTIL IT BECOMES 0364 * NEGATIVE IN ORDER TO COMPUTE THE UNITS DIGIT. COUNTTNG TO PRODUCE 0365 * A QUOTIENT, THIS PROCESS IS REPEATED FOR THE QUOTIENT. IF AT 0366 * ANY TIME BOTH QUOTIENT AND REMAINDER BECOME ZERO. A SPACE IS 0367 * PLACED IN THE BUFFER; IN THIS WAY LEADING ZEROES ARE SUPPRESSED, 0368 * IF A NEGATIVE ARGUMENT IS ERRONEOUSLY GIVEN. THE FINAL BUFFER 0369 * CONTENTS WILL NOT BE A CORRECT CONVERSION OF THE ARGUMENT. BUT NO 0370 * PROGRAM CORRUPTION WILL OCCUR. 0371 * 0372 * PRESERVE AND RESTORE REGISTERS 0373 * 0374 * REGISTERS A, B AND X AND THE C-BIT ARE PRESERVED IN EXTERNALLY 0375 * ADDRESSABLE LOCATIONS BY CALLING C$PR. IF THE C-BIT WAS SET. 0376 * THE CONTENTS OF LOCATION C$RC WILL BE 1, OTHERWISE IT WILL BE 0377 * ZERO. ONLY THE X-REGISTER CONTENT IS UNCHANGED AFTER EXIT FROM 0378 * C$PR. A CALL ON C$RR LOADS THE FOUR REGISTERS FROM THE FOUR 0379 * BUFFER LOCATIONS C$RA, C$RB, C$RC AND C$RX. 0380 * 0381 * STRIP TRAILING WORDS 0382 * 0383 * THE BUFFER IS BACKSCANNED AND THE X-REGISTER INCREMENTED UNTIL 0384 * EITHER A WORD UNEOUAL TO THE SPECIFIED WORD IS FOUND, OR THE 0385 * X-REGISTER BECOMES ZERO. 0386 * 0387 * CONVERT FROM INVISIBLE TO 6-BIT CODE 0388 * 0389 * LET THE ARGUMENT BE JJJJJJJJXZZZZZZZ IN BINARY. THE BITS J ARE 0390 * IGNORED, AND THE RESULT 0000000000XYYYYY IS CALCULATED ACCORDING 0391 * TO THE FOLLOWING LOGIC DECISION TABLE: 0392 * 0393 * IS Z < '174 ? * Y N N N N 0394 * IS Z = '174 ? * Y 0395 * IS Z = '175 ? * Y 0396 * IS Z = '176 ? * Y 0397 * IS Z = '177 ? * Y 0398 * * 0399 * ******************************* 0400 * *