mirror of
https://github.com/PDP-10/its.git
synced 2026-01-13 07:19:57 +00:00
76 lines
2.0 KiB
Plaintext
76 lines
2.0 KiB
Plaintext
'<PCODE "MTPRIM">
|
|
|
|
<SET L-NO-MAGIC T>
|
|
|
|
<PACKAGE "MTPRIM">
|
|
|
|
<ENTRY DRAW HARDCOPY LINE MIGSSEND MOVE PAGE POINT PLOTV SETORG TRANS PLOTVDSK>
|
|
|
|
<USE "DISPLA">
|
|
|
|
<USE "SMCELLS">
|
|
|
|
<BLOCK (<GET MIGS OBLIST> <ROOT>)>
|
|
|
|
XORG
|
|
|
|
YORG
|
|
|
|
<ENDBLOCK>
|
|
|
|
<BLOCK (<GET DISPCOM OBLIST> <ROOT>)>
|
|
|
|
COMSWITCH
|
|
|
|
<ENDBLOCK>
|
|
|
|
<BLOCK (!.OBLIST <GET MIGS OBLIST> <GET DISPCOM OBLIST>)>
|
|
|
|
<GDECL (XORG YORG) FIX>
|
|
|
|
<SETG XORG 0>
|
|
|
|
<SETG YORG 0>
|
|
|
|
<SETG SETORG %<RSUBR!- '[ %<PCODE!- "MTPRIM" 0> SETORG #DECL ("VALUE" LIST
|
|
"OPTIONAL" <OR FIX FLOAT> <OR FIX FLOAT>) MIGSSEND COMSWITCH %<RGLOC STRG T> %<
|
|
RGLOC XORG T> %<RGLOC YORG T> %<RGLOC NULL T> %<RGLOC PV T> "LENGTHS NOT EQUAL"
|
|
"PLOTV" %<RGLOC HC T> %<RGLOC PG T> %<RGLOC MV T> %<RGLOC DR T> %<RGLOC LN T> %<
|
|
RGLOC PT T> OUTCHAN (CHANNEL) "DONE"]>>
|
|
|
|
|
|
<SETG MIGSSEND %<RSUBR-ENTRY '[SETORG MIGSSEND #DECL ("VALUE" ATOM "TUPLE" <
|
|
TUPLE [REST FIX]>)] 85>>
|
|
|
|
<SETG PLOTV %<RSUBR-ENTRY '[SETORG PLOTV #DECL ("VALUE" ATOM <OR LIST VECTOR
|
|
UVECTOR> <OR LIST VECTOR UVECTOR> "TUPLE" <TUPLE [REST <OR FIX FLOAT>]>)] 130>>
|
|
|
|
<SETG HARDCOPY %<RSUBR-ENTRY '[SETORG HARDCOPY #DECL ("VALUE" ANY)] 376>>
|
|
|
|
<SETG PAGE %<RSUBR-ENTRY '[SETORG PAGE #DECL ("VALUE" ANY)] 408>>
|
|
|
|
<SETG MOVE %<RSUBR-ENTRY '[SETORG MOVE #DECL ("VALUE" ATOM <OR FIX FLOAT> <OR
|
|
FIX FLOAT> "TUPLE" <TUPLE [REST <OR FIX FLOAT>]>)] 435>>
|
|
|
|
<SETG DRAW %<RSUBR-ENTRY '[SETORG DRAW #DECL ("VALUE" ATOM <OR FIX FLOAT> <OR
|
|
FIX FLOAT> "TUPLE" <TUPLE [REST <OR FIX FLOAT>]>)] 500>>
|
|
|
|
<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>]>)]
|
|
562>>
|
|
|
|
<SETG POINT %<RSUBR-ENTRY '[SETORG POINT #DECL ("VALUE" ATOM <OR FIX FLOAT> <OR
|
|
FIX FLOAT> "TUPLE" <TUPLE [REST <OR FIX FLOAT>]>)] 659>>
|
|
|
|
<SETG TRANS %<RSUBR-ENTRY '[SETORG TRANS #DECL ("VALUE" <LIST [4 FIX]> FIX FIX)]
|
|
739>>
|
|
|
|
<SETG PLOTVDSK %<RSUBR-ENTRY '[SETORG PLOTVDSK #DECL ("VALUE" STRING <OR LIST
|
|
VECTOR UVECTOR> <OR LIST VECTOR UVECTOR> CHANNEL)] 808>>
|
|
|
|
<ENDBLOCK>
|
|
|
|
<ENDPACKAGE>
|
|
|
|
<SET L-NO-MAGIC <>>
|