aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Task/Variables/360-Assembly/variables-1.360 Normal file
View file

@ -0,0 +1,6 @@
* value of F
L 2,F assigment r2=f
* reference (or address) of F
LA 3,F reference r3=@f
* referencing (or indexing) of reg3 (r3->f)
L 4,0(3) referencing r4=%r3=%@f=f

24
Task/Variables/360-Assembly/variables-2.360 Normal file
View file

@ -0,0 +1,24 @@
* declarations length
C DS C character 1
X DS X character hexa 1
B DS B character bin 1
H DS H half word 2
F DS F full word 4
E DS F single float 4
D DS D double float 8
L DS L extended float 16
S DS CL12 string 12
P DS PL16 packed decimal 16
Z DS ZL32 zoned decimal 32
* declarations + initialization
CI DC C'7' character 1
XI DC X'F7' character hexa 1
BI DC B'11110111' character bin 1
HI DC H'7' half word 2
FI DC F'7' full word 4
EI DC F'7.8E3' single float 4
DI DC D'7.8E3' double float 8
LI DC L'7.8E3' extended float 16
SI DC CL12'789' string 12
PI DC PL16'7' packed decimal 16
ZI DC ZL32'7' zoned decimal 32