|
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: 1024 (0x400)
Notes: 00_class, 5813_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_07b4f8
└─⟦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 0148 | H | .CONST 0x0148 ; 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 0000 | | .CONST 0x0000 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 001e | | .CONST 0x001e ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0010 | | .CONST 0x0010 ; Number of locals
000b INIT_0008:
000b 029a 0023 | #| Declare_Subprogram INIT_0020,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0 = .DEBUG 0x000b,0x017a,0x8000,0x0000,0x004d,0xccc5,0x0000,0x0007
; Debug Table 0x0.0x0 = 0xb,0xffff
000d 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x1 = 0xd,0xfffe
000f 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x2 = 0xf,0xfffd
0011 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0x11,0xfffc
0013 0007 | | Action Break_Optional ; Debug Table 0x0.0x4 = 0x13,0xfffb
0014 0007 | | Action Break_Optional ; Debug Table 0x0.0x5 = 0x14,0xfffa
0015 00bf | | Action Accept_Activation ; Debug Table 0x0.0x6 = 0x15,0xfff9
0016 1d0d | | Execute_Immediate Reference_Lex_1,0xd ; Debug Table 0x1 = .DEBUG 0x0016,0x018a,0x8000,0x0000,0x004d,0xccd5,0x0000,0x000b
; Debug Table 0x1.0x0 = 0x16,0xffff
0017 00c7 | | Action Elaborate_Subprogram
0018 1d0e | | Execute_Immediate Reference_Lex_1,0xe ; Debug Table 0x1.0x1 = 0x18,0xfffe
0019 00c7 | | Action Elaborate_Subprogram
001a 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1.0x2 = 0x1a,0xfffd
001b 00c7 | | Action Elaborate_Subprogram
001c 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x1.0x3 = 0x1c,0xfffc
001d 00c7 | | Action Elaborate_Subprogram
001e BODY_0008:
001e 00bc | | Action Signal_Activated
001f 00bb | | Action Signal_Completion
0020 ; --------------------------------------------------------------------------------------
0020 ; SUBPROGRAM
0020 ; --------------------------------------------------------------------------------------
0020 0023 | # | .CONST 0x0023 ; Address of begin
0021 0004 | | .CONST 0x0004 ; Address of exception handler
0022 0001 | | .CONST 0x0001 ; Number of locals
0023 BODY_0020:
0023 INIT_0020:
0023 4801 |H | Short_Literal 0x1 ; Debug Table 0x2 = .DEBUG 0x0023,0x0194,0x0002,0x0000,0x004d,0xccc5,0x0000,0x0008
; Debug Table 0x2.0x0 = 0x23,0x1
0024 00db | | Load_Top At_Offset_3
0025 e001 | | Load 0x0,0x1
0026 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
0027 682b |h+ | Jump_Zero 0x53
0028 480a |H | Short_Literal 0xa ; Debug Table 0x2.0x1 = 0x28,0x2
0029 480a |H | Short_Literal 0xa
002a 480a |H | Short_Literal 0xa
002b 0092 00dc | | Action Push_String_Extended,0xdc ; "Gateway_Class => "
002d 4801 |H | Short_Literal 0x1
002e e5ff | | Load 0x2,-0x1
002f e001 | | Load 0x0,0x1
0030 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0031 01cc | | Execute Vector,Catenate
0032 01cb | | Execute Vector,Append
0033 0092 00dd | | Action Push_String_Extended,0xdd ; "Action_Id => "
0035 01cc | | Execute Vector,Catenate
0036 e5ff | | Load 0x2,-0x1
0037 e001 | | Load 0x0,0x1
0038 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0039 e002 | | Load 0x0,0x2
003a 1820 | | Execute Package,Field_Execute,Field_Number 0x20
003b 00e0 | | Load_Encached Standard_Cache
003c 1818 | | Execute Package,Field_Execute,Field_Number 0x18
003d 01cc | | Execute Vector,Catenate
003e 01cb | | Execute Vector,Append
003f 0092 00de | | Action Push_String_Extended,0xde ; "Object => "
0041 01cc | | Execute Vector,Catenate
0042 4801 |H | Short_Literal 0x1
0043 e5ff | | Load 0x2,-0x1
0044 e001 | | Load 0x0,0x1
0045 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0046 01cc | | Execute Vector,Catenate
0047 01cb | | Execute Vector,Append
0048 0092 00df | | Action Push_String_Extended,0xdf ; "Update => "
004a 01cc | | Execute Vector,Catenate
004b 00db | | Load_Top At_Offset_3
004c e001 | | Load 0x0,0x1
004d 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
004e 00e1 | | Load_Encached Boolean_Cache
004f 025e | ^ | Execute Discrete,Convert
0050 1c01 | | Execute_Immediate Run_Utility,0x1
0051 01cc | | Execute Vector,Catenate
0052 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0053 0092 00e0 | | Action Push_String_Extended,0xe0 ; "Handle with no object open"
; Debug Table 0x2.0x2 = 0x53,0x3
0055 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0056 0000 0000 | | .XXX[0x2]
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 005b | [ | .CONST 0x005b ; Address of begin
0059 0004 | | .CONST 0x0004 ; Address of exception handler
005a 0001 | | .CONST 0x0001 ; Number of locals
005b BODY_0058:
005b INIT_0058:
005b 480a |H | Short_Literal 0xa ; Debug Table 0x3 = .DEBUG 0x005b,0x019c,0x0002,0x0000,0x004d,0xccc5,0x0000,0x001f
; Debug Table 0x3.0x0 = 0x5b,0x1
005c 480a |H | Short_Literal 0xa
005d 480a |H | Short_Literal 0xa
005e 0092 00e1 | | Action Push_String_Extended,0xe1 ; "Name => "
0060 e5ff | | Load 0x2,-0x1
0061 e003 | | Load 0x0,0x3
0062 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0063 01cc | | Execute Vector,Catenate
0064 01cb | | Execute Vector,Append
0065 0092 00e2 | | Action Push_String_Extended,0xe2 ; "Read_Only => "
0067 01cc | | Execute Vector,Catenate
0068 e5ff | | Load 0x2,-0x1
0069 e003 | | Load 0x0,0x3
006a 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
006b 00e1 | | Load_Encached Boolean_Cache
006c 025e | ^ | Execute Discrete,Convert
006d 1c01 | | Execute_Immediate Run_Utility,0x1
006e 01cc | | Execute Vector,Catenate
006f 01cb | | Execute Vector,Append
0070 0092 00e3 | | Action Push_String_Extended,0xe3 ; "First_Header_Line => "
0072 01cc | | Execute Vector,Catenate
0073 4801 |H | Short_Literal 0x1
0074 e5ff | | Load 0x2,-0x1
0075 e003 | | Load 0x0,0x3
0076 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
0077 01cc | | Execute Vector,Catenate
0078 01cb | | Execute Vector,Append
0079 0092 00e4 | | Action Push_String_Extended,0xe4 ; "First_Line => "
007b 01cc | | Execute Vector,Catenate
007c 4801 |H | Short_Literal 0x1
007d e5ff | | Load 0x2,-0x1
007e e003 | | Load 0x0,0x3
007f 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0080 01cc | | Execute Vector,Catenate
0081 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0082 0000 0000 | | .BLANK 0000[0x6]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 008d | | .CONST 0x008d ; Address of begin
0089 0004 | | .CONST 0x0004 ; Address of exception handler
008a 0003 | | .CONST 0x0003 ; Number of locals
008b INIT_0088:
008b 00e2 | | Load_Encached Integer_Cache ; Debug Table 0x4 = .DEBUG 0x008b,0x01a0,0x0002,0x0000,0x004d,0xccc5,0x0000,0x0036
; Debug Table 0x4.0x0 = 0x8b,0xffff
008c 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x4.0x1 = 0x8c,0xfffe
008d BODY_0088:
008d e5ff | | Load 0x2,-0x1 ; Debug Table 0x4.0x2 = 0x8d,0x1
008e e003 | | Load 0x0,0x3
008f 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0090 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0091 e5ff | | Load 0x2,-0x1 ; Debug Table 0x4.0x3 = 0x91,0x2
0092 e003 | | Load 0x0,0x3
0093 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0094 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0095 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x4.0x4 = 0x95,0x3
0096 0d00 | | Execute_Immediate Less,0x0
0097 6811 |h | Jump_Zero 0xa9
0098 480a |H | Short_Literal 0xa ; Debug Table 0x4.0x5 = 0x98,0x4
0099 0092 00e5 | | Action Push_String_Extended,0xe5 ; "Header Line => "
009b 00db | | Load_Top At_Offset_3
009c 0275 | u | Execute Discrete,Unary_Minus
009d 00e0 | | Load_Encached Standard_Cache
009e 1818 | | Execute Package,Field_Execute,Field_Number 0x18
009f 01cc | | Execute Vector,Catenate
00a0 01cb | | Execute Vector,Append
00a1 0092 00e6 | | Action Push_String_Extended,0xe6 ; "Column => "
00a3 01cc | | Execute Vector,Catenate
00a4 00d9 | | Load_Top At_Offset_1
00a5 00e0 | | Load_Encached Standard_Cache
00a6 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00a7 01cc | | Execute Vector,Catenate
00a8 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
00a9 480a |H | Short_Literal 0xa ; Debug Table 0x4.0x6 = 0xa9,0x5
00aa 0092 00e7 | | Action Push_String_Extended,0xe7 ; "Line => "
00ac 00db | | Load_Top At_Offset_3
00ad 00e0 | | Load_Encached Standard_Cache
00ae 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00af 01cc | | Execute Vector,Catenate
00b0 01cb | | Execute Vector,Append
00b1 0092 00e6 | | Action Push_String_Extended,0xe6 ; "Column => "
00b3 01cc | | Execute Vector,Catenate
00b4 00d9 | | Load_Top At_Offset_1
00b5 00e0 | | Load_Encached Standard_Cache
00b6 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00b7 01cc | | Execute Vector,Catenate
00b8 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
00b9 0000 0000 | | .BLANK 0000[0x7]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c3 | | .CONST 0x00c3 ; Address of begin
00c1 0004 | | .CONST 0x0004 ; Address of exception handler
00c2 0001 | | .CONST 0x0001 ; Number of locals
00c3 BODY_00c0:
00c3 INIT_00c0:
00c3 0092 00e8 | | Action Push_String_Extended,0xe8 ; "("
; Debug Table 0x5 = .DEBUG 0x00c3,0x01b0,0x0002,0x0000,0x004d,0xccc5,0x0000,0x004d
; Debug Table 0x5.0x0 = 0xc3,0x1
00c5 e5fc | | Load 0x2,-0x4
00c6 e5fd | | Load 0x2,-0x3
00c7 e5fe | | Load 0x2,-0x2
00c8 e5ff | | Load 0x2,-0x1
00c9 e003 | | Load 0x0,0x3
00ca 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
00cb 820f | | Call 0x1,0xf
00cc 01cc | | Execute Vector,Catenate
00cd 0092 00e9 | | Action Push_String_Extended,0xe9 ; ") .. ("
00cf 01cc | | Execute Vector,Catenate
00d0 e5fc | | Load 0x2,-0x4
00d1 e5fd | | Load 0x2,-0x3
00d2 e5fe | | Load 0x2,-0x2
00d3 e5ff | | Load 0x2,-0x1
00d4 e003 | | Load 0x0,0x3
00d5 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
00d6 820f | | Call 0x1,0xf
00d7 01cc | | Execute Vector,Catenate
00d8 0092 00ea | | Action Push_String_Extended,0xea ; ")"
00da 01cc | | Execute Vector,Catenate
00db 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
00dc ; --------------------------------------------------------------------------------------
00dc ; STRING TABLE
00dc ; --------------------------------------------------------------------------------------
00dc 0020 | | .STRTAB 0x0020->0x00ec ; "Gateway_Class => "
00dd 002f | / | .STRTAB 0x002f->0x00f4 ; "Action_Id => "
00de 003a | : | .STRTAB 0x003a->0x00fb ; "Object => "
00df 0042 | B | .STRTAB 0x0042->0x0100 ; "Update => "
00e0 004a | J | .STRTAB 0x004a->0x0105 ; "Handle with no object open"
00e1 0062 | b | .STRTAB 0x0062->0x0112 ; "Name => "
00e2 0068 | h | .STRTAB 0x0068->0x0116 ; "Read_Only => "
00e3 0073 | s | .STRTAB 0x0073->0x011c ; "First_Header_Line => "
00e4 0086 | | .STRTAB 0x0086->0x0127 ; "First_Line => "
00e5 0092 | | .STRTAB 0x0092->0x012e ; "Header Line => "
00e6 009f | | .STRTAB 0x009f->0x0135 ; "Column => "
00e7 00a7 | | .STRTAB 0x00a7->0x013a ; "Line => "
00e8 00ad | | .STRTAB 0x00ad->0x013e ; "("
00e9 00ac | | .STRTAB 0x00ac->0x013f ; ") .. ("
00ea 00b0 | | .STRTAB 0x00b0->0x0142 ; ")"
00eb 00af | | .STREND 0x00af->0x0142
00ec 4761 7465 |Gate| .STRTAB_STRINGS
0143 0000 0000 | | .BLANK 0000[0x5]
0148 ; --------------------------------------------------------------------------------------
0148 ; Debug Table
0148 ; --------------------------------------------------------------------------------------
0148 0003 0006 | | .CONST 0x0003,0x0006
014a 000b 017a | z| .DEBUG 0x000b,0x017a,0x8000,0x0000,0x004d,0xccc5,0x0000,0x0007
0152 0016 018a | | .DEBUG 0x0016,0x018a,0x8000,0x0000,0x004d,0xccd5,0x0000,0x000b
015a 0023 0194 | # | .DEBUG 0x0023,0x0194,0x0002,0x0000,0x004d,0xccc5,0x0000,0x0008
0162 005b 019c | [ | .DEBUG 0x005b,0x019c,0x0002,0x0000,0x004d,0xccc5,0x0000,0x001f
016a 008b 01a0 | | .DEBUG 0x008b,0x01a0,0x0002,0x0000,0x004d,0xccc5,0x0000,0x0036
0172 00c3 01b0 | | .DEBUG 0x00c3,0x01b0,0x0002,0x0000,0x004d,0xccc5,0x0000,0x004d
017a ; --------------------------------------------------------------------------------------
017a ; Debug3 Subtable 0x0
017a ; --------------------------------------------------------------------------------------
017a 0007 0000 | | .DBG3TAB 0x0007,0x0000
017c 000b ffff | | .CONST 0x000b,0xffff
017e 000d fffe | | .CONST 0x000d,0xfffe
0180 000f fffd | | .CONST 0x000f,0xfffd
0182 0011 fffc | | .CONST 0x0011,0xfffc
0184 0013 fffb | | .CONST 0x0013,0xfffb
0186 0014 fffa | | .CONST 0x0014,0xfffa
0188 0015 fff9 | | .CONST 0x0015,0xfff9
018a ; --------------------------------------------------------------------------------------
018a ; Debug3 Subtable 0x1
018a ; --------------------------------------------------------------------------------------
018a 0004 0000 | | .DBG3TAB 0x0004,0x0000
018c 0016 ffff | | .CONST 0x0016,0xffff
018e 0018 fffe | | .CONST 0x0018,0xfffe
0190 001a fffd | | .CONST 0x001a,0xfffd
0192 001c fffc | | .CONST 0x001c,0xfffc
0194 ; --------------------------------------------------------------------------------------
0194 ; Debug3 Subtable 0x2
0194 ; --------------------------------------------------------------------------------------
0194 0000 0003 | | .DBG3TAB 0x0000,0x0003
0196 0023 0001 | # | .CONST 0x0023,0x0001
0198 0028 0002 | ( | .CONST 0x0028,0x0002
019a 0053 0003 | S | .CONST 0x0053,0x0003
019c ; --------------------------------------------------------------------------------------
019c ; Debug3 Subtable 0x3
019c ; --------------------------------------------------------------------------------------
019c 0000 0001 | | .DBG3TAB 0x0000,0x0001
019e 005b 0001 | [ | .CONST 0x005b,0x0001
01a0 ; --------------------------------------------------------------------------------------
01a0 ; Debug3 Subtable 0x4
01a0 ; --------------------------------------------------------------------------------------
01a0 0002 0005 | | .DBG3TAB 0x0002,0x0005
01a2 008b ffff | | .CONST 0x008b,0xffff
01a4 008c fffe | | .CONST 0x008c,0xfffe
01a6 008d 0001 | | .CONST 0x008d,0x0001
01a8 0091 0002 | | .CONST 0x0091,0x0002
01aa 0095 0003 | | .CONST 0x0095,0x0003
01ac 0098 0004 | | .CONST 0x0098,0x0004
01ae 00a9 0005 | | .CONST 0x00a9,0x0005
01b0 ; --------------------------------------------------------------------------------------
01b0 ; Debug3 Subtable 0x5
01b0 ; --------------------------------------------------------------------------------------
01b0 0000 0001 | | .DBG3TAB 0x0000,0x0001
01b2 00c3 0001 | | .CONST 0x00c3,0x0001
01b4 0000 0000 | | .BLANK 0000[0x4c]