|
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: 1536 (0x600)
Types: TextFile
Names: »retdbcod5tx «
└─⟦01e83a425⟧ Bits:30008166 Bånd med SW8010 og SW8500 source code
└─⟦75ff9bef3⟧
└─⟦this⟧ »retdbcod5tx «
mode list.yes
message dette job er ikke klart endnu
end
;dbcodes6tx=edit tdbcodes
; blockjam0 og blockjam1 alarm fordi zonebufre skifter
; beliggenhed til den høje ende af lageret
;
l./dbcodes -1-/, r/76.10.04 /90.09.24 (fgs)/
l./g22/, r/g22/g99/
l./dbcodes -10-/, r/78.10.18 /90.09.24 (fgs)/
l./m9:/, l./rl w3 (x2+16)/, d./jl. a5./, i/
rl w3 (x2+16) ; w3 := z.record base; <*=z.base buffer area*>
al w3 x3+1-h53 ; w3 := addr z.sref;
rl w0 x3 ; w0 := z.sref;
rs. w0 c6. ; save z.sref;
rl w3 (x2+8) ; w3 :=dbtable.record base; <*=dbtable.base buf*>
al w3 x3+1-h53 ; w3 := addr dbtable.sref;
sl w0 (x3) ; if z.sref < dbtable.sref then
se w3 x3 ;
jl. a5. ; alarm(<:blockjam 0:>);
/
l./dbcodes -13-/, r/75.04.11 /90.09.24 (fgs)/
l./rl w0 x3/, d./rs w0 x1+4-6/, i/
rl w0 x3 ;
am. (c6.) ;
rl w1 -2 ; w1 := z.(sref-2); <*=z.last used*>
sh w0 x1-1 ; if addr of fieldvar < z.last used then
jl. a6. ; alarm (<:blockjam1:>);
rl. w1 c0. ;
rs w0 x1+4-6 ; store addr of fieldvar in dbtable;
/
l./dbcodes -14-/, r/76.10.04 /90.09.24 (fgs)/
l./m.rc/, r/76.10.04/90.09.24/
l./r.g10/, d, i/
g30=(:g10.+504:)>1
c. -g30-1
m.code on segment 1 too long
z.
c. g30-1
0, r.g30
z.
/, p-7
f
end
▶EOF◀