blob: e0f14e166300ebf1d0c32ecc508b851e1c3fccfc (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
ORG 200
LDA X /Load first operand into AC
BSA OR
HEX 3AF6
STA Y
HLT
X, HEX 7B95
Y, HEX 0
OR, HEX 0
CMA
STA TMP
LDA OR I
CMA
AND TMP
CMA
ISZ OR
BUN OR I
TMP, HEX 0
END
|