Multiplication tables: Difference between revisions
Content added Content deleted
PatGarrett (talk | contribs) m (→{{header|360 Assembly}}: Superfluous blanks suppressed) |
PatGarrett (talk | contribs) m (→{{header|360 Assembly}}: add some comments) |
||
Line 9: | Line 9: | ||
USING MULTTABL,R12 |
USING MULTTABL,R12 |
||
LR R12,R15 |
LR R12,R15 |
||
LA R10,0 |
LA R10,0 buffer pointer |
||
LA R3,BUFFER |
LA R3,BUFFER |
||
MVC 0(4,R3),=C' | ' |
MVC 0(4,R3),=C' | ' |
||
Line 21: | Line 21: | ||
LA R10,4(R10) |
LA R10,4(R10) |
||
LA R4,1(R4) |
LA R4,1(R4) |
||
BCT R5,LOOPN |
BCT R5,LOOPN end i |
||
XPRNT BUFFER,52 |
XPRNT BUFFER,52 |
||
XPRNT PORT,52 border |
XPRNT PORT,52 border |
||
Line 47: | Line 47: | ||
B NEXTJ |
B NEXTJ |
||
MULT LR R9,R4 i |
MULT LR R9,R4 i |
||
MR R8,R6 i*j |
MR R8,R6 i*j in R8R9 |
||
LA R3,BUFFER |
LA R3,BUFFER |
||
AR R3,R10 |
AR R3,R10 |
||
Line 54: | Line 54: | ||
LA R10,4(R10) |
LA R10,4(R10) |
||
NEXTJ LA R6,1(R6) |
NEXTJ LA R6,1(R6) |
||
BCT R7,LOOPJ |
BCT R7,LOOPJ end j |
||
ELOOPJ XPRNT BUFFER,52 |
ELOOPJ XPRNT BUFFER,52 |
||
LA R10,0 |
LA R10,0 |
||
LA R4,1(R4) |
LA R4,1(R4) |
||
BCT R5,LOOPI |
BCT R5,LOOPI end i |
||
ELOOPI XR R15,R15 |
ELOOPI XR R15,R15 |
||
BR R14 |
BR R14 |