|
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: 76800 (0x12c00)
Types: TextFile
Names: »cmontest«
└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
└─⟦b2ec5d50f⟧
└─⟦this⟧ »cmontest«
ntramos=algol ttramos list.no message.no
▶04◀▶8f◀M▶04◀▶91◀M▶03◀▶fc◀▶da◀▶03◀▶fc◀▶da◀▶03◀▶fc◀▶da◀▶80◀«bs»terminal4D▶16◀▶01◀▶03◀▶f7◀:▶01◀▶01◀▶04◀▶8f◀g▶04◀▶8f◀ic«bs»▶04◀▶8f◀N▶04◀▶8f◀▶b4◀0▶04◀▶8f◀N▶04◀▶8f◀▶b4◀▶04◀▶8f◀j▶02◀▶80◀▶7f◀▶ff◀▶ff◀qref,free);
until false;
end batch queue;
procedure b_timer;
begin
integer array field bref;
real r;
stackclaim(250);
repeat
waitch(bmessline,bref,free,0);
delay(b_time_slice);
systime(5,0,r);
d.bref(1):=1;
d.bref(2):=r;
signalch(bmessline,bref,cmess);
until false;
end b_timer;
procedure run_job_timer;
begin
integer array field bref;
stackclaim(150);
repeat
waitch(bmessline,bref,jobtimermess,0);
d.bref(1):=2;
d.bref(2):=-1;
delay(b_time_slice);
signalch(bmessline,bref,bmess);
until false;
end runjobtimer;
algol list.on copy.trunbatch;
procedure write_b_des(d,z);
integer array d;
zone z;
▶04◀▶8f◀M▶04◀▶91◀M▶03◀▶fc◀▶da◀▶03◀▶fc◀▶da◀▶03◀▶fc◀▶da◀▶80◀▶04◀ttramosD▶8c◀<▶04◀▶0b◀b
▶01◀5▶98◀▶04◀▶91◀▶1b◀▶04◀▶91◀Mttramos«bs»▶04◀▶8f◀N▶04◀▶91◀L0▶04◀▶8f◀N▶04◀▶91◀L;▶04◀▶91◀Nwrk001300▶02◀▶07◀▶f8◀«bs»▶01◀ stackclaim(250);
repeat
waitch(bmessline,bref,free,0);
delay(b_time_slice);
systime(5,0,r);
d.bref(1):=1;
d.bref(2):=r;
signalch(bmessline,bref,cmess);
until false;
end b_timer;
procedure run_job_timer;
begin
integer array field bref;
stackclaim(150);
repeat
waitch(bmessline,bref,jobtimermess,0);
d.bref(1):=2;
d.bref(2):=-1;
delay(b_time_slice);
signalch(bmessline,bref,bmess);
until false;
end runjobtimer;
algol list.on copy.trunbatch;
procedure write_b_des(d,z);
integer array d;
zone z;
1. ;
rl. w1 i2. ;
wa. w1 a14. ;
rs. w1 i2. ;
rl. w1 i3. ;
wa. w1 a14. ;
rs. w1 i3. ;
rl. w1 i4. ;
wa. w1 a14. ;
rs. w1 i4. ;
rl. w1 i5. ;
wa. w1 a14. ;
rs. w1 i5. ;
rl. w1 i6. ;
wa. w1 a14. ;
rs. w1 i6. ;
;
;
; rl. w1 i7.
; wa. w1 a14.
; rs. w1 i7.
z. ;
jl. (a4.) ; return
a49: 86 ;
ds w1 1194 ;
ds w1 1198 ;
c. c0 ;
rl. w1 i0. ;
wa. w1 a14. ;
rs. w1 i0. ;
rl. w1 i1. ;
wa. w1 a14. ;
rs. w1 i1. ;
rl. w1 i2. ;
wa. w1 a14. ;
rs. w1 i2. ;
rl. w1 i3. ;
wa. w1 a14. ;
rs. w1 i3. ;
rl. w1 i4. ;
wa. w1 a14. ;
rs. w1 i4. ;
rl. w1 i5. ;
wa. w1 a14. ;
rs. w1 i5. ;
rl. w1 i6. ;
wa. w1 a14. ;
rs. w1 i6. ;
;
;
; rl. w1 i7.
; wa. w1 a14.
; rs. w1 i7.
z. ;
jl. (a4.) ; return
a49: 86 ;
ds w1 1194 ;
ds w1 1198 ;
c. c0 ;
rl. w1 i0. ;
wa. w1 a14. ;
rs. w1 i0. ;
rl. w1 i1. ;
wa. w1 a14. ;
rs. w1 i1. ;
rl. w1 i2. ;
wa. w1 a14. ;
rs. w1 i2. ;
rl. w1 i3. ;
wa. w1 a14. ;
rs. w1 i3. ;
rl. w1 i4. ;
wa. w1 a14. ;
rs. w1 i4. ;
rl. w1 i5. ;
wa. w1 a14. ;
rs. w1 i5. ;
rl. w1 i6. ;
wa. w1 a14. ;
rs. w1 i6. ;
;
;
; rl. w1 i7.
; wa. w1 a14.
; rs. w1 i7.
z. ;
jl. (a4.) ; return
a49: 86 ;
ds w1 1194 ;
ds w1 1198 ;
c. c0 ;
rl. w1 i0. ;
wa. w1 a14. ;
rs. w1 i0. ;
rl. w1 i1. ;
wa. w1 a14. ;
rs. w1 i1. ;
rl. w1 i2. ;
wa. w1 a14. ;
rs. w1 i2. ;
rl. w1 i3. ;
wa. w1 a14. ;
rs. w1 i3. ;
rl. w1 i4. ;
wa. w1 a14. ;
rs. w1 i4. ;
rl. w1 i5. ;
wa. w1 a14. ;
rs. w1 i5. ;
rl. w1 i6. ;
wa. w1 a14. ;
rs. w1 i6. ;
;
;
; rl. w1 i7.
; wa. w1 a14.
; rs. w1 i7.
z. ;
jl. (a4.) ; return
a49: 86 ;
ds w1 1194 ;
ds w1 1198 ;
c. c0 ;
rl. w1 i0. ;
wa. w1 a14. ;
rs. w1 i0. ;
rl. w1 i1. ;
wa. w1 a14. ;
rs. w1 i1. ;
rl. w1 i2. ;
wa. w1 a14. ;
rs. w1 i2. ;
rl. w1 i3. ;
wa. w1 a14. ;
rs. w1 i3. ;
rl. w1 i4. ;
wa. w1 a14. ;
rs. w1 i4. ;
rl. w1 i5. ;
wa. w1 a14. ;
rs. w1 i5. ;
rl. w1 i6. ;
wa. w1 a14. ;
rs. w1 i6. ;
;
;
; rl. w1 i7.
; wa. w1 a14.
; rs. w1 i7.
z. ;
jl. (a4.) ; return
a49: 86 ;
ds w1 1194 ;
ds w1 1198 ;
c. c0 ;
rl. w1 i0. ;
wa. w1 a14. ;
rs. w1 i0. ;
rl. w1 i1. ;
wa. w1 a14. ;
rs. w1 i1. ;
rl. w1 i2. ;
wa. w1 a14. ;
rs. w1 i2. ;
rl. w1 i3. ;
wa. w1 a14. ;
rs. w1 i3. ;
rl. w1 i4. ;
wa. w1 a14. ;
rs. w1 i4. ;
rl. w1 i5. ;
wa. w1 a14. ;
rs. w1 i5. ;
rl. w1 i6. ;
wa. w1 a14. ;
rs. w1 i6. ;
;
;
; rl. w1 i7.
; wa. w1 a14.
; rs. w1 i7.
z. ;
jl. (a4.) ; return
a49: 86 ;
ds w1 1194 ;
ds w1 1198 ;
c. c0 ;
rl. w1 i0. ;
wa. w1 a14. ;
rs. w1 i0. ;
rl. w1 i1. ;
wa. w1 a14. ;
rs. w1 i1. ;
rl. w1 i2. ;
wa. w1 a14. ;
rs. w1 i2. ;
rl. w1 i3. ;
wa. w1 a14. ;
rs. w1 i3. ;
rl. w1 i4. ;
wa. w1 a14. ;
rs. w1 i4. ;
rl. w1 i5. ;
wa. w1 a14. ;
rs. w1 i5. ;
rl. w1 i6. ;
wa. w1 a14. ;
rs. w1 i6. ;
;
;
; rl. w1 i7.
; wa. w1 a14.
; rs. w1 i7.
z. ;
jl. (a4.) ; return
a49: 86 ;
ds w1 1194 ;
ds w1 1198 ;
c. c0 ;
rl. w1 i0. ;
wa. w1 a14. ;
rs. w1 i0. ;
rl. w1 i1. ;
wa. w1 a14. ;
rs. w1 i1. ;
rl. w1 i2. ;
wa. w1 a14. ;
rs. w1 i2. ;
rl. w1 i3. ;
wa. w1 a14. ;
rs. w1 i3. ;
rl. w1 i4. ;
wa. w1 a14. ;
rs. w1 i4. ;
rl. w1 i5. ;
wa. w1 a14. ;
rs. w1 i5. ;
rl. w1 i6. ;
wa. w1 a14. ;
rs. w1 i6. ;
;
;
; rl. w1 i7.
; wa. w1 a14.
; rs. w1 i7.
z. ;
jl. (a4.) ; return
a49: 86 ;
ds w1 1194 ;
ds w1 1198 ;
c. c0 ;
rl. w1 i0. ;
wa. w1 a14. ;
rs. w1 i0. ;
rl. w1 i1. ;
wa. w1 a14. ;
rs. w1 i1. ;
rl. w1 i2. ;
wa. w1 a14. ;
rs. w1 i2. ;
rl. w1 i3. ;
wa. w1 a14. ;
rs. w1 i3. ;
rl. w1 i4. ;
wa. w1 a14. ;
rs. w1 i4. ;
rl. w1 i5. ;
wa. w1 a14. ;
rs. w1 i5. ;
rl. w1 i6. ;
wa. w1 a14. ;
rs. w1 i6. ;
;
;
; rl. w1 i7.
; wa. w1 a14.
; rs. w1 i7.
z. ;
jl. (a4.) ; return
a49: 86 ;
ds w1 1194 ;
ds w1 1198 ;
c. c0 ;
rl. w1 i0. ;
wa. w1 a14. ;
rs. w1 i0. ;
rl. w1 i1. ;
wa. 1842 rs. w0 i10. ;
287 1844 rl w1 8 ;
288 1846 al w0 4 ;
289 1848 al. w3 i11. ; input addr
290 1850 ds w3 x1+a0+1<3+2;
291 1852 al w3 -4 ;
292 1854 di. w3 (a2.) ; send input request to hc8000
293 1856 rs w3 1198 ;
294 1858 se w3 160 ;
295 1860 jl. 0 ;
296 1862 al. w3 a49. ;
297 1864 am -16 ;
298 1866 h10: al w0 20 ;
299 1868 ds w3 x1+a0+1<3+2;
300 1870 al w2 0 ;
301 1872 rs. w2 i10. ;
302 1874 do. w0 (a2.) ; send data transfer request
303 1876 rl. w2 i10. ;
304 1878 sn w2 0 ; wait for data tranfer completed
305 1880 jl. -4 ;
306 1882 al w2 0 ;
307 1884 rs. w2 i10. ;
308 1886 rl. w2 i10. ;
309 1888 sn w2 0 ; wait for ready signal from hc
310 1890 jl. -4 ;
311 1892 dl w3 x1+a0+1<3+2;
312 1894 sn w0 4 ;
313 1896 jl. h10. ;
314 1898 se. w3 a49. ;
315 1900 jl. h9. ;
316 1902 al w3 x3+20 ;
317 1904 jl. h10. ;
318 1906 h9: ;
319 1906 rl w1 1192 ;
320 1908 al w1 x1+1 ;
321 1910 rs w1 1192 ;
322 1912 jl. h8. ;
323 1914 i10: 0 ;
324 1916 m.
324 1916 input buffer ;
325 1916 i11: 0,r.20 ;
326 1956 z. ;
327 1956
327 1956 a1: 0 ;
328 1958 a2: 1<23+21<3+2.001 ;
329 1960 a3: 26 ;
330 1962 a4: 0 ;
331 1964 a14: ; start init
332 1964 rs. w2 a4. ; save return
333 1966 rs. w1 a14. ; save fp base
334 1968 rl w3 8 ; base of controller tabel
335 1970 al w3 x3+a0 ;
336 1972 rs. w3 a1. ; addr of contr. table for cpu1
337 1974 al. w1 a11. ;
338 1976 al w0 x1 ;
339 1978 ds w1 x3+2 ;
340 1980 dl. w1 a3. ;
341 1982 ds w1 x3+6 ;
342 1984 jd 1<11+28;
343 1986 ld w1 -100 ;
344 1988 ds w1 1174 ;
345 1990 ds w1 1178 ;
346 1992 ds w1 1182 ;
347 1994 ds w1 1186 ;
348 1996 ds w1 1194 ;
349 1998 ds w1 1198 ;
350 2000 c. c0 ;
351 2000 rl. w1 i0. ;
352 2002 wa. w1 a14. ;
353 2004 rs. w1 i0. ;
354 2006 rl. w1 i1. ;
355 2008 wa. w1 a14. ;
356 2010 rs. w1 i1. ;
357 2012 rl. w1 i2. ;
358 2014 wa. w1 a14. ;
359 2016 rs. w1 i2. ;
360 2018 rl. w1 i3. ;
361 2020 wa. w1 a14. ;
362 2022 rs. w1 i3. ;
363 2024 rl. w1 i4. ;
364 2026 wa. w1 a14. ;
365 2028 rs. w1 i4. ;
366 2030 rl. w1 i5. ;
367 2032 wa. w1 a14. ;
368 2034 rs. w1 i5. ;
369 2036
369 2036 rl. w1 i6. ;
370 2038 wa. w1 a14. ;
371 2040 rs. w1 i6. ;
372 2042 ;
373 2042 ;
374 2042 ; rl. w1 i7.
375 2042 ; wa. w1 a14.
376 2042 ; rs. w1 i7.
377 2042 z. ;
378 2042 jl. (a4.) ; return
379 2044 a49: ;
380 2044 2 ;
381 2046 2 ;
382 2048 0 ;
383 2050 rl w1 32 ;
384 2052 rl w1 34 ;
385 2054 rl w1 36 ;
386 2056 rl w1 38 ;
387 2058 rl w1 40 ;
388 2060 rl w1 42 ;
389 2062 rl w1 44 ;
390 2064 rl w1 46 ;
391 2066 rl w1 48 ;
392 2068 al w1 1 ;
393 2070 ls w1 23 ;
394 2072 al w1 x1+24<3+2.001;
395 2074 al. w3 a48. ;
396 2076 al w0 0 ;
397 2078 do w2 x1 ;
398 2080 a48: jl. 0 ;
399 2082 e. ;
400 2082 e. ;
401 2082 e.
slang ok 1/546/2
▶EOF◀