Macro expansion of mnemonics about xa80 HOT 3 CLOSED

                           24 | myname          MACRO   inst
                           25 | myfunc{inst}:   PUSH    BC          // Copy BC register
                           26 |                 POP     AF          // into AF
                           27 |                 {inst}              // Perform shift / rotate
                           28 |                 PUSH    AF          // Save flags straight away
                           29 |                 CP      A,D         // Check if A the same
                           30 |                 JP      NZ, FAIL    // No, mismatch, flag an error
                           31 |                 POP     BC          // Get flags back into C
                           32 |                 LD      A,$13       // Mask for Half carry, subtract, and carry flags
                           33 |                 AND     A,C         // Leave just the ones we want
                           34 |                 CP      A,E         // Expected?
                           35 |                 JP      NZ, FAIL    // No, flag as an error
                           36 |                 RET                 // Return; all was good
                           37 |                 ENDM
                           38 | 
                           39 |         ORG     $0200
                           40 |         
                           41 | codestart
                           42 |                 myname  RLA
0200: C5                   42 | myfuncRLA:      PUSH    BC          // Copy BC register
0201: F1                   42 |                 POP     AF          // into AF
0202: 17                   42 |                 RLA                 // Perform shift / rotate
0203: F5                   42 |                 PUSH    AF          // Save flags straight away
0204: BA                   42 |                 CP      A,D         // Check if A the same
0205: C2 00 00             42 |                 JP      NZ, FAIL    // No, mismatch, flag an error
0208: C1                   42 |                 POP     BC          // Get flags back into C
0209: 3E 13                42 |                 LD      A,$13       // Mask for Half carry, subtract, and carry flags
020B: A1                   42 |                 AND     A,C         // Leave just the ones we want
020C: BB                   42 |                 CP      A,E         // Expected?
020D: C2 00 00             42 |                 JP      NZ, FAIL    // No, flag as an error
0210: C9                   42 |                 RET                 // Return; all was good