|
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, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0c5cc6
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0078 | x | .CONST 0x0078 ; 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 0055 | U | .CONST 0x0055 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0004 | | .CONST 0x0004 ; Number of locals
000b INIT_0008:
000b 4801 |H | Short_Literal 0x1
000c 4801 |H | Short_Literal 0x1
000d e009 | | Load 0x0,0x9
000e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
000f 035b | [ | Declare_Type Array,Constrained
0010 0337 | 7 | Declare_Variable Array
0011 e20f | | Load 0x1,0xf
0012 0092 0057 | W| Action Push_String_Extended,0x57 ; ".ada\x22,"
0014 e009 | | Load 0x0,0x9
0015 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0016 e009 | | Load 0x0,0x9
0017 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0018 0119 | | Execute Any,Check_In_Formal_Type
0019 4801 |H | Short_Literal 0x1
001a 00da | | Load_Top At_Offset_2
001b 01d6 | | Execute Vector,Field_Write
001c 4801 |H | Short_Literal 0x1
001d 4801 |H | Short_Literal 0x1
001e e009 | | Load 0x0,0x9
001f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0020 035b | [ | Declare_Type Array,Constrained
0021 0337 | 7 | Declare_Variable Array
0022 e20f | | Load 0x1,0xf
0023 0092 0058 | X| Action Push_String_Extended,0x58 ; "warning"
0025 e009 | | Load 0x0,0x9
0026 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0027 e009 | | Load 0x0,0x9
0028 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0029 0119 | | Execute Any,Check_In_Formal_Type
002a 4801 |H | Short_Literal 0x1
002b 00da | | Load_Top At_Offset_2
002c 01d6 | | Execute Vector,Field_Write
002d e009 | | Load 0x0,0x9
002e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
002f 02c7 | | Declare_Variable Any
0030 e20f | | Load 0x1,0xf
0031 4801 |H | Short_Literal 0x1
0032 00db | | Load_Top At_Offset_3
0033 e402 | | Load 0x2,0x2
0034 4801 |H | Short_Literal 0x1
0035 4801 |H | Short_Literal 0x1
0036 00e9 | | Load_Encached String_Cache
0037 035b | [ | Declare_Type Array,Constrained
0038 0337 | 7 | Declare_Variable Array
0039 480d |H | Short_Literal 0xd
003a 4801 |H | Short_Literal 0x1
003b 00da | | Load_Top At_Offset_2
003c 01d6 | | Execute Vector,Field_Write
003d 00ea | | Load_Encached Null_String_Cache
003e 00ea | | Load_Encached Null_String_Cache
003f 0092 0059 | Y| Action Push_String_Extended,0x59 ; "files"
0041 4801 |H | Short_Literal 0x1
0042 4801 |H | Short_Literal 0x1
0043 0092 005a | Z| Action Push_String_Extended,0x5a ; "echo {Status}"
0045 4801 |H | Short_Literal 0x1
0046 00ea | | Load_Encached Null_String_Cache
0047 00ea | | Load_Encached Null_String_Cache
0048 00ea | | Load_Encached Null_String_Cache
0049 00ea | | Load_Encached Null_String_Cache
004a 0092 005b | [| Action Push_String_Extended,0x5b ; "$ "
004c 00ea | | Load_Encached Null_String_Cache
004d 0092 005c | \| Action Push_String_Extended,0x5c ; "Password: "
004f 00ea | | Load_Encached Null_String_Cache
0050 0092 005d | ]| Action Push_String_Extended,0x5d ; "Login: "
0052 e009 | | Load 0x0,0x9
0053 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0054 a404 | | Store_Unchecked 0x2,0x4
0055 BODY_0008:
0055 00d8 | | Load_Top At_Offset_0
0056 00ca | | Action Exit_Nullary_Function
0057 ; --------------------------------------------------------------------------------------
0057 ; STRING TABLE
0057 ; --------------------------------------------------------------------------------------
0057 0010 | | .STRTAB 0x0010->0x005f ; ".ada\x22,"
0058 0014 | | .STRTAB 0x0014->0x0062 ; "warning"
0059 0019 | | .STRTAB 0x0019->0x0065 ; "files"
005a 001c | | .STRTAB 0x001c->0x0068 ; "echo {Status}"
005b 0027 | ' | .STRTAB 0x0027->0x006e ; "$ "
005c 0027 | ' | .STRTAB 0x0027->0x006f ; "Password: "
005d 002f | / | .STRTAB 0x002f->0x0074 ; "Login: "
005e 0034 | 4 | .STREND 0x0034->0x0078
005f 2e61 6461 |.ada| .STRTAB_STRINGS
0078 ; --------------------------------------------------------------------------------------
0078 ; Debug Table
0078 ; --------------------------------------------------------------------------------------
0078 0004 0004 | | .DEBUG4 0x0004,0x0004,0x7177,0x0000,0x0001,0x0001
007e 000b 0082 | | .DBG4T 0x000b,0x0082,0x0002,0x0000
0082 ; --------------------------------------------------------------------------------------
0082 ; Debug chain
0082 ; --------------------------------------------------------------------------------------
0082 0003 0001 | | .DBGLEN 0x0003,0x0001
0084 000b 001c | | .DBGLNO 0x000b,0x001c,0x002d,0x0055
0088 0000 0000 | | .BLANK 0000[0x178]