|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3072 (0xc00)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03c0fe
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 05a8 | | .CONST 0x05a8 ; Offset of debug table
0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction
0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion
0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments)
0007 8003 | | .CONST 0x8003 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0042 | B | .CONST 0x0042 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0017 | | .CONST 0x0017 ; Number of locals
000b INIT_0008:
000b 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated
000d 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated
000f 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated
0011 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated
0013 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated
0015 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated
0017 00bf | | Action Accept_Activation
0018 4800 |H | Short_Literal 0x0
0019 4804 |H | Short_Literal 0x4
001a 029f 01b3 | | Declare_Subprogram INIT_01b0,For_Call
001c 03fd | | Declare_Type Discrete,Defined
001d e002 | | Load 0x0,0x2
001e e003 | | Load 0x0,0x3
001f e213 | | Load 0x1,0x13
0020 4800 |H | Short_Literal 0x0
0021 4801 |H | Short_Literal 0x1
0022 4804 |H | Short_Literal 0x4
0023 0092 03f6 | | Action Push_String_Extended,0x3f6 ; "others => Unspecified"
0025 00ea | | Load_Encached Null_String_Cache
0026 00ea | | Load_Encached Null_String_Cache
0027 4801 |H | Short_Literal 0x1
0028 4804 |H | Short_Literal 0x4
0029 e004 | | Load 0x0,0x4
002a 0387 | | Declare_Variable Package
002b 00d8 | | Load_Top At_Offset_0
002c 020f | | Execute Module,Activate
002d e005 | | Load 0x0,0x5
002e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
002f 02c7 | | Declare_Variable Any
0030 00d8 | | Load_Top At_Offset_0
0031 1c00 | | Execute_Immediate Run_Utility,0x0
0032 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0033 00c7 | | Action Elaborate_Subprogram
0034 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0035 00c7 | | Action Elaborate_Subprogram
0036 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0037 00c7 | | Action Elaborate_Subprogram
0038 029d 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call
003a 029d 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call
003c 1d12 | | Execute_Immediate Reference_Lex_1,0x12
003d 00c7 | | Action Elaborate_Subprogram
003e 1d10 | | Execute_Immediate Reference_Lex_1,0x10
003f 00c7 | | Action Elaborate_Subprogram
0040 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0041 00c7 | | Action Elaborate_Subprogram
0042 BODY_0008:
0042 00bc | | Action Signal_Activated
0043 00bb | | Action Signal_Completion
0044 0000 0000 | | .BLANK 0000[0x4]
0048 ; --------------------------------------------------------------------------------------
0048 ; SUBPROGRAM
0048 ; --------------------------------------------------------------------------------------
0048 004e | N | .CONST 0x004e ; Address of begin
0049 0004 | | .CONST 0x0004 ; Address of exception handler
004a 0003 | | .CONST 0x0003 ; Number of locals
004b INIT_0048:
004b e214 | | Load 0x1,0x14
004c 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
004d 00e1 | | Load_Encached Boolean_Cache
004e BODY_0048:
004e e215 | | Load 0x1,0x15
004f 00ea | | Load_Encached Null_String_Cache
0050 e5fe | | Load 0x2,-0x2
0051 4801 |H | Short_Literal 0x1
0052 e005 | | Load 0x0,0x5
0053 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0054 c215 | | Store 0x1,0x15
0055 0092 03f7 | | Action Push_String_Extended,0x3f7 ; "~right_heading(~>Standard ACL Values for the Predefined Universe~>)"
0057 e215 | | Load 0x1,0x15
0058 e005 | | Load 0x0,0x5
0059 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
005a 0092 03f8 | | Action Push_String_Extended,0x3f8 ; "~left_heading(~>Standard ACL Values for the Predefined Universe~>)"
005c e215 | | Load 0x1,0x15
005d e005 | | Load 0x0,0x5
005e 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
005f 0092 03f9 | | Action Push_String_Extended,0x3f9 ; "~left_footing(~>~>~value(date))"
0061 e215 | | Load 0x1,0x15
0062 e005 | | Load 0x0,0x5
0063 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
0064 0092 03fa | | Action Push_String_Extended,0x3fa ; "~right_footing(~>~>~value(date))"
0066 e215 | | Load 0x1,0x15
0067 e005 | | Load 0x0,0x5
0068 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
0069 0092 03fb | | Action Push_String_Extended,0x3fb ; "~macro(ce=\x22~column_entry(~argument(text))\x22)"
006b e215 | | Load 0x1,0x15
006c e005 | | Load 0x0,0x5
006d 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
006e 0092 03fc | | Action Push_String_Extended,0x3fc ; "~Setup(table_space_after=.15inches)"
0070 e215 | | Load 0x1,0x15
0071 e005 | | Load 0x0,0x5
0072 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
0073 0092 03fd | | Action Push_String_Extended,0x3fd ; "~Setup(table_space_before=.15inches)"
0075 e215 | | Load 0x1,0x15
0076 e005 | | Load 0x0,0x5
0077 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
0078 0092 03fe | | Action Push_String_Extended,0x3fe ; "~Setup(table_leading=1)"
007a e215 | | Load 0x1,0x15
007b e005 | | Load 0x0,0x5
007c 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
007d 0092 03ff | | Action Push_String_Extended,0x3ff ; "~Setup(Header_Space_Before=.3inches)"
007f e215 | | Load 0x1,0x15
0080 e005 | | Load 0x0,0x5
0081 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
0082 0092 0400 | | Action Push_String_Extended,0x400 ; "~Setup(Header_Space_after=.3inches)"
0084 e215 | | Load 0x1,0x15
0085 e005 | | Load 0x0,0x5
0086 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
0087 0092 0401 | | Action Push_String_Extended,0x401 ; "~Setup(footer_Space_before=.1inches)"
0089 e215 | | Load 0x1,0x15
008a e005 | | Load 0x0,0x5
008b 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
008c 0092 0402 | | Action Push_String_Extended,0x402 ; "~Setup(footer_point=10.5inches)"
008e e215 | | Load 0x1,0x15
008f e005 | | Load 0x0,0x5
0090 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
0091 0092 0403 | | Action Push_String_Extended,0x403 ; "~macro(table_size=\x22~environment(point_size=9)\x22)"
0093 e215 | | Load 0x1,0x15
0094 e005 | | Load 0x0,0x5
0095 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
0096 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0097 0000 | | .XXX[0x1]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 009b | | .CONST 0x009b ; Address of begin
0099 0004 | | .CONST 0x0004 ; Address of exception handler
009a 0001 | | .CONST 0x0001 ; Number of locals
009b BODY_0098:
009b INIT_0098:
009b e215 | | Load 0x1,0x15
009c e005 | | Load 0x0,0x5
009d 181b | | Execute Package,Field_Execute,Field_Number 0x1b
009e c215 | | Store 0x1,0x15
009f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a3 | | .CONST 0x00a3 ; Address of begin
00a1 0004 | | .CONST 0x0004 ; Address of exception handler
00a2 0001 | | .CONST 0x0001 ; Number of locals
00a3 BODY_00a0:
00a3 INIT_00a0:
00a3 0092 0404 | | Action Push_String_Extended,0x404 ; "~begin(table)"
00a5 e215 | | Load 0x1,0x15
00a6 e005 | | Load 0x0,0x5
00a7 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
00a8 0092 0405 | | Action Push_String_Extended,0x405 ; "~table_size()"
00aa e215 | | Load 0x1,0x15
00ab e005 | | Load 0x0,0x5
00ac 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
00ad 0092 0406 | | Action Push_String_Extended,0x406 ; "~title("
00af e5ff | | Load 0x2,-0x1
00b0 01cc | | Execute Vector,Catenate
00b1 0092 0407 | | Action Push_String_Extended,0x407 ; ": "
00b3 01cc | | Execute Vector,Catenate
00b4 e5fe | | Load 0x2,-0x2
00b5 01cc | | Execute Vector,Catenate
00b6 0092 0408 | | Action Push_String_Extended,0x408 ; ")"
00b8 01cc | | Execute Vector,Catenate
00b9 e215 | | Load 0x1,0x15
00ba e005 | | Load 0x0,0x5
00bb 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
00bc 0092 0409 | | Action Push_String_Extended,0x409 ; "~column_definition(heading_text=\x22Path Name\x22,heading_mode=c,body_mode=l,width=3inches)"
00be e215 | | Load 0x1,0x15
00bf e005 | | Load 0x0,0x5
00c0 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
00c1 00cf | | Action Mark_Auxiliary
00c2 e213 | | Load 0x1,0x13
00c3 0265 | e | Execute Discrete,Reverse_Bounds
00c4 0007 | | Action Break_Optional
00c5 00d8 | | Load_Top At_Offset_0
00c6 680f |h | Jump_Zero 0xd6
00c7 0092 040a | | Action Push_String_Extended,0x40a ; "~column_definition(heading_text=\x22"
00c9 e404 | | Load 0x2,0x4
00ca e213 | | Load 0x1,0x13
00cb 011c | | Execute Any,Convert_Unchecked
00cc 1c01 | | Execute_Immediate Run_Utility,0x1
00cd e006 | | Load 0x0,0x6
00ce 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
00cf 01cc | | Execute Vector,Catenate
00d0 0092 040b | | Action Push_String_Extended,0x40b ; "\x22,heading_mode=c,body_mode=l,width=0inches)"
00d2 01cc | | Execute Vector,Catenate
00d3 e215 | | Load 0x1,0x15
00d4 e005 | | Load 0x0,0x5
00d5 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
00d6 00c8 | | Action Pop_Auxiliary_Range
00d7 3fed |? | Loop_Increasing 0xc5
00d8 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00d9 0000 0000 | | .BLANK 0000[0x7]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00f6 | | .CONST 0x00f6 ; Address of begin
00e1 0004 | | .CONST 0x0004 ; Address of exception handler
00e2 0006 | | .CONST 0x0006 ; Number of locals
00e3 INIT_00e0:
00e3 e214 | | Load 0x1,0x14
00e4 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
00e5 00e1 | | Load_Encached Boolean_Cache
00e6 e213 | | Load 0x1,0x13
00e7 0266 | f | Execute Discrete,Bounds
00e8 4832 |H2 | Short_Literal 0x32
00e9 e007 | | Load 0x0,0x7
00ea 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00eb 1c07 | | Execute_Immediate Run_Utility,0x7
00ec 029f 025b | [| Declare_Subprogram INIT_0258,For_Call
00ee 4801 |H | Short_Literal 0x1
00ef 035d | ] | Declare_Type Array,Defined
00f0 00d8 | | Load_Top At_Offset_0
00f1 0337 | 7 | Declare_Variable Array
00f2 00d8 | | Load_Top At_Offset_0
00f3 1c00 | | Execute_Immediate Run_Utility,0x0
00f4 e5fe | | Load 0x2,-0x2
00f5 8212 | | Call 0x1,0x12
00f6 BODY_00e0:
00f6 00e1 | | Load_Encached Boolean_Cache
00f7 e214 | | Load 0x1,0x14
00f8 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
00f9 e406 | | Load 0x2,0x6
00fa e214 | | Load 0x1,0x14
00fb 181f | | Execute Package,Field_Execute,Field_Number 0x1f
00fc c402 | | Store 0x2,0x2
00fd c403 | | Store 0x2,0x3
00fe 0092 040c | | Action Push_String_Extended,0x40c ; "~ce("
0100 e5ff | | Load 0x2,-0x1
0101 e006 | | Load 0x0,0x6
0102 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0103 0092 040d | | Action Push_String_Extended,0x40d ; ") "
0105 01cc | | Execute Vector,Catenate
0106 8216 | | Call 0x1,0x16
0107 01cc | | Execute Vector,Catenate
0108 e215 | | Load 0x1,0x15
0109 e005 | | Load 0x0,0x5
010a 185e | ^ | Execute Package,Field_Execute,Field_Number 0x5e
010b 00cf | | Action Mark_Auxiliary
010c 7824 |x$ | Jump 0x131
010d 4800 |H | Short_Literal 0x0
010e e402 | | Load 0x2,0x2
010f e214 | | Load 0x1,0x14
0110 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0111 700a |p | Jump_Nonzero 0x11c
0112 0092 040e | | Action Push_String_Extended,0x40e ; "Illegal option: "
0114 4800 |H | Short_Literal 0x0
0115 e402 | | Load 0x2,0x2
0116 e214 | | Load 0x1,0x14
0117 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0118 01cc | | Execute Vector,Catenate
0119 e005 | | Load 0x0,0x5
011a 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
011b 7810 |x | Jump 0x12c
011c e402 | | Load 0x2,0x2
011d e214 | | Load 0x1,0x14
011e 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
011f e405 | | Load 0x2,0x5
0120 01d5 | | Execute Vector,Field_Reference
0121 00d8 | | Load_Top At_Offset_0
0122 00ea | | Load_Encached Null_String_Cache
0123 4800 |H | Short_Literal 0x0
0124 e402 | | Load 0x2,0x2
0125 e214 | | Load 0x1,0x14
0126 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0127 e006 | | Load 0x0,0x6
0128 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0129 e007 | | Load 0x0,0x7
012a 1810 | | Execute Package,Field_Execute,Field_Number 0x10
012b 00d2 | | Pop_Control Pop_Count_2
012c e402 | | Load 0x2,0x2
012d e214 | | Load 0x1,0x14
012e 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
012f c402 | | Store 0x2,0x2
0130 00c9 | | Action Pop_Auxiliary_Loop
0131 e402 | | Load 0x2,0x2
0132 e214 | | Load 0x1,0x14
0133 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0134 6fd8 |o | Jump_Zero 0x10d
0135 00c9 | | Action Pop_Auxiliary_Loop
0136 e213 | | Load 0x1,0x13
0137 0265 | e | Execute Discrete,Reverse_Bounds
0138 0007 | | Action Break_Optional
0139 00d8 | | Load_Top At_Offset_0
013a 680e |h | Jump_Zero 0x149
013b 0092 040c | | Action Push_String_Extended,0x40c ; "~ce("
013d e409 | | Load 0x2,0x9
013e e405 | | Load 0x2,0x5
013f 01d5 | | Execute Vector,Field_Reference
0140 e007 | | Load 0x0,0x7
0141 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0142 01cc | | Execute Vector,Catenate
0143 0092 040d | | Action Push_String_Extended,0x40d ; ") "
0145 01cc | | Execute Vector,Catenate
0146 e215 | | Load 0x1,0x15
0147 e005 | | Load 0x0,0x5
0148 185e | ^ | Execute Package,Field_Execute,Field_Number 0x5e
0149 00c8 | | Action Pop_Auxiliary_Range
014a 3fee |? | Loop_Increasing 0x139
014b 00ce | | Action Pop_Auxiliary
014c 4801 |H | Short_Literal 0x1
014d e215 | | Load 0x1,0x15
014e e005 | | Load 0x0,0x5
014f 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f
0150 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0151 0000 0000 | | .BLANK 0000[0x7]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015b | [ | .CONST 0x015b ; Address of begin
0159 0004 | | .CONST 0x0004 ; Address of exception handler
015a 0001 | | .CONST 0x0001 ; Number of locals
015b BODY_0158:
015b INIT_0158:
015b 0092 040f | | Action Push_String_Extended,0x40f ; "~end(table)"
015d e215 | | Load 0x1,0x15
015e e005 | | Load 0x0,0x5
015f 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
0160 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0161 0000 0000 | | .BLANK 0000[0x7]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 019a | | .CONST 0x019a ; Address of begin
0169 0004 | | .CONST 0x0004 ; Address of exception handler
016a 000e | | .CONST 0x000e ; Number of locals
016b INIT_0168:
016b 4800 |H | Short_Literal 0x0
016c 4806 |H | Short_Literal 0x6
016d 4864 |Hd | Short_Literal 0x64
016e e007 | | Load 0x0,0x7
016f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0170 1c07 | | Execute_Immediate Run_Utility,0x7
0171 029f 028b | | Declare_Subprogram INIT_0288,For_Call
0173 4801 |H | Short_Literal 0x1
0174 035d | ] | Declare_Type Array,Defined
0175 00d8 | | Load_Top At_Offset_0
0176 0337 | 7 | Declare_Variable Array
0177 00d8 | | Load_Top At_Offset_0
0178 1c00 | | Execute_Immediate Run_Utility,0x0
0179 4800 |H | Short_Literal 0x0
017a 4806 |H | Short_Literal 0x6
017b 4805 |H | Short_Literal 0x5
017c e007 | | Load 0x0,0x7
017d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
017e 1c07 | | Execute_Immediate Run_Utility,0x7
017f 029f 02bb | | Declare_Subprogram INIT_02b8,For_Call
0181 4801 |H | Short_Literal 0x1
0182 035d | ] | Declare_Type Array,Defined
0183 00d8 | | Load_Top At_Offset_0
0184 0337 | 7 | Declare_Variable Array
0185 00d8 | | Load_Top At_Offset_0
0186 1c00 | | Execute_Immediate Run_Utility,0x0
0187 00e3 | | Load_Encached Natural_Cache
0188 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0189 e5ff | | Load 0x2,-0x1
018a 01dd | | Execute Vector,First
018b 00e3 | | Load_Encached Natural_Cache
018c 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
018d 00e3 | | Load_Encached Natural_Cache
018e 029f 02eb | | Declare_Subprogram INIT_02e8,For_Call
0190 029f 031b | | Declare_Subprogram INIT_0318,For_Call
0192 029f 035b | [| Declare_Subprogram INIT_0358,For_Call
0194 029f 037b | {| Declare_Subprogram INIT_0378,For_Call
0196 029f 03a3 | | Declare_Subprogram INIT_03a0,For_Call
0198 029f 03db | | Declare_Subprogram INIT_03d8,For_Call
019a BODY_0168:
019a 00cf | | Action Mark_Auxiliary
019b 840b | | Call 0x2,0xb
019c 840e | | Call 0x2,0xe
019d e407 | | Load 0x2,0x7
019e e5ff | | Load 0x2,-0x1
019f 01dc | | Execute Vector,Last
01a0 027d | } | Execute Discrete,Greater
01a1 7002 |p | Jump_Nonzero 0x1a4
01a2 00c9 | | Action Pop_Auxiliary_Loop
01a3 7ff7 | | Jump 0x19b
01a4 00ce | | Action Pop_Auxiliary
01a5 e406 | | Load 0x2,0x6
01a6 840d | | Call 0x2,0xd
01a7 00e9 | | Load_Encached String_Cache
01a8 01c6 | | Execute Vector,Convert_To_Formal
01a9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01aa 0000 0000 | | .BLANK 0000[0x6]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b3 | | .CONST 0x01b3 ; Address of begin
01b1 0004 | | .CONST 0x0004 ; Address of exception handler
01b2 0001 | | .CONST 0x0001 ; Number of locals
01b3 BODY_01b0:
01b3 INIT_01b0:
01b3 4607 |F | Jump_Case 0x8
01b4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
01b5 7807 |x | Jump 0x1bd ; case 0x1
01b6 780a |x | Jump 0x1c1 ; case 0x2
01b7 780e |x | Jump 0x1c6 ; case 0x3
01b8 7811 |x | Jump 0x1ca ; case 0x4
01b9 7812 |x | Jump 0x1cc ; case 0x5
01ba 7813 |x | Jump 0x1ce ; case 0x6
01bb 7816 |x | Jump 0x1d2 ; case 0x7
01bc 4302 |C | .XXX[0x1]
01bd 00da | | Load_Top At_Offset_2
01be 0091 03f1 | | Action Push_String_Extended_Indexed,0x3f1 ; "NIL"
01c0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
01c1 00db | | Load_Top At_Offset_3
01c2 00db | | Load_Top At_Offset_3
01c3 00e0 | | Load_Encached Standard_Cache
01c4 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01c5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01c6 00da | | Load_Top At_Offset_2
01c7 00e0 | | Load_Encached Standard_Cache
01c8 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01c9 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
01ca 00db | | Load_Top At_Offset_3
01cb 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01cc 00db | | Load_Top At_Offset_3
01cd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01ce e213 | | Load 0x1,0x13
01cf 00dc | | Load_Top At_Offset_4
01d0 0267 | g | Execute Discrete,Predecessor
01d1 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01d2 e213 | | Load 0x1,0x13
01d3 00dc | | Load_Top At_Offset_4
01d4 0268 | h | Execute Discrete,Successor
01d5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01d6 0000 0000 | | .XXX[0x2]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01ec | | .CONST 0x01ec ; Address of begin
01d9 0004 | | .CONST 0x0004 ; Address of exception handler
01da 0003 | | .CONST 0x0003 ; Number of locals
01db INIT_01d8:
01db e5ff | | Load 0x2,-0x1
01dc 01dd | | Execute Vector,First
01dd e5ff | | Load 0x2,-0x1
01de 01dc | | Execute Vector,Last
01df 0a14 | | Execute_Immediate Plus,0x14
01e0 00d8 | | Load_Top At_Offset_0
01e1 00e2 | | Load_Encached Integer_Cache
01e2 0260 | ` | Execute Discrete,In_Type
01e3 7001 |p | Jump_Nonzero 0x1e5
01e4 0801 | | Execute_Immediate Raise,0x1
01e5 00e9 | | Load_Encached String_Cache
01e6 035b | [ | Declare_Type Array,Constrained
01e7 0337 | 7 | Declare_Variable Array
01e8 00d8 | | Load_Top At_Offset_0
01e9 01dd | | Execute Vector,First
01ea 00e3 | | Load_Encached Natural_Cache
01eb 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
01ec BODY_01d8:
01ec 00cf | | Action Mark_Auxiliary
01ed e5ff | | Load 0x2,-0x1
01ee 01dc | | Execute Vector,Last
01ef e5ff | | Load 0x2,-0x1
01f0 01dd | | Execute Vector,First
01f1 0263 | c | Execute Discrete,Above_Bound
01f2 701d |p | Jump_Nonzero 0x210
01f3 00d8 | | Load_Top At_Offset_0
01f4 e5ff | | Load 0x2,-0x1
01f5 01d7 | | Execute Vector,Field_Read
01f6 0f7e | ~ | Execute_Immediate Equal,0x7e
01f7 700a |p | Jump_Nonzero 0x202
01f8 00d8 | | Load_Top At_Offset_0
01f9 e5ff | | Load 0x2,-0x1
01fa 01d7 | | Execute Vector,Field_Read
01fb e403 | | Load 0x2,0x3
01fc e402 | | Load 0x2,0x2
01fd 01d6 | | Execute Vector,Field_Write
01fe e403 | | Load 0x2,0x3
01ff 0a01 | | Execute_Immediate Plus,0x1
0200 c403 | | Store 0x2,0x3
0201 780c |x | Jump 0x20e
0202 487e |H~ | Short_Literal 0x7e
0203 e403 | | Load 0x2,0x3
0204 e402 | | Load 0x2,0x2
0205 01d6 | | Execute Vector,Field_Write
0206 487e |H~ | Short_Literal 0x7e
0207 e403 | | Load 0x2,0x3
0208 0a01 | | Execute_Immediate Plus,0x1
0209 e402 | | Load 0x2,0x2
020a 01d6 | | Execute Vector,Field_Write
020b e403 | | Load 0x2,0x3
020c 0a02 | | Execute_Immediate Plus,0x2
020d c403 | | Store 0x2,0x3
020e 00c8 | | Action Pop_Auxiliary_Range
020f 3fe3 |? | Loop_Increasing 0x1f3
0210 00ce | | Action Pop_Auxiliary
0211 e402 | | Load 0x2,0x2
0212 01dd | | Execute Vector,First
0213 e403 | | Load 0x2,0x3
0214 0aff | | Execute_Immediate Plus,-0x1
0215 e402 | | Load 0x2,0x2
0216 01cf | | Execute Vector,Slice_Read
0217 00e9 | | Load_Encached String_Cache
0218 01c6 | | Execute Vector,Convert_To_Formal
0219 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
021a 0000 0000 | | .BLANK 0000[0x6]
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0230 | 0 | .CONST 0x0230 ; Address of begin
0221 0004 | | .CONST 0x0004 ; Address of exception handler
0222 0004 | | .CONST 0x0004 ; Number of locals
0223 INIT_0220:
0223 e5ff | | Load 0x2,-0x1
0224 01da | | Execute Vector,Bounds
0225 00e9 | | Load_Encached String_Cache
0226 035b | [ | Declare_Type Array,Constrained
0227 0337 | 7 | Declare_Variable Array
0228 e5ff | | Load 0x2,-0x1
0229 01dd | | Execute Vector,First
022a 00e4 | | Load_Encached Positive_Cache
022b 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
022c e5ff | | Load 0x2,-0x1
022d 01dd | | Execute Vector,First
022e 00e4 | | Load_Encached Positive_Cache
022f 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0230 BODY_0220:
0230 00cf | | Action Mark_Auxiliary
0231 e404 | | Load 0x2,0x4
0232 e5ff | | Load 0x2,-0x1
0233 01dc | | Execute Vector,Last
0234 027d | } | Execute Discrete,Greater
0235 7013 |p | Jump_Nonzero 0x249
0236 e404 | | Load 0x2,0x4
0237 e5ff | | Load 0x2,-0x1
0238 01d7 | | Execute Vector,Field_Read
0239 0e20 | | Execute_Immediate Not_Equal,0x20
023a 6809 |h | Jump_Zero 0x244
023b e404 | | Load 0x2,0x4
023c e5ff | | Load 0x2,-0x1
023d 01d7 | | Execute Vector,Field_Read
023e e403 | | Load 0x2,0x3
023f e402 | | Load 0x2,0x2
0240 01d6 | | Execute Vector,Field_Write
0241 e403 | | Load 0x2,0x3
0242 0a01 | | Execute_Immediate Plus,0x1
0243 c403 | | Store 0x2,0x3
0244 e404 | | Load 0x2,0x4
0245 0a01 | | Execute_Immediate Plus,0x1
0246 c404 | | Store 0x2,0x4
0247 00c9 | | Action Pop_Auxiliary_Loop
0248 7fe8 | | Jump 0x231
0249 00ce | | Action Pop_Auxiliary
024a e402 | | Load 0x2,0x2
024b 01dd | | Execute Vector,First
024c e403 | | Load 0x2,0x3
024d 0aff | | Execute_Immediate Plus,-0x1
024e e402 | | Load 0x2,0x2
024f 01cf | | Execute Vector,Slice_Read
0250 00e9 | | Load_Encached String_Cache
0251 01c6 | | Execute Vector,Convert_To_Formal
0252 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0253 0000 0000 | | .BLANK 0000[0x5]
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 025b | [ | .CONST 0x025b ; Address of begin
0259 0004 | | .CONST 0x0004 ; Address of exception handler
025a 0001 | | .CONST 0x0001 ; Number of locals
025b BODY_0258:
025b INIT_0258:
025b 4605 |F | Jump_Case 0x6
025c 7804 |x | Jump 0x261 ; case 0x0
025d 7819 |x | Jump 0x277 ; case 0x1
025e 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
025f 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
0260 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
0261 e7ff | | Load 0x3,-0x1 ; case 0x5
0262 01d8 | | Execute Vector,Element_Type
0263 02ff | | Declare_Variable Variant_Record
0264 00d8 | | Load_Top At_Offset_0
0265 1c00 | | Execute_Immediate Run_Utility,0x0
0266 e7ff | | Load 0x3,-0x1
0267 01dc | | Execute Vector,Last
0268 e7ff | | Load 0x3,-0x1
0269 01dd | | Execute Vector,First
026a 0263 | c | Execute Discrete,Above_Bound
026b 700a |p | Jump_Nonzero 0x276
026c 00d8 | | Load_Top At_Offset_0
026d e7ff | | Load 0x3,-0x1
026e 01d5 | | Execute Vector,Field_Reference
026f 0125 | % | Execute Any,Set_Constraint
0270 e602 | | Load 0x3,0x2
0271 e604 | | Load 0x3,0x4
0272 e7ff | | Load 0x3,-0x1
0273 01d6 | | Execute Vector,Field_Write
0274 0a01 | | Execute_Immediate Plus,0x1
0275 7ff4 | | Jump 0x26a
0276 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0277 e7ff | | Load 0x3,-0x1
0278 01dc | | Execute Vector,Last
0279 e7ff | | Load 0x3,-0x1
027a 01dd | | Execute Vector,First
027b 0263 | c | Execute Discrete,Above_Bound
027c 7006 |p | Jump_Nonzero 0x283
027d 00d8 | | Load_Top At_Offset_0
027e e7ff | | Load 0x3,-0x1
027f 01d5 | | Execute Vector,Field_Reference
0280 0125 | % | Execute Any,Set_Constraint
0281 0a01 | | Execute_Immediate Plus,0x1
0282 7ff8 | | Jump 0x27b
0283 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0284 0000 0000 | | .BLANK 0000[0x4]
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 028b | | .CONST 0x028b ; Address of begin
0289 0004 | | .CONST 0x0004 ; Address of exception handler
028a 0001 | | .CONST 0x0001 ; Number of locals
028b BODY_0288:
028b INIT_0288:
028b 4605 |F | Jump_Case 0x6
028c 7804 |x | Jump 0x291 ; case 0x0
028d 7819 |x | Jump 0x2a7 ; case 0x1
028e 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
028f 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
0290 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
0291 e7ff | | Load 0x3,-0x1 ; case 0x5
0292 01d8 | | Execute Vector,Element_Type
0293 02ff | | Declare_Variable Variant_Record
0294 00d8 | | Load_Top At_Offset_0
0295 1c00 | | Execute_Immediate Run_Utility,0x0
0296 e7ff | | Load 0x3,-0x1
0297 01dc | | Execute Vector,Last
0298 e7ff | | Load 0x3,-0x1
0299 01dd | | Execute Vector,First
029a 0263 | c | Execute Discrete,Above_Bound
029b 700a |p | Jump_Nonzero 0x2a6
029c 00d8 | | Load_Top At_Offset_0
029d e7ff | | Load 0x3,-0x1
029e 01d5 | | Execute Vector,Field_Reference
029f 0125 | % | Execute Any,Set_Constraint
02a0 e602 | | Load 0x3,0x2
02a1 e604 | | Load 0x3,0x4
02a2 e7ff | | Load 0x3,-0x1
02a3 01d6 | | Execute Vector,Field_Write
02a4 0a01 | | Execute_Immediate Plus,0x1
02a5 7ff4 | | Jump 0x29a
02a6 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
02a7 e7ff | | Load 0x3,-0x1
02a8 01dc | | Execute Vector,Last
02a9 e7ff | | Load 0x3,-0x1
02aa 01dd | | Execute Vector,First
02ab 0263 | c | Execute Discrete,Above_Bound
02ac 7006 |p | Jump_Nonzero 0x2b3
02ad 00d8 | | Load_Top At_Offset_0
02ae e7ff | | Load 0x3,-0x1
02af 01d5 | | Execute Vector,Field_Reference
02b0 0125 | % | Execute Any,Set_Constraint
02b1 0a01 | | Execute_Immediate Plus,0x1
02b2 7ff8 | | Jump 0x2ab
02b3 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
02b4 0000 0000 | | .BLANK 0000[0x4]
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02bb | | .CONST 0x02bb ; Address of begin
02b9 0004 | | .CONST 0x0004 ; Address of exception handler
02ba 0001 | | .CONST 0x0001 ; Number of locals
02bb BODY_02b8:
02bb INIT_02b8:
02bb 4605 |F | Jump_Case 0x6
02bc 7804 |x | Jump 0x2c1 ; case 0x0
02bd 7819 |x | Jump 0x2d7 ; case 0x1
02be 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
02bf 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
02c0 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
02c1 e7ff | | Load 0x3,-0x1 ; case 0x5
02c2 01d8 | | Execute Vector,Element_Type
02c3 02ff | | Declare_Variable Variant_Record
02c4 00d8 | | Load_Top At_Offset_0
02c5 1c00 | | Execute_Immediate Run_Utility,0x0
02c6 e7ff | | Load 0x3,-0x1
02c7 01dc | | Execute Vector,Last
02c8 e7ff | | Load 0x3,-0x1
02c9 01dd | | Execute Vector,First
02ca 0263 | c | Execute Discrete,Above_Bound
02cb 700a |p | Jump_Nonzero 0x2d6
02cc 00d8 | | Load_Top At_Offset_0
02cd e7ff | | Load 0x3,-0x1
02ce 01d5 | | Execute Vector,Field_Reference
02cf 0125 | % | Execute Any,Set_Constraint
02d0 e602 | | Load 0x3,0x2
02d1 e604 | | Load 0x3,0x4
02d2 e7ff | | Load 0x3,-0x1
02d3 01d6 | | Execute Vector,Field_Write
02d4 0a01 | | Execute_Immediate Plus,0x1
02d5 7ff4 | | Jump 0x2ca
02d6 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
02d7 e7ff | | Load 0x3,-0x1
02d8 01dc | | Execute Vector,Last
02d9 e7ff | | Load 0x3,-0x1
02da 01dd | | Execute Vector,First
02db 0263 | c | Execute Discrete,Above_Bound
02dc 7006 |p | Jump_Nonzero 0x2e3
02dd 00d8 | | Load_Top At_Offset_0
02de e7ff | | Load 0x3,-0x1
02df 01d5 | | Execute Vector,Field_Reference
02e0 0125 | % | Execute Any,Set_Constraint
02e1 0a01 | | Execute_Immediate Plus,0x1
02e2 7ff8 | | Jump 0x2db
02e3 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
02e4 0000 0000 | | .BLANK 0000[0x4]
02e8 ; --------------------------------------------------------------------------------------
02e8 ; SUBPROGRAM
02e8 ; --------------------------------------------------------------------------------------
02e8 02f3 | | .CONST 0x02f3 ; Address of begin
02e9 0004 | | .CONST 0x0004 ; Address of exception handler
02ea 0003 | | .CONST 0x0003 ; Number of locals
02eb INIT_02e8:
02eb 4805 |H | Short_Literal 0x5
02ec e007 | | Load 0x0,0x7
02ed 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02ee 1c08 | | Execute_Immediate Run_Utility,0x8
02ef 00d8 | | Load_Top At_Offset_0
02f0 1c00 | | Execute_Immediate Run_Utility,0x0
02f1 029f 03e3 | | Declare_Subprogram INIT_03e0,For_Call
02f3 BODY_02e8:
02f3 00cf | | Action Mark_Auxiliary
02f4 e7ff | | Load 0x3,-0x1
02f5 01dc | | Execute Vector,Last
02f6 e7ff | | Load 0x3,-0x1
02f7 01dd | | Execute Vector,First
02f8 0263 | c | Execute Discrete,Above_Bound
02f9 7006 |p | Jump_Nonzero 0x300
02fa 00d8 | | Load_Top At_Offset_0
02fb e7ff | | Load 0x3,-0x1
02fc 01d7 | | Execute Vector,Field_Read
02fd 8603 | | Call 0x3,0x3
02fe 00c8 | | Action Pop_Auxiliary_Range
02ff 3ffa |? | Loop_Increasing 0x2fa
0300 00c9 | | Action Pop_Auxiliary_Loop
0301 e7fe | | Load 0x3,-0x2
0302 01dc | | Execute Vector,Last
0303 e7fe | | Load 0x3,-0x2
0304 01dd | | Execute Vector,First
0305 0263 | c | Execute Discrete,Above_Bound
0306 7006 |p | Jump_Nonzero 0x30d
0307 00d8 | | Load_Top At_Offset_0
0308 e7fe | | Load 0x3,-0x2
0309 01d7 | | Execute Vector,Field_Read
030a 8603 | | Call 0x3,0x3
030b 00c8 | | Action Pop_Auxiliary_Range
030c 3ffa |? | Loop_Increasing 0x307
030d 00ce | | Action Pop_Auxiliary
030e e602 | | Load 0x3,0x2
030f e007 | | Load 0x0,0x7
0310 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0311 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0312 0000 0000 | | .BLANK 0000[0x6]
0318 ; --------------------------------------------------------------------------------------
0318 ; SUBPROGRAM
0318 ; --------------------------------------------------------------------------------------
0318 031b | | .CONST 0x031b ; Address of begin
0319 0004 | | .CONST 0x0004 ; Address of exception handler
031a 0001 | | .CONST 0x0001 ; Number of locals
031b BODY_0318:
031b INIT_0318:
031b 00cf | | Action Mark_Auxiliary
031c e406 | | Load 0x2,0x6
031d 4801 |H | Short_Literal 0x1
031e 0263 | c | Execute Discrete,Above_Bound
031f 701a |p | Jump_Nonzero 0x33a
0320 4801 |H | Short_Literal 0x1
0321 e7ff | | Load 0x3,-0x1
0322 e604 | | Load 0x3,0x4
0323 e403 | | Load 0x2,0x3
0324 01d5 | | Execute Vector,Field_Reference
0325 e007 | | Load 0x0,0x7
0326 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0327 e006 | | Load 0x0,0x6
0328 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0329 680e |h | Jump_Zero 0x338
032a 00d8 | | Load_Top At_Offset_0
032b e405 | | Load 0x2,0x5
032c 01d5 | | Execute Vector,Field_Reference
032d 00d8 | | Load_Top At_Offset_0
032e e7fe | | Load 0x3,-0x2
032f e604 | | Load 0x3,0x4
0330 e405 | | Load 0x2,0x5
0331 01d5 | | Execute Vector,Field_Reference
0332 e007 | | Load 0x0,0x7
0333 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0334 8409 | | Call 0x2,0x9
0335 e007 | | Load 0x0,0x7
0336 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0337 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0338 00c8 | | Action Pop_Auxiliary_Range
0339 3fe6 |? | Loop_Increasing 0x320
033a 00ce | | Action Pop_Auxiliary
033b e7ff | | Load 0x3,-0x1
033c 01db | | Execute Vector,Length
033d 6815 |h | Jump_Zero 0x353
033e e406 | | Load 0x2,0x6
033f 0a01 | | Execute_Immediate Plus,0x1
0340 c406 | | Store 0x2,0x6
0341 e406 | | Load 0x2,0x6
0342 e403 | | Load 0x2,0x3
0343 01d5 | | Execute Vector,Field_Reference
0344 00d8 | | Load_Top At_Offset_0
0345 e7ff | | Load 0x3,-0x1
0346 e007 | | Load 0x0,0x7
0347 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0348 00d2 | | Pop_Control Pop_Count_2
0349 e406 | | Load 0x2,0x6
034a e405 | | Load 0x2,0x5
034b 01d5 | | Execute Vector,Field_Reference
034c 00d8 | | Load_Top At_Offset_0
034d 00ea | | Load_Encached Null_String_Cache
034e e7fe | | Load 0x3,-0x2
034f 8409 | | Call 0x2,0x9
0350 e007 | | Load 0x0,0x7
0351 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0352 00d2 | | Pop_Control Pop_Count_2
0353 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0354 0000 0000 | | .BLANK 0000[0x4]
0358 ; --------------------------------------------------------------------------------------
0358 ; SUBPROGRAM
0358 ; --------------------------------------------------------------------------------------
0358 035c | \ | .CONST 0x035c ; Address of begin
0359 0004 | | .CONST 0x0004 ; Address of exception handler
035a 0002 | | .CONST 0x0002 ; Number of locals
035b INIT_0358:
035b 00e3 | | Load_Encached Natural_Cache
035c BODY_0358:
035c 4800 |H | Short_Literal 0x0
035d e407 | | Load 0x2,0x7
035e e5ff | | Load 0x2,-0x1
035f 01dc | | Execute Vector,Last
0360 e5ff | | Load 0x2,-0x1
0361 01cf | | Execute Vector,Slice_Read
0362 0092 0410 | | Action Push_String_Extended,0x410 ; "=>"
0364 e006 | | Load 0x0,0x6
0365 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0366 a408 | | Store_Unchecked 0x2,0x8
0367 e407 | | Load 0x2,0x7
0368 a602 | | Store_Unchecked 0x3,0x2
0369 e408 | | Load 0x2,0x8
036a 0a02 | | Execute_Immediate Plus,0x2
036b c407 | | Store 0x2,0x7
036c 00d8 | | Load_Top At_Offset_0
036d e408 | | Load 0x2,0x8
036e 0aff | | Execute_Immediate Plus,-0x1
036f e5ff | | Load 0x2,-0x1
0370 01cf | | Execute Vector,Slice_Read
0371 8217 | | Call 0x1,0x17
0372 00ca | | Action Exit_Nullary_Function
0373 0000 0000 | | .BLANK 0000[0x5]
0378 ; --------------------------------------------------------------------------------------
0378 ; SUBPROGRAM
0378 ; --------------------------------------------------------------------------------------
0378 037c | | | .CONST 0x037c ; Address of begin
0379 0004 | | .CONST 0x0004 ; Address of exception handler
037a 0002 | | .CONST 0x0002 ; Number of locals
037b INIT_0378:
037b 00e3 | | Load_Encached Natural_Cache
037c BODY_0378:
037c 4800 |H | Short_Literal 0x0
037d e407 | | Load 0x2,0x7
037e e5ff | | Load 0x2,-0x1
037f 01dc | | Execute Vector,Last
0380 e5ff | | Load 0x2,-0x1
0381 01cf | | Execute Vector,Slice_Read
0382 0092 0411 | | Action Push_String_Extended,0x411 ; ","
0384 e006 | | Load 0x0,0x6
0385 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0386 a408 | | Store_Unchecked 0x2,0x8
0387 e407 | | Load 0x2,0x7
0388 a602 | | Store_Unchecked 0x3,0x2
0389 e408 | | Load 0x2,0x8
038a 700b |p | Jump_Nonzero 0x396
038b e5ff | | Load 0x2,-0x1
038c 01dc | | Execute Vector,Last
038d 0a01 | | Execute_Immediate Plus,0x1
038e c407 | | Store 0x2,0x7
038f 00d8 | | Load_Top At_Offset_0
0390 e5ff | | Load 0x2,-0x1
0391 01dc | | Execute Vector,Last
0392 e5ff | | Load 0x2,-0x1
0393 01cf | | Execute Vector,Slice_Read
0394 8217 | | Call 0x1,0x17
0395 00ca | | Action Exit_Nullary_Function
0396 e408 | | Load 0x2,0x8
0397 0a01 | | Execute_Immediate Plus,0x1
0398 c407 | | Store 0x2,0x7
0399 00d8 | | Load_Top At_Offset_0
039a e408 | | Load 0x2,0x8
039b 0aff | | Execute_Immediate Plus,-0x1
039c e5ff | | Load 0x2,-0x1
039d 01cf | | Execute Vector,Slice_Read
039e 8217 | | Call 0x1,0x17
039f 00ca | | Action Exit_Nullary_Function
03a0 ; --------------------------------------------------------------------------------------
03a0 ; SUBPROGRAM
03a0 ; --------------------------------------------------------------------------------------
03a0 03a3 | | .CONST 0x03a3 ; Address of begin
03a1 0004 | | .CONST 0x0004 ; Address of exception handler
03a2 0001 | | .CONST 0x0001 ; Number of locals
03a3 BODY_03a0:
03a3 INIT_03a0:
03a3 e7ff | | Load 0x3,-0x1
03a4 7002 |p | Jump_Nonzero 0x3a7
03a5 00ea | | Load_Encached Null_String_Cache
03a6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03a7 e7ff | | Load 0x3,-0x1
03a8 0f01 | | Execute_Immediate Equal,0x1
03a9 680f |h | Jump_Zero 0x3b9
03aa e7ff | | Load 0x3,-0x1
03ab e403 | | Load 0x2,0x3
03ac 01d5 | | Execute Vector,Field_Reference
03ad e007 | | Load 0x0,0x7
03ae 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03af 0092 0410 | | Action Push_String_Extended,0x410 ; "=>"
03b1 01cc | | Execute Vector,Catenate
03b2 e7ff | | Load 0x3,-0x1
03b3 e405 | | Load 0x2,0x5
03b4 01d5 | | Execute Vector,Field_Reference
03b5 e007 | | Load 0x0,0x7
03b6 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03b7 01cc | | Execute Vector,Catenate
03b8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03b9 e7ff | | Load 0x3,-0x1
03ba 0aff | | Execute_Immediate Plus,-0x1
03bb 00d8 | | Load_Top At_Offset_0
03bc 00e3 | | Load_Encached Natural_Cache
03bd 0260 | ` | Execute Discrete,In_Type
03be 7001 |p | Jump_Nonzero 0x3c0
03bf 0801 | | Execute_Immediate Raise,0x1
03c0 840d | | Call 0x2,0xd
03c1 0092 0411 | | Action Push_String_Extended,0x411 ; ","
03c3 01cc | | Execute Vector,Catenate
03c4 e7ff | | Load 0x3,-0x1
03c5 e403 | | Load 0x2,0x3
03c6 01d5 | | Execute Vector,Field_Reference
03c7 e007 | | Load 0x0,0x7
03c8 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03c9 01cc | | Execute Vector,Catenate
03ca 0092 0410 | | Action Push_String_Extended,0x410 ; "=>"
03cc 01cc | | Execute Vector,Catenate
03cd e7ff | | Load 0x3,-0x1
03ce e405 | | Load 0x2,0x5
03cf 01d5 | | Execute Vector,Field_Reference
03d0 e007 | | Load 0x0,0x7
03d1 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03d2 01cc | | Execute Vector,Catenate
03d3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03d4 0000 0000 | | .BLANK 0000[0x4]
03d8 ; --------------------------------------------------------------------------------------
03d8 ; SUBPROGRAM
03d8 ; --------------------------------------------------------------------------------------
03d8 03db | | .CONST 0x03db ; Address of begin
03d9 0004 | | .CONST 0x0004 ; Address of exception handler
03da 0001 | | .CONST 0x0001 ; Number of locals
03db BODY_03d8:
03db INIT_03d8:
03db 840c | | Call 0x2,0xc
03dc e7ff | | Load 0x3,-0x1
03dd 840a | | Call 0x2,0xa
03de 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03df 0000 | | .XXX[0x1]
03e0 ; --------------------------------------------------------------------------------------
03e0 ; SUBPROGRAM
03e0 ; --------------------------------------------------------------------------------------
03e0 03e3 | | .CONST 0x03e3 ; Address of begin
03e1 0004 | | .CONST 0x0004 ; Address of exception handler
03e2 0001 | | .CONST 0x0001 ; Number of locals
03e3 BODY_03e0:
03e3 INIT_03e0:
03e3 4801 |H | Short_Literal 0x1
03e4 e602 | | Load 0x3,0x2
03e5 e007 | | Load 0x0,0x7
03e6 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03e7 e9ff | | Load 0x4,-0x1
03e8 e006 | | Load 0x0,0x6
03e9 181e | | Execute Package,Field_Execute,Field_Number 0x1e
03ea 7005 |p | Jump_Nonzero 0x3f0
03eb e602 | | Load 0x3,0x2
03ec e9ff | | Load 0x4,-0x1
03ed e007 | | Load 0x0,0x7
03ee 1819 | | Execute Package,Field_Execute,Field_Number 0x19
03ef 00d1 | | Pop_Control Pop_Count_1
03f0 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03f1 ; --------------------------------------------------------------------------------------
03f1 ; STRING TABLE
03f1 ; --------------------------------------------------------------------------------------
03f1 0044 | D | .STRTAB 0x0044->0x0413 ; "NIL"
03f2 0045 | E | .STRTAB 0x0045->0x0414 ; "PUBLIC"
03f3 0049 | I | .STRTAB 0x0049->0x0417 ; "NETWORK_PUBLIC"
03f4 0055 | U | .STRTAB 0x0055->0x041e ; "OPERATOR"
03f5 005b | [ | .STRTAB 0x005b->0x0422 ; "SYSTEM"
03f6 005f | _ | .STRTAB 0x005f->0x0425 ; "others => Unspecified"
03f7 0072 | r | .STRTAB 0x0072->0x0430 ; "~right_heading(~>Standard ACL Values for the Predefined Universe~>)"
03f8 00b3 | | .STRTAB 0x00b3->0x0451 ; "~left_heading(~>Standard ACL Values for the Predefined Universe~>)"
03f9 00f3 | | .STRTAB 0x00f3->0x0472 ; "~left_footing(~>~>~value(date))"
03fa 0110 | | .STRTAB 0x0110->0x0482 ; "~right_footing(~>~>~value(date))"
03fb 012e | . | .STRTAB 0x012e->0x0492 ; "~macro(ce=\x22~column_entry(~argument(text))\x22)"
03fc 0157 | W | .STRTAB 0x0157->0x04a7 ; "~Setup(table_space_after=.15inches)"
03fd 0178 | x | .STRTAB 0x0178->0x04b9 ; "~Setup(table_space_before=.15inches)"
03fe 019a | | .STRTAB 0x019a->0x04cb ; "~Setup(table_leading=1)"
03ff 01af | | .STRTAB 0x01af->0x04d6 ; "~Setup(Header_Space_Before=.3inches)"
0400 01d1 | | .STRTAB 0x01d1->0x04e8 ; "~Setup(Header_Space_after=.3inches)"
0401 01f2 | | .STRTAB 0x01f2->0x04fa ; "~Setup(footer_Space_before=.1inches)"
0402 0214 | | .STRTAB 0x0214->0x050c ; "~Setup(footer_point=10.5inches)"
0403 0231 | 1 | .STRTAB 0x0231->0x051b ; "~macro(table_size=\x22~environment(point_size=9)\x22)"
0404 025e | ^ | .STRTAB 0x025e->0x0533 ; "~begin(table)"
0405 0269 | i | .STRTAB 0x0269->0x0539 ; "~table_size()"
0406 0274 | t | .STRTAB 0x0274->0x0540 ; "~title("
0407 0279 | y | .STRTAB 0x0279->0x0543 ; ": "
0408 0279 | y | .STRTAB 0x0279->0x0544 ; ")"
0409 0278 | x | .STRTAB 0x0278->0x0545 ; "~column_definition(heading_text=\x22Path Name\x22,heading_mode=c,body_mode=l,width=3inches)"
040a 02cb | | .STRTAB 0x02cb->0x056f ; "~column_definition(heading_text=\x22"
040b 02ea | | .STRTAB 0x02ea->0x0580 ; "\x22,heading_mode=c,body_mode=l,width=0inches)"
040c 0313 | | .STRTAB 0x0313->0x0595 ; "~ce("
040d 0315 | | .STRTAB 0x0315->0x0597 ; ") "
040e 0315 | | .STRTAB 0x0315->0x0598 ; "Illegal option: "
040f 0323 | # | .STRTAB 0x0323->0x05a0 ; "~end(table)"
0410 032c | , | .STRTAB 0x032c->0x05a6 ; "=>"
0411 032c | , | .STRTAB 0x032c->0x05a7 ; ","
0412 032b | + | .STREND 0x032b->0x05a7
0413 4e49 4c50 |NILP| .STRTAB_STRINGS
05a8 ; --------------------------------------------------------------------------------------
05a8 ; Debug Table
05a8 ; --------------------------------------------------------------------------------------
05a8 0004 0011 | | .DEBUG4 0x0004,0x0011,0x9746,0x0000,0x0001,0x0000
05ae 0000 0000 | | .BLANK 0000[0x52]