发布于 2004-04-24 13:13:51
0楼
MAIN:
NETWORK 1
LD SM0.1
CALL SBR_0
NETWORK 2
LDN M0.0
TON T96, +500
NETWORK 3
LD M0.3
TON T32, +150
NETWORK 4
LD T32
R M0.3, 1
S Q0.0, 1
NETWORK 5
LD M0.1
LPS
AB= VB0, 0
MOVR VD96, VD100
S M0.3, 1
LRD
AB= VB0, 1
MOVR VD96, VD104
S Q0.1, 1
LRD
AB= VB0, 2
MOVR VD96, VD108
S Q0.2, 1
LRD
AB= VB0, 3
MOVR VD96, VD112
S Q0.3, 1
LRD
AB= VB0, 4
MOVR VD96, VD116
S Q0.4, 1
LRD
AB>= VB0, 4
MOVB 0, VB0
S M0.2, 1
LPP
LPS
AN M0.2
INCB VB0
LPP
R M0.1, 1
SBR0:
LD SM0.0
MOVB 0, VB0
MOVR 0.0, VD100
MOVR 0.0, VD104
MOVR 0.0, VD108
MOVR 0.0, VD112
MOVR 0.0, VD116
MOVB 16#F8, SMB37
MOVD +0, SMD38
MOVD +5000, SMD42
HDEF 0, 0
ATCH INT_0, 22
ATCH INT_1, 12
ENI
HSC 0
R M0.0, 4
R Q0.0, 5
INT0
NETWORK 1
LD SM0.0
S M0.0, 1
R M0.2, 1
AB= VB0, 0
R Q0.0, 5
NETWORK 2
LDN M0.0
TON T96, +500
NETWORK 3
LD SM0.0
MOVD HC0, AC0
DTR AC0, VD92
MOVR VD92, VD96
/R 250.0, VD96
MOVB 16#00, SMB37
HSC 0
MOVB 16#F8, SMB37
MOVD +0, SMD38
MOVD +5000, SMD42
HSC 0
R M0.0, 1
S M0.1, 1
INT1
LD SM0.0
STOP