1 " CPU_MACROS
 2 "
 3 " Macros used to lend a bit of CPU independence to bootloader code.
 4 "
 5 " 04/22/81, Chris Jones
 6 " 9/83, Keith Loepere so they can work for both machines at once.
 7 "
 8 "
 9 " Macro to get the absolute address of its argument into au
10 " This macro assumes that the address will fit into 18 bits
11 "
12           macro     absa_au
13           lda       bootload_info$system_type
14           cmpa      ADP_SYSTEM,dl
15           tze       4,ic
16           absa      &F1
17           als       24-18
18           tra       3,ic
19           absa      &F1
20           als       26-18
21 &end
22 
23 
24 "
25 " Macro to get the absolute address of its arguments into al
26 "
27           macro     absa_al
28           lda       bootload_info$system_type
29           cmpa      ADP_SYSTEM,dl
30           tze       4,ic
31           absa      &F1
32           arl       36-24
33           tra       3,ic
34           absa      &F1
35           arl       36-26
36 &end
37 
38 " End include file bootload_cpu_macros.incl.alm