1 2 /CONVERSION OF FRIDEN (EIA) TO ASCII 3 4 *400 5 000400 7300 CLA CLL 6 000401 6046 TLS 7 000402 3351 START, DCA CNTRL 8 000403 3125 DCA CNT 9 000404 3353 DCA SWITCH 10 000405 3352 DCA CNTRL2 11 000406 4737 CONTIN, JMS I TABFIX 12 000407 4065 JMS READ 13 000410 1124 TAD SAVE 14 000411 1355 TAD EIATR 15 000412 7640 SZA CLA 16 000413 5235 JMP DOWN 17 000414 2351 ISZ CNTRL 18 000415 1125 TAD CNT 19 000416 7640 SZA CLA 20 000417 5221 JMP .+2 21 000420 4112 JMS LDTR 22 000421 1351 TAD CNTRL 23 000422 1356 TAD TEST1 24 000423 7640 SZA CLA 25 000424 5206 JMP CONTIN 26 000425 1352 TAD CNTRL2 27 000426 7650 SNA CLA 28 000427 5233 JMP .+4 29 000430 4112 JMS LDTR 30 000431 7402 HLT 31 000432 5202 JMP START 32 000433 3351 DCA CNTRL 33 000434 5206 JMP CONTIN 34 000435 1125 DOWN, TAD CNT 35 000436 7640 SZA CLA 36 000437 5241 JMP CRCK 37 000440 4112 JMS LDTR 38 000441 1124 CRCK, TAD SAVE 39 000442 7640 SZA CLA 40 000443 5245 JMP .+2 41 000444 4102 JMS CRLF 42 000445 1124 CHARCK, TAD SAVE 43 000446 1341 TAD NUM 44 000447 7640 SZA CLA 45 000450 5254 JMP .+4 46 000451 7040 CMA 47 000452 3353 DCA SWITCH 48 000453 5206 JMP CONTIN 49 000454 1124 TAD SAVE 50 000455 1344 TAD ALFCK 51 000456 7640 SZA CLA 52 000457 5262 JMP .+3 53 000460 3353 DCA SWITCH 54 000461 5206 JMP CONTIN 55 000462 1353 TAD SWITCH 56 000463 7640 SZA CLA 57 000464 5316 JMP ISNO 58 000465 1124 ALPH, TAD SAVE 59 000466 1417 TAD I ALFA 60 000467 7640 SZA CLA 61 000470 5274 JMP .+4 62 000471 3353 DCA SWITCH 63 000472 1345 TAD ASCII 64 000473 5334 JMP PRINTN 65 000474 2345 ISZ ASCII 66 000475 2346 ISZ TABCNT 67 000476 5265 JMP ALPH 68 000477 1350 TAD ACHAR 69 000500 3345 DCA ASCII 70 000501 1347 TAD CNTFX 71 000502 3346 DCA TABCNT 72 000503 1124 NEWALF, TAD SAVE 73 000504 1417 TAD I ALFA 74 000505 7640 SZA CLA 75 000506 5312 JMP .+4 76 000507 3353 DCA SWITCH 77 000510 1745 TAD I ASCII 78 000511 5334 JMP PRINTN 79 000512 2345 ISZ ASCII 80 000513 2346 ISZ TABCNT 81 000514 5303 JMP NEWALF 82 000515 5206 JMP CONTIN 83 000516 1124 ISNO, TAD SAVE 84 000517 1416 TAD I NUMB 85 000520 7640 SZA CLA 86 000521 5326 JMP .+5 87 000522 7040 CMA 88 000523 3353 DCA SWITCH 89 000524 1342 TAD ASCNO 90 000525 5334 JMP PRINTN 91 000526 2342 ISZ ASCNO 92 000527 2343 ISZ CNT1 93 000530 5316 JMP ISNO 94 000531 1340 TAD CHANGE 95 000532 3307 DCA NEWALF +4 96 000533 5265 JMP ALPH 97 000534 4074 PRINTN, JMS PRINT 98 000535 2352 ISZ CNTRL2 99 000536 5206 JMP CONTIN 100 101 000537 0600 TABFIX, TABFX1 102 000540 7000 CHANGE, 7000 103 000541 7606 NUM, 7606 104 000542 0000 ASCNO, 0 105 000543 0000 CNT1, 0 106 000544 7604 ALFCK, 7604 107 000545 0000 ASCII, 0 108 000546 0000 TABCNT, 0 109 000547 7765 CNTFX, 7765/NO OF SPECIAL CHARS 110 000550 0700 ACHAR, 700 /ADDR OF 1ST ASCII CHAR 111 000551 0000 CNTRL, 0 112 000552 0000 CNTRL2, 0 113 000553 0000 SWITCH, 0 114 000554 0177 MASK, 0177 115 000555 7601 EIATR, 7601 116 000556 7766 TEST1, 7766 117 118 119 *600 120 000600 0000 TABFX1, 0 121 000601 1222 TAD ACSET /260 122 000602 3625 DCA I ASCNO1 123 000603 1220 TAD NUMSET 124 000604 3016 DCA NUMB 125 000605 1626 TAD I TEST2 126 000606 3627 DCA I CNT12 127 000607 1221 TAD FRIALF 128 000610 3017 DCA ALFA 129 000611 1223 TAD ASCIIX 130 000612 3630 DCA I ASCII1 131 000613 1224 TAD CNTFX2 132 000614 3631 DCA I TBCNT 133 000615 1232 TAD CHG 134 000616 3633 DCA I NEW4 135 000617 5600 JMP I TABFX1 136 000620 0757 NUMSET, 757/ADDR -1 FRIDEN NOS 137 000621 0712 FRIALF, 712/ADDR -1 FRIDEN CHARS 138 000622 0260 ACSET, 260 139 000623 0301 ASCIIX, 301 140 000624 7746 CNTFX2, 7746 141 000625 0542 ASCNO1, ASCNO 142 000626 0556 TEST2, TEST1 143 000627 0543 CNT12, CNT1 144 000630 0545 ASCII1, ASCII 145 000631 0546 TBCNT, TABCNT 146 CHG, DCA SWITCH off page ^ 000632 3777 147 000633 0507 NEW4, NEWALF +4 148 149 *700 150 /ASCII CHARS - SPECIAL 151 000700 0211 211 /TAB 152 000701 0240 240 /SPACE 153 000702 0256 256 /PERIOD 154 000703 0254 254 /COMMA 155 000704 0253 253 /PLUS 156 000705 0255 255 /MINUS 157 000706 0257 257 /SLASH 158 000707 0244 244 /$ 159 000710 0252 252 /* 160 000711 0275 275 /EQUALS 161 000712 0377 377 /RUBOUT 162 /FRIDEN CHARS 163 000713 7637 7637;7636;7615;7634;7613;7612;7631;7630;7607;7657 000714 7636 000715 7615 000716 7634 000717 7613 000720 7612 000721 7631 000722 7630 000723 7607 000724 7657 164 000725 7656 7656;7675;7654;7673;7672;7651;7650;7667;7716;7735 000726 7675 000727 7654 000730 7673 000731 7672 000732 7651 000733 7650 000734 7667 000735 7716 000736 7735 165 000737 7714 7714;7733;7732;7711;7710;7727;7702;7760;7625;7705 000740 7733 000741 7732 000742 7711 000743 7710 000744 7727 000745 7702 000746 7760 000747 7625 000750 7705 166 000751 7620 7620;7700;7717;7774;7770;7753;7776 000752 7700 000753 7717 000754 7774 000755 7770 000756 7753 000757 7776 167 168 /FRIDEN NOS 169 000760 7740 7740;7777;7776;7755;7774;7753;7752;7771;7770;7747 000761 7777 000762 7776 000763 7755 000764 7774 000765 7753 000766 7752 000767 7771 000770 7770 000771 7747 170 171 000777 0553 *016 172 000016 0000 NUMB, 0 173 000017 0000 ALFA, 0 174 175 *065 176 000065 0000 READ, 0 177 000066 6031 KSF 178 000067 5066 JMP .-1 179 000070 6036 KRB 180 000071 0530 AND I MASK1 181 000072 3124 DCA SAVE 182 000073 5465 JMP I READ 183 000074 0000 PRINT, 0 184 000075 6041 TSF 185 000076 5075 JMP .-1 186 000077 6046 TLS 187 000100 7200 CLA 188 000101 5474 JMP I PRINT 189 000102 0000 CRLF, 0 190 000103 1110 TAD CR 191 000104 4074 JMS PRINT 192 000105 1111 TAD LF 193 000106 4074 JMS PRINT 194 000107 5502 JMP I CRLF 195 000110 0215 CR, 215 196 000111 0212 LF, 212 197 000112 0000 LDTR, 0 198 000113 1123 TAD LDR 199 000114 4074 JMS PRINT 200 000115 2127 ISZ CNT2 201 000116 5113 JMP .-3 202 000117 2125 ISZ CNT 203 000120 1126 TAD CNT2FX 204 000121 3127 DCA CNT2 205 000122 5512 JMP I LDTR 206 000123 0200 LDR, 0200 207 000124 0000 SAVE, 0 208 000125 0000 CNT, 0 209 000126 7704 CNT2FX, 7704 210 000127 7704 CNT2, 7704 211 000130 0554 MASK1, MASK 212 213 $