1.3.2第13题
INDEV EQU 16
OUTDEV EQU 18
BLOCK EQU 16
LINE EQU 24
BUF0 EQU 1000
BUF1 EQU 1016
DATA EQU 1032
ORIG 3000
START IN BUF0(INDEV)
2H ENT1 BUF0
JBUS *(INDEV)
IN BUF1(INDEV)
PROCESS ENT3 16
ENT2 0
LD2 0,1(5:5)
CMP2 STAR
JE BPRINT
CMP2 =29=
JG 1F
LDA DATA,2
INCA 1
STA DATA,2
1H LD2 0,1(4:4)
CMP2 STAR
JE BPRINT
CMP2 =29=
JG 1F
LDA DATA,2
INCA 1
STA DATA,2
1H LD2 0,1(3:3)
CMP2 STAR
JE BPRINT
CMP2 =29=
JG 1F
LDA DATA,2
INCA 1
STA DATA,2
1H LD2 0,1(2:2)
CMP2 STAR
JE BPRINT
CMP2 =29=
JG 1F
LDA DATA,2
INCA 1
STA DATA,2
1H LD2 0,1(1:1)
CMP2 STAR
JE BPRINT
CMP2 =29=
JG 1F
LDA DATA,2
INCA 1
STA DATA,2
1H DEC3 1
INC1 1
J3P PROCESS
JBUS *(INDEV)
IN BUF0(INDEV)
ENT1 BUF1
PROCESS2 ENT3 16
ENT2 0
LD2 0,1(5:5)
CMP2 STAR
JE BPRINT
CMP2 =29=
JG 1F
LDA DATA,2
INCA 1
STA DATA,2
1H LD2 0,1(4:4)
CMP2 STAR
JE BPRINT
CMP2 =29=
JG 1F
LDA DATA,2
INCA 1
STA DATA,2
1H LD2 0,1(3:3)
CMP2 STAR
JE BPRINT
CMP2 =29=
JG 1F
LDA DATA,2
INCA 1
STA DATA,2
1H LD2 0,1(2:2)
CMP2 STAR
JE BPRINT
CMP2 =29=
JG 1F
LDA DATA,2
INCA 1
STA DATA,2
1H LD2 0,1(1:1)
CMP2 STAR
JE BPRINT
CMP2 =29=
JG 1F
LDA DATA,2
INCA 1
STA DATA,2
1H DEC3 1
INC1 1
J3P PROCESS
JBUS *(INDEV)
JMP 2B
BPRINT IOC 0(OUTDEV)
ENT2 1
PONELN JBUS *(OUTDEV)
ENT3 24
MKZ STZ BUF0,3
DEC3 1
J3P MKZ
ST2 BUF0
LDA BUF0
SLA 4
STA BUF0
LDA DATA,2
INC2 1
JAZ PONELN
CHAR
STA BUF0(4:5)
STX BUF0+1
OUT BUF0(OUTDEV)
CMP2 =29=
JL PONELN
HLT
STAR ALF *
END START