1 .text 2; .org 0 3 4 .globl label1 5 .globl label2 6 .globl label3 7 .globl label4 8 .globl label5 9 .globl label6 10 .globl label7 11 .globl label8 12 .globl label9 13 14 .globl value8 15 .globl value8_1 16 .globl value8_2 17 .globl value8_3 18 .globl value16 19 .globl value24 20 .globl value32 21 22 .globl field_0 23 .globl field_1 24 25 call label1 26 call nz,label2 27 call z,label3 28 call nc,label4 29 call c,label5 30 call po,label6 31 call pe,label7 32 call p,label8 33 call m,label9 34 35 jp label1 36 jp nz,label2 37 jp z,label3 38 jp nc,label4 39 jp c,label5 40 jp po,label6 41 jp pe,label7 42 jp p,label8 43 jp m,label9 44 45 ld l,(ix+5) 46 ld a,(ix+field_0) 47 ld c,(ix+field_1-10) 48 ld b,(ix+field_1-11) 49 50field_0_1 .equ field_0+90 51 52 ld (iy-5),l 53 ld (iy+field_0),a 54 ld (iy+field_1+10),c 55 ld (iy+field_1+11),b 56 ld h,(iy+field_0_1) 57 58 .ifdef ADLMODE 59 ld.is de,value32 >> 16 60 ld.is hl,value32 & 0xffff 61 ld.is de,(value32 + 0x12345678) >> 16 62 ld.is hl,(value32 + 0x12345678) & 0xffff 63 .else 64 ld de,value32 >> 16 65 ld hl,value32 & 0xffff 66 ld de,(value32 + 0x12345678) >> 16 67 ld hl,(value32 + 0x12345678) & 0xffff 68 .endif 69 70 ld d,value32 >> 24 71 ld e,value32 >> 16 72 ld h,value32 >> 8 73 ld l,value32 >> 0 74 75 ld d,(value32 + 0x12345678) >> 24 76 ld e,(value32 + 0x12345678) >> 16 77 ld h,(value32 + 0x12345678) >> 8 78 ld l,(value32 + 0x12345678) >> 0 79 80 .ifdef Z80N 81 push label1 82 push value16 83 nextreg value8_1,value8_2 84 nextreg value8_3,a 85 ld a,a 86 .endif 87 88 .data 89 .db value8 90 .dw value16 91 .d24 value24 92 .d32 value32 93