第一个MIX程序

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