- packet[0] = 1; /* Standard header */
- packet[1] = (2*NUMWORDS) + 6; /* Size of packet, including header but excluding checksum */
- packet[2] = 01000; /* Address to load packet */
- packet[NUMWORDS+3] = 0; /* Empty checksum. SIMH complains but still loads the image. */
- packet[NUMWORDS+4] = 1; /* Start of next packet, standard header */
- packet[NUMWORDS+5] = 6; /* Size of packet (just the header since blank body */
- packet[NUMWORDS+6] = 01000; /* Blank body means start execution at this address */
- packet[NUMWORDS+7] = 0; /* Empty checksum. SIMH complains but still loads the image. */
+ block[0] = 1; /* Standard header start mark */
+ block[1] = (2 * NUMWORDS) + 6; /* Size of block, including header but excluding checksum */
+ block[2] = 01000; /* Address to load block */
+ block[NUMWORDS+4] = 1; /* Start of end-of-tape block mark */
+ block[NUMWORDS+5] = 6; /* Size of block (just the header since blank body */
+ block[NUMWORDS+6] = 01000; /* Blank body means start execution at this address */
+ block[NUMWORDS+7] = 0; /* Empty checksum */