|
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: 3840 (0xf00)
Types: TextFile
Names: »retmstat3tx «
└─⟦01e83a425⟧ Bits:30008166 Bånd med SW8010 og SW8500 source code
└─⟦75ff9bef3⟧
└─⟦this⟧ »retmstat3tx «
mode list.yes
mainstat4tx=edit mainstat3tx
; connect output : segm < 2 + key
; parameter arrays i system og monitor med nedre index = 0
; tekster til ida/main testpunkter
;
l./procedure inittexts (kind, texts);/,
l./ <* 1 *> <::>,/,
d./ end inittexts;/,
i/
<* 1 *> <:area - message received:>,
<* 2 *> <:area - message at setup entry:>,
<* 3 *> <:area - messsage to controller:>,
<* 4 *> <::>,
<* 5 *> <::>,
<* 6 *> <:disk - message received:>,
<* 7 *> <:disk - mesage at setup entry:>,
<* 8 *> <:disk - message to controller:>,
<* 9 *> <::>,
<* 10 *> <::>,
<* 11 *> <:tape - message received:>,
<* 12 *> <:tape - message at setup entry:>,
<* 13 *> <:tape - messge to controller:>,
<* 14 *> <::>,
<* 15 *> <::>,
<* 16 *> <:main - message at setup entry:>,
<* 17 *> <:main - message to controller:>,
<* 18 *> <::>,
<* 19 *> <::>,
<* 20 *> <::>,
<* 21 *> <::>,
<* 22 *> <::>,
<* 23 *> <::>,
<* 24 *> <:adp - message received:>,
<* 25 *> <::>,
<* 26 *> <::>,
<* 27 *> <::>,
<* 28 *> <::>,
<* 29 *> <::>,
<* 30 *> <::>,
<* 31 *> <::>,
<* 32 *> <::>,
<* 33 *> <::>,
<* 34 *> <::>,
<* 35 *> <::>,
<* 36 *> <::>,
<* 37 *> <::>,
<* 38 *> <::>,
<* 39 *> <::>,
<* 40 *> <::>,
<* 40 *> <::>,
<* 41 *> <::>,
<* 42 *> <::>,
<* 43 *> <::>,
<* 44 *> <::>,
<* 45 *> <:controller acknowledge:>,
<* 46 *> <:comm. area - rc8000 to controller:>,
<* 47 *> <:comm. area - controller to rc8000:>,
<* 48 *> <::>,
<* 49 *> <::>,
<* 50 *> <::>,
\f
<* 51 *> <::>,
<* 52 *> <::>,
<* 53 *> <::>,
<* 54 *> <::>,
<* 55 *> <::>,
<* 56 *> <::>,
<* 57 *> <::>,
<* 58 *> <::>,
<* 59 *> <::>,
<* 60 *> <::>,
<* 61 *> <::>,
<* 62 *> <::>,
<* 63 *> <::>,
<* 64 *> <::>,
<* 65 *> <::>,
<* 66 *> <::>,
<* 67 *> <::>,
<* 68 *> <::>,
<* 69 *> <::>,
<* 70 *> <::>,
<* 71 *> <::>,
<* 72 *> <::>,
<* 73 *> <::>,
<* 74 *> <::>,
<* 75 *> <::>,
<* 76 *> <::>,
<* 77 *> <::>,
<* 78 *> <::>,
<* 79 *> <::>,
<* 80 *> <::>,
<* 81 *> <::>,
<* 82 *> <::>,
<* 83 *> <::>,
<* 84 *> <::>,
<* 85 *> <::>,
<* 86 *> <::>,
<* 87 *> <::>,
<* 88 *> <::>,
<* 89 *> <::>,
<* 90 *> <::>,
<* 91 *> <::>,
<* 92 *> <::>,
<* 93 *> <::>,
<* 94 *> <::>,
<* 95 *> <::>
));
end inittexts;
/
l./comment: start of program;/,
l./procedure stack_current_output (file_name);/,
l./result := 2; <*1<1 <=> 1 segment, preferably disc*>/, r/2/1 shift 2/,
r/1<1/1<2/, r/preferably disc/temporary/
l./begin <*core*>/, l./integer array ia(0:1);/, l1, i/
integer array field iaf;
iaf := -2;
/, p-2
l./monitor/, r/ia)/ia.iaf)/
l./system/, r/ia)/ia.iaf)/
l1, l./system/, r/ia)/ia.iaf)/
l1, l./system/, r/devnametable/devnametable.iaf/
l./begin <*core rc8000*>/, l./integer array core(0:12);/, l1, i/
integer array field iaf;
iaf := -2;
/, p-2
l./system/, r/core)/core.iaf)/
l1, l./system/, r/core)/core.iaf)/
l1, l./system/, r/core)/core.iaf)/
l./skip_enable1:/, l./integer array core(0:dl-1);/, l1, i/
integer array field iaf;
iaf := -2;
/, p-2
l./system/, r/core)/core.iaf)/
f
end
▶EOF◀