Angstrem KR 1878

Assembler code

CODE:000F
CODE:000F ; =============== S U B R O U T I N E =======================================
CODE:000F
CODE:000F
CODE:000F                 global EEPWr
CODE:000F EEPWr:
CODE:000F                 movl    %c1 PCtlA,#0
CODE:0010                 ldr     SR0,#8
CODE:0011 ; assume a = 8
CODE:0011                 ldr     SR1,#9
CODE:0012 ; assume b = 9
CODE:0012                 ldr     SR2,#$E
CODE:0013 ; assume c = $E
CODE:0013                 ldr     SR5,#$40
CODE:0014                 movl    %b1 byte_100049,#0
CODE:0015                 movl    %b4 byte_10004C,#0
CODE:0016                 jsr     sub_29F
CODE:0017                 ldr     SR6,#$82
CODE:0018                 ldr     SR7,#7
CODE:0019                 movl    %c0 byte_100070,#$A
CODE:001A
CODE:001A loc_1A:                                 ; CODE XREF: EEPWr+F↓j
CODE:001A                 mov     %b0 byte_100048,%d7
CODE:001B                 jsr     sub_25F
CODE:001C                 jsr     sub_29F
CODE:001D                 subl    %c0 byte_100070,#1
CODE:001E                 jnz     loc_1A
CODE:001F                 swap    %b0 byte_100048
CODE:0020                 cmpl    %c1 byte_100071,#1
CODE:0021                 jnz     loc_23
CODE:0022                 btg     %b0 byte_100048,#$80
CODE:0023
CODE:0023 loc_23:                                 ; CODE XREF: EEPWr+12↑j
CODE:0023                 mov     %c4 byte_100074,%b0 byte_100048
CODE:0024                 movl    %b0 byte_100048,#$90