.TITLE HCSETS .ENABL LC ; ; CALL HCSETS -- This subroutine describes and defines Hershey ; character set S. ; .PSECT HCSETS HCSETS::MOV #DSCRB,DES MOV #DFN,DEF MOV # 64.,LL0D MOV SCL,SCALED MOV SCL+2,SCALED+2 RTS PC ; SCL: .FLT2 0.007812 ; DSCRB: ;DESCRIPTOR TABLE. .BYTE 0, 0 .WORD 0 .BYTE 0, 0 .WORD 0 .BYTE 41, 71 .WORD 0 .BYTE 0, 0 .WORD 41 .BYTE 22, 126 .WORD 41 .BYTE 0, 0 .WORD 63 .BYTE 20, 134 .WORD 63 .BYTE 0, 0 .WORD 103 .BYTE 5, 51 .WORD 103 .BYTE 5, 0 .WORD 110 .BYTE 0, 0 .WORD 115 .BYTE 0, 0 .WORD 115 .BYTE 13, 102 .WORD 115 .BYTE 0, 0 .WORD 130 .BYTE 0, 0 .WORD 130 .BYTE 0, 0 .WORD 130 .BYTE 6, 54 .WORD 130 .BYTE 0, 0 .WORD 136 .BYTE 6, 40 .WORD 136 .BYTE 0, 0 .WORD 144 .BYTE 0, 0 .WORD 144 .BYTE 0, 0 .WORD 144 .BYTE 130, 135 .WORD 144 .BYTE 0, 0 .WORD 274 .BYTE 0, 0 .WORD 274 .BYTE 0, 0 .WORD 274 .BYTE 0, 0 .WORD 274 .BYTE 0, 0 .WORD 274 .BYTE 51, 76 .WORD 274 .BYTE 0, 0 .WORD 345 .BYTE 11, 0 .WORD 345 .BYTE 0, 0 .WORD 356 .BYTE 4, 0 .WORD 356 .BYTE 0, 0 .WORD 362 .BYTE 5, 76 .WORD 362 .BYTE 0, 0 .WORD 367 .BYTE 0, 0 .WORD 367 .BYTE 0, 0 .WORD 367 .BYTE 5, 74 .WORD 367 .BYTE 0, 0 .WORD 374 .BYTE 4, 0 .WORD 374 .BYTE 4, 0 .WORD 400 .BYTE 23, 100 .WORD 404 .BYTE 0, 0 .WORD 427 .BYTE 2, 0 .WORD 427 .BYTE 0, 0 .WORD 431 .BYTE 0, 0 .WORD 431 .BYTE 0, 0 .WORD 431 .BYTE 4, 0 .WORD 431 .BYTE 0, 0 .WORD 435 .BYTE 0, 0 .WORD 435 .BYTE 0, 0 .WORD 435 .BYTE 0, 0 .WORD 435 .BYTE 0, 0 .WORD 435 .BYTE 0, 0 .WORD 435 .BYTE 0, 0 .WORD 435 .BYTE 0, 0 .WORD 435 .BYTE 0, 0 .WORD 435 .BYTE 0, 0 .WORD 435 .BYTE 0, 0 .WORD 435 .BYTE 0, 0 .WORD 435 .BYTE 0, 0 .WORD 435 .BYTE 0, 0 .WORD 435 .BYTE 0, 0 .WORD 435 .BYTE 0, 0 .WORD 435 .BYTE 0, 0 .WORD 435 .BYTE 0, 0 .WORD 435 .BYTE 0, 0 .WORD 435 .BYTE 0, 0 .WORD 435 .BYTE 0, 0 .WORD 435 .BYTE 0, 0 .WORD 435 .BYTE 0, 0 .WORD 435 .BYTE 0, 0 .WORD 435 .BYTE 0, 0 .WORD 435 .BYTE 0, 0 .WORD 435 .BYTE 0, 0 .WORD 435 .BYTE 0, 0 .WORD 435 .BYTE 0, 0 .WORD 435 .BYTE 0, 0 .WORD 435 .BYTE 0, 0 .WORD 435 .BYTE 0, 0 .WORD 435 .BYTE 0, 0 .WORD 435 .BYTE 0, 0 .WORD 435 .BYTE 0, 0 .WORD 435 .BYTE 0, 0 .WORD 435 .BYTE 0, 0 .WORD 435 .BYTE 0, 0 .WORD 435 .BYTE 0, 0 .WORD 435 .BYTE 0, 0 .WORD 435 .BYTE 0, 0 .WORD 435 .BYTE 0, 0 .WORD 435 .BYTE 0, 0 .WORD 435 .BYTE 0, 0 .WORD 435 .BYTE 0, 0 .WORD 435 .BYTE 0, 0 .WORD 435 .BYTE 0, 0 .WORD 435 .BYTE 0, 0 .WORD 435 .BYTE 0, 0 .WORD 435 .BYTE 0, 0 .WORD 435 .BYTE 0, 0 .WORD 435 .BYTE 0, 0 .WORD 435 .BYTE 0, 0 .WORD 435 .BYTE 0, 0 .WORD 435 .BYTE 0, 0 .WORD 435 .BYTE 0, 0 .WORD 435 .BYTE 0, 0 .WORD 435 .BYTE 0, 0 .WORD 435 .BYTE 0, 0 .WORD 435 .BYTE 0, 0 .WORD 435 .BYTE 0, 0 .WORD 435 .BYTE 0, 0 .WORD 435 .BYTE 0, 0 .WORD 435 .BYTE 0, 0 .WORD 435 .BYTE 0, 0 .WORD 435 .BYTE 0, 0 .WORD 435 .BYTE 0, 0 .WORD 435 .BYTE 0, 0 .WORD 435 .BYTE 0, 0 .WORD 435 .BYTE 0, 0 .WORD 435 .BYTE 0, 0 .WORD 435 .BYTE 0, 0 .WORD 435 .BYTE 0, 0 .WORD 435 .BYTE 0, 0 .WORD 435 .BYTE 0, 0 .WORD 435 .BYTE 0, 0 .WORD 435 .BYTE 0, 0 .WORD 435 .BYTE 0, 0 .WORD 435 .BYTE 0, 0 .WORD 435 DFN: ;DEFINITION TABLE. .WORD 100, 456, 345, .WORD 77644, 2053, 4456, 7262 .WORD 12056, 14047, 15241, 16030 .WORD 16215, 14776, 12557, 10544 .WORD 6331, 4521, 2310, 302 .WORD 37101, 34315, 32132, 27344 .WORD 24762, 23173, 22202, 21614 .WORD 21425, 22235, 23043, 24050 .WORD 26255, 31060, 34257, 35654 .WORD 37447, 60401, 21012, 22224 .WORD 23440, 26055, 30664, 34271 .WORD 37474, 2272, 4072, 7067 .WORD 11260, 13645, 16232, 17416 .WORD 17600, 503, 21001, 65323 .WORD 24656, 27057, 31060, 33655 .WORD 36052, 45, 1641, 4231 .WORD 6022, 10407, 12375, 13561 .WORD 14342, 14521, 25723, 66200 .WORD 75, 12200, 104, 26200 .WORD 61001, 52, 17201, 133 .WORD 21001, 62422, 35023, 73 .WORD 3423, 16022, 5771, 11121 .WORD 152, 27520, 33371, 22422 .WORD 65323, 25421, 77, 13017 .WORD 12723, 25324, 70672, 10073 .WORD 40070, 111, 70510, 7510 .WORD 75320, 36127, 36334, 37142 .WORD 37147, 37353, 37156, 37157 .WORD 36557, 35752, 35145, 33741 .WORD 32536, 30735, 27336, 25740 .WORD 24744, 23751, 23160, 22764 .WORD 23171, 23176, 24004, 25412 .WORD 27016, 30416, 32014, 33412 .WORD 34207, 35607, 34014, 32622 .WORD 31631, 31235, 31241, 31646 .WORD 32253, 33662, 35264, 36065 .WORD 37266, 664, 2262, 4055 .WORD 5250, 5443, 5437, 5432 .WORD 5225, 4621, 4015, 3212 .WORD 2610, 2605, 3410, 5212 .WORD 6414, 7614, 11011, 11610 .WORD 12603, 13776, 14170, 14563 .WORD 14156, 13350, 11744, 10540 .WORD 6737, 5737, 4741, 3542 .WORD 2545, 1551, 1353, 556 .WORD 356, 353, 545, 1140 .WORD 1333, 2125, 2322, 2120 .WORD 722, 37722, 37122, 35720 .WORD 40077, 7245, 12032, 14620 .WORD 16406, 17573, 17157, 16350 .WORD 14741, 12137, 7143, 4552 .WORD 3160, 1564, 1357, 1742 .WORD 3120, 4505, 2104, 104 .WORD 36104, 34105, 35321, 36534 .WORD 37146, 37156, 36765, 34761 .WORD 32751, 30741, 26537, 24340 .WORD 22743, 20752, 20360, 20575 .WORD 22007, 25225, 32451, 35465 .WORD 77, 62032, 32274, 6274 .WORD 16432, 16753, 6107, 32106 .WORD 22352, 22032, 61200, 17601 .WORD 40077, 105, 61200, 74 .WORD 17402, 304, 21400, 65260 .WORD 14260, 15124, 24722, 24660 .WORD 63144, 74, 15143, 22743 .WORD 63237, 15240, 305, 23237 .WORD 65315, 24615, 25023, 25233 .WORD 26044, 27653, 31462, 33670 .WORD 36674, 675, 3672, 6266 .WORD 10460, 12050, 13035, 14024 .WORD 14015, 13716, 25316, 40067 .WORD 107, 65254, 12725, 53053 .WORD 25126, 0, 0, 0