0000  000000  Relative Jump
01xx  000400  Interrupt
020x  001000  Wait
03xx  001400  Read
04x0  002000  Write
05xx  002400  Device Specified Jump
0600  003000  Identify
07xx  003400  Read Control
08xx  004000  Write Control
09xx  004400  Clear
0A0x  005000  Read-Modify-Write
0B0x  005400  Read Register
0C0x  006000  Write Register
0D0x  006400  Command HP-IB
0E00  007000  Execute DMA
0Fxx  007400  Write Relative Immediate
10xx  010000  CRC Initialize
11xx  010400  CRC Compare


 10 .RUNNING THIS PROGRAM TESTS THE DISPLAY OF ALL CPP INSTRUCTIONS
 20 .
 30 .NOTE: DO NOT CHANGE THE FIRST THREE I/O INSTRUCTIONS IN ZZ!
 40 .
 50 .
 60 .
 70 .
 80 .
 90 .
100 DB AA,256
110 DB BB,256
120 LET CHANNEL:=11
130 LET DEVICE:=0
140 BSIO ZZ
150 JUMP 630     .ZZ(5-6)
160 JUMP 170     .ZZ(7-8)  THIS INSTRUCTION BECOMES CRC INITIALIZE
170 JUMP 180     .ZZ(9-10) THIS INSTRUCTION BECOMES CRC COMPARE
180 IN H
190 IN R,3,255
200 WAIT
210 WAIT S
220 RR 30,AA(0),256
230 RR 15,BB(0),70,DC=3
240 RR 13,BB(0),50,DC=2,R
250 RR 11,BB(0),80,DC=1
260 RR 10,BB(0),56,DC=0,,420
270 RB 30,AA(0),256,256
280 RB 3,BB(0),150,50,DC=3
290 RB 2,BB(0),150,50,DC=2
300 RB 1,BB(0),250,50,DC=1,R
310 RB 0,BB(0),256,50,DC=0
320 WR 20,AA(0),128
330 WR 13,BB(0),50,DC=2,R
340 WR 11,BB(0),80,DC=1
350 WR 10,BB(0),56,DC=0
360 WB 30,AA(0),256,256
370 WB 3,BB(0),150,50,DC=3
380 WB 2,BB(0),150,50,DC=2,,E
390 WB 1,BB(0),250,50,DC=1,R
400 WB 0,BB(0),256,50,DC=0
410 DSJ 630,640,420
420 IDENT AA(0)
430 CLEAR
440 CLEAR 255
450 RMW 0,6,S
460 RMW 15,15,C
470 RREG 2,AA(0)
480 WREG 12,BB(0)
490 CHP !11,!22
500 CHP !33
510 CHP !44,!55,!66
520 RDMAR AA(0),256
530 RDMAR BB(0),128,R,630
540 RDMAB AA(0),200,100,,640
550 WDMAR AA(0),64
560 WDMAR BB(0),32,R
570 WDMAB AA(0),300,50
580 WDMAB BB(0),200,20,R
590 WDMAB AA(0),100,10,,E
600 WRIM 0,12
610 WRIM 127,6
620 WRIM -128,9
630 JUMP 640
640 JUMP 180
650 ESIO
660 LOCATE 160(-1),X       .THIS DOES NOT WORK IN AID VERSIONS < 2.0
670 LET X:=ZZ(0)+4+7       .X = INDEX OF 2ND INSTR IN 1ST COPY
680 LET ZZ(X):=%10000      .CRC INITIALIZE
690 LET X:=X+1
700 LET ZZ(X):=%0
710 LET X:=X+1
720 LET ZZ(X):=%10703      .CRC COMPARE / HALT / INTERRUPT
730 LET X:=X+1
740 LET ZZ(X):=%1234
750 RSIO ZZ
760 END