|
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: 13824 (0x3600)
Types: TextFile
Names: »tastermtxt «
└─⟦9ccaf6601⟧ Bits:30008165 Bånd med SW8000 kildetekst/release værktøjer
└─⟦40b1eb8cd⟧
└─⟦this⟧ »tastermtxt «
\f
; tas 1.0 14.05.87 tastermtxt ...1...
TTTTTTTTTTTT AAAAAAAAA SSSSSSSSSS
TTTTTTTTTTTT AAAAAAAAAAA SSSS SSS
TTTT AAA AAA SSSS SSS
TTTT AAA AAA SSSS
TTTT AAAAAAAAAAA SSSSSSSSSSS
TTTT AAAAAAAAAAA SSSSSSSSSSS
TTTT AAA AAA SSSS
TTTT AAA AAA SSS SSSS
TTTT AAA AAA SSS SSSS
TTTT AAA AAA SSSSSSSSSS
TTTTTTTTTTTT EEEEEEEEEEEE RRRRRRRRRRR MMMM MMMM
TTTTTTTTTTTT EEEEEEEEEEEE RRRRRRRRRRRR MMMMM MMMMM
TTTT EEEE RRR RRRR MMMMMMMMMMMMMM
TTTT EEEE RRR RRRR MMMM MMMM MMMM
TTTT EEEEEEEEEEEE RRRRRRRRRRRR MMMM MM MMMM
TTTT EEEEEEEEEEEE RRRRRRRRRRR MMMM MMMM
TTTT EEEE RRR RRRRR MMMM MMMM
TTTT EEEE RRR RRRRR MMMM MMMM
TTTT EEEEEEEEEEEE RRR RRRRR MMMM MMMM
TTTT EEEEEEEEEEEE RRR RRRRR MMMM MMMM
\f
; tas 1.0 14.05.87 tastermtxt ...2...
; @(#)tastermtxt 1.10 (RC International) 11/6/91
;
;
; Terminal access system for rc8000 - A/S Regnecentralen
; Erik Poulsen
; Revisions historie
; alle hændelser omkring tas skal registreres her
;
; 87.01.15 release til betatest
;
; 87.05.14 release 1.0
;
; 87.08.14 release 1.1 Fejl i thtxt rettet
;
; 88.03.21 release 1.2 til alfa test
; Diverse fejl rettet
; nyt mode felt i terminal beskrivelse (til canonical)
; Nyt punkt i system menu !disconnect
;
; 88.04.28 release 1.2 Til driften
;
; 88.05.16 Ny tasterm til driften: break 0 ved ! til 3600 terminaler
;
; 88.05.27 Ny tasterm til driften: break 0 ved operatør message til terminal
; disconnected med !
; 88.05.30 Release 1.2 til ARM
;
; 88.06.16 phtxt rette for fejl efter break 52 hos GI (beta test)
;
; 88.06.16 Release 1.2 til ARM
;
; 88.07.04 Ved kodeinspektion (sammen med manual skrivning), viste det sig
; at usynlig indlæsning ikke kan styres ved mode=8 i output,
; fejlen fundet og rettet i phtxt
;
; 88.08.02 Fejl i rmtxt omkring Ctrlø fra terminal fundet og rettet,
; fejlen kan give break 18, det gjorde den i driften
;
; 88.08.30 Fejl i th i remove_th_link fundet og rettet, opdaget ved at
; ph coroutine mister mtty bit i state efter en remove link
; message. Bevirker at simulate input ikke virker på pool efter
; link er blevet fjernet fra poolen.
;
; 88.09.12 release 1.3
;
; 88.10.05 Fejl i c_outtext i th rettet, opdaget på GI.
; Giver terminal io error hvis cursor seq. i terminal type
; beskrivelse er tom.
;
; 88.20.10 release 2.0 til RC8000/RC9000
;
; 88.25.10 pausebit i break message til s, rettet i cltxt
;
; 88.26.10 nyt release 2.0 bånd til alfatest af RC9000
;
; 88.27.10 ks -600 fjernet i thtxt
;
; 88.12.12 tail i testrecord type 23-30 ændret til 10
;
; 88.12.13 output med ulige last addr giver break 52, rettet i phtxt
;
; 89.02.03 release 2.0 bånd genereret
;
; 89.02.22 inittxt og thtxt rettet så nologin terminaler understøttes
;
; 89.02.27 fejl i rmtxt rettet. Tem pseudo processen blev fjernet nå
; poolen, der har brugt tem som pseudo process, nedlægges.
;
; 89.03.01 phtxt ændret så der med create link message kan oprettes
; link til interne processer og pseudoprocesser der ikke er
; oprettet af menu
;
; 89.05.19 thtxt, gltxt, qnames rettet af hensyn til nologin terminaler.
;
; 89.05.19 pirat release 2.1
;
; 89.07.11 testpunkter ks -xxx fjernet i inittxt
;
; 89.08.21 cltxt, extdeftxt, inittxt rettet idet max terminals ikke blev
; overført fra tas processen
;
; 89.08.21 indført test på max create link messages i phtxt
;
; 89.08.21 release 2.1
;
; 89.10.05 i phtxt og thtxt, ny inputmode (1<6) sådan at mtty input fornyer
; input message hvis buffer ikke er fuld og den ikke afsluttes af
; en nl
;
; 89.10.06 thtxt, fejl i term_send_wait rettet, 1 shift result ikke i status
;
; 89.10.18 thtxt, fejl i send_text rettet, piratbånd til pensam
;
; 89.10.30 rettet fejl i gltxt, put_op, gik i break 0 hvis wait_proc ikke
; er wait
;
; 89.10.30 rettet fejl i gltxt, get_spool_segment (break 52 hos SPS)
;
; 89.11.03 pirat udgave til Kgl. biblio med rettet 3270 (input repeteres
; ikke i ph)
;
; 89.11.07 pirat udgave til SPS, output til mtty med kun localid
; bevirkede at terminal link blev fjernet, pga. output til
; terminal gav result 3, se rettelse fra 89.10.06
; fejl i rettelse 89.10.30 gav stadig break 52, rettet
;
; 89.11.09 udgave fra 89.10.06 fejlede, status i svar på input indeholdt
; 1 shift 1, fejlen rettet.
;
; 89.11.09 udgave fra 89.10.05 virkede ikke som ønsket, 1 shift 6 i
; input message erstattes af message til pool
; (opcode=192) der har samme virkning
;
; 90.01.29 fejl i thtxt (send_text) rettet, beta af tasterm sendt til
; Erik Nybo i AArhus
;
; 90.02.06 testoutput ændret
;
; 90.02.06 th ændret så nultegn i tekst der opstår efter mellem input
; fjernes, se fejl fra 89.11.09
;
; 90.03.28 alle tekster er langt under sc kontrol på adam/eva
;
; 90.03.30 kontrol af core,buffer og area ændret, giver udskrift i stedet
; for tas error
;
; 90.04.02 release 2.2 (beta til TOP, SPS det samme som til production)
;
; 90.04.20 rettelse til phtxt, pseudo process tilladt til create link message
;
; 90.04.20 release 2.2 , til produktion
;
; 90.07.20 tasterm SCVERS 2.2.1 til SPS
;
; 90.08.13 tasterm SCVERS 2.2.2 til Esbjerg
;
; 90.80.22 tasterm 2.2.2 til BML
;
; 90.09.17 cltxt rettet, ny check_eventqueue
; phtxt rettet, ny message 10<12
;
; 90.09.17 tasterm 2.2.3 til Esbjerg
;
; 90.09.27 release med fejl i th rettet
; tasterm 2.2.4 til Esbjerg
;
; 91.03.12 release med fejl i th rettet, (manglende attention
; i input efter message 192<16)
; tasterm 2.3.1 til BKS
;
; 91.11.06 release med fejl i gltxt rettet. (ph.f8000_ident = 0, i
; unlink_th() ).
; tasterm 2.3.2 til BKS
;;
\f
; tas 1.0 14.05.87 rcmenu tastermtxt ...3...
; tasterm processen kan stoppe med følgende udskrift på terminal den
; er started fra
;
; message tas1 break <cause>
;
; hvor <cause> er et nummer med følgende betydning
;
; <cause> betydning
;
; 11 tas1 opretet med for lidt core
; 12 tas1 oprettet med for få message buffere
; 13 tas1 oprettet med for få area
; 14 spool area findes ikke, eller file descr
; 15 tas processen findes ikke
; 16 tas1 kan ikke oprette ps processen <:tem:>
; 17 tas1 kan ikke sætte cat baser
; 18 fejl i svar fra tas
;
; 20 fejl ved oprettelse af pool
;
; 30-39 kommer fra GL rutiner
; 30 fejl i adjust link
; 31 kan ikke finde fri corebuffer
; 32 io error i spool
; 33 kan ikke fjerne areal proces til mcl program
; 34 fejl i release op
; 35 type fejl i coretable indgang
;
; 40-49 kommer fra rm coroutinen
; 40 kan ikke finde ps til pool
;
; 50-59 kommer fra th coroutinen
; 50 varno>26
; 51 fejl i kald af wait
; 52 illegalt opcode i letter
; 53 kan ikke finde ps til pool
; 54 mbx ikke tom ved slut i th coroutine
; 55 illegal opcode i operation
; 56 fejl i mcl fortolkeren
;
; 60-69 kommer fra sm coroutinen
; 60 ikke plads i choice tabellen
;
; 70-79 kommer fra ph coroutinen
\f
;. tas 1.0 14.05.87 rcmenu tastermtxt ...4...
; 70 kan ikke nedlægge ps proces
; 71 fejl i kald af wait
; 72 illegal message
; 73 illegal opcode i message
;
; 80-89 kommer fra init af tas1
; 80 fejl i extern listen
b. a90, f200, g2, l20, p60, q200, m270
w.
m.tastermtxt tastermtxt 1.10
p.<:anames:>
t. ; read a names redefinitions
a88=-a88-1 ; ved alle bit i a88 a89 a90
a89=-a89-1
a90=-a90-1
d.
p.<:fpnames:>
d. c.a90<0 l. z. ; if list structure definitions then list.on
p.<:fnames:>
p.<:qnames:>
\f
; tas 1.0 14.05.87 rcmenu tastermtxt ...5...
; m navne bruges som konstanter med værdierne fra 0 til 270
m0=0, m1=1, m2=2, m3=3, m4=4, m5=5
m6=6, m7=7, m8=8, m9=9, m10=10, m11=11
m12=12, m13=13, m14=14, m15=15, m16=16, m17=17
m18=18, m19=19, m20=20, m21=21, m22=22, m23=23
m24=24, m25=25, m26=26, m27=27, m28=28, m29=29
m30=30, m31=31, m32=32, m33=33, m34=34, m35=35
m36=36, m37=37, m38=38, m39=39, m40=40, m41=41
m42=42, m43=43, m44=44, m45=45, m46=46, m47=47
m48=48, m49=49, m50=50, m51=51, m52=52, m53=53
m54=54, m55=55, m56=56, m57=57, m58=58, m59=59
m60=60, m61=61, m62=62, m63=63, m64=64, m65=65
m66=66, m67=67, m68=68, m69=69, m70=70, m71=71
m72=72, m73=73, m74=74, m75=75, m76=76, m77=77
m78=78, m79=79, m80=80, m81=81, m82=82, m83=83
m84=84, m85=85, m86=86, m87=87, m88=88, m89=89
m90=90, m91=91, m92=92, m93=93, m94=94, m95=95
m96=96, m97=97, m98=98, m99=99, m100=100, m101=101
m102=102, m103=103, m104=104, m105=105, m106=106, m107=107
m108=108, m109=109, m110=110, m111=111, m112=112, m113=113
m114=114, m115=115, m116=116, m117=117, m118=118, m119=119
m120=120, m121=121, m122=122, m123=123, m124=124, m125=125
m126=126, m127=127, m128=128, m129=129, m130=130, m131=131
m132=132, m133=133, m134=134, m135=135, m136=136, m137=137
m138=138, m139=139, m140=140, m141=141, m142=142, m143=143
m144=144, m145=145, m146=146, m147=147, m148=148, m149=149
m150=150, m151=151, m152=152, m153=153, m154=154, m155=155
m156=156, m157=157, m158=158, m159=159, m160=160, m161=161
m162=162, m163=163, m164=164, m165=165, m166=166, m167=167
m168=168, m169=169, m170=170, m171=171, m172=172, m173=173
m174=174, m175=175, m176=176, m177=177, m178=178, m179=179
m180=180, m181=181, m182=182, m183=183, m184=184, m185=185
m186=186, m187=187, m188=188, m189=189, m190=190, m191=191
m192=192, m193=193, m194=194, m195=195, m196=196, m197=197
m198=198, m199=199, m200=200, m201=201, m202=202, m203=203
m204=204, m205=205, m206=206, m207=207, m208=208, m209=209
m210=210, m211=211, m212=212, m213=213, m214=214, m215=215
m216=216, m217=217, m218=218, m219=219, m220=220, m221=221
m222=222, m223=223, m224=224, m225=225, m226=226, m227=227
m228=228, m229=229, m230=230, m231=231, m232=232, m233=233
m234=234, m235=235, m236=236, m237=237, m238=238, m239=239
m240=240, m241=241, m242=242, m243=243, m244=244, m245=245
\f
;. tas 1.0 14.05.87 rcmenu tastermtxt ...6...
m246=246, m247=247, m248=248, m249=249, m250=250, m251=251
m252=252, m253=253, m254=254, m255=255, m256=256, m257=257
m258=258, m259=259, m260=260, m261=261, m262=262, m263=263
m264=264, m265=265, m266=266, m267=267, m268=268, m269=269
m270=270,
s. c100, e70, g200, u50, t60 ; begin slang segment
w.
d. c.a90<1 l. z. ; if list exception routine then list.on
p.<:cltxt:>
d. c.a90<9 l. z. ; if list globale routiner then list.on
p.<:gltxt:>
d. c.a90<5 l. z. ; if list rm coroutine then list.on
p.<:rmtxt:>
d. c.a90<6 l. z. ; if list th coroutine then list.on
p.<:thtxt:>
d. c.a90<7 l. z. ; if list sm coroutine then list.on
p.<:smtxt:>
d. c.a90<8 l. z. ; if list ph coroutine then list.on
p.<:phtxt:>
d. c.a90<4 l. z. ; if list initatize routine then list.on
\f
; tas 1.0 14.05.87 rcmenu tastermtxt ...7...
p.<:sttxt:>
p.<:inittxt:>
e. ; end segment
b. i10, j10, d2 w.
d0=s3, d1=s4
i0=q0, i1=q35, i2=q36, i3=q7, i4=q200
j0=q191, j1=q192, j3=q193, j4=q194
c.(:q191 - (:q36 - q35:) - 1:)
m.ikke plads til Gl stack
j0=q191
z.
i10 = q192
c.(:q193 - q192:)
i10 = q193
m.sm stak større end th stack
z.
c.(:i10 - (:q7 - q36:) - 1:)
m.ikke plads til th,ph stack
j1=q192
j2=q193
z.
c.(:q194 - f70 - 1:)
m.ikke plads til sm stack
j3=q194
z.
i.e.
\f
; tas 1.0 14.05.87 set cat entry tastermtxt ...8...
g2 = l3-l0
g0:
g1: (:g2+511:)>9 ; segments
0,0,0,0 ; doc name
s2 ; short clock
0 ; file
0 ; block
3<12+6 ; content<12+entry
g2 ; length
d.
p.<:insertproc:>
▶EOF◀