## Keyboard shortcuts

Press `←` or `→` to navigate between chapters

Press `S` or `/` to search in the book

Press `?` to show this help

Press `Esc` to hide this help

# 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