|
DataMuseum.dkPresents historical artifacts from the history of: RC4000/8000/9000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC4000/8000/9000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 11520 (0x2d00)
Types: TextFile
Names: »extdeftxt «
└─⟦9ccaf6601⟧ Bits:30008165 Bånd med SW8000 kildetekst/release værktøjer
└─⟦39138f30b⟧
└─⟦this⟧ »extdeftxt «
\f
; tas 1.0 14.05.87 external list extdeftxt ...1...
;********************************************************************
;*********************** extern definitioner ************************
;********************************************************************
;
; Terminal access system for rc8000 - A/S Regnecentralen
; Erik Poulsen
; Revisions historie
;
; 87.01.15 release til betatest
;
; 87.03.03 external 257
; 87.04.09 external 258
;
; 87.05.14 release 1.0
;
; 88.02.25 external 259 - 261
;
; 88.03.17 release 1.2
;
; 89.08.21 external 262
;;
; external list
q3:
e0. ; 0 testout
e2. ; 1 outblock
e51. ; 2 start_coroutine
e10. ; 3 start
e11. ; 4 wait
e12. ; 5 pass
e13. ; 6 inspect
e16. ; 7 csendmessage
e18. ; 8 cwaitanswer
e19. ; 9 cregretmessage
e20. ; 10 signal
e22. ; 11 wait_semaphor
e30. ; 12 send_letter
e31. ; 13 inspect_mailbox
e32. ; 14 wait_letter
e33. ; 15 sendmessage
e40. ; 16 timer_message
\f
;. tas 1.0 14.05.87 external list extdeftxt ...2...
e50. ; 17 reserve_buffer
e52. ; 18 init_semaphor
e53. ; 19 init_mailbox
e54. ; 20 create_pool
e55. ; 21 wait_buffer
e57. ; 22 release_buffer
e70. ; 23 entry CL after init
c0. ; 24 current coroutine
c1. ; 25 head active queue
c2. ; 26 head timer queue
c4. ; 27 head message extention list
c7. ; 28 tas message event descriptor addr
c10. ; 29 first free core
c11. ; 30 top used core
c15. ; 31 own pda
c16. ; 32 parent name
c17. ; 33 word addr (testoutput buffer)
c18. ; 34 testoutput doc name
c20. ; 35 current testbuffer
c8. ; 36 own start time
l0. ; 37 abs addr code start
c98. ; 38 start event procedure list
c99. ; 39 top event procedure list
u0. ; 40 exception address
c19. ; 41 segments in testbuffer
c21. ; 42 testbuffer descriptor 1
c22. ; 43 testbuffer descriptor 2
c23. ; 44 testoutput active
e3. ; 45 remove
e4. ; 46 link
c30. ; 47 free_att
c31. ; 48 used_att
c32. ; 49 coretable_base
c33. ; 50 coretabel_top
c34. ; 51 coretabel_size
c35. ; 52 c_entry
c36. ; 53 current_prio
c37. ; 54 free_head
c38. ; 55 corebuffer_base
c39. ; 56 segmenttabel_base
c40. ; 57 areatable_base
c41. ; 58 top_areatabel
c42. ; 59 ss
c43. ; 60 free
\f
;. tas 1.0 14.05.87 external list extdeftxt ...3...
c44. ; 61 mcltabel_base
c45. ; 62 top_mcltabel
c46. ; 63 first_ttda
c47. ; 64 top_ttda
c50. ; 65 tdescr_pool
c51. ; 66 used_tdescr
c48. ; 67 free_term
c5. ; 68 cdescr_pool
g0. ; 69 create_link
g1. ; 70 remove_link
g2. ; 71 adjust_link
g3. ; 72 put_op
g4. ; 73 check_op
g5. ; 74 release_op
g6. ; 75 get_spool_segment
0 ; 76
0 ; 77
g9. ; 78 release_cte
0 ; 79
g11. ; 80 look_name
g12. ; 81 insert_mcl_name
g13. ; 82 remove_mcl_name
g14. ; 83 get_mcl_segment
g17. ; 84 create_spool_area
g18. ; 85 remove_spool_area
g19. ; 86 segments_in_spool_area
g20. ; 87 extend_spool_area
g21. ; 88 cut_spool_area
g22. ; 89 move
g25. ; 90 new_terminal
g26. ; 91 search_th
g27. ; 92 put_in_session
g28. ; 93 get_from_session
g29. ; 94 unlink_from_session
g30. ; 95 get_term_data
g31. ; 96 link_th
g32. ; 97 unlink_th
g33. ; 98 link_ph
g34. ; 99 unlink_ph
c55. ; 100 addr signon text buffer
g140. ; 101 init_td
g141. ; 102 c_read
g142. ; 103 c_write
g143. ; 104 get_text_addr
\f
;. tas 1.0 14.05.87 external list extdeftxt ...4...
g144. ; 105 compare_text
g145. ; 106 move_text
g146. ; 107 outtext
g147. ; 108 c_outtext
g148. ; 109 write
g149. ; 110 erase
g150. ; 111 cursor
g151. ; 112 in_text
g152. ; 113 rd_char
g153. ; 114 read_password
g154. ; 115 strip_nl
g155. ; 116 strip_sp
e34. ; 117 wait_sem_letter
e14. ; 118 create_coroutine
e15. ; 119 remove_coroutine
e55. ; 120 get_buffer
c57. ; 121 std name base for mcl programmer
c49. ; 122 first_ph
c26. ; 123 <:tascat:>
c27. ; 124 <:tasspool:>
c24. ; 125 segment no i test area
c52. ; 126 lock sem
u31. ; 127 start addr for th coroutine
u32. ; 128 start addr for sm coroutine
u33. ; 129 start addr for ph coroutine
0 ; 130
g101. ; 131 get_abs
g102. ; 132 push
g103. ; 133 pop
g104. ; 134 create_mcl_varable
g105. ; 135 var_addr
g106. ; 136 alloc_var
g107. ; 137 delete_var
g108. ; 138 set_var
g109. ; 139 wait
g110. ; 140 wait_op
g111. ; 141 wait_term
g112. ; 142 tascat_mes
g113. ; 143 send_attention
g114. ; 144 remove_ph
g115. ; 145 remove_yh_link
g116. ; 146 create_user
g117. ; 147 create_ph
g118. ; 148 mcl_exit
\f
;. tas 1.0 14.05.87 external list extdeftxt ...5...
g119. ; 149 terminate_th
g120. ; 150 direct
g121. ; 151 input_op
g122. ; 152 output_op
g123. ; 153 sim_input
g124. ; 154 ctrl_op
g125. ; 155 cont_mcl
g126. ; 156 answer_input
g127. ; 157 f8000_input
g128. ; 158 send_f8000
g129. ; 159 f8000_read
g130. ; 160 term_send_wait
c53. ; 161 max_tbuf_size
c54. ; 162 std seg i link spool area
g160. ; 163 error return 1 i th
0 ; 164
g162. ; 165 error return 3 i th
e17. ; 166 csendpseudomessage
c56. ; 167 name base for term ps processer (proc max base)
c58. ; 168 name base for spool/test area
g164. ; 169 run_mcl
c13. ; 170 <:tem:>
c59. ; 171 pda for tascat processen
c60. ; 172 antal timeout på term i mcl
g23. ; 173 write_error
c61. ; 174 systxt buffer
c62. ; 175 antal hw i tekst delen af systxt buffer
e1. ; 176 testout registers
c64. ; 177 pda for ps processen tem
e5. ; 178 get_mess_ext
c63. ; 179 testmaske
t0. ; 180 <:password:>
t1. ; 181 <:removed:>
t2. ; 182 <:system:>
t3. ; 183 <:linkexist:>
t4. ; 184 <:ok:>
t5. ; 185 <:unknown:>
t6. ; 186 <:resources:>
t7. ; 187 <:timeout:>
t8. ; 188 <:removed:>
t9. ; 189 <:<10>:>
t10. ; 190 <:password :>
t11. ; 191 <:new :>
t12. ; 192 <:remove :>
\f
;. tas 1.0 14.05.87 external list extdeftxt ...6...
t13. ; 193 <:break :>
t14. ; 194 <:kill :>
t15. ; 195 <:att :>
t16. ; 196 <:select --> :>
t17. ; 197 <:new password :>
t18. ; 198 <:confirm password :>
t19. ; 199 <:password not confirmed :>
t20. ; 200 <:password not changed :>
t21. ; 201 <:remove session --> :>
t22. ; 202 <:break session --> :>
t23. ; 203 <:kill from session --> :>
t24. ; 204 <:att to session --> :>
t25. ; 205 <:missing resources :>
t26. ; 206 <:session id :>
t27. ; 207 <:illegal id, session id :>
t28. ; 208 <:ambigous id, session id :>
t29. ; 209 <:userid :>
t30. ; 210 <:no link:>
t31. ; 211 <:inlogning stopped:>
t32. ; 212 <:max terminals inloged:>
t33. ; 213 <:unknown used id:>
t34. ; 214 <:wrong password:>
t35. ; 215 <:terminal limit:>
t36. ; 216 <:user blocked:>
t37. ; 217 <:terminal blocked:>
t38. ; 218 <:max session exceeded:>
t39. ; 219 <:login time exceeded:>
t40. ; 220 <:no resources:>
t41. ; 221 <:unknown terminal:>
t42. ; 222 <:terminal io error:>
t43. ; 223 <:terminal timeout:>
t44. ; 224 <:-segmenter til spool:>
t45. ; 225 <:-mcl program indgange:>
t46. ; 226 <:mcl program findes ikke:>
t47. ; 227 <:-terminal buffer:>
t48. ; 228 <:-cdescr:>
t49. ; 229 <:-tdescr:>
t50. ; 230 <:session nedlagt:>
c65. ; 231 max pools efter create pool message
c66. ; 232 terminal handlere efter create link message
c67. ; 233 aktive system menu coroutiner
c68. ; 234 frie corebuffere
c69. ; 235 frie indgange i mcltable
c70. ; 236 frie terminal type beskrivelser
\f
;. tas 1.0 14.05.87 external list extdeftxt ...7...
c71. ; 237 antal segmenter i spool
g131. ; 238 signon
g132. ; 239 write_to_from
t51. ; 240 <:exit - illegamt mcl program:>
t52. ; 241 <:en session nedlagt af operatøren<10>:>
t53. ; 242 <:resource mangel (- type beskrivelser)<10>:>
c28. ; 243 coretable_lock
e24. ; 244 g_lock
e23. ; 245 g_open
g15. ; 246 corebuf_lock
g24. ; 247 corebuf_open
g133. ; 248 get_mcl_var
0 ; 249
g135. ; 250 unlock_mcl_var
t54. ; 251 <:local id:>
g136. ; 252 gen_localid
g170. ; 253 Next_op i mcl fortolkeren
t55. ; 254 <:bypassed:>
c75. ; 255 send message til remoter
t56. ; 256 <:cmcl:>
t57. ; 257 <:Session nedlagt efter timout:>
g137. ; 258 send_text_and_stop_th
t58. ; 259 <:!disconnect:>
g35. ; 260 disconnect_terminal
g36. ; 261 connect_terminal
c76. ; 262 max create link messages
m.end ext
q4 = k-2
q5 = (:q4+2-q3:)/2+1 ; top external number
▶EOF◀