|
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, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_1188cd9
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 00f0 | | .CONST 0x00f0 ; 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 0020 | | .CONST 0x0020 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0019 | | .CONST 0x0019 ; Number of locals
000b INIT_0008:
000b 029a 002b | +| Declare_Subprogram INIT_0028,For_Outer_Call,Visible,Unelaborated
000d 029a 0043 | C| Declare_Subprogram INIT_0040,For_Outer_Call,Visible,Unelaborated
000f e001 | | Load 0x0,0x1
0010 0129 | ) | Execute Any,Make_Visible
0011 e002 | | Load 0x0,0x2
0012 0129 | ) | Execute Any,Make_Visible
0013 00ea | | Load_Encached Null_String_Cache
0014 0129 | ) | Execute Any,Make_Visible
0015 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated
0017 00bf | | Action Accept_Activation
0018 00e1 | | Load_Encached Boolean_Cache
0019 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
001a 1d13 | | Execute_Immediate Reference_Lex_1,0x13
001b 00c7 | | Action Elaborate_Subprogram
001c 1d18 | | Execute_Immediate Reference_Lex_1,0x18
001d 00c7 | | Action Elaborate_Subprogram
001e 1d14 | | Execute_Immediate Reference_Lex_1,0x14
001f 00c7 | | Action Elaborate_Subprogram
0020 BODY_0008:
0020 00bc | | Action Signal_Activated
0021 00bb | | Action Signal_Completion
0022 0000 0000 | | .BLANK 0000[0x6]
0028 ; --------------------------------------------------------------------------------------
0028 ; SUBPROGRAM
0028 ; --------------------------------------------------------------------------------------
0028 002b | + | .CONST 0x002b ; Address of begin
0029 0004 | | .CONST 0x0004 ; Address of exception handler
002a 0001 | | .CONST 0x0001 ; Number of locals
002b BODY_0028:
002b INIT_0028:
002b e210 | | Load 0x1,0x10
002c e003 | | Load 0x0,0x3
002d 1810 | | Execute Package,Field_Execute,Field_Number 0x10
002e e003 | | Load 0x0,0x3
002f 180e | | Execute Package,Field_Execute,Field_Number 0xe
0030 4800 |H | Short_Literal 0x0
0031 0092 00bd | | Action Push_String_Extended,0xbd ; "["
0033 e211 | | Load 0x1,0x11
0034 01cc | | Execute Vector,Catenate
0035 0092 00be | | Action Push_String_Extended,0xbe ; " ("
0037 01cc | | Execute Vector,Catenate
0038 e212 | | Load 0x1,0x12
0039 01cc | | Execute Vector,Catenate
003a 0092 00bf | | Action Push_String_Extended,0xbf ; ");]"
003c 01cc | | Execute Vector,Catenate
003d e004 | | Load 0x0,0x4
003e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
003f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0040 ; --------------------------------------------------------------------------------------
0040 ; SUBPROGRAM
0040 ; --------------------------------------------------------------------------------------
0040 0043 | C | .CONST 0x0043 ; Address of begin
0041 0004 | | .CONST 0x0004 ; Address of exception handler
0042 0001 | | .CONST 0x0001 ; Number of locals
0043 BODY_0040:
0043 INIT_0040:
0043 e219 | | Load 0x1,0x19
0044 680d |h | Jump_Zero 0x52
0045 e003 | | Load 0x0,0x3
0046 180e | | Execute Package,Field_Execute,Field_Number 0xe
0047 4800 |H | Short_Literal 0x0
0048 0092 00c0 | | Action Push_String_Extended,0xc0 ; "[end of "
004a e211 | | Load 0x1,0x11
004b 01cc | | Execute Vector,Catenate
004c 0092 00c1 | | Action Push_String_Extended,0xc1 ; " operation--error(s) detected]"
004e 01cc | | Execute Vector,Catenate
004f e004 | | Load 0x0,0x4
0050 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0051 780c |x | Jump 0x5e
0052 e003 | | Load 0x0,0x3
0053 180e | | Execute Package,Field_Execute,Field_Number 0xe
0054 4800 |H | Short_Literal 0x0
0055 0092 00c0 | | Action Push_String_Extended,0xc0 ; "[end of "
0057 e211 | | Load 0x1,0x11
0058 01cc | | Execute Vector,Catenate
0059 0092 00c2 | | Action Push_String_Extended,0xc2 ; " operation--no errors detected]"
005b 01cc | | Execute Vector,Catenate
005c e004 | | Load 0x0,0x4
005d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
005e e20f | | Load 0x1,0xf
005f e003 | | Load 0x0,0x3
0060 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0061 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0062 0000 0000 | | .BLANK 0000[0x6]
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 006f | o | .CONST 0x006f ; Address of begin
0069 0004 | | .CONST 0x0004 ; Address of exception handler
006a 0003 | | .CONST 0x0003 ; Number of locals
006b INIT_0068:
006b 029f 009b | | Declare_Subprogram INIT_0098,For_Call
006d 029f 00ab | | Declare_Subprogram INIT_00a8,For_Call
006f BODY_0068:
006f 4801 |H | Short_Literal 0x1
0070 a219 | | Store_Unchecked 0x1,0x19
0071 e210 | | Load 0x1,0x10
0072 e003 | | Load 0x0,0x3
0073 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0074 4603 |F | Jump_Case 0x4
0075 7803 |x | Jump 0x79 ; case 0x0
0076 7809 |x | Jump 0x80 ; case 0x1
0077 780c |x | Jump 0x84 ; case 0x2
0078 7814 |x | Jump 0x8d ; case 0x3
0079 8402 | | Call 0x2,0x2
007a 8403 | | Call 0x2,0x3
007b e5fc | | Load 0x2,-0x4
007c 6802 |h | Jump_Zero 0x7f
007d e216 | | Load 0x1,0x16
007e 0257 | W | Execute Discrete,Raise
007f 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0080 8402 | | Call 0x2,0x2
0081 8403 | | Call 0x2,0x3
0082 e215 | | Load 0x1,0x15
0083 0257 | W | Execute Discrete,Raise
0084 8402 | | Call 0x2,0x2
0085 e5fd | | Load 0x2,-0x3
0086 6805 |h | Jump_Zero 0x8c
0087 8403 | | Call 0x2,0x3
0088 e5fc | | Load 0x2,-0x4
0089 6802 |h | Jump_Zero 0x8c
008a e216 | | Load 0x1,0x16
008b 0257 | W | Execute Discrete,Raise
008c 4506 |E | Exit_Suprogram New_Top_Offset 0x6
008d 8402 | | Call 0x2,0x2
008e e5fd | | Load 0x2,-0x3
008f 6803 |h | Jump_Zero 0x93
0090 8403 | | Call 0x2,0x3
0091 e215 | | Load 0x1,0x15
0092 0257 | W | Execute Discrete,Raise
0093 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0094 0000 0000 | | .BLANK 0000[0x4]
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 e5ff | | Load 0x2,-0x1
009c e217 | | Load 0x1,0x17
009d 01de | | Execute Vector,Not_Equal
009e 6806 |h | Jump_Zero 0xa5
009f e003 | | Load 0x0,0x3
00a0 180e | | Execute Package,Field_Execute,Field_Number 0xe
00a1 e5fe | | Load 0x2,-0x2
00a2 e5ff | | Load 0x2,-0x1
00a3 e004 | | Load 0x0,0x4
00a4 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00a5 4501 |E | Exit_Suprogram New_Top_Offset 0x1
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 e5fb | | Load 0x2,-0x5
00ac 700c |p | Jump_Nonzero 0xb9
00ad e003 | | Load 0x0,0x3
00ae 180e | | Execute Package,Field_Execute,Field_Number 0xe
00af 4800 |H | Short_Literal 0x0
00b0 0092 00c0 | | Action Push_String_Extended,0xc0 ; "[end of "
00b2 e211 | | Load 0x1,0x11
00b3 01cc | | Execute Vector,Catenate
00b4 0092 00c1 | | Action Push_String_Extended,0xc1 ; " operation--error(s) detected]"
00b6 01cc | | Execute Vector,Catenate
00b7 e004 | | Load 0x0,0x4
00b8 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00b9 e20f | | Load 0x1,0xf
00ba e003 | | Load 0x0,0x3
00bb 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00bc 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00bd ; --------------------------------------------------------------------------------------
00bd ; STRING TABLE
00bd ; --------------------------------------------------------------------------------------
00bd 000e | | .STRTAB 0x000e->0x00c4 ; "["
00be 000d | | .STRTAB 0x000d->0x00c4 ; " ("
00bf 000d | | .STRTAB 0x000d->0x00c5 ; ");]"
00c0 000e | | .STRTAB 0x000e->0x00c7 ; "[end of "
00c1 0014 | | .STRTAB 0x0014->0x00cb ; " operation--error(s) detected]"
00c2 0030 | 0 | .STRTAB 0x0030->0x00da ; " operation--no errors detected]"
00c3 004d | M | .STREND 0x004d->0x00e9
00c4 5b20 2829 |[ ()| .STRTAB_STRINGS
00ea 0000 0000 | | .BLANK 0000[0x6]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; Debug Table
00f0 ; --------------------------------------------------------------------------------------
00f0 0004 000c | | .DEBUG4 0x0004,0x000c,0x70ea,0x0000,0x0001,0x0000
00f6 0000 0000 | | .BLANK 0000[0x10a]