|
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: 2304 (0x900)
Types: TextFile
Names: »retmstr3tx «
└─⟦01e83a425⟧ Bits:30008166 Bånd med SW8010 og SW8500 source code
└─⟦75ff9bef3⟧
└─⟦this⟧ »retmstr3tx «
mode list.yes
movestr4tx=edit movestr3tx
;
; boolean array ligesom andre typer array
l./page 1/, r/87.07.02/88.06.01/
l./; constants and texts/, i#
\f
; fgs 1988.06.01 algol 6, outdate page 1a
#
l./b6:/, d, i/
b4: <:<10>oddfield :> ; alarm text
b6: <:<10>z.state :> ; alarm text
/, l-1, p2
l./page 5/, r/87.08.25/88.05.29/
l./e3:/, i/
h.
f3=k-17 ; table typeshift (kind):
0, 1, 2, 2, 3, 3, 2 ; bool, int, long, real, doubl., compl, zone
w.
/
l./; take array parameter:/, i#
\f
; fgs 1988.06.01 algol 6, movestring page 5a
#
l./sh w0 23/, d9, i#
sh w0 23 ; if kind (param 1) > zone
sh w0 16 ; or kind (param 1) < boolean array then
jl. w3 (j29.) ; goto param alarm;
rl w3 0 ; typeshift :=
zl. w3 x3+f3. ; case kind of (0, 1, 2, 2, 3, 3, 2);
hs. w3 b1. ;
#
l./rl w3 x2+8/, d1, i/
rl w3 (x2+8) ; if base addr even then
so w3 1 ; goto oddfield alarm;
jl. d4. ;
rl w3 x2+8 ; dope addr :=
ea w3 x2+6 ; baseword addr + dope rel;
/, p1
l./;subprocedure store(item);/, i#
\f
; fgs 1988.06.01 algol 6, movestring page 7
#
l1,
l./page 7/, i/
d4: al. w0 b4. ; oddfield alarm:
al w1 1 ; param := 1;
jl. w3 (j21.) ; general alarm (<:oddfield:>, param);
/
l./page 7/, r/87.07.02/88.06.01/, r/page 7/page 8/
l./m. rc/, r/87.08.25/88.06.01/
f
end
▶EOF◀