|
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: 4608 (0x1200)
Types: TextFile
Names: »retset4tx «
└─⟦01e83a425⟧ Bits:30008166 Bånd med SW8010 og SW8500 source code
└─⟦75ff9bef3⟧
└─⟦this⟧ »retset4tx «
mode list.yes
set5tx=edit set4tx
; alarmen <:entry in use:> ved result 5 fra create entry ændres til
; <:entry in use or catbase illegal:> når catbase >= stdbase
l./...04/, r/82.12.17/89.07.06/
l./b46: am i46 ; /,
r#<: entry in use#<: entry in use/catalog base illegal#
l./...09/, r/82.12.17/89.07.07/
l./a46:/, r#<: entry in use#<: entry in use/catalog base illegal#
l./...13/, r/88.11.30/89.07.07/
l./c8:/, d./c6:/, i#
c8: al. w3 a91. ; rest of tail:
rs. w3 c7. ; pointer:=name table addr;
rl. w2 a2. ;
ba w2 x2+1 ;
rl w0 x2 ; if nextparam=name
sh. w0 (a123.) ; if param > 4 < 12 + longest name
sh. w0 (a223.) ; or param < 4 < 12 + shortest name
jl. c10. ; goto not name else
jl. c0. ; goto test if date;
c10: sh. w0 (a25.) ; if nextsep = endsep then
jl. c9. ; goto set shortclock;
c6: jl. w3 b27. ; next tail: next comp. param;
#, p1
l./c5:/, d./jl. b80./, i#
c5: sl w1 0 ; integer doc.name:
sl w1 4 ; if doc.name < 0 or >= 4
jl. b13. ; then goto paramerror;
rs. w1 a88. ; store parameter;
jl. c8. ; goto rest of tail;
c9: dl w1 110 ; set shortclock:
ld w1 5 ;
rs. w0 a91. ; save shortclock
jl. b80. ; goto set entry;
#, p1
l./a135: 0/, d b, i#
a135: 0 ;
a137: 1<23+4; bs-code
a138: 1<23 ; sign bit
\f
;fgs 1989.07.06 cat adm 1, tails
i.
m.rc 1989.07.06 fp utility, sys 3, cat adm 1
m. set , setmt , clearmt , entry , changeentry,
m. assign, rename, permanent, nextfile
e.
w.
g0: (:g2+511:)>9 ; entry set
0,r.4 ; name
s2 ; date
0,r.2 ;
2<12+g7-g3 ; cont, entry
g2 ; load length
1<23+4 ; entry setmt
0, r.4 ; name
s2 ; date
0, 0 ;
2<12+g14-g3 ; cont, entry
g2 ; load length
1<23+4 ; entry clearmt
0, r.4 ; name
s2 ; date
0,0 ;
2<12+g15-g3 ; cont, entry
g2 ; load length
1<23+4 ; entry entry
0,r.4 ; name
s2 ; date
0,r.2 ;
2<12+g8-g3 ; cont, entry
g2 ; load length
1<23+4 ; entry changeentry
0, r.4 ; name
s2 ; date
0, r.2 ;
2<12+g6-g3 ; cont, entry
g2 ; load length
1<23+4 ; entry assign
0, r.4 ; name
s2 ; date
0,0 ;
2<12+g5-g3 ; cont, entry
g2 ; load length
1<23+4 ; entry rename
0,r.4 ; name
s2 ; date
0,r.2 ;
2<12+g9-g3 ; cont, entry
g2 ; load length
1<23+4 ; entry permanent
0,r.4 ; name
s2 ; date
0,0 ;
2<12+g10-g3 ; cont, entry
g2 ; load length
g1: 1<23+4 ; entry nextfile
0,r.4 ; name
s2 ; date
0,r.2 ;
2<12+g11-g3 ; cont, entry
g2 ; load length
\f
d.
p.<:insertproc:>
l.
e.
#
f
end
▶EOF◀