{"id":177,"date":"2004-12-21T16:52:00","date_gmt":"2004-12-21T14:52:00","guid":{"rendered":"http:\/\/ramuuns.id.lv\/blog\/2004\/12\/21\/tagad-jautaaajums\/"},"modified":"2004-12-21T16:52:00","modified_gmt":"2004-12-21T14:52:00","slug":"tagad-jautaaajums","status":"publish","type":"post","link":"https:\/\/ramuuns.com\/blog\/2004\/12\/21\/tagad-jautaaajums\/","title":{"rendered":"tagad jautaaajums"},"content":{"rendered":"<p>kur sheit ir kljuuda (ja ir&#8230;)<\/p>\n<p><a name=\"cutid1\"><\/a><\/p>\n<pre>APAR     CSECT\r\n         using *,15\r\n         SAVE  (14,12),,*\r\n         st    13,savearea+4 save link to the old savearea (backward)\r\n         lr    14,13         address of the old save area\r\n         cnop  0,4\r\n         bal   13,codestrt\r\n         drop  15\r\n         using *,13\r\nsavearea dc    18F'0'\r\ncodestrt equ   *\r\n         st    13,8(14)      set link to the new save area (forward)\r\n*  here comes your code\r\n*        register 1 contains address of the address list of parameters\r\n         LM    3,4,0(1) 3=A(arr),4=L\r\n         LTR   4,4 vai kautkas tur ir?\r\n         BC    12,schluss\r\n         LA    7,4 j=1\r\n         LR    5,4 garumu pareizinam ar sizeof(int)\r\n         M     4,=F'4' skat. iepr.\r\nforstrt  EQU *\r\n         LR    4,7 4reg samaitaats tagad tur buus i\r\n         S     4,=F'4' i=j-1\r\n         L     6,0(3,7) ieksh r6 = k\r\n         LA    7,4(7) j++\r\nciklis   EQU *\r\n         LTR   4,4   ja i ir &lt; 0\r\n<span style=\"color: red;\">         BC    6,eocikl  ejam aaraa no ciklis<\/span> eku kljuuda!!!\r\n         L     9,0(3,4)  r9 = arr i\r\n         CR    6,9  k&lt;arr i ?\r\n         BC    12,else\r\n         ST    9,4(3,4) arr i+1 = arr i\r\n         S     4,=F'4'  i--\r\n         LTR   4,4\r\n         BC    10,ciklis\r\n         ST    6,0(3) arr 0 = k\r\n         B     ciklis\r\nelse     EQU *\r\n         ST    6,4(3,4) arr i+1 = k\r\n         LA    4,0\r\n         S     4,=F'1'\r\n         B     ciklis\r\neocikl   EQU *\r\n         CR    7,5 j=l?\r\n         BNE   forstrt  nav? tad turpinam ciklu\r\n*  here ends your code\r\nschluss  l     13,4(13)    get pointer to the old save area\r\n         RETURN (14,12),RC=(15)\r\n*\r\n*  here start your data\r\nVARSTART equ   *\r\nVAREND   EQU   *\r\n         END\r\n<\/pre>\n<p><\/p>\n","protected":false},"excerpt":{"rendered":"<p>kur sheit ir kljuuda (ja ir&#8230;) APAR CSECT using *,15 SAVE (14,12),,* st 13,savearea+4 save link to the old savearea (backward) lr 14,13 address of the old save area cnop 0,4 bal 13,codestrt drop 15 using *,13 savearea dc 18F&#8217;0&#8242; codestrt equ * st 13,8(14) set link to the new save area (forward) * here [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[9],"tags":[],"_links":{"self":[{"href":"https:\/\/ramuuns.com\/blog\/wp-json\/wp\/v2\/posts\/177"}],"collection":[{"href":"https:\/\/ramuuns.com\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/ramuuns.com\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/ramuuns.com\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/ramuuns.com\/blog\/wp-json\/wp\/v2\/comments?post=177"}],"version-history":[{"count":0,"href":"https:\/\/ramuuns.com\/blog\/wp-json\/wp\/v2\/posts\/177\/revisions"}],"wp:attachment":[{"href":"https:\/\/ramuuns.com\/blog\/wp-json\/wp\/v2\/media?parent=177"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/ramuuns.com\/blog\/wp-json\/wp\/v2\/categories?post=177"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/ramuuns.com\/blog\/wp-json\/wp\/v2\/tags?post=177"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}