|
44 | 44 | #define DBG_WRITE 0010 |
45 | 45 | #define DBG_POS 0020 |
46 | 46 |
|
47 | | -static uint16 GROUP; |
| 47 | +static uint16 BLOCK_GROUP; |
48 | 48 | static int16 CURRENT_BLOCK; |
49 | 49 | static int16 WANTED_BLOCK; |
50 | 50 |
|
@@ -113,15 +113,15 @@ void tape_op(void) |
113 | 113 | switch (C & 7) { |
114 | 114 | case RDC: case RDE: case WRC: case WRI: case CHK: |
115 | 115 | S = 256 * (B >> 9); |
116 | | - GROUP = 0; |
117 | | - sim_debug(DBG, &tape_dev, "Single tranfer: S=%04o, BN=%03o\n", |
| 116 | + BLOCK_GROUP = 0; |
| 117 | + sim_debug(DBG, &tape_dev, "Single transfer: S=%04o, BN=%03o\n", |
118 | 118 | S, WANTED_BLOCK); |
119 | 119 | break; |
120 | 120 | case RCG: case WCG: |
121 | 121 | S = 256 * (B & 7); |
122 | | - GROUP = B >> 9; |
| 122 | + BLOCK_GROUP = B >> 9; |
123 | 123 | sim_debug(DBG, &tape_dev, "Group transfer: S=%04o, BN=%03o/%o\n", |
124 | | - S, WANTED_BLOCK, GROUP+1); |
| 124 | + S, WANTED_BLOCK, BLOCK_GROUP+1); |
125 | 125 | break; |
126 | 126 | case MTB: |
127 | 127 | sim_debug(DBG, &tape_dev, "Move towards block %03o\n", WANTED_BLOCK); |
@@ -232,12 +232,12 @@ static void tape_done(UNIT *uptr) |
232 | 232 | paused = 0; |
233 | 233 | break; |
234 | 234 | case RCG: case WCG: |
235 | | - if (GROUP == 0) { |
| 235 | + if (BLOCK_GROUP == 0) { |
236 | 236 | sim_debug(DBG, &tape_dev, "Done with group\n"); |
237 | 237 | paused = 0; |
238 | 238 | } else { |
239 | | - sim_debug(DBG, &tape_dev, "Blocks left in group: %d\n", GROUP); |
240 | | - GROUP--; |
| 239 | + sim_debug(DBG, &tape_dev, "Blocks left in group: %d\n", BLOCK_GROUP); |
| 240 | + BLOCK_GROUP--; |
241 | 241 | } |
242 | 242 | WANTED_BLOCK = (WANTED_BLOCK + 1) & TMASK; |
243 | 243 | break; |
|
0 commit comments