fiH/ |
|
| fOUR | 81 T nAND" ROUTINE | ||
0:START. rIM 4P 0 | / | LOAD ROM PORT 0 ADDRESS | ||||
2: | SRC | 4P | / | SEND | ROM PORT | ADDRESS |
3: | RDR |
| / | READ | INPUT A |
|
4ft: | XCH | 0 | / | A TO | REGISTER | 0 |
5% | INC | 8 | / | LOAD ROM PORT 1 ADDRESS | ||
6: | SRC | 4P | / | SEND | ROM PORT | ADDRESS |
7: | RDR |
| / | READ | INPUT 8 |
|
8: | XCH | I | / | B TO | REGISTER |
|
9: | JMS | AND | / | EXECUTE "AND·· |
| |
II: | XCH | 2 | / | l.OAD | RESUL T C |
|
12: | WMP |
| / | STORE AT MEMORY PORT 0 | ||
13: | JUN | START | / | RESTART |
| |
IS: | NOP |
|
|
|
|
|
16: | =104ft |
|
|
|
|
|
104:/ |
|
| "AND" SUBROUTINE |
| ||
104: AND. | Cl.B | / | CLEAR | ACCUMUl.ATOR AND CARRY | ||
105: XCH | 2 | / | CLEAR | REGISTER | 2 | |
106: l.DM | 4 | / | LOAD LOOP COUNT (l.C> | |||
107: | XCH | 0 | / | LOAD A, LC TO REGISTER 0 | ||
108: | RAR |
| / | ROTATE LEAST SIGNIfICANT BIT TO CARRY | ||
109: | XCH | 0 | / | RETURN ROTATED A TO REG 0# LC TO ACC. | ||
110:JCN CZ ROTRI / JUMP TO ROTRI If CARRY ZERO
112:XCH I/ LOAD B. LC TO ACCUMUl.ATOR
113:RAR/ ROTATE LEAST SIGNIfICANT BIT TO CARRY
114:XCH I/ RETURN ROTATED B TO REG. I. LC TO ACC.
liS: ROTR2. XCH 2 / LOAD PARTIAl. RESULT C. LC TO REGISTER 2
116: | RAR |
| / | ROTATE CARRY INTO PARTIAL RESULT MSB | |||
117: | XCH | 2 | / | LOAD l.C. | RETURN C TO REGISTER 2 | ||
118: | DAC |
| / | DECREMENT | THE ACCUMULATOR | (l.C> | |
I 19: | JCN | AN Z AN D+ 3 | / | LOOP IF LC NON ZERO |
| ||
121: | B8L | 0 | / | RETURN |
|
|
|
122:ROTR1, XCH 1 | / | LOAD B. LC TO REGISTER I |
| ||||
123: | RAR |
| / | ROTATE | 8 |
|
|
I | / | RETURN | ROTATED B TO REG. | I" LC TO ACC. | |||
125: CLC |
| / | CLEAR | CARRY |
| ||
126: JUN | ROTR2 | / | RETURN | TO | LOOP |
| |
128:CZ | =10 |
|
|
|
|
| |
128:ANZ |
|
|
|
|
| ||
128:$ |
|
|
|
|
|
|
|
Figure 9.4. Pass 1 Listing.
01 0:BPPNPNPPPF BPPPPPPPNF 2: BPPNPNPPNF 31BNNNPNPNPF
4:8NPNNPPPPf 5: BPNNPNPPPF 6: BPPNPNPPNF 7:BNNNPNPNPF
8:BNPNNPPPNf 9:BPNPNPPPPF BPNNPNPPPF 11:BNPNNPPNPF
12:BNNNPPPPNf 13:BPNPPPPPPF BPPPPPPPPf LS:BPPPPPPPPf
16:10~: 10~:BNNNNPPPPf 10S:BNPNNPPNPf 106:BNNPNPNPPf 107lBNPNNPPPP 108aBNNNNPNNPF 109:8NPNNPPPPF 1 lOa BPPPNNPNPf BPNNNNPNPF 112:BNPNNPPPNF 113tBNNNNPNNPf I I 4ft I BNPNNPPPNF IIS:BNPNNPPNPF 116:BNNNNPNNPF tI7:BNPNNPPNPf 118:BNNNNNPPPF 119aBPPPNNNPPF
BPNNPNPNNF 121aBNNPPPPPPf 122aBNPNNPPPNF 123aBNNNNPNNPF 124:BNPNNPPPNf 125:BNNNNPPPNf 126:BPNPPPPPPf BPNNNPPNNF
128 : 128 : 128 :
F
Figure 9.5 Programming Tape Listing.
12