mirror of
https://github.com/PDP-10/its.git
synced 2026-02-25 16:39:47 +00:00
79 lines
3.2 KiB
Plaintext
79 lines
3.2 KiB
Plaintext
'<PCODE "MSDTP">
|
|
|
|
<PACKAGE "B-OBJECT">
|
|
|
|
<ENTRY EXTRACT-ITEM REFILL-BUFFER MAX-STRING STRING-FILE>
|
|
|
|
<USE "MSDTP">
|
|
|
|
<SETG MAX-STRING 5120>
|
|
|
|
<SETG STRING-FILE "DSK:NETOPS;MSDTP >">
|
|
|
|
<SETG EXTRACT-ITEM %<RSUBR!- '[ %<PCODE!- "MSDTP" 212> EXTRACT-ITEM #DECL (
|
|
"VALUE" ANY STRING "OPTIONAL" <OR 'T FALSE>) GET-SEMTYPE BYTER8 REFILL-BUFFER BS
|
|
(STRING) BL (FIX) BOFF BYTES T RESERVED-CODE-USED!-ERRORS EXTRACT-ITEM #FALSE (
|
|
) TOO-MANY-SIZE-BYTES!-ERRORS B-NON-ATOM BAD-OBJECT-TYPE-CODE!-ERRORS ![
|
|
B-LBITSTR B-STRUC B-EDT B-REPEAT B-USTRUC B-STRING!]
|
|
NOT-ENOUGH-BYTES-FOR-BITS!-ERRORS P-LBITSTR %<TYPE-W BITSTR UVECTOR> %<RGLOC
|
|
MAX-STRING T> "PRINT" %<RGLOC STRING-FILE T> CANT-OPEN!-ERRORS B-STRING %<TYPE-W
|
|
POINTER LIST> () BAD-SIZE-SPECIFICATION!-ERRORS B-STRUC CHARACTER B-REPEAT
|
|
UNPARSED!-SEMTYPES ACTPARSE (ACTIVATION) %<RGLOC ERRIHEAD T> %<RGLOC ERRPARSE T>
|
|
%<TYPE-W XTRA WORD> %<TYPE-W BOOL WORD> %<TYPE-W EMPTY WORD> %<TYPE-W DFIX
|
|
UVECTOR> %<TYPE-W DWORD UVECTOR>]>>
|
|
<AND <ASSIGNED? GLUE> .GLUE <PUT ,EXTRACT-ITEM PGLUE ![721420287 -1 -1048576!]>>
|
|
|
|
<SETG GET-BYTE %<RSUBR-ENTRY '[EXTRACT-ITEM GET-BYTE #DECL ("VALUE" WORD)] 127>>
|
|
|
|
<SETG NEXT-BYTE %<RSUBR-ENTRY '[EXTRACT-ITEM NEXT-BYTE #DECL ("VALUE" WORD)] 205
|
|
>>
|
|
|
|
<SETG B-NON-ATOM %<RSUBR-ENTRY '[EXTRACT-ITEM B-NON-ATOM #DECL ("VALUE" ANY FIX
|
|
"OPTIONAL" <OR 'T FALSE>)] 281>>
|
|
|
|
<SETG B-LBITSTR %<RSUBR-ENTRY '[EXTRACT-ITEM B-LBITSTR #DECL ("VALUE" BITSTR FIX
|
|
)] 400>>
|
|
|
|
<SETG B-STRING %<RSUBR-ENTRY '[EXTRACT-ITEM B-STRING #DECL ("VALUE" <OR POINTER
|
|
STRING> FIX)] 555>>
|
|
|
|
<SETG B-STRUC %<RSUBR-ENTRY '[EXTRACT-ITEM B-STRUC #DECL ("VALUE" <OR LIST
|
|
STRING> FIX "OPTIONAL" ANY)] 666>>
|
|
|
|
<SETG B-REPEAT %<RSUBR-ENTRY '[EXTRACT-ITEM B-REPEAT #DECL ("VALUE" SPLICE ANY)]
|
|
913>>
|
|
|
|
<SETG B-USTRUC %<RSUBR-ENTRY '[EXTRACT-ITEM B-USTRUC #DECL ("VALUE" <OR LIST
|
|
STRING> FIX)] 985>>
|
|
|
|
<SETG ERRIHEAD <OR <GET ERROR!-INTERRUPTS INTERRUPT> <EVENT ERROR!-INTERRUPTS
|
|
100>>>
|
|
|
|
<SETG ERRPARSE <OFF <HANDLER ,ERRIHEAD <FUNCTION ("TUPLE" T) <OFF ,ERRPARSE> <
|
|
DISMISS 0 .ACTPARSE>>>>>
|
|
|
|
<SETG B-EDT %<RSUBR-ENTRY '[EXTRACT-ITEM B-EDT #DECL ("VALUE" ANY ANY)] 1009>>
|
|
|
|
<SETG GET-ITEM %<RSUBR-ENTRY '[EXTRACT-ITEM GET-ITEM #DECL ("VALUE" ANY)] 1109>>
|
|
|
|
<SETG B-LINTEGER %<RSUBR-ENTRY '[EXTRACT-ITEM B-LINTEGER #DECL ("VALUE" <OR FIX
|
|
DFIX> FIX)] 1153>>
|
|
|
|
<SETG B-SBITSTR %<RSUBR-ENTRY '[EXTRACT-ITEM B-SBITSTR #DECL ("VALUE" <OR WORD
|
|
DWORD> FIX)] 1197>>
|
|
|
|
<AND <ASSIGNED? GLUE> .GLUE <PUT ,EXTRACT-ITEM GLUE ![336613827 -16014839801
|
|
1014100423 -16894570476 16441738561 17251192959 -16084107264 4379642892 114864
|
|
12888244992 17988321280 4296036544 -16978542564 2955936560 12889108480 16777296
|
|
17519987728 17452564756 8573243649 5368972304 34292744192 20401094672 4206592
|
|
4307554305 16777489 268959792 18192 25753812992 22299408 22548582400 4764729345
|
|
12591040 8585740289 16793601 269484037 31138578768 4630773760 336613717 786433
|
|
4568694815 1410404352 17452762432 22806869 17452777473 1091571712 3147100
|
|
17582261313 -4205575104 298308868 21562982465 323 283392 34292678656 -2969496560
|
|
68157456 21559791696 269553679 18255762448 4768662275 278528 4764733440
|
|
1073745988 17465413715 4380761372 268502081 1074795520 805310464 4362141760
|
|
50593791 262165 524300 129 207 262439 524581 262548 262703 262828 524966 263133
|
|
263157 1111 263301 263345!]>>
|
|
|
|
<ENDPACKAGE>
|