mirror of
https://github.com/PDP-10/its.git
synced 2026-02-23 15:52:10 +00:00
241 lines
6.8 KiB
Plaintext
241 lines
6.8 KiB
Plaintext
|
|
<PACKAGE "PEN">
|
|
|
|
<USE "PIC">
|
|
|
|
<USE-DEFER "UPDATE">
|
|
|
|
<ENTRY ATTN
|
|
ATTN?
|
|
BUTTON_CROSS
|
|
CLINST
|
|
MAPSAVE
|
|
PENGET
|
|
PENVIEW
|
|
PENMAP
|
|
CURSOR
|
|
PEN
|
|
MYPEN
|
|
BUTTON_TEST
|
|
BUTTON_TEST1>
|
|
|
|
<SETG ATTN [<> 0 0 0 0]>
|
|
|
|
<SET BUTTON_CROSS
|
|
<PROG ((PICLIST ()))
|
|
<FIXPIC ![4294968224 4366270464 4378854400 32216973312 -27177779204
|
|
92913714 13107200000 -26214400000 13107250000 162144!]
|
|
(BUTTON_CROSS #FALSE () (1 '<PICREF ME 6>))
|
|
#FALSE ()>>>
|
|
|
|
<SET CLINST
|
|
<PROG ((PICLIST ()))
|
|
<FIXPIC ![4294968239 4366270464 4378854400 32267829248 32216973312
|
|
30128209920 -27644657664 4718592 92913714 0!]
|
|
(CLINST #FALSE () (1 '<PICREF ME 9>))
|
|
#FALSE ()>>>
|
|
|
|
<SET MAPSAVE
|
|
<PROG ((PICLIST ()))
|
|
<FIXPIC ![4294968276 4366270464 4378854400 4378895781 27939831808
|
|
26021725146 32216973312 -27648850988 25900089344
|
|
30077878272 17203725264 25803883476 25791299584 26030113754
|
|
-34355544064 27934589915 -27648850981 25788154836
|
|
22555394048 4718592 25786844125 16778187 4718592 92913714 0
|
|
0 0 0 0 0 5242900 0 0 34359607295!]
|
|
(MAPSAVE
|
|
#FALSE ()
|
|
(1 '<PICREF ME 24>)
|
|
(8 '<PICREF ME 24>)
|
|
(12 '<PICREF ME 24>)
|
|
(18 '<PICREF ME 24>)
|
|
(6 '<PICREF ME 30>)
|
|
(14 '<PICREF ME 30>)
|
|
(16 '<PICREF ME 31>)
|
|
(17 '<PICREF ME 31>)
|
|
(21 '<PICREF ME 33>)
|
|
(22 '<PICREF ME 15>)
|
|
(11 '<PICREF ME 20>))
|
|
#FALSE ()>>>
|
|
|
|
<SET PENGET
|
|
<PROG ((PICLIST ()))
|
|
<FIXPIC ![17197958127 16778228 4378858496 4303356918 4370726911
|
|
23627563008 17197695987 4320134137 4400349184 0 0 0!]
|
|
(PENGET
|
|
#FALSE ()
|
|
(1 '<PICREF ME 2>)
|
|
(2 '<PICREF ME 7>)
|
|
(4 '<PICREF ME 9>)
|
|
(7 '<PICREF ME 6>)
|
|
(8 '<PICREF ME 12>))
|
|
#FALSE ()>>>
|
|
|
|
<SET PENVIEW
|
|
<PROG ((PICLIST ()))
|
|
<FIXPIC ![4294968329 4366270464 4378854400 32216973312 6446645248
|
|
-27648326666 32234799104 32216973312 30128209920
|
|
26152009728 -34355544064 27938521088 30129258496 92913714
|
|
536610815 486541120 0 0!]
|
|
(PENVIEW
|
|
#FALSE ()
|
|
(1 '<PICREF ME 14>)
|
|
(6 '<PICREF <VALUE PENGET> 9>))
|
|
#FALSE ()>>>
|
|
|
|
<SET PENMAP
|
|
<PROG ((PICLIST ()))
|
|
<FIXPIC ![4294968349 4366270464 4378854400 32216973312 6446645248
|
|
-27648326644 32234799104 32216973312 30128209920
|
|
26152009728 -34355544064 27938521088 30129258496 92913714
|
|
13107250000 536610815 0 0!]
|
|
(PENMAP
|
|
#FALSE ()
|
|
(1 '<PICREF ME 14>)
|
|
(6 '<PICREF <VALUE PENVIEW> 17>))
|
|
#FALSE ()>>>
|
|
|
|
<SET CURSOR
|
|
<PROG ((PICLIST ()))
|
|
<FIXPIC ![4294968115 4366270464 4378854400 32216973312 6446645248
|
|
-27648326624 -31472746500 92913714 393217000 -131071500
|
|
-261883356 786435000!]
|
|
(CURSOR
|
|
#FALSE ()
|
|
(1 '<PICREF ME 8>)
|
|
(6 '<PICREF <VALUE PENMAP> 17>))
|
|
[#FALSE () 8 CALL (UPCALL 7 1)]>>>
|
|
|
|
<SET PEN
|
|
<PROG ((PICLIST ()))
|
|
<FIXPIC ![4294968105 4366270464 4378854400 32216973312 6459229165
|
|
6459229179 6459229199 17202152232 6459228971 92913714!]
|
|
(PEN
|
|
#FALSE ()
|
|
(1 '<PICREF ME 10>)
|
|
(8 '<PICREF ME 9>)
|
|
(9 '<PICREF <VALUE CURSOR> 0>)
|
|
(7 '<PICREF <VALUE PENMAP> 0>)
|
|
(6 '<PICREF <VALUE PENVIEW> 0>)
|
|
(5 '<PICREF <VALUE PENGET> 0>))
|
|
[#FALSE () 10 CALL (UPCALL 9 1) CALLOPS (UPCALL 5 3)]>>>
|
|
|
|
<SET MYPEN
|
|
<PROG ((PICLIST ()))
|
|
<FIXPIC ![4294968250 4366270464 4378854400 6446645248 -27648326644
|
|
6459229116 4718592 92913714!]
|
|
(MYPEN
|
|
#FALSE ()
|
|
(1 '<PICREF ME 8>)
|
|
(6 '<PICREF <VALUE MAPSAVE> 0>)
|
|
(5 '<PICREF <VALUE PENVIEW> 17>))
|
|
#FALSE ()>>>
|
|
|
|
<SET BUTTON_TEST
|
|
<PROG ((PICLIST ()))
|
|
<FIXPIC ![4294968154 4366270464 4378854400 32216973312 6459229106
|
|
17202414425 17203725145 27921743872 27988852736 6459229082
|
|
92913714 0 0!]
|
|
(BUTTON_TEST
|
|
#FALSE ()
|
|
(1 '<PICREF ME 11>)
|
|
(6 '<PICREF ME 10>)
|
|
(7 '<PICREF ME 10>)
|
|
(10 '<PICREF <VALUE BUTTON_CROSS> 0>)
|
|
(5 '<PICREF <VALUE MYPEN> 0>))
|
|
[#FALSE () 11 CALL (UPCALL 10 1)]>>>
|
|
|
|
<SET BUTTON_TEST1
|
|
<PROG ((PICLIST ()))
|
|
<FIXPIC ![4294968140 4366270464 4378854400 32216973312 4194304
|
|
6459229007 17203725131 17202414411 25837175620 27984659261
|
|
16778059 16778053 6459229106 17203725128 6459229082
|
|
17198220107 25837175628 16778050 92913714 4194304!]
|
|
(BUTTON_TEST1
|
|
#FALSE ()
|
|
(1 '<PICREF ME 19>)
|
|
(17 '<PICREF ME 19>)
|
|
(7 '<PICREF ME 18>)
|
|
(8 '<PICREF ME 18>)
|
|
(11 '<PICREF ME 18>)
|
|
(16 '<PICREF ME 18>)
|
|
(18 '<PICREF ME 9>)
|
|
(15 '<PICREF <VALUE BUTTON_CROSS> 0>)
|
|
(14 '<PICREF ME 15>)
|
|
(13 '<PICREF <VALUE MYPEN> 0>)
|
|
(12 '<PICREF ME 12>)
|
|
(10 '<PICREF ME 4>)
|
|
(9 '<PICREF ME 11>)
|
|
(6 '<PICREF <VALUE BUTTON_TEST> 0>))
|
|
[#FALSE () 19 CALL (UPCALL 15 1)]>>>
|
|
|
|
<SETG PEN
|
|
%<FIXUP!-RSUBRS '[
|
|
#CODE ![17188483111 17200316421 23748381093 27120595006 23088857119 -17708351486
|
|
25249710081 -17690787841 12104761499 16802451344 23882366979 -18227658753
|
|
12104761499 16802451344 23882366979 17188483111 17200316423 23748381093
|
|
27120595006 23088857119 24716247075 28608561183 12510822434 29259464707
|
|
25392316417 17200316425 17473994757 24017108995 24017108993 17859346453
|
|
23085678206 23849037863 23852482571 23085677844 11845238784 2621450 0!]
|
|
PEN
|
|
PENMAP
|
|
PENGET
|
|
[0.0000000 0.0000000 0]
|
|
WRONG_TYPE]
|
|
'(49
|
|
CALER1!-MUDDLE
|
|
228628
|
|
(34)
|
|
FINIS!-MUDDLE
|
|
228990
|
|
(31)
|
|
ILVAL!-MUDDLE
|
|
231845
|
|
(18 3)
|
|
$TLOSE!-MUDDLE
|
|
225280
|
|
(32 19 16 4 1))>>
|
|
|
|
<SETG ATTN?
|
|
%<FIXUP!-RSUBRS '[
|
|
#CODE ![27593539666 23085677817 17188483111 17200316421 23748381093 12527599697
|
|
26080182334 23085677826 24847056908 29259988992 23088857102 17859346449
|
|
17330864128 23085678206 23882891264 29662117897 -34090778624 23883153407
|
|
17859346471 17200316423 23748381104 12527599697 26080182293 23085677826
|
|
-19855835134 26181107702 23085677826 23849037845 23848812546 -17687642112
|
|
12104761499 16802451344 17884512258 17482383362 17473994755 -18224513024
|
|
12104761499 16802451344 17482383364 17473994757 17884512257 17209229311
|
|
17482383368 17473994761 17859346471 17200316425 23748381104 12527599697
|
|
26080182293 23085677826 -20371734529 25392316417 21768437761 -25207767037
|
|
24712839171 29125246978 23085677826 23849336832 23849336833 17859346471
|
|
17200316427 23748381104 12527599697 26080182293 23085677826 -19834863617
|
|
25392316417 21768437761 -25207767037 24712839171 29125246978 23085677826
|
|
17208180734 17213947905 17482645511 23908319238 23983816705 23983816704
|
|
17859346453 17199529984 23085678206 19545456641 -524288 0!]
|
|
ATTN?
|
|
BUTTON_TEST
|
|
ATTN
|
|
NAMELIST
|
|
ATTNPICS]
|
|
'(49
|
|
IGVAL!-MUDDLE
|
|
231856
|
|
(62 47 21)
|
|
FINIS!-MUDDLE
|
|
228990
|
|
(81 14)
|
|
WRONGT!-MUDDLE
|
|
228610
|
|
(72 65 57 50 27 24 8)
|
|
ILVAL!-MUDDLE
|
|
231845
|
|
(5)
|
|
$TLOSE!-MUDDLE
|
|
225280
|
|
(28 3)
|
|
WNA!-MUDDLE
|
|
228601
|
|
(2))>>
|
|
|
|
<ENDPACKAGE>
|