mirror of
https://github.com/PDP-10/its.git
synced 2026-01-23 19:07:45 +00:00
42 lines
1.7 KiB
Plaintext
42 lines
1.7 KiB
Plaintext
'<PCODE "1BIGPRI">
|
|
|
|
<PACKAGE "BIGPRINT">
|
|
|
|
<ENTRY BIGPRINT 5X7-MASK>
|
|
|
|
<SETG REP-PRINC %<RSUBR!- '[ %<PCODE!- "1BIGPRI" 0> REP-PRINC #DECL ("VALUE"
|
|
ANY ANY "OPTIONAL" FIX) OUTCHAN "" "
|
|
" " " " " BAD-ASCII-CHARACTER 5X7 %<RGLOC 5X7TB T>]>>
|
|
<AND <ASSIGNED? GLUE> .GLUE <PUT ,REP-PRINC PGLUE ![1073725440!]>>
|
|
|
|
|
|
<SETG BIGPRINT %<RSUBR-ENTRY '[REP-PRINC BIGPRINT #DECL ("VALUE" STRING STRING
|
|
"OPTIONAL" FIX FIX)] 36>>
|
|
|
|
<SETG 5X7-MASK %<RSUBR-ENTRY '[REP-PRINC 5X7-MASK #DECL ("VALUE" FIX CHARACTER)]
|
|
226>>
|
|
|
|
<SETG 5BY7MASKGEN %<RSUBR-ENTRY '[REP-PRINC 5BY7MASKGEN #DECL ("VALUE" FIX FIX
|
|
FIX FIX FIX FIX FIX FIX)] 264>>
|
|
|
|
"5x7 matrix for ASCII non-control characters"
|
|
|
|
<GDECL (5X7TB) <UVECTOR [REST FIX]>>
|
|
|
|
<SETG 5X7TB <UVECTOR 0 4433514500 11083448320 11105828170 4819720132 33053352547
|
|
4634990157 4433379328 2290360450 8726317192 720222880 5083136 12424 458752 396
|
|
35791360 15623448110 4701950094 15603929375 15604057646 2360313922 33854359086
|
|
15620589102 33321787920 15618065966 15621129774 415248768 415248520 71569472
|
|
32537600 272699648 15605043204 498789824 15621670449 32801506878 15620129326
|
|
32801080894 33840644639 33840644624 15620132398 18842895921 15170932878
|
|
7550830126 18879498801 17734058527 19182175793 18850958897 15621211694
|
|
32801505808 15621215821 32801506865 15620048430 33424543876 18842437166
|
|
18842436932 18842437290 18834663985 18834657412 33357762847 6580998278 545392672
|
|
13023449228 4786884740 143630464 8726249472 15288941 17748772414 16269839
|
|
1123599919 15261199 6753755400 14267438 17748772401 4299296900 2149648972
|
|
17735177041 4433514638 29017649 23905841 15255086 23910928 13187139 23904784
|
|
15218734 8888000806 18400877 18400580 18400938 18157905 18127000 32575775
|
|
3359903875 138547328 25908285592 290521088 34359738367>>
|
|
|
|
<ENDPACKAGE>
|