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

⟦3bc7c91e9⟧

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

Derivation

└─⟦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 0100       |    |		.CONST	0x0100								; 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 0010       |    |		.CONST	0x0010								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0001       |    |		.CONST	0x0001								; Number of locals
000b			INIT_0008:
000b 029a 001b  |    |		Declare_Subprogram	INIT_0018,For_Outer_Call,Visible,Unelaborated
000d 00bf       |    |		Action	Accept_Activation
000e 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
000f 00c7       |    |		Action	Elaborate_Subprogram
0010			BODY_0008:
0010 00bc       |    |		Action	Signal_Activated
0011 00bb       |    |		Action	Signal_Completion
0012 0000 0000  |    |		.BLANK	0000[0x6]
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 0047       | G  |		.CONST	0x0047								; Address of begin
0019 0004       |    |		.CONST	0x0004								; Address of exception handler
001a 0006       |    |		.CONST	0x0006								; Number of locals
001b			INIT_0018:
001b e002       |    |		Load	0x0,0x2
001c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
001d 02c7       |    |		Declare_Variable	Any
001e 6085       |`   |		Indirect_Literal	Discrete,0xa4,{0x00000004, 0x9d400000}
001f e002       |    |		Load	0x0,0x2
0020 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0021 e002       |    |		Load	0x0,0x2
0022 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0023 0092 00a8  |    |		Action	Push_String_Extended,0xa8					; "<MINUS_7_DAYS>"
0025 e5fe       |    |		Load	0x2,-0x2
0026 8003       |    |		Call	0x0,0x3
0027 8004       |    |		Call	0x0,0x4
0028 a402       |    |		Store_Unchecked	0x2,0x2
0029 e002       |    |		Load	0x0,0x2
002a 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
002b 02c7       |    |		Declare_Variable	Any
002c e002       |    |		Load	0x0,0x2
002d 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
002e 0092 00a9  |    |		Action	Push_String_Extended,0xa9					; "<TODAY>"
0030 e5fd       |    |		Load	0x2,-0x3
0031 8003       |    |		Call	0x0,0x3
0032 8004       |    |		Call	0x0,0x4
0033 a403       |    |		Store_Unchecked	0x2,0x3
0034 e005       |    |		Load	0x0,0x5
0035 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0036 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
0037 02c7       |    |		Declare_Variable	Any
0038 4801       |H   |		Short_Literal	0x1
0039 e005       |    |		Load	0x0,0x5
003a 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
003b 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
003c e5fc       |    |		Load	0x2,-0x4
003d 0092 00aa  |    |		Action	Push_String_Extended,0xaa					; ".Log_@_At_@"
003f 01cc       |    |		Execute	Vector,Catenate
0040 e005       |    |		Load	0x0,0x5
0041 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0042 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
0043 a404       |    |		Store_Unchecked	0x2,0x4
0044 00e1       |    |		Load_Encached	Boolean_Cache
0045 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0046 00e5       |    |		Load_Encached	Long_Integer_Cache
0047			BODY_0018:
0047 00cf       |    |		Action	Mark_Auxiliary
0048 7853       |xS  |		Jump	0x9c
0049 e404       |    |		Load	0x2,0x4
004a e005       |    |		Load	0x0,0x5
004b 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
004c 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
004d e005       |    |		Load	0x0,0x5
004e 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
004f 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0050 e402       |    |		Load	0x2,0x2
0051 e002       |    |		Load	0x0,0x2
0052 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0053 6842       |hB  |		Jump_Zero	0x96
0054 e404       |    |		Load	0x2,0x4
0055 e005       |    |		Load	0x0,0x5
0056 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0057 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0058 e005       |    |		Load	0x0,0x5
0059 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
005a 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
005b e403       |    |		Load	0x2,0x3
005c e002       |    |		Load	0x0,0x2
005d 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
005e 6837       |h7  |		Jump_Zero	0x96
005f e404       |    |		Load	0x2,0x4
0060 e005       |    |		Load	0x0,0x5
0061 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0062 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0063 e005       |    |		Load	0x0,0x5
0064 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0065 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0066 09fd       |    |		Execute_Immediate	Binary_Scale,-0x3
0067 0a01       |    |		Execute_Immediate	Plus,0x1
0068 a406       |    |		Store_Unchecked	0x2,0x6
0069 e5ff       |    |		Load	0x2,-0x1
006a e406       |    |		Load	0x2,0x6
006b 027c       | |  |		Execute	Discrete,Less
006c 6829       |h)  |		Jump_Zero	0x96
006d e405       |    |		Load	0x2,0x5
006e 7014       |p   |		Jump_Nonzero	0x83
006f 4802       |H   |		Short_Literal	0x2
0070 e006       |    |		Load	0x0,0x6
0071 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
0072 0092 00ab  |    |		Action	Push_String_Extended,0xab					; "Warning - Abnormally Large Error Logs :"
0074 e006       |    |		Load	0x0,0x6
0075 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0076 4801       |H   |		Short_Literal	0x1
0077 e006       |    |		Load	0x0,0x6
0078 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
0079 0092 00ac  |    |		Action	Push_String_Extended,0xac					; "            Name                 Size"
007b e006       |    |		Load	0x0,0x6
007c 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
007d 0092 00ad  |    |		Action	Push_String_Extended,0xad					; "    ========================    ======"
007f e006       |    |		Load	0x0,0x6
0080 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0081 4801       |H   |		Short_Literal	0x1
0082 a405       |    |		Store_Unchecked	0x2,0x5
0083 0092 00ae  |    |		Action	Push_String_Extended,0xae					; "    "
0085 e404       |    |		Load	0x2,0x4
0086 e005       |    |		Load	0x0,0x5
0087 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0088 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0089 e005       |    |		Load	0x0,0x5
008a 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
008b 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
008c 01cc       |    |		Execute	Vector,Catenate
008d 4820       |H   |		Short_Literal	0x20
008e 480a       |H   |		Short_Literal	0xa
008f 480a       |H   |		Short_Literal	0xa
0090 e406       |    |		Load	0x2,0x6
0091 e007       |    |		Load	0x0,0x7
0092 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0093 01cc       |    |		Execute	Vector,Catenate
0094 e006       |    |		Load	0x0,0x6
0095 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0096 e404       |    |		Load	0x2,0x4
0097 e005       |    |		Load	0x0,0x5
0098 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0099 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
009a c404       |    |		Store	0x2,0x4
009b 00c9       |    |		Action	Pop_Auxiliary_Loop
009c e404       |    |		Load	0x2,0x4
009d e005       |    |		Load	0x0,0x5
009e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
009f 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
00a0 6fa8       |o   |		Jump_Zero	0x49
00a1 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
00a2 0000 0000  |    |		.XXX[0x2]
00a4 0000 0004  |    |		.LITERAL	{0x00000004, 0x9d400000}
00a8 ; --------------------------------------------------------------------------------------
00a8 ; STRING TABLE
00a8 ; --------------------------------------------------------------------------------------
00a8 0010       |    |		.STRTAB	0x0010->0x00b0							; "<MINUS_7_DAYS>"
00a9 001c       |    |		.STRTAB	0x001c->0x00b7							; "<TODAY>"
00aa 0021       | !  |		.STRTAB	0x0021->0x00ba							; ".Log_@_At_@"
00ab 002a       | *  |		.STRTAB	0x002a->0x00c0							; "Warning - Abnormally Large Error Logs :"
00ac 004f       | O  |		.STRTAB	0x004f->0x00d3							; "            Name                 Size"
00ad 0072       | r  |		.STRTAB	0x0072->0x00e6							; "    ========================    ======"
00ae 0096       |    |		.STRTAB	0x0096->0x00f9							; "    "
00af 0098       |    |		.STREND 0x0098->0x00fb
00b0 3c4d 494e  |<MIN|		.STRTAB_STRINGS
00fb 0000 0000  |    |		.BLANK	0000[0x5]
0100 ; --------------------------------------------------------------------------------------
0100 ; Debug Table
0100 ; --------------------------------------------------------------------------------------
0100 0004 0011  |    |		.DEBUG4	0x0004,0x0011,0x2388,0x0000,0x0001,0x0000
0106 5b1b 0000  |[   |		.XXX[0xfa]
0108 0004 0000  |    |
010a 0005 dd18  |    |
010c 589b 1957  |X  W|
010e d99b dc9b  |    |
0110 585d 1d19  |X]  |
0112 5c8b 9cdd  |\   |
0114 589a 5d19  |X ] |
0116 5b40 0000  |[@  |
0118 0080 0000  |    |
011a 0480 0000  |    |
011c 0f10 aa37  |   7|
011e b7b6 3997  |  9 |
0120 2a30 b136  |*0 6|
0122 32af a337  |2  7|
0124 b936 b0ba  | 6  |
0126 3a32 b917  |:2  |
0128 29ba b134  |)  4|
012a ba32 b680  | 2  |
012c 0000 1680  |    |
012e 0000 13ba  |    |
0130 32b9 36b4  |2 6 |
0132 b730 b617  | 0  |
0134 39b2 ba2f  |9  /|
0136 b234 b9b1  | 4  |
0138 b7b7 3732  |  72|
013a b1ba 2fb7  |  / |
013c b72f b330  | / 0|
013e b4b6 32b2  |  2 |
0140 2fb6 37b3  |/ 7 |
0142 b4b7 0000  |    |
0144 0001 0000  |    |
0146 0023 0000  | #  |
0148 0031 2143  | 1!C|
014a 6f6d 6d61  |omma|
014c 6e64 732e  |nds.|
014e 5465 726d  |Term|
0150 696e 616c  |inal|
0152 2e53 6574  |.Set|
0154 5f44 6973  |_Dis|
0156 636f 6e6e  |conn|
0158 6563 745f  |ect_|
015a 4f6e 5f46  |On_F|
015c 6169 6c65  |aile|
015e 645f 4c6f  |d_Lo|
0160 6769 6e00  |gin |
0162 0000 1600  |    |
0164 0000 0b74  |   t|
0166 6170 652e  |ape.|
0168 756e 6c6f  |unlo|
016a 6164 0000  |ad  |
016c 0002 0000  |    |
016e 0018 0000  |    |
0170 002a 4286  | *B |
0172 deda dac2  |    |
0174 dcc8 e65c  |   \|
0176 a8c2 e0ca  |    |
0178 5caa dcd8  |\   |
017a dec2 c800  |    |
017c 0000 ce00  |    |
017e 0000 36e8  |  6 |
0180 cae4 dad2  |    |
0182 dcc2 d85c  |   \|
0184 e6ca e8be  |    |
0186 d8de ced2  |    |
0188 dcbe c8d2  |    |
018a e6c2 c4d8  |    |
018c cac8 0000  |    |
018e 0004 0000  |    |
0190 0174 0000  | t  |
0192 0094 850d  |    |
0194 bdb5 b585  |    |
0196 b991 ccb9  |    |
0198 5195 c9b5  |Q   |
019a a5b9 85b0  |    |
019c b94d 95d1  | M  |
019e 7d31 bd9d  |}1  |
01a0 a5b9 7d11  |  } |
01a2 a5cd 8589  |    |
01a4 b195 9000  |    |
01a6 0001 ac00  |    |
01a8 0001 1dd1  |    |
01aa bdbd b1cc  |    |
01ac b991 95cd  |    |
01ae a59d b8b9  |    |
01b0 c995 b195  |    |
01b2 85cd 94b9  |    |
01b4 c985 d1a5  |    |
01b6 bdb9 85b1  |    |
01b8 7cc8 c4d8  ||   |
01ba dcb9 c191  |    |
01bc b17d 8dbd  | }  |
01be b5b5 85b9  |    |
01c0 91cc b9c9  |    |
01c2 95d9 b8b9  |    |
01c4 d5b9 a5d1  |    |
01c6 ccb9 9195  |    |
01c8 cda5 9db8  |    |
01ca b989 d5a5  |    |
01cc b190 0000  |    |
01ce 0008 0000  |    |
01d0 0350 0000  | P  |
01d2 0241 0aa3  | A  |
01d4 7b7b 6399  |{{c |
01d6 7223 2b9b  |r#+ |
01d8 4b3b 7172  |K;qr|
01da 932b 632b  | +c+|
01dc 0b9b 2972  |  )r|
01de 930b a34b  |   K|
01e0 7b73 0b62  |{s b|
01e2 f991 89b1  |    |
01e4 b972 8323  | r #|
01e6 62fa 1b7b  |b  {|
01e8 6b6b 0b73  |kk s|
01ea 2399 7293  |# r |
01ec 2bb3 7172  |+ qr|
01ee ab73 4ba3  | sK |
01f0 9972 232b  | r#+|
01f2 9b4b 3b71  | K;q|
01f4 7213 ab4b  |r  K|
01f6 6320 0000  |c   |
01f8 0068 0000  | h  |
01fa 0063 a32b  | c +|
01fc c3a2 fb4b  |   K|
01fe 7973 730b  |yss |