|
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_191cd7
└─⟦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 0000 | | .CONST 0x0000 ; 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 000f | | .CONST 0x000f ; Number of locals
000b INIT_0008:
000b 4808 |H | Short_Literal 0x8
000c 4800 |H | Short_Literal 0x0
000d 4802 |H | Short_Literal 0x2
000e 029f 002b | +| Declare_Subprogram INIT_0028,For_Call
0010 03fb | | Declare_Type Discrete,Defined,Visible,With_Size
0011 0007 | | Action Break_Optional
0012 4808 |H | Short_Literal 0x8
0013 4800 |H | Short_Literal 0x0
0014 4802 |H | Short_Literal 0x2
0015 029f 0053 | S| Declare_Subprogram INIT_0050,For_Call
0017 03fb | | Declare_Type Discrete,Defined,Visible,With_Size
0018 0007 | | Action Break_Optional
0019 4808 |H | Short_Literal 0x8
001a 4800 |H | Short_Literal 0x0
001b 4801 |H | Short_Literal 0x1
001c 029f 007b | {| Declare_Subprogram INIT_0078,For_Call
001e 03fb | | Declare_Type Discrete,Defined,Visible,With_Size
001f 00bf | | Action Accept_Activation
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 4607 |F | Jump_Case 0x8
002c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
002d 7807 |x | Jump 0x35 ; case 0x1
002e 780a |x | Jump 0x39 ; case 0x2
002f 780e |x | Jump 0x3e ; case 0x3
0030 7811 |x | Jump 0x42 ; case 0x4
0031 7812 |x | Jump 0x44 ; case 0x5
0032 7813 |x | Jump 0x46 ; case 0x6
0033 7816 |x | Jump 0x4a ; case 0x7
0034 4302 |C | .XXX[0x1]
0035 00da | | Load_Top At_Offset_2
0036 0091 009e | | Action Push_String_Extended_Indexed,0x9e ; "DONT_PREFER_BLANKING"
0038 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0039 00db | | Load_Top At_Offset_3
003a 00db | | Load_Top At_Offset_3
003b 00e0 | | Load_Encached Standard_Cache
003c 181b | | Execute Package,Field_Execute,Field_Number 0x1b
003d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
003e 00da | | Load_Top At_Offset_2
003f 00e0 | | Load_Encached Standard_Cache
0040 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0041 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0042 00db | | Load_Top At_Offset_3
0043 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0044 00db | | Load_Top At_Offset_3
0045 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0046 e20d | | Load 0x1,0xd
0047 00dc | | Load_Top At_Offset_4
0048 0267 | g | Execute Discrete,Predecessor
0049 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
004a e20d | | Load 0x1,0xd
004b 00dc | | Load_Top At_Offset_4
004c 0268 | h | Execute Discrete,Successor
004d 4202 |B | Exit_Subprogram From_Utility,With_Result,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 4607 |F | Jump_Case 0x8
0054 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0055 7807 |x | Jump 0x5d ; case 0x1
0056 780a |x | Jump 0x61 ; case 0x2
0057 780e |x | Jump 0x66 ; case 0x3
0058 7811 |x | Jump 0x6a ; case 0x4
0059 7812 |x | Jump 0x6c ; case 0x5
005a 7813 |x | Jump 0x6e ; case 0x6
005b 7816 |x | Jump 0x72 ; case 0x7
005c 4302 |C | .XXX[0x1]
005d 00da | | Load_Top At_Offset_2
005e 0091 00a1 | | Action Push_String_Extended_Indexed,0xa1 ; "DONT_ALLOW_EXPOSURES"
0060 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0061 00db | | Load_Top At_Offset_3
0062 00db | | Load_Top At_Offset_3
0063 00e0 | | Load_Encached Standard_Cache
0064 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0065 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0066 00da | | Load_Top At_Offset_2
0067 00e0 | | Load_Encached Standard_Cache
0068 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0069 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
006a 00db | | Load_Top At_Offset_3
006b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
006c 00db | | Load_Top At_Offset_3
006d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
006e e20e | | Load 0x1,0xe
006f 00dc | | Load_Top At_Offset_4
0070 0267 | g | Execute Discrete,Predecessor
0071 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0072 e20e | | Load 0x1,0xe
0073 00dc | | Load_Top At_Offset_4
0074 0268 | h | Execute Discrete,Successor
0075 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0076 0000 0000 | | .XXX[0x2]
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 007b | { | .CONST 0x007b ; Address of begin
0079 0004 | | .CONST 0x0004 ; Address of exception handler
007a 0001 | | .CONST 0x0001 ; Number of locals
007b BODY_0078:
007b INIT_0078:
007b 4607 |F | Jump_Case 0x8
007c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
007d 7807 |x | Jump 0x85 ; case 0x1
007e 780a |x | Jump 0x89 ; case 0x2
007f 780e |x | Jump 0x8e ; case 0x3
0080 7811 |x | Jump 0x92 ; case 0x4
0081 7812 |x | Jump 0x94 ; case 0x5
0082 7813 |x | Jump 0x96 ; case 0x6
0083 7816 |x | Jump 0x9a ; case 0x7
0084 4302 |C | .XXX[0x1]
0085 00da | | Load_Top At_Offset_2
0086 0091 00a4 | | Action Push_String_Extended_Indexed,0xa4 ; "SCREEN_SAVER_RESET"
0088 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0089 00db | | Load_Top At_Offset_3
008a 00db | | Load_Top At_Offset_3
008b 00e0 | | Load_Encached Standard_Cache
008c 181b | | Execute Package,Field_Execute,Field_Number 0x1b
008d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
008e 00da | | Load_Top At_Offset_2
008f 00e0 | | Load_Encached Standard_Cache
0090 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0091 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0092 00db | | Load_Top At_Offset_3
0093 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0094 00db | | Load_Top At_Offset_3
0095 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0096 e20f | | Load 0x1,0xf
0097 00dc | | Load_Top At_Offset_4
0098 0267 | g | Execute Discrete,Predecessor
0099 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
009a e20f | | Load 0x1,0xf
009b 00dc | | Load_Top At_Offset_4
009c 0268 | h | Execute Discrete,Successor
009d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
009e ; --------------------------------------------------------------------------------------
009e ; STRING TABLE
009e ; --------------------------------------------------------------------------------------
009e 0012 | | .STRTAB 0x0012->0x00a7 ; "DONT_PREFER_BLANKING"
009f 0024 | $ | .STRTAB 0x0024->0x00b1 ; "PREFER_BLANKING"
00a0 0031 | 1 | .STRTAB 0x0031->0x00b8 ; "DEFAULT_BLANKING"
00a1 003f | ? | .STRTAB 0x003f->0x00c0 ; "DONT_ALLOW_EXPOSURES"
00a2 0051 | Q | .STRTAB 0x0051->0x00ca ; "ALLOW_EXPOSURES"
00a3 005e | ^ | .STRTAB 0x005e->0x00d2 ; "DEFAULT_EXPOSURES"
00a4 006d | m | .STRTAB 0x006d->0x00da ; "SCREEN_SAVER_RESET"
00a5 007d | } | .STRTAB 0x007d->0x00e3 ; "SCREEN_SAVER_ACTIVE"
00a6 008e | | .STREND 0x008e->0x00ed
00a7 444f 4e54 |DONT| .STRTAB_STRINGS
00ed 0000 0000 | | .XXX[0x3]
00ef 0000 | |
00f0 ; --------------------------------------------------------------------------------------
00f0 ; Debug Table
00f0 ; --------------------------------------------------------------------------------------
00f0 0004 0000 | | .DEBUG4 0x0004,0x0000,0x48e2,0x0000,0x0001,0x0004
00f6 000b 0106 | | .DBG4T 0x000b,0x0106,0x8000,0x0000
00fa 002b 0000 | + | .DBG4T 0x002b,0x0000,0x0005,0x0000
00fe 0053 0000 | S | .DBG4T 0x0053,0x0000,0x0005,0x0000
0102 007b 0000 | { | .DBG4T 0x007b,0x0000,0x0005,0x0000
0106 ; --------------------------------------------------------------------------------------
0106 ; Debug chain
0106 ; --------------------------------------------------------------------------------------
0106 0005 0000 | | .DBGLEN 0x0005,0x0000
0108 000b 0011 | | .DBGLNO 0x000b,0x0011,0x0012,0x0018,0x0019
010d 0000 0000 | | .BLANK 0000[0xf3]