mirror of
https://github.com/PDP-10/its.git
synced 2026-02-04 15:53:01 +00:00
198 lines
6.3 KiB
Plaintext
198 lines
6.3 KiB
Plaintext
'<PCODE "1MGPRIM">
|
|
|
|
<PACKAGE "MGPRIM">
|
|
|
|
<ENTRY BOOK DRAW DTXT ECHO ERASEP ERASET L LAYOUT LINE MARKP MARKT MIGSSEND MOVE
|
|
OPENP OPENT PAGE PICTUR PLOTV POINT READTB SETORG TABLE TBCON TRANS TXT>
|
|
|
|
<USE "DISPLA">
|
|
|
|
<USE "SMCELLS">
|
|
|
|
<MOBLIST BOOK>
|
|
|
|
<BLOCK (<GET MIGS OBLIST> <ROOT>)>
|
|
|
|
XORG
|
|
|
|
YORG
|
|
|
|
ABSOLUTE-POSITION
|
|
|
|
TENEX
|
|
|
|
PHYCEN
|
|
|
|
<ENDBLOCK>
|
|
|
|
<BLOCK (<GET DISPCOM OBLIST> <ROOT>)>
|
|
|
|
COMSWITCH
|
|
|
|
<ENDBLOCK>
|
|
|
|
<BLOCK (!.OBLIST <GET MIGS OBLIST> <GET DISPCOM OBLIST>)>
|
|
|
|
<SET ABSOLUTE-POSITION '![0 0!]>
|
|
|
|
<SETG XORG 0>
|
|
|
|
<SETG YORG 0>
|
|
|
|
<GDECL (XORG YORG) FIX>
|
|
|
|
<SET REDEFINE T>
|
|
|
|
<SETG SETORG %<RSUBR!- '[ %<PCODE!- "1MGPRIM" 0> SETORG #DECL ("VALUE" <UVECTOR
|
|
FIX [REST FIX]> "OPTIONAL" FIX FIX) LAYOUT MARKP OPENP SETPT!-BOOK DRAW MOVE
|
|
MIGSSEND COMSWITCH %<RGLOC STRG T> %<RGLOC XORG T> %<RGLOC YORG T> %<RGLOC NULL
|
|
T> %<RGLOC DRL T> %<RGLOC STP T> %<RGLOC PCT T> OUTCHAN ABSOLUTE-POSITION %<
|
|
RGLOC MV T> %<RGLOC DR T> %<RGLOC PT T> %<RGLOC LN T> %<RGLOC PV T>]>>
|
|
<AND <ASSIGNED? GLUE> .GLUE <PUT ,SETORG PGLUE ![715849727 -4194304!]>>
|
|
|
|
|
|
<SETG LAYOUT!-BOOK %<RSUBR-ENTRY '[SETORG LAYOUT!-BOOK #DECL ("VALUE" ATOM
|
|
"OPTIONAL" FIX FIX FIX FIX FIX FIX FIX FIX FIX FIX FIX)] 63>>
|
|
|
|
<SETG OPENP!-BOOK %<RSUBR-ENTRY '[SETORG OPENP!-BOOK #DECL ("VALUE" ATOM
|
|
"OPTIONAL" FIX)] 154>>
|
|
|
|
<SETG MARKP!-BOOK %<RSUBR-ENTRY '[SETORG MARKP!-BOOK #DECL ("VALUE" ATOM FIX)]
|
|
187>>
|
|
|
|
<SETG ERASEP!-BOOK %<RSUBR-ENTRY '[SETORG ERASEP!-BOOK #DECL ("VALUE" ATOM)] 210
|
|
>>
|
|
|
|
<SETG VECTR!-BOOK %<RSUBR-ENTRY '[SETORG VECTR!-BOOK #DECL ("VALUE" ATOM <OR FIX
|
|
FLOAT> <OR FIX FLOAT> "TUPLE" <TUPLE [REST <OR FIX FLOAT>]>)] 227>>
|
|
|
|
<SETG SETPT!-BOOK %<RSUBR-ENTRY '[SETORG SETPT!-BOOK #DECL ("VALUE" ATOM <OR FIX
|
|
FLOAT> <OR FIX FLOAT> "TUPLE" <TUPLE [REST <OR FIX FLOAT>]>)] 273>>
|
|
|
|
<SETG PICTURE!-BOOK %<RSUBR-ENTRY '[SETORG PICTURE!-BOOK #DECL ("VALUE" ATOM <OR
|
|
FIX FLOAT> <OR FIX FLOAT>)] 319>>
|
|
|
|
<SETG MOVE!-BOOK %<RSUBR-ENTRY '[SETORG MOVE!-BOOK #DECL ("VALUE" ATOM FIX FIX)]
|
|
363>>
|
|
|
|
<SETG DOT!-BOOK %<RSUBR-ENTRY '[SETORG DOT!-BOOK #DECL ("VALUE" ATOM FIX FIX)]
|
|
392>>
|
|
|
|
<SETG CORD %<RSUBR-ENTRY '[SETORG CORD #DECL ("VALUE" ATOM FIX)] 421>>
|
|
|
|
<SETG BITSB!-BOOK %<RSUBR-ENTRY '[SETORG BITSB!-BOOK #DECL ("VALUE" ATOM FIX FIX
|
|
FIX FIX)] 458>>
|
|
|
|
<SETG OPENF!-BOOK %<RSUBR-ENTRY '[SETORG OPENF!-BOOK #DECL ("VALUE" ATOM FIX)]
|
|
490>>
|
|
|
|
<SETG OPENT!-BOOK %<RSUBR-ENTRY '[SETORG OPENT!-BOOK #DECL ("VALUE" FIX
|
|
"OPTIONAL" FIX)] 513>>
|
|
|
|
<SETG MARKT!-BOOK %<RSUBR-ENTRY '[SETORG MARKT!-BOOK #DECL ("VALUE" FIX
|
|
"OPTIONAL" FIX)] 547>>
|
|
|
|
<SETG ERASET!-BOOK %<RSUBR-ENTRY '[SETORG ERASET!-BOOK #DECL ("VALUE" ATOM)] 581
|
|
>>
|
|
|
|
<SETG TABLE!-BOOK %<RSUBR-ENTRY '[SETORG TABLE!-BOOK #DECL ("VALUE" ATOM FIX
|
|
"OPTIONAL" FIX)] 601>>
|
|
|
|
<SETG TXT!-BOOK %<RSUBR-ENTRY '[SETORG TXT!-BOOK #DECL ("VALUE" ATOM STRING)]
|
|
641>>
|
|
|
|
<SETG MARKF!-BOOK %<RSUBR-ENTRY '[SETORG MARKF!-BOOK #DECL ("VALUE" ATOM FIX)]
|
|
670>>
|
|
|
|
<SETG ERASF!-BOOK %<RSUBR-ENTRY '[SETORG ERASF!-BOOK #DECL ("VALUE" ATOM)] 693>>
|
|
|
|
<SETG DOTFIG!-BOOK %<RSUBR-ENTRY '[SETORG DOTFIG!-BOOK #DECL ("VALUE" ATOM FIX
|
|
FIX)] 710>>
|
|
|
|
<SETG VECFIG!-BOOK %<RSUBR-ENTRY '[SETORG VECFIG!-BOOK #DECL ("VALUE" ATOM FIX
|
|
FIX)] 740>>
|
|
|
|
<SETG JOT!-BOOK %<RSUBR-ENTRY '[SETORG JOT!-BOOK #DECL ("VALUE" ATOM FIX FIX)]
|
|
770>>
|
|
|
|
<SETG NOJOT!-BOOK %<RSUBR-ENTRY '[SETORG NOJOT!-BOOK #DECL ("VALUE" ATOM FIX FIX
|
|
)] 797>>
|
|
|
|
<COND (.TENEX <SETG READTB <FIXUP!-RSUBRS '[#CODE ![29662117965 24159191474
|
|
17215782913 17322475584 9126805568 17322475585 9126805575 23882366978
|
|
-15015605056 9126805576 26071793666 23088857102 17330864134 23088857106
|
|
28222685201 17330864133 23088857106 17330864130 9126805545 17322475584
|
|
17339252744 9126805653 23088857126 23849036801 23848812546 9126805653
|
|
23088857126 23849036801 23848812546 9126805653 23088857126 23849036801
|
|
23848812546 17322475585 24016584706 9126805576 293838286 23085677464 17322475585
|
|
24016584706 9126805576 23852482566 23852482567 277057214 23085677464 7201294908
|
|
0 2!] READTB #DECL ("VALUE" <UVECTOR FIX FIX FIX> FIX) "NIN ERROR "] '(51
|
|
INTFLG!-MUDDLE 77 (1) LCKINT!-MUDDLE 434 (2) $TLOSE!-MUDDLE 224256 (32 28 24)
|
|
UVECTOR 237006 (37) FINIS!-MUDDLE 228248 (45 38) ERROR 233150 (44))>> <SETG
|
|
TBCON <FIXUP!-RSUBRS '[#CODE ![17322475585 9126805575 23882366978 -15015608128
|
|
9126805576 17330864131 9126805545 17199005697 9126805545 24016584706 9126805576
|
|
17190617088 17199005697 23085678206 7398560256 0 2!] TBCON #DECL ("VALUE" FIX
|
|
FIX)] '(49 FINIS!-MUDDLE 228990 (14))>> <SETG ECHO <FIXUP!-RSUBRS '[#CODE ![
|
|
17322475585 9126805575 17207394305 28214296583 -10720638976 9126805576
|
|
23088857097 -15015605248 9126805576 17199005697 17188483073 23085678206
|
|
5865439296 0 2!] ECHO #DECL ("VALUE" FIX FIX)] '(49 $TLOSE!-MUDDLE 225280 (11)
|
|
FINIS!-MUDDLE 228990 (12))>> ,NULL)>
|
|
|
|
<SETG MOVE %<RSUBR-ENTRY '[SETORG MOVE #DECL ("VALUE" ATOM FIX FIX "TUPLE" <
|
|
TUPLE [REST <OR FIX FLOAT>]>)] 824>>
|
|
|
|
<SETG DRAW %<RSUBR-ENTRY '[SETORG DRAW #DECL ("VALUE" ATOM <OR FIX FLOAT> <OR
|
|
FIX FLOAT> "TUPLE" <TUPLE [REST <OR FIX FLOAT>]>)] 876>>
|
|
|
|
<SETG POINT %<RSUBR-ENTRY '[SETORG POINT #DECL ("VALUE" ATOM <OR FIX FLOAT> <OR
|
|
FIX FLOAT> "TUPLE" <TUPLE [REST <OR FIX FLOAT>]>)] 921>>
|
|
|
|
<COND (<NOT .TENEX> <SETG MIGSSEND <FIXUP!-RSUBRS '[#CODE ![17205035017
|
|
28616949769 23848812547 23849598976 23849598977 277079307 23983030275
|
|
24724635660 23088857089 17200316423 23748397143 23085680158 524290 6699942871 0
|
|
2!] MIGSSEND #DECL ("VALUE" ATOM "TUPLE" <TUPLE [REST FIX]>) NULL] '(54 IMAGE
|
|
255243 (6) CIGVAL!-MUDDLE 247895 (11) FINIS!-MUDDLE 230942 (12))>> ,NULL)>
|
|
|
|
<SETG LINE %<RSUBR-ENTRY '[SETORG LINE #DECL ("VALUE" ATOM <OR FIX FLOAT> <OR
|
|
FIX FLOAT> <OR FIX FLOAT> <OR FIX FLOAT> "TUPLE" <TUPLE [REST <OR FIX FLOAT>]>)]
|
|
973>>
|
|
|
|
<SETG TRANS %<RSUBR-ENTRY '[SETORG TRANS #DECL ("VALUE" ATOM FIX FIX)] 1040>>
|
|
|
|
<SETG PLOTV %<RSUBR-ENTRY '[SETORG PLOTV #DECL ("VALUE" ATOM <OR LIST VECTOR
|
|
UVECTOR> <OR LIST VECTOR UVECTOR> "TUPLE" <TUPLE [REST <OR LIST VECTOR UVECTOR>]
|
|
>)] 1092>>
|
|
|
|
<SETG DTXT %<RSUBR-ENTRY '[SETORG DTXT #DECL ("VALUE" ATOM FIX FIX FIX
|
|
"OPTIONAL" FIX)] 1284>>
|
|
|
|
<SETG PAGE %<RSUBR-ENTRY '[SETORG PAGE #DECL ("VALUE" ATOM)] 1328>>
|
|
|
|
<SETG L %<RSUBR-ENTRY '[SETORG L #DECL ("VALUE" ATOM)] 1347>>
|
|
|
|
<SETG LAYOUT ,LAYOUT!-BOOK>
|
|
|
|
<SETG OPENP ,OPENP!-BOOK>
|
|
|
|
<SETG MARKP ,MARKP!-BOOK>
|
|
|
|
<SETG ERASEP ,ERASEP!-BOOK>
|
|
|
|
<SETG PICTUR ,PICTURE!-BOOK>
|
|
|
|
<SETG TABLE ,TABLE!-BOOK>
|
|
|
|
<SETG OPENT ,OPENT!-BOOK>
|
|
|
|
<SETG MARKT ,MARKT!-BOOK>
|
|
|
|
<SETG ERASET ,ERASET!-BOOK>
|
|
|
|
<SETG TXT ,TXT!-BOOK>
|
|
|
|
<SET REDEFINE <>>
|
|
|
|
<ENDBLOCK>
|
|
|
|
<ENDPACKAGE>
|