v8.asm
370 Assembly dilinde
V8 BEGIN R=Y
ZAP N,=P'0'
FSERASE 'V8A OUTPUT A'
LA R3,1 I
LR R6,R3 M.I
SR R8,R8 M.J
LA R9,9
LA R4,LOOP2
LA R5,INCMI
LA R10,INCI
LA R11,LOOP3
LA R12,LOOP
INCI STC R6,XXXX-1(R3)
LA R3,1(,R3) I=I+1
CR R3,R9
BE FOUND
LA R6,1
LOOP LR R2,R3 J
SR R1,R1
LOOP2 BCTR R2,R11 LOOP3
BR R10 INCI
LOOP3 IC R8,XXXX-1(2)
CR R6,R8 INCMI
BER R5
LA R1,1(,R1) D
LA R7,0(R8,R1) M.J+D
CR R6,R7
BER R5 INCMI
LA R7,0(R6,R1) M.I+D
CR R7,R8
BER R5 INCMI
BR R4 LOOP2
FOUND AP N,=P'1'
MVC SEQNO,=X'40202120'
ED SEQNO,N
LA R1,ABCD+3
LA R2,XXXX
LA R8,8
PRTLOOP MVN 0(1,R1),0(R2)
LA R1,3(,R1)
LA R2,1(,R2)
BCT R8,PRTLOOP
FSWRITE 'V8A OUTPUT A',BUFFER=LINE,BSIZE=28
BCTR R3,0
INCM IC R6,XXXX-1(R3)
INCMI LA R6,1(,R6)
CR R6,R9
BLR R12 LOOP
LA R6,1
STC R6,XXXX-1(R3)
BCT R3,INCM
EOJ
N DC PL2'0'
LINE EQU *+1,28
SEQNO DS CL4
ABCD DC C': a1 b1 c1 d1 e1 f1 g1 h1'
XXXX DC X'0101010101010101'
END