|
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: 4096 (0x1000)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_1884fe
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦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 05d0 | | .CONST 0x05d0 ; 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 0003 | | .CONST 0x0003 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 003b | ; | .CONST 0x003b ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0016 | | .CONST 0x0016 ; Number of locals 000b INIT_0008: 000b 029a 0043 | C| Declare_Subprogram INIT_0040,For_Outer_Call,Visible,Unelaborated 000d 00bf | | Action Accept_Activation 000e e001 | | Load 0x0,0x1 000f 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0010 0092 01d5 | | Action Push_String_Extended,0x1d5 ; "_Help" 0012 01cc | | Execute Vector,Catenate 0013 0007 | | Action Break_Optional 0014 4820 |H | Short_Literal 0x20 0015 e001 | | Load 0x0,0x1 0016 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0017 01cb | | Execute Vector,Append 0018 e001 | | Load 0x0,0x1 0019 1b12 | | Execute Package,Field_Read,Field_Number 0x12 001a 01cc | | Execute Vector,Catenate 001b 0092 01d6 | | Action Push_String_Extended,0x1d6 ; " / Spreadsheet " 001d 01cc | | Execute Vector,Catenate 001e e001 | | Load 0x0,0x1 001f 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0020 01cc | | Execute Vector,Catenate 0021 0007 | | Action Break_Optional 0022 4800 |H | Short_Literal 0x0 0023 4801 |H | Short_Literal 0x1 0024 029f 0103 | | Declare_Subprogram INIT_0100,For_Call 0026 03fd | | Declare_Type Discrete,Defined 0027 00d8 | | Load_Top At_Offset_0 0028 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0029 e002 | | Load 0x0,0x2 002a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 002b 02c7 | | Declare_Variable Any 002c 00d8 | | Load_Top At_Offset_0 002d 1c00 | | Execute_Immediate Run_Utility,0x0 002e e002 | | Load 0x0,0x2 002f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0030 02c7 | | Declare_Variable Any 0031 00d8 | | Load_Top At_Offset_0 0032 1c00 | | Execute_Immediate Run_Utility,0x0 0033 029d 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call 0035 029d 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call 0037 029d 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call 0039 1d0d | | Execute_Immediate Reference_Lex_1,0xd 003a 00c7 | | Action Elaborate_Subprogram 003b BODY_0008: 003b 00bc | | Action Signal_Activated 003c 00bb | | Action Signal_Completion 003d 0000 0000 | | .XXX[0x3] 003f 0000 | | 0040 ; -------------------------------------------------------------------------------------- 0040 ; SUBPROGRAM 0040 ; -------------------------------------------------------------------------------------- 0040 0049 | I | .CONST 0x0049 ; Address of begin 0041 0004 | | .CONST 0x0004 ; Address of exception handler 0042 0003 | | .CONST 0x0003 ; Number of locals 0043 INIT_0040: 0043 4801 |H | Short_Literal 0x1 0044 480a |H | Short_Literal 0xa 0045 00e9 | | Load_Encached String_Cache 0046 035b | [ | Declare_Type Array,Constrained 0047 0337 | 7 | Declare_Variable Array 0048 00e2 | | Load_Encached Integer_Cache 0049 BODY_0040: 0049 e211 | | Load 0x1,0x11 004a 7008 |p | Jump_Nonzero 0x53 004b e212 | | Load 0x1,0x12 004c 00ea | | Load_Encached Null_String_Cache 004d e20e | | Load 0x1,0xe 004e 4801 |H | Short_Literal 0x1 004f e002 | | Load 0x0,0x2 0050 180f | | Execute Package,Field_Execute,Field_Number 0xf 0051 c212 | | Store 0x1,0x12 0052 7807 |x | Jump 0x5a 0053 e212 | | Load 0x1,0x12 0054 00ea | | Load_Encached Null_String_Cache 0055 e20e | | Load 0x1,0xe 0056 4801 |H | Short_Literal 0x1 0057 e002 | | Load 0x0,0x2 0058 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0059 c212 | | Store 0x1,0x12 005a 4800 |H | Short_Literal 0x0 005b 4801 |H | Short_Literal 0x1 005c 4801 |H | Short_Literal 0x1 005d e212 | | Load 0x1,0x12 005e e002 | | Load 0x0,0x2 005f 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0060 4802 |H | Short_Literal 0x2 0061 e002 | | Load 0x0,0x2 0062 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0063 0092 01d7 | | Action Push_String_Extended,0x1d7 ; "Help for " 0065 e20f | | Load 0x1,0xf 0066 01cc | | Execute Vector,Catenate 0067 e212 | | Load 0x1,0x12 0068 e002 | | Load 0x0,0x2 0069 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 006a 4800 |H | Short_Literal 0x0 006b 4801 |H | Short_Literal 0x1 006c 4803 |H | Short_Literal 0x3 006d e212 | | Load 0x1,0x12 006e e002 | | Load 0x0,0x2 006f 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0070 e211 | | Load 0x1,0x11 0071 7001 |p | Jump_Nonzero 0x73 0072 8216 | | Call 0x1,0x16 0073 00cf | | Action Mark_Auxiliary 0074 0092 01d8 | | Action Push_String_Extended,0x1d8 ; "To return to application, press [enter]" 0076 8214 | | Call 0x1,0x14 0077 0092 01d9 | | Action Push_String_Extended,0x1d9 ; "For basic spreadsheet functions help, press [Help] again." 0079 8214 | | Call 0x1,0x14 007a 0092 01da | | Action Push_String_Extended,0x1da ; "Any other key to disconnect." 007c 8214 | | Call 0x1,0x14 007d e003 | | Load 0x0,0x3 007e 180f | | Execute Package,Field_Execute,Field_Number 0xf 007f 461f |F | Jump_Case 0x20 0080 781f |x | Jump 0xa0 ; case 0x0 0081 781e |x | Jump 0xa0 ; case 0x1 0082 781d |x | Jump 0xa0 ; case 0x2 0083 781c |x | Jump 0xa0 ; case 0x3 0084 781b |x | Jump 0xa0 ; case 0x4 0085 781a |x | Jump 0xa0 ; case 0x5 0086 7819 |x | Jump 0xa0 ; case 0x6 0087 7818 |x | Jump 0xa0 ; case 0x7 0088 7817 |x | Jump 0xa0 ; case 0x8 0089 7845 |xE | Jump 0xcf ; case 0x9 008a 7815 |x | Jump 0xa0 ; case 0xa 008b 7814 |x | Jump 0xa0 ; case 0xb 008c 7813 |x | Jump 0xa0 ; case 0xc 008d 7812 |x | Jump 0xa0 ; case 0xd 008e 7811 |x | Jump 0xa0 ; case 0xe 008f 7810 |x | Jump 0xa0 ; case 0xf 0090 780f |x | Jump 0xa0 ; case 0x10 0091 780e |x | Jump 0xa0 ; case 0x11 0092 780d |x | Jump 0xa0 ; case 0x12 0093 780c |x | Jump 0xa0 ; case 0x13 0094 7851 |xQ | Jump 0xe6 ; case 0x14 0095 780a |x | Jump 0xa0 ; case 0x15 0096 7809 |x | Jump 0xa0 ; case 0x16 0097 7808 |x | Jump 0xa0 ; case 0x17 0098 7807 |x | Jump 0xa0 ; case 0x18 0099 7806 |x | Jump 0xa0 ; case 0x19 009a 7805 |x | Jump 0xa0 ; case 0x1a 009b 7804 |x | Jump 0xa0 ; case 0x1b 009c 783e |x> | Jump 0xdb ; case 0x1c 009d 7802 |x | Jump 0xa0 ; case 0x1d 009e 7801 |x | Jump 0xa0 ; case 0x1e 009f 7800 |x | Jump 0xa0 ; case 0x1f 00a0 4800 |H | Short_Literal 0x0 00a1 4800 |H | Short_Literal 0x0 00a2 4ffd |O | Short_Literal -0x3 00a3 e212 | | Load 0x1,0x12 00a4 e002 | | Load 0x0,0x2 00a5 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 00a6 4803 |H | Short_Literal 0x3 00a7 e212 | | Load 0x1,0x12 00a8 e002 | | Load 0x0,0x2 00a9 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 00aa e213 | | Load 0x1,0x13 00ab 00ea | | Load_Encached Null_String_Cache 00ac e212 | | Load 0x1,0x12 00ad e002 | | Load 0x0,0x2 00ae 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00af 4800 |H | Short_Literal 0x0 00b0 e002 | | Load 0x0,0x2 00b1 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00b2 c213 | | Store 0x1,0x13 00b3 4800 |H | Short_Literal 0x0 00b4 4801 |H | Short_Literal 0x1 00b5 e212 | | Load 0x1,0x12 00b6 e002 | | Load 0x0,0x2 00b7 183c | < | Execute Package,Field_Execute,Field_Number 0x3c 00b8 0a01 | | Execute_Immediate Plus,0x1 00b9 00d8 | | Load_Top At_Offset_0 00ba 00e4 | | Load_Encached Positive_Cache 00bb 0260 | ` | Execute Discrete,In_Type 00bc 7001 |p | Jump_Nonzero 0xbe 00bd 0801 | | Execute_Immediate Raise,0x1 00be e213 | | Load 0x1,0x13 00bf e002 | | Load 0x0,0x2 00c0 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 00c1 00e3 | | Load_Encached Natural_Cache 00c2 00db | | Load_Top At_Offset_3 00c3 0092 01db | | Action Push_String_Extended,0x1db ; "To reconnect to application, put cursor here and press [ENTER]" 00c5 e213 | | Load 0x1,0x13 00c6 e002 | | Load 0x0,0x2 00c7 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 00c8 00d1 | | Pop_Control Pop_Count_1 00c9 005a | Z | Store_Top Discrete,At_Offset_2 00ca e213 | | Load 0x1,0x13 00cb e002 | | Load 0x0,0x2 00cc 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00cd c213 | | Store 0x1,0x13 00ce 7821 |x! | Jump 0xf0 00cf 4800 |H | Short_Literal 0x0 00d0 4800 |H | Short_Literal 0x0 00d1 4ffd |O | Short_Literal -0x3 00d2 e212 | | Load 0x1,0x12 00d3 e002 | | Load 0x0,0x2 00d4 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 00d5 4803 |H | Short_Literal 0x3 00d6 e212 | | Load 0x1,0x12 00d7 e002 | | Load 0x0,0x2 00d8 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 00d9 8215 | | Call 0x1,0x15 00da 7813 |x | Jump 0xee 00db 4800 |H | Short_Literal 0x0 00dc 4800 |H | Short_Literal 0x0 00dd 4ffd |O | Short_Literal -0x3 00de e212 | | Load 0x1,0x12 00df e002 | | Load 0x0,0x2 00e0 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 00e1 4803 |H | Short_Literal 0x3 00e2 e212 | | Load 0x1,0x12 00e3 e002 | | Load 0x0,0x2 00e4 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 00e5 780a |x | Jump 0xf0 00e6 e212 | | Load 0x1,0x12 00e7 e002 | | Load 0x0,0x2 00e8 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00e9 c212 | | Store 0x1,0x12 00ea 4800 |H | Short_Literal 0x0 00eb e004 | | Load 0x0,0x4 00ec 180f | | Execute Package,Field_Execute,Field_Number 0xf 00ed 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00ee 00c9 | | Action Pop_Auxiliary_Loop 00ef 7f84 | | Jump 0x74 00f0 00ce | | Action Pop_Auxiliary 00f1 4801 |H | Short_Literal 0x1 00f2 a211 | | Store_Unchecked 0x1,0x11 00f3 e212 | | Load 0x1,0x12 00f4 e002 | | Load 0x0,0x2 00f5 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00f6 c212 | | Store 0x1,0x12 00f7 4800 |H | Short_Literal 0x0 00f8 e004 | | Load 0x0,0x4 00f9 180f | | Execute Package,Field_Execute,Field_Number 0xf 00fa 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00fb 0000 0000 | | .BLANK 0000[0x5] 0100 ; -------------------------------------------------------------------------------------- 0100 ; SUBPROGRAM 0100 ; -------------------------------------------------------------------------------------- 0100 0103 | | .CONST 0x0103 ; Address of begin 0101 0004 | | .CONST 0x0004 ; Address of exception handler 0102 0001 | | .CONST 0x0001 ; Number of locals 0103 BODY_0100: 0103 INIT_0100: 0103 4607 |F | Jump_Case 0x8 0104 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0105 7806 |x | Jump 0x10c ; case 0x1 0106 7809 |x | Jump 0x110 ; case 0x2 0107 780d |x | Jump 0x115 ; case 0x3 0108 7810 |x | Jump 0x119 ; case 0x4 0109 7811 |x | Jump 0x11b ; case 0x5 010a 7812 |x | Jump 0x11d ; case 0x6 010b 7815 |x | Jump 0x121 ; case 0x7 010c 00da | | Load_Top At_Offset_2 010d 0091 01d3 | | Action Push_String_Extended_Indexed,0x1d3 ; "OFF" 010f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0110 00db | | Load_Top At_Offset_3 0111 00db | | Load_Top At_Offset_3 0112 00e0 | | Load_Encached Standard_Cache 0113 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0114 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0115 00da | | Load_Top At_Offset_2 0116 00e0 | | Load_Encached Standard_Cache 0117 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0118 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0119 00db | | Load_Top At_Offset_3 011a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 011b 00db | | Load_Top At_Offset_3 011c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 011d e210 | | Load 0x1,0x10 011e 00dc | | Load_Top At_Offset_4 011f 0267 | g | Execute Discrete,Predecessor 0120 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0121 e210 | | Load 0x1,0x10 0122 00dc | | Load_Top At_Offset_4 0123 0268 | h | Execute Discrete,Successor 0124 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0125 0000 0000 | | .XXX[0x3] 0127 0000 | | 0128 ; -------------------------------------------------------------------------------------- 0128 ; SUBPROGRAM 0128 ; -------------------------------------------------------------------------------------- 0128 012b | + | .CONST 0x012b ; Address of begin 0129 0004 | | .CONST 0x0004 ; Address of exception handler 012a 0001 | | .CONST 0x0001 ; Number of locals 012b BODY_0128: 012b INIT_0128: 012b 4802 |H | Short_Literal 0x2 012c e002 | | Load 0x0,0x2 012d 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 012e e5ff | | Load 0x2,-0x1 012f e212 | | Load 0x1,0x12 0130 e002 | | Load 0x0,0x2 0131 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0132 4801 |H | Short_Literal 0x1 0133 e212 | | Load 0x1,0x12 0134 e002 | | Load 0x0,0x2 0135 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0136 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0137 0000 | | .XXX[0x1] 0138 ; -------------------------------------------------------------------------------------- 0138 ; SUBPROGRAM 0138 ; -------------------------------------------------------------------------------------- 0138 013b | ; | .CONST 0x013b ; Address of begin 0139 0004 | | .CONST 0x0004 ; Address of exception handler 013a 0001 | | .CONST 0x0001 ; Number of locals 013b BODY_0138: 013b INIT_0138: 013b 0092 01dc | | Action Push_String_Extended,0x1dc ; "Basic function: Facit terminal VT100 Rational" 013d 8214 | | Call 0x1,0x14 013e 0092 01dd | | Action Push_String_Extended,0x1dd ; "-----------------------------------------------------------------" 0140 8214 | | Call 0x1,0x14 0141 0092 01de | | Action Push_String_Extended,0x1de ; "Help ** F5 [Help/Help] PF1 F11" 0143 8214 | | Call 0x1,0x14 0144 0092 01df | | Action Push_String_Extended,0x1df ; "Definition * F4 [Definition] pad 8 F10" 0146 8214 | | Call 0x1,0x14 0147 0092 01e0 | | Action Push_String_Extended,0x1e0 ; "Show * F9 [Other Part] pad 6 F17" 0149 8214 | | Call 0x1,0x14 014a 0092 01e1 | | Action Push_String_Extended,0x1e1 ; "Format X6 [Format] pad - Format" 014c 8214 | | Call 0x1,0x14 014d 0092 01e2 | | Action Push_String_Extended,0x1e2 ; "Compute * X4 [Promote] enter Promot" 014f 8214 | | Call 0x1,0x14 0150 0092 01e3 | | Action Push_String_Extended,0x1e3 ; "Save ** F6 [Install] pad 2 F13" 0152 8214 | | Call 0x1,0x14 0153 0092 01e4 | | Action Push_String_Extended,0x1e4 ; "Load * F10 [Semanticize] pad 3 F16" 0155 8214 | | Call 0x1,0x14 0156 0092 01e5 | | Action Push_String_Extended,0x1e5 ; "Time F12 [What Time] PF4 F20" 0158 8214 | | Call 0x1,0x14 0159 0092 01e6 | | Action Push_String_Extended,0x1e6 ; "Command * F8 [Create Comm.] pad . F15" 015b 8214 | | Call 0x1,0x14 015c 0092 01e7 | | Action Push_String_Extended,0x1e7 ; "Window X3 [Window] PF2 window" 015e 8214 | | Call 0x1,0x14 015f 0092 01e8 | | Action Push_String_Extended,0x1e8 ; "Print (future) F11 [Print] PF3 CM_F11" 0161 8214 | | Call 0x1,0x14 0162 0092 01e9 | | Action Push_String_Extended,0x1e9 ; " " 0164 8214 | | Call 0x1,0x14 0165 0092 01ea | | Action Push_String_Extended,0x1ea ; "* indicates that function is application dependent" 0167 8214 | | Call 0x1,0x14 0168 0092 01eb | | Action Push_String_Extended,0x1eb ; "** indicates that function is patially application dependent" 016a 8214 | | Call 0x1,0x14 016b 00ea | | Load_Encached Null_String_Cache 016c 8214 | | Call 0x1,0x14 016d 0092 01ec | | Action Push_String_Extended,0x1ec ; "Up, Down Up, Down <-idem <-idem" 016f 8214 | | Call 0x1,0x14 0170 0092 01ed | | Action Push_String_Extended,0x1ed ; "Left, Right Left,Right" 0172 8214 | | Call 0x1,0x14 0173 0092 01e9 | | Action Push_String_Extended,0x1e9 ; " " 0175 8214 | | Call 0x1,0x14 0176 0092 01ee | | Action Push_String_Extended,0x1ee ; "Begin_Of [Back_Tab] pad 7 Begin_of" 0178 8214 | | Call 0x1,0x14 0179 0092 01ef | | Action Push_String_Extended,0x1ef ; "End_Of C_I [Tab] pad 9 End_Of" 017b 8214 | | Call 0x1,0x14 017c 0092 01f0 | | Action Push_String_Extended,0x1f0 ; "Home X5 [Complete] pad 5 complet" 017e 8214 | | Call 0x1,0x14 017f 0092 01f1 | | Action Push_String_Extended,0x1f1 ; "Bottom C_ Line_Feed C_ ????" 0181 8214 | | Call 0x1,0x14 0182 0092 01f2 | | Action Push_String_Extended,0x1f2 ; " " 0184 8214 | | Call 0x1,0x14 0185 0092 01f3 | | Action Push_String_Extended,0x1f3 ; "Del Del Del" 0187 8214 | | Call 0x1,0x14 0188 0092 01f4 | | Action Push_String_Extended,0x1f4 ; "Erase C_D C_D C_D" 018a 8214 | | Call 0x1,0x14 018b 0092 01f5 | | Action Push_String_Extended,0x1f5 ; " " 018d 8214 | | Call 0x1,0x14 018e 0092 01f6 | | Action Push_String_Extended,0x1f6 ; "Reset C_H [Backspace] pad 4 C_H" 0190 8214 | | Call 0x1,0x14 0191 0092 01f7 | | Action Push_String_Extended,0x1f7 ; "Quit Esc-Enter Esc-G Esc-Enter" 0193 8214 | | Call 0x1,0x14 0194 0092 01f8 | | Action Push_String_Extended,0x1f8 ; "Disconnect C_G C_G C_G" 0196 8214 | | Call 0x1,0x14 0197 0092 01f9 | | Action Push_String_Extended,0x1f9 ; "Reconnect esc-F11 ???? ????" 0199 8214 | | Call 0x1,0x14 019a 00ea | | Load_Encached Null_String_Cache 019b 8214 | | Call 0x1,0x14 019c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 019d 0000 0000 | | .XXX[0x3] 019f 0000 | | 01a0 ; -------------------------------------------------------------------------------------- 01a0 ; SUBPROGRAM 01a0 ; -------------------------------------------------------------------------------------- 01a0 01a9 | | .CONST 0x01a9 ; Address of begin 01a1 0004 | | .CONST 0x0004 ; Address of exception handler 01a2 0004 | | .CONST 0x0004 ; Number of locals 01a3 INIT_01a0: 01a3 8005 | | Call 0x0,0x5 01a4 00d8 | | Load_Top At_Offset_0 01a5 01dd | | Execute Vector,First 01a6 00e2 | | Load_Encached Integer_Cache 01a7 03f1 | | Declare_Variable Discrete,With_Value 01a8 03e9 | | Declare_Variable Discrete,Duplicate 01a9 BODY_01a0: 01a9 00cf | | Action Mark_Auxiliary 01aa 7822 |x" | Jump 0x1cd 01ab 00da | | Load_Top At_Offset_2 01ac 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 01ad 00cf | | Action Mark_Auxiliary 01ae 7804 |x | Jump 0x1b3 01af 00da | | Load_Top At_Offset_2 01b0 0a01 | | Execute_Immediate Plus,0x1 01b1 005b | [ | Store_Top Discrete,At_Offset_3 01b2 00c9 | | Action Pop_Auxiliary_Loop 01b3 00da | | Load_Top At_Offset_2 01b4 e402 | | Load 0x2,0x2 01b5 01dc | | Execute Vector,Last 01b6 027a | z | Execute Discrete,Less_Equal 01b7 6805 |h | Jump_Zero 0x1bd 01b8 00da | | Load_Top At_Offset_2 01b9 e402 | | Load 0x2,0x2 01ba 01d7 | | Execute Vector,Field_Read 01bb 0e0a | | Execute_Immediate Not_Equal,0xa 01bc 77f2 |w | Jump_Nonzero 0x1af 01bd 00ce | | Action Pop_Auxiliary 01be 00da | | Load_Top At_Offset_2 01bf 00da | | Load_Top At_Offset_2 01c0 0aff | | Execute_Immediate Plus,-0x1 01c1 00d8 | | Load_Top At_Offset_0 01c2 00e2 | | Load_Encached Integer_Cache 01c3 0260 | ` | Execute Discrete,In_Type 01c4 7001 |p | Jump_Nonzero 0x1c6 01c5 0801 | | Execute_Immediate Raise,0x1 01c6 e402 | | Load 0x2,0x2 01c7 01cf | | Execute Vector,Slice_Read 01c8 8214 | | Call 0x1,0x14 01c9 00d9 | | Load_Top At_Offset_1 01ca 0a01 | | Execute_Immediate Plus,0x1 01cb 005b | [ | Store_Top Discrete,At_Offset_3 01cc 00c9 | | Action Pop_Auxiliary_Loop 01cd 00da | | Load_Top At_Offset_2 01ce e402 | | Load 0x2,0x2 01cf 01dc | | Execute Vector,Last 01d0 027a | z | Execute Discrete,Less_Equal 01d1 77d9 |w | Jump_Nonzero 0x1ab 01d2 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01d3 ; -------------------------------------------------------------------------------------- 01d3 ; STRING TABLE 01d3 ; -------------------------------------------------------------------------------------- 01d3 0050 | P | .STRTAB 0x0050->0x01fb ; "OFF" 01d4 0051 | Q | .STRTAB 0x0051->0x01fc ; "ON" 01d5 0051 | Q | .STRTAB 0x0051->0x01fd ; "_Help" 01d6 0054 | T | .STRTAB 0x0054->0x0200 ; " / Spreadsheet " 01d7 0061 | a | .STRTAB 0x0061->0x0207 ; "Help for " 01d8 0068 | h | .STRTAB 0x0068->0x020c ; "To return to application, press [enter]" 01d9 008d | | .STRTAB 0x008d->0x021f ; "For basic spreadsheet functions help, press [Help] again." 01da 00c4 | | .STRTAB 0x00c4->0x023c ; "Any other key to disconnect." 01db 00de | | .STRTAB 0x00de->0x024a ; "To reconnect to application, put cursor here and press [ENTER]" 01dc 011a | | .STRTAB 0x011a->0x0269 ; "Basic function: Facit terminal VT100 Rational" 01dd 0158 | X | .STRTAB 0x0158->0x0289 ; "-----------------------------------------------------------------" 01de 0197 | | .STRTAB 0x0197->0x02a9 ; "Help ** F5 [Help/Help] PF1 F11" 01df 01d0 | | .STRTAB 0x01d0->0x02c7 ; "Definition * F4 [Definition] pad 8 F10" 01e0 0209 | | .STRTAB 0x0209->0x02e4 ; "Show * F9 [Other Part] pad 6 F17" 01e1 0242 | B | .STRTAB 0x0242->0x0302 ; "Format X6 [Format] pad - Format" 01e2 027e | ~ | .STRTAB 0x027e->0x0321 ; "Compute * X4 [Promote] enter Promot" 01e3 02ba | | .STRTAB 0x02ba->0x0340 ; "Save ** F6 [Install] pad 2 F13" 01e4 02f3 | | .STRTAB 0x02f3->0x035d ; "Load * F10 [Semanticize] pad 3 F16" 01e5 032c | , | .STRTAB 0x032c->0x037b ; "Time F12 [What Time] PF4 F20" 01e6 0365 | e | .STRTAB 0x0365->0x0398 ; "Command * F8 [Create Comm.] pad . F15" 01e7 039e | | .STRTAB 0x039e->0x03b6 ; "Window X3 [Window] PF2 window" 01e8 03da | | .STRTAB 0x03da->0x03d5 ; "Print (future) F11 [Print] PF3 CM_F11" 01e9 0416 | | .STRTAB 0x0416->0x03f4 ; " " 01ea 044c | L | .STRTAB 0x044c->0x0410 ; "* indicates that function is application dependent" 01eb 047d | } | .STRTAB 0x047d->0x0429 ; "** indicates that function is patially application dependent" 01ec 04b7 | | .STRTAB 0x04b7->0x0447 ; "Up, Down Up, Down <-idem <-idem" 01ed 04f3 | | .STRTAB 0x04f3->0x0466 ; "Left, Right Left,Right" 01ee 0516 | | .STRTAB 0x0516->0x0479 ; "Begin_Of [Back_Tab] pad 7 Begin_of" 01ef 0554 | T | .STRTAB 0x0554->0x0499 ; "End_Of C_I [Tab] pad 9 End_Of" 01f0 0590 | | .STRTAB 0x0590->0x04b8 ; "Home X5 [Complete] pad 5 complet" 01f1 05cd | | .STRTAB 0x05cd->0x04d7 ; "Bottom C_ Line_Feed C_ ????" 01f2 0607 | | .STRTAB 0x0607->0x04f5 ; " " 01f3 0620 | | .STRTAB 0x0620->0x0503 ; "Del Del Del" 01f4 0659 | Y | .STRTAB 0x0659->0x0520 ; "Erase C_D C_D C_D" 01f5 0692 | | .STRTAB 0x0692->0x053e ; " " 01f6 06b8 | | .STRTAB 0x06b8->0x0552 ; "Reset C_H [Backspace] pad 4 C_H" 01f7 06f1 | | .STRTAB 0x06f1->0x056f ; "Quit Esc-Enter Esc-G Esc-Enter" 01f8 0730 | 0 | .STRTAB 0x0730->0x0590 ; "Disconnect C_G C_G C_G" 01f9 0769 | i | .STRTAB 0x0769->0x05ad ; "Reconnect esc-F11 ???? ????" 01fa 07a3 | | .STREND 0x07a3->0x05cb 01fb 4f46 464f |OFFO| .STRTAB_STRINGS 05cc 0000 0000 | | .BLANK 0000[0x4] 05d0 ; -------------------------------------------------------------------------------------- 05d0 ; Debug Table 05d0 ; -------------------------------------------------------------------------------------- 05d0 0004 0001 | | .DEBUG4 0x0004,0x0001,0x7168,0x0000,0x0001,0x0007 05d6 000b 05f2 | | .DBG4T 0x000b,0x05f2,0x0800,0x0000 05da 000e 05f5 | | .DBG4T 0x000e,0x05f5,0x0800,0x8000 05de 0043 0609 | C | .DBG4T 0x0043,0x0609,0x0001,0x4000 05e2 0103 0000 | | .DBG4T 0x0103,0x0000,0x0005,0x0000 05e6 012b 064b | + K| .DBG4T 0x012b,0x064b,0x0001,0x0000 05ea 013b 064f | ; O| .DBG4T 0x013b,0x064f,0x0001,0x0000 05ee 01a3 0672 | r| .DBG4T 0x01a3,0x0672,0x0001,0x4000 05f2 ; -------------------------------------------------------------------------------------- 05f2 ; Debug chain 05f2 ; -------------------------------------------------------------------------------------- 05f2 0001 0000 | | .DBGLEN 0x0001,0x0000 05f4 000b | | .DBGLNO 0x000b 05f5 ; -------------------------------------------------------------------------------------- 05f5 ; Debug chain 05f5 ; -------------------------------------------------------------------------------------- 05f5 0009 0000 | | .DBGLEN 0x0009,0x0000 05f7 000e 0014 | | .DBGLNO 0x000e,0x0014,0x0022,0x0027,0x0029,0x0033,0x0035,0x0037,0x0039 0600 0002 0003 | | .XXX[0x9] 0602 0004 0005 | | 0604 0006 0007 | | 0606 0008 0009 | | 0608 000a | | 0609 ; -------------------------------------------------------------------------------------- 0609 ; Debug chain 0609 ; -------------------------------------------------------------------------------------- 0609 0002 001f | | .DBGLEN 0x0002,0x001f 060b 0043 0048 | C H| .DBGLNO 0x0043,0x0048,0x0049,0x004b,0x0053,0x005a,0x0060,0x006a,0x0070,0x0072,0x0074,0x0077,0x007a,0x007d,0x00a0,0x00a6,0x00aa,0x00b3,0x00c1,0x00ca,0x00ce,0x00cf,0x00d5,0x00d9,0x00db,0x00e1,0x00e5,0x00e6,0x00ea,0x00ed,0x00f1,0x00f3,0x00f7 062c 0001 0002 | | .XXX[0x1f] 062e 0003 0004 | | 0630 0005 0006 | | 0632 0007 0008 | | 0634 000a 000b | | 0636 000c 000d | | 0638 0017 0018 | | 063a 0019 001a | | 063c 001b 001c | | 063e 001d 000e | | 0640 000f 0010 | | 0642 0011 0012 | | 0644 0013 0014 | | 0646 0015 0016 | | 0648 001e 001f | | 064a 0020 | | 064b ; -------------------------------------------------------------------------------------- 064b ; Debug chain 064b ; -------------------------------------------------------------------------------------- 064b 0000 0002 | | .DBGLEN 0x0000,0x0002 064d 012b 0132 | + 2| .DBGLNO 0x012b,0x0132 064f ; -------------------------------------------------------------------------------------- 064f ; Debug chain 064f ; -------------------------------------------------------------------------------------- 064f 0000 0021 | !| .DBGLEN 0x0000,0x0021 0651 013b 013e | ; >| .DBGLNO 0x013b,0x013e,0x0141,0x0144,0x0147,0x014a,0x014d,0x0150,0x0153,0x0156,0x0159,0x015c,0x015f,0x0162,0x0165,0x0168,0x016b,0x016d,0x0170,0x0173,0x0176,0x0179,0x017c,0x017f,0x0182,0x0185,0x0188,0x018b,0x018e,0x0191,0x0194,0x0197,0x019a 0672 ; -------------------------------------------------------------------------------------- 0672 ; Debug chain 0672 ; -------------------------------------------------------------------------------------- 0672 0002 0006 | | .DBGLEN 0x0002,0x0006 0674 01a3 01a4 | | .DBGLNO 0x01a3,0x01a4,0x01ab,0x01af,0x01b3,0x01be,0x01c9,0x01cd 067c 0002 0004 | | .XXX[0x6] 067e 0003 0005 | | 0680 0006 0001 | | 0682 0000 0000 | | .BLANK 0000[0x17e]