.syntax unified
.global main

.type main, %function

main:


  @Red Clock (port B) Clock for Ports
  ldr r1, =0x40021000
  ldr r2, [r1, 0x4C]
  orr r2, 2

  @Green Clock (port E)
  orr r2, 16 @measured in binary (2^5 because 5th port)
  str r2, [r1, 0x4C]

  @Setting pin port B and output mode (red light pin)
  ldr r1, =0x48000400
  ldr r2, [r1, 0]
  orr r2, 16 @(2^4 on, set bit 4)
  bic r2, 32  @(2^5 off, clear set bit 5)
  str r2, [r1, 0]

  @same thing, port E with (Green Light Pin)
  ldr r1, =0x48001000 @look up manual
  ldr r2, [r1, 0]
  orr r2, 65536 @(2^17 on)
  bic r2, 131072  @(2^18 off)
  str r2, [r1, 0]

  @Turning Red light on
  ldr r1, =0x48000400
  ldr r2, [r1, 0x14]
  orr r2, 4
  str r2, [r1, 0x14]

  @Turning Green light on
  ldr r1, =0x48001000
  ldr r2, [r1, 0x14]
  orr r2, 256
  str r2, [r1, 0x14]




  @ ldr r0, =0xcafe0000
  @ ldr r1, =0xffff

  @ orr r3 , r0,r1
  @ lsr r4, r0, 16

  @ lsr r5, r4, 4
  @ lsl r5, r5, 20
  @ lsr r6, r1, 12
  @ lsl r6, r6, 16
  @ orr r5, r6

  @ lsl r6, r4, 24
  @ lsr r6, r6, 8

  @ @ ldr r3, =0xcafeffff
  @ @ ldr r4, =0xcafe
  @ @ ldr r5, =0xcaff0000
  @ @ ldr r6, =0xc0fe0000

  @ ldr r1, =main

  @ cope:
  @   .ascii "COPE"

  @   @ load "COPE" into r1
  @   ldr r0, cope
  @ @ your code goes here

@   ldr r1, =storage
@   @ your code starts here

@   ldr r2, [r1 ,+12]

@   add r2, 1

@   str r2, [r1 ,+12]
@ .data
@   storage:
@     .word 2, 3, 0, 0 @ don't change this line
@   @ Adressed in bytes, a word is 32 bits and a byte is 8 bits.

@ @ when it's all done, spin in an infinite loop
@ .text
@ loop:
@   nop
@   b loop
.size main, .-main