github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-02-05 08:04:38 +00:00
Code Issues Releases Wiki Activity
Files
fa5fd06bd92142032b3fa25b76872a035be8d8cb
PDP-10.its/bin/librm1/ahack.fbin

215 lines
13 KiB
Plaintext
Raw Blame History

This file contains invisible Unicode characters
This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.
'<PCODE "1AHACK">
<PACKAGE "AHACK">
<ENTRY ABSTR-XLOAD ABSTR-UPDATER Abstract COPY-ABSTR CREATE-TEMPLATE ABSTR-XDUMP
ABSTR-BUG GET-HELP OPEN-ABSTR ABSTR-RESTORE ABSTR-SAVE START-AHACK>
<USE "EHACK" "BUF" "CALRDR" "CALSYM" "CALCOM" "ACONST" "APRINT" "NSTRUC" "EUTL"
"APPRINT" "STR" "AMAKE" "EGROUP">
<SETG ABSTR-RESTORE %<RSUBR!- '[ %<PCODE!- "1AHACK" 0> ABSTR-RESTORE #DECL (
"VALUE" <OR FALSE STRING> STRING) KEYWORD-CHARS INIT-NODE INIT-TYPE MAKEBST
BSTSORT BUFPRINT GETSTR BUFMAKE RTIME DATE N-GET-RID-OF PPRINT-ABSTR BGSTSORT
RESTYPES ARGTYPES NO-DUPES UPPERCASE PARSEABLE MAKE-COPY NPUT DECL-COMMENT
SEARCH COMMAND-UPDATE ADD-OBJECT BUFTOS PPRINT POS AFIND OPEN-OBJECT CLOSE-ABSTR
NNTH PRINT-ABSTR READER #FALSE () Abstract AUTODEF NODE-GROUP AUTO-TABLE
"Abstract.default" OUTCHAN "YOUR RESTORE FILE IS OUT OF DATE BUT SHOULD WIN"
OBLIST INITIAL %<RGLOC AB-OB T> (<LIST [REST OBLIST]>) ADUMP (ACTIVATION)
"ABSTR" "to file (opt)"
"
File into which the abstracts will be dumped. Default is name of the first abstract
to be dumped ABSTR." "" "FILE" T "PRINT" OBJOPEN %<RGLOC OBJOPEN T> "Close " %<
RGLOC UNAMEPOS T> "?"
"
If non-false, the abstract which is opened will be closed." "ANY" "DUMPED" %<
RGLOC OBJTYPE T> ABSTYPE %<RGLOC ABSTYPE T> %<RGLOC NODELIST T> %<RGLOC NTYPE3 T
> () ";XABSTR _TEMP_" %<RGLOC OBJVECT T> OPEN-ABSTR ,OBJVECT PUT AGROUP-TABLE
LASTEDIT %<RGLOC SCRATCHES T> SCRATCH <BUFMAKE 20> ADDSTRING GET SCRATCH-TABLE
SCRATCHES "READ" "SAVED" "NO Abstracts LOADED" COMMENT "LOADED" #FALSE (
"File not found") ["FSUBR" "SUBR"] Template #FALSE (
"Template field not for SUBR or FSUBR") #FALSE ("No abstract open") Example
"Example of use of this " "--args--" "Comments on example" Category "INTERNAL"
Descriptor Description.One.line "One line description of this "
"One-line description of object" Description.Detailed
"Detailed description of this " "Detailed description of object"
Template.description "PROMPT" Template.decl Argument NSRET NSCONT Unique.name
Name %<RGLOC OCOMLIST T> %<RGLOC OPEN-COMMANDS!-IEHACK T> %<RGLOC
DO-OPEN-OBJECT!-IEHACK T> %<RGLOC OBJNAME T> %<RGLOC OBJLOADTAB T>
"MABSTR;ABSTR HELP" #FALSE ("No help for this node") INCHAN BUG
"You are already reporting a bug.
To exit type ^B then $O
" "to XABSTR, / Back to BUG, / Leave BUG,  (from BUG)" %<RGLOC BUG T>
"MARC;BUG" %<RGLOC BUGCHAN T> "FOO" "BAR" "INT" "MARC" %<RSUBR!- '[ %<PCODE!-
"1AHACK" 2996> ANONF1!-TMP #DECL ("VALUE" BUFFER CHARACTER) ADDCHR %<RGLOC
BUGBUF T> %<TYPE-W BUFFER VECTOR>]> %<RGLOC BUG-INT-CHAN T> "BUG FROM " " ON "
" AT " "(BUFFER): " %<RGLOC BUG-OUT T> CHRTABLE %<RGLOC BUGBUF T> %<TYPE-W
BUFFER VECTOR> BUGACT Reference %<RGLOC POSVECT T> ["Unique.name" Unique.name
"Name" Name "Author" Author "Object.type" Object.type "Category" Category
"Descriptor" Descriptor "Location" Location "Reference" Reference "Description"
Description "Description.One.line" Description.One.line "Description.Detailed"
Description.Detailed "Example" Example "Notes" Notes "External.interactions"
External.interactions "Side.effect" Side.effect "Variables" Variables
"Variables.Global" Variables.Global "Global.Setg" Global.Setg "Global.Used"
Global.Used "Variables.Local" Variables.Local "Local.Set" Local.Set "Local.Used"
Local.Used "Local.Special" Local.Special "Functions" Functions "Environment"
Environment "Environment.Required" Environment.Required "Environment.During"
Environment.During "Environment.After" Environment.After "Datums.used"
Datums.used] ["Contents" Contents "Ports" Ports "Internal.functions"
Internal.functions "Data.ports" Data.ports "Data.ports.global" Data.ports.global
"Data.ports.local" Data.ports.local "Internal.data" Internal.data
"Internal.data.global" Internal.data.global "Internal.data.local"
Internal.data.local "Packages.used" Packages.used] ["Argument" Argument
"Template" Template "Template.decl" Template.decl "Template.description"
Template.description "Argument.type" Argument.type "Result.type" Result.type
"Called.by" Called.by] "NTYPE1" %<RGLOC NTYPE1 T> "NTYPE2" %<RGLOC NTYPE2 T>
"NTYPE3" "FUNCTION" "RSUBR" "ASSEMBLY-CODE" "SUBR" "FSUBR" "MACRO" "PACKAGE"
"COLLECTION" <AND <GASSIGNED? BUG> <RETURN <PROG () <END-ASCRIPT ,BUG-INT-CHAN>
<TERPRI> <PRINC "bug-mode-continued"> <MY-TTY-OFF>> .BUGACT>> %<RGLOC XSPCCHARS
T> %<RGLOC SPCCHARS T> %<RGLOC ABSTR-XLOAD T> %<RGLOC ABSTR-XDUMP T> %<RGLOC
OPEN-ABSTR T> %<RGLOC A-PRINT T> %<RGLOC VERIFY-ABSTR T> %<RGLOC EMPTY-NODE T>
%<RGLOC ABSTR-UPDATER T> AHACK!-PACKAGE IAHACK %<RGLOC KEYWD T> SPECIAL-CHECKS
%<RGLOC TCHECKER T>]>>
<AND <ASSIGNED? GLUE> .GLUE <PUT ,ABSTR-RESTORE PGLUE ![0 0 0 0 0 0 0 0 0 0 0 0!
]>>
<SETG ABSTR-XDUMP %<RSUBR-ENTRY '[ABSTR-RESTORE ABSTR-XDUMP #DECL ("VALUE" ANY <
LIST [REST VECTOR]>)] 93>>
<SETG OPEN-ABSTR %<RSUBR-ENTRY '[ABSTR-RESTORE OPEN-ABSTR #DECL ("VALUE" ANY
VECTOR)] 330>>
<SETG ABSTR-SAVE %<RSUBR-ENTRY '[ABSTR-RESTORE ABSTR-SAVE #DECL ("VALUE" STRING
STRING ANY)] 413>>
<SETG ABSTR-XLOAD %<RSUBR-ENTRY '[ABSTR-RESTORE ABSTR-XLOAD #DECL ("VALUE" <OR
ATOM FALSE STRING> <OR STRING FALSE> <OR ATOM FALSE>)] 786>>
<SETG CREATE-TEMPLATE %<RSUBR-ENTRY '[ABSTR-RESTORE CREATE-TEMPLATE #DECL (
"VALUE" ANY)] 1029>>
<SETG COPY-ABSTR %<RSUBR-ENTRY '[ABSTR-RESTORE COPY-ABSTR #DECL ("VALUE" ANY <OR
VECTOR FALSE> <PRIMTYPE LIST> "OPTIONAL" <OR ATOM FALSE>)] 1108>>
<SETG EMPTY-NODE %<RSUBR-ENTRY '[ABSTR-RESTORE EMPTY-NODE #DECL ("VALUE" <OR
ATOM FALSE STRING> ATOM ANY)] 1287>>
<SETG ABSTR-UPDATER %<RSUBR-ENTRY '[ABSTR-RESTORE ABSTR-UPDATER #DECL ("VALUE"
ANY ATOM ANY)] 1620>>
<SETG VERIFY-ABSTR %<RSUBR-ENTRY '[ABSTR-RESTORE VERIFY-ABSTR #DECL ("VALUE" <OR
ATOM FALSE> ANY)] 1950>>
<SETG TCHECKER %<RSUBR-ENTRY '[ABSTR-RESTORE TCHECKER #DECL ("VALUE" STRUCTURED
ATOM VECTOR)] 1977>>
<SETG A-PRINT %<RSUBR-ENTRY '[ABSTR-RESTORE A-PRINT #DECL ("VALUE" ANY VECTOR)]
2026>>
<SETG GET-HELP %<RSUBR-ENTRY '[ABSTR-RESTORE GET-HELP #DECL ("VALUE" <OR CHANNEL
FALSE> <OR ATOM FALSE>)] 2043>>
<SETG ASCRIPT %<RSUBR-ENTRY '[ABSTR-RESTORE ASCRIPT #DECL ("VALUE" <VECTOR <LIST
CHANNEL>> CHANNEL)] 2148>>
<SETG END-ASCRIPT %<RSUBR-ENTRY '[ABSTR-RESTORE END-ASCRIPT #DECL ("VALUE" <OR
FALSE <VECTOR STRUCTURED>> CHANNEL)] 2217>>
<SETG ABSTR-BUG %<RSUBR-ENTRY '[ABSTR-RESTORE ABSTR-BUG #DECL ("VALUE" ATOM)]
2303>>
<SETG BUG-OUT %<RSUBR-ENTRY '[ABSTR-RESTORE BUG-OUT #DECL ("VALUE" ANY BUFFER
CHARACTER)] 2527>>
<SETG KEYWD %<RSUBR-ENTRY '[ABSTR-RESTORE KEYWD #DECL ("VALUE" ATOM CHARACTER <
OR ATOM FALSE>)] 2567>>
<SETG POSVECT '['(Notes ![14!] VECTOR 10906) '((Example "AUTO") ![13!] VECTOR
10673) '(Argument ![12!] ["Template" "Argument.type" "Result.type"] 9955) '((
Template.description "AUTO") ![12 1 2!] BUFFER) '((Description.Detailed "AUTO")
![11 2!] BUFFER) '((Description.One.line "AUTO") ![11 1!] BUFFER) '(Description
![11!] <OR STRING <VECTOR [REST <OR STRING LIST>]>> 9636) '(Reference ![10!] <OR
STRING ATOM <VECTOR [REST <OR STRING ATOM>]>> 9276) '(Location ![9!] <OR STRING
ATOM <VECTOR [REST <OR STRING ATOM>]>> 8753) '(Datums.used ![8 6!] <VECTOR [REST
STRING]> 8617) '(Packages.used ![8 5!] <VECTOR [REST STRING]> 8547) '((
Descriptor "APPEND" "AUTO") ![7!] <OR STRING ATOM <VECTOR [REST <OR STRING ATOM>
]>> 4179) ((Category "APPEND" "AUTO" "SYMBOL" (<MAKEBST "Categories" <BSTSORT '[
"ARITHMETIC" "ARITHMETIC" "ASSOCIATION" "ASSOCIATION" "BIT-TWIDDLING"
"BIT-TWIDDLING" "CHARACTER" "CHARACTER" "COMMAND-HANDLING" "COMMAND-HANDLING"
"CONDITIONAL" "CONDITIONAL" "DATA-BASE-MANAGEMENT" "DATA-BASE-MANAGEMENT"
"DATA-HANDLING" "DATA-HANDLING" "ENVIRONMENT" "ENVIRONMENT" "ERROR" "ERROR"
"GRAPHICS" "GRAPHICS" "IDENTIFIER" "IDENTIFIER" "INTERNAL" "INTERNAL"
"INTERRUPT" "INTERRUPT" "I/O" "I/O" "LOCATIVE" "LOCATIVE" "LOGICAL" "LOGICAL"
"NETWORK" "NETWORK" "PICTURE" "PICTURE" "PREDICATE" "PREDICATE"
"PROCESS-CONTROL" "PROCESS-CONTROL" "PROGRAM-CONTROL" "PROGRAM-CONTROL"
"PROGRAM-UNDERSTANDING" "PROGRAM-UNDERSTANDING" "SIMULATION" "SIMULATION"
"SYSTEM" "SYSTEM" "TYPE" "TYPE" "TYPE-DEFINITION" "TYPE-DEFINITION"
"TYPE-MANIPULATION" "TYPE-MANIPULATION" "UTILITY" "UTILITY"]>> ["SYM" "MULT"
"STRING"])) ![6!] '<OR STRING ATOM <VECTOR [REST <OR STRING ATOM>]>> 4004) ((
Object.type "SYMBOL" (<MAKEBST "Object types" '["ASSEMBLY-CODE" "ASSEMBLY-CODE"
"COLLECTION" "COLLECTION" "FILE" "FILE" "FSUBR" "FSUBR" "FUNCTION" "FUNCTION"
"MACRO" "MACRO" "PACKAGE" "PACKAGE" "RSUBR" "RSUBR" "SUBR" "SUBR"]> ["SYM"])) ![
4!] '<OR ATOM STRING <VECTOR [REST <OR ATOM STRING>]>> 1007) '(Author ![3!] <OR
ATOM STRING <VECTOR [REST <OR ATOM STRING>]>> 767) '(Name ![2!] <OR ATOM STRING>
549) '(Unique.name ![1!] <OR ATOM STRING> 0) '(Result.type ![12 3!] <VECTOR [
REST <OR STRING ATOM>]> 10597) '(Argument.type ![12 2!] <VECTOR [REST <OR STRING
ATOM>]> 10429) '(Template.decl ![12 1 1!] DECL) '(Template ![12 1!] <OR DECL <
VECTOR DECL [REST STRING]>> 10049) '(Environment.After ![8 4 3!] <VECTOR [REST <
OR STRING LIST>]> 8161) '(Environment.During ![8 4 2!] <VECTOR [REST <OR STRING
LIST>]> 7920) '(Environment.Required ![8 4 1!] <VECTOR [REST <OR STRING LIST>]>
7612) '(Environment ![8 4!] ["Environment.Required" "Environment.During"
"Environment.After"] 7274) '(Functions ![8 3!] <VECTOR [REST <OR STRING ATOM>]>
7031) '(Local.Special ![8 2 2 3!] <VECTOR [REST <OR STRING DECL>]> 6897) '(
Local.Used ![8 2 2 2!] <VECTOR [REST <OR STRING DECL>]> 6801) '(Local.Set ![8 2
2 1!] <VECTOR [REST <OR STRING DECL>]> 6594) '(Variables.Local ![8 2 2!] [
"Local.Set" "Local.Used" "Local.Special"] 6303) '(Global.Used ![8 2 1 2!] <
VECTOR [REST <OR STRING DECL>]> 6188) '(Global.Setg ![8 2 1 1!] <VECTOR [REST <
OR STRING DECL>]> 5965) '(Variables.Global ![8 2 1!] ["Global.Setg"
"Global.Used"] 5800) '(Variables ![8 2!] [["Variables.Global" "Global.Setg"
"Global.Used"] ["Variables.Local" "Local.Set" "Local.Used" "Local.Special"]]
5638) '(Side.effect ![8 1!] <VECTOR [REST <OR STRING ATOM>]> 5269) '(
External.interactions ![8!] ["Side.effect" ["Variables" ["Variables.Global"
"Global.Setg" "Global.Used"] ["Variables.Local" "Local.Set" "Local.Used"
"Local.Special"]] "Functions" ["Environment" "Environment.Required"
"Environment.During" "Environment.After"] "Packages.used" "Datums.used"
"Called.by"] 4741) '(Internal.data.local ![5 4 2!] <VECTOR [REST <OR STRING DECL
>]> 3887) '(Internal.data.global ![5 4 1!] <VECTOR [REST <OR STRING DECL>]> 3768
) '(Internal.data ![5 4!] ["Internal.data.global" "Internal.data.local"] 3639) '
(Data.ports.local ![5 3 2!] <VECTOR [REST <OR STRING DECL>]> 3568) '(
Data.ports.global ![5 3 1!] <VECTOR [REST <OR STRING DECL>]> 3493) '(Data.ports
![5 3!] ["Data.ports.global" "Data.ports.local"] 3146) '(Internal.functions ![5
2!] <VECTOR [REST <OR STRING ATOM>]> 2827) '(Ports ![5 1!] <VECTOR [REST <OR
STRING ATOM>]> 2051) '(Contents ![5!] ["Ports" "Internal.functions" [
"Data.ports" "Data.ports.global" "Data.ports.local"] ["Internal.data"
"Internal.data.global" "Internal.data.local"]] 1584) '(Called.by ![8 7!] <VECTOR
[REST <OR STRING ATOM>]> 8683)]>
<SETG START-AHACK %<RSUBR-ENTRY '[ABSTR-RESTORE START-AHACK #DECL ("VALUE" ANY)]
2586>>
<AND <ASSIGNED? GLUE> .GLUE <PUT ,ABSTR-RESTORE GLUE ![1073757695 1207701251
-17179608061 -1057997823 13252 269554047 -4282367729 1894798607 -4227841023
251723760 4027060720 13136575509 21491613732 22820274449 4630524156 3229859903
-17116945284 4215029760 267312 7635468544 17788829700 18237030983 147456
274012159 1136672768 240 71561237 18522116097 23387180040 16106127615 -16777213
8334016853 4194304 -4027580353 -16173220862 70751 -1048576 17175675221 4194304
19264191488 4528066 -4159766512 3313 4 1039154193 4370202688 4214852 8606728464
5490103676 71332097 4299227143 -16822300416 3949909 19323158528 267387904
11781948 33554432000 274010380 30128204800 201326720 536911089 -13136559807
1343238916 1080029248 1140867104 8585740288 262144 4332716033 18530418688
1044484 40768 256 33301741776 -1073741824 1311220 18826257 4307550208 69644 0
17196707904 16126312448 1357905920 20669530116 -12620660736 1320912 -4214162432
322 33570180364 128 2097168384 67125184 17253204992 268435456 278528 9663807489
5453199340 -16978496768 33555200 33554451 34036826112 46140416 17515676796
201333772 4194816 805503024 352411392 12888064000 17039360 262431 17212887040
4294967555 611319808 16778240 12922654805 4580196868 535823360 268697604 786432
1426181904 262211 50331649 1086327808 4259904 16781324 135381004 524480
2166096064 8389633 1426338243 16224416563 17125408767 -217906240 12897546764
809272064 -17128689403 21504246787 1812777779 739000321 -16976706816 -4294840204
4100 4313594883 272629776 125045763 71581635 -1073676288 2193682496 2142268
4294967304 11819483139 -4294709248 16911449856 1056965616 66060351 196735
269222336 17230447619 808464384 12935431164 1069563840 782398 -3825204800
201261056 67108863 262148 262478 524707 525080 1031 525412 787552 525581 525914
264098 526271 264174 264191 264296 264365 2305 526821 526861!]>>
<ENDPACKAGE>
Reference in New Issue View Git Blame Copy Permalink