GEN-IOL, C$PR, etc.

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

0401 * MAKE Y = (Z & '077) * X 0402 * MAKE Y = '005 (ENQ) * X 0403 * MAKE Y = '012 (LF) * X 0404 * MAKE Y = '021 (DC1) * X 0405 * MAKE Y = '023 (DC3) * X 0406 * 0407 * THE BIT X IS SAVED IN THE B-REGISTER. AND THE BITS Z ARE 0408 * CONVERTED, IF NECESSARY, FROM A LOOK-UP TABLE. 0409 * THE CONTENT OF THE X-REGISTER IS PRESERVED. 0410 * 0411 * CONVERT FROM 6-BIT TO INVISIBLE CODE 0412 * 0413 * LET THE ARGUMENT BE JJJJJJJJJJXYYYYY IN BINARY. THE BITS J ARE 0414 * IGNORED, AND THE RESULT 00000000XZZZZZZZ IS CALCULATED ACCORDING 0415 * TO THE FOLLOWING LOGIC DECISION TABLE: 0416 * 0417 * IS Y = '005 (ENQ) ? * Y N N N N 0418 * IS Y = '012 (LF) ? * Y N N N 0419 * IS Y = '021 (DC1) ? * Y N N 0420 * IS Y = '023 (DC3) ? * Y N 0421 * * 0422 * ******************************* 0423 * * 0424 * MAKE Z = '174 * X 0425 * MAKE Z = '175 * X 0426 * MAKE Z = '176 * X 0427 * MAKE Z = '177 * X 0428 * MAKE Z = Y * X 0429 * 0430 * THE CONTENT OF THE X AND B REGISTERS ARE PRESERVED. 0431 * IF THE RESULTING CODE IS OUTPUT TO AN ASR. NO CHARACTERS WILL BE 0432 * PRINTED. THE CHARACTERS ENQ, LF, DC1 AND DC3 ARE DELIBERATELY 0433 * AVOIDED AS THEY INITIATE CONTROL FUNCTIONS. 0434 * 0435 * CONVERT 6-BIT CODE TO ISO CODE 0436 * 0437 * THE BUFFER IS ASSUMED TO HOLD TWO CHARACTERS TO A WORD. IN BITS 0438 * 3-8 AND 11-16. THE BITS 1-2 AND 9-10 ARE IGNORED. AND THE 0439 * CHARACTERS CONVERTED ONE BY ONE FROM THE TABLE C$CT68. USING THE 0440 * CHARACTER TABLE LOOK-UP ROUTINE. TO 8-BIT ISO CODE CHARACTERS. 0441 * 0442 * CONVERT ISO CODE TO 6-BIT CODE 0443 * 0444 * THIS ROUTINE WORKS IN THE CONVERSE MANNER TO THE ABOVE ROUTINE. 0445 * THE MOST SIGNIFICANT TWO BITS OF EACH ISO CODE CHARACTER ARE 0446 * DISCARDED. 0447 * 0448 * CHARACTER TABLE LOOK-UP 0449 * 0450 * BITS 1-10 OF THE A-REGISTER ARE DISCARDED, AND BITS 11-16 ARE