38 lines
1.3 KiB
Text
38 lines
1.3 KiB
Text
* Pangram RC 11/08/2015
|
|
PANGRAM CSECT
|
|
USING PANGRAM,R12
|
|
LR R12,R15
|
|
BEGIN LA R9,SENTENCE
|
|
LA R6,4
|
|
LOOPI LA R10,ALPHABET loop on sentences
|
|
LA R7,26
|
|
LOOPJ LA R5,0 loop on letters
|
|
LR R11,R9
|
|
LA R8,60
|
|
LOOPK MVC BUFFER+1(1),0(R10) loop in sentence
|
|
CLC 0(1,R10),0(R11) if alphabet[j=sentence[i]
|
|
BNE NEXTK
|
|
LA R5,1 found
|
|
NEXTK LA R11,1(R11) next character
|
|
BCT R8,LOOPK
|
|
LTR R5,R5 if found
|
|
BNZ NEXTJ
|
|
MVI BUFFER,C'?' not found
|
|
B PRINT
|
|
NEXTJ LA R10,1(R10) next letter
|
|
BCT R7,LOOPJ
|
|
MVC BUFFER(2),=CL2'OK'
|
|
PRINT MVC BUFFER+3(60),0(R9)
|
|
XPRNT BUFFER,80
|
|
NEXTI LA R9,60(R9) next sentence
|
|
BCT R6,LOOPI
|
|
RETURN XR R15,R15
|
|
BR R14
|
|
ALPHABET DC CL26'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
|
|
SENTENCE DC CL60'THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG.'
|
|
DC CL60'THE FIVE BOXING WIZARDS DUMP QUICKLY.'
|
|
DC CL60'HEAVY BOXES PERFORM WALTZES AND JIGS.'
|
|
DC CL60'PACK MY BOX WITH FIVE DOZEN LIQUOR JUGS.'
|
|
BUFFER DC CL80' '
|
|
YREGS
|
|
END PANGRAM
|