DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦ce6904046⟧

    Length: 1024 (0x400)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_5850da, seg_6a18da, seg_ccb0b3

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦this⟧ 
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦this⟧ 

Disassembly

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 00b0       |    |		.CONST	0x00b0								; 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 8000       |    |		.CONST	0x8000								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0031       | 1  |		.CONST	0x0031								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0012       |    |		.CONST	0x0012								; Number of locals
000b			INIT_0008:
000b 029a 003b  |   ;|		Declare_Subprogram	INIT_0038,For_Outer_Call,Visible,Unelaborated
000d 029a 0053  |   S|		Declare_Subprogram	INIT_0050,For_Outer_Call,Visible,Unelaborated
000f 029a 006b  |   k|		Declare_Subprogram	INIT_0068,For_Outer_Call,Visible,Unelaborated
0011 00bf       |    |		Action	Accept_Activation
0012 029b 0083  |    |		Declare_Subprogram	INIT_0080,For_Outer_Call,Unelaborated
0014 029b 0093  |    |		Declare_Subprogram	INIT_0090,For_Outer_Call,Unelaborated
0016 e001       |    |		Load	0x0,0x1
0017 e002       |    |		Load	0x0,0x2
0018 0092 009f  |    |		Action	Push_String_Extended,0x9f					; "Session_Cache.Job_Info"
001a e003       |    |		Load	0x0,0x3
001b 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
001c e003       |    |		Load	0x0,0x3
001d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
001e 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
001f 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
0020 4801       |H   |		Short_Literal	0x1
0021 4801       |H   |		Short_Literal	0x1
0022 e004       |    |		Load	0x0,0x4
0023 1b30       | 0  |		Execute	Package,Field_Read,Field_Number 0x30
0024 0387       |    |		Declare_Variable	Package
0025 00d8       |    |		Load_Top	At_Offset_0
0026 020f       |    |		Execute	Module,Activate
0027 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0028 00c7       |    |		Action	Elaborate_Subprogram
0029 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
002a 00c7       |    |		Action	Elaborate_Subprogram
002b 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
002c 00c7       |    |		Action	Elaborate_Subprogram
002d 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
002e 00c7       |    |		Action	Elaborate_Subprogram
002f 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0030 00c7       |    |		Action	Elaborate_Subprogram
0031			BODY_0008:
0031 00bc       |    |		Action	Signal_Activated
0032 00bb       |    |		Action	Signal_Completion
0033 0000 0000  |    |		.BLANK	0000[0x5]
0038 ; --------------------------------------------------------------------------------------
0038 ; SUBPROGRAM
0038 ; --------------------------------------------------------------------------------------
0038 003b       | ;  |		.CONST	0x003b								; Address of begin
0039 0004       |    |		.CONST	0x0004								; Address of exception handler
003a 0001       |    |		.CONST	0x0001								; Number of locals
003b			BODY_0038:
003b			INIT_0038:
003b e5fd       |    |		Load	0x2,-0x3
003c 0120       |    |		Execute	Any,Is_Value
003d 6803       |h   |		Jump_Zero	0x41
003e e005       |    |		Load	0x0,0x5
003f 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0040 7801       |x   |		Jump	0x42
0041 e5fd       |    |		Load	0x2,-0x3
0042 e006       |    |		Load	0x0,0x6
0043 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0044 e007       |    |		Load	0x0,0x7
0045 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0046 e212       |    |		Load	0x1,0x12
0047 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0048 e5ff       |    |		Load	0x2,-0x1
0049 e003       |    |		Load	0x0,0x3
004a 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
004b c5fe       |    |		Store	0x2,-0x2
004c c5fd       |    |		Store	0x2,-0x3
004d 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
004e 0000 0000  |    |		.XXX[0x2]
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 0053       | S  |		.CONST	0x0053								; Address of begin
0051 0004       |    |		.CONST	0x0004								; Address of exception handler
0052 0001       |    |		.CONST	0x0001								; Number of locals
0053			BODY_0050:
0053			INIT_0050:
0053 e5fd       |    |		Load	0x2,-0x3
0054 0120       |    |		Execute	Any,Is_Value
0055 6803       |h   |		Jump_Zero	0x59
0056 e005       |    |		Load	0x0,0x5
0057 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0058 7801       |x   |		Jump	0x5a
0059 e5fd       |    |		Load	0x2,-0x3
005a e5fe       |    |		Load	0x2,-0x2
005b e5ff       |    |		Load	0x2,-0x1
005c e007       |    |		Load	0x0,0x7
005d 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
005e e212       |    |		Load	0x1,0x12
005f 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0060 e003       |    |		Load	0x0,0x3
0061 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0062 c5fe       |    |		Store	0x2,-0x2
0063 c5fd       |    |		Store	0x2,-0x3
0064 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0065 0000 0000  |    |		.XXX[0x3]
0067 0000       |    |
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 006b       | k  |		.CONST	0x006b								; Address of begin
0069 0004       |    |		.CONST	0x0004								; Address of exception handler
006a 0001       |    |		.CONST	0x0001								; Number of locals
006b			BODY_0068:
006b			INIT_0068:
006b 00db       |    |		Load_Top	At_Offset_3
006c 0120       |    |		Execute	Any,Is_Value
006d 6803       |h   |		Jump_Zero	0x71
006e e005       |    |		Load	0x0,0x5
006f 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0070 7801       |x   |		Jump	0x72
0071 00db       |    |		Load_Top	At_Offset_3
0072 00db       |    |		Load_Top	At_Offset_3
0073 e007       |    |		Load	0x0,0x7
0074 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0075 e212       |    |		Load	0x1,0x12
0076 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0077 e003       |    |		Load	0x0,0x3
0078 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0079 c5ff       |    |		Store	0x2,-0x1
007a c5fe       |    |		Store	0x2,-0x2
007b 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
007c 0000 0000  |    |		.BLANK	0000[0x4]
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0083       |    |		.CONST	0x0083								; Address of begin
0081 0004       |    |		.CONST	0x0004								; Address of exception handler
0082 0001       |    |		.CONST	0x0001								; Number of locals
0083			BODY_0080:
0083			INIT_0080:
0083 e003       |    |		Load	0x0,0x3
0084 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0085 00db       |    |		Load_Top	At_Offset_3
0086 e003       |    |		Load	0x0,0x3
0087 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0088 c5fe       |    |		Store	0x2,-0x2
0089 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
008a 0000 0000  |    |		.BLANK	0000[0x6]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0093       |    |		.CONST	0x0093								; Address of begin
0091 009a       |    |		.CONST	0x009a								; Address of exception handler
0092 0001       |    |		.CONST	0x0001								; Number of locals
0093			BODY_0090:
0093			INIT_0090:
0093 00db       |    |		Load_Top	At_Offset_3
0094 e003       |    |		Load	0x0,0x3
0095 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0096 e003       |    |		Load	0x0,0x3
0097 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0098 a5fe       |    |		Store_Unchecked	0x2,-0x2
0099 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
009a			TRAP_0090:
009a 0007       |    |		Action	Break_Optional
009b e003       |    |		Load	0x0,0x3
009c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
009d a5fe       |    |		Store_Unchecked	0x2,-0x2
009e 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
009f ; --------------------------------------------------------------------------------------
009f ; STRING TABLE
009f ; --------------------------------------------------------------------------------------
009f 0004       |    |		.STRTAB	0x0004->0x00a1							; "Session_Cache.Job_Info"
00a0 0018       |    |		.STREND 0x0018->0x00ac
00a1 5365 7373  |Sess|		.STRTAB_STRINGS
00ac 0000 0000  |    |		.BLANK	0000[0x4]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; Debug Table
00b0 ; --------------------------------------------------------------------------------------
00b0 0004 000e  |    |		.DEBUG4	0x0004,0x000e,0xf454,0x0000,0x0001,0x0000
00b6 0000 0000  |    |		.BLANK	0000[0x14a]