Control Data 1700 Reference Manual page 26

SAMPLE PROGRAM (Cont'd)
Hexa-
decimal Machine
Assembly
Address Code Language Comments Step
,.--A-.. ,.A-.. A
\ I
"
~
0026 P
0104
SAZ A9-*-1 Not Busy
00030
0027 P 18F9
JMP* A7 Loop On Busy
00031
0028 P
0000 INTERNAL REJECT 00032
0029 P 0000 A8 EXTERNAL REJECT 00033
002A P 18F6
JMP* A7 Re-Status
00034
002B P EOOO A9 LDQ
=N$0081
Equiment 1 00035
002C P 0081
002D P
COOO LDA =N$0180 Backspace 00036
002E P 0180
002F P 0302
OUT A10-*-1
00037
0030 P 1804
JMP*
All Reply 00038
0031 P 0000
INTERNAL REJECT
00039
0032 P
0000 A10 EXTERNAL REJECT
00040
0033 P
18F7 JMP* A9
Re- Function 00041
0034 P EOOO
All LDQ =N$0081
Equipment 1 00042
0035 P 0081
0036 P COOO LDA =N$0100 Select Read Function 00043
0038 P
0302 OUT A12-*-1
00044
0039 P 1804 JMP* A13 Reply 00045
003A P 0000 INTERNAL REJECT 00046
003B P 0000 EXTERNAL REJECT 00047
003C P 18F7 JMP*
All
Reselect Read Function 00048
003D P COOO A13 LDA =N-200 200- Word Counter 00049
003E P FF37
003F P 60FF STA- I 00050
0040 P EOOO A14 LDQ =N$0080 Equipment 1 00051
0041 P 0080
0042 P 0207 INP A13-*- Input Data to A 00052
0043 P 6900
STA DATA+200. I Store Data at Data Block
00053
0044 P
00D1
0045 P
DOFF RAO- I
00054
0046 P
COFF LDA- I Check Counter
00055
0047 P 0104 SAZ
A16-*-1
00056
0048 P 18F7 JMP* A14
00057
0049 P 0000 INTERNAL REJEC T 00058
004A P
0000
EXTERNAL REJECT 00059
004B P 18F4
JMP*
A14 00060
004C P 0000 A16
SLS
a
STOP
00061
004D P 00C8 BZS DATA (200) Data Block 00062
END
00063
20
60330800 A