root/as/cmd/SVC/svc__2.casl

;;; SVC 2 1文字を表示
MAIN    START
BEGIN   LAD     GR1,D
        LAD     GR2,A
        SVC     2
        LAD     GR1,=#A
        SVC     2
        RET
D       DC      '0'
A       DC      1
        END