ASMB,R,B,L,X,C HED COLUMN IMAGE BINARY TO EBCDIC ROUTINE. NAM CB2EB,7 ENT CB2EB SUP * * *** COLUMN IMAGE BINARY TO EBCDIC ROUTINE. *** * CB2EB NOP STA PNTR1 STA TEMP SAVE BUFFER S.A. LDA =D-80 SET UP STA CNTR1 80 CHAR LOOP. CLA STA FF1 * M.70 LDA TEMP,I GET BINARY CARD IMAGE. ISZ TEMP AND =B7777 MASK OFF STATUS BITS. LDB =D-12 STB KEEP CLB ERA ROTATE BITS BACKWARD. ELB ISZ KEEP JMP *-3 LDA B CLB CLE ERA MOVE 12 PUNCH TO B, REV. ORDER. ELB ERA MOVE 11 PUNCH TO B, REV. ORDER. ELB ERA MOVE 0 PUNCH TO B, REV. ORDER. ELB ALF,ALF MOVE 9 PUNCH TO BIT 0 ERA MOVE 9 PUNCH TO B. ELB RAL MOVE 8 PUNCH TO 0 BIT 15. ELA MOVE 8 PUNCH TO B. ELB BLF,RBR MOVE 12 PUN TO 128, 11 TO 64 STB KEEP 0 TO 32, 9 TO 16, 8 TO 8 & SAVE. LDB =D-8 SET UP BIT TEST COUNTER. M.70A INB INCREMENT COUNTER CLE,ELA MOVE BIT TO E. SEZ IS BIT ON? JMP SET YES, GO SET VALUE SZB MO, WAS THAT LAST BIT? JMP M.70A NO, GO TEST NEXT BIT. * SET CMB,INB CHANGE BIT COUNT TO +. LDA KEEP GET ZONE PUNCHES. IOR B PICK UP BIT VALUE. CLE,ERA CHANGE TO WORD ADDR. ADA TABLE ADD IN TABLE ADDRESS. LDA A,I GET EBCDIC EQUIVALENT. SEZ,RSS ROTATE IF NEC TO GET ALF,ALF CORRECT CHARACTER AND =B377 MASK CHAR * LDB FF1 PUT CHAR BACK CMB,SZB IN OUTPUT BUFFER. ALF,ALF STB FF1 SZB,RSS IOR PNTR1,I STA PNTR1,I SZB,RSS ISZ PNTR1 * ISZ CNTR1 ALL 80 CHARS CONVERTED? JMP M.70 NO, LOOP. JMP CB2EB,I YES, RETURN. SPC 4 FF1 NOP PNTR1 NOP CNTR1 NOP TEMP NOP KEEP NOP A EQU 0 B EQU 1 * * * THE LOOP-UP VALUE IS FOUND AS FOLLOWS: * * PUNCH IN 12 - 11 - 0 - 9 - 8 - 7-1 * VALUE 128 + 64 + 32 + 16 + 8 + 7-1 * TABLE DEF *+1 OCT 040361,171363,172365,173367,174171 OCT 075173,076175,077177,174461,031063 OCT 032065,033067,034071,035073,036075 OCT 037077,170141,161343,162345,163347 OCT 164151,160153,066155,067157,164441 OCT 021043,022045,023047,024051,025053 OCT 026055,027057,060321,151323,152325 OCT 153327,154131,055133,056135,057137 OCT 154421,011023,012025,013027,014031 OCT 015033,016035,017037,150241,121243 OCT 122245,123247,124240,125253,126255 OCT 127257,124741,061143,062145,063147 OCT 064040,165353,166355,167357,050301 OCT 141303,142305,143307,144111,045113 OCT 046115,047117,144401,001003,002005 OCT 003007,004011,005013,006015,007017 OCT 140201,101203,102205,103207,104200 OCT 105213,106215,107217,104501,041103 OCT 042105,043107,044000,105213,106215 OCT 107217,065221,111223,112225,113227 OCT 114220,115233,116235,117237,114521 OCT 051123,052125,053127,054020,155333 OCT 156335,157337,070261,131263,132265 OCT 133267,134260,135273,136275,137277 OCT 164561,071163,072165,073167,074060 OCT 175373,176375,177377 * UNS END 24380-18023 1402