|
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, 5813_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_6148f2
└─⟦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 5813 |X | .CONST 0x5813 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 02f8 | | .CONST 0x02f8 ; 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 0002 | | .CONST 0x0002 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0087 | | .CONST 0x0087 ; Address of begin
0009 008a | | .CONST 0x008a ; Address of exception handler
000a 0026 | & | .CONST 0x0026 ; Number of locals
000b INIT_0008:
000b 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0 = .DEBUG 0x000b,0x03ba,0x8000,0x0000,0x004e,0xa655,0x0000,0x000b
; Debug Table 0x0.0x0 = 0xb,0xffff
000d 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x1 = 0xd,0xfffe
000f 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x2 = 0xf,0xfffd
0011 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0x11,0xfffc
0013 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x4 = 0x13,0xfffb
0015 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x5 = 0x15,0xfffa
0017 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x6 = 0x17,0xfff9
0019 03f6 | | Declare_Variable Discrete,Incomplete,Visible ; Debug Table 0x0.0x7 = 0x19,0xfff8
001a 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x8 = 0x1a,0xfff7
001c 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x9 = 0x1c,0xfff6
001e 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xa = 0x1e,0xfff5
0020 00db | | Load_Top At_Offset_3 ; Debug Table 0x0.0xb = 0x20,0xfff4
0021 00e1 | | Load_Encached Boolean_Cache
0022 02a0 | | Declare_Subprogram Null_Subprogram
0023 4802 |H | Short_Literal 0x2
0024 0328 | ( | Declare_Type Record,Defined_Incomplete,Visible
0025 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xc = 0x25,0xfff3
0027 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xd = 0x27,0xfff2
0029 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xe = 0x29,0xfff1
002b 0092 029a | | Action Push_String_Extended,0x29a ; "Mail"
; Debug Table 0x0.0xf = 0x2b,0xfff0
002d 0129 | ) | Execute Any,Make_Visible
002e 0092 029b | | Action Push_String_Extended,0x29b ; "SMTP"
; Debug Table 0x0.0x10 = 0x2e,0xffef
0030 0129 | ) | Execute Any,Make_Visible
0031 e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x11 = 0x31,0xffee
0032 190e | | Execute Package,Field_Reference,Field_Number 0xe
0033 0129 | ) | Execute Any,Make_Visible
0034 0007 | | Action Break_Optional ; Debug Table 0x0.0x12 = 0x34,0xffed
0035 0007 | | Action Break_Optional ; Debug Table 0x0.0x13 = 0x35,0xffec
0036 0007 | | Action Break_Optional ; Debug Table 0x0.0x14 = 0x36,0xffeb
0037 4d30 |M0 | Short_Literal -0x2d0 ; Debug Table 0x0.0x15 = 0x37,0xffea
0038 4b75 |Ku | Short_Literal 0x375
0039 00e2 | | Load_Encached Integer_Cache
003a e214 | | Load 0x1,0x14
003b 03ed | | Complete_Type Discrete,By_Constraining
003c e218 | | Load 0x1,0x18
003d 0324 | $ | Complete_Type Record,By_Component_Completion
003e 6255 |bU | Indirect_Literal Discrete,0x294,{0x00000000, 0x001e0000} ; Debug Table 0x0.0x16 = 0x3e,0xffe9
003f 00e7 | | Load_Encached Duration_Cache
0040 03f1 | | Declare_Variable Discrete,With_Value
0041 00bf | | Action Accept_Activation
0042 0007 | | Action Break_Optional ; Debug Table 0x1 = .DEBUG 0x0042,0x03ea,0x8000,0x0000,0x004e,0xd6a5,0x0000,0x000b
; Debug Table 0x1.0x0 = 0x42,0xffff
0043 0007 | | Action Break_Optional ; Debug Table 0x1.0x1 = 0x43,0xfffe
0044 0007 | | Action Break_Optional ; Debug Table 0x1.0x2 = 0x44,0xfffd
0045 0007 | | Action Break_Optional ; Debug Table 0x1.0x3 = 0x45,0xfffc
0046 0007 | | Action Break_Optional ; Debug Table 0x1.0x4 = 0x46,0xfffb
0047 0007 | | Action Break_Optional ; Debug Table 0x1.0x5 = 0x47,0xfffa
0048 e218 | | Load 0x1,0x18 ; Debug Table 0x1.0x6 = 0x48,0xfff9
0049 0322 | " | Declare_Variable Record
004a 4800 |H | Short_Literal 0x0
004b 00d9 | | Load_Top At_Offset_1
004c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
004d 4800 |H | Short_Literal 0x0
004e 00d9 | | Load_Top At_Offset_1
004f 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0050 4800 |H | Short_Literal 0x0 ; Debug Table 0x1.0x7 = 0x50,0xfff8
0051 4801 |H | Short_Literal 0x1
0052 029f 01c3 | | Declare_Subprogram INIT_01c0,For_Call
0054 03fd | | Declare_Type Discrete,Defined
0055 623a |b: | Indirect_Literal Discrete,0x290,{0x00000000, 0x004ed6a5} ; Debug Table 0x1.0x8 = 0x55,0xfff7
0056 4869 |Hi | Short_Literal 0x69
0057 00da | | Load_Top At_Offset_2
0058 4800 |H | Short_Literal 0x0
0059 4801 |H | Short_Literal 0x1
005a 4801 |H | Short_Literal 0x1
005b 0092 029c | | Action Push_String_Extended,0x29c ; "Daylight_Savings_Time => boolean_valued"
005d 00ea | | Load_Encached Null_String_Cache
005e 00ea | | Load_Encached Null_String_Cache
005f 4801 |H | Short_Literal 0x1
0060 4801 |H | Short_Literal 0x1
0061 e002 | | Load 0x0,0x2
0062 0387 | | Declare_Variable Package
0063 00d8 | | Load_Top At_Offset_0
0064 020f | | Execute Module,Activate
0065 1d0d | | Execute_Immediate Reference_Lex_1,0xd ; Debug Table 0x1.0x9 = 0x65,0xfff6
0066 00c7 | | Action Elaborate_Subprogram
0067 1d0e | | Execute_Immediate Reference_Lex_1,0xe ; Debug Table 0x1.0xa = 0x67,0xfff5
0068 00c7 | | Action Elaborate_Subprogram
0069 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1.0xb = 0x69,0xfff4
006a 00c7 | | Action Elaborate_Subprogram
006b 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x1.0xc = 0x6b,0xfff3
006c 00c7 | | Action Elaborate_Subprogram
006d 029d 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call ; Debug Table 0x1.0xd = 0x6d,0xfff2
006f 1d11 | | Execute_Immediate Reference_Lex_1,0x11 ; Debug Table 0x1.0xe = 0x6f,0xfff1
0070 00c7 | | Action Elaborate_Subprogram
0071 029d 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call ; Debug Table 0x1.0xf = 0x71,0xfff0
0073 029d 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call ; Debug Table 0x1.0x10 = 0x73,0xffef
0075 1d15 | | Execute_Immediate Reference_Lex_1,0x15 ; Debug Table 0x1.0x11 = 0x75,0xffee
0076 00c7 | | Action Elaborate_Subprogram
0077 029d 021b | | Declare_Subprogram INIT_0218,For_Outer_Call ; Debug Table 0x1.0x12 = 0x77,0xffed
0079 1d19 | | Execute_Immediate Reference_Lex_1,0x19 ; Debug Table 0x1.0x13 = 0x79,0xffec
007a 00c7 | | Action Elaborate_Subprogram
007b 1d16 | | Execute_Immediate Reference_Lex_1,0x16 ; Debug Table 0x1.0x14 = 0x7b,0xffeb
007c 00c7 | | Action Elaborate_Subprogram
007d 1d17 | | Execute_Immediate Reference_Lex_1,0x17 ; Debug Table 0x1.0x15 = 0x7d,0xffea
007e 00c7 | | Action Elaborate_Subprogram
007f 1d1a | | Execute_Immediate Reference_Lex_1,0x1a ; Debug Table 0x1.0x16 = 0x7f,0xffe9
0080 00c7 | | Action Elaborate_Subprogram
0081 1d1b | | Execute_Immediate Reference_Lex_1,0x1b ; Debug Table 0x1.0x17 = 0x81,0xffe8
0082 00c7 | | Action Elaborate_Subprogram
0083 1d12 | | Execute_Immediate Reference_Lex_1,0x12 ; Debug Table 0x1.0x18 = 0x83,0xffe7
0084 00c7 | | Action Elaborate_Subprogram
0085 1d13 | | Execute_Immediate Reference_Lex_1,0x13 ; Debug Table 0x1.0x19 = 0x85,0xffe6
0086 00c7 | | Action Elaborate_Subprogram
0087 BODY_0008:
0087 8212 | | Call 0x1,0x12 ; Debug Table 0x1.0x1a = 0x87,0x1
0088 00bc | | Action Signal_Activated
0089 00bb | | Action Signal_Completion
008a TRAP_0008:
008a 0007 | | Action Break_Optional
008b 00bc | | Action Signal_Activated ; Debug Table 0x1.0x1b = 0x8b,0x2
008c 00bb | | Action Signal_Completion
008d 0000 0000 | | .XXX[0x3]
008f 0000 | |
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0093 | | .CONST 0x0093 ; Address of begin
0091 0004 | | .CONST 0x0004 ; Address of exception handler
0092 0001 | | .CONST 0x0001 ; Number of locals
0093 BODY_0090:
0093 INIT_0090:
0093 48f5 |H | Short_Literal 0xf5 ; Debug Table 0x2 = .DEBUG 0x0093,0x0424,0x0002,0x0000,0x004e,0xa655,0x0000,0x000c
; Debug Table 0x2.0x0 = 0x93,0x1
0094 00ca | | Action Exit_Nullary_Function
0095 0000 0000 | | .XXX[0x3]
0097 0000 | |
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 48f4 |H | Short_Literal 0xf4 ; Debug Table 0x3 = .DEBUG 0x009b,0x0428,0x0002,0x0000,0x004e,0xa655,0x0000,0x0013
; Debug Table 0x3.0x0 = 0x9b,0x1
009c 00ca | | Action Exit_Nullary_Function
009d 0000 0000 | | .XXX[0x3]
009f 0000 | |
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 029d | | Action Push_String_Extended,0x29d ; "!MACHINE.MAIL"
; Debug Table 0x4 = .DEBUG 0x00a3,0x042c,0x0002,0x0000,0x004e,0xa655,0x0000,0x001a
; Debug Table 0x4.0x0 = 0xa3,0x1
00a5 00ca | | Action Exit_Nullary_Function
00a6 0000 0000 | | .XXX[0x2]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ab | | .CONST 0x00ab ; Address of begin
00a9 0004 | | .CONST 0x0004 ; Address of exception handler
00aa 0001 | | .CONST 0x0001 ; Number of locals
00ab BODY_00a8:
00ab INIT_00a8:
00ab 4850 |HP | Short_Literal 0x50 ; Debug Table 0x5 = .DEBUG 0x00ab,0x0430,0x0002,0x0000,0x004e,0xa655,0x0000,0x001f
; Debug Table 0x5.0x0 = 0xab,0x1
00ac 00ca | | Action Exit_Nullary_Function
00ad 0000 0000 | | .XXX[0x3]
00af 0000 | |
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b3 | | .CONST 0x00b3 ; Address of begin
00b1 0004 | | .CONST 0x0004 ; Address of exception handler
00b2 0001 | | .CONST 0x0001 ; Number of locals
00b3 BODY_00b0:
00b3 INIT_00b0:
00b3 e220 | | Load 0x1,0x20 ; Debug Table 0x6 = .DEBUG 0x00b3,0x0434,0x0002,0x0000,0x004e,0xa655,0x0000,0x0024
; Debug Table 0x6.0x0 = 0xb3,0x1
00b4 821a | | Call 0x1,0x1a
00b5 00ca | | Action Exit_Nullary_Function
00b6 0000 0000 | | .XXX[0x2]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00c2 | | .CONST 0x00c2 ; Address of begin
00b9 00d3 | | .CONST 0x00d3 ; Address of exception handler
00ba 0003 | | .CONST 0x0003 ; Number of locals
00bb INIT_00b8:
00bb e003 | | Load 0x0,0x3 ; Debug Table 0x7 = .DEBUG 0x00bb,0x0438,0x0001,0x0000,0x004e,0xa655,0x0000,0x0029
; Debug Table 0x7.0x0 = 0xbb,0xffff
00bc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00bd 02c7 | | Declare_Variable Any
00be 00d8 | | Load_Top At_Offset_0
00bf 1c00 | | Execute_Immediate Run_Utility,0x0
00c0 029f 0233 | 3| Declare_Subprogram INIT_0230,For_Call
00c2 BODY_00b8:
00c2 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x7.0x1 = 0xc2,0x1
00c3 00ea | | Load_Encached Null_String_Cache
00c4 0092 029e | | Action Push_String_Extended,0x29e ; "!Machine.Time_Zone"
00c6 4800 |H | Short_Literal 0x0
00c7 e003 | | Load 0x0,0x3
00c8 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00c9 c402 | | Store 0x2,0x2
00ca 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x7.0x2 = 0xca,0x2
00cb 821b | | Call 0x1,0x1b
00cc e220 | | Load 0x1,0x20
00cd 017d | } | Execute Record,Structure_Write
00ce 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x7.0x3 = 0xce,0x3
00cf e003 | | Load 0x0,0x3
00d0 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00d1 c402 | | Store 0x2,0x2
00d2 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00d3 TRAP_00b8:
00d3 0007 | | Action Break_Optional
00d4 8403 | | Call 0x2,0x3 ; Debug Table 0x7.0x4 = 0xd4,0x4
00d5 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x7.0x5 = 0xd5,0x5
00d6 0101 | | Execute Exception,Reraise
00d7 0000 | | .XXX[0x1]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00db | | .CONST 0x00db ; Address of begin
00d9 0004 | | .CONST 0x0004 ; Address of exception handler
00da 0001 | | .CONST 0x0001 ; Number of locals
00db BODY_00d8:
00db INIT_00d8:
00db e004 | | Load 0x0,0x4 ; Debug Table 0x8 = .DEBUG 0x00db,0x0446,0x0002,0x0000,0x004e,0xa655,0x0000,0x002d
; Debug Table 0x8.0x0 = 0xdb,0x1
00dc 1b20 | | Execute Package,Field_Read,Field_Number 0x20
00dd 0322 | " | Declare_Variable Record
00de 4802 |H | Short_Literal 0x2
00df 00d9 | | Load_Top At_Offset_1
00e0 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00e1 4800 |H | Short_Literal 0x0
00e2 00d9 | | Load_Top At_Offset_1
00e3 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00e4 4800 |H | Short_Literal 0x0
00e5 00d9 | | Load_Top At_Offset_1
00e6 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
00e7 4800 |H | Short_Literal 0x0
00e8 00d9 | | Load_Top At_Offset_1
00e9 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
00ea 4800 |H | Short_Literal 0x0
00eb 00d9 | | Load_Top At_Offset_1
00ec 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
00ed 00ca | | Action Exit_Nullary_Function
00ee 0000 0000 | | .XXX[0x2]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f3 | | .CONST 0x00f3 ; Address of begin
00f1 0004 | | .CONST 0x0004 ; Address of exception handler
00f2 0001 | | .CONST 0x0001 ; Number of locals
00f3 BODY_00f0:
00f3 INIT_00f0:
00f3 00da | | Load_Top At_Offset_2 ; Debug Table 0x9 = .DEBUG 0x00f3,0x044a,0x0002,0x0000,0x004e,0xa655,0x0000,0x0038
; Debug Table 0x9.0x0 = 0xf3,0x1
00f4 0248 | H | Execute Discrete,Check_In_Integer
00f5 e21f | | Load 0x1,0x1f
00f6 0271 | q | Execute Discrete,Times
00f7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 0104 | | .CONST 0x0104 ; Address of begin
00f9 0004 | | .CONST 0x0004 ; Address of exception handler
00fa 0004 | | .CONST 0x0004 ; Number of locals
00fb INIT_00f8:
00fb 00da | | Load_Top At_Offset_2 ; Debug Table 0xa = .DEBUG 0x00fb,0x044e,0x0002,0x0000,0x004e,0xa655,0x0000,0x0041
; Debug Table 0xa.0x0 = 0xfb,0xffff
00fc 0248 | H | Execute Discrete,Check_In_Integer
00fd 0274 | t | Execute Discrete,Absolute_Value
00fe 00e2 | | Load_Encached Integer_Cache
00ff 03f1 | | Declare_Variable Discrete,With_Value
0100 029f 0243 | C| Declare_Subprogram INIT_0240,For_Call ; Debug Table 0xa.0x1 = 0x100,0xfffe
0102 029f 0253 | S| Declare_Subprogram INIT_0250,For_Call ; Debug Table 0xa.0x2 = 0x102,0xfffd
0104 BODY_00f8:
0104 8403 | | Call 0x2,0x3 ; Debug Table 0xa.0x3 = 0x104,0x1
0105 00db | | Load_Top At_Offset_3
0106 483c |H< | Short_Literal 0x3c
0107 0270 | p | Execute Discrete,Divide
0108 8404 | | Call 0x2,0x4
0109 01ca | | Execute Vector,Prepend
010a 00db | | Load_Top At_Offset_3
010b 483c |H< | Short_Literal 0x3c
010c 026e | n | Execute Discrete,Modulo
010d 8404 | | Call 0x2,0x4
010e 01cc | | Execute Vector,Catenate
010f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0119 | | .CONST 0x0119 ; Address of begin
0111 0004 | | .CONST 0x0004 ; Address of exception handler
0112 0003 | | .CONST 0x0003 ; Number of locals
0113 INIT_0110:
0113 4820 |H | Short_Literal 0x20 ; Debug Table 0xb = .DEBUG 0x0113,0x0458,0x0002,0x0000,0x004e,0xa655,0x0000,0x004a
; Debug Table 0xb.0x0 = 0x113,0xffff
0114 00db | | Load_Top At_Offset_3
0115 e005 | | Load 0x0,0x5
0116 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0117 029f 0263 | c| Declare_Subprogram INIT_0260,For_Call ; Debug Table 0xb.0x1 = 0x117,0xfffe
0119 BODY_0110:
0119 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xb.0x2 = 0x119,0x1
011a 01db | | Execute Vector,Length
011b 00d8 | | Load_Top At_Offset_0
011c 4801 |H | Short_Literal 0x1
011d 4803 |H | Short_Literal 0x3
011e 0262 | b | Execute Discrete,In_Range
011f 7007 |p | Jump_Nonzero 0x127
0120 00d8 | | Load_Top At_Offset_0
0121 4804 |H | Short_Literal 0x4
0122 4805 |H | Short_Literal 0x5
0123 0262 | b | Execute Discrete,In_Range
0124 7007 |p | Jump_Nonzero 0x12c
0125 48e0 |H | Short_Literal 0xe0 ; Debug Table 0xb.0x3 = 0x125,0x4
0126 0257 | W | Execute Discrete,Raise
0127 0092 029f | | Action Push_String_Extended,0x29f ; "0"
; Debug Table 0xb.0x4 = 0x127,0x2
0129 00db | | Load_Top At_Offset_3
012a 8403 | | Call 0x2,0x3
012b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
012c 00da | | Load_Top At_Offset_2 ; Debug Table 0xb.0x5 = 0x12c,0x3
012d 01dc | | Execute Vector,Last
012e 0aff | | Execute_Immediate Plus,-0x1
012f 0248 | H | Execute Discrete,Check_In_Integer
0130 00db | | Load_Top At_Offset_3
0131 01dc | | Execute Vector,Last
0132 e402 | | Load 0x2,0x2
0133 01cf | | Execute Vector,Slice_Read
0134 00db | | Load_Top At_Offset_3
0135 01dd | | Execute Vector,First
0136 e402 | | Load 0x2,0x2
0137 01dc | | Execute Vector,Last
0138 0afe | | Execute_Immediate Plus,-0x2
0139 0248 | H | Execute Discrete,Check_In_Integer
013a e402 | | Load 0x2,0x2
013b 01cf | | Execute Vector,Slice_Read
013c 8403 | | Call 0x2,0x3
013d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
013e 0000 0000 | | .XXX[0x2]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0143 | C | .CONST 0x0143 ; Address of begin
0141 0004 | | .CONST 0x0004 ; Address of exception handler
0142 0001 | | .CONST 0x0001 ; Number of locals
0143 BODY_0140:
0143 INIT_0140:
0143 00da | | Load_Top At_Offset_2 ; Debug Table 0xc = .DEBUG 0x0143,0x0466,0x0002,0x0000,0x004e,0xa655,0x0000,0x0061
; Debug Table 0xc.0x0 = 0x143,0x1
0144 8226 | & | Call 0x1,0x26
0145 8215 | | Call 0x1,0x15
0146 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0147 0000 | | .XXX[0x1]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014b | K | .CONST 0x014b ; Address of begin
0149 0004 | | .CONST 0x0004 ; Address of exception handler
014a 0001 | | .CONST 0x0001 ; Number of locals
014b BODY_0148:
014b INIT_0148:
014b 00da | | Load_Top At_Offset_2 ; Debug Table 0xd = .DEBUG 0x014b,0x046a,0x0002,0x0000,0x004e,0xa655,0x0000,0x006a
; Debug Table 0xd.0x0 = 0x14b,0x1
014c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
014d 6822 |h" | Jump_Zero 0x170
014e 00da | | Load_Top At_Offset_2 ; Debug Table 0xd.0x1 = 0x14e,0x2
014f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0150 00d8 | | Load_Top At_Offset_0
0151 4ed4 |N | Short_Literal -0x12c
0152 027f | | Execute Discrete,Equal
0153 7010 |p | Jump_Nonzero 0x164
0154 00d8 | | Load_Top At_Offset_0
0155 4e98 |N | Short_Literal -0x168
0156 027f | | Execute Discrete,Equal
0157 700f |p | Jump_Nonzero 0x167
0158 00d8 | | Load_Top At_Offset_0
0159 4e5c |N\ | Short_Literal -0x1a4
015a 027f | | Execute Discrete,Equal
015b 700e |p | Jump_Nonzero 0x16a
015c 00d8 | | Load_Top At_Offset_0
015d 4e20 |N | Short_Literal -0x1e0
015e 027f | | Execute Discrete,Equal
015f 700d |p | Jump_Nonzero 0x16d
0160 00db | | Load_Top At_Offset_3 ; Debug Table 0xd.0x2 = 0x160,0x7
0161 8226 | & | Call 0x1,0x26
0162 8216 | | Call 0x1,0x16
0163 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0164 0092 02a0 | | Action Push_String_Extended,0x2a0 ; "EDT"
; Debug Table 0xd.0x3 = 0x164,0x3
0166 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0167 0092 02a1 | | Action Push_String_Extended,0x2a1 ; "CDT"
; Debug Table 0xd.0x4 = 0x167,0x4
0169 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
016a 0092 02a2 | | Action Push_String_Extended,0x2a2 ; "MDT"
; Debug Table 0xd.0x5 = 0x16a,0x5
016c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
016d 0092 02a3 | | Action Push_String_Extended,0x2a3 ; "PDT"
; Debug Table 0xd.0x6 = 0x16d,0x6
016f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0170 00da | | Load_Top At_Offset_2 ; Debug Table 0xd.0x7 = 0x170,0x8
0171 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0172 00d8 | | Load_Top At_Offset_0
0173 4ed4 |N | Short_Literal -0x12c
0174 027f | | Execute Discrete,Equal
0175 7012 |p | Jump_Nonzero 0x188
0176 00d8 | | Load_Top At_Offset_0
0177 4e98 |N | Short_Literal -0x168
0178 027f | | Execute Discrete,Equal
0179 7011 |p | Jump_Nonzero 0x18b
017a 00d8 | | Load_Top At_Offset_0
017b 4e5c |N\ | Short_Literal -0x1a4
017c 027f | | Execute Discrete,Equal
017d 7010 |p | Jump_Nonzero 0x18e
017e 00d8 | | Load_Top At_Offset_0
017f 4e20 |N | Short_Literal -0x1e0
0180 027f | | Execute Discrete,Equal
0181 700f |p | Jump_Nonzero 0x191
0182 0b00 | | Execute_Immediate Case_Compare,0x0
0183 7010 |p | Jump_Nonzero 0x194
0184 00db | | Load_Top At_Offset_3 ; Debug Table 0xd.0x8 = 0x184,0xe
0185 8226 | & | Call 0x1,0x26
0186 8216 | | Call 0x1,0x16
0187 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0188 0092 02a4 | | Action Push_String_Extended,0x2a4 ; "EST"
; Debug Table 0xd.0x9 = 0x188,0x9
018a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
018b 0092 02a5 | | Action Push_String_Extended,0x2a5 ; "CST"
; Debug Table 0xd.0xa = 0x18b,0xa
018d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
018e 0092 02a6 | | Action Push_String_Extended,0x2a6 ; "MST"
; Debug Table 0xd.0xb = 0x18e,0xb
0190 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0191 0092 02a7 | | Action Push_String_Extended,0x2a7 ; "PST"
; Debug Table 0xd.0xc = 0x191,0xc
0193 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0194 0092 02a8 | | Action Push_String_Extended,0x2a8 ; "UT"
; Debug Table 0xd.0xd = 0x194,0xd
0196 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0197 0000 | | .XXX[0x1]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 01a0 | | .CONST 0x01a0 ; Address of begin
0199 01ab | | .CONST 0x01ab ; Address of exception handler
019a 0002 | | .CONST 0x0002 ; Number of locals
019b INIT_0198:
019b 00da | | Load_Top At_Offset_2 ; Debug Table 0xe = .DEBUG 0x019b,0x0488,0x0002,0x0000,0x004e,0xa655,0x0000,0x0073
; Debug Table 0xe.0x0 = 0x19b,0xffff
019c 8225 | % | Call 0x1,0x25
019d 8217 | | Call 0x1,0x17
019e e214 | | Load 0x1,0x14
019f 03f1 | | Declare_Variable Discrete,With_Value
01a0 BODY_0198:
01a0 e218 | | Load 0x1,0x18 ; Debug Table 0xe.0x1 = 0x1a0,0x1
01a1 0322 | " | Declare_Variable Record
01a2 00d9 | | Load_Top At_Offset_1
01a3 00d9 | | Load_Top At_Offset_1
01a4 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01a5 e5ff | | Load 0x2,-0x1
01a6 8225 | % | Call 0x1,0x25
01a7 8223 | # | Call 0x1,0x23
01a8 00d9 | | Load_Top At_Offset_1
01a9 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01aa 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01ab TRAP_0198:
01ab 00d8 | | Load_Top At_Offset_0
01ac 0107 | | Execute Exception,Get_Name
01ad 4950 |IP | Short_Literal 0x150
01ae 495f |I_ | Short_Literal 0x15f
01af 0262 | b | Execute Discrete,In_Range
01b0 6809 |h | Jump_Zero 0x1ba
01b1 e218 | | Load 0x1,0x18 ; Debug Table 0xe.0x2 = 0x1b1,0x2
01b2 0322 | " | Declare_Variable Record
01b3 00da | | Load_Top At_Offset_2
01b4 00d9 | | Load_Top At_Offset_1
01b5 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01b6 4800 |H | Short_Literal 0x0
01b7 00d9 | | Load_Top At_Offset_1
01b8 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01b9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01ba 0100 | | Execute Exception,Raise
01bb 0000 0000 | | .BLANK 0000[0x5]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c3 | | .CONST 0x01c3 ; Address of begin
01c1 0004 | | .CONST 0x0004 ; Address of exception handler
01c2 0001 | | .CONST 0x0001 ; Number of locals
01c3 BODY_01c0:
01c3 INIT_01c0:
01c3 4603 |F | Jump_Case 0x4 ; Debug Table 0xf = .DEBUG 0x01c3,0x0490,0x0005,0x0000,0x004e,0xd6a5,0x0000,0x0063
01c4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
01c5 7802 |x | Jump 0x1c8 ; case 0x1
01c6 7805 |x | Jump 0x1cc ; case 0x2
01c7 7809 |x | Jump 0x1d1 ; case 0x3
01c8 00da | | Load_Top At_Offset_2
01c9 0091 0298 | | Action Push_String_Extended_Indexed,0x298 ; "NULL_OPTION"
01cb 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
01cc 00db | | Load_Top At_Offset_3
01cd 00db | | Load_Top At_Offset_3
01ce 00e0 | | Load_Encached Standard_Cache
01cf 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01d0 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01d1 00da | | Load_Top At_Offset_2
01d2 00e0 | | Load_Encached Standard_Cache
01d3 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01d4 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
01d5 0000 0000 | | .XXX[0x3]
01d7 0000 | |
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01de | | .CONST 0x01de ; Address of begin
01d9 01ec | | .CONST 0x01ec ; Address of exception handler
01da 0003 | | .CONST 0x0003 ; Number of locals
01db INIT_01d8:
01db e222 | " | Load 0x1,0x22 ; Debug Table 0x10 = .DEBUG 0x01db,0x0492,0x0002,0x0000,0x004e,0xd6a5,0x0000,0x00a4
; Debug Table 0x10.0x0 = 0x1db,0xffff
01dc 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
01dd 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x10.0x1 = 0x1dd,0xfffe
01de BODY_01d8:
01de 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x10.0x2 = 0x1de,0x1
01df e222 | " | Load 0x1,0x22
01e0 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
01e1 e5ff | | Load 0x2,-0x1
01e2 e222 | " | Load 0x1,0x22
01e3 181f | | Execute Package,Field_Execute,Field_Number 0x1f
01e4 0033 | 3 | Store_Top Heap_Access,At_Offset_3
01e5 0059 | Y | Store_Top Discrete,At_Offset_1
01e6 4800 |H | Short_Literal 0x0 ; Debug Table 0x10.0x3 = 0x1e6,0x2
01e7 4801 |H | Short_Literal 0x1
01e8 00db | | Load_Top At_Offset_3
01e9 e222 | " | Load 0x1,0x22
01ea 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
01eb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01ec TRAP_01d8:
01ec 0007 | | Action Break_Optional
01ed 4800 |H | Short_Literal 0x0 ; Debug Table 0x10.0x4 = 0x1ed,0x3
01ee 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01ef 0000 | | .XXX[0x1]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01fb | | .CONST 0x01fb ; Address of begin
01f1 0004 | | .CONST 0x0004 ; Address of exception handler
01f2 0002 | | .CONST 0x0002 ; Number of locals
01f3 INIT_01f0:
01f3 4800 |H | Short_Literal 0x0 ; Debug Table 0x11 = .DEBUG 0x01f3,0x049e,0x0002,0x0000,0x004e,0xd6a5,0x0000,0x00e1
; Debug Table 0x11.0x0 = 0x1f3,0xffff
01f4 00db | | Load_Top At_Offset_3
01f5 0092 02a9 | | Action Push_String_Extended,0x2a9 ; "--"
01f7 e005 | | Load 0x0,0x5
01f8 181d | | Execute Package,Field_Execute,Field_Number 0x1d
01f9 00e3 | | Load_Encached Natural_Cache
01fa 03f1 | | Declare_Variable Discrete,With_Value
01fb BODY_01f0:
01fb 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x11.0x1 = 0x1fb,0x1
01fc e5ff | | Load 0x2,-0x1
01fd 01da | | Execute Vector,Bounds
01fe 0262 | b | Execute Discrete,In_Range
01ff 6808 |h | Jump_Zero 0x208
0200 00db | | Load_Top At_Offset_3 ; Debug Table 0x11.0x2 = 0x200,0x2
0201 01dd | | Execute Vector,First
0202 00d9 | | Load_Top At_Offset_1
0203 0aff | | Execute_Immediate Plus,-0x1
0204 0248 | H | Execute Discrete,Check_In_Integer
0205 e5ff | | Load 0x2,-0x1
0206 01cf | | Execute Vector,Slice_Read
0207 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0208 00db | | Load_Top At_Offset_3 ; Debug Table 0x11.0x3 = 0x208,0x3
0209 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
020a 0000 0000 | | .BLANK 0000[0x6]
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0213 | | .CONST 0x0213 ; Address of begin
0211 0004 | | .CONST 0x0004 ; Address of exception handler
0212 0001 | | .CONST 0x0001 ; Number of locals
0213 BODY_0210:
0213 INIT_0210:
0213 00da | | Load_Top At_Offset_2 ; Debug Table 0x12 = .DEBUG 0x0213,0x04a8,0x0002,0x0000,0x004e,0xd6a5,0x0000,0x0113
; Debug Table 0x12.0x0 = 0x213,0x1
0214 e003 | | Load 0x0,0x3
0215 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
0216 8224 | $ | Call 0x1,0x24
0217 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 021b | | .CONST 0x021b ; Address of begin
0219 0004 | | .CONST 0x0004 ; Address of exception handler
021a 0001 | | .CONST 0x0001 ; Number of locals
021b BODY_0218:
021b INIT_0218:
021b 00da | | Load_Top At_Offset_2 ; Debug Table 0x13 = .DEBUG 0x021b,0x04ac,0x0002,0x0000,0x004e,0xd6a5,0x0000,0x0146
; Debug Table 0x13.0x0 = 0x21b,0x1
021c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
021d 6807 |h | Jump_Zero 0x225
021e 00da | | Load_Top At_Offset_2 ; Debug Table 0x13.0x1 = 0x21e,0x2
021f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0220 0248 | H | Execute Discrete,Check_In_Integer
0221 0a3c | < | Execute_Immediate Plus,0x3c
0222 e214 | | Load 0x1,0x14
0223 025b | [ | Execute Discrete,Check_In_Type
0224 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0225 00da | | Load_Top At_Offset_2 ; Debug Table 0x13.0x2 = 0x225,0x3
0226 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0227 0248 | H | Execute Discrete,Check_In_Integer
0228 e214 | | Load 0x1,0x14
0229 025b | [ | Execute Discrete,Check_In_Type
022a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
022b 0000 0000 | | .BLANK 0000[0x5]
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0233 | 3 | .CONST 0x0233 ; Address of begin
0231 0238 | 8 | .CONST 0x0238 ; Address of exception handler
0232 0001 | | .CONST 0x0001 ; Number of locals
0233 BODY_0230:
0233 INIT_0230:
0233 e402 | | Load 0x2,0x2 ; Debug Table 0x14 = .DEBUG 0x0233,0x04b4,0x0004,0x0000,0x004e,0xd6a5,0x0000,0x039f
; Debug Table 0x14.0x0 = 0x233,0x1
0234 e003 | | Load 0x0,0x3
0235 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0236 c402 | | Store 0x2,0x2
0237 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0238 TRAP_0230:
0238 0007 | | Action Break_Optional
0239 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; Debug Table 0x14.0x1 = 0x239,0x2
023a 0000 0000 | | .BLANK 0000[0x6]
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0243 | C | .CONST 0x0243 ; Address of begin
0241 0004 | | .CONST 0x0004 ; Address of exception handler
0242 0001 | | .CONST 0x0001 ; Number of locals
0243 BODY_0240:
0243 INIT_0240:
0243 e5ff | | Load 0x2,-0x1 ; Debug Table 0x15 = .DEBUG 0x0243,0x04ba,0x0002,0x0000,0x004e,0xd6a5,0x0000,0x01a9
; Debug Table 0x15.0x0 = 0x243,0x1
0244 0c00 | | Execute_Immediate Greater_Equal,0x0
0245 6802 |h | Jump_Zero 0x248
0246 482b |H+ | Short_Literal 0x2b ; Debug Table 0x15.0x1 = 0x246,0x2
0247 00ca | | Action Exit_Nullary_Function
0248 482d |H- | Short_Literal 0x2d ; Debug Table 0x15.0x2 = 0x248,0x3
0249 00ca | | Action Exit_Nullary_Function
024a 0000 0000 | | .BLANK 0000[0x6]
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0253 | S | .CONST 0x0253 ; Address of begin
0251 0004 | | .CONST 0x0004 ; Address of exception handler
0252 0001 | | .CONST 0x0001 ; Number of locals
0253 BODY_0250:
0253 INIT_0250:
0253 4830 |H0 | Short_Literal 0x30 ; Debug Table 0x16 = .DEBUG 0x0253,0x04c2,0x0002,0x0000,0x004e,0xd6a5,0x0000,0x01c0
; Debug Table 0x16.0x0 = 0x253,0x1
0254 4802 |H | Short_Literal 0x2
0255 480a |H | Short_Literal 0xa
0256 e7ff | | Load 0x3,-0x1
0257 e005 | | Load 0x0,0x5
0258 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0259 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
025a 0000 0000 | | .BLANK 0000[0x6]
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 0278 | x | .CONST 0x0278 ; Address of begin
0261 0004 | | .CONST 0x0004 ; Address of exception handler
0262 0004 | | .CONST 0x0004 ; Number of locals
0263 INIT_0260:
0263 00da | | Load_Top At_Offset_2 ; Debug Table 0x17 = .DEBUG 0x0263,0x04c6,0x0002,0x0000,0x004e,0xd6a5,0x0000,0x0211
; Debug Table 0x17.0x0 = 0x263,0xffff
0264 e7fe | | Load 0x3,-0x2
0265 01cc | | Execute Vector,Catenate
0266 00e2 | | Load_Encached Integer_Cache
0267 00e0 | | Load_Encached Standard_Cache
0268 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0269 00e2 | | Load_Encached Integer_Cache
026a 03f1 | | Declare_Variable Discrete,With_Value
026b 00db | | Load_Top At_Offset_3 ; Debug Table 0x17.0x1 = 0x26b,0xfffe
026c 00e2 | | Load_Encached Integer_Cache
026d 00e0 | | Load_Encached Standard_Cache
026e 1819 | | Execute Package,Field_Execute,Field_Number 0x19
026f 00e2 | | Load_Encached Integer_Cache
0270 03f1 | | Declare_Variable Discrete,With_Value
0271 e7fe | | Load 0x3,-0x2 ; Debug Table 0x17.0x2 = 0x271,0xfffd
0272 00e3 | | Load_Encached Natural_Cache
0273 0122 | " | Execute Any,Make_Root_Type
0274 00e0 | | Load_Encached Standard_Cache
0275 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0276 00e3 | | Load_Encached Natural_Cache
0277 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0278 BODY_0260:
0278 00da | | Load_Top At_Offset_2 ; Debug Table 0x17.0x3 = 0x278,0x1
0279 0c00 | | Execute_Immediate Greater_Equal,0x0
027a 680a |h | Jump_Zero 0x285
027b 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x17.0x4 = 0x27b,0x2
027c 483c |H< | Short_Literal 0x3c
027d 0271 | q | Execute Discrete,Times
027e 0248 | H | Execute Discrete,Check_In_Integer
027f 00d9 | | Load_Top At_Offset_1
0280 0248 | H | Execute Discrete,Check_In_Integer
0281 0273 | s | Execute Discrete,Plus
0282 e214 | | Load 0x1,0x14
0283 025b | [ | Execute Discrete,Check_In_Type
0284 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0285 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x17.0x5 = 0x285,0x3
0286 483c |H< | Short_Literal 0x3c
0287 0271 | q | Execute Discrete,Times
0288 0248 | H | Execute Discrete,Check_In_Integer
0289 00d9 | | Load_Top At_Offset_1
028a 0248 | H | Execute Discrete,Check_In_Integer
028b 0272 | r | Execute Discrete,Minus
028c e214 | | Load 0x1,0x14
028d 025b | [ | Execute Discrete,Check_In_Type
028e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
028f 0000 | | .XXX[0x1]
0290 0000 0000 | | .LITERAL {0x00000000, 0x004ed6a5}
0294 0000 0000 | | .LITERAL {0x00000000, 0x001e0000}
0298 ; --------------------------------------------------------------------------------------
0298 ; STRING TABLE
0298 ; --------------------------------------------------------------------------------------
0298 0026 | & | .STRTAB 0x0026->0x02ab ; "NULL_OPTION"
0299 002f | / | .STRTAB 0x002f->0x02b0 ; "DAYLIGHT_SAVINGS_TIME"
029a 0042 | B | .STRTAB 0x0042->0x02bb ; "Mail"
029b 0044 | D | .STRTAB 0x0044->0x02bd ; "SMTP"
029c 0046 | F | .STRTAB 0x0046->0x02bf ; "Daylight_Savings_Time => boolean_valued"
029d 006b | k | .STRTAB 0x006b->0x02d2 ; "!MACHINE.MAIL"
029e 0076 | v | .STRTAB 0x0076->0x02d9 ; "!Machine.Time_Zone"
029f 0086 | | .STRTAB 0x0086->0x02e2 ; "0"
02a0 0085 | | .STRTAB 0x0085->0x02e2 ; "EDT"
02a1 0086 | | .STRTAB 0x0086->0x02e4 ; "CDT"
02a2 0087 | | .STRTAB 0x0087->0x02e5 ; "MDT"
02a3 0088 | | .STRTAB 0x0088->0x02e7 ; "PDT"
02a4 0089 | | .STRTAB 0x0089->0x02e8 ; "EST"
02a5 008a | | .STRTAB 0x008a->0x02ea ; "CST"
02a6 008b | | .STRTAB 0x008b->0x02eb ; "MST"
02a7 008c | | .STRTAB 0x008c->0x02ed ; "PST"
02a8 008d | | .STRTAB 0x008d->0x02ee ; "UT"
02a9 008d | | .STRTAB 0x008d->0x02ef ; "--"
02aa 008d | | .STREND 0x008d->0x02f0
02ab 4e55 4c4c |NULL| .STRTAB_STRINGS
02f1 0000 0000 | | .BLANK 0000[0x7]
02f8 ; --------------------------------------------------------------------------------------
02f8 ; Debug Table
02f8 ; --------------------------------------------------------------------------------------
02f8 0003 0018 | | .CONST 0x0003,0x0018
02fa 000b 03ba | | .DEBUG 0x000b,0x03ba,0x8000,0x0000,0x004e,0xa655,0x0000,0x000b
0302 0042 03ea | B | .DEBUG 0x0042,0x03ea,0x8000,0x0000,0x004e,0xd6a5,0x0000,0x000b
030a 0093 0424 | $| .DEBUG 0x0093,0x0424,0x0002,0x0000,0x004e,0xa655,0x0000,0x000c
0312 009b 0428 | (| .DEBUG 0x009b,0x0428,0x0002,0x0000,0x004e,0xa655,0x0000,0x0013
031a 00a3 042c | ,| .DEBUG 0x00a3,0x042c,0x0002,0x0000,0x004e,0xa655,0x0000,0x001a
0322 00ab 0430 | 0| .DEBUG 0x00ab,0x0430,0x0002,0x0000,0x004e,0xa655,0x0000,0x001f
032a 00b3 0434 | 4| .DEBUG 0x00b3,0x0434,0x0002,0x0000,0x004e,0xa655,0x0000,0x0024
0332 00bb 0438 | 8| .DEBUG 0x00bb,0x0438,0x0001,0x0000,0x004e,0xa655,0x0000,0x0029
033a 00db 0446 | F| .DEBUG 0x00db,0x0446,0x0002,0x0000,0x004e,0xa655,0x0000,0x002d
0342 00f3 044a | J| .DEBUG 0x00f3,0x044a,0x0002,0x0000,0x004e,0xa655,0x0000,0x0038
034a 00fb 044e | N| .DEBUG 0x00fb,0x044e,0x0002,0x0000,0x004e,0xa655,0x0000,0x0041
0352 0113 0458 | X| .DEBUG 0x0113,0x0458,0x0002,0x0000,0x004e,0xa655,0x0000,0x004a
035a 0143 0466 | C f| .DEBUG 0x0143,0x0466,0x0002,0x0000,0x004e,0xa655,0x0000,0x0061
0362 014b 046a | K j| .DEBUG 0x014b,0x046a,0x0002,0x0000,0x004e,0xa655,0x0000,0x006a
036a 019b 0488 | | .DEBUG 0x019b,0x0488,0x0002,0x0000,0x004e,0xa655,0x0000,0x0073
0372 01c3 0490 | | .DEBUG 0x01c3,0x0490,0x0005,0x0000,0x004e,0xd6a5,0x0000,0x0063
037a 01db 0492 | | .DEBUG 0x01db,0x0492,0x0002,0x0000,0x004e,0xd6a5,0x0000,0x00a4
0382 01f3 049e | | .DEBUG 0x01f3,0x049e,0x0002,0x0000,0x004e,0xd6a5,0x0000,0x00e1
038a 0213 04a8 | | .DEBUG 0x0213,0x04a8,0x0002,0x0000,0x004e,0xd6a5,0x0000,0x0113
0392 021b 04ac | | .DEBUG 0x021b,0x04ac,0x0002,0x0000,0x004e,0xd6a5,0x0000,0x0146
039a 0233 04b4 | 3 | .DEBUG 0x0233,0x04b4,0x0004,0x0000,0x004e,0xd6a5,0x0000,0x039f
03a2 0243 04ba | C | .DEBUG 0x0243,0x04ba,0x0002,0x0000,0x004e,0xd6a5,0x0000,0x01a9
03aa 0253 04c2 | S | .DEBUG 0x0253,0x04c2,0x0002,0x0000,0x004e,0xd6a5,0x0000,0x01c0
03b2 0263 04c6 | c | .DEBUG 0x0263,0x04c6,0x0002,0x0000,0x004e,0xd6a5,0x0000,0x0211
03ba ; --------------------------------------------------------------------------------------
03ba ; Debug3 Subtable 0x0
03ba ; --------------------------------------------------------------------------------------
03ba 0017 0000 | | .DBG3TAB 0x0017,0x0000
03bc 000b ffff | | .CONST 0x000b,0xffff
03be 000d fffe | | .CONST 0x000d,0xfffe
03c0 000f fffd | | .CONST 0x000f,0xfffd
03c2 0011 fffc | | .CONST 0x0011,0xfffc
03c4 0013 fffb | | .CONST 0x0013,0xfffb
03c6 0015 fffa | | .CONST 0x0015,0xfffa
03c8 0017 fff9 | | .CONST 0x0017,0xfff9
03ca 0019 fff8 | | .CONST 0x0019,0xfff8
03cc 001a fff7 | | .CONST 0x001a,0xfff7
03ce 001c fff6 | | .CONST 0x001c,0xfff6
03d0 001e fff5 | | .CONST 0x001e,0xfff5
03d2 0020 fff4 | | .CONST 0x0020,0xfff4
03d4 0025 fff3 | % | .CONST 0x0025,0xfff3
03d6 0027 fff2 | ' | .CONST 0x0027,0xfff2
03d8 0029 fff1 | ) | .CONST 0x0029,0xfff1
03da 002b fff0 | + | .CONST 0x002b,0xfff0
03dc 002e ffef | . | .CONST 0x002e,0xffef
03de 0031 ffee | 1 | .CONST 0x0031,0xffee
03e0 0034 ffed | 4 | .CONST 0x0034,0xffed
03e2 0035 ffec | 5 | .CONST 0x0035,0xffec
03e4 0036 ffeb | 6 | .CONST 0x0036,0xffeb
03e6 0037 ffea | 7 | .CONST 0x0037,0xffea
03e8 003e ffe9 | > | .CONST 0x003e,0xffe9
03ea ; --------------------------------------------------------------------------------------
03ea ; Debug3 Subtable 0x1
03ea ; --------------------------------------------------------------------------------------
03ea 001a 0002 | | .DBG3TAB 0x001a,0x0002
03ec 0042 ffff | B | .CONST 0x0042,0xffff
03ee 0043 fffe | C | .CONST 0x0043,0xfffe
03f0 0044 fffd | D | .CONST 0x0044,0xfffd
03f2 0045 fffc | E | .CONST 0x0045,0xfffc
03f4 0046 fffb | F | .CONST 0x0046,0xfffb
03f6 0047 fffa | G | .CONST 0x0047,0xfffa
03f8 0048 fff9 | H | .CONST 0x0048,0xfff9
03fa 0050 fff8 | P | .CONST 0x0050,0xfff8
03fc 0055 fff7 | U | .CONST 0x0055,0xfff7
03fe 0065 fff6 | e | .CONST 0x0065,0xfff6
0400 0067 fff5 | g | .CONST 0x0067,0xfff5
0402 0069 fff4 | i | .CONST 0x0069,0xfff4
0404 006b fff3 | k | .CONST 0x006b,0xfff3
0406 006d fff2 | m | .CONST 0x006d,0xfff2
0408 006f fff1 | o | .CONST 0x006f,0xfff1
040a 0071 fff0 | q | .CONST 0x0071,0xfff0
040c 0073 ffef | s | .CONST 0x0073,0xffef
040e 0075 ffee | u | .CONST 0x0075,0xffee
0410 0077 ffed | w | .CONST 0x0077,0xffed
0412 0079 ffec | y | .CONST 0x0079,0xffec
0414 007b ffeb | { | .CONST 0x007b,0xffeb
0416 007d ffea | } | .CONST 0x007d,0xffea
0418 007f ffe9 | | .CONST 0x007f,0xffe9
041a 0081 ffe8 | | .CONST 0x0081,0xffe8
041c 0083 ffe7 | | .CONST 0x0083,0xffe7
041e 0085 ffe6 | | .CONST 0x0085,0xffe6
0420 0087 0001 | | .CONST 0x0087,0x0001
0422 008b 0002 | | .CONST 0x008b,0x0002
0424 ; --------------------------------------------------------------------------------------
0424 ; Debug3 Subtable 0x2
0424 ; --------------------------------------------------------------------------------------
0424 0000 0001 | | .DBG3TAB 0x0000,0x0001
0426 0093 0001 | | .CONST 0x0093,0x0001
0428 ; --------------------------------------------------------------------------------------
0428 ; Debug3 Subtable 0x3
0428 ; --------------------------------------------------------------------------------------
0428 0000 0001 | | .DBG3TAB 0x0000,0x0001
042a 009b 0001 | | .CONST 0x009b,0x0001
042c ; --------------------------------------------------------------------------------------
042c ; Debug3 Subtable 0x4
042c ; --------------------------------------------------------------------------------------
042c 0000 0001 | | .DBG3TAB 0x0000,0x0001
042e 00a3 0001 | | .CONST 0x00a3,0x0001
0430 ; --------------------------------------------------------------------------------------
0430 ; Debug3 Subtable 0x5
0430 ; --------------------------------------------------------------------------------------
0430 0000 0001 | | .DBG3TAB 0x0000,0x0001
0432 00ab 0001 | | .CONST 0x00ab,0x0001
0434 ; --------------------------------------------------------------------------------------
0434 ; Debug3 Subtable 0x6
0434 ; --------------------------------------------------------------------------------------
0434 0000 0001 | | .DBG3TAB 0x0000,0x0001
0436 00b3 0001 | | .CONST 0x00b3,0x0001
0438 ; --------------------------------------------------------------------------------------
0438 ; Debug3 Subtable 0x7
0438 ; --------------------------------------------------------------------------------------
0438 0001 0005 | | .DBG3TAB 0x0001,0x0005
043a 00bb ffff | | .CONST 0x00bb,0xffff
043c 00c2 0001 | | .CONST 0x00c2,0x0001
043e 00ca 0002 | | .CONST 0x00ca,0x0002
0440 00ce 0003 | | .CONST 0x00ce,0x0003
0442 00d4 0004 | | .CONST 0x00d4,0x0004
0444 00d5 0005 | | .CONST 0x00d5,0x0005
0446 ; --------------------------------------------------------------------------------------
0446 ; Debug3 Subtable 0x8
0446 ; --------------------------------------------------------------------------------------
0446 0000 0001 | | .DBG3TAB 0x0000,0x0001
0448 00db 0001 | | .CONST 0x00db,0x0001
044a ; --------------------------------------------------------------------------------------
044a ; Debug3 Subtable 0x9
044a ; --------------------------------------------------------------------------------------
044a 0000 0001 | | .DBG3TAB 0x0000,0x0001
044c 00f3 0001 | | .CONST 0x00f3,0x0001
044e ; --------------------------------------------------------------------------------------
044e ; Debug3 Subtable 0xa
044e ; --------------------------------------------------------------------------------------
044e 0003 0001 | | .DBG3TAB 0x0003,0x0001
0450 00fb ffff | | .CONST 0x00fb,0xffff
0452 0100 fffe | | .CONST 0x0100,0xfffe
0454 0102 fffd | | .CONST 0x0102,0xfffd
0456 0104 0001 | | .CONST 0x0104,0x0001
0458 ; --------------------------------------------------------------------------------------
0458 ; Debug3 Subtable 0xb
0458 ; --------------------------------------------------------------------------------------
0458 0002 0004 | | .DBG3TAB 0x0002,0x0004
045a 0113 ffff | | .CONST 0x0113,0xffff
045c 0117 fffe | | .CONST 0x0117,0xfffe
045e 0119 0001 | | .CONST 0x0119,0x0001
0460 0125 0004 | % | .CONST 0x0125,0x0004
0462 0127 0002 | ' | .CONST 0x0127,0x0002
0464 012c 0003 | , | .CONST 0x012c,0x0003
0466 ; --------------------------------------------------------------------------------------
0466 ; Debug3 Subtable 0xc
0466 ; --------------------------------------------------------------------------------------
0466 0000 0001 | | .DBG3TAB 0x0000,0x0001
0468 0143 0001 | C | .CONST 0x0143,0x0001
046a ; --------------------------------------------------------------------------------------
046a ; Debug3 Subtable 0xd
046a ; --------------------------------------------------------------------------------------
046a 0000 000e | | .DBG3TAB 0x0000,0x000e
046c 014b 0001 | K | .CONST 0x014b,0x0001
046e 014e 0002 | N | .CONST 0x014e,0x0002
0470 0160 0007 | ` | .CONST 0x0160,0x0007
0472 0164 0003 | d | .CONST 0x0164,0x0003
0474 0167 0004 | g | .CONST 0x0167,0x0004
0476 016a 0005 | j | .CONST 0x016a,0x0005
0478 016d 0006 | m | .CONST 0x016d,0x0006
047a 0170 0008 | p | .CONST 0x0170,0x0008
047c 0184 000e | | .CONST 0x0184,0x000e
047e 0188 0009 | | .CONST 0x0188,0x0009
0480 018b 000a | | .CONST 0x018b,0x000a
0482 018e 000b | | .CONST 0x018e,0x000b
0484 0191 000c | | .CONST 0x0191,0x000c
0486 0194 000d | | .CONST 0x0194,0x000d
0488 ; --------------------------------------------------------------------------------------
0488 ; Debug3 Subtable 0xe
0488 ; --------------------------------------------------------------------------------------
0488 0001 0002 | | .DBG3TAB 0x0001,0x0002
048a 019b ffff | | .CONST 0x019b,0xffff
048c 01a0 0001 | | .CONST 0x01a0,0x0001
048e 01b1 0002 | | .CONST 0x01b1,0x0002
0490 ; --------------------------------------------------------------------------------------
0490 ; Debug3 Subtable 0xf
0490 ; --------------------------------------------------------------------------------------
0490 0000 0000 | | .DBG3TAB 0x0000,0x0000
0492 ; --------------------------------------------------------------------------------------
0492 ; Debug3 Subtable 0x10
0492 ; --------------------------------------------------------------------------------------
0492 0002 0003 | | .DBG3TAB 0x0002,0x0003
0494 01db ffff | | .CONST 0x01db,0xffff
0496 01dd fffe | | .CONST 0x01dd,0xfffe
0498 01de 0001 | | .CONST 0x01de,0x0001
049a 01e6 0002 | | .CONST 0x01e6,0x0002
049c 01ed 0003 | | .CONST 0x01ed,0x0003
049e ; --------------------------------------------------------------------------------------
049e ; Debug3 Subtable 0x11
049e ; --------------------------------------------------------------------------------------
049e 0001 0003 | | .DBG3TAB 0x0001,0x0003
04a0 01f3 ffff | | .CONST 0x01f3,0xffff
04a2 01fb 0001 | | .CONST 0x01fb,0x0001
04a4 0200 0002 | | .CONST 0x0200,0x0002
04a6 0208 0003 | | .CONST 0x0208,0x0003
04a8 ; --------------------------------------------------------------------------------------
04a8 ; Debug3 Subtable 0x12
04a8 ; --------------------------------------------------------------------------------------
04a8 0000 0001 | | .DBG3TAB 0x0000,0x0001
04aa 0213 0001 | | .CONST 0x0213,0x0001
04ac ; --------------------------------------------------------------------------------------
04ac ; Debug3 Subtable 0x13
04ac ; --------------------------------------------------------------------------------------
04ac 0000 0003 | | .DBG3TAB 0x0000,0x0003
04ae 021b 0001 | | .CONST 0x021b,0x0001
04b0 021e 0002 | | .CONST 0x021e,0x0002
04b2 0225 0003 | % | .CONST 0x0225,0x0003
04b4 ; --------------------------------------------------------------------------------------
04b4 ; Debug3 Subtable 0x14
04b4 ; --------------------------------------------------------------------------------------
04b4 0000 0002 | | .DBG3TAB 0x0000,0x0002
04b6 0233 0001 | 3 | .CONST 0x0233,0x0001
04b8 0239 0002 | 9 | .CONST 0x0239,0x0002
04ba ; --------------------------------------------------------------------------------------
04ba ; Debug3 Subtable 0x15
04ba ; --------------------------------------------------------------------------------------
04ba 0000 0003 | | .DBG3TAB 0x0000,0x0003
04bc 0243 0001 | C | .CONST 0x0243,0x0001
04be 0246 0002 | F | .CONST 0x0246,0x0002
04c0 0248 0003 | H | .CONST 0x0248,0x0003
04c2 ; --------------------------------------------------------------------------------------
04c2 ; Debug3 Subtable 0x16
04c2 ; --------------------------------------------------------------------------------------
04c2 0000 0001 | | .DBG3TAB 0x0000,0x0001
04c4 0253 0001 | S | .CONST 0x0253,0x0001
04c6 ; --------------------------------------------------------------------------------------
04c6 ; Debug3 Subtable 0x17
04c6 ; --------------------------------------------------------------------------------------
04c6 0003 0003 | | .DBG3TAB 0x0003,0x0003
04c8 0263 ffff | c | .CONST 0x0263,0xffff
04ca 026b fffe | k | .CONST 0x026b,0xfffe
04cc 0271 fffd | q | .CONST 0x0271,0xfffd
04ce 0278 0001 | x | .CONST 0x0278,0x0001
04d0 027b 0002 | { | .CONST 0x027b,0x0002
04d2 0285 0003 | | .CONST 0x0285,0x0003
04d4 0000 0000 | | .BLANK 0000[0x12c]