.TITLE HCST04 .ENABL LC ; ; CALL HCST04 -- This subroutine describes and defines Hershey ; character set 4. ; .PSECT HCST04 HCST04::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 26, 25 .WORD 20 .BYTE 25, 25 .WORD 46 .BYTE 34, 23 .WORD 73 .BYTE 4, 21 .WORD 127 .BYTE 17, 23 .WORD 133 .BYTE 6, 22 .WORD 152 .BYTE 27, 22 .WORD 160 .BYTE 10, 23 .WORD 207 .BYTE 16, 20 .WORD 217 .BYTE 6, 24 .WORD 235 .BYTE 25, 17 .WORD 243 .BYTE 6, 26 .WORD 270 .BYTE 21, 24 .WORD 276 .BYTE 27, 26 .WORD 317 .BYTE 25, 21 .WORD 346 .BYTE 2, 10 .WORD 373 .BYTE 10, 13 .WORD 375 .BYTE 6, 25 .WORD 405 .BYTE 20, 22 .WORD 413 .BYTE 4, 22 .WORD 433 .BYTE 7, 20 .WORD 437 .BYTE 10, 30 .WORD 446 .BYTE 22, 25 .WORD 456 .BYTE 6, 26 .WORD 500 .BYTE 14, 22 .WORD 506 .BYTE 6, 22 .WORD 522 .BYTE 32, 20 .WORD 530 .BYTE 25, 26 .WORD 562 .BYTE 21, 21 .WORD 607 .BYTE 6, 26 .WORD 630 .BYTE 12, 26 .WORD 636 .BYTE 14, 25 .WORD 650 .BYTE 22, 22 .WORD 664 .BYTE 7, 22 .WORD 706 .BYTE 21, 24 .WORD 715 .BYTE 4, 20 .WORD 736 .BYTE 6, 24 .WORD 742 .BYTE 21, 22 .WORD 750 .BYTE 17, 24 .WORD 771 .BYTE 23, 24 .WORD 1010 .BYTE 23, 24 .WORD 1033 .BYTE 4, 24 .WORD 1056 .BYTE 14, 22 .WORD 1062 .BYTE 20, 26 .WORD 1076 .BYTE 22, 27 .WORD 1116 .BYTE 20, 24 .WORD 1140 .BYTE 25, 27 .WORD 1160 .BYTE 36, 26 .WORD 1205 .BYTE 36, 26 .WORD 1243 .BYTE 14, 16 .WORD 1301 .BYTE 14, 16 .WORD 1315 .BYTE 21, 24 .WORD 1331 .BYTE 21, 24 .WORD 1331 .BYTE 4, 24 .WORD 1352 .BYTE 4, 24 .WORD 1352 .BYTE 16, 24 .WORD 1356 .BYTE 16, 24 .WORD 1356 .BYTE 17, 24 .WORD 1374 .BYTE 17, 24 .WORD 1374 .BYTE 5, 24 .WORD 1413 .BYTE 5, 24 .WORD 1413 .BYTE 21, 24 .WORD 1420 .BYTE 21, 24 .WORD 1420 .BYTE 27, 24 .WORD 1441 .BYTE 27, 24 .WORD 1441 .BYTE 4, 24 .WORD 1470 .BYTE 4, 24 .WORD 1470 .BYTE 35, 24 .WORD 1474 .BYTE 35, 24 .WORD 1474 .BYTE 27, 24 .WORD 1531 .BYTE 27, 24 .WORD 1531 .BYTE 4, 32 .WORD 1560 .BYTE 4, 32 .WORD 1560 .BYTE 2, 32 .WORD 1564 .BYTE 2, 32 .WORD 1564 .BYTE 6, 20 .WORD 1566 .BYTE 6, 20 .WORD 1566 .BYTE 2, 26 .WORD 1574 .BYTE 2, 26 .WORD 1574 .BYTE 12, 16 .WORD 1576 .BYTE 12, 16 .WORD 1576 .BYTE 12, 16 .WORD 1610 .BYTE 12, 16 .WORD 1610 .BYTE 30, 24 .WORD 1622 .BYTE 30, 24 .WORD 1622 .BYTE 4, 32 .WORD 1652 .BYTE 4, 32 .WORD 1652 .BYTE 0, 20 .WORD 1656 .BYTE 0, 20 .WORD 1656 .BYTE 10, 12 .WORD 1656 .BYTE 10, 12 .WORD 1656 .BYTE 5, 12 .WORD 1666 .BYTE 5, 12 .WORD 1666 .BYTE 10, 25 .WORD 1673 .BYTE 10, 25 .WORD 1673 .BYTE 10, 16 .WORD 1703 .BYTE 10, 16 .WORD 1703 .BYTE 10, 16 .WORD 1713 .BYTE 10, 16 .WORD 1713 .BYTE 35, 30 .WORD 1723 .BYTE 35, 30 .WORD 1723 .BYTE 4, 20 .WORD 1760 .BYTE 4, 20 .WORD 1760 .BYTE 2, 22 .WORD 1764 .BYTE 2, 22 .WORD 1764 .BYTE 7, 12 .WORD 1766 .BYTE 7, 12 .WORD 1766 .BYTE 42, 32 .WORD 1775 .BYTE 42, 32 .WORD 1775 .BYTE 2, 10 .WORD 2037 .BYTE 2, 10 .WORD 2037 .BYTE 23, 22 .WORD 2041 .BYTE 23, 22 .WORD 2041 .BYTE 3, 30 .WORD 2064 .BYTE 3, 30 .WORD 2064 .BYTE 3, 30 .WORD 2067 .BYTE 3, 30 .WORD 2067 .BYTE 64, 33 .WORD 2072 .BYTE 64, 33 .WORD 2072 .BYTE 2, 16 .WORD 2156 .BYTE 2, 16 .WORD 2156 .BYTE 10, 12 .WORD 2160 .BYTE 10, 12 .WORD 2160 .BYTE 15, 12 .WORD 2170 .BYTE 15, 12 .WORD 2170 DFN: ;DEFINITION TABLE. .WORD 41016, 615, 1014, 1215 .WORD 1016, 41002, 601, 1000 .WORD 1201, 1002, 42025, 0 .WORD 42025, 4000, 40607, 3207 .WORD 42016, 1415, 1013, 611 .WORD 406, 403, 601, 1200 .WORD 1600, 2201, 3004, 3407 .WORD 4013, 4216, 42016, 2416 .WORD 2615, 3013, 3403, 3601 .WORD 4000, 4200, 40625, 600 .WORD 40625, 3025, 3624, 4023 .WORD 4221, 4217, 4015, 3614 .WORD 3013, 40613, 3013, 3612 .WORD 4011, 4207, 4204, 4002 .WORD 3601, 3000, 600, 42625 .WORD 2224, 1622, 1216, 1013 .WORD 607, 401, 370, 42625 .WORD 3225, 3623, 3620, 3416 .WORD 3215, 2614, 2014, 42014 .WORD 2413, 3011, 3207, 3204 .WORD 3002, 2601, 2200, 1600 .WORD 1201, 1002, 605, 40625 .WORD 600, 40625, 3625, 40013 .WORD 415, 1016, 1216, 1615 .WORD 2014, 2211, 2205, 2000 .WORD 44016, 3613, 3411, 2000 .WORD 1573, 1370, 42025, 0 .WORD 42025, 4000, 40000, 4000 .WORD 42416, 1616, 1215, 613 .WORD 410, 405, 602, 1001 .WORD 1400, 2000, 2401, 3003 .WORD 3206, 3211, 3014, 2416 .WORD 2020, 1622, 1624, 2025 .WORD 2425, 3024, 3422, 40625 .WORD 600, 40625, 4025, 40613 .WORD 2613, 40600, 4000, 43015 .WORD 2416, 1616, 1215, 613 .WORD 410, 405, 602, 1001 .WORD 1400, 2200, 2601, 40407 .WORD 2407, 44025, 400, 40425 .WORD 4025, 40400, 4000, 42225 .WORD 1624, 1423, 1422, 1621 .WORD 2420, 3220, 43220, 2216 .WORD 1414, 611, 406, 404 .WORD 602, 1200, 2175, 2373 .WORD 2371, 2170, 1570, 1372 .WORD 40625, 600, 44225, 4200 .WORD 40613, 4213, 40012, 214 .WORD 616, 1216, 1415, 1413 .WORD 1207, 600, 41207, 1613 .WORD 2215, 2616, 3216, 3614 .WORD 3611, 3404, 2770, 42025 .WORD 1424, 1022, 620, 415 .WORD 410, 605, 1003, 1401 .WORD 2000, 3000, 3401, 4003 .WORD 4205, 4410, 4415, 4220 .WORD 4022, 3424, 3025, 2025 .WORD 41613, 3213, 42225, 1624 .WORD 1221, 1017, 614, 407 .WORD 403, 601, 1000, 1400 .WORD 2001, 2404, 2606, 3011 .WORD 3216, 3222, 3024, 2625 .WORD 2225, 40613, 3013, 40625 .WORD 600, 41216, 607, 403 .WORD 401, 600, 1200, 1602 .WORD 2004, 40625, 600, 44225 .WORD 607, 42014, 4200, 41216 .WORD 200, 43615, 3416, 3216 .WORD 2615, 1611, 1210, 1010 .WORD 41010, 1407, 1606, 2201 .WORD 2400, 2600, 3001, 42025 .WORD 0, 42025, 4000, 40025 .WORD 425, 1024, 1223, 3200 .WORD 41616, 200, 40625, 600 .WORD 40625, 2600, 44625, 2600 .WORD 44625, 4600, 41416, 170 .WORD 41212, 1005, 1002, 1400 .WORD 2000, 2401, 3003, 3407 .WORD 44016, 3407, 3203, 3201 .WORD 3400, 4000, 4402, 4604 .WORD 40625, 600, 40625, 4200 .WORD 44225, 4200, 40416, 1216 .WORD 1010, 603, 400, 43616 .WORD 3413, 3211, 2606, 2003 .WORD 1201, 400, 40225, 3625 .WORD 41213, 2613, 40200, 3600 .WORD 42225, 1624, 1423, 1422 .WORD 1621, 2420, 3220, 42420 .WORD 1617, 1216, 1014, 1012 .WORD 1410, 2207, 2607, 42207 .WORD 1206, 605, 403, 401 .WORD 1176, 2174, 2373, 2371 .WORD 1770, 1370, 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, 41616 .WORD 1215, 613, 410, 405 .WORD 602, 1001, 1400, 2000 .WORD 2401, 3003, 3206, 3211 .WORD 3014, 2615, 2216, 1616 .WORD 40625, 600, 44225, 4200 .WORD 40625, 4225, 42016, 1000 .WORD 43216, 3410, 3603, 4000 .WORD 40213, 615, 1416, 4616 .WORD 40625, 600, 40625, 3025 .WORD 3624, 4023, 4221, 4216 .WORD 4014, 3613, 3012, 612 .WORD 40610, 605, 1002, 1201 .WORD 1600, 2200, 2601, 3203 .WORD 3406, 3411, 3214, 3015 .WORD 2416, 2016, 1415, 1013 .WORD 610, 37570, 40225, 2013 .WORD 200, 40225, 3625, 40200 .WORD 3600, 44216, 1616, 1215 .WORD 613, 410, 405, 602 .WORD 1001, 1400, 2000, 2401 .WORD 3003, 3206, 3211, 3014 .WORD 2615, 2216, 41625, 1600 .WORD 40025, 3425, 42416, 1600 .WORD 40213, 615, 1416, 4216 .WORD 40220, 222, 424, 625 .WORD 1225, 1424, 1622, 2016 .WORD 2000, 43620, 3622, 3424 .WORD 3225, 2625, 2424, 2222 .WORD 2016, 40012, 214, 616 .WORD 1216, 1415, 1413, 1005 .WORD 1002, 1400, 2000, 2601 .WORD 3203, 3607, 4013, 4016 .WORD 42225, 2200, 41620, 1017 .WORD 616, 414, 411, 607 .WORD 1006, 1605, 2605, 3406 .WORD 3607, 4011, 4014, 3616 .WORD 3417, 2620, 1620, 43225 .WORD 1370, 42016, 1215, 613 .WORD 410, 405, 603, 1201 .WORD 2000, 2400, 3201, 3603 .WORD 4006, 4011, 3613, 3215 .WORD 2416, 2016, 40425, 4000 .WORD 40400, 4025, 40216, 616 .WORD 1214, 2772, 3370, 3770 .WORD 44016, 3614, 3211, 775 .WORD 372, 170, 42425, 2400 .WORD 40217, 417, 616, 1012 .WORD 1210, 1407, 2206, 2606 .WORD 3407, 3610, 4012, 4216 .WORD 4417, 4617, 43625, 1770 .WORD 40012, 214, 616, 1216 .WORD 1415, 1413, 1206, 1203 .WORD 1401, 2000, 2400, 3201 .WORD 3603, 4206, 4613, 5016 .WORD 40400, 1400, 607, 413 .WORD 417, 622, 1224, 2025 .WORD 2425, 3224, 3622, 4017 .WORD 4013, 3607, 3000, 4000 .WORD 41616, 1215, 612, 407 .WORD 404, 601, 1000, 1400 .WORD 2001, 2404, 42610, 2404 .WORD 2601, 3000, 3400, 4001 .WORD 4404, 4607, 4612, 4415 .WORD 4216, 42411, 3006, 3205 .WORD 3604, 4204, 4605, 5006 .WORD 5210, 5212, 5014, 4615 .WORD 4216, 3616, 3215, 3014 .WORD 2006, 1605, 1204, 604 .WORD 205, 6, 37410, 37412 .WORD 14, 215, 616, 1216 .WORD 1615, 2014, 2411, 42411 .WORD 3006, 3205, 3604, 4204 .WORD 4605, 5006, 5210, 5212 .WORD 5014, 4615, 4216, 3616 .WORD 3215, 3014, 2006, 1605 .WORD 1204, 604, 205, 6 .WORD 37410, 37412, 14, 215 .WORD 616, 1216, 1615, 2014 .WORD 2411, 40421, 623, 1225 .WORD 2025, 2224, 2222, 1003 .WORD 1001, 1200, 2000, 2402 .WORD 2604, 40421, 623, 1225 .WORD 2025, 2224, 2222, 1003 .WORD 1001, 1200, 2000, 2402 .WORD 2604, 42025, 1224, 621 .WORD 414, 411, 604, 1201 .WORD 2000, 2400, 3201, 3604 .WORD 4011, 4014, 3621, 3224 .WORD 2425, 2025, 41221, 1622 .WORD 2425, 2400, 40620, 621 .WORD 1023, 1224, 1625, 2625 .WORD 3224, 3423, 3621, 3617 .WORD 3415, 3012, 400, 4000 .WORD 41025, 3625, 2215, 3015 .WORD 3414, 3613, 4010, 4006 .WORD 3603, 3201, 2400, 1600 .WORD 1001, 602, 404, 43025 .WORD 407, 4207, 43025, 3000 .WORD 43425, 1025, 614, 1015 .WORD 1616, 2416, 3215, 3613 .WORD 4010, 4006, 3603, 3201 .WORD 2400, 1600, 1001, 602 .WORD 404, 43622, 3424, 2625 .WORD 2225, 1424, 1021, 614 .WORD 607, 1003, 1401, 2200 .WORD 2400, 3201, 3603, 4006 .WORD 4007, 3612, 3214, 2415 .WORD 2215, 1414, 1012, 607 .WORD 44025, 1400, 40425, 4025 .WORD 41625, 1024, 622, 620 .WORD 1016, 1415, 2414, 3213 .WORD 3611, 4007, 4004, 3602 .WORD 3401, 2600, 1600, 1001 .WORD 602, 404, 407, 611 .WORD 1213, 2014, 3015, 3416 .WORD 3620, 3622, 3424, 2625 .WORD 1625, 43616, 3413, 3011 .WORD 2210, 2010, 1211, 613 .WORD 416, 417, 622, 1224 .WORD 2025, 2225, 3024, 3422 .WORD 3616, 3611, 3404, 3001 .WORD 2200, 1600, 1001, 603 .WORD 43022, 3000, 40611, 5211 .WORD 40611, 5211, 41617, 1603 .WORD 40414, 3006, 43014, 406 .WORD 44631, 370, 42431, 2027 .WORD 1424, 1020, 613, 607 .WORD 1002, 1575, 2172, 2570 .WORD 40431, 1027, 1424, 2020 .WORD 2213, 2207, 2002, 1575 .WORD 1172, 570, 41631, 1773 .WORD 42631, 2773, 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, 40614, 5214 .WORD 40606, 5206, 41201, 1000 .WORD 601, 1002, 1201, 1376 .WORD 1174, 773, 41002, 601 .WORD 1000, 1201, 1002, 42431 .WORD 770, 44031, 2370, 40614 .WORD 4214, 40406, 4006, 40631 .WORD 770, 41031, 1170, 40631 .WORD 2431, 40770, 2570, 42031 .WORD 2170, 42231, 2370, 40431 .WORD 2231, 40570, 2370, 45025 .WORD 400, 41625, 2223, 2221 .WORD 2017, 1416, 1016, 420 .WORD 422, 624, 1225, 1625 .WORD 2224, 3023, 3623, 4424 .WORD 5025, 44007, 3406, 3204 .WORD 3202, 3600, 4200, 4601 .WORD 5003, 5005, 4407, 4007 .WORD 40625, 616, 42625, 2616 .WORD 40000, 4400, 41025, 1007 .WORD 41002, 601, 1000, 1201 .WORD 1002, 45414, 5415, 5216 .WORD 5016, 4615, 4413, 4006 .WORD 3403, 3001, 2400, 1400 .WORD 1001, 602, 404, 406 .WORD 610, 1011, 2615, 3016 .WORD 3220, 3222, 3024, 2425 .WORD 2024, 1622, 1620, 2015 .WORD 2412, 3603, 4201, 4600 .WORD 5200, 5401, 5402, 40625 .WORD 616, 40420, 421, 623 .WORD 1024, 1425, 2425, 3024 .WORD 3223, 3421, 3417, 3215 .WORD 3014, 2012, 2007, 42002 .WORD 1601, 2000, 2201, 2002 .WORD 44622, 611, 4600, 40622 .WORD 4611, 600, 44215, 4017 .WORD 3420, 2620, 2217, 2016 .WORD 1613, 1610, 2006, 2405 .WORD 3205, 3606, 4010, 42620 .WORD 2216, 2013, 2010, 2206 .WORD 2405, 44220, 4010, 4006 .WORD 4405, 5005, 5407, 5612 .WORD 5614, 5417, 5221, 4623 .WORD 4224, 3425, 2625, 2024 .WORD 1423, 1021, 617, 414 .WORD 411, 606, 1004, 1402 .WORD 2001, 2600, 3400, 4201 .WORD 4602, 5003, 44420, 4210 .WORD 4206, 4405, 77425, 3374 .WORD 41020, 616, 213, 37411 .WORD 41020, 1216, 1613, 2211 .WORD 41016, 615, 1014, 1215 .WORD 1016, 41201, 1000, 601 .WORD 1002, 1201, 1376, 1174 .WORD 773, 0, 0, 0