Multiplication tables: Difference between revisions

Content added Content deleted
m (→‎{{header|360 Assembly}}: Superfluous blanks suppressed)
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