Data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · cb5bb5e222
commit cb5bb5e222
parent 7387c8f97b
199093 changed files with 3378972 additions and 0 deletions
--- a/Task/Array-length/360-Assembly/array-length.360
+++ b/Task/Array-length/360-Assembly/array-length.360
@ -0,0 +1,12 @@
+*        Array length              22/02/2017
+ARRAYLEN START
+         USING ARRAYLEN,12
+         LR    12,15               end of prolog
+         LA    1,(AEND-A)/L'A      hbound(a)
+         XDECO 1,PG+13             edit
+         XPRNT PG,L'PG             print
+         BR    14                  exit
+A        DC    CL6'apple',CL6'orange'   array
+AEND     DC    0C
+PG       DC    CL25'Array length='      buffer
+         END   ARRAYLEN