导航:首页 > 操作系统 > 单片机JCL1

单片机JCL1

发布时间:2022-12-10 22:34:56

A. cobol用到一个硬盘上的文件例如“c:\1.txt”,求JCL部分要怎么写,才可以使cobol打开文件

(1)首先,cobol程序可以跳开JCL,直接在cobol程序中直接指定外部文件(当然、大型开发没有这么做的),例:
环境(ENVIRONMENT)部、INPUT-OUTPUT节、FILE-CONTROL段:
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT FILE001
ASSIGN TO 'c:\1.txt'
ORGANIZATION IS LINE SEQUENTIAL
FILE STATUS IS .......(后面的内容省略)
其中“FILE001”为文件标识(也就是FD定义中,和过程部OPEN/READ/CLOSE语句中的文件名).
ASSIGN TO 子句直接指定文件,不需要JCL。

(2)如果想通过JCL指定,则程序里面,ASSIGN TO 子句如下(其他不用动):
ASSIGN TO SYS100
其中“SYS100”被称为外部装置名(或者称之为“DD名”),
这样,程序内部没有直接指定外部文件的位置和名称,
只是将其和外部装置名SYS100联系到了一起。JCL中指定如下:
SET CBL_SYS100=c:\1.txt
注意,JCL里面(也就是环境变数设定时)环境变数名是CBL_XXXX的形式,
XXX部分是程序中的外部装置名。

B. 单片机汇编语言中比较指令

刚好也有这么个困惑,已经解决了,拿出来分享下
比较转移指令
CJNZ
CJNE
A,#data,rel
CJNE
A,direct,rel
CJNE
Rn,#data,rel
CJNE
@Ri,#data,rel
第一条指令的功能是将A中的值和立即数data比较,如果两者相等,就次序执行(执行本
指令的下一条指令),如果不相等,就转移,同样地,我们能将rel理解成标号,即:CJNEA,
#data,标号。这样利用这条指令,我们就能判断两数是否相等,这在很多场合是非常有用的。
但有时还想得知两数比较之后哪个大,哪个小,本条指令也具有这样的功能,如果两数不相等,则CPU还会反映出哪个数大,哪个数小,这是用CY(进位位)来实现的。如果前面的
数(A中的)大,则CY=0,不然CY=1,因此在程序转移后再次利用CY就可判断出A中的数
比data大还是小了。
例:
MOV
A,R0
CJNE
A,#10H,L1
MOV
R1,#0FFH
AJMP
L3
L1:
JC
L2
MOV
R1,#0AAH
AJMP
L3
L2:
MOV
R1,#0FFH
L3:
SJMP
L3
JC是判CY是0,还是1进行转移,如果CY=1,则转移到JC后面的标号处
执行,如果CY=0则次序执行(执行它的下面一条指令)。
分析一下上面的程序,如果(A)=10H,则次序执行,即R1=0。如果(A)不等于10H,则转
到L1处继续执行,在L1处,再次进行判断,如果(A)>10H,则CY=1,将次序执行,即执
行MOV
R1,#0AAH指令,而如果(A)<10H,则将转移到L2处指行,即执行MOV
R1,#0FFH
指令。因此最终结果是:本程序执行前,如果(R0)=10H,则(R1)=00H,如果(R0)>10H,
则(R1)=0AAH,如果(R0)<10H,则(R1)=0FFH。
弄懂了这条指令,其它的几条就类似了,第二条是把A当中的值和直接地址中的值比较,第
三条则是将直接地址中的值和立即数比较,第四条是将间址寻址得到的数和立即数比较,这
里就不详谈了,下面给出几个对应的例程。
CJNE
A,10H
;把A中的值和10H中的值比较(注意和上题的区别)
CJNE
10H,#35H
;把10H中的值和35H中的值比较
CJNE
@R0,#35H
;把R0中的值作为地址,从此地址中取数并和35H比较

C. 关于 单片机中的 JC指令

jc是一个c51指令,功能是判位跳转,举例说明:
mov
a,#60
;送立即数到a
cjne
a,#59,l1
;将a与立即数“#59”对比,if
a>#59,acc=0;else
acc=1
.
;-------------------------------------
l1:
jc
l2
;关键在这里,如果acc=1,程序跳到l2处执行,否则程序往下执行
.
{....如果上面的a>59,将执行此段程序.....}
l2:........
end

阅读全文

与单片机JCL1相关的资料

热点内容
dvd光盘存储汉子算法 浏览:757
苹果邮件无法连接服务器地址 浏览:962
phpffmpeg转码 浏览:671
长沙好玩的解压项目 浏览:142
专属学情分析报告是什么app 浏览:564
php工程部署 浏览:833
android全屏透明 浏览:732
阿里云服务器已开通怎么办 浏览:803
光遇为什么登录时服务器已满 浏览:301
PDF分析 浏览:484
h3c光纤全工半全工设置命令 浏览:141
公司法pdf下载 浏览:381
linuxmarkdown 浏览:350
华为手机怎么多选文件夹 浏览:683
如何取消命令方块指令 浏览:349
风翼app为什么进不去了 浏览:778
im4java压缩图片 浏览:362
数据查询网站源码 浏览:150
伊克塞尔文档怎么进行加密 浏览:890
app转账是什么 浏览:163