.TITLE HCST03 ; ; CALL HCST03 -- This subroutine describes and defines Hershey ; character set ^O3. ; .PSECT HCST03,PIC,SHR,NOWRT .ENTRY HCST03,^M<> MOVAL DSCRB,DES ;STORE DESCRIPTOR TABLE ADDRESS MOVAL DFN,DEF ;STORE THE DEFINITION ADDRESS MOVL #64.,LL0D ;SET UP DEFAULT LOWER LEFT COINER MOVF SCL,SCALED ;SETUP REST OF THE DEFAULT VALUES RET ;RETURN TO CALLER SCL: .FLOAT 0.047619 ; DSCRB: ;DESCRIPTOR TABLE. .BYTE ^O12, ^O12 .WORD ^O0 .BYTE ^O12, ^O12 .WORD ^O0 .BYTE ^O6, ^O22 .WORD ^O12 .BYTE ^O20, ^O23 .WORD ^O20 .BYTE ^O25, ^O25 .WORD ^O40 .BYTE ^O20, ^O23 .WORD ^O65 .BYTE ^O22, ^O25 .WORD ^O105 .BYTE ^O16, ^O22 .WORD ^O127 .BYTE ^O16, ^O25 .WORD ^O145 .BYTE ^O20, ^O23 .WORD ^O163 .BYTE ^O10, ^O23 .WORD ^O203 .BYTE ^O21, ^O22 .WORD ^O213 .BYTE ^O6, ^O22 .WORD ^O234 .BYTE ^O7, ^O14 .WORD ^O242 .BYTE ^O25, ^O25 .WORD ^O251 .BYTE ^O25, ^O23 .WORD ^O276 .BYTE ^O6, ^O26 .WORD ^O323 .BYTE ^O11, ^O23 .WORD ^O331 .BYTE ^O2, ^O10 .WORD ^O342 .BYTE ^O7, ^O10 .WORD ^O344 .BYTE ^O12, ^O20 .WORD ^O353 .BYTE ^O12, ^O12 .WORD ^O365 .BYTE ^O6, ^O25 .WORD ^O377 .BYTE ^O6, ^O21 .WORD ^O405 .BYTE ^O4, ^O21 .WORD ^O413 .BYTE ^O2, ^O10 .WORD ^O417 .BYTE ^O10, ^O30 .WORD ^O421 .BYTE ^O20, ^O36 .WORD ^O431 .BYTE ^O6, ^O26 .WORD ^O451 .BYTE ^O11, ^O23 .WORD ^O457 .BYTE ^O25, ^O26 .WORD ^O470 .BYTE ^O21, ^O23 .WORD ^O515 .BYTE ^O14, ^O25 .WORD ^O536 .BYTE ^O20, ^O23 .WORD ^O552 .BYTE ^O27, ^O26 .WORD ^O572 .BYTE ^O20, ^O23 .WORD ^O621 .BYTE ^O16, ^O25 .WORD ^O641 .BYTE ^O7, ^O15 .WORD ^O657 .BYTE ^O24, ^O24 .WORD ^O666 .BYTE ^O21, ^O21 .WORD ^O712 .BYTE ^O4, ^O20 .WORD ^O733 .BYTE ^O7, ^O14 .WORD ^O737 .BYTE ^O12, ^O26 .WORD ^O746 .BYTE ^O11, ^O23 .WORD ^O760 .BYTE ^O4, ^O22 .WORD ^O771 .BYTE ^O4, ^O20 .WORD ^O775 .BYTE ^O10, ^O30 .WORD ^O1001 .BYTE ^O10, ^O26 .WORD ^O1011 .BYTE ^O4, ^O24 .WORD ^O1021 .BYTE ^O4, ^O21 .WORD ^O1025 .BYTE ^O5, ^O22 .WORD ^O1031 .BYTE ^O10, ^O20 .WORD ^O1036 .BYTE ^O6, ^O24 .WORD ^O1046 .BYTE ^O6, ^O21 .WORD ^O1054 .BYTE ^O21, ^O24 .WORD ^O1062 .BYTE ^O21, ^O24 .WORD ^O1062 .BYTE ^O4, ^O24 .WORD ^O1103 .BYTE ^O4, ^O24 .WORD ^O1103 .BYTE ^O16, ^O24 .WORD ^O1107 .BYTE ^O16, ^O24 .WORD ^O1107 .BYTE ^O17, ^O24 .WORD ^O1125 .BYTE ^O17, ^O24 .WORD ^O1125 .BYTE ^O5, ^O24 .WORD ^O1144 .BYTE ^O5, ^O24 .WORD ^O1144 .BYTE ^O21, ^O24 .WORD ^O1151 .BYTE ^O21, ^O24 .WORD ^O1151 .BYTE ^O27, ^O24 .WORD ^O1172 .BYTE ^O27, ^O24 .WORD ^O1172 .BYTE ^O4, ^O24 .WORD ^O1221 .BYTE ^O4, ^O24 .WORD ^O1221 .BYTE ^O35, ^O24 .WORD ^O1225 .BYTE ^O35, ^O24 .WORD ^O1225 .BYTE ^O27, ^O24 .WORD ^O1262 .BYTE ^O27, ^O24 .WORD ^O1262 .BYTE ^O4, ^O32 .WORD ^O1311 .BYTE ^O4, ^O32 .WORD ^O1311 .BYTE ^O2, ^O32 .WORD ^O1315 .BYTE ^O2, ^O32 .WORD ^O1315 .BYTE ^O6, ^O20 .WORD ^O1317 .BYTE ^O6, ^O20 .WORD ^O1317 .BYTE ^O2, ^O26 .WORD ^O1325 .BYTE ^O2, ^O26 .WORD ^O1325 .BYTE ^O12, ^O16 .WORD ^O1327 .BYTE ^O12, ^O16 .WORD ^O1327 .BYTE ^O12, ^O16 .WORD ^O1341 .BYTE ^O12, ^O16 .WORD ^O1341 .BYTE ^O30, ^O24 .WORD ^O1353 .BYTE ^O30, ^O24 .WORD ^O1353 .BYTE ^O4, ^O32 .WORD ^O1403 .BYTE ^O4, ^O32 .WORD ^O1403 .BYTE ^O0, ^O20 .WORD ^O1407 .BYTE ^O0, ^O20 .WORD ^O1407 .BYTE ^O10, ^O12 .WORD ^O1407 .BYTE ^O10, ^O12 .WORD ^O1407 .BYTE ^O5, ^O12 .WORD ^O1417 .BYTE ^O5, ^O12 .WORD ^O1417 .BYTE ^O10, ^O25 .WORD ^O1424 .BYTE ^O10, ^O25 .WORD ^O1424 .BYTE ^O10, ^O16 .WORD ^O1434 .BYTE ^O10, ^O16 .WORD ^O1434 .BYTE ^O10, ^O16 .WORD ^O1444 .BYTE ^O10, ^O16 .WORD ^O1444 .BYTE ^O35, ^O30 .WORD ^O1454 .BYTE ^O35, ^O30 .WORD ^O1454 .BYTE ^O4, ^O20 .WORD ^O1511 .BYTE ^O4, ^O20 .WORD ^O1511 .BYTE ^O2, ^O22 .WORD ^O1515 .BYTE ^O2, ^O22 .WORD ^O1515 .BYTE ^O7, ^O12 .WORD ^O1517 .BYTE ^O7, ^O12 .WORD ^O1517 .BYTE ^O42, ^O32 .WORD ^O1526 .BYTE ^O42, ^O32 .WORD ^O1526 .BYTE ^O2, ^O10 .WORD ^O1570 .BYTE ^O2, ^O10 .WORD ^O1570 .BYTE ^O23, ^O22 .WORD ^O1572 .BYTE ^O23, ^O22 .WORD ^O1572 .BYTE ^O3, ^O30 .WORD ^O1615 .BYTE ^O3, ^O30 .WORD ^O1615 .BYTE ^O3, ^O30 .WORD ^O1620 .BYTE ^O3, ^O30 .WORD ^O1620 .BYTE ^O64, ^O33 .WORD ^O1623 .BYTE ^O64, ^O33 .WORD ^O1623 .BYTE ^O2, ^O16 .WORD ^O1707 .BYTE ^O2, ^O16 .WORD ^O1707 .BYTE ^O10, ^O12 .WORD ^O1711 .BYTE ^O10, ^O12 .WORD ^O1711 .BYTE ^O15, ^O12 .WORD ^O1721 .BYTE ^O15, ^O12 .WORD ^O1721 DFN: ;DEFINITION TABLE. .WORD ^O41016, ^O615, ^O1014, ^O1215 .WORD ^O1016, ^O41002, ^O601, ^O1000 .WORD ^O1201, ^O1002, ^O42025, ^O0 .WORD ^O42025, ^O4000, ^O40607, ^O3207 .WORD ^O43416, ^O3400, ^O43413, ^O3015 .WORD ^O2416, ^O1616, ^O1215, ^O613 .WORD ^O410, ^O406, ^O603, ^O1201 .WORD ^O1600, ^O2400, ^O3001, ^O3403 .WORD ^O40625, ^O600, ^O40625, ^O3025 .WORD ^O3624, ^O4023, ^O4221, ^O4217 .WORD ^O4015, ^O3614, ^O3013, ^O40613 .WORD ^O3013, ^O3612, ^O4011, ^O4207 .WORD ^O4204, ^O4002, ^O3601, ^O3000 .WORD ^O600, ^O40625, ^O600, ^O40613 .WORD ^O1215, ^O1616, ^O2416, ^O3015 .WORD ^O3413, ^O3610, ^O3606, ^O3403 .WORD ^O3001, ^O2400, ^O1600, ^O1201 .WORD ^O603, ^O44220, ^O4022, ^O3424 .WORD ^O3025, ^O2025, ^O1424, ^O1022 .WORD ^O620, ^O415, ^O410, ^O605 .WORD ^O1003, ^O1401, ^O2000, ^O3000 .WORD ^O3401, ^O4003, ^O4205, ^O43413 .WORD ^O3015, ^O2416, ^O1616, ^O1215 .WORD ^O613, ^O410, ^O406, ^O603 .WORD ^O1201, ^O1600, ^O2400, ^O3001 .WORD ^O3403, ^O40625, ^O600, ^O40625 .WORD ^O2425, ^O3224, ^O3622, ^O4020 .WORD ^O4215, ^O4210, ^O4005, ^O3603 .WORD ^O3201, ^O2400, ^O600, ^O43425 .WORD ^O3400, ^O43413, ^O3015, ^O2416 .WORD ^O1616, ^O1215, ^O613, ^O410 .WORD ^O406, ^O603, ^O1201, ^O1600 .WORD ^O2400, ^O3001, ^O3403, ^O40625 .WORD ^O600, ^O40625, ^O4025, ^O40613 .WORD ^O2613, ^O40600, ^O4000, ^O40410 .WORD ^O3410, ^O3412, ^O3214, ^O3015 .WORD ^O2416, ^O1616, ^O1215, ^O613 .WORD ^O410, ^O406, ^O603, ^O1201 .WORD ^O1600, ^O2400, ^O3001, ^O3403 .WORD ^O40625, ^O600, ^O40625, ^O4025 .WORD ^O40613, ^O2613, ^O42225, ^O1625 .WORD ^O1224, ^O1021, ^O1000, ^O40216 .WORD ^O2016, ^O44220, ^O4022, ^O3424 .WORD ^O3025, ^O2025, ^O1424, ^O1022 .WORD ^O620, ^O415, ^O410, ^O605 .WORD ^O1003, ^O1401, ^O2000, ^O3000 .WORD ^O3401, ^O4003, ^O4205, ^O4210 .WORD ^O43010, ^O4210, ^O43416, ^O3575 .WORD ^O3372, ^O3171, ^O2570, ^O1770 .WORD ^O1371, ^O43413, ^O3015, ^O2416 .WORD ^O1616, ^O1215, ^O613, ^O410 .WORD ^O406, ^O603, ^O1201, ^O1600 .WORD ^O2400, ^O3001, ^O3403, ^O40625 .WORD ^O600, ^O44225, ^O4200, ^O40613 .WORD ^O4213, ^O40625, ^O600, ^O40612 .WORD ^O1415, ^O2016, ^O2616, ^O3215 .WORD ^O3412, ^O3400, ^O40625, ^O600 .WORD ^O40425, ^O624, ^O1025, ^O626 .WORD ^O425, ^O40616, ^O600, ^O42625 .WORD ^O2605, ^O2402, ^O2201, ^O1600 .WORD ^O1200, ^O601, ^O402, ^O205 .WORD ^O207, ^O41025, ^O1224, ^O1425 .WORD ^O1226, ^O1025, ^O41216, ^O1374 .WORD ^O1171, ^O570, ^O170, ^O40625 .WORD ^O600, ^O44225, ^O607, ^O42014 .WORD ^O4200, ^O40625, ^O600, ^O43216 .WORD ^O604, ^O41610, ^O3400, ^O40625 .WORD ^O600, ^O40600, ^O3600, ^O40625 .WORD ^O600, ^O40625, ^O600, ^O40625 .WORD ^O2600, ^O44625, ^O2600, ^O44625 .WORD ^O4600, ^O40616, ^O600, ^O40612 .WORD ^O1415, ^O2016, ^O2616, ^O3215 .WORD ^O3412, ^O3400, ^O43412, ^O4215 .WORD ^O4616, ^O5416, ^O6015, ^O6212 .WORD ^O6200, ^O40625, ^O600, ^O40625 .WORD ^O4200, ^O44225, ^O4200, ^O40616 .WORD ^O600, ^O40612, ^O1415, ^O2016 .WORD ^O2616, ^O3215, ^O3412, ^O3400 .WORD ^O42025, ^O1424, ^O1022, ^O620 .WORD ^O415, ^O410, ^O605, ^O1003 .WORD ^O1401, ^O2000, ^O3000, ^O3401 .WORD ^O4003, ^O4205, ^O4410, ^O4415 .WORD ^O4220, ^O4022, ^O3424, ^O3025 .WORD ^O2025, ^O41616, ^O1215, ^O613 .WORD ^O410, ^O406, ^O603, ^O1201 .WORD ^O1600, ^O2400, ^O3001, ^O3403 .WORD ^O3606, ^O3610, ^O3413, ^O3015 .WORD ^O2416, ^O1616, ^O40625, ^O600 .WORD ^O40625, ^O3025, ^O3624, ^O4023 .WORD ^O4221, ^O4216, ^O4014, ^O3613 .WORD ^O3012, ^O612, ^O40616, ^O770 .WORD ^O40613, ^O1215, ^O1616, ^O2416 .WORD ^O3015, ^O3413, ^O3610, ^O3606 .WORD ^O3403, ^O3001, ^O2400, ^O1600 .WORD ^O1201, ^O603, ^O42025, ^O1424 .WORD ^O1022, ^O620, ^O415, ^O410 .WORD ^O605, ^O1003, ^O1401, ^O2000 .WORD ^O3000, ^O3401, ^O4003, ^O4205 .WORD ^O4410, ^O4415, ^O4220, ^O4022 .WORD ^O3424, ^O3025, ^O2025, ^O42604 .WORD ^O4375, ^O43416, ^O3570, ^O43413 .WORD ^O3015, ^O2416, ^O1616, ^O1215 .WORD ^O613, ^O410, ^O406, ^O603 .WORD ^O1201, ^O1600, ^O2400, ^O3001 .WORD ^O3403, ^O40625, ^O600, ^O40625 .WORD ^O3025, ^O3624, ^O4023, ^O4221 .WORD ^O4217, ^O4015, ^O3614, ^O3013 .WORD ^O613, ^O42413, ^O4200, ^O40616 .WORD ^O600, ^O40610, ^O1013, ^O1415 .WORD ^O2016, ^O2616, ^O44022, ^O3424 .WORD ^O2625, ^O1625, ^O1024, ^O422 .WORD ^O420, ^O616, ^O1015, ^O1414 .WORD ^O3012, ^O3411, ^O3610, ^O4006 .WORD ^O4003, ^O3401, ^O2600, ^O1600 .WORD ^O1001, ^O403, ^O43213, ^O3015 .WORD ^O2216, ^O1416, ^O615, ^O413 .WORD ^O611, ^O1210, ^O2407, ^O3006 .WORD ^O3204, ^O3203, ^O3001, ^O2200 .WORD ^O1400, ^O601, ^O403, ^O41625 .WORD ^O1600, ^O40025, ^O3425, ^O41025 .WORD ^O1004, ^O1201, ^O1600, ^O2200 .WORD ^O40216, ^O2016, ^O40625, ^O606 .WORD ^O1003, ^O1401, ^O2200, ^O2600 .WORD ^O3401, ^O4003, ^O4206, ^O4225 .WORD ^O40616, ^O604, ^O1001, ^O1400 .WORD ^O2200, ^O2601, ^O3404, ^O43416 .WORD ^O3400, ^O40025, ^O2000, ^O44025 .WORD ^O2000, ^O40216, ^O1600, ^O43216 .WORD ^O1600, ^O40225, ^O1400, ^O42625 .WORD ^O1400, ^O42625, ^O4000, ^O45225 .WORD ^O4000, ^O40416, ^O1400, ^O42416 .WORD ^O1400, ^O42416, ^O3400, ^O44416 .WORD ^O3400, ^O40425, ^O4000, ^O44025 .WORD ^O400, ^O40416, ^O3200, ^O43216 .WORD ^O400, ^O40025, ^O2013, ^O2000 .WORD ^O44025, ^O2013, ^O40216, ^O1600 .WORD ^O43216, ^O1600, ^O1373, ^O771 .WORD ^O370, ^O170, ^O44025, ^O400 .WORD ^O40425, ^O4025, ^O40400, ^O4000 .WORD ^O43216, ^O400, ^O40416, ^O3216 .WORD ^O40400, ^O3200, ^O42025, ^O1224 .WORD ^O621, ^O414, ^O411, ^O604 .WORD ^O1201, ^O2000, ^O2400, ^O3201 .WORD ^O3604, ^O4011, ^O4014, ^O3621 .WORD ^O3224, ^O2425, ^O2025, ^O41221 .WORD ^O1622, ^O2425, ^O2400, ^O40620 .WORD ^O621, ^O1023, ^O1224, ^O1625 .WORD ^O2625, ^O3224, ^O3423, ^O3621 .WORD ^O3617, ^O3415, ^O3012, ^O400 .WORD ^O4000, ^O41025, ^O3625, ^O2215 .WORD ^O3015, ^O3414, ^O3613, ^O4010 .WORD ^O4006, ^O3603, ^O3201, ^O2400 .WORD ^O1600, ^O1001, ^O602, ^O404 .WORD ^O43025, ^O407, ^O4207, ^O43025 .WORD ^O3000, ^O43425, ^O1025, ^O614 .WORD ^O1015, ^O1616, ^O2416, ^O3215 .WORD ^O3613, ^O4010, ^O4006, ^O3603 .WORD ^O3201, ^O2400, ^O1600, ^O1001 .WORD ^O602, ^O404, ^O43622, ^O3424 .WORD ^O2625, ^O2225, ^O1424, ^O1021 .WORD ^O614, ^O607, ^O1003, ^O1401 .WORD ^O2200, ^O2400, ^O3201, ^O3603 .WORD ^O4006, ^O4007, ^O3612, ^O3214 .WORD ^O2415, ^O2215, ^O1414, ^O1012 .WORD ^O607, ^O44025, ^O1400, ^O40425 .WORD ^O4025, ^O41625, ^O1024, ^O622 .WORD ^O620, ^O1016, ^O1415, ^O2414 .WORD ^O3213, ^O3611, ^O4007, ^O4004 .WORD ^O3602, ^O3401, ^O2600, ^O1600 .WORD ^O1001, ^O602, ^O404, ^O407 .WORD ^O611, ^O1213, ^O2014, ^O3015 .WORD ^O3416, ^O3620, ^O3622, ^O3424 .WORD ^O2625, ^O1625, ^O43616, ^O3413 .WORD ^O3011, ^O2210, ^O2010, ^O1211 .WORD ^O613, ^O416, ^O417, ^O622 .WORD ^O1224, ^O2025, ^O2225, ^O3024 .WORD ^O3422, ^O3616, ^O3611, ^O3404 .WORD ^O3001, ^O2200, ^O1600, ^O1001 .WORD ^O603, ^O43022, ^O3000, ^O40611 .WORD ^O5211, ^O40611, ^O5211, ^O41617 .WORD ^O1603, ^O40414, ^O3006, ^O43014 .WORD ^O406, ^O44631, ^O370, ^O42431 .WORD ^O2027, ^O1424, ^O1020, ^O613 .WORD ^O607, ^O1002, ^O1575, ^O2172 .WORD ^O2570, ^O40431, ^O1027, ^O1424 .WORD ^O2020, ^O2213, ^O2207, ^O2002 .WORD ^O1575, ^O1172, ^O570, ^O41631 .WORD ^O1773, ^O42631, ^O2773, ^O44022 .WORD ^O3424, ^O2625, ^O1625, ^O1024 .WORD ^O422, ^O420, ^O616, ^O1015 .WORD ^O1414, ^O3012, ^O3411, ^O3610 .WORD ^O4006, ^O4003, ^O3401, ^O2600 .WORD ^O1600, ^O1001, ^O403, ^O40614 .WORD ^O5214, ^O40606, ^O5206, ^O41201 .WORD ^O1000, ^O601, ^O1002, ^O1201 .WORD ^O1376, ^O1174, ^O773, ^O41002 .WORD ^O601, ^O1000, ^O1201, ^O1002 .WORD ^O42431, ^O770, ^O44031, ^O2370 .WORD ^O40614, ^O4214, ^O40406, ^O4006 .WORD ^O40631, ^O770, ^O41031, ^O1170 .WORD ^O40631, ^O2431, ^O40770, ^O2570 .WORD ^O42031, ^O2170, ^O42231, ^O2370 .WORD ^O40431, ^O2231, ^O40570, ^O2370 .WORD ^O45025, ^O400, ^O41625, ^O2223 .WORD ^O2221, ^O2017, ^O1416, ^O1016 .WORD ^O420, ^O422, ^O624, ^O1225 .WORD ^O1625, ^O2224, ^O3023, ^O3623 .WORD ^O4424, ^O5025, ^O44007, ^O3406 .WORD ^O3204, ^O3202, ^O3600, ^O4200 .WORD ^O4601, ^O5003, ^O5005, ^O4407 .WORD ^O4007, ^O40625, ^O616, ^O42625 .WORD ^O2616, ^O40000, ^O4400, ^O41025 .WORD ^O1007, ^O41002, ^O601, ^O1000 .WORD ^O1201, ^O1002, ^O45414, ^O5415 .WORD ^O5216, ^O5016, ^O4615, ^O4413 .WORD ^O4006, ^O3403, ^O3001, ^O2400 .WORD ^O1400, ^O1001, ^O602, ^O404 .WORD ^O406, ^O610, ^O1011, ^O2615 .WORD ^O3016, ^O3220, ^O3222, ^O3024 .WORD ^O2425, ^O2024, ^O1622, ^O1620 .WORD ^O2015, ^O2412, ^O3603, ^O4201 .WORD ^O4600, ^O5200, ^O5401, ^O5402 .WORD ^O40625, ^O616, ^O40420, ^O421 .WORD ^O623, ^O1024, ^O1425, ^O2425 .WORD ^O3024, ^O3223, ^O3421, ^O3417 .WORD ^O3215, ^O3014, ^O2012, ^O2007 .WORD ^O42002, ^O1601, ^O2000, ^O2201 .WORD ^O2002, ^O44622, ^O611, ^O4600 .WORD ^O40622, ^O4611, ^O600, ^O44215 .WORD ^O4017, ^O3420, ^O2620, ^O2217 .WORD ^O2016, ^O1613, ^O1610, ^O2006 .WORD ^O2405, ^O3205, ^O3606, ^O4010 .WORD ^O42620, ^O2216, ^O2013, ^O2010 .WORD ^O2206, ^O2405, ^O44220, ^O4010 .WORD ^O4006, ^O4405, ^O5005, ^O5407 .WORD ^O5612, ^O5614, ^O5417, ^O5221 .WORD ^O4623, ^O4224, ^O3425, ^O2625 .WORD ^O2024, ^O1423, ^O1021, ^O617 .WORD ^O414, ^O411, ^O606, ^O1004 .WORD ^O1402, ^O2001, ^O2600, ^O3400 .WORD ^O4201, ^O4602, ^O5003, ^O44420 .WORD ^O4210, ^O4206, ^O4405, ^O77425 .WORD ^O3374, ^O41020, ^O616, ^O213 .WORD ^O37411, ^O41020, ^O1216, ^O1613 .WORD ^O2211, ^O41016, ^O615, ^O1014 .WORD ^O1215, ^O1016, ^O41201, ^O1000 .WORD ^O601, ^O1002, ^O1201, ^O1376 .WORD ^O1174, ^O773, ^O0, ^O0