.TITLE HCST03 .ENABL LC ; ; CALL HCST03 -- This subroutine describes and defines Hershey ; character set 3. ; .PSECT HCST03 HCST03::MOV #DSCRB,DES MOV #DFN,DEF MOV # 64.,LL0D MOV SCL,SCALED MOV SCL+2,SCALED+2 RTS PC ; SCL: .FLT2 0.047619 ; DSCRB: ;DESCRIPTOR TABLE. .BYTE 12, 12 .WORD 0 .BYTE 12, 12 .WORD 0 .BYTE 6, 22 .WORD 12 .BYTE 20, 23 .WORD 20 .BYTE 25, 25 .WORD 40 .BYTE 20, 23 .WORD 65 .BYTE 22, 25 .WORD 105 .BYTE 16, 22 .WORD 127 .BYTE 16, 25 .WORD 145 .BYTE 20, 23 .WORD 163 .BYTE 10, 23 .WORD 203 .BYTE 21, 22 .WORD 213 .BYTE 6, 22 .WORD 234 .BYTE 7, 14 .WORD 242 .BYTE 25, 25 .WORD 251 .BYTE 25, 23 .WORD 276 .BYTE 6, 26 .WORD 323 .BYTE 11, 23 .WORD 331 .BYTE 2, 10 .WORD 342 .BYTE 7, 10 .WORD 344 .BYTE 12, 20 .WORD 353 .BYTE 12, 12 .WORD 365 .BYTE 6, 25 .WORD 377 .BYTE 6, 21 .WORD 405 .BYTE 4, 21 .WORD 413 .BYTE 2, 10 .WORD 417 .BYTE 10, 30 .WORD 421 .BYTE 20, 36 .WORD 431 .BYTE 6, 26 .WORD 451 .BYTE 11, 23 .WORD 457 .BYTE 25, 26 .WORD 470 .BYTE 21, 23 .WORD 515 .BYTE 14, 25 .WORD 536 .BYTE 20, 23 .WORD 552 .BYTE 27, 26 .WORD 572 .BYTE 20, 23 .WORD 621 .BYTE 16, 25 .WORD 641 .BYTE 7, 15 .WORD 657 .BYTE 24, 24 .WORD 666 .BYTE 21, 21 .WORD 712 .BYTE 4, 20 .WORD 733 .BYTE 7, 14 .WORD 737 .BYTE 12, 26 .WORD 746 .BYTE 11, 23 .WORD 760 .BYTE 4, 22 .WORD 771 .BYTE 4, 20 .WORD 775 .BYTE 10, 30 .WORD 1001 .BYTE 10, 26 .WORD 1011 .BYTE 4, 24 .WORD 1021 .BYTE 4, 21 .WORD 1025 .BYTE 5, 22 .WORD 1031 .BYTE 10, 20 .WORD 1036 .BYTE 6, 24 .WORD 1046 .BYTE 6, 21 .WORD 1054 .BYTE 21, 24 .WORD 1062 .BYTE 21, 24 .WORD 1062 .BYTE 4, 24 .WORD 1103 .BYTE 4, 24 .WORD 1103 .BYTE 16, 24 .WORD 1107 .BYTE 16, 24 .WORD 1107 .BYTE 17, 24 .WORD 1125 .BYTE 17, 24 .WORD 1125 .BYTE 5, 24 .WORD 1144 .BYTE 5, 24 .WORD 1144 .BYTE 21, 24 .WORD 1151 .BYTE 21, 24 .WORD 1151 .BYTE 27, 24 .WORD 1172 .BYTE 27, 24 .WORD 1172 .BYTE 4, 24 .WORD 1221 .BYTE 4, 24 .WORD 1221 .BYTE 35, 24 .WORD 1225 .BYTE 35, 24 .WORD 1225 .BYTE 27, 24 .WORD 1262 .BYTE 27, 24 .WORD 1262 .BYTE 4, 32 .WORD 1311 .BYTE 4, 32 .WORD 1311 .BYTE 2, 32 .WORD 1315 .BYTE 2, 32 .WORD 1315 .BYTE 6, 20 .WORD 1317 .BYTE 6, 20 .WORD 1317 .BYTE 2, 26 .WORD 1325 .BYTE 2, 26 .WORD 1325 .BYTE 12, 16 .WORD 1327 .BYTE 12, 16 .WORD 1327 .BYTE 12, 16 .WORD 1341 .BYTE 12, 16 .WORD 1341 .BYTE 30, 24 .WORD 1353 .BYTE 30, 24 .WORD 1353 .BYTE 4, 32 .WORD 1403 .BYTE 4, 32 .WORD 1403 .BYTE 0, 20 .WORD 1407 .BYTE 0, 20 .WORD 1407 .BYTE 10, 12 .WORD 1407 .BYTE 10, 12 .WORD 1407 .BYTE 5, 12 .WORD 1417 .BYTE 5, 12 .WORD 1417 .BYTE 10, 25 .WORD 1424 .BYTE 10, 25 .WORD 1424 .BYTE 10, 16 .WORD 1434 .BYTE 10, 16 .WORD 1434 .BYTE 10, 16 .WORD 1444 .BYTE 10, 16 .WORD 1444 .BYTE 35, 30 .WORD 1454 .BYTE 35, 30 .WORD 1454 .BYTE 4, 20 .WORD 1511 .BYTE 4, 20 .WORD 1511 .BYTE 2, 22 .WORD 1515 .BYTE 2, 22 .WORD 1515 .BYTE 7, 12 .WORD 1517 .BYTE 7, 12 .WORD 1517 .BYTE 42, 32 .WORD 1526 .BYTE 42, 32 .WORD 1526 .BYTE 2, 10 .WORD 1570 .BYTE 2, 10 .WORD 1570 .BYTE 23, 22 .WORD 1572 .BYTE 23, 22 .WORD 1572 .BYTE 3, 30 .WORD 1615 .BYTE 3, 30 .WORD 1615 .BYTE 3, 30 .WORD 1620 .BYTE 3, 30 .WORD 1620 .BYTE 64, 33 .WORD 1623 .BYTE 64, 33 .WORD 1623 .BYTE 2, 16 .WORD 1707 .BYTE 2, 16 .WORD 1707 .BYTE 10, 12 .WORD 1711 .BYTE 10, 12 .WORD 1711 .BYTE 15, 12 .WORD 1721 .BYTE 15, 12 .WORD 1721 DFN: ;DEFINITION TABLE. .WORD 41016, 615, 1014, 1215 .WORD 1016, 41002, 601, 1000 .WORD 1201, 1002, 42025, 0 .WORD 42025, 4000, 40607, 3207 .WORD 43416, 3400, 43413, 3015 .WORD 2416, 1616, 1215, 613 .WORD 410, 406, 603, 1201 .WORD 1600, 2400, 3001, 3403 .WORD 40625, 600, 40625, 3025 .WORD 3624, 4023, 4221, 4217 .WORD 4015, 3614, 3013, 40613 .WORD 3013, 3612, 4011, 4207 .WORD 4204, 4002, 3601, 3000 .WORD 600, 40625, 600, 40613 .WORD 1215, 1616, 2416, 3015 .WORD 3413, 3610, 3606, 3403 .WORD 3001, 2400, 1600, 1201 .WORD 603, 44220, 4022, 3424 .WORD 3025, 2025, 1424, 1022 .WORD 620, 415, 410, 605 .WORD 1003, 1401, 2000, 3000 .WORD 3401, 4003, 4205, 43413 .WORD 3015, 2416, 1616, 1215 .WORD 613, 410, 406, 603 .WORD 1201, 1600, 2400, 3001 .WORD 3403, 40625, 600, 40625 .WORD 2425, 3224, 3622, 4020 .WORD 4215, 4210, 4005, 3603 .WORD 3201, 2400, 600, 43425 .WORD 3400, 43413, 3015, 2416 .WORD 1616, 1215, 613, 410 .WORD 406, 603, 1201, 1600 .WORD 2400, 3001, 3403, 40625 .WORD 600, 40625, 4025, 40613 .WORD 2613, 40600, 4000, 40410 .WORD 3410, 3412, 3214, 3015 .WORD 2416, 1616, 1215, 613 .WORD 410, 406, 603, 1201 .WORD 1600, 2400, 3001, 3403 .WORD 40625, 600, 40625, 4025 .WORD 40613, 2613, 42225, 1625 .WORD 1224, 1021, 1000, 40216 .WORD 2016, 44220, 4022, 3424 .WORD 3025, 2025, 1424, 1022 .WORD 620, 415, 410, 605 .WORD 1003, 1401, 2000, 3000 .WORD 3401, 4003, 4205, 4210 .WORD 43010, 4210, 43416, 3575 .WORD 3372, 3171, 2570, 1770 .WORD 1371, 43413, 3015, 2416 .WORD 1616, 1215, 613, 410 .WORD 406, 603, 1201, 1600 .WORD 2400, 3001, 3403, 40625 .WORD 600, 44225, 4200, 40613 .WORD 4213, 40625, 600, 40612 .WORD 1415, 2016, 2616, 3215 .WORD 3412, 3400, 40625, 600 .WORD 40425, 624, 1025, 626 .WORD 425, 40616, 600, 42625 .WORD 2605, 2402, 2201, 1600 .WORD 1200, 601, 402, 205 .WORD 207, 41025, 1224, 1425 .WORD 1226, 1025, 41216, 1374 .WORD 1171, 570, 170, 40625 .WORD 600, 44225, 607, 42014 .WORD 4200, 40625, 600, 43216 .WORD 604, 41610, 3400, 40625 .WORD 600, 40600, 3600, 40625 .WORD 600, 40625, 600, 40625 .WORD 2600, 44625, 2600, 44625 .WORD 4600, 40616, 600, 40612 .WORD 1415, 2016, 2616, 3215 .WORD 3412, 3400, 43412, 4215 .WORD 4616, 5416, 6015, 6212 .WORD 6200, 40625, 600, 40625 .WORD 4200, 44225, 4200, 40616 .WORD 600, 40612, 1415, 2016 .WORD 2616, 3215, 3412, 3400 .WORD 42025, 1424, 1022, 620 .WORD 415, 410, 605, 1003 .WORD 1401, 2000, 3000, 3401 .WORD 4003, 4205, 4410, 4415 .WORD 4220, 4022, 3424, 3025 .WORD 2025, 41616, 1215, 613 .WORD 410, 406, 603, 1201 .WORD 1600, 2400, 3001, 3403 .WORD 3606, 3610, 3413, 3015 .WORD 2416, 1616, 40625, 600 .WORD 40625, 3025, 3624, 4023 .WORD 4221, 4216, 4014, 3613 .WORD 3012, 612, 40616, 770 .WORD 40613, 1215, 1616, 2416 .WORD 3015, 3413, 3610, 3606 .WORD 3403, 3001, 2400, 1600 .WORD 1201, 603, 42025, 1424 .WORD 1022, 620, 415, 410 .WORD 605, 1003, 1401, 2000 .WORD 3000, 3401, 4003, 4205 .WORD 4410, 4415, 4220, 4022 .WORD 3424, 3025, 2025, 42604 .WORD 4375, 43416, 3570, 43413 .WORD 3015, 2416, 1616, 1215 .WORD 613, 410, 406, 603 .WORD 1201, 1600, 2400, 3001 .WORD 3403, 40625, 600, 40625 .WORD 3025, 3624, 4023, 4221 .WORD 4217, 4015, 3614, 3013 .WORD 613, 42413, 4200, 40616 .WORD 600, 40610, 1013, 1415 .WORD 2016, 2616, 44022, 3424 .WORD 2625, 1625, 1024, 422 .WORD 420, 616, 1015, 1414 .WORD 3012, 3411, 3610, 4006 .WORD 4003, 3401, 2600, 1600 .WORD 1001, 403, 43213, 3015 .WORD 2216, 1416, 615, 413 .WORD 611, 1210, 2407, 3006 .WORD 3204, 3203, 3001, 2200 .WORD 1400, 601, 403, 41625 .WORD 1600, 40025, 3425, 41025 .WORD 1004, 1201, 1600, 2200 .WORD 40216, 2016, 40625, 606 .WORD 1003, 1401, 2200, 2600 .WORD 3401, 4003, 4206, 4225 .WORD 40616, 604, 1001, 1400 .WORD 2200, 2601, 3404, 43416 .WORD 3400, 40025, 2000, 44025 .WORD 2000, 40216, 1600, 43216 .WORD 1600, 40225, 1400, 42625 .WORD 1400, 42625, 4000, 45225 .WORD 4000, 40416, 1400, 42416 .WORD 1400, 42416, 3400, 44416 .WORD 3400, 40425, 4000, 44025 .WORD 400, 40416, 3200, 43216 .WORD 400, 40025, 2013, 2000 .WORD 44025, 2013, 40216, 1600 .WORD 43216, 1600, 1373, 771 .WORD 370, 170, 44025, 400 .WORD 40425, 4025, 40400, 4000 .WORD 43216, 400, 40416, 3216 .WORD 40400, 3200, 42025, 1224 .WORD 621, 414, 411, 604 .WORD 1201, 2000, 2400, 3201 .WORD 3604, 4011, 4014, 3621 .WORD 3224, 2425, 2025, 41221 .WORD 1622, 2425, 2400, 40620 .WORD 621, 1023, 1224, 1625 .WORD 2625, 3224, 3423, 3621 .WORD 3617, 3415, 3012, 400 .WORD 4000, 41025, 3625, 2215 .WORD 3015, 3414, 3613, 4010 .WORD 4006, 3603, 3201, 2400 .WORD 1600, 1001, 602, 404 .WORD 43025, 407, 4207, 43025 .WORD 3000, 43425, 1025, 614 .WORD 1015, 1616, 2416, 3215 .WORD 3613, 4010, 4006, 3603 .WORD 3201, 2400, 1600, 1001 .WORD 602, 404, 43622, 3424 .WORD 2625, 2225, 1424, 1021 .WORD 614, 607, 1003, 1401 .WORD 2200, 2400, 3201, 3603 .WORD 4006, 4007, 3612, 3214 .WORD 2415, 2215, 1414, 1012 .WORD 607, 44025, 1400, 40425 .WORD 4025, 41625, 1024, 622 .WORD 620, 1016, 1415, 2414 .WORD 3213, 3611, 4007, 4004 .WORD 3602, 3401, 2600, 1600 .WORD 1001, 602, 404, 407 .WORD 611, 1213, 2014, 3015 .WORD 3416, 3620, 3622, 3424 .WORD 2625, 1625, 43616, 3413 .WORD 3011, 2210, 2010, 1211 .WORD 613, 416, 417, 622 .WORD 1224, 2025, 2225, 3024 .WORD 3422, 3616, 3611, 3404 .WORD 3001, 2200, 1600, 1001 .WORD 603, 43022, 3000, 40611 .WORD 5211, 40611, 5211, 41617 .WORD 1603, 40414, 3006, 43014 .WORD 406, 44631, 370, 42431 .WORD 2027, 1424, 1020, 613 .WORD 607, 1002, 1575, 2172 .WORD 2570, 40431, 1027, 1424 .WORD 2020, 2213, 2207, 2002 .WORD 1575, 1172, 570, 41631 .WORD 1773, 42631, 2773, 44022 .WORD 3424, 2625, 1625, 1024 .WORD 422, 420, 616, 1015 .WORD 1414, 3012, 3411, 3610 .WORD 4006, 4003, 3401, 2600 .WORD 1600, 1001, 403, 40614 .WORD 5214, 40606, 5206, 41201 .WORD 1000, 601, 1002, 1201 .WORD 1376, 1174, 773, 41002 .WORD 601, 1000, 1201, 1002 .WORD 42431, 770, 44031, 2370 .WORD 40614, 4214, 40406, 4006 .WORD 40631, 770, 41031, 1170 .WORD 40631, 2431, 40770, 2570 .WORD 42031, 2170, 42231, 2370 .WORD 40431, 2231, 40570, 2370 .WORD 45025, 400, 41625, 2223 .WORD 2221, 2017, 1416, 1016 .WORD 420, 422, 624, 1225 .WORD 1625, 2224, 3023, 3623 .WORD 4424, 5025, 44007, 3406 .WORD 3204, 3202, 3600, 4200 .WORD 4601, 5003, 5005, 4407 .WORD 4007, 40625, 616, 42625 .WORD 2616, 40000, 4400, 41025 .WORD 1007, 41002, 601, 1000 .WORD 1201, 1002, 45414, 5415 .WORD 5216, 5016, 4615, 4413 .WORD 4006, 3403, 3001, 2400 .WORD 1400, 1001, 602, 404 .WORD 406, 610, 1011, 2615 .WORD 3016, 3220, 3222, 3024 .WORD 2425, 2024, 1622, 1620 .WORD 2015, 2412, 3603, 4201 .WORD 4600, 5200, 5401, 5402 .WORD 40625, 616, 40420, 421 .WORD 623, 1024, 1425, 2425 .WORD 3024, 3223, 3421, 3417 .WORD 3215, 3014, 2012, 2007 .WORD 42002, 1601, 2000, 2201 .WORD 2002, 44622, 611, 4600 .WORD 40622, 4611, 600, 44215 .WORD 4017, 3420, 2620, 2217 .WORD 2016, 1613, 1610, 2006 .WORD 2405, 3205, 3606, 4010 .WORD 42620, 2216, 2013, 2010 .WORD 2206, 2405, 44220, 4010 .WORD 4006, 4405, 5005, 5407 .WORD 5612, 5614, 5417, 5221 .WORD 4623, 4224, 3425, 2625 .WORD 2024, 1423, 1021, 617 .WORD 414, 411, 606, 1004 .WORD 1402, 2001, 2600, 3400 .WORD 4201, 4602, 5003, 44420 .WORD 4210, 4206, 4405, 77425 .WORD 3374, 41020, 616, 213 .WORD 37411, 41020, 1216, 1613 .WORD 2211, 41016, 615, 1014 .WORD 1215, 1016, 41201, 1000 .WORD 601, 1002, 1201, 1376 .WORD 1174, 773, 0, 0