666458ba1f82a2b678833a5ddb0c46df993abb9a
[YACASL2.git] / svc1.casl
1 ;;; SVC 1 1文字を入力
2 MAIN    START
3         LAD     GR1,IBUF
4         LAD     GR2,ILEN
5         SVC     1
6         RET
7 IBUF    DS      6
8 ILEN    DS      1
9         END