CPYM START
  LAD GR1,0
LOOP LD GR2,AA ,GR1
  ST GR2,BB,GR1
;---------------------------------
  AND GR2,MASK
;小文字から大文字に変換（大事）
;----------------------------------
  ST GR2,CC,GR1
  LAD GR1,1,GR1
  CPA GR1,N
  JMI LOOP
   ;OUT AA,N
   ;OUT BB,N
   ;OUT CC,N
  RET
AA DC 'abcLMNxyz'
BB DS 9
CC DS 9
N  DC 9
MASK DC #FFDF
  END
;---------------------------
; AA にある文字列 abcxyz を
; １．　BB にコピーする。
; ２．　大文字に直して
; 　　　CC にコピーする。
;---------------------------
